(* 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 ]]
}
]
*)