(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 419704, 9649] NotebookOptionsPosition[ 371937, 8813] NotebookOutlinePosition[ 377091, 8918] CellTagsIndexPosition[ 376222, 8895] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scientific Programming 2", "Chapter", CellChangeTimes->{{3.724943992364118*^9, 3.724944007146431*^9}, 3.725524593957123*^9},ExpressionUUID->"d90cc9ee-2f1b-4f3e-b72d-\ 3d49e4e77ba1"], Cell[CellGroupData[{ Cell["First steps in working with expressions", "Subchapter", CellChangeTimes->{{3.7255283244776773`*^9, 3.725528347152596*^9}, { 3.7255283926508713`*^9, 3.725528412827997*^9}},ExpressionUUID->"f95585d2-5acf-4389-bb5d-\ 08c192ce9439"], Cell[CellGroupData[{ Cell["Parts of expressions", "Subsection", CellChangeTimes->{{3.725528439462122*^9, 3.725528451270318*^9}},ExpressionUUID->"ee98bd50-83eb-4ca8-aa26-\ 40b0f2c6a169"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Everything", " ", "in", " ", "Mathematica", " ", "is", " ", "an", " ", RowBox[{"expression", ".", " ", "\[IndentingNewLine]", "Expressions"}], " ", "have", " ", "the", " ", "form", " ", RowBox[{ RowBox[{"Head", "[", RowBox[{"e1", ",", "e2", ",", "..."}], "]"}], ".", "\[IndentingNewLine]", "The"}], " ", "simplest", " ", "types", " ", "of", " ", "expressions", " ", "are", " ", "Integers"}], ",", " ", "Reals", ",", " ", "Rationals", ",", " ", RowBox[{"Complex", " ", "or", " ", RowBox[{"List", "."}]}]}], " ", "\[IndentingNewLine]", "*)"}]], "Input", CellChangeTimes->{{3.7263171820084743`*^9, 3.726317194015267*^9}, { 3.726317323708891*^9, 3.7263174273774223`*^9}},ExpressionUUID->"8ec9ce75-92d5-4433-b841-\ 1a3a387695de"], Cell[BoxData[ RowBox[{ RowBox[{"ls", "=", RowBox[{"{", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.725528532381564*^9, 3.72552857088447*^9}, { 3.7257978905079308`*^9, 3.7257978914345016`*^9}},ExpressionUUID->"081d1dcb-9c0f-4817-b8c3-\ 04dadc69b4b3"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Mathematica", " ", "lists", " ", "are", " ", "indexed", " ", "beginning", " ", "with", " ", "1.", " ", "In", " ", "C", " ", "and", " ", "other", " ", "common", " ", "programming", " ", "languages"}], ",", " ", RowBox[{ "arrays", " ", "are", " ", "indexed", " ", "starting", " ", "with", " ", "0.", "\[IndentingNewLine]", "In", " ", "Mathematica"}], ",", " ", RowBox[{ RowBox[{"the", " ", "0"}], "-", RowBox[{ "th", " ", "componenent", " ", "of", " ", "the", " ", "list", " ", "is", " ", "reserved", " ", "for", " ", "the", " ", RowBox[{"\"\\"", ".", " ", "The"}], " ", "head", " ", "gives", " ", "much", " ", "information", " ", "about", " ", "the", " ", "type", " ", "of", " ", "expression", " ", "in", " ", RowBox[{"question", "."}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.726316952752659*^9, 3.726317115896038*^9}},ExpressionUUID->"bab18039-1a21-42e0-864d-\ 984297ccf8d9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", "0", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.725799024917923*^9, 3.725799057324607*^9}, { 3.726316944714266*^9, 3.726316950138426*^9}},ExpressionUUID->"6dceb0cf-65b8-452e-aaad-\ 65299b63f58c"], Cell[BoxData["List"], "Output", CellChangeTimes->{{3.725799037795053*^9, 3.725799058020237*^9}, 3.726316907631172*^9},ExpressionUUID->"5c419128-8dc5-4f82-9108-\ 3785ccdf8dc3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.725528578549655*^9, 3.725528585622231*^9}},ExpressionUUID->"1a8cf602-1909-4534-b03a-\ 7c738ed5abaf"], Cell[BoxData["11"], "Output", CellChangeTimes->{3.725528587088018*^9, 3.725624962531871*^9, 3.7257990691239223`*^9, 3.7263169086801767`*^9},ExpressionUUID->"55bc64f6-01c4-45ca-be2a-\ ec0097b041f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Part", "[", RowBox[{"ls", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7255286404757633`*^9, 3.725528650141713*^9}, { 3.72579908382898*^9, 3.725799085963853*^9}, {3.726316901312883*^9, 3.726316901697886*^9}},ExpressionUUID->"8f5f235d-0e46-4534-9e8c-\ 5c2783cd3358"], Cell[BoxData["a"], "Output", CellChangeTimes->{3.72552865149481*^9, 3.7256249698548326`*^9, 3.725799086445096*^9, 3.7263169025675783`*^9, 3.726316936342243*^9},ExpressionUUID->"3ef356ec-d2f5-4e33-9560-\ acab0c548a42"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.7255286546504602`*^9, 3.7255286838424063`*^9}, { 3.725799097820822*^9, 3.725799129052705*^9}, {3.72631694016875*^9, 3.726316940648769*^9}},ExpressionUUID->"ae0a9521-d466-4e50-80ac-\ a3fc586fb422"], Cell[BoxData["a"], "Output", CellChangeTimes->{ 3.725528692031578*^9, 3.7256249809045973`*^9, {3.7257991086370783`*^9, 3.725799134040427*^9}, 3.7263169417776203`*^9},ExpressionUUID->"4791a4a0-9d5b-402e-81c4-\ 91ab1bda3785"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Part"}]], "Input", CellChangeTimes->{{3.725528750454124*^9, 3.725528761536985*^9}},ExpressionUUID->"53029a15-96fb-4f7c-b64a-\ 2956b510adb7"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", \ RowBox[{\\\"[\\\", StyleBox[\\\"i\\\", \\\"TI\\\"], \\\"]\\\"}], \ \\\"]\\\"}]\) or \!\(\*RowBox[{\\\"Part\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"i\\\", \\\ \"TI\\\"]}], \\\"]\\\"}]\) gives the \!\(\*StyleBox[\\\"i\\\", \ \\\"TI\\\"]\)\!\(\*SuperscriptBox[\\\"\[Null]\\\", \\\"th\\\"]\) part of \!\(\ \*StyleBox[\\\"expr\\\", \\\"TI\\\"]\). \ \\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", RowBox[{\\\"[\ \\\", RowBox[{\\\"-\\\", StyleBox[\\\"i\\\", \\\"TI\\\"]}], \\\"]\\\"}], \ \\\"]\\\"}]\) counts from the end. \\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\ \"TI\\\"], \\\"[\\\", RowBox[{\\\"[\\\", RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\ \"], \\\",\\\", StyleBox[\\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}], \\\"]\\\"}]\) or \ \!\(\*RowBox[{\\\"Part\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \ \\\"TI\\\"], \\\",\\\", StyleBox[\\\"i\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\ \\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"]\\\"}]\) is equivalent to \ \!\(\*RowBox[{RowBox[{RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", \ RowBox[{\\\"[\\\", StyleBox[\\\"i\\\", \\\"TI\\\"], \\\"]\\\"}], \\\"]\\\"}], \ \\\"[\\\", RowBox[{\\\"[\\\", StyleBox[\\\"j\\\", \\\"TI\\\"], \\\"]\\\"}], \ \\\"]\\\"}], StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}]\). \ \\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", RowBox[{\\\"[\ \\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\"]\\\"}], \\\"]\\\"}]\) gives a list of the parts \ \!\(\*SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \[Ellipsis] of \!\(\*StyleBox[\\\"expr\\\", \\\"TI\ \\\"]\). \\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", \ RowBox[{\\\"[\\\", RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\";;\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"]}], \\\"]\\\"}], \\\"]\\\"}]\) gives parts \ \!\(\*StyleBox[\\\"m\\\", \\\"TI\\\"]\) through \!\(\*StyleBox[\\\"n\\\", \ \\\"TI\\\"]\).\\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", \ RowBox[{\\\"[\\\", RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\";;\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\";;\\\", StyleBox[\\\"s\\\", \ \\\"TI\\\"]}], \\\"]\\\"}], \\\"]\\\"}]\) gives parts \ \!\(\*StyleBox[\\\"m\\\", \\\"TI\\\"]\) through \!\(\*StyleBox[\\\"n\\\", \ \\\"TI\\\"]\) in steps of \!\(\*StyleBox[\\\"s\\\", \ \\\"TI\\\"]\).\\n\!\(\*RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"[\\\", \ RowBox[{\\\"[\\\", StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"key\\\ \\\\\",\\\\\\\"TI\\\\\\\"]\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \ \\\"]\\\"}], \\\"]\\\"}]\) gives the value associated with the key \\\"\!\(\*\ \\nStyleBox[\\\"key\\\", \\\"TI\\\"]\)\\\" in an association \ \!\(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\).\\n\!\(\*RowBox[{StyleBox[\\\"expr\ \\\", \\\"TI\\\"], \\\"[\\\", RowBox[{\\\"[\\\", RowBox[{\\\"Key\\\", \\\"[\\\ \", StyleBox[\\\"k\\\", \\\"TI\\\"], \\\"]\\\"}], \\\"]\\\"}], \\\"]\\\"}]\) \ gives the value associated with an arbitrary key \!\(\*StyleBox[\\\"k\\\", \\\ \"TI\\\"]\) in the association \!\(\*StyleBox[\\\"expr\\\", \ \\\"TI\\\"]\).\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Part"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7257991150641937`*^9}, CellTags-> "Info3725799114-7046702",ExpressionUUID->"ffaf6cd8-c7d8-4d5e-aac5-\ 3d91586404bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", RowBox[{"2", ";;", "7"}], "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.72552883559135*^9, 3.72552886588441*^9}},ExpressionUUID->"70778cc1-0ac1-4121-8499-\ 6fc98444e8eb"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g"}], "}"}]], "Output", CellChangeTimes->{3.725528868981234*^9, 3.7256250566955957`*^9},ExpressionUUID->"c74e1dab-478a-4214-803d-\ ff8551912a8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", RowBox[{"2", ";;", "8", ";;", "2"}], "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.725528881655189*^9, 3.7255289057575827`*^9}, { 3.72579917260493*^9, 3.7257991776487923`*^9}},ExpressionUUID->"9311385d-1c3f-4664-a936-\ f0eea4964982"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "d", ",", "f", ",", "h"}], "}"}]], "Output", CellChangeTimes->{ 3.725528914160742*^9, 3.725625064114292*^9, {3.725799173761784*^9, 3.725799178121052*^9}},ExpressionUUID->"d3a81feb-0d92-47fb-b645-\ f5708cb824cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", RowBox[{"-", "1"}], "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.725528936638195*^9, 3.725528937418*^9}, { 3.72552897060498*^9, 3.725528980475741*^9}},ExpressionUUID->"c01e142b-f6ec-4bfd-8e6b-\ 7bff0bcaa850"], Cell[BoxData["k"], "Output", CellChangeTimes->{3.725528983105644*^9, 3.725625068673204*^9},ExpressionUUID->"84dd556e-e1ea-48b6-8051-\ 1a68fda140eb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ls", "\[LeftDoubleBracket]", RowBox[{"-", "3"}], "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.7255290029739933`*^9, 3.72552903244734*^9}},ExpressionUUID->"7de39dd0-3365-48ef-a9e1-\ df615f0feba8"], Cell[BoxData["i"], "Output", CellChangeTimes->{3.7255290345969687`*^9, 3.72562507292032*^9},ExpressionUUID->"c54beb0a-b059-4bb4-8294-09966fe0612b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.72552908481382*^9, 3.725529091527001*^9}},ExpressionUUID->"628ed563-2499-482d-9ff3-\ 8bcb05e87f3e"], Cell[BoxData["a"], "Output", CellChangeTimes->{3.7255290929038677`*^9, 3.7256250956985292`*^9},ExpressionUUID->"490ff240-aeb3-4d04-8180-\ 27eee6355604"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rest", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.7255290968599997`*^9, 3.7255291042656918`*^9}},ExpressionUUID->"2319f888-5443-474f-9693-\ b83e7c6dc1c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]], "Output", CellChangeTimes->{3.725529105279458*^9, 3.725625100631962*^9},ExpressionUUID->"b507c3f6-6e14-4a1d-9c4c-\ 2183a0bce0d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Last", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.725529111592642*^9, 3.725529116671713*^9}},ExpressionUUID->"1b8f0258-a755-427c-ad2e-\ 704e7fcf94db"], Cell[BoxData["k"], "Output", CellChangeTimes->{3.725529118285911*^9, 3.725625113053534*^9},ExpressionUUID->"26e0632d-1b73-4ed2-be7c-\ 1a2c8faf9ba4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"ls", ",", RowBox[{"2", ";;", "8", ";;", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.7255291389697237`*^9, 3.72552917467831*^9}},ExpressionUUID->"2d8e2160-4e88-4c37-b96b-\ f31e6ef6f5fa"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "d", ",", "f", ",", "h"}], "}"}]], "Output", CellChangeTimes->{3.725529176005198*^9, 3.725625123551293*^9},ExpressionUUID->"3d4ce09e-90c8-4d4c-9caa-\ 8ef77fa6dc21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"ls", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.725529189136777*^9, 3.725529206527649*^9}},ExpressionUUID->"563f8136-16ed-467a-b5d6-\ fa644cf4ac47"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]], "Output", CellChangeTimes->{3.7255292092102613`*^9, 3.7256251278805313`*^9},ExpressionUUID->"fc132f95-baf4-4b4d-87c1-\ 33f39baf6e58"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"ls", ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.725529218246276*^9, 3.725529229248061*^9}, { 3.7257978854423733`*^9, 3.72579788591186*^9}},ExpressionUUID->"32939e7a-befc-4ec1-b9b3-\ 47b84b663234"], Cell[BoxData[ RowBox[{"{", RowBox[{"e", ",", "f", ",", "g"}], "}"}]], "Output", CellChangeTimes->{ 3.725529230719397*^9, {3.72579788689214*^9, 3.72579789927973*^9}},ExpressionUUID->"f0eea505-fc30-4fcb-88f8-\ bcb00fae9e79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Drop", "[", RowBox[{"ls", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.725529243945808*^9, 3.725529253688998*^9}},ExpressionUUID->"959dd871-a030-48a1-aa87-\ 3821c98d64fb"], Cell[BoxData[ RowBox[{"{", RowBox[{"f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]], "Output", CellChangeTimes->{3.7255292553134813`*^9, 3.725625134712681*^9},ExpressionUUID->"d60f6192-c77c-4dcc-9a86-\ 4bed03834934"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReplacePart", "[", RowBox[{"ls", ",", RowBox[{"3", "->", "x"}]}], "]"}]], "Input", CellChangeTimes->{{3.725799285569721*^9, 3.72579933523606*^9}},ExpressionUUID->"70ecb0a8-e181-4b71-b2fa-\ c8385f6bcc00"], Cell[BoxData[ RowBox[{"{", RowBox[{ "a", ",", "b", ",", "x", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]], "Output", CellChangeTimes->{{3.7257993026769047`*^9, 3.725799335772325*^9}},ExpressionUUID->"0b548be4-91fe-45de-a89a-\ 4ffd33d3bbe8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ReplacePart"}]], "Input", CellChangeTimes->{{3.725799307232893*^9, 3.7257993096948977`*^9}},ExpressionUUID->"d2c5822c-f49a-4c4e-985b-\ 3c57a2dbc05b"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{StyleBox[\\\"i\ \\\", \\\"TI\\\"], \\\"\[Rule]\\\", StyleBox[\\\"new\\\", \\\"TI\\\"]}]}], \\\ \"]\\\"}]\\) yields an expression in which the \ \\!\\(\\*StyleBox[RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\"], \\\"\[Null]\\\"}]]\ \\)\\!\\(\\*SuperscriptBox[\\\"\[Null]\\\", \\\"th\\\"]\\) part of \ \\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\) is replaced by \ \\!\\(\\*StyleBox[\\\"new\\\", \\\"TI\\\"]\\). \ \\n\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\ \\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\"\[Rule]\\\", \ SubscriptBox[StyleBox[\\\"new\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]}], \\\",\\\", RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\"\[Rule]\\\", \ SubscriptBox[StyleBox[\\\"new\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\ \\\"}]}], \\\"]\\\"}]\\) replaces parts at positions \ \\!\\(\\*SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"n\\\", \\\ \"TI\\\"]]\\) by \\!\\(\\*SubscriptBox[StyleBox[\\\"new\\\", \\\"TI\\\"], \ StyleBox[\\\"n\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\"], \ \\\",\\\", StyleBox[\\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\"\[Rule]\\\", \ StyleBox[\\\"new\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\\) replaces the part at \ position \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\"], \ \\\",\\\", StyleBox[\\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]\\). \ \\n\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\ \\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"j\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\"\[Rule]\\\", SubscriptBox[StyleBox[\\\"new\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) replaces parts at positions \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\ \"], StyleBox[\\\"n\\\", \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"j\ \\\", \\\"TI\\\"], StyleBox[\\\"n\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]\\) by \ \\!\\(\\*SubscriptBox[StyleBox[\\\"new\\\", \\\"TI\\\"], StyleBox[\\\"n\\\", \ \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"j\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}], \\\"\[Rule]\\\", StyleBox[\\\"new\\\", \ \\\"TI\\\"]}]}], \\\"]\\\"}]\\) replaces all parts at positions \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\ \"], StyleBox[\\\"n\\\", \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"j\ \\\", \\\"TI\\\"], StyleBox[\\\"n\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]\\) by \\!\\(\\*StyleBox[\\\"new\\\ \", \\\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"ReplacePart\\\", \\\"[\\\", \ StyleBox[RowBox[{\\\"i\\\", StyleBox[\\\"\[Rule]\\\", FontSlant -> \ \\\"Plain\\\"], \\\"new\\\"}], \\\"TI\\\"], \\\"]\\\"}]\\) represents an \ operator form of ReplacePart that can be applied to an expression.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/ReplacePart"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725799310219399*^9}, CellTags-> "Info3725799310-7046702",ExpressionUUID->"2f933671-7628-43d9-8527-\ 1f7b99572ccb"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "More", " ", "complex", " ", "expressions", " ", "can", " ", "be", " ", "navigated", " ", "through", " ", "in", " ", "the", " ", "same", " ", "way", " ", "as", " ", RowBox[{"lists", ".", " ", "\[IndentingNewLine]", "Expressions"}], " ", "have", " ", "several", " ", "levels"}], ",", " ", RowBox[{ "the", " ", "total", " ", "number", " ", "of", " ", "which", " ", "is", " ", "given", " ", "by", " ", RowBox[{ RowBox[{"Depth", "[", "expression", "]"}], ".", " ", "\[IndentingNewLine]", "At"}], " ", "level", " ", "0"}], ",", " ", RowBox[{"we", " ", "find", " ", "the", " ", RowBox[{"Head", "."}]}]}], "\[IndentingNewLine]", "*)"}]], "Input", CellChangeTimes->{{3.726317437823085*^9, 3.726317493142194*^9}, { 3.726317540764887*^9, 3.726317568072447*^9}},ExpressionUUID->"d288d8ea-635d-4549-95ab-\ f17028d1e3b9"], Cell[BoxData[ RowBox[{ RowBox[{"expr", "=", RowBox[{"a", "+", RowBox[{"f", "[", RowBox[{"x", ",", RowBox[{"y", "^", "n"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.72577964668477*^9, 3.725779654988336*^9}, { 3.725797606514102*^9, 3.725797626580204*^9}},ExpressionUUID->"42e3f437-feb9-40e6-bf54-\ da4e47806056"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "expr", "]"}]], "Input", CellChangeTimes->{{3.725779500616322*^9, 3.725779505450295*^9}, { 3.725779659816605*^9, 3.72577966069166*^9}},ExpressionUUID->"4b63b46d-540f-4e0d-9341-\ 4418e3569e9e"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Plus", "[", RowBox[{"a", ",", RowBox[{"f", "[", RowBox[{"x", ",", RowBox[{"Power", "[", RowBox[{"y", ",", "n"}], "]"}]}], "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.725779505796708*^9, 3.7257796611192713`*^9, {3.725785800259651*^9, 3.725785803749692*^9}, 3.7257993691398*^9, 3.72631759985917*^9},ExpressionUUID->"35734f82-4d64-440c-afba-\ c5e7ff5f9237"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", "expr", "]"}]], "Input", CellChangeTimes->{{3.725779662548045*^9, 3.7257796767401657`*^9}},ExpressionUUID->"7047693f-fe6a-4d22-a6ec-\ a69894e798e1"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["Plus", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"a", "+", RowBox[{"f", "[", RowBox[{"x", ",", SuperscriptBox["y", "n"]}], "]"}]}], HoldForm]], Annotation[#, HoldForm[$CellContext`a + $CellContext`f[$CellContext`x, \ $CellContext`y^$CellContext`n]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox[ RowBox[{"f", "[", RowBox[{"x", ",", SuperscriptBox["y", "n"]}], "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`x, $CellContext`y^$CellContext`n]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["x", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["x", HoldForm]], Annotation[#, HoldForm[$CellContext`x], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["Power", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox[ SuperscriptBox["y", "n"], HoldForm]], Annotation[#, HoldForm[$CellContext`y^$CellContext`n], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["y", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox["y", HoldForm]], Annotation[#, HoldForm[$CellContext`y], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["n", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["n", HoldForm]], Annotation[#, HoldForm[$CellContext`n], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.725779673204721*^9, 3.725779677089727*^9}, 3.7263176007174273`*^9},ExpressionUUID->"aa738b35-c21f-4260-b8e2-\ 7a06cfc0ba7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Depth", "[", "expr", "]"}]], "Input", CellChangeTimes->{{3.72577980983449*^9, 3.72577981389508*^9}},ExpressionUUID->"fd5a373d-aab7-4cfa-a666-\ e3cd6b4e3a35"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.7257798145507097`*^9, 3.7257994490367413`*^9},ExpressionUUID->"386a5d9a-a99a-414c-b1d1-\ f9756c003ed5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Level", "[", RowBox[{"expr", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7257798889125338`*^9, 3.7257799170032988`*^9}, { 3.72578008168253*^9, 3.7257800839259043`*^9}},ExpressionUUID->"75e7449d-586a-418e-8619-\ 697ebad28d66"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", RowBox[{"f", "[", RowBox[{"x", ",", SuperscriptBox["y", "n"]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.7257798930487413`*^9, 3.725779917406966*^9}, { 3.725780082313684*^9, 3.725780084305725*^9}, 3.725799463414459*^9},ExpressionUUID->"77038f0d-09a8-4f94-b243-\ 77e414fce9e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Level", "[", RowBox[{"expr", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7257799210386877`*^9, 3.725779921170854*^9}},ExpressionUUID->"f38c34fe-dbe3-4cc4-a656-\ 6111961843d7"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "x", ",", SuperscriptBox["y", "n"], ",", RowBox[{"f", "[", RowBox[{"x", ",", SuperscriptBox["y", "n"]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.725779921737321*^9},ExpressionUUID->"1b073bde-825c-4ced-846c-\ af3e38473e90"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Level", "[", RowBox[{"expr", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.725779938205768*^9, 3.725779938514226*^9}},ExpressionUUID->"164e6154-df63-4f31-ac52-\ 9dbb242e07ad"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "x", ",", "y", ",", "n", ",", SuperscriptBox["y", "n"], ",", RowBox[{"f", "[", RowBox[{"x", ",", SuperscriptBox["y", "n"]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.725779938943459*^9},ExpressionUUID->"cf242090-5e6f-4759-8237-\ 9b1bba477e38"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", "[", RowBox[{"[", "0", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7257857890631104`*^9, 3.7257858172581367`*^9}, { 3.7257995167221317`*^9, 3.725799517785232*^9}},ExpressionUUID->"307a8cd6-fe68-44f7-821b-\ bc7aa94c732f"], Cell[BoxData["Plus"], "Output", CellChangeTimes->{{3.725785790739325*^9, 3.7257858178238983`*^9}, 3.7257995184140787`*^9},ExpressionUUID->"d13fd655-f05c-4bb9-80c1-\ 295c62112c53"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", "[", RowBox[{"[", RowBox[{"2", ",", "2", ",", "0"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.725780064756687*^9, 3.725780116413289*^9}, { 3.725780186137006*^9, 3.725780187155336*^9}},ExpressionUUID->"2ff65b57-1d89-4073-b207-\ 25cfd176f61a"], Cell[BoxData["Power"], "Output", CellChangeTimes->{{3.7257800690113363`*^9, 3.725780117216709*^9}, 3.725780187510256*^9},ExpressionUUID->"fcae0909-023a-417c-9db7-\ eba7abb6a759"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReplacePart", "[", RowBox[{"expr", ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "0"}], "}"}], "->", "Plus"}]}], "]"}]], "Input", CellChangeTimes->{{3.7257974612540693`*^9, 3.725797547073823*^9}},ExpressionUUID->"deefeb3e-ba16-439d-b4cc-\ 41df3468cd48"], Cell[BoxData[ RowBox[{"a", "+", RowBox[{"f", "[", RowBox[{"x", ",", RowBox[{"n", "+", "y"}]}], "]"}]}]], "Output", CellChangeTimes->{{3.7257974698352337`*^9, 3.725797490506853*^9}, { 3.725797523809053*^9, 3.725797547692132*^9}, 3.725797613942514*^9, 3.7263176051937532`*^9},ExpressionUUID->"0adb8df7-a7e3-4cd9-95ea-\ 963f90c23727"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.726317606166367*^9, 3.726317609419367*^9}},ExpressionUUID->"d87d1aff-73a7-4566-a7e4-\ fab83d5375d0"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["Plus", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"a", "+", RowBox[{"f", "[", RowBox[{"x", ",", RowBox[{"n", "+", "y"}]}], "]"}]}], HoldForm]], Annotation[#, HoldForm[$CellContext`a + $CellContext`f[$CellContext`x, \ $CellContext`n + $CellContext`y]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox[ RowBox[{"f", "[", RowBox[{"x", ",", RowBox[{"n", "+", "y"}]}], "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`x, $CellContext`n + $CellContext`y]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["x", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["x", HoldForm]], Annotation[#, HoldForm[$CellContext`x], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["Plus", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox[ RowBox[{"n", "+", "y"}], HoldForm]], Annotation[#, HoldForm[$CellContext`n + $CellContext`y], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["n", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox["n", HoldForm]], Annotation[#, HoldForm[$CellContext`n], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["y", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["y", HoldForm]], Annotation[#, HoldForm[$CellContext`y], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}]& ], AspectRatio->NCache[2 Rational[2, 5]^Rational[1, 2], 1.2649110640673518`], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.7263176099780293`*^9},ExpressionUUID->"1b5bd4e1-2b5e-4037-a8e9-\ 93c31a495904"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Pure Functions", "Subsection", CellChangeTimes->{{3.725528439462122*^9, 3.725528451270318*^9}, { 3.725776980287788*^9, 3.725776986207513*^9}, {3.72578404278117*^9, 3.725784043690197*^9}},ExpressionUUID->"ee98bd50-83eb-4ca8-aa26-\ 40b0f2c6a169"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Function", "[", RowBox[{"u", ",", RowBox[{"3", "+", "u"}]}], "]"}], "[", "2", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"x", "+", "y"}]}], "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2"}], "]"}]}], "Input", CellChangeTimes->{{3.7257999520534267`*^9, 3.72580002941502*^9}},ExpressionUUID->"98c65c57-280d-43eb-b36c-\ 8c32b5000277"], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.725780305163148*^9, {3.725799955807988*^9, 3.725800006095503*^9}, 3.7258000389191513`*^9},ExpressionUUID->"36410a60-b75c-44fd-a77a-\ f78f9fa8c8c3"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.725780305163148*^9, {3.725799955807988*^9, 3.725800006095503*^9}, 3.725800038924232*^9},ExpressionUUID->"3cccd3d9-20ea-4249-bcd5-\ 8597d3704e22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Function", "[", RowBox[{"3", "+", "#"}], "]"}], "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Function", "[", RowBox[{"#1", "+", "#2"}], "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], "Input", CellChangeTimes->{{3.7258001240601063`*^9, 3.725800140987418*^9}},ExpressionUUID->"4cca88bd-2f6f-4e3d-beff-\ 3f9af66e8695"], Cell[BoxData[ RowBox[{"3", "+", "x"}]], "Output", CellChangeTimes->{3.7257803298979483`*^9, 3.725800141910207*^9},ExpressionUUID->"8d8b2cb0-80b8-4a76-8589-\ ba2dc7018f09"], Cell[BoxData["3"], "Output", CellChangeTimes->{3.7257803298979483`*^9, 3.7258001419150257`*^9},ExpressionUUID->"d537b117-8af5-4994-998e-\ de4d61fa8a3d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "=", RowBox[{ RowBox[{"(", RowBox[{"#", "+", "3"}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"g", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "+", "3"}], ")"}], "&"}], "[", "x", "]"}]}], "Input", CellChangeTimes->{{3.7257803113832903`*^9, 3.725780352551009*^9}, { 3.72580017082694*^9, 3.72580017274641*^9}},ExpressionUUID->"f32ddec1-6298-4918-b5f0-\ c78379090f83"], Cell[BoxData[ RowBox[{"3", "+", "x"}]], "Output", CellChangeTimes->{{3.7257803206777687`*^9, 3.725780353026022*^9}, { 3.725800164653829*^9, 3.725800173968903*^9}},ExpressionUUID->"7adccdba-e050-47cb-a5d8-\ 648cba8487a7"], Cell[BoxData[ RowBox[{"3", "+", "x"}]], "Output", CellChangeTimes->{{3.7257803206777687`*^9, 3.725780353026022*^9}, { 3.725800164653829*^9, 3.725800173974491*^9}},ExpressionUUID->"b7a3b770-6289-4e5b-9060-\ 07c8559be2d3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Context", "[", "Plus", "]"}]], "Input", CellChangeTimes->{{3.725800227437153*^9, 3.7258002386482687`*^9}},ExpressionUUID->"84d12050-85da-4128-8efa-\ af4572a5546b"], Cell[BoxData["\<\"System`\"\>"], "Output", CellChangeTimes->{ 3.72580023900597*^9},ExpressionUUID->"ad2c831b-6a49-4672-813f-79e2b858e394"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "g"}]], "Input", CellChangeTimes->{{3.7257803586997957`*^9, 3.725780359718293*^9}},ExpressionUUID->"4887f96f-b7b9-40d3-a161-\ 67db2e785a81"], Cell[CellGroupData[{ Cell["Global`g", "Print", "PrintUsage", CellChangeTimes->{3.725800194631742*^9}, CellTags-> "Info3725800194-2168353",ExpressionUUID->"5bc6084f-18fd-4939-b488-\ deca6968fbc6"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"g", "=", RowBox[{ RowBox[{"#1", "+", "3"}], "&"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`g], Editable->False]], "Print", CellChangeTimes->{3.72580019464891*^9}, CellTags-> "Info3725800194-2168353",ExpressionUUID->"c5a8ce8e-e901-48f4-a029-\ b906574e9624"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "g", "]"}]], "Input", CellChangeTimes->{{3.725780361959811*^9, 3.725780379419385*^9}},ExpressionUUID->"b19a9bcc-8201-4aef-b8b6-\ 8b9dd2afb49d"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Function", "[", RowBox[{"Plus", "[", RowBox[{ RowBox[{"Slot", "[", "1", "]"}], ",", "3"}], "]"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.725780379860619*^9},ExpressionUUID->"d48749d2-b407-45f2-a6d6-\ 4c60d62a0b3a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"h", "=", RowBox[{ RowBox[{"(", RowBox[{"#1", "+", "#2"}], ")"}], "&"}]}], "\[IndentingNewLine]", RowBox[{"h", "[", RowBox[{"1", ",", "2"}], "]"}]}], "Input", CellChangeTimes->{{3.725798086235304*^9, 3.7257980987054453`*^9}},ExpressionUUID->"fdfcafe4-6c11-4018-a9e2-\ 3c95e64da85a"], Cell[BoxData[ RowBox[{ RowBox[{"#1", "+", "#2"}], "&"}]], "Output", CellChangeTimes->{ 3.725798099100089*^9},ExpressionUUID->"8961fad5-d210-4499-86f5-\ bf31d61ff0ba"], Cell[BoxData["3"], "Output", CellChangeTimes->{ 3.725798099104355*^9},ExpressionUUID->"a6977a98-2340-4a5b-beb3-\ 55d1d161eacb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "h"}]], "Input", CellChangeTimes->{{3.72579810494287*^9, 3.7257981058972673`*^9}},ExpressionUUID->"c650d2c7-5af3-4cfb-94ff-\ 86d23776f289"], Cell[CellGroupData[{ Cell["Global`h", "Print", "PrintUsage", CellChangeTimes->{3.725798106267419*^9}, CellTags-> "Info3725798106-4267846",ExpressionUUID->"e6b91035-a936-4e0d-b649-\ 6e46a3615536"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"h", "=", RowBox[{ RowBox[{"#1", "+", "#2"}], "&"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`h], Editable->False]], "Print", CellChangeTimes->{3.725798106302124*^9}, CellTags-> "Info3725798106-4267846",ExpressionUUID->"8ff39338-1f46-454f-a9ea-\ 1a0f90d6bce8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "h", "]"}]], "Input", CellChangeTimes->{{3.72579810920725*^9, 3.725798112121121*^9}},ExpressionUUID->"5c759fd2-4721-4ed6-b5cb-\ 68960cd357fc"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Function", "[", RowBox[{"Plus", "[", RowBox[{ RowBox[{"Slot", "[", "1", "]"}], ",", RowBox[{"Slot", "[", "2", "]"}]}], "]"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.725798112571458*^9},ExpressionUUID->"53c169f4-ca01-4b56-919e-\ 118426e2412f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.725800378100667*^9, 3.725800389395966*^9}, { 3.7263188225943747`*^9, 3.726318822735796*^9}},ExpressionUUID->"b63aa55a-37d0-410e-ac0b-\ a9ad0be58433"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.7258003897657967`*^9, 3.726318823357046*^9, 3.726318945175185*^9},ExpressionUUID->"3859d7d2-5ef6-49a8-b89f-\ b2da8685db61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.7258004062174377`*^9, 3.725800417539667*^9}},ExpressionUUID->"ea7981d4-53cc-4200-a8f6-\ 8dd82f99fc95"], Cell[BoxData["Symbol"], "Output", CellChangeTimes->{{3.725800409677741*^9, 3.725800418047306*^9}},ExpressionUUID->"f7c30cee-2884-4b3e-9401-\ d57153bcb5ac"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "The", " ", "expressions", " ", "f", " ", "and", " ", "g", " ", "can", " ", "both", " ", "be", " ", "used", " ", "as", " ", RowBox[{ "\"\\"", ".", " ", "\[IndentingNewLine]", "However"}]}], ",", " ", RowBox[{"they", " ", "are", " ", RowBox[{"different", ".", " ", "f"}], " ", "is", " ", "recognised", " ", "by", " ", "Mathematica", " ", "as", " ", "a", " ", "Symbol"}], ",", " ", RowBox[{ RowBox[{"for", " ", "which", " ", "the", " ", "rule", " ", RowBox[{"f", "[", "x_", "]"}]}], ":=", RowBox[{"x", "+", RowBox[{"3", " ", "has", " ", "been", " ", RowBox[{"associated", ".", "\[IndentingNewLine]", "On"}], " ", "the", " ", "other", " ", "hand"}]}]}], ",", " ", RowBox[{"g", " ", "is", " ", "recognised", " ", "a", " ", "Function"}], ",", " ", RowBox[{ RowBox[{"i", ".", "e", ".", " ", "a"}], " ", "pure", " ", RowBox[{"function", ".", " ", "\[IndentingNewLine]", "There"}], " ", "are", " ", "situations", " ", "when", " ", "a", " ", "pure", " ", "function", " ", "is", " ", "required"}], ",", " ", RowBox[{ "such", " ", "as", " ", "selecting", " ", "parts", " ", "of", " ", "expressions", " ", "with", " ", RowBox[{"functions", "."}]}]}], "\[IndentingNewLine]", "*)"}]], "Input", CellChangeTimes->{{3.7263188368255787`*^9, 3.726318966996026*^9}, { 3.726318999712616*^9, 3.726319026854707*^9}, {3.726319142225108*^9, 3.726319191307828*^9}, {3.726319303138527*^9, 3.726319351180043*^9}},ExpressionUUID->"5008658a-0902-42fc-b966-\ cff96d9219ee"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"f", ",", "g", ",", "h"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.72580047523778*^9, 3.7258004770010633`*^9}, { 3.72631935492491*^9, 3.72631936174251*^9}},ExpressionUUID->"5199ec37-1934-41f7-a31d-\ 956cb4ac8cd2"], Cell[CellGroupData[{ Cell[BoxData["ls"], "Input", CellChangeTimes->{{3.725800469790414*^9, 3.725800469881488*^9}},ExpressionUUID->"84332abb-20bb-4b59-9761-\ 4c91087084ec"], Cell[BoxData[ RowBox[{"{", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]], "Output", CellChangeTimes->{{3.725800470831781*^9, 3.72580047866063*^9}, 3.726319365446322*^9},ExpressionUUID->"99f24d6e-47d9-420b-9de8-\ 88f23f7b0bd5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"ls", ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[Equal]", "a"}], ")"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.725800462664444*^9, 3.725800534351306*^9}},ExpressionUUID->"67b8cf4f-a626-4c5e-9df5-\ faac8bd56f01"], Cell[BoxData[ RowBox[{"{", "a", "}"}]], "Output", CellChangeTimes->{ 3.725800541975358*^9},ExpressionUUID->"bddb6ea0-51c2-43c3-ba62-\ 67721d1170ab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Map and Apply", "Subsection", CellChangeTimes->{{3.725529376550763*^9, 3.725529404804124*^9}},ExpressionUUID->"570835f4-e463-4c12-a402-\ 48045790ba9e"], Cell[CellGroupData[{ Cell[BoxData["ls"], "Input", CellChangeTimes->{{3.7258007207592983`*^9, 3.72580072097744*^9}},ExpressionUUID->"78f8905e-ad78-4834-b7f2-\ 83bd20c4c79d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}]], "Output", CellChangeTimes->{ 3.72580072159098*^9},ExpressionUUID->"494ce4d9-ff55-4dbb-9464-abad0801412f"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Map", "[", RowBox[{"F", ",", "expr"}], "]"}], " ", "applies", " ", "F", " ", "to", " ", "each", " ", "element", " ", "on", " ", "the", " ", "first", " ", "level", " ", "in", " ", "expr"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.726319407890855*^9, 3.726319435835081*^9}},ExpressionUUID->"f2b68efc-1730-468f-9742-\ f8f35ca90b69"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.7258007244168777`*^9, 3.72580072704143*^9}},ExpressionUUID->"ee6ce545-9caa-4313-b77c-\ 4e561a82910d"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{1.507556722888818, 0.30151134457776363`}, {0., 0.}, {0.30151134457776363`, 0.}, {0.6030226891555273, 0.}, { 0.9045340337332909, 0.}, {1.2060453783110545`, 0.}, {1.507556722888818, 0.}, {1.8090680674665818`, 0.}, {2.1105794120443453`, 0.}, { 2.412090756622109, 0.}, {2.7136021011998728`, 0.}, {3.015113445777636, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {1, 8}, {1, 9}, {1, 10}, {1, 11}, {1, 12}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["List", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", ",", "i", ",", "j", ",", "k"}], "}"}], HoldForm]], Annotation[#, HoldForm[{$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d, $CellContext`e, $CellContext`f, $CellContext`g, \ $CellContext`h, $CellContext`i, $CellContext`j, $CellContext`k}], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["b", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["b", HoldForm]], Annotation[#, HoldForm[$CellContext`b], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["c", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["c", HoldForm]], Annotation[#, HoldForm[$CellContext`c], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["d", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox["d", HoldForm]], Annotation[#, HoldForm[$CellContext`d], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["e", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox["e", HoldForm]], Annotation[#, HoldForm[$CellContext`e], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["f", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["f", HoldForm]], Annotation[#, HoldForm[$CellContext`f], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["g", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 8], TagBox["g", HoldForm]], Annotation[#, HoldForm[$CellContext`g], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["h", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 9], TagBox["h", HoldForm]], Annotation[#, HoldForm[$CellContext`h], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["i", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 10], TagBox["i", HoldForm]], Annotation[#, HoldForm[$CellContext`i], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["j", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 11], TagBox["j", HoldForm]], Annotation[#, HoldForm[$CellContext`j], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["k", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 12], TagBox["k", HoldForm]], Annotation[#, HoldForm[$CellContext`k], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{1.507556722888818, 0.30151134457776363`}, {0., 0.}, {0.30151134457776363`, 0.}, {0.6030226891555273, 0.}, { 0.9045340337332909, 0.}, {1.2060453783110545`, 0.}, {1.507556722888818, 0.}, {1.8090680674665818`, 0.}, {2.1105794120443453`, 0.}, { 2.412090756622109, 0.}, {2.7136021011998728`, 0.}, {3.015113445777636, 0.}}]& ], AspectRatio->NCache[2 11^Rational[-1, 2], 0.6030226891555273], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.725800727405356*^9},ExpressionUUID->"3d2ec02f-e9e3-4795-a610-\ 7182c13a1daf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"F", ",", "ls"}], "]"}]], "Input", CellChangeTimes->{{3.725529429518282*^9, 3.7255294508007383`*^9}},ExpressionUUID->"d1ed8a42-74ad-4ccd-943a-\ a5dc622137b4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"F", "[", "a", "]"}], ",", RowBox[{"F", "[", "b", "]"}], ",", RowBox[{"F", "[", "c", "]"}], ",", RowBox[{"F", "[", "d", "]"}], ",", RowBox[{"F", "[", "e", "]"}], ",", RowBox[{"F", "[", "f", "]"}], ",", RowBox[{"F", "[", "g", "]"}], ",", RowBox[{"F", "[", "h", "]"}], ",", RowBox[{"F", "[", "i", "]"}], ",", RowBox[{"F", "[", "j", "]"}], ",", RowBox[{"F", "[", "k", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7255294544187813`*^9, 3.7256253875447474`*^9},ExpressionUUID->"29f0cd3e-0f14-4a48-b497-\ d001458026f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"Map", "[", RowBox[{"F", ",", "ls"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.725800755916809*^9, 3.72580075844261*^9}},ExpressionUUID->"1797bf30-4971-4de9-869f-\ 27bd2caf3894"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQvXw2e1pZCIODvQ5PwV6FV/YMUADh34Lz0cXRaVT5 V2jyCHP1FTlF+mZ8hsvD+Kj6f6Hp/wWXR3XvLXsYH9V8ZgdU85nh8tuXcR1a eocNLg/jo9rP5YBqPxdc/thGXrmrKbxweRgf1X0CaO4TgMsDANhLXv4= "], { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 4}, {1, 6}, {1, 8}, {1, 10}, {1, 12}, {1, 14}, {1, 16}, {1, 18}, {1, 20}, {1, 22}, {2, 3}, {4, 5}, {6, 7}, {8, 9}, {10, 11}, {12, 13}, {14, 15}, {16, 17}, {18, 19}, {20, 21}, {22, 23}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["List", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"{", RowBox[{ RowBox[{"F", "[", "a", "]"}], ",", RowBox[{"F", "[", "b", "]"}], ",", RowBox[{"F", "[", "c", "]"}], ",", RowBox[{"F", "[", "d", "]"}], ",", RowBox[{"F", "[", "e", "]"}], ",", RowBox[{"F", "[", "f", "]"}], ",", RowBox[{"F", "[", "g", "]"}], ",", RowBox[{"F", "[", "h", "]"}], ",", RowBox[{"F", "[", "i", "]"}], ",", RowBox[{"F", "[", "j", "]"}], ",", RowBox[{"F", "[", "k", "]"}]}], "}"}], HoldForm]], Annotation[#, HoldForm[{ $CellContext`F[$CellContext`a], $CellContext`F[$CellContext`b], $CellContext`F[$CellContext`c], $CellContext`F[$CellContext`d], $CellContext`F[$CellContext`e], $CellContext`F[$CellContext`f], $CellContext`F[$CellContext`g], $CellContext`F[$CellContext`h], $CellContext`F[$CellContext`i], $CellContext`F[$CellContext`j], $CellContext`F[$CellContext`k]}], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox[ RowBox[{"F", "[", "a", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`a]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox[ RowBox[{"F", "[", "b", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`b]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["b", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox["b", HoldForm]], Annotation[#, HoldForm[$CellContext`b], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox[ RowBox[{"F", "[", "c", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`c]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["c", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["c", HoldForm]], Annotation[#, HoldForm[$CellContext`c], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 8], TagBox[ RowBox[{"F", "[", "d", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`d]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["d", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 9], TagBox["d", HoldForm]], Annotation[#, HoldForm[$CellContext`d], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 10], TagBox[ RowBox[{"F", "[", "e", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`e]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["e", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 11], TagBox["e", HoldForm]], Annotation[#, HoldForm[$CellContext`e], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 12], TagBox[ RowBox[{"F", "[", "f", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`f]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["f", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 13], TagBox["f", HoldForm]], Annotation[#, HoldForm[$CellContext`f], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 14], TagBox[ RowBox[{"F", "[", "g", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`g]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["g", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 15], TagBox["g", HoldForm]], Annotation[#, HoldForm[$CellContext`g], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 16], TagBox[ RowBox[{"F", "[", "h", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`h]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["h", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 17], TagBox["h", HoldForm]], Annotation[#, HoldForm[$CellContext`h], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 18], TagBox[ RowBox[{"F", "[", "i", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`i]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["i", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 19], TagBox["i", HoldForm]], Annotation[#, HoldForm[$CellContext`i], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 20], TagBox[ RowBox[{"F", "[", "j", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`j]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["j", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 21], TagBox["j", HoldForm]], Annotation[#, HoldForm[$CellContext`j], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["F", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 22], TagBox[ RowBox[{"F", "[", "k", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`F[$CellContext`k]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["k", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 23], TagBox["k", HoldForm]], Annotation[#, HoldForm[$CellContext`k], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> CompressedData[" 1:eJxTTMoPSmViYGAQB2IQvXw2e1pZCIODvQ5PwV6FV/YMUADh34Lz0cXRaVT5 V2jyCHP1FTlF+mZ8hsvD+Kj6f6Hp/wWXR3XvLXsYH9V8ZgdU85nh8tuXcR1a eocNLg/jo9rP5YBqPxdc/thGXrmrKbxweRgf1X0CaO4TgMsDANhLXv4= "]]& ], AspectRatio->NCache[Rational[6, 11]^Rational[1, 2], 0.7385489458759964], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.725800759043477*^9},ExpressionUUID->"b8daa4fa-8cf2-486b-ae49-\ 695ce83dea0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F", "/@", "ls"}]], "Input", CellChangeTimes->{{3.7255294620353203`*^9, 3.725529468428238*^9}},ExpressionUUID->"c9f2401b-a600-4dca-9e9e-\ 2d38fed033d5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"F", "[", "a", "]"}], ",", RowBox[{"F", "[", "b", "]"}], ",", RowBox[{"F", "[", "c", "]"}], ",", RowBox[{"F", "[", "d", "]"}], ",", RowBox[{"F", "[", "e", "]"}], ",", RowBox[{"F", "[", "f", "]"}], ",", RowBox[{"F", "[", "g", "]"}], ",", RowBox[{"F", "[", "h", "]"}], ",", RowBox[{"F", "[", "i", "]"}], ",", RowBox[{"F", "[", "j", "]"}], ",", RowBox[{"F", "[", "k", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.725529474838478*^9, 3.725625395864012*^9},ExpressionUUID->"f385af02-0fc5-4546-8c74-\ ab2ec56f5db5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F", "@", "x"}]], "Input", CellChangeTimes->{{3.725800801027775*^9, 3.725800803062503*^9}},ExpressionUUID->"5539b7f8-1d5e-4381-bc24-\ 74357cb5e3e6"], Cell[BoxData[ RowBox[{"F", "[", "x", "]"}]], "Output", CellChangeTimes->{ 3.7258008073264637`*^9},ExpressionUUID->"3bcebde1-ebfd-46f3-8e06-\ 9103c2997c7a"] }, Open ]], Cell["An expression does not have to be a list", "Text", CellChangeTimes->{{3.7255295624345837`*^9, 3.725529590507028*^9}},ExpressionUUID->"12e596a7-4dd8-45f5-bfd5-\ e27cc15238b3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "FullForm"}]], "Input", CellChangeTimes->{{3.7255295955155067`*^9, 3.725529609519456*^9}},ExpressionUUID->"74a75222-609a-4a3f-aa48-\ d8d737d8cb16"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.725529615821309*^9, 3.725625405372505*^9},ExpressionUUID->"41aff10c-51fd-451e-9d10-\ 159cde17ad31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.725800844760652*^9, 3.725800851473118*^9}},ExpressionUUID->"b8062508-ea65-4f64-a38c-\ 135895a7ca1c"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {1, 4}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["g", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`g[$CellContext`a, $CellContext`b, $CellContext`c]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["b", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["b", HoldForm]], Annotation[#, HoldForm[$CellContext`b], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["c", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["c", HoldForm]], Annotation[#, HoldForm[$CellContext`c], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.725800851826158*^9},ExpressionUUID->"308e0f91-1633-4aa2-ad8c-\ 355500d6d49c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.72552964460257*^9, 3.725529650336752*^9}},ExpressionUUID->"686d55d4-9769-4979-8abc-\ a606bf6c529d"], Cell[BoxData["g"], "Output", CellChangeTimes->{3.725529652033125*^9, 3.725625410261177*^9},ExpressionUUID->"341adca5-9f96-46d3-b4a3-\ ca91c327ff27"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "/@", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.725529659522421*^9, 3.725529678588296*^9}},ExpressionUUID->"da3f5f80-14d8-4f67-bb78-\ f74526297a6b"], Cell[BoxData[ RowBox[{"g", "[", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"f", "[", "b", "]"}], ",", RowBox[{"f", "[", "c", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.725529680599581*^9, 3.7256254369939003`*^9},ExpressionUUID->"17fdb44f-55dd-45b6-8fdb-\ 247eddedb7e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"f", "/@", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.726319453301601*^9, 3.7263194606902103`*^9}},ExpressionUUID->"b187f02f-78f6-415a-a45a-\ 47cde4ca793d"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.8660254037844387, 1.7320508075688774`}, {0., 0.8660254037844387}, {0., 0.}, {0.8660254037844387, 0.8660254037844387}, { 0.8660254037844387, 0.}, {1.7320508075688774`, 0.8660254037844387}, { 1.7320508075688774`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 4}, {1, 6}, {2, 3}, {4, 5}, {6, 7}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["g", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"g", "[", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"f", "[", "b", "]"}], ",", RowBox[{"f", "[", "c", "]"}]}], "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`g[ $CellContext`f[$CellContext`a], $CellContext`f[$CellContext`b], $CellContext`f[$CellContext`c]]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox[ RowBox[{"f", "[", "a", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`a]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox[ RowBox[{"f", "[", "b", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`b]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["b", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox["b", HoldForm]], Annotation[#, HoldForm[$CellContext`b], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox[ RowBox[{"f", "[", "c", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`c]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["c", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["c", HoldForm]], Annotation[#, HoldForm[$CellContext`c], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.8660254037844387, 1.7320508075688774`}, {0., 0.8660254037844387}, {0., 0.}, {0.8660254037844387, 0.8660254037844387}, {0.8660254037844387, 0.}, {1.7320508075688774`, 0.8660254037844387}, {1.7320508075688774`, 0.}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.726319461159287*^9},ExpressionUUID->"9dedf1b1-0849-449a-8a65-\ 74944059ee32"] }, Open ]], Cell["Some functions are Listable", "Text", CellChangeTimes->{{3.7255297273458223`*^9, 3.7255297747715*^9}},ExpressionUUID->"f8b0866f-0c88-49b8-9409-8e8597f373ed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.725800917726527*^9, 3.725800918874889*^9}},ExpressionUUID->"10f285a6-7a98-4885-8e71-\ 2d941f113401"], Cell[BoxData[ RowBox[{"Log", "[", "x", "]"}]], "Output", CellChangeTimes->{ 3.725800919519546*^9},ExpressionUUID->"088928f8-7da5-4bdc-a1fc-\ 10e1afaea208"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "/@", "ls"}]], "Input", CellChangeTimes->{{3.725800932335828*^9, 3.725800936114554*^9}},ExpressionUUID->"eaa054bd-2980-413a-a1c8-\ 0b39bc5f29f3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", "a", "]"}], ",", RowBox[{"Log", "[", "b", "]"}], ",", RowBox[{"Log", "[", "c", "]"}], ",", RowBox[{"Log", "[", "d", "]"}], ",", RowBox[{"Log", "[", "e", "]"}], ",", RowBox[{"Log", "[", "f", "]"}], ",", RowBox[{"Log", "[", "g", "]"}], ",", RowBox[{"Log", "[", "h", "]"}], ",", RowBox[{"Log", "[", "i", "]"}], ",", RowBox[{"Log", "[", "j", "]"}], ",", RowBox[{"Log", "[", "k", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7258009365693283`*^9},ExpressionUUID->"fa69a122-1f22-4953-8741-\ 14e6613694f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "[", "ls", "]"}]], "Input", CellChangeTimes->{{3.7255297816879587`*^9, 3.725529787786977*^9}},ExpressionUUID->"b5fe7089-1a6f-474c-9341-\ 9e5b56d84d9e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", "a", "]"}], ",", RowBox[{"Log", "[", "b", "]"}], ",", RowBox[{"Log", "[", "c", "]"}], ",", RowBox[{"Log", "[", "d", "]"}], ",", RowBox[{"Log", "[", "e", "]"}], ",", RowBox[{"Log", "[", "f", "]"}], ",", RowBox[{"Log", "[", "g", "]"}], ",", RowBox[{"Log", "[", "h", "]"}], ",", RowBox[{"Log", "[", "i", "]"}], ",", RowBox[{"Log", "[", "j", "]"}], ",", RowBox[{"Log", "[", "k", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.725529789389626*^9, 3.725625443823331*^9},ExpressionUUID->"fec9016f-98f2-40fb-b057-\ aff8b1077977"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Attributes", "[", "Log", "]"}]], "Input", CellChangeTimes->{{3.7255298156029053`*^9, 3.725529825582971*^9}},ExpressionUUID->"89b22b44-cd33-4d39-971d-\ 802407016a4b"], Cell[BoxData[ RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction", ",", "Protected"}], "}"}]], "Output", CellChangeTimes->{3.725529827147833*^9, 3.7256255398204308`*^9},ExpressionUUID->"179616cd-fddf-4dfa-ac23-\ 2643de511020"] }, Open ]], Cell[BoxData[ RowBox[{"SetAttributes", "[", RowBox[{"h", ",", " ", "Listable"}], "]"}]], "Input", CellChangeTimes->{{3.725529889621855*^9, 3.725529908800909*^9}},ExpressionUUID->"48e53fcc-5f8e-4ba3-b932-\ e2409ae6eb81"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "h"}]], "Input", CellChangeTimes->{{3.725529918981607*^9, 3.725529920077661*^9}},ExpressionUUID->"2a4798f9-1281-4da4-aacf-\ 858dbfb45929"], Cell["Global`h", "Print", "PrintUsage", CellChangeTimes->{3.725800986525285*^9}, CellTags-> "Info3725800986-6529853",ExpressionUUID->"0476a6a4-e603-4625-8715-\ 93b664a48dea"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7255299338*^9, 3.725529957770515*^9}},ExpressionUUID->"83b9e685-f83a-4d9f-99dc-\ f8e68a8b57d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"h", "[", "a", "]"}], ",", RowBox[{"h", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.7255299430736437`*^9, 3.7255299596111317`*^9}, 3.725532750693707*^9, {3.725625703572412*^9, 3.7256257219548683`*^9}, 3.725778739923003*^9, {3.725800991043723*^9, 3.7258010106904488`*^9}},ExpressionUUID->"8264b2cf-a769-425f-a5a1-\ 54f3d7240d42"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "h", "]"}]], "Input", CellChangeTimes->{{3.7255327296459093`*^9, 3.725532734212472*^9}},ExpressionUUID->"9b1c767b-1d41-4ba2-a7cf-\ b989a308bc16"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "h"}]], "Input", CellChangeTimes->{{3.7255327707669687`*^9, 3.72553277316079*^9}},ExpressionUUID->"1a30b388-e36e-487c-b3b7-\ 42ac0176a6dc"], Cell[CellGroupData[{ Cell["Global`h", "Print", "PrintUsage", CellChangeTimes->{3.7258010200364447`*^9}, CellTags-> "Info3725801020-6529853",ExpressionUUID->"2f025836-3db4-4415-bff5-\ 70a0a7175f35"], Cell[BoxData[ InterpretationBox[GridBox[{ { RowBox[{ RowBox[{"Attributes", "[", "h", "]"}], "=", RowBox[{"{", "Listable", "}"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`h], Editable->False]], "Print", CellChangeTimes->{3.7258010200543203`*^9}, CellTags-> "Info3725801020-6529853",ExpressionUUID->"92ffb128-bbac-4f76-aad4-\ e80b3c109d67"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "h", "]"}]], "Input", CellChangeTimes->{{3.7255327296459093`*^9, 3.725532734212472*^9}, { 3.725778826508689*^9, 3.725778827251252*^9}},ExpressionUUID->"9b1c767b-1d41-4ba2-a7cf-\ b989a308bc16"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "h"}]], "Input", CellChangeTimes->{{3.7255327707669687`*^9, 3.72553277316079*^9}},ExpressionUUID->"1a30b388-e36e-487c-b3b7-\ 42ac0176a6dc"], Cell["Global`h", "Print", "PrintUsage", CellChangeTimes->{3.725801046553513*^9}, CellTags-> "Info3725801046-6529853",ExpressionUUID->"e0806e5d-2a9f-4445-9895-\ 8aec64a40a06"] }, Open ]], Cell[BoxData[ RowBox[{"Remove", "[", "h", "]"}]], "Input", CellChangeTimes->{{3.725532779218183*^9, 3.7255327859812517`*^9}},ExpressionUUID->"214a6402-5b6c-4652-b8c0-\ 10a87d296592"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "h"}]], "Input", CellChangeTimes->{{3.725532792384746*^9, 3.7255327935410147`*^9}},ExpressionUUID->"12ae2993-ff42-4e65-b574-\ 2bacabe3a45f"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Information", "::", "notfound"}], "MessageName"], ":", " ", "\<\"Symbol \[NoBreak]\\!\\(\\\"h\\\"\\)\[NoBreak] not found. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/notfound\\\", \ ButtonNote -> \\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.725532795425746*^9, 3.7256256470512466`*^9, 3.725625722200536*^9, 3.72577875393797*^9, 3.7258010524281063`*^9},ExpressionUUID->"93d77003-edd4-49a0-bf76-\ de29b3c8b554"] }, Open ]], Cell["Sin and Power, for example, have the attribute Listable", "Text", CellChangeTimes->{{3.725529995022833*^9, 3.725529999080571*^9}, { 3.725531769159582*^9, 3.7255318065418043`*^9}},ExpressionUUID->"5f6406ee-c4ee-487b-a4ba-\ 11491911925d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "^", "4"}]], "Input", CellChangeTimes->{ 3.72553178092698*^9, {3.7255318182855787`*^9, 3.725531828278726*^9}},ExpressionUUID->"4547fd0d-044a-4730-992d-\ 1a76dfbe91d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["a", "4"], ",", SuperscriptBox["b", "4"], ",", SuperscriptBox["c", "4"], ",", SuperscriptBox["d", "4"]}], "}"}]], "Output", CellChangeTimes->{3.72553183151886*^9, 3.7256257535237083`*^9, 3.725801079505292*^9},ExpressionUUID->"1dd64f76-3ebd-4c6a-ad56-\ 8a9eac065bde"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"rlis", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", "\[Pi]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"10", "^", "6"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6839433569689627`*^9, 3.6839434157624063`*^9}},ExpressionUUID->"0c05dd33-4795-4ee7-b7c2-\ 62e04eb417e1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"rlis", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.683943430177039*^9, 3.6839434384592247`*^9}},ExpressionUUID->"9bc6a6fe-0289-4b2e-8840-\ 0199803be2ec"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.3193867609524057`", ",", "2.9894029729754035`", ",", "0.25106371972359076`", ",", "1.4548467827886755`", ",", "1.0622827505424572`", ",", "2.65923963695605`", ",", "0.245313292917674`", ",", "1.4210924801334972`", ",", "2.4840160202263686`", ",", "2.51623684247126`"}], "}"}]], "Output", CellChangeTimes->{3.683943439941699*^9, 3.72553202118425*^9, 3.7256257703032503`*^9, 3.7257788978650703`*^9, 3.725801146801484*^9},ExpressionUUID->"e6db909d-fc29-4c33-8619-\ a3ce87478e6a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Timing", "[", RowBox[{"Sin", "/@", "rlis"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.683943449639255*^9, 3.6839435123612823`*^9}},ExpressionUUID->"6368ede9-e5ad-4567-8eb9-\ a9b8fc0dc181"], Cell[BoxData["0.06696699999999999874944478506222367287`4.84646075704739"], \ "Output", CellChangeTimes->{3.6839435152089853`*^9, 3.725532054507764*^9, 3.725532279521721*^9, 3.725625791101822*^9, 3.725778900500787*^9, 3.7258011729217176`*^9},ExpressionUUID->"2004bed2-7518-4978-be91-\ bc04c20bae85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Timing", "[", RowBox[{"Sin", "[", "rlis", "]"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.683943554677525*^9, 3.683943581178138*^9}},ExpressionUUID->"781f3c2e-5fcd-4489-9d1f-\ d00868cb24b8"], Cell[BoxData["0.0144510000000000003034239526300552825`4.18049781431372"], \ "Output", CellChangeTimes->{3.683943583224823*^9, 3.7255322008387213`*^9, 3.7255322796075993`*^9, 3.7256258289392757`*^9, 3.7257789017638063`*^9, 3.7258011744799223`*^9},ExpressionUUID->"d1e4f05b-892e-4f96-bbe3-\ 09d17ae36f80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%%", "/", "%"}]], "Input", CellChangeTimes->{{3.683943594354171*^9, 3.6839436016377068`*^9}, { 3.72553222118423*^9, 3.7255322326433353`*^9}, {3.725532303358409*^9, 3.725532306657041*^9}},ExpressionUUID->"76746f49-ede2-41f2-8c28-\ df7a15514304"], Cell[BoxData["4.63407376652134781976027998374288069666`4.095638228174091"], \ "Output", CellChangeTimes->{3.683943603488907*^9, 3.725532235038002*^9, 3.7255323088632603`*^9, 3.72562583236876*^9, 3.725778910950646*^9, 3.7258011892170553`*^9},ExpressionUUID->"9e2b28b6-6a6c-4f8a-8e04-\ d271c5ccb600"] }, Open ]], Cell["\<\ Sometimes you want to Map to a particular part of an expression\ \>", "Text", CellChangeTimes->{{3.7255324688430157`*^9, 3.725532509218072*^9}},ExpressionUUID->"3f5b4f42-082a-43a8-983a-\ 11cab1d51b6a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "MapAt"}]], "Input", CellChangeTimes->{{3.725532847145406*^9, 3.725532858511065*^9}},ExpressionUUID->"364ad23f-621d-4726-b8aa-\ 15b872aead89"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"MapAt\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\"TI\\\"]}], \\\"]\\\"}]\) \ applies \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) to the element at position \!\ \(\*StyleBox[\\\"n\\\", \\\"TI\\\"]\) in \!\(\*StyleBox[\\\"expr\\\", \ \\\"TI\\\"]\). If \!\(\*StyleBox[\\\"n\\\", \\\"TI\\\"]\) is negative, the \ position is counted from the end. \\n\!\(\*RowBox[{\\\"MapAt\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\ \"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\ \"], \\\",\\\", StyleBox[\\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) applies \ \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) to the part of \ \!\(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\) at position \ \!\(\*RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"i\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"j\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}]\). \\n\!\(\*RowBox[{\\\"MapAt\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\ \"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"j\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"j\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) applies \!\(\*StyleBox[\\\"f\\\", \ \\\"TI\\\"]\) to parts of \!\(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\) at \ several positions. \\n\!\(\*RowBox[{\\\"MapAt\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"pos\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\) represents an operator form of MapAt that can be \ applied to an expression.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/MapAt"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725778991687026*^9}, CellTags-> "Info3725778991-3746579",ExpressionUUID->"eb8c144f-ea18-46d7-b241-\ 8f9c2872dc90"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.725801243635947*^9, 3.725801245068203*^9}},ExpressionUUID->"f478ceb9-e208-4339-bd8d-\ 458a219d4bb9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"h", "[", "a", "]"}], ",", RowBox[{"h", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}], ",", RowBox[{"h", "[", "d", "]"}], ",", RowBox[{"h", "[", "e", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.725801245530424*^9},ExpressionUUID->"2bfa1621-83bd-40a9-b534-\ d52a3147589a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAt", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.725532876983506*^9, 3.725532898213181*^9}, { 3.7255330107942753`*^9, 3.7255330251478357`*^9}, {3.725533102055271*^9, 3.725533103353889*^9}},ExpressionUUID->"ad973859-bb23-43e6-9df4-\ d63db6340c8d"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{"h", "[", "c", "]"}], ",", "d", ",", "e"}], "}"}]], "Output", CellChangeTimes->{ 3.725533027233769*^9, 3.725533105658263*^9, 3.725627736381222*^9, 3.72577899638435*^9, {3.725801236465063*^9, 3.725801251129876*^9}},ExpressionUUID->"c2e44137-a186-418c-9b70-\ 2bd7cfb8f444"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAt", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"1", ";;", "5", ";;", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.725532876983506*^9, 3.725532898213181*^9}, { 3.7255330107942753`*^9, 3.7255330251478357`*^9}, {3.725533102055271*^9, 3.725533128576069*^9}},ExpressionUUID->"1324886d-6279-4a45-80f0-\ 1a30356ff117"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"h", "[", "a", "]"}], ",", "b", ",", RowBox[{"h", "[", "c", "]"}], ",", "d", ",", RowBox[{"h", "[", "e", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7255331308946*^9, 3.725627743592309*^9, 3.725778998579349*^9, 3.725801265705358*^9},ExpressionUUID->"9fee88f6-991d-459f-bec8-\ 9b6a086921b8"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Apply", "[", RowBox[{"f", ",", "expr"}], "]"}], " ", "replaces", " ", "the", " ", "head", " ", "of", " ", "expr", " ", "by", " ", RowBox[{"f", "."}]}], "*)"}]], "Input", CellChangeTimes->{{3.7263195083942127`*^9, 3.7263195239843187`*^9}},ExpressionUUID->"ce073493-21e6-4e25-94fb-\ 2da4c2d207a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7258012986323338`*^9, 3.72580130188041*^9}},ExpressionUUID->"511d6108-aa28-4cca-8f9e-\ 60dc08db2a77"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {1, 4}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["List", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], HoldForm]], Annotation[#, HoldForm[{1, 2, 3}], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["1", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["1", HoldForm]], Annotation[#, HoldForm[1], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["2", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["2", HoldForm]], Annotation[#, HoldForm[2], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["3", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["3", HoldForm]], Annotation[#, HoldForm[3], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.725801302218912*^9},ExpressionUUID->"d6a9327e-cf4c-418b-ab17-\ a17cf8df1588"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"Apply", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7257792829919767`*^9, 3.725779325065777*^9}, { 3.725801320894912*^9, 3.7258013235744133`*^9}},ExpressionUUID->"ca37303d-9f1a-400b-8799-\ f93afdedbea1"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {1, 4}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[1, 2, 3]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["1", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox["1", HoldForm]], Annotation[#, HoldForm[1], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["2", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["2", HoldForm]], Annotation[#, HoldForm[2], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["3", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox["3", HoldForm]], Annotation[#, HoldForm[3], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{0.7745966692414834, 0.7745966692414834}, {0., 0.}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.725779289132497*^9, 3.725779325518448*^9}, { 3.7258013181735477`*^9, 3.7258013239551086`*^9}},ExpressionUUID->"d77f11f6-7ebf-4677-b470-\ ab98a87c3113"] }, Open ]], Cell["Apply changes the head of an expression", "Text", CellChangeTimes->{{3.7255350626556797`*^9, 3.725535112488282*^9}},ExpressionUUID->"171140d6-37fb-4c83-8ba3-\ 105f1dad3378"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.725535129721285*^9, 3.725535167125811*^9}},ExpressionUUID->"b6912d0e-cd09-4809-b521-\ e22340e011a1"], Cell[BoxData["List"], "Output", CellChangeTimes->{ 3.725535224175921*^9},ExpressionUUID->"09934087-dd95-4342-982b-\ 8eed099cbcb8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.725535230200876*^9, 3.7255352507116537`*^9}},ExpressionUUID->"c2f6df25-fbaf-4e45-aa12-\ 371c0ba841ed"], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Output", CellChangeTimes->{ 3.725535252607027*^9},ExpressionUUID->"1f112536-4f9e-4f05-80f0-\ 8f808b8f8e6f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.725535254958013*^9, 3.725535261563377*^9}},ExpressionUUID->"e0ddddf4-bb35-4eda-a806-\ 0740f268802a"], Cell[BoxData["f"], "Output", CellChangeTimes->{ 3.725535263643547*^9},ExpressionUUID->"e77a643b-3fe0-47d1-bdb1-\ ead277652caf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "@@", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input", CellChangeTimes->{{3.7255352789915524`*^9, 3.725535293180146*^9}},ExpressionUUID->"f1051ff1-08f3-4bf1-95e3-\ eddaecc7f5ad"], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Output", CellChangeTimes->{ 3.725535307488357*^9},ExpressionUUID->"d3dbb034-e202-42da-a9a7-\ 87e5a6b504c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "//", "FullForm"}]], "Input", CellChangeTimes->{{3.7255352789915524`*^9, 3.725535293180146*^9}, { 3.725535354164116*^9, 3.7255353618312387`*^9}},ExpressionUUID->"9761d4ee-b800-4cc6-9870-\ 83db335f6452"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"List", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.7255353633400993`*^9},ExpressionUUID->"3280ccbf-0573-4bca-807b-\ 2a1f5bdf6ff6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a", "+", "b", "+", "c", "+", "d"}], "//", "FullForm"}]], "Input", CellChangeTimes->{{3.7255353704334793`*^9, 3.725535391027474*^9}},ExpressionUUID->"5befca6f-b5c9-4dbe-98bc-\ d1787cfa45ee"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Plus", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.7255353923749743`*^9},ExpressionUUID->"155bec46-f3a9-4814-9260-\ dd015d6f435d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plus", "@@", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input", CellChangeTimes->{{3.725535397842832*^9, 3.725535413686493*^9}},ExpressionUUID->"8c760a99-3931-44b2-864d-\ a2412b98189e"], Cell[BoxData[ RowBox[{"a", "+", "b", "+", "c", "+", "d"}]], "Output", CellChangeTimes->{ 3.725535415283308*^9},ExpressionUUID->"b44e3e3c-51a4-4d41-a4c5-\ 1bf90db3fd9f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plus", "@@", RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.725535558802897*^9, 3.725535585318184*^9}},ExpressionUUID->"067dbfc5-b89b-4064-b34f-\ 5d93f187efe8"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "a", "]"}], "+", RowBox[{"f", "[", "b", "]"}], "+", RowBox[{"f", "[", "c", "]"}], "+", RowBox[{"f", "[", "d", "]"}]}]], "Output", CellChangeTimes->{ 3.7255355877896547`*^9},ExpressionUUID->"2aafea0e-2ae2-4bd3-9aae-\ 712b59a414dc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.7258014573054953`*^9, 3.725801458835391*^9}},ExpressionUUID->"3f71e023-fa85-4c2f-81fd-\ d139c21840fc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"Plus", "@@", RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.725801434081584*^9, 3.725801439156378*^9}, 3.725801478166654*^9},ExpressionUUID->"dd7d7a88-2ed4-461a-aff3-\ ca34af18b52c"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[{{1.1766968108291043`, 1.5689290811054724`}, {0., 0.7844645405527362}, {0., 0.}, {0.7844645405527362, 0.7844645405527362}, { 0.7844645405527362, 0.}, {1.5689290811054724`, 0.7844645405527362}, { 1.5689290811054724`, 0.}, {2.3533936216582085`, 0.7844645405527362}, { 2.3533936216582085`, 0.}}, { {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 4}, {1, 6}, {1, 8}, {2, 3}, {4, 5}, {6, 7}, {8, 9}}]}, { TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["Plus", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 1], TagBox[ RowBox[{ RowBox[{"f", "[", "a", "]"}], "+", RowBox[{"f", "[", "b", "]"}], "+", RowBox[{"f", "[", "c", "]"}], "+", RowBox[{"f", "[", "d", "]"}]}], HoldForm]], Annotation[#, HoldForm[$CellContext`f[$CellContext`a] + \ $CellContext`f[$CellContext`b] + $CellContext`f[$CellContext`c] + \ $CellContext`f[$CellContext`d]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 2], TagBox[ RowBox[{"f", "[", "a", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`a]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["a", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 3], TagBox["a", HoldForm]], Annotation[#, HoldForm[$CellContext`a], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 4], TagBox[ RowBox[{"f", "[", "b", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`b]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["b", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 5], TagBox["b", HoldForm]], Annotation[#, HoldForm[$CellContext`b], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 6], TagBox[ RowBox[{"f", "[", "c", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`c]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["c", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 7], TagBox["c", HoldForm]], Annotation[#, HoldForm[$CellContext`c], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox["f", "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 8], TagBox[ RowBox[{"f", "[", "d", "]"}], HoldForm]], Annotation[#, HoldForm[ $CellContext`f[$CellContext`d]], "Tooltip"]& ], TagBox[ TooltipBox[InsetBox[ FrameBox[ StyleBox[ TagBox["d", HoldForm], "StandardForm", "Output", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->Scaled[0.05], FontColor->GrayLevel[0]], Background->RGBColor[1., 1., 0.871], FrameStyle->GrayLevel[0.5], StripOnInput->False], 9], TagBox["d", HoldForm]], Annotation[#, HoldForm[$CellContext`d], "Tooltip"]& ]}}], Annotation[#, VertexCoordinateRules -> {{1.1766968108291043`, 1.5689290811054724`}, {0., 0.7844645405527362}, {0., 0.}, {0.7844645405527362, 0.7844645405527362}, {0.7844645405527362, 0.}, {1.5689290811054724`, 0.7844645405527362}, {1.5689290811054724`, 0.}, {2.3533936216582085`, 0.7844645405527362}, {2.3533936216582085`, 0.}}]& ], AspectRatio->NCache[Rational[3, 2]^Rational[1, 2], 1.224744871391589], FrameTicks->Automatic, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.725801440359475*^9, 3.725801480291679*^9}},ExpressionUUID->"e40cbfe4-2b06-4b56-956a-\ 9265aaaf71d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "/@", RowBox[{"(", RowBox[{"a", "+", "b", "+", "c", "+", "d"}], ")"}]}]], "Input", CellChangeTimes->{{3.725535628255348*^9, 3.72553564285275*^9}, { 3.72553569927253*^9, 3.725535700091628*^9}},ExpressionUUID->"29b3dfbd-c599-41f6-9d3e-\ a58e6a2d8059"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "a", "]"}], "+", RowBox[{"f", "[", "b", "]"}], "+", RowBox[{"f", "[", "c", "]"}], "+", RowBox[{"f", "[", "d", "]"}]}]], "Output", CellChangeTimes->{3.7255356446833897`*^9, 3.725535702143322*^9},ExpressionUUID->"bb1a5c0c-4f6c-4140-8a14-\ c087917bee7d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Rule and RuleDelayed, Replace and ReplaceRepeated", "Subsection", CellChangeTimes->{{3.7255444089713717`*^9, 3.725544426458424*^9}, { 3.7255444984330893`*^9, 3.725544525999936*^9}, {3.7255445999821978`*^9, 3.725544614676153*^9}},ExpressionUUID->"6058c036-8db7-4f93-a8b7-\ 4204223ec899"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Rule"}]], "Input", CellChangeTimes->{{3.725536063887142*^9, 3.725536094303492*^9}, 3.7255367285037394`*^9, {3.725536802010859*^9, 3.7255368033821087`*^9}},ExpressionUUID->"af8e32ca-7f96-4c67-a32e-\ 5a009a832e59"], Cell[BoxData[ RowBox[{"\<\"\\!\\(\\*RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \\\"->\\\", \ StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]\\) or \\!\\(\\*RowBox[{StyleBox[\\\"lhs\\\ \", \\\"TI\\\"], \\\"\[Rule]\\\", StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]\\) \ represents a rule that transforms \\!\\(\\*StyleBox[\\\"lhs\\\", \ \\\"TI\\\"]\\) to \\!\\(\\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\\). \"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Rule"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7255368075148563`*^9}, CellTags-> "Info593725536807-4505350",ExpressionUUID->"f806ef2c-9175-4de1-9b9f-\ 1b648c9b783b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "/.", RowBox[{"a", "\[Rule]", "b"}]}]], "Input", CellChangeTimes->{{3.725536925794573*^9, 3.72553694722045*^9}, { 3.725544208790279*^9, 3.725544213246818*^9}},ExpressionUUID->"941e38c6-124b-46b3-80b7-\ 471ebd2cc08a"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "b", ",", "c", ",", "d"}], "}"}]], "Output", CellChangeTimes->{ 3.725544220945421*^9},ExpressionUUID->"f40c30cd-8ab6-4cdb-b152-\ d72664a3488a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.725536925794573*^9, 3.72553694722045*^9}, { 3.725544208790279*^9, 3.725544247275161*^9}},ExpressionUUID->"3cbfe7a2-04f3-4814-9745-\ e0297ec7adbe"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "c", ",", "c", ",", "d"}], "}"}]], "Output", CellChangeTimes->{ 3.725544265463455*^9},ExpressionUUID->"1fc1a002-545c-4452-a5bd-\ f9cb6f77d970"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "//.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.725536925794573*^9, 3.72553694722045*^9}, { 3.725544208790279*^9, 3.725544247275161*^9}, 3.7255443253172503`*^9},ExpressionUUID->"3d8f37a3-1fe4-42a1-b7a0-\ 325164f5e5b6"], Cell[BoxData[ RowBox[{"{", RowBox[{"c", ",", "c", ",", "c", ",", "d"}], "}"}]], "Output", CellChangeTimes->{ 3.725544344488688*^9},ExpressionUUID->"ebe7e24a-c885-4742-811f-\ 822bc43b40d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}]}]], "Input", CellChangeTimes->{{3.725544654521658*^9, 3.725544705924868*^9}},ExpressionUUID->"80fdffa6-6597-4128-8e57-\ 6d83c89d960e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.8990561408815256`", ",", "0.8990561408815256`", ",", "0.8990561408815256`", ",", "0.8990561408815256`"}], "}"}]], "Output", CellChangeTimes->{ 3.725544709833893*^9},ExpressionUUID->"a577b1c6-8a6f-471b-a847-\ 037bcd1704c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"x", "\[RuleDelayed]", RowBox[{"RandomReal", "[", "]"}]}]}]], "Input", CellChangeTimes->{{3.725544654521658*^9, 3.725544747870934*^9}},ExpressionUUID->"589706f3-fbd5-4847-9058-\ 421f6fb67e8d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.6609416085752033`", ",", "0.27683062113560775`", ",", "0.0733016502963002`", ",", "0.3031381514092404`"}], "}"}]], "Output", CellChangeTimes->{ 3.7255447567103033`*^9},ExpressionUUID->"616e66d9-1de0-4b8e-834c-\ 79af1470194f"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "The", " ", "difference", " ", "between", " ", "Rule", " ", "and", " ", "RuleDelayed", " ", "is", " ", "similar", " ", "to", " ", "the", " ", "difference", " ", "between", " ", "Set", " ", RowBox[{"(", "=", ")"}], " ", "and", " ", "SetDelayed", " ", RowBox[{ RowBox[{"(", ":=", ")"}], ".", "\[IndentingNewLine]", "In"}], " ", "the", " ", "non"}], "-", RowBox[{"delayed", " ", "case"}]}], ",", " ", RowBox[{ "the", " ", "rhs", " ", "is", " ", "evaluated", " ", "first", " ", "and", " ", "only", " ", "after", " ", "that", " ", "the", " ", "attribution", " ", RowBox[{"(", "replacement", ")"}], " ", "is", " ", RowBox[{"performed", ".", " ", "\[IndentingNewLine]", "In"}], " ", "the", " ", "delayed", " ", "case"}], ",", " ", RowBox[{ RowBox[{"the", " ", "attribution", " ", "lhs"}], ":=", RowBox[{"rhs", " ", "is", " ", "done", " ", "first"}]}], ",", " ", RowBox[{ "and", " ", "the", " ", "evaluation", " ", "is", " ", "performed", " ", "only", " ", "when", " ", "a", " ", "value", " ", "for", " ", "lhs", " ", "is", " ", RowBox[{"provided", "."}]}]}], " ", "\[IndentingNewLine]", "*)"}]], "Input", CellChangeTimes->{{3.726319706473012*^9, 3.7263199043698177`*^9}},ExpressionUUID->"378abf40-b6d8-411e-97e5-\ e159eef216d6"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"factorial1", "[", "1", "]"}], "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"factorial1", "[", "n_", "]"}], "=", RowBox[{"n", " ", RowBox[{"factorial1", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"factorial1", "[", "4", "]"}]}], "Input", CellChangeTimes->{{3.7257775719889793`*^9, 3.7257776057685633`*^9}, 3.725777660118828*^9, {3.726319921224202*^9, 3.7263200014950037`*^9}, { 3.726320044592411*^9, 3.726320048993932*^9}},ExpressionUUID->"faac7e7e-ecd6-490b-a74d-\ 6f1464817ba4"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"$RecursionLimit", "::", "reclim"}], "MessageName"], ":", " ", "\<\"Recursion depth of \[NoBreak]\\!\\(1024\\)\[NoBreak] exceeded. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \ \\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.726319921965769*^9, 3.726319933631049*^9}, { 3.726319973524201*^9, 3.72632000243316*^9}, 3.7263200496081038`*^9},ExpressionUUID->"75bfbdc7-cd8d-4cd4-8305-\ 038495a78299"], Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{ RowBox[{"-", "1022"}], "+", "n"}], "]"}]], "Output", CellChangeTimes->{{3.725777572583952*^9, 3.7257776109043493`*^9}, 3.725777661420679*^9, {3.726319921972131*^9, 3.726319933639539*^9}, { 3.726319973532504*^9, 3.726320002442917*^9}, 3.72632004961797*^9},ExpressionUUID->"13d3f662-93c8-42c1-ac15-\ fde8e20a2285"], Cell[BoxData["24"], "Output", CellChangeTimes->{{3.725777572583952*^9, 3.7257776109043493`*^9}, 3.725777661420679*^9, {3.726319921972131*^9, 3.726319933639539*^9}, { 3.726319973532504*^9, 3.726320002442917*^9}, 3.726320049624394*^9},ExpressionUUID->"0284e16f-77bc-4ea1-aa2e-\ 2b52a27de936"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"factorial2", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"factorial2", "[", "n_", "]"}], ":=", RowBox[{"n", " ", RowBox[{"factorial2", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"factorial2", "[", "4", "]"}]}], "Input", CellChangeTimes->{{3.72632000371451*^9, 3.7263200428336697`*^9}},ExpressionUUID->"de8b3cdb-db0a-4428-9388-\ 4c2e5bde93f3"], Cell[BoxData["24"], "Output", CellChangeTimes->{{3.726320025826647*^9, 3.726320051137114*^9}},ExpressionUUID->"03df2e33-45ff-4e60-b5c3-\ e51d15fd06c5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Patterns", "Subsection", CellChangeTimes->{{3.725535915647561*^9, 3.7255359211804647`*^9}},ExpressionUUID->"be3d9572-75c5-492e-bea0-\ 9d321d604ad6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "_"}]], "Input", CellChangeTimes->{{3.725544916823985*^9, 3.7255449219775257`*^9}},ExpressionUUID->"dfa4c27f-c4c4-41e4-a54f-\ 29ef571a20a2"], Cell[BoxData[ RowBox[{"\<\"_ or \\!\\(\\*RowBox[{\\\"Blank\\\", \\\"[\\\", \\\"]\\\"}]\\) \ is a pattern object that can stand for any \\!\\(\\*StyleBox[\\\"Wolfram \ Language\\\", \\\"RebrandingTerm\\\"]\\) expression. \ \\n\\!\\(\\*StyleBox[RowBox[{\\\"_\\\", StyleBox[\\\"h\\\", \\\"TI\\\"]}]]\\) \ or \\!\\(\\*RowBox[{\\\"Blank\\\", \\\"[\\\", StyleBox[\\\"h\\\", \ \\\"TI\\\"], \\\"]\\\"}]\\) can stand for any expression with head \ \\!\\(\\*StyleBox[\\\"h\\\", \\\"TI\\\"]\\). \"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Blank"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7255449242670317`*^9}, CellTags-> "Info73725544924-7537413",ExpressionUUID->"9df860fe-d4c9-448f-ac49-\ f38019c3060a"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["x", "3"], "-", "1"}]}]}], "Input", CellChangeTimes->{{3.725545129130794*^9, 3.725545172016426*^9}},ExpressionUUID->"02d67d85-85b6-45d2-9835-\ 0ed65704a6dd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "2", "]"}], ",", RowBox[{"f", "[", "y", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.725545179249139*^9, 3.7255451936209497`*^9}},ExpressionUUID->"3dad33cc-98d8-4fa2-802a-\ ac14d0b2afed"], Cell[BoxData[ RowBox[{"{", RowBox[{"7", ",", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "3"]}]}], "}"}]], "Output", CellChangeTimes->{3.725545195803928*^9, 3.7258025003195953`*^9},ExpressionUUID->"3b4685c2-2ed9-445b-b559-\ 3a7f701c7b06"] }, Open ]], Cell["A function defined only for integer arguments", "Text", CellChangeTimes->{{3.725545216408082*^9, 3.725545237154703*^9}, { 3.7255457491087008`*^9, 3.725545763653331*^9}},ExpressionUUID->"ba165aea-4186-4704-bf30-\ f4302e9b8659"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "k_Integer", "]"}], ":=", " ", RowBox[{"Prime", "[", "k", "]"}]}]], "Input", CellChangeTimes->{{3.725545767795925*^9, 3.725545811104022*^9}},ExpressionUUID->"abc7dfe7-0149-4b44-9cb2-\ 1199be70d248"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "2", "]"}], ",", RowBox[{"g", "[", "\[Pi]", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.725545824045658*^9, 3.7255458415038853`*^9}},ExpressionUUID->"acbde2a8-e2dd-48bb-8a0f-\ 1b1a53265260"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", RowBox[{"g", "[", "\[Pi]", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7255458434150743`*^9, 3.725802524798814*^9},ExpressionUUID->"96aa913c-494e-4ab8-8504-\ b781600bd071"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Prime"}]], "Input", CellChangeTimes->{{3.725802537307046*^9, 3.725802538513382*^9}},ExpressionUUID->"db1f5402-81f5-4a86-93f3-\ 0698ace466c3"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Prime\\\", \\\"[\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\"]\\\"}]\\) gives the \ \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\)\\!\\(\\*RowBox[{SuperscriptBox[\\\ \"\[Null]\\\", \\\"th\\\"], \\\" \\\"}]\\)prime number. \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Prime"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725802539097129*^9}, CellTags-> "Info3725802539-3804010",ExpressionUUID->"c87a916d-3c5d-40d0-93a6-\ 5149f8f9cbdc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"earth", " ", "=", " ", RowBox[{"AstronomicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.727109429495229*^9, 3.727109462187766*^9}, { 3.7271094939056263`*^9, 3.727109499962841*^9}},ExpressionUUID->"a1c1c35e-246b-4f0f-9f0a-\ 9c38672fb796"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzUvAd4Gne6Paxe7PTdf7a3lE02iZ24xF3N6r0XhBAIUQQIEKJJSEhCFXUk 0YQACRACdYQq6s2y1dxLbMd2ulM22bS92c0m6/87YDtO7t777b3f3uf7Ls/r eYZmMWfOnPec329mfodnJpBcnJyc2F6wSMjiB+TnZxUmPgZPkhlsCplBJIQz OEQyMf8Q3hVeLLj7D1l3dXb558rt/7Hcnezl7PJAOXk6u3q6uni4OHm4OHs6 O8PSzcXT1fkhF1cvVzcvVxdPNxd3D2d3+Ji3kzPUDifnnc4u3s5O3k7uUDuc du509n7IaYe3k+cOJy8oTydPj3t/xc3+lbtfdHbxcnKBt5APOHu6OXtBwR+C ghX4MPxp5FtObg+Ux4MFm+DyP/b4F+J8r773RQ8XV1cXJyh4A7YUWXd1d3Xx ckHg94R1BGcXVygvFxeAy9PFycsVKW8X751uOx92feghZ8+dTh4AIFLO7oCP h4tj3yG4OUD2dHLycHLsUzc3F1cod/gvXdzgT8DudXEGDJGd7n7vVyG/wv5r XZzcXZF3/zHOrvDb/3+GM7JR/w5kR93/EGAKS1fk4W4v+wMQcAXonB3liTAf KftucIDpBLx1c0KWHnYMkf/NzcXZ2QnKzdXJDiByvCD7zM0JCl50cXVydXMC QB2YOvb13Xpgo+7j7GY/sv5VqP7P4fwPyYyA7EDmXjmIbQfExbFyn+2OcrWX 47c5uzpBObk7AeJuXp6unh7IDnFFBMNR8NQZWO7tCgXHg6s78nlQE0DY1b4v YMUhEA7AEfC/h7bjb97F+X+VbvxDnBFc4UBGNNzVDZ54IMAi5erY9rvYOlbs PHd3c/VCNh1A+8HDGXkA+i6AKYI5sjOQZw5aA/wIvK6IfCD/oR1nB+wOnN1c v8P5nnp4OAoOyf8VOP+732kXE4DMzcOuyQ4l8LRDbUfFzb69DpDtH3RBDnhP O4nvP+ATHh47H9/545898bPf/PSXz/7kF888+dNnfvzkU4889kvvnT9x3vGo k5sXfMXZ3tednez/QFbvIezieq9cvtuhD/5CKPgtLv9LcHZA6vq9ByLCnl4P ubt5w1bAtri77YAOCC+6OIOB8HS3b5anp6ddBDwQDYZy8X78yV/ufvVoSFx6 ahadWVAjlmik6l6ZeqBVaW5RmFQai6ZrtL3D0ibrkyr6hNWK/KIGFJ4VGptx yDfit8+8AuA7uTzi5ATeC9ojNEFvRPXtD3d3T0drc3Nzs68jh4Mz0jHgt3nb +fAva3z/QzjfF7cf4Iw4N1dvT4+HEIRddri57tzh9TAiyIgwIwe83ZJ4/ujJ Xxw84kemMhtk6r7R6emVjZnli7MrlydmLxt6FxSacbV+Smea6+lfslg3R0Y2 h4Y2hoZOjVo2R2ynbUuXB8bWNcZpjcGm0U+0SE3cgvqoaOzzzx18/LHfurv9 2MXlIXcPxPLC7/Hy2oEQ2I6t40D7jtL/3/DZ7b/OZ1fHgQm/3a6/7qCfO3c8 ajfJD7u5PeTmvsPL43EoJ6cdwLcdO578+S+fj4hKq2tSmftn18/cunjtvbXT 120L2wPWRVXnrKpzQd5hq28eqG/oVyomuzoXujSzBu18V8dMp9LWZ1yZHr+w dfbjzbMfL554a2LmtXHb5YHB9S7dnE4/P9C7ptPNlJV3JCbS9+wJf+LRn3ru +JGr68MIz509PL0ehp3rhBhDN4deIU3V7T7OTv8ZZP9inP8hnz2+A9YJaXCO le/47AYgI0oIv9neAz2BsO7uD3t4POLquvPhnT91tm/mkz974cCxKAarEhRg 0LJ0avP12x9+u332Tdvs5qnTN89efm9obFXePiWuHxCV6+rq+9qVU0bdsqFr Qa+19RuXertmtNJheYOxo6VXq52yjm0vrby+cuLm3NzVkZFts3nVZFqB6h84 NTB0cmh4s2/gREtTJxaXv3uX36MP/8LV+RHQLTiy3D12url7O6B29/T4Dua7 hHf9PuD/r9j+38PZgfBdkO2HHqwjJvWe50JIAqLh5vXwI08AbdzdH3VzA810 e/rpF9Mz2C1K69Do2c7upXbNVLtmon9wbXb+yvjk2Q7NWEWVGqq8sr2gQFVV 2SOXjes75ztV04pWi6plqFs1OmKcGTPPDunG+7UWc/tAlUitaBvo1k/rOieh unWzVuvW1NT56emLNtulyclz1tEzg0MbI4OnzMZFedsQjy0OCUx54vHfODvv RCyjE0Jmdzjg3BAf47B/CEmcHU//ZY9/Hue7/uEBkL+DGlkiDLDrnLPDPDkj OQ+anTeQ2dnZ+1e/+kNuboG5b2LUdk4/cFamXVAZVifnbiyefMc8uKnUzHR0 zspVk3K5Va2eMpuXBwe2BszrBu2sXDIgqetRtZp6NSOjPZN92oFuha5b0dXf YRzpMo+Ybd2aQU27Wa8d1qgGm+q7WiU9HR2jOsM00NhiXR8ZPzs2dWFi8vLM 7DVAfmBgVSrrKy5p9PWP+vXvnnfz2gldAtFpDyT13NVqO8L3+Oyg8T0H/q/H +YcNDujqKMcDCbZ2W/rgjgBz5MhmSMxyRyTC2fnhn/zkaQKZ0T84PWlbG5s4 0Tt4SqFe7jZvT0zfWFp9e+3kuxPjF2dtlxfnXlteuDZnu2gbPztvO7u+eMva u6Zo6m2q6pLU6GWN3Rppb6fUqJd392lMFp15SGPoV2q7lCZT55Clb2q0f9qk HVa1GWWN+tZGQ32NVlytbWjUd2rG9frZphZru8pmGdyam782MroBvVIqN+Zz yo4dC3riRz9B2jFixt3uHY0uiD1H4H5QK9weqP8Gzv+UkbAjbI++9ozmSFtg F+BtL0/3u6kZLNsOF2cvZ7st9nJyefThR56KiCAoFKMWy4bBMDc7ffbiufcu nr197bVPrmy/e3LmzMnpze3ZrfWxlZVB29mZ1bNTJ7Zty1eWtq+unDkztTWm G+9RDLXVGdnMOiazpaxMXys2NdYZte3D3R1D3QqzUdHTqxq06EdH9daFwRlb 96iprXNUOzhlsA51DClr1YV0EZ8hKuDWCSs6mqR9o1OnF1ZuTk1faO8Yq6jQ iEQddTX6vNyaPbvCHvL+vbPTI8ANNy9vhEvgvT2cHFt9l9XO9y2i23+D2P+8 YXMgbA+2zo4I4ZBgR3Z2d/Lw9PR23+mNgIzsEs+9e/zENe1Wy6nJsfXZye0L p9/55INvP3rn325c/ODS5tsXN966vHHzxOSpxf7Z5QGbTTd0fmrl6sLW6ekT J4bm50yjI6qBEfWwuX0Iml2poCU1iRUdTSkqUgBL26V9ykatsd2kl+t71YNj pqlR49iUeXyi2zppHB03jJoVpr5Oi6bVIC6RN1R2NNUZOvSzp7ZuD4+ebpAM dhrmtfq5yipdcbFSwJcC1FApifm//MWLkJJc3He4IeV5t+04NvmHOP/L+Hxf jf89zva/i1h9b08vUAwH6MiAm9cOSCWgFY8//rPsLEa3zjpn25ie3Doxd/Ha 2Q/eu/HptXNvrUyfWZncPrP8+tbChZO2je2Z9a2JldW+ye3R+dW+8SXT2KmB 6bX+6cmuvrmeCYt2oKulW9tqVkpMhZx6DJqNJwiZzJqKMll1aUtHm37QaL1w 4vLK+Jq1e3R2wDY3OD1qsAx1DWpaOjvlJr3C1K2yjg6t9pmW2UJ5aVUni9+C whYSqJVsfiu3UFpX31sj7mHlNfN5svJSLY9Td/hoKHIkOiEjJ6Db7p4u97bX yY6VPZ7/t5LjP4Gz3WN8f7DLjruHIwMCqd09dgCZ7Sry6O9+s6usqNk2srY8 d25+fGPNtn1yeuvswrnN6Y0TowuXl09fX796bv78cv/clG5kbcC2bZ05YRqe au9cNfZvDY6u91mW9H3L+sG5HstU9+BUj9Ws7pPUqBTS3i7taBqKERKKzmOK JI3amorWHr3ljdduXz5949Tc5sb8xqxl1tTR29PRr5Yahvpsc1NbQwPLDXX6 LFJxWHzesZCsaBQ7BVOYniUk5oqzc6qYnJaiUjW/uD2P2wolKG4rEbUmpZIe +/FvIZYCZyBD2bX6flv87z/+Gd1AsL03pIaMJ9v3gmMkByyohye0bMQgeXs/ 7n8oukc7Oje+Nd6/MjG4PD24ZJCa+lUDK0MLFxY2L85vXF3eWrXM9stNY+q+ zZH5JePIZLtuzTS4PWhd7DIu602neocXdb1DEuWwUmuSq/s69D1qk1LS2Vin 0etGVR3DbI74eGByPkvUrjC2NKvHhmYXJlfHB6ctPSN92r6RnrEpy0KXylxX 2y6uUhYWSXD4ooBQrH8kJSGDn5ZdmoAuSMUJ07DFSeiC+DQunlzFFihYBTIq q4lMq+Tw6iuq2zOz8n/56xeQ8WyQEVdP5wdMCMIvu7f+l+NsZ7Hzd2O8yF/1 dEYMsjfSJ1x2QACBn7TzkR/FxWSM9q6enL44Zloa1s2Mm+ZN0r5xrcWmt57o n9ocmV02DY3KNJ1VTaZG1YJheAHo2q4DeC+OjEOWW+/p2+od3Oy3LGiN1rb2 PqnC0CaXVdY1iGqldbLaGlkBv0ZvGO8fmMdlsUPCUkuE9Qp5d12lpEvV09dt Gekd61Tom6rbqkobSfi8kFCUf2CKTyDqeHi2b1iWX0ROMq44K7cuNr0gIpkd npQfncKNTGLHpPKSM4UZxEoSs4nKasSTSgk5osKiVhqjdNfLx5ycHoL8aJ+C cPuf4/P9oOfhBm3Y1THS7uXi4RjchY6AjLu7QIL23PHQT7Op+Zbhpbnh84sj py26+QH1xJh+2maY2p5cXR6YWukdOzk0dmrQeqrfMm3onTIMzHQPjKv1o0rN ssG83j8416mDWjGaFg2mqY4ui0zVJWkp43DKOAWF+YWi4gomvYBG4eWzSlva 9PruUV5BDTW3SGewytu0TWJpdVlDIVuYhSJEBMWFHI/z84k8GhDvE5QaFEv0 iyT6hBEA2OzcehpPiqfXQ0WmcHzDyaEJebACsMMynVgBlKYw6nEEEY5QyuE1 5tJF+14NAl8KGwiBy83D3T5C4vxAPP8X4HwfZEcGcbHz2RuRiR0ebshIl4f7 wwCyi8tD3t4/YjKKpxe3Ri0nVqyXhztnhzunrV1T072zZ2e2zs2tb9tWz01D LW+PTZ8G3o7NLI/YFsyWya6esXbtpEo7pugYlEjHleq+ZmlXTSNStS0t5TVV gpJSjiCflp+RjMnCUkkEJoslrKpsBag7NAONzdq8fBE6OSsqJCEqJC46OC48 MDomLAlaMA5LT81ghseTQhNpxyKIx+NoyZlFgrIucl5zJrmyrN6UL2xPJ4pi 03lhiczguFyoeGxxDktCZTaSKGIStQaXJSRTyvLY1T5+McgAoLOHu4cXZHOH VtsTzb8M5wdyn925uSEDFvbhW0RCdng/7uzk9cjDvygsqB4fWx6xri5Pn5vr 25g0Lmzazp2wro3qRlZGFq6tnbuydvbGqXNXVra2p5Y2JxZOjM1P9Y8Pao1G qbqrsa29slZWVtVVL9HWN7eKahqElXXC6mJWYSFHwMnn49D4HGIuKg3HYgpo FA4nv7S5saOttUuvG+7rtcllRnFZo5BbVsITVQnF5YKqGlFzq0RLySk4HooO jsbHorm+MTm+UZTgCHISig9NMD6NQ+NKGuQjzEJpRk55Cr44Jp1zPCYnJoNH YjbwitobJcO1Df0cbhudUUckl9AZ5QC1u9fjALWX98OA9r14/q/B+Xustk9P uCJD6YiTdHfbYZ/H2/nYIz/LZ5atrVycGF2zDKws204vDpxctZ5aG9sAkHvb u+cGpy6sndle3jg1s7o0Nj89ODnRM2LUmNVyvbxBVltSXcErreIJ64srmkRi oK4wX8Cm8chZNHIWnUxm0Whcag47h8TCZVLwOHqxoKamoqVVouk1jfV0WxUy Q2NdR6esS9Go1Eo7Bw1DQz2jvYaRtuaubDwnFZWXQSjKotYkZJVgqXUgBWSa OB0niIynZWQLSfSaZGxBTBorOaswIZPnH0UISc7NIIn4xapO/ZKma0HePgXL SrGBzqxmsCoPHQl3dX8cTIirm7d9Eue/PPTxn4N8d0TObhcRdUIyiad9TN7D 2/PHuVT+wszW5OjqYN/Cgu3CvHVtcXDl5MT6hGl6SNtvGxg/YVtZGJsdMQ0b FDqAAmytVCwvE1QXFVYX8krz6Bwaic7OZRdzizl0Dj2Hyc7jYzE5GAxFrTbX N3fQWEIcnonDMwqLaooF4nZFt7iyta5a2tqk1nSYW5s0Al6ViF8uyCvi5fLr yuq7ZAZFSycJzw4MSIlPpGKJpThKdWR6YTKuLC+/nkIXZxFLElPzk9I5EfG0 +LT841HEo8GZoC3xGG5cBicZK2AXyKXtE3rjKuT0mrr+qtoefoGURq/MInBf PRjk5PywM0QVV8//Ksg/wNnl7jzSA2g7ed6dKHF3QcYPPb3sds7dzXUnHkud mVybHF61mBdmRjfG+tcWreuzfdNLg1Nzg5OLo3Nz1qlhY49e26lWaGqrm4VF YgFfnM+qIJJ5hBwOIYeNJzLw+FxCNo2UnYvPomSTmNTcgtRMBplZPDR+4sTW LZl6OJsqqKiWGYxjapVJ0aarLGuqr2qpLqmXNnQYVX0GZa+iXtFSIRHmCZrK Gns1vfVlkqz03CC/RF/flIg4KjanKhZTHpHET0xmBASgUlLyouIoIRHZKels FJYfk0L3i8AFx5GSs/gp+ILEdA6OWF7fNDg8dn5k4qKxb6O5dbyiXE+hVpNz ijOwjBd3HXZyfgSxdfd0477He3D5HzzcflB350HuzmfenWp3dUcAhp5rnyLZ ER+NHrMszY6tT1tOLUxsbixdXhrfHDPPj5unTar+fu2w1TTeo+2XNyskjfLm RmWFqAGklZrDo5ILiGROFjEPT8rPwNFgBZ1JxuAoGThKKpqEwuSkplPgLU5B ZXmVXNLWgyfyNJ1Dxm5rS7NGLtXV18rra+Qmg1UpNSrbTCpZb4fMoFX2NNfI YWXIPMFnl0dHZQYHpgWEZBwOSAtPosZi+ChiKcTATEIxABseRwU8kzN4wbE5 8WhOOkEIohEcT0kjFMelsgjU8vpms6F3ZX715tzyLZlyslCoorMbs8ll2ZTS JBT9F0+9ivREdzuqYK/dPRDaudqHK+8nOJf7o23/2aDT/WknxzrYGKC4pxdy 2pCnp6eHs9fBPX6DxulT81cWxk9vzr92buWabWB+0Dg22DsNkU2hHOhQDUjb DOIaRXllWwG3GswYK68EipjNgsrE0NDpOalockRMehKaGIfCp+IoyZnkFAwx DUvOItAzsKTERDSFwm2o7+ByquG/AiluaFAqld1aTX+PcXTEsqxSDlZXqjra Rzo6+5tbderOoS6DlS+sD4nGBESgocLjCQFRmVB+UZjAWGI8mpdGKoM8GJdZ EI8tTMAJUoml8AqZ2xyWkucfk5NJrUxIZ+FIxRVitbFvcf3M7aWTt7r7VkVi PYPbjCOVocHvUaqjUliP/5/fOtiHjO24Ii7XcfbOvRztGJr49xz+j3B2vw+1 OwRrT5cdOxC7/sRjv5C3da8tvba2+PrG0s31xeuTQyvdHQMGhVGnGmhrMdU3 6ESlspIiSQG3jk4r4/PEubQiQjYbn8VCo8hkApdM4FNzhMy8Sugv4L4INCGR ISQzSgjUgvhUYnJKTkJSNoctKuRXiUqax8dWgcy1tTKJRA1LgFrd0SuXmfp7 53u6Z9Uqa1l5S3NLV4d6SFgiiYnHxyaRiVQhllQQl0o9Eow6ejxjr0/80ZD0 VwNQr/glBceTMTklKIIgm1EJlYBhZ1JKsdSyiGRaTBobnS1ISs+LT6Hmcev7 LKfmV183D61V1HULRB3UvDoCo5bArM8gV/iHJAAgoBje3jtBZj3tgeI+zveG gP4LOLshj7ua4448PF1dvFhM4cLsuRNL15bnrk9azvTp5s1dU0aNtaVOVSpo AoSZeVXkHCGLWcXj1OVSSyk5gkwMMwuXLyxuEpVJhIJ6Aa+xuc6sVA2r1KNM Tl2TtE+hHdEap1rkvSWVUmJOIYdbo+uymrrHAdJR6+Lw0Gx3j3V42CaT6aCa m9TG7rFOjVWlHGqsN/ALxWxeDRbPDgnPOOqfGByRGRlHiE4ix6fRopNzQCsA PW6ZvFrSm4DNj0igpGXz0SQBgVmRgGFBioFCk4oBcP8wbFwaPTmDGZ+SC+pN plc1SQeM/UuVtT3CSi2T28gqkjMEUgiVaZnU559/AbqVh4cXAOvl6ungs90z 3B9tc0jHP4Oz6z07Z8fZY6eT847g0MTFlctTU2dHR8+YTWvajqk2yaBU0t/S 2FPIbaBTyjh5tUx6VQEPAFcIi1polFIMmpWdxauqUE6MrVtHVtpa9XC8Nzf0 1oi7q6r1JeWa/uENODzrJOaaRmNDax8pp1QgkFZVdHQoB0eG5wyG4fn5Dat1 3mweKy4WKxQGcM5dncMN9Rr4f6oq2kmU4qO+8b9/3uel3YG79obs3he+71DM Yd+kiNjcqCRaUnp+XBozGccj0cswJG46Nj8xPTc+jRoag0tA5WYSC3BkQXVj p0isikokQX6E3YTG8WhMMeygwlJFi2KwvdNWWW/MplRk08WsYmVWrhiTzYpN TPnpz34N+dgLcpuzO1D6Hs5u358N+WHv+wd98J50IPrs5uHk9PBvntonbR+Y X7zaYzrR2bXQ1mqtq+2tqTSISjp47CYGozqfWcdhNVSVa1RKS2OjkcuuZ+RW tstH+szzAPLA4HJrm6mpWdfcaKit1hUJ5QRSaWGJVNYx0tBqFtVoxM16cVN3 i9Q4Yl0bHJi3Di9aLXMyqV4q7SourlareyQSVVlZA0i0Rj2g140O9C2gUUwf v6SEVBp0vRdfCYFlFqk4LiX36T/4vbgnfNe+cJ9AFKhuVEJOZExWcATmqH/S /sNRsBISiYVvESjCumbD1rl3Ll//pFlqysjihEbhgiNwiShWWiaPL5RVN3QL KzTFFRoyQ4wmlkHAAelA4fKycxhHfEI8PR9FBi3vndTkWLl/Ttp/DrJ9XNnj LsKuXo51ZCLV62e0vOqpxSvGvpPyjhmZcqZFOikQqJl5zWxOK4NZn59fV16u bmzs7ey0jYxsyuUWoGVNTefs7GXLyFpf/5y5d76lra+8Qsnl1dfWdCqVlpQ0 OnTwNCwrAUVD4zkFQomwXH5q89obb35x5vTN5eXTdHohmcQRi6UtLR3t7TpA u6CgfGjABvHz4z9+02uajY8lECilRGoZiSZKzchPTMutbzU2y/oB2DRsPoVZ U1qhlcgtnMLmunoNgSzIoYuEZS0NzV0FRU05tJLMLE5hcfPayauffnbn/KX3 R0ZPVYi1KCw3IY0RHkvGkaBlVCamcemcpmxqZXAsNQVXRGVLcOTCbAoXjaH8 9umXnJwgi++8fzKkfTrAAxlNdYB5d6T6LnsfXHecQAJLb29kPBkS4I6HvEHz d7+aMGg9r9TOyzpmpMqZmvohoaibymhh8xR0RiOH3apUjukNS4buZccZLN3d 8+0d1tHx02MT2739y93GaUmLsVQk79CM9Q8sLs5v9vRO9Y3MlFZLopNxQVGp kUnouFQMnsIanZm/fvP2v/3lK5PREhSQQKXw29o65fIulUqv1w+IRPUqVc/U 5MnqKgUWk0/NKQGHgCUW4XPK+EJFYakMQJ6cPzczdxlLKABiVFS3a/QTo1Ob ff0LesPkyfXXPvjoq9sf/Pm997+6ceuTi5dut7T28Pj1Q5aFK5ffe++Db67e /LKja0JUrQbBCY7MRmcVpmYUgtnAZAvD43Jj07hZtMosSklGNpuQW3g8JN7D +wlkWsnJ/XuJA4Ha0/kBbJ0dmMO+QM4TvjvLBzR2vXeSqocbMgT66MM/FdX0 D49ebm6bKKvuKyrt5hd1sbhKfpG2uXWUlltXX9e7uHSjTWrRd8+du/C+qEKZ z6m3jq2//e7XS0tXu3vmikpagD9NEuPC0uXXrt3+8ou/XAMw/3bn5rsfERnc OBQuMCqexGCVVNXPr6xfeu3GW2+/vzC/JZfr+/omenoscpmmxzg4PjY7O7tm NI5o1H1ymRHUnsOu8g1Kj4gngMzm8evyCxtqm40bZ99b37olVfX5h6SkoKgK 1eDpc+/IlL2wf7Wdoz0mm04/sbp2CdA+cfLywOACHGugaafP3vrjn+6MTp1u autVakYZnAYWvzmP14SnVIFo5Be2QVqMQXHBihPzqtHZvEwiPyk957dP7QZK uzkGTu2T0A4MwYw4f5/DzvfeerCQM+Lsr+/wfhTidmIiZnjijbpmm6Ckm1ek 4xZ2cgu1TLa8y3iiTT7O48tq68w1YlMeq7GyWiOqUKEyOZVi3fb59+fmL0hl vSxODYtXV1gk6dSPX7/58fbZq9tb5yds82cuvnbj3fcJjLyAyKh0ApFVWMQu Em6cOX/91s1v/v7tpUs3Rkbm2pU9Go1xcMC6tLi2uXF+dHQGhPr1199/+61P e81TGWj6AZ84Gqums8c2MrERFoul5FW0qQZBbHMYJYIyCRbPzWNX640TtQ2d 6k7r8onX6hq1qem0wBAUgVSEJxbUNXbBTvnw428++ezO7T/e2TjzLrQMcEEc QWuzbFBvXmxoG0zDFrIKWnllHRnE8pB4OppYAm4QeiiRVhQYmrhj52PIqWsu bt/NatkHfxxt7jtBduB/f0fYTx1BdpCzh6fHQ/D0p0/+Ag5VuWadJzCViPoA ZyZbSWdJVZ0LEJekiomKSr2wRC0SaUg5IkpuKZlSUtOgV2gtlvH1btM0vxhM PoddWMMR1MnVA+dfe1/fPdLfO2adWJhf3p6cW2+QaZMwhLzCMnZxhVxjPH3h yo033/nbN3fWTlwAJqtU3efPv/72Wx9eungN6sKF6ybTCJdT3tSowWex/Xzj qOxyaefIxoV3Pv/bnS6TLV9QU1ojxefw2PwKUZWEziqOicuobVR2984VlrSk YVjHQ9F7DkT4B6PCY7L2H47OzinW6MdnFi/ceuuLzbPvjNnOAM7sgiaJfMgy cdrYvwJkjk3Ji4in5bKbFbrZ7NzasCQGkVmXTSsDoUZjac88+wIiHS4ujuEg O4zA0ofvRen7OHveL2cnD+SKBmfEJyNN0NULRCM+NsEyZBNVjXMLzSyOjkxr 4RRooAmqO+dLSrUMZiO/QM7jtYrF3a1tw5zCxpmlc+eu3DYPLspUQ9bJjSaZ qVVlqm9Vk+mFTXJDn3WhWNhcL+4QNygNvZOrG69tXrgpqGigcYSSdv3GuevN UuXK2vbfvvn7F599c2LlLGjy4uIps9nS128ZHbNdvfrm2trZiIgUKqUQRINI 4Kl6JprVg2gyd2H90idf/X3x1IUiUWNCGkHWbtToBhksgVbX9+VXf5+cuShT D7EFjWAngsKx4TH4JFQuuA6/oLTM7MI25dCYbWt0amtp7XWNfgp4AqZubuV6 q9KSgS9OxwmS0HxafpNUaxO3DSdmCnC0GnK+GIVn4wh5vn5Bnl4PudqvfHFM fwCZXZwesTfBf4izQ6i97CAjE+hOTi6PP/Zka6u0vd1YLBzlFhgJZGlVzVB3 z5a8fZaSW8/lSTnctubmfp1htq9v1WiaF5bLPvwTMOvOrbc+s06tNbZ1Lpy8 OLN0Rt9jpdALAW1D73hDY6dQ0NzQZGpuMa+cugl9CtQVTJ1aN1Yh7uAKJHPz 57+98/e//vVvp7euGI3DU1PLfX1jS8sn1zfOLC9vAM5abV9NtRRyfXFRPYbC ZwlrDwcnWm3rf7lz58/f3qmqV/gGx84vnbr90ZcjE9NTM8sDFhsKywcTUlKp Ss1k+QangarvPxJ3NCAVvB9Yi4LSViavlsmtb1UOiRsNkAqT0dDaLTX13S1K a2l1F6dIQedIQKJZQgXgnJxdRsqrRRF46ThGdFzqz3/1FGB1d2DT2dt+8ZED 5+88nr0zet6fvLafE++JjLK6PASHw1Hf6O7eWXGDic3rpNBbDebTq6c+Br+R m9fG5EixeBGHL2+RWUcnL3YaFlGYgqo6zad//tvnf/767ff+fPr8TZ1x6Pyl m/2DNkmrFjLdtG19YnK9XTVg6p24cu2jzTPXP/3yzvVbH43bTmycvmYwWZns khZZ1+tvfPDxZ1+urp5taFJJ2tSjowsWy9Tw8OT8/NrFizfff++L7c3XxNVS EiE/OhJ1PDQ9l11d3dShMYysb7+2tHphYeV0q6y7rqFjeu705ulb/IKG0AgM oHosCAV2OiwWf9AnGeA9EpAEy72H4sJiCFDRiRSANyaJmkkQwFMys5rGqtUY bKtbb1unz5XXGnI59WDFU7G8RExBYkYhtMis3JKkDEoCCvvy4aNuO3YgULu7 OTTBzXmHA/YHcEb8nkNM7MPXbm7u3q5uXk4uj7h7/phfKlfq5nmiTkpeg0a/ fOH1v4GvY/EVVHZrNqWWQK0Dd0dhtqCwpXhyTQq6AKzpu7f/7fYHf1k9deHU xpU/fvz53/769c2b762duvTapfdmp9b7TNPLqxdOrF8yGK1bZy5/9fWdcxdv wC7YPnO9UdI+PrXU3Tu8eGJ98/Slrm5Lq1z/1jufvffe5zeuv//WW59MT69N jC0tLWyfPf06REWVsgeNIodHYNGZLDDexBy+oXuqrkllNNt03ZPBIWg8oYjK qPXzz3zx5agDfnHh8SSgsU9wul9oRlIGC5aH/BMBfP8wzPEITEomO4NQmI7n Q04MCM/EkouhoGNsnH+3z3qyuLKdzq7NyimCdyHCgJjQ88WEvLI0PCMtm+wT GfXoz59Ezh1zR040dUditKd97O67VOLA+f7ZegC1lxdy1r2T00O/eepVld5W 1dQvqusdtV3dPvelWrfEK1bT2W34HIifFcnoIiKtnpTbEBnPwuDLSyq1jPx6 QWlrda26WqzoG7Cdvwxm6S9vv/vZlStvn96+YeqZKCluralVArA95vEhy1x3 z6hcaZTK9ZquXtvsie2zV3Td/SqN/rMv/worinbjwNAMuLvp6dU//vEvV6++ C45O3dF78sR5kO7aGmlLs1pYKqUxRJA76Hmi2gaNqLKtskaZQysGDvv6J+/e HeLjm/775wJ/vzswKCrrVZ+E518JjkzMAZwT0plpOC4sYT2TVAQ4p2I50N1C YwlRSZTjEdj9x+JhWddqUnSOtaqGBeWKfEEzFOCcllmAhCN6KeCcjCNFJKOe 3rXbCbk4D/EYQGzQ6gdDiovjFGVnhwO5O7KBtD/karyHIauqu2ealZNLGx+d 2PyoodVKzZMUl+sBaiZXBjgnpBWgs0RA77TMktSMYq5AAYk1Po0am5QDW907 MNNtHquqlY6MLo5NLHdoBrSdIzViTWW1jF9YBfCCeqjUvfCBBklHl2FgZe2M TKnrGxwbGZtpaJYXFFXKFIaxiZV33v5sc/OKyTS6tXm1xzjaWN8+2G/7+KO/ rp+8ZDSMAHWHRlat42sKVX9ljTyPXV5QVEemFian0aJisg8fjg8JzT4ehHlp f/iL+8IS0XmBkbhkTP7RwDSAl1PcIqrV5uRVxabmRiSQgc+wTs2vgbeA5A7m F5TJOk2zALWya1yuHYV1JrcROiMEfFp+JZ4mSMumpGQR9x7zcfN+CJEOO86e LvZI8h/y2cXh9JwgrXj8n9JKpbRjXG1cG5+/VVzRlZvfWlHbWyTSAdpZ5JrY ZC7wOQNfTmO1JKIKY5P5ApGmvE5XWqPKyOYFR2WiMlnJaBqTW8ERiLsM1qGR 5f6hhfomnbiuHYQXmKxUmXSGYZXaPGSZnVtcX1je1BuHVle3JicXKqoboQNK JCqLZXZj4zIYy9mZ9VMnL7W1dikVpsGB2Vs3P7l08R1YmVu8AK74xhufGc2T IMupaDJArVD1QsoGqCMi8H4B6XEJNMDt6Rf9ga7IJHgswTcEDeyNSaEB8iRG BTq7IDgaHxKTDVAz+Q3wbnQyFXIfLEuqO1T6yeomQ+/IGoCs651X66cLS9tj k2loPJclqM2m81KyyAGR0U/85OfIGVn2NO15V4ofjIT3wvjdaRc7zk5eTz9z QN4x0to+rjGul4kHOEXKovLOijoTAI7Gl6ZnleTxpXGpnIAwIo5cmUksh2po G9YProjbTGnZ/NBYfGQCIQFFSc7IxVMK51cvLkJGaNbT86tEFa19vZNymYFG 45vNY0BU6HTLy1uQ9W7cuP2nT/9s7h3q7x/t7h6SSrVbW5dPnTqvVpuXV89Z rAtSubG5pUsqM0GIw+Ly6YzyC5c/6B9aMvRMStr0xaVN6ZhcQHtx5XxTSzeJ UhyfQD7qk3LMNxVgfGFvKEjHQb8kKFg5HJCy90jskeOpYXFEh1aAepTXddK5 dagsHuAPLwL+oNLwCr9UKpYYiyqULe1DE7MXO3QzcORCSyXQSzJz8lOzqLEo 9NPPvwRgOkaEPJzdvycaD4ws3ZvDRa46dXLyjI7Bm/pXjQPrtqX3xJKx/EIZ jlxRVK5NwxazBYpey7ah72Q2tSY4ihKfxg2LzY1JZgkqO5X6mcb2EQKzCk8V kZnl6VnsyARiCoapNU7qzFOV9R0MTnmnzjI2utShMtfXK4aGpiUS9eLi1vCw rbd39E9/+us7734ISfDNNz/q6DBCEtzcvHD9+ruAc11De4GgpqaufdCypNJY JDIzkVriG5haWNys0gwlJJNYnAqpsru4rGFq9hS4yoHhRSq9LC6edOhI/Iu7 ggBSgBoUA0MUAGkBZ5CR3QciYfnywSiQEeA2QA0iDKiCbjjkBYAF5EHPAXZC rohX0taum7AtXIEIwyuWxiTnJGbQU7PoGDIrBUvad8jXzX0HcuGeuyco9Q/G jh4ks8NvgKlzdt7J4ddZxrZ1ppNd5jOVDRaRuJvBbS6vNbYox4Dkhr61jOzS 2JT86KS8FExheFzu8XBidWOvvMuWTRcnZHDR+GI47lBYbnAUNjmD0arom1s5 t7J+ZWHt7PTsektTJxjgjg6TRtMLaIM/12hMwOf33//86mtvfPTh57PTJ0ZH ZjdOXbhy5c1z525MTZ4oK29ubNa2yU3NrUaw2aBpSShmRCwxOY1SImrNZZZg sugT0yfGbav6HjB4Vzl8cR67sk3am4rKQ6HzgcNkZmWhSB6PYkD72/VqBLwC CrzvaBzgD+IMWgGSAmgDvLACOpNX0AgchoJ3oQBn2AWVDTrbwqXJuUsS+QCV VYmnCnGUghQsIwlD8j0e+diPfo5cFunm4W43G9/L3ffIfG+uFta9n3jilyr1 iGXsjLhpqKphoqZ5DFInWyCFpbRj0jJ5AWBPTOcBh32CcBCUMokicXO/pnuR kFvhH5oFx5qgTElj1WCyi/xDMuJTyS1SIzjkU2euntw6f/r0tZqqtvpaOTjk /v7J4eEZvX7IbLYCb9+4dfvjP365srxx5vTlDz/47H1QkU+/vnz5La2mH9oo 4FlR3Z5DLwPDnIEvOB6WGZOUGxOPj47Dlpa3MPJLIGXb5k5dv/XhgGUmOY0M u0ChHJAphgBn/zB0RAIRyAzMBK145qUAwBnsBBTQFaB2UBok+pVD0SAgYOSg IRLp5bAtwHPgDBS4PqD3qO3M0NhWp3GmSdoHYp6CzYtDUTMIzLBY1M9/9Yw9 g7uBKPzDcf4HJsTdQJxffTVgYemyqX+tpnG4oLS3qc2mNizMLL8+tXB9cOzs 2StfDE+cJ+aKmbxWWDZKLWU1Bl3PSnvXNPwSdbft2ptftCgGA8OxYOa5gia+ oH56dvP6rfe3z10TllfLZJ1gfdtatLbJ1Zqq1sZ65dCAbWhg8trVN7/+650/ fvTFxvqZ929//PEfP//zl1+fP39tdHROLJaCl6ioVgCTOUVNOFIxWNxjQeiQ aHJEdGZAULJU0dPYoiHksIvL6gHq4dGF8ippWGQGK7/aNnO+sbkHQyyISiLD twDS3/3BF/i853AMAA4CAjoMrwOBHSrtkIj6NnNFfRfwHz5wwDcR9gVsGiAP fXBy7oKhd6l3+IRaPwWfhN2XjudmEFhxKfjf/2GvfbAOuQTd0ey+64P3Jlkc Szdn5CxrfBZz9dSbjS1D5TXDZIaKK+y+/sYX62ffHhw73WvZKKnqDI+jRibk onDFGEKZYxg8IS0/HVeQwxSdvvjh5pn3CaSig4fjSOQiMBhFxU3WsaVz565+ /sVfyitKigorDZ1DJcJ6o8EiLBJz8ksL+ZWtko7hwakvv/jbJx//+cOPv/zm b3e+/vqbD977E3C7qrKVxyvn8Cokbd3QRlE4NvAtKZN/ODDTL5wQFpoaHJrU 1KptbtPiCMzo+HRxgwIwb2nTU6jFLF7txOTW1eufLpx8HdR1/7FEaH9/2BMC 8QQABPaCo4M+CALiH4aFp4AbaHJCGgNCOlAdfB3gD9oOHwaDDT5wxHZ66eQN vXle1zPb3jlJY9fBrklCM6DdJ6SRXtnr6+X5kLOTi7vbD+etvj+ZZT93ztm1 vLxpcHittExbXT9OZxuqoLcsX6OwxBFJ9EN+qKBIIhApLJZCoteIxPpMYumx QExgBCmHUV1U1ra8etVsXoyOyQ4IQAuK23CZbElz58jIzLBlbH1jq1XWlJvL IRPZoBu9prGqCom+a7CosLpC1KRWGU+snP7gvY/Bcnz52V/+9MmXtokl4DmF wiWTWRXVMianJgWTB8dvDIoZlkALT2b6hGcf9Y0+7BNOZ5dyC6tiEjAp6cRW uS4ZRYyKwaAzGPS8CiKpqEli7B1ZTc/iAMIOfQDtBfYCUR0+GdHqQNQh/2RY B30GhGFHgHQjmdE3CdbhK+DxsMQihWZ0evGytnu6sdXc1j7S2NYP8ggNMSYZ ZIp86EjIo4/8GHB2u3f7iwemApELje6fmAef8fR8VK8b6THPNTb1yVSLjdJF i+2d0kpdcAQ5AcXO47c1y62WyXOa7nmdeXlk6qJKN0eg1UiUww2t5laZua9/ gZVfc8wnITqWRKGVYTH5ndqh3Fwei8Xmcvn8gnw+r7iqqkWtMnXrhwFeEBBd 58CYdWHMOrcwd2plZfPq1TfPn359em7VaBgSV7ZSSZyMdDJ0usQ0GuCMhDgM OzCahKNWpeGFvgEJR3yiElLwLG5ZKpqAJVD5xeUv7D6470BwCorapuwXVSgh N+05FLnvSDQAAnCB6potJ4DG4Kgd1g7KLwTBGQoghZ4IgANR49LocOw4bB4I DnyFwqqGzgimGplWKGiqauwurVFjyYKI+Oyk9Bxf/6ifPPlLZ2RM6e4gxoNQ OyOcRuZrkesTndwfe/xZvX5eq9sQ108UlVsq6yerGsfyec0EUqmifQiOwTff +erKtY+WVi9pdVZ5+0BDs35+8dKZix/mcRpxpBLISvsPp/gex8Qk0HwDUZFR mWCYeRwRh8mT1rVqpLJSgai6osGsH7L0TVgHpuoqW+USraVvanPl7EjvmEGh mxgYa29W8gq4gtIiGpOBJZCxOXSwEygsEyxiVg7icqubjNT82thURlBgeFxs EoXK5HCKcdm51WJpFpH16tHIPQdDd+0PyaaU1jQaICzT2GKgbplYA0oLygz+ DaIfqDSEa8AW+Ax6YuctPTmDd9A3DQ7YNBw/gyykcZsSMTxOqQyU6lgINj4j n8Sq4YlkadjCWBQHQy5HE8ty8uvTiYVpWFZ0YtbPf/Fb+5j/D3XD3dXDgTMC PDLl6vHr3x5WaebFDTN5HAOZqWUXG/ml3e2qCaNxqa2t/8YbX9x88/PbH/4V POrY5NrI2IkWqUlY1pbPqQ2JyI6IzQUvfTQo60hApn8IDnxXQFAqlSbUdJgV zaqWquaBru5ebU+nTDNgHNSp9APdw+1tmn6DxWIen7LMaNq0nW2dA7reKkE5 KSc7KweHxqWn43BZVGZuXjGZXgQWEUPg80taBGXyVAwbkAkJCkelptNpeTlk OpHILCyqCY1GPfPS4b2HI4HDv98d+NzesF2HYsDUQeiAYwGMMeAMjQ9YCgUr IA7A3qde8DvolxKTxopL5x4NxvmE4g4dRwOwr/qlwxKcKj63Ki6d7ReOTyMI eBXyNHxRPIYbi+FHprJyCyRVLSYiozQyMfPJn/36/lkyD068Os7uQC5gdXec P+C2a2+YSjNbVNaXy1TjyLIcZjvgPGI93WNaKStvX9+4deuNL9c3Xp+0nZqd 37aOnmDmVQYGpfkdTz54LOGoP8Y3OMs/NBvKNxh7xD8lODQDh2WBrygXVpbw S+rLqjUSRZdUCSWpqlc1y5SNsqnB8TMr22vTq93tOkllk6SqsYRdRM0lp2am YrKxgrKyQlElPoeTkpELwQeaDuR6QBuO4oN+CUcO+8bHJVNyGGh0NomUl5FJ DYpIe3Hv8adfOLb3SDR4v4PHU379B5/7Rg7Y6xjfgHJkcFiBbgg8PxCQ+sqR xIgk5vEoIuC591gyoO0fkQ047/NJYRS0JGML4GlkSm4qnheVworH8FOyhHFo fm5Ba1FNZyapMDg6/bdPP+/h6e0459/53kkasGK/2Yur45o/BG5n92O+yfL2 qaLSARZHl01pJ9Hbi8oHdMbl5jaLUj25tPb6Ox982ze8LG7SEqiCYwFJh3zi IJf5HE85HpIVEkkJDCPuO5LiH0rIzqlCZxUVCFpQ6QwwzLLWjlKAjF8sLi6p ExRJysul1dWalpbWarG2TTGoN4/1DgPsHAqLiM5mkmi5LHpKRnoWmVheUy+s EhNphSkYOvSyuFQqQA0F0d4nOO3AAd/gkEgqNR/ITMrhJKZm7z8SBjg//3LA k7/e88wL/oeD0vb5Jjz1vO/Pnzr40t4wyHq4HCGIhmNQDgzGS/vDQajD4wn7 jia8fDgBdADE/0gQBqAOjacGxZAB8ODYHFaRFGxAeGJuWCLFLyIDwI/L4GQz a1OzhSl4AYhJejYnMh7zwsv77p2L7vLg+TDI/Zfstyq6ezMiJ7fA4ExJ2wRP YKKztGSmhiUwlomHW+XDoqquuqbe1fVbyydvgK8QVbfnsiqDIzAHjsYGhWOS UPRUDDcmkZWaKcCRRRDJG1oHuvtWx2ZON0u69Z2WznaTuAwIrGgWiWq5nIYC vkpcrZc0yaqqAHBJZbVK0iKrbxByCqmEnBw8AZWZjsJiaCxmPl9IorGyKfws Mj8jmwutMDGdHptCgaQJOPv6BENhseTsbHpaOik4PPm5XUd/+puXn3v5+Iv7 Qn719OHfvOT33P5QABxs889+dwAgBUpDvoD0nYrlQAwBzwbZZP8xaIioo8GZ FHZTQCRhv28q4OwblnXoOAYwBz2BCoqhxKN5PmGZsOMA/IBockZOOeAcHE8D nPG04ngUYfe+g27uno7cd++Mo7v3GUBut+Xu6mS/4xn0wfBIQnPrCOAM+swr GeQIe8A/tyomm1os4KgXV28Mj23giIUMdg2FIYKqazbMLl2aXbwqV09UN/Q0 S0falOPyDtvC2huzy6/PLr8GkWd8bK1bbzHqB0d6JxpKhC0CTi2HqSgXdlSL FJUlmoYqaXlJc2WZkM2ikykkHIGYTSIQyWQ6PYeeR6CxyAwejsTBEDhYUkEa Nh8oHZlADIwEaU3394/y9Y3w8Ys8HhTvezzmxT1+f3jFPyQaS82rJlDLfEMw B3yTwRuDWwCfBvXLZw6DxwBHBwiD8cjl1IKMgGiAbvsEZwB6mTkiMI0gzq/6 pb10IHbP0SRYAeQP+KNgHTA/FIjyCcsAzr8agAZviaFUhCUx0rILcRRBIop4 +FiA945H3N3dfzBe5+rs4eHmjvg96IH2S7jT0tky5aRQNFRQ3M8vHWIJDLic ZnJuQ5XYJJFZ1V022/xFcm5ZRhaXllc5aF1798O/f/DJnas3/gKoKrVTglI1 Bl9aVqWfXbkxPnt5deONzbPv3Hrj8w/e+2pr48r48JyitraZz5YU8dpKCgHn nrZGs6xZXVetlTSKS4pJODyTQstjsHj8wjweLwWNTUbhWQXlDE45gVaEIwtS M1nRSeSoRBIEsYAItH9Q3BHfiH0HA338Y48GxL609/j+o9F+IWmQRiFrxKPA jxFe2h8Jbg1aIdhmUAxHAHQYDCA29EHgM/i9o4HpgB6IMMgySASgvetgHCAP OIfEUaDxgYbAWwApp7Qtl9fsG0E4GpoVk84BoQZLn4DOjUvL9jse+tDDj9vv l+X6INTILfKQOw8gN4GxGw8PHL5I2TFdXj1aXj1eKLIAn+NRZXFJfCq9iZxb R2PVz61cLyiRHvZLLqtWn3/tk7OXPxmbPl9a0ZWaUQjSEZ3ABFlu75oFjw35 8Z0P77xtv4fJzPRGl7Zf2qI2aztr8lmNAl5nQ7W5rWm4Q2psrVfVlA3r1W++ dmHKat1YXRsfneBwC4vKKrJzGJA+MNlMIq0oO6comyqEDugQDd8QlF8Yyi84 cde+gIDQ1KR0qn9wGoB8yC8BnMZzuwJf3BO669WoF/aG/2FPGNiJZ3cdh1YI 2RkKOAzp7zfPHWMVNhFyS/ccjgK5fnZXELQ5KqcRFAPUGEEyLAs64PN7IwFq wB9UGjxeRVN3R880fADgDU2kHwvDp+CL4zLyo5JJ4Dd8/IMfefRHjgt5Hjzj 6z7O9qvjXZDQTRC2q2cqasYk0hVx03wutysmRZiYKsjMrmBypDGJeRRmbZGo PTaZDgGwRTGSx21NQvEiYulh0VTfoIwDx1ICQrM4RYryWiOrSF7bbAIPlo5l h4SiQ4KTuVzRxsrmhLFfxMo3yxSddbU9bc0TBo2tR69rk1xYP/nZRx9fOH1+ ZfkkPY9LpOZlk/OgtUGkxRK57IIGtqARKA0SDXwOjsFC+QYng4UDoYBEdtg/ 8YBP3N5DMc/vDnr6DwHPvhh40Cc5IAwfGIkHRwGMdcxbgVDvPhAJzhmWEDpe e+MLYZUSVPq5l0NAlvMEbRhyGa+sHSAFuYZXnn05DGQEGA5PgdX18oFcfj2s gyxHo9ggGgmZBanZhfHptJiUrGN+QQ4+/2CwzqHPyK3I3F0c9zGjMmp6ek+B 3xCUDDK5RjShOSa5NDqeExyem4EvD42iAp6YbGFEHPXY8YzYJBYUtL+ohPzI OMYxfxS8uHt/1KvH0g76pu/3RYXFkMDdvXosNiAoOTA4KSkFPz25/MblN6f6 rRszi8MdGrO0TSoSdjaIu+VtPWrVxuqpk8unFHJ1HluQkp6dlJadiiYnoykY PMSWNqV2rKhcBu4uNo0CFRaPD4rEgIxA+Yemv3o0Hv7WseNp+w7Hvrgn/KW9 EXsOxu8/mrz3CAIpqIRDLoDVkPgA+ZcPRsHyrQ+/Xd64Ae46OjkXXAT4ZHXP QmWTCYAFNQaJBmUGVgPg4KJTcIWCqg5iXiUg7xdJBJCBzGiyCPIL/J741Gzg 84M4P4i2A+d7d+RzwZNKTX3r/CIzidqOwjYnZtQkoCqS0aU4Qm0GvrKovBM0 gZJXB1ksOokRk8wMCCMkoHhhMQwff+xB6BT+6bBpB33RgPPeY6n7jiQBqYIj s0DPk9NoaekUrWb4+uUPr557Y2N+a25gYnNqdrBdVUAg2vr7z5081aXSDg9a 6+pam1pU3MLy3Lwi6IAxycTUDGZ2TnG5WCtu1oPr8AlJ9Q9PPxqUvP9oDCg2 BGTobiCzAB2oxK+ePfbLp44An3/3XMAvfnf0qRcCQDRAJYDJYKRf3BcGSRBc B6RpYDik5smF83LtaIdhGsQBLDRkQL5IBZACsQFPwBl043BgBpZSDh/Iyi3H 5BSDtgDOwGQUsRSiCpi9yCQi4OwbEPLwI0/Y/cb3+OyYB7+nGwjOsYm5mq4l QUk/IUeBJcpQ+Mb0rHp8TgOT217TODw0dtHQd5JV0ArmLQHFJuZWZxJFoTG0 Y8fxyWn8qBjyMX/0Kwfj9xxIOhKAORiIASZAf/EJSg0MQx8PTY9LyCoplvb2 rsxNbdmsywsj8xdX1m9tbysrq6r4/N7OrrnJmYaaxrHxaamii84SlJQ3FZQ0 ZBK5aRhWZBwpOpGCwrHj06jRKWQQjT1HIp97OQgaGRB1/7HE3Qeif787GHAG Ar9yIG7XvuhDvtAQs32DMgF/h81wTKCAZwbMYSUlEwmVULySttfe+ErXvwqd 7pndoRCl2UJ5YYWawKiBTQBiQ0F+QXJiIOpIMGr3oXhQZiytKgknCIqjQh8E PkMfBN3Y+dBjDj5/bz7F2RX8hv3uRndxhvgMuRtwJlKUOQwtjiJNw9ZiibW5 +XIaSyYo0xeUaIsrOlMwfAyhpLLeVF7bwxYoUHhRHqdFWKoEm52b3xCXzD4e TvSPIgVEE/1CM185GHHAJ/ZYQHJwaEpqEpNArGhtMi5Mn57st6kbpdtz85/e vDlhNoN/7jeaOuSqqck5mbIzA4dce8XiVOTxa5kcMSqTE5NEhSbo0A3f0LTj kRngZvf6JMK2B0ThfcOxYOGOR2QlovPDYnJeeCUiJIqEI5WFx1L+8HIwODeg PSAMYRwwhxUQkyPHU7MoJSAm8FRYpV7afEehmwaJAPaSWXUS1Wh5gxG6IRSY uoMB6SDLrxyNh4wJ4APOwGeHdKCIRcmZzNhU/KuHfLy8H/73fEbun4GkbWQy 3H4LLK9jvqnt2tkikTE3T44lNGHJstiUyvSM8kxcNZ2lyCY2sLlqOlPGYElr GwYrxUZRlbZe0kPnVAvKJAJhA46Ql0Xm5jCK8VQ+CkuHDhWbknPYPwG8FsRk 6FORMVmJSaTo2AwWtEmpwjLQPzEyuL40//kHH57b3N46sX1iYX3UYmtq6S4q aSHRy7JIghxGpbBSXl6ngQQXlUpLwObj6GU+4diDYGUDMUf80/yC0TFJuegs vn8YGhIHqMGLByKe3n382VdCXjmW9Js/HAfqvrg3GJiPvLUvDBRmz+EYeBEc NfyfCelMsB+/+N1BEq307KUP9Kbp53YH+IdkNEn70NmCY0Fo2HF7DycCyKlZ Aki7ew4lRyYwjh7HBkSQAyJJSRnsLEpxaiYjJgm3Z8/hh3Y+hpzY/4NrZt0c NwJyQq5ydYLAuPOl3cFq3XxZdR8jXwk44ykyLKk1M6sym1jPyFfwC7vqGkZh nUqXAO3rmvoLhfKe/qV+y2qfZfH0uTc6tIOUXGEeV0zPryoQSpg8MWTkABCN 8IzDAUlgBvyC0uh5ogJBTVYWTVBYsry0cOH05ts3r398+/YXf/r0k/e/XFnY nppYEderi0slOYySNrlJa5gAPheUtqDx3OjknDg0HU0qCIjKhLwADmf/kbiD vvGZxALwIbsOhD73SgBo7zMvB+71id/vl7zrcPyLB6IO+SfCbwCQjwamBEUB 7dF7j4DIBEDBfolKIpMYIog/v3rqAIEivHbrc4FIumt/KPzPhwPSII9DhHnm xWDog6DPv98VfiQgE40vjUnOT8sqgYSYiuXB13FkfgIqe8/eg/Yz/F1/gDNy Wz/373B2cvL+6c9flndM1TZayip7uQI9maEi58rz2FISpQE4XFxibGmzcXhq LL6KL+jgFylr6rvHp8++efur2x99+ddv7nzxb99evPL+zbf/unHm7dnls6ah peGJ9fauUXZRU2WDrlHWV93YpeuxzcxtTUwsazWGMev45Kh1Znzy7Ztv3fn2 zjdff3vl0hsD/XM6g8ViXWpq6aqpVRaVNKZhmcJKaV2Lrl6mK29QZuTw/KPS o9II6VguKjN/96uhKFx+Vo7gWHDKK4cjfvXskef3Bb/wauivnj8WEIWLTKFC qNl7OOr5VwJBwYIiM8GfwH4Hi/L8y8cBT+TMxhAUMbc0NSNv78FINI6zce4d MkP07IsBoPZgwg/5p760LxpwBrO3az/sVnRQOJgcFo5SnYYXJmAQPmPJnPg0 /Isv7bFftPLDC8AdN5V14Oxsl45Hn3i2STogkY23axal7UtFZX3C8j6j+WR9 03BDs7WmdriyekBcPxSbwE1BFcQm5qEwPGn78ObZt99+76/v3f7bx5/cufnm 5/Mrl+eWL08vXJpevHzm0keDo+uw07Hkkjx+C4lRRcuvqm3SdRmsY5OLn/zp yzduvfP69TdAk02m4bNnX//mzreffXHnq6/ufPrp16+//v7U1KpCYeDyq+ub Vevbl19/46PL197Tma2NUrV5ZHpt65p1aq20Rmq2zMm1/b4hic+94vfK4bDA WCy4PhSRu+dYDPA/Ec1Iz+LgKcVwRABvsaRCSl4F2c7hl/aFHAtMgWMtMAID 3TY+hfrz3+xTdloB6gPHEiC8AKVDYoiH/FDQBNHEkkN+6L2HEekIisyJSs6P Ts3LIAsxxIIMAisqEfPMsy8422/K+4NrkF3d7t73++5Na512ODk/ls9vbJZa e/q29abtnv5Lw6NXF1bfHJ24ZOg5WdswTGO04InV0XGs6DgmhV6XBwEqKJ1E K1ldu35y/eal1z565/bX66ffBD73Dq1K5AN1ErNcPcbgNIEP9AnCgetDpoqO xb16KDw4NEkm67x+7a0PP/jsxo3ba2vnJ21rpzav/enLr7/9+53/2913gLV1 nm2LDXHiNKMj42tW27RNmjROvGPseBtssMEsm7333nvvKZaE2EMsIYGEkNhi CSGGALHE3tsTMBiM+Z6jgx03o03b9L/6/ed6L10HIWO4z3Pu577f877Ps7mx B8f2Y2Tce7g5u7C6vvlkc+fpzt7enYdb8ysPNnb3Zlc2giKSjS3d4wkFYbGZ ShogSOyvKhsdllX88utrumbuCrfM4dXYygeAVdG0RrGFSIZ8Cq7nhrrFb39/ DPzjF8fkgFhkz6nB+PLENXUd++GpdRev+A/+dObydRN5ZXMQ0pAcEaV3+jaA fOSUBuB89BvNM1cNQeYZWHoBzpcVNd57/3fCNbrfCWdhxe9nJZGRcnkiMhjM y6YW3sSiFiqjPyKOnpnXWd+01NQ2w+lYSkmrCQjOc/VIuSxvLnfN0tgsVF3T 5fQ5zVNgDY7JnzqrEovN7+TN9vCXaxuHWM0TNEYvgGxsGezgFm/nEqdt4Hvl uuU38oZn5HUgxSuqmSNTytrmclfVff1j8gsrWjiDgtGVto4xoJ2Ha1s7OztP n+w+3toFPtnefvL06VOA/fHjnd1dBH/4Eq7F2PSch2+wlaOnqY2bmY2HVxDW xjnY1Mbn82NX/vzFua9OXZW/aaB02xwQvnxNz9DCy841HIaLdyyIcCB8Eq3l 2k1joJ1vLt8Cj3n20u2vjl/7+NMzgDwhm97IGT986uaJsxpySmZ/OXodJIeC ut0NdUdFVYdDx1W+Pqcjd9MGlMZNHQc9cw9VbYvTF6+/8+77qFR+vpt4v7qj +LNCXsg7YqIIztJX5G9VVPfQqwaBpaOxTCAQFnucP3i/tJyXTWyKiCFdlDO5 ctVC3zjAwiY8IDTd0S3K0i5I18hN9oxaUEg6q1FQVtERFVcUGJoVGk1088Ff umYCLvLsJUMQe3CjXVBCllq5+GBzC2sScYU6eraX5TTMLNxd3SKScJTKet74 3Oadu2sA6cbG5pPdva1HO493tlBst7e3nj4FzJ/s7Dx+ure9sb07vbAyNr1Y 28hJSsv39I/19EtITCXfvG31x8+/ee8PRy7d0FLTtQE5pG3gkpxKiccV+wbh FG+agJ53co9Ky6ab2/jLnlMF837yzM3zV7SAnL88dvXdj45AVgXGM7IKvKRo rGfmC/4FnYjWMfa/IGd6/orxJQVz0H7WbjF6lt4a+g6XFG8dlb148NU3hPPO Yt+rXYBBy8Xsl2gTBd6Q/N0fvmRW8ejVfE+/LCu7pKhYWj6pcXRqk17ZW1HV Dwr52g3rW9oeIREFppYhQDL5JBalvDUjl2lg5Hn4qIKza0xlXR+IkGhscVhM fkh0gaKKjZKaIzh0uRtWN247gjAzcwx18MYaWXprGzqqqpnpGzipa1ioaphr 6TrYuYZGxhN5vMHFpbvrawDm7vb2NiC8trZ27969R48e7e4Cc2w/2Xn0dPfx NmD9dO/x7h68BR8nlzdm5DLicSTlW5agJ68qGyhqGBlauhmaeVrYBsIrxIOZ tT+ACV+CwfQOSE4iUOCdE98oHzt146K8jpa+s7qW7edHrkDGJJW1FlHbTG1D 1HVdQDCDKwRveFXZ5shJDSV1e2QzhVO0uVOEka2/kobF2cs3Pzt0UlS4Xxvl jefBDAfaiASFGq2oicFIHDjwBkip+oahyJhSR0dcWgY7MZUyt7RR3zzU1Dod EkEEutAx8Da3DoN4xiaXlFW0VVRy6YyO/Px6Q2MPEzPv9BwGiGrfIEJgeKaT e6wOyHgtx6vKVmABvpS9eVEZIsTb2ikU1JqNfZC9Q6ijU1gyjpSMK7Kx91NS MQWaDQmPpzGq5hbvbD1GaGJza3t19e7c3MLa2oM94JGnT4Rje/Px+pOnu4+2 d+FTIHWWVvdGxh7mFNTomyDa0tjK65Ki5uGvr/7p89NK6qbWjoGe/thIbHZU fI5fSLKrd3RiKonDm4hKyJU9f/PkGWXIGkpqFvYuEcDSh0/e8AoggEkEFX1B 3gDE81+OK39+/Oap89rfXNK7oW6vpu9q6RIFw9DS56Ki9lk5lfc++hTFWUIc fd79vECHsCPJfuEIzD5Di0pKyvzC0TmouXmUQuuOwdKx2HISlQUJbnD8Qe/A vbhE8rUblleumVrYhEbG5cNFb+KMjs48au+ebe+aYreNhkakm9sE+AbhcWml 7r5JJ79R++Lotc++kjsiqwK+GJhZ09DF3T8ZNKp/CCE0LI2AJ+dkVdTWdJVQ 6nx8sfoGLpr69noGtubWLvi0gorKxunp5fsPHsGYnJpZX3+I8gYcQB07gPVT JJjXN/faOkZq6ruLSE3WDmGWdiE6hq4KKkYgCN/98NCZi6rmtr7RCbkF5DrQ +fDqHZhQ28Rv7Rxr75kikmqUVU1OnFYCx6qsbunln3T6osZ5OV1tQ092z1xl w9AtPY8zckbHz2mDJQTh8fVZzfNXDRTVrLVMvY2BMC28zlxRP3NF6dVfvYs4 PwkxKcn9ysYoe8AJsgEc2ZAlfOQtZGhk6lRM+rSsQht3vK1rtbJ+orZ5qkcw 39Ez2z98Z2DkbmhU1rUb5jfVHUwtg+A2hKsPqHr4J3r5J9o7BadmkGvquzx8 4z18E0Anh8flgBl8/+Pjfz0mL3vx9idfXPnjZ+fllU2jEwt8AnGx8cTiwrp0 Qqmfd3xUeFpxUU1mNsXdM8LOJcDZPVhOSeuiwm1nz9Dqxg5er2BoZHJ6ZmEd GBmUH3JAQtxFgnlr4/Hu08XlR2mZNFf3uCRcGQ5PB5eqetvukoLedRXTW7q2 ts7B/kFJvgEJOURGflF1QnIBNpHYwhEQC6tKShtKac1Gpm5nLyEqCCg6MYUs r2QEmkTLwI3ZONLRt+Lqm3z9th3oZAD5qKy67AU9cC7nFY0Ub9neNnZX1XM4 La92WPaS+IHXkNLownz3nJfRwH7eLElcWCpURASDVLAUkXjrnY9xKYXMyn48 vjY3nzMx92Dx7tOB0dUu/oJfcKqJRSDIubwiFvDbNSXjE6dVDh27fPzra5cu 3zp6/LLcNU24N0toTZD6yXROHK4YBOrbHx4GCwa/PCR6UFzOHtEJeFJ2DiMj jRofQ8xMoxYX1NKprWmpRX6+0VEx6c5u4Sq3rIA2IQ6Zddze/vHObsHDh9uQ Fp8ix95ToeoQKpHHC8v3uJ0DGZnUxMSy0rLOPGKznRNWSdVO18jDyj64vLJj QLCcmVPu4x8XHIKnV3Ays2jY+LyUNLKLewQYzxhsjpau3S0tW4jnIycVM4iV WoYuCiqmlvahNc0jbT3z4dh8M9twFR33C1dNgTeQsniXtOVVLa+qWagbuCho WJy+ovLRn78CxkXqGwuRfF4r5nkafF45Da2OJCosiSLzyluWNr6c9uW07MaY hLJewdT6k72lO1v1zcNe/jgzq1AHlwRXz2Q9I2+I25DIjJiEAnJZc1NLH7OK jU3KBpo1t/XG4ogefnEt7SOBEWmQ/X/3yamvTl4DTXXsGyX/MEJeUa2Gpo3i dcOIsHQKqZ7XMdZQx2tgddXXt2Ox6aD31LTMTpxRuK1nU1HF3trZu3N/8/H2 Hmg7COPNzcdPdpCTrd3N8an56rpWMrUOWW2OLXRwxF64qH/8lPrh40rXlEzB 4iEytbAKhE10XDa5rBGGX2BiZEwmBHZySjHgbGMfoKJuYWMXfEvHQf66YWpO hZ6pBwSzlUMYo5Zf0zgUj6e4+eGAk2/re4IuPXFR+/QVfTlVSxBONzSt5ZT1 vz6v+OZb7yH1rsWQWiU/pDeEKw1E0JLZ+zU6xCWkwLBAENa2TWSVdhKp3LHF 2bnV9bXNvd7BO05uSVo6QTp6oWfOmmnrBebkN/YJ7rA4/fUt/fWN/KXVjSd7 iAYYHpuuZYGLTPb0jSgm16rctvjw45N/+uy8krr1oRM3XH3jLR2Cryjoqaib GRo7VVdxRkYW+vnjm+t7S/P38jKJOXmZTq52Ds42tazK9Y17O08Q9YzsK9x+ uiPkDQjmnZ3d1XtPx6fW8enUoPA0XDrZ0t7/0jWtL45egAEC4Lqqvp6Jg4G5 Y2pmMam0Jjw6JQlf4OYZlZVLr6rtAqHOaR8lURpxBLKza9RlOR3ZcxohkdnM uj4H12gjc9/wWGJWXh2V0Ymswk0sADuppuWgrOV65JyBlmng5ZuWJy5oKGta XFTQOPr1WemXX0WfCYo9a9DzfDeKsD8Euo4Rg3bPQWahRTCSUjIiGIm33/+U SG4KxpICooj0muaJuY27D59OL2z7BmaYmEdo6/mq3XKLTy4fnXxcRGnSM3U3 MveCPwGfQsol0hube+49fAyADwjGPX1CE/F5FGrTN+fVPvjo2HFZpWNnlK2d w9S07Y6cUlTXtrZ19E1LK8zNJQ8NTIFMnhpfWJ5ZBsE8PjU8MzctlM2IjAPG ALSBkMGebDzaBoHdyx8CqTMyuQZynV7VxW4fx+KLzey84ZfRN3W+qqQrd10b rKKRhUtASDyzmuvjH6+haREWSWhsGWBWd7R3TTS3DiWnlDi7RWrcttXScQyO yEoilOEz6HFJJHefxBIqJzu/urySR6JyYxKKwCDYuUZoGvt9dc5QWdv9tonP N1e1r9zQlr1w7ZO/foXUs8WISiJb48UkRL5rCZ8VNxb2ytnvTyQq3F8PSuQ1 R3dsFK7c2ZcANz6HN72x/XT5/tP0bMgjTG//jIiYoph4cnp2rZN7tKVdoINr hK1DoId3lKGpo4WNBy41v6d/HKCenltOJhBLaY34VIr8Vb0Tp5XVdR3ACJ++ qH5c9oanT2xWDrW4iJmbXcpu7AHzMTd9Z+vODiQ7JH6FBnBraxs1gwDvw7XN R5tPVlcfTUwslZYyXb1iM/MqweY3t40Ojd2va+5z84mxcvI3tfbU0LHS1Lc1 sfKAkDazcs3MLfXyjTEydcnILuvpm+vtn+f1zpSUNrl5xtg6BGdmM/oGVgZH H5bQ2nDp5Zl51f4haUWUFlpVJ4nKyS9pSs+p9PJJAM7U0Pf58ozB2WtmelZB F5X0z1xWPvb1hd+88yGyDwIjCTiLozNGIt8mQVQwiwgD+nmFZ0lJZAcWRgyo Q+azL87HEMo8gzOc3XBJKfT5lb27D/b6h5ZozHZg15DIzBuq5qBUnT3iAPOw KKJ/EC4kPC08KtU/OM7Cxj0iCs/jj4OyXb2/VsFoZ7cNd3XPObpF3tZ3VNG0 Ae0EjqyheZBKb+7tm1pd3WIyG0uKmduP9zYfPd3eQVB9tLG9Jzzgy62tPYB3 ZWWjp2cM4j8mhoDD5aZlV0BKtXcJ9w9JqWbxy6u4Vg4BqsLVyOralloGdsaW rq7e4clwvxRVWDv639K1dvKI4HZPDk/eX4G/ZfgOq2VodGp9+T5Y+Edc3hw4 rOa2iYzcqqDwTLiCNQ39RFIj4FxQ0oRNLg6OzNYx8z8jb3LkzG1tMx85ZcPT l5Q+PyIrfeB1ZCIOeWgitV9Y5m/nRYXA72/S3O+xJYas/hKVeBkoWubld8Ad x+FLLazivf0yRyd3wAjcXd+bWtjMK66+oWYip6gPGTCLWBONLQkOzwmPygwM ScERSBk5FDsnP2//6GxiWW0Dd33zKZgIYn7lxPQDFnvguppZUGQGWMjs/Cqg dNBXPfzp+/d2x8aWwkOT+D2jd1c3l5cfbmzsAhXff7Cxtr51797jiYkVNru3 sKAilVAYFIg1MXZ0dPDzC05JIpAhqsNjsqPjiSBOwGDCADyBOiAXA8hYXG5Y DCESmw5BrmvsaGLllZZD6+TPwF+xeGdvfOYRp3Oysq6nsq6XTGuDAWhTyrnF pWzgDWZtDxgEGDkFdcmppVgc2cUbd8vAF2zLbQNXyICyFxQ//PgvSFsuYZV3 tD2EkJz/ljf2twKJiop+O9EhfLZ1ACMijRF95egpeVwG1cO70NuX2MRZhJCe Xd4em3mQmErUNrTNLWJW1femZjGwSbREPDU+qTCHWJmdx0zNKAXJhE3MJZex 7J0CafTGrSd7/P5pNneAP7AAPjciNqeghBUQjK+s6RwSrPQNzA0NL7Fb+BXl DTOTK5sbe5OTq5PT97p7x9Fts+TSehK5NiIq1djUJSYuk1LGMjV3u6lqYO0Q AiBb2QfpGLqADtQ1dkZxhmA2NHf1C0kEnK0cfD49JOvkEYLPKHH2DLdzCckk VhRS6tkdo72Dy4waXjyuGH6IoZmXT2BKbeMQ4Iwub2vijMNJKR1uXhbwBpBJ PI4cFJHj6JF4UcEAbsnzVzWANF75xS/RJ1LC5YuIeHs+j/QdnPdXku4HNzga pEaECBCOuIzUS294BcThU9s8vHIa2POzS7vjs+s9gzNYfFZKVnHP4Bz4l/Tc qrTM+kR8OeQUCrWFUsZOSSuNis2Jis3y8I7RM3QyMXVfWl3b2Npt542MjN9L TCZ5+yUQC2uodE4vf6G9Y7yza5LdKujrX7izsvXg3u7y4sYisvR3rW9wETxm K3esFjiBwaUz27PzKsBZgCSDpAZeA5dWllNQ7RuEu6lhCUY7KZUEIQ3j5i1T gNrOJcgvJP6Lo+dUNU2dvEKBt83tffzD8LXNfZWs7vLqzub2Ma/ApAhsrpGl 91cnFexdopi1/Kr6fk7nTM/AKmDe2jENOPsGESJiiQGh6S6eWMiVNk7IhKrc dV00mMWlDwiXhn47m/H9ApgorihL71duxKAdA6VEJWWkZV7BYCS+uXC9sGgg JY3FqBGMTK6DJeQLFkorGt19IzPy6ENjD3ILGtw8CSERRAjmEkpzTl5VRlYF ngAhHRUYggMXBhzS0soH1yYYnYPQBR1lZunDbZ8YHFplMDvAeBYW1ZXT2wTD dwVDy338uYnxu1PTj5hVvLqGvtn5nYXlXUhSnPbxFs4I8Ew5gyPcmJkL0reg pAHIBxgjLDorCpsXl5wfFEGAqNYzcYIMqHBT3z80Qfb8dV1TBz0zR+Xbpu7+ MYAzLoNibOXl7hdPqeAYWiB1BXVN3K6rmUOaAx6G9NfFXxLOWHaXMTohmD18 k6zsQ8Fg3lC1dPWKA+8Dl/WbSyp//erU679EtsGKfLvR9YcP4e7v/RL0YiLf 9qiVlkTqUElIvoROd3j6ZJKpvJrG4ZHJR60dk+3dM5DigyPSUzJoE7PbBaQW bX0vsLoVzM7yivbI6LyomNz4RJKjc0RQKMHDCwtSqpzZvLEFaXRrcGiZ3Toa HEKglDYPCe7QK7hV1byi4no4b2gcgDc7u6a7eFOQMVNSafDTOnmzxSWNhcUs CH4IaVZTXzG5Hga3cxxiu7i0OTOPiU8vA4GXkcsIDE+JxxcCMwA527sGAz8H hifJ39ACHwEuXtfUydLRzy8UR8imaho4qGlbWzkGX7ymI3tB7bKi3pXrBvI3 TJzcY8Oic0Ezg5wDrs4uqIvCFkCi1zZwA9dzUV7P0MzTzNLrurL+kRMX3/nt x1LSr7ywsPxHD6Q/sJiwNARSygBpRysDGIsgdR0hqpEEKo0w/OGjCvi0CkgK bO5MVd0gj7/a0b1SRu+qYQlAC0EAqNyyhYvO5oxxO2YysqrCIrIjo/PxhHIw aHBeSmsem1q9t/YEPN3S8pOe3oU8YhWgyuuepZVzCgprKyo7SCUNxPzqAcHq 8Mid0YmHLdxxSK9wzwLU2ITi6Ph84IeUDGpqNrWRMwTUyuufA2uPOhRQlQGh BC//RBB1QBoQz6qa5hZ2Pk4eYSFReKAOIyvX6+oG7oGxdm7BNs7BGrq2hhYe JtbeCiomfz165S9fXTz8tSKAfOiYwtlLWoFhGeExeSCYIevFJBabWQeCpoJg vq5qqaBspmvgrKNvd0Ve/U+fHD148Ffoxu3nvbH+Hs7iUsKuy/ttf6XFpMSF s/4yUsh6abRSrqj4G6ZWfiXUlnImv65xrIWz0NqxnFfQWlk7xB+6S2W0K6lZ QEpqaR1dXN7r4a9mZlcGBGamp9Uk40uLyQ3stlHQ3uvb21Pzqw/W9qprulMI FAC5izcDaENIQ9jLXdPVuGVdVcOHeK6tH6hpGGS3T4HNh0AtpbeVV3ZC3oSE BcqNxe7LyKORqKysfHoCvgQUXUxCfhGlEU4gkm2cggDn4MgUyHqe/rFVrI7B saXQWIKmsa26vrW1a6CxjbeOqYu2ibOLb4yOqZvsJfWvTil8fgQpKghI3tSw sbANRtk4NDrXzjlSWd0a5OsFOd1zV3Suq5gZmbrd0jQ7derK22//DilTiUEn P/f7ov4Y2gAyWjobKYskxBlAPiAhg1RTkkAmrMXRqmAimI/++Glcck4xhVNZ O1xVO1ldOxMVSysq6WjnLQMgoKMA6uzc6vHJzbm5PS53OjGpHEZgcEZqOh0Y dXZxffXe1tzS8tLKNoc9kpFGo9M4IKobmwYHBldKyI22dsHnL9w6dlyBkFbO ahyEe2di5kltwzClnNPdv9jdvwRkRWVyouKzlNQNIa+V0OrrW3oSU8iEzPJ8 EiskMgPuaN/gJHwGxcMvLjAcl5BSEInNJGSVBEQkeQbHEArKHL1DzRy8lLXM YFy+oauibXXmivqhk3KfHb386aHLZ69omtkEAci3tF3cfbCotLCwDZS/bnhe TvfSVX2AWuGmuaGRyw1FrU8+OXzgwBsiwm2AyFLbF9rZ/PAhbDSDlikQgors WJGWBLGNzC6JCB0O4CwhhTQVvXZDE5deUVDSXsOaKyoZ8A8mFZV0d3Tf4XYt +PknnD2vAckCVOj0ws7S3T1gGEAJeMMnEEeht1TXdQ6NLK8+2JiaeQi6orKq AwRGfkENmdI0PHa/tW0cKL2qutvdMw7+SSdvkdUywumcAhHb1jFxb+3p0Mjd nr4FOrNNW88eIioqNiMiOg1eQ6PTmzgjxaVNIMwgmP1DccGRqXA5wBNFJ+SC wLutZwfGJCWrrK51wM03VtvICbKeoqqp7AX1c3JaX5649pevLh0+eQMAdPSI cvaKAVcLFK1n7G5uG2zvGmtuG45sHDuvDR9QuW2noGKqcdvk9JkLb77xFlKz 69v09083dHtRnCCeBdHfGKSytJgUJEQrh4iMvBZcWishu9s/mIZNqhka2e4f vMvljJma+9i5hkcnF9BqOsfnNsbntnoFq6BOvfyTcGmlyXgyaIYHG3tzi5vD o0sVzNYmdj+F2tTEHuT1zkGyA5zdPeM5bXNt7bPVtQPN7DHIqk0tw1Mz2+0d k+CLSeSmmjo+ZNVYbD5IGvg8tbwtN78iMiYdzDtoSFB6MFhNA3DhQA3C5908 YsEsk0tbgHZScypMrQKc3KOBAI/L3vz8K7lTZ9XPX9bT1vdw98YHhueGxWaH xqX4hWLdfKIcXCN1jT1VNZ1VbrlcV7G/pGCqqu2goeeorGklr6Dy+49/J9yg LSQEYQtm0X9QzPx70f1s/v+79ILQELLA4+33/wp3Ez6jPiqxMjSWbmaFxRFq Wtiz/fwV+HOSMsi5pXUpOeUtHaPTS0/q2AJQ1xGxubpGbsl4ahmtA8JybvHx 2OS9bv708NgqKGFiYRUQeF5BNaOyKzo2z8klEuR3bX0ft2MK2B6CuZbVk5RM cnQJBzUYGpHu5hkD0hE+08wegQ/gU4sTkokgHfWNnEGrM6o6xybX4EeBsIRX ZlUPXF+4LsERGd4ByY5uMb5BePhlzl3Wvq5iYe8cExVXlFvQVEzhZuY25BbW g3+BFOAfQjC3DjOyCFLTBI1hc1XJUlHN2tDSR8vIVVXH9tjJs6+99ioKL6qZ /50WNs9/CAo+2HZQ1BLiL2FEDp48pZSV35BbxMUSalRue6lreSXiGHX14yVl HfQ6XgN3hD98h1nfW9s82Nm/CPd+eg5D9bYNyA9//9QiUkNjyxCnfbSuoXdA sDw2+aCzewYMS2oGNRFXXEiqB9izcyt5PfMQk4AYvAK3Z+ZU+PgnwnfBBIG6 6x9agaAFOQ22BW4H8CwR0VmlNDZ8GORKLrHaLwBnbOoVFJKeS6wNj8yxskEe uQJ6IH0hniFW3bwT/EPTcwobaIzu0nIesailgNRaWt6ZkctMy66Ai6Ku6WJk FmxmHamh46Zj4Kmh52xi7atv5nHhqvZb7360v4L5BaBejNJ/7RA21xWXRCaj JISlR6XFJF9VuKlLrWyjMLjeQVmXFWxNrOLw6eyQqBJcJq2E1lZZ3y8YX0/P Y9JruuqaBrPzq60dgk3MvC0s/ewcQgEEUMtwy8N93dgsGJ9a5w8swWjhCABS yInLqzsQ82AGB4dX4HKERWSC6YuNJ+YX1gkXhyyOTax38+ebWyEdd2flMuC1 o2uG378Mg0bnBgSlJOEoSCdNWkcRqSU9sxIScVB4urtPvK1TmJs3YuhAIefk syi0DoA3K4+VldcIXxZTOgjptRHRJeFRJA/vNHevVE0971vabpB09M08Dc3d wWC+9/svECEnBFm42ee76+j+Doz/8LuAs4z4gZckXhbHSMjIIG1VAWptI5vC UlZFXb+FfcxFRVsDC7xfWImDR6ybT3JqdlV9y1gnfyk8Ljc1i15W0QEhraZh ffHKLUNjDzAvTk5RoEyaWkbLKzoB8MHhO1Ozm4Dt+NTD0fHlje29iZm703OP wGv7BSYq3NAHU9nVMw2pDWDv6ZvrH1oC897bPw+JFSIfHE137wKQP5wARZRQ 2JBGm1rGgalMzYJsbCNz8upAh8cmF8UmFmKTS5JTqWCsCks4OfmN8cnURHxF enY9nCSnVqVlNSen1qSk1cUl0PwCcyzsIozMAp1cI8xsfG5rWx37+rLUgTfR 5UbfaWHwE3F+Ee0fWuAhLiMqIy2CzKyKoitqRMXFZV6xsPcsZXBLGfyQ2DJd 06SQGJqZXaCSuq2ajrNPcGb/yFptkwD4sJDSUkLlxMQRtXTtQE5Hx+aHReTi CVRwH0WkJg53on9wdWT8AQA7NbsxM/dwcvb+6v0deAVmqKzhJacU5hGZoxP3 +wYX+QMLC8s780vbkzPr8PnZha35pSfDow/KaBy4O8Dpk8gtLa2Tefksb1+8 s2ucnr63rp5XfCK5vXse7jIy0naPDSflzB4IYyC6bGJTPI4eHkOCkYCvxKc1 JaXUR8TQg8JI3gE5PkEZbh4J9k7BYEzOnFU8+NrbSD1+cbRjnSj6RFscLa// rx77CRF9jCUqIYORksFICJ/Y7k/rwX/x2q/eNrFxp1b1sNoWKdVzGfkdEN4x SVQrx2gtA4+svLqe/rv1bEFGXnVmXjVkSeBh4FhqeTsoCl7PcgWTByE9KLgL bACSo39oYWZhbXzq/vT8QxDbEKtAHYDq7NzmyOh9wHlmfhMQhjfhdWl1F+If oIYLBLkSLged0VFV0wOsAj+tshpZXZBNrM/NaygoaigsbqQxEeuamsUoIrcC vPnFbMA5mVABwYxNogWF5kfElsQnVcYnNMfjWEERlICg4pDQXF9/grNbuLG5 88nTl199/dfiEi9JSrz0vNfJz3igxh3hZwwyhItqkO54yEZDZAWC+Bu//tDe IzKruJlQ1MpoHC9j9lEZ/VzeakwimAVCPXtyZGKrhTsJMjgrh1lc0ghU0N27 ND29vbC0Nzu/OzL2sLdvCcbkzKPhsbu83ile78zI+J3e/llu5ygkytmFR/NL W1OzawApAAsIQwwD1IA5vDM0strVMwsDMuDE9Abw9vjkxurdvb7BZXJpK0AN FM2o7AWVCPmOQm9PJpQDXZBK2+EVoE4iMFPSq/MK2elZLIjnyFhaXEJ9YCjZ J4Do458FdwSIH30jxzPnFX/11vti4tL7ruTfa5D3d47n3cQkhCtKkYfm4vtt a0Qw0q//5g827pGZxfUp2ZW5xZyisk5gEjKtm8roa+Eu8Ph3B0YedPevgPVu aR2H2AOWGBi6A5w8u7A9OvEQTtBX+ADIPIhMIF7hc6VZkH8AMujtyZmHALUQ 7fWJ6Qc9fTMwQBk2NPP5A3OCUfhRWyt39xZXnqCUAvjzuufKyluReiCkpo6u BbCx5HJuGb2rrXOxqXW2un6UUSMorxwoq+AXkNqSUyoTcPRoLD0gtDQ4vNTb l2jvHGdk7ntb2+bMuau/fvsDdHpZaK//3UaEPw4y8op2/kX7LUuIoM8EwLpI SR04iDSE/c1v7TyCsgury+jDhRReacVQIbmLXt3f1DbF7Vrq7J0H+QERC/BC iEKyg/ADpoUBlAuxB+IB8AecO3jTwAPg+4Qn9wBeABlIG/5VN4R6z+TI2OrY xN3+wXk4mZ3fGBQsLq5uLd/dXljZBKoB2oFrAbcAkM/4xBr88xbOICjzjCxm amYlxHBtw2hr+2JV3Qi9coBc1k2h9pSU8oiFHHxqdXRMiW9gfmAYxT8k39w6 AjS2po693FWNd979AKm2isFIiu+3fv/+s5Kf60AbzcMlReZJMCJIcxYRCXgL ebYrIikqdQC45OU3f2Vg5pKWxU5OryaSugrJHRAtlfWC1vbZ5raxgeG1qZkt wchDweg9BMCptfGJByAbYACq3M5JYGnQZiAbpmd3IOzZnDFWUx9Qx+jEXcAN YhjiFgZANzO/AVEN+K/c3YVon1/eWFzdnFvaAFaH1DkysTI8vgwOCP4XGBD2 VdWdYGpqWCMQw6zmKThhVA8AzkXkdlJpJ/CGp0+6g3Oii2uys3uao2eWvSvO 1DrUwNxTXkHr7f/5AzoXh7YFfNZOVOz7y5t/Rpz3O3ejfUsxktKiL4PYg+iW kpICIQkfePkX7ygqu8Xja3OLusoqBuoaJllN0xBC7d2z3f1LfRCE43fAD8LJ gGARoBCMrkCggumAkAZqBXhB5g0KHvYN3OvtW+nmz/YNzU7NPYBYhaCdXVx7 PuaW1qfnH4D2m5q7P7N4d3bp3sTMqmBsfnx6BQZ8CwDv7ptEGH54vl8w19w6 xGoZYdQOUit4YEYqa4dojD4ylQeCOSyy2NAk2NQi3Mc/BwSGlT3WwjbaxCrk zAWN13/1gQjy1A95MI2mfmlxZLL++3sifkac0UkSZFGTiChatQNtkYBu2sIA Y0uLCsn7jRNfy0dFZ9PKOTR6R0vbLAQPtYLfwJ7v7F7j8R/1DjzpGVrsHR7r GZrsH53vG57vHpiFqAYfx22frK3t7+lZmZjYmZnZnV/YmYMkuPB4bn4LPQHh MT2zMTP7CD2Bm2Jqen1i5h6wBORQGMBIEMNw4SCxwq3R1j7d2jbJ5kyxmsdq m8YgR5eU99Aq+cDMJdRuSnlvdn5reBQ5MKQoLJLiG1jk6pZo7+StrWt56hu5 V37xa7QrPNp2CkEBKboqgexp/clG+8WOP3/vY/sVjJ+f73e6Qc/RDp6i+5Mh GHT/srjwse//vPuhm0sgk9FWwWiHmMGn15CoA3VNdyrrFpvaHnMH5ht7uho7 OtndvZ0DY/zhWQg5bvtYa8twS5OAz1ucm3y6MPN0bmprbgbG49np7ZmpzZmJ RzDgzdnJTRjT4xuTo2swIOWBbYQ0CgNFuJMHzmWJx1tq75xvap6srRsDxihl 9BTSOwvpPECbUsGH9JFb0E7IaE5IqomIKvf2zbd1SLeyDtDUvPmXTz6VlpYW EUG2OaB9rL6NNxGR75z8RJB/1tSJQWsaS0seANKWlHjl8iUVHL6EWcXDpzFd vdOTUuvKGAJG1Uw9e7qubYTFGWkABdIxwetb7BOsQh5saO5vbhkcEqxArA6P Lo6NPwT9BrEKyhliFfCEgbIufAnYwl0AaZTXP4OOrr5pbvdkc9sopIPWjkl2 +0Rz20Q1awAsCYnKJZXxIJjLmP2ljD5QRLmFrfj06pgEalB4gbtPmo1DrJFR yBU5zd/+9rfCKcr97mkimH+6P+l/GmdkiS9a3AMjdkDmoLjYARGRV373hy8t 7YLACHv5pRpbhccmVeQW8orL+OXVQ6xWyI8LzW3zrZ0LHd2IJmliC1hNA53d UwCsYGwJmBzABGz7R1b6hpdRVNHUCUIF2BuceAdvso03wekaB4TbuqY4nZOs FkF981Bt41BNw2Bl7QCjuq+0oruE1kmmghnkk6i9xBJuRm4DsnEvptAvKNvd O9neOUbllu1nn11+9eC76L2JTlwgZW/F/3VL8h+LZ2FjUzEx4TMCCGwZcXFk pY2kxBtfHpbzDkzNzK118UgKCi0soQ6XMWdrGlbqm1dZzUtNnMW2rhVu93wz uOy6nqqGdm7PyNDEQu/QfM/gHLz2CpaA0vmCBWDyTv5Ue88Et3uc0zXK7hhu 5sL1Gma1CmA0cUcbOMNgP2uaBipqu6mVHaUVHfRqfnlVbxmjJ7+4G9k+Rmwj ZNbFJlJDIog+gSmuXnHGZu6nzyq/9c6fMaKvYjDSKMAoLSDL8iX+63AWFpyX lpGRQveJI030xKXBqIpKvCwiIvPyq7+RPa/k4hkTFpORW9hGq56uqp+Dwayb rm6YqWuZZncutbTPgSQoY3Qy6/oa20Y5XbPtPQuAP7yiJ/AOu2MaRkv7VFPb RCNnvKF1rK5lopI1XFE7yKwXwIATRt0QraqPROsupnYVU3kFlPbsQnZaViuw MT61Nj6J7h+cZesYZWKOPLP++M9fIr2MwQuIy0hJyaA5DgQG/C3PnnH8d+Es rO2PQTuJCyMC4TbQRZKSv8BgDohLviGCOfjSgf85f0nV0T0hLqkc7EwVa7K6 cYJRN8KoA6AEIANozH4qs7eKNVzfAjBON7XNNHOBXuYbW2cbWqdg7L/DnYXv stiTdc3jzPpReo0AiBeyG5neS6H3lzEGyeV9+eT2nKLWTCLo+SpsMiMusSoG S4+IRqppmZj5XpHX/ej3h9DG3CBNX3r5wPMHHCBT0ZBGFd1/G87or/bCYzIM Wix9v+Qj6BDRA8L942IHX/vNoRMX9Myc41OKyphciF4IYzKth1LeV0zpLSYP ksuGGVVz5cyxiqqJ2oZ5VvNCXeNcfdMinFfXz9aw5mBU1c3QK8cptKGSskEy dRBO4JVU2g+vxCJeenZraiY7KaU+MpYeHl0WEV2GTCl7phga+1y4pPn+B4fF JN5EdqTC77O/jgiz/8D6hYaM/6Yb+c/x84sgv/CQcb8HnLBVmZRwHyh8G2lM /fZ7H52/fMPZLTSJQKbQOsogIGk9hSW9eYVd+UX8Uno/tUJAqxBQqP1FJd2F pM5iMq+ktIdEQc4LijuIhdy8gjb4FrGwI7+oM4fYlpnDTkmrS8RVxiXQAdiA 4PyA4Dwf/yxPL4KqhuXhI/Kv/uJDMdHXMZhXMBikPbQI5llv1m/3MiA4I/U/ f8LSl79//MdwFkYCsk8cIwxs0WfhvV8JGdk8Dn8XRgpZZS0tLEYh7Lv+0itv vv/RoXOXNc2sgmPiSzNy2HmFHQUkMBEtACPgCagCpDDQcxRhGLn5nBxia0ZG A4FQi8dXZ2TWp6bVxCdQI6OKg0PyvH0ItnYxN1Ucvjh0/c03PxOTfBUjchBi WFT0oITYQTHRl56VH8E8X5CMSlM0SP79yc//ZDyjxw+0QxXelCL76yTRuT9R DPj1gwcPPusIIC0u+fqrb7z3+z8evySvZmzm6u2bGBaRGRtPxBHIyXhyckpJ agY1J6+KWFALI5dYnZlTkZZJy0gvTUwgRkakBQYkujgHm5q4qNzUl5WVe/99 sBtvgrZE+UFcQmZ/rlF4cyHdCoS/EjrTi7ZBEvveIvx/5/h/j7PY8z9BiDOS 2iXEQf49n/6Sln4JMjyy6FpMGsEcyFxEWkLqzdfe+PD9Dz//66HTJ09dvXhZ Re6qxg1l/ZuqRjCUbhpcU9SEd87Iyh8/ev6zT49/9MGnv/7l+y/JvCbcOi2B DqSBFHLzSCE1EuGCiiJ7cMSE61SQa72P87ebVX+uQ+x7x8/2o/ePF8vRC49n YfziAO5AAUcnG9FihfuKRUoIsyRGuDNXXPhEAalKjUGHsJIhOhv8bGDQ50fo M2gR4dy4hCSyIhMlsedf7ldmEMOg20PE0A3XIvs7+37GYP4+yP+ZeP4Hv4Nw XnH/KjxLl8/2xYiL7bfeQnKTFPJ4/Vue3K/m9J0h+rfTDs/+qOd54dtjv4bt s0NUVPQ7V//HfuGf5fg5QfzJx49kGXHhAte/WbAt+rf66ic+xP/efyf2HNsf TB9//9/+38UZPX5wKuzFPXcv/Hr/GJnvL74S+5G1Vf/U8f8BzqI/tHrku7cw QpziP0XMfh/VH5nGxHzvnX/wY/9P4PxjEH23HNY/WNjzr88z/O3xTy+0+Llw /l9YS7dv "], {{0, 120}, {120, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{120, 120}, PlotRange->{{0, 120}, {0, 120}}]], "Output", CellChangeTimes->{3.727109465102779*^9, 3.7271095114386044`*^9},ExpressionUUID->"1706e209-855b-444e-a1ef-\ ec7179041bf3"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "ls", "]"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"ls", "=", RowBox[{"{", RowBox[{ "4", ",", "3.14", ",", "17", ",", "\"\<\:5929\:9ad8\:7687\:5e1d\:8fdc\>\"", ",", "\[Pi]", ",", "earth"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.725546059628248*^9, 3.725546085952889*^9}, 3.7255464237462387`*^9, 3.72579824871656*^9, 3.7257982839528217`*^9, { 3.727109531500019*^9, 3.727109541148514*^9}},ExpressionUUID->"734b5d34-0ef7-4e47-9a73-\ 0d41bab9146d"], Cell[CellGroupData[{ Cell[BoxData["ls"], "Input", CellChangeTimes->{{3.7271095537122583`*^9, 3.7271095539065104`*^9}},ExpressionUUID->"224ccc44-e20d-40f4-924c-\ 09a08b0997c1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "3.14`", ",", "17", ",", "\<\"\:5929\:9ad8\:7687\:5e1d\:8fdc\"\>", ",", "\[Pi]", ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzUvAd4Gne6Paxe7PTdf7a3lE02iZ24xF3N6r0XhBAIUQQIEKJJSEhCFXUk 0YQACRACdYQq6s2y1dxLbMd2ulM22bS92c0m6/87YDtO7t777b3f3uf7Ls/r eYZmMWfOnPec329mfodnJpBcnJyc2F6wSMjiB+TnZxUmPgZPkhlsCplBJIQz OEQyMf8Q3hVeLLj7D1l3dXb558rt/7Hcnezl7PJAOXk6u3q6uni4OHm4OHs6 O8PSzcXT1fkhF1cvVzcvVxdPNxd3D2d3+Ji3kzPUDifnnc4u3s5O3k7uUDuc du509n7IaYe3k+cOJy8oTydPj3t/xc3+lbtfdHbxcnKBt5APOHu6OXtBwR+C ghX4MPxp5FtObg+Ux4MFm+DyP/b4F+J8r773RQ8XV1cXJyh4A7YUWXd1d3Xx ckHg94R1BGcXVygvFxeAy9PFycsVKW8X751uOx92feghZ8+dTh4AIFLO7oCP h4tj3yG4OUD2dHLycHLsUzc3F1cod/gvXdzgT8DudXEGDJGd7n7vVyG/wv5r XZzcXZF3/zHOrvDb/3+GM7JR/w5kR93/EGAKS1fk4W4v+wMQcAXonB3liTAf KftucIDpBLx1c0KWHnYMkf/NzcXZ2QnKzdXJDiByvCD7zM0JCl50cXVydXMC QB2YOvb13Xpgo+7j7GY/sv5VqP7P4fwPyYyA7EDmXjmIbQfExbFyn+2OcrWX 47c5uzpBObk7AeJuXp6unh7IDnFFBMNR8NQZWO7tCgXHg6s78nlQE0DY1b4v YMUhEA7AEfC/h7bjb97F+X+VbvxDnBFc4UBGNNzVDZ54IMAi5erY9rvYOlbs PHd3c/VCNh1A+8HDGXkA+i6AKYI5sjOQZw5aA/wIvK6IfCD/oR1nB+wOnN1c v8P5nnp4OAoOyf8VOP+732kXE4DMzcOuyQ4l8LRDbUfFzb69DpDtH3RBDnhP O4nvP+ATHh47H9/545898bPf/PSXz/7kF888+dNnfvzkU4889kvvnT9x3vGo k5sXfMXZ3tednez/QFbvIezieq9cvtuhD/5CKPgtLv9LcHZA6vq9ByLCnl4P ubt5w1bAtri77YAOCC+6OIOB8HS3b5anp6ddBDwQDYZy8X78yV/ufvVoSFx6 ahadWVAjlmik6l6ZeqBVaW5RmFQai6ZrtL3D0ibrkyr6hNWK/KIGFJ4VGptx yDfit8+8AuA7uTzi5ATeC9ojNEFvRPXtD3d3T0drc3Nzs68jh4Mz0jHgt3nb +fAva3z/QzjfF7cf4Iw4N1dvT4+HEIRddri57tzh9TAiyIgwIwe83ZJ4/ujJ Xxw84kemMhtk6r7R6emVjZnli7MrlydmLxt6FxSacbV+Smea6+lfslg3R0Y2 h4Y2hoZOjVo2R2ynbUuXB8bWNcZpjcGm0U+0SE3cgvqoaOzzzx18/LHfurv9 2MXlIXcPxPLC7/Hy2oEQ2I6t40D7jtL/3/DZ7b/OZ1fHgQm/3a6/7qCfO3c8 ajfJD7u5PeTmvsPL43EoJ6cdwLcdO578+S+fj4hKq2tSmftn18/cunjtvbXT 120L2wPWRVXnrKpzQd5hq28eqG/oVyomuzoXujSzBu18V8dMp9LWZ1yZHr+w dfbjzbMfL554a2LmtXHb5YHB9S7dnE4/P9C7ptPNlJV3JCbS9+wJf+LRn3ru +JGr68MIz509PL0ehp3rhBhDN4deIU3V7T7OTv8ZZP9inP8hnz2+A9YJaXCO le/47AYgI0oIv9neAz2BsO7uD3t4POLquvPhnT91tm/mkz974cCxKAarEhRg 0LJ0avP12x9+u332Tdvs5qnTN89efm9obFXePiWuHxCV6+rq+9qVU0bdsqFr Qa+19RuXertmtNJheYOxo6VXq52yjm0vrby+cuLm3NzVkZFts3nVZFqB6h84 NTB0cmh4s2/gREtTJxaXv3uX36MP/8LV+RHQLTiy3D12url7O6B29/T4Dua7 hHf9PuD/r9j+38PZgfBdkO2HHqwjJvWe50JIAqLh5vXwI08AbdzdH3VzA810 e/rpF9Mz2C1K69Do2c7upXbNVLtmon9wbXb+yvjk2Q7NWEWVGqq8sr2gQFVV 2SOXjes75ztV04pWi6plqFs1OmKcGTPPDunG+7UWc/tAlUitaBvo1k/rOieh unWzVuvW1NT56emLNtulyclz1tEzg0MbI4OnzMZFedsQjy0OCUx54vHfODvv RCyjE0Jmdzjg3BAf47B/CEmcHU//ZY9/Hue7/uEBkL+DGlkiDLDrnLPDPDkj OQ+anTeQ2dnZ+1e/+kNuboG5b2LUdk4/cFamXVAZVifnbiyefMc8uKnUzHR0 zspVk3K5Va2eMpuXBwe2BszrBu2sXDIgqetRtZp6NSOjPZN92oFuha5b0dXf YRzpMo+Ybd2aQU27Wa8d1qgGm+q7WiU9HR2jOsM00NhiXR8ZPzs2dWFi8vLM 7DVAfmBgVSrrKy5p9PWP+vXvnnfz2gldAtFpDyT13NVqO8L3+Oyg8T0H/q/H +YcNDujqKMcDCbZ2W/rgjgBz5MhmSMxyRyTC2fnhn/zkaQKZ0T84PWlbG5s4 0Tt4SqFe7jZvT0zfWFp9e+3kuxPjF2dtlxfnXlteuDZnu2gbPztvO7u+eMva u6Zo6m2q6pLU6GWN3Rppb6fUqJd392lMFp15SGPoV2q7lCZT55Clb2q0f9qk HVa1GWWN+tZGQ32NVlytbWjUd2rG9frZphZru8pmGdyam782MroBvVIqN+Zz yo4dC3riRz9B2jFixt3uHY0uiD1H4H5QK9weqP8Gzv+UkbAjbI++9ozmSFtg F+BtL0/3u6kZLNsOF2cvZ7st9nJyefThR56KiCAoFKMWy4bBMDc7ffbiufcu nr197bVPrmy/e3LmzMnpze3ZrfWxlZVB29mZ1bNTJ7Zty1eWtq+unDkztTWm G+9RDLXVGdnMOiazpaxMXys2NdYZte3D3R1D3QqzUdHTqxq06EdH9daFwRlb 96iprXNUOzhlsA51DClr1YV0EZ8hKuDWCSs6mqR9o1OnF1ZuTk1faO8Yq6jQ iEQddTX6vNyaPbvCHvL+vbPTI8ANNy9vhEvgvT2cHFt9l9XO9y2i23+D2P+8 YXMgbA+2zo4I4ZBgR3Z2d/Lw9PR23+mNgIzsEs+9e/zENe1Wy6nJsfXZye0L p9/55INvP3rn325c/ODS5tsXN966vHHzxOSpxf7Z5QGbTTd0fmrl6sLW6ekT J4bm50yjI6qBEfWwuX0Iml2poCU1iRUdTSkqUgBL26V9ykatsd2kl+t71YNj pqlR49iUeXyi2zppHB03jJoVpr5Oi6bVIC6RN1R2NNUZOvSzp7ZuD4+ebpAM dhrmtfq5yipdcbFSwJcC1FApifm//MWLkJJc3He4IeV5t+04NvmHOP/L+Hxf jf89zva/i1h9b08vUAwH6MiAm9cOSCWgFY8//rPsLEa3zjpn25ie3Doxd/Ha 2Q/eu/HptXNvrUyfWZncPrP8+tbChZO2je2Z9a2JldW+ye3R+dW+8SXT2KmB 6bX+6cmuvrmeCYt2oKulW9tqVkpMhZx6DJqNJwiZzJqKMll1aUtHm37QaL1w 4vLK+Jq1e3R2wDY3OD1qsAx1DWpaOjvlJr3C1K2yjg6t9pmW2UJ5aVUni9+C whYSqJVsfiu3UFpX31sj7mHlNfN5svJSLY9Td/hoKHIkOiEjJ6Db7p4u97bX yY6VPZ7/t5LjP4Gz3WN8f7DLjruHIwMCqd09dgCZ7Sry6O9+s6usqNk2srY8 d25+fGPNtn1yeuvswrnN6Y0TowuXl09fX796bv78cv/clG5kbcC2bZ05YRqe au9cNfZvDY6u91mW9H3L+sG5HstU9+BUj9Ws7pPUqBTS3i7taBqKERKKzmOK JI3amorWHr3ljdduXz5949Tc5sb8xqxl1tTR29PRr5Yahvpsc1NbQwPLDXX6 LFJxWHzesZCsaBQ7BVOYniUk5oqzc6qYnJaiUjW/uD2P2wolKG4rEbUmpZIe +/FvIZYCZyBD2bX6flv87z/+Gd1AsL03pIaMJ9v3gmMkByyohye0bMQgeXs/ 7n8oukc7Oje+Nd6/MjG4PD24ZJCa+lUDK0MLFxY2L85vXF3eWrXM9stNY+q+ zZH5JePIZLtuzTS4PWhd7DIu602neocXdb1DEuWwUmuSq/s69D1qk1LS2Vin 0etGVR3DbI74eGByPkvUrjC2NKvHhmYXJlfHB6ctPSN92r6RnrEpy0KXylxX 2y6uUhYWSXD4ooBQrH8kJSGDn5ZdmoAuSMUJ07DFSeiC+DQunlzFFihYBTIq q4lMq+Tw6iuq2zOz8n/56xeQ8WyQEVdP5wdMCMIvu7f+l+NsZ7Hzd2O8yF/1 dEYMsjfSJ1x2QACBn7TzkR/FxWSM9q6enL44Zloa1s2Mm+ZN0r5xrcWmt57o n9ocmV02DY3KNJ1VTaZG1YJheAHo2q4DeC+OjEOWW+/p2+od3Oy3LGiN1rb2 PqnC0CaXVdY1iGqldbLaGlkBv0ZvGO8fmMdlsUPCUkuE9Qp5d12lpEvV09dt Gekd61Tom6rbqkobSfi8kFCUf2CKTyDqeHi2b1iWX0ROMq44K7cuNr0gIpkd npQfncKNTGLHpPKSM4UZxEoSs4nKasSTSgk5osKiVhqjdNfLx5ycHoL8aJ+C cPuf4/P9oOfhBm3Y1THS7uXi4RjchY6AjLu7QIL23PHQT7Op+Zbhpbnh84sj py26+QH1xJh+2maY2p5cXR6YWukdOzk0dmrQeqrfMm3onTIMzHQPjKv1o0rN ssG83j8416mDWjGaFg2mqY4ui0zVJWkp43DKOAWF+YWi4gomvYBG4eWzSlva 9PruUV5BDTW3SGewytu0TWJpdVlDIVuYhSJEBMWFHI/z84k8GhDvE5QaFEv0 iyT6hBEA2OzcehpPiqfXQ0WmcHzDyaEJebACsMMynVgBlKYw6nEEEY5QyuE1 5tJF+14NAl8KGwiBy83D3T5C4vxAPP8X4HwfZEcGcbHz2RuRiR0ebshIl4f7 wwCyi8tD3t4/YjKKpxe3Ri0nVqyXhztnhzunrV1T072zZ2e2zs2tb9tWz01D LW+PTZ8G3o7NLI/YFsyWya6esXbtpEo7pugYlEjHleq+ZmlXTSNStS0t5TVV gpJSjiCflp+RjMnCUkkEJoslrKpsBag7NAONzdq8fBE6OSsqJCEqJC46OC48 MDomLAlaMA5LT81ghseTQhNpxyKIx+NoyZlFgrIucl5zJrmyrN6UL2xPJ4pi 03lhiczguFyoeGxxDktCZTaSKGIStQaXJSRTyvLY1T5+McgAoLOHu4cXZHOH VtsTzb8M5wdyn925uSEDFvbhW0RCdng/7uzk9cjDvygsqB4fWx6xri5Pn5vr 25g0Lmzazp2wro3qRlZGFq6tnbuydvbGqXNXVra2p5Y2JxZOjM1P9Y8Pao1G qbqrsa29slZWVtVVL9HWN7eKahqElXXC6mJWYSFHwMnn49D4HGIuKg3HYgpo FA4nv7S5saOttUuvG+7rtcllRnFZo5BbVsITVQnF5YKqGlFzq0RLySk4HooO jsbHorm+MTm+UZTgCHISig9NMD6NQ+NKGuQjzEJpRk55Cr44Jp1zPCYnJoNH YjbwitobJcO1Df0cbhudUUckl9AZ5QC1u9fjALWX98OA9r14/q/B+Xustk9P uCJD6YiTdHfbYZ/H2/nYIz/LZ5atrVycGF2zDKws204vDpxctZ5aG9sAkHvb u+cGpy6sndle3jg1s7o0Nj89ODnRM2LUmNVyvbxBVltSXcErreIJ64srmkRi oK4wX8Cm8chZNHIWnUxm0Whcag47h8TCZVLwOHqxoKamoqVVouk1jfV0WxUy Q2NdR6esS9Go1Eo7Bw1DQz2jvYaRtuaubDwnFZWXQSjKotYkZJVgqXUgBWSa OB0niIynZWQLSfSaZGxBTBorOaswIZPnH0UISc7NIIn4xapO/ZKma0HePgXL SrGBzqxmsCoPHQl3dX8cTIirm7d9Eue/PPTxn4N8d0TObhcRdUIyiad9TN7D 2/PHuVT+wszW5OjqYN/Cgu3CvHVtcXDl5MT6hGl6SNtvGxg/YVtZGJsdMQ0b FDqAAmytVCwvE1QXFVYX8krz6Bwaic7OZRdzizl0Dj2Hyc7jYzE5GAxFrTbX N3fQWEIcnonDMwqLaooF4nZFt7iyta5a2tqk1nSYW5s0Al6ViF8uyCvi5fLr yuq7ZAZFSycJzw4MSIlPpGKJpThKdWR6YTKuLC+/nkIXZxFLElPzk9I5EfG0 +LT841HEo8GZoC3xGG5cBicZK2AXyKXtE3rjKuT0mrr+qtoefoGURq/MInBf PRjk5PywM0QVV8//Ksg/wNnl7jzSA2g7ed6dKHF3QcYPPb3sds7dzXUnHkud mVybHF61mBdmRjfG+tcWreuzfdNLg1Nzg5OLo3Nz1qlhY49e26lWaGqrm4VF YgFfnM+qIJJ5hBwOIYeNJzLw+FxCNo2UnYvPomSTmNTcgtRMBplZPDR+4sTW LZl6OJsqqKiWGYxjapVJ0aarLGuqr2qpLqmXNnQYVX0GZa+iXtFSIRHmCZrK Gns1vfVlkqz03CC/RF/flIg4KjanKhZTHpHET0xmBASgUlLyouIoIRHZKels FJYfk0L3i8AFx5GSs/gp+ILEdA6OWF7fNDg8dn5k4qKxb6O5dbyiXE+hVpNz ijOwjBd3HXZyfgSxdfd0477He3D5HzzcflB350HuzmfenWp3dUcAhp5rnyLZ ER+NHrMszY6tT1tOLUxsbixdXhrfHDPPj5unTar+fu2w1TTeo+2XNyskjfLm RmWFqAGklZrDo5ILiGROFjEPT8rPwNFgBZ1JxuAoGThKKpqEwuSkplPgLU5B ZXmVXNLWgyfyNJ1Dxm5rS7NGLtXV18rra+Qmg1UpNSrbTCpZb4fMoFX2NNfI YWXIPMFnl0dHZQYHpgWEZBwOSAtPosZi+ChiKcTATEIxABseRwU8kzN4wbE5 8WhOOkEIohEcT0kjFMelsgjU8vpms6F3ZX715tzyLZlyslCoorMbs8ll2ZTS JBT9F0+9ivREdzuqYK/dPRDaudqHK+8nOJf7o23/2aDT/WknxzrYGKC4pxdy 2pCnp6eHs9fBPX6DxulT81cWxk9vzr92buWabWB+0Dg22DsNkU2hHOhQDUjb DOIaRXllWwG3GswYK68EipjNgsrE0NDpOalockRMehKaGIfCp+IoyZnkFAwx DUvOItAzsKTERDSFwm2o7+ByquG/AiluaFAqld1aTX+PcXTEsqxSDlZXqjra Rzo6+5tbderOoS6DlS+sD4nGBESgocLjCQFRmVB+UZjAWGI8mpdGKoM8GJdZ EI8tTMAJUoml8AqZ2xyWkucfk5NJrUxIZ+FIxRVitbFvcf3M7aWTt7r7VkVi PYPbjCOVocHvUaqjUliP/5/fOtiHjO24Ii7XcfbOvRztGJr49xz+j3B2vw+1 OwRrT5cdOxC7/sRjv5C3da8tvba2+PrG0s31xeuTQyvdHQMGhVGnGmhrMdU3 6ESlspIiSQG3jk4r4/PEubQiQjYbn8VCo8hkApdM4FNzhMy8Sugv4L4INCGR ISQzSgjUgvhUYnJKTkJSNoctKuRXiUqax8dWgcy1tTKJRA1LgFrd0SuXmfp7 53u6Z9Uqa1l5S3NLV4d6SFgiiYnHxyaRiVQhllQQl0o9Eow6ejxjr0/80ZD0 VwNQr/glBceTMTklKIIgm1EJlYBhZ1JKsdSyiGRaTBobnS1ISs+LT6Hmcev7 LKfmV183D61V1HULRB3UvDoCo5bArM8gV/iHJAAgoBje3jtBZj3tgeI+zveG gP4LOLshj7ua4448PF1dvFhM4cLsuRNL15bnrk9azvTp5s1dU0aNtaVOVSpo AoSZeVXkHCGLWcXj1OVSSyk5gkwMMwuXLyxuEpVJhIJ6Aa+xuc6sVA2r1KNM Tl2TtE+hHdEap1rkvSWVUmJOIYdbo+uymrrHAdJR6+Lw0Gx3j3V42CaT6aCa m9TG7rFOjVWlHGqsN/ALxWxeDRbPDgnPOOqfGByRGRlHiE4ix6fRopNzQCsA PW6ZvFrSm4DNj0igpGXz0SQBgVmRgGFBioFCk4oBcP8wbFwaPTmDGZ+SC+pN plc1SQeM/UuVtT3CSi2T28gqkjMEUgiVaZnU559/AbqVh4cXAOvl6ungs90z 3B9tc0jHP4Oz6z07Z8fZY6eT847g0MTFlctTU2dHR8+YTWvajqk2yaBU0t/S 2FPIbaBTyjh5tUx6VQEPAFcIi1polFIMmpWdxauqUE6MrVtHVtpa9XC8Nzf0 1oi7q6r1JeWa/uENODzrJOaaRmNDax8pp1QgkFZVdHQoB0eG5wyG4fn5Dat1 3mweKy4WKxQGcM5dncMN9Rr4f6oq2kmU4qO+8b9/3uel3YG79obs3he+71DM Yd+kiNjcqCRaUnp+XBozGccj0cswJG46Nj8xPTc+jRoag0tA5WYSC3BkQXVj p0isikokQX6E3YTG8WhMMeygwlJFi2KwvdNWWW/MplRk08WsYmVWrhiTzYpN TPnpz34N+dgLcpuzO1D6Hs5u358N+WHv+wd98J50IPrs5uHk9PBvntonbR+Y X7zaYzrR2bXQ1mqtq+2tqTSISjp47CYGozqfWcdhNVSVa1RKS2OjkcuuZ+RW tstH+szzAPLA4HJrm6mpWdfcaKit1hUJ5QRSaWGJVNYx0tBqFtVoxM16cVN3 i9Q4Yl0bHJi3Di9aLXMyqV4q7SourlareyQSVVlZA0i0Rj2g140O9C2gUUwf v6SEVBp0vRdfCYFlFqk4LiX36T/4vbgnfNe+cJ9AFKhuVEJOZExWcATmqH/S /sNRsBISiYVvESjCumbD1rl3Ll//pFlqysjihEbhgiNwiShWWiaPL5RVN3QL KzTFFRoyQ4wmlkHAAelA4fKycxhHfEI8PR9FBi3vndTkWLl/Ttp/DrJ9XNnj LsKuXo51ZCLV62e0vOqpxSvGvpPyjhmZcqZFOikQqJl5zWxOK4NZn59fV16u bmzs7ey0jYxsyuUWoGVNTefs7GXLyFpf/5y5d76lra+8Qsnl1dfWdCqVlpQ0 OnTwNCwrAUVD4zkFQomwXH5q89obb35x5vTN5eXTdHohmcQRi6UtLR3t7TpA u6CgfGjABvHz4z9+02uajY8lECilRGoZiSZKzchPTMutbzU2y/oB2DRsPoVZ U1qhlcgtnMLmunoNgSzIoYuEZS0NzV0FRU05tJLMLE5hcfPayauffnbn/KX3 R0ZPVYi1KCw3IY0RHkvGkaBlVCamcemcpmxqZXAsNQVXRGVLcOTCbAoXjaH8 9umXnJwgi++8fzKkfTrAAxlNdYB5d6T6LnsfXHecQAJLb29kPBkS4I6HvEHz d7+aMGg9r9TOyzpmpMqZmvohoaibymhh8xR0RiOH3apUjukNS4buZccZLN3d 8+0d1tHx02MT2739y93GaUmLsVQk79CM9Q8sLs5v9vRO9Y3MlFZLopNxQVGp kUnouFQMnsIanZm/fvP2v/3lK5PREhSQQKXw29o65fIulUqv1w+IRPUqVc/U 5MnqKgUWk0/NKQGHgCUW4XPK+EJFYakMQJ6cPzczdxlLKABiVFS3a/QTo1Ob ff0LesPkyfXXPvjoq9sf/Pm997+6ceuTi5dut7T28Pj1Q5aFK5ffe++Db67e /LKja0JUrQbBCY7MRmcVpmYUgtnAZAvD43Jj07hZtMosSklGNpuQW3g8JN7D +wlkWsnJ/XuJA4Ha0/kBbJ0dmMO+QM4TvjvLBzR2vXeSqocbMgT66MM/FdX0 D49ebm6bKKvuKyrt5hd1sbhKfpG2uXWUlltXX9e7uHSjTWrRd8+du/C+qEKZ z6m3jq2//e7XS0tXu3vmikpagD9NEuPC0uXXrt3+8ou/XAMw/3bn5rsfERnc OBQuMCqexGCVVNXPr6xfeu3GW2+/vzC/JZfr+/omenoscpmmxzg4PjY7O7tm NI5o1H1ymRHUnsOu8g1Kj4gngMzm8evyCxtqm40bZ99b37olVfX5h6SkoKgK 1eDpc+/IlL2wf7Wdoz0mm04/sbp2CdA+cfLywOACHGugaafP3vrjn+6MTp1u autVakYZnAYWvzmP14SnVIFo5Be2QVqMQXHBihPzqtHZvEwiPyk957dP7QZK uzkGTu2T0A4MwYw4f5/DzvfeerCQM+Lsr+/wfhTidmIiZnjijbpmm6Ckm1ek 4xZ2cgu1TLa8y3iiTT7O48tq68w1YlMeq7GyWiOqUKEyOZVi3fb59+fmL0hl vSxODYtXV1gk6dSPX7/58fbZq9tb5yds82cuvnbj3fcJjLyAyKh0ApFVWMQu Em6cOX/91s1v/v7tpUs3Rkbm2pU9Go1xcMC6tLi2uXF+dHQGhPr1199/+61P e81TGWj6AZ84Gqums8c2MrERFoul5FW0qQZBbHMYJYIyCRbPzWNX640TtQ2d 6k7r8onX6hq1qem0wBAUgVSEJxbUNXbBTvnw428++ezO7T/e2TjzLrQMcEEc QWuzbFBvXmxoG0zDFrIKWnllHRnE8pB4OppYAm4QeiiRVhQYmrhj52PIqWsu bt/NatkHfxxt7jtBduB/f0fYTx1BdpCzh6fHQ/D0p0/+Ag5VuWadJzCViPoA ZyZbSWdJVZ0LEJekiomKSr2wRC0SaUg5IkpuKZlSUtOgV2gtlvH1btM0vxhM PoddWMMR1MnVA+dfe1/fPdLfO2adWJhf3p6cW2+QaZMwhLzCMnZxhVxjPH3h yo033/nbN3fWTlwAJqtU3efPv/72Wx9eungN6sKF6ybTCJdT3tSowWex/Xzj qOxyaefIxoV3Pv/bnS6TLV9QU1ojxefw2PwKUZWEziqOicuobVR2984VlrSk YVjHQ9F7DkT4B6PCY7L2H47OzinW6MdnFi/ceuuLzbPvjNnOAM7sgiaJfMgy cdrYvwJkjk3Ji4in5bKbFbrZ7NzasCQGkVmXTSsDoUZjac88+wIiHS4ujuEg O4zA0ofvRen7OHveL2cnD+SKBmfEJyNN0NULRCM+NsEyZBNVjXMLzSyOjkxr 4RRooAmqO+dLSrUMZiO/QM7jtYrF3a1tw5zCxpmlc+eu3DYPLspUQ9bJjSaZ qVVlqm9Vk+mFTXJDn3WhWNhcL+4QNygNvZOrG69tXrgpqGigcYSSdv3GuevN UuXK2vbfvvn7F599c2LlLGjy4uIps9nS128ZHbNdvfrm2trZiIgUKqUQRINI 4Kl6JprVg2gyd2H90idf/X3x1IUiUWNCGkHWbtToBhksgVbX9+VXf5+cuShT D7EFjWAngsKx4TH4JFQuuA6/oLTM7MI25dCYbWt0amtp7XWNfgp4AqZubuV6 q9KSgS9OxwmS0HxafpNUaxO3DSdmCnC0GnK+GIVn4wh5vn5Bnl4PudqvfHFM fwCZXZwesTfBf4izQ6i97CAjE+hOTi6PP/Zka6u0vd1YLBzlFhgJZGlVzVB3 z5a8fZaSW8/lSTnctubmfp1htq9v1WiaF5bLPvwTMOvOrbc+s06tNbZ1Lpy8 OLN0Rt9jpdALAW1D73hDY6dQ0NzQZGpuMa+cugl9CtQVTJ1aN1Yh7uAKJHPz 57+98/e//vVvp7euGI3DU1PLfX1jS8sn1zfOLC9vAM5abV9NtRRyfXFRPYbC ZwlrDwcnWm3rf7lz58/f3qmqV/gGx84vnbr90ZcjE9NTM8sDFhsKywcTUlKp Ss1k+QangarvPxJ3NCAVvB9Yi4LSViavlsmtb1UOiRsNkAqT0dDaLTX13S1K a2l1F6dIQedIQKJZQgXgnJxdRsqrRRF46ThGdFzqz3/1FGB1d2DT2dt+8ZED 5+88nr0zet6fvLafE++JjLK6PASHw1Hf6O7eWXGDic3rpNBbDebTq6c+Br+R m9fG5EixeBGHL2+RWUcnL3YaFlGYgqo6zad//tvnf/767ff+fPr8TZ1x6Pyl m/2DNkmrFjLdtG19YnK9XTVg6p24cu2jzTPXP/3yzvVbH43bTmycvmYwWZns khZZ1+tvfPDxZ1+urp5taFJJ2tSjowsWy9Tw8OT8/NrFizfff++L7c3XxNVS EiE/OhJ1PDQ9l11d3dShMYysb7+2tHphYeV0q6y7rqFjeu705ulb/IKG0AgM oHosCAV2OiwWf9AnGeA9EpAEy72H4sJiCFDRiRSANyaJmkkQwFMys5rGqtUY bKtbb1unz5XXGnI59WDFU7G8RExBYkYhtMis3JKkDEoCCvvy4aNuO3YgULu7 OTTBzXmHA/YHcEb8nkNM7MPXbm7u3q5uXk4uj7h7/phfKlfq5nmiTkpeg0a/ fOH1v4GvY/EVVHZrNqWWQK0Dd0dhtqCwpXhyTQq6AKzpu7f/7fYHf1k9deHU xpU/fvz53/769c2b762duvTapfdmp9b7TNPLqxdOrF8yGK1bZy5/9fWdcxdv wC7YPnO9UdI+PrXU3Tu8eGJ98/Slrm5Lq1z/1jufvffe5zeuv//WW59MT69N jC0tLWyfPf06REWVsgeNIodHYNGZLDDexBy+oXuqrkllNNt03ZPBIWg8oYjK qPXzz3zx5agDfnHh8SSgsU9wul9oRlIGC5aH/BMBfP8wzPEITEomO4NQmI7n Q04MCM/EkouhoGNsnH+3z3qyuLKdzq7NyimCdyHCgJjQ88WEvLI0PCMtm+wT GfXoz59Ezh1zR040dUditKd97O67VOLA+f7ZegC1lxdy1r2T00O/eepVld5W 1dQvqusdtV3dPvelWrfEK1bT2W34HIifFcnoIiKtnpTbEBnPwuDLSyq1jPx6 QWlrda26WqzoG7Cdvwxm6S9vv/vZlStvn96+YeqZKCluralVArA95vEhy1x3 z6hcaZTK9ZquXtvsie2zV3Td/SqN/rMv/worinbjwNAMuLvp6dU//vEvV6++ C45O3dF78sR5kO7aGmlLs1pYKqUxRJA76Hmi2gaNqLKtskaZQysGDvv6J+/e HeLjm/775wJ/vzswKCrrVZ+E518JjkzMAZwT0plpOC4sYT2TVAQ4p2I50N1C YwlRSZTjEdj9x+JhWddqUnSOtaqGBeWKfEEzFOCcllmAhCN6KeCcjCNFJKOe 3rXbCbk4D/EYQGzQ6gdDiovjFGVnhwO5O7KBtD/karyHIauqu2ealZNLGx+d 2PyoodVKzZMUl+sBaiZXBjgnpBWgs0RA77TMktSMYq5AAYk1Po0am5QDW907 MNNtHquqlY6MLo5NLHdoBrSdIzViTWW1jF9YBfCCeqjUvfCBBklHl2FgZe2M TKnrGxwbGZtpaJYXFFXKFIaxiZV33v5sc/OKyTS6tXm1xzjaWN8+2G/7+KO/ rp+8ZDSMAHWHRlat42sKVX9ljTyPXV5QVEemFian0aJisg8fjg8JzT4ehHlp f/iL+8IS0XmBkbhkTP7RwDSAl1PcIqrV5uRVxabmRiSQgc+wTs2vgbeA5A7m F5TJOk2zALWya1yuHYV1JrcROiMEfFp+JZ4mSMumpGQR9x7zcfN+CJEOO86e LvZI8h/y2cXh9JwgrXj8n9JKpbRjXG1cG5+/VVzRlZvfWlHbWyTSAdpZ5JrY ZC7wOQNfTmO1JKIKY5P5ApGmvE5XWqPKyOYFR2WiMlnJaBqTW8ERiLsM1qGR 5f6hhfomnbiuHYQXmKxUmXSGYZXaPGSZnVtcX1je1BuHVle3JicXKqoboQNK JCqLZXZj4zIYy9mZ9VMnL7W1dikVpsGB2Vs3P7l08R1YmVu8AK74xhufGc2T IMupaDJArVD1QsoGqCMi8H4B6XEJNMDt6Rf9ga7IJHgswTcEDeyNSaEB8iRG BTq7IDgaHxKTDVAz+Q3wbnQyFXIfLEuqO1T6yeomQ+/IGoCs651X66cLS9tj k2loPJclqM2m81KyyAGR0U/85OfIGVn2NO15V4ofjIT3wvjdaRc7zk5eTz9z QN4x0to+rjGul4kHOEXKovLOijoTAI7Gl6ZnleTxpXGpnIAwIo5cmUksh2po G9YProjbTGnZ/NBYfGQCIQFFSc7IxVMK51cvLkJGaNbT86tEFa19vZNymYFG 45vNY0BU6HTLy1uQ9W7cuP2nT/9s7h3q7x/t7h6SSrVbW5dPnTqvVpuXV89Z rAtSubG5pUsqM0GIw+Ly6YzyC5c/6B9aMvRMStr0xaVN6ZhcQHtx5XxTSzeJ UhyfQD7qk3LMNxVgfGFvKEjHQb8kKFg5HJCy90jskeOpYXFEh1aAepTXddK5 dagsHuAPLwL+oNLwCr9UKpYYiyqULe1DE7MXO3QzcORCSyXQSzJz8lOzqLEo 9NPPvwRgOkaEPJzdvycaD4ws3ZvDRa46dXLyjI7Bm/pXjQPrtqX3xJKx/EIZ jlxRVK5NwxazBYpey7ah72Q2tSY4ihKfxg2LzY1JZgkqO5X6mcb2EQKzCk8V kZnl6VnsyARiCoapNU7qzFOV9R0MTnmnzjI2utShMtfXK4aGpiUS9eLi1vCw rbd39E9/+us7734ISfDNNz/q6DBCEtzcvHD9+ruAc11De4GgpqaufdCypNJY JDIzkVriG5haWNys0gwlJJNYnAqpsru4rGFq9hS4yoHhRSq9LC6edOhI/Iu7 ggBSgBoUA0MUAGkBZ5CR3QciYfnywSiQEeA2QA0iDKiCbjjkBYAF5EHPAXZC rohX0taum7AtXIEIwyuWxiTnJGbQU7PoGDIrBUvad8jXzX0HcuGeuyco9Q/G jh4ks8NvgKlzdt7J4ddZxrZ1ppNd5jOVDRaRuJvBbS6vNbYox4Dkhr61jOzS 2JT86KS8FExheFzu8XBidWOvvMuWTRcnZHDR+GI47lBYbnAUNjmD0arom1s5 t7J+ZWHt7PTsektTJxjgjg6TRtMLaIM/12hMwOf33//86mtvfPTh57PTJ0ZH ZjdOXbhy5c1z525MTZ4oK29ubNa2yU3NrUaw2aBpSShmRCwxOY1SImrNZZZg sugT0yfGbav6HjB4Vzl8cR67sk3am4rKQ6HzgcNkZmWhSB6PYkD72/VqBLwC CrzvaBzgD+IMWgGSAmgDvLACOpNX0AgchoJ3oQBn2AWVDTrbwqXJuUsS+QCV VYmnCnGUghQsIwlD8j0e+diPfo5cFunm4W43G9/L3ffIfG+uFta9n3jilyr1 iGXsjLhpqKphoqZ5DFInWyCFpbRj0jJ5AWBPTOcBh32CcBCUMokicXO/pnuR kFvhH5oFx5qgTElj1WCyi/xDMuJTyS1SIzjkU2euntw6f/r0tZqqtvpaOTjk /v7J4eEZvX7IbLYCb9+4dfvjP365srxx5vTlDz/47H1QkU+/vnz5La2mH9oo 4FlR3Z5DLwPDnIEvOB6WGZOUGxOPj47Dlpa3MPJLIGXb5k5dv/XhgGUmOY0M u0ChHJAphgBn/zB0RAIRyAzMBK145qUAwBnsBBTQFaB2UBok+pVD0SAgYOSg IRLp5bAtwHPgDBS4PqD3qO3M0NhWp3GmSdoHYp6CzYtDUTMIzLBY1M9/9Yw9 g7uBKPzDcf4HJsTdQJxffTVgYemyqX+tpnG4oLS3qc2mNizMLL8+tXB9cOzs 2StfDE+cJ+aKmbxWWDZKLWU1Bl3PSnvXNPwSdbft2ptftCgGA8OxYOa5gia+ oH56dvP6rfe3z10TllfLZJ1gfdtatLbJ1Zqq1sZ65dCAbWhg8trVN7/+650/ fvTFxvqZ929//PEfP//zl1+fP39tdHROLJaCl6ioVgCTOUVNOFIxWNxjQeiQ aHJEdGZAULJU0dPYoiHksIvL6gHq4dGF8ippWGQGK7/aNnO+sbkHQyyISiLD twDS3/3BF/i853AMAA4CAjoMrwOBHSrtkIj6NnNFfRfwHz5wwDcR9gVsGiAP fXBy7oKhd6l3+IRaPwWfhN2XjudmEFhxKfjf/2GvfbAOuQTd0ey+64P3Jlkc Szdn5CxrfBZz9dSbjS1D5TXDZIaKK+y+/sYX62ffHhw73WvZKKnqDI+jRibk onDFGEKZYxg8IS0/HVeQwxSdvvjh5pn3CaSig4fjSOQiMBhFxU3WsaVz565+ /sVfyitKigorDZ1DJcJ6o8EiLBJz8ksL+ZWtko7hwakvv/jbJx//+cOPv/zm b3e+/vqbD977E3C7qrKVxyvn8Cokbd3QRlE4NvAtKZN/ODDTL5wQFpoaHJrU 1KptbtPiCMzo+HRxgwIwb2nTU6jFLF7txOTW1eufLpx8HdR1/7FEaH9/2BMC 8QQABPaCo4M+CALiH4aFp4AbaHJCGgNCOlAdfB3gD9oOHwaDDT5wxHZ66eQN vXle1zPb3jlJY9fBrklCM6DdJ6SRXtnr6+X5kLOTi7vbD+etvj+ZZT93ztm1 vLxpcHittExbXT9OZxuqoLcsX6OwxBFJ9EN+qKBIIhApLJZCoteIxPpMYumx QExgBCmHUV1U1ra8etVsXoyOyQ4IQAuK23CZbElz58jIzLBlbH1jq1XWlJvL IRPZoBu9prGqCom+a7CosLpC1KRWGU+snP7gvY/Bcnz52V/+9MmXtokl4DmF wiWTWRXVMianJgWTB8dvDIoZlkALT2b6hGcf9Y0+7BNOZ5dyC6tiEjAp6cRW uS4ZRYyKwaAzGPS8CiKpqEli7B1ZTc/iAMIOfQDtBfYCUR0+GdHqQNQh/2RY B30GhGFHgHQjmdE3CdbhK+DxsMQihWZ0evGytnu6sdXc1j7S2NYP8ggNMSYZ ZIp86EjIo4/8GHB2u3f7iwemApELje6fmAef8fR8VK8b6THPNTb1yVSLjdJF i+2d0kpdcAQ5AcXO47c1y62WyXOa7nmdeXlk6qJKN0eg1UiUww2t5laZua9/ gZVfc8wnITqWRKGVYTH5ndqh3Fwei8Xmcvn8gnw+r7iqqkWtMnXrhwFeEBBd 58CYdWHMOrcwd2plZfPq1TfPn359em7VaBgSV7ZSSZyMdDJ0usQ0GuCMhDgM OzCahKNWpeGFvgEJR3yiElLwLG5ZKpqAJVD5xeUv7D6470BwCorapuwXVSgh N+05FLnvSDQAAnCB6potJ4DG4Kgd1g7KLwTBGQoghZ4IgANR49LocOw4bB4I DnyFwqqGzgimGplWKGiqauwurVFjyYKI+Oyk9Bxf/6ifPPlLZ2RM6e4gxoNQ OyOcRuZrkesTndwfe/xZvX5eq9sQ108UlVsq6yerGsfyec0EUqmifQiOwTff +erKtY+WVi9pdVZ5+0BDs35+8dKZix/mcRpxpBLISvsPp/gex8Qk0HwDUZFR mWCYeRwRh8mT1rVqpLJSgai6osGsH7L0TVgHpuoqW+USraVvanPl7EjvmEGh mxgYa29W8gq4gtIiGpOBJZCxOXSwEygsEyxiVg7icqubjNT82thURlBgeFxs EoXK5HCKcdm51WJpFpH16tHIPQdDd+0PyaaU1jQaICzT2GKgbplYA0oLygz+ DaIfqDSEa8AW+Ax6YuctPTmDd9A3DQ7YNBw/gyykcZsSMTxOqQyU6lgINj4j n8Sq4YlkadjCWBQHQy5HE8ty8uvTiYVpWFZ0YtbPf/Fb+5j/D3XD3dXDgTMC PDLl6vHr3x5WaebFDTN5HAOZqWUXG/ml3e2qCaNxqa2t/8YbX9x88/PbH/4V POrY5NrI2IkWqUlY1pbPqQ2JyI6IzQUvfTQo60hApn8IDnxXQFAqlSbUdJgV zaqWquaBru5ebU+nTDNgHNSp9APdw+1tmn6DxWIen7LMaNq0nW2dA7reKkE5 KSc7KweHxqWn43BZVGZuXjGZXgQWEUPg80taBGXyVAwbkAkJCkelptNpeTlk OpHILCyqCY1GPfPS4b2HI4HDv98d+NzesF2HYsDUQeiAYwGMMeAMjQ9YCgUr IA7A3qde8DvolxKTxopL5x4NxvmE4g4dRwOwr/qlwxKcKj63Ki6d7ReOTyMI eBXyNHxRPIYbi+FHprJyCyRVLSYiozQyMfPJn/36/lkyD068Os7uQC5gdXec P+C2a2+YSjNbVNaXy1TjyLIcZjvgPGI93WNaKStvX9+4deuNL9c3Xp+0nZqd 37aOnmDmVQYGpfkdTz54LOGoP8Y3OMs/NBvKNxh7xD8lODQDh2WBrygXVpbw S+rLqjUSRZdUCSWpqlc1y5SNsqnB8TMr22vTq93tOkllk6SqsYRdRM0lp2am YrKxgrKyQlElPoeTkpELwQeaDuR6QBuO4oN+CUcO+8bHJVNyGGh0NomUl5FJ DYpIe3Hv8adfOLb3SDR4v4PHU379B5/7Rg7Y6xjfgHJkcFiBbgg8PxCQ+sqR xIgk5vEoIuC591gyoO0fkQ047/NJYRS0JGML4GlkSm4qnheVworH8FOyhHFo fm5Ba1FNZyapMDg6/bdPP+/h6e0459/53kkasGK/2Yur45o/BG5n92O+yfL2 qaLSARZHl01pJ9Hbi8oHdMbl5jaLUj25tPb6Ox982ze8LG7SEqiCYwFJh3zi IJf5HE85HpIVEkkJDCPuO5LiH0rIzqlCZxUVCFpQ6QwwzLLWjlKAjF8sLi6p ExRJysul1dWalpbWarG2TTGoN4/1DgPsHAqLiM5mkmi5LHpKRnoWmVheUy+s EhNphSkYOvSyuFQqQA0F0d4nOO3AAd/gkEgqNR/ITMrhJKZm7z8SBjg//3LA k7/e88wL/oeD0vb5Jjz1vO/Pnzr40t4wyHq4HCGIhmNQDgzGS/vDQajD4wn7 jia8fDgBdADE/0gQBqAOjacGxZAB8ODYHFaRFGxAeGJuWCLFLyIDwI/L4GQz a1OzhSl4AYhJejYnMh7zwsv77p2L7vLg+TDI/Zfstyq6ezMiJ7fA4ExJ2wRP YKKztGSmhiUwlomHW+XDoqquuqbe1fVbyydvgK8QVbfnsiqDIzAHjsYGhWOS UPRUDDcmkZWaKcCRRRDJG1oHuvtWx2ZON0u69Z2WznaTuAwIrGgWiWq5nIYC vkpcrZc0yaqqAHBJZbVK0iKrbxByCqmEnBw8AZWZjsJiaCxmPl9IorGyKfws Mj8jmwutMDGdHptCgaQJOPv6BENhseTsbHpaOik4PPm5XUd/+puXn3v5+Iv7 Qn719OHfvOT33P5QABxs889+dwAgBUpDvoD0nYrlQAwBzwbZZP8xaIioo8GZ FHZTQCRhv28q4OwblnXoOAYwBz2BCoqhxKN5PmGZsOMA/IBockZOOeAcHE8D nPG04ngUYfe+g27uno7cd++Mo7v3GUBut+Xu6mS/4xn0wfBIQnPrCOAM+swr GeQIe8A/tyomm1os4KgXV28Mj23giIUMdg2FIYKqazbMLl2aXbwqV09UN/Q0 S0falOPyDtvC2huzy6/PLr8GkWd8bK1bbzHqB0d6JxpKhC0CTi2HqSgXdlSL FJUlmoYqaXlJc2WZkM2ikykkHIGYTSIQyWQ6PYeeR6CxyAwejsTBEDhYUkEa Nh8oHZlADIwEaU3394/y9Y3w8Ys8HhTvezzmxT1+f3jFPyQaS82rJlDLfEMw B3yTwRuDWwCfBvXLZw6DxwBHBwiD8cjl1IKMgGiAbvsEZwB6mTkiMI0gzq/6 pb10IHbP0SRYAeQP+KNgHTA/FIjyCcsAzr8agAZviaFUhCUx0rILcRRBIop4 +FiA945H3N3dfzBe5+rs4eHmjvg96IH2S7jT0tky5aRQNFRQ3M8vHWIJDLic ZnJuQ5XYJJFZ1V022/xFcm5ZRhaXllc5aF1798O/f/DJnas3/gKoKrVTglI1 Bl9aVqWfXbkxPnt5deONzbPv3Hrj8w/e+2pr48r48JyitraZz5YU8dpKCgHn nrZGs6xZXVetlTSKS4pJODyTQstjsHj8wjweLwWNTUbhWQXlDE45gVaEIwtS M1nRSeSoRBIEsYAItH9Q3BHfiH0HA338Y48GxL609/j+o9F+IWmQRiFrxKPA jxFe2h8Jbg1aIdhmUAxHAHQYDCA29EHgM/i9o4HpgB6IMMgySASgvetgHCAP OIfEUaDxgYbAWwApp7Qtl9fsG0E4GpoVk84BoQZLn4DOjUvL9jse+tDDj9vv l+X6INTILfKQOw8gN4GxGw8PHL5I2TFdXj1aXj1eKLIAn+NRZXFJfCq9iZxb R2PVz61cLyiRHvZLLqtWn3/tk7OXPxmbPl9a0ZWaUQjSEZ3ABFlu75oFjw35 8Z0P77xtv4fJzPRGl7Zf2qI2aztr8lmNAl5nQ7W5rWm4Q2psrVfVlA3r1W++ dmHKat1YXRsfneBwC4vKKrJzGJA+MNlMIq0oO6comyqEDugQDd8QlF8Yyi84 cde+gIDQ1KR0qn9wGoB8yC8BnMZzuwJf3BO669WoF/aG/2FPGNiJZ3cdh1YI 2RkKOAzp7zfPHWMVNhFyS/ccjgK5fnZXELQ5KqcRFAPUGEEyLAs64PN7IwFq wB9UGjxeRVN3R880fADgDU2kHwvDp+CL4zLyo5JJ4Dd8/IMfefRHjgt5Hjzj 6z7O9qvjXZDQTRC2q2cqasYk0hVx03wutysmRZiYKsjMrmBypDGJeRRmbZGo PTaZDgGwRTGSx21NQvEiYulh0VTfoIwDx1ICQrM4RYryWiOrSF7bbAIPlo5l h4SiQ4KTuVzRxsrmhLFfxMo3yxSddbU9bc0TBo2tR69rk1xYP/nZRx9fOH1+ ZfkkPY9LpOZlk/OgtUGkxRK57IIGtqARKA0SDXwOjsFC+QYng4UDoYBEdtg/ 8YBP3N5DMc/vDnr6DwHPvhh40Cc5IAwfGIkHRwGMdcxbgVDvPhAJzhmWEDpe e+MLYZUSVPq5l0NAlvMEbRhyGa+sHSAFuYZXnn05DGQEGA5PgdX18oFcfj2s gyxHo9ggGgmZBanZhfHptJiUrGN+QQ4+/2CwzqHPyK3I3F0c9zGjMmp6ek+B 3xCUDDK5RjShOSa5NDqeExyem4EvD42iAp6YbGFEHPXY8YzYJBYUtL+ohPzI OMYxfxS8uHt/1KvH0g76pu/3RYXFkMDdvXosNiAoOTA4KSkFPz25/MblN6f6 rRszi8MdGrO0TSoSdjaIu+VtPWrVxuqpk8unFHJ1HluQkp6dlJadiiYnoykY PMSWNqV2rKhcBu4uNo0CFRaPD4rEgIxA+Yemv3o0Hv7WseNp+w7Hvrgn/KW9 EXsOxu8/mrz3CAIpqIRDLoDVkPgA+ZcPRsHyrQ+/Xd64Ae46OjkXXAT4ZHXP QmWTCYAFNQaJBmUGVgPg4KJTcIWCqg5iXiUg7xdJBJCBzGiyCPIL/J741Gzg 84M4P4i2A+d7d+RzwZNKTX3r/CIzidqOwjYnZtQkoCqS0aU4Qm0GvrKovBM0 gZJXB1ksOokRk8wMCCMkoHhhMQwff+xB6BT+6bBpB33RgPPeY6n7jiQBqYIj s0DPk9NoaekUrWb4+uUPr557Y2N+a25gYnNqdrBdVUAg2vr7z5081aXSDg9a 6+pam1pU3MLy3Lwi6IAxycTUDGZ2TnG5WCtu1oPr8AlJ9Q9PPxqUvP9oDCg2 BGTobiCzAB2oxK+ePfbLp44An3/3XMAvfnf0qRcCQDRAJYDJYKRf3BcGSRBc B6RpYDik5smF83LtaIdhGsQBLDRkQL5IBZACsQFPwBl043BgBpZSDh/Iyi3H 5BSDtgDOwGQUsRSiCpi9yCQi4OwbEPLwI0/Y/cb3+OyYB7+nGwjOsYm5mq4l QUk/IUeBJcpQ+Mb0rHp8TgOT217TODw0dtHQd5JV0ArmLQHFJuZWZxJFoTG0 Y8fxyWn8qBjyMX/0Kwfj9xxIOhKAORiIASZAf/EJSg0MQx8PTY9LyCoplvb2 rsxNbdmsywsj8xdX1m9tbysrq6r4/N7OrrnJmYaaxrHxaamii84SlJQ3FZQ0 ZBK5aRhWZBwpOpGCwrHj06jRKWQQjT1HIp97OQgaGRB1/7HE3Qeif787GHAG Ar9yIG7XvuhDvtAQs32DMgF/h81wTKCAZwbMYSUlEwmVULySttfe+ErXvwqd 7pndoRCl2UJ5YYWawKiBTQBiQ0F+QXJiIOpIMGr3oXhQZiytKgknCIqjQh8E PkMfBN3Y+dBjDj5/bz7F2RX8hv3uRndxhvgMuRtwJlKUOQwtjiJNw9ZiibW5 +XIaSyYo0xeUaIsrOlMwfAyhpLLeVF7bwxYoUHhRHqdFWKoEm52b3xCXzD4e TvSPIgVEE/1CM185GHHAJ/ZYQHJwaEpqEpNArGhtMi5Mn57st6kbpdtz85/e vDlhNoN/7jeaOuSqqck5mbIzA4dce8XiVOTxa5kcMSqTE5NEhSbo0A3f0LTj kRngZvf6JMK2B0ThfcOxYOGOR2QlovPDYnJeeCUiJIqEI5WFx1L+8HIwODeg PSAMYRwwhxUQkyPHU7MoJSAm8FRYpV7afEehmwaJAPaSWXUS1Wh5gxG6IRSY uoMB6SDLrxyNh4wJ4APOwGeHdKCIRcmZzNhU/KuHfLy8H/73fEbun4GkbWQy 3H4LLK9jvqnt2tkikTE3T44lNGHJstiUyvSM8kxcNZ2lyCY2sLlqOlPGYElr GwYrxUZRlbZe0kPnVAvKJAJhA46Ql0Xm5jCK8VQ+CkuHDhWbknPYPwG8FsRk 6FORMVmJSaTo2AwWtEmpwjLQPzEyuL40//kHH57b3N46sX1iYX3UYmtq6S4q aSHRy7JIghxGpbBSXl6ngQQXlUpLwObj6GU+4diDYGUDMUf80/yC0TFJuegs vn8YGhIHqMGLByKe3n382VdCXjmW9Js/HAfqvrg3GJiPvLUvDBRmz+EYeBEc NfyfCelMsB+/+N1BEq307KUP9Kbp53YH+IdkNEn70NmCY0Fo2HF7DycCyKlZ Aki7ew4lRyYwjh7HBkSQAyJJSRnsLEpxaiYjJgm3Z8/hh3Y+hpzY/4NrZt0c NwJyQq5ydYLAuPOl3cFq3XxZdR8jXwk44ykyLKk1M6sym1jPyFfwC7vqGkZh nUqXAO3rmvoLhfKe/qV+y2qfZfH0uTc6tIOUXGEeV0zPryoQSpg8MWTkABCN 8IzDAUlgBvyC0uh5ogJBTVYWTVBYsry0cOH05ts3r398+/YXf/r0k/e/XFnY nppYEderi0slOYySNrlJa5gAPheUtqDx3OjknDg0HU0qCIjKhLwADmf/kbiD vvGZxALwIbsOhD73SgBo7zMvB+71id/vl7zrcPyLB6IO+SfCbwCQjwamBEUB 7dF7j4DIBEDBfolKIpMYIog/v3rqAIEivHbrc4FIumt/KPzPhwPSII9DhHnm xWDog6DPv98VfiQgE40vjUnOT8sqgYSYiuXB13FkfgIqe8/eg/Yz/F1/gDNy Wz/373B2cvL+6c9flndM1TZayip7uQI9maEi58rz2FISpQE4XFxibGmzcXhq LL6KL+jgFylr6rvHp8++efur2x99+ddv7nzxb99evPL+zbf/unHm7dnls6ah peGJ9fauUXZRU2WDrlHWV93YpeuxzcxtTUwsazWGMev45Kh1Znzy7Ztv3fn2 zjdff3vl0hsD/XM6g8ViXWpq6aqpVRaVNKZhmcJKaV2Lrl6mK29QZuTw/KPS o9II6VguKjN/96uhKFx+Vo7gWHDKK4cjfvXskef3Bb/wauivnj8WEIWLTKFC qNl7OOr5VwJBwYIiM8GfwH4Hi/L8y8cBT+TMxhAUMbc0NSNv78FINI6zce4d MkP07IsBoPZgwg/5p760LxpwBrO3az/sVnRQOJgcFo5SnYYXJmAQPmPJnPg0 /Isv7bFftPLDC8AdN5V14Oxsl45Hn3i2STogkY23axal7UtFZX3C8j6j+WR9 03BDs7WmdriyekBcPxSbwE1BFcQm5qEwPGn78ObZt99+76/v3f7bx5/cufnm 5/Mrl+eWL08vXJpevHzm0keDo+uw07Hkkjx+C4lRRcuvqm3SdRmsY5OLn/zp yzduvfP69TdAk02m4bNnX//mzreffXHnq6/ufPrp16+//v7U1KpCYeDyq+ub Vevbl19/46PL197Tma2NUrV5ZHpt65p1aq20Rmq2zMm1/b4hic+94vfK4bDA WCy4PhSRu+dYDPA/Ec1Iz+LgKcVwRABvsaRCSl4F2c7hl/aFHAtMgWMtMAID 3TY+hfrz3+xTdloB6gPHEiC8AKVDYoiH/FDQBNHEkkN+6L2HEekIisyJSs6P Ts3LIAsxxIIMAisqEfPMsy8422/K+4NrkF3d7t73++5Na512ODk/ls9vbJZa e/q29abtnv5Lw6NXF1bfHJ24ZOg5WdswTGO04InV0XGs6DgmhV6XBwEqKJ1E K1ldu35y/eal1z565/bX66ffBD73Dq1K5AN1ErNcPcbgNIEP9AnCgetDpoqO xb16KDw4NEkm67x+7a0PP/jsxo3ba2vnJ21rpzav/enLr7/9+53/2913gLV1 nm2LDXHiNKMj42tW27RNmjROvGPseBtssMEsm7333nvvKZaE2EMsIYGEkNhi CSGGALHE3tsTMBiM+Z6jgx03o03b9L/6/ed6L10HIWO4z3Pu577f877Ps7mx B8f2Y2Tce7g5u7C6vvlkc+fpzt7enYdb8ysPNnb3Zlc2giKSjS3d4wkFYbGZ ShogSOyvKhsdllX88utrumbuCrfM4dXYygeAVdG0RrGFSIZ8Cq7nhrrFb39/ DPzjF8fkgFhkz6nB+PLENXUd++GpdRev+A/+dObydRN5ZXMQ0pAcEaV3+jaA fOSUBuB89BvNM1cNQeYZWHoBzpcVNd57/3fCNbrfCWdhxe9nJZGRcnkiMhjM y6YW3sSiFiqjPyKOnpnXWd+01NQ2w+lYSkmrCQjOc/VIuSxvLnfN0tgsVF3T 5fQ5zVNgDY7JnzqrEovN7+TN9vCXaxuHWM0TNEYvgGxsGezgFm/nEqdt4Hvl uuU38oZn5HUgxSuqmSNTytrmclfVff1j8gsrWjiDgtGVto4xoJ2Ha1s7OztP n+w+3toFPtnefvL06VOA/fHjnd1dBH/4Eq7F2PSch2+wlaOnqY2bmY2HVxDW xjnY1Mbn82NX/vzFua9OXZW/aaB02xwQvnxNz9DCy841HIaLdyyIcCB8Eq3l 2k1joJ1vLt8Cj3n20u2vjl/7+NMzgDwhm97IGT986uaJsxpySmZ/OXodJIeC ut0NdUdFVYdDx1W+Pqcjd9MGlMZNHQc9cw9VbYvTF6+/8+77qFR+vpt4v7qj +LNCXsg7YqIIztJX5G9VVPfQqwaBpaOxTCAQFnucP3i/tJyXTWyKiCFdlDO5 ctVC3zjAwiY8IDTd0S3K0i5I18hN9oxaUEg6q1FQVtERFVcUGJoVGk1088Ff umYCLvLsJUMQe3CjXVBCllq5+GBzC2sScYU6eraX5TTMLNxd3SKScJTKet74 3Oadu2sA6cbG5pPdva1HO493tlBst7e3nj4FzJ/s7Dx+ure9sb07vbAyNr1Y 28hJSsv39I/19EtITCXfvG31x8+/ee8PRy7d0FLTtQE5pG3gkpxKiccV+wbh FG+agJ53co9Ky6ab2/jLnlMF837yzM3zV7SAnL88dvXdj45AVgXGM7IKvKRo rGfmC/4FnYjWMfa/IGd6/orxJQVz0H7WbjF6lt4a+g6XFG8dlb148NU3hPPO Yt+rXYBBy8Xsl2gTBd6Q/N0fvmRW8ejVfE+/LCu7pKhYWj6pcXRqk17ZW1HV Dwr52g3rW9oeIREFppYhQDL5JBalvDUjl2lg5Hn4qIKza0xlXR+IkGhscVhM fkh0gaKKjZKaIzh0uRtWN247gjAzcwx18MYaWXprGzqqqpnpGzipa1ioaphr 6TrYuYZGxhN5vMHFpbvrawDm7vb2NiC8trZ27969R48e7e4Cc2w/2Xn0dPfx NmD9dO/x7h68BR8nlzdm5DLicSTlW5agJ68qGyhqGBlauhmaeVrYBsIrxIOZ tT+ACV+CwfQOSE4iUOCdE98oHzt146K8jpa+s7qW7edHrkDGJJW1FlHbTG1D 1HVdQDCDKwRveFXZ5shJDSV1e2QzhVO0uVOEka2/kobF2cs3Pzt0UlS4Xxvl jefBDAfaiASFGq2oicFIHDjwBkip+oahyJhSR0dcWgY7MZUyt7RR3zzU1Dod EkEEutAx8Da3DoN4xiaXlFW0VVRy6YyO/Px6Q2MPEzPv9BwGiGrfIEJgeKaT e6wOyHgtx6vKVmABvpS9eVEZIsTb2ikU1JqNfZC9Q6ijU1gyjpSMK7Kx91NS MQWaDQmPpzGq5hbvbD1GaGJza3t19e7c3MLa2oM94JGnT4Rje/Px+pOnu4+2 d+FTIHWWVvdGxh7mFNTomyDa0tjK65Ki5uGvr/7p89NK6qbWjoGe/thIbHZU fI5fSLKrd3RiKonDm4hKyJU9f/PkGWXIGkpqFvYuEcDSh0/e8AoggEkEFX1B 3gDE81+OK39+/Oap89rfXNK7oW6vpu9q6RIFw9DS56Ki9lk5lfc++hTFWUIc fd79vECHsCPJfuEIzD5Di0pKyvzC0TmouXmUQuuOwdKx2HISlQUJbnD8Qe/A vbhE8rUblleumVrYhEbG5cNFb+KMjs48au+ebe+aYreNhkakm9sE+AbhcWml 7r5JJ79R++Lotc++kjsiqwK+GJhZ09DF3T8ZNKp/CCE0LI2AJ+dkVdTWdJVQ 6nx8sfoGLpr69noGtubWLvi0gorKxunp5fsPHsGYnJpZX3+I8gYcQB07gPVT JJjXN/faOkZq6ruLSE3WDmGWdiE6hq4KKkYgCN/98NCZi6rmtr7RCbkF5DrQ +fDqHZhQ28Rv7Rxr75kikmqUVU1OnFYCx6qsbunln3T6osZ5OV1tQ092z1xl w9AtPY8zckbHz2mDJQTh8fVZzfNXDRTVrLVMvY2BMC28zlxRP3NF6dVfvYs4 PwkxKcn9ysYoe8AJsgEc2ZAlfOQtZGhk6lRM+rSsQht3vK1rtbJ+orZ5qkcw 39Ez2z98Z2DkbmhU1rUb5jfVHUwtg+A2hKsPqHr4J3r5J9o7BadmkGvquzx8 4z18E0Anh8flgBl8/+Pjfz0mL3vx9idfXPnjZ+fllU2jEwt8AnGx8cTiwrp0 Qqmfd3xUeFpxUU1mNsXdM8LOJcDZPVhOSeuiwm1nz9Dqxg5er2BoZHJ6ZmEd GBmUH3JAQtxFgnlr4/Hu08XlR2mZNFf3uCRcGQ5PB5eqetvukoLedRXTW7q2 ts7B/kFJvgEJOURGflF1QnIBNpHYwhEQC6tKShtKac1Gpm5nLyEqCCg6MYUs r2QEmkTLwI3ZONLRt+Lqm3z9th3oZAD5qKy67AU9cC7nFY0Ub9neNnZX1XM4 La92WPaS+IHXkNLownz3nJfRwH7eLElcWCpURASDVLAUkXjrnY9xKYXMyn48 vjY3nzMx92Dx7tOB0dUu/oJfcKqJRSDIubwiFvDbNSXjE6dVDh27fPzra5cu 3zp6/LLcNU24N0toTZD6yXROHK4YBOrbHx4GCwa/PCR6UFzOHtEJeFJ2DiMj jRofQ8xMoxYX1NKprWmpRX6+0VEx6c5u4Sq3rIA2IQ6Zddze/vHObsHDh9uQ Fp8ix95ToeoQKpHHC8v3uJ0DGZnUxMSy0rLOPGKznRNWSdVO18jDyj64vLJj QLCcmVPu4x8XHIKnV3Ays2jY+LyUNLKLewQYzxhsjpau3S0tW4jnIycVM4iV WoYuCiqmlvahNc0jbT3z4dh8M9twFR33C1dNgTeQsniXtOVVLa+qWagbuCho WJy+ovLRn78CxkXqGwuRfF4r5nkafF45Da2OJCosiSLzyluWNr6c9uW07MaY hLJewdT6k72lO1v1zcNe/jgzq1AHlwRXz2Q9I2+I25DIjJiEAnJZc1NLH7OK jU3KBpo1t/XG4ogefnEt7SOBEWmQ/X/3yamvTl4DTXXsGyX/MEJeUa2Gpo3i dcOIsHQKqZ7XMdZQx2tgddXXt2Ox6aD31LTMTpxRuK1nU1HF3trZu3N/8/H2 Hmg7COPNzcdPdpCTrd3N8an56rpWMrUOWW2OLXRwxF64qH/8lPrh40rXlEzB 4iEytbAKhE10XDa5rBGGX2BiZEwmBHZySjHgbGMfoKJuYWMXfEvHQf66YWpO hZ6pBwSzlUMYo5Zf0zgUj6e4+eGAk2/re4IuPXFR+/QVfTlVSxBONzSt5ZT1 vz6v+OZb7yH1rsWQWiU/pDeEKw1E0JLZ+zU6xCWkwLBAENa2TWSVdhKp3LHF 2bnV9bXNvd7BO05uSVo6QTp6oWfOmmnrBebkN/YJ7rA4/fUt/fWN/KXVjSd7 iAYYHpuuZYGLTPb0jSgm16rctvjw45N/+uy8krr1oRM3XH3jLR2Cryjoqaib GRo7VVdxRkYW+vnjm+t7S/P38jKJOXmZTq52Ds42tazK9Y17O08Q9YzsK9x+ uiPkDQjmnZ3d1XtPx6fW8enUoPA0XDrZ0t7/0jWtL45egAEC4Lqqvp6Jg4G5 Y2pmMam0Jjw6JQlf4OYZlZVLr6rtAqHOaR8lURpxBLKza9RlOR3ZcxohkdnM uj4H12gjc9/wWGJWXh2V0Ymswk0sADuppuWgrOV65JyBlmng5ZuWJy5oKGta XFTQOPr1WemXX0WfCYo9a9DzfDeKsD8Euo4Rg3bPQWahRTCSUjIiGIm33/+U SG4KxpICooj0muaJuY27D59OL2z7BmaYmEdo6/mq3XKLTy4fnXxcRGnSM3U3 MveCPwGfQsol0hube+49fAyADwjGPX1CE/F5FGrTN+fVPvjo2HFZpWNnlK2d w9S07Y6cUlTXtrZ19E1LK8zNJQ8NTIFMnhpfWJ5ZBsE8PjU8MzctlM2IjAPG ALSBkMGebDzaBoHdyx8CqTMyuQZynV7VxW4fx+KLzey84ZfRN3W+qqQrd10b rKKRhUtASDyzmuvjH6+haREWSWhsGWBWd7R3TTS3DiWnlDi7RWrcttXScQyO yEoilOEz6HFJJHefxBIqJzu/urySR6JyYxKKwCDYuUZoGvt9dc5QWdv9tonP N1e1r9zQlr1w7ZO/foXUs8WISiJb48UkRL5rCZ8VNxb2ytnvTyQq3F8PSuQ1 R3dsFK7c2ZcANz6HN72x/XT5/tP0bMgjTG//jIiYoph4cnp2rZN7tKVdoINr hK1DoId3lKGpo4WNBy41v6d/HKCenltOJhBLaY34VIr8Vb0Tp5XVdR3ACJ++ qH5c9oanT2xWDrW4iJmbXcpu7AHzMTd9Z+vODiQ7JH6FBnBraxs1gwDvw7XN R5tPVlcfTUwslZYyXb1iM/MqweY3t40Ojd2va+5z84mxcvI3tfbU0LHS1Lc1 sfKAkDazcs3MLfXyjTEydcnILuvpm+vtn+f1zpSUNrl5xtg6BGdmM/oGVgZH H5bQ2nDp5Zl51f4haUWUFlpVJ4nKyS9pSs+p9PJJAM7U0Pf58ozB2WtmelZB F5X0z1xWPvb1hd+88yGyDwIjCTiLozNGIt8mQVQwiwgD+nmFZ0lJZAcWRgyo Q+azL87HEMo8gzOc3XBJKfT5lb27D/b6h5ZozHZg15DIzBuq5qBUnT3iAPOw KKJ/EC4kPC08KtU/OM7Cxj0iCs/jj4OyXb2/VsFoZ7cNd3XPObpF3tZ3VNG0 Ae0EjqyheZBKb+7tm1pd3WIyG0uKmduP9zYfPd3eQVB9tLG9Jzzgy62tPYB3 ZWWjp2cM4j8mhoDD5aZlV0BKtXcJ9w9JqWbxy6u4Vg4BqsLVyOralloGdsaW rq7e4clwvxRVWDv639K1dvKI4HZPDk/eX4G/ZfgOq2VodGp9+T5Y+Edc3hw4 rOa2iYzcqqDwTLiCNQ39RFIj4FxQ0oRNLg6OzNYx8z8jb3LkzG1tMx85ZcPT l5Q+PyIrfeB1ZCIOeWgitV9Y5m/nRYXA72/S3O+xJYas/hKVeBkoWubld8Ad x+FLLazivf0yRyd3wAjcXd+bWtjMK66+oWYip6gPGTCLWBONLQkOzwmPygwM ScERSBk5FDsnP2//6GxiWW0Dd33zKZgIYn7lxPQDFnvguppZUGQGWMjs/Cqg dNBXPfzp+/d2x8aWwkOT+D2jd1c3l5cfbmzsAhXff7Cxtr51797jiYkVNru3 sKAilVAYFIg1MXZ0dPDzC05JIpAhqsNjsqPjiSBOwGDCADyBOiAXA8hYXG5Y DCESmw5BrmvsaGLllZZD6+TPwF+xeGdvfOYRp3Oysq6nsq6XTGuDAWhTyrnF pWzgDWZtDxgEGDkFdcmppVgc2cUbd8vAF2zLbQNXyICyFxQ//PgvSFsuYZV3 tD2EkJz/ljf2twKJiop+O9EhfLZ1ACMijRF95egpeVwG1cO70NuX2MRZhJCe Xd4em3mQmErUNrTNLWJW1femZjGwSbREPDU+qTCHWJmdx0zNKAXJhE3MJZex 7J0CafTGrSd7/P5pNneAP7AAPjciNqeghBUQjK+s6RwSrPQNzA0NL7Fb+BXl DTOTK5sbe5OTq5PT97p7x9Fts+TSehK5NiIq1djUJSYuk1LGMjV3u6lqYO0Q AiBb2QfpGLqADtQ1dkZxhmA2NHf1C0kEnK0cfD49JOvkEYLPKHH2DLdzCckk VhRS6tkdo72Dy4waXjyuGH6IoZmXT2BKbeMQ4Iwub2vijMNJKR1uXhbwBpBJ PI4cFJHj6JF4UcEAbsnzVzWANF75xS/RJ1LC5YuIeHs+j/QdnPdXku4HNzga pEaECBCOuIzUS294BcThU9s8vHIa2POzS7vjs+s9gzNYfFZKVnHP4Bz4l/Tc qrTM+kR8OeQUCrWFUsZOSSuNis2Jis3y8I7RM3QyMXVfWl3b2Npt542MjN9L TCZ5+yUQC2uodE4vf6G9Y7yza5LdKujrX7izsvXg3u7y4sYisvR3rW9wETxm K3esFjiBwaUz27PzKsBZgCSDpAZeA5dWllNQ7RuEu6lhCUY7KZUEIQ3j5i1T gNrOJcgvJP6Lo+dUNU2dvEKBt83tffzD8LXNfZWs7vLqzub2Ma/ApAhsrpGl 91cnFexdopi1/Kr6fk7nTM/AKmDe2jENOPsGESJiiQGh6S6eWMiVNk7IhKrc dV00mMWlDwiXhn47m/H9ApgorihL71duxKAdA6VEJWWkZV7BYCS+uXC9sGgg JY3FqBGMTK6DJeQLFkorGt19IzPy6ENjD3ILGtw8CSERRAjmEkpzTl5VRlYF ngAhHRUYggMXBhzS0soH1yYYnYPQBR1lZunDbZ8YHFplMDvAeBYW1ZXT2wTD dwVDy338uYnxu1PTj5hVvLqGvtn5nYXlXUhSnPbxFs4I8Ew5gyPcmJkL0reg pAHIBxgjLDorCpsXl5wfFEGAqNYzcYIMqHBT3z80Qfb8dV1TBz0zR+Xbpu7+ MYAzLoNibOXl7hdPqeAYWiB1BXVN3K6rmUOaAx6G9NfFXxLOWHaXMTohmD18 k6zsQ8Fg3lC1dPWKA+8Dl/WbSyp//erU679EtsGKfLvR9YcP4e7v/RL0YiLf 9qiVlkTqUElIvoROd3j6ZJKpvJrG4ZHJR60dk+3dM5DigyPSUzJoE7PbBaQW bX0vsLoVzM7yivbI6LyomNz4RJKjc0RQKMHDCwtSqpzZvLEFaXRrcGiZ3Toa HEKglDYPCe7QK7hV1byi4no4b2gcgDc7u6a7eFOQMVNSafDTOnmzxSWNhcUs CH4IaVZTXzG5Hga3cxxiu7i0OTOPiU8vA4GXkcsIDE+JxxcCMwA527sGAz8H hifJ39ACHwEuXtfUydLRzy8UR8imaho4qGlbWzkGX7ymI3tB7bKi3pXrBvI3 TJzcY8Oic0Ezg5wDrs4uqIvCFkCi1zZwA9dzUV7P0MzTzNLrurL+kRMX3/nt x1LSr7ywsPxHD6Q/sJiwNARSygBpRysDGIsgdR0hqpEEKo0w/OGjCvi0CkgK bO5MVd0gj7/a0b1SRu+qYQlAC0EAqNyyhYvO5oxxO2YysqrCIrIjo/PxhHIw aHBeSmsem1q9t/YEPN3S8pOe3oU8YhWgyuuepZVzCgprKyo7SCUNxPzqAcHq 8Mid0YmHLdxxSK9wzwLU2ITi6Ph84IeUDGpqNrWRMwTUyuufA2uPOhRQlQGh BC//RBB1QBoQz6qa5hZ2Pk4eYSFReKAOIyvX6+oG7oGxdm7BNs7BGrq2hhYe JtbeCiomfz165S9fXTz8tSKAfOiYwtlLWoFhGeExeSCYIevFJBabWQeCpoJg vq5qqaBspmvgrKNvd0Ve/U+fHD148Ffoxu3nvbH+Hs7iUsKuy/ttf6XFpMSF s/4yUsh6abRSrqj4G6ZWfiXUlnImv65xrIWz0NqxnFfQWlk7xB+6S2W0K6lZ QEpqaR1dXN7r4a9mZlcGBGamp9Uk40uLyQ3stlHQ3uvb21Pzqw/W9qprulMI FAC5izcDaENIQ9jLXdPVuGVdVcOHeK6tH6hpGGS3T4HNh0AtpbeVV3ZC3oSE BcqNxe7LyKORqKysfHoCvgQUXUxCfhGlEU4gkm2cggDn4MgUyHqe/rFVrI7B saXQWIKmsa26vrW1a6CxjbeOqYu2ibOLb4yOqZvsJfWvTil8fgQpKghI3tSw sbANRtk4NDrXzjlSWd0a5OsFOd1zV3Suq5gZmbrd0jQ7derK22//DilTiUEn P/f7ov4Y2gAyWjobKYskxBlAPiAhg1RTkkAmrMXRqmAimI/++Glcck4xhVNZ O1xVO1ldOxMVSysq6WjnLQMgoKMA6uzc6vHJzbm5PS53OjGpHEZgcEZqOh0Y dXZxffXe1tzS8tLKNoc9kpFGo9M4IKobmwYHBldKyI22dsHnL9w6dlyBkFbO ahyEe2di5kltwzClnNPdv9jdvwRkRWVyouKzlNQNIa+V0OrrW3oSU8iEzPJ8 EiskMgPuaN/gJHwGxcMvLjAcl5BSEInNJGSVBEQkeQbHEArKHL1DzRy8lLXM YFy+oauibXXmivqhk3KfHb386aHLZ69omtkEAci3tF3cfbCotLCwDZS/bnhe TvfSVX2AWuGmuaGRyw1FrU8+OXzgwBsiwm2AyFLbF9rZ/PAhbDSDlikQgors WJGWBLGNzC6JCB0O4CwhhTQVvXZDE5deUVDSXsOaKyoZ8A8mFZV0d3Tf4XYt +PknnD2vAckCVOj0ws7S3T1gGEAJeMMnEEeht1TXdQ6NLK8+2JiaeQi6orKq AwRGfkENmdI0PHa/tW0cKL2qutvdMw7+SSdvkdUywumcAhHb1jFxb+3p0Mjd nr4FOrNNW88eIioqNiMiOg1eQ6PTmzgjxaVNIMwgmP1DccGRqXA5wBNFJ+SC wLutZwfGJCWrrK51wM03VtvICbKeoqqp7AX1c3JaX5649pevLh0+eQMAdPSI cvaKAVcLFK1n7G5uG2zvGmtuG45sHDuvDR9QuW2noGKqcdvk9JkLb77xFlKz 69v09083dHtRnCCeBdHfGKSytJgUJEQrh4iMvBZcWishu9s/mIZNqhka2e4f vMvljJma+9i5hkcnF9BqOsfnNsbntnoFq6BOvfyTcGmlyXgyaIYHG3tzi5vD o0sVzNYmdj+F2tTEHuT1zkGyA5zdPeM5bXNt7bPVtQPN7DHIqk0tw1Mz2+0d k+CLSeSmmjo+ZNVYbD5IGvg8tbwtN78iMiYdzDtoSFB6MFhNA3DhQA3C5908 YsEsk0tbgHZScypMrQKc3KOBAI/L3vz8K7lTZ9XPX9bT1vdw98YHhueGxWaH xqX4hWLdfKIcXCN1jT1VNZ1VbrlcV7G/pGCqqu2goeeorGklr6Dy+49/J9yg LSQEYQtm0X9QzPx70f1s/v+79ILQELLA4+33/wp3Ez6jPiqxMjSWbmaFxRFq Wtiz/fwV+HOSMsi5pXUpOeUtHaPTS0/q2AJQ1xGxubpGbsl4ahmtA8JybvHx 2OS9bv708NgqKGFiYRUQeF5BNaOyKzo2z8klEuR3bX0ft2MK2B6CuZbVk5RM cnQJBzUYGpHu5hkD0hE+08wegQ/gU4sTkokgHfWNnEGrM6o6xybX4EeBsIRX ZlUPXF+4LsERGd4ByY5uMb5BePhlzl3Wvq5iYe8cExVXlFvQVEzhZuY25BbW g3+BFOAfQjC3DjOyCFLTBI1hc1XJUlHN2tDSR8vIVVXH9tjJs6+99ioKL6qZ /50WNs9/CAo+2HZQ1BLiL2FEDp48pZSV35BbxMUSalRue6lreSXiGHX14yVl HfQ6XgN3hD98h1nfW9s82Nm/CPd+eg5D9bYNyA9//9QiUkNjyxCnfbSuoXdA sDw2+aCzewYMS2oGNRFXXEiqB9izcyt5PfMQk4AYvAK3Z+ZU+PgnwnfBBIG6 6x9agaAFOQ22BW4H8CwR0VmlNDZ8GORKLrHaLwBnbOoVFJKeS6wNj8yxskEe uQJ6IH0hniFW3bwT/EPTcwobaIzu0nIesailgNRaWt6ZkctMy66Ai6Ku6WJk FmxmHamh46Zj4Kmh52xi7atv5nHhqvZb7360v4L5BaBejNJ/7RA21xWXRCaj JISlR6XFJF9VuKlLrWyjMLjeQVmXFWxNrOLw6eyQqBJcJq2E1lZZ3y8YX0/P Y9JruuqaBrPzq60dgk3MvC0s/ewcQgEEUMtwy8N93dgsGJ9a5w8swWjhCABS yInLqzsQ82AGB4dX4HKERWSC6YuNJ+YX1gkXhyyOTax38+ebWyEdd2flMuC1 o2uG378Mg0bnBgSlJOEoSCdNWkcRqSU9sxIScVB4urtPvK1TmJs3YuhAIefk syi0DoA3K4+VldcIXxZTOgjptRHRJeFRJA/vNHevVE0971vabpB09M08Dc3d wWC+9/svECEnBFm42ee76+j+Doz/8LuAs4z4gZckXhbHSMjIIG1VAWptI5vC UlZFXb+FfcxFRVsDC7xfWImDR6ybT3JqdlV9y1gnfyk8Ljc1i15W0QEhraZh ffHKLUNjDzAvTk5RoEyaWkbLKzoB8MHhO1Ozm4Dt+NTD0fHlje29iZm703OP wGv7BSYq3NAHU9nVMw2pDWDv6ZvrH1oC897bPw+JFSIfHE137wKQP5wARZRQ 2JBGm1rGgalMzYJsbCNz8upAh8cmF8UmFmKTS5JTqWCsCks4OfmN8cnURHxF enY9nCSnVqVlNSen1qSk1cUl0PwCcyzsIozMAp1cI8xsfG5rWx37+rLUgTfR 5UbfaWHwE3F+Ee0fWuAhLiMqIy2CzKyKoitqRMXFZV6xsPcsZXBLGfyQ2DJd 06SQGJqZXaCSuq2ajrNPcGb/yFptkwD4sJDSUkLlxMQRtXTtQE5Hx+aHReTi CVRwH0WkJg53on9wdWT8AQA7NbsxM/dwcvb+6v0deAVmqKzhJacU5hGZoxP3 +wYX+QMLC8s780vbkzPr8PnZha35pSfDow/KaBy4O8Dpk8gtLa2Tefksb1+8 s2ucnr63rp5XfCK5vXse7jIy0naPDSflzB4IYyC6bGJTPI4eHkOCkYCvxKc1 JaXUR8TQg8JI3gE5PkEZbh4J9k7BYEzOnFU8+NrbSD1+cbRjnSj6RFscLa// rx77CRF9jCUqIYORksFICJ/Y7k/rwX/x2q/eNrFxp1b1sNoWKdVzGfkdEN4x SVQrx2gtA4+svLqe/rv1bEFGXnVmXjVkSeBh4FhqeTsoCl7PcgWTByE9KLgL bACSo39oYWZhbXzq/vT8QxDbEKtAHYDq7NzmyOh9wHlmfhMQhjfhdWl1F+If oIYLBLkSLged0VFV0wOsAj+tshpZXZBNrM/NaygoaigsbqQxEeuamsUoIrcC vPnFbMA5mVABwYxNogWF5kfElsQnVcYnNMfjWEERlICg4pDQXF9/grNbuLG5 88nTl199/dfiEi9JSrz0vNfJz3igxh3hZwwyhItqkO54yEZDZAWC+Bu//tDe IzKruJlQ1MpoHC9j9lEZ/VzeakwimAVCPXtyZGKrhTsJMjgrh1lc0ghU0N27 ND29vbC0Nzu/OzL2sLdvCcbkzKPhsbu83ile78zI+J3e/llu5ygkytmFR/NL W1OzawApAAsIQwwD1IA5vDM0strVMwsDMuDE9Abw9vjkxurdvb7BZXJpK0AN FM2o7AWVCPmOQm9PJpQDXZBK2+EVoE4iMFPSq/MK2elZLIjnyFhaXEJ9YCjZ J4Do458FdwSIH30jxzPnFX/11vti4tL7ruTfa5D3d47n3cQkhCtKkYfm4vtt a0Qw0q//5g827pGZxfUp2ZW5xZyisk5gEjKtm8roa+Eu8Ph3B0YedPevgPVu aR2H2AOWGBi6A5w8u7A9OvEQTtBX+ADIPIhMIF7hc6VZkH8AMujtyZmHALUQ 7fWJ6Qc9fTMwQBk2NPP5A3OCUfhRWyt39xZXnqCUAvjzuufKyluReiCkpo6u BbCx5HJuGb2rrXOxqXW2un6UUSMorxwoq+AXkNqSUyoTcPRoLD0gtDQ4vNTb l2jvHGdk7ntb2+bMuau/fvsDdHpZaK//3UaEPw4y8op2/kX7LUuIoM8EwLpI SR04iDSE/c1v7TyCsgury+jDhRReacVQIbmLXt3f1DbF7Vrq7J0H+QERC/BC iEKyg/ADpoUBlAuxB+IB8AecO3jTwAPg+4Qn9wBeABlIG/5VN4R6z+TI2OrY xN3+wXk4mZ3fGBQsLq5uLd/dXljZBKoB2oFrAbcAkM/4xBr88xbOICjzjCxm amYlxHBtw2hr+2JV3Qi9coBc1k2h9pSU8oiFHHxqdXRMiW9gfmAYxT8k39w6 AjS2po693FWNd979AKm2isFIiu+3fv/+s5Kf60AbzcMlReZJMCJIcxYRCXgL ebYrIikqdQC45OU3f2Vg5pKWxU5OryaSugrJHRAtlfWC1vbZ5raxgeG1qZkt wchDweg9BMCptfGJByAbYACq3M5JYGnQZiAbpmd3IOzZnDFWUx9Qx+jEXcAN YhjiFgZANzO/AVEN+K/c3YVon1/eWFzdnFvaAFaH1DkysTI8vgwOCP4XGBD2 VdWdYGpqWCMQw6zmKThhVA8AzkXkdlJpJ/CGp0+6g3Oii2uys3uao2eWvSvO 1DrUwNxTXkHr7f/5AzoXh7YFfNZOVOz7y5t/Rpz3O3ejfUsxktKiL4PYg+iW kpICIQkfePkX7ygqu8Xja3OLusoqBuoaJllN0xBC7d2z3f1LfRCE43fAD8LJ gGARoBCMrkCggumAkAZqBXhB5g0KHvYN3OvtW+nmz/YNzU7NPYBYhaCdXVx7 PuaW1qfnH4D2m5q7P7N4d3bp3sTMqmBsfnx6BQZ8CwDv7ptEGH54vl8w19w6 xGoZYdQOUit4YEYqa4dojD4ylQeCOSyy2NAk2NQi3Mc/BwSGlT3WwjbaxCrk zAWN13/1gQjy1A95MI2mfmlxZLL++3sifkac0UkSZFGTiChatQNtkYBu2sIA Y0uLCsn7jRNfy0dFZ9PKOTR6R0vbLAQPtYLfwJ7v7F7j8R/1DjzpGVrsHR7r GZrsH53vG57vHpiFqAYfx22frK3t7+lZmZjYmZnZnV/YmYMkuPB4bn4LPQHh MT2zMTP7CD2Bm2Jqen1i5h6wBORQGMBIEMNw4SCxwq3R1j7d2jbJ5kyxmsdq m8YgR5eU99Aq+cDMJdRuSnlvdn5reBQ5MKQoLJLiG1jk6pZo7+StrWt56hu5 V37xa7QrPNp2CkEBKboqgexp/clG+8WOP3/vY/sVjJ+f73e6Qc/RDp6i+5Mh GHT/srjwse//vPuhm0sgk9FWwWiHmMGn15CoA3VNdyrrFpvaHnMH5ht7uho7 OtndvZ0DY/zhWQg5bvtYa8twS5OAz1ucm3y6MPN0bmprbgbG49np7ZmpzZmJ RzDgzdnJTRjT4xuTo2swIOWBbYQ0CgNFuJMHzmWJx1tq75xvap6srRsDxihl 9BTSOwvpPECbUsGH9JFb0E7IaE5IqomIKvf2zbd1SLeyDtDUvPmXTz6VlpYW EUG2OaB9rL6NNxGR75z8RJB/1tSJQWsaS0seANKWlHjl8iUVHL6EWcXDpzFd vdOTUuvKGAJG1Uw9e7qubYTFGWkABdIxwetb7BOsQh5saO5vbhkcEqxArA6P Lo6NPwT9BrEKyhliFfCEgbIufAnYwl0AaZTXP4OOrr5pbvdkc9sopIPWjkl2 +0Rz20Q1awAsCYnKJZXxIJjLmP2ljD5QRLmFrfj06pgEalB4gbtPmo1DrJFR yBU5zd/+9rfCKcr97mkimH+6P+l/GmdkiS9a3AMjdkDmoLjYARGRV373hy8t 7YLACHv5pRpbhccmVeQW8orL+OXVQ6xWyI8LzW3zrZ0LHd2IJmliC1hNA53d UwCsYGwJmBzABGz7R1b6hpdRVNHUCUIF2BuceAdvso03wekaB4TbuqY4nZOs FkF981Bt41BNw2Bl7QCjuq+0oruE1kmmghnkk6i9xBJuRm4DsnEvptAvKNvd O9neOUbllu1nn11+9eC76L2JTlwgZW/F/3VL8h+LZ2FjUzEx4TMCCGwZcXFk pY2kxBtfHpbzDkzNzK118UgKCi0soQ6XMWdrGlbqm1dZzUtNnMW2rhVu93wz uOy6nqqGdm7PyNDEQu/QfM/gHLz2CpaA0vmCBWDyTv5Ue88Et3uc0zXK7hhu 5sL1Gma1CmA0cUcbOMNgP2uaBipqu6mVHaUVHfRqfnlVbxmjJ7+4G9k+Rmwj ZNbFJlJDIog+gSmuXnHGZu6nzyq/9c6fMaKvYjDSKMAoLSDL8iX+63AWFpyX lpGRQveJI030xKXBqIpKvCwiIvPyq7+RPa/k4hkTFpORW9hGq56uqp+Dwayb rm6YqWuZZncutbTPgSQoY3Qy6/oa20Y5XbPtPQuAP7yiJ/AOu2MaRkv7VFPb RCNnvKF1rK5lopI1XFE7yKwXwIATRt0QraqPROsupnYVU3kFlPbsQnZaViuw MT61Nj6J7h+cZesYZWKOPLP++M9fIr2MwQuIy0hJyaA5DgQG/C3PnnH8d+Es rO2PQTuJCyMC4TbQRZKSv8BgDohLviGCOfjSgf85f0nV0T0hLqkc7EwVa7K6 cYJRN8KoA6AEIANozH4qs7eKNVzfAjBON7XNNHOBXuYbW2cbWqdg7L/DnYXv stiTdc3jzPpReo0AiBeyG5neS6H3lzEGyeV9+eT2nKLWTCLo+SpsMiMusSoG S4+IRqppmZj5XpHX/ej3h9DG3CBNX3r5wPMHHCBT0ZBGFd1/G87or/bCYzIM Wix9v+Qj6BDRA8L942IHX/vNoRMX9Myc41OKyphciF4IYzKth1LeV0zpLSYP ksuGGVVz5cyxiqqJ2oZ5VvNCXeNcfdMinFfXz9aw5mBU1c3QK8cptKGSskEy dRBO4JVU2g+vxCJeenZraiY7KaU+MpYeHl0WEV2GTCl7phga+1y4pPn+B4fF JN5EdqTC77O/jgiz/8D6hYaM/6Yb+c/x84sgv/CQcb8HnLBVmZRwHyh8G2lM /fZ7H52/fMPZLTSJQKbQOsogIGk9hSW9eYVd+UX8Uno/tUJAqxBQqP1FJd2F pM5iMq+ktIdEQc4LijuIhdy8gjb4FrGwI7+oM4fYlpnDTkmrS8RVxiXQAdiA 4PyA4Dwf/yxPL4KqhuXhI/Kv/uJDMdHXMZhXMBikPbQI5llv1m/3MiA4I/U/ f8LSl79//MdwFkYCsk8cIwxs0WfhvV8JGdk8Dn8XRgpZZS0tLEYh7Lv+0itv vv/RoXOXNc2sgmPiSzNy2HmFHQUkMBEtACPgCagCpDDQcxRhGLn5nBxia0ZG A4FQi8dXZ2TWp6bVxCdQI6OKg0PyvH0ItnYxN1Ucvjh0/c03PxOTfBUjchBi WFT0oITYQTHRl56VH8E8X5CMSlM0SP79yc//ZDyjxw+0QxXelCL76yTRuT9R DPj1gwcPPusIIC0u+fqrb7z3+z8evySvZmzm6u2bGBaRGRtPxBHIyXhyckpJ agY1J6+KWFALI5dYnZlTkZZJy0gvTUwgRkakBQYkujgHm5q4qNzUl5WVe/99 sBtvgrZE+UFcQmZ/rlF4cyHdCoS/EjrTi7ZBEvveIvx/5/h/j7PY8z9BiDOS 2iXEQf49n/6Sln4JMjyy6FpMGsEcyFxEWkLqzdfe+PD9Dz//66HTJ09dvXhZ Re6qxg1l/ZuqRjCUbhpcU9SEd87Iyh8/ev6zT49/9MGnv/7l+y/JvCbcOi2B DqSBFHLzSCE1EuGCiiJ7cMSE61SQa72P87ebVX+uQ+x7x8/2o/ePF8vRC49n YfziAO5AAUcnG9FihfuKRUoIsyRGuDNXXPhEAalKjUGHsJIhOhv8bGDQ50fo M2gR4dy4hCSyIhMlsedf7ldmEMOg20PE0A3XIvs7+37GYP4+yP+ZeP4Hv4Nw XnH/KjxLl8/2xYiL7bfeQnKTFPJ4/Vue3K/m9J0h+rfTDs/+qOd54dtjv4bt s0NUVPQ7V//HfuGf5fg5QfzJx49kGXHhAte/WbAt+rf66ic+xP/efyf2HNsf TB9//9/+38UZPX5wKuzFPXcv/Hr/GJnvL74S+5G1Vf/U8f8BzqI/tHrku7cw QpziP0XMfh/VH5nGxHzvnX/wY/9P4PxjEH23HNY/WNjzr88z/O3xTy+0+Llw /l9YS7dv "], {{0, 120}, {120, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{120, 120}, PlotRange->{{0, 120}, {0, 120}}]}], "}"}]], "Output", CellChangeTimes->{ 3.727109554839738*^9},ExpressionUUID->"bfa41b4e-9343-4dd2-8272-\ 49e41588a1b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "/@", "ls"}]], "Input", CellChangeTimes->{{3.725546096751669*^9, 3.725546102608004*^9}},ExpressionUUID->"6b820364-15c8-4eb2-82c0-\ 8d22a5e3a561"], Cell[BoxData[ RowBox[{"{", RowBox[{ "Integer", ",", "Real", ",", "Integer", ",", "String", ",", "Symbol", ",", "Image"}], "}"}]], "Output", CellChangeTimes->{3.7255461051396027`*^9, 3.725546433261334*^9, 3.725798253948697*^9, 3.727109562907886*^9},ExpressionUUID->"f220fd80-6936-44d6-b374-\ 26fb33bb2f6e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Select"}]], "Input", CellChangeTimes->{{3.725546996533074*^9, 3.7255470075629473`*^9}},ExpressionUUID->"5eed830c-c7c8-415f-8447-\ 1d1888636ba6"], Cell[BoxData[ RowBox[{"\<\"\\!\\(\\*RowBox[{\\\"Select\\\", \\\"[\\\", RowBox[{StyleBox[\\\ \"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"crit\\\", \\\"TI\\\"]}], \ \\\"]\\\"}]\\) picks out all elements \ \\!\\(\\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\ \"TI\\\"]]\\) of \\!\\(\\*StyleBox[\\\"list\\\", \\\"TI\\\"]\\) for which \\!\ \\(\\*RowBox[{StyleBox[\\\"crit\\\", \\\"TI\\\"], \\\"[\\\", \ SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \ \\\"TI\\\"]], \\\"]\\\"}]\\) is True. \\n\\!\\(\\*RowBox[{\\\"Select\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\ \"crit\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\"TI\\\"]}], \ \\\"]\\\"}]\\) picks out the first \\!\\(\\*StyleBox[\\\"n\\\", \ \\\"TI\\\"]\\) elements for which \\!\\(\\*RowBox[{StyleBox[\\\"crit\\\", \ \\\"TI\\\"], \\\"[\\\", SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]], \\\"]\\\"}]\\) is True. \ \\n\\!\\(\\*RowBox[{\\\"Select\\\", \\\"[\\\", StyleBox[\\\"crit\\\", \ \\\"TI\\\"], \\\"]\\\"}]\\) represents an operator form of Select that can be \ applied to an expression. \"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Select"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7255470095265512`*^9}, CellTags-> "Info263725547009-7827453",ExpressionUUID->"e28754a0-fdf3-4433-91f9-\ d479e76a20cf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Cases"}]], "Input", CellChangeTimes->{{3.725547026456772*^9, 3.725547031047155*^9}},ExpressionUUID->"026a0141-e9f5-4921-9a9b-\ d42513bc2ea8"], Cell[BoxData[ RowBox[{"\<\"\\!\\(\\*RowBox[{\\\"Cases\\\", \\\"[\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\",\\\", StyleBox[\\\"pattern\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \ gives a list of the \\!\\(\\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) that match the pattern. \ \\n\\!\\(\\*RowBox[{\\\"Cases\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\",\\\", RowBox[{StyleBox[\\\"pattern\\\", \\\"TI\\\"], \\\"\[Rule]\\\ \", StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\\) gives a list of the \ values of \\!\\(\\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\\) corresponding to the \ \\!\\(\\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\ \"TI\\\"]]\\) that match the pattern. \\n\\!\\(\\*RowBox[{\\\"Cases\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\ \"pattern\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"levelspec\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) gives a list of all parts of \\!\\(\\*StyleBox[\ \\\"expr\\\", \\\"TI\\\"]\\) on levels specified by \ \\!\\(\\*StyleBox[\\\"levelspec\\\", \\\"TI\\\"]\\) that match the pattern. \ \\n\\!\\(\\*RowBox[{\\\"Cases\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \ \\\"TI\\\"], \\\",\\\", RowBox[{StyleBox[\\\"pattern\\\", \\\"TI\\\"], \\\"\ \[Rule]\\\", StyleBox[\\\"rhs\\\", \\\"TI\\\"]}], \\\",\\\", \ StyleBox[\\\"levelspec\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) gives the values of \ \\!\\(\\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\\) that match the pattern. \ \\n\\!\\(\\*RowBox[{\\\"Cases\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \ \\\"TI\\\"], \\\",\\\", StyleBox[\\\"pattern\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"levelspec\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) gives the first \\!\\(\\*StyleBox[\\\"n\\\", \\\ \"TI\\\"]\\) parts in \\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\) that \ match the pattern. \\n\\!\\(\\*RowBox[{\\\"Cases\\\", \\\"[\\\", \ StyleBox[\\\"pattern\\\", \\\"TI\\\"], \\\"]\\\"}]\\) represents an operator \ form of Cases that can be applied to an expression.\"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Cases"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725547034933852*^9}, CellTags-> "Info273725547034-7827453",ExpressionUUID->"3cde0fbe-c2c5-422e-85b5-\ 625445982e64"] }, Open ]], Cell[BoxData["Select"], "Input", CellChangeTimes->{{3.7255470874248*^9, 3.725547089367489*^9}},ExpressionUUID->"e08cfbfe-958c-4742-8fb3-\ e51368765e11"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", "_"}], "]"}]], "Input", CellChangeTimes->{{3.7255461224563313`*^9, 3.725546145184765*^9}},ExpressionUUID->"f36dafb9-5c99-431a-bbde-\ 73302355fd23"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "3.14`", ",", "17", ",", "\<\"\:5929\:9ad8\:7687\:5e1d\:8fdc\"\>", ",", "\[Pi]", ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzUvAd4Gne6Paxe7PTdf7a3lE02iZ24xF3N6r0XhBAIUQQIEKJJSEhCFXUk 0YQACRACdYQq6s2y1dxLbMd2ulM22bS92c0m6/87YDtO7t777b3f3uf7Ls/r eYZmMWfOnPec329mfodnJpBcnJyc2F6wSMjiB+TnZxUmPgZPkhlsCplBJIQz OEQyMf8Q3hVeLLj7D1l3dXb558rt/7Hcnezl7PJAOXk6u3q6uni4OHm4OHs6 O8PSzcXT1fkhF1cvVzcvVxdPNxd3D2d3+Ji3kzPUDifnnc4u3s5O3k7uUDuc du509n7IaYe3k+cOJy8oTydPj3t/xc3+lbtfdHbxcnKBt5APOHu6OXtBwR+C ghX4MPxp5FtObg+Ux4MFm+DyP/b4F+J8r773RQ8XV1cXJyh4A7YUWXd1d3Xx ckHg94R1BGcXVygvFxeAy9PFycsVKW8X751uOx92feghZ8+dTh4AIFLO7oCP h4tj3yG4OUD2dHLycHLsUzc3F1cod/gvXdzgT8DudXEGDJGd7n7vVyG/wv5r XZzcXZF3/zHOrvDb/3+GM7JR/w5kR93/EGAKS1fk4W4v+wMQcAXonB3liTAf KftucIDpBLx1c0KWHnYMkf/NzcXZ2QnKzdXJDiByvCD7zM0JCl50cXVydXMC QB2YOvb13Xpgo+7j7GY/sv5VqP7P4fwPyYyA7EDmXjmIbQfExbFyn+2OcrWX 47c5uzpBObk7AeJuXp6unh7IDnFFBMNR8NQZWO7tCgXHg6s78nlQE0DY1b4v YMUhEA7AEfC/h7bjb97F+X+VbvxDnBFc4UBGNNzVDZ54IMAi5erY9rvYOlbs PHd3c/VCNh1A+8HDGXkA+i6AKYI5sjOQZw5aA/wIvK6IfCD/oR1nB+wOnN1c v8P5nnp4OAoOyf8VOP+732kXE4DMzcOuyQ4l8LRDbUfFzb69DpDtH3RBDnhP O4nvP+ATHh47H9/545898bPf/PSXz/7kF888+dNnfvzkU4889kvvnT9x3vGo k5sXfMXZ3tednez/QFbvIezieq9cvtuhD/5CKPgtLv9LcHZA6vq9ByLCnl4P ubt5w1bAtri77YAOCC+6OIOB8HS3b5anp6ddBDwQDYZy8X78yV/ufvVoSFx6 ahadWVAjlmik6l6ZeqBVaW5RmFQai6ZrtL3D0ibrkyr6hNWK/KIGFJ4VGptx yDfit8+8AuA7uTzi5ATeC9ojNEFvRPXtD3d3T0drc3Nzs68jh4Mz0jHgt3nb +fAva3z/QzjfF7cf4Iw4N1dvT4+HEIRddri57tzh9TAiyIgwIwe83ZJ4/ujJ Xxw84kemMhtk6r7R6emVjZnli7MrlydmLxt6FxSacbV+Smea6+lfslg3R0Y2 h4Y2hoZOjVo2R2ynbUuXB8bWNcZpjcGm0U+0SE3cgvqoaOzzzx18/LHfurv9 2MXlIXcPxPLC7/Hy2oEQ2I6t40D7jtL/3/DZ7b/OZ1fHgQm/3a6/7qCfO3c8 ajfJD7u5PeTmvsPL43EoJ6cdwLcdO578+S+fj4hKq2tSmftn18/cunjtvbXT 120L2wPWRVXnrKpzQd5hq28eqG/oVyomuzoXujSzBu18V8dMp9LWZ1yZHr+w dfbjzbMfL554a2LmtXHb5YHB9S7dnE4/P9C7ptPNlJV3JCbS9+wJf+LRn3ru +JGr68MIz509PL0ehp3rhBhDN4deIU3V7T7OTv8ZZP9inP8hnz2+A9YJaXCO le/47AYgI0oIv9neAz2BsO7uD3t4POLquvPhnT91tm/mkz974cCxKAarEhRg 0LJ0avP12x9+u332Tdvs5qnTN89efm9obFXePiWuHxCV6+rq+9qVU0bdsqFr Qa+19RuXertmtNJheYOxo6VXq52yjm0vrby+cuLm3NzVkZFts3nVZFqB6h84 NTB0cmh4s2/gREtTJxaXv3uX36MP/8LV+RHQLTiy3D12url7O6B29/T4Dua7 hHf9PuD/r9j+38PZgfBdkO2HHqwjJvWe50JIAqLh5vXwI08AbdzdH3VzA810 e/rpF9Mz2C1K69Do2c7upXbNVLtmon9wbXb+yvjk2Q7NWEWVGqq8sr2gQFVV 2SOXjes75ztV04pWi6plqFs1OmKcGTPPDunG+7UWc/tAlUitaBvo1k/rOieh unWzVuvW1NT56emLNtulyclz1tEzg0MbI4OnzMZFedsQjy0OCUx54vHfODvv RCyjE0Jmdzjg3BAf47B/CEmcHU//ZY9/Hue7/uEBkL+DGlkiDLDrnLPDPDkj OQ+anTeQ2dnZ+1e/+kNuboG5b2LUdk4/cFamXVAZVifnbiyefMc8uKnUzHR0 zspVk3K5Va2eMpuXBwe2BszrBu2sXDIgqetRtZp6NSOjPZN92oFuha5b0dXf YRzpMo+Ybd2aQU27Wa8d1qgGm+q7WiU9HR2jOsM00NhiXR8ZPzs2dWFi8vLM 7DVAfmBgVSrrKy5p9PWP+vXvnnfz2gldAtFpDyT13NVqO8L3+Oyg8T0H/q/H +YcNDujqKMcDCbZ2W/rgjgBz5MhmSMxyRyTC2fnhn/zkaQKZ0T84PWlbG5s4 0Tt4SqFe7jZvT0zfWFp9e+3kuxPjF2dtlxfnXlteuDZnu2gbPztvO7u+eMva u6Zo6m2q6pLU6GWN3Rppb6fUqJd392lMFp15SGPoV2q7lCZT55Clb2q0f9qk HVa1GWWN+tZGQ32NVlytbWjUd2rG9frZphZru8pmGdyam782MroBvVIqN+Zz yo4dC3riRz9B2jFixt3uHY0uiD1H4H5QK9weqP8Gzv+UkbAjbI++9ozmSFtg F+BtL0/3u6kZLNsOF2cvZ7st9nJyefThR56KiCAoFKMWy4bBMDc7ffbiufcu nr197bVPrmy/e3LmzMnpze3ZrfWxlZVB29mZ1bNTJ7Zty1eWtq+unDkztTWm G+9RDLXVGdnMOiazpaxMXys2NdYZte3D3R1D3QqzUdHTqxq06EdH9daFwRlb 96iprXNUOzhlsA51DClr1YV0EZ8hKuDWCSs6mqR9o1OnF1ZuTk1faO8Yq6jQ iEQddTX6vNyaPbvCHvL+vbPTI8ANNy9vhEvgvT2cHFt9l9XO9y2i23+D2P+8 YXMgbA+2zo4I4ZBgR3Z2d/Lw9PR23+mNgIzsEs+9e/zENe1Wy6nJsfXZye0L p9/55INvP3rn325c/ODS5tsXN966vHHzxOSpxf7Z5QGbTTd0fmrl6sLW6ekT J4bm50yjI6qBEfWwuX0Iml2poCU1iRUdTSkqUgBL26V9ykatsd2kl+t71YNj pqlR49iUeXyi2zppHB03jJoVpr5Oi6bVIC6RN1R2NNUZOvSzp7ZuD4+ebpAM dhrmtfq5yipdcbFSwJcC1FApifm//MWLkJJc3He4IeV5t+04NvmHOP/L+Hxf jf89zva/i1h9b08vUAwH6MiAm9cOSCWgFY8//rPsLEa3zjpn25ie3Doxd/Ha 2Q/eu/HptXNvrUyfWZncPrP8+tbChZO2je2Z9a2JldW+ye3R+dW+8SXT2KmB 6bX+6cmuvrmeCYt2oKulW9tqVkpMhZx6DJqNJwiZzJqKMll1aUtHm37QaL1w 4vLK+Jq1e3R2wDY3OD1qsAx1DWpaOjvlJr3C1K2yjg6t9pmW2UJ5aVUni9+C whYSqJVsfiu3UFpX31sj7mHlNfN5svJSLY9Td/hoKHIkOiEjJ6Db7p4u97bX yY6VPZ7/t5LjP4Gz3WN8f7DLjruHIwMCqd09dgCZ7Sry6O9+s6usqNk2srY8 d25+fGPNtn1yeuvswrnN6Y0TowuXl09fX796bv78cv/clG5kbcC2bZ05YRqe au9cNfZvDY6u91mW9H3L+sG5HstU9+BUj9Ws7pPUqBTS3i7taBqKERKKzmOK JI3amorWHr3ljdduXz5949Tc5sb8xqxl1tTR29PRr5Yahvpsc1NbQwPLDXX6 LFJxWHzesZCsaBQ7BVOYniUk5oqzc6qYnJaiUjW/uD2P2wolKG4rEbUmpZIe +/FvIZYCZyBD2bX6flv87z/+Gd1AsL03pIaMJ9v3gmMkByyohye0bMQgeXs/ 7n8oukc7Oje+Nd6/MjG4PD24ZJCa+lUDK0MLFxY2L85vXF3eWrXM9stNY+q+ zZH5JePIZLtuzTS4PWhd7DIu602neocXdb1DEuWwUmuSq/s69D1qk1LS2Vin 0etGVR3DbI74eGByPkvUrjC2NKvHhmYXJlfHB6ctPSN92r6RnrEpy0KXylxX 2y6uUhYWSXD4ooBQrH8kJSGDn5ZdmoAuSMUJ07DFSeiC+DQunlzFFihYBTIq q4lMq+Tw6iuq2zOz8n/56xeQ8WyQEVdP5wdMCMIvu7f+l+NsZ7Hzd2O8yF/1 dEYMsjfSJ1x2QACBn7TzkR/FxWSM9q6enL44Zloa1s2Mm+ZN0r5xrcWmt57o n9ocmV02DY3KNJ1VTaZG1YJheAHo2q4DeC+OjEOWW+/p2+od3Oy3LGiN1rb2 PqnC0CaXVdY1iGqldbLaGlkBv0ZvGO8fmMdlsUPCUkuE9Qp5d12lpEvV09dt Gekd61Tom6rbqkobSfi8kFCUf2CKTyDqeHi2b1iWX0ROMq44K7cuNr0gIpkd npQfncKNTGLHpPKSM4UZxEoSs4nKasSTSgk5osKiVhqjdNfLx5ycHoL8aJ+C cPuf4/P9oOfhBm3Y1THS7uXi4RjchY6AjLu7QIL23PHQT7Op+Zbhpbnh84sj py26+QH1xJh+2maY2p5cXR6YWukdOzk0dmrQeqrfMm3onTIMzHQPjKv1o0rN ssG83j8416mDWjGaFg2mqY4ui0zVJWkp43DKOAWF+YWi4gomvYBG4eWzSlva 9PruUV5BDTW3SGewytu0TWJpdVlDIVuYhSJEBMWFHI/z84k8GhDvE5QaFEv0 iyT6hBEA2OzcehpPiqfXQ0WmcHzDyaEJebACsMMynVgBlKYw6nEEEY5QyuE1 5tJF+14NAl8KGwiBy83D3T5C4vxAPP8X4HwfZEcGcbHz2RuRiR0ebshIl4f7 wwCyi8tD3t4/YjKKpxe3Ri0nVqyXhztnhzunrV1T072zZ2e2zs2tb9tWz01D LW+PTZ8G3o7NLI/YFsyWya6esXbtpEo7pugYlEjHleq+ZmlXTSNStS0t5TVV gpJSjiCflp+RjMnCUkkEJoslrKpsBag7NAONzdq8fBE6OSsqJCEqJC46OC48 MDomLAlaMA5LT81ghseTQhNpxyKIx+NoyZlFgrIucl5zJrmyrN6UL2xPJ4pi 03lhiczguFyoeGxxDktCZTaSKGIStQaXJSRTyvLY1T5+McgAoLOHu4cXZHOH VtsTzb8M5wdyn925uSEDFvbhW0RCdng/7uzk9cjDvygsqB4fWx6xri5Pn5vr 25g0Lmzazp2wro3qRlZGFq6tnbuydvbGqXNXVra2p5Y2JxZOjM1P9Y8Pao1G qbqrsa29slZWVtVVL9HWN7eKahqElXXC6mJWYSFHwMnn49D4HGIuKg3HYgpo FA4nv7S5saOttUuvG+7rtcllRnFZo5BbVsITVQnF5YKqGlFzq0RLySk4HooO jsbHorm+MTm+UZTgCHISig9NMD6NQ+NKGuQjzEJpRk55Cr44Jp1zPCYnJoNH YjbwitobJcO1Df0cbhudUUckl9AZ5QC1u9fjALWX98OA9r14/q/B+Xustk9P uCJD6YiTdHfbYZ/H2/nYIz/LZ5atrVycGF2zDKws204vDpxctZ5aG9sAkHvb u+cGpy6sndle3jg1s7o0Nj89ODnRM2LUmNVyvbxBVltSXcErreIJ64srmkRi oK4wX8Cm8chZNHIWnUxm0Whcag47h8TCZVLwOHqxoKamoqVVouk1jfV0WxUy Q2NdR6esS9Go1Eo7Bw1DQz2jvYaRtuaubDwnFZWXQSjKotYkZJVgqXUgBWSa OB0niIynZWQLSfSaZGxBTBorOaswIZPnH0UISc7NIIn4xapO/ZKma0HePgXL SrGBzqxmsCoPHQl3dX8cTIirm7d9Eue/PPTxn4N8d0TObhcRdUIyiad9TN7D 2/PHuVT+wszW5OjqYN/Cgu3CvHVtcXDl5MT6hGl6SNtvGxg/YVtZGJsdMQ0b FDqAAmytVCwvE1QXFVYX8krz6Bwaic7OZRdzizl0Dj2Hyc7jYzE5GAxFrTbX N3fQWEIcnonDMwqLaooF4nZFt7iyta5a2tqk1nSYW5s0Al6ViF8uyCvi5fLr yuq7ZAZFSycJzw4MSIlPpGKJpThKdWR6YTKuLC+/nkIXZxFLElPzk9I5EfG0 +LT841HEo8GZoC3xGG5cBicZK2AXyKXtE3rjKuT0mrr+qtoefoGURq/MInBf PRjk5PywM0QVV8//Ksg/wNnl7jzSA2g7ed6dKHF3QcYPPb3sds7dzXUnHkud mVybHF61mBdmRjfG+tcWreuzfdNLg1Nzg5OLo3Nz1qlhY49e26lWaGqrm4VF YgFfnM+qIJJ5hBwOIYeNJzLw+FxCNo2UnYvPomSTmNTcgtRMBplZPDR+4sTW LZl6OJsqqKiWGYxjapVJ0aarLGuqr2qpLqmXNnQYVX0GZa+iXtFSIRHmCZrK Gns1vfVlkqz03CC/RF/flIg4KjanKhZTHpHET0xmBASgUlLyouIoIRHZKels FJYfk0L3i8AFx5GSs/gp+ILEdA6OWF7fNDg8dn5k4qKxb6O5dbyiXE+hVpNz ijOwjBd3HXZyfgSxdfd0477He3D5HzzcflB350HuzmfenWp3dUcAhp5rnyLZ ER+NHrMszY6tT1tOLUxsbixdXhrfHDPPj5unTar+fu2w1TTeo+2XNyskjfLm RmWFqAGklZrDo5ILiGROFjEPT8rPwNFgBZ1JxuAoGThKKpqEwuSkplPgLU5B ZXmVXNLWgyfyNJ1Dxm5rS7NGLtXV18rra+Qmg1UpNSrbTCpZb4fMoFX2NNfI YWXIPMFnl0dHZQYHpgWEZBwOSAtPosZi+ChiKcTATEIxABseRwU8kzN4wbE5 8WhOOkEIohEcT0kjFMelsgjU8vpms6F3ZX715tzyLZlyslCoorMbs8ll2ZTS JBT9F0+9ivREdzuqYK/dPRDaudqHK+8nOJf7o23/2aDT/WknxzrYGKC4pxdy 2pCnp6eHs9fBPX6DxulT81cWxk9vzr92buWabWB+0Dg22DsNkU2hHOhQDUjb DOIaRXllWwG3GswYK68EipjNgsrE0NDpOalockRMehKaGIfCp+IoyZnkFAwx DUvOItAzsKTERDSFwm2o7+ByquG/AiluaFAqld1aTX+PcXTEsqxSDlZXqjra Rzo6+5tbderOoS6DlS+sD4nGBESgocLjCQFRmVB+UZjAWGI8mpdGKoM8GJdZ EI8tTMAJUoml8AqZ2xyWkucfk5NJrUxIZ+FIxRVitbFvcf3M7aWTt7r7VkVi PYPbjCOVocHvUaqjUliP/5/fOtiHjO24Ii7XcfbOvRztGJr49xz+j3B2vw+1 OwRrT5cdOxC7/sRjv5C3da8tvba2+PrG0s31xeuTQyvdHQMGhVGnGmhrMdU3 6ESlspIiSQG3jk4r4/PEubQiQjYbn8VCo8hkApdM4FNzhMy8Sugv4L4INCGR ISQzSgjUgvhUYnJKTkJSNoctKuRXiUqax8dWgcy1tTKJRA1LgFrd0SuXmfp7 53u6Z9Uqa1l5S3NLV4d6SFgiiYnHxyaRiVQhllQQl0o9Eow6ejxjr0/80ZD0 VwNQr/glBceTMTklKIIgm1EJlYBhZ1JKsdSyiGRaTBobnS1ISs+LT6Hmcev7 LKfmV183D61V1HULRB3UvDoCo5bArM8gV/iHJAAgoBje3jtBZj3tgeI+zveG gP4LOLshj7ua4448PF1dvFhM4cLsuRNL15bnrk9azvTp5s1dU0aNtaVOVSpo AoSZeVXkHCGLWcXj1OVSSyk5gkwMMwuXLyxuEpVJhIJ6Aa+xuc6sVA2r1KNM Tl2TtE+hHdEap1rkvSWVUmJOIYdbo+uymrrHAdJR6+Lw0Gx3j3V42CaT6aCa m9TG7rFOjVWlHGqsN/ALxWxeDRbPDgnPOOqfGByRGRlHiE4ix6fRopNzQCsA PW6ZvFrSm4DNj0igpGXz0SQBgVmRgGFBioFCk4oBcP8wbFwaPTmDGZ+SC+pN plc1SQeM/UuVtT3CSi2T28gqkjMEUgiVaZnU559/AbqVh4cXAOvl6ungs90z 3B9tc0jHP4Oz6z07Z8fZY6eT847g0MTFlctTU2dHR8+YTWvajqk2yaBU0t/S 2FPIbaBTyjh5tUx6VQEPAFcIi1polFIMmpWdxauqUE6MrVtHVtpa9XC8Nzf0 1oi7q6r1JeWa/uENODzrJOaaRmNDax8pp1QgkFZVdHQoB0eG5wyG4fn5Dat1 3mweKy4WKxQGcM5dncMN9Rr4f6oq2kmU4qO+8b9/3uel3YG79obs3he+71DM Yd+kiNjcqCRaUnp+XBozGccj0cswJG46Nj8xPTc+jRoag0tA5WYSC3BkQXVj p0isikokQX6E3YTG8WhMMeygwlJFi2KwvdNWWW/MplRk08WsYmVWrhiTzYpN TPnpz34N+dgLcpuzO1D6Hs5u358N+WHv+wd98J50IPrs5uHk9PBvntonbR+Y X7zaYzrR2bXQ1mqtq+2tqTSISjp47CYGozqfWcdhNVSVa1RKS2OjkcuuZ+RW tstH+szzAPLA4HJrm6mpWdfcaKit1hUJ5QRSaWGJVNYx0tBqFtVoxM16cVN3 i9Q4Yl0bHJi3Di9aLXMyqV4q7SourlareyQSVVlZA0i0Rj2g140O9C2gUUwf v6SEVBp0vRdfCYFlFqk4LiX36T/4vbgnfNe+cJ9AFKhuVEJOZExWcATmqH/S /sNRsBISiYVvESjCumbD1rl3Ll//pFlqysjihEbhgiNwiShWWiaPL5RVN3QL KzTFFRoyQ4wmlkHAAelA4fKycxhHfEI8PR9FBi3vndTkWLl/Ttp/DrJ9XNnj LsKuXo51ZCLV62e0vOqpxSvGvpPyjhmZcqZFOikQqJl5zWxOK4NZn59fV16u bmzs7ey0jYxsyuUWoGVNTefs7GXLyFpf/5y5d76lra+8Qsnl1dfWdCqVlpQ0 OnTwNCwrAUVD4zkFQomwXH5q89obb35x5vTN5eXTdHohmcQRi6UtLR3t7TpA u6CgfGjABvHz4z9+02uajY8lECilRGoZiSZKzchPTMutbzU2y/oB2DRsPoVZ U1qhlcgtnMLmunoNgSzIoYuEZS0NzV0FRU05tJLMLE5hcfPayauffnbn/KX3 R0ZPVYi1KCw3IY0RHkvGkaBlVCamcemcpmxqZXAsNQVXRGVLcOTCbAoXjaH8 9umXnJwgi++8fzKkfTrAAxlNdYB5d6T6LnsfXHecQAJLb29kPBkS4I6HvEHz d7+aMGg9r9TOyzpmpMqZmvohoaibymhh8xR0RiOH3apUjukNS4buZccZLN3d 8+0d1tHx02MT2739y93GaUmLsVQk79CM9Q8sLs5v9vRO9Y3MlFZLopNxQVGp kUnouFQMnsIanZm/fvP2v/3lK5PREhSQQKXw29o65fIulUqv1w+IRPUqVc/U 5MnqKgUWk0/NKQGHgCUW4XPK+EJFYakMQJ6cPzczdxlLKABiVFS3a/QTo1Ob ff0LesPkyfXXPvjoq9sf/Pm997+6ceuTi5dut7T28Pj1Q5aFK5ffe++Db67e /LKja0JUrQbBCY7MRmcVpmYUgtnAZAvD43Jj07hZtMosSklGNpuQW3g8JN7D +wlkWsnJ/XuJA4Ha0/kBbJ0dmMO+QM4TvjvLBzR2vXeSqocbMgT66MM/FdX0 D49ebm6bKKvuKyrt5hd1sbhKfpG2uXWUlltXX9e7uHSjTWrRd8+du/C+qEKZ z6m3jq2//e7XS0tXu3vmikpagD9NEuPC0uXXrt3+8ou/XAMw/3bn5rsfERnc OBQuMCqexGCVVNXPr6xfeu3GW2+/vzC/JZfr+/omenoscpmmxzg4PjY7O7tm NI5o1H1ymRHUnsOu8g1Kj4gngMzm8evyCxtqm40bZ99b37olVfX5h6SkoKgK 1eDpc+/IlL2wf7Wdoz0mm04/sbp2CdA+cfLywOACHGugaafP3vrjn+6MTp1u autVakYZnAYWvzmP14SnVIFo5Be2QVqMQXHBihPzqtHZvEwiPyk957dP7QZK uzkGTu2T0A4MwYw4f5/DzvfeerCQM+Lsr+/wfhTidmIiZnjijbpmm6Ckm1ek 4xZ2cgu1TLa8y3iiTT7O48tq68w1YlMeq7GyWiOqUKEyOZVi3fb59+fmL0hl vSxODYtXV1gk6dSPX7/58fbZq9tb5yds82cuvnbj3fcJjLyAyKh0ApFVWMQu Em6cOX/91s1v/v7tpUs3Rkbm2pU9Go1xcMC6tLi2uXF+dHQGhPr1199/+61P e81TGWj6AZ84Gqums8c2MrERFoul5FW0qQZBbHMYJYIyCRbPzWNX640TtQ2d 6k7r8onX6hq1qem0wBAUgVSEJxbUNXbBTvnw428++ezO7T/e2TjzLrQMcEEc QWuzbFBvXmxoG0zDFrIKWnllHRnE8pB4OppYAm4QeiiRVhQYmrhj52PIqWsu bt/NatkHfxxt7jtBduB/f0fYTx1BdpCzh6fHQ/D0p0/+Ag5VuWadJzCViPoA ZyZbSWdJVZ0LEJekiomKSr2wRC0SaUg5IkpuKZlSUtOgV2gtlvH1btM0vxhM PoddWMMR1MnVA+dfe1/fPdLfO2adWJhf3p6cW2+QaZMwhLzCMnZxhVxjPH3h yo033/nbN3fWTlwAJqtU3efPv/72Wx9eungN6sKF6ybTCJdT3tSowWex/Xzj qOxyaefIxoV3Pv/bnS6TLV9QU1ojxefw2PwKUZWEziqOicuobVR2984VlrSk YVjHQ9F7DkT4B6PCY7L2H47OzinW6MdnFi/ceuuLzbPvjNnOAM7sgiaJfMgy cdrYvwJkjk3Ji4in5bKbFbrZ7NzasCQGkVmXTSsDoUZjac88+wIiHS4ujuEg O4zA0ofvRen7OHveL2cnD+SKBmfEJyNN0NULRCM+NsEyZBNVjXMLzSyOjkxr 4RRooAmqO+dLSrUMZiO/QM7jtYrF3a1tw5zCxpmlc+eu3DYPLspUQ9bJjSaZ qVVlqm9Vk+mFTXJDn3WhWNhcL+4QNygNvZOrG69tXrgpqGigcYSSdv3GuevN UuXK2vbfvvn7F599c2LlLGjy4uIps9nS128ZHbNdvfrm2trZiIgUKqUQRINI 4Kl6JprVg2gyd2H90idf/X3x1IUiUWNCGkHWbtToBhksgVbX9+VXf5+cuShT D7EFjWAngsKx4TH4JFQuuA6/oLTM7MI25dCYbWt0amtp7XWNfgp4AqZubuV6 q9KSgS9OxwmS0HxafpNUaxO3DSdmCnC0GnK+GIVn4wh5vn5Bnl4PudqvfHFM fwCZXZwesTfBf4izQ6i97CAjE+hOTi6PP/Zka6u0vd1YLBzlFhgJZGlVzVB3 z5a8fZaSW8/lSTnctubmfp1htq9v1WiaF5bLPvwTMOvOrbc+s06tNbZ1Lpy8 OLN0Rt9jpdALAW1D73hDY6dQ0NzQZGpuMa+cugl9CtQVTJ1aN1Yh7uAKJHPz 57+98/e//vVvp7euGI3DU1PLfX1jS8sn1zfOLC9vAM5abV9NtRRyfXFRPYbC ZwlrDwcnWm3rf7lz58/f3qmqV/gGx84vnbr90ZcjE9NTM8sDFhsKywcTUlKp Ss1k+QangarvPxJ3NCAVvB9Yi4LSViavlsmtb1UOiRsNkAqT0dDaLTX13S1K a2l1F6dIQedIQKJZQgXgnJxdRsqrRRF46ThGdFzqz3/1FGB1d2DT2dt+8ZED 5+88nr0zet6fvLafE++JjLK6PASHw1Hf6O7eWXGDic3rpNBbDebTq6c+Br+R m9fG5EixeBGHL2+RWUcnL3YaFlGYgqo6zad//tvnf/767ff+fPr8TZ1x6Pyl m/2DNkmrFjLdtG19YnK9XTVg6p24cu2jzTPXP/3yzvVbH43bTmycvmYwWZns khZZ1+tvfPDxZ1+urp5taFJJ2tSjowsWy9Tw8OT8/NrFizfff++L7c3XxNVS EiE/OhJ1PDQ9l11d3dShMYysb7+2tHphYeV0q6y7rqFjeu705ulb/IKG0AgM oHosCAV2OiwWf9AnGeA9EpAEy72H4sJiCFDRiRSANyaJmkkQwFMys5rGqtUY bKtbb1unz5XXGnI59WDFU7G8RExBYkYhtMis3JKkDEoCCvvy4aNuO3YgULu7 OTTBzXmHA/YHcEb8nkNM7MPXbm7u3q5uXk4uj7h7/phfKlfq5nmiTkpeg0a/ fOH1v4GvY/EVVHZrNqWWQK0Dd0dhtqCwpXhyTQq6AKzpu7f/7fYHf1k9deHU xpU/fvz53/769c2b762duvTapfdmp9b7TNPLqxdOrF8yGK1bZy5/9fWdcxdv wC7YPnO9UdI+PrXU3Tu8eGJ98/Slrm5Lq1z/1jufvffe5zeuv//WW59MT69N jC0tLWyfPf06REWVsgeNIodHYNGZLDDexBy+oXuqrkllNNt03ZPBIWg8oYjK qPXzz3zx5agDfnHh8SSgsU9wul9oRlIGC5aH/BMBfP8wzPEITEomO4NQmI7n Q04MCM/EkouhoGNsnH+3z3qyuLKdzq7NyimCdyHCgJjQ88WEvLI0PCMtm+wT GfXoz59Ezh1zR040dUditKd97O67VOLA+f7ZegC1lxdy1r2T00O/eepVld5W 1dQvqusdtV3dPvelWrfEK1bT2W34HIifFcnoIiKtnpTbEBnPwuDLSyq1jPx6 QWlrda26WqzoG7Cdvwxm6S9vv/vZlStvn96+YeqZKCluralVArA95vEhy1x3 z6hcaZTK9ZquXtvsie2zV3Td/SqN/rMv/worinbjwNAMuLvp6dU//vEvV6++ C45O3dF78sR5kO7aGmlLs1pYKqUxRJA76Hmi2gaNqLKtskaZQysGDvv6J+/e HeLjm/775wJ/vzswKCrrVZ+E518JjkzMAZwT0plpOC4sYT2TVAQ4p2I50N1C YwlRSZTjEdj9x+JhWddqUnSOtaqGBeWKfEEzFOCcllmAhCN6KeCcjCNFJKOe 3rXbCbk4D/EYQGzQ6gdDiovjFGVnhwO5O7KBtD/karyHIauqu2ealZNLGx+d 2PyoodVKzZMUl+sBaiZXBjgnpBWgs0RA77TMktSMYq5AAYk1Po0am5QDW907 MNNtHquqlY6MLo5NLHdoBrSdIzViTWW1jF9YBfCCeqjUvfCBBklHl2FgZe2M TKnrGxwbGZtpaJYXFFXKFIaxiZV33v5sc/OKyTS6tXm1xzjaWN8+2G/7+KO/ rp+8ZDSMAHWHRlat42sKVX9ljTyPXV5QVEemFian0aJisg8fjg8JzT4ehHlp f/iL+8IS0XmBkbhkTP7RwDSAl1PcIqrV5uRVxabmRiSQgc+wTs2vgbeA5A7m F5TJOk2zALWya1yuHYV1JrcROiMEfFp+JZ4mSMumpGQR9x7zcfN+CJEOO86e LvZI8h/y2cXh9JwgrXj8n9JKpbRjXG1cG5+/VVzRlZvfWlHbWyTSAdpZ5JrY ZC7wOQNfTmO1JKIKY5P5ApGmvE5XWqPKyOYFR2WiMlnJaBqTW8ERiLsM1qGR 5f6hhfomnbiuHYQXmKxUmXSGYZXaPGSZnVtcX1je1BuHVle3JicXKqoboQNK JCqLZXZj4zIYy9mZ9VMnL7W1dikVpsGB2Vs3P7l08R1YmVu8AK74xhufGc2T IMupaDJArVD1QsoGqCMi8H4B6XEJNMDt6Rf9ga7IJHgswTcEDeyNSaEB8iRG BTq7IDgaHxKTDVAz+Q3wbnQyFXIfLEuqO1T6yeomQ+/IGoCs651X66cLS9tj k2loPJclqM2m81KyyAGR0U/85OfIGVn2NO15V4ofjIT3wvjdaRc7zk5eTz9z QN4x0to+rjGul4kHOEXKovLOijoTAI7Gl6ZnleTxpXGpnIAwIo5cmUksh2po G9YProjbTGnZ/NBYfGQCIQFFSc7IxVMK51cvLkJGaNbT86tEFa19vZNymYFG 45vNY0BU6HTLy1uQ9W7cuP2nT/9s7h3q7x/t7h6SSrVbW5dPnTqvVpuXV89Z rAtSubG5pUsqM0GIw+Ly6YzyC5c/6B9aMvRMStr0xaVN6ZhcQHtx5XxTSzeJ UhyfQD7qk3LMNxVgfGFvKEjHQb8kKFg5HJCy90jskeOpYXFEh1aAepTXddK5 dagsHuAPLwL+oNLwCr9UKpYYiyqULe1DE7MXO3QzcORCSyXQSzJz8lOzqLEo 9NPPvwRgOkaEPJzdvycaD4ws3ZvDRa46dXLyjI7Bm/pXjQPrtqX3xJKx/EIZ jlxRVK5NwxazBYpey7ah72Q2tSY4ihKfxg2LzY1JZgkqO5X6mcb2EQKzCk8V kZnl6VnsyARiCoapNU7qzFOV9R0MTnmnzjI2utShMtfXK4aGpiUS9eLi1vCw rbd39E9/+us7734ISfDNNz/q6DBCEtzcvHD9+ruAc11De4GgpqaufdCypNJY JDIzkVriG5haWNys0gwlJJNYnAqpsru4rGFq9hS4yoHhRSq9LC6edOhI/Iu7 ggBSgBoUA0MUAGkBZ5CR3QciYfnywSiQEeA2QA0iDKiCbjjkBYAF5EHPAXZC rohX0taum7AtXIEIwyuWxiTnJGbQU7PoGDIrBUvad8jXzX0HcuGeuyco9Q/G jh4ks8NvgKlzdt7J4ddZxrZ1ppNd5jOVDRaRuJvBbS6vNbYox4Dkhr61jOzS 2JT86KS8FExheFzu8XBidWOvvMuWTRcnZHDR+GI47lBYbnAUNjmD0arom1s5 t7J+ZWHt7PTsektTJxjgjg6TRtMLaIM/12hMwOf33//86mtvfPTh57PTJ0ZH ZjdOXbhy5c1z525MTZ4oK29ubNa2yU3NrUaw2aBpSShmRCwxOY1SImrNZZZg sugT0yfGbav6HjB4Vzl8cR67sk3am4rKQ6HzgcNkZmWhSB6PYkD72/VqBLwC CrzvaBzgD+IMWgGSAmgDvLACOpNX0AgchoJ3oQBn2AWVDTrbwqXJuUsS+QCV VYmnCnGUghQsIwlD8j0e+diPfo5cFunm4W43G9/L3ffIfG+uFta9n3jilyr1 iGXsjLhpqKphoqZ5DFInWyCFpbRj0jJ5AWBPTOcBh32CcBCUMokicXO/pnuR kFvhH5oFx5qgTElj1WCyi/xDMuJTyS1SIzjkU2euntw6f/r0tZqqtvpaOTjk /v7J4eEZvX7IbLYCb9+4dfvjP365srxx5vTlDz/47H1QkU+/vnz5La2mH9oo 4FlR3Z5DLwPDnIEvOB6WGZOUGxOPj47Dlpa3MPJLIGXb5k5dv/XhgGUmOY0M u0ChHJAphgBn/zB0RAIRyAzMBK145qUAwBnsBBTQFaB2UBok+pVD0SAgYOSg IRLp5bAtwHPgDBS4PqD3qO3M0NhWp3GmSdoHYp6CzYtDUTMIzLBY1M9/9Yw9 g7uBKPzDcf4HJsTdQJxffTVgYemyqX+tpnG4oLS3qc2mNizMLL8+tXB9cOzs 2StfDE+cJ+aKmbxWWDZKLWU1Bl3PSnvXNPwSdbft2ptftCgGA8OxYOa5gia+ oH56dvP6rfe3z10TllfLZJ1gfdtatLbJ1Zqq1sZ65dCAbWhg8trVN7/+650/ fvTFxvqZ929//PEfP//zl1+fP39tdHROLJaCl6ioVgCTOUVNOFIxWNxjQeiQ aHJEdGZAULJU0dPYoiHksIvL6gHq4dGF8ippWGQGK7/aNnO+sbkHQyyISiLD twDS3/3BF/i853AMAA4CAjoMrwOBHSrtkIj6NnNFfRfwHz5wwDcR9gVsGiAP fXBy7oKhd6l3+IRaPwWfhN2XjudmEFhxKfjf/2GvfbAOuQTd0ey+64P3Jlkc Szdn5CxrfBZz9dSbjS1D5TXDZIaKK+y+/sYX62ffHhw73WvZKKnqDI+jRibk onDFGEKZYxg8IS0/HVeQwxSdvvjh5pn3CaSig4fjSOQiMBhFxU3WsaVz565+ /sVfyitKigorDZ1DJcJ6o8EiLBJz8ksL+ZWtko7hwakvv/jbJx//+cOPv/zm b3e+/vqbD977E3C7qrKVxyvn8Cokbd3QRlE4NvAtKZN/ODDTL5wQFpoaHJrU 1KptbtPiCMzo+HRxgwIwb2nTU6jFLF7txOTW1eufLpx8HdR1/7FEaH9/2BMC 8QQABPaCo4M+CALiH4aFp4AbaHJCGgNCOlAdfB3gD9oOHwaDDT5wxHZ66eQN vXle1zPb3jlJY9fBrklCM6DdJ6SRXtnr6+X5kLOTi7vbD+etvj+ZZT93ztm1 vLxpcHittExbXT9OZxuqoLcsX6OwxBFJ9EN+qKBIIhApLJZCoteIxPpMYumx QExgBCmHUV1U1ra8etVsXoyOyQ4IQAuK23CZbElz58jIzLBlbH1jq1XWlJvL IRPZoBu9prGqCom+a7CosLpC1KRWGU+snP7gvY/Bcnz52V/+9MmXtokl4DmF wiWTWRXVMianJgWTB8dvDIoZlkALT2b6hGcf9Y0+7BNOZ5dyC6tiEjAp6cRW uS4ZRYyKwaAzGPS8CiKpqEli7B1ZTc/iAMIOfQDtBfYCUR0+GdHqQNQh/2RY B30GhGFHgHQjmdE3CdbhK+DxsMQihWZ0evGytnu6sdXc1j7S2NYP8ggNMSYZ ZIp86EjIo4/8GHB2u3f7iwemApELje6fmAef8fR8VK8b6THPNTb1yVSLjdJF i+2d0kpdcAQ5AcXO47c1y62WyXOa7nmdeXlk6qJKN0eg1UiUww2t5laZua9/ gZVfc8wnITqWRKGVYTH5ndqh3Fwei8Xmcvn8gnw+r7iqqkWtMnXrhwFeEBBd 58CYdWHMOrcwd2plZfPq1TfPn359em7VaBgSV7ZSSZyMdDJ0usQ0GuCMhDgM OzCahKNWpeGFvgEJR3yiElLwLG5ZKpqAJVD5xeUv7D6470BwCorapuwXVSgh N+05FLnvSDQAAnCB6potJ4DG4Kgd1g7KLwTBGQoghZ4IgANR49LocOw4bB4I DnyFwqqGzgimGplWKGiqauwurVFjyYKI+Oyk9Bxf/6ifPPlLZ2RM6e4gxoNQ OyOcRuZrkesTndwfe/xZvX5eq9sQ108UlVsq6yerGsfyec0EUqmifQiOwTff +erKtY+WVi9pdVZ5+0BDs35+8dKZix/mcRpxpBLISvsPp/gex8Qk0HwDUZFR mWCYeRwRh8mT1rVqpLJSgai6osGsH7L0TVgHpuoqW+USraVvanPl7EjvmEGh mxgYa29W8gq4gtIiGpOBJZCxOXSwEygsEyxiVg7icqubjNT82thURlBgeFxs EoXK5HCKcdm51WJpFpH16tHIPQdDd+0PyaaU1jQaICzT2GKgbplYA0oLygz+ DaIfqDSEa8AW+Ax6YuctPTmDd9A3DQ7YNBw/gyykcZsSMTxOqQyU6lgINj4j n8Sq4YlkadjCWBQHQy5HE8ty8uvTiYVpWFZ0YtbPf/Fb+5j/D3XD3dXDgTMC PDLl6vHr3x5WaebFDTN5HAOZqWUXG/ml3e2qCaNxqa2t/8YbX9x88/PbH/4V POrY5NrI2IkWqUlY1pbPqQ2JyI6IzQUvfTQo60hApn8IDnxXQFAqlSbUdJgV zaqWquaBru5ebU+nTDNgHNSp9APdw+1tmn6DxWIen7LMaNq0nW2dA7reKkE5 KSc7KweHxqWn43BZVGZuXjGZXgQWEUPg80taBGXyVAwbkAkJCkelptNpeTlk OpHILCyqCY1GPfPS4b2HI4HDv98d+NzesF2HYsDUQeiAYwGMMeAMjQ9YCgUr IA7A3qde8DvolxKTxopL5x4NxvmE4g4dRwOwr/qlwxKcKj63Ki6d7ReOTyMI eBXyNHxRPIYbi+FHprJyCyRVLSYiozQyMfPJn/36/lkyD068Os7uQC5gdXec P+C2a2+YSjNbVNaXy1TjyLIcZjvgPGI93WNaKStvX9+4deuNL9c3Xp+0nZqd 37aOnmDmVQYGpfkdTz54LOGoP8Y3OMs/NBvKNxh7xD8lODQDh2WBrygXVpbw S+rLqjUSRZdUCSWpqlc1y5SNsqnB8TMr22vTq93tOkllk6SqsYRdRM0lp2am YrKxgrKyQlElPoeTkpELwQeaDuR6QBuO4oN+CUcO+8bHJVNyGGh0NomUl5FJ DYpIe3Hv8adfOLb3SDR4v4PHU379B5/7Rg7Y6xjfgHJkcFiBbgg8PxCQ+sqR xIgk5vEoIuC591gyoO0fkQ047/NJYRS0JGML4GlkSm4qnheVworH8FOyhHFo fm5Ba1FNZyapMDg6/bdPP+/h6e0459/53kkasGK/2Yur45o/BG5n92O+yfL2 qaLSARZHl01pJ9Hbi8oHdMbl5jaLUj25tPb6Ox982ze8LG7SEqiCYwFJh3zi IJf5HE85HpIVEkkJDCPuO5LiH0rIzqlCZxUVCFpQ6QwwzLLWjlKAjF8sLi6p ExRJysul1dWalpbWarG2TTGoN4/1DgPsHAqLiM5mkmi5LHpKRnoWmVheUy+s EhNphSkYOvSyuFQqQA0F0d4nOO3AAd/gkEgqNR/ITMrhJKZm7z8SBjg//3LA k7/e88wL/oeD0vb5Jjz1vO/Pnzr40t4wyHq4HCGIhmNQDgzGS/vDQajD4wn7 jia8fDgBdADE/0gQBqAOjacGxZAB8ODYHFaRFGxAeGJuWCLFLyIDwI/L4GQz a1OzhSl4AYhJejYnMh7zwsv77p2L7vLg+TDI/Zfstyq6ezMiJ7fA4ExJ2wRP YKKztGSmhiUwlomHW+XDoqquuqbe1fVbyydvgK8QVbfnsiqDIzAHjsYGhWOS UPRUDDcmkZWaKcCRRRDJG1oHuvtWx2ZON0u69Z2WznaTuAwIrGgWiWq5nIYC vkpcrZc0yaqqAHBJZbVK0iKrbxByCqmEnBw8AZWZjsJiaCxmPl9IorGyKfws Mj8jmwutMDGdHptCgaQJOPv6BENhseTsbHpaOik4PPm5XUd/+puXn3v5+Iv7 Qn719OHfvOT33P5QABxs889+dwAgBUpDvoD0nYrlQAwBzwbZZP8xaIioo8GZ FHZTQCRhv28q4OwblnXoOAYwBz2BCoqhxKN5PmGZsOMA/IBockZOOeAcHE8D nPG04ngUYfe+g27uno7cd++Mo7v3GUBut+Xu6mS/4xn0wfBIQnPrCOAM+swr GeQIe8A/tyomm1os4KgXV28Mj23giIUMdg2FIYKqazbMLl2aXbwqV09UN/Q0 S0falOPyDtvC2huzy6/PLr8GkWd8bK1bbzHqB0d6JxpKhC0CTi2HqSgXdlSL FJUlmoYqaXlJc2WZkM2ikykkHIGYTSIQyWQ6PYeeR6CxyAwejsTBEDhYUkEa Nh8oHZlADIwEaU3394/y9Y3w8Ys8HhTvezzmxT1+f3jFPyQaS82rJlDLfEMw B3yTwRuDWwCfBvXLZw6DxwBHBwiD8cjl1IKMgGiAbvsEZwB6mTkiMI0gzq/6 pb10IHbP0SRYAeQP+KNgHTA/FIjyCcsAzr8agAZviaFUhCUx0rILcRRBIop4 +FiA945H3N3dfzBe5+rs4eHmjvg96IH2S7jT0tky5aRQNFRQ3M8vHWIJDLic ZnJuQ5XYJJFZ1V022/xFcm5ZRhaXllc5aF1798O/f/DJnas3/gKoKrVTglI1 Bl9aVqWfXbkxPnt5deONzbPv3Hrj8w/e+2pr48r48JyitraZz5YU8dpKCgHn nrZGs6xZXVetlTSKS4pJODyTQstjsHj8wjweLwWNTUbhWQXlDE45gVaEIwtS M1nRSeSoRBIEsYAItH9Q3BHfiH0HA338Y48GxL609/j+o9F+IWmQRiFrxKPA jxFe2h8Jbg1aIdhmUAxHAHQYDCA29EHgM/i9o4HpgB6IMMgySASgvetgHCAP OIfEUaDxgYbAWwApp7Qtl9fsG0E4GpoVk84BoQZLn4DOjUvL9jse+tDDj9vv l+X6INTILfKQOw8gN4GxGw8PHL5I2TFdXj1aXj1eKLIAn+NRZXFJfCq9iZxb R2PVz61cLyiRHvZLLqtWn3/tk7OXPxmbPl9a0ZWaUQjSEZ3ABFlu75oFjw35 8Z0P77xtv4fJzPRGl7Zf2qI2aztr8lmNAl5nQ7W5rWm4Q2psrVfVlA3r1W++ dmHKat1YXRsfneBwC4vKKrJzGJA+MNlMIq0oO6comyqEDugQDd8QlF8Yyi84 cde+gIDQ1KR0qn9wGoB8yC8BnMZzuwJf3BO669WoF/aG/2FPGNiJZ3cdh1YI 2RkKOAzp7zfPHWMVNhFyS/ccjgK5fnZXELQ5KqcRFAPUGEEyLAs64PN7IwFq wB9UGjxeRVN3R880fADgDU2kHwvDp+CL4zLyo5JJ4Dd8/IMfefRHjgt5Hjzj 6z7O9qvjXZDQTRC2q2cqasYk0hVx03wutysmRZiYKsjMrmBypDGJeRRmbZGo PTaZDgGwRTGSx21NQvEiYulh0VTfoIwDx1ICQrM4RYryWiOrSF7bbAIPlo5l h4SiQ4KTuVzRxsrmhLFfxMo3yxSddbU9bc0TBo2tR69rk1xYP/nZRx9fOH1+ ZfkkPY9LpOZlk/OgtUGkxRK57IIGtqARKA0SDXwOjsFC+QYng4UDoYBEdtg/ 8YBP3N5DMc/vDnr6DwHPvhh40Cc5IAwfGIkHRwGMdcxbgVDvPhAJzhmWEDpe e+MLYZUSVPq5l0NAlvMEbRhyGa+sHSAFuYZXnn05DGQEGA5PgdX18oFcfj2s gyxHo9ggGgmZBanZhfHptJiUrGN+QQ4+/2CwzqHPyK3I3F0c9zGjMmp6ek+B 3xCUDDK5RjShOSa5NDqeExyem4EvD42iAp6YbGFEHPXY8YzYJBYUtL+ohPzI OMYxfxS8uHt/1KvH0g76pu/3RYXFkMDdvXosNiAoOTA4KSkFPz25/MblN6f6 rRszi8MdGrO0TSoSdjaIu+VtPWrVxuqpk8unFHJ1HluQkp6dlJadiiYnoykY PMSWNqV2rKhcBu4uNo0CFRaPD4rEgIxA+Yemv3o0Hv7WseNp+w7Hvrgn/KW9 EXsOxu8/mrz3CAIpqIRDLoDVkPgA+ZcPRsHyrQ+/Xd64Ae46OjkXXAT4ZHXP QmWTCYAFNQaJBmUGVgPg4KJTcIWCqg5iXiUg7xdJBJCBzGiyCPIL/J741Gzg 84M4P4i2A+d7d+RzwZNKTX3r/CIzidqOwjYnZtQkoCqS0aU4Qm0GvrKovBM0 gZJXB1ksOokRk8wMCCMkoHhhMQwff+xB6BT+6bBpB33RgPPeY6n7jiQBqYIj s0DPk9NoaekUrWb4+uUPr557Y2N+a25gYnNqdrBdVUAg2vr7z5081aXSDg9a 6+pam1pU3MLy3Lwi6IAxycTUDGZ2TnG5WCtu1oPr8AlJ9Q9PPxqUvP9oDCg2 BGTobiCzAB2oxK+ePfbLp44An3/3XMAvfnf0qRcCQDRAJYDJYKRf3BcGSRBc B6RpYDik5smF83LtaIdhGsQBLDRkQL5IBZACsQFPwBl043BgBpZSDh/Iyi3H 5BSDtgDOwGQUsRSiCpi9yCQi4OwbEPLwI0/Y/cb3+OyYB7+nGwjOsYm5mq4l QUk/IUeBJcpQ+Mb0rHp8TgOT217TODw0dtHQd5JV0ArmLQHFJuZWZxJFoTG0 Y8fxyWn8qBjyMX/0Kwfj9xxIOhKAORiIASZAf/EJSg0MQx8PTY9LyCoplvb2 rsxNbdmsywsj8xdX1m9tbysrq6r4/N7OrrnJmYaaxrHxaamii84SlJQ3FZQ0 ZBK5aRhWZBwpOpGCwrHj06jRKWQQjT1HIp97OQgaGRB1/7HE3Qeif787GHAG Ar9yIG7XvuhDvtAQs32DMgF/h81wTKCAZwbMYSUlEwmVULySttfe+ErXvwqd 7pndoRCl2UJ5YYWawKiBTQBiQ0F+QXJiIOpIMGr3oXhQZiytKgknCIqjQh8E PkMfBN3Y+dBjDj5/bz7F2RX8hv3uRndxhvgMuRtwJlKUOQwtjiJNw9ZiibW5 +XIaSyYo0xeUaIsrOlMwfAyhpLLeVF7bwxYoUHhRHqdFWKoEm52b3xCXzD4e TvSPIgVEE/1CM185GHHAJ/ZYQHJwaEpqEpNArGhtMi5Mn57st6kbpdtz85/e vDlhNoN/7jeaOuSqqck5mbIzA4dce8XiVOTxa5kcMSqTE5NEhSbo0A3f0LTj kRngZvf6JMK2B0ThfcOxYOGOR2QlovPDYnJeeCUiJIqEI5WFx1L+8HIwODeg PSAMYRwwhxUQkyPHU7MoJSAm8FRYpV7afEehmwaJAPaSWXUS1Wh5gxG6IRSY uoMB6SDLrxyNh4wJ4APOwGeHdKCIRcmZzNhU/KuHfLy8H/73fEbun4GkbWQy 3H4LLK9jvqnt2tkikTE3T44lNGHJstiUyvSM8kxcNZ2lyCY2sLlqOlPGYElr GwYrxUZRlbZe0kPnVAvKJAJhA46Ql0Xm5jCK8VQ+CkuHDhWbknPYPwG8FsRk 6FORMVmJSaTo2AwWtEmpwjLQPzEyuL40//kHH57b3N46sX1iYX3UYmtq6S4q aSHRy7JIghxGpbBSXl6ngQQXlUpLwObj6GU+4diDYGUDMUf80/yC0TFJuegs vn8YGhIHqMGLByKe3n382VdCXjmW9Js/HAfqvrg3GJiPvLUvDBRmz+EYeBEc NfyfCelMsB+/+N1BEq307KUP9Kbp53YH+IdkNEn70NmCY0Fo2HF7DycCyKlZ Aki7ew4lRyYwjh7HBkSQAyJJSRnsLEpxaiYjJgm3Z8/hh3Y+hpzY/4NrZt0c NwJyQq5ydYLAuPOl3cFq3XxZdR8jXwk44ykyLKk1M6sym1jPyFfwC7vqGkZh nUqXAO3rmvoLhfKe/qV+y2qfZfH0uTc6tIOUXGEeV0zPryoQSpg8MWTkABCN 8IzDAUlgBvyC0uh5ogJBTVYWTVBYsry0cOH05ts3r398+/YXf/r0k/e/XFnY nppYEderi0slOYySNrlJa5gAPheUtqDx3OjknDg0HU0qCIjKhLwADmf/kbiD vvGZxALwIbsOhD73SgBo7zMvB+71id/vl7zrcPyLB6IO+SfCbwCQjwamBEUB 7dF7j4DIBEDBfolKIpMYIog/v3rqAIEivHbrc4FIumt/KPzPhwPSII9DhHnm xWDog6DPv98VfiQgE40vjUnOT8sqgYSYiuXB13FkfgIqe8/eg/Yz/F1/gDNy Wz/373B2cvL+6c9flndM1TZayip7uQI9maEi58rz2FISpQE4XFxibGmzcXhq LL6KL+jgFylr6rvHp8++efur2x99+ddv7nzxb99evPL+zbf/unHm7dnls6ah peGJ9fauUXZRU2WDrlHWV93YpeuxzcxtTUwsazWGMev45Kh1Znzy7Ztv3fn2 zjdff3vl0hsD/XM6g8ViXWpq6aqpVRaVNKZhmcJKaV2Lrl6mK29QZuTw/KPS o9II6VguKjN/96uhKFx+Vo7gWHDKK4cjfvXskef3Bb/wauivnj8WEIWLTKFC qNl7OOr5VwJBwYIiM8GfwH4Hi/L8y8cBT+TMxhAUMbc0NSNv78FINI6zce4d MkP07IsBoPZgwg/5p760LxpwBrO3az/sVnRQOJgcFo5SnYYXJmAQPmPJnPg0 /Isv7bFftPLDC8AdN5V14Oxsl45Hn3i2STogkY23axal7UtFZX3C8j6j+WR9 03BDs7WmdriyekBcPxSbwE1BFcQm5qEwPGn78ObZt99+76/v3f7bx5/cufnm 5/Mrl+eWL08vXJpevHzm0keDo+uw07Hkkjx+C4lRRcuvqm3SdRmsY5OLn/zp yzduvfP69TdAk02m4bNnX//mzreffXHnq6/ufPrp16+//v7U1KpCYeDyq+ub Vevbl19/46PL197Tma2NUrV5ZHpt65p1aq20Rmq2zMm1/b4hic+94vfK4bDA WCy4PhSRu+dYDPA/Ec1Iz+LgKcVwRABvsaRCSl4F2c7hl/aFHAtMgWMtMAID 3TY+hfrz3+xTdloB6gPHEiC8AKVDYoiH/FDQBNHEkkN+6L2HEekIisyJSs6P Ts3LIAsxxIIMAisqEfPMsy8422/K+4NrkF3d7t73++5Na512ODk/ls9vbJZa e/q29abtnv5Lw6NXF1bfHJ24ZOg5WdswTGO04InV0XGs6DgmhV6XBwEqKJ1E K1ldu35y/eal1z565/bX66ffBD73Dq1K5AN1ErNcPcbgNIEP9AnCgetDpoqO xb16KDw4NEkm67x+7a0PP/jsxo3ba2vnJ21rpzav/enLr7/9+53/2913gLV1 nm2LDXHiNKMj42tW27RNmjROvGPseBtssMEsm7333nvvKZaE2EMsIYGEkNhi CSGGALHE3tsTMBiM+Z6jgx03o03b9L/6/ed6L10HIWO4z3Pu577f877Ps7mx B8f2Y2Tce7g5u7C6vvlkc+fpzt7enYdb8ysPNnb3Zlc2giKSjS3d4wkFYbGZ ShogSOyvKhsdllX88utrumbuCrfM4dXYygeAVdG0RrGFSIZ8Cq7nhrrFb39/ DPzjF8fkgFhkz6nB+PLENXUd++GpdRev+A/+dObydRN5ZXMQ0pAcEaV3+jaA fOSUBuB89BvNM1cNQeYZWHoBzpcVNd57/3fCNbrfCWdhxe9nJZGRcnkiMhjM y6YW3sSiFiqjPyKOnpnXWd+01NQ2w+lYSkmrCQjOc/VIuSxvLnfN0tgsVF3T 5fQ5zVNgDY7JnzqrEovN7+TN9vCXaxuHWM0TNEYvgGxsGezgFm/nEqdt4Hvl uuU38oZn5HUgxSuqmSNTytrmclfVff1j8gsrWjiDgtGVto4xoJ2Ha1s7OztP n+w+3toFPtnefvL06VOA/fHjnd1dBH/4Eq7F2PSch2+wlaOnqY2bmY2HVxDW xjnY1Mbn82NX/vzFua9OXZW/aaB02xwQvnxNz9DCy841HIaLdyyIcCB8Eq3l 2k1joJ1vLt8Cj3n20u2vjl/7+NMzgDwhm97IGT986uaJsxpySmZ/OXodJIeC ut0NdUdFVYdDx1W+Pqcjd9MGlMZNHQc9cw9VbYvTF6+/8+77qFR+vpt4v7qj +LNCXsg7YqIIztJX5G9VVPfQqwaBpaOxTCAQFnucP3i/tJyXTWyKiCFdlDO5 ctVC3zjAwiY8IDTd0S3K0i5I18hN9oxaUEg6q1FQVtERFVcUGJoVGk1088Ff umYCLvLsJUMQe3CjXVBCllq5+GBzC2sScYU6eraX5TTMLNxd3SKScJTKet74 3Oadu2sA6cbG5pPdva1HO493tlBst7e3nj4FzJ/s7Dx+ure9sb07vbAyNr1Y 28hJSsv39I/19EtITCXfvG31x8+/ee8PRy7d0FLTtQE5pG3gkpxKiccV+wbh FG+agJ53co9Ky6ab2/jLnlMF837yzM3zV7SAnL88dvXdj45AVgXGM7IKvKRo rGfmC/4FnYjWMfa/IGd6/orxJQVz0H7WbjF6lt4a+g6XFG8dlb148NU3hPPO Yt+rXYBBy8Xsl2gTBd6Q/N0fvmRW8ejVfE+/LCu7pKhYWj6pcXRqk17ZW1HV Dwr52g3rW9oeIREFppYhQDL5JBalvDUjl2lg5Hn4qIKza0xlXR+IkGhscVhM fkh0gaKKjZKaIzh0uRtWN247gjAzcwx18MYaWXprGzqqqpnpGzipa1ioaphr 6TrYuYZGxhN5vMHFpbvrawDm7vb2NiC8trZ27969R48e7e4Cc2w/2Xn0dPfx NmD9dO/x7h68BR8nlzdm5DLicSTlW5agJ68qGyhqGBlauhmaeVrYBsIrxIOZ tT+ACV+CwfQOSE4iUOCdE98oHzt146K8jpa+s7qW7edHrkDGJJW1FlHbTG1D 1HVdQDCDKwRveFXZ5shJDSV1e2QzhVO0uVOEka2/kobF2cs3Pzt0UlS4Xxvl jefBDAfaiASFGq2oicFIHDjwBkip+oahyJhSR0dcWgY7MZUyt7RR3zzU1Dod EkEEutAx8Da3DoN4xiaXlFW0VVRy6YyO/Px6Q2MPEzPv9BwGiGrfIEJgeKaT e6wOyHgtx6vKVmABvpS9eVEZIsTb2ikU1JqNfZC9Q6ijU1gyjpSMK7Kx91NS MQWaDQmPpzGq5hbvbD1GaGJza3t19e7c3MLa2oM94JGnT4Rje/Px+pOnu4+2 d+FTIHWWVvdGxh7mFNTomyDa0tjK65Ki5uGvr/7p89NK6qbWjoGe/thIbHZU fI5fSLKrd3RiKonDm4hKyJU9f/PkGWXIGkpqFvYuEcDSh0/e8AoggEkEFX1B 3gDE81+OK39+/Oap89rfXNK7oW6vpu9q6RIFw9DS56Ki9lk5lfc++hTFWUIc fd79vECHsCPJfuEIzD5Di0pKyvzC0TmouXmUQuuOwdKx2HISlQUJbnD8Qe/A vbhE8rUblleumVrYhEbG5cNFb+KMjs48au+ebe+aYreNhkakm9sE+AbhcWml 7r5JJ79R++Lotc++kjsiqwK+GJhZ09DF3T8ZNKp/CCE0LI2AJ+dkVdTWdJVQ 6nx8sfoGLpr69noGtubWLvi0gorKxunp5fsPHsGYnJpZX3+I8gYcQB07gPVT JJjXN/faOkZq6ruLSE3WDmGWdiE6hq4KKkYgCN/98NCZi6rmtr7RCbkF5DrQ +fDqHZhQ28Rv7Rxr75kikmqUVU1OnFYCx6qsbunln3T6osZ5OV1tQ092z1xl w9AtPY8zckbHz2mDJQTh8fVZzfNXDRTVrLVMvY2BMC28zlxRP3NF6dVfvYs4 PwkxKcn9ysYoe8AJsgEc2ZAlfOQtZGhk6lRM+rSsQht3vK1rtbJ+orZ5qkcw 39Ez2z98Z2DkbmhU1rUb5jfVHUwtg+A2hKsPqHr4J3r5J9o7BadmkGvquzx8 4z18E0Anh8flgBl8/+Pjfz0mL3vx9idfXPnjZ+fllU2jEwt8AnGx8cTiwrp0 Qqmfd3xUeFpxUU1mNsXdM8LOJcDZPVhOSeuiwm1nz9Dqxg5er2BoZHJ6ZmEd GBmUH3JAQtxFgnlr4/Hu08XlR2mZNFf3uCRcGQ5PB5eqetvukoLedRXTW7q2 ts7B/kFJvgEJOURGflF1QnIBNpHYwhEQC6tKShtKac1Gpm5nLyEqCCg6MYUs r2QEmkTLwI3ZONLRt+Lqm3z9th3oZAD5qKy67AU9cC7nFY0Ub9neNnZX1XM4 La92WPaS+IHXkNLownz3nJfRwH7eLElcWCpURASDVLAUkXjrnY9xKYXMyn48 vjY3nzMx92Dx7tOB0dUu/oJfcKqJRSDIubwiFvDbNSXjE6dVDh27fPzra5cu 3zp6/LLcNU24N0toTZD6yXROHK4YBOrbHx4GCwa/PCR6UFzOHtEJeFJ2DiMj jRofQ8xMoxYX1NKprWmpRX6+0VEx6c5u4Sq3rIA2IQ6Zddze/vHObsHDh9uQ Fp8ix95ToeoQKpHHC8v3uJ0DGZnUxMSy0rLOPGKznRNWSdVO18jDyj64vLJj QLCcmVPu4x8XHIKnV3Ays2jY+LyUNLKLewQYzxhsjpau3S0tW4jnIycVM4iV WoYuCiqmlvahNc0jbT3z4dh8M9twFR33C1dNgTeQsniXtOVVLa+qWagbuCho WJy+ovLRn78CxkXqGwuRfF4r5nkafF45Da2OJCosiSLzyluWNr6c9uW07MaY hLJewdT6k72lO1v1zcNe/jgzq1AHlwRXz2Q9I2+I25DIjJiEAnJZc1NLH7OK jU3KBpo1t/XG4ogefnEt7SOBEWmQ/X/3yamvTl4DTXXsGyX/MEJeUa2Gpo3i dcOIsHQKqZ7XMdZQx2tgddXXt2Ox6aD31LTMTpxRuK1nU1HF3trZu3N/8/H2 Hmg7COPNzcdPdpCTrd3N8an56rpWMrUOWW2OLXRwxF64qH/8lPrh40rXlEzB 4iEytbAKhE10XDa5rBGGX2BiZEwmBHZySjHgbGMfoKJuYWMXfEvHQf66YWpO hZ6pBwSzlUMYo5Zf0zgUj6e4+eGAk2/re4IuPXFR+/QVfTlVSxBONzSt5ZT1 vz6v+OZb7yH1rsWQWiU/pDeEKw1E0JLZ+zU6xCWkwLBAENa2TWSVdhKp3LHF 2bnV9bXNvd7BO05uSVo6QTp6oWfOmmnrBebkN/YJ7rA4/fUt/fWN/KXVjSd7 iAYYHpuuZYGLTPb0jSgm16rctvjw45N/+uy8krr1oRM3XH3jLR2Cryjoqaib GRo7VVdxRkYW+vnjm+t7S/P38jKJOXmZTq52Ds42tazK9Y17O08Q9YzsK9x+ uiPkDQjmnZ3d1XtPx6fW8enUoPA0XDrZ0t7/0jWtL45egAEC4Lqqvp6Jg4G5 Y2pmMam0Jjw6JQlf4OYZlZVLr6rtAqHOaR8lURpxBLKza9RlOR3ZcxohkdnM uj4H12gjc9/wWGJWXh2V0Ymswk0sADuppuWgrOV65JyBlmng5ZuWJy5oKGta XFTQOPr1WemXX0WfCYo9a9DzfDeKsD8Euo4Rg3bPQWahRTCSUjIiGIm33/+U SG4KxpICooj0muaJuY27D59OL2z7BmaYmEdo6/mq3XKLTy4fnXxcRGnSM3U3 MveCPwGfQsol0hube+49fAyADwjGPX1CE/F5FGrTN+fVPvjo2HFZpWNnlK2d w9S07Y6cUlTXtrZ19E1LK8zNJQ8NTIFMnhpfWJ5ZBsE8PjU8MzctlM2IjAPG ALSBkMGebDzaBoHdyx8CqTMyuQZynV7VxW4fx+KLzey84ZfRN3W+qqQrd10b rKKRhUtASDyzmuvjH6+haREWSWhsGWBWd7R3TTS3DiWnlDi7RWrcttXScQyO yEoilOEz6HFJJHefxBIqJzu/urySR6JyYxKKwCDYuUZoGvt9dc5QWdv9tonP N1e1r9zQlr1w7ZO/foXUs8WISiJb48UkRL5rCZ8VNxb2ytnvTyQq3F8PSuQ1 R3dsFK7c2ZcANz6HN72x/XT5/tP0bMgjTG//jIiYoph4cnp2rZN7tKVdoINr hK1DoId3lKGpo4WNBy41v6d/HKCenltOJhBLaY34VIr8Vb0Tp5XVdR3ACJ++ qH5c9oanT2xWDrW4iJmbXcpu7AHzMTd9Z+vODiQ7JH6FBnBraxs1gwDvw7XN R5tPVlcfTUwslZYyXb1iM/MqweY3t40Ojd2va+5z84mxcvI3tfbU0LHS1Lc1 sfKAkDazcs3MLfXyjTEydcnILuvpm+vtn+f1zpSUNrl5xtg6BGdmM/oGVgZH H5bQ2nDp5Zl51f4haUWUFlpVJ4nKyS9pSs+p9PJJAM7U0Pf58ozB2WtmelZB F5X0z1xWPvb1hd+88yGyDwIjCTiLozNGIt8mQVQwiwgD+nmFZ0lJZAcWRgyo Q+azL87HEMo8gzOc3XBJKfT5lb27D/b6h5ZozHZg15DIzBuq5qBUnT3iAPOw KKJ/EC4kPC08KtU/OM7Cxj0iCs/jj4OyXb2/VsFoZ7cNd3XPObpF3tZ3VNG0 Ae0EjqyheZBKb+7tm1pd3WIyG0uKmduP9zYfPd3eQVB9tLG9Jzzgy62tPYB3 ZWWjp2cM4j8mhoDD5aZlV0BKtXcJ9w9JqWbxy6u4Vg4BqsLVyOralloGdsaW rq7e4clwvxRVWDv639K1dvKI4HZPDk/eX4G/ZfgOq2VodGp9+T5Y+Edc3hw4 rOa2iYzcqqDwTLiCNQ39RFIj4FxQ0oRNLg6OzNYx8z8jb3LkzG1tMx85ZcPT l5Q+PyIrfeB1ZCIOeWgitV9Y5m/nRYXA72/S3O+xJYas/hKVeBkoWubld8Ad x+FLLazivf0yRyd3wAjcXd+bWtjMK66+oWYip6gPGTCLWBONLQkOzwmPygwM ScERSBk5FDsnP2//6GxiWW0Dd33zKZgIYn7lxPQDFnvguppZUGQGWMjs/Cqg dNBXPfzp+/d2x8aWwkOT+D2jd1c3l5cfbmzsAhXff7Cxtr51797jiYkVNru3 sKAilVAYFIg1MXZ0dPDzC05JIpAhqsNjsqPjiSBOwGDCADyBOiAXA8hYXG5Y DCESmw5BrmvsaGLllZZD6+TPwF+xeGdvfOYRp3Oysq6nsq6XTGuDAWhTyrnF pWzgDWZtDxgEGDkFdcmppVgc2cUbd8vAF2zLbQNXyICyFxQ//PgvSFsuYZV3 tD2EkJz/ljf2twKJiop+O9EhfLZ1ACMijRF95egpeVwG1cO70NuX2MRZhJCe Xd4em3mQmErUNrTNLWJW1femZjGwSbREPDU+qTCHWJmdx0zNKAXJhE3MJZex 7J0CafTGrSd7/P5pNneAP7AAPjciNqeghBUQjK+s6RwSrPQNzA0NL7Fb+BXl DTOTK5sbe5OTq5PT97p7x9Fts+TSehK5NiIq1djUJSYuk1LGMjV3u6lqYO0Q AiBb2QfpGLqADtQ1dkZxhmA2NHf1C0kEnK0cfD49JOvkEYLPKHH2DLdzCckk VhRS6tkdo72Dy4waXjyuGH6IoZmXT2BKbeMQ4Iwub2vijMNJKR1uXhbwBpBJ PI4cFJHj6JF4UcEAbsnzVzWANF75xS/RJ1LC5YuIeHs+j/QdnPdXku4HNzga pEaECBCOuIzUS294BcThU9s8vHIa2POzS7vjs+s9gzNYfFZKVnHP4Bz4l/Tc qrTM+kR8OeQUCrWFUsZOSSuNis2Jis3y8I7RM3QyMXVfWl3b2Npt542MjN9L TCZ5+yUQC2uodE4vf6G9Y7yza5LdKujrX7izsvXg3u7y4sYisvR3rW9wETxm K3esFjiBwaUz27PzKsBZgCSDpAZeA5dWllNQ7RuEu6lhCUY7KZUEIQ3j5i1T gNrOJcgvJP6Lo+dUNU2dvEKBt83tffzD8LXNfZWs7vLqzub2Ma/ApAhsrpGl 91cnFexdopi1/Kr6fk7nTM/AKmDe2jENOPsGESJiiQGh6S6eWMiVNk7IhKrc dV00mMWlDwiXhn47m/H9ApgorihL71duxKAdA6VEJWWkZV7BYCS+uXC9sGgg JY3FqBGMTK6DJeQLFkorGt19IzPy6ENjD3ILGtw8CSERRAjmEkpzTl5VRlYF ngAhHRUYggMXBhzS0soH1yYYnYPQBR1lZunDbZ8YHFplMDvAeBYW1ZXT2wTD dwVDy338uYnxu1PTj5hVvLqGvtn5nYXlXUhSnPbxFs4I8Ew5gyPcmJkL0reg pAHIBxgjLDorCpsXl5wfFEGAqNYzcYIMqHBT3z80Qfb8dV1TBz0zR+Xbpu7+ MYAzLoNibOXl7hdPqeAYWiB1BXVN3K6rmUOaAx6G9NfFXxLOWHaXMTohmD18 k6zsQ8Fg3lC1dPWKA+8Dl/WbSyp//erU679EtsGKfLvR9YcP4e7v/RL0YiLf 9qiVlkTqUElIvoROd3j6ZJKpvJrG4ZHJR60dk+3dM5DigyPSUzJoE7PbBaQW bX0vsLoVzM7yivbI6LyomNz4RJKjc0RQKMHDCwtSqpzZvLEFaXRrcGiZ3Toa HEKglDYPCe7QK7hV1byi4no4b2gcgDc7u6a7eFOQMVNSafDTOnmzxSWNhcUs CH4IaVZTXzG5Hga3cxxiu7i0OTOPiU8vA4GXkcsIDE+JxxcCMwA527sGAz8H hifJ39ACHwEuXtfUydLRzy8UR8imaho4qGlbWzkGX7ymI3tB7bKi3pXrBvI3 TJzcY8Oic0Ezg5wDrs4uqIvCFkCi1zZwA9dzUV7P0MzTzNLrurL+kRMX3/nt x1LSr7ywsPxHD6Q/sJiwNARSygBpRysDGIsgdR0hqpEEKo0w/OGjCvi0CkgK bO5MVd0gj7/a0b1SRu+qYQlAC0EAqNyyhYvO5oxxO2YysqrCIrIjo/PxhHIw aHBeSmsem1q9t/YEPN3S8pOe3oU8YhWgyuuepZVzCgprKyo7SCUNxPzqAcHq 8Mid0YmHLdxxSK9wzwLU2ITi6Ph84IeUDGpqNrWRMwTUyuufA2uPOhRQlQGh BC//RBB1QBoQz6qa5hZ2Pk4eYSFReKAOIyvX6+oG7oGxdm7BNs7BGrq2hhYe JtbeCiomfz165S9fXTz8tSKAfOiYwtlLWoFhGeExeSCYIevFJBabWQeCpoJg vq5qqaBspmvgrKNvd0Ve/U+fHD148Ffoxu3nvbH+Hs7iUsKuy/ttf6XFpMSF s/4yUsh6abRSrqj4G6ZWfiXUlnImv65xrIWz0NqxnFfQWlk7xB+6S2W0K6lZ QEpqaR1dXN7r4a9mZlcGBGamp9Uk40uLyQ3stlHQ3uvb21Pzqw/W9qprulMI FAC5izcDaENIQ9jLXdPVuGVdVcOHeK6tH6hpGGS3T4HNh0AtpbeVV3ZC3oSE BcqNxe7LyKORqKysfHoCvgQUXUxCfhGlEU4gkm2cggDn4MgUyHqe/rFVrI7B saXQWIKmsa26vrW1a6CxjbeOqYu2ibOLb4yOqZvsJfWvTil8fgQpKghI3tSw sbANRtk4NDrXzjlSWd0a5OsFOd1zV3Suq5gZmbrd0jQ7derK22//DilTiUEn P/f7ov4Y2gAyWjobKYskxBlAPiAhg1RTkkAmrMXRqmAimI/++Glcck4xhVNZ O1xVO1ldOxMVSysq6WjnLQMgoKMA6uzc6vHJzbm5PS53OjGpHEZgcEZqOh0Y dXZxffXe1tzS8tLKNoc9kpFGo9M4IKobmwYHBldKyI22dsHnL9w6dlyBkFbO ahyEe2di5kltwzClnNPdv9jdvwRkRWVyouKzlNQNIa+V0OrrW3oSU8iEzPJ8 EiskMgPuaN/gJHwGxcMvLjAcl5BSEInNJGSVBEQkeQbHEArKHL1DzRy8lLXM YFy+oauibXXmivqhk3KfHb386aHLZ69omtkEAci3tF3cfbCotLCwDZS/bnhe TvfSVX2AWuGmuaGRyw1FrU8+OXzgwBsiwm2AyFLbF9rZ/PAhbDSDlikQgors WJGWBLGNzC6JCB0O4CwhhTQVvXZDE5deUVDSXsOaKyoZ8A8mFZV0d3Tf4XYt +PknnD2vAckCVOj0ws7S3T1gGEAJeMMnEEeht1TXdQ6NLK8+2JiaeQi6orKq AwRGfkENmdI0PHa/tW0cKL2qutvdMw7+SSdvkdUywumcAhHb1jFxb+3p0Mjd nr4FOrNNW88eIioqNiMiOg1eQ6PTmzgjxaVNIMwgmP1DccGRqXA5wBNFJ+SC wLutZwfGJCWrrK51wM03VtvICbKeoqqp7AX1c3JaX5649pevLh0+eQMAdPSI cvaKAVcLFK1n7G5uG2zvGmtuG45sHDuvDR9QuW2noGKqcdvk9JkLb77xFlKz 69v09083dHtRnCCeBdHfGKSytJgUJEQrh4iMvBZcWishu9s/mIZNqhka2e4f vMvljJma+9i5hkcnF9BqOsfnNsbntnoFq6BOvfyTcGmlyXgyaIYHG3tzi5vD o0sVzNYmdj+F2tTEHuT1zkGyA5zdPeM5bXNt7bPVtQPN7DHIqk0tw1Mz2+0d k+CLSeSmmjo+ZNVYbD5IGvg8tbwtN78iMiYdzDtoSFB6MFhNA3DhQA3C5908 YsEsk0tbgHZScypMrQKc3KOBAI/L3vz8K7lTZ9XPX9bT1vdw98YHhueGxWaH xqX4hWLdfKIcXCN1jT1VNZ1VbrlcV7G/pGCqqu2goeeorGklr6Dy+49/J9yg LSQEYQtm0X9QzPx70f1s/v+79ILQELLA4+33/wp3Ez6jPiqxMjSWbmaFxRFq Wtiz/fwV+HOSMsi5pXUpOeUtHaPTS0/q2AJQ1xGxubpGbsl4ahmtA8JybvHx 2OS9bv708NgqKGFiYRUQeF5BNaOyKzo2z8klEuR3bX0ft2MK2B6CuZbVk5RM cnQJBzUYGpHu5hkD0hE+08wegQ/gU4sTkokgHfWNnEGrM6o6xybX4EeBsIRX ZlUPXF+4LsERGd4ByY5uMb5BePhlzl3Wvq5iYe8cExVXlFvQVEzhZuY25BbW g3+BFOAfQjC3DjOyCFLTBI1hc1XJUlHN2tDSR8vIVVXH9tjJs6+99ioKL6qZ /50WNs9/CAo+2HZQ1BLiL2FEDp48pZSV35BbxMUSalRue6lreSXiGHX14yVl HfQ6XgN3hD98h1nfW9s82Nm/CPd+eg5D9bYNyA9//9QiUkNjyxCnfbSuoXdA sDw2+aCzewYMS2oGNRFXXEiqB9izcyt5PfMQk4AYvAK3Z+ZU+PgnwnfBBIG6 6x9agaAFOQ22BW4H8CwR0VmlNDZ8GORKLrHaLwBnbOoVFJKeS6wNj8yxskEe uQJ6IH0hniFW3bwT/EPTcwobaIzu0nIesailgNRaWt6ZkctMy66Ai6Ku6WJk FmxmHamh46Zj4Kmh52xi7atv5nHhqvZb7360v4L5BaBejNJ/7RA21xWXRCaj JISlR6XFJF9VuKlLrWyjMLjeQVmXFWxNrOLw6eyQqBJcJq2E1lZZ3y8YX0/P Y9JruuqaBrPzq60dgk3MvC0s/ewcQgEEUMtwy8N93dgsGJ9a5w8swWjhCABS yInLqzsQ82AGB4dX4HKERWSC6YuNJ+YX1gkXhyyOTax38+ebWyEdd2flMuC1 o2uG378Mg0bnBgSlJOEoSCdNWkcRqSU9sxIScVB4urtPvK1TmJs3YuhAIefk syi0DoA3K4+VldcIXxZTOgjptRHRJeFRJA/vNHevVE0971vabpB09M08Dc3d wWC+9/svECEnBFm42ee76+j+Doz/8LuAs4z4gZckXhbHSMjIIG1VAWptI5vC UlZFXb+FfcxFRVsDC7xfWImDR6ybT3JqdlV9y1gnfyk8Ljc1i15W0QEhraZh ffHKLUNjDzAvTk5RoEyaWkbLKzoB8MHhO1Ozm4Dt+NTD0fHlje29iZm703OP wGv7BSYq3NAHU9nVMw2pDWDv6ZvrH1oC897bPw+JFSIfHE137wKQP5wARZRQ 2JBGm1rGgalMzYJsbCNz8upAh8cmF8UmFmKTS5JTqWCsCks4OfmN8cnURHxF enY9nCSnVqVlNSen1qSk1cUl0PwCcyzsIozMAp1cI8xsfG5rWx37+rLUgTfR 5UbfaWHwE3F+Ee0fWuAhLiMqIy2CzKyKoitqRMXFZV6xsPcsZXBLGfyQ2DJd 06SQGJqZXaCSuq2ajrNPcGb/yFptkwD4sJDSUkLlxMQRtXTtQE5Hx+aHReTi CVRwH0WkJg53on9wdWT8AQA7NbsxM/dwcvb+6v0deAVmqKzhJacU5hGZoxP3 +wYX+QMLC8s780vbkzPr8PnZha35pSfDow/KaBy4O8Dpk8gtLa2Tefksb1+8 s2ucnr63rp5XfCK5vXse7jIy0naPDSflzB4IYyC6bGJTPI4eHkOCkYCvxKc1 JaXUR8TQg8JI3gE5PkEZbh4J9k7BYEzOnFU8+NrbSD1+cbRjnSj6RFscLa// rx77CRF9jCUqIYORksFICJ/Y7k/rwX/x2q/eNrFxp1b1sNoWKdVzGfkdEN4x SVQrx2gtA4+svLqe/rv1bEFGXnVmXjVkSeBh4FhqeTsoCl7PcgWTByE9KLgL bACSo39oYWZhbXzq/vT8QxDbEKtAHYDq7NzmyOh9wHlmfhMQhjfhdWl1F+If oIYLBLkSLged0VFV0wOsAj+tshpZXZBNrM/NaygoaigsbqQxEeuamsUoIrcC vPnFbMA5mVABwYxNogWF5kfElsQnVcYnNMfjWEERlICg4pDQXF9/grNbuLG5 88nTl199/dfiEi9JSrz0vNfJz3igxh3hZwwyhItqkO54yEZDZAWC+Bu//tDe IzKruJlQ1MpoHC9j9lEZ/VzeakwimAVCPXtyZGKrhTsJMjgrh1lc0ghU0N27 ND29vbC0Nzu/OzL2sLdvCcbkzKPhsbu83ile78zI+J3e/llu5ygkytmFR/NL W1OzawApAAsIQwwD1IA5vDM0strVMwsDMuDE9Abw9vjkxurdvb7BZXJpK0AN FM2o7AWVCPmOQm9PJpQDXZBK2+EVoE4iMFPSq/MK2elZLIjnyFhaXEJ9YCjZ J4Do458FdwSIH30jxzPnFX/11vti4tL7ruTfa5D3d47n3cQkhCtKkYfm4vtt a0Qw0q//5g827pGZxfUp2ZW5xZyisk5gEjKtm8roa+Eu8Ph3B0YedPevgPVu aR2H2AOWGBi6A5w8u7A9OvEQTtBX+ADIPIhMIF7hc6VZkH8AMujtyZmHALUQ 7fWJ6Qc9fTMwQBk2NPP5A3OCUfhRWyt39xZXnqCUAvjzuufKyluReiCkpo6u BbCx5HJuGb2rrXOxqXW2un6UUSMorxwoq+AXkNqSUyoTcPRoLD0gtDQ4vNTb l2jvHGdk7ntb2+bMuau/fvsDdHpZaK//3UaEPw4y8op2/kX7LUuIoM8EwLpI SR04iDSE/c1v7TyCsgury+jDhRReacVQIbmLXt3f1DbF7Vrq7J0H+QERC/BC iEKyg/ADpoUBlAuxB+IB8AecO3jTwAPg+4Qn9wBeABlIG/5VN4R6z+TI2OrY xN3+wXk4mZ3fGBQsLq5uLd/dXljZBKoB2oFrAbcAkM/4xBr88xbOICjzjCxm amYlxHBtw2hr+2JV3Qi9coBc1k2h9pSU8oiFHHxqdXRMiW9gfmAYxT8k39w6 AjS2po693FWNd979AKm2isFIiu+3fv/+s5Kf60AbzcMlReZJMCJIcxYRCXgL ebYrIikqdQC45OU3f2Vg5pKWxU5OryaSugrJHRAtlfWC1vbZ5raxgeG1qZkt wchDweg9BMCptfGJByAbYACq3M5JYGnQZiAbpmd3IOzZnDFWUx9Qx+jEXcAN YhjiFgZANzO/AVEN+K/c3YVon1/eWFzdnFvaAFaH1DkysTI8vgwOCP4XGBD2 VdWdYGpqWCMQw6zmKThhVA8AzkXkdlJpJ/CGp0+6g3Oii2uys3uao2eWvSvO 1DrUwNxTXkHr7f/5AzoXh7YFfNZOVOz7y5t/Rpz3O3ejfUsxktKiL4PYg+iW kpICIQkfePkX7ygqu8Xja3OLusoqBuoaJllN0xBC7d2z3f1LfRCE43fAD8LJ gGARoBCMrkCggumAkAZqBXhB5g0KHvYN3OvtW+nmz/YNzU7NPYBYhaCdXVx7 PuaW1qfnH4D2m5q7P7N4d3bp3sTMqmBsfnx6BQZ8CwDv7ptEGH54vl8w19w6 xGoZYdQOUit4YEYqa4dojD4ylQeCOSyy2NAk2NQi3Mc/BwSGlT3WwjbaxCrk zAWN13/1gQjy1A95MI2mfmlxZLL++3sifkac0UkSZFGTiChatQNtkYBu2sIA Y0uLCsn7jRNfy0dFZ9PKOTR6R0vbLAQPtYLfwJ7v7F7j8R/1DjzpGVrsHR7r GZrsH53vG57vHpiFqAYfx22frK3t7+lZmZjYmZnZnV/YmYMkuPB4bn4LPQHh MT2zMTP7CD2Bm2Jqen1i5h6wBORQGMBIEMNw4SCxwq3R1j7d2jbJ5kyxmsdq m8YgR5eU99Aq+cDMJdRuSnlvdn5reBQ5MKQoLJLiG1jk6pZo7+StrWt56hu5 V37xa7QrPNp2CkEBKboqgexp/clG+8WOP3/vY/sVjJ+f73e6Qc/RDp6i+5Mh GHT/srjwse//vPuhm0sgk9FWwWiHmMGn15CoA3VNdyrrFpvaHnMH5ht7uho7 OtndvZ0DY/zhWQg5bvtYa8twS5OAz1ucm3y6MPN0bmprbgbG49np7ZmpzZmJ RzDgzdnJTRjT4xuTo2swIOWBbYQ0CgNFuJMHzmWJx1tq75xvap6srRsDxihl 9BTSOwvpPECbUsGH9JFb0E7IaE5IqomIKvf2zbd1SLeyDtDUvPmXTz6VlpYW EUG2OaB9rL6NNxGR75z8RJB/1tSJQWsaS0seANKWlHjl8iUVHL6EWcXDpzFd vdOTUuvKGAJG1Uw9e7qubYTFGWkABdIxwetb7BOsQh5saO5vbhkcEqxArA6P Lo6NPwT9BrEKyhliFfCEgbIufAnYwl0AaZTXP4OOrr5pbvdkc9sopIPWjkl2 +0Rz20Q1awAsCYnKJZXxIJjLmP2ljD5QRLmFrfj06pgEalB4gbtPmo1DrJFR yBU5zd/+9rfCKcr97mkimH+6P+l/GmdkiS9a3AMjdkDmoLjYARGRV373hy8t 7YLACHv5pRpbhccmVeQW8orL+OXVQ6xWyI8LzW3zrZ0LHd2IJmliC1hNA53d UwCsYGwJmBzABGz7R1b6hpdRVNHUCUIF2BuceAdvso03wekaB4TbuqY4nZOs FkF981Bt41BNw2Bl7QCjuq+0oruE1kmmghnkk6i9xBJuRm4DsnEvptAvKNvd O9neOUbllu1nn11+9eC76L2JTlwgZW/F/3VL8h+LZ2FjUzEx4TMCCGwZcXFk pY2kxBtfHpbzDkzNzK118UgKCi0soQ6XMWdrGlbqm1dZzUtNnMW2rhVu93wz uOy6nqqGdm7PyNDEQu/QfM/gHLz2CpaA0vmCBWDyTv5Ue88Et3uc0zXK7hhu 5sL1Gma1CmA0cUcbOMNgP2uaBipqu6mVHaUVHfRqfnlVbxmjJ7+4G9k+Rmwj ZNbFJlJDIog+gSmuXnHGZu6nzyq/9c6fMaKvYjDSKMAoLSDL8iX+63AWFpyX lpGRQveJI030xKXBqIpKvCwiIvPyq7+RPa/k4hkTFpORW9hGq56uqp+Dwayb rm6YqWuZZncutbTPgSQoY3Qy6/oa20Y5XbPtPQuAP7yiJ/AOu2MaRkv7VFPb RCNnvKF1rK5lopI1XFE7yKwXwIATRt0QraqPROsupnYVU3kFlPbsQnZaViuw MT61Nj6J7h+cZesYZWKOPLP++M9fIr2MwQuIy0hJyaA5DgQG/C3PnnH8d+Es rO2PQTuJCyMC4TbQRZKSv8BgDohLviGCOfjSgf85f0nV0T0hLqkc7EwVa7K6 cYJRN8KoA6AEIANozH4qs7eKNVzfAjBON7XNNHOBXuYbW2cbWqdg7L/DnYXv stiTdc3jzPpReo0AiBeyG5neS6H3lzEGyeV9+eT2nKLWTCLo+SpsMiMusSoG S4+IRqppmZj5XpHX/ej3h9DG3CBNX3r5wPMHHCBT0ZBGFd1/G87or/bCYzIM Wix9v+Qj6BDRA8L942IHX/vNoRMX9Myc41OKyphciF4IYzKth1LeV0zpLSYP ksuGGVVz5cyxiqqJ2oZ5VvNCXeNcfdMinFfXz9aw5mBU1c3QK8cptKGSskEy dRBO4JVU2g+vxCJeenZraiY7KaU+MpYeHl0WEV2GTCl7phga+1y4pPn+B4fF JN5EdqTC77O/jgiz/8D6hYaM/6Yb+c/x84sgv/CQcb8HnLBVmZRwHyh8G2lM /fZ7H52/fMPZLTSJQKbQOsogIGk9hSW9eYVd+UX8Uno/tUJAqxBQqP1FJd2F pM5iMq+ktIdEQc4LijuIhdy8gjb4FrGwI7+oM4fYlpnDTkmrS8RVxiXQAdiA 4PyA4Dwf/yxPL4KqhuXhI/Kv/uJDMdHXMZhXMBikPbQI5llv1m/3MiA4I/U/ f8LSl79//MdwFkYCsk8cIwxs0WfhvV8JGdk8Dn8XRgpZZS0tLEYh7Lv+0itv vv/RoXOXNc2sgmPiSzNy2HmFHQUkMBEtACPgCagCpDDQcxRhGLn5nBxia0ZG A4FQi8dXZ2TWp6bVxCdQI6OKg0PyvH0ItnYxN1Ucvjh0/c03PxOTfBUjchBi WFT0oITYQTHRl56VH8E8X5CMSlM0SP79yc//ZDyjxw+0QxXelCL76yTRuT9R DPj1gwcPPusIIC0u+fqrb7z3+z8evySvZmzm6u2bGBaRGRtPxBHIyXhyckpJ agY1J6+KWFALI5dYnZlTkZZJy0gvTUwgRkakBQYkujgHm5q4qNzUl5WVe/99 sBtvgrZE+UFcQmZ/rlF4cyHdCoS/EjrTi7ZBEvveIvx/5/h/j7PY8z9BiDOS 2iXEQf49n/6Sln4JMjyy6FpMGsEcyFxEWkLqzdfe+PD9Dz//66HTJ09dvXhZ Re6qxg1l/ZuqRjCUbhpcU9SEd87Iyh8/ev6zT49/9MGnv/7l+y/JvCbcOi2B DqSBFHLzSCE1EuGCiiJ7cMSE61SQa72P87ebVX+uQ+x7x8/2o/ePF8vRC49n YfziAO5AAUcnG9FihfuKRUoIsyRGuDNXXPhEAalKjUGHsJIhOhv8bGDQ50fo M2gR4dy4hCSyIhMlsedf7ldmEMOg20PE0A3XIvs7+37GYP4+yP+ZeP4Hv4Nw XnH/KjxLl8/2xYiL7bfeQnKTFPJ4/Vue3K/m9J0h+rfTDs/+qOd54dtjv4bt s0NUVPQ7V//HfuGf5fg5QfzJx49kGXHhAte/WbAt+rf66ic+xP/efyf2HNsf TB9//9/+38UZPX5wKuzFPXcv/Hr/GJnvL74S+5G1Vf/U8f8BzqI/tHrku7cw QpziP0XMfh/VH5nGxHzvnX/wY/9P4PxjEH23HNY/WNjzr88z/O3xTy+0+Llw /l9YS7dv "], {{0, 120}, {120, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{120, 120}, PlotRange->{{0, 120}, {0, 120}}]}], "}"}]], "Output", CellChangeTimes->{{3.725798294315402*^9, 3.725798300129678*^9}, 3.727109585827382*^9},ExpressionUUID->"1942d728-3923-4248-9962-\ cca8ba491e7e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", "_Symbol"}], "]"}]], "Input", CellChangeTimes->{{3.7255461573582087`*^9, 3.725546175076345*^9}},ExpressionUUID->"2f4e97d5-f749-40c0-8e64-\ f6c10a6063f3"], Cell[BoxData[ RowBox[{"{", "\[Pi]", "}"}]], "Output", CellChangeTimes->{3.725546176969183*^9, 3.725546449817402*^9, 3.725802635689776*^9},ExpressionUUID->"e71c0b61-18d9-4b43-b4d9-\ 6e7152fbec69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", "_Image"}], "]"}]], "Input", CellChangeTimes->{{3.725546181691771*^9, 3.7255461957231207`*^9}},ExpressionUUID->"4d116e02-2ddd-43d6-b9f1-\ e11530c28f62"], Cell[BoxData[ RowBox[{"{", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzUvAd4Gne6Paxe7PTdf7a3lE02iZ24xF3N6r0XhBAIUQQIEKJJSEhCFXUk 0YQACRACdYQq6s2y1dxLbMd2ulM22bS92c0m6/87YDtO7t777b3f3uf7Ls/r eYZmMWfOnPec329mfodnJpBcnJyc2F6wSMjiB+TnZxUmPgZPkhlsCplBJIQz OEQyMf8Q3hVeLLj7D1l3dXb558rt/7Hcnezl7PJAOXk6u3q6uni4OHm4OHs6 O8PSzcXT1fkhF1cvVzcvVxdPNxd3D2d3+Ji3kzPUDifnnc4u3s5O3k7uUDuc du509n7IaYe3k+cOJy8oTydPj3t/xc3+lbtfdHbxcnKBt5APOHu6OXtBwR+C ghX4MPxp5FtObg+Ux4MFm+DyP/b4F+J8r773RQ8XV1cXJyh4A7YUWXd1d3Xx ckHg94R1BGcXVygvFxeAy9PFycsVKW8X751uOx92feghZ8+dTh4AIFLO7oCP h4tj3yG4OUD2dHLycHLsUzc3F1cod/gvXdzgT8DudXEGDJGd7n7vVyG/wv5r XZzcXZF3/zHOrvDb/3+GM7JR/w5kR93/EGAKS1fk4W4v+wMQcAXonB3liTAf KftucIDpBLx1c0KWHnYMkf/NzcXZ2QnKzdXJDiByvCD7zM0JCl50cXVydXMC QB2YOvb13Xpgo+7j7GY/sv5VqP7P4fwPyYyA7EDmXjmIbQfExbFyn+2OcrWX 47c5uzpBObk7AeJuXp6unh7IDnFFBMNR8NQZWO7tCgXHg6s78nlQE0DY1b4v YMUhEA7AEfC/h7bjb97F+X+VbvxDnBFc4UBGNNzVDZ54IMAi5erY9rvYOlbs PHd3c/VCNh1A+8HDGXkA+i6AKYI5sjOQZw5aA/wIvK6IfCD/oR1nB+wOnN1c v8P5nnp4OAoOyf8VOP+732kXE4DMzcOuyQ4l8LRDbUfFzb69DpDtH3RBDnhP O4nvP+ATHh47H9/545898bPf/PSXz/7kF888+dNnfvzkU4889kvvnT9x3vGo k5sXfMXZ3tednez/QFbvIezieq9cvtuhD/5CKPgtLv9LcHZA6vq9ByLCnl4P ubt5w1bAtri77YAOCC+6OIOB8HS3b5anp6ddBDwQDYZy8X78yV/ufvVoSFx6 ahadWVAjlmik6l6ZeqBVaW5RmFQai6ZrtL3D0ibrkyr6hNWK/KIGFJ4VGptx yDfit8+8AuA7uTzi5ATeC9ojNEFvRPXtD3d3T0drc3Nzs68jh4Mz0jHgt3nb +fAva3z/QzjfF7cf4Iw4N1dvT4+HEIRddri57tzh9TAiyIgwIwe83ZJ4/ujJ Xxw84kemMhtk6r7R6emVjZnli7MrlydmLxt6FxSacbV+Smea6+lfslg3R0Y2 h4Y2hoZOjVo2R2ynbUuXB8bWNcZpjcGm0U+0SE3cgvqoaOzzzx18/LHfurv9 2MXlIXcPxPLC7/Hy2oEQ2I6t40D7jtL/3/DZ7b/OZ1fHgQm/3a6/7qCfO3c8 ajfJD7u5PeTmvsPL43EoJ6cdwLcdO578+S+fj4hKq2tSmftn18/cunjtvbXT 120L2wPWRVXnrKpzQd5hq28eqG/oVyomuzoXujSzBu18V8dMp9LWZ1yZHr+w dfbjzbMfL554a2LmtXHb5YHB9S7dnE4/P9C7ptPNlJV3JCbS9+wJf+LRn3ru +JGr68MIz509PL0ehp3rhBhDN4deIU3V7T7OTv8ZZP9inP8hnz2+A9YJaXCO le/47AYgI0oIv9neAz2BsO7uD3t4POLquvPhnT91tm/mkz974cCxKAarEhRg 0LJ0avP12x9+u332Tdvs5qnTN89efm9obFXePiWuHxCV6+rq+9qVU0bdsqFr Qa+19RuXertmtNJheYOxo6VXq52yjm0vrby+cuLm3NzVkZFts3nVZFqB6h84 NTB0cmh4s2/gREtTJxaXv3uX36MP/8LV+RHQLTiy3D12url7O6B29/T4Dua7 hHf9PuD/r9j+38PZgfBdkO2HHqwjJvWe50JIAqLh5vXwI08AbdzdH3VzA810 e/rpF9Mz2C1K69Do2c7upXbNVLtmon9wbXb+yvjk2Q7NWEWVGqq8sr2gQFVV 2SOXjes75ztV04pWi6plqFs1OmKcGTPPDunG+7UWc/tAlUitaBvo1k/rOieh unWzVuvW1NT56emLNtulyclz1tEzg0MbI4OnzMZFedsQjy0OCUx54vHfODvv RCyjE0Jmdzjg3BAf47B/CEmcHU//ZY9/Hue7/uEBkL+DGlkiDLDrnLPDPDkj OQ+anTeQ2dnZ+1e/+kNuboG5b2LUdk4/cFamXVAZVifnbiyefMc8uKnUzHR0 zspVk3K5Va2eMpuXBwe2BszrBu2sXDIgqetRtZp6NSOjPZN92oFuha5b0dXf YRzpMo+Ybd2aQU27Wa8d1qgGm+q7WiU9HR2jOsM00NhiXR8ZPzs2dWFi8vLM 7DVAfmBgVSrrKy5p9PWP+vXvnnfz2gldAtFpDyT13NVqO8L3+Oyg8T0H/q/H +YcNDujqKMcDCbZ2W/rgjgBz5MhmSMxyRyTC2fnhn/zkaQKZ0T84PWlbG5s4 0Tt4SqFe7jZvT0zfWFp9e+3kuxPjF2dtlxfnXlteuDZnu2gbPztvO7u+eMva u6Zo6m2q6pLU6GWN3Rppb6fUqJd392lMFp15SGPoV2q7lCZT55Clb2q0f9qk HVa1GWWN+tZGQ32NVlytbWjUd2rG9frZphZru8pmGdyam782MroBvVIqN+Zz yo4dC3riRz9B2jFixt3uHY0uiD1H4H5QK9weqP8Gzv+UkbAjbI++9ozmSFtg F+BtL0/3u6kZLNsOF2cvZ7st9nJyefThR56KiCAoFKMWy4bBMDc7ffbiufcu nr197bVPrmy/e3LmzMnpze3ZrfWxlZVB29mZ1bNTJ7Zty1eWtq+unDkztTWm G+9RDLXVGdnMOiazpaxMXys2NdYZte3D3R1D3QqzUdHTqxq06EdH9daFwRlb 96iprXNUOzhlsA51DClr1YV0EZ8hKuDWCSs6mqR9o1OnF1ZuTk1faO8Yq6jQ iEQddTX6vNyaPbvCHvL+vbPTI8ANNy9vhEvgvT2cHFt9l9XO9y2i23+D2P+8 YXMgbA+2zo4I4ZBgR3Z2d/Lw9PR23+mNgIzsEs+9e/zENe1Wy6nJsfXZye0L p9/55INvP3rn325c/ODS5tsXN966vHHzxOSpxf7Z5QGbTTd0fmrl6sLW6ekT J4bm50yjI6qBEfWwuX0Iml2poCU1iRUdTSkqUgBL26V9ykatsd2kl+t71YNj pqlR49iUeXyi2zppHB03jJoVpr5Oi6bVIC6RN1R2NNUZOvSzp7ZuD4+ebpAM dhrmtfq5yipdcbFSwJcC1FApifm//MWLkJJc3He4IeV5t+04NvmHOP/L+Hxf jf89zva/i1h9b08vUAwH6MiAm9cOSCWgFY8//rPsLEa3zjpn25ie3Doxd/Ha 2Q/eu/HptXNvrUyfWZncPrP8+tbChZO2je2Z9a2JldW+ye3R+dW+8SXT2KmB 6bX+6cmuvrmeCYt2oKulW9tqVkpMhZx6DJqNJwiZzJqKMll1aUtHm37QaL1w 4vLK+Jq1e3R2wDY3OD1qsAx1DWpaOjvlJr3C1K2yjg6t9pmW2UJ5aVUni9+C whYSqJVsfiu3UFpX31sj7mHlNfN5svJSLY9Td/hoKHIkOiEjJ6Db7p4u97bX yY6VPZ7/t5LjP4Gz3WN8f7DLjruHIwMCqd09dgCZ7Sry6O9+s6usqNk2srY8 d25+fGPNtn1yeuvswrnN6Y0TowuXl09fX796bv78cv/clG5kbcC2bZ05YRqe au9cNfZvDY6u91mW9H3L+sG5HstU9+BUj9Ws7pPUqBTS3i7taBqKERKKzmOK JI3amorWHr3ljdduXz5949Tc5sb8xqxl1tTR29PRr5Yahvpsc1NbQwPLDXX6 LFJxWHzesZCsaBQ7BVOYniUk5oqzc6qYnJaiUjW/uD2P2wolKG4rEbUmpZIe +/FvIZYCZyBD2bX6flv87z/+Gd1AsL03pIaMJ9v3gmMkByyohye0bMQgeXs/ 7n8oukc7Oje+Nd6/MjG4PD24ZJCa+lUDK0MLFxY2L85vXF3eWrXM9stNY+q+ zZH5JePIZLtuzTS4PWhd7DIu602neocXdb1DEuWwUmuSq/s69D1qk1LS2Vin 0etGVR3DbI74eGByPkvUrjC2NKvHhmYXJlfHB6ctPSN92r6RnrEpy0KXylxX 2y6uUhYWSXD4ooBQrH8kJSGDn5ZdmoAuSMUJ07DFSeiC+DQunlzFFihYBTIq q4lMq+Tw6iuq2zOz8n/56xeQ8WyQEVdP5wdMCMIvu7f+l+NsZ7Hzd2O8yF/1 dEYMsjfSJ1x2QACBn7TzkR/FxWSM9q6enL44Zloa1s2Mm+ZN0r5xrcWmt57o n9ocmV02DY3KNJ1VTaZG1YJheAHo2q4DeC+OjEOWW+/p2+od3Oy3LGiN1rb2 PqnC0CaXVdY1iGqldbLaGlkBv0ZvGO8fmMdlsUPCUkuE9Qp5d12lpEvV09dt Gekd61Tom6rbqkobSfi8kFCUf2CKTyDqeHi2b1iWX0ROMq44K7cuNr0gIpkd npQfncKNTGLHpPKSM4UZxEoSs4nKasSTSgk5osKiVhqjdNfLx5ycHoL8aJ+C cPuf4/P9oOfhBm3Y1THS7uXi4RjchY6AjLu7QIL23PHQT7Op+Zbhpbnh84sj py26+QH1xJh+2maY2p5cXR6YWukdOzk0dmrQeqrfMm3onTIMzHQPjKv1o0rN ssG83j8416mDWjGaFg2mqY4ui0zVJWkp43DKOAWF+YWi4gomvYBG4eWzSlva 9PruUV5BDTW3SGewytu0TWJpdVlDIVuYhSJEBMWFHI/z84k8GhDvE5QaFEv0 iyT6hBEA2OzcehpPiqfXQ0WmcHzDyaEJebACsMMynVgBlKYw6nEEEY5QyuE1 5tJF+14NAl8KGwiBy83D3T5C4vxAPP8X4HwfZEcGcbHz2RuRiR0ebshIl4f7 wwCyi8tD3t4/YjKKpxe3Ri0nVqyXhztnhzunrV1T072zZ2e2zs2tb9tWz01D LW+PTZ8G3o7NLI/YFsyWya6esXbtpEo7pugYlEjHleq+ZmlXTSNStS0t5TVV gpJSjiCflp+RjMnCUkkEJoslrKpsBag7NAONzdq8fBE6OSsqJCEqJC46OC48 MDomLAlaMA5LT81ghseTQhNpxyKIx+NoyZlFgrIucl5zJrmyrN6UL2xPJ4pi 03lhiczguFyoeGxxDktCZTaSKGIStQaXJSRTyvLY1T5+McgAoLOHu4cXZHOH VtsTzb8M5wdyn925uSEDFvbhW0RCdng/7uzk9cjDvygsqB4fWx6xri5Pn5vr 25g0Lmzazp2wro3qRlZGFq6tnbuydvbGqXNXVra2p5Y2JxZOjM1P9Y8Pao1G qbqrsa29slZWVtVVL9HWN7eKahqElXXC6mJWYSFHwMnn49D4HGIuKg3HYgpo FA4nv7S5saOttUuvG+7rtcllRnFZo5BbVsITVQnF5YKqGlFzq0RLySk4HooO jsbHorm+MTm+UZTgCHISig9NMD6NQ+NKGuQjzEJpRk55Cr44Jp1zPCYnJoNH YjbwitobJcO1Df0cbhudUUckl9AZ5QC1u9fjALWX98OA9r14/q/B+Xustk9P uCJD6YiTdHfbYZ/H2/nYIz/LZ5atrVycGF2zDKws204vDpxctZ5aG9sAkHvb u+cGpy6sndle3jg1s7o0Nj89ODnRM2LUmNVyvbxBVltSXcErreIJ64srmkRi oK4wX8Cm8chZNHIWnUxm0Whcag47h8TCZVLwOHqxoKamoqVVouk1jfV0WxUy Q2NdR6esS9Go1Eo7Bw1DQz2jvYaRtuaubDwnFZWXQSjKotYkZJVgqXUgBWSa OB0niIynZWQLSfSaZGxBTBorOaswIZPnH0UISc7NIIn4xapO/ZKma0HePgXL SrGBzqxmsCoPHQl3dX8cTIirm7d9Eue/PPTxn4N8d0TObhcRdUIyiad9TN7D 2/PHuVT+wszW5OjqYN/Cgu3CvHVtcXDl5MT6hGl6SNtvGxg/YVtZGJsdMQ0b FDqAAmytVCwvE1QXFVYX8krz6Bwaic7OZRdzizl0Dj2Hyc7jYzE5GAxFrTbX N3fQWEIcnonDMwqLaooF4nZFt7iyta5a2tqk1nSYW5s0Al6ViF8uyCvi5fLr yuq7ZAZFSycJzw4MSIlPpGKJpThKdWR6YTKuLC+/nkIXZxFLElPzk9I5EfG0 +LT841HEo8GZoC3xGG5cBicZK2AXyKXtE3rjKuT0mrr+qtoefoGURq/MInBf PRjk5PywM0QVV8//Ksg/wNnl7jzSA2g7ed6dKHF3QcYPPb3sds7dzXUnHkud mVybHF61mBdmRjfG+tcWreuzfdNLg1Nzg5OLo3Nz1qlhY49e26lWaGqrm4VF YgFfnM+qIJJ5hBwOIYeNJzLw+FxCNo2UnYvPomSTmNTcgtRMBplZPDR+4sTW LZl6OJsqqKiWGYxjapVJ0aarLGuqr2qpLqmXNnQYVX0GZa+iXtFSIRHmCZrK Gns1vfVlkqz03CC/RF/flIg4KjanKhZTHpHET0xmBASgUlLyouIoIRHZKels FJYfk0L3i8AFx5GSs/gp+ILEdA6OWF7fNDg8dn5k4qKxb6O5dbyiXE+hVpNz ijOwjBd3HXZyfgSxdfd0477He3D5HzzcflB350HuzmfenWp3dUcAhp5rnyLZ ER+NHrMszY6tT1tOLUxsbixdXhrfHDPPj5unTar+fu2w1TTeo+2XNyskjfLm RmWFqAGklZrDo5ILiGROFjEPT8rPwNFgBZ1JxuAoGThKKpqEwuSkplPgLU5B ZXmVXNLWgyfyNJ1Dxm5rS7NGLtXV18rra+Qmg1UpNSrbTCpZb4fMoFX2NNfI YWXIPMFnl0dHZQYHpgWEZBwOSAtPosZi+ChiKcTATEIxABseRwU8kzN4wbE5 8WhOOkEIohEcT0kjFMelsgjU8vpms6F3ZX715tzyLZlyslCoorMbs8ll2ZTS JBT9F0+9ivREdzuqYK/dPRDaudqHK+8nOJf7o23/2aDT/WknxzrYGKC4pxdy 2pCnp6eHs9fBPX6DxulT81cWxk9vzr92buWabWB+0Dg22DsNkU2hHOhQDUjb DOIaRXllWwG3GswYK68EipjNgsrE0NDpOalockRMehKaGIfCp+IoyZnkFAwx DUvOItAzsKTERDSFwm2o7+ByquG/AiluaFAqld1aTX+PcXTEsqxSDlZXqjra Rzo6+5tbderOoS6DlS+sD4nGBESgocLjCQFRmVB+UZjAWGI8mpdGKoM8GJdZ EI8tTMAJUoml8AqZ2xyWkucfk5NJrUxIZ+FIxRVitbFvcf3M7aWTt7r7VkVi PYPbjCOVocHvUaqjUliP/5/fOtiHjO24Ii7XcfbOvRztGJr49xz+j3B2vw+1 OwRrT5cdOxC7/sRjv5C3da8tvba2+PrG0s31xeuTQyvdHQMGhVGnGmhrMdU3 6ESlspIiSQG3jk4r4/PEubQiQjYbn8VCo8hkApdM4FNzhMy8Sugv4L4INCGR ISQzSgjUgvhUYnJKTkJSNoctKuRXiUqax8dWgcy1tTKJRA1LgFrd0SuXmfp7 53u6Z9Uqa1l5S3NLV4d6SFgiiYnHxyaRiVQhllQQl0o9Eow6ejxjr0/80ZD0 VwNQr/glBceTMTklKIIgm1EJlYBhZ1JKsdSyiGRaTBobnS1ISs+LT6Hmcev7 LKfmV183D61V1HULRB3UvDoCo5bArM8gV/iHJAAgoBje3jtBZj3tgeI+zveG gP4LOLshj7ua4448PF1dvFhM4cLsuRNL15bnrk9azvTp5s1dU0aNtaVOVSpo AoSZeVXkHCGLWcXj1OVSSyk5gkwMMwuXLyxuEpVJhIJ6Aa+xuc6sVA2r1KNM Tl2TtE+hHdEap1rkvSWVUmJOIYdbo+uymrrHAdJR6+Lw0Gx3j3V42CaT6aCa m9TG7rFOjVWlHGqsN/ALxWxeDRbPDgnPOOqfGByRGRlHiE4ix6fRopNzQCsA PW6ZvFrSm4DNj0igpGXz0SQBgVmRgGFBioFCk4oBcP8wbFwaPTmDGZ+SC+pN plc1SQeM/UuVtT3CSi2T28gqkjMEUgiVaZnU559/AbqVh4cXAOvl6ungs90z 3B9tc0jHP4Oz6z07Z8fZY6eT847g0MTFlctTU2dHR8+YTWvajqk2yaBU0t/S 2FPIbaBTyjh5tUx6VQEPAFcIi1polFIMmpWdxauqUE6MrVtHVtpa9XC8Nzf0 1oi7q6r1JeWa/uENODzrJOaaRmNDax8pp1QgkFZVdHQoB0eG5wyG4fn5Dat1 3mweKy4WKxQGcM5dncMN9Rr4f6oq2kmU4qO+8b9/3uel3YG79obs3he+71DM Yd+kiNjcqCRaUnp+XBozGccj0cswJG46Nj8xPTc+jRoag0tA5WYSC3BkQXVj p0isikokQX6E3YTG8WhMMeygwlJFi2KwvdNWWW/MplRk08WsYmVWrhiTzYpN TPnpz34N+dgLcpuzO1D6Hs5u358N+WHv+wd98J50IPrs5uHk9PBvntonbR+Y X7zaYzrR2bXQ1mqtq+2tqTSISjp47CYGozqfWcdhNVSVa1RKS2OjkcuuZ+RW tstH+szzAPLA4HJrm6mpWdfcaKit1hUJ5QRSaWGJVNYx0tBqFtVoxM16cVN3 i9Q4Yl0bHJi3Di9aLXMyqV4q7SourlareyQSVVlZA0i0Rj2g140O9C2gUUwf v6SEVBp0vRdfCYFlFqk4LiX36T/4vbgnfNe+cJ9AFKhuVEJOZExWcATmqH/S /sNRsBISiYVvESjCumbD1rl3Ll//pFlqysjihEbhgiNwiShWWiaPL5RVN3QL KzTFFRoyQ4wmlkHAAelA4fKycxhHfEI8PR9FBi3vndTkWLl/Ttp/DrJ9XNnj LsKuXo51ZCLV62e0vOqpxSvGvpPyjhmZcqZFOikQqJl5zWxOK4NZn59fV16u bmzs7ey0jYxsyuUWoGVNTefs7GXLyFpf/5y5d76lra+8Qsnl1dfWdCqVlpQ0 OnTwNCwrAUVD4zkFQomwXH5q89obb35x5vTN5eXTdHohmcQRi6UtLR3t7TpA u6CgfGjABvHz4z9+02uajY8lECilRGoZiSZKzchPTMutbzU2y/oB2DRsPoVZ U1qhlcgtnMLmunoNgSzIoYuEZS0NzV0FRU05tJLMLE5hcfPayauffnbn/KX3 R0ZPVYi1KCw3IY0RHkvGkaBlVCamcemcpmxqZXAsNQVXRGVLcOTCbAoXjaH8 9umXnJwgi++8fzKkfTrAAxlNdYB5d6T6LnsfXHecQAJLb29kPBkS4I6HvEHz d7+aMGg9r9TOyzpmpMqZmvohoaibymhh8xR0RiOH3apUjukNS4buZccZLN3d 8+0d1tHx02MT2739y93GaUmLsVQk79CM9Q8sLs5v9vRO9Y3MlFZLopNxQVGp kUnouFQMnsIanZm/fvP2v/3lK5PREhSQQKXw29o65fIulUqv1w+IRPUqVc/U 5MnqKgUWk0/NKQGHgCUW4XPK+EJFYakMQJ6cPzczdxlLKABiVFS3a/QTo1Ob ff0LesPkyfXXPvjoq9sf/Pm997+6ceuTi5dut7T28Pj1Q5aFK5ffe++Db67e /LKja0JUrQbBCY7MRmcVpmYUgtnAZAvD43Jj07hZtMosSklGNpuQW3g8JN7D +wlkWsnJ/XuJA4Ha0/kBbJ0dmMO+QM4TvjvLBzR2vXeSqocbMgT66MM/FdX0 D49ebm6bKKvuKyrt5hd1sbhKfpG2uXWUlltXX9e7uHSjTWrRd8+du/C+qEKZ z6m3jq2//e7XS0tXu3vmikpagD9NEuPC0uXXrt3+8ou/XAMw/3bn5rsfERnc OBQuMCqexGCVVNXPr6xfeu3GW2+/vzC/JZfr+/omenoscpmmxzg4PjY7O7tm NI5o1H1ymRHUnsOu8g1Kj4gngMzm8evyCxtqm40bZ99b37olVfX5h6SkoKgK 1eDpc+/IlL2wf7Wdoz0mm04/sbp2CdA+cfLywOACHGugaafP3vrjn+6MTp1u autVakYZnAYWvzmP14SnVIFo5Be2QVqMQXHBihPzqtHZvEwiPyk957dP7QZK uzkGTu2T0A4MwYw4f5/DzvfeerCQM+Lsr+/wfhTidmIiZnjijbpmm6Ckm1ek 4xZ2cgu1TLa8y3iiTT7O48tq68w1YlMeq7GyWiOqUKEyOZVi3fb59+fmL0hl vSxODYtXV1gk6dSPX7/58fbZq9tb5yds82cuvnbj3fcJjLyAyKh0ApFVWMQu Em6cOX/91s1v/v7tpUs3Rkbm2pU9Go1xcMC6tLi2uXF+dHQGhPr1199/+61P e81TGWj6AZ84Gqums8c2MrERFoul5FW0qQZBbHMYJYIyCRbPzWNX640TtQ2d 6k7r8onX6hq1qem0wBAUgVSEJxbUNXbBTvnw428++ezO7T/e2TjzLrQMcEEc QWuzbFBvXmxoG0zDFrIKWnllHRnE8pB4OppYAm4QeiiRVhQYmrhj52PIqWsu bt/NatkHfxxt7jtBduB/f0fYTx1BdpCzh6fHQ/D0p0/+Ag5VuWadJzCViPoA ZyZbSWdJVZ0LEJekiomKSr2wRC0SaUg5IkpuKZlSUtOgV2gtlvH1btM0vxhM PoddWMMR1MnVA+dfe1/fPdLfO2adWJhf3p6cW2+QaZMwhLzCMnZxhVxjPH3h yo033/nbN3fWTlwAJqtU3efPv/72Wx9eungN6sKF6ybTCJdT3tSowWex/Xzj qOxyaefIxoV3Pv/bnS6TLV9QU1ojxefw2PwKUZWEziqOicuobVR2984VlrSk YVjHQ9F7DkT4B6PCY7L2H47OzinW6MdnFi/ceuuLzbPvjNnOAM7sgiaJfMgy cdrYvwJkjk3Ji4in5bKbFbrZ7NzasCQGkVmXTSsDoUZjac88+wIiHS4ujuEg O4zA0ofvRen7OHveL2cnD+SKBmfEJyNN0NULRCM+NsEyZBNVjXMLzSyOjkxr 4RRooAmqO+dLSrUMZiO/QM7jtYrF3a1tw5zCxpmlc+eu3DYPLspUQ9bJjSaZ qVVlqm9Vk+mFTXJDn3WhWNhcL+4QNygNvZOrG69tXrgpqGigcYSSdv3GuevN UuXK2vbfvvn7F599c2LlLGjy4uIps9nS128ZHbNdvfrm2trZiIgUKqUQRINI 4Kl6JprVg2gyd2H90idf/X3x1IUiUWNCGkHWbtToBhksgVbX9+VXf5+cuShT D7EFjWAngsKx4TH4JFQuuA6/oLTM7MI25dCYbWt0amtp7XWNfgp4AqZubuV6 q9KSgS9OxwmS0HxafpNUaxO3DSdmCnC0GnK+GIVn4wh5vn5Bnl4PudqvfHFM fwCZXZwesTfBf4izQ6i97CAjE+hOTi6PP/Zka6u0vd1YLBzlFhgJZGlVzVB3 z5a8fZaSW8/lSTnctubmfp1htq9v1WiaF5bLPvwTMOvOrbc+s06tNbZ1Lpy8 OLN0Rt9jpdALAW1D73hDY6dQ0NzQZGpuMa+cugl9CtQVTJ1aN1Yh7uAKJHPz 57+98/e//vVvp7euGI3DU1PLfX1jS8sn1zfOLC9vAM5abV9NtRRyfXFRPYbC ZwlrDwcnWm3rf7lz58/f3qmqV/gGx84vnbr90ZcjE9NTM8sDFhsKywcTUlKp Ss1k+QangarvPxJ3NCAVvB9Yi4LSViavlsmtb1UOiRsNkAqT0dDaLTX13S1K a2l1F6dIQedIQKJZQgXgnJxdRsqrRRF46ThGdFzqz3/1FGB1d2DT2dt+8ZED 5+88nr0zet6fvLafE++JjLK6PASHw1Hf6O7eWXGDic3rpNBbDebTq6c+Br+R m9fG5EixeBGHL2+RWUcnL3YaFlGYgqo6zad//tvnf/767ff+fPr8TZ1x6Pyl m/2DNkmrFjLdtG19YnK9XTVg6p24cu2jzTPXP/3yzvVbH43bTmycvmYwWZns khZZ1+tvfPDxZ1+urp5taFJJ2tSjowsWy9Tw8OT8/NrFizfff++L7c3XxNVS EiE/OhJ1PDQ9l11d3dShMYysb7+2tHphYeV0q6y7rqFjeu705ulb/IKG0AgM oHosCAV2OiwWf9AnGeA9EpAEy72H4sJiCFDRiRSANyaJmkkQwFMys5rGqtUY bKtbb1unz5XXGnI59WDFU7G8RExBYkYhtMis3JKkDEoCCvvy4aNuO3YgULu7 OTTBzXmHA/YHcEb8nkNM7MPXbm7u3q5uXk4uj7h7/phfKlfq5nmiTkpeg0a/ fOH1v4GvY/EVVHZrNqWWQK0Dd0dhtqCwpXhyTQq6AKzpu7f/7fYHf1k9deHU xpU/fvz53/769c2b762duvTapfdmp9b7TNPLqxdOrF8yGK1bZy5/9fWdcxdv wC7YPnO9UdI+PrXU3Tu8eGJ98/Slrm5Lq1z/1jufvffe5zeuv//WW59MT69N jC0tLWyfPf06REWVsgeNIodHYNGZLDDexBy+oXuqrkllNNt03ZPBIWg8oYjK qPXzz3zx5agDfnHh8SSgsU9wul9oRlIGC5aH/BMBfP8wzPEITEomO4NQmI7n Q04MCM/EkouhoGNsnH+3z3qyuLKdzq7NyimCdyHCgJjQ88WEvLI0PCMtm+wT GfXoz59Ezh1zR040dUditKd97O67VOLA+f7ZegC1lxdy1r2T00O/eepVld5W 1dQvqusdtV3dPvelWrfEK1bT2W34HIifFcnoIiKtnpTbEBnPwuDLSyq1jPx6 QWlrda26WqzoG7Cdvwxm6S9vv/vZlStvn96+YeqZKCluralVArA95vEhy1x3 z6hcaZTK9ZquXtvsie2zV3Td/SqN/rMv/worinbjwNAMuLvp6dU//vEvV6++ C45O3dF78sR5kO7aGmlLs1pYKqUxRJA76Hmi2gaNqLKtskaZQysGDvv6J+/e HeLjm/775wJ/vzswKCrrVZ+E518JjkzMAZwT0plpOC4sYT2TVAQ4p2I50N1C YwlRSZTjEdj9x+JhWddqUnSOtaqGBeWKfEEzFOCcllmAhCN6KeCcjCNFJKOe 3rXbCbk4D/EYQGzQ6gdDiovjFGVnhwO5O7KBtD/karyHIauqu2ealZNLGx+d 2PyoodVKzZMUl+sBaiZXBjgnpBWgs0RA77TMktSMYq5AAYk1Po0am5QDW907 MNNtHquqlY6MLo5NLHdoBrSdIzViTWW1jF9YBfCCeqjUvfCBBklHl2FgZe2M TKnrGxwbGZtpaJYXFFXKFIaxiZV33v5sc/OKyTS6tXm1xzjaWN8+2G/7+KO/ rp+8ZDSMAHWHRlat42sKVX9ljTyPXV5QVEemFian0aJisg8fjg8JzT4ehHlp f/iL+8IS0XmBkbhkTP7RwDSAl1PcIqrV5uRVxabmRiSQgc+wTs2vgbeA5A7m F5TJOk2zALWya1yuHYV1JrcROiMEfFp+JZ4mSMumpGQR9x7zcfN+CJEOO86e LvZI8h/y2cXh9JwgrXj8n9JKpbRjXG1cG5+/VVzRlZvfWlHbWyTSAdpZ5JrY ZC7wOQNfTmO1JKIKY5P5ApGmvE5XWqPKyOYFR2WiMlnJaBqTW8ERiLsM1qGR 5f6hhfomnbiuHYQXmKxUmXSGYZXaPGSZnVtcX1je1BuHVle3JicXKqoboQNK JCqLZXZj4zIYy9mZ9VMnL7W1dikVpsGB2Vs3P7l08R1YmVu8AK74xhufGc2T IMupaDJArVD1QsoGqCMi8H4B6XEJNMDt6Rf9ga7IJHgswTcEDeyNSaEB8iRG BTq7IDgaHxKTDVAz+Q3wbnQyFXIfLEuqO1T6yeomQ+/IGoCs651X66cLS9tj k2loPJclqM2m81KyyAGR0U/85OfIGVn2NO15V4ofjIT3wvjdaRc7zk5eTz9z QN4x0to+rjGul4kHOEXKovLOijoTAI7Gl6ZnleTxpXGpnIAwIo5cmUksh2po G9YProjbTGnZ/NBYfGQCIQFFSc7IxVMK51cvLkJGaNbT86tEFa19vZNymYFG 45vNY0BU6HTLy1uQ9W7cuP2nT/9s7h3q7x/t7h6SSrVbW5dPnTqvVpuXV89Z rAtSubG5pUsqM0GIw+Ly6YzyC5c/6B9aMvRMStr0xaVN6ZhcQHtx5XxTSzeJ UhyfQD7qk3LMNxVgfGFvKEjHQb8kKFg5HJCy90jskeOpYXFEh1aAepTXddK5 dagsHuAPLwL+oNLwCr9UKpYYiyqULe1DE7MXO3QzcORCSyXQSzJz8lOzqLEo 9NPPvwRgOkaEPJzdvycaD4ws3ZvDRa46dXLyjI7Bm/pXjQPrtqX3xJKx/EIZ jlxRVK5NwxazBYpey7ah72Q2tSY4ihKfxg2LzY1JZgkqO5X6mcb2EQKzCk8V kZnl6VnsyARiCoapNU7qzFOV9R0MTnmnzjI2utShMtfXK4aGpiUS9eLi1vCw rbd39E9/+us7734ISfDNNz/q6DBCEtzcvHD9+ruAc11De4GgpqaufdCypNJY JDIzkVriG5haWNys0gwlJJNYnAqpsru4rGFq9hS4yoHhRSq9LC6edOhI/Iu7 ggBSgBoUA0MUAGkBZ5CR3QciYfnywSiQEeA2QA0iDKiCbjjkBYAF5EHPAXZC rohX0taum7AtXIEIwyuWxiTnJGbQU7PoGDIrBUvad8jXzX0HcuGeuyco9Q/G jh4ks8NvgKlzdt7J4ddZxrZ1ppNd5jOVDRaRuJvBbS6vNbYox4Dkhr61jOzS 2JT86KS8FExheFzu8XBidWOvvMuWTRcnZHDR+GI47lBYbnAUNjmD0arom1s5 t7J+ZWHt7PTsektTJxjgjg6TRtMLaIM/12hMwOf33//86mtvfPTh57PTJ0ZH ZjdOXbhy5c1z525MTZ4oK29ubNa2yU3NrUaw2aBpSShmRCwxOY1SImrNZZZg sugT0yfGbav6HjB4Vzl8cR67sk3am4rKQ6HzgcNkZmWhSB6PYkD72/VqBLwC CrzvaBzgD+IMWgGSAmgDvLACOpNX0AgchoJ3oQBn2AWVDTrbwqXJuUsS+QCV VYmnCnGUghQsIwlD8j0e+diPfo5cFunm4W43G9/L3ffIfG+uFta9n3jilyr1 iGXsjLhpqKphoqZ5DFInWyCFpbRj0jJ5AWBPTOcBh32CcBCUMokicXO/pnuR kFvhH5oFx5qgTElj1WCyi/xDMuJTyS1SIzjkU2euntw6f/r0tZqqtvpaOTjk /v7J4eEZvX7IbLYCb9+4dfvjP365srxx5vTlDz/47H1QkU+/vnz5La2mH9oo 4FlR3Z5DLwPDnIEvOB6WGZOUGxOPj47Dlpa3MPJLIGXb5k5dv/XhgGUmOY0M u0ChHJAphgBn/zB0RAIRyAzMBK145qUAwBnsBBTQFaB2UBok+pVD0SAgYOSg IRLp5bAtwHPgDBS4PqD3qO3M0NhWp3GmSdoHYp6CzYtDUTMIzLBY1M9/9Yw9 g7uBKPzDcf4HJsTdQJxffTVgYemyqX+tpnG4oLS3qc2mNizMLL8+tXB9cOzs 2StfDE+cJ+aKmbxWWDZKLWU1Bl3PSnvXNPwSdbft2ptftCgGA8OxYOa5gia+ oH56dvP6rfe3z10TllfLZJ1gfdtatLbJ1Zqq1sZ65dCAbWhg8trVN7/+650/ fvTFxvqZ929//PEfP//zl1+fP39tdHROLJaCl6ioVgCTOUVNOFIxWNxjQeiQ aHJEdGZAULJU0dPYoiHksIvL6gHq4dGF8ippWGQGK7/aNnO+sbkHQyyISiLD twDS3/3BF/i853AMAA4CAjoMrwOBHSrtkIj6NnNFfRfwHz5wwDcR9gVsGiAP fXBy7oKhd6l3+IRaPwWfhN2XjudmEFhxKfjf/2GvfbAOuQTd0ey+64P3Jlkc Szdn5CxrfBZz9dSbjS1D5TXDZIaKK+y+/sYX62ffHhw73WvZKKnqDI+jRibk onDFGEKZYxg8IS0/HVeQwxSdvvjh5pn3CaSig4fjSOQiMBhFxU3WsaVz565+ /sVfyitKigorDZ1DJcJ6o8EiLBJz8ksL+ZWtko7hwakvv/jbJx//+cOPv/zm b3e+/vqbD977E3C7qrKVxyvn8Cokbd3QRlE4NvAtKZN/ODDTL5wQFpoaHJrU 1KptbtPiCMzo+HRxgwIwb2nTU6jFLF7txOTW1eufLpx8HdR1/7FEaH9/2BMC 8QQABPaCo4M+CALiH4aFp4AbaHJCGgNCOlAdfB3gD9oOHwaDDT5wxHZ66eQN vXle1zPb3jlJY9fBrklCM6DdJ6SRXtnr6+X5kLOTi7vbD+etvj+ZZT93ztm1 vLxpcHittExbXT9OZxuqoLcsX6OwxBFJ9EN+qKBIIhApLJZCoteIxPpMYumx QExgBCmHUV1U1ra8etVsXoyOyQ4IQAuK23CZbElz58jIzLBlbH1jq1XWlJvL IRPZoBu9prGqCom+a7CosLpC1KRWGU+snP7gvY/Bcnz52V/+9MmXtokl4DmF wiWTWRXVMianJgWTB8dvDIoZlkALT2b6hGcf9Y0+7BNOZ5dyC6tiEjAp6cRW uS4ZRYyKwaAzGPS8CiKpqEli7B1ZTc/iAMIOfQDtBfYCUR0+GdHqQNQh/2RY B30GhGFHgHQjmdE3CdbhK+DxsMQihWZ0evGytnu6sdXc1j7S2NYP8ggNMSYZ ZIp86EjIo4/8GHB2u3f7iwemApELje6fmAef8fR8VK8b6THPNTb1yVSLjdJF i+2d0kpdcAQ5AcXO47c1y62WyXOa7nmdeXlk6qJKN0eg1UiUww2t5laZua9/ gZVfc8wnITqWRKGVYTH5ndqh3Fwei8Xmcvn8gnw+r7iqqkWtMnXrhwFeEBBd 58CYdWHMOrcwd2plZfPq1TfPn359em7VaBgSV7ZSSZyMdDJ0usQ0GuCMhDgM OzCahKNWpeGFvgEJR3yiElLwLG5ZKpqAJVD5xeUv7D6470BwCorapuwXVSgh N+05FLnvSDQAAnCB6potJ4DG4Kgd1g7KLwTBGQoghZ4IgANR49LocOw4bB4I DnyFwqqGzgimGplWKGiqauwurVFjyYKI+Oyk9Bxf/6ifPPlLZ2RM6e4gxoNQ OyOcRuZrkesTndwfe/xZvX5eq9sQ108UlVsq6yerGsfyec0EUqmifQiOwTff +erKtY+WVi9pdVZ5+0BDs35+8dKZix/mcRpxpBLISvsPp/gex8Qk0HwDUZFR mWCYeRwRh8mT1rVqpLJSgai6osGsH7L0TVgHpuoqW+USraVvanPl7EjvmEGh mxgYa29W8gq4gtIiGpOBJZCxOXSwEygsEyxiVg7icqubjNT82thURlBgeFxs EoXK5HCKcdm51WJpFpH16tHIPQdDd+0PyaaU1jQaICzT2GKgbplYA0oLygz+ DaIfqDSEa8AW+Ax6YuctPTmDd9A3DQ7YNBw/gyykcZsSMTxOqQyU6lgINj4j n8Sq4YlkadjCWBQHQy5HE8ty8uvTiYVpWFZ0YtbPf/Fb+5j/D3XD3dXDgTMC PDLl6vHr3x5WaebFDTN5HAOZqWUXG/ml3e2qCaNxqa2t/8YbX9x88/PbH/4V POrY5NrI2IkWqUlY1pbPqQ2JyI6IzQUvfTQo60hApn8IDnxXQFAqlSbUdJgV zaqWquaBru5ebU+nTDNgHNSp9APdw+1tmn6DxWIen7LMaNq0nW2dA7reKkE5 KSc7KweHxqWn43BZVGZuXjGZXgQWEUPg80taBGXyVAwbkAkJCkelptNpeTlk OpHILCyqCY1GPfPS4b2HI4HDv98d+NzesF2HYsDUQeiAYwGMMeAMjQ9YCgUr IA7A3qde8DvolxKTxopL5x4NxvmE4g4dRwOwr/qlwxKcKj63Ki6d7ReOTyMI eBXyNHxRPIYbi+FHprJyCyRVLSYiozQyMfPJn/36/lkyD068Os7uQC5gdXec P+C2a2+YSjNbVNaXy1TjyLIcZjvgPGI93WNaKStvX9+4deuNL9c3Xp+0nZqd 37aOnmDmVQYGpfkdTz54LOGoP8Y3OMs/NBvKNxh7xD8lODQDh2WBrygXVpbw S+rLqjUSRZdUCSWpqlc1y5SNsqnB8TMr22vTq93tOkllk6SqsYRdRM0lp2am YrKxgrKyQlElPoeTkpELwQeaDuR6QBuO4oN+CUcO+8bHJVNyGGh0NomUl5FJ DYpIe3Hv8adfOLb3SDR4v4PHU379B5/7Rg7Y6xjfgHJkcFiBbgg8PxCQ+sqR xIgk5vEoIuC591gyoO0fkQ047/NJYRS0JGML4GlkSm4qnheVworH8FOyhHFo fm5Ba1FNZyapMDg6/bdPP+/h6e0459/53kkasGK/2Yur45o/BG5n92O+yfL2 qaLSARZHl01pJ9Hbi8oHdMbl5jaLUj25tPb6Ox982ze8LG7SEqiCYwFJh3zi IJf5HE85HpIVEkkJDCPuO5LiH0rIzqlCZxUVCFpQ6QwwzLLWjlKAjF8sLi6p ExRJysul1dWalpbWarG2TTGoN4/1DgPsHAqLiM5mkmi5LHpKRnoWmVheUy+s EhNphSkYOvSyuFQqQA0F0d4nOO3AAd/gkEgqNR/ITMrhJKZm7z8SBjg//3LA k7/e88wL/oeD0vb5Jjz1vO/Pnzr40t4wyHq4HCGIhmNQDgzGS/vDQajD4wn7 jia8fDgBdADE/0gQBqAOjacGxZAB8ODYHFaRFGxAeGJuWCLFLyIDwI/L4GQz a1OzhSl4AYhJejYnMh7zwsv77p2L7vLg+TDI/Zfstyq6ezMiJ7fA4ExJ2wRP YKKztGSmhiUwlomHW+XDoqquuqbe1fVbyydvgK8QVbfnsiqDIzAHjsYGhWOS UPRUDDcmkZWaKcCRRRDJG1oHuvtWx2ZON0u69Z2WznaTuAwIrGgWiWq5nIYC vkpcrZc0yaqqAHBJZbVK0iKrbxByCqmEnBw8AZWZjsJiaCxmPl9IorGyKfws Mj8jmwutMDGdHptCgaQJOPv6BENhseTsbHpaOik4PPm5XUd/+puXn3v5+Iv7 Qn719OHfvOT33P5QABxs889+dwAgBUpDvoD0nYrlQAwBzwbZZP8xaIioo8GZ FHZTQCRhv28q4OwblnXoOAYwBz2BCoqhxKN5PmGZsOMA/IBockZOOeAcHE8D nPG04ngUYfe+g27uno7cd++Mo7v3GUBut+Xu6mS/4xn0wfBIQnPrCOAM+swr GeQIe8A/tyomm1os4KgXV28Mj23giIUMdg2FIYKqazbMLl2aXbwqV09UN/Q0 S0falOPyDtvC2huzy6/PLr8GkWd8bK1bbzHqB0d6JxpKhC0CTi2HqSgXdlSL FJUlmoYqaXlJc2WZkM2ikykkHIGYTSIQyWQ6PYeeR6CxyAwejsTBEDhYUkEa Nh8oHZlADIwEaU3394/y9Y3w8Ys8HhTvezzmxT1+f3jFPyQaS82rJlDLfEMw B3yTwRuDWwCfBvXLZw6DxwBHBwiD8cjl1IKMgGiAbvsEZwB6mTkiMI0gzq/6 pb10IHbP0SRYAeQP+KNgHTA/FIjyCcsAzr8agAZviaFUhCUx0rILcRRBIop4 +FiA945H3N3dfzBe5+rs4eHmjvg96IH2S7jT0tky5aRQNFRQ3M8vHWIJDLic ZnJuQ5XYJJFZ1V022/xFcm5ZRhaXllc5aF1798O/f/DJnas3/gKoKrVTglI1 Bl9aVqWfXbkxPnt5deONzbPv3Hrj8w/e+2pr48r48JyitraZz5YU8dpKCgHn nrZGs6xZXVetlTSKS4pJODyTQstjsHj8wjweLwWNTUbhWQXlDE45gVaEIwtS M1nRSeSoRBIEsYAItH9Q3BHfiH0HA338Y48GxL609/j+o9F+IWmQRiFrxKPA jxFe2h8Jbg1aIdhmUAxHAHQYDCA29EHgM/i9o4HpgB6IMMgySASgvetgHCAP OIfEUaDxgYbAWwApp7Qtl9fsG0E4GpoVk84BoQZLn4DOjUvL9jse+tDDj9vv l+X6INTILfKQOw8gN4GxGw8PHL5I2TFdXj1aXj1eKLIAn+NRZXFJfCq9iZxb R2PVz61cLyiRHvZLLqtWn3/tk7OXPxmbPl9a0ZWaUQjSEZ3ABFlu75oFjw35 8Z0P77xtv4fJzPRGl7Zf2qI2aztr8lmNAl5nQ7W5rWm4Q2psrVfVlA3r1W++ dmHKat1YXRsfneBwC4vKKrJzGJA+MNlMIq0oO6comyqEDugQDd8QlF8Yyi84 cde+gIDQ1KR0qn9wGoB8yC8BnMZzuwJf3BO669WoF/aG/2FPGNiJZ3cdh1YI 2RkKOAzp7zfPHWMVNhFyS/ccjgK5fnZXELQ5KqcRFAPUGEEyLAs64PN7IwFq wB9UGjxeRVN3R880fADgDU2kHwvDp+CL4zLyo5JJ4Dd8/IMfefRHjgt5Hjzj 6z7O9qvjXZDQTRC2q2cqasYk0hVx03wutysmRZiYKsjMrmBypDGJeRRmbZGo PTaZDgGwRTGSx21NQvEiYulh0VTfoIwDx1ICQrM4RYryWiOrSF7bbAIPlo5l h4SiQ4KTuVzRxsrmhLFfxMo3yxSddbU9bc0TBo2tR69rk1xYP/nZRx9fOH1+ ZfkkPY9LpOZlk/OgtUGkxRK57IIGtqARKA0SDXwOjsFC+QYng4UDoYBEdtg/ 8YBP3N5DMc/vDnr6DwHPvhh40Cc5IAwfGIkHRwGMdcxbgVDvPhAJzhmWEDpe e+MLYZUSVPq5l0NAlvMEbRhyGa+sHSAFuYZXnn05DGQEGA5PgdX18oFcfj2s gyxHo9ggGgmZBanZhfHptJiUrGN+QQ4+/2CwzqHPyK3I3F0c9zGjMmp6ek+B 3xCUDDK5RjShOSa5NDqeExyem4EvD42iAp6YbGFEHPXY8YzYJBYUtL+ohPzI OMYxfxS8uHt/1KvH0g76pu/3RYXFkMDdvXosNiAoOTA4KSkFPz25/MblN6f6 rRszi8MdGrO0TSoSdjaIu+VtPWrVxuqpk8unFHJ1HluQkp6dlJadiiYnoykY PMSWNqV2rKhcBu4uNo0CFRaPD4rEgIxA+Yemv3o0Hv7WseNp+w7Hvrgn/KW9 EXsOxu8/mrz3CAIpqIRDLoDVkPgA+ZcPRsHyrQ+/Xd64Ae46OjkXXAT4ZHXP QmWTCYAFNQaJBmUGVgPg4KJTcIWCqg5iXiUg7xdJBJCBzGiyCPIL/J741Gzg 84M4P4i2A+d7d+RzwZNKTX3r/CIzidqOwjYnZtQkoCqS0aU4Qm0GvrKovBM0 gZJXB1ksOokRk8wMCCMkoHhhMQwff+xB6BT+6bBpB33RgPPeY6n7jiQBqYIj s0DPk9NoaekUrWb4+uUPr557Y2N+a25gYnNqdrBdVUAg2vr7z5081aXSDg9a 6+pam1pU3MLy3Lwi6IAxycTUDGZ2TnG5WCtu1oPr8AlJ9Q9PPxqUvP9oDCg2 BGTobiCzAB2oxK+ePfbLp44An3/3XMAvfnf0qRcCQDRAJYDJYKRf3BcGSRBc B6RpYDik5smF83LtaIdhGsQBLDRkQL5IBZACsQFPwBl043BgBpZSDh/Iyi3H 5BSDtgDOwGQUsRSiCpi9yCQi4OwbEPLwI0/Y/cb3+OyYB7+nGwjOsYm5mq4l QUk/IUeBJcpQ+Mb0rHp8TgOT217TODw0dtHQd5JV0ArmLQHFJuZWZxJFoTG0 Y8fxyWn8qBjyMX/0Kwfj9xxIOhKAORiIASZAf/EJSg0MQx8PTY9LyCoplvb2 rsxNbdmsywsj8xdX1m9tbysrq6r4/N7OrrnJmYaaxrHxaamii84SlJQ3FZQ0 ZBK5aRhWZBwpOpGCwrHj06jRKWQQjT1HIp97OQgaGRB1/7HE3Qeif787GHAG Ar9yIG7XvuhDvtAQs32DMgF/h81wTKCAZwbMYSUlEwmVULySttfe+ErXvwqd 7pndoRCl2UJ5YYWawKiBTQBiQ0F+QXJiIOpIMGr3oXhQZiytKgknCIqjQh8E PkMfBN3Y+dBjDj5/bz7F2RX8hv3uRndxhvgMuRtwJlKUOQwtjiJNw9ZiibW5 +XIaSyYo0xeUaIsrOlMwfAyhpLLeVF7bwxYoUHhRHqdFWKoEm52b3xCXzD4e TvSPIgVEE/1CM185GHHAJ/ZYQHJwaEpqEpNArGhtMi5Mn57st6kbpdtz85/e vDlhNoN/7jeaOuSqqck5mbIzA4dce8XiVOTxa5kcMSqTE5NEhSbo0A3f0LTj kRngZvf6JMK2B0ThfcOxYOGOR2QlovPDYnJeeCUiJIqEI5WFx1L+8HIwODeg PSAMYRwwhxUQkyPHU7MoJSAm8FRYpV7afEehmwaJAPaSWXUS1Wh5gxG6IRSY uoMB6SDLrxyNh4wJ4APOwGeHdKCIRcmZzNhU/KuHfLy8H/73fEbun4GkbWQy 3H4LLK9jvqnt2tkikTE3T44lNGHJstiUyvSM8kxcNZ2lyCY2sLlqOlPGYElr GwYrxUZRlbZe0kPnVAvKJAJhA46Ql0Xm5jCK8VQ+CkuHDhWbknPYPwG8FsRk 6FORMVmJSaTo2AwWtEmpwjLQPzEyuL40//kHH57b3N46sX1iYX3UYmtq6S4q aSHRy7JIghxGpbBSXl6ngQQXlUpLwObj6GU+4diDYGUDMUf80/yC0TFJuegs vn8YGhIHqMGLByKe3n382VdCXjmW9Js/HAfqvrg3GJiPvLUvDBRmz+EYeBEc NfyfCelMsB+/+N1BEq307KUP9Kbp53YH+IdkNEn70NmCY0Fo2HF7DycCyKlZ Aki7ew4lRyYwjh7HBkSQAyJJSRnsLEpxaiYjJgm3Z8/hh3Y+hpzY/4NrZt0c NwJyQq5ydYLAuPOl3cFq3XxZdR8jXwk44ykyLKk1M6sym1jPyFfwC7vqGkZh nUqXAO3rmvoLhfKe/qV+y2qfZfH0uTc6tIOUXGEeV0zPryoQSpg8MWTkABCN 8IzDAUlgBvyC0uh5ogJBTVYWTVBYsry0cOH05ts3r398+/YXf/r0k/e/XFnY nppYEderi0slOYySNrlJa5gAPheUtqDx3OjknDg0HU0qCIjKhLwADmf/kbiD vvGZxALwIbsOhD73SgBo7zMvB+71id/vl7zrcPyLB6IO+SfCbwCQjwamBEUB 7dF7j4DIBEDBfolKIpMYIog/v3rqAIEivHbrc4FIumt/KPzPhwPSII9DhHnm xWDog6DPv98VfiQgE40vjUnOT8sqgYSYiuXB13FkfgIqe8/eg/Yz/F1/gDNy Wz/373B2cvL+6c9flndM1TZayip7uQI9maEi58rz2FISpQE4XFxibGmzcXhq LL6KL+jgFylr6rvHp8++efur2x99+ddv7nzxb99evPL+zbf/unHm7dnls6ah peGJ9fauUXZRU2WDrlHWV93YpeuxzcxtTUwsazWGMev45Kh1Znzy7Ztv3fn2 zjdff3vl0hsD/XM6g8ViXWpq6aqpVRaVNKZhmcJKaV2Lrl6mK29QZuTw/KPS o9II6VguKjN/96uhKFx+Vo7gWHDKK4cjfvXskef3Bb/wauivnj8WEIWLTKFC qNl7OOr5VwJBwYIiM8GfwH4Hi/L8y8cBT+TMxhAUMbc0NSNv78FINI6zce4d MkP07IsBoPZgwg/5p760LxpwBrO3az/sVnRQOJgcFo5SnYYXJmAQPmPJnPg0 /Isv7bFftPLDC8AdN5V14Oxsl45Hn3i2STogkY23axal7UtFZX3C8j6j+WR9 03BDs7WmdriyekBcPxSbwE1BFcQm5qEwPGn78ObZt99+76/v3f7bx5/cufnm 5/Mrl+eWL08vXJpevHzm0keDo+uw07Hkkjx+C4lRRcuvqm3SdRmsY5OLn/zp yzduvfP69TdAk02m4bNnX//mzreffXHnq6/ufPrp16+//v7U1KpCYeDyq+ub Vevbl19/46PL197Tma2NUrV5ZHpt65p1aq20Rmq2zMm1/b4hic+94vfK4bDA WCy4PhSRu+dYDPA/Ec1Iz+LgKcVwRABvsaRCSl4F2c7hl/aFHAtMgWMtMAID 3TY+hfrz3+xTdloB6gPHEiC8AKVDYoiH/FDQBNHEkkN+6L2HEekIisyJSs6P Ts3LIAsxxIIMAisqEfPMsy8422/K+4NrkF3d7t73++5Na512ODk/ls9vbJZa e/q29abtnv5Lw6NXF1bfHJ24ZOg5WdswTGO04InV0XGs6DgmhV6XBwEqKJ1E K1ldu35y/eal1z565/bX66ffBD73Dq1K5AN1ErNcPcbgNIEP9AnCgetDpoqO xb16KDw4NEkm67x+7a0PP/jsxo3ba2vnJ21rpzav/enLr7/9+53/2913gLV1 nm2LDXHiNKMj42tW27RNmjROvGPseBtssMEsm7333nvvKZaE2EMsIYGEkNhi CSGGALHE3tsTMBiM+Z6jgx03o03b9L/6/ed6L10HIWO4z3Pu577f877Ps7mx B8f2Y2Tce7g5u7C6vvlkc+fpzt7enYdb8ysPNnb3Zlc2giKSjS3d4wkFYbGZ ShogSOyvKhsdllX88utrumbuCrfM4dXYygeAVdG0RrGFSIZ8Cq7nhrrFb39/ DPzjF8fkgFhkz6nB+PLENXUd++GpdRev+A/+dObydRN5ZXMQ0pAcEaV3+jaA fOSUBuB89BvNM1cNQeYZWHoBzpcVNd57/3fCNbrfCWdhxe9nJZGRcnkiMhjM y6YW3sSiFiqjPyKOnpnXWd+01NQ2w+lYSkmrCQjOc/VIuSxvLnfN0tgsVF3T 5fQ5zVNgDY7JnzqrEovN7+TN9vCXaxuHWM0TNEYvgGxsGezgFm/nEqdt4Hvl uuU38oZn5HUgxSuqmSNTytrmclfVff1j8gsrWjiDgtGVto4xoJ2Ha1s7OztP n+w+3toFPtnefvL06VOA/fHjnd1dBH/4Eq7F2PSch2+wlaOnqY2bmY2HVxDW xjnY1Mbn82NX/vzFua9OXZW/aaB02xwQvnxNz9DCy841HIaLdyyIcCB8Eq3l 2k1joJ1vLt8Cj3n20u2vjl/7+NMzgDwhm97IGT986uaJsxpySmZ/OXodJIeC ut0NdUdFVYdDx1W+Pqcjd9MGlMZNHQc9cw9VbYvTF6+/8+77qFR+vpt4v7qj +LNCXsg7YqIIztJX5G9VVPfQqwaBpaOxTCAQFnucP3i/tJyXTWyKiCFdlDO5 ctVC3zjAwiY8IDTd0S3K0i5I18hN9oxaUEg6q1FQVtERFVcUGJoVGk1088Ff umYCLvLsJUMQe3CjXVBCllq5+GBzC2sScYU6eraX5TTMLNxd3SKScJTKet74 3Oadu2sA6cbG5pPdva1HO493tlBst7e3nj4FzJ/s7Dx+ure9sb07vbAyNr1Y 28hJSsv39I/19EtITCXfvG31x8+/ee8PRy7d0FLTtQE5pG3gkpxKiccV+wbh FG+agJ53co9Ky6ab2/jLnlMF837yzM3zV7SAnL88dvXdj45AVgXGM7IKvKRo rGfmC/4FnYjWMfa/IGd6/orxJQVz0H7WbjF6lt4a+g6XFG8dlb148NU3hPPO Yt+rXYBBy8Xsl2gTBd6Q/N0fvmRW8ejVfE+/LCu7pKhYWj6pcXRqk17ZW1HV Dwr52g3rW9oeIREFppYhQDL5JBalvDUjl2lg5Hn4qIKza0xlXR+IkGhscVhM fkh0gaKKjZKaIzh0uRtWN247gjAzcwx18MYaWXprGzqqqpnpGzipa1ioaphr 6TrYuYZGxhN5vMHFpbvrawDm7vb2NiC8trZ27969R48e7e4Cc2w/2Xn0dPfx NmD9dO/x7h68BR8nlzdm5DLicSTlW5agJ68qGyhqGBlauhmaeVrYBsIrxIOZ tT+ACV+CwfQOSE4iUOCdE98oHzt146K8jpa+s7qW7edHrkDGJJW1FlHbTG1D 1HVdQDCDKwRveFXZ5shJDSV1e2QzhVO0uVOEka2/kobF2cs3Pzt0UlS4Xxvl jefBDAfaiASFGq2oicFIHDjwBkip+oahyJhSR0dcWgY7MZUyt7RR3zzU1Dod EkEEutAx8Da3DoN4xiaXlFW0VVRy6YyO/Px6Q2MPEzPv9BwGiGrfIEJgeKaT e6wOyHgtx6vKVmABvpS9eVEZIsTb2ikU1JqNfZC9Q6ijU1gyjpSMK7Kx91NS MQWaDQmPpzGq5hbvbD1GaGJza3t19e7c3MLa2oM94JGnT4Rje/Px+pOnu4+2 d+FTIHWWVvdGxh7mFNTomyDa0tjK65Ki5uGvr/7p89NK6qbWjoGe/thIbHZU fI5fSLKrd3RiKonDm4hKyJU9f/PkGWXIGkpqFvYuEcDSh0/e8AoggEkEFX1B 3gDE81+OK39+/Oap89rfXNK7oW6vpu9q6RIFw9DS56Ki9lk5lfc++hTFWUIc fd79vECHsCPJfuEIzD5Di0pKyvzC0TmouXmUQuuOwdKx2HISlQUJbnD8Qe/A vbhE8rUblleumVrYhEbG5cNFb+KMjs48au+ebe+aYreNhkakm9sE+AbhcWml 7r5JJ79R++Lotc++kjsiqwK+GJhZ09DF3T8ZNKp/CCE0LI2AJ+dkVdTWdJVQ 6nx8sfoGLpr69noGtubWLvi0gorKxunp5fsPHsGYnJpZX3+I8gYcQB07gPVT JJjXN/faOkZq6ruLSE3WDmGWdiE6hq4KKkYgCN/98NCZi6rmtr7RCbkF5DrQ +fDqHZhQ28Rv7Rxr75kikmqUVU1OnFYCx6qsbunln3T6osZ5OV1tQ092z1xl w9AtPY8zckbHz2mDJQTh8fVZzfNXDRTVrLVMvY2BMC28zlxRP3NF6dVfvYs4 PwkxKcn9ysYoe8AJsgEc2ZAlfOQtZGhk6lRM+rSsQht3vK1rtbJ+orZ5qkcw 39Ez2z98Z2DkbmhU1rUb5jfVHUwtg+A2hKsPqHr4J3r5J9o7BadmkGvquzx8 4z18E0Anh8flgBl8/+Pjfz0mL3vx9idfXPnjZ+fllU2jEwt8AnGx8cTiwrp0 Qqmfd3xUeFpxUU1mNsXdM8LOJcDZPVhOSeuiwm1nz9Dqxg5er2BoZHJ6ZmEd GBmUH3JAQtxFgnlr4/Hu08XlR2mZNFf3uCRcGQ5PB5eqetvukoLedRXTW7q2 ts7B/kFJvgEJOURGflF1QnIBNpHYwhEQC6tKShtKac1Gpm5nLyEqCCg6MYUs r2QEmkTLwI3ZONLRt+Lqm3z9th3oZAD5qKy67AU9cC7nFY0Ub9neNnZX1XM4 La92WPaS+IHXkNLownz3nJfRwH7eLElcWCpURASDVLAUkXjrnY9xKYXMyn48 vjY3nzMx92Dx7tOB0dUu/oJfcKqJRSDIubwiFvDbNSXjE6dVDh27fPzra5cu 3zp6/LLcNU24N0toTZD6yXROHK4YBOrbHx4GCwa/PCR6UFzOHtEJeFJ2DiMj jRofQ8xMoxYX1NKprWmpRX6+0VEx6c5u4Sq3rIA2IQ6Zddze/vHObsHDh9uQ Fp8ix95ToeoQKpHHC8v3uJ0DGZnUxMSy0rLOPGKznRNWSdVO18jDyj64vLJj QLCcmVPu4x8XHIKnV3Ays2jY+LyUNLKLewQYzxhsjpau3S0tW4jnIycVM4iV WoYuCiqmlvahNc0jbT3z4dh8M9twFR33C1dNgTeQsniXtOVVLa+qWagbuCho WJy+ovLRn78CxkXqGwuRfF4r5nkafF45Da2OJCosiSLzyluWNr6c9uW07MaY hLJewdT6k72lO1v1zcNe/jgzq1AHlwRXz2Q9I2+I25DIjJiEAnJZc1NLH7OK jU3KBpo1t/XG4ogefnEt7SOBEWmQ/X/3yamvTl4DTXXsGyX/MEJeUa2Gpo3i dcOIsHQKqZ7XMdZQx2tgddXXt2Ox6aD31LTMTpxRuK1nU1HF3trZu3N/8/H2 Hmg7COPNzcdPdpCTrd3N8an56rpWMrUOWW2OLXRwxF64qH/8lPrh40rXlEzB 4iEytbAKhE10XDa5rBGGX2BiZEwmBHZySjHgbGMfoKJuYWMXfEvHQf66YWpO hZ6pBwSzlUMYo5Zf0zgUj6e4+eGAk2/re4IuPXFR+/QVfTlVSxBONzSt5ZT1 vz6v+OZb7yH1rsWQWiU/pDeEKw1E0JLZ+zU6xCWkwLBAENa2TWSVdhKp3LHF 2bnV9bXNvd7BO05uSVo6QTp6oWfOmmnrBebkN/YJ7rA4/fUt/fWN/KXVjSd7 iAYYHpuuZYGLTPb0jSgm16rctvjw45N/+uy8krr1oRM3XH3jLR2Cryjoqaib GRo7VVdxRkYW+vnjm+t7S/P38jKJOXmZTq52Ds42tazK9Y17O08Q9YzsK9x+ uiPkDQjmnZ3d1XtPx6fW8enUoPA0XDrZ0t7/0jWtL45egAEC4Lqqvp6Jg4G5 Y2pmMam0Jjw6JQlf4OYZlZVLr6rtAqHOaR8lURpxBLKza9RlOR3ZcxohkdnM uj4H12gjc9/wWGJWXh2V0Ymswk0sADuppuWgrOV65JyBlmng5ZuWJy5oKGta XFTQOPr1WemXX0WfCYo9a9DzfDeKsD8Euo4Rg3bPQWahRTCSUjIiGIm33/+U SG4KxpICooj0muaJuY27D59OL2z7BmaYmEdo6/mq3XKLTy4fnXxcRGnSM3U3 MveCPwGfQsol0hube+49fAyADwjGPX1CE/F5FGrTN+fVPvjo2HFZpWNnlK2d w9S07Y6cUlTXtrZ19E1LK8zNJQ8NTIFMnhpfWJ5ZBsE8PjU8MzctlM2IjAPG ALSBkMGebDzaBoHdyx8CqTMyuQZynV7VxW4fx+KLzey84ZfRN3W+qqQrd10b rKKRhUtASDyzmuvjH6+haREWSWhsGWBWd7R3TTS3DiWnlDi7RWrcttXScQyO yEoilOEz6HFJJHefxBIqJzu/urySR6JyYxKKwCDYuUZoGvt9dc5QWdv9tonP N1e1r9zQlr1w7ZO/foXUs8WISiJb48UkRL5rCZ8VNxb2ytnvTyQq3F8PSuQ1 R3dsFK7c2ZcANz6HN72x/XT5/tP0bMgjTG//jIiYoph4cnp2rZN7tKVdoINr hK1DoId3lKGpo4WNBy41v6d/HKCenltOJhBLaY34VIr8Vb0Tp5XVdR3ACJ++ qH5c9oanT2xWDrW4iJmbXcpu7AHzMTd9Z+vODiQ7JH6FBnBraxs1gwDvw7XN R5tPVlcfTUwslZYyXb1iM/MqweY3t40Ojd2va+5z84mxcvI3tfbU0LHS1Lc1 sfKAkDazcs3MLfXyjTEydcnILuvpm+vtn+f1zpSUNrl5xtg6BGdmM/oGVgZH H5bQ2nDp5Zl51f4haUWUFlpVJ4nKyS9pSs+p9PJJAM7U0Pf58ozB2WtmelZB F5X0z1xWPvb1hd+88yGyDwIjCTiLozNGIt8mQVQwiwgD+nmFZ0lJZAcWRgyo Q+azL87HEMo8gzOc3XBJKfT5lb27D/b6h5ZozHZg15DIzBuq5qBUnT3iAPOw KKJ/EC4kPC08KtU/OM7Cxj0iCs/jj4OyXb2/VsFoZ7cNd3XPObpF3tZ3VNG0 Ae0EjqyheZBKb+7tm1pd3WIyG0uKmduP9zYfPd3eQVB9tLG9Jzzgy62tPYB3 ZWWjp2cM4j8mhoDD5aZlV0BKtXcJ9w9JqWbxy6u4Vg4BqsLVyOralloGdsaW rq7e4clwvxRVWDv639K1dvKI4HZPDk/eX4G/ZfgOq2VodGp9+T5Y+Edc3hw4 rOa2iYzcqqDwTLiCNQ39RFIj4FxQ0oRNLg6OzNYx8z8jb3LkzG1tMx85ZcPT l5Q+PyIrfeB1ZCIOeWgitV9Y5m/nRYXA72/S3O+xJYas/hKVeBkoWubld8Ad x+FLLazivf0yRyd3wAjcXd+bWtjMK66+oWYip6gPGTCLWBONLQkOzwmPygwM ScERSBk5FDsnP2//6GxiWW0Dd33zKZgIYn7lxPQDFnvguppZUGQGWMjs/Cqg dNBXPfzp+/d2x8aWwkOT+D2jd1c3l5cfbmzsAhXff7Cxtr51797jiYkVNru3 sKAilVAYFIg1MXZ0dPDzC05JIpAhqsNjsqPjiSBOwGDCADyBOiAXA8hYXG5Y DCESmw5BrmvsaGLllZZD6+TPwF+xeGdvfOYRp3Oysq6nsq6XTGuDAWhTyrnF pWzgDWZtDxgEGDkFdcmppVgc2cUbd8vAF2zLbQNXyICyFxQ//PgvSFsuYZV3 tD2EkJz/ljf2twKJiop+O9EhfLZ1ACMijRF95egpeVwG1cO70NuX2MRZhJCe Xd4em3mQmErUNrTNLWJW1femZjGwSbREPDU+qTCHWJmdx0zNKAXJhE3MJZex 7J0CafTGrSd7/P5pNneAP7AAPjciNqeghBUQjK+s6RwSrPQNzA0NL7Fb+BXl DTOTK5sbe5OTq5PT97p7x9Fts+TSehK5NiIq1djUJSYuk1LGMjV3u6lqYO0Q AiBb2QfpGLqADtQ1dkZxhmA2NHf1C0kEnK0cfD49JOvkEYLPKHH2DLdzCckk VhRS6tkdo72Dy4waXjyuGH6IoZmXT2BKbeMQ4Iwub2vijMNJKR1uXhbwBpBJ PI4cFJHj6JF4UcEAbsnzVzWANF75xS/RJ1LC5YuIeHs+j/QdnPdXku4HNzga pEaECBCOuIzUS294BcThU9s8vHIa2POzS7vjs+s9gzNYfFZKVnHP4Bz4l/Tc qrTM+kR8OeQUCrWFUsZOSSuNis2Jis3y8I7RM3QyMXVfWl3b2Npt542MjN9L TCZ5+yUQC2uodE4vf6G9Y7yza5LdKujrX7izsvXg3u7y4sYisvR3rW9wETxm K3esFjiBwaUz27PzKsBZgCSDpAZeA5dWllNQ7RuEu6lhCUY7KZUEIQ3j5i1T gNrOJcgvJP6Lo+dUNU2dvEKBt83tffzD8LXNfZWs7vLqzub2Ma/ApAhsrpGl 91cnFexdopi1/Kr6fk7nTM/AKmDe2jENOPsGESJiiQGh6S6eWMiVNk7IhKrc dV00mMWlDwiXhn47m/H9ApgorihL71duxKAdA6VEJWWkZV7BYCS+uXC9sGgg JY3FqBGMTK6DJeQLFkorGt19IzPy6ENjD3ILGtw8CSERRAjmEkpzTl5VRlYF ngAhHRUYggMXBhzS0soH1yYYnYPQBR1lZunDbZ8YHFplMDvAeBYW1ZXT2wTD dwVDy338uYnxu1PTj5hVvLqGvtn5nYXlXUhSnPbxFs4I8Ew5gyPcmJkL0reg pAHIBxgjLDorCpsXl5wfFEGAqNYzcYIMqHBT3z80Qfb8dV1TBz0zR+Xbpu7+ MYAzLoNibOXl7hdPqeAYWiB1BXVN3K6rmUOaAx6G9NfFXxLOWHaXMTohmD18 k6zsQ8Fg3lC1dPWKA+8Dl/WbSyp//erU679EtsGKfLvR9YcP4e7v/RL0YiLf 9qiVlkTqUElIvoROd3j6ZJKpvJrG4ZHJR60dk+3dM5DigyPSUzJoE7PbBaQW bX0vsLoVzM7yivbI6LyomNz4RJKjc0RQKMHDCwtSqpzZvLEFaXRrcGiZ3Toa HEKglDYPCe7QK7hV1byi4no4b2gcgDc7u6a7eFOQMVNSafDTOnmzxSWNhcUs CH4IaVZTXzG5Hga3cxxiu7i0OTOPiU8vA4GXkcsIDE+JxxcCMwA527sGAz8H hifJ39ACHwEuXtfUydLRzy8UR8imaho4qGlbWzkGX7ymI3tB7bKi3pXrBvI3 TJzcY8Oic0Ezg5wDrs4uqIvCFkCi1zZwA9dzUV7P0MzTzNLrurL+kRMX3/nt x1LSr7ywsPxHD6Q/sJiwNARSygBpRysDGIsgdR0hqpEEKo0w/OGjCvi0CkgK bO5MVd0gj7/a0b1SRu+qYQlAC0EAqNyyhYvO5oxxO2YysqrCIrIjo/PxhHIw aHBeSmsem1q9t/YEPN3S8pOe3oU8YhWgyuuepZVzCgprKyo7SCUNxPzqAcHq 8Mid0YmHLdxxSK9wzwLU2ITi6Ph84IeUDGpqNrWRMwTUyuufA2uPOhRQlQGh BC//RBB1QBoQz6qa5hZ2Pk4eYSFReKAOIyvX6+oG7oGxdm7BNs7BGrq2hhYe JtbeCiomfz165S9fXTz8tSKAfOiYwtlLWoFhGeExeSCYIevFJBabWQeCpoJg vq5qqaBspmvgrKNvd0Ve/U+fHD148Ffoxu3nvbH+Hs7iUsKuy/ttf6XFpMSF s/4yUsh6abRSrqj4G6ZWfiXUlnImv65xrIWz0NqxnFfQWlk7xB+6S2W0K6lZ QEpqaR1dXN7r4a9mZlcGBGamp9Uk40uLyQ3stlHQ3uvb21Pzqw/W9qprulMI FAC5izcDaENIQ9jLXdPVuGVdVcOHeK6tH6hpGGS3T4HNh0AtpbeVV3ZC3oSE BcqNxe7LyKORqKysfHoCvgQUXUxCfhGlEU4gkm2cggDn4MgUyHqe/rFVrI7B saXQWIKmsa26vrW1a6CxjbeOqYu2ibOLb4yOqZvsJfWvTil8fgQpKghI3tSw sbANRtk4NDrXzjlSWd0a5OsFOd1zV3Suq5gZmbrd0jQ7derK22//DilTiUEn P/f7ov4Y2gAyWjobKYskxBlAPiAhg1RTkkAmrMXRqmAimI/++Glcck4xhVNZ O1xVO1ldOxMVSysq6WjnLQMgoKMA6uzc6vHJzbm5PS53OjGpHEZgcEZqOh0Y dXZxffXe1tzS8tLKNoc9kpFGo9M4IKobmwYHBldKyI22dsHnL9w6dlyBkFbO ahyEe2di5kltwzClnNPdv9jdvwRkRWVyouKzlNQNIa+V0OrrW3oSU8iEzPJ8 EiskMgPuaN/gJHwGxcMvLjAcl5BSEInNJGSVBEQkeQbHEArKHL1DzRy8lLXM YFy+oauibXXmivqhk3KfHb386aHLZ69omtkEAci3tF3cfbCotLCwDZS/bnhe TvfSVX2AWuGmuaGRyw1FrU8+OXzgwBsiwm2AyFLbF9rZ/PAhbDSDlikQgors WJGWBLGNzC6JCB0O4CwhhTQVvXZDE5deUVDSXsOaKyoZ8A8mFZV0d3Tf4XYt +PknnD2vAckCVOj0ws7S3T1gGEAJeMMnEEeht1TXdQ6NLK8+2JiaeQi6orKq AwRGfkENmdI0PHa/tW0cKL2qutvdMw7+SSdvkdUywumcAhHb1jFxb+3p0Mjd nr4FOrNNW88eIioqNiMiOg1eQ6PTmzgjxaVNIMwgmP1DccGRqXA5wBNFJ+SC wLutZwfGJCWrrK51wM03VtvICbKeoqqp7AX1c3JaX5649pevLh0+eQMAdPSI cvaKAVcLFK1n7G5uG2zvGmtuG45sHDuvDR9QuW2noGKqcdvk9JkLb77xFlKz 69v09083dHtRnCCeBdHfGKSytJgUJEQrh4iMvBZcWishu9s/mIZNqhka2e4f vMvljJma+9i5hkcnF9BqOsfnNsbntnoFq6BOvfyTcGmlyXgyaIYHG3tzi5vD o0sVzNYmdj+F2tTEHuT1zkGyA5zdPeM5bXNt7bPVtQPN7DHIqk0tw1Mz2+0d k+CLSeSmmjo+ZNVYbD5IGvg8tbwtN78iMiYdzDtoSFB6MFhNA3DhQA3C5908 YsEsk0tbgHZScypMrQKc3KOBAI/L3vz8K7lTZ9XPX9bT1vdw98YHhueGxWaH xqX4hWLdfKIcXCN1jT1VNZ1VbrlcV7G/pGCqqu2goeeorGklr6Dy+49/J9yg LSQEYQtm0X9QzPx70f1s/v+79ILQELLA4+33/wp3Ez6jPiqxMjSWbmaFxRFq Wtiz/fwV+HOSMsi5pXUpOeUtHaPTS0/q2AJQ1xGxubpGbsl4ahmtA8JybvHx 2OS9bv708NgqKGFiYRUQeF5BNaOyKzo2z8klEuR3bX0ft2MK2B6CuZbVk5RM cnQJBzUYGpHu5hkD0hE+08wegQ/gU4sTkokgHfWNnEGrM6o6xybX4EeBsIRX ZlUPXF+4LsERGd4ByY5uMb5BePhlzl3Wvq5iYe8cExVXlFvQVEzhZuY25BbW g3+BFOAfQjC3DjOyCFLTBI1hc1XJUlHN2tDSR8vIVVXH9tjJs6+99ioKL6qZ /50WNs9/CAo+2HZQ1BLiL2FEDp48pZSV35BbxMUSalRue6lreSXiGHX14yVl HfQ6XgN3hD98h1nfW9s82Nm/CPd+eg5D9bYNyA9//9QiUkNjyxCnfbSuoXdA sDw2+aCzewYMS2oGNRFXXEiqB9izcyt5PfMQk4AYvAK3Z+ZU+PgnwnfBBIG6 6x9agaAFOQ22BW4H8CwR0VmlNDZ8GORKLrHaLwBnbOoVFJKeS6wNj8yxskEe uQJ6IH0hniFW3bwT/EPTcwobaIzu0nIesailgNRaWt6ZkctMy66Ai6Ku6WJk FmxmHamh46Zj4Kmh52xi7atv5nHhqvZb7360v4L5BaBejNJ/7RA21xWXRCaj JISlR6XFJF9VuKlLrWyjMLjeQVmXFWxNrOLw6eyQqBJcJq2E1lZZ3y8YX0/P Y9JruuqaBrPzq60dgk3MvC0s/ewcQgEEUMtwy8N93dgsGJ9a5w8swWjhCABS yInLqzsQ82AGB4dX4HKERWSC6YuNJ+YX1gkXhyyOTax38+ebWyEdd2flMuC1 o2uG378Mg0bnBgSlJOEoSCdNWkcRqSU9sxIScVB4urtPvK1TmJs3YuhAIefk syi0DoA3K4+VldcIXxZTOgjptRHRJeFRJA/vNHevVE0971vabpB09M08Dc3d wWC+9/svECEnBFm42ee76+j+Doz/8LuAs4z4gZckXhbHSMjIIG1VAWptI5vC UlZFXb+FfcxFRVsDC7xfWImDR6ybT3JqdlV9y1gnfyk8Ljc1i15W0QEhraZh ffHKLUNjDzAvTk5RoEyaWkbLKzoB8MHhO1Ozm4Dt+NTD0fHlje29iZm703OP wGv7BSYq3NAHU9nVMw2pDWDv6ZvrH1oC897bPw+JFSIfHE137wKQP5wARZRQ 2JBGm1rGgalMzYJsbCNz8upAh8cmF8UmFmKTS5JTqWCsCks4OfmN8cnURHxF enY9nCSnVqVlNSen1qSk1cUl0PwCcyzsIozMAp1cI8xsfG5rWx37+rLUgTfR 5UbfaWHwE3F+Ee0fWuAhLiMqIy2CzKyKoitqRMXFZV6xsPcsZXBLGfyQ2DJd 06SQGJqZXaCSuq2ajrNPcGb/yFptkwD4sJDSUkLlxMQRtXTtQE5Hx+aHReTi CVRwH0WkJg53on9wdWT8AQA7NbsxM/dwcvb+6v0deAVmqKzhJacU5hGZoxP3 +wYX+QMLC8s780vbkzPr8PnZha35pSfDow/KaBy4O8Dpk8gtLa2Tefksb1+8 s2ucnr63rp5XfCK5vXse7jIy0naPDSflzB4IYyC6bGJTPI4eHkOCkYCvxKc1 JaXUR8TQg8JI3gE5PkEZbh4J9k7BYEzOnFU8+NrbSD1+cbRjnSj6RFscLa// rx77CRF9jCUqIYORksFICJ/Y7k/rwX/x2q/eNrFxp1b1sNoWKdVzGfkdEN4x SVQrx2gtA4+svLqe/rv1bEFGXnVmXjVkSeBh4FhqeTsoCl7PcgWTByE9KLgL bACSo39oYWZhbXzq/vT8QxDbEKtAHYDq7NzmyOh9wHlmfhMQhjfhdWl1F+If oIYLBLkSLged0VFV0wOsAj+tshpZXZBNrM/NaygoaigsbqQxEeuamsUoIrcC vPnFbMA5mVABwYxNogWF5kfElsQnVcYnNMfjWEERlICg4pDQXF9/grNbuLG5 88nTl199/dfiEi9JSrz0vNfJz3igxh3hZwwyhItqkO54yEZDZAWC+Bu//tDe IzKruJlQ1MpoHC9j9lEZ/VzeakwimAVCPXtyZGKrhTsJMjgrh1lc0ghU0N27 ND29vbC0Nzu/OzL2sLdvCcbkzKPhsbu83ile78zI+J3e/llu5ygkytmFR/NL W1OzawApAAsIQwwD1IA5vDM0strVMwsDMuDE9Abw9vjkxurdvb7BZXJpK0AN FM2o7AWVCPmOQm9PJpQDXZBK2+EVoE4iMFPSq/MK2elZLIjnyFhaXEJ9YCjZ J4Do458FdwSIH30jxzPnFX/11vti4tL7ruTfa5D3d47n3cQkhCtKkYfm4vtt a0Qw0q//5g827pGZxfUp2ZW5xZyisk5gEjKtm8roa+Eu8Ph3B0YedPevgPVu aR2H2AOWGBi6A5w8u7A9OvEQTtBX+ADIPIhMIF7hc6VZkH8AMujtyZmHALUQ 7fWJ6Qc9fTMwQBk2NPP5A3OCUfhRWyt39xZXnqCUAvjzuufKyluReiCkpo6u BbCx5HJuGb2rrXOxqXW2un6UUSMorxwoq+AXkNqSUyoTcPRoLD0gtDQ4vNTb l2jvHGdk7ntb2+bMuau/fvsDdHpZaK//3UaEPw4y8op2/kX7LUuIoM8EwLpI SR04iDSE/c1v7TyCsgury+jDhRReacVQIbmLXt3f1DbF7Vrq7J0H+QERC/BC iEKyg/ADpoUBlAuxB+IB8AecO3jTwAPg+4Qn9wBeABlIG/5VN4R6z+TI2OrY xN3+wXk4mZ3fGBQsLq5uLd/dXljZBKoB2oFrAbcAkM/4xBr88xbOICjzjCxm amYlxHBtw2hr+2JV3Qi9coBc1k2h9pSU8oiFHHxqdXRMiW9gfmAYxT8k39w6 AjS2po693FWNd979AKm2isFIiu+3fv/+s5Kf60AbzcMlReZJMCJIcxYRCXgL ebYrIikqdQC45OU3f2Vg5pKWxU5OryaSugrJHRAtlfWC1vbZ5raxgeG1qZkt wchDweg9BMCptfGJByAbYACq3M5JYGnQZiAbpmd3IOzZnDFWUx9Qx+jEXcAN YhjiFgZANzO/AVEN+K/c3YVon1/eWFzdnFvaAFaH1DkysTI8vgwOCP4XGBD2 VdWdYGpqWCMQw6zmKThhVA8AzkXkdlJpJ/CGp0+6g3Oii2uys3uao2eWvSvO 1DrUwNxTXkHr7f/5AzoXh7YFfNZOVOz7y5t/Rpz3O3ejfUsxktKiL4PYg+iW kpICIQkfePkX7ygqu8Xja3OLusoqBuoaJllN0xBC7d2z3f1LfRCE43fAD8LJ gGARoBCMrkCggumAkAZqBXhB5g0KHvYN3OvtW+nmz/YNzU7NPYBYhaCdXVx7 PuaW1qfnH4D2m5q7P7N4d3bp3sTMqmBsfnx6BQZ8CwDv7ptEGH54vl8w19w6 xGoZYdQOUit4YEYqa4dojD4ylQeCOSyy2NAk2NQi3Mc/BwSGlT3WwjbaxCrk zAWN13/1gQjy1A95MI2mfmlxZLL++3sifkac0UkSZFGTiChatQNtkYBu2sIA Y0uLCsn7jRNfy0dFZ9PKOTR6R0vbLAQPtYLfwJ7v7F7j8R/1DjzpGVrsHR7r GZrsH53vG57vHpiFqAYfx22frK3t7+lZmZjYmZnZnV/YmYMkuPB4bn4LPQHh MT2zMTP7CD2Bm2Jqen1i5h6wBORQGMBIEMNw4SCxwq3R1j7d2jbJ5kyxmsdq m8YgR5eU99Aq+cDMJdRuSnlvdn5reBQ5MKQoLJLiG1jk6pZo7+StrWt56hu5 V37xa7QrPNp2CkEBKboqgexp/clG+8WOP3/vY/sVjJ+f73e6Qc/RDp6i+5Mh GHT/srjwse//vPuhm0sgk9FWwWiHmMGn15CoA3VNdyrrFpvaHnMH5ht7uho7 OtndvZ0DY/zhWQg5bvtYa8twS5OAz1ucm3y6MPN0bmprbgbG49np7ZmpzZmJ RzDgzdnJTRjT4xuTo2swIOWBbYQ0CgNFuJMHzmWJx1tq75xvap6srRsDxihl 9BTSOwvpPECbUsGH9JFb0E7IaE5IqomIKvf2zbd1SLeyDtDUvPmXTz6VlpYW EUG2OaB9rL6NNxGR75z8RJB/1tSJQWsaS0seANKWlHjl8iUVHL6EWcXDpzFd vdOTUuvKGAJG1Uw9e7qubYTFGWkABdIxwetb7BOsQh5saO5vbhkcEqxArA6P Lo6NPwT9BrEKyhliFfCEgbIufAnYwl0AaZTXP4OOrr5pbvdkc9sopIPWjkl2 +0Rz20Q1awAsCYnKJZXxIJjLmP2ljD5QRLmFrfj06pgEalB4gbtPmo1DrJFR yBU5zd/+9rfCKcr97mkimH+6P+l/GmdkiS9a3AMjdkDmoLjYARGRV373hy8t 7YLACHv5pRpbhccmVeQW8orL+OXVQ6xWyI8LzW3zrZ0LHd2IJmliC1hNA53d UwCsYGwJmBzABGz7R1b6hpdRVNHUCUIF2BuceAdvso03wekaB4TbuqY4nZOs FkF981Bt41BNw2Bl7QCjuq+0oruE1kmmghnkk6i9xBJuRm4DsnEvptAvKNvd O9neOUbllu1nn11+9eC76L2JTlwgZW/F/3VL8h+LZ2FjUzEx4TMCCGwZcXFk pY2kxBtfHpbzDkzNzK118UgKCi0soQ6XMWdrGlbqm1dZzUtNnMW2rhVu93wz uOy6nqqGdm7PyNDEQu/QfM/gHLz2CpaA0vmCBWDyTv5Ue88Et3uc0zXK7hhu 5sL1Gma1CmA0cUcbOMNgP2uaBipqu6mVHaUVHfRqfnlVbxmjJ7+4G9k+Rmwj ZNbFJlJDIog+gSmuXnHGZu6nzyq/9c6fMaKvYjDSKMAoLSDL8iX+63AWFpyX lpGRQveJI030xKXBqIpKvCwiIvPyq7+RPa/k4hkTFpORW9hGq56uqp+Dwayb rm6YqWuZZncutbTPgSQoY3Qy6/oa20Y5XbPtPQuAP7yiJ/AOu2MaRkv7VFPb RCNnvKF1rK5lopI1XFE7yKwXwIATRt0QraqPROsupnYVU3kFlPbsQnZaViuw MT61Nj6J7h+cZesYZWKOPLP++M9fIr2MwQuIy0hJyaA5DgQG/C3PnnH8d+Es rO2PQTuJCyMC4TbQRZKSv8BgDohLviGCOfjSgf85f0nV0T0hLqkc7EwVa7K6 cYJRN8KoA6AEIANozH4qs7eKNVzfAjBON7XNNHOBXuYbW2cbWqdg7L/DnYXv stiTdc3jzPpReo0AiBeyG5neS6H3lzEGyeV9+eT2nKLWTCLo+SpsMiMusSoG S4+IRqppmZj5XpHX/ej3h9DG3CBNX3r5wPMHHCBT0ZBGFd1/G87or/bCYzIM Wix9v+Qj6BDRA8L942IHX/vNoRMX9Myc41OKyphciF4IYzKth1LeV0zpLSYP ksuGGVVz5cyxiqqJ2oZ5VvNCXeNcfdMinFfXz9aw5mBU1c3QK8cptKGSskEy dRBO4JVU2g+vxCJeenZraiY7KaU+MpYeHl0WEV2GTCl7phga+1y4pPn+B4fF JN5EdqTC77O/jgiz/8D6hYaM/6Yb+c/x84sgv/CQcb8HnLBVmZRwHyh8G2lM /fZ7H52/fMPZLTSJQKbQOsogIGk9hSW9eYVd+UX8Uno/tUJAqxBQqP1FJd2F pM5iMq+ktIdEQc4LijuIhdy8gjb4FrGwI7+oM4fYlpnDTkmrS8RVxiXQAdiA 4PyA4Dwf/yxPL4KqhuXhI/Kv/uJDMdHXMZhXMBikPbQI5llv1m/3MiA4I/U/ f8LSl79//MdwFkYCsk8cIwxs0WfhvV8JGdk8Dn8XRgpZZS0tLEYh7Lv+0itv vv/RoXOXNc2sgmPiSzNy2HmFHQUkMBEtACPgCagCpDDQcxRhGLn5nBxia0ZG A4FQi8dXZ2TWp6bVxCdQI6OKg0PyvH0ItnYxN1Ucvjh0/c03PxOTfBUjchBi WFT0oITYQTHRl56VH8E8X5CMSlM0SP79yc//ZDyjxw+0QxXelCL76yTRuT9R DPj1gwcPPusIIC0u+fqrb7z3+z8evySvZmzm6u2bGBaRGRtPxBHIyXhyckpJ agY1J6+KWFALI5dYnZlTkZZJy0gvTUwgRkakBQYkujgHm5q4qNzUl5WVe/99 sBtvgrZE+UFcQmZ/rlF4cyHdCoS/EjrTi7ZBEvveIvx/5/h/j7PY8z9BiDOS 2iXEQf49n/6Sln4JMjyy6FpMGsEcyFxEWkLqzdfe+PD9Dz//66HTJ09dvXhZ Re6qxg1l/ZuqRjCUbhpcU9SEd87Iyh8/ev6zT49/9MGnv/7l+y/JvCbcOi2B DqSBFHLzSCE1EuGCiiJ7cMSE61SQa72P87ebVX+uQ+x7x8/2o/ePF8vRC49n YfziAO5AAUcnG9FihfuKRUoIsyRGuDNXXPhEAalKjUGHsJIhOhv8bGDQ50fo M2gR4dy4hCSyIhMlsedf7ldmEMOg20PE0A3XIvs7+37GYP4+yP+ZeP4Hv4Nw XnH/KjxLl8/2xYiL7bfeQnKTFPJ4/Vue3K/m9J0h+rfTDs/+qOd54dtjv4bt s0NUVPQ7V//HfuGf5fg5QfzJx49kGXHhAte/WbAt+rf66ic+xP/efyf2HNsf TB9//9/+38UZPX5wKuzFPXcv/Hr/GJnvL74S+5G1Vf/U8f8BzqI/tHrku7cw QpziP0XMfh/VH5nGxHzvnX/wY/9P4PxjEH23HNY/WNjzr88z/O3xTy+0+Llw /l9YS7dv "], {{0, 120}, {120, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{120, 120}, PlotRange->{{0, 120}, {0, 120}}], "}"}]], "Output", CellChangeTimes->{3.725546197526835*^9, 3.725546455844934*^9, 3.725798260928535*^9, 3.725798302916679*^9, 3.725802645968379*^9, 3.727109612217936*^9},ExpressionUUID->"6f463a82-d019-4adc-92a8-\ 4dfb63cdd80f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", " ", "_String"}], "]"}]], "Input", CellChangeTimes->{{3.7255462301387*^9, 3.725546254943594*^9}},ExpressionUUID->"3ebcc14b-5116-410f-a56a-\ 2a28f39e7cda"], Cell[BoxData[ RowBox[{"{", "\<\"\:5929\:9ad8\:7687\:5e1d\:8fdc\"\>", "}"}]], "Output", CellChangeTimes->{3.7255462562660627`*^9, 3.725546461297472*^9, 3.725802647309987*^9},ExpressionUUID->"889c932f-5255-48bd-8f15-\ 0b806fdebf8e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", "_Integer"}], "]"}]], "Input", CellChangeTimes->{{3.725546341385256*^9, 3.725546356306341*^9}},ExpressionUUID->"057f4bf3-4113-4e84-b0f2-\ 37dce2a18a5f"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "17"}], "}"}]], "Output", CellChangeTimes->{3.725546357443562*^9, 3.725546467397993*^9, 3.7258026507668743`*^9},ExpressionUUID->"d7a07abb-d765-4572-8fea-\ b95c0849592d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"ls", ",", " ", RowBox[{"_", "?", "PrimeQ"}]}], "]"}]], "Input", CellChangeTimes->{{3.725546360271655*^9, 3.725546395171322*^9}},ExpressionUUID->"865fac15-59ba-45ad-8f0c-\ f6b360655f6a"], Cell[BoxData[ RowBox[{"{", "17", "}"}]], "Output", CellChangeTimes->{3.7255463987427692`*^9, 3.725546471690565*^9},ExpressionUUID->"cabd4a64-91e4-47f5-802a-\ 12dabf075e1e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Range", "[", "10", "]"}]], "Input", CellChangeTimes->{{3.725546638187086*^9, 3.7255466536337767`*^9}},ExpressionUUID->"a16857d3-0f57-4e30-86e2-\ 78c27ccbcfa7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", CellChangeTimes->{ 3.725546655170066*^9},ExpressionUUID->"dad1bd64-62df-4775-87e6-\ 8c01b995d8ba"] }, Open ]], Cell["All the squares less than 100", "Text", CellChangeTimes->{{3.725630067410977*^9, 3.725630083717177*^9}},ExpressionUUID->"d1832920-0fe3-40a8-b828-\ 8c430d07d08b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"Range", "[", "100", "]"}], ",", " ", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{"IntegerQ", "[", " ", RowBox[{"Sqrt", "[", "#", "]"}], "]"}], "&"}], ")"}]}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.7255466686861773`*^9, 3.725546774688161*^9}, { 3.725546812006295*^9, 3.725546835541423*^9}},ExpressionUUID->"880177fd-904b-406c-8b17-\ 9f6e2df5b2ca"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", "64", ",", "81", ",", "100"}], "}"}]], "Output", CellChangeTimes->{ 3.7255467409489393`*^9, 3.725546776491016*^9, {3.725546826604334*^9, 3.725546837521076*^9}},ExpressionUUID->"d6bf1868-6ad6-4dc1-8c85-\ b488636c5a71"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", "100", "]"}], ",", " ", RowBox[{ RowBox[{"IntegerQ", "[", " ", RowBox[{"Sqrt", "[", "#", "]"}], "]"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.725547097654398*^9, 3.725547131762822*^9}},ExpressionUUID->"c680c101-5e29-4626-b318-\ 3288318d3111"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", "64", ",", "81", ",", "100"}], "}"}]], "Output", CellChangeTimes->{ 3.7255471371705513`*^9},ExpressionUUID->"80e1e9c0-b810-46d5-9618-\ 5343ef9cb117"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["22", "7"], "/.", RowBox[{ FractionBox["x_", "y_"], "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.684196161410336*^9, 3.684196222454623*^9}, { 3.7257838388514357`*^9, 3.725783845733439*^9}},ExpressionUUID->"386cc528-564b-4a5a-852e-\ db4f0624cae1"], Cell[BoxData[ FractionBox["22", "7"]], "Output", CellChangeTimes->{ 3.6841962266931257`*^9, 3.684201085712305*^9, 3.72554731906923*^9, { 3.725783833919195*^9, 3.725783846772889*^9}, 3.725802878092635*^9},ExpressionUUID->"49cb63fe-31b0-4446-bed7-\ 71e063ce8e84"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "replacement", " ", RowBox[{"didn", "'"}], "t", " ", "work"}], ",", " ", RowBox[{"because", " ", FractionBox["22", "7"], " ", "and", " ", FractionBox["x", "y"], " ", "are", " ", "expressions", " ", "with", " ", "different", " ", RowBox[{"structures", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.72631962582073*^9, 3.726319660611999*^9}},ExpressionUUID->"b91084d1-3fc1-4d54-a467-\ 84cdc2b7491e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", FractionBox["x", "y"], "]"}]], "Input", CellChangeTimes->{{3.725802935060958*^9, 3.725802939697927*^9}},ExpressionUUID->"f2f66b0a-5277-40ec-80b0-\ 3beea751fe07"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Times", "[", RowBox[{"x", ",", RowBox[{"Power", "[", RowBox[{"y", ",", RowBox[{"-", "1"}]}], "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.725802947430368*^9},ExpressionUUID->"6528b80f-3fe1-4e99-b7ea-\ f62a5e4023e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", FractionBox["22", "7"], "]"}]], "Input", CellChangeTimes->{{3.726319608494223*^9, 3.7263196123020687`*^9}},ExpressionUUID->"e682a181-7d6a-4e10-b5d6-\ 05bddccf9365"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Rational", "[", RowBox[{"22", ",", "7"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.726319612875677*^9},ExpressionUUID->"f5a35e78-4601-4bd8-9fe7-\ d8a88e66ea2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"Rational", "[", RowBox[{"x", ",", "y"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7258029587002163`*^9, 3.725802962121216*^9}, { 3.726319614816824*^9, 3.726319616751899*^9}},ExpressionUUID->"24c95a5f-00b0-4479-85e5-\ a49890f8b7ec"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Rational", "[", RowBox[{"x", ",", "y"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.725802962682908*^9, 3.726319617106668*^9},ExpressionUUID->"cd88a7b8-85b2-4c2a-ae6d-\ 234d6570fb16"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["22", "7"], "/.", RowBox[{ RowBox[{"Rational", "[", RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.684196243230413*^9, 3.6841962562506237`*^9}},ExpressionUUID->"c22cbd66-1041-448b-8495-\ b5c34eb8bd48"], Cell[BoxData[ RowBox[{"{", RowBox[{"22", ",", "7"}], "}"}]], "Output", CellChangeTimes->{3.684196259410022*^9, 3.684201105888699*^9, 3.7255473287298937`*^9, 3.7257838318884287`*^9, 3.725802909286688*^9},ExpressionUUID->"2c0c8221-b275-467d-9e7f-\ d0ad7ae18e22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], "/.", RowBox[{ RowBox[{"x_", "+", RowBox[{"\[ImaginaryI]", " ", "y_"}]}], " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.684196289990244*^9, 3.684196347537702*^9}},ExpressionUUID->"95f4c735-1ef1-4beb-98f3-\ 84d85b622709"], Cell[BoxData[ RowBox[{"2.34`", "\[VeryThinSpace]", "+", RowBox[{"2.09`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.684196350297868*^9, 3.684201123401412*^9, 3.7255473426877937`*^9, 3.725803010296549*^9},ExpressionUUID->"efadf39d-fd64-4b3c-b203-\ 145a973508fe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7258030174744997`*^9, 3.7258030205365667`*^9}},ExpressionUUID->"68f615b8-6c83-4615-a610-\ 3b48c0b52a62"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Complex", "[", RowBox[{"2.34`", ",", "2.09`"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.725803021161798*^9},ExpressionUUID->"5cd587c6-6129-4c97-a259-\ 0b0aaa241228"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}]], "Input", CellChangeTimes->{{3.725803036939403*^9, 3.725803042958427*^9}},ExpressionUUID->"8a0504e9-6080-4871-b2ed-\ 6eab4e7c86e5"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Plus", "[", RowBox[{"x", ",", RowBox[{"Times", "[", RowBox[{ RowBox[{"Complex", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "y"}], "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.7258030435054073`*^9},ExpressionUUID->"d3585bef-159b-44c7-af12-\ 752d44a826b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], "/.", RowBox[{ RowBox[{"Complex", "[", RowBox[{"x_", ",", "y_"}], "]"}], " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.684196289990244*^9, 3.6841963825249453`*^9}},ExpressionUUID->"05e6a14e-079b-4935-9800-\ bdad02cfe5c8"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.34`", ",", "2.09`"}], "}"}]], "Output", CellChangeTimes->{3.684196385821211*^9, 3.6842011332819433`*^9, 3.7255473525368967`*^9},ExpressionUUID->"39800b94-9250-4d63-94bc-\ 259cf7679bee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], "/.", RowBox[{"z_", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ",", RowBox[{"Im", "[", "z", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.684196289990244*^9, 3.68419643422996*^9}},ExpressionUUID->"b7e79d02-da2b-410d-a658-\ 4633d0d6273d"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.34`", ",", "2.09`"}], "}"}]], "Output", CellChangeTimes->{{3.684196423024391*^9, 3.684196438630168*^9}, 3.684201153304722*^9, 3.725547359000144*^9},ExpressionUUID->"c61bfcc6-1339-44af-a571-\ fb3f0e18f4e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"zsolns", "=", RowBox[{"NSolve", "[", RowBox[{ RowBox[{ SuperscriptBox["z", "7"], "-", "1"}], "\[Equal]", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.725547974401412*^9, 3.725548030177423*^9}, { 3.725548118328497*^9, 3.7255481275123787`*^9}, 3.725553416962984*^9},ExpressionUUID->"4cc87b04-a370-42d1-a7b0-\ ee38c477f7f6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{ RowBox[{"-", "0.900968867902419`"}], "-", RowBox[{"0.4338837391175583`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{ RowBox[{"-", "0.900968867902419`"}], "+", RowBox[{"0.4338837391175583`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{ RowBox[{"-", "0.22252093395631442`"}], "-", RowBox[{"0.9749279121818236`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{ RowBox[{"-", "0.22252093395631442`"}], "+", RowBox[{"0.9749279121818236`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{"0.6234898018587335`", "\[VeryThinSpace]", "-", RowBox[{"0.7818314824680298`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", RowBox[{"0.6234898018587335`", "\[VeryThinSpace]", "+", RowBox[{"0.7818314824680298`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", "1.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7255480074522753`*^9, 3.725548033056723*^9}, 3.725548130971466*^9, 3.725553419189609*^9},ExpressionUUID->"701555fe-0562-462e-ad2c-\ 1c12a7cdca2e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ",", RowBox[{"Im", "[", "z", "]"}]}], "}"}], "/.", "zsolns"}]}]], "Input", CellChangeTimes->{{3.725553273433071*^9, 3.725553318914159*^9}},ExpressionUUID->"3fd2abb8-26e9-40ee-88e9-\ 494c92526ae2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.900968867902419`"}], ",", RowBox[{"-", "0.4338837391175583`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.900968867902419`"}], ",", "0.4338837391175583`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.22252093395631442`"}], ",", RowBox[{"-", "0.9749279121818236`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.22252093395631442`"}], ",", "0.9749279121818236`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6234898018587335`", ",", RowBox[{"-", "0.7818314824680298`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6234898018587335`", ",", "0.7818314824680298`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.725553321682886*^9, 3.7255534254759903`*^9},ExpressionUUID->"14d901a0-dd44-40a0-9c91-\ abefe900e6bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"AbsolutePointSize", "[", "8", "]"}], ",", RowBox[{"Point", "[", "pts", "]"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"Axes", "\[Rule]", " ", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.725549052702116*^9, 3.725549137741351*^9}, { 3.725549252500428*^9, 3.725549350026363*^9}, 3.7255533456146717`*^9, { 3.72555346162586*^9, 3.725553488587761*^9}},ExpressionUUID->"c4740758-7959-4b57-aace-\ e9345f791c13"], Cell[BoxData[ GraphicsBox[ {RGBColor[1, 0, 0], AbsolutePointSize[8], PointBox[{{-0.900968867902419, -0.4338837391175583}, {-0.900968867902419, 0.4338837391175583}, {-0.22252093395631442`, -0.9749279121818236}, \ {-0.22252093395631442`, 0.9749279121818236}, { 0.6234898018587335, -0.7818314824680298}, {0.6234898018587335, 0.7818314824680298}, {1., 0}}]}, Axes->Automatic, ImageSize->400]], "Output", CellChangeTimes->{ 3.725549066472869*^9, {3.725549116895691*^9, 3.7255491229322023`*^9}, { 3.725549296922943*^9, 3.7255493073413877`*^9}, 3.725549353147313*^9, 3.725553350717843*^9, {3.725553475356187*^9, 3.7255534899839697`*^9}},ExpressionUUID->"75d28052-47f5-4442-b0c6-\ dc18ecb67636"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Simple Programs", "Subchapter", CellChangeTimes->{{3.7255500820997343`*^9, 3.725550093689662*^9}},ExpressionUUID->"fad427a7-8f6e-4be3-bc33-\ a11835086a24"], Cell[CellGroupData[{ Cell["Sieves", "Subsection", CellChangeTimes->{{3.725553097128591*^9, 3.725553109226016*^9}, { 3.725559341386277*^9, 3.725559344643125*^9}},ExpressionUUID->"3174bac3-212f-4ed8-aa36-\ d16ddc683d2d"], Cell["\<\ We want an efficient way of listing the primes up to some integer n. If we \ were willing to use the built in functions, and we wanted say the primes up \ to 100, we could proceed thus\ \>", "Text", CellChangeTimes->{{3.725554161654265*^9, 3.72555423397691*^9}, { 3.7255542649155607`*^9, 3.7255543475286922`*^9}, {3.725554384144168*^9, 3.725554426021529*^9}},ExpressionUUID->"f539713b-bec6-45dc-a6ec-\ 7e541730e93e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PrimePi"}]], "Input", CellChangeTimes->{{3.725803847585528*^9, 3.725803849645083*^9}},ExpressionUUID->"682035ea-1b2f-41e1-96d3-\ 58c74f6530c4"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"PrimePi\\\", \\\"[\\\", StyleBox[\\\"x\\\ \", \\\"TI\\\"], \\\"]\\\"}]\\) gives the number of primes \ \\!\\(\\*RowBox[{StyleBox[\\\"\[Pi]\\\", \\\"TR\\\"], RowBox[{\\\"(\\\", \ StyleBox[\\\"x\\\", \\\"TI\\\"], \\\")\\\"}]}]\\) less than or equal to \ \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/PrimePi"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725803850418125*^9}, CellTags-> "Info3725803850-4087249",ExpressionUUID->"2a3e2041-993b-4d26-8293-\ 49d5405d1843"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Prime"}]], "Input", CellChangeTimes->{{3.725803868335182*^9, 3.725803869740794*^9}},ExpressionUUID->"04ef37c5-3fb1-4b5f-a558-\ af8f533e0e96"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Prime\\\", \\\"[\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\"]\\\"}]\\) gives the \ \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\)\\!\\(\\*RowBox[{SuperscriptBox[\\\ \"\[Null]\\\", \\\"th\\\"], \\\" \\\"}]\\)prime number. \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Prime"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725803870198306*^9}, CellTags-> "Info3725803870-4087249",ExpressionUUID->"c50f7778-9056-4964-acae-\ a44b1e908d70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimePi", "[", "100", "]"}]], "Input", CellChangeTimes->{{3.7255544312521*^9, 3.7255544471661053`*^9}},ExpressionUUID->"a3e9d7ff-5254-4290-bb65-\ ab4e01e4ec56"], Cell[BoxData["25"], "Output", CellChangeTimes->{3.725554448530621*^9, 3.725691060818429*^9, 3.7258038596291428`*^9},ExpressionUUID->"65e29a03-6ec9-4ddb-922a-\ 311ef079944c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "25"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.725554452824744*^9, 3.7255544832996597`*^9}},ExpressionUUID->"f36fbf4c-84b3-4a8c-a1cf-\ 4df5bf299d9a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97"}], "}"}]], "Output", CellChangeTimes->{3.725554485111293*^9, 3.725691061059901*^9},ExpressionUUID->"86eb304b-49d6-4ecb-8a48-\ cb94b39f1a00"] }, Open ]], Cell["or", "Text", CellChangeTimes->{{3.72555451389114*^9, 3.725554531249757*^9}},ExpressionUUID->"4ef535e1-15bd-4a67-bd5b-\ a6184947d21f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Prime", "/@", RowBox[{"Range", "[", "25", "]"}]}]], "Input", CellChangeTimes->{{3.7255545355662394`*^9, 3.72555455399107*^9}},ExpressionUUID->"cdd8e01f-130b-4d3b-975e-\ b10c0f202787"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97"}], "}"}]], "Output", CellChangeTimes->{3.725554555442462*^9, 3.725691061124187*^9},ExpressionUUID->"29a2aef3-0fbd-4c28-a173-\ 840060360158"] }, Open ]], Cell["Let us, however, proceed differently", "Text", CellChangeTimes->{{3.725554617742023*^9, 3.725554653802231*^9}},ExpressionUUID->"c6317d65-3e12-4883-b307-\ 48fb48f7faec"], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "20"}], ";"}]], "Input", CellChangeTimes->{{3.683508240990409*^9, 3.68350825016284*^9}},ExpressionUUID->"8e084180-2bdb-45e0-9907-\ a72d33dcac8d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lis", "=", RowBox[{"Range", "[", "n", "]"}]}]], "Input", CellChangeTimes->{{3.683508185275854*^9, 3.6835082287241793`*^9}, { 3.683508259970314*^9, 3.6835082702982063`*^9}, 3.725554674329856*^9},ExpressionUUID->"3bb8a51b-07a3-48a9-8347-\ 3a2dd1ffa310"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output", CellChangeTimes->{3.6835082716852293`*^9, 3.68351189239608*^9, 3.725554679857059*^9, 3.725631237249935*^9, 3.725691061222375*^9},ExpressionUUID->"63addea1-f8f8-4c53-a891-\ 20505d345ef3"] }, Open ]], Cell["First we remove the multiples of 2, apart from 2 itself", "Text", CellChangeTimes->{{3.7255547607399054`*^9, 3.725554796179769*^9}},ExpressionUUID->"90ce6b46-da74-41da-89ac-\ fdb6bff27f68"], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"lis", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "=", "1"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"2", "k"}], ",", "n", ",", "k"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.683508285550473*^9, 3.683508375539118*^9}},ExpressionUUID->"232527c5-5dfe-4039-9c6e-\ bf422461e952"], Cell[CellGroupData[{ Cell[BoxData["lis"], "Input", CellChangeTimes->{{3.683508387438942*^9, 3.683508388227849*^9}},ExpressionUUID->"2147e5fa-7b65-4d16-b565-\ 0b54d4d752a8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "1", ",", "5", ",", "1", ",", "7", ",", "1", ",", "9", ",", "1", ",", "11", ",", "1", ",", "13", ",", "1", ",", "15", ",", "1", ",", "17", ",", "1", ",", "19", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.683508390094768*^9, 3.683511913014476*^9, 3.725554817105476*^9, 3.725631237350176*^9, 3.725691061322118*^9},ExpressionUUID->"2377a26f-5c7f-458f-a7ea-\ 93bdfd54e629"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "For"}]], "Input", CellChangeTimes->{{3.683511955545044*^9, 3.683511957788192*^9}},ExpressionUUID->"0bee106e-f021-4319-b982-\ ea5a1c1c79b5"], Cell[BoxData[ RowBox[{"\<\"\\!\\(\\*RowBox[{\\\"For\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"start\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"incr\\\", \ \\\"TI\\\"], \\\",\\\", StyleBox[\\\"body\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \ executes \\!\\(\\*StyleBox[\\\"start\\\", \\\"TI\\\"]\\), then repeatedly \ evaluates \\!\\(\\*StyleBox[\\\"body\\\", \\\"TI\\\"]\\) and \ \\!\\(\\*StyleBox[\\\"incr\\\", \\\"TI\\\"]\\) until \ \\!\\(\\*StyleBox[\\\"test\\\", \\\"TI\\\"]\\) fails to give True. \"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/For"]}]], "Print", "PrintUsage", CellChangeTimes->{3.725691061492509*^9}, CellTags-> "Info93725665861-9419359",ExpressionUUID->"1c581193-eb2a-4daa-81ff-\ 8f8bfb6c691c"] }, Open ]], Cell["\<\ Now we remove, for each k\[GreaterEqual]2 all the remaining multiples of k, \ apart from k itself\ \>", "Text", CellChangeTimes->{{3.725554898569559*^9, 3.725554986197303*^9}},ExpressionUUID->"48c84cc8-ce18-4b8e-8b61-\ 8fb26f074fd5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "2"}], ",", "\[IndentingNewLine]", " ", RowBox[{"k", "\[LessEqual]", " ", RowBox[{"Floor", "[", RowBox[{"Sqrt", "[", "n", "]"}], "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{ RowBox[{"lis", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "=", "1"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"2", "k"}], ",", "n", ",", "k"}], "}"}]}], "]"}]}], " ", "]"}], ";"}], "\[IndentingNewLine]", "lis"}], "Input", CellChangeTimes->{{3.683508419384803*^9, 3.683508583060947*^9}, { 3.725555052209317*^9, 3.725555066554303*^9}, {3.7255551068726673`*^9, 3.725555114579591*^9}, {3.725555198842703*^9, 3.725555216393821*^9}},ExpressionUUID->"3c36349b-0b6c-4414-bbbe-\ 58183794c666"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "1", ",", "5", ",", "1", ",", "7", ",", "1", ",", "1", ",", "1", ",", "11", ",", "1", ",", "13", ",", "1", ",", "1", ",", "1", ",", "17", ",", "1", ",", "19", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.683512072437998*^9, 3.7255551237693663`*^9, {3.725631219903509*^9, 3.725631237533276*^9}, 3.725691061596245*^9},ExpressionUUID->"c01e7d41-d123-4858-abbd-\ e1159dd673ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteCases", "[", RowBox[{"lis", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.683512090705996*^9, 3.6835121039114323`*^9}},ExpressionUUID->"2082ce43-af45-44a7-95b4-\ 7f9b97f9b495"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.683512107444943*^9, 3.725555160487523*^9, 3.7256312880219316`*^9, 3.725691061663069*^9},ExpressionUUID->"aa77c1ea-7e78-49dd-b2d9-\ 5a8c606f2cea"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"sieve", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "k", ",", "lis"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"lis", "=", RowBox[{"Range", "[", "n", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "2"}], ",", "\[IndentingNewLine]", " ", RowBox[{"k", "\[LessEqual]", " ", RowBox[{"Floor", "[", RowBox[{"Sqrt", "[", "n", "]"}], "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ "lis", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "=", "1"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"2", "k"}], ",", "n", ",", "k"}], "}"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{"lis", ",", "1"}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", CellChangeTimes->{{3.683512134907045*^9, 3.6835122616114397`*^9}, { 3.683512301170639*^9, 3.683512354712038*^9}, {3.725555240735429*^9, 3.725555243638013*^9}},ExpressionUUID->"e8e9c80d-f8e3-4c41-af08-\ 3792c4787211"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sieve", "[", "20", "]"}]], "Input", CellChangeTimes->{{3.6835123722476587`*^9, 3.683512380762195*^9}},ExpressionUUID->"f230d798-c86e-4c68-9ad0-\ ee833201ef51"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.683512383139492*^9, 3.725555260135392*^9, 3.725631318080818*^9, 3.725691061760858*^9, 3.725784357812508*^9, 3.725804226429716*^9},ExpressionUUID->"fe2acd56-d9e7-4374-b86a-\ a4992957809c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sieve", "[", "1000", "]"}]], "Input", CellChangeTimes->{{3.725555291700498*^9, 3.725555300818079*^9}, 3.7256908647762833`*^9},ExpressionUUID->"405c0236-7033-4127-bdcc-\ 6453fe9522c2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97", ",", "101", ",", "103", ",", "107", ",", "109", ",", "113", ",", "127", ",", "131", ",", "137", ",", "139", ",", "149", ",", "151", ",", "157", ",", "163", ",", "167", ",", "173", ",", "179", ",", "181", ",", "191", ",", "193", ",", "197", ",", "199", ",", "211", ",", "223", ",", "227", ",", "229", ",", "233", ",", "239", ",", "241", ",", "251", ",", "257", ",", "263", ",", "269", ",", "271", ",", "277", ",", "281", ",", "283", ",", "293", ",", "307", ",", "311", ",", "313", ",", "317", ",", "331", ",", "337", ",", "347", ",", "349", ",", "353", ",", "359", ",", "367", ",", "373", ",", "379", ",", "383", ",", "389", ",", "397", ",", "401", ",", "409", ",", "419", ",", "421", ",", "431", ",", "433", ",", "439", ",", "443", ",", "449", ",", "457", ",", "461", ",", "463", ",", "467", ",", "479", ",", "487", ",", "491", ",", "499", ",", "503", ",", "509", ",", "521", ",", "523", ",", "541", ",", "547", ",", "557", ",", "563", ",", "569", ",", "571", ",", "577", ",", "587", ",", "593", ",", "599", ",", "601", ",", "607", ",", "613", ",", "617", ",", "619", ",", "631", ",", "641", ",", "643", ",", "647", ",", "653", ",", "659", ",", "661", ",", "673", ",", "677", ",", "683", ",", "691", ",", "701", ",", "709", ",", "719", ",", "727", ",", "733", ",", "739", ",", "743", ",", "751", ",", "757", ",", "761", ",", "769", ",", "773", ",", "787", ",", "797", ",", "809", ",", "811", ",", "821", ",", "823", ",", "827", ",", "829", ",", "839", ",", "853", ",", "857", ",", "859", ",", "863", ",", "877", ",", "881", ",", "883", ",", "887", ",", "907", ",", "911", ",", "919", ",", "929", ",", "937", ",", "941", ",", "947", ",", "953", ",", "967", ",", "971", ",", "977", ",", "983", ",", "991", ",", "997"}], "}"}]], "Output", CellChangeTimes->{3.725555302353141*^9, 3.725631322599823*^9, 3.7256910618301363`*^9, 3.725784358906445*^9, 3.7258042278619003`*^9},ExpressionUUID->"e48e6aaf-56f8-46c7-a14c-\ 175dd56ced27"] }, Open ]], Cell["\<\ Once we have the sieve, we can define our own versions of Prime and PrimePi. \ We will need the function Position.\ \>", "Text", CellChangeTimes->{{3.7256564828789473`*^9, 3.725656589351658*^9}},ExpressionUUID->"b38cf494-30e4-445e-820b-\ 7aa5d445657a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Position", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.725656617145968*^9, 3.7256566470755587`*^9}, 3.725656698744833*^9},ExpressionUUID->"3ece902c-26de-4751-955a-\ fc07f69937dd"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "2", "}"}], "}"}]], "Output", CellChangeTimes->{3.7256566496174507`*^9, 3.725656700248067*^9},ExpressionUUID->"aed53a6b-df26-4211-a1c7-\ d32441b16efb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Position", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "b", ",", "b"}], "}"}], ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.725656617145968*^9, 3.7256566470755587`*^9}, { 3.72565669024687*^9, 3.7256567090106583`*^9}},ExpressionUUID->"5a033a35-72ad-47c5-bc91-\ 5b057361a44e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.725656710379984*^9},ExpressionUUID->"d0dbb6c8-a0ed-414f-98ab-\ 89dd1b7fef2c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"primetab", "=", RowBox[{"sieve", "[", SuperscriptBox["10", "6"], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.725656743061081*^9, 3.725656808214183*^9}, { 3.725657215917152*^9, 3.7256572207869463`*^9}},ExpressionUUID->"00e2a536-c60b-45d3-8d4e-\ 27bc458614d6"], Cell["Note the use of = , rather than := , in the above.", "Text", CellChangeTimes->{{3.725656827358657*^9, 3.7256568798676443`*^9}},ExpressionUUID->"39dc3220-cc53-4334-bc74-\ d4bde0df99c2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"prime", "[", "n_", "]"}], ":=", RowBox[{ "primetab", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"primepi", "[", "x_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Length", "[", "\[IndentingNewLine]", RowBox[{"Select", "[", RowBox[{"primetab", ",", RowBox[{ RowBox[{"#", "\[LessEqual]", "x"}], "&"}]}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.725656891622591*^9, 3.725657041558456*^9}, { 3.725657111030802*^9, 3.725657142164691*^9}, {3.725691254181631*^9, 3.725691296249536*^9}, {3.725691383772933*^9, 3.725691414220158*^9}},ExpressionUUID->"c6cc99f3-9b80-4bbd-a544-\ 4f552948f58a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prime", "[", "502", "]"}]], "Input", CellChangeTimes->{{3.7256914299451447`*^9, 3.725691438170945*^9}},ExpressionUUID->"4c3f03d5-2136-4879-a6d9-\ 8a521d6aed3f"], Cell[BoxData["3583"], "Output", CellChangeTimes->{{3.725691440649953*^9, 3.725691466666217*^9}, 3.725784424386031*^9, 3.725804613174724*^9},ExpressionUUID->"e2dd7cde-0ae3-428b-9c7c-\ 50a189164123"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"primepi", "[", "3583", "]"}]], "Input", CellChangeTimes->{{3.725691473991785*^9, 3.725691486257059*^9}},ExpressionUUID->"daff08ac-f0cf-424a-a5f7-\ 253673e4bf1c"], Cell[BoxData["502"], "Output", CellChangeTimes->{3.725691487887491*^9, 3.725784427788973*^9},ExpressionUUID->"b3a6fc9a-3df4-4af9-afd5-\ ed8023e452f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"primepi", "[", "3584.5", "]"}]], "Input", CellChangeTimes->{{3.7256914921429977`*^9, 3.725691514772834*^9}},ExpressionUUID->"d3ba1d92-c4c7-4331-af16-\ 65d6d97a1291"], Cell[BoxData["502"], "Output", CellChangeTimes->{3.7256915183661747`*^9, 3.7257844330293016`*^9},ExpressionUUID->"ca73898f-ea17-4fcf-9cdb-\ 29621d573bf3"] }, Open ]], Cell["We can also make an attempt at NextPrime", "Text", CellChangeTimes->{{3.725665063631711*^9, 3.725665116610045*^9}},ExpressionUUID->"522e14df-9dd9-437f-a4a7-\ 377f26b45603"], Cell[BoxData[ RowBox[{ RowBox[{"nextprime", "[", "x_", "]"}], ":=", RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], " ", "+", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.72566550473351*^9, 3.725665507662465*^9}, 3.725665819997181*^9, 3.725691552702215*^9, {3.7256915880470543`*^9, 3.725691601874703*^9}, {3.7256916474048777`*^9, 3.725691691138904*^9}},ExpressionUUID->"aae6f93e-b237-4f03-9720-\ 66537e05a7fd"], Cell[BoxData[ RowBox[{ RowBox[{"nextprime", "[", RowBox[{"x_", ",", "k_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", "k", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], "]"}], "/;", RowBox[{"k", "\[NotEqual]", "0"}]}]}]], "Input", CellChangeTimes->{{3.725691791753233*^9, 3.725691824099638*^9}, { 3.725691857501236*^9, 3.725691859676807*^9}, {3.725691902791806*^9, 3.7256919267564297`*^9}, 3.7256920823233433`*^9, {3.725693275158293*^9, 3.725693326122554*^9}, {3.725693456506662*^9, 3.7256934599110413`*^9}, { 3.7256934910534*^9, 3.725693548229851*^9}, {3.725693621461924*^9, 3.7256936263025713`*^9}, {3.725694200296239*^9, 3.7256942350172033`*^9}},ExpressionUUID->"43e38422-3565-4863-b258-\ 8473af753128"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", RowBox[{"137", ",", "1.5"}], "]"}]], "Input", CellChangeTimes->{{3.725693650311417*^9, 3.7256936678226843`*^9}, { 3.7257846040760307`*^9, 3.7257846240024233`*^9}, {3.725784654427038*^9, 3.725784666336543*^9}, {3.7257846983701572`*^9, 3.72578470642036*^9}},ExpressionUUID->"456428e6-e778-46f0-99a3-\ 654484e8b13e"], Cell[BoxData[ RowBox[{"nextprime", "[", RowBox[{"137", ",", "1.5`"}], "]"}]], "Output", CellChangeTimes->{ 3.725693669558429*^9, 3.72569393841966*^9, 3.725694261248863*^9, 3.725694349767661*^9, {3.7257846011556168`*^9, 3.725784624471197*^9}, { 3.725784655084895*^9, 3.7257846667771673`*^9}, {3.725784699396167*^9, 3.725784706818125*^9}},ExpressionUUID->"ba4c1a0e-ff6b-48d6-8ce4-\ e31de930b698"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", "137", "]"}]], "Input", CellChangeTimes->{{3.725694398591216*^9, 3.725694408259158*^9}},ExpressionUUID->"5294a41d-2fcb-4b9c-8b3d-\ 997be201e0f3"], Cell[BoxData["139"], "Output", CellChangeTimes->{ 3.7256944101861677`*^9},ExpressionUUID->"3b705c6e-e1a6-46e6-a05e-\ cac4dea89a03"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", RowBox[{"138", ",", RowBox[{"-", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.725691761240829*^9, 3.725691773355133*^9}, { 3.725694292481865*^9, 3.7256942937142344`*^9}},ExpressionUUID->"76c4d402-2421-4899-b47e-\ cf2e10dfce04"], Cell[BoxData["137"], "Output", CellChangeTimes->{3.7256917761039543`*^9, 3.7256942958041677`*^9, 3.725694415775959*^9},ExpressionUUID->"215c91d9-7e51-4433-94fc-\ 00c2e1e776fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", RowBox[{"138", ",", RowBox[{"-", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.725691761240829*^9, 3.725691773355133*^9}, { 3.725694292481865*^9, 3.7256942937142344`*^9}, 3.725694436084887*^9},ExpressionUUID->"dfb0f1e8-9bff-48a4-890f-\ ef2257419158"], Cell[BoxData["131"], "Output", CellChangeTimes->{ 3.72569443899225*^9},ExpressionUUID->"eb1012cd-ed90-46e2-83d7-54b079d69263"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", "131", "]"}]], "Input", CellChangeTimes->{{3.725694456103306*^9, 3.7256944721649103`*^9}},ExpressionUUID->"d178b774-abd3-4a3d-baeb-\ 0e49bf91df8d"], Cell[BoxData["137"], "Output", CellChangeTimes->{ 3.725694475678437*^9, {3.725784725048908*^9, 3.72578473324929*^9}},ExpressionUUID->"eb41e6ad-f956-47df-aa61-\ 36ae45eafa21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nextprime"}]], "Input", CellChangeTimes->{{3.7257847352290707`*^9, 3.725784737948852*^9}},ExpressionUUID->"130193db-9bff-4ec7-8134-\ bd6cb1190f96"], Cell[CellGroupData[{ Cell["Global`nextprime", "Print", "PrintUsage", CellChangeTimes->{3.7257847383542843`*^9}, CellTags-> "Info3725784738-1433840",ExpressionUUID->"84817c12-f62f-4fe6-9889-\ 3fc035f552e3"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"nextprime", "[", "x_", "]"}], ":=", RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], "+", "1"}], "]"}]}]}, {" "}, { RowBox[{ RowBox[{"nextprime", "[", RowBox[{"x_", ",", "k_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", "k", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], "]"}], "/;", RowBox[{"k", "\[NotEqual]", "0"}]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`nextprime], Editable->False]], "Print", CellChangeTimes->{3.7257847384136343`*^9}, CellTags-> "Info3725784738-1433840",ExpressionUUID->"d23ac39d-5b5c-45d3-bad6-\ 0a1c6bf38aa0"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "nextprime", "]"}]], "Input", CellChangeTimes->{{3.725804521282344*^9, 3.725804524246323*^9}},ExpressionUUID->"b494e71b-be42-4c00-953a-\ c09efb5ff699"], Cell[BoxData[ RowBox[{ RowBox[{"nextprime", "[", RowBox[{"x_", ",", "k_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", "k", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], "]"}], "/;", RowBox[{"k", "\[NotEqual]", "0"}]}]}]], "Input",ExpressionUUID->"c9fdbf96-\ 0d6f-470e-874c-33357f5923b4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"nextprime", "[", "x_", "]"}], ":=", RowBox[{"nextprime", "[", RowBox[{"x", ",", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.725804570031598*^9, 3.7258045808601093`*^9}},ExpressionUUID->"32bb52b6-ce8a-43f8-b902-\ 9a1736b491fd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nextprime"}]], "Input", CellChangeTimes->{{3.725804545031403*^9, 3.725804547494088*^9}},ExpressionUUID->"8ce04292-53e0-4398-bc96-\ 1a151fcc9120"], Cell[CellGroupData[{ Cell["Global`nextprime", "Print", "PrintUsage", CellChangeTimes->{3.7258045840399437`*^9}, CellTags-> "Info3725804584-6157175",ExpressionUUID->"fcb5c11b-1e67-401f-bc81-\ 3c7a4d99c58c"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"nextprime", "[", RowBox[{"x_", ",", "k_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"prime", "[", RowBox[{ RowBox[{"primepi", "[", "x", "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", "k", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], "]"}], "/;", RowBox[{"k", "\[NotEqual]", "0"}]}]}]}, {" "}, { RowBox[{ RowBox[{"nextprime", "[", "x_", "]"}], ":=", RowBox[{"nextprime", "[", RowBox[{"x", ",", "1"}], "]"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`nextprime], Editable->False]], "Print", CellChangeTimes->{3.7258045840769987`*^9}, CellTags-> "Info3725804584-6157175",ExpressionUUID->"1f734360-0560-4817-8132-\ 944973c0c4d9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nextprime", "[", "137", "]"}]], "Input", CellChangeTimes->{{3.725804551209304*^9, 3.72580455306835*^9}, { 3.7258045911573067`*^9, 3.7258045924921494`*^9}},ExpressionUUID->"f5d0016e-6594-4ee3-9d90-\ c76032f79135"], Cell[BoxData["139"], "Output", CellChangeTimes->{{3.725804594829069*^9, 3.725804617016103*^9}},ExpressionUUID->"d7453199-7ca4-4d7e-89ff-\ 743d1fbf454c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["The Newton iteration again", "Subsection", CellChangeTimes->{{3.7255593259435177`*^9, 3.7255593581401854`*^9}},ExpressionUUID->"7c8b0ba9-6238-446b-aaa0-\ 1fbcb8be118e"], Cell["We have a program based on iteration", "Text", CellChangeTimes->{{3.7255593834028797`*^9, 3.72555941035781*^9}},ExpressionUUID->"d4ea166f-0cd0-4f43-a0ec-\ 26ec35bb001d"], Cell[BoxData[ RowBox[{ RowBox[{"root", "[", RowBox[{"init_", ",", "acc_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", "init"}], ",", RowBox[{"y", "=", RowBox[{"init", "+", "1"}]}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", "y"}], "]"}], ">", SuperscriptBox["10", RowBox[{"-", RowBox[{"(", RowBox[{"acc", "+", "1"}], ")"}]}]]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"y", "=", "x"}], ";", "\[IndentingNewLine]", " ", RowBox[{"x", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"x", "-", FractionBox[ RowBox[{"f", "[", "x", "]"}], RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}]]}], ",", RowBox[{"acc", "+", "1"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", "x"}]}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.683514954476144*^9, 3.6835151593105087`*^9}, { 3.683515200974543*^9, 3.683515234244472*^9}, {3.683515328342599*^9, 3.6835153435474377`*^9}, {3.683515422449358*^9, 3.6835154283146753`*^9}, { 3.683515505057521*^9, 3.683515521400134*^9}, {3.683515612479697*^9, 3.6835156241170893`*^9}, {3.683517561033121*^9, 3.683517637608923*^9}, { 3.725199876839933*^9, 3.725199891420882*^9}, {3.7252867191502743`*^9, 3.72528672561366*^9}},ExpressionUUID->"bdb576e3-a2df-4bab-98e3-\ 1c52084f2d1e"], Cell["Nest is a function that maps a function repeatedly", "Text", CellChangeTimes->{{3.7255594569412537`*^9, 3.725559490643605*^9}},ExpressionUUID->"17452adc-3147-439f-8fdb-\ e014f5b043cf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"g", ",", "x", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.725559495507505*^9, 3.7255595216295347`*^9}},ExpressionUUID->"068dc8f0-4917-48f9-a16d-\ 06428c1c5531"], Cell[BoxData[ RowBox[{"g", "[", RowBox[{"g", "[", RowBox[{"g", "[", RowBox[{"g", "[", "x", "]"}], "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{ 3.72555952299225*^9, 3.7256315457589083`*^9, {3.725784815842864*^9, 3.7257848250471773`*^9}, 3.725784896893018*^9},ExpressionUUID->"61f4c68f-ce49-4868-9933-\ 5527188cddf6"] }, Open ]], Cell["What we need is NestWhile", "Text", CellChangeTimes->{{3.725559541706374*^9, 3.7255595722940073`*^9}},ExpressionUUID->"c8268430-3ba7-48cc-a8b4-\ 392424e158cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "NestWhile"}]], "Input", CellChangeTimes->{{3.725559577322557*^9, 3.7255595941733503`*^9}},ExpressionUUID->"a57815ed-2252-453f-ba83-\ 85a0248714d7"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", RowBox[{StyleBox[\ \\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\"TI\\\"], \ \\\",\\\", StyleBox[\\\"test\\\", \\\"TI\\\"]}], \\\"]\\\"}]\) starts with \!\ \(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\), then repeatedly applies \ \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) until applying \ \!\(\*StyleBox[\\\"test\\\", \\\"TI\\\"]\) to the result no longer yields \ True. \\n\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\\\ \", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\) supplies the most recent \ \!\(\*StyleBox[\\\"m\\\", \\\"TI\\\"]\) results as arguments for \ \!\(\*StyleBox[\\\"test\\\", \\\"TI\\\"]\) at each step. \ \\n\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", \\\"All\\\"}], \\\"]\\\"}]\) \ supplies all results so far as arguments for \!\(\*StyleBox[\\\"test\\\", \ \\\"TI\\\"]\) at each step. \\n\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"max\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\) applies \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) \ at most \!\(\*StyleBox[\\\"max\\\", \\\"TI\\\"]\) times. \ \\n\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \ \\\"TI\\\"], \\\",\\\", StyleBox[\\\"max\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"]}], \\\"]\\\"}]\) applies \!\(\*StyleBox[\\\"f\ \\\", \\\"TI\\\"]\) an extra \!\(\*StyleBox[\\\"n\\\", \\\"TI\\\"]\) times. \ \\n\!\(\*RowBox[{\\\"NestWhile\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \ \\\"TI\\\"], \\\",\\\", StyleBox[\\\"max\\\", \\\"TI\\\"], \\\",\\\", \ RowBox[{\\\"-\\\", StyleBox[\\\"n\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\) returns \ the result found when \!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) had been \ applied \!\(\*StyleBox[\\\"n\\\", \\\"TI\\\"]\) fewer times. \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/NestWhile"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7257848315712976`*^9}, CellTags-> "Info3725784831-9421833",ExpressionUUID->"505a12ba-30d4-47b6-925a-\ 5e14b0157420"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["x", "2"], "-", "2"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"update", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", "acc_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"x", "-", FractionBox[ RowBox[{"f", "[", "x", "]"}], RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}]]}], ",", RowBox[{"acc", "+", "1"}]}], "]"}], ",", "x"}], "}"}]}]}], "Input", CellChangeTimes->{{3.725558688595841*^9, 3.725558721140669*^9}, { 3.7255596148538637`*^9, 3.7255596212798634`*^9}},ExpressionUUID->"7a18ee4e-7f17-4385-aac8-\ 4edf6a9fd036"], Cell[BoxData[ RowBox[{ RowBox[{"root1", "[", RowBox[{"init_", ",", "acc_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"NestWhile", "[", RowBox[{ RowBox[{ RowBox[{"update", "[", RowBox[{"#", ",", "acc"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"init", ",", RowBox[{"init", "+", "1"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ">", SuperscriptBox["10", RowBox[{ RowBox[{"-", "acc"}], "-", "1"}]]}], "&"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]], "Input", CellChangeTimes->{{3.7255585077341213`*^9, 3.72555851853104*^9}, { 3.725558567289072*^9, 3.7255586821176434`*^9}, {3.725558786818797*^9, 3.725558863690247*^9}, 3.72555890108214*^9, {3.72555895161858*^9, 3.725558963467503*^9}, 3.725559642565063*^9},ExpressionUUID->"22d82501-20f2-43a9-83ad-\ 37c862198184"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"root1", "[", RowBox[{"2", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.7255588724257317`*^9, 3.7255588816745234`*^9}, { 3.725558976659589*^9, 3.725558978300548*^9}},ExpressionUUID->"ae1f6f70-16ba-4ef2-bc0d-\ 1ec1e2916db8"], Cell[BoxData["1.\ 414213562373095048801688724209698078569671875376948073176679737990732478462107\ 038850387534327641572735013846230912293960420721304992437`98.55390869918097"],\ "Output", CellChangeTimes->{{3.725558883078718*^9, 3.725558918822329*^9}, { 3.725558971505273*^9, 3.725558980106842*^9}, 3.7255596598121433`*^9, 3.725631578313085*^9, 3.725784902311678*^9, 3.725805026529759*^9},ExpressionUUID->"7a60177e-e520-4b7f-9d51-\ 764d8d26d99b"] }, Open ]], Cell[TextData[{ "Now we incorporate this in to a routine that finds a root of a general \ function. We also introduce g[x] = ", Cell[BoxData[ FormBox[ SubscriptBox["\[PartialD]", "x"], TraditionalForm]],ExpressionUUID-> "981d2ae4-9c52-4abe-9054-018f215af4d3"], "f[x], to avoid recomputing the derivative with each iteration." }], "Text", CellChangeTimes->{{3.7257512237936983`*^9, 3.725751504419709*^9}},ExpressionUUID->"1631c750-fc6d-4915-8e47-\ 857155406243"], Cell[BoxData[ RowBox[{ RowBox[{"findroot", "[", RowBox[{"fn_", ",", "init_", ",", " ", "acc_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", "init"}], ",", RowBox[{"y", "=", RowBox[{"init", "+", "1"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"fn", "'"}], "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"update", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"x", "-", FractionBox[ RowBox[{"fn", "[", "x", "]"}], RowBox[{"g", "[", "x", "]"}]]}], ",", RowBox[{"acc", "+", "5"}]}], "]"}], ",", "x"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NestWhile", "[", RowBox[{ RowBox[{ RowBox[{"update", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"init", ",", RowBox[{"init", "+", "1"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ">", SuperscriptBox["10", RowBox[{ RowBox[{"-", "acc"}], "-", "5"}]]}], "&"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", CellChangeTimes->{{3.725710372643713*^9, 3.725710601497671*^9}, { 3.725710655781301*^9, 3.725710659796404*^9}, {3.725710692149351*^9, 3.7257107807477217`*^9}, 3.725710946803996*^9, {3.725710986843348*^9, 3.725711010138178*^9}, {3.725711079728797*^9, 3.7257111897977*^9}, { 3.7257113154285*^9, 3.725711342992103*^9}, {3.725711431399213*^9, 3.7257114639966497`*^9}, {3.725711500594451*^9, 3.725711501546832*^9}, { 3.725712157320204*^9, 3.725712323804554*^9}, {3.725712801076795*^9, 3.725712836359082*^9}, {3.725729910893691*^9, 3.725729918995213*^9}, { 3.725730235647176*^9, 3.725730243306983*^9}},ExpressionUUID->"91a925fc-6070-459d-837c-\ 45a05adcdb49"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["x", "3"], "-", "2"}]}]], "Input", CellChangeTimes->{ 3.7257123720014544`*^9},ExpressionUUID->"9af0c794-6df3-442d-9d0f-\ 00959566c35c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"findroot", "[", RowBox[{"f", ",", "2", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.725751123849052*^9, 3.725751127220786*^9}},ExpressionUUID->"d4a9bca6-c3a6-420e-8b2f-\ 072220683955"], Cell[BoxData["1.\ 259921049894873164767210607278228350570251464701507980081975112155299676513959\ 483729396562436255094154310256035615660442484012772894911`102.14764197578823"]\ , "Output", CellChangeTimes->{ 3.72578490879627*^9},ExpressionUUID->"a7d7ca06-c7ae-465e-b6b5-1f2a15f99d5f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["%", "3"], "-", "2"}]], "Input", CellChangeTimes->{{3.7257123998892384`*^9, 3.725712406245613*^9}, { 3.7257130482927017`*^9, 3.725713049270132*^9}},ExpressionUUID->"e619de98-6688-4777-a417-\ bbe452689048"], Cell[BoxData["0``101.36949072540459"], "Output", CellChangeTimes->{ 3.725712408482952*^9, 3.725712899565824*^9, 3.725713051171302*^9, 3.725730213060498*^9, 3.72573025793357*^9, 3.725751134567679*^9, { 3.725784884877822*^9, 3.725784912066657*^9}},ExpressionUUID->"0a7684c0-f21c-4c2c-b2f4-\ ebd7e831f49f"] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{1436, 855}, WindowMargins->{{Automatic, -2000}, {-106, Automatic}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3725799114-7046702"->{ Cell[5791, 171, 3964, 61, 158, "Print",ExpressionUUID->"ffaf6cd8-c7d8-4d5e-aac5-3d91586404bc", CellTags->"Info3725799114-7046702"]}, "Info3725799310-7046702"->{ Cell[15911, 450, 4566, 71, 126, "Print",ExpressionUUID->"2f933671-7628-43d9-8527-1f7b99572ccb", CellTags->"Info3725799310-7046702"]}, "Info3725800194-2168353"->{ Cell[42195, 1186, 178, 4, 40, "Print",ExpressionUUID->"5bc6084f-18fd-4939-b488-deca6968fbc6", CellTags->"Info3725800194-2168353"], Cell[42376, 1192, 858, 25, 22, "Print",ExpressionUUID->"c5a8ce8e-e901-48f4-a029-b906574e9624", CellTags->"Info3725800194-2168353"]}, "Info3725798106-4267846"->{ Cell[44758, 1281, 178, 4, 40, "Print",ExpressionUUID->"e6b91035-a936-4e0d-b649-6e46a3615536", CellTags->"Info3725798106-4267846"], Cell[44939, 1287, 860, 25, 22, "Print",ExpressionUUID->"8ff39338-1f46-454f-a9ea-1a0f90d6bce8", CellTags->"Info3725798106-4267846"]}, "Info3725800986-6529853"->{ Cell[94731, 2769, 178, 4, 40, "Print",ExpressionUUID->"0476a6a4-e603-4625-8715-93b664a48dea", CellTags->"Info3725800986-6529853"]}, "Info3725801020-6529853"->{ Cell[96052, 2815, 180, 4, 40, "Print",ExpressionUUID->"2f025836-3db4-4415-bff5-70a0a7175f35", CellTags->"Info3725801020-6529853"], Cell[96235, 2821, 528, 16, 22, "Print",ExpressionUUID->"92ffb128-bbac-4f76-aad4-e80b3c109d67", CellTags->"Info3725801020-6529853"]}, "Info3725801046-6529853"->{ Cell[97227, 2856, 178, 4, 40, "Print",ExpressionUUID->"e0806e5d-2a9f-4445-9895-8aec64a40a06", CellTags->"Info3725801046-6529853"]}, "Info3725778991-3746579"->{ Cell[102836, 3027, 2650, 42, 90, "Print",ExpressionUUID->"eb8c144f-ea18-46d7-b241-8f9c2872dc90", CellTags->"Info3725778991-3746579"]}, "Info593725536807-4505350"->{ Cell[128750, 3790, 708, 15, 42, "Print",ExpressionUUID->"f806ef2c-9175-4de1-9b9f-1b648c9b783b", CellTags->"Info593725536807-4505350"]}, "Info73725544924-7537413"->{ Cell[136997, 4041, 810, 16, 86, "Print",ExpressionUUID->"9df860fe-d4c9-448f-ac49-f38019c3060a", CellTags->"Info73725544924-7537413"]}, "Info3725802539-3804010"->{ Cell[139990, 4137, 613, 15, 58, "Print",ExpressionUUID->"c87a916d-3c5d-40d0-93a6-5149f8f9cbdc", CellTags->"Info3725802539-3804010"]}, "Info263725547009-7827453"->{ Cell[225820, 5601, 1505, 26, 114, "Print",ExpressionUUID->"e28754a0-fdf3-4433-91f9-d479e76a20cf", CellTags->"Info263725547009-7827453"]}, "Info273725547034-7827453"->{ Cell[227539, 5638, 2824, 44, 198, "Print",ExpressionUUID->"3cde0fbe-c2c5-422e-85b5-625445982e64", CellTags->"Info273725547034-7827453"]}, "Info3725803850-4087249"->{ Cell[331281, 7658, 693, 16, 42, "Print",ExpressionUUID->"2a3e2041-993b-4d26-8293-49d5405d1843", CellTags->"Info3725803850-4087249"]}, "Info3725803870-4087249"->{ Cell[332188, 7685, 613, 15, 45, "Print",ExpressionUUID->"c50f7778-9056-4964-acae-a44b1e908d70", CellTags->"Info3725803870-4087249"]}, "Info93725665861-9419359"->{ Cell[337584, 7848, 865, 18, 42, "Print",ExpressionUUID->"1c581193-eb2a-4daa-81ff-8f8bfb6c691c", CellTags->"Info93725665861-9419359"]}, "Info3725784738-1433840"->{ Cell[353640, 8300, 188, 4, 40, "Print",ExpressionUUID->"84817c12-f62f-4fe6-9889-3fc035f552e3", CellTags->"Info3725784738-1433840"], Cell[353831, 8306, 1452, 41, 54, "Print",ExpressionUUID->"d23ac39d-5b5c-45d3-bad6-0a1c6bf38aa0", CellTags->"Info3725784738-1433840"]}, "Info3725804584-6157175"->{ Cell[356486, 8392, 188, 4, 40, "Print",ExpressionUUID->"fcb5c11b-1e67-401f-bc81-3c7a4d99c58c", CellTags->"Info3725804584-6157175"], Cell[356677, 8398, 1413, 40, 54, "Print",ExpressionUUID->"1f734360-0560-4817-8132-944973c0c4d9", CellTags->"Info3725804584-6157175"]}, "Info3725784831-9421833"->{ Cell[361860, 8554, 2892, 46, 122, "Print",ExpressionUUID->"505a12ba-30d4-47b6-925a-5e14b0157420", CellTags->"Info3725784831-9421833"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3725799114-7046702", 372337, 8825}, {"Info3725799310-7046702", 372504, 8828}, {"Info3725800194-2168353", 372672, 8831}, {"Info3725798106-4267846", 372975, 8836}, {"Info3725800986-6529853", 373278, 8841}, {"Info3725801020-6529853", 373444, 8844}, {"Info3725801046-6529853", 373747, 8849}, {"Info3725778991-3746579", 373913, 8852}, {"Info593725536807-4505350", 374084, 8855}, {"Info73725544924-7537413", 374255, 8858}, {"Info3725802539-3804010", 374424, 8861}, {"Info263725547009-7827453", 374594, 8864}, {"Info273725547034-7827453", 374768, 8867}, {"Info3725803850-4087249", 374940, 8870}, {"Info3725803870-4087249", 375108, 8873}, {"Info93725665861-9419359", 375277, 8876}, {"Info3725784738-1433840", 375446, 8879}, {"Info3725804584-6157175", 375752, 8884}, {"Info3725784831-9421833", 376058, 8889} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 192, 3, 86, "Chapter",ExpressionUUID->"d90cc9ee-2f1b-4f3e-b72d-3d49e4e77ba1"], Cell[CellGroupData[{ Cell[797, 29, 240, 4, 81, "Subchapter",ExpressionUUID->"f95585d2-5acf-4389-bb5d-08c192ce9439"], Cell[CellGroupData[{ Cell[1062, 37, 168, 3, 42, "Subsection",ExpressionUUID->"ee98bd50-83eb-4ca8-aa26-40b0f2c6a169"], Cell[1233, 42, 843, 18, 89, "Input",ExpressionUUID->"8ec9ce75-92d5-4433-b841-1a3a387695de"], Cell[2079, 62, 396, 10, 37, "Input",ExpressionUUID->"081d1dcb-9c0f-4817-b8c3-04dadc69b4b3"], Cell[2478, 74, 1028, 21, 55, "Input",ExpressionUUID->"bab18039-1a21-42e0-864d-984297ccf8d9"], Cell[CellGroupData[{ Cell[3531, 99, 272, 6, 37, "Input",ExpressionUUID->"6dceb0cf-65b8-452e-aaad-65299b63f58c"], Cell[3806, 107, 180, 3, 37, "Output",ExpressionUUID->"5c419128-8dc5-4f82-9108-3785ccdf8dc3"] }, Open ]], Cell[CellGroupData[{ Cell[4023, 115, 186, 4, 37, "Input",ExpressionUUID->"1a8cf602-1909-4534-b03a-7c738ed5abaf"], Cell[4212, 121, 204, 4, 37, "Output",ExpressionUUID->"55bc64f6-01c4-45ca-be2a-ec0097b041f2"] }, Open ]], Cell[CellGroupData[{ Cell[4453, 130, 303, 6, 37, "Input",ExpressionUUID->"8f5f235d-0e46-4534-9e8c-5c2783cd3358"], Cell[4759, 138, 224, 4, 37, "Output",ExpressionUUID->"3ef356ec-d2f5-4e33-9560-acab0c548a42"] }, Open ]], Cell[CellGroupData[{ Cell[5020, 147, 321, 6, 37, "Input",ExpressionUUID->"ae0a9521-d466-4e50-80ac-a3fc586fb422"], Cell[5344, 155, 234, 5, 37, "Output",ExpressionUUID->"4791a4a0-9d5b-402e-81c4-91ab1bda3785"] }, Open ]], Cell[CellGroupData[{ Cell[5615, 165, 173, 4, 37, "Input",ExpressionUUID->"53029a15-96fb-4f7c-b64a-2956b510adb7"], Cell[5791, 171, 3964, 61, 158, "Print",ExpressionUUID->"ffaf6cd8-c7d8-4d5e-aac5-3d91586404bc", CellTags->"Info3725799114-7046702"] }, Open ]], Cell[CellGroupData[{ Cell[9792, 237, 242, 5, 37, "Input",ExpressionUUID->"70778cc1-0ac1-4121-8499-6fc98444e8eb"], Cell[10037, 244, 242, 6, 37, "Output",ExpressionUUID->"c74e1dab-478a-4214-803d-ff8551912a8f"] }, Open ]], Cell[CellGroupData[{ Cell[10316, 255, 307, 6, 37, "Input",ExpressionUUID->"9311385d-1c3f-4664-a936-f0eea4964982"], Cell[10626, 263, 267, 6, 37, "Output",ExpressionUUID->"d3a81feb-0d92-47fb-b645-f5708cb824cc"] }, Open ]], Cell[CellGroupData[{ Cell[10930, 274, 283, 6, 37, "Input",ExpressionUUID->"c01e142b-f6ec-4bfd-8e6b-7bff0bcaa850"], Cell[11216, 282, 152, 3, 37, "Output",ExpressionUUID->"84dd556e-e1ea-48b6-8051-1a68fda140eb"] }, Open ]], Cell[CellGroupData[{ Cell[11405, 290, 239, 5, 37, "Input",ExpressionUUID->"7de39dd0-3365-48ef-a9e1-df615f0feba8"], Cell[11647, 297, 151, 2, 37, "Output",ExpressionUUID->"c54beb0a-b059-4bb4-8294-09966fe0612b"] }, Open ]], Cell[CellGroupData[{ Cell[11835, 304, 184, 4, 37, "Input",ExpressionUUID->"628ed563-2499-482d-9ff3-8bcb05e87f3e"], Cell[12022, 310, 156, 3, 37, "Output",ExpressionUUID->"490ff240-aeb3-4d04-8180-27eee6355604"] }, Open ]], Cell[CellGroupData[{ Cell[12215, 318, 188, 4, 37, "Input",ExpressionUUID->"2319f888-5443-474f-9693-b83e7c6dc1c0"], Cell[12406, 324, 284, 7, 37, "Output",ExpressionUUID->"b507c3f6-6e14-4a1d-9c4c-2183a0bce0d7"] }, Open ]], Cell[CellGroupData[{ Cell[12727, 336, 184, 4, 37, "Input",ExpressionUUID->"1b8f0258-a755-427c-ad2e-704e7fcf94db"], Cell[12914, 342, 152, 3, 37, "Output",ExpressionUUID->"26e0632d-1b73-4ed2-be7c-1a2c8faf9ba4"] }, Open ]], Cell[CellGroupData[{ Cell[13103, 350, 244, 6, 37, "Input",ExpressionUUID->"2d8e2160-4e88-4c37-b96b-f31e6ef6f5fa"], Cell[13350, 358, 217, 5, 37, "Output",ExpressionUUID->"3d4ce09e-90c8-4d4c-9caa-8ef77fa6dc21"] }, Open ]], Cell[CellGroupData[{ Cell[13604, 368, 207, 5, 37, "Input",ExpressionUUID->"563f8136-16ed-467a-b5d6-fa644cf4ac47"], Cell[13814, 375, 231, 5, 37, "Output",ExpressionUUID->"fc132f95-baf4-4b4d-87c1-33f39baf6e58"] }, Open ]], Cell[CellGroupData[{ Cell[14082, 385, 306, 8, 37, "Input",ExpressionUUID->"32939e7a-befc-4ec1-b9b3-47b84b663234"], Cell[14391, 395, 233, 6, 37, "Output",ExpressionUUID->"f0eea505-fc30-4fcb-88f8-bcb00fae9e79"] }, Open ]], Cell[CellGroupData[{ Cell[14661, 406, 207, 5, 37, "Input",ExpressionUUID->"959dd871-a030-48a1-aa87-3821c98d64fb"], Cell[14871, 413, 242, 6, 37, "Output",ExpressionUUID->"d60f6192-c77c-4dcc-9a86-4bed03834934"] }, Open ]], Cell[CellGroupData[{ Cell[15150, 424, 238, 6, 37, "Input",ExpressionUUID->"70ecb0a8-e181-4b71-b2fa-c8385f6bcc00"], Cell[15391, 432, 298, 7, 37, "Output",ExpressionUUID->"0b548be4-91fe-45de-a89a-4ffd33d3bbe8"] }, Open ]], Cell[CellGroupData[{ Cell[15726, 444, 182, 4, 37, "Input",ExpressionUUID->"d2c5822c-f49a-4c4e-985b-3c57a2dbc05b"], Cell[15911, 450, 4566, 71, 126, "Print",ExpressionUUID->"2f933671-7628-43d9-8527-1f7b99572ccb", CellTags->"Info3725799310-7046702"] }, Open ]], Cell[20492, 524, 932, 20, 89, "Input",ExpressionUUID->"d288d8ea-635d-4549-95ab-f17028d1e3b9"], Cell[21427, 546, 351, 10, 37, "Input",ExpressionUUID->"42e3f437-feb9-40e6-bf54-da4e47806056"], Cell[CellGroupData[{ Cell[21803, 560, 238, 5, 37, "Input",ExpressionUUID->"4b63b46d-540f-4e0d-9341-4418e3569e9e"], Cell[22044, 567, 551, 17, 48, "Output",ExpressionUUID->"35734f82-4d64-440c-afba-c5e7ff5f9237"] }, Open ]], Cell[CellGroupData[{ Cell[22632, 589, 192, 4, 37, "Input",ExpressionUUID->"7047693f-fe6a-4d22-a6ec-a69894e798e1"], Cell[22827, 595, 5822, 158, 451, "Output",ExpressionUUID->"aa738b35-c21f-4260-b8e2-7a06cfc0ba7c"] }, Open ]], Cell[CellGroupData[{ Cell[28686, 758, 185, 4, 37, "Input",ExpressionUUID->"fd5a373d-aab7-4cfa-a666-e3cd6b4e3a35"], Cell[28874, 764, 156, 3, 37, "Output",ExpressionUUID->"386a5d9a-a99a-414c-b1d1-f9756c003ed5"] }, Open ]], Cell[CellGroupData[{ Cell[29067, 772, 264, 6, 37, "Input",ExpressionUUID->"75e7449d-586a-418e-8619-697ebad28d66"], Cell[29334, 780, 355, 9, 44, "Output",ExpressionUUID->"77038f0d-09a8-4f94-b243-77e414fce9e6"] }, Open ]], Cell[CellGroupData[{ Cell[29726, 794, 212, 5, 37, "Input",ExpressionUUID->"f38c34fe-dbe3-4cc4-a656-6111961843d7"], Cell[29941, 801, 301, 9, 44, "Output",ExpressionUUID->"1b073bde-825c-4ced-846c-af3e38473e90"] }, Open ]], Cell[CellGroupData[{ Cell[30279, 815, 210, 5, 37, "Input",ExpressionUUID->"164e6154-df63-4f31-ac52-9dbb242e07ad"], Cell[30492, 822, 321, 9, 44, "Output",ExpressionUUID->"cf242090-5e6f-4759-8237-9b1bba477e38"] }, Open ]], Cell[CellGroupData[{ Cell[30850, 836, 261, 6, 37, "Input",ExpressionUUID->"307a8cd6-fe68-44f7-821b-bc7aa94c732f"], Cell[31114, 844, 184, 3, 37, "Output",ExpressionUUID->"d13fd655-f05c-4bb9-80c1-295c62112c53"] }, Open ]], Cell[CellGroupData[{ Cell[31335, 852, 289, 7, 37, "Input",ExpressionUUID->"2ff65b57-1d89-4073-b207-25cfd176f61a"], Cell[31627, 861, 183, 3, 37, "Output",ExpressionUUID->"fcae0909-023a-417c-9db7-eba7abb6a759"] }, Open ]], Cell[CellGroupData[{ Cell[31847, 869, 310, 9, 37, "Input",ExpressionUUID->"deefeb3e-ba16-439d-b4cc-41df3468cd48"], Cell[32160, 880, 352, 8, 37, "Output",ExpressionUUID->"0adb8df7-a7e3-4cd9-95ea-963f90c23727"] }, Open ]], Cell[CellGroupData[{ Cell[32549, 893, 187, 4, 37, "Input",ExpressionUUID->"d87d1aff-73a7-4566-a7e4-fab83d5375d0"], Cell[32739, 899, 5789, 158, 501, "Output",ExpressionUUID->"1b5bd4e1-2b5e-4037-a8e9-93c31a495904"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[38577, 1063, 256, 4, 41, "Subsection",ExpressionUUID->"ee98bd50-83eb-4ca8-aa26-40b0f2c6a169"], Cell[CellGroupData[{ Cell[38858, 1071, 529, 16, 55, "Input",ExpressionUUID->"98c65c57-280d-43eb-b36c-8c32b5000277"], Cell[39390, 1089, 204, 4, 37, "Output",ExpressionUUID->"36410a60-b75c-44fd-a77a-f78f9fa8c8c3"], Cell[39597, 1095, 247, 6, 37, "Output",ExpressionUUID->"3cccd3d9-20ea-4249-bcd5-8597d3704e22"] }, Open ]], Cell[CellGroupData[{ Cell[39881, 1106, 382, 10, 55, "Input",ExpressionUUID->"4cca88bd-2f6f-4e3d-beff-3f9af66e8695"], Cell[40266, 1118, 176, 4, 37, "Output",ExpressionUUID->"8d8b2cb0-80b8-4a76-8589-ba2dc7018f09"], Cell[40445, 1124, 156, 3, 37, "Output",ExpressionUUID->"d537b117-8af5-4994-998e-de4d61fa8a3d"] }, Open ]], Cell[CellGroupData[{ Cell[40638, 1132, 491, 14, 72, "Input",ExpressionUUID->"f32ddec1-6298-4918-b5f0-c78379090f83"], Cell[41132, 1148, 227, 5, 37, "Output",ExpressionUUID->"7adccdba-e050-47cb-a5d8-648cba8487a7"], Cell[41362, 1155, 227, 5, 37, "Output",ExpressionUUID->"b7a3b770-6289-4e5b-9060-07c8559be2d3"] }, Open ]], Cell[CellGroupData[{ Cell[41626, 1165, 191, 4, 37, "Input",ExpressionUUID->"84d12050-85da-4128-8efa-af4572a5546b"], Cell[41820, 1171, 141, 2, 37, "Output",ExpressionUUID->"ad2c831b-6a49-4672-813f-79e2b858e394"] }, Open ]], Cell[CellGroupData[{ Cell[41998, 1178, 172, 4, 37, "Input",ExpressionUUID->"4887f96f-b7b9-40d3-a161-67db2e785a81"], Cell[CellGroupData[{ Cell[42195, 1186, 178, 4, 40, "Print",ExpressionUUID->"5bc6084f-18fd-4939-b488-deca6968fbc6", CellTags->"Info3725800194-2168353"], Cell[42376, 1192, 858, 25, 22, "Print",ExpressionUUID->"c5a8ce8e-e901-48f4-a029-b906574e9624", CellTags->"Info3725800194-2168353"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43283, 1223, 187, 4, 37, "Input",ExpressionUUID->"b19a9bcc-8201-4aef-b8b6-8b9dd2afb49d"], Cell[43473, 1229, 381, 13, 37, "Output",ExpressionUUID->"d48749d2-b407-45f2-a6d6-4c60d62a0b3a"] }, Open ]], Cell[CellGroupData[{ Cell[43891, 1247, 326, 9, 55, "Input",ExpressionUUID->"fdfcafe4-6c11-4018-a9e2-3c95e64da85a"], Cell[44220, 1258, 172, 5, 37, "Output",ExpressionUUID->"8961fad5-d210-4499-86f5-bf31d61ff0ba"], Cell[44395, 1265, 130, 3, 37, "Output",ExpressionUUID->"a6977a98-2340-4a5b-beb3-55d1d161eacb"] }, Open ]], Cell[CellGroupData[{ Cell[44562, 1273, 171, 4, 37, "Input",ExpressionUUID->"c650d2c7-5af3-4cfb-94ff-86d23776f289"], Cell[CellGroupData[{ Cell[44758, 1281, 178, 4, 40, "Print",ExpressionUUID->"e6b91035-a936-4e0d-b649-6e46a3615536", CellTags->"Info3725798106-4267846"], Cell[44939, 1287, 860, 25, 22, "Print",ExpressionUUID->"8ff39338-1f46-454f-a9ea-1a0f90d6bce8", CellTags->"Info3725798106-4267846"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45848, 1318, 186, 4, 37, "Input",ExpressionUUID->"5c759fd2-4721-4ed6-b5cb-68960cd357fc"], Cell[46037, 1324, 416, 14, 37, "Output",ExpressionUUID->"53c169f4-ca01-4b56-919e-118426e2412f"] }, Open ]], Cell[CellGroupData[{ Cell[46490, 1343, 356, 9, 55, "Input",ExpressionUUID->"b63aa55a-37d0-410e-ac0b-a9ad0be58433"], Cell[46849, 1354, 176, 3, 37, "Output",ExpressionUUID->"3859d7d2-5ef6-49a8-b89f-b2da8685db61"] }, Open ]], Cell[CellGroupData[{ Cell[47062, 1362, 185, 4, 37, "Input",ExpressionUUID->"ea7981d4-53cc-4200-a8f6-8dd82f99fc95"], Cell[47250, 1368, 159, 3, 37, "Output",ExpressionUUID->"f7c30cee-2884-4b3e-9401-d57153bcb5ac"] }, Open ]], Cell[47424, 1374, 1643, 34, 106, "Input",ExpressionUUID->"5008658a-0902-42fc-b966-cff96d9219ee"], Cell[49070, 1410, 284, 7, 37, "Input",ExpressionUUID->"5199ec37-1934-41f7-a31d-956cb4ac8cd2"], Cell[CellGroupData[{ Cell[49379, 1421, 154, 3, 37, "Input",ExpressionUUID->"84332abb-20bb-4b59-9761-4c91087084ec"], Cell[49536, 1426, 318, 7, 37, "Output",ExpressionUUID->"99f24d6e-47d9-420b-9de8-88f23f7b0bd5"] }, Open ]], Cell[CellGroupData[{ Cell[49891, 1438, 286, 8, 37, "Input",ExpressionUUID->"67b8cf4f-a626-4c5e-9df5-faac8bd56f01"], Cell[50180, 1448, 152, 4, 37, "Output",ExpressionUUID->"bddb6ea0-51c2-43c3-ba62-67721d1170ab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[50381, 1458, 161, 3, 41, "Subsection",ExpressionUUID->"570835f4-e463-4c12-a402-48045790ba9e"], Cell[CellGroupData[{ Cell[50567, 1465, 155, 3, 37, "Input",ExpressionUUID->"78f8905e-ad78-4834-b7f2-83bd20c4c79d"], Cell[50725, 1470, 269, 6, 37, "Output",ExpressionUUID->"494ce4d9-ff55-4dbb-9464-abad0801412f"] }, Open ]], Cell[51009, 1479, 408, 9, 37, "Input",ExpressionUUID->"f2b68efc-1730-468f-9742-f8f35ca90b69"], Cell[CellGroupData[{ Cell[51442, 1492, 189, 4, 37, "Input",ExpressionUUID->"ee6ce545-9caa-4313-b77c-4e561a82910d"], Cell[51634, 1498, 9195, 257, 241, "Output",ExpressionUUID->"3d2ec02f-e9e3-4795-a610-7182c13a1daf"] }, Open ]], Cell[CellGroupData[{ Cell[60866, 1760, 208, 5, 37, "Input",ExpressionUUID->"d1ed8a42-74ad-4ccd-943a-a5dc622137b4"], Cell[61077, 1767, 610, 16, 37, "Output",ExpressionUUID->"29f0cd3e-0f14-4a48-b497-d001458026f5"] }, Open ]], Cell[CellGroupData[{ Cell[61724, 1788, 241, 6, 37, "Input",ExpressionUUID->"1797bf30-4971-4de9-869f-27bd2caf3894"], Cell[61968, 1796, 16972, 481, 290, "Output",ExpressionUUID->"b8daa4fa-8cf2-486b-ae49-695ce83dea0a"] }, Open ]], Cell[CellGroupData[{ Cell[78977, 2282, 179, 4, 37, "Input",ExpressionUUID->"c9f2401b-a600-4dca-9e9e-2d38fed033d5"], Cell[79159, 2288, 606, 16, 37, "Output",ExpressionUUID->"f385af02-0fc5-4546-8c74-ab2ec56f5db5"] }, Open ]], Cell[CellGroupData[{ Cell[79802, 2309, 175, 4, 37, "Input",ExpressionUUID->"5539b7f8-1d5e-4381-bc24-74357cb5e3e6"], Cell[79980, 2315, 159, 4, 37, "Output",ExpressionUUID->"3bcebde1-ebfd-46f3-8e06-9103c2997c7a"] }, Open ]], Cell[80154, 2322, 184, 3, 30, "Text",ExpressionUUID->"12e596a7-4dd8-45f5-bfd5-e27cc15238b3"], Cell[CellGroupData[{ Cell[80363, 2329, 247, 6, 37, "Input",ExpressionUUID->"74a75222-609a-4a3f-aa48-d8d737d8cb16"], Cell[80613, 2337, 337, 11, 37, "Output",ExpressionUUID->"41aff10c-51fd-451e-9d10-159cde17ad31"] }, Open ]], Cell[CellGroupData[{ Cell[80987, 2353, 249, 6, 37, "Input",ExpressionUUID->"b8062508-ea65-4f64-a38c-135895a7ca1c"], Cell[81239, 2361, 3320, 92, 440, "Output",ExpressionUUID->"308e0f91-1633-4aa2-ad8c-355500d6d49c"] }, Open ]], Cell[CellGroupData[{ Cell[84596, 2458, 182, 4, 37, "Input",ExpressionUUID->"686d55d4-9769-4979-8abc-a606bf6c529d"], Cell[84781, 2464, 152, 3, 37, "Output",ExpressionUUID->"341adca5-9f96-46d3-b4a3-ca91c327ff27"] }, Open ]], Cell[CellGroupData[{ Cell[84970, 2472, 238, 6, 37, "Input",ExpressionUUID->"da3f5f80-14d8-4f67-bb78-f74526297a6b"], Cell[85211, 2480, 301, 8, 37, "Output",ExpressionUUID->"17fdb44f-55dd-45b6-8fdb-247eddedb7e7"] }, Open ]], Cell[CellGroupData[{ Cell[85549, 2493, 277, 7, 37, "Input",ExpressionUUID->"b187f02f-78f6-415a-a45a-47cde4ca793d"], Cell[85829, 2502, 5757, 159, 467, "Output",ExpressionUUID->"9dedf1b1-0849-449a-8a65-74944059ee32"] }, Open ]], Cell[91601, 2664, 167, 2, 30, "Text",ExpressionUUID->"f8b0866f-0c88-49b8-9409-8e8597f373ed"], Cell[CellGroupData[{ Cell[91793, 2670, 182, 4, 37, "Input",ExpressionUUID->"10f285a6-7a98-4885-8e71-2d941f113401"], Cell[91978, 2676, 159, 4, 37, "Output",ExpressionUUID->"088928f8-7da5-4bdc-a1fc-10e1afaea208"] }, Open ]], Cell[CellGroupData[{ Cell[92174, 2685, 179, 4, 37, "Input",ExpressionUUID->"eaa054bd-2980-413a-a1c8-0b39bc5f29f3"], Cell[92356, 2691, 608, 16, 37, "Output",ExpressionUUID->"fa69a122-1f22-4953-8741-14e6613694f4"] }, Open ]], Cell[CellGroupData[{ Cell[93001, 2712, 185, 4, 37, "Input",ExpressionUUID->"b5fe7089-1a6f-474c-9341-9e5b56d84d9e"], Cell[93189, 2718, 628, 16, 37, "Output",ExpressionUUID->"fec9016f-98f2-40fb-b057-aff8b1077977"] }, Open ]], Cell[CellGroupData[{ Cell[93854, 2739, 193, 4, 37, "Input",ExpressionUUID->"89b22b44-cd33-4d39-971d-802407016a4b"], Cell[94050, 2745, 241, 6, 37, "Output",ExpressionUUID->"179616cd-fddf-4dfa-ac23-2643de511020"] }, Open ]], Cell[94306, 2754, 227, 5, 37, "Input",ExpressionUUID->"48e53fcc-5f8e-4ba3-b932-e2409ae6eb81"], Cell[CellGroupData[{ Cell[94558, 2763, 170, 4, 37, "Input",ExpressionUUID->"2a4798f9-1281-4da4-aacf-858dbfb45929"], Cell[94731, 2769, 178, 4, 40, "Print",ExpressionUUID->"0476a6a4-e603-4625-8715-93b664a48dea", CellTags->"Info3725800986-6529853"] }, Open ]], Cell[CellGroupData[{ Cell[94946, 2778, 232, 6, 37, "Input",ExpressionUUID->"83b9e685-f83a-4d9f-99dc-f8e68a8b57d9"], Cell[95181, 2786, 449, 10, 37, "Output",ExpressionUUID->"8264b2cf-a769-425f-a5a1-54f3d7240d42"] }, Open ]], Cell[95645, 2799, 186, 4, 37, "Input",ExpressionUUID->"9b1c767b-1d41-4ba2-a7cf-b989a308bc16"], Cell[CellGroupData[{ Cell[95856, 2807, 171, 4, 37, "Input",ExpressionUUID->"1a30b388-e36e-487c-b3b7-42ac0176a6dc"], Cell[CellGroupData[{ Cell[96052, 2815, 180, 4, 40, "Print",ExpressionUUID->"2f025836-3db4-4415-bff5-70a0a7175f35", CellTags->"Info3725801020-6529853"], Cell[96235, 2821, 528, 16, 22, "Print",ExpressionUUID->"92ffb128-bbac-4f76-aad4-e80b3c109d67", CellTags->"Info3725801020-6529853"] }, Open ]] }, Open ]], Cell[96790, 2841, 238, 5, 37, "Input",ExpressionUUID->"9b1c767b-1d41-4ba2-a7cf-b989a308bc16"], Cell[CellGroupData[{ Cell[97053, 2850, 171, 4, 37, "Input",ExpressionUUID->"1a30b388-e36e-487c-b3b7-42ac0176a6dc"], Cell[97227, 2856, 178, 4, 40, "Print",ExpressionUUID->"e0806e5d-2a9f-4445-9895-8aec64a40a06", CellTags->"Info3725801046-6529853"] }, Open ]], Cell[97420, 2863, 187, 4, 37, "Input",ExpressionUUID->"214a6402-5b6c-4652-b8c0-10a87d296592"], Cell[CellGroupData[{ Cell[97632, 2871, 172, 4, 37, "Input",ExpressionUUID->"12ae2993-ff42-4e65-b574-2bacabe3a45f"], Cell[97807, 2877, 597, 11, 24, "Message",ExpressionUUID->"93d77003-edd4-49a0-bf76-de29b3c8b554"] }, Open ]], Cell[98419, 2891, 248, 4, 30, "Text",ExpressionUUID->"5f6406ee-c4ee-487b-a4ba-11491911925d"], Cell[CellGroupData[{ Cell[98692, 2899, 269, 7, 37, "Input",ExpressionUUID->"4547fd0d-044a-4730-992d-1a76dfbe91d9"], Cell[98964, 2908, 340, 9, 44, "Output",ExpressionUUID->"1dd64f76-3ebd-4c6a-ad56-8a9eac065bde"] }, Open ]], Cell[99319, 2920, 411, 12, 37, "Input",ExpressionUUID->"0c05dd33-4795-4ee7-b7c2-62e04eb417e1"], Cell[CellGroupData[{ Cell[99755, 2936, 212, 5, 37, "Input",ExpressionUUID->"9bc6a6fe-0289-4b2e-8840-0199803be2ec"], Cell[99970, 2943, 544, 11, 37, "Output",ExpressionUUID->"e6db909d-fc29-4c33-8619-a3ce87478e6a"] }, Open ]], Cell[CellGroupData[{ Cell[100551, 2959, 287, 7, 37, "Input",ExpressionUUID->"6368ede9-e5ad-4567-8eb9-a9b8fc0dc181"], Cell[100841, 2968, 305, 5, 37, "Output",ExpressionUUID->"2004bed2-7518-4978-be91-bc04c20bae85"] }, Open ]], Cell[CellGroupData[{ Cell[101183, 2978, 289, 7, 37, "Input",ExpressionUUID->"781f3c2e-5fcd-4489-9d1f-d00868cb24b8"], Cell[101475, 2987, 310, 5, 37, "Output",ExpressionUUID->"d1e4f05b-892e-4f96-bbe3-09d17ae36f80"] }, Open ]], Cell[CellGroupData[{ Cell[101822, 2997, 274, 5, 37, "Input",ExpressionUUID->"76746f49-ede2-41f2-8c28-df7a15514304"], Cell[102099, 3004, 305, 5, 37, "Output",ExpressionUUID->"9e2b28b6-6a6c-4f8a-8e04-d271c5ccb600"] }, Open ]], Cell[102419, 3012, 215, 5, 30, "Text",ExpressionUUID->"3f5b4f42-082a-43a8-983a-11cab1d51b6a"], Cell[CellGroupData[{ Cell[102659, 3021, 174, 4, 37, "Input",ExpressionUUID->"364ad23f-621d-4726-b8aa-15b872aead89"], Cell[102836, 3027, 2650, 42, 90, "Print",ExpressionUUID->"eb8c144f-ea18-46d7-b241-8f9c2872dc90", CellTags->"Info3725778991-3746579"] }, Open ]], Cell[CellGroupData[{ Cell[105523, 3074, 287, 8, 37, "Input",ExpressionUUID->"f478ceb9-e208-4339-bd8d-458a219d4bb9"], Cell[105813, 3084, 350, 10, 37, "Output",ExpressionUUID->"2bfa1621-83bd-40a9-b534-d52a3147589a"] }, Open ]], Cell[CellGroupData[{ Cell[106200, 3099, 398, 9, 37, "Input",ExpressionUUID->"ad973859-bb23-43e6-9df4-d63db6340c8d"], Cell[106601, 3110, 353, 8, 37, "Output",ExpressionUUID->"c2e44137-a186-418c-9b70-2bd7cfb8f444"] }, Open ]], Cell[CellGroupData[{ Cell[106991, 3123, 431, 9, 37, "Input",ExpressionUUID->"1324886d-6279-4a45-80f0-1a30356ff117"], Cell[107425, 3134, 359, 9, 37, "Output",ExpressionUUID->"9fee88f6-991d-459f-bec8-9b6a086921b8"] }, Open ]], Cell[107799, 3146, 370, 9, 37, "Input",ExpressionUUID->"ce073493-21e6-4e25-94fb-2da4c2d207a1"], Cell[CellGroupData[{ Cell[108194, 3159, 245, 6, 37, "Input",ExpressionUUID->"511d6108-aa28-4cca-8f9e-60dc08db2a77"], Cell[108442, 3167, 3160, 90, 384, "Output",ExpressionUUID->"d6a9327e-cf4c-418b-ab17-a17cf8df1588"] }, Open ]], Cell[CellGroupData[{ Cell[111639, 3262, 357, 9, 37, "Input",ExpressionUUID->"ca37303d-9f1a-400b-8799-f93afdedbea1"], Cell[111999, 3273, 3310, 92, 440, "Output",ExpressionUUID->"d77f11f6-7ebf-4677-b470-ab98a87c3113"] }, Open ]], Cell[115324, 3368, 183, 3, 30, "Text",ExpressionUUID->"171140d6-37fb-4c83-8ba3-105f1dad3378"], Cell[CellGroupData[{ Cell[115532, 3375, 250, 6, 37, "Input",ExpressionUUID->"b6912d0e-cd09-4809-b521-e22340e011a1"], Cell[115785, 3383, 133, 3, 37, "Output",ExpressionUUID->"09934087-dd95-4342-982b-8eed099cbcb8"] }, Open ]], Cell[CellGroupData[{ Cell[115955, 3391, 278, 7, 37, "Input",ExpressionUUID->"c2f6df25-fbaf-4e45-aa12-371c0ba841ed"], Cell[116236, 3400, 200, 5, 37, "Output",ExpressionUUID->"1f112536-4f9e-4f05-80f0-8f808b8f8e6f"] }, Open ]], Cell[CellGroupData[{ Cell[116473, 3410, 183, 4, 37, "Input",ExpressionUUID->"e0ddddf4-bb35-4eda-a806-0740f268802a"], Cell[116659, 3416, 130, 3, 37, "Output",ExpressionUUID->"e77a643b-3fe0-47d1-bdb1-ead277652caf"] }, Open ]], Cell[CellGroupData[{ Cell[116826, 3424, 245, 6, 37, "Input",ExpressionUUID->"f1051ff1-08f3-4bf1-95e3-eddaecc7f5ad"], Cell[117074, 3432, 200, 5, 37, "Output",ExpressionUUID->"d3dbb034-e202-42da-a9a7-87e5a6b504c2"] }, Open ]], Cell[CellGroupData[{ Cell[117311, 3442, 306, 8, 37, "Input",ExpressionUUID->"9761d4ee-b800-4cc6-9870-83db335f6452"], Cell[117620, 3452, 330, 11, 37, "Output",ExpressionUUID->"3280ccbf-0573-4bca-807b-2a1f5bdf6ff6"] }, Open ]], Cell[CellGroupData[{ Cell[117987, 3468, 228, 5, 37, "Input",ExpressionUUID->"5befca6f-b5c9-4dbe-98bc-d1787cfa45ee"], Cell[118218, 3475, 330, 11, 37, "Output",ExpressionUUID->"155bec46-f3a9-4814-9260-dd015d6f435d"] }, Open ]], Cell[CellGroupData[{ Cell[118585, 3491, 246, 6, 37, "Input",ExpressionUUID->"8c760a99-3931-44b2-864d-a2412b98189e"], Cell[118834, 3499, 172, 4, 37, "Output",ExpressionUUID->"b44e3e3c-51a4-4d41-a4c5-1bf90db3fd9f"] }, Open ]], Cell[CellGroupData[{ Cell[119043, 3508, 304, 8, 37, "Input",ExpressionUUID->"067dbfc5-b89b-4064-b34f-5d93f187efe8"], Cell[119350, 3518, 286, 8, 37, "Output",ExpressionUUID->"2aafea0e-2ae2-4bd3-9aae-712b59a414dc"] }, Open ]], Cell[119651, 3529, 186, 4, 37, "Input",ExpressionUUID->"3f71e023-fa85-4c2f-81fd-d139c21840fc"], Cell[CellGroupData[{ Cell[119862, 3537, 369, 10, 37, "Input",ExpressionUUID->"dd7d7a88-2ed4-461a-aff3-ca34af18b52c"], Cell[120234, 3549, 7253, 198, 456, "Output",ExpressionUUID->"e40cbfe4-2b06-4b56-956a-9265aaaf71d7"] }, Open ]], Cell[CellGroupData[{ Cell[127524, 3752, 290, 7, 37, "Input",ExpressionUUID->"29b3dfbd-c599-41f6-9d3e-a58e6a2d8059"], Cell[127817, 3761, 308, 8, 37, "Output",ExpressionUUID->"bb1a5c0c-4f6c-4140-8a14-c087917bee7d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[128174, 3775, 298, 4, 41, "Subsection",ExpressionUUID->"6058c036-8db7-4f93-a8b7-4204223ec899"], Cell[CellGroupData[{ Cell[128497, 3783, 250, 5, 37, "Input",ExpressionUUID->"af8e32ca-7f96-4c67-a32e-5a009a832e59"], Cell[128750, 3790, 708, 15, 42, "Print",ExpressionUUID->"f806ef2c-9175-4de1-9b9f-1b648c9b783b", CellTags->"Info593725536807-4505350"] }, Open ]], Cell[CellGroupData[{ Cell[129495, 3810, 320, 8, 37, "Input",ExpressionUUID->"941e38c6-124b-46b3-80b7-471ebd2cc08a"], Cell[129818, 3820, 195, 5, 37, "Output",ExpressionUUID->"f40c30cd-8ab6-4cdb-b152-d72664a3488a"] }, Open ]], Cell[CellGroupData[{ Cell[130050, 3830, 400, 11, 37, "Input",ExpressionUUID->"3cbfe7a2-04f3-4814-9745-e0297ec7adbe"], Cell[130453, 3843, 195, 5, 37, "Output",ExpressionUUID->"1fc1a002-545c-4452-a5bd-f9cb6f77d970"] }, Open ]], Cell[CellGroupData[{ Cell[130685, 3853, 427, 11, 37, "Input",ExpressionUUID->"3d8f37a3-1fe4-42a1-b7a0-325164f5e5b6"], Cell[131115, 3866, 195, 5, 37, "Output",ExpressionUUID->"ebe7e24a-c885-4742-811f-822bc43b40d4"] }, Open ]], Cell[CellGroupData[{ Cell[131347, 3876, 305, 8, 37, "Input",ExpressionUUID->"80fdffa6-6597-4128-8e57-6d83c89d960e"], Cell[131655, 3886, 274, 7, 37, "Output",ExpressionUUID->"a577b1c6-8a6f-471b-a847-037bcd1704c3"] }, Open ]], Cell[CellGroupData[{ Cell[131966, 3898, 312, 8, 37, "Input",ExpressionUUID->"589706f3-fbd5-4847-9058-421f6fb67e8d"], Cell[132281, 3908, 277, 7, 37, "Output",ExpressionUUID->"616e66d9-1de0-4b8e-834c-79af1470194f"] }, Open ]], Cell[132573, 3918, 1411, 31, 89, "Input",ExpressionUUID->"378abf40-b6d8-411e-97e5-e159eef216d6"], Cell[CellGroupData[{ Cell[134009, 3953, 583, 14, 72, "Input",ExpressionUUID->"faac7e7e-ecd6-490b-a74d-6f1464817ba4"], Cell[134595, 3969, 619, 12, 24, "Message",ExpressionUUID->"75bfbdc7-cd8d-4cd4-8305-038495a78299"], Cell[135217, 3983, 375, 8, 37, "Output",ExpressionUUID->"13d3f662-93c8-42c1-ac15-fde8e20a2285"], Cell[135595, 3993, 302, 5, 37, "Output",ExpressionUUID->"0284e16f-77bc-4ea1-aa2e-2b52a27de936"] }, Open ]], Cell[CellGroupData[{ Cell[135934, 4003, 498, 14, 72, "Input",ExpressionUUID->"de8b3cdb-db0a-4428-9388-4c2e5bde93f3"], Cell[136435, 4019, 155, 3, 37, "Output",ExpressionUUID->"03df2e33-45ff-4e60-b5c3-e51d15fd06c5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[136639, 4028, 158, 3, 41, "Subsection",ExpressionUUID->"be3d9572-75c5-492e-bea0-9d321d604ad6"], Cell[CellGroupData[{ Cell[136822, 4035, 172, 4, 51, "Input",ExpressionUUID->"dfa4c27f-c4c4-41e4-a54f-29ef571a20a2"], Cell[136997, 4041, 810, 16, 86, "Print",ExpressionUUID->"9df860fe-d4c9-448f-ac49-f38019c3060a", CellTags->"Info73725544924-7537413"] }, Open ]], Cell[137822, 4060, 372, 11, 104, "Input",ExpressionUUID->"02d67d85-85b6-45d2-9835-0ed65704a6dd"], Cell[CellGroupData[{ Cell[138219, 4075, 258, 7, 51, "Input",ExpressionUUID->"3dad33cc-98d8-4fa2-802a-ac14d0b2afed"], Cell[138480, 4084, 269, 8, 55, "Output",ExpressionUUID->"3b4685c2-2ed9-445b-b559-3a7f701c7b06"] }, Open ]], Cell[138764, 4095, 238, 4, 43, "Text",ExpressionUUID->"ba165aea-4186-4704-bf30-f4302e9b8659"], Cell[139005, 4101, 249, 6, 51, "Input",ExpressionUUID->"abc7dfe7-0149-4b44-9cb2-1199be70d248"], Cell[CellGroupData[{ Cell[139279, 4111, 262, 7, 51, "Input",ExpressionUUID->"acbde2a8-e2dd-48bb-8a0f-1b1a53265260"], Cell[139544, 4120, 232, 6, 51, "Output",ExpressionUUID->"96aa913c-494e-4ab8-8504-b781600bd071"] }, Open ]], Cell[CellGroupData[{ Cell[139813, 4131, 174, 4, 51, "Input",ExpressionUUID->"db1f5402-81f5-4a86-93f3-0698ace466c3"], Cell[139990, 4137, 613, 15, 58, "Print",ExpressionUUID->"c87a916d-3c5d-40d0-93a6-5149f8f9cbdc", CellTags->"Info3725802539-3804010"] }, Open ]], Cell[CellGroupData[{ Cell[140640, 4157, 331, 7, 51, "Input",ExpressionUUID->"a1c1c35e-246b-4f0f-9f0a-9c38672fb796"], Cell[140974, 4166, 41591, 687, 180, "Output",ExpressionUUID->"1706e209-855b-444e-a1ef-ec7179041bf3"] }, Open ]], Cell[182580, 4856, 572, 15, 106, "Input",ExpressionUUID->"734b5d34-0ef7-4e47-9a73-0d41bab9146d"], Cell[CellGroupData[{ Cell[183177, 4875, 158, 3, 51, "Input",ExpressionUUID->"224ccc44-e20d-40f4-924c-09a08b0997c1"], Cell[183338, 4880, 41723, 691, 182, "Output",ExpressionUUID->"bfa41b4e-9343-4dd2-8272-49e41588a1b0"] }, Open ]], Cell[CellGroupData[{ Cell[225098, 5576, 180, 4, 51, "Input",ExpressionUUID->"6b820364-15c8-4eb2-82c0-8d22a5e3a561"], Cell[225281, 5582, 322, 8, 51, "Output",ExpressionUUID->"f220fd80-6936-44d6-b374-26fb33bb2f6e"] }, Open ]], Cell[CellGroupData[{ Cell[225640, 5595, 177, 4, 51, "Input",ExpressionUUID->"5eed830c-c7c8-415f-8447-1d1888636ba6"], Cell[225820, 5601, 1505, 26, 114, "Print",ExpressionUUID->"e28754a0-fdf3-4433-91f9-d479e76a20cf", CellTags->"Info263725547009-7827453"] }, Open ]], Cell[CellGroupData[{ Cell[227362, 5632, 174, 4, 51, "Input",ExpressionUUID->"026a0141-e9f5-4921-9a9b-d42513bc2ea8"], Cell[227539, 5638, 2824, 44, 198, "Print",ExpressionUUID->"3cde0fbe-c2c5-422e-85b5-625445982e64", CellTags->"Info273725547034-7827453"] }, Open ]], Cell[230378, 5685, 156, 3, 51, "Input",ExpressionUUID->"e08cfbfe-958c-4742-8fb3-e51368765e11"], Cell[CellGroupData[{ Cell[230559, 5692, 210, 5, 51, "Input",ExpressionUUID->"f36dafb9-5c99-431a-bbde-73302355fd23"], Cell[230772, 5699, 41770, 691, 182, "Output",ExpressionUUID->"1942d728-3923-4248-9962-cca8ba491e7e"] }, Open ]], Cell[CellGroupData[{ Cell[272579, 6395, 216, 5, 51, "Input",ExpressionUUID->"2f4e97d5-f749-40c0-8e64-f6c10a6063f3"], Cell[272798, 6402, 200, 4, 51, "Output",ExpressionUUID->"e71c0b61-18d9-4b43-b4d9-6e7152fbec69"] }, Open ]], Cell[CellGroupData[{ Cell[273035, 6411, 215, 5, 51, "Input",ExpressionUUID->"4d116e02-2ddd-43d6-b9f1-e11530c28f62"], Cell[273253, 6418, 41711, 689, 182, "Output",ExpressionUUID->"6f463a82-d019-4adc-92a8-4dfb63cdd80f"] }, Open ]], Cell[CellGroupData[{ Cell[315001, 7112, 217, 5, 51, "Input",ExpressionUUID->"3ebcc14b-5116-410f-a56a-2a28f39e7cda"], Cell[315221, 7119, 235, 4, 54, "Output",ExpressionUUID->"889c932f-5255-48bd-8f15-0b806fdebf8e"] }, Open ]], Cell[CellGroupData[{ Cell[315493, 7128, 215, 5, 51, "Input",ExpressionUUID->"057f4bf3-4113-4e84-b0f2-37dce2a18a5f"], Cell[315711, 7135, 222, 5, 51, "Output",ExpressionUUID->"d7a07abb-d765-4572-8fea-b95c0849592d"] }, Open ]], Cell[CellGroupData[{ Cell[315970, 7145, 242, 6, 51, "Input",ExpressionUUID->"865fac15-59ba-45ad-8f0c-f6b360655f6a"], Cell[316215, 7153, 177, 4, 51, "Output",ExpressionUUID->"cabd4a64-91e4-47f5-802a-12dabf075e1e"] }, Open ]], Cell[CellGroupData[{ Cell[316429, 7162, 187, 4, 51, "Input",ExpressionUUID->"a16857d3-0f57-4e30-86e2-78c27ccbcfa7"], Cell[316619, 7168, 263, 7, 51, "Output",ExpressionUUID->"dad1bd64-62df-4775-87e6-8c01b995d8ba"] }, Open ]], Cell[316897, 7178, 171, 3, 43, "Text",ExpressionUUID->"d1832920-0fe3-40a8-b828-8c430d07d08b"], Cell[CellGroupData[{ Cell[317093, 7185, 456, 13, 51, "Input",ExpressionUUID->"880177fd-904b-406c-8b17-9f6e2df5b2ca"], Cell[317552, 7200, 344, 8, 51, "Output",ExpressionUUID->"d6bf1868-6ad6-4dc1-8c85-b488636c5a71"] }, Open ]], Cell[CellGroupData[{ Cell[317933, 7213, 343, 9, 51, "Input",ExpressionUUID->"c680c101-5e29-4626-b318-3288318d3111"], Cell[318279, 7224, 272, 7, 51, "Output",ExpressionUUID->"80e1e9c0-b810-46d5-9618-5343ef9cb117"] }, Open ]], Cell[CellGroupData[{ Cell[318588, 7236, 356, 10, 74, "Input",ExpressionUUID->"386cc528-564b-4a5a-852e-db4f0624cae1"], Cell[318947, 7248, 272, 6, 68, "Output",ExpressionUUID->"49cb63fe-31b0-4446-bed7-71e063ce8e84"] }, Open ]], Cell[319234, 7257, 507, 12, 60, "Input",ExpressionUUID->"b91084d1-3fc1-4d54-a467-84cdc2b7491e"], Cell[CellGroupData[{ Cell[319766, 7273, 208, 5, 71, "Input",ExpressionUUID->"f2f66b0a-5277-40ec-80b0-3beea751fe07"], Cell[319977, 7280, 394, 14, 51, "Output",ExpressionUUID->"6528b80f-3fe1-4e99-b7ea-f62a5e4023e1"] }, Open ]], Cell[CellGroupData[{ Cell[320408, 7299, 211, 5, 70, "Input",ExpressionUUID->"e682a181-7d6a-4e10-b5d6-05bddccf9365"], Cell[320622, 7306, 313, 11, 51, "Output",ExpressionUUID->"f5a35e78-4601-4bd8-9fe7-d8a88e66ea2b"] }, Open ]], Cell[CellGroupData[{ Cell[320972, 7322, 297, 7, 51, "Input",ExpressionUUID->"24c95a5f-00b0-4479-85e5-a49890f8b7ec"], Cell[321272, 7331, 334, 11, 51, "Output",ExpressionUUID->"cd88a7b8-85b2-4c2a-ae6d-234d6570fb16"] }, Open ]], Cell[CellGroupData[{ Cell[321643, 7347, 346, 10, 70, "Input",ExpressionUUID->"c22cbd66-1041-448b-8495-b5c34eb8bd48"], Cell[321992, 7359, 271, 6, 51, "Output",ExpressionUUID->"2c0c8221-b275-467d-9e7f-d0ad7ae18e22"] }, Open ]], Cell[CellGroupData[{ Cell[322300, 7370, 392, 11, 51, "Input",ExpressionUUID->"95f4c735-1ef1-4beb-98f3-84d85b622709"], Cell[322695, 7383, 286, 6, 51, "Output",ExpressionUUID->"efadf39d-fd64-4b3c-b203-145a973508fe"] }, Open ]], Cell[CellGroupData[{ Cell[323018, 7394, 256, 6, 51, "Input",ExpressionUUID->"68f615b8-6c83-4615-a610-3b48c0b52a62"], Cell[323277, 7402, 319, 11, 51, "Output",ExpressionUUID->"5cd587c6-6129-4c97-a259-0b0aaa241228"] }, Open ]], Cell[CellGroupData[{ Cell[323633, 7418, 246, 6, 51, "Input",ExpressionUUID->"8a0504e9-6080-4871-b2ed-6eab4e7c86e5"], Cell[323882, 7426, 440, 15, 51, "Output",ExpressionUUID->"d3585bef-159b-44c7-af12-752d44a826b1"] }, Open ]], Cell[CellGroupData[{ Cell[324359, 7446, 393, 11, 51, "Input",ExpressionUUID->"05e6a14e-079b-4935-9800-bdad02cfe5c8"], Cell[324755, 7459, 231, 5, 51, "Output",ExpressionUUID->"39800b94-9250-4d63-94bc-259cf7679bee"] }, Open ]], Cell[CellGroupData[{ Cell[325023, 7469, 393, 11, 51, "Input",ExpressionUUID->"b7e79d02-da2b-410d-a658-4633d0d6273d"], Cell[325419, 7482, 256, 6, 51, "Output",ExpressionUUID->"c61bfcc6-1339-44af-a571-fb3f0e18f4e4"] }, Open ]], Cell[CellGroupData[{ Cell[325712, 7493, 375, 10, 55, "Input",ExpressionUUID->"4cc87b04-a370-42d1-a7b0-ee38c477f7f6"], Cell[326090, 7505, 1421, 36, 78, "Output",ExpressionUUID->"701555fe-0562-462e-ad2c-1c12a7cdca2e"] }, Open ]], Cell[CellGroupData[{ Cell[327548, 7546, 319, 9, 51, "Input",ExpressionUUID->"3fd2abb8-26e9-40ee-88e9-494c92526ae2"], Cell[327870, 7557, 966, 28, 78, "Output",ExpressionUUID->"14d901a0-dd44-40a0-9c91-abefe900e6bb"] }, Open ]], Cell[CellGroupData[{ Cell[328873, 7590, 583, 13, 78, "Input",ExpressionUUID->"c4740758-7959-4b57-aace-e9345f791c13"], Cell[329459, 7605, 729, 15, 549, "Output",ExpressionUUID->"75d28052-47f5-4442-b0c6-dc18ecb67636"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[330249, 7627, 165, 3, 81, "Subchapter",ExpressionUUID->"fad427a7-8f6e-4be3-bc33-a11835086a24"], Cell[CellGroupData[{ Cell[330439, 7634, 203, 4, 42, "Subsection",ExpressionUUID->"3174bac3-212f-4ed8-aa36-d16ddc683d2d"], Cell[330645, 7640, 432, 8, 30, "Text",ExpressionUUID->"f539713b-bec6-45dc-a6ec-7e541730e93e"], Cell[CellGroupData[{ Cell[331102, 7652, 176, 4, 37, "Input",ExpressionUUID->"682035ea-1b2f-41e1-96d3-58c74f6530c4"], Cell[331281, 7658, 693, 16, 42, "Print",ExpressionUUID->"2a3e2041-993b-4d26-8293-49d5405d1843", CellTags->"Info3725803850-4087249"] }, Open ]], Cell[CellGroupData[{ Cell[332011, 7679, 174, 4, 37, "Input",ExpressionUUID->"04ef37c5-3fb1-4b5f-a558-af8f533e0e96"], Cell[332188, 7685, 613, 15, 45, "Print",ExpressionUUID->"c50f7778-9056-4964-acae-a44b1e908d70", CellTags->"Info3725803870-4087249"] }, Open ]], Cell[CellGroupData[{ Cell[332838, 7705, 188, 4, 37, "Input",ExpressionUUID->"a3e9d7ff-5254-4290-bb65-ab4e01e4ec56"], Cell[333029, 7711, 177, 3, 37, "Output",ExpressionUUID->"65e29a03-6ec9-4ddb-922a-311ef079944c"] }, Open ]], Cell[CellGroupData[{ Cell[333243, 7719, 302, 8, 37, "Input",ExpressionUUID->"f36fbf4c-84b3-4a8c-a1cf-4df5bf299d9a"], Cell[333548, 7729, 463, 9, 37, "Output",ExpressionUUID->"86eb304b-49d6-4ecb-8a48-cb94b39f1a00"] }, Open ]], Cell[334026, 7741, 143, 3, 30, "Text",ExpressionUUID->"4ef535e1-15bd-4a67-bd5b-a6184947d21f"], Cell[CellGroupData[{ Cell[334194, 7748, 214, 5, 37, "Input",ExpressionUUID->"cdd8e01f-130b-4d3b-975e-b10c0f202787"], Cell[334411, 7755, 463, 9, 37, "Output",ExpressionUUID->"29a2aef3-0fbd-4c28-a173-840060360158"] }, Open ]], Cell[334889, 7767, 178, 3, 30, "Text",ExpressionUUID->"c6317d65-3e12-4883-b307-48fb48f7faec"], Cell[335070, 7772, 193, 5, 37, "Input",ExpressionUUID->"8e084180-2bdb-45e0-9907-a72d33dcac8d"], Cell[CellGroupData[{ Cell[335288, 7781, 286, 6, 37, "Input",ExpressionUUID->"3bb8a51b-07a3-48a9-8347-3a2dd1ffa310"], Cell[335577, 7789, 469, 9, 37, "Output",ExpressionUUID->"63addea1-f8f8-4c53-a891-20505d345ef3"] }, Open ]], Cell[336061, 7801, 199, 3, 30, "Text",ExpressionUUID->"90ce6b46-da74-41da-89ac-fdb6bff27f68"], Cell[336263, 7806, 464, 13, 55, "Input",ExpressionUUID->"232527c5-5dfe-4039-9c6e-bf422461e952"], Cell[CellGroupData[{ Cell[336752, 7823, 155, 3, 37, "Input",ExpressionUUID->"2147e5fa-7b65-4d16-b565-0b54d4d752a8"], Cell[336910, 7828, 462, 9, 37, "Output",ExpressionUUID->"2377a26f-5c7f-458f-a7ea-93bdfd54e629"] }, Open ]], Cell[CellGroupData[{ Cell[337409, 7842, 172, 4, 37, "Input",ExpressionUUID->"0bee106e-f021-4319-b982-ea5a1c1c79b5"], Cell[337584, 7848, 865, 18, 42, "Print",ExpressionUUID->"1c581193-eb2a-4daa-81ff-8f8bfb6c691c", CellTags->"Info93725665861-9419359"] }, Open ]], Cell[338464, 7869, 247, 6, 30, "Text",ExpressionUUID->"48c84cc8-ce18-4b8e-8b61-8fb26f074fd5"], Cell[CellGroupData[{ Cell[338736, 7879, 956, 23, 106, "Input",ExpressionUUID->"3c36349b-0b6c-4414-bbbe-58183794c666"], Cell[339695, 7904, 470, 10, 37, "Output",ExpressionUUID->"c01e7d41-d123-4858-abbd-e1159dd673ac"] }, Open ]], Cell[CellGroupData[{ Cell[340202, 7919, 217, 5, 37, "Input",ExpressionUUID->"2082ce43-af45-44a7-95b4-7f9b97f9b495"], Cell[340422, 7926, 317, 8, 37, "Output",ExpressionUUID->"aa77c1ea-7e78-49dd-b2d9-5a8c606f2cea"] }, Open ]], Cell[340754, 7937, 1398, 34, 174, "Input",ExpressionUUID->"e8e9c80d-f8e3-4c41-af08-3792c4787211"], Cell[CellGroupData[{ Cell[342177, 7975, 187, 4, 37, "Input",ExpressionUUID->"f230d798-c86e-4c68-9ad0-ee833201ef51"], Cell[342367, 7981, 359, 8, 37, "Output",ExpressionUUID->"fe2acd56-d9e7-4374-b86a-a4992957809c"] }, Open ]], Cell[CellGroupData[{ Cell[342763, 7994, 212, 4, 37, "Input",ExpressionUUID->"405c0236-7033-4127-bdcc-6453fe9522c2"], Cell[342978, 8000, 2348, 34, 106, "Output",ExpressionUUID->"e48e6aaf-56f8-46c7-a14c-175dd56ced27"] }, Open ]], Cell[345341, 8037, 266, 6, 30, "Text",ExpressionUUID->"b38cf494-30e4-445e-820b-7aa5d445657a"], Cell[CellGroupData[{ Cell[345632, 8047, 317, 8, 37, "Input",ExpressionUUID->"3ece902c-26de-4751-955a-fc07f69937dd"], Cell[345952, 8057, 199, 5, 37, "Output",ExpressionUUID->"aed53a6b-df26-4211-a1c7-d32441b16efb"] }, Open ]], Cell[CellGroupData[{ Cell[346188, 8067, 344, 9, 37, "Input",ExpressionUUID->"5a033a35-72ad-47c5-bc91-5b057361a44e"], Cell[346535, 8078, 257, 8, 37, "Output",ExpressionUUID->"d0dbb6c8-a0ed-414f-98ab-89dd1b7fef2c"] }, Open ]], Cell[346807, 8089, 311, 8, 44, "Input",ExpressionUUID->"00e2a536-c60b-45d3-8d4e-27bc458614d6"], Cell[347121, 8099, 195, 3, 30, "Text",ExpressionUUID->"39dc3220-cc53-4334-bc74-d4bde0df99c2"], Cell[347319, 8104, 764, 18, 106, "Input",ExpressionUUID->"c6cc99f3-9b80-4bbd-a544-4f552948f58a"], Cell[CellGroupData[{ Cell[348108, 8126, 188, 4, 37, "Input",ExpressionUUID->"4c3f03d5-2136-4879-a6d9-8a521d6aed3f"], Cell[348299, 8132, 206, 4, 37, "Output",ExpressionUUID->"e2dd7cde-0ae3-428b-9c7c-50a189164123"] }, Open ]], Cell[CellGroupData[{ Cell[348542, 8141, 189, 4, 37, "Input",ExpressionUUID->"daff08ac-f0cf-424a-a5f7-253673e4bf1c"], Cell[348734, 8147, 154, 3, 37, "Output",ExpressionUUID->"b3a6fc9a-3df4-4af9-afd5-ed8023e452f5"] }, Open ]], Cell[CellGroupData[{ Cell[348925, 8155, 193, 4, 37, "Input",ExpressionUUID->"d3ba1d92-c4c7-4331-af16-65d6d97a1291"], Cell[349121, 8161, 158, 3, 37, "Output",ExpressionUUID->"ca73898f-ea17-4fcf-9cdb-29621d573bf3"] }, Open ]], Cell[349294, 8167, 182, 3, 30, "Text",ExpressionUUID->"522e14df-9dd9-437f-a4a7-377f26b45603"], Cell[349479, 8172, 458, 10, 37, "Input",ExpressionUUID->"aae6f93e-b237-4f03-9720-66537e05a7fd"], Cell[349940, 8184, 896, 20, 37, "Input",ExpressionUUID->"43e38422-3565-4863-b258-8473af753128"], Cell[CellGroupData[{ Cell[350861, 8208, 366, 7, 37, "Input",ExpressionUUID->"456428e6-e778-46f0-99a3-654484e8b13e"], Cell[351230, 8217, 412, 8, 37, "Output",ExpressionUUID->"ba4c1a0e-ff6b-48d6-8ce4-e31de930b698"] }, Open ]], Cell[CellGroupData[{ Cell[351679, 8230, 190, 4, 37, "Input",ExpressionUUID->"5294a41d-2fcb-4b9c-8b3d-997be201e0f3"], Cell[351872, 8236, 134, 3, 37, "Output",ExpressionUUID->"3b705c6e-e1a6-46e6-a05e-cac4dea89a03"] }, Open ]], Cell[CellGroupData[{ Cell[352043, 8244, 283, 7, 37, "Input",ExpressionUUID->"76c4d402-2421-4899-b47e-cf2e10dfce04"], Cell[352329, 8253, 180, 3, 37, "Output",ExpressionUUID->"215c91d9-7e51-4433-94fc-00c2e1e776fb"] }, Open ]], Cell[CellGroupData[{ Cell[352546, 8261, 307, 7, 37, "Input",ExpressionUUID->"dfb0f1e8-9bff-48a4-890f-ef2257419158"], Cell[352856, 8270, 129, 2, 37, "Output",ExpressionUUID->"eb1012cd-ed90-46e2-83d7-54b079d69263"] }, Open ]], Cell[CellGroupData[{ Cell[353022, 8277, 192, 4, 37, "Input",ExpressionUUID->"d178b774-abd3-4a3d-baeb-0e49bf91df8d"], Cell[353217, 8283, 181, 4, 37, "Output",ExpressionUUID->"eb41e6ad-f956-47df-aa61-36ae45eafa21"] }, Open ]], Cell[CellGroupData[{ Cell[353435, 8292, 180, 4, 37, "Input",ExpressionUUID->"130193db-9bff-4ec7-8134-bd6cb1190f96"], Cell[CellGroupData[{ Cell[353640, 8300, 188, 4, 40, "Print",ExpressionUUID->"84817c12-f62f-4fe6-9889-3fc035f552e3", CellTags->"Info3725784738-1433840"], Cell[353831, 8306, 1452, 41, 54, "Print",ExpressionUUID->"d23ac39d-5b5c-45d3-bad6-0a1c6bf38aa0", CellTags->"Info3725784738-1433840"] }, Open ]] }, Open ]], Cell[355310, 8351, 192, 4, 37, "Input",ExpressionUUID->"b494e71b-be42-4c00-953a-c09efb5ff699"], Cell[355505, 8357, 454, 13, 37, "Input",ExpressionUUID->"c9fdbf96-0d6f-470e-874c-33357f5923b4"], Cell[355962, 8372, 296, 8, 37, "Input",ExpressionUUID->"32bb52b6-ce8a-43f8-b902-9a1736b491fd"], Cell[CellGroupData[{ Cell[356283, 8384, 178, 4, 37, "Input",ExpressionUUID->"8ce04292-53e0-4398-bc96-1a151fcc9120"], Cell[CellGroupData[{ Cell[356486, 8392, 188, 4, 40, "Print",ExpressionUUID->"fcb5c11b-1e67-401f-bc81-3c7a4d99c58c", CellTags->"Info3725804584-6157175"], Cell[356677, 8398, 1413, 40, 54, "Print",ExpressionUUID->"1f734360-0560-4817-8132-944973c0c4d9", CellTags->"Info3725804584-6157175"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[358139, 8444, 242, 5, 37, "Input",ExpressionUUID->"f5d0016e-6594-4ee3-9d90-c76032f79135"], Cell[358384, 8451, 156, 3, 37, "Output",ExpressionUUID->"d7453199-7ca4-4d7e-89ff-743d1fbf454c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[358589, 8460, 178, 3, 41, "Subsection",ExpressionUUID->"7c8b0ba9-6238-446b-aaa0-1fbcb8be118e"], Cell[358770, 8465, 179, 3, 30, "Text",ExpressionUUID->"d4ea166f-0cd0-4f43-a0ec-26ec35bb001d"], Cell[358952, 8470, 1728, 43, 180, "Input",ExpressionUUID->"bdb576e3-a2df-4bab-98e3-1c52084f2d1e"], Cell[360683, 8515, 194, 3, 30, "Text",ExpressionUUID->"17452adc-3147-439f-8fdb-e014f5b043cf"], Cell[CellGroupData[{ Cell[360902, 8522, 218, 5, 37, "Input",ExpressionUUID->"068dc8f0-4917-48f9-a16d-06428c1c5531"], Cell[361123, 8529, 345, 9, 37, "Output",ExpressionUUID->"61f4c68f-ce49-4868-9933-5527188cddf6"] }, Open ]], Cell[361483, 8541, 169, 3, 30, "Text",ExpressionUUID->"c8268430-3ba7-48cc-a8b4-392424e158cc"], Cell[CellGroupData[{ Cell[361677, 8548, 180, 4, 37, "Input",ExpressionUUID->"a57815ed-2252-453f-ba83-85a0248714d7"], Cell[361860, 8554, 2892, 46, 122, "Print",ExpressionUUID->"505a12ba-30d4-47b6-925a-5e14b0157420", CellTags->"Info3725784831-9421833"] }, Open ]], Cell[364767, 8603, 889, 28, 131, "Input",ExpressionUUID->"7a18ee4e-7f17-4385-aac8-4edf6a9fd036"], Cell[365659, 8633, 1150, 31, 61, "Input",ExpressionUUID->"22d82501-20f2-43a9-83ad-37c862198184"], Cell[CellGroupData[{ Cell[366834, 8668, 262, 6, 37, "Input",ExpressionUUID->"ae1f6f70-16ba-4ef2-bc0d-1ec1e2916db8"], Cell[367099, 8676, 459, 8, 37, "Output",ExpressionUUID->"7a60177e-e520-4b7f-9d51-764d8d26d99b"] }, Open ]], Cell[367573, 8687, 476, 11, 32, "Text",ExpressionUUID->"1631c750-fc6d-4915-8e47-857155406243"], Cell[368052, 8700, 2452, 63, 175, "Input",ExpressionUUID->"91a925fc-6070-459d-837c-45a05adcdb49"], Cell[370507, 8765, 231, 7, 41, "Input",ExpressionUUID->"9af0c794-6df3-442d-9d0f-00959566c35c"], Cell[CellGroupData[{ Cell[370763, 8776, 222, 5, 37, "Input",ExpressionUUID->"d4a9bca6-c3a6-420e-8b2f-072220683955"], Cell[370988, 8783, 288, 5, 37, "Output",ExpressionUUID->"a7d7ca06-c7ae-465e-b6b5-1f2a15f99d5f"] }, Open ]], Cell[CellGroupData[{ Cell[371313, 8793, 252, 6, 41, "Input",ExpressionUUID->"e619de98-6688-4777-a417-bbe452689048"], Cell[371568, 8801, 317, 6, 41, "Output",ExpressionUUID->"0a7684c0-f21c-4c2c-b2f4-ebd7e831f49f"] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *)