(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 14.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 140871, 2777] NotebookOptionsPosition[ 137552, 2694] NotebookOutlinePosition[ 139644, 2754] CellTagsIndexPosition[ 139601, 2751] WindowTitle->DarkMode | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756,ExpressionUUID->"71bdbc73-ba7c-40ec-ab40-7c85b28eaaee"], Cell["Open a sample notebook:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7943272811690454`*^9, 3.794327283782906*^9}, { 3.794327314867486*^9, 3.7943273211776075`*^9}}, CellID->544543353,ExpressionUUID->"72a5d58d-31b3-4a47-b05a-bc1b1d300acf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"obj", "=", RowBox[{"NotebookPut", "[", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", StyleBox[ "\"default notebook\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Notebook", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["15296", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Notebook[{ Cell[ CellGroupData[{ Cell[ "Enter title here", "Title", ExpressionUUID -> "ee3419db-026f-4726-b2b7-d3a92d05e54c"], Cell[ "Enter subtitle here", "Subtitle", ExpressionUUID -> "d99f33ea-370d-4f64-a641-e3af9a24df51"], Cell[ "Enter subsubtitle here", "Subsubtitle", ExpressionUUID -> "dd329857-e1d9-48ca-a278-085b189020a4"], Cell[ CellGroupData[ Flatten[{ Cell[ "Enter section title here", "Section", ExpressionUUID -> "0fdd9335-0e15-431b-acbd-11c28b60d636"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsection title here", "Subsection", ExpressionUUID -> "af8cd349-f293-4f49-a2e8-ca18640e6582"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsubsection title here", "Subsubsection", ExpressionUUID -> "5236ac36-da1c-47d5-afcf-8a7f934c3d37"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}], { Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}], { Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsubsection title here", "Subsubsection", ExpressionUUID -> "5236ac36-da1c-47d5-afcf-8a7f934c3d37"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}], { Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}], { Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsection title here", "Subsection", ExpressionUUID -> "af8cd349-f293-4f49-a2e8-ca18640e6582"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsubsection title here", "Subsubsection", ExpressionUUID -> "5236ac36-da1c-47d5-afcf-8a7f934c3d37"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}], { Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}], { Cell[ CellGroupData[ Flatten[{ Cell[ "Enter subsubsection title here", "Subsubsection", ExpressionUUID -> "5236ac36-da1c-47d5-afcf-8a7f934c3d37"], If[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826], DefinitionNotebookClient`Scraping`PackagePrivate`\ addExampleCounts[{ Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}], { Cell[ "Enter text here. Enter TraditionalForm input for \ evaluation in a separate cell below:", "Text", ExpressionUUID -> "291d2748-ecc4-489d-85dd-bb96e2999edf"], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}]], "Input", ExpressionUUID -> "bac32449-53dc-4de2-aeec-afd35d9589c0"], Cell[ BoxData[ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "+", SqrtBox["z"]}]], "Output", ExpressionUUID -> "1bda5283-89ec-4127-a7bf-0b080dfa4d01"]}, Open]], Cell[ CellGroupData[{ Cell[ "Enter bulleted item text here.", "Item", ExpressionUUID -> "ac8991ea-0297-4889-afce-d389d8c6cda8"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "b0c6066a-c32e-471a-b8d7-f0cba9be35d1"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subitem", ExpressionUUID -> "eb093a00-df96-48d4-9c18-279073d71bac"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "39b1dae5-a21e-4ef6-9dac-b57ba3e8b6f6"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "Subsubitem", ExpressionUUID -> "7b482b44-d213-47be-a07c-2a2f68323cff"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "2e886aab-2ad6-4c4b-bf6f-faf4aac2c165"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for display in a separate \ cell below:", "Text", ExpressionUUID -> "2f3a3feb-d947-4b33-91ef-dfeb66119f1d"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormula", ExpressionUUID -> "0911b13a-71cf-4cc0-9db7-024a69dcba16"], Cell[ TextData[{ "Enter text here. Enter an inline formula like this: ", Cell[ BoxData[ FormBox[ RowBox[{"2", "+", "2"}], TraditionalForm]], ExpressionUUID -> "8cb59775-6964-4372-b08f-7c13f178dff4"], "."}], "Text", ExpressionUUID -> "c15b8e12-c058-4966-9f11-c1966cf328f5"], Cell[ CellGroupData[{ Cell[ "Enter numbered item text here.", "ItemNumbered", ExpressionUUID -> "60896739-972a-45a1-a386-15632121d711"], Cell[ "Enter item paragraph text here.", "ItemParagraph", ExpressionUUID -> "9527d0ce-96e8-48b7-9dc0-e9eda56b72aa"], Cell[ CellGroupData[{ Cell[ "Enter numbered subitem text here.", "SubitemNumbered", ExpressionUUID -> "9ed3e0e2-0cca-4e8c-94cc-64b164fd7d47"], Cell[ "Enter item paragraph text here.", "SubitemParagraph", ExpressionUUID -> "1daf0aa5-3fbe-4d4c-a4da-56296230496b"], Cell[ CellGroupData[{ Cell[ "Enter subitem text here.", "SubsubitemNumbered", ExpressionUUID -> "50c97e8c-c699-4762-aec7-6d17b76d114b"], Cell[ "Enter item paragraph text here.", "SubsubitemParagraph", ExpressionUUID -> "5cbfd1ba-3940-4811-a8b7-5c859b54e29c"]}, Open]]}, Open]]}, Open]], Cell[ "Enter text here. Enter formula for numbered display in a \ separate cell below:", "Text", ExpressionUUID -> "3ba2dec7-bd76-4206-9f79-4dd2bbfcd72c"], Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"\[Integral]", RowBox[{"x", RowBox[{"\[DifferentialD]", "x"}]}]}], "+", SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered", ExpressionUUID -> "79278fea-b6ea-4bef-8cd7-41ae53e76b60"], Cell[ "Enter text here. Enter Wolfram Language program code \ below.", "Text", ExpressionUUID -> "19cc5593-17df-4021-8d71-6ef0c396fac1"], Cell[ BoxData[ RowBox[{ RowBox[{"fun", "[", "x_", "]"}], ":=", "1"}]], "Code", ExpressionUUID -> "99a80ae1-83db-4c8d-b97c-1832687302f0"], Cell[ "Enter text here. Enter non-Wolfram Language program code \ below.", "Text", ExpressionUUID -> "9987bee0-a765-4eb9-9b59-e2d7ee883f09"], Cell[ "DLLEXPORT int fun(WolframLibraryData libData, mreal A1, \ mreal *Res)\n{\n mreal R0_0;\n mreal R0_1;\n R0_0 = A1;\n R0_1 = R0_0 * R0_0;\ \n *Res = R0_1;\n funStructCompile->WolframLibraryData_cleanUp(libData, 1);\n \ return 0;\n}", "Program", ExpressionUUID -> "5aee6b41-9af5-4bc4-8a01-79ab897dd5bc"]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$65826 = False; Open]]]}]}], If[ Not[ TrueQ[ DefinitionNotebookClient`Scraping`PackagePrivate`open$65826]], Closed, DefinitionNotebookClient`Scraping`PackagePrivate`open$\ 65826 = False; Open]]]}, Open]]}, WindowSize -> {512, 287}, WindowMargins -> {{Automatic, 0}, {48, Automatic}}, Magnification :> 0.5 Inherited, FrontEndVersion -> "12.1 for Mac OS X x86 (64-bit) (February 29, 2020)", StyleDefinitions -> "Default.nb", ExpressionUUID -> "7a0d9309-eebc-438e-980b-4d1f2e1bfc4d"], SelectWithContents->True, Selectable->False], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.7943269495166206`*^9, {3.7943270990725985`*^9, 3.794327117164505*^9}, 3.819052587744011*^9}, CellLabel->"In[1]:=", CellID->588088457,ExpressionUUID->"8c6926f1-3217-4703-9602-89fbc578ac8b"], Cell[BoxData[ TemplateBox[{ FrontEndObject[ LinkObject["9b8nd_shm", 3, 1]], 338, "FrontEndObject[LinkObject[\"9b8nd_shm\", 3, 1]]", "338", "\"Untitled-8\""}, "NotebookObjectUnsaved"]], "Output", TaggingRules->{}, CellChangeTimes->{3.79432712913935*^9, 3.8190526867532864`*^9}, CellLabel->"Out[1]=", CellID->794080911,ExpressionUUID->"597156a4-53a7-4c43-b2a6-8e61f94842a0"] }, Open ]], Cell[BoxData[ PanelBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3W2MLNd9J+YbaT8IMTZw7DXARbCB5UUSGghiLhzL1MSKvMAq2NAO4Kx2 A1uAAHoTj2TBkgg7QKg1DAnwrrxIpHAoUOB+iFeE4Y0AErAhGBiSskiatDCk RcscS3zJ1eAufXlNkbKGL5L38kqyqEl1V7/U26k61V01Xd31PDi45HSfqjp1 qmfm/+uq6nnzP//gP9l/w4ULF37tTck//+QX/49/+Ku/+osfeuf3J1/8sw/8 2i+/5wO/9L/9jx/433/pPb/0qzf+8zcmD/6fSd83/K0LFyb//67/9T2apmma pmmapo2t3fRPf0HTNE3TNE3TtJE0KUDTNE3TNE3TxtakAE3TNE3TNE0bW5MC NE3TNE3TNG1sTQrQNE3TNE3TtLE1KUDTNE3TNE3TxtakAE3TNE3TNE0bW5MC NE3TNE3TNG1sTQrQNE3TNE3TtLG1yBRw6T+90Enb+P5qmqZpmqZpmiYFaJqm aZqmadrYWlcp4PINb778Yz8sBWiapmmapmna8FtXKeBsSgrQNE3TNE3TtOG3 lVNAUvO/9Jv/Iv3/0w99ME0Bp7d+IH3kpX/565WhYOP7q2mapmmapmnaying 9W9+I638X3vg/rOM1x6cffn6N16VAjRN0zRN07T121kbGx9tZLt48Ssfu/2O xm5Jn5dfernzra+cAl575MH6+X/t4QeGmQI+9idnZ89/5ldWWfaOR8/Orvze rRvfhW53f/LIxOMf2/TYet1NTdM0TdO2t8XX9luUApLy/jvfulYfBGL6rNZW TgGvfOL/Sq/5ee4nr/+bv3wurSO/ffHpyzf8SHq9UNIhJgX8yu89X1Wt3Xr3 82dnf7La/k6XDVeA/aeA6QDOOiitp/V5aQ2/9pkrFcOYjC1mxgq7P5n/TdX/ tz8+maH6I3V29ujtq07d4FJAwytznZYcx/Irc3pw52q3G99T0zRN0zbSdjIF 3NRU5PcXAW5qnwIu/9gPv3rnwfe+/a20Xvj3f/dNr3/j1Sv//T9In/3L/+Gt r3/zG39x/d9Nn026vfpvDi7f8OaeU8CkAM7UioVaq/Bs3ykgV41Xl/HxbVon F8rgWcFW2IVpNIgpmPO7v07aWrulKSA07OkeRaeADo9yh63+ldlVm6XOwisz n+/qNh3fU9M0TdM21XY1BdwULvV7jQA3tU8Bhct+/uK/um5SkP7j/+71V1/5 7l+9+Jf/6Ccn1cjbbih06zcF1BfApWd7TQGlt9bXvIioYvFk/FeeL76BP93u 83f/WvM6yylgY9c4TVLA81cCB3r6wng+Mtp0epS7a9HRbOU2v5qrKgXcfkdk TozvqWmapmmbajucAm6qKvj7jgA3rXBF0N95Y7a8f/bv/e3k36/+03/8jX97 5zd+5//56v/8j5Ivn/tv/8tcBPg7bxxXCsitfN0320ujnb69/Hur79TQUsDd v/d4VX5Jp/ozj0oBdW1x+GKOY3wg3YX7XzRN07Qda7udAm7Kl/3nEAFuWum+ gGf//g/OLvj51rXky+9961sv/C83pY989X/6h9/7m+9MHvzud2cx4Ud+YP37 AmYV3fwSkezbntn3Qs/ml+IsKsD6Z2fbyqy2NJLsFf5JpRpRHU0q2w7PBZTe 5J+tvxAuilvJ73jurMFy9+cX5FRMTu6K/ewk5BLN/MTH9CKo7LPZKa1JQGkK qJzV2W5WXVFTWnPdUa4ZSeC4t9+p9qNqWDY44eEWkQLiI4lzAZqmadrw2tmu p4Cb5sX/fX/4h+cQAW5aLQX8yA+k5cnk80JffaVwmdClH/iPvnv69Us/+Ib0 yyQydJMCsqVa4Wr5+veBI56dl0/50jqt+vKV9llzSV8e+Xr33ubHnws41fs4 HWdmSqdjWOaI+nMBs6nOVp63P57pkKvY57eUzncwnczs1UrVNzIv15wOrHQZ 1WIO8ykgPJLqo1x6zRT6Vx731jvVdlT5o5Z7gaX/X7PC2lddy2vVOuipaZqm DbmdtbHx0cbsTuc9B9jSCJD8ew7bWvmKoMs3vPmVg3+d/M83f/ffPvv3/va1 o0dee/D+Z//z/+Sb/++nkgdf+b//1XM//l/McsHaVwQV6tjKcn2lFFC6XOf2 5dUpFZeU1Ne0hcHPrF9NZQeZKfYyQ82WbVVXwlSdWMk8VUoBdWPOLl6+GaF0 pGqvzFnsQuEYTb5MV1K85zc0kkAKCL1m6o77mjsVn0Ajr1mK69aUAgohqKbF 99Q0TdO0c2xjSAEDPxewqG5f/w//4eV/9RuXfvANyYN/85fP/fv/7D9+9oe/ /9v/31OTbj/0t17+1x/53mtXlycIOrkiKDtLLd/tr362fOXD8pHK92CzD+Yv 21hUzoXzFFUf8pPbx/Iayi+JRWW+LI9/IVMhZ+eq+q3jcEyoSgGhw7GQSwHl m5QbHlm2QOaa/H9md/KzVz2SmPsC4o77aju1wqjqAk5whcFWlwLS0yIxhX18 T03TNE0757bzKWD49wVcvuHNr/6bg+99+9uLCuV73/2bSTp4/btn3/te4eqg ySeF3nlw+cd+uCEFVFSJ55cCyuJSQGWr+ND+Dq6vqL5yJnfZzHxUgRFm7lZo mwIKlWHpXEA3KWAZcEpXN+WuhgqMZIUUEDjurXdqxVGFr72vW2GwhVJAehlb zIdHxffUNE3TtA203U4B2/EZQfm/Gpa69oWjK2/7sefecv13Ln1l8WCLvxpW USXmqtnzOxcQGEDtg5lWecnQ7ZWfgdOqzbabeZM8M3W59Xd9LqB2brtMAfNQ kz83lEkB69z90eK4t9ypzl97K37YUWUKKN4hUv8C2/xHKmmapmlauO1wCtiW vxewaK898mD2fdTL/+DvX/mp/yb7SNIhJgVUl0P5yrmvFFD3MZ5Vfzup+ZLp 0LmAdd9indb/jxevIZm+f/7on+QuqergvoC6FJCblk5TwPLPBxTujQ2kgPwB apUCaj++db0UED+qwBjqVxhsFSkg/s70Du5h1zRN07Se266mgC3628GL9vo3 Xp1V+w/enyv+H5h9+fo3vxGVAsp3XxY/O6UpBVR+Tmbks8Xr9u94NP9U8SOD ov5qWPG+gPUvtJ5/cE0hTcw/zTJbTKbjLH5G0LLGa3lFUPlPIfeWAma7U/yc 1dxnH4U+NqrhNdDiuLfcqTVGVXiBzT4jqH6FoVZOAfXnrbLhwl8H0DRN07ag 7WQKiCny+wsCK6eAZIZf+pe/nv7/6a0fTKvR0w99MH3kpd/8F2eZm4LrU8Ck 5T+7vnBqoCkFZBav/FT2yGfLmy5+pHxcvVS7Lyu2Um2/nIeKTdTdW9r67uD8 n2no7Yqgeefc2+P5W2jDI2k+ytHHvfVOrTWqzF8lyJ/1CK6wulWngCrpsIsp INxT0zRN0wbRqn9ZBWx8tJHt4sWvxJT3SZ+XX3q5862vnALKoeCsquyPTQGa pmmapmmapp1X6yoFXP6xH758w5ulAE3TNE3TNE0bfusqBUS2je+vpmmapmma pmlSgKZpmqZpmqaNrUWmAE3TNE3TNE3TdqZJAZqmaZqmaZo2tiYFaJqmaZqm adrYmhSgaZqmaZqmaWNrUoCmaZqmaZqmja1JAZqmaZqmaZo2tiYFaJqmaZqm adrYmhSgaZqmaZqmaWNrUoCmaZqmaZqmja1JAZqmaZqmaZo2tiYFaJqmaZqm adrYWpoCzgAAgNGQAgAAYGykAAAAGBspAAAAxkYKAACAsZECAABgbKQAAAAY GykAAADGppMUcLh/4cJbbzvpZEDbuH2GJ/ua2JbXx7aMs5Wd3KlWzEDA1k/M 1u8AMHoNKWDyY65o/zB54uS2t/ZZZVVsd7rZcO/59nMDW8t0TTVbHZbgkdoF 00OR1XyAO0wBpa33NbG14+zuhd08iC53t59K6bxmo6A0OTFD2IpacbpnpQNd Pc2LvmsehU1PTGj70T/5N70DAOuKSAGVP+bOIQXEr7EmBUyeWrGI2UAKWGO0 w/2FtMZOzRcvrOBw/9xSQMXWJ4/187IYTArocjMdra/wKtpgCshsNc2HTS+G 6Bkof6es+b3TRlUMmOXfwuCXPxilgKH+0AWIs2oKWKFXG6ungLx1KvnzTwHr bHGwv5DWmsbqdyhjl1w3Bay+9dUM4hgOMwUM5MRcaWdi6uDYGSjv47nudcUw k4fe+tbKQXXyCtn0610KAEZPCgiSAjqxxk51NR+rzc35H/9BHEMpoEZ5ZyIG tiUpoDzO6ZmI24pj6O4FsunXuxQAjN7KKaCuyspeSL3aD8mGH6+FDeR6L74o XsPb9rdp/nfBbLWZLZffN6veVmA2ZitMF3vrbbetOdqmX0j52ShcYJMbycly 1zMLpUtk96Vcr5SeWu8QxP0yrp/eqLmpFHUioDx1oanI7E+uQ0V9FZjk6veh 6+d8hQoyMFlVD2ffFQ7udWbBxjK3xauoPJ7mV3j4m3f1yVm+TGJmoLSX2Zdo fvjB753wT9c1D33xTf7Z5UiFY1T9w/YsapLrfm5X7EJoqxVjXSkvxaeAiB8y jd/dAAPUfQrI/Xxe9c2smrqteC3u7PdG5S+mDs8FVG1m8WzpZoT8r+zK2Zit sJQXejgXMN1U4ZdX4d6JC+V6tbR/2WsDSnsc+N24xk7FXHlQP73rpIC4YVcc xPBUzGe1MDcNr7GaF3buu6Dibs3M6zBeaLLKqSg7ReG9bpEC2ryK8k/HvcKr v3nbqE5is1gSMQO1Px5jzgUEF+/i0Fe+71H7E7X4XVYzyU0/txsOYsXLoXiE W+9xZAqI+yHT+N0NMECtPyOo6qdy3S/61U6alrdb9YN3Jv8LsM8UUHo3alED VW+lbjYqKpF1U0DzkarcUqC+K10cUH4kcGC7OQTNCzZNb7cpIDvDucqnbozl OqHQu1RHhV5jMXu0Ui1UsY7Kb73ijEy+jngBtDkXEFxJ/c+VuFd4cGJbKGwp fPhX+fHYPD01i3dx6Euxovy9VHNiIP7Vm32++ud2xRqKwWp6qVJ27e33vvxS r/iFE/tDpvG7G2CAOj4X0NWlrcHtVj7R8M5bZymgfP49+7sxcAI8NBuhX4td nwuofiL4+7V54KFH8ldEnEMKiJ7ebs8FRKy5eioqV1l/IALbqk2da5Yd4clq +oao3uuWKSD2VRSoxapXXT+xLRTrxqpv4JoZqJ+AuAumAh26OPTZWJPLeIvX W3EE9d8LTceo+Tsp8FZL8r9vTS8oSh+oCaRNe9t0LiD6h0zjdzfAAPWRAsLv q0TbshQw/7Kwt7WzsdkUUPidumYKSPe960PQVKlFT+9KJV/UhFa/KgJT0VkK qJ3SitdhKzWTFT79VbPX8Smg1auoMQXUv8LXSAHhn4eNM1D/4zEuBdT8dF33 0GfGGrhWqbj/faeA3Mts8f9pCFj+d8UQEJ8CYn7ISAHANur9XMBqtjAFZJeK rdZ241xA/VVga+xUQ6kWPb2rlXyhperW3PKKj7MeUkB2vd0WutkncyEg9nKd 2pdVy1fR5s4FNNWNpY6xB26FcwHh9ax6WmA22MLZptmWS7t/nucCFl/Mi/95 DFg1BKx4LiCwAikA2EZd3x3c0Y+94Hbz15IuOw8mBZzF/tY/rxRQ+UzDJbvr pYD8MVr7EIR/wcdO74olX2DrbVJAbhVV62s4EGt9l3UbfrLPHubrrtq9rj0Q 02/d6hTQ8CpqOr4tJraF2BQQmoHaA9f8XRf9vbTi7s0X3d/frxjJW/f3i+V2 dApo+XM7s9VCCpp+mlr2Oyr3QPtdbTyasT9kGr+7AQao+88Iyvxin33d7RuS 6Wnv0lU3gd8ma/w6bJECcp/IETkbVSNb85d3YNHSe4OFQa2bAvLrm12W0Mkh WKyuOPPZSWye3tVHUHixTQRL3PKAClMxf6kWLqSpOxD132W5RdMLNkKvw3a7 3HACZvJpUdF7Hf52KMxHu1dROey3eoV3PTmrzcBZ/sdjxDCDi3dx6KdKP1Bz +1SoaaNTQPPP7caDeLZ48RWX6fpnZuGHXdwPmcbvboAB6uXvBcx/Y6x+jWp+ DcX1ZK/VnGy39NumcjBtx9EqBWQHGvj9WRhF9dSuPNqI4i00wrVTQG71by1/ DvjKO1U5+MKKIqZ3vRxS3nptwglPxWzGcuvLzUiLFFDa8/kF0+HXYaT6b735 /lVe+lC514VhZ/d+NhelyjDmVVSajXav8O4jUvQM1P14LH+n1DySe7iLQ5/d kdIaKgJxqxRw1vBzu9Sjai9Kb7hXvxojxZ7Zifoh0/jdDTBADSkA6IjrA2BX +e4GtlFNCrgQ1uuQNrXdmjGc23bP3wYnuV7Ny2CzL8KVB7DVdcIQvis3a7dn IOYFv0t73fk+bvV3NzBazgXA+VAnwK7y3Q1sIykAzoc6AXaV725gG0kBAAAw NlIAAACMTZoCvgkAAIxGmgJeBQAARmP3rgj6IwAA2DlJobulKeCzU3333/Tx AQCA7p1JAR31BwCALSIFdNIfAAC2iBTQSX8AANgiUkAn/QEAYItIAZ30BwCA LbKTKeCz0VZbPwAAbDUpYIX1AwDAVtvJFHD+/QEAYItIAZ30BwCALRJT3t98 881SAAAA7IyYCJCSAgAAYDdERoCYIHCeKeCBBx5IqvTvfve7kf1bVfWvv/56 0vkP//APVx0dAAAMWnwEaAwC55kCPv/5zyeF+tWrVyP7t0oB165dSzo/8sgj q44OAAAGLSYClL/ceAo4Pj5OCvWvfe1rfaw8WW2y8mQTfawcAAA2LiYC1Dy4 qRRw+fLlpFD/8pe/3MfKk9UmK0820cfKAQBg4+pTQOTj558C0ot2Pve5zyX/ 0+2av/WtbyWrTVb+2muvdbtmAAAYiJoU0Pap80wBiS996UtJrf7nf/7n3a42 WWGy2mTl3a4WAACGI1TqVz5e/+w5p4BvfetbDz30UFKxP/vss12tM1lVssJk tcnKu1onAAAMTU2139Y5p4DEX/3VX6Uf6fncc8+tv7ZkJcmqkhUmq11/bQAA MFhbnQISTz/9dPopoMfHx/EfHFqQLJheCJRIVtjtCAEAYGi2PQUkXnjhhT/6 oz9Kbxb+8pe//LWvfe2111773ve+V79U0iHplnROFklvB05WkqzqfMYMAAAb tAMpIPHtb3/7ySef/OwaksWTlWxk8AAAcM52IwWkrl27dvny5ePj40ceeSS9 wr9G0iHplnROFun840YBAGDIdikFAAAAMaQAAAAYmy92RAoAAIBtIQUAAMDY SAEAADAcp6enF8OSZ1foWSYFAADAcCQF/B+EJc+u0LNMCgAAgOEIvcN/dHRU qO3je5ZJAQAAMHzpO//1tX18TykAAACGpvw+f/oO//HxceOyUgAAAGyj0DX/ SRaIXFYKAACA7eJcAAAA4L4AAAAYGykAAADGRgoAAICxkQIAAGBspAAAABgb KYA+nbz8ifc89fa9p9538PLJGqu57z1/+n1vSNul+zob3BA3CgBwLqQA+vPy +964KKT/9O0H11ZekRQAANCpEaeAw0vfl6lRo9p7Xu5zQDunMMN7X135dIAU AADQKSlACujNyVff/sZuZk8KAADolBQwlBRwcvDUbDzbkDUiR3tyeCkNAm9/ T/WJgMj1SAEAAJ2SAqSAVXQ1WikAAGATpIB1b1ztihRQ000KAADolBQwlBSw rDm3IQV0NdrI9UgBAACdkgKkgFVIAQAA20wK6CMFXLvv4NLb95Y3FLx979J9 J/WbuPaJvY2lgJPDr75vOdqn3nfYuERXo41djxSQ1f54AQAUSAFrpYBFobhY Q1KhvT1w0/Hby4XuYRIWngr1j7grOY0bTy1vc07W9p6v3hf+XP7ygO97z1P5 u6Sf+kRo8fajrS6ku1pPR3PSOFe5jZ5cu2/y15BzEe8Th5Gvn/M8Xp3NAwCw i6SALlPA8l7XQCtuKPJziqpSwMnBpZpCOkkcleVe84Br/rZX+9GGUkA36+lo TkJKG53W1eGIV7/y8zxe3c4DALCLpIBuUkBSsi4qtNw7ricvf2IvW4Pli9gV U8C1/DoDrao+zF2HP9/6pCycdz2puXJp0Clg9TkJyW+0ef3hV9F5Hq/u5wEA 2EVSQEcpoK4UzBVmgau4X37fGzP1XvxGp5ejLDNHEjqyV4yUVpWpKr86HVX4 +p86saNtqt67Ws9acxKx0czxzVTgZ4U19zC2tserj3kAAHaRFNBlCgiup3lb sfVw9pqQ0OZOlpsrFo2FAa96Y+mwUsCacxKx0boFs93K83mex6uneQAAdpEU ENcCNWquSKurYxvL3ch6uHXZXKgGowdcb1ApYN05idjodLvhm6bDb7Cf5/Hq ax4AgF0kBXSVAuo/uyZzUVD1JdlRJVzmzd6mj8pZ7F1+c5kBr/NW8IBSwPpz ErHR+rnK7EV+zed5vPqbBwBgF0kBW5QCWn1K/2KFuYF19Bn4w0kBHczJqoOv GkPu4J7n8epxHgCAXSQFrHVpxPmmgGWfiOv5F51z7yHvXAroYE5WHfxC6OCe 5/HqcR4AgF0kBWxPCjgJ/j2y+pYtC3ctBXQxJ6sOfiFwcM/zePU5DwDALpIC ticFtLqEaSQpoIs5WXXwC4GDe57Hq895AAB2kRSw8ylgp68I6mJOVh38Qrcp YKXj1ec8AAC7SArYnhSQueqj/wHXG0wK6GJOVh38QvMVQb0frz7nAQDYRVLA 9qSANn9feO0B1xtMCuhiTtpvtKD57uD+j1eP8wAA7CIpYItSQONKOhxwveGk gA7mZNXBN47hPI9Xj/MAAOwiKWCLUkD2L0OteF/nzqWADuZk1cEvBA/ueR6v /uYBANhFUsDwUkDde7mZbiuV8d2ngNp3nlukgNXXs+6crDr4hZqDe57Hq695 AAB2kRQwkBSQ6VD7yS3Zt3y/b+/SfTU9D79afrajFBA72qbNdbOeNedk1cFX 7UXp4J7n8eppHgCAXSQFtGrFSrXDy7ZzJdwbLn3iZB5MTq7dd3itelVphHlP UtFlOiT9Dy69fa96Wx2lgNjRNm4ucj1Nl7usNSchHR3c8zxevcwDALCLpICh pID8FR35VlykWOzVDLhQM3eVAiJHG7G5uL0uHqzy2lafk5B+TvT0fby6nwcA YBdJAcNJAblPfa/f7qTv4aVA58WGLuXeB2434AgRo43aXNReF8JC9eVDq81J SLcH9zyPV7fzAADsIilgSClg2nN5zcZ0i2/fu/SJg5fDteVX37f3VLbke/ve U+87CF713WUKiBht/Pw07/XJy5/Yi/oYnLZzEtLHp3Se5/Hqah4AgF004hQA AAAjJQUAAMDYSAEAADA2UgAAAIyNFAAAAGMjBQAAwNhIAQAAMDZSAAAAjI0U AAAAYyMFAADArjo9Pb1Y5ejoSAoAAICdlNbwIVIAAADsntC5gFTybOMapAAA ABgbKQAAAMZGCgAAgLGRAgAAYGykAAAAGBspAAAAxkYKAACAsZECAABgbKQA AAAYGykAAADG5vj4OEkByb81faQAAADYJUdHR0kKSP6t6SMFAADAcJyenl4M S55tXINzAQAAsF3Sq/pD6q/2z67BfQEAALAtQucC0ut8pAAAABiPmNo+vqcU AAAAQ1M+I5CeC6i/2j8lBQAAwDYK3R1Q/8k/2WWlAAAA2C7OBQAAAO4LGI3H 7/iFxB2Pr7j4849/5o7PPP58/xvqcCUAAFQbZQp4/jO3/kLArZ+JqXO30np1 dbp01PJSAADA0EkBHaSAacU6+II1uq6u3J10zm7NP1y941IAAMDQjTgFdPa2 f7q6wRessXV1/O4EekoBAABDJwV0tbrBF6xSAAAAM1JA2PJ6l+cfv2NxDdGt dyxvka28tCi33sk9tctFs8vmN7HsV134TkZwa/Vqqvem/Oh0W5MHsmO6NXp3 cmV5fM/oqaia/Okac7teudQ6k9xuVAAAO0IKCEsL0TvuKBe88yKyIQU0h4RZ gTq/9TYwqqr1LK/Qb5cCbr21Yl2zXj2mgOapqJ78z5RnvxAv1pnk1qMCANgR I04BjfXfomy8dfERmc/PHstVooH3vtOHb818uubzjxdL88wmwm9CF1c0ffs6 8252mxQw39Z8d2YzUe4Xc51PdM+YqahcSW6xqslfZ5JXGBUAwI6QAppSQOHB ipq7shie9iuXk4WHq0JFyfLimJq9iU0BpfWUHu48BcRNReVKfiFftxd3ap1J XmlUAAA7YsQpIO6KoFKRG3qnu9Avc/1J2aJv1D2ws9CyfAs/Zm9CKaC8rWIM 6DwFxE1F8+bKj64zySuNCgBgR0gBYeukgJo/SdBcoFaNOH8/b90b5KFHQ9sq 9uw6BURORfPmSo+uM8mrjQoAYEdIAWHrp4AVNxEa9uR+gFntmrnEfTtSQNuL bOJTwGqT3PGnxQIAbBcpIKyDcwFN9f1Kn4o/v0Io90E3K6eA0kh7OhfQcidb nAtYaZJXGxUAwI6QAsLWui+gUKq32kRpvMV1VH1qZ34ls6vem1NAeel+7g5u +7571OSvM8krjQoAYEdIAWHtUsDyvfnncw/n/8zY45+5ozFAVA0jczPA/OM9 F+NfbP/x7MmBQArIf+7pvGf07lSkgIieMVNRtdfNk7/OJK8wKgCAHTHiFFCt 8SMzw9XwXNN9sZmiMyYFZP9wcdVWqrZz6+yPZFX91bC6Xa7Znaqh1vVsGmJx KgqiJ3+dSW49KgCAHSEFhEvi6EI0V6nfeutnMs89P3lm+dZ88Y+DRX9G0OOZ P6JbWks+KcyerU4Byaay61qeF2jcncB1NVU7Pv9Eo3y8aJiKghaTv9YktxsV AMCOGGUKAACAUZMCAABgbKQAAAAYGykAAADGRgoAAICxkQIAAGBXnZ6eXqxy dHQkBQAAwE5Ka/gQKQAAAHZP6FxAKnm2cQ1SAAAAjI0UAAAAYyMFAADA2EgB AAAwNlIAAACMjRQAAABjE5MCXu2OFAAAABsnBQAAwNhIAQAAMDZSAAAAjI0U AAAAYyMFAADA2EgBAAAwNlIAAACMjRQAAABjIwUAAMDYSAEAADA2UgAAAIyN FAAAAGMjBQAAwNgcHx8nKSD5t6aPFAAAALvk6OgoSQHJvzV9pAAAABiO09PT i2HJs41rcC4AAAC2S3pVf0j91f7ZNbgvAAAAtkXoXEB6nY8UAAAA4xFT28f3 lAIAAGBoymcE0nMB9Vf7p6SAnffYPR//+D2PbXoUAAB0LHR3QP0n/2SX3YEU cOWeD/xs3gfuudLHhtbx2Md/9mc/3k1BHr2q6cQE5qLVeDocPAAA63Mu4Cwt dtvW/Ulde75R4ZxSQM1+5Z+SAgAAdskI7wuQAnLPSQEAAOMjBSykZe9j93w8 vWDoA/M6dlLTLs0evTLvNul3Jb+G6TPFLTw2779coDCQXO08/eKeZKEPFDfS 2arK+7VYrOap+RxW7P5ZfvNXSjNZs2zl1NVvBQCAlUkBC9PSd15uTq+RX1Sv hUXSL2cdM/Vxbg2ldc/X/Ng9kaX7cjDTrzIb6WhVdYs1PlXe/eJM3hOcyZip a9wKAAArG2kKqLo3OF9p5qrgfElcuIxm8mS6XLBWnS5feqbxDfzMAouvO1zV iikguPtVWyisKX7qmrcCAMDKRpoCQucCYlJA+TOGfrYpBcwX+sDk3e7CKYX4 0v0DmTfXu1tV2xQQ3v3mmYyfuoitAACwMilgoU0KqC5Im65bmd90kLnqaIU3 8Dtc1aopoKEer00BcVPnvX8AgD5JAQttrgiqrlCjrl5frqtF6V495rVXteoV QQ17WXtFUOTUuRMAAKBHUsBCTQqYfc7OlcxzmYjw2Pye1pr7Aj6++DSfQj09 f5f8sdlb+5kNzm+OvfJY5gbbDldV2q+Kjxaqeiq0+zEzGT91jVsBAGBlI00B VVec16WA5YdWLi7ByXxc5z2PNbzTPa3MFx96mUkgjy0+TPOeK5OiPluDJ4X7 PZmne1hVcb+KM5B5Kp20zEf9VOx+Zig1M9li6uq3AgDAykaYAgAAYOSkAAAA GBspAAAAxkYKAACAsZECAABgbKQAAADYVaenpxerHB0dSQEAALCT0ho+RAoA AIDdEzoXkEqebVyDFAAAAGMjBQAAwNhIAQAAMDZSAAAAjI0UAAAAYyMFAADA 2EgBAAAwNlIAAACMzfHxcZICkn9r+kgBAACwS46OjpIUkPxb00cKAACAXeJc AAAAjI37AgAAYGykAAAAGBspAAAAxkYKAACAsZECAABgbKQAAAAYGykAAADG RgoAAICxkQIAAGBspAAAABgbKQAAAMZGCgAAgLGRAgAAYGykAAAAGBspAAAA huD09PRiWPLsCj1DdiMFpHsBAADbolyB19e02f7xPevr521PAfVpCAAAhqb8 jn2opj06OipU7PE9Qy7uRAoAAIBdFVOx99FTCgAAgPNRfp8/fYf/+Pi4cVkp AAAAttHFwDX/SRaIXFYKAACA7eJcAAAA4L4AAAAYGykAAADGRgoAAICxkQIA AGBspAAAABgbKQAAAMZGCmCDvv6xdzzyMz/0xY/dv+mBVGg7tq9/7IeS/o90 ty+drxAAYEEKYGOufPKLPzMtdH/mg1/f9FiK2o9NCgAAtogUUO/q3e94ZFYN VrZ3XL6y8rrvf2aYBXD3gns6gHMBbcdW018KAAC2hhRQTwrowpD3tO3YpAAA YBdIAfVmKeD9n7za+apn15wMszbu1JD3tO3Ywv2lAABgi0gB9aSADgx5T6UA AGCUpIB6rVLAtGybXSN09bEPfvH98wuH3v/By49dWvZLnqq8vqhQ7125/5n3 L65HescXP/bJr5euPsps8dLX756vtrZuzA/sHc/cfX/1rkVsfd7z0tc/9o7l HmV3tmlP6wrdK/dfzqz2i+//4NevXCr3ip3zsrZjW29fYiezuGs/9MW7L013 7ZPPxOxaV6+ZlQYMAGwRKaBe+xTwQ888duny+yvKxWcem/d77IPVdxlkKrHA /QjF2xAqt5jWjTUjLLZJgV211xE3QVwN1MZfvPv+mD0NVc6h2zHK9xHHznlZ 27F1vC/Nd5TMU8D96X3KjbvW1Wtm5QEDAFtECqi3QgpIS6ble+xX0vtJSyuZ VZVV16LMC86k6J0vcmlWCuZXMisUJ2/bvuOZ+re+M6td9py+3x4YWPPWl4Vx JkdMc0G+YgzvaXXlvBzAJ69eyQ+glHHazXlwTtqObYV9aZrM0ArnqSru5bT2 a2aNAQMAW0QKqLdSCii9a1pZOgbryVmZV35Lf/4ubsQWa/al4Trz+K33VGnP Vxt8Uz23s+3mfN2xrbgvMYeybJECirV6xRi6es2sNWAAYItIAfXqPim0VP0G rwyf3VIa9w55+nhlaZ0+lVl/qxtIoxJN/NZn448IIK0q57rVVtSo7eZ8zbGt ti9xh7Ksxa519ZpZb8AAwBaRAuqdfwqovcl0up7Mdlt+jMzi3fvJpSCVWSB+ 67OeMWdJ2lTO9astPzvkFNDqUJbF71pXr5k1BwwAbBEpoN4qVwR1kgJq2uop IP3sl8zV5qUP3onfeotNd1U5Vx2OLUgBcYeyrHUKWPs1s+aAAYAtIgXU27UU MBvP9KbgRRZY3gcqBdSNbcV9kQIAgOGRAuptLAXEFfbr/WGpS1fnHxe/uNI+ foWuCIrdl1Wvpe/miqD41fo7ZQAwJlJAvfNPAXV3aMZvMVpxB+O37u7gyH1Z 9f3zbu4Ojl/t2gMGALaIFFCv/xRQLlODn9bYYouVrtxf/guwpR2M33rwIz0n ZxmyX4UL+84+KXTdFBA5thX3JeZQlrXZta5eM2sNGADYIlJAvR5TQKbcTVd+ tfDW7vTPZi3r9iuXvn73B79Y9Reg4lLA7G/FTu4CWP6Fr09+sVz1RW99+QFK 7/9k5q+GfXJyA3KgsC/saWd/NWzlFNB2bGvsS/1klq0UKtd+zawxYABgi0gB 9eo+KXTaKv4eU3RFWrwZM1Nlhbcb90549b7M7gJovOUzcus1PbN3HNfsaWj8 Nast9Fw7BbQeW6h/NhNVZ6WmyVxz17p6zaw8YABgi0gB9XpNAZO3uDOV+eTd 19xSk0/yWdbtVR/y3/6TQidvqufWeff91W/wRmy9smf500dr9rT2A+pjVttB Cmg/ttBRm51tqbhrIH4y19y1rl4zKw0YANgiUgAAAIyNFAAAAGMjBQAAwNhI AQAAMDZSAAAA7KrT09OLVY6OjqQAAADYSWllHiIFAADA7gmdC0glzzauQQoA AICxkQIAAGBspAAAABgbKQAAAMZGCgAAgLGRAgAAYGykAAAAGBspAAAAxkYK AACAsTk+Pk5q++TfTnpKAQAAMHxHR0dJbZ/820lPKQAAAIbPuQAAABgb9wUA AMDYSAEAADA2UgAAAIyNFAAAAGMjBQAAwNhIAQAAMDZSAAAAjI0UAAAAYyMF AADA2EgBAAAwNlIAAACMjRQAAABjIwUAAMDYSAEAADA2UgAAAIyNFAAAAGMj BQAAwHY5PT29GJY827gGKQAAAIYgvrZPK/OQrmr7+J5SAAAArCa+tg/lhaOj IykAAAC2yNBq+/ieUgAAAHRrU7V9fE8pAAAA1lE+I5CeCzg+Pm5cVgoAAIBt FLo7IMkCkctKAcQ6/tCjv/KjX2nOl/167f53JsM4vv/ZYW1x5ckZxqwCANvF uYBBp4AXf/v4V65ParxCa1PyPXvlo9efZ8VbZwP1asXu95wCYrZYdVCkAABg o9wXMCDTFLBevSoFnPPux2xRCgAABkcKGJAOUsCDX1l3Dd3ZQL16/rsfs8Wq PlIAALBRUsCANKaASQX4oZfOnn3p/g/Nrx1656IgTC9EybR3XnlxseSzL931 zswiz5bWeZZ0mDz70d9+rbjVZ2dPTZc9vuvB15aby24iXVXmkVm9mhntRz90 JbvpwJobBpw+u5yBHz2+67dfejG8+xVlc37l9z+Y2+XaSc6K2eLqoyrucmFW z147rhneCoc7busAwK6QAgYkKgX86PFHF0Xa5FKTtKibq3xretrto5NSOfHa cX4r09I9s86il+6abiKtXV988Ct3/XarFPBoZrTTVS1L39CaGwY82+v5hl58 8MpywZh33dOVL7Y7vRfjrgcL/WsnOStmi/GjCu1yYcHp8ZqFl/LwVjjc0VsH AHaFFDAgcSkg98ZvRME5LddzRWzukbToDW50ssJckZxbScy5gNLaZu8/1685 OOCK7ebXX19vB4adGWfzJLfbYvSowseovGB2ba1WVXW4W2wdANgVUsCAVH1G 0HG43lsskulTLjinb/MWiu1sud5wnfn8jffSmYKVUsD8/f+6NdcPePaudemy pVRjvV25eD6PNE9yqy1Gj6rmGNWtvDC8FQ53m60DALtCChiQFc4FNKeAaYlb +vTR6BQwvVbno9cvru1Z1M+rpYDcUtVrrh9w8AxCYPcLw6hcPB8NNpACmo5R 3coLw1vhcLfZOgCwK6SAAekvBQTL5tjPnHltUrG/M1scrnEuILdUac3Ndf5u poCaY1S38qoU0O5wt9k6ALArpIAB6SUF1F9C0/KTJzP30q6UAsJ32i7X3HzN Ty9XBG0yBTQdo7qVV10R1O5wt9k6ALArpIAB6SgFFN7Xrb2dtu3nz2euIS8t WHyfPzDawNvOyzXXD7jx7uCqS9zXuzu4KQXUb3HFUYU0DW+Fw91i6wDArpAC BqSDFDB/sz1X0RXvw33t+ENXaore4pCWnyr5WrbzvKRPP6/ypfvfeXzXh46r Pil0tt0XH8ydCKhZc/2Az9K7CZYfMXrlrsVGq3a/9pNC00/FLH9SaHQKiN5i VJ/QLtcsGHoNtDrc0VsHAHaFFDAgVZ8RlPuYoJgCdXHL7fQvds0fzf5NqB89 zv71rqbPCJr8dar5Ch/9aPFPUOX+ztS0sM+ngKT0nVTpj2b+vFfUmmsGXHz2 nbnVlnd/lb8aFp8C4rZYcVDyf/WgeZdbDW+Fwx23dQBgV0gBAAAwNlIAAACM jRQAAAC76vT09GKVo6MjKQAAAHZSWm+HSAEAALB7QucCUsmzjWuQAgAAYGyk AAAAGBspAAAAxkYKAACAsZECAABgbKQAAAAYGykAAADGRgoAAICxkQIAAGBs jo+Pk4o9+fece0oBAACwKUdHR0nFnvx7zj2lAAAA2BTnAgAAYGzcFwAAAGMj BQAAwNhIAQAAMDZSAAAAjI0UAAAAYyMFAADA2EgBAAAwNlIAAACMjRQAAADb 5fT09GJY8mzjGqQAAAAYgvjaPq23Q86/to/vKQUAAEBWfG0fygtHR0dSAAAA bJHtre3je0oBAAAQY/i1fXxPKQAAAMrKZwTScwHHx8eNy0oBAACwjUJ3ByRZ IHJZKYDz99e/87bDt7zt5PJ2rHYbrTYVJhAAtoVzAVLANtrVFPDCdABPPLz5 DUkBADA2w6/t43tKAUEP//LhT76p2N59+19HLXzvE2950zlUqjV2JQUUZ7K3 FNC4oWIHKQAAxmb4tX18TykgaJoCVq02pYCunNtMNm5ICgCAsRt+bR/fUwoI kgLOcbVhUgAAMBTDr+3je0oBQbUpYFLLvfv2v75878lH3la4WGjyVOVFRLnO v/zC5fyqzk7SZx/5nZPS1k4yC77tiYdPlgu+5ZdfyHZ7d34Yk2pzudFHPnL7 C5c3ttqaGSg+9Za3PTGdhMqZrKiiL9/7xLuXqz3JbLHmMBWPZu2G4kcS3MHs tpLpvXzyQmhIbV8nERsFADox/No+vqcUENSYAtKaMy26Lt/+yFvedPiRe2dP T7/MLTt95JGP3Dut905eyFTaaTH5yEdC9Vu+CH/49id+J7pcz5aFk1I5W3Ce 92prZmA2e++epYnyUnXvwM9nfr7F9Khl9qXmMGXFbaixQ/UOnuWXSmr4d79t llaqXjktXidxGwUAOjH82j6+pxQQVL47OFNfld8HfuEj2bf9ixVj7tmJSbX8 yOId77pLRCYXolSdIIh80764R/NRnfdqa2Zg8lSodm2qvUurza2t4TC12VD7 kSx3MKt+SG1fJ5EbBQA6MfzaPr6nFBDUeC6gXMvl39wufLxMoTab9J++A9x4 ofik509O3+/N92ldrk+HsXjb+XxXWzMDucWLGmrvqtCROXANh6nFhlYZyeIQ Z9UOqe3rJHajAEAnhl/bx/eUAoI6TAHpVR/lzx2NSwFn0wtdHnn3m3IXt6xd rp/ramtmIL2mJfT2dX3tXbls5sHzSwG1hzirbkhtXyfRGwUAOjH82j6+pxQQ 1PO5gJpVBV2+d1KQZ29ZbVWuh+rt81htzQzUTc5Wnwuo1PZcQM2C8RsFADox /No+vqcUELR2CsiWZ8HL0dt+dGSmFl3lAv7QhvpfbXgGpuuvvS8gO5Md3BcQ TgE1G1phJJXqh9T2dRK5UQCgE8Ov7eN7SgFB66SA+UUyy/Is91kuZ9OPc7k9 VKnmJAtmPv0y13k6wlldOnnj/W2PVHyYz/KDd4qfRXPOqw3PwOIzgmabuHz7 Ex9ZVLbFmYz5jKBFrd4iBTRuqHxMC/GnZgczovJj/OskbqMAQCeGX9vH95QC gsqfEfSTbd5kXlyz/Zblh2pmPxL/kY/UXGmfldR188vs8xfwT5f95dlWph/d Of9I+flqk1r94dufePfiQ/jv/euNrjY0A+lTmc/8z68zP5Ot/15AbAqI2VDh mE4/JTV30MM7GD+ktq+TiI0CAJ0Yfm0f31MKAACAGMOv7eN7SgEAABBj+LV9 fE8pAAAAsk5PTy9WOTo6GnhtH99TCgAAgKy0ig4Zcm0f31MKAACArNC5gFTy bOMapAAAABgbKQAAAMZGCgAAgLGRAgAAYGykAAAAGBspAAAAxkYKAACAsZEC AABgbKQAAAAYm+Pj46QOT/4dbE8pAAAAunV0dJTU4cm/g+0pBQAAQLecCwAA gLFxXwAAAIyNFAAAAGMjBQAAwNhIAQAAMDZSAAAAjI0UAAAA2+X09PRiWPJs 4xqkAAAA2C5pFR0y5No+vqcUAAAAWaFzAenf5B1ybR/fUwoAAIAYw6/t43tK AQAAUFY+I5CeCzg+Pm5cVgpgE04O9i7sHZxsehhDlZmek4P9g8NQr+BTHWz4 HPWwI7Vb27swsX9+m8xuuqvp7WTSznfmt1H2kFUevlbH1M89oHuhuwOSLBC5 rBSwjQ73L+Q1lTXJAitXPisvW73gOf02PLcpmleW7bZWu7p0eg4nK16sJze8 /FPdyB2X1rO3oj52JHwok8c3Voet97Lv/uj3M/Obss7PtyApABg65wLGmwLa /Nab/AZa9bfkyssGFjzHFHBeU7TaFsPjqJie9YfXasPd7MuGhOaq/zmssdbL fqMj3wL9zI8UAGyf4df28T2lgBApoJEUsM6GpYCuSQE9kgIAUsOv7eN7SgEh gSJt+svw4PBgP71GZS/tkru6Y7bUybzPpNPJYtnD9PKW5S+rqGWzo5n/f9WC y0HulQYZPapynw1PUXiLxf4ni83mdzuzrb39/f29xZ4urg0qDq9QUWSHuni0 ek8nT1QPIyYFhDe03M3Zdhcdk0eWu1e8Er1YaFUNeLHCvfyW86Vf0wsvc+FW +YUU2pfQvk9eD4UpWowmYnqrRx5attuj32bmM72DL93A7FQ/FjqUdZPW+B0U 982b35vKGasabXMK2D9Y7s5h5UEpr636qJW+AxdfLF4wu3UdF9CD4df28T2l gJDCZdvZemnxu+Mk8wuj8F5ZWnekvebXSk+7V/7KbF52Ucjk+tacC5jWg/NK d94pZlSVW9/4FGUXKe5ppv/JQbLTpQ3Pus1GdLj8IlcU5IdXrE8yQ93L7Vz1 ngaHUZsCajeUrf2WX56kRyFzsEuldWFHKgacW/90gpbzU11LN58LiNyXpYrX Q26OluuOmN6akVcu2+XRbzPz2d7VAyuv7ORwNnmN30GZQ1n/rdH4HRT1Myr3 7OwV2TzaxhRQuTsxa6s4apndmCSlxPKQzN6ukAKAesOv7eN7SgEhNW90L39V FYqe0K/M5Mvp22yhE9YRy85HtF98ssUgY0YV3HqF85yiwBZr+mfLpuJ7hOVz AaURhRdfjqJ26ipGWEoB9e9AhzZU+DJXhJWPSbjQypbV1etfIwXE7kt5yfmX 89fDMsEGFqvau+DIA8v2cfRjZr5S1RSlVe3ByUnukcbvoGBpXVt7Vywb9zOq fpv1o20caubLxrXVHrX5/+wfzm95bjggABnDr+3je0oBIWuVuKXPf7lQ8Qs6 v9KGZefd8itolwJiRhXe+manKLDFcv/pFQ17e7mxV1xZ0iYFFLeaK5IDpV3V MMopoDB7kRvqPQVUn3hqlwJi9yW78ooXXvbFm52BpumtSQGVy3Z79ONnPte/ cmCF5y8srm+J+w4qXgxV+5qMnZ/6nxKVPxeaRxuTAubrblxb8KjNX0iz4DCL AZv8aCtg2wy/to/vKQWEdPlGd+WyhSearvJJHz8ol4Mrnwto2qNG5zlFgS0W +s+vRDjJF2nBIrqnd4MDw2hMAZEb6j0F5ArdzZwLKD6e3cmY6Q2NPLRsh0f/ rGIlzZ2DAyvPyGwEUd9Biy+jXpOx81P/UyJYzrc4U9awO41rqwlD05fS4fz0 xTQGCAFAC8Ov7eN7SgEhq5S4+ScuLK/jPgxdtB1aaeWy5dqjpqIKFXtNo6rs U32t7HlOUWCLFduaVQHTuxNzZ1GyFwmHUkB+XcHFK0uNfNoKDaMuBURuqJ8U cGFxIXfmYC+vvp7d7ll5KPMby3SJ2JfKfT9bXk2ernJ/P3+cYqe3OPLgst0d /XYzn5u4yoEtOuwfzC+wny0d/A6qOJRxk9ZqfqoOVubZxQYOD+J++ARTQNUr M2ptVUftLC389/eXR3Ev+SLzbOXPOoCF4df28T2lgJDSOeeKujH/23z+qRh7 2d+i6SP7FcsWtla7bLhaLSxY0aPwLl7EqMp9wing/KZovsXaK4IWG5he85v5 3Z79zJLDg/3KoeaGVyq8A58SU7mnoWFky6O2nxHU+7mA6WcnFTacjng2bYc1 h7I8B5H7khtq6fWw2Keoo5yvPqtHHnyFdHf028z8UnhgxTFk7xOv/g6qOpSB 9Ud/BzV/81aPdm+RXqoWyR6y3OHLztTBQcUrs2ltgaM277WY//xXUgDQaPi1 fXxPKQBGryF8sT0cSoB+Db+2j+8pBcDoKR13hkMJ0K/h1/bxPaUAGD2l485w KAH6NfzaPr6nFAAAADGGX9vH95QCAAAg6/T09GKVo6Ojgdf28T2lAAAAyEqr 6JAh1/bxPaUAAADICp0LSCXPNq5BCgAAgLGRAgAAYGykAAAAGBspAAAAxkYK AACAsZECAABgbKQAAAAYGykAAADG5vj4OKnDk38H21MKAACAbh0dHSV1ePLv YHtKAQAA0C3nAgAAYGzcFwAAAGMjBQAAwNhIAQAAMDZSAAAAjI0UAAAAm/X6 668/9dRTL7744sWw09PTRf/k/yN7hkgBAACwWeknZ372s5/9g7BszZxW0TE9 Q6QAAADYrKtXrz7wwANpEHj66acL7+2nf2MrWzOHzgWUe4ZIATvl5HB/78LU 3v7hyaZHAwBArEUQePjhh7/zne9knxp+xd5HTykg1snB3qT6Pzg8OTk8mKSB vQNBAABga4SCwPAr9j56SgGRDvfzdf/JiQwAALBdKoPA8Cv2PnpKAXEmZwK8 +Q8AsO3KQWD4FXsfPaWAOJNTAfuHmx5FtBtvvPFC2LPPPrvpAQIAbEwhCAy/ Yu+jpxQQJ0kB23Qq4Prrr9/0EAAAhisbBJ5++umBV+x99JQC4mxTCnjiiSd+ 7ud+btOjAAAYtOzHhw68Yu+jpxQQZ5tSwKc+9anbbrtt06MAABi6RRBIPP30 0439h1/bx/eUAuJsUwp473vf+9BDD216FAAAWyAJAvfdd19SM3/uc59r7Dz8 2j6+pxQQZ90UcLLQ3ZhCbrjhhldeeaX/7QAA7IInn3wyqZm/9KUvNfYcfm0f 31MKiLNWCpj+wbHJXxw+hz81du3atRtvvLHfbQAA7JDhV+x99JQC4qx9RdDJ wf7ByeF+7yng0Ucfvfnmm/vdBgDADhl+xd5HTykgTnUK+OO7b/+p37j9Fx9+ afLFU/cl//9Td5/kF0vPAlzY298rpIDGZc/S6HDYEBvuvffeW2+9dfHlbVPz r073/+s/vrBsz2zPXzwAADgnw6/Y++gpBcQJngu4/PC/+6nf+He/+1cnv1ku 46d/amyy1MnsTw8XzgXULVu/1alXXnnlp3/6p6+//vrrrrvuiSeeSB+8+eab F/+/9NAzSQrYfyhqVwEARmX4FXsfPaWAODX1+Eu/e8fkXf2fuuMLl2uWmQaA 0hVBwWVPTg4Tk+ywfzD5v0AU+PSnP302ff9/8QcCbrjhhmvXruV7XT34Z398 4ddPI3YTAGB0hl+x99FTCohz7ingYD+xN7mfePI/9dcFJWX/dddd98ILL7zy yitJCig8e/Lbf+ZaIACAkOFX7H30lALiBFPA5PL+SQ1fcVXP9KOB9g8zyxdS QM2yDVst+a3f+q1bbrnloYceSv7NPfEXl/dcCwQAEDb8ir2PnlJAnLq7g3/z qekXFXf4nhzM7w5emsWCxmXTre7tx6WAF1544fu///uTCPCpT30q8/D0WqDl 3cF/dvAXsTsMADASw6/Y++gpBcRZ55NCz+VPhZ2dJREgCRnPPPPMeWwMAGBX DL9i76OnFBBn7b8X0L8XXnjhuuuu2/QoAAC2zPAr9j56SgFxtiAFJO68885N DwEAYMsMv2Lvo6cUEGc7UgAAAG0Nv2Lvo6cUEEcKAADYTcOv2PvoKQXEkQIA AHbT8Cv2PnpKAVEmH/0vBQAA7KDhV+x99JQCohzuLz/oHwCAHTL8ir2PnlJA DCEAAGBXDb9i76OnFFDt5GBvb3YJ0MkkA7gcCABgNw2/Yu+jpxQQkNT+exdm 9pwHAADYVcOv2PvoKQXUO3EKAABgJ5yenl6scnR0NPCKvY+eUgAAAGOQ1sYh Q67Y++gpBQAAMAahcwGp5NnGNQy/to/vKQUAAECM4df28T2lAAAAiDH82j6+ pxQAAAAxhl/bx/eUAgAAIMbwa/v4nlIAAADEOD4+Tqrr5N8d6CkFAABAjPQv CyT/7kBPKQAAAGIM/x3++J5SAAAAxBj+1f7xPaUAAACIMfzaPr6nFAAAwG57 /fXXn3rqqRdffNHfDl6QAgAA2G3pdfKf/exn/yBsyBV7Hz2lAAAAdtvVq1cf eOCBNAg8/fTThbMA6SfqDLli76OnFNDeycH+XmL/4GTTIwEAIMoiCDz88MPf +c53sk8Nv2Lvo6cU0N7JyaT8PznY25MDAAC2RSgIDL9i76OnFLCqJAXsH256 EAAAxKsMAsOv2PvoKQWs5uRgXwYAANg65SAw/Iq9j55SQJ3D/QsXLsyr/ckX 6TVAkwjgYiAAgO1UCALDr9j76CkFNJjU/pMckPx3dhvANBrs7blBGABgW2WD wNNPPz3wir2PnlJAo5ODvQuZUwIAAOyA7MeHDrxi76OnFNBo8mFAe3tSAADA jlkEgcTTTz/d2H/4tX18TymgwexKoMkJAR8MCgCwY5IgcN999yU18+c+97nG zsOv7eN7SgF1ljcEzy4MEgQAALba6elp4W8Hf/7zn09q5i984QuNyw6/to/v KQUAADAeaYVcdnR0FLnskGv7+J5SwKA888wz11133U8H3HLLLZseIADAdiuf C0jq/6RmPj4+blx2+LV9fE8pYFA+/elPf/jDH970KAAARmT4FXsfPaWAQbnl llvuvffeTY8CAGBEhl+x99FTChiUG2+88ZVXXtn0KAAARmT4FXsfPaWAQbn+ +us3PQQAgHEZfsXeR08pYDieeOKJn//5n9/0KAAAxmX4FXsfPaWA4bjzzjtv u+22TY8CAGBchl+x99FTCujFyeFh+z8v9t73vvehhx5Kl5/8ibKl/cOOxwcA wMzwK/Y+ekoBvTg8aPwjw6+88sqtt976qU99avHIDTfccO3ateKa9v29YgCA Hg2/Yu+jpxRQ47bbbvtwrWwNP3cykaSAw+n/BNZ87733XnfddTfffHNS+aeP JPX/4v+X6zrYcxoAAKBXw6/Y++gpBXQrCQATB/v7B9P/CcSAZ5555tlnnz2b fjTo7//+7yf/8+ijjyahINfpcN+lQAAAfRt+xd5HTymgFxFXBKWSCJCeArjt ttvuvPPO7CpcCgQAcA6GX7H30VMK6EV0Cjib3g6QfkZo8u/8scLdwfIAAEBf hl+x99FTCti4O++88+d+7ucqbw0GAKBvw6/Y++gpBWxcUvxfd911N95446YH AgAwRsOv2PvoKQUMwW233XbLLbdsehQAAGM0/Iq9j55SwBC88sorn/70pzc9 CgCAMRp+xd5HTykAAIAxG37F3kdPKQAAgDEbfsXeR08pAACAMRt+xd5HTykg yvLz+310PwDAThl+xd5HTykgQpIB9g/n/ycHAADskuFX7H30lALaOdy/cGGW CAAA2AHDr9j76CkFtDI5FyAEAADskOFX7H30lAJacCIAAGDnDL9i76OnFBBp en+wCAAAsGuGX7H30VMKiCECAABsu9PT04tVjo6OBl6x99FTCmi2/JjQGXkA AGDrpLVxyJAr9j56SgEAAIxB6FxAKnl20fO55547qvLAAw8MvLaP7ykFAABA 1hjOGkgBAACQdfXq1dOw5NnGNUgBAAAwNlIAAACMjRQAAABjIwUAAMDYSAEA ADA2UgAAAIyNFAAAAGMjBQAAwNhIAQAAMDZSAAAAjI0UAAAAYyMFAADA2Hzh C19I6vDk38H2lAIAAKBbR0dHSR2e/DvYnlIAAAB068knn0zq8OTfwfaUAgAA oFvuCwAAgLGRAgAAYGykAAAAGBspAAAAxkYKAACAITg9Pb0Yljy76Pncc88d hSXPNm5LCgAAgCFIa+OQbM0c37N+W0PuKQUAADAGoXMB6d/YytbMV69ePa1y fHw88No+vqcUAADAmA2/Yu+jpxQAAMB4lM8IpOcCjo+PG5cdfm0f31MK2DYn B3sX9g5OVurfdtkVh3NysH9w2OVG+tTDnAAAAxa65j/JApHLDrm2j+8pBXTi cP9C3n5DFZws0NQloOcU0HZgFas8TB5armT1PQ1YeYXVC0oBADAuzgWkpIBO TFJAm9J0UnoOMgW0HljTKtfY045XGFhQCgCAsRt+xd5HTymgwsnhy/flW1OR KAV0tsKYDUoBAEB3hl+x99FTCii79om9P/2+N2TbU59oqBIDKWBaeB4cHuzv TS8T2ku75C4fmi11Mu8z6XSyWPZw8u+FXJU6rVr3k+57ue6FInc5oJoUUNxo 3MCyD+7t7++XiujlVlrs6cHh4uGDk5PlBvI3GEStMHsw5v9ftWB2tMVjFH1Q KucHANgmw6/Y++gpBZStmAIqysxcDX+SuVy+8L50WqumvZL/ny4w7V5RWeYe PzlcVNytU0DVRuMHdrDcfjgFtN/Tk3Qmk7L8pLims+gVLvY+17fmXEBug/NO MQelcusAwHYZfsXeR08poKzbcwHLyjBThtaVp8mXk2VCV6qU3s/fWxaoLVJA 9UYjBhbafmCErfc0V0xXzGvECucL7hefbHGMYoYa3DoAsE2GX7H30VMKKDvv FFD6gKELLVJA9fvezSmgeqMRAyvsaqsUELOnrVJAYC/O8mcsKhYMzeeiU+RQ A1sHALbI8Cv2PnpKAWUbPhdQuWzw8Y7OBWRXVz+wDs8FVK5inXMB+U4H5ZGu fC6gvjMAsM2GX7H30VMKKLt238Gl970n2756Xw8pIP/EhcXF5ieHwWviF51n l7EHrmM/Se+0rb8voHKjsQPLXAwfcV9Aqz2NSQERK1yU8oGR1KxvOW9NB6Wy T/7PJQAAgzf8ir2PnlJAJ0rXhizvtQ28dXy4+BCcTDmdPrJfsezS7G3uxUfa FGrS9MHDw3ziyN2hvKyLSxuNGVj2sWRLB6WbYgsjb7mnTSmgcYXh0r+wYNVo 82caIg5KuY8UAABbZvgVex89pQAAAMZs+BV7Hz2lAAAAxmz4FXsfPaUAAADG bPgVex89pQAAAMZs+BV7Hz2lAAAAxuD09PRilaOjo4FX7H30lAIAABiDtDYO GXLF3kdPKQAAgDEInQtIJc82rmH4tX18TykAAABiDL+2j+8pBQAAQIzh1/bx PaUAAACIMfzaPr6nFAAAADGGX9vH96ys52+++eaaaj/0rBQAAMAOG35tH98z VOeHSv2ap6QAAAB22Be+8IWkuk7+3YGeNaV+udoPPS4FAACw89K/L5b8uwM9 61NAtuCvfFAKAABgK6z/9wKefPLJpLpO/t2BnpX1fLnmb4wAUgAAAEPmbwdn hUr6QuXfGAGkAAAAhix0LiC9fmbIFXsfPWuq+nIQqO8sBQAAsHWGX7H30bO+ sH+16Y5gKeD8Xb7rw3c9vOlBDMLlu9714++66/JObxEA6Fj5jEB6LuD4+Lhx 2eHX9vE9G2v7V5v+fIAUkHj4wz+e9+GGOj1ZoKlLaMmkEF0uu/p6dkBETb7y /FQvKAUAwNYL3R0Q89k7w6/t43vGlPeRxp4C2lSbk2qyi+q9q/Vsp+aafOX5 CSwoBQDA1nMuICUFdEIK2AQpAADowPAr9j56SgGdCKSAaS1518N3ffhd08uE 3pV2yV0+NFvq8rzPpNPlxbIPT/798VzhuSxEW6znrocXD991+fKi07uKNxgs Os8HPN/w5cVOLHajapCBbpPlF49nxhu5eGhU6VQUpzd3UBrnJ3vk5v9fteBZ 0xZjjmC5DwCwecOv2PvoKQV0onBfwLw4zNXwlzMX9Bfeak7Lz7RX8v/TBabd K4rF3NvRLddzOR1nUsdeLq4pM+BFFfvwssPlu5JlSrtRGmRNt8ws5IYfuXjV qObTu9ibUhKLmJ9F7Z/rW3MuoHKLMUewcusAwMYNv2Lvo6cU0ImacwHLYi9T WdZVnMmX0/fFAxefhFNAzHpy1Wd51IWNVo4h+2DNFTLZp7JbzY4ycvHQqILT m1tLw/zM5+HDxSdbHNCYmQ9uHQDYsOFX7H30lAI6sVYKKH3A0I+vlgJi1tMu BWR7TK/WedfyuqLK/s3dSsNvt3huVC1TQPX8zLvlB9IuBUTOfGDrAMBmDb9i 76OnFNCJLs8FVC4beLz1elY8FzDpObkO5nLhHfhC/1C3bA2cvcgpcvF+zgXk O91V3sbK5wLqOwMAAzP8ir2Pnp2ngA5XCAAAPXnmmWc2PYQdIQUAALAtpICu SAEAAGwLKaArUgAAANtCCuiKFAAAwLaQAroiBQAAsC2kgK5IAQAAbAspoCtS AAAA20IK6IoUAADAtpACuiIFAACwLdqkgD/76E9cyPuJj/5ZqEPhqXtuDjwx febme9bZh2GQAgAA2BZtUkB9vT6t8+dPT/PAot6ffDX7YvpEZiU9ZoA0dPSy 6ipSAAAA26KrFFCs7rMPTP53+VR2Lb2eB5ACAACgUosUkHlHv/K5Qj2/fCip 9TPLLTNBnxkge91SP1sokgIAANgWHaWASUFfdcH/9LHSuYDpo31lgAsB3W7l obnFI1IAAADbokUKWN7gW7rLt+JUQDYZFO4LmPxvPhl0SQoAAIB6q35SaBoJ cjcDh1PAq9kIMem2yADhjw5aTSgCdB4EpAAAALbXGn8vIFPlN6eArOz5gLoV bBcpAACAbbFGCih8ClBsCljU/tW3CwxY9v1/5wIAANhe3aSAqjuHq28mzjwa +uigwZICAADYDaungPwfBiu98V8dArKVv3MBAACwEfEp4M8+enOmSp/e1psr 28t/O7j01n6h0q/46KAtJgUAALAt2qSAnwh9UOhc5rNEq68Fqrx3YPnRQQMU ev/fuQAAALbXGvcFjIIUAADA7pEC6kkBAADsHimgK1IAAACMTZoCNE3TNE3T NE0bVfv/AdQDN1Q= "], {{0, 325.}, {513., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{513., 325.}, PlotRange->{{0, 513.}, {0, 325.}}], Alignment->{Center, Center}, Appearance->Image[CompressedData[" 1:eJzdmsluHUUUhi3YsOQVeAu2WWYbxAMkwkTZGMlBQjwfHuV5xHgCD+Ah4JAw T3G+9I+Pzq3qLld3142dHCnRdd/q6v87Q3V3nfvBg8/uffrOyMjI4/f47979 L+6Mj9//8qP3+ePjscePHo6NfnJ37PPRh6PjHz54l4N3/v/36vPlcGx4Mw/b XuTZTcvM1dnNblD2f+3t9eC01fxvnrUlKqs/LfifPEtDFaHIV+6F/d3GmojS LP31x8pN0l/O/mw2PyzGiUG6UaSdX6vcFP7h7PdB818FRAFLOhzd9AfOD5QH gn+7sl8HzY4HUAFLTji66ffOrxUfK/9l0JpYApBEOHIoYoQm55t4L1tSn1/Z s0Gz457IWAykNhwdEJr0m/O9eJMtqT9X9rSyi4uLp870lScSiwfx4UhQ5OgX QqDfnG/KA8E/VfZjZU8GTQc1QGiGYyBBODxFnE75IfD65XyuKG8jQ4JReH5+ fnZ2dnp6enJy8kNl3w+aDvItYxgpKLEoKEzrC8RTZAbCIzTpl/MRj3LJRo/U Hh8fHx0dHR4eHhwcfFfZt4Omg3zLGAZzCjiwCIQ5fV4lKPogyP9ci4tyaTSg GUnI29/f39vb293d3dnZ2d7e/qayra2tryvbqkwH+ZYxjOQUiJgBELyBTzxF B4TMEBBxroX+pgWhgxEUUQSxyKSwd6sAoakEyFuSB/8XRCB8xIKEJLhW4wmK NIJfiIIUYkL8g6MIAX4riEBqkY0UFM4hxKLw1R0jGEUtgs+iIASqAoJODhdE oFioCwuEX6N8IGpzqQnBh0D6FQJmJmPJIq5YEGF9fZ3qJrIKRJBOTYHIRPAL KRMqi1gPyd6CCKurq+QSkWVmAqHVKQ5EBwS/kOrhgZm5BBHHaQURlpeXWXKV S2SpAuFXJzQEudSE4GvZZ5E9SKgQKD2cVhBhaWlpc3PTcikIRJBLQUU3IfhC UBUwlQqBSxBx7lAFERYWFjY2NrjfKZfiQCiXrBxqEdKFIAQm1B2BezFxL4gw Pz+/traGW5iZXMJLeoIKEJrKIY3gn+iEgJdIWpbBgghzc3NUtMqBXMJLtbnU FsHXshD0XIGXWI5I3YIIs7OzKysruIWZKTTLpRihtqIzEfRQbQikbkGEmZkZ FiVVdFwOOQhYLYIVgt4LmNBWVG5GBRGmpqYWFxeZk4WOctC6FDyEW0W3ioJH YKrXj+CfwPsjvAVR8AjUQlmE6elp7m7UlxBsXR0qQtlyNgTd3QoivEErUg7C m3hfeAvuzolnJGJ9C5+RLvOeVIf0sM2K2lQI+U+ql3nvC0N65aEQCCuF0P99 4dq3NuWSXhkKIvg7Qs+3trgcat96uArXovTIXhKANGZJJBlIaQqT5YVFkhvu 5OTkxMTEV1fGZ45wnG8Zw0jedDiRuyTzaC2KCznOohjBLIEQLK14SRT4jYzC gSxQeBIxLCyo4j61UJmgZHzWQb5lDCM5hRM5PVhLLQSZOxi1CPE+kg+EUXBR shcQNGgrlZQmLmhbqwydK1fGZx3kW8Yw0nZWpd8/2rXaR4oREoHwDxu2p63d bKpDO8O2Law94c3KbHPYtoUZqb1u7XJri9v0t9rNCxBqc8lv6BmFNue5rroJ 2pnXtnyw0S3jM0c4LuWMZLycn9Z/7Z5qE0KiueApLBwepLbF4JsLXjznKv8D /X325xMtKt9ZE4VehaxXIhC1SwxHmiVbnREv3vd6gi5Jol1Vqz8zEEZhjSr1 1+JelbWrzHRQXSoTH/TdCnZ5cii0RsUgYhGONx201mEgPrNL1QqhKZ2CurBG bZ+OZ5D/nTueiUA09Z2DpnPQwBXRhbOg+xy0nvv3nT1CgsInlQcJGuhGZBb8 DMB+AxA3aot0/4N08hRxOGp/xuB/yeA1xz9diJ3f5zcYaYracNy2X8IkKGrD cTt/jxQgpMMRswREsflhgfJrnZ+PkKbwIJ7F4+SYP9FP2OT8VvoTIAmWmChh 8Ylp5R3EpylilgRUrdWem7hWZ/2ZLAmitF07ZxHl3XD62PBkl6W7aZmvbKSc 9RfzEj7XSO4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], BaseStyle->"Output", ContentPadding->False, FrameMargins->0]], "ExampleImage", CellMargins->{{49, 45}, {16, 5}}, TaggingRules->{}, CellChangeTimes->{{3.8190527527663*^9, 3.8190527530141134`*^9}}, CellID->589466296,ExpressionUUID->"4d466c28-215f-4b19-acfd-237962e8ae63"], Cell["Enable dark mode:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7943273037316265`*^9, 3.794327307137766*^9}}, CellID->503998627,ExpressionUUID->"36bfc82d-5404-4010-acd7-f2096e1b36ac"], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DarkMode", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DarkMode", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.2.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6ae9b15e-dd80-4d11-be6e-434bf9ac9265/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DarkMode"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DarkMode"], BoxID -> "DarkMode", Selectable->False], "[", "obj", "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7943272086233015`*^9}, CellLabel->"In[2]:=", CellID->79179593,ExpressionUUID->"333de7fc-8c9a-4559-813c-91d72f8a6cce"], Cell[BoxData[ PanelBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3X/QJXV9L/hZoxXgJrOoocoE7t5MArMUKKAYBZ1r1UzpRSgpnCRGGKcs IhFZbpIpxy0G7y3RyhWZZAMBtSrI8tyNsLKUt8SysKJEHVf/uKlZd7NJrE3W 5Jq5KrqbNRo0N2oSdbbP7/7d3z7dffqc069XfeuBec63u7/dfZ7n+bz719nz hiM/f/PTdu3a9ZYzoi8//8vH9h89+stv/YWzo3+85tff8t+96dff+CtX//p/ /8Y3vfHoFW/4keibvxX1fdrTd+0a/f+hm96kaZqmaZqmadrQ2jW/eIOmaZqm aZqmaQNpUoCmaZqmaZqmDa1JAZqmaZqmaZo2tCYFaJqmaZqmadrQmhSgaZqm aZqmaUNrUoCmaZqmaZqmDa1JAZqmaZqmaZo2tCYFaJqmaZqmadrQmhSgaZqm aZqmaUNrgSngi8/c1UrrfX01TdM0TdM0TZMCNE3TNE3TNG1ora0U8KXL9nzp 0p+WAjRN0zRN0zRt/VtbKeD0mBSgaZqmaZqmaevflk4BUc3/jX/3byb//zdv PTJJAX9z+69PvvONd/7b3FDQ+/pqmqZpmqZpmrZ0CvjBt781qfy/86knTsd8 58T0nz/41lNSgKZpmqZpmta8na6j99EGti984S9++773VnaL+nzzG99sfelL p4DvfPZE+fb/zmc+tZ4p4LdPnj791Y/86jLTvvcPT5/+ymO3974KvWyl0XdG PvfbfY+t09XUNE3TNG0NW3htv0EpICrv//F73y0PAiF9lmtLp4C/fff/MLnm 58svvvCfnvzypED8hy/82Zcu+5nJ9UJRh5AU8KuPfTWvDLv9g189ffrkcus7 nra4tOs+BYwHcDq0Zh5tgSXXNLZG2QW95SNfyRntaBVCFpfaSqNB9lX/3/e5 0YYs36GnT//hfctuurVLARVv4CYt2o/ZN/B4586ULje8p6Zpmqa127YyBVxT VeR3FwGuqZ8CvnTpTz/1u/f+8B++NykE/uonz/jBt576ysueP3n1yX915Q++ /a3/fOFPTl6Nuj11/71fumxPxylgVNnGisBUEZV6tesUkCiz8+vzzBZoen5h XCenyuBpwZZa03E0CCmYk1upSShr3CYpoGjY4zUKTgEtvhlabOVv4LbaNJym 3mzJfFe26PCemqZpmtZ629YUcE1xqd9pBLimfgpIXfbzn//b54wqzVe+9AdP /e33/7//98mXv3hUZvzLy1Lduk0B5ZVt5tVOU0DmmHnJJLM66r7PRR1C8kKt gUUz/MpX0wfwx8P76gffUj3PbAro7VKoUQr46lcK3g/j989XA6NNq2+G9lpw NFu6za7myksB9703MCeG99Q0TdO01tsWp4Br8gr+riPANUtcEfQTPxIv70/9 8x+Pvn7tF1/5rX//u9966MGvHXx59M8vv3BvIgL8xI8MKwUkZl61IvUOZRe/ edIrNT68/Njy675uKeCDj30uL79M9shH/lAKKGvz3ReyH8NvfhnQbTKapmla 7227U8A1ybJ/BRHgmqXuCzj1s8+eXvDzve9G//zh9773//zSNZPvfO3a/T/8 p38cffP735/GhJ95VvP7Aqal2qxgjh/PjB/kPD27FGde2pW/Ol1WbLaZkcSv 8I9K0ICyZ1SyBp4LmK5+9GrzWwPSB/mnw0hlkPRgktsncdZgsZVmF+TkbMPE FfvxbZUIPrPzI+NrpeKvxrd8yepPUkDuxp+uZt4VNZk5l70ZSkZS8Paov1L1 R1UxbeEGL24BKSA8kjgXoGmapq2wnd72FHDNrPj/+Cc+sYIIcM1yKeBnnjWp O0bPC33qb1OXCX3xWf/V9//m61989tMm/4wiQzspIF6DpS6DLz/AG/DqrC5K 1syTci5ZQp+uPviZHXnxdT6jRUxejaYKulCnsCVXM5GD8jfFeHViW3481MUY ys8FTPdIvPIcX9cU31bzf85uKZ1th8k2j1+tlH8j82LOk4Flrraab+pkCige Sf6bIfPWSvXPfXvUXqm6o0rutcT7cPL/JTMsfXPWvKSthZ6apmlaL+10Hb2P NmR1Wu+5hm0SAaKvK1jW0lcEfemyPX977/Hof779P//7U//8x7/7Hz/7nRNP nPpvdn/7kf8p+ubf3nPnly+/YJoLGl8RlCpQc8v1pVJA5nKd+xaXneRcK1Je rKYGP7WyMim+LrFiL7ZG8bIt70qYvPMvsZcyKaBs1eKTZ29GyOzQ0itz5quQ 2pWjf05mkr7nt2gkBSmg6K1V9vZouFLhQTXwmqWwblUpIBWCSlp4T03TNE1r ow0hBaz5uYB5dfuD//Jfvnnn27747KdF3/ynJ7/8V+eedeqnz/6H//v/GnU7 5+nfPP6OH37n7xcnCFq5Iii+lWoe7c9/NXtJw+I7uQdX499MXo8xL4lT5yny nt5TsxUsKPvOmVfmi/L4hliFHN+k+YeOi2NCXgoo2mtziRSQvUm54juLVhDN Rv8fW53kRs4fSch9AWFvj+VWaolRlQWcwhmWvpeKSvfJaZGQwj68p6Zpmqa1 1bY+Baz/fQFfumzPU/ff+8N/+Id56fHD7//TKB384Punf/jD1NVBoyeF/u69 X7r0pytSQE75t7oUkBWWAnJbztP4V3fhRP6VM4nLZmaDL1iR2E0NdVNAqjLM nAtoJwUsAk7m6qbE1VAFI1kiBRS8PWqv1JKjKr72vmyGha0oBUyudgu5Ji28 p6Zpmqa12bY7BWzGM4KSnxo28d3/7T9+5V9e+uUXXfiPX/yL+TdrfGpYTvmX KFNXdy6gYACl34y13EuG7st9uE0XbTq82EHy2BZODKPtcwGlu6DNFDALNclT SLEU0OQmkRpvj5or1fpbdMmHHeWmgPQdIuVvsP4fqaRpmqYNsm1xCtiUzwuY t+989kT8AOmXnv+zX9l3Sfw7UYeQFJBf5yQr565SQNljPPM+FKn6WuiicwEr OnY6rv8/l76GZHz8/A9PJq68auG+gLIUkNh6raaAxccHpO6NLUgByf1YKwWU PuW1WQoIH1XBGMpnWNhyUkD4B1U0+0gLTdM0TWvUtjUFbNBnB8/bD7711LTa P/FEovj/1PSfP/j2t4JSQPa2yvRDUapSQO4DMANfTV+3/94/TL6UfmRQ0KeG pe8LWNkV1LMH16RCx+xplvFicrI66WcELWq8mlcEZT8xubMUMF2d9ONYE88+ Knq6VMVbpcbbo+ZKNRhV6n04fUZQ+QyLWjYFlJ/eiocLnw6gaZqm9dm2MgWE FPndBYGlU0C0hb/xzn87+f+/uf3IpMz8m7cemXznG//u35yO3RRcngJGLflQ +tSpgaoUEJs893Hrga9mF51+VnxYIVS6Lt22TG2/2Fw5Iym7t7T23cHJT3Po 7IqgWefE4fHkLbTFI6l+MwS/PWqvVKNRxT6VIHnWo3CG+S0/BeSZP8A2kQKK e2qapmlaty3/r1CB3kcb2L7whb8IKe+jPt/8xjdbX/rSKSAbCk7nlf2hKUDT NE3TNE3TtFW1tlLAly796S9dtkcK0DRN0zRN07T1b22lgMDW+/pqmqZpmqZp miYFaJqmaZqmadrQWmAK0DRN0zRN0zRta5oUoGmapmmapmlDa1KApmmapmma pg2tSQGapmmapmmaNrQmBWiapmmapmna0JoUoGmapmmapmlDa1KApmmapmma pg2tSQGapmmapmmaNrQmBWiapmmapmna0JoUoGmapmmapmlDa1KApmmapmma pg2tTVLAaQAAYDCkAAAAGBopAAAAhkYKAACAoZECAABgaKQAAAAYGikAAACG RgoAAIChaSUF/P7Nu3Zd+Tt/2cqANnH5rJ/4e2JT3h+bMs5atnKlarEFCmz8 htn4FQAGryIFjH7Npd38+9ELf/k7V3ZZZeUsd7zY4t6z5ScG1sh4TiVLXS+F e2objHdFXPUObjEFZJbe1YYtHWd7b+zqQbS5ut1USqvaGimZjRMyhI2oFcdr ltnR+Zt53rfhXuh7wxQtP/g3f98rANBUQArI/TW3ghQQPseSFDB6ackipocU 0GC06/sHqcFKzSZPzeD3b15ZCshZ+uh73bwt1iYFtLmYluaXehf1mAJiS53k w6o3Q/AWyP6kNPzZqSMvBkzzb2rwi1+MUsC6/tIFCLNsCliiVx3Lp4CkJpX8 6lNAkyWu7R+kRpsx/whl6JRNU8DyS1/OWuzD9UwBa3JiLrMyIXVw6BbIruNK 1zpnmNG3rrwyd1CtvEP6fr9LAcDgSQGFpIBWNFiptrbHcttm9ft/LfahFFAi uzIBA9uQFJAd5/hMxO+kx9DeG6Tv97sUAAze0imgrMqKX0i93C/Jil+vqQUk es//kb6Gt+5f0+TfgulsY0vOHjfLX1bB1pjOcDLZlb/zOw1HW/UHKbk1UhfY JEbyl4tVj000mSK+Ltl6JfNSs10Q9se4fPMGbZtcQScCspuuaFPE1ifRIae+ KtjI+cehy7f5EhVkwcbK+3b8qHDhWscmrCxza7yLsuOpfocX//Auv3EWb5OQ LZBZy/hbNDn8wp+d4t+uDXd9+iD/9HKk1D7K/2V7Omgjl/3ezlmFoqXmjHWp vBSeAgJ+yVT+dAOsofZTQOL387IHs0rqtvS1uNO/G7l/mFo8F5C3mPmrmZsR kn+yc7fGdIaZvNDBuYDxolJ/vFL3TuzK1quZ9YtfG5BZ44K/jQ1WKuTKg/LN 2yQFhA07ZycWb4rZVk1tm4r3WMkbO/FTkHO3Zux9GK5oY2VTUXwTFa91jRRQ 512UfDnsHZ7/w1tHfhKbxpKALVD66zHkXEDh5G3s+tzjHqW/UdM/ZSUbuer3 dsVOzHk7pPdw7TUOTAFhv2Qqf7oB1lDtZwTl/VYu+0O/3EnT7HLzfvFOJf8A dpkCMkej5jVQ/lLKtkZOJdI0BVTvqdwlFdR3mYsDst8p2LHt7ILqCas2b7sp IL6FE5VP2RizdUKqd6aOKnqPhazRUrVQzjxyf/TSW2T074A3QJ1zAYUzKf+9 EvYOL9ywNaSWVLz7l/n1WL15SiZvY9dnYkX2Z6nkxED4uzf+ev7v7Zw5pIPV +FKl+Nzrr332rZ7zByf0l0zlTzfAGmr5XEBbl7YWLjf3hYojb62lgOz59/jf xoIT4EVbo+jPYtvnAvJfKPz7Wj3wou8kr4hYQQoI3rztngsImHP+psidZfmO KFhWaepsWHYUb6yqH4j8ta6ZAkLfRQW1WP6syzdsDem6Me8HuGQLlG+AsAum Cjq0sevjsSaR8ebvt/QIyn8WqvZR9U9SwaGW6H+vnFxQNPlGSSCtWtuqcwHB v2Qqf7oB1lAXKaD4uEqwDUsBs3+m1rZ0a/SbAlJ/UxumgMm6t70Lqiq14M27 VMkXtEHz3xUFm6K1FFC6SXPeh7WUbKzi018lax2eAmq9iypTQPk7vEEKKP59 WLkFyn89hqWAkt+uTXd9bKwF1yql17/rFJB4m83/fxICFv9dMgSEp4CQXzJS ALCJOj8XsJwNTAHxqUKrte04F1B+FViDlaoo1YI373IlX9FUZXOuecXH6Q5S QHy+7Ra68RcTISD0cp3St1XNd1F/5wKq6sZMx9Adt8S5gOL5LHtaYDrY1Nmm 6ZIzq7/KcwHzf8yK/1kMWDYELHkuoGAGUgCwidq+O7ilX3uFy01eS7rovDYp 4HToX/1VpYDcVyou2W2WApL7qPEuKP4DH7p5lyz5CpZeJwUkZpE3v4od0ein rN3wE3/195N1V+lal+6I8Y9ufgqoeBdV7d8aG7aG0BRQtAVKd1z1T13wz9KS qzeb9Oabb84ZyZU335wut4NTQM3f27GlplLQ+Glq8Z+oxDfqr2rl3gz9JVP5 0w2whtp/RlDsD/v03+0ekJyc9s5cdVPw16TBn8MaKSDxRI7ArZE3soZ/vAsm zRwbTA2qaQpIzm96WUIru2A+u/SWj2/E6s27/AhSb7aRwhI3O6DUppi9VVMX 0pTtiPKfssSkkws2it6H9Va54gTM6GlRwWtd/OOQ2h713kXZsF/rHd72xllu C5xO/noMGGbh5G3s+rHML9TEOqVq2uAUUP17u3Innp6/+dLTtP07M/XLLuyX TOVPN8Aa6uTzAmZ/MZa/RjU5h/R84tdqjpab+WuTO5i646iVAuIDLfj7mRpF /qZderQBxVvRCBungMTsr8w+B3zplcodfGpGAZu3WQ7JLr004RRviukWS8wv sUVqpIDMms8umC5+HwYq/9GbrV/upQ+5a50adnztp9siUxmGvIsyW6PeO7z9 iBS8Bcp+PWZ/Ukq+k/h2G7s+viKZOeQE4lop4HTF7+1Mj7y1yBxwz383Bgo9 sxP0S6bypxtgDVWkAKAlrg+AbeWnG9hEJSlgV7FOh9TXckvGsLLlrl6PG7lc ydug3zfh0gPY6DphHX4q+7XdWyDkDb9Na936Om70TzcwWM4FwGqoE2Bb+ekG NpEUAKuhToBt5acb2ERSAAAADI0UAAAAQzNJAd8GAAAGY5ICngIAAAZjkgL2 bpH/FQAAts7p06c3NAX8wVhIz4Njk/6T/w+ff9/7BwAA2rfpKeDSANePTfpP /j9kqvCUAQAAm2XTU8BLAvzy2KT/5P9DppICAADYVpueAq4K8Ktjk/6T/w+Z SgoAAGBbbXoK+KWMw4cPHzly5PaMSf/s96PO0STZ+UgBAABsq01PAW/KePvb 335nnkn/3JeiSbLzkQIAANhWm54Cssf23zP2B8Em/YvOHaxmXQAAYJU2PQX8 Vsb7x8JTwKR/dj5SAAAA22rTU8D/mPHBD37ww3km/XNfiibJzkcKAABgW216 CvhQxkc+8pEnnnjiUxmT/tnvR52jSbLzkQIAANhWgSngxhtvXM8UcCLA58Ym /Sf/HzKVFAAAwLYKSQE3zqxhCvg/A3xhbNJ/8v8hU0kBAABsq8oUcGPS+qSA xx9/PKrSv/jFL/5Vla+OTar6yf9XThLNNur8sY99bDXrAgAAq1SeAm7MsyYp 4AMf+EBUqD/55JNfrzIZ2yQFTP6/cpKvfe1rUedHH310NesCAACrVJICUpV/ SBBYZQr4zd/8zahQ/8pXvvKdKt/LqJwkmu3kMaSrWRcAAFilohSQW/NXBoFV poCbb745KtQ///nPn+5ANNs/GH8w8WrWBQAAVqkyBQR+f/Up4IorrogK9U9+ 8pPf/e53240A3/ve96LZRjOPFrGadQEAgFUqTwF1X1plCtg7uyjoT/7kT9pN AdEMXQ4EAMAWK0kBud8vf3XFKeCFL3zhRz/60ahiP3XqVFsRIJpVNMNottHM V7YiAACwSkUpYDkrTgGRX/iFX4iK9k984hNf/vKXm0eAaCbRrKIZRrNd5VoA AMAqbXoKiLzjHe+YPAX0j//4j//+7/9+ufo/mnByIVAkmuGKVwEAAFZpC1JA 5Prrr598iNgnP/nJz3/+83/913/9ne9854c//GF55R91iLpFnaNJJrcDf/Sj H73hhhtWP34AAFil7UgBe8f3CLzzne/8gwaiyd0LAADAEGxNCpi44oor3vSm N/3Wb/3Wo48++vGPf7y87I86RN2iztEkHgoKAMBwbFkKAAAAKkkBAAAwNFEK +D9aIgUAAMBGkAIAAGBopAAAAOjdedcdfvZb31Peoj5L90+RAgAAoHdR0b7r fz9d3qI+S/dPkQIAAKB35cf2z3r4ZKqqr9s/RQoAAIA1NznyX1LV1+0vBQAA wJooOsJ/5kOjY/u773kscD5SAAAAbIryq/2jLFBrPlIAAACsP+cCAACACfcF AADA0EgBAAAwNFIAAAAMjRQAAABDIwUAAMDQSAF07+CxB0+cipx48NjBBrM5 duL0zIljrQ1uHRcKANAxKYCuxero06dPPbh8DpACAABaMvgUkChRwygGa0lt 4QYxQAoAAGiJFCAFdOzgg6da2npSAABAS6SA9UoBi5J5E0rOwNEePHZi0u/U ifwTAYHzkQIAAFoiBUgBy2trtFIAAMBqSQGLIq/JjattkQJKukkBAAAtkQLW KwUshrMJJWdbow2cjxQAANASKUAKWJ4UAACwmaSA7lLA5LOyTi/mf+rEsYPl i4g9T2flJed4uIvBBiy/rdGGzkcKiKu/vwAA5qSAFlLAfB7zOUQVWqz8T8gp 146NP1i3oP9CYZ03/Wje2DIqPqY3O+DZU3wCNkb90eYX0m3Np6VtUrmtEgs9 ePBYevbhc1/l/mptOwAA20UKaD8FHCxMAAULCnxOUV7lezB+PDi7oBP55V71 gEu2Rf3RFqWAdubT0jYJWN3JQpPH4GvOfJX7q93tAABsFymgzRQQ1YnzCi1x xDV9biBZxC6ZAirTRuFaJa7Dn/0jfr3SwZIrl9Y6BSy/TQJWN1po9fyL573K /dX+dgAAtosU0GoKKJtVojArqGJrXPOSWOg4ciwyR+pwdWZWsarywfGollv1 0NFW9WtrPo22ScBC4/OOzzp1cqD9sdXdX11sBwBgu0gB7aeAwvlULyu0Ho4n iuIrwk8UdUkNeNlKcL1SQMNtErDQsgnj3bKDW+X+6mg7AADbRQqo89nB1Ufw y0u0OgezG80n3S9V6gUPuNxapYCm2yRgoeNZF980XbxJV7m/utoOAMB2kQLa TQHBh2krjygXz6nGAzoLSr2WHo+6Rimg+TYJWGj5BIUdV7m/utsOAMB2kQI2 LgXUekr/fIaJri09A399UkAL22TZweeNIbFzV7m/OtwOAMB2kQLavS9gBSmg 1gf25h/w3boU0MI2WXbwc0U7d5X7q8PtAABsFylg01JA2DMgs+Lz27YU0MY2 abqSRTt3lfury+0AAGwXKWDTUkCtS5gKKr1tSwFtbJOmK1m0c1e5v7rcDgDA dpECBpICtvqKoDa2SdOVbDkFLLW/utwOAMB2kQI2LQVUzqPNAbczm1VeEdR6 RdviFUGd768utwMAsF2kgE1LAW2U8NuWAtpaoXoLTam+O7j7/dXhdgAAtosU sHEpoIUDvluXAjo8CN7mk0I7319OBgAAgaSAjUsBiSfBLFfEb10KaGGbLDv4 vCEUfmpY5/uru+0AAGwXKWBdU0DZaOJ3gS5T67WfAkq3XY0UsPx8mm6TZQc/ V7JzV7m/utoOAMB2kQLWKgXED+WWDSfxYPhTJ46V9Dz2YPbVllJA6GirFtfO fBpuk2UHn7f8zEqscn91tB0AgO0iBSzxcMWSQ71NL9tOfu7TiQcPznodPHjs WNFlJpNyL6ro4lejRyXeiVOn8pfV1k2kgaOtXFzgfKoud2m0TYq0tHNXub86 2Q4AwHaRAtYrBZQNKD1J+CfFnurskTpBo230KQhlz97Pzm35bRKwhi2e6Kk3 tvr7q/3tAABsFylg3VJASQWXd4j52ImKcm90TUh6sjYfKBkw2tr3PBeudWpv FVTbS22TIu3u3FXur3a3AwCwXaSA9UsB456LazbGvU+dOvFg8UXck97xkq98 grYfK18x2vDtU73WUZdYj5LZ1d0mRbp4Sucq91db2wEA2C6DTwEAADA4UgAA AAyNFAAAAEMjBQAAwNBIAQAAMDRSAAAADI0UAAAAQyMFAADA0EgBAAAwNFIA AABsn/OuOxwV7UXtrIdPSgEAALBlJnV7eZMCAABgm5SfC5i0qE/g3KQAAAAY GikAAACGRgoAAIChkQIAAGBopAAAABgaKQAAAIZGCgAAgKGRAgAAYGikAAAA GBopAAAAhmb3PY9FKSD6WtRBCgAAgC1z5kMnoxQQfS3qIAUAAEDvzrvu8LPf +p7yFvUJnNvuu8fnAu52LgAAANbX5Er+8lZynX/u3NwXAAAA66z8XMBZD5+U AgAAYFAqq/q6/aUAAABYE0VnBCZ3+5Y88ydFCgAAgE1RfndAyTN/cucjBQAA wPpzLgAAAJhwX8CA3XrJR/7TCz7ygYuWnPzqi978gefecHX3C2pxJgAAjEgB Y1c/dyeqMHPbZ567v/vl96NZXX3DByab6JIbOl5QmzMBAGBEChhrOwWMK+SA 8rhfwXV17ursP35ZNPlOcvL8FZcCAADWixQwNkkBrR32v/DNn9mmFBC+OgU9 pQAAgPUiBYxJAWWkAACALSMFjAWmgHEhetet0f9deMMHLptdNXTZXbdeOOsx KYNT7bI3x26h3X/rc++a9/lMfNrkIkb33l5WcuH9/lsv2ZnNZ+czl8Tv0p1e q3M8OefsOo6XNeq2WFZqSKWrkyjLw3sGb4q8jT9eqdHG38nZ+O1s5HqjAgDY SFLAWJ0UsPOBS7I3EYyjwd7KFDCpz1MtUa5PC9SL7iq9MSFvPpfNxlAzBXzm suzqzKbtMAVUb4r8jR8r0dMbv4WNXHtUAAAbSQoYK7o7OFWBT6rZ0fcvefP0 EPGF00flJErcSXlZcGHMZ2JP17z6onHxHDtZEFtE8UM4J/O/bDaGyeHr2NHs OilgtqzZ6kzL4Pj5i9LVCV/xeM+QTZE7k8SK5238Jht5iVEBAGwkKWCsVgpI fTPnPEJuMTw+Wp49sD+efFGxTwvU8ovwx/MvPnNRLwVk5jMprWOTt54CwjZF 7kz+U7JuT69Uk4281KgAADaSFDBW54qgzPXt2dI3txiOXX+SbfN5Bt0DO738 ZucDF+3PO0ZdLwVkl5VOB62ngLBNUb247BKbbOSlRgUAsJGkgLEVpICSjySo nQL2joJA8n7e+MibpoB0z7ZTQOCmqF5cZolNNvJyowIA2EhSwNjKUsCSiyga 9ugRN9PaNXaJ+2akgLrPZQ1PActt5JafFgsAsM6kgLHVnQuoeur+Uk/Fnz7Z Jvmgm6VTwHRu6Qt4Wj8XUPPzFGqcC1hqIy83KgCAjSQFjK3ivoDZxfzl95mG pYDM7QCJJWbK+JHp43SqU8B0nLHHb3Zzd3DdW26DNn6TjbzUqAAANpIUMNZJ Clg8dX9/fPLJXb2zrqOHfGYfdFmeAqZPzp/fGjx7vOd8/NMFLZ6ouXiYf96T Qnc+MHs25vTBmHVWJycFBPQM2RR5a1298Zts5CVGBQCwkaSAsbI7QzPPma9O AbMD77OW+jyvTIs9/TIkBVx9UfaTs5JH77Of4XXZ9EOy8j41rGyVS1Ynb6hl PZOdqzdFSvDGb7KRa48KAGAjSQFjbaeA8QdaLZ7h8+bYh9vuH9Xw81Lzsvhh 5+JFZF14w/HFRxjvZD9iLJ4Upq/mp4CoUB9/6NhsVh94bl7Fm7c6BdfV5K34 7IlGybMtFZsipcbGb7SR640KAGAjSQEAADA0UgAAAAyNFAAAAEMjBQAAwNBI AQAAMDRSAAAAbJ/zrjscFe1F7ayHT0oBAACwZSZ1e3mTAgAAYJuUnwuYtKhP 4NykAAAAGBopAAAAhkYKAACAoZECAABgaKQAAAAYGikAAACGRgoAAIChkQIA AGBopAAAABiakBTwVHukAAAA6J0UAAAAQyMFAADA0EgBAAAwNFIAAAAMjRQA AABDIwUAAMDQSAEAADA0UgAAAAyNFAAAAEMjBQAAwNDsvuexKAVEX4s6SAEA ALBlznzoZJQCoq9FHaQAAADo3XnXHX72W99T3qI+gXPbfff4XMDdzgUAAMD6 mlzJX95KrvPPnZv7AgAAYJ2Vnws46+GTUgAAAAxKZVVft78UAAAAa6LojMDk bt+SZ/6kSAGDctFVRy656lV9jwIAgCWV3x1Q8syf3PlsWQq48Kp3vOBX7o23 y656SdcLreuig/e+4GA7BXnwrF7y3EP3vuDQ6y9sPJ4WBw8AQDjnAkqMUkBB rVto35HakzSzohRQsl7Jl6QAAIDN5b6AvVJAnBQAADAAUsDe4hQQ1a6XXfWS i646ctnkMqFZHTuqaReXDx25aDqTabcXHDpy0QuSczj4jpyrjPbN+v/KOy7Z N3lpdAVOrNurLvmVey/Zt5jVCw6+PprVfDAXtj2r7HrNq/eSl2bbMGf141sy 6nxhZkuWTJu76cqXAgBAIClgb2kKWNTVL3j9ZbFCOjXJ5J+TuvTCfUfm0SAx h4RJWT6Z86ueG1i6LwYzemlWhLc4q/R6xUv9ypeyq5/eklcVbsmQTVe5FAAA AkkBe7N3B89q3eTh7kRdnSyJo0L6Hc9dHJoe9ZxUuYVXwowq4XfMK+HcReQd wI/Nal4GtzirJVNA4ervzZtPcmzhm656KQAABJIC9pafCwhJAeOD26mnDFWk gFn0uGx0Zcu8Vq9buk+r4pZnVTcFFK9+9ZYM33QBSwEAIJAUsLedFJB/dUrV XbGzmw6mV+YveQC/xVktmwIqLs4pTQFhmy5gKQAABJIC9jZPAckau3gOBcaX 9IwPxdco3fPH3HhWy14RVHFYvvSKoMBNV70UAAACSQF7l0oBk+Pn88vUx9fk zK9af8lFs3taS+4LuGT2ZJ70LbHTkUwfj5O6pXdy8++F+2I32LY4q8x6JcZf /FLR6odsyfBNV7kUAAACSQF78z47ePF4zKIUEP3z4Dumj82cXlEfe1znVa/K u7847iXzB3W+4NCR2E2vr7rk0PybUZ9E6X7ZVa+aLXT2vJ2WZ5Ver/QWiL00 2WixR/3krP5c6ZassenKlwIAQCApAAAAhkYKAACAoZECAABgaKQAAAAYGikA AACGRgoAAIDtc951h6Oivaid9fBJKQAAALbMpG4vb1IAAABsk/JzAZMW9Qmc mxQAAABDIwUAAMDQSAEAADA0UgAAAAyNFAAAAEMjBQAAwNBIAQAAMDRSAAAA DM3uex6LUkD0taiDFAAAAFvmzIdORikg+lrUQQoAAIAts/vu8bmAu50LAACA oXBfAAAADI0UAAAAQyMFAADA0EgBAAAwNFIAAAAMjRQAAABDIwUAAMDQSAEA ADA0UgAAAAyNFAAAAEMjBQAAwNBIAQAAMDRSAAAADI0UAAAAQyMFAADA6p13 3eGoCC9vUZ+l+5fbvhTwa7/2a48DAMA6iWrU3Dq8vMWr9Lr9y21fCrj66qt/ DQAA1klUo6aq1vJj+2c9fDJVpdftX277UgAAAGy6yiq96/5SAAAAdKToCP+Z D42O7e++57HA+UgBAACwKcqv9o+yQK35SAEAALD+nAsAAAAm3BcAAABDIwUA AMDQSAEAADA0UgAAAAyNFAAAAEMjBQAAwNBIAayhC25598/e+cj5t7ym74Hk qDu2C255pN11aX2GAMAASQGsnStuPf/OcaF759sv6HssafXHJgUAAGtICljS DaMDwkXt/DvffcEVS8/6NResZwHcvsI1XYNzAXXHVtJfCgAA1o4UsCQpoAXr vKZ1xyYFAACbRApY0jgFnH/s1vbnPL7mZF1r41at85rWHVtxfykAAFhDUsCS pIDm1nlNpQAAYKtJAUuqkwKism1xjdAr337+sdmFQ8fefsErX7boF72Ue31R qt674jUXHHv3/NKj82+5NXv1UWyJL7vghulsK+rGxMDefcENBZ0Dlj7r+bIL bnn3fI0SK1u1pmWFbjSA1GyveFm2V+g2z90OtcbWcF0CN2Zy1Ub9bxivxStv vSBk1dp6zyw1YABgDUkBS6qZAqLOUYU2L9ji7YJXzvq98u35dxnEK7G8+xGy tyHkLnFaNxaPMD3bUYGds9ZBN0EU1caTcFG1poWVc8HtGNmeods8q+7YWl2X kDtKZingNZP7lKtXra33zLIDBgDWkBSwpPopYFoyzY+xXzG6nzRnJuOqMv9a lFnBGSspXzZ9ZE1yJtNC8di7R0ssP/Qdm+2i5+R4e97AQpa+6BnPEaNckKwY i9c0v3JeDODWvVckBpDNOPW2ecE2qTu2pdalamMWzDCRqkpWra33TIMBAwBr SApYUv0UkHPUNLd0LKwnZ2Ve5pD+7ChuwBJL1qXiOvPwpXdUac9mW3BQPbWy 9bZ507Etuy4BuzJrngLStXrOGNp6zzQaMACwhqSAJRU/KTRb/RZeEzK9pTTs CPnk+7ml9eSl2Pzr3UAakmjClz4df0AAqVU5l802p0att80bjm25dQnblVk1 Vq2t90yzAQMAa0gKWNLKU0DpTabj+cSWW/MxMvOj94WXD4UvfXZhScBZkjqV c/lss6+ucwqotSuzwletrfdMwwEDAGtICljSElcEtZECSlqDFDB59kt8VukH 74Qvvcai26qc9+bsjvVPAYG7MqtuCmj+nmk4YABgDUkBS9qyFDAdT+KxM8sV rlJA4LpIAQBAj6SAJfWUAgIL+2YfLPWyvfPHxc+utA+foSuCQtdl2Wvp27ki KHy2jQcMAKwhKWBJK08BZXdohi8xXGoFw5fu7uDAdVn2+Hk7dweHz7bxgAGA NSQFLKnzFJAtUwuf1lhjibmueE1OSZxewfClFz/Sc2/uky1zCvLWnhTaNAUE jm3ZdQnYlVl1Vq2t90yjAQMAa0gKWFJ3KSBb7iYP7Y5funUxyRUvu+CGt+d/ AlRQCph+Vuyo82JBt56frfqClz5/gFL0/dhx6VujBVUU9uWXstT/1LDlU0Dd sTVYl4qNmbFEqGzhPdNgwADAGpICllT8pNBJy/k8puCKNHUzZqLKKlhu6JHw /HWZ3gVQfctn2NLLeiaHVLSmheMPm23ZHEJTQO2xFe61WCYKWpeqsdVetbbe M8sOGABYQ1LAkrpMAaND3LHKfHT0NTHV6Ek+i1fzHvJf/0mhL0vP84aCaQOW XtAz/fTRkjUtfUB9yGxbSAH1x1a012ZnW7J3DYRvzIar1tZ7ZqkBAwBrSAoA AIChkQIAAGBopAAAABgaKQAAAIZGCgAAgKGRAgAAYPucd93hqAgvamc9fFIK AACALTOpw8ubFAAAANuk/FzApEV9AucmBQAAwNBIAQAAMDRSAAAADI0UAAAA QyMFAADA0EgBAAAwNFIAAAAMjRQAAABDs/uex6KqPvraVn8pAAAA1tyZD52M qvroa1v9pQAAAFhzu+8eH9u/O/hcQFV/KQAAANac+wIAAGBopAAAABgaKQAA AIZGCgAAgKGRAgAAYGikAAAAGBopAAAAhkYKAACAoZECAABgaKQAAAAYGikA AACGRgoAAIChkQIAAGBopAAAABgaKQAAAIZGCgAAgKGRAgAAYPXOu+5wVFSX t6jP0v3LSQEAALB6k7q6vMWr7rr9Q5YuBQAAwCqVH9s/6+GTqaq7bv9yUgAA AKyb1qv0rvtLAQAAEKjoCP+ZD42O7e++57HA+UgBAACwKcqv9o+yQK35SAEA ALD+nAuQAtbX6+/79Kc/fd/rex7Fy29/NBrGo7e/fL2WuPTGWY+tCgCsp96r +rr9pYCRSfmYUafkG81ilRVvmR7q1ZzV7zgFhCwxb6dIAQBAB3qv6uv2lwJG xuVjs3pVCljx6ocsUQoAAFak96q+bn8pYKSFFDCqEQecAla/+iFLzOsjBQAA Hei9qq/bXwoYqUwBowowKgBf/vrb75tdO/TovCDMXE8Un9PLX3/fo7FJXp6Z Z/TfR9MTxaadz3M+cc5gU9XutF6NjfbR+26PL7pgzhUDnrx6e2zK8VwLVz+n bE7OPDmm8o2cmEvAEpcfVXqVU1s1vu2yw1tid4ctHQBYb71X9XX7SwEjQSkg KpeTlXiilsw9ND2d72SiqLpNLGU8xaOPFhZ+s1p+MqfX33ff7bVSQDw3TL4x H27RnCsGnLruflStJ1em4qj7ZOblm7B8I6fnXrXE8FEVrXJ6gaPhzfpmhrfE 7g5eOgCw3nqv6uv2lwJGwlJAoh4NKDjHc01MlPjOpOgtXGjhBSjB5wIyc5t2 KZ9z4YBLN1J1vV0w7NjyqjdyvSUGj6p4H2UnjM+t1qzydneNpQMA6633qr5u fylgJO8ZQY8W13vzSVKVd7LGyyvo4r0qrjOfHXjPnClYKgVkL5bJzrl8wOVJ qbLezp08OdDqjVxricGjKtlHZTNPDW+J3V1n6QDAeuu9qq/bXwoYWeJcQHUK mFyGkxWYAmIX748vI0lel1M7BSQr1tw5lw+4fLiV9Xbu5MlV6SEFVO2jspmn hrfE7q6zdABgvfVe1dftLwWMdJcCSqr8sGfOvHxx8+h09g3OBSSmysy5us7f zhQQeAFOSAqot7s9dQgAtkfvVX3d/lLASCcpoGqmtWrA2K2oS6WA4jttF69U X/PTyRVBfaaAOo+IDbkiqN7ubuEBtQDAmui9qq/bXwoYaSkF1Cvy6h0Jjl1D npkwXaAXjLZgYYs5lw+48u7gklsR8ievvDu4KgWUL3HJURWpGt4Su1sMAICt 0XtVX7e/FDDSQgqY1dnZZ8DE7sN9+evvu72k6E1Puniq5MvjnROLGj1d8tH7 7ns0kwI+/WjyAZSJ498Fcy4f8N7J3QSLR4zefl+yBE6tfv4zOe/LHVT+Binb L8FLDOpTtMolExa9B2rt7uClAwDrrfeqvm5/KWAk7xlBicPrIQVq7NOkYnVn /DOhPv1o/JOyqp4RlJ4y+RFUic+ZGhf2yRRQ8qFhpXMuGXD61eSL2dXPOz1S 9alh4SkgbIk5OyX5qQfVq1xreEvs7rClAwDrrfeqvm5/KQAAABrqvaqv218K AACAhnqv6uv2lwIAAKCh3qv6uv2lAAAAqHTedYejorqonfXwSSkgcGwAALAp JnV1eZMCAABgm5SfC5i0qE/g3KQAAAAYGikAAACGRgoAAIChkQIAAGBopAAA ABgaKQAAAIZGCgAAgKGRAgAAYGh23/NYVKVHX/vqLwUAAMCKnfnQyahKj772 1V8KAACAFdt99/hY/d3Bx/bb7i8FAADAirkvAAAAhkYKAACAoZECAABgaKQA AAAYGikAAACGRgoAAIChkQIAAGBopAAAABgaKQAAAFbvvOsOR0VyeYv6LN2/ nBQAAACrN6mTy1u8iq7bP2TpUgAAAKxS+bH9sx4+maqi6/YvJwUAAMC66b1K 77q/FAAAwGAVHeE/86HRsf3d9zwWOJ/eq/q6/aUAAAAGq/xq/ygL1JqPFAAA AOvPuQApYJiu+sXn/+nbnv8bL9qM2W6i5TaFDQgA/eq9Su+6vxQwcNuaAm4e D2DnFf0vSAoAgE3Ue5XedX8poKlXXPKnb7s83Y4876qgiS/eedvlK6hUS2xL Ckhvyc5SQOWC0h2kAADYRL1X6V33lwKaGqeAZatNKaAtK9uSlQuSAgBgG/Re pXfdXwpoSgpY4WyLSQEAQJt6r9K77i8FNFWaAka13JHnXfWii3/jDc9PXSw0 LvPyLiJKdL7k5hclZ7X3wsmrT/zihZmlXRib8Pk7r7hwMeHbLrk53u1IahhR tblY6BNveN7NL+pttiVbIP3S256/M94IuVsyp4p+0cU7Rxaz/Y3YEkt2U3pv li4ofCSFK5hYVvTShTcXDanu+yRgoQDAXO9Vetf9pYCmKlPApOacFF0vet4T 0T/fcPH05fE/E9OOv/PEGy4e13sX3hyrtCfF5BNvKKrfkkX4K56384vh5Xqs LByVyvGCc9WzLdkC0613ZJomslOVHYGfbfnZEid7Lb4uxbspLmxBlR3yV3Bv aqrLnzjy/GlayXvn1HifhC0UAJjrvUrvur8U0FTO3cGL+ip7HPjmN8QP+6cr xsSrI6Nq+YnFEe+SS0RGF6LknSAIPGifXqPZqFY925ItMHqpqHatqr0zs03M rWI31VlQ/ZEsVjCufEh13yeBCwUA5nqv0rvuLwU0VX0uIFPLJQ9upx4vk6rN Rv3HR4ArLxQfz3l8vDfZp3a5Ph7G/LDzamdbsgUSk6dV1N55oSO24yp2U40F LTOS+S6OKx1S3fdJ6EIBgLneq/Su+0sBTbWYAiZXfWRbWArYO77Q5Ykjlycu bmlcrq90tiVbYHJNS9Hh6/LaO3fa2DdXlwJKd3Fc2ZDqvk+CFwoAzPVepXfd XwpoquNzASWzKvSii0cFeeKW1TrlelG9vYrZlmyBso2z0ecCctU9F1AyYfhC AYC53qv0rvtLAU01TgHx8qzwcvS6j46M1aJLXcBfsKDuZ1u8BcbzL70vIL4l W7gvoDgFlCxoiZHkKh9S3fdJ4EIBgLneq/Su+0sBTTVJAbOLZBblWeJZLnvH j3N53s0Fs0qIJow9/TLReTzCaV06OvD+/CdyHuazePBO+lk0K55t8RaYPyNo uogXPW/nDfPKNr0lQ54RNK/Va6SAygVl92kq/pSsYExQfgx/n4QtFACY671K 77q/FNBUzjOC6hxkXlyzvXioZvyR+E+8oeRK+7iorptdZp+8gH887SVPxB4U P3uk/Gy2Ua3+iuftHJk/hD9WwfYx26ItMHkp9sz/5DyTW7L25wWEpoCQBaX2 6fgpqYmdXryC4UOq+z4JWCgAMNd7ld51fykAAABSeq/Su+4vBQAAQErvVXrX /aUAAABI6b1K77q/FAAAwACdd93hqEguamc9fHKzqvq6/aUAAAAGaFInl7cN qurr9pcCAAAYoPJzAZMW9QmcW+9Vfd3+UgAAADTUe1Vft78UAAAADfVe1dft LwUAAEBDvVf1dftLAQAA0FDvVX3d/lIAAAA01HtVX7e/FAAAAA31XtXX7S8F AABAQ71X9XX7SwEAANDQ7nsei6ru6Oum9JcCAACgoTMfOhlV3dHXTekvBQAA QEO77x4fe787+Fh93/2lAAAAaKj36/zr9pcCAACgod6r+rr9pQAAAGio96q+ bn8pAAAAGuq9qq/bXwoAAICGeq/q6/aXAgAAGKDzrjscFcnlLeoTOLfeq/q6 /aUAAAAGaFInl7cNqurr9pcCAAAYoPJzAWc9fHKzqvq6/aUAAABI6b1K77q/ FEC5/Uce+PADR/b3PYyN1f/2u/7ODw94D+4/cucDHx7rfRsMe0dsufjOLdrR S/wu8J6B1Sg6I3DmQ6NzAbvvCf2s3t6r+rr9pYAWjX7JJ9x5fd9Daq6XKraP LZlZ5lyj1U9sv5K/6d39uY/PObOSK9q1vRUz61RFtTuWdZ7bAEkBsNHK7w6I skCt+UgBw9TXL/nmMymZQ28poMc/l+NauaXgUbgqK/v7nk4BW1dUVLx71yaM N9zjCsImut56UgBsNOcCpIDmin7JT7+///rptQkPTMuS0W/49NHueaeo12JW 0zlMXksWNcEzSf09WQw2bw7Vg6852vyea7Ulk4tJv5gz4f7rj+SvVGx8R67P PReQHXBm98xmnZx32e4oGE9gCqhYYmzFpzOcTTAewmJAuXPPGUPeKsxeOjJf jevz5hD47k2c+FgsPXQ1U5sn+3YaLTq++edjCtgRRauzt2DyTt4w9XdQapMU vP/jfRbDSrxTS3428/Z+0bICfyrDfz9k1vCBB1LTFUxYIwXkrmDAbPfm7+Xk m2e8qokfm7x3CxCo9yq96/5SQItKa9fIndfPypaiS0Ric0jMbDqHyQwyAmeS KG6jaR4o/FsTOPjw0RYOqUBfWzI2cW4KSEwYVRtHrt+f7T/917QcfODDBYNM DThz3c5sSeN/pMefuwUKxhOSAqqXGF/xO2NVyPgfs9ejIiX/jZQZQ8k7ar6s xDhKyubwcwG1VjM9n+zbKREDYsEkYEeUrU7A5DmbtP4bJi5wByUmKRhnerMV HVjIrHjZ3i/5WQv7qQz9JZnaJplXiiYMTgH5Kxgy26K9HJ9gmndmq538NQ/U 1nuV3nV/KaBFqYuu02Vh3r+Sfy8KqoqSP7N1ZrKYz/70H4fgOioVJAJHWzak XH1tydzFFH8vsYIFJUBoqRD7Z3pvxBddsgUKxlN2X0BR2VK8xEzvnKosIAUU rEJ68sKNslwKqLeaqeHnrWPs+6PvZicv3BFl5wICJi/bNsu8YUJ3UIGysjcz benPZsHeL1pW8E9ljV+S8bFnvl044TJXBC36hcy2eC8vJoj+74EjR+6MTSIE QCO9V+ld95cCWlR6BDv3iHzOn7Sk2J/y4l/ngTOJv5yaWfB9AbHBh4+2YkiV Cw0YTEtbMm/GxUMaX3swX1DBkcX6KaC07C7ZAvnjCTkXUGOJmZEvlwIKVqFk 47WQAmquZmouuW+nefWWCAEBO6LyiqDyyfe28obJnyJ0kqJxZuY7Ole0OFpf 7/fGfEz5ywr9qaz3SzI7QXxIxe+Euilg/u+Q2Zbt5dnbcBwC9sdnKwRAM71X 6V33lwJa1Ertmv/3tmYKKC6yp2eM20oBQaMNOv5eOofKwbS0JUsGnJlwer1A +qqJ3lJAwXikgJZSQPH19NEr8RAQtCOKVydo8r0tvGEy61EvBRSOM7P1phfq P7DM741FlZu7rNCfynq/JLMTxIeUP2HzFFAx29K9PH0bXn/nLAxM35RCADTU e5XedX8poEVNa9fiP6Y1UkDpX+TJH4v9mS7LpIAaoy0tEqoXGjKYdrZk3owL JiwqMdLT1k8BlRd45G6B4pKnOgXUWGKmd5cpoPjdVlYexyVHV281S7ZP6qU7 j6RCQPWOKFydsMlLpildr/ZSQOgeyM4l9GdzMUl5OR/yU1nnl2R8XmFnCNIv BKaAkG1SYy9/+M4774zNbvSmFAKgqd6r9K77SwEtWqJ2nf4j8VrOHYrltWvg TOJ/1saHzBZ/4lJzqDP4oNEW9Jx8O+CgWehgmm7JvBkXTBhbXuppSLGVGr3y QMi9fjkv5f6j8tRMdjwhKSB8iekZtp8C5ody9xcsZ7JRH8i8VPTuTb/PQ1cz u31ylzE9u5a+jj5gR+SuTvHkLb9hsmtRKwUUjzN3+2VHm/+zmbv3y7dJ0E9l 8C/J9HjS74miCUNTQNnbu2K2JXt5Ouvk+ah6R16APL1X6V33lwJaNP1NnLm4 s/Sv6uz5cPO/VvMHxn24unirM5Pr78z7e1k0h0S/4pIgfLR5PUtTQD9bMnct 8yeMPSlz/+zv+6wKeGC+1MJzAakBpyqHigc/5g20aDwhKSB4iZm16OBcwPxR j8mqKPbgyv2p5ZS+e5PfDV/N9Kzy3k6zdUssI2RHlKxO9fuqpTdMXP0rgkrG mdw0H56vZsXGLNn7Rcta5qey9PdDwTomuuROGH4uoODtXT3bvcV7OS/7FZ8k AYL1XqV33V8KANZEUEZjS9n7wLrpvUrvur8UAKwJdeCQ2fvAuum9Su+6vxQA rAl14JDZ+8C66b1K77q/FAAAACm9V+ld95cCAAAgpfcqvev+UgAAAKT0XqV3 3V8KAACAlN6r9K77SwEAAAzQedcdjorkonbWwyc3q6qv218KAABggCZ1cnnb oKq+bn8pAACAASo/FzBpUZ/AufVe1dftLwUAAEBDvVf1dftLAQAA0FDvVX3d /lIAAAA01HtVX7e/FAAAAA31XtXX7S8FAABAQ71X9XX7SwEAANBQ71V93f5S AAAANLT7nseiqjv6uin9pQAAAGjozIdGnzUcfd2U/lIAAAA0tPvu8bH3u4OP 1ffdXwoAAICGer/Ov25/KQAAgI12wcXPe+Y7f++nXntzVPSWt/OuOzyfKvr/ Wv3L9V7V1+0vBQAAsNF23/OhqOJ9+qe+Hn0tb/GqeFInh/cv13tVX7e/FAAA wEbb89L9z/j4k5Mg8Kw7Hsg9qn/WwydTVXH5uYBs/3K9V/V1+0sB3Tpw6PjO 42M7xw8d6Hs0AADbaR4EfvRDf3b+81+Y7dB71b1u/aWADh04ujOq/o8eOnDg 0NFRGtg5KggAAHSiPAj0XnWvW38poDuHjifr/gMHZAAAgO6UBIHeq+516y8F dGZ0JsDBfwCAVSoKAr1X3evWXwrozOhUwPFDfY8i2Hvf+97Hi734xS/ue4AA AEFyg0DvVfe69ZcCOhOlgE06FbCzs9P3EAAA2pENAr1X3evWXwrozCalgP37 99911119jwIAoDWpINB71b1u/aWAzmxSCnjd615300039T0KAIA2xYPAs+54 YLOq9K77SwGd2aQU8Na3vvXqq6/uexQAAC2Lf6DYZlXpXfeXAjrTNAUcmGtv TEXuv//+Sy+9tPvlAACs2jwIRO1ZdzwQOFXvVXrX/aWAzjRKAeMPHBt94vAK Pmrs4osvfu9739vtMgAA+hMFgad99ltRVfyMjz0ZOEnvVXrX/aWAzjS+IujA 0eNHDxw63nkKeMUrXnHHHXd0uwwAgF49853vj6ri//r4/xLYv/cqvev+UkBn 8lPA1e8//a4/P337nQdH/7jlRPT/73r/seRkk7MAj+8c30mlgMpp906iw6GK 2HDttde++c1vnv/zprHZv4790lOn//WinXhZjVUGAFhTvVfd69ZfCuhM4bmA K+489a4/P3XDK4/dki3jxx81NprqwPSjh1PnAsqmLV/q2KWXXnrvvffu7Ow8 8sgj+/fvn3zzjjvumP//wptPRCngl96c/jYAwCbqvepet/5SQGdK6vGDN3xq dFT/XZ968IqSacYBIHNFUOG0Bw4cioyyw/Gjo/8riAKvfe1r946P/88/IOD+ +++/+OKLUyO85k9P/+vHc1IGAMAm6r3qXrf+UkBnVp4Cjh6P7IzuJx79T/l1 QVHZ/8gjj1x++eWXXnpplAJSr17+nlOuBQIAtknvVfe69ZcCOlOYAkaX949q +JyresaPBjp+KDZ9KgWUTFux1Ixbbrnltttuu/rqq6OviReuffBG1wIBANul 96p73fpLAZ0puzv4llvG/8i5w/fA0dndwQvTWFA57WSpO8fDUsDll1/+wQ9+ MIoAr3vd62LfHl8LtLg7+NQ11wavMQDAuuq96l63/lJAZ5o8KXQlHxW2d28U AaKQsW/fvlUsDACgP71X3evWXwroTOPPC+je5Zdf/sgjj/Q9CgCAzvVeda9b fymgMxuQAiI33nhj30MAAOhc71X3uvWXAjqzGSkAAGAIeq+6162/FNAZKQAA YF30XnWvW38poDNSAADAuui96l63/lJAV0aP/pcCAADWQu9V97r1lwK6cuj4 4kH/AAD0qveqe936SwEdEQIAANZH71X3uvWXAlpz4OjOzvQSoAOjDOByIACA ddF71b1u/aWA9kS1/87jUzvOAwAArI/eq+516y8FtO6AUwAAACt33nWHo6K3 qJ318MnNqtK77i8FAACwBSZ1b3nboCq96/5SAAAAW6D8XMCkRX0C59Z7ld51 fykAAABSeq/Su+4vBQAAQErvVXrX/aUAAABI6b1K77q/FAAAACm773ksqqKj r9vaXwoAAICUMx8aPVk0+rqt/aUAAABI2X33+Fj63cHH3jetvxQAAAApvV+3 33V/KQAAgI12wcXPe+Y7f++nXnuzzwsI7y8FAACwQa699u63vOXvoq/z7+y+ 50NRxfv0T33dZweH95cCAADYINkUsOel+5/x8ScnQeBZdzyQexbgrIdPblaV 3nV/KWC1Dp5z/NQZO6fOPnqw75EAAGykK6+8IYoA0df4N+dB4Ec/9GfnP/+F 2al6r7rXrb8UsFoH9xwYfT1n59Q5B/oeCwDAFikPAr1X3evWXwroQ5QCTpzb 9yAAALZMSRDovepet/5SwOrtOXri7EN9DwIAYBsVBYHeq+516y8FrNgoArgp AACgM7lBoPeqe936SwFdOXRi1+OnZ8f8j539+OkzouJ//M0zdtwgDADQoWwQ 6L3qXrf+UkCHRjX/6Pr/c4+PIwAAAKuSCgK9V93r1l8K6NSeo6d2PX561/Fj fQ8EAGBw4kHgWXc8sFlVetf9pYBORSngjJ1TUgAAQC/iHyi2WVV61/2lgA4d OrFr58E9o+eCuiIIAKAf8yAQtWfd8UDgVL1X6V33lwK6MropYPbRYAcePONx QQAAoB9REHjaZ78VVcXP+NiTgZP0XqV33V8K2CY//hsfPevek0Wt79EBAHTu vOsOR6Vvtp3x6B9HVfE/e9+nAufTe5XedX8pYGucf+kLf/T+P+t7FAAA3bry yhuuvfbu6Gvuq5Pqt6id+VDocdHeq/Su+0sBW+O8qw8/87bf63sUAADdiiLA W97yd9HX3FeLzgVE9X9UFe++57HApfRepXfdXwrYGj9xy28/53W39z0KAIBu laeAIr1X3evWXwrYGj921yf+xf7r+h4FAEC3pIBW+ksBW8NNAQDAEEgBrfSX ArbDz1z+Ek8BAgCGQApopb8UsB1+6udvdWswADAEUkAr/aWAtXPg2LkHqnv9 9L5Xxu8FfvavvScKAuP/HX1U8a7H5+3EuV0NFACgB1JAK/2lgI5ENXlUmZe3 /CkPPXhOaQo4/9IXPvO233v6I19/xkNPXnDx8ybf/Ge//dk9L96f6nnu8VPl swIA2DjlnxdQpPeqe936SwHr5OCeAwf3RCng0Ph/Cjr9zOUviRJElAV23/Gh c266c/LNKBGkuu05eursQ10OFgBgc/Reda9bfylgfew5cOzcQ8fOPXri7KPj /6k6jP8v9l/39Ee+fsHFz9vz4v0/dtcnEq8dOrHr+LHuhgoAsFl6r7rXrb8U sHaqrgiKi4r/n3ztm6OWvL7o2Nk7DxadSgAAGKDeq+516y8FrJ06KeC8qw// 6P1/9szbfm92a/DezN3Bbg0AAOi/6l63/lLApotSwNM++K3zL31h3wMBAFhf vVfd69ZfCth0P/Xzt2ZvDQYAIK73qnvd+ksBW8DnhQEAlOu96l63/lLAFph/ agAAALl6r7rXrb8UAADA1uu96l63/lIAAABbr/eqe936SwGrcODBMzy3EwCg P71X3evWXwro3sFzdk6cO/6/PUdP7fJ5XgAADVx55Q3XXnt39LXWVL1X3evW XwpYqUMndj0+TQQAACwhigBvecvfRV9rTdV71b1u/aWAVRqdCzh+rO9RAABs MCmglf5SwOo4EQAA0JgU0Ep/KWA1RmcBRAAAgMakgFb6SwErIAIAALRFCmil vxTQucVjQqft7EN9DwkAYGNJAa30lwIAANggRSlgz0v3n3fd4aK2+54Ppari uv3L9V7V1+0vBQAAsEGKUsCk7i1v8aq4bv9yvVf1dftLAQAAbJCiTw17zhtv P+vhk+Ut6rN0/3K9V/V1+0sBAADQUO9Vfd3+UgAAADTUe1Vft78UAAAADfVe 1dftLwUAAEBDz3zn+6OqO/q6Kf2lAAAAaOjMh05GVXf0dVP6SwEAANDQj93/ yajqjr5uSn8pAAAAGur9Ov+6/aUAAABoqPeqvm5/KQAAABrqvaqv218KAACA hnqv6uv2lwIAAKCh3qv6uv2lAAAABmjPS/efd93h8hb1CZxb71V93f5SAAAA AzSpk8vbBlX1dftLAQAADNBz3nj7WQ+fLGrP+PiTm1XV1+0vBQAAQErvVXrX /aUAAAAGq+jugN33PBZV0c985/sD59N7VV+3vxQAAMBgld8dcOZDJ2vNRwpg nRw8Z+f0GUcPLtW/7rQBDjx4xuOnzjmQ+N6eoyfOOdTmQrrUwTYBAHpSdHfA Mz42ui/gx+7/ZOB8eq/q6/aXAvpy7vHTux6PtxPnlk9w6MSu48eWWlTHKaDu wHJSwLFoKYuZLL+mBZaeYf6EUgAAbL/eq/Su+0sBfRmlgDql6Z6jp9YzBdQe WN65gEYzrLL0DAsmlAIAYPv1XqV33V8KaMeBY+ceSrbiKndCCmhthlWkAACg rt6r9K77SwGtGJWLict7qqvEghQwqjDPPnrsnOOTGZ46+9Cs83zm06kOzvqc PuP4sT3zaQ+Nvu5KlNnjqvX4g2fvzOe5qPDPnl+Nf+jE7KqkkhSQXmjYwOLf PHX28ROZFLBYSo01PXrs7J1Jz2huB/ccjWY72fKJrRo0w8W6L/4/b8L4aNP7 KHin5G4fAGC99F6ld91fCmjFkikg1n9WSSZq+PFsp9Vp6rj0JERM6szo/8eL G0+7cyJzGiLx/T2H5ofia6eAvIWGD+zB6TdHK1WYAuqv6cHJlozK8lGf/FuP K2c4D2WJbVJyLmC0Codmqz/bRyE7JXfpAMC66b1K77q/FNCKds8FLKYd1bR5 KSD2/ek/RzV20ZUqmeP5O4sCtUYKyF9owMBSlXlOoV6cAkLWNBr5NGJEjp39 eGylQmc4m/B4ouwPuiJoPsOQoRYuHQBYL71X6V33lwJaseoUMKrYk48YqpEC 8o97V6eA/IUGDCx+vc3emikgZE1rpYCCtZh2Sw6sXgoIHGrB0gGAtdJ7ld51 fymgFT2fC8idtvD7LZ0LiK97+cBaPBeQu0ZNzgUkBnninKhnrCxvdC6gvDMA sN56r9K77i8FtGLPoQfPPn4i3s451EEKWBSoBycP2J/+88DkkURlKSCa9tzM vQaLa9QPTO60Lb8vIHehoQOLXQwfcF9ArTUNSQEBMxxPVTKS/NHG9lHITsnt k/y4BABgDfRepXfdXwroS+ZTwxZ37BYcOp49Emd+m+3sUTO7dk7kTLsweaLO g7PJTyQPy0+/ee6hZOJI3KE8L9qzCw0Z2DxlTJ6o8+DZpSmg9ppWpYDKGSaq /cSpitSEeaNN7KOQnZLtIwUAwNrpvUrvur8UAAAAKb1X6V33lwIAACCl9yq9 6/5SAAAApPRepXfdXwoAAICU3qv0rvtLAQAAkNJ7ld51fykAAIAB2vPS/edd d7io7b7nQ5tV1dftLwUAADBAkzq5vG1QVV+3vxQAAMAAPeeNt5/18MnyFvUJ nFvvVX3d/lIAAAA01HtVX7e/FAAAAA31XtXX7S8FAABAQ71X9XX7SwEAANDQ M9/5/qjqjr5uSn8pAACAASp/UuikRX0C53bmQyejqjv6uin9pQAAAAao3SeF /tj9n4z6R183pb8UAADAAJU/KfQZH39ys67zr9tfCgAAgJTeq/Su+0sBAAAM VtHdAbvveazW3bi9V/V1+0sBAAAMVvndAeF34/Ze1dftLwUMwb6bbrvp1X0P Yi3su+mu9911076tXiIAUEPR3QHP+NiTte7G7b2qr9tfCujLq297X9JtFXV6 NEFVl6Ipo0J0Me3y89kCATX50tsnf0IpAAA2Uu9Vetf9pYC+jFJAnWpzVE22 Ub23NZ/NVF2TL719CiaUAgBgI/VepXfdXwroixTQBykAAAjSe5XedX8poC8F KWBcS9706ptuu2t8mdBdky6Jy4emU+2b9Rl12jef9tWjr+9LFJ6LQrTGfG56 9fzbN+3bN+90V/oGg3nn2YBnC943X4n5auQNsqDbaPr592PjDZy8aFSTTZHe vImdUrl94ntu9v95E+6tWmLIHsz2AQBWofcqvev+UkBfUvcFzIrDRA2/L3ZB f+pQ86T8nPSK/n88wbh7TrGYOBxdcz77JuOM6th96TnFBjyvYl+96LDvpmia zGpkBlnSLbYVEsMPnDxvVLPNO1+bTBIL2D7z2j/Rt+RcQO4SQ/Zg7tIBgBXo vUrvun9RCrjxxhtLqv2iV6WAcCXnAhbFXqyyLKs4o3+Oj4sXXHxSnAJC5pOo PrOjTi00dwzxb5ZcIRN/Kb7U+CgDJy8aVeHmTcylYvvMtsNt6Rdr7NCQLV+4 dACgc71X6V33L0kBRaV+yUtSQLhGKSDzgKH3LZcCQuZTLwXEe4yv1rlrcV1R bv/qbpnh15s8MaqaKSB/+8y6JQdSLwUEbvmCpQMAXeu9Su+6f3kKyFb7Rd+X Aupq81xA7rQF3689nyXPBYx6jq6D2Zc6Ap/qX9QtXgPHL3IKnLybcwHJTjdl l7H0uYDyzgDAyvVepXfdvzIFxAv+3G9KActZJgUkX3jfvDje9+qiq/azk9ae T0AKmF32HrvufVInz65ov6voKH1Zt9wD3+GT540qMAUEbJ/5SpacpSga8KtL 55wKFpk+yU9/AAC60XuV3nX/kruDUzV/ZQSQAmrJXO6xuH21oEx99fwxPbGy d3qwPGfahczx81rzCTkXcNtt80fgxLpOv3XXba8ePayn8Fqd3G7Tu2oXW2dW 7IdNXjSqkIPtFdunuPRPTVi5xJA9mO0jBQDAKvRepXfdv/wZQTfmKekvBQxP ye26zeaamOmrb6t3cUw3owIABqP3Kr3r/pVPCg2PAFLAIHVTb4/POSyOoI9C QK2FSAEAQCO9V+ld9w/5vIDACCAFDFJX9fbi47Iml/vUW4IUAAA00nuV3nX/ wE8NC4kAUgAAANuh9yq96/4+OxgAAFJ6r9K77i8FAAAwQHteuv+86w4Xtd33 fGizqvq6/aUAAAAGaFInl7cNqurr9pcCAAAYoOe88fazHj5Z3qI+gXPrvaqv 218KAACAhnqv6uv2lwIAAKCh3qv6uv2lAAAAaKj3qr5u/y5SQIszBACAjvz5 n/9530PYElIAAACbQgpoixQAAMCmkALaIgUAALAppIC2SAEAAGwKKaAtUgAA AJtCCmiLFAAAwKaQAtoiBQAAsCmkgLZIAQAAbAopoC1SAAAAm6JOCvijd/3c rqSfe9cfFXVIvfQfbix4YfzKjf+hyTqsBykAAIBNUScFlNfr4zp/9vI4D8zr /dG/pv8YvxCbSYcZYBI6Opl1HikAAIBN0VYKSFf38W+M/nfxUnwunZ4HkAIA ACBXjRQQO6Kf+1qqnl98K6r1Y9MtMkGXGSB+3VI3S0iTAgAA2BQtpYBRQZ93 wf/4e5lzAePvdpUBdhVodymfnpl/RwoAAGBT1EgBixt8M3f55pwKiCeD1H0B o/9NJoM2SQEAAFBu2SeFTiJB4mbg4hTwVDxCjLrNM0Dxo4OWUxQBWg8CUgAA AJurwecFxKr86hQQFz8fUDaDzSIFAACwKRqkgNRTgEJTwLz2z79dYI3Fj/87 FwAAwOZqJwXk3TmcfzNx7LtFjw5aW1IAAADbYfkUkPxgsMyB//wQEK/8nQsA AIBehKeAP3rXjbEqfXxbb6Jsz352cObQfqrSz3l00AaTAgAA2BR1UsDPFT0o dCb2LNH8a4Fy7x1YPDpoDRUd/3cuAACAzdXgvoBBkAIAANg+UkA5KQAAgO0j BbRFCgAAgKGZpABN0zRN0zRN0wbV/n9bbOqi "], {{0, 325.}, {513., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{513., 325.}, PlotRange->{{0, 513.}, {0, 325.}}], Alignment->{Center, Center}, Appearance->Image[CompressedData[" 1:eJzdmsluHUUUhi3YsOQVeAu2WWYbxAMkwkTZGMlBQjwfHuV5xHgCD+Ah4JAw T3G+9I+Pzq3qLld3142dHCnRdd/q6v87Q3V3nfvBg8/uffrOyMjI4/f47979 L+6Mj9//8qP3+ePjscePHo6NfnJ37PPRh6PjHz54l4N3/v/36vPlcGx4Mw/b XuTZTcvM1dnNblD2f+3t9eC01fxvnrUlKqs/LfifPEtDFaHIV+6F/d3GmojS LP31x8pN0l/O/mw2PyzGiUG6UaSdX6vcFP7h7PdB818FRAFLOhzd9AfOD5QH gn+7sl8HzY4HUAFLTji66ffOrxUfK/9l0JpYApBEOHIoYoQm55t4L1tSn1/Z s0Gz457IWAykNhwdEJr0m/O9eJMtqT9X9rSyi4uLp870lScSiwfx4UhQ5OgX QqDfnG/KA8E/VfZjZU8GTQc1QGiGYyBBODxFnE75IfD65XyuKG8jQ4JReH5+ fnZ2dnp6enJy8kNl3w+aDvItYxgpKLEoKEzrC8RTZAbCIzTpl/MRj3LJRo/U Hh8fHx0dHR4eHhwcfFfZt4Omg3zLGAZzCjiwCIQ5fV4lKPogyP9ci4tyaTSg GUnI29/f39vb293d3dnZ2d7e/qayra2tryvbqkwH+ZYxjOQUiJgBELyBTzxF B4TMEBBxroX+pgWhgxEUUQSxyKSwd6sAoakEyFuSB/8XRCB8xIKEJLhW4wmK NIJfiIIUYkL8g6MIAX4riEBqkY0UFM4hxKLw1R0jGEUtgs+iIASqAoJODhdE oFioCwuEX6N8IGpzqQnBh0D6FQJmJmPJIq5YEGF9fZ3qJrIKRJBOTYHIRPAL KRMqi1gPyd6CCKurq+QSkWVmAqHVKQ5EBwS/kOrhgZm5BBHHaQURlpeXWXKV S2SpAuFXJzQEudSE4GvZZ5E9SKgQKD2cVhBhaWlpc3PTcikIRJBLQUU3IfhC UBUwlQqBSxBx7lAFERYWFjY2NrjfKZfiQCiXrBxqEdKFIAQm1B2BezFxL4gw Pz+/traGW5iZXMJLeoIKEJrKIY3gn+iEgJdIWpbBgghzc3NUtMqBXMJLtbnU FsHXshD0XIGXWI5I3YIIs7OzKysruIWZKTTLpRihtqIzEfRQbQikbkGEmZkZ FiVVdFwOOQhYLYIVgt4LmNBWVG5GBRGmpqYWFxeZk4WOctC6FDyEW0W3ioJH YKrXj+CfwPsjvAVR8AjUQlmE6elp7m7UlxBsXR0qQtlyNgTd3QoivEErUg7C m3hfeAvuzolnJGJ9C5+RLvOeVIf0sM2K2lQI+U+ql3nvC0N65aEQCCuF0P99 4dq3NuWSXhkKIvg7Qs+3trgcat96uArXovTIXhKANGZJJBlIaQqT5YVFkhvu 5OTkxMTEV1fGZ45wnG8Zw0jedDiRuyTzaC2KCznOohjBLIEQLK14SRT4jYzC gSxQeBIxLCyo4j61UJmgZHzWQb5lDCM5hRM5PVhLLQSZOxi1CPE+kg+EUXBR shcQNGgrlZQmLmhbqwydK1fGZx3kW8Yw0nZWpd8/2rXaR4oREoHwDxu2p63d bKpDO8O2Law94c3KbHPYtoUZqb1u7XJri9v0t9rNCxBqc8lv6BmFNue5rroJ 2pnXtnyw0S3jM0c4LuWMZLycn9Z/7Z5qE0KiueApLBwepLbF4JsLXjznKv8D /X325xMtKt9ZE4VehaxXIhC1SwxHmiVbnREv3vd6gi5Jol1Vqz8zEEZhjSr1 1+JelbWrzHRQXSoTH/TdCnZ5cii0RsUgYhGONx201mEgPrNL1QqhKZ2CurBG bZ+OZ5D/nTueiUA09Z2DpnPQwBXRhbOg+xy0nvv3nT1CgsInlQcJGuhGZBb8 DMB+AxA3aot0/4N08hRxOGp/xuB/yeA1xz9diJ3f5zcYaYracNy2X8IkKGrD cTt/jxQgpMMRswREsflhgfJrnZ+PkKbwIJ7F4+SYP9FP2OT8VvoTIAmWmChh 8Ylp5R3EpylilgRUrdWem7hWZ/2ZLAmitF07ZxHl3XD62PBkl6W7aZmvbKSc 9RfzEj7XSO4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], BaseStyle->"Output", ContentPadding->False, FrameMargins->0]], "ExampleImage", CellMargins->{{49, 45}, {16, 5}}, TaggingRules->{}, CellChangeTimes->{{3.819052757040594*^9, 3.819052757236698*^9}}, CellID->920063327,ExpressionUUID->"69e2b839-558f-491f-9568-ad1b27eb0fe9"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell[ "\t", "ExampleDelimiter",ExpressionUUID-> "04290878-ebe9-4b7c-b36b-94eefb3c9342"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562,ExpressionUUID->"a64f1aba-7c7a-4051-a842-68de78afa3da"], Cell[TextData[{ "Call ", Cell[BoxData[ StyleBox["DarkMode", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "00bec2e9-6c34-4c96-bf0c-6e509527fc30"], " from within any notebook to restyle it:" }], "Text", TaggingRules->{}, CellID->315066414,ExpressionUUID->"96fb07da-5e46-413e-aef4-5d3c078cdfc8"], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DarkMode", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DarkMode", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.2.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6ae9b15e-dd80-4d11-be6e-434bf9ac9265/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DarkMode"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DarkMode"], BoxID -> "DarkMode", Selectable->False], "[", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[65]:=", CellID->910132086,ExpressionUUID->"4d79a4f7-0ebc-4761-93a0-b3ce796d8225"] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"DarkMode | Example Notebook", Visible->False, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Function", "Name" -> "DarkMode", "Property" -> "ExampleNotebook"}}, FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True], Cell[ StyleData["CodeText", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True, CellMargins -> {{48, 40}, {3, 15}}, FontColor -> GrayLevel[0.45]]}, Visible -> False, FrontEndVersion -> "14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], ExpressionUUID->"96e75c93-ee5d-4244-b083-f794ddecb61e" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[599, 21, 130, 2, 70, "Subsection",ExpressionUUID->"71bdbc73-ba7c-40ec-ab40-7c85b28eaaee", CellID->904125756], Cell[732, 25, 252, 4, 70, "Text",ExpressionUUID->"72a5d58d-31b3-4a47-b05a-bc1b1d300acf", CellID->544543353], Cell[CellGroupData[{ Cell[1009, 33, 58021, 1201, 70, "Input",ExpressionUUID->"8c6926f1-3217-4703-9602-89fbc578ac8b", CellID->588088457], Cell[59033, 1236, 390, 9, 70, "Output",ExpressionUUID->"597156a4-53a7-4c43-b2a6-8e61f94842a0", CellID->794080911] }, Open ]], Cell[59438, 1248, 30190, 505, 70, "ExampleImage",ExpressionUUID->"4d466c28-215f-4b19-acfd-237962e8ae63", CellID->589466296], Cell[89631, 1755, 195, 3, 70, "Text",ExpressionUUID->"36bfc82d-5404-4010-acd7-f2096e1b36ac", CellID->503998627], Cell[89829, 1760, 7613, 187, 70, "Input",ExpressionUUID->"333de7fc-8c9a-4559-813c-91d72f8a6cce", CellID->79179593], Cell[97445, 1949, 32101, 536, 70, "ExampleImage",ExpressionUUID->"69e2b839-558f-491f-9568-ad1b27eb0fe9", CellID->920063327], Cell[CellGroupData[{ Cell[129571, 2489, 260, 6, 70, "ExampleDelimiter",ExpressionUUID->"a64f1aba-7c7a-4051-a842-68de78afa3da", CellID->14107562], Cell[129834, 2497, 350, 9, 70, "Text",ExpressionUUID->"96fb07da-5e46-413e-aef4-5d3c078cdfc8", CellID->315066414], Cell[130187, 2508, 7349, 183, 70, "Input",ExpressionUUID->"4d79a4f7-0ebc-4761-93a0-b3ce796d8225", CellID->910132086] }, Open ]] } ] *) (* End of internal cache information *)