(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 225690, 4618] NotebookOptionsPosition[ 50584, 971] NotebookOutlinePosition[ 222614, 4547] CellTagsIndexPosition[ 221048, 4520] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["A Palette for Standard Packages", "SubsectionFirst", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[240307257993325771800769902787278628786]", CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell["Posted on: Sunday 6/10, 2007; 6:29 PM", "Subsubsection", Background->RGBColor[0.9, 1, 0.83]], Cell[TextData[{ "Although this is not strictly an item that has to do directly with ", StyleBox["A", FontWeight->"Bold", FontColor->RGBColor[0.542718, 0.103822, 0.139086]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0.647059, 0.119585, 0.134844]], StyleBox["Life", FontWeight->"Bold", FontColor->RGBColor[0.692302, 0.471, 0.275517]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Frame", FontWeight->"Bold", FontColor->RGBColor[0.0872663, 0.520363, 0.287388]], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], " it is perhaps useful anyway. It is a bit of code that generalizes\ \[LongDash]using a few techniques from ", StyleBox["Mathematica", FontSlant->"Italic"], " 6\[LongDash]a small bit of code for locating the standard packages in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 that was ", ButtonBox["posted", BaseStyle->"Hyperlink", ButtonData->{ URL["http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_\ thread/thread/051876931b177e5f"], None}], " on the ", ButtonBox["comp.soft-sys.math.mathematica", BaseStyle->"Hyperlink", ButtonData->{ URL["http://groups.google.com/group/comp.soft-sys.math.mathematica/"], None}], " newsgroup." }], "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[195741931786017826940982487526216596218]", CellChangeTimes->{{3.390502805880121*^9, 3.39050281116472*^9}, { 3.390502847208749*^9, 3.390502969109612*^9}, {3.390503016412135*^9, 3.390503016413484*^9}, {3.390503066723851*^9, 3.390503070273291*^9}, 3.390503353998917*^9}, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell["\<\ Here is the code (use the Notebook link at the bottom of this post to \ download the notebook version of this post):\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[126136146694070004144020998411210930519]", CellChangeTimes->{{3.390503073300128*^9, 3.390503077665021*^9}, { 3.3905031117697973`*^9, 3.390503157825015*^9}}, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[CellGroupData[{ Cell["StandardPackagesPalette", "Subsubsection", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>{"GUIDTag[318524215148479670122371583020986131285]"}, CellChangeTimes->{{3.390495371751813*^9, 3.390495371876237*^9}, { 3.390496063777116*^9, 3.390496066477455*^9}, 3.390502456297364*^9}, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ClearAll", "[", "StandardPackagesPalette", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StandardPackagesPalette", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StandardPackagesPalette", "[", RowBox[{"root", ":", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\""}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "directories", ",", "context", ",", "packageFiles", ",", "packageData", ",", "toMenuData", ",", "menuData", ",", "menus"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"context", "[", "dir_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"StringReplace", "[", RowBox[{"dir", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"DirectoryName", "[", "dir", "]"}], "\[Rule]", "\"\<\>\""}], ",", RowBox[{"$PathnameSeparator", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"packageFiles", "[", "dir_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"StringDrop", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringReplace", "[", RowBox[{"#", ",", RowBox[{ RowBox[{"DirectoryName", "[", "#", "]"}], "\[Rule]", "\"\<\>\""}]}], "]"}], "&"}], "/@", RowBox[{"FileNames", "[", RowBox[{ RowBox[{"{", "\"\<*.m\>\"", "}"}], ",", RowBox[{"{", "dir", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"-", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "|", "\"\\""}], ",", "\[Infinity]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"directories", "=", RowBox[{"FileNames", "[", RowBox[{ RowBox[{"{", "\"\<*\>\"", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\\"", ",", "root"}], "}"}], "]"}], "}"}]}], "]"}]}], ";", "\n", "\[IndentingNewLine]", RowBox[{"directories", "=", RowBox[{"Select", "[", RowBox[{"directories", ",", RowBox[{ RowBox[{ RowBox[{"FileType", "[", "#", "]"}], "===", "Directory"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"packageData", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"context", "[", "#", "]"}], ",", RowBox[{"packageFiles", "[", "#", "]"}]}], "}"}], "&"}], "/@", "directories"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"packageData", "=", RowBox[{"DeleteCases", "[", RowBox[{"packageData", ",", RowBox[{"{", RowBox[{"_", ",", RowBox[{"{", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"toMenuData", "[", RowBox[{"{", RowBox[{"cont_", ",", "files_"}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"topContext", "=", RowBox[{"cont", "<>", "\"\<`\>\""}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"cont", ",", RowBox[{ RowBox[{ RowBox[{"#", "\[RuleDelayed]", RowBox[{"Quiet", "[", RowBox[{"Needs", "[", RowBox[{"topContext", "<>", "#", "<>", "\"\<`\>\""}], "]"}], "]"}]}], "&"}], "/@", "files"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"menuData", "=", RowBox[{"toMenuData", "/@", "packageData"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"menus", "=", RowBox[{ RowBox[{ RowBox[{"ActionMenu", "[", RowBox[{ RowBox[{"Sequence", "@@", "#"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "10"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FieldSize", "\[Rule]", "12"}]}], "]"}], "&"}], "/@", "menuData"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CreatePalette", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{"Flatten", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{"NotebookClose", "[", RowBox[{"ButtonNotebook", "[", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "10"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"FontColor", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{".4", ",", "0", ",", "0"}], "]"}]}]}], "}"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", "menus"}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"WindowSize", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", "350"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"WindowElements", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"WindowTitle", "\[Rule]", RowBox[{"\"\\"", "<>", "root"}]}], ",", "\[IndentingNewLine]", RowBox[{"WindowMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Automatic", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", "5"}], "}"}]}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StandardPackagesPalette", "[", "]"}], ":=", RowBox[{"StandardPackagesPalette", "[", "\"\\"", "]"}]}], ";"}]}], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>{"GUIDTag[84785271391948841117775922928531510506]"}, CellChangeTimes->{{3.3904953781923323`*^9, 3.390495400730338*^9}, { 3.39049543103695*^9, 3.3904954370466757`*^9}, {3.390495473962556*^9, 3.390495578506229*^9}, {3.3904957932250423`*^9, 3.39049585245057*^9}, { 3.390495915925755*^9, 3.3904960371049767`*^9}, {3.390496071461701*^9, 3.39049608156868*^9}, {3.3904961135935373`*^9, 3.390496391012431*^9}, { 3.390496518405345*^9, 3.390496554557908*^9}, {3.390496703172325*^9, 3.390496748805738*^9}, {3.390496785603291*^9, 3.390496819089477*^9}, { 3.3904968965657387`*^9, 3.39049690543967*^9}, {3.3904969376502857`*^9, 3.3904969486350183`*^9}, {3.390497027605637*^9, 3.39049703025937*^9}, { 3.39049710774652*^9, 3.3904971082790747`*^9}, {3.390497149843588*^9, 3.390497189897272*^9}, 3.3904972733046637`*^9, {3.390497368222715*^9, 3.3904973774130173`*^9}, {3.390497409508271*^9, 3.3904974480540323`*^9}, { 3.3904977259449673`*^9, 3.3904978007888327`*^9}, {3.390497844308632*^9, 3.3904978921292887`*^9}, 3.3904979575276527`*^9, {3.390498000007028*^9, 3.390498055619437*^9}, {3.3904982638887253`*^9, 3.3904982917823057`*^9}, { 3.390498444398222*^9, 3.39049877557557*^9}, {3.390498831519739*^9, 3.390498905166643*^9}, 3.390498935965686*^9, {3.390500729356326*^9, 3.3905007294984093`*^9}, {3.390500764949444*^9, 3.390500869838376*^9}, { 3.3905009160285387`*^9, 3.3905009395480824`*^9}, {3.390501000566388*^9, 3.390501046421103*^9}, {3.390501127644039*^9, 3.390501132287471*^9}, 3.390501163485241*^9, {3.390501335548596*^9, 3.390501409456749*^9}, { 3.390501677700498*^9, 3.3905016913252697`*^9}, {3.39050177549513*^9, 3.390501776332011*^9}, {3.390501807425284*^9, 3.390501847243348*^9}, { 3.390502254671529*^9, 3.390502347243487*^9}, {3.39050239891744*^9, 3.3905026013811197`*^9}, {3.390503219227066*^9, 3.390503221841514*^9}, { 3.3905033995575047`*^9, 3.3905034571639013`*^9}, {3.390503500634379*^9, 3.390503566137341*^9}, {3.390513416460725*^9, 3.390513417551813*^9}}, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[TextData[{ "When this code is executed the function ", StyleBox["StandardPackagesPalette[]", "MR"], " creates a palette that looks like this:" }], "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[223350955423034639855135615452276530081]", CellChangeTimes->{{3.390503179804298*^9, 3.390503191290084*^9}, { 3.3905032978647013`*^9, 3.390503319125161*^9}, {3.390503775431718*^9, 3.3905037774459133`*^9}}, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzsvQtcVUeWL7zlYdQ46SQ96Z65M93Td+Z2/5pH7p1vvm+6pxVM3/nuFxGw e1rUmI4mxkTzUIgvjA9UUAQUeUTxFTWIihjEtyAc3m9EFBBQkMP7wDm8BCN2 7O7M/L9aq/Y+nKNoQGPENOf3O+fUrl21qmpV7dpV619rralvL39/vvfbyz94 5+2fTF769uL3P3hn2U9e/WipiLIdpSjKGkUZ5fMThcIQl+rPYpSUlCjjcPz4 caSlpUGn0+HMmTNISkpCVlYWCgsLUVpaiqtXr6K6unoUysrKRD5byobe3l76 Kov491mOS01NRUtLC27cuIHW1lbKhKqqKtTV1fE1xd+8eVMZBZPJZKbU1dVF X0GJfiWlzMxMdHR04M9//jO++uor3Lp1C42NjUylu7sbX375Jf74xz8KSj09 PfehZMdxOTk5aG9vp9Q2+NOf/qTYo7KykqNEVSgG//mf/ykIiSIe2Ljs7GyN EP7rv/4LNTU18PX1hdFoxB/+8AeuqogXlPr6+u5DaYxVlYgKfXx8fGBnZ4eD Bw/a0PUoumNNxrplY81kOjs7mURBQQFeeukl6lf88pe/pF5QVFr3J2PPcbm5 ucxSkQ4eHh4ipcLpV69ejS+++IKIPLBNdmYqaodxuYK46BkmSgyjPvw65tha ElJkZ43mnjYYDDRiuMNUSiohOYTHID8/n0eX9qFUxGJqmOgclRW3b9/msjdu 3Ai9Xs/l2FPZzxJpe2quuEulaDWzUWtGccQMmUL82lOULd21pYZq6ajNVnk5 62iZQ1zamy/HUeg5CtmIEFHt7e0vlygRa6l/qaZq+yRr7QbRvNraWm4eV8ne XJPnzZVwMrd7nPmuvbk9ynjuTXpwz507h8uXL+PKlSv8f/HiRZ4taIYoLi7m 50B00Ch6Ns3FX79+nSqo9DNntDn0LIWYdTZcFAeZc3TFSV5Qb3SZuizYKeJG m7PZWhPtv/uA/rg3iWysnbmxeXl5xFQbHqyj+ZmmgUfPjeCu9sRas5oYICYB MZJEThFH41Brjcp+ETXGutXPyo6QafKCnaAEpKrtV3liyoaT4oQ0Q6943r+J VttLAqIuosHUKpqeH7bBbW1tosFyFqFRSI2+0dGG+vpmLmG0pEpBKrIDzc3N aOu4YW5fT6dRjO4eqzb39Bh54Da0dIoByA0iAuOQGewCl2B6JTTTTcleYxZc FXdkNRjR0tCATmqmpNMiaNQ2tPDVaHMPyLvUD51oqG2AUZYu+q7TXP2Ojhtc pr05lyBH7dNmTlv+Hc+z/rVr18zznvoe4SfTkoHW05WozYYNG/jpoDdZW144 FKdgNN+4Ifvlh7hRr8MM+YKWX5cwNHbpEeQyBecauQ7ICVK5cV2Huea0TtiT 24Qu/TlMEddTwjLQlLEebiuT0V2XgbdEIhue2cdiSXQuNzjT3x3+unoON+cF i6qEQxfuAmXJKTmMxe+lA3NFHaJEvLv5zTA3KhM32jLhbqb5jPidi8x6QSfT H+6rdOpDUIsdc7U0fw+npTFo6GlAiKsC9/B8Zv7pVWLozziA6yKf26oUdDfp 4O4SjDrB856WVLi7hog8/b2d2XwVwe5am10wg8Iu4WiuT6T6CLqZyPKfAv/U Bhv12aYnofNKjEjuj3qaQwUPx9DM+ijdqD0H9GpqzAgSxINEP3XJ4TFDRK2H MmUPTCJ/4Z4ZUByD7unGDNGNTv4ZyPAXLFhykodZ2eG3RNowVKeL/Mom1Ir5 vzF9HSaKbjyxWIHjx2f5nWAs/oybny4ehoz1U7AyRc80G3OoKoJ95dHifwZK BM1u/rYizEnB+/HlyA1z52FVQ/FV8UwnQwwRYl+wrkakbUf8+6KsoAxuh8vK FKZdc3IJ87CK8rWX0JBCsBhy7VyWE8Ki/fn/ZHUXDz2qc2dDMqY4roeeHp/G FLg7+XPXdrdmwEWUm1KVAkdlCgr58bqI9wXNoIxGyT/BUsqXsd4NK5P18kHk 3yZUlunVyUdww57fdKNpTuI5jTqTXtY0BsWKxnJBQ30r1yG0DtU6kkYArVvr szcJ7oeiuaPDlmn+EvVpgvnr0nhwdDSfF41ZJzqlFptER55t6OTOSN/kAsf1 57DNRcH69AaO6xTT2/Xr9ZKk6Mh6kb+BaH18AqGOCjZl10uaHdexydER+y+3 IW3dFHx8/jrHa/kaRFlbBV3HKdMxZcoUTJ8unk/BsPQGtdxN2Wp5Ddgq6G5N PcuMzTDIQdbCTQpDFXXk+hROm7HeUdQ3XTyX9BD8PdLXu+DNQ6V8L3vrFH62 3lOvZZ3Po6NetH3iJlwXdeNOdaG6iXJb0rm85Npi7jzHGYux/XA8gmY4Yn2y mMot2p+2zo3aN46LZQbzIkauE+h3PM+KNDtqi9L7rG05XvSl1o2/5mmV1vX0 mtFnbhGJ3RC4JRJbtmxBYOAWnC5phF63FhNXJPGDbdInwc1xLWpMNQicOBEJ NSaOz90yEcqK49xHK5JqZAVba8Rq5xLqsgIFLwNRJ+Lq09ZigjldndqQOgSK 68jcRujWusHndA3TbMwV+RQqy4SSmDki7IOk3ExEeom5a04MDCI+M3AiHNfq ZN1MeqYTmHIaE5WJSNLLujWlBvLwvJK6Do7vxXGZWYFU3yQb5t9PkLpuItwi czl5Et0SPJuzU17XpVKVE7npE5UVqKSiDDoRnoMiDmeKsCOS6tpRdylLbAvj sCtUdL+gEZhag8ZM2Xy9SJu6djJWJFZbVzdTb08RtjSr2vEKYRzPj/RM0maF xiNNsHfteejShmbYUby8VpQ3rXszg3pzInz8/Hi/5evjiyOFDdAn+mGibyJP 4dwk0ZvVRj22iKooC/ahrKYIa0X4o+NVuLB/uqDxEfLEEo/Z4vgJcg5+JONq WlGfRKxJwqX9b6rpmlAU5yPCXsg1iN6hUaEsgE7UKWGFIxSfU/3lipGWa5Dl rk2SPZ65xY3rnFCiR0nCCh6NmVU6uAlWOvgeg76hkOs2UXSVPmMjd9PamCSU 5+8TYUccvFCDugtxYmpUsLNITIe5kRy/L2Enx+0To7kuUe3ORh130Yq4XJQk bWFaHNZRHtG1hhqsJfqny0QXl8BXhP101SiK8eGRmFvdonWnDa9jbVFZUoQa 0Wy6sjF3qbhBMyw9orTUt+Xf8dzDNIFSD9Mj+6D9scUj+7a5k2l/cy1JvDsc NvOzrRVChGvTIzA/JF2ulupTMH92BK63XsfeBV6Y7z0bDsTQaRuQX0fpa3B4 zTS5NHB4A7G5yXhXXR5NC08Xj28UfHcQreuIXTNbTeeF6OyrXMmcHd6YNt8b kx0ofho+v1DHdWhtrcf+NxwwYT7leQMFzbJ+edHL4eY1H9MmOIj4yYg4Vyrq WIDlk6dhgagf1W3y/ChcbmpFXXYUps1ehNmC9obkCuQe9Of7iuIAvwM5gl4d 9rw7AbMjZFvTw2djgvcBXMveAd+odBgbMuDtNRvesyeLPBOwJupTrJnmwG1Y LpZz9KCUnouQdedyw3FBn4X5Fu3P3uGLHem1gn6T4LORH1DuRBtqJk++zXKZ Ljrg7o6gcH19Pe8C1Z62VcUpJJehV4UmThEdbZbLjOdeLisr43X91cRVXJvf v/MO3n33Xbzzzhv4/dJ9uNYsCxaF2qCpqUlUiy5FqP9KkKJriq+v53iulz5d vF8mBKNWxFelhOKdoKSvJzXWitTVRH+u1c+XnuRmU7xokxj5lNaO49T8FMNk B6KjVYn48SA6V1O2UjUt6LwwGDqozxBL9F8FQy/iUra+g02JV1G4+3dQlp6y aNtzg6LFE6t47mhDP4Tu/GfuTpIA0BN/vTQLhz77DNHR0fhM/d8fl4xrtIUT OzLqcnqZ08aarumfCqV/itfC8v/6AHF1uFZ0DkfOFT0kvYtIEPXSXa7R7tkQ EeXFb6p6A5GrKU5CfHLJN0Gu8OwRJBVfFdfVuHK15uHIjWf5LXU07fW1dzBt aEg4pz3vtBe7c+cOzd6jeJ1NK2bqbHro6dpG3dZrsgVVwqGF7yt66Bd5jFCw pPDCgBSoe+iZJXmfJj+lHiUpOvUELS5oP0ofy32M7Ct6bEXHigJJpG3Pnazt ZtV/9Z7d3fdsKTD6LyLfPfd48amwRA5FRUX8zqNJ8cCBA9i7dy927drF61TC R1SBu6KuVccS321oE2lHIUGb9pPUF/QvvtwxqtyMomWi72gm5a8s43gQnz9/ Hp9++ikOHTqEEydO4PTp00hISGDe0jW9uFTsZbG6oyeBc2xsLM6ePcugS2Fh oejVS5cuiSIvXLjAKFN6errIRisYkY2esXGMXFFWykJvqPLycn5L0URKEyLt QkT2UTQdarmeQWJiIhHjTSZhXZSDHjRaEdlQAaPohTiKpleths9wo7RiaAVL Tyi9ZWlfy0/3KNrcjuL3sfL8ANyyGSBu/DBPN4Z/n+GngLbn9EYhntIbhLby cqYTE9YoCo7iDamiDh5iEE1dLFSlGUvK/GmJQVfPDBBn83Qn/iu+QXyh8UdD lp4GGpM0FumNS9Ipmt7prUsgF0kWR/EAI64FBgbySoyATzE72fFsb6vJr3ge s5Fzl7jkeE5i83Qnfs6cmF5y9CIkpIlwaHoBEj+IoyTbI65p4LDgHo85K8ap 6MWLUrowhNBont/H856VHmqaHeitYFkD6nDqM60GvGqSwgv50NAKToKjoqJi tUCbYm3Z9dVXfbzf7Oy5w28lkaVPvFV6+r7iqzFq3Fd3+hia6LvzlSBgESee N2Nnj3yNid8+BlL6tLrY8oL9r7gkrXq82BPJOjpumePo/8+3OpjJnX18rfxY LcYijegx+rW1pCev+IYdbxrGc5cQc4bIrGfMswMLqYu3QXEORbvoOsKbbKgP RJovjQXmjbyUbpRw/+dEva5iEi8irLALXYVBmLouh+/duWPE1kmeSO+6g66r x/GKOf/LiCvvwp2uHEx9JQxGTnsHhqK9eFmDKuzE7+tIbugVt7pwfMUrGnLi 7H0EXSJ1waap2JRt5JxdhZvgsS5bNLGTkpoRES2tMXu7LNlZ1mB7drPoHsEQ G8puYw6JphCXZOXvKHzDViYRHLMzJ1ZszVMGXXFezireNPv27eNxq31pjqGh +FDdQq9BWo+25WwWFd+MNhX/tuHX9S+QuFyBs5+OJ7HeK4dFmknI6zJgo2jo 7iu96Ou9jFmiwaH5rWjPD8Qkvyx+Km/fNiDU1QOp7d3YLdIuSpRPa2tWKBTP 3eLFkQVP50C0Utqbl+FJMo5TFWrem8jf5inSRaP1shguynI0cnwrQic545ML JuRt9IRfpoHrZcrbCNe1megeIO224nacmucMv9RWpt2YuBzKrHg7uniWcttT aLQ5NI6naDuekomh//Zv/0bTk2THeCktHzqvR5sfAUpoKAiB4hQBE+0VaAL5 kcjbikgnBZsL29QjCM3Y7OSEQ1X12CzYmN7G3YKcDR5Yky52czkb4LohvT+t qzuSm8vwoWDj2xs2I3Kz+EZG4pNDGeg0ZsBz0ha0iCbd6ryENW9vQBV3MVXu b1B19ENRnUjk73tb/H/I+TaLL/0nV7ZzmRvSm7h9rTkBcF2TjrL996ZNudop uGTEpZTPsWahJz8HHjsLxlLGv5OHI4iJL/Iu9l//9V85Af1XV9fwuQhiLvFo iMz9R8vDCGgmuFVxR3B4FMLDwxESEo6kK3qEC+6uSm1RN2ItCBHXO4prECK4 m9QiN2dZAe4iTQNasgLg9EGCmrYBwS5TkGSoRYDIMzMkhte2cTsE15QANLSk wlVZimtaZ/4d9MVp2BsRgJlOcjJYfeYa9OdXM3waI7ImJBzBUnFvdVojsgNc 8UHCNV5IGLID4LI6FbVJqyzSxpnTlsbMZextdUQM0oorYOhSz5/c99TAD/oP YLyIiIgI/PSnP+Uq0T9dUwuJa7R+GSLbX+FFoxkezQljjHHx+vVYuXIlVi5e ifiSVpRHvyXil6CoqRUl8UsYryw06RHkaIGRErapq0NTbjBXzj9Wh5rWOgQ5 uOFcUxdOLhZ8XHwYelMjTq53ZMzVYCBsUcGU9YdxsdqAjO0z5ATs/haCt8ci t0qeIeuuiWeexRYJ+uUnOc8eUa/cMBceJrEZJbie4o+JBEvfJ20RpZ0Ri/bu VkS/pcApOFceiLC739mB0XRjHMXb9x+U0JLwd+3atfiHf/gH+WZ7joIcpaGb Q+wLe+4LSswyP10gFIctYhYzGk3K34tfPY74zTHLwmNyCcCow84FH0Gnbxfh dmRGfoQtog8ac3fBa85HmENYj+4y9vmsQGadSGMoF+ndmMZEr3XIpHyNWfDx eg8+cxzhtvE0Njoo8D1VQzsqo5hXKk9FYuORIqoEKpM+YVyE8JK1MXlcZO5O UcyKj+CoiG5O2YUVO7M4/u60lN9YrYOvl4S6HOZsQUlj+zhKbE93n6XQcxQi 8MJoJ/b2bSpm8RC8HHcXZrGaC33j3Xcxf/588Z2N2cujUdvWZiPF6mYJO6/3 7pK3j1Hl7dcQMdsb56vvkbdbEHmR43Ub3RiRCv80GlEbJIARcL5GBSkeLLu/ nh6Bd0OSB1mn+9IZSsMeichfDxqNGGIfWiMSTVcL8Pnhw4iJiWERBYl5Yo6l o34wiMTd4v86pJ04gQv6gcT/L90NI3D6jLhtWLZwIZb5h+F0YcWgRff1pToc Ty1TBl+3wUET3xTEcS+dHwwZlhhiv46xhiYGJ6v/hkX/I+QeDpgY8hZ7BJh4 UsDEILtKse6rEWDikYGJITJ+BJh4ADAxRF5qCMPQpqmHzUU7hW8r18PU8LuF Zwy19SOAxlAEAko/10YAjdtDeYHey7jhBGjYWgIa4hmi39GMTty5I+EGC/Ti 2QEADXs17lZHG4w9d6yRhr5ODZVQbMxIg8RAJGyhftXrYYlavITOwk3wJDTC CmnoQtTLCqMVhZs8sSnHiDvGdEwVO/mpUYUDIxW9heL+K8jpuiNF/6LiGrqR 0f1HdN8H3fCctJXLLPj0dVsVkpi6/SKMOVFWcERUTks/3nAXtvD80w9TvCQh AL9M9Jky4em8EYa+PvT1mRAqGLAxz4C8jR7wy2xhiEJRQtF6+z6wRHc+JimT kNV+W7SNevqlQUAZmfBwDoRBf0rQdkai/rYo24DdngomhebhJMEPOoMl/CAm 2uGEP/yA8zKmsCYdX7Slw8N1M5qZx23Y7KRgQ04zcja4S+yhUO2DG/fiDZGH 0kUROXBVXJFz4wtbtXtu3WrBlvtAFJSlvTUN7k4huCqqQFBEu3w1oSDSFU4b chgeuZh8FGs+9JCwwq5CxdYMKYx73AjDLwaBMBhhyPJn8T1rNDmtYo2m3l4T Ihh5aGCNpdXi35hP7A9BS481onBkxweMKDSasuEhKv5hSAR2CPrhISHYe75C 0GpEiMsUnDfoB0QiGg1pmOIYgtrLe/m6Rd3VFYcIJgZkmeGDVeExSL1wheCD Z58YevCLQaEHzZpkvlVK+9+PzkX1xXgRdmQNJFVrCCWxSyTKUNeOk0vEnLck 9h60gBTm3hJ01xP9lYsRFn9RTCl6iTI0d5vz1bU34SRpa7nvQWtzCtwcg0Rc ESvsUfk1JSc57BKcMRAy8NxTAwy8JNi+Eyt2ZsLYkAkftznwUQX8XoHHxSgk Cf0K7ExLxQL1zeMVmXUfICCVdVhyTaTkYxK/L4kS6rDXewUy9CYYW8qwY76W Z62M0ydiskMgqkU5+tyD8HJU4DhxOms5TAxMhakmFStUib/jnFCS+Eva/SL/ xyD8Hz8o4X+ZlLP3S7h/aCnhRnrEuwhJvo6mbPGgTwhB3f1E99fPsn7AhNnz zeS9Zvshp74WEbMXQae3kJirajaGmhMizzJU3EUrfYMDlOVnv1Xx/XcBA7he qkOCrrQfA/iepZwdpboE6EprzXH3l21X4NyRI2I9IgiLp5qK2HfwGC6Ll41O zNHFdU33iNvrS3H88wzU3UWqIiMBx9LLv0Wx/Yj4/ykWsA9vciPi/2FJYUT8 PyL+/65lelTx/3AXyX+bUMOI+H9E/D8i/h8R//eL/zWFhR6xgyObSnQ1nn/t 0UMmQvruMNG+nj7cEbHP3FdeL7UWbvW0MU5wR9VcYHH/l7cYWhgWWgv9c4CU /++2V9UDthfUIuyVqax0IFUDLBUSWvDpu5qGwWi8vCKOxfOFQVMRlKOqEpRE 2anGataxjkMf0sOmmu02TX19qghNRVFTLiMKJtEJlK0kaipeDiq0EOPbS9l7 ZzY8VBSgUJQt6YyD8vIKlIgqfmlMMyMPA2gpDHMlBacBpP9rUNXWgTZ5cI+N HHT1GRA6yRM6U59ZIWASoQEi3EASd2UjakX49s0KzCNlheJ25Ad6wi9LKgW0 F4eKNH6o7r7Jvd1YHAtnkS66og6B4n93BaM+iJ+nwDk0H7ctlRfENz90EpwD 81XE4AUul5AID6eNaGlIlKhAo1RsiJ1FNIotkIjbAykoKMNCQ6FLQwhYxK5q GvRrI1hqIeRscCJRvVQq+KG4dMXbR6tU5YFmNflmlu53SPBGfG/gEzEU12To cWgeDcvXsGXX5zi0+TVJ1gqIEEVsdoXT5gLRdnpZPY+bd6EGGl2qlvL2UTSr QIWRFB+egGLCiwPDBlFR2LFjh/iGI3xvKoysjOCEI7VyJ8bKBx8m8Ks4P8QV yqpUKYN3QlaAK9x3XOB/Uhrg5PmS7N64BMTFxSFi9Uy+Tm3oQZehAmlnziBm bwTmOilwDclGryFN01fgIgoiZjIq4OrqCldRDdeZS3H+monTTXEMRhUNBRVN oPJISUHx2IvGAoliGASNp0oxYeVirAw+idbuJjaWprj7Q1dSY1Y+WH84BZUX otkSz+GLejSVxMPpLqWBwxkXUcN0Fby/eDEWL36f4QnHlSd5nkpZ6ci2wkxd JpxcqbABOA3CcPePRUmNoBUsaL21HblFucjN1WHPEieQ4bU6M+Qgja8tiS1C a1MJVlLePSVWUMfTrZjwIism7F0wBz6+XlAmbkFV7k4L5YMaFMUFsiUk6ouB tAZOn2ZbWTYMOTwHU9l+kXQ6cg3tMJSdgY+bo1QYcFuAU6WNaKsn+zoLVH0F HXQbJ8IxME9mfxEm/RkuKak8qR+ZKIpjZILRj7UHUWPIs0BDMoeXXsK02WuQ Uz8oqfs4K6l7dVIAE5u/fA2WL18ENzIwNC0c1x9AR8Ujzq8h+0SvYtmyZfD1 no/JxByvHai7TjjFcly1QgHsmE5L7hYoEzajjqJHIAlLSGJfzDGU1j+8oaTy dBzV0I2YfTgYl8R2lwZB6lphEqKjD3LWw6JWR46lo5rE9vWlOPmwyhIjiMTT IKT/iyI3gkgMSwojiMQIIvFdyzSikDCikDCCSIwgEiOIxONAJDSzSsUhL+Pl kGK++tEgUYJhqXFga4k4SPmvVDMYaxbH93WRsLsPJVGvaGAA7vT1ik1sl8qj Z9BFCE2vNDnW29WLPhbj96GXpcaSj10kODd28cNi9/VCfTPeIIoieXvPrS+1 Kol1gszUY2wW1ejhK7vhDSrYWYEKHYW7JLQzBp/kmZD5ySyWhTirGAmd4O8z ZJKRIxsVtlEmbUP77ZtIDfU0wzaes0iu7In89kaETlI4TX1+IDzWZoqObMTu eVr+f4Tz8lgW+xMEEWgJQThv0xRMxLVUODH1SUijzwLi4PsV8ZhkVghxRuzl dglLTJJKKt2XoyXsUJV+b1yDAfHLJ2lmsJwXHuZiCDXx9Mu0/dYwBw9rzIFO yyqrUWEwwSAyE4GmplZ01J9g4fLZepLu12CDqwLXzTlSyu+xHzfE01ay/zUo TqQW0owNgiO7yiQScPRtBU4iLSEJToorAxcMWvhloOHcMgaGrhM60FOOtxVp fkkzscRIgoogtKr6CK051tc3bzYxIJLcSuBIB3Y5KfjwbD3nbU4XaT12iYeC zC99Ih4aIzaKMjw/KcLNVkI2ItF9s5Xr6xFZgPaLZMp9GerMdJ0QKeqjqmUo f/MYkYrRdyEV0k1MB3msIRH93zAoQVFGdXOWH046BdmMBrgGZMlNm5H0HgLQ 0GNEzFwxLJ1mImTHEcSEzBRpUlXvLq7k7Mhs6igrwInoyG2iA1tDmhtXIf49 2OIRvfwZi1Ik0CABj/5ruV9sYCNORLan8zI+ECyZGxCCiJAQRhIiYtLEoolU KlyxdKmHHGOU1ypuFa4I2qV757JZK8oXQqoX4VK1g5rvavbd9G2AGP99ABBj CoK2b8d2/oYhbI8OTVWxDBo0qR5gCFRwXG/t0cXSI0t7Uzl0J08iek8Y3nJU 4BKUgS5DhtmZiObRhZwPKStTFHajo/wcGf4ucN9eJP7dsSRRQuKtRcESsFDL lgBKsLku5MEl2MkJsTUUroG/eDZmBEcjPj4esdvfl3lbpUcaYtr0z8pkfQ3p rKtBcTOiy5lWTeJKtoh14NgxHDt2BEsELbIYRe10fD/+iUAbjtbQhtmBxVr4 +q4QXx/4bkxAQ0suvERLfGJIcyXBrN6gT1qnuilpVx1brEONCCetcITj2jMw mFqRsEIR4VQ0Fh1kbuzLrVEdQiTBULKfwYqYwhroC+NYj2BnoVhzbO53YnHM l5xYnJb4xj9K9EUh1x7S5BOZgGI/Gm7rkFRUhQQfEfYhjKMOCWtFVrddaBBV mzx5M7KTQ7gKO7Oq0Vh1Cq++GiLiNstqFTXBVBknqyOqqC85zs3cKeL1GYGc xi8mCZUNpm8eFZl6FyoysIcJNo6UHY1pNK4muGG22wR4f5otqheJ+ZulN4bW umTMnx0umi+et0sn4D3ZQUWP5uN4SRX2zpfXBIxUqh4bKF9B7MZ+Lw+il6ms 7Kh7vUxomEIzv0OCUW+uX42gPRvey6extkhtc6lZWWbCtDVIr22DoeYMXv25 P66INqbtXYH/8S+iTql78euf+qJCTPfFR9bDYYIv8sX7svxsuGo+awLWRGdL vCJnB6bN9sYcUZ+NKdeeVsRkINcS//H7VciofWjEhLGAhlS8qryKZH0jrunC 2L3EIGGOzE9XidosxOwJxPCf441Fi/DOG+9gX3aVCk98zwxPUFGa6JrY0VgV j58ri5F56RLbtCbk5cDuNfiJMht5glUkrdYgDg2m+NYQmMeOnLhaIycDeJnY vT8OF659c14miAZ5miC/DUOhV6w7IuqyH58dOsTIGNfv02icuyDtjmv1o5c1 5SV84ZLoU/aqeyUXB/YdR1JKCtmGVqQLRnskntUhMyeH01JeUZYygp48Adzh pftRMP+TwI26lgxUkytUGq4VFRVsH55ELI6O8pQBhSmevB7LZbO9FS01fPfB mBEU5aHz2XOtaXdM45X4L6ZRcS8vL095hs2w79mzRyqQij4iLtCrS0oV5JlW S7p3lTGCrnAmGURAQAD8/PzIo5ucwsZj+vTpeO2116yega1bt/L6/uOPP+al tb+/P2d9imCX/4e3PC/wsKfXG/mM0JpI/+QZgY7vacNKHXacjpah9KDRno/c RDg9FEByvxpoJdIkozGcakLW88l7yeeff87+mulhYNPzj1ADKXSlCYQWbzTt sYRZyr+0wsW/eC6kdJqI0hMmDyo+DMIzUKHi8wwXam/mNfGXpmSa7pwfsiDp ON6Sv+IzWj2zrRVE7z66rXam87BQpBmjDnPtefT29qa6299V9507d/Jt9fkb +xcKYj1jeYPD9FzQmlN6WLdmGi2MaMtCUuVe1Vn6CLSlJR5jmdj8QqOXL60I xcf2LnbSc0NyUMJs+J34XcC8xqgjRyuHFoN8r7/t9KGi6PafpTvMJ4KPPaei U6URL0MJyeerF++LafX7EqEv9RtVhOto8aKjx4cqpZbz7WvlWGNkNqxvMRa3 b3ajVWRu67jB/OwHmnp5u2rs6hOzFbHIDoVhr+CVsEIxcrso3lYFsXpFy7p6 72j4FLfwj7dvigL+KMN/vA2jINXV22eJiQ0AVklEjOtBrzKNjRoLqa9JMNnX 2yXa9AfRTRIx06C85mbG1/oxs1uE3N1jvauXZJpcl28bPbO3Qs94pJzdrNiq YNKkZYek8S1DHsyQ17NYfvgCzxXktmOj6rbDEv4qDp2ESaH5KN7mqWiuvOft zud7WdtmKdrkEprfjtutqewuxHObuN99GcudFc0dy6LYy6rnD0+ktt9GX1ee SEqIF3FKYlikBERYT1heBdb+8v/Y8Bj/B+TuWoJ152vxRXMyW18i6gMBdCay MDYpVDbSMiyKmqR4Is/UB9OVAcC52xow+Anq8jbCg/STehuwe55WfTssii5W HaDcfnyo2/9lhbr1XkvgagacKZVbS0MBW+jy2FWIs8sUOK1J5j6+UXYIJLTJ 6fjCCiGzCm+W1roKIz2guEainvRxak6o+ZrZZ8yu8h7c6rmE10QZW3JbJIqn SB2fkkhXKB+eZVo3m9JFN7yGgvZ+hO2meMyPvibqto+MotM71AEdjNB9gCs9 Ddg4YbJ59k1bNxmrUxtV+tL5CdV1tebIpEBF8giJc9qAJnpBq2HWN1KNmKW3 DYzqtd2NKK5JV8tagxpu91Fud2HHF2JcflvIXV44KYQcIORO4lL/gZbUVay/ EywaEZKv+T9pYJWjmIou9nkSkNrA8VZh1WoY/4fkq8IEA1sziyioQoirO1Jb pIBBg+v6oToTYmaKwfNhACIiVBguIgZXjA1W+STk64SZMz3gMXOmYLgC95As rl+QizuSGzp5kslc78YW1CyhQCozQIUIzZCgIQ0eriFoJAEIWWFzDZF6Syry mNpwmQc3wYNkVY3gPQ0etEYm01DA7c7WRC+ESJtU0cvYx4j72VvhfhlBLnAM ylAY4FKmixeHdEAfxvhXkxlnC3JUsL3QwJ5UFp+sZqYRFjhjT4kZF1T8dYzr ET4oEbFGzheUUy6YfZc3lhQ9WgnPc5J4XuJKJzGugnlvHx+/XYx8JyQ2WeJ7 9C3H+2wjTYfcRKkcFV3ertbPEYerJf1Mf9GZKXVW9AlffD++RuKKuSqu2KSD i7IK18Vr6kZHpgjPRQkheqYctv+W0liN9aL+M4KicezYMRyJ+oDz1bdlMp6Z 2XYDzZnSfhy3f6VOrWc7ynOLUNfebfOkFKF0fo5w2KhTWE1ImYaLe8k7iw9y 9Y0oPOJj1mLKZDf2K5BbeQmRXuLl4biOwztF2GvnBQsX9HX9LugbaxDo6IbT qmcXnZ8bfBNrUKi6gs+51oKKeM0tfCMuHlurlmcNB3LetRMxMfICGjMJxpMI 5d2woc6P3cqb6edWG0S9JnJdMyvLkUBt8DmjGokjx255KEkK5fFB4YuqC/vC FhOOMQQZYwVB1twX/VQQU1SD0sRA5kFui+nZbwpVnG2FKhbufgOkHlxpgWvV pEVhvl8s6h7gZ3622JyTPpTD7DXYE7VGooSTVyO3thkFB3wxedq78FL9yoef vSRo1yJqvjeSr7eqduS8EZKYbFY4I//u5Nf9bLi3Wt40UV4Fu5chBHHRsmms V3Vd1K/xwh5RnhsDU7Oj8pke0f9UpGN1O5HufJQvonTJFv7j05C84VU4/O4N FUF8A/HF9WitS8eiaeSX3g2aX3o/L80vfb4EBJtLRd0nm1HLtBryda8ipr8L Y8R02fZUiY5Gq7wQtDbE5g8ffLGp6QrCp4mK/fz3CNvzGbb5v8MNWBZ38ZtF 3p65x1FMXUYQlF8FkYt7Nc0D8EozvSoE/0oiz8crB7Rfpwt7B0FJ11S38kwe J5b8HEtPXX001ax6Hf4/5VWk1DWJRyEc8zadG24A499bA4yMaFXhzKdbsJhU dj8OxLHsMisA7xtByH72jeKVJenHcCA+DdfuQ6846SjOFlZY45VnYnAyr+Kb xgOrLyTiaFLxCLz4l0fhLwtWHE75nnb4cPhmGlHOGlGzevII1TBJ/JRhUcMk 8eOEnJ5TgSZAojFfsmTzW1W8ooHBykEijkAlFcwSceKXX2jPmkO22p3bZfgt be1+vROdX3011vwm41R/RyF2JGNvfpfZMVz0iIDQYPTEvg6jesac+g46xI6y p++OzKWQRswda90xvtOD/b9WsD6vQ0w3D6dj9rcD1O2ZB+JnYoam84fUOO1L nHsIHKAfSiNBph1rmvXraFG3jyXyoylow6jd8/jTFxX4+GUN2FDgc7SCq5AX /htx/RtcaM7Db14JR7u5en/AiXdF2t8fxRd/+pONmaA9hZ6n0HgK3T3MJAfE LyfmeLGEol6l+mVmZjIWkpGRoUKA47mhj4Qn0jp3ICZw4c9x8HlciXoFik+y RARNuZiqvI5LN00IE7wIKjLhTzdE+18O7m8/XTOvXkGu6Y+2sumCNLfreQqN M8ep49aq/fLGD80DWvvSNe12fvGLX3BH0D/tpGgeoal8CKxQ7uWFPB9D4BNb tNMw1a8BPi10/f7aUtdPhHtw5HUFzt6bsH37VlWD5QhqejrZUVJQodHsQMn0 R4m3NpzxhuIdh+MrXsY7CTU/JoL2VJGxD9Qo/Bpo9vt8HRUVhZ/97GfMOPqn +miA6KMxjjaf9ncxjobUGPq1lyqPdP0CUtc6Q5m1FadPnxbfPXBWnJEqytnu rGBTQQebdXxF8UU9178Hn76iwDe7DTcK1kKZtAc3BJWXzVSZM3Zqs6kyP/nJ T1hubaNKr+ma4knI/dBzBQ04ekwsrRKKcuUj+KK0XKgsR2nbDVQnbRLhWSjt qISvYPOi2FJ8caOAUdGpm46h8gr5SpqE7A7BII53RlIbM2s0kbM3h34gm6YV 9rz6vD8kXNbfEDnGRVK2WPg9apJmvpHMNGbtXi5nOedZiL9swJXDC9VZbx7y Gi9g+ayFWD7PGZMX+2LSvMOslUtHCuIXeuKTPINYUWk8clTHA62NCPYmGNDW AsJ96FmLWkFn/OzUbfxNttD4BRf3HP2OlirEsniq3O5JCkIvdCk/uEux07py NmoV1WtO8Tf0yzfsuA7jeff/SBOuSGjRAT8eoCJjBqjIX5krYk/Zxg6QxHaQ bRpzT5seaVBpbbJXu4O64hZbnryl/Ih+n6Wo59WKMMZtXojLxbllDltzE0eb Q+MGyCtPqY3nKtIL4KGqThnNVX+W0o+m+3bmEO8SWOhgbxFnPeyI4BhZTRH1 HIWoYV/wruOmWcBE4qZeldcPXWHapVhXmBmk1qZflnVvDW3NzbGVh/zuKwfT jgD2N7a/7d9CE0lGSk20lbs0rTbPmyviZG77OPNde3Ob1CHx0KNZPVGg9DOo 34Lns9YyQnVbqYoGJedesE4y2lrn4S5joKO/pifuTWLZxIfmMIHshDPZq+Yx 6d1ISwB6xbHcc3Q/PGyL/BAnKKoK8Pdln9xQ9aPv205bczqVZSJkNwDLrHhJ VZA4dbeslGgnSSMeAsa0NR8moHbaqHYluttbUSfi6ppaKcZGbeCNG21SiN/U LlkiW26PzGAXdnbW3t5ENy0k7LZoE++g5jYLninjcKOjTVSM49DRXC/eU22S rwRBqvFtbR2ajdK2ZgIE6unMimJn5imZFRfLw4baBjY3TpwyGjvl8XD+7URL Qy1qG/hEi5lW/XWxvDGq41Dys8fYwu1q7rgh9lbmHrCzkmdrom5b2eU0IB6a 6xLqpyK108Tlp4IV7YCcy5IDqCdu1Gdibv8BucXROebTF+tT9OpJCXf463jN hTzuhEzkhrkr2gG5t7bLkxy6sBlqnD2CM5oE6UTWqnYPz8T1xGCzjQoX9xm8 hgnObIYu2B1kyjbzmg5TXIK5SplRc9W0L0JxWoK8ZnmCwn2VenKCTdi6I6Op CsHu2i7QBTMo7BKO5mZJq4E661pSf/Psxe0P4P+WO4J1dXwgJHaJi9mchtMH MXxKpyFrh5kdRDa6SKRt0sFdrd6NZoswH/JwR1ZLf0d3XonRFNLFKKSV0XjG kgn+G2IXvsUTBPU9SVA6Kz7ntq4/UcxzemdDNt4T11O2ZePEYgWOH5/leNPF aK44adJrp2gsT9RwmE/gpCMnbIpgylZcI3pM3wXpLbV8omVbsRGdxgJMF2Vs Sq9FQ/p6cX8TakXa9PWOmLL9IpdXdvgtKI5BaCQvhlS/DFFGUzLcHNZDX32S FbJP8qkbE6JniHoG5VhbBlA1/1OqUuCoTEEhn3y5yKd4gjIa+2l1VbP5YZf1 8aIseTqm+POPmSdUv5aCrSCBc7WI7+ysRZCLI8JyLmCxuL/yXCWnvxgtxp5j mGB+CqY4rue2dFmEO1vSuS7JDZ2q1QFbPqFUUVrbr64h4qjj6GiVfDfR73h5 HkNMaA91dI5GByHO2aEToUzfL2aoDht+8U5C/fmP+dRLoOiTTdn1TK+j4zo2 OTris1Kj6AvxrCbXcl9YhTfJPk7bNBGOm7LVfPUIFXRCs0uxaeIUnK/vUM8p TsHH56+jPnsT93G9iCve/x733eJN2/D5oU1wdKG+b8BWkX+94HdnI/XLJpTR uHDcihbiHx0Gpes3D0Gf3t/HGl9T9LJfHacvxvbD8dg03VHWV6VVWbANZGEi 29hpw6z+ofg1cpXXpV1H8e43RVHvITQ0FJu2bmVFr7NFSWbDEZ1qd7oo76OM utUlSHZrQzKmTJTN6mhOYy+R1MVjv6Y7afZ8qGmXzuzwCatAsu2sU2xZH/P3 4tfAmvZ0cmlFkp7ndpNJz30bmdsI3Vo3+CRUcnyWyDt91wWuGIWVdUn877gu Va1sHecLzLqMwIluOFPHDUDqOjdBu0aelnIkQwtURg0yk04jbt9OrJ3jyGau 9aJcqsdanahHHbnB3IhLfMJqrZrHBL1O7PPddqJK/Dv6nOa49tYswUBHJIny 6i5l4fjxOOwKXcenqgJTa9BeLw1XX9JZlq/Hzjmi7qoR67WifpWnV/CJq31x cYiLi4EP8eTUCUlbb5JtbEoS19ORd5X+V6BKxJkMOhGegyKia8g0p9f4GJip t6eK2tK0a8drjoc+gXVXb/o5mM/LGZXXrc7LFcXRuTMv5BpMFuflSvDJdHle Lq/qEnaJMPVoVqg8L3f8Uh0uHZfn5bKa5Hk5rRdpJFAvFpnPs7VAn+jLHC1t MaL0mAiTGY3GIvgIji7YlwuD6MUJDmtRbSjCHNXaR6O+CCtE2G1nEfSZ0gzG zoxSFPE5PV9UGquxlnrkdJngZgmnXWfVi2tlOdyLBpTlZkKXmctMrNQb7jK5 kaCa3NBjn5c8Q6c36BFH5+nEKDI06vi+75FclCRt4bpw2Hz2zsivysqSItQY TMxlG3NX0sJKPW5Fhr+l+W/Zsw/xbn11+J6ta7qMcPUMm+IwGSEnLiJ39zvq OucNpFSmw3fRp2whpLYgFtMcVEPwfgdwTdCsy46Cl9cCzHdz4DNZG+KLuT2X zoZLSyAi7avvhKG4uQ0t1afxqsMGXL16guseWyoNbSh/K6pXgQhvXyRflWfh Ks5FSLPqqkEP6QY2CxumqQZKvPyQWinYV58O72mzsWj2ZPMxvTVqGt8DBXx0 kKy3jZytu4fedYRPEO/W5Bq06M/jnTfCUDWoQ2zfG7heVcfwc9VHb/a+D7mZ C/23Yc/2ALxKHfnqVrLKrjykwfPRVhUq3P07KEtPffcP1k14dHLVF3D0aBIq BY1Hrl5NMRLiUlBjPqgXh00rl+Cjj1Zge8xZXHkchjuqceVqzcjJuu8QhZGT dSMn675rmUZO1o2crBs5WTdysm6Ynqx7IgbMbVTrA2ysWyzDTd036RyPdpbs q6/6pMmenjuqV1Vb9PV00jVf8Tk6suhwp8fCa2ofn0ujcr+60yfqoZ4huyXt 5/Ro13/+s8XxsWdl3Je3eLHxZf+5swG9uA50Pu2x2newtzxKw31XnRhqxk4m +cbCSEd+jIV4tx87WcFuVK29rFqGS1STD+Wfvq6S+j68YyiPEVsnebInV8v0 3ZfCoLwchXZDBrtO5f3/K1M5THTuGNOlS9XtBTAWfmrGV+iUV1y5kc/uTH1F umSVZXggrfNLtJjTUi28cbHzFtK2TjXHaa5fCzq/FNPssDah/v9aG4FgJX8F G86WyUMMxiIsJBsKuy8gcbkCZz8dn7zovXKYT/3kdUlLEH4WliA0X6yqL1Wy BAFlUigayRaCXp4Wyu82INTVg0073Ou/NRR15FN1UrS0n1AdK/OItP2+VvVY TtZodbVc7pXDs6A4f4J2K3+uWhmtCCUFx0R9v+/XbekD+YNVnpSb1oIIVygz Y/rdtE5Eazr5BdyAzU7Smrk899Asrp1wqOqGlT9Wq7Bqu0H6WM1R87Uh0pXy XccWV3ekGG8hV3TbmowWbpZmHb2ebUMoeG3ZZhw9cQhvKx5Ib7WwsdAubSnk tKtW01vTxfWHqLLy70quZd2RXF8IT9FtuZ235FmYHiNajC04+DYZFH8Nm3ce xUHpH1bhN+zjdOBqbVyBcHCn4Ex6ZCTkOJFh6M7OBoQLbq9K1YwrkD9XBTuK TWxQYenpWo4nX64z9142h+kwwd3GFShfSHYVgl2mIMnQw0YOlp6XRg5MxdIR a2NvFyoK0nAmIQYRAeR4Vdo+N+ZLh6wtbOzASdpDJ7omcvg6Exf0qRaOXxsR Iso4X5dtTssbz8ZSFFQ0DuA4Nkv5tt243mUJYb1jvyUEeZJhAsqj3wL7Qm1q RUk8+UWdgUJTlzRf7rgShdVl2D6DBo4/imrKsUeEySQCg68i7cmL1bh4cj0D XzkGPYIc3HCuSeRnP6/vI6O6GifJ9MGSREainRQXJNa0o73qJId1Td0W/lhb GWRVlsSiqb0J8UvIt+wetFv5fb2KIEdRRnO7TPs+Cbmr2JyDS1gRdKIsJ/9E tHe39/uNHUbeXEdzl2hGDCQIsxbVRpMN2zGYCH3GTizwi0ODUY8jfnPMknvC KMzOW30+Yu1yxznrsG/nOung1W0dihrbVXsGjnCbqDBOE5lULvLVY5/PCmTW yfxeC3ykg1JB99jFRtGWFpyL8FE1yh2xYMtpNFq5ac2CSZ+HQC/VaqHXOmSK TjQ1ZsHH6z3pDTbwjLkMoz4XfmraiXMCUdhgsvIm6+j2Hk6XNQlmfBt+Xpub KxBBiI7DG4jYewBRG+ZLgX586dD8vKb4CSKrk+4S7tciYvYiAkUG5VeVtcgn bIb+a62EX0fkHG+k1H7zzlmHt73ysXdhHiR8r8O5faHsIHfZ6mCczNcsgz8I WLhX+b8q6wSOJF+6S4hfD11CAkoaviHsZPRdVapHyrFjKK77ht2yPjVGykfc uz5t5EZwjmFJYQTnGME5vmuZngzOMdwdtY64dx1BR0bQkRF05BtDR+xxh6Vs fRLpID3LO/1a/aSt3yk2eKStP8YKTelEn1lb315N10l5JcIh0tsPEt0Ylt5i H4SU2JqRkpb0MEUzjvzK1NdZdBBW2IXCTZ7YRHBHbzlWvKxBKWPhHVfOkEXY K1MZFrGET+4Yc/C60g+7KMrrKOltQNhUTRXkFbxO4VeixPtGqnMbLbGKgXCJ B2ttPz+8URCnQaMgeRudxf8VRh2uxc8zu3bN2+gBv8wWXP5kEpRFiRK5aM2C pzILxd39hqz7kZEcnFpEiIpM25q/jVGOrLosOCueuMwIRgUWiXLZVnY/sqHY SsVqUQVWoh42oMU/qaDFZhQcosOSTli2eRdOHN0MJxUcyNngjjXptTj0GtkU 3oDIyM3iGym+h1DV0SwNRLd9YQFkJCPSScGaXKMEETqLMElwKaOlnO3/Or22 DLuOnsDm15wkAKICEU3ilTTGQudT5B33hDGGf1Ixhk6QUeT81CQkxOxFwFwn KK4RbAg5y38KVqc2IGmViJsZgoSEBPHdwTZ6k1rI4LIrTjfITVcx8X51Chtn XqUaeu7tKug3flxRgDNnErA3IoCNMYdkN6LXkKbhBsqDlTTHP1DL84liBf+I Jt1KNjdc1d6NqpPkTjSIlZky1rthZbIe1ScXm+X45Sf9GR8oam9CGClOvB+N Sv1FVs4i88oX98xghaecymqcDJrB+EFGox7+ojX+iVXobi9nhSn/jDpVaU6T /7f+zdMk0P8f/QL9ljJELnBTBfpu2HK6nAX6qWvJ+C8J91uRFPmRvO84XRX4 12HfgulY4PMmC/kdvQJZyE/xMSumS0G/10RWwtDpTShNjJSCfVKamB+Jiy0m GBsy4eO1QBXSp/6Vtcx9mEjf7cxi5nO+Dlh04qrNUMXVYgC3NaczhHHi+uMT ew8fIsNCAH+vpgD9X045BV2p5nrzIUTVdZdx7OAxlNY/DpH3cKMzIoIfITci gn8aKIyI4EdE8N+1TI8qgh/uYvERBYUREfyICH4YJv52RPCiTvz5M4m2/qx8 79uTyA9kSPefVAF26c7f8yY4Iq/j6RGXW9votJOWEckU53grU6X07RLbVWNv n+pmsRd9arzqcvE5M2tuMp9N3bcVFj2rThx7jS1o6eqzlEN3lUSxcRfj/aTe 46So+lYnu3+8pdr87Om5pYqve6RbSDL0ScnHMORhVG/3dPaodexDz61bdwvK u8Q+rMXY9UQF5XZWgvK2wkg71S7UmkNF6OtrwRZXD+hMvdCFeiqaN0TPWZ4i 5Ik8A3tJlNFjpJNEEmtPCkW7eHa6L5PVJWck1uRglqJouiKefrHyPH9rfr8j Slssj5UuFvN3a04lx8Jzm4zrvXaYB/ZnV7pYUK+5dyThuTRyOk6qJcyKRXuj dELJAq9JnhwmB5YkvJ9lYfdKmYULXQO1b2x/+0wNqmfIbajPD4TH2kz2Frl7 Xj8u47z8MHuZ1PxnWnqkbJfeIpXHI7z/VyvhvfTAtxoVpi5ppqYgBk6i6fvL rsvj+23N2CCud5VJafzRtxVWJxjQNWI9Sd0jceOLNs7jEVmoul10wtmaNq6w saEIy0i1YP8lnBvIHeWVE4wYnKmmF1sTdnoocBXlUYNyNntw97huTjerHaju HRW2Oar8DIWq2oMxd6Pg/36JFlw9xJhKTms3jn8oylx9hvM35URymemtTQgh 74Tif6C2fjGAa8j6s8tYLYPbf6OMHZCSeoal+0xNnaKNbH4+PsDh+1aAQ3Mm eeELR5t4sOW+sFPVZihTtRCMiJlLR+hnImRHHGJCZsI1IJU1GJxCsuRKQgzQ FjGyjMYsuIuGL11KtuVW4QprH0jXigVd6rZU+b9REOAEZfVZdiUZUmBQt62N 7JJyz+frRVkRmq9F5IdLN5Q9PVfwoejovef3CuZ+gAq6b0hjF49G89a3C3Fz SVshG6bSGGbYzKUhiEuIwVzWkpDuK1dnG2Rbjfkq8iG1IazbesTcVq0N5LbS kOXP7iGzRRucArIVuf0eI65dMTeuwuwKk+pj4a7ycbqMfNMK/GjMCWM8Ys/h eBw+fBhhKwmfcIdOjJSgiaR70I32pnLoTp5E9J4wvOWowCUoQ+pMrEyxdpHY lMGGBKmiM6LLzEbjppBhtz2HES/oR29fydL9oJRLjJVYuqUkn6OfJNC7z5/d PFJ8ESFc/hloLdou4leiTqQj3CSsqImxEirPxd0d7vR1ceKypRtJqpMOJ+Oj Eeb/lmxTk9SjWKmTKHh3ey5bJNM11/PgTWwmC5T3tlUzfKe5iHRZpWMDi4r4 18xvkktK9+1F4t8dSxIl/dYi1TWlbMu3g9HMtsJo9BnSetMCHx/4+Cxgq04O vgni2atm/7en9CYk+jrCwe80DKZWJKxQ4Lg21cpjYlmS6jGxJglubqHI1Ulv jPtEF5CXRtLOcFvwkaD/EbwmSitalUaTldWtgljV6lZDLryoPnszUVl0nMMT A1NxmstNkl4kNQ+QelGeGK5xulQkJSXhdMIuTu8TdwlGcc9B1OlUpQEtpQkc TtK3o2gnAUUfIbOsCgmB01WwqAYbHSbjdF07klY4inLOiBWOAcd8BS/8dGgo lM/+vR4jHbn9+qI4HrI7RXvZU6XyHnSVlSK/o6jn6cfkRfJakj8Uh839YMfl T0XJ05DTfBUBv3qVgZ/m0pPwdlPNOrktwMnSegZFLD0mBhzOQ+t1sh7lj1pB p+RoABwm+CL/ejImiPs5ZlNdxczdiIJ6Vsjo18eZxpa02NJWVjRbsXKY8Dv8 StybsPE4gqdNxo6cWr5fl7cHbl4R4m1xFpMnhKCZvUhK+rnEOd9zZo+Usn4O eDfkBOoY3LmGA+RpUsS5eU0AWeI6LyapT719kS7a2nT5RH9bJ8/HqdJq7J2v eoycFo6K7Cgsj0pj5ufH+pvpr/4sU3qRjPLGtHcXqbpA0xBfXDc8vEheTfTn RryzdBWWLVskOkpU8D9Cca25AquVn+No9QO0NSwsSlWQFamlqLLEU66dFnFk RWwZVi9bhncnE79+h5SrnEexAGZesAJmUvx/DmX52QGBGSI6geu7FEsXLsXC d37H9V967LJyP20UM8jTkModc0wwKuyNhUi6ZmHJy8IVZV0KXlVeha6+Gdd0 YXhnU+LTgD39sxX2dPViMg599hmio6Px2Wd7EH34DMrYlNQ1pMWfQN61IQAo NUU4diQZ1VZxxTh2cD/279+PAwcOYPf+OGSVDh6QuZh8BEfFW/geQOZnaKgt wbH9kjRV/8CBWJzJKB48vkOWs6KP4oJgw7kjR1BU+/V4kbW/yBH46S+cwgj8 NAI/fdcyjWiAjGiADBZ+os09PXAkRR2Bn74GfqKldEVFBcrLyzlMmy9an5NU lgTTI/DTQPCTTpeF5etP439NP47nfnMO/+2NRPz6o3hsiorDhQtsz3wUi6CG ogEiKvZf//UHtBsa0NrxhXiNfz3ydO7cecxa8DnsneOg/HsKRr+Wgx/ML8JP l17Gvyw+jw9Xh5PvvlG8KRsK8jQERY1x9yJPPcX4Pe0hX/41b29+E5FFNq7+ 2yMjURtDT2CMw1GM+99JGDMzGy/OK8LPllfg3zbo8e9bmvDvS48hYFPoKFy6 dOlBSJS9GYnq6yKjN12E6oj5RPKDdGNotURxDBexP0TxeBHsY2wxordPwlQa ajSAT7x7ESeJ+UgYqeY8tn6ahk66vlWFd5RXkN355dgBSDxOFYyp8+LxkpsO b2+rwZzdtfhnv6twCWnEb3ffwJtxf8acgzcx+8M1o0iCdH9kyVZFlvpwJX65 0m+gayEum/pgytsIT79MCfJ05WGS4sl2ohrzd6tpSe64CMWqnalASztThLio 8BPjS5bh7nyVlh6hnppWzCTM8pToDtmnMpfbZ2DtDp2oz+2blwk0gl/iJSv7 VveUe7sd8X6ekq6zs5SNVnQ/iv2pf/mPo/jfy4oRmdKG4HNGuIU3wjOqA2/H /xnLUoE1uYDXe+tG4ciRI4pm9+tr0aBL2aw+cKJeIiPpGzzw2q5CMxrCxqU6 pFGo9LZmbCY74Gdr+lGUyMIBkJEtMBoz4Om8ES2E0oiwiub006ol5MUDF/k9 U8a6HptzWtFK5a5WUaCbTawvUkAI0QZSo9iFNs34VJs0iqUZuDIWbeFyK88t gyLKqhN52suOchs35zQ9hAGql6fG4bdBFfg0qx1bU4yYsasFv4/uwuJEYEMh sLWK2L12FO3Szez+OqzGN0YCUwHh4QgJCUe4+I85XwFDdgBcV6WqWEeWxDD0 +YzRZBlVx0edLWgQswdZqgq4C7doaUmFh2sIGlWshcKkcaLhIWmNpVKdZuZS 7IhLQMhMJwSkNqAlS5QbkKZu9loQ4UE4jFTtSbjWCbP1KUPvgHjJecKHArLV /aSJ2xiQ1aA8slbJ//zd55i6uQKf5XZiW1o75uw3YN6Rm1iTJjhfCohLzFi4 RuP+/xkcsHI5kQdEcHQ84uPjsX2JExxXprCnHcfF5yQqYMqBi2i97nqG/G+S YIhJfxE5ZXpkrHfB+/HVnNaQEyToroee3amsZK86XSbK9xZKzCCHpNFUnouT J+OxJ8yflUyCM+rQlOEPp/fjzSBMmIs6Ec2IVuP6gaCBwI0kMn61UvX41N3K xqlYkeVx6q38z2nx+I0Y/IcKOrErqwPvHjTgw2O9CMgBdlYDcTeA1z9a0/9c DA4TKWPno+SNo6GhBH4OCrx25vV748gsV71xrEClqVV6zlhwEDWN5eyfZeKW PIkPOK5DZmU5EjQcozHV7E3jYmK/N43iFM2bRg38aDo/RZ49LrFnj7W6GnO5 a2OSUNlYg0C3N5GQe0biJzEX2FeMhmtIXGKBJS6Blov7VFxD1DtuHYcDdTWD t0RFXP5tcAX2Zrfjk9QO/P7TFrx5qBcrdMAWMf73tQOz+rls7anj/vhFG5qu nIX3BCm79/I9gKutrWjI3Qkvr/mYP7nfG4bmukJzSzFh9kbk6luQstENDtNm q24uZpMsH6116fD2mg3v2W6Me/jt3As/L5lveXT+fT1r6DO3w2u2N2aL+IDz hdg4wQ1n68RL4HK84LQbDhSL6XeRLzL00pPItPnekobDNHx+oY7rmB29WuIh ov5vTHsDBwrqh7maDHXt1I1XsDO9HeHixTJTvFhej76BJeeAoBJgdysw09vc tYNFLJofxTfHmWUOWHb62iCl+S8MQppfjtViJMVVNFvQucrAQ+LVh7V5NTy1 ZHhC3HAF29OMCElsw7SoRszY2wnvs2KhUAxsaxCvqv7+tPbJcX+k4tF9clw4 fQhnCq6akYVvRnTPIEpy3DGUWCELNUgWb9SCmuGh2PLYgArq7P8Qq8Kdme0I TRYP785GsSq8gaVJ8uHdZbB6eEeAiicHVNz9Cn1jbyvePNiDFSnyFbq/Q7xC fdYo1n01AlQ8MlDBE2JIJT7L6RCToli772vB27E9EPsbhF0BDgjGv77EzPgR oOIBQAUP4q2VOCD2QTvSOzDvQCvei+/F+kzxYqkEjvQAb/TzUgMPOFvYVRzM 68CuzA68d6gVCxN6sTFXLtIFBcpmziVhAJ7cIq/icGEn9uZ04sNYIxaf7ENQ nnhaaoETt4E3lw6US24IOrBbbAjeO9yKRcd6sFFsCHbXAAm3gNkWuSxqSA0T NdQa9n78TXPDYm9Y19Ai15ZK7BdDa1taB97c34p56tAKF0PrEA2txVqu7xpQ McRNwQhQwZKEwS23lX6ujQAVt80v0CEsbB+Dqaohr7buhSfGWMITGMC21GgV MyAnHpopKmmeyn4gJx7y1UfqMndIcUSS+aqvkznW2feV7RNTsxnkeufe2YEE QO3F2+xU0fva2GJ8+WX9gMaiGguDMHVdjsQHlB/jTt91hL2upZNp40ru9evR VSL9dJha0gfw01GEIkqba+K+MvvsiCqEMSdKFaHLPNuzm++LkzxZe1SDXPRo 3H/hLjBkM+tcVHXc4HmroegQnEm9pShF2opiFOIK26gKzTMxKjLJL1PUjJCD H7HnDmVSICpU+1OXYxexvkpx99C8b1ilNXviuI1T85zhlyrjGxKXQ5kVT0/M o5unGuTyRuPaS9aYRnaIlQICKRWwLSld7oC2oxjT2GCJaSjYX3VD1TD5W3Zs QVoiG3KarRxuaJhGQ7nmPGMLPj+pOs9o+2KAtJvRyq+lVlxMPorVH0rtFo+d BYJrNx/NZtXQVnYqx8ywRF44C8I/PXKMUCKEr5rJ16kNPWi5ko/TpxOwN7zf oBTBEk4fJFjBElnGHrk3ExyjSnWKe1kBrvgwQc+9YCqQzi8axHw6kPOLbE57 rT+tk4QqLsfMZdhhVXgM0oorYOjibZ3SDyB8g0arhrbSFVy8F15Q8D75UF38 PovznVaeZHG9/112pdZn6EX6IE6//nAKqmtS2B9FRmu3lM7b8Mr2B9KRheN6 5FRX4iQpeBAe0ZgCR5H4XLV45Cv7HVnkstMLd8RmlCDf7NSiHUUUPyMW7d2t iH5LVCo496+/LTBgMGt/1fiXGQwg5+cOWxRpweo5GEv3SUWFlrssTC2IRImh HY25u+A15yPMIQfm51PZfffapBryft0uBiPJ5Hf6vCfeP03QBbrB0etN1o8g tZsEEacZvrL0PtFgNCFnhw9m+5JXCldMUyw8UdSkYgUbvSIPGKEoaWwXb8ch W7Ua2kbnLqtWLMkX5b+7bDV8fVXp97Rw0ia4r1Bamql6FleTQzjv7DXhgvY2 vPMrkpz7oaSlha1fLT97XZNNKw+WcItKNWYJYhNCVHWBJ2+V6gnI7Ae/77zL tFXdlQx8fvgwYmJicOjQZzgYlzRIp9Vjcb04EWGrl2HJkqUI2nWKHZrTYq8s 6SiSLtY+paaonqywfghb6BGTVk8bOWtR/RBwthFR/ZMV1Q9C0jAiqn8covpB CFhGRPWDFdUPHm+yEp8PWnBwj/h8UBvn4Q8LfCdF9YNf9Y+I6rVd+SBW2SOi +gFF9UNChh6LqH5Iq617RfWj7xLVf4U+MqZOMnVN8t3vLcLeKk76435x6MoH j1kePwT4xNpLxLZJ5M+4UTVmZCfYfAOxs8iR9UXkRL2uOY8gBxHWzh5GQzp7 uNPvOMLSBbet2QU3cdzerJ3wYOH38BO1DwEVsrcStVcdehuKx35V6PsD3OrM xSRFQXxtIzY6K9h9pRd9vfKQf2heI04ulC4cSBHAkPcJi8qzWFTugbWZBtVp dio/SDcrVFF69+0XvjEPDkOEdX5sJSLns+Akep45Ex4eMzHTVYHiGqkeo5fi a82/9Jr0a1J8nqP6ou4oVI/9a24d5P2BfFVrAmyWbI/7JmTcQ8BSfmwl475x owNHyDTQBwdw4cJpzBWFzD1yBeSUIcTVHUktcv9Bx+hXp+mtHCz0dOabzQdJ Zw2V93UYre1veCH9rXlbGCJg8iMrwTWNfzrrrrjsEdcZLFtObJLnzIOd3NWw PGu+MkU/gPMEd2SINJn+bliVUqc6dV6MwkYDLsaTUwZ26izmIFHSf3/8kuch 4CB/byV5NhpN4luCBYoj5iyYCMVrH1o4To+dC3zYxwGlyYj0wRZd3X38IJCT 4xViFqrn+3Fr35RQpfSpYE9SYTuiQkJIoy2Fvvdw0uMhABV3+0SQks2kgAny LPaJKwOIR5+3FI9KezRNqoODGgPSwt9FSPK1YSGvHT5EhiY5HgJCMpBTBAP0 5ek4dOg4OSr4WsmoGDxsKqa+FAkHE3C5rgmlugScv3j9fgLSp0/u+4Tlx4Pf 143Ij582ctby4yFgPiPy4+Fz1Ps+298R+fHjkB8P4XDliPz4a+THQwBBLGW6 g98NW0pnB7+rHP6y6u+i/HgI6/4R+bG2OR7EWntEfjyw/HgocMVjkR8PabX1 dZZoxqriWXJJzHv+zj7lh8NOQDwEof2DBMT2FgLibES9zK6D1VPa9rga5y32 /1NRyG6Ce5Ee9a4i5SrP4GXvGLRYuFS4c6cFQSL/y+vS1fxjURL1CpQVyeY0 xOarce9CeWUvukXY7FHhKRIgDwGreJAA+QULAbIBoc4KNuYZpNUYg47jpd8A 8iW8kIXDpyrkOerb3RUIpGPtyxPVThyvCpApzzxc7pZnuW/y+exZqJC+A8RX dL7It+hU9ZhvVMg8BKzi+4MUMrdhsxOdpyaB8Q3VJ/CHbPclva2NhclvH60S PUicfB5f1JOHAFfkdKi2aNY4wXXzCezyIJsz9dLi/60WfCKGvrPna/D09MRr r7nyyeKcti9svzHZ8xDABWsT/feXPUu5cUi+EcZ8Opb5ASoaCwTXSNYs7wVk tajnqp9Xz1o74XQt7XUuM52913qhj5srxt5eNqNPe6AKulaWIq24ADtminLn xpGzZvtvXyQ9eIDi+4MUSUub9GE6HZbQmWpdk2paxQUpYu4MIjv2GY1StKx8 D92tuWyPPr7aJOmJdWQlSZL151hqe06vSpbZVMsUFJoapbkUXZ3yD9/CGenB oxnfH7SkOtJNVaSZE8Nx0tgJGWNvRcwcEb/ijGgCHY7+HhpzP2GpdWZjK+LE PcfAVDb4TpLryIkKvPZdUK8pryMmLiAT5GQgxaQ8sgB7CIDFTwcpwK7FBgdp ZP1crWro/PpZTnOylsLpmE2cmeyNqD17EL5mNt9bFleItmsnObyjoNkssC0+ QPeX44q4Jlq1KRs5jYNv4vCVQT+JI9CDB1yszZbcR5AtCq5HbsJBHE8tk8Lr H7Lg+tjBUyy4loLsizgYthoLFy7EwmXBOJF7lck1lqchJuYcqi0ltbWFiNuf gLIGTeJ7BacPHkTGlbphbHLkyUqzh7DLHJFmP23krKXZQ8ChRqTZT1ia/fWb 8RFp9uOQZg/h/OGINHsIp6G/BpKxlDAPfmtuKSse/Pb125Scfxfl0kPYzIzI pYdwaGtELj2wXHrwm47HZYJk8Evkfrk0DQM7Fo3askya5MHyDSR++fX1rDlk T6FnzW8pjvs7Co0z37WQKpMU2Xagw8ZDWd5ZyJL5ePEfLASu5kr/gIKjKfS/ zCE+pW2rVoIkwZSL8tupQkwa+Va2HQaHKVhXiaWaIo76URXfijlI/LLp9dEU sv16qbGtKiH+8lYPTGI4mTpIxKPlJWkPbXyNnaroWHLhDzfa0EQz1o0/KJqI +csvb6FdpO3uuSWWf1+Sd1+rutib4/rvClaQpMjMiqGCG6rAWfBVDCUbKdzU RL3MHjvVl2xdYigWkGFa9bt8+WEY+/rQkbcRa1QPtQnzRFsW8AEzn+WxMAm2 mrK2ySzOMltclnhsui9ju7OiprVFWOxlVeh8W3aG/X1lzLY8WZHkmwSttqqA meV7GtbBg0GdAqPb8P5RORi20xSoDYbPPvvMajCIOVTRJmAa7FIIfEv5Ef1K yfF/wxc1J7gJ+86WyaPJbYXYKq7X7CqEKWcDlvtloPncMpFGPJtEoKccweL+ wSIj0uY5Y3eKtCLOaV77HJWfTMKChedkYS0ZWKO8htL2m7YD1IMbak9Ro82h Z80hwQF6CbBg+Xef47ebK3ndEJnajjf2NeHtwzd4QbRVjIFobd2wd+9eMwdo M0ccsJWvFvFojTELuO0sRN0iZKtuPi5HuGLBzBh08+aD4kajLW21aHsI6rID sHxNGi5ucIL3hhwb9V1VssEVwUerBKk2VCQfxa4PPZidq3dk4sxMBd4fBiA2 IkR8IxAbeRA17cQFrXSWsT9HIRtzPaQgW+IL1IaXf3sUv9lYIaamdmxJpgVa g1igtcP79H9ifQEQKWbSGYv8RmHPnj3mxqtSdaVfkt0vpn7Welv1rNr4CyGu 8A7J4tK1xpPt9W4ysiMav2x1Ki6JNAtWp8nbz6E4wFU0tBhVMXNFo52wMyIG BcUVaOvqRc5qJ8HLEOgSEsR3B7zF/RxD7wAS89FfL3JXGSNYZG/JIhKjE4v+ +TdHMGlxMSIFezYntmLy1hpMiWzC7MO9+EisSNcINv1u/tr+8UFLM2IRGWgY /fUibDuK55C9rI1MfMFfDIXgTL6SBL6P1kx/LFulQ2f5AWZJ4qV6GC4dE81X cPxSG8rCXbBgxhF0ipny9FwxPkLy0XB6qUi7FOUNRlSfDhDhmSjv1EzF2Jqd tdLkbiul6eLGWFkzSmJntR8W0TaUagy3YjyLLknoNOXNI3jh31MwK7QKM6Jq 8PLqMvwyoArunzRh5mddeE2sxr3mLRtFdt/NA4nk0C0tLcr3aDxKlvDIJNJs f8WGLu3pSRvLSZ6xTCJRv+i3RJPWo0HLovw1mnP2YMv6eNRlrMeylcmc7kp8 ELOJ5PV7DhfK/PoM7Jjhwo+U91thqDIQTRNyty+WE7DjDJwr1NupHaYVSxWx GaDGYwaZzmaAdLbqL01KNPDk40W/46WX0Zoa+AXG4Rmno7CbmAj76Vn4wbsF cPK9jAkBFf9/e9f/29R1xV/qUES1jUmtVPrDNglNS6Lth06dZMJPsECiaUtB pBSWdAIFhIASvpSmCQGRFEFCIWaUKDAl0AKFkmGMk5iYOCFuCI5JHM/O7PCS OBgLkLr9F5+dz3nPDvvCpEmTuk7kB793zz33nHPPfffcc8+9uRcln8xi5d4v sWP3/uy1Ho5cxN6KZUpL8USWvxoObTT6/Uwp7Htklc83nvnyFzE9zCbaPOos rlZQJ7/D1fOX8Mej21RHbTcmken7CNt29+iahk3A8SwBQylrdV57HspLuYx/ JaTDLpHbCC9dyzoBxVrQ4Bd444YXv9rYgfyfX4exOoDvVo7ghzvH8LPaKJx7 fXhn60c4ffp0HnX53B3532TI/5VniDzC8GcunKmtxZmDxzE0PqsEnySGMDiU +D9cxBgdHcV1dzfeqW7D0t9cxCtru/HGe934xZZObNzegJMnTxIvT63283bj f/tXCv7X6PznKxe8eowNHAwGce7cOZw4cULbyuVy6dUeLCezpuztYy9WLr5t 5OZXLthn6RJwakE02lI+aQg4N+GfTNzz1Jl9sXLxTa5csKnoWjBKwabJ/lMZ cTgvZwSDgZ7s3XYvVi7+SysX9+7d00bI/vM8+0p2PGQjZaM6edopXqxc/LuV i5GREZ2tMLbFmT4/bJq17HYl6pbxkDz1pXPrAj09PQiFQlp8YGCAu+w0HY1G 1WSRhFi4PN6WybNeT506xUc8HufwxMdCvUiTFpGWk83HJ9PikhjlxPk+LeJi q9BCBS/SEY3M2tvbsX//fmzYsAF1dXWcSitc8o2Vivuy/Mbh+rW1begn9lmH W109P9ZsyRdBeXKgWF63243GxkZ0dXXprIDxDj5vyFSY2uIgK3iiO5Zx4M9/ GkckEuPGJUnxdxFikQhiDx7oZqaIvCfs9weJGO7f17SUJ+4Chdnl5T2CSCwh nSJLLaHlY4kHoirCFuZgiq/vVlnhmSt3/9oBqeEv4Y09+CdapO+wYTErrakl +iuqoNry0d/fr9WlDygdy6HRYY1Wq96bm5sRCAQWKLYD05Oe7PHGufMWDGcD xqejOFvjtGGLBbYNPePTUmoSHTUl9p7PAmzaVK7vTT1RjPd9Cmf2qGTnuyhh QMYzLszneZVYuEwJbBGmhjpyZQrKN6G8gGWbEBVRJ4c+p2y2DK8LrSiiPQ0w Cho0f3oqgBrilzRhdGoIHzpt3gXl2FReAF7l5YlOIyp0NpUw7UTTp83Cz4mu 6LSqgzzefabuzgaPyNnzDF8HyhuuYGpa8cXv468oWz5y+e5aW1tx8+ZNtVpc VKE1o6Y5nLDXcZrW3d1NPPliWOYNpJJerBIx91y6g2Q8rj7eRDyJ4T9sFIZv wztBJ2MCro1SlbfbYCZ9ir/5QggpcxiHpJoFtW7BieM4q7zRhTHphv0XarX6 h7wTonLycigvpw1zKOyn8B1fJXjbEZJuGvrykKrFrTyHsZ3q2+xCKGkiORFC aMJE3Cs4BUeQTI0pb6NgD4bNFOK+Q8rvQsiEGbqkMta6J0TGO3oWhbH5ONze S9jOJjJWwRuf5+GsvST0mE5ibEJMiDkBn28YpsCSviP6abnjKWl0yizqFvdJ 1F1TU4O7d++q30VfmuGZ7MjOJqCTRWu2Z88eUTfLOJA2e7FMWB7uZfe0YWkT 7WsMFB7utWGLYfp5evQa+M0Yjq4WkdfUwSO+eseOQhTW9SI9O8BDS3DYn1A+ pHG00EBdb0zUPc9rtfKKKZc0TUqvdTFbXYcHQX8HCo1l8CTSmA22W7v6RmZt 3B8h4T+sMuwQ2YxlexE00xavhEV3TV0HBkZ6sddQvpgNfy74hUpP8YT/P9I/ fMWPAb+fsQ8Ew1nZZzFw5ff4baGhO3uDs2lRNWUQVYsJF1VXVFSgr69Pv86s /5p1j2ltOUiQ5Pr160XVLONAZsanN5s1+iZFrTYsM4POSlF1vdeGLcbMbW53 XYs7MxmBzOHO9U6x3PWoLjZQ3OgTWAjVQqfeN6U8SeNYIdOTomqLBnmtzZ3h bqCyvhNjcxnLpY/eQefJRtTvq5a81fBOCWz4rOKdDc2pVBmhNHX7mOavFdqF +65a4NeRmYvi+tmTaKzfl60OZoZ5/V6xklKR5m5LXvHfkS6urMbOndXaUsY+ r4p9ttLQFtp57CLGZjJirMlDtMzNfZaWOerRaPPDpZ2nxvmkhySWGh0dHVi3 bp1o2doQ+DjVp2I19XE8IOxVRC5vUfGuhU3JD6OJJ+dWnkdaPIFYoBuBSEq3 FjZTw80B9RCuvS84xU2IpNJIBC+j1KaZrzTfVD6EfXAtjETYjS2GTTMdkbE2 iJTQSOjlbqXoS3ESHNbj3o3KVoTFPpgxGf/kAzYDglPYCjM9ojSKm9z2pDqF gLtb+Mt7otuqU8BUOop34BrMx9KhLx/QunWbj3N5W86HwdvZWksNlJ4J5uCV Ck/JuGsu0WqIphlHzceuXbtoFtRah8Phl+iWiErFL2ESHo8Hu3fvJppAWcSB pw/9WC5EP/bTXSDsVfl9iF7Xrtxnt3yrGN/MU529j33RYB/VzGOLq2TsySj8 aWYMLVXW5YJFy8v0SZoaXxD3IMdnUIO+mPxiq+BU4auZMTSUFVnD0AJUtXiQ eWqxykR7sb8sO0QtQosUnRn8GDzGnNtLn075UaXDb1RF7mpYZ+O+hqKqFkRt kR+OdaHKPrR6eVkZioq2YnAmm+fJ5RVVuTBp8/7qs/lqlrX4l2gtRM/WGc4c 7UpLSzW8QeVyckXflE+6JIQzX/CkTna4Mt2vCjjSbzKWb4cw0zi13MBBgeUr bKHi8RbHD6+PyogxilPvUYqD3AQtnK1yqSGOHkeQktRbCpOCjL4tQltbm/4H RktLCwYHB1U8uptMEy75XHnSSN3XjwJ6FPcnQ3Mikg37ek6v3qy9RT+LsJcV r+IZM2QUVaAzkPyOXWQuwDHyEKYl9ZbCpL35WKiK4ni2YsUKLF26FCtXrtQ0 FfODHMcnCFxsx634I/E8LNiTZADtnbfwaJ7kQcuvP6hLv4aR9ze/oYfC\ \>"], "Text", Evaluatable->False, ImageSize->{123, 366}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>{"GUIDTag[263258811583887009546354135400428148505]"}, CellChangeTimes->{3.390503637318412*^9}, TextAlignment->Center, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903] }, Open ]] }, Editable->True, ScreenStyleEnvironment->"Working", WindowSize->{550, Automatic}, WindowMargins->{{10, Automatic}, {Automatic, 28}}, WindowTitle->Automatic, Visible->True, DockedCells->Cell[ BoxData[ RowBox[{ ButtonBox[ StyleBox[ RowBox[{"Bottom"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.1, 0.1, 1], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Bottom", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]; ToExpression["GoToEndOfDiary[]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Tools"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0, 0.5, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Tools", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression[ "WorkLifeToolsPalette[Sequence@@$WorkLifeToolsPaletteExtraButtons]"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Make Current"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0, 0.5, 0], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Make Current", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["MakeCurrent[ButtonNotebook[]]"]; Null]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Save"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Save", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["SaveDiary[All]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Close"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Close", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["CloseDiary[All]"]; ToExpression["RefreshPalette[$AllOpenNotebooksPaletteNotebook]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Password Protect"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Password Protect", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["SelfEncryptNotebook[]"]; ToExpression[ "AddRecordToMathematicaUsageDatabase[{\"PasswordProtect\",\ NotebookGUID[ButtonNotebook[]]}]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Diary's Directory"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Diary's Directory", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]; ToExpression["OpenFileOrDirectory[CurrentDiaryNotebookDirectory[]]"]; Null]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], "\n", PopupMenuBox[ Dynamic[{"ActionMenu", Automatic}, Part[{Style[ "WorkLife Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression[ "WorkLifeToolsPalette[Sequence @@ \ $WorkLifeToolsPaletteExtraButtons]"]), Style["Additional Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "AdditionalToolsPalette[Sequence @@ \ $AdditionalToolsPaletteExtraButtons]"]), Style["All Notebooks", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["AllOpenNotebooksPalette[]"]), Style["Analytics", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "AnalyticsPalette[Sequence @@ $AnalyticsPaletteExtraButtons]"]), Style["Blog Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["BlogPalette[]"]), Style["Computations", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ComputationPalette[]"]), Style["Databases", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DatabasesPalette[]"]), Style["Diary Access", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryAccessPalette[True]"]), Style["Diary Entries", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryEntriesPalette[]"]), Style["Diary Entry", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryEntryPalette[]"]), Style["Diary Headings", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryHeadingsPalette[]"]), Style["Diary List", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryListPalette[]"]), Style["Diary Templates", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryTemplatesPalette[]"]), Style["Email", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "EmailPalette[Sequence @@ $EmailPaletteExtraButtons]"]), Style["Essay", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression[ "EssayPalette[Sequence @@ $EssayPaletteExtraButtons]"]), Style["Evaluation", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["EvaluationPalette[]"]), Style["Favorite Palettes", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FavoritePalettesPalette[]"]), Style["Favorites & Recent", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["FavoritesAndRecentPalette[]"]), Style["File Sets", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FileSetsPalette[]"]), Style["Formatting", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "FormattingPalette[Sequence @@ $FormattingPaletteExtraButtons]"]), Style["Form Templates", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FormTemplatesPalette[]"]), Style["Notebooks", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["NotebooksPalette[]"]), Style["Notebook Styles", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["NotebookStylesPalette[]"]), Style["Organizations", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["OrganizationsPalette[]"]), Style["OtherFiles", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["OtherFilesPalette[]"]), Style["Package Programming", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["PackageProgrammingPalette[]"]), Style["Packages", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["PackagesPalette[]"]), Style["Plugins Loading", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["PluginsLoadingPalette[]"]), Style["Programming", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["ProgrammingPalette[]"]), Style["RSS Feeds", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["RSSFeedsPalette[]"]), Style["Style Sheets", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["StyleSheetsPalette[]"]), Style["Tagging", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["TaggingPalette[$TaggingList]"]), Style["ToDos", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["ToDosPalette[]"]), Style["Web Search", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["WebSearchPalette[]"]), Style["WorkFlows", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["WorkFlowsPalette[]"]), Delimiter, Style["Custom1", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom1Palette[]"]), Style["Custom2", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom2Palette[]"]), Style["Custom3", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom3Palette[]"]), Style["Custom4", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom4Palette[]"]), Style["Custom5", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom5Palette[]"]), Style["Custom6", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom6Palette[]"])}, #, 2]& , Evaluator -> Automatic], { 1 -> StyleBox[ "\"WorkLife Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 2 -> StyleBox[ "\"Additional Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> StyleBox[ "\"All Notebooks\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 4 -> StyleBox[ "\"Analytics\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 5 -> StyleBox[ "\"Blog Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 6 -> StyleBox[ "\"Computations\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 7 -> StyleBox[ "\"Databases\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 8 -> StyleBox[ "\"Diary Access\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 9 -> StyleBox[ "\"Diary Entries\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 10 -> StyleBox[ "\"Diary Entry\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 11 -> StyleBox[ "\"Diary Headings\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 12 -> StyleBox[ "\"Diary List\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 13 -> StyleBox[ "\"Diary Templates\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 14 -> StyleBox[ "\"Email\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 15 -> StyleBox[ "\"Essay\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 16 -> StyleBox[ "\"Evaluation\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 17 -> StyleBox[ "\"Favorite Palettes\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 18 -> StyleBox[ "\"Favorites & Recent\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 19 -> StyleBox[ "\"File Sets\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 20 -> StyleBox[ "\"Formatting\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 21 -> StyleBox[ "\"Form Templates\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 22 -> StyleBox[ "\"Notebooks\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 23 -> StyleBox[ "\"Notebook Styles\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 24 -> StyleBox[ "\"Organizations\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 25 -> StyleBox[ "\"OtherFiles\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 26 -> StyleBox[ "\"Package Programming\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 27 -> StyleBox[ "\"Packages\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 28 -> StyleBox[ "\"Plugins Loading\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 29 -> StyleBox[ "\"Programming\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 30 -> StyleBox[ "\"RSS Feeds\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 31 -> StyleBox[ "\"Style Sheets\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 32 -> StyleBox[ "\"Tagging\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 33 -> StyleBox[ "\"ToDos\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 34 -> StyleBox[ "\"Web Search\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 35 -> StyleBox[ "\"WorkFlows\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], Delimiter, 37 -> StyleBox[ "\"Custom1\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 38 -> StyleBox[ "\"Custom2\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 39 -> StyleBox[ "\"Custom3\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 40 -> StyleBox[ "\"Custom4\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 41 -> StyleBox[ "\"Custom5\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 42 -> StyleBox[ "\"Custom6\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False]}, StyleBox[ "\"Open a Palette\"", FontColor -> RGBColor[0., 0.30000000000000004`, 0.], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0], StripOnInput -> False], Background -> Automatic, ImageSize -> Automatic, Appearance -> "ActionMenu", MenuAppearance -> "Menu", FieldSize -> {{1, 30}, 1}, FrameMargins -> {{2, 0}, {-4, -4}}], PopupMenuBox[ Dynamic[{"ActionMenu", Automatic}, Part[{Style[ "Backup", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> Catch[ Module[{}, Needs["Diary`Diary`"]; ToExpression[ "If[!DiaryQ[EvaluationNotebook[]],Throw[Message[DiaryQ::\ notadiary]]]"]; (ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression[ "BackupNotebookWithCommentary[EvaluationNotebook[],ShowBackups->\ True];ShowBackups[EvaluationNotebook[]]"]; ToExpression[ "AddRecordToMathematicaUsageDatabase[{\"Backup\",NotebookGUID[\ EvaluationNotebook[]]}]"]; ToExpression[ "WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"])]], Style["Show Backups", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ShowBackups[EvaluationNotebook[],True]"]), Style["Hide Backups", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ShowBackups[EvaluationNotebook[],False]"])}, #, 2]& , Evaluator -> Automatic], { 1 -> StyleBox[ "\"Backup\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 2 -> StyleBox[ "\"Show Backups\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> StyleBox[ "\"Hide Backups\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False]}, StyleBox[ "\"Backups\"", FontColor -> RGBColor[0., 0.30000000000000004`, 0.], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0], StripOnInput -> False], Background -> Automatic, ImageSize -> Automatic, Appearance -> "ActionMenu", MenuAppearance -> "Menu", FieldSize -> {{1, 30}, 1}, FrameMargins -> {{2, 0}, {-4, -4}}]}]], "Text", TextAlignment -> Center, Editable -> False, Deletable -> False, Copyable -> False, Background -> GrayLevel[0.9], CellFrame -> {{0, 0}, {0.5, 0}}, CellTags -> {"TopToolbarCell"}, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{0, 0}, {1, 3}}, ShowCellBracket -> False, CellDingbat -> None], ShowSelection->True, TaggingRules:>{ "2.1.0\[Beta]", "GUIDTag[201868647729977095039330991938021528617]", "Notebook"}, CreateCellID->True, DefaultNewCellStyle->"Text", Magnification->1., FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell["Modify the definitions below to change the default appearance of all \ cells in a given style. \nMake modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Definitions", "Title"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 12], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 8], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> { "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{10, Inherited}, {10, 30}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{27, 10}, {10, 30}}, LineSpacing -> {1, 0}, FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "SlideShow"]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{10, Inherited}, {20, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{27, 10}, {20, 2}}, LineSpacing -> {1, 0}, FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "SlideShow"]], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{10, Inherited}, {8, 2}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "SlideShow"]], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, CellMargins -> {{10, Inherited}, {8, 25}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "SlideShow"]], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsectionFirst"], CellMargins -> {{20, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", Background -> RGBColor[0.893797, 0.937102, 1]], Cell[ StyleData["SubsectionFirst", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["SubsectionFirst", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["SubsectionFirst", "SlideShow"]], Cell[ StyleData["SubsectionFirst", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellMargins -> {{20, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "SlideShow"]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{25, Inherited}, {2, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Times", FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "SlideShow"]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{25, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Text", "SlideShow"]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{25, 10}, {6, 6}}, DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 12], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ StyleData["SmallText", "SlideShow"]], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{25, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["Input", "SlideShow"]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellMargins -> {{25, 10}, {7, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["InputOnly", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["InputOnly", "SlideShow"]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{30, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], Cell[ StyleData["Output", "SlideShow"]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0.6, 0.100008, 0.100008]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Message", "SlideShow"]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Print", "SlideShow"]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{30, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}], Cell[ StyleData["Graphics", "Condensed"], ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 0.6], Cell[ StyleData["Graphics", "SlideShow"]], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["CellLabel", "SlideShow"]], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FrameLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["FrameLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["FrameLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["FrameLabel", "SlideShow"]], Cell[ StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Inert"], StyleMenuListing -> None, Background -> RGBColor[0.870588, 0.905882, 0.972549]], Cell[ StyleData["Inert", "Printout"], StyleMenuListing -> None, Background -> GrayLevel[1]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["InlineFormula", "SlideShow"]], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "SlideShow"]], Cell[ StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "SlideShow"]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{60, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, { "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> { CounterFunction :> Global`CapitalRomanNumeral}], Cell[ StyleData["Outline1", "SlideShow"]], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> { CounterFunction :> Global`CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{90, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", CounterAssignments -> {{"Outline3", 0}, {"Outline4", 0}}, FontSize -> 15, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}], Cell[ StyleData["Outline2", "SlideShow"]], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{120, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "SlideShow"]], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{150, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "SlideShow"]], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Presentation"], FontSize -> 16], Cell[ StyleData["Hyperlink", "Condensed"], FontSize -> 11], Cell[ StyleData["Hyperlink", "SlideShow"]], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Presentation"], FontSize -> 16], Cell[ StyleData["MainBookLink", "Condensed"], FontSize -> 11], Cell[ StyleData["MainBookLink", "SlideShow"]], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Presentation"], FontSize -> 16], Cell[ StyleData["AddOnsLink", "Condensed"], FontSize -> 11], Cell[ StyleData["AddOnsLink", "SlideShow"]], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLink", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLink", "SlideShow"]], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLinkText"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLinkText", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLinkText", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLinkText", "SlideShow"]], Cell[ StyleData["RefGuideLinkText", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Presentation"], FontSize -> 16], Cell[ StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], Cell[ StyleData["GettingStartedLink", "SlideShow"]], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DemosLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[ StyleData["DemosLink", "SlideShow"]], Cell[ StyleData["DemosLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TourLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[ StyleData["TourLink", "SlideShow"]], Cell[ StyleData["TourLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Presentation"], FontSize -> 16], Cell[ StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], Cell[ StyleData["OtherInformationLink", "SlideShow"]], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MasterIndexLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[ StyleData["MasterIndexLink", "SlideShow"]], Cell[ StyleData["MasterIndexLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "SlideShow"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, DrawHighlighted -> True, FontSlant -> "Italic", Background -> RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "Condensed"]], Cell[ StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> DirectedInfinity[1], CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> DirectedInfinity[1], TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]], Cell[ StyleData["Completions"], StyleMenuListing -> None, FontFamily -> "Courier"]}, Closed]], Cell[ CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{40, 12}, {2, 15}}, PageBreakBelow -> False, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> GrayLevel[0.700008], CellFrameLabelMargins -> 4, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontColor -> GrayLevel[0.2]], Cell[ StyleData["MathCaption", "Presentation"], FontSize -> 18], Cell[ StyleData["MathCaption", "SlideShow"]], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{39, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectName"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["ObjectName", "Presentation"], FontSize -> 18], Cell[ StyleData["ObjectName", "SlideShow"]], Cell[ StyleData["ObjectName", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Usage"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Usage", "Presentation"], FontSize -> 18], Cell[ StyleData["Usage", "SlideShow"]], Cell[ StyleData["Usage", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Notes"], ShowCellBracket -> True, CellMargins -> {{40, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Notes", "Presentation"], FontSize -> 18], Cell[ StyleData["Notes", "SlideShow"]], Cell[ StyleData["Notes", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InlineOutput", "Presentation"], FontSize -> 18], Cell[ StyleData["InlineOutput", "SlideShow"]], Cell[ StyleData["InlineOutput", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["Box", "Presentation"], FontSize -> 18], Cell[ StyleData["Box", "SlideShow"]], Cell[ StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DoubleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DoubleBox", "SlideShow"]], Cell[ StyleData["DoubleBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["1ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["1ColumnBox", "SlideShow"]], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnBox", "SlideShow"]], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenBox", "SlideShow"]], Cell[ StyleData["2ColumnEvenBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnSmallBox", "SlideShow"]], Cell[ StyleData["2ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnBox", "SlideShow"]], Cell[ StyleData["3ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, Center, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.24]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnSmallBox", "SlideShow"]], Cell[ StyleData["3ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.35], Scaled[0.13], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["4ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["4ColumnBox", "SlideShow"]], Cell[ StyleData["4ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["5ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.202]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["5ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["5ColumnBox", "SlideShow"]], Cell[ StyleData["5ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["6ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.12], Scaled[0.22], Scaled[0.12], Scaled[0.12], Scaled[0.22], { Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["6ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["6ColumnBox", "SlideShow"]], Cell[ StyleData["6ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FramedBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["FramedBox", "Presentation"], FontSize -> 18], Cell[ StyleData["FramedBox", "SlideShow"]], Cell[ StyleData["FramedBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.4], { Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox", "SlideShow"]], Cell[ StyleData["DefinitionBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox3Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.35], Scaled[0.2], { Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox3Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox3Col", "SlideShow"]], Cell[ StyleData["DefinitionBox3Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox4Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.15], Scaled[0.35], Scaled[0.15], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox4Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox4Col", "SlideShow"]], Cell[ StyleData["DefinitionBox4Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox5Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox5Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox5Col", "SlideShow"]], Cell[ StyleData["DefinitionBox5Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox6Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.24], Scaled[0.13], Scaled[0.13], Scaled[0.24], { Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox6Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox6Col", "SlideShow"]], Cell[ StyleData["DefinitionBox6Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopBox", "SlideShow"]], Cell[ StyleData["TopBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleBox", "SlideShow"]], Cell[ StyleData["MiddleBox", "Printout"], CellMargins -> {{2, 0}, {0, 2}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BottomBox"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["BottomBox", "Presentation"], FontSize -> 18], Cell[ StyleData["BottomBox", "SlideShow"]], Cell[ StyleData["BottomBox", "Printout"], CellMargins -> {{2, 0}, {0, -5}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {-2, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopSpanBox", "SlideShow"]], Cell[ StyleData["TopSpanBox", "Printout"], CellMargins -> {{2, 0}, {-2, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, 0}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleSpanBox", "SlideShow"]], Cell[ StyleData["MiddleSpanBox", "Printout"], CellMargins -> {{2, 0}, {-5, 0}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["Picture", "Presentation"], FontSize -> 18], Cell[ StyleData["Picture", "SlideShow"]], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.65]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OpenCloseItemizedPicture"], CellMargins -> {{88, 4}, {4, 4}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["OpenCloseItemizedPicture", "Presentation"], FontSize -> 18], Cell[ StyleData["OpenCloseItemizedPicture", "SlideShow"]], Cell[ StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedPicture"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemizedPicture", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedPicture", "SlideShow"]], Cell[ StyleData["ItemizedPicture", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListGraphic"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ListGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["ListGraphic", "SlideShow"]], Cell[ StyleData["ListGraphic", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListNoteBox"], CellFrame -> 0.5, CellMargins -> {{88, 12}, {8, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["ListNoteBox", "Presentation"], FontSize -> 18], Cell[ StyleData["ListNoteBox", "SlideShow"]], Cell[ StyleData["ListNoteBox", "Printout"], CellMargins -> {{77, 4}, {6, 2}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureGroup"], CellMargins -> {{41, 4}, {0, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureGroup", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureGroup", "SlideShow"]], Cell[ StyleData["PictureGroup", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Sound"], ShowCellBracket -> True, CellMargins -> {{27, Inherited}, {0, 8}}, StyleMenuListing -> None], Cell[ StyleData["Sound", "Presentation"], FontSize -> 18], Cell[ StyleData["Sound", "SlideShow"]], Cell[ StyleData["Sound", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Tables", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.34], { Scaled[0.64]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnTable", "SlideShow"]], Cell[ StyleData["2ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.49]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenTable", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenTable", "SlideShow"]], Cell[ StyleData["2ColumnEvenTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.28], Scaled[0.28], { Scaled[0.43]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnTable", "SlideShow"]], Cell[ StyleData["3ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> False, CellFrame -> True, CellMargins -> {{0, 0}, {3, 3}}, CellElementSpacings -> {"CellMinHeight" -> 0.8125}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> False, CellFrameColor -> GrayLevel[1], CellFrameLabelMargins -> False, TextAlignment -> Center, CounterIncrements -> "SlideShowNavigationBar", StyleMenuListing -> None, FontSize -> 10, Magnification -> 1, Background -> GrayLevel[0.8], GridBoxOptions -> { BaselinePosition -> Center, GridBoxAlignment -> { "Columns" -> { Center, Center, Center, Center, Center, Center, Right, { Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> { "Columns" -> {3.5, 3.5, 3.5, 3.5, 13, 5, {4}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["SlideShowNavigationBar", "Presentation"]], Cell[ StyleData["SlideShowNavigationBar", "SlideShow"], Deletable -> False, ShowCellBracket -> False, CellMargins -> {{-1, -1}, {-1, -1}}, PageBreakAbove -> True, CellFrameMargins -> {{1, 1}, {0, 0}}], Cell[ StyleData["SlideShowNavigationBar", "Printout"], CellMargins -> {{18, 4}, {4, 4}}, LineSpacing -> {1, 3}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowSection"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{0, 0}, {10, 0}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameMargins -> {{12, 4}, {6, 12}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Plain", FontColor -> GrayLevel[1], Background -> RGBColor[0.408011, 0.440726, 0.8]], Cell[ StyleData["SlideShowSection", "Presentation"], CellFrameMargins -> {{20, 10}, {10, 18}}, FontSize -> 27], Cell[ StyleData["SlideShowSection", "SlideShow"], ShowCellBracket -> False, PageBreakAbove -> True], Cell[ StyleData["SlideShowSection", "Printout"], CellMargins -> {{18, 30}, {0, 30}}, CellFrameMargins -> 5, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideHyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontSize -> 26, FontColor -> GrayLevel[0.400015], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 0.5, ButtonMinHeight -> 0.85, ButtonNote -> None}], Cell[ StyleData["SlideHyperlink", "Presentation"], CellMargins -> {{14, 10}, {6, 12}}, FontSize -> 36], Cell[ StyleData["SlideHyperlink", "SlideShow"]], Cell[ StyleData["SlideHyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOCLink"], CellMargins -> {{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Helvetica", ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 1.5, ButtonNote -> ButtonData}], Cell[ StyleData["SlideTOCLink", "Presentation"], CellMargins -> {{35, 10}, {8, 8}}, FontSize -> 18], Cell[ StyleData["SlideTOCLink", "SlideShow"]], Cell[ StyleData["SlideTOCLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOC"], CellDingbat -> "\[Bullet]", CellMargins -> {{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, FontFamily -> "Helvetica"], Cell[ StyleData["SlideTOC", "Presentation"], CellMargins -> {{25, 10}, {10, 5}}, FontSize -> 18], Cell[ StyleData["SlideTOC", "SlideShow"], FontSize -> 14], Cell[ StyleData["SlideTOC", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "EssayCell"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "EssayBodyCell158111302713768504937576493385160914427"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "EssayCell158111302713768504937576493385160914427"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "Subsection158111302713768504937576493385160914427"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964]}, "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964]}, "CellGUID[29047891772840169731068570274395890653]"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964]}, "GUIDTag[158111302713768504937576493385160914427]"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "BlogEntryTitle158111302713768504937576493385160914427"->{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964]}, "Text158111302713768504937576493385160914427"->{ Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775]}, "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]"->{ Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743]}, "CellGUID[302092616520650903614977579949948524583]"->{ Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743]}, "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]"->{ Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190]}, "CellGUID[124568511805928610129526188644205006786]"->{ Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190]}, "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]"->{ Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999]}, "CellGUID[244026919330884115318043920322357708330]"->{ Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999]}, "Subsubsection158111302713768504937576493385160914427"->{ Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999]}, "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]"->{ Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637]}, "CellGUID[179719458703342760996581890872555440419]"->{ Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637]}, "Input158111302713768504937576493385160914427"->{ Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]"->{ Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775]}, "CellGUID[267393518824135531611488047183471750766]"->{ Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775]}, "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]"->{ Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]}, "CellGUID[243152742097324414359584908518413848001]"->{ Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903]} } *) (*CellTagsIndex CellTagsIndex->{ {"EssayCell", 196414, 3986}, {"EssayBodyCell158111302713768504937576493385160914427", 199742, 4058}, {"EssayCell158111302713768504937576493385160914427", 203066, 4130}, {"Subsection158111302713768504937576493385160914427", 206391, 4202}, {"DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", 206970, 4214}, {"CellGUID[29047891772840169731068570274395890653]", 207554, 4226}, {"GUIDTag[158111302713768504937576493385160914427]", 208138, 4238}, {"BlogEntryTitle158111302713768504937576493385160914427", 211467, 4310}, {"Text158111302713768504937576493385160914427", 212046, 4322}, {"DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", 213454, 4353}, {"CellGUID[302092616520650903614977579949948524583]", 213963, 4364}, {"DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", 214466, 4375}, {"CellGUID[124568511805928610129526188644205006786]", 214975, 4386}, {"DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", 215477, 4397}, {"CellGUID[244026919330884115318043920322357708330]", 216003, 4408}, {"Subsubsection158111302713768504937576493385160914427", 216532, 4419}, {"DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", 217051, 4430}, {"CellGUID[179719458703342760996581890872555440419]", 217564, 4441}, {"Input158111302713768504937576493385160914427", 218072, 4452}, {"DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", 219037, 4473}, {"CellGUID[267393518824135531611488047183471750766]", 219547, 4484}, {"DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", 220051, 4495}, {"CellGUID[243152742097324414359584908518413848001]", 220566, 4506} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 706, 16, 70, "SubsectionFirst", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsection158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.373769}]", "CellGUID[29047891772840169731068570274395890653]", "GUIDTag[158111302713768504937576493385160914427]", "BlogEntryTitle158111302713768504937576493385160914427"}, CellID->832510964], Cell[1277, 39, 100, 1, 70, "Subsubsection"], Cell[1380, 42, 2141, 60, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 19, 58.742601}]", "CellGUID[302092616520650903614977579949948524583]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1155811743], Cell[3524, 104, 840, 20, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 24, 32.133876}]", "CellGUID[124568511805928610129526188644205006786]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1708821190], Cell[CellGroupData[{ Cell[4389, 128, 779, 17, 70, "Subsubsection", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 7.227164}]", "CellGUID[244026919330884115318043920322357708330]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Subsubsection158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1858928999], Cell[5171, 147, 10466, 229, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 26, 8.391209}]", "CellGUID[179719458703342760996581890872555440419]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1427589637], Cell[15640, 378, 913, 22, 70, "Text", CellOpen->True, CellTags->{ "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Text158111302713768504937576493385160914427", "DiaryDate[{2007, 6, 10, 22, 26, 18.543542}]", "CellGUID[267393518824135531611488047183471750766]", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1811724775], Cell[16556, 402, 34012, 566, 70, "Input", CellOpen->True, CellTags->{ "DiaryDate[{2007, 6, 10, 22, 34, 23.235158}]", "CellGUID[243152742097324414359584908518413848001]", "EssayCell", "EssayBodyCell158111302713768504937576493385160914427", "EssayCell158111302713768504937576493385160914427", "Input158111302713768504937576493385160914427", "GUIDTag[158111302713768504937576493385160914427]"}, CellID->1272371903] }, Open ]] } ] *) (* End of internal cache information *)