(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 178094, 3898] NotebookOptionsPosition[ 115680, 2579] NotebookOutlinePosition[ 166789, 3646] CellTagsIndexPosition[ 166136, 3624] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["SendMailFromNotebook", "Title", 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}, CellChangeTimes->{{3.759331781159688*^9, 3.759331784763219*^9}}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Send mail messages defined by sections in a notebook", "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}, CellChangeTimes->{{3.759331789267568*^9, 3.759331797211092*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"$tag", "=", "\"\<5da35ef1-45dd-46fc-8a2e-43b9baaac678\>\""}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.7608142588920393`*^9, 3.760814283055121*^9}}, CellLabel->"In[1]:=", CellID->308626740], Cell[BoxData[ RowBox[{ RowBox[{"ProcessMailFile", "[", RowBox[{"file_", ",", "extras_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"list", "=", RowBox[{"NotebookImport", "[", RowBox[{"file", ",", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"FailureQ", "[", "list", "]"}], ",", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Replace", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"{", RowBox[{"to_", ",", RowBox[{"{", RowBox[{"subj_", ",", "body__"}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"Join", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"StringSplit", "[", RowBox[{"to", ",", "\"\<\\n\>\""}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "subj"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"StringJoin", "[", RowBox[{"Riffle", "[", RowBox[{ RowBox[{"{", "body", "}"}], ",", "\"\<\\n\>\""}], "]"}], "]"}]}]}], "|>"}], ",", "extras"}], "]"}]}], ",", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"AllTrue", "[", RowBox[{"list", ",", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#", "]"}], "===", "Association"}], "&"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{"Framed", "[", "#", "]"}], ",", "\"\\""}], "]"}], "&"}], "/@", RowBox[{"DeleteCases", "[", RowBox[{"list", ",", "_Association"}], "]"}]}], "]"}], ";", RowBox[{"Cases", "[", RowBox[{"list", ",", "_Association"}], "]"}]}], ",", "list"}], "]"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.7037754450337963`*^9, 3.703775447293754*^9}, { 3.7037756097939043`*^9, 3.703775635600626*^9}, {3.70377568914073*^9, 3.7037757251702557`*^9}, {3.703775768934713*^9, 3.70377578278906*^9}, { 3.7037758989272957`*^9, 3.703775907641096*^9}, {3.7037759834229107`*^9, 3.703776147105545*^9}, 3.703776182411172*^9, {3.7037762731122017`*^9, 3.7037762827618103`*^9}, {3.7037763406950483`*^9, 3.703776351358513*^9}, { 3.703776901831971*^9, 3.7037769200222*^9}, {3.7037771119478903`*^9, 3.703777144438554*^9}, {3.7037773871572523`*^9, 3.703777397134688*^9}, { 3.703780430697502*^9, 3.703780575766739*^9}, {3.703780640924829*^9, 3.703780646324658*^9}, {3.703781697748426*^9, 3.7037817033865967`*^9}, { 3.703781742919738*^9, 3.7037817524896317`*^9}, {3.703781829921341*^9, 3.703781836847837*^9}, {3.703782047875573*^9, 3.7037820530262938`*^9}, { 3.705874447096843*^9, 3.705874470187566*^9}, {3.705874694574699*^9, 3.7058746984527187`*^9}, {3.705874735378922*^9, 3.705874781662664*^9}, { 3.705875942885007*^9, 3.705875947520502*^9}, {3.705876548133375*^9, 3.7058765612857647`*^9}, {3.709513498228613*^9, 3.709513509396941*^9}, { 3.757761531903893*^9, 3.757761555677915*^9}, 3.757761592435288*^9, { 3.757761662509425*^9, 3.757761662721651*^9}, {3.757761770744049*^9, 3.757761783728931*^9}, {3.757761832733927*^9, 3.757761838842019*^9}, 3.7577751466505938`*^9, {3.757781198507756*^9, 3.7577812048382883`*^9}, 3.7577816076183853`*^9, 3.757784042405158*^9, 3.7577840727807503`*^9, { 3.759330803290393*^9, 3.7593308237597513`*^9}, {3.759330867358815*^9, 3.759330875120263*^9}, {3.759331702676003*^9, 3.759331748570861*^9}, { 3.759331985970462*^9, 3.7593320319050093`*^9}, {3.760814472816585*^9, 3.760814541255671*^9}}, CellLabel->"In[2]:=", CellID->634137379], Cell[BoxData[ RowBox[{ RowBox[{"ShowProcessedMail", "[", RowBox[{"list_", ",", "extras_"}], "]"}], ":=", RowBox[{"TabView", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{ RowBox[{"Dataset", "[", RowBox[{"KeyDrop", "[", RowBox[{"#", ",", RowBox[{"Keys", "[", "extras", "]"}]}], "]"}], "]"}], "&"}], "/@", "#"}], "]"}], "&"}], "/@", RowBox[{"Partition", "[", RowBox[{"list", ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"300", ",", "Automatic"}], "}"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.7593321349008417`*^9, 3.759332145160643*^9}, { 3.759332599685685*^9, 3.7593326149899607`*^9}, {3.760720405340567*^9, 3.760720426409646*^9}, {3.760720483443447*^9, 3.76072049170592*^9}, { 3.7607206144614058`*^9, 3.760720616811947*^9}, {3.760721173876769*^9, 3.760721182127249*^9}}, CellLabel->"In[3]:=", CellID->53006640], Cell[BoxData[ RowBox[{ RowBox[{"SendMailList", "[", "list_List", "]"}], ":=", RowBox[{"Reap", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Which", "[", RowBox[{ RowBox[{"$VersionNumber", "\[GreaterEqual]", "12"}], ",", RowBox[{ RowBox[{"Head", "[", RowBox[{"Echo", "[", RowBox[{"SendMail", "[", "#", "]"}], "]"}], "]"}], "=!=", "Success"}], ",", RowBox[{"$VersionNumber", "<", "12"}], ",", RowBox[{ RowBox[{"Echo", "[", RowBox[{"SendMail", "[", "#", "]"}], "]"}], "===", "$Failed"}]}], "]"}], ",", RowBox[{ RowBox[{"Sow", "[", "#", "]"}], ";", "Nothing"}], ",", RowBox[{"#", "[", "\"\\"", "]"}]}], "]"}], "&"}], "/@", "list"}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.703781372850865*^9, 3.703781447843094*^9}, { 3.703781532827862*^9, 3.70378156895809*^9}, {3.703781968491871*^9, 3.703781992156818*^9}, {3.703782127370337*^9, 3.703782162099662*^9}, { 3.703782196753038*^9, 3.703782198775117*^9}, {3.703782428637484*^9, 3.70378243899026*^9}, {3.75763198628232*^9, 3.757631995290123*^9}, { 3.7593310725182*^9, 3.7593311042315483`*^9}, {3.759332217234559*^9, 3.759332270493284*^9}, 3.760890476456596*^9, {3.760890703427311*^9, 3.760890704372381*^9}, {3.760890787170362*^9, 3.7608907879932947`*^9}, 3.760894837690764*^9}, CellLabel->"In[4]:=", CellID->1979001593], Cell[BoxData[ RowBox[{ RowBox[{"SendMailFromNotebook", "[", RowBox[{"file_", ",", RowBox[{"extras", ":", "_Association", ":", RowBox[{"<|", "|>"}]}]}], "]"}], ":=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"list", "=", RowBox[{"ProcessMailFile", "[", RowBox[{"file", ",", "extras"}], "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"list", "=!=", RowBox[{"{", "}"}]}], "&&", RowBox[{ RowBox[{"ChoiceDialog", "[", RowBox[{ RowBox[{"ShowProcessedMail", "[", RowBox[{"list", ",", "extras"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "===", "\"\\""}]}], ",", RowBox[{"SendMailList", "[", "list", "]"}], ",", "$Canceled"}], "]"}]}], "]"}], ",", "$tag"}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.7607197986688957`*^9, 3.760719798670887*^9}, 3.76071987069576*^9, {3.7608143113751793`*^9, 3.760814331678303*^9}}, CellLabel->"In[5]:=", CellID->504716552], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SendMailFromNotebook", "[", "]"}], " ", ":=", " ", RowBox[{"SendMailFromNotebook", "[", RowBox[{"<|", "|>"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SendMailFromNotebook", "[", "extras_Association", "]"}], " ", ":=", "\n", " ", RowBox[{"CreateDocument", "[", "\n", " ", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Lookup", "[", RowBox[{"extras", ",", " ", "\"\\"", ",", " ", "$WolframID"}], "]"}], ",", " ", "\"\\""}], "]"}], ",", "\n", " ", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Lookup", "[", RowBox[{ "extras", ",", " ", "\"\\"", ",", " ", "\"\\""}], "]"}], ",", " ", "\"\\""}], "]"}], ",", "\n", " ", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Lookup", "[", RowBox[{ "extras", ",", " ", "\"\\"", ",", " ", "\"\\""}], "]"}], ",", " ", "\"\\""}], "]"}], ",", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"KeyExistsQ", "[", RowBox[{"extras", ",", " ", "\"\\""}], "]"}], ",", " ", "Nothing", ",", " ", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", " ", "\"\\""}], "]"}]}], "]"}]}], "\n", " ", "}"}], ",", "\n", " ", RowBox[{"DockedCells", " ", "->", " ", RowBox[{"{", "\n", " ", RowBox[{"Cell", "[", "\n", " ", RowBox[{ RowBox[{"BoxData", "[", "\n", " ", RowBox[{"ToBoxes", "[", "\n", " ", RowBox[{"Row", "[", "\n", " ", RowBox[{"{", "\n", " ", RowBox[{ "Button", "[", "\n", " ", RowBox[{ "\"\\"", ",", "\n", " ", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "PrintTemporary", "}"}], ",", " ", "\n", " ", RowBox[{ "Replace", "[", "\n", " ", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "]"}], ",", " ", "\n", " ", RowBox[{ RowBox[{"Except", "[", "_ResourceFunction", "]"}], " ", ":>", " ", "SendMailFromNotebook"}]}], "\n", " ", "]"}]}], "\n", " ", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", "\n", " ", "extras"}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"Method", " ", "->", " ", "\"\\""}]}], "\n", " ", "]"}], "\n", " ", "}"}], "\n", " ", "]"}], "\n", " ", "]"}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"TextAlignment", " ", "->", " ", "Right"}]}], "\n", " ", "]"}], "\n", " ", "}"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "False"}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.761069614726686*^9, 3.7610696876135545`*^9}, { 3.761070788693802*^9, 3.7610708142279825`*^9}, {3.7610708735040812`*^9, 3.761071014882541*^9}}, CellLabel->"In[6]:=", CellID->36830449] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", StyleBox["nb", "TI"], "]"}]], "UsageInputs", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[909617]}, CellChangeTimes->{{3.75933243792465*^9, 3.759332441449017*^9}, 3.761070220132966*^9}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "takes sections in ", Cell[BoxData[ StyleBox["nb", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to define mail messages, with the section title being the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " address, the subsection title being the mail Subject, and text cells being \ the mail Body." }], "UsageDescription", CellChangeTimes->{{3.759332460525249*^9, 3.759332510033018*^9}, 3.761070225930778*^9, {3.761322978324479*^9, 3.761323000198587*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", RowBox[{ StyleBox["nb", "TI"], ",", StyleBox["assoc", "TI"]}], "]"}]], "UsageInputs", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[909665]}, CellChangeTimes->{{3.75933243792465*^9, 3.759332452905012*^9}, 3.7610702224248905`*^9}, CellTags->"TabNext", CellID->43734762], Cell[TextData[{ "appends the elements in the association ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to the definition of each mail message." }], "UsageDescription", CellChangeTimes->{{3.759332529218877*^9, 3.759332547093099*^9}, 3.76107023179559*^9}, CellTags->"TabNext", CellID->610737660] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", "]"}]], "UsageInputs", CellChangeTimes->{{3.7610697866043787`*^9, 3.76106978675636*^9}}, CellID->350331120], Cell["opens a basic template notebook for sending mail.", "UsageDescription", CellChangeTimes->{{3.7610698104041033`*^9, 3.7610698421000876`*^9}, { 3.761070243107212*^9, 3.7610702495150075`*^9}}, CellID->466838071] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " creates a new notebook for composing an email with a send button." }], "Notes", CellChangeTimes->{{3.7610701777133293`*^9, 3.7610702144031496`*^9}}, CellID->94855542], Cell[TextData[{ Cell[BoxData["SendMailFromNotebook"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns an interface that previews mail messages, then gives a Send Now \ button." }], "Notes", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[149889]}, 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}, CellChangeTimes->{{3.759332828461685*^9, 3.759332854470272*^9}, 3.7610702710533314`*^9}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "Within the mail notebook, subject lines can be given as ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " cells." }], "Notes", CellChangeTimes->{{3.759332905491848*^9, 3.759332930842204*^9}, { 3.761322765968704*^9, 3.761322788623125*^9}}, CellID->1713083229], Cell[TextData[{ "The body of messages can consist of multiple ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " cells." }], "Notes", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[108433]}, CellChangeTimes->{{3.759332905491848*^9, 3.759332948282579*^9}, { 3.761322791889708*^9, 3.7613228018868093`*^9}}, CellID->2013112336], Cell[TextData[{ "Explicit ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " elements should be given in ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " if these are to be included in mail messages. Otherwise the default \ behavior of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SendMail", "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/SendMail"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the current account will be used." }], "Notes", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[138129]}, CellChangeTimes->{{3.759332905491848*^9, 3.75933301086639*^9}, 3.7610715409838657`*^9, {3.76132266574979*^9, 3.761322725317113*^9}}, CellID->1968696331] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ See existing documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->224042445], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[7]:=", CellID->462042388], Cell["Open a notebook for composing an email:", "Text", CellChangeTimes->{{3.761069869500208*^9, 3.7610698767319784`*^9}}, CellID->960280716], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", "]"}]], "Input", CellChangeTimes->{{3.761069878310909*^9, 3.761069881364811*^9}}, CellLabel->"In[1]:=", CellID->630402579], Cell[BoxData[ TemplateBox[{FrontEndObject[ LinkObject["uu6pz_shm", 3, 1]],106, "FrontEndObject[LinkObject[\"uu6pz_shm\", 3, 1]]","106","\"Untitled-23\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{3.761069913370798*^9, 3.7610705746725855`*^9}, CellLabel->"Out[1]=", CellID->549613833], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3WvQXPd9H3bIykz0JokrS1PnhRx3nMZW6+RFHLsmOvVMX3Cmpd+F6WTs STJMXD2yW9FwrNgxp45VT23ajmARlMW0Tq0xp7m0oWvZChWQqCM68AUEwxt4 BXF5ADx4CBIgiAsvAElQFPrfPc+ePfc9Z/fs5f88n8/8hsTunvs5u+f7/M/t P/sHe/7m2rfs2rXrsx8J//mbf/8f/7c//dN//67bvzW8+B9+8rM/8emf/NT/ +N//5D/61Kc/9dM/+A8+HN78ROj2h8I/Bv/+YOgbI+8P3bhx472hd4feGbo+ cm3kbQAAOkqjVBqukqyV5K4kg4UwlqSyNKR9MFLIbElsSzNbNq0lo3tr5E0A ADpKo1Q2yKURLs1vSSrL5rdybEub2rKZLU1ryejeGLkKAEBHaZTKBrkkwmXz W13jWza2ZZva0syWBrZkdFeGLgMA0M6lS5eyL5M0lQa5NMKl+a3Q+JaGt0Js S09pSzNb2ryWpLVLQ68PXQQAoKMkRyWZKklxaUNcmt+yJ79lw1shthWa2gqZ LU1rrw1dAACgoyRHpSmukN8qG9/S8FYX2yozW5LWzp8//+rQKwAAdJTkqBCo khRXmd/qwls2uWVb29LYlma2JLCF0Z07d+7loU0AACY5O5K8THJUCFRJigsR K81vaXjLtrxlk1u2wa0Q25KmtmxmS9JaGO/GxsaZodMAALSWJKgQpZIgF8JV Nr8ljW+F8JZtdsseJy3EtpD9Lly4kM1sSWALIz116tT6+vrJkydPAADQWohP IUSFKJWkuBCusvktRK8QwArhrXC1aTm2pU1tYSBJI1sYcpLWwhiPHz9+7Nix l1566SgAAJO8OJK8DCEqRKkQqEKsCuEqiXAhboX81hzessdJkytJk9a2ENtC j6H3MJAwtDSwhRGFkb7wwgvPDT377LPPAADQWohPSY4KgSrEqhCukoa4U6dO bWxsJI1v2fCWXG2aHjNNG9ySi0nT2La5uRkyWxhOCGwhHIaBP//882FcR44c efrpp58ceuKJJx4HAKC1EJ+SHBUCVYhVIVyFlBWyVkhc6+vrSXgLSSw55+3y 5cvppabpExayDW4h4CWxLQS/Y8eOhSgYMmEY7FNPPZXktMcee+zw4cOHDh36 0z/90z/5kz/5YwAAWgvxKYSoEKVCoAqxKoSrkOJC1nr++edD9ErC27lz586f P1/Z7Jae4RbeDLkuBLxXXnnlzJkzP/pjn1ZKKaWUUgurF1544fjx46dPn97c 3Cw0u6Vnu2WvTQi5LgS80PHJkydD74t67CoAwE4Xotczzzzz0ksvra+vnz17 9pVXXik0uyXJLXuoNOS6EPA2NjZC3pPcAIClOHr06LInYQlC9HrqqadefPHF kydPnjlzpny2W3LANE1uyaHSc+fOhY5D3pPcAICl2E7J7Q9HGv6dCNHriSee eO65544dO5YcME0vMs0mt/Sq0iS5hYB36tSpsMQkNwBgKXZscnv88cefffbZ l156KYSxs2fPlq9TeGsovR9IyHUh4K2vr7/44ouSGwCwFDs2uT322GPPPPNM mP3C7UHKyS25AW+a3F544QXJDQBYilFye+ru79/1/Xc/Vfr8d+7YNVLxceOn g0HuuuN3qvvobQamEqLX4cOHjxw5UneqW5Lcsk+8Si4sldwAgCVqTG7DmDXK XqUg1vzpqJPsQOvi4RxMbHN79NFHn3766RDDTpw4EZJbeqpb9iKFyuT2/PPP S24AwFI0JLdBMsu9leum+dPsQNI3B12Uwt2ctE9u6V3d2iS3kydPSm4AwLLU J7eKJJZ5q/nT6ncLLXBzNTG5HTp06KmnngoxLEluyV3dKpNbeCm5AQCroDa5 1Z6lNuyq+dO8dNCLbHNr1pDckstLr2pzAwBWzwKS23jgCzzPLWvGNjfnuQEA K2JuyW182emgs7S5rera0l1VepzHHs9zc20pALBE80luFSfENR8qnV9su9r3 taWSGwCwLPVXKFQd+xy/1/hpPqWNLkwYfNxwmtucYlslyQ0AiFFIbmnYKl9b WkhambcaP81fRDrOcROy29WF3aFXcgMAYhSSW91jEErhLPdG06elNrf01aTs tiCSGwAQo+HR0mHoqrgutPyUhGwnDZ8WznPLhrWVyG6SGwAQo/SJ8yFhVd2w YyvUNT2atPrT8bWlVafD3dHrTHQmuQEAMUqT244iuQEAMZLcJDcAIBaSm+QG AMRCcpPcAIBYSG6SGwAQC8lNcgMAYiG5SW4AQCwkt+mS200AAOpJbgAAsZDc AABiIbkBAMRCcgMAiIXkBgAQC8kNACAWkhsAQCwkNwCAWLSJZHfccYfkBgCw dG1iW0JyAwBYrpaxrU14k9wAAOaqfWybGN4kNwCAuWoT28ovJTcAgMVrE9sa 3pTcAAAWpjm5tXxfcgMAWICG5Nb1I8kNAGCu6uJZ5fvNn0puAABz1ZDQupLc AADmSnIDAIiF5AYAEAvJDQAgFpIbAEAsJDcAgFhIbgAAsZDcAABiIbkBAMRC cgMAiIXkBgAQC8kNACAWkhsAQCwkNwCAWEhuAACxkNwAAGIhuQEAxEJyAwCI heQGABALyQ0AIBaSGwBALCQ3AIBYSG4AALGQ3AAAYiG5AQDEQnIDAIiF5AYA EAvJDQAgFpIbAEAsJDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQC8kN ACAWkhsAQCwkNwCAWEhuAACxkNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaS GwBALCQ3AIBYSG4AALGQ3AAAYiG5AQDEQnIDAIiF5AYAEAvJDQAgFpIbAEAs JDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQC8kNACAWkhsAQCwkNwCA WEhuAACxkNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIB5O3To 0IMjDz/8cNc3U5JbrE7s271r167d+04sfUL2r+3ePZiWLbt3r+3bf6KvyVqZ 2QSAvoRINvWbklusViPS7F/bVWP32v4+RrAaswkAPZLcdqKViDRJcFvbl2ti O3Fi/3Daepm4lZhNAOiT5LYTrUakGUS3imk4sRXpZm92W43ZBIAeSW470apE mmQ6qg+YanMDgDLJbSdKIs3a/hP7962NstPu3eF1ucPx54NrB7aOcWbaw+rT 0eR+a850273V+czDbzmb1aMYDqw29dWfo9dLayEA1JDcdqLatq5cUqnqKrkS dHJya9VvcziaffjtZnOq5NbUXCi5ATA/kttONIod48at0YUBmdyx1VHaRDW4 g0c5m1THnnb9ltrgaid1uuG3ms0pk9vNcZNe4/QDQK8kt51oQhyq7+jEvuLV A02DmtTvqLP0jm4hYhWT0izDbzWb0ye3Ua893cMEAFqQ3HaixkOQ6dtpk9Wg zWr/ieHdO0rXfU44mtnY7/C90kHHfAezDL/dbM6S3EZ9uwoCgAWR3HaiutP+ K7JPOVm1Sket+k3HNz7muas4sFmG33I2Z0tuN9sd9QWAXkhuO1Hr5LbV+f59 +9ayj6lqldwm9lt1nlgpBM0w/IUlNw1vACyM5LYT1USaiiavolKeKZ011r7f DsltquG3nc3i5Q5N/daS3QBYCMltJ0pvaVFx1WU2fQyfB7+WPgJ+1E1Fshqe p5+LLS363bopWuFoadUtO6YbfsvZHN/gY/e4s9GktVyiNzs20gHAdCS3nah4 TedYTWya0ElIRmvFz1v02+YZCrMMv+VsbrX9rU26WGIS0Q2A+ZPcdqL00F72 6QKlVq2tbvOd7Ct0Mz5KmF4xkDmTrbnfUie1yW264beczfFR20GL3O66ztot VVcqADBXkhs73VSPNx1cGTHhPnEA0D/JjZ1umuS2dZVD5hS9fcUGQQCYA8mN nW6qNrf0IoaG8+wAoHeSGzvddMkt6XPSaXwA0C/JjZ1u+uQGAIsmuQEAxEJy AwCIheQGABALyQ0AIBaSGwDAijt06NCDI+VPJTcAgBUkuQEArLJsg9vBgwfL HUhuAACxkNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIBYSG4A ALGQ3AAAYiG5AQDEQnIDAIjFQw891OZNyQ0AYOm0uQEAxEJyAwCIheQGABAL yQ0AIBaSGwBALCQ3AIBYSG4AALGQ3AAAYiG5AQDEQnIDAIiF5AYAsCIOHTr0 4MjDDz9c7kBy2+ZO7Nu9a9eu3ftOLH1C9q/t3j2Yli27d6/t23+ir8lamdkE gL60DGmVb0pusVqNSLN/bVeN3Wv7+xjBaswmAPRIctuJViLSJMFtbV+uie3E if3Daetl4lZiNgGgT5LbTrQakWYQ3Sqm4cRWpJu92W01ZhMAeiS57USrEmmS 6ag+YKrNDQDKJLedKIk0a/tP7N+3NspOu3eH1+UOx58Prh3YOsaZaQ+rT0eT +6050233VuczD7/lbFaPYjiwhtRXmzolRQDmSHLbidqljqqukitBJye3Vv1O CkezDr9luJLcAIiH5LYTjVLHuHFrdGFAJvlsdZQ2UQ3u4LGr0E1d7GnXb6kN rnZSpxt+q9mcNrkVJ6afy2EBoJnkthNNiEP1HZ3YV7x6oGlQk/oddZbe0S1E rGJSmmX4rWZTcgMgJpLbTtR4CDJ9O22yGrRZ7T8xvHtH6brPCUczG/sdvlc6 5pjvYJbht5tNyQ2AiEhuO1Hdaf8V2aecrFqlo1b9puMbH/PcVRzYLMNvOZuS GwDxkNx2otbJbavz/fv2rWUfU9UquU3styrxlE59m2H4khsA24/kthPVRJqK Jq+iUp4pnTXWvt8OyW2q4bedzeLlDk39VpHcAFgcyW0nSu9oUXHVZTasDJ8H v5Y+An7UTUWyGj5rNJdyWvS7dTu3wtHSqlt2TDf8lrM5vr/H7nFno0lrvTQl NwAWQXLbiYrXdI7VxKYJnYRktFb8vEW/bZ6hMMvwW87mVvJam3SxRPPSlNwA WATJbSdK4lBIL9mnC5Ratba6zXeyr9BNOqjxFQOZM9ma+y11Upvcpht+y9kc J69Bi9zuus6al6bkBsBCSG7sdNM+3jTf6ie5AbAIkhs7neQGQDwkN3a6aZPb zbqnbgHA3MyS3J7sieTGMs2Q3DL9S24ALILkxk43a3IDgMWR3AAAYiG5AQDE QnIDAIiF5AYAEAvJDQBgxR06dOjBkfKnkhsAwAqS3AAAVlm2we3gwYPlDiQ3 AIBYSG4AALGQ3AAAYiG5AQDEQnIDAIiF5AYAEAvJDQAgFpIbAEAsJDcAgFhI bgAAsZDcAABiIbkBAMTioYceavOm5AYAsHTa3AAAYiG5AQDEQnIDAIiF5AYA EAvJDQAgFpIbAEAsJDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgCwIg4d OvTgyMMPP1zuQHIDAFhBLUNa5ZuSW8xOb979PY9+5pOhjtz/5Uvnlz05XZ1/ 5Pho+h+9+67N6KYfAKYiue1Yl+4fJZ9B3R5b+BknzzinHwCmIbntdOcfGUWg uy4te1qmcf6R458ZTv/9jyx7UgBg7iQ30varIwdOL3tKprHVeHj3l68ve0oA YN4kNwaO3BVvs9v1A7fHO/EA0InkxtDWMcfjR5Y9Id1JbgDsHJJbdBqCSv1x w9H5/LUng03soKKXSwfuOpK5TODI3XfVXKN6+tL9tx/5zPcUOzv/5cGb+alN 5i45bnv9yJczF5DefvzI6cqhNya309ePhIm8PTuRmzXDKc3R7XVX3RYn7EDT QgvznnSZnf7KaW6aka1G0coLMTrNIwBxk9yiM5fkthUM2rZcDaLCZ7KXdo6r fLJc/iLWrVA0iDHJSKuS26P3fzl/6eioqk5mq10g2TuHFIdT7vjL9XP0SG6k 42VVO8uVHWfbM3tLbp3mEYD4SW7RmUdyy4arFgdMR0MbtJ6dTt8cNS7l00Ua Xe4etV+dP7057PJ40n1lctu60dwj188XBl4xCzULZHTN6TAlpqO4Pog6txcH Mo5t2Y6HTXCf+Z58MEvvRpLeRO709fobktStrJ6SW5d5BGBbkNyiM4fklgSA uy4l8aDNHv/8l6uOx1Vcozqa2mJj0TihVSe328sBMu2l8FHlAhll0Vb3eWvq +Pzp/MLcCkstr8Oda3LrNI8AbA+SW3R6T26jA5SPjCPclJNWMZaGW3ZUftR4 0lr1rdsqehm1obXKV1N13PJSjjkmt06TDcB2IblFp+/ktvXRMIpk/919wkYH RrNZYmuSqhJj9+SWtjJNCDydrjataxWstjLJzRW1ADuT5BadnpNb/k5umfa3 9k7nr7XMjr2prW+K5FZ50LA2ubW7N2+3CLRqyc39hwF2GMktOv0mt2Kb2FYy aRljHtlMLxxIryloN966qe0luVVdzVqq0SRVtuPVz/KqJLdO8wjAtiG5RafX 5Fa+AW/rA6bZG4MM72lW1fiz1Da3dqkm7jY3yQ1gh5HcotNjcqs84tbqMFx6 G43au+82jbdhaptzVNvAU3WnuGL36SQ13eS2ZGWSW7d5BGC7kNyiU79/T2+z Vt6bV97LouZB81vhpDHJtH3Oac/JrW0vjbOQDGQ812kKbXc7lKUkt1nnEYDt QnKLTnqYrLRfTu/LWgohlXmjtq2pJtFlzT25VY295j4YTfdzqw2x1TdGm5zH FpHcyqcLVp+M12keAdgeJLfo5E5wGh+sTO/t/8mtR1iOn1mQPiCp5X6/xQHT TDtV+sSB5JFY1U8c6J7cCodiM8/bapWCxjk2ezw3XRQ15/sNwtv4hL3kwQ35 wS4kuZXnvea8tU7zCMB2ILlFJz2F6fqBqoeHDoNQ5enr+UzV+CyAFgdMa8+Q 7+WuICF2Vg+/4dkKrZ9bWvlAz9oHgI6edF96XGlaDSlumuQW1mz1Y2ErH/HQ ZR4BiJ/kFp1k/76VuHL35bg9d5QteXhlIX7kB1KfzVocMC2O4pNH7r6r9Eis 6ZPb9eLcffLI/V+uvBqi8dS44bNHx/eaq7sGdjSowY3pasZYnab6T27ZNZuO 8UjTlSDd5hGAqElurJSVfzRA+T4qTVZ+dgCIjOTGSln5qNPtAWErPzsAREZy Y6WsfNSR3ABYJsmNlTJF1BmdGregdJScntfPtaWuIwCgI8mNldI9uY3vYreC N56dcMeSlZxmAFaZ5MZKmaLNLb2P7greeLZudlZ5mgFYZZIb28H508uegu5i nGYAlk1yAwCIheQGABALyQ0AIBaSGwBALCQ3AIBYSG4AACvu0KFDD46UP5Xc AABWkOQGALDKsg1uBw8ebHgzS3IDAIiF5AYAEAvJDQAgFpIbAEAsJDcAgFhI bgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQC8kNACAWkhsAQCwkNwCAWEhuAACx kNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIBYSG4AALGQ3AAA YiG5AQDEQnIDAIiF5AYAEAvJDQAgFpIbAEAsJDcAgFhIbgAAsXjooYcK70hu AACrSZsbAEAsJDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQC8kNACAW khsAQCwkNwCAWEhuAACxkNwAAFbEoUOHHhx5+OGHyx1IbgAAK6gc0irflNwA AJZOcgMAiIXkBhnrFx+47+jeW5+88+N/9MNphZd7jj5w4NrmsqcOgB1PcoPg 2uH7jubSWnWFCHdRfgNgeSQ3drrNAxt7b52Y2XL57YH1ZU80ADuU5MaOtnnf k6VWtY3DB65t5rJZeDk4ipo2yu09sKzpBWCHk9zYufKx7cm9B65N7mX94t49 Gw6YArAkkhs71YGjmWsQhDEAoiC5sTNd3JvGtj0Xlz0xANCS5Dadaw+Mzmm/ 876Jh9g6dDw8Wz57S4on77x1cD+KGQY7jii1na1ffGBPZqS3Prn3voubrU7C 77QcxjYLY0zOLutzjBPmenycdHGtbeMpb5z4TKTsslQHW86elltOud/MdbXl HDtunKy7NKP7ZjDnTS5zHPzo4dpp2Gg+cfHwnie3DqP3+bUt9TjNWlvcQgBW j+Q2nf6TW27vWa6K3/O+M0yptu6Akf62V4ScKZJbLsBUj3EUFaqG2ctcp59O dZXo+rXDBy4eXu+QVId9beTvEVeTGLPHcFsGy/Xma2Mnnb+XH2PF4uo7uS1g k5s9tBTOgazbTrp/bcdjn2GtSW6wk0lu0+k5uTXsy+r3qn1kmEJOqNqDPHDf qJsekluuQaluZ7d3q61jbsmtKRkOmoP23pq2yOV3oIX0NUgaLZsKy4u6emda 2hLq97nV3bfZcnIO78l1WbH77je5LWSTmz20TF4sMyz8mdea5AY7meQ2nT6T W+Fn/M5bj2bbc7J3G8v/tM6eYbLNX8PDVelIhwezSplqxuRWaG0bhKLxAKvG OKfkNtopV+WQylyRzHgptmVmZNKsZ5LA3vu2hlPVVzp3Rx8YbRVNAy80l+3J HHBcL95buGZxZVZK3TWzfSa3BW1yPYSW3LKtmPFpv7Y9rzXJDXYeyW06PSa3 XDNU3SGSzfB7XjwBafYMM+kUuMkH+KZubKlpcTqwMWm31V9eLc9ObTYbHvbK 5Io794wbBtvt9bLHZ7f+3bQxhHXd3DCYn8faTJWbo8puWizPPpPbgja5+Z/n NvXXdlFrTXKDbUtym05vyS37l3unk/x7yDDjH+2G070yjSSzJbfM4afGs8sy u5L5JLfa4JRZF0+OTk+6drjQEHRrdid47XCbnePNwolb9dExm9aazvUqTG3r drmKq2gXm9wWtcnNO7RM/bVd3FqT3GDbktym01dyy/wB3vkixx6TW9OP9jhx zZTc2s9pc7NMb3PdcOy4sDSad9PjT+vvLlLoZvSymF7yh3HT6ZnQ6jJxy8lk 5vIefFnJbb6b3JxDy9Rf2wWuNckNti3JbTo9JbcJ7Uu9TEPL89xqf9v7SW4d 5nRBya20nxqfY1ZeFOlCqBxp04lzldM8ykI1Jy5uTcD41LjyLrXTlpNpwKmf 68UcLV3QJjff0DL113aRa01yg21LcptOT8mt6ce5r2lof21p/pKBkX6SW4c5 XXZyq2wMqW2pa/FpxU1IMuezlQaSvtnUmtdpy2naOy84uS1ok5tvaJn6a7vI tSa5wbYluU2n9+Q2xY3F+rmfW/E8ro8Pb4UxeOr6xc31wV617+Q2cU6Xndyq d3OjAVYf5GpMfeN5Hw95a6lmut8sX0w63quWJqnbltOq3XVByW0hm9yiklvH r+0i15rkBtuW5Dad7ZPcbk68m+h497qtklu3u4WMP22+D1vTkdZs01n5VLeq sdef6hZzcrs5/01OcrspucG2JblNZ7scLc1InuAz/+S27KOl9deWNt+Io+6y gny/rU8mLwbI6ja92vPr4j1amjG/Tc7R0puSG2xbktt0tscVCtU2B0932ti7 5+iduUcxbpcrFJqObDY+Fav2MOvQ1k651GPtfTBGk5E0xNW1BKb7+sLUTnmu e3m+lpncUr1vctvrCoWp1prkBtuW5Dad7J3na+8FUe54uqs7uw82Y+Zf5pYn HU1aDu3ntI/k1uqRlBWT0fQk+uZb49Ykt4YBZg+/VpzkVpyRwtSu6F1BWnwd Jlv189ym/9q6KwgwO8ltOp1+uud+J96mBzDNdED25qSdcofl0HpO2ya36ee6 3RPts48Lz52XVbXPrUmDjUsvE/bqT6JrdZe51bkTb/c/QBqH1rzJ1Yef7FNH Z5ivWqtzJ94lLgRgSSS36WR3VR2am6p+P3OP0an5gb12+L7G9q6tHUHDrcbq f5nDT3cmolR82jZHTVwObR4YlBvg5DFOOdeNF4o2PAOrPpzUJLfxLFftptMz 7pqmp/5Wcqv49KsWm8ECNrnyRlLRUe6RGZ1Dy9Rf257X2lIXArAUktt0Mvu7 4SnWjX93T9o55q+zKz26+uidt1b+Phd/mQf97tk4nHl6de4R3s23s/j48M4M B65tZi5szD/8urItpdNyKD9rOze1hWdtt0xuU811/dHJrYFc3Fsay/CRWMku tf68o8LoJmSetK8nmzeP2nnp8uzymhaevs9z6/J1mHGTS+e6foIb8s8sjy/Z GstUX9ue19qSFwKwBJLbdLK3axi1nGTyw+b6taqOm3aOLW6SUHOK+7DRpuIe Wfmq3QVM6rFxyjsth+E797UaXZvkNsNc38zss+qO7l0b73w/PjxymjyRavCs +aN1lyEUJrjxfK3y0pjYAlPRQcvlWR+lGjbOXLNS4zA7fh162uT23pdm2qPj cR3IZ79xCA/dX9xaC/lkPt1VFQPTfG2HE9nbWluBhQAsmuQ2nfyNtsp/3ub2 1C1Pqq9s5ykkh8pp2Bpswz2yJtwPpHnUlX/RT7McRqNr2N8NDqJdbFxc/c11 i+eNtlRzw5AW5+3nllhthqw71W3L+kbj6nuy5sB0ceA9JbdWm0Ffm9xmRctS eQqbxzXbUcLOX9u0x17W2mosBGChJLfpFO+3X8oPlfdTnfyHbdijPbDnyTuz fwsPzwhqPtCZ3YcOjrbkez9caviqFkY96DfXCpQ7EDnrcsj1WLiX1523pg9C al5cPc51T1dEpm1i9TfuaNH01zQNlffyLRgszz3ZW2o8eWfDuWRjjcmtcI+O ycmt42bQxyZXe15izV9PpYA0aQm10OVrm+9x1rW2QgsBWBTJrT+Dv74zp/vO /cdw1ptozcusy2GK5Db1pGbur7Xn4lTn+TRfg7D6ejnPrcpCvw7XDmfzz63V j0PNHf6eHBGjYyHADiG5xWtVk9userkTb2vZI02ZM4VayR4p6+M+Zsswt+QG wFxIbvGS3Hqa68JFgtlr/Wq1uQoyCpIbQFwkt3hJbv3Ndfl08VuPPnDfxeK1 seuD0/OKl0beGm9suym5AcRGcluE0c0rntzbZ8SS3Pqd62sT7zFSrjv3xH4X rBbLs/G2JAAsluQ2f7lr9nvc90luc5jr4UWCrWJbq2sAV1+b5dm8RgBYJMlt 7gp33ezvCkTJbY5zvXkgRLjBDSsKd7e489ajg3uZbp+mpzbLs/Cs2FFn69tp OQDEQnKbv+ytlvp8xIzktp3melnaLc+ae71aBQALJ7ktxrXDBy4ebnFnzk7D 3KYZRnJbpLbLs/qBTR52CbBoklu8tmuGkdwWqcsDPvKPvRjc6/W+6W5fDMDU JDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQC8kNACAWkhsAQCwkNwCA WEhuAACxkNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIAVd+jQ oQdHyp9KbnUeBACYmzZRpM2bklti2esTANjOKuNHtsHt4MGDDW+mJDcAgFhI bgAAsbjaH8kNAGCuJDcAgFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQi8oM dscddzQktLpPJTcAgLmqy2Z18azhI8kNAGCuGuJZOaHVvS+5AQAsQHNyy4a0 yjclNwCAhanMYOWcNjG2SW4AAPNWF8MKaW1ibJPcAADmrSGJlcNbc8eSGwDA XDWHsauTrkqQ3AAAFmZiHrs66fZukhsAwGK0iWQtSW4AAHMluQEAxEJyAwCI heQGABALyQ0AIBaSGwBALCQ3AIBYSG4AALGQ3AAAYrFSye0JAAAWQnIDAIiF 5AYAEIvZk1uPh24BAGgguQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIBY SG4AALGQ3AAAYiG5AQDEQnIDAHaU311JLSdecgMAdpQQkzZWjOQGAFBJcgMA iIXkBgAQC8kNACAWkhsAQCwkNwCAWEhuAACxkNwAAGIhuQEAxKKU3O7/0V0F 3/e5g02d/Oj9mbfz3RbfOfi578sNtdyH5AYAUKsquaVZbJzTxvlq+DLTxf0/ OvpsQnJL8l7a5yjFSW4AAC21OVqaCWvDvJVPdtU5rfjOsMdCSitkQskNAKBR m+Q2jmtNwa05uVUeGHW0FACggxbJLdM0lj1RrXSqm+QGADBXzcmteDJauc0t 847kBgAwV3XJbdy6lotWpehWCGflS0lHHVektKpz3yQ3AIA6VcltdNePcqgq xq1SNttVvJh0nPKSLDh+XexccgMAaFZObjVXfBbDW7lFbqtVLfNpaSiFPh0t BQDooPpOvHWXj/ZMcgMA6KCU3Bpv/CG5AQAsT8V5buXDpePnJEhuAABLU3Nt afHGbZIbAMDStXmGwtxIbgAAHSw1uVWT3AAAKkluAACxkNwAAGIhuQEAxEJy AwCIheQGABALyQ0AIBaSGwBALCQ3AIBYSG4AALH43ZXUcuIlNwCAWEhuAACx kNwAAGIhuQEAxEJyAwCIheQGABALyQ0AIBaSGwBALCQ3AIBYSG4AALGQ3AAA YjF7cnsTAICFmD253QQAYCEkNwCAWEhusPpO3HPLrl1r+5c9GUDvfLvpSnKD 1ee3HbYr3266ktxg9flth+3Kt5uuJDdYfX7bYbvy7aarOSa3/Wu7dt1yz4kJ nxS7Grwem2Zrzg+hOJzhl2TLYLy58ddOTNfpyH8Vy0si805+cgsLrGZpVC/a qae2fk2NZ6ZmCsu9ln+FJryTGXwYUm+roHLiCwNqsXgnLJvOYx8Pq2LI9Yti a4nlhpdbIo3bWPnT3JwPB9S4HbbU/NUbzV9xTdbPdWGys3O/tSzSYXXZikpL o9sWPuUm0dBb6yXQ9PNY/qY0vJN7u49Vn52R0hCSERTWe/O3rPhO4+92qYuq uRh+Xh7klL8rdWuz/GPX4kdm4rcbClYruQ038tyetd9fyMIvyOibUpPcZthp d0puhSjRYmlUTdkMUztxn5L5sDBRMye33PC2fuR6WQXp4IpLPrsQJy/e6aeg YneV23lUp6maRTHaVPNLvnFFNH/Lcr0O/l2/HXab5Ql/Atxyyy3t57r+61BY Ht22otzr7lt43wtnuiVwM//z2GIya3vvY9UPlX5Qc/NUCCMdktuk3+2JK/Fm uvEV++n7N7PwY9fuR2bitxsKVim59dRmXDve0h9dWx3XJLdZJqdDcqub+KbR 1zXX9Pz3Y/UnuTHNmtyKn+XX0cyroP5nue3inXJHVjP2piE3Loqq4U1YETN9 y6ab7ea+kk/335OLbo1zPbnZMOmz41Y0af12WLAdtG2lqVsCjStu8reu9Xdp xj8B19bWqjLT2tot7bbP8qcdf7czYy0ca7nlnnvWct+o3BvdZ3Xi2mz7IzPx 2w0FK5Tc+tpUW6SiujeXnNyyfzk2jn1Rya1hMjONHX0mt95WQYvmn1aLt98I 0yW5lX/bKw8z1q6I6b9lNce8JmtcWOmH+7O79raxqnGz6rgV5Vq8u2/hc05u U624id+6ll+lqVd9ZmJz6zcdc2XybpXcJv5uT16J6Yv9a5mhhn+duKcYKLvN a+n97Fhb/8hM/HZDwaolt7LO226EyW10OKH6vJ3y0lhucsvuemdNbqN573sV TNq7tl68U+2mWy3Q6q2iZlEsJrlVbIedNCys4rQWDgxVz3Xb5NZxK5qY3Jq3 8J6TW8sl0Pzz2C65Nfy6zrrqM9OaH3P6qjj/805uuc0s/fcouo3+P210a53c 2vzISG50tWrJbcIuv43IklvNX7kTTw7bHm1u2TdSs6+CiT22XrzT7Kbrx95i yNWLorfkVohNxfFO2dpSMcr6Sa3dakpz3T65NQxkldrcdlVNX7sl0LwApmhz KzR8z7jqt+YvHV7uN7WyeX2RbW75JJ5rF5wyuk3X5lbzIyO50dWck1v1b1Xb P6un+4ksj7f+lJXCGQZzTG65Edc3QNQN4mbpt6zQ06zJbfKaqhxTeUrK52yU Zr9pxfazCib32HZ33k9yyy7h7JAbp7H0217sujidtdtY1xaKadV+9YpLpGF3 OV2bW8NAWh+QrR5y84LtoDCm+tU/zc/j5MXT0Hsfq74UWcrfpcIUTLf1Zj+v /t2uGELxz/O1e8KHpea4TsqbesUOp+2PzMRvNxSsUJvbzcL3sadfyKziN2Tr 67eQ5FYYTf7bPZ7ezHVe9Utja4ClVqu+29xuln9TC6/LUzJqO8jP3y3Fc06y gygMfvxytuQ24WevefHOp80tq2Il1i+K0VItLJsJ21jDhp37Fgz+Xb8dtle3 sGryfbpfrZvrDsmty1aU/7jdFl795e2itHDG09VqCTT+PLZukqzqvY9VX9Oo 2vCLWkpu9Qt50u/2hJVYsTkU13BvR3aqmjon/shM/HZDwWolt5v5gwbT/cUx YV9bGEH172TxL6quX6HK36jMmAvTlxtd3VHE8o970tvwAqmZpnZSOskvjVJj UmZKToxnPdPT+LBE5TDyx4kK6XTKmWoXnpoXb6tlU6nV3r286OoWRWZ+ch1U pJGahVydGpqXeX/JrbZJZNJcd2lz67AVladn8hZe/+WdfuGMN5M2S6A0l4XY k+m99rtT/+s646ov/qm0lYYamtmqvmVNC7npd7tiFurGWjGtU/192DK5lSe8 agATv91QsJTk1r2rLroNsb7r/trcFmFebW5LNcNM9bU8pls2i1//K7EO+56I foa3IicMlWemxYS1XQLdDib3rzSdw+h2Tz/nv7Qa4YK1T24dBwBtSG6S2+r+ iMy0GKc+rNVDcptl7NNZiXUouTWobvecMHuRJLfqFrDcORLjieplC1n29i65 sVTLSG65r+8qJbfS+R4RJbdZpnZ1f0RmmKlR76WDX93+mphh2VSMffDefDaL xunsb4c5w0Qsb3iFrWhRS6NiKorH6NoeUm839NKmtqifoKo/U0qnk43fHR8g nn4tLPs3S3JjqRZ6bWnVd3Y+ya1qtPVd1yS3GazIn/kt1a6p7SB/ClHVGTQl PSW3yrHPa8GuTHLrc3bns3dbYnLruCFGsn+vbl+uXsxpt5JbBGuWlTXH5NbO sjfgZY+f1dNjcluYWKazk205U51YAjWiXzDRzwBLtfTkBgBAS5IbAEAsJDcA gFhIbgAAsZDcAABiIbkBAMRCcgMAiIXkBgAQi9mT221/60eUUkoppdQCSnJT SimllIqlJDellFJKqVhKclNKKaWUiqUkN6WUUkqpWEpyU0oppZSKpSQ3pZRS SqlYSnJTSimllIqlJDellFJKqVhKclNKKaWUiqUkN6WUUkqpWGoByW39P9nV Sy19WSmllFJKLbeWntxOf+e3bvy17wwV/iG5KaWUUko11BKS28c+fPoTf+7U X/zI+kc/FGpz9/ee/7G/HSr8Y/DpRz906ts/EjoInUluSimllFLZWnRy+7Zv Of2X/sK5H/6hsz/w3ac+/mdCPLvw43/3+tcfDnXhJ/5eeHnqYx8++/1/JXQQ OgsdS25KKaWUUmktOrl99EMb3/uJq1/8/NX7fv31u37qwqf/zpv/1//5/tkz 729uvPkvfiu8fP2uPeGjq7/x+Y2/+h2DRrk2ye3ex29mPHpv7tO9j928ee6r n2l4J+39sS9N/2l51J/96mb6waCXLz168+bmV36ufkENOqjy+N50sjMaB9Wl kunML6J0dIWFedvf+rkHzmUmomnBDrrMTmR5RWQXUegy28FnvnIunfHbWr+T 3yTOPfDZfMfDNZhd2uO5q5+SydtA662i80zNNFW5zWlrGpoHWF3F9ThpQx1u IXVTMnl0SqntVtU/GDWWPrUt69ix43vv/dLEzkI3ly9d7n3siz9aeva/+p53 H3/0G5def3/zzDuHDr771H+8sX78xqmT4R/hZXjzg8uvhw5CZ22Olg4DRmYf neybMvvoSfvZYqDq8Olw15nJNl96NP/ReDJGe8yJya2+g8zARx33sh8cRoWb hZwz3ttm004p4w0X/jh4dExuw1GMhr+VS+eV3JLZyXacTW5NUzJpC+mwVXSc qRmmqrD5hY4H/24eYF1VJ7f6DbWQ3HIjbVplSqltWu3zWETJLUSyG+++0xze 2nQzXS0huf2N//z61x8Oye2b7733wVtvXv8P//7KF37lyr2/dv3g18PLwZuX Xw8dhM4mJ7dhlii2C+X32hP2s6UhtP50uId6rHKNlJsdtnamzQ1lhSA0oSrn fYrNL4z0sccfrWgwPPfoY+eKOa24o88thG7JrTj9uYXWc3IbvtzMTU8muTVO yYQtpMNW0XGmpp+qmmloHmBtlZNbhw21tKwqhqaU2t61LZPbbZOC2fxi222L Sm6n/tM/e+a7vm3zBz957rb/5rU9n3r36ccHIe3dd2+cPP7W7z1w+Z/+Yqi3 v/r/3ji9Ht4MH4UOQmeh480f/C/OfNfHQu+Vya1m351rE5hXcmsKTpWNEhOP lv5Ix5a0NgNsO5BhfhtvYFsLNpd/qkeXXQWzJbdcB70mt60kM+g+3xZUk9y6 bCEdtooZk9vMW2aLGamqyqzVckOt6De/FpRS27+2a3K7rT6ezTW23bao5Hb6 O/58yGAXf2rt6n1fePvf/f57Lzz3/ubGjfUTb3/t99747f/jypf2XvniP33j /n9+7cDXbpw6GT5678XnQmeh49DL5i3/Zei9S3JraAgqvTPb/rFs2PHUye1H Rsf1Cscuq2o4AbMmt1HCyS/JdAFmp7lm+gdDmCq5jQ7YVWbsPpPbsP1w8O/c 2syd59YwJVMkt5qtovNMTTlV9emxaYC1VddK1mJDbdEkrpTa9rWNk9ttVSFt 3rHttoUlt7/0F879d//1tf2/H4LZjRPHBmntC3dfvffX3gz/uPfXLv2v//jS L/7clX2/+sZv3Xf1nl8JH73x278ZOgsdh15Cj4PrTOuSW8WuZ3HJrXxJQrvk lj/PvxQ/CnvYiqq5rCC3BOqHnx9R2sKTa14bzkh2Sfbd5lY5qXNIbtnxZpoW v1Q8QFx38cWMbW6Zd6aaqSmmqjxrLWaztpqOb07YUCU3pdR2T2635aPaAmLb bQs7Wvrtf/bs9/3lS5/72et/8h/ef/nsG7/1pRDPrtz7q5d/6eev/vMvvv3g 77794Feu/uYXL/3iXYP3Q3L78j8LnYWOL/3Cz5z9698Vep8pueX2FPmzgHo8 z60mLWRH1KGJrOq8uPHlpf0cb8rOQmYHnZmR+mBWs6ibk1vjyVGlNrfc/r20 HhubjNJZKKzBcUBtijeTt4HaLappq5hxptr/xdGuMW3GNremDTWztCU3pXZ6 bfvkdtsosD38B3+wgNh22wKvUDj17R85+wPfffV/3/f+Ky+/vf/33/y/7w9R 7eJP//hbv/OvvnHp9VDhHxc/+z+98Zv3vvWv77/20L8NnYWOB7d9+/aP1F2h 0Dq51V/6N8s5TrkwVhEIcxf33ZzUjFY5d63vejFN5ecunbX6JVA8u6kQPFok t2KqKVwykL4cXfGauz/G5rniHTNql2f1UeAfKRwIHq/Z+impSW7FLarQfeVW 0Xmmuk5Vfq2Vri1tHGBtTb6moHZDldyUmqoqTrmot/SpbTM7vXe5gpXEtvDf BYxr8cntgzeufnD50ltf+X8u/sO113/hZ64/8v998/33v3njxvU/+vqlX/4n F//R//z27/2bD65cCp31ltxCN/k7WY0/ysrfF6v5061xFW/aVpqM0WcPfLb7 BQUTT3efreWt2AS0dcZaodWo6u4TY7n99Xjh5G9ollt0yUfZdst8Z5lpCwPP 3Aos+TS7wGsu4RzNS80y35rNQptb9ZQ0bQMNU1KzVXSfqe5TNaHf2gVeXy2u Bq3dUOuWv+Sm1A6qmzsguW3LNrfB0dK//l2XfuFn3vnTg9+88d7Nb37z2oGv vX7Xnsuf/9/eeuBfhTff+eM/DFnuym98/vWf/+y1P9gfOgidhfcvfe5nz37f X57laOmEar63xpSX41XWFJeCNvYy8x6w8gZrj35l+llubnNbaCUL5yuViyhZ ql9tPBksU31uA/1VT/eEqa909bVZj3UbasU30S3dlNppte2T23Y9zy29QuH9 M6c+eONq0sJ2+dd+8cpv7L38hbsv/fI/ufxLP39l369e/c0vXt77S9f/+A9D B6Gz0PHsVyhMqFVKbp+590vlU+Pa32Ji9ukJc5c7eDceUauIuGrJbbNmMxhu NufaJp8dmtxyLXvFO3u03lDrj1YvdekppRZY2zu5bedrS9O7gvyzL1w78LVv nH/12h/sv/RL/0vIaa9/7mfD+6/t+VT4x+Vf/+XLv/K5wX16QwcHvhY6nnxX kBmTW+VRs8q7fiVrZK7JrXxrjvyxtuLTmmbZAxZv9Z9OQPW1FW1CQjm5LW0f PTpcWz3Zo6OT7ZJPj9tAj9W83fZVW0dXK+7JVr+hlqczf6afQ6VK7azaxslt e9/PrXwn3ncO/dGb/+ZfvP3Qv7328INv/7vfG9RDX722/6tvPfAv33n0jzN3 4v1k6LHpTryzJreqfuv3gPM+Wjo6ib14ilQ6hI4nKdVvb5VXelaf9p/b+U4Y ZsVpXdNP5PSVO5uubvanbLNajeRWqDklt0GF9VhzN5i6DbVq2kadim1K7bTa rslt2z9Dofz0q/eOPv/us0/dWD/xwdXLyW/6B1cu3Tjx0rvPPBU+avv0q8Wv qYWe5xZZ1d1rd5ud17SSyU0ppVa0tmVy23HPLU2eOH/h1fdOvHT94L+/sX48 2buHf4SX4c3wUfsnziullFJqZetmF0uf2pZ17NjxNpEsdHP50uXex77o5PbR D2381e+4+hufv3rfr79+154Ln/47b/7r3/7GhfOhwj/Cy9fv+qnw0dUvfn7j ez8ROpbclFJKKaXSWnRy+7ZvGVxn+sM/dPb7/8qpj314/WMfvvATf+/61x8O deHH/254eerjf+bsD3x36GBwPem3fYvkppRSSimVVsvk9tZbb73xxhshuV26 dCl8NMvR0hDPTn/izw3urztsUtvc/b3nf+xvhwr/GLzz0Q+d+osfCR2Ezhwt VUoppZTKVohehw8fPnLkyIsvvnjy5MmQ3F5++eVXX331tddeS5JbCGxvDYV/ hBSXTW6hl2mSW75Of+e3bvy17wwV/tHc5dKXlVJKKaXUcitEr8cee+yZZ545 evRoCGMbGxtpcgsh7cqVK4XkFrJc+Ch0c+rUqdDL7MmtfS19WSmllFJKLbdC 9Hr88cefffbZl156KYSxs2fPnjt37vz58xcvXswmt7fffvvNN98M/06SW+jm 9OnToZc2yU0ppZRSSvVSIXo98cQTzz333LFjx0IYS09yC8ktPcnt7aEkuYUs Fz4K3Zw5cyb0IrkppZRSSi2sQvR68skn08sTCie5pcnt2rVrb731VnKFafgo dLOxsXH8+HHJTSmllFJqYRWi19NPP51cnnD27NlXXnmlfKj02lCS3MI74aPk xiChF8lNKaWUUmphFaLXkSNHkpPcQhgrN7glye369etvv/12cp1C+OjChQsv v/zy+vq65KaUUkoptbAK0evZZ589fvx4cqi00OCWHCq9PhTyW3K2W3Kq27lz 50LYk9yUUkoppRZWIXo9//zz6aHSpMEtZLOrV6+mh0pDbHvnnXeS8BbeSU91 C2FPclNKKaWUWliF6HX06NHkUOn58+eT46SFBrcQ2959993w37TZLTlgGsKe 5KaUUkoptbAK0ev48eMbGxtJg1tynLRwhtu7Q9lmt9BNclc3yU0ppZRSamEV otf6+nra4JY9TpptcHvvvffS8BbeT64wvXDhQuhdKaWUUkotrM6ePfvqq69m b71bjm03btxIw1v2bLcQ3s6dOxeC38bGxunTp0+dOhVy4MmTJ0+cOHH8+PFj Qy8BADDJ0ZHkZZKjQqAKsSqEq5Cyzpw5k9wJJLmetCG2ZZNbeoeQ5AH0od/X Xnvt/Pnzr7zySkhxL7/8chhmSIMhy50ZOg0AQEdJjgqBKsSqkK9CygqZ7cKF C4W7tyVPTCgkt/fff78Q3pKWt+Qx9FeuXAkRLgwnSXFhmCHIhYG/MnQOAICO khwVAlWIVcmTSQtXkqaXJJRjWyIb3rKNb8lTsZIIF4RhXhp6fegiAAAdJTkq yVRJYEsuRkivR0ib2sqx7Rvf+EYhvGUb35K7hSQRLnlCVtIWl2Y5AAAmShJa KklTSbJKUlaa2bJHSMuxLZENb4XGtzS/JREuTXFpkAMAoL00SiXJKklZ2cyW NrWVY9sHH3xQCG+Fxrckv6URLk1xaZADAKC9NEql4So9pa3Q1FaObYmGxrdC fquMcAAAtFQIbOXMVnmENMls/z/TLyHU "], {{0, 0}, {830, 541}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{553.3333333333333, 360.66666666666663`}, PlotRange->{{0, 830}, {0, 541}}]], "Print", CellChangeTimes->{3.761070619422104*^9}, CellLabel->"During evaluation of In[2]:=", CellID->356593348] }, Open ]], Cell[TextData[{ "Press the \[OpenCurlyDoubleQuote]Send\[CloseCurlyDoubleQuote] button in the \ notebook, or use ", Cell[BoxData["SendMailFromNotebook"], "InlineFormula", FontFamily->"Source Sans Pro"], " on the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["NotebookObject", "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/NotebookObject"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to send:" }], "Text", CellChangeTimes->{{3.761070633970766*^9, 3.761070670563594*^9}}, CellID->47352882], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7610706747994585`*^9, 3.7610706779713564`*^9}}, CellLabel->"In[5]:=", CellID->916166705], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Success", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"richardh@wolfram.com\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"richardh@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"MessageID\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"29731573334086731573.2.WolframLanguage.richardh@wolfram.\ com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MailSent\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Success["MailSent", Association[ "MessageTemplate" :> MessageName[SendMail, "success"], "Recipient" -> "richardh@wolfram.com", "MessageID" -> "29731573334086731573.2.WolframLanguage.richardh@wolfram.com"]], Editable->False, SelectWithContents->True, Selectable->False]], "Echo", CellChangeTimes->{3.761070725216838*^9}, CellID->431720094], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "\<\"richardh@wolfram.com\"\>", "}"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.761070689038001*^9, 3.7610707253418345`*^9}, CellLabel->"Out[5]=", CellID->56314444] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->740539913], Cell["Generate the notebook with some elements filled in:", "Text", CellChangeTimes->{{3.761071109210516*^9, 3.7610711181782255`*^9}, { 3.761071180322217*^9, 3.7610711811461897`*^9}}, CellID->89599395], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "|>"}], "]"}]], "Input", CellChangeTimes->{{3.761071141322484*^9, 3.761071205788413*^9}}, CellLabel->"In[10]:=", CellID->73746161], Cell[BoxData[ TemplateBox[{FrontEndObject[ LinkObject["fxrti_shm", 3, 1]],122, "FrontEndObject[LinkObject[\"fxrti_shm\", 3, 1]]","122","\"Untitled-25\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{3.7610712070893717`*^9}, CellLabel->"Out[10]=", CellID->748528626], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3VuwZXdeH/YexlWeF8dkGCr4AUwKx0CC/WACQUrFVXlQVSLeLKdcULZL Np4eSEY0YQxGFcyECgjwNCNpGDnBQYUqviQWZmCscUsdPIPFpSVFt9a11ZfT t6OWutXqVuvSLak1mpP/3uvsddZ9/de+/M8+Z38+9Supz97rvtbZ63v+a63/ /k///r6/sfeb9uzZ85mPhf/8jb/3j/7bn/7pv3f7Ld8cfvgffvIzP/Gpn/zk P/jvf/IffvJTn/zpH/r7Hw0vHv3Inj3fG/4x+veHY1+f+GDs+vXr74+9N/bu 2LWJqxPvAACsnjwL5ekoC0tZcMpCVEhTWazKU9aHE5XQleWuPHQV41Y2u7cn 3gIAWD15FiomsTyD5QEsi1XFAFbPXXljVzF05XErm92bE1cAAFZPnoWKSSzL YMUA1tb8VcxdxcauPHTliSub3RtjlwEAVsalS5eKP2ZxKE9ieQbLA1il+StP X5Xcld/WlYeuvIEri1uXxl4fuwgAsHqyIJSFoiyG5U1heQAr3gBWTF+V3FVp 7KqErjxuvTZ2AQBg9WRBKI9hlQDW2PyVp6+23NUYurK4df78+VfHXgEAWD1Z EAqJKIthjQGsLX0Vo1exvSvPXXnoyhJXmN25c+deHlsHAFgBZyeyH7MgFBJR FsNCRsoDWJ6+im1fxehVbPKq5K6ssasYurK4FeZ75syZ02OnAABWSRaBQhbK klhIR8UAljV/VdJXseGreKmxkrtCeLtw4UIxdGWJK8z05MmTa2trJ06cOA4A sEpC/gkpKGShLIaFdFQMYCE7hQRVSV+VZx7ruStv7AoTyZq5wpSzuBXmeOzY saNHj7700ktHAABWwIsT2Y8hBYUsFBJRyEUhHWUZLOSlEMC601fxUmP2PGPW 3hVyVxgxjB4mEqaWJ64wozDTF1544bmxZ5999hkAgFUS8k8WhEIiCrkopKOs KezkyZNnzpzJmr+K6St75jG/7Jg3eWWPNOa5a319PYSuMJ2QuEK6CxN//vnn w7wOHz789NNPPzn2xBNPPA4AsEpC/smCUEhEIReFdBRiUghLITKtra1l6StE qey+r8uXL+cPPOZ93RebvEJCy3JXSG5Hjx4NWS6EujDZp556Kgtajz322KOP Pnro0KE//dM//ZM/+ZM/BgBYJSH/hBQUslBIRCEXhXQUYlgIS88//3zITln6 Onfu3Pnz5xsbvvK7vMKLIZiFhPbKK6+cPn36R3/sU0oppZRSKr5eeOGFY8eO nTp1an19vdLwld/xVbzBPgSzkNDCwCdOnAijp/oKSgCAHS9kp2eeeeall15a W1s7e/bsK6+8Umn4yqJX8WpjCGYhoZ05cyYENtELAJjOkSNHtnsRtkHITk89 9dSLL7544sSJ06dP1+/4yq455tEru9p47ty5MHAIbKIXADCd3RS9/nCi49+Z kJ2eeOKJ55577ujRo9k1x/xRx2L0yp9tzKJXSGgnT54MW0z0AgCms7LR6/HH H3/22WdfeumlkKbOnj1bv9n+7bG8W4kQzEJCW1tbe/HFF0UvAGA6Kxu9Hnvs sWeeeSasfqWXiXr0ynpSzaPXCy+8IHoBANOZRK+n7viBPT9wx1O193/n1j0T DW93vjua5J5bf6d5jLmtwFRCdnr00UcPHz7cdrtXFr2KXx6UPd4oegEAs+iM XuOcNAlPtSTV/e5kkOJE2/LdAvS2ej3yyCNPP/10yFHHjx8P0Su/3at4p31j 9Hr++edFLwBgOh3RaxStSi+Vhul+tziR/MXRELV0tiDx0Svv3Ssmep04cUL0 AgCm1h69GqJU4aXud5tfrbSBLVRv9Dp06NBTTz0VclQWvbLevRqjV/hR9AIA 5qI1erXeqTUeqvvdsnzSKVu9unVEr+whxytavQCABUgQvbYmnvBer6IZW73c 6wUAzMvCotfWw4+jwfIGr6YnHPc0meM6zvFeL084AgCzWEz0argprPtq4+Jy 15V5P+EoegEAU2u/zb7p8uHWa53vlmPW5O760dsdt3otKHc1Er0AgG0Rolee lupPOFaiUuGlznfLjzJuBbGe8HUlWVerohcAsC1C9GrrkL6WrkovdL1ba/XK f+oLX4mIXgDAthhfcBynpoanE+v91RcH6Xi3cq9XMW0tRfgSvQCAbZF/fXaI SE39Pmymsq6vaWx+d+sJx6Zbwm6d60oMJnoBANsij14rRfQCALaF6CV6AQDJ iF6iFwCQjOglegEAyYheohcAkIzoJXoBAMmIXqIXAJCM6DVd9NoAANjVRC8A gGRELwCAZEQvAIBkRC8AgGRELwCAZEQvAIBkRC8AgGRELwCAZGIy1a233ip6 AQDMLiZ3ZUQvAIAZReaumPQlegEAdIvPXb3pS/QCAOgWk7vqP4peAABTiMld HS+KXgAA8bqjV+TrohcAQIyO6DX0LdELAKBbW75qfL37XdELAKBbR8QaSvQC AOgmegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oB ACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oB ACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oB ACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oB ACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oB ACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQAkI3oBACQjegEAJCN6AQD0OnTo 0AMTDz300NAXc6IXAMAgIVNN/aLoBQAwiOgFAJCM6AUAkIzoBQCQjOi12o7f deOePXtuvOt45DsH9lZebBrs+IG9N45eHbtx710H6lOf0+jZMt01GfzGG+86 MGThp5pfw+y6pzOe7Z69xUE3F7D4Yutkhy1t+w7tXYtFbrSu4Rvn2zTbbMDi hjx+194by9Mcj1cYpPEAyzZ+/mLsNgOYD9Frtc09em2e1ir2tmWJGUevjbB3 YIpont+NPctbX7Du6dRmXE1jbZPtnvtkLsU1iooR27vRqsNPG72aJnvjjZV0 1jDxbONvvTiZjuwFJCJ6rba5R6/RAMVGjePZia7ttDbj6JPzaPX9QQs/em2r Eeb4gbv2trc6dc2uazqlWdebwfrWsmUuo6akSlaLil5JN1rv8FNGr7zhsLox eqJXzCsAiyR6rbaFXHDc6B4lbv5Ro7eNH7fwTVcCu3VMt2c6W7GhYegZ8lL1 5ZhJJd1o/cPPFL2q7XHVuQlawPIRvVbbYqPX8UlLxNDoFDv6TCmifutQr8bp Rk5nc9zqPV4daxE3TDnbLDp6Dd1oEcPPesHxxlEz6YHwsbHREPREL2D5iF6r bTHRa3Q9qXhP9bDb7AeMPlOKmNzz06QtDLamhJjptN5UFJMGWluP+tuCotZi QRstYvj53GZfJHoBS030Wm0LiF6T58fGt2z1nd9mHH0ODTjxKaJturHT2Rou 7i6rqDXdnlav+I0WMfwM0Wvz9QN33bV3741bT1CKXsBSE71WW1/02rqLuWXw 2ivVp/sHzn/Y6N0pom/hm+c1HqxlCTrSSd908lHH/2h6ZHA57vWa90brH35z Fg13v1WWMeI2s+g/DUQvYPuIXqutN3rtKTyatvm4YeWST3kC9efO7trb3u3A rKP3pIjIhd+71bwW5td1b1J3e1HHdEojTvGsQnGlZn7CMe1G6x0+n+/o2vLx 4mz3bI5YGKm02KO+wgoTngzSdXyKXsD2E71WW1/02ru3fjNNz8N5DXf39HX5 NNXoTZeyJhOKXPiW62GNp+Wu2fVNpzlgjn/unmzEMhQGr226+oQSb7So4SfZ rD7bu+q3cjXePNexIKIXsHxEr9XWG70OZI0JeXvI3oje04u3yd9YG2Neo0ek iL6Fn8xvq6P19vn1Z6S26Ryvt8VsLeCg6FWdS6Vb+PlEr3lutKjh8yuwpR0/ ebqi0F1X4xMX1Wcyeo9P0QvYbqLXaht6m/3Sae72a2EL393L2BJMNv62sXQb bbmsyGoCS0z0Wm2i1zxmt0STFb36rMhqAktM9Fo5XT0tjWVXxiLPUDOeyGY+ DzY8LziPyQ6b3TJNNuY7iRJvtO3kgiOwfESvlTPX6LX11N1UZ7IZR98QvepK +7d5mqsTvRoOsN24msDOInrRLPoMdfzAgYi+Txc1estEV/r0Wujjfcgm2KUb rXqA7dLVBHYQ0QsAIBnRCwAgGdELACAZ0QsAIBnRCwBg0Q4dOvTARP1d0QsA YBFELwCAhSo2eT388MP1AUQvAIBkRC8AgGRELwCAZEQvAIBkRC8AgGRELwCA ZEQvAIBkRC8AgGRELwCAZEQvAIBkRC8AgGRELwCAZB588MGYF0UvAIDZafUC AEhG9AIASEb0AgBIRvQCAEhG9AIASEb0AgBIRvQCAEhG9AIASEb0AgBIRvQC AEhG9AIASEb0AgCYl0OHDj0w8dBDD9UHEL0AABYhMmU1vih6wbY5/7Vjd3zP I5/+3lHdcfv6+e1eHgDiiF6wM51az6PXqG6RvgB2BNELdrbzXzv26XEGu+9r 270oAPQTvWCnu3TfOHrdce+17V4SAHrNEr2enBPRC2Zx7eAt42uOt1/a7iUB oJfoBTud6AWwg4heO9v5ew+P7/M5drh1kK7z8uHb63dotwx/6tLB2w8X7us+ fMftlyLu657v1DanefjewsN9txw7+LXp1jRfmGuHw8LcUlyY9cOnIhYkfi1O XbrvlmxPlQbLdl/5QmG2FocPnmpY05al6oxeg9auska3HL7v3sY1atsFAPQS vXa2JNFrdO7+dPFhuq3KEkKH+U6tsMwNY00TvYpdNFTqjq5GpEFrsXkvVqnG OSpbqqbo9ch99643LljTDV2tKz5o7SbHUtMafa000/ZdAEAv0WtnSxG9Jp0Y jNpqTk2GGjXjxPRpMN+pFXpUyHuyOnVtMsrw6DV5NnAchPJ0cW2UWG7pfGBw yFrkQeWOSQvS+VPr4yGPZcM3Rq8s0tz3tcna5RNveJKxZcWHrN1W7ioOPG4E +/T3lJNV1y4AoJfotbOlueB4/t6mS1Sbp+DuFo/5Ti2PE42DDV3TSWPUVD1i Ra/FZKmqc9mKWM3R65b6Ps1HqbzVuOKD1q5r4POnyu1sXbsAgF6i186W7l6v uknrR2d3UvOdWvf6DlvTyaTmGiEa1qKj54fGtzq3WHMXXo35dsDaTTVwxyEH QAfRa2fbvuh1bXIdbXCr1wxTm2P0WsRTgY1rsZmvmiLl8OiVN0+V3m24oW7I 2rW1yzUTvQBmI3rtbNsQvU6Vn27r6cZzvlObf/SaTzekHWvR1Zo3RfSKfTJi yNoNS6GiF8BsRK+dLWX0Ov+19fxO7/wm8L4FnO/U5hi9mp46rFXvV/P0r8X2 RK9Ba9fYkta+yqIXwExEr50tWfQq9qUw7scpsrFovlNbwAXHGaJX1Fpsa6tX 3Npp9QJISfTa2VI94biZMYZ0fLqIqc3zNvumPrWqk+qIXrFrMefo1fhuw4uD 1q6rv9ka0QtgNqLXzjZb9Bp2Hp/qjvT5Tm3q6NWeAJvzRhaKuu75j12LOUev 2FEGrV0eI3svsG6IXgCzEr12tgHRq6ENJPJxuZ0WvWLXtL3bh6wPh85WoIVH r6bg19ILRFe/XnFrl/fr1R+oRC+A2YheO9ug6DW+OrY+6X097wkhvpOoR7bu IT+VfZPOFF8kNMvUYqNX3JpudZNVvGiYf/lOXA9jfWsxffSqLFjhq4uqea+n N/uotSt0fb9101rWhX55sqIXwGxEr50tPnqF83vzl/S19bLe2BRWq6k6l5hm arXvDcwrX/ehazregC3fctj5BY5D1mLa6HXHvZeap9/Ry330dzg2rl3rFz5O vrY7YhcA0Ev02tkGRa/RT6N2jDyWHG66RbzzPF74esE7bm/6Jp2FTa3966ob olfcmk6Mv6lwq1euQU9c9q7F9NHr2ka184rD993buBadt4cNW7txB2Utc4zY BQD0Er12thmfcNx5Nq+LDX7CcedY+rXo2gUA9BK9draVi16bjUii1/bp2gUA 9BK9djbRq2B3rOnSr4XoBTAT0Wsnab57vLGm/57oyb1G8zn1z3dqG5P7o0Sv hlHmt5G7dewCAHqJXjtJiuiVdzLQ2aForPlOrceqRq+kGxmAGYleu97QU3ne u2bU18qknVq3VY1eSTcyADMSvWgw6Yx0GadGIxsZYIcQvQAAkhG9AACSEb0A AJIRvQAAkhG9AACSEb0AABbt0KFDD0zU3xW9AAAWQfQCAFioYpPXww8/3PFi kegFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQ jOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQ jOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQ jOgFAJCM6AUAkIzoBQCQzIMPPlh5RfQCAFgQrV4AAMmIXgAAyYheAADJiF4A AMmIXgAAyYheAADJiF4AAMmIXgAAyYheAADJiF4AAMmIXgAAyYheAADzcujQ oQcmHnroofoAohcAwCLUU1bji6IXM7q6fvDM/n1P3nbTH/3wtxbqpidv23fk /oNX17d7+Yhw9f7J7rvtnqvbvTAAO5ToxcKt33Pktm8tJ66mum3fmUfXtntZ 6SJ6AcxO9GKx1u95sjd0FerJ/QejJ7128f57juy/6cnbNKMlInoBzE70YpHW zhRy0ZPjdq1yKFobXYi8f18pnvWlr6uPRjWjhdldFMDmSvQCmJ3oxQIVmryO 9FxMXLu4P78N7KYzbZFpdMPYTb2hqxTA7ncRc25EL4DZiV4s0sEjA87UW01k zXmpdu1y3Ix28Op6aeDw4+hCZN4sNuAKJj1EL4DZiV4s1MX9fQ1ZDQM35aVy 7npy/8H+U3/IYPv3xcyXSKIXwOxELxYsruFr1FR1U/tVwslEolMciyB6AcxO 9GLh1g9OLv/dVOvXq7Gq4WqrNeyH913cppVgQ/QCmAfRa1bjG7+3roXddtOR ++9pfbBu1LZT6Vb0pif3h+H7bkEf3bxUHiuyF6y+xes+mUaeareiUctgV+8f cG98tclr61Jj2vau+J1VuBjaeVd/4XnPhg2VzW7QgbEpajeVHnmIWMKme+Tq Mxo/bVporsweYu1d4q003henp/iVeXTzgdkwWM+SZL8dpYdwbxr1TBKx/OP+ gQePmGxPActM9JpFW6JoOv+u9Tya1xylRs/9dfWLdVvXvUwxi5ciej26L6al a/PkVVudfOJTPau4dvXRgxdjwkB5rKE7q7CpW/Nh1zAdvZ9tdpGRn2obpr8t 0etiVxcfN3U+0Fq8fNyxzFP9ylTuCWw7ZkrZr2n5W3NUz1J134UoegEbotcs Wk+X9RNr+VzTXqVP2shO4NvO9XGLt/joVWzq2RfZjFPQfatYMZreVD7rlboU az1T1023s3pPhV0tY/1zfPL+eybDLEf0iqjW2FOJ4s2ba7q9EDnxuG5+6xtz 6hHrG1D0ghUmek2tcANS8U/dUTNL+UO18jd+5YrM2tYlm/Kncek0VxmrfFN6 48d45OItPnod7MgM/SZn0qbzeOPZOZtLLXcVNkXn/KbcWSNdZ8yuS43FHT2+ lJZPcHytrXkFW6aQOnqVGyprva41zqgwkbY22xn2QnnchsOmEp9uGzXQFX6z CqtQ3QLVpSr8HbFW7ea398q76AUrTPSaVvd9O1tKEajjktn6wdodYtksbmpr q+m8yBW7eAlbvaa5Q36yAJ0rWAsnR4qJ5bZ9R/bH9pY/w84qLm1Him4ITn13 ylXWdGmiV1u6KLY7TXVQzbgXuu/1Kk78j9ouDo4anKuHa8RSlb+7oWkY0QvY EL2mV/gTuOOjL/YG7DbdNyl1NCjFLV6Se70Gde3VPG5nE9OTk9tyrj5aaSO6 qXjmuvpo3xlt1p210dwrbM9k+zqSzRa+M7xt4232fUvbMK+eicxhL7QrNnkN ekizOGLXL1SxZazhbw3RC9gQvaa39Rkbd8ZcQK8IXY/+RS3eRpLoVVjOfWeG PRA3Ob90XKSrnHe6z62FJek6Lc6ys7bafDYnMqBRq+McujXZHRC9SgmkY991 H3IL+JUptFwN+0Mg5jGKTYVGv8GxMyN6wW4nek0rJtss8uNxvfvv62WKXhtb 14Caq/U5zckGrG29fMEazk35ua/zccvaZpnbzio9ktkZmSrr0nWq3WHRq6sr ts6JLDRRxF6Fn23ErgZn0QvYEL2mF5NttoZp/wgdrNKTUsvElyx69T+w1phM eqNX51jdrUzVd+e4sxpWtnMvlO8M39/Qw8aOi14dC9w5kYX8ytQnPjCuDBqx axuKXsCG6DW9YdErutovZ9QeH8uGb+lAaamiV/HyU7GHh8oTfPW2u6lavfru LmuJbXPdWZUuDiKCSv1Jxif3j74c/OL62iiJ7eDoVZ1dZPSaw15on/jAu8iG jdjx6yB6ARui1/QSRq/mDr66e89eougVfSdYe58M9RG7Op3Yerf7dvryu/M9 6ZcfS4y5vNXTyWfXTEWvOKIXsBREr2klil71Tizjvl9maaJXxHlka/TaSaT1 CcfurlYnM21Z981xFxi9ah34x14+q3zxk+i1mOjlgiOwjUSvaQ27zb7vzNvy NTGlLpLiOmMfsHgjC49etSf+GrTfGN9xT1fnFwy1Xqkc29w45RFn3lm16Y9n 0fVMZZf1Uee3Z/bvO3Jb6UsGd0r06ngkMPI2+5n3QscoiW6zrx+ZohewIXpN b2DnErGdqJdO0P23r8+2eBtLH71aLg6W3urqW6Pz3rPKlplxZ+UqWyN6sp12 2r1e0z7hOLe90CjqYdKeEXUuAcxK9JpWXLbpigdNg5U+RaM625xp8QZ0shR3 X1P9LDCod4WGk0hXiCou3tadb6WbpprvnWuOczPtrI71ncNTe929XUXtpr5O 5iuL2tMZe+QmatpK0V2qzrAXYhZse7tUXfCeApaZ6DWt2I++iF4cWy+y9PbG efH+/m/Bm1P0Gp9Ker9xryM7TXuq7XxcsePrhNrTTntL2iw7q2NTRLR1hBE7 npvo2YbV3dQ0iepNg4O/47s+kbana0s7ZYqWn5n3QpfSFwm1fhfSPV3f9zSX LxJa8J4ClpnoNa34vzqLfwjfVO61aW303TdTfLFyccS+/hzmF72a01fvRZz6 94CX1qJ3OXvaN9YuNvS5Mfp2oew82H6/TeNpffqdtdF1la2nAbPYGDKe6dYw le9l7t/C443c0cVuRzbozTz1hz5qO7T/W6Tjguj0e6FP+UnS2tdnTzrN69uG 3V+f3dIylmxPActM9Boo5gms2sdpf4eibR+h/a0649Nx/sk8ePEio1cIfpMz S/FUtXax3AzS20YRWW2tf21NHFe3zpjjJRyfqq7eP/ri7CNtvdZP3/try5p2 3uTTd7NWZ2//nUlmo7Kb8o2QHxXlbivC63lYLeT5coLtn9G+iK4w+vJb1/1O U//KxIjqx6MhJBcvOw7fTRsJ9xSwzESvgaaKXiNrTR2i5p+fbdfyNnpyS/Ur eBYWvUanob4TVtc9MM1tU23VfhfWzN/r19PvxObSDt9ZfddVe5+SW+/bRA0t JJtKu6k7tExm3T2vto1TPh4qPeLGHtLR9+pP/SsTo3tr31RL7HFLlX0ZQftc k+0pYJmJXgONWlf6/vJtjwdZr02Fm8CfjOsy4mq1u6e2EQcvXmT0mmSh9hNW VK+h45N1VDte65LMlr6G9EgwZGdF3T4d9+TaxfvvqezE3oOkvpta4npp2Rqu Hk7CQ/SMNjYD2G3TLG1kT7PT/cpE2Twgi41I4zvuoo6Nylp3d3G8KdmeApaZ 6DWtWR4/TGCBi1e+ujc+6RTvllmUYqvRlC0eHX237j6le6Kqd0xNVHfl/FJN x4INil4rYGn3FLAgotfUOrv03H5LvnhTKd193fJ4XZtie93MVy2ZgegFrDjR a2pLnm2WfPGmVXk8bV/EdypFPSRIMqIXsOJEr6ktebZZ8sWbQf0+55uO3D/6 XsvyeXxtdINc9T7wm+SubSd6AStO9Jpa+WmvpRO7eJOetZ7cv5POg8UOwWKr +jQo20P0Alac6DW1XRG9So+3L+eKtOvs3KDaLNb/9BlpiF7AihO9pjfpJHNJ E0vM4lW6iNyhz/2tHwwZbNQhQ/k5/dGjl6OOKJdy76ww0QtYcaLXait2K+Qb SUhB9AJWnOjF1UcPXnw0ohtJmAfRC1hxoheQkugFrDjRCwAgGdELACAZ0QsA IBnRCwAgGdELACAZ0QsAIBnRCwAgGdELACAZ0QsAIBnRCwAgGdELACAZ0QsA IBnRCwAgGdELACAZ0QsAIBnRCwAgGdELAGDRDh069MBE/V3Rq80DAADtYrJE zIuiV2a79ycAsNQa80Oxyevhhx/ueDEnegEAJCN6AQAkc2V+RC8AgG6iFwBA MqIXAEAyohcAQDKiFwBAMqIXAEAyohcAQDKNIerWW2/tiFht74peAADd2sJV W77qeEv0AgDo1pGv6hGr7XXRCwAgRnf0KqasxhdFLwCAeI0hqh60enOX6AUA 0KstR1XiVm/uEr0AAHp1RKl6+uoeWPQCAOjWnaau9N1aL3oBAMTrDVRX+rr5 Er0AACLFZKpIohcAQDfRCwAgGdELACAZ0QsAIBnRCwAgGdELACAZ0QsAIBnR CwAgGdELACCZpYpeTwAAEEf0AgBIRvQCAEhm9ug1x6ufAAC7m+gFAJCM6AUA kIzoBQCQjOgFAJCM6AUAkIzoBQCQjOgFAJCM6AUAkIzoBQCQjOgFAOwsv7uU Ihde9AIAdpaQc84sGdELANitRC8AgGRELwCAZEQvAIBkRC8AgGRELwCAZEQv AIBkRC8AgGRELwCAZGrR674f3VPx/Z99uGuQH72v8HJ52OorD3/2+0tTrY8h egEAu1lT9MrD1FbQ2gpI4x8LQ9z3o5P3eqJXFtjyMScxTPQCAFZHzAXHQtoa B6ZyNGsOWtVXxiNWYlYl1IleAMBuFxO9tvJWV/Lqjl6N1xZdcAQAVktE9Co0 ThVv1qrd7iV6AQB0645e1Ruy6q1ehVdELwCAbm3Ra6t9q5SNatmrkq7qDzRO Bm6IWU33f4leAMAu1hS9Jp1H1FNRNS/VwtWe6iONWzEtC3NbP1cHF70AgF2v Hr1anjuspq96m9hmu1bh3dpUKmO64AgArJbmLlXbHmKcM9ELAFgttejV2X+E 6AUAMIOGe73qVxy3eqwXvQAAptfyhGO1Ay/RCwBgdjG92S+M6AUArJZtjV7N RC8AYLcSvQAAkhG9AACSEb0AAJIRvQAAkhG9AACSEb0AAJIRvQAAkhG9AACS Eb0AAJL53aUUufCiFwBAMqIXAEAyohcAQDKiFwBAMqIXAEAyohcAQDKiFwBA MqIXAEAyohcAQDKiFwBAMqIXAEAys0evtwAAiDN79NoAACCO6AUAkIzoBcvv +J037Nmz98B2LwYwd367V5DoBcvPhzPsVn67V5DoBcvPhzPsVn67V5DoBcvP hzPsVn67V9ACo9eBvXv23HDn8Z53qkONft4yzeFYnkJ1OuOjfNNovqX5ty7M 0OUo/y7Vt0ThlfLiVjZYy9Zo3rRTL237ntpamZYlrI9a/xjpeaUw+TClue2C xoWvTChi8/Zsm8Fz35pWw5TbN8XmFitNr7RFOo+x+rulNR9PqPM4jNT9qzdZ v+qebF/rymIX135zW+TTGnIU1bbGsCN8ykOiY7ToLdD18Vj/Tel4pfTyPHZ9 cUVqU8hmUNnv3b9l1Vc6P7drQzStxfj9+iSn/Fxp25v1D7uID5ne3252n+WK XuOjtHRqnO9HXOUjYHKot0SvGc66g6JXJQtEbI2mJZthaXtPCoU3Kws1c/Qq TW/zU2ouuyCfXHXLFzdi/+adfgkazjelT//mONSyKSaHannLd+6I7t+y0qij f7cfh8NWuSfD33DDDfFr3f7rUNkew46i0s/Dj/B5b5zptsBG+eMxYjFbR5/H rh+rfaCW1qmSJgZEr77P7d6duJEffNVx5v2ZWfmwi/uQ6f3tZvdZpug1p2bX 1vnW/uzZHLgles2yOAOiV9vCd82+rcFkzn/BNb9TmtOs0av6XnkfzbwL2j9X YzfvlGeilrl3TblzUzRNr2dHzPRbNt1qd4+VvXvgzlL26lzr/oa7bMyBR1Hf /h2wYQeIbSdp2wKdO67/ty76d2nGv+H27t3bFHr27r0h7visvzvwc7sw18rV jhvuvHNv6Teq9MLwVe3dm7EfMr2/3ew+SxS95nWsRcSathe3OXoV/3brnHuq 6NWxmIXmhnlGr7ntgogGmKjNO98MMiR61T+cG6/Ute6I6X/LWi4b9evcWPmb B4rn5thc1HlYDTyKSm3Ow4/wBUevqXZc729d5K/S1Lu+sLCl/ZvPuTE6R0Wv 3s/t/p2Y/3Bgb2Gq4V/H76wmwmHrWnu9ONfoD5ne3252n2WLXnWDD74dGL0m LfLN967Ut8b2Rq/iuXPW6DVZ93nvgr7TY/Tmneo8G7VBm4+Klk2RJno1HIeD dGys6rJWrq00r3Vs9Bp4FPVGr+4jfM7RK3ILdH88xkWvjk/XWXd9YVnLc85/ qq7/oqNX6TDL/z3JXpP/T5u9oqNXzIeM6LWCli169ZyzY+yw6NXyd2bvDVK7 o9Wr+EJu9l3QO2L05p3mPNs+94gpN2+KuUWvSu6pznfK9o6GWbYvautRU1vr +OjVMZFlavXa07R8cVugewNM0epVaXqecddvrl8+vdJnamMDd8pWr3KULrXM TZm9pmv1avmQEb1W0IKjV/OHTewfttN9xtXn237bRuUq+wKjV2nG7U0AbZPY qH0YVUaaNXr176nGOdWXpH7fQm31u3bsfHZB/4ix5+P5RK/iFi5OuXMZax/O 1aGry9l6jA1tI5hW669edYt0nO+ma/XqmEj0Nc3mKXdv2AEqc2rf/dN8PPZv no7R57Hra5mj/rtUWYLpjt7i+82f2w1TqP59vffO8GatQWyQ+qHecMKJ/ZDp /e1m91miVq+Nyi/UnD7iiqqH+ObvT5LoVZlN+ddza3kLTxu1b43NCdbajebd 6rVR/1Cs/Fxfkslf7+X1u6F630VxEpXJb/04W/Tq+dzq3ryLafUqatiJ7Zti slUr26bnGOs4sEu/BaN/tx+H8do2VktAz0+MbWs9IHoNOYrKb8cd4c2/vEPU Ns7WckVtgc6Px+hGwabR57HrW5o1Oz5Ra9GrfSP3fW737MSGw6G6h+d2baWp sbH3Q6b3t5vdZ7mi10a53X26zN9zsqzMoPmDrvo3zdDfgcYPmcKcK8tXml3b hbj6p3M22vgxnZmWti9elLdGrTmnsCTHt1a9MNJWy37jNMqXWirxcsqViks/ 3Zs3ats0ijo91zdd26YorE9pgIY40bKRm0/73dt8ftGrtVGib62HtHoNOIrq y9N/hLf/8k6/cbYOk5gtUFvLSm4pjN76u9P+6Trjrq/+rbMZZzoaupp+y7o2 ctfndsMqtM21YVmn+gMvMnrVF7xpAr2/3ew+2xK9hg81xLAptg89v1avFBbV 6rWtZlipeW2P6bZN+v2/FPtw3gsxn+ktyU0z9ZWJWLDYLTDseuz81ZZznL3u nM8tJFEzTCw+eg2cACtC9BK9lvdTYKbNOPWVoTlEr1nmPp2l2IeiV4fmlsee 1dsh0au5Dap0m8HWQs3lCNnu4130YjbbEb1Kv3/LFL1q9zzsoOg1y9Iu76fA DCs1Gb12/WjYnwMzbJuGuY9eW8xh0bmc8zvjzbAQ2ze9ylGUams0LEX1Mlfs Vem4qdcOtVQfQU1/Z9Ruqdp6desa6/R7Ybs/s0QvZpP0CcemX7rFRK+m2bYP 3RK9ZrAkf2hHat1Tu0H5Npqmu0hq5hS9Gue+qA27NNFrnqu7mNPTNkavgQfi DjlBN7fwNm/mfFjRawfsWRZngdErznYfgds9f5bPHKNXMjtlOQfZlSs1iC3Q YsdvmB2/Asxm26MXAMDqEL0AAJIRvQAAkhG9AACSEb0AAJIRvQAAkhG9AACS Eb0AAJKZPXrd/Dd/RCmllFJKxZTopZRSSimVrEQvpZRSSqlkJXoppZRSSiUr 0UsppZRSKlmJXkoppZRSyUr0UkoppZRKVqKXUkoppVSyEr2UUkoppZKV6KWU UkoplaxEL6WUUkqpZJUgeq39x3vmUtu+rZRSSimlZqxtj16nvvObz/zV7wwV /iF6KaWUUmp31zZEr0989NS3/7mTf+Fjax//SKj1G7/v/I/9rVDhH6N3P/6R k9/2sTBAGEz0UkoppdQuq9TR61u+6dRf/PPnfvivn/3B7z75rX8m5KsLP/53 rn31oVAXfuLvhh9PfuKjZ3/gL4cBwmBhYNFLKaWUUrupUkevj3/kzPd9+5Uv fO7KPb/++u0/deFTf/ut/+v//ODs6Q/Wz7z1z38r/Pj67fvCW1d+43Nn/sp3 jJrFYqLX3Y9vFDxyd+nd/Y9tbJz78qc7XslHf+yL079bn/VnvryevzEa5YuP bGysf+nn2jfUaIAmj+8fD/DpL50rvto5qSGVLWd5E22uaW1j3vw3f+7+4lJ0 bdjRkMWFrO+I4iYKQxYHGK/s5orfHP1K+ZA4d/9nygOP92Bxa2+tXfuS9B8D 0UfF4JWaaalKh9PmMnRPsLmq+7HvQB0fIW1L0j87pdTSVfNvfIttX9rIOnr0 2P67v9g7WBjm8qXLc597+guOZ/+r73nv8Ue+fun1D9ZPv3vo4fee+v+urx27 fvJE+Ef4Mbz44eXXwwBhsJgLjuOEUDjJZieXwkm270RZTUQD3h2f+wrh5IuP lN/aWozJKa83enUM8OkvPV7IEuPT2TxOZJNEVwoqW6fLYlyphbTxxt9KDgOj 13gWk+lnSW9h0StbneLAxejVtSR9R8iAo2LgSs2wVJXDLww8+nf3BNuqOXq1 H6iV6FWaadcuU0ota8UHqh0UvUKmuv7eu93pK2aY6Wobotd/+Z9d++pDIXp9 4/33P3z7rWv/4d+/8flfeePuX7v28FfDj6MXL78eBgiD9UevcRiotsyUT7s9 J8raFKLfHZ9iHmvcI/U//DfPht1NVZUk01PjZZu97Ws008cef6Shye7cI4+d qwat6pm6tBGGRa/qti1ttDlHr/GP66XlKUSvziXpOUIGHBUDV2r6pWpZhu4J tlY9eg04UGvbqmFqSqklr10ZvW7uS1aLy103p4peJ/+TP3v6u75l/Ye+99zN /81r+z753tOPj1LWe+9dP3Hs7d+7//I/+cVQ73z531w/tRZeDG+FAcJgYeD1 H/rPT3/XJ8LojdGr5eRb+qt8UdGrMfU1LUDniw0jRrdldZ3lo2tzqcYBbGtS mxu2FGCal7+4C2aLXqUB5hq9NjfUaPhya0xL9BpyhAw4KmaMXjMfmREr0naY NR7M041b3gtKqR1QuzV63dyerxaau25OFb1Ofcd/FELUxZ/ae+Wez7/z737/ /Ree+2D9zPW14+985ffe/O3/440v7n/jC//kzfv+2dWDX7l+8kR46/0XnwuD hYHDKOs3/Bdh9CHRq6MppvbKbCe4uvHAU0evH5lcGqtc/museUSvSUQpb8l8 ysVlbln+0RSmil6Ta16NIXme0Wvcgjf6d2lvlu716liSKaJXy1ExeKWmXKr2 +Nc1wc7DrOm4jThQIxqllVLLX7s4et3clLIWnbtuTha9/uKfP/ff/ddXD/x+ SFbXjx8dxa3P33Hl7l97K/zj7l+79L/+o0u/+HNv3PWrb/7WPVfu/JXw1pu/ /ZthsDBwGCWMOHrasS16NZw70kWv+n31cdGrfLN6LT9UTpEt1ZHleqZfnlHe xlJq4BqvSHFLzrvVq3FRFxC9ivMtNO59sXqNte0JghlbvQqvTLVSUyxVfdUi VrO1ui4R9hyoopdSu6J2d/S6uZy1EuSum5NdcPy2P3v2+//Spc/+7LU/+Q8f vHz2zd/6YshXb9z9q5d/6eev/LMvvPPA777zwJeu/OYXLv3i7aPXQ/S695+G wcLAl37hZ87+te8Ko88UvUof9eXGojne69Vyui/OaMBdLj33htXvG5+iiqtQ OMMWVqQ9WbVs6u7o1bnAtVav0gm6th87G23yVajswa2E2ZVP+o+B1iOq66iY caXi/2SIa86asdUr4kAVvZTaFbXro9fNk8T10B/8QYLcdXPC2+xPftvHzv7g d1/53+/64JWX3znw+2/93/eFrHXxp3/87d/5l1+/9Hqo8I+Ln/kf3/zNu9/+ V/ddffDfhsHCwKPuv77tY2232UdHr/YH0Ga5z6eUphoSXekRs42Yhqza2hWz SrnLgjncMFNeu3zV2rdA9Q6fSnKIiF7VWFK57z3/cfLcZambhfVz1Y4XWrdn 84XUH6lcS93as+1L0hK9qkdUZfjGo2LwSg1dqvJeqz3h2DnB1uq/Mb61+VH0 UqtaG0Ns+9LGrM7ch1zCynJX+G+CeaWPXh++eeXDy5fe/tL/c/F/3vv6L/zM ta/9v9/44INvXL9+7Y++eumX//HFf/g/vfN7//rDNy6FweYWvcIw5R6Ntt4q KveP1P3u5ryqnXfVFmPy3v2fiTzTFaq1xWY+VW2E2bxrq9Ju09SJwZbSCXdr 41RSYnHTZW8VWw7LgxWWLUy80CVU9m5xg3fc57Z5fm/a5purWWn1al6SrmOg Y0lajorhKzV8qXrGbd3g7RXxTGLr3WVt21/0Umon1cYKRK9d2eo1uuD4177r 0i/8zLt/+vA3rr+/8Y1vXD34lddv33f5c//b2/f/y/Diu3/8hyGMvfEbn3v9 5z9z9Q8OhAHCYOH1S5/92bPf/5dmueDYU52PpE37UFhjDY9eDQ0d8zxnNXa0 9ciXpl/l7lavpJWd37/UeJbPtuqXO2+IKtQ8j4H5VfdxO4fKd1/Mfmw7tht+ E3XtpdSOq10fvXbrvV75bfYfnD754ZtXsjauy7/2i2/8xv7Ln7/j0i//48u/ 9PNv3PWrV37zC5f3/9K1P/7DMEAYLAw8+232PbVM0evTd3+xfntYqXPOeZ5t G5YnrF3p+le+keMi37JFr/WWw2B82JyLjS4rGr1KbWvVDiJ6DtTypm6+4Lut W08pNaR2d/TazU845p1L/NPPXz34la+ff/XqHxy49Ev/Swhar3/2Z8Prr+37 ZPjH5V//5cu/8tlRh6thgINfCQP3dy4xY/RqvPDU2PtTtkcWGr3qPTzUW6Xm dbatdrqeL0DzAwIx861Hr207yU6ueDYv9uQCX9zGnOMxMMfqPm7nVZsXKBv6 5uo6UKvLWb7bzdVGpXZY7eLotbv79ap3qfruoT9661//83ce/LdXH3rgnX/3 e6N68MtXD3z57fv/xbuP/HGhS9XvDSN2dak6a/RqGrf9FLboC46lL2rsunls c4ipz2LNzxs237teOnv2TLPh1qYpl3CmKt1R1rb6U+bY5YhelVpQ9BpV2I8t nYq0HahNyzbzEauU2q7ardFr1/dmX/8iofePPP/es09dXzv+4ZXL2Yfyh29c un78pfeeeSq8FftFQun3VNJ7vXZYtXWausvu7VnK6KWUUouqXRm9Vu47HLOv z77w6vvHX7r28L+/vnYsOz2Hf4Qfw4vhrfivz1ZKKaXU4mpjiG1f2sg6evRY TKYKw1y+dHnuc08dvT7+kTN/5Tuu/Mbnrtzz66/fvu/Cp/72W//qt79+4Xyo 8I/w4+u3/1R468oXPnfm+749DCx6KaWUUmo3Vero9S3fNHra8Yf/+tkf+Msn P/HRtU989MJP/N1rX30o1IUf/zvhx5Pf+mfO/uB3hwFGTzV+yzeJXkoppZTa TRUZvd5+++0333wzRK9Lly6Ft2a54Bjy1alv/3OjjlLHjVrrN37f+R/7W6HC P0avfPwjJ//Cx8IAYTAXHJVSSim1yypkp0cfffTw4cMvvvjiiRMnQvR6+eWX X3311ddeey2LXiFxvT0W/hFiWDF6hVGmiV7lOvWd33zmr35nqPCP7iG3fVsp pZRSSs1YITs99thjzzzzzJEjR0KaOnPmTB69Qsp64403KtErhLHwVhjm5MmT YZTZo1d8bfu2UkoppZSasUJ2evzxx5999tmXXnoppKmzZ8+eO3fu/PnzFy9e LEavd95556233gr/zqJXGObUqVNhlJjopZRSSimlsgrZ6YknnnjuueeOHj0a 0lR+o1eIXvmNXu+MZdErhLHwVhjm9OnTYRTRSymllFIqvkJ2evLJJ/N77Cs3 euXR6+rVq2+//Xb2nGN4Kwxz5syZY8eOiV5KKaWUUvEVstPTTz+d3WN/9uzZ V155pX618epYFr3CK+GtrH+JMIropZRSSikVXyE7HT58OLvRK6SpepNXFr2u Xbv2zjvvZDfbh7cuXLjw8ssvr62tiV5KKaWUUvEVstOzzz577Nix7Gpjpckr u9p4bSwEsOyOr+x2r3PnzoW0JnoppZRSSsVXyE7PP/98frUxa/IK4erKlSv5 1caQu959990sfYVX8tu9QloTvZRSSiml4itkpyNHjmRXG8+fP59daqw0eYXc 9d5774X/5g1f2TXHkNZEL6WUUkqp+ArZ6dixY2fOnMmavLJLjZW7vN4bKzZ8 hWGy3r1EL6WUUkqp+ArZaW1tLW/yKl5qLDZ5vf/++3n6Cq9nzzleuHAhjK6U UkoppeLr7Nmzr776arEP1Xruun79ep6+ind8hfR17ty5kNzOnDlz6tSpkydP hiB34sSJ48ePHzt27OjYSwAAK+DIRPZjFoRCIgq5KKSjEJNOnz6ddSiRPdXY kbuK0SvvaCL7Nu0w7muvvXb+/PlXXnklxLCXX345TDPEuRDGTo+dAgBYPVkQ Coko5KIQkEJMCqHrwoULlV68sr7rK9Hrgw8+qKSvrO0r+07tN954I2SwMJ0s hoVphiQWJv7K2DkAgNWTBaGQiEIuyr6lsfI8Y35ffT13ZYrpq9j8lX3BUJbB gjDNS2Ovj10EAFg9WRDKQlGWuLI76vOb6vPGrnru+vrXv15JX8Xmr6zTiSyD ZV82lLWG5WEMAGAVZBErl8WhLBplMSkPXcWLjPXclSmmr0rzVx7AsgyWx7A8 iQEArJQ8C2XRKItJxdCVN3bVc9eHH35YSV+V5q8sgOUZLI9heRIDAFgpeRbK 01F+W1elsaueuzIdzV+VANaYwQAAVkclcdVDV+NFxix0/f8TJh+o "], {{0, 0}, {809, 473}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{539.3333333333333, 315.3333333333333}, PlotRange->{{0, 809}, {0, 473}}]], "Print", CellChangeTimes->{3.761071267926422*^9}, CellLabel->"During evaluation of In[11]:=", CellID->408158824] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->604865522], Cell["\<\ Create and save a notebook that you want to send as an email:\ \>", "Text", CellChangeTimes->{{3.76081497943438*^9, 3.760815018912361*^9}, { 3.760815709140334*^9, 3.760815711331457*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nb", "=", RowBox[{"CreateDocument", "[", RowBox[{"{", RowBox[{ RowBox[{"TextCell", "[", RowBox[{"$WolframID", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.760815324356827*^9, 3.760815324844499*^9}, { 3.760815393386526*^9, 3.760815502476172*^9}, {3.7608157655084667`*^9, 3.760815769458232*^9}}, CellLabel->"In[1]:=", CellID->299482583], Cell[BoxData[ TemplateBox[{FrontEndObject[ LinkObject["uu6pz_shm", 3, 1]],101, "FrontEndObject[LinkObject[\"uu6pz_shm\", 3, 1]]","101","\"Untitled-22\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{3.760815505714822*^9, 3.760815776640798*^9, 3.760815854840507*^9, 3.760816028648861*^9, 3.7610684806084366`*^9, 3.761068650080966*^9, 3.7610704818705487`*^9}, CellLabel->"Out[1]=", CellID->269808008] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"path", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"$TemporaryDirectory", ",", "\"\\""}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.76081581457061*^9, 3.760815842408868*^9}}, CellLabel->"In[2]:=", CellID->1504510385], Cell[BoxData[ RowBox[{"NotebookSave", "[", RowBox[{"nb", ",", "path"}], "]"}]], "Input", CellChangeTimes->{{3.7608157511486683`*^9, 3.7608157517386637`*^9}, { 3.7608158241783867`*^9, 3.760815829927011*^9}}, CellLabel->"In[3]:=", CellID->221753227], Cell[BoxData[ RowBox[{"NotebookClose", "[", "nb", "]"}]], "Input", CellLabel->"In[4]:=", CellID->1593583089], Cell["Send mail from the notebook:", "Text", CellChangeTimes->{{3.760895376514409*^9, 3.760895390865285*^9}, 3.761322826929473*^9}, CellID->1335215546], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", "path", "]"}]], "Input", CellChangeTimes->{{3.760815527740046*^9, 3.760815532115366*^9}, { 3.760815868671009*^9, 3.7608158728775587`*^9}, {3.7608159175097523`*^9, 3.7608159348750553`*^9}, {3.760894262699814*^9, 3.760894279640102*^9}, { 3.7608943607169333`*^9, 3.7608943751395903`*^9}, {3.7608948683713903`*^9, 3.7608948748231487`*^9}, {3.760894917175756*^9, 3.76089491788482*^9}, { 3.7608949515327463`*^9, 3.7608949687869673`*^9}, {3.760895277480756*^9, 3.760895284710034*^9}, {3.760895405089363*^9, 3.7608954055925283`*^9}}, CellLabel->"In[5]:=", CellID->2055318963], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Success", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"richardh@wolfram.com\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"richardh@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"MessageID\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"29731560015725620996.2.WolframLanguage.richardh@wolfram.\ com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MailSent\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Success["MailSent", Association[ "MessageTemplate" :> MessageName[SendMail, "success"], "Recipient" -> "richardh@wolfram.com", "MessageID" -> "29731560015725620996.2.WolframLanguage.richardh@wolfram.com"]], Editable->False, SelectWithContents->True, Selectable->False]], "Echo", CellChangeTimes->{3.7610705057567997`*^9}, CellID->212528007], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "\<\"richardh@wolfram.com\"\>", "}"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760895414042796*^9, 3.7610685120221863`*^9, 3.761070505889779*^9}, CellLabel->"Out[5]=", CellID->417484558] }, Open ]], Cell["Or send mail with additional elements:", "Text", CellChangeTimes->{{3.7608957932169113`*^9, 3.760895812511962*^9}}, CellID->883515356], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", RowBox[{"path", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "|>"}]}], "]"}]], "Input", CellChangeTimes->{{3.760815527740046*^9, 3.760815532115366*^9}, { 3.760815868671009*^9, 3.7608158728775587`*^9}, {3.7608159175097523`*^9, 3.7608159348750553`*^9}, {3.760894262699814*^9, 3.760894279640102*^9}, { 3.7608943607169333`*^9, 3.7608943751395903`*^9}, {3.7608948683713903`*^9, 3.7608948748231487`*^9}, {3.760894917175756*^9, 3.76089491788482*^9}, { 3.7608949515327463`*^9, 3.7608949687869673`*^9}, {3.760895277480756*^9, 3.760895284710034*^9}, 3.760895401337266*^9, {3.760895575714747*^9, 3.760895588609996*^9}, {3.760895685184512*^9, 3.7608956903331842`*^9}}, CellLabel->"In[6]:=", CellID->891140671], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Success", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipients\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ "\"richardh@wolfram.com\"", ",", "\"foo@bar.com\""}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipients\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ "\"richardh@wolfram.com\"", ",", "\"foo@bar.com\""}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"MessageID\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"29731717486444875157.0.WolframLanguage.richardh@wolfram.\ com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MailSent\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Success["MailSent", Association[ "MessageTemplate" :> MessageName[SendMail, "success"], "Recipients" -> {"richardh@wolfram.com", "foo@bar.com"}, "MessageID" -> "29731717486444875157.0.WolframLanguage.richardh@wolfram.com"]], Editable->False, SelectWithContents->True, Selectable->False]], "Echo", CellChangeTimes->{3.7610705425136175`*^9}, CellID->132956882], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "\<\"richardh@wolfram.com\"\>", "}"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760894380645393*^9, 3.760894886553303*^9, 3.760895011823037*^9, 3.760895289814158*^9, 3.760895595145759*^9, 3.760895695922955*^9, 3.761070542636615*^9}, CellLabel->"Out[6]=", CellID->114094073] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1543529859], Cell["Process multiple emails from a file:", "Text", CellChangeTimes->{{3.76089586616586*^9, 3.760895866533843*^9}, { 3.7608961119319077`*^9, 3.760896131514889*^9}}, CellID->503884453], Cell[BoxData[ RowBox[{ RowBox[{"nb", "=", RowBox[{"CreateDocument", "[", RowBox[{"{", RowBox[{ RowBox[{"TextCell", "[", RowBox[{"$WolframID", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"$WolframID", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.760815324356827*^9, 3.760815324844499*^9}, { 3.760815393386526*^9, 3.760815502476172*^9}, {3.7608157655084667`*^9, 3.760815769458232*^9}, {3.760895903269026*^9, 3.760895965129407*^9}, 3.760896776043891*^9}, CellLabel->"In[35]:=", CellID->917725435], Cell[BoxData[ RowBox[{"NotebookSave", "[", RowBox[{"nb", ",", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"$TemporaryDirectory", ",", "\"\\""}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7608157511486683`*^9, 3.7608157517386637`*^9}, { 3.7608158241783867`*^9, 3.760815829927011*^9}, 3.7608968042670307`*^9}, CellLabel->"In[36]:=", CellID->1107435246], Cell[BoxData[ RowBox[{"NotebookClose", "[", "nb", "]"}]], "Input", CellLabel->"In[37]:=", CellID->423410973], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SendMailFromNotebook", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"$TemporaryDirectory", ",", "\"\\""}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.760815527740046*^9, 3.760815532115366*^9}, { 3.760815868671009*^9, 3.7608158728775587`*^9}, {3.7608159175097523`*^9, 3.7608159348750553`*^9}, {3.760894262699814*^9, 3.760894279640102*^9}, { 3.7608943607169333`*^9, 3.7608943751395903`*^9}, {3.7608948683713903`*^9, 3.7608948748231487`*^9}, {3.760894917175756*^9, 3.76089491788482*^9}, { 3.7608949515327463`*^9, 3.7608949687869673`*^9}, {3.760895277480756*^9, 3.760895284710034*^9}, {3.760895405089363*^9, 3.7608954055925283`*^9}, 3.760896820490479*^9}, CellLabel->"In[38]:=", CellID->1855352603], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Success", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bakshee@wolfram.com\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bakshee@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"MessageID\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"21918580131877354424.1.WolframLanguage.bakshee@wolfram.\ com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MailSent\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Success["MailSent", Association[ "MessageTemplate" :> MessageName[SendMail, "success"], "Recipient" -> "bakshee@wolfram.com", "MessageID" -> "21918580131877354424.1.WolframLanguage.bakshee@wolfram.com"]], Editable->False, SelectWithContents->True, Selectable->False]], "Echo", CellChangeTimes->{3.760896936947269*^9}, CellID->1245098665], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Success", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bakshee@wolfram.com\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], FrameBox[ StyleBox["\"\[Checkmark]\"", Directive[ RGBColor[ 0.3607843137254902, 0.596078431372549, 0.3803921568627451], 25], StripOnInput -> False], ContentPadding -> False, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox[ TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mail sent.\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Recipient\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bakshee@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"MessageID\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"21918642964226446738.0.WolframLanguage.bakshee@wolfram.\ com\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MailSent\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Success["MailSent", Association[ "MessageTemplate" :> MessageName[SendMail, "success"], "Recipient" -> "bakshee@wolfram.com", "MessageID" -> "21918642964226446738.0.WolframLanguage.bakshee@wolfram.com"]], Editable->False, SelectWithContents->True, Selectable->False]], "Echo", CellChangeTimes->{3.76089693803864*^9}, CellID->1292606287] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "\<\"bakshee@wolfram.com\"\>", "}"}], ",", RowBox[{"{", "\<\"bakshee@wolfram.com\"\>", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760896016226756*^9, 3.760896938144944*^9}, CellLabel->"Out[38]=", CellID->889292557] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Stephen Wolfram", "Text", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[420145]}, 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}, CellChangeTimes->{{3.760896977536989*^9, 3.760896981575753*^9}}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["electronic mail", "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}, CellChangeTimes->{{3.760898768542459*^9, 3.760898771579821*^9}}, CellTags->"TabNext", CellID->123227828], Cell["e-mail", "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}, CellChangeTimes->{{3.760898768542459*^9, 3.760898777482945*^9}}, CellTags->"TabNext", CellID->123759378], Cell["email", "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}, CellChangeTimes->{{3.760898768542459*^9, 3.760898785829895*^9}}, CellTags->"TabNext", CellID->1812678124], Cell["email processing", "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}, CellChangeTimes->{{3.760898768542459*^9, 3.760898789997448*^9}}, CellID->1519023772] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell["SendMail", "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}, CellChangeTimes->{{3.760898827773213*^9, 3.760898828769505*^9}}, CellTags->"TabNext", CellID->79477165], Cell["SendMessage", "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}, CellChangeTimes->{{3.760898827773213*^9, 3.760898845208749*^9}}, CellID->1425874794], Cell["ServiceExecute", "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}, CellChangeTimes->{{3.760898827773213*^9, 3.760898851163266*^9}}, CellID->1228044554] }, Open ]] }, Open ]], Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757] }, Closed]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell[TextData[{ "See comments in ", ButtonBox["FUNCREPCON-812", BaseStyle->"Hyperlink", ButtonData->{ URL["https://jira.wolfram.com/jira/browse/FUNCREPCON-812"], None}, ButtonNote->"https://jira.wolfram.com/jira/browse/FUNCREPCON-812"] }], "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}, CellChangeTimes->{{3.760894578019622*^9, 3.760894585146161*^9}, { 3.7608946192023287`*^9, 3.760894669599626*^9}}, CellTags->"TabNext", CellID->920818074], Cell["\<\ Edited by richardh to allow opening a simple template notebook when no \ arguments are given.\ \>", "Text", CellChangeTimes->{{3.761070336347237*^9, 3.7610703559475927`*^9}}, CellID->46575930] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ 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`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", "MenuAnchor" -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", "MenuAnchor" -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", "MenuAnchor" -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], 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]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 553, 9, 70, "Title",ExpressionUUID->"e8806c99-55d9-4aaf-936f-5b126700c362", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 553, 9, 70, "Title",ExpressionUUID->"e8806c99-55d9-4aaf-936f-5b126700c362", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1136, 33, 590, 9, 70, "Text",ExpressionUUID->"34f1bcd3-19e8-4520-b7fd-8eb471b2c2c8", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[16558, 411, 467, 11, 70, "UsageInputs",ExpressionUUID->"419d0642-615a-41b6-9b5d-cb331db07dde", CellTags->"TabNext", CellID->157543866], Cell[17028, 424, 573, 14, 70, "UsageDescription",ExpressionUUID->"a8402d2d-5529-499b-8b4c-3257c763e574", CellTags->"TabNext", CellID->231889230], Cell[17638, 443, 516, 13, 70, "UsageInputs",ExpressionUUID->"4c03beeb-485c-419f-ad1f-e25d3360698e", CellTags->"TabNext", CellID->43734762], Cell[18157, 458, 355, 10, 70, "UsageDescription",ExpressionUUID->"7ae2d354-bf51-426b-80cb-d7cd47fb24de", CellTags->"TabNext", CellID->610737660], Cell[20122, 520, 972, 20, 70, "Notes",ExpressionUUID->"d13d2605-55b5-4410-8642-e590d6ff282d", CellTags->"TabNext", CellID->521904482], Cell[105015, 2296, 771, 14, 70, "Text",ExpressionUUID->"bf353cda-dac6-4131-9825-02011052e816", CellTags->"TabNext", CellID->832483124], Cell[106473, 2337, 536, 9, 70, "Item",ExpressionUUID->"252f8ea3-8096-4b65-af8a-2f3a0df63795", CellTags->"TabNext", CellID->123227828], Cell[107012, 2348, 527, 9, 70, "Item",ExpressionUUID->"8aa6a128-e42c-4414-80b3-44160a202bec", CellTags->"TabNext", CellID->123759378], Cell[107542, 2359, 527, 9, 70, "Item",ExpressionUUID->"6d0dd29d-3558-41d4-870f-91f9a000df8c", CellTags->"TabNext", CellID->1812678124], Cell[109324, 2406, 528, 9, 70, "Item",ExpressionUUID->"c21fba69-31f6-4aab-8153-d1e466fde39a", CellTags->"TabNext", CellID->79477165], Cell[114630, 2551, 815, 17, 70, "Text",ExpressionUUID->"ecb3585d-045d-4b35-8e03-ea852616b7f8", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1136, 33, 590, 9, 70, "Text",ExpressionUUID->"34f1bcd3-19e8-4520-b7fd-8eb471b2c2c8", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1751, 46, 877, 21, 70, "Section",ExpressionUUID->"095812a1-9a72-4f58-a967-cab83b36c2cd", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[15626, 380, 99, 3, 70, "Section",ExpressionUUID->"dade8033-fdf6-4ee9-87f6-2ee5703319c9", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[15750, 387, 783, 20, 70, "Subsection",ExpressionUUID->"6c1df202-c4bc-4362-833d-bd704941cf21", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[18980, 487, 814, 20, 70, "Subsection",ExpressionUUID->"ae83b180-0a6d-4b9e-ab24-50d81a2954ff", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[23454, 613, 778, 19, 70, "Section",ExpressionUUID->"f1533c9e-3526-44b0-ab0e-6c380e815494", CellTags->"Examples", CellID->224042445]}, "Source & Additional Information"->{ Cell[104180, 2269, 135, 3, 70, "Section",ExpressionUUID->"cb706bd0-709e-4754-8784-c86de3b22331", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[104340, 2276, 672, 18, 70, "Subsection",ExpressionUUID->"a5670d79-2ace-4f64-9d84-e259102b6739", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[105823, 2315, 625, 18, 70, "Subsection",ExpressionUUID->"caac5684-4753-4236-8f3c-901e22197d77", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[108637, 2384, 662, 18, 70, "Subsection",ExpressionUUID->"61d24121-6c9c-44de-98d5-175dd08ea55e", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[110910, 2439, 702, 18, 70, "Subsection",ExpressionUUID->"75860407-9316-42b4-afda-3c29db952ef0", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[111615, 2459, 755, 19, 70, "Subsection",ExpressionUUID->"085bfac9-9495-4598-b236-0591ba398d06", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[112373, 2480, 597, 17, 70, "Subsection",ExpressionUUID->"fa506ee9-8e6e-49d9-8e64-35fe589747a8", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[112973, 2499, 767, 20, 70, "Subsection",ExpressionUUID->"71553db4-1c3d-45ae-89c4-9b0bbb65f053", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[113755, 2522, 127, 4, 70, "Section",ExpressionUUID->"75f03a34-f6ae-4ca3-8f19-b222814f4469", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[113907, 2530, 720, 19, 70, "Section",ExpressionUUID->"ec0ba95f-b3c1-4bf3-a9c3-522819490711", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 161213, 3513}, {"TabNext", 161378, 3517}, {"Description", 163311, 3557}, {"Definition", 163485, 3561}, {"Documentation", 163652, 3565}, {"Usage", 163814, 3569}, {"Details & Options", 163985, 3573}, {"Examples", 164158, 3577}, {"Source & Additional Information", 164343, 3581}, {"Contributed By", 164535, 3585}, {"Keywords", 164708, 3589}, {"Related Symbols", 164882, 3593}, {"Related Resource Objects", 165072, 3597}, {"Source/Reference Citation", 165272, 3601}, {"Links", 165453, 3605}, {"Tests", 165614, 3609}, {"Author Notes", 165781, 3613}, {"Submission Notes", 165956, 3617} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 553, 9, 70, "Title",ExpressionUUID->"e8806c99-55d9-4aaf-936f-5b126700c362", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1136, 33, 590, 9, 70, "Text",ExpressionUUID->"34f1bcd3-19e8-4520-b7fd-8eb471b2c2c8", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1751, 46, 877, 21, 70, "Section",ExpressionUUID->"095812a1-9a72-4f58-a967-cab83b36c2cd", CellTags->"Definition", CellID->608264297], Cell[2631, 69, 254, 7, 70, "Input",ExpressionUUID->"69cc71b5-ca2a-4dda-ab7c-10411d9a5210", InitializationCell->True, CellID->308626740], Cell[2888, 78, 4360, 95, 70, "Input",ExpressionUUID->"fca45238-a1bd-4e2f-84e5-4ecd6b1db913", InitializationCell->True, CellID->634137379], Cell[7251, 175, 1082, 29, 70, "Input",ExpressionUUID->"4fa7042d-08e8-4689-8fbf-4f011ec5b3f5", InitializationCell->True, CellID->53006640], Cell[8336, 206, 1524, 36, 70, "Input",ExpressionUUID->"ddb2364d-3f60-4b43-a75f-d2e1bf5e67ce", InitializationCell->True, CellID->1979001593], Cell[9863, 244, 1229, 33, 70, "Input",ExpressionUUID->"3577cfc0-4462-4b14-80ab-a2e582bcb35e", InitializationCell->True, CellID->504716552], Cell[11095, 279, 4494, 96, 70, "Code",ExpressionUUID->"a80d8142-faba-4bd3-af2d-62772dccfae8", CellID->36830449] }, Open ]], Cell[CellGroupData[{ Cell[15626, 380, 99, 3, 70, "Section",ExpressionUUID->"dade8033-fdf6-4ee9-87f6-2ee5703319c9", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[15750, 387, 783, 20, 70, "Subsection",ExpressionUUID->"6c1df202-c4bc-4362-833d-bd704941cf21", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[16558, 411, 467, 11, 70, "UsageInputs",ExpressionUUID->"419d0642-615a-41b6-9b5d-cb331db07dde", CellTags->"TabNext", CellID->157543866], Cell[17028, 424, 573, 14, 70, "UsageDescription",ExpressionUUID->"a8402d2d-5529-499b-8b4c-3257c763e574", CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[17638, 443, 516, 13, 70, "UsageInputs",ExpressionUUID->"4c03beeb-485c-419f-ad1f-e25d3360698e", CellTags->"TabNext", CellID->43734762], Cell[18157, 458, 355, 10, 70, "UsageDescription",ExpressionUUID->"7ae2d354-bf51-426b-80cb-d7cd47fb24de", CellTags->"TabNext", CellID->610737660] }, Open ]], Cell[CellGroupData[{ Cell[18549, 473, 161, 3, 70, "UsageInputs",ExpressionUUID->"629e2278-e852-4f68-a18b-c629c15e6d71", CellID->350331120], Cell[18713, 478, 218, 3, 70, "UsageDescription",ExpressionUUID->"fb511967-f67d-4d3d-999d-8587c7d01e0c", CellID->466838071] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18980, 487, 814, 20, 70, "Subsection",ExpressionUUID->"ae83b180-0a6d-4b9e-ab24-50d81a2954ff", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[19819, 511, 300, 7, 70, "Notes",ExpressionUUID->"dcd55ed6-9685-4e05-ad6d-994405dedda1", CellID->94855542], Cell[20122, 520, 972, 20, 70, "Notes",ExpressionUUID->"d13d2605-55b5-4410-8642-e590d6ff282d", CellTags->"TabNext", CellID->521904482], Cell[21097, 542, 424, 11, 70, "Notes",ExpressionUUID->"af0136ed-1bb1-44ea-bab9-20022e679442", CellID->1713083229], Cell[21524, 555, 544, 13, 70, "Notes",ExpressionUUID->"4076b3e4-6082-4e50-8560-cb669d0af81c", CellID->2013112336], Cell[22071, 570, 1322, 36, 70, "Notes",ExpressionUUID->"a1bb4d90-b128-4784-8391-b29770ac0e4d", CellID->1968696331] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23454, 613, 778, 19, 70, "Section",ExpressionUUID->"f1533c9e-3526-44b0-ab0e-6c380e815494", CellTags->"Examples", CellID->224042445], Cell[CellGroupData[{ Cell[24257, 636, 79, 2, 70, "Subsection",ExpressionUUID->"4ac68832-0718-4586-ad3e-33d7c0519c4b", CellID->462042388], Cell[24339, 640, 143, 2, 70, "Text",ExpressionUUID->"8d5fa0de-7644-42dc-9f3f-f82d194b5af8", CellID->960280716], Cell[CellGroupData[{ Cell[24507, 646, 177, 4, 70, "Input",ExpressionUUID->"01925cd3-a048-4ff9-b6cd-cfe05dcda4c8", CellID->630402579], Cell[24687, 652, 313, 8, 70, "Output",ExpressionUUID->"3566eb01-a632-41df-a213-d76f24149540", CellID->549613833], Cell[25003, 662, 20798, 344, 70, "Print",ExpressionUUID->"a173262a-90d7-4fb7-81d0-4b331ca02014", CellID->356593348] }, Open ]], Cell[45816, 1009, 789, 23, 70, "Text",ExpressionUUID->"b192fbce-2d88-4a4f-b8f1-6f4f826fda51", CellID->47352882], Cell[CellGroupData[{ Cell[46630, 1036, 186, 4, 70, "Input",ExpressionUUID->"a2e0d0fa-2a5b-4ca7-b1e3-1e14f4c31e8a", CellID->916166705], Cell[46819, 1042, 5496, 117, 70, "Echo",ExpressionUUID->"aa3f8fc8-27ec-4a50-9029-ee78c919006b", CellID->431720094], Cell[52318, 1161, 276, 8, 70, "Output",ExpressionUUID->"2bdadad9-6b9d-4531-a5d3-fb6e43d2ecd4", CellID->56314444] }, Open ]], Cell[CellGroupData[{ Cell[52631, 1174, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"91cc13f3-eaec-4d13-94a0-dab4107ab8a7", CellID->740539913], Cell[52759, 1179, 205, 3, 70, "Text",ExpressionUUID->"5f3eb2c4-ab23-4d9c-9f92-2200865be250", CellID->89599395], Cell[CellGroupData[{ Cell[52989, 1186, 471, 12, 70, "Input",ExpressionUUID->"11c9ef74-ab07-4d23-a0b6-0a04ee6212ed", CellID->73746161], Cell[53463, 1200, 292, 8, 70, "Output",ExpressionUUID->"faad36f0-cb63-4b05-83ef-08827ddf6160", CellID->748528626], Cell[53758, 1210, 19967, 331, 70, "Print",ExpressionUUID->"385a8389-288b-44b8-b37f-1afc4b01b592", CellID->408158824] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73774, 1547, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"f1adedd9-30a6-4021-b5dc-d12422792353", CellID->604865522], Cell[73902, 1552, 218, 5, 70, "Text",ExpressionUUID->"5e608976-36fd-400a-bc0b-2e34b6ac2a81", CellID->13078159], Cell[CellGroupData[{ Cell[74145, 1561, 764, 19, 70, "Input",ExpressionUUID->"81c5bd71-c2e7-4809-831b-090977b01fa2", CellID->299482583], Cell[74912, 1582, 431, 10, 70, "Output",ExpressionUUID->"eb26e9c0-b2b0-4b7a-bdfa-b1091ce23019", CellID->269808008] }, Open ]], Cell[75358, 1595, 305, 9, 70, "Input",ExpressionUUID->"ac577ce9-f4d5-4261-b2cc-50efe95f4b80", CellID->1504510385], Cell[75666, 1606, 256, 6, 70, "Input",ExpressionUUID->"710d9ca7-0ed0-4080-86b2-07b70cf4e139", CellID->221753227], Cell[75925, 1614, 111, 3, 70, "Input",ExpressionUUID->"c206bd47-9a9c-497f-a833-5d0c5b31c9c8", CellID->1593583089], Cell[76039, 1619, 157, 3, 70, "Text",ExpressionUUID->"b1bcdbb0-86c6-43c0-9c7b-85b5dc6a633f", CellID->1335215546], Cell[CellGroupData[{ Cell[76221, 1626, 637, 10, 70, "Input",ExpressionUUID->"9dbe9cc9-e206-4b09-b0a8-7c74dd9529d0", CellID->2055318963], Cell[76861, 1638, 5498, 117, 70, "Echo",ExpressionUUID->"7562806e-7cf8-484d-a6b7-f290508e422b", CellID->212528007], Cell[82362, 1757, 302, 9, 70, "Output",ExpressionUUID->"571d0d53-b34e-4930-aa63-d4a3b90d69d7", CellID->417484558] }, Open ]], Cell[82679, 1769, 142, 2, 70, "Text",ExpressionUUID->"9d5ab2ed-3b61-418b-a206-f76f0e40f627", CellID->883515356], Cell[CellGroupData[{ Cell[82846, 1775, 898, 17, 70, "Input",ExpressionUUID->"6dcb0398-2705-4de3-baab-e4c9848d9c92", CellID->891140671], Cell[83747, 1794, 5818, 126, 70, "Echo",ExpressionUUID->"c426291b-5a6f-49f8-aa88-cb66d8612c82", CellID->132956882], Cell[89568, 1922, 391, 10, 70, "Output",ExpressionUUID->"51903fb5-ccea-4f56-b982-40d4b7bff400", CellID->114094073] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90008, 1938, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"fea9bc96-43a2-4b51-97fe-28f3ee264da9", CellID->1543529859], Cell[90137, 1943, 188, 3, 70, "Text",ExpressionUUID->"ae50b3d4-2a28-4869-8cb9-589c23ee692d", CellID->503884453], Cell[90328, 1948, 1062, 24, 70, "Input",ExpressionUUID->"ced63474-4707-4415-9d71-a9e7bef9336a", CellID->917725435], Cell[91393, 1974, 406, 10, 70, "Input",ExpressionUUID->"1e66c976-22f8-44a5-9d4a-822b2aaa2c9d", CellID->1107435246], Cell[91802, 1986, 111, 3, 70, "Input",ExpressionUUID->"ad21cce4-4a1a-4434-9991-706239b1bc03", CellID->423410973], Cell[CellGroupData[{ Cell[91938, 1993, 790, 15, 70, "Input",ExpressionUUID->"25ec9711-b9aa-4cde-a186-75353a18854d", CellID->1855352603], Cell[CellGroupData[{ Cell[92753, 2012, 5492, 117, 70, "Echo",ExpressionUUID->"6e51ffb6-8c46-46e4-b4c2-71d1ff95576c", CellID->1245098665], Cell[98248, 2131, 5491, 117, 70, "Echo",ExpressionUUID->"0f3461db-ca89-4e53-a24f-9f9a8725eff3", CellID->1292606287] }, Open ]], Cell[103754, 2251, 353, 10, 70, "Output",ExpressionUUID->"5fce6d10-f9cf-4925-b739-365380abd7fc", CellID->889292557] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104180, 2269, 135, 3, 70, "Section",ExpressionUUID->"cb706bd0-709e-4754-8784-c86de3b22331", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[104340, 2276, 672, 18, 70, "Subsection",ExpressionUUID->"a5670d79-2ace-4f64-9d84-e259102b6739", CellTags->"Contributed By", CellID->757508554], Cell[105015, 2296, 771, 14, 70, "Text",ExpressionUUID->"bf353cda-dac6-4131-9825-02011052e816", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[105823, 2315, 625, 18, 70, "Subsection",ExpressionUUID->"caac5684-4753-4236-8f3c-901e22197d77", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[106473, 2337, 536, 9, 70, "Item",ExpressionUUID->"252f8ea3-8096-4b65-af8a-2f3a0df63795", CellTags->"TabNext", CellID->123227828], Cell[107012, 2348, 527, 9, 70, "Item",ExpressionUUID->"8aa6a128-e42c-4414-80b3-44160a202bec", CellTags->"TabNext", CellID->123759378], Cell[107542, 2359, 527, 9, 70, "Item",ExpressionUUID->"6d0dd29d-3558-41d4-870f-91f9a000df8c", CellTags->"TabNext", CellID->1812678124], Cell[108072, 2370, 516, 8, 70, "Item",ExpressionUUID->"1eb9e1db-4662-48f5-b08d-8f6afebb5915", CellID->1519023772] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[108637, 2384, 662, 18, 70, "Subsection",ExpressionUUID->"61d24121-6c9c-44de-98d5-175dd08ea55e", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[109324, 2406, 528, 9, 70, "Item",ExpressionUUID->"c21fba69-31f6-4aab-8153-d1e466fde39a", CellTags->"TabNext", CellID->79477165], Cell[109855, 2417, 511, 8, 70, "Item",ExpressionUUID->"eadde7a1-e478-4c35-984b-d5aea68620e0", CellID->1425874794], Cell[110369, 2427, 514, 8, 70, "Item",ExpressionUUID->"9bb5eb91-77f0-4fab-bd40-a2d839ca42b3", CellID->1228044554] }, Open ]] }, Open ]], Cell[110910, 2439, 702, 18, 70, "Subsection",ExpressionUUID->"75860407-9316-42b4-afda-3c29db952ef0", CellTags->"Related Resource Objects", CellID->217060377], Cell[111615, 2459, 755, 19, 70, "Subsection",ExpressionUUID->"085bfac9-9495-4598-b236-0591ba398d06", CellTags->"Source/Reference Citation", CellID->967310595], Cell[112373, 2480, 597, 17, 70, "Subsection",ExpressionUUID->"fa506ee9-8e6e-49d9-8e64-35fe589747a8", CellTags->"Links", CellID->593846556], Cell[112973, 2499, 767, 20, 70, "Subsection",ExpressionUUID->"71553db4-1c3d-45ae-89c4-9b0bbb65f053", CellTags->"Tests", CellID->16051757] }, Closed]], Cell[113755, 2522, 127, 4, 70, "Section",ExpressionUUID->"75f03a34-f6ae-4ca3-8f19-b222814f4469", CellTags->"Author Notes", CellID->795110225], Cell[CellGroupData[{ Cell[113907, 2530, 720, 19, 70, "Section",ExpressionUUID->"ec0ba95f-b3c1-4bf3-a9c3-522819490711", CellTags->"Submission Notes", CellID->843283583], Cell[114630, 2551, 815, 17, 70, "Text",ExpressionUUID->"ecb3585d-045d-4b35-8e03-ea852616b7f8", CellTags->"TabNext", CellID->920818074], Cell[115448, 2570, 204, 5, 70, "Text",ExpressionUUID->"f6991ab6-9af5-4966-b164-d1a0473bac79", CellID->46575930] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)