(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 317667, 6555] NotebookOptionsPosition[ 162376, 3609] NotebookOutlinePosition[ 304811, 6282] CellTagsIndexPosition[ 303002, 6232] WindowTitle->ImportGravatarImage | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ImportGravatarImage", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->315734650], Cell["Import an avatar image from the Gravatar service", "Text", CellTags->{"Description", "TemplateCell"}, CellID->644370710], 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[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Options", "[", "ImportGravatarImage", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"ImageSize", "\[Rule]", "80"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\<\>\""}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7594966726021442`*^9, 3.759496719883997*^9}, 3.759497063704678*^9, {3.7594971309764357`*^9, 3.759497135982894*^9}, { 3.7594980978334723`*^9, 3.759498126718669*^9}, {3.759498226657845*^9, 3.7594982394788313`*^9}, 3.759498386956532*^9, 3.7594985091900663`*^9}, CellLabel->"In[35]:=", CellID->195267468], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"ImageSize", "\[Rule]", "80"}], ",", RowBox[{"\<\"DefaultImage\"\>", "\[Rule]", "\<\"\"\>"}], ",", RowBox[{"\<\"ForceDefault\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"Rating\"\>", "\[Rule]", "\<\"G\"\>"}]}], "}"}]], "Output", CellChangeTimes->{ 3.759496787296393*^9, 3.75949716235631*^9, {3.759498115298208*^9, 3.759498127154434*^9}, 3.759498239985505*^9, 3.759498291258662*^9, 3.759498387426373*^9, 3.759498509846437*^9, 3.759501157063326*^9, 3.759585860889132*^9, 3.762863707225136*^9, 3.764096550231818*^9, 3.768670763812866*^9, 3.769343034061401*^9, 3.772912868754993*^9}, CellLabel->"Out[35]=", CellID->958705273] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ImportGravatarImage", "[", RowBox[{"email_String", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "params", "}"}], ",", RowBox[{ RowBox[{"params", " ", "=", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"OptionValue", "[", "ImageSize", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"First", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"ToLowerCase", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}]}]}], "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "\[Equal]", "True"}], ",", RowBox[{"AssociateTo", "[", RowBox[{"params", ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], "|>"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Import", "[", RowBox[{"URLBuild", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Hash", "[", RowBox[{ RowBox[{"ToLowerCase", "[", RowBox[{"StringTrim", "[", "email", "]"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "]"}]}], "}"}], ",", "params"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\ CellChangeTimes->{{3.7594962479104156`*^9, 3.7594962691939173`*^9}, { 3.759496370403775*^9, 3.759496387973797*^9}, {3.759496628645523*^9, 3.759496636107449*^9}, 3.759496681039261*^9, {3.759496751733552*^9, 3.7594967642931633`*^9}, {3.759497139681282*^9, 3.759497153376877*^9}, { 3.759498131865169*^9, 3.759498164081419*^9}, {3.759498248082053*^9, 3.759498266576405*^9}, {3.7594983225737057`*^9, 3.759498362699341*^9}, 3.759498405266645*^9, {3.75949847315*^9, 3.759498611940257*^9}, { 3.7594986460946903`*^9, 3.759498659476531*^9}, 3.7594989170902443`*^9, { 3.759499220906399*^9, 3.7594992212960243`*^9}, {3.7594992640668583`*^9, 3.759499337018626*^9}, 3.7595011495608177`*^9, 3.768671917552554*^9, 3.76867341461622*^9}, CellLabel->"In[10]:=", CellID->858487930] }, 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[{"ImportGravatarImage", "[", StyleBox["email", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->18516479], Cell[TextData[{ "imports an avatar image associated with the email address ", StyleBox["email", "TI"], " from the ", ButtonBox["Gravatar", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.gravatar.com/"], None}, ButtonNote->"https://en.gravatar.com/"], " service." }], "UsageDescription", CellID->31173855] }, 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["The following options are supported:", "Notes", CellTags->"TabNext", CellID->476111583], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ImageSize", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ImageSize", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["80", "TableText"], Cell["size of returned avatar", "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\"\"", "TableText"], Cell["URL or ID of default image", "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "always return ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "\"G\"", "TableText"], Cell[ "return avatars suitable to rating", "TableText"]} }]], "TableNotes", CellID->415018631], Cell[TextData[{ Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " is a fallback avatar used when no avatar is available (or applicable) for \ an email address. It may be any public URL (such as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["String", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/String", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["URL", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/URL", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CloudObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "), or one of the following options:" }], "Notes", CellID->370275733], Cell[BoxData[GridBox[{ {Cell["\"mp\"", "TableText"], Cell[ "a generic \"missing person\" avatar", "TableText"], Cell[TextData[Cell[ BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJydlltLlFEUhqVuuuwn1L/otstujX6A0iTdGGgQ/TgP4xwqz6Ii3oiIIiqi KOo4NjM97adZ7CaVvm/BbPZs9nrX+d3fy9FPwx+eDA0NTT5jGR758npiYuTr 2+f8eTc++XFsvPL+zfjnylhl4tXoUw5f/Pn93jcelnq9XqvV2HxLwmZubs6T 70nY1JJw8xGce+VHEmFFYD8/Px+GEA+9WRR/ZmYGBJ1vNpv1JHlorJxri8tF 8XGVDIgQmCanmcRDNji/sLBQFL9arZptYJuZRCBuuGCuiuKTlryIIOgqcbGx rGyi9EVFEKJAfXNz8/Dw8Obmppek3W4fHx9vbW1hDrvcMW9FhfBJ7M7OzvX1 da8vd3d3bjC3u7u7tLRUArmR8jM1NYWf3W630+mwgunaSeLm9PTUSpXAX1tb 0/NuEgF13r9GsbGxUS6Eo6OjSIuAP5PkhpCTk5NyJaaOAeVqrgYOuVZifulM 3dNh1xCR43BxcbEoPp2T1zRKcG85lpeXS/gfDZ8byt32hI51DAsJLXd+fh4D NQCY1+Lq6ooWfQiH0cM6DRCU20jDy8n6+jq6QuW1xv+YCGJkuiWNRhpJcaQX OaTR51sPbTaGCy1oIW9FPL+9vc0HmfkCZHZ2dkA9/KS1ZEJ5PoJi8DHBZm9v D6i8vsZCFAcHB445ngQFGbuYgEu50qCEHBHJn2Tp7OwsfI60X1xcrK6ugkBz yg9SosnRBCfxSInJic/K9PQ06njYarX0NjKDCZPDur+/T6R6pWKk2ibReXOi Xbl9ZWXl8vJygG2i0LlwDaZSKxA0oS1iNC4csPpQFjjdvvQyzkQIxBFoJ+n1 WU5dQQCUNNhb4kZ6c+lk8olLeduEYCvoIhjJFRUUUQfEVPv6RFCa4EuAat4L /riggqIfEtEwJs26WCO6JepYVFBEPaCcL6nGRGERMi8HrvgW2JPC5l8ddJr1 iob5f1EFdUBEi0+a+Pzb3t7u/U3FhfDVAsRqxqhGu/Kal3M+DwGQGKic2dgw qqXBwwQgMbPBbNSC1ur98w4WFdWBkkgB/wXwPFTv "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"identicon\"", "TableText"], Cell[ "a generated colorful geometric pattern", "TableText"], Cell[TextData[ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzFl79OwzAQxiNgYOQR4C1YGRlgKOIBWhEqliClCFRgpfAYgCgLf1Y2RsQE A20lKlFaJKTAAgUKA4OJA1Ydx+eznZZ+0lVqLrmf75PPSiZyy5nFIcdxCqPh Tya7NuX72eLcWPhn3iss5T13YdpbcfOuP5kbDi+O/8VIGERQ6XImFse3W4lr fEB67jTJaX0ncf/n9zv4jIwffNwZ8bvcWen9pnwqlQe63DR8lQe6XIgv5l++ gugeFkywB3i/fJiujwnbB7r7w5aP7YP/4Nt4gPFNejpv7ZKLxyOjPNxLI2Lr 9kRrM8nWAOVFPXUotxTLYx7wtWUMVb7LvScnHJfnqzyQ1eYZWD7i1rcJNKdM kAe0BqSr4AzNY+cDk8oDGeO3tl5edz5U+4BnyGpjeR0+NguUoaqN5dOGzfyL 8fBWjfVswmYymX8xDmubxvw08495YMPmGVge8wDi7ldWSeP1ugfzr/YA4vLr 68f8Mw8gruhPP+afegBxRT5j9HL+y6EH4jXs/VCnJ5Ww59Pyy7WNgfIjD9qV gfJVHsh4Ju/n4rxA+Vb7RsqDvi90+5WdD7I4qK6D/drsD+x8gDxIy98zOB+S HhRR/g9T8Ypo "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"monsterid\"", "TableText"], Cell[ "a generated \"monster\" avatar", "TableText"], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzVlktQWlcYx51202Wni7bTTmfaZV8zXXabSTsTk0Wm6WSaRTWVIMSooMQH GANCRDDABe7lEkEuL3kpYAB5+AhisCm21UFMamJ90DpTm7ZJYyeudGE/vYbc XAiSsurMnzv3nnO+3zl85/u+c95jcE+xXqqoqLj4CjxO1bQf4fFqBF++Ch+n ORfr2JxaZiWnpZZdy/uU8TI0vnvw23tfWX9cooZDU7fv/RGITDsHo/FkJhBO gpbWHpVOKCh/MNEmkBz9/Pix4yfF3QiTzT39VVVjEx/V262OYJn8e6t/25wh BCVqmA1Hjh4Dvf7Gm5zmDrd3FNplCv31kZtlrh/ULUfBOVrcip2pxt7/oFPU O+AOg6Ogi3yW6R94SqTq2cyvrLrmjz7+BF5IwV8of/F3lv6E58zc6s/ZzcoT X7z19juLyw9y3iuHDEAUtXR9cxlv1ICwehX/JBckYAiMPRaQSoJbLcMTk3P/ YZfnf9pQ8JSjAu9M93hx+ZqtrfWXBgOJUrBStUkkxyem0vJ6GY1zSxIzt+GE QD/QZqR1jXX4GOc4h8J/SGfF/QFf5iFXZojyB2kQe1f/zs7O7u7u5uYmIbpG 62VXMhbu3i/O7zN7PbP3A4uPu63Rb8VRqnlCGEzE4tvb2wYuK7u2FhkeofF7 v+4yWrzF+WprCOCkJFUiqnm43Z1JZ7LZ7LUPX5uO3xgZCtL4lxuvdqqtReBT t+7oY/MkXGoOVZ/lxPhDVIJTSGxtbYF/Nn7b8Ant1K6eajHYEomlWHz2eXzD wMHivfMPUKMbQk4qRJDzvfYmAwlJXRkjGjB9ncrV3J8jE3WYhC3pscVIW739 uRmntR3wYYsnpxdy7ZCnMo5sWhyhOUTFkkH8QwmFNEHsYdIW8yfnFtbz4ZCJ QsxJjunF6G6EsmzmPxOT8c6AiXi6mznfDqX/wvo9+XyYVOlNwgA8PBseS+Xz ucwWKh+iS6+2UcdcxR3+24/2Yk/nzOcPh5OO1Dr0ijQHi9dhNrxDr2MrQVqm /EbndZp/XC1mAnX5ApNkFYIVtqssZGyTJeuZ2TEr6RyTY2+D3M4IpGTBanBT FKbO5eGYtHUKBR+BWfAn6aPS0T2s3I98LJBKza3Cp0k5kE8Gn1R9doZ1trbh 3IX8XoSvgfRvU5qBA3lE4/eY9/i6J9FVkE/WGQXrStOJ8/ldoVaXZ2gMN7r0 0bSoz5dZ/J3Gl9qiM/uLByE99PJSivrl1uVf/ulCCNhK2NAcPJlaRIMzUDZz LRBCnibiheDjl/wWs39l/zxC3eMy9OkWQDa1axxQk6n/yO2IoI2Io6HvUDJU WpyjUSuMOVuoEtUXWql8nkRbMKnBY3DI5gQXFbii6I0uaiNch/IN4Wrx3Y/L 5Ht04vumtq4ipS8noEFBKFgBaIKzIHccSHuxQf/4oSZ3Vx7CykvkUwXVo5Rh gCXvhC/KL0UQUSqtaTQ+CzIQg/k1qnyVedv5n+pfLsxzvw== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"wavatar\"", "TableText"], Cell[ "a generated \"cartoon\" avatar", "TableText"], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztVWtQlFUY/oR+9DOHQaJhTKB/kFEOEzNOzZRFxpQGRooSsFzkW8A1F5CL y2W5SKyIC0sLH7LAsi7IXZDEJpiUBqbp4uTkBceZshUQkXEY5JK18PS+i0E/ rIDVH03tPHvmfGfO95z3fZ73PZ975P6gvQ6CICQ+SUOQLOU1pVKWtuMpeghW JMpjFTHRbyuSYmJjlH6RjrS44cGf5x5x/+NfA++YtYTHRO4uCvuSPyDQ5HHw +8W5XTbUX5JML+x0cXpVWOsnuGwV3OWPjL8oX4HO82jpVR+QbYjhFectgmvg 6gnp3XX+gkuA4Lpd8ApxHu8ZwLnv0PXliKH5+WgnVkwuOL0iuO1aveDPRgnr w5jhiCYdV37EhUF09+PEmUzlHg/xwR57UljAGwe97g5ex9hdXLuBM/2o6bRo Kn2jXR+B7HKG8WQpJu5hagbXLeg4j4pWFJvV8bvs5/f8cM3r73pPD4/CasX0 LEvU0gNd47zGWOQf5BXuZO8R4pqaRi1m72N+HhOT+PYqGj6Dth4FNXMFNWmx Ozzs64WAtJcmLENM/psVQ7fRdwGmT3HMTPzIr7Zk63yj7HLB3H6cZSf+ezO4 +hPODqD2NEoa8HEt8gx0So5896rJtyR5T46OsfLWOdy6g69+wKlzqO6E7iQ0 dRQ/8g1X8vUbI9atxlnRoa6tHDO/cPCUwrWf0fs1mj5nfn0zjp5giWwpfLR/ N9m0Uv5tqpcnb45w5HMU/Di+uYzOPuos5pdaWSKNcSGFS4UVm6LdVkROjd/S UYtZW/DTs6aiElN6Dpp7UNcFQweOt6OsEcW2FA5XWwtrc+PDV3TRBaT6zty+ g7l5Fn90XLL9YO5mcyn+qlPcYqUN7ILtiOFcvU/EcgvJU3Rs6qjm4IFWc72k PpwnKvIi5VJEghQezwiLk0JFKWSvFBwpBUaMpZfQKVlx5ILDcvgDMzZPDd1i 5e//CssoBi6i/Qsue1KGQMETKtvYZWo0LiQDGX1TXeYnW78c5Tva6vgqo4Jf sPV0H4xdrHl5C8qbmZbRRLcEN1qhEXlVUFfSEQXiP7vwVuKmqYuDuDHCV1n/ 92jtZWZtAxdkkWkJR+q4frjLqpBZAZWexpEsnU/YM39D/pz4RLW+gAUhUKtS NVIdkoMUXpaErIolZNqQUY70T5CiQ3IJUnW0Ry0P9Yx1/MvgFS+ON3XzR5D6 iBQmbYmEXjxYwkhehJbHJC0j8RgOHIWymFdU+uHsss1RHg9XXhQqc1VoOMtW UvmRAtkS0sqWqBZBnIsgZgJNUko5L42xWCl/qAs+0U/npMtLD+0rThYLE8Jz ZMEZIdsOvR+QFrQ1NdCf8d4f2P4mj39aoT2qne+ow4IKxNCUhNCNUc4rvS7+ s/gdbEMxmQ== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"retro\"", "TableText"], Cell[ "a generated \"8-bit face\" avatar", "TableText"], Cell[TextData[Cell[ BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFABikFsJcVSgmjLFzdMRIxGItGQMB+PRiLNx2/1UDefSGOpGNFD3XxSw3+k mU92eh41nwzziUztZOeI4Wc+fquJ0Ti8zR/q8Utd80fRKBqECABJOpXl "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"robohash\"", "TableText"], Cell[ "a generated \"robot\" avatar", "TableText"], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztlntQ01cWx29+SVEKbkERrQUVCgKBYMIzL55BSCSEliQoCOGRhPAyhBBC fIGCQEBQClJAngYC4V0pUmdaW+v24ezsOLuzf6zOTnf/6nZ29o+dfUythuTs /aXi/rHdR1j/2Zl+Z05+ucmd+7nnnnPu7wSV1+VVEAihhp34I6+sKU2vLzsj 9cEDubahSqNVq0Rag1qj1rPLqfjHw8+Nhn7Uj/r/EnuvHwrHT5aXF0oLOkzk JyfR6hQltFbTWVqLwUgrF+fQBG8GE1/99QkCAJS4Z/dL4WYeCUX++IkrjNKm 09G+/v03lMePHqNfPHz4Ys6XXz548V2RJSTexM9QbJx9/tvmkvs/nZ+PTCol 0uRKiOtdZgIdZZJ/UYJo1HARnV50SpBxUSmR9JXn5Fx9OyGhIfxVT+YyOw51 iLIo5EQJh7NtfrkwC9VI85AkIZ4gzxPLo0IsVjXr6h92t7VvDg8OweTETbBY rC6bmrI4O843g5TDMU++O4zW124T4Z47t8UmYx35ChVhnwgyioH42upvbf35 xvptWFxZcy6urjkXlt/btC0s20mbm1+y9/Zce9Z6uQPqqmu+Sw0LCxJERSJZ RgaRuGeP2/yE3b4oOy6O8nzoO9bX9+vPvngAtsWVZzNW26Z1dh6scwsum19c gfa2djitrQN9Q6MdG5RI5fmakjKkxvmZsI089KNR0d2NDeq9O3eQ2dTU9fnn X8C01fbUarWBbX4J5heWAfsN2G+YnLRAg94AjUYTNDY22Q2NRig7cfKqobEJ YaMxX3U/BsKwI1u+71hbWPjq7v3PYH7llmNu5RZMYJ9HpiwwjrnLt9ZhZGQM 6usbXHzM22xsOgPY7w+tP32AVn/1iNhOHVa+lUtIohko9WBg8P1P7j0bxblW IZU6q3l8+JCVAIthkXD8YCDoCgpgaPjGP/gGo8NoOguVStVv8TIe5FrJhw9R /gPun2RSqYjBS5dQj14fMT484hQcOgjJ3p7OHF8f+JnfAbi19wAk+eyCFH8/ 6G7vhAaDkfSd5DtJfo2m8tvYXd6BpO9ZDAbhLh/7RQy1tKB+gyHwne4rT7gR EZAS8IaTHxwEqaGhkBrNgEwOB87iuI+NjkO9Tg+G788fMN95uqYWjkVG8kQs FpKw2VR3+flc7ov4379793cWywxUq9SOOk0lmM3d8O7QCExPz8B7a+tw8+YM GPA+XP5jw/Hf1Gl1IGFzCuWCDCTPOEYj68kdMf38yDvcde/M3LixPtLXBwM9 vZsDXVdgdnoWVtY+AOvqBoxaF8EyPQfnzpwD/fMY4Dyw63E+yNLTTaXyfFQi k7vNj3rtJ2jy+iDNOjKMei+cN45eH4bOzj77IM75sRkbjA0NwNTFOvg4PxEs Ji20dV3FMajfqgF7A74DCo5nD2hrapG2utZtftKB11G9QkHIxGVIIiiMu2Yo hPVmKdzOkcA9YRr8puUwfNO8HxzSN+BTZSZ09g2BfotvMD414vMolZ9Y6ugf RObBYaq7fHL+9zlgxqNrr9TnJT76w3g0/CUt0vEsjgV/OhcAf+zxh9mk/dBT VuAcm5px4DvIjnPPgfewWa3WQC6Xu6TT1qHGJpPbfFLC2FjUdekCra2lDZlq daNTl4thXpbyZD41zd5fJNhsrTkJbZe7cB6sw5xtAUw49pUqNZTK5L/MjIqq 8kLIm1wnytOTsh3+CR4X9XZ0U83Nl9Bl0xlJ75Xr0D8y4XhndAIGb1hgxrYK E7j2Bnqv/Q33IA9Vcnlv6pFQLia56u2ot5frHLfMXYkZDBSxa6erlyFNLc7k N5WXN16s1Rqr5DKLRqEASXLyn0MQoufi+ZWxLMpTPG90eZVC1hwd9wkMKoGS AgLcZm/p5ugomh6fQH3t7ZTVpSUk5vKo2binyGQy2RVKFZyUyoHl68M4RPKL ij2EMTFUvr8fYhAUlB4Ssm3ulo7jM9hSVf4Jqk6p8nidPJv4eLpGqbIXSmXA Cw7OTgoLQxlHmVTc//3PzH+lrIhw9HZKCiFOTERCFuuIRql+qigohJSIiNJ0 JhNlxce7Xef/rUT0CBTjuQPl8vjEcR4P5fL59Ipypb2k4BQIoqNPCzlclBkT 4yFMSEDZScmI7b/3pbEFwUEoB7+LxYwoVFNWRlMWK5CmqKi4qrIaFIWnIJ1O Nx6Li0N4XzRhQiIhzclFednibeX8D4lcZ98Oj60hVUQP59dVaL7WVtWAqqgY sM+P8X1dGuXtFcbA/Wbcbl/XuysR95AvQ0xfX7L+KGQN9pw/P22zzsHFcxc2 tRWVoKuqhhpVhdOI3z2nZPlOfkiIKIUeiUSJbKr7XecPqzg9neDt8UGxOz0C FmZt3668v0H2fY6J8SlX/437T+ftOx99126+AqKU1PW3ylSorq2T4Ozf92/X /TteYxSa "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]]]], "TableText"]}, {Cell["\"404\"", "TableText"], Cell[ "returns HTTP 404 instead of a default image", "TableText"], Cell[ " ", "TableText"]}, {Cell["\"blank\"", "TableText"], Cell[ "a transparent PNG image", "TableText"], Cell[" ", "TableText"]} }]], "TableNotes", CellID->614594346], Cell[TextData[{ "If ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the Gravatar service will always return the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " fallback avatar." }], "Notes", CellID->477270466], Cell[TextData[{ Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " may have one of the following options:" }], "Notes", CellID->656782353], Cell[BoxData[GridBox[{ {Cell["\"G\"", "TableText"], Cell[ "suitable for display on all websites with any audience type", "TableText"]}, {Cell["\"PG\"", "TableText"], Cell["\<\ may contain rude gestures, provocatively dressed individuals, lesser swear \ words or mild violence\ \>", "TableText"]}, {Cell["\"R\"", "TableText"], Cell["\<\ may contain such things as harsh profanity, intense violence, nudity or hard \ drug use\ \>", "TableText"]}, {Cell["\"X\"", "TableText"], Cell["\<\ may contain hardcore sexual imagery or extremely disturbing violence\ \>", "TableText"]} }]], "TableNotes", CellID->819558503] }, 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["Import an avatar from an email address:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7729036880471864`*^9, 3.772903693649186*^9}, { 3.772906580927044*^9, 3.772906599606573*^9}, {3.772911921802046*^9, 3.772911923532539*^9}, {3.7729120704013567`*^9, 3.772912074800995*^9}, { 3.7729122097241497`*^9, 3.772912236929226*^9}, {3.772912496621502*^9, 3.772912503179035*^9}}, CellID->593937995], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", "\"\\"", "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{3.768671326796627*^9}, CellLabel->"In[25]:=", CellID->889247845], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztXHlYFFe2zzeTl8RMJia+ZJxkxiQigrggoEKvbCqIICKggvuGGyoKikZc oihGRQVRAUVF3Eei4oL7GjfcMs6Xed9Mli+JeZOXOGb7XvKy57zzu82F6urq 7mpcMPPeHwe6q27dqvrV76z3VLcckZE4+lcPPfRQ1mP8J3H49IjMzOEvJz3F X/pOyho3ZlLaqJhJU9PGpGUaRvyaNybUysMsKSkpZDabH0ixWCwut6v/6z0+ zb8LXXvYi6WlnVyv3bbn2ba0+9/96Nq/OY5Rjj3/65do2LBhFBsb2+hYNQRT 9WelqLcr5xjcyaCJn5SLj7aioYHBLCG04bn2dPUR7bHALzExkXr16uX0Wf0r SozRTFcU3LrMeJ153NsOm8NP+lC0wUQWHt872Ej5L/nTWdUY4If5IiIiqGfP no1+X3p5d6fbgMnlx+qxqGF+pXfoQldUPNvwXDuyKo6LMppopk8QVTf1FfyV +EG6detG0dHRjY6TOwy09NeZTrvC7+xvfepwAhfjQ5hjLTuqdNSLXvYNEuOV diDCZKaNz7e3w0/gGxUlcGxs/LTuW4mVK7+hxw4Bj9fgHxQ4DQkKEbhUPutn h2EN6/YA3qc+bxTbgD1P+zjMDQ4qMTSZTA8Efs745gxbrbnqxrFsZL+gxCmt fWexPz7ERK//prWDLRzMGIapzhffOUTzXN27dxfS2Py7l7LmRX87jLJZT+W+ dP9gR5/LOl79dBta4B1ISV2M4hkYjUan8wO/B8Ue3guZxzgo8VnsFVDPVZYV /N1ZfHP5kVa0+xk/yvYJcHmOrl27Uo8ePR742MZVTOhsXGbbznaYFPyxg50d 6NfZQNddxM/K+MWVhIeHU0xMDIWGhj4wuGiN0+tT5OfxHBsrsaho3s5uXDLr 6HXmmX3O4Tl+8B9Wq1XkKIgTHwSuudMHzbiGpTv7zBEBwZTbOpB2/K6tHRYH m/nZzZHMMfP1R+vx288+JLN9F9rOfudKbeyoBz/lNcEeQh54fWYJ51gEdj7T rxOtatGBDrLtrxF4aOskcrYUzuvkHEnsh68pYux9jJ+1du44fg6zWf+3P+vn 8bWBg+Ai9FoPB+4m75ztw33FcvyLusACr460lbl1lmOQ6y5yXC2pataGIk22 ORM5d7vapB6/Q4xfmOq8rvyvK4E+w6+Ai/h8v/mFODeV7dcMzqXWcB5wkO+t 5tFWHmElayjX7b63pKWcg4BjCciRm9THgcc5X4lQPUvgBwwa6hskFxFv3y+d XvxSR3qd9eqqh9wSeRrHdIee8qW17Gunt+lEKexji1VxIHK54Wwj400Wqnm8 Hr/TjF9XkyP/ZO0Ags9qHPTkH8BP+pe7iaPWXD3YLh1S5K5OsWIcTrMOb27e lvJaBVBax2DhP0Quq5i7O2NymG2j8thjPH+KwUwXFXnIuSd8xFil/1LqLzgI LgIHxM6e6iXGI3/Gc0DceC/5mMC8Oa7KscQ9sr1a0cKfprTtRH15TKjO+YZ0 NooalnKubczRC4pzAMsoDf5pPfPIyEgR8wELfPYEC+AI/OPi4hr0HPRyEfbv 9Sb29bhLrJ8j2Id4Op/FbKE8304qf+Nl56svsy5HG012x0r8+vTpQwsWLBDb gVtRUZH4jLrq5s2bKT4+XmyfMmUK5efni//gK/BdsWKFkHHjxtHIkSNp4MCB Yk7450WLFtHUqVNp6NCh4js+Dxo0iAoKCoSkpaXRiBEjaNmyZTR37lzBXzyv hQsXimOVObhWTDeSsapRxbjgYGpQiCbmzmJrCHxD5e/bObcHPG8Po70tk/iV lpbS5cuXBV59+/alzz77TPwHVm+99Zawa8Br79694r4PHDhAGzduFLX/kydP Unp6uhi/evVqys3NFXMChytXrtD06dNp+/btwi5cu3aNpk2bRqdOnaIJEyaI 57ZmzRpaunQprVq1iiorK2n+/Pm0e/dumj17NqWmprrl4SSOw66o8qxjT7Sm 3l0MLo/Veh5JHLOce8LRLghh/Y4xOOIHW3XmzBlavnw5LV68WOBw8eJF8R04 nTt3ri7W27Nnj+AZdPP999+n0aNH09tvv01VVVWEdSg1flevXhVxDnDLyMgQ mIO77777Lh08eJAGDBhAJSUlVFZWRuvWrROfsa2mpoYKCwvFtbnVQ5bZPoF0 VYXhQfaz0QbPa2/Z/sHaMTbPHxNidMAPOvfOO+/QoUOH6NKlS0K/du7cKTDZ tGmTJn64xxs3bgi9BCeBJ3QZPH711VcpLCysjn+wf9XV1bRv3z4aNWoUTZo0 ScwDewBeA7Py8nJ68803xbPDuaDH27ZtE/u0+KNeJ0L8nP+Sunbckv70bNu6 eFjvWp6V/5e/6DgXJJZzOuU8wG/t2rWUnZ0tvuO5A5+tW7cKHoFfp0+frott du3aJXC4cOECTZw4kQYPHiz0fv369TR58mTBGXB5y5YtNHbsWDEffDp0EVzE HDgOn3FMVlaWOCYzM5NmzJgh9Bz4Hz9+XJwDNhEcxPPAc3Blz4BhMftM9T2X cXwdpsMfSQljX5LeyWiXu0nZ80xbmuPXmRKY19Za/OAbcH04FrqG68Xzl/PJ uA4xHuwV9BRrduAP9uF7cnKy+I7jMB8E8+A/+AQ/gDF4DgkJCXbHYF4Zf4PH wKl///5iP64L8+AZyHgAIs+F43BtGAf7HGmx0jYNH1DA3LRqYFXHZcYskeO9 XI6pDzJGrtZ9hS9hbHc3b085bYLqrkl5XbhmXBfuHdflzG9hH8bJWqtyLgie B/Yp58O9ymOwX3lu5Vj1eZU6i32YCzZCnhtzYY6kqGja92xb1T170Ss+tnUg 5T10Y9ymdgyhnc93oBoNvrkT1F9wPePHjxc6nJSUVHd/uI9Zs2YJ3ZszZ47Q JXzGtpycHBGL4PmDK/gMm4hjcE+4N8wxfPhw4ZPgi+A/wFfJW2CGYzAXfDG+ w//37t1bxECvvPIKjRkzRvAV27APAo5qCfZJ7g+MiaWjzezXgeBfJrfvTOGI e7qw3XopgC494aPtK9R8Y997UcSaXg744bxff/01/fzzz8Jn1NlR1qPPP/9c bNeSW7duiTGI1fAdcY3EHXMeO3aMfvjhh7rxP/30E73xxhsiJpF8w3PBvi+/ /FJgBlyBBZ4VtsMfAQ/gBwGWapH7IBI/yPDu0XT2SV+7+0WOcZxxdVdXVnN3 BsdIPTkfnsq+eesfOC8RebFt/Tc3dx7j9xXd+PM1un37NsVEh1NstIl6x3Ku viCLlr06jfIXZXNM+Cl9evsWLV+cTSWF02hVfgYNSzFTUUGuuNeNZctp7BAT Deprod2v7RDbPv7wBm0vm0Tlq8bS2/9xVmy7dvUSZaeH0dzJRiounG7D9scf 6NjhSlo+20TFuSbasi5bbK/eU0Qbl5hp2woz7VxpocrVFtpTbKV9pVY6sM5C h9Zb6PAGCx3ZaKWj5TY5tslKxyusdILlypIQut7U26FurCVXOQ6/1MQx9it9 wd9O78GvWM6jp3UIpg3sm9766ym69fEH9PqhxYIj29Zl8PUa6bXVRtpVZOTr NlLpQhN9/tnH9M9PbtLil81UvtRMG/i+ShbwfVUsEPe6b9cKKpoXSvOnx9MP 339Dn316m/JyelP+rAhakhNJ0ybE0M0P3uexP1FpYRbNzOhORctniWP//ve/ Mle/oyXzR1LW+B5UuMzGyy0VJTR2RE+WWBo9LJZGDoml4YPjaMjAOBqUEkep /eMopW8c9WfplxxHfZMgsZScaJMklrwuVpfcOtrUl/K8AykjIKRWR+v3H2jW xqHmoo7/vvnmWxH7IRb5/vvvhQ7DJkO/pM+Dbf7kk0/oww8/tPMT2A/7hntF zgffM2/ePPH9yJEjdeugsJPQa+ij4CrH0dD1mTNniu/FxcXCViD2wTjldswp /YP0EUpR+ywI7ABkIOvwiaa+DridZf0rbuFPwzjPg19GXeCoqgbzOo/BGoir mBH44Tphw2HzEUd/9NFH4p7VPhf43bx502E78mbMAR+BfStXrhTfkU+ofSR8 AvYh91DaP+QfFRUVwl4iDsT1SPxkfNMjmuOn+EhKTY6koamRNHpIJE0cFcm2 IILmTOFce0YYFcwNo9K8UNqUH0pbF7I+P6fyIcw31LKiFHlsKPvgij861gAz OrivQwC/r776SvhPxMrIZX/88UeRz6rHSvzUMYvkH/JX8EPihxhcHaMht8U+ 5LcREeE0d46NZ9X7ymlWZhx99d+36a2//YW2rR0vth8/UMQ2z0xVJSa2exba XhhG5fkRVLY4kkryWP9z+fw50TQ3K5qyJ0TTxLRoGjW0B41MiaEj3v4OvCt8 0b8uDpRx33yO+dR+dUVtDdpdzC35pxbkb8q4FQJ/C/2V+ihjNOl/UYOBP56a NUV8r7l0nsYODaPZk63MCyvbRiudO7XTpttVBVS+xEgVa21+4vTRTTQ9PZzK 1haK7+UbSoQtLi0tYT206SSuRcaHMi4VMbOC37jOBB6/qWWQHR7Xa/MQdQyd FhjiUPer5Pg5zAVmav1FToacHvkX8qgvvviCPvjgA8EdZQwr+RcWZqW4GCsN 6hdKU0ZbqaLMpr9H9i6nylUmWvRyJP3z1n/R9999TeUrh9CUNCMNSzXTqOGJ 7IM+pW+//VbEdUr9BVdl/xdsyHvvvSfwA6dlzKzMReptXQz1T+pGWePCaW2e hfaXmuhCXAcHf7tdIw/uFWKiU6o69inUbWprBHrWk4EfYljlWKnDE8an0dAU K708wUJ52Rbhf2/fukkrXzHR5mVGWjnXQDPSjbSq0Ba/FBYs59zbFjdCT2HL EA/t2LFD1BDBXcGt8vK6fBa2DttQp5DnR3yO82M76gfKXEbkhLHM6Qwz/Wml gU5sMtDeYgMVzDHS6MFmKgwKctDFA0/5OtSdEhi7StX67+VHvGhMx2CnvNOq fQG/qG5WGjWI4+BpFsbFRGcPzhccOV5dRvMyjZQ9zkipiSb6xz/+U9SdlFgD A/gPjIfdk3kFuAS9hi8CFuASaoqoVci1KhyP2uB3331X548lt1DvwnbMGWq1 UHxPM1+fkQ6uM9CBUgPlZpmoX4KZIsIwj62GlaVRBzzOfOoVbOv16ckY5rCt q2QuXn7Eca0OXJzp14n5Z3KaK2v5j3V5BlqWY6QJw03UK8YsuCHXJpVjpR2U PTEyF5MxBeyQ+nlhG2pcqFupfbqsX6NmhTwC+3FujBF5YTLHRjMjaM8aWww6 dayJn7X2fYxBHbrOjtkwPMux3KiAYJrWthNta95O5GC68g1+Bvs5R1nSKpCG Bhlcxn9DO2n3r0kBvyReMt7DvTmrKbgTHAecpE5ibuX6CPR/KOc0m5Yaafdq G2bdIl332A/iGO5CE8fc/wzzSWu7Z+JFJ3metRwrTuZ4JrZ2/Q7njcO6XVP7 /knl2hH4JW1OQ/BS6rlc31RiZle7Y9yA1eH1BipbxPYiCc/OfR9kAuvmKY11 OLe5GnMM/S/5XgFUpaNeJbG8+Jg37WIuz/PtJGo2yH9xL7g/Gcvjs5ITDek/ lf4SNgD1AOX6uhK3sFAz+3ATVZcZOS80UddI9/1WEj/0a6AvVC9mWGdCz26O b5CwhcrriWUuZbfrTBWMybnftHbwQc4E+EmO3Y11RslfqeuI07RwCLWaaeII E/tOIy1h3Lp39YzbUXz/e5u1cXt/4FkV52XzvAMosbZn1N3c3WFPORde2TKA jiCnc8FNT/qv3OEGu6Zn7T0p3kyvrTLSijkW4fs9PVcYc2Xz79T1UW3Zz/c/ 3zuQhgUGu/QDakHv0Bz21VWsq474ed01/JS2zd06e2S4mf28iXMxI/VNcN/D 50zyX/BvQO+Ll/DP+5izq/j4TPbJiWw70eMGTqJPoT9/X9g6kPY/4yf6ZPTU vBqKnxI3d70aiM+Gp7Jv2GCknEkNx03JvwEcl0zne139XHuqZv94USOe04Pp WY4P4UcOMU/11FTRU370qTZ1fal6+0/teMQ809NzZbPzZlow1ch2zsQxsOP6 2Z3wvu4c/D+OuTOS44v5nPdv5fj4pAc+wJ1cQa84+535/LzQEx3Dz+9qbd7n Cf9kvIu8WA8OXSPMtL0AeR787P3rVwWe6A9M6GKgKZxPFLXoIHzNFRe9p2pB Lofe0pnsq5G/2L3DxXL5t7668ZN9u/Cnen10cryJjm4w0IQR2v3KenvBnXFO zzg1prB1wwJDaK5PoKjFnFbVDvAO3MbmbUW/b1Tte4PqaxJ+0myhS0/qw0/2 Brrr1VVK/z5mjucM7GfvTf+uux4WPdhD0gPs++/R86un5oI1z/NN27jED2MR F+rVVSkDk820n/P72B53v//ZFceUXHTHbfk5S/X+R9Ef2mtyW/2/K+N3xgV+ 6v5wvfnHqIEmkbN263pvMPMETz1jc1XvH6HvWc+xEYzfiacc8ZN2riHvGw1L MXFMbKCI8PuPXUOlWNUjhPd69RwXztgcVuEHvyBzX0+vA/bu6EYDRd0D3ump Yar9iFbPh9Y49fuXY9p1tvMTzo4PZTnwdD1+yPP1vM+hJagXogaMtfbG5JI7 /+EwnmW36v1f5Hh6/Dn626qa1eMH3jWkdoD47sBaA/uM+/t+sLO4RQ9/lfjZ vX/O+PVRrfU6wxKy5xm/BucfVqutflK8wERZY51jd7f9b0NiFGf7bL9/UJ/z 1XDuFmZyHRvZch0LDeliopNN9cfPShmQ2IX2r/amM+WtaEdBJ5Gf3U/u3S1R //7G+SbeLmtb6KnM4Ni7UvyWST3unuVvZjpe5kX/c+H3Qs5XtKTI8MZ5t19v 3Kzcp9w/SPX7L/g9DYt6PpYejPM8v850QvgLx9zPE/zCQk10jjGT+N2ofIFt YOP9NsKdiO33h+px2PRM/XuUwA21rKKWAXTeWS9+A/CDrk4cFkR/Ydz+VtWC stICGkV/neUGnuTMqCsocSh93vY7L6NZR7dwbqzuSbCvx3Ce/Fw78d7c+Yc9 8x/Aq1sk6u3Ge4qdOx+rJ1fTGi9lkeq3Dao4lqlu5qZWzzZyOWPWp3YdADWe vU1ba57rbr6r39C1znsphS0c+/Sd1VixRpXTOtCuZ0vKCP/OdfcncUP+K3+T DT3w+Iy+e8SIcqyyh0B+lv8xTq5Pypoh5pTHy7Gy518vb5zlBs7E1THrXbyn JerMzMOdbBPTOScJN2mfH4L+A/R/430E9AwPGTJE5MASP/xHboLt6Fvu16+f 6JdBryW24z8wRu8xtuM/esYxF8ZjHwRj8a4X3tXB/Oh1xntvd4uXns6z72nH nkpb3bQVlbD9GxAYoquHA/iBB8AQ2KDXAr0U8r0z/AcW4A7uGWMxBjUG7MNn cAnYoQ8DOMnjwTvgju3oJ8ezwDlQh8V2zNtY+ntCteZ++nFvymvZUawD6Fnj VOInawe4R7y/gPVH8Aj7sV3qnHy3BduAA7DENnAXa0jACcdiDmwHPvI9G9Ql lP21eBbgbkP558r/uooJ8R19bGces72LUMVx3zSfIOqqei9VL6cb+vsHdyLA EvgD28bwK+DY+ubtaFSHLiJnu5O5GgM/T8Qdl9zFgZqcNJsd1jbcnfuXil9D 78uTY+5EB36p+LmydXprM+7spR6+68GvMX//z1Nc7/c5f4n8e5DkfuGnt2bs TDeV+1zlF+rjXPkVrfmdzdnY+N1PcWX/7rb8X8FP735Pcb6X/sOZftzp/SvH 6PWnen2yp+f9V+Tf/ZR7iZ+nutBQ3umZy1Ve4sxXuPIh/88/z/2MFv73G787 8YPu7JtePNzlzJ6cF/j9LxjnRMo= "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7730727497556963`*^9, 3.773072768106531*^9}}, CellLabel->"Out[25]=", CellID->859165573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell["ImageSize", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7693378053975887`*^9, 3.769337853325931*^9}}, CellID->124620674], Cell["Specify a nondefault image size:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7729036880471864`*^9, 3.7729037142581863`*^9}, { 3.772912603028459*^9, 3.772912603972417*^9}, 3.774689407774863*^9}, CellID->87646134], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"ImageSize", "\[Rule]", "128"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[51]:=", CellID->154288195], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzVfQd4VUX6/j7/n7qu69oLuioQWhLSy63JTQihhA6CdJBeBZQqKCBI70iT DiItdJCOdDA0Xd11baurbtOtdnfX3e8/7+TOzdxzZ+ace0kIm+f5ck+ZMzNn 3q9OO9V7Dm3T9//96Ec/Gn4z+9emx+h6Tz3V4+lH72An7YYMH9BvSJ/eRUNG 9OnX5ylPz/9jFycG6QZGPXr0oKKiIvL7/ZVCOTk5ynP8Wu/pnlWl0+Urn+vK kK/JaVTHunx15erq0DPVRVdujKPLN1QPoys3xDEKP7/M6MLNNWjH/XXp7E9q 8vtXwp4re+aK5VzO88T/VaWePXtSixYtKg1/E0aqNre2m939aPA0lWHCX0d2 dZbvdU9306Uf15Awqm7B0Ho9jpY9nExdM920oHoqvfqz2vyaLr2VRwT+7dq1 oyFDhlBhYWGl43898J6Jh+yuOUmjK7NjlofO3VLTgHfk+YWb4mh0QgblsDxa urw0sXYG7b0zni7dGC7/4bqhjIA/9H9l2gC7drLT2yYdXFHy71Smo9EjLTw+ OsZk2Cr3oIsWvSBjePKntahThjuUTyOvj4YmZdHm+xLpQvA5lfwL/PPz8ykv L49atWpVKTrADhtTu6qeV+Vlx29O89Hxp1MeNj1fjx3vviNeKaermZ4Hzqp7 oB13J1Bjxj9yOfV8fmZTXPTiQ8l09hb1s8Bf1KOgoIBat27NfytLD+jwcoq/ 6plo5LW8ya5OVtp+b6JSxucw/IclZ9Olm+I0ujyOXngkhQKKsnLZeetsD82s kUZHb6sd5h/K+CMt5L9ly5YUCAQqhQcqk+ei0eUqudbJv5N8xfGmnycp/P/q 9GKVuhzbBXFpSv+g1BeoQSMSM/V18OdQEdMR45i/cJHFDlb8RbqGDRvyeCA3 N7dS8NDJixP5NukMpxg40QdXwzu653C+vFqqUk/vuieB8tj9AqbT996boLUD x2+tRe0zPWY9w/KZkJDJY0Ar/qJOTZo0oaZNm0a0a6xYmq6bZMtpm+vyihZD Ew+a6qRLq+Nr3e8U5r9bZZ/L6e11KJ9hDxluy/z8cxZfQNYHOxivwAc0vTt0 ybqqqUr8RV2AP/jganjgeic7XtDhFC1fmPhTPh/M/PYrN0T2AV1gcSH8OSG/ TzJf4MpNkemEbZ9btdQXMMlLIctvyz11tG0D/Q8euFo94AQD3bGdrFmPddha 8zZh4BR/VR2jrbP1vA/6AG+qocS0viTTwHZRjXStHbjI8phaJ4Ma4BlDmzTN dttiAx3QrFmza6IHnOBowtwJ/qbrujro6mnHXzp+0/FdD2a7Lwb7c62YPprl CUsL+d17X6LSXxQ8U8L0xmoW/w1OdwftR/h7uN1m/AWhbwg8UBk+YUXzm1NZ diLrOn6ysxfiegdm289q4vxBTDdYn+Xpb62t1QMynbutDi1k/mV3xkewJdHg D2rcuDE1b968QnlA1566a9Zj1X0dFqY66ORXd92OJ6x56PJr5vXTEd4HGCfJ c+l4zzOJWcoyR6S4wsYNhOyHPy/3KcbR0bsTaEbtdGqZkR0VPo0aNeKxIfoL r4U8qtpbh6kdzk7stFM5V507lXVTWQFGe+6Mj+izBU2tmabMox6LCbZUSVL2 CehiBMEHJ26sppUZHdWvX5/3EdWrV6/C9MC1IhWGKt6Llk9MPGGXdtf9dZVj PjMfSeH2W5XHGmbjrTGjdQxBN/4XS7thzAB6oEGDBo545nolJ7iq7kXLB9HQ podTwnS2OF75QF3el2ttb47/Iylh+l2QVd5l+6Dr/3PadvAD4BMiPlD5BHb2 T3XtatpbJ7fWZ63YO3nWSd2c3LPjuTx2bU31NKUM77k3MRTTW59dXT1VqevP 3FyDTsM/vFE9LyBW+ZfbEP0D4IOK8gmupS4wYWnlHyd8qsObHzNqzOLzDswf H5KUTUsZ7pvvTaBzmrG6U3fEc/5Q5b8qOC5gpVUsPmzv9tGzdbNoO/MRXrPE FleLvygfdgA+AcaPorUHqraxkyWTPOnkW5evE/1id9+J/EN20Xfbg8VxU2ul 04YHkmj/HXXoAo/3dX15Up8Ok+U22V7lu6ysqe4LWsv4SdiMPOYndmHlT0/I ot1Ml1z8Sa1ywV8QfALoAeiDWMYPnehnO/x1+UUjp3Y85FS+IdvdMtw0LDGT VjD7vP3ueDoF+VPM8XNKW+9PjNABoBW1M5XpNwTHjazvUJ8R+gGm10orN/xB 8AMQI8aiC5y0vRO+MOkGO+yc6CHV85Dtdtke6pucTdNqpNEWpncP3labSvg4 a+x4R1IcTa6TEVGXZfFZan5h+ItxA9W7RdP/Ew0hNkRfUay64FqRnX7RUUOP j8/XHcGwWP1gEu1levwU5u4F593p5tvpYnLdfM3LN0TGbedvrkmdM91h9VmS mK3MdyfDv9Cnl6eKwl/oAvQZQhdgToGTfkOdzJuw0qWXZVqnF3TyH1Ym+30s 00NPMD0+vVoq7bwrgY4yPV5yU42rwll1HsYDN8Up0+F4390J1MBX9l4L67qU Zexl6Rr61O8r8I/FZ4tGvoRfgP4C9B1VVFlXU0fVbwvma61jevzQz2rzOErE zE4w1KXRzcOE3jjD7MXL99elecx+DGa6ZWCam84HY4HIMuJoQVxqCM95yW6l /jjAeLWxTy8jwB/yibmfsNsVpatRNuYVggfAC+CJysbdjjBetrpK5Hys8iCM 8b3CZHPRwyk0PjGL2jJfDPM38+U2YzQtIZPP5VblUfLjGjQgOCY0K8WjTHPk rngq8urfEfgDG9hr4IL5n7DZFYUPbABsAfgNY4qV7RuY/D/Os6ztihlOOv3t TPcz2WY6ZE2VujSDxX1901zUiGFdEByPNfmX4IfiB5O05R69vQ41Z3lNTfUo 63j8znhq6jXrf7kt0IcDmw18IKsVZRuAO/AXfIByTb6+fG49duIvWHE12f2w fFnMXMjadx/z73R63bruCnE67O6cqik0pm4WNWMxN7DOtdRBx3PW+209fj52 qytz1UPJNCnNG9H/i2P0GTXz+rQY6vw/pAf24AHoBGBUEeM94APwm6x3dD5b LPjreMIJ/mU84OcYHv6ZeZz9EJPFnky2EW/xflpNPU1+rDWdqMdI5gvo7ADm +uyupu7/ORvUD7o2dOL/QzbhG0BW4StUhJ8g+g3AB4gbwWuqdjC1kQl/J7GD Tgb9QSwRAxxnfr9+bVYcPVczLUzOdfna3YsgpofW8vlekf34phjjPNMbWFek azOr/ke7y3EajmWfXfgJnTp14ryAfl/wAu7jFySel8vBNXFfTiMfy3zQtm3b CNsg8hTPyPlZ8xSkknvoGFFnk25Q8R7kG/G3Tgdgfcbo+MyQXbeT+2iuNWI8 cPzuyPleJiphOqul26eUAxl/n8/H2/z8+fM0efLk0P1u3brRxx9/TMOGDQtd w/3f//73NHDgwJDPCMw2bNhAR48epf3799PSpUupQ4cOobxxfvz48RAtWrSI vF4vrV27lmbMmBHGL8gPabAmcdu2bTRt2jReDuKHvn370tatWzn/7d27l6c7 ceIE/8UaVuR56NAhOnLkCP9dvXo1X9+KfMHHs2fPptdee40OHz5MI0aMCOMD pzL5BLPpJWHr6sLX5LwGvzw5O0z/O5F7nS2SqReLSS/eLMYLhC4Ij0vlOl1k +qqV26vVlbL8r1ixgk6fPk1vv/12SJZ69+5N33zzDccVz+P666+/Tv/85z+p X79+IXkDNrh+7tw5mjt3Lj/+05/+RI899hjHH/meOXOGpk+fzmno0KEcq0uX LtHOnTvD3vnRRx+l7777jrp27cqxfvPNN0Nzzw4cOED79u3jvPXZZ59x/hB5 AmfkifqCvyZOnEi/+MUv6J133uEyP2HCBPrHP/5B8+bNo1WrVnE+Bd+q7L7K 3si2YHR8Bl9vo+u/O3lLTeqa7o6Yb6njB9U9VZ2Q3/zEbGWfsso3vcTq0drl jaiDFX/o2DfeeIO3zR/+8Ae+J4DA/49//CPHAPoBMnnx4kX6+9//HsJf0OXL l2nHjh08vuvYsSN9+umntGvXLt72wB6yDj4B4b2s+Atq06YNx79Lly705JNP 0t/+9jeeH/zDDz74gJ5//nl6/PHH6fPPP+eYojxhowT+4C/kNXjwYPrqq684 T0GP4F3AJ7LN0cmezqfgNogdP18jjS4axnKOMt3bBnN2bfCN1i4UMDuw+8Fk ZzaAxSJY+6fjOeAPmw59CtmAzAHfZcuWhfCH/Jw8eZLL0+LFi2nPnj287VX4 FxcXh+w49PJbb73F4wjoBdgR5A1q3769I/wh97/73e84drA3yAP2ARiiDqgb dA30Aq5DFwH/hQsX0tixY+ngwYO8XriOWAb1+Oijj2jjxo1ch5iwtiP4+Qur pWj9ctCBO+tQU7de/mKlTiwmPC/FhFpi/khrxoMm+Ue7wE5CtoAvdP2vfvUr Lqd9+vSh9957j7c/9GVJSQmNGTPGFn/oE8g8bK3Q/8h33LhxXGZhF5A/nrHi L/Q/8Ac+sPOvvPIKLVmyhPMheAu6CPp/3bp1vD5PPPEEn4cEXgP+yBf1Bu/I e5tAT0ydOpXzzW9+8xtellLHG+y/nLbQ66e1fM2muq8etP2+RGqoWY+l0kEm HSAfj0/1MHxVa0XC69BGsR5Qxh9Y/frXv6azZ8/S+vXrafv27fTnP/+F+3zw qcAX0LdoU/iHkF0d/rDHOIZswf6DrwT+OBb1h00AXblyhfMVsEMsgWvAVuCP 9CNHjqQPP/yQ8xOwwzWB/6hRo8LqIPT/8OHD+fNffvklTZkyhfuPiCfwC12A e1988QU99dRTRt1rxwvcL2fx1eb7E8Pa3soDqxmPFCjGYe18QBPlMzvwUly6 cb4nzrsF/RCd/9e9e3feZrCxuAad+/7779PKlSs5xsAfOhmyBr+qc+fOjD/+ zGUOtkPEZ8AfeG7atIneffddrtvhswn8T506xX1M0DPPPBPS/+A95A3eQywA bIA/dI8YR0YdkA7xCMoS+MMXFHkK/1/Yf6TbvHkzfxbYQ+fDt4WOQrwAO4B3 luNBp2TFpznT8TvvjlfifyXYNzC/Wqpyfb4Tf0Clu3MZ/oPcfrr0M33fJH4P 316HltfIoL6MD5r4I+UfdhL2UlxDW0BHg9BuwAR6E+0EPOCHLViwgPMNsIF+ hfyCNyDjy5cv5/64PCcQeh8xoKCnn36a8wVkU76OdHgO+cAXwTH6AODzzZkz h/t6yBNlos7ys/D1gD+uo24oF3WFTYO/gLoiHewQ/FTwlxiXBKE/A2lQHnQR 7JOON1QYYv7HgTv0Nhl+wpTa6Y5k3iT/RQzDweke2lA9jU7BB3A6n4j5gofu jKeVtTOpX4aHilhecvyv8xFU93ANhPrAHgMTtBX4BDEV2l3whiDwiPDVdX0w VsJ9pEN6PCvwsmIl6yGrTdWdi2uq+qOuov4oCyTmOuM+ykRalCv2z0E9e2R5 6aSlnzhsv6Yf16BxiVm28m3ljzz228vlo8V1sujwXQl02bAfkCoejbBJN9ek QyyfRbXSuYyLuTrQ/fK74b1iXe8lsEMeyAv5In+0o2hbUTbaVS5byJ4oX24v gRfSgCdkrER+sgwLbEztrJM30c8oeEO8g1gTi7JkPgefjM4rtMyzDZfPcz+p ycf3dfIv16WDL4cmJblo3wNJdOEWfZ7qa3HSr3pfQcz/FG2JdxO8j3eTZU2M BwoZQBug7eFv41mrHJh4Rryb4A1d2YJE++LXJIOCVHwhv4Pgc1F/OQ+5L1km nS6W+Rv5ID/k+3R2Ll0w9BOfuLUWdc/0hLWJOIZeHsn0e3G1NDqLtYBXMV/U jsT8X7w7fGlBiKWtbYD3hF8FfwF2Gj7cs88+S+PHj48gXAehjxVYgeA34hy+ OeyzkHNZ1kX7w14jH/gUL774Irf/sNfAHO1rlUEcI09RPmJC4CzbH5EOfgLS wL9BnIJ3hX+L31gIfCVI2IqWrLwpGX66eJN1380ywtj9o67Svtl8Rv2ZL7ec 2eaTWP/34xpRzSOUdb7o/70UXBdsmnsG/FE+MP/Xv/4VIvTbWWUY6dCng75f p4Q4QtjWmTNn8mvff/89jy0EhmL9CHQ2/Hr0L6HP79///jf997//Jfz95z// 4f14iFEHDBjA+QnPg4QuAL8hbkD98Yt0Ig3yBuEY74A06O9CfCPKt+qKmLFn xG0RoxeSPaTvG4ijg3cn0KyELDpWJYnri8i9Xs1Y6+z9NmYvWrO4dFSml9ZU TaOS2yP3lRP6H/IGvNHWgtB3K/eNC/wRwwELK+EZ1XXE7UJXIiYQ+UOmrTYd 7Yb4TK6HihB7ol9Y2AyhyyHTgmdAFy5ciPBDcY5+BNwHP6FPETiiHwik1gOt wnAuo5acZNxbtmxRSsHyWjN6OcEdYX/L9ECcEXMnOsDq373KYoK2wT5/bqNY vNDI56cxmT5az3jhIo8X40L4Q/+iPx9tB9kDbpAP6Gkr/v3796cR7HqIRgyn 3/72t7w9IdvQ77gmaNCggQzbUvxnzAjHPxd1y0VfIcadc2n//ldC97/55mta t2YxDR3Ulfr0fJQWzp1En3/2+9D9Dz/8DfXq1px6dfJR/24+6vqYn+ZMHxOG P45nTnmKxgzy0YRhXpr0lI9GDvDT65dOBMv4kmY+141mj/PRC895aclkL704 xUerpvtp7Sw/vTTHTy/P89PmBX4qfsFP2xf7addSP+150U/7VvjowCo/HV7j o6PrfHT8JR+d3OCjM5t8dG6Lj0qKfXRxm5cu7/DSmzs89F79yDW9Tnx3lc4w pSlhOmRImls79gheaMh8ynFZftrIeOHVn9akZXMH8fb47ruvacuKPvTNl3/i 56+d2UFTR3tp2yI3HV3rouPrXewdXXR6o4vObXLRa1uyWbu46c9/ep+n/9c/ v6PlU310odhF7x3Ipt8czqaPjmbTx8ey6eTLbjp7aGoImzfOLqX3Drrob+ez ae8KDx3b1p9++Pc/+b3vv/uCLu7vSX85l01flJTS+yzt4Y0d6Yu/fxrK4+3L m6lkq5c+edVNO5f66Mj20fTDD6X4//mzD/jvXz97hw6tzacru/x0aYefti3O pfffPln6vt9+SS8teZz2r8plGOaydLl0YHUuwzZAu18MsDwDDPMAbX0hQJsW BGjDvACtnxOgNTMDtHJ6LnvXAC19PkCLJwdo4cQAzRsfoDnPBmjWuABNfzqP powO0OSReTRxeB5NGBSgvVXqxuinxfF5PHNqpNFL8dn6dMxPnIn+BYW/rYyH EVe6PXTx7PbStvrrZzR/UhN691eng234MT3zVGP2Djk079kcJic5NHMs0+Nj cmjKqFyaNCKHnuyXS59+UtrW33//HfXolEfD+gToqf4BGtY3j4b0zqPBPfPo 8Y55tGzxzBB2L7+0krq0r8+okOnI+nRg/25u53Hv6JFD1KZVY2rdsojp0SKm v0t9BNhv+IPCJ4BtwTiC8B3gzwn5hz374YcfOM2fPz9k34X+xx/0P3wEOca3 6ng7+w97YUfCtkwoaBjRT6vT+cD8/C01ae1DyTQk3c37DftneXkfjs4mvPxg MhXY9Fmr+n//+te/8jZDnyh8AfSfCX0OG4DYBnGN8L2FzUWb4xjjKKX647tQ fG/1o9D2wEHgv2bNmhAe8AExLit8COG7i3vCd0NZGKcUaWGjEBOIGA7xiMAf fYWw/8KXQT1EnAofRuDfq1cvfk1FyFPEdOL9BaEdRFsIsvqaINQf1Du/vmKf HnmNfmmMjnkle+5L5Hu9FHnL+t3aMJ19JuTDxVF4TB9Hh1nM0MIdPs/L1Nch 4482gpxg7B9YwbcC9kKO8J6y/4x3xTURf8v4y/0Acl8ACP3IVv8PBH7BOA3+ UA/UQdd3gHLhI4o/MYcHZSEuFfgjf8Q0yA88hf5kUX/Z/5PlX/Cq8AGFHy9i R9H/INa4Cv60Uhn2TBaaNqaurJ1evatsX1+rDrjE8Dt2Rx2axfR7l2xvxJxw rNXcYRnvl+Uf33/oneFx1Ieskv9SX+ib0DwptBHGTHAdv6Z94ZGnSAv8df0+ pf6fGn+M96B8XP/yy69C/TCiLweyB54TOgAxoMgHcg6cgMVzzz0Xwh9jmLiG 8Sj8IWbAGCbyQvwn5B/zXGR+zcsLUEG9ADVsEKCmRXnUslk+tWlRj9q1rkcd 2xZQ1w71qW/3+jS0b30a80QBPTeiHs0cl08vTMqnlTPymI+QR9uXBJhPEaAj 6wJ0YlkunY3T2/1LwW841PdF4oZf+GtLsLZXO/c3jiYlZCrlW3VsTSPwRzvJ fVoYVxOYor9E109vwl/EdaIPFfG/wA3xv9ChmGPy7bffckygB0RcLfr4rf11 GEsUf5iXIMrAmJLAf/fu3bzMoUOHsGv/4tf27NlFbVsV0Ct7t/Nnv/n6K5oy vifNfiaP1swKcNwOMx/w5MZcOr81hy5u99Hru3z05h4vvf2Kl/mrXnr/kJd+ uc9Hl9i90xuZ/782h/Ysz6Wti/Lopbn1GA8U0uIpDWnuxCKaN7oRXcqIXLtR Jv9xfA+ABoZx4VGprrC9/60+wsqHUyLWd8ci/5gnh/FRQZi3IbDCvE6dXOO6 jL/c9yr3qQBD2BeRJ+bfCTyBNXAXdgh9QDr/BfKPcWCRz3PjRzCfsx6nF+aO C+H//lv7WXyWSxvm59MHbx8t9WdYXFGy93EqObEi5P+vmt+N1s32M18+h/nu eTRpZAGNHdqAhg9oTIN6N6U+jzel7p2bUaf2zandoy2CMX8Zb4r+aKttbFbY gF6ukRkR98u0855EaiLNzbbi1S3bx9cE6p7ff3cCNfHq54+YzmX8hd+tI7Q3 3lGMgQh/QLw7/HCBv/CFrOOnJvsPvfvJJ5+E/L+xY0dRq+YB6twuj/p0zaeR A5mOHZtPiyYFaNH0TvSPv38eije3LO/C4lA3rZ7B4tR1o0Lx35WSV2jCkzn0 RK8AjRjWk77++mt+/cjhfbRq5Ysh+4/+DGH/rWMDunEooSOFfZLHLsATrZs1 p2WJkes1ZNuPfT9aBvt+VboauGK/H13/wOlbalFny7wenbzb4Q/bi3l6oF/+ 8pchQp+Q8A0wF0j01YpxOtE2sdj/DeuXU8/O+UzO8umJ3vl0+tjLZfz2i0O8 H+XiNhabFrvo1AY3bV/kpplPe2nPtoWhdO+9+w492qYJFdYvHX+R/X/M/5b7 /DDnA9fRryxsG3QO5rPKuKpkSR6/tI4plI6JNaUO7RpR/x6FNHog8wNysvma HJ3cHr21FnXQ7NGOcrGf32q+D7xad2CNwZikLK2ONPGDCn/Mk5f7UUU8hTmg oq3hP+tiChl/tBV8p3atAtS7Sx6NGphHc8fn0fwJubR/W1n/39mjy2j/Sg+9 us5N00b7aOakx5mMfhXUy1/RtElDqVlj1hb5/tDYE7BCX6MYD4CdEvbFGv9j Pih4U2CLfgLMF8I9zP0T+MMnFO+FtEKm0R7y3BAxf4HLesN6TDcF6Mm+flo2 xUvHX3LTr/a5mI/goU/Gp9Ebt+mxP81i+p5pbiM+ExOyOP/I64rkOHER4w3M /THha/L9rPhjXq/qHnxjEQdi/rcYD+BrdBjG7dvkUrf2Afrk4w9C+nj+BBan bvLSpR0eOs/0MvoMN8938/7X1cunldl/poPr5aO8Mj8Rc7XEfege8B/0DvxP rCn46KOPQrYK9UGcJseYsv+HOYXy+yAN5o8KGyPH/3gv8JGwAWL+AOQA/IB3 7dnJT5OHe6n4BQ9d2eFivqCb3tztpldWeGjOMz5mp3w0Nd9FF26tpe3nxdyP oUnZWoxAA1gcd86wxgw2odAXaS+isQNW/MHTKrlu0byI3n337ZCtnDOlNy2e nEMlxcwH3uuhywzjTfM99Nkf3w/1/3V5LIc6tPExG+inRoWQqbL8rOM/wETo VWAAPOHby74H4gKULcaYQJhbKOYByn6oCn/5fYAvfBXxJ+w/9B70nWzjGzfw 0+CeGAPw0lt7XPTOfg+VbHXz82eG+qnTo34qapjDxzCQvne6m07dqturoXTu 19j4DCUWwLMfex77v51SfP9L5IHvP7VR9A/Y6Xo7/R8I5FLTxtDXufTssFxa PTOXj2e8vtNDv76yNdTuB3YtoiG9fDSgu5fat/ZRiyIfFRY4i/9xXY7/RP+f sM+wO5A1yN2WLVv4/GIh6zJer776Kp9HYH0PFf7AE7gCXzF3BT4IYgwRa8r6 vymzN8P7+WjrQi/9er+Ly/c2Ju+jB4Kfc6h+gVpu8d2+w5b12dZ+PqwVyZXa A+v6+2S4+fd8DjFfMDzGE/peXt8VR+cZ/isYjwxOcfF9onW63YkvIONfvMhL HzB9Bn/r4Co3rZzmoacHe6kjk+OO7VvzebWY94G2su7xyHXWgAE8DeYDC/xF 2wNPMXcOMgt9jnSYdyH0trU98Sz6y2GXMC8Y/ADdgefF2iHre4nxY/Rdot8P 9RVzwYA/nkN54DPxPvht3bIR81F8tHuZh9474OJtsHK6l/p391OTRuH6S9Wm 8OH33RkfZp+t47kLq7IYPbjXA/b3x3e4MA/zwo/L9gaL1PdxYf0E8v1LzDc4 wXih+KFkGpuQSZ3dPr4+OBb/D33MvTszWW7io4ZMX+cFop/nJ/CGvYSPJPpS gTnaW6wpVpWvI7t6y+mgN8Q+UyAcy2VG6iIWW7fPofWzfUzOmd7e6GV+i5+6 MdvVoH6pT+LknbFfyw7+vbbwvnjZb1/3YBLH/Pma6XTorni+NjTcr49T/EYx 34vZlfM/qUkHWT1msTL6Y29/h5hh/cBaxpux4A1ZkuVbh7eTvGRetV5T3bdi jrLBd5BxVbnivLDAz/San0697KF3D7hp3Swvde+QE+aH6njNWges+9n4YJIR K8Rp2H8lEvOKoji+JvXk7XVo9SOpNDKV2Qmx95tl3j900bwUD524oZojjATe Ovl2KtdO8VfpASeYR+Lmp7Yt/PQii9PeO1Bq46aMgm7P4brdqitN9QjxHmvT ZY+kXCNMr4KCumHPg8k0KT6TrxnMCWLfF+tG2D3T/q/AVcg3+uSBt1ijFQvO dvhb8S7V1aX7RYk6CMxVfpg1zw5tcrhd//0JxGk+6teN+RaBMlmXy7OWrSOM w8+okSb5ZpE+n258XrdOS7brxffXpafrZvF9ep9LzKSdDyTTZcX3gEzz+9Vp 4/ha5VP3JHKf80xwPFLGX+z1gTYWfdyQt4req02FP8pEPRATir0f7Hxb/g7s t33rHNq5xEufHke/MPPRmubaYqziPWsa+O/P1Mkgee29am2F6Tw8fam+3nNv Ao1nsWETj3qNaCHT3aNYfLiyaiqdY7q99NvekXNK7coMT1M2/w9+G2IwMU9D rLGqSMxVBP6T95wC78n7gpn1RA491gpz9bz00RE3rZoOn1b9jApblf4PS8PO hzO5vKz95p5zwr6hB5kvOLlWeun876BOtuVPf+keYv1dPppVK4OO3Vc3uA9J 7HUC/sAe7V4Ze/Hh3eQ958B/qIu8h5AOIy6TzIa3a+mnDXMwPuvh8zZbNTPr CCfyb8W+X0p26FvqsRDk/AiT3elM93YJ7gmh2xfCjgQvgNozP/TZutm0/eEU OsNiQtNeBCp7VJ77v0eLO3Q6eE/4ctHamaKGflo4wUtv7/PQutm51LZlxfBv pww3nfmJ07VXkfcOMFkfyXRHI8u3GMuLMOevtdtHC5JcVBLqh7LGpKq6qb// ey1wF31/sDXWfbp0MiGu5+f5aVgfP7221UPH1vuoR6fIPZzk51Xnjvw/tCuT 1WO3ln2PTbe2O1yuFPP5me44ckcdWs5ixmm10/neQFgzXqDYm9lWJzF/AHNG 2md7aWZCFu1gPiP2+bGu/7liqaNu/U9l4C7vKypjZH1GPs9lfjtsPPpnMf6A eckF9exjNtN9K4/I9xowf+wA09mqvrlIXRrpE6r1Q1l69OduuyeBllRNodFM P7RjvNaUlanbP7CIYd4l00MLa2fQXubHXw6uL1T7/db6qL4HVfH4C9zFWGqs +8k2rO+nqaO89NZeN1+L0bZl+XyD0uT/FzH5HM5kdRWTrz231aZTLA67pNl3 y7Rmy2mMiG84HmP8tr5KXZpXM516p7joMSbjGFtaymLOg8F133blOSmrovG3 4o5+A9PcEGv7l1GpzB9b66YL23z0ZL8A0/9qHekEW7v0uvoEmOy1zXRTXyan U6ql0iYmtwd+VjvYt6dve9N1uzVfkNeLWPNtmUuiG1/WYs58whPMhm3+eTJd vCN8HWBF4C/v92/C3dru1jaHbz+iv49+sdtNWxbmUvMmeRoeMfv4TspT4a/K R/YNsO9PlzQXDYnPpKWsbYvvjOfjMiYf/IqFVPZD1t8q3a3XL1KfFKvDEaaz 1rK4YEhSFrVxl/qeJ3+eUmH4iz29o/neh0peQRhXXjDex/vpJ48I8PWBJqzt dLudntHxgp2NkK+hbxB77XVLddFEpr/XMj2+h+nz1wz7AJQnYbxhPytvGfMn EK/yfZ8tdT7+UGq548/xCvbbII672n6EFk38dHC1h6+f7NNFLcPlRba+toFH nDzTgMV82De6H5NBfHt7w72JdBz7w9wU6YuZdIbunO/9zfTOvOqp9DjTRY0V mMv1PPpwWlg+V4u/2J8L+l6MA6n0rE4mrYS1vG/sctPOJT5qVqSO/+xkWFV+ LDbDxBs6fWGXP3REC+ZXdshw0zMJmbT84WTaeVc8lfC9XZz13aAfqpg9M535 hB2Yb9hA2t/fjh8PPZKmlX87bGSCjEPWy+ObPuLZ0QO89OERN19nWpDvTEeb bHws8uyUb5zyjy7P0DEjzP9q5fJSLya/s2ul0xE+nyTSj8M6r4nsPvZzLPDp 5ctU71eqpmvxd0rQ9bHaeB3+zw710weH3DSkdw7vy9fhezVYOD12wi9OKZZn NlRNVcp9MbMd1m+IRFum/J2IK1H2/wFrsZ9GeY4JThrhp3f2u4O2vnzyjIb3 dLygkilV25qumfLSlb3jgaQIW4/fxey63feC7Ph+W7XY5B86XowHq/ROrIS5 07/c66LObf0kj8s7aVPVsQ5bE34mDE2yVFE6Yw//3pT1W+1xNIP59Sb8ndRl U/Xo8IfMizk/5f39H8zJga/XpoU/YvxThaMKEzu5NuFvkm+nekOVj+ncxB84 xj49B2+ro4wHnq+VHvGcXbnW8tbFZTjGH/13YmyuPGUecr5+NtaHeKhxw4qL 7ZzVRd+eJryc8pkqvS4dqJ3bR6ci9okoJYwR6HDV1cd6vqKGPf5IK8bjoffL s70xhrPseS9fS9GogXO50ul33X3TM050hxUXu+smnavKQ5cfvsldErbPZ5kP 0DvN5fhddPVZHIZ/pP8nfDzEdeU9BwjYzxpbau9bNas8mdfxiRNdoGt7uzzs 5FL8Yqzncti3hcp4oKn0HQ9d3e3KnlszI4yvZPzh04s+vPKI66zYT3jSz/f8 6tPFmRyb2lQlhyYZcCKnTvGKhqJ9tl9yNt/vNWJsiF0rkL4h4UTWVXWYXjOd ynzKMvyFrVetBbx6GfPztbLAfni/ypd5O/k38YOJT8qDr8bFZ0bEffh97Zaa /HszdvW1XrO+4/O1I+Ufay/h34MHKqKNu7f3M53vpolPqveY18l0tO0fTVvr 8Nfhak2re9YOF7t3fCEuTen7Ya/gfF9k/rr66d5lojR/WeCP/pyKmvvZsinm ablpKfP5Yl1bdi11QTTy7VQGnd4HvfRwckg/y/hvuSeh9JuyUWCtoglMv8h9 C2L/54poT8zT27zAR7uWeamgnnNdrGtrp+2rk3VTOU7l1ik/xMJPoOIqicr5 +osfqKv8ho+TPAXVYzRHIf/liXnTRh7q1CabOrR20ZSRXnp9p5taN3fGXyas 5XZUyauOh+3ys5NNU71U56b62qXFXm8YC1Tp/1mPpDjCWPUe+G7ssAwPbX0k lX8PVM73eDnhDx+ve7ssKp5Xi97a/gi9UVyVPjlSh0YPtP++tA4vp9jayXk0 GEQrU+WpE4q8fjpwm/pbTlNqpkVddmuW36RkF+2/v27EXNHynP8BalHkob2L a9KXZ6rQt+dL6S/HH6S5T9elgnz9t4Uqm5zKazQ6w47vdM9gz/ZTPy3bQ0TG akxwj0e7emL9WxeXjxbVzqQTdyaEYknd2sDywv/x9ln00f6H6NtzZfh/fbYK nVlfnYoa6r8/eT2QU2ztdK0TfjDZmC6Z7tA3Y6x49UzJNtYFe4YNzPTQy1gj KK1XkHkpnKfiytX+d38siz7YF4n/uZeqUZPrHP/rhXqkueiKZt+45ppvuGJN wNjkbNpXJYl/F9zJ/KHynP8lCBhvmVObvjj9QCn+jA8+Z/p/2ogkqvc/pv9j 9QNUz0STT99k9Xe9Ma+zoUea48VkvS07n1Unk+8vofsGrJZuLF17Up76H/5f +1Yu2jirDr25rSpd2VqV5jDb37iB/bePTXZTpSdN9tqaTofv1eBkyst6LZp8 sbZcNe/j3C01qTC4drBXlpfvDXmO7zOnXnOkW2+CPabWsTgS40jYkwbjDOUZ /4EHGhZ4qXljDzVj5FTuneCvwlxnX+14x4SlU2ydHJvqpCprYbXUIFbCZyvF 99httWlsUjbtwTeigntGWdd6heMfvl7g/C21aEHVFGrLbEieqAejJdXTylH+ o4u/dOfW9jHhrMJHx1cmHtDhbsdDJn0TTZnieN2DSVp97fgbrxIdZXwzqVY6 FUlzwuX3xPWDt9YoN/kvDx6KhReiycuOL0085aQ+Joztrm25L/wb4lZfzc6X E7yy854EGpqUVTpepOF/cT4kMd2ICeb6Yo9UMT6AOQHYSxffgMecfxMGsfKA fIxvQGNNkV3bq553KtNO5FSFv50+igZ/9O1v0/T9OSHsA7KK6Y/u4lvvBn6V zz1ud+ket8G9fUGY54e53TgG/vhGosAf53379uXY47sN4AOxP7bYN0Z8q1l+ V/H9HBxjbgGOZZ4CxmL9iNh/me8zzH7FN2JFPcW8FDwv9qyOZuzShKGOH+30 uR0vm3gN59j75yDf61/9fTe1vMfRKWbbZzO/oZXLG6Hjncgm9v/Ed1MHDRoU 2t8L+ELmIec4V+EPrPCdBuzJiXkDeF7spYz9PfFdJuwfDQw7duzI9whFOcAJ +3jjGGmQD77BCDnHnqCYe4LysNcosEWeqBe++4TreAbXwAPgPzzH9/E0fDPI qc5R/TqRYSe6w5QGBN8Me4Nb/XfVWlHs43Xw9jo0lsULhd7IPaPsypLrJb7/ jm//AE/gjDlAwBV7I6vkH1iLthfzwoE17kMfYH9epMdzyAv4inkl4A/wAsoD HwFv4IlvACFvYI7nkCcwlvHHMygPZSMtfpEe9SzvucnXmrDHjOo7LzKdZ/e3 Mts+iNn23HIqV+CP/XbRvpBlyCbmAAJngb/QuUL+5fkCwAryimOhE4ATcEE+ +AXO/NsATFfjXHyzT+y3j/JFOUgDOUe+VvyRFteEHkFZmL8Qqx+i0v92smPy JaKRRbkeXdH3d6N6T0HsO7Hk50nUNd2lnf8fa9kCf/HtM8gp5Ap4goAPZBty i3Rod/CHjL/AB8dIj+dB4AVxH3gKvoBdETIPuYUeAZa4Dp4Qz4MPkAbXgD3q J9LjF8+gjqiP+EZZNLbcTt/HgqkTflJd68Pi+yv/V4Y79hk5fGttmlKd2fZs j2PcTe+qahOBv0zAVvX+0ciUdT6RdV9euQz8ynONxb7gpjKEnwL9D/zhO8Sq A6OV+2jIab7PBudlljAdsOPOeBrBbHtDy36Q0fKjHQ/q8L/WZJJZnVyCR6Bf oHfgcwj7b83Dri1ixd9peid1AE2JS6M1LP7vy2x7vmJPMJ0cqmRe947XK/52 vBHNe5uwt8NJ18Z2MmfK38k9/BYG9/1S8YguDzus7e6p8Ne1ZUVjrCvbJM9O 81WV46SNddir8LPjVZX8q97HCd66djPlo2uX613+rwXv2elmp7IXjfzb8YXT ekSTr4qHygt/J7Jrd131ztZrTsvSyaAOP9WzJr3ppI3tsDTxod072/GkXb7l jf//KjmVf1W769La8amJv0x5mPgm1jpdD/b/eiM7+TfpC9WvCjs7HWjKX3fN yTN2+Fd2u9vpTBO/m9oxmnxiqYdJ1kxpnPCZU/mORo/p8K9M+Tfh6KRNdLKj e1YlK+WFvwnTaLF0ck8n93a8dz3Jf2XynVOcdTyhy88JxjrejKY8VV66+sh0 PeBv4mfduzvheyd5RoO/Lo2pjnY42uWrq280Okd1fj3h74Q/dO+l4yWn/GZ6 Rtd+JnnTya+J5+zu6fJyUldd+f9L+F9L3rLDRMVDJhnU4WiSfx2/OdEdds9a 378i8XciV6Z7Oh7Wta1dnnY6xE7/Osnf1NbRPKers+5c9V52bVnR+MfCL3ay Ykpj1246eTTpdVO7O7kXzTOmtE6eM72Trv2uJ/wrm0wyZeI/O33r9NgOV2td 7epoV+b/Cv52ba5qFyd64mpkUdeuJuxMaXTya3o+Gl3zv4C/CTM7OXEiF6Z2 NPGGU1mLhU9iJSf1MZV9PeFvJ9u6YxXfmPhBd81J+Xa8YuJNu/x1z+gwd8Ln Jjm63vCvbFLhp+Oxq5F/kyxejZxfjf64nvF3goNdOhPGJrnV8YRT3WAqW/ec ql5O9ZEdj6h47nrDP1q5UbWxU7xNx07KdSq3seRrh1l56AUZ//8PLM+DZg== "], {{0, 128}, {128, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{128, 128}, PlotRange->{{0, 128}, {0, 128}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7686713486507874`*^9, 3.768673420203085*^9, 3.772912999098984*^9, 3.7729655295936337`*^9}, CellLabel->"Out[51]=", CellID->425902442] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DefaultImage", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7693378616161137`*^9, 3.769337864245797*^9}, { 3.772965678631213*^9, 3.772965679318446*^9}, {3.77468935184931*^9, 3.7746893546645517`*^9}}, CellID->592401166], Cell["Specify a fallback avatar:", "Text", TaggingRules->{}, CellChangeTimes->{{3.772912530876288*^9, 3.772912540932029*^9}, { 3.772912571876584*^9, 3.772912572780559*^9}}, CellID->711567849], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7686722726423597`*^9, 3.768672309294443*^9}, { 3.7686724163238773`*^9, 3.7686724430881557`*^9}, {3.768672532011486*^9, 3.7686725696558*^9}, {3.7686729705258007`*^9, 3.768672974506215*^9}}, CellLabel->"In[46]:=", CellID->428760390], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnEtrE1EYhoO6cOlf8F+4delC0FR/QIuxuEkhFaTeV4LxB3itbrzuXXjr vlbdtDapirbxAuIlNWkEzWacUxwZxpPJd873nstM5oNTaCnv5H146HT60eyc mCof3lIqlaa3hx/K48d212rjM2M7wk8OVqePTFYrh/ZUj1YmK7VdE1vDL+77 e7aFJyDOufm9pPPg3UXy91IOanr9H8Fc6zr5ul9+tmDXFkO9bufX1+D80/3e 8Iu4XVg4oHRdV/zEIB3UHV1uPvBDOmibmw/8xKActM3NF34oB21z84WfGISD trn5xA/hoG1uPvETw3XQNjff+HEdtM1NlR8173V7fjNz2JENx0ET9wXK8cln 9DMJ51DHJ35i0M/Fo8bPFwezyk+MDw5mmZ8PDmaZnxjXDmadn2sHs85PjEsH 88DPpYNofi5cENd8/vm+kzykA+K6tl0Q14wGwVA1jzvd39+Ch6uXQmblf3m2 HIx3RTDUyUNxi+fZcFDWlcNQN0+d2/fg0erl/7gl80w6mNZVhyEnjzobm9yu BPUB3JJ5phykdFVhyM0bzq0dPF67GnIbI/WLD9pBla4Uhog8FDdZHtJBna6D OiPzktPrt4Mna9eC+oIat0F5CAc5XWWdkXnR9PrrIbdZbW6D+HEdRHSNd0bn RfuUOmgvIBuOg+I1oubt+gt4HnqfIhuug4jOomv0GtB5pvmJ4f4c5HSWdUXn meaHuBfrdE7ris4zyU8M4l6s0pnSFZ1nkh/q90FKZ5Wu6DxT/MSgnknSOut0 ReeZ4od8JpF15nRF55ngJwb5XBzvjOiKzjPBD/23GdEZ2RWd5/txuf+gnk8b r0huuWAXjYv9B/XcWznrHT8f9h9oB12y43RG5+k66JqdTmd0HsdBH9ipdEbn cR30hR2lMzoP4aBP7NI6o/NQDvrGTtYZnYd00Ed28c7oPLSDKG43lmrBm/Yz 7/cfaAdR3OJ5ed1/yBxEcUvm5XX/kXQQxU2Wl8f9R9JBFLdBeXncf8QdRHFL y8vb/iPuIIrbsLy87T8iB1HchvEb1Dmr+4/IQRQ3Cr9k56zvP4SDKG5UflHn POw/7jRPk78X/f/sJlxADvr1+c7vbpO2ryj4pTm4UvBjOXim4Mc8H0EOjio/ cU8s+DEd7DYLfo4dHGV+4nzoNgp+jHO7ccoKP1fvBzXsRM+VPAeXtblw3u/L pVeyfYq+gydZXiHHNjfUdd8nHMwbP5V9is651TiRS366+xQtBzsvc8MPsU/h OJhVfuh9iuppdZYyyc/kPkXl3GwcV8pzzc/WPkXNwUXv+c0uTlnfp5AdXJ6B 8/sDw84i0w== "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.768671353911293*^9, {3.768672273447736*^9, 3.768672309863285*^9}, { 3.76867241844762*^9, 3.7686724438342867`*^9}, {3.7686725325987673`*^9, 3.768672570092293*^9}, 3.768672974976244*^9, 3.768673421352384*^9, 3.772913002705426*^9, 3.772913046218096*^9}, CellLabel->"Out[46]=", CellID->700774977] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ForceDefault", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.769337872541749*^9, 3.769337876828622*^9}, { 3.7729656810222387`*^9, 3.7729656817270403`*^9}, {3.774689357291827*^9, 3.774689360087087*^9}}, CellID->935113706], Cell["Always show the fallback avatar:", "Text", TaggingRules->{}, CellChangeTimes->{{3.772912581365052*^9, 3.772912596612443*^9}, { 3.7729130541909237`*^9, 3.772913056727104*^9}, {3.772965650070499*^9, 3.7729656696807413`*^9}, {3.772965707544289*^9, 3.772965715383103*^9}}, CellID->450420282], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[47]:=", CellID->239532300], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzNfAd0W9eZpiyRBEASYKe6bMeZzHqTcTI5m93snGQmyZndM9nN7sxmN9kz e3aS2FYliV5JyfY4xU4cxUVRoypVqMJe0AlSxbJVrMYCdoAgQBIgAKKXB+AB b/973wNIyrITz8Ye61zDTxBIvO/+7fv+e+97+gXhD3euXbNmjZQNLz98Xvld ieT5+v9ZCn/5kUC6Z5dgx/bvC2Q7du2QfPOFdfDmPzD/oetChe5PMjhy7YcH W65lKXUFKl2B0gCDpejjKPoK5YZiuYEn1fFkWq5Uw5X2cuXqYoW6WK4tkqNr nqyHK8cDPiDTwvswsl8EF1qOUo1HD7zid5ZvYOX9PHJvfyqkHzcJCh2DV4Uu WEoDR2HAeHVcmYEr0xVLNUUyTRYR3BVznR06GB/6tYA3B/lzipeF7lBLW4e5 QznCzpbrYXDwJ+EDbIWGhd2AHhx5PxrYK/Aw5Ey86ld9bvDSkOGukLsq1OCr yHXxVwOcAmV/vrw/X2GCC+zqugKFHq4LFAMwWAp4E73mIMMUobHs2Ku/6LPF +9j4LZJpIUhLpeoyNHpgwDWEJNw2C4G6vlbxLox8xfUCxVV4hy0zYZhocGj7 IphZpNkBhsYuYeB8TvEiyPTgyVbYVzGQp7gCoyBnR5lxGZ0CgtdAh3B2rMTL jM+hP3OygQxRzAyVmh5sRTdH0V2s6IEBCblY1o3zMz166As6CnCizv1OhJS1 HNGfL7wsXIxg5KtgQPpCeDmqrmJlZ7G8DQZP3slVdAHkInk3hrk8cGFiop52 jOwEfh7ti+uOrggFbF9h/VVITfkKY/E+U4Gkq0jSXirrrFB0lsm7oATD/RTI TTCKVQa2BLCrSxv0kJRY6J80LLm6UKnnrPAWDpMJP18D8JYqoc5qORJtsbIP Sg+33ri25vLGl/TrFR3rJZcrBM0lggs8SRcPSrPqKqTrQqURYHLrDQAwX9LL VhmL9g3ko7yNGQsKCh0ubVB5Uc7/V8f4yEDWkXaj25P1FMs7S+XtG1UdpTUn qmqPbRKc2CI6VS1uKhNdKJa2s2Vqlgz5XhEgFffkSzTFL11jN1xdIzOsVfav U/Xnq/poyIhmKHsgBFDIf1aB+ccOlY7boClRdFVKL1fxT37rd3p5v+OUjTpj TTdNJQ4NBV+5avvZhTvf3d/754oz1XuOb5a1lYtby8Tt5Qo1UC8wcZ7cAKjX Kk0AuUDZR+NF+e1ziRcsVaHUbJReeoZ/7Dc3FswU5aQoN0Ut4eGhKC++gDfH /Imrjpi8/eE3Gs5v233oafHZqrqzgL1qr6FA0gtUBGI/a18tZi89n0O8FQ2m MlHLpp1HftVvc1BUkKJIiqIyzMgsX6bTZNwXI+YoaiRDXR6PvHjc9Jz4+MZd RwA1mLtI2sNB6sOASbgOcTZU3zX/6gBXDrgltqDtqYbOv/75ZQu2YyqVokiC ioeoZAJApigqnqFiaYpIw9+SMKIJIk5RiyQ1EaN0s8mas+89KzqxTdxcIWot lvRAqkc1SGmkixEkwE9+V48S75X/lJMqH/o8vmZYkO4RIUP/lVYxQCE2iJpe 65+ep6gEWJZMULEglYoBciqN8eL34SJNkSQZodKRZDwUTyV9KcpOUJNpqnkk 8INft32h7vgGYXOppBOZVYHwgqGx1jA8crd/CKY6O7SP1PFcjDBhgoicjluv WydqLXtpAL6ULQf6ZygSqUskmiKJulilZ0nVqOaK1MUSNadB+4S8I1/VXSk8 0WuJhmlPToPn4isS4SUxWBK7NEmlSGziVDoZITPBFBkgkt4Y4QjFzcH0a+r7 z2zfv0V8sVzWzRJ28Br6CuC76o3Zu9XSDC0X0cz7jEUYwYLql7IHjVV4+5bx Qg7MpUFawSl6WbJODlRGUWcRv22jrH1zbdOXJOefEZ8t33GkUnihQtpVodCV KPRF+/QFDZo8Ve964Un9lD+BozWNXxFkAEeS8NcUvJPGAQxIqQRJpQFzPJ0G EyeS0XgsGA75XIGQ2ZtsHQt8XX66qvZUhbSzWNZbIOlhyTRQoJfx4rsFLDkg H8LbkzMu7aWreZqaZrbFzGzg34D5QIlSvV7e+vV9rb++6njfT9koajRMtQ95 nz9+rXL7obV7zhU2GPLEavC3AoV2g+C0cTKYwNZMYWumUYZKwUDWxqZFsNNE OoPimExTaTIJI5VKwJ9oNBqIRH1E0uwhui2x//RaRzX/HKv2cuXefqjUcD8A Gape4QrbcT7Gvst4dSvVVtbnH3V1qC/lKm2l4Nx3Xu++n0KVJZABn0wRyYQ3 Ro0EqDeuz2+VnysQXirf28+Vm+AXbuKfMU6G4zg7JTFkGPglCXOQycDPQ8JK UMl4miRopPD7wOFJMgPOTRBJgOz1LHoC4ckgpXNkvv1qx1ZpG5ffwhZ2o7AC vABcpcs2PbQM28zqKZxPtDTqR/NPVlCvEDWYwmGw8IM8Re9G6cXvv95hTqBU kwZXpAiKikHiCQQCHn/q7hxZd/H2+j1Hy8QdbLEGRNzmunPGiShBMXgJNDDI dBTQIHQxggpHU/FYOhGjiCgFrykCzJwmUZSnEiQZi2Vi4WjQt+DxDzqjJhf1 169cLtt5slzWixIjnbtUehj4VhlqTUvIYgZRLputBrsCL2rFINbaR/ed4MfL pF0bpc3ffOn87SAVArBQSMgkmQgAXiIRjEWDCw632eo3WhLfkJ7g7The2aAH 8ryFf75vMvYI3jSVSJGRZCqaTEQBbNIfDkeIaCKZioWgWmWSMBvoQyi00Y+R yVAApmJpccG1FBx2J9snYt/ce2mj4GKJuIsuUvSt0oSEne19MXiX60i22aXI mZ6xPuquIAXXl69ELA4+A1J0k/jCc8K3OieXfGDONL77BKoksVQ8kiZcwcCM fXHMGrhjSf3T6+1Pi45z+Kch123hn0V4M0z80qghDwPYOBGORcOxpYB3MTDr JxyRVCgUSEQCELYp8PQ08gOU3NC8ppOxOJje6bCBlcd95Ok77j/b8c56/gWu qBtREQW6VZpjc3DMon5gDm+2dZDFm+uU6ugWKI0XKCsMsC8o0CpJ+xcFx98w 3FvCRTOexJkWESMEZCkWdkfCIxb7iMX73khQcrR/W+2hUlkzT9m9WdBkmGLw MghQTk4liEgo4vcF/ItO76TDe9uVvLuUsQUJD3huLBFPZQAyndBQGichkVEx nycdDTkX5iwLnjuzwX/uvPdUTWOZ4DJQEciN+VhWrMCrzXZFUFMoa3Hto3ix vi6q1+fJdU8oTKz6K5D5y8StX1S2/uCNTuB7EcYnmdKJMCRTPp/XtbT4YGLy xqjtXWvin97Ubqw7xZW3FSq7Ngqb9NNgG7oSZUlkiiTiUV9gyeVdmnF4L5s+ +Jbg9brm633zqck45YqTUJKAa9EFOkmndPgvGQfr+/1LC27P9JzzpiP4/V+1 QD4srDkPQApUA3n1V/Iw1cl2CR7Bm2sa9NEtshxekNgslfEJmIeGgTIg/KLm L9YeUc8jek/gG6AzLdwCqhtQMjwuu8M6PD01YLa0jSx979WW4l1NHHkvR9mz QXRKh/EyBZj2z3gqFokuetwW+/yozX32mnnT/315W93vv644/rpxbCJBLcQz UeDb8XgCQ0ZzhQgZQcTD4PNer3t+zjZsd564vfBMzeH1gnNQNfJlhjUSHffl qwUyum+P8AJSuu+3Em+uJQjXGG8P2BdUNngIpPoKSdtTglO7zt6wQ/XBeJEL ZxJUGgpRPB4LBeH7nQ7r1OiD4aGrE7ZfGoeqd79dyO9gKwcKVOpVeEns1kCk oqlIKOrx+ibt8w8srjM3ret37C+sOVEtOlv1wps7T/Y9iFAuEgUOkckkM8w0 ZTJkMklE45FA0LvockzOLdxezPz0kGFbzXFu3QW4+TyFqWhvP4huuv21jFfe nwtVGi9uAvevxIvyc72Jq9BVCc+DVLkVoRxpVHiQS2YwXhISCMy22704Z5ue mJyc7L8z1Hx74puvHOfxG6E4omlUalfhTTF4wTlCgbDb65lyLLw/MnPQZK7Y dYin7CpV9gCT2bz74D/89vIwQbkzVAT9BBPHqABC4CfikWjAu+SacS7esnou PXR/hX+kfNcpgFPUcCVP3MOtN9Dtr2JEJ8B1Bxi82HVRmwh3v7GJGbwFki5O PRQ1Y4m8d5uo6SeNBpCoYQZpCkgCfDHEYDIa8nvnHXbL+Pj4uw8n2u46vrvv VHntkULJxVKFmiVA7G6jEPDGl+2L/Rn+eL3e+XmHxeG4PTpzuM9ctuNggbQD +GqRvLtC2r6p7sR/+VWzOUn5sqyM+clMEuYZvNobCNrdS2N21/uzof/zds/T wiaeqLNAqmXLNMAraLyFWbws5M9ammDTePPB95SA18DYV4m6ZEUqQ6m048m6 o+0zySAdQUAPEO1FbhYnkqGgH9l2cuq+eUY7uPDj/V3Vuw7n1zQV16u54s4y tP7VA/lZN53Ixi9Jh2IiSXp9S65Fh9VmuWuePnltYkPNCZa0u0ChyZdr1om6 q+TdW/Yc2XnS5MQZMklTMsRCwa8SqSThC8ec3sDcvPP+jPPoe/Ztuw6W8FtA sJTuM7ElXbQ/48Z+f8FKvJhgfxhvaYMe0jIQ1FJRy7d/2TFDUZA9ID3S4g1m O0yll4iQ0+uan7SND9muD7r2XrhVsf0tlvB8yUvGNfyOErmuUqmHL4X6q58C BUjXL0buE2QqEA16PI6p6dFb9waP6R9WvXgQNAhbpgaaxHv5aqFUXS3t2LTz yKGbLietJTMEcGykKNNQqqhglPAu+RdmLeM2h2k29Zey06X8S1yFnqfUF0l7 HoMXyx9aMtD+DE4OH0BBrVDnS3u4e41scU+1qLlBPZFVr0m6CMFNAwdajPnt rgXb6MyDe/aW267n+EeL607ly9pAIwCNh3LPE6M1ha38Jv0UcERa5GbobkYq TfoCnrn5mSnL+EPzRJNpaMMLv+dJugBm8T7TGjGoME1lg6lKcOnLkqYHJJ5t wIsGpACkG6OxZMDnX3LMWmccN2ZCe06/W117pkjcDfcMkOm11Kw/o/UpxCSV PajPj3r+6H2e1FAqAbxYF6h07AY9qPX1u46aZknGo8A6+KbhbsOJuG3RZZt3 mYcmrg/Z//GQAfJSMf88TCxEEFeFBDJH1MsT9zzJP2W0xsKYpaBIJFEGALYc hFjwuCdn7DfuDUE9Wv/Tt0oEHaX1xjXCTlZDX56sFy3BCFpBcvK7xz1olhJp 0BAkchHAmwK56A/6XN5pi/3O2MyZm9Obd75dXHeBp9KCNKYXnmDOaZaFOTaz UkmvzMJUlEp1ZRJdsQytRa6rN+QpekplnV+rvzAeYjIG8B2aMEBRiMSidpdr yuYYHJlquzn5FeWpgpoTXFFrGWhScS+ALVL1Ycg9T4nOaScDERQCuJYhqpSC 0AgGfPYF56jNfmd48lT/0Kbth7hCsK8mD+zykilfrq5Qairk6vza1q+92jVK MG0QmpRChSKJBBGKICJqd45MTGsGLc/yD5QJz0Ew4hUN5K48qY5ZoWPosYGz Gi8MhBc+D/UXlLu087++ZfJky0gqjdMGyNR4FIr+7Pzc4MT0nRHrb1pvVO94 k1V3Fu6wDFxF0otoKihlpalAqt8mbVGPB6I4A2SzNBKAQJRsC3Ojttl7I9ON ugfVO4/DRIFvQMVnNxjWSXtK5JoqlYEl7KiuaWy+b4MZi5N0JwS9JokEkJYl T2B+wT02PXNtyvXtl85Ui84XSzswGUblBsWUjMFLL+vQy+V00w/9qxQJJdQG rNcVyrrKhS07moehIiRT9MSSOLlSyVjU73HPOmx3xyauDM3+5I2L1buPFEvb S0F24SX7ItBlMj1bbsyX9W0SX9ROhqCW0f5MV6V0PBH2B+ZczjHbzJ3BsSO6 +xXbG1kSLZbw+jyFpgD/Kq5UU6o0bJZcrDmhWYREnWaamchNEmSSSC15g5Ci x6ct71vdP3pHs57fxBO3Ad/AWonOyWpm8wAjadE17nNm+2zY1aEOotLPv/SK wRlAQZfBnD1F0ngjEc/8vM1mvTtp6Rlc+A/Cg1V1Z4qkXSxRD9iIq9SgJoNM DxEEBXGT6FzfbCyUztJCLPGS0YTP64f6OzY1efPB0Mn+oYoXD4Pzgz+jtSSF hrfXhOJOpOEp+6rFl76z75SFdg9U0+K405km4qTPH5x12Cenp96bmOM331q/ 61iFqLVQ3EvjpTvVjMbHKgnbmnZpponHaHxpd5Wqd5vg8qHbRIjWQUj7JVDg kGQqFPU65qwzkx9YZi/cd33hxd+V1Z0DsxaIkXvwVGqOtBPwFiuvFMn0W6UX OqYCIVoGgopH8QsaN+ZecM5MTQ6bR24MmQ/0gT8fKRR1FYrRkhDcJ5R+iCw0 lP3c2ktfEhy+m0CFGH5FigiiCM6guwkEw/a52ampifdGba/2jm7YfnSDpAOy NB2tkI1z3Tl60wi9AE3nLtxBpfFqgeRUSjq/KGo7M4hrAXKkBIn8GmAnU4GI f37Bapm4NTV79Ob8phcOlAguodaKrL+4foCn6uFI2+E+i6SmEkXfZvH5X/QN uXH7BnGVRCxFhEFfOO0zluGh+w+GTeZJwVl99Z7jkMxxOkUzj3KszMhVXYXf Uyrp3LynUedG7B34VQZxHwISJ5Gi/MGA0+WYnhq7NTrzG4Nl8wuHN+FONRKz 9QZg7xyMl5bDeFMQ6mJhvNmVaIy3RKkGCH8mbDs3hL0INW4ALHwDRSQTgDfs dFqmx2+MWX53dQZYAU/QCgZdJzbhyo7WdssbrrHEfTyZiVtz7u8Pq8Ebg5gP JqIRUIELDuv8rHVieOz9+xPtY/N/+/r5kj2n4H7grjgSdRFuyxQpBgrl/Xki faVKu0XQ1GqnfHSjD9k5Bm4SSaSX/L5F9/zUpPnuxOx+o3XLC4chBqGOY7wA ClReF72SiHP1x+Hl8S9+UdB6dhDjRb1TgsYLxRfwBubmZqyTNydt+69YAW+J sI3Gy1aauMruIkVHqepKvtjEkV8FL90kPvHmfTckHKcv4w2EFz0L8077Bw8e 3h+xD0z46i7d2CY9xqq9DAYF/0flLIuXIzOtE+rKFeqtwjPN0ykUWVAjMlDZ YpDjAS9qF7jnJydG3h+eeqt/dtPPDv5hvJ/EnxOYGpHBKPjzrG367sx8462F zS/+vkzUUtIAMmQAChBb0gb+zKu/wpZdWSsxbfjFzXXbG59VNB257TNHqKkQ NTjnuWdzgrTRmf0vtQ9+ub6pYOfRfHE3JHOuwgicEBJsvqSXJUEZAPy5XNYN glTtpHAmAQKPKjngjRIIr2txbnLC/P6I5df66U3PH9oguAygPsqfPypfsWU9 kK+eFLYcvpPI5Sscv0gZZaIEhA0I/If2hZYh7zPb3yypOQPKEQzEhgqOdybg cDYVNVwrEGuq6nXV4pbNu0/8j3f6337P2TIRPz/sf1U7+t/e1G+tPcF6obFE 2ln2Un9u/RetaCMabIR8BVQNhMCz4sbbMZyv0NTHM0CkATP4sy8wt+AYGzPf MM+81Dm0cUdjpaCFxvvYfPVR9YijVJepemGu/tnoCq6uR4A3HY+HvN65OfuQ zWGc8P1H8WGoR4WSTlSMFPryfUbEySVoGwPA5ykNXLjmd1WrNBukbbyfvPNU zfEt2w9CQi6tPVssbEFpKlu1QeAA5UABta+fi+gZqkdVootQj6YyTD1CmY9E eGPRpMfrg3pkHhu9Pjpbc/Y9qEeonSXVfFQ9+hfwDahHJIG6GvPOuWGr7daU +4U3WzfzTwDfoMkMavfJNYCUqzKhzQzCzjKZHhL1WomaLddW1BtKxF3l4m4g J2wFsEd1icJQAbpM2l2Il8M4qE2hQfOP+UaJQr9JfAH4hgfzDcxn06kUBBYV Dkbci74Zm314bHxg1P7jA9rqutPAN9jIvo/nGx/DJ/MkneWSDppPJtPLfBIK aIKIxWIRp8c9MTs3bHEeUN8DPskRnIdEypNpC4AGYz4JGYwHXgS2E0ECHFgn 068R9UJCA7/NE/bibzHmQfWBLxUDtO6yejRRUHlZ9fonxGgfCyhKEInra4/R fDKRyc58GmRDOhqIuF1LoI8emsd1g9a/eeVclfAc8EmY1Y/ik39QL3xV1TwW fFQvJBLxGBFf9PsdLs+kZc5odn1ZcZJdd6pU2lEOBoKCogDybMyXaPLE2tK9 1yDrAvXi1utK9xnhNV/cCfqaI+9ly7uKVdoSlaFIhvoSgBS1VSGm9iF9VCbv Bb1QUNf29V/00HqBRHmKbmJnMslULBByznmmpmc/eDjcftv8b+reAb0Amo7e l/hYvfBRejBPqQU9CBRxpR5EzRzU26CSZArwQu1bWlqasdgG50I/bbq6QdoE pRbusFiKggUtRiuNbCwZilDW1XGk3SxxO1vShcBKuyGncZWoe4M2HSl0bJUR lBG3oX+NqIvTYAJXh6krE7bRenAJtUQiyLlSaayPqHg0FvL6FmxzE+PWq/fM J66bq5//LVfQXISmUbtSD9KLYvQ23Y/S+yzcggb1vVF6Sdk9Os9QfQLoIErR GcRfyUgwsuR0z8+Ozblbxv1flR2v5p+F2CxVGgHgE4LO4gaU+kDZoWKq1NE7 DCElgrmBG8M1+qtKX7K3D7cHtZx6JjMjE8u11fWmSv7Fv5A13UvhmkjFqEwM 8SvcfAiFo+5Fp2tmcnBw2DAy//wRA4gFFr+Vnk8mbFF/A0Gjc1chbnE8tp8D OTZP1AWloVzS9levts5grp5ORjPZBc0MTHM8kgh4fIvzswuL9xbjr+nM1T/7 HeRSoHPgP+UvX0HrVkq8jCUDx0Z9AF5DX4nKiESBBL5aDwPexLuPUEMDBvwI fAYCv1xlLOW3bNvd2HjX46JnOx2nyCi8gpvFkingLfPOBcvow/vDox0jnq9J T5bWnkdeBGpU0o335qnxulI/hob6G/SWRaSe5MY8BdqaC05YLOuFN4uUmjxJ N9xtmaxza81hul9HZgdaxwSnBkEWi4Os87j9dk/o/dnQ80e1W2oPl0ha1wm7 oI5AAWVJ+4oxB+bQ20tkXZCEC6XtaJ5lHeB7YHeYVWDd8DGo13CxpqYDKlG5 qOMZ/qk9p685KUQzSKby4n5dCtJlxLUUsDqcIyMj1x6O7dcPP7nzABBCyMzg MBAskP0ACMoGChOGZkSZUI7epPGifchyE1pZw3ghpeDlRUOJvHer8DTdjw2i pV7cCAaSBWk6jRRKJEz4feEF56LFG+6zhf7uF2c21Z0oFbVBoi4UazliPVtq gNqEVtxA28p6UJnbBzVajzQU3Fi9AawMxRp/zAAXYNkSfusXJM1//3qbmaBC ufUU/Af8iiSioaDf4XSPWmdvDY/ph2Z/9EbL1j3HQFasE4GldMifMWS8TdFI 72Nk8H5Ev70Q78DPV6ESVi1qfk58/GaYmsMNGfTlZJrpCJNUnCADkag/HLJ7 l8bcweuO2PdfbvpC3XEQcZV7+8tVep4C7e6AVJDdP9CHSpKij4UTIxL48E/i XvhYZYOxor6vStL5dO2JH77RORhB+5eCRIYu+hn0B/JGOgLq2+OxWqfvj46b hiwn35/+cu07ZduPlirUkJkhcHgNUAdRS7Ywu7Gc7tfRpyQeu56C6rLKmI8i WlcpbQf6uqPpuoPuyqJqwCxTUphiRhPJYDzuDoc84diEO3RnMfOT32u21RwH +lTIvwAFsbwBGReIJXgsW3nlCaFxraiPo7paqBgA00M9gg9wZZ0lwssVdee3 7jpad/bGcAyBjdMNK7wLABkXNCCR9AdC8/OgEcy3h836Cff/frN9844DZcJm iFy4Z3BLqHRZvFp65/AjeD+8XpYv7YGisEZuhEivqNdtFDU/vfugboFW3Elm 2wlGncGr8OBy7lB0KRz2xuIWX2w0Sr3RN/2c5PQG6SWW4BIESJnKyEEMs798 360ixQ2O7HpJ/Xsgf9hixKA44o4C/sVNist/qTr79rt2O45ZuuBGEtkuEHxp MhEJB10ut9VqNY8Mvftw9E3TyJPbf1dZc7K6AUmMtXI97+UBFjhzdq8Og1fJ rPJDDsEHZ9DmIsiKqECg+O1FRydUxjUy4zp5H9THUlHLk5IL//2NDkiVsQzm ORm8s4REm6jAqwkCcbBoggjGw95oxBFKTMeod73U7ssPvrL3QuVOkOHnqgSX ygStlcASBT0w4KJC1L5edGmL+GL17qNfe6VF1GP+II72hIQwlWIWTun4JdFC ZCIS9LudNpsVCOSth8Pq+5b//Oo5SBc8fjOkAqSJICEDTZWhPIyyLoMOnwrB LPej1rshM69c74YZqBS3PcM/8Vu92UPXJrSKlcQJk0olsZXJTJJMxEkikkyG 4slANOGNks40dd+XPnNzeveR7m8pG5/lH3yK37i57vjGmsanBce+IjryNw3H ao9pmz+wjcbQUlE8uwcgxayBov+hxEikgWD4XXbvvGVsdOjOyGjvnXFV8/Ut 4Ml1iENCAAJ9yoPbVuU2WOa8N7fj6I/dzwCTA2x2o+jCn9cc1DjSYIJomikQ 8XAku7OKBOUEiSWRSgLhJOPhVCwUDofhkxAFIPYnU9SdKKVZpC5Y4xdnCJ2H uhunptNoTTlC77IDFUDG6AqL1vbpmCXTqLUejsRC/kX75PTY4MPRUePDqbdN Y89s319V08QVtwM6CFsaL7OhNHuCid6awlm1y+4P71cBfwBXB5W6UXoRQgy8 bi6O9DC9jSpFhFGLOpNdt0yhhWkqGckA6yTTYRAyJKplEbxfNLBiBDHSSHZX IV7Ej1PpGG7aMAkqnSDAjZcWbEsL1tnp0ftDg1fMtsb3rP9Ofrp6z+kycQcq 6yqgo8iy+fh8RPas06Objh7dPPmx+5FoyJBFQZ19++VL95P4hmN4uxTq9yeg IqM0ipb8UbCh1XBwcIyFYMoXrmBkEpg+mBIGiReD6CUDgiEVSXqRCOtsECap SCgc9C4C2JnJkUHzyMDQ1Jl7C9/7+SXuzw6XitpBMy6zODCQQkPvv1plQfnK g1qfZL+ZTM8WdlcouisEzd/dr71JUHacu4hIGNQKeHISsUxEvZiahbUqjREm BC/twTyk8KJqCl8gsgTiHX0A5SS0Cwn5CZlIJ0ByxgLB8OKix263TU+N3Rse 7h+2nnvg+quXLvJebKwEngbKQqbP3jBKR2golzdGrjzd8yG8f3g/Ifxg+d5+ lqi7Yq+xcPepb/+y490QNZekokmKiJNo81+KINJgNbR5kN49BUZMZxLZpVsM MBGnkgTzymS8FPKENAH6Gj4NIUAQsUjY7/P5XC7X7Ozs2NT0w8npvsFpcOO/ /WVL6Y7jBbubgckAFc/lXqCm2R2D2uwuUBpv3yq8n3C/aJ4MSac8UTfooCdl 7V+TnWubIKwE5Y0RkWggFg2gLVXIX9GGpSSyYXYfEjZeOrNMwmkPR2+mMiSU 9ARaIolE48DWPIHwgtszN2e3zUxNTozdM4/rH1gOXp3698ozvOcPgWUBbB6/ o0DSS+Oi+xi55Xu8T7gvdxbvcfb9I/cDYxWpQCq1TNVXuKd1m7TtS3sO/ko7 MhGjHNGEOxLzR+K+aCoUT8fiqXg8kYqBtTJo3RgMnwRMmXg6HSZT0VQKLsCU QEfjMRAAkPMSMGFLHu+ixw2Ca9zmGJm2PpiYujkyDQy54eKNp1/YX7nrJMQs W4DOs4CwQh1RpoxqgY7yFGhbDqQv4GwrTlk+gvcT7PemrZ89xtsHur5E3LFB 2Pxk3bEf/Lrt0lhwKkNNBTNzwUQgEg/5PETAFw8RkSDENwGgAH4kFo1AAoqG QqEAvAITDgbBccNLXshJAa/T41tw2C1jU5bpB5O2a2NzJkvg7YHxv/v5xa07 DlXVnCkRtsGX0luqVmPRPXKrH0pW/9IhN+TmDWdsDU/SVSG6vFV09kv8I7tO X9XMxM0haiaYcgfjC4s+XzDmXgotun1uz5Lf7w8G/aHgkt/nhteA3+P1uiFC QVvNL7hn7M5Ji908Og5mfW/UahpzXbjv/MlB7VM73tpYe7JS0MIVddOdEzoq 6d7v/xeWP2KgrqmMyWw4V6CsiFpt4tbyPafW7/j9c5LG5xtNZwf9t4OUOUiN LwbnfAGnP+j0eOcWgOY7FuZnXXOzC/YZ+6xlZsZitc1Y7Y4px/yI1XZz3HZ9 xm90JA5es/6vN9qerTmwfvuBit2nysWt9Gaq3K5mRIqkWnxW+lMEW8yo4176 YAh9WgQkGKBmi3vWv2yokLQA6ieFZ5+qafyGqrm2+c7Fh3P9Fvc9T2zQGx9x hUddoQlnaHzBb3b4RuxLD2Y992a97896B6ad3YPW03csO05e/arkBLDEJ/mn KvecLhdeqm7QclBeYmQOk1vk2hI5BKzmUz2Pg/FiHi7vpVciGM6p6mPvHWDX ozMFALxU1lOt6K2WdoGq2rz7wF8oGr/3Wus/NvZL2gZf7599+7rzzQH7geuu /QOOVzQT/It3f3zY+J1fXv630sPrd761SdgM0VEqaOWJOoukqAWUL9exVKY8 1KZAsr0Ar7ZALi0B0afo/fTxou4HXeZyeNcqjSAr1kjwfryXr4OQzxP2Fko1 ReLuQuHFEtG5MuG58rqmDbWnt9Sd3rrn5ObtjTC27D6xuRa9WcE/Ax/gCc9z BOfZgjYuPqW1TtRb1HCFXQ+/Vo8O0+G9vuggIeYVqNriw7Of9nmrFbvEtTTh BMqKdloq9IV7kZIqgLBSob4B6kIjOdbLVfaWKNWlsq4SYWsp/1KVsHWTtB20 YbW4BTRXqagNEX55J+qUKnvQVjGlvnQfOiiaJ+4B4xY2mDj19EZuA719vRAf S8SZ5NM/b7UiyeceMgCjAOzeYMALQL1gIBhoNUSBOmDIIWWoKYe2RYFFJD1F 4k54BcEF3lIoVXOwHGOrjCzcegLtD6i5Sg3qvMk1aAeaTI1byp/5MdgVxSin KOlzEDQtWX1aGTX2s9u9+pmnLmTNlL3IPY0BPZ0APoz28cq7mMEceV513rlw mQT25U6gfKp4mYcJrDjdQ3O5lUiZo+gytDpTmH2sBG6d0ae8mZF7CAlu9fej 1U+5+kNHvFefZ8/OOdNw+/TxPsLDl0+75J4QsnxkwIDWaKTMQjM2EDoyQx/e x08LoVeitcziu/Qx5/Ie97yCD3PFT2ssn2NafQ4iB5M2Fu3DMCeAokKiLZOg RzTg58bg81D0o2CUPXTXBT2wQqKtQJ9B27OzdZbx2OUnb3zs8xk+u7F62mmk 9DNDADhXtmxfemUqK1K0OePm7Av+n13u6V8R9asesZIdnxnAx0mM5WnvWw6u rBbLngPKeb6O3l1QvHxKaNld6cNTq54q8yhYpi58tMz5k+NdeQpPu/q2lyXV qlXmbC7NYcdbKVZhpBtluYfP5Kr86mhiNtXkjs59JsZVrxyrMOJcmntgCNw2 buqirQU5yPjJSAaM18Ds1FX00aQUr8+iesSI7izw5Uq0Ciyd8T4ZhP8HbkmH 6Q== "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", ImageResolution -> {96, 96}, Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7686713591723433`*^9, 3.768673422657699*^9, 3.772913048247212*^9}, CellLabel->"Out[47]=", CellID->675045849] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "If you set ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " to one of the generators and set ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", this turns the Gravatar service into an avatar generator:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7729130871187887`*^9, 3.772913170799532*^9}, { 3.772965720135583*^9, 3.772965748575531*^9}, {3.7729658645705957`*^9, 3.772965865017774*^9}, {3.7746894189478025`*^9, 3.774689443037212*^9}, 3.774689524689702*^9}, CellID->77217070], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "True"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772913093783271*^9, 3.772913104959177*^9}}, CellLabel->"In[49]:=", CellID->964704327], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztXMtqVEEQDerCpb/gX7h16S5EXbgREo3RTYQkIOJGEFduRcQfcCeIEERU 3Ag+QhY+NgFfuFE3wsTJOA/nOhXs0LTd1dXVNffWhS444uPMufecVCa3prAP L1ycO7dvZmZm9eDkl7n5S0dXVuYvHz80+cPJ5dULS8uLZ48try0uLa4cWdg/ +cvZfzgwwbve7Wq9MxvFq+5VEk87KPW5v151Rl9IPChKhqBHzVozKJkYvxSe qVg2Rq/tGVIyieVn8+zCsrH12pwhJRMsP5fnVigbV6+tGVIyCeXn4/nKl41P j5shvM53L1yk6FEy8fkN8ULlZhPq59QMgR+7p2nqUTJx/WI8rOxssPdTaoa2 V4kMOXpUnvFL1YtlE/t5HsvQ5zUnQ64e9XrgN7WfsWwoz5OhDDGvnAxz9KjX SfmeovBy5g/znI7Vj+Fm9bBzYup60AcxQCbfhi9JPKxv3OvmPLNgnlOyy9WL leb5w+eZk12OHiWTWH5Nzh+255zsuHqUTLD8NMwfcA8S2XH0KJmE8tMyfwCk skvVo2Ti86tl/mgalExcv1rmDw2gZGL71TJ/aAElE+NXy/yhCdLzhzRedK9U z7bPZ+s83j5dbe7cENdr+usXw9PtM9Vw3Ku+Dp6wfIPPD/17uxqvu9fE9ZrO hwLzTPtnPCL7tn1C/RxtTU1PO6BnRuPB3vsi5tv1acruFWm9NsA3m9q+Qz5D vSKtVyc4+wq3Z+z61H9Qve3d8v5bqFek9aT9YlqmUjV9PWNr+D4HxXpFWk/a L6bF0XR7xvda9xpYr0jrSfuNaXE0Tc9grzHXovSKtJ6035hWqib0zMf+fdI1 Kb0irSft1/4aY0X9vO1R51T1pnczyoP9yvNfa7XrSfulaKZobf2+u/sabJ4E r/C+9n24UbuetN+YZooW9Mpg3N17rc+z8WoK6xlpPWm/Mc1ULdMrdtmeXa9Q WM9I60n7xTRTtdxecT37vGI9I60n7TeGVC1fr0DBMwX8XARP0Bu+8vWMtJ60 X0n4esX4dLkh33bPSOtph90rIZ8x33bPSOtphukVqk/MN/xeWq/pfGLY2Lku 8lkbeH3fuyOu13Q+MZT9Rx7K/iMfZf+R34Nl/yHTg3aV/Qe/B+0q+w9+D5b9 R9l/cLU4mmX/kadZ9h/+KvsPvmbZf/A1y/6Dn2HZf/AzLPuPPJT9R30o+488 lP1Hfu+V/QcPZf/xP6j/97wNZ2RRZjUoKo+SCTwXSPE0gJJNCi+WiRRPE2LZ pPKwTCR4GoFlw+GFMsnlaUYoGy4vNAdxeaF7bur8K2qGHB42Q3J4sXto4vwr aoapPCwTDo/69av7/CuqXgovlkkqj+o1x7O0nqtL5VEySeGleuV4ltbz6Uvy cucPTedfwT1SzsCi8iiZSMwfWs6/ovZvCi+WiRRPw/lX1AxTeVgmEjyf5ybO v6JmyOGFMsnl+Tw3df4VNUMur475A9DU+VfUDDm8OuYPrWjD/KEdmuePtkDj /NE2pMwffwEziSSC "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.772913105866931*^9}, CellLabel->"Out[49]=", CellID->576827951] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Rating", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.769337885615046*^9, 3.76933788647085*^9}}, CellID->857758352], Cell[TextData[{ "By default, the Gravatar service will only allow avatars that have a ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " rating. You can allow ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], "-, ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], "- or ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], "-rated avatars if you wish:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.772965953699458*^9, 3.7729660162350817`*^9}, { 3.7746894554258275`*^9, 3.77468950805025*^9}, 3.7746895497481413`*^9, { 3.859466415925804*^9, 3.859466420989585*^9}}, CellID->119848558], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[52]:=", CellID->884613701], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztXHlYFFe2zzeTl8RMJia+ZJxkxiQigrggoEKvbCqIICKggvuGGyoKikZc oihGRQVRAUVF3Eei4oL7GjfcMs6Xed9Mli+JeZOXOGb7XvKy57zzu82F6urq 7mpcMPPeHwe6q27dqvrV76z3VLcckZE4+lcPPfRQ1mP8J3H49IjMzOEvJz3F X/pOyho3ZlLaqJhJU9PGpGUaRvyaNybUysMsKSkpZDabH0ixWCwut6v/6z0+ zb8LXXvYi6WlnVyv3bbn2ba0+9/96Nq/OY5Rjj3/65do2LBhFBsb2+hYNQRT 9WelqLcr5xjcyaCJn5SLj7aioYHBLCG04bn2dPUR7bHALzExkXr16uX0Wf0r SozRTFcU3LrMeJ153NsOm8NP+lC0wUQWHt872Ej5L/nTWdUY4If5IiIiqGfP no1+X3p5d6fbgMnlx+qxqGF+pXfoQldUPNvwXDuyKo6LMppopk8QVTf1FfyV +EG6detG0dHRjY6TOwy09NeZTrvC7+xvfepwAhfjQ5hjLTuqdNSLXvYNEuOV diDCZKaNz7e3w0/gGxUlcGxs/LTuW4mVK7+hxw4Bj9fgHxQ4DQkKEbhUPutn h2EN6/YA3qc+bxTbgD1P+zjMDQ4qMTSZTA8Efs745gxbrbnqxrFsZL+gxCmt fWexPz7ERK//prWDLRzMGIapzhffOUTzXN27dxfS2Py7l7LmRX87jLJZT+W+ dP9gR5/LOl79dBta4B1ISV2M4hkYjUan8wO/B8Ue3guZxzgo8VnsFVDPVZYV /N1ZfHP5kVa0+xk/yvYJcHmOrl27Uo8ePR742MZVTOhsXGbbznaYFPyxg50d 6NfZQNddxM/K+MWVhIeHU0xMDIWGhj4wuGiN0+tT5OfxHBsrsaho3s5uXDLr 6HXmmX3O4Tl+8B9Wq1XkKIgTHwSuudMHzbiGpTv7zBEBwZTbOpB2/K6tHRYH m/nZzZHMMfP1R+vx288+JLN9F9rOfudKbeyoBz/lNcEeQh54fWYJ51gEdj7T rxOtatGBDrLtrxF4aOskcrYUzuvkHEnsh68pYux9jJ+1du44fg6zWf+3P+vn 8bWBg+Ai9FoPB+4m75ztw33FcvyLusACr460lbl1lmOQ6y5yXC2pataGIk22 ORM5d7vapB6/Q4xfmOq8rvyvK4E+w6+Ai/h8v/mFODeV7dcMzqXWcB5wkO+t 5tFWHmElayjX7b63pKWcg4BjCciRm9THgcc5X4lQPUvgBwwa6hskFxFv3y+d XvxSR3qd9eqqh9wSeRrHdIee8qW17Gunt+lEKexji1VxIHK54Wwj400Wqnm8 Hr/TjF9XkyP/ZO0Ags9qHPTkH8BP+pe7iaPWXD3YLh1S5K5OsWIcTrMOb27e lvJaBVBax2DhP0Quq5i7O2NymG2j8thjPH+KwUwXFXnIuSd8xFil/1LqLzgI LgIHxM6e6iXGI3/Gc0DceC/5mMC8Oa7KscQ9sr1a0cKfprTtRH15TKjO+YZ0 NooalnKubczRC4pzAMsoDf5pPfPIyEgR8wELfPYEC+AI/OPi4hr0HPRyEfbv 9Sb29bhLrJ8j2Id4Op/FbKE8304qf+Nl56svsy5HG012x0r8+vTpQwsWLBDb gVtRUZH4jLrq5s2bKT4+XmyfMmUK5efni//gK/BdsWKFkHHjxtHIkSNp4MCB Yk7450WLFtHUqVNp6NCh4js+Dxo0iAoKCoSkpaXRiBEjaNmyZTR37lzBXzyv hQsXimOVObhWTDeSsapRxbjgYGpQiCbmzmJrCHxD5e/bObcHPG8Po70tk/iV lpbS5cuXBV59+/alzz77TPwHVm+99Zawa8Br79694r4PHDhAGzduFLX/kydP Unp6uhi/evVqys3NFXMChytXrtD06dNp+/btwi5cu3aNpk2bRqdOnaIJEyaI 57ZmzRpaunQprVq1iiorK2n+/Pm0e/dumj17NqWmprrl4SSOw66o8qxjT7Sm 3l0MLo/Veh5JHLOce8LRLghh/Y4xOOIHW3XmzBlavnw5LV68WOBw8eJF8R04 nTt3ri7W27Nnj+AZdPP999+n0aNH09tvv01VVVWEdSg1flevXhVxDnDLyMgQ mIO77777Lh08eJAGDBhAJSUlVFZWRuvWrROfsa2mpoYKCwvFtbnVQ5bZPoF0 VYXhQfaz0QbPa2/Z/sHaMTbPHxNidMAPOvfOO+/QoUOH6NKlS0K/du7cKTDZ tGmTJn64xxs3bgi9BCeBJ3QZPH711VcpLCysjn+wf9XV1bRv3z4aNWoUTZo0 ScwDewBeA7Py8nJ68803xbPDuaDH27ZtE/u0+KNeJ0L8nP+Sunbckv70bNu6 eFjvWp6V/5e/6DgXJJZzOuU8wG/t2rWUnZ0tvuO5A5+tW7cKHoFfp0+frott du3aJXC4cOECTZw4kQYPHiz0fv369TR58mTBGXB5y5YtNHbsWDEffDp0EVzE HDgOn3FMVlaWOCYzM5NmzJgh9Bz4Hz9+XJwDNhEcxPPAc3Blz4BhMftM9T2X cXwdpsMfSQljX5LeyWiXu0nZ80xbmuPXmRKY19Za/OAbcH04FrqG68Xzl/PJ uA4xHuwV9BRrduAP9uF7cnKy+I7jMB8E8+A/+AQ/gDF4DgkJCXbHYF4Zf4PH wKl///5iP64L8+AZyHgAIs+F43BtGAf7HGmx0jYNH1DA3LRqYFXHZcYskeO9 XI6pDzJGrtZ9hS9hbHc3b085bYLqrkl5XbhmXBfuHdflzG9hH8bJWqtyLgie B/Yp58O9ymOwX3lu5Vj1eZU6i32YCzZCnhtzYY6kqGja92xb1T170Ss+tnUg 5T10Y9ymdgyhnc93oBoNvrkT1F9wPePHjxc6nJSUVHd/uI9Zs2YJ3ZszZ47Q JXzGtpycHBGL4PmDK/gMm4hjcE+4N8wxfPhw4ZPgi+A/wFfJW2CGYzAXfDG+ w//37t1bxECvvPIKjRkzRvAV27APAo5qCfZJ7g+MiaWjzezXgeBfJrfvTOGI e7qw3XopgC494aPtK9R8Y997UcSaXg744bxff/01/fzzz8Jn1NlR1qPPP/9c bNeSW7duiTGI1fAdcY3EHXMeO3aMfvjhh7rxP/30E73xxhsiJpF8w3PBvi+/ /FJgBlyBBZ4VtsMfAQ/gBwGWapH7IBI/yPDu0XT2SV+7+0WOcZxxdVdXVnN3 BsdIPTkfnsq+eesfOC8RebFt/Tc3dx7j9xXd+PM1un37NsVEh1NstIl6x3Ku viCLlr06jfIXZXNM+Cl9evsWLV+cTSWF02hVfgYNSzFTUUGuuNeNZctp7BAT Deprod2v7RDbPv7wBm0vm0Tlq8bS2/9xVmy7dvUSZaeH0dzJRiounG7D9scf 6NjhSlo+20TFuSbasi5bbK/eU0Qbl5hp2woz7VxpocrVFtpTbKV9pVY6sM5C h9Zb6PAGCx3ZaKWj5TY5tslKxyusdILlypIQut7U26FurCVXOQ6/1MQx9it9 wd9O78GvWM6jp3UIpg3sm9766ym69fEH9PqhxYIj29Zl8PUa6bXVRtpVZOTr NlLpQhN9/tnH9M9PbtLil81UvtRMG/i+ShbwfVUsEPe6b9cKKpoXSvOnx9MP 339Dn316m/JyelP+rAhakhNJ0ybE0M0P3uexP1FpYRbNzOhORctniWP//ve/ Mle/oyXzR1LW+B5UuMzGyy0VJTR2RE+WWBo9LJZGDoml4YPjaMjAOBqUEkep /eMopW8c9WfplxxHfZMgsZScaJMklrwuVpfcOtrUl/K8AykjIKRWR+v3H2jW xqHmoo7/vvnmWxH7IRb5/vvvhQ7DJkO/pM+Dbf7kk0/oww8/tPMT2A/7hntF zgffM2/ePPH9yJEjdeugsJPQa+ij4CrH0dD1mTNniu/FxcXCViD2wTjldswp /YP0EUpR+ywI7ABkIOvwiaa+DridZf0rbuFPwzjPg19GXeCoqgbzOo/BGoir mBH44Tphw2HzEUd/9NFH4p7VPhf43bx502E78mbMAR+BfStXrhTfkU+ofSR8 AvYh91DaP+QfFRUVwl4iDsT1SPxkfNMjmuOn+EhKTY6koamRNHpIJE0cFcm2 IILmTOFce0YYFcwNo9K8UNqUH0pbF7I+P6fyIcw31LKiFHlsKPvgij861gAz OrivQwC/r776SvhPxMrIZX/88UeRz6rHSvzUMYvkH/JX8EPihxhcHaMht8U+ 5LcREeE0d46NZ9X7ymlWZhx99d+36a2//YW2rR0vth8/UMQ2z0xVJSa2exba XhhG5fkRVLY4kkryWP9z+fw50TQ3K5qyJ0TTxLRoGjW0B41MiaEj3v4OvCt8 0b8uDpRx33yO+dR+dUVtDdpdzC35pxbkb8q4FQJ/C/2V+ihjNOl/UYOBP56a NUV8r7l0nsYODaPZk63MCyvbRiudO7XTpttVBVS+xEgVa21+4vTRTTQ9PZzK 1haK7+UbSoQtLi0tYT206SSuRcaHMi4VMbOC37jOBB6/qWWQHR7Xa/MQdQyd FhjiUPer5Pg5zAVmav1FToacHvkX8qgvvviCPvjgA8EdZQwr+RcWZqW4GCsN 6hdKU0ZbqaLMpr9H9i6nylUmWvRyJP3z1n/R9999TeUrh9CUNCMNSzXTqOGJ 7IM+pW+//VbEdUr9BVdl/xdsyHvvvSfwA6dlzKzMReptXQz1T+pGWePCaW2e hfaXmuhCXAcHf7tdIw/uFWKiU6o69inUbWprBHrWk4EfYljlWKnDE8an0dAU K708wUJ52Rbhf2/fukkrXzHR5mVGWjnXQDPSjbSq0Ba/FBYs59zbFjdCT2HL EA/t2LFD1BDBXcGt8vK6fBa2DttQp5DnR3yO82M76gfKXEbkhLHM6Qwz/Wml gU5sMtDeYgMVzDHS6MFmKgwKctDFA0/5OtSdEhi7StX67+VHvGhMx2CnvNOq fQG/qG5WGjWI4+BpFsbFRGcPzhccOV5dRvMyjZQ9zkipiSb6xz/+U9SdlFgD A/gPjIfdk3kFuAS9hi8CFuASaoqoVci1KhyP2uB3331X548lt1DvwnbMGWq1 UHxPM1+fkQ6uM9CBUgPlZpmoX4KZIsIwj62GlaVRBzzOfOoVbOv16ckY5rCt q2QuXn7Eca0OXJzp14n5Z3KaK2v5j3V5BlqWY6QJw03UK8YsuCHXJpVjpR2U PTEyF5MxBeyQ+nlhG2pcqFupfbqsX6NmhTwC+3FujBF5YTLHRjMjaM8aWww6 dayJn7X2fYxBHbrOjtkwPMux3KiAYJrWthNta95O5GC68g1+Bvs5R1nSKpCG Bhlcxn9DO2n3r0kBvyReMt7DvTmrKbgTHAecpE5ibuX6CPR/KOc0m5Yaafdq G2bdIl332A/iGO5CE8fc/wzzSWu7Z+JFJ3metRwrTuZ4JrZ2/Q7njcO6XVP7 /knl2hH4JW1OQ/BS6rlc31RiZle7Y9yA1eH1BipbxPYiCc/OfR9kAuvmKY11 OLe5GnMM/S/5XgFUpaNeJbG8+Jg37WIuz/PtJGo2yH9xL7g/Gcvjs5ITDek/ lf4SNgD1AOX6uhK3sFAz+3ATVZcZOS80UddI9/1WEj/0a6AvVC9mWGdCz26O b5CwhcrriWUuZbfrTBWMybnftHbwQc4E+EmO3Y11RslfqeuI07RwCLWaaeII E/tOIy1h3Lp39YzbUXz/e5u1cXt/4FkV52XzvAMosbZn1N3c3WFPORde2TKA jiCnc8FNT/qv3OEGu6Zn7T0p3kyvrTLSijkW4fs9PVcYc2Xz79T1UW3Zz/c/ 3zuQhgUGu/QDakHv0Bz21VWsq474ed01/JS2zd06e2S4mf28iXMxI/VNcN/D 50zyX/BvQO+Ll/DP+5izq/j4TPbJiWw70eMGTqJPoT9/X9g6kPY/4yf6ZPTU vBqKnxI3d70aiM+Gp7Jv2GCknEkNx03JvwEcl0zne139XHuqZv94USOe04Pp WY4P4UcOMU/11FTRU370qTZ1fal6+0/teMQ809NzZbPzZlow1ch2zsQxsOP6 2Z3wvu4c/D+OuTOS44v5nPdv5fj4pAc+wJ1cQa84+535/LzQEx3Dz+9qbd7n Cf9kvIu8WA8OXSPMtL0AeR787P3rVwWe6A9M6GKgKZxPFLXoIHzNFRe9p2pB Lofe0pnsq5G/2L3DxXL5t7668ZN9u/Cnen10cryJjm4w0IQR2v3KenvBnXFO zzg1prB1wwJDaK5PoKjFnFbVDvAO3MbmbUW/b1Tte4PqaxJ+0myhS0/qw0/2 Brrr1VVK/z5mjucM7GfvTf+uux4WPdhD0gPs++/R86un5oI1z/NN27jED2MR F+rVVSkDk820n/P72B53v//ZFceUXHTHbfk5S/X+R9Ef2mtyW/2/K+N3xgV+ 6v5wvfnHqIEmkbN263pvMPMETz1jc1XvH6HvWc+xEYzfiacc8ZN2riHvGw1L MXFMbKCI8PuPXUOlWNUjhPd69RwXztgcVuEHvyBzX0+vA/bu6EYDRd0D3ump Yar9iFbPh9Y49fuXY9p1tvMTzo4PZTnwdD1+yPP1vM+hJagXogaMtfbG5JI7 /+EwnmW36v1f5Hh6/Dn626qa1eMH3jWkdoD47sBaA/uM+/t+sLO4RQ9/lfjZ vX/O+PVRrfU6wxKy5xm/BucfVqutflK8wERZY51jd7f9b0NiFGf7bL9/UJ/z 1XDuFmZyHRvZch0LDeliopNN9cfPShmQ2IX2r/amM+WtaEdBJ5Gf3U/u3S1R //7G+SbeLmtb6KnM4Ni7UvyWST3unuVvZjpe5kX/c+H3Qs5XtKTI8MZ5t19v 3Kzcp9w/SPX7L/g9DYt6PpYejPM8v850QvgLx9zPE/zCQk10jjGT+N2ofIFt YOP9NsKdiO33h+px2PRM/XuUwA21rKKWAXTeWS9+A/CDrk4cFkR/Ydz+VtWC stICGkV/neUGnuTMqCsocSh93vY7L6NZR7dwbqzuSbCvx3Ce/Fw78d7c+Yc9 8x/Aq1sk6u3Ge4qdOx+rJ1fTGi9lkeq3Dao4lqlu5qZWzzZyOWPWp3YdADWe vU1ba57rbr6r39C1znsphS0c+/Sd1VixRpXTOtCuZ0vKCP/OdfcncUP+K3+T DT3w+Iy+e8SIcqyyh0B+lv8xTq5Pypoh5pTHy7Gy518vb5zlBs7E1THrXbyn JerMzMOdbBPTOScJN2mfH4L+A/R/430E9AwPGTJE5MASP/xHboLt6Fvu16+f 6JdBryW24z8wRu8xtuM/esYxF8ZjHwRj8a4X3tXB/Oh1xntvd4uXns6z72nH nkpb3bQVlbD9GxAYoquHA/iBB8AQ2KDXAr0U8r0z/AcW4A7uGWMxBjUG7MNn cAnYoQ8DOMnjwTvgju3oJ8ezwDlQh8V2zNtY+ntCteZ++nFvymvZUawD6Fnj VOInawe4R7y/gPVH8Aj7sV3qnHy3BduAA7DENnAXa0jACcdiDmwHPvI9G9Ql lP21eBbgbkP558r/uooJ8R19bGces72LUMVx3zSfIOqqei9VL6cb+vsHdyLA EvgD28bwK+DY+ubtaFSHLiJnu5O5GgM/T8Qdl9zFgZqcNJsd1jbcnfuXil9D 78uTY+5EB36p+LmydXprM+7spR6+68GvMX//z1Nc7/c5f4n8e5DkfuGnt2bs TDeV+1zlF+rjXPkVrfmdzdnY+N1PcWX/7rb8X8FP735Pcb6X/sOZftzp/SvH 6PWnen2yp+f9V+Tf/ZR7iZ+nutBQ3umZy1Ve4sxXuPIh/88/z/2MFv73G787 8YPu7JtePNzlzJ6cF/j9LxjnRMo= "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.768671488268156*^9, 3.768673424046109*^9, 3.772913050225499*^9, 3.7729657511939793`*^9}, CellLabel->"Out[52]=", CellID->434312093] }, Open ]] }, Closed]] }, Closed]] }, 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["Cody Woodard (Wolfram Research)", "Text", CellID->956320021] }, 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["avatar", "Item", CellID->419052271] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "External Interfaces & Connections", { False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "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, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Images", {False, "Images"}], "\" \"", "\"Images\""}, "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, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "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, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "User Interface Construction", { False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "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, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "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, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "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, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "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, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj81qwzAQhKFpEruEvEAv7qU3P4RxEzAEUrLtAyjKOBWVJaFdQf32lR3oz2kHZtj5pi\ lqWpKMFrQ6JglJalq3H9CfuPQLvj8YFnrafQmiU7bqXBa90uDquWq9c9BivGNadYO6gunxnRF/\ Y1OGJaY5lZs6wcBcNkn8oMTomorX6AOijPTQKsHVRwPODMcwP+7vbgzTPSULLnYXI+\ qc1XKvLOPHKF9g8deZhnibBve/cDvDhZizUwOVjRspnRl5+eYE9ilqvI0BVOyTm8G/AUECZwE="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->752395566] }, 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[TextData[ButtonBox["Home Page\[Dash]Gravatar", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.gravatar.com/"], None}, ButtonNote->"https://en.gravatar.com/"]], "Item", CellID->295732927], Cell[TextData[ButtonBox["Image Requests\[Dash]Gravatar", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.gravatar.com/site/implement/images/"], None}, ButtonNote->"https://en.gravatar.com/site/implement/images/"]], "Item", CellID->451013720] }, 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[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", "\"\\"", "]"}]], "Input",\ CellChangeTimes->{ 3.76867156650981*^9, {3.772965776772064*^9, 3.7729657771524467`*^9}}, CellLabel->"In[53]:=", CellID->890130231], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJwsulV3o2m2rXlGd1/0ZV8d2JUZYJQtW2ZmZoYw22FmZma2zLaYWWYHZGZl 1d7VY5w+P+vplbv7QqFIhy1933rnmvOZTn3unqjt/9/+y3/5LzP/p/xR+3Uh Z3r661Ld/yX/0TA+MzQw3tdbMj7bN9A3ndz9v8sXq///x/8hj1v9Pu2LhxSW Z6FUqkiJDaU7pJCByAlGK+ysTetpm5+htL6HvY0LTDo95r0NtDkR9H4MpCBY gXaplJOueXTLOoZ6p0kO6aI1epXh+F2qUgyMVl6x2zvKmeaAOesOh1dbGPU3 qFuz8TQquc1Xcl6TgdU2hH7mgcWvXlYWrXzJ62G9sIK9rFCmS1OYyUtloiWW 6qRAuqI/MFQsXx8xYxwYwjzYyEVeNbddpdju7zFd2nl6VPP4PM7N4TrGlVO2 c1vICy6jICyNnsoshouy0ewX470+5X/+8wdudRMebQ3OnXGsSw043Mfcadys rZ9zODku97HIXEU3W2XD9GW3sTjfzZRmkPaVXirUJzSO79NSdsBsbDcDIV9I STymtr6J0qoySsZrKB7tZGZjlKX5U+4WNtnKKGS/fxfd6Rx3FTYMNiPr52ba i8+YyLikRLlGe3UR3T1NTCw2MzFawVJvPBvFKey2DmMZ6cRaF4ahqw7rlzJ+ uGbRD7zydHGL9rQe23Um3vN6tD31aFoXGcsdJiGumpjQQCaaImltS6W8VM3F Yi2P60q02RHc1Sbx5hzg5GgF9akW+/059p1zbjp32CoZYKVwiOOvC9xvH/Ju n8Nydcv1+jSGhze+aXJ4M+Rhm2vgaLSKy6t9xtp0jDaucbM+j3lrF/XsNtvd d6xXnzCQ04LDcMtqv466Aa3M10xvnIfMwAOUn2aJV5SSmByMMieM4IIQFCmZ NHSb2VkbYyorkvvKEu57ZnEZDrGeOPG+WPC6zdwd3nI+OsRpSyr9xZWcVDXR Xp/ESEscHamBrLWF8VB2wvPSMt6rMqyectxLaTz7LvG49fy0VvDtYRCXaxHb 3THr2eUkfcwh6kMkqVEJZCUG0dypoqqjmYzkbUwr2bxchGP4quK4MQ2LeRvd 1QOHq2rm2sfw3l/jOXWhHztitbSXq9FubJebLPauU9ukpn95kVWzSc5P3vc+ Hu94HI79NXzuPezr9xgPTnhw3ePzWPjtzYp2cIGNjAw22ouYPjVwcWfiQLRT P2OiIsfEZMm66DuWlNxIMgZSKOrIISs4kMh/CyQ+fpDJzmF0xYlcJhZxGF/J w+0Yjjk1311OHj3n2LSHuM5Flz393DQcsZh4Sn5qNSkRAeIJwVweFfHYZuNh fQa3KQnnTTGWySKe3ds8uq559Lvw+d7R7N5xWLZMc2QqTRHJNCQlUFrxRXap lrGpbTKL88VzcljbS8dzF4otP5jZpngGt8ZZHrpjsKge3UIrNqMWt9GMVW1A 12VkuqWTpdwGpupHGJu4w7p9ztHsOJd3ORybktH1xTDR1c3SYS8LQyNcqa8w arX8vFnh6XSU7+MT/L2rmbebUy4dBqarzUzPWUibn+Jgu5jThmGOy+eZLtij MK+d1PB84pXBrHTG0NFzyNbIIZaFPLQJsWxGRGI39XC31s7hRjuPj/todze5 XTjjtKqVIlUdy9nN6FbORP9f8Z72cr3Wy9mShWd1K159Gv7ZHvQ1MYzO7qDX nLO8uEN3eQ1HCwsYZo5YqJ9ktmGA6S/dDDd/ITa+iviEKqobO8jvHOHOlMiV RoG/KpjDoWa279v4WviVw9EpzHeHOO71TE9us9wh713RLNpawXugRVPTgqlw B93cPjvqAc6XZP9LQsVnw1lZbuNau0V3v56a4nEOm6r5cbPBn+eT+DfSeN8/ 4m1ljjfR7f7xppxPE0vv+aIb2cf6dVYyNDQqtKSkDxOboKIxPoiRuSzyGg7Y GuzDdKTAmhfIQaz4jn2Q07Ne7tRruK/vZJaXbFZNc9wxxXjkF5aymjBbJ7Br zthZvKHzay+93Su471tEN+loOyM5qolndmVGtD3ASEkN6rFyNPdqJnp2WOxS M5Y2TGdNFX3JeQynJ9PfusKX7lZqqlK434nGogvD1h7IzkgO+7Zu+vv7+dK+ yvzYDvajbW4mBtlr7eG5qQrrcDeW8gaMdXNY53W4pk8wf2nkfi2WwxkVCxVh zM/MMDOvZbrNjLqxkZ9b3bxZZ3ifTeDtbInv6mW+/3MIq/in12bgxXHB08sD 2qMneopXyQjJp1mRSUp8H7WlhfT3FpJZmUdQQCXdteWYroOxZn/ksCCAua0+ mcMcp7NHLDd2Y75RY7zWYd1Q4xzS8jJzxsvSIkudk7RVeTk6u+XUosVsq+FC k4BuMJbx0jLaW7/QV5jDTpf4wtYiWrMe4/Ehz1+HeMgqQ9+Xg/HLKLqcTExt XZiWtzjXdWIyqNBsKRjJDSAvLp3w2GXiVV+JDcqjLToK9fIo2wstbK1FoxnK wLVajldbhMdQh99wgN1+zYNfjf8pC7crFvt1AR7TGG2dBsZSe3hLa+X7cAte SzK/67L5+30n/7Ffwe8PQ3gsNqx2I1aDla3RfbpiS5hIruA+qZeJtFRWT7rZ mz6gq2iB2Lhi/vbfA0kbSqFaH8hu/Qc2yuTM1/s4l91fb8jGrZ3HYrRiEM+x mywcFa0zndrFdNo8w9VXLOadYxg3szs0zYmmiN0rFXtlQXTkBpNbWs3l7gqz o1fkp39lsCGRsZpoDC1pfC/Iwjc+yvNgKe6LTpzfLNiccu3aZWz2GHTWJGbL Q0iIURGsXODzhzgiPgRQkKPAeCjn3RfGVl8E8wep2P6Vxh/f2njyGnl0vOKR h99h41H4ye+Vf39IxPl8wtXGLeXRCXSnJLKZn8ndSBInl1FcNSXgKonlH7/N cim+t965z+FXHVsN1WjLJ3FOOrHUH0rWq5n9ssNgtZrsxFtaageJTc1nYreK Q5MCc+9nriuVNEvWttXWs9dRKdm8jUan5WpuAePUMreFLZhnB9E1fsWUXIip sgZr+RaG6nqcC/FcTofj2lRyNFTC19El2jv3mCptR1OZIj/fzuVyId8OYtEP deNbqhF/yMd7W8yrcwTLwSxO/ZHcdxRuQwjG9VhWGlsJl/nFfQynLCiMsfhU 7BlBTFQH09wYSedoDGd3MXwz1vHT1cTP52FevQP47LuivWmcjioctiIcj9u4 nGocp9NoBtvYE33szi+j28jDKNw0X52NuSWLpS+/sV51zmLpNQa1C9uFWbJN zWD0EU2JG6Qqa6kMqqU8bJKhFgOqhD0uLkSjDuGFmSBuuxUMrTfS1CKeU7nB dvsONo2Gm+lpdqa7cX1tYaM0m72SGEyl5TimtnCsXmFo3sRzkiK7EolJXud6 vZjFLT2VeSsYU+f5MVSO/awc13o6vtUeNgY6eNqJ5c1SyqtniOdvm7z7WmV2 I3jskudyPY+3oVwUl1Ga3c2Hf/uV1M9B1Ad/piZNQXtXOBtTWVweNPDdsSRs vYr76VY0rMNkdGEwCIcbJIstZzjsNeJnekx701imipiLSCQpNprcwiSy0xNJ iwmmOkGJuSSDlXIb+p1t1Po9tm904vn3XPUvYVVdCts+Y0ty8Y+4Rx7Lf6Kt 1HHStILZnI/mIZzXzQD53lgScnaISx0VXq5nRaVkc22KmdkiZidC2SoMoX9M wd5MOIebEcKbefg2u9i96OVBm4TfFiserEC/18TegBGNnMXjxDqe5h0cJ/G8 PkSLXxfyVJ/Db5LdL+YmXixZPL318freJ0y2yoM9F58+UuYXzMX8KGOy+1ut ZeQGqUgIC6NOGL7si0KeI6kqi6alXMXGdBa6o2x8xn5eHYd4raI/4wJO1xxu bzfnxzNyfgMYBuo4G26UPjTJ6MIoQ5NDwtOyx13y85JxHp1o9NjIVe8GbSkZ rFXUMz9QiatiAEfRCzf1Dl6//JPXqX/i1Zl4XX7GYyzg2RyBez6A3uEYwuOu +PRrDXG/BpEVG87FeCqWewXdMr+0YgWJq6FM+DP4Zqvgu3uGb/ZtfLZHnIZl nuzCq85QfNYe3Fd2LEUqDkuiWUxPwzHWh0M8e784kpZ4BQbJvof9eF7eWnjy dGF1GbE4nJgsq1j10bj0Ck6Gdlmt/sJJt1xXQDi/fvjAh4C/8THkA5+DfiEs 8BdypBM8WVJ4f+/H6/tDeuMjOp0fncmH3XonfurA8bTC3kkse4NKbP0RXAxm sleQwEZMOGvCct3Sc0cbY+lpMXHR5+E9uZ/HgVZuL67YOzbhKn2nermP3q42 zne+8my7kNc24vr5hsdcjdcUx/e7YGHwAmIijgn6JY7oXz7QGJHEWnMIFXYF 6aKrmJkYKh4j+P4Sy78/ioa847zZZ+S8DZhNZ5I101gdwvuvo3h/2nBNVHGf EU59UiSD7Q20Ln2hLSOE5LBP5IcFsFUbztNxHG+Odpm7F6v7DJPzAqNJMsKQ yoO3E9tkGZfhgSwmhBAX9JGg0ACZ3y98/PQ3FDLDjLQgvr3G8Pu7ZOrjBVaf 3JPJxLPewYuhld/NXfzmrGL3OZ4FfyRmRwzjhi/kaKpInkkjN10YJ0nJs5zz SrdPGNKDM32F140etJZ7NseHaMhcprquGuvZJkb1tvDVOcf2R9bUenT6Ug4M iRg1IUz2lZIed0jlhxA24uOoCE1jpn+VIXUFo+fS3wzpLOpjuDbH4X/u4tkz iEcv3Uh3Kd1D9s+ciduSKWc0J12hi+OKXCzpkeyPJLB8L7m020xZfAZLybLj rZIT0od9F9U8XU7hvzjFZJ3FLF3MeRuJ01bK6U47k92hjMyHsT+tZK0rgeGm NDpUAYzITHeqlNyuJbF5mMTRVSuu3WpOdAVc2sZp9W/Q7Nng6LSO3okBhjcH WZNuYH9r4PG5gez3adIeSkmwJtK9mcjxfBVTVTa+t3/ncdyHT2vnTm9hceSU rKZTKqbG2NGecG+xsHT5LJr/F3teJ35TDpemPPw3CgaGpQ8kHzKemEFf4AdK VSqGBw/ov9rmy3kMmQthnLuTcDlWxOc3ZHbb+C+v8ZlusRxtiMcUYttPxdXZ iLUqlp1o6RDRoQxIF6sajqOgN5q8tGKm2yN42Kzl2VLNs3cCh/VIsnddZjbD +f2S7EMCfl0S54MJwgkKpoQzLh8yWXlIQfkST4Q6DmXDZ3rbxbcl9z1bwkG3 Sey4oinxVzPgVpM6f0H50RGphRriKl9IaLKReuQi3X1Mp9tI7ZkO1UAFMd9z yPPE076fjq1oA+/QMP+afhGm9MhMHjlz2Mk92CRtupfcvV4m39TcOP7gH55/ F780y/c182DJkOtNYXyijeGuBkZSM6gSr4mP+YRiUUH4eTjheTHCOwEUziqE CWqkG0/wIH3HYX7C5BE+9FxyY21k1pjLlLmPps0gcm4CaB4OpK0rgJYvIYxk BTMVHMR+6GdOMkPZ3crg2JDEo6GQ350H4oPHfH+45tm0huO6A7dk0/XZKE7L NP7Heh7ex2l63aDeXUbUaygR+mDS+hToshQcTSoxPCnJsVeRN3dLkjBcbpmJ 6IhTVLE+YlJtxGZ7pUO4ac+zMF1vorxxjTTfNIVPaey9tGFd7Ma0JUw1dcHd 5QPn4gFjM+so4jKEVTJJrZ6l6/F3TI5/l+76kxefFZfFyG+mKsnCJFbGJpj7 kk7sxwASPv1C42woSY/pxPjDiMiNIKY7CIcmnR/OK9HOH9j0LnTmd7RGJ72W CxJ0hUSJD5QcR/AxI5jA3EASzaEUSaaEOaMIMocTIueRVBLEjvjiQ7cK828Z wmvTfH90yPxMPJlv+GHJp7swgpaJQqb89ZIxl/xTGPsfP7XcvxnpOZwj6baS aKuC4uc4fNtx9NxJ/v8eh8H2ld1tPbXFRqpVJ0QFzRAe/kBc/BtJ0e/kZNzQ ka5jd2SGyuFiSmzbFIgefC+7uIqysGVa/rMPjJteKbD4KRw/JX+7Rr53kubd Zfp/zLP3bOb06plvzmss+gm04hlWbTaby61cx4dw3BzGSn8Gi7vR1Ai/Z3rD SDqMZFIXxdKPdI6+F2F9nODSUc+ouZvF600qHDryr0+puVwipviIsLwzwkrX Ca/uJK5jgZiBbUI2kwmS11IYQ8geDUFTEMn3szjRVwLXt3PYvOecn9/hXqxi Z2KcxcNR9u2b/Kkf48+dF943Xvn54MY+c4Dftydnl8Ttzxrev8eSZ1Vy/RLF Pw9q2W1ZIDX3mswYP8oQD1FKF1GqRyJVHlRxLlIzdslpn2FhLYsRbyt9P6cZ dLfh9hTiONviatvHjumFWsMP4nIMBGZHoKpPIl3dwfzjP/nh+ZPvtu+8mu6w uOZx6YrRqCMYa4qVTvw3MsT7XC0R/HYTQfdLItk+YZe/RzP6FM/RS4nodlyy bl52t5o6axMVtkvS1/aIaLgnJGaWkMR1gkP2CI92E5FtJKFc+s7iHaGlyygG Mkm6FjaxJvN6WMHr/Q7W5x9opa/brSfoT9e5rEilLjyO6fhh3k/sPM4u8y+N if9YMPPDtIVmtU460yp1Vy2YtLUMnseRKhpPXI1ipbINT+E+jaF7wmHlBH7s QBW8SaLMraDQSlnWOCcLG2hsrfiOvvL+NIvn7Z1lr5vXr408Tddi9FXTab2S MzGSci7+uVBN/dE6jWuHDHn/l2jnn9j937BoD7mwnXFrKUO7EcpeZz7T86Es 36ayYc1B54tizptMuS2czss4Wi4jmduKRq1OYPUijXpbsuj/C8NaDanCy7U1 OlISXIRn+YissaDM9qCMtBMbYqQl9pbY8GmipG8XLirZcNcx5Usk/z4S20E+ Nt09t9KXp4T5lmuWWKld4KRjFduEnh/Hu/yxbubNesD352O+favC9T7D0h9O NHuLpJmnmHBl0qvL5TD+mvkoGzWh0ygCLokIXiEyYgdV0jGJ+XItCTqyW5fI HB2mrLWLvgnptmsDzPkK+ONLDi9Lk3iee9jynJGrE9329RGclEhEbRJpI72i p/+HP3z/X8e2CieZ7Xe47nMZ7wgk4jRY/CqQQm8wYzdKHhYj0PpTWd1OYiOv kv30JF6+ZmG5bGT/YIUn1610ilteNDfYpjV8zbCSFOwj6LOf4ICfBAW+Ehh0 hyL8guTyIfIKywlNSiN1sJ6Rt1LabWpWrdOordfiHw5hPy3m9Q3SgjLEfxWM h2XykrHO+6OXZ9eKcMcpPv8WDy/L8rjG6DWz6PxJsvsbiW/11PpbOS64Jz1M 9vRzIx9/yeLDL7F8+iWdoE+TssvPJMabya3aonF4gpVcE7ZaDQO3elrsFl6k O/70bEoPOGDP1k+BfD2qbIIwZSKq2hjSO4s52pf9tX/jwSXXaxfuddxg2P3C xHQ0feJJQztRbI6pMNZF405LwD0rnaIrkoe4RJ6lRzjz8rA0l7KojeP2KQH1 j0a0C/ucNWqpSXAQ+tkuHuCW+f1OqMJJaPA5UYmzJJet0NiXQUOd+IRkwsjz tujmnRlh1EfjuejPKfvgxNCxLmfQhOqT+EZwOUupR7inH/lusPPquuf1+Uy6 8gavLyYMfgNXNg9Fz7Mk/FFHwvkOxUVOFIGPBH865uPfkvn13yL/8znoUz/R yidqcrVMdBxzeLjPxb2FIb1OzlH85+ERj0WFVz3NY9clZ9oKMvrqJa+HqYzp xNW3z8vIu2jqN15u3/FfeTC7DzEv7HHVJ1yakMfil0Z8M6086zJ53pQdmenl Ud7H3ScdtPkrjbsWbNnbDIw2c/4Wzv5tPM7uZVbLT4gIPSY+YI244AuyxbOT IzwUlDlIidwhI3uJ9NZeKqq76B1v4P6mgHZHKcmuXbJtfeiMszz0mrhq1nCQ 3kN9XBdDNV/ZaVLj++LEseTBc+6S7nzNH2c7vLrN+A8tLLsOyFSvUro4RO+W cM3uBokdWuklVpnXJeGfNuT8bggPvSAl8YyaYgfdQxpGhs+ou5ih9K6LDE8/ mfo7ss6M2G8L0K4uYi965uHMymRpGvFBecQr+jhrnsHUZuTbwLt06wfphS6M llPudsdYFNbtjUvHV1LKc0EGTxe1PHUu8NhbhFur5XW2ne+N1eje/4G7QXLt /oKC3/PRHWfzmLZOV5yJgM9qPn+YJShsnxCFAUWYncQ0M8oELaqCPWLWvxJb sUhByQVFVcv0XqXQ6y1nwjPEstnAybwBdbuGNtUMBZ8yqIsd4LbwkPcRo+Si A6fXgMepwa5bYdtzyMTjMvXGHTKX9omoOSap/I6oAiuqtntCA84J/pCNMiCG nKomqrs66RxeZn5xi8WLLS79Z7S8d1PlmSP55Zj0l0OK5PnbywCvJ1f8mHPw dvnO0+IKc6pGwhSbhIWrSYzu5Th+FfeCBbvwocl1gunqhsGmr0wW1zIW85WT 5GVu9vbwbU5JBzzgTXfBj/l6dD2LmL9uo15ZpNivJtfuZHS1D23inXQKI4pI J4GfreJ3R7K/fgI//ZBnK7ERRtKzDyhr3qK8Xk9pvXjktVyL44RG5xb7r0uc eS+ZuDNyn29iKuWc4oAGMsJayAj9wmT0Ms99Dvy3FukpLrwaM68Wq+yOm7Zv JvIsJuI3b8lYWiVDl0PMQxkR5cWEhgcQEv6Rz8nSAZo/E1weRMykigZnOifu fracS1w6pznxznD8rGbg7SfWhy1hp3fe2jdEQ1ZeJZ/NoVFchWeRFqknN/KZ +bJXbM4ndA8u9DYzl2fnRAZ2kagUDknoZzxBzqBSz/Opg2/XOl4cZ/w+KZ6q tWDQ+xh13lBkXiZlto6u4SXUMQbiwyyiPzcBH+ZEgy3yPCkZoiY6xMlIoYmT OjNb03oazx5JmDwnol3ysENN0oaVq1cLTz4HGw4Xti9mKsKSyfnbB5TBkXRV F/FqHpbrfcNgeUBzZ5Ke9MxP6zdenI/Mu5/ovbfRtnTFYN8gI02h9HYrSO9R 8OHzv/Hxr9/VBP9CWv1ngmYDifREU/WjinXzG3mmE1psS2Q5Wsh3LfDFuEnu 5SUdDZcMLWloPtVRvTdHbdQJE6pFzqIH6YmzUBPl53DSi3XvlRP1DRPD9zRm alhsOWOp4oqNRCevdc88rlglh2x4XHd4PHaObg30OMR75V7rrtykli2wl3FG ctQd4SF6QgIv+PzpiuBQDUHhR4So7IREGYVf1NR0L5FysUmcepbo/VWiZ3XE bohurjTUPqnxeqUzWJYYPd1mqzBKvC+MrsFKlpeEq+7reHs7wuO7xGk4Qm1c x6y7xuPe4cF/ybvfx6nTx6Zlh7OTAu72W5mo7ya/OpzuGOklgVG0B4aTVxVM 5JuCbL9SGCOF4p0EpppK2exIZakljuvSWAoaX1DP21nc8aC791F0aqUy6Z6E eAc1KU5caW68X9/QuzxYhl0c7K4RHdMuOV8u3t/FgrKWbwXzeK/dmJ6dmGyy Mw4913YPsccLBEcNEBByyOfAA6LCrqmNXJWOvEeQ4oIPH+v5H79EE5CcQMRg Ls1v87gfH3mTe3Pp5CyMLvpsP0jWb0lfX6H4bZuqcyOzZjWH23U4H2fpMa8Q EvYLbQHSvZNCOWut49+1X6Rrm7Ca3RhubZhM6zgsQ1zp63G7K3FaU7i+m8Ky MchMXxh9HWmUJEWjiP5IRkEQHYWZnCljeY1L5banhO+mfnaua9guT+IuIh2t Kom3mHTeo/KYz3/kYcqH9kTyw+ARffkZbPbRVWTnS6af9koH5sLfsGz+QN9u Yb9NTUvWEMnBCwznjNGfsMh4gfD9gHDY0R0mg4NVo4Fh8xEZM9tE5FyhSDsg OGaHJOGM64UMTk/yyVpoIGQshJC1VCJOaojUFJN63EjlfTeNT7sMmXaptixI V5ml7nKKdu0Y+eIL+S8Gjh8PWJUstnsWGNHbJUMjWa3P4DA0Bl9RLW9lRdxf 9+K2tUvP/Mr69Re2ZFYP+1149+twdWdjyFnlsrGZg4Z4xirrGFOWMRkZxlZF KD0zCvqq0riMUmEoTmHgpo2RoVysCel4FEp+T06RzCzDLzO3FL/zx4ybN2Gl Z+HBqzMbncV28RLp0cpp8XI14yle4QUbrh9OzPNmqhI7+PV/xBH0t2gyA3Px pjl5WHZherFzf68Rttbz0+al5d5FS0s7NXn15EUPMxa3xp4qC2eD+HFmHXEx YaSFfhDfDyFeril9MJEki0Z68d+x6/30G19ouH2VHi06NitI3FPSsHSC5nSX y6sKDtVT0qMtpC4modz5TP14ALrIQJyJwTjma7BoLjDc+6U7abBM5Qj3F2F5 UQvbZOHIjhbursHRXY6pKZn1mFiGAj7S++vfWAz8heOYzxyLngeHilm5qKNn L47zhGA8gZ/YDA9iN+8v3i2iK/4JQ/Mjvh0//hcnNecOclXSfz+fER58SmSI +F+qA+PyA8beZ/Q9apIT6/jbfwsn6GMLicF7nEnP9nfYsVrN6DUazHf3PMu8 rTo7LYlrZMUskh4xw0XuMZ7qFDxzrZiz9mkOLSD+1yBKggo5UXZyH5FEr7Bk lfhyg8FE6+Uto/lj9CjCWVVFsBEazHh4PZbcOq4S0lDXbqJL2Zaek8qWZObo YCDtJgXW5Xjso5WYNWrMVvEVaym6MiWm4UisT19w/lGA5y4Dz9Mofr8W78MZ noMbvMVlHAQH0Bv0mdPgTxgrwijaFZ+7rWftNoZh6VuugE9sff7IlGT1dUQI o5k2hkqeObx7os7zRLnjnYqMeyJDZ0iX3pIQYaGvy8BNpgHb8B3HCSfCmI0U xvQL6+/TmaznrtUhrCL5smZDrdOzKGw2MqfhS9MRnS29qIdnMHRd4WxRy89n slTYzH7kHA2KFDYjMllO7+S6+QJbbjuGumH2T9cYP+9gvngLW8oXOkPEr8Mb OFNUcKtIxtBUgK2tB8fBBhddO1yXiZ6UYfiiRROtkTwZovHbxjHefeXSlshD ZTiG2HDOq+Jx7ZZj327H7hTW/9GL1ziP82IBd/UOlvQCduWcnHFZbMr52HOi ubj4yv5NJQfTCSzVBmJUhHCsCpVdVuJJjWRjwsp4p525axu7bgs9LjcFVRbh 8Wu+5jwzWmzDd2hAV33B7dcTttPuUXyoJPmDitSgfr7kSpfqeuZlQHZba/vP z9qcbd+xvHrLasUKvWk9zMZnsxuvQ5s7xXleFEutlXwJraHhUwAtn0NoCFQw LH3xPnMJX80B5istlzs7GIs2cUZWshusZDE2hpXEPNm7CWH5Jbw+HXq9fO/S Hefx1Wx+/JWNkGCeoqKwzfdJ7g6iv7PgOcnDP6lAL3s3phBN1cbKOSdjfmnF +X0Z/8Mch2urXMSOYwkLp+vjB5ZjVVzKWVzmJOO6quTWGMPuhYKpiE/cBMsM w0N5l13wJigojHulq9DDrc6G/sGIxid81+mkMNVOacIChQle9mq0eDbsPC3f 85CipzVpjPaQIgo+x9IdlMxzRKHceyd26UrHN/fodcJ9Vh+WUQ0v9TM8RrRy FVrIZlIEW3K+ByVF6IpTORW/3/r0kZHPn9B9+pWXwM9ostuZE6ZS6w6wnJ1i aG/kOj+Do8oKJhKqpF/n4B5Iw9pTJ/l5jqX7DnNxFwchgRzL/E4VwfiilDj3 ckR/U9hOZrGvpYtHR2FMC8ZeE4O1IkL6uBLfRSw+3R4utZOnr26eBr6yFhHB SaIKu+ymR/zPuhlPp6ODHlMcp5mBrAYF4hWftMvj96hwDuK9mAY9/Oa1cHtt ZmHG9p//TyQiepWAjz3Eh1jRlxnY+PLObfM573lGmsIqUXz8hawPH+iUe3+N GhPP0XOvv+dO9lfjdgprv6JbGWcwvoiMv/QTKhk5GcVcdab44g0Pc9IL8qvp /PArTZ+DGA0MxqkI5XasGLfhr98p+4R9l7CWJXIRHshw+Gfs4kuPceHSEWN4 n6vEITnvrrFg6StnVvSnDvnEXazkR18UJseyzMaL3VDGelEA5+JZZlUgphKZ yWQYxpdo6ZZ5GJ7kDN49OPYl/4bruJa5jMv7mGV+poEIdmR2284aSj1p5JZ8 Jjfuk/SxADyqAO72IpmKPaCmyMzXcS9tcgbLzR7ak71Epj+hUv6gWPHKYeU6 syXHnE1s42txixeO0x5axFiodNHQHAyqIpxtkxhceuGgG7S7e+guLrmVnrd9 tM9Cxwzu5m6cE/m4xnP5cS35Iu/pietkKSCAHlUV7WF5qFXRuDviuHdVsGeT 3tifjTlfiUGpwCn3ZA/8iFURhDcyhG8xmbjz9/Fl3uPoGWM2OIS7uiQsyQoM MwnYfAXoTOOcGoq53AxFW5kguROHUSWvVZ6GYyYDy1+fPXpwYz55wLItXWZ9 HlNlJTvJmeznF2GrD+f4qo2FrmumrlMpb/rMYVEw57UKrjJDGR9W4D2w8lBk 5JvXzkHfG2enb9SUfUMV8x9EhP6Tjjg7lhkntn4rdtsBjhE7+6FLxPzXX0n8 5SPzQSruUgYwXtxwe3sj926XjuzEsnLEeFIMO1GRmBQKPImpnMlstjojcB9s 8p64jEdZQuLffiE/JonFkhpOBmqx2124zHXYxHOsNUEcSd4Z/nN2n/CJhvxp cVjyYzFlDOJo04rHP2DOHWFN+HknIQjXWDo63ZLwzyFWRxGL9ljyGj+xPBvC Q1sEjkol/ss+Xk4qhPc9mF4dOPM9PFSs8TxTyEZYGAuSwZYQBYcbSk5W12lP b6dgrZVo9Wf2a+TsNqL4uRHLw49GXKPSaRtlh2/8bC+8s7tlp2TBRNG2m67k C6xJe2hL+7lOacc7ZeA18Rlz/AKlHz8zqShjIaaHu/QBLFvLmCyj6PbGOe9b xzq2gKmqk5ukcOH1YG6Fma4iZT+TxJOLBzBHd2BT1TAu/reqCmM0LpLLhXph ukZurAOsXvVwdCVfE+7Qi3dpQoNwi7/7slJxl4oHlq/gKRK2S3fjzh2mV1XB nTIE21gLxv1u3DI7/aXs3mkORXOytxYVV84U9PexPPtL8V834bqbxDexhG1r Art3GI0+j5PUOjTKdNS5IYxrMhma2OXL2CDprkOyXWHSXYOFy6PwXan46SjE JX3B8aLB993D3p2D43sTa0vDnBc0YQ5X4VLF45zPwiP8aTsWNs54lF1cJOlT MP/tv/43YlI+ox6VvdGKT948YtL85FE6uru7HU9WDvqcMKxK8bZw2at0BZro SPQZNegj0tDL3y9DPlL16y/0SXYsfVVh0c/ic07isbey4FShvg1D0xsqnUHB 1lkkA9PCFzWxeLNl18rOMXYcYZyWDqtK5iLqE+eSQzfTQTw/tnLpz2PH10Kj LZyq2WBefWE8+SPwO4qlD5sxaB8kp3/yp+sPfvjUzEtut4dE0RwQSOV4EEnq QgqmtORamoh9XEBlDyN6+xNJSQEM5Sv48ypKeNiGRbRi2T7ktOUMZ/8przkl ojPxackz/1+fzy1KxJzSjKn2CkuSH2fpPpVRMQT8239HFf6Ji+VqYdULOduf mHT/4N38Dx7Mw7haG/EUZuNMz+GusAR3RSX2ZDXGbNmbWHkumGIiuo4TYYId ea/L5nAu7I08/NPExl0/WbogLmsULHeEcioMZykUjp6J4mY9AsNsqeReJ8am CiwNGXyTjHoJCuBr8Ee624LZfWhg3V9CuXGdWkMGVdtBbMr8/B4lP1zCMNoj 6cZezPce6dlvfLt45rrxlOGIMtbawyjUBJPvTiPVuU3S32+IcXXy2fOJyHuZ n5x5tuTZxrCSjZpzdDWjWAva+JbVgL+uD1OydPOkWPGAML4lDOJu7MGVdIiv 7o73iAeeE7bpS1fRGRXETds4utMDzq1TONzCVM/FrD3UMOEtZN1Ww+RdN+33 lTTsZaLuaMKRuY8rzsuqnFOjeHNWzRSbuZ3CxbFcz+Uzf7/K7vo9De5tVu3R 7M6G8lPm9dtdJH9YVZiOS7kaCsU0UcOrdNCHyh3s2YuchOfiV+Sjb4ticjOB rNUIym9DiNFFEiuzqDIHcnuv4Ok1HLvo0mHe5s48wa1hB99yD8fqDdZPJzg8 maPkMZNOfzzN0k9Sf9si5XmF+McSUhwBlLqCOM9u4D5mjvnOQe66vmNeFfbu HuG5JBvtbA6n2YX8nil/DyuUnO7F2SndId+Jt12HSSncoZwhM3icfIWKlaho PAvj2I17mN11bLuzuPdksuAWXnFEUu/KIdM9QK9rhS/WTJ5uOvhqmCHNtUGc 9oTQnC/S32oZzopg2B1Py4vw3I9nDn6aqJX77NkP5r5byfNJJC9/qPBa6zBf RmL7dsGDfwz3jZaptnXp1zl86Y+n4SqQEXsKuReRROuTiDUq5X0+k6EP5KhY zqAlC5e1EZvJhM1yjdawL54vHLPezWZ/LtlniYT+CCPHGkeFN55Sp4J8YxgF thBqHEEUekKINsdzl9rEb0MTmBs70J2Xo19Jxb9di+4sgZky8dn4OHbDCjBF NONP78cTtYo/2s5juBlf3Cx5oXfUJFwIx4SyEi8+5lKgc8VgdkqXMqXyZJN7 dEazYcngq7mU/ut6ti3CBeYphqyvzFm+U7+ioUp1yVj4F7Z7o+i0xtI+eYFm 6YgL2z7TNgXN2iC0k+H8e10Yf1QosRylsXmsxGEdxyHXa5/ZYviskdSLLBSW UGIOAoh3JqJwBKM0RBGlV5KgD6LVHsLiSDtbBYcszY+yp53iwbiGw7CF3XzL t1cN/sd1JoSbqvSJHGnjaL+VPvczgu3nCM6+h/Gvl0gMkj/pDypuV9P5j4c2 /KPzGF3ScbZy+FkVx1m/knlVCOsxSvGSKGHwTl4HGnBGDWJJceCO8mCJO0YV eEB40BFpwmQ1SdK3XXG8WtNwWVJ4M6byYoxixVrMiK0Fta0ag/Ers6YpDkwH zN67WV9xMFK/T470mOuUVOok2y5Eu+N796xqHewfTpJo/0y8+TOG2nCeJWuu hL1vb0STR5EsmRbp1ycwYU6gZDSawKUgPp0FELDzmRhnMmH6AGJ1ISTfBxKv CaFWpyJ4NBvNwTw/bzZ4NDqxmp75pvfy8PiDP397wL++x8+fO9zcq2joDmHz vIUHXxs/H2JQe1Qc7wr3XcTTpYnm2tvMz982xNvnMFbk4u5txtWZg39KyVOK im+J8VjDo/EWtqOrFZ+JXeIpwim9xs1t6r70PjvZYftsBgWzVRHNgF+B+lWB xS0MYQvl1Rki7yG85Y/h8S2ON1seXod0Cf04vpkhTFkX2DJk51OPyfM1yW6n sHZRz72hlS13I72WQtSOMLTyGpvryThi67hP7mCwu4wvi2Hk3WZQb01i1DND /XglUb4IlPdBZK8GEnUWTdRfs7f99VmaIPIMIQypo6g2Kdn1ZOF3zXFs2pNr uZC81wgnOoVbH1ifv0N7M4l7PJbtzVjskyn8+F2J5w9hiL+HMedTcN4puXsb x5/HZbw+93MRt4mhfgRTcQqO0mR8iQr80lH9qgSelcKqlcJTqS2Sube4Yh8w RnrZj98l8GMfEZ/nKZEOp63LRyfXb3DIvJxh2B2huB/DcP9I43FykMXurxw7 a9F+j0JnrsEzk4Q3fhCTaoKDySYyPblUjgiftDZwvRvJnFu6lbyOw6ZEZ4yl V/xqsbVc2LmM3f1KKpZS6NROirepSNirIjwznsSFBNL7ZH47gWwcVbNoCmPd GMq0MYQe8a61w1DOhNksxhmeTW501mtmjMd0GxdYOhojfX2H2KVG2rp7WS9Q 8TSWyOFCHefvkVh/hPPtm4Lnp1BsNRFYWyJxigb/sNUL22ZjzclCFyOdMTcM Z0KI+Jt0BKU8FPKoqsYTnYI7fQtb/BIWlZWL6E1qFEtkh8yzGBTEWVU9p05h SmM4h6I73YsC808V5qdSvnaPM7M0wIZtlJ33edx//R62b5rXFLuc0Tme3hP2 S0VbKvFaYbr70yI0ziTOZYa23+LwGlLQGBLpWErkz9kYFoXJ4s6jiNBVkWZO IUU8Lay0koTbJvKFE9XCaOO3WdRJ3raYgkRnoSwYQtnYks4rvjjzUiy+Ws3Q RQmTljl6XMfUmzaJsY+SYK1lTtPH/pEwxF0Zm5ZF1h/ScT9H8+6VGcouPO+m 4jqP5tYbQ6PkiCm2Am1OFcY28ftrYawFmWFSCJ6QANzCkf7kKp7Ck2TPx8X/ FjEnSQbHX7ATKp36czq5v/zChqqYJXsGi3I/+54o3h0ZvLh6eJXd8F8d8KQz 8XfbM+fOV6zGJ8wT77wlPeNUWXiIuRO2zuZSfOAsKg+rsxvLz1pM30T7HQru 7lQYHWvYHN18e07jTN9Csq6RPMc8mffZqI66CJgM4fOXEILTPqLK+kzadgkh lnAKDMEMiQbndKE4HxKo+K4g5SWcprtaxi7a6Nady07/pMf4gyT9dyqcG2y8 i08/xZFjzqZd5jlgl3tzpbBuEh9yRHP+T9npP6PR/M9oaq0laKOFU3IqsZWl Y5wNx3QYiSM/UnY3nt8UkfjSW3mOGuA1W7wv+glnqp2O8Cu2I8a4U9ST/usn WhUVlFhKGH9L4dCfzY1rhx/ufcmTXq6l01ntG1yY78Xz79k/f8bb/cxz4gPL iTae/+rXcf3oozIw53fzINn9KNxjlfvU/x4muROG9yac17UI7mRfD4zpVN5l U2A+JtfcQYx3igBDEGGiscBtyY9bYTRrHhHWCLpkdjMGBet64di3LCa+KUn1 R1JhqqBYW0qdblVe54p0mV+MwUaKqYNsUy4xwjxR5mSSpaeVOnLIEJZJ1ibQ Zf1rv+I5ly7YY4ig4jmKPdnFy6RTFpJzuVxPwrRShesvzSllbiph5+pL/og6 5LHFyjflC9ooB8qASwZi7YwGt7GpSEBdNC0s3E6/O5EtVz77zlJOfUkYbJlM 6uLpEG22WmrJP2lmpEnDS4mVtuNTYYteZmqlx0bWo1bV8Thywc/7BiySqZYF 2YVzJcbxcDxnSn6/iMAj/Dyzm0zLeRpKnYJ4uddQ4fQQTRxpzhji3QFy34Fk aBV0mhRUG4PI1ATSpA+m1hvH1EMkVZLzpYYEkq8VNJwWEy/dRKXpIErXRbIh i2yLggFLGHveKA6eEuly5FIlLDZuVdBiDmfxTvLsUon9OJKaSwU1oW/cRp1y nCQaLfmKvbQdR1w13yNK5VGFt2SG71EnPHdZcEX52Ba9BH2y0R1xTlFIPxOK LvZyz0l11DHq/etzobE8uiLwOpVMSgZMy/X2maP4elBCX1MR063baC/NkhnS Jy8zWE0f4iouhZXSbg7Ol3k05HJ0E43Vq8L6EI7x/5bsc4bzx63kk/BlwUwo mRuStTKjMG0+QXJvQaK9SGson72fCHkS3rVLjphzidXGEiW9JUY0mWmJpOQ5 lHrJ9CLRZI3wdf99EfXaIqKMYyRIH45/yGPsXcWRzHn971HSVRKw/V4qnVny RPjFMx3Dq8z+Wh/O5HAoV9LzRiJdbKvqsUpGaPKzOG7K4T6jGL8yiefIFJ5y 2kR/A/x7nPBRwgPz8U4qQvbpUO4xGdbEbEg+3RUT5JzPsuSWriuM8Cz3avZI Fov+r8Qz+sRvWw/KqF0oI+coj1r9GgnmC5JOO1lokw61JpmrC2PRoGTsJoqZ cwV7oi/DQxi3knvWP0SDz+HUWBJIuQuk4jZK5hMnO9pDpKFfdjcdpSmESIew nyGA7KdgUtypMuMA2dNACs3BkjVKmu2hzPvDKBeWnjpQsKqOY2W5npHLTdZd JjmfKc7fytj5lofnWwaulwJ53y7cvlRepYu4tZHoD2PQ6CN5OxdvM0VSmfjG aPEJ2rIMLG3RmOqlhyeE8xIczLtKxVtrN3+PEmZKf5dc8TMT7Sfs8wS7OWqW o3PpUaawMLDM8toey/YdvLYudKYmYdMyjgyl1JgSKTzNp+KwhK6pUnpmNkjV vYufvBOnUzOoqSTDGEi5+Fu37EafrpDIq0TKNUmyh6HMOkM5fZZZip6b9aGU XwfTqknny1UFkdp16WZO8atlYoSfQn4LIPRbAEX+EFZ8KeRLbmRpQ+i9j6JN 9r/ZIFzsUNDoCcUhvGQWPhpypaHTfOHWM4TF2y8cNoLruQzfzziu/kji4Xsy V+5q7h2N3Iv/eXzpWB8H5FHBgy2JuoZX1of3RXNZGMqS0AlL6eNUOJSJ0n0L 8ee085jwhYUk4c0iB0UKGyWxDqaKvdyniT6To3AVpDC3VcWoM40XYQ+PSfj8 XthNdNJrCCP3LpY4TRiZp/FkXiejWtoi8fSMJF07hSvpGFpiMZZHoc8Xxm+v 4vAlUfJDPOBBOFTyQyMM4rgSfa4Fc70fysROMBWLcagmcyiVfCqy1JMjWk95 CKbgMZhbYfkrXyQ3xiRhl2DWLdIj76LZlkxR+8M5l9c0DQjPrKRw5I9mxJkt XWlHmHOQb54y/tdrCn/+PZ2//yOJlz9j8TsT0FiF/fdU3IhH2h9juB9SYVvK p6/ex3TaNMfCMc70dGGwZFaSM/BL9zgLz+BKdvksrEK45Rvt+U8MDtroyHtg v++G6ohApqTn+YoTuXHsU+6O4sSixCn5ZdGFo5HrnBWvSbsOIGM8iLnFJHbm clHNVTGk97O0f8bN/BRW4faXGdmVLmHRukLsf6rw/ikd96fsrpy5T17jaigY fWkQvpwgDtRBRNyF0rOdT9XtNMNqYQnx2YpvQVTI7i49CX9JF7q1JDOpj6Vq IhCzeKrDmIflPhL7bRjPuVH8bGtk+y6DOvG0Kl0qZY8q8kTr5z9iufxXIs8/ MuSaU7FoqiX301hbU/Gq2+JfV8/8x5qa5yoNi8VF9OZ2cFdYi1t22Jkdx3V2 Isa4KKaUCTyoYrDmduOv3SM9TS/Zr6Np1UNxv4G8xjraxpvZOs/kZraLCfGJ a5nZtSlY2DOIW3swR8/SI+WettcCsSaEchyfjDavBs28ME1/NxtTXTiX2/Dd 9mM8lE5SLQxwXiM9JgazMV40ksztaBQPh9JHTsOFvZXou9IpUKtI0RXL2XQT IXkY61QQ5f1M7Fsgja9/7b2Cy6soys8iSVr9jO40je3jIvSVEWg6kvEUd2Aa X2bpLp4CUxKFwujZ4t2tl/HsvSVyLyxxI/O/vqnCfL3MwVwpD5Mrkm8/ubj4 SZVlmRznCscZ0VQrY5iOFl6diMewk8BVvzBhnuSoIlg4Opi30hbUe0+ExV0w tGvh2afjx6ud8nsfZefrjGyPY9J34LCmcyJ6GfuL92V2c7JPlU9BpPgD6F36 xJXiIwvBoqH/t4Pz7Gpj29b0v+gxztnbJIEkBAgQIEDknIOxCTZgE5yxscEE Y5OjyTkI5RwR0Xjb27u7z+1x7996euIPa5QQJdWqueZ85/NKVWoQ/zM8gsu6 h+3Kjf2/34pv7sa5USwMmipb6ePS8zwerfjRZPGmGsalZjdFty7b9Zy0FFK2 VUKuuZJ0032SpX/ESW+I9SvQhlQUXGjRTml4MKuiczOf7OlYllZrcFl2JSe9 mJbPOF1cY3njHfNfM+kKN/IycMry8qrUc8vvzyT6lpJ4MZTE8ktZu3cG/I8G uVgNs2YJ8dL2kzp7QPR1kM0PLSyUGzisLJG11mN8ruWkSOpPFYs35h5ncfdw pSt4l9dBSsoon5ds0s9NXEfcvNwI0T7xjbGB58JqFVhOn7IgHq7OpKRUvNPD c+GIiEL0KY4PvXFMaeI4TFPzaKKSVY8F3+UtF7dbBEz1UqstuEKPcfof45iu 5cJZgccoNXOcw4Z4kJNeNVP1koPl4usfC7cfaIUfM6QHvRQ/MkqaxUCsV/j5 RxwJB3EoB+LIH9Xw/ksDTyvEL1iP8DkC/OX5wWHwJ72nLh49LSZ/OZ/KcB/1 oR+ipSbxFNuUbhShkWPlNafTdJzP9MN6dtu/4rsK4vnuIxSM4DDfsLH6k9PB EfxdQ4R73xEaHmC3VM9ymhZTkgqzUsGJNoF1vbBDWQOdh8LZOxbmlp1YzSd8 eSI10PmWQEcbvge5eEeq+Sg9sndDQe1WDC0HsXTOxzCypGChUkWotILZN6mM OTMZsVXwcaaAjfpiOfZDAg86cXSNsJW3hq3niAvLIT/3x9ianWVma4yXh92M fn7N+8FyHvVn0Cd8XWxJxWB9Selwq9RyFilbCZROq9AGhJsPcnkwUsnkkzd8 Xh7l0+oOnV/n6d+fon1nkMzDeorG9HQ9ryPX1kXWWZ8wQRd68b2p0gczjHpK nRNUO19RnftB6uVCvFGYC9G+8Pwl5jUfBys7mLMr2S/vxtPexfWXRk4byvki 3PIpVcOmTjhcctP6YpjBp0954lhj37PF97CXqe0F9j5+JPLVyHHrW6zVz/lU bODjfiG1qypqP8Whm4gl40UsDyrjMaXpOK4rY7hbtGk+A6N7kaO919zUFXGS rsWVk811Vi5hwwiXBWfYvF6C7mtOVoOMbe6gd3eR4i0iebOQhIex5EtdFR41 ozftyzk/J223i3jpzTHvYlAJX6d7itC1ZjI19FG440TYzkzQ5se+7GC585j8 6aeol1NQryajNqehPE0mXrxH9F4c0e44YkR/FFbh9L00+X8JQ+avRCwuXF77 7+9nD30nTC+vY+loxl6WTaRVNLu3ioWcIiYKdCzmCjfkp3NQP4Tx6RHTT0YZ /PSIvcNl8RYhtna3cLmdOB0XrG6cMVC4R3vlMe+WFnl5NMGrxWGKhh6R2ltA gb6S9rYqilu1tGfeXZ+YRte7z8wPb+CZXOJrVQfDWdVsZZTxI32B79nf8A95 MO95WbfZWFk5oGtule7RaXKnO9AMJnH/aSFZm/WkGbvRbFWi2cgi1qkgNqhA bc8mWTxjal4pAw+mce26RVM9HK06OD62iu46mdw0Cm/2UWYrISuQg3JHS8K8 khivghjR0RhPPLFr8ah7FSR2Z1C68JwXISMzniNWrBuioxu8tW1gHh9lsnuO xQ/v6XszzeeSGZ7oP9CWMSGat4K17xfeuSD5aXrG3YPipVwEPWZhcg9LG3Y6 GpfQpgrLJjSRpQlyOHmK9y6u0xE6Gr6Tk/GJrOQi0gsaic9OIiFZSaahnPna /2G74z+YNr7zuPjuvh8DTdoebvVeQhW3uANhYVYT9m9yvOtzQu9u2R/30zv9 Dq0xF72jmlLHEDkWE8mmJmJFc6PEv0VFYohxx5M+lMa92Fganw1wfHDA4f7+ 7+tLnG4PTusFBdstpJzmoxZOVAoLKb4qiO6V149GEzUbQ+yJaOiMisS3apR5 GVQfiG932fnmcsuIELFdMn54gunbJZsBN9aAh7kbmZ8jxNNPIcr6znkwcEZz IELjZwuNqyO83Fpl+NbL9oUdW8hOp+hxVtMUqdWvSNetkJZ/wdoXE1trHjZ3 T9j9amLkmV14UWJYNIhCXyQjh/hHmaTUiP+tPEDz+gMJz5tIeKQl6Vkl95vl OMI2H04WmDHtsnO0h8vjIHAexmu7oHdrkj5zEy98wzwPr/E0tEXlYScJkj9x Eoe4fRWpc3pq2rJQJvXT0P0Vi9WOyWjCcngoPdhP0PGNxeAEte4OEqXHK21S u+sJxN6PIfpNLLFdscS9iiVhKZ74MQXK/mSytwd549xj33bCosPLsN3G8uoW i84wZp+d2SMPFQs+cvq8ZD4QT1Tkx/A2SO6wm8T0++SvLzAbDIv2mfBe2Zi5 tZPxYJyoP3JJzV6krt9D7a5X8tOG0XjI7q68/+sFerSfyNC9RX2/ithtA4rD UhRb4vuNd49ziRmRuc4oUS2UkBLsIM0/Ra3NTbvNzpG8z9beDnsjuzyb7CFr OgXVfAJa8e96v47yUD+d3n4S2xJRvkghcViYcK+IbfsoA6svSO/qxyh1YpT8 s5ts+MwOgkELW/Mf2Njo4117NVl9GaQU5ZL1SjzSk0yS9TryqhJ59CaDJmMh imcpJK30MzRywsmIvHbxiJ7JD7ztb+P0/g7tc0c0j3vo+uqibsRD4Qs3NU/t FNa4yKvwkVks9VG+TJfZxpDbzYLNTLdD9l3wYmj8SGbVsOiShY4vbl7Z3Sx9 9XDqPCZgdHD0zsHHZ0u865+kbrgL5V45qqMKlM4yVHu5KMf1xI+rUMl5J86V k7TzjlTje2p2x2jZ2GPUe8KQdYdh6wTDwSc8MAlr2HOpO8wn35ZD6+Z93m7U 0vOhgvuzfXTNV2C0tHBx/J76wQYaxSMei+a7pcatbhuzG8vMzsyxaVwgOOvF 1fOZmdT7zCSVMZ3axFRiPjMJaoZUeXzSddCe1kKSvp77VfNM9y+zKj1guUoY If09kdSnnFVMYgvamHRKffyXlV8/zdzKcN7dtzHm5GjIRWf9Gcklk4ydOvCH 3EQCZn5cWhkeDKDTX6FWfcdgiNBa5Jb+ZuXaZ+VEdObYcYw9YuWi+4BF/UsS MhOIHpO+ZhNG21QQ9yaOe2n3+DPxHlEZUcQ2xhB/oiTRUUXyeT9lgTWcZjde i/QQh4NB9ywPl0voXCnBODHO1vG+eOMr/CdSj7YtwhKLs1cf8e6sC3e7+DD6 msbFAOYdn3jXUywuE/49F56+I/wGEze5O/geLmKvHWEnUYs1TsFObAxN0VHo /rxH5b0oVP/6N3/8ryhSopI50hQSSm8grNsglFrOblKmeI8OlkQTT912fv6X mcv/a+bnrYWbkMTh1E54O0x2tousThsHNy4uLu+42SQ14CRF+53ExLtxRWO5 j8iig5+/rHwXXTgxCdO4TuTcXfzKXaI1Qf/7epncpFQU68nEflajGFUQVRXN vcwoou5HEz0fTdyKjsTVbtLk9VU7N6JZfg4tAZpO7BQfN1D3Oh1rRSUW0TLr XzYcVwEcx5fYTNvCo23Y16exui7wWiNUxj9m8+63MUQ7D+7id+kgtBfmm+Tb t+RqvI8PcZft4bm/iCujh31VKgNRf/Lu3p98kO2X6HsY/v3v39eHfZA+dKpO YkuTwoRsK1XJ1KnTOekbRt/go73fSt19M7mlRrKrTilosNPSYKLt4RV5zy95 EwyyE3GxcOFmeMbN/To/D9uspOZ7Kelx0TvnZfIkyKo9yIXkik1q3DljYbZt k7GmzwwXDLNR8Zat/Ne8ThumI6WLSkMnJbV15KVmYchqobtziMa5ASrXBqid Fc7t+cp66xS7tR8YbO9kr7SAq8yHBLNeY2tYwp5Xi72kFUfuBJacPqy6Hnk8 g6XogJXMZ0w2rkmeurCYg5hnLrDLOTqlV00Vv+Xo2Y4wrRNPxiju4k18Mhdf difBxFRMSjVzUsMzsQp6olS0Jg0Ji3TwLLuFLuGIkRTxjymZXGl0BDI7yas5 ZWzBQtczBzWNbjILTKTqjuWcLknKdJLzcodtqWeb387trZVTi4PPnVukZx6Q mrFBz7yTvTM/7r+EsS5tWPftGA+NOCYdLOm3yYkrJy0qk6yYfAa0dayr9DxW pNOSUM+guoI3ynweaF4zqHXQobuhO+WCmydufCeiT2+uCOc7JF9aCaQ3c5L5 kr2C19hbv+IQLrJmbeORY9jT2rAmZ2G7+1yi7CEv4yVX2qZxCj8e+ZzYHGcE Wq0sp9YzoNZjLX+FvWEHe2Y/gYw6nBKTsORUWKMhmKSRfItBLzVcGK1hOu0x Z7mtnFU/4CKtlGttPiGtgfNkAy59D4biL9TXH1BeZSUr10xBkZWWKid5GR7S isxUT4aZMztxhC3YXWaOpI94Tk8xBfysuH3sRaS/hW2YRRNDYeFCow2T6RT3 uofFeiNj6cP0pTylWt1Bo7aV2vgcOmK0DMVVsR+XxGxcAk9kO5CQyZN4eV7d zHLyGgFtKU6tDkdSGtuJGt4lJ7FaUY29uANbeglW0XL70CDWTy6sY+NYJj9i WxzBNDTKVPZ7bCM+YT0H5ojUsFvyT1jLvrOJ/8kM7ldfcJT2YC6vxFRYhEWT jCchgTMZHxLiZV0TqIqK4a0ikQllNmZViuSnhpMCFUalCndcHMtx8cwqE+lv 8fA+z0m31sbDVDu12SFq9CHSNHa0mSFeOcUvS89wOo3iO0T/zsx4Lhw4b/2c HPj5EbDxj9fB/pCbQMj8+3cyT93nXJcdkBmdTMIfsZJ/CnQyKmM1pNxTkBOt pDtWxcuoOPqjYmW+WuZzqpnNf8JSzhKRNvElX3txNzWwnq6mtySVuZEWTrca sFfnYM3TYvnrNea/n2H5f4+xfJcYTOdw+eU+K+mp1ClL8ayccexzc+iwcxI8 w/7LJwzTKvqfhveh5GBzAfbuXJz6RKnbBByKKEwx96gS/cv580/SZGyrlfgL MvFUZXFansqn1zq6ZN+WaAV5EtvlnArSM0TH0s1otWayDAEMFZdk60Jk1f6F rifCQ5/UgNXK4aGN83Mr3y7M+M9sBPwONvbdLMv8AqLNqwdOzu58x3UIi+8n oYZzBnVPqVLlUxCrpDc2jpp792iOiqY1OobK6FgKYpTUxymZUafi1hZg1D0S NhBGq3uDp6Med0khjsIUTHUpWLrTMJfKNjUJY0Yipy90mN7lYHmcy+lDLb7n WVx3pHKYksNqcTfuAwsmq0k8jJNTk+To1Tm2N58Jlj/FX/+As7wG/Lk1+FJ0 2NVqzPFxhONiWI2JplFiV34XP+kbW0qpkQIDex3dLL2uo3aygiepFQwmN4qn z0MR50WhsKFUTZCsOSYv74bkpA0KBvb4fOXBHhbN81l4M+1iU7zjrLD80aqH iz2phy2neAK3sLKb6Q0359LnPB7RribhzYQ07osO9SQX8zg5lw7p96MJKXhy 8gnqirBpsyVmht/fW3nzyuR8WnAUtxJs3cDb3I61+9Hv76RtOtF0nQaLKoFj ZTwLcp6OJnltRz6WR6UYcyWGqSm4U1UcJStYSy/DMX/K8R03C5udWmWdl+dZ 6ejho2jXVnEP/jkXrt5jXKVP8Wi0nMbHM65I4FARz7TEbyUuFpsqnb3iV6yV 9fKltJ+NvJfMfnjHxMpDPj7NlDUsxKtJR6Pyk6TZpbhoj6baW4oNV+JVzeSt XvNCYvTp2EfbGz+Lwu77N15s104Wwz5mfAGsETdGn3Cywymc6iAiNe6ymDn9 OMjS8xoWXxhYrE1lUrRjSqNkJVcjsVKyq4vDpo4jmBLHZbLoTqEWf4YKX2M+ zt4uXJ1NmB+3sTmQxZdMNV+TpB+Kts9n6FjL0uP+9BRzdSVGQx7GtDSspZkE spR81eTiqhctnBN9Prq7v8aPw3fB6dg6b8X/f2no4ej1Ova+ALa6U2wZr3El ZcvapMi6aCQHlWwnaKVui/EklmMsbJL3L2I3MYctXTPbZTkY2zR4RD88ddmc CRM8lr6Xpxd20Q+TKr1anViNrqifTwchwuLXQt9CvD0/xyX87rGcClud4reb OROfFpHedi51fHHp4+bMScgfwh05x3h1ib8vl8/J8bTLeuqlFpL/+ON3/S7e 3SsTG8VOXBRu0ZuAjMtYGXd/Jymw1CRj6srA/Ery66CeqelyZjMN7EienVTl stechdlcjXm95vc+3h5h2kY9No2CJTn/swLRw3VhUJvknku8ZEh4KujH5TQL Ww/ganiBK68NX2YrPon3fLyKxug4aqOiyBPt0/77D+plnh7JyXPJzbu+HtDq sajTiOj1/FWVz0XHI4Jnr/HtjzNW5qSv8xsZqV+EhUvJqn/CuDnAhd/PeSBA +PIC/7czfMJ0XtGTgNNCxO/m74iwaDj0e/vrys1ZICjjHF/Ex4Lfx9qzInIl NndxUwqHKv71Lwwyv0GJn1F05kpiFor58/eIyH5WxT2pRanT6Yd4j98SujiU /jnDkbCxc24c3+wY5o9VnPaXYPaK9uwX4PvcwKUhlbBexYhCcjpR8q/Phfns nEO7VWIXwvpd8u/CQsj2THxIGgefdHge5vAzKQmXzKUtOppEYeR0WWO1zFMr 3JJ5L4aJ+LtrDkvEpzVyklzOj8wprnM2+SvHSvjtP7j//kdy6hdvzL8oe2Kl ZtRD9+drXs0GqJkzUtflpHEszINXf8lxI3i/XeO8uJR6uGTHdMvBUYilQwfb 4q9M4nuDAS+RG4nfd9lva593c81s1Lexn93OZlY9q7piDovrRPNyuEhMIahS /2YG752eybDJ2MtMYSs7jTnpDztlWhbup3G4KT1hW42pJF44Ih5roppDGZNS 098NWq6kNxuTlXjSpbfWzRJ6v4tvx4l/wYZvxkx4RdZ2M8jV0RmRXS8+qY2Q 55LwiOhR+RRdZWP0NvRTkfeGyooPtD8cl/GBFulhhYZZKosPKcyapas0wnDz NZNd/2G8+5b5lz8YyIlw8vNvnqx8p/dUYvOfH+wGv3H/xTU1TUbuD4boG/3B uc9D5MxL4DyII3iJ2XbL3Mk57eNWRi3f2JW1dglrhYS1fOfCCgtrVI1kkvhZ QbbUao54yS5NEvO6bM51Br4nZ3BzF0N1Il616vd9e8fy+KiulN3SLHaSVWzI OCxW4XQlEhjScLOYyGWHApf0iPVEFc9TJabZydhzU4SJc4i8PhauOpfc8wjr +/H6RXtk3QPCfp7TMOF1H2frYTyXZ4SOL7hs+cyzpCKUsYmkxGeiSshHk9hM YfEwtTUWigoPyc09ID1tm/w8P+2dEqfnv2jp/j98mf5Jd9cvGpvl8fAPvq5K b7cFhEMucB+FCbrCXIvuXv91Lcc64+Y8hF9G4CJIIHLG5dUF55FLvp/9xQ/n d74dWAmYN4mc33L57Qc+xyqD+43ixbS0NifyNi2RJ4YSOrJzaU7Jol380a5o 1U9h1X+ER/+WGF4Ka0WykjhLU0uMkwjp736LR0ekI5vIgzwCw0W4hwqxSO2d NGRzNNvM9fsGXhV18qHvK5a9c86CN1zK/M5NIS6MQS6tQW7DZ3wLnfFLzu1G 6ufbbYT//c8Njp0rOts36G5boLv7C8Wlzykr7Kak/AEFBS1kZTWhldpNTqkX vnuIIe+FxHOEXMMUhpwV9Bkr5OX/YGFxnoX5OWbnZ/gyPsn7qmkWpidFt8eZ GBvlTfsnhj9+ZHhkhLFPY0xOjjE7Nc5w0xTjXVMsD3xm6/VnNuanmZ9bYn1j WLhriPcn7fQ5a+iyFkl+5/O0LpfO8myplTye1xYyUVvATW0+t/UFXDYVcdFS QritnFBnJb6BGjyTdaLPTbj8D3CGW3BGWrCFpR86K9lebOBFdSoZSiXZmkbe 9o0w8WmEkY/jfPk0w8LcLGurC2zvLrG5vcjWzhKzc6tMjK+wtr7Aztoa1Xlz pGhqUatyhNtKSUmpQK3OQqXSyXMZv7eJ6mySkvJIS6nFoJ/DYNjBkLsqfbYJ XfITxh7v8v8BNKdiYA== "], {{0, 80}, {80, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{80, 80}, PlotRange->{{0, 80}, {0, 80}}]], "Output", CellChangeTimes->{3.7686715670598793`*^9, 3.772965778282838*^9}, CellLabel->"Out[53]=", CellID->604624471] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ImportGravatarImage", "[", RowBox[{"\"\\"", ",", RowBox[{"ImageSize", "\[Rule]", "64"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.7729657810814123`*^9, 3.772965781375867*^9}}, CellLabel->"In[54]:=", CellID->540755145], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztW01oE0EUjm3FIh68+VttzUlBD4o04v+xVBQieigiNJrWIqaaFCUHoR48 6cGDVCkq/qCiB0EQkfoD9aAHvSooiiZtaGLbSJqY/+xzZuNup9nNbrKzZUaY B1NIu1/zfe/bNzsvvLR5+t09DQ6HI9CMfri7z+31+7uDB5eiF4d8gb5en/d4 h2/A2+v1uzyN6Jd7/q0mtGJHOiGyawOEViyoa41vWQNTp47WjbN7WeUfaXfC 9NkTEHE5QcpkIPXkPkR2rjfXvbkFZm5dlTGxrg7m+uvmv7UVkveGQcrnVP7J BzcAh1Qslv+PTj6x37LubFa+NvvhHYRWNjDXXzN/pHvm7nWQcjkN/0j7OpSP PCghFQpqPkm/yeDB+9l72YT/7SHkmzH/5MObUBk4n4rfZGQ/vmeuWXMPUPKX 64jIoVHw5L2d/JU6Mgqe6t5u/pV19L94bxf/sY3LoJT+Y4if6HQx1zlf/BPX LhticaRfP2eucz74j21aDqVU0hQvlUowsW8bc612808MXTLFmuWQqfcU/PXq Bu+TeK/A9YKvx3kjg6d9wJT/mxcgSVJV/mTd4LOBvEdWPCPwPYPzwOM9UBP/ /dshPTqi4a/UjZIvs/dS7wd0tuJhH6iXf/TADsi8faXuA5M9h3XzZZoHhI2f 72eu3yr/qHs3/L4YpH7/9MtnkP/yqea9R4nCeAiSj+9Q41nnP//jG4Ram2Gy rwvyXz+b846EYTp4UsbgOqLFs9aPY+rMsfLrVY1lHTp+Yr9k3msXqfWjPFNo 8DzoL/z8DqGWhbO/X92k+kn6NaduiGcJDZ4H/bKHpz3avyM/Fb/IhZ8hlWEV z4t+uY5JDw0W6T0tnhf9c+rYYJF1r7kHLOB50q+p4xq9p8HzpL/4KwrhtsWG 1+PzabWwgudJf3wwYHo9PqtVCyt4XvQXYxMQdi4xx6BzKj6ra7y3iOdFf/zC QM0YvXvAKp4H/Xp1q/TL1fpRso5p8DzoJ+u22ucllf0p6SENnrV+pW4rPx+p Fqqf6GyHNdHiWetPPX2k65epDsQ9MXyFGs9av+j/Rf8v+n/R/4v+X/T/ov8X /b/o/42vF/2/6P9F/y/6f9H/i/6fh/5fzP+L+X8x/y/m/8X8v5j/F/P/Yv5f zP8bB54lZq2Tij/t/L8kybPErLVa5m/H/P/oCHO9VPxtmP/Hc9SsNdPwp53/ xzPkrHXT8Kee/0f5xDPkrLXTfn+BZv7fjvl52kX1/YXBAPwF8Kq0gA== "], {{0, 64}, {64, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{64, 64}, PlotRange->{{0, 64}, {0, 64}}]], "Output", CellChangeTimes->{3.7686715718776293`*^9, 3.7686734261467447`*^9, 3.772965782463468*^9}, CellLabel->"Out[54]=", CellID->639510267] }, Open ]] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->589765368] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->851691753] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "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["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "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]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->71422750] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->131115484] }, 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->"ImportGravatarImage | 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.867764923823576`16.34003505969277*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.867764923872302`16.340035059698238*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", 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.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"de44ead6-165d-4120-b334-be477f45a6a6", CellTags->{"Name", "TemplateCell", "Title"}, CellID->315734650]}, "TemplateCell"->{ Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"de44ead6-165d-4120-b334-be477f45a6a6", CellTags->{"Name", "TemplateCell", "Title"}, CellID->315734650], Cell[740, 27, 128, 2, 70, "Text",ExpressionUUID->"a74b8832-e251-4e59-a6e9-e98fabde9b26", CellTags->{"Description", "TemplateCell"}, CellID->644370710]}, "Title"->{ Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"de44ead6-165d-4120-b334-be477f45a6a6", CellTags->{"Name", "TemplateCell", "Title"}, CellID->315734650]}, "Description"->{ Cell[740, 27, 128, 2, 70, "Text",ExpressionUUID->"a74b8832-e251-4e59-a6e9-e98fabde9b26", CellTags->{"Description", "TemplateCell"}, CellID->644370710]}, "Definition"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"1446d112-3278-40fe-8df5-d4e9132b86c2", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"1446d112-3278-40fe-8df5-d4e9132b86c2", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"1446d112-3278-40fe-8df5-d4e9132b86c2", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[6390, 171, 1980, 50, 70, "Subsection",ExpressionUUID->"71eda60d-9d05-49ca-890d-d2b45257b763", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[8926, 248, 1429, 32, 70, "Subsection",ExpressionUUID->"5082bea4-4cc4-43fe-acad-8af3143c07c4", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[26334, 645, 7029, 152, 70, "Section",ExpressionUUID->"ddde650a-c6cc-46bc-b81e-4655c3db902b", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[92379, 1936, 1026, 26, 70, "Subsection",ExpressionUUID->"b9a4ff43-80c2-4bb4-a54a-4531412c99d5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[93512, 1970, 996, 26, 70, "Subsection",ExpressionUUID->"5a2d1875-49cc-45bd-9603-fa92e0a02e28", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[94590, 2004, 221, 6, 70, "Subsection",ExpressionUUID->"89564f8d-f1fd-47c8-bcd1-701cadd098de", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[103210, 2270, 980, 26, 70, "Subsection",ExpressionUUID->"5cb8b9df-df66-4837-bd9f-4405c7ddd0b3", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[104752, 2311, 1039, 26, 70, "Subsection",ExpressionUUID->"87089f86-995d-42a1-8a36-ac37e4350860", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[106359, 2352, 1084, 26, 70, "Subsection",ExpressionUUID->"185d06fa-0523-4567-95e9-31bfe82f980b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[107999, 2393, 923, 26, 70, "Subsection",ExpressionUUID->"6fc021bb-be86-41d0-8ec1-f5e2d8a8c3d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[109424, 2438, 1874, 45, 70, "Subsection",ExpressionUUID->"77dcb175-241d-4166-8379-2972e52e42fb", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[141778, 3014, 955, 25, 70, "Subsection",ExpressionUUID->"585802fc-eb08-4adc-a06a-4cec801ec281", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[142758, 3043, 1174, 31, 70, "Subsubsection",ExpressionUUID->"fb8a981e-6fdb-4001-a59b-755199d1eddc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[144061, 3083, 1113, 29, 70, "Subsubsection",ExpressionUUID->"d961b8ad-d581-46e1-b353-189bce87bc00", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[147312, 3181, 1280, 33, 70, "Subsubsection",ExpressionUUID->"249d9db5-192f-488e-a123-a3dc784b2f3c", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[150781, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"0cc46bf4-b236-4e45-a438-0b04bc2b9807", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[156720, 3454, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1ab72059-75f7-4851-ac50-b9be2086d194", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[159073, 3526, 1155, 28, 70, "Section",ExpressionUUID->"002ad838-34fb-4062-83b7-19bd678d1a40", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[160797, 3569, 1033, 26, 70, "Section",ExpressionUUID->"56e8e1bd-f360-400e-8b1f-131ecbd41dcb", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[6170, 162, 195, 5, 70, "Section",ExpressionUUID->"bba7d44e-74c9-4d3f-ba08-8d16fa85d546", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[6170, 162, 195, 5, 70, "Section",ExpressionUUID->"bba7d44e-74c9-4d3f-ba08-8d16fa85d546", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[92105, 1927, 249, 5, 70, "Section",ExpressionUUID->"d3b206c7-f5a1-40b3-9432-08b8633f1a97", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[6390, 171, 1980, 50, 70, "Subsection",ExpressionUUID->"71eda60d-9d05-49ca-890d-d2b45257b763", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[8926, 248, 1429, 32, 70, "Subsection",ExpressionUUID->"5082bea4-4cc4-43fe-acad-8af3143c07c4", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[8926, 248, 1429, 32, 70, "Subsection",ExpressionUUID->"5082bea4-4cc4-43fe-acad-8af3143c07c4", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[10358, 282, 95, 2, 70, "Notes",ExpressionUUID->"7759a2a8-c2c5-41bb-9d5b-831b79859520", CellTags->"TabNext", CellID->476111583], Cell[104193, 2298, 522, 8, 70, "Item",ExpressionUUID->"a0c54df5-e478-4406-9cd5-78a9000af852", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[105794, 2339, 528, 8, 70, "Item",ExpressionUUID->"72642188-b73b-45fa-8c86-49e8b1a15bca", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[107446, 2380, 516, 8, 70, "Text",ExpressionUUID->"bb7110ce-3dcd-44b3-8759-46db66cde2e5", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[160231, 3556, 529, 8, 70, "Text",ExpressionUUID->"196aeee7-ec8b-48fb-af1b-893b40c9ec91", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[161833, 3597, 515, 8, 70, "Text",ExpressionUUID->"b93a9053-e46c-4c96-931c-ea77a01f69d0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[26334, 645, 7029, 152, 70, "Section",ExpressionUUID->"ddde650a-c6cc-46bc-b81e-4655c3db902b", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[92105, 1927, 249, 5, 70, "Section",ExpressionUUID->"d3b206c7-f5a1-40b3-9432-08b8633f1a97", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[92379, 1936, 1026, 26, 70, "Subsection",ExpressionUUID->"b9a4ff43-80c2-4bb4-a54a-4531412c99d5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[92379, 1936, 1026, 26, 70, "Subsection",ExpressionUUID->"b9a4ff43-80c2-4bb4-a54a-4531412c99d5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[93512, 1970, 996, 26, 70, "Subsection",ExpressionUUID->"5a2d1875-49cc-45bd-9603-fa92e0a02e28", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[94590, 2004, 221, 6, 70, "Subsection",ExpressionUUID->"89564f8d-f1fd-47c8-bcd1-701cadd098de", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[94814, 2012, 8359, 253, 70, "Output",ExpressionUUID->"c6d6a46b-f4de-47c3-8fed-9fc8e3ae7e79", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->752395566]}, "Categories-Checkboxes"->{ Cell[94814, 2012, 8359, 253, 70, "Output",ExpressionUUID->"c6d6a46b-f4de-47c3-8fed-9fc8e3ae7e79", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->752395566]}, "CheckboxCell"->{ Cell[94814, 2012, 8359, 253, 70, "Output",ExpressionUUID->"c6d6a46b-f4de-47c3-8fed-9fc8e3ae7e79", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->752395566], Cell[145177, 3114, 2098, 62, 70, "Output",ExpressionUUID->"78ba14e6-8274-4627-850c-ca95e9766278", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[148595, 3216, 2149, 63, 70, "Output",ExpressionUUID->"3c1f8966-ef58-4b96-8e79-d2535c1372bf", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[152697, 3332, 3986, 117, 70, "Output",ExpressionUUID->"f438ff3f-812b-44f7-967f-fa8c95ae81b1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[157794, 3483, 1218, 36, 70, "Output",ExpressionUUID->"f7eaef34-7404-4d7f-978a-18925e95a98d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[103210, 2270, 980, 26, 70, "Subsection",ExpressionUUID->"5cb8b9df-df66-4837-bd9f-4405c7ddd0b3", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "DefaultContent"->{ Cell[104193, 2298, 522, 8, 70, "Item",ExpressionUUID->"a0c54df5-e478-4406-9cd5-78a9000af852", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[105794, 2339, 528, 8, 70, "Item",ExpressionUUID->"72642188-b73b-45fa-8c86-49e8b1a15bca", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[107446, 2380, 516, 8, 70, "Text",ExpressionUUID->"bb7110ce-3dcd-44b3-8759-46db66cde2e5", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[143935, 3076, 89, 2, 70, "Text",ExpressionUUID->"d6c79d02-a2f6-4c52-9a11-5037df7975a7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[160231, 3556, 529, 8, 70, "Text",ExpressionUUID->"196aeee7-ec8b-48fb-af1b-893b40c9ec91", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[161833, 3597, 515, 8, 70, "Text",ExpressionUUID->"b93a9053-e46c-4c96-931c-ea77a01f69d0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Related Resource Objects"->{ Cell[104752, 2311, 1039, 26, 70, "Subsection",ExpressionUUID->"87089f86-995d-42a1-8a36-ac37e4350860", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[106359, 2352, 1084, 26, 70, "Subsection",ExpressionUUID->"185d06fa-0523-4567-95e9-31bfe82f980b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[107999, 2393, 923, 26, 70, "Subsection",ExpressionUUID->"6fc021bb-be86-41d0-8ec1-f5e2d8a8c3d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[109424, 2438, 1874, 45, 70, "Subsection",ExpressionUUID->"77dcb175-241d-4166-8379-2972e52e42fb", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[109424, 2438, 1874, 45, 70, "Subsection",ExpressionUUID->"77dcb175-241d-4166-8379-2972e52e42fb", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[141778, 3014, 955, 25, 70, "Subsection",ExpressionUUID->"585802fc-eb08-4adc-a06a-4cec801ec281", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[142758, 3043, 1174, 31, 70, "Subsubsection",ExpressionUUID->"fb8a981e-6fdb-4001-a59b-755199d1eddc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[142758, 3043, 1174, 31, 70, "Subsubsection",ExpressionUUID->"fb8a981e-6fdb-4001-a59b-755199d1eddc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[143935, 3076, 89, 2, 70, "Text",ExpressionUUID->"d6c79d02-a2f6-4c52-9a11-5037df7975a7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[144061, 3083, 1113, 29, 70, "Subsubsection",ExpressionUUID->"d961b8ad-d581-46e1-b353-189bce87bc00", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[145177, 3114, 2098, 62, 70, "Output",ExpressionUUID->"78ba14e6-8274-4627-850c-ca95e9766278", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[144061, 3083, 1113, 29, 70, "Subsubsection",ExpressionUUID->"d961b8ad-d581-46e1-b353-189bce87bc00", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[145177, 3114, 2098, 62, 70, "Output",ExpressionUUID->"78ba14e6-8274-4627-850c-ca95e9766278", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[147312, 3181, 1280, 33, 70, "Subsubsection",ExpressionUUID->"249d9db5-192f-488e-a123-a3dc784b2f3c", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[148595, 3216, 2149, 63, 70, "Output",ExpressionUUID->"3c1f8966-ef58-4b96-8e79-d2535c1372bf", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[147312, 3181, 1280, 33, 70, "Subsubsection",ExpressionUUID->"249d9db5-192f-488e-a123-a3dc784b2f3c", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[148595, 3216, 2149, 63, 70, "Output",ExpressionUUID->"3c1f8966-ef58-4b96-8e79-d2535c1372bf", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[150781, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"0cc46bf4-b236-4e45-a438-0b04bc2b9807", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[152697, 3332, 3986, 117, 70, "Output",ExpressionUUID->"f438ff3f-812b-44f7-967f-fa8c95ae81b1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[150781, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"0cc46bf4-b236-4e45-a438-0b04bc2b9807", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[152697, 3332, 3986, 117, 70, "Output",ExpressionUUID->"f438ff3f-812b-44f7-967f-fa8c95ae81b1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[156720, 3454, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1ab72059-75f7-4851-ac50-b9be2086d194", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[156720, 3454, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1ab72059-75f7-4851-ac50-b9be2086d194", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[157794, 3483, 1218, 36, 70, "Output",ExpressionUUID->"f7eaef34-7404-4d7f-978a-18925e95a98d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[157794, 3483, 1218, 36, 70, "Output",ExpressionUUID->"f7eaef34-7404-4d7f-978a-18925e95a98d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[159073, 3526, 1155, 28, 70, "Section",ExpressionUUID->"002ad838-34fb-4062-83b7-19bd678d1a40", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[160797, 3569, 1033, 26, 70, "Section",ExpressionUUID->"56e8e1bd-f360-400e-8b1f-131ecbd41dcb", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 285357, 5925}, {"TemplateCell", 285540, 5929}, {"Title", 285876, 5936}, {"Description", 286058, 5940}, {"Definition", 286236, 5944}, {"Function", 286432, 5948}, {"TemplateCellGroup", 286637, 5952}, {"Documentation", 290486, 6013}, {"TemplateSection", 290679, 6017}, {"Usage", 291052, 6024}, {"Details & Options", 291246, 6028}, {"Notes", 291449, 6032}, {"TabNext", 291654, 6036}, {"Examples", 292626, 6055}, {"Source & Additional Information", 292836, 6059}, {"Contributed By", 293048, 6063}, {"ContributorInformation", 293283, 6067}, {"Keywords", 293504, 6071}, {"Categories", 293695, 6075}, {"Categories-Checkboxes", 294091, 6082}, {"CheckboxCell", 294304, 6086}, {"Related Symbols", 295428, 6102}, {"DefaultContent", 295631, 6106}, {"Related Resource Objects", 296646, 6125}, {"Source/Reference Citation", 296870, 6129}, {"Links", 297075, 6133}, {"Tests", 297259, 6137}, {"VerificationTests", 297477, 6141}, {"Compatibility", 297691, 6145}, {"CompatibilityWolframLanguageVersionRequired", 297921, 6149}, {"Wolfram Language Version", 298194, 6153}, {"ScrapeDefault", 298456, 6157}, {"CompatibilityOperatingSystem", 298660, 6161}, {"Operating System", 299131, 6168}, {"CompatibilityOperatingSystem-Checkboxes", 299396, 6172}, {"CompatibilityFeatures", 299654, 6176}, {"Required Features", 300106, 6183}, {"CompatibilityFeatures-Checkboxes", 300358, 6187}, {"CompatibilityEvaluationEnvironment", 300615, 6191}, {"Environments", 301096, 6198}, {"CompatibilityEvaluationEnvironment-Checkboxes", 301369, 6202}, {"Cloud Support", 301631, 6206}, {"CompatibilityCloudSupport", 301876, 6210}, {"CompatibilityCloudSupport-Checkboxes", 302355, 6217}, {"Author Notes", 302598, 6221}, {"Submission Notes", 302798, 6225} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"de44ead6-165d-4120-b334-be477f45a6a6", CellTags->{"Name", "TemplateCell", "Title"}, CellID->315734650], Cell[740, 27, 128, 2, 70, "Text",ExpressionUUID->"a74b8832-e251-4e59-a6e9-e98fabde9b26", CellTags->{"Description", "TemplateCell"}, CellID->644370710], Cell[CellGroupData[{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"1446d112-3278-40fe-8df5-d4e9132b86c2", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[CellGroupData[{ Cell[2124, 66, 707, 14, 70, "Input",ExpressionUUID->"43533764-7fa2-4c3e-8d98-316bbcb56dda", CellID->195267468], Cell[2834, 82, 706, 14, 70, "Output",ExpressionUUID->"61dae485-0d91-4fac-a962-a872210fce11", CellID->958705273] }, Open ]], Cell[3555, 99, 2578, 58, 70, "Input",ExpressionUUID->"ecb8e67b-0be0-420d-98c2-46936ff9cb56", CellID->858487930] }, Open ]], Cell[CellGroupData[{ Cell[6170, 162, 195, 5, 70, "Section",ExpressionUUID->"bba7d44e-74c9-4d3f-ba08-8d16fa85d546", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[6390, 171, 1980, 50, 70, "Subsection",ExpressionUUID->"71eda60d-9d05-49ca-890d-d2b45257b763", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[8395, 225, 152, 4, 70, "UsageInputs",ExpressionUUID->"fef4bdcc-c5b9-4ec9-b9a9-7beb71c96eba", CellID->18516479], Cell[8550, 231, 327, 11, 70, "UsageDescription",ExpressionUUID->"6c4d594e-9008-40c0-b6b5-8e47d10a1dd6", CellID->31173855] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8926, 248, 1429, 32, 70, "Subsection",ExpressionUUID->"5082bea4-4cc4-43fe-acad-8af3143c07c4", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[10358, 282, 95, 2, 70, "Notes",ExpressionUUID->"7759a2a8-c2c5-41bb-9d5b-831b79859520", CellTags->"TabNext", CellID->476111583], Cell[10456, 286, 1936, 45, 70, "TableNotes",ExpressionUUID->"7fb7cdc9-2c1f-40ce-83f4-0e540b67d1ec", CellID->415018631], Cell[12395, 333, 1749, 54, 70, "Notes",ExpressionUUID->"db3699e3-9955-4040-b193-8a5c67f91f5b", CellID->370275733], Cell[14147, 389, 10534, 198, 70, "TableNotes",ExpressionUUID->"5a2a709d-bce9-42d1-ab8e-70cf380afdf3", CellID->614594346], Cell[24684, 589, 785, 25, 70, "Notes",ExpressionUUID->"cb65b56b-3d14-4682-9c52-0f7bd7532eaf", CellID->477270466], Cell[25472, 616, 175, 5, 70, "Notes",ExpressionUUID->"e2fa0df6-9c7a-4703-be3e-d009ea4fbc44", CellID->656782353], Cell[25650, 623, 635, 16, 70, "TableNotes",ExpressionUUID->"50bc285c-374f-412d-8985-43443c828155", CellID->819558503] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26334, 645, 7029, 152, 70, "Section",ExpressionUUID->"ddde650a-c6cc-46bc-b81e-4655c3db902b", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[33388, 801, 75, 2, 70, "Subsection",ExpressionUUID->"52ba4911-3e78-4c3b-a0f6-871fa18c4a7e", CellID->904125756], Cell[33466, 805, 408, 7, 70, "Text",ExpressionUUID->"a93bd2b5-e341-4423-9446-103355590340", CellID->593937995], Cell[CellGroupData[{ Cell[33899, 816, 200, 6, 70, "Input",ExpressionUUID->"837e6a50-781d-4eae-a744-99836e243321", CellID->889247845], Cell[34102, 824, 8365, 143, 70, "Output",ExpressionUUID->"e49e44e1-02a7-4074-9629-5e9e594d5d5e", CellID->859165573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42516, 973, 68, 2, 70, "Subsection",ExpressionUUID->"1f967fb1-d47c-445d-9356-4c56929798f2", CellID->890561554], Cell[CellGroupData[{ Cell[42609, 979, 141, 3, 70, "Subsubsection",ExpressionUUID->"30f4974b-d045-402b-8fb6-7630dc444ad8", CellID->124620674], Cell[42753, 984, 228, 4, 70, "Text",ExpressionUUID->"d43bc1b3-1860-4e2e-a285-f9607ec86456", CellID->87646134], Cell[CellGroupData[{ Cell[43006, 992, 219, 6, 70, "Input",ExpressionUUID->"3faa9f1a-73f7-4aba-ace5-d4ff00162f1f", CellID->154288195], Cell[43228, 1000, 17479, 293, 70, "Output",ExpressionUUID->"b3a7ae50-29d8-4894-a7c9-060eb2276f90", CellID->425902442] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[60756, 1299, 243, 5, 70, "Subsubsection",ExpressionUUID->"ed7fb9b2-34a8-411a-a4a4-3fdde305c04f", CellID->592401166], Cell[61002, 1306, 196, 4, 70, "Text",ExpressionUUID->"e051028e-1670-4c2c-934e-3e89cb814990", CellID->711567849], Cell[CellGroupData[{ Cell[61223, 1314, 465, 10, 70, "Input",ExpressionUUID->"61c8afcf-80e9-40ea-b0d0-2e7857cc1ec3", CellID->428760390], Cell[61691, 1326, 2040, 40, 70, "Output",ExpressionUUID->"de191470-2ce6-4eb2-9917-95c55bf5948a", CellID->700774977] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[63780, 1372, 244, 5, 70, "Subsubsection",ExpressionUUID->"bd6b0987-9f29-469f-a84a-a73f8846e689", CellID->935113706], Cell[64027, 1379, 301, 5, 70, "Text",ExpressionUUID->"f80c332e-f60d-45f9-b80c-7a26f4df13b8", CellID->450420282], Cell[CellGroupData[{ Cell[64353, 1388, 231, 6, 70, "Input",ExpressionUUID->"5a3d9338-7b39-4839-9120-746fdd69d08a", CellID->239532300], Cell[64587, 1396, 14197, 241, 70, "Output",ExpressionUUID->"15589488-7fbe-4ccf-8aa1-ba3a80015757", CellID->675045849] }, Open ]], Cell[CellGroupData[{ Cell[78821, 1642, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"13bf9dff-d5a9-47df-af49-08beadcd1b1b", CellID->14107562], Cell[78967, 1648, 1084, 30, 70, "Text",ExpressionUUID->"64fc2ae0-a5da-422c-b8f1-590af5925986", CellID->77217070], Cell[CellGroupData[{ Cell[80076, 1682, 375, 9, 70, "Input",ExpressionUUID->"e30203e6-a21b-4b98-a3df-da4b0976c9a6", CellID->964704327], Cell[80454, 1693, 1983, 39, 70, "Output",ExpressionUUID->"bf17f8cd-07f3-470f-b70f-e26babb01763", CellID->576827951] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[82498, 1739, 135, 3, 70, "Subsubsection",ExpressionUUID->"05726ead-1267-4917-a034-034fefc7cd83", CellID->857758352], Cell[82636, 1744, 727, 19, 70, "Text",ExpressionUUID->"e019f5e6-a5af-4197-b6f6-e15fea336d70", CellID->119848558], Cell[CellGroupData[{ Cell[83388, 1767, 231, 6, 70, "Input",ExpressionUUID->"fa24dbc9-188f-4a37-9097-003768fe245a", CellID->884613701], Cell[83622, 1775, 8410, 144, 70, "Output",ExpressionUUID->"d4fa25e4-cfd8-4133-b647-6cb45db21adc", CellID->434312093] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[92105, 1927, 249, 5, 70, "Section",ExpressionUUID->"d3b206c7-f5a1-40b3-9432-08b8633f1a97", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[92379, 1936, 1026, 26, 70, "Subsection",ExpressionUUID->"b9a4ff43-80c2-4bb4-a54a-4531412c99d5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[93408, 1964, 67, 1, 70, "Text",ExpressionUUID->"0d36f510-622f-4b96-8f46-56b00e745cb1", CellID->956320021] }, Open ]], Cell[CellGroupData[{ Cell[93512, 1970, 996, 26, 70, "Subsection",ExpressionUUID->"5a2d1875-49cc-45bd-9603-fa92e0a02e28", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[94511, 1998, 42, 1, 70, "Item",ExpressionUUID->"08ab9125-4a45-458a-bf2a-c2b3b31a850d", CellID->419052271] }, Open ]], Cell[CellGroupData[{ Cell[94590, 2004, 221, 6, 70, "Subsection",ExpressionUUID->"89564f8d-f1fd-47c8-bcd1-701cadd098de", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[94814, 2012, 8359, 253, 70, "Output",ExpressionUUID->"c6d6a46b-f4de-47c3-8fed-9fc8e3ae7e79", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->752395566] }, Open ]], Cell[CellGroupData[{ Cell[103210, 2270, 980, 26, 70, "Subsection",ExpressionUUID->"5cb8b9df-df66-4837-bd9f-4405c7ddd0b3", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[104193, 2298, 522, 8, 70, "Item",ExpressionUUID->"a0c54df5-e478-4406-9cd5-78a9000af852", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[104752, 2311, 1039, 26, 70, "Subsection",ExpressionUUID->"87089f86-995d-42a1-8a36-ac37e4350860", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[105794, 2339, 528, 8, 70, "Item",ExpressionUUID->"72642188-b73b-45fa-8c86-49e8b1a15bca", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[106359, 2352, 1084, 26, 70, "Subsection",ExpressionUUID->"185d06fa-0523-4567-95e9-31bfe82f980b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[107446, 2380, 516, 8, 70, "Text",ExpressionUUID->"bb7110ce-3dcd-44b3-8759-46db66cde2e5", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[107999, 2393, 923, 26, 70, "Subsection",ExpressionUUID->"6fc021bb-be86-41d0-8ec1-f5e2d8a8c3d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[108925, 2421, 205, 5, 70, "Item",ExpressionUUID->"75f9d25f-fbc0-475c-83ad-3eaaa9cc48e5", CellID->295732927], Cell[109133, 2428, 254, 5, 70, "Item",ExpressionUUID->"e7a3a218-1e48-4a07-b244-c4e89946ff8c", CellID->451013720] }, Open ]], Cell[CellGroupData[{ Cell[109424, 2438, 1874, 45, 70, "Subsection",ExpressionUUID->"77dcb175-241d-4166-8379-2972e52e42fb", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[111323, 2487, 231, 6, 70, "Input",ExpressionUUID->"8498c7a7-24d0-434f-b3ce-b675e6aaf45f", CellID->890130231], Cell[111557, 2495, 27978, 464, 70, "Output",ExpressionUUID->"268484a3-467e-4ed0-ab61-9262f3df9be7", CellID->604624471] }, Open ]], Cell[CellGroupData[{ Cell[139572, 2964, 404, 8, 70, "Input",ExpressionUUID->"b639e480-21c8-4fa6-94ad-2e4814b18983", CellID->540755145], Cell[139979, 2974, 1750, 34, 70, "Output",ExpressionUUID->"49f8eab5-a20e-4b05-9907-62e26f764d89", CellID->639510267] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[141778, 3014, 955, 25, 70, "Subsection",ExpressionUUID->"585802fc-eb08-4adc-a06a-4cec801ec281", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[142758, 3043, 1174, 31, 70, "Subsubsection",ExpressionUUID->"fb8a981e-6fdb-4001-a59b-755199d1eddc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[143935, 3076, 89, 2, 70, "Text",ExpressionUUID->"d6c79d02-a2f6-4c52-9a11-5037df7975a7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[144061, 3083, 1113, 29, 70, "Subsubsection",ExpressionUUID->"d961b8ad-d581-46e1-b353-189bce87bc00", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[145177, 3114, 2098, 62, 70, "Output",ExpressionUUID->"78ba14e6-8274-4627-850c-ca95e9766278", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[147312, 3181, 1280, 33, 70, "Subsubsection",ExpressionUUID->"249d9db5-192f-488e-a123-a3dc784b2f3c", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[148595, 3216, 2149, 63, 70, "Output",ExpressionUUID->"3c1f8966-ef58-4b96-8e79-d2535c1372bf", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[150781, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"0cc46bf4-b236-4e45-a438-0b04bc2b9807", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[152697, 3332, 3986, 117, 70, "Output",ExpressionUUID->"f438ff3f-812b-44f7-967f-fa8c95ae81b1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[156720, 3454, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1ab72059-75f7-4851-ac50-b9be2086d194", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[157794, 3483, 1218, 36, 70, "Output",ExpressionUUID->"f7eaef34-7404-4d7f-978a-18925e95a98d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[159073, 3526, 1155, 28, 70, "Section",ExpressionUUID->"002ad838-34fb-4062-83b7-19bd678d1a40", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[160231, 3556, 529, 8, 70, "Text",ExpressionUUID->"196aeee7-ec8b-48fb-af1b-893b40c9ec91", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[160797, 3569, 1033, 26, 70, "Section",ExpressionUUID->"56e8e1bd-f360-400e-8b1f-131ecbd41dcb", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[161833, 3597, 515, 8, 70, "Text",ExpressionUUID->"b93a9053-e46c-4c96-931c-ea77a01f69d0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)