(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 130827, 2721] NotebookOptionsPosition[ 125084, 2584] NotebookOutlinePosition[ 126853, 2636] CellTagsIndexPosition[ 126810, 2633] WindowTitle->RunLengthRandomnessTest | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Generate a sequence of random integers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393077567587*^9}, CellID->13078159], Cell[BoxData[ RowBox[{ RowBox[{"sequence", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "1000"}], "]"}]}], ";"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.771157000859314*^9, 3.7711570201609707`*^9}, { 3.771239817670186*^9, 3.771239818844409*^9}}, CellLabel->"In[337]:=", CellID->771105549], Cell["Visualize the sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771157061210312*^9, 3.771157065204805*^9}}, CellID->942238246], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ RowBox[{"Partition", "[", RowBox[{"sequence", ",", "16"}], "]"}], "\[Transpose]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["208", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ImageSize -> Large, ColorFunction -> "CandyColors"], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771157020871545*^9, 3.771157056213524*^9}, { 3.771183873446562*^9, 3.7711838798597307`*^9}}, CellLabel->"In[338]:=", CellID->524633794], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJwUmnc8le8fxjNKKqtCilBKFBIa1lVmUYnSIln1FQoZkVGkSCoklaYGJRIt GtqUPY/NOcd5ziZUIqPf/fvD68XxnOe578/9+VzX++KoewY4HRCbMmWKLPky J1///74yVmj45hIfXZovxF4OdcDs3Y/3ZbpMeMxQPrp+BQcP134SLTVgI8ji mvn243wYc9avaornISVFS1S6jQkl7Re1H9Q4YIZ/vbv3LBepG39GHQtnoaGh 2vVaDxdvHortWbyHj4K7TN1dxxl4dHDTqpM5FHafrtAoudKJ9Qr1o1UpFQiT cpZq0KRBkadcJ3+EDoHNPPdXayvx665dyYogGlJuZWx6aMFC5xbtFT391bCL MaAy21owN/3ccL0dhbLsCZOYXQJsv2Jj8CVTCKfLd32ztTiw25s1KLGGjW+n pftdo/lYtfi5l4MRhXLeXfviDAHOy5/xsg4U4tLmih3jab3wye91V59XjU8W Hl5e3i24IDv88XEGH3KqalN2crrRvWO7mUVWL2wEv7S3G7dj0add298bVODl nIiE5f+akVg60y/rNRvLaqmKoog6RN1t4G060YZBYQP8XlDYMClSvaybh+VO AUkLPwjx9VvVk/iLHIzdaf5eN1aH/wSFcTul2rF7uVJn2hUG1IPrfmmnV8L0 T9gCtWs0nGnyLs9b0oX/pEau3MquwAPhisV79Wnge9n6X3xD4a9VKbf4Ew/R Sw0OthYJ0aY4q0omuBPl9CPe2ucqIDEvssNlCQ1T34ZeVRiiY/v5W/n2HpV4 fOhENzuOhiOG9vXx2jzMycJf0yO9mO544eG6jxxITdW7svYUGxIL7og176qD T0HFPMe9baiqU3e9lMZB35+WKu8iCvqVC6hWUT6qqtOXtLh3g5sr/CnTUgHL zONPT9nQEO76bOELUs8N+dNevR/oRqZy5bLuB70Qy7Z0UJjk4GuSWG2UNoWK jSt7HE7zsPmOnxXM2dgyzeRc53EOjJPTRvZfFWCapoW6UhzZb6G8k0toLayi JQM/PGlFZr4If0oChdsxBd57I2vRVt3qMq2olbzPK1TjJg+d56wiRU/S8Ob5 Ka3g5T3IUJwi4A10wqrIOi7uFqmn8r5VtTo0qC741WMUQWFX5oV5i2r56L03 a6vvsBC6ZiP2J9L4SInqMld80Q61zLuN6y8xMP9A6tbZ+7l4sTMkobeAhXBR n6tyc3m48E/pYtQVPn4bDJyyKumByx/aDqnpLLx2qnFd0chDOfN2dKR8C+a/ XMPgvujB/SMvvxjkcaFs9vA+25yFjKxs7/wsLi7IzWI8lePD5aQk88inFuB8 /WyZ5XTMXLWgVCSYj1+3Vmddd2AgbptJRyJZt8eHW/aL0/m4orTqj6tLJ0wr TUfFPZn4Jed6o/ArBf8oGcngyzzcC9XG4A0h9NlrDIU0Do6/Prk86Eo9avsv Pg+73Y6NLeK2srkURlfPnsuS5WPr5z8fHrUKIRzZlnC0gYLUuH9GuCsPHVb9 Lu6xQpi88kgrW8zAfh3Dn6mBlTh9592cS2dpoOxXqlh7U5B4XnG+YJYASUZ1 F2dWC1HiV3jPL5WPjLKUgYHbbTD6NcQ/N5OBXO+es0XXuMiJtlQI38dC0NjG sQufuMiefY7+geiKZVja5JyQJuT3vGhfaNMFLH+eZqLLQX3ywSFTfTbO7rmp JBbORxR3dVKzHge3mNuer9Zj45bN+f80wvhwGPeb/YPWAUUt02Ht4AoouBor 0ufTkB/lHc3yYWPR/GXnirQ5eL5pdkCAmwDJB8WjbW16sPdl/ZwdfyvwLPDc PYEzuf73o9COT0z8E7n/4aVSFVLub/98qo2G4kNxiWmvuIhx90sUiDch2TpC VLOnEwVzQrXyn1L4p76U2v2TB//p9s/dKoRIbX99fHY7hal1nRP/GfPQZaHn QhFd8o203uVL9Pm042U7n6wO3BhM2PhnGhM9wa5FxkwWUt52lPcX1sBZ9tKW uVateH08ZJnTEAcL9XNiXNdRmDl6bnLWJR4cLJ3UPTUpZPTqzXz4XgA/y6LW jzuE2MV2WBZwgUK92z/tHcl8SD17UuUxtw9q8359uUPm9EBx9udNnd3YKNLm 1Xa9Fx9t54oqPOfAMSvyqtyaerxdHsNcadMOq3fJk09921G+0T1K16QC7pYh fb6iNJT3Xb9QkUjBcKvZW+csPiyjZuxbJd+H3bMjTr6ezoMpLSVUOrsX7+gl h6wmOJh92cwR4e24d2kJZWlWgdITb4a2i9EQoGeW2jyfD82Hfx9bMBhg2Me7 GymwkWWdccK/lQNNXa/5SnspPNieOdeukNT1UPQTPXc+3sT++XL5eitUl67N vHuRjidaKsktpA8naJ0zrjrW4vu0GnET8vv4x5Nit04z0dgV7L67qxJvAvY2 KZbQUNQjM6fck8LBD7POzJYTwGhxTPU8cl7WOuf7eX4cKCxxbpVi16F803hR +u82NJXm39l5nPRtf+4Dv/MsuHwplzH5xUX7LeUQ6Qc8hJ/186y/x8Rx6++C KA4bjGG7YyuInuyMdimr9WiH1saDxRG+DFxIXvtpbRQDLGX3w5/OVaJf4fLX 4Ms0zHzH835zmY/udiXa499dKLgY6N2n3YvT12OrJ/X4+C/ho3BLKQMSAr+o 6wMUfp+dZfbrNhvnpR0nFCk2YmQmrmssFGCjW8BVI08OuuUsChN/UHDfsPSA kwkf965UKcqJcuEw59OvkCUUzijG2+ee5KFxvuaXA4fpyFV7vCGW+PIS6T9z 5YkvZ743b41eysbIo6B5kywO1B8mJRZXChCbfWvDYC0La2TUdNOv18BmdfhN +ppWMJcqmp1Q5ML+06WefTMoSKeaHb7/Hw8TOhX0/Kks9K0KGNtxvxqvy806 +U9b8CTWs+t2Ag/0DPWdkVY07H9SXrP1VzecGnWzr/W3QbhqPGfBsgp0XTHo kP/bDM21I9nGUWz8NAmZsmE2B+xoh/86bAVQfGW85yWp22qpX8uuDXTh4Eef mKBlvRiXeMbsWcnGq6b14SeX1MFr2RfR/Yvb4KsQ1XCdzQBtxcrasLxKKFi6 WLy7R8O7lGlXD/dRSH593K2/lwt20HljGVshtGUu6TtN8LAoyNtXbDbR2cU6 Cdl2bGxSbld8Qubo64FytQJeN/qj51/2udsLucC/jv8ieKi+WJswxGci11Ri 4J8BBzNWHj1mRdapuTw7WSmmC4JZ16d5DDDB1HbwmULjYnTdr3Xto73o3fzR 979dXCR/liy4WMsBlxWivuUABaVFbNx7w4OuX/tAVQQHceu9Hyf110H0Y3lZ 62QbTEWDkvp3kfqs7zJdvJ4DM+PYTWZHBVgnXDtnyjAP2+YP6zeFtuCHnOLy dAk6NqXODJ/5l4l0xuf2FfuqcNqSyt05ScPxu7TpDWd58JFzTLpgR8PrJpfD P0a70RqwruVdFg9TexhG9o9IHWyCGtz72LhMMdlh09mw4/TEa/hxYTvTdtvt WUKkfLBklSbz0Jf+fv7fSibqXkpeKiDn9umiSJPcEwp6i5vtJyd5OBRiryRS JwT3nzChSMCFtNbpvWK0XkxOVbJrX8mF6WBpw+wcsv47272j7jAxW2yhJ6eX Df7a6/NUQygojz87Y+1dC//nZv/8H7Qibiez7YUUC+Zhk4ZLn1Sj0Xfkuc1L wpNC3kJ/Ly6OxBkle+Wy8NfihPSENA8jIbP25BTRoX/ePalySyVkzKiZnsdp sLziZLFtFQVTX0PDhNsCBNCftOzxFeIWf0H84EoWFiVZda5pq0aNYeTs79Ut 6L3POPpuJw/7A1Xk8K4ZvPwOO8lj3Yj78PjaLXJeW7gnmAP1FM66zioaV+VD 5ebZ/6aEURgqdnyT0srH+sDY/+YMCNFkp/Cohfi7pkXTgeeyXRj/52FV95qJ Y9YPM3vJfn3u6dObO/gwGPH+QO8TkvN2WMQmOiNyesmCKOUOPDa/t5PxlYGa y37xgqQu3DbSDtV9WYHC7wkxS9fS8ExXOumMChv+6X//5inVYXK8mRWq0IZN V6wdtS5TcO1z1Lc5wsdMsUURLVOJX6y+wltN1uPRfUZVIaAThhsaN+f7MfHj oPG7AdLP3vItc7cu70ZWSKH/SutevGnFwH7y+k+FYf/ia10Q2b3AjjPBxOvq ZP2K6nbYF3EZh+wq8JF/3HO2JA2ie5V+vMqnoKMuyrs4hY+sJOmDn0k/3Lqj 8HFjHh2h+5ttaPaVmFiRKpcQQcNFFdPEegMK92Lfv55/XYA0f48Jp8NCeJef 1l36rhtjZ/m666kKaFYj4OVmGuYeX24f5kRh3pYd3yQ2CBCl/WFR1yPCe8Un X4Hsq9G9yHTgWCdkTbs4ooFM3O0pGrLKYeLS69ozE38q4T2RvnVBOQ0Ody6q SZzh4NeR8y1iw3UIjlviLSLRDmnbUOP5DhQG92zp4tgJcDc8e3zdPSGUVm8q VzzPx62Rp1rxGgw0lrc80LWnsMWgyce4kgL/8NotJVE8uGpTP/6mCDH1ycGf H8h6Pp5ZaNYz2gn784d17hYwsdBNf/DjJQo3Nxa/PxfCx53aT6b06X1Yvu/v xSs2FC6Yv2gTeAnwVk2k5lAa4YrvsfLi5D5mHh1Xx0w6IVZ/2z/HiQmHhJiW AHE6zkxzUzWbR/bluStr3JMG5vNGpYRxCuEr6l6E3+Hi1miVkf9SIeyfmsRL b+Ri24vAQ351DbjoubzI42MHbhoucPtsSeFi0cfzpv4CcP9IyjcmC3HDYsWC 54SH0x5dSlUZ7EHKdj77wGIW6uonvLdXsNBTJH/2ZXoN5qjzDdQNWzGWql8u Ra5ni/2a07uJ8Ff5raen6nvBdbCwWW/Pwf1xN8sLs9i4wPcUV9/JR6DXU8qj jELvhp7g/WmELwJ2rAm5LoSeqmveqXIG9ATNnzl3K/Hl2kPLlNs0LJbU/feK 1K2ycp9uMambddT3N79J3VRnrT/6q56LGQk3E89OYWHUIHfNVTcu8Qv1xxvV 2OiqqBgqmcKF4qlS/8VtAlwoyPRwusrH4Kofeaob6cia8sLIMYgF5U2Vtoxb PMzMM9wx9QkT9q+c48KG2Cj4xLh2lfi8f/bCnbvOVEKSKqqXv0RDx6u1gkLC w17LZnZfY7ch4jz0lugycK3f+t7Uqwykqp0320ry4POOw6f1SB4czMgJkCJz pFD5L/or4eC7V55c2tTMROcab6NTvnzkyb14f28fA9qa77/fIRz2PmZfTTvh SVft14ic3Qnb6PpVzuZMSFef3DHykELN/pvlZfIkryfNbJnWIUT0dU3vqzkc tMpSVxquUPgaZv95C5/w/mfm0DLSP03VP2VneXRi4zWtY9Xe5Lkbs+W07Plo qQrW8PNoRcRj19bCEDp8TmzZaRzBxtbZO3xKHOtg5X9rfvb2NjzofHzJiPDV t3t2BqWzBYg44OEy+k2InRZKv8YUCEfZjjeJzSTrmrhabObDg/2PjMdfQ+lo jjjiONekEnIDgZOGR2nI6TS1jTYi+zLdlWL8goEP8yMdW9kUlh4S+PQvYOJ6 ZaxWx9tKbH+wIoidS0PNaZUbBYcofPCRmftlnA/ZVTmvS1uEeLHK5veP9RT2 6nUPJYUI4JEKnlmCENdPjH+qI/rZyfmi9W9aB1LiD1e6vCHn98EwiEvqMDNj ddkl9S4U63humPOZiTUO3kb9bymsFp8vavOuFtbPbvaL0FrBKAgJ0Sd5Tu2V 0ToFR+Iv9LYNZi+4+MR19f35k4mfu162lDhXIVF1bon1Xxp6TmzakKZHYWve cH5GjgCbrlf/7vcWYsL1zLvueSSPC7pXtqlzYWGy65EWTwDdtp7ZkiQXn3Gb 4a3/gvRzzZ2MNok+hIbO2Vph1Yvrz3c7nCuuQmXEi/2rV7ag4yg1NeApD6vH jOdPSyXnx6tOs25kw3Mghtm/iYvGq5aON5ob8HHKm6cryzqg/LTWXJz0ucST nEWtanQMLJ1X2WbHAkr5bVVFPFyStnZWOU/66fS9OXK1bFAh7meedJM6B/WM 1S7hIeNj2tf+g0K875oxOJVwuHuXg/khKQHuB8/6dKFKiBzpbtdTzyiU+wWf yGOTvP7wwWyzL0IkBjhlBheysef5gYzRGjb+GpZveSkpQHk5ve36NZLnDhSq fOijY6mv0uz4ORQ+z192da8yBceL51Pm0AVwWCj98I+5EJdj5Y8680h+7Hai +G29eJjqfEzKiItd1jnjY3t64ZqpkxfcUAWh2ayHe81bEJtvodt6gwuuQcvd v68bQdfs+PgwsxN/p0alpnZw8bS4ze6kTxMs+5ROHTDpwrJnUt6fSX244WlG P07SYS7T8/rnQxYOpneFSuhwcL5m2dFb7+vQvWuLyO3KNhT80D2brUMhSLVx hmm+APfWx8Yv9hCi7O1rGRXi+8ZcyxOmxPfP7RCIbya+/6/8TohwF4V1Fn/E /q4UoPFx5Z6c50JY2Z76pvWNi0lF/c0vZVn4o2zsMBnAhUa5Fhb49KDqrMmi hH8VGGF2KuvvpiGmbXVDK9GB4paW3VGynQi+ypruYsZE3stvgwdIf35mLL1/ qbwRGZLHlu7I7sShqfeiNObyYNf46LbBpV4ULnjnPM7lIISfe3EW6Z9ZshEf HpL+edxXlvCL9M+cLdkLIkGhykCb2xAugM3lpK374oWY7HGPT1enMP3X8a6X dQLMm0HrtNskxAXjS/pHSP/095cWlZD+sTmibFNC+qfIriCqNaMbqzTdJ1x7 KrDLuUZMg/DmIpP0Q7kv6RBVf2Mt4VCJ8ItBowLCY5tyn7OqdPnwWcPeYPuB AdUPp6TfDFF4nZbOGHzHwY5PSaJpkSTvpt2YZ1THg2zY3D++hVyMaco3s36S 89VWD/aoJfu92+XTTfSnNnX9mt0bG1BU3afgbNmBCe002SGy/vLCyd57tQLs 057ME7MTIly5UM6kmoPaht/b4EP2V6bFdCnl4cYZhZmPkyns9589ay3RiYuR C8QM5vUh9d/nc2lET/5OHXsV9K0dnJzQitc3GCgKEs5KSWQgOO1C1vmLlahT XD5T+QoNIjTemSMlndi+Q3Tf2OUK/NCJj5LXpkGvR3nXvWVsPNcTLv2vg4OK Wcdoc8sF2KsbpV6qzUWQ5buZ20+Q+X1H41mEdUBRb+qq+Qw64rbk9M12rcRq +aPcWydpMHfcceajCakD47N0YieL5G9R8a1mPOS7x/p7rO/FZXW1fZrPqrDT YEjNWqcFd3ZNshaNMJHjX3erZW8VqhVycmUnaLCbsbAhR5SBF+b6kV4HK2Ep OxqgdpqGgrrfnMOqRAcUvjhLthCdkno+e6a1EH8mmMN73jDBtuvmnZWtwrpv iQ9im8j5DuZz1IMYWNvW/npPIlnnPrfEYeKPdA2H1twkPoQDUczTy0i9+Ibj 0YSrpnpEtR9UYOPpz8PG9BVcDNk/CDzRL4DIu+0/3Vw6IHu0hL/CvQL1LB+l 9Nk0JCbGSZ78xYGODFfVilePikbTHRaCdugsbHF6RHgjJK/fzobdgz1dM8cV FrJguGB1s90SDi6cvqmVZMpG6ci/xOA4Pv5d6gtqINenGLnq1ZK8VJnfHe28 igX+YgPRGzF8RJhwJYNMGUiI7hnnE727svzjsTHSB5122U+fGxLuDd4rGVTF xF+bgkDIsLEmOXUrbTMXHw90cH9PCNCcLv0syIPCQc2S4Ym5AiTFhXiElQux 8vrJn0m1XAwPu1w6Lc6CGm8oiOHJRfZQH4N+g4JoVnO1YkYtAq3n/rj1oRVL wiZUGzK7YPbUbdGd4gqMKh1pWLOOcG/0/o8zTlD4Q6XwJt6RPPEy4sEPkT78 WP5yuC2gF6sc5LJ1+6rQWzqbM7i5BfMuOtR/Xkk466ti3oF5rfht+t+nHic6 dPwnaZa36XjKmSxqtq0ET3vyePkxGvLyOAddwykMX9m6M6uej0Nc1dy3v4S4 UxbrvtCCiY/bFxy6+q0SpnOk7SSe0nBOszfi7TIuFhYaS5dFNGBqVMithUEd MN4X3/1pEYVUdUV182oBjGzbVt6xF6L52hfnL1EcKFdY7RmuJn0wsJbpoEzm f9uRTx81OJhqqR24xoyN9WYXM+ac4mNp6sS1bFcuuucf4AwVsRBo1LuSUiD5 7mLA8QhxHvwi5ZVz25qwfeOr3rX3uyAzmNE1upSF6pDRV9Orq9EeaBC1qLwF 2TrV7fQvdEyb3vT1wPZKlDz7fqUpigbe1iNvg4n+d9Y8NGDtpmPKxDbW21gW 5qhcn15H9HYjx+ditkQnthpZJEusY6JsUG2eWgkHWr6R2Y9iKbzUPVXc3MzD PHGZrM0k/3W10IKYbQzMEhu2spFmw6Y6ZMzCtB1djSJnZxpWYO9/mxs2/2vG WOf6GwGLiV8E++y3qBRgZ2hc6O/NQlz5/sH2bybh4dRD0nY7+NDfd03PelQI 5xO3VR4QzlygEXzmdVsbhg2e3WzRZODspjgdoww+Wu/XGqkEdkM753ch42Av DljM3JxHXh/tLGiic7qRWFCz5kxWL46JvqjZTPjTw6zILepMF9Ifq66N+sVE sb7Lvv3k/kH2/leuXWqDXfyugZNTGVh6rPvmjVEOJppeKCxZScHy/Ja7Z5N4 KJPLVdXJ4+DQBkp9ehqFFUdvHP7FIrn/+dizrdYsjL+bHq48VA29DKfU/R0t sNSzO+MSx8SNZxqtuzorcWSKw+ecYhoUQ/oerSbzOMX5dMTk0R4sfqkYdZ/q hZuu2bqalRzo7967a1yHcKjWFwnRUD5qtpQ3mfM5yGhyzqOq6iGe+e/337p2 UE6VDWfNWHA4ssPiJrca0/8zjF5Ja8GnYPpfe3E2EsNY6p+juUhZXeiVJS/E vG3B87StKEyRX3tV2k+AOYHa02+dF+LJqxnH5pP6ND3O+NG9vQubNbdcfdbB JPynQfMlOiBlNXrX7l4n6u/tXW92mol3Eg2MyBmEe6tOLJdf2oAq5rjN1cUd eOqu+XGok4PCCaVB9x0U+h5qZIvkEW6bG2fnPMbGGY3iu+lBbEzZcYUW9IyP X1EdWpck2Lgj6TKiQjige1XN+XPSQlRmn4na/YX4882Z5oqv2PA58Dcp+ycf fQlRmif+nyO+XRLOL+mCdMA+b2upXgzHHNH7TnzqbcqXBR7/2lGa/WDozisG uKEuCy/EUEhpyc6YFlSLkvolpl55rXDf6igvoc2Gxux6TUf1Ouy0OhhSvbAN SiIXDqjNYCBFa9qRAh+S0xWvbVQ/Q4NZw+0nbxXo2Nq0bXOXCuHzIfbXoAM0 nNS4ecSQ1GfO3JAXV/w7kVay8FmILxNHTrh4/J9rlo/fdDyRyYLGlT/WDlN4 +L10pM90iAuZ3T0+RpW9UDgQP8tkCRfpZ2NeaZF+iOvUVfp7oAcPdDZ9s+rp Bd3TVkGSzNslZbEW9WI+lu1d3NkztQ+CPcLgHw0M+I1Vp/pmVyL1xznuvCwa PhQ8zD37kosHbYZV0qJNSE6ssTjZ2Qm+vnpEahQbtE866xvlODi6UFoizFYA b39V035St/x3HkuyNDqQu1Fo2/2dgfe77TonQknejL1mdJVwneICtrs04TqR 3edSizhsbCtf/vtgEhuHLcIt91fw4cmNDGqR5MK2T3TgzgIKi98NWGcc46E1 +u8MC3U6CkL5VkrqlVBNNojoOEhD7IjxHKqCDkMF0w1wrsRdveUB96JpuLlO ZlNxDQ+Kbu/PaUm2IO/dG4cTuT0wMWr/ON+bDfmRm1M+kPn4FOadM81bgEdi 5iXhgzyoDnX1bT7UgupbSk/LROi44fXfFjMuBY/1fgXKY1zkbTxhauMkxKE/ KpVGxN+u27tkdM4SYEf3Hvs+wvNJOUpqdWNdOPR1YU5ieQV6b/TMfgMatjn+ 7buS3I6OOe7R3usr4DPD92mhOA3yOw9WMTIoLCyz3ZRxkPhwfvZ/qqJ9OGO0 KXWY1JOOqA4RnQ7MTJcOGqlm4IDr3H2F79nQaVejV0TVQXNtXVZuXBs+S89Y +Yzoz/qJpCA6pw0Vm2oVv5IcvWTALn7pEA+hAeNOxzSYGDoxjXXCjY35l4KZ Jup8qI/l73hKY6Cwqxu0GWyI/r7umLeN6PaXFKvHga2Y0u4v/ymSjrURalvZ OTxs3rV9puptJn6oV10LYJJ80r7K7NB6FpY3xZioCauxOrtZf0FrC/K7HKTF A9h4t8Jl5NciDgbaqdmbdgkwN8cp4ddSCg8zZY34HwSYb73SkbddiPM0c13p s1zMZXd++x1O/CPHfI06nYttpbzM0Vl8sJ8MzPB60YLDR66vFF9Ch6ezhUam Jg/jv8ILW4yb4WYfk2Q22YXS8UIxf5KP3qocpD9rpiP2OB1/xliQs8+z6Cbz 9SD3oPouxS6olHyRki1l4nv1LR23o4RfBy/PRC8fX95rP6C4QqwajFjU1En6 9sxBT0VdHtYH96kP+Aqx2rz65ieiGzHZP9/0j3fhC/t+ZqRuL2Y6S604uJNC 9qnCNaFGAjQ1yWy9XyjEfoHGR++jTJQsrDwd0FIJe5vOH3EvadBgbA36/98J G9hKH0SWd0Pr3LlZM617sfPgf/fDpvHxqEM/dv89or+7V27NU6ZDIlt/xvle HrZ9HLS+bMqE/g8f8aBwwmWVRjprLCloHW/Kaj0swCz7soWl5wgvGXjJZRL/ 4pnp8pKbu7Ht/uq65Ku98Kh+F/WklI2oNL/sFaR/HijcpyZi25Aorj8/SbYH cidto+SGKjC32ZHu4ERDYJ/quVHi70OHJq2W3aBjWUxo8o3PLPh8eb5pgPQr w6x3wTkvBkT0B+L+XqDg4Kv2gkt8X+9fvk2oWiea1Bbr6Vgzcfjw0q4awjnv 1JOFI4Rzdnhte7eFcM64yrmMsx58uA0vLHK63YpPKuvq9qXSYXouzLotl4LT k0xlTyk+bC61Ov6hCXFJf6pq71I2nB11s9b1cuCp9yirq0KAga7XGz2OcZH/ 9oeoVioL9uxst4I/XGTdeBWRtJ6OsoNyy15pEz5nt/6U9qOhjv3olNCai81b 9H/EVzTg4l5BLP9NB17QwlO2bu/G8QTJw2NNFbhWQ5e6bk1D/FZ+peFbHk5G XJ8z1Ex42u9Rt1RkD7pmqMbEbSe5/lFJwE8zAcJ+PpnofyzEQhZrftUmCioj UoMn9gpg8WBXT+lVIRqPhX9cTvQ5avUp9jSSU4/WXP9gTe9FmCl1OuYxhSgn saYTM/gQ5TcsTmsm+f3OxuIGkv+PqVdfb33Ehub8sge+HD62S0c2t6pxcHxN 0KtlFmxEjJtvu59AuMQ9J8dwGeGoV+tlV1QyYHnlce/RSQow08tYMrUT97e3 e1gfr0D7A5/wvyo0nPISX3KbcKNk2099L8KN1WlJIqaEG9OlunuX0zgYSb72 b9CVgsvNO3sFz3go3pbeZXCgG/Jt7tfetBCunuuWV2NDw5Nuen19GQczc2l0 lm89br5jPVwV1o7+XdqF+4IpBGw4Mu5A50NjT1xgN5/Up9WjMN+SjRN77969 6skBP8ow926yAJJGL1YEWFCYpj8UrxEogNac5slVSUIsKen+MWxCQSHXmL7s lAA3k8qEvtFCvLJl3fMx5UAcDw45qrJhcuf5vdD/+PDHiW8vvLhQ11rwSqDc CE+rbllM78T7mfqSvKcUzI2iD24huli9Ocqu67sQkidTK3YIONilHJrFrq1H 4O59lp8b28Gq0XGpJDpMKW3suijSAZcfC84VFTOQbun6ZsiOwgzTNp4K0TXe iw0D4teF+JETZxW0nOjnncs2jV8Z+Ly5+kzRCIVg6YnL1AUeXrqYHvL/xsS0 jPSZXdIcUIvCPOSI3w35P3PWXtQAjzjs+KPagT/pydmpC/l47pu7TbGDgfr9 oqfSSF56dwDe08DDNKPulfs298Igw7Pg+w0OntOWT6n5QMGGf+yL3WMe4jW3 n4rLESL7ZZ7kkBcPPzq/mJQzmnFxtMWHfrUbCWsk7sUSHc5Z+1Vg8kkA93Nq O6cRHd6h9VmMvZyHay6pvq9tmmHWKya/XrIbKwIN88dIH0hHHm2ev0iA7+tG 9LNLSX8mTURvtWHD4eb0+vadHEwenhb664wAIfyS4RNXeEi9yfA8GEhD4YPa 6AnlHsiGJ0s++8DF9FnzcmeosBBzQyZ+A+HKi+deD2VeI8813T/05iUTa5PD +c2E86TzubUmYXRkilN315pUok9fqtPqKA2m1uuMhaXdqHg8ffQ0VYE1ZQrC ps3E9ytkNzlqc9AwLXRIbzUbuZ1Bvpej+KizisiklNgIPlBbZ6HCRUCb78lB tgCzO+Og8bcN2z3zKhlaFdj9zhedf5vxyeD0TM1TXMQui7OzjWOhfCbcBnhc 3I79/H5Em48/17a7ZpYxMFVsbn7iKIUHZu+N5hRxcG+3+dpLSRRkZBbryXXz MHXP5flbKjlQP5v7ye5YPd5G2BY9iW1Ha+Ll9Nt/2PgxxWyFdRgbr20tPpe9 IvxnWDt76mcOhmfnPNUk3KQs3a+0sYKHBs7tPDbR1d6wul+HFnbC8/qtgRVW TKTceXOmxoIHddklfSo2vZDMa/xPLoODZo/Jj4/4FCKLNYs3DnDRJhmrLblF iCYX/GSROfkgPxR8TJSLkJag33/bBKCXD91if6NDSabS+e6OSqisWMN0Ixyl pzD5kHeSgq2q55oYwo2v0pu/ZhFuzDD7Ok1nN1mfztI1pisFGH5Rz1/6Qoic /LGHs++wwVE4kzjIYkNXKlhBZKEAqQZC1sq3bAT8Zv7MPl6HreUPw3acbEPo bNuTZd+5KFPZKGa7pgmjoTcfV0l1oaO24fz+hxT6E4q2B83jw/HwPynHTiGe 7T4/Z3cLFxMXvP3qXJswtm3+nLSVXVjZcj3BeDoHb+wXnLL1YCNFYaW2130+ dnxP3HtrHR2/nt/0zFhWCWsb7h81XxoYfvYRh7tIXW3Vn7Tpt6BEzllkZV0P ytd+UtxE/K5m0eS2EEs6Hkz6XSn1Z2HnQmt3kbls7A5oFr+8hgvJj/GH838K YJV2u59ypKDh9WjhUwsB9M1Nfrx/KMQxs/ijQyoUgv6KFHt3CLD9XNYhFQsh vA9P3usmvl/a8/bzAqVuJE23jbA17cWGndeYP1IIv7E1dsYvbsOzbZ24XUOH HO1Q8I6pfBS7NrwwvdNCSDI6cu0COqSfuzrbEh8x0h8U/XiqB43K4nvb+nrx wuFGhRrJI4av5EZKmzgwOVrk0vlZgHO1u3PefOFgU+CYhuqBekgUB1S3Bbbj e7p155+bPLy+cdjBPo6Glt90dopOD8IqhgczWlnwVg5dtTS7BpyoC0UPzFoh c6yj+MlWOjYtXiMrq1eJv9731X7707A563D+LrKutDUmb21VKyG5oHC+LOFz vbMbIte/Jny7t3NL6jcerGeN7MkjfXL29StVvj8PjdN751yc0ourze/UYM9B FDtmi6MeD35blFv0tjVDczRXSWx2N+zF7uRJEt6+YXLM2k2K6AuLrZ5BePt9 zYaf8eYU7jMmwrIjBXj7fva/sDghFH2L1hU590JnhusXo+oqrH03RSfGpAU7 HiX77ZRvR4qFqVBGtwJ+7Mk3BePNSKiWmep4lsLVn/diKm7ziU7oi5oq9GHP AWe1EKLzNT6zZNJ2C7D0F7NuRqYQ8oz7J7b9X/dG17TXE917er1q4QDRvTMm b0VoLmx4NDUmfEIdooYEJyTXt2Gz18exZvduTM9cUvb/zwcmKkfe+P/nA32q U2pSaxiont4/MftBJfK+suri7tAwTvlR0f0diKoK/vE9rAK6Vq4zQpVpSDFU uLeonkJTq5KxsycPl57t37c6XggdmaCSGj0K5fLRP1jZAlRvPOZ/8IAQVw2t ZUo7WDibUFA3JbcGu4IjzT+gFcd9NoZvl2LDVZAHf2cuLlwtsVIRFSK1ZJN9 HZm3qYl6y66xGNidvPp0FdFNQbpy23nig/oyjeeLP7fj9Pdvxb6ZDOzRGdZx KOPhwqTEyl5/JrI09mQfzGOj/HCc86QSBSvO9jdiHAEUr8XTtxgLsT0nc6HL MyaMGppaP0+rQlb6DNbyWsIPHaF/T3X14qPfgJtpcDX2MqWsF2a0YMuVvcI1 rVwoXNLJN9nfhJjM4ue1q7qwmMUK3x5Ih9vKmyX/ravE4kSdzxFBNGzSXiGl MUw4pttyQIPwsXCfgB9bwsc0i53mTzZQWO6157bLUQF2HpqkvUgU4prT0hf3 CU+KDvuEb2Nx4KFamOhdKcAX4bnDXxwYcP4Q9lcxphIZbYvCIy/SIL2mhBu/ lsKXc42nNp0XQKb0j+eNMCFOzXv5ST+KQv3WhBLXMj4M9LiBDuNCfLGy+LuS cGnLjBNzDhIuXXzCvoxDuJTF6kz65UbH4YabBbKGlVAU/ZKqEUBDScllMTcy p+HHWh8EE25S3rPT+QWZm1fnZiZT/8/XUSslqAUkX3/guF4hfPGXGV3js4aP 7i8Ou8q1WyH1qMnMy4WO6QOxp2I2c3B/5aHRMZLrOk9aHM7fwcf4UbeLTns5 cM9pHjlJfGuTgR4vwYoP8WOdpceJb30/MqCaeaIWVIKG0u7nraAt/XcxleRK aydmlVxZG752/nZes5ABeUNqICmVwt28m+zAGD76lqh/fSTVh6qVA4f6wMGD wuK33fPZ+O25pGOPFx/SqideG5Ncc704Xn+zGBPpJVvNG4zZaFsWIn7CgIFF m8uU/wutxL+DCYkF58g5yr+dKkZyXEx0mobwDh0ptdErbL+xIM2pO5dMfOHG qwuODxX5+CiVX/OjQ4iSR2ufLtxKuOrbUvrGqkoorHNm3Cuk4dKcgW0Rh3iY jOOdnD3YjAsulUYzc7qh+Du2TpZwcXoDSq9d42L8NG+d0mLCma5xkWahfLA0 ypcL7Bnobz3Yn0J82N3h4t1Usq+7Goc/Oi1go67kwNSvZF+nzDSdRdLZ8M7T KV/1i/DZtnGneSsEkDZcWZ9zm41CEXf51YfqcAy9mnaH27Dl78SGzxM8rNo4 7cFGOSZozbW3uzaxMar3fiSD+PGTf92h5rINEHZMHN8n04Et3yi1xopePBD5 7urlWo01Bn/TH5xtgc14xIeXyyjYv3evL30jwK0l78o9dwmhVdh6yrOtC6cn G4fMPhF9a+Fa+ZnRcOVwY0hxIQ8dzbXTB4ppOLChfFjXvQeTe+5MPrpJcln/ YDZ/JwuxYj03495w8Vy/fsiV+KB3UWlmwBY6/F8yJuLDWBCmdoTn76fQ8C3U XG++AGX7d/we+SzE6PvOqKYgCvF7ppc1svjwGr54u5kjxIW+TnMa4RbpaYsP U1KdULpqH6BA8qvBDNNejicfxoLCRENfBoIXzhrXyCBztWTXbu1YCh8si+d+ IDyUcfhCivq0Psxb9kC/fQ0bi1OXeB65QnLJy+Neq4jOPeC5BK45ReG/krqb xYV8OGxeP6g7ow8+sUGdM0n/8Vv/sK4oc+FXdbT2FuG9TR1vfVUd+JAsQzIz icz3jxWzNpdQGB0fkxgU5yGu0rzfIa8XV85NyP4T44L3VP2/I694eFLymh92 moluP4lwWhkbq7+FPvr0hoMJ+2DhjhgKpxU+yH5q4KF0t2+QNslJvUtiX8cl M7HzyNhXX5LfzHiUKtSIHv7c6nK3SYCH4r//e2gjxGRRneoUVjfWDkj8WCuo QKVbtLWTAw3L6mbxo9wJDzvmXFvd2owo8SY98ZRuZGuYtLiVUuD9puq0X/Kw /O23w1/zhLD1cYjI5/RA1P4ptWhOJUw7RqZ8cid+YZ0lXNrJgV3QQKanM4WH f49m/8gjfVDbppayifhH7pOKX8a96Jr2c7ZsErlu859kUyYbsnK6hltT2Zhf WJX9vo6Pp7krv4S+bYdpxYq/720rIL/KIYYrQcPXOSceriY+uLNmw2brXRzQ gkZGNBMEqKgfe9hK5rd1j2ON4ywGaHoiFcH6FOZESN9VvM9DefzPINNLNGRK roiyMOuBmu+uYyxxLj42Zm24qdCAGyKuqlbyHVCk3nzVaqQQPT4hsN7DQ/KS g3ZNJ4j/anzKUSBzfdAiRZYxrRcTaf3nZjpxsOPcGZ0w0m999sY/t+Z3IE4u QL5yFhMvyhr3ZETyoNtZpunEZWLswuqCFfocpBWNJi47y0KjqIeHlHUNdHri Lj2Y3op5vBW3VYZ5sCtT+bEkrAWH1WumvZag48hxZ8aihTyU1Tpyc9Sasdt1 b/4Y1YXcAKsMf5KbX4adiZSbaMXcRDeV72/p8A066OGSwUezxZeZZzK6kXN7 gcvTiF6UGtlZd+uzob7sRLA2yQ2RpYsS1Z8J8Osyu/Yr0Z9Ag+I/kkR/zpzu LLgVQuHj49wWL5ILLv3JFfPxqIevweB7n8PtMP46tY/5hsKj47vaLD/y8Dyi l7e4SAj+29/1AdspFD1McdI2FyDtwahSxWMh5vcFSoYTH1lV0JpTkd8Ozxln uvMvMrD+ce9qUycKYpwNJ4s2CBBYwPX2fSSEy9Wlrl8NSO6b0Iszvy5A+wKT QePDQoQ0ROzi13Uiu3ed75VrFRCYMpc9Wk6DRo/6s2kkz8qCUftQmUK1waBo UjgPQ4Y313ZSvRj5++xVQHQ1Fkmp5xdcb8Hwnzve9nJstO87d7zQkovMrlX+ Z0eJr26beBNXTcd4+jMVqZ2VkOcG7ZsgeSRk/w35TO0eHLY0E50zXIEY51y6 zA4aGgY7eGZJdDid1zbZv6ESVDNKfoXQcPWotttnwsl+3QYdxlPoKDp0y4mn TXz49nX2QcLt51eti19iJQBjLGnkC8nLz4yvr6O7dWNh2tXsT7QKMB0jBR6E 01I36c6LVqXA/vvsaSdNgPvydnO1rIXIMmnqv76YDd/9anXdgxyEzdU+/rNe gLw/r7UcjjORyPgd1t1WiR0Xh+QuvaLB/tgX+5gJFpRDEnIsGmsw3TU9wHpn KyyDbM6dJX0y0jJK/fjSjYD4cUfflF6YqltYG22ikKSLrSauArQMyTHTrwgx V28bfd8jCr+ZMXUuD2pxtERf7de3Vlze8mSOZXknZAdUUhdcrcDLA8Nrxci5 /F3ef12H3Mdwu1ejI7nPVnHL96fJfR5ukdiZDzoK9w6vCNauRO5/NhsGST6i rxfk/TeVh4FZHbJmnU0wWZBofz27C7uPT+doXeEiUUI9LceD7KNW75xMOcnJ 5QPz59VzsChgvdw+LwoF+oEz2kp4ELPNuvzzPhdL7Kco+dQ34t7q4VUBBZ1Y c3U7c3NBO1Tv/Fn22roC7xw/bJxG9OTjpKDzOeHG1Qv9Czv+z42zV75+u04I Y8mg3/HVFLZps+qijvLwV09aUyKZ9HPAauljl7i4P574+PN/LPQPGP/LquZi g3uzm/IULlQLjgr7NCloqv/7PRTHQ06JW4Ee0SVxiVLu/ld0fElkj1p2s5CT oXjBm+QsoVbxeL44E4dW/KrZaspGd2bVNSdyffGeE459JB8PHNH0DPnBgmxD j0/HQR7uxU15kTKD+LP1zyuiJAe8NxpmhhO9z3nA1bbLJTmUEZ7UyCE8cTLd y4X0oQx/xTTBlR4cs549UPynF9cMmoPCic9+t/HQtiDcNuvCtm3S8SzUS/da KW4gfjJpLOoS2wyV6V3dF9ANZSfd3V2i5P7iXFWteC7WP8hoLZknxBhvsbKd Ig+zqWl1Uy4Qjva82ODdy0FdGHdYbiEF/tXiOdNJDqW60vNdSA7tGHTOn0Jy KGRuRg+u68Ks2MKLIrVMWO1mb7kXw8PbZSmTt0jfHAosd7ft6sYC/eKzN57w cLd4j+7Op2TO6R93rtndA5XsbxVuCyhE0D+//MMU4NVtuv40MyGUr2RxQie4 ePM+LfFxcS+UBv2k7eS4oK+ctzgjmg2bq488vXbUYboN79aFnW3IYSb+3BlN gYof5U9+4qNtfuzjtEnCzw3PpiUv68WiUgeRqRlVMP6XO7pPpQV1JG8++UxH w6mwbIntlYg2LIx4HEVDqIjz2V/jFOQN6BUXb3GRsN8278QSIaazrUw+MQlf eMYpXJvDQ33Wt56FbkJIo++ffQgPMqeK9Pb9YuLdlhARdXMO5j52KvlE5lHj SOvKw5PdMK7c8yiFcEFL71TZUML/+74vnBdO+J9nkDg3mvB/ecJi7+NEBzqU 7XJDhjgQ2BaMmjQI8K2q5tEPnW403iz+YVpbgb2RKx/Ps6ThaOwCk5lbiK+d yhP+2iaAoZJu27LbQnDd3z7imvSiCddEnuZXoeXWk02btFvQoTUYFazGh3vs Dw0rQQv6lr67OWJGR7yv23+vjHhwzy/PeedC9CLyrfiOfA7Udp0VjbIl+UI9 8krbiko0BnU/mvCjIXfweIG+B+mTgtGn2u3NUGq/d6QxtRsjemtuG60geenC 3eNHKznYL9H6xPW9AGZfU5/Vkv4PGVRg1Ukw0H4k6e0MHQrzFeQXnj3GwDvf gvuOSZWAUORxQzoNJ840J6zM4sH/gPxzQ8Lx6ytbDRuMevDhjMYidREGun4q eggOED2/FjMiiKfBv+CrkXQ68QvJbci92wi3W5oji+KJfl0Z7TzkQyecsU9i dHUl/sRdensokAY7a/7NKg0KFoEaJ9eXC3DDzOB3tgPxqYvPA3WIryWo3zhb 4dkO2XlPY38Rrtyrc2IsdwaFx7FpR/b11mBwbVWHzP5WmGv/NxpNOOFnECdr yYsO7ClNeJglS3KJWzdvYk43yWn7ZNZXVkB70ZmivRto8A5KkjJbzkeF6ekE rTIGxtwub5Uh+eniql8nr+owcKpo9eeM4EocPR74hJVEg+b5rLLb4RRW2qzd 3EH4acSu9suG3yRvnqwMCdflI1di07uGDwxIKbYpOv4k/l2VErS0lIfD9w5/ c+qgYdeK2xqSJ3twY4T5Uk2ZjY2+wVvs53CR1j8qr0rmLDAveJs/Wf+dWMrQ +14HJp3kx39IMLF4dF/u0o1sLNg5PEdhBwdrY37758YLcDAk3p5B8ukuuT8f d38hfmhvaZw7IQSDit70ZBsfaSGrchwSGbiUHWGf8JLCfee6fWpEl6bkhquO 6dKxuSmFXribhYGkdTK65+hQFkpKPyI+a9mL0bmhNEhqF337T4dN+O/vw/ll HNQciflR9laAlIK2ELsUCt7b1F9Mjydcc/pEhJtsH8wrtzuIk1z59avYfqm1 bcTHJl3zW+nQzlVTqnDi4/Ks6QON8QzUf781/1sRhT2ST6xOk/2azrwuHvm2 A4+9dIVr5zJxtX/cgu7BwObhVwqPTlVCayolwU+lQWFuwZcVWoTrzf8TeL0W YGGi8g/73ULQaObc6ySn9KWtUThO8bHP4GnLAZJTzj//x8oj9581TX2DE6sD hh6CideaTMS/XDFTlbwe/82t5ZlzB+JDf92iGAys27LR68JV4g9yd6ce7f// /021f5UvFcB/1g2n3d69+Hbch6XSUwWr2BF/K+sW3Npw8FZkCRdD7Gy/4WUs FLLnr5qbxMXqDYY01+cULP0TOHQmD8cOPBX/75MQYXq0WDPy3L2re4t3hHSg o2OBgDXAQJrp6xuHykiusJffLrOwCsKxCple0i87FS4fGlPn40mQtfvJHy3I XGpe0U98PU/X/bkMuf/FOzuTjhTVInPL9QGFulbMYE20sXLYeBySoIYjdUjY t9Pn+9E2RO0rDg+exoPx3PTU+ke9UGD6HdwmwkWBzD+Rz5t58Fo6Vz7PqBcu LZkiHvFEJ6ueL8mx5GDzWjcVLQU23M+Nm0zZz0fX47nduuR8ly78PL/Fsw0j v4/33Omjo+7lh8cRLRxYntmYMHK1HhaXnhkz7rQjr+aCkagdyTt6g5nTMptR NPXwkkM7u9GlvbjizHEKF/yoXiX/WoTI0OY+e9SKVT0jTd5En0X2Bb2adqcb q+OXxO+K6cVxt/vuGUHET+fc7/npyABdqHVamvR9oqSV13RtCq3CPW7drwQI 211UN7FHiM9am4u2mFIYmFfarhUngM27yu0KMULEB05hXjrMg8TeqTlh/5i4 cSgvUs6OA/Wt3xcbi3MQ+KA4eOdBNoJUv2ySecSHFlMlyYv8vNon94WRTR3m ux6bN9e2DbMN485FW1BQnx5i+zdAAHHJp54OSULInk/PP7Wei5L/ZujG01jY 2LXhwfs1PFz1o9mobWPD/9oVCxHyvFW4m7w3UgC2yt552osoaLz7pv+vhuSE C1luR+2EsNz39NSTvSy4Ltm31mxWDQb22Gfd5bXAwnPvKaliku86peQD45nY FskpffOVcPaHLwOvF5GcYLTu8fzIXqwevJkuW8uB4terl78yunDsmMWfhM8V WPxcOnDMjIbn5l2VhqQPr0eH5af5deDcUh2l60IG8ibq/b4fpLBV2jJv01QB 4i+sCRVvEEJj9Zsr9aQPv9yxLphF+jBhotqwhPThsGzDVw/CG+rVP8+mXO+C H6s1tGaSiexH7lbJbgw0ifStuBdXiSjVeTePkfmNfI59TeS5ud+CDUVmdcLK 8LuzlgkT5lqfarYd4WFbwOJUc/L+gBl23z5u5ED7n/MiDslH6x5brWv0rMed l7RVJUfa0f7yXF5ONw8vrE1fPrZiYl5KhapGLBsqX8zehQ9R+HddWvQg4cVV TqfilpkK8bJdNNOhhHDmS99jX6t4eHZf9N/zV0LUaKbYdV+mEDxryWMVP1IP lVyHbeJ92NX8/IhUIgfm6T5rit5TqPJoD1okw0dEQY1GM9lv2Z9s34sy3dCN Dr+auaYXX7ydi+49I/4Zz4jjF9aCnriop6a2FeP9Je01ZF42RBlGFIq1wytC he9lyoCHBcNk2SIOdq6XfXtyPRsGipEFymf4uJ/8YpWOJAccOYOC54/qkDPQ Wlf0rA2skaIj+lwudj1Mm3r4XBOKbU7FvnfpQqHm7ZW/D1OwPzBwzWiAj+o/ Y0Z6dCF2Kr1aPZP4uKe9x4A28fGEz8mfPhIfn95s7yNN6i8xRYc7atWB39V7 /zxvY+Ck7yBvMfGFZTL2Dz6vpMNwNPJnIOk/x2PFUj8f82At9p098pCGwEvJ w96OPUjvURlfrMmGmcS7FkUmB/7T+o44VgjgNvu1wzKS74vd8xZ4OlcgpTBe q0uKhs79rCcKZP9T5Pa1bVhegbNjv2aEjTVj3lGnr2djKCS7zrERCaqFa0WE s3seydl3smI2P+rEXIXT509eqsAu80XLp2jR0D/+6u66+RQmFl3yc2YL4GR5 efpnYyEkGHNuaLaxUbjGS/f7DTZKbxm57O0gHHDH1u/F/z+v3P1lkW1/J4ZP Xmj59YiJsai348Mknzo1j3QUkXltYb5KVBgRoMvk3jvxk8QnZ56Yr/qGj2cn v8V3ifWhSfPYp+JRLnRN/9xvLe3FKpeJmn5FLlgbD/s/PEt44J1z+vdbfDCv yRZwFfqQY5ysPZTAxsPeyq3Fe+tgOiVEL3xfG5bz7ms2F/Gw0XzBXbG3NGQe fJk43asHMizxwlMUF9GM43/E4psgeMxYy9zRBfFVZ4JXn2TC7uVxqYKOSnCy c6e5FdPALhuOMs5kY773ro4dQpJHZjyTb9IQ4Pb2teULRtiQ2bt/xcNQNm49 9S81esXHctWnDAMfPlTLbVNCiK9uF4mJf5NM8hPdIvIbyVFxe6fqR5YKMFC7 TyrZWYhp82iOL9K6oZQSs/J1dwVcxQyozk00NJr4xV6U5qKqi1736H8Vmocj Vf8fxhNSqVQoKw0jqdCQVT1W0SIZEYkilNJQiVBEJQ2kUGZllArfEiIzxc2M a697nbs1hCTq9/n9Afecz/l83s/zvJ5zjzQFD+XYV5Kkt/HrY6IXEp6Mow3Z lWT2g6F28ufXhkG88Ffa4Ud4uOPk18UztBvAcZ2Zm3azHVOjHqJeqzvxsGOl r++6WgRfNFm5+m8rgpXuWZ8g51Ui3BBGe9qNhbsGJS6EM5ATILHyuS4XY1ts DHrsmKgezV0mnclGdP3ncz6ED839m5etftqJsVj7n743B9AsRVfXdaLgeri2 eK5ZA7g5zir+se0oPDf09yjpa+fDJc/df9wHdplQic8UE/a2bhH1a0hPkSz8 nv+Kj4GeHprfIQFmi+uNgVw/irOj0OtcJ+4//lW50HcAzOqpH7N8KdzV5GbZ 9vLgF+T+fr1AgJWhP5vfEv9kdrLdA4l/RqS55A40CXDnzJ5mp1AOknqcNl3y /YLzKy6POjp0wzA95VPqPgrm1XeHrxnycdtMYt6GZwK8T2y29VZgQ3zOXqsy MxZKlhx8Xh/JQx77T7pc8gC6NVbGBtynIfW37r8VCXTEp8ifkd7EQvxeFxnb ZDZaw9+Nizzj4+y1nh8PzEj/UeOYmtXSkLHlVUgl6XkdVLHZxVUs6C/i2z8n ua0zb+L49g98NG3B8k+Er0tWhg67h9PwqDd3g0IMHYE72rfdvcNA0T3XZR79 NOi1Hqw+UUSHrKax9T/Cme9vGbHunm6HWnrWqTWX+jHNR2J9WxHhVCWVe0HB FMI3PRNq/cJFQa8MP9KbQuryufftR3jQ7+f7evQIiG46K96RnFQ4wXzpac/E f0+zLr/PYoOzpCrbQIMDhrPN74nrzTB49TN/Y3AXDJ60pDuR69peuKU5t4SH bwFDp6KmD4HXY/eH0ifce0h09a7sAZQq2dANeigMW68edKgjPL9yXO6/JzSE PLg6ZJ9Cx+qQYbU9uwg3WtTKS9nx4WHw6v7bhwIkvbPX013KQqO+9vIAUQ5e /9656xTp2Y4qKvEj53lIC6qZH9PZDiOfZu2GbNLHUq+bf9Al3BdopGzRPwhH t0qXWkMuPjxOVZYeYiL6TVWbSXgdml4bOV9JaYNRum97GuHYGe9ftM0s5MPk uYG2NuGWtXMvLna7z4VWOE1PvJgBznVqTqQQ8deSJ1kLJjkwPkObPl7EhMlp nfmVpDe4TQQLXRvohsRbRUmVR8QnHQ3zq9fQUaFwWmGlPQXnOJeEPVp8dDTK Gci/EWBaT8TkOsJXoRfVm9nevYjr1bls6c6EzLcNcdXOXGh+3afFW8zEyJRd trMbG/2Oq8Z50gMQ8h0/ZOlNQ/LBI5n51+gIlatdO0Z8Uhcaxx0KePjeufVK kegQKl5rf54mT+ZtYpZidDENvFrz69XP6HjYGvmjjPj5eHza2Wji5yNe9Ekx 4ueHwo1iGhMo9OVIuIrY8rAjcZFN8m8BFHyMJX+UcBEo4ln8xp+BJQbTR03f sfDl1KJq+R4WjAXr8moesDCnQimkmM7DDSvdKeYYA/dVdGutHD4jlxbVbzBJ emrUb6XwhTxsClXuKq5qg6zVOetla/qBla90Z7RzMCdDuiNkjImxjsV7G6w5 oN+bfVAum/Qcv6/tS6MpfFR3tp1NcUHJ7zZ3/P9372ZZZ0yjuxA7r9Dv1r8B PLaLz2DyuagSrZBp0GDg2X9xIileLDQUbKuMj/3/99mH/TWGWbDPNfE2UOcj tcVii1gD8cd58yOv2tEgZca6sS6Ijk31f6VvSPbD6K+W/YACDYcfDr0Wdqdj 6e9bFsf0KLx/91o3I4KP6OI/sa5+RC+9LlY8co7Xdc4qblbtQ8uvx1nzypg4 I/sv33klD8qMcr9bnwdwhKE6+9s/0peOn9y31IPw/nDbbifVL7CaMRU/Nb8b wUMJ+62WdsPvZtaaXUG1yG1XtyteSseT89ZltW0U6EqpfQ9MudgfLCr+5ZwA SJt79mcNGw/9yl65ER27bv5grFXBBbPWNOVKQBcq+AMeS9xrISFsEFQsRUfc wM0j+mROyquHPa8U8TBT9vYVM8JXH3e+fRfQzcb4xAf3XzYUycek5MhsLvSa 5IccIzmYLVH14NCtL3jz4h7H61Q3XIy+sROqKFRcc8jMqG6ATIRY/7Kudti6 hm6yXkeuk+ejb0N6albg5PujvjwU8biGMee4cE1CnOEwA31/Zod0GbChXN5j nB/Mhld6/qOVw424091+o3Z6JwyttoTminOxM7Q2Km2oBRZH7bIL8nuw0Tuv W4vsc/f0+mPVx3txTgi0ctID9xZ+eDl9ioviuMiK8IUMOIw9adiwi4Uy66ob rWKDmF4lZfsrvQ6NdSEjB/LacDmbViP8m0Ixu+mKeg4H32ZmTxfREKA8O3jD VpJHWdnswGj/PjRpZh47wGUitXH6BjvzPgiZ6M56OlGL1MMXhCTs6LDtdNOR jeXA0uQlZ777ICyEfH4V1ZI53hzESNhCISfmir9dEB9PPu6PybwswO0HzIDD 5hT+K8geTHfmw1yp9OxIrAAhARYMn+VkrtUrIrYEMuE853OrUxPZFzEJB88D bHgWiZ10J+vdS/f2O2nKg/tpzcAbGuQcrbd9SyG5IrVxOZN5WID9m99VSnyg 8Oh5mdz2OC7kPdvnWyYJ0Ii7W+MKBzA3VNY6JYkG8S8bC3IT6RAVUQormtYJ UT+ryUH1Wgw2PLu4h3Dg9HHTq6GdnbCW9LzlvJtwo8QRuaFZdHxM0517nehu JPj1MbPSLvxYvfvNA2kGDGUzNgV9YGDz2eTobwqfofhzbGob6cszY7IKrrky oSymKvai6zPGxzsTjpi0odBhU/JjFQrXWAdDP1XxIf92ZqGlFVnnqm+qt+9Q OO926I/VNR7O2qsFjC4Ygmv/gl9nCOdrlB1O7MjuwbNs+43bxJgotciK/hIx gGlDlz7hLg1nQ5N7vR7QMXLCVzR7OQs/FH86hU+wkfqu84ASnQ/7zg5VubWD 2EPZ0sJa6nDqzG6BLq0Nzet/x0h8YiE8o38950oj3Dy+ixpe78CjFdYeEaoc sF0PxDr8GsRO15A0STviLwHS9XzCRYpvRfeOKvfA/8LWBe+qGIjdOWWy7AcX L+We3FBTZZD+dZ9h5cKCjTjj26EU0uPbXbf8TKHwpy1PtniYi6QmD8bLd53Q vuLtmWpGfNg2SalLjA71sr6ACM1+dJy+sCdQhQZtS+uQak86xFVkzra6sxET V/HpJ49CmGLl1CIdHnZa2AcbmbCwXmar8CWSEz6jEWGRt/jQmz9QPjgyCIan d2Dpp3rcWvfj3PW97ZCJ3S4c9JqLiazGWqsIBl4s1XeT+MzCp7HjPzdPY2Pe N0n5rU8awXk7ffLdiw581wydPL+Z+Ns5u9LXWQPYqJi382wnhZePHZL02Vyc KXGf92t3G8KljUf2cPvAr4mYJfGRi4eGTsxfP+m47trm0XO/D6Nsjx29ZH58 r4os+SPdjeV0yW5xQwYy651sCgZZmHs1K0T9NguRC7J3dNQRHRotKPxmSpHf CV7VePKxuFL9gvIdAUKd9A6M3eXBPiBbIKLeAZFpmlb1Tf14xXca9gqloF1C E/91vgFrmC/Wpr5qh1tb6vrtpzm4lSsm6I8bhGXT++DGvxzc4SYkmpVzsLlA V19aYRDK6uVX9C5xULPu2tDqcgq5SjkrMrK46P71N+htugA3vHtyc0V4oPd4 n2kVZWBahmxK5BbC9w61sxvy2ZjRKm/74CqFTfL96yLauVinIV0pb0VhS4+x 6/RtfIx/KAvXyhDgZNmcwPSb/ThvGiRZb0SDGDlllXNEX6yTue5iPFzWutM8 8rQN3A7FhN4l/ZCSyz+8+jCFUixS617Ix4pL8nrUJwF57lI1G3UWzg4t8e/4 wkbetkSbE5V8vG4ct2CTc03JV3If76Xh3jPbqLpCOq45Xj0Za0lhu7FBQeAO Pu7Mtz2y9gnh6kDxllU1HBQ4zrSTkBhEwq2y/TonOUiWElssrElh0cG/wQZZ fGxtOry05YgAOnkWx58IMfBq8Xnz6tc05F/akO6cQYe2+A2ZPj0urhZqqB8+ 0YrMGyrv5q3thbLIhX1ZdApjkxnfnuzgonx+WrIpyc2ZSiVCu/ZTiE7edq9l PeH8FRZunv8JcH+yhvd3TR9KLb03nh6rha/Lnxl6NkTXilkyl4luVFu/2zOV GBg84v+2/yAL6pYHHdadIOdyJn1+VGk7Dh0z5O1O6YfTzmUuT0nupNkUZK4g uZOyNtniHcmdBV8qpPyJfsTsUguW/OCgfRF0Tu0R4NpL0fEj99gIOfY1QDaH woEVD9yLpvGgdLz1fizJHbPTnqpzmnrhN7vOyf4+E2p65YHpC1m42ZX3IW0L B/dmtq17OMbHTuez7NRJBm6Y1iXauXzGixSLF/OnEX04NdQ4yxL+uJmhmLiU 3JcjTUlx+Kg5+MgxY7IX/3z/CQl/q0XCgXdzJvYSzrf9ZBQlIHP4rLysms2B ID/Nj29O+qBZtmPRdRasuHuerXdsRGWie+UU6bNZO4qaPLTYOFwSXxuowUJ0 oHrCxXM8rHhxqSh1GxulLaUlmZIsvDE2Kspx4kHcW/hnlhkPr7fG1m18MID0 Uzf+RFZTuL2cY/SA6PTXLuG1UfVdiHjYIS21hIE922aWBr3hInLlaW3XSjqM yuU1u7z6sOl8wbp5ZH+YH1Xd+ea9GLDmJOdYM6Fan+x2gORp4i6lHB7R/1XO Sm+DX0zMNZPMUelnwyDheYHtXgpWK+ae2JbJRV6IZeaB3RTuPFs8/GcfHwso m+mfEwV48qpIN+JuP+S4r/osTGj4aPJ9ax3Ri46RhAZDn/TltkwXu3A+Br2i V5kHCFDqInLT0IoLyx0eq4w0mEhgHHQ/eono0+TQc04GhapFceeuyvEQ5MkS 3kf6zvDX8echZJ28GwldXqWE34bPF0iID+LQm8TOvAMsSEWxYuaTFD0/+5i+ GTrwn8ew7FzSryn6c4Opp/34cJJzbEvdIOKUQwdFM1jQrvx9RK2bhVPyMTFM aT7KJIa9s8HFG01lfZ/AVizTfiU+ZNALs4seveWzuLj8UcrD8QkTl5VTfU79 YSPyq72T8sN+qAsFGURtJz3R9l6x3gU6ptSGd//nxsXtxLyBHmYrWBrnnzUk 9CKr8u8coWQmct/EHmxWrUMYt8ra07sNa1hfXCcu92HR6Z7PDsI0rNeZ+bTb gY4cA84Cl3lsqI5tX8LIboQts5mu/rYDkhfmPn5N+HB6wduFcoU8/J6SEdUj PeLNwBFhVhwPR2+d7rWL7ofIWuPV/woHkefs8+i3GAepsxYcUl7ajJNCtUfU l3Th+65crsUSDtTlCl+pHWjGTLvXt1qtu+D113fP+jEuHt25ZPGJzFNQGvOo 5X4WRByXr2kcJ3xuk7eiypcF6vt1+SP5POy9+imWSeawT92r1UK+Gy0nvR5m GDMQ03qndpsZB5Wu0st/k33XWjp5qUuTC+uR0Q1RFAdXHD3sV11tAUumpl3E tgdha87cEr9PYdZx/XPWx0hv+H4q4KvwEKQffhatKh+As2uek1IqDe4aT1Nr kwgne7TmuJDzrVU5GD+9sR+XD5qvcBsbRLR9eEilPBt33339Nf8N4dXFdTTZ sg44pDfXp5P50df6WvOeSXxLZfRrB8mTgsXr23cwuEh9Lr3q+VYG8lSe7Hnl z8Llkr9x9nP7oRslYjQhR0NzfCZfw42OkMef/OOJjh65sQJHW3pRJl343DiO 8KfzynDPuRTuK7v+y2fV4+BH7TGmSzt0dkRQ4+S+a9ur0pTk+2HxoiDMZNsg 6C6bTxy9QGHOGZqjbwvhpudj+fRhAXwbOlvKjzNxoPeP51rOZ2TuDb6xaWcb qJP/wsYdu3DiVHKYqUstLsHYK2khHeO5MnNj2Gw41quuG95O+kf+Osv4ZC52 57zJC+ZTaH70nhsp4OBBYVOp/i4BblY9nVb5iEJ7vNADq908DN46KnxsVICE 8aIjEiQPb3uIxt21ZCDnXMes7kgWhi2sWs3sGMiKC5Gj1dMQuX3LqeI8OpQf 3VlwgfjB3xklHM0kBhau6HQ+OcCC+ezCzqlgLoTPzE4VH2Dg0g6+rsMqNt5/ VJr8R3hsvn6/LfR6UGZSb/2snoFj1358cyfn+Cxtae3T5n64iIc5/B4fRNe8 ns8H+Gy8yl3bqW5MYSkvfJ/mQy7KFNfveazdi+yaVVPHG2tRcr98XqIJHVx2 Vur3gxSKtlU27FxKeH659PKIMgFcQ9RfqP9k4eIL9aPsAJIDCr1fJ4p5eF5y T7XAnAOpk6dyDZub8Wb841Gpyi4cPbRO7HUMhdNfjnNrSC/KNvtg+XfmEO74 VShOTrEQ6Ps0TP8kyYenotoOOTxsPrV1qQjh5Ff6yg6J1Xx4V2xKlNorQJ30 Pov6UQ78u9/H7/3ARFEEbcGgIgellAq7LIeJpBr1j1c310HLIEXb0K8NHPOe JDchDsq8OicsVClY+J19efYKF+lyPJE5hgNIvkb7YnyRhuOPEkUO3SI917p+ 8bU7vQjf/3bWlt5a8BcI66XvIH7rwL+qr9KHm2tCYjBaC6p1X+h/1nT8GeF6 rdalIO4qem/vbT6Mx03v8Uk/TZDBy/lJ3RAV5YdVR9UiWnr9AqjRsczC7nTA LA6aLP03SyuQeVnunyfkx4XRG7niEaKP6Dz1f92SJIe17o3uJ5xSI7VE7KcJ A/HMQn+1GhpsN7Trbc+hw+dI8+5lDA40VmZRzRQTQlre8t1GhPPoLl5T31n4 XBLflhHEQnMRLSmslIfir1e2PnzMxvZRSZ8eMqer/4XJjn3lgvO7/F3Hfg64 uo65CpPNCMqa6OnkktxLHJKXsWIiceh9WuzHz6CPykh567ZhtdG4rIwKD7M3 BjspjLeRPiL2gG/SjwD79IUpeSxkylZVBNaxUBy/5vz+mXz80vz4XZz4Z+YB /7P5yoTnJnMePbYYxA839k8vwotRuyqfbnjJwzSadFDknCGctnIfaV5FeoKa 4smAAtIT+zMN7zkIsE9HSzmnlkLnWLje4voGGGy/+F2zrx2pRqaL//8eddy0 KeJFWh8qHn/NmZpkkrIt8bw1YAB13tq/Ht+kwUr2x/mjsXQkTR7kfj3BxeLX c9M9p1qxvdHquV9eL2ziJz41O1Nw6+qZm6fAh2+1Nd+8QgDTZaMhLTJkPz9l MWes4OCTlNYHcPl4GOB/bspzEB9XGzcULalHubZGkcbPNhQrWF774cXF4eKB KxdEmSgZ8UoN38vG342vdVzLBiC888zO/BQa2NyqPwnEbx/eTmrdMMKFu/Rg pORyBjZVivp2ktwdjvJ13qHHQ07Cy8qRlwPorXSfLttPoaHrTMLhUBZuT93R 0Z5F+s7VMdvL4ONuxdtPV66x8ML85YF/wmy4zwk0ztHnY3hwif6cFA5Cboc+ nNg3iLGcPbu2v+Vg8l9Gc9ycfvgUtO4uJT68tzpRXZr48ILKDVK5wgOId7aZ 8eYoDRfSLSRMwwifx56Qz1nFgqNP2tF8OhuGaS28BtJfX4harS+9SIHmHHP2 Nukti7PV4y/+EkCRNZrJK2dDc8N4TuR5ChELlnZH0bjYWK6lLhdF9L29IWyG RQfmK3UW+jD74XXoqdjnDxy4yAUGbFvTAg0VTlGCcA8uH1+/YFiEBS9tVZGM 2Y1I1haFxIwOHDG2m/MikYLd6aZRA3Me7ORZSqd+CmCpNlOxxYbCyn9qopLk +WcajUyLeCnA7h3lP/aT+85bwXytFNkBiei+io7/fy+icq2l0oCsf22wbGko H5eVTEdFAwW4O6Zz/v//T60QSmCLbetCffufpncdA5gbfLl0bT0bLfwNN+d4 ULi+fneYYQkXhhPPZuhsGsSs3T8uZ/XVwUdG5fqepjZ4/DmqbdDMxb7fq6+v c2CguXtesM7/3xeKcGwXPeLiaZvvxsWBdEQyw368V+vD8w45Fx0tDhbOkw66 cLsZitXGZTuudkFBqIAaqKNw6291fM8pLnYFlWzbelMAXrrmxpCAfgyYm1a2 babhpeQu7YkzdDgkqE55E72LydLZi8k+xUyKKKz59v+++qDam+jxycJn59xs SW4uPpNjGTSIN7MsF+YxKBi9lhc9xW9AjsLD+o3f2mGtZqjWVUXB5salFevi Caey2z+UJQkwb52fC21rH75amd9Z+7sWelO+E8ds6fgfK7rV2A== "], {{0, 0}, {62, 16}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Large, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7711570246112223`*^9, 3.7711570565790462`*^9}, 3.771165549590096*^9, 3.771183883386612*^9, 3.771239820359016*^9}, CellLabel->"Out[338]=", CellID->1225426347] }, Open ]], Cell["Apply a run length-based test:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393083502215*^9}, CellID->78070366], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RunLengthRandomnessTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RunLengthRandomnessTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["RunLengthRandomnessTest"], BoxID -> "RunLengthRandomnessTest", Selectable->False], "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771165555713615*^9, 3.7711655590568037`*^9}, { 3.77118105112236*^9, 3.771181052318335*^9}, {3.771181137031106*^9, 3.771181140485691*^9}, {3.7712398246490307`*^9, 3.771239826196941*^9}}, CellLabel->"In[361]:=", CellID->312766755], Cell[BoxData["214.01927229706308`"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771181052708378*^9, 3.771181140740326*^9, 3.7712398266038857`*^9, { 3.771239902690024*^9, 3.7712399041549807`*^9}}, CellLabel->"Out[361]=", CellID->1793337878] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RunLengthRandomnessTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RunLengthRandomnessTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["RunLengthRandomnessTest"], BoxID -> "RunLengthRandomnessTest", Selectable->False], "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771165555713615*^9, 3.7711655590568037`*^9}, { 3.77118105112236*^9, 3.771181052318335*^9}, {3.771181137031106*^9, 3.771181146554532*^9}, {3.771239935637827*^9, 3.7712399366511307`*^9}}, CellLabel->"In[374]:=", CellID->1422437180], Cell[BoxData["0.37984026534735515`"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771181052708378*^9, {3.771181140740326*^9, 3.771181146854631*^9}, { 3.771239905809705*^9, 3.771239936850526*^9}}, CellLabel->"Out[374]=", CellID->226124323] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Generate a sequence of random integers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393077567587*^9}, CellID->467242929], Cell[BoxData[ RowBox[{ RowBox[{"subsequence", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "100"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711831441289387`*^9, 3.7711831629589653`*^9}, { 3.771239974297011*^9, 3.7712399752040243`*^9}}, CellLabel->"In[375]:=", CellID->417726745], Cell[BoxData[ RowBox[{ RowBox[{"sequence", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{"subsequence", ",", "20"}], "]"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711829413662777`*^9, 3.771182942159625*^9}, { 3.771183051211823*^9, 3.7711830694872828`*^9}, {3.7711831142591257`*^9, 3.771183165107781*^9}}, CellLabel->"In[376]:=", CellID->380525297], Cell["Visualize the sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771157061210312*^9, 3.771157065204805*^9}}, CellID->1751694271], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"sequence", ",", "200"}], "]"}], ",", "25"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["208", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ColorFunction -> "CandyColors", ImageSize -> Full], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711830785880833`*^9, 3.7711830793266687`*^9}, { 3.771183193432551*^9, 3.771183193496882*^9}}, CellLabel->"In[377]:=", CellID->969916519], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztluk/1GsfxydblBYHSenYOpbspcWh8zkVhVKUNVkrW5aQlkNJG46EKKYU EQpR7rQolSnKKErMWGaYMfMz208nLW6hOnP/D/dDD76v1/XoenC93tf7+9YN jtm+V5ZCoShKR1M6/ztz8yg23wwJvEpkSSSNEjhejvMmPUgMsMrWBOWIYZNI P3DoQi8S8xRHIhS46Hr1p0vxnn50RlVqUoPoqHiQaLVClYEyt7PqsXoEHhn4 pZq3S+95c+vKD2cS9ewmeao2F+/ehxk5xbRh/bzLsbLpDJgJLu5QCRLipmZK ht8tPhhKnwWPVUSgp3ktVr7Hh+e+wDoysR27SzrdqAY9uHZ0VHXGhACevI0L yy0IVFAfuav9LUKkj5ZqNFWM9cHKso0MDuJd6oiJKT5SjFuTNykOo+agwpbx fULwzWOa5eeQ+OqitarqixCdrUSC1UsexvO6XEU6Qpx+tcNFj0kgXuQQm7ZJ hMWz3PRwiIQ988iqGRfEaP2aE5D4OxsvjYNVHTqG8CJ+MG4Pk4u5Oht2tFa0 4bvTZ726awyYh29zbTIRQXNv3ZD7xm5U0kwVhxQH4FiSfDl+vwjLOzK23p8Y wlhygOmYvQBua1/RZzOEsD+VY2bj0wXVoeKsP8zY2P7evJz6oRfk8qmKxUZ0 sPNX9KtPdCOsJXXEIZJAS1nWOuOvYoQaL13ZzyLhqvzhls9OLozYRd3eKW2g U5+4CLIZ6BiOSdfZTSChpezc7PkSyOukZrTSSQQ4sfe0BIsx9v4Ba18EF+SN vuTAiwT6G/xL1bQIDOm+sOJyJPhuExgf9QcJtdvwddosQNwP91cnlIfxhSwK X+ApxofIFWcmhwncfh7p0EARIUlc+vi7O4msmasrZ54XIyWDuNNh14cLAevv +npz8Qvt+Nk1hwagkZVdcLyPjkuyLiFyjgwY5h1LSRohED5r/9MqnhCNSX4/ P2wksW1FlfntHQQ23u/Qi1orgVpIzDqnahKlNTsuKTMIFHkVawZtESFwW8Ku /CMkvAwrQsM9CMSayVnvWiNB87X+f27Xklgsk7dNiSKEw4S2oblSJ64Z00M7 FfthV+HhsFnKOb+e9WBvci/uhDw+UzjJgZjqbBSxm4faQkvaBPs1PJ1zTpTZ M9E8W+uLWiEf4qASa4td7TC81SezUb0HMzecp0lqBLhx6BSZdY6A37nyn0+5 IkwKD9vpXxTj7k/Zbar+A7DbVZym7M/DUf/NowbSd6w+2sGv3Cnl0dKWUS5H wnq1l+1BKW+ndP8Trnebjc4HFAFHkQcNpaRzWw8QyPe5P5XBFsNuJ8+5gSRR 8Dv1RJahGN8+Mtl2r7nQeNvhUfCTgFlPyj9n+0V4IiJcbpgyET3PLjewbRD+ Pg3icEsCO5Q+0bTKJDh7ulOeGkIibA4nojaVjYaoZNPaejpmSwZ4H1YzEEU7 nZ99nEDgaguFUw/FMH33W8eo3AjYJm7rqsLECEpo9K8N5MInZ26oIIPAfz0O l9cUD6O71N7blD+Mrn3un5yXSBBdXZSxp1sAY4vw6pW57+DWNKKUcbkPZlfO aa1cyEf2lP+vkw1voEDNe7mpkYmmHxLWXU0Cq36NvNMvkEDjF8uGxzYkZCZy V1zhD4HmeTV6Yv1r1HDyvyp9ZIDq/TFtr7kQXqpDLdHpnWC6bpoqSu7HVsPu aHfTQQgPLqB4jdHRlB2TZ+bOgLoGS1y0jICms8qYzj0JzthmmBn7ksi992ww az+B6hS5T5lCMebqlrq6EyQ8d8tuCDgi5crGL/ZGuxhrQutUHo+RcNNZ+FeI L4GB8RBuk4EEB/2215x+RCL7vi/v5nERDLos4v4ZlPpiXCXd0EgApsuY9tMZ HGTlLQ4N12iDGoejXxzMwKSl36TQn8BbLYWO/VoS1M860nyARiLYwfxk6nYu 9hdYe48ea8PuXfOi+rIY+I3+ez1rgQgH9FQ805S7kT2Xf9PrPRs5l+THFKQ+ TNgvJyco4UDW+89zq+l8LEn1fS4xGkZizud8/T4BlPfOdjncIsG1NtOs6+cJ cJ9F389L70DD0pAz9Ic9sJv8nCSQcnvVMb95t/4g3ka+Vqh8wsO+R1uPe0z0 4cr7I6Xr3ehQCFqmNl+ZgYGx2gv2csPQbh0z4R8V4vGT2oA76iQ8nvu/vawh 5Xx8qTDRUIgaknGdJ5Gg+Ho+jRNI4D6r52fFAgmyt9YrebeQMDfXDl2pTaDV 8e2+WqYEP90EsZftpX5TK3Tokv73NbZhcwhHEa73hNEFUj8vU7HI+3KBA92/ Dsz9Zt8GSub1yNSDDFh2LapnzGKjIDau6FgJHU9zn3eftWBgi76OK0W67+5Y Hch5+UyCnZnLqRSpr3Lzqpi2QgEas106tTYSMFS7tKbrqgj3IkZ2bqEJ0PJG pjvY/x36ZzakFUb0IZD4+JK6SoA3Vknqh5vfYorGmJjR2YtCVgf90iiBqdCP F25+78DQDcEJw289WPdi8syKTAJ/nz7pxJD6xmq+jKyyxgiSatO5D8QixDU8 Gy/2ZOIFvbxg3adB3EL8qiInAr1BCsOyvhIsynxnHlJAIvUHC76JBML8rq5/ /0qMR1+HyismSERMSsb9bEUQWaXOD9vOQ5gtpdCpVIA55lm04DEhRP3R/r4v eHh+XsGRtUTqV60gd/YIHxHsd2zDZ+3IjF3ZxtzcA9+9xmtTKoegyx6Y+Wmy DWUuzZMbWhlIyLl9sZYlwGjGi556dwKFKctUXatFmJ17ONde6muVYqH6Rx4P 88smaV0QYtN2uVSFTCHqCrickDg+MpIq7VV7hYj73pzrO5OPN7c2ILj8DbD6 Rq5SHRMmp6opAT1DsE4sN5e1fo0ZjV2VAwIG/qSMipe7CWGy5+5AZBMff2gr +9ovFUEmeqVJMpeA5aWGcDtNEXpzGgx6A0ksPMZpl5HuodYqI0rCXR5MlkSK mpSFsC2bp3ZN2hndKSPBJbHtiIpnBU7q9KCE0zI/Oo6LcqVZzKdpbYhd9FRf P48BPdoc+XR5IU7a2Zz+RZdA9MOFJ68kiRDzTf3ToTY+LBenGmhdbAe3d1MY 37oHts4iGZ9mLgjGrnVrS9owp2qoxaGIgem+mu6r6b6a7qvpvpruq+m+mu6r 6b76//bVv3Kwoyo= "], {{0, 0}, {25, 8}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Full, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771157696617467*^9, 3.771182503630843*^9, 3.771183079617614*^9, { 3.771183124938888*^9, 3.7711831956903687`*^9}, 3.7712399814754553`*^9}, CellLabel->"Out[377]=", CellID->34103964] }, Open ]], Cell["Attempt to reject a non-random sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77118292653251*^9, 3.771182937203691*^9}, { 3.8593931902223177`*^9, 3.8593931979666348`*^9}}, CellID->1428531827], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RunLengthRandomnessTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RunLengthRandomnessTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["RunLengthRandomnessTest"], BoxID -> "RunLengthRandomnessTest", Selectable->False], "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771239989491234*^9, 3.771239999357135*^9}}, CellLabel->"In[379]:=", CellID->1265375035], Cell[BoxData["299.98177490630667`"], "Output", TaggingRules->{}, CellChangeTimes->{{3.771239993295302*^9, 3.7712399996677513`*^9}}, CellLabel->"Out[379]=", CellID->193880169] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RunLengthRandomnessTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RunLengthRandomnessTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["RunLengthRandomnessTest"], BoxID -> "RunLengthRandomnessTest", Selectable->False], "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7712400031471653`*^9, 3.771240003922166*^9}}, CellLabel->"In[380]:=", CellID->2071666640], Cell[BoxData["9.032159583004309`*^-13"], "Output", TaggingRules->{}, CellChangeTimes->{3.771240004206423*^9}, CellLabel->"Out[380]=", CellID->658067980] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell["Visualize the sampling distribution of the test statistic:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771181150371621*^9, 3.77118117771231*^9}}, CellID->423730456], Cell[BoxData[ RowBox[{ RowBox[{"samp", "=", RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RunLengthRandomnessTest", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RunLengthRandomnessTest"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RunLengthRandomnessTest"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["RunLengthRandomnessTest"], BoxID -> "RunLengthRandomnessTest", Selectable->False], "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "1000"}], "}"}]}], "]"}]}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711811837793417`*^9, 3.7711811905034122`*^9}, { 3.771181224558073*^9, 3.771181230938673*^9}, {3.771182072840897*^9, 3.7711821035216923`*^9}, 3.771182209357997*^9, 3.771182262378454*^9, { 3.771182306473*^9, 3.7711823107234373`*^9}, {3.771240114888894*^9, 3.771240124856689*^9}}, CellLabel->"In[383]:=", CellID->1520492122], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"samp", ",", "Automatic", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771182109354067*^9, 3.771182113173534*^9}, { 3.771182311885886*^9, 3.771182340315425*^9}}, CellLabel->"In[384]:=", CellID->1177328354], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztndtTG1m25nvmvMzjPM/b/Bcn5mViHuf1TMz7nBPTXO3CoGoP95K5BzRu AwbKyDTddgHlgkLYgi7b0BR021AIMEWBAgi6ANEypgU2pgQI2ULMOqxwOp0p QJCJdl6+XxCEcu21c6+EvdennTsv//Xfsv4l5T/+6le/cvwn+vUv//r//kdO zr/m/a//TBv/+zNHeupnv/6///Ozz3+d+uucf/63fyLjf/8Pv/rVfyH/f/98 BAAAANiGlJQU0SEAAAAwPVATAAAA2oGaAAAA0E6KDNGxAAAAOBGfz9fe3t7U 1OR2uxcWFs70393d7e/vb2lpaWtrGxkZCYVCCoeNjY2enp7m5mba7fj4+P7+ /nn3IAciAgAAxqevry/lUyjPn+JPmd/hcMj9CwoKNjc3JYexsbH09HS5w40b N96+fZv4HhRATQAAwOAEAgHK/KmpqU+ePFlbW/N4PJzeZ2dnT6ricrnIoby8 fGlpaX5+3ul00mZFRQWXBoPBjIwMsjQ0NNBORkdHi4uLafPmzZsJ7kEN1AQA AAxOTU0N5erOzk7J8uDBA7LU19fH9V9YWKDStLS0nZ0dttAHnomsrKzQJs1r 6HN2dnYkEmGHn376iSzkEw6HE9mDGqgJAAAYGUr4NCuhXL26uioZaYZCFrKr FzuInp4ennfIjY2NjWTs6uo6OhaL7u7uZ8+eSaW//PILz3dev36dyB7UQE0A AMDI0FyAhSMWi8ntPFNYXl5WV6E5CxX19fXJjTwfqaurU/uTJP3xj3+k0uLi 4ovt4QhqAgAAxsbn81GidjgcCjsvkcddOqmqqqKi4eFhuZE21QsfwWCwpqaG hYl2uLS0dN49SEBNAADAyMzMzFCizsvLU9h53XxqakpdpaysjIpGR0flRq/X S0an0yk3/vjjj9IlW59//rmkTYnvQQJqAgAARmZubo4SdX5+vsJO+kJ20hp1 lcrKSioaGxuTG0kayEgyITe+e/duc3OTpj9ffvklawo1d649SKSouMDBAgAA uCQCgQBl5qysLIWdLGRfXFxUV2lubqaiwcFBuXFgYICMtbW1JzX0xRdfkMP9 +/cvtgfIBwAAGJlQKMRf9aWreYmDgwM2BoNBdZWOjg4q6u7ulhtpk4ytra30 meYjs7Ozb968kTt899135FBYWJjIHtRATYAu/Ob//DeNP6KPAADjwgvuXq9X soyPj/MNI3H9ebm8qKhIbiSZIOPQ0BB9vnXrFn3+9ttv5Q60ScaamppE9qAG agJ0geQg+qL4wj9QEwBOgR+rUlpaure3R5v0u6SkhCwej4cdtre3Jycnp6en eTMcDvN5MGkZ/fnz57SZk5PDz9riachnn3328uVLdlhdXb1y5UrKhwe2nLkH NVAToAtQEwAuD0rgnNtzc3NdLhf95murotEoO/BUJTU1VarS29vLlrpj+P5H cuPSg4MDviSMJyNNTU18kTCJ1Lt37xLZgxqoCdAFqAkAl8rGxgbNTaTLpSjt BwIBqXRiYoKMGRkZkiUWi9GMJjMzk/2pyO12y3f45s0bXmpn0tLSvvrqK/md 9WfuQQHUBOgC1ASAJECTFL/fv7W1pbgv/iQODw/X19dJd/jpW2pIPpaXl8nh /fv3F9uDBNQE6ALUBACbAzUBugA1AcDm4L5FoAtQEwBsDkQE6ALUBACbAzUB ugA1AcDmQE2ALkBNALA5UBOgC1ATAGwO1AToAtQEAJsDNQG6ADUBwOZATYAu QE0AsDlQE6ALUBMAbA7UBOgC1AQAm4N74YEuQE0AsDkQEaALUBMAbA7UBOgC 1AQAmwM1AboANQHA5kBNgC5ATQCwOVAToAtQEwBsDtQE6ALUBACbAzUBugA1 AcDmQE2ALkBNALA5uHsR6ALUBACbAxEBugA1AcDmQE2ALkBNALA5UBOgC1AT AGwO1AToAtQEAJsDNQG6ADUBwOZATYAuQE0AsDlQE6ALUBMAbA7UBOgC1AQA m4O7F4EuQE0AuGx8Pl97e3tTU5Pb7V5YWDjTf3d3t7+/v6Wlpa2tbWRkJBQK KRyCweCjR4/u3r17586d3t7etbU1eSn5P4nH5uZm3OYgIkAXoCYAXCp9fX0p n0JKcYo/aYHD4ZD7FxQUyIWA9CU9PV3ukJqaKt/nixcvUuIxPT0dt0WoCdAF qAkAl0cgEKDMT9mepgY0g/B4PJzYZ2dnT6ricrnIoby8fGlpaX5+3ul00mZF RQWXvnz5kqWktrZ2fHychOP27du8z8XFRfZ5+PAhbZaWlj74lPX19bgtQk2A LkBNALg8ampqKFd3dnZKFsrqZKmvr4/rv7CwQKVpaWk7OztsoQ8sHysrK7T5 6NEj+pyTkxONRtnh8PAwPz+fjF9//TVbWF+Gh4cTDBJqAnQBagLAJRGJRGhW Qrl6dXVVMtIMhc9N7e/vq6v09PRQaUNDg9zY2NhIxq6urqNjMbp+/Tr9ljtQ ETmQiPBmbm4ubS4vLycYJ9QE6ALUBIBLgmYTLByxWExu57lG3GxPcxYq6uvr kxv7+/vJWFdXd1JDVVVV5EBKdHS8gs8nvh4/fkx7Kysru3v37tTU1ClxQk2A LkBNALgkfD4fJWqHw6Gw8yJ73KUT1gXFSSralC+dKOBS0iyWp/n5+bhL8G1t bSfFCTUBugA1AeCSmJmZoUSdl5ensBcXF5M97nyBphJUNDo6Kjd6vV4yOp1O tT/thE+mSee+nj59yvLxzTff0OTI7/e3trayZWxsLG6cUBOgC1ATAC6Jubk5 StT5+fkKO+kL2Ulr1FUqKyvVaZ/EhYwkNApnmpWwlNTX179//56NwWCQqisu Bm5oaCC36urquHGqJzLnOkwAGKgJAJdEIBCgzJyVlaWwk0V+Qa+c5uZmKhoc HJQbBwYG+JJguZHX64mWlpZ3796dHsnk5CR5Xrt2LW4p5APoAtQEgEsiFApx wo9EIpLx4OCAjTSJUFfp6Oigou7ubrmRNsnY2trKm7FYrL29nXdCRYol/rdv 3/r9fvotN/I5N6gJuFSgJgBcHrzg7vV6Jcv4+DhZsrOz4/rzknpRUZHcWFhY SMahoSHevHfvHi+7j4yMqPdw8+ZNKm1sbJQbeSJTVVUVt1GoCdAFqAkAlwc/ VqW0tHRvb4826XdJSQlZPB4PO2xvb09OTkrLHOFwmM+DSQvxz58/59sV+Wld vBZDPHv2LPoph4eH5CDdbi9dgUwfMjMzT7mfEWoCdEG7mmj5EX30AFwuJAGs Drm5uS6Xi+8rdDqd0p3sPFWhiYZUpbe3ly11x/A6O7lx6Y0bN+JeAEzcunWL HPb39wsKCthSXV3d1NTEt7fU1NRIjSqAmgBd0K4mmNcAcAobGxs0N5FyPs1N AoGAVDoxMUHGjIwMyRKLxWhGw7MJLnK73VxEs4+0tLTT1YTY3NwkEZHsV69e 7ejoOElKjqAmQCegJgAkAZqk+P3+ra0txaL5SZBwrK+vk+6Ew+GLtUgVqfqr V6/4DNgpQE2ALkBNALA5UBOgC1ATAGyO/HSZ6FiAiYGaAGBzICJAF6AmANgc qAnQBagJADYHagJ0AWoCgM2BmgBG4/2DUBMAbA7UBDAC5QBqAoAFgJoABmoC ANAC1AQwUBMAgBagJoCBmgAAtIC7FwEDNQEAaAEiAhioCQBAC1ATwEBNAABa gJoABmoCANAC1AQwUBMAgBagJoCBmgAAtAA1AQzUBACgBagJYKAmAAAtQE0A AzUBAGgBagIYqAkAQAu4Fx4wUBMAgBYgIoCBmgAAtAA1AQzUBACgBagJYKAm AAAtQE0AAzUBAGgBagIYqAkAQAtQE8BATQAAWoCaWAnKq1p+oCYAgAsDNbES GnMy1AQAcGFw96KVgJoAYGF8Pl97e3tTU5Pb7V5YWDjTf3d3t7+/v6Wlpa2t bWRkJBQKKRyCweCjR4/u3r17586d3t7etbW18+5BDkTESkBNALAqfX19KZ9C ef4Uf8r8DodD7l9QULC5uSk5kDqkp6fLHVJTU+X7PHMPCqAmVgJqAoAlCQQC lPkp2z958oRmEB6Ph9P77OzsSVVcLhc5lJeXLy0tzc/PO51O2qyoqODSly9f spTU1taOj4+/ePHi9u3bvM/FxcVE9qAGamIlbKsmGn9E/98AOIOamhrK1Z2d nZLlwYMHZKmvr4/rv7CwQKVpaWk7OztsoQ8sHysrK7T56NEj+pyTkxONRtnh 8PAwPz+fjF9//XUie1ADNbEStlUTjU2L/r8BcBqRSIRmJZSrV1dXJSPNUPjc 1P7+vrpKT08PlTY0NMiNjY2NZOzq6jo6FqPr16/Tb7kDFZEDTVIS2YMaqImV gJpATYD1oLkAC0csFpPbeaawvLysrkJzFirq6+uTG/v7+8lYV1d3UkNVVVXk QDpysT1ATawE1ARqAqyHz+ejRO1wOBR2XiKPu3TCujA8PCw30uYpCx9cSprF 8nSBPUBNrATUBGoCrMfMzAwl6ry8PIW9uLiY7FNTU+oqZWVlVDQ6Oio3er1e MjqdTrU/7YRPpknnvs67hyOoibWAmkBNgPWYm5ujRJ2fn6+wk76QnbRGXaWy spKKxsbG5EaSBjKSTCicacbBUlJfX//+/fsL7IFJUXGuwwSGAmoCNQHWIxAI UGbOyspS2Mkiv6BXTnNzMxUNDg7KjQMDA3xJsNzIq+1ES0vLu3fvLrAHCciH lYCaQE2A9QiFQpzwI5GIZDw4OGBjMBhUV+no6KCi7u5uuZE2ydja2sqbsVis vb2dd0JFiiX+RPagAGpiJaAmUBNgSXjB3ev1Spbx8XGyZGdnx/Xn5fKioiK5 sbCwkIxDQ0O8ee/ePV52HxkZudgeFEBNrATUBGoCLAk/VqW0tHRvb4826XdJ SQlZPB4PO2xvb09OTk5PT/NmOBzm82DSMvrz58/5dkV+1havxRDPnj2Lfsrh 4WEie1ADNbESUBOoCbAklMA5t+fm5rpcLvrN11ZJd7LzVIUmGlKV3t5ettQd w+vs5MalN27cUC+aM7du3UpkD2qgJlYCagI1AVZlY2OD5iZSzqe5SSAQkEon JibImJGRIVlisRjNaDIzM9mfitxuNxfR7CMtLe1MNTllD3GBmlgJqAnUBFgb mqT4/f6trS3FovlJkHCsr6+T7oTD4Yu1mPgeoCZWAmoCNQFAFFATKwE1gZoA IAr56TLRsQCtQE2gJgCIAiJiJaAmUBMARAE1sRJQE6gJAKKAmlgJqAnUBABR QE2sBNQEagKAKKAmVgJqAjUBQBRQEysBNYGaACAKqImVgJpATQAQBdTESkBN oCYAiAJ3L1oJqAnUBABRQESsBNQEagKAKKAmVgJqAjUBQBRQEysBNYGaACAK qImVgJpATQAQBdTESkBNoCYAiAJqYiWgJlATAEQBNbESUBOoCQCigJpYCagJ 1AQAUeDuRSsBNYGaACAKiIiVgJpATQAQBdTESkBNoCYAiAJqYiWgJlATAEQB NbESUBOoCQCigJpYCagJ1AQAUUBNrATUBGoCgCigJlYCagI1AUAUUBMrATW5 WHWNP6L/7QAYAty9aCWgJkKqi/63A2AIICJWwtQ52YxNQ01AMvH5fO3t7U1N TW63e2Fh4Uz/3d3d/v7+lpaWtra2kZGRUCh0kufTp08bGhrIX24k/yfx2Nzc jLsTqImVMHVONmPTUBOQNPr6+lI+hZTiFH/SAofDIfcvKCiIKwQTExPs8Pr1 a7n9xYsXKfGYnp6O2yLUxEqYOiebsWmoCUgOgUAgPT09NTWVpgZra2sej4cT ++zs7ElVXC4XOZSXly8tLc3PzzudTtqsqKiQ+8RiseHh4czMzLhq8vDhQzKW lpY++JT19fW4LUJNrISpc7IZm4aagORQU1NDubqzs1OyUFYnS319fVz/hYUF Kk1LS9vZ2WELfSA9IuPKygpbgsEg71ZCoSa3b98mI8lNgkFCTayEqXOyGZuG moAkEIlEaFZCuXp1dVUy0gyFLGTf399XV+np6aHShoYGubGxsZGMXV1dvMmn zjIyMoaGhlhoFGqSm5tLxuXl5QTjhJoYCu1Xq5o3J5uxaagJSAI0m2DhiMVi cjtLQNxsT3MWKiK9kBv7+/vJWFdXx5vff//9/fv3eSWFNEWhJru7uzxhefz4 Me2trKzs7t27U1NTp8QJNTEUds7JZmw6CjUBl4/P56NE7XA4FHZeZI+7dFJV VaU+SUWb6qUTRj03mZ+fj7sE39bWdlKcUBNDYeecbMamo1ATcPnMzMxQos7L y1PYi4uLyR53vkBTCSoaHR2VG71eLxmdTqfaX60mT58+Zfn45ptvaHLk9/tb W1vZMjY2FjdOqImhsHNONmPTUagJuHzm5uYoUefn5yvspC9kJ61RV6msrFSn fRIXMpLQqP3VahIMBqm64mLghoYGcquuro4bp3oik+ABgsvAzjnZjE1HoSbg 8gkEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW1taq/eOuwquZnJwk t2vXrsUthXwYCjvnZDM2HYWagMsnFArxV/1IJCIZDw4O2EiTCHWVjo4OKuru 7pYbaZOMra2tan+1mrx9+9bv99NvuRufc4OamAI752QzNh2FmoCkwAvuXq9X soyPj5MlOzs7rj8vuBcVFcmNhYWFZBwaGlL7q9Xk5s2bZGlsbJS78YXHVVVV cRuFmhgKO+dkMzYdhZqApMD3hpSWlu7t7dEm/S4pKSGLx+Nhh+3t7cnJSWmZ IxwO83kwaSH++fPntJmTkxP3aV1qNZFut5euQKYPfNf8SfczQk0MhZ1zshmb jkJNQFIgCWB1yM3NdblcfF+h0+mMRqPswFOV1NRUqUpvby9b6o7h+x/JLe7+ 1Wqyv79fUFDAglJdXd3U1MQ+NTU1UqMKoCaGws452YxNR6EmIFlsbGzQ3ES6 XIrmJoFAQCrlJzdmZGRIllgsRjMa6RlcVOR2u0/a+ZUrV8iHJjhy4+bmJomI 1OLVq1c7OjpOkpIjqInBsHNONmPTUagJSC40SfH7/VtbW4r74k/i8PBwfX2d dCccDl+sRapI1V+9ekW7Ot0TamIo7JyTzdh0FGoCwAegJobCzjnZjE1HoSYA fAD3LRoKO+dkMzYdhZoA8AGIiKGwc042Y9NRqAkAH4CaGAo752QzNh2FmgDw AaiJobBzTjZj01GoCQAfgJoYCjvnZDM2HYWaAPABqImhsHNONmPTUagJAB+A mhgKO+dkMzYdhZoA8AGoiaGwc042Y9NRqAkAH4CaGAo752QzNh2FmgDwAdy9 aCjsnJPN2HQUagLAByAihsLOOdmMTUehJgB8AGpiKOyck83YdBRqAsAHoCaG ws452YxNR6EmAHwAamIo7JyTzdg0V9fyI7rHAaAbUBNDYeecbMamtUcuuscB oBtQE0OBnGyuprVHLrrHAaAbUBNDgZxsrqa1Ry66xwGgG1ATQ4GcbK6mtUcu uscBoBu4e9FQICebq2ntkYvucQDoBkTEUCAnm6tp7ZGL7nEA6AbUxFAgJ5ur ae2Ri+5xAOgG1MRQICebq2ntkYvucQDoBtTEUCAnm6tp7ZGL7nEA6AbUxFAg J5urae2Ri+5xAOgG1MRQICebq2ntkYvucQDoBtTEUCAnm6tp7ZGL7nEA6AbU xFAgJ5urae2Ri+5xAOgG7l40FMjJ5mpae+SiexwwEz6fr729vampye12Lyws nOm/u7vb39/f0tLS1tY2MjISCoVO8nz69GlDQwP5X3gPR5ibGAzkZHM1rT1y 0T0OmIa+vr6UT6E8f4o/ZX6HwyH3Lygo2NzcVHtOTEyww+vXry+2BwZqYiiQ k83VtPbIRfc4YA4CgUB6enpqauqTJ0/W1tY8Hg+n99nZ2ZOquFwucigvL19a Wpqfn3c6nbRZUVEh94nFYsPDw5mZmXHVJJE9yIGaGArkZHM1rT1y0T0OmIOa mhrK1Z2dnZLlwYMHZKmvr4/rv7CwQKVpaWk7OztsoQ+kR2RcWVlhSzAY5N1K yNUkkT0ogJoYCuRkczWtPXLRPQ6YgEgkQrMSytWrq6uSkWYoZCH7/v6+ukpP Tw+VNjQ0yI2NjY1k7Orq4k0+dZaRkTE0NMQyIVeTRPagAGpiKJCTzdW09shF 9zhgAmguwMIRi8XkdpaA5eVldRWas1AR6YXc2N/fT8a6ujre/P777+/fv8/r IKQpCjVJZA8KoCaGAjnZXE1rj1x0jwMmwOfzUaJ2OBwKOy+Rx106qaqqoqLh 4WG5kTZPWvhQz03Ou4cjqInBQE42V9PaIxfd44AJmJmZoUSdl5ensBcXF5N9 ampKXaWsrIyKRkdH5Uav10tGp9Op9leryXn3cAQ1MRjIyeZqWnvkonscMAFz c3OUqPPz8xV20heyk9aoq1RWVlLR2NiY3EjSQEaSCbW/Wk3Ou4ejT+9exD2M wkFONlfT2iMX3eOACQgEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW 1taq/dVqct49HGFuYjCQk83VtPbIRfc4YAJCoRB/1Y9EIpLx4OCAjcFgUF2l o6ODirq7u+VG2iRja2ur2l+tJufdwxHUxGAgJ5urae2Ri+5xwBzwgrvX65Us 4+PjZMnOzo7rz8vlRUVFcmNhYSEZh4aG1P5qNTnvHo6gJgYDOdlcTWuPXHSP A+aA7w0pLS3d29ujTfpdUlJCFo/Hww7b29uTk5PT09O8GQ6H+TyYtIz+/Plz 2szJyYn7rC21mpx3D0dQE4OBnGyuprVHLrrHAXNACZxze25ursvlot98bVU0 GmUHnqqkpqZKVXp7e9lSdwzf/0hucfevVpPz7uEIamIwkJPN1bT2yEX3OGAa NjY2aG4iXS5Fc5NAICCV8pMbMzIyJEssFqMZjfQMLipyu90n7fzKlSvkQxMc ufFceziCmhgM5GRzNa09ctE9DpgMmqT4/f6trS3FffEncXh4uL6+TroTDocv 1mLie4CaGArkZHM1rT1y0T0OAN2AmhgK5GRzNa09ctE9DgDdwH2LhgI52VxN a49cdI8DQDcgIoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1x0jwNAN6AmhgI5 2VxNa49cdI8DQDegJoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1x0jwNAN6Am hgI52VxNa49cdI8DQDegJoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1zjj+gO C8BHoCaGAjnZXE0Lj1x0hwXgI7gX3lCYOrMh8uQ3LbrDAvARiIihMHVmQ+TJ b1p0hwXgI1ATQ2HqzIbIk9+06A4LwEegJobC1JkNkSe/adEdFoCPQE0Mhakz GyJPftOiOywAH4GaGApTZzZEnvymRXdYAD4CNTEUps5siDz5TYvusAB8BGpi KEyd2RB58psW3WEB+AjUxFCYOrMh8uQ3LbrDAvAR3L1oKEyd2RB58psW3WEB +AhExFCYOrMh8uQ3LbrDAvARqImhMHVmQ+TJb1p0hwXgI1ATffmN5qfCmjez IfLkNy26vwPwEaiJvtg5syHy5Dctur8D8BGoib7YObMh8uQ3Lbq/A/ARqIm+ 2DmzIfLkNy26vwPwEaiJvtg5syHy5Dctur8D8BGoib7YObMh8uQ3Lbq/A/AR 3L2owLwXZQnPbIg8+U2LHi4gqfh8vvb29qamJrfbvbCwcKb/7u5uf39/S0tL W1vbyMhIKBQ6lwNtPonH5uZm3OYgIgrMm5qEZzZEnvymRQ8XkDz6+vpSPoWE 4BR/0gKHwyH3LygokAvBmQ4vXrxIicf09HTcFqEmCsybmoRnNkSe/KZFDxeQ JAKBQHp6empqKk0N1tbWPB4PJ/bZ2dmTqrhcLnIoLy9fWlqan593Op20WVFR kbjDw4cPyVJaWvrgU9bX1+O2CDVRYN7UJDyzIfLkNy16uIAkUVNTQ7m6s7NT slBWJ0t9fX1c/4WFBSpNS0vb2dlhC30gPSLjyspKIg7E7du3aXN4eDjBIKEm CsybmoRnNkSe/KZFDxeQDCKRCM1KKFevrq5KRpqhkIXs+/v76io9PT1U2tDQ IDc2NjaSsaurKxEHIjc3lzaXl5cTjBNqosC8qUl4ZkPkyW9a9HAByYAmCywc sVhMbuepRNxsT3MWKurr65Mb+/v7yVhXV5eIw+7uLp9Me/z4MTmXlZXdvXt3 amrqlDihJgrMm5qEZzZEnvymRQ8XkAx8Ph8laofDobDzGnrcpZOqqir1SSra lFZGznSYn5+PuwTf1tZ2UpxQEwXmTU3CMxsiT37ToocLSAYzMzOUqPPy8hT2 4uJissedL9BUgopGR0flRq/XS0an05mIw9OnT1k+vvnmG5oc+f3+1tZWtoyN jcWNE2qiwLypSXhmQ+TJb1r0cAHJYG5ujhJ1fn6+wk76QnbSGnWVyspKddon 7SAj6UgiDsFgkEoVFwM3NDSQQ3V1ddw41ROZ8x+rpTBvahKe2RB58psWPVxA MggEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW1tYm4hCXyclJcrh2 7VrcUsiHAvOmJuGZDZEnv2nRwwUkg1AoxF/1I5GIZDw4OGAjTSLUVTo6Oqio u7tbbqRNMra2tibi8PbtW7/fT7/lDnzODWqSIOZNTcIzGyJPftOihwtIErzg 7vV6Jcv4+DhZsrOz4/rzenpRUZHcWFhYSMahoaFEHG7evEmfGxsb5Q58XXFV VVXcRqEmCsybmoRnNkSe/KZFDxeQJPixKqWlpXt7e7RJv0tKSsji8XjYYXt7 e3JyUlrmCIfDfB5MWmd//vw5bebk5PDDuM50kG63l65Apg+ZmZnqK8EkoCYK zJuahGc2RJ78pjX+iB5tIFEow3Pyz83NdblcfF+h0+mMRqPswFOV1NRUqUpv by9b6o7h+x/JLUGH/f39goICFpTq6uqmpia+vaWmpkZqVAHURIF5U5PwzIbI TdR0FFMbs7GxsUFzE+lyKZqbBAIBqXRiYoKMGRkZkiUWi9GMhmcTXOR2u+U7 PNNhc3OTRERq8erVqx0dHSdJyZFF1UTjFzaTpiazZzYzNm32yEWPVHBuaJLi 9/u3trYU98WfxOHh4fr6OulOOBy+mAPZqfTVq1fkeXpbVlUT8w5wUdURuQ0j Fz1SgaWAmhhtgIuqjshtGLnokQoshSXvWzT1ABdVHZHbMHLRIxVYCiuJiISp B7io6ojchpGLHqnAUkBNjDbARVVH5DaMXPRIBZYCamK0AS6qOiK3YeSiRyqw FFATow1wUdURuQ0jFz1SgaWAmhhtgIuqjshtGLnokQosBdTEaANcVHVEbsPI RY9UYCmgJkYb4KKqI3IbRi56pAJLATUx2gAXVR2R2zBy0SMVWArcvWi0AS6q OiK3YeSiRyqwFFYSEQlTD3BR1RG5DSMXPVKBpYCaGG2Ai6qOyG0YueiRCiwF 1MRoA1xUdURuw8hFj1RgKaAmRhvgoqojchtGLnqkAksBNTHaABdVHZHbMHLR IxVYCqiJ0Qa4qOqI3IaRix6pwFJATYw2wEVVR+Q2jFz0SAWWAmpitAEuqjoi t2HkokcqsBRQE6MNcFHVEbkNIxc9UoGlwL3wRhvgoqojchtGrvFH9EAHxsJK IiJh6gEuqjoiR+TnrS56oANjATUx2ggVVR2RI/LzVhc90IGxgJoYbYSKqo7I Efl5q4se6MBYQE2MNkJFVUfkiPy81UUPdGAsoCZGG6GiqiNyRH7e6qIHOjAW UBOjjVBR1RE5Ij9vddEDHRgLqInRRqio6ogckZ+3Oq4uBnKgJkYboaKqI3JE nswDF50kgP4Y8+5FjV97MMDN1TQit1t17QNcdIoSg8/na29vb2pqcrvdCwsL Z/rv7u729/e3tLS0tbWNjIyEQiHdHeQYSkQkMMBx4KZo2raRCz9w0SlKAH19 fSmfQnn+FH/K/A6HQ+5fUFCwubmpo4MCqIlxhpjY6ogckZvowEWnqGQTCATS 09NTU1OfPHmytrbm8Xg4vc/Ozp5UxeVykUN5efnS0tL8/LzT6aTNiooKHR0U GFNNKCrz9nMt1XHgpotcS3WB/26zH7joFHVBLpxva2pqqG5nZ6dkefDgAVnq 6+vj+i8sLFBpWlrazs4OW+gD6REZV1ZWdHHQ8eguFSRVHLhZIoeaCDlw0Snq glws30YiEZqVUN3V1VXJSDMUspB9f39fXaWnp4dKGxoa5MbGxkYydnV16eJw rqPTIjQaRUpjZ9NSXWDTYqsjckRuogPXsoIvNrNdoBbNBVg4YrGY3M4zheXl ZXUVmrNQUV9fn9zY399Pxrq6Ol0cznV0UBNbVUfkiNw+By4ws12gls/no4oO h0Nh5yXyuEsnVVVVVDQ8PCw30qa08KHdQc3paqJF/TV+ebBtP8eBm6hp20Zu 9gM/LXefipBp0czMDFXMy8tT2IuL//1Ypqam1FXKysqoaHR0VG70er1kdDqd ujioOV1NzNtbzNg0Dtx0Tds2crMf+Gm5+1SEND03N0cV8/PzFXbSF7KT1qir VFZWUtHY2JjcSNJARpIJXRzUfxkAAABG4CQ1CQQCVJqVlaWwk4Xsi4uL6irN zc1UNDg4KDcODAyQsba2VheHuIJy0iEAAAAQTigUYrmJRCKS8eDggI3BYFBd paOjg4q6u7vlRtokY2trqy4OaqAmAABgcHjB3ev1Spbx8XGyZGdnx/Xn5fKi oiK5sbCwkIxDQ0O6OKiBmgAAgMHhx6qUlpbu7e3RJv0uKSkhi8fjYYft7e3J ycnp6WneDIfDfB5MWkZ//vw5bebk5PCztrQ7qIGaAACAwaEEzrk9NzfX5XLR 75Tja6ui0Sg78FQlNTVVqtLb28uWumP4/kdy09FBAdQEAACMz8bGBs1NpCV7 mpsEAgGpdGJigowZGRmSJRaL0YwmMzOT/anI7XbLd6jdQQHUBAAAzAJNUvx+ /9bWluK++JM4PDxcX18n3QmHw5fkAAAAAAAAAAAAAAAA0M6bN29u374d96Ll qampjo6OxsbGzs7OFy9eqB3O+y5LIxAMBh89enT37t07d+709vaura0pHBJ5 XaYlD1yXv4zRODw8/OGHH7gbf/XVVxT2+/fvT3KmI2ptbf36668Vdqse+KtX rx4/fkzHRUf99OlT9al4M/bzRA7ckplNOJFIhJ8n9oc//EFup/8IPzxfDlnI Lvmc912WRoC6Fj84WiI1NVUediKvy7TkgevylzEa0o0AcgoLC1+/fh3Xn7IH OVy/fl1utOqBj42NSRcIMXTg9N1ScjBjPz/zwK2a2YRDI+K3v/0t/7kUavL9 999zPunp6VlcXKTfnGr+/Oc/s8MF3mUpnJcvX/JR1NbWjo+P03cSmpRx2NLT dc58XaYlD1yXv4wBoXkWBXnt2rVvv/2WDoT+WZ9//nnKCY82+utf/yolVbnd kgdOsxK+YYFmJeRAE5Pf/OY3tEn/d3YwYz8/SuDALZnZhEN/vStXrkjiq1CT hoYGMtJXNcly584dsty6dYs3z/suSyPw6NGjlOO7R6WbjOgLSX5+Phn55EYi r8u05IHr8pcxGu/evcvIyKAIBwYGJCM/dpXY3d2VO//jH/+QhoNcTax64DTe 6TN9mZS+k09NTaUc38VA1Y/M2c8TOXBLZjbh8DeTqqqq+/fvq9WEX/UlN/IT xqqrq48u9C5LI0C9ghIF/ZYbu7q6pK9kZ74u06oHrv0vY0Do63dxcXF2drYk BEeyp/P5/X7JSBrKT/zmb7ZyNbHkgVM3ZkGUP6KQZGV6eprmX7FYzKT9PJH/ uCUzm3BIR8bHx6kLfffdd2o1oZlLyvFTl//2t78dHb+8kieMfP7wAu+yNCz8 UjNKGkcJvC7Tqgd+psMFXiRqTPjlFPQflD8A9uHDh3wyhP+/cjWx5IFvbGyk HL+hg77Mz8zMUDolZZycnJTmKVbq54r/uH0ymxD+9Kc/qdUkHA63tbWxpvMT aQiaA/7yyy9HF3qXpTHhJ3NS5+F+cubrMq164Gc6XOBFogZkb2+PX5Ann2tQ VqHDpE7++vVr+kaqUBNLHjifvisrK+OzOhL0/dxiA1z9H7dJZhNFXDV5+/Yt n2CU8+DBAz6neoF3WRoQipNntdIZnjNfl2nVAz/T4QIvEjUalEYoW1LAn332 mXTlEhkLCgrI+MMPP9CmWk0seeBjY2PSoG5tbR0fH3e73bzi4HK5jqzSz+P+ x+2Q2QQSV01+97vfpRxfCUliHQqF6Dc/S//mzZtHF3qXpdGgr5ecMOvr66XL 0c98XaZVD/xMh/O+SNRoUA5hXaCcSZ1ZsvNi9J07d3hTrSaWPHDp6jX525f4 FBBBczQL9POT/uOWz2xiUasJTQ/T0tIopcifirmxscEnD3d2di7wLktDwUur REtLC38nYc58XaZVD/xMhwu8SNQ4UNflZ4bTv0n+P+LTGinHlwCNHsMLKPRV lj7/9NNPRxY98NnZWT5wPr3D0LjmbxFUavZ+ftKBWz6zCUetJtPT02T5/PPP FZ58WxB9T7vAuywNQiwWa29vl76YKdbaznxdplUP/EyHC7xI1CD8/e9/55Pe lF5evnwpL+Llj5O4cePGkUUPnHMmobj5nb+lT01NmbefH5164BbObAZBrSZL S0tkIb2W/0kPDw+vX79Odn6h2HnfZWkQ7t27l3K8uDwyMqIuTeR1mZY88DMd LvAiUSNAafPatWspx2el3r59qyj9+eefOz+FZyIZGRn0+cmTJ0cWPXASEV4l kS8rk5HvuNne3j4ybT8//cAtnNkMglpNqF9dvXqVjG1tbdJ3VL4qkv4RfC33 me+yNCB8UpR49uxZ9FP42shEXpdpyQPX5S9jNKjr8hVZX3zxBQWpOK64VdTr JlY9cJ5z5eXl8ckuaWYqLRmYsZ+feeBWzWzGIe4q/F/+8hdOL/Q17Pe//z2v RRKPHz9mhzPfZWlAbty4cdJpDelO2DNfl2nJA9flL2M0+Obuk+DbDRSo1eTI ogf++vVrEsSU44eQfPnll+Xl5SnHkzJpacCM/TyRA7dkZjMO9GekP9e9e/cU 9omJCZ4AMjQBpG9lcofT32VpNOg7dlpa2kk9TcqZibwu02IHruNfxlBIT1iK y88//6yuwnc9Ky4QteqBv3nzpra2lsWRu/GPP/4o34+5+vlRwgduscxmIra3 t/1+v/zJogrO+y5LU5DI6zIteeBnYtsXiVr1wCORCGmo/FEkCqzaz+2Z2QAA AAAAAAAAAAAAAAAAAAAAAABD8f8BTqQkrQ== "], {{0, 319}, {538, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538, 319}, PlotRange->{{0, 538}, {0, 319}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771182836120946*^9, {3.771240118109858*^9, 3.771240130941201*^9}}, CellLabel->"Out[384]=", CellID->1692650378] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dist", "=", RowBox[{"FindDistribution", "[", RowBox[{"samp", ",", RowBox[{"TargetFunctions", "\[Rule]", RowBox[{"{", "NormalDistribution", "}"}]}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771182277292694*^9, 3.771182323301115*^9}, { 3.771240135315916*^9, 3.771240138045678*^9}}, CellLabel->"In[385]:=", CellID->894430390], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"218.5790176099509`", ",", "15.169424506331676`"}], "]"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.771182287975947*^9, 3.771182324026404*^9}, { 3.771182432342288*^9, 3.7711824418009443`*^9}, 3.771240138490991*^9}, CellLabel->"Out[385]=", CellID->402214425] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"samp", ",", "Automatic", ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"dist", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711823270217237`*^9, 3.7711823532935667`*^9}, { 3.771240144195161*^9, 3.771240149048267*^9}}, CellLabel->"In[388]:=", CellID->673970004], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvedTG9+/5/nb2Sf7cB7Ps/0vtu7cvffO1K3amrs7s1V3UtU++No4EG1j gv0lGQQimWQyBoGxiSYKEJhogk0SCDAGvoCxAWGBMRkLECKI/eAjjtutgACh Dvq8qkul/vQ53afD+bz79En/+y3vf3X9N3/729/8/jf4+VeXP/+Dr69L4H/9 t7Dy3x/4ebg9uHvnPz3wv+t21/f/uPW/gvEf/5e//e3fQfjT/ycIgiAI4jS4 urpynQQEQRBE8KCaIAiCIFcH1QRBEAS5Oq4MuE4LgiAIYpGJiYni4uLMzEy5 XD41NXVu+J2dnYaGhpycnPz8/K6uLq1WywqwvLxcXV2dlZUFu1UqlXt7exfd AxMUEQRBEP5TX1/v+jvg562EB8/v5+fHDB8cHLy6ukoD9PX1eXh4MAOEh4dv bW3ZvgcWqCYIgiA8R6PRgOd3c3Nrbm5eWFhQKBTEvY+NjVmKIpPJIEBUVNTM zMzk5KREIoHV6OhosnVlZcXT0xMsaWlpsJPe3t7Q0FBYTUpKsnEPpqCaIAiC 8Jz4+Hjw1aWlpdRSVlYGltTUVLPhp6amYKu7u/v29jaxwB9SEpmbm4NVKNfA fx8fH71eTwJ8/PgRLBBGp9PZsgdTUE0QBEH4DDh8KJWAr56fn6dGKKGABeym lR1AdXU1KXcwjRkZGWCsqKg4+SkWlZWV3d3ddOuPHz9IeWd9fd2WPZiCaoIg CMJnoCxAhMNgMDDtpKQwOztrGgXKLLCpvr6eaSTlkZSUFNPwIEmvXr2CraGh oZfbwwmqCYIgCL+ZmJgAR+3n58eykypys1UnsbGxsKmzs5NphFXTio+VlZX4 +HgiTLDDmZmZi+6BgmqCIAjCZ0ZHR8FRBwYGsuyk3nxoaMg0SmRkJGzq7e1l GgcGBsAokUiYxg8fPtAmW/7+/lSbbN8DBdUEQRCEz4yPj4OjDgoKYtlBX8AO WmMaJSYmBjb19fUxjSANYASZYBoPDg5WV1eh+PP8+XOiKXC4C+2B4mrCJU4W QRAEuSY0Gg14Zm9vb5YdLGCfnp42jZKVlQWb2tramMbW1lYwJiYmWjpQWFgY BCgsLLzcHlA+EARB+IxWqyWv+rQ1L7C/v0+MKysrplFKSkpgU2VlJdMIq2DM y8uD/1AeGRsb29jYYAZobGyEACEhIbbswRRUE8QuPLr5d1dcuD4DBOEvpMJ9 YGCAWpRKJekwYjY8qS5/8uQJ0wgyAcb29nb4n5ycDP+rqqqYAWAVjPHx8bbs wRRUE8QugBwcDYdeekE1QRArkGFVpFLp7u4urMJvREQEWBQKBQmwubmpUqlG RkbIqk6nI9/BaDV6T08PrPr6+pKxtkgx5MGDB4uLiyTA/Pz8vXv3XM8GbDl3 D6agmiB2AdUEQa4PcODEtwcEBMhkMvglbauOjo5IAFJUcXNzo1FqamqIJeUn pP8jBCNb9/f3SZMwUhjJzMwkjYRBpA4ODmzZgymoJohdQDVBkGtleXkZyia0 uRS4fY1GQ7cODg6C0dPTk1oMBgOUaLy8vEh42CSXy5k73NjYIFXtBHd396Ki ImbP+nP3wALVBLELqCYI4gCgkKJWq9fW1lj94i1xfHy8tLQEukNG3zIF5GN2 dhYCHB4eXm4PFFQTxC6gmiCIk4NqgtgFVBMEcXKw3yJiF1BNEMTJQRFB7AKq CYI4OagmiF1ANUEQJwfVBLELqCYI4uSgmiB2AdUEQZwcVBPELqCaIIiTg2qC 2AVUEwRxclBNELuAaoIgTg6qCWIXUE0QxMlBNUHsAqoJgjg52BcesQuoJgji 5KCIIHYB1QRBnBxUE8QuoJogiJODaoLYBVQTBHFyUE0Qu4BqgiBODqoJYhdQ TRDEyUE1QewCqgmCODmoJohdQDVBECcH1QSxC6gmCOLkYO9FxC6gmiCIk4Mi gtgFVBMEcXJQTRC7gGqCIE4OqgliF1BNEMTJQTVB7AKqCYI4OagmiF2wRU2+ d0eONie8q01tq05vr0lTNjz70hGrGwxDNUEQEYBqgtgFS2oCYtFXn5whe+UV U/NHeIPp4hKhCE997eHt/31jl+uTQBDk8qCaIHbBVE3mO2Ni0ks8omvNiojZ Ja5IOf5lletTQRDkMqCaIHaBqSbb/RJpaukf4fWmenEnsu5xQmVoclnws/L7 sXKzmhLzqk/9bZvrE0IQ5GJg70XELlA1GWtJ8IuvYqrDjfD6+Kzidnna4vuo w6Hfyi9aZfiHpsSCgrybT17/FiWioaT5L/3hEdenhSA8YmJiori4ODMzUy6X T01NnRt+Z2enoaEhJycnPz+/q6tLq9WyAqysrNTV1eXm5mZnZ9fU1CwsLDC3 Qvhmc6yumv+AgCKC2AVQE70qtKRI9nuRpD485fW37shzK+j9b/575cRSyPN3 TE0JzOxaXGU//wjinNTX17v+DiiFlfCgBX5+fszwwcHBTCEAffHw8GAGcHNz Y+5zeHjY1RwjIyNmj4hqgtgFv1v/HJVeytSCsOSy+c6YC7UQNhgM3aOa+wmt dCd3o5v6x5e4PjkE4RiNRgOeH7w9FA2gBKFQKIhjHxsbsxRFJpNBgKioqJmZ mcnJSYlEAqvR0dFk6+LiIpGSxMREpVIJwpGenk72OT09TcLU1tbCqlQqLfud pSXzWRLVBLk6mpUfN0OKqQR4P63+2Jxw6f4mO7qDrKoRpjDVdM1weHYIwjnx 8fHgq0tLS6kFvDpYUlNTzYafmpqCre7u7tvbxipI+EPkY25uDlbr6urgv6+v 79GR8Xvy8fFxUFAQGF+/fk0sRF86OzttTCSqCXJFPms23Z82U8//NLN4qz/8 6r0Xu4YXbkc20t0WvBmHkgsnJ4gg3KLX66FUAr56fn6eGqGEQr5N7e3tmUap rq6GrWlpaUxjRkYGGCsqKk5+itHjx4/hlxkANkEAEBGyGhAQAKuzs7M2phPV BLkK0+p115hfUlJaJDsYupiOWOkLP7u4dT+xje5cVjuKgoI4IVCaIMLBev5J WcOst4cyC2yqr69nGhsaGsCYkpJi6UCxsbEQAJTo5GcNPvnw1dTUBHuLjIzM zc0dGhqykk5UE+TSzCxs3I1uMnp7SX1LdbrdR1ZZ29p7lNZJBaWwcdzB54gg nDMxMQGO2s/Pj2Unlexmq06ILrA+UsEqs+qEBdkKmkXkaXJy0mwVfH5+vqV0 opogl0O9vO0e20wb9N6753ZpKbGiJsD2zn5Q1q+2XlUd0448TQThnNHRUXDU gYGBLHtoaCjYzZYXoCgBm3p7e5nGgYEBMEokEtPwsBPyMY1++2ppaSHyUV5e DoUjtVqdl5dHLH19fWbTiWqCXILNHzrvpLdn3Ukaej9qrnXUxy3t/qO0Dioo jX22fshFEBEwPj4OjjooKIhlB30BO2iNaZSYmBhTtw/iAkYQGlZgKJUQKUlN TT08PCTGlZUViM5qDJyWlgbB4uLizKbTtCBzodNEnBD9wVFoTjf17R1D6pPr H0N4bWvv4bO39KADE9hsGHEWNBoNeGZvb2+WHSzMBr1MsrKyYFNbWxvT2Nra SpoEM42kvh7Iyck5ODiwnhKVSgUhHz58aHYrygdyIQwGQ1rFEPXqle3GJ9kB I9IvrWq94o1dUe5ENc4vbV3zuSIIL9BqtcTh6/V6atzf3ydGKESYRikpKYFN lZWVTCOsgjEvL4+sQl4uLi4mO4FNrCr+ra0ttVoNv0wj+eaGaoLYhaqOaSol 6RVD9Al0zPwmnzWbt6OMzYZ9k9u1u/rz4yCI8CEV7gMDA9SiVCrB4uPjYzY8 qVJ/8uQJ0xgSEgLG9vZ2slpQUECq3bu6ukz3kJSUBFszMjKYRlKQiY2NNXtQ VBPEdkamv//q6i7r1h/8GkfLYbNl9Y4t/hpzuFB5jG2GESeADKsilUp3d08n boDfiIgIsCgUChJgc3NTpVLRag6dTke+g9GK+J6eHtJdkYzWRepigO7u7qPf OT4+hgC0uz1tgQx/vLy8rPRnRDVBbGR1c4/2UvROatvU7jO3Xl1NbF/cfZ9Q QfH09seZthDRAxJA1CEgIEAmk5F+hRKJhPZkJ0UVKGjQKDU1NcSS8hNSzw7B yNbw8HCzDYCB5ORkCLC3txccHEwscXFxmZmZpHtLfHw8PSgLVBPEFuB9JTyv xzi/lfTNp4UNVoCrq4ntgQ+GQumYYDcj6h+6/TdOrgmCOJLl5WUom1CfD2UT jUZDtw4ODoLR09OTWgwGA5RoSGmCbJLL5WQTlD7c3d2tqwmwuroKIkLt9+/f LykpsSQlJ6gmiG1Utk/9aqDb+8U0gCPVBJbVXqlHtHEyR5eQor39c9qiIIg4 gEKKWq1eW1uzcVwIEI6lpSXQHZ1Od7kjQkSI/u3bN/IFzAqoJsi5fNZs3ogw SkliyYDZMA5WE1gG3yRRgcusMj9ENoIgDgPVBLGO/vDoz3Tj2Cb3Elq3d/bN BnO8msDy8lUeFZTesUUHXxkEQZgwP5dxnRaEj5S2/EU99tDksqVgnKiJbjAs MKmCpM3jaQurYQCCII4ERQSxwqeFjRtnUvK82trXJE7UBJbZjtg/JHUkhSll KoddGQRBWKCaIJbQHx7R8XsfJLbt7Fmr6eZKTWDxePiYlp4G//rmsOuDIAgT VBPEEhVvf7XjGpn+bj0wh2rif/Pvg88GGb6f2Larw/ZdCMIBqCYIgdVD0Ofu f6FfkFz9Y23pVMiVmkDcL4xWZwVvcA4UBOEAVBOEwPLn0jRj90CP6JrNvohr lYOrqwmkv6hpgk62ggNCIojjQTVBCEx/3lWbSr9xddamXrcc2EVN9vYP6bS/ 4bk9OOcvgjgYVBOEQP25Vhl+L8bYzRxKKIe2zfPOuZqc/D4gZOfwArfXE0Gc DVQThED9eUmRjA6BNd8Z4wA5sJeaADGv+oyjQca1aPdwvHoEcRzYexEhEH++ 9D7KJUJBHPLLV3mOkQM7qsniitZF+oak/1UDVscjiONAEUEIxJ8/yy4krtg9 unarP1xwanLC6Lx/I6JBs/KDq+uJIM4GqglCAJ881pLwa6DgygyHyYF91WRv //BegnHC3/giJVfXE0GcDVQThOB/8++Czsa8+jOxUq9ynBzYV02AjiE1lcWP n83Mmo0giN1BNUEI9+55/Or53pToSDmwu5ocGwy0dzz8wdl+EcQBoJoggP7g 6OYTY3fFuMxiB8uB3dUEgCIJFcd3I18df0kRxNlANUGA2nczxprr8Au0Cuaz mgBxhUpyUj7Jbw8OLU4/iiCIXUA1QbR7erfYZuJ4s/NeOl4OrklN5r9t0+JJ U/+sg68qgjgbqCYIbVJ7S6pY6YkUjZoAGZXD5NS84lv39g8deVURxNlANXFy Nn7obkc2EpdbXJjLiRxcn5osr+/cjDB2Zqzu/OTIC4sgzgb2hXdyXjWMG2tM wqq3+s8fK1hYagLk148Zx9WPafqxi2OtIMh1gSLizKxt7dFxSDwe/smVHFyr mpwWvqKMha/Slr8cdm0RxNlANXFm8uo+GsdRedrs5/IfRKkmwOvWSXKad6Kx eIIg1wWqidPyfWOXFkxq381wKAfXrSbbO/ugI+RMy9omHXN5EcTZQDVxWnJq PtDB23X6QxGryQmj3ZprTBOOVI8g1wGqiXPybW2HTqTe0PPlxGQmX5GpyZZ2 n9aeVLyduv4LjCBOB6qJc5ItNxZM7iW07h+c9hMXt5oAxWcTx7vGNO/sHVzz BUYQpwPVREyAX7Vl8bnzL39IjFNieT54SO3iVpNNRs+aqo7p674XCOJsoJqI CRt9cs6LfGMP8Zia3QEJ53LgGDUBChuNnWvcY5t3dVg8QRB7gr0XxYQtPnm5 O5LO1asoz+KDHDhMTda3dbfOiidy7BqPCI2JiYni4uLMzEy5XD41dX71387O TkNDQ05OTn5+fldXl1arZQVYWVmpq6vLzc3Nzs6uqalZWFi46B6YoIiICVt8 cv7LF8buitE1O2cFEydRkxNG33/3p817+1g8QQRDfX296++An7cSHjy/n58f M3xwcPDq6ioNAOrg4eHBDODm5sbc57l7YIFqIibO9clrvdJbUmPBRP76OU/k wJFqwuz+X/tu5vruBYLYEY1GA54fvH1zczOUIBQKBXHvY2NjlqLIZDIIEBUV NTMzMzk5KZFIYDU6OppsXVxcJFKSmJioVCqHh4fT09PJPqenp23ZgymoJmLi XJ9cWiQjjtQtqvaHMpwncnB1NbnQ4uYnNQ5NFlrh5/KPFxIjBOGE+Ph48NWl paXUUlZWBpbU1FSz4aempmCru7v79vY2scAfIh9zc3OwWldXB/99fX2PjoxT /xwfHwcFBYHx9evXtuzBFFQTMWHdJ2uV4SAixJG+LpbxRw6uriYXCs+sOaor z0I1QXiOXq+HUgn46vn5eWqEEgr5NrW3t2capbq6GrampaUxjRkZGWCsqKg4 +SlGjx8/hl9mANgEAaCQYsseTEE1ERPW/Sp4TjqPyXqvlD9y4GA1gUWWb2zV 9uCp3P/m33N93xDEGlAWIMJhMBiYdlJSmJ01MxMclFlgU319PdPY0NAAxpSU FEsHio2NhQCgI5fbA6qJmLDiV/dVYQ9i5cSF5ubn80oOHK8mX99F/xFeb+y/ eQ+zAMJrJiYmwFH7+fmx7KSK3GzVCdGFzs5OphFWrVR8kK2gWUSeLrEHVBMx YcWvttek0ZnfF99F8UoOHK8msCQ9LzKW1IJecH3fEMQao6Oj4KgDAwNZ9tDQ ULAPDQ2ZRomMjIRNvb29TOPAwAAYJRKJaXjYCfmYRr99XXQPJ6gm4sKSXz0c Cn2cWEmcZ0pOId/kgBM1+as1ns4aP/7FYqNHBOGc8fFxcNRBQUEsO+gL2EFr TKPExMTApr6+PqYRpAGMIBOswFDiIFKSmpp6eHh4iT0QXE240GkivMKSXx1o eEY956e3T/kmB5yoCSyhyWXkmsQVKbm+dQhiEY1GA57Z29ubZQcLs0Evk6ys LNjU1tbGNLa2tpImwUwjqW0HcnJyDg4OLrEHCsqHmLDkV8NTXxO3GZVeykM5 4EpNehXJVGS/fv/B9d1DEPNotVri8PX6X5Mp7O/vE+PKyopplJKSEthUWVnJ NMIqGPPy8siqwWAoLi4mO4FNrCp+W/bAAtVETJj1q8xPOsONiTyUA67U5GAo 1CeumlwZWY2ZzwUIwhNIhfvAwAC1KJVKsPj4+JgNT6rLnzx5wjSGhISAsb29 nawWFBSQaveurq7L7YEFqomYMOtXE7KM1c1BSRX8lAOu1ASWN5WZ5OK4SN9s ave5voEIYh4yrIpUKt3d3YVV+I2IiACLQqEgATY3N1Uq1cjICFnV6XTkOxit Ru/p6SHdFclYW6QuBuju7j76nePjY1v2YAqqiZgw9avqrhjaFPZdXQo/5YBD NdEOSG6EVeEsWgjPAQdOfHtAQIBMJoNf0raK9mQnRRUoaNAoNTU1xJLyE1LP DsHI1vDwcNNKc0JycrItezAF1URMmPrV53kviat8GFetV/FUDjhUE1jcfUKM w2A+bSEThyEID1leXoayCfX5UDbRaDR06+DgIBg9PT2pxWAwQInGy8uLhIdN crmcbILSh7u7+7lqYmUPZkE1ERMsv7rS82sIkcbKDN7KAbdq4nv7/6LjQLYo 57i+hwhiDSikqNXqtbU1VqW5JUA4lpaWQHd0Ot3ljmj7HlBNxATLrxYV5p4N Pl+7yxh8nm9ywK2aQPTn1SPkQvmndhzblkkRBGGBaiImmH71hzLcNbKOOMnK 0mw+ywHnajL/bZs2exuYWOL6NiKIIGF+LuM6LchVYfrVesYYjxt9EXyWA87V BC5dbEE/uVzheT1c30YEESQoImKC+lW9KvThWU8Ks2M88koO+KAmozMrtHgy s7DB9Z1EEOGBaiImqF/t+dXLu36hK5rncsAHNTEYDIGZXcahzMpUXN9JBBEe qCZigvrVsBTjCFTxWcX8lwM+qAnQNbxwNsxyw/L6Dre3EkEEB6qJmCB+dbIt jn60GW1O4L8c8ERNDg6P7ie0kutW8Gac21uJIIID1URMEL+anF1IXGKg1aFU +CMHPFEToPbdDLl0d6KbtHt6K5caQRAWqCZiAhzj0vuoG2dDqXTWpgpCDvij JqAgd6IaydUDZeHwViKI4EA1ERPgGAsK8owT1MbU7KvCBCEH/FET4FXDOLmA 9xNaD4+OubqVCCI4UE3EhJ/LP9Eei1U29FjkiRzwSk2W13dunNU6dY0scHUr EURwYO9FMeH54OGFeizyRA54pSZASpnKWPGUaWbeBwRBzIIiIhqODYabIcXE Dea8sKnHIk/kgG9q8mlh41ejuBkzE9shCGIKqoloUE1+oz5wvjNGQHLANzUB wnN7yJWMLeh3/K1EECGCaiIaol72EQcYnV4iLDngoZoMTCxRaVZ/23b83UQQ wYFqIg6Yo+Cq3iQJSw54qCbHxwa/lHZyPbPlHxx/QxFEcKCaiANZzShxfX7x VQdDApMDHqoJ0KKco1PGb+GU8QhyHqgmIuDHrv52ZKONcyzyUA74qSY6/aFb bDO5qtWdnxx8TxFEcKCaiAA6HsiNsGqtMlxwcsBPNQGKmyawJyOC2AiqidA5 Oj72TmojTs/N95zpevkpB7xVk+8bu7QnY/eoxpG3FUEEB/ZeFDp9Y4u0/t3n zv8tRDngrZoAz14PkmsbmtPtsHuKIEIERUTo0J4RCcUD3PpkUarJxOwqFetP OCcjglgG1UTQfNFsUl/38fMKqond1QQIynpHrnB6xbBjbiuCCBFUE0GTVTVC HN2f6Z0GgwHV5DrUpGNITS7yzYg369s6x9xZBBEcqCbCZVO77yJ9Qxxd2+D8 CWMmX2HJAc/VRH9w5PG0hVznirdTDrm3CCI8UE2ES1XHNHFx7rHN+/rDE1ST 61EToKx1klxqz7gW/eHR9d9bBBEeqCYC5fDo+N7ZJOYlzX8RI6rJNanJ2tbe jYizSU+GcdITBDEDqolAef/hq7HHYnjDysYuMaKaXJOaAGnlQ+SCBz9/d503 FkGECqqJQAnNeU+cW/JrFTWimlwuui2Lt9v/pM3nvN3/J3MTh48BgvAH7L0o RKbV69SzTcyuUTuqybVGD3lWTq55Sk4hMzqHTwKC8AcUESGSXmH86hKU9dtX F0H4ZOGqSWdt6tnXxfrl7khUE8TBTExMFBcXZ2ZmyuXyqanzmxfu7Ow0NDTk 5OTk5+d3dXVptVpLIVtaWtLS0iA80wjhm82xurpqdieoJoJjfXvvZoSxYXDH kJq5SRA+WbhqohsM84qpMbZ8KJKhmiCOpL6+3vV3QCmshAct8PPzY4YPDg42 KwSDg4MkwPr6OtM+PDzsao6RkRGzR0Q1ERzlbVPEoXnEtegPfmutKgifLFw1 gaW8JMfYKju6dndAgmqCOAaNRuPh4eHm5gZFg4WFBYVCQRz72NiYpSgymQwC REVFzczMTE5OSiQSWI2OjmaGMRgMnZ2dXl5eZtWktrYWjFKptOx3lpaWzB4R 1URY6A+PPOOMPenK2iZZW4Xik4WrJqu9UpcIhbHHaHU6qgniGOLj48FXl5aW Ugt4dbCkpqaaDT81NQVb3d3dt7eN81DDH9AjMM7NzRHLysoK2S2FpSbp6elg BLmxMZGoJsKia3iBjvKxtrXH2ioUnyxcNYElQ/aK3IKAxApUE8QB6PV6KJWA r56fn6dGKKGABex7e2w/AFRXV8PWtLQ0pjEjIwOMFRUVZJV8OvP09GxvbydC w1KTgIAAMM7OztqYTlQTXnFuO9VbQS+IK7v7OMFsAKH4ZOGqyfTbONqgbrQ5 AdUEuW6gNEGEw2AwMO1EAsx6eyizwCbQC6axoaEBjCkpKWS1o6OjsLCQ1KSA prDUZGdnhxRYmpqaYG+RkZG5ublDQ0NW0olqwiuse7bxlnjqx/5qjRO0TxZ0 ysNSyshdSMwqQjVBrpuJiQlw1H5+fiw7qWQ3W3USGxtr+pEKVk2rTgimZZPJ yUmzVfD5+fmW0olqwiuse7bk7ELixEKelYvAJws35e/rUmhTYZ87/8L1U4OI nNHRUXDUgYGBLHtoaCjYzZYXoCgBm3p7e5nGgYEBMEokEtPwpmrS0tJC5KO8 vBwKR2q1Oi8vj1j6+vrMphPVhFdY8WzL3ZHgu4gT66xNFYFPFm7K91Vh92Pl xsZdvmFcPzWIyBkfHwdHHRQUxLKDvoAdtMY0SkxMjKnbB3EBIwiNaXhTNVlZ WYHorMbAaWlpECwuLs5sOk0LMjaeIHIdWPFsJUUy4r68Ymp0g2Ei8MmCTnlV abaxeBJWrfs5gDOCXBMajQY8s7e3N8sOFrBPT0+bRsnKyoJNbW1tTGNraysY ExMTTcObrYU3RaVSQbCHDx+a3YrywSssebbdAYl7dC1xX+UlOaLxycJN+UZf xC2psalwi3KO6wcHETNarZa86uv1emrc398nRihEmEYpKSmBTZWVlUwjrIIx Ly/PNLypmmxtbanVavhlBiPf3FBNBIElz9ZanU4cl0uEYrVXKhqfLOiUP897 SW7Ko7ROVmMbBLEvpMJ9YGCAWpRKJVh8fHzMhicV7k+ePGEaQ0JCwNje3m4a 3lRNkpKSwJKRkcEMRhoex8bGmj0oqgmvsOTZAhIriOPKyH0lMp8s3JR/aY+l Tew+fPrO9bODiBnSN0Qqle7unk4/Ab8RERFgUSgUJMDm5qZKpaLVHDqdjnwH oxXxPT09sOrr62t2tC5TNaHd7WkLZPhDes1b6s+IasIrzHq20eYE6rWm3z4V mU8WdMqlaa/JfYkrUnL97CBiBiSAqENAQIBMJiP9CiUSydGRcWwlUlRxc3Oj UWpqaogl5Sek/yMEM7t/UzXZ29sLDg4mghIXF5eZmUnCxMfH04OyQDXhFWY9 W0JWEXFZkpQyUfpk4aa8rz6ZCv3iqsUBWhHk6iwvL0PZhDaXgrKJRqOhW8nI jZ6entRiMBigREPH4IJNcrnc0s7v3bsHYaCAwzSurq6CiNAj3r9/v6SkxJKU nKCa8AxTz7b4LuqPs4bB3YoUUfpk4aZcrwq9+aSU3J2XDRbH30MQewGFFLVa vba2ZmNV3fHx8dLSEuiOTqe73BEhIkT/9u0b7Mp6SFQTXmHq2fJfGYdSefBU vq8y3zBY6D5Z0Cn39PYjN+hOdNOO7oDrJwhBOAPVhFewPNtWf/idyDrirGrL novYJws35X63/uPtqEZyjxp6vnD9BCEIZ2C/RV7B8mzy18+N772Rddv94SL2 yYJO+QvFR3KbfJLfHh9jU2HESUER4RVMz7avCrt3NnzHy1d5ovfJQjw0ia5Z +UHr4pUT5icSQhDRg2rCK5ieraPm1yzkS++jRO+ThXjoo7P5TeIKleRmSV/0 nnuXEUSUoJrwCqZnC0wy9lhMzi50Bp8sxEMfnanJh0/fafHki2bz3BuNIOID 1YRXUM/2oSmReqepNjNTmYjPJwvx0EdnamIwGP5M7yT3K7Nq5NwbjSDiA9WE V1DP9jSz2MYei6LxyUI89BFjJt+3g/PGsdSkb9a3L9m2H0GEC6oJryCebb4z hhZM+uqTncQnC/HQRww12T848njaQu5aWesktw8SgjgeVBNeQTxb9tngtD5x 1QdDzuKThXjoI4aaAOVtU8YptJ427+OkJ4iTgWrCK8A1rfdKXSKME2c0VmY4 j08W4qGPfleTjR86F+kbcu9aB+a4e44QhAOw9yKvANdUXpJD3JFbVO3OgMR5 fLIQD330u5oAz6tHyO3zT+04xklPEGcCRYRX+Lv8g8fZHIulRTKn8slCPPSR iZrML23ROq+hyWWuHiQEcTyoJrzC6/59OsfiSk+kU/lkIR76yERNgOiXfeQm Rr3s4+QpQhBOQDXhD8cGg0tIobHPgtU5FkXpk4V46CNzajI8tUyLJ7OLW2bv NYKID1QT/qCa/ParP3V7rLP5ZCEemkRnLf43/84lpIDcx7uP4k0DMBeuHzoE sRuoJvwhMr+XuKDo9BIn9MlCPLSl6G3ydDrG2rdui2OsoZogYgLVhCd80Wz+ qr1tTEKfLIhDW4quGwzziqk5d/xnVBNETKCa8IT0imHifB4nVh5epMeiiH0y /w9tJTpzbpqt/ghLcbl+7hDEbqCa8IHVzb0bEcaCSZs8HX2yUA5tJTpz3syq 0mxLcbl+9BDEbmDvRT5Q3DRh/MweWq4bPGfyd6fyyTw/tPXoBQV55LZ6xdTs mbutqCaImEAR4Zy9/QPXmCbidjwe/ok+WUCHth59uTvyZkQ9ubMt1WaKnKgm iJhANeGcN71fiMO5Hdnod+uf0ScL6NDnRs+QvSI31y++ynQAT1QTREygmnDL 0fHxw2dvicPJq/uIPllYhz43+peOWCuTC6CaIGIC1YRbescWqbdZXNGiTxbW oW2JHptRQu5vmMnEZ6gmiJhANeGW0Jz3xNUkFA+c/D4vPPpk/h/aluijzQn0 hWG8JZ4Vl+sHEEHsBqoJh0zOrVE/MzG7eoJqIrRD2xg9+Fm58Z0hq4gVl+tn EEHsBqoJh8QXKYmTCXn+jljQJwvr0DZG765LOXttqFd3xTDjcvsEIogdQTXh itnFXxNh9I4tEiP6ZGEd2sboelXow7hqcq+z814y43L7ECKIHcHei1yRUqb6 NUnfsXGSPvTJwjq07dHfVGaazlyDaoJciImJieLi4szMTLlcPjU1dW74nZ2d hoaGnJyc/Pz8rq4urVZrKWRLS0taWhqEv/QeTrBswhGalR+0YNI5vEDt6JOF dWjbo+8OSOismgUFeTQuhw8hIizq6+tdfwf8vJXw4Pn9/PyY4YODg1dXV01D Dg4OkgDr6+uX2wMB1YQT6Ozh3klvD4+OqR19srAOfaHolaXZdBzIjb6II1QT xGY0Go2Hh4ebm1tzc/PCwoJCoSDufWxszFIUmUwGAaKiomZmZiYnJyUSCaxG R0czwxgMhs7OTi8vL7NqYssemKCaOJ7vG7t0jMcW5RxzE/pkYR36QtG3+sPv no0DWVacc4RqgthMfHw8+OrS0lJqKSsrA0tqaqrZ8FNTU7DV3d19e3ubWOAP 6BEY5+bmiGVlZYXslsJUE1v2wALVxPG8UHw0DgYY36o/OGJuQp8srENfNHpx YS659W5RtT+U4agmiC3o9XoolYCvnp+fp0YooYAF7Ht7e6ZRqqurYWtaWhrT mJGRAcaKigqySj6deXp6tre3E5lgqokte2CBauJg1rd1LtI3xKUouj+ztqJP FtahLxp9rVd6S6ogd1/++jmqCWILUBYgwmEwGJh2IgGzs7OmUaDMAptAL5jG hoYGMKakpJDVjo6OwsJCUg8CmsJSE1v2wALVxMEUnQ0+7x7bvLd/yNqKPllY h75E9PxXL4zjRUfX+Ln8IxfPICIwJiYmwFH7+fmx7KSK3GzVSWxsLGzq7Oxk GmHVUsWHadnkons4QTVxLNs7+3eiGo0zKHVMmwZAnyysQ18i+nJ3pEuEsXji 6e3r+IcQERyjo6PgqAMDA1n20NBQsA8NDZlGiYyMhE29vb1M48DAABglEolp eFM1uegeTlBNHEvF2yniRu5GN2l39aYB0CcL69CXiy57kU8nR9v/veIMQUwZ Hx8HRx0UFMSyg76AHbTGNEpMTAxs6uvrYxpBGsAIMmEa3lRNLrqHk997L2If xmtlV3fgGtNM3Ehpy19mw6BPFtahLxd96X0UnUWrsfeLg59DRHBoNBrwzN7e 3iw7WMA+PW3mK0dWVhZsamtrYxpbW1vBmJiYaBreVE0uuocTLJs4kJquT3RW rE3tvtkw6JOFdehLR3+e95I8DPcT2O36EISFVqslr/p6/a8PGvv7+8S4srJi GqWkpAQ2VVZWMo2wCsa8vDzT8KZqctE9nKCaOAoomLg/NRZMXjZY7HCEPllY h7509MV3UTfCjcWT5v45Bz6JiCAhFe4DAwPUolQqweLj42M2PKkuf/LkCdMY EhICxvb2dtPwpmpy0T2coJo4iupOY8HERfpmbctM+3AC+mRhHfoq0TNzjZP8 Pkhsw+IJYh3SN0Qqle7u7sIq/EZERIBFoVCQAJubmyqVamRkhKzqdDryHYxW o/f09MCqr6+v2bG2TNXkons4QTVxCDtQMIk9v2BygmoitENfJfrXrug/JMbi yRusPUGsAg6c+PaAgACZTAa/pG3V0ZHxPYQUVdzc3GiUmpoaYkn5Cen/CMHM 7t9UTS66hxNUE4dQ1TFNnMatyMb1bZ2VkOiThXXoK0Z39TfOGu8Z12La+QhB mCwvL0PZhDaXgrKJRqOhW8nIjZ6entRiMBigREPH4IJNcrnc0s7v3bsHYaCA wzReaA8nqCbXz87egdtZwaTgzbj1wOiThXXoK0b3ufMvdGCEmq5PjnkgEUED hRS1Wr22tsbqF2+J4+PjpaUl0B2dztp7rF32gGpy3VS2T9GmXBs/zrkd6JOF deirpzz/bNA2eOWAFw/HPJMIch2gmlwr2zv7d6ObiLsobDynYHKCaiK0Q189 5evbOnjNMA4s3DbpgGcSQa4J7Ld4rZQ0/2Wc0iLKYh8TJuiThXXoq6ccbnrx 2dBt8JBs2fCQIAg/QRG5PjZ+/HrtfN1q02sn+mRhHfrqKT+5eAEWQfgJqsn1 QT+Ju8Y0a/fMjMplCvpkYR366ikn950O4HYrstFKdyQE4TOoJtfE8vrOzQhj cx15p63NddAnC+vQV085ue/MHkl5dR+v7alEkGsE1eSaSCsfohMs2t6VAH2y sA599ZTTW1/7boY8MPASAq8i1/NUIsg1gmpyHcwsbBDPAEtTv5mZ0SyBPllY h756yumt39cfwosHeWYyq0au4alEkOsF1eQ6CM/rIW7BP7Xj8OjY9ojok4V1 6KunnHn3m/pmjfOehDeol7ft/VQiyPWCamJ3lBNLtGAyMLF0objok4V16Kun nHn39YdH3klvyZMTV2RxNCQE4SeoJvYFSiJ+Ke3EIUhf9J4f4XfQJwvr0FdP OWu5d8+dvoo8cP//TAOwlut4hhHkcqCa2JfGs48VsMx83bhodPTJwjq03VN+ MBQamFRBnp/gZ+Wwaj36dTzDCHI5sC+8HdnZ+zUlVnrF0CX2wCvPJpToIkv5 SFMifSHpqEm1Ht3uzzCCXBoUETtSfDaOiov0zcrG7iX2wDfPJojo4kv508xi 48euWPnugMRKdLs/wwhyaVBN7MX3jV06unhJ81+X2wkPPRv/o4sv5fOdMXSe 3/KSHCvR7fsMI8hVQDWxF2kVxu6KHk9bLj20OA89G/+jizLlufn5xrFWpIrl 7khL0e37DCPIVUA1sQszXxndFfsu0F2RBT89G8+jizLlG30RblG15IlKzSmw FN2OzzCCXBFUk6tjMBgksu7LdVdkwU/PxvPoYk15Q0UmfUWZaI03G92OjzGC XBFUk6vTObxw6e6KLHjr2fgcXawp31eFPUqotNJaGNUE4RWoJldkZ++ADq8U W9B/xb3x1rPxObqIUz7UmPTrC2pVhml0uzzDCGIXUE2uyKuGcdoqeHFFe8W9 8dmz8Ta6uFMen2VsLewaVbvaK2VFt8szjCB2AXsvXgX1t+0bEQ1XbBXMhOee jZ/RxZ3ypfdRt6UKs9XxqCYIr0ARuTQGgyHibKzg+4lttk9iYgWeezZ+Rhd9 ymvLntPvXcONiczoV3/kEMReoJpcmo4hNc3jPR81dtkn/z0bD6OLPuX7qrCA ROPgXT5x1bR3PKoJwitQTS7H9s6+x9MWksFjXvVR+6PzBn09d+G5Z+NhdGdI +V+t8X+c9Y4vLZLR6BxmAQRhgWpyObKqRn5Vvq/+qnx3Bs/Gt+hOknLZC2Pv eJcIxXxnzBGqCcIzUE0uwceZFfqNq7J9mrnJSTwbr6I7Scq3+sM9Y2rIUxeR +vpwCNUE4ReoJhdlb//g4TPjBHmP0joPDo+YW53Es/EquvOkvKs2lb7GvJWn oZogvALV5KLIakdpjp6cW2NtdR7Pxp/oTpXyqPRS8uy5R9f63fpnTrIAgpgF 1eRCjEx/p1JS8GbcNIBTeTaeRHeqlH99F+0SYex+cvdxguOzAIJYAnsvsrDS 2srv1n+8+eS1sSY0pNDf5R941SjL8Z6NJ9GdLeWVpdn0lUZ5tXHhEGExMTFR XFycmZkpl8unpqbODb+zs9PQ0JCTk5Ofn9/V1aXVsgfrsB4AVpvNsbq6avZw KCIsrGTwDNkrkoVvhNdPtcXxzTVx4tn4EN3ZUr6vCqNzx3vGtWxp97nONIgj qK+vd/0dEAIr4UEL/Pz8mOGDg4OZQnBugOHhYVdzjIyMmD0iqgkLSxm8rz6Z vhDSBv+8ck2ceDY+RHfClH9pj70ZYex+8qx0kOtMg1w7Go3Gw8PDzc0NigYL CwsKhYI49rGxMUtRZDIZBIiKipqZmZmcnJRIJLAaHR1te4Da2lqwSKXSst9Z WjJfIkY1YWE2g2/0RdDGmQGJFbrBMB66Jq48G+fRnTPlVYzvXV3DC1znG+R6 iY+PB19dWlpKLeDVwZKammo2/NTUFGx1d3ff3t4mFvgDegTGubk5WwIA6enp sNrZ2WljIlFNWJjN4M+yC0m2hRdCeC3kp2vi0LNhyh0fV68KvRUkM1bHRzct r+9wnXWQ60Kv10OpBHz1/Pw8NUIJBSxg39vbM41SXV0NW9PS0pjGjIwMMFZU VNgSAAgICIDV2VlbJ5NFNWFhmsHfMRr5V5Zm89Y1cejZMOWcHNrn7n++HdVI nszQnO6rTPqJ8BkoLBDhMBgMTDspSpj19lBmgU319fVMY0NDAxhTUlJsCbCz s0M+pjU1NUHgyMjI3NzcoaEhK+lENWHByuBL76Po9NwhyeXwQshb18StZ8OU c3Lot4Pz9FWnrHWS69yDXAsTExPgqP38/Fh2UodutuokNjbW9CMVrNKakXMD TE5Omq2Cz8/Pt5ROVBMWzAy+rwoLTSkjWfWWVKHuiuGza+Lcs2HKHX9oeGKT X6vOmho2TMyab7qJCJrR0VFw1IGBgSx7aGgo2M2WF6AoAZt6e3uZxoGBATBK JBJbArS0tBD5KC8vh8KRWq3Oy8sjlr6+vhNzoJqwYGbwwoJc+uLXbDKPKt9c E+eeDVPu+EPDE6vd1T9IbGNMAPqD6zyE2Jnx8XFw1EFBQSw76AvYQWtMo8TE xJi6fdAOMIKO2BJgZWUFtrIaA6elpUGAuLg4s+k0Lchc/FxFBc3gqje/puRO zi7kv2vi3LNhyh1/aPLQQpGEPquecS1Hx1iBIio0Gg14Zm9vb5YdLGCfnp42 jZKVlQWb2tramMbW1lYwJiYm2hLALCqVCgI8fPjQ7FaUDxYkgy93R3pE19L5 iX4ow/nvmjj3bJhyxx+aPrd0GlBYsuUfOMxBiN3RarXkVV+v11Pj/v4+MUIh wjRKSUkJbKqsrGQaYRWMeXl5tgTY2tpSq9XwywxAvrmhmtgI5FDdYFhIcjmd S2L6rflu73xzTZx7Nky54w9Nn9vDw2O32GZagfLh03cOMxFid0iF+8DAALUo lUqw+Pj4mA1P6tOfPHnCNIaEhICxvb3dlgBJSUnwPyMjgxmAtCuOjY01e1BU ExaQQ3NevKSveW8qM4Ximjj3bJhyxx+a+eiqv215xbcaRxh+2ow9UMQEGVZF KpXu7u7CKvxGRESARaFQkACbm5sqlYpWc+h0OvIdjNaz9/T0wKqvry8ZjOvc ALS7PW2BDH+8vLxMW4JRUE1YeN1/QKUkLadAQK6Jc8+GKXf8oVmLt9v/+ENi HGHYJfiln8s/mYZhLlznNsRWwMMT5x8QECCTyUi/QolEcnRknF+JFFXc3Nxo lJqaGmJJ+Qnp/wjBbAywt7cXHBxMBCUuLi4zM5N0b4mPj6cHZYFqwuTDp+80 MwYkVuwMSATkmjj3bJhyPhy6sTKDvg4lZhUdDFmLznWGQy7A8vIylE1ocyko m2g0Grp1cHAQjJ6entRiMBigRENKE2STXC5n7vDcAKurqyAi9Ij3798vKSmx JCUnIlUT6+9jlpaHrv96I0xOpyJafB/FE/8gXM+GKefk0HQG+XNHKOU6pyIX BgoparV6bW2N1S/eEsfHx0tLS6A7Op3ucgHADlu/fft2fF5bQbGqyUUz5nJ3 5L1YOa15H2tJ4JV/EK5nw5Q7/tD7qjBp2msqKO9qUy1F5zqnIqIC1QSW7f7w PxMrjblPUv++LoVv/kG4ng1TzsmhN/oifOKq6dvReEu82ehc51REVIiy3+KF MqluMIzOtX3a+cvbX6CuibeeDVPOyaFnO2LvRtaRp9otqna+kz0uEKoJYl/E JCIU2zPp4VBouqyASkneyxfCdU189myYck4OPdyYeCPcOKnWg6fy792RrOhc 51REVDi5mpQWyaiUJPxsACNc18Rzz4Yp5+TQb+Vp9Al/lFC53hfBjM51TkVE hTOrCbMtZWhy2e7P9sDCdU3892yYck4OzZylMTCpYqs/nEbnOqciosJp1aSl Op1mMd+4KvrOJlzXJAjPhinn5NCvXuUxX5y0P8edQzVB7ItzqkmbHKTE+D3Z M6bma1c0H3yLk3g2TLnjD304FJrD6IQSkfoaBAXVBLEvTqgm7adfko1S4hFd M9sRe7kcyjfXJBTPhinn5NAHQ6EZsldUUEKelfvd+meucyoiKpxNTZqrMqiU uEfXfvldSgTtmgTk2TDlnBxarwpNzi6kguISUrC6ucd1ZkXEg1OpSU3Zc5qV 3KJqP7c/5TyD8yc6ptwZUg6CkpX7q4TindS2uKLlOr8iIsFJei9CMZ85La9H dM2XdnaphHPf4myeDVPOyaEPh0ILCn5VynvEtXzWbHKdZRExICYRobBy2d5g GLOAfz9Wru5i9wvmg29xQs+GKefq0Mxmw3ejm8a/rHKdaxHBI3o1We+LCE0p oxnHP77qW7e1wYGF65quGB1T7mwp97p//1cdivRN//gS1xkXETbiVpP5zhg6 9h0skpTXG4y+wDzM4E7r2TDlnETvHVsEHaEZRN75ycZxzhHEFBGrSV998p2z Ue9gSc0p0A2G8T+DcxUdU+6EKT/5OUPcnahGmk1SylR7+4dc52BEkIhSTfxv /vviwl917rC8LpYdWp6EjlcZnKvomHInTDnJL180m/cT22hm+TO9U728zW0W RoSI+NTk+8bu7cBfNYy3pApLswXxM4NzFR1T7oQpp7lmfVsnye2mueZ2ZONb lZrDXIwIEZGpSfeoxjWmmWYKn7hqs51K+JzBuYqOKXfClDPzzsHhUV7dR2aJ Pr1iaEd3wFVeRgSHaNRkZ+8gs2qEmRcSs4rocKkCyuBcRceUO2HKTfNR70fN 3egmmokePnuLjYcRGxGHmgxNLjM//P4RVttclSHQDM5VdEy5E6bcbG76trYT 8vwd88UMyiy7WEhBzkPofeHXtvZSy4eYT35gZpfP3f9XuBmcq+iYcidMuaXF /+b/6e4b+oeknmarm0/K7nndYQXjOvcj/EKgIgIcHh3XvZ9hNm68Ed5Q2vKX /vBI0Bmcq+iYckw5axlvifeLr2K+qsVmlHx9F02jc+0DEH4hUDUZ/Oubf2oH q0jy+atxuCERZ/Dri44px5SbLrsDksKCXDq5/Gmv+QgFWLb6cXoUhI3g1GRq fl36opepI3ejm+q7P0NRhYYRdwa/puiYcky5pWW2I1bCGJ6IDMHt6e2v02M/ R+QXAlKTybm1mFf9zEcalszK4fVtHSukM2Rwu0fHlGPKrSwHQ6Ft1emeMTXM 3OcZ16Lo/ryPmoL8hP9qYjAYPnz6HpXfy9IRSW73tHrdbBQnyeD2jY4px5Sf u/xQhhcXyW5JFSxNkXd+0u7qHewZEL7BZzWBcvTbwfk/MzpZOhKQ0TUwYW28 U6fK4PaKjinHlNu4fO+OzM3P/0NSx8yVt6MaXyg+4pAszgw/1WR+aStf8dE1 pomlI0FZ75QTS+cOc+qEGfzq0THlmPILLb53/pOrf9QfEgUrk94OzL53z83f 5R+stEDGGnxRwis12fiha+z9Evx7zymySF/0Dk0u2zhcttNmcOc8cUw5h9GX uyNfvcpjDtZNq+ll+fnjLfEH5kZbRTURJXzovbiyudvUPwt6ccNERP6Q1Lo+ evrQ7b9Zf88xXQSdQzmJjinHlF86+g9leH15Fqtzyh9nU52+fJU31pLAlJWL Zmcs2hAmJiaKi4szMzPlcvnU1NS54Xd2dhoaGnJycvLz87u6urRard0DMOFK RI6Oj3s/aiLze5ndD5nLo4TK+orMrf5zJrfCDI4njinnSfTDodDR5oTk7EKX CPbnL1g8omuycl9116Vs9EVc/dCceC1uqa+vd/0d8PNWwoPn9/PzY4YPDg5e XV21YwAWjlST42PD3NJWY99sYsmgaZ2I8ZF72pKv+Ojt9t8xg+OJ8//QTpty 69FBLxorM0J/76LCWOpvBb8oKsxVvUnavvi4rEdOqSYajcbDw8PNza25uXlh YUGhUBD3PjY2ZimKTCaDAFFRUTMzM5OTkxKJBFajo6PtGIDFdavJ+vbe0ORy xdup2IJ+SwoCi/vT5ry6jx8/r0CZhaTKOTM4nrjgUn6V6BzebsdE/9YdpSjP CjuVlXpmfocTp8oSkFghe5HfJk//0h67rzp/dtQjIavJpf1tfHw8xC0tLaWW srIysKSmppoNPzU1BVvd3d23t42t7OAP6BEY5+bm7BLAjmdnFu2e/tPCRtfw QnHTBMiHZ1yLJfkwVtXFNktk3S3KuYOjI1aquMomwnWqTnvi/Heq13HWwjrx 1R4p6EXS80LXn/X1DDX5bXGJUAQ/K8/Ke1lXnqVqTFp6HyWySvzL+Vu9Xg+l Eog7Pz9PjVBCAQvY9/b2TKNUV1fD1rS0NKYxIyMDjBUVFXYJcKGzs7Lp8Oj4 +8buX3Nr7z98re78lC3/EJHX4xXfau7dw6RCJK0DiiH944vbO/tWDn2V5/wq 0Tk8NLfRMeWYcgdE16tCp9riTr+fpJfelpqpXmEtt6QKKLwkPS8qKsxtqspQ vUma7YiF6Fepwb/KK/QVX78vFx3KAkQ4WI1aSUlhdnbWNAqUWWBTfX0909jQ cOqZU1JS7BLAlrM7PjZAEWN5fQc2ffj0vXtU09j75XXrJEhGfJEy+Pk7pmpY Wphq4hrTFP2yr7Tlr8G/vm1pLSoIK1WYwfHE+X9op025XU58XxU2/TauoSIz TVZgtj2YFfcCSuQfXyVNK03NKXj1Kk/++jmUfZQNzyZa4+c7Y1Z7pXuDFj+a CU5NJiYmIKKfnx/LTqrIzVadxMaeam5nZyfTCKu04oMGAIU6Oj7WHx7p9Ict rW/BKJVGrm3tSSOj4X91XePs4tbMwsbk3NrHzyuFZXVgDAyRdAypm/vnFN2f qzqmwbe/rB8DgYBNTwuV4bk9gZld3klvmVUbVsoX1haJwiWkEOJ6+ATe97rt c+f/8b/UywNmcDxx/h/aaVN+HSe+3R8+1pLwpjIz50W+JOW1W1StLS+rVhaX CIVXTA2ITkhyORSFErOKMmSvZPn5p99q3k7VvpuB9+S2wfl3I1/7xhbhXRde nse/rE6r179oNtXftjUrP+Cl+tPCxtzSFvzf3tnf2z+EuP43//4SPu0qxSL/ 2JLTKox7Pj7Jb29FNsJyN7rpz4xO9/v+YH8YVfAorfNRWod/aodfSrsvLMnt 7g/+hE1eYbn3E9vuJbRCEcAjrsXtSa7rqdX/TlTj3XuP4e/NP7OYV+zmnzlg vOPpB//veD2yHuBC9+XcWwaFUP+EqtiMkryXLxTlWfBioO6KIfVoInvOnSE6 phxTzrcThyIG6AsUOkqLZFAGeZJcToadvOSL7hXfk03i3givB8GCUtKdyDrX qFqQP4/oGtCve7DEyh/Eyr2fVsPiE3e6QOELltNvdGkd4Pwfp3f+CUtGZ0BG F7zJkyUo6x0swWR5frqE/FxuBp4q4B2Ph6zEgOXU4QfkmabzjtefP7Xg+e9a kHW6H69HdglgemUQBEEQPmBJwm6ElMLWu26eLDtYwH4j6JVplNsPwmCTy6NU phFWwXj7XtBFA7hI30BpCEo3nsGZYPT0CQnJfh+R1xNb0J9UOpheMSyrHS14 Mw6b6t7PtCjn3n/4CmW9idlVKNZ939jd0R3YOIwJgiAIf9AfHG380H39/mNa vf7h0/fescV2lfpN75fqjuni5r/yFR+fV4+klKnii5RR+b1hsm4oDkB54eGz t17xrW6xzbcjG80MysHp0tI3ReSmtmsqr240r+5jYeN4h2qWGJvef4Rz7Btb 7B9fVE4swTIwsZSccfpRKyOnYHhqeWT6O1yHjzMrz3MLwJiUkjk1v56Zc1re yXtZPL+0pV4+/ay3tKp9VXgqW1nPc7Z39gsKi+B/+e/NtyorK09j5eWZvfKu fBqnC0EQhA8cHxtAlfb2D76tacHZznzdWFrTflvbWVzRgk7Nf9ueXdz6rNmc WdgAzZqcW5uYXRv/svrx88rozAq47pHpZXDjQ5PL8IoOC3Hy/eOwnLp9cP69 HzU9HzXdo6cLvMmT5d3I6dI1snC6DJ8unT+Xk7MK94GBAZpCpVIJFh8fH7Pp JxXuT548YRpDQkLA2N7ebpcApqCaIAiC8BwyrIpUKt3d3YVV+I2IiACLQqEg ATY3N1Uq1cjICFnV6XTe3t4QoLe3l1h6enpg1dfXl4y1dfUApqCaIAiC8Bxw 4MS3BwQEyGQy+IX/Eonk6KzfNymquLm50Sg1NTXEkvIT0v8RgtkxAAtUEwRB EP6zvLwMZRNaZQ9lE41GQ7cODg6e1o97elKLwWCAEo2XlxcJD5vkcjlzh1cP wALVBEEQRChAIUWtVq+trdnYSur4+HhpaQl0R6fTXVMABEEQBEEQBEEQBEEQ BEGuzsbGRnp6utlGy0NDQyUlJRkZGaWlpcPDw6YBLjqXJR9YWVmpq6vLzc3N zs6uqalZWFhgBbBlukxRnrhdrgzfOD4+7u/vJ49xUVERJPvw8NBSYDijvLy8 169fs+xiPfFv3741NTXBecFZt7S0mH6KF+JzbsuJi9KzcY5er4+MjHR1dX35 8iXTDneEDJ7PBCzHP+fPIlx0Lks+AI8WGTia4ubmxky2LdNlivLE7XJl+Abt CMAkJCRkfX3dbHjwHhDg8ePHTKNYT7yvr482ECLAicO7JQ0gxOf83BMXq2fj HMgRCQkJ5HKx1KSjo4P4k+rq6unpafglrubt27ckwCXmsuScxcVFchaJiYlK pRLeSaBQRpIN50jCnDtdpihP3C5XhodAOQsS+fDhw6qqKjgRuFn+/v7kNE0D v3//njpVpl2UJw6lEtJhAUolEAAKJo8enY5SC/edBBDic35iw4mL0rNxDly9 e/fuUfFlqUlaWhoY4VWNWrKzs8GSnJxMVi86lyUfqKs7nQ7A19eXdjKCF5Kg oCAwko8btkyXKcoTt8uV4RsHBweenqcD8bW2tlJjb28veeB3dnaYgb9//06z A1NNxHrikN/hP7xM0nfyoaEh15+9GCD6iTCfc1tOXJSejXPIm0lsbGxhYaGp mpCpvphGMsJYXFzcyaXmsuQD8FSAo4BfprGiooK+kp07XaZYT/zqV4aHwOt3 aGioj48PFQJgf3+f+Ba1Wk2NoKExMTFgJG+2TDUR5YnDY0wEcWVlhQYAWRkZ GYHyl8FgEOhzbssdF6Vn4xzQEaVSCY9QY2OjqZpAyQWM3t7enz9/Pvk5eSUp MJLvh5eYy5K3kFnPwGmc2DBdplhP/NwAl5hIlJ+Mj4+TOwh+gxpra2vJxxBy f5lqIsoTX15ehv9Q9oSX+dHRUXCnoIwqlYqWU8T0nLPuuPN4Nk548+aNqZro dLr8n9OikStP/kAZ8MePHyeXmsuSn5CROeHhIc/JuRNuivXEzw1w7pURBLu7 u/DuyiprgFeB04SHfH19Hd5IWWoiyhMnn+8iIyPJVx0KvJ+LLIOb3nEn8Wxc YVZNtra2yAdGJmVlZeSbKrzPwGpgYCBrV+TGDQ0NOS71VwDSSUq19AsPad5G R+kkDAwMuP4c0u1EvCd+boBzrwz/ATcC3hIS/ODBA9pyCYzBwcFg7O/vh1VT NRHliff19dFMnZeXp1Qq5XI5qXGQyWQnYnnOzd5xZ/BsHGJWTZ49e+b6syUk iLVWq4VfMpZ+UlLSyVnhEUrKrF3BXQA73BHHpf6ywOslcZipqam0OTr5eA55 jRmS1OKBVzkR74mfG+DcK8NzwIcQXQCfCQ8ztZPK6OzsbLJqqiaiPHHaeq2y spKGJJ+AACijieA5t3THRe/ZuMVUTaB46O7uDi6FOSrm8vIy+Xi4vb0NdlJO ZO2KlBxpm1LeQqpWgZycHPJOQsjKOp1nua2tjRm4tbXV9ayFoVhP/NwA514Z PgOPLhkzHG4T8x6RzxquP5sA9f6EVKDAqyz8//jx44lIT3xsbIycOPm8Q4B8 Td4iYKvQn3NLJy56z8Y5pmoyMjICFn9/f1ZI0i0I3tNA08nTyKzKpG0nmA1F +IbBYCguLqYvZqy6tpKSEtYL28nv02WK9cTPDXDuleEtX79+JR+9wb0sLi4y N5HqD0uEh4efiPTEic8EWJ3fyVv60NCQcJ/zE6snLmLPxhNM1WRmZgYsoNfM S3p8fPz48WOwkwnFLjqXJU8oKDidixleTrq6uky32jJdpihP/NwAl5hIlA+A 23z48KHrz69SW1tbrK1fvnwp/R1SEvH09IT/zc3NJyI9cRARUkvCrFYGI+lx s7m5eSLY59z6iYvYs/EEUzWB5+r+/ftgzM/Pp++opFUk3AjSlvvcuSx5CPko CnR3dx/9Dmkbact0maI8cbtcGb4Bjy5pkRUWFgaJZJ2X2Sim9SZiPXFS5goM DCQfu2jJlFYZCPE5P/fExerZ+IPZWvh3794R9wKvYS9evCB1kUBTUxMJcO5c ljwkPDzc0mcN2hP23OkyRXnidrkyfIN07rYE6W7AwlRNTkR64uvr6yCIrj8H IXn+/HlUVJTrz0IZrRoQ4nNuy4mL0rPxB7iMcLkKCgpY9sHBQVIAJEABEN7K mAGsz2XJN+Ad293d3dKTRn2mLdNliuzE7XhleAUdYcksX758MY1Cej2zGoiK 9cQ3NjYSExOJOJLH+MOHD8z9COs5P7H5xEXm2QTE5uamWq1mjizK4qJzWQoC W6bLFOWJn4vTTiQq1hPX6/WgocyhSFiI9Tl3Ts+GIAiCIAiCIAiCIAiCIAiC IAiCIAiCILzi/wdKdrKO "], {{0, 319}, {538, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538, 319}, PlotRange->{{0, 538}, {0, 319}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771182346568776*^9, 3.771182353839611*^9}, { 3.771182434787858*^9, 3.7711824429111547`*^9}, {3.771240142034581*^9, 3.771240149597237*^9}}, CellLabel->"Out[388]=", CellID->1327194391] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"RunLengthRandomnessTest | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[636, 23, 168, 7, 70, "Subsection",ExpressionUUID->"2b751fd1-1f81-4449-a6c6-111a9d854c1b", CellID->462042388], Cell[807, 32, 284, 5, 70, "Text",ExpressionUUID->"a9a5c60e-3ee6-4142-bc03-0b368f4490a6", CellID->13078159], Cell[1094, 39, 376, 12, 70, "Input",ExpressionUUID->"1a321f0d-f8f2-4b0a-b8f1-d1d541b37ca9", CellID->771105549], Cell[1473, 53, 144, 3, 70, "Text",ExpressionUUID->"e6a82c97-2330-4503-be6a-4854a7add660", CellID->942238246], Cell[CellGroupData[{ Cell[1642, 60, 1307, 33, 70, "Input",ExpressionUUID->"62ec3dd8-1358-41fc-8ba6-dae147c6c039", CellID->524633794], Cell[2952, 95, 31201, 521, 70, "Output",ExpressionUUID->"ee9c0dc2-ddef-4b0d-a8b4-60b4cba80455", CellID->1225426347] }, Open ]], Cell[34168, 619, 275, 5, 70, "Text",ExpressionUUID->"07211b52-a8ac-4065-aab7-e19ac55bfd72", CellID->78070366], Cell[CellGroupData[{ Cell[34468, 628, 7467, 186, 70, "Input",ExpressionUUID->"b723adcf-eead-4310-95dd-9cf9f62a1406", CellID->312766755], Cell[41938, 816, 254, 6, 70, "Output",ExpressionUUID->"10c0affe-02cd-43f0-a6f3-138276d4f738", CellID->1793337878] }, Open ]], Cell[CellGroupData[{ Cell[42229, 827, 7461, 186, 70, "Input",ExpressionUUID->"b119f823-9b5e-4db4-b870-eeedbe0c3d8b", CellID->1422437180], Cell[49693, 1015, 252, 6, 70, "Output",ExpressionUUID->"121978de-f9a5-441f-af7a-e18bfd44eb9a", CellID->226124323] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49994, 1027, 159, 7, 70, "Subsection",ExpressionUUID->"4339420d-4fa5-4a8b-8f0d-49367a0e30a8", CellID->964056545], Cell[50156, 1036, 285, 5, 70, "Text",ExpressionUUID->"50cb7c47-46f4-4aba-ac50-fedd32a5cdf4", CellID->467242929], Cell[50444, 1043, 380, 11, 70, "Input",ExpressionUUID->"e0dcefb0-c140-4669-9b49-ffab09ab3b09", CellID->417726745], Cell[50827, 1056, 414, 11, 70, "Input",ExpressionUUID->"0362a831-a126-4182-a814-728ad1aa5c0a", CellID->380525297], Cell[51244, 1069, 145, 3, 70, "Text",ExpressionUUID->"c4761483-20be-41ab-b539-f64286ebc920", CellID->1751694271], Cell[CellGroupData[{ Cell[51414, 1076, 1339, 34, 70, "Input",ExpressionUUID->"9144ebf3-b7d4-43fe-bec7-b995def02256", CellID->969916519], Cell[52756, 1112, 4098, 77, 70, "Output",ExpressionUUID->"288b1e5a-f6d9-4d95-82d1-88c91acb9261", CellID->34103964] }, Open ]], Cell[56869, 1192, 214, 4, 70, "Text",ExpressionUUID->"689f6630-bf7f-467f-834a-1a6863beb54d", CellID->1428531827], Cell[CellGroupData[{ Cell[57108, 1200, 7321, 184, 70, "Input",ExpressionUUID->"bc19802a-08bc-4919-a094-11114d85fc4c", CellID->1265375035], Cell[64432, 1386, 178, 4, 70, "Output",ExpressionUUID->"80785584-4d23-4793-8349-9c03bfda93eb", CellID->193880169] }, Open ]], Cell[CellGroupData[{ Cell[64647, 1395, 7316, 184, 70, "Input",ExpressionUUID->"e1163ec3-f5bb-4b44-9c4d-e61948a87732", CellID->2071666640], Cell[71966, 1581, 156, 4, 70, "Output",ExpressionUUID->"11f89fa8-466b-44d9-8b43-4ded3b6dbe03", CellID->658067980] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[72171, 1591, 167, 7, 70, "Subsection",ExpressionUUID->"ebad7841-65ae-4d83-b1f6-e96278737d4f", CellID->540091361], Cell[72341, 1600, 178, 3, 70, "Text",ExpressionUUID->"9353a018-6e9b-49d4-b6ab-9250d1f97447", CellID->423730456], Cell[72522, 1605, 8627, 209, 70, "Input",ExpressionUUID->"f8bd7e32-d2e4-4154-a94d-35893ac617fa", CellID->1520492122], Cell[CellGroupData[{ Cell[81174, 1818, 296, 7, 70, "Input",ExpressionUUID->"f855107d-6b3c-4971-be11-e24dd51657ef", CellID->1177328354], Cell[81473, 1827, 16000, 269, 70, "Output",ExpressionUUID->"ff40cedb-dde6-4d61-9aa9-026d5dbd9819", CellID->1692650378] }, Open ]], Cell[CellGroupData[{ Cell[97510, 2101, 389, 10, 70, "Input",ExpressionUUID->"fa1e2920-4dff-4327-a141-1ab5efff7283", CellID->894430390], Cell[97902, 2113, 336, 8, 70, "Output",ExpressionUUID->"549fe2c6-e8c4-4cb2-9dc9-2900ffcbbad0", CellID->402214425] }, Open ]], Cell[CellGroupData[{ Cell[98275, 2126, 593, 16, 70, "Input",ExpressionUUID->"007f25c0-ba89-4a1d-b77c-e78c988911bb", CellID->673970004], Cell[98871, 2144, 26185, 436, 70, "Output",ExpressionUUID->"2de36c3f-5a3a-4d69-9f1e-5a60b8eddf91", CellID->1327194391] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)