(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 736923, 15888] NotebookOptionsPosition[ 720250, 15519] NotebookOutlinePosition[ 722028, 15571] CellTagsIndexPosition[ 721985, 15568] WindowTitle->MultisetSokalSneathDissimilarity | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Sokal-Sneath dissimilarity between two ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/List", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " multisets:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7621087140744677`*^9, 3.762108764999486*^9}, { 3.764662536293853*^9, 3.764662539132316*^9}, {3.77099986501184*^9, 3.770999874497435*^9}, 3.7747923900166807`*^9, {3.855143742825801*^9, 3.8551437430659943`*^9}}, CellID->189737144], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762108769247562*^9, 3.762108812478175*^9}, { 3.762108843134334*^9, 3.762108843282709*^9}, 3.764662556144721*^9}, CellLabel->"In[1]:=", CellID->463485059], Cell[BoxData[ FractionBox["4", "5"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7621087991862593`*^9, 3.762108813505927*^9}, 3.762108844068717*^9, 3.762860826724351*^9, 3.7637938422637863`*^9, 3.764662560532452*^9, 3.764675082660062*^9, 3.769086553433897*^9, 3.769092494605343*^9, 3.769092978111451*^9}, CellLabel->"Out[1]=", CellID->25709364] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Sokal-Sneath dissimilarity between two ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " multisets:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.762108902732424*^9, 3.762108952952726*^9}, { 3.764662543677033*^9, 3.764662546555778*^9}, {3.770999877467857*^9, 3.7709998808127203`*^9}, 3.7747923926890383`*^9, 3.8551437515632687`*^9}, CellID->61162467], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762108956180325*^9, 3.76210895993878*^9}, 3.762109047886777*^9, 3.764662558513287*^9}, CellLabel->"In[2]:=", CellID->353172735], Cell[BoxData[ FractionBox["3", "4"]], "Output", TaggingRules->{}, CellChangeTimes->{3.76210904939264*^9, 3.762860826767218*^9, 3.7637938469305964`*^9, 3.7646625636710978`*^9, 3.764675082672751*^9, 3.769086553454862*^9, 3.769092494622164*^9, 3.769092978127874*^9}, CellLabel->"Out[2]=", CellID->735327178] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ The number of elements of each distinct kind affects the result:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7621093380332117`*^9, 3.7621093638736277`*^9}}, CellID->117144518], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109497269898*^9, 3.7621095973992434`*^9}, 3.76466260775867*^9}, CellLabel->"In[1]:=", CellID->169568051], Cell[BoxData[ FractionBox["2", "3"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762109572778916*^9, 3.76210959838155*^9}, 3.762860826794937*^9, 3.763793849682765*^9, 3.764662620570038*^9, 3.7646750828043528`*^9, 3.7690865536069527`*^9, 3.769092494722978*^9, 3.769092978225624*^9}, CellLabel->"Out[1]=", CellID->621268687] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109497269898*^9, 3.7621096197538433`*^9}, 3.7646626100697527`*^9}, CellLabel->"In[2]:=", CellID->907166425], Cell[BoxData[ FractionBox["10", "13"]], "Output", TaggingRules->{}, CellChangeTimes->{3.762109622770502*^9, 3.762860826805934*^9, 3.763793851876411*^9, 3.764662620651415*^9, 3.7646750828526*^9, 3.769086553649403*^9, 3.769092494763891*^9, 3.769092978241913*^9}, CellLabel->"Out[2]=", CellID->772536376] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109391881081*^9, 3.762109436397027*^9}, 3.7646626124287*^9}, CellLabel->"In[3]:=", CellID->656972432], Cell[BoxData[ FractionBox["2", "3"]], "Output", TaggingRules->{}, CellChangeTimes->{3.762109437579358*^9, 3.762860826846839*^9, 3.763793853905552*^9, 3.7646626206637487`*^9, 3.7646750828656054`*^9, 3.769086553672324*^9, 3.7690924947781763`*^9, 3.76909297827708*^9}, CellLabel->"Out[3]=", CellID->639865777] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109479367607*^9, 3.762109482576548*^9}, 3.764662615174424*^9}, CellLabel->"In[4]:=", CellID->48639068], Cell[BoxData[ FractionBox["4", "9"]], "Output", TaggingRules->{}, CellChangeTimes->{3.762109483819909*^9, 3.762860826887567*^9, 3.763793856598914*^9, 3.764662620708145*^9, 3.7646750829124937`*^9, 3.7690865537156477`*^9, 3.769092494815893*^9, 3.769092978292911*^9}, CellLabel->"Out[4]=", CellID->759739509] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(22)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ The Sokal-Sneath dissimilarity measure has its origins in numerical taxonomy. \ It was proposed by Robert R. Sokal and Peter H. A. Sneath as a measure of \ similarity in the same class as the Jaccard and Dice measures but with an \ alternative weighting of unmatched features.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765961328536141*^9, 3.765961391373769*^9}, { 3.765963030561104*^9, 3.7659630458805103`*^9}, {3.765963089566922*^9, 3.765963211403273*^9}, {3.7659643369475403`*^9, 3.765964365501549*^9}, { 3.765964621950121*^9, 3.765964629549199*^9}, {3.7659821991854687`*^9, 3.765982216574068*^9}, 3.765982271068101*^9, {3.76599308753574*^9, 3.7659931851471567`*^9}, {3.765993219610538*^9, 3.765993248985858*^9}, { 3.769072914985874*^9, 3.7690729164770184`*^9}, {3.7690732902078753`*^9, 3.769073405932273*^9}, 3.7747923946908064`*^9, {3.77480310225144*^9, 3.7748031089134808`*^9}, 3.855143759730258*^9}, CellID->538731500], Cell["\<\ The measure can be used in a number of fields, as shown by the following \ examples. The role of object and attribute can also be reversed, and the \ first application demonstrates this duality.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765964738066766*^9, 3.765964805503819*^9}, { 3.765964902165112*^9, 3.7659649820176163`*^9}, {3.765991732572187*^9, 3.76599173366628*^9}, 3.765991856240471*^9, {3.7690866556685047`*^9, 3.769086665401903*^9}, {3.769087249447865*^9, 3.769087250119108*^9}, { 3.77480311900651*^9, 3.774803129371458*^9}}, CellID->905638013], Cell[CellGroupData[{ Cell[TextData[{ "Ecology", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.763793669033787*^9, 3.76379367055326*^9}}, CellID->562972423], Cell["Here are some ground-based animal index counts:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7637937712343082`*^9, 3.7637937843416243`*^9}, 3.765961277947508*^9, {3.765984599432501*^9, 3.765984609127905*^9}}, CellID->135786253], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"blockData", "=", RowBox[{"Dataset", "@", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "16"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "19"}], ",", RowBox[{"\"\\"", "\[Rule]", "26"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "36"}], ",", RowBox[{"\"\\"", "\[Rule]", "15"}], ",", RowBox[{"\"\\"", "\[Rule]", "63"}], ",", RowBox[{"\"\\"", "\[Rule]", "30"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "8"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "9"}], ",", RowBox[{"\"\\"", "\[Rule]", "7"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "22"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "35"}], ",", RowBox[{"\"\\"", "\[Rule]", "29"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "57"}], ",", RowBox[{"\"\\"", "\[Rule]", "15"}], ",", RowBox[{"\"\\"", "\[Rule]", "67"}], ",", RowBox[{"\"\\"", "\[Rule]", "89"}]}], "\[RightAssociation]"} ]}]}], "\[RightAssociation]"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7637933797893343`*^9, 3.763793578372048*^9}, { 3.763793802486104*^9, 3.763793807925005*^9}, {3.763794047128227*^9, 3.763794085486046*^9}, 3.763794146308207*^9, {3.764186995774218*^9, 3.764187002055654*^9}, {3.765992029107585*^9, 3.765992030834193*^9}, 3.769089640657528*^9}, CellLabel->"In[1]:=", CellID->617861163], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc+LIlvY3zvJJsv8C1llIfQ6GxcuExdCQnDjxpDXkIZ5I68DQVxNbYaC u9DZ6KJFhsamGaGHxoAGRrgUA1aCpo2DiIOII5QMNVADbly4mPijfllVapWP drVV38/icm976lh+73POt845zzn1r//zf/8PiX9+dXWV+pfLf/yH+P8I/dM/ xdP/8V8t/+M//WPqv/3Xf/yH//Lv/vHtP/zXf/inf/uf/8Xyj//+n11d/Ztl +dW//wEAAAAAAAAAzzEAAAAAAAAAAI8yAy8LZKcA9ShAPQpQjwJMx0UgOwWo RwHqUYB6FGA6LgLZKUA9ClCPAtSjANNxEchOAepRgHoUoB4FmI6LQHYKUI8C 1KMA9SjAdFwEslOAehSgHgWoRwGm4yKQnQLUowD1KEA9CjAdF4HsFKAeBahH AepRgOm4CGSnAPUoQD0KUI8CTMdFIDsFqEcB6lGAehRgOi4C2SlAPQpQjwLU owDTcRHITgHqUYB6FKAeBZiOi0B2ClCPAtSjAPUowHRcBLJTgHoUoB4FqEcB puMikJ0C1KMA9ShAPQowHReB7BSgHgWoRwHqUYDpuAhkpwD1KEA9ClCPAkzH RU4v++/+7bvMknz12ymrNX7L94/vM5l3mfe3f/8+VZW/VjiqDer9/il8739r tVr8iufvP37avxbqzX79HH3/9rxWr9V67o9+/LJ9KdSjANNxERuy//yUSVjy 5u3b9x8+fu0L28Vbm+JvP7bOeN/Ktyy/Rjhc2ga/n9+t6/vYOm236VX1fn/7 8ul95q3F73qX//rdloY+Vm/2na9+eGeh3rLS2/qznd7Yz+qZEfh7+be9+2Qn +GA6LmIndO93hK7Kh3pfK/6rtem9M2cNXeVbEm/vHZjETn7+/VGu72PLQVPw sXrCR8suU+Hzt8PP7L5W782+H5X5yB+swsfqGfn9va7J+fbeTgOG6biIk+el d5+q9eqaz58/3d9+0PU6mZbax1xQ6P7+fv/hr7/ev9N3ACc3HY+q9/N+/QPe vPvw+cvXb99HP35857/oOrk3t6NDVUC9xNv399Uvz/3vo9H3Z/5LXovEt18P haGP1dvmp1Khk2phOi7iIHQzn4wPr7+e/1L+V3/uKx9eUOj+5M3Pm+cyHa+p 9+vLx9sv30xa/fiq+E7m4Dylj9X7/fX+9jP/3fR34ZPSgR6MQx+rp+d7ftWG 5Xb8BqZzCTgIXav/m38rsXv/rHy4L3R/8p9vM7qO/u27/N/fflh/7a/v9fsP mTdKOL3NvP/w8UtLaSG7Q7dV/ZjP397mP+Q/8Yfmxn/yqwfAer3+5VM+c17T 8aB61l/8Wek2q/0DM2xQz8y3T3aneaHe8q4+v5fv56+PHx15GUzHRZw8L5n/ b/64lSMrw6uf7Qrdn88fdsxjvzfF2A/+0645b3mVc0foPn96r5b81NrRKKz4 /e2TzcauB+rt/L3LH3XCCSK/qDe6lWe+3tS/H+h3od7XWyUl4fbr0q5hOpeC k+clLdvk9+/fP398+6zMDb/5q6491FqH7g/duvPb289f+K9/L5+G1D/9Vdem Gn4p/f+66vf3n+vVz/dqqk9md+g+f1bnDN58/uZs7P7z+X5z5dlGOl5WT0Ot OfGudSiVAOppP+n3z+/Pf6s39Sb/98GLfK5ev6pcsklX+6UmxcF0XjtOliN3 8X5rbtoqdH98vVWbkz6tafT3RzV4+/Izk3CvBHnm9os+fn6NWstHm7e3xtDd NKhv1Q/Ht/oXMB1Pq6fyd175+vf1gzMkUG9V2bfPhp/04RNvZ7eOn9UT+I/q XckjQodLRTAdFzlF6K6eav4e7VmO1Gr4ZMqk/fKXPBz/uJ5b1h6W3txa9v6/ TDG2rLFf1+K2elSf6Z7peEG9Dd+/5NV6Ds4OzaDe5v5aau8tk/98MHNthW/V 0yVIv9OmcGE6l4OT0NUSL1e5l58+3ebf6+Zv38nZSntC982tea5WUBrdX9XV lgG18//wZW/KrRpj7z+1tIeu4/vM85uOl9Vb38m9+mM+1M15WRZAvfUNfv+y zmT+qM9kztwfXNXwqXpagvTbL/oHG2Vzt0WqnhUwHRdxshxp9X/zV19ZzUu8 +7w+PcMcur+e3ytNyRxYP5XOKnO/Kv+sZO/c78+43XzL9pqlo8MEjLdxbtPx tHpCS5vMt7OxcQPUM/L7+606PVnt7y/rT/W0geFf1W+rA4Q2PLf+vlcqe//l +bnFP4/2eg9Mx0WcLEdaj1t/Kd31m7/q6/82ha568IVV6Aq8PGn8fh35rY/2 Upe1BWuNN+8/HX2wxvkTCTyrnm56P/Hu41f7qcJQb88vOrhZxp/qqe30ILd7 sydhOi5CD93f36sHQncm3O+u4dfzJyWuV+XVJUInoas9Nr35q2r/yMStH+mS 6Vy6erpV4MRfn51tKoR6ZrThw/lN5xLVs286+0dPMB0XoYfuj6/y8vHb2/W8 itXMsJLW8vZv09Rw637rAUk3fN6b/qSG7psPq/UD3eFLb/NfjtiX55bpXLJ6 v9QD65bk6wemg8z4Wz1rBCVb7AVM50LV+2XB718//laywG9Hv1cHxu+vBKbj IsSZ4Z/9L2qCzPtdM8O6+d43H7YDUjs1RYlq3UlK97wh0H+3Puc/VLe+RR34 /3w+ZllBRc290TZo28C/6v3+8XmzFr36R6bqRDQV36r3+/uXvz7cfzO/x+DX N3W/irzOshvfqmeNqdr9wHRcxEHoLv93fpb59On+423+vf5cjDd5OWfFcouZ unVrvWnsefTz96+fff6z9sf8V7WsGudL/rr/0h/9GH3/9rV+/379KLNnX/NI 3VOwakfPNn797+/Pz63n5+dv375+kpv7X5++fvv2vPrzt9FJd5p4Sj35sXbz CzK3q5So+09b3N/fVw/sN/Gxevfyr3qfr375+q3//Xv/29/Vj+otLes4eEq3 b9WzBinTl4Od0D14QHri7QdtUkpZfDTMD/xQX3hhcfnt9q6OH7rgNfJmMxWg vZVj6yRzXdr/9rHt1r+M33c8/5vD7/vwrXq2ptYPCehf9Ux7cwx8sjHH61v1 dvxW62p3AdNxEVvPSzsC6c2bt+/+yle/bj+UKWmW7+6NTyy/vn/9YOrl399+ sQqSX3z11lT2zfv8p+fNpIQ6EfHeuP74/Ek7UuPL/sGKbjbDAhvjdN+qt3Xg ybEC+la92a/Rl0+3795anFL29t0tvz/ZV8G/6lmiVvvuM0Y6r5yXl1343leS 67/9+Lk/tH7/FEbf+yu+jwR6atDJgXoUoN6v9cu+n9d8638XDtzSFlCPAkzH RSA7BahHAepRgHoUYDouAtkpQD0KUI8C1KMA03ERyE4B6lGAehSgHgWYjotA dgpQjwLUowD1KMB0XASyU4B6FKAeBahHAabjIpCdAtSjAPUoQD0KMB0XgewU oB4FqEcB6lGA6bgIZKcA9ShAPQpQjwJMx0UgOwWoRwHqUYB6FGA6LgLZKUA9 ClCPAtSjANNxEchOAepRgHoUoB4FmI6LQHYKUI8C1KMA9SgMAAAAAAAAAMDT uD3q8h0b2f+Ao4B6FKAeBahHAabjIghdClCPAtSjAPUowHRcBKFLAepRgHoU oB4FmI6LIHQpQD0KUI8C1KMA03ERhC4FqEcB6lGAehRgOi6C0KUA9ShAPQpQ jwJMx0UQuhSgHgWoRwHqUYDpuAhClwLUowD1KEA9CjAdF0HoUoB6FKAeBahH AabjIghdClCPAtSjAPUowHRcBKFLAepRgHoUoB4FmI6LIHQpQD0KUI8C1KMA 03ERhC4FqEcB6lGAehRgOi6C0KUA9ShAPQpQj8K5TEfqMNHwksxd65TV7v+u h87Zv+ukHBG6i/mKhd3CkjDsd9f0h2PJ7nWXgQP15jNh3O+22zzPt9vdoSDO z3xvr5/zxd5MGG6UXgadIHlTafvqLWbSeNhvrxXh+e5YnNm6ygct157pTPPh q0NEuemmLLcpG2S5s/fdL/lduxEHzeqSOjeR7F7iuOEvurH1L821D4Su2K0x iYjh/8012ybFyivDjnpjvpKOhawCNcQ+dT3Vkh1yjtibj3kmcm0UOpHrSie4 4VeFDfUW/VopEbGIvesYw413auiflmvTdLKHTSfY2JiOyEXX/x1+ASN4ye/a DccGtxSwgcOGP2vkNu1+2fD3NOMFpxQzNv+cB0N3bxEpZ+wCt4jk+Be619fH yWNP5At7lG4InnJ4W7Fn+bCjUO6bx4D+arkORzphJpvPWsFmHwab53z/mU4z K98Fd1rTWYwL6WQyEdN3n3tMp13Q4nb5TFXj+4Ig9LvtpwJTaIxPHD2uYkO9 WWHT8EOJQqXWHY4FYdzla4ymZYjz3EO4TU4cexKvPp2HkqWuIM3ns3G7ltSU LnhJafuxdx1Ll2tcfyyI4pivFbQxzDUrbF/gt5brzHTCefFgf+q26Uhrzv7V Olr5zV1Em6edXpvx5qf1XaYzH5bVMmxtePpweU3YmeLgCmyZNzdYqRQ7oKTn OW3stXNyb3qdrm0NaRb9pBqQnHjC+3cXG+rNazm21jdpJXKK70T085Q+bLnO TCeYPfwsv8d0Jp0icxPQhXH0huUG2z4mDYpMZkmRG4kjLpuKq+UD4ZvH1sTy u6L5ljRdVR5USgeC8TvO8LukVrXIpG6iYV2pYDieYh6bRgUGjeLqJpi7kSR1 qsWbcFC9izhzN9DMZXDHZtSpx2VVMpkMe8ftsSB7Uxwz/qlSqTw9PdVKTGRv V7l4Up4skxWPx+0fWgZRv2RnotLLnDT2ZsoTfKhhMhaxwcqfsd6ZzCTE3rys PPBUhuoMmx9brsORzvGmM2rk9Xajh6n2dF/F7V8+YusD83ftIvWoq3k2ZXfd wdK2sg393XLs3rsIZHobR5k2gjsLMdsGuYXT0F30S5tKrbtKsSHPIl+z3nmm 3A2h4QusotTT2FNrDfY5aezNSspAp2H+cC5nIHhpho0Qe6pWEV6Vw5ct15np BJjOZDoZWTFR7MjKdMRWUe2Lw6lslWs2uTp7o3bYwbraQRt9JBBPZVgmpevb w9p6vcl0ojcpJqMvfNPRxhuy6QSC0RTD5ovFfJa9CWs+dNfTiirLNOoNLi9h UnGt4puHtZ1JveyNNhYLR+M3a+LxaCpbJ490NGbdwh7TUT+NFXhhyJcLbDqd TibTDFsoP3GCrVTNS8Jxw18smY27jbQywXHNNM52d6+dk8ae1pFapLbN2sow CKaztOC2MtCJtZWBjj9brjPT2cee7DX18kCeG+nrbd3dyGaRb5p9JJWva0nI YiujdPnxu465cJR5GKhmJPXUwtmm7q9NrjMyrkpx+bjxHvSmE4g/6Kbpeo8Z xWDyar3Kmk74xGs6OvabjjpltIPrnBeXI20WnvfLBjnSJd6be0jscVrTURfI CxafjuVlnUjJM93n0abTYJSctsSTOsb2Z8t9AdNRhzlhpmGqecJsxgnqxN3u JSFJHS6ZCgdNNXeKspWw3M5ZLkkSp9PppPMYNH2jmpBWN8wnSi253mB2Yip8 tpTpA6bTLWyHbigSS8Qi2zsFrPqES8WRerN2zhCpTNm3mWsrTh17alpWpNLV pogWM5GvMMonfjedcU2RYnte158t16HpxO/q9aoVj1Vul2uIzawsXzBVLOY1 svliXhk4BA+bznKckQlsd/i7C6tfajCdSY8rspl4OGxe3rE0HVMWtEVOxblS pnXYNJ0IUx7q9twvZsOc2iV4aNLYmXqzca1SKZdLOTatNeZIwTNqOOW0sbcc SapZauswC0UisUhoO/ctVPCz6UhtbR9T+mlr5OLPluvMdI5Kme4oc2j7CLIH fWS1R1Uek+QPOtTUwnSmj5l9AzYPmE6ha5o3mncT8u+L8F5p+cfPqy/GrDrJ 4YNkIUtObDpLUUU+uXs75Mp+fLymI7VLqhTmLcn+bLnOTOeolGldJliUWadD m0hl8nVxx+U6JizBdJp5LTcgGM8UH6pcs9XpjUadh8DFm86epNZ5Wf4wdugE nYvheNNZNeWC0gN4aq+3fU5uOmsWw3ajVGAZhkmnGTZXqPFDoVvZDHh8mzIt NLSp3ViOM6dL+rPlvoDpTDg5XT/fsrHQvnd6LSV7xuHpNZPpDOSpuatAvrH9 e8WmuZLLMp1hJal8ao7OeSXmzdA97tpZG6ZzDtOxoK30qExDOFz6QrCvXr+S Vh0nWbYONn+23BcwnaliOlc3D4ddZ88yTSsv1xO/OzgsMpqOuv3HPEMoncx0 6jtzFoyctuGrn+oTYxREZULJa4P0466VlGiE6djkSNNRd6BcJYce2hFlT715 Q3eWGvO0cyLXny33BdZ0lm4RV/TPPJrfQSC1HlnGlAVt9BGpo2ZBM43JgcJm 01GGM1dXqd5WQZHLy0tOR5tOS0m6zlRHM3s4bfhzZYNeoWsVf7rFXEOui6g6 vueWI/cUWIxryXShb36PgU6oWLl/xlt8xZw49iwvEbiEqnOpe9RtvlIOq7cQ y4n1tOLqH5HKftF82XKdmc5VMMNawjDs3Z4DP/W5BOFUtt7sDEajXqdZvWOj 61kv7d0E2tabQDTFPta5TqfDPepStgOM1rM7mF7Tsr4D0Uy12el1WvWHfFSX xHa06WjpeVfR4vK3dVrVuyxbpB+Dsxh3u+3VezX6XEmOzWSJ66/ettHu9rdO 7x1W1Fa+SgkWlt8tCY2SNsD31flX2hxagqnUuP5wPB72G5Wc7uD4hMVZv/7g 5LG3EDgmnavx3dWxqv12mdVC8SqU807YrbEReznFcZbxx1Yq5VKhtEWhUKho O8V82HJtmo6DVxsoE1nbRiA+MvuqCKgbbQ6cbBOu6w4+Wxa2+i5L05lNlJOg dlZtZTqmrTeKFLp9Otpi09ZPYvdMttlq+DN+3xHp17ntyQ5pzz6ziNUi5uVi t+HvpuShvQ9OOXns7VQ7kvPeUUOHY6+750UPlgL6ruXaHensP+NsRby5mXoT m5vJpmi2aahlwD3cmPfHBMKZ7F1LPShAZzrh7XPNwjfZlsECdn+XugCkO5Fg 1qtmDV8fjLNcqy5XojuRQJkxi3LG+cRpUTljVH8v0qhhTMfeLmCUwk7DN+yA MBAx732Yc6W06XDgSInz1KbmP3a6zblQK7GxkMU7dUIxlhf8OshZc/LYM5vO dShRqpmTgL3AQfXU2ch9GBuvv1quPdM5JdPJoNNqtTpLeoPR1DgHpTs4el14 1FsxmIgneluBNOk0mxy3SpceTQ6vUDliMhqs7nUwmkwP1ExZCj/AYrZ53W27 3e6PRS89JqnYV2++fmWw9vLfmSf1cMYZYm8hCeP1zNtKZHHmSbeRQcul4Jbp HOB1vJft3JwxdH0A1KMA9ShAPQowHRdB6FKAehSgHgWoR+GVmo6ShxCE6YAd QD0KUI8C1KPwSk1H6jDRcDgczNyZd/R4B4QuBahHAepRgHoUXqnp+AOELgWo RwHqUYB6FGA6LoLQpQD1KEA9ClCPAkzHRRC6FKAeBahHAepRgOm4CEKXAtSj APUoQD0KMB0XQehSgHoUoB4FqEcBpuMiCF0KUI8C1KMA9SjAdFwEoUsB6lGA ehSgHgWYjosgdClAPQpQjwLUowDTcRGELgWoRwHqUYB6FAYAAAAAAAAA4Gnc nm3yHRvZ3R7sXipQjwLUowD1KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCP AtSjANNxEYQuBahHAepRgHoUYDougtClAPUoQD0KUI8CTMdFELoUoB4FqEcB 6lGA6bgIQpcC1KMA9ShAPQowHRdB6FKAehSgHgWoRwGm4yIIXQpQjwLUowD1 KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCPAtSjANNxEYQuBahHAepRgHoU YDougtClAPUoQD0KUI8CTMdFELoUoB4FqEcB6lF4baYz7dQz8XBgQzAYjjId cfPJpF5kwkHlg2CYeejYr7b3yISXRDMt8Tz3fRQOQnc+E8b9brvN83y73R0K 4tzGRYu5JAz73TX94ViaL2jB8ro4ouEv5is8pcKxHKWejXA6KlAvjvO13MVM HHblwmNBOsXNvjqcmM40H76yZGkC8RRb70yInXDvMWOqO9iYzmZSLxM0fcA0 7NfMZTe3Hl7V9mqwE7pjvpKOhaxUD7FP3V39p9itMYmI4YJrtn3y+HERx93m ohtb65Brzyw/n/dL1vGtECl4R0BH6tkJp+MC9UI5S8tdjEtJo8hXoWRtaB2u l4sj08nuMB2VlJPRhxGxGVXqCURT2XyWScWDwUxHmjXz2icpNptlmXg46Oi7 mtlNDWHuwkxHyl3vEzyS402XLLhczLJwKOedPvOPY9OZNRRZcm3rB8hZt7A/ vEMecm3b6tkMpyMC9YI5Q8sVWEuDWnFdG3vKtI8a6UTzdw93a4rFlTfoRiFh 7tj5qynHylWwhiHMNCt/QbQ+OrLyizWdWWETiqFEoVLrDseCMO7yNSamBnSI 2+5B2wWti7iOMTW+LwjCcnj/VGAKjfE5Q+mlsdVtLsaFdDKZiOk7gIOmE0nn SiYKhVyFF07/M1zCpunYDifHgXrRnLzldkuqzrEK35eWz+BDPqcWDhU8JN5R phPOG41FbN4okhU7R7qOqJjOXc/4vbLpxB+Oq3l2waaz4ApsmTebhaQGqb4L nQ/LahfB1oYnj5ZXha1uc8abnzcPmk6h68mFiC3sqOcknJwF6qVz6pY7TivG /rQ1qBEYJXwrHhrsHGM6way5564qrpNtKh9KvXxmRbFhrFns1ZlUJpNiGiNp 84d6MRNQwjueYdYsL83/3/9Xz8SVT4Jx5YNUvr5yJmnSKmaZm3g0GFDKBILh aJzJPw62rW+P6UyXNxPXzRsGgpl8Vb6vM3PEYq5Kv2SeLFo8JeUYTVY87jh/ 7D6rz/inSqXy9PRUKzERm6bjpe5xF3a6zZOEk1WgXjynbbmLcUW2nGTNYC1i g9l8lCj3abf8ijhqpGM2nREj9/q6lfopJ3uUacVfnUljGpvcgymrWs4Wwf/5 v1jLDwLrOtV6rIg2dHkNu0yndZfacXm8cX7jIYSuOgOsezQSG8rfWPF0EfJq careQskTwEjnjx31ThNOVoF6+Zy25Y6f5IGO2VkWQk02/kjJM/kER410WLU7 lyRpOmoVlVWdwM2DNsIQObmjZzljRc3spjzLbWoSH5m4zlHCNyviyyHL//4/ j3H9ilF8/UE8usmXVkwnEI2n2Gy+mM+zmRvNvuIPqm1Yms6kzqhlgzfMY71e vdPnSqSM83ynxnHoLpbMxt1GWklyuWYa6odqnxkr8MKQLxfYdDqdTKYZtlB+ 4gTPhKyCU/UODmR0AtbaPLeEb3eHY9GTOdYH1SOF095A9QCnbbntQkR52jHJ OpdTLr20rHOM6ewkvtVLOzCdFS0lRS3b3J4ak5SsNvNa0rTHcaY1pCmnGFhU rcnKdNTR2VXqoaX7uh6r/MwbSjKeDRyF7ryvTbBvSJd4/RN5v2SdZaRwnfNh IoEO+6Zjli5d4jxm2gfVOzqcDgaqBzhty+0Wds9AztswnQME4lV1NcWh6Si+ sPXHdWl5mu4qmD2wEUiSxOl0Kk4e5V092lyf2XTEZl6+52jRaFuDh4DyjWfN O3AUurN2ziA2U95KCOoWtnuJUCSWiEUiW4mYBR/Pqx82HZPCWyQrXuo5D6p3 dDgdDFQPcKaWaxGZs7Y8CvL59JouZXqVNZ3PM9pi/+pTuWM/leko9VhbgDTh qsXMTTwYNC8LaRZjZTryPTAWedgTVp7Tu+mcc2HHWbc5G9cqlXK5lGPTWsuP FNT5djV0I0x5qNv3vJgNc+qeMw8t95zcdJYKN2qNbn8oiKK0foQZdrlcQhM7 /eSdoaJ903EcTocC1QOcqeXCdEzsTpleInYYZRwULa5nq85vOmLnYe/Ya5/p tIpx5evMVqbtDDprivXxy5GLsbqVLKFkFqmha7EOPu8mlFjnvRK7pzedHTQY WesQ650djvZNhxROVoHqAc7UcvdPr3ml4Z4sZXqmGzsEbtYbas5tOroTDJaf ZdjiY51rtTqDyegxFThoOsrBOKavWzFRlntuznpW2/Ghu2r3yk5GZWN4t7An JXhelj+M7TgD5vJ4MdP5I3FyP+G5p809BU4VTuZA9QCnbblIJNjNAdORencv aTqDqnxQWyCeH2xPgpktxvyXiZJubTnSUScSX+lIZzXsNobusJJUeglzRzCv xGA6x5qO2vAT3lnWOajeqcLJHKge4LQtV0uZNg0GF+MnpEzvMZ1RXXYBeWPO btORWnm66XBKkpkx201LhNtnOuoen0CmavqhtlMXaFBCV1LuXw1dLfkq8WRK 8hWVQT2m1xybjnrhddq4d+9yOajeqcLJHKge4LQtV90cepU0Si3UZD+K+X1z qMWazrTzqC6vxDdrOmrXHcjoq5ZGHBMN0E1HPQU09bCVqS2NGsrpCPtMZ3l7 yuxc4KG3NVKqK3YWZOqHNCFxMHQX41oyXeibT0Of95OK2lo06v5oSCtSjxjy cyKBeoi0xSTGn/UZv0yOH5s+WgzVo0i81/D3lXASTs4C9fI5ccu1cwzO0DOD 7OOy18LZokw+n2WZ1QtwrlQ0i+mpu/0DcbbONZtcNZvRrcPQTEddQlp9ZbHa 6fVaXD2/Vf9e01n9UfXJQLbanIrSdNQpptQ/BqvHni9qk8NPm+pIPMFUalx/ OB4P+41KTncAeqKvC8ZhJaF+wJQ5YZWDJTRKafWPLOcZz7FpOotxt9tevQCm z5Xk5p4scf3Va2Ha3b6gtXAlTSgUS5efuO5S6vGQe9JvVkn0PTPOsaee/XBy GqiXzslbrv7AzzK3OvBTGPKsduBnzjMLOn9O/WqDq2BK7xiDx12HzKhBqzed HSv7Oye7RqzpJTvbWOzT2X6fzigb3Xlx5vHcBxLYMZ29O0eurkrGmSJpz5a+ SI7zUK9p98DPnQfGX602OEo2Sy6l7nqp3du0bLvh5DxQL5sztNw9rzaINAQv NVyHI50dXXQgEIzeZO7qFqlezTvje9lusvUOJ6/p5FuaB3Tubsx/XCG15A/i pl2cYi8bNxhPkH1YDng26dBxdbVHSZA2JwZM63mTMwbiD62zLubI2JjiEGol NhayeDNHKMbyguWz45wrpU0XREqcd/aYbLDVbepmMyyI6NNQpUaJiVg1/N1S XzC2JyfthdMxgXrBnKXlLsaltOklbhGmLXnKcf68zOuqp6PW6iCrZrPVm5wh A3k66DTX1Xd6o2NfqzBZV7Gi1XuZE6ZX2F+VmM+ksf5NwbNDcbiYbd4s3G63 +2PRa1G7hrKYuwe91EutxYNSXybO1LMdTo4D9TI5X8tdva56rTTP892hdybD 9byE6YAdnKnb9AlQjwLUowD1KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCP AtSjANNxEYQuBahHAepRgHoUYDougtClAPUoQD0KUI8CTMdFELoUoB4FqEcB 6lGA6bgIQpcC1KMA9ShAPQowHRdB6FKAehSgHgWoRwGm4yIIXQpQjwLUowD1 KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCPAtSjANNxEYQuBahHAepRgHoU YDougtClAPUoQD0KUI/CAAAAAAAAAAA8jduzTb5jI7vbg91LBepRgHoUoB4F mI6LIHQpQD0KUI8C1KMA03ERhC4FqEcB6lGAehRgOi6C0KUA9ShAPQpQjwJM x0UQuhSgHgWoRwHqUYDpuAhClwLUowD1KEA9CjAdF0HoUoB6FKAeBahHAabj IghdClCPAtSjAPUowHRcBKFLAepRgHoUoB4FmI6LIHQpQD0KUI8C1KMA03ER hC4FqEcB6lGAehRgOi6C0KUA9ShAPQpQjwJMx0UQuhSgHgWoRwHqUYDpuAhC lwLUowD1KEA9CkeajjQddFrNDa1WbzCaihKl++09MuEl0UxLPHHh14yj0JWE Ic8taTQaXLs/ni3OGhcXgH31FjNpPOy3221+RXcszs59b68fR7E3E4Zr8drd bl+Q5me9sYsApkPBselMe3fsTeDKgkA4zhYfe5Nj3IfLhtd1hBvTExd+zdgM XWnYSEfMel8zZd7P7d+Geot+rZSIhCy0izHc2NfWYzP25mOeiVwb1Aslcl3p Be7x9XJQvVm3YNVHGkh0fdmAHZnOpFm0tJst62EaR3S/zWx04yOcDR9xVPg1 Y6fhCw12q72HQltdQPLJl2G7woZ6Us7CcDTKfd+KZ8t0RH5PzxlpCP4dbB82 nXbuUE+50pD35YOPE9PppTS5gkyx2ur1BoNeq9l4yLPxoGxHYZY7ovuF6exA SCuKJwqcJLfy+bBRUK2n0PbpQ6cN9WaFtelcx9LlGtcfC6I45msFbdR4zQov dLOvjsPqSbwqVChZ6grSfD4bt2tJNfJCBZ9Gng31FgJfyBVKZgqlcomB6dg0 nUE1I0sVyHSsptBGrepNYDnSIZmONmMmrdlb2POmM++X5N4xXTN8JNRkOwrl 2ucMkNeLDdOZ13JsrW/qGkVO6U4jbV+2+j821GvnImrsbQ1pFv2k0mmynHjm 23ylUNZ0FsOK7NsRn7q2fdPh2M1KyhXTmOwuJeoyCqRWtcikbqJhZRR0FQgG w/EU89g0fpfiI/HmdNp8YKPqFVeBVLY6tS5sYTqdevEmrJsCDEbZB+7VphvY nxmOFLqGjyQOpnN0w5+XY3KAVIY+nWE7pN5MGRCGGiZjEZUp3xDLn/MeXy+E 2NOmfEt9nz7xHGE60XzLXp86ZXevAEWzW0s/io/sIJwdWRQ2mM4gH9/xfWG2 R8qtOxf2RzpXVzHDFLrEy5PGyafxmWPklUJo+LOS3KNGeH8+a9owHUWi64ZZ onlXNm2/zrAdHXsipyzRJio+fdw5bnrtKsA+2slWlk0nEIymGDZfLOazrH4Y cqdzAoPpLC/JsGwmHtTZDmcqrDcdsRjXlb2rNlvN+h2rXh9g6o4t4fzYCF2R 1fIGrtkKJ24iddZOKH+s+XU993jTmbeVgU6s7deWb9t0rGYgZ21lGATTccRY XaKtjH3abP84SiQQm1q/vu7Iw9EbJpt/rDc6g5GVB0m9JtcxfcLl5Wqi+ab6 R810wql6R5u+6zyoTnejLiSZTWfazMr3dFPUj4lmYutGvjzafH2zbHZCdyE0 lB5SJpFOxxQnYhu+XQk/3nQajDLBkXjybcu3Pb1mmakylpd1IiV/zhAdF3vD iiybeYnWVzgwnWXf3noIX+0kmsl39q7sS5I4nU4nncfNAESf56YlEhitQSwq dpRVPMZkOmoZi507k7qcK8K+vrQDm6E7LFvs0lmRbLxAhLxajmv445qaO3T9 5PunzT0FulqWX6TS1dZ1FjORrygawnTsM+8qsxMWy2S+wpHprBAHj9lMeOdi TfCutdW3T3pckc3EwxZXWJqO2Rl6jynFNSY7Ck/zihemsvltioziWerlrwc7 odstKaEaY2u1Sjqm7jxZjXaukxV/zm/8OarhS21t40nar2thGw6rN9ey1Nbh FopEYpHtXWJXoQJMxyZtNTOD5c50V5eCY9NRkMTJoNeqP95lmVQ4qA/EjFLR 9DGzZ2Bk13SmytLbzpGOpM6h7eMSTUdLJAhpO0rm4rDCaFNuEWSv2UNql3Si +TTtSsXW1K7IJ3fvrr2+wpqObSROEdKne3P0HG06BjqP6qxF4GGwWn1p5rXc gGA8U3yocs1WpzcadR4CTkxn0pBrzjZ3mM6UU70tmmEyVqRSmWrv1S3qHArd hboTr9A1Ruq4pp5UkPDnxnpHDV9oaDvEYznOv9NqCrbVWwzbjVKBZRgmnWbY XKHGD4WuvNMEKdM2UZcRzXsffMipTEe/+HLXWXbvg4w8oRbIN7ZrFptRJ6aj Zs3tnl6bZOVVovyrzIzeie3FXMs9jGomDEznAP2KmjR0lSz7dGBo4LgVsQ3q TBHj1zwWR+otxk/q86E/D1szYN90Bo3H+r7BgnQXV0Y6PUkbfYTzxmukfaZj ygSQHpScuaKSpm1e05FN5ypwZ3lWwmvFtulYrjxKSjZ1zJ/b6u01/Hkjp01F Mk/Dl7izS+B40xEbykxRcujXEaMT9eYVZVU2UUH4rbBvOtx610sqX7VMjx7U 1dmedXKyMpxZXtHbKihyeXkFxnqks135hMvL1QSYkbmw4lAtdZdO0OKIHmnS YlPMK3wPwsHQ5Vm5fRuPItEv91yz/syFOdzwF2I5sTbm1T8iFdMUpZ85znTm Aqf0oFexkn9niuyrpztuOu3rzBUd9k1Hv38zesPcPdZXSzS9Dld/YHS7OJXz CrSMskA0U212ep1W/SEf1SWxWZnOVTCauqtyvcFoNOo95rUTRlOPA1Nh3Vyc 1NHlEoSzD/XOsopBr9l4ZFO7xlDuczB0Z9qJBFehdHkov8pkPuRK6gJv0q+P T4fV25z0uxkPRthKpVwyHMFYKBQqPn09hJ1ucyFwTDpX47tjQRj322U2oTWy UM6fjzobbJuOduhNuubTqUgzTkxnXyqabBmZB7Vrn2yfyW/G0nQsCdw8iFt3 YuEjYudx7/0FL9F0lrRLCf3PuA5tpRNdp/Fqg53YeqfJdQ75V7vYeT5/JOfj HU4rbJqOoCRB+XY6whL7pjOTpq3GA3MT3fEGt5s7zlhDr5o1FA7GWa5V38yF 6U8kaCnHFATDRutI5euGiTFlMi1qzDqQBg9WL5gLxzN39Vc4u2Z3c6jQriQs MlcjhUb/BSLk1XJQPd3JdbuJYKfJTsymcx1KlGpYDLdpOjP1XNmcb8/4s8KB 6WhI08mo1+m01nR6g8med1VLk06zyXGrdOnRxFbHL04GrdUlzWarZ+8K490N eqt763Q6vd6A+B7ts+JoXl0ShpvXLfN8uz8U/f2kueL4pXBgV72FJIz7/e6S /nAszuA2Mog9CkeZDjgNCF0KUI8C1KMA9SjAdFwEoUsB6lGAehSgHgWYjosg dClAPQpQjwLUowDTcRGELgWoRwHqUYB6FGA6LoLQpQD1KEA9ClCPAkzHRRC6 FKAeBahHAepRgOm4CEKXAtSjAPUoQD0KMB0XQehSgHoUoB4FqEcBpuMiCF0K UI8C1KMA9SjAdFwEoUsB6lGAehSgHgWYjosgdClAPQpQjwLUowDTcRGELgWo RwHqUYB6FGA6LoLQpQD1KEA9ClCPwgAAAAAAAAAAPI3bs02+YyO724PdSwXq UYB6FKAeBZiOiyB0KUA9ClCPAtSjANNxEYQuBahHAepRgHoUYDougtClAPUo QD0KUI8CTMdFELoUoB4FqEcB6lGA6bgIQpcC1KMA9ShAPQowHRdB6FKAehSg HgWoRwGm4yIIXQpQjwLUowD1KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCP AtSjANNxEYQuBahHAepRgHoUYDougtClAPUoQD0KUI8CTMdFELoUoB4FqEcB 6lGA6bgIQpcC1KMA9ShAPQqvxHR6j0x4STTTEl28i5fGfuguZtJ42G+32/yK 7licnarw5XIm9XyCg25zPhPG/e5avXa7OxTE+Znv7fVzvtibCcON0t1uX5C8 qbR905k281e2iHLOjYPLhtfXhhvTIzvwS8RG6C76tVIiEjKrfB1juPGMUPji ObV6/sJOtznmK+mYhXpXVyH2qbvYLjzvl/b3C5FC+3w/54U5R+zNxzwTuTYK nch1pTP9CNdwYDocuz+oFI4xjmY2urmWg+lsIeUsG71CuT8/tvDFc2r1/IUt 9Yxd4BaRHK8vPesW9pVeGZWvTMdZ7In8HvUiDWGx62suEfumI424LMtmrcgX 82FNomjT+UgHprODWWEdutexdLnG9ceCKI75WiGiin3NCkcWvnhOrZ6/sK/e 8mm7UKl1h2NBGHf5GhNTrSjE6R7CVdOJpHMlE4VCrsJ7R+wTx57Eq38PJUtd QZrPZ+N2LakpXfDScOc0azqDx6AiD1M9ph7VdLRRkrTm+Hu6AGyE7ryWY2t9 U8SJnBKlkfbsuMIXz6nV8xd2Joi4Alvmx6a/S6WYLF+urWmrmk6h6/3x42lj r52T/3adrm0NaRb9pNKvspx4utt3mROYzpSLKsqEs5z58069eBMOaCOhYJR9 MC77KKYTb06nzQc2GlTLB1LZqmH0M2gUMyuKqzuWJlz1jmWY5X8z7N1AWv6h VcwyN/FlHUolgWA4Gmfyj4NXlqXgYDHXyLysNPzK8GAbd1T4Yngp9bwJQb0/ fcV1LE1H/0evctLYmynjn1DDZCxiQ17UCLG8qapLhWw6I1Yd5MSLprmxQT6u sxs9YbanG8YoprODcHakq5RjN5N5gexdfvuy4HKgtHftKdqYHPUrzwMhdGcl OVAj/OEm7qjwxfBS6nkTgnoCK69WXD+NtQdzjHTsYY499S/XDXM0zruyR3lo ho1mOlI1o1pOqmOcCxOLcZ1t3FWbrWb9TvOoAFNXixpMJxCMZlg2Ew/qrud2 Fd5hOoFoPMWulpvybOZGc774w+uZsjs+dOdt5XEp1j480HFS+HJ4IfU8imP1 Fktm424jrUwPXTMN/eeq6cQKtTbPLeHb3eFYnHtqDVzmpLGn2ZDFZO+srQyD YDorOnc3am9fHRk/nTazsoPcFLc+FFvKZVrKgeYj4VS9o41GOg8Z5StuVFPT m04gztRbvakoTiejTmc9fzbtcVzHOJE25eKmL3Wdo0O3wSiZMYmng23aUeEL 4mXU8yqO1Jv3y4bHu3SJN9j17uy163SJ89jS2UljT51euypYzEyO5WWdSMkz Gh5tOvptO1nOPGklFmVnsMigntSZzWeskqymJRIYHUGtZ/kthsJXzGPn8I1K kjidTsXJozwoe0VbgY4L3XGNUZuzfn6DXviyeAH1PIwj9WbtnMFImDInHSqz RbLipTHlaWOvqyW1RSpdbV1nMRP5inIJTGfSUHOk48WWVYmpmkWdyua3KTKK j7CKW+1Jme49pnYU3j1mWWUXFDM38WDQvKL0irKyjwhdqa09T6afzJlFxxe+ OM6tnrdxpt5sXKtUyuVSjk1ru08iBXG7TKPW6PaHgihK62e9YZfLJUKeFPzE sTfXstTWjhSKRGKR0PYuqVDB36YzYNS8sNSj9RKJpM6h7cOO6aiJAaaRjrV9 iJ2H8K7v232VKzgNXamtbfo2bM0jFr5Ezqqe5zl+VWIxZtUposrwYHF1Qsl7 +Vf2yx+MvYXIJ3dvJl3Zj6/XdMQHdVk+yOy8ZsqpPX80w2SsSKUy1Z48Vtnj I5OGPMDMNm2YjtjUJRkEM2zxsc61Wp3BZPSYCly06QgNbfoiluP2Tww5Knyh nE89P3C86awyqpR9oDkbhwxInNybem6CyGZh27G3GLYbpQLLMEw6zbC5Qo0f Ct3KtUct277pNLWMtOjexZFJVl5CydvJFtvjI4OqnEtgZ1ikFg7E84PtL36F hx7YD91+Ja3GbbJ8oKU7Kny5nEk9n0AxnVnbiemoSb8J7yzrvFjstZXlHqbh tfMcbJrOhMuqAhZb+/vuqWw6V4E7Uy61GYsTCWSkh7j6jYeHRcoWnuWwyLje 08pfqOnMG7mYKjvztH9Cw1Hhy+YM6vkIiulIyoy3HdNRs9qM2+0vmReKPbGh TLklh57RztHZa4Oq7qwbU4a0iZY6JgpmzLYjTVpsimkZU6bDhqMKJpySIxdg 1K/cYzpNZbdo6qG39XWjhrLGdFGmsxDLifXwevWPSKW7d37CUeHL58Tq+YyD 6i3GtWS60De/x0C36h0r99XSJSbHmw9PXgyZa1Phy+cFYm8ucAlV51L3+Ht9 fdg2nan+TM9MPsvugGHYxmZiS+rocgnC2Yd6pzcYDXrNxiObMo5r1CzoYDR1 V+WWBUej3mM+pV6fetRub4/piE11LBbIFKudXq/F1fMZ/WbSSzIdOQ1102wj bKVSLhWMBykWKvKOCUeFPcBp1fMbNtRT5tASTKXG9Yfj8bDfqOS0IyuvEtpJ ycoexlAsXX7iusvC4yH3VIrpC3vuWX1PAaextxA4Jp2r8d3Vsar9dplNaMqF ct45dm2NfdPJ7s0J08MoZ82Ince9FwXNpmNJ4OZBPwDaPRc32zqWx5pL2qdz 8Lj4Fdc5yXlhD3Ba9fyG3W5zNyX9TsYZv/cg/6uSt94Kc/LY26l2JOe9zWS2 TUd/ps0B1DSzFdLggb2x2C0Tz9zVtdeEtvJy7cGw0aZS+bpheUYpvONtcWIv GzcYT5B9WA54NlfFL+hEgoMvxlqHpZzA76iwBziten7j8ATRXKiV2FjI4p06 oRjLC4YBotQoMVavLLMsfPGcPPbMpnMdSpRq3jzGzv6aDglpOuh1Wq1Wp9Pp 9QZTcV9qgTgZtJpNjms2W73JsQYxHXSWVSzr6PRGr8ZkjFAWcwHUo2Bfvfn6 hcvdNf3hWJrte/LWF16WFvcWvlzOEHsLSRj3+7LI4syTbiPzQqYDrEC3SQHq UYB6FKAeBZiOiyB0KUA9ClCPAtSjANNxEYQuBahHAepRgHoUYDougtClAPUo QD0KUI8CTMdFELoUoB4FqEcB6lGA6bgIQpcC1KMA9ShAPQowHRdB6FKAehSg HgWoRwGm4yIIXQpQjwLUowD1KMB0XAShSwHqUYB6FKAeBZiOiyB0KUA9ClCP AtSjANNxEYQuBahHAepRgHoUYDougtClAPUoQD0KUI8CTMdFELoUoB4FqEcB 6lEYAAAAAAAAAICncXu2yXdsZHd7sHupQD0KUI8C1KMA03ERhC4FqEcB6lGA ehRgOi6C0KUA9ShAPQpQjwJMx0UQuhSgHgWoRwHqUYDpuAhClwLUowD1KEA9 CjAdF0HoUoB6FKAeBahHAabjIghdClCPAtSjAPUowHRcBKFLAepRgHoUoB4F mI6LIHQpQD0KUI8C1KMA03ERhC4FqEcB6lGAehRgOi6C0KUA9ShAPQpQjwJM x0UQuhSgHgWoRwHqUYDpuAhClwLUowD1KEA9CjAdF0HoUoB6FKAeBahHwSem 03tkwkuimZbo9q3oQOhSOEK9xXzF4kw3dFEcpZ4kDPvdNf3hWPKxkI7UW6rG c0sajQbX7o9ne2WbCcN2m+f59lJjQZqf4F5fH/ZNp5mPXpmJFqcv00HT4LLh 9e2GG6/pdu2E7rxfspBdR6TQ3pScdQv7S65JdL0SyI67zUU3tpYg155Zfm5f ag/gSD2xW2MSEYMa16ymBmLPEmnYSBtlWynHlHmzEvMxz0SuDUVDiVxXOscv cBP7psOxQYs4CrCTl+mgaTSzG8cMc5dmOgebc0hp+7N2zkbDj/DWPe7l4dB0 Zo3cxnOWpmPdjO1L7QFsq7fgFN2MauR0poPYMyE02C25QqEtR0k+6X1H5PfE XqQheGpQad90xFGv1eo0ijeyEtF8q9PqDC7Cc7xgOpF0rmSiUMhVeGFTciHw hVzBXKZUKJVLjD8b/p/FuJBOJhMxfXs/aDoHpfYANk2nXdAc5zrG1Pi+IAj9 bvupwBQaY7UYYs+EkFZ+dqLASbJpzIeNghqKBTUOJV4dD4WSpa4gzeezcbuW VIuGCl4a7jhd0xFb+Y0M4Wzz3H3yCfGA6RQIcxOLYUWO34h3otdWtznjjRMW NkyHIvWlYGtqd1hWRWNrw+O+yJ+xp07VXqdrho+EmmxH6lCxnYuohbeGNIt+ UtWfE0/7E1zEqelMm1nZdFhu6wNpUGQyS4rcSJq08pl4QJErHM/Ue+u+XhpV i0w4qH4SZO44aUcl4ojLprRKAuGbx5ZhVCW1ltWlbqJajYFgMBxPMY9N42+x Mh0Hl58JR6azq6u0gZQLyb+w1PfKs6bdZ/UZ/1SpVJ6enmolJmLTdAhSXww2 1Fs8KY/aycqRjuPb2NNGzYWu4SOJM5jOrCAHZqhhMhZRmaMLsfwJ799dTmY6 Uy5sfKLUE8w+FOOWH2Sqtiu5Yuv6m5yygZ0lo9mG/u6sTMfB5WfiZUY6IqfM LScqXnqCd7ims3xslB8+MdL5Y0c9sSHbxTV79EO2b2NPl5QSM6zISLy8/pV8 2sxPzkrKQKdhDsy5nP3ipRm2k5mOyG0ntwXiqQyTuTH364HlyIdh4mFtvFMd SXsqYZmULoNBn34mu0YgGE0xbL5YzGfZG63aq7ueNoraYzp2Lj8TjkwnVqi1 15mXfLs7HIu281XH6txyZezB5Uj75Q8OZMhSXxL2n9VjBV4Y8uUCm06nk8k0 wxbKT5xga9Ti59gTWW1i95qtcOLGdGfthPLHmmxGqulELNIqZ21lGATT2Wc6 cfZhoG6HGVW1wUvg5rE1Uj6QHhUzYRsTcyWpfH2i9vpiK6MYT/yuo9bQa3Kd kXHjDZeXR1TRvLbqZDm9Zv/yM+HIdExcp0vcwaY/rCSV0sa55UvnfKZznNSX xUH1+iXrpDVVk5wukcASn8feQmgYFEyk02pGC9tQk1LU6TVdaoHGWBYxUvJM BJ7cdIKMYWJKLMpGYtwjI6pVZTlDJcbKVwswxSul9K5cAEkSp9PppPMYNFVi J5Fgz+Vnwpbp7E9GTe6dtZh3lccqi+niS+f0pkOR+tI4qF63sN1lhiKxRCwS Cen/ZtVJKiD2lrZbttils46lhr5YV3Wdq0ilq4m1mIl8Rcn9g+nsNh1zX72r w7eoancls1kvs5n6Cmb1+QSTHldkM/Fw2DyPZ8d0bF5+JmyF7mzcqDW6/aEg itLaGYddLpfQ2n76aecDZ1tdoWS5E8fNK+DkpkOR+uKwbzoRpjwUNb9dzIY5 tY/cvdyD2OuWFNeNsbVaJR1TA2k12rlOVrQonGtZauvPQ5FILLK9recqVIDp 0E1HTRuwZzrTrDwCySvVTB8z+/IODpmOg8vPhNNuU0+DCSmNekdai8QpUe6d /RF6Tm86Ozgs9QVi33Qs0iq0UcyO0PJ97GmJBCFWnUebi8MKo40fI7rdtQuR T24NIrdY2Q/WdE5iOuZL9pnOhN02Hf2xPMF4pvhQ5ZqtTm806jwEbJiOo8vP BMV0tHa9Y9ytdpXmpE1v8GKmc1DqS8SG6ezJMJ8r80YxyyOFfB97C3VjZ6Fr FGhcU08qSPS3/HwxbDdKBZZhmHSaYXOFGj8UuvIuJ+898FyC6fRSskNsptcG 8mzbVSDf2L5zsWmuxHQPzi4/EyTTUXMprZJRF+MnNbC9mv/7cqazV+oL5aB6 ahqA1VF180psp+kg9nS5AVYJaVpSn8F0LFBnKZmG107DeP2mo56EcBW/WyWc qTt6wnlj/plkw3QcXn4mKKajdqHGXcwr5hVl+iNx/La+186Lmc5eqS+Vg+pp uXyJJ9OvFlllKGOaPUPs/dm/33M5clayqa3HiRrqVqmr5NAzkXfCY3DOajpS R02ZZjb51cp45Ooq1TNUmr8x26LxHhxefiYOd5uLcYnJ8WPz0+SQUZYZY+W+ 4UNd6m/aOyvfJpyajjrNbp7xWHGU1JfLYfV0q9uGLDVty6cpkQCxt4FXXNn8 oKIt9+zddTsXOMW9r2IlT81S2jcdcdThmq16Xj3wM9tsNZs94xabk5jO1VUg mmIf61yn0+Ee87qdPoyyz2eq/jUQzVSbnV6nVX/IR3VZaHun15xdfiYON3xl a1goli4/cd3heDweck/6HRSJvvERSDt4JF3zzpDcjD3TWYy73fbqBTB9riR3 oskS11+9Fqbd7ev2ih8j9QVjR72hOmhZPuyVOWGV0ic0SuqOT/OBYIg9mZnu NRmhdHkovxlnPuRKar6A/nChhcAx6VyN744FYdxvl1lN+atQzmMp5/ZN58Cr DURTKpqC2uEb32VjvsR4IoGBcH2gnRIw2T453KK0lemo9+Do8jNhw3T43Skt K0qml20IDSWxn3B6yUVgy3T2C3idk2yWtJL6orFn2dKeHaKRHGcwYcSennYp oZfrOrQVX9fprVcb7NwjFsl56yyHFfZNZ9dL3OQ1EbG52ckfNZ0+3ZT3+Meb huUTxWK0vf860wlvW1z4Jtsy7evsVbOG/TXBOMu16nFDtbNZSz74Laofbdm/ /EzYCF2pUWIiVr1hKMbygnkZclZWeokc76lO0oytbtOwA8LYovV7H5xKfdnY npycc6W06aTuSIkzT54h9owI7UrCIqIihYZpStxkOtehRKnmzUQMp2s650Wz odbyv6aTUW/FYCLuPgZNmnSaTY5b5TuPJs7fRU28nIb9VYn5TBorbwru9ofi /lfe+gOnazo28YnUztRbzDYvqm632/2x6E1FnOBIPUkYrl5AvaK9DKgd6i0k Ybye9V29ClycedJtZF6n6bzA1NZr4Ezdpk+AehSgHgWoRwGm4yIIXQpQjwLU owD1KLwu01G2zwRhOuAQUI8C1KMA9Si8LtOROkw0HA4HM9r7C7wMQpcC1KMA 9ShAPQqvy3R8BkKXAtSjAPUoQD0KMB0XQehSgHoUoB4FqEcBpuMiCF0KUI8C 1KMA9SjAdFwEoUsB6lGAehSgHgWYjosgdClAPQpQjwLUowDTcRGELgWoRwHq UYB6FGA6LoLQpQD1KEA9ClCPAkzHRRC6FKAeBahHAepRgOm4CEKXAtSjAPUo QD0KAwAAAAAAAADwKG6PtwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA cKn8f9TLvxE= "], {{0, 330}, {551, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{275.5, Automatic}, ImageSizeRaw->{551, 330}, PlotRange->{{0, 551}, {0, 330}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.763794055992066*^9, 3.763794086384117*^9, 3.763794158470454*^9, 3.764172271089376*^9, 3.7641869600986557`*^9, 3.764187003569416*^9, 3.764662749895351*^9, 3.764675083654933*^9, 3.765992031774016*^9, 3.7690865561106443`*^9, 3.769092495683869*^9, 3.769092979277651*^9}, CellLabel->"Out[1]=", CellID->890606172] }, Open ]], Cell["\<\ Here the different blocks (habitats) are compared using the animals present \ as characters. The arrangement of the table in this manner originated in the \ field of psychology, and was later adopted by numerical taxonomy.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7690884870234747`*^9, 3.769088548437335*^9}, 3.769089440345459*^9, {3.769089531270216*^9, 3.7690896094591703`*^9}, { 3.7748031528725376`*^9, 3.77480316000244*^9}}, CellID->840502074], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["MultisetSokalSneathDissimilarity", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " distance matrix of the blocks:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765965065254534*^9, 3.7659650808714*^9}, { 3.7659695010560207`*^9, 3.765969507767099*^9}, {3.765992124398637*^9, 3.765992127309889*^9}, 3.855143781601954*^9}, CellID->290916933], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DistanceMatrix", "[", RowBox[{ RowBox[{"Values", "@", RowBox[{"Transpose", "@", "blockData"}]}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}], "//", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "@", "#"}], ",", RowBox[{"MatrixForm", "@", RowBox[{"N", "@", "#"}]}]}], "}"}], ",", RowBox[{"Spacer", "[", "18", "]"}]}], "]"}], "&"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7637939849883327`*^9, 3.763793987927302*^9}, { 3.763794227704508*^9, 3.7637942663899813`*^9}, {3.764171571876173*^9, 3.764171619751583*^9}, {3.764171675816368*^9, 3.764171699452908*^9}, { 3.764172242189931*^9, 3.764172259850161*^9}, {3.764186925787054*^9, 3.7641869507039824`*^9}, 3.764662725094948*^9, 3.765992036924652*^9, 3.769089683459426*^9}, CellLabel->"In[2]:=", CellID->798992220], Cell[BoxData[ TemplateBox[{ TemplateBox[{18}, "Spacer1"], TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{"0", FractionBox["204", "241"], FractionBox["108", "247"], FractionBox["28", "61"]}, { FractionBox["204", "241"], "0", FractionBox["312", "349"], FractionBox["288", "325"]}, { FractionBox["108", "247"], FractionBox["312", "349"], "0", FractionBox["35", "73"]}, { FractionBox["28", "61"], FractionBox["288", "325"], FractionBox["35", "73"], "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{ "0.`", "0.8464730290456431`", "0.43724696356275305`", "0.45901639344262296`"}, { "0.8464730290456431`", "0.`", "0.8939828080229226`", "0.8861538461538462`"}, { "0.43724696356275305`", "0.8939828080229226`", "0.`", "0.4794520547945205`"}, { "0.45901639344262296`", "0.8861538461538462`", "0.4794520547945205`", "0.`"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, "RowWithSeparator"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.763794267882204*^9, {3.764171575632519*^9, 3.764171590150712*^9}, 3.764171620345476*^9, {3.76417167681861*^9, 3.764171699834133*^9}, { 3.764172264720859*^9, 3.764172275043002*^9}, {3.76418695191591*^9, 3.764186961326934*^9}, 3.764187005734375*^9, 3.764662750169091*^9, 3.764675084651516*^9, 3.765992038684819*^9, 3.769086556149939*^9, 3.7690924965660753`*^9, 3.769092980175311*^9}, CellLabel->"Out[2]=", CellID->666609762] }, Open ]], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " showing how the blocks cluster:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765965090797729*^9, 3.765965108525691*^9}, { 3.770999906428651*^9, 3.770999908958724*^9}}, CellID->532525120], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"Normal", "@", RowBox[{"Transpose", "@", "blockData"}]}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764172282605692*^9, 3.764172299092599*^9}, { 3.764172460908725*^9, 3.764172466731222*^9}, 3.76417250974174*^9, 3.764662725993594*^9, 3.765992042364509*^9, 3.7690897194755793`*^9}, CellLabel->"In[3]:=", CellID->903117063], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{9., 0.45901639344262296`}, {9., 0.8464730290456431}}, {{16, 0}, {16., 0.8464730290456431}}, {{9., 0.8464730290456431}, {16., 0.8464730290456431}}, {{6., 0.43724696356275305`}, {6., 0.45901639344262296`}}, {{12, 0}, {12., 0.45901639344262296`}}, {{6., 0.45901639344262296`}, {12., 0.45901639344262296`}}, {{4, 0}, {4., 0.43724696356275305`}}, {{8, 0}, { 8., 0.43724696356275305`}}, {{4., 0.43724696356275305`}, {8., 0.43724696356275305`}}}]}, InsetBox[ FrameBox[ TagBox["\<\"Block 1\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {4, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Block 3\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {8, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Block 4\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {12, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Block 2\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {16, 0}, Scaled[{0.5, 1}]]}, AlignmentPoint->Center, AspectRatio->NCache[2^Rational[-1, 2], 0.7071067811865475], Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.764172467837006*^9, 3.7641725110441313`*^9, 3.764187007040924*^9, 3.764662750221683*^9, 3.764675084753417*^9, 3.7659920431962748`*^9, 3.7690865561897163`*^9, 3.769092496635343*^9, 3.76909298024275*^9}, CellLabel->"Out[3]=", CellID->340704491] }, Open ]], Cell["\<\ The preceding analysis that compares the columns of the table is known as a \ Q-type (deriving from early factor analysis studies in the area of \ psychology). Conversely, comparing the rows is known as an R-type analysis \ and in this case compares the animals. Begin by first transposing the data \ table:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765984673000568*^9, 3.765984698405134*^9}, { 3.769089045982012*^9, 3.7690890564918623`*^9}, {3.7690891091309547`*^9, 3.769089116098812*^9}, {3.769089160914976*^9, 3.769089351227103*^9}, { 3.7748031691157618`*^9, 3.774803170611317*^9}, {3.774803233435747*^9, 3.774803235399165*^9}, {3.774861323704704*^9, 3.7748613312045135`*^9}}, CellID->270250122], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"speciesData", "=", RowBox[{"Dataset", "@", RowBox[{"Normal", "@", RowBox[{"Transpose", "@", "blockData"}]}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765984532102981*^9, 3.7659845709377213`*^9}}, CellLabel->"In[4]:=", CellID->259632918], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvT9oOl/c75ndbbbccttbC6m3SWG5WAjPZUlj42UfLxvIc8OTwEWsMk0Q voWmGYsECcEQIiQECy0ykDsEtFCSa67MTRAxgZFgwICNhcVv/TPnzOjMODPH ceL4fb+KH79vPM6ft59z3nPO+Zwz/+E//Zd/if2vW1tbh//76D//Ev2vwX// 92j8P/4fo3/8P/92+P/953/71//3//63o3/9z//67//Xf/rfRn/8P/+Xra1x +fH//wMAAAAAG7wBAAAAAAAAAACu0gesQEDvgeYMQDQoQIEUDMAxXQECeg80 ZwCiQQEKpGAAjukKENB7oDkDEA0KUCAFA3BMV4CA3gPNGYBoUIACKRiAY7oC BPQeaM4ARIMCFEjBABzTFSCg90BzBiAaFKBACgbgmK4AAb0HmjMA0aAABVIw AMd0BQjoPdCcAYgGBSiQggE4pitAQO+B5gxANChAgRQMwDFdAQJ6DzRnAKJB AQqkYACO6QoQ0HugOQMQDQpQIAUDcExXgIDeA80ZgGhQgAIpGIBjugIE9B5o zgBEgwIUSMEAHNMVIKD3QHMGIBoUoEAKBuCYrgABvQeaMwDRoAAFUjAAx3QF COg90JwBiAYFKJCCATimK0BA74HmDEA0KECBFAzAMV0BAnoPNGcAokEBCqRg AI7pCi4L+COdHSdG8IVX145pea6StPJzucqaBO2X9MSfJPanHB0ljs+k7+kn 8tPdWeKIfHCUOHOi8PvD2fhXOeZfv928Wmei/Xy1pNfnKa+v762Pr++fZc7u 6KbWQgG3WdFNsbEmNWhFrDR+Nls6D7Ah4NdNImbFcfVrWrY6LXt0UV35pXt5 LnO+W8+PI56qsu0meRnNRw52cnrxJMlLXvb7A6879lFl9CP+vPNHug/OKvaP XL2aXnqi8rXkNc5gt6Z/vRcu/uwbSpc4ubh7eLf/O2lwdFO/pcDX841lRVVq q/OmeEU3xYalFM83x0b3fbcG127NSuMHjrkkdlrvK2vHPFJ+3O/qNFITHriY l+cyp3pxNKOADVzR/HSZnvX3M21Q9o9Pr26uzk5Pjo546Ufb1OyfXlxdXZyd JI4cnev5SvlZqp47pvx8Z+iVWvaduD/F0U39lgJf1QvLijq9MIameEU3xYal FKRWzv32F8s+aHrCSuMHjrkkTvo7ibNR22rExVWpNX1y//sckyG8nWh+fFMo FSbc3Y2NTdMQJBh6CsrRSdOauJizj68r5QTHTx+MB/89x3w/VcU5Ort7fH1/ b7XeX58rpZuLk6N9csss0eILx/z5qF5dXBjW0Js77aDF8bPzyPGXY35/vL++ SpW7P+SOb16lV6nlC8OEY641DlrvxI11Pfttx/yZsPJTa3hVOmXHz6sYldVr /v1MWoHYncRomd/EMQvv8+dVHPOkxHbk/u/5ReuRjDPvjzvLej5eH//sj/qY Szmm2jszD7Vf7GWb0nqgz1pnjy2GAzhSYNXYlOL7VRmmTlw9e3BVbgHHXGcc tN5HV9Y/4ALHlKW7s5kJpuM/F9XWbJv/07o740fcVT++Rw/Mpye0/H7iz8Pr 7CMiOdfo+fHna3xw0o2I7R+dFKpzzcLP6+Pd2emf44Sm1FHi5PTs4Xm+AWlV 7sYXcVb4+PmRHu/+JGhjs39yVmipbUSrcMHTR/fRoRR4/qJQXdCSLKn5I7HM q2fy4c/7DT/RrTJ/L9/vT2enPH96VvlQRgGe7niq6glPrpi/+R//84mneh+d kA9Ob57Gtvojv95dnf05OT7aV/VLHJ+c3TzM/YYL6vvX6GJONH2d/SP+5vHD XptrYyBOOfJZZUFX4luTAuQgJMhNnTx/fT2XLo6P1MA8vXr8Mi5soID0NAon TSU4Or4o2R0qYG/rvqp0qD1xZfDAYOeqHCmg1CD+bqzjj1x9LFxMguzsYlx9 7MfSklJ8PV8pdz3XHGnamdHF3KhxH0uc8E/vk7v5+Xic5L9RUc7mKrWjxool 2LTx4+Dri0WDYy6Jk/4Ou2N+VG7MJpjOHjX9HJLMY8bFU0t/LjNOH7Q9qK8L 8ymu46uZwUna9hqzz79Pa85XxWiyRLmtBa32cpp/nJHxRfVpnyZB6Sbp6AAs 8REzHY7+25PxLNh04m/hHNmx1qPM/OK1cGry9ZOKDde075ijJyjLoy2UYnKQ 2ZAgN2VC4urDoPCcAq2bE5PzJS7ebTw2sLZ1H+qc3ok+9cXuVTlSgPwW+1eF uRSc8XS//VhaUgpTx7RoZ46uSncnhh/wj7YPMttYsQSbNn4cfH2xaHDMJXHQ eu+fSfKX/GGETH5aI8f8fr2jP25i9DxafX6uPl38odX46InWkXkT3D855S9m J+9Um9A55vGf0zNeW/iPZnROCbn9o+PTs4ub8aTghfa5uqBpHeYbh/FXxqkx 6nFLEy/+eb/6o3k6PT75M+Hk5Pj06smlPqaaq/Dz8/P18XpH7m//T0l9Hjfv 2tNG46I6PdL3w5mmMRg9DU8uefSAX//vDydaoU+Ue5kuLSGt3P7xyenFeFrs 5oLXjBiclOj9GvqF/HSmyvnn7OHp6bGgTW46nR8edi6aOiob2794sJOYzx4S o6/wFxe8Ri9t381IgW9NE5y4Kjw+vz4/FVQr2z97srxcprbu51FNfT7VDVY7 uComBfRoHdM6lpaUwtQxjdqZM94gxXo/MR6GOVGj4kgdE3HUWLEEm4Fj2vn6 YtHgmEvioPVexIJcWfr1/ZvqTDbJa0EZXjy+IbMMmiA8vXlS1wF8v9J6f1KQ 9IVHzXpLnV5R10eo45ajvz5XpY/5drR6czJ/Ddr6vn9S0ozuqisyEjf0uGQe M7GSeUxTTmYsxoFjaq95pM/cqDjJodXPn369V6u6edOvKmlx1WQSo/pO+8Wx 05KmA/jzTnvzf6zSca1F+36e7RfsJ47/nF3dPDxVpJbuh5+eniEkEqfapT1S idq0+nimV4D+Cvt/7mbqwPcrzU2xzMZhaOukAp30HjX18586uiomBSYHPzl7 en3/+v4ePW1L0mTY1XYsLSmFHcc8uSipQ8Efj2q12//z8EpV+XkgTnhB+8CO GiuWYJsZlbX/dTPgmK6wasekHcyEQVa/rDSkdOzRvOX/oR1VXWH9UKREHp21 NjF/wJ/vr68vWVIyIrRnpBH7NDeG9fOqHPfoStYVdnd1ibXm+yePtKo7dEza oM3rQweaNDdozFS+b/lBaR3U29fX92+6TvD4br7Ot0r75IyL9bNT079eSwtk O+ZvpIXnsBMSFV0m1h1pN6/IDesUoGUMgoT2vi+s8jyctnXa5ZlXBhXB2VUx KRA7e7CxLsk8lsxwyzF1TYepJt/0ULQr7aix0mEn2BZExIKvmwHHdAUnrfdJ 4enp0YiHx6qZ5dFIix2d3t3dqIxHY8jT6ZG1Y456eErCCm3MzQt/G9nECPm9 enfBnyQS+uEXexFrkJDj2eqS8QKTm5szXjvtRDaOcMsx6WOzoX+NUzju+D8n R0cG+lUXOaZyDWcGS1ZkMgj4xzDB1Ylo05O1Hq54gx+YhFrhdebOlg6J/vvD 6ZyYusLq88/p1c0sd2fEbhY83TlTQLmxipqTdmc4sevsqpgUMO8t2oulJaWw dEx9fTG7TYNDOWqsJiwZbDa/bgYc0xUctN5Mq0s040Lm0Nm6RUFIFj7QEVFn NvH1wC/qtq2pYxpq/i2dkVs5njaGq3fMb2lR922xY76qXX69RuoK0MUCOq3p P99y6/316aFwdXaamMnQ4sk4uyshoeaxmPYxf15t1AF3HbNFh8H3Tx+Mn0Qc XtVSCsxiP5aWlMJFx6TDL/YcU9dYLRtsDr5uBhzTFRy03kyrSzR5p8eTBHM9 p/zN07fJ1zWQzgiTY2p3zTo64e9Kj9XnV+n940NSRgXX1DFNNP9WZ6BKTqXo MzimZo+gccLgxd3DU/V1vCL84+F0f+729YKQXb8MTYGMzMf+LE7WWbKmSw80 9Wh/ut2GSyEx6swpR6aT5vOFNUmVx7xJHTjlH98tHkhtK/BdojksR2emaw8c XtVSCsxcnYNYWlIKNx1T/xUnjdWSwebo62bAMV1h1Y4pk+fPm1cbmTELBzqU oR8bo7I6m2iRJYj7N3MrFkn99Zdj/rwXlPvxxDFpGur+yU1r9mc0qN26v9AY MOxj0vFnd/uYOtTptsI468StkFDFMe+OybTHscx6f5sKPKv5r8cLJwSdXdVy ChgUthNLZqy9Y841VksGm7OvmwHHdIVVO6a69uqPddL4oqlJsn1H7KRg2SGd twn6OK0f5PxxzTGfLAbVVJbX/ONJaXaU1IVFSQg3c61Z37lj0oGC+dxaTarw AsekMbCvXc5GPrOZa2QpWqvy8LSom/ZTUJxkv/T+wxwSOg/6KRGDuns1647R kef9wuLJ2oXYaevkqhL5k+tZXF+dXdVyCqg4iiUz1twx5xurJdsfh183A47p CquexxxFD33k5Q0S535eHy7OdAtGdHt0SDRh+0yX3W3tmOpA0Ny6v+/qzR99 nXLkmK8kwZvXp++bsKTmX9LDfFIHrVP7vPYZ9Oejena8PyPFzA3adUw6KHRa mtHv56NC5sIWOaZmz5mJW2l4Iu3nkdWCREvRpptvn948Gq4kaan7M0zSUZhD YvbgcpW0jftnH/rCupnc2JHBDn4/8uvF6ZnlClJLBX5aj5qt8Kyj0dFVLakA xVEsmWGz2TfdJW+ljqlvrJZsfxx+3Qw4pis4aL3Hkw6GnE03vxpjFEXa5J/E 6dXTs9T6+HiXnh8LF9Pm/EgXhJNXalw8PFUlSao+aFZaaGqlk6FINS1w/5h/ fJbepden0s2xJueM2THVZODY8d3o3qTXx8LVxZ1Lu+SN6vqdws3N1cUZf6JN lFP9Ud2EfP/k4mm8R8TjFa+ZL1rOMTX3uM/fPUrv76/Vp5uZ4y90zPEf6W+4 f/X4/PX98/Uh3Z3SPxqsFnQqmnYN4PGfs8LD03iq512qPpXONAvtyY5AbCEx 3s2i8Fh9H0Xwx/vDjbqL0elDS1dYo8CPpEmzSVyVnqTRIVrvz5WHi1OzvptT BWZWJPGjaDFhVF0r0+rq5KqWVYDgKJZYpeh/f0jV59enG7qu9Or59fn53fph m8ExbTRWS7Y/zr6+WDQ45pLYab0dvO1Ln1E25vvhbNEh1BcwWWx8l3jSznx8 G55rchW6yTu5cmF+2PmDmA9AESlmhhDfDXZ/W/heIXc0PzrV2l3rwWwPutic FH2Nf9lej/lh+PYkrX769Ziz6n0s2GWNf7Dc8seOY9oIU75EL4opJIyZ2X/J RIFvzciA4aUt75g2BFCgAzX2r2p5BQgOYolVCqu3fZk3HaZXrv+Kk8ZqyfbH 0dcXiwbHXBJb/Z2FkTHhRJmUIPuuHOteFtCqlv7oFxLtJ/irwisdR9ME4eyK gFjiz9X8tIz5uehojGbPn/7749Xc6Y9OLqqvT8pBNJtmkIFW/Yt3v5TskeMb 7bX8fFTmU79nC8yxjOb7+0fHf/jCk8EY3nNh/iXRf66eJDJodqORj/b6b+Y0 pSsOTnRbDXy/X53MtUJHF6VR92Cq1QmdlSJjffpMnq+nG52t75+U5vesZhXt 5+u1Ujr7c2y4FnM/8Ue3OT9DSMSOEvMOc0ozvWlhMwV+WiWjt10nTox/UIcK fBvvhWqEtl7YvCpnCpjWoOmV2o0lVilM3yhNUiBMm45ns2tQ3/tgsEGZdWPl KNiM4sf+1xeLBsdcEo8F/JJb0uvrqzTivfXxpdvnUn0dyaTwx/uYlvy9TI6h hh9Zen6uVsep2R8y69slTZA/WuNrbX3IX24tE3DO18drdXx/z6/vbt/f5PAt aSLfs/RuOFtog295cogxr+8231syxoloP+PIkcaBNo61xfHjPCS+5dbr+Cus Iv98td6VSjCKly/bsb3aqurkqpZVYMIysbQWzT5DY7Vk+7Pc1+GYrrBeAq7H S6JXzXpp7hMgGhSgrIUUfmus4JiusF4C+i0I2VgvzX0CRIMClLWQwm+NFRzT FdZLQPqeR58EIRvrpblPgGhQgLIWUvitsYJjusJ6CfgjnR0nEokjvmDjlQe+ Zb009wkQDQpQ1kIKvzVWcExXgIDeA80ZgGhQgAIpGIBjugIE9B5ozgBEgwIU SMEAHNMVIKD3QHMGIBoUoEAKBuCYrgABvQeaMwDRoAAFUjAAx3QFCOg90JwB iAYFKJCCATimK0BA74HmDEA0KECBFAzAMV0BAnoPNGcAokEBCqRg4A0AAAAA AAAAAFgBv93f9TFTAf8BHgLNGYBoUIACKRiAY7oCYs97oDkDEA0KUCAFA3BM V0DseQ80ZwCiQQEKpGAAjukKiD3vgeYMQDQoQIEUDMAxXQGx5z3QnAGIBgUo kIIBOKYrIPa8B5ozANGgAAVSMADHdAXEnvdAcwYgGhSgQAoG4JiugNjzHmjO AESDAhRIwQAc0xUQe94DzRmAaFCAAikYgGO6AmLPe6A5AxANClAgBQNwTFdA 7HkPNGcAokEBCqRgAI7pCog974HmDEA0KECBFAzAMV0Bsec90JwBiAYFKJCC ATimKyD2vAeaMwDRoAAFUjAAx3QFxJ73QHMGIBoUoEAKBlbomL0Xbjc0InFZ dfnIM2dpJKOh0G4oyhV6bh2yO8bR0RhibzgYM7RbuCc3pfoEqdnu2f3eJuNA 80Ffbkv1Wq1SqdRq9abcHdj40kZq7ihQR/dfEUcIgiDWpHZ/EwRwoMCw32s3 pdokbCqVervbd6vwmgDHZMCJY3b40JYhgZ2d6GGy9PI5W1ycFt9Jig4tywnk LKPTfFqXtkGvvDs5XlLs2P+S49gb1iOTs6RrFjWrWy9ysfCc4NvJ2lK/+kZg R/N2JR+PBI1iNpi8r5s5wAZrbjNQe00hPi/AWAMuV7HzsLHO2FBgKBWzsbBB 2GxHOLHdX6LwemEnGAZS1rjRJ4QzSr3o1zOLS06I1X0eQI4cM2XimJTD6xe1 eFecWk9opY5JzrK1k3LgcKZ0CknleEnRgQM7dMy+kJ4a5sgxe+bFhiIpNkcw vQmt95LY0LyX3l5Y2dMV3Vc2XHM7gSoLyZkbDwZnVDy493WbZytsDB+yCDlp wFp4vbATDJY+GCRPkv1aenHJCeHKWj9EWMPUx9zlL68vJ5yf8ynucEcVJCR2 SXEfOWavkTrc24vuBjQ/rfuOOWxn4gcHsYi2/VngmLWM2nSPnleLFUmWZale u89wGaHtchz4EBua9zPT1iwYy+SL9WZbltv1SpFTf4GgOCv/xmtuQzQ5ThSI ZcSe0g8fNIUMVS2z6DFv3bEfNtuReK4oSm25221Xihm1z72dlBkLrxeOHDMc T2d1ZDLpfEW5v6FcyaQz+jLZTDaX5f5qxwzx3blPuuU9osj5C/nQR47ZEbRe uSrH7Ff0PR4zxxw0c+qVFJvu//D+x87wmphJ5ip6p+tlIwb6/w2aW4pGR+G2 48W5j+Si4qW+7m7bCJtBMZ0sSrqK2RWJD4Y1cymOCq8Xjhwzs8Rw6rCZV5q+ cMbHD1sTWBzTyJsKxDJTZfLhIsfsCOdcSONSO7uJQrVlfNpu4zp1GAoopQM7 oehh8lYkxmzumOJlMpHguMRhghes0ng6wrjTfH19fcsnQqtyzJFl3ufz+fv7 +2KWCy90zOH9gRJiB/nNbLqXx/HcsQYpqx8V/ys0txRN7VNk6nMf9cS/xDHN GOTIg1a+aWkfjgr/Do4cc+H80WLUgeustK5PD7Zh6mPqHbPFKYYWEuhnZo7Z KR/qe3QTojprawm8SVmSUGTimGU+SkvyookXG9Gr8itzTJUheZI3jsOuoITY drLr2k+9aSzR9MlJou99m6T//B2a2+9jbm1FBHkmN6pXUSaqDu59PEC9RNj0 s8pzbrhi7R6OCv8O3vQxuyKZFo/l1/TRwQlMfUw1K7XX63Va1XMykxnYu1YH bI0ds5VUZz13uPNboVQY9SDpn/auG+oBiHlNDh1NnV9fnqcOd5Xvh8wds3xO B4kD51Vng7WdcsoDx1z85EY/jWQqcrOSyyTj8fjBQZxLZnL3ouz7xzR3cNz0 DUf023U1C3SbE+iHf4nmNkTrJtXJg+1kXlSW4vRrMfLHouzjdSbsjjmokV5j pGbdxXRS+Jdw5JiRTLE2WWtUqdWb7a7ttVZtOi2eb/s4bCgsjmlKtKEtbuSY rRKZAg4kqprZ0LcCTc/be1H6mZ8p4q0h7lZre903kQuN7HbeMacOV708ZLbL /no4Jh0zNGE7vRFZKEviSPOBlJsTMZ6dWSjxl2huR7ShLMxpEYvHabZUUljb TBZbMDumwJGxxdi9ZdPvqPBv4cgx9TUinhUtHySb+QNSen5a3Ke46pjjnmDh bUHmj3oEvjqfPXS7p4y/JiczoWoHM8AZWpeyxYDGMUdHfLlW7fLSuV3218Mx 65nZFisYjsQi4dk1X77OV3QFR5rrU9+53Eye7F+iuU3RmjmD1ZhjDgTL7645 bI7ZLtJsT81IvhuFfxFbjrl4zcjBwoHWQZ2MSwSFTZnqYHJMdXXJeIEJz3OJ qGa2cVdZ+r/AMQOcfmbxkwx3712+aJ3r8HbhhVHHjPKi2lFltMv+mjlmmMs1 NfvTDPvNNG3JNnq6zQ7ONO+3i/l8LpdNJ+OqC4YzVMO/RHM7otWzpJ2LJItF 7RYQ437m9kHe188NDI7Zq6n9rLjVHK6jwr+LLSn6baEo1KWmPNkGrdfrNuti Oha0c481ssgmmBRdvvTfg8Ux9atLRnRfONJ/3D2fbIund8xuWUnHMcgd6nfE FPlwXL7MK06YWrz3zvQss+lBjrbrmb+MdXJMg9l29bHN9yubloR9QmrYTtIx M5IW+5dobimamvkTVBcSDrrNPKf2wcN/U65sr5bV3Lh+ywv2wr8Oew3SDDsH kya32RNJJfN9rdHC4pgmKx+7xGsCe9eTf+sck+5oZ+SYn4IylBGdGK6YtLfK g/YxNQSiPPOOeevhmAvWngzIgFlkbdd5ecMy9X1A11CQxv8v0dxKtGGRLLHJ 1OdvtV2kYzixNd7JxgJHYSML6phkJC0uHmB1VHgdWKYGqYYYzhrWCWqp+mVK vsZFx+w1Li0cs/+ZMj9Ct8wTOx2X/yRbdTlxTLWrGdi7NOgI22AdHJNOlxvt OjvIRzak9V6SZep7vzbvmH+J5lai9cmDg+G6e5r3+Fc4ppSnaZ5bBzmLbrWj wmvCUo45UHbGNlwzMmzf04crv28kO4eLjtkqJaYa7XDC+N9G85gk/XWnoJvI FFMzncoOXcWzd71o/wHqmIHDcaZu45q65k7iluFtJuvgmGp+mkGiXZeMKG7U WAcDy9T3Hoku6ph/iea2HdMwVaNHFp74+MnBXtgMBM32wtz94h0tHBVeI5Z6 5iT1ZTte1NWXQZ5MY8Q2bjMQt+YxOy+3NJE2ajaPqZmdDBzO+mCrRL5OzLSj dh5Twpy/9sTzxOHlzFnoSG+nrK7iDCUF+643heboqpsX2cBp7NHZIv3Y1/Tj A3ILc/mZ6nJg/2ehLIml5sN28SCekfSv9tLIG8lJ+j9usOaWolXo5g66llCd 4vSzDtZVddjNxSZPBuP/hPOGNZSt8JphQ4p2lktX9G9gGTa5bV0NImgWpMTX OvOJCRbHHJnTuQLPp5JcIqrd8C6QUA5kuINBV6TGGoimym+dXrfzIpyrf0yU aFlqryP2Urcvb623RrV0nYpOOqoL9vx5o6s+x/ZdtuF4vUa5LJbL5Wq1xCu7 H+zxpWq1PP5z9c2yr2rPMYfter02ftuiJGaV5vkgK0rjdzDW6tLMsvAmfUqb rIOQx2lqspBVR36Son8bLXew1Fwdeo1x+aIoNdvtpiTk05qFEzOji3+D5tai ad7uFIznmr2pQIOmmKX5kb7eRdBG2KSJA45CJ5nP57KZ+f3HM/nKwHnhdcO6 1erXppUlGInn7sX6qAa1m+K9dulyTJrvYap74sWL/l66a4gjx7R829fWzqE6 lknyfOZ2yWsJKfOvc43ZnievT+shBKZjv+r7MVPaUVTNwszZd5AZ35mwY3KW yZms37xpyzH7lUXvBdpOz47P9hYsqQ/7Ia9g1dht+szJzg+Jb77mdgK1lo1p b3w7OBO22/ENf9uXrfc8ktrqqPC6YcMxFzZZoxpUn78zmSRw+nogYgHO+pgm /hUI7OzuJS5Ls7sSkLUku6n5Xl63UTrUWVSUuzUypq5wyenKBqIJvtyanK1b VfqE0flUnzKv7pV3u7ibSA9iiFFm7xy2HFMz7mdAOKMb+xiI2bjudSfhrLh5 Qx0sWGs+kIvZZCRo8I7MYCRZkQ0b/g3X3Ob0gVzLxwzaynBGmB+C8x2WCli+ Q1lbWx0VXjdsBENPyHJGr8s2q0F9uv98em23010OJ47pMp+NF3FKudrqLB74 7HU+3xovYxpvn2xJsCvF6TymA4Z9uTkZt63VpHZ3A7o5bmFf80G/155oOB4R b7Z7fSsVN1dzR4Hak5u1ypSa1NwQHVZYVf0GWw0aVaGuZQ3aXH7RMTcJVEPv geYMQDQoQIEUDMAxXQGx5z3QnAGIBgUokIIBOKYrIPa8B5ozANGgAAVSMADH dAXEnvdAcwYgGhSgQAoG4JiugNjzHmjOAESDAhRIwQAc0xUQe94DzRmAaFCA AikYgGO6AmLPe6A5AxANClAgBQNwTFdA7HkPNGcAokEBCqRgAI7pCog974Hm DEA0KECBFAzAMV0Bsec90JwBiAYFKJCCATimKyD2vAeaMwDRoAAFUjAAx3QF xJ73QHMGIBoUoEAKBt4AAAAAAAAAAIAV8NtDmz5mKuBvDxj8XUBzBiAaFKBA CgbgmK6A2PMeaM4ARIMCFEjBABzTFRB73gPNGYBoUIACKRiAY7oCYs97oDkD EA0KUCAFA3BMV0DseQ80ZwCiQQEKpGAAjukKiD3vgeYMQDQoQIEUDMAxXQGx 5z3QnAGIBgUokIIBOKYrIPa8B5ozANGgAAVSMADHdAXEnvdAcwYgGhSgQAoG 4JiugNjzHmjOAESDAhRIwQAc0xUQe94DzRmAaFCAAikYgGO6AmLPe6A5AxAN ClAgBQNwTFdA7HkPNGcAokEBCqRgAI7pCog974HmDEA0KECBFAzAMV0Bsec9 0JwBiAYFKJCCgRU6Zu+F2w2NSFxWXT7yzFkayWgotBuKcoXekkfqfDZeqqIo CmPKjVbH/ncdxN6gL7eleq1WqVRqtXpT7g5W/BNvKgz1fTgYM1zRBfkB+6IN +712U6pNArVSqbe7/VVfmzdAAQpqEANOHLPDh7YMCezsRA+TpZfP2eLitPhO UnTsXvYhZxmd5tO6tCG96i0fDe0Y3NduotSw5Zt2Yq9dyccjQSP9gsn7+t8c hGw4ru/DemQid7pm3PQNpKxxfBPCmZo7l/572BBtKBWzsbBBoG5HOLHte9eA AhTUIAYcOWbKxDEph9cvavGuuDv5Y2iljknOsrWTctAnnOEzaeCWKufVruUh bMReL729MJbSFY9+8k3BYX3vC+lpdR/V955xiXpmcXgHkxtS3xcW6aUNH+sI OcnfgyJQgIIaxABTH3OXv7y+nHB+zqe4Q43hhERqL75xzE5qcgOB3cPz21K1 8dZqNYRbzdNBgLOUxkbs9TPTahiMZfLFerMty+16pchFqI8GReMwBMbYqu/D diZ+cBCLaJ9WLOt7OJ7O6shk0vmK7P5teIv9QN2OxHNFUWrL3W67UsyEqXzb SV+rAAUoqEEMsDhmiJ/vdHXLe0TM8xfyoW8cs3ub5G6rujHdVomYZki0OrSd oR4xk8xV2rq/97IRizgEhtiq7/2KvmdvWd8z9Q3pROixIdqgmE4WJZ1EXZFY RthkTM4fQAEKahADLI5p5E0FYpmpMvlwkWN2hHMuFFB/gp3dRKHaMjG0xnXq MBRQSgd2QtHD5K1IjNncMcXLZCLBcYnDBC8wJQV1z5VDb12+WAzMOp4R0CBl LcY6gCH2NO9X7vP5/P39fTHLhW3W9w3+IZYI1EGOPNrlmz5uD6EABTWIAaY+ pt4xW5xiaCGBfmbmmJ3yocYrtUR11tYSeJOyJKHIxDHLfJSW5EUTL7Z5v6Ob skoqWqIaykll0mT7vo30Hwc41XxI0hLwhMz01X5WaS/DFT83h1CAghrEAFMf U81K7fV6nVb1nMxkBvau1c6YsWO2NGk2O9z5rVAqjHqQ9E971w31AFVeNchA NHV+fXmeOtxVvh8yd8zyOR0kDpxXmQdryZG3dkWr3B/H1XA4ot+uC3Ey0LPN CSv7kTcTp5pbPgDTApFMsVYRR1Rq9Wa7u0nJ9Ox+MaiRDlak5ufmEApQUIMY YHFMU6INbXEjx2yVOGJlCW0K6lshST3zRelnfqaIt4a4W63tdd9ELjSy23nH nPp49fLQBbvs9wsJcvroteWgrqPYG0i5OeHi2cpGVEFPWV1917Edz4obMXPF 7hcCR/JHY/e+bv+gAAU1iAFXHXPcEyy8Lcj8UY/A65Zs3O4p46/JyUyo2sEM cIZjot3ezFlGjjk64su1apeXS9hl4zZBj3PdsJ4FdRR7/Vp6TjYuhzxZx7hf 33W/ywwH+Q14qmHzi3aRPOj6f+4AClBQgxhgckx1dcl4gQnPc4moZrZxV8ks XeCYAU4/s/gpKt3Mvcvxos5OOTX95+HtwgujjhnlRbWjupRdfoopejOH1w3r Lzgdle23i/l8LpdNJ+Pqwq9wprvKH3rzcL2+j34XoSjUpabcHT+O9XrdZl1M x9SfKH6vT3X2GQx+0atloMAmKUBBDWKAxTH1q0tGdF840n/cPZ9si6d3zG5Z SccxyB3qd4hPhVLj8mVeccLU4qUd07PMpgclLVeDmPMpqpOnoaRg81vskyPD dpIO9uSbbv+8m4z79d0EOhwXTPp+lwmnovVq6i4um7HJBhSgoAYxwOKYJisf u6RXGNi7nvxb55h0Rzsjx/wUlHGP6MRwxWSI2N/CRFU1P0clEOXZdszTTKdu 7SZL9teksDvmP/8M6LLftO83xPASz+r7Pz1RqfDhrN/nYhyJJgvqIFskLW7G WCQUoKAGMeCiY/YalxaO2f9MmR+hW+aJnY7LfwpJ546pdjUDe5fWe9vNokkZ 2to7d7brwjKO2a/BMVnwrr4PlO00t2K+n4ixL5qUj9PqcJDbnMiEAhTUIAZc dMxWScmW2eEmg5lG85gk/XWnoJvIFFMzncoOmdbc2luYqkodM3A4nnFsXFPX 3Enc2u4kdgtJ1XgT2t1x7bGMY/bIncIxHeFZfadf3I4X/d7LsCfagO4gOoK7 36jJAihAQQ1iwK15zM7LLU2kjZrNY2pmJwOHsz6obklHzLSjdh5Twpy/9sTz xOHlzFnoSG+n7HAistc6nyYujf8TuiyzzIFaxt6wXTyIZyT9q70G0gG52khO WuEvvXE4re/0xQqZutHI0LCd5dIV/Zsphk1ue3N+IGvRht1cbHLD4/+E84Za +RkoQEENYoDFMUfmdK7A86kkl4hqN7wLJJQDGe5g0BWpsQaiqfJbp9ftvAjn 6h8TJVqW2uuIvdTty1vrrVEtXaeik47qgj1/3uiqz7F9ly3uatrFm95BiBsn /6b4GVKp1KWweIzXMvbUodcYly+KUrPdbkpCPq1u77wV25RXIniEvfo+bNfr tXq9LkliVnk2OciKklQf/1mS1Sfefm36WwQj8dy9WB/9QO2meJ+NaH8gvz8f 2xBNWSAwbeLCyXw+l83Mb6idyft4+TAUoKAGMeDIMS3f9rW1c6jOOpI8n7ld 8lpCyvzr3OzaxxavT+shBKZjv+r7MVPa+U7NwszZd5Dp76psfj3qySxevmm3 GpqT3dydGFeErfreryx6cdN2umez5OgHqm/CD2QdqFYvbJrXzW9AAQpqEAPO +pgm/hUI7OzuJS5Ls7sSkLUku6n5Xl63UTrUvZIyyt0auVJXuOR0ZQPRBF9u Tc7WrSo74kXnU33KvLpX3u2b6ZTmzF58Zhgl92qxjr2BXMwmI0GDd2QGI8mK vAFPrF5jq75rBr0NCGc0Q0g9IcsZvUZ4o34gS9EsXwqs081nQAEKahADThzT ZT4bL+KUcrXVWZyk0+t8vjVexjTePp0mwXqA/RmBQb/Xbo5HNMbjHM12r+// cYpfwuksjE20P9DoF+pu1g+0ItF8BBSgoAYx8IuOuUmgGnoPNGcAokEBCqRg AI7pCog974HmDEA0KECBFAzAMV0Bsec90JwBiAYFKJCCATimKyD2vAeaMwDR oAAFUjAAx3QFxJ73QHMGIBoUoEAKBuCYroDY8x5ozgBEgwIUSMEAHNMVEHve A80ZgGhQgAIpGIBjugJiz3ugOQMQDQpQIAUDcExXQOx5DzRnAKJBAQqkYACO 6QqIPe+B5gxANChAgRQMwDFdAbHnPdCcAYgGBSiQggE4pisg9rwHmjMA0aAA BVIw8AYAAAAAAAAAAKyA3x7a9DFTAX97wODvApozANGgAAVSMADHdAXEnvdA cwYgGhSgQAoG4JiugNjzHmjOAESDAhRIwQAc0xUQe94DzRmAaFCAAikYgGO6 AmLPe6A5AxANClAgBQNwTFdA7HkPNGcAokEBCqRgAI7pCog974HmDEA0KECB FAzAMV0Bsec90JwBiAYFKJCCATimKyD2vAeaMwDRoAAFUjAAx3QFxJ73QHMG IBoUoEAKBuCYroDY8x5ozgBEgwIUSMEAHNMVEHveA80ZgGhQgAIpGIBjugJi z3ugOQMQDQpQIAUDcExXQOx5DzRnAKJBAQqkYACO6QqIPe+B5gxANChAgRQM rNAxey/cbmhE4rLq8pFnztJIRkOh3VCUK/SWPFS389aolkVREARRLL+8tbq2 v8oQe8PBmKFVsb7crNUqlUqtXpfk3oD5h948mDTvyU2pPkFqtnuG8g/6cluq T0Wv1Ztyd5NEdyTaRsaeAwU2OhL+WV0N2micOGaHD20ZEtjZiR4mSy+fs8XF afGdpOjcvWxDzjI6zad1aWMawuXh7o7Rne1w12U7Ruw49ob1yOQE6VrfrMig XeHC23MXFIyl6z0XfvcNwJHm3XqRi4XnxNxO1rRl2pV8PBI0CoNg8r6+GU2D TdE2OPbsKOAoEgZS1rhZJIQzNePT/Dbu1qB+PbNYhwmxus8fOxw5ZsrEMSmH 1y9q8a64O/ljaKWOSc6ytZPqMB7iMxlYdFOhpGB5CIeO2RfSU8McOaZxG9St LAi/sCBvRvu9FLY1H4pE7TmCaW1T1kvPW8Ss6OnKqu7EQ+yIttmxZ0MBZ5Fg 6RTBpN8d01YN6tfSi3WYilcx7SL4A6Y+5i5/eX054fycT3GHmu5ZSKRDmb5x zE5qegM70dTlbfml8fbWKAu3iV3qozslq+6rrdgbtjPxg4NYRFsdjR2zV6EP c8GDbF3uDQb9dq14QL8ZzPj/YX9ZbNb3Wkat7NsRrliRZFmW6rX7DJcR2pqC /cy0VxGMZfLFerMty+16pcipP1dQ9L/o1qJteuzZCBtnkUAdMxxPZ3VkMul8 RV7xPTHibg0aypVMOqNXIJvJ5rLcX+2YIX5+gq9b3iOKnL+QD33jmL1SijsX Grq/f/LKobeSooVl2oq9fkX/6GromLW00mhtx4szD/RD6WCLXlLXxTDwI3Y0 HzRzVOpksbmw7FDMJHOVtu7vvWxk0Y/lLyxF2/jYsxE2ziKBOmbGbwOObtcg U4bNvNL0hf39uPUPm2MaeVOBWGaqTD5c5Jgd4ZwLacZCd3YThWrL+LTdxnXq MBRQSgd2QtHD5K1IjNncMcXLZCLBcYnDBC+wJQVViWW645gjy7zP5/P39/fF LBc2b4T7GeXDoKBrmbpCUvksuQmDhMtgp+m7J12jgzxjZR8hZS2G0H2ElWib H3sOJ1BmMIwE6pi+Cw+valAvTeaEs5LPe5iMfUy9Y7Y4xdBCAv3MzDE75UOT ecOoztpaAm82x6gkFJk4ZpmP0pK8aOLFFrxxynBz4LphYblOq+GQZAsYOmaW POYL+g8HSsqQ3wfHlsda866g1NTt5BKdIjlJjnLf9vcU3j82HHPjY28JxzSO hE3uY7pRg7qi8qC1Fcv7TCAjmPqYalZqr9frtKrnZCYzsHetDtgaO2Yrqc56 7nDnt0KpMOpB0j/tXaujo90qrxpkIJo6v748T9Gk1pC5Y5bP6SBx4LzqcLC2 N76nRrlALyqQKFh+yWk1XPhcSlutsEEibb9GOgE+brVcwVJzKnIkU5GblVwm GY/HDw7iXDKTuxflxU+7wxH9dl2Ik1m9bU5w9/p/BduOubGx59gxrSJBE2bF WkUcUanVm+3u+i+8WG0NUmjHSVuc9/8D5z8urS4hRGfmAo0cs1UiU8CBRFUz G/pWIM8hW3svSn/uM0W8NcTdam2v+yZyoZHdzjvm1Merl4fMdtmtns/d0iEv 2FmV6a5jkpGxrYzBp21lOimc9f0Ax3JYak7H0EzYTgv6uaoxAyk3VzSerWzA 4/E/DkZlNzb2HFVVO5Fgniu7Hc+K6yzU6moQpZk/IFoUXb32X8NVxxz3BAtv CzJ/1CPw1Xkjut1Txl+Tk5lQtYMZ4AwnEbu9mbOMHHN0xJdr1S4vnfYux4s7 qXErJM4t82THuOqY/9Rps7UVztfV4ZBhv1vJk0cOP7darmCpeT0zW9+D4Ugs Eg7PrLMz8gWDPHkutwF5smNsiLbhseeoqtqJBItVFQfrOxS5uhqkMKjHyDf1 0+I+hckx1dUl4wUmPM8loprZxl2xM+NlBo4Z4PQzi5/ErfYux4s6O+XU9J+H twsvjDpmlBfVjiqLXU4usHE7WTKT1C6ZCaUs50HddczRoy3NSxyzHQyHI+Hg bKZtMOPfVssV7Nf3MJdravZrGfabaWoLhhM0/XYxn8/lsulkXG0dwpkNqPTW gbrpseesqtqJhH5bKAp1qSl3x0/xvV63WRfTMbV4/N6iI/ZbrLAGTajRNLKk 6OqF/yYsjqlfXTJ2rheO9B93z6taL1Mds1uOEg/S+1lHTJEPx+XLJE81JS70 vulZZtODkou/YpNeg2T+bEUvXxaXddkxRzHZrRwYbjoyDdItf88luYL9+m6Q kqE+/VotEBu2Sb7HVmyJhNs1wU6gbnbsOZ7HpDiMBIELEr9Y09Ti1dagnhhc XMCfsDimycrHLukVBvauJ//WOSbd0c7IMT8FZcwnOjFcMRki9rdwWJT2MTUE ojzzjnmGd2S5pNR1x5wwbNaEbCbJcVw8ziXTmWKlKdeVlU1rWw09w/4Ao5HI g5zyYcR8n0JSlC5RT6/p5i32sR2oGxt77I7pNBKoZazrIPZKaxB9YAhn6q5d 8RrgomP2GpcWjtn/TJkfoVvmiZ2Oy3+SxV9OHFPtagb2Lu3vo26G2u39Hcc0 gA50cMKabiTiGZaa06wDo817B/mIXcfs1/5CxzRgM2JvGQWcRQJdjLOuqypW V4OG7XvSEvt+I9k5XHTMVikx1WiHm2zEajSPSdJfdwq6qUExNdOpVJNw9q4X LYakjhk4HGfqNq7Vve0St0u+zeSTZPaui2PS5VFbB81NyNReCkvN1STG2L1O rS4ZYbMeMuqRUPyrHXNTYm8Zx3QUCTT85ndPWhtWVoMGeTJiuwETGXO4NY/Z ebmlibRRs3lMzexk4HDWB1sl8nViph2185gS5vy1J54nDi9nzkJHejtldRWn nU3Ue43bvcNUVf9qr26VrupUZmbNcVoN6fsOMnW7AzYDWSRhuBXJbtRABxvW mmuSWOYy+tRV1SRvYdguHsQzkv6FTpqDRHKSq3fwC7D5xSbFnqUCziJh2M5y 6Upb38tqctvrHjbu1iCKZrlNfE1znpaAxTFH5nSuwPOpJJeIaje8CySUAxnu YNAVqbEGoqnyW6fX7bwI5+ofEyValtrriL3U7ctb661RLV2nopOO6oI9f97o qs+xfZct7ooOvUYTl7el6kuj8VItXCY1K2miuqUwbI45bNfrtfGL5SQxq0Ti QVaUxq+bq9WlmXdCDGWRi6eLlfp4G2iplkvG1MsJpjcgaXN57GjezKu6cTlR HucyykKWLqpWt0hVB9xiXL4oSs12uykJ+bTm/UYxyf/jS3ZE2+zYs+5YOYoE sqtDMBLP3Yv1UeF2U7zXrmOMSevZw3S7BhHUPfHiRR+P3pvhyDEt3/a1tXOo zjqSPJ+5Ic2WkDL/Oje7HV2L16f1EALTsV/1/Zgp7XynZmHm7DvIDBxzfg3m HLzVprJ2HbNfMc9AHK8G1j7DmS7yCqc3YucMF7D3lNJbsAg7nBaplpbvKsr6 bddQQ+yIttmxZ8MxnUTC4ko9KrzGrxR1twZNkUkC53JbU64vzvqYJv4VCOzs 7iUuS7NdMbKWZDc138vrNkqHuhc4R7lbI2fqCpecrmwgmuDL03FUOnYanU/1 KfPqXnm3b+ZTmt23W57b3THYv3ZnlxPebCUQ2Yq9uZVu88E3s8ZNX223g7Fs ccNm0ZfC9gDjQMzGdW+NCWfF2RGjgVzMJiNBgzcjBiPJirwhwrM55ibFno2h SEeR0BOyXNjINdc/bFyuQWP6Ofp6l8r6PiosgxPHdJnPxos4pVxtdRYn6fQ6 n2+NlzGNt8/lk2AN6XZGV1QtT6i+ND4tLmkGtumhhQx7cnsyYFuXmu1uf62r 3q/gTPNhX25Ohr9rNandXdBVGvR77UnJqfK9vv+7VRpsTh9scOzZDxtHkaAt PCrd9UPYrKgGbTa/6JibxAocE1gAzRmAaFCAAikYgGO6AmLPe6A5AxANClAg BQNwTFdA7HkPNGcAokEBCqRgAI7pCog974HmDEA0KECBFAzAMV0Bsec90JwB iAYFKJCCATimKyD2vAeaMwDRoAAFUjAAx3QFxJ73QHMGIBoUoEAKBuCYroDY 8x5ozgBEgwIUSMEAHNMVEHveA80ZgGhQgAIpGIBjugJiz3ugOQMQDQpQIAUD cExXQOx5DzRnAKJBAQqkYACO6QqIPe+B5gxANChAgRQMvAEAAAAAAAAAACvg t4c2fcxUwN8eMPi7gOYMQDQoQIEUDMAxXQGx5z3QnAGIBgUokIIBOKYrIPa8 B5ozANGgAAVSMADHdAXEnvdAcwYgGhSgQAoG4JiugNjzHmjOAESDAhRIwQAc 0xUQe94DzRmAaFCAAikYgGO6AmLPe6A5AxANClAgBQNwTFdA7HkPNGcAokEB CqRgAI7pCog974HmDEA0KECBFAzAMV0Bsec90JwBiAYFKJCCATimKyD2vAea MwDRoAAFUjAAx3QFxJ73QHMGIBoUoEAKBuCYroDY8x5ozgBEgwIUSMEAHNMV EHveA80ZgGhQgAIpGIBjugJiz3ugOQMQDQpQIAUDK3TM3gu3GxqRuKy6fOSZ szSS0VBoNxTlCr0VnsYC+7E37PfaTalWq1XG1Nvdvq1vDXpyU6pPkJrt3mC4 3M++CTio74O+3JbqE81rtXpT7g4WFh/2u826Urgt99y42HUBjeTqqmpfbk5D bFRH5d7iEFsLHAXDqAGqiCMEQRBrUru/sAXynRT2ceKYHT60ZUhgZyd6mCy9 fM4WF6fFd5LiypxKPcvoNJ/Wpe3yKaSUe9vlOzbK24i9oVTMxsJBvXrbEU5s m1bGbr3IxcLzX0nWXI8E32Gnvrcr+XjEQPOtrWDyvm5Q6Yft7MG82lvBg2LT 1oPN+mMpWr+eMa7kM8Tqvm0FV1FVB+0KF96ej5pYur7eT1s2HbPXFOK6OjES g8tV9FHgUyns48gxUyaOSTm8flGLd8XdyR9DK3VMcpatnZQda7NDr3EdoLe0 k7JjxDZir5c2bLkJOUkffUMxHTEsHEzDMe3U9156vu7OEE5XZsvLSdPfaLvY 3oR+vbVj1tKLJCPKVXz7BOF6Ve1WFjxjhAV5fcPGjmPKQlJ7P8FgcKZKHdxr tfCvFPZh6mPu8pfXlxPOz/kUd7ijyhISu6S4Tx2zQw7o5LA2Yq+fmVTD7Ug8 VxSlttzttivFjPrstp2UZ79Qy6h2OXq4LVYkWZaleu0+w2WE9gpjwifY13z0 jJvJF+vNtiy365UiF6GVPihqHn3rWSp4JF+ReqPgalbStHAwswGPyZaiDeVK Jp3J6slkc1mOtn4b7ZhOqmqvQv8ePMjW5d5g0G/XigdqiK1v2NiQQo6T+4hl xJ7ieIOmkKH3l6mR+/OzFPZhccwQ3537pFveI6qcv5APfemYjcS4e6l0MQNu OuagmE4WJV3IdEUSZuGaphUaNHO0giaLTdd/9w3AzvCamEnmKvqnix71xjSt 7/+0SeOwfT/TnZQ5UuXz/u9mLjOPOWzmFSXCPm763K2qtbTyt+14cSY4htIB rb9i173LdxNLKQZSlt7d3EdyUakudLzL11LYh8UxjUykQCwzVSYfLnLMjnDO hdShz62d3USh2jI+bbdxnToMBYiL7YSih8lbkRizuWOKl8lEguMShwlesJcU 1DmPKtezl0w6MuIlGqJBjrTe+SYd4Rjekyezgzzs0phlGn+JWCZ1zGE7r9T3 g+KcL3YFpW8Vy0nLXfLvs4Ro6lhlVvJtD3MpBfRVtU96nkFBZwVdMp4ZTFZ0 h1oL7E9qhzP1uY964pxj+lsK+zD1MfUm0uIUQwsJ9DMzx+yUDzVeqSWqs7aW wJuUJQlFJo5Z5qO0JC+aePEsJY7kEHGlfr/qlWP2s0qkhSv0qbYrKI3TdtL3 z2QrYwnN6Xyl2p1s38fNbHEoF0nfKutjq5jALFpXJPNZsbxvs37GuFpV6V+2 BX2ve1BXDHZdRyPt9zG3tiJzs5C9ijLffXA/HcPxtxT2YepjqlmpvV6v06qe k5nMwN61OmBr7JitpDrrucOd3wqlwqgHSf+0d91QD1DlVYMMRFPn15fnqcNd 5fshc8csn9NB4sB51dZg7csl+co0ObZLU3BX7JiDGnlujdRIS0Qf7SKZitys 5DLJeDx+cBDnkpncvSj7vdV2CceaD0f023U18W+bE+iHNfKInKnr9N24+u78 e3TI2vdD065WVdVDa/pa2a+F1ztsbEjRTaqJPtvJvKisy+rXYuSPRcVJ/S2F fVgc05RoQ1vcyDFbJZI8EEhUNbOhbwWakbX3ovQzP1PEW0Pcrda2um/iqDu4 w8075tTHq5eHTu3yk+aDBRKN3szFr9oxBY4MdcXuaUskZY1TZGnoppH547Dp G0i5ORHj2Znc+HpmfpxW8+XaX+6YzbwyE6Wfz/IdrlZVOhSpSYBRaSuqrevQ hB0phrIw1xjF4nGaDZcUaA6Uv6Wwj6uOOe4JFt4WZP6oR+Cr89lDt3vK+Gty MhOqdjADnOH6jq7O2kZHfLlW7fLSnl1q1pLsCvRMnjhmu0iTD2eyTeqZ2SAN hiOxSHh2gZhRWP5dONJcv2iCy2nzZBc6Jn1C3pT67uw7gzrpUBhMUfkOt6sq zQ8N5+uqOsN+t5InX1nXsLEpRTNnsBpzzIGgLeZrKezD5Jjq6pLxAhOe5xJR zWzjrtiZMR0Dxwxw+pnFTzJRsnc5XtTZKSt7CBzeLrwwam1RXlQ7qnbtUrOW ZOe2oZlE7ZWVv+sTg41gqIa9mrp2KX4/02ekrXeYyzU1+9MM+800jcq/forT meb9djGfz+Wy6WRcffIIZ6iGcEwz6Hh1MCmu6Kq8xN2q+s9ATQSd1MpgOBwJ z65Z3Apm1jNs7EhRz5LHpUiyWNTuBzK+x+2DvFpb/CyFfVgc09BEui8kcWZr 97yq9TLVMbtlJR3HIHdo5F0p8uG4fJlXLCslLvS+6Vlm04OSi78yc1JisnuX 1WpZVCiLBbLnz1b0tlwWhfLbQuN0Wg17NTqlrl9Hr7beGf3WKuoDv4/XxLkC +4TUsE13KoiRVGSbo7J+l9yxaD0xuFnx5m5VHTHsVg7MdzzY3lrfwXxLKdTM n6C6BHXQbeY5dRAsrNlNxb9S2IfFMU0GKrukVxjYu1a9TOuYdEc7I8f8JDn8 0YnhikmlbFJcuOlOd3bDgekFRHmbO+bRnqwlnLDokI6qoSyoI4SRtKhPpKDj Gwat9z8DMkYSMZhh/5tgd8zxcwdJm6eryZD5YwSdvNOvL/Ap7lZVwrBZE7KZ JMdx8TiXTGeKlaZcV5avru2SCisphnT3AX2laBfpgF5sdg8kX0phHxcds9e4 tHDM/mfK/AjdsjJxOe1j0mwcJ46pdjUDe5d2RlPtO+bifqv9aijladbh1kHO eLM7mmiRNjDFQT4CxxyzjGP2a/OOqa4u0S2AHbbv/87VJaMbp62ifzeSncPd qroA+gzGCbJ16d/ASgqazGOU/qqmT8cMNvicZf2lsI+LjtkqJaay7HCC1su0 85gk/XWnoJvIFFMznUrNeOn1ov0HqGMGDseZupotYXcSt3Y2Luga0Ou2CmTB DPfW643+tPgg9qrhQNDsE8vdm25NoO6GrUmgJXTJiOKGjJIxs4xj9kh0Ucek OxhsHcxrTrc3ifxdOxgM8mQCQP8U4V/craqm0CXVWwfNdV2OY9sxDTO+emTh idWjux+ksI9b85idl1uaSBs1m8fUzE4GDmd9sFUiXydmqtnfNSXM+WtPPE8c Xs6chY70dsrqKs5QUrC6KRN0h12MdTUcdnOxSYSN/xPO64f+tGjm0OdyYtWF 5Mj8sdJ82C4exDOS/tVeGnk1Jmhjl7ym7zta9h1T8xKT+CatZXK5qhoxkMUY DbDs+o5mW0pRoTt9xOc3wlKnOBc2RH6Rwj4sjjlykXMFnk8luURUu+FdIPE2 azozOxjQnQEmexKU3zq9budFOFf/mCjRstReR+ylbl/eWm+Nauk6FZ10/xbs +fNGV32O7bts1yW1uL26RFndMG17w8l8Pped2+46k8nk1RWCTfp8P1kHIY8e L3qykFWHiTZgh8YlsaE5GXqNcfmiKDXb7aYk5NOaXPmZASXtTuw5cbwTu9ys JNWd2NN+n8T8x4FjqnvixYu+H0nT4npVHcoiF08XK/XxRv9SLZdUa+4oZta5 llpLoe75sxWM55rKmy4HTTFLE3y023j6Vwr7OHJMy7d9be0cqrOOJM9nbpe8 lmA+dbjDNWZ7nrw+rYcQmI79qu/HnHktl2Zh5uw7yGxiclgzrGPPzmsHt7Vt cm/BNgbhRUkIfwt2mz5zsvOJVQve9rVR7yqyLCaTNLzNG8pwvaqahlk4vebb I9kJhlo2NnPfwZkash2feduXf6Wwj7M+pol/BQI7u3uJy9LsrgRkLcluar6X 122UtG8ImxLlbo28qStccrqygWiCL7cmZ+tWle3tovOpPmVe3Svv9s3eXuzq aclhd89d6WNqdmg0Jzy3eGEgZuO6FzyGs+ImDZKxY13fB3Ixm4wEDd6RGYwk K7LREOuwndW/PTfM1XobUuHtOWafbjmermxAx3oG16uq3ia2g7Fs0QepUnYf n2r5mMGTZDgjzE/r+1cK+zhxTJf5bLyQ5Y/VVmexo/U6n2+NlzGNt087SbAe Y396yDHDvtyU6vV6rVaT2t0NabjdwL7mg36vPdFwhNRs9/oWKg773anklUql 3tyoPtYKA9UnrECBYU9uS5ISXd2+b/zBkRQ9uTmuD2NqUtOsIfKrFPb5Rcfc JNAQeQ80ZwCiQQEKpGAAjukKiD3vgeYMQDQoQIEUDMAxXQGx5z3QnAGIBgUo kIIBOKYrIPa8B5ozANGgAAVSMADHdAXEnvdAcwYgGhSgQAoG4JiugNjzHmjO AESDAhRIwQAc0xUQe94DzRmAaFCAAikYgGO6AmLPe6A5AxANClAgBQNwTFdA 7HkPNGcAokEBCqRgAI7pCog974HmDEA0KECBFAzAMV0Bsec90JwBiAYFKJCC ATimKyD2vAeaMwDRoAAFUjDwBgAAAAAAAAAAuMpv93QBAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+I//H1nB9FE= "], {{0, 280}, {614, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{307., Automatic}, ImageSizeRaw->{614, 280}, PlotRange->{{0, 614}, {0, 280}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.765984541364007*^9, 3.765984571710308*^9}, 3.7659920487185*^9, 3.769086556226892*^9, 3.769092496690304*^9, 3.769092980292495*^9}, CellLabel->"Out[4]=", CellID->244542961] }, Open ]], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " shows that elephants and zebras, for example, are distributed similarly:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765965090797729*^9, 3.765965108525691*^9}, { 3.7659847563325577`*^9, 3.765984781971212*^9}, 3.765992142597083*^9, { 3.770999921300302*^9, 3.7709999252833776`*^9}}, CellID->89333766], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"Normal", "@", RowBox[{"Transpose", "@", "speciesData"}]}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764172282605692*^9, 3.764172299092599*^9}, { 3.764172460908725*^9, 3.764172466731222*^9}, 3.76417250974174*^9, 3.7645223885369167`*^9, 3.765984517665592*^9, {3.765984728501598*^9, 3.765984730396904*^9}, {3.765992060458878*^9, 3.765992063584276*^9}, { 3.769089865837226*^9, 3.7690898712818613`*^9}}, CellLabel->"In[5]:=", CellID->91733459], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{12.5, 0.56}, {12.5, 0.7450980392156863}}, {{25, 0}, {25., 0.7450980392156863}}, {{12.5, 0.7450980392156863}, {25., 0.7450980392156863}}, {{7.5, 0.45217391304347826`}, {7.5, 0.56}}, {{17.5, 0.5384615384615384}, {17.5, 0.56}}, {{7.5, 0.56}, {17.5, 0.56}}, {{5, 0}, {5., 0.45217391304347826`}}, {{10, 0}, {10., 0.45217391304347826`}}, {{5., 0.45217391304347826`}, {10., 0.45217391304347826`}}, {{15, 0}, {15., 0.5384615384615384}}, {{20, 0}, {20., 0.5384615384615384}}, {{15., 0.5384615384615384}, {20., 0.5384615384615384}}}]}, InsetBox[ FrameBox[ TagBox["\<\"Elephant\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {5, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Zebra\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {10, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Buffalo\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {15, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Impala\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {20, 0}, Scaled[{0.5, 1}]], InsetBox[ FrameBox[ TagBox["\<\"Sable\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {25, 0}, Scaled[{0.5, 1}]]}, AlignmentPoint->Center, AspectRatio->NCache[2^Rational[-1, 2], 0.7071067811865475], Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.765984731097087*^9, {3.7659920537798986`*^9, 3.765992064478362*^9}, 3.769086556266161*^9, 3.76909249691623*^9, 3.769092980385048*^9}, CellLabel->"Out[5]=", CellID->231743670] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Taxonomy", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.766047780286579*^9, 3.7660477839264507`*^9}}, CellID->163662699], Cell["\<\ This application uses the chemical composition of flower parts from Hawaiian \ anthurium plants to classify different species and commercial cultivars. Load the data:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7690872718861513`*^9, 3.7690872807983932`*^9}, { 3.76908760426025*^9, 3.769087627556595*^9}, {3.769087682888342*^9, 3.7690877825897007`*^9}, {3.769093125110832*^9, 3.769093133177189*^9}}, CellID->288665391], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", StyleBox[ "\"Anthurium data\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"43", ",", "13"}], "}"}], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["16416", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {{"Compound ID \\ Species", "AdA", "AdB", "AmU", "AmS", "AmM", "AmA", "Ant", "Arm", "Bak", "Hof", "Kam", "Vei"}, { "1", 626, 615, 1, 0, 2, 1, 0, 0, 0, 0, 9, 0}, { "2", 13, 16, 283, 136, 68, 151, 5, 0, 0, 0, 921, 0}, { "3", 0, 0, 48, 21, 33, 22, 2, 0, 0, 0, 7, 0}, { "4", 3689, 3338, 0, 3, 26, 1, 3, 1, 0, 0, 0, 0}, { "5", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "6", 39, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "7", 0, 0, 1626, 824, 184, 428, 719, 0, 0, 0, 0, 0}, { "8", 9, 8, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0}, { "9", 1900, 1720, 323, 244, 244, 198, 112, 349, 89, 438, 252, 334}, { "10", 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 0, 0}, { "11", 0, 0, 39, 18, 4, 5, 0, 0, 0, 0, 0, 0}, { "12", 0, 0, 0, 0, 0, 0, 72, 0, 0, 0, 0, 0}, { "13", 0, 0, 0, 0, 0, 0, 0, 0, 408, 0, 0, 0}, { "14", 0, 0, 21, 12, 7, 11, 0, 0, 0, 0, 0, 0}, { "15", 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0}, { "16", 0, 0, 0, 0, 190, 0, 25, 0, 0, 70, 0, 0}, { "17", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "18", 0, 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, 0}, { "19", 0, 0, 62, 18, 35, 18, 23, 1, 0, 4, 92, 4}, { "20", 0, 0, 0, 0, 0, 0, 0, 26, 0, 0, 0, 0}, { "21", 0, 0, 0, 0, 0, 0, 0, 8, 0, 115, 0, 0}, { "22", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 469, 0}, { "23", 4, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "24", 0, 0, 16, 8, 18, 5, 2, 0, 0, 0, 0, 0}, { "25", 144, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "26", 0, 0, 0, 0, 0, 0, 12, 13, 0, 0, 0, 0}, { "27", 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0}, { "28", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6}, { "29", 6, 7, 0, 0, 0, 0, 0, 2, 0, 0, 13, 7}, { "30", 22, 18, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0}, { "31", 59, 65, 0, 0, 0, 0, 1, 66, 0, 0, 0, 0}, { "32", 1, 0, 139, 0, 9, 3, 0, 0, 0, 0, 0, 0}, { "33", 24, 21, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0}, { "34", 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0}, { "35", 0, 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 0}, { "36", 2, 0, 2, 0, 0, 0, 0, 405, 0, 0, 0, 0}, { "37", 2, 1, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0}, { "38", 0, 0, 0, 0, 0, 0, 26, 0, 0, 0, 0, 71}, { "39", 51, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, { "40", 723, 689, 166, 139, 133, 114, 67, 205, 37, 265, 126, 214}, { "41", 235, 238, 74, 64, 56, 56, 26, 98, 2, 135, 95, 105}, { "42", 103, 89, 9, 2, 12, 4, 35, 43, 6, 28, 28, 12}}, SelectWithContents->True, Selectable->False]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.766047827922268*^9, 3.766047829934144*^9}, { 3.766049450065133*^9, 3.76604945976825*^9}, {3.766049524924946*^9, 3.76604952660732*^9}}, CellLabel->"In[1]:=", CellID->613351253], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{ RowBox[{"data", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"2", ";;", "9"}], ",", RowBox[{";;", "8"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"data", "\[LeftDoubleBracket]", RowBox[{"1", ",", RowBox[{";;", "8"}]}], "\[RightDoubleBracket]"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76604954863375*^9, 3.766049634020575*^9}}, CellLabel->"In[2]:=", CellID->975234389], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"Compound ID \\\\ Species\"\>", HoldForm], TagBox["\<\"AdA\"\>", HoldForm], TagBox["\<\"AdB\"\>", HoldForm], TagBox["\<\"AmU\"\>", HoldForm], TagBox["\<\"AmS\"\>", HoldForm], TagBox["\<\"AmM\"\>", HoldForm], TagBox["\<\"AmA\"\>", HoldForm], TagBox["\<\"Ant\"\>", HoldForm]}, {"\<\"1\"\>", "626", "615", "1", "0", "2", "1", "0"}, {"\<\"2\"\>", "13", "16", "283", "136", "68", "151", "5"}, {"\<\"3\"\>", "0", "0", "48", "21", "33", "22", "2"}, {"\<\"4\"\>", "3689", "3338", "0", "3", "26", "1", "3"}, {"\<\"5\"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\"6\"\>", "39", "1", "0", "0", "0", "0", "0"}, {"\<\"7\"\>", "0", "0", "1626", "824", "184", "428", "719"}, {"\<\"8\"\>", "9", "8", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"Compound ID \\ Species", "AdA", "AdB", "AmU", "AmS", "AmM", "AmA", "Ant"}}]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.766049639899818*^9, 3.769086553942128*^9, 3.7690924969773083`*^9, 3.769092980600131*^9}, CellLabel->"Out[2]//TableForm=", CellID->562278842] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"taxonomicData", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"species", "=", RowBox[{"Rest", "@", RowBox[{"First", "@", "data"}]}]}], ",", RowBox[{"amounts", "=", RowBox[{ RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{"First", "@", "#"}], "\[Rule]", RowBox[{"Rest", "@", "#"}]}], "]"}], "&"}], "/@", RowBox[{"Rest", "@", "data"}]}]}]}], "}"}], ",", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"#1", "\[Rule]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Association", "@", "#2"}], ",", "0"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{"species", ",", RowBox[{"Transpose", "@", "amounts"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Short", "@", "%"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.766049656925242*^9, 3.7660499628633547`*^9}}, CellLabel->"In[3]:=", CellID->420652560], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"\<\"AdA\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"1\"\>", "\[Rule]", "626"}], ",", RowBox[{"\<\"2\"\>", "\[Rule]", "13"}], ",", RowBox[{"\<\"4\"\>", "\[Rule]", "3689"}], ",", RowBox[{"\[LeftSkeleton]", "13", "\[RightSkeleton]"}], ",", RowBox[{"\<\"40\"\>", "\[Rule]", "723"}], ",", RowBox[{"\<\"41\"\>", "\[Rule]", "235"}], ",", RowBox[{"\<\"42\"\>", "\[Rule]", "103"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\[LeftSkeleton]", "10", "\[RightSkeleton]"}], ",", RowBox[{"\<\"Vei\"\>", "\[Rule]", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], "}"}], Short]], "Output", TaggingRules->{}, CellChangeTimes->{{3.76604994162789*^9, 3.766049963518092*^9}, 3.7690865539647207`*^9, 3.76909249699275*^9, 3.769092980614118*^9}, CellLabel->"Out[4]//Short=", CellID->681807514] }, Open ]], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " shows the clustering of the species:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.769088038357422*^9, 3.769088061676618*^9}, 3.769088092604443*^9, {3.770999941749604*^9, 3.770999943895227*^9}}, CellID->847200788], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"Association", "@", "taxonomicData"}], ",", "Right", ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}], ",", RowBox[{"ClusterDissimilarityFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.766050042224176*^9, 3.766050059669321*^9}}, CellLabel->"In[5]:=", CellID->33009571], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0.9635583713530421, -61.21875}, { 0.9773886060859236, -61.21875}}, {{0, -144}, { 0.9773886060859236, -144.}}, {{0.9773886060859236, -61.21875}, { 0.9773886060859236, -144.}}, {{0.18489583333333334`, -18.}, { 0.9635583713530421, -18.}}, {{0.8904407615168235, -104.4375}, { 0.9635583713530421, -104.4375}}, {{0.9635583713530421, -18.}, { 0.9635583713530421, -104.4375}}, {{0, -12}, { 0.18489583333333334`, -12.}}, {{0, -24}, { 0.18489583333333334`, -24.}}, {{0.18489583333333334`, -12.}, { 0.18489583333333334`, -24.}}, {{0.8676252951158483, -76.875}, { 0.8904407615168235, -76.875}}, {{0, -132}, { 0.8904407615168235, -132.}}, {{0.8904407615168235, -76.875}, { 0.8904407615168235, -132.}}, {{0.7098874809420705, -51.}, { 0.8676252951158483, -51.}}, {{0.8120391531701925, -102.75}, { 0.8676252951158483, -102.75}}, {{0.8676252951158483, -51.}, { 0.8676252951158483, -102.75}}, {{0.584213797389683, -42.}, { 0.7098874809420705, -42.}}, {{0, -60}, {0.7098874809420705, -60.}}, {{ 0.7098874809420705, -42.}, { 0.7098874809420705, -60.}}, {{0, -36}, {0.584213797389683, -36.}}, {{ 0, -48}, {0.584213797389683, -48.}}, {{0.584213797389683, -36.}, { 0.584213797389683, -48.}}, {{0.7634099867541008, -85.5}, { 0.8120391531701925, -85.5}}, {{0, -120}, { 0.8120391531701925, -120.}}, {{0.8120391531701925, -85.5}, { 0.8120391531701925, -120.}}, {{0, -72}, {0.7634099867541008, -72.}}, {{ 0.6909326362798569, -99.}, {0.7634099867541008, -99.}}, {{ 0.7634099867541008, -72.}, {0.7634099867541008, -99.}}, {{ 0.5091267883571781, -90.}, { 0.6909326362798569, -90.}}, {{0, -108}, {0.6909326362798569, -108.}}, {{ 0.6909326362798569, -90.}, { 0.6909326362798569, -108.}}, {{0, -84}, {0.5091267883571781, -84.}}, {{ 0, -96}, {0.5091267883571781, -96.}}, {{0.5091267883571781, -84.}, { 0.5091267883571781, -96.}}}]}, InsetBox[ FrameBox[ TagBox["\<\"AdA\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -12}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"AdB\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -24}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Vei\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -36}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Hof\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -48}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Arm\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -60}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"AmU\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -72}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"AmS\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -84}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"AmA\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -96}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Ant\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -108}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"AmM\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -120}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Kam\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -132}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Bak\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -144}, Scaled[{1, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.766050061812869*^9, 3.769086555318445*^9, 3.769092497066085*^9, 3.769092980690332*^9}, CellLabel->"Out[5]=", CellID->528182526] }, Open ]], Cell[TextData[{ "A feature space plot can be made from the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PrincipalComponents", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PrincipalComponents", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the distance matrix:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.769087853091402*^9, 3.769087927088942*^9}, { 3.770999965684696*^9, 3.770999972153841*^9}}, CellID->627894408], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"species", "=", RowBox[{"Keys", "@", "taxonomicData"}]}], ",", RowBox[{"prinComp", "=", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"PrincipalComponents", "[", RowBox[{"1", "-", RowBox[{"N", "@", RowBox[{"DistanceMatrix", "[", RowBox[{ RowBox[{"Values", "@", "taxonomicData"}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}]}]}], "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Callout", ",", RowBox[{"{", RowBox[{"prinComp", ",", "species"}], "}"}]}], "]"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"Scaled", "[", "0.15", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.766050272893098*^9, 3.7660503177502813`*^9}, 3.76605040895326*^9, {3.7660504503832207`*^9, 3.766050562037293*^9}, { 3.766050650300445*^9, 3.766050738302924*^9}, 3.766050795685721*^9, { 3.766050966795844*^9, 3.766050972182969*^9}, {3.766060427283794*^9, 3.766060427535116*^9}, {3.7660605080373907`*^9, 3.766060513723762*^9}}, CellLabel->"In[6]:=", CellID->398680714], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[None], DiskBox[{0, 0}]}, BaseStyle->{FontFamily -> "Times", FontSize -> 10}], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{ 1.134420465604896, 0.23958661070924767`}}, {{1.1291683372035486`, 0.23423805490363397`}}, {{-0.3037114918441292, 0.3283658047112658}}, {{-0.5293189857488846, 0.507528270448781}}, {{-0.33673175177590436`, 0.021201972694864592`}}, {{-0.49176439385384696`, 0.39082254551416185`}}, {{-0.33567604048776617`, 0.44068492784137975`}}, {{-0.05347393089302127, -0.5735885732791413}}, \ {{0.08380795869483386, -0.16886610933615004`}}, {{-0.09298683741607026, \ -0.6326020057210481}}, {{-0.05314152971931161, -0.1495022341266447}}, \ {{-0.15059179976434314`, -0.637869264360351}}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { TagBox[ {Opacity[0.], PointBox[{{1.134420465604896, 0.23958661070924767`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{1.1291683372035486`, 0.23423805490363397`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.3037114918441292, 0.3283658047112658}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.5293189857488846, 0.507528270448781}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.33673175177590436`, 0.021201972694864592`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.49176439385384696`, 0.39082254551416185`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.33567604048776617`, 0.44068492784137975`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.05347393089302127, -0.5735885732791413}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{0.08380795869483386, -0.16886610933615004`}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.09298683741607026, -0.6326020057210481}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {10}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.05314152971931161, -0.1495022341266447}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, {11}}]& ], TagBox[ {Opacity[0.], PointBox[{{-0.15059179976434314`, -0.637869264360351}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4082, { 12}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-5.6568542494923815`, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-7.6568542494923815`, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-5.6568542494923815`, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-7.6568542494923815`, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492385, -0.45685424949237774`}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-9.656854249492381, -13.456854249492377`}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-29.656854249492383`, -13.45685424949238}, \ {-0.16191504870307413`, -0.6456647286140231}], Offset[{-29.656854249492383`, -0.4568542494923813}, \ {-0.16191504870307413`, -0.6456647286140231}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Vei\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-19.656854249492383, -6.9568542494923795}, \ {-0.16191504870307413, -0.6456647286140231}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.0644647786580426, \ -0.1417067698729725}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.0644647786580426, -0.1417067698729725}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.0644647786580426, \ -0.1417067698729725}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.456854249492384`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-9.656854249492378, 0.45685424949238307`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-35.656854249492376`, 0.45685424949237774`}, {-0.0644647786580426, \ -0.1417067698729725}], Offset[{-35.65685424949238, 13.456854249492377`}, {-0.0644647786580426, \ -0.1417067698729725}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Kam\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-22.65685424949238, 6.95685424949238}, \ {-0.0644647786580426, -0.1417067698729725}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.10431008635480127`, \ -0.6248065414673759}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.456854249492384`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-9.656854249492378, 0.45685424949238307`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-30.656854249492376`, 0.45685424949237774`}, {-0.10431008635480127`, \ -0.6248065414673759}], Offset[{-30.656854249492383`, 13.456854249492377`}, {-0.10431008635480127`, \ -0.6248065414673759}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Hof\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-20.15685424949238, 6.95685424949238}, \ {-0.10431008635480127, -0.6248065414673759}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.82842712474619, -2.8284271247461907`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{2.82842712474619, -2.8284271247461907`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{4.242640687119285, -4.242640687119286}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{4.242640687119285, -4.242640687119286}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{5.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{7.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.82842712474619, -2.8284271247461907`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{2.82842712474619, -2.8284271247461907`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{4.242640687119285, -4.242640687119286}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{4.242640687119285, -4.242640687119286}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{5.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{7.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.65685424949238, -5.6568542494923815`}, { 0.09513120763356486, -0.17666157358982224`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{32.656854249492376`, -0.45685424949237863`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{32.65685424949238, -13.456854249492379`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.656854249492381, -13.456854249492384`}, { 0.09513120763356486, -0.17666157358982224`}], Offset[{9.656854249492378, -0.45685424949238396`}, { 0.09513120763356486, -0.17666157358982224`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Bak\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{21.15685424949238, -6.956854249492381}, \ {0.09513120763356486, -0.17666157358982224}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.06479717983175227, \ -0.5657931090254691}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.06479717983175227, -0.5657931090254691}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.06479717983175227, \ -0.5657931090254691}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.456854249492384`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-9.656854249492378, 0.45685424949238307`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-33.656854249492376`, 0.45685424949237774`}, {-0.06479717983175227, \ -0.5657931090254691}], Offset[{-33.65685424949238, 13.456854249492377`}, {-0.06479717983175227, \ -0.5657931090254691}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Arm\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-21.65685424949238, 6.95685424949238}, \ {-0.06479717983175227, -0.5657931090254691}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{5.656854249492381, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{7.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{5.656854249492381, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{7.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3243527915490352, 0.44848039209505197`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{30.656854249492376`, 13.456854249492382`}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{30.656854249492383`, 0.4568542494923822}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.656854249492381, 0.45685424949237685`}, {-0.3243527915490352, 0.44848039209505197`}], Offset[{9.656854249492378, 13.456854249492377`}, {-0.3243527915490352, 0.44848039209505197`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Ant\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{20.15685424949238, 6.9568542494923795}, \ {-0.3243527915490352, 0.44848039209505197}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-5.6568542494923815`, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-7.6568542494923815`, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-2.8284271247461907`, -2.82842712474619}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-4.242640687119286, -4.242640687119285}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-5.6568542494923815`, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-7.6568542494923815`, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-9.656854249492381, -5.65685424949238}, \ {-0.503087642792578, 0.3830270812604896}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492385, -0.45685424949237685`}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-9.656854249492381, -13.456854249492377`}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-36.65685424949238, -13.456854249492382`}, \ {-0.503087642792578, 0.3830270812604896}], Offset[{-36.65685424949238, -0.4568542494923822}, \ {-0.503087642792578, 0.3830270812604896}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AmA\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-23.156854249492383, -6.9568542494923795}, \ {-0.503087642792578, 0.3830270812604896}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3254085028371734, 0.0289974369485368}], Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3254085028371734, 0.0289974369485368}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3254085028371734, 0.0289974369485368}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3254085028371734, 0.0289974369485368}], Offset[{5.656854249492381, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{7.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3254085028371734, 0.0289974369485368}], Offset[{2.8284271247461903`, 2.82842712474619}, {-0.3254085028371734, 0.0289974369485368}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3254085028371734, 0.0289974369485368}], Offset[{4.242640687119286, 4.242640687119285}, {-0.3254085028371734, 0.0289974369485368}], Offset[{5.656854249492381, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{7.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.65685424949238, 5.65685424949238}, {-0.3254085028371734, 0.0289974369485368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{38.656854249492376`, 13.456854249492384`}, {-0.3254085028371734, 0.0289974369485368}], Offset[{38.65685424949238, 0.45685424949238307`}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.656854249492381, 0.45685424949237596`}, {-0.3254085028371734, 0.0289974369485368}], Offset[{9.656854249492378, 13.456854249492377`}, {-0.3254085028371734, 0.0289974369485368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AmM\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{24.15685424949238, 6.9568542494923795}, \ {-0.3254085028371734, 0.0289974369485368}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-2.82842712474619, 2.8284271247461903`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-4.242640687119285, 4.242640687119286}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-5.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-7.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-9.65685424949238, 5.656854249492381}, {-0.5406422346876156, 0.5153237347024532}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.456854249492384`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-9.656854249492378, 0.45685424949238307`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-36.656854249492376`, 0.45685424949237774`}, {-0.5406422346876156, 0.5153237347024532}], Offset[{-36.65685424949238, 13.456854249492377`}, {-0.5406422346876156, 0.5153237347024532}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AmS\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-23.15685424949238, 6.95685424949238}, \ {-0.5406422346876156, 0.5153237347024532}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.82842712474619, -2.8284271247461907`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{2.82842712474619, -2.8284271247461907`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{4.242640687119285, -4.242640687119286}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{4.242640687119285, -4.242640687119286}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{5.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{7.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.82842712474619, -2.8284271247461907`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{2.82842712474619, -2.8284271247461907`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{4.242640687119285, -4.242640687119286}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{4.242640687119285, -4.242640687119286}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{5.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{7.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.65685424949238, -5.6568542494923815`}, \ {-0.2923882429053982, 0.3205703404575936}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{37.656854249492376`, -0.45685424949237774`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{37.65685424949238, -13.456854249492377`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.656854249492381, -13.456854249492384`}, \ {-0.2923882429053982, 0.3205703404575936}], Offset[{9.656854249492378, -0.45685424949238485`}, \ {-0.2923882429053982, 0.3205703404575936}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AmU\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{23.65685424949238, -6.956854249492381}, \ {-0.2923882429053982, 0.3205703404575936}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.1178450882648177`, 0.24203351915730617`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.456854249492384`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-9.656854249492378, 0.45685424949238307`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-33.656854249492376`, 0.45685424949237774`}, { 1.1178450882648177`, 0.24203351915730617`}], Offset[{-33.65685424949238, 13.456854249492377`}, { 1.1178450882648177`, 0.24203351915730617`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AdB\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-21.65685424949238, 6.95685424949238}, \ {1.1178450882648177, 0.24203351915730617}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {1.145743714543627, 0.24738207496291986`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.145743714543627, 0.24738207496291986`}], Offset[{4.242640687119286, 4.242640687119285}, {1.145743714543627, 0.24738207496291986`}], Offset[{4.242640687119286, 4.242640687119285}, {1.145743714543627, 0.24738207496291986`}], Offset[{5.656854249492381, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{7.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{9.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{9.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, {1.145743714543627, 0.24738207496291986`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.145743714543627, 0.24738207496291986`}], Offset[{4.242640687119286, 4.242640687119285}, {1.145743714543627, 0.24738207496291986`}], Offset[{4.242640687119286, 4.242640687119285}, {1.145743714543627, 0.24738207496291986`}], Offset[{5.656854249492381, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{7.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{9.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}], Offset[{9.65685424949238, 5.65685424949238}, {1.145743714543627, 0.24738207496291986`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{33.656854249492376`, 13.456854249492382`}, { 1.145743714543627, 0.24738207496291986`}], Offset[{33.65685424949238, 0.4568542494923822}, { 1.145743714543627, 0.24738207496291986`}], Offset[{9.656854249492381, 0.45685424949237685`}, { 1.145743714543627, 0.24738207496291986`}], Offset[{9.656854249492378, 13.456854249492377`}, { 1.145743714543627, 0.24738207496291986`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"AdA\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{21.65685424949238, 6.9568542494923795}, \ {1.145743714543627, 0.24738207496291986}], {0, 0}]}]}}, {}}, {}}}, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"PC 2\"", TraditionalForm], None}, { FormBox["\"PC 1\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-0.5293189857488846, 1.134420465604896}, {-0.637869264360351, 0.507528270448781}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.15], Scaled[0.15]}, { Scaled[0.15], Scaled[0.15]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7660509733571453`*^9, 3.766060428866054*^9, 3.766060517392087*^9, 3.769086555841057*^9, 3.769092497359927*^9, 3.769092980985976*^9}, CellLabel->"Out[6]=", CellID->218552351] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Sociology", "\[NonBreakingSpace]", Cell["(6)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.763793684752944*^9, 3.763793692713976*^9}}, CellID->898830785], Cell["\<\ This example compares households on a single city block using the composition \ of household members (head, wife, daughter, brother-in-law, etc.). The data \ was compiled from the 1920 US Census for the 300 block of Wyoming Ave., \ Buffalo, NY. The households are labeled by street number.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7659653298066072`*^9, 3.765965512113452*^9}, 3.765965547496635*^9, {3.765965600223147*^9, 3.765965612702136*^9}, { 3.765990756858234*^9, 3.765990759738043*^9}, {3.765991866334683*^9, 3.765991867168942*^9}, {3.774803281427391*^9, 3.77480328201522*^9}}, CellID->361751531], Cell["Load the data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7659653298066072`*^9, 3.765965512113452*^9}, 3.765965547496635*^9, {3.765965600223147*^9, 3.765965612702136*^9}, { 3.765990756858234*^9, 3.765990759738043*^9}, 3.765991866334683*^9}, CellID->970534634], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Association", StyleBox[ "\"neighborhood census\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Association", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["24", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["9792", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], <|"306" -> {"head", "wife", "step-son"}, "312a" -> {"head", "wife", "son", "son"}, "312b" -> {"head", "wife", "son"}, "314" -> { "head", "wife", "daughter", "son", "son", "son", "son", "daughter", "son"}, "316" -> {"head", "wife", "son", "daughter", "son"}, "318" -> {"head", "wife", "son", "mother-in-law"}, "322" -> {"head", "wife", "daughter", "daughter", "niece", "niece"}, "328a" -> {"head", "son", "son", "daughter", "son"}, "328b" -> {"head", "wife", "son"}, "332" -> { "head", "wife", "daughter", "daughter", "daughter", "daughter", "daughter", "brother-in-law", "mother-in-law"}, "334" -> { "head", "wife", "daughter", "son", "daughter", "daughter", "grandson", "grandson", "grandson"}, "338" -> {"head", "wife", "son", "son", "son"}, "340" -> {"head", "wife", "son", "son", "daughter"}, "346a" -> {"head", "wife", "son", "daughter", "daughter"}, "346b" -> { "head", "wife", "son", "son", "daughter", "daughter", "son", "sister"}, "352" -> {"head", "wife", "son", "son", "son", "son", "son"}, "358" -> { "head", "wife", "daughter", "son", "daughter", "son", "daughter", "daughter", "son", "son", "son"}, "360" -> {"head", "wife", "daughter", "daughter"}, "364" -> {"head", "wife", "daughter", "mother-in-law"}, "370a" -> {"head", "wife"}, "370b" -> {"head", "wife", "son"}, "372" -> { "head", "wife", "daughter", "daughter", "daughter", "son", "son"}, "376" -> {"head", "wife", "son", "son", "daughter"}, "380" -> {"head", "wife"}|>, SelectWithContents->True, Selectable->False]}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomSample", "[", RowBox[{"%", ",", "3"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.764186142179698*^9, {3.764186208683601*^9, 3.764186209784193*^9}, { 3.7641862510256968`*^9, 3.764186300720915*^9}, 3.765992306641588*^9}, CellLabel->"In[1]:=", CellID->863016762], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"358\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"daughter\"\>", ",", "\<\"son\"\>", ",", "\<\"daughter\"\>", ",", "\<\"son\"\>", ",", "\<\"daughter\"\>", ",", "\<\"daughter\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>"}], "}"}]}], ",", RowBox[{"\<\"318\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>", ",", "\<\"mother-in-law\"\>"}], "}"}]}], ",", RowBox[{"\<\"352\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>"}], "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.764186143195531*^9, 3.764186210672111*^9, {3.764186292388431*^9, 3.7641863011936626`*^9}, 3.764232339460691*^9, 3.764257179030025*^9, 3.764662767813377*^9, 3.764675085050518*^9, 3.765992216039584*^9, 3.7659923075391407`*^9, 3.769086556311305*^9, 3.7690924974149323`*^9, 3.769092981038333*^9}, CellLabel->"Out[2]=", CellID->835531298] }, Open ]], Cell["The aggregate composition of the neighborhood:", "Text", TaggingRules->{}, CellChangeTimes->{{3.76596564800489*^9, 3.7659656689316893`*^9}}, CellID->978891621], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Join", "@@", RowBox[{"Values", "@", "data"}]}], "//", "Counts"}], "//", "KeySort"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76423237274347*^9, 3.764232410133112*^9}}, CellLabel->"In[3]:=", CellID->795944365], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"brother-in-law\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"daughter\"\>", "\[Rule]", "30"}], ",", RowBox[{"\<\"grandson\"\>", "\[Rule]", "3"}], ",", RowBox[{"\<\"head\"\>", "\[Rule]", "24"}], ",", RowBox[{"\<\"mother-in-law\"\>", "\[Rule]", "3"}], ",", RowBox[{"\<\"niece\"\>", "\[Rule]", "2"}], ",", RowBox[{"\<\"sister\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"son\"\>", "\[Rule]", "40"}], ",", RowBox[{"\<\"step-son\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"wife\"\>", "\[Rule]", "23"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.76423237741113*^9, 3.764232410732163*^9}, 3.764662767872322*^9, 3.764675085065275*^9, 3.765992218992062*^9, 3.765992310925859*^9, 3.769086556352092*^9, 3.769092497456209*^9, 3.769092981073752*^9}, CellLabel->"Out[3]=", CellID->369835761] }, Open ]], Cell[TextData[{ "The distance matrix using MultisetDiceDissimilarity can be displayed with \ an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayPlot", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArrayPlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " (note the presence of off-diagonal 0s colored yellow):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765969221503972*^9, 3.7659692599594593`*^9}, { 3.7659693890748177`*^9, 3.765969426713511*^9}, 3.770999987830311*^9, { 3.7748032899328933`*^9, 3.774803312434264*^9}, {3.7748034443755803`*^9, 3.7748034458991303`*^9}, {3.7748613509597735`*^9, 3.7748613637651777`*^9}, {3.7749558653329372`*^9, 3.774955868288053*^9}}, CellID->956058905], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"labels", "=", RowBox[{"Keys", "@", "data"}]}], "}"}], ",", RowBox[{ RowBox[{"DistanceMatrix", "[", RowBox[{ RowBox[{"Values", "@", "data"}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}], "//", RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{"#", ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "@", RowBox[{"Length", "@", "labels"}]}], ",", "labels"}], "}"}], "]"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "@", RowBox[{"Length", "@", "labels"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Rotate", "[", RowBox[{"#", ",", RowBox[{"90", "\[Degree]"}]}], "]"}], "&"}], "/@", "labels"}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"ColorRules", "\[Rule]", RowBox[{"{", RowBox[{"0", "\[Rule]", "Yellow"}], "}"}]}]}], "]"}], "&"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764176103049365*^9, 3.764176199037714*^9}, { 3.764176257140497*^9, 3.764176361359502*^9}, {3.7641763948960247`*^9, 3.764176399029636*^9}, 3.764662729436161*^9, 3.765992204591566*^9}, CellLabel->"In[4]:=", CellID->208083773], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztmj1oFFEUhQdEgqWNiSCKoikjNlFBWRAsBG0ECxHRiKsIggSCjTaCpBEi KBg0WJhSUSSI+EOKgDEExRDEv4gQXAUbIRCw1d0Zq718w37LBJHMY8NJMbl7 7n3n3Xfem2w8ce5gdUWSJF1/fxq/H0rHl0oz9q+bqn9mA9Lz9+6mI+DvdEwF pPir0zERsGPDxYWJjqsBLR/L0+K1zfvqn7GAO4dqO4ZqTwLeupmOgFQfwiQd C03I80t8KC+KT/OV0ur/FnDtYF/XYN/HgBmvdwHpe/P1OQkY60B89p/ednty 4HFAqg/Ft/PS8+zH6JWeuYCU7/p0vAlo9UN5UX0urPq55dHwfEDK166XU+l4 H7B75OzYdPergJYn6WT3zOKumcXXAaluxIfmhXhSfOKfn1fUFdX/yMOV9c/n gFR/qhv1E6oP6YTyovhUt03p+BrQ9jGaL4pPPCk+8Tmz9c745V+jlWa0PC3S /NI82j5ZVP+0fYDiE5b+pz1cbv6Hnqd5pOdH0vE8IOVLOqd1YfOlfZB42v5s 9U+6Jb1RfayfpPpQnyzKd1n9WN9C8YtaL8SH0OqHzhf0POnn2J6Gw3gRkHRi /RvVh/yV1Q/tC5QX7dfZPH8PSD6W1l3n0YHZvZ3jASkO8aE+Zv22xd7tjfEh IPlk0gnVn+pG+yDVh/hQXhS/qPNX9fqB3k8nawHzfVTsn9YP5J8v4pi79PT8 8Qf3K81I5w7bP60/oXm0/s2ev6gvEX+KT3zsvGfVmA9I9yF2f6Q4xIf6WGP1 rXk7HZDiW7T+hPqV1S31AaoP+QTKi+LbdWTvD4knxS/q3infN0aeFJ/4k07s eqH9wvoryre9e7nW768or/L+OV8ndv1Svv/7/fNS68f2H9pPrX7oXEC6sjqh fkX6ofki/ZDfsOdQe16z/YfuaemehPR2o3q4/nkZkL6X4ttzn+VDOmmvX8X1 Qv6KfDvp0N5f0bqj+th9n+KTfugcRM/TuqB5sfqhfkJ8SCekK9uvqM7k2xMY Vj+Edn7tfYg9Z5Xvv8r3X628/6J1Yc+P1v/Y+wSrW9tPiGdR/sf6Z+t/KF+q j/U/FJ/42PeAtO/QeqT4pBN7b0Z8CPN9e+RP9wzUH8gP0H5ndUs6ofrQPkj5 UnzK1+479v0p6cTq1vKxPC3m9+fW15HdZ60PIT5F5Vve/2RI/On55Xb/Qz6T +pv1saQre/6iOLZv0/mL4lvMso7vcej9YPZ38b3zvzq/U17l+as8fy3F+Yv4 0PfSvNN6sfsg+QGrc/KrtH6Jp30PRUh+m/ot6ZzQ1of42Hztfkdx7Hqn+NR/ EhiWj+Vp0f6fIZ2Li+o/VB/r2yn+H19fsJU= "], {{0, 0}, {24, 24}}, {0, 1}], BaseStyle->{}, Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{{{23.5, FormBox["\"306\"", TraditionalForm]}, {22.5, FormBox["\"312a\"", TraditionalForm]}, {21.5, FormBox["\"312b\"", TraditionalForm]}, {20.5, FormBox["\"314\"", TraditionalForm]}, {19.5, FormBox["\"316\"", TraditionalForm]}, {18.5, FormBox["\"318\"", TraditionalForm]}, {17.5, FormBox["\"322\"", TraditionalForm]}, {16.5, FormBox["\"328a\"", TraditionalForm]}, {15.5, FormBox["\"328b\"", TraditionalForm]}, {14.5, FormBox["\"332\"", TraditionalForm]}, {13.5, FormBox["\"334\"", TraditionalForm]}, {12.5, FormBox["\"338\"", TraditionalForm]}, {11.5, FormBox["\"340\"", TraditionalForm]}, {10.5, FormBox["\"346a\"", TraditionalForm]}, {9.5, FormBox["\"346b\"", TraditionalForm]}, {8.5, FormBox["\"352\"", TraditionalForm]}, {7.5, FormBox["\"358\"", TraditionalForm]}, {6.5, FormBox["\"360\"", TraditionalForm]}, {5.5, FormBox["\"364\"", TraditionalForm]}, {4.5, FormBox["\"370a\"", TraditionalForm]}, {3.5, FormBox["\"370b\"", TraditionalForm]}, {2.5, FormBox["\"372\"", TraditionalForm]}, {1.5, FormBox["\"376\"", TraditionalForm]}, {0.5, FormBox["\"380\"", TraditionalForm]}}, None}, {{{0.5, FormBox[ RotationBox["\"306\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {1.5, FormBox[ RotationBox["\"312a\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {2.5, FormBox[ RotationBox["\"312b\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {3.5, FormBox[ RotationBox["\"314\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {4.5, FormBox[ RotationBox["\"316\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {5.5, FormBox[ RotationBox["\"318\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {6.5, FormBox[ RotationBox["\"322\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {7.5, FormBox[ RotationBox["\"328a\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {8.5, FormBox[ RotationBox["\"328b\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {9.5, FormBox[ RotationBox["\"332\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {10.5, FormBox[ RotationBox["\"334\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {11.5, FormBox[ RotationBox["\"338\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {12.5, FormBox[ RotationBox["\"340\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {13.5, FormBox[ RotationBox["\"346a\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {14.5, FormBox[ RotationBox["\"346b\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {15.5, FormBox[ RotationBox["\"352\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {16.5, FormBox[ RotationBox["\"358\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {17.5, FormBox[ RotationBox["\"360\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {18.5, FormBox[ RotationBox["\"364\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {19.5, FormBox[ RotationBox["\"370a\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {20.5, FormBox[ RotationBox["\"370b\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {21.5, FormBox[ RotationBox["\"372\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {22.5, FormBox[ RotationBox["\"376\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {23.5, FormBox[ RotationBox["\"380\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}}, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.764176092457905*^9, 3.76417610611561*^9}, { 3.76417618758889*^9, 3.764176199681127*^9}, 3.764176362334529*^9, 3.76417639979*^9, 3.764186228656581*^9, 3.7646627680161133`*^9, 3.7646750852946453`*^9, {3.765992207115806*^9, 3.7659922238560257`*^9}, 3.7659923204575043`*^9, 3.769086556583921*^9, 3.7690924975778503`*^9, 3.769092981196555*^9}, CellLabel->"Out[4]=", CellID->249048504] }, Open ]], Cell[TextData[{ "The clustering of the households as shown by a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765965795081143*^9, 3.765965814343381*^9}, 3.770999993484206*^9}, CellID->228085632], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dendrogram", "[", RowBox[{"data", ",", "Right", ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}], ",", RowBox[{"ClusterDissimilarityFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764176446548469*^9, 3.764176473963109*^9}, { 3.764176516619836*^9, 3.764176565983965*^9}, 3.764662730516863*^9, { 3.765992326185405*^9, 3.765992327060164*^9}}, CellLabel->"In[5]:=", CellID->725811377], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0.8011671211364637, -305.0625}, { 0.805475693693636, -305.0625}}, {{0.7619047619047619, -564.}, { 0.805475693693636, -564.}}, {{0.805475693693636, -305.0625}, { 0.805475693693636, -564.}}, {{0.7298363095238095, -152.25}, { 0.8011671211364637, -152.25}}, {{0.6372077677224737, -457.875}, { 0.8011671211364637, -457.875}}, {{0.8011671211364637, -152.25}, { 0.8011671211364637, -457.875}}, {{0.6458333333333333, -91.5}, { 0.7298363095238095, -91.5}}, {{0.6731601731601732, -213.}, { 0.7298363095238095, -213.}}, {{0.7298363095238095, -91.5}, { 0.7298363095238095, -213.}}, {{0.5, -42.}, { 0.6458333333333333, -42.}}, {{0.4, -141.}, { 0.6458333333333333, -141.}}, {{0.6458333333333333, -42.}, { 0.6458333333333333, -141.}}, {{0, -24}, {0.5, -24.}}, {{0., -60.}, { 0.5, -60.}}, {{0.5, -24.}, { 0.5, -60.}}, {{0, -48}, {0., -48.}}, {{0, -72}, {0., -72.}}, {{ 0., -48.}, {0., -72.}}, {{0., -114.}, { 0.4, -114.}}, {{0, -168}, {0.4, -168.}}, {{0.4, -114.}, { 0.4, -168.}}, {{0, -96}, {0., -96.}}, {{0., -132.}, {0., -132.}}, {{ 0., -96.}, { 0., -132.}}, {{0, -120}, {0., -120.}}, {{0, -144}, {0., -144.}}, {{ 0., -120.}, {0., -144.}}, {{0, -192}, {0.6731601731601732, -192.}}, {{ 0.55, -234.}, {0.6731601731601732, -234.}}, {{ 0.6731601731601732, -192.}, { 0.6731601731601732, -234.}}, {{0, -216}, {0.55, -216.}}, {{ 0.3333333333333333, -252.}, {0.55, -252.}}, {{0.55, -216.}, { 0.55, -252.}}, {{0, -240}, {0.3333333333333333, -240.}}, {{0, -264}, { 0.3333333333333333, -264.}}, {{0.3333333333333333, -240.}, { 0.3333333333333333, -264.}}, {{0.5816919191919191, -405.75}, { 0.6372077677224737, -405.75}}, {{0.4484848484848485, -510.}, { 0.6372077677224737, -510.}}, {{0.6372077677224737, -405.75}, { 0.6372077677224737, -510.}}, {{0.5416666666666666, -367.5}, { 0.5816919191919191, -367.5}}, {{0.5, -444.}, { 0.5816919191919191, -444.}}, {{0.5816919191919191, -367.5}, { 0.5816919191919191, -444.}}, {{0.41666666666666663`, -327.}, { 0.5416666666666666, -327.}}, {{0, -408}, { 0.5416666666666666, -408.}}, {{0.5416666666666666, -327.}, { 0.5416666666666666, -408.}}, {{0.3333333333333333, -300.}, { 0.41666666666666663`, -300.}}, {{0., -354.}, { 0.41666666666666663`, -354.}}, {{0.41666666666666663`, -300.}, { 0.41666666666666663`, -354.}}, {{0, -288}, { 0.3333333333333333, -288.}}, {{0, -312}, { 0.3333333333333333, -312.}}, {{0.3333333333333333, -288.}, { 0.3333333333333333, -312.}}, {{0, -336}, {0., -336.}}, {{0., -372.}, { 0., -372.}}, {{0., -336.}, { 0., -372.}}, {{0, -360}, {0., -360.}}, {{0, -384}, {0., -384.}}, {{ 0., -360.}, { 0., -384.}}, {{0, -432}, {0.5, -432.}}, {{0, -456}, {0.5, -456.}}, {{ 0.5, -432.}, {0.5, -456.}}, {{0.3076923076923077, -492.}, { 0.4484848484848485, -492.}}, {{0, -528}, { 0.4484848484848485, -528.}}, {{0.4484848484848485, -492.}, { 0.4484848484848485, -528.}}, {{0, -480}, { 0.3076923076923077, -480.}}, {{0, -504}, { 0.3076923076923077, -504.}}, {{0.3076923076923077, -480.}, { 0.3076923076923077, -504.}}, {{0, -552}, { 0.7619047619047619, -552.}}, {{0, -576}, { 0.7619047619047619, -576.}}, {{0.7619047619047619, -552.}, { 0.7619047619047619, -576.}}}]}, InsetBox[ FrameBox[ TagBox["\<\"306\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -24}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"370a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -48}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"380\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -72}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"312b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -96}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"328b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -120}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"370b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -144}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"318\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -168}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"364\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -192}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"322\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -216}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"360\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -240}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"346a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -264}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"312a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -288}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"338\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -312}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"316\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -336}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"376\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -360}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"340\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -384}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"328a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -408}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"346b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -432}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"372\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -456}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"314\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -480}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"358\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -504}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"352\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -528}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"334\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -552}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"332\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -576}, Scaled[{1, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.764176447646593*^9, 3.7641764750637712`*^9}, { 3.76417653320219*^9, 3.76417656650665*^9}, 3.764186238476961*^9, 3.76466276810461*^9, 3.7646750853872013`*^9, 3.765992328303938*^9, 3.769086556668117*^9, 3.769092497673253*^9, 3.7690929812906218`*^9}, CellLabel->"Out[5]=", CellID->518858130] }, Open ]], Cell["\<\ The 14 yellow-colored, off-diagonal 0s of the preceding distance matrix \ represent pairs of identical households. They also appear in the preceding \ dendrogram as leaves with no initial height. Here they are extracted as \ clusters:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7659659888503313`*^9, 3.7659660053372707`*^9}, { 3.76596963306008*^9, 3.765969719624152*^9}, {3.765969758456608*^9, 3.765969770815847*^9}, {3.765969804630351*^9, 3.765969867683351*^9}, { 3.7659728767855864`*^9, 3.765972880785768*^9}, {3.765972932953106*^9, 3.765972958368414*^9}, {3.76597333969943*^9, 3.765973340188067*^9}, { 3.7659733765705442`*^9, 3.765973414816511*^9}, {3.7748033615006356`*^9, 3.774803395929846*^9}, 3.855143821270509*^9}, CellID->938184035], Cell[BoxData[ RowBox[{ RowBox[{"clusters", "=", RowBox[{ RowBox[{"ClusteringTree", "[", RowBox[{"data", ",", "0", ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}], ",", RowBox[{ "ClusterDissimilarityFunction", "\[Rule]", "\"\\""}]}], "]"}], "//", RowBox[{ RowBox[{"PropertyValue", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765966857054695*^9, 3.765966857866412*^9}, { 3.765966926733934*^9, 3.765966942819532*^9}, {3.765966995163*^9, 3.7659670016175327`*^9}, {3.765967053585886*^9, 3.7659670631304207`*^9}, { 3.765967093818514*^9, 3.765967134037169*^9}, 3.7659674418938723`*^9, { 3.7659675134268427`*^9, 3.765967529543923*^9}, {3.765973203041292*^9, 3.765973203368021*^9}, {3.7659922595546618`*^9, 3.765992268017585*^9}}, CellLabel->"In[6]:=", CellID->923571638], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"identicalHousholds", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{"clusters", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], ">", "1"}], "&"}]}], "]"}], "//", "Values"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765966857054695*^9, 3.765966857866412*^9}, { 3.765966926733934*^9, 3.765966942819532*^9}, {3.765966995163*^9, 3.7659670016175327`*^9}, {3.765967053585886*^9, 3.7659670631304207`*^9}, { 3.765967093818514*^9, 3.765967134037169*^9}, 3.7659674418938723`*^9, { 3.7659675134268427`*^9, 3.765967588229388*^9}}, CellLabel->"In[7]:=", CellID->777884006], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"370a\"\>", ",", "\<\"380\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"312b\"\>", ",", "\<\"328b\"\>", ",", "\<\"370b\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"316\"\>", ",", "\<\"376\"\>", ",", "\<\"340\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.765966858882041*^9, {3.765966928511611*^9, 3.765966944239696*^9}, 3.765967002218501*^9, 3.765967064299056*^9, {3.7659671204980803`*^9, 3.765967134864337*^9}, 3.765967592923171*^9, 3.765972818920916*^9, 3.765973210238665*^9, 3.765992336063233*^9, 3.769086556772071*^9, 3.769092497769733*^9, 3.76909298138398*^9}, CellLabel->"Out[7]=", CellID->860282112] }, Open ]], Cell["Finally, mapping back to the original household data gives:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765973584253577*^9, 3.765973634866184*^9}}, CellID->627096950], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Function", "[", RowBox[{"cluster", ",", RowBox[{"KeySelect", "[", RowBox[{"data", ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"cluster", ",", "#"}], "]"}], "&"}]}], "]"}]}], "]"}], "/@", "identicalHousholds"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7659671766129713`*^9, 3.765967206251952*^9}, 3.7659676101365128`*^9, 3.7659735447738*^9}, CellLabel->"In[8]:=", CellID->976358858], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"370a\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>"}], "}"}]}], ",", RowBox[{"\<\"380\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>"}], "}"}]}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"312b\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>"}], "}"}]}], ",", RowBox[{"\<\"328b\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>"}], "}"}]}], ",", RowBox[{"\<\"370b\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>"}], "}"}]}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"316\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>", ",", "\<\"daughter\"\>", ",", "\<\"son\"\>"}], "}"}]}], ",", RowBox[{"\<\"340\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"daughter\"\>"}], "}"}]}], ",", RowBox[{"\<\"376\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"head\"\>", ",", "\<\"wife\"\>", ",", "\<\"son\"\>", ",", "\<\"son\"\>", ",", "\<\"daughter\"\>"}], "}"}]}]}], "\[RightAssociation]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.765967208821186*^9, 3.7659676216474123`*^9, 3.765972823721857*^9, 3.7659732131321287`*^9, 3.765973548089979*^9, 3.76599233920227*^9, 3.769086556811082*^9, 3.7690924978908033`*^9, 3.769092981419252*^9}, CellLabel->"Out[8]=", CellID->470913573] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Economics", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.76379371006411*^9, 3.7637937120561523`*^9}}, CellID->181769410], Cell["\<\ Understanding market forces and characteristics of the competition are \ essential components of profitable business decisions. This example shows how \ shopping malls might be compared using the numbers of kinds of businesses in \ each. The data was collected from the websites of each mall using the \ self-reported number of businesses in each category. These malls are all \ managed by the same organization, so the categories can be assumed to be \ consistent.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765968626476767*^9, 3.765968734624071*^9}, { 3.765968775495092*^9, 3.76596878934226*^9}, {3.765968885260338*^9, 3.765968908691036*^9}, {3.765968979369982*^9, 3.765969045422377*^9}, { 3.765969076965435*^9, 3.765969176786707*^9}, {3.765990842304142*^9, 3.765990844935733*^9}, {3.765991892549691*^9, 3.765991893304529*^9}, { 3.7748034013362494`*^9, 3.774803401704141*^9}}, CellID->615082859], Cell["Load the data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765968626476767*^9, 3.765968734624071*^9}, { 3.765968775495092*^9, 3.76596878934226*^9}, {3.765968885260338*^9, 3.765968908691036*^9}, {3.765968979369982*^9, 3.765969045422377*^9}, { 3.765969076965435*^9, 3.765969176786707*^9}, {3.765990842304142*^9, 3.765990844935733*^9}, 3.765991892549691*^9}, CellID->970534635], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", StyleBox["\"mall data\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Dataset", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["7896", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Dataset[<| "Men's" -> <| "The Mills at Jersey Gardens" -> 80, "Rockaway Townsquare" -> 36, "Menlo Park Mall" -> 38, "Newport Centre" -> 31, "Quaker Bridge Mall" -> 29, "Livingston Mall" -> 28|>, "Women's" -> <| "The Mills at Jersey Gardens" -> 90, "Rockaway Townsquare" -> 44, "Menlo Park Mall" -> 50, "Newport Centre" -> 34, "Quaker Bridge Mall" -> 41, "Livingston Mall" -> 35|>, "Shoes" -> <| "The Mills at Jersey Gardens" -> 85, "Rockaway Townsquare" -> 44, "Menlo Park Mall" -> 52, "Newport Centre" -> 35, "Quaker Bridge Mall" -> 41, "Livingston Mall" -> 36|>, "Entertainment" -> <| "The Mills at Jersey Gardens" -> 1, "Rockaway Townsquare" -> 3, "Menlo Park Mall" -> 4, "Newport Centre" -> 2, "Quaker Bridge Mall" -> 4, "Livingston Mall" -> 2|>, "Food" -> <| "The Mills at Jersey Gardens" -> 22, "Rockaway Townsquare" -> 23, "Menlo Park Mall" -> 35, "Newport Centre" -> 32, "Quaker Bridge Mall" -> 20, "Livingston Mall" -> 12|>|>, TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Struct[{ "The Mills at Jersey Gardens", "Rockaway Townsquare", "Menlo Park Mall", "Newport Centre", "Quaker Bridge Mall", "Livingston Mall"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer]}], 5], <|"ID" -> 85792143290300|>], SelectWithContents->True, Selectable->False]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764185475354109*^9, 3.7641857729901543`*^9}, { 3.764185929843885*^9, 3.764185931882061*^9}, {3.764186579709854*^9, 3.7641865935498533`*^9}, {3.764186751897025*^9, 3.764186788372323*^9}, 3.764186827500593*^9, 3.769091865822307*^9}, CellLabel->"In[1]:=", CellID->92999021], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs/b9LO+//+Pl6duGw5f4LpxasT2NhuWsh7HKwsXHZr8sKfle+CgdJZRoJ WKhNAiciIoro8hRJYQoDEgRTJCgRCYqEKEQkQoQ0FineJz9mrpnMTOZHZnIZ J/db8fm8Xz4nyWTyuB7XNY+55pr/1//2f/0vS//dxMTE2v/Q+j//y+L/d+a/ /bfFjf/1f2z9x//nv679n//Hf/0v//v/9F/X/8v/8V/+2//7f/vvW3/8n/8f ExMH/8+Jifb//g8AAAAAAAAAAAAAAAAAAJDoGQAAAAAAAAAAAAAAAAAASNcA BkL8ABBICIBMtDhIQ7BBJuINoUeQI1gU9+Af8QNAICEAMtHiIA3BBpmIN4Qe QY5gUdyDf8QPAIGEAMhEi4M0BBtkIt4QegQ5gkVxD/4RPwAEEgIgEy0O0hBs kIl4Q+gR5AgWxT34R/wAEEgIgEy0OEhDsEEm4g2hR5AjWBT34B/xA0AgIQAy 0eIgDcEGmYg3hB5BjmBR3IN/xA8AgYQAyESLgzQEG2Qi3hB6BDmCRXEP/hE/ AAQSAiATLQ7SEGyQiXhD6BHkCBbFPfhH/AAQSAiATLQ4SEOwQSbiDaFHkCNY FPfgH/EDQCAhADLR4iANwQaZiDeEHkGOYFHcg3/EDwCBhADIRIuDNAQbZCLe EHoEOYJFcQ/+ET8ABBICIBMtDtIQbJCJeEPoEeQIFsU9+Ef8ABBICIBMtDhI Q7BBJuINoUeQI1gU9+Af8QNAICEAMtHiIA3BBpmIN4QeQY5gUdyDf8QPAIGE AMhEi4M0BBtkIt4QegQ5gkVxD/4RPwAEEgIgEy0O0hBskIl4Q+gR5AgWxT34 R/wAEEgIgEy0OEhDsEEm4g2hR5AjWBT34F+w8fNynYy0bMYfv4J6y+H5/qy2 fX59iz9Z7P93KbnZ/ls89fgrewk/vr+qL4/3+Xz+vuXx8aX89vnt/KphKKXj ndBKln5pB1z6Ex3Ky81h61BGIlvXL38g0QA2/kSLM/tTfb2T75fDrXZG2Ure jHZ69jtE+aPBFgJfn28vpcf7jlKp3Bp3/vYeyeA93r5ah6k1Ysvlcq1RW+nl TfZh+jupYADfX8pJj5uv9leGrP6NTFK1OCeV+HIEJpCIorOGHzbx8/V4seTB 5v1XI38S6fzvSO5Tzu5/nkXEDmw/Wqc0/TabebFjn/n17t/WT8TfLPb/M9/9 0/phfqjfxMrn/e1NS75U9fSyx4st06+zdT8WY0lNtXSb3IqYjkPnp9zcPrvO SR413stuGgNy0aHoG5RmZaV1XOPp3IuEncwfKntwmPfWNP66AXIyRpzHFuex mxuaofX1lullZT2yuXd4cT+krK328q1uftCEIuk38jlE8Zret9Ml0wZfF5vd XTgZ7a4sMF/l+/Y47DZfHeSk+ev++mRrfcUqprcOU7floafoAYeRgfBwfvr1 kkpuWxympfW9k+s3aeWKAFJBkHtjOdbqBM/61t7hrcffNH+onPQcusg+IzBk DV1Stc+ZVuekHvh8+VD8ZvKx8pciiuIe/LCJn8/8oXW/Ym29Fcb3J8qwT8LJ RXcfT3R931bKPBBtnQ6f6XbSoq3pO3GL/f/KK3+SX9z7zHVz9Uoy5+l1oge3 /uLhV71ObrqIWKmlD+lNY0BuBionfQacXSvbqWF/RfVgjl1xb4CcjBHntcV5 6+aGZmgJzSG97A1jCr3ay/s4LZL0G/kcongINqXOsmU6A1I3GKFTyOFSB1Te 0+nnY9w8FjPazA91HDLoMDIQLs9Pv16ubRt9Ow5v5RT4AkgFAXJIhi17FuX3 vtSaw1Iy5zxwGoEha+iSqn1Q+Swsj1ZduuNXk4+VvxRRFPfgh138VO/PDg9P NGcnSTElbCXe+k+dw5N0q++VX9zrvbC1bZpA/pXqmcWmb2ulw+3tvb3tvZNb 8aLRKu4N+tFfb4+3t7n2fQ256y3zFw+5t0NdSKxE9tK5+/Lb21u5XHrMX6dO tiLi4rDUgucIjJRc8TK1I3KSSqUu2k4O45u6i+6Rk+F25WNb3BsgJ2PEeZ8r 66WbG5rhFfd600srwZwl41v6KT0ngbf6IIp7cn4jCeeh7S+iHO72/9s8u7fY wNex+mMGDPWvx23d7725d3KTfyy3vJRyN2ndbQVDHof84gjWZXHv7VZfAd0+ ST+W36rV6tvLfSqpbzMyJiSPWnFPzSqbZ6l0qqOVD0+Se7ojFnFfHH65Pmmd 9Gxvx91MGB2BIWu4kqpjUFmdk3rg8+XD8KvJx8pfiiiKe/DDY/w8Kh1f5Myy bxAhrRuufLf531FrxoHodrrnrsDvl/TSkoemOlrFPfVoR07unbe19iVOlEa8 phQUUfZpSV5bz/Eo36c754rDn9eki/3Hs18fKbni5RYDQxL4vj1UD/6QLx2O b3HPgkNOxogboN7is5sLxNCLe4Z4/i5rqT3w8+6ginvD/43knYdqDFPLxq64 p/bdm/deBrK32qS99dS9RT/1Vc4n20dyZcjjEP/DyMG5iLfvtHY2vXljWkT3 8zEtjuNK/GZ4u6oYzeKeuXP/uhel44tScD3/aA1ZQ5dURyKoZPrN5GPlL0UU xT344S1+nDo+NaS37r++SzcX2xGtW95KpsqWQ6Nq6aJ3qY3N7cO824VI1Jy5 ItY0iZd1/3yz1/3zZjJuamvf5YtkPB7fO7vVWrf7Jvn99nhxuBdRP7a94NjW 3lnqtuy8VO33481Fcm97U7y4vX5GZGsveX2v7ftbPhXfVgfZ61tJVTx+mPcw Heezb3HPzWHXDlF7x6ov+dTZYfsP8fhFriy+y95WZEU9DO2VkZJnt/emn9rp 46r36fhe553zb1bf4/6w/Y97h2nbe7I+c+K8JHlr9T66HbpNXYu9/K4+Xpwk t7c211e03ySyuZU8uzZGovMx6exH6nBTW2ZnZSt+qF5qtegsSretlqI7Nuub h2njxdhy7qL9GcnU27erljVwfPoaqHzfq+ffFhfZP196V0FcWY+f3fSL5Zd8 ek9Msuzs/eHFdamqHJW+xb23fCtOWs1kby+Z67y121/28/GkE2An1z0T9b9K 152wPHns+Tqf152tkxc5EUFuGnUwQW7g7mTE+eD7OwJe49N96vh8yR1ua9NC Wwf15OwsbmxxjZfbs73ODpk+6+v2LNn7YwXe3l014X48tLgBujkve+jpR+xf 3PvMXSR7Pyp+82ifja2+rDmeq+oMn5Vk5+u7anQ9Xy1+0f6H72r+JnWY7ETF Yed79W9E+VQno7TawFnONnX6+Y08fBF556FbJ2k1zUYOcxYbWPxAToOKgJJM +fvzPq2fhL+yfXJjeZnHVadj18bbv794fesX0cZhqbxdPLzdiMZzdm+XmHPX vfebehiYtfuR78/H1va6uNlK5T0MIx3ahftd6sMx3lpn02Lf09ZnCPqVZrVp A54SvocmNkAqcHF8XB1nC3ZFoRu1unciAsypt3pTduPsxXSvvZcha+/GrZiL H551xi5WP4efzjF0SdW+uGc8J62mlaOasuw+H9OHneGkmjatTmm9D8w6I669 nhHX4dmJecTVcDrLcHkO6yVFO2c8J38poijuwY/hFPf6WIkb+pS33JnVCrpt yRs3K/OLgehZqwNR2uqN2tCqyvgqcpK/V54xoWtr6uqj+vUtXTbJt9xJ/+94 6FTp/zzs951bOUW9nzGf7LtWi5vlMozHp7eDdnvY1TUcWkPni95V7NaTraPx ZvNr66subj7u8/5EfesT89e7V64hLm1e2NU91EuN7e08Xcu0Xcpss+d4OxyT 9mi1/0+3ZBoplc+2+hybyKG+seQPjdMpevS2LD/x6W+gUo6re2+YjfCY2uuz Q1s5Y0f+drHd7wgqR8+6uPeZ16YAbF28KX9z98uqa4MYvpSYfbF3XdZ/kHqv jAgzV406kCA3clHcc3Xw/R0BT/HpPnW8XMf7btducVrNQd0B83TczxNl2Rdt NmmQ7d11E+7HS73FezfnZQ89/YjWxb3P+70+H7XlUBwzfVmLeH5RT2f3OnfT uGp0vV9t5SR11ht6nYDp04juz7SMcmZZkDfv9iC/kYcvIu88NHL2+SUu1qzf Vk0b9B4rV4OKoSaZyKHhFMttp2PTxhP/d//OPGkzDrsXSzttpdwPRbwOzPrZ u1Y2dhxGOrQL30N0x3gTB2plz2ZWnvoMF13n6Cnhe2hiHlOBy+PjeJz7sHkQ w1tS+WCLhcT79VbWB83TkPXLfhlJw9fx2TmGLqk6rbnXe06qLRB3Yr5A8P2o RqS6eLjVKa3HgVn7Eck2m+tHXI5nGW7OYb2m6H5ExnPylyKK4h78GG5xb31z L5nc29LauH4SrP7Jj5H2giT39/nbQ+28Xj+e7Ec3EP1Wb09bSXa73pzoyL6s ZphbtTVXTVKXZ9Y34xfp6+v0xeGe2odZnbYb9rmbIlbaB+fwrL2CxqH+wlaq k23Ltyeb4o8rkW3F1tbm3q3tpT7r46P7Rh4Ou/i5TVaSuby2Mul6/OTi+uY6 dXYoLqaLM3TXH1cVjwEx3WVQUjsA+6Wnv2/UYYfTtD3TYVJO9lc2t/YOT84u zs4O47pLsVtp7YjbHhPDig2be4dnZyfJuL5Wpe8svnSPNY6cpG7uH+9vU9rT UFaSt2JTDy3LX3z6Gqi83ajX8JL6H6B6m9R2fDt5fXt7k9Kva7unP2+50H3R zfhJOp3SrTDTv7j3qd2lon+ih+tfVlvcRvcDvWgjj03tHE3U6HTZzFWjDiLI TZxysuuD7+sIeMr8A6SO1q6fpVIXJ61A1vbdIXUbvpfu+ATY3t034X681Vu8 dnNDSjLWB/xN9yin9eTFde725mQvYvly5y9rjucvNbOtdK+2u2x0Vl9N9yX7 FffuL7SMcvFod07m+zca4IvIOA/90l0v090RafEDue7lg0wynRlDh/r41B8B D52OTRv//12dbGvlicjmljYOs1vYSjcUcX0p1s/AbHN7LxnXr8OmrCXlOIy0 bxf+h+hO8fadVvOuRflCp5pTLse0zru7f/GU8D00MS+pwP3xccg/fYnvohUq v7+/P98eL9Rfe2U7rY0XHHory4Pmacjac8/+VvIk1eq543u6Azlg1+Pw9UOU VO1+bdOHakls+9p4CfxWqcJpe2h3Squy7dM/73XPkljfOrlInfUbcbk4y3BM Pn5SdL+M5+QvRRTFPfgxrOLeylZaN1dWm4DRalPK30Q3sWK4Jv6YUnpS00rO Zj0DUXGRItnqL7/vlWtYnQuCLtuam83ErI+ts95G+l3NtXpc5wu13y/3+dKb cau8emVQ+9bqTY4+1iswF/e8HPaejLqSTN2+VD+/vj7fyqVytaxcHl3aMgyu qi+3e+vr6hDIw8eVr5UxvuEarugC1uP2g4GqukveV6j+fMnnTQuXaDPBdM/V tTsmX7oHLa2ne84Hv2+SEUNoiZOXle2LnkOjLcStfa77luUzPj2VGnrf6k1c pV3vGbaJS8xLe/obTr9fxEXFbfWJb7opVZHrUs8F4/t0UoyEjcW9r0cxX8j4 rF7Xv6yYOCfOMvo9NutRaaoraa03d9uofQe5iUNO9nDw/RwBL5m/6jF1LEWS N/oj+11WL7AOWtwLqr17asL9eK23eOrmhpRkLD/rTYzVV+KPum9dvhGN2s0I vO9klZxY0lPZDdc9ae85zspW8vbxpf0rVt9Kpc7tc7pG1D2J1s0ocFPZa/ga igzyRWSch7YPhTY/ZEVdxsLcoDz08sEkmcjebUmrK+lmm4gA85D37Nt4Q7f4 mOs198SUG/dDkQEHZpvJdFl8xPeLmFWlu1XTbhhp2y4CGKI7xZt2oOzXthJB srKtXHnxWNxz3cQ8pAIvYW+ff/ofH9MCmAZbPddLnCLZfNA8DVmr2vDMsDri 962/8a3D1w9RUvVU3Gt8l9RjZcgkYi7rira6kH1xz8PAbGnz8NZ+xOX2LMMu +QyYop0znp2/FFEU9+DHcIp7kVvDP4shotpjimteEYtnZFeVVm8xF92gN2eK NXk2T26Ua21K6guyuKf2WVue7p7r7/v76/Pzs1q6Np6xfvp/loexuOftsIuf O5I0nwmro7Itmw7a28dp5xH6jkwbQaUd5vH3X2Dw6+0+n7/v0frvUt/o6v4k X9VrpefQ7Y/dMdEuQ8dvjFMHTaElemeL8b8o9RyqW7tvWT7j08NAZWkrdXt7 03KdPjuJ6wahW/pu9ktcDTTfK11Oiyt9n913VrvwpOWcgC/Tmnvt4Cv1reyZ 9f9lxShX9NG53jsa9pTZ++JK957NPKS+jdpvkJuPiV1O9nLwfR0B9/HpMnV8 l1Lqj2q6/c1l6lY/znlcPWB799aE+/F8auChmxtWkrH6LO089OzReKSu1cR4 6DwC1yarvHWmqbR+mnLp/kKXYA77zIbq2+h0GSPZu9qbQteI2gklrZ3Op1xV 9hq+hiKDfBF556EltVKxpNRVjBt46uUDSTK5vi1RCWZPec+2jfd+rudKndv1 2AcbmK2bNi6pk6V0c9rtwsOmXQQyRHcs7rk9ULobuqs9ez5QwrdpYq5Tgafj 45B/+n9tp+Jeu2hzIwqEriNZPWiDDVktMrDPrsfh64cuqVqz+lBxm8N2Shc5 4h4ZfX6zHRe5OCVXc6b5cXgDnwX3Tz6DpWhXGc92h/5QRFHcgx9DKu45drhf 2vJTexcXZ5r2TVLqNQXnRwsZ3/bWsB6EzWW+QYt7+gvN7an4ufvym/NTNAyq L/mLw/hWRL/OrPqetrOsPTIV9zwddrEDFpdddKOOlchh6ua+VP78Mi1t7PFX FldSttSOTHt6kfMyen0Hin2W2Op9Sl17leOL+PbW+rrFb2IRD1bHRPTD5gkq NufCeydnvbTlUkSH5aFl+YtPL8U9K+t7hj5WxIDVvdLiNtXuEROr3cbtV8hV j8bKWU47Nexb2XP5y4rRjhJp5Xhn8+2za+Ujupcj1WupK3vXxi/jplH7DXIT h+Ke+4Pv6wh4OdVylTrE6HHPfC9nIMW9INq7pybczwCnBq67uWElGbvP6r0l v0tM+eg5Q7H/sn1Ekjc9zx9w1+jUve0zV0Q0oq2zvDbP0H1lz+IQeRiKDPJF ZJ6HarfNXrQzhdrNDTaWG0qS0WZEd4PZW96za+MOn+twDN0X9wYbmFmcMp/o j4P9xg3bdhHIED3A4l5E/cSBi3ueRt2OqcDT8XHIP87HZ/MslU6pWp+WjOsX s1NvcvccyQMNWa2GZz67HoevH8KkasXyQ8vXaqVLq7mJ+c89+c3fuEjE896N 6ecd+CzYRabylqLdZDw7fymiKO7Bj98q7mmXg22YryAYmXLm27W+0aVKhqk+ Qay5p5tfpLMS2Ypf37tZ6u3zOm539jLU4p63w267Az3rM4ijsB6Jn1yLlVA9 /8qiI1PHD7fqoqz9ZmvoaLflGqZ99Snu6e5NKKXtTyjdpehyUl2P1dw6jKH1 /eji0Ax23u0rPv0V91bMzyx81K6smY+KuvZ1d3Qq1m93mg9gsYJNn4zk4ZfV 5opsPX63rwh2v9H1W6Mk1t/40q4q9qz97r5RN3wGufkb2uVkDwff3xHwtuSd i9RRvlHOjyzutvBd3AumvXtswv0McmrgspsbYpIxbfx1r8SOVeP9zJ+o/+jY l9mkl/XeB0l7aHQO9Znur9w7Xneccmm92wMMRXx+keGfh5bFPVybqdbn+RvL DSPJaF18N114y3tOB3CA4p6429TFwtFtQQ3MPgcs7ll8tUCG6IHflru0edZb LnO75p63UbeLVODp+HgPod7vYlwCpburpaT6nZTnjHiOZE9DVnVZ4CGMbx2+ fhiTqgXrD9UmTKoLNYurLb0lWX/jope08oudmGN04LPg/ocxqBRtkfHs/KWI orgHP36ruKd7iM9msvuwdqO9+Nmt28la2v58izuA9NNgAi3utbylkrpVaHW2 nBYhudflxPWt+EX6Jn//WHp5eyspo9mhFve8HXanHXi7T231XvcQh2GQj+t8 pFjd97A1xP8WT+tzmMrVJVaxNl57+v4svyjKby9pZR1W7bRU102txw8vrm/z j4+lcvXtWrnh012KFmvMuhn86Bak3Yz3OTR7cbGwiceh7ODx6WWgotw39/1Z iosOciVuuAQsbiuw6nzVu1eWttt38tkeQD2r5alXzszv7+mX1Q3XU+VvZZ2l 7jQkdWZd/LZaVdYxXr/WDWE8NOrObvkJctN3tMvJHg6+zyPgcR6FY+rQLasY dHEv8Pburgn3M9CpgbtubphJpu9nWTXeak65D8vFWgHaZJWL6+t0x/XN7aNp cSpPjc5Vca/XytaZl1L74EMRv19Exnmotj7SxeNLarNnA6+9/BCSjLG45y3v BV/c+75W13p3+UCNoAZmARb3AhmiO8Wb7oEatgdXe6CG+i28JSvvo249y1Tg 6fj4Le71u3aprWuX1u+820j2NGS1vXzjs+tx/fXDlFRN+nyo6D1XOgsy971S 5m9cJKpt7op7DVdnGf0PY1Ap2m9xb4QjiuIe/Pit4p64T+fs0estrXZv22jf 45ZS31nbiaCLe91P+iq/PN5epw57ny1luzBLWS2DrJzlek/l1VPOoRb3vB12 dzvwVS0/5m9TZ4fbm7pnJXZeMsCvLEbpK3vXj+rsna0LVwuV3ItHLdk+E9bw K4s5Qq0hnOFBxB5TdO9S5LYfqs0zjJy5OTSDrDAzSHx6eqCG7hOrOa3n2+wZ CYsYsLxC1/vwRPVpm06P9O1Znlq78Ga8d8bbL6tLHXupm+7IfVO5vUU5t13Z S10fKmejutbrpVF3v7aPIDeyzcleDr6fIzDgCkg2qUOM2SzOjv0NYoNr796a cD+DnRq46+aGmGQsPsvmh1bnanqYuWc5WUXjrdF5Ke7pEsq24+OxTLvt+Tfy /UWknIdqJ5ibe/HNFf0GXnv5ISSZxku657Zcb3kv+OKebijibqWFoAZmARb3 AhmiO8abOFDmZS50tMlLcfW6rZdkNciou7u99r9MqcDT8RlScU80pQGLe96G rNrCCy5uyw2kcwx5UjXq+6HisRpbrTHijVKMWrl+c365l9tyz9QmZrrBZ+Cz 4P4vDCpF+y7ujW5EUdyDH79V3NPulFRvch+Idc78rL69vVX1bzuU4l6Ptwt1 DYwL03Liuj0TV8pMZy7fphShbmxeRNQ1sXaBkmy9HXbv1cVq/kI5Cp2Vcwb6 lcvaNLCl3gzv/PG3on+xWdzJ8CuLK7AnpvVQLJ6H7uZkf2ndfDOO6a3EzPOV lItHSPpcPtptfPoYqHw9qk9AaE+H0tbF0gpZ8RvTO6nNQRlb6o6J7XMlRHGv syDbd1o8UWNp/Vr3Qm+/bFtJrC7VJXbjvvcmhJ5n2npq1AofQW5gm5O9HHwf RyCA+OybOixO+qyOqtgBU+3aeBdhcO3dWxPuZ+AW56KbG2KS6f9Z6+aTA9vL 9K6+rGkrb43ObXFvpfP4hpe0llDi1+5+2kF/I/9fRNJ5aFXUqzoHys9YLvAk 8yVe172vylvec10ScXmPbaP9fEntbq9kzmY1jM/b9M3bd2ADM4tTXdthpJvJ kH6G6I7x9i0Wz+//MClt7X1dL+k+4XtrYq5TgafjM6Ti3psywVX9cT0X9zwO WdUMYH5kktqrDtj19BH6pNqr/4eKEW/8TDyc1XThyV9xT6QOi+sR6oqXns+C +yefoFK0/+JeY1QjiuIe/Pit4l7jSzw1cilu8QCp78frw6T7xbedzhwDLO69 XCe3kuk3U38lLkHaFU+0O8IMj9r8yp8pF2d0wwx1GrzVEuWuaE8dEqu1eDns dtdrXpKb22nzGm5fag7sLos90K8snn+kJv9b0wv7yiW1y0dbJ8YnRHWpv5Ty K4sTCsPS/d9vOfEYepcpWiyetp7s6bC+Xm63TG8lpsG3Ro3m4c939fFwLylC ycPSGX7i099ApXyT1A7+hToz/1NcCjeO3m/VMst6UvmJ82JK3uaJIba+3/Lx rXh338VQR72DoKo7KdwUC/R6+2U7/6JN0V/qaXfi6l5X7zrGXhq1yk+QGz7E Lid7OfiDHwFPmd9l6qiqK6gvrVzoJ2R+lVPqyieWjynpXQvx6z6l3uEh1jYP rr17asL9BHZqYPUrDCnJWG4sDuzKXu/Z7tutmFFtrvsN+GU9Njq3xb2IONPR LRh+6Obi2qC/kf8vIus81LhU5uBjOd9JprdNvYglAcU4x1PeczqAj+r5tMWc lr6+r7VLTqbJHt19LOc6mWy9XZ4KaGBmNXPPbhhp1y6CGKK7iLfvtLY6W+S6 ZNyP6n1KDOnWdS3RfcL3OOp2nQq8HJ9hrLn3WboW5fatAdfc8zZk1S0zuH2r LpPwVS2ltdszB+x6HL5+aJKq/XR0mw/tPh5XlzUDv6NBPMOoHU5n4oHkX6Vc Sjy7xfNZsE3yCShFB1LcMxuFiKK4Bz9+rbjXuyBtZO/k9r5Ufnt7Kd3fpA6V 2z6cW8EvFPfUSQjr8ZN0vlSufn5W315uxYiiu0y04w63b2+J39yXXkqPt+mz TV3S7lmzVN04Ek/dl0qP+ZuT5GHOnFLVfb2Ob27FT65vbvP3+Zu0dqVdf3HE w2F3sd7U+mY8fZsvv7UPw8vjbVL9JuIew0F+ZfFktA77SVxG3y89c6JWNk/S t6WXcrn80j586Yv4tnhv5Zqv9tSz1nG6uCm9vDzmb8/i+ikEblO09tjT1vfa Psk/lu5z14d7Eeu30nWm7aFkZz/fyi+dlxivSntYzdJXfPotNWjVufapmbiD RovEk5v7z6/vz7fShXZYdKf8+vXQ1rev86W3t/admyfxLf0B0S3IJjr08qGu rHs/wC/bfZdrbVJJ7yPntFWnTJe5PTVq8SIfQa7nnJNdH/zBj4CXzO86ddxo Z8dLe2fpXO7mLKkvCvQcVd1uryRTt/eP960EqP8JLB7u6bu9e2rC/Qy1uDek JGO98Ze2ztLK1sl9+fP767OUu9B1Q24q2C6/rLdG57a4p3+KxK3VpQq/u93/ ZreBv4i8SSba3ZGGDbz28v6STHvNo8OL61b32urTz3SLnOuLgV46HYcDqMsY mxe37YHYTerk8CLvkLK1s9fuLsdTN7nH9s97f5u+2NMWIlAaYCADM6tTXbth pH278D9Ed3V+Ub3Vd4VbyVT7c1qjllL+Qp+W13vuBnWf8L01MS+pwP3x8Vvc a7WSC8XZ2clhMr6lf1yneHyt9+KexyHro/6S5PrmZsT4rPkBux6Hrx+apNpe 49dCMpm8aI2W7T60N/caS0x999lTn/6ov+K8Emn9vMZf1/NZsH3yCSBFSyru /UZEUdyDH97ix/pOLk3/qfKfYkEe3Qu/rpP6TsRoxfl2VMu3dbdj6ndxuLfL tFn+0Hoh+C6bu0G7xMrA/ej35+V6z7xB/yWaxUx4g63exO76sH9ZHCL1o3J2 R6HnKU6D/MraA8ojZ95GQ432eOVka8XmE8VhUW/Le7P9SZd64sHmmHT3/NDu yxqaxpfu2quVdfN5t2PL8hmfbgYqNotrtb5TWivAiDlXbyebfXcpft0zTqnm LR6lajgg95Z3+X2XdHMl4p3bs7z8sl2626kMBTftljHTIwI9NWrBV5ALTjnZ 08Ef+Ah4yPzuU8fnvfV6zdZH9cUiV+ppxyfI9u6+CffjqcV57uaGk2T6bfyW O+n/OUl3BWz79KLx1Oj6f7XuZ1o3olJai6m9tH3mHPw38vtFrEYy/fgMtu+S bmZdzw/ksZf3lWT6HaXb3vhynfec2rh1bllxeFBsZxfy284jETEOCWBgZnmq azOMdGgXvofoLs8vvl9u7H7a9iftmWZ5uU/4XpqYt1Tg9vg4Hed+Pk/sh5Pt /dzTfmqnSLbcDW9D1hfL3mTFemO/nWPokqrNsWiFiu2H6r/RpuVz8Vye0hp2 qfeU/MYqnsW61gOcBduewwaQor0W9/5QRFHcgx8eZ+6pF242Lyyzsnr/wmbe dNO+ct1h03gaW86nt43XB9pXDeInqcc3x6WI1edx99kfQR0x6ha2UicMb+ou HKtXLuw2+64+pg73zKltJbKdzrt63OXLzYnhC69vHeYflWnwvXn7O38RN3zQ 2X2/7/p5YUqVm3sXphsd2lwddqtDJI7L421Kd/VZe4vtw7TxuYbef+Wc2sUY bsxx7yWXjm9Zdqgrm3vJ61yp51O/Xk6MD+9cP0znb5V43tJW57I7Jl3fuTNj dxa/uL3prhCufytl83L60OIMILIVT91q41n3LctnfLq6Cql0XP1KUmVttKit vfx5azosSytb6UeLPvarnEuafruVyNbZtXLwHi+Ua8LGW4w/tZOplb3ObFX3 v6y688p9KuvG+wi+X8RTsSzOaLw0aoX/IO98QYec3OHh4A92BLxkfi+p46t0 2Fuoj2yf3Jdura+BVvNxQ9Ssb9+UShZ9RJDt3W0T7sdDixugm/Oyh566b4u+ suPr5dacfbaS166XK3NMLxr3ja7/V+vu9KOSULaMCxndn4npJyvXZZvqpK/f yMMXcTFEseE72LTnwJp/IC+9/CBJRjdzr/djViIn15ZPYXaX91wcwO+3nDG3 mIayfXzmUoebxglOnS/YGpzdGAdzPgdmX4/KpbGTnjfuO4x0aBfud6kPD+cX rRx1YjFuWWpP2+6z2KH7hO++iXlPBW6Oj5vjbOXzrE/1Y2VlfXPb1L84RXKf pO1xyPpVvj6Jb222bW1tH15cl7++1CuV28YbQ3x1jqFLqv21P8jhQ1/Ui9d9 VrewPKUd6JQ8vr2l/Lrxw+t8+evtpvvrbqlVOy9nGfbnsH5TdJ+M189fiiiK e/BjROLns1ouPT4+llpeym+ffh4+KMt3a59fSu29bu13a589vrpaur/P59sP 036rOnVxX9WXtvJba1OnQ/P19fn2Vi53tnfc2v9h//76bH1W9yi0DoP9W7j9 OHHx1HLyucf9eyu/PD7et3R+pqrd6Vm51PlJ7ksvzmVlh4+tlttv1XqvxxdX h/X7s/yiHJvWD/fp+DO7eceB4nO4CeGr2jnEbY8vfW8v71JCq3NE3j59/SAB /rJ2PDXqAIPcJS8HXwL3qePzrfyiT2i28xPeSo+dn/q+tbn9DgQcFYM2YXld cPBJpq/qS0kJtfvH4fbnnhrdKJPyRSQE2/DGcmpxb/O+9aatcU5nmGPfp7cF l/eqnURUbi8l4PkH+ur0x91k19pp+8Y3lGPoZRgZ1C55j7fW0OnlsT1ayym1 JfNTQXu5T/hDbWJ/8BSmh+cha483ZTGcftOtJXY9vZ8bkqT6u95ulOqc6cm2 rs8y7JPPiA1N7UiMqNDHFYaK+MGoESs/bF5YXo7HEJEQ5CDIB+f9Kd6jjBYH af50sA16byN+jZ94exSznSLJfPmzfV79Vsrd5p2KuRiiz5f7/KNhBvN3Tn3i jMWTT8fAn06qvT7vc3nDddbvt5x4Mort3HUEhuIe/CN+MGLEMryM4X8BCUEK gtwHinvAQP50sA36VAL8Gl/x1n1CqJHzKqYYHnWxtZXN7b3Dw5PD5J7ujmT7 hQtC608n1R7qesgrka295OHJyeGefnmcvXGs3P4Kinvwj/jBSBEPQVuhK/kN JAQJCHJfxPN2Ke4BXvzpYFMf0cgFkT/DZ7yVb42LXLX6TH79X9T/SQorh7eS 1hcZNX86qfbo/7Czlc0Td8/DQgAo7sE/4gcjJX+yvR6JRNY3r1/+8gJKfxYJ QQKC3Jevx3ikffjiDg8w/RtocZDmTwdbKZ1spc31SNz5KTUYDQHE29db7jp1 0nZ2cZG6yT1S2/tF1cfbk2R8azOyvr6+0nmK6kqrQZ6kX8b4V/nTSbVX9TZ1 Et/eamVZ5ddtT+KLp/NjWrb9LRT34B/xA0AgIQAy0eIgDcEGmYg3hB5BjmBR 3IN/xA8AgYQAyESLgzQEG2Qi3hB6BDmCRXEP/hE/AAQSAiATLQ7SEGyQiXhD 6BHkCBbFPfhH/AAQSAiATLQ4SEOwQSbiDaFHkCNYFPfgH/EDQCAhADLR4iAN wQaZiDeEHkGOYFHcg3/EDwCBhADIRIuDNAQbZCLeEHoEOYJFcQ/+ET8ABBIC IBMtDtIQbJCJeEPoEeQIFsU9+Ef8ABBICIBMtDhIQ7BBJuINoUeQI1jPAAAA AAAAAAAAAAAAAADgl/z2LEL8Vd34+Q8A/Oc/JARAJlocpCHYIBPxhtAjyBEs invwj7wEQCAhADLR4iANwQaZiDeEHkGOYFHcg3/kJQACCQGQiRYHaQg2yES8 IfQIcgSL4h78Iy8BEEgIgEy0OEhDsEEm4g2hR5AjWBT34B95CYBAQgBkosVB GoINMhFvCD2CHMGiuAf/yEsABBICIBMtDtIQbJCJeEPoEeQIFsU9+EdeAiCQ EACZaHGQhmCDTMQbQo8gR7Ao7sE/8hIAgYQAyESLgzQEG2Qi3hB6BDmCRXEP /pGXAAgkBEAmWhykIdggE/GG0CPIESyKe/CPvARAICEAMtHiIA3BBpmIN4Qe QY5gUdyDf+QlAAIJAZCJFgdpCDbIRLwh9AhyBIviHvwjLwEQSAiATLQ4SEOw QSbiDaFHkCNYFPfgH3kJgEBCAGSixUEagg0yEW8IPYIcwaK4B//ISwAEEgIg Ey0O0hBskIl4Q+gR5AjWXy/u1Z9Ti7Oz8/Ozyzvp+m/vzNjylJfq1ddctiWT yWQLpUqjabdxs1F7LRZyuVyhUKxU6wFEPIAh85AQfhrVSqlYUNr4a7X24+JF zZ9WFikVO0qvlfqPbRIBwm54Lc5Tf41xMPz03kagoct9vDUb9cprqdCJt1yu WKk17LdvVF+7sdkaR1TrbmITGIrhBTk9+HjyUtz7iM9OqJbz1qU0/Tbz2Y/A y0imz8vG1E/brw3902DNZV6qv2Y25iZMpqLHOYtutVk5WDVtPbN69eqQygD8 LjcJoZI731iYMaeDViOPXRb7DUBqxavokjEtTMUKgX8F4A8ZRovz1l9jbAwv vbc1iwud7XYLjPTQ5iLemqWrg6U5i3ibWohmKxaB9FPJReemjKG5tFtkBgF+ wzCCnB58nHkq7u1ohbuJxaMH8xa1fFwXQrOZ4Rf3GuXUdPfDdu6G/2Gw5maw V83E9PllZmamp2ddvezNNtWY5cCwk5quKlx7AEaXi4RQ3zWOrHvM7eZML2lm dxcsN57ZpbiHsRZ4i/PYX2OMDCe9dzUyapLfLVBnQZureOt7vtB2XOpJV7Vc wiY2M1XOLyBb4EFODz7mBp2517L8YJy8Vzta1G8wK2HmXqOWne9+WCw7/A+D NRd5qbqhhsVSIltXOs+f10xCJJyEbixXPBBn8QvnuVIr0Gqvud0FdduZBMM+ YGS5SAiNRHegMrOUOL8qvlaq1UoxdxUVbXxiJtvbyAsJrbI3tRC9ypWq1Wqp WLhMRBOZyjC/DTDqgm5x3vprjJXg03uzkthYXV1a0J9+UtxDl/t4m1rYOL7K lirVWq2Su0pos5amYlWxbT0n/j6zelCs1n9+GpXC1aoWm5xfQLaAg5wefOx5 Lu5NduOi/f+WT5/0/1x/Op3oIaW495HtVhwp7v0ix7z0UzpQ0s/GleGfqldK EtJNv6moeWnqsmeSXjWqJqZzJu8Bo8rNLQbZROw4Zy7K1UVdX39y9/N6LPqV 2NVr4DsM/GnBtjiP/TXGS+Dp/T+NnHmiH8U9dLmIt5+r3dhVyRQwtaxa+pgT N3kXdudEcus5i2iWVsUYI1sLbvcBZ8EGOT04Bpm5NzmtVPgmIvrXpNa6f56P Rub7Ffce0vvLs+qrW6bnY6dZw1p5z5n9SEv0qFyvP6Ra20+rW08uRo+eDdMF a/lFJRu/6/5az6f21xZnJ9VS5PTs/Fo0nr4zvhqBcMxLjaIyDX4uUTT8Uz1r TDXNyrmSl1avDCW8Wiba/ael41KQzQBAcNzcp99P6cB8W1bzUr2svnpOZQ8w CrbFeeqvMW6CTu//aVf3Ls/Pzy8vL68OonMU96DnI95+jtVi8vlr9zbEhjrV aSZjKuDV1DsZZ2L9bhsHhiLQIKcHx0DFvcV4en9Zqe6l1Fe9i7Xvsnf7i1bF vef4oq6spzcbe9IV3bKxWevNuiYjTz0Vuo+dzgdHM6K4V96Z7/vq3hogguF+ 5t7ExIJhRYt6brf7D6uXynXeyqWSfMwVvGb1SjnJnztgtWVgNPkYqIjFNnWz dmsZ9W8xLqgDZsG2OE/9NcZNwOm9V1ONPYp76PIRb40DpZQ3l6sb/jKVMcfX j/IwF+7MhWSBBjk9OAYq7s3GP+p5pX42GS13/i2jVOSmM7VGPm6euVfb15bj m905St3l79JHMW1OXjQtNr0z1Oam59ei0bVFsa3hduBa9nQ/Ht/PPCsTALPa Yz+mIzv7/1L/juKxRXW6IMW9YXCRl2ox7b6Lqdh5tqZcRissqX+8UlNQQb20 liiaCnh0vsDI8zxQabY0KkXt2V5T0Yz4R3EVciGRq77mjhOxjY2N1dWNaCxx fJmtUuXH2Au2xXnqrzFugg62HiLbU9xD1+B1j5+COqdpoaDOaRKVEIunMTcK 6rQ+zi8gVaBB/h96cAxS3Jveqenm10UzH436nXLD7lqqoVXntOLex91Od+PJ 5f2y/i1reWUK4MT8nXp3rlbcm1w8zWp79fQvovx9Nt5/Mb/3HaUKuGi4Kfj9 Kb02Pb2fl7AO4Nhxk5ea1YzhUZdLGxtiAeVYRlsKtJjo/7g0kcfofIFR5Wmg 8lM67k0MExsHOf2TvEoH1g/JFUOXXR6ogfEWbIv7j5f+GuMm8GDTo7gHg4Hr Hpmo+njRpUu1kCFuy7V8oEBFWXaPO4MgV6BB3kYPPuYGK+61C2TvaaWKNr+T Uu7SnfzXWdPOVNyr7SvlutmMqbT2nlZWUYupW4uXpw0b15Xl9Vo70H/63Yc6 cW/xrtZ3IwTLZV56PdYe7NNjtecyrl1xT1xZo/MFRpWngUqjsGvIB9Hjnkcp FhO9g5SZuYWlhbm5Gf3fePIXxlmwLa7LZX+NcTOMYNO2p7iHXoPVPSpXUTXi eu4BL2rPF507L2rrfDQbtdy5+hLOLyBXsEHeRQ8+zgYv7jUa6ch0T8Asn3YX wzMV99QXTkys7cR77UfVaXrihlnzxL9+O2C3ky2Ts7Gj1N3D80eNx2gMl5u8 VDxQpwMvxK6uzjcWxLl5+1rC1Oq5GMlR3AP+NG8DlUbl6vz8+PhgN7ahFezm EmLYLRLCXPT4taZN+mg2XnfF4IXl+DDGgm1x//HSX2PcBB5sPZtT3EOvAeoe 9UJCxNqGYW2xH+2puJ18NjM3tzA30/u45pkE5xeQKeAgpwcfe36Ke43yP/0T Mo4elKlyxupcXdx7ayeg4l7j4y5ufvPJ6dnIzr8yRb7hcMxL2vKeMzExG/in 9noe1ebkzKnP7nF5Wy6dLzCaBl8/pFmJiZsM1AfjioSQKJpu5/opqiOYuRwZ AeMq2Bbnqb/GuAk22Awo7sHAa7zVCwe6NGXx3NtmLbfaM/G/x9QEy/5AtmCD nB4cvop7jfq/ZbW8N78v7oI1Vuc+smIy3XwkGrGythZJPfWpDdrtgLXy3dFi 76RClXEhPgTCKS81r1an1NNz4xl45Sqm/jpLpc65Ow/UAP60wc/+2k08YRh7 iPtorE73ftQ7DxYs1scGxkOgLc5bf41xE2x6N6C4BwNP8VbNaLeBL+xm+z8z oPlayBwkYtFodGMjGttNXOVeq8XzKaUiYlESBIYn0CCnB4fP4l6j/nTUjZK4 7kEVpuqc+pCL2bibqXP+i3tdtffnfDZ9FI8tz2uVvulY1sVL4Y1TXhJr2Fo9 oOo/lY3eVFO5VP5gvrbbrFwqOYvbcoFR5efsr1Ewnv29nq+qp3vmRv9zvkBx D+Mu0Bbnrb/GuAk2vRs3oLiHXu7jrXSuJqeJidVjzxOTxLyCKI8bgFyBBjk9 OPwW99p/fS+Xy+/6qp15zT31CbaTRw/O5b2gint679l9ZYrh4hHP2Qic6+Le TMZipZW6+sxu5fS8WTlXM9el4ZJE9UpJSwvHpSCbAYDg+Dn7q2djhrM/cbpn eBxYR029z4vbcjG+Am1x3vprjJtg07sBxT0YuIu3n8yudsth9NL6pm87tYx6 q+7qa/8Jf8AwBBrk9OAIoLhnZq7O5feV59xOTEfM5b36ez62Fs3X+r7cww7U n6Lzy6d3ZePfa+qtwRT3hsAxL+XUM/CpjStDt6ktDqAtiS+uLBgeAFSNqqve nr9yyQEYUY4JoVm5Wt1IlGrmNfS0xa61Ar7uj4an4tbUU0UeqIFxFmyL89hf Y7wEnN6NmygBZrEqC8aSc92jWTte6pwbtP/P3Ln3yPmpZpdEZB4UB99XYCDB Bjk9OOQU9xr1B90zNWZ3TtMPT8/l56e7zL/YmrJx5qP/y93vgLq+3/R85DSd fS6/f3y8P+XT0Xl14t7+g9PXhGeOealR0hb/nNk4fq13R30/r9kDsa7tqu4m 3OKBuDyxcJwt1RuN6msutqCW9mZ2uaYLjCznhCBuzlqKnl9lS6+Vymspc649 /NZwy8DruRh6T0SPs9VWRqhXMwfa7QmxLOMUjK9gW5zX/hpjJfD03i4HFouF YrFYKmUPlPrf6kG2VCq2/1yqMpFqnLmIt84SZN3zg7nY+fnxQeKgRyKROM+J iGtWs9GN3atcsVKtVkqF45g2umidXDCSgHzBBjk9ODwV93bU2tq77XaiOpfR 1eBqD/9mJ2xMm4t7GVNxz3kHPjLWT9JQLLu4LRieuZlRXDhY0v8SUzM9T6ua 2rjsvcpbjfV9mtVchrEeMMLcDlT6OzDek1XX6v3mjGC3bjYQfoG3OI/9NcZI 8Om9kev/8NJWtHExd6w5x5tYuMNdFPWNz7ndCiMJ/IbAg5wefMx5m7nXrbrN 7zvM3FO3M069qz+fxsTjdTWzi5GjtLgrt5GPLyovN95A+7GvvHG8/w7U8umj tXlzhW9yOXb6zB25w+FyDZZq4XzJYgw3l8hY3aDRrBxszJm2jRbq9L7ASHNO CD/Vq4PYwsyUOR3MLMRyVctxx0/2YMP0grmDbGU4XwL4M4bR4rz11xgbwQeb 7nZdC3MJbtAdZ47x9qObp+QmiszFvamZpYOrIuUO/JbAg/w/9ODjzUtxLyD1 j+enh3w+//Dw8PT0/FEbyly6eq31KZ2PaX/S8wcT9obJZXGvq159LeS6CqXX mn2prtmovXZuzWhtXXxlvjzwB7hPCD+NeqXTwtu3ZL1W6g2n0n2zUe1mhEKh VHHIHsCYGF6L89RfYxwMMb0DJp7OL9xp1quVzk3f7bCsNajq4ZcNIcgV9ODj 6ReKewid4eUlAH8OCQGQiRYHaQg2yES8IfQIcgSL4h78Iy8BEEgIgEy0OEhD sEEm4g2hR5AjWBT34B95CYBAQgBkosVBGoINMhFvCD2CHMGiuAf/yEsABBIC IBMtDtIQbJCJeEPoEeQIFsU9+EdeAiCQEACZaHGQhmCDTMQbQo8gR7Ao7sE/ 8hIAgYQAyESLgzQEG2Qi3hB6BDmCRXEP/pGXAAgkBEAmWhykIdggE/GG0CPI ESyKe/CPvARAICEAMtHiIA3BBpmIN4QeQY5gUdyDf+QlAAIJAZCJFgdpCDbI RLwh9AhyBIviHvwjLwEQSAiATLQ4SEOwQSbiDaFHkCNYFPfgH3kJgEBCAGSi xUEagg0yEW8IPYIcwaK4B//ISwAEEgIgEy0O0hBskIl4Q+gR5AgWxT34R14C IJAQAJlocZCGYINMxBtCjyBHsJ4BAAAAAAAAAAAAAAAAAMAv+e2bO/FXdePn t2ehAhgJJARAJlocpCHYIBPxhtAjyBEsinvwj7wEQCAhADLR4iANwQaZiDeE HkGOYFHcg3/kJQACCQGQiRYHaQg2yES8IfQIcgSL4h78Iy8BEEgIgEy0OEhD sEEm4g2hR5AjWBT34B95CYBAQgBkosVBGoINMhFvCD2CHMGiuAf/yEsABBIC IBMtDtIQbJCJeEPoEeQIFsU9+EdeAiCQEACZaHGQhmCDTMQbQo8gR7Ao7sE/ 8hIAgYQAyESLgzQEG2Qi3hB6BDmCRXEP/pGXAAgkBEAmWhykIdggE/GG0CPI ESyKe/CPvARAICEAMtHiIA3BBpmIN4QeQY5gUdyDf+QlAAIJAZCJFgdpCDbI RLwh9AhyBIviHvwjLwEQSAiATLQ4SEOwQSbiDaFHkCNYFPfgH3kJgEBCAGSi xUEagg0yEW8IPYIcwaK4B//ISwAEEgIgEy0O0hBskIl4Q+gR5AgWxb2B1Z9T i7Oz8/Ozyzvp+m/vzO/ylJca1ddCIZfLFYrFUrX+Y79xs1F7LXa2LhQr1brv eAcwdAxUAJmG1+LogmHgIdh+GtVKqVhQ4ue1WnMY8AEmwx5ONH/amsP7AMAJ SRXBclvcq2XnJzqmd95N/5iJznb/cfn0yfhv9Yfl7r/Nxj8CLCeNgI9srPvN Jub3a7+9M7/LZV76qeSic1MTvWaWdouWZwzNysHq3IRx69Wr10bgrQBAgAYb jddzCaWZLxw4NnJPGwPh5qbF/ZQOjP1pr7lEoecFdMGw4ibYKrnzjYUZqyib iV0WHQsppHcIwx1ONIsLna12CwQafk3gSdVzd49wcT1z7zky2Y2I2YyxSFeO TqvhsnxqmMNWfzjq/stkJBVsQen3lVPd7z27c/fbu/LL3OSlmuhqrdJMpmrI TNWYZQ5rm7qqcJENGF0DjMablUut7j+TsJ8h5GljIPTctLhG0aYL7rSkmH60 TxcMay6Crb5rvIrbO+Dbzdm8mPQOvWEOJxqZ3W5tb2K3QKDh1wSeVD129wgb 97flpiNKCS+W6Z27956e1uJl+aG3uvdwpEzci6TLQZeUfps6m3E2lv3tXfll znmpnhMzAGZWD4rV+s9Po1K4WhXJqrf/LR4sqP+wcJ4rtWKq9prbXZiy3BjA SPE8Gm8URIPvNnC7i+ieNgbGgKfi3tzG7oFJIrF7nquKjemC0Y+LYGskupXh maXE+VXxtVKtVoq5q+iCNuDL9gsg0jt6BT+caFYSG6urSwv6YgnFPfyiwJOq p+4e4eO+uPeejk4otayM5d87Jk+f9NW9+ulid8LfdNp8N+9f95GdpbjX4ZiX CrtKbW9q46rnkn+ztKqGTixbU/9a2VD+NnXZM0OgGlXT2DkzB4BR5XE0Xum0 a6VtTzmc0HnaGBgLnop7iaLjIj10wejLRbA1s4nYca5i+ntd1Iz71FJI7zAK fjjRyJnnQFHcwy8KPKl66e4RQu6Le433jLKy3nRMX6jLRKf1GbJn2T2x4N50 zDBv7+MpHV2c1RUFpyPxVNl4T+/zfjTSsp8t19/z8YhSKGzX0xYj6afO7cH1 cmo/Ojst/mU6epS1frzF+8N+dHlS+8iJ+eVY9rlntbznzH7786JH5Xr9IbW/ PCu+2uRi9OjZ8L61/GLn32JZ/fGo51P7a4uzk5PqF5udX4vG03fGV4eJU15q JJTa3kymZvy3WkZZunAmpkwqblbOlX559app3FipJC8dl4JsBgCC42U03jhe UpLs6q56h0zfEzpPGwPjwlNxz/E0li4YNga4TVIoHdjcBUl6h4UhDCcaucvz 8/PLy8urg+icy6wIDE/gSdV9d49Q8lDca7zvKLWuWd2NucqCe/OxI+WpGrpl 9+pPR2rFrWeyX/5obcLaYkZf4FOnxvUxvXO6v2j5D6b1/cqZ+KTVli3RlFaN zMZsP3Ay0jMtsfHRPSBR7XCUd+b7vrq3BhgqjsW9A3XiXsacZn6Kogvu/mPl Upk1YD59aFavlCtucyyzDIwo9wOVbEyt+8eyrUGK/Qmdp42B8RHszD26YNjw cR4qFnI0zAhtI73D0pCGE11N9bkD1EDwiwJPqszcG3NeinuN7I5S+9LKWeqC ezt372plbE0Uy8SCe7ryV89tvNPL0X/pdOpoR1dT016uPaJXMbm4FolGls1l usnZxUg0ujirzd/TzwKs5ffFlrNrO6ns3V02HVsWs/K0W4bvDLW56fm1aHRt UZua2Ps44Fr2dD8e38+o0/+y2veYjuzs/0v9O4rHxF5R3GudD1g8kKpRUPtj pbhXUOf5JYqmrU2VQACjxuVA5fVcvSm/+zy7Hy0VmPOEp42BseKpuLeQuCrk si25QvG1Uvsx3V9LFwwbns9Dmy2NSjGzoa68PBXNGDYhvaOfYQwnBCY4YRQE nlTdd/cIJU/FvY+7HaV0pc7Ee1fu0ZjN1BofStVOLLtXP1XqcPoH7JajagVu 7TSvvXX9SUyaWz59UP6oK+4txk61O2jLKa0YOLn8Ly9u+a3/WzM/9eMjrmw9 Gc/23BycV2uP83HlcbdacW9y8TSrHZCnfxHl77Nx47OCNWJm42K2d6P3p/Ta 9PR+vv9L/zjXt+VOJCw60IrSJaszAYqJ/jdu/BQ4swBGnJuBSj23KwYlyvVG Xetu+NgYGDeeinsmUxsHWX0joguGDU/noT+lY0O0bRzkDFNJSO+wEfhwQo/i HkZB4EnVfXePUPJU3GvU7pTil7rsnrLgXvc/1Vl8yvQ2bcG9nXftDeJKfM3v 1wxv/nw6qW6vVMHU4p7hrt7WP+wr+6EvG3bfXyk/zu4oD7kQ0/ZmjW/S3mOl 0jirfKJa3JtNG+pwdWV5Pf13MflQJ+4t3hm/W8g55qWiqO5NzJ0XtXX3mo1a 7lydyemmuCem+XFPEDCqHBNCs3Kprmi9kBOtvM9o3NPGwBhyVdwrqOe/llbP xdkBXTBseDoPNUdd9LjnSbmkd9gLdjhhQHEPoyDYpGq5Tb/uHqHkrbjX+BBV tc6trOWYUtvr1s3UWXmdZffEgnuiztbQFd+i6bLpzd9jysy35Yfu1D+1uGd+ HK2owhnmyIm5heIl4hMnptf29+Oanfh+XJ2PN20s7mWNk+zU6X+i8Gh1cOJi QuHkbOwodffw/FEL8WM0NM556Ud7Km7b1Mzc3MLcTO8Tq9QumDML4E9zSAgN ddQ9MXOlX3mpqd7xN3fwM9jGwFhydWrQqGSuMsXSa7XWHpfU67XXYnZ3aUb0 wBuXypP46IJhw9sdZI3K1fn58fHBbmxDC7W5hHKJl/QOJ0EOJ8yvpriHERBk UlW3cdndI5Q8FvcaefURFtHMR6OW6VbjxD2waeXJue11855PlYl7O3cf5pfH TOUz8XyKiYl55R+9F/fEMzjES8S6f3bUiYj+inuNDzEvUWdyejay88/4IOBw cZOXmrXc6oz58Ci6D6zvdq4u7wnizAIYTfYJQbukuHpeKhULimIhI+4jWLoq Fgu5YvXH28bAePK8Yo9OJqp0zOKB9XTBsDF4sDUr6trvE0vnr//x2BdgPAU4 nLB4OcU9jIAAk6o9c3ePUPJa3Ks9KHe5Tsey78qkuFnd4zWUZff+lT9SyoJ7 81ndParikRNWT5dQb5KdWM53XzJAcc/0Et0DcOej0YiVtUg8XbN/W3fFvZby 3ZHu+Rt6xoX4wsR1Xmq+FjIHiVg0Gt3YiMZ2E1e512rxfKo31bCaN/CnOYzG +y4GYhTL1T1tLPM7AqPDT3HvP/WsMtxXJ+PRBcOGn2D7UfP53G7hPx77gkC/ BP6MAIcTNi+nuIdfFGBSdWDq7hFKXot72kp687GjWKcUpk57a1OX3Ysc/Yt0 /9d8zxMo3rMxJc1azdxTb2v1MXPP9BLxifG88+Q5/8U9ZS/en/PZ9FE8tjyv VfqmTd8iNPzkJXEeEc1Uu3+pXG50/2K+DKGtrUFeAkZVUKPx3ULD08YyvyMw OnwV90S9bklZh4cuGDb8BFujMGBxj/Q+tgIcTti8nOIeflGASdWBqbtHKHku 7jXqp4uT+oTZ+7SLcqx33tp8PK9/8YdaapuMpIxvrN5Rqz20IojinvjE7kqA 9oIq7um9Z/eV47V4FNbnbAyel2oZdULx6qu6Wkazcq7+7dLw1O7qlXLSsXBc 8hn5AIbEMSH8WGj+iGwwFas2m60/DbAxMIZ8nRqop7dTG1fdDpcuGDb8BFtd HZCL81DSO+wFO5wwoLiHURBsUrVh7u4RSt6Le42n055V7KKZnhtsM9FZ/b/G 870FrQ+l+DYxMXn61FNsS6v3z05H08qfgijuNWrqg24nJiL/Hkzfpp7/F4se PTi8rZviXv0pOr98emd6UEhNLVpS3Ov1U80uqT/NwkFR9y8V5fxhYupSv0Du f6pR9REc568M9oARNeBARSznNediOS9PGwOh5tzimpWD6G6uYmorzVfRq+rq dXTB6Msx2JqVq9WNRKlmihDdg9UcisOkd6iGOpz4KR10t7JYggCQJeCk6q27 RwgNUNyrP5/qpu5Np3sXz3vPxLR/nFg03wt7t6M9U3YndfdRq3+UH/bXxB+n U6I8Fkhxr/eZGrNrO+m7h+dy+enhLnUUm+98E3HDrK/injrzcHo+cprOPpff Pz7en/Lp6Lw6cW/fXFoMCTedb7OajW7sXuWKlWq1Uiocx0Rhb2JiZrfWu3Hx QH3+VSsDZUutIKq+5mILU2J7rrEBI8vvaNzNWv0s7A+onFuc+pTbmYWN48ts 8bVSqbxmL7WOdmJiqaQr49EFox/HYNNuE1uKnl9lS61gey1lznfn9MFmXxsm vUM1hOFEs1IsForFYqmUPVBKI6sH2VKp2P5zqcqMJkgWcFL12N0jfAYo7jUa T2siQKZjxplq7xntxlzruWrlnfmJfiL/nrQNa8ZH3wqiCpcxFfesXlL71zuf 0GBSvbO479s2PnbU4p75QSDqJhnrJ2kolh/C+8BcN52v9kwrg7ndikWSqcb6 Plp3LkPfC4ywAUfj6oDE1Vr9njYGQs1FcS/X/2H1bQdFQzOiC4Y1F+ehfQZ7 Itgcb4EkvUMV/HDCPhlOceUCsgWcVD139wibgYp7jZTytIyJ2VjG9I/vYmre 8lG/uWof6fiaMdomF0/zvZWz2l33jtr5nTvD6+/i3X9ZvDNUD9WZe/Nx40ue s6fLs5OmD52N7Bzly8q75JW37XnCb3eH99X37b/mXi2fPlqbN1f4Jpdjp89h vSO3Y7Di3tTM0sFVse/122blYGPOeCznooU6pxXASBv0Urt6f8HCsYuZe142 BkLNRYurZw6ic1Yj/pmFWK5q1Q/TBcOKc7D9VK8OYgszUx6CzfgOpHcogh9O 6O5ktMCd4JAu6KTqvbtHuAxW3AtG7f3hLtuVfyrLmdf28f78kM/nH1qenssf w/jQeu3j+emp/SntD3oeymeMGHedb7NerXTmvRdLr5Vaw1V6aTZqr52p8rlc rvhac34BgN824GgcwEDct7ifRr3S6VO7PXGt4VCpowuGwWDB1hr11Z2CDTBj OIHQG1JS9drdIzR+s7iHsKDzBSCQEACZaHGQhmCDTMQbQo8gR7Ao7sE/8hIA gYQAyESLgzQEG2Qi3hB6BDmCRXEP/pGXAAgkBEAmWhykIdggE/GG0CPIESyK e/CPvARAICEAMtHiIA3BBpmIN4QeQY5gUdyDf+QlAAIJAZCJFgdpCDbIRLwh 9AhyBIviHvwjLwEQSAiATLQ4SEOwQSbiDaFHkCNYFPfgH3kJgEBCAGSixUEa gg0yEW8IPYIcwaK4B//ISwAEEgIgEy0O0hBskIl4Q+gR5AgWxT34R14CIJAQ AJlocZCGYINMxBtCjyBHsCjuwT/yEgCBhADIRIuDNAQbZCLeEHoEOYJFcQ/+ kZcACCQEQCZaHKQh2CAT8YbQI8gRLIp78I+8BEAgIQAy0eIgDcEGmYg3hB5B jmBR3IN/5CUAAgkBkIkWB2kINshEvCH0CHIE6xkAAAAAAAAAAAAAAAAAAPyS 3765E39VN35+exYqgJFAQgBkosVBGoINMhFvCD2CHMGiuAf/yEsABBICIBMt DtIQbJCJeEPoEeQIFsU9+EdeAiCQEACZaHGQhmCDTMQbQo8gR7Ao7sE/8hIA gYQAyESLgzQEG2Qi3hB6BDmCRXEP/pGXAAgkBEAmWhykIdggE/GG0CPIESyK e/CPvARAICEAMtHiIA3BBpmIN4QeQY5gUdyDf+QlAAIJAZCJFgdpCDbIRLwh 9AhyBIviHvwjLwEQSAiATLQ4SEOwQSbiDaFHkCNYFPfgH3kJgEBCAGSixUEa gg0yEW8IPYIcwaK4B//ISwAEEgIgEy0O0hBskIl4Q+gR5AgWxT34R14CIJAQ AJlocZCGYINMxBtCjyBHsCjuwT/yEgCBhADIRIuDNAQbZCLeEHoEOYJFcQ/+ kZcACCQEQCZaHKQh2CAT8YbQI8gRLIp78I+8BEAgIQAy0eIgDcEGmYg3hB5B jmANWNyrfzw/5O+68vmn5/JHrW7a5iE6P9sSOX0IsI6EEeQpL9Wrr7lsSyaT yRZKlUZzqAEOQDYGKoBMQ2pxzUa98loqFAq5tmKl1gj8I/DneAi2n0a1Uip2 4qdQKL5Waz9D3jeEz7CHE82fNk5E8IuGnVSbP60z71Kxo/RaqRPvYee5uPfx dBRbnpywMDm7GNv/9/SuVvk+srOdv0/HssMrK2EUuMxL9dfMxpw5cKaixzlD dvopHViFmGYuURhSiwDg02Cj8XouoTTvhQPHIoKnjYFwc9PivPSqzdLVwdLc jEVvvRDNVmhwY81NsFVy5xsLFvEzMTETuywaTiwZ78HGcIcTzeJCZ6vdAmkN vybwpCrUilfRJeOJ91SMjBpynop773f7lmU9vcloRtm6lp3v/GWW4l7YuclL 1UysJxnNzEzp/3v1Ul/faxQTE7ZmSE3AqBpgNN6sXGoJYSZRD25jIPTctDgv vWp91/IcQnVcYgbW+HIRbPXdKbv4mdvN6bdmvAcbwxxONDK73drexG6BcQR+ TeBJtaOZVcPbmFF3yagh56W497SmhcZ0dD+Vf3p6fn7K32VO47HFaaXsp5Xy KO6NDRd5qbqhhs5SIltXrjH8vGYSIl0ldH2rGOzNbewemCQSu+e56jCbBYDB eR6NNwo9Q5CZhN1FdE8bA2PAU3HPRa/aSHSKe1MLG8dX2VKlWqtVclcJ7fL/ VIwOeGy5CDYlfiZmlhLnV8XXSrVaKeauogtiuDeT1ZVSGO/BRvDDiWYlsbG6 urSgL5ZQ3MMvCjypthQSWjuYWohe5UrVarVULFwmoolMZZjfBr/PfXHvORVR omQy8mBaYK+lnE8tT05MRu2Ke/WOwIpKGA2OeUncdjG1cWX4p+rVhvlSghjs JYrMEAD+GI+j8Uq0PTxRhihTDvU6TxsDY8FTcc9Fr/pztRu7KpnOdmtZtb43 x01sY8tFsDWzidhxznz+WD9QTzd3rS7mMt6DWfDDiUbOPAeK4h5+UeBJ9ef1 WMR27Oo18B3GiHNf3MvGukvoTUQz7/23qmlP1lCLe/PxfP3jYT+6rE7um5ic XjzKWn/cx1M6ujirJdzJ6Ug8Ve5TDnxI7y/P6m4Unp6PnWZrxq3q+dT+2uLs 5KT6jrPza9F4+u6ZImNQHPOSdmU2UTT8Uz1rV9yjwwX+HC+j8cbxkpK/V3fV Wwj61us8bQyMC0/FPR+96s+xeh5x/kodZkwNcJukUDqwuAuS8R5sDGE40chd np+fX15eXh1E54g9/Lqgk2rzclUpYK+eU9kbRwMU9+bjeVcVH7W418/avyfD K/JHa322XcwYC3zP8cU+6//Nxp60bcs7/XcilrWpUsID9zP3JiYWMtWehT/r uV0lBV1qlyS4kgv8Xe4HKtmYMrSeiWVbgxT7ep2njYHxEfTMvb7vcaA0wbkc p8Ljysd5aDWmrOU4dVnRxoGM92BjSMOJrqZ6bkJxD78o4KRay6h/i9WC20n8 IYPcljsxGfuXN02QMzEV9+aX16KRtWntD8v623vf01HxD9PL0X/pdOpoRzeH b01XCqztL4q/z+4cpe7yd+mjmHjnyWi6u11We4PpyM7+v9S/o3hsUZ3sR3Ev KC7yUi2mzYOfip1nlad3Nwrqdbapq6rFYG8hcVXIZVtyheJrpcbju4HR53Kg 8nq+qrT+7vPsfgrq0NxiNO5pY2CseCruDd6r/ojFrBYKlGHGlefz0GZLo1LM bKg3dU9FM/p/Z7wHG8MYTgjMGsUoCDap6jJqrvqaO07ENjY2Vlc3orHE8WW2 yoh5DLgv7jVqd1pFrVNCm51fju7E/6UzD89li1qfrrg3Hz19/lD/Xn+KqGW4 nTvx13JUnYi3dqqbGVh/UicMTiyfPnT/9nG3o+zB8n655xPzy+oH3rV36H1H +aDF7Id+u8b7U3pteno/3/tXDMpNXmpWM4bH9ixtbIilQGOZngWT+z89bWrj IEtmAkaZm4Qgpuy2BiXK9UZROjCNxj1tDIwbT8W9gXvVTFR9hu7SJXWXseXp PPSndGyIto2DnKEwzHgPNgIfTuhR3MMoCDapiht1++XVXR6oEXYeinuNxkf+ dLZ/uMxH4g/6apla3JuOZgzv86BOvBNz52p3cfVd9o11wudTpew3vdN5+9q+ UjSczZiKc2L6X6xdzvtQJ+4t3jlPNMTg3F5ZO9aettdjNWPYslHYtd5S2f6c WQPAyHJMCM3KpVrXX9Du7+szGve0MTCGXBX3/PWqlStxb0XPPZUYN57OQ81R Fz02PNSR8R7sBDucMKC4h1EQbFItJnqLezNzC0sLc3Mz+r8lCPhQ81Tca6s9 /9uJzPZZ7m5iYvpITIezelqu8i/q1DtdcU/5SzRdbhi9qzfcdm/j/YirFca1 nXiv/ag6WbDzztqWE5OzsaPU3cOz9rwPBMdNXioeqDfgLsSurs43FkSe6Tza avW8J9E0KpmrTLH0Wq21f7B6vfZazO4uaalp45LrDsCIckgIDXFz38yVvkrQ LCp/nzv4GWxjYCy5OjXw0avWCwk6X3R5u4OsUbk6Pz8+PtiNbWihNpeo9W7D eA/9BDmcML+a4h5GQLBJVRT35qLHrzUt/JuN110xxYbl+ELNc3FPVa+9Pz/l 0/+OdqJrs7p19CYmIsob9S/ufZiKe3ltLp/5VtkP9e7a+fY/1sW9t3a67/wh JgTqTE7PRnb+9XsCLwbgmJe0B2rMxMT9tz+11/Oodn1hTve03H7EbUEzsVwQ 4Q8gePYJQbvsuHpeKhULimIhIwoIS1fFYiFXrP542xgYT55X7NFx7FXrBfE8 rFY3Tc877gYPtmYlJm7sdvEMR8Z7+E+gwwmLl1PcwwgINqmK4p7FI4p+iuo8 m7kcN72E18DFPYOHf+KWjcnT507hzEtxTzz5wuohF+/qcnzL7cd4fGTFdLz5 SDRiZW0tknpSbsQt3x0t9tQeBeNCfBiYU15qXqlP5U4UjdmkchUTXXDJ8fS8 nlXS2NwBaQkYTQ6j8b4rLBnFcnVPG8v8jsDo8FPcs+9VqxntDqCF3Sy348JP sP2o+dzNxVzGe/hPoMMJm5dT3MMvCjapFhNz/aP6R10fa6FAVg2voIp7uqXw Jo4eOoU1L8W992xM/YvFzD317trOzD3xmIzZuPvJd7X353w2fRSPLc9rlb5p 045hME55qaFmmjmrZFLZUH4QF8W9H3Wm/RLLsAAjKqjR+G6h4Wljmd8RGB2+ inv9e9XS+YZoX6vHLqoxGAN+gq1R8FLcY7yHQIcTNi+nuIdfFGxSFU+Otor5 n3Mlq1LcCzP3xb3nzL/0k81zKepHyp21k6dPnmfufajFvclIyvjGYqre9E5n a3GX7uTRwyD31r5n95WZgItHPGcjEK6LezMZi5v867Ept6lGdMRTG1dMIQBG k/N9+haaP7WMMk9jKlZtNlt/GmBjYAz5OjWw7lV/MrvaohnRS+ebKDEm/ARb XR3quynuMd7Df4IeThhQ3MMoCDapahVvi+fa19TbeLktN8zcF/eyncdarMVT ZauK2HNa3Fw5rzya1ktxr/GRVef9qbVBVTqm1vai6e5fxAJ9E9MRc3mv/p6P rUXbN/DWn6Lzy6d3pid01NRqIcW9gDjmpZyaTcyDNG05PrG8Z7NyEN3NVUx5 p/kaFc/EOi4F2AoABGjAgYp4vN2ciwfgetoYCDXnFuepV23Wjpc6f23/n7lz 02IaGGeOwdasXK1uJEo183JPpdUJc7Ax3oOdoQ4nxAmIeckgQJqAk6ruj4an 4tbUSiAP1Ag398W9ux21/DYxMb8cPfqXvss/PD09ZNOnUd2qdvPxvPICT8W9 9vtrj7bdSd191Oof5Yf9NfHH6ZSo0tUfdM/UmN05TT88PZefn+4y/2Jrymdm PrQpf9PzkdN09rn8/vHx/pRPR+fViXv7DwEVt8adY15qlLQVuWc2jl/r3QT1 85o9EM/6WRULLDcK3Yl+Mwsbx5fZ4mulUnnNXh7onu29VOI6LjCq/I7GZ7wU 99xsDISac4vz0qsqa9R3SytzsfPz44PEQY9EInGeY7LseHIe74nbxJai51fZ UivYXkuZc+05jT1rsDDeg60hDCealWKxUCwWS6XsgVIFWT3IlkrF9p9LVcIN kgWcVNt35i6Jf4geZ6vtx5BXMwfaOhuxLLW9MPNS3JudcDIdOdWWzFMnyLks 7jUaZV350Cjy70n/DrWHf7Z7M90p7mWsn6ShWB7opl5YcNP5Fg6W9Ed/amam 5z83LrW01MjNTNg5KDJ/HhhdA47G1bO81mjcuYV72hgINRfFPQ+9qqtlrKZ2 aXfjycV56K597BzoJ5Mw3oOt4IcT9iFHZoN0ASfVtrr+AonBHM/GCjv3xb1G /SOfOY0uq/Peek3OLh9le9+hdte9e3Z+587wTrV8vPuqnTvD4zM+0vE101sv nubNj9Bt7c/zaWzZvDOzi5GjdL77SI98+mht3lzhm1yOnT5zR25wXHa+1cL5 kkWfOpfIGO65qGcOonNWve/MQixn+Tx7ACNj0Evt6q0EC8cuZu552RgINRct zkOv+qObad8Xt8OPK+dg+6leHcQWZqbMUWM1hGO8BzvBDyd0Ny2S2TAKgk6q ymuyBxumF8wdZCvD+RIYIR6Ke5r6x3v56eEh3/Hw9PxeC3QOXO394S7blX8q O7x1/eP5qb0nDw8PT0/PH1Z7Uq+1tnlSd/f5gwl7QfPU+darr4VcV6H0WrO5 fPDTqFde2xPl21qbNrjUAPwBA47GAQzEfYujV4VPgwVb6bVStw02IhOWGE4g 9IaUVNuajWpn+0KhUKrYnXEjTAYq7gE96HwBCCQEQCZaHKQh2CAT8YbQI8gR LIp78I+8BEAgIQAy0eIgDcEGmYg3hB5BjmBR3IN/5CUAAgkBkIkWB2kINshE vCH0CHIEi+Ie/CMvARBICIBMtDhIQ7BBJuINoUeQI1gU9+AfeQmAQEIAZKLF QRqCDTIRbwg9ghzBorgH/8hLAAQSAiATLQ7SEGyQiXhD6BHkCBbFPfhHXgIg kBAAmWhxkIZgg0zEG0KPIEewKO7BP/ISAIGEAMhEi4M0BBtkIt4QegQ5gkVx D/6RlwAIJARAJlocpCHYIBPxhtAjyBEsinvwj7wEQCAhADLR4iANwQaZiDeE HkGOYFHcg3/kJQACCQGQiRYHaQg2yES8IfQIcgSL4h78Iy8BEEgIgEy0OEhD sEEm4g2hR5AjWBT34B95CYBAQgBkosVBGoINMhFvCD2CHMF6BgAAAAAAAAAA AAAAAAAAv+S3b+7EX9WNn9+ehQpgJJAQAJlocZCGYINMxBtCjyBHsCjuwT/y EgCBhADIRIuDNAQbZCLeEHoEOYJFcQ/+kZcACCQEQCZaHKQh2CAT8YbQI8gR LIp78I+8BEAgIQAy0eIgDcEGmYg3hB5BjmBR3IN/5CUAAgkBkIkWB2kINshE vCH0CHIEi+Ie/CMvARBICIBMtDhIQ7BBJuINoUeQI1gU9+AfeQmAQEIAZKLF QRqCDTIRbwg9ghzBorgH/8hLAAQSAiATLQ7SEGyQiXhD6BHkCBbFPfhHXgIg kBAAmWhxkIZgg0zEG0KPIEewKO7BP/ISAIGEAMhEi4M0BBtkIt4QegQ5gkVx D/6RlwAIJARAJlocpCHYIBPxhtAjyBEsinvwj7wEQCAhADLR4iANwQaZiDeE HkGOYFHcg3/kJQACCQGQiRYHaQg2yES8IfQIcgSL4h78Iy8BEEgIgEy0OEhD sEEm4g2hR5AjWBT3vKt/vLd91Oq/vSejYoC81Pxpaw4prAH8Hg8J4adRrZSK hUIulysUiq/V2s+Q9w0IH04NII37YGs26pXXUqGT3nO5YqXWGPa+IXxIbgg9 kiqC5aW49xGfnXAyn/0YoDj0cZdOtWQf3gd4sexP+chOd7/r9M4g33Xk1Z7v 2ocpnX13Xbz03Pk2iwudQ7hbIC8BYeMmIVRy5xsLM1adyEzsskjZH3BvsPPf ei6htLmFA3piuOQi2Jqlq4OlOYv0PrUQzVaINXhAckPokVQRLE/FvR3n4t50 ZoCC10emWy6bjGa8v1j6p3xklcMwHRtqLfK3ZGPTXn9Kj51vI7Pbre1N7Bbq QwxuAL/BRUKo707ZdSRzuzlJ+wr8fYNMnq9cak1wJkFPDJdcpXfL6zaq4xIT tOEWyQ2hR1JFsAaauTcb3YnvWIntnD4PcK9qLTvffd9Y1vuLpX9K7SG2vLy2 try2kw7lfbl3O8pxcj8J01Xn26wkNlZXlxb05/QU94DwcZEQGonuQGVmKXF+ VXytVKuVYu4qqqWHmSy5AXDH8/lvo7CgPzGYSXDhHy65T+9TCxvHV9lSpVqr VXJXiTkRb1OxqqSdxZ9HckPokVQRrEGKe7Pxmr/ykUleKSft3AX8xr/wKX9e Pt49TvN3wd6W28iZp+pQ3APCx80tBtlE7DhXMf29frBAcgC88Xj+W4m2O2Ol Q57i/BdeuAi2n6vd2FXJlMBrWfVUdI4VWeASyQ2hR1JFsAYp7rlZa67+vB+N tOxny/WP/H50eXpSib/J6cWjrPZZ5exRZFm93ff/3979u6jPtI8e9785hbDw /QMstjmNhaXNNnJgC6s9WC126dLpabQRi0VYEITFQhubNFooiCAiiIigRYoU NhYWn7PuJqPrz8SMo3d8v4qH594dk6yfay4nlzOZSEJzpNP690s3B5x2vw/i HOOn9pTUjaF56KSpXH19/Gnf+MjpP1eRzuT/3+mzWNN2IaMlE/FIeHOh0XhC y1V2TrJ1lv6mutUorE+jfYwtq1stJKMR5zLDCe1jdzbj9pszbefSCfF3RRPp ev/n3bXG1YIWFe9aKKJ9GAeLbd369+m23phIXP80di7Z9eUNP/S0WHudSG29 TUfObr/M1YfvovVVLpe/vr5qRS3G/TsQVJc9JOfXoMiafcAbLz1uUXq1P+Lf ss4DMrj/hWs+0vuy5Hx3Ux6xiAyukNwQeCRVyHXRzD0XxT3xYLojUhW7MmZo kWNttIb9TLtxIxc+1qba3z9pOJkpaPHtZv/zv//n9Fnmhn78YuON6Z8/zX4m 3dbyXkM/+eeG031rsX+dR0Qyn4XEwV+kqztFtVziyBsT1bfP6PbynMcSHqKd eMCg17y0GhR/D8r9OxA8PgYqM91+rsjT14RdNQBX3Pc4Q7e/WXvWjX//Btz/ wisf6X1RtKMv1mLoB3dIbgg8kirkuqS4F9a60/l0fMjUKfs5D7gT4smUlk5t 1Y6S3Z+C0rCeiYuJZ+Fo0pZIxFP1nyllZruwKVmlMlWj2TTqelIcKVIXVae9 kwr/6//839NncYp74XgipWdyhVxOT29NFEx8bkplh57d5zynTlxUPKVpqcTm z01+bhUhd68znEiltXRyv04XjibSmpbYTMyLVDezGc2tCmA081Fttpv1D30z J0+re748q59Jbk0jjCc2b9PJBwx6zUuLnr2PFcU9IHg8D1RW3xaTXuPdWWDw pDWudnVA0LjscaPym93BfneQXHacm2Huf+HW5fehS/EwtJcOc0zgDskNgUdS hVyXFPdOcbZY3apfxbXPoZjqZ/XTTkkp03R+ajWPPw1PnDScM8bbv2h/JO3j 55xX/SmahbWPen86N835eNgdTs2TZ/k+T98wurvPEpwbTv0s3hS/O13cCyc+ txYd9ytpp1KW20x33LrOhP65WfY7rm7e4HCy0hZ/r1VxyqK6M4lw3sw4DQt/ 3hezndy7Zk+X5zxzLyr5mXtbKO4BAeYpISwHpZ1Pkfdii0EK4J6bHme1snYH e9LsWbHivoD7X7h28X1oQ3O2e3z9Ylo2XCK5IfBIqpDr2sW9iNbYOUrXmXCm G86Uu/nRfWzFtL3o3nEWi6n2O8lMLBMWRbOotlenO3WWAyzLnM/n5rRi1yKj DVH8OlXci9Z3VixbbfuvjWQ2y1qPvjlmwfkDGn+PYzqlvGjGON1y/b7UNecd nl9weaLx/pGPobgHQPCUEBYdZ1ju0ErslAt4cLbHrSZfzoZWL5vFO9z/wrvL 7kMnNc1J8DxyAR6Q3BB4JFXIdVFxL/FRr1cPqVSNnTrbgXqdU6faFPdcNA5F UoVCbmO9ctaZdRbZLe4dnpt3/Cw2a2pUC+lkIhLZXyAbNdwV94zdgtihXUiO X8mx44h5es5LNoXWVCb31+Zxg+Id9nR5xxsfRXEPgOAtISwmtXK5VCpm9Xfn O8hQKJY3r3mFQJCc6XELsXLnubZ9C7Dq2T+PFZkrC5cuuA+1OnmR2t+/9jdJ B44iuSHwSKqQ65LiXjS3Py1u1/H61dxLca/rrL09JaJPzx3n7G/N7ufJaYk3 Lu6JPTjsl1htF+8LxT0AN3D580NWE10sMiiPZF8XEEyne9xmcuxbeTDodWy9 TkPcHbzWer1OqzfjNhjneE3vVqcoBqWxbOt6F4ZAIrkh8EiqkOuS4l7ExW65 kop7W9u8xjUtfUgqnaub545z5rdmc+thfZG0XqjUjXa7O5yOK6nwbqXrJsW9 nZds7bcbTx95X1Lpat+84PIo7gHw4/Li3r9/Syc5xLIduVcFBNWZ+9/e5iv+ 03T228M5ntL7rLF56sJL1mDlGLwiuSHwSKqQ686Le1N7E9tQru1id4dLi3vD qr3CN5zIDf+e50Cl6x6Ke4tpxn4WYM7NrhcU9wAo46e4t+hQ3AO8kXX/m+3w eCqc4T69D8rvIrTeSuRzXILkhsAjqUKuuyjuOfPQ9nffmDvFvVDy83wV63Rx 7/hZxPzATHN3wbHYOvbOintzu7gXCn90z78xlxX36tOFSxT3AAh+inuWk/Mp 7gEune1xywNWS7NhL4J/0mer1fePlF0w/rvcpfdlI+s8Cy0U0r54xgIuRHJD 4JFUIdclxT35z9xr2nu2hrXx7nGc7VxDoXSlu3caq13RtQ/n52dm7h09S9Ou 4IVSn/0/Rx83nEfb3Vtxb9F2Nh0ORdL75T1r2tZTWtv5d/J0ee2cfeR0dfdf 4xiv9/LLgf24gHyPr9KAoDmbEFaT2tt7fmDujbeXgzcn4b+UBle8RCBALiyn iw0lY2woCbfOB9vKLL3+7F+6/p9YmWEefCC5IfBIqpDrkuLe+ql0B2ma/mEv a/VU3Nva+zWa/mh2u22jmtH0xnh9rO09NaKpTL3ZHY7H/W6z+qHHf56HFxGn OLMf7tGzbPbkDYXThWq3328b9Vx66zl891fcW1jdrT01opnPerc/HA/7zUZF T9ltG/Nzhz10eVvvRrxQX79P1Y+MXjBOTBB09+G7mvR6nV6vNxgYRfsO/q1o DAa99Y8HM54bAATD2YSwWXv7qpVrxmA0mYwGjXI2tslprwO+aQfc8Xv/+8z9 L9xykd6zzk3od4rXy+VSMV/8I5/Pl1skeLhBckPgkVQhl6fiXubkhrK/RSK7 oGT+3d11+ygHinuLfiW1fyyt8dvArGinThwWy2yPn/TcWcZ65PTftSmU7W5c +0NUzxp71bOMUz3b/LXHr/PocQ69xOxWTv6DRPaLe64ub9E/8DaF9ROLdF19 +C5az/uHFZ6yLNAFgsHtQOW4Igv2AdcuvP9ddOxy+nOe/gaXzqd3N49BY8gH d0huCDySKuTyNnMvfja2EvZT65w1sPFMc+coZjv32zTT3K40WUYhvXOs3FaD ofGZjIZ3zxaOpjMf7bGz+vT4Sc+fxexnEjsFvoj+adTtNaqJzdP4Dp3FWcoa N3ZXLM8Lv29aPLc1c+/odTb3T2e/xHAO8/cl1vBTT+69L6FoIv1RF6tyPV7e z3rk9E7d8G+DHa4+fLcW3B3AzHkgKM4nhOWsVtRfnp/2M8Hzi96a8fUj4MGl k1ucD+WXEp+/cOlssInnrpzCkA/ukNwQeCRVyOWluHd95rS/NhyPp+ahVaDz 6bDbbre7374bzd1sFOvpLPNht2kYRrPZ7Y/PP1fwfljzYd9+Y77/rvnB9867 6Xi4fpuG4+n8zJtx4YcvgCBynxCWC2syWq/MX6/XH02sBavzAc/4CIYyBBtU It4QeAQ55Lqv4h7+m8hLAAQSAqASPQ7KEGxQiXhD4BHkkIviHvwjLwEQSAiA SvQ4KEOwQSXiDYFHkEMuinvwj7wEQCAhACrR46AMwQaViDcEHkEOuSjuwT/y EgCBhACoRI+DMgQbVCLeEHgEOeSiuAf/yEsABBICoBI9DsoQbFCJeEPgEeSQ i+Ie/CMvARBICIBK9DgoQ7BBJeINgUeQQy6Ke/CPvARAICEAKtHjoAzBBpWI NwQeQQ65KO7BP/ISAIGEAKhEj4MyBBtUIt4QeAQ55KK4B//ISwAEEgKgEj0O yhBsUIl4Q+AR5JCL4h78Iy8BEEgIgEr0OChDsEEl4g2BR5BDLop78I+8BEAg IQAq0eOgDMEGlYg3BB5BDrko7sE/8hIAgYQAqESPgzIEG1Qi3hB4BDnkorgH /8hLAAQSAqASPQ7KEGxQiXhD4BHkkGsIAAAAAAAAAAAAAAAAAABu5NaLO/Ff 9Rs/t56FCuAukBAAlehxUIZgg0rEGwKPIIdcFPfgH3kJgEBCAFSix0EZgg0q EW8IPIIcclHcg3/kJQACCQFQiR4HZQg2qES8IfAIcshFcQ/+kZcACCQEQCV6 HJQh2KAS8YbAI8ghF8U9+EdeAiCQEACV6HFQhmCDSsQbAo8gh1wU9+AfeQmA QEIAVKLHQRmCDSoRbwg8ghxyUdyDf+QlAAIJAVCJHgdlCDaoRLwh8AhyyEVx D/6RlwAIJARAJXoclCHYoBLxhsAjyCEXxT34R14CIJAQAJXocVCGYINKxBsC jyCHXBT34B95CYBAQgBUosdBGYINKhFvCDyCHHJR3IN/5CUAAgkBUIkeB2UI NqhEvCHwCHLIRXEP/pGXAAgkBEAlehyUIdigEvGGwCPIIRfFPfhHXgIgkBAA lehxUIZgg0rEGwKPIIdcFPfgH3kJgEBCAFSix0EZgg0qEW8IPIIccgWhuGe2 0/HoN63SvfWlPCj3eWm1sCajQafTaa31JuZCVmMAd+JKCeHfcjGbDHo/jTud 3mhmLuVcL/Df5uHWgE4Ef64UbIz3cNC1hhPr9uaoZwfnZGbJuFjgEhcU91bL tdXpNiTVR+WluDfPRUNnxAtzFcWknesyfq8rohvqT46Fq+LealArvsae90Pm 6UUzJgsfjQHcF9kJ4d+kVX5/OdA4FHrWv3qnhzdA4Lm5NfDUiZaD4umxXizf ud6fg3smO9gY7+EU6cOJn1dMim+xvdh8q42IN9yA5+LeqvfyE7PZzsGIJak+ Ok/FvczZ4l5Yn6ooJv1lGvGfk0cp7t2Ii7xkZQ8O9BylwfLSxgDui/yE8HSq cSzbuu7fA9w3Vz3OSyda9PKnWq9rNBT3HpTsYGO8h1NkDye+zfSj7Z9qE74t hGoei3uLRva3thfKdg7OOCWpPrqLZu5FtUwuc4CeqzQtFcWkvyju3ZqLvLTI /6Sap5f3Us0YTGamOWnV8ptvzp702YWNAdyXKyWE0PNrvlzrjSaz2aTXqmkv 4gby2WBJDR6Y+x7nshOJ4l7sPVvck89nyy0+hB+U7GBjvIdTZA8n/vWKL84v XsqtwfdNqzlqZUVwPucZTUAxV8W91ST//vb2+rL9zcmR4h5J9dFdUtyL5kwV FaMzrG/2/2tT3LstF3lpWcvqtcFeFjINJ9vEtiYXe2oM4L7ITggrI6+XWpO9 g1hikH5khAM8BDcr1zx1IlHcy/f4ih9/yA42xns4RfZwYvLuFDi+/kzSm2lO 0aTM5D2o5aq4t2jtT4g+MvQlqT66S4p7kYybB+vN+3UtsbWONxxJ56rjwxP7 5o2CFg1v2kbi6Wp7fLCp2W/oqbhoG44mdD0Zorh3U54fF7CxLDmDvfLo7E2E p8YAbkNVQvg3KJ5emwA8BB897nAnEsU9ehZ2SA+2IxjvYU3ucGI1Kdulvbfa TgnPbGi/v3otDXxeM+CJuyBftL7K5fLX11etqMUu+oAmqT6Ki2bunS/utT9S ewXmX4nGToFv3kyFjzTNNXZqgf2qduSwFPduyceH76Jop6hY63yK8tQYwG2o SgjiyTk7X8EDj8VHjzvciZi5h2OkB9sRjPewJnc4Mfl6P1bBW81q9syoWJFp TVDJa5CvnB2vPBb3SKqP4qKZe/r4d1XsX6LdtL4pwUWSWqVer35s78WR6m+O OdYjm7ZaodKoVzOpTdvk56at2S1sjhGO67lcRteS8c3rKe7dyuUfvsuO8zXC S+f8xD0vjQHcyHUTwurbYtJrvDsLDJ60ho+LBf7zPPe4c51IFPde8rVOy/jW 6vRGE3NJEf3hSQ+2wxjv4Yfc4UTHefBYvrdXwFvaO5Dy2D0o5jXIL5xaT1J9 GJcU946I55o/zcaaMxMv9dnevNrq687Lk5/d35+NRRkwnG5vPchvWNVFea9r Vw3NQtz+UST1uT110BpWIxT3buriD9+G5uzo8/p19qbBU2MAt3K9hLAclHY+ d96LLQYpeHCeepybTnR8t9yn96LBtJZHJj3YDmK8h19yhxO9/PGF4aL0QXEP aqkp7pFUH4fE4l5Ya3w3Mps5+7/jhd19N4afdtnPfmrf5oC59m7bStJuqzfX ba3+h3Oa9O6FslvurV324TupiRme59doeGoM4IaulxAWnezO545WYqdcPDpP Pc5NJ9pv88dbmYr6w5IebPsY70GQO5w4VdxbdJw1iyzLhVIKinsk1YdyUXEv qud2ZTKZSnO6WBf3MvYneH1/R4ypswj3dz6ec8CwdqCpYU/eS36sp/nNncP+ /ucfFPdu7YIPX6uzmRjw/rW/q9rljQHc1hUTwmJSK5dLpWJWf38WL4jlTb+X DPyHeetxbjrRYtKoNXqD0cw0rfVjWMxRz8i+PvNBDPnB9hfjPWyTO5yguIc7 dO3iHkn10VxS3IvmdqfZbWkXEr/xoxv7227MM3ZxL77+pdm0mx7aoWNuZJxf rkt2YgFvprnXluLerXnNS1anuBnlZVsSGwO4uasmhI3VRBeLDMqjSy4UCITL H0vlsROJdT3POp/FD+qqwcZ4DzvkDidcLsuluAeVrlrcI6k+oEuKe5FTu+Ua ztYZujHd++XUeRxfcr0Md244MwEPHHDqbEqeKLTPHJbi3q15ykuzxmaZxkvW OD052FNjAPfgeglhx9IZ4cSynQuuEwiGy+stXjuRZdjlGSa3PKrrBRvjPeyT O5xgQw3coesV90iqj0l6cU8spz04c89Z2Pszc28xzRw/oHh23+/MPbEsl+Le HXKflwbld5Fn3kpnbiU8NQZwJ66UEPYtOhT3AF/1Fm+dSNz/vvLYvQd1pWBj vIeD5A4nJl/vTgLbnTu6mnw98c0FbuFKxT2S6sOSXtybO8W9cLq6/zu7thfJ /FToxCrdSHXvoXs7U/XEYSPp+m5Tq0lx77bc5aVlI+vswh0KaV+nVwB5agzg jlwhIRxmOZ8LFPfwyPzUWzx1InFP8fReYw7AY7pCsDHew1FyhxOrSdkpduxu GDqr2ZWQl9LA/2UD7l2huEdSfWjSi3uLuT2PLhQKf/at7d/Udae2p9kFumbO bhtOff5pOq47++g6db9x1S4EhqLV4XbbeT3jPLqP4t6NnM9LK7P0+vOd2Pp/ YuX9+fAXNwZwZ+QmhNWk9vaeH5h7E4WWgzdn6MJoHI/sbI/z1olWk6KWbU32 euVqpD3R4x6d7GBjvIdTJN9f/Js4k5l29gydieRWHjErGUp5Le4tB/Zj9A6s Lv9HUsUVinuLRdOZdBcKhTPV5ty05uNuISV+uDVPzzQ2TROZ5nBumfNuo7D5 4WaenvWZFEXoSKZidNvNSkGPhsUPKe7dzNm8tOhknTzznWn0crlUzBf/yOfz 5dbSe2MA90Z2QnBWcr1q5ZoxGE0mo0GjnI1tcv/rgHSAB+aix3npRM6ukc8v 76Uvo/fdeDIyvoov242Zt/eo5AYb4z2cJnc48a23yWQvJWNgLRazUUt/cUp7 z1keuAfF3BX3VpNer9Pr9QYDo2h/T/JWNAaD3vrHg5n4TCapwlNx78Qj8v4a Z5zZe/vSlf6fpo3M0aYR7c/Uv810vsMo7t3K+Q/fXv7kP92PJ/sj1VNjAPdG ckLoZE83LLrYLwwIMLf3vy470aL1fLpxjx73uOQGG+M9nCZ3OPFjph9NcLHG jO8toJqr4t7pz+WtCCepwtvMPfvZdrlzxb1143outRtL4cRne38L3YXZr6ci u20TWmW/qTVu7LaMputG5fe64rmmq1IUZDubl8QU4lNi9u7znhoDuDdyE8K/ 5axW1F+en/abPL/orRlfP+LRnb818NaJrEZRix26kaDHQW6wMd7DaZKHE79W k+J7bK+N1rGo7OEGXBX3th5rcDrCSarwUtzzzpx2m8avdn9snWw77Xftps32 eH6irTX8OWiz2eyPXVQZcX1eHxcAIMCulBCWC2syWq9AWK9LGE2sBeNwYM19 j/PUibYbf7c26XG4WrABB13v/mK1MH/Cs9NqtXoj8xqnANzgJhpyXbe4h8dA XgIgkBAAlehxUIZgg0rEGwKPIIdcFPfgH3kJgEBCAFSix0EZgg0qEW8IPIIc clHcg3/kJQACCQFQiR4HZQg2qES8IfAIcshFcQ/+kZcACCQEQCV6HJQh2KAS 8YbAI8ghF8U9+EdeAiCQEACV6HFQhmCDSsQbAo8gh1wU9+AfeQmAQEIAVKLH QRmCDSoRbwg8ghxyUdyDf+QlAAIJAVCJHgdlCDaoRLwh8AhyyEVxD/6RlwAI JARAJXoclCHYoBLxhsAjyCEXxT34R14CIJAQAJXocVCGYINKxBsCjyCHXBT3 4B95CYBAQgBUosdBGYINKhFvCDyCHHJR3IN/5CUAAgkBUIkeB2UINqhEvCHw CHLIRXEP/pGXAAgkBEAlehyUIdigEvGGwCPIIRfFPfhHXgIgkBAAlehxUIZg g0rEGwKPIIdcQwAAAAAAAAAAAAAAAAAAoNyt5w8CAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAc/x8zG1ot "], {{0, 330}, {1695, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{847.5, Automatic}, ImageSizeRaw->{1695, 330}, PlotRange->{{0, 1695}, {0, 330}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7641855428891907`*^9, 3.764185578947843*^9, 3.764185611365266*^9, { 3.764185654845584*^9, 3.764185660226802*^9}, 3.764185777995105*^9, 3.764185933142983*^9, 3.764186537014428*^9, {3.7641865841855288`*^9, 3.7641865942325163`*^9}, 3.764186794114008*^9, 3.764186855421658*^9, 3.764662783139511*^9, 3.764675085509794*^9, 3.765992376802628*^9, 3.769086556892542*^9, 3.7690924979785013`*^9, 3.769092981618361*^9}, CellLabel->"Out[1]=", CellID->43763219] }, Open ]], Cell[TextData[{ "The distance matrix using MultisetDiceDissimilarity can be displayed with \ an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayPlot", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArrayPlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765969221503972*^9, 3.7659692599594593`*^9}, { 3.7659787781900806`*^9, 3.765978780412092*^9}, 3.771000019350562*^9, { 3.774803408454151*^9, 3.77480341308879*^9}}, CellID->471653199], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"labels", "=", RowBox[{"Normal", "@", RowBox[{"Keys", "@", RowBox[{"Transpose", "@", "data"}]}]}]}], "}"}], ",", RowBox[{ RowBox[{"DistanceMatrix", "[", RowBox[{ RowBox[{"Values", "@", RowBox[{"Transpose", "@", "data"}]}], ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}]}], "]"}], "//", RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{"#", ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "@", RowBox[{"Length", "@", "labels"}]}], ",", "labels"}], "}"}], "]"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "@", RowBox[{"Length", "@", "labels"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Rotate", "[", RowBox[{"#", ",", RowBox[{"90", "\[Degree]"}]}], "]"}], "&"}], "/@", "labels"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}], "&"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764186633708489*^9, 3.764186635330778*^9}, 3.764662731438673*^9, {3.769091879333435*^9, 3.76909188117087*^9}}, CellLabel->"In[2]:=", CellID->754905097], Cell[BoxData[ GraphicsBox[ RasterBox[{{0., 0.35315699863312633`, 0.21010341356273451`, 0.43831991755563604`, 0.46862414669675245`, 0.7488789237668162}, { 0.055855667952862655`, 0.5464979713858638, 0.3542600896860987, 0.42303622713760264`, 0.7488789237668162, 0.46862414669675245`}, { 0.019208594096486474`, 0.3965473175491996, 0.34709320948110184`, 0.7488789237668162, 0.42303622713760264`, 0.43831991755563604`}, { 0.13240833553152204`, 0.4700327699206623, 0.7488789237668162, 0.34709320948110184`, 0.3542600896860987, 0.21010341356273451`}, { 0.10309579123669566`, 0.7488789237668162, 0.4700327699206623, 0.3965473175491996, 0.5464979713858638, 0.35315699863312633`}, { 0.7488789237668162, 0.10309579123669566`, 0.13240833553152204`, 0.019208594096486474`, 0.055855667952862655`, 0.}}, {{0, 0}, {6, 6}}, { 0, 0.7488789237668162}], BaseStyle->{}, Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{{{5.5, FormBox["\"The Mills at Jersey Gardens\"", TraditionalForm]}, {4.5, FormBox["\"Rockaway Townsquare\"", TraditionalForm]}, {3.5, FormBox["\"Menlo Park Mall\"", TraditionalForm]}, {2.5, FormBox["\"Newport Centre\"", TraditionalForm]}, {1.5, FormBox["\"Quaker Bridge Mall\"", TraditionalForm]}, {0.5, FormBox["\"Livingston Mall\"", TraditionalForm]}}, None}, {{{0.5, FormBox[ RotationBox[ "\"The Mills at Jersey Gardens\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {1.5, FormBox[ RotationBox[ "\"Rockaway Townsquare\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {2.5, FormBox[ RotationBox[ "\"Menlo Park Mall\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {3.5, FormBox[ RotationBox["\"Newport Centre\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {4.5, FormBox[ RotationBox[ "\"Quaker Bridge Mall\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {5.5, FormBox[ RotationBox[ "\"Livingston Mall\"", BoxRotation -> 1.5707963267948966`], TraditionalForm]}}, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.764185860750647*^9, 3.764185954731182*^9, {3.7641866267941227`*^9, 3.7641866362425833`*^9}, 3.764186857942358*^9, 3.764662783299465*^9, 3.764675085797127*^9, 3.7690865569731693`*^9, 3.769092498110218*^9, 3.769092981751276*^9}, CellLabel->"Out[2]=", CellID->755126258] }, Open ]], Cell[TextData[{ "The ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " shows that The Mills at Jersey Gardens is very different from the others:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765978828122593*^9, 3.765978874889374*^9}, 3.7710000233330803`*^9, {3.7748035593928685`*^9, 3.7748035595528173`*^9}}, CellID->299827280], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"Normal", "@", RowBox[{"Transpose", "@", "data"}]}], ",", "Right", ",", RowBox[{"DistanceFunction", "\[Rule]", InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False]}], ",", RowBox[{"ClusterDissimilarityFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76418665713311*^9, 3.764186658066511*^9}, { 3.764186729962892*^9, 3.764186731032115*^9}, 3.7646627324397173`*^9, 3.7690918849640427`*^9}, CellLabel->"In[3]:=", CellID->275920314], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0, -6}, {0.6911057589611191, -6.}}, {{ 0.40440918175377194`, -26.25}, {0.6911057589611191, -26.25}}, {{ 0.6911057589611191, -6.}, {0.6911057589611191, -26.25}}, {{ 0.33673249396343563`, -19.5}, {0.40440918175377194`, -19.5}}, {{ 0.3105590062111801, -33.}, {0.40440918175377194`, -33.}}, {{ 0.40440918175377194`, -19.5}, {0.40440918175377194`, -33.}}, {{ 0.20238095238095238`, -15.}, { 0.33673249396343563`, -15.}}, {{0, -24}, { 0.33673249396343563`, -24.}}, {{0.33673249396343563`, -15.}, { 0.33673249396343563`, -24.}}, {{0, -12}, { 0.20238095238095238`, -12.}}, {{0, -18}, { 0.20238095238095238`, -18.}}, {{0.20238095238095238`, -12.}, { 0.20238095238095238`, -18.}}, {{0, -30}, {0.3105590062111801, -30.}}, {{ 0, -36}, {0.3105590062111801, -36.}}, {{0.3105590062111801, -30.}, { 0.3105590062111801, -36.}}}]}, InsetBox[ FrameBox[ TagBox["\<\"The Mills at Jersey Gardens\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -6}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Rockaway Townsquare\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -12}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Quaker Bridge Mall\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -18}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Menlo Park Mall\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -24}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Livingston Mall\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -30}, Scaled[{1, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Newport Centre\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, -36}, Scaled[{1, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.764186012251396*^9, 3.764186658736713*^9, 3.7641867314549017`*^9, 3.764186859647902*^9, 3.764662783340129*^9, 3.76467508604104*^9, 3.769086557001416*^9, 3.769092498150775*^9, 3.769092981791278*^9}, CellLabel->"Out[3]=", CellID->559383797] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Chemistry", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7642294535626297`*^9, 3.764229467921363*^9}}, CellID->872965383], Cell[TextData[{ "Similarity analysis of chemical structures goes back to the original work \ of Carhart", StyleBox[" ", FontSlant->"Italic"], "et al. at Lederle Laboratories. It is used extensively to search though \ chemical databases to find compounds of interest and to cluster chemical \ structures into similar groups." }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765973796525661*^9, 3.7659738591394863`*^9}, { 3.765974903737988*^9, 3.765974937384295*^9}, {3.765974999419338*^9, 3.765975048429022*^9}, 3.765978089810443*^9, {3.765978195208098*^9, 3.765978269044855*^9}, {3.765978301471133*^9, 3.765978315196417*^9}, 3.7659924593717003`*^9, {3.774803258050274*^9, 3.7748032583621817`*^9}, 3.7748035934622316`*^9}, CellID->413412119], Cell[TextData[{ "Here is small set of entities from the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ChemicalData", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ChemicalData", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " collection:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7659752128546267`*^9, 3.76597526093406*^9}, 3.771000032028036*^9}, CellID->990239488], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"molNames", "=", RowBox[{"ChemicalData", "[", TemplateBox[{"\"steroids\"", RowBox[{"EntityClass", "[", RowBox[{"\"Chemical\"", ",", "\"Steroids\""}], "]"}], "\"EntityClass[\\\"Chemical\\\", \\\"Steroids\\\"]\"", "\"chemicals\""}, "EntityClass"], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7642302229503937`*^9, 3.764230230369667*^9}, { 3.764230362127843*^9, 3.764230407925363*^9}}, CellLabel->"In[1]:=", CellID->396387825], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"estrone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Estrone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Estrone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"estradiol\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Estradiol\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Estradiol\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"4-androstene-3,17-dione\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"4Androstene3,17Dione\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"4Androstene3,17Dione\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"estriol\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Estriol\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Estriol\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"testosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Testosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Testosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"dehydroepiandrosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"TransDehydroandrosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"TransDehydroandrosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"androsterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Androsterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Androsterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"trans-androsterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"TransAndrosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"TransAndrosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"progesterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Progesterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Progesterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"pregnenolone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Pregnenolone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Pregnenolone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"desoxycorticosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Desoxycorticosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Desoxycorticosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"corticosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Corticosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Corticosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"aldosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Aldosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Aldosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"cortisone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Cortisone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Cortisone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"hydrocortisone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Hydrocortisone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Hydrocortisone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"cholesterol\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Cholesterol\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Cholesterol\\\"]\"", "\"chemical\""}, "Entity"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.764230234216066*^9, {3.764230372084998*^9, 3.7642304095832863`*^9}, 3.7646627995169477`*^9, 3.76467509469874*^9, 3.769086564808425*^9, 3.769092505865452*^9, 3.76909281828476*^9, 3.769092989482736*^9}, CellLabel->"Out[1]=", CellID->433822691] }, Open ]], Cell[TextData[{ "They can be converted into computable ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Molecule", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Molecule", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765975289336196*^9, 3.765975326884062*^9}, 3.771000036658381*^9, {3.774803607786011*^9, 3.774803614855934*^9}}, CellID->181613903], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mols", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "\[Rule]", RowBox[{"Molecule", "@", "#"}]}], "&"}], "/@", "molNames"}], "//", "Association"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Short", "@", "%"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7642304109684753`*^9, 3.764230427907452*^9}, { 3.764231844583109*^9, 3.764231847541511*^9}, 3.769092891347468*^9}, CellLabel->"In[2]:=", CellID->870050091], Cell[BoxData[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ TemplateBox[{"\"estrone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Estrone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Estrone\\\"]\"", "\"chemical\""}, "Entity"], "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Molecule", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtM02cQb6uEMZAMViiPP4+2UIEhD7eFiAv/gzknChMJT8ssAzsGOots bAUUrYiAuE2kTOI2ZdAJwcwBwmAbcDVBmOgswVVwhRJelbU8+lBSGNLBTNkl Xy6/u/t++e539zHTBLF8GoVCiVg76/5gRGDUWR8WzIHhUFsyBVJCt+oS9Exo OX4x4VTxP6SkTFWgTmOBfLepMXkLBa6LlJ5d/iw4c7Jhvm92mdzWGRrzPGAT RDjVXGrPoEizlMfPf+lFA63jnpiVahN69FQMiA5bAEdbzlNnUqTOnwzZ629b QhK3GWfdV5HvPJHEaPeAU1mdn1Y6tW7g5pyPKuZOzJHxtxsk7wEBMV9cPmZf NIFmnLSj9ffPuhdJyrpJmaC66T1VdNVA7soUaIvvOm3wfW8MXks5QPiZib7q 3ybQnDfzm+9/W8v+ZaVkGDlrLH+oWZA6PcBSLP1Ful495HsvhoDZAx3uxZol vPL5eqUTJPVv72kOoEq5KV4z92uZsNrgXD2mNpA/1CkYr48y4UFrcJBPrIGs He7lRJTTgd99a/6ApQp/LE3IvXaWDr45nqm9SUb8ScwvTXdzALnwb07wS8sY F7u1pizbDtaf0SirQqqSZnWeZwdr0abxTKrUJ9GiNeSgHbjJL9xnRPTjhdzy OH6dDWj63n86SJ/Clu8W6nv3WcOR1xYvj1aOo6RXwfOMsoNsdn5e3rgJjYwF nUxsA6qfL52ULRiR53vvlb5Qa3ih0zLedfGIcIylQoUw/U533Sr6KUXs6CYm 1LocbRNeU+IjZuFIi4wJX/spOk9nD6KKlIx123pC8n/zWCVNLQX6phiPDdwo kyfMBjpv6L3ejkf6//rX6+jHAtoJEF+xTQ2aXsKv9jZMZahdYZdV2uhj3RK+ zfUb6blBgDCIVIVFGfFdizBGvd4VaEOFwc2JRhzrIfdyawhI6RUcjb61iCZ8 GKladoVuyTfFpV2LWBAQ36ETExCeUqPnujzD9vzME96bCCjI6XjMYz9DRnUW p7SMAG/9gDBLZEDBm6abh60JCAH5tpAyA7ZQT4vdCwl4uZRqEs7okKMVj9e9 SsDTLXqR7YIO9x+porXlELDgtr24ZL8WRxv96JOuBDQrbB9Nx2lR82dj9r4M Aq5n3HH0/3gOq/jS3SwvAkZiE+Pyc+ewJEyqHOcSIKjksCN3qjHaMyHvA38C 4ucvrviEq5HdII8Sru3fDiwJ/NDqCVooNDdq3iBAVtYvGbJ5gmin+dX2HQJo mpmdRUOT2FUlUo69RcAe783R54YnkdZpYU/nscz7Aw87J+lukZvBklcd5WBD lZr/m3lelBcGgwKe5QPn5/gvGnAANg== "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{9, 10}, {9, 11}, {10, 12}, {10, 13}, {11, 14}, { 14, 15}, {12, 16}, {17, 18}, {19, 20}, {2, 21}, {4, 22}, { 13, 18}, {23, 24}, {15, 25}, {15, 26}, {20, 25}, {25, 27}, {28, 29}, {26, 30}, {31, 32}, {27, 33}, {30, 33}, {8, 33}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{6, 34}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{9, 35, 36}]}, { GrayLevel[0], PolygonBox[{10, 37, 38}]}, { GrayLevel[0], PolygonBox[{14, 39, 40}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{41, 42}, {43, 44}, {45, 46}, {47, 48}, {49, 50}, {51, 52}, {53, 54}, {55, 56}, {57, 58}, {59, 60}, { 61, 62}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[63, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[30, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[33, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[66, 0.2], "42"], Annotation[#, 42, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, {9.084243190934972, 1.9331628986931637`}}, {{{0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, { 2.4342431909349713`, -2.374437101306836}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, { 1.906747985000237, -2.061172999999384}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "18"], SubscriptBox["\"H\"", "22"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["42", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["45", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtM02cQb6uEMZAMViiPP4+2UIEhD7eFiAv/gzknChMJT8ssAzsGOots bAUUrYiAuE2kTOI2ZdAJwcwBwmAbcDVBmOgswVVwhRJelbU8+lBSGNLBTNkl Xy6/u/t++e539zHTBLF8GoVCiVg76/5gRGDUWR8WzIHhUFsyBVJCt+oS9Exo OX4x4VTxP6SkTFWgTmOBfLepMXkLBa6LlJ5d/iw4c7Jhvm92mdzWGRrzPGAT RDjVXGrPoEizlMfPf+lFA63jnpiVahN69FQMiA5bAEdbzlNnUqTOnwzZ629b QhK3GWfdV5HvPJHEaPeAU1mdn1Y6tW7g5pyPKuZOzJHxtxsk7wEBMV9cPmZf NIFmnLSj9ffPuhdJyrpJmaC66T1VdNVA7soUaIvvOm3wfW8MXks5QPiZib7q 3ybQnDfzm+9/W8v+ZaVkGDlrLH+oWZA6PcBSLP1Ful495HsvhoDZAx3uxZol vPL5eqUTJPVv72kOoEq5KV4z92uZsNrgXD2mNpA/1CkYr48y4UFrcJBPrIGs He7lRJTTgd99a/6ApQp/LE3IvXaWDr45nqm9SUb8ScwvTXdzALnwb07wS8sY F7u1pizbDtaf0SirQqqSZnWeZwdr0abxTKrUJ9GiNeSgHbjJL9xnRPTjhdzy OH6dDWj63n86SJ/Clu8W6nv3WcOR1xYvj1aOo6RXwfOMsoNsdn5e3rgJjYwF nUxsA6qfL52ULRiR53vvlb5Qa3ih0zLedfGIcIylQoUw/U533Sr6KUXs6CYm 1LocbRNeU+IjZuFIi4wJX/spOk9nD6KKlIx123pC8n/zWCVNLQX6phiPDdwo kyfMBjpv6L3ejkf6//rX6+jHAtoJEF+xTQ2aXsKv9jZMZahdYZdV2uhj3RK+ zfUb6blBgDCIVIVFGfFdizBGvd4VaEOFwc2JRhzrIfdyawhI6RUcjb61iCZ8 GKladoVuyTfFpV2LWBAQ36ETExCeUqPnujzD9vzME96bCCjI6XjMYz9DRnUW p7SMAG/9gDBLZEDBm6abh60JCAH5tpAyA7ZQT4vdCwl4uZRqEs7okKMVj9e9 SsDTLXqR7YIO9x+porXlELDgtr24ZL8WRxv96JOuBDQrbB9Nx2lR82dj9r4M Aq5n3HH0/3gOq/jS3SwvAkZiE+Pyc+ewJEyqHOcSIKjksCN3qjHaMyHvA38C 4ucvrviEq5HdII8Sru3fDiwJ/NDqCVooNDdq3iBAVtYvGbJ5gmin+dX2HQJo mpmdRUOT2FUlUo69RcAe783R54YnkdZpYU/nscz7Aw87J+lukZvBklcd5WBD lZr/m3lelBcGgwKe5QPn5/gvGnAANg== "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{9, 10}, {9, 11}, {10, 12}, {10, 13}, {11, 14}, { 14, 15}, {12, 16}, {17, 18}, {19, 20}, {2, 21}, {4, 22}, { 13, 18}, {23, 24}, {15, 25}, {15, 26}, {20, 25}, {25, 27}, {28, 29}, {26, 30}, {31, 32}, {27, 33}, {30, 33}, {8, 33}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{6, 34}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{9, 35, 36}]}, { GrayLevel[0], PolygonBox[{10, 37, 38}]}, { GrayLevel[0], PolygonBox[{14, 39, 40}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{41, 42}, {43, 44}, {45, 46}, {47, 48}, {49, 50}, {51, 52}, {53, 54}, {55, 56}, {57, 58}, {59, 60}, { 61, 62}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[63, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[30, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[33, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[66, 0.2], "42"], Annotation[#, 42, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, {9.084243190934972, 1.9331628986931637`}}, {{{0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, { 2.4342431909349713`, -2.374437101306836}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.029999999999923782`, 0.}, {0., 0.029999999999923782`}}, { 1.906747985000237, -2.061172999999384}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "18"], SubscriptBox["\"H\"", "22"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["42", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["45", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}, { RowBox[{ TagBox["\"SMILES: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"C[C@]12CC[C@@H]3c4ccc(O)cc4CC[C@H]3[C@@H]1CCC2=O\"", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"InChIKey: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"DNXHEGUUPJUMQT-CBZIJGRNSA-N\"", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Molecule[{ Atom["O"], Atom["O"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"]}, { Bond[{1, 11}, "Double"], Bond[{2, 20}, "Single"], Bond[{2, 42}, "Single"], Bond[{3, 4}, "Single"], Bond[{3, 5}, "Single"], Bond[{3, 8}, "Single"], Bond[{3, 21}, "Single"], Bond[{4, 7}, "Single"], Bond[{4, 11}, "Single"], Bond[{4, 13}, "Single"], Bond[{5, 6}, "Single"], Bond[{5, 10}, "Single"], Bond[{5, 22}, "Single"], Bond[{6, 9}, "Single"], Bond[{6, 14}, "Single"], Bond[{6, 23}, "Single"], Bond[{7, 9}, "Single"], Bond[{7, 24}, "Single"], Bond[{7, 25}, "Single"], Bond[{8, 12}, "Single"], Bond[{8, 26}, "Single"], Bond[{8, 27}, "Single"], Bond[{9, 28}, "Single"], Bond[{9, 29}, "Single"], Bond[{10, 15}, "Single"], Bond[{10, 30}, "Single"], Bond[{10, 31}, "Single"], Bond[{11, 12}, "Single"], Bond[{12, 32}, "Single"], Bond[{12, 33}, "Single"], Bond[{13, 34}, "Single"], Bond[{13, 35}, "Single"], Bond[{13, 36}, "Single"], Bond[{14, 16}, "Aromatic"], Bond[{14, 17}, "Aromatic"], Bond[{15, 16}, "Single"], Bond[{15, 37}, "Single"], Bond[{15, 38}, "Single"], Bond[{16, 18}, "Aromatic"], Bond[{17, 19}, "Aromatic"], Bond[{17, 39}, "Single"], Bond[{18, 20}, "Aromatic"], Bond[{18, 40}, "Single"], Bond[{19, 20}, "Aromatic"], Bond[{19, 41}, "Single"]}, StereochemistryElements -> {<| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 3, "Direction" -> "Counterclockwise", "FiducialAtom" -> 5, "Ligands" -> {8, 4, 21}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 4, "Direction" -> "Counterclockwise", "FiducialAtom" -> 13, "Ligands" -> {7, 3, 11}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 5, "Direction" -> "Clockwise", "FiducialAtom" -> 6, "Ligands" -> {10, 3, 22}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 6, "Direction" -> "Clockwise", "FiducialAtom" -> 9, "Ligands" -> {5, 14, 23}|>}, $CellContext`AtomDiagramCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGDQAmIQzbSHVUgkXslBfUHnhoeZjA6X9zwWkfVkcWCPn+Ej ysN4IFXyUYT4dnmH+qw9JZMltuyH8TcWZUx8W/PWPvTgiiV+DjIOAb3T84Sa H+13ycz/0HpSAq4eJh9hueVE2b5v9gwgcEDRYc4i5Z1/2m/A1cPMk54Xp3k6 QMbhTeAOudbXP/fD1D9bp/qked5nezUgefaVkkPC0wtKt3/esoe5JxJs/j/7 hT8MgUpFHRybHh2fsfvR/lnlIJskHCJOGR3ZqMd4YP2U1I5kWVGHqxUv1Qw5 fu0PCQL6vEDQAWTsqvNT9zPeY+LsiheEhceBTXPfLz/mze2Qrf1t+t3JD/fH a54WOG7F7QCx59f+ixNj/jn/kndQSH4X5WT3bP+O9czPezLkHFgXT7Ji9H2z n9G3hdf/vZRDgVDzgVMLz9qDla2QcmhUO9S2PPyfvfuUb2zxN2Th/KV7D4qr XVZy0IzpP/RV49n+YlCw2Cs66EhMvcKZ8W6/1krhCy4RYg7Vzfo+y7he2cvU JBqFfhB3AIebwA97cDQckHMI+CNRfF3ox/7ju3b0shnIOtR82hCQPYvxgAAo Iq4pOwRPU+wrLay2h/GDPOc2qB16Zf9BzAOoVREenrDwXeS67fPfEBaHVywm gmY2snD5AAfhxMPBQP+wHO03/M5y4M/Kj5d8lcQdor7uvNX1l+XAlPbWqMs1 gg7Xwt7o71Z/bL/8hYfe/0RBB7mTT+2XxLMd0AEFKzu7w1evyDaLa2ch8c3A 4HApP579nOTf/QCq+DWw "], AtomCoordinates -> StructuredArray[QuantityArray, {42, 3}, StructuredArray`StructuredData[QuantityArray, CompressedData[" 1:eJwtU31Uk3UUfjcIXiY5wDXwIBw5EzXgEOjBkCP+XiP5OsMGaBw6xoeF0PgQ SIwTY5njS/FwlCIIyTCQIDVACoLK++4A5lgpHYIBIjLcnONjjE3ADTfau/rj /vO79/fc597nuV4nTsWl0TEM87GEjSXuiF13xpduJs9GQrFHcD/66rZj3s1N OGlkqnvaRa8RDuaeag93DVqzS67j1tgSQ/1v3fpo2gyd7y7WXxqrQLmbZXxm URvsORbg07bFDATrz7pzQS3A5sfoq+INENjtpGgskYMf93EmXtUDSX1RjnRf BRrA5X/fdZ5FCQel+hnNOIrf1Xi+Qz4CTdUhtJgSHdReYn6674Yeffj+VLhN IUaWCoa7EgtwctnfdfmbuiU4VCxt8K8cQd1NwREeHj2I1/5lWsUHBvR5TVhl lkoHikle4P3HJHQlrvROXliDTl5m/ScNOsRel2ok/QxyJv14sFO1GPYfjsg3 MDfASve0E6kufpL5wE8By1CzMI4/g7xQhqwpVw/9Zd8nDO1ZAZ+Qauln9zBy TMX3Xa01oZoeTgP7t1mkjvTf8DJNoZxB8+0inQ61eytEV/9aAfF+TnSRaANN JJ95x5NNI6IypL2shBFozqWAX6BC9c5A3M+OMKetKVKvGdAP9dvnDmJipPqR AmAQewc6/XOaBmFc+zw60Y5O9HqWzsf+wiTqHn1RXvreOoppYYR7F8yjqtoc FxHmTPDPta5jzXPo2cRN4/FsM2INvz2uPU0jBUI3rwOTGjS4vSM/47IMLUko IZVwyicuNctLjt48fyhFObyGRI86smNPqlHsPiVjKV8GLHR36ucSLdzivrgu nFaDOcy4OE9qkRcFk42TYRY35F0wgWX41YIUjMBDrxz71hcjOQ8NQv6BTWTe 04SPz6YsQpHoDW4LYwVx79mHXhl9hTSVP38oo2HkjmgqM4RUmHhbqHABWVxn o7poQknZ1CJNUC7nnIjeMQguFJEgGyJ8ZEIys1sOGcIge/zpAtzfGjvpLjDB wIhv2tbZl8ihNde2jVWJrHpvo5EaAQpK6htFrpG8l257t5D57NWf+pN/RQ68 eOmYcRzkDc7Xfxe7kN160z+F6jWox92vJr2uhSyLW77jrIKhMb1rTo+RYQ9O jqr4q9BQGrqolQ3A7sVX7wR8rYMyyVFxazONDOBSQhghijqjdAN4SpSoORkn //PPArLqV7YMWQ4Uoj0R4V1Ar8fXkb3VsHTysLXAjKzrFtgSl4XrIblH6MT0 mWu9RzhK+IN65jkSqUfjLJcyB9521EecsNK64UJU2WnZkcM2xK6KPibBf4KE 1NgObv/3MSIFy0OiBDrxL/JBCYc= "], "Angstroms", {{1}, {2}}]]], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{ TemplateBox[{"\"estradiol\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Estradiol\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Estradiol\\\"]\"", "\"chemical\""}, "Entity"], "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Molecule", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtMm2UUbYFKHIytWAakP9AHYIeGadzEELve4AOBsQGhTOlGx8sJzvEK U5hO2JjAQLq5VhdkjAEGVuRtB8zNWx7joS5lYYDJGFAoRdoqa+VZhErR4k2+ fDnJd3PuOfd8zLiUiEQrEokUsHnM90fnThALDSxgXh6ghPuQQea30pVgZAGn orBJmUSG9g7/sHVfa9A8SLsq0ZDkyeNpl0o8rUDUtcg5doQk/6b3ymBuAgWG vjt+ol9HkrtmjDoaOm3hi4HIzlpPEya6Tr3r3OYBadwdo1WpWp4Fb0FuF5LM JWdCO5yf6rtm4PE7a6sPAwHt7he14e2L23iLT6TCN5NSnl4ccNnuv7nysrrB ywnKY/b+srtPhd6qC+UPNCxQZtMaApUjPMt7C7+F76igGXXlY0g3N4YRUHxq du2W3oilH5dVsjtcICXX5r6omSyv/K3XO6CIBt2lRv2A4+9YXxCVeSOPBu9N dseej1nFRnFiQbybE9jMFnP+2LmGkRHPVxSmUsE8hlQhQ/K41bOXhFTgbRGS 5ZyjlB/8oqkQxH6kW/N7iMWZRZGJVfbwTnX1cjBDjS3X52t6Q+yg35b7Lf/G NFb3PhYyDlFhsL/kXmkGSb7iPK9XiO3ByevVz4sWV1Folu1vB4PvD88mv7CG 1PKcoPUDbNA6VLW6lJHhRzePgD0RZPDVPNOXfcuEal71xE8OjP/8XeeZWs4a msI8tvGFq5H8w01M4NBWLvoLlPjZqTpps4IJwpL0jIT8EZQqhqN0+1y3/TTL 84j/3999N9nK2DMsaOzfmb9raoMn9DGo7Z1YUCe8XPj1pIlXo6ed9m0jYL+M y+VrjSgKrlWd1NBBxb5yZ2PZiG8IfMZ66ghwCTndHR+xioGUg841BjpU6usd Ro6v4kQPL1hQQcDfk+VB6R3LaMKhILWRDjH4c1x99zKe9eW368UEKM8oFDmM JWzLTvrUy5oA+pezt/P2LqHztWTvgkIC7tuTokT5C5hywNSQYEfAaLSN3THR AraQc8Tu5wiQVr40dv1PA3o/FSurniNAzGEKX1k04JEPJVay9M08vhYb9z1f j0+kPrRpOgHhS9zWHQI9ah9JU0NOEqAuYz/MzJpHSaL8bZYnAUSBzKEndx7z D8rHlQJi05+8J18F6jCUEZUV+yIBEvb87fRQHbJrhw99spnHrIWZuUanOaQ8 1tZV7CdgF3KETNc5RKr2jsNbBAQwApd+nZ7Be5Lc8YnXCSiIjrMdVM2g1V2K I03Igt1zbY3WsyQYujtNcwuyAfc9yaF/lZDllv9n2fcHrZoMmYRtySeQ/i3Y yq3HBv4DZ1D8rw== "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{7, 8}, {7, 9}, {7, 10}, {8, 11}, {11, 12}, {12, 13}, {9, 14}, {10, 15}, {16, 14}, {17, 18}, {19, 20}, {13, 21}, {13, 22}, {18, 21}, {21, 23}, {24, 25}, {22, 26}, { 27, 28}, {23, 29}, {26, 29}, {6, 29}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 30}, {4, 31}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{7, 32, 33}]}, { GrayLevel[0], PolygonBox[{8, 34, 35}]}, { GrayLevel[0], PolygonBox[{12, 36, 37}]}, { GrayLevel[0], PolygonBox[{9, 38, 39}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, {56, 57}, {58, 59}, { 60, 61}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[62, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[63, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[7, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[8, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "40"], Annotation[#, 40, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[66, 0.2], "44"], Annotation[#, 44, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, {9.084243190934766, 1.86926289869267}}, {{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, { 2.4342431909347653`, -2.43833710130733}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, {9.699147985000048, 1.9982270000001243`}}, {{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, { 1.906747985000048, -2.1250729999998756`}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "18"], SubscriptBox["\"H\"", "24"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["44", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["47", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtMm2UUbYFKHIytWAakP9AHYIeGadzEELve4AOBsQGhTOlGx8sJzvEK U5hO2JjAQLq5VhdkjAEGVuRtB8zNWx7joS5lYYDJGFAoRdoqa+VZhErR4k2+ fDnJd3PuOfd8zLiUiEQrEokUsHnM90fnThALDSxgXh6ghPuQQea30pVgZAGn orBJmUSG9g7/sHVfa9A8SLsq0ZDkyeNpl0o8rUDUtcg5doQk/6b3ymBuAgWG vjt+ol9HkrtmjDoaOm3hi4HIzlpPEya6Tr3r3OYBadwdo1WpWp4Fb0FuF5LM JWdCO5yf6rtm4PE7a6sPAwHt7he14e2L23iLT6TCN5NSnl4ccNnuv7nysrrB ywnKY/b+srtPhd6qC+UPNCxQZtMaApUjPMt7C7+F76igGXXlY0g3N4YRUHxq du2W3oilH5dVsjtcICXX5r6omSyv/K3XO6CIBt2lRv2A4+9YXxCVeSOPBu9N dseej1nFRnFiQbybE9jMFnP+2LmGkRHPVxSmUsE8hlQhQ/K41bOXhFTgbRGS 5ZyjlB/8oqkQxH6kW/N7iMWZRZGJVfbwTnX1cjBDjS3X52t6Q+yg35b7Lf/G NFb3PhYyDlFhsL/kXmkGSb7iPK9XiO3ByevVz4sWV1Folu1vB4PvD88mv7CG 1PKcoPUDbNA6VLW6lJHhRzePgD0RZPDVPNOXfcuEal71xE8OjP/8XeeZWs4a msI8tvGFq5H8w01M4NBWLvoLlPjZqTpps4IJwpL0jIT8EZQqhqN0+1y3/TTL 84j/3999N9nK2DMsaOzfmb9raoMn9DGo7Z1YUCe8XPj1pIlXo6ed9m0jYL+M y+VrjSgKrlWd1NBBxb5yZ2PZiG8IfMZ66ghwCTndHR+xioGUg841BjpU6usd Ro6v4kQPL1hQQcDfk+VB6R3LaMKhILWRDjH4c1x99zKe9eW368UEKM8oFDmM JWzLTvrUy5oA+pezt/P2LqHztWTvgkIC7tuTokT5C5hywNSQYEfAaLSN3THR AraQc8Tu5wiQVr40dv1PA3o/FSurniNAzGEKX1k04JEPJVay9M08vhYb9z1f j0+kPrRpOgHhS9zWHQI9ah9JU0NOEqAuYz/MzJpHSaL8bZYnAUSBzKEndx7z D8rHlQJi05+8J18F6jCUEZUV+yIBEvb87fRQHbJrhw99spnHrIWZuUanOaQ8 1tZV7CdgF3KETNc5RKr2jsNbBAQwApd+nZ7Be5Lc8YnXCSiIjrMdVM2g1V2K I03Igt1zbY3WsyQYujtNcwuyAfc9yaF/lZDllv9n2fcHrZoMmYRtySeQ/i3Y yq3HBv4DZ1D8rw== "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{7, 8}, {7, 9}, {7, 10}, {8, 11}, {11, 12}, {12, 13}, {9, 14}, {10, 15}, {16, 14}, {17, 18}, {19, 20}, {13, 21}, {13, 22}, {18, 21}, {21, 23}, {24, 25}, {22, 26}, { 27, 28}, {23, 29}, {26, 29}, {6, 29}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 30}, {4, 31}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{7, 32, 33}]}, { GrayLevel[0], PolygonBox[{8, 34, 35}]}, { GrayLevel[0], PolygonBox[{12, 36, 37}]}, { GrayLevel[0], PolygonBox[{9, 38, 39}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, {56, 57}, {58, 59}, { 60, 61}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[62, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[63, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[7, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[8, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "40"], Annotation[#, 40, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[66, 0.2], "44"], Annotation[#, 44, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, {9.084243190934766, 1.86926289869267}}, {{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, { 2.4342431909347653`, -2.43833710130733}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, {9.699147985000048, 1.9982270000001243`}}, {{{0.029999999999984615`, 0.}, {0., 0.029999999999984615`}}, { 1.906747985000048, -2.1250729999998756`}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "18"], SubscriptBox["\"H\"", "24"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["44", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["47", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}, { RowBox[{ TagBox["\"SMILES: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"C[C@]12CC[C@@H]3c4ccc(O)cc4CC[C@H]3[C@@H]1CC[C@@H]2O\"\ ", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"InChIKey: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"VOXZDWNPVJITMN-ZBRFXRBCSA-N\"", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Molecule[{ Atom["O"], Atom["O"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"]}, { Bond[{1, 7}, "Single"], Bond[{1, 40}, "Single"], Bond[{2, 20}, "Single"], Bond[{2, 44}, "Single"], Bond[{3, 4}, "Single"], Bond[{3, 7}, "Single"], Bond[{3, 8}, "Single"], Bond[{3, 13}, "Single"], Bond[{4, 5}, "Single"], Bond[{4, 9}, "Single"], Bond[{4, 21}, "Single"], Bond[{5, 6}, "Single"], Bond[{5, 12}, "Single"], Bond[{5, 22}, "Single"], Bond[{6, 10}, "Single"], Bond[{6, 14}, "Single"], Bond[{6, 23}, "Single"], Bond[{7, 11}, "Single"], Bond[{7, 24}, "Single"], Bond[{8, 10}, "Single"], Bond[{8, 25}, "Single"], Bond[{8, 26}, "Single"], Bond[{9, 11}, "Single"], Bond[{9, 27}, "Single"], Bond[{9, 28}, "Single"], Bond[{10, 29}, "Single"], Bond[{10, 30}, "Single"], Bond[{11, 31}, "Single"], Bond[{11, 32}, "Single"], Bond[{12, 15}, "Single"], Bond[{12, 33}, "Single"], Bond[{12, 34}, "Single"], Bond[{13, 35}, "Single"], Bond[{13, 36}, "Single"], Bond[{13, 37}, "Single"], Bond[{14, 16}, "Aromatic"], Bond[{14, 17}, "Aromatic"], Bond[{15, 16}, "Single"], Bond[{15, 38}, "Single"], Bond[{15, 39}, "Single"], Bond[{16, 18}, "Aromatic"], Bond[{17, 19}, "Aromatic"], Bond[{17, 41}, "Single"], Bond[{18, 20}, "Aromatic"], Bond[{18, 42}, "Single"], Bond[{19, 20}, "Aromatic"], Bond[{19, 43}, "Single"]}, StereochemistryElements -> {<| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 3, "Direction" -> "Counterclockwise", "FiducialAtom" -> 13, "Ligands" -> {8, 4, 7}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 4, "Direction" -> "Counterclockwise", "FiducialAtom" -> 5, "Ligands" -> {9, 3, 21}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 5, "Direction" -> "Clockwise", "FiducialAtom" -> 6, "Ligands" -> {12, 4, 22}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 6, "Direction" -> "Clockwise", "FiducialAtom" -> 10, "Ligands" -> {5, 14, 23}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 7, "Direction" -> "Counterclockwise", "FiducialAtom" -> 11, "Ligands" -> {1, 3, 24}|>}, $CellContext`AtomDiagramCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGDQAWIQzbSHVUgkXslB4OX29czPGRwu73ksIuvJ4iAnluX7 uY/xQKrkowjx7fIOhbZc1xcXvLaH8cFc20P7Qw+uWOLnIOPQf+irRkz/k/0u mfkfWk9KwOUZQOCAosMOh6ZHx2d8soep3yHX+jpwx1d7mHx49Mb9b+bdgeuH 2af2pHne2VdKDg+rRNa5P7xmLz0vTvN0gIxDT87z3ys//toPcw/EvL/2C38Y PlunKuoAUiZw/Mn+WeVzFinvlHDIb2Q52r+R8cD6KakdybKiDizPezTe8v7e HxKkvqCzQNABZM2q81v3M95j4uyKF3SwBzuI8cCmue+XH/PmdjjBbjs7dP7j /fEgY624HS6kXX2epf17/8WJMf+cf8k71Nmbxu3yfLF/BzAUezLkHJLrb9pW Rrzbz+jbwuv/Xgrqn6P2s2YCwU8lh07HhKcXlL7YJ7+LcrJbIeUQBPbAX3v3 Kd/Y4m/IwvlL9x4UV7us5NBuce1orsmL/cUZE9/W2Cs6uPx6+/qA5Yf9MjWJ RqEfxB2qm/V9lnF9t9daKXzBJULMQW75Cw+9/8/tBSIst5y4puzwNSesdt22 F3A+z+SVTYGea/f3Ts8Taj4g51CftadkssTP/cd37ehlM5B1OFPvsb9WlunA BzGPgD8SivDwhYU32H0XmR1esZgImtnIwuUDHIQTDwdLOczaPW0CfxXrgT8r P17yVRJ3KFzTfTujgfVAxuZXxVunKsPC12FKe2vU5RpBh4qqpTrOMg/twc5O FHQwbdgOTDFsB3S+Tb87mZ3dARS6PEyXIemJgcEBHE/y//YDAE3GQ7E= "], AtomCoordinates -> StructuredArray[QuantityArray, {44, 3}, StructuredArray`StructuredData[QuantityArray, CompressedData[" 1:eJwtk30021cYxxMSJqsq1SzTqZeevRSVeZl1lHs73djQdkytbDXtiXobRl/U tqaG9Wwaxo6qM6tZqfYcp/UyRlvnuVGpURwvNRTtyKLmJYmECEnYL7F7znP/ uc899/v5fp/rcCIllGdEo9FcqDKmKsUqm3RV0AhsLfP47XdTQm1vq9vUUPGX p2wfcwcWlOX6LsgHwcFm4sB88Ayy7LjbLDBZggq12/TtV+XgXjMl6N49COu8 lX9iKrRwwXbfqYPxY6g98mvWxcXHwDi6dW/9L1KocvF/ZW5qBQmnUqcj0sfR VS6X+Hl3QvjT/NRI+SyyqmoVvvTaGhJ3XL13ZZsxORWrX2twnX6faWWtgDyd /gEFGNrC1CBR2A2kRCtQbVpc4YKWRiL8p3YF2UmQuZHzJfaoFnICdgbUiGTg 8+ywoCR5BBq2fFmTF0XHlBhZ9UMG2dQxDf8Gum44fGNEBEPTG+EB9TBkFueY lGGMn/aE2aZ5jMBsdFGXdXotctSpzvxdpgBp5Lt+M6NyaBVb23ZKlKj5k4+y 4zlTyDVZr1SF7jSd4I/6KlFf7NDzBGctwkLRDzbBcyBar/9KUbuOJA37LaS9 MlSRU9rE53WiwCNaTvrwBqKPzk3YyYQwl964Q/PICH9/4HNJnyMLMz0tvfa3 SlBSDPvJOz1F0N9wbLnlCQsP8tzqVpvHN/21peMPKAydygJ7JO6xX+D/Ck4G QCna5GaSgN62a2fVkygzrJB18sV+JCpwO7fXQQMUBKqMpmOxlw2Jsp9Ff5r6 /hxe/gA4xY8pJ1aRW6kTp/hjY0wPyTE/zGWR2wY+LdxQnM0Z/HYSTg9oHg5f 64dEZ1XJxHY6KWu3pyJRIgNHEJXLPPfe6wU0EvNg0Jn3sgplFfvnJT03ITV+ EVF1oEINs/rGddg8X4LQ2Oxg9zQZcnq0jZo0I6IpdKRGbAyE6bLJIvEMhF1x yD+zaIovj8XRUrI2gHnkskvpyVsA5TbciUpj3OXeXucq3UIiCSN5okcCevdC 2Uyy6SeNtH1XHdHlLoeez4IoVDOS6dMWL8zrQiPypQ+PmbCwIQ6rPpTIa+Mu K8UgaEk0W7U3wcOiLzwv/qEEzMmQ+n56F7HfzIo6pxyHZMP/0cEz3eLxRvd5 NNl9Z5omlEG3Xr5gBDLek0PxPEGNN8537PGmk3DhzcpDeAVuvdXjc6hfh+6f /onDOMrA+qnLrFJA05ir53C8FG03GLKI2AkhyvywNdhVPRPoyjchCfoLOSyS xdAnSPs/DzXK96nKXuaPg0hvvyULX9/dor20ZI5bimx3ZmXIUK5+3KoWoGTj xwsabwvM63jf/viwDPga79TeF0xx3MH4FLmIjQfEK1660XJ4I/d8gUfITfgP fHMrJg== "], "Angstroms", {{1}, {2}}]]], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{ TemplateBox[{"\"4-androstene-3,17-dione\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"4Androstene3,17Dione\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"4Androstene3,17Dione\\\"]\"", "\"chemical\""}, "Entity"], "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Molecule", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtMk1cYLTBbNoQxyJD/KqYFhktZeDgEdZP/QzKHkyGiIjUbY2ZLnDAo gsRtTh4Nr20mFCgPxSqlA8RBYBaiDno7J8HIKIxgYTzKy7a8SsEfailS1rEV v+Tm5uQk537n3O9jnUmK+tKaRqOFmM+/91iUnn7AhQVXD1CxzRwa7Doyf/v1 MSb8mlwQnZ69SrKv1gdWRbIgK3S9jmNPg+TCn4cuIDP+vna+Y85IDnveWfpE SQOxOLo0x7SOu3oMgV3v2QDbY6FUeHgNy3W1WQkxVpDxQ0IKv48mw9fmHw43 20BO0XnN/iUTnpsIRLLtCCKvlCY68Saw9AbyHRG7QPq51tQiVwle3c+V5xW6 beLtviOedCtnCMma6Cj7bWKTbzp/lq+9pCUtejH7JI/SpHqy07Hj/t16Jqgb 3nrKE1LkoRZqrc/gBE8uTnv52xrxE805b32pA5jJrrpuweb7Fj1B36tn3d9B EGsKNWpnV7B/OdtVUOwCMY93P2zysZJZ9CtEHvde5A7gxaWPODkDLIhT9bgP rQyS3dJj1/cdcQLQNyyK+w1Y+yze9mm5A1Se6bmnHlvHPuusNf0FB9h1M79x /CsrmdfXs6LsAiaYaomy0RmK5EpEvbOPmSCX+Pu9HUWRo2N2RbesGRBv7nqk aBz/lKBZvbVIh0qDv9miETvnzgWIJHRIkXGlcZEreEvUxIMmHwZ0+1H2a0Yj 9qRnCkLttm3628gp+KXf5fkw5RYhE0QoofniDSWu3P1BaXwbE0rYQ60Z3F78 eaUiQGdwA85Gvqb/83mJR/qLD0UkOcNzVd6s36VBkrNczeCJnIDxhnYpXjBI VrH7WrILEfBFNSlVqhWce5kkcDsB3qfHMvY+W8HCSMX8zlwENsqq3sZwA65m 667T5AR8nMi/7RhjwOVpA153v0OQStz0l97R43aF0P2gggBu1kHFVJseF1UM xh7jIlCdqCjoRMtYlRVRw1MSwC+haL97LOMrD4ZLZr5AEF1QphvIpLCNr8m7 XU2ApE7sXZ5P4bwppZzHQfCoszhCPbWI3YfqG+k6AhTSk9HJukXMcxinu0Ug 2Mvg11NHF3BI7qd7wp4TYOilZx4+uYAvB0wGtxxEcDwbEdaJWhz3rv39/HUC 9siTToWmafE3p1VpR4MQBL5w6t/x/gxOH20N7mQg+Fb/1y9UyAxOzdA0THkj 2JZiJwh6TYOFPyb8sdURAd4ZYC221+Ck6ml1JhOBcdrmeNTAJG4L2hEW4Yrg lQ9LTp34exJ3/WmucJZlnoD2XwHjs7LwN7daySz7Yvmva2q3milbZ0jfIAbJ fwAxLBTa "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{9, 10}, {9, 11}, {10, 12}, {11, 13}, {13, 14}, { 13, 15}, {12, 16}, {12, 17}, {18, 14}, {19, 20}, {21, 22}, {16, 20}, {23, 24}, {16, 25}, {2, 26}, {4, 27}, {15, 22}, {17, 28}, {28, 29}, {25, 29}, {6, 30}, {8, 31}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{10, 32, 33}]}, { GrayLevel[0], PolygonBox[{11, 34, 35}]}, { GrayLevel[0], PolygonBox[{13, 36, 37}]}, { GrayLevel[0], PolygonBox[{12, 38, 39}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, {56, 57}, {58, 59}, { 60, 61}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[62, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[63, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ]}}], GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999998604`, 0.}, {0., 0.029999999999998604`}}, {8.54854319093472, 1.9331628986925564`}}, {{{0.029999999999998604`, 0.}, {0., 0.029999999999998604`}}, { 1.8985431909347183`, -2.3744371013074437`}}}]}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "19"], SubscriptBox["\"H\"", "26"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["47", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["50", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFUwtMk1cYLTBbNoQxyJD/KqYFhktZeDgEdZP/QzKHkyGiIjUbY2ZLnDAo gsRtTh4Nr20mFCgPxSqlA8RBYBaiDno7J8HIKIxgYTzKy7a8SsEfailS1rEV v+Tm5uQk537n3O9jnUmK+tKaRqOFmM+/91iUnn7AhQVXD1CxzRwa7Doyf/v1 MSb8mlwQnZ69SrKv1gdWRbIgK3S9jmNPg+TCn4cuIDP+vna+Y85IDnveWfpE SQOxOLo0x7SOu3oMgV3v2QDbY6FUeHgNy3W1WQkxVpDxQ0IKv48mw9fmHw43 20BO0XnN/iUTnpsIRLLtCCKvlCY68Saw9AbyHRG7QPq51tQiVwle3c+V5xW6 beLtviOedCtnCMma6Cj7bWKTbzp/lq+9pCUtejH7JI/SpHqy07Hj/t16Jqgb 3nrKE1LkoRZqrc/gBE8uTnv52xrxE805b32pA5jJrrpuweb7Fj1B36tn3d9B EGsKNWpnV7B/OdtVUOwCMY93P2zysZJZ9CtEHvde5A7gxaWPODkDLIhT9bgP rQyS3dJj1/cdcQLQNyyK+w1Y+yze9mm5A1Se6bmnHlvHPuusNf0FB9h1M79x /CsrmdfXs6LsAiaYaomy0RmK5EpEvbOPmSCX+Pu9HUWRo2N2RbesGRBv7nqk aBz/lKBZvbVIh0qDv9miETvnzgWIJHRIkXGlcZEreEvUxIMmHwZ0+1H2a0Yj 9qRnCkLttm3628gp+KXf5fkw5RYhE0QoofniDSWu3P1BaXwbE0rYQ60Z3F78 eaUiQGdwA85Gvqb/83mJR/qLD0UkOcNzVd6s36VBkrNczeCJnIDxhnYpXjBI VrH7WrILEfBFNSlVqhWce5kkcDsB3qfHMvY+W8HCSMX8zlwENsqq3sZwA65m 667T5AR8nMi/7RhjwOVpA153v0OQStz0l97R43aF0P2gggBu1kHFVJseF1UM xh7jIlCdqCjoRMtYlRVRw1MSwC+haL97LOMrD4ZLZr5AEF1QphvIpLCNr8m7 XU2ApE7sXZ5P4bwppZzHQfCoszhCPbWI3YfqG+k6AhTSk9HJukXMcxinu0Ug 2Mvg11NHF3BI7qd7wp4TYOilZx4+uYAvB0wGtxxEcDwbEdaJWhz3rv39/HUC 9siTToWmafE3p1VpR4MQBL5w6t/x/gxOH20N7mQg+Fb/1y9UyAxOzdA0THkj 2JZiJwh6TYOFPyb8sdURAd4ZYC221+Ck6ml1JhOBcdrmeNTAJG4L2hEW4Yrg lQ9LTp34exJ3/WmucJZlnoD2XwHjs7LwN7daySz7Yvmva2q3milbZ0jfIAbJ fwAxLBTa "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{9, 10}, {9, 11}, {10, 12}, {11, 13}, {13, 14}, { 13, 15}, {12, 16}, {12, 17}, {18, 14}, {19, 20}, {21, 22}, {16, 20}, {23, 24}, {16, 25}, {2, 26}, {4, 27}, {15, 22}, {17, 28}, {28, 29}, {25, 29}, {6, 30}, {8, 31}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{10, 32, 33}]}, { GrayLevel[0], PolygonBox[{11, 34, 35}]}, { GrayLevel[0], PolygonBox[{13, 36, 37}]}, { GrayLevel[0], PolygonBox[{12, 38, 39}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, {56, 57}, {58, 59}, { 60, 61}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[62, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[63, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[64, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[65, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ]}}], GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.029999999999998604`, 0.}, {0., 0.029999999999998604`}}, {8.54854319093472, 1.9331628986925564`}}, {{{0.029999999999998604`, 0.}, {0., 0.029999999999998604`}}, { 1.8985431909347183`, -2.3744371013074437`}}}]}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "19"], SubscriptBox["\"H\"", "26"], SubscriptBox["\"O\"", "2"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["47", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["50", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}, { RowBox[{ TagBox["\"SMILES: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"C[C@]12CC[C@H]3[C@@H](CCC4=CC(=O)CC[C@@]43C)[C@@H]\ 1CCC2=O\"", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"InChIKey: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"AEMFNILZOJDQLW-QAGGRKNESA-N\"", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Molecule[{ Atom["O"], Atom["O"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"]}, { Bond[{1, 13}, "Double"], Bond[{2, 21}, "Double"], Bond[{3, 4}, "Single"], Bond[{3, 5}, "Single"], Bond[{3, 10}, "Single"], Bond[{3, 22}, "Single"], Bond[{4, 7}, "Single"], Bond[{4, 8}, "Single"], Bond[{4, 23}, "Single"], Bond[{5, 6}, "Single"], Bond[{5, 11}, "Single"], Bond[{5, 24}, "Single"], Bond[{6, 9}, "Single"], Bond[{6, 13}, "Single"], Bond[{6, 17}, "Single"], Bond[{7, 12}, "Single"], Bond[{7, 16}, "Single"], Bond[{7, 18}, "Single"], Bond[{8, 9}, "Single"], Bond[{8, 25}, "Single"], Bond[{8, 26}, "Single"], Bond[{9, 27}, "Single"], Bond[{9, 28}, "Single"], Bond[{10, 14}, "Single"], Bond[{10, 29}, "Single"], Bond[{10, 30}, "Single"], Bond[{11, 15}, "Single"], Bond[{11, 31}, "Single"], Bond[{11, 32}, "Single"], Bond[{12, 14}, "Single"], Bond[{12, 20}, "Double"], Bond[{13, 15}, "Single"], Bond[{14, 33}, "Single"], Bond[{14, 34}, "Single"], Bond[{15, 35}, "Single"], Bond[{15, 36}, "Single"], Bond[{16, 19}, "Single"], Bond[{16, 37}, "Single"], Bond[{16, 38}, "Single"], Bond[{17, 39}, "Single"], Bond[{17, 40}, "Single"], Bond[{17, 41}, "Single"], Bond[{18, 42}, "Single"], Bond[{18, 43}, "Single"], Bond[{18, 44}, "Single"], Bond[{19, 21}, "Single"], Bond[{19, 45}, "Single"], Bond[{19, 46}, "Single"], Bond[{20, 21}, "Single"], Bond[{20, 47}, "Single"]}, StereochemistryElements -> {<| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 3, "Direction" -> "Counterclockwise", "FiducialAtom" -> 10, "Ligands" -> {4, 5, 22}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 4, "Direction" -> "Counterclockwise", "FiducialAtom" -> 3, "Ligands" -> {8, 7, 23}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 5, "Direction" -> "Clockwise", "FiducialAtom" -> 6, "Ligands" -> {11, 3, 24}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 6, "Direction" -> "Counterclockwise", "FiducialAtom" -> 9, "Ligands" -> {5, 17, 13}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 7, "Direction" -> "Counterclockwise", "FiducialAtom" -> 18, "Ligands" -> {16, 12, 4}|>}, $CellContext`AtomDiagramCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGDQB2IQffYMEPgoOqgv6NzwMJPRgQECHNjjZ/iI8jAeePPI TOqAtJRDQO/0PKHmR/v3zZfSv7tEzKE+a0/JZIkt+39bFZzrmCSLwd9YlDHx bc1be2n9uypsjMIOjk2Pjs/YjdAPk4eZH2G55UTZvm/2U69wZijpSDnE/XP+ 9fb1z/2nBY7v2rFWwWHOIuWdf9pv7Hfb9vnvlR9CDlcrXqoZcvyCyz9bp/qk ed5ne8OZWhJTp4g5RJwyOrJRj/HAxy9ekW03FB0Snl5Quv3zlv3V51na36bz OQAVn111fircvZFg+//Zz34mu/wFh7BDPVjilv39B9yTVzKxO2QDdd2d/HC/ 3n/Fv99K+WDhdaAn5/nvlR/ZHBb+MAQ64dd+6XlxmqcFZB1Kt4r+Pv3u/f5m kLenSTpMlmAJ49O9Zm993793+jtZB4b8Rpaj/W/3b5r7fvmx06IOEH0/7A+e Wui6zVjEobpZ32cZ1yv7e1tbai5slnZoVDvUtjz8n/09FbbGqc0ScH7cHTfm Cm5pB5Dr589iPKACDKUvs2UcAv5IFF8X+rHfrjJihamugoOOBChk3+0HeurS vQOKDpox/Ye+ajzbP+l0vcf+vyIOUV933ur6y3LgZBkohoDmA11n+J3lwJ0M oEuPKDkET1PsKy2stofxgzznNqgdemU/KQYUUQIOPbdBEnfsP1i4uhdVcjuc kwy8JV1z1363Oj/3VjYFePjCwnuRKzAiQ1gg/hCXhsuLAUPtZLOow9Zllcc1 rW7Zg0L3Eq+wAzieez/Y2+wNArpEwMED7MFb9mHzV6+9Ec/qAA7XvEX2pUyz OKTlmBykHkWIb7/4ZH+1yDr3h1V8DnInn9oviWc7AADGenIG "], AtomCoordinates -> StructuredArray[QuantityArray, {47, 3}, StructuredArray`StructuredData[QuantityArray, CompressedData[" 1:eJwtk3s01GkYx82YKWPIvUhuG+WuyUZN2edVUptI62wXa9OFhEpqo7YNuZxK LkMrHXSWLG2n2za55LA9v7Nu1VbjUksNEiWXoWZCM26z89O+5zx/vt/3+32/ n8dqb9R3oUw1NTUX1airpmznWNWrTbpUOH+1ySIbMVjbxqVVRbIpx/Hczotn jYjQ28OreHU7CHixTlYWSvBPzz2snzSCrQ6hJj072rDo08Jqr7FBOO7vvLyU HYLGrG3znIRDkB9Y8e8CzjtIEx9QizqjwDDZUzf3UgmyFzhELNPuxLjbFXvj XyoxyNJTuu9JPQSwi7P5DDkyfJO1t9z5DHbszl0txp3wWv7K1Yf5Brb6ld0Q yF7//+40iK/18tRzxHg0NeOtzEKJyzaXanrbKOCgRP/FD+rDKNJZnLzBtBWv J2799kqCHD9lBPxknasAnv11gyavuZRSeEr2p/8E9k752npRVViR/EvTvZ0z oC7666xPRisKr3y41uAzBRxFYdi9QU3K1KXTes6Zp9h46OuESqLEmYh5uk+a B4Ff9jDmwW9SrJ9RCS5jkUqS2NNoPI+qXqrDLS+Vo2vdXefDxWOYMrT1vjlb nRiZPXoHv0/CiEfQ0Q47MRSp1I+Vf8Tt4PYoU14CLnSOEjbVHhyzxXz+JKC0 POwSqwP31NLJ+/CjypU7R4fMjB/vLtAbhyTlrZBG7w54aMfP/ieeQ569zT90 eHMrJtFCDQzS7SQolEt1yaaWFRejKjph4bE2fZmnAlYk0E4nUTNFY2WyfQnk 2RvnPOd8BhsbD61bfqVY4Hq1zF0+DoEqPFKn5ZAxwPFZUziIjC4mJ9VCjnVr b4V3RUuwRm2y/3nOa1zj15wVFDeHcAXCzODz0RBntjLMK7wWZuMzpmCtaP+L 9xGj+GHWP5tyVlpNjx+fgJhtXAkvqwLxtOpCHYPaQgz21AYwif+dX0PP7ZvA cymBrTW9H5F1gqtCU4kaNxcFhlQziCzYUkNQVAmzMRoZVLBn3t0DfAnM1tvO prQu0s2zqVORu2+wLjRCTLSpdrcTl/rCnQwPihw5/gHvIW25aUh2lhiEdttP 5F7oQgOZp2j/95okq1DO67s9CiZLaDKVSNOjFMwls7kGtKiw/arTx6RODizh aTiqUUnU46L1bgZUfmzB1cVVchzMEWpF35SiPV3LRgaJf+lxcscfDNJiVvfM kN+Nsap2I3wZZPe7pq/ECibpoNeENQo6P7vd+Gb7GCrXTQwPUe/hyz5xqZp+ h42u80tQ4PejwlEkArugzL/HbNWppJ7Gy9WXpDi4auB0b+QIBl/ebJT2WINa tX7DUYUOixycBViKelNRNqvdutHpeV6f2bUZ2GC5q82lvR6++JTjfXOa0AHQ bCs+4qGp4nFdj7mPhQTTbYe1HxzRJTMb9Uy2SYegedgmvZnfhYbQ0FFep0dq 2PqG4M0kcf2JE5dWvYEIX3rTuGQpj25Kgifo/7mpQf4Dehkv3g== "], "Angstroms", {{1}, {2}}]]], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], ",", RowBox[{ TemplateBox[{"\"hydrocortisone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Hydrocortisone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Hydrocortisone\\\"]\"", "\"chemical\""}, "Entity"], "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Molecule", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFVXs01GkYnss2KE0ywvxKfs0aXRRjUi22/d5cS+XSRahVclmHSEqli5SK cJLQbUMt2hRtTVK28o1EW0ukTC6lUk2pjGHMGGbHLLXse853vvP88b7v857v fZ5v2sbNK4JpFAoldOgM3wv7T2vruZJwuXG347JrGnQqUj9BuIuEhWOf50Xd pcAV1ze7DCxZEGnlxRgDvWgEdx96uKriogJFavdszKdygL+z5tTcHBrwFDZL 01kcuBOku7ehXoPMbL0EFT9xQHRkgt2OmzQQm2eeueLJAZrTw1dFVAqY7Rrj Eb2HC65uosR9Hv1IHHBeZNNlBjX7FuO9Jgq0zWWGsYGOOQR+rl1eXdmPioqb 1m/3MIf4m3Cg/YESlddcOuLbRgFBXlLsPwdpwjReV/41ezrMW+dskDqLKpRR JbXhPlQY5ChYS/zowvvB/I7KG3SIbxVcadJQhSq7qMdJx01AXtaSrA5+i0bw pFS3T9/ZNOO/9R78eauYBP2CuxVG5p3oS/t8QjiZANW6iKpBQfco1nXhxtDO fMHluYTVy3zD0fwRPFK/u9fN93DTNCiqa/T+YnUbfcoS6G5ZxoFJ9U5N0t4+ NNnqpRmDyoKvPBq+YJdSmfqZUh/4q3mzClka3PghzEJxkgk3fIcrNo7y00k2 DZT4iXHWM51QzmwCllhqpqkVg9j69CzjrExDOPyDqCqihC6sK/fKtl2qD9kN 8t4pb9W4sydc+91pJuzLTfG32k4Tfk2LYYI3c44gu4sufPV6XEYhTQucUjZ9 UBV+xmlqWnD7HA5sKacuKG7tQ86WG0s0YRwoe5MYa8NUIu/cy8VNpmbA2J/l mLKpG608Me1oTDcDBp/t7DC31uAylSZ8UwkDrq8e59GydhB38hyvxllqAXeW rMKWThHmccWVWXkkzK1rTJ0TTR3dv3qRXWJvmhKZRd1o00s0hwVPhSbvKEr0 dV2UJv+9Rz/6Nv//WC5Z3DYmhwTdaseAopAOfJ7vfDL8LgkMd1UQz+MtLt2d G2Ndpw9ezkWVrxifcHw78ayFz4ICnk2zdU4Xfvk808V9MwsYDTdiHW3LkK/8 glbCb/rgEOeSa5VThnLEx9WFkiF+dpw9/LpudCI5ke6YxIIZUalwgCVBxxcV lx46ToDx2LqtAukgPvVLCBtXsWHXCqt6V/UgFpj3X5iaSMA8G0orXqPGG6Jo DZTHbNgqbJeZBqrxk3HOJ2/uJsDT39qhtlyFp8fmJDuI2LDJ8oSR8i8V7pEe S/SMIiAiaWNhC3cAS/bbOR5sY0Pw2SX29ZYDWF/0YkdHEAHJggy9j6lKXJos UlWJ2eA/Vu1/MVOJ+bdnhB7wJaDgxf0dcpkCx2VEl2h1sWHNzqsH4gcU2Ovc Np/J7gRUMBRttLVy7HyWGbGkjw0e4sALPhvkeMsh4eISBwLaeNNd9O7J8PiC S9wUDRvcVhk94lXLcHqYru3yBQQM+PkUm8zswY3FLm01WgQ43HvUqT27B1/1 8JkptiDA6NARA4tjUny2tP0EU48Ae17cxDfpUlxvk8/eRxIQ4h/TFyXpxEE4 zsPTmIDQHwPDors6sVNRtHdotykYr8Kme94MoIPX0lZy/UhwI/PWL3+pQlNv ZussZJKwd1HzGEFYP2I+mp5tGERC8xrR/KOLBxBhTPtY9T0J7Zayzx9kfehU OxZrRZIQkqbDrLuuRIaxIdXutiS4ThnfYLJXgTiqNbz+HSTIq398P8G0D+m3 PMp/7k5Csc70WysZclTEksZ+2k9CwuDmO57JcjTB3iphw1C/iX2QcyRNhhbM TqpsTRnC8/My0uUyNO5sRkBHLAkx7/wOYuMeVOFEjq/NIiE3QhTWsKEHaan7 UHQaCa1PtoXJz0vR0p9veZfnkjCnQMeBVSNFdP91U1X5JMTHmZz39pagxhjP c38UkrCzLJZ/MVKCpuwJ4K/WI6G2ZjjUo/494l8WiYbNj404I3qHGLOTmmPl XEiPG3agAUT5FjC/1t79STp91C9H9PWr2OT3j9osMJsRl1oWXoZYAZVPLd6T YDDcKJM2qt8PV7jvEnJU6O2QXa59bQ6bpcMfiAL9C6dnHMo= "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11, 12}, {13, 14}, {15, 16}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{17, 18}, {17, 19}, {17, 20}, {18, 21}, {21, 22}, {22, 23}, {19, 24}, {19, 25}, {20, 23}, {26, 27}, { 26, 28}, {29, 24}, {30, 31}, {27, 31}, {32, 33}, {27, 34}, {28, 35}, {6, 36}, {8, 37}, {25, 38}, {35, 39}, {34, 39}, {14, 40}, {16, 41}, {10, 38}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 42}, {4, 43}, {12, 44}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{17, 45, 46}]}, { GrayLevel[0], PolygonBox[{18, 47, 48}]}, { GrayLevel[0], PolygonBox[{22, 49, 50}]}, { GrayLevel[0], PolygonBox[{26, 51, 52}]}, { GrayLevel[0], PolygonBox[{23, 53, 54}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{55, 56}, {57, 58}, {59, 60}, {61, 62}, {63, 64}, {65, 66}, {67, 68}, {69, 70}, {71, 72}, {73, 74}, { 75, 76}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{77, 78}, {79, 80}, {81, 82}, {83, 84}, {85, 86}, {87, 88}, {89, 90}, {91, 92}, {93, 94}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[95, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[96, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[97, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[98, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[99, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[24, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[30, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[100, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[31, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[101, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "22"], Annotation[#, 22, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[35, 0.2], "23"], Annotation[#, 23, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[34, 0.2], "24"], Annotation[#, 24, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[39, 0.2], "25"], Annotation[#, 25, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[38, 0.2], "26"], Annotation[#, 26, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[102, 0.2], "49"], Annotation[#, 49, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[103, 0.2], "52"], Annotation[#, 52, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[104, 0.2], "56"], Annotation[#, 56, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.03, 0.}, {0., 0.03}}, { 7.930443190934714, 1.6189628986925453`}}, {{{0.03, 0.}, { 0., 0.03}}, {4.693543190934713, 0.8626628986925453}}, {{{ 0.03, 0.}, {0., 0.03}}, {8.945043190934713, 2.2484628986925452`}}, {{{0.03, 0.}, {0., 0.03}}, { 10.770743190934715`, 1.4318628986925452`}}, {{{0.03, 0.}, {0., 0.03}}, { 1.8985431909347137`, -2.689737101307455}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.03, 0.}, {0., 0.03}}, {8.354347985, 2.0801269999999996`}}, {{{0.03, 0.}, {0., 0.03}}, { 4.701747985, 1.4838270000000002`}}, {{{0.03, 0.}, {0., 0.03}}, {11.344947985000001`, 1.179827}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "21"], SubscriptBox["\"H\"", "30"], SubscriptBox["\"O\"", "5"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["56", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["59", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFVXs01GkYnss2KE0ywvxKfs0aXRRjUi22/d5cS+XSRahVclmHSEqli5SK cJLQbUMt2hRtTVK28o1EW0ukTC6lUk2pjGHMGGbHLLXse853vvP88b7v857v fZ5v2sbNK4JpFAoldOgM3wv7T2vruZJwuXG347JrGnQqUj9BuIuEhWOf50Xd pcAV1ze7DCxZEGnlxRgDvWgEdx96uKriogJFavdszKdygL+z5tTcHBrwFDZL 01kcuBOku7ehXoPMbL0EFT9xQHRkgt2OmzQQm2eeueLJAZrTw1dFVAqY7Rrj Eb2HC65uosR9Hv1IHHBeZNNlBjX7FuO9Jgq0zWWGsYGOOQR+rl1eXdmPioqb 1m/3MIf4m3Cg/YESlddcOuLbRgFBXlLsPwdpwjReV/41ezrMW+dskDqLKpRR JbXhPlQY5ChYS/zowvvB/I7KG3SIbxVcadJQhSq7qMdJx01AXtaSrA5+i0bw pFS3T9/ZNOO/9R78eauYBP2CuxVG5p3oS/t8QjiZANW6iKpBQfco1nXhxtDO fMHluYTVy3zD0fwRPFK/u9fN93DTNCiqa/T+YnUbfcoS6G5ZxoFJ9U5N0t4+ NNnqpRmDyoKvPBq+YJdSmfqZUh/4q3mzClka3PghzEJxkgk3fIcrNo7y00k2 DZT4iXHWM51QzmwCllhqpqkVg9j69CzjrExDOPyDqCqihC6sK/fKtl2qD9kN 8t4pb9W4sydc+91pJuzLTfG32k4Tfk2LYYI3c44gu4sufPV6XEYhTQucUjZ9 UBV+xmlqWnD7HA5sKacuKG7tQ86WG0s0YRwoe5MYa8NUIu/cy8VNpmbA2J/l mLKpG608Me1oTDcDBp/t7DC31uAylSZ8UwkDrq8e59GydhB38hyvxllqAXeW rMKWThHmccWVWXkkzK1rTJ0TTR3dv3qRXWJvmhKZRd1o00s0hwVPhSbvKEr0 dV2UJv+9Rz/6Nv//WC5Z3DYmhwTdaseAopAOfJ7vfDL8LgkMd1UQz+MtLt2d G2Ndpw9ezkWVrxifcHw78ayFz4ICnk2zdU4Xfvk808V9MwsYDTdiHW3LkK/8 glbCb/rgEOeSa5VThnLEx9WFkiF+dpw9/LpudCI5ke6YxIIZUalwgCVBxxcV lx46ToDx2LqtAukgPvVLCBtXsWHXCqt6V/UgFpj3X5iaSMA8G0orXqPGG6Jo DZTHbNgqbJeZBqrxk3HOJ2/uJsDT39qhtlyFp8fmJDuI2LDJ8oSR8i8V7pEe S/SMIiAiaWNhC3cAS/bbOR5sY0Pw2SX29ZYDWF/0YkdHEAHJggy9j6lKXJos UlWJ2eA/Vu1/MVOJ+bdnhB7wJaDgxf0dcpkCx2VEl2h1sWHNzqsH4gcU2Ovc Np/J7gRUMBRttLVy7HyWGbGkjw0e4sALPhvkeMsh4eISBwLaeNNd9O7J8PiC S9wUDRvcVhk94lXLcHqYru3yBQQM+PkUm8zswY3FLm01WgQ43HvUqT27B1/1 8JkptiDA6NARA4tjUny2tP0EU48Ae17cxDfpUlxvk8/eRxIQ4h/TFyXpxEE4 zsPTmIDQHwPDors6sVNRtHdotykYr8Kme94MoIPX0lZy/UhwI/PWL3+pQlNv ZussZJKwd1HzGEFYP2I+mp5tGERC8xrR/KOLBxBhTPtY9T0J7Zayzx9kfehU OxZrRZIQkqbDrLuuRIaxIdXutiS4ThnfYLJXgTiqNbz+HSTIq398P8G0D+m3 PMp/7k5Csc70WysZclTEksZ+2k9CwuDmO57JcjTB3iphw1C/iX2QcyRNhhbM TqpsTRnC8/My0uUyNO5sRkBHLAkx7/wOYuMeVOFEjq/NIiE3QhTWsKEHaan7 UHQaCa1PtoXJz0vR0p9veZfnkjCnQMeBVSNFdP91U1X5JMTHmZz39pagxhjP c38UkrCzLJZ/MVKCpuwJ4K/WI6G2ZjjUo/494l8WiYbNj404I3qHGLOTmmPl XEiPG3agAUT5FjC/1t79STp91C9H9PWr2OT3j9osMJsRl1oWXoZYAZVPLd6T YDDcKJM2qt8PV7jvEnJU6O2QXa59bQ6bpcMfiAL9C6dnHMo= "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11, 12}, {13, 14}, {15, 16}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{17, 18}, {17, 19}, {17, 20}, {18, 21}, {21, 22}, {22, 23}, {19, 24}, {19, 25}, {20, 23}, {26, 27}, { 26, 28}, {29, 24}, {30, 31}, {27, 31}, {32, 33}, {27, 34}, {28, 35}, {6, 36}, {8, 37}, {25, 38}, {35, 39}, {34, 39}, {14, 40}, {16, 41}, {10, 38}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 42}, {4, 43}, {12, 44}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{17, 45, 46}]}, { GrayLevel[0], PolygonBox[{18, 47, 48}]}, { GrayLevel[0], PolygonBox[{22, 49, 50}]}, { GrayLevel[0], PolygonBox[{26, 51, 52}]}, { GrayLevel[0], PolygonBox[{23, 53, 54}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{55, 56}, {57, 58}, {59, 60}, {61, 62}, {63, 64}, {65, 66}, {67, 68}, {69, 70}, {71, 72}, {73, 74}, { 75, 76}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{77, 78}, {79, 80}, {81, 82}, {83, 84}, {85, 86}, {87, 88}, {89, 90}, {91, 92}, {93, 94}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[95, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[96, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[97, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[98, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[99, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[19, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[20, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[29, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[24, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[30, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[100, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[31, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[101, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "22"], Annotation[#, 22, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[35, 0.2], "23"], Annotation[#, 23, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[34, 0.2], "24"], Annotation[#, 24, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[39, 0.2], "25"], Annotation[#, 25, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[38, 0.2], "26"], Annotation[#, 26, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[102, 0.2], "49"], Annotation[#, 49, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[103, 0.2], "52"], Annotation[#, 52, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[104, 0.2], "56"], Annotation[#, 56, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.03, 0.}, {0., 0.03}}, { 7.930443190934714, 1.6189628986925453`}}, {{{0.03, 0.}, { 0., 0.03}}, {4.693543190934713, 0.8626628986925453}}, {{{ 0.03, 0.}, {0., 0.03}}, {8.945043190934713, 2.2484628986925452`}}, {{{0.03, 0.}, {0., 0.03}}, { 10.770743190934715`, 1.4318628986925452`}}, {{{0.03, 0.}, {0., 0.03}}, { 1.8985431909347137`, -2.689737101307455}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.03, 0.}, {0., 0.03}}, {8.354347985, 2.0801269999999996`}}, {{{0.03, 0.}, {0., 0.03}}, { 4.701747985, 1.4838270000000002`}}, {{{0.03, 0.}, {0., 0.03}}, {11.344947985000001`, 1.179827}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "21"], SubscriptBox["\"H\"", "30"], SubscriptBox["\"O\"", "5"]}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["56", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["59", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}, { RowBox[{ TagBox["\"SMILES: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"C[C@]12C[C@H](O)[C@H]3[C@@H](CCC4=CC(=O)CC[C@@]43C)[C@@\ H]1CC[C@]2(O)C(=O)CO\"", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"InChIKey: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"JYGXADMDTFJGBT-VWUMJDOOSA-N\"", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Molecule[{ Atom["O"], Atom["O"], Atom["O"], Atom["O"], Atom["O"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"]}, { Bond[{1, 10}, "Single"], Bond[{1, 49}, "Single"], Bond[{2, 13}, "Single"], Bond[{2, 52}, "Single"], Bond[{3, 22}, "Double"], Bond[{4, 26}, "Single"], Bond[{4, 56}, "Single"], Bond[{5, 25}, "Double"], Bond[{6, 7}, "Single"], Bond[{6, 10}, "Single"], Bond[{6, 11}, "Single"], Bond[{6, 17}, "Single"], Bond[{7, 8}, "Single"], Bond[{7, 14}, "Single"], Bond[{7, 27}, "Single"], Bond[{8, 9}, "Single"], Bond[{8, 16}, "Single"], Bond[{8, 28}, "Single"], Bond[{9, 12}, "Single"], Bond[{9, 13}, "Single"], Bond[{9, 29}, "Single"], Bond[{10, 15}, "Single"], Bond[{10, 22}, "Single"], Bond[{11, 13}, "Single"], Bond[{11, 30}, "Single"], Bond[{11, 31}, "Single"], Bond[{12, 18}, "Single"], Bond[{12, 20}, "Single"], Bond[{12, 21}, "Single"], Bond[{13, 32}, "Single"], Bond[{14, 15}, "Single"], Bond[{14, 33}, "Single"], Bond[{14, 34}, "Single"], Bond[{15, 35}, "Single"], Bond[{15, 36}, "Single"], Bond[{16, 19}, "Single"], Bond[{16, 37}, "Single"], Bond[{16, 38}, "Single"], Bond[{17, 39}, "Single"], Bond[{17, 40}, "Single"], Bond[{17, 41}, "Single"], Bond[{18, 19}, "Single"], Bond[{18, 24}, "Double"], Bond[{19, 42}, "Single"], Bond[{19, 43}, "Single"], Bond[{20, 23}, "Single"], Bond[{20, 44}, "Single"], Bond[{20, 45}, "Single"], Bond[{21, 46}, "Single"], Bond[{21, 47}, "Single"], Bond[{21, 48}, "Single"], Bond[{22, 26}, "Single"], Bond[{23, 25}, "Single"], Bond[{23, 50}, "Single"], Bond[{23, 51}, "Single"], Bond[{24, 25}, "Single"], Bond[{24, 53}, "Single"], Bond[{26, 54}, "Single"], Bond[{26, 55}, "Single"]}, StereochemistryElements -> {<| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 6, "Direction" -> "Clockwise", "FiducialAtom" -> 10, "Ligands" -> {17, 11, 7}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 7, "Direction" -> "Counterclockwise", "FiducialAtom" -> 8, "Ligands" -> {14, 6, 27}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 8, "Direction" -> "Clockwise", "FiducialAtom" -> 16, "Ligands" -> {7, 9, 28}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 9, "Direction" -> "Clockwise", "FiducialAtom" -> 13, "Ligands" -> {8, 12, 29}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 10, "Direction" -> "Counterclockwise", "FiducialAtom" -> 15, "Ligands" -> {1, 22, 6}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 12, "Direction" -> "Counterclockwise", "FiducialAtom" -> 21, "Ligands" -> {20, 18, 9}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 13, "Direction" -> "Counterclockwise", "FiducialAtom" -> 11, "Ligands" -> {2, 9, 32}|>}, $CellContext`AtomDiagramCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGCwAGIQLVOTaBQqoOBw9gwI/LVf5/6wSkRP2OF3TO7Rf5s+ 2mu3i908J67kEManu2nue2aHUpXp/yfsU3WYWPfbquDcL3sGCHAwO2vtd3Ei 8wGQaMckWYevO291/U19bA/ji/Z4vWIxubn/zSMzqQPSUg48bqqlTLPe7N83 X0r/7hIxuPxpgeO7dqxVcBBauveguNpbe5h6mHuk9e+qsDEC3Qcy9xJCP8w+ mH7OLvnkd1HP9n/84hXZdkPRYc35q2Fv9HfbT73CmaGkI+Xgqfdf8e+3f/th 7oOY/9Pebdvnv1d+CDkYhRporRT+v99wppbE1CliDm0W147mbmE+cPV5lva3 6XwOWyNBNl7dP/uZ7PIXHMIOKhp1PTuzd9q/mrqJp9BHyUH0gsuND1++299/ wD15JRO7g0t3zvPfK1/vB1tbygcLzwPB0xT7Sj+yOfy7UvFSzfD//rD5q9fe kFdxYGuc6tyd89E+Y/Or4q1XZR1A0WSg9WE/MJBj/jnLODzQnbDgh+Hn/TPy hJoPnJJw+LUgHaRy/72tLTUXNks7KHtVN+v7/LS/pwI0qVkCzoeF17N1qk+a 5322t6uMWGGqq+BQnDHxbY39l/2gUL13QNGhqKvvySf5D/vvZDDkNx5RcpB5 DYqIy3D+9An8VWarH9ir7PzT/mW2jIOdzpVZz2T/7nf8mHwmllvaYVVCSJC6 AsuBRrVDbcvFpeHhCwvv4utCnxzPMzrsVufn3sqmAJefdLreY/9fEYeO5Ng7 bs3sB06WgVws4bCxCORA9gOTgL7/9VbAAWzd8gP2Hyxc3YsquR0st5wAqjxk b7M3CBiiAg5g7y7bZQ8M9I+XeIUdwO5meW4v9vv0u5PNotDw3mEvnHj4svZT BQcRUMKfwuQADv94VodTh53WZt67uB+YSDmk5ZgcroKse/FuPyx/PAeH32/7 arBGPgcf807HhKccB8DmM6s6cF1fXGDL9dS+rFCa90GussPm6k8bArIf2T8G hmL0AzWH/A+tJ0MOfrMHAHi+uGc= "], AtomCoordinates -> StructuredArray[QuantityArray, {56, 3}, StructuredArray`StructuredData[QuantityArray, CompressedData[" 1:eJwtk3s41FkYx2fMDI17QjatrltsLmUjxTonVGhz6dmKEikSSVIS1ZOyua02 l1CpcatoQy3VIJyzrcu2U01u22UzwwzNuJthxmVm7P6GPc/znr/e9znv+X4/ 3xWHT+4OViGRSHZEUYj6ifHmV7aBLnQ1XH/5QMwo4qxWvZztLAcLo5fFd6zp R86Owo9lcTQc+Ta5jdMtBi0nNsYzMQ06bBhs8vL4DKCNf61bmhYsXlUjTzpD hofOepoYhi2Al9JqjtOn1WE4fbogZNwQV6IhhoO5FMTcKSI65YhvuwQfWK4A ngenzdkJ3aghLPillUQIkkr2/WXdOAGGIhgD6XkCYBfiEnpyrBwEjGQVk7yf Ik97uY1vcQ+4ur+9jq/fh5i5G7cPlvajz7V5JVt6haiq7Z7+mfOdiBG/5mXi Wjp8Q76yOU5eAZqub4ixWCEFq1tZpjkHhMCAZVGe2DiMbr7ISdeJkwPdfuZj SogK5qgtf5aSJUTuZkJpZvMAyozt1VFl8FGQPdfzWu4EYhVuez6uEAGh7KGo bRcVGlH3altUikGeXQ230FSARvY7EYppwVKSEbugcBB4zP2PBVxSchwYOdfB roaPX5onhGC/pOZT6kUyPr5Omtu1iAydlw7ybJfMoMbBGdqLQBb6d4VCGn2I glN9rRKjiuoBmaNCT80n4fDbSgXHUQ5b7FBtzwIiQ1cv+U01LPM70TRrrY69 PZ4+ShezkWvUtE4/kw0Gsis1T5XRsLFVF+EsGTvG+pTavBlHk6oBN3/IVoOv Bvay3UaHgd+s88zwIBV+1/ibZQRfD38yqe9xjGKi68lmGS5WrWhWGt19J0MT W5fxrr1e1Q+c2Ec7BQMqOOj1wZ1/qi3C0f5Hcks5ArD0QqD1nvVTiHsq9Zfe qAXQUMYaeeVMgdxujayHVyiwwMCosrZzBMxxUTUFWiy9622e9AHx+bzZoR1f 0B7+/bzG5RIQUOumqbKOjaJ6lGi2o/xH5R8Czk4h8+CveD6Lh1FMQ/4Sqy4R 8P+8nXJOQ4GWXR30rjZRgS3TeV7J8XzArNnwfWAKQhffVflKaijwuYFyEQny yqy4daFKiC6f3n5DqioD835SILzHbdC+Q4ZhdWeyjKhj81zMUKHXtdwIvQQ+ qCBe9zSZQXN56dSF1Y8pgjRTOXA13lHWVNIDCJi3ivgL4Tqj7A76sTYwh+fX 7eiBaW6zVV0RkCtxOawAWBmDDhXss5jZSuIMgVtBveZDoe2g6OmmqZdBVBzX YrYlkzUJiOuSK5pCqmNKg8dQ5NjVVz/+/i84tjL8XNx9Km6Q8evDgt8B0YS7 b6IdHdbR9PRB8xRyuJ8guaTdg/bsXluQ8kSKin0iQm1WD4HXui211Vra+BlB R1bYCDLP74uNjBEiUx2NZw9i1bEyLiX71LFLsX3yXbNRdMpYq9sifQwQYSSA UMObHqw1F8V/Aal9OXudeTzwcNE7lw+RGpiABm9eRcaM0ZLmnZtI2J1wLcmQ /j9vNPzWVjn5EZWHcggiFOj0ez3xVjYN315gzPA3m0a7DNLcB6hacLfbXWKF SdQnXtZ2kkuBjU7KCX2c4/xzuEA2hmQZKwn0uGiuz8kAm1Aq378AH4Bfz0FL nj0XkGXCjmy2EMUz4RVeixr2aM3wm/2DBJ/cCE4+0qWJ+wIL/944KgHhc3lT xxk6cbaPHFVhyFHlocHb3yqNmwSKpIl/3m/VhfP606DNqN22HWIqtFQGUkKe 55miCwUV3/QmmKjD/wAHHLrx "], "Angstroms", {{1}, {2}}]]], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{ TemplateBox[{"\"cholesterol\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Cholesterol\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Cholesterol\\\"]\"", "\"chemical\""}, "Entity"], "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Molecule", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFlgs8VNsex8cwxsx4N5uRHfaQJI86RyW67X+5kR6ESlIkx5G83TiOOZdc qfSgzhE9RSmaOnJ8KuXRXrp5lE6PQ8kjlEfyiPGY8XaHe7A+n/3Zn+/ea/3X f639+/3XJg4EO/vQaTRaovSavms9tto+YSYLtt3i6C/XFdGhxtCTiQZ02PQp ipvDVEQ+Wp93a+brQlJrv+5fwS3ULNuFjah8zR+haNMNEdA2/dqzitpZkp3p ADiEG6ROnY0unGODx+PHB+tp6J9+wX3xz3lz4zOGV7TnLMZgf4SjjkYnDdGL GOpcTz54Lq1ULS9oJWf7z85/L9nnhPciDKx+rYzZRLLQDucl6QkhapC7uDUu 7c/huXzsksXynhcmKcPpx538v+cTUdppHksrt+NQOpkn6F/OQpd+unJd/zEP pFFyP/kpoRsy0gR2GMBxjdpXEpcu0ih/ZVJSGQZBj3Vi264poD8CzDKTbvPA xGN7vckQB8k00lknPdVAEt58Re2mEsq72ptVtoUDYScTW/uv0dDMOqw4oCfd HaYDC90sLtE0HDAAnedtZGbTOGknG8kx6DCEWs/pDaBBgb0ifdnxJXDGqEfp SS4TFiJ3vfUrDGfjw96kp0NGvyyFmhsh/2C7siBKR3eDhrMMQLKCo8oZDmqX Rn2irActq6ZH1pJT0mXmbtedY+PGWP1tuQQYuMnJ6qrQ0HsiuiHvNQEbI1qZ R9QnKJ19Ai33Ej4UWrd6Hcjup8z8T+sDVx+qspWfBJf3UVkibpBZPg5a+h54 hSkLJW3ObvXt1IbQOmY9bsFCNu7GDc/u4MAJivB09FJAdox1mln92uC4XiNe wVcBNT0jN7un4zD5KPH6+2QmmqKq7NtHtcEs28B88CITCcx2PhIl49Anm9W2 r0Ie5Uf5/bJYFgdFle9rm17KI80LhwxPJODw2YEyahtjoOCVUzk/cHDoDF8f VznFQHkyR5J1onGovljjH2DOQIZ9yZ9uLMDhRYOjaf53DOTof57+IAyHstbe nIEDcuij0Jjboo1Dto1HzXUfOdRVLQzZ4ovDI3OF/qgUWXTeB9nyDXA4JgyI Tbwgi46vQ42f3HG4E6W3kv6Cjrbp7frZywQHHzXBsqhKOtLPfrc1Uqqvq6WW kQkTMohR33Un3QIHm8iEdz6TMohS6ypQ3ohDkqpToeoKGVR8PraxaS0ORFNq jJOUp+Wk6z2vd+Hrd7u6zbXmuKP27ujeQB481TR0Ydxop9Jn/KM1x9KP7X/p Jx6IN7sds3z/lUohEsNDtbXmeNqFNbE8WBp9+rE/q4c6vblTzkJNa46Znhe2 Yqd5kPNhWpB9VOy/bKVO0ppjtVVri51TeLDpbz/N2Gd8nrWVmk3PpvPgM+e3 2/9xGqACZ4w2zzM2FfJAcNPEBu8apLy/7dmwrmOelxcuUeE84AGXLGt4cFRM SYvNW1rjPM/4nprNb5hygAVe/62a56YnYxXLyrng4RtWL/dWRHlnfGVKfsOA H1Z51aVGyotOrbn2hguhJlew7kMDlDntWXvvCQwWrXbzvBgyQLULFgrV67hw VFTqWCU3RI16pJV2/BsD3ni7XhNriDpUd3vhsRYupD7sTShIE1NlxZGZn8Iw WFBy+LPBDTHVY7nm1Eg3F4QCrWcZlsPUOdwlrs4XA+Vj9MxDa4ep0NSKsQAx F4rBZvLEXyPUPoHpgaq9GLC2nPXJfTdCDQ65BjRPceENI9AyJGCMMqpjrn/p hIGcqs4ScdAYFbnjS4MLC4PWFylhrvIT1KDlZ91SWwxo7+50WCtMUGN5EdvK 1TEQJ6G769InKSq1aLLYGoPRi2uEsRmTVIya/BMrHIN44/AB9UU0dEqc8vHh cgwE91oeeEuZHnLebLoeKyudPCsvrce7doYW3ZPy8DlhyjQT4ysslFv0gIgq TDtiMURmHIw0sTWX1v/Wht+TXSUk++A3TIVFgMNCz8QxnUFS1Tj9ZdY2Au43 M8bdOGJysEooUZH2FxTQoyNYA+SRrvIAVgABcQ1mm3WpQbKR9K1V3UlA9p5b gaIBEfntbq+i/0kCnD+4XmgNGyDL7+gXqgkIqB613xfQ2EfuC9L8/WU2Afzq I+23DfvJXM3mK+oZBMiuqr/46lwv+dKc3GZWToDo9W2L4Lo+8nLclegFUt4b wf/52Y89pLXox56kNgKiU28y/PBe8mjv7v3cHgIePvTbXWDdRQrzEs+IZPmA J0kyBuK6yUB3bAO2gA+qktzVuapfSa3DD01d+HwoOGa/LrrrK+la/lZfYw0f /FYPa9xqaycTVjb+eR/44BZ9uU7B5Qsp3JgQuuYFA1wrZAPrdymhp5sumb+Y lAMWKjF2G+CgkdE+SXOwPJwVymRM1iuiksuHuzKLGNDRXH2/7DoH2efujj6B MeH56alqwksRUd8csmKi5KFcpmOdhTMHpfogueWFTKAHTyhsbOeg4vVLvfdY MuEWf6wiQ0Z6Piw0OlWzXwGsncbWHvTnoKJkWd2VYibE2yi7qPzBRqveJKnF yLMg/PuRkFN9bFTw5WOdyn0F8PmB+PjLfjY6Gi9JNbzLgnuYJDMnnI0eWT1K 6QxlgU28hW+nChtVWXnqvHJiQ4dk8MPbURbKP/Orc6k5G/i37ESuFAvp95Vl hkvYQNT1Kw7FsNCD5gDl9B42yJTvEZQGsVBVUQt3kb0c1Fj0Wm60U5r7/5g9 v4jcsIPnTDFA3WlrTapFlNd3O5cbS/UWZ771FttWTNL+36DgjHyfRgUb/Q/R HiEI "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{3, 4}, {3, 5}, {3, 6}, {4, 7}, {7, 8}, {8, 9}, { 5, 10}, {6, 11}, {9, 12}, {9, 13}, {14, 15}, {16, 17}, { 10, 18}, {12, 17}, {19, 20}, {12, 21}, {13, 22}, {21, 23}, {22, 23}, {18, 24}, {24, 25}, {25, 26}, {26, 27}, { 26, 28}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 29}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{3, 30, 31}]}, { GrayLevel[0], PolygonBox[{4, 32, 33}]}, { GrayLevel[0], PolygonBox[{5, 34, 35}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{36, 37}, {38, 39}, {40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, { 56, 57}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{58, 59}, {60, 61}, {62, 63}, {64, 65}, {66, 67}, {68, 69}, {70, 71}, {72, 73}, {74, 75}, {76, 77}, {8, 8}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{78, 79}, {80, 81}, {82, 83}, {84, 85}, {86, 87}, {88, 89}, {90, 91}, {92, 93}, {94, 95}, {96, 97}, { 98, 99}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{100, 101}, {102, 103}, {104, 105}, {106, 107}, { 108, 109}, {110, 111}, {112, 113}, {114, 115}, {116, 117}, {118, 119}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{120, 121}, {122, 123}, {124, 125}, {126, 127}, { 128, 129}, {130, 131}, {132, 133}, {134, 135}, {136, 137}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[138, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[3, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[4, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[7, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[8, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[5, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[6, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[139, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[140, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "22"], Annotation[#, 22, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[141, 0.2], "23"], Annotation[#, 23, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[24, 0.2], "24"], Annotation[#, 24, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "25"], Annotation[#, 25, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "26"], Annotation[#, 26, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "27"], Annotation[#, 27, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "28"], Annotation[#, 28, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[142, 0.2], "65"], Annotation[#, 65, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.030000000000000002`, 0.}, {0., 0.030000000000000002`}}, { 2.4342431909347133`, -3.903337101307455}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.030000000000000002`, 0.}, {0., 0.030000000000000002`}}, { 1.906747985, -3.5900730000000007`}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "27"], SubscriptBox["\"H\"", "46"], "\"O\""}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["74", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["77", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ GraphicsComplexBox[CompressedData[" 1:eJxFlgs8VNsex8cwxsx4N5uRHfaQJI86RyW67X+5kR6ESlIkx5G83TiOOZdc qfSgzhE9RSmaOnJ8KuXRXrp5lE6PQ8kjlEfyiPGY8XaHe7A+n/3Zn+/ea/3X f639+/3XJg4EO/vQaTRaovSavms9tto+YSYLtt3i6C/XFdGhxtCTiQZ02PQp ipvDVEQ+Wp93a+brQlJrv+5fwS3ULNuFjah8zR+haNMNEdA2/dqzitpZkp3p ADiEG6ROnY0unGODx+PHB+tp6J9+wX3xz3lz4zOGV7TnLMZgf4SjjkYnDdGL GOpcTz54Lq1ULS9oJWf7z85/L9nnhPciDKx+rYzZRLLQDucl6QkhapC7uDUu 7c/huXzsksXynhcmKcPpx538v+cTUdppHksrt+NQOpkn6F/OQpd+unJd/zEP pFFyP/kpoRsy0gR2GMBxjdpXEpcu0ih/ZVJSGQZBj3Vi264poD8CzDKTbvPA xGN7vckQB8k00lknPdVAEt58Re2mEsq72ptVtoUDYScTW/uv0dDMOqw4oCfd HaYDC90sLtE0HDAAnedtZGbTOGknG8kx6DCEWs/pDaBBgb0ifdnxJXDGqEfp SS4TFiJ3vfUrDGfjw96kp0NGvyyFmhsh/2C7siBKR3eDhrMMQLKCo8oZDmqX Rn2irActq6ZH1pJT0mXmbtedY+PGWP1tuQQYuMnJ6qrQ0HsiuiHvNQEbI1qZ R9QnKJ19Ai33Ej4UWrd6Hcjup8z8T+sDVx+qspWfBJf3UVkibpBZPg5a+h54 hSkLJW3ObvXt1IbQOmY9bsFCNu7GDc/u4MAJivB09FJAdox1mln92uC4XiNe wVcBNT0jN7un4zD5KPH6+2QmmqKq7NtHtcEs28B88CITCcx2PhIl49Anm9W2 r0Ie5Uf5/bJYFgdFle9rm17KI80LhwxPJODw2YEyahtjoOCVUzk/cHDoDF8f VznFQHkyR5J1onGovljjH2DOQIZ9yZ9uLMDhRYOjaf53DOTof57+IAyHstbe nIEDcuij0Jjboo1Dto1HzXUfOdRVLQzZ4ovDI3OF/qgUWXTeB9nyDXA4JgyI Tbwgi46vQ42f3HG4E6W3kv6Cjrbp7frZywQHHzXBsqhKOtLPfrc1Uqqvq6WW kQkTMohR33Un3QIHm8iEdz6TMohS6ypQ3ohDkqpToeoKGVR8PraxaS0ORFNq jJOUp+Wk6z2vd+Hrd7u6zbXmuKP27ujeQB481TR0Ydxop9Jn/KM1x9KP7X/p Jx6IN7sds3z/lUohEsNDtbXmeNqFNbE8WBp9+rE/q4c6vblTzkJNa46Znhe2 Yqd5kPNhWpB9VOy/bKVO0ppjtVVri51TeLDpbz/N2Gd8nrWVmk3PpvPgM+e3 2/9xGqACZ4w2zzM2FfJAcNPEBu8apLy/7dmwrmOelxcuUeE84AGXLGt4cFRM SYvNW1rjPM/4nprNb5hygAVe/62a56YnYxXLyrng4RtWL/dWRHlnfGVKfsOA H1Z51aVGyotOrbn2hguhJlew7kMDlDntWXvvCQwWrXbzvBgyQLULFgrV67hw VFTqWCU3RI16pJV2/BsD3ni7XhNriDpUd3vhsRYupD7sTShIE1NlxZGZn8Iw WFBy+LPBDTHVY7nm1Eg3F4QCrWcZlsPUOdwlrs4XA+Vj9MxDa4ep0NSKsQAx F4rBZvLEXyPUPoHpgaq9GLC2nPXJfTdCDQ65BjRPceENI9AyJGCMMqpjrn/p hIGcqs4ScdAYFbnjS4MLC4PWFylhrvIT1KDlZ91SWwxo7+50WCtMUGN5EdvK 1TEQJ6G769InKSq1aLLYGoPRi2uEsRmTVIya/BMrHIN44/AB9UU0dEqc8vHh cgwE91oeeEuZHnLebLoeKyudPCsvrce7doYW3ZPy8DlhyjQT4ysslFv0gIgq TDtiMURmHIw0sTWX1v/Wht+TXSUk++A3TIVFgMNCz8QxnUFS1Tj9ZdY2Au43 M8bdOGJysEooUZH2FxTQoyNYA+SRrvIAVgABcQ1mm3WpQbKR9K1V3UlA9p5b gaIBEfntbq+i/0kCnD+4XmgNGyDL7+gXqgkIqB613xfQ2EfuC9L8/WU2Afzq I+23DfvJXM3mK+oZBMiuqr/46lwv+dKc3GZWToDo9W2L4Lo+8nLclegFUt4b wf/52Y89pLXox56kNgKiU28y/PBe8mjv7v3cHgIePvTbXWDdRQrzEs+IZPmA J0kyBuK6yUB3bAO2gA+qktzVuapfSa3DD01d+HwoOGa/LrrrK+la/lZfYw0f /FYPa9xqaycTVjb+eR/44BZ9uU7B5Qsp3JgQuuYFA1wrZAPrdymhp5sumb+Y lAMWKjF2G+CgkdE+SXOwPJwVymRM1iuiksuHuzKLGNDRXH2/7DoH2efujj6B MeH56alqwksRUd8csmKi5KFcpmOdhTMHpfogueWFTKAHTyhsbOeg4vVLvfdY MuEWf6wiQ0Z6Piw0OlWzXwGsncbWHvTnoKJkWd2VYibE2yi7qPzBRqveJKnF yLMg/PuRkFN9bFTw5WOdyn0F8PmB+PjLfjY6Gi9JNbzLgnuYJDMnnI0eWT1K 6QxlgU28hW+nChtVWXnqvHJiQ4dk8MPbURbKP/Orc6k5G/i37ESuFAvp95Vl hkvYQNT1Kw7FsNCD5gDl9B42yJTvEZQGsVBVUQt3kb0c1Fj0Wm60U5r7/5g9 v4jcsIPnTDFA3WlrTapFlNd3O5cbS/UWZ771FttWTNL+36DgjHyfRgUb/Q/R HiEI "], {{}, { RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}}]}, { RGBColor[0.4, 0.4, 0.4], LineBox[{{3, 4}, {3, 5}, {3, 6}, {4, 7}, {7, 8}, {8, 9}, { 5, 10}, {6, 11}, {9, 12}, {9, 13}, {14, 15}, {16, 17}, { 10, 18}, {12, 17}, {19, 20}, {12, 21}, {13, 22}, {21, 23}, {22, 23}, {18, 24}, {24, 25}, {25, 26}, {26, 27}, { 26, 28}}]}, { RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 29}}]}, { GrayLevel[0], { GrayLevel[0], PolygonBox[{3, 30, 31}]}, { GrayLevel[0], PolygonBox[{4, 32, 33}]}, { GrayLevel[0], PolygonBox[{5, 34, 35}]}, { GrayLevel[0], { Thickness[Small], LineBox[{{36, 37}, {38, 39}, {40, 41}, {42, 43}, {44, 45}, {46, 47}, {48, 49}, {50, 51}, {52, 53}, {54, 55}, { 56, 57}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{58, 59}, {60, 61}, {62, 63}, {64, 65}, {66, 67}, {68, 69}, {70, 71}, {72, 73}, {74, 75}, {76, 77}, {8, 8}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{78, 79}, {80, 81}, {82, 83}, {84, 85}, {86, 87}, {88, 89}, {90, 91}, {92, 93}, {94, 95}, {96, 97}, { 98, 99}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{100, 101}, {102, 103}, {104, 105}, {106, 107}, { 108, 109}, {110, 111}, {112, 113}, {114, 115}, {116, 117}, {118, 119}}]}}, { GrayLevel[0], { Thickness[Small], LineBox[{{120, 121}, {122, 123}, {124, 125}, {126, 127}, { 128, 129}, {130, 131}, {132, 133}, {134, 135}, {136, 137}}]}}}, { Opacity[0], EdgeForm[None], TagBox[ TooltipBox[ DiskBox[138, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[3, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[4, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[7, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[8, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[5, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[6, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[9, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[14, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[11, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[15, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[16, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[10, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[139, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[12, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[13, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[17, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[140, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[21, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[22, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[18, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[23, 0.2], "22"], Annotation[#, 22, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[141, 0.2], "23"], Annotation[#, 23, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[24, 0.2], "24"], Annotation[#, 24, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[25, 0.2], "25"], Annotation[#, 25, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[26, 0.2], "26"], Annotation[#, 26, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[27, 0.2], "27"], Annotation[#, 27, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[28, 0.2], "28"], Annotation[#, 28, "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[142, 0.2], "65"], Annotation[#, 65, "Tooltip"]& ]}}], { GeometricTransformationBox[{ RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.030000000000000002`, 0.}, {0., 0.030000000000000002`}}, { 2.4342431909347133`, -3.903337101307455}}}], GeometricTransformationBox[{ RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, {1.24805, 8.71875}, { 4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, {1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{ 0.030000000000000002`, 0.}, {0., 0.030000000000000002`}}, { 1.906747985, -3.5900730000000007`}}}]}}, Axes -> False, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}, Frame -> True, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> Dynamic[{ UpTo[ 8.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])], UpTo[ 4.1 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], PlotRangePadding -> None], GridBox[{{ RowBox[{ TagBox["\"Formula: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ SubscriptBox["\"C\"", "27"], SubscriptBox["\"H\"", "46"], "\"O\""}, "RowDefault"], "SummaryItem"]}]}, { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Atoms: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["74", "SummaryItem"]}], "\" \"", RowBox[{ TagBox["\"Bonds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["77", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"]}, { RowBox[{ TagBox["\"SMILES: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"CC(C)CCC[C@@H](C)[C@H]1CC[C@H]2[C@@H]3CC=C4C[C@H](O)CC[\ C@@]4(C)[C@@H]3CC[C@@]21C\"", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"InChIKey: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"HVYWMOMLDIMFJA-MFYRMPRMSA-N\"", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Molecule[{ Atom["O"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["C"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"], Atom["H"]}, { Bond[{1, 22}, "Single"], Bond[{1, 65}, "Single"], Bond[{2, 3}, "Single"], Bond[{2, 6}, "Single"], Bond[{2, 7}, "Single"], Bond[{2, 14}, "Single"], Bond[{3, 4}, "Single"], Bond[{3, 9}, "Single"], Bond[{3, 29}, "Single"], Bond[{4, 5}, "Single"], Bond[{4, 12}, "Single"], Bond[{4, 30}, "Single"], Bond[{5, 8}, "Single"], Bond[{5, 10}, "Single"], Bond[{5, 31}, "Single"], Bond[{6, 11}, "Single"], Bond[{6, 13}, "Single"], Bond[{6, 32}, "Single"], Bond[{7, 10}, "Single"], Bond[{7, 33}, "Single"], Bond[{7, 34}, "Single"], Bond[{8, 15}, "Single"], Bond[{8, 16}, "Single"], Bond[{8, 18}, "Single"], Bond[{9, 11}, "Single"], Bond[{9, 35}, "Single"], Bond[{9, 36}, "Single"], Bond[{10, 37}, "Single"], Bond[{10, 38}, "Single"], Bond[{11, 39}, "Single"], Bond[{11, 40}, "Single"], Bond[{12, 17}, "Single"], Bond[{12, 41}, "Single"], Bond[{12, 42}, "Single"], Bond[{13, 21}, "Single"], Bond[{13, 23}, "Single"], Bond[{13, 43}, "Single"], Bond[{14, 44}, "Single"], Bond[{14, 45}, "Single"], Bond[{14, 46}, "Single"], Bond[{15, 17}, "Double"], Bond[{15, 19}, "Single"], Bond[{16, 20}, "Single"], Bond[{16, 47}, "Single"], Bond[{16, 48}, "Single"], Bond[{17, 49}, "Single"], Bond[{18, 50}, "Single"], Bond[{18, 51}, "Single"], Bond[{18, 52}, "Single"], Bond[{19, 22}, "Single"], Bond[{19, 53}, "Single"], Bond[{19, 54}, "Single"], Bond[{20, 22}, "Single"], Bond[{20, 55}, "Single"], Bond[{20, 56}, "Single"], Bond[{21, 24}, "Single"], Bond[{21, 57}, "Single"], Bond[{21, 58}, "Single"], Bond[{22, 59}, "Single"], Bond[{23, 60}, "Single"], Bond[{23, 61}, "Single"], Bond[{23, 62}, "Single"], Bond[{24, 25}, "Single"], Bond[{24, 63}, "Single"], Bond[{24, 64}, "Single"], Bond[{25, 26}, "Single"], Bond[{25, 66}, "Single"], Bond[{25, 67}, "Single"], Bond[{26, 27}, "Single"], Bond[{26, 28}, "Single"], Bond[{26, 68}, "Single"], Bond[{27, 69}, "Single"], Bond[{27, 70}, "Single"], Bond[{27, 71}, "Single"], Bond[{28, 72}, "Single"], Bond[{28, 73}, "Single"], Bond[{28, 74}, "Single"]}, StereochemistryElements -> {<| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 2, "Direction" -> "Counterclockwise", "FiducialAtom" -> 7, "Ligands" -> {14, 6, 3}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 3, "Direction" -> "Clockwise", "FiducialAtom" -> 9, "Ligands" -> {4, 2, 29}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 4, "Direction" -> "Counterclockwise", "FiducialAtom" -> 3, "Ligands" -> {12, 5, 30}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 5, "Direction" -> "Counterclockwise", "FiducialAtom" -> 8, "Ligands" -> {10, 4, 31}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 6, "Direction" -> "Clockwise", "FiducialAtom" -> 13, "Ligands" -> {11, 2, 32}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 8, "Direction" -> "Clockwise", "FiducialAtom" -> 16, "Ligands" -> {18, 5, 15}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 13, "Direction" -> "Clockwise", "FiducialAtom" -> 21, "Ligands" -> {23, 6, 43}|>, <| "StereoType" -> "Tetrahedral", "ChiralCenter" -> 22, "Direction" -> "Counterclockwise", "FiducialAtom" -> 19, "Ligands" -> {1, 20, 59}|>}, $CellContext`AtomDiagramCoordinates -> CompressedData[" 1:eJxFUwtQlFUU3gcPF1pYFllWZGF32V1YxHhkRiTeQ2BAEchTUmojo3Aag0Gx NJQSCWNExHQEBFJ5SFOTO+QDEP0vEO+JMEACmzBAJVDZXeQpUP9d3e3O/PPP uffce77vfN+RfJASlcRiMBhv0h/59zaMrhaFmsDAhinfLcFcnLRmJN7+mjPk j+mcf08ZpQxxcNqC9T/XFqjYxuqKcHAEWd1SzpM7DBy0K0WT3SE0njPIwhK4 R66reo356bIz/544dJ06P+99/ye5Hby/L8JJMMHAhvzgU7NmqsIVyvCeob5i LKvs1wnp8/e11Nqy95RdWx2hZaXmC50XB7MaTPmrVVJQKbt4bfVjyIB3dKMD 3iEeRJdOJR3dKbIDv5NdmSGIg2OiXM99k2oDajl5eJ4q/qzkgkudEOhd9d+7 uFiiTksuWG8H+GHZJo8+LcX8i8XJVdnAXPrdEptKLq4pnbrY+pYlpOUeH9N9 x8DlTBpAjAxyBIPdc9GTSI/DzxLENHvzcA5O9In1cudIIMszrMrijVlUeaPR XjEtA6eOe6hieAkFsz+3lI0rYFBFGsKA+tAXWOtyXCHP7RH3ptocCIsAb4Wh PiTkN824ZShhoDzV32IbB24VJKwELjqDqjDM7lgnE9deYj84luwEBYee+qWG szHz7SPciCkHiAot/VLR9IQqLqLXghReG47IO/NpJ6Xv+x8iyJ6MrHXKHkA7 H29/fXO1gzHek1zwKANJYGhtRqJPPxvr8fdKYejHxYTdLUzsSG/HauzBNrG5 d11SEeX+vW1PULwASLRm5D7Fi3/1cvttF6DZeBW5/x9zcp3pUvMUDYKfhZ2A Oijy/ThoFW6rr80z8xJBWLu5/9l+LiZyqRulwNELP400gpCtS0KJUV+D3hXD N61KXtKgCZMNNhs3iYznzTNudMuswUOfqKXornQf5dtCw95vhSZxWirg8Ehb 4fXnfvO0wVVnfxGra/jwDJeW2k2M5mMHkZ8QpwxTJfRxWrU96AJ++6j/gZa6 UrW/TbnIBz2vqzzcIiYGsoaDPT+/M1PHwyF6YmYQZ7W+pjSFiZVEwGoOVHoE Ok6OzFHpBMZxOWTqgY0jVvEqmqkMRmlWtxjdiBZhMtLXEgRPux53BFphW1J4 RgIvnjhHT9ISIq6SvyyGzEH//fHVy0i6PJt+11EMp8k4hU2hPiJDrQucv00G fAUFy9NZxeMyuHD5lfmmD9nAeLagPs9MI2i3wMLTfZxkqRuQsUKtK0ioiDYt 1ynAYc8AXxcwi3r64x567nCD/Oi99ESzYftM3VCuyBVI2skDPDAl7X9XDgcI wR94cCd3OWkuSA7lW65OL8dYgL4tfkpI/cqkJd/bCpq/vrits8YdNo8P0o6y gH3E5jeUgFr/vHIkwwT+AwIuFjM= "], AtomCoordinates -> StructuredArray[QuantityArray, {74, 3}, StructuredArray`StructuredData[QuantityArray, CompressedData[" 1:eJwllHs4FNoaxmeMcZuYCzPtCROy0S6XojraOms5KqSU1EiIQo9LcskRtuKQ a/u4JBKK0AlbYSuXxFqx3bUTKZdRYei45JL7jNij/ce71h/fep71vN/7Pj/V C94nXcUIBMIRkUgiFdkd0KzRVcbcRQf66vQC+jGY3eBnQYNaGX6RV6saUWaN fl+hejv4s8CFkD/Ug7JPCf2NRufR+wGjbtUKPrr1f1eFNu0ZlC8k5O31JWLP tyYGzyO+oi/bDTUXO2qBd3nVrgMPJHBt6uFwx95iED3yuoJsMQYyB85q1M+O AcsyWG0S1wMK9Mpp/OxlNLlFWzJYaxw9Kb8Q2luzBK7oNJx2/dgEnEoUy7Vb ZXEAq8aauPQe/drvRvAmrgOqyW/J+gqfUJbRzrfpF4UIqP3vIOPAKnr+sDux smkVtYeaoWvKs2BZgTDMfjoPprfMP6xAfPBMzIRbETyJ+Nk37pYDEvYtutnv BmXwnFHlz55XCbjirsys2Qse6pDZZDswToSX3feoT5V+AMcdVna+Js0go93c jHWbARDKskgK+XEYHRWdibc+A+P0Urf91XRsTmdzZxsFqHVfPy+NIwRe3GtP ysXksfqbNq3U/lFgX5T/0mCTGMx1iLydNU/DVw7fXpRwJOGzCgFW85gPSDui Wb3xEnixK/TdauAgCsvyHYRm0nA8sB26vmBi7/vjiRmqRDw3Qu4x/UyGmSdi wkxiWNg/ndynfLIDwB8Cpw7YU2B7lYJNSo00lGPkhBjfHAbkqKLLC/ZE/J/H jJ1yj9h47UaZXRt/GhllX2plcqRgVMupl/l8MdihsL+41EII5Hi8OZttlSi7 PiSImMqAHC+lUlbWKCj9R+ZKt5IAcQaffjoUyoK87EW7n9+Mgy4PM56zuwTu MX30JGSvEpwU+iTSRr4AR+c7+R+2iGFDyi99g1QVWLbdJvAOZRb0ldJj3v+b gk9wWB7HypTgDEqZ7DEjwrymaS9B2QLaSrdWiz23hk4SjVvv7itCzqG9B4LO CBHBP01XF66g2l8vVD08LURns/yOspbGgY7h1G25VApee951T/P+IJipjh8o TMwFF/vWUlI0hkA416l5nDsPJhIzBiVWCdjMb4U6VrGAfLqyvpklrYN2uVmq nWAYaU3wbJ0MStCujVoeJMKUUO1i++khsGc7eeBc5yzStCbn3gom4qOx6sHs Q+L4dw/aaIBuNXIOrmNQ80lYKeT87tN6syjtMiMCx4lhOym/E3VH18Hshr8Y AbASxZXfOYekVJ7FJguHgZFnhYPbFAEWQW0JalcPiBY2PzavGEbkhoRdV70o 2LVOd2FOYwUUhFuZ3wtbQsn+r/gZ2iRcW2AWWRophwtNLkcp+iyjO//0N77W Nodaa3eErz+WwJWFk9VqlZJ4mG0wf9xnAomGmTptJJiVsHtIrKMPNQkkNPbF 9aO+ZDyqZNSJnCT/ZFudHUNy2r/fm9ZcBrRNKiFaVuMgzCmegyqWUWC5qXdl Qje4ntSReqVgHly37Suo4uWh773J+wqIeveNTUKZOGmTYfn9B5OgyU359DHa Ithrm8vJmaVhQbeSSto2ASjc8AHFYZogyDrpJ3nMitZH6fUyuEK07hvsIfA3 lyj4e57vplA8sXdi4CMVBpzaY/z22zp6kRTEp0bNIc5oG6XkuCS86HktqYNL wpb3TBvWlftBg+Jd07VsCnQyiohaG9uMW0ri9u2mSmH3xpyxSVG/PfRk603z 5PEGXZjGJNwUSVK1hbKQR7eknDvFxuVMYdtUywyITWOYz/vJQvkI3PqArIAF z9K3yEZmAt9RmythKnRYrPLqjMGAJMxqTs7z1FgGxY4iUH0h48mbN8ozKdJQ gl7gvrmrA7m0O1g0R0tg09Ek8MOyIhb35Vg67R9DwcTFNwUTBGhZVVdtL06E 2d/M6Ox34lBxu536l8MjCH+OptflCoCobfuJr1aAXHg891neZ9CVp+D/izQF eizCHXouq+A9U7+uP6IT9P4rMYIRJQ+l+QxTTkwzKusUPRTOoBYxDZ+JKQac msCG246sAKyGrsf8dxo9Kkt+acXYikVpP2q0IOKulwIQbSgHEyxFoEtgwu// tAiB0ytiuKFABuuIG2qd12DB7mnlxI97cxBzAxO3Kdjc+Wl8oYYyPFji9Mb5 SA5YtmwP3qUgRIdczjQostWg5Vy8tb/6V3Bs43aRwq4xzg68xq3w0k8363Ti moFvwkOqwwkabu6M1snX3Qq3LX88EnBpHejHjaRySTS8OUvMyaheEZ5nertw gqSg/Ffj1xe719Df+bLhIXfvmchYAnzgxhFZ+4S8WpkfRi6owKVbjW7K3UT4 h2PynnHVafQXztV0sA== "], "Angstroms", {{1}, {2}}]]], Editable->False, SelectWithContents->True, Selectable->False]}]}], "\[RightAssociation]"}], Short]], "Output", TaggingRules->{}, CellChangeTimes->{3.7642304508311157`*^9, 3.764231850392621*^9, 3.7646628008170156`*^9, 3.7646750974260674`*^9, 3.7690865676144733`*^9, 3.769092508430172*^9, 3.7690928245492897`*^9, 3.769092895578443*^9, 3.769092992157721*^9}, CellLabel->"Out[3]//Short=", CellID->947691486] }, Open ]], Cell[TextData[{ "These are the topological features that will characterize each chemical \ structure (they are not the same as those used by Carhart et al., but are \ easily computable with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MoleculeValue", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MoleculeValue", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7659753510509768`*^9, 3.76597538428244*^9}, { 3.765978356522532*^9, 3.7659783816494017`*^9}, {3.765978415281239*^9, 3.765978438255087*^9}, 3.7710000418840714`*^9}, CellID->430630865], Cell[BoxData[ RowBox[{ RowBox[{"properties", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7642301221587563`*^9, 3.764230143259211*^9}}, CellLabel->"In[4]:=", CellID->372127002], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dataset", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dataset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", a searchable database can be made:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7659754198087397`*^9, 3.765975436912709*^9}, 3.7659779260721188`*^9, 3.771000046126388*^9, {3.774803669631799*^9, 3.7748036743024263`*^9}}, CellID->563638409], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"database", "=", RowBox[{"Dataset", "@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"#", ",", "0"}], "]"}], "&"}], "@", RowBox[{"AssociationThread", "[", RowBox[{"properties", "\[Rule]", " ", RowBox[{"MoleculeValue", "[", RowBox[{"#", ",", "properties"}], "]"}]}], "]"}]}], "&"}], "/@", "mols"}], ")"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764230467837657*^9, 3.764230599148323*^9}, { 3.764230654293744*^9, 3.764230679466408*^9}, {3.7642314979077663`*^9, 3.764231515405801*^9}, {3.765992502211192*^9, 3.7659925135879717`*^9}}, CellLabel->"In[5]:=", CellID->29760830], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvc1rG9n/72lmYJjl/AuzmY0g69lokeXgReg7DFokvdAlyWVE8pumFZh0 BAEXgUQLEyUOyIZUEiycKLhbwRYdiwSlQ6W/XW5TNrJwxRZRFFs4ZUfOLRNP 7jW07+/26KHOqedSlVzVZcfvF6LplKrOOXWkUy9/zpP+1//4//yHi//D0NBQ 8n9u/+c/xP/f0z/+GP/p//xf2v/4v/4t+X//p3+7cP7/+LcrF/7ThR//9//4 P7YP/m//09DQv7XP7/z/3wAAAAA4VtQAAACAbwiYFAAAADgMDsrb39lY3/mv AZl0DwDw7YJmDvyir6rCpV/x9pud95v7weQb9ocDAAgQNHPgF8fapPv/udk7 YeOzzy5FEwPgmwfNHPjFcTZpNyCtNxp1/8NSNDEAvnnQzIFfHF+T7n/uiFTa +/d///+2fA9L0cQA+OZBMwd+cWxN2gtIpb86//+X1AlLN3yceIQmBsA3D5o5 8ItjatJeQPrxy1+9f/71RfI3LEUTA+CbB80c+MXxNKk2IO3x11YvLP3vfuYb 9ocDAAgQNHPgF8fRpPufNzojpF/+0h78a68blvq0thRNDIBvHjRz4BfH0KT/ dcMYkPbwMyxFEwPgmwfNHPjFsTOpZUDa47/tdSbx+rLlEZoYAN88aObAL46b Se0C0h5/bb33JyxFEwPgmwfNHPjF8TKpEpDu2YjUv7AUTQyAbx40c+AXx8mk /70XkG7ZerSDP2EpmhgA3zxo5sAvjpFJ93c6It3+L//ufMl//y+tw4elaGIA fPOgmQO/ODYm7QWk7Whza3vLke0t5cR+yu2fb9gfDgAgQNDMgV8cF5P+t+7m up5wGE51mW/YHw4AIEDQzIFfHBeThpJv2B8OACBA0MyBXwSkqoM9eb2+uri4 ON+hut7aGyydE2XSz++FN69evuHmpd1/OGcATiIwKfCLwVQlz48P9Tj3UO/I g9W5hxfPnB4yceocw6179umJMukSe/7H77/78fvzC9v/cM4AnETCMqlYYIbb xFJCq8/Bbwq51aiJAt9FqNQazW/pRgdQ1cH6zCkqyNPjsu5N+Y6FRVWmVr39 XMuJMunyZLJr0ktLMCkAweOimUvZYacHWocYK3nMl8v0Eh0uS30OamixcZpl pFCTrU+q8cU2Ja5p/X44tGpcJhmPWNRdJJZMl4Qj1y0wQDV6VtXe4jltTZwe 18eZe+OnexHoT1Nz3Or6x1ZrfX5u/IwamqY/ejealyv8IRSTik96Jk0uo3cX gOBxY9JMX5NG0k2P+fKZWE+anNTnoEqzFNXkOZzhLVPm0r2zojY6DgEhn+pX g7a3ExYDVKNHVa0znXBUCUlPWZh0f+5Oem5VNl7X4ohMzyx66eI9FiZd4/L3 rpztSrD7upx8/Ov8Z+NZsvgqPzFy6eqF3mlnr19JTozn+KV6V5v1OXb0Bknh 9ujY5Hj3NTb6eGa+c8JuvTg+yo7dfMbV2/+SavNzTyba77Jjo8U/6jSPT7XX kyOX1JJcOM8+edk0eFlJarS4sL67vVwcH7muFOm7q5evzS3U96xwd48AHCe8 xKTDTCabsSCdLfBe478BTFrJqRFpV98py3L30fE/TiWX0JQ5lskVBbFT5xW+ nM8y9I+U4TQXdkl1DFCNXlS1N3VRufEf7txRIlOjSe3YnyKh7HTdQwcvLZ5x iYs73Gdkma+L+qs/G9H4Rfu6MlFXFbY+nbI6p/t6vLC5t/37dZt3f/x+rPNh bs/3PHv15oPieFJ7wvXx+V4e4sxNmxSuLWxo2jpJyu418WJtoHsE4JjhwaTD WR8H9bybtJEmESntI80KFucJ2V4iMc92D4JGkcbR0WTOKnJvcblOxBphyv94 4ZwYoBrdG4dLK2Hl6TT399+rHk2691C5+sy8KWDta7S/j6hJd4ojVCuXpmde LlcFfmaCOvHq+OveeUuTNE48z07mf3s1144ob5MQr2PS3bXpm9eukgtvpK7d uznSft0eSU5Mvu7Iamc+bSO+q+O/t9+XuDHVrTfHfuNev5l5oDHmTTXUNCWV vnlzcuymRuUja7ue7xGAY4cHk0YzztGJWMomU6kUw5oGMFulLNN9p0zf8WpS WcyRSLRYK6fJ/5cMd5NLp2iUF08yCqlUOsdpCiWVWWZYM2YZjaWKQsNYM2U2 1Sl0riHLQiEbpxdEhlNsqVfAhlBkEmpK0RjDNXQ3X2KISGNZh9prieUSryuA JJaYuKZXPRJNZYsNQ8XKYrZTxBRbNn6Crfbl7Q8jyZTpNXKNZbont4soCSyT iNIbisZznDYFl9VoxKVx6tM/KEn3JuvuLxKtujPpPh1dPbfoZc7RUTbpp6UH ik1u5nV/bu0s31NEk1zeaf97c/qyEhsaphJJtdcTl88Xq1u9f5Jx0ksW46Q6 /Z2dnHld39z6vLPVfL/yYbOdx/ok6aGd+HVZvWp37fEV5fi9X1fMSaXHZz9s qyezSjm/m17a8niPABw/PJh0uI9JubRiXNPImpTp+UQznOrVpCTxoXT7PZmP kce8oH2yS2XtQKoeRsla4pNW8346aWXLslWOlkSTWTYds3xHFV6Lp0mwFQ8B vZBL2mQbL2ttKnFKjZviWYlT/thgyk3DyXYkC6KHarTCjXHk+TtKSqeY9QO9 Gd2ZtMyQGb0XZw68G82l2rzeV998HXPYKSodtpfMi1ZohPh4oa2krWlFZ9ec pUPn7lqsgqH6uzK2Zkrk81JOkWwqbxy7fD+rhLqXH3zSJ3W9G8xqWfv5mhom e7tHAI4fXmLSdDtqkk3Q8+w9aBHVejSpSNSSqHQylAtEh0xJE8rJYiahzo8d jsUTXeLxWDJT6hZU7SLu+IctlEvFTFI1TCIvmgpDT4+nGG0ASonEkylGMy+3 HTUrxakVlNyiHmZkNUuMmmeCKZRKxZx2zldSLWKLU+rLNMYq8Zne2WmuaTiZ EkskmVRSI81e3bqpRmv6Gkez5uWc2jHrxaTrc7RyTs2sexLpUTbp1jMS7k1M 5p490b7yk2RUtKsk9cwfL1x6PPNy+W39047FZ+K0Cobo78akYL7wM4kcJ7l1 05ubjy/r+2xpUuy8XTrEpO7vEYDjhweT2hDLKpNOgzMp9UKUUbpzJU45MhTP GZ4jZIBv2DzA16CSiuiWrNaKaaNNtCaNxPO8WkUldZbQUDyjBqCymDd4kxbS y2yiBkMclsxrHnSySEPkRL6iHBzUpDEmX5PUlFPEphlerXeHarSjj3HUNS+n 57QSPKgqx888dO6slRfJHg5DQz/NrA9mNHdq83Jf7vJ1ymCXdm86vXqW+URj Ru345uVL7OScdmKtK5Oa9NdGVGNJc3i4RfqWk0qy9kl9MpjUyz0CcOw4vEnp VJngTFokEWiW+k+ukBmxw2V9vEcTMXcy0xvJmrZ+KCSULNLEJnbptISsIkxj n2qLTnLulZ/qzL1JW3yW2I41FrGWV4pIq3Egk5q7gitkma56slM12uJsnL1F 0q/7w/TqanVRobpYpn68OFetLs5XP1oJVV58SL9yZ+7MD2w0V2rzcl8u83XK QDMDNj02xnYXpBheE6Ojb2pKV2xz6Zfbly1NpA6eDmxSOqPJSmqbZAh1RNzp k5TRpB7vEYDjhReTDqezRjKZTIFXHr9BmbRFRkX1faQ0ZtR2yboqRoQxzi5q P53IwGIiV+mTjq2/JD9Mqlyi67UmZSRd0yRwHsik5pNb5pMDWAWzV1UjSmfS pim5H8t36Lvn7nDeenX1RnOlNi/35TJfxxzIPKIrOfcLQT5v1sWF13NPJu6l zqtTbYnRBjaptDDhEJOSHlrvMelA9wjAccHLjKM+q2ACMmmjSLc1SJW4cqlH uZyn02KjGSvDmg3IK6GX1dQptSc2w/VLx1ZJhktomuYw0A5BDQ8tyqhM3BqK KW/6ZFKLk0M16R39hgur0z/Rt36YWjyk0dypzcN9uczXMQfaa3p27u0ga7ek hbwyF2jkl940IWpS3hxZOpr0EzHp1bGXxvdoXHn5gdQvKZNJD3uPABxlvMw4 6jN3NxiTtljLGbI6Ivmai4lPdPKqlUmbZWUINc4KfdJxbVK5ViD9sW5nHJH9 EnVSo2UkQ6gJpXP6WJm0zb4FB/utsjIZ91T648FB+5D2ivIddUNBZqY+sM7+ PtImVUcnf7w8umaK2XY3lx+PjnU6VHfXJlMjL5dMc4F2iOOIScUnSoLsK4uT HUza1iVZ2HL2pX49G88qHb/X6cJPDyZ1fY8AHEOOukk1Oxs4oN1qz74YzYz9 jdABSh9j0vaZdITZPDJrCe1ktoxJSe/xsYxJbaFzd8/o5+4etKYudqf6dv5z Zro64I+pGYzmUm0+3Jc+3z557K5oJuRcmv719Vqt3ny/tvzH3ONRzXoWEhVe T42+5OY/bGx+2t6sV19PppSdGW7/rKz0pFNnf/w+WeSEtbfLb2YePP55Xrsz g7VJO/Es3fzh7PQr4dOO/GljpTiq7gjxZoOc6sWkbu8RgGNIECY1zVFpDWxS OhkmnuVaLUlPqynklChNs3MgTaRkjOpo72i0aBqENAeDPphUs1qnt4bIDqlS KnCd9+k6ULqURnMS8TLtzbYviUymRR3epKZqtOWwJtWvglFmKPWWzZxJT09P PRx/qGN8fHx63v3eDEfapG33vZ1z3Hmv+/toTjsBfqffUGhtwnzChYnOF5ME sHYmdd6QkNVuAGiflIVJXd4jAMcQH01KtzJIFrQJtvgcY5x06takdPmnhfu6 NIkc1Z0Dhawi35TpGl5Z2TEUSeZ1/VaNEgke1Yz8MGm7fkkHb2cxTdbq52uk sna3QImuVYnkRf12SaR66VIg1a36LYjlBsfEyFTkQU3qUI12DGicPXWPI+1M I1fjqqfuuN8v8IibtMNu/SU7ctWkmBsjo3PccrfbdkfkfpnQTDGiweM9dvaD vmt0d+N39or+tFSus6PCjnC7N4fWaj0pYYt/Ytp698K1l1X9sKt9Up+rymod useR63sE4Pjho0lrBbozT4TJlXiBL+YzsYjmuefRpHSHQIet9uj+8HTnQDoT tbOSpMRXKkIxl0mz3W3uNN2tkXiGr0lyS6qUWfWgZvtBf0yq0XevClKZXJkX RLHCcyU2rW6MQFPj1W0YIpkiL7VkqVFh1e0jtH9UiGqNx9Mljue5YialG1ce 2KRO1WjDoDHpqrJ74LmpPd3hh0N9OeNyq17VaN7Udpj70ufrPru93a0PtRWx urz2dqVes954YXenfc7aWnW5fZr4tv7JfjqstFGv19Y+vF+Xtr2PQe5sri3N Ly10XmJt3c85ty7uEYBjhBuTOgwv6hHtNrkjElAn2Vp2BRsOlq2DXD3qT63F +ZZ9MchGhY1yxvwmKR6jjQJtO6uJjh1MariEYxO2mRLoTKd2GQ27K2lJFXRL fjR/vVijNaldsS1N6lyNlhzSOEFzbEwKADhuuIpJFT847cGu0OTUrc97RBPF SoX8roj6g+BkuUdMG77pD5om2Fij/vw3S2b1yI2ysRiaqLYllpKmaUxxpmBw BOnejHGGuUJkfSvd3IlCwk/qdBVJLKeTugCduGk4mWb5muEOpVLW5LFIPC9Y eIzPGX/8NJEpVThlnFT9uRyyCChm+iFUuteEdo+jvtVoBiZ1yNd9dgCAY0cQ zbxRETiO43lerHn9AXA/aTZqoijWao2mZDFvtilWuB680JD+sc6lVrtUFaFD pSI2mo4TelvNCq+UURCNvwOjQ2oI3TvhBdE5yQFwrkYtMKlDvof7EAAARxo0 c+AXMKlDvsFVOwAgdNDMgV/ApA75BlftAIDQQTMHfgGTOuQbXLUDAEIHzRz4 BUzqkG9w1Q4ACB00c+AXMKlDvsFVOwAgdNDMgV/ApA75BlftAIDQQTMHfgGT OuQbXLUDAEIHzRz4BUzqkG9w1Q4ACB00c+AXMKlDvsFVOwAgdNDMgV/ApA75 BlftAIDQQTMHfgGTOuQbXLUDAEIHzRz4BUzqkG9w1Q4ACJ0aACcJmBQA4Dvh PM4ACAmYFADgO2jmwC8OaZyggUkBAAGBZg78AiZ1yDe4agcAhA6aOfALmNQh 3+CqHQAQOmjmwC9gUod8g6t2AEDooJkDv4BJHfINrtoBAKGDZg78AiZ1yDe4 agcAhA6aOfALmNQh3+CqHQAQOmjmwC9gUod8g6t2AEDooJkDv4BJHfINrtoB AKGDZg78AiZ1yDe4agcAhA6aOfALmNQh3+CqHQAQOmjmwC9gUod8g6t2AEDo oJkDv4BJHfINrtoBAKGDZg78AiZ1yDe4agcAhA6aOfALmNQh3+CqHQAQOmjm wC9gUod8g6t2AEDooJkDvxjMOPL8+FCPcw/39G/trz4ccuTM+KJXow2gNpgU AOBMWM1cLDDDbWIpodXn4NGnkk91i81UZNtzWlJDrAh8l0ql1pSO1R26YwDj HKzPnKJePD0u69/dq447aLRzRRomBQCEj4tmLmWHnZ9nQ0MxVvKYL5fpJTpc lpwP2uYeiUbjyXSp0vSYs//wVvdCaPGFTDwasSp/PJ0r1Y6cUSW+VGzDea9Y z8bZWzyn8+K4ISalJj3z052HJsbH70zPf/RqtAHUBpMCAJxxY9JMX5NG0l4f u3wm1rMPJzkf7J97Ml/xmLnPWN5LB0lIRftV3VCMO1Iylcq9IkeYstdLPRpn nemEo0pIesrRpOPV/YFFZjDaAGqDSQEAzniJSYeZTDZjQTpb4O37Na1xb1KS eyyby+e6sGw2wyQ1jhoOV0bWJm0JCa0vk5kiJ3TqWqyUi3kmTv8+sIxkw6PF KTeT5rxe6sU4e1MXlfv/4c4dJTK1N+mdRdk6Ge9GG0BtMCkAwBkPJh3O+ugr zyY1597iqarYyj+uUrlD73+FrMW9lNRwNJrjLUL2Vo1jOrcWOVom3ROUm8nw Xq90bxwufUaRZ5r7++/VviZFTAoAOMp4MGk04/zIF0vZZCqVYtiaMUBtlbJM 950yfcezSa1yLxKVZnjjm5JY0sR9nVHJVLbYMBRMrrGdcqVYriFLAssk6Hhm JBrPcZbVIpVz6Zg67hmJp9IkPNYUu1GkHs2ayqZLrVDSl0oqs8ywZlg1GksV hYbhMk9VXSuznZtkcg1ZrhTZxHBULTyT06bQ4HKpBKm0aJwhpFJpzlh3Frg0 Tn36ByWL3mTd/UWiVVuTnhufW5zn2swvVuvrrf2DwY02gNpgUgCAM15i0j4m 5dKK80xBlpRRxt7U4VTvMak59wajGMfYQSrkkkPWxMtaI0ic8xhssiDq0pVF xmncUy02Twd34zkP0bLEJy2mJnWTyZa1JvNU1eRkGyIpkSTN2d8eU+4/Eu7G OPL8HSXFU8x6T4j7i31jUhOnfnrI7Vkk399oA6gNJgUAOOMlJk03lE5NHfQ8 24k3VnGl95hUVUM7U6khsCQUjCTyWls1Swx94EYTTKFUKua0s5aSqh3JmCAl lkgyKe0IbEKzsKWVi2vOTKaz2QyTSuiGa5Viy0XStetGQIRGWk0ryrCFcqmY SaoFT+TVgg9U1TTtWJJhkvGoOeVaKROj8XBkOKEQj8eSJVP0a6avcTRrXs7N 05FPB5Mu3hly4IdpT32+MCkAICC8zDiyJpZVBtSCNaktcX3cSAPVoWReUA/L Io3MEnSur8akMSZfk9ST6SAn7TduCVlybjQvaO9QLjLD+mLT+cYeZhM16B8A Ed1y2loxTfJVtT6gSSPxvKbLWiyklOPDWTUZmQ9qnFRd83J6bl3TP3tQVY6f eWg04956ea5cXa1/bLXkzl9QrXqVu3PxNP3sf5pZ92q0AdQGkwIAnDm8Sely iZBM2hFEkSzLbPHEdzHW2K1ayyuOpcUgJo2aVnxUWCX+THO9oFLOJ5SrU0Xj qKWp2OpsZ1NV2KHeZta0LUWBZJ0mWh+sqkuGk2UhTipEjZyloObuqgHmD9Or q9VFhepimXbhXpyrVhfnqx/7hZplRpHp6fS8V6MNoDaYFADgjBeTDqezRjKZ TIFMTA3YpOoqmM5CmGyWScU1g4qx3iUtPtP7N1My+m5vr0m6T0lwZ7/ig6ZD TErDzIR5IyM/TRphLMrNKWFpIldxqD1dOv2q2u7k4FbB9N2wiJKe77fmReYU lZ4xbjDY12gDqA0mBQA442XGUZ9VMMGa1DL3VoUhoVyM7fTlCmosaXYYmY1D tOtgDclo0poyGcdq2pXZpLR3t+RymLTFK+W2Sl/iMuRNziZH9dxvwKR3Fvvp cZ90CF/0MFQKkwIAAsLLjKM+c3cDnnFknTsNHiOJ/J663yA1oJYmGUJNKB2o 7k1KZ/m6MqlcSHqcceSYfrOsDKHGWcEmRzWhI2vSjgAtONhvlZUA81T648FB +1BfN1Epn/ppzv2CGJgUABAQx92kspjTmpR2hFrGpLSj2HtMqhbDrEZzsdVV MObhWmuaGfvbpIO/xzomtYXO3T2jn7t7sP6QuTO/bopPD+oMnQE8terVaAOo DSYFADgThElNE1ZbwZm0UVImoPZmDUnEpJFU0XQfJO6jNvRg0ibpGY6aO2zN exzJtQIdw2XK5pFPNZ9SvrdfBO15jpomNFkE2oev6l7uFnVLask8C6svhzWp YRXMnrJjw+lzP03NcNX6+vp6nZt5qNn0/uKqly0aYFIAQED4aFK6A0CyoE2w xedIr6rf46RSpUAn9io9nxJd2BLJi7q5QSVSvChTIkVzb9K9Etm1IMroHN0S S2SZqbbYckHdZCGSLVvUsFQrpzolUnZX4BUdD0WSeV25GyW66xCV7OGrWle3 upiUjNhazX1yZkDj7Kl7HOlmGu3Nq8tdrHhY9bYZL0wKAAgIH01aK9CdhSJM rsQLfDGfiWk37TnU3N3hDKuQzWbSTCqu3VMvkqqpiVC7RjJFXmrJUqPCqlsc aII+LyaVxbx6H4kMJ1T4ciGt2TnBqCpJt+1DNJ7KFctCpfMjpaU8m4zRjRFI XNlSN1yKxDN8TZJbUqXMqgdTJZr24ava/pNV1+MMp3J8pSJwxQyTLvu3W6CR /VVl98BzU/qeXLn8kDljZdPT59LzfZfK2BhtALXBpAAAZ9yY1GEIT49ot0kf fbybdwssW5lU+/uk/X/TLZrUTy9qGDb10ZLSbgBI5OXGpHuaqNYGU19rg0tE HK/oEOdJsN0oZ+zvkdFH2Ietal3d6gd/xYJF2n7tFjgA+3vyen212mO13tob aNddmBQAEBiuYlLlSZztZ9LOjJ+UwTbRRLFSUVLQ/CA4Wa4S0wZKVgdJ7iYi kWgskcqVTBsZdK8qZU06iMTzgl4HpCczZtrPh+5opN8bXy6bkk2xpWK6V0TV idqS6He8VxmOJdmicXf7llhKmva+jTMFC425r+osqVVj8SRWOdnwycocm9In 7bwPv0JAJvULmBQAEBBBNPNGReA4jud5seb1B8B9pdWs8FwPQXTRO+kOuVnr psrzgii5TrQlNWtiRehQEWuNluOFTbGilJsXGo55BFjVrabYodZoNJ1LS4FJ HfId8FMAABwH0MyBX8CkDvkGV+0AgNBBMwd+AZM65BtctQMAQgfNHPgFTOqQ b3DVDgAIHTRz4BcwqUO+wVU7ACB00MyBX8CkDvkGV+0AgNBBMwd+AZM65Btc tQMAQgfNHPgFTOqQb3DVDgAIHTRz4BcwqUO+wVU7ACB00MyBX8CkDvkGV+0A gNBBMwd+AZM65BtctQMAQgfNHPgFTOqQb3DVDgAIHTRz4BcwqUO+wVU7ACB0 agCcJGBSAIDvhPM4AyAkYFIAgO/0mvlfAHzrwKQAgICAScEJASYFAAQETApO CDApACAgYFJwQoBJAQABAZOCEwJMCgAICJgUnBBgUgBAQMCk4IQAkwIAAgIm BScEmBQAEBAwKTghwKQAgICAScEJASYFAAQETApOCDApACAgYFJwQoBJAQAB AZOCEwJMCgAICJgUnBBgUgBAQMCk4IQAkwIAAgImBScEmBQAEBAwKTghwKQA gICAScEJASYFAASEF5N+/SJ/2TcftcLnh6BL9jdfFZ4+51bNhQQAJgUABIR7 k27/OcUwzOzqF93RL6t3GTOjK1+sE9n4c/b+o+cbrk3r7fxeYW7Nym6TBycI mBQAEBAuTCpXuBezT7M9R86u6jX1dbXzxmh2SuXR/Uezdu5bfX7XwbOHPb9X mLvPXScPThAwKQAgIPqb9MuKNto0m/Rux13vXD7NGi/arrv7zqL7df/rly9f vhrfcDh//+u+8TBMCuyBSQEAAeEiJv3yrrK4WFmcvX/rkCbd+FdhtJMGc/f+ ozbZ+4VGN3TdrLy4e0sx9a27U5Xtrw7nb1de3L87SsR+K/uosELO72vSxqvC q9UdN0UF3x4wKQAgINyPk3bDQ2uTMo9eNTYajcbG9o5TONh49Ujx32iHW7ce vfvy1+a/pnoHHz0tPH3UG3S99efmvt35q4WOXEfvZjtuVYx6d0VWCuNs0tXZ W93CYkrSSQQmBQAEhHuTvntuZdIvqzQ+JLONplZ2bE3VeNEJYVfpKOp+435X hYvbyiWbfz7tHLj/r33L89u2lHdkzT9XZjulKvRU2s+k+/K7p11X37r/fDOk +cUgLGBSAEBAHNak+9t/vuIqK6ttKov/mlJ6aac2bVz67nnXjER1X9696Li3 UNGcslPouPlRY9/i/F6WGyt/Pn86dT97tx2m3rqlGb11NU66v/qiF+reb0Cm JwmYFAAQEIc1qZHtp7e63a02MjOZ9HlXfauaU+Ru962iOZNJd15kSeybvT/1 tPD0/qg3k37dfPGoG0ZnX2DE9EQBkwIAAsJvk36ZHXVhUhIM9kw6OqszaTeF ++++Wpz/tfGiO81I0ze78cq9SeV3XK8vGkOlJxCYFAAQEF5nHD3Xd4nuvFvZ kFUpfd34V1dVupFNLV0zMtwGuaTnPua+GqWuPu8GjK++Wp3/ZXW2k7pq3q8r L+67N2l3ttLdfzWwc8NJBCYFAAREf5Pub3OzTwuzhW43ajsenJotPH2xuNl7 szeT9u6jp4XC06dT93ujpPreWh0br+73Upl9Pvso+7QzF3e2N183+5z7k3uu zON9TiJfw/m19T97WbRL8eJ5IUvWzigm7e1xNPrczpSbK4sNrDU9qcCkAICA 6G/Sr+/IyKRmfi6JCjf/LNzSvzX1YsVpIs/+9vP79IreAOjXyvNH2rRfVLYd zm/nqDn3UdvwXfN2BbnfeNQdAIUtgRmYFAAQEO57d+3Z/yLvbHfYMe1RZM0X WTZsaNROYnuzk4TFFvnm87/KncxkCBN4ACYFAASEHyYF4BgAkwIAAgImBScE mBQAEBAwKTghwKQAgICAScEJASYFAAQETApOCDApACAgYFJwQoBJAQABAZOC EwJMCgAICJgUnBBgUgBAQMCk4IQAkwIAAgImBScEmBQAEBAwKTghwKQAgICA ScEJASYFAAQETApOCOGaFAAAAPg2gEkBAACAwxCWSd1nBwA4dqCZA784pHGC BiYFAAQEmjnwC5jUId/gqh0AEDpo5sAvYFKHfIOrdgBA6KCZA7+ASR3yDa7a AQChg2YO/AImdcg3uGoHAIQOmjnwC5jUId/gqh0AEDpo5sAvYFKHfIOrdgBA 6KCZA7+ASR3yDa7aAQChg2YO/AImdcg3uGoHAIQOmjnwC5jUId/gqh0AEDpo 5sAvYFKHfIOrdgBA6KCZA7+ASR3yDa7aAQChg2YO/AImdcg3uGoHAIQOmjnw C5jUId/gqh0AEDpo5sAvYFKHfIOr9qPIzjKbunTjyqXJFyv02O7OlrS5KW1u 7Q6W5u7KZDdNdmbZp1IC4BsnsZmDYIBJHfINrtot+fxeePPq5RtuXhrQW4dj e/7G99/9+P1319l5emyJPf9j9+DjhS2/0gTgiACTAr8YzDjy/PhQj3MP93w9 2dJoA6jtOJqUaOv8wvY/nHOXnfl013o3tCadvNQz6eQfm36lCcARISyTigVm uE0sJbT6HPymkFuNmijwXYRKrdH8lm50AOMcrM+cGiKcHpf9O9nOaAOo7Tia dHky2dXWpaUjY9L6iwf3bt68d3OUf7/jV5oAHBFcNHMpOzzUhxgrecyXy/QS HS5LfQ5qaLFxmmWkUJOtT6rxxTYlrmn9fji0alwmGY9Y1F0klkyXhCPXLTBA NXo2zt7iOW1NnB53CjM9nWxvtAHUdhxNKj7pmTS5/A/27u7uykpuu8v+Ww8m BUcYNybN9DVpJN30mC+fifWkyUl9Dqo0S1FNnsMZ3jJlLt07K2qj4xAQ8ql+ NWh7O2ExQDV6NM4604kwlSjzVB85ejrZyWgDqO2fNOkal7935WyvF7Tzupx8 /Ov8Z+NZsvgqPzFy6eqF3mlnr19JTozn+KV6V2T1OXb0Bknh9ujY5Hj3NTb6 eGa+c8JuvTg+yo7dfMbV2/+SavNzTyba77Jjo8U/Okd2N5eLk2P3RpLXL5CS XDh/I3Vt8sncB6to8nPt98ejyaskx6tXrj1mR340Wa/5R57t5JKrG+W+tfDz 2I0L39G7vp4afVNdN2YDk4IjjJeYdJjJZDMWpLMF3mv8N4BJKzk1Iu3qO2VZ 7j46/sep5BKaMscyuaIgduq8wpfzWYb+kTKc5sIuqY4BqtGLcfamLio3/sOd O0qwaStHTyf3MZpXtXm8L9t8XeRTfzaicaj2dWVCY5/16ZTVOcpkns297d+v 27z74/djnQ+TTN25evNBcTypPeH6eEdSnxYm7NJvB7kL+kHO+qsx+5P146Ts JYuh221h4oL1tbef/K5TLkwKjjAeTDqc9XFQz7tJG2kSkdI+0qxgcZ6Q7SUS 82z3IGgUaRwdTeasIvcWl+tErBGm/I8XzokBqtG9cbj0GcWHae7vv1ed5ejp 5L5G86I2z/flkG+/THaKI1Qil6ZnXi5XBX5mgjrx6vjr3nl03k5bSexk/rdX c+2I8jYJYzsm3V2bvnmNRojtWPLezZH26/ZIcmLydcdNREnm19Xx3/dUk55N j9x8PJkrPsk9HhuhCf44MksF9/ltXr38QvLxk9w0O3Yvdd7SpFZDt+uPL9Pc z0/+PLfAvZwepTf43b1f1zQ1BJOCo4sHk0YzztGJWMomU6kUw5oGMFulLNN9 p0zf8WpSWcyRSLRYK6fJ/5cMd5NLp2iUF08yCqlUOsdpCiWVWWZYM2YZjaWK QsNYM2U21Sl0riHLQiEbpxdEhlNsqVfAhlBkEmpK0RjDNXQ3X2KISGNZh9pr ieUSryuAJJaYuKZXPRJNZYsNQ8XKYrZTxBRbNn6Crfbl7Q8jyZTpNXKNZbon t4soCSyTiNIbisZznDYFl9VoxKVx6tM/KEn35t/uLxJTWsjR08lujOZabZ7v yzlf5yw+LT1QXHYzr/tza2f5HgkGlzs9q5vTinquGaYSSbXXE5fPF6vKAhMy TnrJYpxUZ9KzkzOv65tbn3e2mu9XPmx2e2+315YWVoxdytvzt3Ul6SRUJNHx 9dHZT5pzd9+/vO7CpE2OxLMXRkVNv/GHVzQoHlmj5YdJwRHGS0zax6RcWjGu aWRNyvR8ohlO9WpSkvhQuv2ezMfIY17QPtmlsnYgVQ+jZC3xSat5P520smXZ KkdLosksm45ZvqMKr8XTJNiKh4BeyCVtso2XtTaVOKXGTfGsxCl/bDDlpuFk O5IF0UM1WuHGOPL8HSWlU8z6QffQ/qJdmOnpZJdGc6k2r/fVN1/HHKiSLpkX rUhEN91lmFvTVxSTLjtOgKXaslgFQ016ZWzNzSzaXfnz9tannc3fxs5r09yt /UI9+MEmC0eTbj1T7uW7Z1VjOX67SaLspS2HNAE4IniJSdPtqEk2Qc+z96BF VOvRpCJRS6LSyVAuEB0yJU0oJ4uZhDo/djgWT3SJx2PJTKlbULWLuOMftlAu FTNJ1TCJvGgqDD09nmK0ASglEk+mGM283HbUrBSnVlByi3qYkdUsMWqeCaZQ KhVz2jlfSbWILU6pL9MYq8RnemenuabhZEoskWRSSY00e3Xrphqt6WsczTKW c/N0EYuNHD2d7N5o7tTm7b7c5OuYg+qUicncsyfaV36SxH2dnlvNmT9euPR4 5uXy2/qnHYvPxGkVDFXSpGBbot3NpVd59ua165fNQ7dKmjSOvjezYrzck0kv jJlbh0TGatXEYVJwhPEy48iaWFaZdBqcSakXoozSnStxypGheM7wHCEDfMPm Ab4GlVREt2S1VkwbbaI1aSSe59UqKqmzhIbiGTUAlcW8wZu0kF5mEzUY4rBk XvOgk0UaIifyFeXgoCaNMfmapKacIjbN8Gq9O1SjHX2Moy5jOT2nRJhdDqrK 8TMP9wc72YvR3KnNy325y9cpg13ahev06pq07a+cxfjm5Uvs5FxT05HryqQ2 Svr8dvaGU0mUNGnf7PSSac8iNybdEZTu4isPPhmv3/u0oGj6xuS8Q5oAHBEO b1I6VSY4kxZJBJql/pMrZEbscFn/Fy1NxNzJTG8ka9r6oZBQskgTm9il0xKy ijCNfaotOsm5V36qM/cmbfFZYjvWWMRaXikircaBTGruCq6QZbrqyU7VaIuz cfYWSVftD9Orq9VFhepimWxbNHRxrlpdnK9+3Pd28rE3KZlM236lx8a6S0WM r4nR0Tc1pQu0ufTL7cuWjlMHTwc36Y6gGUU9z7L537h5sbryYXP9t9Gz2jTp 3KfHC6Y9i9yYlN61lUmlPxRN3/552SFNAI4IXkw6nM4ayWQyBV55/AZl0hYZ FdX3kdKYUdsl66oYEcY4u6jzB7YSliZylT7p2PpL8sOkyiW6XmtSRtI1TQLn gUxqPrllPjmAVTB7VSrBPqTnZU8nH3uT0nlEV3Lu91H4vFkXF17PPZnQzpWl e9IObNIPr0aVOHck90FfGkOatHd3QJO277rXu3vZwqSfSeiNmBQcC7zMOOqz CiYgkzaKdFuDVIkrl3qUy3k6LTaasTKs2YC8EnpZTZ1Se2IzXL90bJVkuISm aQ4D7RDU8NCijMrEraGY8qZPJrU4OVST3lnc83Ty8TfpFpmRe3bu7SBrt6SF vLJKZeSX3pxbqi3evMeto5LIqs/vppeMs4DofGDFpGQo8/rYa2Mqu4KbcVJy 1+ffbJiKYQ54YVJwhPEy46jP3N1gTNpiLWfI6ojkay4mPtHJq1YmbZaVIdQ4 K/RJx7VJ5VqB9Me6nXFE9kvUSY2WkQyhJpTO6WNl0jb7Fhzst8qne9mfSn88 OGgfGuDkY27SPfHna0pceXl0zRSX7m4uPx4d66wT2V2bTI28XLLY/+eG3qTi EyVB9pW3zYKWFV1+N6Fdy9nOeeN3MphLVLjxkix3vfTmvfYPgC1+UsndeRUM zevq6Kzupjdek+5ujWRhUnCEOeom1exs4IB2qz37YjQz9jdCByh9jEnbZ9IR ZvPIrCW0k9kyJiW9x8cyJrWFTsc942I6rqeTrYzmUm0+3Jc+3z557K5oJh1d mv719Vqt3ny/tvzH3ONRzXoW+stiqdGX3PyHjc1P25v16uvJ1FkyqqjMdP1M ul5//D5Z5IS1t8tvZh48/nleuzODpZI0F55lf365VlsTF14/G9NuhURVKL+8 qY6oTr+YX6sKv/08od33r8/ODDvqAPHVkQfL77d2d7bW/sirB7XRLkwKjjBB mNQ0R6U1sEnpZJh4lmu1JD2tppBTojTNzoE0kZIxqqO9o9GiaRDSHAz6YFLN ap3eGiI7pEqpwHXep+tA6VIazUnEy7Q3274kMpkWdXiTmqrRlsOa1M3Clm9z FUyHz2/nHGfMdjfZc9oJ8DvdPgZ7axPmEy5MdL6YxF82StLuO2T50qxRVYNH 65elSbVLXJt/PLC9/PKYbofebediAxAmPpqUbmWQLGgTbPE5xjjp1K1J6fJP C/d1aRI5qjsHCllFvinTNbyysmMokszrhqMaJRI8qhn5YdJ2/ZIO3s5imqzV z9dIZe1ugRJdqxLJi/rtkkj10qVAqlv1WxDLDY6JkanIg5rUoRrtGNA4e+q2 Rf0nD3k62cpo7tV22PvS5+sqp936S1azLx/10cjoHLfc7bbdEblfJjRTjGj8 eI+dNWwvv7vxO3tFf1oq15nbQ5afpO3Wk+6sTY8Ysjj/+Nd5Xukx1m0K0c5l wmDeK6P8wlwvfkw/UbMgPdhJwySoz53dmYy3fHt8zvi06VtsAMLDR5PWCnRn ngiTK/ECX8xnYlQk3k1Kdwh02GqP7g9Pdw6kM1E7K0lKfKUiFHOZNNvd5k7T 3RqJZ/iaJLekSplVD2q2H/THpBp996oglcmVeUEUKzxXYtPqxgg0NV7dhiGS KfJSS5YaFVbdPkL7R4Wo1ng8XeJ4nitmUrpx5YFN6lSNNgwak64qGwKem3IR k3o52cpo3tR2mPvS5+s+u73drQ+1FbG6vPZ2pV6z3nhhd6d9ztpadbl9mvi2 /sl+yq+0Ua/X1j68X5e2vf0q6Kf3K8sL80tLwlpt3fRjNAbkD2+FpYX55SWh vmFaW+oOqbbSTqHzWlpubh+FLbMB8IAbkzoML+oR7Ta5IxJQJ9ladgUbDpat g1w96k+txfmWfTHIRoWNcsb8Jikeo40CbTuriY4dTGq4hGMTtpkS6EyndhkN uytpSRV0S340f71YozWpXbEtTepcjZYc0jhBc2xMCgA4briKSRU/OO3BrtDk 1K3Pe0QTxUqF/K6I+oPgZLlHTBu+6Q+aJthYo/78N0tm9ciNsrEYmqi2JZaS pmlMcaZgcATp3oxxhrlCZH0r3dyJQsJP6nQVSSynk7oAnbhpOJlm+ZrhDqVS 1uSxSDwvWHiMzxl//DSRKVU4ZZxU/bkcsggoZvohVLrXhHaPo77VaAYmdcjX fXYAgGNHEM28URE4juN5Xqx5/QFwP2k2aqIo1mqNpmQxb7YpVrgevNCQ/rHe pFa7VBWhQ6UiNpqOE3pbzQqvlFEQjb8Do0NqCN074QXROckBcK5GLTCpQ76H +xAAAEcaNHPgFzCpQ77BVTsAIHTQzIFfwKQO+QZX7QCA0EEzB34BkzrkG1y1 AwBCB80c+AVM6pBvcNUOAAgdNHPgFzCpQ77BVTsAIHTQzIFfwKQO+QZX7QCA 0EEzB34BkzrkG1y1AwBCB80c+AVM6pBvcNUOAAgdNHPgFzCpQ77BVTsAIHTQ zIFfwKQO+QZX7QCA0EEzB34BkzrkG1y1AwBCB80c+AVM6pBvcNUOAAidGgAn CZgUAOA74TzOAAgJmBQA4Dto5sAvDmmcoIFJAQABgWYO/AImdcg3uGoHAIQO mjnwC5jUId/gqh0AEDpo5sAvYFKHfIOrdgBA6KCZA7+ASR3yDa7aAQChg2YO /AImdcg3uGoHAIQOmjnwC5jUId/gqh0AEDpo5sAvYFKHfIOrdgBA6KCZA7+A SR3yDa7aAQChg2YO/AImdcg3uGoHAIQOmjnwC5jUId/gqh0AEDpo5sAvYFKH fIOrdgBA6KCZA7+ASR3yDa7aAQChg2YO/AImdcg3uGoHAIQOmjnwC5jUId/g qh0AEDpo5sAvYFKHfIOrdgBA6KCZA78YzDjy/PhQj3MP9zTH96rkuBMXq/ve jDaA2mBSAIAzYTVzscAMt4mlhFafg0efSj7VLTZTkW3PaUkNsSLwXSqVWlM6 VnfojgGMc7A+c4pa8fS4rHlrb/GOC5Oemd+zTdzSaAOoDSYFADjjoplL2eF+ z7MYK3nMl8v0Eh0uS84HbXOPRKPxZLpUaXrM2X94q3shtPhCJh6NWJU/ns6V akfOqBJfKrbhvFesZ+PsLZ7T1sjpca0VDz7Oj98Zf2hm/OHUQwYmBQAcHdyY NNPXpJG018cun4n17MNJzgf7557MVzxm7jOW99JBElLRflU3FOOOlEylcq/I Eabs9VKPxllnOuGoEpKeMpnUgYP6tHLZGV0Y68ZoA6gNJgUAOOMlJh1mMtmM Belsgbfv17TGvUlJ7rFsLp/rwrLZDJPUOGo4XBlZm7QlJLS+TGaKnNCpa7FS LuaZOP37wDKSDY8Wp9xMmvN6qRfj7E1dVO7/hzt3lMjUrUnlO6eVax+uuo5I YVIAQGB4MOlw1kdfeTapOfcWT1XFVv5xlcodev8rZC3upaSGo9EcbxGyt2oc 07m1yNEy6Z6g3EyG93qle+Nw6TOKPNPc33+vejJpi0sr9Xpx2vVsI9VoA6gN JgUAOOPBpNGM8yNfLGWTqVSKYWvGALVVyjLdd8r0Hc8mtcq9SFSa4Y1vSmJJ E/d1RiVT2WLDUDC5xnbKlWK5hiwJLJOg45mRaDzHWVaLVM6lY+q4ZySeSpPw WFPsRpF6NGsqmy61QklfKqnMMsOaYdVoLFUUGobLPFV1rcx2bpLJNWS5UmQT w1G18ExOm0KDy6USpNKicYaQSqU5Y91Z4NI49ekflCx6k3X3F4lW3Zh0/SdS +un1gwGMNoDaYFIAgDNeYtI+JuXSivNMQZaUUcbe1OFU7zGpOfcGoxjH2EEq 5JJD1sTLWiNInPMYbLIg6tKVRcZp3FMtNk8Hd+M5D9GyxCctpiZ1k8mWtSbz VNXkZBsiKZEkzdnfHlPuPxLuxjjyPJmRe4pRTLi/6D4mpRY+9dPcYEYbQG0w KQDAGS8xabqhdGrqoOfZTryxiiu9x6SqGtqZSg2BJaFgJJHX2qpZohM7h6IJ plAqFXPaWUtJ1Y5kTJASSySZlHYENqFZ2NLKxTVnJtPZbIZJJXTDtUqx5SLp 2nUjIEIjraYVZdhCuVTMJNWCJ/JqwQeqapp2LMkwyXjUnHKtlInReDgynFCI x2PJkin6NdPXOJo1L+fm6VQh9ybdr5LB1dPl1oBGG0BtMCkAwBkvM46siWWV AbVgTWpLXB830kB1KJkX1MOySCOzBJ3rqzFpjMnXJPVkOshJ+41bQpaqKC9o 71AuMsP6YtP5xh5mEzXoHwAR3XLaWpEMC2q0PqBJI/G8pstaLKSU48NZNRmZ D2qcVF3zcnpO2zF7UFWOn3noPO65OK4dXR3QaAOoDSYFADhzeJPS5RIhmbQj iCJZltniie9irLFbtZZXHEuLQUwaNa34qLBK/JnmekGlnE8oV6eKxlFLU7HV 2c6mqrBDvc2saVuKAsk6TbQ+WFWXDCfLQpxUiBo5S0HN3VV3WvhhenW1uqhQ XSzTvYwuzlWri/PVj5ZClTkyY9fDGlKz0QZQG0wKAHDGi0mH01kjmUymQCam BmxSdRVMZyFMNsuk4ppBxVjvkhaf6f2bKRl9t7fXJN2nJLizX/FB0yEmpWFm wryRkZ8mjTAW5SazVRO5ikPt6dLpV9V2Jwe3Csbd7n/dOp+3WCRaZhSRnhmv HsZoA6gNJgUAOONlxlGfVTDBmtQy91aFIaFcjO305QpqLGl2GJmNQ7TrYA3J aNKaMhnHatqV2aS0d7fkcpi0xSvltkpf4jLkTc4mR/Xcb8CkdxaNMefB+gx5 08NGu5ZGG0BtMCkAwBkvM476zN0NeMaRde40eIwk8nvqfoPUgFqaZAg1oXSg ujcpneXryqRyIelxxpFj+s2yMoQaZwWbHNWEjqxJ2+xbcLDfKivR5qn0x4OD 9iHzddNkptHF6fohjTaA2mBSAIAzx92kspjTmpR2hFrGpLSj2HtMqhbDrEZz sdVVMObhWmuaGfvbpIO/xzomtYXO3T1jPXdXE8z+tD6wz2BSAEBgBGFS04TV VnAmbZSUCai9WUMSMWkkVTTdB4n7qA09mLRJeoaj5g5b8x5Hcq1Ax3CZsnnk U82nlO/tF0F7nqOmCU0Wgfbhq7qXu0Xdkloyz8Lqy2FNar0KRt0b8Ke5jwPr 7G+YFAAQGD6alO4AkCxoE2zxOdKr6vc4qVQp0Im9Ss+nRBe2RPKibm5QiRQv ypRI0dybdK9Edi2IMjpHt8QSWWaqLbZcUDdZiGTLFjUs1cqpTomU3RV4RcdD kWReV+5Gie46RCV7+KrW1a0uJiUjtlZzn5wZ0Dh76h5H5plGH0nP9tCptPcl pBZGG0BtMCkAwBkfTVor0J2FIkyuxAt8MZ+JaTftOdTc3eEMq5DNZtJMKq7d Uy+SqqmJULtGMkVeaslSo8KqWxxogj4vJpXFvHofiQwnVPhyIa3ZOcGoKkm3 7UM0nsoVy0Kl8yOlpTybjNGNEUhc2VI3XIrEM3xNkltSpcyqB1Mlmvbhq9r+ k1XX4wyncnylInDFDJMu+7dboJH9VWXfonNTpph0b4qsQb1jNaF3AKMNoDaY FADgjBuTOgzh6RHtNumjj3fzboFlK5Nqf5+0/2+6RZP66UUNw6Y+WlLaDQCJ vNyYdE8T1dpg6mttcImI4xUd4jwJthvljP09MvoI+7BVratb/eCvWLBI26/d AkMEJgUABISrmFR5Emf7mbQz4ydlsE00UaxUlBQ0PwhOlqvEtIGS1UGSu4lI JBpLpHIl00YG3atKWZMOIvG8oNcB6cmMmfbzoTsa6ffGl8umZFNsqZjuFVF1 orYk+h3vVYZjSbZo3N2+JZaSpr1v40zBQmPuqzpLatVYPIlVTjZ8sjLHpvRJ O+/DrwCTOuTrPjsAwLEjiGbeqAgcx/E8L9a8/gC4r7SaFZ7rIYgueifdITdr 3VR5XhAl14m2pGZNrAgdKmKt0XK8sClWlHLzQsMxjwCrutUUO9QajaZzaSkw qUO+A34KAIDjAJo58AuY1CHf4KodABA6aObAL2BSh3yDq3YAQOigmQO/gEkd 8g2u2gEAoYNmDvwCJnXIN7hqBwCEDpo58AuY1CHf4KodABA6aObAL2BSh3yD q3YAQOigmQO/gEkd8g2u2gEAoYNmDvwCJnXIN7hqBwCEDpo58AuY1CHf4Kod ABA6aObAL2BSh3yDq3YAQOigmQO/gEkd8g2u2gEAoYNmDvwCJnXIN7hqBwCE Tg2AkwRMCgDwnXAeZwCEBEwKAPCdXjP/C4BvHZgUABAQMCk4IcCkAICAgEnB CQEmBQAEBEwKTggwKQAgIGBScEKASQEAAQGTghMCTAoACAiYFJwQYFIAQEDA pOCEAJMCAAICJgUnBJgUABAQMCk4IcCkAICAgEnBCQEmBQAEBEwKTggwKQAg IGBScEKASQEAAQGTghMCTAoACAiYFJwQYFIAQEDApOCEAJMCAAICJgUnBJgU ABAQMCk4IcCkAICA8GLSr1/kL/vmo1b4/BB0yf7mq8LT59yquZAAwKQAgIBw b9LtP6cYhpld/aI7+mX1LmNmdOWLdSIbf87ef/R8w7VpvZ3fK8ytWdlt8uAE AZMCAALChUnlCvdi9mm258jZVb2mvq523hjNTqk8uv9o1s59q8/vOnj2sOf3 CnP3uevkwQkCJgUABER/k35Z0UabZpPe7bjrncunWeNF23V331l0v+5//fLl y1fjGw7n73/dNx6GSYE9MCkAICBcxKRf3lUWFyuLs/dvHdKkG/8qjHbSYO7e f9Qme7/Q6Iaum5UXd28ppr51d6qy/dXh/O3Ki/t3R4nYb2UfFVbI+X1N2nhV eLW646ao4NsDJgUABIT7cdJueGhtUubRq8ZGo9HY2N5xCgcbrx4p/hvtcOvW o3df/tr811Tv4KOnhaePeoOut/7c3Lc7f7XQkevo3WzHrYpR767ISmGcTbo6 e6tbWExJOonApACAgHBv0nfPrUz6ZZXGh2S20dTKjq2pGi86IewqHUXdb9zv qnBxW7lk88+nnQP3/7VveX7blvKOrPnnymynVIWeSvuZdF9+97Tr6lv3n2+G NL8YhAVMCgAIiMOadH/7z1dcZWW1TWXxX1NKL+3Upo1L3z3vmpGo7su7Fx33 FiqaU3YKHTc/auxbnN/LcmPlz+dPp+5n77bD1Fu3NKO3rsZJ91df9ELd+w3I 9CQBkwIAAuKwJjWy/fRWt7vVRmYmkz7vqm9Vc4rc7b5VNGcy6c6LLIl9s/en nhae3h/1ZtKvmy8edcPo7AuMmJ4oYFIAQED4bdIvs6MuTEqCwZ5JR2d1Ju2m cP/dV4vzvzZedKcZafpmN165N6n8juv1RWOo9AQCkwIAAsLrjKPn+i7RnXcr G7Iqpa8b/+qqSjeyqaVrRobbIJf03MfcV6PU1efdgPHVV6vzv6zOdlJXzft1 5cV99ybtzla6+68Gdm44icCkAICA6G/S/W1u9mlhttDtRm3Hg1OzhacvFjd7 b/Zm0t599LRQePp06n5vlFTfW6tj49X9Xiqzz2cfZZ925uLO9ubrZp9zf3LP lXm8z0nkazi/tv5nL4t2KV48L2TJ2hnFpL09jkaf25lyc2WxgbWmJxWYFAAQ EP1N+vUdGZnUzM8lUeHmn4Vb+remXqw4TeTZ335+n17RGwD9Wnn+SJv2i8q2 w/ntHDXnPmobvmveriD3G4+6A6CwJTADkwIAAsJ97649+1/kne0OO6Y9iqz5 IsuGDY3aSWxvdpKw2CLffP5XuZOZDGECD8CkAICA8MOkABwDYFIAQEDApOCE AJMCAAICJgUnBJgUABAQMCk4IcCkAICAgEnBCQEmBQAEBEwKTggwKQAgIGBS cEKASQEAAQGTghMCTAoACAiYFJwQYFIAQEDApOCEAJMCAAICJgUnBJgUABAQ MCk4IcCkAICAgEnBCSFckwIAAADfBjApAAAAcBjCMqn77AAAxw40c+AXhzRO 0MCkAICAQDMHfgGTOuQbXLUDAEIHzRz4BUzqkG9w1Q4ACB00c+AXMKlDvsFV OwAgdNDMgV/ApA75BlftAIDQQTMHfgGTOuQbXLUDAEIHzRz4BUzqkG9w1Q4A CB00c+AXMKlDvsFVOwAgdNDMgV/ApA75BlftAIDQQTMHfgGTOuQbXLUDAEIH zRz4BUzqkG9w1Q4ACB00c+AXMKlDvsFVOwAgdNDMgV/ApA75BlftAIDQQTMH fgGTOuQbXLUDAEIHzRz4BUzqkG9w1X602FlmU5duXLk0+WIl7KJ8Q+xsfagt Ly/ML/zx+9KCsPZ+/fPh0tvd2fm8s7PrT+F8YO3X0fZ35kZqbI2UaXdnS9rc lDa3jk4hnTlZzRwECUzqkO8A9Sn98eDH77/rvFK5TwNcHwrb8ze6Zb7OzodV hM/vhTevXr7h5qXj8hS2p/7HLxOp88rXQPc6P/mrMOD97QrpbiKPF7bMb35a emCVneF1bXnncDemZ3nyUjfZSwvbypElVrlry0IeQWBS4BeDGUeeHx/qce7h nub4XpUcd+Jidd+b0QZQWygm3a3NXqUPrssPJK/Xh8XOfO8pfSM8k5KH8Hn6 WD62bD6+4GS0G+zv3tPcesMmiaQ2zW9/WphwYdJL/tbt8mSvSJeWqEkVt343 +YdFIY8gYZlULDDDbWIpodXn4DeF3GrURIHvIlRqjea3dKMDGOdgfeYUteLp cVnz1t7iHRcmPTO/Z5u4pdEGUFsIJt1WfERNemxi0iNgUvNj+diyNX259wW4 Nj0zt/x27cP7teU/5tjUWRqZ8i49s7s2PTpybyR5VfO9sjTp7vvfp9kHz57k jK/JXPHJ6D9m0vqLB/du3rx3c5R/72v0GxgumrmUHe73PIuxXv9m5jK9RIfL Up+DGlpsnGYZKdRk65NqfLFNiWtavx8OrRqXScYjFnUXiSXTJeHIdQsMUI2e jbO3eE5bE6fHtVY8+Dg/fmf8oZnxh1MPmW/apGtsJxJRnpZXj4NJd3dlpadx dzl0k4pPeo/l5PKx792V+cmx4h9rpuObz1JONrRg+/erptDS7bWE3be/KIlc 8aOTpP2d2VUeLuQjO8Z//LgxaaavSSPppsd8+UysJ01O6nNQpVmKavIczvCW KXPp3llRGx2HgJBP9atB29sJiwGq0aNx1plOOKqEpKdMJnXgoD6tXHZGF8a6 MdoAavtnTbpVHFEedPfYifRhY1JZfJWfHB1JXzlPHqRnr1++dHt07Leluu7E 3XpxfJQdGy0urO9uLxfHR66TfsWrl6/NLdQtU/9c+/3xqBrmXL1y7TE78qPJ pB/+yLdTZsfyHzoZbS69+uXx+Fj7yCT7ywciu0+115Mjl9Tn/IXz7JOXTQsV du5oYuTS1Qvkdq4kJ8Zz/FK9e259jh29QRJp3+bkePc1Nvp4Zl6b2BqXv3fl rJrd5eTjX+cN03iUYo//0tyV1161z6fjlWdvj6sl17G50q46rbPSNyeWAoiq iHrc23Br4ddf5mZmX/4692zs0kAm3Xx8WbmpZ9XDjF1uLcxMpC+fVStzbGJC SVk1aVP5zuTqpnp29VUZ6Pvs5lthh5eYdJjJZDMWpLMF3mv8N4BJK7n4kJZI yrLcfXT8j1PJJTRljmVyRUHs1HmFL+ezDP0jZTjNhV1SHQNUoxfj7E1dVG78 hzt3lMjUrUnlO6eVax+uuo5Ij4lJ+XHlEXF9/PXe3vKhTbrlMNCWntSMspGZ QnaviRfGyKj+asxxCE816RLbu6mz0zM5Xa81GcoUZ27apHNtYUP7aFmfTtnm 2PHC9u/XbYs0Rr7I9WcjZ63PuTKhfW6TYtu8LowaHvLNP3LmuK/3mnxljisP Q31SUc/ZlzZdcw7sVnMDmLTJkY975JfBZw7vrpGSW74046RK5RsHu91+VTx/ n91+K+zwYNLhrI+Det5N2kiTiJT2kWYFi/OEbC+RmGe7B0GjSOPoaDJnFbm3 uFwnYo0w5X+8cE4MUI3ujcOlzyjyTHN//73qyaQtLq1U6MVp17ONVKN5VZun +3LI101GazNKQKdM1t0hT4NDm/Tq5XbgNvHs5/yzyQntX91z9Dm8ox+Z7QRT NyfHbmrENLKmeZ58fpvXOCX5+Elumh27p5llqjUpGQUzvzrPSYlTjXz95thv 3Os3Mw80j8GbNH6gs1DaF7KT+d9ezc09mbhNbqfjhd216ZvXqM5upK7duznS ft0eSU5Mvu4Wf4eG/O3n9vTMy+WqwM9M0Nu82vkDxqbYnTocmxhR7/Her+rT +HNVrZAbow/eLAjLC68f36Qnux7QdKDTHbpVX3o5cYWUduzlAMnQ2bleTLo2 Yf7OeGZnTq3879KjE8+ePJgcG9F8x1STWg52u/+qePw+e/hW2OHBpNGMc3Qi lrLJVCrFsKaabpWyTPedMn3Hq0llMUci0WKtnCb/XzLcTS6dolFePMkopFLp HKcplFRmmWHNmGU0lioKDWPNlNlUp9C5hiwLhWycXhAZTrGlXgEbQpFJqClF YwzX0N18iSEijWUdaq8llku8rgCSWGLiml71SDSVLTYMFSuL2U4RU2zZ+Am2 2pe3P4wkU6bXyDWW6Z7cLqIksEwiSm8oGs9x2hRcVqMRl8apT/+gJN2brLu/ SLTqxqTrP5GCTa8fDGA0T2rzdF/O+fbNRfqDzJmkwQ59Ghyid7e+NL+2Yexd XHpyTXm8PBGUQ5onT3p89gN9fO2usSSImF6ifXo7RRIbXh+d1ZZt9/3L644m vToyxlfXPu3sfNpcX3tb/7y3Pkmi5olflzUJrT0mvrj3a29p6qYy/eb7a4bR NKn2euLy+SLpcqSDbuZxUiqRqzfzuj9rd5bvKSVM0vUdarEvXHup6Q+svyAT b67Q1Ulbz5TSnn22sK5NWCR/HalVPRBaUyvV9eT3wWLDAUxK/8a7Ojo3UJ4d PpNYuP13xUtd/7D8RumKcTap+6+Kt++zp2+FHV5i0j4m5dKKcU0ja1Km5xPN cKpXk5LEh9Lt92Q+Rh7zgvbJLpW1A6l6GCVriU9azfvppJUty1Y5WhJNZtl0 zPIdVXgtnibBVjwE9EIuaZNtvKy1qcQpNW6KZyUSuDHlpuFkO5IF0UM1WuHG OPI8mZF7ilFMuL/oPialFj7109xgRnOvNk/31Tdf5yw0a16S6uPNB5OaMtrd +bS9Jb2dM/qO5HV93LiwYu3na4YH727tFyr9D4azrebuUiWZt2v4vESerqm8 0QvvSZ0ot781rTww+yxmpA9h0/xS+geAxdRTGu/QBYw0Hd5w8u7ybVKw3oOK au6GqfbafwAoz/8rh/oQzYtT2J9fDzZ+5dmkO8JtYsA3GwNl2UF+eVPpPWBf rRveM3vTfMTLV8XT99nbt8IOLzFpuh01ySboefYetIhqPZpUJGpJVDoZygWi Q6akCeVkMZNQ58cOx+KJLvF4LJkpdQuqdhF3/MMWyqViJqkaJpEXTYWhp8dT jDYApUTiyRSjmZfbjpqV4tQKSm5RDzOymiVGzTPBFEqlYk475yupFrHFKfVl GmOV+Ezv7DTXNJxMiSWSTCqpkWavbt1UozV9jaNZ83Junk4Vcm/S/SoZXD1d bg1oNJdq83RfbvJ1ykBd83L+N22HDllB3459DrOnjVSbL7Kjt69cMo/imU1q nnP72fTgpY/iezOmjYycTGrxhz1NfJIzPl01U1x6HXE07msb/NLjmZfLb+uf diy+j/arYNQUJiYNqzzyk6bZsP3TIc9tehc/Xr5Z/Nlm5cgh/xzaXvtt5pd2 4o/HNV2UVx54neq5592ktFP9uotOTnvoH0K6YYIe7kzq/qvi6fvs7Vthh5cZ R9bEssqk0+BMSr0QZZTuXIlTjgzFc4a2RAb4hs0DfA0qqYhuyWqtSIbeqE20 Jo3E87xaRSV1ltBQPKMGoLKYN3iTFtLLbKIGQxyWzGu6g2SRhsiJfEU5OKhJ Y0y+Jqkpp4hNM7xa7w7VaEcf46hrXk7PaTtmD6rK8TMPncc9F8e1o6sDGs2V 2jzdl7t8HdJXw42bv4hVYWlhvvsSll7R3Wau/bYkLP0hfOiYaOflWPJGKpm2 fV1Kj/5Cex1/G3OaNuPGpOYHL518ounv3XNIx2GBp6gGCOa/+clqyu+TvQs/ 0ahE87p6+RI7Oaedummb3S7trHN6DWBSdYDb4XV5otu6PH18Nmjm7dw2/zHT D28m3XxNxG25htT97ZBZUlaxuRuTevqqePg+e/xW2HF4k9KpMsGZtEgi0Cz1 n1whM2KHy/o/y2gi5k5meiNZ09YPhYSSRZrYxC6dlpBVhGnsU23RSc698lOd uTdpi88S27HGItbyShFpNQ5kUnNXcIUs01VPdqpGW5yNo+608MP06mp1UaG6 WKZ7GV2cq1YX56sfLYUqc2TGroc1pGajuVGbp/tyma9D+u72Z+v+Nd7Z74U+ NOxfF3oP7b3lJ+oA5fWR0eKvL5eWltdq6823Sm/YYCalQYrF48WjSZ2Sov2i 34+IJJhtLv1y2/r2rzlPVumgmc+ZHhvrLrIwviZGR9/UdvoV22hSzSzf5OS4 RbLs2E32yetux4KHj88BGlgNsG7Xk0nfjCmTpm5MWo7zur4dWvmDmtTbV8X9 99njt8IOLyYdTmeNZDKZAq88foMyaYuMiur7SGnMqO2SdVWMCGOcXdT5M1sJ SxO5Sp90bP0l+WFS5RJdrzUpI+maJoHzQCY1n9wynxzAKhh3u/91izFvsUi0 zCgiPTNePYzR3KjN0325zNchffcm7f41vvOGvXn75sjE6E3r182Re+Nz3Yd2 nSWLLp/9oV9AtyMYnzNeTOr0KPZoUonE45aBBul2Sxou/LxZFxdezz2Z0M4W pjv92mdH5ixdybnZs8G9SeldPKv27cFx//E58WnhnzDpbm2W/qFiMzbt/nbU SjM/UdyY1NtXxcP32du3wg4vM476rIIJyKSNIt3WIFXiyqUe5XKeTouNZqwM azYgr4ReVlOn1J7YDNcvHVslGS6haZrDQDsENTy0KKMycWsoprzpk0ktTg7V pHcWjTHnwfoMedPDRruWRnOjNk/35TJf5yw+d3+bQ/+SP28o82B/vDD2YVdu H3Rf5g5qFGAaZt09nEnJM+36mGngzJyyo0lpUhYLOrbVRUAO30FpIa+M/5J1 jupMIaMoaAB1du5t/0EL9ybV9M/P/jP7KtGZMEGaVF20MkAfsgk69dpiQZB5 jyNz5Xv7qnj4Pnv7VtjhZcZRn7m7wZi0xVrOkNURyddcTHyik1etTNosK0Oo cVbok45rk8q1AumPdTvjiOyXqJMaLSMZQk0ondPHyqRt9i042G+VlWjzVPrj wUH7kPm6aTLT6OJ0/ZBGc6k2T/flJl/32anQubuDTfskgadunV33jaUnpp2I vJh0jyr++0tv3msfPlv85DXzE95pI1x1tpVxkwGe1U902V2bTI28XDLNNqGr bolJRbLGxzxHlI61/Xh51DzvZXdz+fHomGhcBdPfpHs7ZDZvO1OLn5OTxRcT k95ltFubuzf6QDQtYtKszvgu/fOy9p3lzr2f7WwAdWXC7plDV6NYDHNr0HSV 3LTeEsgj/Ph58oHqVPi59prUnuMqGPdflT1v32dP3wo7jrpJNTsbOKDdas++ GM2M/Y3QAUofY9L2mXSE2TwyawntZLaMSUnv8bGMSW2hc3fPWM/d1QSzP60P 7LNjbdIBp32qkxKvpkbfLK3U3y7zv+bSml2PBjRpZ0UDTeT89Iv5tarw288T NyxT7rel/LK638LZ6VfCpx3508ZKcVTdhEFZeUF/ry01+pKb/7Cx+Wl7s159 PUm2c7/9s6IqdSbt98kiJ6y9XX4z8+Dxz93dAndXNNNLLk3/+nqtVm92t4V/ PGpcO+PBpPpJRzdGH/BLKx821utvhTczE70KH+Bn5tQu3JHRuRevxbdr9c69 TGj2Irimf8KrG/qZugvk+pKwtCQsV5d58nfUvSevxaqwvDS/XDXv4qMmNfHC F5Fq+4q/u37zwVJ1pVvt2hlxfXZmcPtV2fP4ffbyrbAjCJOa5qi0BjYpnQwT z3KtlqSn1RRySpSm2TmQJlIy/k1Ge0ejRdMgpDkY9MGkmtU6vTVEdkiVUoHr vE/XgdKlNJqTiJdpb7Z9SWQyLerwJjVVoy2HNan1Khh1b8Cf5j4OrLO/j6NJ 3XVvOqDu9mDz0pr0hgeTtsPS1867sVma1OZx5LQHIEt3dXPaCfA7/doKdUMe 9UWm8Xx+O+dY8vNmk5qKTRZ06D6Xnd/GnaZJX7VYatqHvj9w9szQPavOsz37 8r2+o9K59kxznD68Iot3LowNsNDGDt55A0arP2P0le/uq7Ln+fvs/lthh48m pVsZJAvaBFt8jjFOOnVrUrr808J9XZpEjurOgUJWkW/KdA2vrOwYiiTzuu9Z o0SCRzUjP0zarl/SwdtZTJO12mdLKmt3C5ToWpVIXtRvl0Sqly4FUt2q34JY bnBMjExFHtSkDtVox4DG2VP3ODLPNPpIet2HTqW9LyG1MNoAagsvJiWdeKn8 wEsR668eGJaRXh+ZWKoq/WmaPY6U1fdp0xRNu87A3Y3fJwzzNq+M8gtzaUPK andrcsm2i2yLf2LaT/XCtZdVrSl2RM7yZ6/P3mNnP+hTbpeNvaI/Tftr6bv1 l+yIxeradujHLdMxZftibylr+U2/wP5hYVa3BbpyI5fYyV8sOmn7slP/7cmY ZrN3zYeYGlswbYyvbqZn3rtgx3Gth3H4YIvuYfXY558HlRdMHzT782vyk6nq vCbS42qcbObuqzLI99nlt8IOH01aK9CdeSJMrsQLfDGfiVGReDcp3SHQYas9 uj883TmQzkTtrCQp8ZWKUMxl0mx3mztNd2sknuFrktySKmVWPajZftAfk2r0 3auCVCZX5gVRrPBciU2rGyPQ1Hh1G4ZIpshLLVlqVFh1+wjtHxWiWuPxdInj ea6YSenGlQc2qVM12jBoTLqq7Ft0bsoUk+5NkTWod6wm9A5gtAHUFppJ/WJ3 c22ps0x1ubrS3PT3d0nkD2+7KS8J9Y3D/D5Il512OXtraefF2rrd1J3dna0P tbW16rLYfr2tf7Kf4iNt1Ou1tQ/v16Vtq7vebaez0k5k7e1KvWa9ycNgfNqs d4r3dmXt7dqHja3Dz0H6vL1Zf7vcruT2S3y7Jm1bF5UnK1a8/lzaP8zuZn25 u2J6ubrm8PE54e6rMlDhBvxWuDGpw/CiHtFukzsiAXWSrWVXsOFg2TrI1aP+ 1Fqcb9kXg2xU2ChnzG+S4jHaKNC2s5ro2MGkhks4NmGbKYHOdGqX0bC7kpZU QbfkR/PXizVak9oV29KkztVoySGNEzQn16TgREAWPZm3cATB4yomVfzgtAe7 QpNTtz7vEU0UKxXyuyLqD4KT5R4xbfimP2iaYGON+vPfLJnVIzfKxmJootqW WEqapjHFmYLBEaR7M8YZ5gqR9a10cycKCT+p01UksZxO6gJ04qbhZJrla4Y7 lEpZk8ci8bxg4TE+Z/zx00SmVOGUcVL153LIIqCY6YdQ6V4T2j2O+lajGZjU IV/32QEwCO/nej2T92b8/QU34IogmnmjInAcx/O8WPNxsNozzUZNFMVardGU LObNNsUK14MXGtI/9gNsrXapKkKHSkVsNB0n9LaaFV4poyAafwdGh9QQunfC C6JzkgPgXI1aYFKHfA/3IQDQhw+/9mbk9v/VEhAEaObAL2BSh3yDq3YA2uxu 18XOKKp5d3fwT4BmDvwCJnXIN7hqBwCEDpo58AuY1CHf4KodABA6aObAL2BS h3yDq3YAQOigmQO/gEkd8g2u2gEAoYNmDvwCJnXIN7hqBwCEDpo58AuY1CHf 4KodABA6aObAL2BSh3yDq3YAQOigmQO/gEkd8g2u2gEAoYNmDvwCJnXIN7hq BwCEDpo58AuY1CHf4KodABA6aObAL2BSh3yDq3YAQOjUADhJwKQAAN8J53EG QEjApAAA30EzB35xSOMEDUwKAAgINHPgFzCpQ77BVTsAIHTQzIFfwKQO+QZX 7QCA0EEzB35xvEzqlUPmG/aHAwAIEDRz4BfHy6QDXHiYfMP+cAAAAYJmDvwC JnW4POwPBwAQIGjmwC9gUofLw/5wAAABgmYO/AImdbg87A8HABAgaObAL2BS h8vD/nAAAAGCZg78AiZ1uDzsDwcAECBo5sAvYFKHy8P+cAAAAYJmDvwCJnW4 POwPBwAQIGjmwC9gUofLw/5wAAABgmYO/AImdbg87A8HABAgaObAL2BSh8vD /nAAAAGCZg78IjiTHuy16tXF+fn5xcXq+kd5sERgUgBAQKCZA79wY5z91YdD jpwZX9RdcLD+8IczxpNO/zBX3xvMaH/DpAAAvwmrmYsFZrhNLCW0+hw8+lTy qW6xmYpse05LaogVge9SqdSa0rG6Q3e4Mc5eddzZpKfTWpN+TJ+2O/HU3PrB AEb7GyYFAPiNi2YuZYedH35DQzFW8pgvl+klOlyWnA/a5h6JRuPJdKnS9Jiz //BW90Jo8YVMPBqxKn88nSvVjpxRJb5UbMN5r1hPJj3z052HJsbH70zPf6Qn Vx+eI7V1bnp+tf13Sqs+f+fcKSLdcU/9vDApACAg3Jg009ekkbTXxy6fifXs w0nOB/vnnsxXPGbuM5b30kESUtF+VTcU446UTKVyr8gRpuz1Uk8mHa/u91PQ +k9KFZ2a0YWfHxni0mkvYSlMCgAICC8x6TCTyWYsSGcLvH2/pjXuTUpyj2Vz +VwXls1mmKTGUcPhysjapC0hofVlMlPkhE5di5VyMc/E6d8HlpFseLQ45WbS nNdLPZn0zmKfgPJgfVrx6A9zBl+2ykzvrYtTq16N9jdMCgDwGw8mHc766CvP JjXn3uKpqtjKP65SuUPvf4Wsxb2U1HA0muMtQvZWjWM6txY5WibdE5SbyfBe r/Q3Jl2f+clOlwcf55So9MxD9xOPYFIAQEB4MGk04/zIF0vZZCqVYtiaMUBt lbJM950yfcezSa1yLxKVZnjjm5JY0sR9nVHJVLbYMBRMrrGdcqVYriFLAssk 6HhmJBrPcZbVIpVz6Zg67hmJp9IkPNYUu1GkHs2ayqZLrVDSl0oqs8ywZlg1 GksVhYbhMk9VXSuznZtkcg1ZrhTZxHBULTyT06bQ4HKpBKm0aJwhpFJpzlh3 Fngy6bnxucV5rs38YrW+3to3ddMujp8hzjXZcr+qDKB6GSqFSQEAAeElJu1j Ui6tOM8UZEkZZexNHU71HpOac28winGMHaRCLjlkTbysNYLEOY/BJguiLl1Z ZJzGPdVi83RwN57zEC1LfNJialI3mWxZazJPVU1OtiGSEknSnP3tMeX+I+H/ P3tv09tE0v975/1Y4h14wTqLaFZeDLOwBCwskNCYBWAJiRZS8CLCIUhOpBii WAGjzHiUWJNYQc6gnocOyI6cKCbxH49JrNAEh7tzx3fO8X0uzvlz/NBV/dzu drrpBH8/ii5dY1dXVVdT/vhXT7ZlUg0Xbj9l5crcnBRtqTMO3CzApACAs4Od mDRaFQc1FdB0hgtv9OJK+zGppIZWoXw1nyChoC+UktuqlmXop7M/xKSz2UxS vmopLNmRzAlSAqEwE5HPwIZkG1vqyaAsZTgaj8eYSEgxXStWW8iQoV0rAiJU o1JefiaRzmUzsbBU8VBKqnhfTU3zDoQZJhz0a3MuZ2MBGg/7hkMiwWAgnNVE v1osmbQwPmTCjXk65mtm0kZBjFcxugsAOAPYWXGkTyAuTqi5a1JDgsq4kQaq Q+FUXnpZKNHILETX+spMGmBSZV5KTCc56bhxPR8naf2pvPwOhQwzrKw2XW9s YzVRlX4B8Cm205YzUVKupPU+TeoLpmRD1qV0RHx9OC5lI3CuzpN+bezmlnOb 25UP9brQ/lJUr2yy41elXaO3F3a7CWFSAMB54fQmpdslPDJpWxAZsi2zzhHf BRLqYdVySnQsrQYxqV+z46OYEOPPKNsNKoVUSLw6klHPWmqqLa121jSFEdJt xjXHUqRJ0VGi9f6aOqtKLOSDpEGkyJl3d+2uETlGlOnF6Fr3FYujuzApAMBz 7Jh0OBpXE4vF0mRhqssmlXbBtDfCxONMJCibVAx0L6lzse5/M1m17xqNGhk+ JcGd8Y4Pmg8xKQ0zQ9qDjJw0qY/RqTcrhqWhZNGk9RT59Gpqo8Ru74IxRGBF lZIwEyuOAADnBTsrjnrsgnHXpLql14sMCeUCifZYbl6KJbUOI6txiHZNrMGr TVoWF+PoLbvSmpSO7mYtTpPWObHeevnzbIy8yRqUKKU9ryalcrwqTpVKu2Dm K6q0X3YXsAsGAHB2sLPiqMfaXZdXHOmXToNHXyjVkM4bpAaUUyNTqCFxANW6 SekqX0smFdJhmyuOTPOvkYMIgom8QYlSRufUpHRN74Xb4jkM9GSGoRsLqi0y H5ZFyV7CyQwAgDPAeTepUErKTUoHQnVjUjpQbD8mlaqhVaO22tIuGO10rT61 mPFt0snfcx+Tftl9yoyv7WriyC8VegCgTI4WTgus9DxyUG20rzApAMBp3DCp ZsFq3T2TVrPiAtTuqiGemNQXyWjug8R91IY2TFojI8N+7YCt9owjoZymc7hM TjvzKZWTTXXPi6Ajz37NgiadQPv0Td0tXadtSStpV2H1pLdxyJrbi5duzy2w m5Xd3d0KuyCdUz80dHVb5kz5CfZzbPsE+w+Vtah0gv04TrAHAJwFHDQpPQEg nJZnWOeSZFTV6XlSvpimC3vFkU+ebmzxpUqKtUFZUj0/kyVVs27SRpacWuBn FI6ul7Jkm6m82kJaOmTBF8/ptDBfzkXaNRJPV+BEHQ/5wilFvatZeuoQlezp m1rRtoqYlMzY6q19MseCSdcMfyStw9NNlRtNflVtJPcBv6oGADgTOGjScpqe LORjklkuz2VSsYD80J5Trd0djiVE4vFYlIkE5Wfq+SJlKRNqV18sw/F1ga8W E9IRB7Kgz45JhVJKuo9QjM0XuVw6Kjs5Qa0qXnHsgz8YSWZy+WL7R0qzqUQ4 QA9GIHFlXTpwyReMcWVeqPPFXEJ6MZKleZ++qY2frLQfZziS5IrFPJuJMdGc M6cFCrmnzIieHC9eiq590Buq/bL79Lbml75HmIJgT6NfYVIAgGtYManJFJ6S ktEhffTjXXtaYE7PpPLfJ+39m27+sHJ5UVV1qI+ciPwAQCIvKyZtyKJaAzRj rVU25DO9ok2QI8F2NRczvkdGGWGftqkVbauc/C2ldfJ26rTALs2GsFvZ3uyy Xak3emjxS6PeSV5YW1vbrNRPY7SvMCkAwGksxaTiJ3G8l0nbK34iKtv4Q5li UcxB9oPgZLtKQB4o6b1IStfg8/kDoUgyqznIoHNVNq7RgS+Yyit1QEYyA5rz fOiJRsqz8YWcJttIIpuJdqsoOVFeE+WJ9xLDgXAioz7dvl7KhjVn3waZtI7G rDd1nLSqunp8QkyserICm4goszY/h1/klMZxG5gUAOASbnTzajHPsizHcaWy 3R8Ad5R6rcixXfIlC6OT1hBq5U6uHJcv8ZYzrfO1cqmYb1Mslat10wtrpaJY by5fNS3Dxaau10ptytVqzby2FJjU5HKHnw4A4CyBbg6cAiY1udzrhwMAcBF0 c+AUMKnJ5V4/HACAi6CbA6eASU0u9/rhAABcBN0cOAVManK51w8HAOAi6ObA KWBSk8u9fjgAABdBNwdOAZOaXO71wwEAuAi6OXAKmNTkcq8fDgDARdDNgVPA pCaXe/1wAAAugm4OnAImNbnc64cDAHARdHPgFDCpyeVePxwAgIugmwOngElN Lvf64QAAXATdHDgFTGpyudcPBwDgImUABgmYFADgON58nAHgETApAMBxut38 PwB878CkAACXgEnBgACTAgBcAiYFAwJMCgBwCZgUDAgwKQDAJWBSMCDApAAA l4BJwYAAkwIAXAImBQMCTAoAcAmYFAwIMCkAwCVgUjAgwKQAAJeAScGAAJMC AFwCJgUDAkwKAHAJmBQMCDApAMAlYFIwIMCkAACXgEnBgACTAgBcAiYFAwJM CgBwCZgUDAgwKQDAJWBSMCDApAAAl4BJwYAAkwIAXMKOSU+OheNmn+9+E5r7 q+kXS+y2x9UAZxKYFADgEtZNevB6jmGYxe3jPt6l7L1enJ5Z2jux+ulnL/3x 9qNWJR4sClazBwMETAoAcAkLJhWK7MriizjTYXFbsPOumu2lluvGtnr4tt/0 J9vtejxaspw9GCBgUgCAS/Q26fEWI0PtSvN3NVRXWq579E5n+LV5cnx8fKJ+ wyR986SpfhkmBcbApAAAl7AQkx6/KxYKxcLi9AM9V5q/q2Dv7/RYOxXzaHqm RXw6Xe0M2+4XVx49EF384NFc8eDEJP1BcWX60RhR94P4THqLpO9p0upqenX7 sPdnLvgegUkBAC5hfZ60Ex4autL8XTHN6ozov7E2Dx7MvDv+z/7fc90XZ16k X8w86r7/er9plH473Zbr2KN4262iUR9tdYvtZdLtxfa1M6tYkjSIwKQAAJew btJ3S2auNH+XUl1pufLRNl1B1KxOd1RYOBDltv/6RfuF6b+buulbthQOBdl/ bi22y013VdrLpE3h3YuOqx9ML+1bXvUEvg9gUgCAS3xjk75b6piRqO743Uo7 wEwXZUkO0+1Ic6ba1Enfobm39Xrpxdx0/FErTH3wQDY/a2metLm90g11p6uQ 6SABkwIAXMJrky511LctSyJ0hm9FzWlMergiLhNmxuLTcy/SL6bH7Jn0ZH9l pjMoHF/BjOlAAZMCAFzCG5OSYLBr0rFFhUkX26Kbfneik/6kutJZZiQbm91b tW5S4R3bnVnFVOkAApMCAFzC7oqjJYMhUfN3KR0zMuwe8VjXfcy0FKVuL3UC xtUTvfTH24ttVUrmPdlambZu0s5qpUd/V3FywyACkwIAXKK3SZsH7OKL9GK6 M4zaigfnFtMvVgr7lt7VsLc63U23uLQ4E3/RXou72F2vG19iX7NL4jreJRLb qtKXd193t8u0yllZSsfJ3hnRpN0zjsaWjEy5v1WoYq/poAKTAgBcordJT96R mUkJaTzW/F0tzYOlaeI/cQL0pLg0I796pXhgkn7/dVqWdqbl8I55O4JsVmc6 E6CwJdACkwIAXML66K6DHAuC6kCj5rFwsH/QQvcQfHX6E6GV8lCAMIENYFIA gEt4YlIAvj0wKQDAJWBSMCDApAAAl4BJwYAAkwIAXAImBQMCTAoAcAmYFAwI MCkAwCVgUjAgwKQAAJeAScGAAJMCAFwCJgUDAkwKAHAJmBQMCDApAMAlYFIw IMCkAACXgEnBgACTAgBcAiYFAwJMCgBwCZgUDAjemhQAAAD4PoBJAQAAgNPg lUm9HnwCALgIujlwilMax21gUgCAS6CbA6eASU0u9/rhAABcBN0cOAVManK5 1w8HAOAi6ObAKWBSk8u9fjgAABdBNwdOAZOaXO71wwEAuAi6OXAKmNTkcq8f DgDARdDNgVPApCaXe/1wAAAugm4OnAImNbnc64cDAHARdHPgFDCpyeVePxwA gIugmwOngElNLvf64QAAXATdHDgFTGpyudcPBwDgIujmwClgUpPLvX44AAAX QTcHTgGTmlzu9cMBALgIujlwCpjU5HKvHw4AwEXQzYFTwKQml3v9cGxwdPiR 39/n9z8e9XV5ZWXi/s1r9yNjpUOHKwbAmeXcdXNwZoFJTS7/xs/i87/5P1df /smu8fZ1uJ64/PNPP7T+nr352EfR67PXOpdfe3PQx9UAnEtgUuAU/RlHWJsc 6nLpaUP5VnP76ZApI5MFu0b7OhgmJTa83IfOiAp/mP1nv4+iN2bDXZOuw6Rg YPDKpKU0M9wiEMnXe7z4XSHUq+VSnuuQL5arte/pRvswzpfdhQvUixcnBeW7 jc1JE422r4jCpPqcRmeVlSePR0cfj45x//YzPguTggHEQjfn48Pmn2dDQ4EE b7NcNtbNdDjH93hRRj0RpEX60mVBP1GZy7TIsjX9972hXmZj4aBPp+18gXA0 mz9zwwJ9NKNt4zQKlxRenFTFpNSkI7fHn2qYnByfX/tg12hfB8OkpeddnYU3 +pvsPAUwKRhArJg01tOkvmjNZrlcLNCVJsv3eFGilvXLyhyOcbo5s9FuKr+B jj0gn4r0akHD2/GKPprRpnF2mXY4KoakF0xNOrnZ7FtkKqN9Pdsm3WFTj2/+ 2B1cbf9dDz/7fe2zOpVQWk1N3bt260o32Y93b4anJpPceqWjzcpyYuw+yeHh 2MTsZOdvYuzZwlo7wVElMzmWmBj9ja20/osvry0/n2q9m5gYy/zTfqX2TyrR /s9kRW3hj29+mbh/5QdavbuRsT83d1WJYFIwgNiJSYeZWDymQzSe5uzGf32Y tJgMDsnxRXTr3UPH35xiMiSrcyCWzORL7TYvcrlUnKFfUoajrNc1VdBHM9ox TmPuqnjjN8bHxcjU2KTjBUE/G/tG+3p2TVr57Z7MofK/m1Myqe3OR/TSiGuE 9hsHf901ePfnnybaD/NgrevZW6NPMpNheYK7k2uN9hzrNZ051oP81BX9bB8+ /0uuXJgUDCA2TDocd3BSz75Jq1ESkdIx0nheJ10+3s0kYNvublDN0DjaH07q Re51NtmOWH1M7ptXzow+mtG6cdjoiCjPKPv163ZPkw5ATHqYuUfddG1+4eXG Zp5bmKJOvDX5qpuOLgdqmS4xm/pjdbkVUT4kYWzbpEc786N3bpEL70fuPB69 1/p7eC88NfuqrbzDtaiBam9N/tXQV+Hus+s02eXZX5bfsC/nx2hNfnj8+w5N CpOCAcSGSf0x8+iklI2HI5EIk9BMYNazcabzTo6+Y9ekQilJItFMORcl/z+r uptkNEKjvGCYEYlEoklWVik+l2CGZXOW/kAkk6+qWyaXiLQrnawKQj4dD9IL fMORRLZbwWo+w4SknPwBhq0qbj7LEJEG4iatVy/lspyiAnwpywRlo+o+fySe qaoaVijF21WMJHLqJ1hvXd56GGEmR68Rygmmk7hVRT6fYEJ+ekP+YJKV52Cx GdVYNE5l/oaYdXexbrNAtGpo0kuTy4U1tsVaYbOyW29+6d9oX8+kST+tPxFd NppSfN063Hgs2iq80V7+sz8vGu2OylN8+dXU9cuZTXHfCpknvaYzT6ow6Y+z C68q+x8/H36s/bv1fr9dhlaFNXZCTH9FsUv0/eoUyefeDikIJgUDiJ2YtIdJ 2ahoXM3MGh/r+kQ2nWrXpCTzoWjrPYELkI/5vPyTnc/JJ1KVMGLRPBfWW/fT ziueE/RK1MUfjieiAd13JOHVOZpFomgjoM8nwwbFBnNym/Ks2OKaeJZnxS8b TK6mSmxEOF2y0Yx6WDGOsDYu5nSB2e0KsVnoGZNquHD7KdvQyb630b6eRZMe ZsQBW509mDyxWGd358f5m6JJN0zX1VKd6eyCoSa9ObGjl4lGhR9/Ewv94bdN 9QV/jJJweP2jweUAfP/YiUmjrahJ0EDTGXtQJ6q1adISUUuo2C5QSBMdMllZ KCeUYiFpfexwIBjqEAwGwrFsp6LSEHHbP4l0LpuJhSXDhFIlTWVo8mCEkQeg FF8wHGFk63JbUbNYnXJaLM1vY0VWLctIZYaYdDabScrXfIWlKtZZsb00c6w8 F+umjrI1VWJKIBRmImGZNLtta6UZ9elpHNmel0trdObTxKSF8SETbszbGvM9 wyaVVDU1m/ztufwvNUtmRdsjt7KUP1+59mzh5cbbyqdDnWdipjNi0vuzed3a GJr0yoT2nzH/RgxLHy9s9S4agO8UOyuO9AnExUWn7pmUesHPiMO5PCu+MhRM qj5HyATfsHaCr0ol5VNsWS1nomqbyE3qC6Y4qYmy0iqhoWBMCkCFUkrlTVpJ O6uJqgxxWDgl+6ATSjREDqWK4ov9mjTApMq8lHOE2DTGSe1u0oxG9DCOtOfl 4vKubHz2y6b4+shTtRkbu7nl3OZ25UO9LrS/xdUrm+z41Yu0/W8v7No12tcz aNIjOoRr9tcxaePTelJnfvP6tcTsck02kGvJpIk13eqorz3MPxRj2CefNIk/ vRHHpe/PrvUuGoDvlNOblC6Vcc+kGRKBxqn/hCJZETucU35RpploB5npjcQ1 Rz+kQ2IRUWITo3zq+bgoTPWYap0ucu7Wn+rMuknrXJzYLqGuYjklVpE2Y18m 1Q4FF8k2XSmxWTMaYm4cKcC8Mb+9vVkQ2Szk6BDu1eXNzcLa5odeoWaOEWV6 Mbpm12hfz6BJyWLa1l90YqKzA0X9NzU29mdZHFmtrf/68LqubaXJUydNSqun Z1L+H3Hw+eEvG72LBuA7xY5Jh6NxNbFYLM2JH79umbROZkWVY6Q0ZpQPyVqq ho9Rry5qr6kQw9JQstgjH0N/8U6YVLxEMWpN6kiGpkng3JdJtYnr2sQu7ILp eWARJbrWa8+LwIoqHVEfMNjTaF/PoEnpOqKbSevnKHzer5TevFp+PvU4clna xpKwEBjaNWmret3R3es6Jv1MYmTEpGCQsbPiqMcuGJdMWs3QYw0iWTaX7ZLL peiyWH9Mz7BaA3Ji6KW3dEoaiY2xvfIxVJLqEpqnNgw0Ii+Fhzp1FBduDQXE Nx0yqU5iT006XuilxyYZEL5qY6r0DJv0I1mR++Py2372bvFvUuK2l3u/do9x oDrjtEfn2jYprd7lP/fUiemunO7gs97lAHz/2Flx1GPtrjsmrSd0V8gq8KXK FhY+0cWreiat5cQp1GAi3yMfyyYVymkyHmt1xRE5L1EhNVpHMoUaEgenz5VJ WzR1+NKs58QA80L0w5cvrZd6uolK+cLtZesbYs6wSRulX+6IceX1sR1NXHq0 v/FsbKK9/eRoZzZy7+W6+lihlhzvK01aei5mmFjVSWzTpI0NcU/ND7fGFhW1 23tFxqUlycKkYAA56yaVnWxggvyoPeNq1GLGN0InKB2MSVsp6QyzdmZWFzrI rBuTktHjcxmTGkLX7o4o1+5+2X3KjK/tauLTLxWGrgCe27ZrtK9n0qSNoy3Z oqNr87+/2ilXav/ubPyz/GxMtp+FTFnejYy9ZNfe7+1/OtivbL6ajfxIJivF BbSfyQbVn38KZ9j8ztuNPxeePPtlTX4yg3WTSqZuyfTek41/Px4dftz5JyW9 OPHK7HIAvnfcMKlmjUq9b5PSxTDBOFuv80rqtXxSjNJkJwfSTLLqqI6Ojvoz mklIbTDogEllu3W6e4iM4IvZNNt+n+4DpVtpZImIl+lotnFNBLIs6vQm1TSj Iac1qWoXTEM8seHipdtzC+xmZXd3t8IuPJUden91284RDWfapC33vV2+L8lU +9c5u8/sJEDF8QiNxs6UNsGVqfY/TKLFniaV70Wt/fPEsNzrExW9ZcP4fVIw ODhoUnqUQTgtz7DOJRn1olOrJqXbP3Xc16FG5CidHJiPi/KNaK7hxJ0dQ75w SjEdVc2S4FEqyAmTttqXDPC2N9PE9X6+hs/JTwvk6V4VX6qkPC6JNC/dCiS5 VXkEsVBlmQBZityvSU2a0Yg+jdOQzjhSrDRqrEnbXfR4umnvMN4zbtI2R5WX iXu3NKq6f29smd3oDNselthfp2RLjMjfj48Ti++VpyYc7f2VuKlMFkm2lwyR XS1Rg/2kZKg5rAoqP7ePUVLX7eHkMm/tcgC+Yxw0aTlNT+bxMcksl+cyqVjA J/vss2lSekKgyVF79Hx4enIgXYna3kmS5YrFfCYZiyY6x9zJhlt9wRhX5oU6 X8wlpBdlxw86Y1KZvrtNEIklc1y+VCpybDYRlQ5GoLlx0jEMvliG4+sCXy0m pOMj5F8qSlKLB6NZluPYTCyimFfu26RmzWhAvzHptnh64KU55UiukHvKjOjZ 9OKl6FrPrTIGRvt6lk3a5ejj+/JWaXNj5+1Wpax/8MLRYSvNzs7mRitZ6W3l k/GSX36vUinvvP93lz/o58dGdTIsb62/WWv/rW/UDs7C2dYAeI8Vk5pMLyop GR1yRyQgLbLVHQpWvZjTD3KVSD+1FuTqxtUgBxVWczHtm6R6jDwKNBysJjo2 ManqEjYRMiyUQFc6teqoOl1JTiSt2PIj+/aij9ykRtXWNal5M+pySuMY0WwI u5XtzS7blXqjr1N3z5FJAQDnDUsxqegHszPYRWqsdPR5F38oUyyS3xWRfhCc bPcIyMM35YuaBTb6SD//nSCreoRqTl0NWVRbL2XDmmVMQSatcgQZ3gywqrVC ZH8rPdyJQsJP6nQJvpSLhhUBOnHTcDia4MqqO+SzcY3HfMFUXsdjXFL946eh WLbIivOk0s/lkE1AAc0PodKzJuRnHPVsRi0umdQpYFIAgEu40c2rxTzLshzH lcp2fwDcSWrVcqlUKperNV5n3WytVGS7cPkq/80GqeqtWhXzbYrFUrVmuqC3 XityYh3zJfXvwCjgq/nOnXD5knmWfWDejHJgUpPLHX4qAICzBLo5cAqY1ORy rx8OAMBF0M2BU8CkJpd7/XAAAC6Cbg6cAiY1udzrhwMAcBF0c+AUMKnJ5V4/ HACAi6CbA6eASU0u9/rhAABcBN0cOAVManK51w8HAOAi6ObAKWBSk8u9fjgA ABdBNwdOAZOaXO71wwEAuAi6OXAKmNTkcq8fDgDARdDNgVPApCaXe/1wAAAu gm4OnAImNbnc64cDAHARdHPgFDCpyeVePxwAgIuUARgkYFIAgON483EGgEfA pAAAx0E3B05xSuO4DUwKAHAJdHPgFDCpyeVePxwAgIugmwOngElNLvf64QAA XATdHDgFTGpyudcPBwDgIujmwClgUpPLvX44AAAXQTcHTgGTmlzu9cMBALgI ujlwCpjU5HKvHw4AwEXQzYFTwKQml3v9cAAALoJuDpwCJjW53OuHAwBwEXRz 4BQwqcnlXj8cAICLoJsDp4BJTS73+uEAAFwE3Rw4BUxqcrnXDwcA4CLo5sAp YFKTy71+OAAAF0E3B04Bk5pc7vXDAQC4CLo5cAqY1ORyrx8OAMBF0M2BU7hn UuFDZY1tkcvl2ML2buNLP5nApAAAl0A3B07Rn3GEtcmhLpeeNrTvVnK3R4Y0 XGDm1pp9Ge0rTAoAcBqvunkpzQy3CETy9R4vnn2KqUin2kxRMExT56ulYp7r UCyWa/y5ukNr9GGcL7sLF6geL04Kync/5KJyfV68ePGC/L9vLNiSKUwKAHAJ C92cjw9rgwIlgQRvs1w21s10OMebv2hYus/vD4aj2WLNZsnOw+ndC6HOpWNB v0+v/sFoMls+c0bluWymBWu/YW0bp1G4pDDlpDIm/XCbvHN1khXEEd1mJTdJ fTpZEHSyNTUa/T92sXFfeuW68agAAGcEKyaN9TSpL2r3Y5eLBbr2YXnzF3uX Hk4VbRbuMLr30obPR/y9mm4owJ4pmfK5bpV9TM7upTaNs8u0jSha8YLGpM3t p+Jbt5dVV35YFh17cbxg12hfYVIAgNNYMSmJCoeZWDymQzSe5ozHNfWxblJS eiCeTCU7JBLxGBOWOWrYWxnpm7SeD8l9GY5l2Hy7rUvFXCbFBOn3A91I1jvq rHgzUdbupXaM05i7Kt7/jfFxMTJVmrSxKc6fjkxuqi4WWJgUAHCGsGHS4biD vrJtUm3pdY6qKlH85ioV2nT/bz6ucy9ZKRz1JzmdkL1eZpn2rfnOlkkbefFm YpzdK60bh42Kq4guRtmvX7d1TUpj0qGhS7kPitW6wtq4aOGFXbtGs57eKWBS AL57bJjUHzP/yC9l4+FIJMIkyuoAtZ6NM513cvQd2ybVKz1DVBrj1G/ypaws 7mvPSkbimaqqYkI50a5XJMFWBT6fYEJ0PtPnDyZZ3Wbhc8loQJr39AUjURIe y6pdzVCPxjV1U+SWziprxecSzLBsWtUfiGTyVdVltpq6nEu0b5JJVgWhmEmE hv1S5ZmkPIcqm4yESKP5gwwhEomy6rbTwaKqKvM3iCE7i3WbBaJV1TxpPSot MLoQnWfr3QVGjQIJZy8sf7CxHwYmBQC4hJ2YtIdJ2ajoPE2QxcfEuTdpOtV+ TKotvcqIxlEPkOaT4SF9gjm5EXjWfA42nC4p8hVKjNm8p1Rtjk7uBpM2omWe C+ssTepkE8/JTWarqUliA3yREsmaNb49Jtd7JtyKqmg4OXSB2e1qsFnQjUlb fPmQu6SsxtXbty8RvUZzH/owmq1LHAEmBeC7x05MGq2Kg5oKaDrDhTd6caX9 mFRSQ6tQvppPkFDQF0rJbVXLMvSD1x9i0tlsJilftRSW7EjmBCmBUJiJyGdg Q7KNLfVkUJYyHI3HY0wkpJiuFastZMjQrhUBEapRKS8/k0jnsplYWKp4KCVV vK+mpnkHwgwTDvq1OZezsQCNh33DIZFgMBDOaqJfLT1VJdvzcmmNrro1NmmL ypzObtI2N3L9Gc3uVacHJgXgu8eGSQ0IxMUJNXdNakhQGTfSQHUonMpLLwsl GpmF6FpfmUkDTKrMS4npJCcdN67n4yStP5WX36GQYYaV1abrjW2sJqrSLwA+ xXbacobuqZS03qdJfcGUbMi6lI6Irw/HpWwEzq15UmnPy8XlXdmo7JdN8fWR p6r9oZtPyTjupejy8vztSxdJU3RW/d6Yt7EHBiYFALjG6U1Kt0t4ZNK2IDJk W2adI74LJNTDquWU6FhaDWJSv2bHRzEhxp9RthtUCqmQeHUko5611FRbWu2s aQojpNuMa46lSJOio0Tr/TV1VpVYyAdJg0iRM+/W2t1GgYzr3pjf3t4siGwW cuSMo6Gry5ubhbXNDx2hSiuOLkbpMG6zXplnpBHfkb7W7n5jYFIAvnvsmHQ4 GlcTi8XSZGGqyyaVdsG0N8LE40wkKJtUDHQvqXOx7n8zWbXvGo0aGT4lwZ3x jg+aDzEpDTND2oOMnDSpj9GpNyuGpaFk0aT1FPn0amqjxO7tgqG7WnoSbY/8 flm+IY4ET26qB313l2mcfnXb8jlHMCkAwCUc3AXjrkl1S68XGRLKBRLtsdy8 FEtqHUZW4xDtmliDV5u0LC7G0Vt2pTUpHd3NWpwmrXNivfXy59kYeZM1KFFK +x2YdLzQUmdjUpwgHSloZ0+/7pLjj/ox6f9ufCzbhG/8py+LSuXabUwAwDnC zoqjHmt3XV5xpF86DR59oVRDOm+QGlBOjUyhhsQBVOsmpat8LZlUSIdtrjgy zb+WE6dQg4m8QYlSRmfWpC2aOnxp1nPi9OeF6IcvX1ovddJSk17M1bU5CWSD zCU9z5oZrf3//vt/1v6r/f9rB/X6gQmtd2udi/b+x3/bs6e2XLuNCQA4R5x3 kwqlpNykdCBUNyalA8X2Y1KpGlo1aqst7YLRTtfqU4sZ3yad/D3XMakhdO3u iGLt7lqUCPb2smrXqDSFeiGqo1lTo4k5fN5r/f+D/+//mF/y3//joJVs9/B/ Wi7EsFy7jQkAOEe4YVLNgtW6eyatZsUFqN1VQzwxqS+S0dwHifuoDW2YtEZG hv3aAVvtGUdCOU3ncJmcduZTKieb6p4XQUee/ZoFTTqB9umbulu6TtuSVtKu wurJaU2qOi1QOuNo6OLtuYrQjVWbFfYpXcJ7Y75i12i01Ha0WeFNB23/87HS Dkj/5ykC0q8wKQADgIMmpScAhNPyDOtckoyqOj1PyhfTdGGvOPLJ040tvlRJ sTYoS6rnZ7KkatZN2siSUwv8jMLR9VKWbDOVV1tIS4cs+OI5nRbmy7lIu0bi 6QqcqOMhXzilqHc1S08dopI9fVMr2lYRk5IZW721T+b0adKGdMaRaldLge6C 6XDh4kXFf97u81fVujQ/t1364djQpf855tsePV1A+hUmBWAAcNCk5TQ9WcjH JLNcnsukYgH5oT2nWrs7HEuIxOOxKBMJys/U80XKUibUrr5YhuPrAl8tJqQj DmRBnx2TCqWUdB+hGJsvcrl0VHZyglpVvOLYB38wkszk8sX2j5RmU4lwgB6M QOLKunTgki8Y48q8UOeLuYT0YiRL8z59Uxs/WWk/znAkyRWLeTYTY6I5504L VNPcFk8PvDSnnfP8UJi/qvBnl5HJ3HZ/RpMXbBqW/od3IiD9CpMCMABYManJ FJ6SktEhffTjXXtaYE7PpPLfJ+39m27+sHJ5UVV1qI+ciPwAQCIvKyZtyKJa AzRjrVU25DO9ok2QI8F2NRczvkdGGWGftqkVbauc/C2ldfJ26rTA/hA+VApr XQrblbqNw3ZlaKtnEpaKAelnW1GvWbk9Ww8AcH6xFJOKn8TxXiZtr/iJqGzj D2WKRTEH2Q+Ck+0qAXmgpPciKV2Dz+cPhCLJrOYgg85V2bhGB75gKq/UARnJ DGjO86EnGinPxhdymmwjiWwm2q2i5ER5TZQn3ksMB8KJjPp0+3opG9acfRtk 0joas97UcdKq6urxCTGx6skKbCKizNr8HH4R90zqCHrVMwpLSUDqXLk9Ww8A cH5xo5tXi3mWZTmOK5Xt/gC4o9RrRY7tki9ZGJ20hlArd3LluHyJt5xpna+V S8V8m2KpXK2bXlgrFcV6c/mqaRkuNnW9VmpTrlZr5rWlnEOT6oelDgakX2FS AAYAdHPgFOfRpGJY+l/8/5Je6QakNWc8CpMCMACgmwOnOJ8mJWHp/yu69D/H HxwMSL/CpAAMAOjmwCnOqUmVYen/cjYg/QqTAjAAoJsDpzi3Jv36//8/nbC0 8b//T8PJGVJ5uV4/HACAi6CbA6c4vyYlYem///6XwwHpV5gUgAEA3Rw4xXk2 qRiWtj3qaED6FSYFYABANwdOca5NKoalTgekX2FSAAYAdHPgFOfcpF+bh3t7 h46LFCYF4PsH3Rw4xXk3qavlev1wAAAugm4OnAImNSnX64cDAHARdHPgFDCp SblePxwAgIugmwOngElNyvX64QAAXKQMwCABkwIAHMfbjzUAvjEwKQDAcbrd /D8AfO/ApAAAl4BJwYAAkwIAXAImBQMCTAoAcAmYFAwIMCkAwCVgUjAgwKQA AJeAScGAAJMCAFwCJgUDAkwKAHAJmBQMCDApAMAlYFIwIMCkAACXgEnBgACT AgBcAiYFAwJMCgBwCZgUDAgwKQDAJWBSMCDApAAAl4BJwYAAkwIAXAImBQMC TAoAcAmYFAwIMCkAwCVgUjAgwKQAAJeAScGAAJMCAFzCjklPjoXjpvZVPRz+ ELRIc381/WKJ3dZWEgCYFADgEtZNevB6jmGYxe1jxavH248YLWNbx/qZ7L1e nJ5Z2rNsWnvpu5V5sChYzR4MEDApAMAlLJhUKLIriy/iXUcubis1dbLdfmMs PicxMz2zaOS+7aVHJp49bfpuZR4tWc4eDBAwKQDAJXqb9HhLHm1qTfqo7a53 Fj/Nqist1z16pzP82jw5Pj4+Ub9hkr550lS/DJMCY2BSAIBLWIhJj98VC4Vi YXH6wSlNuvd3eqydB/NoeqZFfDpd7YSu+8WVRw9EUz94NFc8ODFJf1BcmX40 RsT+ID6T3iLpe5q0uppe3T60UlXw/QGTAgBcwvo8aSc81DcpM7Na3atWq3sH h2bhYHV1RvTfWJsHD2beHf9n/++57oszL9IvZrqTrg9e7zeN0m+n23IdexRv u1U06qMtQayMuUm3Fx90KoslSYMITAoAcAnrJn23pGfS420aH5LVRnNbh4am qq60Q9htOovarE53VFg4EC/Zf/2i/cL0303d9C1bCoeC7D+3Ftu1SndV2suk TeHdi46rH0wv7Xu0vhh4BUwKAHCJ05q0efB6lS1ubbcoFv6eE0dp5/YNXPpu qWNGorrjdytt96aLsiSH6babZ6pNnfTdIve2Xi+9mJuOP2qFqQ8eyGZvLc2T NrdXuqHudBUyHSRgUgCAS5zWpGoOXjzoDLcayExj0qWO+rZlSYTO8K2oOY1J D1fiJPaNT8+9SL+YHrNn0pP9lZlOGB1fwYzpQAGTAgBcwmmTHi+OWTApCQa7 Jh1bVJi0k8P0uxOd9CfVlc4yI9nY7N6qdZMK79juWDSmSgcQmBQA4BJ2Vxwt KYdED99t7QmSlE72/u6oSjGzKadjRobdI5d03cdMS1Hq9lInYFw90Ut/vL3Y zl0y78nWyrR1k3ZWKz36u4qTGwYRmBQA4BK9Tdo8YBdfpBfTnWHUVjw4t5h+ sVLY777ZXUn7aOZFOv3ixdx0d5ZUOVqrYG91upvL4tLiTPxFey3uYne9bnyJ fc0uiet4l0jkq0pf3n3dLaJVi5WldJzsnRFN2j3jaGzJyJT7W4Uq9poOKjAp AMAlepv05B2ZmZStzyVR4f7r9APlW3MrW2YLeZoHS9P0iu4E6ElxaUae90rx wCR9q0RZ2pmW4Tvm7QiyWZ3pTIDClkALTAoAcAnro7vGNI+Fw4M2h5ozivQ5 FgTVgUatLA7221noHJGvTX8itAsTIExgA5gUAOASTpgUgHMATAoAcAmYFAwI MCkAwCVgUjAgwKQAAJeAScGAAJMCAFwCJgUDAkwKAHAJmBQMCDApAMAlYFIw IMCkAACXgEnBgACTAgBcAiYFAwJMCgBwCZgUDAgwKQDAJWBSMCDApAAAl4BJ wYAAkwIAXAImBQOCtyYFAAAAvg9gUgAAAOA0eGVSrwefAAAugm4OnMIrVVkE JgUAuAS6OXAKmNSkXK8fDgDARdDNgVPApCblev1wAAAugm4OnAImNSnX64cD AHARdHPgFDCpSblePxwAgIugmwOngElNyvX64QAAXATdHDgFTGpSrtcPBwDg IujmwClgUpNyvX44AAAXQTcHTgGTmpTr9cMBALgIujlwCpjUpFyvHw4AwEXQ zYFTwKQm5Xr9cAAALoJuDpwCJjUp1+uHAwBwEXRz4BQwqUm5Xj8cAICLoJsD p4BJTcr1+uEAAFwE3Rw4BUxqUq7XDwcA4CLo5sAp3FNV40OlUFhbWytsbm5/ EJr9ZXK2Tfpxg3355+rL9bf77j+ob1lW4/O/+VZZf7Jr/NE3KA0Ab4BJgVP0 pyphbXKoy6WnDc27zd01ZuTCkJKLV8c3hT6NZvuyU2Opix38dfenH37+6Ydb k3+5/py+ZVmNxnri8s/t4i6/OfgGpQHgDV6ZtJRmhlsEIvl6jxe/K4R6tVzK cx3yxXK19j3daB+q+rK7IGny4qRKj3UqWR1Gch++9GE0W5c4gqUudrgW7djt fmLN9ef0LctqNDZmwx2TXluHScH3i4VuzseHjT/PugQSvM1y2Vg30+Ec3+NF GfVEkBbpS5cF/URlLtMiy9b03/eGepmNhYM+nbbzBcLRbP7MDQv00Yy2VdUo XFKEmpOKmFRYG6Hv3Hi6+UFoNhu7heUbF6T0tgLTM23SxoZot9n86Z6bFb5l WY3S865JwxsY3QXfL1ZMGutpUl+0ZrNcLhboSpPle7woUcv6ZWUOxzjdnNlo N5XfQMcekE9FerWg4e14RR/NaFNVu0zbiaIXL2hMWhgXRXrh9rIi+PyyfYM0 WpSt2zWa9fRO0bOL1d78mhi91tHNDz9fvzM7OdH9S0xMre9J32N22NTjmz+K ydopw89+X/usye1obyOTGL1/XUx568rl6L3R3xZevT8QrJf1qfxq9t41qawr lxPPX9Z0VCiUVlNT967dutJN+ePdm+GpySS3XumkrSwnxu6TTB6OiWXNTow9 W1iTZ2bl1t7/k0pMjCUmUu/bN7m/vvrrs3a1x2YTv74neVmq9lElM9nKZyzz ZvfoYCMzee+uWPkfbl2/s/ymov+Q9rdaKW/RnH/6ITo6tf7vocEjBQOHnZh0 mInFYzpE42nObvzXh0mLSSki7eg7olvvHjr+5hSTIVmdA7FkJl9qt3mRy6Xi DP2SMhxlva6pgj6a0Y6qGnNXxRu/MT4uRqYKkzYmRZFezGlsWc9Fxfeia3aN Zj29U/TsYuuTl3+WfUTL/2b/6S4Kqvx270f9NDenKjJT1P55YpTVz1emPlkq q1FaGDVIc+fNnryj785HDMr66Ydnb/bphKze3wT5Z2X11tYTXUX+OL+QjCpS ijOwVqt9sHbfsFbtv6mVHdUDqv2TvGWQeHZVnRgMJjZMOhx3cFLPvkmrURKR 0jHSeF4nXT7ezSRg2+5uUM3QONofTupF7nU22Y5YfUzum1fOjD6a0bqq2CjR ZJT9+nVb16RPSUia047hNjfpJdYHeM+sSd+zT6I0Irty7fHovc7fnYeRUe7f VusfZu7Rj+5r8wsvNzbz3MIUldStyVdiRjJH3I2MZX5f/uP31LOxO6IFrj/h e5fV4NkJqom7oxN/sK/+XHgiU88ojdnWZ2n0dzkxm/pjdXn5+dRDknnbpEc7 86N3qIPuR+50i3t4Lzw1+6ojScu3Js23av/aJrVebTpNTP+io6OzE6My6d/b kRn882aKprw/9uTPN/mNN6+ejdIvJJe5b7ECGpx1bJjUHzOPTkrZeDgSiTAJ zQRmPRtnOu/k6Dt2TSqUkiQSzZRJSOKLZFV3k4xGaJQXDDMikUg0ycoqxecS zLBsztIfiGTyVXXL5BKRdqWTVUHIp+NBeoFvOJLIditYzWeYkJSTP8CwVcXN Zxki0kDcpPXqpVyWU1SAL2WZoGxU3eePxDNVVcMKpXi7ipFETv0E663LWw8j zOToNUI5wXQSt6rI5xNMyE9vyB9MsvIcLDajGouqqsyT0dnuYt1mgWhV16Qj Be2K3oZ0yXdg0jZHeaO5y0/rYph5azSl+CZ2uPFY/DAPb3RGGT+9meqmfPhc uZToaP/NL6N37/36uVdZrTBzlgx1Tv2+Icth59lN8fXHv291Xtqfvy5GfKql RHz51dT1y5nNj93/JPOk17TzpNZvraE06a17E9zmzqfDw0/7uztvK59tVFth 0ujk4vsDKXFCvKMf5tc/klc//ibm8ONvb3bldSwt3BMzef4tppvBGcdOTNrD pGxUNK5mZo2PdX0im061a1KS+VC09Z7ABcjHfF7+yc7n5BOpShixaJ4L6637 aecVzwl6JeriD8cT0YDuO5Lw6hzNIlG0EdDnk2GDYoM5uU15VmxxTTzLs+KX DSZXUyU2Ipwu2WhGPayoSlgbF3O6wOx2pz+bBdPR3aHJgtaWu6KMR3Q2zpgb zXJyx7C2C8ZoPe1hRhxBvabdRUIDsWdv2p/8VEwPf9lQJ7VUVuPzelK0VSSl noH9d5HGtp/a//1xXlTMnQ3T2UK6dldTfxu3Jsvnh9mVLVViO9WWTHpXswlo 55c7UkDdzZkEpPd1dgzti/q+SXIGA4ydmDTaipoEDTSdsQd1olqbJi0RtYSK 7QKFNNEhk5WFckIpFpLWxw4HgqEOwWAgHMt2KioNEbf9k0jnsplYWDJMKFXS VIYmD0YYeQBK8QXDEUa2LrcVNYvVKafF0vw2VmTVsoxUZohJZ7OZpHzNV1iq Yp0V20szx8pzsW7qKFtTJaYEQmEmEpZJs9u2VppRn56qku15ubRG9ahv0q+b VKVDI/Ob0lzpl0Z9bZ400XdjUsOdKTQm+mFqNvnbc/lfapZMU3Y/+T9vEqF0 xyH/yb/f+6izSsh4F8xn4uJZdldz2f6z6/LBT6liP1+59mzh5cbbyqdDnX8d xrtgbNyaLJ+wVtx2qm3p9iWTkld+vj6a+UVWw9lk5vnYzypHgwHm9LtgAnFx 0al7JqVe8DPicC7Piq8MBZOq3ksm+Ia1E3xVKimfYstqORNV20RuUl8wxUlN lJVWCQ0FY1IAKpRSKm/SStpZTVRliMPCKdmokVCiIXIoVRRf7NekASZV5qWc I8SmMU5qd5NmNKKHqqQ9LxeXd2Wrcb+QSc+Rp4rTi5rSGt02Fy6OjFwauag8 pUG1ccaC0eyb8LScyqRHdJzT7I988n/8TWcJ0I/37439sb7bu6zWF1YpKPvY UPORDOeGu078tJ7U1uTW9WuJ2WX5cllDk9q7NbN9qbaqbXL7nzQm3SFDuGZ/ 16fOxtpG4CWnNyldKuOeSTMkAo1T/wlFsiJ2OKeM92gm2kFmeiNxzdEP6ZBY RJTYxCifej7eTakZU63TRc7d+lOdWTdpnYsT2yXUVSynxCrSZuzLpNqh4CLZ pislNmtGQ8xV1SiQcd0b89vbmwWRzUKOHr9wdXlzs7C2+YEI9Ut97cZFw394 3Y0z38k8qdHHu2wRUXRiorMNRP03NTb2Z5nGabvLk3d0P/Af0uk8Y5XQRURU JTLIYOZP90qktNr6rw+v6/pFmjw1NKDNWzMxqb1q2zEpWTDcFvHspE4NExOj ieevtHuRwKBhaxdMNK4mFoulOfHj1y2T1smsqHKMlMaM8iFZS9XwMerVRa3P BDKxGEoWe+Rj6C/eCZOKlyhGrUkdydA0CZz7Mqk2cV2b2IVdMI1NkwOLFETX 5Hr8Uinknk5GGYa5fZuJjk8ur1U+bM53Q9PvYxdMG8OPd7Kw52bSxsEGR4fv yxvcyq/PJu7JlqSS6UhjlfBkzZJucEcGY8Mql33er5TevFp+PvU4Im2xuUsy NzagvVszMam9atsxKc35t82zsBMAnF0c3AXjkkmrGXqsQSTL5rJdcrkUXRbr j+kZVmtATgy99JZOSSOxMbZXPoZKUl1C89SGgUbkpfBQp47iwq2hgPimQybV SeypScd1VusqKJApVCb3wa7RrKd3Cosrju7rL4Ohg5M/Lr/t78N8N0M2bGY2 D03Lklb/3pp4aVTD7m4aI/g3KXGFD1kqTA2o2S1i79ZMTGqv2nZMSnP+eXQR RzQBExzcBeOOSesJ3RWyCnypsoWFT3Txqp5JazlxCjWYyPfIx7JJhXKajMda XXFEzktUSI3WkUyhhsTB6XNl0hZNHb406zlxBPdC9MOXL62XepiJph+6UbFz 8u6ZNulh/mH3E/vKhOrB00nAn6+P7Wg+zY/2N56NTXTHLSsrEw8nF7UnEW2Q wU/RpMZl0WW9Lbu9VG5m48g4593uHs+jndnIvZfrmhU+h8RcxKSl52L9E6vq xNZvrWF+fq/1ajfsmbRxuPGQRNkJzZrh9iKDlanZBe3rYOA46yaVnWxggvyo PeNq1GLGN0InKB2MSVsp6QyzdmZWFzrIrBuTktHjcxmTGkLX7o70Xj7U/MCS s5GGLj3d7MNotqt3aiyZVLaQ9f7Erxtvt0pvXs5PTrUP5znakq3MuTb/+6ud cqX2787GP8vPxhQbTMh04eXE7OL62wp/8JHf2+EWJsjZCHdKR73Kkmm3fZrQ av7TofBpbyszJh3C8OdeJw8a2EbGXrJr7/f2Px3sVzZfzUbE+PfhL6JfpOWv P4UzbH7n7cafC0+e/dI5LdDyrTV6nYRvtdoNmyZVLjq6P/aEW996v7dbeZv/ c2EqekUxjg0GGTdMqlmjUu/bpHQxTDDO1uu8knotnxSjNNnJgTSTrPoLNx0d 9Wc0k5DaYNABk8p263T3EBnBF7Nptv0+3QdKt9LIEhEv09Fs45oIZFnU6U2q aUZDTmtSzULcLx9Y5vb48trm7ocPu9uFuSi1aCvxuI0jd2VGs129U2PNpK2I Uuewu+4Jfp/fLpsecCcel0d+v0z/77EsdDIpy/wMwAQ9Sc/sJMAflMcE7Uxp E1wR17tavLWG2b7Uho1qN6So2aJJWxf8MXnNuIbf6MfpwBnHQZPSowzCaXmG dS7JqBedWjUp3f6p474ONSJH6eTAfFyUb0RzDSfu7BjyhVOKMaBqlgSPUkFO mLTVvmSAt72ZJq738zV8Tn5aIE/3qvhSJeVxSaR56VYgya3KI4iFKssEyFLk fk1q0oxG9Kkq4wOLpOW+KkbGd+39oppkNNuXnRqLJm09t/VfxlSf0r/Rw3aO Ki8T97Snv96/N7bMbnTHUY/2N5YTo1rB3bp576X6YHbTshofueca1V6583JT 4ZcS++tUROvuHx8nFt8rt3we7f2VuKlMFklKezAt3FpDGiUOrxseBGGl2tLg dlRzxBPdkCs740jk/ZtFxRn7YubXErO/lvZwjj1w0qTlND2Zx8cks1yey6Ri AZ/sA9CmSekJgSZH7dHz4enJgXQlansnSZYrFvOZZCya6BxzJxtu9QVjXJkX 6nwxl5BelB0/6IxJZfruNkEklsxx+VKpyLHZRFQ6GIHmxknHMPhiGY6vC3y1 mJCOj5B/qShJLR6MZlmOYzOxiGJeuW+TmjWjAf3GpGTf6KU5VUyqNemFi1ef Lm/2mkk1M1pfl54KyybtcLhfKe9UypXa3v5n7RqXo4/vy1ulzY2dt1utNLon IbT6zaf9SuVtO1lpc+v9nnY5q7WyDvd31tfW37T/SuVdo/U2R4etKu3stMva KL2tfDJel8PvVVrFvf93lz/QU4+lW7OAtWr3R6th23f6dmvn7Y7+qRdgULFi UpPpRSUlo0PuiASkRba6Q8GqF3P6Qa4S6afWglzduBrkoMJqLqZ9k1SPkUeB hoPVRMcmJlVdwiZChoUS6EqnVh1VpyvJiaQVW35k3170kZvUqNq6JjVvRl1c UNUX4cPu9vZmi+3Kbr3Rn0JFzodJAQDnEEsxqegHszPYRWqsdPR5F38oUyyS 3xWRfhCcbPcIyMM35YuaBTb6SD//nSCreoRqTl0NWVRbL2XDmmVMQSatcgQZ 3gywqrVCZH8rPdyJQsJP6nQJvpSLhhUBOnHTcDia4MqqO+SzcY3HfMFUXsdj XFL946ehWLbIivOk0s/lkE1AAc0PodKzJuRnHPVsRi1eqcoiMCkAwCXc6ObV Yp5lWY7jSmW7PwDuJLVquVQqlcvVGq+zbrZWKrJduHyV/2bbruutWhXzbYrF UrVmuqC3XityYh3zJfXvwCjgq/nOnXD5knmWfWDejHJgUpNyHX4qAICzBLo5 cAqY1KRcrx8OAMBF0M2BU8CkJuV6/XAAAC6Cbg6cAiY1KdfrhwMAcBF0c+AU MKlJuV4/HACAi6CbA6eASU3K9frhAABcBN0cOAVMalKu1w8HAOAi6ObAKWBS k3K9fjgAABdBNwdOAZOalOv1wwEAuAi6OXAKmNSkXK8fDgDARdDNgVPApCbl ev1wAAAugm4OnAImNSnX64cDAHARdHPgFDCpSblePxwAgIuUARgkYFIAgON4 +7EGwDcGJgUAOA66OXAKr1RlEZgUAOAS6ObAKWBSk3K9fjgAABdBNwdOAZOa lOv1wwEAuAi6OXAKmNSkXK8fDgDARdDNgVPApCblev1wAAAugm4OnAImNSnX 64cDAHARdHPgFDCpSblePxwAgIugmwOngElNyvX64QAAXATdHDgFTGpSrtcP BwDgIujmwClgUpNyvX44AAAXQTcHTgGTmpTr9cMBALgIujlwCpjUpFyvHw4A wEXQzYFTwKQm5Xr9cAAALoJuDpwCJjUp1+uHAwBwEXRz4BQwqUm5Xj8cAICL oJsDp3BJVV8awm5lu1AorLXZ3K03+ssHJgUAuAS6OXAKK6pqbj8dMmVkskDS ftlefnp15KI2zYVLDLtr26cwKQDAJbzq5qU0M9wiEMnXe7x49immIp1qM0XB ME2dr5aKea5DsViu8efqDq1hRVWNzUlzk16MUpMK4zoWlZjbbvZhtL5keCpg UgC+eyx0cz4+bP7hNzQUSPA2y2Vj3UyHc7z5i4al+/z+YDiaLdZsluw8nN69 EOpcOhb0+/TqH4wms+UzZ1Sey2ZasPYb1pZJR26PP9UwOTk+v/aBpp3smPTC pdtzy+z27od6fXdteXKEtuCF6AezovSN1p8NTwNMCsB3jxWTxnqa1Be1+7HL xQJd+7C8+Yu9Sw+nijYLdxjde2nD5yP+Xk03FGDPlEz5XLfKPiZn91JbJp3c 7BlRNpfHo8vbgvrlOktkOlKwM8QLkwIAXMJOTDrMxOIxHaLxNGc8rqmPdZOS 0gPxZCrZIZGIx5iwzFHD3spI36T1fEjuy3Asw+bbbV0q5jIpJki/H+hGst5R Z8WbibJ2L7Vl0vGCRpFWac5dEttuvmJjgBcmBQC4hA2TDscd9JVtk2pLr3NU VYniN1ep0Kb7f/NxnXvJSuGoP8nphOz1Msu0b813tkzayIs3E+PsXul0TGqY x1MxKB1Zs2NjmBQA4BI2TOqPmX/kl7LxcCQSYRJldYBaz8aZzjs5+o5tk+qV niEqjXHqN/lSVhb3tWclI/FMVVUxoZxo1yuSYKsCn08wITqf6fMHk6xus/C5 ZDQgzXv6gpEoCY9l1a5mqEfjmropcktnlbXicwlmWDat6g9EMvmq6jJbTV3O Jdo3ySSrglDMJELDfqnyTFKeQ5VNRkKk0fxBhhCJRFl12+lgy6SXJpcLa2yL tcJmZbfe/GLZTM0CCUkvFezYGCYFALiEnZi0h0nZqOg8TZDFx8S5N2k61X5M qi29yojGUQ+Q5pPhIX2CObkReNZ8DjacLinyFUqM2bynVG2OTu4GkzaiZZ4L 6yxN6mQTz8lNZqupSWIDfJESyZo1vj0m13sm/HRrdy/cfspamfbMMWRF79UF 6/r9CpMCAFzDTkwarYqDmgpoOsOFN3pxpf2YVFJDq1C+mk+QUNAXSsltVcsy 9NPZH2LS2WwmKV+1FJbsSOYEKYFQmInIZ2BDso0t9WRQljIcjcdjTCSkmK4V qy1kyNCuFQERqlEpLz+TSOeymVhYqngoJVW8r6ameQfCDBMO+rU5l7OxAI2H fcMhkWAwEM5qol8tlkxaGB8y4ca8eZS5u0wf7oWFXVsihUkBAG5x+l0wgbg4 oeauSQ0JKuNGGqgOhVN56WWhRCOzEF3rKzNpgEmVeSkxneSk48b1fJyk9afy 8jsUMsywstp0vbGN1URV+gXAp9hOW85ESbmS1vs0qS+Ykg1Zl9IR8fXhuJSN wLk6T/q1sZtbzm1uVz7U60L7S1G9ssmOX5U2jt5e2DW6VChMWklmbjS7V50e mBSA757Tm5Rul/DIpG1BZMi2zDpHfBdIqIdVyynRsbQaxKR+zY6PYkKMP6Ns N6gUUiHx6khGPWupqba02lnTFEZItxnXHEuRJkVHidb7a+qsKrGQD5IGkSJn 3t21u0bQMduL0TXdBEJBOhxpZFw/jRWj9Ve90wCTAvDdY2sXTDSuJhaLpcnC VJdNKu2CaW+EiceZSFA2qRjoXlLnYt3/ZrJq3zUaNTJ8SoI74x0fNB9iUhpm hrQHGTlpUh+jU29WDEtDyaJJ6yny6dXURond3gVjiMCKKh15qp0t/ZCTxoQv jbP2RnWVRuuzeqcAJgXgu8fBXTDumlS39HqRIaFcINEey81LsaTWYWQ1DtGu iTV4tUnL4mIcvWVXWpPS0d2sxWnSOifWWy9/no2RN1mDEqW059WkzU1xRe5V 9VTp9vxtqtEbcwX9yy0bre/LT1mu3cYEAJwjHNwF4/KKI/3SafDoC6Ua0nmD 1IByamQKNSQOoFo3KV3la8mkQjpsc8WRaf61nDiFGkzkDUqUMjqnJqVrei/c XpaFnM3cONny0mrMhcrpjXaaHE5Trt3GBACcI867SYVSUm5SOhCqG5PSgWL7 MalUDa0atdWWdsFop2v1qcWMb5NO/p77mPTL7lNmfE37My5fKswFscEuzW2T F+tzVzuvtv9nZH6zzx9TUxntlJn0Xa7dxgQAnCPcMKlmwWrdPZNWs+IC1O6q IZ6Y1BfJaO6DxH3UhjZMWiMjw37tgK32jCOhnKZzuExOO/MplZNNdc+LoCPP fs2CJp1A+/RN3S1dp21JK2lXYfWkt6oahe7pRBcv3Z5bYDcru7u7FXbhqRR2 Dl3d/kLTjhONtkQanZ+fezqpPu9+cn7N+tkMMCkAwCUcNCk9ASCclmdY55Jk VNXpeVK+mKYLe8WRT55ubPGlSoq1QVlSPT+TJVWzbtJGlpxa4GcUjq6XsmSb qbzaQlo6ZMEXz+m0MF/ORdo1Ek9X4EQdD/nCKUW9q1l66hCV7OmbWtG2ipiU zNjqrX0yx4JJ10x/J23o6aZ0/F/P319rc2Hc+nmBMCkAwCUcNGk5TU8W8jHJ LJfnMqlYQH5oz6nW7g7HEiLxeCzKRILyM/V8kbKUCbWrL5bh+LrAV4sJ6YgD WdBnx6RCKSXdRyjG5otcLh2VnZygVhWvOPbBH4wkM7l8sf0jpdlUIhygByOQ uLIuHbjkC8a4Mi/U+WIuIb0YydK8T9/Uxk9W2o8zHElyxWKezcSYaM6Z0wKF 3FNG77e7W1FqdO2DIr7s+ZvgbUYmrY/5wqQAAJewYlKTKTwlJaND+ujHu/a0 wJyeSeW/T9r7N938YeXyoqrqUB85EfkBgEReVkzakEW1BmjGWqtsyGd6RZsg R4Ltai5mfI+MMsI+bVMr2lY5+VtK6+Tt1GmBXZoNYbeyvdllu1Jv9LevxR4w KQDAJSzFpOIncbyXSdsrfiIq2/hDmWJRzEH2g+Bku0pAHijpvUhK1+Dz+QOh SDKrOcigc1U2rtGBL5jKK3VARjIDmvN86IlGyrPxhZwm20gim4l2qyg5UV4T 5Yn3EsOBcCKjPt2+XsqGNWffBpm0jsasN3WctKq6enxCTKx6sgKbiCizNj+H X8QrVVkEJgUAuIQb3bxazLMsy3FcqWz3B8AdpV4rcmyXfMnC6KQ1hFq5kyvH 5Uu85UzrfK1cKubbFEvlat30wlqpKNaby1dNy3Cxqeu1UptytVozry0FJjUp 1+GnAwA4S6CbA6eASU3K9frhAABcBN0cOAVMalKu1w8HAOAi6ObAKWBSk3K9 fjgAABdBNwdOAZOalOv1wwEAuAi6OXAKmNSkXK8fDgDARdDNgVPApCblev1w AAAugm4OnAImNSnX64cDAHARdHPgFDCpSblePxwAgIugmwOngElNyvX64QAA XATdHDgFTGpSrtcPBwDgIujmwClgUpNyvX44AAAXQTcHTgGTmpTr9cMBALhI GYBBAiYFADiOtx9rAHxjYFIAgON0u/l/APjegUkBAC4Bk4IBASYFALgETAoG BJgUAOASMCkYEGBSAIBLwKRgQIBJAQAuAZOCAQEmBQC4BEwKBgSYFADgEjAp GBBgUgCAS8CkYECASQEALgGTggEBJgUAuARMCgYEmBQA4BIwKRgQYFIAgEvA pGBAgEkBAC4Bk4IBASYFALgETAoGBJgUAOASMCkYEGBSAIBLwKRgQIBJAQAu AZOCAQEmBQC4hB2TnhwLx02d15vCwX713bt31b2Dw2NHP/xs0txfTb9YYrf1 KgkGHZgUAOAS1k168HqOYZjFbYUr9wuLDxglj9JVY53uvV6cnlnaO7H66Wcv /fH2o1YFHiwKVrMHAwRMCgBwCQsmFYrsyuKLeNeTi9sKTW0vjrXlOZNe/ftv dnXxUVercdZIfdtLLdeNbVmOXO2lP9lu1/LRkqeBMTijwKQAAJfobdLjLXnE qTLpfmGFfSd7Zf/vtkvHloyiwupKy3WP3ukMvzZPjo+PT9RvmKRvnjTVL8Ok wBiYFADgEhZi0uN3xUKhWFicfqA1qZrmu0fGJt37Oz3WCVofTc+0iE+nq53Y db+48oiMET94NFc8ODFJf1BcmX40RsT+ID6T3iLpe5q0uppe3T40vVnw3QKT AgBcwvo8aSc8NDRp8+Tk+LC6Mveoo7J3+jmszoj+G2vz4MHMu+NWFDvXfXHm RfrFzKPu+6/3m0bpt9OdqPdRvO1W0aiPtrqV6mXS7c6k7swqliQNIjApAMAl rJv03ZKxSY+3aJTIvCiYZFJdabny0TadRm1WpzsqLByIctt//aL9wvTfTd30 LVsKh4LsP7cW27VKd1Xay6RN4d2LjqsfTC/tW171BL4PYFIAgEs4Y9Lmwd9L S4vpua5P59iqcSYdMxLVHb9baQeY6aIsyWG6nctMtamTvlvY3tbrpRdz0/FH rTD1wQPZ7K2ledLm9ko31J2uQqaDBEwKAHAJZ0xKOXnXsZTKffJMVCZd6qhv W5ZE6AzfiprTmPRwRVxEzIzFp+depF9Mj9kz6cn+ykxH+PEVzJgOFDApAMAl HDbpf05WOzIz2rcimpEEg12Tji0qTNrZWDP97kQn/Ul1pbPMSDY2u7dq3aTC O7YbNWOqdACBSQEALmF3xdGSYkj05F2xuC/z1kmV7Yy2xrcNBk47ZmTYPeKx rvuYaSlK3V7qZLB6opf+eHuxrUrJvCdbK9PWTdpZrfTo7ypObhhEYFIAgEv0 NmnzgF18kV5Md4ZRW/Hg3GL6xUphv/OesNg9iWHmxWI6/WJuWlxKqxitVbC3 Ot3NZXFpcSb+or0Wd7G7Xje+xL5ml8R1vEsk8lWlL+++Fs9+mFtcWUrHyd4Z 0aTdM46Md7PubxVMzl8C3zcwKQDAJXqb9OQdmZmUIOOxzeLSjPK0wAdzK1tm C3maB0vT9IruBOhJKxN53ivFA5P0+6/TsrQzLcN3zNsRZLM605kAhS2BFpgU AOAS1kd3jWkeC4cHbQ41ZxTpcywIqgONWlkc7Lez0D0iX53+RGgXJkCYwAYw KQDAJZwwKQDnAJgUAOASMCkYEGBSAIBLwKRgQIBJAQAuAZOCAQEmBQC4BEwK BgSYFADgEjApGBBgUgCAS8CkYECASQEALgGTggEBJgUAuARMCgYEmBQA4BIw KRgQYFIAgEvApGBAgEkBAC4Bk4IBASYFALgETAoGBG9NCgAAAHwfwKQAAADA afDKpF4PPgEAXATdHDiFV6qyCEwKAHAJdHPgFDCpSblePxwAgIugmwOngElN yvX64QAAXATdHDgFTGpSrtcPBwDgIujmwClgUpNyvX44AAAXQTcHTgGTmpTr 9cMBALgIujlwCpjUpFyvHw4AwEXQzYFTwKQm5Xr9cAAALoJuDpwCJjUp1+uH AwBwEXRz4BQwqUm5Xj8cAICLoJsDp4BJTcr1+uEAAFwE3Rw4BUxqUq7XDwcA 4CLo5sApYFKTcr1+OAAAF0E3B04Bk5qU6/XDAQC4CLo5cAqY1KTcvlt15/ex +zev3Y9M7BzZv/hoazZyrXV54vetvitgj8ONRKfE2ZVvVaITHB1+5Pf3+f2P fbSxY5zPpgNdYFLgFO6pqvGhUiisra0VNje3PwjN/jI5pybdmL32808//PzT tTcH9i8+WLvfvvaHu4m1vitw1kt0gvXE5U4j//DszUfPKnEmmu7jBvvyz9WX 62/3vavDuQQmBU7Rn6qEtcmhLpeeNjTvNnfXmJELQ0ouXh3fFPo0mu3LTs2p TRrumnS9D5MerkU7H873v9mH87cv0QnWxa8rP8z+451BzkLTHfx1t1OHW5N/ eVaH84lXJi2lmeEWgUi+3uPF7wqhXi2X8lyHfLFcrX1PN9qHqr7sLkiavDip 0mOdSlaHkdyHL30YzdYljgCTnn0qK08ej44+Hh3j/j30rBJnoenOQh3OJxa6 OR8fNv486xJI8DbLZWPdTIdzfI8XZdQTQVqkL10W9BOVuUyLLFvTf98b6mU2 Fg76dNrOFwhHs/kzNyzQRzPaVlWjcEkRak4qYlJhbYS+c+Pp5geh2WzsFpZv XJDS2wpMz5NJj4SjI7HdS88dNumRLHOnaOcp/r8NfBTb4ow1HanDbN67OpxL rJg01tOkvmjNZrlcLNCVJsv3eFGilvXLyhyOcbo5s9FuKr+Bjj0gn4r0akHD 2/GKPprRpqp2mbYTRS9e0Ji0MC6K9MLtZUXw+WX7Bmm0KFu3azTr6Z3Cjkk/ vlmYil7/sTvS+PNPPz6cmJq6/oO+Sfe3MpP3bokp23/R0al1VUhFTBp9vnF0 0E5/94qY+Nb1O8tvKjQhv76YGBtLTIxl3uzq1Osg/2yi9e7os9835C9/Lv/1 bCxM63Dr5p1niXs/a3Tw/p9Uon156n3rP47211d/fTY50XplNvHre7LE51P5 1ey9a/Refr5yOfH8Zc1gAdAOm3p880cp8fXws9/XPivTiIVOtor4uPH7k4dS +h8fz75U/aOuiTVMVqQShdJqanbsXvTmZXKDP969fu3h2MQf65WGQVm1I2Fn tVW3y9ITnJTu0aWma/+z+WXi/hXpX8LdyNifmzrP8WhvI5MYvU/+gd26cjl6 b/S3hVfvD9rfrGpvfk2Mkkdw/c7s5ET3LzExtb4n++pl4R+eg9Xuo20tdQ2n sROTDjOxeEyHaDzN2f2O24dJi0kpIu3oO6Jb7x46/uYUkyFZnQOxZCZfard5 kcul4gz9kjIcZb2uqYI+mtGOqhpzV8UbvzE+LkamCpM2JkWRXsxpbFnPRcX3 omt2jWY9vVNYNenRzux1qe9r/hQmrf2TvGWQcnZ1R0pHTGr0N7UiJv60/oR8 hD7RPvANMS7+IfqLZNLK6oRJznIdrCe6n88/zi8klfW53F1GVVoYNcjnzps9 1UdL5bd7P+onvjkl8yAt1ODv5tT7hjbxZdmyro/PrhheHp1VTCP2KOvKWEX5 ge9g07W+5EwZ1PPh87/kxdb+eWJcw6lPrbImLxsloNPHFv/hOVhtu21rtWs4 jQ2TDscdnNSzb9JqlESkdIw0ntdJl493MwnYtrsbVDM0jvaHk3qRe51NtiNW H5P75pUzo49mtK4qNko0GWW/ft3WNelTEpLmtGO4zU16ifUB3rNt0sPle7IP 6rGp354/mZ24d1f6HJBM+nkzJX3qjj35801+482rZ6P0Y/AyR1fNaEwaHR2d nRiVZXuPbK7Zf0Y8nnmr+va+NSUmDq+Tdz6/Tck+zcLPnifnExOPI9JHsVwH ZKpX+9f+XOVZSSt3Ryf+YF/9ufDkvpRmVBYBHmakVro2v/ByYzPPLUzR27k1 +cqo0FYMnkhMTd0zr6H864po0lvXw1OTU7/9kvptdkoeCC/LZpfUN9i+ZEJe 1uPfpc9wB5uu0dh9Jn37ujz7y/Ib9uX82DWdcsnC4J87oV/m9+U/fk89G7sj Sqfz9ek9+yRKb/DKtcej9zp/dx5GRrl/BVv/8Byrtt22td41nMaGSf0x8+ik lI2HI5EIk9BMYNazcabzTo6+Y9ekQilJItFMmYQkvkhWdTfJaIRGecEwIxKJ RJOsrFJ8LsEMy+Ys/YFIJl9Vt0wuEWlXOlkVhHw6HqQX+IYjiWy3gtV8hglJ OfkDDFtV3HyWISINxE1ar17KZTlFBfhSlgnKRtV9/kg8U1U1rFCKt6sYSeTU T7Deurz1MMJMjl4jlBNMJ3Grinw+wYT89Ib8wSQrz8FiM6qxqKrKPBmd7S7W bRaIVnVNOlLQruhtSJd8Hyb9vJmknf3lpnwjhvDn5DXlh/zH3252U/74m3Ik trQgDg9Gn5NJLplJo5OL76kmjnYS5KNsfl0s7v2KGBjeGnspz5aa7u4E9dRh JkI+lscWP8kSH/378q6pDm7dm+A2dz4dHn7a3915W/nc2J0lscmUfOj4aOfZ TfpRKe6vpIHzrdGU4kvp4cZj4vqNQ02hN0c52Z6Ond/HNN8idE0qVNbXdvbU Q4Lrz++oG1le1pU7L2Vj5pUVUtbNJGklB5uuUaNfQq6MlWQ1fb86pbrHT2/E Vx4+V07CHu2/+WX07r1fxbHxo7zxPKmNf3hOVdtm29rpGk5jJybtYVI2KhpX M7PGx7o+kU2n2jUpyXwo2npP4ALkYz4v/2Tnc/KJVCWMWDTPhfXW/bTziucE vRJ18YfjiWhA9x1JeHWOZpEo2gjo88mwQbHBnNymPCu2uCae5VnxywaTq6kS GxFOl2w0ox5WVCWsjYs5XWB2u9OfzYLp6O7QZEFry11RxiM6G2fMjWY5uWNY 6GLCy1ExFkisqueJVB/y9Fv3fZ19CvuilW4+ET9biEnvahLv/CIa4dkbYpmj jYck3JMPctJPp5fkK/JR+Vf6Sfhela/eGif6Yag9c+DzOvkKEUmpJjob/y7S iKlzO9RBOltrqe7phlDabm/UMpRcpk1ssqzr6Ojw08FH/u2yse+ucarLaZOS MXMHm072aH74bVN9k3+Qf1HPOt+U6JeQh79saPKRcWC4dtfWPzynqt2w07b2 uobT2IlJo62oSdBA0xl7UCeqtWnSElFLqNguUEgTHTJZWSgnlGIhaX3scCAY 6hAMBsKxbKei0hBx2z+JdC6biYUlw4RSJU1laPJghJEHoBRfMBxhZOtyW1Gz WJ1yWizNb2NFVi3LSGWGmHQ2m0nK13yFpSrWWbG9NHOsPBfrpo6yNVViSiAU ZiJhmTS7bWulGfXpqSrZnpdLa1SP+ib9uklVOjQyvynNlX5p1NfmSRN9Jyb9 OH9T/VWcojapNKE5mvkl+dtz8jebzDwn39Kvq02q88FI8pFMKpuTerggfgAe lRe1pqMfy48XNJ+TZjqQAkZtNWZZ7QoZOuDcbRbpE3hqVnbj7b/UrCTHfd12 k0Oj756J+fJaJjH28OY17dRbr8HhLqTO5Ik42HRS5lcmtB8vPAlCuwXJBj06 w57/5N/v6R3oZOEfjJV/eE5Vu2Gnbe11Dac5/S6YQFxcdOqeSakX/Iw4nMuz 4itDwaTqs51M8A1rJ/iqVFI+xZbVciaqtoncpL5gipOaKCutEhoKxqQAVCil VN6klbSzmqjKEIeFU7KBCKFEQ+RQqii+2K9JA0yqzEs5R4hNY5zU7ibNaEQP VUl7Xi4u78pW434hk54jTxWnFzWlNbptLlwcGbk0clF5SoNq44wFo9k34Wmx 0MUq4lojvS/Mqk+SHTJOZfZ3fUp8kMYfjJ/0TNr4d/mWMmLiyCqUZ7IjC+jo HB0ZljDTgY7USlJorD1c6OO8aNJw+8IjOoRr9mfFpHSoc14T+MjnSf+YMFvr 0p9JHWy6xmFeDMr0/tl8eiM+3/uza2JNItq7+PH+vbH/y975vTaR9X+8/0/A /yAXXvdC9ioXuhcB14ugIMYLNSB0ENxclE3tQlpwrDSoke5G2rA2VOLKuLvT lWlJQ8c2mI1pqKOmMsUiFL5ePN/8mHPm92QmnXFq835RHvZJJuecOcczr3zO r/y5rvkOY/8PxtM/PP+K7aFuvXUNvzm6SelSmeBMWiQRaJb6T66QFbHjZf03 G5qIeZCZ3kjWdPRDIaFkkSY2sUunLWT7V5rGVNt0kXO//FRn7k3a5rPEdqyx iLW8UkRajUOZ1DwUXCHbdNWLnarRFmdVHayRcd3LC1tb1TWF6lqZHr9wYbla XVutviNC/dpevXza9h9ef+PMSZgnpatBXJhUs5QxOT8z2dtrYPi7zT56ocSP Xk2qWfj08NUenTW78qNuKJKeCKT/rG2ODs9Vp6ToiNyPE93ZNM2amfT0tNWN T85OTr6s7Q3M1I1J6XLlzt/NicniH8/W1ze2a83Wa2XMeTiT+lh1zv9spH8U ZWuGc5vLMzcs/fKLaWLd/A/G0z88H4vtoW49dQ2/8bQLJp01kslkCrzy+A3K pG0yK6ofI6Uxo3ZI1lUxIoxxdVH3u6ISliZylQHp2PpL8sOkykd0o9akjGRo mgTOQ5nUfHHbfHEAu2AOqg4HFulIr2r1+LW+Vp6bSTMMc/06k56aWV6tv6su 9EPTk7ILRn0mWOxA0T9J6PDXk6qLwQLPJlUtc21yWXw+SR5rm24+a5ejw3OV 3o5lTEqGc3sx6cGuEqJezbk5Z94h0/ofA0d366wi8bNP/tHvHt0TvNyg7eiu DybtVIg+cS10ApoGdwr7e29rG/zK7w/1K8OVqWf7fzCe/uH5WGz3deuta/iN j7tgAjJpo0iPNUiVuHKpT7mcp8tioxkrw5oNyCuhl9XSKXUkNsMNSsdWSYaP 0DTNYaAdghoeWpRRWbg1FlPe9MmkFheHatIpi9W6OtbIFCpTfufVaO6v9wsX XYw4wmqVvuGMI2q6K7eXBgvFu0k1EqF/ScNDjJZBs5qXsO9JNBpxTz8zvkeD F+ULBh3sPbv8+igP8z06zrn82iaAVeOmnDGE8XaDJpP6V3WaCjn/csf4nmOw T2kWyebcYn/xDz1F37Rox9M/PB+LPUTduuoafuPjLphgTNpmLVfI6ojkay4W PtHFq1YmbZWVKdQ4KwxIx7VJ5VqBjMe6XXFEzkvUSY2WkUyhJpTB6e/KpB0O Lfh62C4rI7in0u++fu28NMBM9Pqxy3UvJ+8eY5Oq05E3Z3RC+VR7QdfTKk+S PbrC9gfWYmGkLK7MztPVLMOYVF3WSxxneubvPCPhzMWX/2ml9p6fVz7rfoiS DCCra4OVOiGDdTfJLlE6qXrl0qR5adb+7sbDyWnRuAvm4rp+0Yu6e0IzZWYs 4R4d1r5tiEjXH1mcROT+ae9n1WmGoK9N6t2x84KMhCu2qq9M/zKzZD4zivzS EDEpncQ0Lwfy8g/Pr2I7JmWqW09dw2+Ou0k1Jxs4oD1qz74YrYz9jdAJSh9j 0s6VdIbZPDNrCR1ktoxJyejxdxmT2kLX7p4ZvHzo8B1HzkYaOzdXHcJonot3 ZNyYVF0i2z2d4N56dXPjn+WHk9oVL+qTRLuy4tbkPX598+1Os/5aeLk4m+6F k+rPcg1l0oMPf2kORtAdQUCQn92mF5xfWFndrgp//jarPfnNgw7m6W2eXXgu fNyTP+5sFtV710Qu+5uaRUcXF/54sV2rt/7b7tUV2fPywZBp9+C7h78td6p0 u7r6RLOISLta2FRCdZ3wtdTky/XN+usN/o9c2vMNmp72vlZdp31pS12buLfx 3/v9vffb/+TVF8m3IBLrnWfnl9Zf16UP76WdbX5xmqxJviHuG2/81vTvG683 xVfPFmZm+ydNuf+H51exPdatl67hN0GY1LRGpT20SelimHiWa7clPe2WkFOi NM3JgTSRkvFLFR0djRZNk5DmYNAHk2p26/T3ENkhVUoFrvs+3QdKt9JoLiJe pqPZ9iWRybKoo5vUVI22HNWkpoW4X99xzPWp5dVq89275tbagzS1aOfiKQ9H 7mqM5rl4R8aNSQ80IZjNn3YT5d6fM04Xqz+JRR5Z3kzaKcw0ORZG3fauRw0f rP8sdWDzE6vNBYtlpTS40J3w9un1smO+5y1Mal28F9poyFxC6Z9Zh4+7vsH3 C+YZcD+rzvEMwEvT9CQ9+gOsln/aLTn1FYuTG8lpgW7/4flVbM91675r+I2P JqVHGSQL2gTbfI4xLjp1a1K6/dPCfT1aRI7qyYFCVpFvyvQZXtnZMRZJ5nXf sxslEjyqGflh0k79kgHe7maarNXP10hl7WmBEt2rEsmL+uOSSPXSrUCqW/VH EMsNjomRpcjDmtShGu0YUlX2Bxapy30NnJlqevtFNdVonj92ZFyatNNurx4Z H2Lsby9esv0nyQ3D1ry3r5Z0p7j3/366yM7/LtKTechgXdp0ZA3dYGixHePg 4BV5HFlt81TY3/lr1nBQ8NVJ/tUyOTNfzVFUzgVKrtseIv6eN91790ybqtUc 3379GTthscFzYnKZ26DTmpqYVL8b9KeLCyvG0wnIuLFuRrj+/J4hl5sTs+tV Zbzd3Q2+V06BSOm+kPhadd0pAGNqP/7wy8yy9rm1v7uxzGpPiSRmuTqhPTio h7z+26ThsieafyRu/uH5Vewh6tZlCX3HR5PWCvRkngiTK/ECX8xnYhHNA9Cj SekJgQ5H7dHz4enJgXQlancnSYmvVIRiLpNme8fcaYZbI/EMX5PktlQps+qL muMH/TGpRt/9KkhlcmVeEMUKz5XYtHowAk2NV49hiGSKvNSWpUaFVY+P0H6p ENUaj6dLHM9zxUxKN688tEmdqtGGYWNSsm/03ANDTGo26anTF+aWq4NmUp2M NtRHj4Rrk3bZ361vvFpdfyVsVLc/ulg28XG3vl3dEF9vbr/ett5rPwTqfpPb xl89MSK/fS2sv1rdWBfqOxZG9sbe7vZ65967f2KtOeBe9t+/rW2K1Y3t15v1 Wv3jnvEfpno4QCehvfet/+r1WqeKdr1V0X6nSL0brG62dv19CPtadd1DJDb7 Vbe+vtH6YNdN5c4/mPrrbr2J1c23Dvnu7Xaqq1OxrZ3dT1ZV5tc/PHfFHoZA uoY9bkzqML2oR7Q75I5IQF1kazkUbHixbB3k6lF/ai3Ot+2LQQ4qbJQz5jdJ 8RhtFGg7WE107GBSw0c4NmGbKYGudOqU0XC6kpZUQbflR/PtxRqtSe2KbWlS 52q0JABVfZXfNbe2qh226s32wXAKVfguTHocoAt70s4nyx1vBg4wAuAjrmJS xQ9OZ7ArtDj16PM+0USxUiG/K6L+IDjZ7hHThm/6F00LbKxRf/6bJat65EbZ WAxNVNsWS0nTMqY4UzA4ggxvxjjDWiGyv5Ue7kQh4Sd1uookltNJXYBO3DSe TLN8zXCHUilr8lgknhcsPMbnjD9+msiUKpwyT6r+XA7ZBBQz/RAqPWtCe8bR wGo0E5aqXAKTuoOu6vm+HeTmKF0A/CKIbt6oCBzH8Twv1rz+ALiftBo1URRr tUZLslg32xIrXB9eaEjfbCdvu1OqitClUhEbLccFve1WhVfKKIjG34HRITWE 3p3wguic5BA4V6MWmNQhX59bJTDsfhHmu4OsVv2+vw+A74Xvq5uD4wxM6pBv 2I3jlvX5iZtXL966lPyzFtTajG/D9h/TnRu5eVX3u10ABMT31c3BcQYmdcg3 7MYBAAQIujnwC5jUId+wGwcAECDo5sAvYFKHfMNuHABAgKCbA7+ASR3yDbtx AAABgm4O/AImdcg37MYBAAQIujnwC5jUId+wGwcAECDo5sAvYFKHfMNuHABA gKCbA7+ASR3yDbtxAAABgm4O/AImdcg37MYBAAQIujnwC5jUId+wGwcAECDo 5sAvYFKHfMNuHABAgNQAGCVgUgCA74T7WAPgGwOTAgB8B90c+EVYqnIJTAoA CAh0c+AXMKlDvmE3DgAgQNDNgV/ApA75ht04AIAAQTcHfgGTOuQbduMAAAIE 3Rz4BUzqkG/YjQMACBB0c+AXMKlDvmE3DgAgQNDNgV/ApA75ht04AIAAQTcH fgGTOuQbduMAAAIE3Rz4BUzqkG/YjQMACBB0c+AXMKlDvmE3DgAgQNDNgV/A pA75ht04AIAAQTcHfgGTOuQbduMAAAIE3Rz4BUzqkG/YjQMACBB0c+AXMKlD vmE3DgAgQNDNgV/ApA75ht04AIAAQTcHfhGQqr4eyM361tra2mqXarN9MFw6 MCkAICDQzYFfuFHV4dbcmCNnZtbItV+3lucunDltvubUOYZrevYpTAoACIiw urlYYMY7xFJCe8CLx59KPtUrNlORba9pSw2xIvA9KpVaS/qu7tAdblR1UJ1x NunpNDWpPGVhUZUHW4dDGG0oGR4JmBSAE4+Lbi5lx50ffmNjMVbymC+X6Sc6 XpacX7TNPRKNxpPpUqXlMWf/4a3uhdDmC5l4NGJV/ng6V6odO6NKfKnYgfNe sZ5Meub61JyJmZmphdV39NqZnklPnbv+YJnbar5rt5uryzNnaA2eSr9zysra aMPZ8CjApACceNyYNDPQpJG018cun4n17cNJzi8Ozj2Zr3jM3Gcs76WLJKSi g6puLMYdK5lK5X6RI0zZ60c9mXSmOjCiPFyeSi9vycaX2xyR6Zk1L0O8MCkA ICC8xKTjTCabsSCdLfD245rWuDcpyT2WzeVzPVg2m2GSGkeNhysja5O2hYTW l8lMkRO6dS1WysU8E6ffDywj2fBoc8rNpDmvH/Vk0qk1kyLdcvjgnFJ3C3UP A7wwKQAgIDyYdDzro688m9Sce5unqmIr31ylcpf+fwpZi3spqeFoNMdbhOzt Gsd0by1yvEx6ICg3k+G9ftLvmNQ2jTklKD2z6sXGMCkAICA8mDSacX7ki6Vs MpVKMWzNGKC2S1mm906ZvuPZpFa5F4lKM7zxTUksaeK+7qxkKltsGAom19hu uVIs15AlgWUSdD4zEo3nOMtqkcq5dEyd94zEU2kSHmuK3ShSj2ZNZdOlVijp SyWVWWZcM60ajaWKQsPwMU9VXSuz3Ztkcg1ZrhTZxHhULTyT06bQ4HKpBKm0 aJwhpFJpzlh3Fngy6bmZ5bVVrsPqWrXebB9+dW2mwzUSkp5b82JjmBQAEBBe YtIBJuXSivNMQZaUUebe1OlU7zGpOfcGoxjHOEAq5JJj1sTLWiNInPMcbLIg 6tKVRcZp3lMtNk8nd+M5D9GyxCctlib1ksmWtSbzVNXkYhsiKZEkzdnfHlMe PBN+tLW7p67PcW6mPcsMWdF7YdG9fv8HkwIAAsNLTJpuKIOaOuh1tgtvrOJK 7zGpqoZOplJDYEkoGEnktbZqlRj6dI4mmEKpVMxpVy0lVTuSOUFKLJFkUtoZ 2IRmY0s7F9dcmUxnsxkmldBN1yrFlotkaNeNgAiNtJpWlGEL5VIxk1QLnsir BR+qqmnasSTDJONRc8q1UiZG4+HIeEIhHo8lS6bo14wrk65NjTlwecE5ymwu 08Y9tdj0JFKYFAAQFEffBRPLKhNqwZrUlrg+bqSB6lgyL6gvyyKNzBJ0ra/G pDEmX5PUi+kkJx03bgtZcm00L2jvUC4y4/pi0/XGHlYTNegXgIhuO22tmCb5 qlof0qSReF4zZC0WUsrr41k1GZkPdJ70fwfN8nK5ulV/127L3S9F7XqVm7qg bhy9vti0+6i8NuPmMmejef3U0YFJATjxHN2kdLtESCbtCqJItmW2eeK7GGsc Vq3lFcfSYhCTRk07PiqsEn+muX5QKecTyqdTReOspanY6mpnU1XYod5m1nQs RYFknSZaH66qS4aLZSFOKkSNnKVg1+7aQcdsT6dXLS+Q19TDkc5MWV/jxmjD Fe8owKQAnHg87YJJZ41kMpkCWZgasEnVXTDdjTDZLJOKayYVY/2PtPlM//8z JaPvDg5aZPiUBHf2Oz5oOsSkNMxMmA8y8tOkEcai3JwSliZyFYfa06UzqKrt Lg56F4wtMqeo9Mycebb0XVkdEz43xXkb1dUbbcjiHQGYFIATj4+7YII1qWXu 7QpDQrkY2x3LFdRY0uwwshqHaNfBGpLRpDVlMY7VsiuzSenobsnlNGmbV8pt lb7EZcibnE2O6rXfq0kPq8qK3AvGqdKthetUo5cfrFl/3LXRhv74EfP1WpkA gO8IH3fBBLziyDp3GjxGEvkD9bxBakAtLTKFmlAGUN2blK7ydWVSuZD0uOLI Mf1WWZlCjbOCTY5qQt+pSema3lPXlzUh52F5imx56VTmYv3oRjtKCkfJ12tl AgC+I753k8piTmtSOhBqGZPSgWLvMalaDLMazcVWd8GYp2utaWXsb5NO/n73 MenX5hwztWr+GZevdeaUUmHnHmyRF9sPLvRe7f7PmYXqkD+mZjDaERMZOl+v lQkA+I4IwqSmBavt4EzaKCkLUPurhiRi0kiqaLoPEvdRG3owaYuMDEfNA7bm M47kWoHO4TJl88ynmk8p3z8vgo48R00LmiwC7aNXdT93i7oltWRehTWQwao6 WOufTnT63PUHi1y13mw269zinBp2jl3Y+kqvnSIa7Yg0vbDwYG7GeN79zMKq +7MZYFIAQED4aFJ6AkCyoE2wzefIqKrf86RSpUAX9iojnxLd2BLJi7q1QSVS vChTIkVzb9KDEjm1IMroHN0WS2SbqbbYckE9ZCGSLVvUsFQrp7olUk5X4BUd j0WSeV25GyV66hCV7NGrWle3upiUzNharX1yxoVJVx1/J21srqoe/zfw99e6 nJpyf14gTAoACAgfTVor0JOFIkyuxAt8MZ+JaQ/tOdLa3fEMq5DNZtJMKq49 Uy+SqqmJULtGMkVeastSo8KqRxxogj4vJpXFvHofiQwnVPhyIa05OcGoKkl3 7EM0nsoVy0Kl+yOlpTybjNGDEUhc2VYPXIrEM3xNkttSpcyqL6ZKNO2jV7V9 y6r7ccZTOb5SEbhihkmX/TktUC7PMVa/3d2JUtOr73Tx5cDfBO9yZsb9mC9M CgAICDcmdZjC0yPaHdJHH+/m0wLLVibV/j7p4N90iyb1y4sahkN9tKS0BwAS ebkx6YEmqrXBNNba4BIRx090ifMk2G6UM/b3yOgj7KNWta5u9ZO/YsEibb9O C+xzeCA361vVPlv19sFw+1q8AZMCAALCVUyqPImzg0zaXfGTMtgmmihWKkoK mh8EJ9tVYtpAyepFkruJSCQaS6RyJdNBBr1PlbImHUTieUGvAzKSGTOd50NP NNKfjS+XTcmm2FIx3S+i6kRtSfQn3quMx5Js0Xi6fVssJU1n38aZgoXG3Fd1 ltSqsXgSq1xsaFmZY1P6pJ3P4VcIS1UugUkBAAERRDdvVASO43ieF2tefwDc V9qtCs/1EUQXo5PukFu1Xqo8L4iS60TbUqsmVoQuFbHWaDt+sCVWlHLzQsMx jwCrut0Su9QajZZzaSkwqUO+PrcOAOA4gW4O/AImdcg37MYBAAQIujnwC5jU Id+wGwcAECDo5sAvYFKHfMNuHABAgKCbA7+ASR3yDbtxAAABgm4O/AImdcg3 7MYBAAQIujnwC5jUId+wGwcAECDo5sAvYFKHfMNuHABAgKCbA7+ASR3yDbtx AAABgm4O/AImdcg37MYBAAQIujnwC5jUId+wGwcAECDo5sAvYFKHfMNuHABA gKCbA7+ASR3yDbtxAAABUgNglIBJAQC+E+5jDYBvDEwKAPCdfjf/PwBOOjAp ACAgYFIwIsCkAICAgEnBiACTAgACAiYFIwJMCgAICJgUjAgwKQAgIGBSMCLA pACAgIBJwYgAkwIAAgImBSMCTAoACAiYFIwIMCkAICBgUjAiwKQAgICAScGI AJMCAAICJgUjAkwKAAgImBSMCDApACAgYFIwIsCkAICAgEnBiACTAgACAiYF IwJMCgAICJgUjAgwKQAgIGBSMCLApACAgPBi0i+f5c+HFq8fyh92G2/evGns fNj77OvDzyOHu88Lj59yW1aFBKMOTAoACAj3Jv3w7wOGYZa2dK7cXVv6mdFz p9Cw1+nOv0t37z/d+eL26eft+s9bdzoF+HlJdps8GCFgUgBAQLgwqVzhVpYe Z/ueXNrSaWprabIrz/uF53//zT1futPXapazU9/W047rJjddR67erv+y1S3l naehBsbgmAKTAgACYrBJP29qI06DSXfXVrg3mld2/+66dPKpXVTYWOm47s4b i+HXwy+fP3/+YnzD4frDL4fGl2FSYA9MCgAICBcx6ec3lbW1ytrS3Z/NJjVy +OaOvUl3/i5M9oLWO3fvd8jeLTR6setuZeUOGSP++c6DyocvDtd/qKzcvTNJ xP5z9n5hk1w/0KSN54XnW3uONwtOLDApACAg3M+T9sJDW5Mefvnyea+x8uBO T2VvrFN4fl/x32SXn3++/+ZzJ4p90H/x/uPC4/t3+u//u3tod/1WoRf13sl2 3aoY9c5mv1CDTLrVm9S9/xxLkkYRmBQAEBDuTfrmqb1JP2/SKJF5vOaQSGOl 48o7W3Qa9bBxt6fCtQ+K3Hb/fdx94e7fh5bXd2wp78ma/7u51C1Voa/SQSY9 lN887rn657tPd12vegInA5gUABAQ/pj08MPfT58uFR70ffqAa9gn0jMjUd3n NyvdALNQ0VyyV+imcr9xaHF9P7OdzX+fPn5wN3unE6b+/LNm9tbVPOnh1ko/ 1L3bgExHCZgUABAQ/piU8uVNz1IG92kTMZj0aU99W5pL5N7wraI5k0n3VpRF xMxk9u6Dx4XHdye9mfTL7sr9nvCzK5gxHSlgUgBAQPhs0v/78rwnM7t9K4oZ STDYN+nkks6kvY01d998sbj+S2Olt8xIMza789y9SeU3XD9qxlTpCAKTAgAC wuuKo6e6IdEvbyqVXY23vjS43mhrdstm4LRnRobbIR7ru4+5q0apW097CTz/ YnX9562lripV837ZXLnr3qS91Up3/m7g5IZRBCYFAATEYJMefuCWHheWCr1h 1E48+GCp8Hhlbbf3nrzUP4nh/uOlQuHxg7vKUlrdaK2Oned3+6ksPV26n33c XYu71F+vm33K/cs9VdbxPiWRr+H6WvNf5eyHB0srTwtZsndGMWn/jCP73ay7 m2sO5y+Bkw1MCgAIiMEm/fKGzEyqkPHYw8rT+/rTAn9+sLLptJDn8MPTu/QT /QnQL51EtGmvVD44XL/7b0Fz7f2O4Xvm7QnysHG/NwEKWwIzMCkAICDcj+7a c/hZ3vvQZc90RpE1n2XZcKBRJ4kPu90kLI/IN17/Re5mJkOYwAMwKQAgIPww KQDfATApACAgYFIwIsCkAICAgEnBiACTAgACAiYFIwJMCgAICJgUjAgwKQAg IGBSMCLApACAgIBJwYgAkwIAAgImBSMCTAoACAiYFIwIMCkAICBgUjAiwKQA gICAScGIAJMCAAICJgUjAkwKAAgImBSMCOGaFAAAADgZwKQAAADAUQjLpGEP PgEAAgTdHPhFWKpyCUwKAAgIdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOACA AEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPgFzCpQ75hNw4AIEDQ zYFfwKQO+YbdOACAAEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPg FzCpQ75hNw4AIEDQzYFfwKQO+YbdOACAAEE3B34BkzrkG3bjAAACBN0c+AVM 6pBv2I0DAAgQdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOCb2NtjUxVtXL86v bIZdFAC+e45pNwffIUGr6uthl6/Dfhwm1fFh9daPP1z58Yeb7GpYRfj0n/Dy +bOX3Kq0H1YRAPCHY9rNwXeIG1Udbs2NOXJmZs36k1+r53oXTK0dHMVow332 KBzTLra3mu6Z9FZ4Jl1nz1/pluH8qw9hFQEAfwirm4sFZrxDLCW0B7x4opDb jZoo8D2ESq3ROkk36kZVB9UZZ5OeTlua9KA81Rdpx6TyUYw23GePAkxqx8Z8 smfSi+swKfjOcdHNpey488NvbCzGSh7z5TL9RMfL0oAXNbTZOM0yUqjJ1hfV +GKHEteyfj8c2jUuk4xHLOouEkumS8Kxe9IOUY2eTHrm+tSciZmZqYXVd+rV X5sz1y9fvnDulKa+YNKjsL8vKyOp+xuhm1R81DdpcgOju+A7x41JMwNNGkm3 PObLZ2J9aXLSgBdVWqWoJs/xDG+ZMpfuXxW10XEICPnUoBq0vZ2wGKIaPZl0 pno4WEIHq6dMFXVCTSqLz/PzkxPpq+ev9QR35cezNy9d/GVy+s/1uu7C/Xpx ZpKdniy+au5/2CjOTNz8qX/9D9cu3Vh+VbdM/VPtr4eTSZLyD9eu3njITlwx mfTtP/lOyux0/m03o931578/nJnuvDLP/v6WyO5j7cX8xMUrJKkrP51nHz1r Waiwe0ezExev/URu52pydibHr9d719aX2clbJJHObc7P9P6mJx8urmoT2+by v149q2Z3Kfnwj9VP+px8K/ZQdXuwu9m5ktZt5y99e3b9vz3ri8EJxUtMOs5k shkL0tkC7zX+G8KklVxc90iNpCzLPUDH35xKLqEpcyyTKwpit84rfDmfZeiX lPE0F3ZJdQxRjZ5M6k6IB6uLCwsLi4uLy3PMmRNt0vcPf1IfxYa/9Pxf6oVk pZDd3+zKtiHp+vNph+u1Jl1n+645u7CYS+suU6YyxcXbNunceLWjfQY0F1K2 OT58tXvw4a+btkWaJv/i6k8mzlpfc3W2rpGgb8X2Xretf3LXbC6ef268GJxg PJh0POvjpJ53kzbSJCKlY6RZweI6IdtPJObZ7kHQKNI4OprMWUXubS7XjVgj TPmbF86JIarR/5hUw1eyVOlkm/TapU7gNvvkt/yT+VltLLZM5zLI/KYmAro9 P31bI6aJbY1lPr3OawKx5MNHuQV2+tfUeUuTkolL819XSRKnGvnm7ek/uRcv F+9p1HObxmzr8zT6O8/O5/98vrz8aPYXcjtdk+5vL9y+QR10K3Xj19sTnb9f JpKz8y96xd8rTtCULy4sPtuoCvziLL3NazMvfC+257qtqnV7a/Ley1fCxqsX D2/Tuj3P77rtO+B7x4NJoxnn6EQsZZOpVIphTROY7VKW6b1Tpu94Naks5kgk WqyV0+S/S4a7yaVTNMqLJxmFVCqd4zSFksosM66Zs4zGUkWhYayZMpvqFjrX kGWhkI3TD0TGU2ypX8CGUGQSakrRGMM1dDdfYohIY1mH2muL5RKvK4Aklpi4 ZlQ9Ek1liw1DxcpitlvEFFs2tmC78/FOYySZMv2MXGOZ3sWdIkoCyySi9Iai 8RynTcFlNRrxZNJzM8trq1yH1bVqvdkeuLnFYzBra7ThPnsUXI7u1tdXt3eM Q4Lrj24oj/RHgvKS5mmfnll6S9fq7G+zl5TXF9bfk1f3iiQ2vDm59FGT8v5/ z246mvTaxDRf3f64t/dxt7n9uv7poDlPoubZPzY0CW0/vKq8/usf/a2puwtK SW4YlhJJtRezl84Xq0rxyDzpRfM86cf1e0oxbud13z/3Nn5VSpjcILXlU7G9 1u37J0oKZ5+8amrLKC5OGFsNnHS8xKQDTMqlFeOaZtakTN8nmulUryYliY+l O+/JfIw85gXtk10qaydS9TBK1hKftFr3000rW5atcrQkmsyy6ZjlO6rw2jxN gq14COiFXNIm23hZa1OJU2rcFM9KnPJlgym3DBfbkSyIHqrRiqOt3T11fY5z 2N9y0k1qZH9/7+OH99LrZaPvyNP+5sxfho9s/3ZDDfr6idR+J9Ho5FvD1VZr d6mSzMc1fFrPKUml8oZpyoP/lpTo8tK9nqzfLyiKubHhOFtI1+6adsHQLwDm t9QY8+Gr974W21vd0oD0lunizncJRd9X7300vQdOJF5i0nQnapJN0OvsPWgR 1Xo0qUjUkqh0M5QLRIdMSRPKyWImoa6PHY/FEz3i8VgyU+oVVB0i7vqHLZRL xUxSNUwiL5oKQy+PpxhtAEqJxJMpRrMutxM1K8WpFZTcoh5WZLVKjJpngimU SsWcds1XUi1im1PqyzTHKvGZ/tVprmW4mBJLJJlUUiPNft26qUZrXJl0bcpU gRouL9iN+Y6CSaXaapGd/OXqRfPUm9mk5jW3n0gcR5/2NLL7ddF0kJGTSZNm A9LE57mm8b2D3YeXtIOfNFjrGPziw8VnG6/rH/cs/uHY74JRU5idzz15pP3L z5Mom96mT8X2Vrf0lSuXbhd/05RwPld8NHnF4Ghw0jn6LphYVll0GpxJqRei jDKcK3HKK2PxnKGLkgm+cfMEX4NKKqLbslorpo020Zo0Es/zahWV1FVCY/GM GoDKYt7gTVpIL6uJGgxxWDKvGRqSRRoiJ/IV5cVhTRpj8jVJTTlFbJrh1Xp3 qEY7XKnqoFleLle36u/abbn7xaxdr3JTF07TKr2+2LT+3Ak36fs/py9eMQnU k0k/mp72LRK+acYkDxzScdjgKapBmSmpThCqKCnZ/+BHGglq/q5dusjOL2uX y9pmt0+HcJ3+TCY9arE91e02GcJ1+rs0ezyWPYLAObpJ6VKZ4ExaJBFolvpP rpAVseNlfbxHEzEPMtMbyZqOfigklCzSxCZ26bSFrCJM45hqmy5y7pef6sy9 Sdt8ltiONRaxlleKSKtxKJOah4IrZJuuerFTNdpyFFWVGUWmp9OrlhecbJNu PFJn+m5OTBb/eLa+vrFda7ZeKyOQw5mUrvyhr6h4NKlTUnQw88cJkUSFrfXf f7lk6Rd18tQ2O80a2vT0dG+Hi/FvdnLyZW3P52J7qluWfvNJzs9YlJCdvs0+ emEcUgYnFE+7YNJZI5lMpsArj9+gTNoms6L6MVIaM2qHZF0VI8IYVxd1v70r YWkiVxmQjq2/JD9MqnxEN2pNykiGpkngPJRJzRe3zRcHtgvGFplTVHpmznK2 9ESbtM6STZdP/tFvWtwTjM92L0978yualL2ZVHo16xDckcHYpOGDn3br4qsX y49mtauF6Um/9tmRNUtXc27ObPCt2F7qlqb8pHocNgmAkPFxF0xAJm0U6bEG qRJXLvUpl/N0WWw0Y2VYswF5JfSyWjqljsRmuEHp2CrJ8BGapjkMtENQw0OL MioLt8Ziyps+mdTi4m9v0kPlWN2xC9ZTpSfZpDQEu5ozhjD7RzMpedrfnH5h uNgiZUcl0aSuTT+zLf+lew7/WKRXeWX+d+L3T/rsTLtF6Ljr2eXXgz3lW7GH qtsrt5dwRBPwcRdMMCZts5YrZHVE8jUXC5/o4lUrk7bKyhRqnBUGpOPapHKt QMZj3a44Iucl6qRGy0imUBPK4PQJMikV5anry5YbYk6ySUngqdvb2Htj/ZHp JCIvT/uDnWdkL+TFl/9plfSen79hTNn5INwPdIfI2Wf6fW48Gee82d/jub89 n5p4tm5a4bNHzEVMKpI9Puxz48V0fvPKpcltk6j2dzceTk6Lxl0wRyv2gce6 3dv4hUTZrMUv08niyuy8eaEXOKEcd5NqTjZwQHvUnn0xWhn7G6ETlD7GpJ0r 6QyzeWbWEjrIbBmTktHj7zYm/dqcY6ZWm6bh2691hhwLeO7BluVH6Y/IzFRP 3m/BqEtVr6UmX65v1l9v8H/k0ppTj4Y06YH87DZN5PzCyup2Vfjzt9lblikP OlJ+Qz1v4ezCc+HjnvxxZ7M4qR7C8HKndx39vbbU5DNu9e3O7scPu/Xqi/mU cjLDL78pflGXv/6YLHLC9uuNl4v3Hv7WOy1wf1Oz6Ojiwh8vtmv11n/bG/8s P5w07p3xp9ie61a36OjW5D1+ffPtTrP+Wni5ONtvuxB/sQ58Y4IwqWmNSnto k9LFMPEs125LetotIadEaZqTA2kiJWNUR0dHo0XTJKQ5GPTBpJrdOv09RHZI lVKB675P94HSrTSai4iX6Wi2fUlksizq6CY1VaMtg1V1sNY/8u/0uesPFrlq vdls1rnFuXNjlAtbuoj0a7NaXatWq1tb3Nzl/hWX57itrWr35a13nn6r9Bib 9ED6Z/aKKg6LP61Jb3l52h/svHA+Ac/SpDY/c+Z0BiBLT9JzOgnwB/0xQduz 5gt+Uta7fnq97Fjy82aTHqnYQ9Ttwd6fM04rrq9ZbDUFJxMfTUqPMkgWtAm2 +RxjXHTq1qR0+6eF+3q0iBzVkwOFrCLflOkzvLKzYyySzOsGeholEjyqGflh 0k79kgHe7maarNXP10hl7WmBEt2rEsmL+uOSSPXSrUCqW/VHEMsNjomRpcjD mtShGu1wYdJVdbuLFXNV2cP1p6Y8jfMeZ5MedE/HvWfYRnpzYna9+qI/hKg5 40hQXpk3np/zqarsPTHsednf+WvWsIz26iT/ajltSFkdbk2u256o8J5/ZDrD 9qcbz6o6v4jc77OaJUY0JPyVXXqrT7lTNvaq/rJUTt2DuV9/xk5Y7K6dmFzm Nuicsk/FHqZuO7x9taQ7Y19J/CI7/7toOrQKnFR8NGmtQE/miTC5Ei/wxXwm FtE8+jyalJ4Q6HDUHj0fnp4cSFeidneSlPhKRSjmMmm2d8ydZrg1Es/wNUlu S5Uyq76oOX7QH5Nq9N2vglQmV+YFUazwXIlNqwcj0NR49RiGSKbIS21ZalRY 9fgI7ZcKUa3xeLrE8TxXzKR088pDm9SpGm1woSq5PMecsbLj6XPp1XempUaH W5ctriWcmfE0znvMTdplf3d7XVh/tbpR3Wzt+vsQlt++7qW8LtR3zKtYPbLX KedqJ7XOn1hr2q232d97/7a2vV3dEDt/r+sf7dflSDv1em377X9N6YPVXe93 0tnsJLL9erNesz7kwcdiD8fH3Xr3Tl9vbr/efrvzHmuQRg03JnWYXtQj2h1y RySgLrK1HAo2vFi2DnL1qD+1Fufb9sUgBxU2yhnzm6R4jDYKtB2sJjp2MKnh IxybsM2UQFc6dcpoOF1JS6qg2/Kj+fZijdakdsW2NKlzNVriXlWHB3Kz3h2i 7bJVbx94GqYdku/ApACA7xNXManiB6cz2BVanHr0eZ9oolipkN8VUX8QnGz3 iGnDN/2LpgU21qg//82SVT1yo2wshiaqbYulpGkZU5wpGBxBhjdjnGGtENnf Sg93opDwkzpdRRLL6aQuQCduGk+mWb5muEOplDV5LBLPCxYe43PGHz9NZEoV TpknVX8uh2wCipl+CJWeNaE942hgNZoJS1UugUkBAAERRDdvVASO43ieF2te fwDcT1qNmiiKtVqjJVmsm22JFa4PLzSkb7a3ut0pVUXoUqmIjZbjgt52q8Ir ZRRE4+/A6JAaQu9OeEF0TnIInKtRC0zqkK/PrQIAOE6gmwO/gEkd8g27cQAA AYJuDvwCJnXIN+zGAQAECLo58AuY1CHfsBsHABAg6ObAL2BSh3zDbhwAQICg mwO/gEkd8g27cQAAAYJuDvwCJnXIN+zGAQAECLo58AuY1CHfsBsHABAg6ObA L2BSh3zDbhwAQICgmwO/gEkd8g27cQAAAYJuDvwCJnXIN+zGAQAECLo58AuY 1CHfsBsHABAg6ObAL2BSh3zDbhwAQIDUABglYFIAgO+E+1gD4BsDkwIAfAfd HPhFWKpyCUwKAAgIdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOACAAEE3B34B kzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPgFzCpQ75hNw4AIEDQzYFfwKQO +YbdOACAAEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPgFzCpQ75h Nw4AIEDQzYFfwKQO+YbdOACAAEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0D AAgQdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOACAAEE3B34BkzrkG3bjAAAC BN0c+IUbVR1uzY05cmZmzeHj8uqMct25uYOhjObxQz6ALgbAiSesbi4WmPEO sZTQHvDi8aeST/WKzVRk22vaUkOsCHyPSqXWkr6rO3SHG1UdVGccRTp2Om1r 0q/NxVPqdTPyUEbz+CEfgEkBOPG46OZSdtz54Tc2FmMlj/lymX6i42XJ+UXb 3CPRaDyZLlVaHnP2H97qXghtvpCJRyNW5Y+nc6XasTOqxJeKHTjvFevJpGeu T82ZmJmZWlh9Z/PJtXM6484gJgUAHBPcmDQz0KSRtNfHLp+J9e3DSc4vDs49 ma94zNxnLO+liySkooOqbizGHSuZSuV+kSNM2etHPZl0pnroRUdNphuOKiHp KZgUAHCc8BKTjjOZbMaCdLbA249rWuPepCT3WDaXz/Vg2WyGSWocNR6ujKxN 2hYSWl8mM0VO6Na1WCkX80ycfj+wjGTDo80pN5PmvH7Uk0mn1tyPzh48uKBU 1uWpKSUyhUkBAMcGDyYdz/roK88mNefe5qmq2Mo3V6ncpf+fQtbiXkpqOBrN 8RYhe7vGMd1bixwvkx4Iys1keK+fDCgm5dJnFHmmuf/9bwsmBQAcNzyYNJpx fuSLpWwylUoxbM0YoLZLWab3Tpm+49mkVrkXiUozvPFNSSxp4r7urGQqW2wY CibX2G65UizXkCWBZRJ0PjMSjec4y2qRyrl0TJ33jMRTaRIea4rdKFKPZk1l 06VWKOlLJZVZZlwzrRqNpYpCw/AxT1VdK7Pdm2RyDVmuFNnEeFQtPJPTptDg cqkEqbRonCGkUmnOWHcWeDLpuZnltVWuw+patd5sH361vr6+cFkpT3+x7uEa 0SpMCgA4LniJSQeYlEsrzjMFWVJGmXtTp1O9x6Tm3BuMYhzjAKmQS45ZEy9r jSBxznOwyYKoS1cWGad5T7XYPJ3cjec8RMsSn7RYmtRLJlvWmsxTVZOLbYik RJI0Z397THnwTPjR1u6euj7HGeQor06RN5lmX7WHa4hJAQDHDS8xabqhDGrq oNfZLryxiiu9x6SqGjqZSg2BJaFgJJHX2qpVYujTOZpgCqVSMaddtZRU7Ujm BCmxRJJJaWdgE5qNLe1cXHNlMp3NZphUQjddqxRbLpKhXTcCIjTSalpRhi2U S8VMUi14Iq8WfKiqpmnHkgyTjEfNKddKmRiNhyPjCYV4PJYsmaJfM65MujY1 5sDlBTrmq9nzcm6VzqnCpACA48fRd8HEssqEWrAmtSWujxtpoDqWzAvqy7JI I7MEXeurMWmMydck9WI6yUnHjdtCllwbzQvaO5SLzLi+2HS9sYfVRA36BSCi 205bK6ZJvqrWhzRpJJ7XDFmLhZTy+nhWTUbmA50n/d9Bs7xcrm7V37XbcvdL Ubte5aYunKbNeX2x2buM7nk5vdzUjPx+rSqvn5nztPb3fzApACAwjm5Sul0i JJN2BVEk2zLbPPFdjDUOq9byimNpMYhJo6YdHxVWiT/TXD+olPMJ5dOponHW 0lRsdbWzqSrsUG8zazqWokCyThOtD1fVJcPFshAnFaJGzlKwa3ftKDOKTE+n V/+nDV0vL2xtVdcUqmtlOjh8YblaXVutvnMtVJgUABAQnnbBpLNGMplMgSxM Ddik6i6Y7kaYbJZJxTWTirH+R9p8pv//mZLRdwcHLTJ8SoI7+x0fNB1iUhpm JswHGflp0ghjUW5OCUsTuYpD7enSGVTVdhcHvQvGFplTVHqmu7Jo4FFIlPSq 2900MCkAICB83AUTrEktc29XGBLKxdjuWK6gxpJmh5HVOES7DtaQjCatKYtx rJZdmU1KR3dLLqdJ27xSbqv0JS5D3uRsclSv/V5NekiGbS90p0rdm3Rqze18 KUwKAAgIH3fBBLziyDp3GjxGEvkD9bxBakAtLTKFmlAGUN2blK7ydWVSuZD0 uOLIMf1WWZlCjbOCTY5qQt+pSak6T11fVlbpWvD1sF1WQtdT6Xdfv3Ze8mq0 4Yp3FGBSAE4837tJZTGnNSkdCLWMSelAsfeYVC2GWY3mYqu7YMzTtda0Mva3 SSd/v/uY9GtzjplabZqiyK91hq7TfbDllAJdu3sGa3cBAMeFIExqWrDaDs6k jZKyALW/akgiJo2kiqb7IHEftaEHk7bIyHDUPGBrPuNIrhXoHC5TNs98qvmU 8v3zIujIc9S0oMki0D56Vfdzt6hbUkvmVVgDGayqA+VchdPnrj9Y5Kr1ZrNZ 5xbnNEfTX9iyOaJBAbtgAADHDx9NSk8ASBa0Cbb5HBlV9XueVKoU6MJeZeRT ohtbInlRtzaoRIoXZUqkaO5NelAipxZEGZ2j22KJbDPVFlsuqIcsRLJlixqW auVUt0TK6Qq8ouOxSDKvK3ejRE8dopI9elXr6lYXk5IZW6u1T864MOmqut3F irnqoOVDB+oZR/hVNQDAMcFHk9YK9GShCJMr8QJfzGdi2kN7jrR2dzzDKmSz mTSTimvP1Iukamoi1K6RTJGX2rLUqLDqEQeaoM+LSWUxr95HIsMJFb5cSGtO TjCqStId+xCNp3LFslDp/khpKc8mY/RgBBJXttUDlyLxDF+T5LZUKbPqi6kS TfvoVW3fsup+nPFUjq9UBK6YYdJlf04LlMtzzBkrm54+l151s6HlcEs5PfDc A8SkAIBjghuTOkzh6RHtDumjj3fzaYFlK5Nqf5908G+6RZP65UUNw6E+WlLa AwCJvNyY9EAT1dpgGmttcImI4ye6xHkSbDfKGft7ZPQR9lGrWle3+slfsWCR tl+nBfY5PJCb9a1qn616+8B5SNcfYFIAQEC4ikmVJ3F2kEm7K35SBttEE8VK RUlB84PgZLtKTBsoWb1IcjcRiURjiVSuZDrIoPepUtakg0g8L+h1QEYyY6bz fOiJRvqz8eWyKdkUWyqm+0VUnagtif7Ee5XxWJItGk+3b4ulpOns2zhTsNCY +6rOklo1Fk9ilYsNLStzbEqftPM5/AphqcolMCkAICCC6OaNisBxHM/zYs3r D4D7SrtV4bk+guhidNIdcqvWS5XnBVFynWhbatXEitClItYabccPtsSKUm5e aDjmEWBVt1til1qj0XIuLQUmdcjX59YBABwn0M2BX8CkDvmG3TgAgABBNwd+ AZM65Bt24wAAAgTdHPgFTOqQb9iNAwAIEHRz4BcwqUO+YTcOACBA0M2BX8Ck DvmG3TgAgABBNwd+AZM65Bt24wAAAgTdHPgFTOqQb9iNAwAIEHRz4BcwqUO+ YTcOACBA0M2BX8CkDvmG3TgAgABBNwd+AZM65Bt24wAAAgTdHPgFTOqQb9iN AwAIEHRz4BcwqUO+YTcOACBAagCMEjApAMB3wn2sAfCNgUkBAL7T7+b/B8BJ ByYFAAQETApGBJgUABAQMCkYEWBSAEBAwKRgRIBJAQABAZOCEQEmBQAEBEwK RgSYFAAQEDApGBFgUgBAQMCkYESASQEAAQGTghEBJgUABARMCkYEmBQAEBAw KRgRYFIAQEDApGBEgEkBAAEBk4IRASYFAAQETApGBJgUABAQMCkYEWBSAEBA wKRgRIBJAQABAZOCEQEmBQAEBEwKRgSYFAAQEF5M+uWz/PnQ4vVD+cNu482b N42dD3uffX34eeRw93nh8VNuy6qQYNSBSQEAAeHepB/+fcAwzNKWzpW7a0s/ M3ruFBr2Ot35d+nu/ac7X9w+/bxd/3nrTqcAPy/JbpMHIwRMCgAICBcmlSvc ytLjbN+TS1s6TW0tTXbleb/w/O+/uedLd/pazXJ26tt62nHd5KbryNXb9V+2 uqW88zTUwBgcU2BSAEBADDbp501txGkw6e7aCvdG88ru312XTj61iwobKx3X 3XljMfx6+OXz589fjG84XH/45dD4MkwK7IFJAQAB4SIm/fymsrZWWVu6+7PZ pEYO39yxN+nO34XJXtB65+79Dtm7hUYvdt2trNwhY8Q/33lQ+fDF4foPlZW7 dyaJ2H/O3i9skusHmrTxvPB8a8/xZsGJBSYFAASE+3nSXnhoa9LDL18+7zVW HtzpqeyNdQrP7yv+m+zy88/333zuRLEP+i/ef1x4fP9O//1/dw/trt8q9KLe O9muWxWj3tnsF2qQSbd6k7r3n2NJ0igCkwIAAsK9Sd88tTfp500aJTKP1xwS aax0XHlni06jHjbu9lS49kGR2+6/j7sv3P370PL6ji3lPVnzfzeXuqUq9FU6 yKSH8pvHPVf/fPfprutVT+BkAJMCAALCH5Mefvj76dOlwoO+Tx9wDftEemYk qvv8ZqUbYBYqmkv2Ct1U7jcOLa7vZ7az+e/Txw/uZu90wtSff9bM3rqaJz3c WumHuncbkOkoAZMCAALCH5NSvrzpWcrgPm0iBpM+7alvS3OJ3Bu+VTRnMune irKImJnM3n3wuPD47qQ3k37ZXbnfE352BTOmIwVMCgAICJ9N+n9fnvdkZrdv RTEjCQb7Jp1c0pm0t7Hm7psvFtd/aaz0lhlpxmZ3nrs3qfyG60fNmCodQWBS AEBAeF1x9FQ3JPrlTaWyq/HWlwbXG23NbtkMnPbMyHA7xGN99zF31Sh162kv gedfrK7/vLXUVaVq3i+bK3fdm7S3WunO3w2c3DCKwKQAgIAYbNLDD9zS48JS oTeM2okHHywVHq+s7fbek5f6JzHcf7xUKDx+cFdZSqsbrdWx8/xuP5Wlp0v3 s4+7a3GX+ut1s0+5f7mnyjrepyTyNVxfa/6rnP3wYGnlaSFL9s4oJu2fcWS/ m3V3c83h/CVwsoFJAQABMdikX96QmUkVMh57WHl6X39a4M8PVjadFvIcfnh6 l36iPwH6pZOINu2VygeH63f/LWiuvd8xfM+8PUEeNu73JkBhS2AGJgUABIT7 0V17Dj/Lex+67JnOKLLmsywbDjTqJPFht5uE5RH5xuu/yN3MZAgTeAAmBQAE hB8mBeA7ACYFAAQETApGBJgUABAQMCkYEWBSAEBAwKRgRIBJAQABAZOCEQEm BQAEBEwKRgSYFAAQEDApGBFgUgBAQMCkYESASQEAAQGTghEBJgUABARMCkYE mBQAEBAwKRgRYFIAQEDApGBEgEkBAAEBk4IRIVyTAgAAACcDmBQAAAA4CmGZ NOzBJwBAgKCbA78IS1UugUkBAAGBbg78AiZ1yDfsxgEABAi6OfALmNQh37Ab BwAQIOjmwC9gUod8w24cAECAoJsDv4BJHfINu3EAAAGCbg78AiZ1yDfsxgEA BAi6OfALmNQh37AbBwAQIOjmwC9gUod8w24cAECAoJsDv4BJHfINu3EAAAGC bg78AiZ1yDfsxgEABAi6OfALmNQh37AbBwAQIOjmwC9gUod8w24cAECAoJsD v4BJHfINu3EAAAGCbg78AiZ1yDfsxgEABAi6OfALmNQh37AbZyTZ22BTF29d vTi/shl2UcAJB90c+EXQqvp62OXrsB8/3iZ9v8E9e/n82frr3W/RVCPCh9Vb P/5w5ccfbrKrYRXh039Cp1lfcqvSflhFAN8CmBT4hRtVHW7NjTlyZmbN+pNf q+d6F0ytHRzFaMN99ii46mIf/rrZe+Zfm/nrm7TVaLC3mu7V6q3wTLrOnr/S LcP5Vx/CKgL4FoRlUrHAjHeIpYT2gBdPFHK7URMFvodQqTVaJ+lG3ajqoDrj bNLTaUuTHpSn+iLtmFQ+itGG++xRcNXFjsEz/wRyDGp1Yz7ZM+nFdZj0ROOi m0vZceeH39hYjJU85stl+omOl6UBL2pos3GaZaRQk60vqvHFDiWuZf1+OLRr XCYZj1jUXSSWTJeEYzcsMEQ1ejLpmetTcyZmZqYWVt+pV39tzly/fPnCuVOa +jqZJj3YUJ7588LR2g0c7O/Lykjq/kboJhUf9U2a3MDo7onGjUkzA00aSbc8 5stnYn1pctKAF1Vapagmz/EMb5kyl+5fFbXRcQgI+dSgGrS9nbAYoho9mXSm ejhYQgerp0wVdfJM2nr1O3v7Yu95+8OVSzfmZ6b7f+z07PqOfLBfL85MstO3 n3D1zsVSbXX50ez8dOeVyeI/3Vf2dzeK89O/TiRv/nRWSeSn87dSN+YfLb/d 0+ekJDVZfNXc/7BRnJm4+dMP/Y9cu3Rj+VXdVDRZfJ6fnbh4Tbns7M2rydmZ HL9eH0oL3dTmJyfSV89f+5EkeOniL5PTf67rs/Zczi6fan89nEySlH+4dvXG Q3biismkb//Js93ay7/t1d36898fdqt6cp79/S25q4+1F/MTpEV69ck+etay uGfn+qkvs5O3SCKd21Radnry4eKqNrFtLv/r1bNqdpeSD/9Y/aTPybdiD1W3 B7ubnStp3Xb+0rdn1//bs754JPESk44zmWzGgnS2wHuN/4YwaSUX1z1SIynL cg/Q8TenkktoyhzL5IqC2K3zCl/OZxn6JWU8zYVdUh1DVKMnk7oT4sHq4sLC wuLi4vIcc+akmnR95vwVzTNK+zf/zy5dNnPt9r3iTFL77s2ZriA+vpq1+3gn FHqlXcFEkrL7m13Z1lzdXEjZXvnw1RAro94//Mk2wfS8ZoLYWzm71J9PO1yv Nek623fN2YXFXFp3mTKVKS7etknnxqsd7XNuUP2QuW+rv2nSq+pPJs5aX3N1 Vvt9xbdie6/b1j+5azYXzz83XjyyeDDpeNbHST3vJm2kSURKx0izgsV1Qraf SMyz3YOgUaRxdDSZs4rc21yuG7FGmPI3L5wTQ1Sj/zGphq9kqdLJM+lb7l6a hiQ/Xfz19kTv78Yvqdv8fzKd7DP/9ZcnEZOeTU/cfjifKz7KPZzWhA8TS+rz 2JRU+vbt+enbmgf+xDa5en2eRjfn2fn8n8+XO7HwL6ScRzHptUudwG32yW/5 J/Oz2lhsmc7XeClnh0+v8+rFPyUfPsotsNO/ptTvJ1qTkolL819XSRKnGvnm 7ek/uRcvF+9p1HObxmyD62d/e+H2DdoQt1I3+i37y0Rydv5Fr/h7xQma8sWF xWcbVYFfnKW3eW3mhe/F9ly3VbVub03ee/lK2Hj14uFtWrfneSw27+HBpNGM c3QilrLJVCrFsKYJzHYpy/TeKdN3vJpUFnMkEi3Wymny3yXD3eTSKRrlxZOM QiqVznGaQklllhnXzFlGY6mi0DDWTJlNdQuda8iyUMjG6Qci4ym21C9gQygy CTWlaIzhGrqbLzFEpLGsQ+21xXKJ1xVAEktMXDOqHommssWGoWJlMdstYoot G1uw3fl4pzGSTJl+Rq6xTO/iThElgWUSUXpD0XiO06bgshqNeDLpuZnltVWu w+patd5sD9zc4jGYtTXacJ89Cq7mSfcF23lS3aPv7Pzii/ru+09771v/bb7d 7Q2vfdhef7VpGAzshB6/KB9JbuxZJJWeWXpL18Dsb7OXlNcX1t/3XtpdUF65 YVgqI9VezF46X6y+H3BHFsj19dXtHeOQ4PqjG0qRHpF791DO7tVFEhvenFz6 qEl5/79nNx1Nem1imq9uf9zb+7jb3H5d/3TQnCdR8+wfG5qEth9eVV7/9Y9N T/VD5kkvmudJP67fU4pxO6/7jr238aup7Xwqtte6ff9ESeHsk1dNbRnFxQlj q402XmLSASbl0opxTTNrUqbvE810qleTksTH0p33ZD5GHvOC9skulbUTqXoY JWuJT1qt++mmlS3LVjlaEk1m2XTM8h1VeG2eJsFWPAT0Qi5pk228rLWpxCk1 bopnJU75ssGUW4aL7UgWRA/VaMXR1u6euj7HOexvOeEm/WC/ypQ++q5Ob7uZ mNqXP314/3Fv98/pfuBwUd1/QZK6adprs/3bDX2w+X5BeYTe2AhsNmx/f+/j h/fS62Wj7zyU82C/9juJRiffGq62WrtLlWQ+ruHTek5JKpU3fjP5b0mJLi/d 68nabf3QtbumXTD0C4D5LTXGfPjqva/F9la3NCC9ZbE5a1fR99V7H03vjSBe YtJ0J2qSTdDr7D1oEdV6NKlI1JKodDOUC0SHTEkTysliJqGujx2PxRM94vFY MlPqFVQdIu76hy2US8VMUjVMIi+aCkMvj6cYbQBKicSTKUazLrcTNSvFqRWU 3KIeVmS1SoyaZ4IplErFnHbNV1ItYptT6ss0xyrxmf7Vaa5luJgSSySZVFIj zX7duqlGa1yZdG3KVIEaLi/YjfmecJM67Negbzks6+0uQcmzt2/cvGSedNPs v7DP5ROJj6hJSTDSHXB+uPhs43X9454P8yVSbbXITv5y9aJ56s1sUhflVCO7 XxdNBxk5mTRpNiBNfJ5rGt872H14STv46bZ+7HfBqCnMzueePNL+5edJlE1v 06die6tb+sqVS7eLv2lK2J1EmCRvwaRdjr4LJpZVFp0GZ1LqhSijDOdKnPLK WDxn+OdLJvjGzRN8DSqpiG7Laq2YNtpEa9JIPM+rVVRSVwmNxTNqACqLeYM3 aSG9rCZqMMRhybzmySmLNERO5CvKi8OaNMbka5KacorYNMOr9e5QjXa4UtVB s7xcrm7V37XbcveLWbte5aYunKZVen2xaf05mNRmK8en10uOa0hcmfSjhaFy 5tSuXbrIzi9rloPuPZtO3kol07Z/F9OTv5Mn7fs/py/al9OVSc3lbJHwTTMm 6XS/Dhs8RTUoM49dvyfDucn+B93Vj312+3QI1+nPZNKjFttT3W6TIVynv0uz x2NpZ8gc3aR0qUxwJi2SCDRL/SdXyIrY8bI+3qOJmAeZ6Y1kTUc/FBJKFmli E7t02kJWEaZxTLVNFzn3y0915t6kbT5LbMcai1jLK0Wk1TiUSc1DwRWyTVe9 2KkabTmKqsqMItPT6VXLC2BSa5PuCZpZ1PMsm/+TWxWrm293m39Onj2KSTu0 1n//5ZLl85NODtIHtf3fT8qTduOROtN3c2Ky+Mez9fWN7Vqz9VoZgRzOpHTl j8UiKI8mdUqKDmb+OCGSqNBF/dhnp1lDm56e7u1wMf7NTk6+rO35XGxPdcvS bz7J+RmLErLTt9lHL4xDyiOJp10w6ayRTCZT4JXHb1AmbZNZUf0YKY0ZtUOy rooRYYyri7rfbJWwNJGrDEjH1l+SHyZVPqIbtSZlJEPTJHAeyqTmi9vmiwPb BWOLzCkqPTNnOVsKk1qa9O1zZZDt2kTurX5Ni8Wz16NJ+3zarYuvXiw/mtWu hiUn2e69ZG//cntidvK29d/tiV9nlntP2jpLNl0++Ue/aZF8GRjOpA4l92pS iewnsgzuyGBs0vBBx/pxyI6sWbqac7M517die6lbmvKT6nHYCHGs8XEXTEAm bRTpsQapElcu9SmX83RZbDRjZVizAXkl9LJaOqWOxGa4QenYKsnwEZqmOQy0 Q1DDQ4syKgu3xmLKmz6Z1OLib2/SQ+VY3bEL1lOlJ9yk9Kx189IOR5PSqGFh 3Th/RleNHtGkWqRXeWV+c+J3b5EIDcGu5owf3D+aScnT/ub0C8PFFik7Kokm dW36mW35L91z6BDm+qHZmXaL0HD+7PLrwZ7yrdhD1e2V20s4oskZH3fBBGPS Nmu5QlZHJF9zsfCJLl61MmmrrEyhxllhQDquTSrXCmQ81u2KI3Jeok5qtIxk CjWhDE6fIJNSUZ66vmy5IeaEm3RPUDat/DRtbHhHk9Ih09k/dHvk93f+ItNw Q5l0f3s+NfFs3bSCZY88mb2aVB2Fvm2ISNcfmU4i8mT8nWdkL+TFl/9plfSe n79hTNn5IFyygrpjt2f6vXw8+cZys7/H03X9iGSPD/vceDGd37xyaXLbJKr9 3Y2Hk9OicRfM0Yp94LFu9zbIXqofWItfppPFldl580KvkeS4m1RzsoED2qP2 7IvRytjfCJ2g9DEm7VxJZ5jNM7OW0EFmy5iUjB5/tzHp1+YcM7XaNA3ffq0z 5FjAcw+2LD9Kf0RmpnoSfwtGs5Lz1vTvG683xVfPFmZmu6fTOJpUXV3541n2 t2fbtW3x1Ysn09pd/EOZlMbIqcln3Orbnd2PH3br1RfzKWVt8C+/eX1+qjd4 LTX5cn2z/nqD/yOX1px6NKRJD+Rnt2ki5xdWVrerwp+/zd6yTHnQkfIb6nkL ZxeeCx/35I87m8VJ9RCGlzsHnupH00DJIidsv954uXjv4W+90wL3NzWLji4u /PFiu1Zv/be98c/yw0nj3hl/iu25bnWLjm5N3uPXN9/uNOuvhZeLs/22C/EX 644VQZjUtEalPbRJ6WKYeJZrtyU97ZaQU6I0zcmBNJGS8cs9HR2NFk2TkOZg 0AeTanbr9PcQ2SFVSgWu+z7dB0q30mguIl6mo9n2JZHJsqijm9RUjbYMVtXB Wv/Iv9Pnrj9Y5Kr1ZrNZ5xbnzo1RLmzpItKvzWp1rVqtbm1xc5f7V1ye47a2 qt2Xt955+q3S423Sg/qKxWlv3dMCSZhjs3a3+XDAmh/dflK7pEwmdTjp7gfD MTgukf5xONXQaFK35eyz88L5BDxLk9r8zJnTGYAsPUnPQ/1sz5ovIKuwPr1e diz5ebNJj1TsIer2YO/PGacV1/gdwD4+mpQeZZAsaBNs8znGuOjUrUnp9k8L 9/VoETmqJwcKWUW+KdNneGVnx1gkmdcNgjRKJHhUM/LDpJ36JQO83c00Wauf r5HK2tMCJbpXJZIX9cclkeqlW4FUt+qPIJYbHBMjS5GHNalDNdrhwqSr6nYX K+aqsofrT015Guc95ibttNv6b5OGx9ST9fd04Ddtt590b3thwnBy7/mHf6zy yrii5ugA+6Q+VZU9HWQvyZ7I/T6bMh8IfPZXdsl4ML5r6s/vGbaR3pyYXa++ UEqlnnHkvpwK+zt/zRq+UVyd5F8tpw0pq8OtSdPEMuU9/8j0reanG8+qOr+4 r59O2dir+stSOXUP5n79GTthsbt2YnKZ26BD6D4Ve5i67fD21ZLujH0l8Yvs /O+i6dCq0cRHk9YK9GSeCJMr8QJfzGdiEc2jz6NJ6QmBDkft0fPh6cmBdCVq dydJia9UhGIuk2Z7x9xphlsj8Qxfk+S2VCmz6oua4wf9MalG3/0qSGVyZV4Q xQrPldi0ejACTY1Xj2GIZIq81JalRoVVj4/QfqkQ1RqPp0scz3PFTEo3rzy0 SZ2q0QYXqpLLc8wZKzuePpdefWdaanS4ddniWsKZGU/jvMfepD32duu17Xqt 3trZ/eQl7vv43+bGq9X1dWG71vRxV8L+3vu3te3t6obY+Xtd/3j0dSf7u9vr wvqr1Y3qZmvX34ew/PZ1L+V1ob4zxGGGevY65VztpNb5E2tNu/t2Xz/STr3T sm//a0ofrO56v5POZieR7debndYf/hAMd8Uejo+79e6dvt7cfr39duc91iBp cWNSh+lFPaLdIXdEAuoiW8uhYMOLZesgV4/6U2txvm1fDHJQYaOcMb9Jisdo o0DbwWqiYweTGj7CsQnbTAl0pVOnjIbTlbSkCrotP5pvL9ZoTWpXbEuTOlej Je5VdXggN+vdIdouW/X2gadh2iH5PkwKAPgOcRWTKn5wOoNdocWpR5/3iSaK lQr5XRH1B8HJdo+YNnzTv2haYGON+vPfLFnVIzfKxmJootq2WEqaljHFmYLB EWR4M8YZ1gqR/a30cCcKCT+p01UksZxO6gJ04qbxZJrla4Y7lEpZk8ci8bxg 4TE+Z/zx00SmVOGUeVL153LIJqCY6YdQ6VkT2jOOBlajmbBU5RKYFAAQEEF0 80ZF4DiO53mx5vUHwP2k1aiJolirNVqSxbrZlljh+vBCQ/pm+47bnVJVhC6V ithoOS7obbcqvFJGQTT+DowOqSH07oQXROckh8C5GrXApA75+twqAIDjBLo5 8AuY1CHfsBsHABAg6ObAL2BSh3zDbhwAQICgmwO/gEkd8g27cQAAAYJuDvwC JnXIN+zGAQAECLo58AuY1CHfsBsHABAg6ObAL2BSh3zDbhwAQICgmwO/gEkd 8g27cQAAAYJuDvwCJnXIN+zGAQAECLo58AuY1CHfsBsHABAg6ObAL2BSh3zD bhwAQICgmwO/gEkd8g27cQAAAYJuDvwCJnXIN+zGAQAESA2AUQImBQD4TriP NQC+MTApAMB30M2BX4SlKpfApACAgEA3B34BkzrkG3bjAAACBN0c+AVM6pBv 2I0DAAgQdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOACAAEE3B34BkzrkG3bj AAACBN0c+AVM6pBv2I0DAAgQdHPgFzCpQ75hNw4AIEDQzYFfwKQO+YbdOACA AEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPgFzCpQ75hNw4AIEDQ zYFfwKQO+YbdOACAAEE3B34BkzrkG3bjAAACBN0c+AVM6pBv2I0DAAgQdHPg FzCpQ75hNw4AIEDQzYFfuFHV4dbcmCNnZtYcPi6vzijXnZs7GMpoHj/kA+hi AJx4wurmYoEZ7xBLCe0BLx5/KvlUr9hMRba9pi01xIrA96hUai3pu7pDd7hR 1UF1xlGkY6fTtib92lw8pV43Iw9lNI8f8gGYFIATj4tuLmXHnR9+Y2MxVvKY L5fpJzpelpxftM09Eo3Gk+lSpeUxZ//hre6F0OYLmXg0YlX+eDpXqh07o0p8 qdiB816xnkx65vrUnImZmamF1Xc2n1w7pzPuDGJSAMAxwY1JMwNNGkl7fezy mVjfPpzk/OLg3JP5isfMfcbyXrpIQio6qOrGYtyxkqlU7hc5wpS9ftSTSWeq h1501GS64agSkp6CSQEAxwkvMek4k8lmLEhnC7z9uKY17k1Kco9lc/lcD5bN ZpikxlHj4crI2qRtIaH1ZTJT5IRuXYuVcjHPxOn3A8tINjzanHIzac7rRz2Z dGrN/ejswYMLSmVdnppSIlOYFABwbPBg0vGsj77ybFJz7m2eqoqtfHOVyl36 /ylkLe6lpIaj0RxvEbK3axzTvbXI8TLpgaDcTIb3+smAYlIufUaRZ5r73/+2 YFIAwHHDg0mjGedHvljKJlOpFMPWjAFqu5Rleu+U6TueTWqVe5GoNMMb35TE kibu685KprLFhqFgco3tlivFcg1ZElgmQeczI9F4jrOsFqmcS8fUec9IPJUm 4bGm2I0i9WjWVDZdaoWSvlRSmWXGNdOq0ViqKDQMH/NU1bUy271JJteQ5UqR TYxH1cIzOW0KDS6XSpBKi8YZQiqV5ox1Z4Enk56bWV5b5TqsrlXrzfbhV+vr 6wuXlfL0F+serhGtwqQAgOOCl5h0gEm5tOI8U5AlZZS5N3U61XtMas69wSjG MQ6QCrnkmDXxstYIEuc8B5ssiLp0ZZFxmvdUi83Tyd14zkO0LPFJi6VJvWSy Za3JPFU1udiGSEokSXP2t8eUB8+EH23t7qnrc5xBjvLqFHmTafZVe7iGmBQA cNzwEpOmG8qgpg56ne3CG6u40ntMqqqhk6nUEFgSCkYSea2tWiWGPp2jCaZQ KhVz2lVLSdWOZE6QEkskmZR2Bjah2djSzsU1VybT2WyGSSV007VKseUiGdp1 IyBCI62mFWXYQrlUzCTVgifyasGHqmqadizJMMl41JxyrZSJ0Xg4Mp5QiMdj yZIp+jXjyqRrU2MOXF6gY76aPS/nVumcKkwKADh+HH0XTCyrTKgFa1Jb4vq4 kQaqY8m8oL4sizQyS9C1vhqTxph8TVIvppOcdNy4LWTJtdG8oL1DuciM64tN 1xt7WE3UoF8AIrrttLVimuSran1Ik0biec2QtVhIKa+PZ9VkZD7QedL/HTTL y+XqVv1duy13vxS161Vu6sJp2pzXF5u9y+iel9PLTc3I79eq8vqZOU9rf/8H kwIAAuPoJqXbJUIyaVcQRbIts80T38VY47BqLa84lhaDmDRq2vFRYZX4M831 g0o5n1A+nSoaZy1NxVZXO5uqwg71NrOmYykKJOs00fpwVV0yXCwLcVIhauQs Bbt2144yo8j0dHr1f9rQ9fLC1lZ1TaG6VqaDwxeWq9W11eo710KFSQEAAeFp F0w6aySTyRTIwtSATaruguluhMlmmVRcM6kY63+kzWf6/58pGX13cNAiw6ck uLPf8UHTISalYWbCfJCRnyaNMBbl5pSwNJGrONSeLp1BVW13cdC7YGyROUWl Z7oriwYehURJr7rdTQOTAgACwsddMMGa1DL3doUhoVyM7Y7lCmosaXYYWY1D tOtgDclo0pqyGMdq2ZXZpHR0t+RymrTNK+W2Sl/iMuRNziZH9drv1aSHZNj2 Qneq1L1Jp9bczpfCpACAgPBxF0zAK46sc6fBYySRP1DPG6QG1NIiU6gJZQDV vUnpKl9XJpULSY8rjhzTb5WVKdQ4K9jkqCb0nZqUqvPU9WVlla4FXw/bZSV0 PZV+9/Vr5yWvRhuueEcBJgXgxPO9m1QWc1qT0oFQy5iUDhR7j0nVYpjVaC62 ugvGPF1rTStjf5t08ve7j0m/NueYqdWmKYr8WmfoOt0HW04p0LW7Z7B2FwBw XAjCpKYFq+3gTNooKQtQ+6uGJGLSSKpoug8S91EbejBpi4wMR80DtuYzjuRa gc7hMmXzzKeaTynfPy+CjjxHTQuaLALto1d1P3eLuiW1ZF6FNZDBqjpQzlU4 fe76g0WuWm82m3VucU5zNP2FLZsjGhSwCwYAcPzw0aT0BIBkQZtgm8+RUVW/ 50mlSoEu7FVGPiW6sSWSF3Vrg0qkeFGmRIrm3qQHJXJqQZTRObotlsg2U22x 5YJ6yEIkW7aoYalWTnVLpJyuwCs6Hosk87pyN0r01CEq2aNXta5udTEpmbG1 WvvkjAuTrqrbXayYqw5aPnSgnnGEX1UDABwTfDRprUBPFoowuRIv8MV8JqY9 tOdIa3fHM6xCNptJM6m49ky9SKqmJkLtGskUeaktS40Kqx5xoAn6vJhUFvPq fSQynFDhy4W05uQEo6ok3bEP0XgqVywLle6PlJbybDJGD0YgcWVbPXApEs/w NUluS5Uyq76YKtG0j17V9i2r7scZT+X4SkXgihkmXfbntEC5PMecsbLp6XPp VTcbWg63lNMDzz1ATAoAOCa4ManDFJ4e0e6QPvp4N58WWLYyqfb3SQf/pls0 qV9e1DAc6qMlpT0AkMjLjUkPNFGtDaax1gaXiDh+okucJ8F2o5yxv0dGH2Ef tap1dauf/BULFmn7dVpgn8MDuVnfqvbZqrcPnId0/QEmBQAEhKuYVHkSZweZ tLviJ2WwTTRRrFSUFDQ/CE62q8S0gZLViyR3E5FINJZI5Uqmgwx6nyplTTqI xPOCXgdkJDNmOs+HnmikPxtfLpuSTbGlYrpfRNWJ2pLoT7xXGY8l2aLxdPu2 WEqazr6NMwULjbmv6iypVWPxJFa52NCyMsem9Ek7n8OvEJaqXAKTAgACIohu 3qgIHMfxPC/WvP4AuK+0WxWe6yOILkYn3SG3ar1UeV4QJdeJtqVWTawIXSpi rdF2/GBLrCjl5oWGYx4BVnW7JXapNRot59JSYFKHfH1uHQDAcQLdHPgFTOqQ b9iNAwAIEHRz4BcwqUO+YTcOACBA0M2BX8CkDvmG3TgAgABBNwd+AZM65Bt2 4wAAAgTdHPgFTOqQb9iNAwAIEHRz4BcwqUO+YTcOACBA0M2BX8CkDvmG3TgA gABBNwd+AZM65Bt24wAAAgTdHPgFTOqQb9iNAwAIEHRz4BcwqUO+YTcOACBA 0M2BX8CkDvmG3TgAgABBNwd+AZM65Bt24wAAAqQGwCgBkwIAfCfcxxoA3xiY FADgO/1u/n8AnHRgUgBAQMCkYESASQEAAQGTghEBJgUABARMCkYEmBQAEBAw KRgRYFIAQEDApGBEgEkBAAEBk4IRASYFAATE/7d3/s9p5Pf91//D1P+BJuOf NY17+bQliZ1paX2ejmqn1+M6sU3i1hunEkmIkXQ3KzVgqWJko9EdF0EPUV2R PeuTkTygYkUcYsRhSUVYRu56pKqhsX/IZ9nv7C7LLuwaSTwfox/ulve+3+99 r3cfvN7fgElBjwCTAgBsAiYFPQJMCgCwCZgU9AgwKQDAJmBS0CPApAAAm4BJ QY8AkwIAbAImBT0CTAoAsAmYFPQIMCkAwCZgUtAjwKQAAJuASUGPAJMCAGwC JgU9AkwKALAJmBT0CDApAMAmzJj0+JA+rOmmqB0fH9f0k9hJrbwUmY1T+e7V AJxcYFIAgE0YN+n+6gxBENH8YdMEmQiTgPDFm6Z482ZnNRqYiu8cG337mUt/ mB9lKjAcpY1mD3oImBQAYBMGTEpnqcXoLEmwRPPamjreoYa5FKN6Js3HGdf5 NnRSdJL+OE+2qgDoWWBSAIBNtDbp4QYhQ9ukh3lSTKErstIik3B0S6P7tXZ8 eHh4rPxAJ31N3Y8Mk4LmwKQAAJswEJMebmUzmWwmGhhuYtL9iI+V7DIV0O3d 3VmO+NjAdTQwxUAGIiW227acXRzlA1pieHQmu3+sk34/uxgY9QnaHianIhtC +pYmLS1FlvIHBl664AwCkwIAbML4OCkbHqpNerw8U7ddYGmHSdJKZFO8/3x1 hoentg7flJdnuINTs5HZqVHu89VyrVn6fKRenG+UrLuVN+roBlepVibNR+vn Ti1hSlIvApMCAGzCuEm34hom3Vpkw9DZTN1N3ISf0bjOhJ/SIpNkNC/OIKqV AqwKM/u83Mqrs/UDgeWaZnrGlvQBLfvfjWi9VhFOpa1MWqO3ZllXDwfiZcOz nsDZACYFANhEJyY92IjWrTRF8VKqbbEiW9Rx1FacNaOgusOtxbqII1lZkgO2 r3iqVNNIzxWzs7Ean50JkKNMmDo8LBu9NTROWssvcqFuoASZ9hIwKQDAJjox aT7KBni+wFSAhe9sHR4lydnlnSaZKEwaZ9WXlyWh2e5bXnMqkx4sCnObfGRg ZjYyG/CZM+lxeXGKrSe5iBHTngImBQDYRCcm3Vme9THWJEdZ6iEi7zifb4Yq NcmkobeWM6kv2mDSaF10ga1jjfTHpUV2mpGsb3ZnybhJ6S2Kkz2GSnsQmBQA YBNmZxzFdbpE+d7deKveXYLaETzGuY8ISFFqPs4GjEvHWukP8/X+5FHJvMcb 7ECtQZOys5VGl0vYuaEXgUkBADbR2qS1fSo6G4lG2G5UJh6ciUZmFzNljZTc jCOf3oyjnaUAl0s0Hp0iZ+tzcbkuYoKMU6tUnJ/HGxciX0X6wvYqF/cytViM R0hh7Qxv0lYVKG9kSlhr2qvApAAAm2ht0uMtadcFgcb+WCllgJ1xpCer2n48 IPiPHwA9zsan5HkvZvd10pdXI7K0U4zhWfOyZdZKU+wAKGwJ1MCkAACbMN67 ayGHNK3Y0Kh2SO+X9xk0t8hXpj+mmZQHNIQJTACTAgBsoismBeDdA5MCAGwC JgU9AkwKALAJmBT0CDApAMAmYFLQI8CkAACbgElBjwCTAgBsAiYFPQJMCgCw CZgU9AgwKQDAJmBS0CPApAAAm4BJQY8AkwIAbAImBT0CTAoAsAmYFPQIMCkA wCZgUtAjwKQAAJuASUGP0F2TAgAAAGcDmBQAAADohG6ZtNudTwAAG8FjDqyi W6oyCEwKALAJPObAKmBSnXK7fXMAADaCxxxYBUyqU263bw4AwEbwmAOrgEl1 yu32zQEA2Agec2AVMKlOud2+OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrl dvvmAABsBI85sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsDALARPObAKmBSnXK7 fXMAADaCxxxYBUyqU263bw4AwEbwmAOrgEl1yu32zQEA2Agec2AVMKlOud2+ OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrldvvmAABsBI85sAq7VFU72tvO r2cyKysrmcx6ca9aaysbmPSk8eqb9OOlLx9TK5XX3a4KAJ2BxxxYhRFV1fKT fbpcGM+IibdX5m5cOq+V6rx3fv1tW0Yzb8JOwSPWjLXg5Q9/8N6HP7j8dL/b VQGgM7r1mOcixACD05Outjh4pqCrpUIunWJJZwul3bN0oUZUdbQ+rm/S817R pPTIOV3njqy0YbS2ZNgRMGkznk27WZNeXYNJwSnHwGNeIQf0X359fc5gxWS5 lJ/LdCBZaXFQRjXoEot0RAq0dqJCKsaQoHa1P+8O1QLld7scGm3ncLq9ifSJ e9O20YymTHrhxsikivHxkbmVPTHtOBePnr8yPrewXtze29teX1kgLol+PU/R po3Wpg47ACZtRu4BZ1L3M/TuglOOEZP6W5rU4d01WW7K7+SkSVVaHJTYTfTL yhzwpzRzprxcqv4mOu4C6bCnVQs2vZxu0UYzmjLp+HrL0c631Lh3ZmVbdZye vMQ32kjGhEpPtElfF2PjvuCYL/Z0+9XOypzv5vW6Yup/1z+6/XC9LE/7/EmY SRkcCz+vn1heW/rs/vgYc2Q6+NlzSUkvnn46dud9PhPm75bH93h9W7Pwl4Wv 7vvcYom3Prp5/8E9tghf7ElRmbq8ERu/LSZm/rxDE2vfHKhypXNL4YnbV6/z dbh46yP3xHgotVZk61hcCPruCDnc9Y1Nj7N/Y7778yuvTZXFN93Q51S9qpXC ysKDiWlV5V8WHk3fvirm8+H7l4MPvtxVGFx2F17vP2OKviU04PVrNxeeqpqC ZZMKf/zRRSnna+77X6y80kwKzi5mYtIBwk/6NfCSkZTZ+K8Nk2ZDLrl6+hwe zXq30PE7JxsalNXZ6Q/F0rl6m2dTyTBJiF9SBrxUt2vaQBvNaMqkpiSoIC+o 9OyYdH/ljswX6r/7lPQaXwtyRrg4Nx/yNiQTBhz30xPva+dz98FXCntsfuHT KffW+FfyxLtPQtebpJxe2pQl3J7zNL+Wp+Wj/a9uNS10rGKqLKHprg/di427 Gyu/wiXJzQ81Kevm0x1anVWzv4lF+TUyFD+/fVE78UcTRQTavYQJkw6QFg7q mTdpyStEpGIfKZnWSJcmuUycpu1uB6WYGEf3u0NakXuVCtUjVgeRfOeV06ON ZrQ6Jm3GnpefhXRuftvEtKMTbdKDlUYnXrzr890fH5Lp5qo4LUcYXlT/cSbd vn9NOjL96cJT6ss5nxSOffyFpIOXayFZMHVz7tPPPp+emJDFbneCK2LiV+th 6bjv3uOn6WdPH90fuiyWlRJC57VpMYfLwenww6UFJk68KwRudZO+3pwbkuLu O56bHw/dZv7u3nZPTD96baYsVdNJf9fZrwEVakxy69DYQ+rR4/l7MmMOSd9R VFl5h4amx+R34fam5MeD2G3p7szNf/lsPZ2an7gllf7I6JMDTj8mTNrv149O cgnS7fF4iKBqALOaIAn2k6T4iVmT0rmQEInGCkmv8N8JxdWEvB4xynO5CR6P xxuiZJWqJIPEgGzMst/piaVLypZJBj31SodKNJ2OkC7xBMeAJ5jgKlhKx4hB Kad+J0GVGi4+QQgidZI6rVfNJROphgpUcgnCJetVd/R7yFhJ0bB0jqxX0RNM Ku9glTmduRluIimeQxeCBJuYqWIlHSQG+8UL6neFKHkOBptRiSmTXhpfyKxQ DCuZ9eJ2tdZSiW8ZjrbXkzcu8BU7RyTbMJqpUyzBrEknHjySVoUcPAsKWrw7 v8Edk5v0+u2x1Prmy4ODl+Xtza+Lr5hQThTH+76crB/0+dKESgflOSFzb/CR vEPy9Tdf3lKa9MXnH/GW//xpQy9xbv42n8mDdGO2NxVTiSqFRxPXLsfWX/An 8uOkV1XjpMbLUujv4vT8o2L5xauDF7vfbDwvM9e/PS2E5xNfPJNd4eb9j8Sv FhvqrLzj0ef7UmLxLsyt8ZV/uXaPvwVD4YZvyAfPPuYzcT9T93mDM4qZmLSF SSkvb1zVyFrFz/lENpxq1qRC5n1e5jM65RRe82n5m72SlA+kNkLwRVdSbq15 P/W8yCStVaIm/W4y6HVqfiIJr5oSswhmTQT06ZC7SbGupNymFYpvcVU8W6H4 LxtEcleRuBnuSM5EM2rR2dzdczcmqaMmZ9XyM4rUNyZXzMa0p8Kk8hiQ47UY nX107yV7RDTp9OKGKiPRQe99vq58jz8cEqJCVgev1oWA9NqE8oFT1UcMEu80 9veylHlb8TV8McfX4aa+SsS5u4pVMGbKkunvo7FNVXGvxKDbE1aOXX4T5YPi a8qsbqnK3fz0phRQs0ljHmVfgYgYBd9/+kLv+sEZwkxM6mWiJlqFmK65BzWi WpMmzQlqGczWC6Qjgg6JhCyUo3P+QWl+7IDTNcjicjnd/gRbUamLuO6fYCSZ iPndkmEGwzlVZcTkLg8hD0BFHC63h5DNy2WiZr46hQhfWr+JGVm7CUIqc5CI JBKxkHzOl1uqYpXi20s1xlpJ+bnUXmpXkVjEOegmPG6ZNLm2NdKM2hgyaWZE 1YAyPpjT9KP6LGLG1LxdyWgmT7KADk3KvMWD7/MvfO6xEASkGfIIJn1/TP1P rvKUD0s/ZsPbV0JUNbGkmkujNqmQ+MNrQ7FPQ58/EP6mQ7EHwkgrryTJ5h++ f/X+/JfPvi6+PND4h9NsFYyZsmRVnU6rixCzmqbUs63KQje4EKQ3vwtiPoJJ pWucmJbVsP4XnhbGiIXE4OzT+SoYJ8lPOrXPpKIX+gm+O7dC8Uf6XCHFIyoM 8A2oB/hKoqQcDUtWCzGv0iZykzpc4ZTURAlpllCfyy8FoHQurPCmWEkzs4lK hOAwd1j2ZqBzYog8GM7yB9s1qZMIFypSzh7Bpv6U1O46zdgMQ6o62k4uJNfz xb1qla5/MasW16mRK9L2Czfm1ZN162ctzM3NzEyOeG9ISS+MV80bzcwZ1tCx SV/wnaUfhRpjUq1lmAfpu40BrJyXT3kd3Jmul1L8gu8pnVOHTqr6bArdqnp/ QmzbMPwqdkRfuxqcXpBPl212IabK0m26o5wUS6rDQ6Fhf+DmK9A8q5cKk74W u3D1/mDS3qFzk4pTZewzaUyIQEnRf3RWmBE7kGz88i1mou5kFi+EVG39EBnk i/AKNmmWTzVN8sJU9qlWxUnOXP1FnRk3aTVFCrYLKqtYCPNVFJuxLZOqu4Kz wjJdKbFeMzalE1UlCd6Q572t9lt4uy3MOOq7Mlc0a7T2qtcJHZtUCJ2MmFSc fapl0soTvtfx7qf1EUPRMkZMKkwYrntnml0qovobCj6QBlt31z67e03TL9Lg abMLMVeWrknFuU9aUhM6in9wmx9QNm5S2Sxf79iYVg19Ez7f4wIGSnsFU6tg vKQSv98fSfGvX7tMWhVGRRv7SMWYUd4la6gaDkI5u6g+T4MPSwdD2Rb5NPVX xQqT8qc09FoLdRS6poXAuS2TqhNX1YltWwXTFJri9XhhstloqUhN3N5hJNMq rdJobVavAzrv3Z0Q+jMbe3c1twYq82OU1zRMKg4acjGp+L/BJVXPp6o+Ys/w 5+sm5sS/KhdzTx8tPJj42CNOu33vlpBnswsxV5auScWsNGNSoYfWfEwqzqr6 KITFLuDI0lUwNpm0FBO3NfAkqGSCI5kMi9Ni+/1ahlUbMMWHXlpTp6SeWD/V Kp+mSlKcIuapDgObkZbCQ4068hO3+pz8hxaZVCPxuzdpbZ1fI3pFe6hUzlGm h0wqzQu6/RkXhemaVOyxvPx4R/mZIkAT7aAxG2f/qzuN9XkpKOnDoWh77qg8 DV9vciGpxnjRXFm6JhWzuj72pfIzMa4UvqKYManYzhcXvj4Jy+1Al7FwFYw9 Jq0GNWfINuAIFwxMfBInr2qZdDfJD6G6gukW+Rg2KV2ICP2xRmccCfslNkhN rKMwhDrId06fIZOKc3rP3VhouSCGFjoQzr5JX2+I6y+mn/C+0d+u9hm/tOS9 675GDe08EjokBcm+3hAH++4++EqQ6cHmk8/uCitHpPocPLsrJA5qzBmmc4sT 09w6ndeb057bX65pxLl3Gk2ae3BTOyg2XpZO03HsiwtbLn7ZuDwvJfQh3xIX fpowqdQ3/uE136bK96/Lz+77xnLo3O0ZTrpJZTsb6CDfaq95NXb9zS9EHKC0 MCZlUoojzOqRWU3ETmbNmFToPT61Menb7UliZGVb1X37tkgIm+lemskLaRc+ uDGeV/+EWi3/QZ8ysXGjGU9vFSbXk170+iYeUiubX2+sLYakDQRkc3FbbPx+ IA3hXb9979k3L14fvNh8EpYOjkk7Bkg6qBdx1eu5qthWSO4U+USgO757qbWN 5zvbxa/Tj+cnvO/Lum2FWO+Wx/cltfJ8p/xyv1xcfzTtuSiM0vISlObo/sAd o9KbXz97PH/v/qf13QKNlnXUyqT15hJHXS/OLaVfHtAvdzZi0lYVsuDdjEnl 30PqOzN88WizUNz9ZvPZk4X7Pu3VPeAMY4dJVXNUqm2bVJwM4yKparXSSHU3 HeKjNNnOgWImCWVUJ/aO9sdUg5DqYNACk8pW63BriJpRySYiVP1zcR2ouJRG lkjwstib3bwmtDAtqnOTqpqxKa1VdZThtlU4f+nGzDy1Xtze3i5S8+I2ugxX 8m/FtEIX7hViboHKM4mL+eTcyAV5YjNrSk+JSTX/rqa+keKpZsswRXaf3Gua 1bWxxl3sDh6PX1Unu66OSdnED7USS2dxyzD1dgJ8r3GbIGEIWP73Pjcp11hZ R9I3h2Ym1d+6MCjfALB5VhomZb4JfL2gu7sgfi2uh7DQpOJWBu6IPMNqKkQo J50aNam4/FPDfSy7ghylnQPTJC9fj+qcFL+yo8/hDjd09JQSQvAoFWSFSZn2 FTp464tpSK2fr6kk5bsFVsS1Ko5wrnG7JKF5xaVAklsbtyCmSxThFKYit2tS nWZshgGTrmj+2qjI5Lq0SLTFylMmscmde0+LSe80Tnm9M3Qv1/hCFjpF3WvN Ow9f1XcTUr7b744vaD7Cz59Gg0M3vR639/bNj8cmHj4tvtrh9zgSN1aSJ27Y sF2IZ4PTn+V2+CmwOeqzCdkUIzEk/DgYfa7Yfn7nq+BHjck8oZcmypIW/ni1 1pMKvEg9UG29+/7NLxt/GkAnK3G0WtzjSLiA4pfB2+r9ge/c9i1Qz7CPfe9g oUkLEXFnHgcRSqTSqVjY73TI3n0mTSruEKiz1Z64P7y4c6A4E7W+kiSRymbT sZDfG2S3uZN1tzpc/lShQlcr2WRQOijbftAak8r0zTWBxx9KptK5XDZFJYJe aWMEMbeUtA2Dwx9LVap0pZQNSttHyL9U5KQWd3kTVCpFxfyehnHltk2q14xN MKAqOjlJXNCy6flL3pW9xgiztrcw6b10XuM3SjUSGzaa2bM6x5RJvQ/q61Ne lreLhc1ioVjR2tDAOJXCxtrTlfrf2rPdfRNZ7S75hBBMe5eel+Xi5vqz3Ncb m19vPt95oTkv6PXBi+eFzXqyesriy+aThyo7ReZ6n3+zXdnX+HJgpCxDHJQ3 11a4BskVtq2cc/uaudIN5jI3v95g7prmNhTgbGPEpDrDi43kmm1yJ0hAmmSr 2RWsOJjUDnIbkX5qzZWqNq+GsFFhKelXfyhUj5BHgU07qwUd65hUcQoVHGxa qIA404mpo2J3JTmeSMOSH9m3F23kJm1WbU2T6jejJsZVVTuit4v5dY58sXqk N8lInjhf3KZ1E7c0WnvndkLHq2Bs5cWzJyvPGyXLxInChJ/LD7+BFABojaGY lPeD3h7sPLuUtPU5R/9gLJsVfldE+kFwYbmHUx6+NR5UTbDRRvr576Awq4cu JZXVkEW11VzCrZrG5CIiCkcI3ZtOSjFXSFjfKm7uJCKEn6LTJSq5pNfdEKAL bhpwe4OpguIKKwlS5TGHK5zW8FgqpPzx00F/Ikvx46TSz+UIi4Ccqh9CFfea kO9x1LIZ1XRLVQaBSTUQxjSvf3RzYnxirvGHYD70qVaOAAC0MPSYm6SUTVMU lUqlcgWzPwBuJbulQi6XKxRKuxWNebO7uSzFkUqXKu/si3eVqVU2XSebzZV2 dSf0VnezKb6O6Zzyd2AaqJTS7JWk0jn9LNtAvxnlwKQ65bZoZXG+a5dMqjGl x3MPv7AJgEHsMCnoTWBSnXJbtN3rjWnP1TsfXQ6qZvjYTDk1fy84dJMp+tb7 F9mZMxfv3PZ9+XSz9akAAAGYFFgFTKpTbrdvDgDARvCYA6uASXXK7fbNAQDY CB5zYBUwqU653b45AAAbwWMOrAIm1Sm32zcHAGAjeMyBVcCkOuV2++YAAGwE jzmwCphUp9xu3xwAgI3gMQdWAZPqlNvtmwMAsBE85sAqYFKdcrt9cwAANoLH HFgFTKpTbrdvDgDARvCYA6uASXXK7fbNAQDYCB5zYBUwqU653b45AAAbKQDQ S8CkAADL6e5rDYB3DEwKALAcPObAKrqlKoPApAAAm8BjDqwCJtUpt9s3BwBg I3jMgVXApDrldvvmAABsBI85sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsDALAR PObAKmBSnXK7fXMAADaCxxxYBUyqU263bw4AwEbwmAOrgEl1yu32zQEA2Age c2AVMKlOud2+OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrldvvmAABsBI85 sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsDALARPObAKmBSnXK7fXMAADaCxxxY BUyqU263bw4AwEbwmAOrsFtVb2v0XjG/zpIvbtO1t6ZOh0kBADaBxxxYhRFV 1fKTfbpcGM+oz6quLxBXLihSnvNqpGxpNFOnWAIeMQDOPN16zHMRYoDB6UlX Wxw8+WTDHrbaRJZumqZaKeWy6RRLNlvYrZyqKzSGEVUdrY/rm/S80o9vqZFL 2ilHYFIAwInAwGNeIQf0X359fc5gxWS5lJ/LdCBZ0T/YtHRHf7/L7U1kd02W bD0prWsRqKYifle/Q6v+Lm8oUThxRq2kEjEGynzDmjLphRsjkyrGx0fmVvbk 6TPjkkbPXSIWVvJ7e3v59cz8ODGe3G7DaKZF2DEwKQBnHiMm9bc0qcNr9rWb 8js5+1AV/YOtS3eHsyYLtxjNa6lTSXv6WzVdn5M6UTKtJLkqO4ik2VNNmXR8 vdbSQbXijNhM3oWiJUbrMJO2y7XjXgEATghmYtIBwk/6NfCSkVTzfk1tjJtU KN1JhsIhlmCQ9BNumaMGuisjbZNW04NyX7r9MSpdb+tcNhkLEy7x+4FmJNs9 qhR/MV7K7KmmTDqSoVsp6O38B+e4xB/MdarRP8CkAADbMGHSAdJCX5k2qbr0 akpUVTD7zlVK1+H+M01qXEtCCkf7QymNkL1aoIj6pTlOlkmP0vzF+FNmz7Q4 Jq0mz3NJz3mr1hnNipzaKdeOWwUAOCGYMGm/X/+Vn0uQbo/HQwQLygC1miAJ 9pOk+Ilpk2qVHhNU6k8pP6zkErK4rz4q6SFjJUXF6EKwXi9PkCrRlXSQGBTH Mx39rhCl2SyVZMjrlMY9HS6PVwiPZdUuxUSPkqq6NeQWSTTWqpIMEgOyYdV+ pyeWLilOM9XUhWSwfpFEqETT2VhwcKBfqjwRkudQokKeQaHR+l2EgMfjpZRt p4Epk14aX8isUAwrmfXidlW9okWWcmWvuDIz7r1x48YHH9wgvOMz89TeUZtG M31ax8CkAJx5zMSkLUxKeXnnqYKsip8fe5OGU83HpOrSSwRvHGUHaTrk7tPG lZQboULpj8G6I7mGfOkcoTfuKVU7JQ7uukImouVKyq0xNYnNhkzKTWaqqYXE TXB4ckLWVPPLI5KtR8I7m7t77sYkJddjflJ7yq6YfgQzjgAAJwMzMam3xHdq NiCmazrxRiuuNB+TSmpgCq2U0kEhFHQMhuW22k0Q4tu2f5CIJBKxkHzWkluy ozAmKOIcdBMe+QjsoGxhSzXkkqV0e0nST3gGG4Zr+WrTMaFr14iABEpeKa9+ IhhJJmJ+t1TxwbBU8baaWszb6SYIt6tfnXMh4XeK8bBjYJDH5XK6E6roV40h k2ZG+nT4YE7s810fbzTp+QuXrly6cOG8/Nh468FWpdHa9WH7wKQAnHk6XwXj JPkBNXtN2hRXY9woBqp97nBaOkznxMhsUJzrKzOpkwgXKlJicZBT7Deupkkh bX84Lb9COkYMNFZbnG9sYjZRSfwC4GhYTluIeYVyJa23aVKHKyzrss5FPPzx AVLKhk7ZOk76h6Pt5EJyPV/cq1bp+peianGdGrki+fHGPB9piia9QMwUq9Kg 6tuj4oi4SYOZIVSYFABgE52bVFwu0SWT1gURE5ZlVlOC75xBZbdqIcw7VqyG YNJ+1YqPbJCPP70UF1TS4UH+bE9MOWqpqrY021nVFM2QLpNUbUsREYr2Clpv r6kTisR02iU0iBQ5V+ydu9uMJMHL9Lx3hTsimlRjblJt/QrfWhdWDA+YwqQA AJswtQrGSyrx+/0RYWKqzSaVVsHUF8KQJOFxyQYVndwp1ZSf+38iofTd0dGu 0H0qBHfNV3yI+QgmFcPMQfVGRlaa1EFo1Jviw9LBUFan9RryadXUzRLbvQqm KTTFq/TCJOfG9XE+8tRaL1Ob4T+8lIFJAQDdxsJVMPaaVLP0apYQQjlnsN6X m5ZiSbXDhNk4gnZ1rFFRmrTAT8bRmnalNqnYu5swOExaTfH11sq/QvmFD6km JUppT6tJa+t8CHqFHyotzn0gmFQty9rcJZgUAHBSsHAVjM0zjrRLF4NHx2D4 SNpvUDSgnF1hCHWQ70A1blJxlq8hk9IRt8kZR7r57yb5IVRXMN2kRCmjU2pS cU7vuRsLbxuP9F2ZVy2RqXqFCBa9uwCArnPaTUrnQnKTih2hmjGp2FFsPiaV qqFWo7ra0ioY9XCtNrv+5pcpDv6e+pj07fYkMbKyrZLf2yLB72bUd2kmzx+s 5fmgVDVHtyrcZcw4AgCcBOwwqWrCatU+k5YS/ARUbtZQRXjHOjwx1XUIcZ9o QxMm3RV6hvvVHbbqPY7oQkQcwyWS6pFPqZxEmNsvQux57ldNaNIItDtvaq50 jbYVWkk9C6slrVV1lOGGN89fujEzT60Xt7e3i9S8fOHolbws/izOXRE/IGao vfpk373k5A3xoJcysfsRTAoAsAkLTSruAOCOyDOspkJCr6rV46SVbESc2Mv3 fFbEhS2OcK5hblBCqF4/kRCqZtykRwlh14J+osHR1VxCWGYqrzYdkTZZcJBJ jRauFJKeeo343RVSvI77HO5wQ71LCXHXIVGynTd1Q9s2xKTCiK3W3Cd9DJh0 pWE5qIrJdcXkIlpne4YLI5Spn/qGSQEANmGhSQsRcWchBxFKpNKpWNjvlG/a 09Hc3QF/kIck/V7C45LvqefwFKRMRLs6/LFUpUpXStmgtMWBLOgzY1I6F5au Y9BPpbOpZMQr2zlBqapKw7YP/S5PKJZMZ+s/UpoIB91OcWMEIa6sShsuOVz+ VKFCVyvZZFA66EmIeXfe1M3vrLQeZ8ATSmWzaSrmJ7xJa3YLpJOTxAUtm56/ 5F3Z09yJt0ZN3jinTH5hkjK3wdEfYFIAgG0YManOEF4juWab9Imvd/VugUkt k8p/n7T1b7r1uxunF5UUm/rI8cg3ABTkZcSkR7KotgmqvtYSNejQPaOOKyUE 26Wkv/k1Eo0RdqdN3dC2jYO/uYhG3lbtFshRO6K3i/l1jnyxetQquHx7tMem z2Qy+e2qqVBUYbS2Tu0ImBSAM4+hmJR/E5OtTFqf8eNR2KZ/MJbN8jnIfhBc WK7ilAdKWgeF0lU4HP3OQU8oodrIgD0rQap04HCF0406EHoynar9fMQdjRr3 xqeTqmw9wUTMy1VRcqK8Jo073ksMON3BmHJ3+2ou4VbtfesiIhoaM97UpNCq yupVgnxixZ2lqaCnMWv9ffh5uqUqg8CkAACbsOMxL2XTFEWlUqlcwewPgFtK dTebojjSOQO9k8agdwtsrqlUOlcxnGm1slvIZdN1srlCqap74m4uy9c7lS7p lmFjU1d3c3UKpdKufm1FYFKdci2+OwCAkwQec2AVMKlOud2+OQAAG8FjDqwC JtUpt9s3BwBgI3jMgVXApDrldvvmAABsBI85sAqYVKfcbt8cAICN4DEHVgGT 6pTb7ZsDALARPObAKmBSnXK7fXMAADaCxxxYBUyqU263bw4AwEbwmAOrgEl1 yu32zQEA2Agec2AVMKlOud2+OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrl dvvmAABsBI85sAqYVKfcbt8cAICNFADoJWBSAIDldPe1BsA7BiYFAFgO95i/ AeCsA5MCAGwCJgU9AkwKALAJmBT0CDApAMAmYFLQI8CkAACbgElBjwCTAgBs AiYFPQJMCgCwCZgU9AgwKQDAJmBS0CPApAAAm4BJQY8AkwIAbAImBT0CTAoA sAmYFPQIMCkAwCZgUtAjwKQAAJuASUGPAJMCAGwCJgU9AkwKALAJmBT0CDAp AMAmYFLQI8CkAACbgElBjwCTAgBsAiYFPQJMCgCwCTMmPT6kD2taxw/2d0pb DKV9Wuvzd0atvBSZjVP5rlYCnFBgUgCATRg36f7qDEEQ0fyh/GB5dZZohIws HzbL4s2bndVoYCq+c2z07Wcu/WF+lKnBcJQ2mj3oIWBSAIBNGDApnaUWo7Mk J8povkFT+aivbs+ZKLW6SsVnhtk0AWqnWV75OOM634aOaztJf5yv13I0bjh7 0EPApAAAm2ht0sMNecipMGlpeTEjixgPsmyISi41c1lpkXHd6JZG92vt+PDw 8Fj5gU762nFNeRgmBc2BSQEANmEgJj3cymYy2Uw0MKw2qRI6W+9f9Wn3r+4s R3xs1DoamGIgA5ESK+FydnF0mDf18OhMdv9YJ/1+djEw6hPEPkxORTaE9C1N WlqKLOUPdC8WnFlgUgCATRgfJ2XDwxYmPd6K1/U2k9HOYWmK95+vzvDw1Nbh m/LyDHdwajYyOzXKfb5arjVLn4/U5eobJetu5Y06usFVqpVJ89H6uVNLmJLU i8CkAACbMG7SrXgrk9Z2ZtkQMrrRNE1pkXHlaF7sD66VAqwKM/u83PgpTIHl mmZ6xpb0AS37341ovVYRrsRWJq3RW7Osq4cD8bLhWU/gbACTAgBswjqT7sc5 Sc2s6kR8W3HWjILqDrcW6wFmJCtLchCpR5pTpZpGepbazsZqfHYmQI4yYerw sGz01tA4aS2/yIW6gRJk2kvApAAAm7DGpMc7sz5Oo5T+bB+VSeOs+vKyJDTb fctrTmXSg0V+EjHhIwMzs5HZgM+cSY/Li1NsXclFjJj2FDApAMAmOjdpbT/L yY2MZluOP/JmFIJBzqS+aINJ2YU1ga1jjfTHpUV2mpGsb3ZnybhJ6S2KG1nF UGkPApMCAGzC7IyjeGOX6P5GnJsTFM2UjWTCmpGgdgSPce4jAlKUmo9z62iO tdIf5qN1VUrmPd5YDBg3KTtbaXS5hJ0behGYFABgE61NWtunorORaCTA9d+S M9HI7CLvTS5+ZKO8mamAADkaWG6yLdHOUoDLJRqPTpGz9bm4UW6+Lhmn6ns7 cLnFhchXkb6wvcotl2FqsRiPkMLaGd6k3B5HvngzU5Y3MiWsNe1VYFIAgE20 NunxljAyKSH0xx4ucrOMhpUJ4ltNjFXbjwfE1NwA6HE2PiXPezG7r5O+vBqR pZ1iDM+aly2uVppiB0BhS6AGJgUA2ITx3l0LOaRpxYZGtUN6v7zPoLlFvjL9 Mc2kPKAhTGACmBQAYBNdMSkA7x6YFABgEzAp6BFgUgCATcCkoEeASQEANgGT gh4BJgUA2ARMCnoEmBQAYBMwKegRYFIAgE3ApKBHgEkBADYBk4IeASYFANgE TAp6BJgUAGATMCnoEWBSAIBNwKSgR4BJAQA2AZOCHgEmBQDYBEwKeoTumhQA AAA4G8CkAAAAQCd0y6Td7nwCANgIHnNgFd1SlUFgUgCATeAxB1YBk+qU2+2b AwCwETzmwCpgUp1yu31zAAA2gsccWAVMqlNut28OAMBG8JgDq4BJdcrt9s0B ANgIHnNgFTCpTrndvjkAABvBYw6sAibVKbfbNwcAYCN4zIFVwKQ65Xb75gAA bASPObAKmFSn3G7fHACAjeAxB1YBk+qU2+2bAwCwETzmwCpgUp1yu31zAAA2 gsccWAVMqlNut28OAMBG8JgDq4BJdcrt9s0BANgIHnNgFTCpTrndvjkAABvB Yw6sAibVKbfbN6cXKS6O3fno6h2PL3fQ7aqAsw4ec2AVMKlOud2+Ob3I2vTV D3/w3oc/uPp0v9tVAWcdPObAKoyoqpaf7NPlwnimvcQGjdamDjsAj1i3eDbt 5ky6BpMCm+nWY56LEAMMTk+62uLgmYKulgq5dIolnS2Uds/ShRpR1dH6uL4c z3sz7SU2aLQ2ddgBMGm3gEnBO8PAY14hB/TfZ319zmDFZLmUn8t0IFlpcVBG NegSi3RECrR2okIqxpCgdrU/7w7VAuV3uxwabedwur2J9Il707bRjKZMeuHG yKSK8fGRuZW99hIbNFqbOuwAmLRbwKTgnWHEpP6WJnV4d02Wm/I7OWlSlRYH JXYT/bIyB/wpzZwpL5eqv4mOu0A67GnVgk0vp1u00YymTDq+XmvpIFOJDRqt 83zaK7dF270uxsZ9wTFf7On2q52VOd/N63UF1P+uf3T74XpZnvb5kzCTMjgW fl4/sby29Nn98THmyHTws+evpWSbVPjjjy5+KOTz4TX3/S9WXmmU/eLp/IT3 mpDy/ct3xyY+D9YrExwPSxnKavh6/1ls/Pat94UaXru58LSofV3lDSaleC3M n3doYu2bhglA/OWMf7b7mt5cYup8WUh88e54wxU11PnTsTvvS9ne8vger28r EjU3qaHT26qY8WYHZwozMekA4Sf9GnjJSMps/NeGSbMhV4N7HB7NerfQ8Tsn GxqU1dnpD8XSuXqbZ1PJMEmIX1IGvFS3a9pAG81oyqQjGbqlg0wlNmi0zvNp r9wWbbe/ckemG/XffUpS1VqQm0hzcW4+5G1IdlmYWlP8/PZF7aw+mijKFXDw LHhNp9zL0lydVjWcWNxUXNPuk9D1Jomnl6TEwuU0+XvfV1Q4az898b524rsP vpKn1Tap4dNNV8x4s4MzhwmTDpAWDuqZN2nJK0SkYh8pmdZIlya5TJym7W4H pZgYR/e7Q1qRe5UK1SNWB5F855XTo41mREyqU26LtjtYaXTixbs+3/3xoVvS EWkCqiCIZuI7iN2Wzpqb//LZejo1PyFmdX38kVDqi88/knlk/N7CfOj+2JAs WJM5SFlDJrocmh6T1/D2pkwWr9bDYso7vnuPn6afPX10f0gM6y6nyk0u55p7 Ynxs4raY8r2Pv5A7evu+pP7L058uPKW+nPNd1UysZdI2TjdYMePNDs4gJkza 79ePTnIJ0u3xeIigagCzmiAJ9pOk+IlZk9K5kBCJxgpJr/DfCcXVhLweMcpz uQkej8cbomSVqiSDxIBszLLf6YmlS8qWSQY99UqHSjSdjpAu8QTHgCeY4CpY SseIQSmnfidBlRouPkEIInWSOq1XzSUTqYYKVHIJwiXrVXf0e8hYSdGwdI6s V9ETTCrvYJU5nbkZbiIpnkMXggSbmKliJR0kBvvFC+p3hSh5DgabUYkpk14a X8isUAwrmfXidrX2ttPEBo3WzpmdYdakEw8eVUQlyWLGu/Mb3DH5G/767bHU +ubLg4OX5e3Nr4uvjo5ert3jPxoKN3xzO3j2MX+W+xnbvVp5OiHk435ckPe4 0qnxqzom9Y5Hn4vHX2+KNZxbeyEcFR198fOnDb2mufnbfCYP0srLef/ml7Je 4uKiTwjoQi+Fg7vUmBgSyleJPl8Sr0USutqkbZ1uqGLGmx2cSczEpC1MSnl5 46pG1ip+ziey4VSzJhUy7/Myn9Epp/CaT8vf7JWkfCC1EYIvupJya837qedF JmmtEjXpd5NBr1PzE0l41ZSYRTBrIqBPh9xNinUl5TatUHyLq+LZCsV/2SCS u4rEzXBHciaaUYvO5u6euzFJHXWQ2KDRTJ5kAaZMeie4ovjktRjcfXSPe2+L b/jpxQ11RjGPMoaV/avgPXL/6QtZyvfuPykrUmpEc0INb41/pUi8+elNIVs+ HzEgvaNKfHRUnn5f83KuphQVfv3sLh8M3hPeB1IQ/fm6UksPh/ie1fuC0FVX 0ebpBipmvNnB2cRMTOploiZahZiuuQc1olqTJs0JahnM1gukI4IOiYQslKNz /kFpfuyA0zXI4nI53f4EW1Gpi7jun2AkmYj53ZJhBsM5VWXE5C4PIQ9ARRwu t4eQzctloma+OoUIX1q/iRlZuwlCKnOQiCQSsZB8zpdbqmKV4ttLNcZaSfm5 1F5qV5FYxDnoJjxumTS5tjXSjNoYMmlmRNWAMj6Yq7Wb2KDR2lBhh3RoUsZU wfcb3tvCG14zxpFkMTEd+vyB/C88Laqzrjwh5fu+56pcdEyqruErIRyTTCoc +fDaUOxTWR2mQ7EHQkB3TWlS9bwgvoZCSlmdx9QPlBhif6wM3lUmbfN0AxVr 3ezgbNL5KhgnyU86tc+kohf6Cb47t0LxR/pcIcW7XRjgG1AP8JVESTkalqwW Yl6lTeQmdbjCKamJEtIsoT6XXwpA6VxY4U2xkmZmE5UIwWHucFo6TOfEEHkw nOUPtmtSJxEuVKScPYJN/Smp3XWasRmGVHW0nVxIrueLe9UqXf9iVi2uUyNX zotNemN+u83ExozWlgw7omOTvpi71tCXqLe447XYl6j3V3+lv96YaAx15Zgy 6UuVSTeFLly9v2sTlWZlCReuFNZB+m7zOr98ylfjzvSK9lV0eLpOxYw3Ozij dG5ScaqMfSaNCREoKfqPzgozYgeSjd8vxUzUnczihZCqrR8ig3wRXsEmzfKp pklemMo+1ao4yZmrv6gz4yatpkjBdkFlFQthvopiM7ZlUnVXcFZYpisl1mvG pnSiqiTB+/G8d8XaxAqjtVe9TujYpOX7xk0qm2HrHRtjF8so/yZ8vvqoqK5W OjSpbNare3pcow7BsaHgg0evWlyOSlji1WnVufKE70S9++kz7avo8HQjFWvZ 7OCMYmoVjJdU4vf7Iyn+9WuXSavCqGhjH6kYM8q7ZA1Vw0EoZxfVpyLwYelg KNsin6b+qlhhUv6Uhl5roY5C17QQOLdlUnXiqjqxbatgmkJTvB0vTLYeADWV uNFobVavAzrv3Z1oHJXT3XCgLAawrVZdSF2dHfbuqk0q9pR+vt66R8NMJ2p5 TnlE4tVaqFVQ2eHpuhUz2uzgbGLhKhibTFqKidsaeBJUMsGRTIbFabH9fi3D qg2Y4kMvralTUk+sn2qVT1MlKU4R81SHgc1IS+GhRh35iVt9Tv5Di0yqkfjd m7S2fomrxBUDo5+mEjcarc3qdUCHJn21zr/hP7z9Wasg7kjqCv7BxYWv9S32 Yq759BshqGzTpC/FWcFD0ZZmMTUcKVzd5cc7ynyE/eqlaqjHSTs73UjFWjY7 OJtYuArGHpNWg5ozZBtwhAsGJj6Jk1e1TLqb5IdQXcF0i3wMm5QuRIT+WKMz joT9EhukJtZRGEId5Dunz5BJxWm6524stFzjYiqxwmjtVa8TOjLp6w1xjcn0 k5Zv+Do5YSbth9d8myqNvS4/u+8b4xaAyEYzb6eEfYdelTe+HBdyaNekRwfC 7NYfvBfUmGBM5xYnptuZ2HP07AE/b/m6r9HRO4+E/lXJkuqcOzxdp2LGmx2c SU66SWU7G+gg32qveTV2/c0vRBygtDAmZVKKI8zqkVlNxE5mzZhU6D0+tTHp 2+1JYmRlW9Uj+7ZInOMb6tJMvp3Eho1mPL1VmFxPetHrm3hIrWx+vbG2GJK2 FZJNN22xnezrDdnsl6tzXzzaLBR3v9l89mThvo8/kV+p8Vry3Yf1HfPcd64p tuhp16SNk47u+O6l1jae72wXv04/np/wslORbwXb6EStV0Nsk+u37z375sXr gxebT8LSwTFpAwTNPuqOTtepmPFmB2cRO0yqmqNSbduk4mQYF0lVq5VGqrvp EB+lyXYOFDNJKKM6sXe0P6YahFQHgxaYVLZah1tD1IxKNhGh6p+L60DFpTSy RIKXxd7s5jWhhWlRnZtU1YxNaa2qo8wFNtPzl27MzFPrxe3t7SI1P3mpT+RK /m1biQ0brW0hto1Jk2r+XU19I/W6iG/4Zm/mV18v6O7sJ+0B+KqgmVL0qawI wUEGTcqc8HBcb7e968JS0+aX80Ic1pQ/grtP7jXN9tqYfFM+zZw7PF2nYsab HZw9LDSpuJWBOyLPsJoKEcpJp0ZNKi7/1HAfy64gR2nnwDTJy9ejOifFr+zo c7jDDYMZpYQQPEoFWWFSpn2FDt76YhpS6+drKkn5boEVca2KI5xr3C5JaF5x KZDk1sYtiOkSRTiFqcjtmlSnGZthwKQr0goWLSbX6TYTGzZaWzLsCLMmvdO4 Ee6doXu5xjdw7gHXkehe0+ktfF38Mnhbve3tndu+BepZw4bqB8WH0767HrfX 4757+/b9TxeeHxykxrg98W7npN2W+Lm+3um0oihxJFe2xxHP86fRhu3c+fj6 anD6s9zOQavLecFvd+AJKSYIvSo8mlBtF3x3fEHxpAo9rm5FUGn0dPMVM9Hs 4GxhoUkLEXFnHgcRSqTSqVjY73TI3n0mTSruEKiz1Z64P7y4c6A4E7W+kiSR ymbTsZDfG2S3uZN1tzpc/lShQlcr2WRQOijbftAak8r0zTWBxx9KptK5XDZF JYJeaWMEMbeUtA2Dwx9LVap0pZQNSttHyL9U5KQWd3kTVCpFxfyehnHltk2q 14xNMKAqOjlJXNAS5PlL3pW9WgeJjRrN7FmdY8qk3gf1JRgvy9vFwmaxUKwc dDZ95fWL54WN3Pqzza83mNxeGs1tW9wLQj3HtQ1eloub689yX29sfr35fOeF VbNbK4WNtacr9b+1Z7v7phuqw9P1aLPZwSnGiEl1hhcbyTXb5E6QgDTJVrMr WHEwqR3kNiL91JorVW1eDWGjwlLSr/5QqB4hjwKbdlYLOtYxqeIUKjjYtFAB caYTU0fF7kpyPJGGJT+yby/ayE3arNqaJtVvRk2Mq6p2RG8X8+sc+WL1SK+X 1lTilkZr79xO6HgVjI28LKTX1hW/UkI/5WOx966PffkuKwPA6cVQTMr7QW8P dp5dStr6nKN/MJbNCr8rIv0guLDcwykP3xoPqibYaCP9/HdQmNVDl5LKasii 2mou4VZNY3IREYUjhO5NJ6WYKySsbxU3dxIRwk/R6RKVXNLrbgjQBTcNuL3B VEFxhZUEqfKYwxVOa3gsFVL++OmgP5Gl+HFS6edyhEVATtUPoYp7Tcj3OGrZ jGq6pSqDwKRq1oJcL+5F79DQ/eC9++PyH4K5+PAbBFMAGMLQY26SUjZNUVQq lcoVzP4AuJXslgq5XK5QKO1WNObN7uayFEcqXaq8szdGlalVNl0nm82VdnUn 9FZ3sym+jumc8ndgGqiU0uyVpNI5/SzbQL8Z5cCkOuW2aGVhk5xb3TGpxqSj +5Ty90YBAM2ww6SgN4FJdcpt0XavN6Y9V+98dDk4r159aSOV9Udz4767nqu3 rl2+/n59atD1a1eD09EiZpkCYAaYFFgFTKpTbrdvDgDARvCYA6uASXXK7fbN AQDYCB5zYBUwqU653b45AAAbwWMOrAIm1Sm32zcHAGAjeMyBVcCkOuV2++YA AGwEjzmwCphUp9xu3xwAgI3gMQdWAZPqlNvtmwMAsBE85sAqYFKdcrt9cwAA NoLHHFgFTKpTbrdvDgDARvCYA6uASXXK7fbNAQDYCB5zYBUwqU653b45AAAb KQDQS8CkAADL6e5rDYB3DEwKALAcPObAKrqlKoPApAAAm8BjDqwCJtUpt9s3 BwBgI3jMgVXApDrldvvmAABsBI85sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsD ALARPObAKmBSnXK7fXMAADaCxxxYBUyqU263bw4AwEbwmAOrgEl1yu32zQEA 2Agec2AVMKlOud2+OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrldvvmAABs BI85sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsDALARPObAKmBSnXK7fXMAADaC xxxYBUyqU263bw4AwEbwmAOrsE9V9F5xhWJIJpNUJr999LadTGBSAIBN4DEH VmFEVbX8ZJ8uF8Yz8vR0MXnjgjrVOWJmpdaW0UyeZAF4xAA483TrMc9FiAEG pyddbXHw5JMNe9hqE1m6aZpqpZTLplMs2Wxht3KqrtAYRlR1tD6ub9LzXsmk e0lvw0fnz5+T//8H86ZkCpMCAGzCwGNeIQf0X359fc5gxWS5lJ/LdCBZ0T/Y tHRHf7/L7U1kd02WbD0prWsRqKYifle/Q6v+Lm8oUThxRq2kEjEGynzDmjLp hRsjkyrGx0fmVvaEtHs3hLa6Mk7RfI9urZgcF306nqHNGq0dF3YGTArAmceI Sf0tTerwmn3tpvxOzj5URf9g69Ld4azJwi1G81rqVNKe/lZN1+ekTpRMK0mu yg4iafZUUyYdX28RUIr9wOduLCg+2lvgHXt+JKN5ro7RjKe3CpgUgDOPmZh0 gPCTfg28ZCTVvF9TG+MmFUp3kqFwiCUYJP2EW+aoge7KSNuk1fSg3Jduf4xK 19s6l03GwoRL/H6gGcl2jyrFX4yXMnuqKZOOtAonpeh1fF3xEU3BpACAE4QJ kw6QFvrKtEnVpVdToqqC2XeuUroO959pUuNaElI42h9KaYTs1QJF1C/NcbJM epTmL8afMnumTTFpX9+l5F7DbF16ZYT74IP5bbNGM57eKmBSAM48Jkza79d/ 5ecSpNvj8RDBgjJArSZIgv0kKX5i2qRapccElfpTyg8ruYQs7quPSnrIWElR MboQrNfLE6RKdCUdJAbF8UxHvytEaTZLJRnyOqVxT4fL4xXCY1m1SzHRo6Sq bg25RRKNtaokg8SAbFi13+mJpUuK00w1dSEZrF8kESrRdDYWHBzolypPhOQ5 lKiQZ1BotH4XIeDxeCll22lgyqSXxhcy7MqWlcx6cbta01jYUvVKE4zOeeeo Kufeo8wV4eDCnon1MDApAMAmzMSkLUxKeXnnqYKsip8fe5OGU83HpOrSSwRv HGUHaTrk7tPGlZQboULpj8G6I7mGfOkcoTfuKVU7JQ7uukImouVKyq0xNYnN hkzKTWaqqYXETXB4ckLWVPPLI5KtR8I7m7t77sYkddSY+O1e8lJjois3blwS 9OpN7mmXoWs0kxq0AJgUgDOPmZjUW+I7NRsQ0zWdeKMVV5qPSSU1MIVWSumg EAo6BsNyW+0mCPHF2z9IRBKJWEg+a8kt2VEYExRxDroJj3wEdlC2sKUacslS ur0k6Sc8gw3DtXy16ZjQtWtEQAIlr5RXPxGMJBMxv1uq+GBYqnhbTS3m7XQT hNvVr865kPA7xXjYMTDI43I53QlV9KvGkEkzI306fDCn6PMtzmisJmVTJtsz mtmzOgcmBeDM0/kqGCfJD6jZa9KmuBrjRjFQ7XOH09JhOidGZoPiXF+ZSZ1E uFCREouDnGK/cTVNCmn7w2n5FdIxYqCx2uJ8YxOziUriFwBHw3LaQkxcUylp vU2TOlxhWZd1LuLhjw+QUjZ0ytZx0j8cbScXkuv54l61Ste/FFWL69TIlfPi 7bwhG/pcnxT6cS95FxbmblwSk9Xj0nMfzJlYAwOTAgBso3OTisslumTSuiBi wrLMakrwnTOo7FYthHnHitUQTNqvWvGRDfLxp5figko6PMif7YkpRy1V1ZZm O6uaohnSZZKqbSkiQtFeQevtNXVCkZhOu4QGkSLnir1zd5uRJHhLnveucEek GUfnvWI3bq1anCOkHt8LmLsLADgBmFoF4yWV+P3+iDAx1WaTSqtg6gthSJLw uGSDik7ulGrKz/0/kVD67uhoV+g+FYK75is+xHwEk4ph5qB6IyMrTeogNOpN 8WHpYCir03oN+bRq6maJ7V4F0xSa4lV6YZIdLX278AE/IDq+rhg+/cP2ghin X8kb3ucIJgUA2ISFq2DsNalm6dUsIYRyzmC9LzctxZJqhwmzcQTt6lijojRp gZ+MozXtSm1SsXc3YXCYtJri662Vf4XyCx9STUqU0p5Wk9bW+VDzCjdUejTO D5BeyChFyrAtbH8EkwIAuo+Fq2BsnnGkXboYPDoGw0fSfoOiAeXsCkOog3wH qnGTirN8DZmUjrhNzjjSzX83yQ+huoLpJiVKGZ1Sk4pzes/dWGBXtogmPZ+s qpPTwgKZS1qe1TNae9XrBJgUgDPPaTcpnQvJTSp2hGrGpGJHsfmYVKqGWo3q akurYNTDtdrs+ptfpjj4e+pj0rfbk8TIyrZKfm+LhLC25dJMnju24j3f6FYJ aQj1nFdDs7pGM5zcMmBSAM48dphUNWG1ap9JSwl+Aio3a6gimNThiamuQ4j7 RBuaMOmu0DPcr+6wVe9xRBci4hgukVSPfErlJMLcfhFiz3O/akKTRqDdeVNz pWu0rdBK6llYLWmtqqMMF2iev3RjZp5aL25vbxep+UnZotErecGaR7LfXzt/ Y6ZIc924tSI1KU7h/WCuaNZo7fqwfWBSAM48FppU3AHAHZFnWE2FhF5Vq8dJ K9mIOLGX7/msiAtbHOFcw9yghFC9fiIhVM24SY8Swq4F/USDo6u5hLDMVF5t OiJtsuAgkxotXCkkPfUa8bsrpHgd9znc4YZ6lxLirkOiZDtv6oa2bYhJhRFb rblP+hgw6Yq03EWLyfWGdS0ZcRUMy7nzDWefu4FfVQMAnAgsNGkhIu4s5CBC iVQ6FQv7nfJNezqauzvgD/KQpN9LeFzyPfUcnoKUiWhXhz+WqlTpSikblLY4 kAV9ZkxK58LSdQz6qXQ2lYx4ZTsnKFVVadj2od/lCcWS6Wz9R0oT4aDbKW6M IMSVVWnDJYfLnypU6GolmwxKBz0JMe/Om7r5nZXW4wx4QqlsNk3F/IQ3ac1u gXRykrigZdPzl7wrexpi3MvMXdFIf2E8mW/PaGbP6hyYFIAzjxGT6gzhNZJr tkmf+HpX7xaY1DKp/PdJW/+mW7+7cXpRSbGpjxyPfANAQV5GTHoki2qboOpr LVGDDt0z6rhSQrBdSvqbXyPRGGF32tQNbds4+JuLaORt1W6BHLUjeruYX+fI F6tHLbbPpfeKmRWODJPcxGa7KqO1dWpHwKQAnHkMxaT8m5hsZdL6jB+Pwjb9 g7Fsls9B9oPgwnIVpzxQ0joolK7C4eh3DnpCCdVGBuxZCVKlA4crnG7UgdCT 6VTt5yPuaNS4Nz6dVGXrCSZiXq6KkhPlNWnc8V5iwOkOxpS721dzCbdq71sX EdHQmPGmJoVWVVavEuQTK+4sTQU9jVnr78PP0y1VGQQmBQDYhB2PeSmbpigq lUrlCmZ/ANxSqrvZFMWRzhnonTQGvVtgc02l0rmK4Uyrld1CLpuuk80VSlXd E3dzWb7eqXRJtwwbm7q6m6tTKJV29WsrApPqlGvx3QEAnCTwmAOrgEl1yu32 zQEA2Agec2AVMKlOud2+OQAAG8FjDqwCJtUpt9s3BwBgI3jMgVXApDrldvvm AABsBI85sAqYVKfcbt8cAICN4DEHVgGT6pTb7ZsDALARPObAKmBSnXK7fXMA ADaCxxxYBUyqU263bw4AwEbwmAOrgEl1yu32zQEA2Agec2AVMKlOud2+OQAA G8FjDqwCJtUpt9s3BwBgI3jMgVXApDrldvvmAABspABALwGTAgAsp7uvNQDe MTApAMByuMf8DQBnHZgUAGATMCnoEWBSAIBNwKSgR4BJAQA2AZOCHgEmBQDY BEwKegSYFABgEzAp6BFgUgCATcCkoEeASQEANgGTgh4BJgUA2ARMCnoEmBQA YBMwKegRYFIAgE3ApKBHgEkBADYBk4IeASYFANgETAp6BJgUAGATMCnoEWBS AIBNwKSgR4BJAQA2AZOCHgEmBQDYBEwKegSYFABgEzAp6BFgUgCATZgx6fEh fVjTTVE7Pj6u6Sexk1p5KTIbp/LdqwE4ucCkAACbMG7S/dUZgiCi+cOmCTIR JgHhizdN8ebNzmo0MBXfOTb69jOX/jA/ylRgOEobzR70EDApAMAmDJiUzlKL 0VmSYInmtTV1vEMNcylG9UyajzOu823opOgk/XGebFUB0LPApAAAm2ht0sMN Qoa2SQ/zpJhCV2SlRSbh6JZG92vt+PDw8Fj5gU76mrofGSYFzYFJAQA2YSAm PdzKZjLZTDQw3MSk+xEfK9llKqDbu7uzHPGxgetoYIqBDERKbLdtObs4yge0 xPDoTHb/WCf9fnYxMOoTtD1MTkU2hPQtTVpaiizlDwy8dMEZBCYFANiE8XFS NjxUm/R4eaZuu8DSDpOklcimeP/56gwPT20dvikvz3AHp2Yjs1Oj3Oer5Vqz 9PlIvTjfKFl3K2/U0Q2uUq1Mmo/Wz51awpSkXgQmBQDYhHGTbsU1TLq1yIah s5m6m7gJP6NxnQk/pUUmyWhenEFUKwVYFWb2ebmVV2frBwLLNc30jC3pA1r2 vxvReq0inEpbmbRGb82yrh4OxMuGZz2BswFMCgCwiU5MerARrVtpiuKlVNti Rbao46itOGtGQXWHW4t1EUeysiQHbF/xVKmmkZ4rZmdjNT47EyBHmTB1eFg2 emtonLSWX+RC3UAJMu0lYFIAgE10YtJ8lA3wfIGpAAvf2To8SpKzyztNMlGY NM6qLy9LQrPdt7zmVCY9WBTmNvnIwMxsZDbgM2fS4/LiFFtPchEjpj0FTAoA sIlOTLqzPOtjrEmOstRDRN5xPt8MVWqSSUNvLWdSX7TBpNG66AJbxxrpj0uL 7DQjWd/szpJxk9JbFCd7DJX2IDApAMAmzM44iut0ifK9u/FWvbsEtSN4jHMf EZCi1HycDRiXjrXSH+br/cmjknmPN9iBWoMmZWcrjS6XsHNDLwKTAgBsorVJ a/tUdDYSjbDdqEw8OBONzC5myhopuRlHPr0ZRztLAS6XaDw6Rc7W5+JyXcQE GadWqTg/jzcuRL6K9IXtVS7uZWqxGI+QwtoZ3qStKlDeyJSw1rRXgUkBADbR 2qTHW9KuCwKN/bFSygA740hPVrX9eEDwHz8AepyNT8nzXszu66Qvr0ZkaacY w7PmZcuslabYAVDYEqiBSQEANmG8d9dCDmlasaFR7ZDeL+8zaG6Rr0x/TDMp D2gIE5gAJgUA2ERXTArAuwcmBQDYBEwKegSYFABgEzAp6BFgUgCATcCkoEeA SQEANgGTgh4BJgUA2ARMCnoEmBQAYBMwKegRYFIAgE3ApKBHgEkBADYBk4Ie ASYFANgETAp6BJgUAGATMCnoEWBSAIBNwKSgR4BJAQA2AZOCHqG7JgUAAADO BjApAAAA0AndMmm3I3IAAACgU2BSAAAAoBNgUgAAAKATYFIAAACgE2BSAAAA oBNgUgAAAKATYFIAAACgE2BSAAAAoBNOuEn/53/+5/nz5zRN66TZ39+3rj14 Dg8PX7x4YXm2AICTQKVSYd4t1ub56tWr4+NjnQTlcvm//uu/rC0UnBBOuEl/ 85vf/PM//zNJks0S5PP54eFhxrYWtsnLly9/9rOf6RQKADjVjIyM/OQnP6lW qxbm+fnnn09MTPz3f/+35qd7e3ter5d5We3s7FhYKDghnHCTMv84PR4P8+9T /dHvf//7VCr1y1/+krHeN998Y1WDFIvF69ev//Ef/zFMCsBZ5ac//SnzjN+8 ebNUKlmVZyQS+fGPf/wv//IvmoEnI1DGpExcwLxhrCoRnBxOqUn/93//Nx6P M/8smU+Zf59W9Zmsrq7+7d/+LfOIff/73//ss88syRMAcNJgrHfx4kXmSb96 9Wo6nbYkz3w+PzQ0xLyRRkdHc7mc4lOY9GxzGk1K0/SDBw9u377NfANkPrJk QLNWq8ViMZfLxTxcf/3Xf/0f//EfnecJADixJBIJ5knnnnfma/n//d//dZ7n 06dPf/nLXzKvrF/84hdfffWVPE+Y9Gxz6ky6t7cXCAQYh/7kJz/513/911ev XnXeCIeHh8Fg8Hvf+56131EBACcZRnyDg4NcH9Tk5KQlc5CYyHRkZIR5a/3s Zz9jvpyLc5Bg0rPN6TLp5ubm2NgYc4QJSOfm5hgDdt4CL1++ZP6Ff+c732Ee qH/4h3/Y2trqPM8zzHE5G5mNZMp6cxQ7pHZIH9B0zb4CeI4P6cN2S2l6bu1w fyvP/CPa2tnv9B/nfn41MjMzMzsbiVL7LSr6O5rl6HfNkxzR28X8b3/723y+ uL33UidhT8G8hdxuN/PsM28AJpw8ODjoPM/d3V2SJJnX1D/90z8xN5CbgwST nm1Oi0l///vfr6yscD0nzJe9eDz+u99Z8DL45ptvbty4wTxH3/72txk7MwFv 53mebQ7zUYIgonm9dUkdlhAfZkoY3rDgW5Ie+6sz7IW0U0yzc3dWI4QMMppt +/vA/uqsLKcWrVGM/KiP5Vu/WlV/+ru91V/98Nt9DXzrK/tu4GmjXC7funWL eQMw7wHm9WLJHCTm+/m9e/d+zMLNQYJJzzanwqTj4+OMOrnR/J///OcURXU+ qFGr1Z4+fXr16lXu6+ivfvWrZtPXgZzDrbjNJj1enSV9ozNbdkW9dJZajM6S nKJMXojeucelRfawL0KtZlcXyfr3AWJqub0lD4fx0XpW1NZBrXZ8sN8kQv/d diTwyT/KLPltlUl/V4z8UZ+ab6/CpDJevXr1i1/84r333mPeBteuXUun08z7 ocM8X79+/eDBAyYs5eYgPX78eHh4GCY9q5wKkzLf5ZiAkfkPn8/3n//5n5Zc +MbGxl/+5V8yD86f//mfM18aLV+mfVaoHR83vFJ4k24dch8eHmoLr/7J4bHF PbTNi6v3qhos7nBDHjaaM6nuudlZX12dVJmvECdWX7xV0KvZVHSUyWx0scUV 0avfUghSaVI6IA9Gv/3DQDgcGPohYlI1R0dHJEn+6Z/+KfNO+Ku/+qtsNtt5 nsfHx5FIhHt3cRqFSc8qp8KkjEC5ft2f/vSn8/Pz+huJGGR7e/tHP/rRH7Mw OWO5tJLjMhWdGual4QvMRLM7dSdwJp1dzi5HAsKHUxuyYbzaQT5CCucRo/EM 37CHW1RglFzM8+NQtXJmivnfjQOhtFXm0+hqXUM7y5FRMrLD3uTjneXAaGAp u0E1KY7JOLs0K5Q3OjM7EyCZQFDnX8jhVjaTyWaigWHzManOuaz7CF9WOnYQ qaca1ek/LmcXR4WqD4/OZPe5ajNR+Sjf7FNTATJAlZpkQX+lb1ImIBU/+lF4 TfaB3oBqb/L8+XNuoIeB+Q9LFtYxmUxMTDCvlx//+Mcff/zx0NAQTHpWORUm Zf415vP50dFRbhD//v37r1+/7vzaX758yXxR5Lp0/v7v/169BKyH2edG6Xzk 1OzsDMm97mc33ggm5Z1GkoIIZvkdGw+yggNmIhFexIGl+sDTcWmp7ouZDJcw H2UTji5x8tihppj/i2TrYt2q92z6uJHBFsW9OaYCgl9nZgLCx0b8WFok2+6m 1jj3MM92x0ZlE1ZqmZnhulubzGEpL89wtZ2ajcxOcc02vFpmviQcL40KevUx l+Rb3Gom46PtYr64XYz847c0Tbr2yfdFx05Hpv/xh5d/+MMfDX0SXts7auOq zzC//e1v/+7v/o4b6PnFL35hyd5HzPtNfGXNzMwwbzCMk55hTotJ37DrX379 619zg/j37t1jPNj55R8eHjJ5fve732Ueor/5m7958uRJ53meAY636j2Tw7NS Bxddyq6y4SSnNt9UvMSP3dHciB4bi9VW6+4gpihhzsbBBjumOMpqcWeKzZSV 4L4QRnKiqS1PSeEba1L+v3WLe0NvRNnsI+WaWKDRCVFb8fZNqnHucZ5kQ/BD /WQitRL7FWA0I8TXZW6KUWC5/v+1LZLtGTbY+SIaU2HSr4YUE40kPlm14PE5 G1AUdeXKFeYN8L3vfY95sRwdWfA1I51O+3w++VoYzDg625wik74R9mTgBvFJ ktze3u68BWq12m9+8xtuzNTlclm1Rvt0c5BhReebXVzOl3YOZKOTnNrisvlA sgCNjvvkAWOdPGu+6AYteHZ4lVHnTj0+DczWg9ZAfWCxzIp0kdOQ2qRNiuMD 26hsYqvxCVFamjuszxMaVsLUUdFDa8qkSyUNHx6y31V8Eflg3EGEHWgt1YQI dzRuUPNNTPryE7Hz91vfH/rkk1/942VJpX/0K6iUedKj0ehf/MVfcGOj//Zv /9b5RCMmz4cPHzLS5PZnePz4Mfc+gUnPNqfLpG/YfQK/+OILbp/AkZGRr7/+ 2pJ2WFlZ4fYJvHjx4v3795lSLMn21HK8EZ8i5IzObLCjeGpVSVrh3/+Lcpts sHqIs/2TB5l62BXZ2GddGdg53q+PJI4uHuzXxU0uloQMlSbVLk5LVZ2Z9Hg1 OjM1o2RqJqoYd9U4V3Cf/Nq5bxFLWoO2XD1H43nZMZodVw3Ur0bLyzo0MSk9 LXTufvuT33KHxPUyfX3fX+vtLl4mTpyenv7+97/P7cfy9OnTzvNk3htMBHrn zh3u7SQfMIJJzzanzqRv2L3rl5eXme97zEe//OUvrZrNy/wL5+Yg/dmf/dkn n3zS+bfT007t8GBna2OZik9x448BqtZCbQf1WTfDEfnAIP/pBtcbm/XVu2rZ WHRm9Y0wJDrLziYSjWPcpHxMKhtG5GbMdqF39015hvOg9K/mcHGUaDbjiO+1 jjaYlJ2zFNgyb9LfBgSTfrImP772Cd+7+0c/+jfuyNHaJzDpG7Ynamxs7P/9 v//HzS+yZA3p0dER12OmuY89THq2OY0m5RDnIA0PD1syZvqG/alTbg7Sn/zJ n8zNzVmS52mktp/PbJRlB7bEgEtXbfz8n4g4yaa2w/rFlzngRzlZWUiTgmpl Spi7OrVTEzM0atJ9NsglyCi35dJhOR8N+EzNOIprdb22dy47v0h27fur7A4T Ee0JR5wrZf3Gh3l2bhXJTsEyatKXqw///eFXDz/5Ib9m9I8uf8L8778/XOOu f+/fh8Te3KF/++3e9uo/iv293w708joYRnkXLlz4zne+8/Of/9yqt8f8/PxP fvIT+b5GcmDSs83pNekbdnOSX//619b+4+TmIDmdTuYrq1V5njoO8/W9eoZH p6KL1DK1NEOyCzyi0tzdZmrjJujWvRhdWl1eZBeLEMOzGTExP2VX8uYB79ap 5ZqUoVGTSqczpYgrb/RNWtunorORaIRVLjFMzkQjs4uZctP0hs893uGufXgm ukQtRfjrXG6as9AUZJxapeL8PN44V3N+JnCrcVLVKhhxEFRYLkoHvq+dIrDW yyJ9w3wJ/+53v2vV/CIO5mV1584d+V67cmDSs80JN+mjR4/8fv/9+/ebJaBp mhGfVd8qOWq1WigU+vTTTy3M83RRO9iYGfURMgKRZS624qbKxGWqKi3VA1Fx pcZBXlzDwZ4YXZUHVuqZNtzpsxlpmhLrSlIwaYvimLpSkalRn495N87El5fj gRYmPd4iCSWNvazNaXXuwcaizOfEzJJ+tsfZhsFo32JWaIRaeYaNT1vEpEdr TTx5WdZzuxceutzw4bcuR37b67ONwuHwb37zG2tHcJiX1cOHD5vNV2TeVMw/ UeZtZsnWvuCkccJNCrpI7fiQeer39w+abizUlOOD/XK5zJz5rseal9k1rJqT fN4RNbrMYvDaa4f0fnmfwd6m+h29t11n72UPD44CYBswKTjN1PenrW/AFF9a Xqb4XldftKc7LgEA7xyYFJxmuPmxMkZnt97BD7IBAIAMmBSccmqHBwfl8k6p VNrZRzAKAOgCMCkAAADQCTApAAAA0AkwKQAAANAJMCkAAADQCTApAAAA0Akw KQAAANAJMCkAAADQCTApAAAA0AkwKQAAANAJMCkAAADQCTApAAAA0AkwKQAA ANAJMCkAAADQCTApAAAA0AndNSkAAABwNoBJAQAAgE549yYFAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADA /wd8P05D "], {{0, 1574}, {622, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{311., Automatic}, ImageSizeRaw->{622, 1574}, PlotRange->{{0, 622}, {0, 1574}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7642305588313503`*^9, 3.764230599704339*^9}, { 3.764230668758751*^9, 3.764230683816114*^9}, {3.7642314997003727`*^9, 3.764231529189035*^9}, 3.764662801133771*^9, 3.764675097764153*^9, 3.765992515562112*^9, 3.769086567859001*^9, 3.769092508713669*^9, 3.769092842905046*^9, 3.769092913246969*^9, 3.769092992504033*^9}, CellLabel->"Out[5]=", CellID->402099052] }, Open ]], Cell["\<\ Testosterone, for example, can be taken as the query molecule:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765975675803549*^9, 3.765975702871846*^9}, { 3.7659773054124813`*^9, 3.765977326993469*^9}, {3.765992567288097*^9, 3.765992570703587*^9}, {3.7748036971596932`*^9, 3.7748037024501348`*^9}}, CellID->340276458], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"queryMolecule", "=", RowBox[{"Normal", "@", RowBox[{"database", "[", TemplateBox[{"\"testosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Testosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Testosterone\\\"]\"", "\"chemical\""}, "Entity"], "]"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765975727006534*^9, 3.765975730963323*^9}, { 3.765975791525391*^9, 3.7659758089318047`*^9}, 3.765976064649988*^9, { 3.765977071902967*^9, 3.7659770736913233`*^9}, 3.765977332726624*^9, { 3.765978499016906*^9, 3.765978500981596*^9}, 3.765992637345858*^9, 3.769092753744028*^9}, CellLabel->"In[6]:=", CellID->258855039], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"FullAtomCount\"\>", "\[Rule]", "49"}], ",", RowBox[{"\<\"FullBondCount\"\>", "\[Rule]", "52"}], ",", RowBox[{"\<\"AliphaticCarbocycleCount\"\>", "\[Rule]", "4"}], ",", RowBox[{"\<\"AliphaticRingCount\"\>", "\[Rule]", "4"}], ",", RowBox[{"\<\"HBondAcceptorCount\"\>", "\[Rule]", "2"}], ",", RowBox[{"\<\"HBondDonorCount\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"HeteroatomCount\"\>", "\[Rule]", "2"}], ",", RowBox[{"\<\"LipinskiHBondAcceptorCount\"\>", "\[Rule]", "2"}], ",", RowBox[{"\<\"LipinskiHBondDonorCount\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"RingCount\"\>", "\[Rule]", "4"}], ",", RowBox[{"\<\"SaturatedCarbocycleCount\"\>", "\[Rule]", "3"}], ",", RowBox[{"\<\"SaturatedRingCount\"\>", "\[Rule]", "3"}], ",", RowBox[{"\<\"StereocenterCount\"\>", "\[Rule]", "6"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7659758102770967`*^9, 3.76597606771422*^9, 3.765977074652505*^9, 3.765977334787929*^9, 3.7659779087361794`*^9, 3.765978502306547*^9, 3.7659926391125393`*^9, 3.769086568088361*^9, 3.769092509084483*^9, 3.769092757793387*^9, 3.7690929189179583`*^9, 3.7690929927168417`*^9}, CellLabel->"Out[6]=", CellID->818103447] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hits", "=", RowBox[{ RowBox[{ RowBox[{"Query", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{"queryMolecule", ",", "#"}], "]"}], "\[LessEqual]", "0.05"}], "&"}], "]"}], "/*", "Keys"}], "]"}], "@", "database"}], "//", "Normal"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765976316669117*^9, 3.765976328100328*^9}, { 3.76597641579527*^9, 3.76597645471169*^9}, {3.765976533270198*^9, 3.765976534959506*^9}, {3.765976914618946*^9, 3.7659769161286287`*^9}, 3.7659771007409573`*^9, {3.765977181057424*^9, 3.765977243525886*^9}, { 3.765977350948165*^9, 3.7659773514659452`*^9}, {3.7659784787733297`*^9, 3.765978508544924*^9}, {3.765978582565291*^9, 3.7659785887706127`*^9}, { 3.76599267598905*^9, 3.7659926902835693`*^9}, {3.7690926379895153`*^9, 3.769092646641214*^9}}, CellLabel->"In[7]:=", CellID->767587915], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"testosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"Testosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"Testosterone\\\"]\"", "\"chemical\""}, "Entity"], ",", TemplateBox[{"\"dehydroepiandrosterone\"", RowBox[{"Entity", "[", RowBox[{"\"Chemical\"", ",", "\"TransDehydroandrosterone\""}], "]"}], "\"Entity[\\\"Chemical\\\", \\\"TransDehydroandrosterone\\\"]\"", "\"chemical\""}, "Entity"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.765976455456834*^9, 3.765976536802517*^9, 3.765976916870904*^9, 3.7659771016118307`*^9, {3.76597718378476*^9, 3.765977244203635*^9}, { 3.765977345337387*^9, 3.765977352654903*^9}, 3.765977910376795*^9, { 3.765978482967857*^9, 3.7659785100934143`*^9}, 3.7659785897811327`*^9, 3.765992641345752*^9, {3.765992678313368*^9, 3.765992691143059*^9}, 3.769086568108664*^9, 3.769092509103423*^9, 3.769092921485835*^9, 3.769092992754507*^9}, CellLabel->"Out[7]=", CellID->483194549] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoleculePlot", "/@", RowBox[{"(", RowBox[{"hits", "/.", "mols"}], ")"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765978654117588*^9, 3.765978681505913*^9}}, CellLabel->"In[8]:=", CellID->138439383], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxFUwtMk1cU7g/aOhkd4SX/X2lahq7ofDGzDRzrsYTHGK9CGBBQdCmIlIWH c1OYbMBqh3OU8RJHRXToBhsDTC1lTG6DMowr6oz+LgY6gUKLlJaWNxU61BW/ 5OTmOzn3fPd+5172x1kxqXYUCmXvSjxbaX98ceVXKRuonVhX7BYMOr6jTrrr 2MCpL2kdPIxBp6qpJFFNAalefoxZRFFKdhob2vbYg3+YdnNy1DKaxAx9wgQM dEJvF2E8pryR6jt2/ao93AvtTppZsCKLf/btb8o9IWD9wx+zA7pXec7zxDhX P/Q2oWQQIOme4SRLNMjGFUzROF8xw/3Lqfd3RTMLFFA01Ftj5nadJ3YMNLiv 9mPsGPCmYi5Qt99npVSDguVTS/fnnWGN9jRnwtGCHmgzts6eoYOmuK6v6c5V ZNtv0zdNhyWe/IcNg3muv4UMkqt68UltSF/Xj6ruv5Lu9SYBpzO1lkbTItp1 dotHVaU7ZBWu6ZG0Yco7Xfxzfh86Q5YgZurAwAKaMAvXac7SIV3XsY9/hKLc bmUvzR6lA/d5Q0z572OHikY7GtykBdTGnR9GsdXs0qMmKtxNe3ZSC+qwWIWZ MiqItIcimB8toomdga0F22nAGOUVtVOeImeHXtfG172AExmd4ybFILKB4USr YwHHdV7knzSIQk/kpmZcY0FKae4RgZhEBy+Qu43znv/7ucR9cZ+X3JtaWBXo sGHVjwQ/2c3P3n/pz8DDyuDILBd4b5tFA6kkN3HmMq34ojOEJ6QY8gtIrr7t SS0hYEN8r6P4taFl7sY9HRd67NgQu7+spPqxlVu+t1kuKicgKbQ9ImV8EdUc SsNRDw7XyjY0Tc8toiubFy4zxQQcy9XJMmMW0IFsu3uU2zjIl2/1qfYtoL8d gs605xNQIcU35nXMoTeO153ikTi0ZBaYGq7PIfNkmTg6m4DWP8OKxaxZZCj0 D/xajcPPj3a5nfCZRc5k/+djAgJUk/lPKsXTSH6KtPSM4lAfOvJunGQa+XZy 0osSCdARzfyLBjMqqMiV0Yw4/CCvSd42Y0b8+k8TGJEErA1SK1riTChISv/k gzkcKrzDv1qbZEI5ImWojEcAT82EvONG5HipadO3Vhw8NllDOguN6PuMV/0i 3iEgz7eQXhWiRw+ag9UqGgHrsTSJMEKP2qISfEa3EiA7Odzf4jaGzsmHqulO BDztV5EMfAzd3d2Af8kiQP8o6JdbwyNIgAqioj0IMCjeYqo0I6hPtYJwNjiN tbfYaylAeQFgumdETJViStt/s827dtTzJ906F7jBaz6sziG5lyLB5WCxl+19 wn/vPPvr "], {{}, {RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}}]}, {RGBColor[0.4, 0.4, 0.4], LineBox[{{7, 8}, {7, 9}, {8, 10}, {8, 11}, {9, 12}, {12, 13}, {13, 14}, {13, 15}, {10, 16}, {11, 17}, {18, 17}, {19, 20}, {14, 20}, {21, 22}, {14, 23}, {15, 24}, {24, 25}, {23, 25}, {4, 26}, {6, 27}}]}, {RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{2, 28}}]}, {GrayLevel[0], {GrayLevel[0], PolygonBox[{7, 29, 30}]}, {GrayLevel[0], PolygonBox[{8, 31, 32}]}, {GrayLevel[0], PolygonBox[{12, 33, 34}]}, {GrayLevel[0], PolygonBox[{13, 35, 36}]}, {GrayLevel[0], PolygonBox[{11, 37, 38}]}, {GrayLevel[0], {Thickness[Small], LineBox[{{39, 40}, {41, 42}, {43, 44}, {45, 46}, {47, 48}, {49, 50}, {51, 52}, {53, 54}, {55, 56}, {57, 58}, {59, 60}}]}}}, {Opacity[0], EdgeForm[None], TagBox[ TooltipBox[DiskBox[61, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[62, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[7, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[8, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[9, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[12, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[13, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[10, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[16, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[11, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[18, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[19, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[17, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[14, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[20, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[63, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[15, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[64, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[24, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[23, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[25, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[65, 0.2], "49"], Annotation[#, 49, "Tooltip"]& ]}}], {GeometricTransformationBox[ {RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.02999999999999972, 0.}, {0., 0.02999999999999972}}, {8.548543190934716, 1.8692628986925475`}}, {{{ 0.02999999999999972, 0.}, {0., 0.02999999999999972}}, { 1.8985431909347146`, -2.4383371013074524`}}}], GeometricTransformationBox[ {RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, { 1.24805, 8.71875}, {4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, { 1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{0.02999999999999972, 0.}, {0., 0.02999999999999972}}, {9.163347985000001, 1.9982270000000024`}}}]}}, BaseStyle->{FontFamily -> "Times", FontSize -> 10}, ImageSizeRaw->403.40159450333], ",", GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxFUwtMk1cUbhGCG2OhjPLqD6WFycvxmJtTBvkPMDYWq2uIdGUYSmwYQ1Re GyAyeY3YEkcVdDCzIS+xPCZvkQy5NdGBMGBDmdBCsUBRa7tBKwVaKCszZTe5 uflyz/nO6zu04ylRCWYEAiHUeLdfuzB/xndedCgN0cR1xxDgWJDnMktNg460 i6y8Yj0ex188qzhOh8zwraYYawI0FEjd7uylQ+G3wr8HlDoc6w1ibvrtgmz7 6rKeRILohDStpNTDDJbsI5kblVvoo6SUpeIHjpB3ou/rcscuFH1XWH8EMGB+ X3HatmgO1awFLt58mwyhhXMDlb/OoQSnObZDD3XH3oTb07+6pMpV4SZ/9sGu wcx+LU7YPiIaGEkWiqo0eOvlBB7XhQwT2c/3BO7WoaNRntX8VBIYP0eaxq7s 5GPiM/n/VOveu3F+EnXFrPSKFXSIl/9Bl6yLcUpVnPcwE4M4Q7hO9WIdXc3a tnQE9tC799r9iCKvnvcFgt/IEDwg8E5+sIbaT/rVCxod4baNZmY9YwsRpWav lXBIYMyiTZZEFCkzusn6Q1aQ7KutmCmXodhjHs9+r6WBQehUOavQ4NfrJA77 Zmgw2hUY4BWlwTnewzYDQVbwqk86lOlKDbOPIoI4l3u/v86AmsYmWEp/p516 tsNRuf/X5yMtcD/cRoNa55Pd2dek6C/auemOMRr84CPpy08dR4t4/Wz/m24Q 818/DfhWx1l1G5O6g7k1zy1Xy8mwKue9CMgV47P9+kHfATuwJKleJl8R46LI q/5DBnPIejSRG5W6hYQR/LSDQxbAV7fkN1OIovLPg0/79WDQyjrF/VG+juoW 8hcSFRSwbnC+FKZeR/JWB4/7zRjoF76Q3WCsoTMHguYb1BSwYOBKJ/YaOrBb MxVbjcHHGZGcW51axLygkcl1FNhY5n6yfEeLSuJHBerLGFwk7p+557yC9jxp eeKxC4OXFbzaQfcVNH27MYLPx2Ba4B77sECDNvZ9Ocu1wkAZ8svmNb4GBZCK 9dRzGHi6kqZkz5bR+HmqtPYtDOTzf7Kz/llGhUnx7bfSMUhvMbCWPltCQsnk tIxi5ONrO49EL6GJux8mHk7EIOebycbNUyqU518mcfPAQMjZ78rIVCFPZweX hVgMbMo6rzsHK1B00SExZy8Glc15j3ShCpSTrh7PMerrxs3Smg9ef4p8HptP Vb2HAX91sKTR+ikaGRrhkSIwCBlO+vno5Dwi+vY/ngnG4Ey4bSh7ah6Z9VnY 2nHoJn3Bw755O5dPzcGSU8kgv0EUmfbHNE9am1EY75AhTx+UOsoTv9I/gQDj KRzLUadN9C8ecARV "], {{}, {RGBColor[0.800498, 0.201504, 0.192061], LineBox[{{1, 2}, {3, 4}, {5, 6}}]}, {RGBColor[0.4, 0.4, 0.4], LineBox[{{7, 8}, {7, 9}, {8, 10}, {10, 11}, {11, 12}, {11, 13}, {9, 14}, {9, 15}, {16, 12}, {17, 18}, {19, 20}, {14, 20}, {21, 22}, {14, 23}, {15, 24}, {2, 25}, {4, 26}, {13, 18}, {23, 27}, {24, 27}}]}, {RGBColor[0.433333, 0.466667, 0.466667], LineBox[{{6, 28}}]}, {GrayLevel[0], {GrayLevel[0], PolygonBox[{7, 29, 30}]}, {GrayLevel[0], PolygonBox[{10, 31, 32}]}, {GrayLevel[0], PolygonBox[{11, 33, 34}]}, {GrayLevel[0], PolygonBox[{9, 35, 36}]}, {GrayLevel[0], PolygonBox[{27, 37, 38}]}, {GrayLevel[0], {Thickness[Small], LineBox[{{39, 40}, {41, 42}, {43, 44}, {45, 46}, {47, 48}, {49, 50}, {51, 52}, {53, 54}, {55, 56}, {57, 58}, {59, 60}}]}}}, {Opacity[0], EdgeForm[None], TagBox[ TooltipBox[DiskBox[61, 0.2], "1"], Annotation[#, 1, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[62, 0.2], "2"], Annotation[#, 2, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[7, 0.2], "3"], Annotation[#, 3, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[8, 0.2], "4"], Annotation[#, 4, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[10, 0.2], "5"], Annotation[#, 5, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[11, 0.2], "6"], Annotation[#, 6, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[9, 0.2], "7"], Annotation[#, 7, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[16, 0.2], "8"], Annotation[#, 8, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[12, 0.2], "9"], Annotation[#, 9, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[17, 0.2], "10"], Annotation[#, 10, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[19, 0.2], "11"], Annotation[#, 11, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[14, 0.2], "12"], Annotation[#, 12, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[15, 0.2], "13"], Annotation[#, 13, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[13, 0.2], "14"], Annotation[#, 14, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[18, 0.2], "15"], Annotation[#, 15, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[20, 0.2], "16"], Annotation[#, 16, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[63, 0.2], "17"], Annotation[#, 17, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[64, 0.2], "18"], Annotation[#, 18, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[23, 0.2], "19"], Annotation[#, 19, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[24, 0.2], "20"], Annotation[#, 20, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[27, 0.2], "21"], Annotation[#, 21, "Tooltip"]& ], TagBox[ TooltipBox[DiskBox[65, 0.2], "49"], Annotation[#, 49, "Tooltip"]& ]}}], {GeometricTransformationBox[ {RGBColor[0.800498, 0.201504, 0.192061], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIJiEF00z67FiaG iftNHa/UMnySd4Dxt8/xLgyNVHIwZHd0Xx112d77BLvtbFMVB/c1R5czSLyz j2yzuHa0V9Uh/0PryRDHn/bpLpn5H56qOfBvYXIOM2d2yFvMuId1krpDgk1z 2z9Pbjj/ksTaxas8BeD8SsZvF1euFnI42m9Yruuo7uDEaZz7/5SIQ3HGxLc1 89UcuAQLOEJfiTms25ZUf/OvqoOW1aTT9R0SDsq3f9Zlyag6LGyZua1+qaRD 1Z97y+x/KztInF+wsP6QlMMl2SPnRG4pOYSUqEz/HyDt8CfIPl9rkiKc/2t2 QEeDsgKcH6YtXLcyXtbhQuK+PQy7pRw8k7f0rTom5bCm+3YGQ7+kw9TacJb/ 1RIOnVt/iDAkSzj88xCUDDMUc3g3he/a/51iDq0cFi1apSIOdzRl1/yfLOLg kfvoSZ27sMPpfdpN/3OFHNSbFz+5KinkcLZUKnOljADEnGZBBwYQcOCG88H2 3GaF87c8jelazcUICTdNIUj4z/hpn3pf9OD/MmEHtd6LVqukPtr/WFp3L+SI iIONUdjs/+FP7d/clX8f2i3m0BfR7c9ocNNe5dqjYIYzEg73Jm689Wf/Pvvo c0t3rOKRhsc30/Z3z1bmyTqgpwcAgk3tkw== "], CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBbCBOamKOmUkqSFIGiEG04/teRYYd 7+w7t/4QYXgs7wDjP2med3ZVvozDn3vL7H8LfrZPeeksfmW7pINN2gKjf7W/ 7B09xAwad4s77Pt2ZhLDVwYHxm8XV2rvF3V4qWbIsWYOq8OjM+ufMRwUcVhw uKaS0YwbzgerLxWA81nWHphw9ayQg+TRIu/VB0UdFrbM3Fa/VMQB7J7D4g52 MUV3NGvFHH4srbsXckTSYbbCKzuGTHGHs6VSmSvnyMD5QtkfNRnUFOB8mZpE o9AARQfDKcJvtVjEHdqYFSMPhCg5xFeneTZYiTkcXLHEz8FY2aE3aefSqwWi DivCTxkdEVRxmKklMfWKp4iDQvK7KKd9KhD3HBVy0DwtcHyXharDyntSN7Qc BSH6N6s6qPVetFolxe9w7M7WlpoPqg4/bxl7M4Vww/m7uTTtV35jhfM1K0v7 GCMZHdSCWRdPqlKFhM+3X/bP7Jfc39en4vBuCt+1/5af7ZfqOMu8XqQMjw+g bwy0JJUc0OMLAP2nya4= "]}]}, {{{{0.02999999999999972, 0.}, {0., 0.02999999999999972}}, {9.084243190934716, 1.9331628986925473`}}, {{{ 0.02999999999999972, 0.}, {0., 0.02999999999999972}}, { 2.434243190934714, -2.3744371013074526`}}}], GeometricTransformationBox[ {RGBColor[0.433333, 0.466667, 0.466667], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.300781, 4.5}, {0.300781, 11.6582}, {1.24805, 11.6582}, { 1.24805, 8.71875}, {4.96875, 8.71875}, {4.96875, 11.6582}, {5.91602, 11.6582}, {5.91602, 4.5}, {4.96875, 4.5}, {4.96875, 7.87402}, { 1.24805, 7.87402}, {1.24805, 4.5}}}]}, {{{{0.02999999999999972, 0.}, {0., 0.02999999999999972}}, { 1.9067479850000009`, -2.061172999999998}}}]}}, BaseStyle->{FontFamily -> "Times", FontSize -> 10}, ImageSizeRaw->403.4381123338551]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.765992706466474*^9, 3.769086569352326*^9, 3.769092510171307*^9, 3.769092926981063*^9, 3.769092992892317*^9}, CellLabel->"Out[8]=", CellID->213884331] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell["Sokal-Sneath dissimilarity is bounded by 0 and 1:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762109133037998*^9, 3.762109145221448*^9}, { 3.764526946935471*^9, 3.764526948758932*^9}, {3.7646613890254297`*^9, 3.764661391896772*^9}, 3.774792398181662*^9, 3.855143854698062*^9}, CellID->188973054], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109190442555*^9, 3.762109217606488*^9}, { 3.764526955034182*^9, 3.764526965695424*^9}, {3.764661396441998*^9, 3.7646614052626133`*^9}}, CellLabel->"In[1]:=", CellID->207144220], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.762109218868479*^9, 3.762860826914282*^9, 3.764526967815462*^9, 3.7646614536926537`*^9, 3.7646750983727903`*^9, 3.769086569769272*^9, 3.769092510460641*^9, 3.769092992987749*^9}, CellLabel->"Out[1]=", CellID->75395025] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762109236878305*^9, 3.762109256172801*^9}, 3.7645269729451637`*^9, 3.76466141176309*^9}, CellLabel->"In[2]:=", CellID->70031001], Cell[BoxData["1"], "Output", TaggingRules->{}, CellChangeTimes->{3.762109258327763*^9, 3.762860826924654*^9, 3.764526973975314*^9, 3.7646614548884068`*^9, 3.7646750984041643`*^9, 3.769086569795259*^9, 3.769092510476975*^9, 3.769092993024315*^9}, CellLabel->"Out[2]=", CellID->162749165] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->458893322], Cell[TextData[{ "The result is the same as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SokalSneathDissimilarity", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/SokalSneathDissimilarity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " when the multisets are sets:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.764661184257112*^9, 3.7646612144544086`*^9}, 3.764661418963243*^9, {3.85514385960599*^9, 3.855143867298808*^9}}, CellID->795418339], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultisetSokalSneathDissimilarity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/MultisetSokalSneathDissimilarity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultisetSokalSneathDissimilarity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultisetSokalSneathDissimilarity"], BoxID -> "MultisetSokalSneathDissimilarity", Selectable->False], "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.764661347021378*^9, 3.764661450916005*^9}, CellLabel->"In[3]:=", CellID->345073899], Cell[BoxData[ FractionBox["3", "4"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7646613156251698`*^9, 3.764661348157003*^9, 3.76466145679819*^9, 3.764675098417564*^9, 3.769086569850213*^9, 3.7690925105137167`*^9, 3.7690929930384817`*^9}, CellLabel->"Out[3]=", CellID->232878480] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SokalSneathDissimilarity", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.764661353963997*^9, 3.7646613554111643`*^9}, 3.764661447020441*^9}, CellLabel->"In[4]:=", CellID->74340327], Cell[BoxData[ FractionBox["3", "4"]], "Output", TaggingRules->{}, CellChangeTimes->{3.764661295264777*^9, 3.764661356495243*^9, 3.764661457881874*^9, 3.764675098451456*^9, 3.7690865699018707`*^9, 3.769092510526678*^9, 3.769092993077121*^9}, CellLabel->"Out[4]=", CellID->903341935] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"MultisetSokalSneathDissimilarity | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[645, 23, 168, 7, 70, "Subsection",ExpressionUUID->"b0cba4d7-6522-4398-bfb8-a567d67fa70b", CellID->904125756], Cell[816, 32, 836, 24, 70, "Text",ExpressionUUID->"b20852ed-a0d7-4231-b058-914d20370f50", CellID->189737144], Cell[CellGroupData[{ Cell[1677, 60, 7565, 190, 70, "Input",ExpressionUUID->"e1f3ae81-8b59-4166-aac2-70d89f820738", CellID->463485059], Cell[9245, 252, 367, 8, 70, "Output",ExpressionUUID->"a000bea9-e974-4451-ab8d-e8d17f688390", CellID->25709364] }, Open ]], Cell[CellGroupData[{ Cell[9649, 265, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d6bde49e-1e8c-4350-b216-38c0ff61d0ef", CellID->14107562], Cell[9795, 271, 822, 23, 70, "Text",ExpressionUUID->"8a68e465-e7f0-4ef5-bf0f-3dc3717ed1e1", CellID->61162467], Cell[CellGroupData[{ Cell[10642, 298, 7822, 197, 70, "Input",ExpressionUUID->"3fa6d7a8-ee1d-4c39-be98-1d6c7e17c4bd", CellID->353172735], Cell[18467, 497, 315, 7, 70, "Output",ExpressionUUID->"eba4231b-dbab-4a3c-8117-315818d96961", CellID->735327178] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18843, 511, 159, 7, 70, "Subsection",ExpressionUUID->"f03e681e-c34e-4602-a0d9-8a06ea49c04d", CellID->204653245], Cell[19005, 520, 197, 5, 70, "Text",ExpressionUUID->"6ddd65a9-0009-4d5f-9428-62af272e1fab", CellID->117144518], Cell[CellGroupData[{ Cell[19227, 529, 7624, 193, 70, "Input",ExpressionUUID->"4a1687b3-0af7-4ebe-90e8-6c6cd00c596a", CellID->169568051], Cell[26854, 724, 345, 8, 70, "Output",ExpressionUUID->"68e9ed6a-157a-47e5-b2de-680195bc2c6e", CellID->621268687] }, Open ]], Cell[CellGroupData[{ Cell[27236, 737, 7671, 194, 70, "Input",ExpressionUUID->"93314f80-56c8-495c-9da1-ced040913b2a", CellID->907166425], Cell[34910, 933, 312, 7, 70, "Output",ExpressionUUID->"cc43e334-dceb-4af6-adc1-6d1651dc6608", CellID->772536376] }, Open ]], Cell[CellGroupData[{ Cell[35259, 945, 7749, 196, 70, "Input",ExpressionUUID->"70a54fd6-002a-48bd-a03f-1e06f3e9c3b3", CellID->656972432], Cell[43011, 1143, 317, 7, 70, "Output",ExpressionUUID->"b3d30c6c-8a6a-4a0a-aa35-56813b2ed446", CellID->639865777] }, Open ]], Cell[CellGroupData[{ Cell[43365, 1155, 7750, 196, 70, "Input",ExpressionUUID->"225e92f4-0d51-4da3-a91a-af2ca1e4e2be", CellID->48639068], Cell[51118, 1353, 316, 7, 70, "Output",ExpressionUUID->"28bb3a15-8537-41b7-8e67-715b2754fca4", CellID->759739509] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[51483, 1366, 167, 7, 70, "Subsection",ExpressionUUID->"76d98c41-d648-4198-bb12-47efd2c2e136", CellID->605265931], Cell[51653, 1375, 977, 16, 70, "Text",ExpressionUUID->"09ba073c-031a-4b6c-9cff-d5b59cb6e18e", CellID->538731500], Cell[52633, 1393, 593, 11, 70, "Text",ExpressionUUID->"92cd7f8d-d0be-4232-a1df-defb9ee48fd1", CellID->905638013], Cell[CellGroupData[{ Cell[53251, 1408, 229, 8, 70, "Subsubsection",ExpressionUUID->"6701859c-2d75-454b-adec-8cd0a2ce8498", CellID->562972423], Cell[53483, 1418, 244, 4, 70, "Text",ExpressionUUID->"29a4711c-fcd9-412c-8c7c-ff6d363bd64a", CellID->135786253], Cell[CellGroupData[{ Cell[53752, 1426, 2384, 52, 70, "Input",ExpressionUUID->"9cc85a69-bb06-4d03-b046-f65a282d6c37", CellID->617861163], Cell[56139, 1480, 23808, 397, 70, "Output",ExpressionUUID->"670da3b5-ca85-4c9c-95ca-d2699acd8166", CellID->890606172] }, Open ]], Cell[79962, 1880, 478, 9, 70, "Text",ExpressionUUID->"919ae4f2-d231-4489-a3fc-dc488252a8cc", CellID->840502074], Cell[80443, 1891, 442, 12, 70, "Text",ExpressionUUID->"da66cecc-0922-4e11-9db5-f15b0a0a5ec7", CellID->290916933], Cell[CellGroupData[{ Cell[80910, 1907, 8675, 208, 70, "Input",ExpressionUUID->"31d4cf59-7880-418a-9b3b-4770c765008b", CellID->798992220], Cell[89588, 2117, 1930, 46, 70, "Output",ExpressionUUID->"ea2f8fc4-89cf-402e-91d4-9609aedc686a", CellID->666609762] }, Open ]], Cell[91533, 2166, 704, 22, 70, "Text",ExpressionUUID->"c1f0bd9f-8277-4913-bbfa-090bafe45b18", CellID->532525120], Cell[CellGroupData[{ Cell[92262, 2192, 8008, 193, 70, "Input",ExpressionUUID->"6d31c253-028c-4b28-8732-bd144adf6a34", CellID->903117063], Cell[100273, 2387, 2768, 88, 70, "Output",ExpressionUUID->"2c6b927c-15ad-417b-a22f-037abfec931a", CellID->340704491] }, Open ]], Cell[103056, 2478, 732, 13, 70, "Text",ExpressionUUID->"618b6435-8fdc-4840-b55d-5a4344a701eb", CellID->270250122], Cell[CellGroupData[{ Cell[103813, 2495, 288, 8, 70, "Input",ExpressionUUID->"2717a702-8836-4fe6-a14b-a1e73ae78962", CellID->259632918], Cell[104104, 2505, 24993, 417, 70, "Output",ExpressionUUID->"d602be16-54ba-4441-ac56-a5b24cc3b686", CellID->244542961] }, Open ]], Cell[129112, 2925, 821, 23, 70, "Text",ExpressionUUID->"ee934395-c09d-4d5f-8667-f3d928e936ab", CellID->89333766], Cell[CellGroupData[{ Cell[129958, 2952, 8135, 195, 70, "Input",ExpressionUUID->"cae9b84e-d14b-492e-9d86-f16ac5cfb3a0", CellID->91733459], Cell[138096, 3149, 3035, 96, 70, "Output",ExpressionUUID->"2936dea6-cfb9-4f12-ae8f-37ba26ca8f1b", CellID->231743670] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[141180, 3251, 233, 8, 70, "Subsubsection",ExpressionUUID->"5d607e9c-b7ff-4059-9c7c-9c9092456765", CellID->163662699], Cell[141416, 3261, 445, 10, 70, "Text",ExpressionUUID->"06cbe7dc-bcd6-4ec0-a6eb-7ede4a4eb4e1", CellID->288665391], Cell[141864, 3273, 3701, 79, 70, "Input",ExpressionUUID->"37ccc01c-903d-4e04-9efb-e118b5482392", CellID->613351253], Cell[CellGroupData[{ Cell[145590, 3356, 583, 17, 70, "Input",ExpressionUUID->"79f18202-7c63-4457-b963-487fc520e2b0", CellID->975234389], Cell[146176, 3375, 1748, 50, 70, "Output",ExpressionUUID->"b8b7a85e-2c7d-42f3-88f5-1e8fab350c9f", CellID->562278842] }, Open ]], Cell[CellGroupData[{ Cell[147961, 3430, 1117, 34, 70, "Input",ExpressionUUID->"11c2cd79-9c74-471d-a855-94f7b0f65c13", CellID->420652560], Cell[149081, 3466, 969, 23, 70, "Output",ExpressionUUID->"fb1eacd8-b4d8-4b09-a8f1-c934c5e61e26", CellID->681807514] }, Open ]], Cell[150065, 3492, 732, 22, 70, "Text",ExpressionUUID->"c1ab3b84-e003-4dda-863d-90cfab0996b4", CellID->847200788], Cell[CellGroupData[{ Cell[150822, 3518, 7938, 192, 70, "Input",ExpressionUUID->"c41a5d63-73e4-4e84-b41f-cda9b113259c", CellID->33009571], Cell[158763, 3712, 6042, 173, 70, "Output",ExpressionUUID->"7b531745-4197-4e2d-9ac3-798c58cd9367", CellID->528182526] }, Open ]], Cell[164820, 3888, 754, 22, 70, "Text",ExpressionUUID->"f8c7fc72-a574-43b8-b33c-1df1181e66fd", CellID->627894408], Cell[CellGroupData[{ Cell[165599, 3914, 10262, 235, 70, "Input",ExpressionUUID->"6f575d72-c426-4dff-9eb9-ac930524c244", CellID->398680714], Cell[175864, 4151, 46639, 964, 70, "Output",ExpressionUUID->"2b6b38d2-ae89-4e1c-a259-ad826626c88d", CellID->218552351] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[222552, 5121, 232, 8, 70, "Subsubsection",ExpressionUUID->"1bef7a6c-fb51-4682-a1fc-6e77880132ef", CellID->898830785], Cell[222787, 5131, 637, 11, 70, "Text",ExpressionUUID->"9b94257d-c867-4900-b616-f32d487b5f2b", CellID->361751531], Cell[223427, 5144, 281, 5, 70, "Text",ExpressionUUID->"4603b748-2e0a-469b-abdd-bf2250248935", CellID->970534634], Cell[CellGroupData[{ Cell[223733, 5153, 2999, 67, 70, "Input",ExpressionUUID->"197154f5-2b1a-492b-8870-724e3ac3b6be", CellID->863016762], Cell[226735, 5222, 1244, 26, 70, "Output",ExpressionUUID->"e51e78e7-aac4-4b43-ba5c-4c46f683f4b1", CellID->835531298] }, Open ]], Cell[227994, 5251, 168, 3, 70, "Text",ExpressionUUID->"9f0d6b62-9303-4dc0-acaa-085c1c53d98d", CellID->978891621], Cell[CellGroupData[{ Cell[228187, 5258, 276, 9, 70, "Input",ExpressionUUID->"d693d89f-6a65-4b0f-ba1f-8d6635995acf", CellID->795944365], Cell[228466, 5269, 931, 20, 70, "Output",ExpressionUUID->"61ac774f-e5bd-4c5a-a4a7-1887a9798e36", CellID->369835761] }, Open ]], Cell[229412, 5292, 1037, 26, 70, "Text",ExpressionUUID->"abb77e3d-9224-4c4b-a4f1-fedff6b628d1", CellID->956058905], Cell[CellGroupData[{ Cell[230474, 5322, 9588, 231, 70, "Input",ExpressionUUID->"652ade9d-e734-44a6-b5c9-14615a73af1e", CellID->208083773], Cell[240065, 5555, 6641, 146, 70, "Output",ExpressionUUID->"60e436f9-0c6c-4d04-8cd4-1a047db28ae3", CellID->249048504] }, Open ]], Cell[246721, 5704, 695, 22, 70, "Text",ExpressionUUID->"e9454f8d-fda6-4f22-8674-5b2754f93e2b", CellID->228085632], Cell[CellGroupData[{ Cell[247441, 5730, 8018, 193, 70, "Input",ExpressionUUID->"866dde52-1eb0-4f90-9e09-346aea76b423", CellID->725811377], Cell[255462, 5925, 10612, 296, 70, "Output",ExpressionUUID->"402b54e5-d818-4a0c-8449-b1d3d4c658db", CellID->518858130] }, Open ]], Cell[266089, 6224, 785, 14, 70, "Text",ExpressionUUID->"11eda8b1-2d51-453b-b208-0c04288eb5db", CellID->938184035], Cell[266877, 6240, 9005, 211, 70, "Input",ExpressionUUID->"39240ca5-4018-4914-89ec-f09983682fd2", CellID->923571638], Cell[CellGroupData[{ Cell[275907, 6455, 652, 16, 70, "Input",ExpressionUUID->"5363a51f-be24-4269-bbb4-2ef4d94ddae2", CellID->777884006], Cell[276562, 6473, 755, 19, 70, "Output",ExpressionUUID->"35bddbb1-f81b-42fc-b7b9-2ab725fc9301", CellID->860282112] }, Open ]], Cell[277332, 6495, 180, 3, 70, "Text",ExpressionUUID->"201423e5-e56c-4aa7-aaf5-5bf6a442a47e", CellID->627096950], Cell[CellGroupData[{ Cell[277537, 6502, 476, 14, 70, "Input",ExpressionUUID->"9b68b3bc-a99c-4d33-9515-21d08967e8a1", CellID->976358858], Cell[278016, 6518, 1921, 47, 70, "Output",ExpressionUUID->"1439fdb6-381b-4872-baff-2d81492097e7", CellID->470913573] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[279986, 6571, 233, 8, 70, "Subsubsection",ExpressionUUID->"752383bd-a757-4c6d-abe7-48f1c60bce16", CellID->181769410], Cell[280222, 6581, 932, 16, 70, "Text",ExpressionUUID->"44d8b7a0-d374-4823-8bd4-6cfb35624a4a", CellID->615082859], Cell[281157, 6599, 402, 7, 70, "Text",ExpressionUUID->"6d806002-c55a-4e64-a004-563d54d37f01", CellID->970534635], Cell[CellGroupData[{ Cell[281584, 6610, 2692, 60, 70, "Input",ExpressionUUID->"0b03e994-67ea-4d98-bd10-3101b8c3900a", CellID->92999021], Cell[284279, 6672, 43091, 713, 70, "Output",ExpressionUUID->"d557a22e-a27f-43e4-93d6-53133642d5e3", CellID->43763219] }, Open ]], Cell[327385, 7388, 824, 24, 70, "Text",ExpressionUUID->"98a19dd9-9a29-4aed-92fc-096b5cade90c", CellID->471653199], Cell[CellGroupData[{ Cell[328234, 7416, 9513, 231, 70, "Input",ExpressionUUID->"cf1e077a-efa1-4337-9c9e-4c56fab6e80e", CellID->754905097], Cell[337750, 7649, 3035, 67, 70, "Output",ExpressionUUID->"3c7b1d47-9fcb-4015-b8a3-ce4664083d6f", CellID->755126258] }, Open ]], Cell[340800, 7719, 777, 22, 70, "Text",ExpressionUUID->"8a9c1fd4-d73e-4039-99bf-b933290d5396", CellID->299827280], Cell[CellGroupData[{ Cell[341602, 7745, 8059, 195, 70, "Input",ExpressionUUID->"85e0864b-e861-49a0-8c0b-0f9e37f0b3e6", CellID->275920314], Cell[349664, 7942, 3690, 110, 70, "Output",ExpressionUUID->"66f50c5a-d23d-403d-b86d-3a89e9eea26a", CellID->559383797] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[353403, 8058, 234, 8, 70, "Subsubsection",ExpressionUUID->"44c40165-ec68-4a17-b0d6-f54f40123539", CellID->872965383], Cell[353640, 8068, 770, 16, 70, "Text",ExpressionUUID->"97ead17a-55c6-4f42-bccd-fc99bfb9af2f", CellID->413412119], Cell[354413, 8086, 703, 22, 70, "Text",ExpressionUUID->"2698e06c-e1b6-49ea-b664-12990032b114", CellID->990239488], Cell[CellGroupData[{ Cell[355141, 8112, 497, 12, 70, "Input",ExpressionUUID->"c24f57e9-b568-48ba-9b58-63ca3dfdde7f", CellID->396387825], Cell[355641, 8126, 4095, 93, 70, "Output",ExpressionUUID->"93cd5641-420a-461f-bef3-6bc63a6b95d2", CellID->433822691] }, Open ]], Cell[359751, 8222, 736, 22, 70, "Text",ExpressionUUID->"07e63ffe-dd61-47a8-ae73-bbb5395398be", CellID->181613903], Cell[CellGroupData[{ Cell[360512, 8248, 490, 14, 70, "Input",ExpressionUUID->"0c7721b3-21ea-4086-860a-7c6df7144b22", CellID->870050091], Cell[361005, 8264, 172596, 3664, 70, "Output",ExpressionUUID->"221d3fef-dbd0-4a9c-8d52-e249538fb991", CellID->947691486] }, Open ]], Cell[533616, 11931, 929, 25, 70, "Text",ExpressionUUID->"95e0c9bd-6bc0-4cf7-9573-98d2a4834642", CellID->430630865], Cell[534548, 11958, 1188, 23, 70, "Input",ExpressionUUID->"bf613819-6935-4d1f-acae-7c1ebbe84f55", CellID->372127002], Cell[535739, 11983, 761, 23, 70, "Text",ExpressionUUID->"60dd3d4d-4bf6-4b28-bba3-64e74a98ea91", CellID->563638409], Cell[CellGroupData[{ Cell[536525, 12010, 749, 20, 70, "Input",ExpressionUUID->"219f9733-e02a-47ea-b1f3-a3ce4dfea811", CellID->29760830], Cell[537277, 12032, 128048, 2105, 70, "Output",ExpressionUUID->"4c6d2931-2988-48ef-b798-2cc7187f43e9", CellID->402099052] }, Open ]], Cell[665340, 14140, 341, 7, 70, "Text",ExpressionUUID->"55703583-af98-457b-ab6b-12f780b0c6be", CellID->340276458], Cell[CellGroupData[{ Cell[665706, 14151, 723, 16, 70, "Input",ExpressionUUID->"61ccb645-5772-42df-9f22-b5f5e6ed6def", CellID->258855039], Cell[666432, 14169, 1304, 24, 70, "Output",ExpressionUUID->"84d68f6a-5151-4926-bfe7-646225f16b32", CellID->818103447] }, Open ]], Cell[CellGroupData[{ Cell[667773, 14198, 9433, 218, 70, "Input",ExpressionUUID->"311c3540-c9cb-4f16-8d5a-568f1f586af0", CellID->767587915], Cell[677209, 14418, 1091, 24, 70, "Output",ExpressionUUID->"f7b97aad-cd3c-4b5f-931a-c13dbb22f966", CellID->483194549] }, Open ]], Cell[CellGroupData[{ Cell[678337, 14447, 243, 7, 70, "Input",ExpressionUUID->"835ee32b-5883-4f98-ac66-56891f51d456", CellID->138439383], Cell[678583, 14456, 15325, 357, 70, "Output",ExpressionUUID->"5d8fa0a5-82f0-430e-99ef-e1b8b388e200", CellID->213884331] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[693969, 14820, 178, 7, 70, "Subsection",ExpressionUUID->"ae8c97a6-f272-40e2-893e-e0a571f95251", CellID->232113220], Cell[694150, 14829, 316, 5, 70, "Text",ExpressionUUID->"c1a68ac6-e3e5-4107-8bd9-ff60aefb77fb", CellID->188973054], Cell[CellGroupData[{ Cell[694491, 14838, 7685, 195, 70, "Input",ExpressionUUID->"e3b68345-60b6-4286-a2ea-73d0eaaf7640", CellID->207144220], Cell[702179, 15035, 295, 6, 70, "Output",ExpressionUUID->"bd659258-8ff2-42bf-a5c7-c7b9aa5333c7", CellID->75395025] }, Open ]], Cell[CellGroupData[{ Cell[702511, 15046, 7608, 193, 70, "Input",ExpressionUUID->"e1f33058-d0c0-4cc1-9796-07d9fc88d188", CellID->70031001], Cell[710122, 15241, 296, 6, 70, "Output",ExpressionUUID->"06419abf-623f-4aae-bdee-cc736fa3a411", CellID->162749165] }, Open ]], Cell[CellGroupData[{ Cell[710455, 15252, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"93a2be5a-587b-4808-8f31-c7bdc2f314d3", CellID->458893322], Cell[710602, 15258, 764, 21, 70, "Text",ExpressionUUID->"719404cd-b709-4a9b-b087-b0675cbb2936", CellID->795418339], Cell[CellGroupData[{ Cell[711391, 15283, 7773, 196, 70, "Input",ExpressionUUID->"8909535b-a8ea-4414-883a-f44faf3de4b3", CellID->345073899], Cell[719167, 15481, 295, 7, 70, "Output",ExpressionUUID->"45315bdf-4090-4672-97c3-7c434d40db8f", CellID->232878480] }, Open ]], Cell[CellGroupData[{ Cell[719499, 15493, 416, 12, 70, "Input",ExpressionUUID->"2de4975d-e360-40ab-b660-2495aaa87338", CellID->74340327], Cell[719918, 15507, 292, 7, 70, "Output",ExpressionUUID->"700d05e9-680d-4e74-aa7b-40962b162b25", CellID->903341935] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)