(* 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[ 370510, 7454] NotebookOptionsPosition[ 215000, 4487] NotebookOutlinePosition[ 358451, 7195] CellTagsIndexPosition[ 356642, 7145] WindowTitle->FactorGraph | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["FactorGraph", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->716591900], Cell["\<\ Get a graph representation for the factorization of an integer\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->143288623], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FactorGraph", "[", "n_Integer", "]"}], " ", "/;", " ", RowBox[{"n", " ", ">", " ", "1"}]}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", "n", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Rule", ",", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", "n"}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", "1"}], "}"}]}]}], ",", " ", "2", ",", " ", "1", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inner", ",", " ", "outter", ",", " ", "level", ",", " ", "joints", ",", " ", "factor", ",", " ", "vertex"}], "}"}], ",", " ", RowBox[{ RowBox[{"factor", " ", "=", " ", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"inner", ",", " ", "level"}], "}"}], " ", "=", " ", RowBox[{"FactorGraph", "[", RowBox[{"n", "/", "factor"}], "]"}]}], ";", " ", RowBox[{"vertex", " ", "=", " ", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", "n"}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"level", " ", "+", " ", "1"}]}], "}"}]}]}]}], ";", " ", RowBox[{"outter", " ", "=", " ", RowBox[{"Apply", "[", RowBox[{"Rule", ",", " ", RowBox[{"Partition", "[", RowBox[{"vertex", ",", " ", "2", ",", " ", "1", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", " ", RowBox[{"joints", " ", "=", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"vertex", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"-", "1"}], ",", " ", "factor"}], "}"}]}], "]"}], " ", "->", " ", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", RowBox[{"n", "/", "factor"}]}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", "level"}], "}"}]}]}], ")"}]}], "]"}]}], ";", " ", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{"inner", ",", " ", "joints", ",", " ", "outter"}], "]"}], ",", " ", RowBox[{"level", " ", "+", " ", "1"}]}], "}"}]}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"FactorGraph", "[", RowBox[{"n_Integer", ",", " ", "order_"}], "]"}], " ", "/;", " ", RowBox[{"n", " ", ">", " ", "1"}]}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", "n", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Rule", ",", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", "n"}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", "1"}], "}"}]}]}], ",", " ", "2", ",", " ", "1", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inner", ",", " ", "outer", ",", " ", "level", ",", " ", "joints", ",", " ", "factor", ",", " ", "vertex"}], "}"}], ",", " ", RowBox[{ RowBox[{"factor", " ", "=", " ", RowBox[{"order", " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"First", "[", RowBox[{"Last", "[", RowBox[{"FactorInteger", "[", "n", "]"}], "]"}], "]"}]}], ",", " ", RowBox[{"_", " ", "->", " ", RowBox[{"First", "[", RowBox[{"First", "[", RowBox[{"FactorInteger", "[", "n", "]"}], "]"}], "]"}]}]}], "}"}]}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"inner", ",", " ", "level"}], "}"}], " ", "=", " ", RowBox[{"FactorGraph", "[", RowBox[{ RowBox[{"n", "/", "factor"}], ",", " ", "order"}], "]"}]}], ";", " ", RowBox[{"vertex", " ", "=", " ", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", "n"}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"level", " ", "+", " ", "1"}]}], "}"}]}]}]}], ";", " ", RowBox[{"outer", " ", "=", " ", RowBox[{"Apply", "[", RowBox[{"Rule", ",", " ", RowBox[{"Partition", "[", RowBox[{"vertex", ",", " ", "2", ",", " ", "1", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", " ", RowBox[{"joints", " ", "=", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"vertex", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"-", "1"}], ",", " ", "factor"}], "}"}]}], "]"}], " ", "->", " ", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", " ", RowBox[{"n", "/", "factor"}]}], "]"}], " ", "/.", " ", RowBox[{"k_Integer", " ", ":>", " ", RowBox[{"{", RowBox[{"k", ",", " ", "level"}], "}"}]}]}], ")"}]}], "]"}]}], ";", " ", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{"inner", ",", " ", "joints", ",", " ", "outer"}], "]"}], ",", " ", RowBox[{"level", " ", "+", " ", "1"}]}], "}"}]}]}], "]"}]}], "]"}]}]}], "Input", InitializationCell->True, CellID->640728881] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorGraph", "[", StyleBox["n", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->898724747], Cell[TextData[{ "gives a graph representing the factorization of the integer ", StyleBox["n", "TI"], "." }], "UsageDescription", CellID->761268514] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorGraph", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["pos", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->883992224], Cell[TextData[{ "gives the graph for ", StyleBox["n", "TI"], " with the largest factor with position ", StyleBox["pos", "TI"], "." }], "UsageDescription", CellID->72720143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "Let ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " be distinct integers such that ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " divides ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Then the vertices of a polygon with ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " vertices can be connected to a polygon with ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " vertices from ", Cell[BoxData[ FormBox[ StyleBox["m", "TI"], TraditionalForm]]], "/", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " equally spaced vertices on the first polygon. This procedure can be \ applied repeatedly to the prime factors of a number in order to get \ visualizations of the factorizations of the numbers." }], "Notes", CellTags->"TabNext", CellID->748934422], Cell["\<\ The vertices of a polygon with vertices can be connected to a polygon with \ vertices from equally spaced vertices on the first polygon. This procedure \ can be applied repeatedly to the prime factors of a number in order to get \ visualizations of the factorizations of the numbers.\ \>", "Notes", CellTags->"TabNext", CellID->7763817], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"FactorGraph", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["pos", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["pos", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->475079371] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Get the rules representing the graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.758384254604075*^9, 3.758384265289168*^9}}, CellID->828942754], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorGraph", "[", "6", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758383282230616*^9, 3.758383346944722*^9}, { 3.758384845789109*^9, 3.758384855841074*^9}}, CellLabel->"In[1]:=", CellID->895229925], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "}"}], ",", "2"}], "}"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.758383285270056*^9, 3.7583833474620934`*^9}, 3.758384070571909*^9, {3.75838484645158*^9, 3.7583848566970453`*^9}, 3.758386019354906*^9, 3.758386416964834*^9, 3.758386640608513*^9, 3.75838730771214*^9, 3.7583873685167418`*^9, 3.758391267213108*^9, 3.758391302759606*^9, 3.758391335842299*^9, 3.7593387674525013`*^9, 3.759344974120253*^9, 3.7613252903959994`*^9, {3.761325357384281*^9, 3.761325383503051*^9}}, CellLabel->"Out[1]=", CellID->634565950] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorGraph", "[", RowBox[{"5", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758384586535987*^9, 3.758384593359812*^9}, { 3.75838468634159*^9, 3.7583846959828463`*^9}, 3.759344855334063*^9}, CellLabel->"In[2]:=", CellID->812110006], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "}"}], ",", "1"}], "}"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.7583845889837914`*^9, 3.758384595289052*^9}, { 3.7583846865969057`*^9, 3.7583846965830603`*^9}, 3.758386023288268*^9, 3.7583864196418753`*^9, 3.758386641735207*^9, 3.758387307826373*^9, 3.758387368840662*^9, 3.758391267327928*^9, 3.7583913033174133`*^9, 3.758391336242845*^9, 3.7593387706560087`*^9, 3.759344974235116*^9, 3.7613252904729977`*^9, {3.761325357498293*^9, 3.7613253835850487`*^9}}, CellLabel->"Out[2]=", CellID->898685809] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797627], Cell["Get the graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.75934455102212*^9, 3.759344554607033*^9}}, CellID->385144230], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphPlot", "[", RowBox[{"First", "@", RowBox[{"FactorGraph", "[", "72", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758384501712966*^9, 3.75838453837461*^9}}, CellLabel->"In[1]:=", CellID->261561606], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw9VXk4FPoCncEomewm2zBjxiztSkj0O3ktyhIuLYhyueilVIhUIyVlaRAq lSSqqyZSKZKKFlK5onLJUElaMHLHkuJ53/e+d77vfOff88dZ2P7b3AMVKBRK 4gT/q3r26Zv+qJ4GR56JH8/PAP6hr/LWNevjSw31e3kxA9yunDd/jRhim25o 1ioPA7g45r8YUNDGo2kOBh4zmQjNbqmWP9HHu8KFMfoLNJExfZthth8LXZ9Y VitVmfCMiPeAWAMhGnWFcp9p6F1szow5rI17/iOfBlhauCuSrVhAY2H2leSz xQpa8ClxzjZIYsO8tFExznwaPpbPbTrYZ4TNIovx6klsFJF60a0vDCzfuMJu UI2NnNJVjmK+KpKr7rf8msNC1NbC8p/tNHzLGYj7XcTA5ijHZtVadQjvF4Qc zVTFAauSutZb+hi493r1xkYabLpHRJXP2LgkW/PyipUqXJxsth304AI2A8Md NgzIjXmL5focPI55artKi4W2Cw1WLj+MoSQpzVgv4cBEVa1fOKSDxMGc6Phy Dmy/a1+sEihh3IK271iPIQ7+i3IqeEAZtkMrp0tUNLHDdhF9s54Oks+EXl5z Qgmhpx7vsnc3gffc12cc3JQw75ph3cpJXHwe6X9TUKuB3JcnTux+ykXSWbnN p3OGaDkUt6hUxRTj1TfNLSWm0LuZQIbG9CGi9/fFNHIxf6265OIFdXysK+2+ 9NgU6T5xI/OrqXh7VH3odDobt4OypjeUyol70vh0WYMRtjh7XH/1YpBkL9i7 +k2uLnQqVK7uyv9FXOXaqWWbpuK5ccT+0NHJmBPNnzsvShFieubZ38K08LbC xtUta4isDzZXrM7TR4av7w3lDjm5SgnsPrqThY0ixb/TWgbJ2mvhZ4NiODjR kDl8bYoikv55N5SkzkPDnruM46/ooOotu2sh48Fc7uuS6KyLdYWhWl/0+Vh9 7uGHi9uNMGfugghpuBlqJmlwPEPYuPdVueJ8OgedjL93Ou3kwudU3vev4Szk vDWMG+XxkNeaX/ZV1QDf+C5HXs7kY3gjnUlnaqMvPqndeBEPf6ybcYBxWgX7 GJU+w8e46I5p816+fpDY2VPtm7xZuORfx0h900tOfzKh1VjoI7w8vWRHyQCh yKL3XMvXRGpyx8dvG6gYvBgX3KOjjLGKnmbV2VNBF9313xE+QspWXXdjPddF hcktdoOWjNwqrG1PCWNi8uu9I8KwPrI78jAlJcgU6+5+1r0pHiaNvQ3y0QAz HA2cUqB4ioafFhY6me582DsEp0/21ITG/s1fA9v50JB77lVo1kPzpFjteFU+ DEZiRak8Fh58liW3zDLD1qIm35AQDq4i4aJduClulERapajyQK/Jozq9Z6Jm t2FH5F4+wj2e4N9WE702v9MUmMLH0q5G6xtz1DD4cSpFwudBp8Dep1VNEV5t cQzqMQ7CDgV6HcobJLsdz0uPJ5ri9tp32XbFH0n0i8+H3AdYuP+yLWjSeil5 va0up0/MBEWwVOhsU0MYvbL+I476wKmi6p3v2on1eaUPmlRd3N5iQl/t1EE0 82oCc5M0EKsbOGa5op9c3xfZdCdPBa718vfKriNki52RlNAUEHXcgfHZQgmT k17vnBk8Sgrim/aLNabg9sJJAoT3kOVtlQU+bE0MH174bb1TJzlOv1GfKNAF RarF8WyuJ/6RnyVCsT7+Gpk1u9OklWhbU+qjfzInepV2KsziGRm9sEZtVJ0N Da0zyVPF70lWl8CZas7BpbFftbbHv5KgsfRH1Ze5cFocEEfL+EEkGcv12rN4 sFhGaz8koUIaZb0qLY8Pr5tHg8/wVHCDt/P92EMBKJdTm99YaoASOtva4LEA /FdbsmsLdBBRltGasVkIiztvo6626eFS2QrbV1IBGuITd0WbMNEVva3q+R4B ZoppEfuus/Dj17PuCF0+LGequxzxNcVcVCbu8uVh+33Fjc7+XEgbZVUxVVyc /ocdsrzODDsknXuynDnIH9p8wtuLj3Zhcc6nGWyETl6hur+TD8kb7R7RAWOY WS5tWUgVIpk+tDbDyABKUdt7F48K8MA1+PeEEl3Y1qzSoTCEyNi7TuRYq4l5 betryDgfPtcezj/yZQrYu4rcxqP5cO85yXkhU0JpkEFVTK8Zwvwspaz6n2RM vcxeOY2L4vk9lIefusndkj/j6WxTxMakujgu/4tY96cZq09mgfI/lLkNqUsL DUFJG/ee7pVOjnU6HLjZxwAlwFhUm/mEMGdJcvOOaYG1x4g6w7iDrKw42fLU gI4rtyNT0ytlxHE36U1Yp4SOrd7VZ/J+kUux8VslZ0fJIj8L9f4QGjxO5l1l qvST+/sfLVMUTIWrJauqu6iNVM7byOq6qQUsSTg8K7GSqH2x0+if+ClKn7uO HTOTSBkOqQ9vGf7fZ1hJQlyB1YRvn/bhuJPXyYu03x786W0KViqfRGi3kCul mfSgDVzM7U86sHemjJQc3s4PVuLhdru6TcjID9LEsi7hlvBhXXduSaFMEcse 03i2zwVwSHiQ9W27Koq7FpU6BQuRMmw6SwQt/OBmKLAqhPA0c9sw/wADWZft +6Pqhejcl/I2xsoQASkfBs67C5EWJk4rTjdB7pMmp1wPAcRh4pAfnWxsCk71 YrjykdbpN73nCgd1No1SPRoPrb0hzdSjZuhnyVNFu7kIjbD+uH0iZ1ldOxTd YkwxTzBfzLcTIHBGUfGzaBY8lnC2KkwVovWd2zTOH0Z4YFIaGVsgRECPQX6R dBqsbY6RNaVCuCxNW2iEib31ZUTcEgiRUGz5ctxTDekbehQueAlwL3eW81Om MjaZHvq52IKPfGt97tLqcbK2/JVxdLkZAvxOZndYyclQW8C82Lcc/Afd57p1 "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwVxeN6QgEAANBs23Wzbdu2ccO8ZqNaTc+2h9r243wHAJdVEAaBQH7+/A+F QeFQBAwOQ8JRCDSCgCAiMUgskoLCofAoOhqDJmHIWByWiqPhCXgGgUlkEUVE MYlFYpMAMpvMIcsoHAqXoqByqTyqisaj8WkaOp8uoOsYAoaQYWAKmSKmiSVh SzlyrpKn5msFeqFRZBZbxFFxTGKRWCUJwArYgJTUJrVLMzK7zCHLyR1yp7yg cCpcipLSpXQrKyq3yqOqqT1qr7qh8Wp8mpbWp/VrOzq/LqDr6QP6oH5gCBpC hpExZAwbJ6awKWKamiPmqHluiVuTtrQ968g7i66yu+qpe5u+tr8b6AeHoXEY jMyii9he7Du+F99P7CcOkgfJw9Rh6ih9lD7OHGdOsifZ09xpbplf5s8KZ4Xz 4nnxonRRuixflq8qV5Xr6nX1pnZTu63f1u8ad4375n3zofXQemw/tp86T53n 7nP3pffSe+2/9leD1WA9XA83o83obfw23k62kx24A9+n79OP2cfsc/45/1p8 Lb5/AV4GZVk= "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07482678096119007], DiskBox[2, 0.07482678096119007], DiskBox[3, 0.07482678096119007], DiskBox[4, 0.07482678096119007], DiskBox[5, 0.07482678096119007], DiskBox[6, 0.07482678096119007], DiskBox[7, 0.07482678096119007], DiskBox[8, 0.07482678096119007], DiskBox[9, 0.07482678096119007], DiskBox[10, 0.07482678096119007], DiskBox[11, 0.07482678096119007], DiskBox[12, 0.07482678096119007], DiskBox[13, 0.07482678096119007], DiskBox[14, 0.07482678096119007], DiskBox[15, 0.07482678096119007], DiskBox[16, 0.07482678096119007], DiskBox[17, 0.07482678096119007], DiskBox[18, 0.07482678096119007], DiskBox[19, 0.07482678096119007], DiskBox[20, 0.07482678096119007], DiskBox[21, 0.07482678096119007], DiskBox[22, 0.07482678096119007], DiskBox[23, 0.07482678096119007], DiskBox[24, 0.07482678096119007], DiskBox[25, 0.07482678096119007], DiskBox[26, 0.07482678096119007], DiskBox[27, 0.07482678096119007], DiskBox[28, 0.07482678096119007], DiskBox[29, 0.07482678096119007], DiskBox[30, 0.07482678096119007], DiskBox[31, 0.07482678096119007], DiskBox[32, 0.07482678096119007], DiskBox[33, 0.07482678096119007], DiskBox[34, 0.07482678096119007], DiskBox[35, 0.07482678096119007], DiskBox[36, 0.07482678096119007], DiskBox[37, 0.07482678096119007], DiskBox[38, 0.07482678096119007], DiskBox[39, 0.07482678096119007], DiskBox[40, 0.07482678096119007], DiskBox[41, 0.07482678096119007], DiskBox[42, 0.07482678096119007], DiskBox[43, 0.07482678096119007], DiskBox[44, 0.07482678096119007], DiskBox[45, 0.07482678096119007], DiskBox[46, 0.07482678096119007], DiskBox[47, 0.07482678096119007], DiskBox[48, 0.07482678096119007], DiskBox[49, 0.07482678096119007], DiskBox[50, 0.07482678096119007], DiskBox[51, 0.07482678096119007], DiskBox[52, 0.07482678096119007], DiskBox[53, 0.07482678096119007], DiskBox[54, 0.07482678096119007], DiskBox[55, 0.07482678096119007], DiskBox[56, 0.07482678096119007], DiskBox[57, 0.07482678096119007], DiskBox[58, 0.07482678096119007], DiskBox[59, 0.07482678096119007], DiskBox[60, 0.07482678096119007], DiskBox[61, 0.07482678096119007], DiskBox[62, 0.07482678096119007], DiskBox[63, 0.07482678096119007], DiskBox[64, 0.07482678096119007], DiskBox[65, 0.07482678096119007], DiskBox[66, 0.07482678096119007], DiskBox[67, 0.07482678096119007], DiskBox[68, 0.07482678096119007], DiskBox[69, 0.07482678096119007], DiskBox[70, 0.07482678096119007], DiskBox[71, 0.07482678096119007], DiskBox[72, 0.07482678096119007], DiskBox[73, 0.07482678096119007], DiskBox[74, 0.07482678096119007], DiskBox[75, 0.07482678096119007], DiskBox[76, 0.07482678096119007], DiskBox[77, 0.07482678096119007], DiskBox[78, 0.07482678096119007], DiskBox[79, 0.07482678096119007], DiskBox[80, 0.07482678096119007], DiskBox[81, 0.07482678096119007], DiskBox[82, 0.07482678096119007], DiskBox[83, 0.07482678096119007], DiskBox[84, 0.07482678096119007], DiskBox[85, 0.07482678096119007], DiskBox[86, 0.07482678096119007], DiskBox[87, 0.07482678096119007], DiskBox[88, 0.07482678096119007], DiskBox[89, 0.07482678096119007], DiskBox[90, 0.07482678096119007], DiskBox[91, 0.07482678096119007], DiskBox[92, 0.07482678096119007], DiskBox[93, 0.07482678096119007], DiskBox[94, 0.07482678096119007], DiskBox[95, 0.07482678096119007], DiskBox[96, 0.07482678096119007], DiskBox[97, 0.07482678096119007], DiskBox[98, 0.07482678096119007], DiskBox[99, 0.07482678096119007], DiskBox[100, 0.07482678096119007], DiskBox[101, 0.07482678096119007], DiskBox[102, 0.07482678096119007], DiskBox[103, 0.07482678096119007], DiskBox[104, 0.07482678096119007], DiskBox[105, 0.07482678096119007], DiskBox[106, 0.07482678096119007], DiskBox[107, 0.07482678096119007], DiskBox[108, 0.07482678096119007], DiskBox[109, 0.07482678096119007], DiskBox[110, 0.07482678096119007], DiskBox[111, 0.07482678096119007], DiskBox[112, 0.07482678096119007], DiskBox[113, 0.07482678096119007], DiskBox[114, 0.07482678096119007], DiskBox[115, 0.07482678096119007], DiskBox[116, 0.07482678096119007], DiskBox[117, 0.07482678096119007], DiskBox[118, 0.07482678096119007], DiskBox[119, 0.07482678096119007], DiskBox[120, 0.07482678096119007], DiskBox[121, 0.07482678096119007], DiskBox[122, 0.07482678096119007], DiskBox[123, 0.07482678096119007], DiskBox[124, 0.07482678096119007], DiskBox[125, 0.07482678096119007], DiskBox[126, 0.07482678096119007], DiskBox[127, 0.07482678096119007], DiskBox[128, 0.07482678096119007], DiskBox[129, 0.07482678096119007], DiskBox[130, 0.07482678096119007], DiskBox[131, 0.07482678096119007], DiskBox[132, 0.07482678096119007], DiskBox[133, 0.07482678096119007], DiskBox[134, 0.07482678096119007], DiskBox[135, 0.07482678096119007], DiskBox[136, 0.07482678096119007], DiskBox[137, 0.07482678096119007], DiskBox[138, 0.07482678096119007]}}], FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{{3.758384504800867*^9, 3.758384539103517*^9}, 3.758386026932736*^9, 3.758386422209755*^9, 3.758386645167472*^9, 3.7583869187204943`*^9, 3.758386977525468*^9, 3.75838730794814*^9, 3.758387368994935*^9, 3.758391267426003*^9, 3.758391303479617*^9, 3.758391336425881*^9, 3.75934497438097*^9, 3.7613252906509914`*^9, 3.76132535773227*^9}, CellLabel->"Out[1]=", CellID->594584941] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797628], Cell["Factor graphs from a list of the first 10 integers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.758384288168797*^9, 3.758384311483008*^9}}, CellID->361188242], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphPlot", "[", RowBox[{ RowBox[{"First", "[", RowBox[{"FactorGraph", "[", RowBox[{"n", ",", "\"\\""}], "]"}], "]"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"(", RowBox[{"n", "/.", "\[VeryThinSpace]", RowBox[{"{", RowBox[{ RowBox[{"4", "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"6", "|", "8", "|", "16"}], "\[Rule]", "\"\\""}], ",", RowBox[{"_", "\[Rule]", "\"\\""}]}], "}"}]}], ")"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "10"}], "}"}]}], "]"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"800", ",", "100"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758293145418055*^9, 3.75829315435365*^9}, { 3.758293335576695*^9, 3.758293458696601*^9}, {3.75836860009725*^9, 3.7583686013011293`*^9}, {3.7583834312983437`*^9, 3.758383453515242*^9}, { 3.7583843776382723`*^9, 3.758384406595387*^9}, {3.759344574510131*^9, 3.7593445751173058`*^9}, 3.7593448954241753`*^9}, CellLabel->"In[1]:=", CellID->238253713], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQDQEf7BnQgHbL6r18+lE2ysJO3OfnvbEXOBGlLvR2 0X578YN7LQ+9tnco33X8euLy/Wtv7zepePTK3mGt8us52qv3a82c/JqP4ZV9 QtPxJGWPdftZ3Dg/NEu/tD9h0nbyZNSG/WXL2SbHmb6wj5iQctTOcuN+F7Ec CXW/5/Ybovrfvdm3cX9KGgg8s/8QuEOu9fXG/cZgcBnOL76sfn5j8kW4esWk p5tbtc7DzXvx/Jb9h4mn4fYFzN4YeOT/cfsAqHtcJjLoypcdsTeAuvffot8c kt8P2BtA/XMt7f3Sds7d9gxQ/6L53x7N//Zo/rdH8789mv/t0fxvj+Z/ezT/ 26P53x7N//Zo/rdH8789mv/t0fxvj+Z/ezT/2wMAvKcGQA== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {0.5000000000000003, -0.1644407471831164}, 2}], 0.01273]}, {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {0.5000000000000003, 0.1644407471831164}, 2}], 0.01273]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.01273], DiskBox[2, 0.01273]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {196.2, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360., 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{0.4969222153812606, 0.}, {0.9999936568025142, 0.8642449403459487}, {0., 0.8677950236298684}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 3}, {2, 3}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.012729919251096006], DiskBox[2, 0.012729919251096006], DiskBox[3, 0.012729919251096006]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {588.5999999999999, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {359.99999999999994, 302.9082804836963}], InsetBox[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw1i30slAEAxq+r4bQ+xI25ar4SddGyIVd7shEjh6v+SF35GNIqjJq0rrJ1 LRldX1xCH2ooS5ZcWWJUhmmcTcbdvbbufXHu3nvfruTq0gc927Nnv+fZ45ma LUnncjgc3z/+m8Nv40st8inwy7yU02eMWOBRnFS21Gw7zkL3se1YyIYvEBtG 2WwBCc6iEv/xNwwt/v/3CzyHvYt7X29tiOckhf1vPORHeozwcL1f8vo8Bbvq h1FtWiPCfqbPXXKjEN7yMplvNSIyiK/saCYxLCiukbqbIHTJbHwsJiF7wKUu wIT4OFth3oweNO0YlpVlQmV+rG9KiR7zyRU9tnITtKGbFHUBejR8PfjLq8+E F5HuYw3OBHrFvDCN1gxxRJCdfa4OdvcyltVbzRjg7enc3aFFqmb9lSo3BirV xtJzfC0+6waW14cyoI3RV1fnajAiSryhSmKQ477FOUU9jmAXq6VVxqDqcF1R /45xnFZfJhS1DJ7EVS952jiGodbOmcB+BlMFdcMVeZNIkDjO069MyMnxvukg nISDQOYq5NGQr5mIbScoFCuVJt0+Gh/81GWkgkJUjOG59i6N1K60lU2gIOSa O2wEjZE7g/mx0ySUS/3SilebUW6TSgwKEpZdBCULMMMxSWrtCiax9frO5pgY M4iMuIj3ggn4kG4nbncx8N4sfLaincDZJqu9v4ZBtqQw6YeUADcrPD7PwsDH 1TPh2qwObWXvCjJ5LJhP3QWHAnVYpb64dk7AwiHKWzWYpsUBuUG0TshC5NSo OHpLg1mnU9G921no6x+JKrvHkVAU7P89gsVvSac2/Q== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {0.5604251024977465, 0.9706847513630886}, 2}], 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {0.636160950328458, 1.1018630877601834`}, 2}], 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{1, 3}, 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{2, 4}, 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{3, 5}, 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{3, 6}, 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{4, 5}, 0.01924214375479033]}, {Arrowheads[0.], ArrowBox[{4, 6}, 0.01924214375479033]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.01924214375479033], DiskBox[2, 0.01924214375479033], DiskBox[3, 0.01924214375479033], DiskBox[4, 0.01924214375479033], DiskBox[5, 0.01924214375479033], DiskBox[6, 0.01924214375479033]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {980.9999999999999, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {359.9999999999998, 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{1.2906183098921595`, 1.5479430488379604`}, { 0.2904440968628682, 1.5286331927991594`}, {0., 0.5716139819373763}, { 0.8207986852662967, 0.}, {1.6180432250130679`, 0.6041004980666896}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 5}, {2, 3}, {3, 4}, {4, 5}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.019435020477408665], DiskBox[2, 0.019435020477408665], DiskBox[3, 0.019435020477408665], DiskBox[4, 0.019435020477408665], DiskBox[5, 0.019435020477408665]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {1373.3999999999999, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360., 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{1.456206956657084, 1.5312223564105096`}, { 1.4352006979420056`, 0.43333635822661276`}, {0.49490666241305414`, 1.0004713110042873`}, {1.7118608834593907`, 1.9550894824876437`}, { 1.674453433552752, 0.}, {0., 1.009940543153765}, {2.257542878008095, 0.9667461406071739}, {0.5456819945487041, 0.02159720127329512}, { 0.5830894444553428, 1.976686683760939}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 3}, {1, 4}, {2, 3}, {2, 5}, {3, 6}, {4, 7}, {4, 9}, {5, 7}, {5, 8}, {6, 8}, {6, 9}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.024667421213305812], DiskBox[2, 0.024667421213305812], DiskBox[3, 0.024667421213305812], DiskBox[4, 0.024667421213305812], DiskBox[5, 0.024667421213305812], DiskBox[6, 0.024667421213305812], DiskBox[7, 0.024667421213305812], DiskBox[8, 0.024667421213305812], DiskBox[9, 0.024667421213305812]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {1765.8, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360., 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{1.1278591233228548`, 0.}, {2.0271369044576186`, 0.4361996470139039}, {2.2464806543316813`, 1.4116587777473295`}, { 1.6208034905702815`, 2.1919095643859876`}, {0.6210661206253467, 2.190022886900808}, {0., 1.4066645200522645`}, {0.2248753835484344, 0.43224094078764275`}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 7}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.024580476824099556], DiskBox[2, 0.024580476824099556], DiskBox[3, 0.024580476824099556], DiskBox[4, 0.024580476824099556], DiskBox[5, 0.024580476824099556], DiskBox[6, 0.024580476824099556], DiskBox[7, 0.024580476824099556]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {2158.2000000000003, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360.0000000000002, 302.9082804836963}], InsetBox[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQXft6sWZDwhv7qx5Pf7E2frf/USlj57ybwSHIE8K3 +ZeW7ub22P4OVN5h6+p1FxmZHaZA5bNLWj2SL3+3bzGU8flQw+RgWArh/4hT 2R0m8MSeAQpOQ/XLQNXng/WzO5wC89kd/kPNK4Xqh+nLkaq7mTv3rr1W1+X+ OUuYHVg2hvZulWdxmALlV0L52371Rng/vmcvIAdRn/Adws95fsAg0fKD/cNm Ie1s8x/2hunrnOz2fbBXSssQiU36Yc9vsbafxfWjvWxxG8P9th/2HDUTvVPO frSftOhB4O0lP+zVEo9s5wn/ZO+0qNTdYc8P+6qzQsFrHn6y97sZyM5w9of9 fpf3nB9zPturPTu0TOD6D3vdUq70jh+f7fn2mBnk3PphX1TCoGW37re9I5T/ aIl0+1XLP/YJUPXqMj9spY7+se+Hmlfd4XZzp/9f+y6ofbNzK12Tbv61fwB1 z9SNsYyHEv/ZF0HdW9IU49fx4p99HdQ/tkxeCam5/+1dWiD+LYH6/wnvjlML Tn2zt4X6f5V20sN187/ZS0P9v1XO5atO9Td7Maj/Pd6/XGwQ+83eDOr/ee9D 1p12/WbfBfX/jB0V77hNv9mfh/r/xGp2/99a3+ztof5/cXXy0fnq3+xboP6X uQbhf4L6n2UNRL051P93oOZ1Q/3/DGrfSqj/Z0DdsxDqfz55iHsboP5n14H4 xxXqfw8+iH8BJMZppQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {1.489108355795279, 1.6670945385585212`}, 2}], 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[BezierCurveBox[{ 1, {1.489108355795274, 1.2709051487528802`}, 2}], 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{1, 3}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{2, 4}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{3, 5}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{3, 6}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{3, 7}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{4, 5}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{4, 6}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{4, 9}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{5, 8}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{6, 10}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{7, 11}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{7, 14}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{8, 11}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{8, 12}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{9, 12}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{9, 13}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{10, 13}, 0.03008310273303387]}, {Arrowheads[0.], ArrowBox[{10, 14}, 0.03008310273303387]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03008310273303387], DiskBox[2, 0.03008310273303387], DiskBox[3, 0.03008310273303387], DiskBox[4, 0.03008310273303387], DiskBox[5, 0.03008310273303387], DiskBox[6, 0.03008310273303387], DiskBox[7, 0.03008310273303387], DiskBox[8, 0.03008310273303387], DiskBox[9, 0.03008310273303387], DiskBox[10, 0.03008310273303387], DiskBox[11, 0.03008310273303387], DiskBox[12, 0.03008310273303387], DiskBox[13, 0.03008310273303387], DiskBox[14, 0.03008310273303387]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {2550.6000000000004, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360.00000000000045, 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{1.2067203570044098`, 1.3276416059360083`}, { 1.6188768957627706`, 2.0574732461949425`}, {2.0444655423087137`, 1.335565226058301}, {0.45232696366154546`, 0.8840618197085428}, { 1.61125222313242, 2.9325870058377816`}, {2.8057023282019324`, 0.9047403804354927}, {0., 1.8924381009985574`}, {0.5149381278168665, 2.801681056735738}, {2.710205975104053, 2.82067102816735}, { 3.2401945663746234`, 1.9198477352993086`}, {2.1589615529648545`, 0.008890241380172803}, {1.1138959606410959`, 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 3}, {1, 4}, {2, 3}, {2, 5}, {3, 6}, {4, 7}, {4, 12}, {5, 8}, {5, 9}, {6, 10}, {6, 11}, {7, 8}, {9, 10}, {11, 12}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03193760159225721], DiskBox[2, 0.03193760159225721], DiskBox[3, 0.03193760159225721], DiskBox[4, 0.03193760159225721], DiskBox[5, 0.03193760159225721], DiskBox[6, 0.03193760159225721], DiskBox[7, 0.03193760159225721], DiskBox[8, 0.03193760159225721], DiskBox[9, 0.03193760159225721], DiskBox[10, 0.03193760159225721], DiskBox[11, 0.03193760159225721], DiskBox[12, 0.03193760159225721]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {2943., -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360.00000000000045, 302.9082804836963}], InsetBox[ GraphicsBox[ GraphicsComplexBox[{{1.0630162957159324`, 1.2545425852978496`}, { 1.215000184783686, 2.220603747918232}, {2.1814410637454773`, 2.3747633179101006`}, {2.6266032354628024`, 1.5042646165590723`}, { 1.9360783706583828`, 0.8118838167355132}, {0.3309470618667232, 0.8812744292153313}, {0.633602903667692, 2.8020994656337166`}, { 2.554259823872318, 3.108065692074439}, {3.4387489845821353`, 1.3767235072499608`}, {2.0652795415955416`, 0.}, {0., 1.9173059703601034`}, {1.5168900981887792`, 3.4364913778653525`}, { 3.431198953052291, 2.46405804158096}, {3.0973096747043236`, 0.34338904095177614`}, {0.9766118690326693, 0.005927936572428294}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 5}, {1, 6}, {2, 3}, {2, 7}, {3, 4}, {3, 8}, {4, 5}, {4, 9}, {5, 10}, {6, 11}, {6, 15}, {7, 11}, {7, 12}, {8, 12}, { 8, 13}, {9, 13}, {9, 14}, {10, 14}, {10, 15}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03330536833235716], DiskBox[2, 0.03330536833235716], DiskBox[3, 0.03330536833235716], DiskBox[4, 0.03330536833235716], DiskBox[5, 0.03330536833235716], DiskBox[6, 0.03330536833235716], DiskBox[7, 0.03330536833235716], DiskBox[8, 0.03330536833235716], DiskBox[9, 0.03330536833235716], DiskBox[10, 0.03330536833235716], DiskBox[11, 0.03330536833235716], DiskBox[12, 0.03330536833235716], DiskBox[13, 0.03330536833235716], DiskBox[14, 0.03330536833235716], DiskBox[15, 0.03330536833235716]}}], DisplayFunction->Identity, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->{{0., 1.0000000000000568`}, {1.0000000000000568`, 5.684341886080802*^-14}}], {3335.4000000000005, -159.02684725394053}, ImageScaled[{0.5, 0.5}], {360.00000000000045, 302.9082804836963}]}, {}}, ContentSelectable->True, ImageSize->{800, 100}, PlotRangePadding->{6, 5}]], "Output", TaggingRules->{}, CellChangeTimes->{3.758368719572979*^9, 3.7583841058511457`*^9, 3.7583841689318247`*^9, 3.758384420755974*^9, 3.758386498866797*^9, 3.758386924133885*^9, 3.7583869801006813`*^9, 3.758387310650524*^9, 3.758387372163608*^9, 3.758391270790265*^9, 3.7583913368353367`*^9, 3.759338563270947*^9, 3.7593445761036253`*^9, 3.7593449744907627`*^9, 3.7613253053696957`*^9, 3.761325361806146*^9}, CellLabel->"Out[1]=", CellID->502979918] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797629], Cell["With a different method:", "Text", TaggingRules->{}, CellChangeTimes->{{3.758384288168797*^9, 3.758384311483008*^9}, { 3.759345185328177*^9, 3.759345192374151*^9}}, CellID->943932080], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphPlot", "[", RowBox[{ RowBox[{"First", "[", RowBox[{"FactorGraph", "[", RowBox[{"20", ",", "\"\\""}], "]"}], "]"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]], "Input",\ TaggingRules->{}, GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.7579751761951437`*^9, 3.757975203504169*^9}, 3.75797531035249*^9, {3.758383383901929*^9, 3.758383399087126*^9}, { 3.758384187473198*^9, 3.7583842231062717`*^9}, {3.75934460614141*^9, 3.759344606508733*^9}, 3.759344855346209*^9, {3.759345039884411*^9, 3.759345083386063*^9}}, CellLabel->"In[1]:=", CellID->450788314], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], BezierCurveBox[{{35., 0.}, {30.5, 4.5}, {26., 0.}}], BezierCurveBox[{{35., 0.}, {26., 9.}, {17., 0.}}], BezierCurveBox[{{35., 0.}, {20.5, 14.5}, {6., 0.}}], BezierCurveBox[{{26., 0.}, {21., 5.}, {16., 0.}}], BezierCurveBox[{{26., 0.}, {30., 4.}, {34., 0.}}], BezierCurveBox[{{16., 0.}, {20.5, 4.5}, {25., 0.}}], BezierCurveBox[{{16., 0.}, {15.5, 0.5}, {15., 0.}}], BezierCurveBox[{{25., 0.}, {21., 4.}, {17., 0.}}], BezierCurveBox[{{25., 0.}, {26., 1.}, {27., 0.}}], BezierCurveBox[{{17., 0.}, {14., 3.}, {11., 0.}}], BezierCurveBox[{{6., 0.}, {15., 9.}, {24., 0.}}], BezierCurveBox[{{6., 0.}, {6.5, 0.5}, {7., 0.}}], BezierCurveBox[{{6., 0.}, {5.5, 0.5}, {5., 0.}}], BezierCurveBox[{{34., 0.}, {29., 5.}, {24., 0.}}], BezierCurveBox[{{34., 0.}, {17.5, 16.5}, {1., 0.}}], BezierCurveBox[{{34., 0.}, {33.5, 0.5}, {33., 0.}}], BezierCurveBox[{{15., 0.}, {8., 7.}, {1., 0.}}], BezierCurveBox[{{15., 0.}, {16.5, 1.5}, {18., 0.}}], BezierCurveBox[{{15., 0.}, {14.5, 0.5}, {14., 0.}}], BezierCurveBox[{{27., 0.}, {22.5, 4.5}, {18., 0.}}], BezierCurveBox[{{27., 0.}, {18.5, 8.5}, {10., 0.}}], BezierCurveBox[{{27., 0.}, {19.5, 7.5}, {12., 0.}}], BezierCurveBox[{{11., 0.}, {10.5, 0.5}, {10., 0.}}], BezierCurveBox[{{11., 0.}, {9., 2.}, {7., 0.}}], BezierCurveBox[{{11., 0.}, {17., 6.}, {23., 0.}}], BezierCurveBox[{{24., 0.}, {13., 11.}, {2., 0.}}], BezierCurveBox[{{1., 0.}, {14.5, 13.5}, {28., 0.}}], BezierCurveBox[{{18., 0.}, {11., 7.}, {4., 0.}}], BezierCurveBox[{{10., 0.}, {6.5, 3.5}, {3., 0.}}], BezierCurveBox[{{7., 0.}, {13., 6.}, {19., 0.}}], BezierCurveBox[{{5., 0.}, {7., 2.}, {9., 0.}}], BezierCurveBox[{{5., 0.}, {17.5, 12.5}, {30., 0.}}], BezierCurveBox[{{2., 0.}, {5.5, 3.5}, {9., 0.}}], BezierCurveBox[{{2., 0.}, {5., 3.}, {8., 0.}}], BezierCurveBox[{{33., 0.}, {20.5, 12.5}, {8., 0.}}], BezierCurveBox[{{33., 0.}, {32.5, 0.5}, {32., 0.}}], BezierCurveBox[{{28., 0.}, {30., 2.}, {32., 0.}}], BezierCurveBox[{{28., 0.}, {28.5, 0.5}, {29., 0.}}], BezierCurveBox[{{14., 0.}, {21.5, 7.5}, {29., 0.}}], BezierCurveBox[{{14., 0.}, {13.5, 0.5}, {13., 0.}}], BezierCurveBox[{{4., 0.}, {8.5, 4.5}, {13., 0.}}], BezierCurveBox[{{4., 0.}, {13., 9.}, {22., 0.}}], BezierCurveBox[{{12., 0.}, {17., 5.}, {22., 0.}}], BezierCurveBox[{{12., 0.}, {16., 4.}, {20., 0.}}], BezierCurveBox[{{3., 0.}, {11.5, 8.5}, {20., 0.}}], BezierCurveBox[{{3., 0.}, {17., 14.}, {31., 0.}}], BezierCurveBox[{{23., 0.}, {27., 4.}, {31., 0.}}], BezierCurveBox[{{23., 0.}, {22., 1.}, {21., 0.}}], BezierCurveBox[{{19., 0.}, {20., 1.}, {21., 0.}}], BezierCurveBox[{{19., 0.}, {24.5, 5.5}, {30., 0.}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{35., 0.}, 0.1080712788259958], DiskBox[{26., 0.}, 0.1080712788259958], DiskBox[{16., 0.}, 0.1080712788259958], DiskBox[{25., 0.}, 0.1080712788259958], DiskBox[{17., 0.}, 0.1080712788259958], DiskBox[{6., 0.}, 0.1080712788259958], DiskBox[{34., 0.}, 0.1080712788259958], DiskBox[{15., 0.}, 0.1080712788259958], DiskBox[{27., 0.}, 0.1080712788259958], DiskBox[{11., 0.}, 0.1080712788259958], DiskBox[{24., 0.}, 0.1080712788259958], DiskBox[{1., 0.}, 0.1080712788259958], DiskBox[{18., 0.}, 0.1080712788259958], DiskBox[{10., 0.}, 0.1080712788259958], DiskBox[{7., 0.}, 0.1080712788259958], DiskBox[{5., 0.}, 0.1080712788259958], DiskBox[{2., 0.}, 0.1080712788259958], DiskBox[{33., 0.}, 0.1080712788259958], DiskBox[{28., 0.}, 0.1080712788259958], DiskBox[{14., 0.}, 0.1080712788259958], DiskBox[{4., 0.}, 0.1080712788259958], DiskBox[{12., 0.}, 0.1080712788259958], DiskBox[{3., 0.}, 0.1080712788259958], DiskBox[{23., 0.}, 0.1080712788259958], DiskBox[{19., 0.}, 0.1080712788259958], DiskBox[{9., 0.}, 0.1080712788259958], DiskBox[{8., 0.}, 0.1080712788259958], DiskBox[{32., 0.}, 0.1080712788259958], DiskBox[{29., 0.}, 0.1080712788259958], DiskBox[{13., 0.}, 0.1080712788259958], DiskBox[{22., 0.}, 0.1080712788259958], DiskBox[{20., 0.}, 0.1080712788259958], DiskBox[{31., 0.}, 0.1080712788259958], DiskBox[{21., 0.}, 0.1080712788259958], DiskBox[{30., 0.}, 0.1080712788259958]}}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{{3.759345081200745*^9, 3.759345083926167*^9}, 3.7613253113827124`*^9, 3.7613253620781527`*^9}, CellLabel->"Out[1]=", CellID->482247308] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797630], Cell["For a larger integer:", "Text", TaggingRules->{}, CellChangeTimes->{{3.75934455102212*^9, 3.759344554607033*^9}, { 3.759344593704027*^9, 3.7593446015298023`*^9}}, CellID->797235435], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphPlot", "[", RowBox[{"First", "[", RowBox[{"FactorGraph", "[", RowBox[{"2000", ",", "\"\\""}], "]"}], "]"}], "]"}]], "Input", TaggingRules->{}, GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.7579751761951437`*^9, 3.757975203504169*^9}, 3.75797531035249*^9, {3.758383383901929*^9, 3.758383399087126*^9}, { 3.758384187473198*^9, 3.7583842231062717`*^9}, {3.75934460614141*^9, 3.759344606508733*^9}, 3.759344855346209*^9, {3.759345039884411*^9, 3.759345071987749*^9}, {3.759345109372078*^9, 3.75934515825134*^9}}, CellLabel->"In[1]:=", CellID->777870023], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJwUmXk4lN8bxpFs2XeyjH3fl7G7Zx8G2dqEJJUsJSFJQghJElJJkkolqbQj S1GSJKkvQkTSorJWqt/7+2uu5zrmzPue8zz3fX8uasHbvTfxcHFxUcS4uP7/ yZ91d9vl1baY+iN7ICjdHu4rR5ibmx1QmXnjgFwcGbyDSgIcFgV6fj8aIktt sBBkdnXoEQXvHGKT5Z464mY1b2p/qyM+x34pYNQ5gWQ1rzn+xhxaFdr7yaoO WEcr63ueZYdwKcXdoavM0GwfPWrQRkMojffqzHNLhBR4STddpeO3ZKOOQQYw 2ipfWTxqj4N7Zaikagr23K0UOi5njvdBJ+efPbXBRf74cHs7c8QbWSZK+1lh /WbPbdzclnjzqsjC8Iw5/H5HntSvs4axYNNCXrUpYu+NG0Z9c8CF7jOWSzIM Eczhzl+vDtQ6bTj/3N4IC0+XKdwcoiDw1RTNcqkJ3LPbNxf40/A355fM3h1m SFTMUWReZkBP58vAUWli311ze9I7mfhR/5/g5sc2iNQcNHj7hQmzWz9fPFd0 gLPX2YjFBCY649+teuDljLZYhSXFiXTkSUrLyflSsWYpY9m8EQ0blixEc7nS oBT1RftBOAUJUYWaXZk06Ebm7vhCdsavmHQFYS4aHtY+DZOJIWPc9fZKy0Qq 5MWX7LQstcDvH/tH74dSoW197wB3hSm0bvE47Cb20RhV/Oxfa4JT+3xkHZKc 8W1J7X75nQbYx2c88YnkgP32zxDpZgR2ge27cl0b8OWHkoefGIE38I6E1w4L zLlLKdTLmkE+qT/I66gJgrP3mS0ptkTn7MsVn57p4S/1+LwScQ+NlMkNSZd1 IS2bKLVylwNqVdqDhVhaMGv/MK5gDnwR9QuOe62DnEoHodIgKhxKFLf/eacP YevYsaAqOmqqlxod2GeApH5XifZqBkLzf79MDzDDyoUz3ftGmDjhuWazYZol +n69MRH3Z+NKiZWijZENTNUqVbZIsoFVVvqX3R0wNHr9xXglG9y7z6k8Wg+Y exwSNRBhobrmxXjvFwrqzF48kCpnYFvTGXGZvTR8PyIapbVAA4ucECT/jI53 4/sPLBRR0K0sNxcjxcDHIrsfGpVOaPIZfpe5hAHpcXeXQSc7MOO7myVzaPjJ Ka3sJFvBo+3mooQuHb4iaXPJx02hf3uyE9Z08EzdPrzukx78N/tU/k2jQnNg QLjWTAdfhJsM6uyA8y+Fntt46WBi7SHvWj57MHfdYw2HakGZ805CtN4WOZxz Snu9tDG1qyP31TEbbFOZJ4/p6aMpJOamAccGOe8sKFO++jgZvS/MRooMoaSk JgNhPURsbyhKbbRCo75CTux7Pdx4Pn7Q+6Ql6NyvirR1DfBbdKzR66wFhj2f 2d7t0wd3fczqd51mCN2k9qCwQx+yp8gfLHJNIWlWH9n63hDHH/EPWsybINfD O6ddygTypSMXjpNMcCbWq4r+3QQNE7udjxP7vtwXKte43hTiErciGJm6iNZy +pPcbIYtOwttgjR14dZn4LLO2gK07eTMsmBdZP99IjM+aAHvkSFuo0xN/JyM zN/vZIlMkvTs0Wo1TNxN179yygryvkcXRvarI1vtv3O96mRsLlxiW+CriX7z IBE+4lxkm9nSO+6pY7xsUFtQ0haJ/P/xhU6p4pxKrtIteTskJ3Ov77tGguf0 Rr9Mqj3i9g0/3LJWHecrPXI/STii+O7OLsEUNZCOX1Lzn3NE2CaRs83NJPRq /EeRP+MEcwrvWNhhdXjta+wdJOYobuf3L/QhTZDux29NvA+suebzs9dbCzau m4b83An92HX1ql6dJmLnvOknOylYY2Z1t/SeFqori/Tu2lKxgTp050SjDq6k SqQPKNOQ1RJx9+WIDmpfRqiUPaXh/FrPkRk+HcRy7dybH0JH4s/IJUVE3xgf Dp7OekTHpR8ZSvqRuhDrYOm8vccAK2Jjz/7NOpAb6zxpFMOE9Ml7e45+1Yaw MflTUhIT/w7fWPlDTh8d5GtuU1uYaOKprvvQYATjkD+yZ54xEWQoK5bhbYoT Yi9Olq9jIUMt8mxLgCkm9XNG+Fex0PayUvPwPjPQv49r85FZ0D2A2K6P5vhv cOjwsfcsmGzqsckLsMSh0pOl7ofYKNsuG4+3luhe8FIbaWAjc91hC65pKwRP aldda2cjZ7VKKUuGjOEfwRfifV1gN5D9tCXBBka1dhtSTrlgO+S27wu2hWRd 5+ctqS5YFDr6buMeO7h9GR/8t8iGVU35THemPRqPP67/ruKCw13LRiuMHHHL nfsO6agL6v1ryQIeThD2695/4K4LeAJsd/LFO8N80G/RZLcLqldkbfOwBAIn BvhkB1wQ9lDvA1uTAhvRpdzPdV3hdtj/bHoPBdsCu9oStrhgi/J80gNZKpYH Fy8mJRPP/5DunceiEveXKCMxy4Iyw2513EcqMrTVvXf8ZaH22tKfr1NoiDjC oxBqycI2+z615DAaPrtc+BXmTpw3y+BqOYtYNzEYS5NkgrpYynXiAB09ItoD hTMMDEan//xowMC1gbaMwzsY4NX5vpI7ioF7a6gllc10sL+/stP3ZeDSBqsp /X7CP0XjTURLGOjnOC/J2kQD/VpWl9QkA6LhQec+tBO+0Px1mNHCgO4Qz41f elTYFajuFj7CQNTkafMHLhQsE8utNJAhfMqpPT6jHXhnZpH1I48JOmt66ikZ GLh4PHPei4lv9xfn7q50xq7XY+pLpxh4ylnPx0x3xJRyyZsEHiasx9tWxNk7 oOD0toJUYj/lJ/++asTb4/7axaFyPwYU1G8Xajyyg4Bo3iexFDp65VYxRtxt oC/4qcCE8MXTjT+CStKssXO3xoPmcTpybr1PCBW1wofZ2JdFr+iY/PV3yway JSIFx1Xza+gwCJt0fXjPAqXxO9sD2AwkqbcebaaZ49z0paTVfQzs2kTaPaZg htI4rZ0lZxloNek/8afQFI/e6374LcIAyd9JrWqvIageahypT3TIHtlSdnml Hr4e8eE37KcjoiWGce6oLiKuRv2iaNBBcg2N67+vi1q+V22ZPjRUnf+boDOm ibMPgiI/E+ec9nRhev6sOt5kUmVFwqn4kXPi7eAmDTSHX1JVuEnB4kv673U7 NSG4ELwwvABIno43SzBQR7XIeK/REiBRwvxh1UNVaNudOLzqlxNGdn/dyrWT BLu8km9qtY6QtOnl7O/VRPB4uJxGnwN+lMls30bo0HlJtYVhPQdk11ympr5U x9Mbi6ccntkh9aBA/5b9ajieI7r02hpbvJHzCFfQVod/T0+bgZwNPr8w3Fuj q4XZjYuZs3vIsI7b+7lOUhcZrb/Hl/8ko7PD8H6Njg7CB7Vzd09ZY3B9bOo1 sjZogfVu8mwrcGlpNXR800HGspXnu9QtEVFWISm2VQedl+7nlDwyR805x6Mi AbpwJVtPJ4mZI1EouZM3XAefi6QsNtabIsFu77Ryoy7S6v7eXHrVBJufPeQS /GgAz9g73N0txsi7Lvr53agB3jJ0cSXFEPlr5V0cPIwg+itlCWeFARh3m7fm 9hkiqquM9q+D2Fd7uqgoyxi/ZnVmVXW0Ea0nLVpiZIZDMToiAsHaiMixHRQa MkPSEqUNyUc1kd9eH6TxzBwCsw1fhkw1ISqVnbmnxxx0jYp9z6gkqG84XnJg twViBDbO/WEpIyRe02MTlxUC++4P3E4kQd/krfEnb2vQyw67SQeQILVqJGrZ OTJ+kApDPx1XwyOK8ZbdKjYwHBRl3vmniH81W99v6iZyy2DFZ+EUeWjvbyg9 XWsL8aRb65O/K+GPU9jghl92YHON/TW9qIyzeVGSXHCAvHPMgQg5EpoVL0S4 uTlC+LbuqZ1HluOAgXh1vIYTMnO+G92sVUI1fWehj5YT3iyxz94xRcIJvoXy y7bOyFz0+1L9Sx3Bc20Ngk5A2uXh1mzCb6fq9X6eGgcWDvIW2J9Wh2rLC2Z8 HAWhd7/+C/dWx/e2U+siualI3lTw1eWHOkL39H3+dIAKv6U9m4QIv5tvGuUS GKNC5FGmrtxH4nz5yicy99OQNxFyU95NEys+1wTyqNEh9OaYLCdUEwqPeWsd ntKh3VlvF9iviQhxnyFNDgPUVwP50baasBKe+JJ8jIHSxp8Lm8y0oPb5mIFm IhPeO/z5BlU0UMrKvCHwh4nJUKaN7GsNXGs4wc96x4Sib/zmC791kO9R5vOX ygJDVcU6I1QfkxX9Vi9UWTh8sG7hl7AxBnya1vERftUwWtG067cRmsN4x3t5 2Eg+8pX8p8kY3eSXbn65LDj996Du6mVTzNhoH3tfxkLp85Bv48bmuGuSwdj2 ggUrpcU9npEWqJySZC4/x4brgmqA3mULmJusHDtr5oJEndzJtWssceWT7lmq tQsy9lb7F9daITWD9SDb3wUykqIXw19ZQ1HftSH2kAtCZn3jlK+T4XuJrbjO zRWWP4SVKQ42aOY3MptNcEVU351gmNtiy+kV9I2hrtjSfG9F8Do7VIYY/867 4YKt7yT3Why0x0jUHVVdDRd8TScl0rsdMLfvSOo7I1dgV/ia5UGOED1etdQr xRUDpTKUpYeccCeo4lRChisaEGe37Zkzjor8V3CkzhWuRWOeN7cBCnJLz2bR XBHhc2h28xOg8/3bcJoAB22z85MvCykgSV4OLZfh4Jh1zBifCRVVN9qsT867 QGfPmvVDVIJvVjak+R93wc79Fy2tBonc0xjFPljLhnbSQS8mDw38x0Xlv35n o7wq9xTlDg23lOJ09ZvZUGjTcPdaRkcV34zF7Xcs+JaXZSoP0bBqgeLzH3H/ JMkDfBPTNAgVr57QzmbCINN4cc1WOmKWKOcknWeCb/bBVnE3wj9ndFKydjBh FCROM+hnQOhcsVb0IwZeyfatXfjEwOSj09zVRgyYvfOVmlNjok3mscL9DDro 8QlO2wSY2OL3U3Jcm44S8kKCUToTzoyh5+4nadDXFBwbi2UiwZaRIfadim/S pYM+ikykhW3eHu9ORWyrpcjB1Uz8tY/TF3tMQd/G7h/yIUxsV9jbFOdNwcV1 fTqh80ykCHZsresAGGdiWH40FlweBAqM2AKkVwGF5x8yMfguJPeQgzMGmjN0 uu8yMRQ3dWCR4QTtD9yz3/cxkR3YvDeUyK89ytTl1hIE57gfq3o+YQ8HiqdE Eg8Lt6oKdwXZ2UNWQDnHnMQEV/CjeClHO1hORLaPxzCQplvTl8m2RfS7ntu1 j+l40qM8tyWC4PyCrLrScAa+eElPvSmzAlngVnNENgMSVffT/fos4Hj5oHz1 HzrUP1dpCvWb46Cy2sbbagxcef5VfvNTC1yXXvHEiMgrHp/5R9r4LVD+9cjf l6uYyK19PbW02AxVFzfJHzjFRMTxV/PKkabIUI0VWKJO5IfXtJBllwn9Fn+5 7eJSJnRCTp+kTBkiZvcTz9wLDNjc2Lw/QlwPHY+7dv7sZaCMFU92bdCGRQ3t BjKI38vX+RDfqA0Pi3/dtul0NCttlWtr18TNBnOu9wJ0bNvkdELQSBMLmn9v SkTT0L6ubKjvIgmWnqxCW08agsavrf3LQ8LOuncmsY1UNE9rhOy2VAdD3ch5 wxAFIXUCZ/hIJHACxyb+uRJ+LgX2+pMkOLhLLU6VAaEjN4TnVyhCQiOsjmMI mLa4vLbqkkWU5HClpZozHEYctHh55cF4rm8q8Jy4N7WSwzwzqtiW/XhC4I8D 8oXkm6U+qGH3tffs7hJ7hAhiRUEvCY2OpYdFpexg2t91vXBeFcM6OU7H0mxQ pRPsy/6mBrV9SV/WupBRVdVoEyClhYzlGm4CRWQkh0SpPj+lDSWlqBGrJ2Rk GltIm+dqYW/Tf4NsEWucj1W9vPyiFl4smdt+fZMlmq++9ROP08bfHxbSW+gW yHZ5v+zJFy2krn5ZNfzNDGXhY9NTotoIvXzNa+tfgg8qjK8ksnRQWK/KWbfU FHbeeZeNRPXx9o2Ws+C4MZz4dzmaVOsjTkNsvKnGEE6vNkRFtunDkH+o5eUW faiPtUd9OWIA8/ZHlYK5ulA5UL3lmpshxGc+xorGa+Euwy1BWN2U4Oqo/4oW tVBRuBdCUmaosMgK3O6uicAxObtvFWYo6r9xVNxdHd4uGz4lUsyRFmJyv2CS hKJg/qNx18xRtreP2pe4HNcXi2llspZEjuWbYBJ+LnYw/QMnwQo9xo4V/Kkq uP/9drxQrTUM2TpdS6OVIcnWMZnaTga7a066WHg59n0ds37CtoHm6OCVeV0Z FIQ0O33QsEWNWZ+6LY8iquz5JyWYdnAweaAT2boc3FGcFu7j9qgiFx3nCCth avPHgYxzDrgT+ayRR2s5lP+2lMVOOkKzODLf8J08lLZv/8Cr6ISHBx0urtBW wdbK/W/lE53QWrFu2MlCHUpOX/rZM85YM5rqaDKijr2dh9nth4HFrBn7XS8I npXYvDvYkQK/V+XKz2zVwBA5/sbxOQUJreGqYxlqaE1+JdjpS4VAiPU12zwN HLCw6X72hYqKZ6saDpVqYUY9a6relAbx87ldOomaCPHa9CBwjgbPrlKZ3Nvq +Oj345/PMTqcenevaXyjgbTjintMTAmusBbxqhpVx/b36d/yGxgwfdDc+jVO HdOuV5OfOBF6fNbo3TNpdUwctXkSJciCvlKZ7roLatCeeSCmL0PwpsGJ3A1h RN8G52hcd2NBLFv9R/oaXdRQHncVlrPgse+rfKe4AVrM6MNhv1nghEqkrQ81 hN3ycIMdm9i48mHr0t7tRqgTcbipPcmCNelKQ3K5CXjfuJacOMLCw8ZnFS+9 zNB75dCCJTcbVWoZgxcPEn1h/LL/dwobT96km0TJWSDnoIDXlJELSGYN985c tEBoRnDwZR8XeB2Y2jc7Y4mygts11ZEu0GwOHtxmaw1x6bLHkm9dUPpyOW2/ GBnV5aL+dLor9r54ECFSR8wjN39P7BNXhEQMFj8/bINr6YcKx1pc4bvNeu1c E9E3xxIen3RxhXFxsGc3vz3cOa2PKuJcoE82DfLzcMB7OQPWwIQLUtf7ysvp OoK0oBuX1eRK9GWI1cg7R/w63+KY0OGKyVHW7VAfZ/QIyw4JiHIg8XSxcZUF MNOjFxxN1Jb2P09ueAhs9skTTf7jimdHHwWIWVMgv2N9f3oeBw33Nv57KUTF 7T+euoF3XJFcMBOisp7g3ZOStNcKrpi2en7wah0V0bedRvjKXXC0wWsZlzcN PAn6vzIiXPAjipTb3kDDRLb81CzFBblsN+pxWzp0Tdrm7BPYuN7IJ3JMkvBV RylS4V4W3uW2vHv4gwbp93tFi4VZmDk152O+m44zfHKVfW2En18aSNm5SHCu 3Oj5iW4mFt9Y7I4dJvyl2CtloxkTqU8YW6nLmLgetnxqiuDYOkuhH0VWTPAq 9kuuXcpA9JlmbqVMJpJeGGpuPERwnEj57PYaJrQli3Ve/qbhW0XlQfIHJsRI l/WerqGBe33S60IiJ3w/OiwfeZkK7/rka2mhBO860RoVlKjI+73eQI3w4/bJ ljdVFynwEQtZHaJI5MIXp5mRchT4Tv8uObuBhefnVzoL7gOKHXbntRgR/muQ lhPX5YycokvSJouEvzU9+xpz2glSHq17BEVZkIhIu5Rd5Yht91TfP+OwkPDE WkDE2wFV001Z33eyCN1/phG30x5j6Vlpux8QPP1Q7nnHUTu4TvS3+H5h4B13 Q/1krC36jz4zGwhlYHDrpuEgqg327Gt1GItgIDw+9nzDams4/De77dJbBsh/ yMl78ywhobT3+58ABsT3DPetIvTx1UD205E5OlK+x+eR7pgTeT2AZFjIwMOz 3LEr1lqgIft9tJc3E/9xjczlOZhD6RpuNL9iIrlupcaKWlPEaA8+YpcReWmH V5vQP2M8PlHdvDSCiV+1gqNK/oaQ4sm0YW5gIjDVo8f4rx7C7s/nT1swIc1n u6T4jDYyOMsus4SZcGMc671oo42ohfjWWQUGEvV37nfcr4kyCaXA9Ew6IPjy Zc8mddw2Gl1dIk7HTGy71MlvJGiz1l79W0VDxZMxrtLXyohbZ3/DwpCGZMVD KYsgQWBP3XpZop/lxx8r7B9QRbXun6nUOxSUrehoKfFRwvkiwfu/JSiIuun7 O25UAZGybC6uY0CmQEbnqwvSkIu2u1PxzRlBuuvPnjkrDRXr7r/dgU6oklju LVOjAPEOArHcHaH+elmvsK4aRDSkaPXJDnjId5W5z5kE0UXrYrabA3r2WCsf 4SjDqlnE+UyCPYRFsz4mCCpDz+1KjlUZkctuHahNbFBE0vdb9je7bfEwI/8e q3g5znduXFjKbYuQkwaaf/MUUWp5bkbR0AaWTaWjoh+XY8MB0U6nTDKGW4a1 /8tURq+/cfa6+9boDZgr4m4nIaFYw/5+uTXyzwVkJOWrQaLcsqvRkIyQ7zTN 9QqaeK5bm3dJ2gZhPpfMwiM00WkzMrLFwgYCCnsklQgfiEkozK6ftMbXbtu7 0qs0UFibkDxxwwq9/c8Ox5ZqIDss5ezAkCW0lT383s6o48J1cWr9HwtoR09F z0ZpwtFt6JNsrgUCD1zgV6JrQvea0hffW+aoc49w+MyvieFlYTOXxcxRJfjt gP2cOjpzZDa8ZJmhz9FJeExHE0Jm/bsPi5rB+Ir2VImfBpzsMhlaKqYwjX+q +NhcE613G7+H7zNBl6mnT46cFhpFyu9dvWOMr7f6JN5XaOM/r64Bp03GqCq3 25sSpIv2L2LhMfVGQMIE18EUPVwY5wkiPTREkkuNP+W3Lh7fN7+qNa6PAk9m /8MdulDVjfn9UEYfIzJmlGppXTz/u7vv3HpdpJVLdGUE6YF9vnFuD7cusrvP eVtr6mGVyaH7sjrauL4v+sMDaX1c37hXYF5IC8aTo2+fsfXhf9X60wsrDfCZ /supVDbEqpowsehEDRysT8o/0GUMQ4cXv8SOaYIekWC48q8Jtjk9us7J1YDZ 36oue0VTcIWPBBbVqSFH6eUb58OmcLi2STZURw3XM7h+XCsyRcTX658/tatg gfPhgtwOM+RJ+89/nVUFZ0D1MvmAGWqFJcpnRpfj4ajxvHifGUw1HnWPiCnA VFn47fBSc0wYbXpQtFcG3sP99/tGzFGRvElJ5Koc3PTieJx3E9x7b7ppaaoC EipCWy0DLRHUv4R286Uiyketsj78syQGx6rmSL0C9rKnDF9UWIG9XfbG81IF lPe4UVLErFEQ4JricEUW1N9X0n92EvoUdyJ8rkkeDi9GT+4XIoNLOHZ211dJ dMiemO89R8ZnR0vWmQAJJD2167Im+jLokWBa6oQwjJ/MrxRqtUEE/6OspaIS ONLyXFOqwwYlj7Ym7thJ7C/44bFXpC1i9EYkn/bL4URxaulNeTssKupLXJ6Q xT7H5pbQV3Zg5x+YEDwliyatgNKqPfaIOGx+6NQOGSj5hmfzGzpgQPv0CD9F HmL6Jz1Muxzguc6GbNYsDebEiqGaDEcUNPWdDFsjDfP03ckx9k4oTnsdfE9A Gm1HKmty8pyADcOXPobIokFp27ZOaSdU/mcZmXNKEccoGw1F9jnCd9hWcq2l KkzLao3qnZ0QuCFAymo1CfpOx3NlzJ1xR3juZ0oZCTYiMuQFLqDmq1DiLyLf UtX3beldDSB3IkZxvxr2FMsm8lQD+T++ks1nSdjPWR24RpACSfHrc0xJElZ/ L615EUzBt3IvNr+fCnLsyurkCD/LaWwW33lPBct5Fzhn5ykw9U4d1ytWAa+p zkFDCyqSm088WqFHwvKRK26H0qgw5V0S8thODX5/hTN+dVNxJ79NcT1NAzFG 0ke2ELkgruqIYeghQrfPvv/Gu5aGXlbbqrtNGvB6s0j3iKSh/JGEnKGXGgaC VhbatdLwS97j14F/JORgqdyoMR25S6zVRIxJWP9fxh6BJDpq9LuC5aTUsFit KHJ2jI7AJ9m3RYg86TekvXcTlYHsVf26LkfUcNdFiyyQwIC1RUTrL00SOnq2 Day5w4B5wd/Pe0xJ0Bm9N6qrwkSiofES/1gVGN7oF3SiM0H6mEt6RSbh1uZV +wMIn/d/seHF4XBl8JQPd1EUWNAsH+qwP6aC985tF9eksiAuk8dfJ6GC1s+e 6Tp5LGzG+zDF9yRYRDKCrq1lwfhS9uELlzTQqM26lneYqKe/nE/y0cKavAPL OD9Y8BsfDGsa1EL1jOd1Owk2fqklVUUk6+CoDcP7rRsbQv1vI46d0AXz9KjY VSM2okszz0R16KOm3v1Efw8b/9TLN0+F66PklyUr4h0b7A7qm4R+AzSUtSrf FHaBqUCJl7SzIX7XjrNf57AxaboQecnYCD+V3wc0ubBRkGr9eZxijKAjVumv +1mQTetWzH9ogrgb+z5P3GFB6cuirs45U8S3VmpaCrFRV+Tgd6vIDCqT19p6 Y9govLJ1KnoJwVkBg5XRaWzsrnA54HjaHFuOPPj+Xt8F/8QPn83ebo4NgxJZ ZzxdMONf/tL2tzme+Lc+cb1D5Mf9F2cmjC3gKq397f4LF3yKb/6w/oUF9A6e 6DO/4YL/qq+fKiu1hL/kvvZ3RN7cGbLHNSnbChec6oWyXrkgaWnt+Zkl1ig+ QT7pucQVM93XnLkirSGwWmFKLMYVLQeGJnoarNF84XBO0jZXUHM2iQdyyKCT eVlas65wUooOVD9Ixt3xD878FA5iJ4zCdwyQoRnanKJ/kAMKf9VTr1U28DdI WSHpx4HhfDmHj88WrZp8QZuLOPDnejynf8EW5Mjql3rWHOQeu1xX4GKHB5cO nPHrccUP8Xnb0g92SKOkd02xXAm9fSc8fcwepbMVzh+nXWATvlbu2FUH8HxN r2/ucUFgQk7WeIojHuo+/m/jRVfEvf00lrfZEd9GGaFjyhxsTzQq/unmiKdz 3oeCt3Og171rPH2E+PuU0KkGXw5qjV0Xjp4idMeqJfqTJweVv6N8LLKdMX6j 4PS2TRxUs10m1v9zBjP52FmzYQ4EH67kCvAC5PVaeX4Q9boAn1L748Bn0jFp t+VuEH6cZvbpB6Er916l5FzlQNbn0d0OEgWLXjf+uX/kgJ5oN5KSTIHmf4En ZpTdcDvG6Py17xSUbhl9Ys1ww0+Hxq46Hyqq5K4dm/3KQcu+z/LOWVSElxR/ WOnBQc6tVpW3BVQ0rHE3sb/sij+bUsZWn6PifPKqa5ZdrtDusTFcqU2Dl46Y 67dyVwStGbyQtIuG1KknIfwFrlgltcfLYoSG8TliRhddiPzNOUF7T8Mh06V5 /RRXWP0T23gnio47Nr7PRfpcUGl7s+ZcGh3Bdi6bd750Qcjr5gHBdjpKIrrs rANdYLh6j6hpNh1/6iev351nY1egWMhtHzp+lYst/72BDfsVwowIKzo0uf7u HVvCxgZ585gqPzryOca0Q7kshOdfe85OpWNgyYM/lxMJXk2wyn77lQ4zAdev p2ksnFvVXvHZiIFii7/yaZYsZAryKj9NZSDZPSvlij4LxxJf7Rv7yID65nJR fTsWWuM8AugxTJj+2Cm/a4TgmlZGV1AaE/xf2HmBqQRPr6j9K59I8AQ9om6V JKFn8rs/ue9lYvLXMw/ZMSK3m2+Pt39B5O/k1/+5FzOQ+mf9k78zTLBXzNlT 1jHArTtcWWDCwi7vnPDtU3RsSvVKZSxloftSy3j+QzqO88k4LvUndKtrY1Rn AB1zEgpXXxG6lqkvfzZNh45ZN5frsRksSNHb9QzaaWAWHc0ZtmYhMUNgTvwM DSPpgxtTB5l4uveg1yRxj+cG6jS+FjHhyb2x4VYXFSb8ywKfTzPxri5YUC2J irnRim9PtVl4Ihp1otGBCrtve8ust7Ag/Kt9pfkMBSrdHqa3txIcf8h/+kkT BSfCJoo7p4lzt2cZ0yMpaN11bUfmAgsNF0ojZog+dbv3fnaGxMaYR6LvhedE n8s7XEzlZSNE7HbBhiNAmrOs7rozLGzfM/57rQ0wMHkgtSuaBbsnbemUJmdk qSdOi6WwUDWy8OmZjjNQ/nhRjHjfjNmPN+tTnaDrufz2VCMLTiQp9Uh+J/Ds 2j5+8jgL2lIO9nVrHaHzNF+QpclGwz+DD4LXHbBq5jflhCIbavGRb/nm7XF+ T9eFd1psVHRxzvTvtkfxGgtpdUKH01YfHrEJIOrk5n9PXFlITkt+ufKPHSbq ZttOtTDhqkLz4XKyA2/kdjL9AhOwr/q1/KEtPJc23fzoS/TBJ34DMRVb7J/c saVDmglWzYvvbhdsEPAw76l8BQO160+W25WTYa4tnyVP+GDPx7fSlB5rdNW4 SG53YmLP8vkq+jMrjI+plpTtZyLvWp5OJ5cVou9F9ekQ3M3uUJzKX7BAh45c qe95BrT/xnVa9ZkDnl+Sov7S0SnN+85trxm0K99L3SA4XHX3S+uiRDOMt5ws UQxnwPfFylcv68wQPPmnupfgvcaqU53sNnOEvWpMvUPw4ePcp+ICSy1wiHP6 orsxMQc+D3JPXzTH5yaHO0UrWAgomTUWfGGG7yJDH/5lEr4sR7A0txlu/3iq o7mNBRVZi5FMBuFbRanCHeosWGZZWMYsNUHnpfhVrGEm1vT497bnGaFR3uCb Hz8LQt99zsTGGCIuULotmKhJyx6796Xp44NWybogAxa+7q/JSurUQ13o1/ec R0y8WVJ8weu2DnqmGORmYi6TE9Parhppo0r03eYdlUyMlzonrzihiUcOMgJP 85goslm9QYisidA3xspf9JmQvc0Q57RoIl65XFEnhQE+Pz4p6k8NtJqdTnlH 8C772jK9vi9q6Otcc0JKhNADfsfCKhs1VHef4v98m+Bds09v+PlU4aOz2qPr KB3xwdODlpdVoc6xVrfRJOq7uZNTsssRqjJYHqdCR5ntyuS1ZxUwOfXiVAIx px1tC4dN38rhvFdgel4yDaTehpMjuQrQOqf7YZkSDZ60+g8vLinhuO6KTzFX qFjzU2r/0zFlTH4/9dPKiIq8uazS6nuKyDgi8XhgjAIH6aaUknJ5BPN7upw9 RtS06TjnTzKg5yTz/nCnQLp+bpR8RA4vcoY/PvkKVEQU/dz5WBJ+BhX9c3eA 2o4xRzt1SVx9NbqOReTYzCfeMT1HhHGJf3uG5xIgeenokfs1Ijh9ff/jGRtn 4v3Wu6reX4ZHFmL1332dUOayIufUQTF0ph3ONbvnCM31givNgqXQ9Sxris/X Ebxlr0ODVeUhdHassZjfEbUuN2XHjylCxU7yo/YZBzRuufXh8FolWO+V35bB 54BF3xCh6+UKsP2qbWDJa48Y+dbQgyvlURz2OEjY2g4hhrxcHQXysK9gUu66 2iLeh/PmbZwclqx+kqK4xwaJrQcvFhDv++P11VuC/+eW7e66pKWKOHc7//ia IWssLGnV59QqEecaNWPvbI28d+dp7R9VkHqWOjl62hrXb1WxqYfUsNRbqXFr Ixlhe7ZtzSBy9RKTq/99S7OB365lC2fqNbDrTELbTBkZfi28t+JsNIArm6v0 XK3RM80Z67ZVh0khqSpnuRVyhucvLOtVA98H07JcliVu3XEXPr9CHT6RFfr6 BMd5Uqd7eb5o4NfqvbvviVlAxb2CskxYAz3hbiUp+ua4lFG8sRbqEL7tbnk1 zQwJQRttfV+r4QOZued4gynifHaSd3hqoNNDn/M7wRSDEu0tLqnq+JXPHNzC ZwKnKzvNHp7RwE/Rgw1aQcYwT2vvSduihRtDsxF82sYofsw928inA92Q1w2m 540gXWTTbWRM8PfzPx7jOYbYrK5vXR2qC4e/O1UO0w0QnDWVXheog3955nLN O/Qwd9TXVkpKB+JC+3Qzi3Uh9OBNiP0uHfysuSplrKSDnPCvj6b+0wFzuDy5 mk8b+dd1hRjVutBUUTpZfl0Trb9uJ4976yE56HvJsigN+O5eWKEWpA+BV+Ju ctrqaLjFM5u8yggObXdW/fqkAb0tjMa0t8ZIit1TabWT4PGOng45ORPUKry+ al6phi65H5soh0xwopAnz5ebBOYht99d/KYYcNf81K+sgsQbHyaXVJsi8di+ pO8vlZCYpl4LcTNIB6+IOv5wOWRly3avo5hBXHltV8ZTgrdP+Wx4Qeip0np6 9PUkaWzbIzFR4G4O/zDKVDq/NKLLk86CuDcUefDZMeXQPd3W0tVlgUT1y88z ZRRgeC75acIGS0jzF/RvCpbDuYU2hPBa4XM8t+9amiw87KJM49Ks0DVpt+a5 oQza/zoJLRpaYyDBUNflrRR41try1BVbI6R3hc52USmccrr2oU6ejNDd+yn5 7sK48nHr4MkbZHQtCpt+bxcAnTt1y2GiT+PX1XP2efGDa/8Xku8Tgsfl+8/r Dkki/3RfxotpG3S8sB6kp8jCQD9CpbvCFokFTvVz0jK4XG9mX7DZDiXvS242 35IGI+ZA2Btpe3xT+hZ5YZMUzMb3NP55bw/x42YDqinSEJQ6Ua8b7ADNlNVX tA9Jw+1ZZwLD2hHiJ976X+yWwNV3N+vWzjkiecOgQnOGBA7N5LffuOgEuvfM 3C4FSdy1rvsZsdMJbzo/HXXkl0Omg4n0tZOOyCMVFamKKEO/gqX7+oIjEl3d u2Cmis7RybMGzU74bBEeNqeoCqOPOveulzjD30iuYZkBCRf+u9H6iExcx/0f TeokEg6ukVNQyQKCT5asZNuS4KG/97+2YUD3m6rnsSYV0P7F/9niQAHpa889 l2Zl5JvliegXU2AZ0y/Ob6MEwyQZ04pRCuir+qfXDC+H3PXfZ3eSqUh8Hqr9 LUwJ+a99FGajCB6/ejbg1FlVVBk9F7rSSAWvv/ptretqOHA+ov+bAQ2lHjdW HovRQHbC29rZIqIu0+xNPKUBH8toxcn9NAit2szZE66GVp5uxa9naSh4dZns PKqK9NXax0nL6CjYqf1v3WcVmCu2Uy8SPF673/B+pakKfIdvLJx8TodiBTnW 9zkJs80sVFszkLd661VdJTXQt/n6Re8l8mh+yvXmlyrwPJquLnCTgYkPQhVT KcrIlLvfv1eAidDi/AcrM5RwqyA0bfc2JmpkHDUmlyqBcXp3/+INJu7Ur1Ob j1sOVz0X8rA8C8VCbnybdy2HQqiKmcoBFhq/ym9Rx3KUnE3Y+qyV4PPJQt5e GRWk3VM48vMYC30v369mN6ihOFA0VDubhfPrjzS9tdREr59azT4+NtTVPz6o CdbEqv+2C2/xYhO572xJziUtNERCeC3Bz5TZBoWiDm10Hv4jL1zIhlLaGreh p7rYpjXzvu01G3+T43kcw/TgYHlh4o6NCyqGOxq2x+gjsXntqlSCL74IZ/gJ rTLA80dZ6199ZSMl695cdqwhbsd/3mCUysbrvgCxryOGyAzer31ClY2H96pd n6maQFlee3zjfRbo4eNZbu9N8HZGbcX3RRbUY7TyJ2dNUa3y5fj///+lxa13 vpDg8y6OdMj+WjbOS6gPXZYyx8PflZ/9eFwQMNcid9LNHI/TBk0dN7kQc0rV YOw3B9/DrjVDBA9Rh1vMuO+YY2HhoJAdtyugLjWh40boikwT79ZfLrDcvkIo U9YSjCWa6qwWF+hWHx7bJ2kFRBZsWM7rCm9aqvCJ41YQnzgzXW/siu3xz7vH FazhzbXs1c1AV2wa82JVb7TGL92e1T8aXYl8LWU2NGINP4dEVtsfV2wojQzI tidDpa5o8+gOgk/tZo1TM8iwPprWe+EuB7f9dLTM35MRzxnV0CDqnVbVx9lE rmVFXaz81MmBLrd2pDjFFlR2XmNzGQf2B63cj4sSPF7958ZNCw6SSvNefztn B7dfC9qut11xK6iE7MCxxwWePVesnAj+5BHfEWThANmva5vt+V1xs1Hkg1Co IySHl8iKRLvC7aOUtfwDRyit+Gmias/BAdv0hDKCx3/Vj0aYn+YgcTqqNHSH I2amI+f29nHg91M4ZrunE5ypdx17cjlgbB6NTCM4oq936nlCNQdteWcMl752 Rk/gxK1rPG54cH91k7sOoKXY7flrhRu8E4uuCScTtk5f3Lss3A1PS9+vNegC tkXaBjcRtXLpXjtNI4KLPsZ3Z9oQ/P2cNzVuIwW1NZFP/m1yw5HIg7kGHRQU tWXPLT/phsWb+sbaIPh6bvXuM/7E97su/Ow8RnDWbeX414846DQN05grJ9bF NH2N9DkoS4ucqSR05Enm74/bxTmIXvghcYKPhh8O4/kV8hyE9Zv+qEqjwUpZ 6stN4v6qHR9WsYaJPKmh+u/TGVdMnf7r3GJIxzFl5VvKea7wO+god34HHRHK VkbPIlyRx7E73t5DB59FY3O1piv2G9utSpmmo9jx/ezL6y54/IBB3feSjnOP t97aFkz0r3160PcEOoSFw9z1m9gg3/+0bs1qOlKmSl97EXye8lhk5T1i/wGF dFonwVFb+OZ/yBG8H6q74s3VpyyI3qv8rkPsz2oXuJlMcJql6LRbqRsDt+be 5HxMZ2GDxsqNX0oJXtm0ZvE1wYHeNqz+9p8MtNKHaNtiWdi333Pn2u1MzM0a iIbqEnw/x3uu8CoTB59/vyD3monO6esvxu4z0ZBktPrkOibWXmAxMiqYCBiP GHhlyIS6Dc9OCsG7ultmG/UmCA4rjosfMGVBr5Ez/oHgqB5mbn/0ZhZyH8Ur HiITnNT263p5AAurpMJ6jvEQnOVyVdifeM7Tv3f/e5JDx6dfYt+Fo1ioDxyy eU7weX6SCNvrGQu3NpTvq/hJg4pb07KrxHvuurDZe76RBgHvjI8XnQleOrrm i2k0DSw32WWxxPMi4LbkB3EaZiPzlWe/MDEfsnz93D0q6D4i8y2eLLRvs9ew iKeiKlt3ZlMJC2bp4Vmu8lTIBoX43ihjAbtLtzf9pmAgSjk1V4QN5qMzySbn KKiK5ZmP2MxGDlWdbeNBQdjQU+XhEDYChf6D/A/gWFzR/BU2G4pRqu3vLgN7 7S4dfC/4f92q379tC3BIk7fgdBwLbXt8L/4nBsge9m/kvsdC2Y9fLYxYwm9r QjotX7FwcMKOltjvhPG012+XzrPw54vyciUlJ8D7ga3GZxaGnE4Uf77jiOuX ldgFjoROn+jxFR13wJzEiYNBhI5P30yrdzN3QO5b2oeH+Wx8i9BTOR9jD6G/ u6Wkg9gQ3iDwq5BsD7neI2OG7SyYL5T5Vtvbw3DNt4uWMsTvHXpqLZtqh94i 4Xrb70wwtsm5J7TYosH2asVcD+FjJ400hOm24FrknfsZzYS9cPL5ngob5DbU 5AurE/yryvOZS9gGPNuqnrQqMWGwkyrCI0rGCdeN+2szmPgSfzT9NNkaYZkH uNnVTHSt8Fr+UdcKJ7fKrySVMOHTe6F2wssSl+x5z36VYEJpm9QKf6oFHpwt KbFcz0DVipMfngyYgZngt8j+SkeYnUNh/rQpVC4UcvnbMtDVvqeSLmWGV/8y EoRGGcgcpwWGvzVD9TcaxzmVCbHOi5oPKs1RcKZWSZuPBaqokiW71xwWqe/9 BypZqLF8yq1vSvhKxyBZ8C7Rf4sqterOZqCwC8/8fczCOvURE8H1pkiVVG4s LmLhy90h/YMME0h1T8z1EHzvNKxhIFNoBBd7satPyCz4bvG2PMIxhH5z/p0D xBw2351q7WnTx5vN9bdtklhQaiqrCJfXQznpxyDTl+Dz23oJlEc6RO6NEd1p y8LC+9eO9zS1ceZxTMfupSxEoyWC10gTk4Ueos0/CV4XNKWetNXAvfeGupxS JkyDbJeMvtQAw/tD0KUZIqekuvs2ELzy71byKdcoBgIXT92+8EINmgaiprrE ea56dunnqDMJNyUkV55RY8DyVKvsHksVNN21PubzmQ5/hUk39uRyPDm4eVn/ SToExI+SBZoUcY+1gVt6Ax2GBeMTYlzy4P/SsmGzIh1cx8SIVCmLwyy7ZMdO GiZsh6Q+7pKB7PbomLpIGh4+4b8ZtEsBNb0Toz/nqBj+zivQ9k8JQ4Iv7Ft3 UmFp0XCH9FgBf3qKVrqaUjFzO2T3lyVyiBkY1ZIeoqBgaVFhCpGjQ0Sot7SP UlByP0N9T5AUrnSEGjpYUIh7O+505j9J6BVTi8a/AfEZmfcNjorCUq/nfeBJ 4M12+1UGc0Ko2N5mW08DPHk4tDkxfnTvWNTVv+iMNZwL2eEX+fE2kD9d9akT aixW3b6+hQ9mvl1aUl8cERqRfyzvjwhGUrROOgc6Ikb76Uw9WQoam9UXluk5 IqI2bYQaLwsq6VLv7EsHWLI4okPiy7HjBlngZZQD0pTUwhCgiCivqINv0xwg v6mWEdglh5uP+nS2CjgQeYUj9vmTHAJvCF6NDbNHokX4H/MWaXxs+8PvNGKH mYgHp8ukZDHWvd6qLcEOvG/9ppVWSGH3VYpjzj9b1BYMbrI7Lg2t9HMi64/a wob7/O/ybinErqNeLlKwxZpbJp2Hy2UI3r3RMFtvA6XRVMe2EEkM1cTMDZnY wPLSsY9nCA47+G9Z5PcuIvj3HlrSQnDObcG3vjtWkZF4oGvfYqIMzk1prDIi 5jqi4dHfrkfS6Hhl8s8izhqhT/c6VCrJYUs/59AnTWu4ncveoXhUDoJPa0Qu 3rTCMEtJJLBfESfviy66D1jhTm/Iq22rFHGx5kX4DhVryD/Lz/xoqQyNZZt/ Mj9Z4zFF5dw5JRUo7+PyybpEhsOpXOsWDzWc3C3SH+RtAwHJ4OS6UjVQFCZc sz7ZIJu/8sWRCwTnimxZYNyyAX36vv9nljoCFJSiZPvIqG1/k9npoo7rC3ML ya+I5/t4Z+2ElxqqsnKen+ezRrXtyrRPFDVs2RPL9SXMCq1LYykbokj4fHfD xo1vLBHSNazMDTX4hSYLrTlkCa6Xdls9Y1VRUKjf1PnVAgMbE/rTHpLQJcyR O3XBAopPn5PYpiQonzVf9DCwwOdp0/y6DjUs8fnWLyxngYrQlvc6VuqoaNLi Mq8zxy3vjY/dPNRxpeTqQ5KPOXwDw09zG6lBJXZdXFCzGa4Xu/Um6BMcMjag sWK/GTyk3tS7B5AwFBv78ryeGepyv0+tsSPh8e09w9saTUEX9V9sHVRB3/Ed FH+aKfyf8vLv7iFBxka9wYhO6Jhg0JWzzSTMFU1mZ1eZgG9K5MWF+yTE5wgY +tUbo3f8NPXHDhLU4k9ztbUbobgw5lF/kho8Kq6xxV4YQXa/7BLBN2rgCd73 iqFnhM1PyRLJJA3IcH7Nd68xQt3zz1V2/RpgawhUaBkZYdi549FYmSYklVYN ResYoXz0+6cSUW0kOB97VkesJ79Wbkpu14akiXH7z1uGsAv6aH6GSweO5w6a Hz5ugDljV1/yYx3QnurEaq8zwPU39/yTjmhDfV48QPKOHs43BG3awaeDyKy7 XdKyenDyafXhSdCCxiGvJU+kdfH1j9W4hJcWmGEq7w7SdJF/Iifu1C1NHGr4 xPNBUQfV9rSNBbe1sImmW/jrhTbyjal76KpaCH4bcaV1jxY894qk967QhmdF OnlloRa+ubNUrz/Sgvfi21065pqoUhOcmX+tDVnll2p/lmqi5oeH8kcBHVT6 +d50MdBA6yXe9RqviGDME70xsEMdfZz2h+R2HdxZOX0ju1kNeYc+qUsU6OJ8 fYdKp5YaFrhurQ5r0IVN39aJakKn10QGte+wJvxDoiPRwFoNpNilbtKPDfCw 9pC50lp1HDXdc5IRaYSu/c6THCsNLJP8fP1tuBGiLDy+Jb0n5qTISXcdnzFO cEnJXVqrhmv2fGttKo0gHD0mlv1IFW7HRTI3ZRij8lYst8sqVdTbJqeGfDBC KM+Z7Nf/lkPMs0Oro80YicseLatKV4LkYNOls7HG8PyXJN49rIBfn9e7q/mY oCZH4HNfoQJElJN2CZaYwOHwpW0L6vLgVX3y4JSvKR6SpDmhbAV4BL/es9vN FJYHGOrjbbIYOFSiMnrDFLwdYakG/rLg3tDrYHnCFKH1oRZ/5aSQLpJ34rWA GQyN7kQNTkgipyOjPk/SDDMBZe5PfcXhan38d2u2GTxnVv0L0BaHzeYb3+re m2HhZQs3v4AYonyjwmQ8zaHLe+2GP1MCtk8izornmcPGtv7LgqUU1A8sMS6e N0fOB9n2+jJZVG6dU+AEWqAmy0r4fK8MNj+/UJDyzgLs48r/Eo1kof1tWXjZ HwuQvLvFd4VJoceo9HT3Tksketx7arpaGo/1Ei+bHbXEgFTB5R2lEkgZ0pS9 KmyFuhizJ/J8UqiNzPxJN7HCIi3g88sn4phxNHKU2W2FgrHKM0fExeE3ee5v E6GbNnXi+7h/CyN48PyhSCtrhHyVvD3dIA6ToIZoC3driJt2D4WtWIaH0exS 3SvWuGPmmM78JABpxZ/haYPW0J0aWBldxQ1VUfWhigAyKjOOtD7W5cUU1W3g 9ykyxFODl3Zf++t8+0yUoB7VBp7ufOoTWTxQf1xrE3zABskPIrSP4afzHGnY sL3FBlE2Wh5/Spbgzl5OoVWTDeTn1EOTpEWxd4hxccMmG5AGuk9SPkriqO2p u8xiG9Sl8TQq0KRwon6hPcXIFoa8G7lCbklCbuIxZyTfFqG/vvwj3ZVAwGZH x31cdljjPXBB/pwk4mdTCq2D7FDpmjXC1pNEDVdQ9cdHdggqu97rNSqOrynn Lh1StsfwqXDpqQ9iONhbHdSzyx4Tpmxubg0xeLNpvhvH7fFmhUUno1wc1Wd0 H1YTXBzK9/HCoJ0EXAVyUBPjgImTxX4/fhD90azDps85YM2aNfw/5kRRobk7 lcvPEVxB8xv/pArh7UxssFqzI9boPMvd9FAE8253OML6TpBXu0tW+b4MSaO6 Mn+OOiG0k/rYaUAUWc7PvjXzOIO99q3pcJYwajZ8Wioq7QyHC2/luoclUP/h LlfkiBO+iXQN/g6VBjNDdTMPkffFjZZ3mrLkER7w/ImHvSN8l55pGdqhiPlU j9TyXgfUbjh/VHVWCVnZ5r6rtR1Rd+vaNF+AMl4WNpU8U3CC0kOqHOcbsb53 K3fdMycI78iK9hZRQrFgSGwCyxl3vDaGDUcr41XT4HzdeWdifvSrzngpIyJo bmeCAFB27tT19cUq2Bl9VfYGBXB4E/JTckIJw8G3j4tsAyLIDZoKMSpoGJb+ 43QaEJAZDfcRV4aYU+SEw2Mgp8/ufb2OMr69XXrZfx6Y2BdvVfmfIqbHtkh3 qhJ8xRu87smj5eDdufVW+0oKEtsm8o67LAezzPfieAwFNZOpU0fCFWE+WyNb eJFYn+5hY7kCnvPMkT+2/Y+CMw2n6mvDuCQzmTM75pljnrkdZ3YUkpRQkSii kiSkCUkISSWEUqJU5iRNqNQ/mjQjRJQhIaF3v5/Ota5nrb3X8Kzn/t0fznZG pnFm8xoVeUR0uN86v+gMr69tk+n/VsDkU2x/ojoFBsUvp/huySHplp+ajT/h /7x2TKdRZPH7J01ufBsFmSLC7F4pBTj+XnFFJY8Cfv3SpXingFS36otq1yjg mgm2rIxXRrDtdEn1awqEH6x+fyaEhKWzAidc+V1gq6KYUJauir0bmi3Htrpg cMNwq3g5Uc9vLzpO1bngO7vE7Od3dRz6s5H0ddQFsqueVFIfqCHaf7dtaa0L ujq+OWsS3PL1c131z8su6AjwvLRrizL4RTnPdDNcwOzXyv8rq4Q9pctv3SCe R34S63ztiCISVikbvh5zwfz1+K+8kwQ3bzktcF6XCkXuEzy3PymgcHjtVsvN VIIjDWuv5srjwqeux/3FRLxb//EUtzxWXKRcu9VEhc+MXtxrYrxO2FLvoUkq hnQt9bZOKOPVd1n9ARUaTI06y51KSVje+yU4gPAN1DcCb3TFSAgfECxFCQ1h NTmZ638rIcRzYSCskAb+S3StFWfl8ZNXR0KznAZyypIlgo3ySG62467tJfpL X5i8ayyL/q0xR9g8dMzeeygs8kAOF4wmeSPN6OAaYzm2UGVRVRUwEb+NDlkB G+VKN1koTytdC6qk4/LhC2v+rV4Bvt6C4+fq6AjyExfvNCb0Y9PNBJoAA1KH w1+oRcqg/Ppap0xdBjiWWmnip1fgppJTC18Yg7ifZ8+9mJOB5A5H4885DHTf bJS6kCyLrkM2mzXfM7DB01j3cewKeMkIcN/+yUCmxro1lbVyeP9n4OULDSam hH3mtW7LY0/8fYa5FBPu01GW/fJKyLO+9Gu4k4GPmzq6V7FJyPF/vuYi4RMF sUPSoUEV/VeWSH6bZuDhtPyTsSA1VPilOBmoMaG8Zc+48181XPpP52bePiYm b5DFft5SQ5+otmN/FBFftahy8I86Ntf4HftazUS7fYp3qr0GdLYGBDCfMeF/ r/PR/VkNjGd8+bxbmQUjknO12YQGbPY7b09aZCJugOmIHVo4K1I7cESOBTex fdXmstrop3SLzRJxId9+j4fhOnjtLmTjF8UCn419rp+IDgqDVCi3slkIlRV9 Z92ugya/gF33ulh4qhIuMUzXRbp/NrWmnIV9I/sy7sTqYU8rt0fWEAseF5ze d17WQ2PHmQOOxPht5Bs3/jTo47QHn90lIxbCMycoAQoGoIs7lvUNMVHoR5VY 91cfmh3n7MMqmODxy7q5/ZU+uPf9aLt8ionw4LbxkfOG8OGtsYzcw4Tstn6+ jCtGUPyX8p1LngnRW90O8iFGWJL+J3JnHQOHYwXf3iswguyI5sMdwwzwH+8c ruEhI6rR4OQPEyaCjy3ryz1HRvlj8weCO5nYe+2NqbqCCYTfLc29eJ2JHf6W Xx9wTMCjdSVsbQ8Ttk2/UqOOmCB5w/TEgiwLtrOTu1+lmYCzwm36BYmFb4zJ kTU/TfB97s7R2t0skDSy5QS+mKBH5G3K4EMWarXVuSgtJtD4aq5a0c1CHJeq X/wfE/j7ym2dGWfh9Ps1JyRdTXG02/2ogycbSasTjVQopviolNgZuIGNiVbh sRXnTZFiM7auKYKNZcK7jtb/MsWKivXvn/qw4R9t2+gXbYa8K0NP9rHYCBv6 81TqmRkcByvMo38R+SB5tNEk2Bz9OvYMgQXi/cl3j85NmMOzfONs1hQLQQfO fli2wQL2rxXPx25hQzoryFR9rQW4zz2p27uJTfizhGd9JRaY3flj34ZUNkQ9 rrDDhyzgfHOzwJfLbPwIlbzwa8YCtw1SYoR/sPGii75mYcECO8ceePzkccXl r2MxTj6WiLO6pNxp4oqx3iW53hmWuPT+pu0BaVdUHO6ejxi1RLO594nhWFfU Xig2qxGwgpZGjyE1zhVcKSYxbnQrUKi2ETGfXfFLuCl+lGi/IDXXcS3j4H0+ 9c6uKCusM91y6Jg5B5u2Vm16S3BMp5PYVhaTA6c/qRsFlK1xX6zd9q8PBx7K XRW8O6xR4e339p4cB5wUuTNhr6xBux/93Gs7Bxlj2+aPmNugYm+C9/uVHGwL /5xxssAGgqE32SWGHPxcdOZ/J2SL9FaL07u7XTG47UBRg7stzCsv8d+/5Yq3 sQonLpfboifvRuI1iiu2iPn7Pf9kC//2wLRxcVekLjUTPmNjh5aDSX6z7Wys 7bgbml5qhzt3RNLWJrFxOGy/jZCdPT5VFr7ko7NxbP8/i9vz9vids08ll8iH kv4rZ9tHHbBZsXLtJ182Ri/kvN1JcMeeHmOfdfNsiHiYkXbKO+IgJ8ijyswV bm/MaSklBLe8aJsRbHKFB7/hJ2EjB7QYLyx/88UV9ZSm0E+KDjhkOSVvo8jB K5WAunu+DuDZ1B42pMPBuQ368Q0fHXDVtFxHaR8HAucXpjazHXGHmm6vYsBB /45gx5JKR/y05OveuegKmv8h+0OmTnD+e/vUnkFX/ElZubPlrhN2JW66YUbs X8QXk6HpHid0lQrTVlA58A9a/7lmOTAXk6m95TwHqZOHUppMgMlty/snj3Ng P3R9L99aYGnijukHQxx8y/obvvMwQMqR/G3ZxMH1Av/8gApA/PDdko3zHIQs FP0e+wKsd9jTNcrthvSfb48ulXQG6W3VfX59N7Rdr175gekM9/wzq52aOaCc Btt/ozNmk1wzaSMcJIzsrn6W5QzOg8vjiQ0caKSmRws3OkP+X5HQ0ikOTsTd eTs664x1shRO/RyxX2ffzUxZUGCeNak7ruuGwSD6JrFoCs67TXMKBzhQD7mX qniGgua5E9IBX4j1/Rc2P9lNQdjHt7s9L3DguDizbNNHCvSUgpnubA5WCw/N Hic4o8rgoPzgY1d4c9VPCHZQkJCWcLenyhUK5sYbTs9TEGede3U81BVTH7M9 eAgOKYt6KO2Y5IrkQq68lJUuKOV7Zdl32BUm1mK6LSkuMPBu936d5Qrf/dt+ Czx1gdRD3uOp+11xN8B/XOG3C44uXDbuu+SKoSszRVluVGjnDpM0troinfVo H+92Kuq6xNrfs1xha2F1vegMFVG16/YqD7GxPzjIo+U4Fex9siZR+q7ouZEk OvubClflV5ZLfrMxuaIttVCAhqKGY8uDv7OxrSb1wzpXGuq5pMrjd7LRa9Cd X6hBA5v7v0O1oWw8dbo7dT2IBlK7UNhjRzbe9B6/EehNQ2uqa4qMMBunaF91 kqk0lJKvr9/7kgXUrA7Kn6Gi3uik1LObLETX1usmXKGiyNlgsn4TC/RaLo76 VSqi1dOnVXVZsKw+WeF1jQpOZ5ovq5OJSPqBbbQ0KkJW36JNNzOxbbqK6XKH Cpnph64huwg93p1zyojgJJLf5G1jZyZiti0Ene+hwtf+z35LXiaCHB54ek9Q ccFPa/8aHSaeXVndH+9FgzovKc56kIH5S3sK2tbT4LlrlxtziIE+ZnZuQREN jc4vFpvfMXBX7bh8/WMayrO+xwz+YiA7L1bnlSQdXi4jXNGXGLixvvShMj8d 5BWS0wv/MbBo9Cg9KoSO+n9NXRfKGeDyOW2Zm0jH4AWl1oPPGRCeljEr6adj SZlQ4sN8BmzX6qpUczNgeuyGlnsCA4deGilNmjDQZCmy8j8GA5e/JW8O0SC4 6bJsY7AYA2HbHd9++EeH6Ym7BZ01dAj4Tj9M76LjnchV+uVsYh6NslsUieet 3PZ1THYNHTcPX8oW/kPHvnf9+saBdPQd9rhmGMDAoF+9CdOSjhZR6x25Wxnw N5CorFehY/xEybOyswwwAt8/8fhOQ9qXtSs/E/NcU170Tqabhuf35d5OvP5/ PFk6Ip8GW7Pa2zn3GdDZVmn5dzsNc/899pIi4n90vgpH2tAQwVX5nP2IAXXj S8zz6jR8cT87ePz/36mxOaTnQeTheq/pdf+WMfFcavRlL3Guh24Pv3eQYMJs TC92Lp4KQw+5s9NLmfjZ4Xn0dxgVf3ue5eaxmSh1byh+40BFtUeaVzjR39bR eHv5pAs0l+XW7x9lIGZZy9aJry646c6SkxphQFn5Tc2Tzy7w2ZG+UpVY3yWa HdchgvcTi0lGA0oEd8rJNNOvusBsdcjmYAUGbr58UNcV4IKzP9t+7lJlQGZT aFsayQXS4TdGt1gz8CNz9ZzFbwo2l33wPxzKwJZtxXu1XlKwf5fdPrtGglt3 fPTjXKHgSdxaDcdnDKSQN4zuy6Zgo2jlEimCS9etvoWNHhTM8i3ViyTysEmu cS1djAL2xcfRG/oYGBj6e8BZiQJp2WL/OU0mGHFWdndlKci5mhT69iITuUcK isoHnFH8xyvk4FUmrl8LDZyqdUZM571+798EN7XetkGcMxQUN67VbSA4NMmk q4/mDKs1Ll9MupnIOkS5yqPsjCMqprEtxL3qOBvVvXQIGDswv/bMLSaOrO/6 cP3e//+HdlDiww0mzgoYXNtwA5idvDodR3CeN8vobhnhJ79PfRzr/chAvvOz 4uEwwLDNeaa5nwHJO18CPRyAzGm76yxhJhIs9z49KgkcFy45bmTGRFt9xpFj DU6wSr3f+28F8fyag8/vRTvhmIvCKW13JpZrbKGJKzpheXDY0gt2TLwfyVl4 1eoILSMRZmA0MZ7uk0ff6ohM3tDI7LVMHLyQ9vflTwcICxWnr6MSPmCT6PPx EQfMBTovJIUw8aiv+snyU4Q/D92lkvWBGO8eYL3H2AHfxYwl+N4R3Hn6kv2d u/bY5RIxPWjMwsJc9KOAYHtUBdXWHf9D5J9B6NLeCTuUth1YUqPOgvVN3485 6XagH5zp/v6eiZeSbMdxSTtU7PfJuzTGRJF457GpMVsca9lY6HGOCZb7SKnM D1tI+LD2PCLWP8KXRH652Q5B+lleilcYsCsxecJtbwee1vhW3z3E/cjWbRm5 a4uTPAeXDLsTdaG3Nmqpqy1if32NebCZgZf+Le/uD9nAT/Mqr40rA367E3Ij 99vgxc25x9zrGPANr3//b60N1JUzq5P5GTiS/7D/1j9rWId2SV/7TcfUoSj9 /Q+sEb1176fQejpuu/fRubdb43FxU6JVER1GjlazV22t0Xj86MdwK6LeZMUo euVbwfriixjvc3Sk3ngV8cvOCq9q7ElC5XSY/EnOia2zRKbYNqF4ZQZ4Rh9w kXdawt+qdLFpgo6nq0Kfq/RZQOrV+5gHBgwkDrKOTW+zgCcNsZ4yDFgf3O/y 9bU5/Hu765KlGYgvL7wcnm4OitoZpnULHWkhGzJd5c1R4HfJR2YHHSvbz9X0 pZnhUrCv9aMJGnqEe14Jt5vicrXT/rcHaLj0TXaZg6gpwqJOmF8n9I2k+evp tQUydB1f+Gp8oqIigMevOpQMl+Oi+ueW07DyxPL9JpZkpLjKbn9qRMP9m2qe pmvJeCRmNjRcR8QfhPKmuZHBu1nznJ8hHfwfffYf6SXjyBJO2K14wicff7bv MMMEsTOpDI+fdFRP+13YJGaKRO6+WTM5oj62/1a02msK3mj/c0XZRB2X+tqo MWoKOz21qXNfiPprc6Nr+KUpjN+VXCo2ZqJcZNSzJMYUXkaWL44S94db6emz g4smGP+e5iRNIurd5/spjAQTBPoOfz1JZmLo7chG2z9kVK76au3nygQnaRnX /hwydn2hsjKkmVA7MK/gY0TG8+P/yYrMMxD4+MvaJSeNUXrql9j16wwIBTlG NGca4Yb5Yd/vyQyEaFUf9a0xxKxCaR1XPAORppvvMiMNcNlJkTSSS/joWLm/ YdoGkH45Wb+bqP88/B6Wx4/rY3GBFLP6HwN5dsk7S97pwTFjn1N2NwMU7w+/ nG/qYqr1i54Boctz5uITu2d0YCkoEnx6gIFy93dnN89pY8764mV/wuf7ZOgf Lc3XxstKgx8RZxhIffFbm0tVC4fX7U2pusdAhZH4d06nJiRKBK4rJDLQbzjw bKBVA3fjJpwLdxD51JgszH6qjtbGD+tM//9/guM8P87EqCEt9NvWTeEMzMqY Z3+1VEP1stBPaiSi/m5Zfa1CQxWOlf8O6BLn1cQr3fj0nip2iO95f7uRjop3 gXsyUtWQMCMXNEzoqm3um33/5NRBmgwcG++jocCh14rdqgrP0aiCDx9oOJRB LtLcoIpdJFv5lOs0ZPJ3PWhZSsK/4/vqO5tp2Pgx4IRMkgram71m3JNoIF88 OJ9grYTnu7xeie6joWKELPXkmyIOprmWlhE8paFyzyv2mDwGI2/6mjjT0O5X esOlQQ5/2Q5i+0Ro6G/xv/h55wpU1jy5dIWLiP+bjbtVJ0vwBinK7hYVskad 6pHqMvgsmhfBrqIi6Davh9hWadSn5pCPHKTCYGf5p3viUhiS3vPx3Rqifbh5 yIIiCZ+f2f+C9KngWnL+YSVFAlyRBXklS6nYUOus+rRVAidmd5dsqXOBl4fy 9/VzYhh+1HZONp/Q2Qxjr9ZqSZRPnjdr8HHBlLvO5zV0GQiv//3qva4LisZu nt79nxwCDuoKmX+jIOXlYLdAlRxKHzKyREop6Pi7/7HcFVnID5fRn+6mgJ88 MPvvhTTIq77yP1tLQX5SxJBupzQ8twkvmyd0MfJcY9n8eknQp422PeKmoL+U MStcLYGrN+USut46I+p1PFelojiuxXhmTt5whkFfgt/7q2IQ859YfJjgDGZ4 Xam9ggicdn8fsQxyxlCaUL5QthhUpY99TtN2hrVeU3x5mTD4qctaHvM5o0gk WLuNXxDtu+brqj4DQxWDqgcteTFFDaj7cguQDU+/TqvkQxMr+MyGOGCjd/ys YRIXpp6tTXJbDYTssU/+eHcJHmjverRSDHih11L8PnveacfW9ffKWpzQ83fd +sVvS8AVUD4kBCeQgv97mX/2n5PJ0nuPcqocgQPmK3dvXXTKp844f2U4ouVv V+HUy1mnQYNIzuYOB0Rq61hFvFmCR8ln+LOOOCBGJZm3I2Ap5KvUuffbEm0H nhN5ZoK43msTm+nogMwAj3+K9SJgW2UMV6k44OPeT2qLl8SRc67p3P6/9vB6 Kf40r0gcs78umDm+sEeFVveHPooU7kcbakln24NpMUy+2iuNY4ZbXMsS7dHO s/6vq8MKLCrt8rwfao8evoGW97PSuJMeMix1yw5TAmYzHnzSyM92qDXVInTQ +PVx5m8JzK76R2KcsYXO6BcrG0jAm9/rvKCDLaKENO8rzYrB3PVlve51G8yu zH+opyCO7H+a57VoNsgzu6l11kUCF7KV4q2fWINk7nlXUkcCG1t1b+yLskZp 7psHkvFiKPw6lDv7xgpkDWqgj5cYXg1sj2iNtEKLtkYwuVYcSZuk9KN/W4L5 459wyXcJlD32sSsttMTQ4svgpkBJ/DLx4xQKW4K0XOXlm6NS6BK9yKdZZgHr Xiup0j4Z1MetenUi0gIhmN/GMJGF10HWvRoirrPxwaVuT3mkDyW2q+6xRKni tESplwK0lDOaDalWaBIJF1N7pwz9nV6dtSrWaPFuEx3bR0J8oFdVKLEeHSmm o/d1oh4ZhK3pNbRBc9RCXegbVQRQu97oB1uDfC9w2ewjIt6VwfXP3wofs8yk L4iqIs9APkN3qyV4bReZqw+T4OL57sjDCxYoHVE7WVyigpqjQXc5yy3AKb9x ZetNFXA9felkc9gc81J3rrvPKCP4n2EZ1cAc9tk9LTwXlGErFihTUGAG0uGp /8QilEHS3T/01MEMssqreyLPqmDt8tRji32mGHxTYpI9TYLR/kha3m1Cx6bb 1bl3qkLomU7wsJ8pOCccbM88IGHKuTlp86gJ1t8r7W9bT4KTO7IP7jXBFP+3 89yTyng5bfpBVN0Est8ODBgnKSNZ5Pw33SdkcDpMfBeghNIuiwsbvchgPi8q Wz2uBCVVWfOJUWPw/Bg9OUtRQfpI747+PGNUbbkY++y5ChweBsjTnxvBPKht 98VTytByuLdPqtAQ/CPrvRQbVIDbp1f1iBiCPhX87/UyVXh9LueEChiiad8K r8CTqih9urucnGIAy5cBOY0Vanjf6fSgqMYAkcnH7kz6qSPw4uFzzAwDxGyg /Bj+oQHrrXVyIy8MYPrWeMo4WRMOBTaqdv4GGL8fzTUUqgUXiMdHfNFHSMbd oouZhL5p94y+f6gHT9PWrdybtaB+P066SlaP4DFr0tMBTfhrkF2CqgndbPst YGunBe0Xoaf/6uhAIrxz27tVGghs743IqtOGufKmrtp8dajZudZUSGgjrn0q R4VbA99GTuWpy2khzWROOnyFBlomK1jP1mri/omJoOUFGpiSiXo0UKIBmddG D0uJ+c8NnH5qqaaBIfXzJ4comijgcbXQUFCHjqvWUs17mqC6R2manFYj9FSu 4egHLfAnGhas8VaD5dwdwZYWLVTcYatwsVWBW5Rg2l1tXD5n+CLnKwnc0efP a18m2m1HnHPNVNBnvCPp0iMdbGj59k/WQwX3ZcxYTYl66KhWyvj2lwRT8jKS zFoD9POfmWgl3sell/xGusgA00KnNYR7Vf+vX3/GxQxx1l3k8MQXEn73hpUK yhkiPzFsWOSLCkyKbIP/nDBETHadqJCQMuQuXb60od0QQ7LhqnvaFfFHwfX4 tL8hWrqesE3H5OC/7hdPU7kh4kanLemLspis/KqjstsITab1QR/XySLF67bN QooR5mVDf9oFyEDL2dTEdbUx4s6dnlQzksF02GethUfGSAsPyVa6IY0gK28+ FTUyfPZmXRmQkYJB4cycuQ0Zwjrh2p9cJSC/5XxKzAkySMpBi9Zc4hD8kZhX W0NGpKZp6SVtUex7bo6ojSa47F5tNnJmOdL/tUf1JplAbC9124suQTSSmuPv /CbuyZahe0OFQohWGz21y8UUPe0LRm/bl2PHaWmDzjJTNL2StzdxlkbYSI3F 2Z8En15fuLP2pBQm5Sep5YfMQFa5bL89TQpPfrSv8S41Q5HQxH73Jgm01PUa CU6bQafvVLQqUxw+T+mubkxzgmNzK6tWiCP/4H2rocvmSExmX7O0FEPSHIm6 7ZM52rtPSzk9EQU3d263pwhRB5OyQ2+0CmJTigdrrbcFWqRfqSZ4CeDli1Gh 3A4LFGVUqtf1CsCr99CIGI8lut/IvjuQxo/G1vdN7I2W4D/z6vseGV6E+qet icy0BNaOLNyp5cLS6C3rVktaETyWF/1h+bzTdAW3zz0PK4gtT7mxfvu0U5yj RukGbmvk9Q3JaYtwIY+yTmqOY40XPsFemty/nIKcLklrVFmDS/140wq+KSdR iaHkq23WGPd/5LlkzTLwu1cWuCdaIy2C88GqTwwVqxZ42vStkfPhTqPAQXFE 2LRGv75rjWq3zQmm4WIwPa4TOMSygdfEbsljS8Xw04vr4roOG2z8tO7G0lVi COxo/i2maAvz3IDlno1iEOapNGek2MK6wemZ9uvlWHfG79DtHlukBMickakV gsPsgLAU3Q7tjk59RU8EwLP773h2vR0S1bomxmOFoH/LuO2qhD3E4sYsTi4I Q3n/jOSApz1C9N9+OLhRCCK8/gbq9+3BddD7V+xrUbzs1zdYRnJA1SXRu+61 /KjeUOKeUeEAWZOKpvgbAuh/cCDiKK8jXuxPK6S85sPtlbyXFw44QjZ/ZVuk APG+EK4XMv2OcH929FsySwDneY5XneA4oSrz1IbPe0XwvjHsWoiDE3yWyvEF 1YgjaLtr4dFTjmAuDzznYSaD4xYPK7ZmOoC0t6ZvIFcWtR9IMb6E/64+H5J7 LEEeuyd/XDxQYI9uF5Py4C1K8FM0uzlyzAFB14scePoVsKp7gWdvtCPC3jXd Cy2Wx9L6m+OWKk6Y16frtR9VgNrrTWe2JjghM0h2qvCqAnZccS/v+uYE8jj9 7wtBJfycWvrjhgbgru+i8SxIEXZrFg1MNwKRv4XJ1q8VYV/30Tb+OFCx+1n0 vVYFfL/XyqxsBszdPj347K+ATQod2zd9A6xbr+14nyuH4v1tnJdSziDbqBmK bJLDD12BqrVOzhjd0Wmw4ZccTpypPrUpwhnuJv3D4UFyODtT5nU9l+DQOyU3 4txWYGJCgS+q3RlH5Fb0rvi+AnmDCyUy487wUmirjDWXISYm4tatQcEGuz8N 7zRXoPxgWMxPLwo2DsSZvFaVgfXNq8sajhDx/HO3smJWIPTWkaPnMik4suHG uE2APPKQHRVZQwH5mMuN2B8K0Pu8Qjn9DQUf5z6T/QKU0f6RO86LxwUVh57d adhIAifxg/JpZxfkq1PENj8n6rdswxKNShdAz/bjrmk1tBlV2Zj/cUFriraS VbI6mJxfyxe5qCimXuk1PKCK0NF3vk/bXcAvO/ya/EkF8znssd8FLris2v0l 8pkC/GkhD7qJ5/WkR5PKII+phxaF8t9cwLV1NGj+rDwmSH/p+apUFE2XbH1e LoduZtWaQ75UCP84dXZ9iCwKycl1SzOoGDL64KqxQhYH11eerHtKBdNzfHws Rw6WJuYWbeNU+EhXFV9jKCI5UaX7iQ4NRV47/vvUoozSI9Ijc4E0SP2cP5Sp p4KKz80rV1bSsMHgtF2hBcEVPDsOqj+lwSc+O25ZhDySNeV/SRC+rd+1TOt8 6QrcO0HfvL2bhss3FJMDWmWQ+CJ83RNhOuZVdzjfzZaBZXqdkpAdHUUq+qfV AmVw2S1b1m8vHaNjh8eokEbOolTqsUtEPD3bEBHSSC3UDk3tpiPvW3XyoRlp ZKbtoUpM01HvmVyed1wafV5bzNMcGJBtE7wXWS2F4ZmFbRIRDPBbPh6wfC2F 6GLZ+YJCBsJkj23MkJLBffmG2vtjDFB/S15wdJfGM5VVYb3LmKi4dVXNPWIF pCrmyvbpMcHZeuGnVK8sdtpsu5EVyISULbl0YUQO/Et3nKzXZCLE+EJ34x4l bOi8FenwjoGVre8tnZtImFORzvIVYkJRZeBBJUcV1ceO8O53YmJxlWzo36+q 0FxV/GpdPBM8VelDDyZU8catupjRyMS1W/bhSyPUMNDqsv3+GyYKOjs+1smo w9H72pYIURaMpmWFtpxVx+ANlyvp9izMvxPdrD6mjsKzScIqHBbOmhU9a5XS BJewR2GnDwtDhw97Nb/RJOrUGYW17iwEGZz9MaNH8I8wLPriWLD+avV8zl8b c8vGn1C7WBC6nv34ZqM2kicU+F9PsbD9St4X9i4dzJm9XUlexsbx9zsPWqfr gnqtWj1bno2c4avKM5J6KBpdb/R9mIUnEmWx2o76KKiRerJsNwvfhpPOjj7U x6NbTdbzcix0KK0USSIbQE22as+DPiYO3L9Fa9HURytV2X+yngmXG2qmjokG OPS6+sNUAxOi34OVxSWNEHZJNvnHLib+u7yF/WLAELK0A9/GfzBwriAh2r7D EHtz7ivNPGdgbWi8x+iEEQrOrIoaIc4vb/agcwaJjKIjRwTKQpmorYw5kdlC Rm/IxLXPrUyMmdvv9BwgIyavViR3kgmD7lcP3lJMUHIxKvykIwsv9JfyF2mb IKjhwq6UTSxUDcTT7CNMoH4gzu1JOAuUTNma6UYT5EioPx55ycK4iLXnmhgT 2DaRf+xYwUZHmkjcnUQTwo/v9otRZcNDbP6fUr8J/KWc61KC2Jgey0z+8tME vc/n6Qfy2MjkDexKJpsi6e/UzuILbBi923mQfc4UOX+ylQyi2Mj7/MJjibUZ lsrMPTuVyUZ69I69iglm2Da+sCRCnA0D3igDWSFzKFqmifLKsdF8R/v63Blz 7GAG/U1QZ+MseawqS8kCUp5t86W+bGhQ1Hj36Frgz+ErNZLFbKwWSFqqwLHA NpXQnZ0tbGzcdyNRMsMCZtKdErJv2Kjw3nLI570FapvvnH6u7IpPCRFyXdUW iL0h52lv7IqCn+zBNC5LrPxREaq8wRVPCw1Z6+yI9tmVNho+rvi65IaYw0VL 5M4qC3pud4WpBGWZ+1tLuPc8mNK964prIik/9vFZ4dLdui/mg664a/X1WKOU FYxfsnQbDTlYw+srtoVsBSFDkldHFAcxPy4pmay0AkfaYG4Di4OiP7f0it9Z QU3/z7XQCxwc3ZNvZKhpjX+nE3pNijj4mVbaczvNGqF899eRMjm4QLXcnddj DeuMuZfzFRycDjLcarTdBq9zc2/37+NA1CZ62dV+G5yoMfsXvo4DRYk0Swsb W/yMGfL8NeqKbPUMo+5cW2jM2wupVbsC75+G9HTaov6JJz3OzxVL3q8vmhex w4Yv29fNKLjCkE3Fo8N2cN8savu4gw2OvrTF7LwdGrtLat2OsdGrNqA/f82e uE9p/8Tj2PBmS5prH3HAucLCfJdYNr6Pb/Iq3OGIYL1AT85TNm6qRC+v3OSI EsUNw7IbXfFR/XpFgYgj1F6ci52+4orYm9/vPkpygEDsYka3EAe69TFGr+bs cSu1+NAKfw6uJMd1uKg4YPGxYvgbTw4etZ+Q2XTeAdVfOu+ZFXMgrKFVJDfv gIKPXaO3r3LgNPI63vK4I6KijcaUgziwd018dHzWEeRp7rZHchzwTk2Ffcx0 grn28vTnBhzwf+RbqjPphIW2B4o6yRyIize+FOEFGh/obE9+zsG6NH8eV0I+ 90sL+l14TLxP52ZsBwsY4CxO3JJzA19KwYVNEYCi2rr+/bZuqGOvF7AqBnjU 9i1qmbthqeXSD3rPgJobqpMnfdwQuO1+Ui23M560jfzMjXbDpS87dG0snXFV 2nsfhe2GdtK+oUdhzmi2eMe0sHdD3mtjC/ZJZxSGaZzhMXZDg+XkrMJDZ/j7 HSwLsHAD65ikifqEM7JnaqXE3N2wzf+2RrkxBaRq76CCDW6I3VK/+V4IBcWN 2wf1Vd0gcFazXOc0BcyZqx+7ud2wJD/Tm/KYgk/Orf3N8m4QSrudWSHogqsH rFeH3OXgs/Hhe5MEV8xPPeIZkeIgeo29mXIXBfMXf3aILRL367HrqzvcLrgl tff0ireu6HNfljCjQ/TXrlM0vOMK/cKGYn1XFxg3BGyxeO2KotPZxh9PucA6 9sf6l12uSPPurnF45oI7gmUXi7+6woj27GiSNBW5v+RfUXpccT2p7EYmg4qd qZnc3J9cwZht0xM8TUV6aaKUQpUr6pZez0ltouKZb0/WshBX8AkGTaa+oBKc za6lebtCO7HA48oEFWrWVhu1/Yl8y9DqMHGhYY5KF3uk7wq1RzpTZv40jFNF vl0eYiNYQX7o034aRmpWvfhUwcZm0brm5sM0OHRUWfQmsRH04tORqlIaPp/k snxry0bP0cn0+wdosA3iKTKWJuqlecn3bwSnXLbhM+scYcHz4/KGsGEqSnMm Xf7/PfPI+GUNLo0E54w+bF22kdBDbZbk3U4qtpUcKhwwYOG/x1uqVxIcNPRU q7PvFxNdE6wQmRYqFot6Pg3fZSJV9PlDryGi/yRtX9NBJsZTP5ddmKIi0TCf q8iLiTLqndFtSjSs2W5J2WHHhLi0HtvfngZHD8cVm02ZIL8+l34hmYZIjROX zOSY2MH6LDdTQYP8ssUHqcuZODue4qfTTwP/NT8fJ0KfDOpJY+pGdKxcq+Vb 3sPA3Fg9udCMDvOTu+ecZv//3Z1JHl6Ci+TftF5JJ+ItjfsWc4voOCVc8qSc iF8qHBTkHaMjNS7eauQZ0e7aPjImywA99mZvcjMDW9tlGWfXMeBNljvlnM7A 9HEb3sD9DGykyEzzeBG/cQkFi94MWI+rp46M0xG2YZmOLx8DWw4q1rx5TEew m4BYEomBjqfadWXH6CjP+FPmYMKAslOa8wzRXlBZv/X3TgYWH/pOvY6kY0/m f1aHShlIE3k2eNuTjimNCyNzdxkwZu2PeCxHB+Xo4IFbxDwtbDZ01YnSoSe6 39NehIk4senrB17ScMD7y+d9YkzYLrswNplPnPNqt1U/uJgobRuQPx1Gw5PU DHEFKSZaX2RFBHjQsLKuSyDfnInMKdKJSTUaJP7wv5xxY+KLaUTXwX4qLk8p l71hMvEqd6WWbSkVu3quOY4SHEamu80/z6RC64WGQTvBYXuVGgZ9A4j+zYd/ pUYzMXNV5qmp7P/zRFAwzoAJp/ajovmzLnDVE9Stc2Fi4/n4O/wjLjhldqc/ X4CJqc76uxa/XDB+e9O3+rUM1DVNGIV8dYFZ3pJvg9rE+ouUsvfluaC2hW+6 kYgHyl4uFFlN3NuxltfbNjKgf/xcvL2qCzYkfwhTO8lA0M0LoRenKIiT5Ne5 WcmAS+9kM99zwr+Q+E1//2HAze6bwcsGCppYx1ImbZngtlGUSNhDwaPTuYu2 Vkx8P8hzar8VBQ0dp8dbJZh4933yfassBW0BW2BC5O2sqPxBjgUFl7P+3GOe Y6L7t/i6FUIUeIY88TUbZuJhVUSr0Adn2F3xiTObYmIP70FuxllnSLz9cLJH g4V6q+vsfUQddYzptq+WZOGpUOK3IqLO9jnW7xo2YuECa4a6/R+wkrXwpPAv EwHRorKj7UBIncjaVT+ZMJk5WGdUCWj0WQ1//cKELsnm+I56IMhJKdtPh3h/ uWHkjTTgoXmjc4ECE4ce92p98SV0w6gn7qUhE/43T3lRDAEDm9fvLwYwMf0p 4FhnjxOqz3xuOU3sh3lWYcvfi05Iq6Gt/HaUicjTGaU6ToS/1d+mFRZL5JdW 8tVOQre8rbN+VF5nYmShNKE8xRFnP5j3P7vChO+vnmIDOUeMmphprEhmwook 3PztjQMiaaWxx4j9ouVKBpYQbbHgjybVn5gY9D5+yNWNiLv+1igi9uNxjZV0 PpcDVO6q8RyyY+FOgIjC6gh7RPuJqXHWsNC4tr02UcYezD+cOqEIFj7DrdQz 1w77WfM/HiqwcErg5N85Izv8jaYIHbZgIUx18L7obVt8FihTmhFggXsF58nM KVs8VX729NMZJv7sa3/jamaHmxKVu0NHGLD9MP1t5XY7GCj0OTjdYyCgkzYs NGwL/lVr7107wkBq0ONKmwhb5B6OzRotZmC72To3nT82qO0SdBU5y8D3mrwZ lRM2iPSVr6fkMyAfLWSkYG2DKmPXLRK7GTgot9YhdYkNXAL7Mj+wGJgIEX9T WGON/65+15eUYSAi8IHJq0hryP9Ofr3pBx2lDmL0GmNr7CBLZaxLp2P9f6zb 46+s4P9dqPoLUUdOP7cg33O0gok9dfDeAB2MRzuy7v+wxKIC/4eVqkRdbM54 fXGbJTwlXC7LEPUsQWHxNLeYJe416Kn/W8+A2lvLgZIDFsgLK73Qs4UByeub dz/gs0C/Rw16wQDZsnFXRKw59rXlh63RYqDaa8fhs3Lm2JqX+HpVBx1HXyBa 9K0Z4mRq19Zb0EHSeTxHXjTFpPup6QOdNBgu9Y+ZoppCuTm5U2AlDZNWLUe5 N5tgy40H7ZxBKlbFw73EjYxBanQfh9CPdxeq0g4VGMOS5R7KZUqD0sLjed2X xnAbObFe+BANu7iCX6q0GIOXy79uz3I6wq+WS7aADPujVmUlCXQ0Jmwq6HpA hjKXkK7bJzog2VfZGW6CybWv2+8QPnee0+B4Zokp+Pl71eZOMKC1vGPcu9AU 6qS59oUJBpqyDqu9fWqKA45yx/hXMyGjrpNXn2eKp2LRsXObmcj+qCmWqGUK 6rdImu8WJi7Eriv/r8AE9plVmzR2E/WxnfZvVs4EgQ155ZwsJrzn6ZGJWWS0 5g0Of93LRP0ajcub9Yj2JQrdewMTwcOnAiOuGmM7v4mw3G8G9i+fL3h7xgjj pUJllp8YkGkZT0o8bYiVtzpkMp4wUNHwrnm4wACDGjFsUgcDO5zkHI6e1Yej SYBN/TiD4Oy2up9R+miU68xgEPUqV6D1/sECPYhdrsxosGai/O+/redu6mLF juKAdmfCt19dZG8v1sEv332JQSxifvvLb9lPa+PL0RN8n7SYcFdPZgoOaiE9 4clSV8KXd6sLvPX31MLNuvTKPVNEPm0Mdi38q4ERyQN6H4n9Ezs/uMV3kwaq Bd76HnjEQHHWMoe+zeoIrqqmFF5lgFPm1mdjpYZX3seXk28wkHd1T0bdZVUE bTq8lxzCwC7zL82ZKSQY/XGp9wxmgOq97vBDXxIiQ/wTPeUZuHw1Vl6Ho4pV KZH3e2/SYfTh0WZnZ3XcOGdU7ilOB73w4anMb6oQ5LPMKhWgI8EgjxJ8jQTZ 0atir6dpcN/nNfIwRgXzLg95x37TMJrjFNLxQAk+lPUXPrylIWQy6QTnsSJK 4ivWHLxJw/wHy7LELnmwjeLD7uXQIFx1K0YxSQ5JGzfX9ScS4weTdj6RkUVW eGxrvTcNOkFfGWGlMgjoW7su14aGV85e9ZRIafxbZZGkKUJDjJ/8LbK5NDqk rvR6DVARNuAX6pwqCWGr7OcbCJ6qV/OUXZMuAfPTR/oPZ1MJ/3y71UZFHMHH bitkbiV4SjkzuNRdDPJCT99O2VDRtKO+6vRtcey1MUkv+eQCnXFvuy8jojDp d+7+//fRIk+N8Pz3RhSP4pgmb7NcELdo/K+2RgKC5ICQkTUu0NCm32o+KYuN bc2KYtIuSKsb5Y/bKgvW7iwLjbcUTJ37XL78uwyozoqkfVcpiNqvonimUhp1 m+oKlx2ioP2g/7Mccynw+N0M3kmhgGqh7Vf2QAI+huoNy/UoyNzXvKP6uhiC PwSdauGngCvcf39StyiYiiv5Ng84Y4hf0C1ipwh8QsVtF646w9otuSFQRRBh 6jmiCoS/SFQhP77RIIDA70au8uudESmsqXQ3VxCkj+qmF4yc4V7EGCv9zIv9 1sJ6kbzO6PY5c4CnkBs+eYXnc74CiS8Nnp8fW4KOBx6N3qVAZLahdONKLnzc IFH6JgEQY94JpUfMONF5vn+dswHGv8vtCy6ecso+udRXlPBbLanzpvqhf52m PGb/qw4jdPBR7mR99pzTr5fu18yWOoFU+d/bPWFTTq/oQ4W1iY7YyHPC6ozL hNOS2e0VF3gdkXn2eO278F9OdLWDrf2HHPCi9HfRn50LTtQglV9rTR1wuVfK Y/EqN8pqW5NVTRyQFxn+fYZYT/FvUfFL6g6okjlA3holjPB9jZti/tkjseOS 8e9lopAUyjdkvLGHeaedSc1eMcis/X0rId8eG+21Qz1iJLAzMODK22P28JKv s4m+IwOG0uLN31fs0XNE5+69BRl0KFjWWHTYQ2dlDutLshTW8z5qUdhlD5+W pO0X10nB9F75KgE+exwpWXLS7ZskXM/6JQefs0OIU0j0TwEphMc0HFm22Q78 d6wXXdrEIXVCcD1d0g6cNdvfX+kWw5tdiU/+vrRFdafowKSdGLqWkbQyj9mi fdz5to+hOBRdjjx/E2qLkLMnPLQmhDGalaoXqGmLTNOtHm7fRRDzde+OK0M2 iDk8Fi4sKIT5Jt/k+TxCV4W8bZ5uWo5aK923UuE2eOEu6WIkLwRGzkrL62o2 2HjSv8i9VxSlfkvX5/2wRgzlv6liw+U4NMNT0V1ujZRHcewP78UwvpsumJxp DZ0V9XrB7cuRyibIytYaTJ5HXAbrRfBHW0BIYNEKVSoXaToQgteFP4Pbblqh ftVhboEZEfTZvzb0z7GCz5HY96seCkBUT3bsuYUVIis5Ifaxy/EjQ+jKsLQV QiZqGGJLRZHzKXj3t1pL5BV5j8vdE0Nca3t7Sp0lrO/XHTsyKAq7t0dilNdb gv9ihu3xLDHc4ahUSKtYol6SJl10fzmG3q4WHmizAO6LPEyuloCmS7z98jsW ML+ko3DEWRynb8Ztv+ZmgaCjBdOsE5LoiEjI2ehggYcWT5irt0tiXPV2zpi4 BYrkZl9abJfBJoVAtUCWBXK2CIQuk5HGdH1R0GFifIj6TNlimwx6NAfflbdb gB85Y8PZK1BjqvszhGyJF0dfuSQoyOGSycqez82WiHE4Q6lMl0VdjeOv99pW wJb1EkGH5LHqrnBJ6mUrtOAav1uPAl4s1Ax+0bRG5PH+nRnjyuB7tnBVOdEa 7cMVniuzlcHkW3fOnIfgpEo9B1N/EjZHlba3uNtgdmCL93+1JASO1328cNwG 6+XyVnyKV0X3Ca5rWeI2IBkyPim8J6Fg3RbZL9nWsO4x+K9dShUUq+wr4dNW 6Gn/V5ZaT4LUup9TSwKs8FNXUL/wLQluaqYmux5bYog8Y1JyUwV7A7nj/Bwt QVrYJXI5XwWPm0vcTN9bQFbwt4+6vQqumimdJh+xgL3UKdf5fmXk7Xw2nGJj gSnlld995hTxYkta0eN+c0Td8nui80MJpkPPP8xeMcdlhkZcGZRQsPV6/J3N 5uA5x9/baK4MmprJg2q6OeZDWn+OjCsAOyU5Q+MER7Ei9SVnFODmq+xDvWmG on7nT2axCtiYKB25PcIM5LuiH/+2KSE4Wz42eLMZYnj5p4V2K+D3e2nS+hlT yFZzvoWlKmJX5PJnkd2mmNf+z/SasyKCiqcqlfJNoTEpnmH9RAX1JDFxlzum aOr8+7R2nwomKH2HAo6ZErzasy7wNAnNPEdk90aZIue9iFHFORK4yjjefyyI 519bkqyyn4TgRRXXLXymKBW88ntXpzI63phmFdcQHCRVdyfSUAWzzds3nYk1 wcdVx/jflCijgocUO7zWBDHCJN+HPMq4z12jDbIJUc+4rhoMKGBXyhcr2zky 6nVHYu8cUQRV5RP95DsyULzRbZOuIo6k2z+vvkxGlPbQnqvvFKG1buX8iTgy vI6f2btuXA6fXulvzBcmw+c85dlCnjz+jgXUOTUYw+BhzSPRbfJo2ubeGs4w Rr/iIsQ7FRFVMXCNvdsY+Qm7s77uV4TMnWyd6T9G8Mk+Pfr0sBJ297Qt8642 wmjA8Y0K9YookMrlVl1qhBfdz5W15ZVQ6GJnqnfOEEV+0w8FzyvgCt97mYJW AxyJsl5N8VdC5viqn6tvGGB+TrcsOVgJfatOxcc6GMAgx/pJ4WEVXNnYvcA4 YwDFb3Zp62VUsMos4ZGioAFydy6JGnQnYRtrwaCI2wAaPxvo8UdJYB/dXXyo TB9Hmm/nk2pUESv7PkLbyAArQyR2XudXg760UtQNKQN4PUK2sIsa/LyZUlIz +mh+7f+P65Iajgsrb6F06WNj+AqHujXqkEwXL7FRNoBs2BPJgSl13P/487Wn ngHSww86txVoQHd/B4ocDZBfWZoisVMDqVl374he1gdhTMr3NGjiK+vem7EJ fUx9HXm+OVcTn3+0TdRS9JHpveaK5SdN8PU3hex+q4fUmIjwrEhNFBxbE1gs pIeHDZtrD5ppwamv4YWMvR74GTF/OgU1YWwdbVNpr4ukV95irFkNMDo9Pmx6 qIPZdvuxZ6818K/rLNlORgeJGi88Re5qQunn6EfVJ9rgtNGbHB01wfVw/Jq5 gzbmZA19ly7VAFdRvl+lgTYuDzgXlrSrgf/BB7k2EW3kLvqKOoirY8j97v2v ZG0IJzXHjcypYmVsQ9BfWy2kbBrLuTukBqGhkj1ixlrwCWLTW3PUkJejcfeE lyaqtiIpd6868qLCLa12aIJSU3JN46QaqBnGMgsrNWDKdhA54KeOz4PudvJ+ GuCnN4Su8VDHZH0g38VOdWykn9sjStGAPz3ujpugBn4KPk2VaVFHaS7fSUN9 dZB8a8XfOWlgsV5yKG5eDZ9ZouYDg+o4u6Hw8M9pVUymmpSSeDVh4Jn8VnO7 GuKKRP9blagBPUfpob5IVfi/qu5a00qcx3kp/fJhVdQ/kej+SpxXTBHtvj+N GF+Yr53G0UKY0o8PUutV4bMm1UVlryaYvW3iRaMq4LVUEm2J0kLqpbPbZVeR UB/VnRf3nug/s07BuV4F3dEeyxv6tTB7wF87r0gZlyTSBzoitBBXzG01uEYR 42PPVh3O0AYT9OJPFCU0bcngkh0lziF8W4vPU0Wkjln2D3zSQWTxbO7jOmVs a10bFH9XFx83+eyc+KGCqr9Mfb11etigsr/w1AcSRj9XL+u5qI+i+k1doepq UFSy6V293AD345/+SCHOzWDXP6v2Fn0EB9omZY6T4Jgkyh241QA/u/ZWXfpI AlPE/uTVzQbwrr74XMeWBMmg48oPrxB5vdEkKOWDCkxlkwqGrAxgXe6qtOyz EmRvX5i8xSHiWtObBEYVYR70uW5llAGkeqaprV8UsCHP9vdpG0Oibr8IXx+t CDEb3/yJTAMUWd8QowjL435s//NXRw3wauFEnxpVDhue7xax0SbufRf549rY FeCxGXrT62SIno8aykUScqAfNylacoK45yUNMSmOMsS6VA2y/xrg4aFOWaqL DPrWKT9tSDWEhpG5fO5GGcw3C5Qv5zZCjvtifCVHBkb+GpFOyYbwEj1S5pYv CV1x4UMvtxtBbK8SYr9LYYXOwHZHuhEqJooKDrIksdKyup9XxRheZ5xb9zdI 4fD6zddz+4xgTZLjSm+SQLykin5ctDHaJYLKPZwksUbD+1BrgjE2ll1+vWm3 OOL+WFftWTDG6KNPumpLJfBHLtVBOsYYMa/nVW43iWD3H8W2n8vIEJvY0tDh IorpAcaCSwgZ1vplb546LcfPBC/PlFSi3RNjb2QgilPMCuunO8ngstNV/baF H9H2FaNt7WRU0U+ayi0KgN1c3HLkBxn80YLKj9bwI1dsidcbY0I3DBsWdr/j x/qZ2552a0zQzn9GyfMXD3x/GPDxdphAtj7o1IO7Asjuu6P08ZEJ4Sv+JnlF LUOrg0TTBW7C/+sOx92JEICu77v4146myPtkQPLlCGGb5A/XtDWETqaXfj7S KYY/6mo/LhNxflXHm/vEJZExcc/bIsEUnMHSM+ekpKB5ZdOTJ7Wm0MmxVut4 LYEedYkq0jIzeIU/2n+gRQLbC9p4c9XN0D1ql6UcIo4sQ2fx5GAzfFx9TM/u mzg6BKb4jTaZgb+/vG/txHLonYnewnfDDPYz3FK3PMXAz3a3bTtrhstrh4ZJ J4RxbwP14cEV5ih9/IJb5KIYkiS7cuMWifGjP/Ya/xUCR2q8y9uI4I6gSJnV q4QwyK/9q4/gDHCPdC2cEUBH6de7GcXmmPUz07Q2FQFtKp5/yxlzuLedHk5L 4Mel7do+u1+ZI4bFf6lfXhDRLT3H3tWbI/E438DJl0sxzj3WriZggaEBy7nE I7w4e9ri9W5pCzCZVx5+alwKrVh9iuRmglNvXitKeMGDj9Myk+IJFsib5n5z c5obPKtXdAl2WiDxWeH1/7F03vFcve8fl6xk77333vPN+2W8F29llI9EyGwY paGSVIqKqISsJJVKklHKSJEQJdFQRiijCMlK9Tvfx+Pnv+txnfs+97nPdV+v 1/NRjvfmnAhfq3pxgfC1aZLxp2c/s4CLEjips0LkxQJ0H/xbhf2keIN7JDNE OWeeG/nOAs8Z39TDfmbwNwsc7WD8Izc/OSCYHEn4ttze9E/kebLfzZkgvttm aMj7EBqa95N8QyWOcfYjcb3Go58PBibIiodr8rermCOtNcq5UnuOHPrPd/6M EeFTtw7M2zH7yEVcMxzup4j4RaxLiewkWeKFH/8FwkdOr5OKcwuaIycdHNBM 0rOAq9SuorToOXKKupf3SUcLsNTrRCnzviHv/+HkfSqdiH1/De7L/0zOqLyn 9qrcAvFJ/NY307vJCcyhycBuCyic1Niw+vZPctmR5Hn6DwtM60b4GHP/I/8d FSwueGqBMK3wmwpJa6Bm+vzOe18LYJxjcHMFL6SnXWYChS1gcOil4G0Joj7u 6w169pvDgNT7psaSDw5Hxfu0YYGGHSRHU4J71m84IDmWRfjuTRYqx6q5Ifc1 fcMPMcJnh7ob3GXlw7ZKOepFBsFZ3St3mmLXIlJ9x+0Npy3h2qUZfFuaF5Zq +3ranhA+/EJo04QlN8qu3h06OWsJjdPXDdMCeVFZs/CqluC2ag3dwi+q/NDZ f6o8ZrMVPvH+qKeJCsBzjeSF25et0Pncij81lA/Por9ntVdaISrieIRd+hrY b9c1meoguC/h8PKSKgeYP3efeixmjUFWy3Ofk7kg/nFxc5edNSzmmx8VzKzG Jh453cKD1vDSUbg5ZsOBlBOhj3fUWSOKEl0q18OBFgMdrtBJa0wv7twWV8qF x9Jm1welSSjo31gjZcyJ9eMc/+hkEop5l/dwHOWCfcYh5+1+RH7b2XcdrWzo a5DvSjtDcPCp6SOF29dAlIfzkvs7grud7q9nLK1BM+/vNU6cNrBYzSCf0uHA oe07JdxUbMDyRt5risEKd+77i7+jbOBFruSWWr8aH3hDf9k02WCseXbpeiQr glNj43TGbVBw9UPNvC872LbfTonXssV0TmrWgDQrvmgtu/r42CLKvifCfhcn asnz/Bsu28LiWZZQpxYn3K9Odj7pskWWu5docg0HRnP4bdhFySjbUZapsJUD llJcWSQfMsZuKVIG93BhTWiSgHQaGWlRtZ3uMsTzj0Uw7I+TwbXxwZarVrww cK/2djhLxqLb6NkvVfwIbLhy3c6QDB++38NVIsI4k81Y0Lpji2oj412qJSLQ XC+XqiFnC5mabKs/3GJ4Z3c1d2W/DZjadZ8jlcXAaLD53b1IQjWH0K/SP+LY ZJ51/VoUCQb73t37eVcC3w3ZOy2cSBARiB1jJErjxu22wB5tEki6HzMtRAnf 3CbT9qGRBOY6qY4uAxnIG/9o6thsg9gM3/4XfyTBaqgwfUXEFl7+yu/UPAi9 PX9hHW+aLdLVNk/za0ng3JpYmt2YLWKtObvSJySQ9VeQxdSIDJ0NehuO9Uui wZl1ScyPjMrEhNPqtlIocdjktC2LjBX2tM5HZZJQO7pNebaejJb4PweG4qWQ esh6Of4bGVmxVgt3AqXhXKke3rsWSP82GPrMXgYhfuSPO/QBiYGLPQmHCe54 8euXJwNYWbfHu39SEq1rnkynbgEKkkrS6EbSGM5XvKEVA4y4Xf26SUIaVd2S U9IZwLTlmcIZbUmsVnBrDy0GiiP+VMeek4Ko552HXx8TMfcuyhMvSWS9kVvj 1AX4pEiS6OcksWt4nd7mn0RMjxjijBJDkOEL1QkWO9CrhGjrTooTPi6dy07E DtMBkV6sn8RAJrE/ytS3Q9qc0aoiYwnE/Y2mWtLtwMKi8+3wdnG8rotx5dhp hxWu0tbPhRIIez57OD7aDlFhjxrsi8ShcevyVc3DdqgNO3RT1kwMwhu7lDoz 7TD2c9i45oYIDPlnzjnUEvNFaw7srhTFmyNnvpF67ZCrnpGYtksEf+9MbpYc ssMgZ+rOsI2iqAjvuCy52h4Nl7/sqnouhGRHxfOs4vbY898brgCqCDImSs7k WtijRL0w9J6ZCN7V8rMV0e1RZvBfxF5DUWyS0ba0jbaHwnGe/ff6hNDzT8Wn 94Q9RiTnrXMqRdAhIOP64Ko9WAK/Z1P7RHA7c78fa449ogJVnDJUxEH+ylnp Vm2PmPyNh78R/iwjTz9uVb09ViwyC+a4JZH72mP/vsf20CHtuuW5VQoVgy/u xrwk4r0KoR9XpFFtdb2yctYebE9I24+YySCx48B9SSLW+BnqF1EsB5+DdxI1 xR3A5El6u3mNPDLUW6X+03aAVet+tUo3BWRuNqH8cXWAWkEKn7+qIp4M9v8n f84BZfGjgcG/FBEz3XGyd8ABW5S1O3yOK0Fw6vq9TE5HzNZkBTzOUYbk3Xx/ WVtHUGUzg2v6lWBlJ2AqaeEIEcF+oYDvirhpfffccXNHFO82KXyapYDgqT8C 2+ccoHfC/IsaQwEt++53lhLzm1Q3rnG5LQtnKa5Xb586oDvl2vXqtdLIDquu Kkl0AMnvdV7ZBiksb+s8dTPPAQZZ0mNuvyVw95eFXXYVsd7cnu99D8RRuiVP 9M9LB0QdOWpy8JcE3N7evpQ/5YCSG48L5Nsk4GuncnGC1xEFF7+UrS6WwDvf 8R+6lsR6d66OVU0WA9+6Kp8EkiN2Ft7rNXkkCTZz8VPGUY7w/7rtobO9KH7/ FbBUOuoImbWz6hKaYiiJfdATnOOIGN+joyppolh5tkbr82NHpEWQyv70iUHn 8ycN10lH+EhE/qxyE8M8SweLzowjanNLpOW/SsBmKsyeYzUFg9r/Jj5BCvwt WflT3BTEzhse/0Hwi1/JZZ9vTCJfFNl30FgGNftTcs95UrBh0t96o7AcJJ6d kCZfoGBE62bfHzFZ/OK/5BRVSYGOoLd1ToAsHKq01lcPUyATuvbYBLs0+nXc 9W99I+bvlD9/aLsUBqaF+Lq+E9er3w0ZWRZHX/D1oIkKCti0Wzq8n4shrtHT 072HgijN54NvPAi/Kcpsf0XEDezTiYXpomgSVow8t0jB2IW6EE8BYRyfCeZM nafAMURG4zy7CFzdLaduC1OxMj6TJN8vjJBBCe2zJlTEfnJOaeEUheipgv/O raeioE1Use+wMNIvtt2p9qXivWVCr7esCNr0Qjgz84nx/J0phx8KImbXL+/z BVTsSU64/DNPGLdYf51qKqeCR2qT+hNRYWQE5Glf/ETFdFn8T9N9wij7GLc8 Pk4FW0X4xytpwvjM3q40ykLDnvc9kXrE+W4/vfl1vj4NYee5Ft8NCGJZv7Dt jRUNQXGKC5ynhSC1qsJvwZOGtLyXK+5SQnj7reihazgNTTKrttplCMPM9863 pWs0jMTil0mhINBLOZN5mYbOG7NsbovCuN/hVRXYR0PCGenL50eFcFONyng7 SEPMaFQ9z2kRgssMH7GY0tGutPG/cwwhvHlw5/clBTr8r3Z06x0WgePdVPPb FnQIfOeRLIQoOmOVbkQz6NjAFuNVQvDZ2hcXf/jso6PozOE1b+3F0HhyZpP1 XjrGhHYXb5Ii9Cdsn3tDBZE/X5qWEyCO9xf99j45TgeL1MiLht+SOCynOfwi kI7qiq6TM0+k0eWz3iqGjw6dpdPrrBhyUFr7JucxJx0yrkXp41nykJmgBb4T o2NwTllu1EMBNUnbuXetp2POxc/urpoC9POW/bxc6bAlrbuxPKYAMdbeweBD dNTHPCi4v0oRGm+UCtck0LGnXd94aZsiQo2ZEi+r6Tiv4/1LkFcRTC2/3Ykf iP2I7v6qb6qIhvYU1pQ1DHir8V7ZpaYI9m/scgk9dCgE1Zyyy1WCkcgdzSQl BqxktjZc4VBCcaHVU+8F4nn1K/keQBlyr66INfsz0Fw8lFp8RAlt0SwDMVQG bh33CZR3VQbP3kSmWCYhmLkPpk92KiFCWdz1ygUGXPv7TAYvKmM53uR96i0G uopV33d8UUaKdNnslj0M/O1sDN7Hp4pLdlHDNmUMnOd3ixx/o4LFpRBd7oMM hLDYRTssqmIqX9FcqYSBMc9ouyl1NTTIBhRtSWbAXr/oUHifGna/XFBXHmDA T/L7wfsH1HDMQFX9wBAD7X5mVp6c6shXdLpeb+KEO8/+Hp3qUoP0XO3RNnEn WJ+NTv99Xx0l3nYp7RQn+PMqPeT4qo7KmR1aiw5OyLQRZt17WgMxOkM32gOd kPfd3zL1uwbC/np8uyfjBO74FodznzTRpsjZrbTDCfFjPJ5aHzVRLK5gk+Dq hKc3V3H6/KeFfXVlnpPqTki49r04gqqNybe7PrR/ZuDZ14hP7ZnaSLj93uv8 JQYmGT+SXiRrY0JpAiNMBgQkuI58cNDB5CE56XIHBh5sVJA036WDsqcHA/3t GBgvjVwfsqQFm6JVc+3iDISyeVNMQrQQmXxtiNpEh2fSqSs7VLVhwLh7eOkd HcLPKC1NDB1obHht6zFFR4pRjgJTXBfTMcr9t3gYeHpy3PNtli6iXi1OHHlN 1OvkW6ExCz2w16rp/yXqnye75jLdShfx9+5RS52IejevPeujrYuOYTen6L80 JGs8ZTZ/1wGt8Wrz+xc03Gqt6dfy1gVLauS3x0T8+VDRwjdWPVRvzG4o5Kfj 3IPEvZPS+uAwOBym70nHv7/S+88+0gfL5u0Wv9zooLd6hM/uMkA+aVwh9Sxx HhI4ZOTzDBCSMzuj10ic59wKw/gbBtCwLXPI4GVgmb8gSu2EAaE7tcrW7Awk q3x+HdZvANm03QYmOgxMnT8iaK1giMvPF066ajAg8qnv1BZRQ7S8/Tk1eIYB T/szgp33DdBe1eplfowBn2gzsV/LBvi8h7o16SYDP5nHpSJZDBHT4TsuRtRf FuNvkcUuQ3hyOD2LJd7fys1DzbsyDWF/KF34A1HPzqMLu/3SDNG7kLg8pOKE 1wN+q2uJ8QYLhU/s9Jww/vaJ5HZ1QzRstH/RsM0JBou9TE4+Q1QfSnUS9nBC WA0jbDTYEFL5nvO1G5wwFx6ZWptuiHpn+uCcrxMEfA99XtVgiPYCxRSJJ05w LFTSOnvMEI/nZK8IP3BCTcr3A169RH71bJ5rnxM+eYbZGowaQu1h6MaRN05o k8q+MGxqBDF3swqwOCP/ZdngDjcj6Fo+YIlqdIK3VeUqzsdGyC4yXyx564QP Ol0KdxeN0Bf05tjm90748+5DUbKmMfpRq3u71wm2u7luvgswhp3e1Qvz250g 15VLSyw3RvgDqUtNNk7Quvfo7Ikvxqi/H6nGqe2Ev494b14hm2DPaWFtduL5 8oX5Bw22m+Au2zMlQV0nRNxjGdF5a4L4N6d+phN5f87BcJdvJvgh/+Pu8y1O +LI+/I0quykO3SM3lNx0ws3fz3nsBkywJViI9rzKCcLiDqRv/0wglaGkuPLZ CfdF9v5iXzJBmyZFeqjOCRZ5daFvaKaoqDjuYSzqDEmfzFhnqinkCu/0SFc6 QWno6S6uRlN8Ldh8zIzNGRkM79JzVabgmgyZqFd3hpF7xQPScVN4DHwJpcQ4 48TbA0r/3ExRIHvC4XGAM27N/QyXTzVF5ZFmY+5gZzRskFQOvm8K5kPns52B zhh4rVHL/GuKXDexmPh8Z8TuHtlZ99UUZl84/2zNcsYvwejPqRQztPvPkKqr nOF3cfTTkS1m6P8W+yXyujO8uTdy1p83A+lM/3OfHmdQWXkf9hOx96k3Hnfr nIGdYr8D281wSexBsKY4E7SH/yqsHpvhfVVs8fBqJjIdpJ/S/5nh4JSwkqEa E5PFWbTRF2bQJ9c8v6fJRHLz0ibLBTN0d71Nzz/IRMI3U0XmiBnGLmanZVxg 4mL2SZF/ouZYp8Gd4zrMRNDHkM7NbOZoeli/JFnCxCn5ewXugeZQk/g7K5TH hN4W7oi3d81hYvZPZlsXE1/abVcNfDFHzKUXYurE+IXEiez6f+aI3cqdLDjD xEMhxf9srS2wrmbY01DcBXe2m+lNBFqA68fcAd9KJppeBHhIVFhAQ+aGQdkE E2suqFcHtVvgfNkFceY3Jq7vypFe1LKEV+i4wFkFF9zQe9NUssUSzZnevj0t TBxdn2f795YlfrGwR8Z8ZULM+lr1/hFLLFk43lqdyYS7hLz+oqwVXnZwdrQ8 Y6KZmdt1gWKF6g9pot5+TKzmlrmnGWQF3ur8/kEPJmLuu7x5W2wF9/Qr2aHE fubY0NP2vrCC8FDBuPFaJhJXd8vk91ghTjWDv41430+4Di3IjliB8syfKzTJ GcLnAu708VvDIVmyqMadqKeNxeFTTtbAnTpN40hnKMo2hvtesIbXsVMcKZrO +Gs4bHTusTXqnzWUrV12QocTsz1jyRpputTEZ1edcH0gkqlGIqHkcv/6Z0R/ WP1bOp6vgoQRiZzWZCJvekvKbEjWBolvH3+reOyEzw+R/afKBmHPEimtRU5I stzm9MjJFiUy3i/97zhhrdJ0qNGALbaW/Z1kLXdCskw1/cENW4yvbXnQTpyf sxK5W//cJTg+a1ORsx8RNz64lRNqi29zNnSHh854Tq6cOmhoi/Lx4AyHu8Tz cqvaPG+3ASmuw/K8KBPZa7zGcxNtYLb5Q/AuKyaGFys0//e9AWrZuf59rky0 pBRfSm8h4dLspuL365jYd8k4Un2QhEIJdsrscybOflNYy1hlg0eXnzetS2di 9qnreQsPG+j5FNpz3yDGRz/sp2TZIH9087JeIxNPQrUvfH5jgyCFPyOHRFxg kdv83HzJBnKb+G7tHmIi13RkeNnKFruPD4SvF3BBmN/Bf4/jbbHuaqPDHqJ+ nj0qu3y/xhYOQiGc78qZ8My9Z6v92xZz1rMRDcR6z0smXRGgk7FTiVHV4k3E 58pqj+WRCX6+s71tExNP+SZNyz6TITK1OmeQOE8sKl1xp+fImEi/m2p2i4mN BrVJLn1kFPb9W63VQ+xHi0HqhW9kDBo2VZd/YcJtrleshR+oaxXMvEhxwV++ hx/D5YF0Sjxro4YLkj98rO80ADaUeQRY6blAeIpsyekE8MoUbiULuyD9peqK pzuQvMjX+OasC55MTmcyo4DTiZ3BAwdcEKv9Jd/1OLCHdMw2u9wFmMvrCr8C VPE4JoLpAr296aaalUBeY3X4TAFx/2D1fwHvALb7nokfTrvAWuVwedsMYLVY 5RtyxwXVTAsD5X/AwwS+jRI3iPHdbZhVtgNJt+Fm1IwLhALy1tnR7BD06GBA boMLBB61CX3wtYP3lN/YYJMLpo7Qo6yO2IHqnX2dc7cLNoqBuzDJDoxPlqmH Kl1w3KFt/a+7dhCI61YqPuwCtsridW1VdlAsMb2YS6wv0GET+eegHZgnh/c8 DXDBIIM/Mm7cDi2FvgyNqy6QDnAfThGyx0GVwMDcWBdseu99ql7JHhGbH8aL PnTB97MeWkrr7MFoa+MkX3TBFlmnKytB9lj0JunwZ7rgCGm6gBxrj2ecOiVP iDgpgUuwosge2Qd+K1KJ+fxsRBmaj+zhUv7ledQmFzhHcPS7tdsjaDDoy7X1 LtBhfVcR+MMeMjea9ntau+DdUtZDPi4HnPRkbeiOc4Hi5rkNu0kOkLBdZKUb u8DxoV7ya20HJG+33lrBTawngleez9ABg9Wbbuwn+hc5b/r62Lw9Jl7frGn9 j4mpgeOivcT8Y5QC2j0wUX+DvmMXqwMEOuwvBhL5s32dX2z1HND/nFeokOhf og1/RDxNHWAfPWLOachE+MelqxfWO8As805S1UdCj9Z4IdvBAZsfgXGMh6hn L6HzRQcccCtW9ZfmtDOmfb6ddz7hgDDd1vSLBkxICPz6F9fsgMh/P75c+O2M Vw4ysY0tDjgqp5zLJcnE6cHrmR5zDmh63nr0iQgTtXMcY7b8jlDK/drZ7cKE 7gcPufF1jljMO1h+VJiJGa/xax+dHVHiHqodYsFE6enOE1cOOyK2e+OBVmL9 4YO2+JlFjJ/V49JzZMLyntTF+W5HcKuA6+WCM9bm5AlsaXeEhuGUp74YEylz 90IMVlFwe5n18Lp2Z/xM32azPO8Is/r1zc6vnLHPLeE/JTEKDFLZvPMPOuPk yrv8MCIflV3TeLDcGZs3R576YUcBt9EeNyahz823407d3UTBaU7xqMV6Z2R9 e78qKI0CvbChmVOE/mf+2jK+axcFIVeU51eIfl82p5lZkEuB1oho3i4rZ3w4 qCv74gYFajd73PdZOkMjM6JzuZ2Cj4JBHdtHnfCoviPbLZ+CDa8S7YK+OOFk XITM5h4KUsdkdGxuOYFUkpSb9IKCr8xXD58Qfma6d73liV8UlDYoHggIdkLM 0+sbFyspKBa6u+mJKOEnr5PyPIj7eR2U5y00dEJlsM602AUKBsbeqv9H8NLR Lt09DjsomH+5IeOfpBNC15qMTK+nYKpfgzdR2Ak6Kb9bn2lT4DO3q5nJ4oRn /hc3+HQ5or106nYUwWNKKrKbOxccIZY8YvO4iODFd9rnTy47Yk1O8WLHFQbq rgefHZehgGWf2aWwCAZuB9S9TPrjiJiI5uD6nQyQfvt1GfNScLa857MF4d97 vFpi2PodocVrHxzAz8DXaOH3vF8dwTvGqxewTAer3Y67P1ccIWFeXLJuhg5u jufuntLE+Jc3xirr6AisU9Z34aBghX/APOg2HWriFbtkFSgQv/0kQJ7g67nU x4tMImb7+sq5O50O/km56KDNFNxfy3fjZxgd72fCU6OI5y8X/8wqfoqOCUHb fazJxP7M/91gGU9H7bLfislVCm6JVtkd+t//G071jnj0hIL44fY3ZsZ0THuk /GEn8mJtCV7PNtFxMOhdx9lpCpQGJfIbzQnev/YqVHiKgn0sl9/62NGx01c9 O4+XimHvBzlhNDpEeupendGn4umi0eipQ3Rknpw3i46lEjpiqHdwPR2vR17N 5oZTsdtHkfZKkg6rgZinotuoaCtoH1Znp6NC9/bvDzuoMKrc6x9KpyOp9iZz WxsVL0TLh2N16ehyK/QVekHFtfH+LjUtOrrX3J/0/UHFpomawlCC36qSx09P T1NxXMuCZa8NHZ+0q2J2k2hgUaDIq0jTMZls6JVmS8PltjR1GVE6vlvxm0vv peFJRsLmrnEatCg/t4zvoMG+t8mX9RcNCj965PqKaOjyJH+50kDE2RwhDvk0 CNmKbPlTQYN/ufDPK600THN3Py86S4NKceTWqRs0RF00zq3fRUOVrjtp8SIN 3LvfOzFUiOsCZdq3qtGwk/Vpd/NaGkbUst4q6dBAEvp0QuM7Ffs9JKLI2jTc G5+2Cpulgvv6I++1gTSE4Lip8v++61W4SvmcM7GewJobu6qpEJc9Kn7zCA03 D7k/8cmgYlpGJHQ0hAYzPuFNlxqomE8gSy69pOG7K32U+w4Vt050Pv7zgQZ+ 9WOH2s5RERc/ufFtLw0T6io1D4j3lJFll/G/7yGuT/HUu3uICh4jX8nUtQRn z7UKuDpQQUmv3RE5TDzH5iApaRcqzqZ35CcS7yXii02atCoVPve7O0Z46bBL oF0Ys6EiySi7vyuKeM/aK3INcxTEXnveuV+VDr64yg2aKxTIbTQ6emUHHbIm gmuruijguSZzZuZ/dfWZN3FnLQWX2IfGTBj/4+78nW/OUtCrsX2R35COgX22 +pInKLgXUuzx2ZsO+xuLscxQCoZ7gv2yKXRYDMx0xYVTQKjIdsY5OuS8r8yK K1MgkKK7dpcVHfNUp+WnGhT4prkXWCXTISN10PI8z//+zvzJpDriXCTxr1wN 46LgfbhleVwlHbmMLZWP+xzxVv5i7EOC+1cFzEhmlzqi0zjrgPoJOvxDTT3K rjhihVW3ypK435Bm04MJIr7R1W/9pY+OsaPXBEviHdGsyfv0XyMdGz/F30/y dMTUoV/UJGJ+PpMAhyZHRxzim75uRuzHWCX9zmM9Qhe+vuywyKCj1YcrIZeT mD/mpd/lnXTk71U0e7ziABn1uk1nLtOhM3836uKMA76mQDaZWL/UvLlrQr8D Vtyyclc86Rj9vf/VMyKemO2ikTpoMBc4m7Jb2RHdypOUMqKeBSuD5iq0HJGk 6vJ4mEEDh9e3WG4Boo9NL+1bNKah2HeLxMMuB/zaxn5l3yYa9iz3vCyuIHS5 QFNVPYeGCwvGg7LHHVAg8tuy8TgNc0cObjwT7oCl58n2syU0eOZdeLXFwgE8 0ROmukdpcBO3u0s1c4CYTH5Jeh8N7K6JSZJCDijfa5Jd+YQGkWd91qun7NGd puIcR8RZqQbXhSbsUdVr8ijpJ1G/xwzH5Yi8533vDcpUOkrMVtm8eW0P756l wq3M/333PeX6q/f24LNU7dPLJfpikYZo6A17WIX2T3eF0LHuj+Ziy2l7GAWs Oy9G9FFr0XAHif8IX7KnJv+pER0zX6+rnNeyR4+4G8eyJh29f/VfrZ6yw8SO ebvOPzRoP7va+lPQHvs7jg5XB9Jx517D9Xd29uh3Mnl77xodv076nepxs8fJ AAztH6Ej/tPhXE8Skd943n1RiIHfUmDRkbHHJ9ebPtH6DNxvawvbymaP0jXn 07+bELrS/7Yr9Ksd0pV6bOaMGWjvKHaZabFDvK7uF2VvBrrHy7zO59qB3yOu /MoOBuxl+pLEU+wg9eB+3Wo3Bm4l++8L3m6H2t3+t46sY2DYweGamoUdtjWk STy0ZEClqbQu1dIOL7WqzTfnM/D0wJaGGjk7VFr9GDjpwcCLuMLToQvAclfL pydMBhKVR2ZGvwJJHbe8enQZSFONnu1qIny849rMnq0MfLZpELcvB45VrFtz msSAP2V3hHE2AEfyzlTi+QyW5hPVrgGphWc4Y0rpOHfaRrrjFRDvEPW08gAd 93zv26mXAvOn+/PjCJ0J115cPHsBOG5E384dTryfSy7FUtEAa47YeLQTHVSe pTQRL8LHr2ZUyofSkfKS4X3CEYicEvgUlkhHwZFPLXF6wPchGUujK3S8OfHr ZLY4cL5wIfVmAR2fDaYLcsbJqLSMPyycRMeREqMupcdk8NznDH53nOhfNrvO BT4lA59/X5r8Qkds/uZuHCfD79xdcfkWOowv2GZZExyVocn3LbiCDqOrn4xF lcng9zw1OVpMB6frKo2ZP7aw2mjiaCzCAJuA+tnhWltsqP9Qu/4VHRkILqxL soUMRZCjfIHQxVTPhK0+tuBqm+WU7KIjRsvVPGmR4F6eK9dCiPkv1xfgVJEN btDKzwUS/UHh1bHbk49tcNx1OGx0gI5TGdO/n321gWVh2leeFTqmZGJ/8XXY QMp38fyQHlE/XSoTfNk2OG3H8llmEwMVqR8vvGHYwMCmuTn0IAO7Xj88Pq5s g9XU379Uifrp3fuE9dwSCTdsC96kpTFwXuP+6/MPSLCCLVvdVQbKzl+X/eJL wvWHn3P2P2BAIf+vsYktCdlh/1L8khnoO+zmpDBrjdqP/sJnBon6a3GcrK+2 RsV24d/f0hkweX/o76kIa8wVX+t3I3wVKf7T7EeGNUYsWu23uDIg8qjXOGLJ Chz+388lHmDg6C6jGrVHVliR42v4SGHAnTrg+S/GCuvdXx7YE8PANReJi2uP WYF1ZqKqXZoBsZ9cm2MCrXBrkWFSNEz4Ao1C/4fPreDl9Jo+4UdH/0BGk6CK NVyjAyZWEXqzwsvc8CjAGobiAbJKhH6NNPvu7DtgjZe9lsxVPHS4x/TyDotb I3u/gfGmFzRkV/soljZbYWLZUCFhkIa1s/YW1qlWUAr4r0qF6K/8Oi6FIXZW aJs5vD2R6Bd59N4fehJW2FlaSNd9SgNjRuG3+itLeA1QNDm/0iB7aXPF3WJL 1DmUWRTW08Cj20IrcrOEFcsdTbY5GvoCVsrO6VtC8NoI+V8jDbuPCf+KY7GE 2mnnrYrdNBQNHjfIXWWJMoWMiH9xNCyqqvwaa7QABy10SuoqDTXvbVv3PLDA 3OuNweuDCf/gGFwXE2+Bt13Mbz+20RAzbLVdbL8FDr4bubRJiwbVU6Z+aywt sG9LZu8hGxqsByIkNbQs4Cie+VzgH+G3WO4MFHJaICRD5hf/BypMFHwn9H+b Q6GJv+hKIuEbtKPvbcsxh3u/njH3eyo2dHdJjwSb47De4smDf6mo9NmU/E7Q HFua1Po2WdLQWOrYfH2VOaTCZ1n3SNDgZyFzkL/dDLkb5zt4ThF+TJ395850 M5Q9Dfs2m02DgMAj1ruuZnhUPNmvT+xXyIxbjYi5GQKfzI7wxNDgeE/2+Jc+ U8SxpCRHPiL0ae7Klt5SU2TFGz4/Tvgxd/5blm83msJPyozdvpqGaz+3LJDV TPF3G7Pg8h4a7OqePJEZNsFE8pMdbu40JDSm3H+dYoK9iSwtVoR+ybx033yY akLwnWX1fwk0DO1hZ2cYmCC3sEhhgvBzD6mLk9QhYxzm/u5SIUb4qeG3f2YF iHzJjosRl4j9Kc9JwDNjJI0cYl8OpMLeQ2JCzckYa5xYS5O1qMgZpRc2lBuh VIDzZdo/gseeeOV/jTCCwoVmg3WFFIgoRpxJGjZEU6jE8StBFJgbiWeFphui 0lTH9xjBI56r58t0RwwQuL9vFftbR1DXNfpGbzFAcUUtR91rR3iq7vpx7Jg+ WD0Sb90i8qfdIz47eumjYCrN9d8aCuoeXXyztFsP6mlb7+xwoKBSltfx5Kge 5Fm66374UsAlY+W8tUUPygv10w+zKOClLW+XVdBHi+6j+2e+U2BYE187fVUP kjvt7ErsqHhDd4owj9HHbv9xw1YGFfckK7Z+u6KPID3+zMnrVOhS9AN3rjOA z0DvUZvnVOjnbG102GYAu9X8CdmCNFgpzriY9xjgVqLO8UbCj+zJNmC5KmEI L4lzZyKP0WBcL6u6dMEQp1v3WFqcI96nAL/A6WeGYEZn5Bd8oWHdj7YXajuM IM6+9mso4TfmNct5frw1gmiyrWaeIh2JlBl6+08jJJCs5gIJP8n9zDJeu8QI Ih2OMnsJ/XDalvY0st0I2Rdv+Q4QXEZyt3iaV2GErZlzQp8L6fhrV/lczc8I Epw9BRdS6WDZfJapttoIyX01u/OJfp+1+a5XyhND1Ldqv28mrv/axRlNTzHE 7MM/Y1N36BAO9hDMZxhCIF3qsmsZwVGuLsublw2gtLRPhm+KjuIgC6eiuwaI ZeHnf/aSDjFjhs5nHwNICDWROd8QfvaJQ9kEyQDlL5qTDl+k47erJW95vz7u 8vbMG90gxusGZX4WM8B2/YGcGQk6EkTW3Bc4qo/5WI+CYsKPv43dcu1bvx4W /TnYVoi4JdM1/aHm/35voWmeQ51Y399Jrt38elCZtBQXaKPhN0vK9j9LOtiq b7JphMj/7DT1UhnVQf6MqdKTWRr05HaciOPTwdunxbJdwnToeb9SPu2vDa8F w29rZwj+qUlYEB3Xwlzz5HMyofcbzv0QCbPWhtE+pSvXCD9n9P1hIveyFkyd DjTJEvuftrHSg31KC/4eOzeRjxFcrFB9VGBWE8cUtVdlEXrbORxZqfVbE979 /QODwXRISBa5rVfUhEbMh6g6wv8JyYXty17UwPnukL63MQTHDnGT2drUITgc /L2R8N8HD7HWDn1XR+6JBboUoa/djQcFHsqq47Sk9k6cIfjhvP5uHS11VOV6 T3wHHftW6Wjr86mhve4Z1//4Zc+WhewUazXIVcVH7FYh/OVOMWeJg6o4lqei 8taZ4PB1rIds9VVxSzuQcU2W0JslinTRP2X0tfutiLn9j0NPFD2NVoFTn/Wd y4S/NQi8/PiLjzKEWGqlE6UI/zp9p+3ZOWWwCt6+Y0rwXOmAYWqpiRIi7x+5 xEZwc6mZ+nDjOiWcuLLvzoY3NGwY8FL9y6MIgcKy6v/9O7/KWvHj3SqKsNe0 3HOG0B/qbZFfZ18ooPdi+P2hQhr6G2Umb1xQwH8O3qG1iTRI/LqrwbtXDlJ7 asIjKgmu3TPeM2wiD5JvsNe1MBpM3LrP/XaXQ1P+qqOcXjS0n3kof3lZHtWz t9528NFQIC470OiugLEFwx6HISreN7h5zakqIUK9dHs/wZm975MuppOVkJpQ 9eHkOirekqzeebxVhK0Mf8+YERVyRexubrMKoA4Vffofdz7K4z08GaeAt043 jynoUeFqfGVEflgedP/1lgU6VAxeEQu96y+PyCKBhJPixP1sDskbz8nANT0o qZNMRUxtXLP0Olm8v8c//ESACgWfeVPMSCNpmyd1Vpjg6hv1T9UHpGEUVGT5 c5KCtGZGoPMjKfR7F+s/IfrZXOODEZKhNLaFvfhi94AClcVK0tMMCXzKsr4+ 8oYCttDpxHu8knhzzXbtudsU4Myq3JuTYnCJnjjQ00TB4J3irK8l4uAL/GFc l0RBsuF/jnvCRWGmknx14BIFiwHr3QuDxBCS8PG15WaCg9dcuRJaLILNQtty ewiu1Xm90WgjRQRhg/WmmxgUhNXZfz8ULQS55aIgOw9CD8g2e5+Yi4A35m9W NR8FSV4fp0NThGBsIS1/WIKCpj4eQ5Y6IdT7NzgHfneERaVwakiuIHSX/utc GnJEkdKZmHvJgrjisbNv8Jkjyi7KHXzYzgfBNucDGzocETR9O7pCRQC2j/6k aWY5oqDiJ2lHKA+GKuMfnDjniOo1d5f7gnhx4PRhqSORjqDfKNtfeIYb/4r2 uE9udQTXbdNBxwResIkW93cTXFt9r7Z6coYHu2UOuM5yOSLL/Xrc1nZekI7s zS8YcSCM/VO2O9bccKeT6I6fHPCeXT/W5f4ayL2klzc1OqCTnBz+5x4n7mVe k7ld5QD/TZPOOTv54B9p3fUj1gHVtyNvG2sJoP40Ve1DEMHBKw9enfUVgeNg vbATHOBTyE/iTBfD6zqe9i6aAyTYe7QsjcXxpuONirWEAz59e3jSPUoMCWpz wyXz9miC1stH02IoEaQV2r60R1j6l/cvlEUwaO7wdlenPXYW9avz0kXB6djz NrnQHjKXrx9780UI8don1H9ctUeanr+t00chfNsTsA0H7GHwsCTEykcQWhzF JP0Qe1QqnxedmxBEr8H0Kna6PXHeI94E+PPj5s4TL6rX2yOm8Urx7zh+nNf3 3RlpaA8BD0rKwigP1Odd7l/WsIdrs6z4z628qPl645vgGnvEc145tDl8Da6y vD7zv9+PVqCliF4t5sX8j3nayHM7vB9/ain5Yg1UXWrEbRrtYJATZf0kkBs1 LJIHt1+3A9fVD/WL3avx78pL5YgHdtD4tsc2zJYDLz4rbjyYZIe0uy/DBkJX Q0Wgl855hIhfPRhbf5MTMa6fpX6ss4PAo3v/SlnYYHlS27HP2Q4WuseP3qGx 402yQLOqkh0KEi6WMj6x4ivLIS5REWJ+cau65JlVKOP0PiDOaocoVkdt+R8L 5BJL9aNBq+ygIDc0fkr+H1mygHyzqRVwFdzB1Fq/QLYTNLd4XAcIKOHYgR3L 5LPrPSVnCwD/6KM/+nbMkqc8dnUsXgTKAi/U/7KcIVs/3HggI4jIi1oI8vGP kme8q1aIdoMCK+nDfv6LZLPRE63KAgS3chRk71v4QG7Rbm+ZIuKCY8I5k6Tv 5DG5xJ87XpDBYqG2cOPsJHnWf4DfPZaMhh0Hm3d5zpJZxpeohgwy4uXYBO5m fyeTXKU0x7nJ8LeajD1rOEU+lHN2zZpSWww+Nvl72mKULMaTkDcRbguW2QPf 1q/8IEe4bGLbamqL+ObJ+adureQfCnu+bv9jg/gfLUNnjL+QdydS7lYX2AAp VL6k9C7yC2Xdtbe322BaVNvsXO8s+UEb31Z2WyKfd5KyRWWKfGVZTFqW0waD BjoFjXcWyB5bUyaVfpEwXXT3SA7jN9kiZb1SLIsNyg4aH4jQYQU4W0RFhWzA 4pWvl7NtFY4FsaoZT5NQ3aiTk0TnxIP/bI5ILpKgsbAvueIYJ4qaeY686iNB YujAkkzPGvTrBr1oHCBhcJ7a45fOiSdcr7LlykmIIbE57SHxwiWQ/efGW8T1 /y4wlke4sVk8zyPqEAmO6TmDLuwCYLN1qnbdRkLLmF6WI9F/HitoyDQFkeC/ 5d0r2jYhWPEN5nLtJyG9ePbZiw5hTPe5Oux+TcJOjfQTi99FsBhr88H8GTHf Wfae5HYhXFo7zyluQwJL7aSmY6AQOhVE/A50W0PiME/RTmmiP4amWE0dtsaY 8A7mBn9BxLX6hcQ7W6N4XcYFX3Z+qARpJfLOW2HxHft0fRMPNg1+j8kpt0LL pwH9D/a8+Kz6c1fQbiuknY2sXGHjQXRwePOJDVbwfzFzp62RC2uZ5K17/lmi QF7mrBVxHr1/R01+rLeEgARp/sfqNahdeyNrNNwSSXWv9zVxr8HHT7Nbluwt kRUoUGdF5CeXa/QERi1Q9tMr4/6W/303eeWqMsFxnQ8u6NcJ82DYYemh6mkL CIxFF7pf4MH7PeZnBjdZoOGXwP7jFTw4qKd4TGzBHJ1KX2//cOHC44Btpl6v zBHFrVgi8pl4P/FrfFQSzDGmPbDp8iQXMsWCv9VtMUfDZOuL9HIu/E0cM941 ZwYYdouFtfEiq2lNyMInM0jwPFs/aroWUyo2l3enmSGpyDGh4Q8PSn3PVnRE m8H15nm1zWReDIb39HoLm0HB8V+CgwAv7rReWj7RaYrqQalfa//jR4DfyfLM U6bgStE6FF0ggNFPug16Eaao1a+Qi8wTgJvtQ8ar1aYYZD+lZ1spiGTu/snl ryZIa6h1m9oujAIFy4xH303gWKvZ+c5WBE8uTO42WGUKnY3z09NqIthAa3hP 22eKT2QBtst2opA6ol1684spMGz5sfyFGA5Ybn9vGGMGjTW5d29xi+MYRZ/r zKAZZDT//mGXkMDNDxYDXPvM8f7wzdn6Ekm8WHwrZ7dsjtjIf8ZFh2XwMpfv tVmEBVrc473yvWWx/WTCec9XFvA6wlF9oUgOl8ptRpw2E+/73ZzBwog8yv3V y3yvWqLw0i2hIzMKGHo6c5ttlyUGDzxi5XuogGuqNw9zz1tgsCfPe+NeBZxk Wv3KcrSAJ5vuvXsBCsg48vlZW4U5Xv4V5eCzUMDOwZANe/nM4cidK3X5szw4 1My7+U+ZQcXwmSG/nRxeVHlcj/xjiiAz6YHid7JIL919+1eeKUT+OzC+skMW 5Z1LL0oZRGxSkb0QIION+0ZS83lN0VDed9nZQQYtFdTAzWUm8Hdasj19QxrL p571JewyweK03m2PMWnUDR1keWxsAuTzLJUFSRN+O6eWJGiCJq7NU5mFUpDY bDIi/twYLNN9u/oMpTB0paj4V7wxdP41jzBMpLFOsnvfOjtjKBhZ3nuVIg31 Rd97B5WJOODG94ntUljQGzE2bia41zB+u1mwFLa+8fTQTzZC0/PSheVxGZRl COimHjXCHKk+8cVzWSj9Noxad8QIBm0njt0vk4O9obLWSQ8jvM86tq3iuDyS zLQv/GdoBEf2n4euhchj6IB3Ysy8IRKOpZbImsthtl+8quG1IVzr7oavp8ph 3+qXWnvOEVytUFpzhiQLofDTX+I2GkJm31un7P0yOEyp9lmnZ4jByFo5/l9S MAkmP4r8bYCW8Dj/y9pSOF3IjI7vMICJv9jZAF4pXLA4GiKSaQCZ9k5ByQ1S eMEo2fdlqwHGeEc9jvlIwevJrelUSwM0/Uw91zMqgZbaG64vXumjM8ej+Jim BIIU8rhP8ulDxGzleuhlSUz8+knaMKAHmTRtD3ICcX+jt9f/e6KHdpP7Uv5e 0ujR7OafD9eDyfeGqtkD0uDM775FYyM4L7U04c0uaTBLnlZZ79JF+s59JoWW UmB1cL/i9lwHtfFpHqHZUhCmtTqlKeog61qKq7eDNH6VK3RldmnD4NmtSw03 ZTD5fr3z8efaiOGv73d/IIuAiPJtJq3ahIDevbelUg7FpWt0JvZoo5t6+b6Y jjzmKwvIMZrakJORtBgMVIDvzPZdvLba4BtVFV75p4AeSuMNrmPaEDjZ9kfX WRExRuqTW1y14SMXPWFWpwh/m7KERzRivNnvP8ctCN6puq2xh8jHlKT/7ZlU wk97rUcrsdoYjNhaHnxDGeX51+5dqtUG1Ufwo9iYMgTVmY6Rcdqw2uh+lOeK CnLG/usv99BGZ8bWlC8sqvDn/cYZYqqNZluhv47qqogYrZI8dUUL2/l2+Xf2 qaBkFS1FVkoL02OHVRZVVNGrSR9YvKOJ9lOXDy3bqOLSsEdvxnZNFPy9XB+y XgVDUjw+hzo1sIHMqhswr4yIHbd/2LNrwOIdZ1TrJRWYn08s37BBHTq7z6qJ C6titmuVyfoRNXgtMSxPeqpA742jXcQLNfgkTB+83K2ETWZaNea31NC749Rv H4KndlOXyXt+qIFtQuJy5ilFVDd3qpuGEhwaWfPT45IiXI2uH/lYpYqsc2pL K1wEfwkfEL2ZrIo2mfLPG1crEeff0mfskQpOJn8/rO2jhP6aP3oZN1VwPtEv gqqihKR7h2+btyvDyirNetd/SnD/rnUmLlwZ2Y9uf7EdVEIu28kaFQtlPHX4 5rFRQBl61PrLp2eV8GjWgfJDRBn3191dM+ulhM5d3R9UjykjSqX65n41JbRU xhZvylfG95YE86HtimiqTRv9O0rMa71b9qydIozOmG0w2kmsI4Te+u6TAkjJ H/f2/1VBe67mXsFfClgpvTwkukWV0J16ge48BZjY099ReVXhdbK1V1pKAbPu i2lyG1Ux51K4UaRKDp1bjt4ukSV4feDrz8ur5WEitv34RSM1VG/6e3BLiyyc 4qbh+UYVuV9NNKVFZKBVeflTfQCxrzJUHes5Kdx6b9NiKqWO6kdcN4TtpOGq Wlt966U6xlzDSE78Mihhq+rd/VADnWzeWR5ZstBqDdLUCtNE1EmJe5ci5OEV 3+BddU0L/cHOAjNEXQ+xcm8vJc5BPHXcJDhREVJVOkVXg7TBsjR7ZEFDESOy +Z7RRJ16mh3+t0Qh+vzxgZGee9pgE7bLyayXh4DnhY9hxDmTETDcwFMnh+6f 2wqCB7SRpaNMe8AhBzaJ2yd8TmpjRXdbopGuDJq3lm9suqONou1cYut1pcFz VydE1UEHQZW2JNb3UrDNH37SCR18TzBRZVKkkLuXTcWYONe50XN2l5kSiJf+ PMlSRNxfbuVzYYI4nOJVL3as0sEYY0P8VLkYxtjUAsb0dMCl4nx1j48YHD13 xy//0UZD5fFtggdEMH21hff9ER2iXnq+egSI4N1KQ3qesC50Ssb1k66KQOf7 pqCP7rpgoxrc0tQXgenqRJElV11EZTeiyE0I6fytpnUviT5ltZRnOigEz/sH 17OL6hEc5y2priQEjpCpRFVPPYzt5/BJ+yKIiycOnJM/oYfK8GfSy18EMDSl cc1DWB8NMW7tC96C2NN1kfUNlz4KHNouz2zjh8VoY+/x9fqIypPm3zvLh8ah 8ZhWG+L6nMMpihu50TtW3//trT68OA6v49jNjbnb6nG3zA3AMlO/ULzEDab8 fXZ5YwNwtWr5appwYet5s49ZWwyQdK1njc4AG9i/r+j8LTJAWXAOm9MWdnyS aTuSQOhE1N6Xo7Kt7Cjlj84QdDSEwbm4p2Yt7DB6TgnhDzMEfbT6i4TxalTw VO0+f80QWF8yXsRgx33Jx1pfHhC6s3HxkckPVtTKKf2mLRsiXqlxOu81O5zk fPfk+xphMEPsv4MUPtD9Du3oliN0z+Dof7seCOJP3JSel4IRvndw+D1MEsbf f4d/H/qP0MkPR3ZP/BBE7BvfBp5SI5SMsv/NFBQECbudr/UYQSPj9LWnDgLI 0oqOSRc0RlhjQsS/CH7seIzTKRrG8JrROl6qw4diN8ENDbuNkfZZ7/z7Ul5Y +bRQ6aHGyErt23ChhhsrDcsX91UbY7qKP7y3dC303P5KbnlHjBf6uGq8Yi3a 4wuK/84RvkF4eDhPaA3afASSVxaJ+1k9z6hfzYGAniOrWd1NUNCxIkD+wwmu wF+NrSEmyNooOk8T5QTb25bAvRdN0Flp/PFqPTvENINGzx03QQxniolI4Wq8 7DHzzy41QdJYv+3sFAt6h7gvnn9nAq/rR9iLT7Egd+xXVIe6KVzVv6bHXV0F W5Z5lzwHU7TM3/m4V5gF8dcbUjKPE770k03Cea1V8N7xJ+fQZVN4bU80z7vO guhafQf1MlMoJMlys+xdIs9mMKeNv5uic+eBqZFbS2Tx0/f2/FY2Q1RZraJf 0wJ57P301G49M5Sx3r1/0XCWHOv74FPZQTMMvvdMsnoyRbbtFMtgFBJxNK2b 7fYImc3+9J7O1eZQOPWJvbtohJwSdaqXe4Xw6a1feL4YvyOP7a0Y+B5sjniB DX0Gi+1kmdWfn2xoNQfLkW+PBlq+kod+S0TUCFnAX9HQcSFyglxYV/R3UNQC 6OXc5Mb6nuyYGebZeNgCLMOGH79IPiALdAVcNLlPxP//09GyZtjiI8EZrp47 f472kDuzv27N/0fEjTSPmahZsoRAlFraJOGLdf1EciPZ8Pal9K2WEGL+qL+r 2Je4IPCwzkqFh+CaNIE3gxlrkdCsk+LZYw76rEW+QjovBPtF1scNmaPM4nGG IFEP0fdeGk3aEr76unriLUdubHX9bvd6kJhvS/cx6RdcoI6Xq9TJWiLqsdW6 qatcGH65/rVbGMFdvtzNH15xoWmr8VPVXEuk/W1OriKuV3nu2rZ+1BJ01W1i MT5ciNifhDheK2jM1mtybOPGbE10IYeuFca8nuT46PIhIu144lK4FQqOhZJt 3NaiLXKeo/m8FVyvNEneseBCoJHCYsxdKxgUB59vGV6NuPgly8GfVqC//DDd asSJ+dbn94TFrOE6fXJewI4V/sKF7/+EWGNw8OyHU72rwBxteiJzleBSiesf /vCwokiweF/qEMGllWabQwrYQJ6XsSOzksCV5t1ry70atSbZRq6mJESJxwbu GibOv857901+JCQlVUQer2OF6ri1zdqDJKTJxsXG3eXApqG1//1XR4IC92P1 NRc5sO6a+ej7cRLizSwXjP6xIWxrA01e0AauwmPuwUYseMh7o93Gw4bg69/8 p+tXgXbi+qbpHCLPOFZ2UHwVfu+un+ucsIGF7s2t0QEsuL7dxmpAxBaDx07e Dz/5jxzasKQiaWOLxcMhQ8qX2eFnQBN3uWCLGFcp350HWFF2bktdZbct3vts KZMUZkVTM9+pUFEyssZFd7+tXYXHtDi9OJAhEN7z1OkuJyZC6uaTMsnAvm3H vL4T9fQwWOZ4AxHnia2EN3NANTluT+gjYjw+alzfzA2ry59bT+4nYzpQpIHs LIgfCgM1YxO2WHFYy3/6rBBOdJGzRf1tsYHa8u1BuTAs1PhzeFpsEPbH30NY RhT7n4lK1Uja4FO3yPKWbwQ3qtYXDGWQULKhVfngBnFQO3wMTNVJYFNcWOA/ JIkY+s835+atMRectIO1XBqRqW7pE+4kzIXxlP5fT1ceD+X7tSMiyb6FbNmT 7DtzzZjlmTFUtiRlKRIqWVq0IUSJpCylkiUVFZJUkiJJVHxFtCkSUgqFbO/z ++f983zOfc5zL2e5rpm551nEUkRVat3mUyM2qO6Xcc60k8fS1E71v+W26Pkd 5DmJZRi+FZR5h2GH6OfTQ+NMOXAK3wrWdtkh8N3fprgxGXz6np+3S5OCiG9H ousaZHFsiJh+5kqub88iapO/HLJMz3/JjqfA5oXN5tOr5fBzYSUjqo4CD06p kAVHDrKezX9yhigQfBp9LthpGQpvjLX+XQRIrf6Q1h8sD8GW/cEiCoDgZcMx mog81tdZK7qR27tWzEdoxEEOCTsGZyY9gfr4x83xPMuQ9DdZ5nkosKDglrfG yWWguU3qzcQCM3+mTSUPy6FhxeSsazkg56J+9mWBHBa3NXe6Xgf6mkY+RhyR w7RP8aKUl0AW9bR4V7YsDiZuXFfVDTRKhhlG5MrggZ9H6z0hKoQLtQptnaWx KPWmJX0hFY0xqnQTE2mkGhZ7/9ClwjX91l1FjgzKvztfmqZSkVyz1FmvShoy 10MKnPyomNQ2KpiblUHSwpaTUvFUHIypczcnZDDddsPWL4qKtQuFXXn+SCFT 7ow/J5mK9oNxT6PdJZHRXaM1WEgF+FWS+BjSODXv+JHbQEXgcdXTL5slIXrC 4v1sLxWveX+G3RCUxLUOG6+sP1TQJzJ3ByyQgF/CtfFwORr0DmxdZ0KRgNTi m89KV9Gg8sbw8eo+CXibnVDGGhpev+EvFdKUhLp16cy+QBraTSLklX6L4/QL oxt8UTREry5vneqQhIRPdGTcVRrWqvLVto1LYE+pVfOZBzRUu+jdCFeTgmDq i789lTS4nj5O5AbLYF3sOg9uB2k/uaFk2WJZOK/3ZPaRcgjnwZaxeDmkSOVM 6LXSMPNlyEfqjjwabrqnlP2gQe6t21pzugJ5LrF/c6ZoKP0eYhQnvBwVKaZ+ itL2SHzW8ujkpeXIqxmfaDe3Ry5FxOzQZSWkJ+yPkHO2h90rWw8dKxXESaW+ ZB61hxIruyxqiSosfs1uuNRkDxmbAVfFr6rQm9E6+3cpHdyoV2HBE2pg59f9 TaPSoeKVtKnCcQWWL37u1u1DR+UKvzQ3LTVIfeZO3fCgg7dLkiszpwLGujXy g/p09CzqGm7LVcawyjEXJQE65ELLqpN1lSB2a07PdsQeOTOvUm1NFdBTYNS4 pcIepTFzwrsb5HBcVCOxPtMeyVveqIyfk8X+Dt+K9pv22Oc9PRfEloFA276+ Ta/tMXDmyaPYaBnsmU/iow6T40fvltuNy0Bu6P7jq8J0rO1/krX7mAxubjpK LdCiw6e62SjvujTyVR6cf2lPru9A4O7tx2ThJloyZbaRjvGr/eWBPaS/AxGC G2Pp2Pr2u0bpbUksvJ5S0JhFx2TMske5glL42/lyKjqPjj6P7QGaoTIk7nUc +9/3+CE4X02zI+N/k1X5GWEGcq0KFFNHpHFl6d6IpzIMXP2TKoZKWcTEjVnu WMDAwHyC0MYxBVReMir9t5oBi/z6BUdLFZCZVnjueAgD9ZvnnvrWKCA/bWzk XAwDydcs9MZcFdEtbh/iXcdAc+7Uu9hliniwq+WkyWcG2l1ChF+0KSAMJwbE +Jkwof9pKHNcBjdqbspKSSa28jhaqf+UxZ7MvaOKLQxEr0h13JEmg0OB6+x5 GhiIuIWYeLLebu7xn1vfx0Bp73tVy6WSUF6emhg1Sj5/SZS3DFsCedGr+SNm GJA7cjZKzUcc8+2sgHwpJqrqbXMUWsQh44wfetZM5NCzAo4FSyD1c1pl83om tIt7I2pEJeAyOLBsSSA5v6oDDUtEJPCWkk19k8REomJLRx/JBxyT5q+n3mFC 8WwFYXFBDKUHAn0PNzLhtfSV0dsl4ogrKtp4qJ4cLxsq1XJRAgt+BuXrzzMh 5eRHeWYujtvPZh8mSrOg8mn+ZmWtOMxOBkSRPQ6ljsnb5ki8HGAxrNfpxEKV Uk0Tr5gY4gU7Ei4FsqDn7NajqieG69QBk8YgFnA4Nfq8swS0x9Zdqr/EQtxz gUiDB2Jo3/rk1tbbLEQMuPfOk+uRdw4u1n7HQn3y1CenA+LgzxctC5tjIaTo uHOkhwTaljR7rVckQJSpBJ8aFEc65pJrXQhECLo3KQyLoy3ogrboRgIF602z SkUlYbPnRbpuJAHhQMbEvU+S+PbbR+dUPAG9nNRPzKdSuFeZ2pqWSyBuQZSe yWIZCPusDyx+SoDv7tCI/09phL48H7i5jcCvP/DDYVn8++G8ya+YgFfK0PdD 4ctw9MnhfRQLAjNZsWnFOsvx0c0+PEaLQCPr7NMuPiV8L/z4d4BCQNCSHbMj XQkvDHfXFm0gIKfX7TQ8owRu/IiS4T4Ck/wBvP/7/7bpU+1r6+MISEl6Hjoe rIKaoH9jKCPQ3PLw0ZKtKsipGmJltxAYTuL4jvirYHL4Ue7KOQIDCuuaQmxU EHb6QfeEHBs+R6149keT9reVZfcosxFr9d+vixtUofZmiVmMDht5m5VYAemq qNx0Xn2G1Hf08QkIRKmh8cotl49cNhpDWsPXGqpBSfmI9aZkNsaFG5Zbq6vB 4/DwPqtcNuSTvaNmCTWIbfVyLrjHRtbx/9xqB9VgnXa3WrGHDSOx67qsWTUM drbez33Oxr4vthuN/67AP88MRlwTG31n+B8wuOrInhlawTlHPi8GmjecNGD7 tkq/oZicX1G8YFilBhr3bNet7GBjq3thkuRHDeSmK/FaDLIh4Bs4cZtHE8LX BWRPSHKwWtEjcTtHE1kaRopmBhxsCd7y536gJhpjb8qLu3FQVWh46foiLUSo XvGVDOHg58kVfKJ2Wnicm45voRxoBDU/dlukjYyMUWWrGA64ZcqGeXHakA5o eCPmxcGBhyaLTPx1sKo3f0Mnqe+K7m019dDBP8101+NpHIzq8YvFLtJF9B81 RWMT0j7q2tenf3Wh+i6uz2oJB+t9Jy9dfrgSq05udpx6yMbwdJyyxIuV2Cy0 MevLMTa0Ov0UvU+vxNj7YCfXRDZ4rgle1pXWg9ppb6uWnWxU3/RyqvdfibWV K/toG9korZA+lymhi9OL3GaevScw51+XOVKjC6aYsdOmEQJhQzfXrHNZiYIe IbOI/8WDprZiU5Aetjv0ysSsYMOrT+5kAm0VzsR/XZS/jI04Ux4H2e+rsGbf hOfnPgLxC0fy9S6uwj6KyeC3ZAKrJbODNl/TQ5vG5jvVhgQ+HlDuCT6khxPb r9/fMsDCTOewl9NePQwxdl+UfsNCqvCCwQLRVQiVyipaO8sC+19lwWYzfUQW /bRUdyBgL314oFtsNXa+mhKQ20kganqbzVFpAwQKnVl/+QiB8TMT69oDDXDD RtaR+oDA2rHuIu89BoguznvJy8eG/43juRUuBhBc8Fp/iSkbdN/dBfZRBnD+ Olbzgc6G32eFqrRHBpAy45+rYpL71ftiZ7qFIZzcpCiiYWx4OueuOFpmAImr v0OCbrDxbl04v90ZA8TqDatVPGMjdJukoC6pp69UMxB5yga7qvi1urAhfHlm rdmNbDTITn08xTAE78Y7iYHv2TjM0L7h5mMINbfUXzaLOEjhDf5wT4PUzyRP PA7gYNvVhUlnnxjgxY4L5bRjHGRmzjy93kT6r+zK9Sfjp3tHhtzQvAEM/FZ/ 3XCag+OzqSuemhnC5zb9+b1MDnQnjA5Zk/7rM+8u2VzNwdf00BVDbobw4Nu3 T72Cg8lY2p2BQkNE/Gt5GzrDQYGXWvmui4a4a+zEv1vMAWbOp//e6SHlwDsl hctJmerzwGiZEczqtLtSBjn4F/xPqT3eCGdun0D7OAeWNx96rKk3wsX56wH8 kg64meg3tmrYCGsXvJLskHFAytfYUzbaxki8quJOJ+fXfE0sNPOyMcKCpip6 KRzkV6yIbK8yxqFv/97U6HBQF2FUMypkAomz3ddvredg3e0B1T2mJijrZc6Y eHMg4/A3ajzDBP1WAg224aS/LIsySoUJdoru0dmdxEGgiXCWYZcJ0iPvvFIr 4aB9k7f9rlITqPOKXzpbxQHlyax0Sr0J/Px3+Ld+4SCGP08rqtoErj+aS4Nm OXC6V148OmWC7u3LDk4pOEDHanHsg0WmWFmytmzNBAciV2PN9u43BeWI2149 XgdE0qbLl50zRc2a9j1bXBwgdeIo4Rpgigt1b84bxTtA8cPlAV11U1xWee0b nu6A1CsfJL6am0Lt5z1HrXwHRBxNC/PdaYqcuZvPtyY6gLvGeTTsgSmu87aU ltU5QMjTlN5x3xQBNyIyb1x2QMmzwjXiAmawUta4+7nRATXS7V9DlMxgs9LU KHfQAdIPH2isY5khcGvSKhFeLq5LU8XqPc0QobX1TOhnB3RvG2tZV2FGdsNT WLSc1J/c80Qw0QzJ4jn9qtpcJC3uuU79bIbyNzbPDm3iwlX7mGbJfTNcfL1L mcHkgvPmerP4VVLv01Hml8TFoukosVO3SP/WWwT7s7jo/KtmPP/KDPvM1dK7 fnFxK2nd24o2Ui989vTcABcfH30cOaRhDgnLnA/z77n4vpjvq2+oOZTa6FKP +7hQCFb8nVBkjryR0jNBOo5IzWwd/PrKHDLhJVPplo6YiT948OqcOYoP//zh R3EE99oZL08zCwyX/ReQttwRAe3yGSqnLFDUJjRbJOeIJ7Wj1iK3LJDH06tt OsFFvLm7zvZ5C4hY6iVLWDnigVph+kcjS0RF2e2UU3ZE0KkNfEPnLJHReCJj l5AjXp4vfV32yhJM+7ZF4y+5SIh232S91Apm+mLzPV+4eKru9v2OlRVa79EN Jxq42DWio3wn3Aq7G7+3PwrhYlPjDengDCu8VIjW0A3k4sGJpZv8P1ohUuHj lQJyv4VkXYf7qqygbiuxWaXPAffbw27mfrGCTE3rg98vHKB0NvCepaA1Rn+N Hxk744DQ5YH1NrCG8PrZh9JkvLSLMKeEd1njd+mAj95uB1gQX1v/NVqjj/Ms ysXEAb+CX3UIjFuTdZDGTRgi64WF+5p0fRuY5/b9kerioLiVI03ZbQMdp4t5 9G4O2rw9T7lM2MBpS3bSgTccqP929v8SaIthWWrtQlLmOk9vOapgh7lK64+h Dzh4rR6ndvuhHTyjKHTF/zgQ1LGnrl1IgX7CtYhqMl/+ZT/O1/hgB7/hmZZp NwdQOmce7a+1g4VpTFnTDQfQl8Ajb78dDPbkf1r0jVxfSe8XHyE7ZHl/eljD z8WXYG+1oGe28Cq/qHbPj4vWDzMqOj62aApSD5Q7zkXQzwlznREb8K571led zoWonWfrgvs2+Hf4SLPsA/K8M6d2bnlpA2WVPtqLRi4yqg8p6eja4kqYaBJf DxeF28VLeINs4b5X92zrDy72EZ2oLLZFuf6Ra2v1HOHfps+j22oLic5fXK/V jvCb1ssOUraD+J+VHRcYjsh45J74251cf3d8v6yhI1aHv4zilNnhbHVe+4FF jlA59t1J55sdKj2GfY18uLhrqGHqv5SCnJBjCvejuPBgZtiWhlEw2Cytu+UY FynMlTv7HlGQontqorOMjKdfwYmLeYHS8jLVg/1cEEt95sIHKNh7Vet+MOn/ uv8pw+4PFHAjtSSYmmS+BH3g2zVPQfTzUzujnR1RHroJScJA37U3zs37HaF+ tEdcXRXw6k/cULXREYot18pTbYCUpOWEj48jSvItq+KdAKJ4YW1VrCMmjjwW GNkAyFd1D4hUOcLuLSWrNATovieyPfC9Iw6LhJwwTgaOMJuu2T90RERA/9EP d0h97ybubnK8wQPzIZ0GYDylyvpLqSPyD40lXO0FZqr5Hu8bckSHb1z23Tlg slVlkDXpCKay4uet8lRUmyWLyEg4wWOui3nBjIrMpb5JirJOiEmNtP7rScU1 x6i61TOOWEKZPndsNxU+qZQ3Wp8ckR1Ae5ibQUWKmOCgXZcj+CfsqhuvUpGx dtPehD5HDF9uWUl/ToWX0aHqA/WOaOPwvVrwmgoneekd3x45Qi1454vDU1R8 kJWqefjcETF/vT7lLSV5/6p9k0fJ+Z9btc06UZeGl94Xpx59dsSa0jVeJgwa Ii9sS+Mj1xPR4v8rbhcNeTPSO5J6HbHzTxpj73EaciVC/cMKHdH/uEn5SgYN Wa/HZ6fI/aFumg8Lf0yDlqHGh7orjhAmuoLUPtDgNX7rrmGWIxaIvHkh+o+G v+cuSQVFOmL/Pe/cTml76AYvULfLdcTv9lbx6xb22G3y5HhDhiOOd309dcTT Hk0D6l8PejuiSfS5yhU3e1wRcky3IOvXzsK8sGE5e+TFKGf/Ieu1a21Id6yQ PTr/LQ17GE/G/4n3Q2tl7KHWxCdOHOJC+XmAVp6ePY6nnF0XF8rF9gx+649c e9xcLNosv52MV+OJryw/e7ReaX+qZMbFSVowN3ybPSS0Ts+W6HDBOzg+Ohtp j5wT9X+5Flxs1LUzmLhoj4vfS0xtOWS9f1aQ6FBlj8pATU87By78jr2Yv9Rn jxLvqpIWUn+6q6N356w9LJJVZbU8ufj3rs3gvDodGa9j9/ST85G7kJ0dy6Dj i+edb/GknJkp1lSym46Xx9jrzLdxsTrfLP5yAh0zX/0+Lo/kwlZYtT6+nA6V H24iW8nxdjn3O3+30SFwNPLzKTYXl1cfwb6/dDy9uCcqh+Biol699IooA3/y 3t5ukuWiek730yc1BoSE/pw8IcKF7znHvCcmDLBmtSqkOhzwak8VJ9uAgek8 ydZ9TQ7IamuPnLdiQGl0zK3uhwMS7/JJ9R9kwPPXzsdLRh2w2NXu6dnLDOQ2 fWv8WeSAWMsMaFxh4Kvb6zWRSQ6Q6DVo0r3NgLbSWp//3S9/PNLcr17NQLGu 4wetPQ5wa/nubjbCgO6t1pWS5g5o0vmZrjTIgFdtm/E2UQcYV7c8L+1j4OLn 256yZD0W4n1S4bmEibUuma7F9RzY7VlLkRRlorZpfdKmVA4aYvsY1DEGBtjp rW2OJD96JHBpvpuB5A2XhfOXkXzI0OWIUw0D+pTPx2xXcnAxsZ1SnMJAyLaB qbcaHLytrk+rI+XTziV31Vkc+H1wftLpx4DaV2nfGyS/+TSagPA5OjyfJAv7 8nMQln764e4BOkLKqWKBJB8MVso/VajJQOzhTn+hGjZE20PjT5ky8M5kSoHI YcNQmZJ0y5oB9ors2fJINipPfmou0mXgv2aX8x1ebJw5G/v0jwwDbjsexasx 2Kjd0TOxVYDcv6Xv/+jps5F22ad5QIGBsoufksZU2LBR801eQfrbyjz+y3Ga gJ3Vw6I4OwYCz+0rkPmPAM+3ab8efQZEnq/eE1VD8vcf2dwqFgMJW3eXXK4k kG5roFG1mdxfLfeF7kUE/jTUP/M/xAClMfeO2RUC9Wvz331LZaCpL+4Q7T7J 74287mk+ZeD9YoqH5kUCjl2zTx82MZB4IfO5+H6S36z/fDS7i4HWguA74yEE jMTFFLd+ZcCgwy1yVxABBr/iInExJnrSqdu5u0i+82u3+E5dJlRSxUM+7yMw 2n2phe3AxKbVhg6UMwR+OvfKEnuYcD1wyWJ/GgHZgaD9ly//777Ri58fXAiU XyuNn0xloiDH4KyqNYFg2cl9Ky4wkfPcJOEMhwBV14s6UcFEhvgVz9fkfNZx zh6rm2DCJ/lS9S/Snn64f1BznomSZv3R86T98YriXgsZFtoW+lc1ehBQen4y r5DGgvuBq5N7XQk05Kf1ftvOQmPQDcybEahApPzmSBYKLA49oasRWLQ5oEow jwWZE71F+SoE9I7tTvtUx8LF3ycfbx5mQflXWUNUAwvjSyxFAz6y8DzQwoxC 8srxR++fXXvKwvHHCjPmJI90vIGzSaSfybOxAt96WXhilXzvqQkLIvYRb2XN WOgOySl/ZMtC1iJut7Y/C5W1vMSaZSxYq4p039jIwt0TRlZVYiz0xVfJ5exl 4aSMrdCu90wocmfPbg9lYaSWZ9kQKf+VYHkonGVhnf06r2tVTJQv60i6ncsC Vz2Y9rKFiXNX9svYPWLBuy95Ze8nJhadVRISlSQw0fZW9mQdE6m6s797ZMl9 2G6tWXediX0fRTvnlhM4vcMoz+scE9tXq7W66RM4U/H5+ZtNTIwvXvJAcJwF bdX0zWXbmQhQrDDZakygbW9tqg2LiZ/FEW3GJG8uTxaifVlPntPI45Ar4QRE cvi64pWYoD24lD+6hcAy9yZCTZGJ/jJd60eJBDboEBdZowyMDS8/q3WCQNOC lasWdjLw7/brgoy9BK4ceyikWMTAJmPBNWYMAq4fFCT5ixlY/4gzW5xE4KWQ caBzApk3hueFtscR+BxwppI4zgBzjWh+8XUCZjn+PevYDNi94wmfPkDgqBj1 ZT+DgV+b/u04QebBgfxEu98aDMS1nt7bfofAxa/zD/8j5TVc+rO6DgJjGfKh P8boqG6i/N3+kkBRYsfC/A46EhoV7/59RmDpkvLY1FpS/3eYX53M29d9m99t e0iH3GaRy/7/yDzZOK76IYoOu42ti8W+EHA694PnDNkn3LcpX0ifIeN68yqD Q1507Dty32tdMYG5x1KUDTQ6PNYWL39cRqC34rBGqBwdK35LdX4rJaAfTTlf I0VH3lh21scWAtd8TKr15uyhLi6y+jX5fN76VNf4Hntc9S6IO32JQIC6neib bnv07PD9vEuJnM8RId0gMToilj/X2kHGc3S4319pLh3ndtwJOn2KhTVSAWaW VDpiL2jXh3qzIGY0eMF1CTk/mi7PJjJ/lA5+yHzZZY/2GzKb7xWwcGF/XOif Inswk3P8VMl8iRU/PqGbaI9EyczLPLUs1N7bO5lL4oJ9Sze4e/zv/vgNnR0P OPYQ6rWWYL9mYXVLe4uCiT2UQmRiVfkJBBXNe9wWt8eSpRDgTrFQ8vRzYfw8 jQSKsivllxJIaDCKPMpvD/rBDt5bFAIfLeosr/fTENI/k1azkcDBqyLrC3/S UF+WdmKarIO6QcmpL5/QMHFtzYMJMr6ei3wmwgto+G/JFu91GWTd+B45sXI3 DavHX0l/J+PD4SS5Di4Np0yFPWu2EwhLq47by0uDpwDH2dOO9H+36Lf1XypK KCcM75N1RXl6b+6XVTTEck8233hEoCuNv/eCDw0Xr0aUP+VjI1Lxh6oEKeud +/VlUJuN1Gk/g3ALGn4lmN66YMHGpkmrzJgVNHTTdiu17WGD394sv2shjcyb v1WjB9kwoFeJ6vdQMRGx0JlC9pm8le727uVUxImYPFQLZCPO2OTY8lwqyTO2 fs6/wkb75zMvw2Kp+BnWcnwkgw22wyfZ1Q5UHOzNOOrlwkYBU99vhEaFiWtG sPh1NoTqDk4OrKBidDC+fbqMjTnREMblhVSkew8V3T3Ahvi28j1fOgGtI7kd v83YWKKxm7G/C0g+PzJhFMHGi7YqL+1bwENkMrfHs/GpX9X4UQ6Q6KpvKneY jfstNUWhmSSud62/lDNKgL97+vP0M2C4ZmmSPNm38kc1pK1InP7+8VGX5GME bu8fMP99Bbjp13fj4mEC32iLjB7EAjtuRNXKHSfriUDJsuXBgOC9zn75dFL/ 8c5REXfgaFbgQ3eyLxrEmzj6ARAT6hXo6ySQYsAb910DkGFoaCgNENCQuJvf ywOoJqtJ1ZP5XlzqI9neRUHVSv8vLk8J3AxQNTlSTsG5hcts9fsIHJ69/+Fc EQXOue2NDlJsOKvq/TYLpKCv1m+PCZm/mp1PlyqYUHCYYDyaGiGgOtRi5KND AXWN/3eWOBtPtmiKRbfYIUAbr06QssGmEBFWiR265SrWjOqyIfZlqOxekB2O yvIuINTZCEy2dlquYoeumXL97K8EFsjmzhpcs8UQtanCu5Ds42HucbanbeF5 6NZduXoCDzaGmzd9tkWJJkJkjdlwKCbiVn63hat7TDAfGS/ync8Ts0geq//s mttj8nx+Wksw7x22xc0ruXcTUtkY58l/nyZhi/9c1Fds3MrGh3VzFeeX26Lq x6c3+++S8TOWGMHXYwOvr12URa/YOP7uWPeWUzYQ7grYrfqCPO++r+a/zGzw 9f1jyrb/2Eh5oemms9wGPQvC/Pb+YyMrUt1D9aY1AjMPGia9Y6Pu+sKH6mHW II4uPphTwcbk8nwVL1trJMxyP/qdJ+NX3nRxjpA1GgI/Lkq9wUbQ8UtLWsut ELipXO0AGW+bBUuX+x6yQv/bjs4nZLwHTW830GNYIc5P9M6TGDZylXbRpKyt MHf83i1ZOzY0dEKbNC5aoSWue1XxeQJcb7lWxqwVrFbziT8jcYzagT0q0oQ1 XoVEr3m5gYC9QmpSTYI16tPiAuSNCGy8WiclvcoavoFH8+3Ifvn0mK370y9W 6L7t9VJ0CVmvxKv9k05ZQf9k4s9NogSqa4llcR5WUHoZsiBOgYBJuQMnS9AK 9JyKjnTS3jrC7/TxT5aoHD0jvU2IQGigwY/v2ZbQdX9TZbWQwFBDTHxTiCX4 etypc1IEYi5tt5+UsMTo2JeRBNK+Z6Fljcp3CxxZdrdGW5jAu1qP5MI3Fgjd l5626z8W9jzaENP6wAJ/DiydTG1kIWqonuaWaIGfmsMFUZUsaHIU2l0PWIC7 vl1t6DQLnmvr//vjZIE9Ww71du1jwfBW9jTb2ALvjU5NqW5jYd/aem8KjwXC L7F3GDNZ2PJ+I5/VmDnMX+4Z3yzFQsrt9SuujJpDZ1Xy4eqHTEQLj6mO3zNH QnK5ksIDJu6rZ8aJhpnD6H7jrmFZFg6UGf8WtjWHwU2JTBM2C0bqIjU7usww VBRz4rsH2Y+Wb9OWGjZDhT4zaddmElfF5M0UFJrhlVamxdM2FlT3ppefCzFD tPyTwsFvLJhtzCu+ommGyfCgt8/I9cP8TkX/nCn4DpQvFG9lwUCV98tgiSl4 5gRUP3WR40v6Fd6Em+LC5Yh7VFJ2lWp3uWtjiuFrJmbVmSzo3hS6feKTCQLD 6gqXnWehevSEsESBCdbGFuqWkbguPWmYGHAwgUdQXaQP2c8KXuo27BYyQejb ndp3DrLg0VImlPHBGCoffLN3ubJwhV/+57GfxtCMzZp/QeIwyfj74QJPjBEr 6qjdcZ6Jd//O/Bg+aAz+sRshse5MsLIO1av/NEJI5YKYShUm1NmFGy9vN0Lp ASnP/V8YoLffz1PmNYKVfIhLZAaDrJM7BNvTDBG3ofXTZnuS79ibn/ZXMYRT +tlNgySfVPp355RfjAHe5oa2yz6lo6CkxLjjxWrsdHRK0H1Fh/L6iMULn+gj 5Vpcyu8ROnyarsUoe+hD4vKIxGESB81HFS5IHFsFifh+doQ/A6FRH+MCtfWh qSz4hHaCAR+7mZMqzvqol97no9XBwGrTjP5rVH28Nhd/uEKDif1jIpZRkfpQ I7zvDgYzsc1O6+LEX300GMSvnEhjoqhyRSRvyWr0n+t8atzDhNPH3dr20gZ4 1Tsb+XApiS+w67jBVgMwl0kGO6xhYe7cM+nyOwb4G/56v1ssC4m7b3cYqRpi z9ITeuEPyXi07+bVDDdEQXHk4bl+FvqvNYS3ihlBq8foseQkiW9e8qZ93WuE BrEGj3kDAhzWzab5d0bIE361/ddBAiisGE3uMQIf5exxMbKfB+i+eFJZa4S4 +dIVKmQ9DpP8XvXuhhGktu53Zf0i8EhhTYTvTiMMe07d/9VL4jlzoblUCyNM e05t6nlLoPGX/OiLr4Zo0uahNZA8Ts/gWqRasiGOlwsMPx4j60+qvu8driFu dvkujP1D8jZCyNxb2BAuG0607pdho9HjRNThFgPsUaw6u5fsN9c11gm93maA X3IT9x1F2ehutJAyljJA7sNtGWcmSX0j31Hq09U4vfC38dp+Ek/qOz6dEjbA 9QOFcR4kL6ocWHy3+dBq5Gyau5joR/K66j/WQi366PiVb3mF5HmPVAMW6Tvp Qzfjwun/8aYfC/ZVqvavgt+W5eJdJD57ffb4G8stq2B2np2gpU7yUEUT6sc8 PVynsk3zbAhYeLrP7dDXQ0/wmNdGOoFxW+b+B9SVaFo6d+YAySfkD/cfMMnS xSRvoKw3QcBqR7rxtkRdvOakTLnHkPj7Zabp9UJdXIrckNpG4vcvXA1+HfZK 5Ezk0Qz/dx8/oVEuwl8XAbStDgKNBEJOzzHWx+qgXL/k1+MGAp56L74Va+ug nufDy/I60l4ptyakQBu8qVPbBkjZlVUmNS2vjdzZkKSxdpKvOHe2LqdoQVPi n982Ek//qriXHaKphcWZLQEuFeR5a1/vqX6mCdH3goofYglEmyh7mGpqouHj EoFrJH4MCM4wx14NfBl61RhH6oV8K17xm2qAz/lf9I8Ikn9ceHzk1GYNLO6s /7PegsCe/neelirqWKlbSJ0k9bob+1+IJKzA0E3TdmNnArStjGbu2hWIZX2Z NKcSkFvEp/tgUI0EYJ6dReIkPzLp3U/fqYaB+8sWD5F4PuqJ+dFdl1RBzC7Y N0r2G7HwjBST5ar4OZtxIl+TwNa17QoPnqiAb5i55zjJ38I0b3X/NlPBe5Vl F8xIfqrJuvdmcIEKvmdvid9WzcKC8x85oWeVsCji25EtZD1ttBwxDLiwHDZO swmyhSSel0kzd1q4HBn/FP6UpbCgIvP70JLQ5fh0ln9fiAsLoZYzQ/fSlKCn LOH5S5kFO8mHvN2rVDFM9OjLljBRz9L/kdChip3CFb+XRTHRttRls+h5VfAu emE4upHk+8YrXi14r4Kw4oQtQtuY8OuUm0nRUYH77oopfW8mhn/+TKmbV8JN SYHvHF8mEndkD3YLKyHZqH90sSvJO9VsFtydUoTJxksn9noxYWK2dzSwSwHm AenDVxyZsMi2C+2dlEf4W+XCfiYTPWdMFv5Ulkd9ocweDyMmSvhNyxWzlmF4 cPZcCslbS2LLqztSluGH9SsBZ5Knqm9jhLkfk8N9+iPj9HEGaf9pl5aQLG5d e/oy9BcDBeFWThGeMjAyvsC2/d/nYRUc/yh+GfgYdDCO1DJg4K1yfpGLNEQa t176WsWATXd1Pu87KXi+XnMgPomBXAfRJdsfSsJaYGq25RQDgot/RWd1SkBw w1RU7SEGPOwyKwYPi4Nj7O5Sduh/76tW29QfIY6KIO0a6joGojuTJ+0jxbH1 0gWXO9YMDFjWpXRni0O2LfvLWWEGaqNSKvdpiOHok7BbZZKknnfbxpIhESQ+ /LRUe4aO2n0lAumaS8FyutKwfpSOU6tycofOCZMA/r+Tj8j+0Wi4vjnmzxIc G9mz3e8mHWK706WevxeEZfF8uvMlOt6Ob1pjKygI95YslwcJ5Pil9eKfFRfj QGCyvbojHdHMdh4L2SXwrO5MMtKgI7DE4y9zeDFK9Rm9twToUMkosGC1CGDv uS8S6Tx0rI2fXlNwnx8HV/EQfQP2+NU4bhUxzocK/6JrJs32CI1Vr/rXJ4Aw rmhuQI49XvfLK+ouXYLELXK/UmPt0cy3qzbDSAJzXzuWfyZ550BlZfXGdims N1Hlp2y2R26y72NBUVmgRnNDkY09uFXvU4VjpNH8wuir1nJ7rPXzH0qcloKT g8gi+Uka9r13MX5DkcLZ3QsGDn6nYa3CurOsXxJguz85b/WKhtwNhVbXj0qg NNQ2vqWGhlATVcF1khI4eN+rc+Q0DR4n17xTMBSHS/L6n97/e7+29WleMw8x BPMEU3t8aeR5VL80UxdB+bovjreCabAImc26xBCGw/b130LdaQh8d7e/d7kQ +sNjQj6RPNWjskotiNz/ZJ7OSMKYfN75lTQ+bwH8N1/h7aBJ+j8oqNN+YjGq Xy58PvWdirXWzK3hTQLYsu5RkPNnKiye1sx1NQsg6MjPowP3qEgMLjr4m4cP UU68bZdaqJB70LdbWYcPZjG5UavzqVA5IPCeCOTB9OU6kejzVPjMj2sLf+SF mmbZ5MUgKrI2S/qeOc0D9R3f6yq2UhFoV62nn8uLa9xXll9NqTDwz7BbFD5P qR/i2/XciPT3s9jtTeM0ReyGVWalKinvr/ONOveXMuMZHbBSiYpcKXe/0kt/ KQNj6xaZ9wOltHve1KJRSopFTYnSe0Clsq139udPilTbLh77x0Btb0PClf4h im/yirMfbpL6mwu7WZ0jlAyRwEeLD5HyoQ02HXU9lNfjUq6TviRRNO3ROvx1 hLI59tD5bE0g+oJzWXVwH8XnxbHKQkVgQV3Xi/O3HlPmw4N4ZsYpgEJiG7vq I8WqRsVF/Copy64Tay/qoag8+Eur8qeg1k7mv+Zdnyn3RqLFvFdRsGCbyRXz 24MUrvLzLMZrOywYf75qbm8zRWbzCw+3HDtE586JsN58pBzp/1T0mULq+7O3 mt6qoXBF1dw/GNuh9oqI3Q77NsrfBa8tj9y2/f/f/as5ja3SiLJF9N1b2fmX 2yh1e/+k6a3+3++Y5bJXK/ZTVL/lbM+YI3nYCh7XKdvvlM+XPVwknpPyTd2s kNExyrT4+WWyr2zw63ezqpXJHCWxrrxZhhxfGpZoH6EzQzl/ZtDy2lsbWNxM cz5jxwP5qNGSJy9sIJfN6D1fuhBOGb/z7ny0wQKa9uN/KXwIiLs77dpqg9x9 j8pDI/igzBd5xvu6DUJXyiyJO74YHrVzMReLyPFhYcfC6Ivxc2sgq/uwDV57 mZx8JS8EO9m9d2vopH+VjzMzsUvQtjtass7R5n/vyfp+wFgMAcIbZ71ImRj0 XnsvThxnDAScV963Qe3KwHqlRincrPfNjOKxxf8BJSo8kQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.5], LineBox[CompressedData[" 1:eJxF3WP0Lee35fFf1a6dcu3YOrFt2zyxbdu2becf27aNE9u2nfSY9zvX6Fef mmeMvn07Odn11FrrWT1s4x2Gb58ODQ3dNObQkEyG/r99O5L/rGdzP2e28HPf ln6u/H+2thPaifw/o7MDO5n/Z41qR7NT+3/mmHYsO4P/7xjXjmdn9f+djZ3Y z60d5ufOTuLnSf2/y8h2cj+PYqfw86h2Sj9P5f9dR7fT+HkMO62fx7TT+Xl6 /79lbDujn8exM/l5XDuzn2fx/1vHt7P5eQI7u58ntHP4eU7/s5/LnmPP9T+j ee189iL/s1rQLmQv8z+zRe1i9mr/M1zSLmVv8L/bZe1y9lb/M17RrmTv8j/r Veyq9n7/M1/Drmkf8b+Ddey69skh/u5sYDe0z/nf0SZ2U/uS/11tYbe0r/vf 2TZ2W/uO/x3uYHe0Hw7xd3MXu6v9zP+O97B72q/973ofu6/9YYh/5wfYA+2v Q/wdOMQeav8a4u/+EfZIq/+I9XfkmCE81vYT/q6cMIQn2irh78wpQ3iqHST8 HTpjCM+0oyf8nZp7CM/z8zz2fD/Pay/w84VD/F2b317s5wXs//y8oL3Ez5cO 8XdxYXu5nxexV/h5UXuln68a4u/q4vYaPy9hr/XzkvY6P18/xN/lpe2Nfl7G 3uTnZe3Nfr5liL/ry9vb/LyCvd3PK9o7/HznEP8trGzv9vNwe4+fV7H3+vm+ If5bWc0+4OfV7YN+XsM+5OeHh/hvaS37qJ/Xto/5eR37uJ+fGOK/tfXsU35e 3z7t5w3sM35+doj/Fjeyz/t5Y/uCnzexL/p5xBD/rW5mX/bz5vYVP29hX/Xz a0P8t7yVfcPPW9s3/byNfcvPbw/x3/p29l0/b2/f8/MO9n0/fzDEb8FO9iM/ 72w/9vMu9hM/fzrEb8Vu9nM/726/8PMe9ks/fzXEb8le9hs/722/9fM+9js/ fz/Eb81+9kc/729/8vMB9mc//zLEb9FB9jc/H2x/9/Mh9g8//znEb9Vh9m8/ H27/8fMR9l8//zfEb9lRNkl4Ptp/liY8H+M/6yU8Zwm/dccN4UgJz8f7z/KE 5xP8Z0XCc5nwW3jSENYJzyf7z5qE51P8Z23Cc5fwW3naEI6c8Hy6/2yUhOcz /GejJjyPlvBbetYQjpHwfLb/bMyE53P8Z2MlPI+d8O4ex55mT0/4DR7HjmvP TPgtHteOZ89O+E0ez45vz034jR7fTmDPTzgbTGAntBcm/IZPaCeyFyf8lk9k J7aXJPymT2yH2csSfuOH2UnsFYnPHnZSe1XCO2BSO5m9JuFdMJmd3F6X8E6Y 3E5hb0h4R0xhp7Q3JZxtprRT2VsS3iFT2antbQnvkqntNPaOhHfKNHZae1fC O2ZaO529J+HsNJ2d3t6X8A6a3s5gH0h4F81gZ7QPJbyTZrQz2UcS3lEz2Znt Ywlns5ntLPaJhHfYLHZW+1TCu2xWO5t9JuGdNpud3T6X8I6b3c5hX0g4+81h 57QjEt6Bc9q57MsJ78K57Nz21YR34tx2Hvt6wjtyHjuvfTPhbDmvnc++nfAO nc/Ob99NeJfObxew7ye8UxewC9oPE96xC9qF7McJZ9eF7ML204R38MJ2Eft5 wrt4Ebuo/TLhnbyoXcx+nfCOXswubr9NOBsvbpew3ye8w5ewS9ofE97lS9ql 7M8J7/Sl7NL214R3/NJ2Gft7wtl7Gbus/TPhDLCsXc7+nXAWWM4ub/9NOBMs b1ew+jgd4SxXtGnK2V5ZrmSzlDOEslzZjpRyllCWw22RcqZQlqvYKuWMoSxX tU3Kt4OyXM12KWcQZbm6HTnlLKIs17CjppxJlOWadvSUM4qyXMuOmfJtoizX tmOnnGGU5Tp23JSzjLJc146fcqZRluvZCVPOOMpyfTtxyrePstzATpJyBlKW G9rJUs5CynIjO0XKmUhZbmynSjkjKctN7DQp31bKclM7XcoZSlluZmdIOUsp y83tTClnKmW5hZ0l5YylLLe0s6V8uynLrewcKWcwZbm1nSvlLKYst7HzpJzJ lOW2dr6UM5qy3M4ukPJtqCy3twulnOGU5Q52kZSznLLc0S6WcqZTljvZJVLO eMpyZ7tUyrenstzFLpNyBlSWu9rlUs6CynI3u0LKmVBZ7m5XSjkjKss97PCU b1tluaddNeUMqSz3squnnCWV5d52zZQzpbLcx66dcsZUlvvadV0IU5b72fVT zqDKcn+7YcpZVFkeYDdOOZMqywPtpilnVGV5kN085dtcWR5st0w5wyrLQ+zW KWdZZXmo3TblTKssD7Mq+JXO8nC7Y8q3v7I8wu6ccgZWlkfaXVPOwsryKLt7 yplYWR5t90w5IyvLY+zeKbUFZXms3TflDK0sj7P7p5ylleXx9sCUM7WyPMEe nHLGVpYn2kNTahfK8iR7eMoZXFmebI9MOYsry1Ps0SlncmV5qj025YyuLE+z x6eczc9IOIuflXD2PifhrH1ewtn6gsRn68Rn54Sz8qUJZ+PLE87CVyacfa9O OOtem3C2vT7hLHtjwtn15oSz6q0JZ9PbE86idyacPe9OOGvem3C2vD/hLPlg wtnx4YSz4qMJZ8PHE86CTyac/Z5OOOs9m3C2ez7hLPdiwtntpYSz2isJZ7PX Es5ibyScvd5KOGu9k3C2ei/hLPVBwtnpo4Sz0icJZ6PPEs5CXyScfb5KOOt8 k3C2+S7hLPNDwtnlp4Szyi8JZ5PfEs4ifyScPf5KOGv8k3C2+C/hLJGknB16 KWeFfsrZIE85C5Qp7/465V3fprzbBynv8lFS3t2jpbyrx0h5N4+V8i4eJ+Xd O17Ku3aClHfrRCnv0mEp785JU96Vk6e8G6dMeRdOnfLumzblXTd9yrttxpR3 2cwp765ZU95Vs6e8m+ZMeRfNnfLumTflXTN/yrtlwZR3ycIp745FU94Vi6e8 G5ZMeRcsnfLbv2zKb/3yKb/tK6b8lq+c8tu9Sspv9Wopv81rpPwWr5Xy27tO ym/teim/rRuk/JZulPLbuUnKb+VmKb+NW6T8Fm6V8tu3Tcpv3XYpv207pPyW 7ZTy27VLym/Vbim/TXuk/BbtlfLbs0/Kb81+Kb8tB6T8lhyU8ttxSMpvxWEp vw1HpPwWHJXy3/4xKf+tH5fy3/oJKd/iJ9qjenh0j//29efyJHtsj290ZXmy Pb7Hb4SyPMWe2OPbXVmeak/u8VuiLE+zp/b4pleWp4c9fnOU5Rn2zB7f+sry THt2j98mZXmWPbdHDUBZnm3P7/EbpizPsRf2qA0oy3PtxT1+65TlefaSHjUD ZXm+vazHb6KyvMBe0aOWoCwvtFf1+O1UlhfZa3rUGJTlxfa6Hr+xyvJ/9oYe tQdleYm9qcdvsbK81N7SoyahLC+zt/X4zVaWl9s7etQqlOUV9q4ev+3K8kp7 T48ahvL/1TLsfT3eAcryavtAz7WNFK+xD/V4VyjLa+0jPWoeyvI6+1iPd4qy vN4+0aMWoixvsE/1ePcoyxvtMz1qJMryJvtcj3eUsrzZvtCjdqIsb7EjerzL lOWt9uUeNRVleZt9tcc7T1nebl/vUWtRlnfYN3u8G5XlnfbtHjUYZXmXfbfH O1RZ3m3f71GbUZb32A97vGuV5b324x41G2V5n/20xztZWd5vP+9Ry1GWD9gv e7y7leWD9useNR5l+ZD9tsc7Xlk+bL/vUftRlo/YH3ucBZTlo/bnHjUhZfmY /bXHmUFZPm5/71ErUpZP2D97nC2U5ZP27x41JGX5lP23xxlEWT5t1awe4Syf sWnGWUVZPmuzjJqTsnzOjpRxplGWz9sioxalLF+wVcbZR1m+aJuMGpWyHGG7 jDOSsnzJjpxRu1KWL9tRM85SyvIVO3pGTUtZvmrHzDhzKcvX7NgZtS5l+bod N+NspizfsONn1MCU5Zt2wowznLJ8y06cURtTlm/bSTLOesryHTtZRs1MWb5r p8g4EyrL9+xUGbU0Zfm+nSbj7KgsP7DTZdTYlOWHdoaMM6ay/MjOlFF7U5Yf 21kyzqLK8hM7W0ZNTll+aufIOLMqy8/sXBm1OmX5uZ0n42yrLL+w82XU8JTl l3aBjDOwsvzKLpRR21OWX9tFMs7KyvIbu1hGzU9ZfmuXyDhTK8vv7FIZtUBl +b1dJuPsrSx/sMtl1AiV5Y92hYwzurL8ya6UUTtUlj/b4RlneWX5i101o6ao LH+1q2ec+ZXlb3bNjFqjsvzdrp3xbaAs/7DravglJcs/7foZ3xDK8i+7YUZt Uln+bTfO+NZQlv/YTTNqlsryX7t5xjeJsvzPbplRy1SWGtaRW2d8uyjLxG6b UeNUlqndPuMbR1n27I4ZtU9lmdmdM76FlGXf7ppRE1WWI9ndM76ZlGVu98yo lSrLwu6d8W2lLEu7b0YNVVlWdv+MbzBlWdsDM2qryrKxB2d8qynL1h6aUXNV lp09POObTlkO7JEZtVhlObI9OuPbT1mOYo/NqNEqy1Ht8RnfiMpyNHtiRu1W WY5uT874llSWY9hTM2q6ynJMe3rGN6eyHMuemVHrVZZj27Mzvk2V5Tj23Iwa sLIc156f8Q2rLMezF2bUhpXl+PbijG9dZTmBvSSjZqwsJ7SXZXwTK8uJ7BUZ tWRlObG9KuPbWVkOs9dk1JiV5ST2uoxvbGU5qb0ho/asLCezN2V8iyvLye0t GTVpZTmFvS3jm11ZTmnvyKhVK8up7F0Z3/bKcmp7T0YNW1lOY+/LqAEoy2nt Axm1bWU5nX0oo1agLKe3j2TUvJXlDPaxjJqCspzRPpFRC1eWM9mnMmoPynJm +0xGjVxZzmKfy6hRKMtZ7QsZtXNlOZsdkVHLUJaz25czaurKcg77akbNQ1nO aV/PqLUry7nsmxm1EWU5t307owavLOex72bUUJTlvPb9jNq8spzPfphRa1GW 89uPM2r2ynIB+2lGTUZZLmg/z6jlK8uF7JcZtRtlubD9OqPGrywXsd9m1HiU 5aL2+4zav7JczP6YUQtSlovbnzN6AspyCftrRs1IWS5pf8/oFSjLpeyfGbUl Zbm0/Tujh6Asl7H/ZtSglOWyVkOqw53lcjbtU6tSlsvbrE/PQVmuYEfqU9NS livaok8vQlmuZKs+tS9lubJt+vQolOVw2/WpkSnLVezIfXoXynJVO2qfWpqy XM2O3qenoSxXt2P2qbkpyzXs2H16HcpyTTtun9qcslzLjt+nB6Is17YT9qnh Kct17MR9eiPKcl07SZ9an7Jcz07Wp2eiLNe3U/SpCSrLDexUfXopynJDO02f 2qGy3MhO16fHoiw3tjP0qTEqy03sTH16L8pyUztLn1qkstzMztanJ6MsN7dz 9KlZKsst7Fx9ejXKcks7T5/aprLcys7Xp4ejLLe2C/SpgSrLbexCfXo7ynJb u0ifWqmy3M4u1qfnoyy3t0v0qakqyx3sUn16QcpyR7tMn9qrstzJLtenR6Qs d7Yr9KnRKstd7Ep9ekfKclc7vE8tV1nuZlft01NSlrvb1fvUfJXlHnbNPr0m ZbmnXbtPbVhZ7mXX7dODUpZ72/X71JCV5T52wz69KWW5r924T61ZWe5nN+3T s1KW+9vN+9SkleUBdss+vSxleaDduk/tWlkeZLft0+NSlgfb7fvUuJXlIXbH Pr0vZXmo3blPLVxZHmZ37dMTU5aH29371MyV5RF2zz69MmV5pN27T21dWR5l 9+1TUz+mRw39uB418xN61MhP6lETP6VHDfy0HjXvM3rUuM/qUdM+p0cN+7we NesLeq5Z91yT7lGDvrRHzfnyHjXmK3vUlK/uUUO+tkfN+PoeNeIbe9SEb+5R A761R8339h413jt71HTv7lHDvbdHzfb+HjXaB3vUZB/uUYN9tEfN9fEeNdYn e9RUn+5RQ322R830+R410hd71ERf6lEDfaVHzfO1HjXON3rUNN/qUcN8p0fN 8r0eNcoPetQkP+pRg/ykR83xsx41xi961BS/6lFD/KZHzfC7HjXCH3rUBH/q UQP8pUfN77ceNb4/etT0/upRw/unR83uvx41uiSjJtfLqMH1M2pueUaNrcyo qdUZNbQ2o2Y2yKiRjZJRExstowY2RkbNa6yMGtc4GTWt8TJqWBNk1KwmyqhR DcuoSU2aUYOaPKPmNGVGjWnqjJrStBk1pOkzakYzZtSIZs6oCc2aUQOaPaPm M2dGjWfujJrOvBk1nPkzajYLZtRoFs6oySyaUYNZPKPmsmRGjWXpjJrKshk1 lOUzaiYrZtRIVs6oiaySUQNZLaPmsUZGjWOtjJrGOhk1jPUyahYbZNQoNsqo SWySUYPYLKPmsEVGjWGrjJrCNhk1hO0yagY7ZNQIdsqoCeySUQPYLeObf4+M b/y9Mr7p98n4ht8v45v9gIxv9IMyvskPyfgGPyzjm/uIjG/sozK+qY/J+IY+ LuOb+YSMb+STMr6JT8n4Bj4t45v3jIxv3LMyvmnPyfiGPS/jm/WCjG/UizK+ Sf+X8Q16acY35+UZ35hXZnxTXp3xDXltxjfj9RnfiDdmfBPenPENeGvGN9/t Gd94d2Z8092d8Q13b8Y32/0Z32gPZnyTPZzxDfZoxjfX4xnfWE9mfFM9nfEN 9WzGN9PzGd9IL2Z8E72U8Q30SsY3z2sZ3zhvZHzTvJXxDfNOxjfLexnfKB9k fJN8lPEN8knGN8dnGd8YX2R8U3yV8Q3xTcY3w3cZ3wg/ZHwT/JTxDfBLxpn/ t4wz/h8ZZ/q/Ms7w/2Sc2f/LOKMnfc7kvT5n8H6fM3fe54xd9jlT133O0G2f M/Ogzxl5lD5n4tH6nIHH6HPmHavPGXecPmfa8fqcYSfoc2adqM8ZdVifM+mk fc6gk/c5c07Z54w5dZ8z5bR9zpDT9zkzztjnjDhznzPhrH3OgLP3OfPN2eeM N3efM928fc5w8/c5sy3Y54y2cJ8z2aJ9zmCL9zlzLdnnjLV0nzPVsn3OUMv3 OTOt2OeMtHKfM9Eqfc5Aq/U586zR54yzVp8zzTp9zjDr9TmzbNDnjLJRnzPJ Jn3OIJv1OXNs0eeMsVWfM8U2fc4Q2/U5M+zQ54ywU58zwS59zgC79Xnn79Hn Hb9Xn3f6Pn3e6fv16ZXvb3fKceecd7z+XB5gd83poSvLA+3uOWcBZXmQ3TOn t64sD7Z755wZlOUhdt+cnruyPNTun3O2UJaH2QNzevHK8nB7cM4ZRFkeYQ/N 6dEryyPt4TlnFWV5lD0yp3evLI8Oc840yvIYe2xOT19ZHmuPzzn7KMvj7Ik5 vX5lebw9OeeMpCxPsKfmzAAoyxPt6TlnKWV5kj0zZzZAWZ5sz845cynLU+y5 OTMDyvJUe37O2UxZnmYvzJklUJan24tzznDK8gx7Sc6MgbI8016Wc9ZTlmfZ K3JmD5Tl2faqnDOhsjzHXpMzk6Asz7XX5ZwdleV59oacWQVleb69KeeMqSwv sLfkzDAoywvtbTlnUWV5kb0jZ7ZBWV5s78o5syr/39nV3pMz86AsL7H35T7b 9vFS+0DOLISyvMw+lHMGVpaX20dyZiSU5RX2sZyzsrK80j6RMzuhLK+yT+Wc qZXl1faZnJkKZXmNfS7n7K0sr7Uv5MxaKMvr7IicM7qyvN6+nDODofx/sxj2 1ZyzvLK80b6eezajjzfZN3PO/MryZvt2zsyGsrzFvpvzbaAsb7Xv58xyKMvb 7Ic53xDK8nb7cc6Mh7K8w36a862hLO+0n+fMfijLu+yXOd8kyvJu+3XOTIiy vMd+m/Ptoizvtd/nzIooy/vsjznfOMryfvtzzgyJsnzA/przLaQsH7S/58yW KMuH7J8530zK8mH7d87MibJ8xP6b822lLB+1urw+wlk+ZtOCbzBl+bjNCmZU lOUTdqSCbzVl+aQtCmZXlOVTtir4plOWT9umYKZFWT5ju4JvP2X5rB25YNZF WT5nRy34RlSWz9vRC2ZglOULdsyCb0ll+aIdu2A2RlmOsOMWfHMqy5fs+AUz M8ryZTthwbepsnzFTlwwS6MsX7WTFHzDKsvX7GQFMzbK8nU7RcG3rrJ8w05V MHujLN+00xR8EyvLt+x0BTM5yvJtO0PBt7OyfMfOVDCroyzftbMUfGMry/fs bAUzPMryfTtHwbe4svzAzlUw26MsP7TzFHyzK8uP7HwFMz/K8mO7QMG3vbL8 xC5UMAukLD+1ixTUAJTlZ3axghkhZfm5XaKgVqAsv7BLFcwOKcsv7TIFNQVl +ZVdrmCmSFl+bVcoqD0oy2/sSgWzRsryWzu8oEahLL+zqxbMICnL7+3qBbUM ZfmDXbNgNklZ/mjXLqh5KMuf7LpetKEsf7brF9RGlOUvdsOCWSZl+avduKCG oix/s5sWzDgpy9/t5gW1FmX5h92yYPZJWf5pty6oySjLv+y2BTNRyvJvu31B 7UZZ/mN3LJiVUpb/2p0LajzK8j+7a8EMlbLUshG5e0EtSFkmds+C2Splmdq9 C2pGyrJn9y2YuVKWmd2/oLakLPv2wIJZLGU5kj24oAalLHN7aMGMlrIs7OEF tSplWdojC2a3lGVljy6oaSnL2h5bMNOlLBt7fEHtS1m29sSCWS9l2dmTC2pk ynJgTy2YAVOWI9vTC2ppynIUe2bBbJiyHNWeXVBzU5aj2XMLZsaU5ej2/ILa nLIcw15YMEumLMe0FxfU8JTlWPaSghkzZTm2vayg1qcsx7FXFMyeKctx7VUF NUFlOZ69pmAmTVmOb68rqB0qywnsDQWzaspyQntTQY1RWU5kbymYYVOWE9vb CmqRynKYvaNgtk1ZTmLvKqhZKstJ7T0FM2/KcjJ7X0FtU1lObh8omIVTllPY hwpqoMpySvtIwYycspzKPlZQK1WWU9snCmbnlOU09qmCmqqynNY+UzBTpyyn s88V1F6V5fT2hYJZO2U5gx1RUKNVljPalwtm8JTlTPbVglquspzZvl4wm6cs Z7FvFtR8leWs9u2CmT1lOZt9t6A2rCxnt+8XzPIpyznshwU1ZGU5p/24YMZP Wc5lPy2oNSvLue3nBbN/ynIe+2VBTVpZzmu/LpgJVJbz2W8LatfKcn77fcGs oLJcwP5YUONWlgvanwtmCJXlQvbXglq4slzY/l4wW6gsF7F/FtTMleWi9u+C mUNluZj9t6C2riwXt1pSNdxZLmHTkhq8slzSZiUzispyKTtSSa1eWS5ti5LZ RWW5jK1KavrKclnblMw0KsvlbFdS+1eWy9uRS2YdleUKdtSSHoGyXNGOXjID qSxXsmOW9BKU5cp27JLZSGU53I5b0nNQlqvY8UtmJpXlqnbCkt6EslzNTlwy S6ksV7eTlPQwlOUadrKSGUtluaadoqTXoSzXslOVzF4qy7XtNCU9EWW5jp2u ZCZTWa5rZyjpnSjL9exMJbOaynJ9O0tJj0VZbmBnK5nhVJYb2jlKejHKciM7 V8lsp7Lc2M5T0rNRlpvY+UpmPpXlpnaBkt6OstzMLlQyC6osN7eLlPSAlOUW drGSGVFluaVdoqRXpCy3skuVzI4qy63tMiU9JWW5jV2uZKZUWW5rVyjpPSnL 7exKJbOmynJ7O7ykR6Usd7CrlsygKssd7eolvSxluZNds2Q2VVnubNcu6Xkp y13suiUzq8pyV7t+SW9MWe5mNyyZZVWWu9uNS3poynIPu2nJjKuy3NNuXtJr U5Z72S1LZl+V5d5265KenLLcx25bMhOrLPe125f07pTlfnbHkllZZbm/3bmk x6csD7C7lszQKssD7e4lvUBleZDds2S2VlkebPcu6Rkqy0PsviUzt8ryULt/ SW9RWR5mDyyZxVWWh9uDS3qQyvIIe2jJjK6yPNIeXtKrVJZH2SNLZneV5dFh SU9TWR5jjy2Z6VWWx9rjS3qfyvI4e2LJrK+yPN6eXNIjVZYn2FNLZoCV5Yn2 9JJeqrI8yZ5ZMhusLE+2Z5f0XJXlKfbckplhZXmqPb+kN6ssT7MXlswSK8vT 7cUlPVxleYa9pGTGWFmeaS8r6fUqy7PsFSWzx8rybHtVSU9YWZ5jrymZSVaW 59rrSnrHyvI8e0PJrLKyPN/eVNJjVpYX2FtKZpiV5YX2tpJetLK8yN5RMtus LC+2d5X0rJXl/+w9JTPPyvISe19Jb1tZXmofKJmFVpaX2YdKeuDK8nL7SMmM tLK8wj5W0itXllfaJ0pmp5XlVfapkp66srzaPlMyU60sr7HPlfTeleW19oWS WWtleZ0dUdKjV5bX25dLZrCV5Q321ZJevrK80b5eMputLG+yb5b0/JXlzfbt kpltZXmLfbdkNkBZ3mrfL5nlVpa32Q9LZgiU5e3245IZb2V5h/20ZNZAWd5p Py+Z/VaWd9kvS2YSlOXd9uuSmXBleY/9tmR2QVnea78vmRVXlvfZH0tmHJTl /fbnkhlyZfmA/bVkFkJZPmh/L5ktV5YP2T9LZiaU5cP275KZc2X5iP23ZLZC WT5qtYx2hLN8zKYVMxjK8nGbVcyoK8sn7EgVsxrK8klbVMyuK8unbFUx06Es n7ZNxUy7snzGdhWzH8ryWTtyxay7snzOjloxI6Isn7ejV8zAK8sX7JgVsyTK 8kU7dsVsvLIcYcetmDlRli/Z8Stm5pXly3bCitkUZfmKnbhill5ZvmonqZhh UZav2ckqZuyV5et2iopZF2X5hp2qYvZeWb5pp6mYiVGWb9npKmbyleXbdoaK 2Rll+Y6dqWJWX1m+a2epmLFRlu/Z2Spm+JXl+3aOilkcZfmBnatitl9Zfmjn qZjZUZYf2fkqZv6V5cd2gYrZHmX5iV2o4i6AsvzULlIxA6QsP7OLVdwRUJaf 2yUqZoWU5Rd2qYq7A8ryS7tMxUyRsvzKLldxp0BZfm1XqJg9Upbf2JUq7hoo y2/t8IoZJWX5nV214g6Csvzerl4xy6Qsf7BrVtxNUJY/2rUrZp6U5U923Yo7 C8ryZ7t+xWyUsvzFblhxl0FZ/mo3rpihUpa/2U0r7jgoy9/t5hWzVsryD7tl xd0HZfmn3bpiJktZ/mW3rbgToSz/tttXzG4py3/sjhV3JZTlv3bnihkvZfmf 3bXiDoWy1FJxuXvFLJiyTOyeFXcrlGVq966YGVOWPbtvxZ0LZZnZ/Stmy5Rl 3x5YcRdDWY5kD66YQVOWuT204o6Gsizs4RWzasqytEdW3N1QlpU9umKmTVnW 9tiKOx3KsrHHV8y+KcvWnlhx10NZdvbkihk5ZTmwp1bcAVGWI9vTK2bplOUo 9syKuyHKclR7dsXMnbIczZ5bcWdEWY5uz6+YzVOWY9gLK+6SKMsx7cUVM3zK cix7ScUdE2U5tr2sYtZPWY5jr6i4e6Isx7VXVcwEKsvx7DUVd1KU5fj2uorZ QWU5gb2h4q6KspzQ3lQxY6gsJ7K3VNxhUZYT29sqZhGV5TB7R8XdFmU5ib2r YmZRWU5q76m486IsJ7P3Vcw2KsvJ7QMVd2GU5RT2oYoZSGU5pX2k4o6MspzK PlYxK6ksp7ZPVNydUZbT2KcqZiqV5bT2mYo7NcpyOvtcxeylspzevlBx10ZZ zmBHVMxoKssZ7csVd3CU5Uz21YpZTmU5s3294m6OspzFvlkx86ksZ7VvV9zZ UZaz2XcrZkOV5ez2/Yq7PMpyDvthxQypspzTflxxx0dZzmU/rZg1VZZz288r 7v4oy3nslxUzqcpyXvt1xZ0gZTmf/bZidlVZzm+/r7grpCwXsD9WzLgqywXt zxV3iJTlQvbXillYZbmw/b3ibpGyXMT+WTEzqywXtX9X3DlSlovZfytma5Xl 4lb/n08Md5ZL2LRmBldZLmmzmjtKynIpO1LNrK6yXNoWNXeXlOUytqqZ6VWW y9qm5k6TslzOdjWzv8pyeTtyzV0nZbmCHbVmRlhZrmhHr7kDpSxXsmPWzBIr y5Xt2DV3o5TlcDtuzcyxslzFjl9zZ0pZrmonrJlNVpar2Ylr7lIpy9XtJDUz zMpyDTtZzR0rZbmmnaJm1llZrmWnqrl7pSzXttPUzEQry3XsdDV3spTlunaG mtlpZbmenanmrpayXN/OUjNjrSw3sLPV3OFSlhvaOWpmsZXlRnaumrtdynJj O0/NzLay3MTOV3PnS1luaheome1WlpvZhWruginLze0iNTPgynILu1jNHTFl uaVdomZWXFluZZequTumLLe2y9TMlCvLbexyNXfKlOW2doWa2XNluZ1dqeau mbLc3g6vmVFXljvYVWvuoCnLHe3qNbPsynInu2bNDPsuOTPru+XMqO+RM5O+ V84M+j45M+f75cyYH5AzU35Qzgz5ITkz44flzIgfkTMTflTODPgxOTPfx+XM eJ+QM9N9Us4M9yk5M9un5cxon5Ezk31Wzgz2OTkz1+flzFhfkHvGOvcMdc7M 9KU5M9KX58xEX5kzA311zszztTkzztfnzDTfmDPDfHPOzPKtOTPKt+fMJN+Z M4N8d87M8b05M8b358wUP5gzQ/xwzszwozkzwo/nzAQ/mTMD/HTOzO+zOTO+ z+fM9L6YM8P7Us7M7is5M7qv5czkvpEzg/tWzsztOzkztu/lzNR+kDND+1HO zOwnOTOyn+XMxH6RMwP7Vc7M6zc5M67f5cy0/pAzw/pTzszqLzkzqr/lzKT+ kTOD+lfOzOk/OTOm/+XMlCYFM6S9gpnRfsGMaF4wE1oWzIDWBTOfbcGM56Bg pnOUghnO0QpmNscomNEcq2Amc5yCGczxCmYuJyiYsZyoYKZyWMEM5aQFM5OT F8xITlkwEzl1wQzktAUzj9MXzDjOWDDTOHPBDOOsBTOLsxfMKM5ZMJM4d8EM 4rwFM4fzF8wYLlgwU7hwwQzhogUzg4sXzAguWTATuHTBDOCyBTN/yxfM+K1Y MNO3csEM3yoFM3urFczorVEwk7dWwQzeOgUzd+sVzNhtUDBTt1HBDN0mBTNz mxXMyG1RMBO3VcEM3DYFM2/bFcy47VAw07ZTwQzbLgUza7sVzKjtUTCTtlfB DNo+BTNn+xXMmB1QMFN2UMEM2SEFM2OHFcyIHVEwE3ZUwQzYMQUzX8cVzHid UDDTdVLBDNcpBTNbpxXMaJ1RMJN1VsEM1jkFM1fnFcxYXVAwU3VRwQzV/wpm pi4tmJG6vGAm6sqCGairC2aeri2Ycbq+YKbpxoIZppsLZpZuLZhRur1gJunO ghmkuwtmju4tmDG6v2Cm6MGCGaKHC2aGHi2YEXq8YCboyYIZoKcLZn6eLZjx eb5gpufFghmelwpmdl4pmNF5rWAm542CGZy3CmZu3imYsXmvYKbmg4IZmo8K ZmY+KZiR+axgJuaLghmYrwpmXr4pmHH5rmCm5YeCGZafCmZWfimYUfmtYCbl j4IZlL8KZk7+KZgx+a9gpiQpmSHplcyM9EtmRPKSmZCyZAakLpn5aEtmPAYl Mx2jlMxwjFYyszFGyYzGWCUzGeOUzGCMVzJzMUHJjMVEJTMVw0pmKCYtmZmY vGRGYsqSmYipS2Ygpi2ZeZi+ZMZhxpKZhplLZhhmLZlZmL1kRmHOkpmEuUtm EOYtmTmYv2TGYMGSmYKFS2YIFi2ZGVi8ZEZgyZKZgKVLZgCWLen5L1/S41+x pKe/ckkPf5WSnv1qJT36NUp68muV9ODXKem5r1fSY9+gpKe+UUkPfZOSnvlm JT3yLUp64luV9MC3Kel5b1fS496hpKe9U0kPe5eSnvVuJT3qPUp60nuV9KD3 Kek571fSYz6gpKd8UEkP+ZCSnvFhJT3iI0p6wkeV9ICPKen5HlfS4z2hpKd7 UkkP95SSnu1pJT3aM0p6smeV9GDPKem5nlfSY72gdI+1dA+1pGd6aUmP9PKS nuiVJT3Qq0t6nteW9DivL+lp3ljSw7y5pGd5a0mP8vaSnuSdJT3Iu0t6jveW 9BjvL+kpPljSQ3y4pGf4aEmP8PGSnuCTJT3Ap0t6fs+W9PieL+npvVjSw3up pGf3SkmP7rWSntwbJT24t0p6bu+U9NjeK+mpfVDSQ/uopGf2SUmP7LOSntgX JT2wr0p6Xt+U9Li+K+lp/VDSw/qppGf1S0mP6reSntQfJT2ov0p6Tv+U9Jj+ K+kpJRU9pF5Fz6hf0SPKK3pCZUUPqK7o+bQVPZ5BRU9nlIoezmgVPZsxKno0 Y1X0ZMap6MGMV9FzmaCixzJRRU9lWEUPZdKKnsnkFT2SKSt6IlNX9ECmreh5 TF/R45ixoqcxc0UPY9aKnsXsFT2KOSt6EnNX9CDmreg5zF/RY1iwoqewcEUP YdGKnsHiFT2CJSt6AktX9ACWraj5L19R41+xoqa/ckUNf5WKmv1qFTX6NSpq 8mtV1ODXqai5r1dRY9+goqa+UUUNfZOKmvlmFTXyLSpq4ltV1MC3qah5b1dR 496hoqa9U0UNe5eKmvVuFTXqPSpq0ntV1KD3qag571dRYz6goqZ8UEUN+ZCK mvFhFTXiIypqwkdV1ICPqaj5HldR4z2hoqZ7UkUN95SKmu1pFTXaMypqsmdV 1GDPqai5nldRY72goqZ6UUUN9X8VNdNLK2qkl1fURK+sqIFeXVHzvLaixnl9 RU3zxooa5s0VNctbK2qUt1fUJO+sqEHeXVFzvLeixnh/RU3xwYoa4sMVNcNH K2qEj1fUBJ+sqAE+XVHze7aixvd8RU3vxYoa3ksVNbtXKmp0r1XU5N6oqMG9 VVFze6eixvZeRU3tg4oa2kcVNbNPKmpkn1XUxL6oqIF9VVHz+qaixvVdRU3r h4oa1k8VNatfKmpUv1XUpP6oqEH9VVFz+qeixvRfRU0pqakh9WpqRv2aGlFe UxMqa2pAdU3Np62p8Qxqajqj1NRwRqup2YxRU6MZq6YmM05NDWa8mprLBDU1 lolqairDamook9bUTCavqZFMWVMTmbqmBjJtTc1j+poax4w1NY2Za2oYs9bU LGavqVHMWVOTmLumBjFvTc1h/poaw4I1NYWFa2oIi9bUDBavqREsWVMTWLqm BrBszTf/8jXf+CvWfNOvXPMNv0rNN/tqNd/oa9R8o69Vc9d8bbvwgG91ZblO zZ3zcN2ab/hwvZq75+H6Nd/24QY1d9DDDWu++cONau6ihxvX1ALCTWrupIeb 1tQIws1q7qaHm9fUDsItau6oh1vW1BTCrWruqodb19Qawm1q7qyH29bUIMLt au6uh9vX1CbCHWrusIc71tQswp1q7rKHO9fUMsJdau60h7vW1DjC3Wrutoe7 19Q+wj1q7riHe9bURMK9au66h3vX1ErCfWruvIf71tRQwv1q7r6H+9fUVsID au7AhwfW1FzCg2ruwocH19RiwkNq7sSHh9bUaMLDau7Gh4fX1G7CI2ruyIdH 1tR0wqNq7sqHR9fUesJjau7Mh8fW1IDC42ruzofH19SGwhNq7tCHJ9bUjMKT au7ShyfX1JLCU2ru1Ien1tSYwtNq7taHp9fUnsIzau7Yh2fW1KTCs2ru2odn 19SqwnNq7tyH59bUsMLzau7eh+fX1LbCC2ru4IcX1tS8wotq7uKHF9fUwsL/ 1dzJDy+pXSOzl9bczQ8vq6mdhZfX3NEPr6ipqYVX1tzVD6+qqbWFV9fc2Q+v qanBhdfW3N0Pr6upzYXX19zhD2+oqdmFN9bc5Q9vqqnlhTfX3OkPb6mp8YW3 1tztD2+rqf2Ft9fc8Q/vqKkJhnfW3PUP76qpFYZ319z5D++pqSGG99a++2/v q6kthvfX7AAIH6ipOYYP1uwCCB+qqUWGD9fsBAgfqalRho/W7AYIH6upXYaP 1+wICJ+oqWmGT9bsCgifqql1hk/X7AwIn6mpgYbP1uwOCJ+rqY2Gz9fsEAhf qKmZhi/W7BIIR9TUUsOXanYKhC/X1FjDV2p2C4Sv1tRew9dqdgyEr9fUZMM3 anYNhG/W1GrDt2p2DoRv19Rww3dqdg+E79bUdsP3anYQhO/X1HzDD2p2EYQf 1tSCw49qdhKEH9fUiMNPanYThJ/W1I7Dz2p2FISf19SUwy9qdhWEX9bUmsOv anYWhF/X1KDDb2p2F4Tf1tSmw+9qdhiE39fUrMMfanYZhD/W1LLDn2p2GoQ/ 19S4w19qdhuEv9bUvsPfanYchL/X1MTDP2p2HYR/1tTKw79qdh6Ef9fU0MN/ anYfhP/W1NbD/2p2IIRDDTX3MGnYhRCmDbX4sNewEyHMGmr0Yb9hN0I4UkPt PswbdiSERUNNPywbdiWEVUOtP6wbdiaETUMPIGwbdieEXUNvIBw07FAIR27o GYSjNOxSCEdt6CWEozXsVAhHb+gxhGM07FYIx2zoPYRjNexYCMdu6EmE4zTs WgjHbehVhOM17FwIx2/oYYQTNOxeCCds6G2EEzXsYAgnbuh5hMMadjGEkzT0 QsJJG3YyhJM19EjCyRt2M4RTNPROwikbdjSEUzX0VMKpG3Y1hNM09FrCaRt2 NoTTNfRgwukbdjeEMzT0ZsIZG3Y4hDM19GzCmRt2OYSzNPRywlkbdjqEszX0 eMLZG3Y7hHM09H7CORt2PIRzNfSEwrkbdj2E8zT0isJ5G3Y+hPM19JDC+Rt2 P4QLNPSWwgUbdkCECzX0nMKFG3ZBhIs09KLCRRt2QoSLNfSowsUbdkOESzT0 rsIlG3ZEhEs19LTCpRt2RYTLNPS6wmUbdkaEyzX0wMLlG3ZHhCs09MbCFRt2 SIQrNfTMwpUbdkmEwxt6aeEqDTslwlUbemzhag27JcLVG3pv4RoNOybCNRt6 cuFaDbsmwrUbenXhOg07J8J1G3p44XoNuyfC9Rt6e+EGDTsowg0ben7hRg27 KMKNG3qB4SYNOynCTRt6hOFmDbspws0beofhFg07KsItG3qK4VYNuyrCrRt6 jeE2DTsrwm0bepDhdg27K8LtG3qT4Q4NOyzCHRt6luFODbsswp0bepnhLg07 LcJdG3qc4W4Nuy3C3Rt6n+EeDTsuwj0beqLhXg27LsK9G3ql4T4NOy/CfRt6 qOF+Dbsvwv0beqvhAQ07MMIDG3qu4UENuzDCgxt6seEhDTsxwkMberThYQ27 McLDG3q34RENOzLCIxt6uuFRDbsywqMber3hMQ07M8JjG3rA4XENuzPC4xt6 w+EJDTs0whMbesbhSQ27NMKTG3rJ4SkNOzXCUxt6zOFpDbs1wtMbes/hGQ07 NsIzG3rS4VkNuzbCsxt61eE5DTs3wnMbetjheQ27N8LzG3rb4QUNOzjCCxt6 3uFFDbs4wosbeuHh/xp2coSXNPTIw0sbdnOElzX0zsPLG3Z0hFc09NTDKxt2 dYRXNfTaw6sbdnaE1zT04MNrG3Z3hNc19ObD6xt2eIQ3NPTswxsbdnmENzX0 8sObG3Z6hLc09PjDWxt2e4S3NfT+w9sbdnyEdzTMBIR3Nuz6CO9qmBUI727Y +RHe0zBDEN7bsPsjvK9htiC8v2EHSPhAw8xB+GDDLpDwoYZZhPDhhp0g4SMN Mwrhow27QcLHGmYXwscbdoSETzTMNIRPNuwKCZ9qmHUIn27YGRI+0zADET7b sDskfK5hNiJ8vmGHSPhCw8xE+GLDLpFwRMMsRfhSw06R8OWGGYvwlYbdIuGr DbMX4WsNO0bC1xtmMsI3GnaNhG82zGqEbzXsHAnfbpjhCN9p2D0Svtsw2xG+ 17CDJHy/YeYj/KBhF0n4YcMsSPhRw06S8OOGGZHwk4bdJOGnDbMj4WcNO0rC zxtmSsIvGnaVhF82zJqEXzXsLAm/bphBCb9p2F0SftswmxJ+17DDJPy+YWYl /KFhl0n4Y8MsS/hTw06T8OeGGZfwl4bdJuGvDbMv4W8NO07C3xtmYsI/Gnad hH82zMqEfzXsPAn/bpihCf9p2H0S/tswWxP+17ADJRxqmbkJk5ZdKGHaMosT 9lp2ooRZy4xO2G/ZjRKO1DK7E+YtO1LComWmJyxbdqWEVcusT1i37EwJm5YZ oLBt2Z0Sdi2zQeGgZYdKOHLLzFA4SssulXDUllmicLSWnSrh6C0zRuEYLbtV wjFbZo/CsVp2rIRjt8wkheO07FoJx22ZVQrHa9m5Eo7fMsMUTtCyeyWcsGW2 KZyoZQdLOHHLzFM4rGUXSzhJyyxUOGnLTpZwspYZqXDylt0s4RQts1PhlC07 WsKpWmaqwqlbdrWE07TMWoXTtuxsCadrmcEKp2/Z3RLO0DKbFc7YssMlnKll ZiucuWWXSzhLyyxXOGvLTpdwtpYZr3D2lt0u4Rwts1/hnC07XsK5WmbCwrlb dr2E87TMioXztux8CedrmSEL52/Z/RIu0DJbFi7YsgMmXKhl5ixcuGUXTLhI yyxauGjLTphwsZYZtXDxlt0w4RIts2vhki07YsKlWmbawqVbdsWEy7TMuoXL tuyMCZdrmYELl2/ZHROu0DIbF67YskMmXKllZi5cuWWXTDi8ZZYuXKVlp0y4 asuMXbhay26ZcPWW2btwjZYdM+GaLTN54Votu2bCtVtm9cJ1WnbOhOu2zPCF 67XsngnXb5ntCzdo2UETbtgy8xdu1LKLJty4ZRYw3KRlJ024acuMYLhZy26a cPOW2cFwi5YdNeGWLTOF4VYtu2rCrVtmDcNtWnbWhNu2zCCG27Xsrgm3b5lN DHdo2WET7tgysxju1LLLJty5ZZYx3KVlp024a8uMY7hby26bcPeW2cdwj5Yd N+GeLTOR4V4tu27CvVtmJcN9WnbehPu2zFCG+7Xsvgn3b5mtDA9o2YETHtgy cxke1LILJzy4ZRYzPKRlJ054aMuMZnhYy26c8PCW2c3wiJYdOeGRLTOd4VEt u3LCo1tmPcNjWnbmhMe2zICGx7XszgmPb5kNDU9o2aETntgyMxqe1LJLJzy5 ZZY0PKVlp054asuMaXhay26d8PSW2dPwjJYdO+GZLTOp4Vktu3bCs1tmVcNz WnbuhOe2zLCG57Xs3gnPb5ltDS9o2cETXtgy8xpe1LKLJ7y4ZRY2/F/LTp7w ktYzsvbSlt084WUts7Ph5S07esIrWmZqwytbdvWEV7XM2oZXt+zsCa9pmcEN r23Z3RNe1zKbG17fssMnvKFlZje8sWWXT3hTyyxveHPLTp/wlpYZ3/DWlt0+ 4W0ts7/h7S07fsI7WmaCwztbdv2Ed7XMCod3t+z8Ce9pmSEO7229+8fe1zJb HN7fsgMofKBl5jh8sGUXUPhQyyxy+HDLTqDwkZYZ5fDRlt1A4WMts8vh4y07 gsInWmaawydbdgWFT7XMOodPt+wMCp9pmYEOn23ZHRQ+1zIbHT7fskMofKFl Zjp8sWWXUDiiZZY6fKllp1D4csuMdfhKy26h8NWW2evwtZYdQ+HrLTPZ4Rst u4bCN1tmtcO3WnYOhW+3zHCH77TsHgrfbZntDt9r2UEUvt8y8x1+0LKLKPyw ZRY8/KhlJ1H4ccuMePhJy26i8NOW2fHws5YdReHnLTPl4Rctu4rCL1tmzcOv WnYWhV+3zKCH37TsLgq/bZlND79r2WEUft8ysx7+0LLLKPyxZZY9/Kllp1H4 c8uMe/hLy26j8NeW2ffwt5YdR+HvLTPx4R8tu47CP1tm5cO/WnYehX+3zNCH /7TsPgr/bZmtD/9r2YEUDnXM3IdJxy6kMO2YxQ97HTuRwqxjRj/sd+xGCkfq mN0P844dSWHRMdMflh27ksKqY9Y/rDt2JoVNxx2AsO3YnRR2HXcDwkHHDqVw 5I47A+EoHbuUwlE77hKEo3XsVApH77hjEI7RsVspHLPj7kE4VseOpXDsjjsJ 4Tgdu5bCcTvuKoTjdexcCsfvuMMQTtCxeymcsONuQzhRxw6mcOKOOw/hsI5d TOEkHXchwkk7djKFk3XckQgn79jNFE7RcXcinLJjR1M4VcedinDqjl1N4TQd dy3CaTt2NoXTddzBCKfv2N0UztBxNyOcsWOHUzhTx52NcOaOXU7hLB13OcJZ O3Y6hbN13PEIZ+/Y7RTO0XH3I5yzY8dTOFfHnZBw7o5dT+E8HXdFwnk7dj6F 83XcIQnn79j9FC7QcbckXLBjB1S4UMedk3Dhjl1Q4SIdd1HCRTt2QoWLddxR CRfv2A0VLtFxdyVcsmNHVLhUx52WcOmOXVHhMh13XcJlO3ZGhct13IEJl+/Y HRWu0HE3JlyxY4dUuFLHnZlw5Y5dUuHwjrs04SodO6XCVTvu2ISrdeyWClfv uHsTrtGxYypcs+NOTrhWx66pcO2OuzrhOh07p8J1O+7whOt17J4K1++42xNu 0LGDKtyw485PuFHHLqpw4467QOEmHTupwk077giFm3Xspgo377g7FG7RsaMq 3LLjTlG4VceuqnDrjrtG4TYdO6vCbTvuIIXbdeyuCrfvuJsU7tCxwyrcsePO UrhTxy6rcOeOu0zhLh07rcJdO+44hbt17LYKd++4+xTu0bHjKtyz405UuFfH rqtw7467UuE+HTuvwn077lCF+3Xsvgr377hbFR7QsQMrPLDjzlV4UMcurPDg jrtY4SEdO7HCQzvuaIWHdezGCg/vuLsVHtGxIys8suNOV3hUx66s8OiOu17h MR07s8JjO+6Ahcd17M4Kj++4Gxae0LFDKzyx485YeFLHLq3w5I67ZOEpHTu1 wlM77piFp3Xs1gpP77h7Fp7RsWMrPLPjTlp4VseurfDsjrtq4TkdO7fCczvu sIXndezeCs/vuNsWXtCxgyu8sOPOW3hRxy6u8OKOu3Dh/zp2coWXdNyRCy/t 2M0VXtZxdy68vGNHV3hFx5268MqOXV3hVR137cKrO3Z2hdd03MELr+3Y3RVe 13E3L7y+Y4dXeEPHnb3wxo5dXuFNHXf5wps7dnqFt3Tc8Qtv7djtFd7Wcfcv vL1jx1d4R8edwPDOjl1f4V0ddwXDuzt2foX3dNwhDO/t2P0V3tdxtzC8v2MH WPhAx53D8MGOXWDhQx13EcOHO3aChY903FEMH+3YDRY+1nF3MXy8Y0dY+ETH ncbwyY5dYeFTHXcdw6c7doaFz3TcgQyf7dgdFj7XcTcyfL5jh1j4QsedyfDF jl1i4YiOu5ThSx07xcKXO+5Yhq907BYLX+24exm+1rFjLHy9405m+EbHrrHw zY67muFbHTvHwrc77nCG73TsHgvf7bjbGb7XsYMsfL/jzmf4QccusvDDjrug 4UcdO8nCjzvuiIafdOwmCz/tuDsaftaxoyz8vONOafhFx66y8MuOu6bhVx07 y8KvO+6ght907C4Lv+24mxp+17HDLPy+485q+EPHLrPwx467rOFPHTvNwp87 7riGv3TsNgt/7bj7Gv7WseMs/L3jTmz4R8eus/DPjruy4V8dO8/Cvzvu0Ib/ dOw+C//tuFsb/texAy0cGnDnNkwG7EIL0wF3ccPegJ1oYTbgjm7YH7AbLRxp wN3dMB+wIy0sBtzpDcsBu9LCasBd37AesDMtbAbcAQ7bAbvTwm7A3eBwMGCH WjjygDvD4SgDdqmFow64SxyONmCnWjj6gDvG4RgDdquFYw64exyONWDHWjj2 gDvJ4TgDdq2F4w64qxyON2DnWjj+gDvM4QQDdq+FEw642xxONGAHWzjxgDvP 4bABu9jCSQbchQ4nHbCTLZxswB3pcPIBu9nCKQbcnQ6nHLCjLZxqwJ3qcOoB u9rCaQbctQ6nHbCzLZxuwB3scPoBu9vCGQbczQ5nHLDDLZxpwJ3tcOYBu9zC WQbc5Q5nHbDTLZxtwB3vcPYBu93COQbc/Q7nHLDjLZxrwJ3wcO4Bu97CeQbc FQ/nHbDzLZxvwB3ycP4Bu9/CBQbcLQ8XHLADLlxowJ3zUPfN/x8/pniI "]]}, {Hue[0.625, 0.5, 0.7], PointBox[CompressedData[" 1:eJwl20MQGMqWANAf27Zt27Zt29aLbdu2bdu2bTuZk5rFqV71pqtaFwkatqvY NsD//ve/AuH+979/Y0ACEZggBCUYwQlBSEIRmjCExdT/hScCEYlEZKIQlWhE JwYxiUVs4hCXeMQnAQlJRGKSkJRkJCcFKUlFatKQlnSkJwMZyURmspCVbGQn BznJRW7ykJd85P+3BhSkEIUpQlGKUZwSlKQUpSlDWcpRngpUpBKVqUJVqlGd GtSkFrWpQ13qUZ8GNKQRjWlCU5rRnBa0pBWtaUNb2tGeDnSkE53pQle60Z0e 9KQXvenDf/SlH/0ZwEAGMZghDGUYwxnBSEYxmjGMZRzjmcBEJjGZKUxlGtOZ wUxmMZs5zGUe81nAQhaxmCUsZRnLWcFKVrGaNaxlHevZwEY2sZktbGUb29nB Tnaxmz3sZR/7OcBBDnGYIxzlGMc5wUlOcZoznOUc57nARS5xmStc5RrXucFN bnGbO9zlHvd5wEMe8ZgnPOUZz3nBS17xmje85R3v+cBHPvGZL3zlG9/5wU9+ 8Zs//OXf5g9AQAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIR mzjEJR7xSUBCEpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGb POQlH/kpQEEKUZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs6 1KUe9WlAQxrRmCY0pRnNaUFLWtGaNvw7vNvRng50pBOd6UJXutGdHvSkF73p w3/0pR/9GcBABjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGb OcxlHvNZwEIWsZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs9 7GUf+znAQQ5xmCMc5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc 5R73ecBDHvGYJzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/zl 38UfgIAEIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8 4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7y U4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahLPerT gIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570ojd9+I++9KM/ AxjIIAYzhKEMYzgjGMkoRjOGsYxjPBOYyCQmM4WpTGM6M5jJLGYzh7nMYz4L WMgiFrOEpSxjOStYySpWs4a1rGM9G9jIJjazha1sYzs72MkudrOHvexjPwc4 yCEOc4SjHOM4JzjJKU5zhrOc4zwXuMglLnOFq1zjOje4yS1uc4e73OM+D3jI Ix7zhKc84zkveMkrXvOGt7zjPR/4yCc+84WvfOM7P/jJL37zh7/8e/QHICCB CEwQghKM4IQgJKEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP+CQgIYlI TBKSkozkpCAlqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nITR7yko/8FKAghShM EYpSjOKUoCSlKE0ZylKO8lSgIpWoTBWqUo3q1KAmtahNHepSj/o0oCGNaEwT mtKM5rSgJa1oTRva0o72dKAjnehMF7rSje70oCe96E0f/qMv/ejPAAYyiMEM YSjDGM4IRjKK0YxhLOMYzwQmMonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxh KctYzgpWsorVrGEt61jPBjayic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEo xzjOCU5yitOc4SznOM8FLnKJy1zhKte4zg1ucovb3OEu97jPAx7yiMc84SnP eM4LXvKK17zhLe94zwc+8onPfOEr3/jOD37yi9/84S//PvwBCEggAhOEoAQj OCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4SkJCM5 KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85CM/BShIIQpThKIUozgl KEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rUoz4NaEgjGtOEpjSjOS1o SSta04a2tKM9HehIJzrTha50ozs96EkvetOH/+hLP/ozgIEMYjBDGMowhjOC kYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nMYjZzmMs85rOAhSxiMUtYyjKWs4KV rGI1a1jLOtazgY1sYjNb2Mo2trODnexiN3vYyz72c4CDHOIwRzjKMY5zgpOc 4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLPe7zgIc84jFPeMoznvOCl7zi NW94yzve84GPfOIzX/jKN77zg5/84jd/+Mu/YF8AAhKIwAQhKMEITghCEorQ hCEs4QhPBCISichEISrRiE4MYhKL2MQhLvGITwISkojEJCEpyUhOClKSitSk IS3pSE8GMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4JSlKK0pSh LOUoTwUqUonKVKEq1ahODWpSi9rUoS71qE8DGtKIxjShKc1oTgta0orWtKEt 7WhPBzrSic50oSvd6E4PetKL3vThP/rSj/4MYCCDGMwQhjKM4YxgJKMYzRjG Mo7xTGAik5jMFKYyjenMYCazmM0c5jKP+SxgIYtYzBKWsozlrGAlq1jNGtay jvVsYCOb2MwWtrKN7exgJ7vYzR72so/9HOAghzjMEY5yjOOc4CSnOM0ZznKO 81zgIpe4zBWuco3r3OAmt7jNHe5yj/s84CGPeMwTnvKM57zgJa94zRve8o73 fOAjn/jMF77yje/84Ce/+M0f/vIv0B+AgAQiMEEISjCCE4KQhCI0YQhLOMIT gYhEIjJRiEo0ohODmMQiNnGISzzik4CEJCIxSUhKMpKTgpSkIjVpSEs60pOB jGQiM1nISjayk4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GK VKIyVahKNapTg5rUojZ1qEs96tOAhjSiMU1oSjOa04KWtKI1bWhLO9rTgY50 ojNd6Eo3utODnvSiN334j770oz8DGMggBjOEoQxjOCMYyShGM4axjGM8E5jI JCYzhalMYzozmMksZjOHucxjPgtYyCIWs4SlLGM5K1jJKlazhrWsYz0b2Mgm NrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4yCUu c4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jIJz7z ha984zs/+MkvfvOHv/xL8gUgIIEITBCCEozghCAkoQhNGMISjvBEICKRiEwU ohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a0pKO9GQgI5nITBay ko3s5CAnuchNHvKSj/wUoCCFKEwRilKM4pSgJKUoTRnKUo7yVKAilahMFapS jerUoCa1qE0d6lKP+jSgIY1oTBOa0ozmtKAlrWhNG9rSjvZ0oCOd6EwXutKN 7vSgJ73oTR/+oy/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclMYSrT mM4MZjKL2cxhLvOYzwIWsojFLGEpy1jOClayitWsYS3rWM8GNrKJzWxhK9vY zg52sovd7GEv+9jPAQ5yiMMc4SjHOM4JTnKK05zhLOc4zwUuconLXOEq17jO DW5yi9vc4S73uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7yic984Svf+M4P fvKL3/zhL/8S/AEISCACE4SgBCM4IQhJKEIThrCEIzwRiEgkIhOFqEQjOjGI SSxiE4e4xCM+CUhIIhKThKQkIzkpSEkqUpOGtKQjPRnISCYyk4WsZCM7OchJ LnKTh7zkIz8FKEghClOEohSjOCUoSSlKU4aylKM8FahIJSpThapUozo1qEkt alOHutSjPg1oSCMa04SmNKM5LWhJK1rThra0oz0d6EgnOtOFrnSjOz3oSS96 04f/6Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxi NnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3 e9jLPvZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3 uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgY984jNf+Mo3vvODn/ziN3/4 y7/ingAEJBCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc 4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17y kZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepR nwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe96cN/9KUf /RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nBTGYxmznMZR7z WcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFOdrGbPexlH/s5 wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nA Qx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz/85V9hXwAC EojABCEowQhOCEISitCEISzhCE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKS iMQkISnJSE4KUpKK1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojG NKEpzWhOC1rSita0oS3taE8HOtKJznShK93oTg960ove9OE/+tKP/gxgIIMY zBCGMozhjGAkoxjNGMYyjvFMYCKTmMwUpjKN6cxgJrOYzRzmMo/5LGAhi1jM EpayjOWsYCWrWM0a1rKO9WxgI5vYzBa2so3t7GAnu9jNHvayj/0c4CCHOMwR jnKM45zgJKc4zRnOco7zXOAil7jMFa5yjevc4Ca3uM0d7nKP+zzgIY94zBOe 8oznvOAlr3jNG97yjvd84COf+MwXvvKN7/zgJ7/4zR/+8q+oNwABCURgghCU YAQnBCEJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJRGKSkJRk JCcFKUlFatKQlnSkJwMZyURmspCVbGQnBznJRW7ykJd85KcABSlEYYpQlGIU pwQlKUVpylCWcpSnAhWpRGWqUJVqVKcGNalFbepQl3rUpwENaURjmtCUZjSn BS1pRWva0JZ2tKcDHelEZ7rQlW50pwc96UVv+vAffelHfwYwkEEMZghDGcZw RjCSUYxmDGMZx3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJW sJJVrGYNa1nHejawkU1sZgtb2cZ2drCTXexmD3vZx34OcJBDHOYIRznGcU5w klOc5gxnOcd5LnCRS1zmCle5xnVucJNb3OYOd7nHfR7wkEc85glPecZzXvCS V7zmDW95x3s+8JFPfOYLX/nGd37wk1/85g9/+VfQH4CABCIwQQhKMIITgpCE IjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJSEoykpOClKQi NWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOAghSiMEUoSjGKU4KSlKI0 ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CGNKIxTWhKM5rTgpa0ojVt aEs72tOBjnSiM13oSje604Oe9KI3ffiPvvSjPwMYyCAGM4ShDGM4IxjJKEYz hrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhazhKUsYzkrWMkqVrOG taxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOEoxzjOCc4ySlOc4az nOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94yCMe84SnPOM5L3jJK17zhre8 4z0f+MgnPvOFr3zjOz/4yS9+84e//GvmCUBAAhGYIAQlGMEJQUhCEZowhCUc 4YlARCIRmShEJRrRiUFMYhGbOMQlHvFJQEISkZgkJCUZyUlBSlKRmjSkJR3p yUBGMpGZLGQlG9nJQU5ykZs85CUf+SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWp QEUqUZkqVKUa1alBTWpRmzrUpR71aUBDGtGYJjSlGc1pQUta0Zo2tKUd7elA RzrRmS50pRvd6UFPetGbPvxHX/rRnwEMZBCDGcJQhjGcEYxkFKMZw1jGMZ4J TGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKWsZwVrGQVq1nDWtaxng1s ZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5xnBOc5BSnOcNZznGeC1zk Epe5wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGcF7zkFa95w1ve8Z4PfOQT n/nCV77xnR/85Be/+cNf/jXyBSAggQhMEIISjOCEICShCE0YwhKO8EQgIpGI TBSiEo3oxCAmsYhNHOISj/gkICGJSEwSkpKM5KQgJalITRrSko70ZCAjmchM FrKSjezkICe5yE0e8pKP/BSgIIUoTBGKUozilKAkpShNGcpSjvJUoCKVqEwV qlKN6tSgJrWoTR3qUo/6NKAhjWhME5rSjOa0oCWtaE0b2tKO9nSgI53oTBe6 0o3u9KAnvehNH/6jL/3ozwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxh KtOYzgxmMovZzGEu85jPAhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr 29jODnayi93sYS/72M8BDnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrX uM4NbnKL29zhLve4zwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4 zg9+8ovf/OEv/5p4AxCQQAQmCEEJRnBCEJJQhCYMYQlHeCIQkUhEJgpRiUZ0 YhCTWMQmDnGJR3wSkJBEJCYJSUlGclKQklSkJg1pSUd6MpCRTGQmC1nJRnZy kJNc5CYPeclH/nD/3wP9f7oi8Cw= "]]}}], FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758384224624646*^9, 3.758386512689398*^9, 3.7583869835999947`*^9, 3.758387314374913*^9, 3.758387375410294*^9, 3.7583912740884237`*^9, 3.758391340342964*^9, 3.759344607891996*^9, 3.75934497546889*^9, { 3.7593450445362864`*^9, 3.759345073163384*^9}, {3.759345115111738*^9, 3.759345159750246*^9}, 3.761325321574061*^9, 3.7613253633591146`*^9}, CellLabel->"Out[1]=", CellID->702838152] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Emmanuel Garc\[EAcute]s", "Text", CellID->454270425] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["factoring", "Item", CellID->429184760], Cell["prime factors", "Item", CellID->465864220], Cell["graph of factors", "Item", CellID->124593965] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Array Manipulation"}], "\" \"", "\"Array Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVT9tKw0AQBWltIlLwC8yTb/\ mIEG0tVCsdf2CbHpulm91lZpaSv3ejKPo0M5wz59IUNc1JRwe63iWNSWtatD26M44fVzLbWlG6W7OJ\ vVQP1Sv0EvgsdP9sTz24ejHaYzBqO+OqNgxZIB/\ BZ9WNYhApm6Thi1BT8cYhgnWkm9YoToEtJPvt4vQiP37T3CcHKZ6OVs0hb/\ OVcYJfoHyEw19kCh1cGvx/w+XGKzgyvkNR2fiR0kGQW97uISFxh/cxgopV8t3E+QQwvF+W"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->583690887] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "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/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[BoxData[ Marketplace`Private`getTemplateTests[ "Function", <| "Name" -> "FactorGraph", "UUID" -> "12e4c889-fb40-41de-8aff-82c0250bc0b9", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Get a graph representation for the factorization of an integer", "Keywords" -> {"factoring", "prime factors", "graph of factors"}, "Attributes" -> {}, "AutoUpdate" -> Automatic, "LatestUpdate" -> DateObject[{2019, 3, 11}, "Day", "Gregorian", -5.], "ShortName" -> "FactorGraph", "AlternativeNames" -> {}, "AutoCopyExampleNotebook" -> True, "Categories" -> {"Graphs & Networks", "Higher Mathematical Computation"}, "ContributedBy" -> "Emmanuel Garc\[EAcute]s", "DefinitionNotebook" -> "marketplacestorage/resources/12e/12e4c889-fb40-41de-8aff-82c0250bc0b9/\ DefinitionNotebook/original.nb", "Details" -> "", "Discoverable" -> Automatic, "DisplayedSourceFields" -> {}, "Documentation" -> <|"Usage" -> {<|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"FactorGraph\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", StyleBox["n", "TI"], "]"}]], "Description" -> TextData[{ "gives a graph representing the factorization of the integer ", StyleBox["n", "TI"], "."}]|>, <|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"FactorGraph\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["pos", "TI"]}], "]"}]], "Description" -> TextData[{"gives the graph for ", StyleBox["n", "TI"], " with the largest factor with position ", StyleBox["pos", "TI"], "."}]|>}, "Notes" -> { Cell[ TextData[{"Let ", Cell[ BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " and ", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " be distinct integers such that ", Cell[ BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " divides ", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], ". Then the vertices of a polygon with ", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " vertices can be connected to a polygon with ", Cell[ BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " vertices from ", Cell[ BoxData[ FormBox[ StyleBox["m", "TI"], TraditionalForm]]], "/", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " equally spaced vertices on the first polygon. This procedure can \ be applied repeatedly to the prime factors of a number in order to get \ visualizations of the factorizations of the numbers."}], "Notes", CellTags -> {"TabNext"}, CellID -> 107622986], Cell[ "The vertices of a polygon with vertices can be connected to a polygon \ with vertices from equally spaced vertices on the first polygon. This \ procedure can be applied repeatedly to the prime factors of a number in order \ to get visualizations of the factorizations of the numbers.", "Notes", CellTags -> {"TabNext"}, CellID -> 827547281], Cell[ TextData[{"In ", Cell[ BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"FactorGraph\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["pos", "TI"]}], "]"}]], "InlineFormula", FontFamily -> "Source Sans Pro"], ", ", Cell[ BoxData[ StyleBox["pos", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " can be ", Cell[ BoxData["\"Inside\""], "InlineFormula", FontFamily -> "Source Sans Pro"], " or ", Cell[ BoxData["\"Outside\""], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}], "Notes", CellTags -> {"TabNext"}, CellID -> 1668891310]}|>, "ExampleNotebook" -> CloudObject[ "https://www.wolframcloud.com/objects/daac8ab6-9630-4f4b-a627-\ ad9ee8a7e569"], "ExternalLinks" -> {}, "OriginalUUID" -> "5acf59c8-4c49-4948-9322-8aec1affb35b", "Originator" -> Missing["NoInput"], "PermissionsGroups" -> {}, "PricingInformation" -> 0, "Public" -> True, "PublisherUUID" -> "1ca97c83-1e23-4ef8-a6ef-83680a155d35", "ReleaseDate" -> DateObject[{2019, 3, 11}, "Day", "Gregorian", -5.], "SeeAlso" -> {}, "SourceMetadata" -> <||>, "StoredElements" -> {Automatic}, "SubmissionID" -> "3365", "SubmissionUUID" -> "84a9fbcf-4706-426d-9b00-4eaa7c6baad1", "Submitter" -> "enriquez@wolfram.com", "SymbolName" -> "FunctionRepository`$5acf59c84c49494893228aec1affb35b`FactorGraph", "VersionHistory" -> <| "1.0.0" -> <| "Timestamp" -> DateObject[{2019, 3, 11, 15, 47, 40.109442`8.355821598396364}, "Instant", "Gregorian", -5.], "Approver" -> "danl@wolfram.com", "SubmissionID" -> "3365", "Submitter" -> "enriquez@wolfram.com", "SubmissionUUID" -> "84a9fbcf-4706-426d-9b00-4eaa7c6baad1", "OriginalUUID" -> "5acf59c8-4c49-4948-9322-8aec1affb35b"|>|>, "WolframLanguageVersionRequired" -> "11.3", "VerificationTests" -> Missing["NotFound"]|>, Missing[]]], "Input", CellID->744803172] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "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/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"FactorGraph | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.854043996983229`16.338491657325257*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.854043997037091`16.338491657331325*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ 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}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ 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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ 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}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{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, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{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, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{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, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{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, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {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}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {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}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ 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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"05f8e545-2216-42a2-915d-1438bca54969", CellTags->{"Name", "TemplateCell", "Title"}, CellID->716591900]}, "TemplateCell"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"05f8e545-2216-42a2-915d-1438bca54969", CellTags->{"Name", "TemplateCell", "Title"}, CellID->716591900], Cell[724, 27, 150, 4, 70, "Text",ExpressionUUID->"fe994e5c-16d8-4d8f-804d-9b636bcf5d7b", CellTags->{"Description", "TemplateCell"}, CellID->143288623]}, "Title"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"05f8e545-2216-42a2-915d-1438bca54969", CellTags->{"Name", "TemplateCell", "Title"}, CellID->716591900]}, "Description"->{ Cell[724, 27, 150, 4, 70, "Text",ExpressionUUID->"fe994e5c-16d8-4d8f-804d-9b636bcf5d7b", CellTags->{"Description", "TemplateCell"}, CellID->143288623]}, "Definition"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b4232ce4-af06-49d3-917a-dec575ccbaf8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b4232ce4-af06-49d3-917a-dec575ccbaf8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b4232ce4-af06-49d3-917a-dec575ccbaf8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[8950, 250, 1980, 50, 70, "Subsection",ExpressionUUID->"abfeccd5-161e-477a-8b25-950e36fe4b5f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[11704, 341, 1429, 32, 70, "Subsection",ExpressionUUID->"1cfb8dd1-faf1-4321-9a39-eecbfb6a86f1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[15245, 451, 7029, 152, 70, "Section",ExpressionUUID->"27270384-8501-4d93-8a0b-06afae0bc026", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[172818, 3298, 1026, 26, 70, "Subsection",ExpressionUUID->"b787f167-0265-4448-af3a-038b1408bbb9", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[173943, 3332, 996, 26, 70, "Subsection",ExpressionUUID->"4d31ad6a-d32d-4828-80d1-883a3cc1ba19", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[175131, 3372, 221, 6, 70, "Subsection",ExpressionUUID->"e25df21b-eeed-4962-a48e-dd214f1bf07d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[182884, 3631, 980, 26, 70, "Subsection",ExpressionUUID->"acb58dd7-1ee1-4a6d-9031-30a5f316dc0d", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[184426, 3672, 1039, 26, 70, "Subsection",ExpressionUUID->"7e264187-c69b-45f6-b831-cce2bc98f698", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[186033, 3713, 1084, 26, 70, "Subsection",ExpressionUUID->"8ceabc77-d1bb-48aa-8cc1-023aba1f7d1e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[187673, 3754, 923, 26, 70, "Subsection",ExpressionUUID->"25ebf9ac-afde-481f-a675-8dd9b639fa75", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[189141, 3795, 1874, 45, 70, "Subsection",ExpressionUUID->"f562ae05-7472-448d-96a9-eabb1d999481", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[197333, 3978, 955, 25, 70, "Subsection",ExpressionUUID->"612f0323-d052-478f-9cfb-cdaf30f67ae8", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[198313, 4007, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4e329022-635a-48e7-9589-f1125d6a752b", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[199616, 4047, 1113, 29, 70, "Subsubsection",ExpressionUUID->"68afadb6-b4d2-4dbb-bf71-adf3e721d2bc", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[202090, 4123, 1280, 33, 70, "Subsubsection",ExpressionUUID->"5982c2b2-e315-458b-a384-d15fb67a9e7b", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[204775, 4204, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4c819266-c6e5-46a3-ba85-97f57ecb02d7", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[209624, 4340, 1071, 27, 70, "Subsubsection",ExpressionUUID->"419c69ce-fb37-4e46-8eb2-c0ac14fc8c43", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[211697, 4404, 1155, 28, 70, "Section",ExpressionUUID->"80ac07ea-ac50-4955-b0a7-4182ad8b839b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[213421, 4447, 1033, 26, 70, "Section",ExpressionUUID->"b1b10a5c-b678-4ec3-a8f3-d8346e281b90", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[8730, 241, 195, 5, 70, "Section",ExpressionUUID->"54060bef-b7c7-429a-b314-02323bc5a5f4", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[8730, 241, 195, 5, 70, "Section",ExpressionUUID->"54060bef-b7c7-429a-b314-02323bc5a5f4", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[172544, 3289, 249, 5, 70, "Section",ExpressionUUID->"3ed0ae31-6056-446d-8dff-84221ee9faf1", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[8950, 250, 1980, 50, 70, "Subsection",ExpressionUUID->"abfeccd5-161e-477a-8b25-950e36fe4b5f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[11704, 341, 1429, 32, 70, "Subsection",ExpressionUUID->"1cfb8dd1-faf1-4321-9a39-eecbfb6a86f1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[11704, 341, 1429, 32, 70, "Subsection",ExpressionUUID->"1cfb8dd1-faf1-4321-9a39-eecbfb6a86f1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[13136, 375, 1156, 38, 70, "Notes",ExpressionUUID->"f73d537f-9c50-4f75-9db0-e6ec40034ba0", CellTags->"TabNext", CellID->748934422], Cell[14295, 415, 348, 7, 70, "Notes",ExpressionUUID->"634aa7b3-8fbc-4701-9471-b8f5942698f5", CellTags->"TabNext", CellID->7763817], Cell[14646, 424, 550, 21, 70, "Notes",ExpressionUUID->"d2eca6de-07e5-4f5a-ad6c-7ab400c859c6", CellTags->"TabNext", CellID->475079371], Cell[183867, 3659, 522, 8, 70, "Item",ExpressionUUID->"4940851e-d679-4a85-ae2d-11b71a1f1028", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[185468, 3700, 528, 8, 70, "Item",ExpressionUUID->"81c8633c-9769-4330-9c36-a5d1ce6464bb", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[187120, 3741, 516, 8, 70, "Text",ExpressionUUID->"67dbc401-4849-4c65-8a39-987cacf5a061", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[188599, 3782, 505, 8, 70, "Item",ExpressionUUID->"ca8b035c-a75a-49ce-85f0-ea0afecf57c6", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[212855, 4434, 529, 8, 70, "Text",ExpressionUUID->"ea34a752-f3b7-4ef4-9744-c3987f5c6f99", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[214457, 4475, 515, 8, 70, "Text",ExpressionUUID->"578ec2ea-c5db-4e39-8f05-b91f6d8608a2", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[15245, 451, 7029, 152, 70, "Section",ExpressionUUID->"27270384-8501-4d93-8a0b-06afae0bc026", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[172544, 3289, 249, 5, 70, "Section",ExpressionUUID->"3ed0ae31-6056-446d-8dff-84221ee9faf1", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[172818, 3298, 1026, 26, 70, "Subsection",ExpressionUUID->"b787f167-0265-4448-af3a-038b1408bbb9", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[172818, 3298, 1026, 26, 70, "Subsection",ExpressionUUID->"b787f167-0265-4448-af3a-038b1408bbb9", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[173943, 3332, 996, 26, 70, "Subsection",ExpressionUUID->"4d31ad6a-d32d-4828-80d1-883a3cc1ba19", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[175131, 3372, 221, 6, 70, "Subsection",ExpressionUUID->"e25df21b-eeed-4962-a48e-dd214f1bf07d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[175355, 3380, 7492, 246, 70, "Output",ExpressionUUID->"95404f30-507c-4b99-9bd9-cb518d7127c8", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->583690887]}, "Categories-Checkboxes"->{ Cell[175355, 3380, 7492, 246, 70, "Output",ExpressionUUID->"95404f30-507c-4b99-9bd9-cb518d7127c8", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->583690887]}, "CheckboxCell"->{ Cell[175355, 3380, 7492, 246, 70, "Output",ExpressionUUID->"95404f30-507c-4b99-9bd9-cb518d7127c8", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->583690887], Cell[200732, 4078, 1321, 40, 70, "Output",ExpressionUUID->"5d7acaed-14c5-48b5-aa22-1c1abf0f102a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[203373, 4158, 1365, 41, 70, "Output",ExpressionUUID->"fd2e990a-484d-4263-829c-0789de8fed45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[206691, 4252, 2896, 83, 70, "Output",ExpressionUUID->"17d26a95-a709-430e-8fce-839e33261af1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[210698, 4369, 938, 28, 70, "Output",ExpressionUUID->"8a6379af-2471-413b-9908-021dd0d04a91", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[182884, 3631, 980, 26, 70, "Subsection",ExpressionUUID->"acb58dd7-1ee1-4a6d-9031-30a5f316dc0d", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "DefaultContent"->{ Cell[183867, 3659, 522, 8, 70, "Item",ExpressionUUID->"4940851e-d679-4a85-ae2d-11b71a1f1028", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[185468, 3700, 528, 8, 70, "Item",ExpressionUUID->"81c8633c-9769-4330-9c36-a5d1ce6464bb", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[187120, 3741, 516, 8, 70, "Text",ExpressionUUID->"67dbc401-4849-4c65-8a39-987cacf5a061", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[188599, 3782, 505, 8, 70, "Item",ExpressionUUID->"ca8b035c-a75a-49ce-85f0-ea0afecf57c6", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[199490, 4040, 89, 2, 70, "Text",ExpressionUUID->"899d04dd-4953-4f2a-93c4-2c537191d3cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[212855, 4434, 529, 8, 70, "Text",ExpressionUUID->"ea34a752-f3b7-4ef4-9744-c3987f5c6f99", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[214457, 4475, 515, 8, 70, "Text",ExpressionUUID->"578ec2ea-c5db-4e39-8f05-b91f6d8608a2", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Related Resource Objects"->{ Cell[184426, 3672, 1039, 26, 70, "Subsection",ExpressionUUID->"7e264187-c69b-45f6-b831-cce2bc98f698", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[186033, 3713, 1084, 26, 70, "Subsection",ExpressionUUID->"8ceabc77-d1bb-48aa-8cc1-023aba1f7d1e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[187673, 3754, 923, 26, 70, "Subsection",ExpressionUUID->"25ebf9ac-afde-481f-a675-8dd9b639fa75", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[189141, 3795, 1874, 45, 70, "Subsection",ExpressionUUID->"f562ae05-7472-448d-96a9-eabb1d999481", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[189141, 3795, 1874, 45, 70, "Subsection",ExpressionUUID->"f562ae05-7472-448d-96a9-eabb1d999481", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[197333, 3978, 955, 25, 70, "Subsection",ExpressionUUID->"612f0323-d052-478f-9cfb-cdaf30f67ae8", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[198313, 4007, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4e329022-635a-48e7-9589-f1125d6a752b", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[198313, 4007, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4e329022-635a-48e7-9589-f1125d6a752b", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[199490, 4040, 89, 2, 70, "Text",ExpressionUUID->"899d04dd-4953-4f2a-93c4-2c537191d3cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[199616, 4047, 1113, 29, 70, "Subsubsection",ExpressionUUID->"68afadb6-b4d2-4dbb-bf71-adf3e721d2bc", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[200732, 4078, 1321, 40, 70, "Output",ExpressionUUID->"5d7acaed-14c5-48b5-aa22-1c1abf0f102a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[199616, 4047, 1113, 29, 70, "Subsubsection",ExpressionUUID->"68afadb6-b4d2-4dbb-bf71-adf3e721d2bc", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[200732, 4078, 1321, 40, 70, "Output",ExpressionUUID->"5d7acaed-14c5-48b5-aa22-1c1abf0f102a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[202090, 4123, 1280, 33, 70, "Subsubsection",ExpressionUUID->"5982c2b2-e315-458b-a384-d15fb67a9e7b", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[203373, 4158, 1365, 41, 70, "Output",ExpressionUUID->"fd2e990a-484d-4263-829c-0789de8fed45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[202090, 4123, 1280, 33, 70, "Subsubsection",ExpressionUUID->"5982c2b2-e315-458b-a384-d15fb67a9e7b", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[203373, 4158, 1365, 41, 70, "Output",ExpressionUUID->"fd2e990a-484d-4263-829c-0789de8fed45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[204775, 4204, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4c819266-c6e5-46a3-ba85-97f57ecb02d7", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[206691, 4252, 2896, 83, 70, "Output",ExpressionUUID->"17d26a95-a709-430e-8fce-839e33261af1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[204775, 4204, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4c819266-c6e5-46a3-ba85-97f57ecb02d7", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[206691, 4252, 2896, 83, 70, "Output",ExpressionUUID->"17d26a95-a709-430e-8fce-839e33261af1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[209624, 4340, 1071, 27, 70, "Subsubsection",ExpressionUUID->"419c69ce-fb37-4e46-8eb2-c0ac14fc8c43", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[209624, 4340, 1071, 27, 70, "Subsubsection",ExpressionUUID->"419c69ce-fb37-4e46-8eb2-c0ac14fc8c43", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[210698, 4369, 938, 28, 70, "Output",ExpressionUUID->"8a6379af-2471-413b-9908-021dd0d04a91", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[210698, 4369, 938, 28, 70, "Output",ExpressionUUID->"8a6379af-2471-413b-9908-021dd0d04a91", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[211697, 4404, 1155, 28, 70, "Section",ExpressionUUID->"80ac07ea-ac50-4955-b0a7-4182ad8b839b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[213421, 4447, 1033, 26, 70, "Section",ExpressionUUID->"b1b10a5c-b678-4ec3-a8f3-d8346e281b90", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 338382, 6826}, {"TemplateCell", 338564, 6830}, {"Title", 338899, 6837}, {"Description", 339080, 6841}, {"Definition", 339258, 6845}, {"Function", 339454, 6849}, {"TemplateCellGroup", 339659, 6853}, {"Documentation", 343512, 6914}, {"TemplateSection", 343705, 6918}, {"Usage", 344079, 6925}, {"Details & Options", 344273, 6929}, {"Notes", 344477, 6933}, {"TabNext", 344683, 6937}, {"Examples", 346104, 6965}, {"Source & Additional Information", 346314, 6969}, {"Contributed By", 346527, 6973}, {"ContributorInformation", 346763, 6977}, {"Keywords", 346985, 6981}, {"Categories", 347177, 6985}, {"Categories-Checkboxes", 347575, 6992}, {"CheckboxCell", 347789, 6996}, {"Related Symbols", 348911, 7012}, {"DefaultContent", 349114, 7016}, {"Related Resource Objects", 350292, 7038}, {"Source/Reference Citation", 350516, 7042}, {"Links", 350721, 7046}, {"Tests", 350905, 7050}, {"VerificationTests", 351123, 7054}, {"Compatibility", 351337, 7058}, {"CompatibilityWolframLanguageVersionRequired", 351567, 7062}, {"Wolfram Language Version", 351840, 7066}, {"ScrapeDefault", 352102, 7070}, {"CompatibilityOperatingSystem", 352306, 7074}, {"Operating System", 352776, 7081}, {"CompatibilityOperatingSystem-Checkboxes", 353041, 7085}, {"CompatibilityFeatures", 353298, 7089}, {"Required Features", 353750, 7096}, {"CompatibilityFeatures-Checkboxes", 354002, 7100}, {"CompatibilityEvaluationEnvironment", 354259, 7104}, {"Environments", 354739, 7111}, {"CompatibilityEvaluationEnvironment-Checkboxes", 355012, 7115}, {"Cloud Support", 355273, 7119}, {"CompatibilityCloudSupport", 355518, 7123}, {"CompatibilityCloudSupport-Checkboxes", 355996, 7130}, {"Author Notes", 356238, 7134}, {"Submission Notes", 356438, 7138} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"05f8e545-2216-42a2-915d-1438bca54969", CellTags->{"Name", "TemplateCell", "Title"}, CellID->716591900], Cell[724, 27, 150, 4, 70, "Text",ExpressionUUID->"fe994e5c-16d8-4d8f-804d-9b636bcf5d7b", CellTags->{"Description", "TemplateCell"}, CellID->143288623], Cell[CellGroupData[{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b4232ce4-af06-49d3-917a-dec575ccbaf8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2108, 66, 6585, 170, 70, "Input",ExpressionUUID->"662fe196-8b55-45d3-b5a9-7b202bc860c6", InitializationCell->True, CellID->640728881] }, Open ]], Cell[CellGroupData[{ Cell[8730, 241, 195, 5, 70, "Section",ExpressionUUID->"54060bef-b7c7-429a-b314-02323bc5a5f4", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[8950, 250, 1980, 50, 70, "Subsection",ExpressionUUID->"abfeccd5-161e-477a-8b25-950e36fe4b5f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[10955, 304, 141, 4, 70, "UsageInputs",ExpressionUUID->"640cc3f6-f348-483c-894f-8ae8b80072b4", CellID->898724747], Cell[11099, 310, 151, 5, 70, "UsageDescription",ExpressionUUID->"f79befb1-ee61-4a87-80f8-00e35c058ebb", CellID->761268514] }, Open ]], Cell[CellGroupData[{ Cell[11287, 320, 187, 6, 70, "UsageInputs",ExpressionUUID->"51d856d5-ecdd-4366-a095-0ecd72ec6f0f", CellID->883992224], Cell[11477, 328, 178, 7, 70, "UsageDescription",ExpressionUUID->"7bdc19c4-eed4-42e6-b019-6e8d311eeb84", CellID->72720143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11704, 341, 1429, 32, 70, "Subsection",ExpressionUUID->"1cfb8dd1-faf1-4321-9a39-eecbfb6a86f1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[13136, 375, 1156, 38, 70, "Notes",ExpressionUUID->"f73d537f-9c50-4f75-9db0-e6ec40034ba0", CellTags->"TabNext", CellID->748934422], Cell[14295, 415, 348, 7, 70, "Notes",ExpressionUUID->"634aa7b3-8fbc-4701-9471-b8f5942698f5", CellTags->"TabNext", CellID->7763817], Cell[14646, 424, 550, 21, 70, "Notes",ExpressionUUID->"d2eca6de-07e5-4f5a-ad6c-7ab400c859c6", CellTags->"TabNext", CellID->475079371] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15245, 451, 7029, 152, 70, "Section",ExpressionUUID->"27270384-8501-4d93-8a0b-06afae0bc026", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[22299, 607, 75, 2, 70, "Subsection",ExpressionUUID->"f45e95fc-8d7a-419e-8c44-ec0a9128e90f", CellID->904125756], Cell[22377, 611, 158, 3, 70, "Text",ExpressionUUID->"9e4e10e4-2b5e-4bdc-8e74-8fdd10223d87", CellID->828942754], Cell[CellGroupData[{ Cell[22560, 618, 241, 6, 70, "Input",ExpressionUUID->"28399e2c-2cf8-4d60-8499-08dfc142b15f", CellID->895229925], Cell[22804, 626, 2444, 75, 70, "Output",ExpressionUUID->"07c4be71-dc50-41a8-af7d-c81d12267662", CellID->634565950] }, Open ]], Cell[CellGroupData[{ Cell[25285, 706, 302, 7, 70, "Input",ExpressionUUID->"c968bddf-24f8-4356-b80e-d13b2578e1e0", CellID->812110006], Cell[25590, 715, 1362, 39, 70, "Output",ExpressionUUID->"d83cbd95-1db8-4ac4-94b1-797f9748ae94", CellID->898685809] }, Open ]], Cell[CellGroupData[{ Cell[26989, 759, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"65569ae6-d20b-4dc1-a8da-f6282931cae2", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797627], Cell[27576, 780, 134, 3, 70, "Text",ExpressionUUID->"1e316c3b-9f67-4dd2-b4d3-98dd5ba01032", CellID->385144230], Cell[CellGroupData[{ Cell[27735, 787, 256, 7, 70, "Input",ExpressionUUID->"323a54b9-2ae1-4835-acb7-c8d78b31edab", CellID->261561606], Cell[27994, 796, 9345, 144, 70, "Output",ExpressionUUID->"66459401-864e-4e46-a924-dad70f7b8088", CellID->594584941] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37388, 946, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"5b0529f9-a0ee-4a60-816b-be30c96dfa58", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797628], Cell[37975, 967, 172, 3, 70, "Text",ExpressionUUID->"c666ff3a-1834-49dc-a299-1007190bf70d", CellID->361188242], Cell[CellGroupData[{ Cell[38172, 974, 1404, 34, 70, "Input",ExpressionUUID->"d230940b-2ab6-4a15-b3ef-bb9b0eb469f5", CellID->238253713], Cell[39579, 1010, 15217, 264, 70, "Output",ExpressionUUID->"929c7de9-013a-47cb-bbcf-11972556b381", CellID->502979918] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54845, 1280, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"86e32add-d39a-42a4-9224-98f3d86736a5", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797629], Cell[55432, 1301, 194, 4, 70, "Text",ExpressionUUID->"588f2a26-bc11-44f9-946a-83b02a9b7e23", CellID->943932080], Cell[CellGroupData[{ Cell[55651, 1309, 682, 17, 70, "Input",ExpressionUUID->"d5544442-64f7-46ab-8360-914028cd494a", CellID->450788314], Cell[56336, 1328, 4767, 95, 70, "Output",ExpressionUUID->"8e6a2adf-766b-44c7-b728-cb95944df91b", CellID->482247308] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61152, 1429, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"50aaac65-4cf3-4263-b642-bd27134f6ef8", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797630], Cell[61739, 1450, 192, 4, 70, "Text",ExpressionUUID->"1eda8284-8e4e-4c46-9f23-4d871a8f7983", CellID->797235435], Cell[CellGroupData[{ Cell[61956, 1458, 644, 14, 70, "Input",ExpressionUUID->"888d5390-dc28-41b4-bb83-6a99655c161d", CellID->777870023], Cell[62603, 1474, 109868, 1807, 70, "Output",ExpressionUUID->"c66235ed-3e50-4c1f-a003-cf0632203f91", CellID->702838152] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[172544, 3289, 249, 5, 70, "Section",ExpressionUUID->"3ed0ae31-6056-446d-8dff-84221ee9faf1", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[172818, 3298, 1026, 26, 70, "Subsection",ExpressionUUID->"b787f167-0265-4448-af3a-038b1408bbb9", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[173847, 3326, 59, 1, 70, "Text",ExpressionUUID->"08b7e488-870a-4051-b87c-ab850866e778", CellID->454270425] }, Open ]], Cell[CellGroupData[{ Cell[173943, 3332, 996, 26, 70, "Subsection",ExpressionUUID->"4d31ad6a-d32d-4828-80d1-883a3cc1ba19", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[174942, 3360, 45, 1, 70, "Item",ExpressionUUID->"80600492-d506-41ce-a905-4c004556a8a4", CellID->429184760], Cell[174990, 3363, 49, 1, 70, "Item",ExpressionUUID->"28a5879a-ee25-4743-b91f-d27cc24122cd", CellID->465864220], Cell[175042, 3366, 52, 1, 70, "Item",ExpressionUUID->"6e36064b-24a3-4e7b-bd07-552d733df4cf", CellID->124593965] }, Open ]], Cell[CellGroupData[{ Cell[175131, 3372, 221, 6, 70, "Subsection",ExpressionUUID->"e25df21b-eeed-4962-a48e-dd214f1bf07d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[175355, 3380, 7492, 246, 70, "Output",ExpressionUUID->"95404f30-507c-4b99-9bd9-cb518d7127c8", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->583690887] }, Open ]], Cell[CellGroupData[{ Cell[182884, 3631, 980, 26, 70, "Subsection",ExpressionUUID->"acb58dd7-1ee1-4a6d-9031-30a5f316dc0d", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[183867, 3659, 522, 8, 70, "Item",ExpressionUUID->"4940851e-d679-4a85-ae2d-11b71a1f1028", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[184426, 3672, 1039, 26, 70, "Subsection",ExpressionUUID->"7e264187-c69b-45f6-b831-cce2bc98f698", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[185468, 3700, 528, 8, 70, "Item",ExpressionUUID->"81c8633c-9769-4330-9c36-a5d1ce6464bb", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[186033, 3713, 1084, 26, 70, "Subsection",ExpressionUUID->"8ceabc77-d1bb-48aa-8cc1-023aba1f7d1e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[187120, 3741, 516, 8, 70, "Text",ExpressionUUID->"67dbc401-4849-4c65-8a39-987cacf5a061", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[187673, 3754, 923, 26, 70, "Subsection",ExpressionUUID->"25ebf9ac-afde-481f-a675-8dd9b639fa75", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[188599, 3782, 505, 8, 70, "Item",ExpressionUUID->"ca8b035c-a75a-49ce-85f0-ea0afecf57c6", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[189141, 3795, 1874, 45, 70, "Subsection",ExpressionUUID->"f562ae05-7472-448d-96a9-eabb1d999481", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[191018, 3842, 6278, 131, 70, "Input",ExpressionUUID->"ab265f78-3938-45ce-9418-0a8516c69bbb", CellID->744803172] }, Open ]], Cell[CellGroupData[{ Cell[197333, 3978, 955, 25, 70, "Subsection",ExpressionUUID->"612f0323-d052-478f-9cfb-cdaf30f67ae8", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[198313, 4007, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4e329022-635a-48e7-9589-f1125d6a752b", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[199490, 4040, 89, 2, 70, "Text",ExpressionUUID->"899d04dd-4953-4f2a-93c4-2c537191d3cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[199616, 4047, 1113, 29, 70, "Subsubsection",ExpressionUUID->"68afadb6-b4d2-4dbb-bf71-adf3e721d2bc", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[200732, 4078, 1321, 40, 70, "Output",ExpressionUUID->"5d7acaed-14c5-48b5-aa22-1c1abf0f102a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[202090, 4123, 1280, 33, 70, "Subsubsection",ExpressionUUID->"5982c2b2-e315-458b-a384-d15fb67a9e7b", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[203373, 4158, 1365, 41, 70, "Output",ExpressionUUID->"fd2e990a-484d-4263-829c-0789de8fed45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[204775, 4204, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4c819266-c6e5-46a3-ba85-97f57ecb02d7", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[206691, 4252, 2896, 83, 70, "Output",ExpressionUUID->"17d26a95-a709-430e-8fce-839e33261af1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[209624, 4340, 1071, 27, 70, "Subsubsection",ExpressionUUID->"419c69ce-fb37-4e46-8eb2-c0ac14fc8c43", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[210698, 4369, 938, 28, 70, "Output",ExpressionUUID->"8a6379af-2471-413b-9908-021dd0d04a91", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[211697, 4404, 1155, 28, 70, "Section",ExpressionUUID->"80ac07ea-ac50-4955-b0a7-4182ad8b839b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[212855, 4434, 529, 8, 70, "Text",ExpressionUUID->"ea34a752-f3b7-4ef4-9744-c3987f5c6f99", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[213421, 4447, 1033, 26, 70, "Section",ExpressionUUID->"b1b10a5c-b678-4ec3-a8f3-d8346e281b90", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[214457, 4475, 515, 8, 70, "Text",ExpressionUUID->"578ec2ea-c5db-4e39-8f05-b91f6d8608a2", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)