(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 464683, 11091] NotebookOptionsPosition[ 424765, 9786] NotebookOutlinePosition[ 432669, 9999] CellTagsIndexPosition[ 430561, 9947] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ListTricks 2.20", "Title"], Cell["documentation notebook", "Subtitle"], Cell[TextData[{ "Eric Rowland\n", ButtonBox["http://math.tulane.edu/~erowland/packages.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://math.tulane.edu/~erowland/packages.html"], None}] }], "Subsubtitle"], Cell[CellGroupData[{ Cell["Introduction", "Section"], Cell["\<\ ListTricks is a collection of structure manipulation, classification, and \ searching tools. This introduction gets you started with a few features of the package; the \ next section provides a complete list of package symbols along with their \ usage messages and further examples.\ \>", "Text"], Cell[TextData[{ "To use ListTricks, first you will need to load the package by evaluating \ the following cell. (If you need help, see ", ButtonBox["loading a package", BaseStyle->"Hyperlink", ButtonData->{ URL["http://math.rutgers.edu/~erowland/programs/loadingapackage.html"], None}, ButtonNote-> "http://math.rutgers.edu/~erowland/programs/loadingapackage.html"], ".)" }], "Text"], Cell[BoxData[ RowBox[{"<<", "ListTricks`"}]], "Code"], Cell[CellGroupData[{ Cell["Structure manipulation", "Subsection"], Cell[TextData[{ "Most functions in ListTricks are for manipulating the structure of lists \ and arrays. Several of these perform geometric operations on two-dimensional \ arrays; these include ", StyleBox["RotateClockwise", "Input"], ", ", StyleBox["Shear", "Input"], ", and ", StyleBox["Tile", "Input"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"array", "=", RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2", ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", "127"}], "]"}]}], "}"}], ",", RowBox[{"ArrayPlot", "/@", RowBox[{"{", RowBox[{"array", ",", RowBox[{"RotateClockwise", "[", "array", "]"}], ",", RowBox[{"Shear", "[", "array", "]"}], ",", RowBox[{"Tile", "[", RowBox[{"array", ",", RowBox[{"{", RowBox[{"400", ",", "400"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[RasterBox[CompressedData[" 1:eJzFV4FtxEAI47pJV+oIXaArdPSq6Tf9cM05xBgSIYSQ8Z2QZd3r+8fb+4uZ fT6i/RvNv43eGM3xvYLOvJ2iMf+kvjya868Mu+rH31bb3y5a6jGeTtNQ2/Np GurDaRrqY1lfj+ba23F13/3lfTtGed9Fed/5cXn/car/dlPSt2Mu77tc3j/R ZVn/RJdl/RNdlvXH+W5K+ovdlPSXpyvor9v6/rqt74MPwHk8+OV4W4ccD0KO d/6M/Dod7/wZ+XU63tZZjgdZjnc6varbNLzT6VXdpuGdTq/qNg0/jru6qts0 vNtVZHcpeHfayO5S8Lau5XhQy/FBv07HB/06HR/063S8i3J80K/T8UG/TscH /Tod73I5/qZu0/A3dZuGv6nbNPy4v7sUPLG7FDx1+gQ8B+fxHJzHkx9JP/l3 9Kf5jQv+/lzQ/M6/o5nmd/4dzTS/cZnmJzPN73QcrWl+p+NoTfM7HUdrmn8c dxmtaX63y2hN87vbRGua37ia5idrmh/4ebbfT/OBn2f7/TQf+Hm230/zXUT7 ND/w82y/n+YDP8/2+2k+8PNsv5/muxzt0/xA1yrd7/OBrlW63+cDXat0v88f 692qdL/PB7tV7n6bD26n3P02H4zX3h7vVkwP3/9i+snf1X4/8ds65Pwg5Pzi 9z3kP3nXV+x+47F1lvODLOcXv+8hv/h9D/nF73vIP7Tve8gvft9DfvH7HvKL 3/eQH9Ry/mK/n/iL/X7iL/b7id9FOX+x30/8xX4/8Rf7/cTvcjl/k+53/ibd 7/xNut/5R9/uN/7G3W/8rbfv3f3G30s/vgBoOjoe "], {{0, 0}, {128, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJzFmNFNBjEMg3NswkqMwAKswOi8HA+/Jc5U1uf0FEVR8J+WNHXa98+vj8+3 mfm+Za7dsT2BuXYnsJ2CuWUt/uzugbm/tfj3WIsvuh5/XnU9/r3yrT3wm/ut PTAi9fjzKvX48tXjy6jHNzYef55tPL6suL0HNOftPaB13z4HtO7b54DWffsc 0LpvnwPK/+1+QPm/3Q8o/7f7AeX/dj+g/N/uB5T/2/2A8n+7H1D+b/cDLgA9 AbdC+j/gckzvAZdjeg+4OqfPAVfn9Dng6pw+B1yd0+eA43u6H3B8T/cDju/p fsDxPd0POL6n+wHH93Q/4Pie7gcc39P9gLv/0+8D7v5Pvw+4+z/9PuDu//T7 gLv/0+8D7v5Pvw+4+z/9PuDu//T7gPL7qY7jT6bj+H/c+/+r4/jm/u90HD+U OP5kEscPv3z92cjXv4wPfyDGhyuI8WEOY/yV5TDGh3Uc48M6jvFhHcd40XV8 yOcxPuTzGB/yeYwXqeNDPo/xIZ/H+JDPY7yxcfw82zheZnyawxgvOTvNYYy/ XnN2WscxXur2tI5jvNTtaR3HeKnb0zqO8Ubj+HnWOF74+5TPY7zw9ymfx3gj OH6eBcebD8ebgeO3/eYPcL+ZIe43OcL913OOcL+pU9xv6hT3mzrF/aLrfsPX uN/wNe43fI37Rep+w9e43/A17jd8jfu37Vm2ZUZ1W3JSt6/XnNRtqcu6LXVZ t6Uu6/a2nmV9z2RNCz/X9bbMsmx/y+MHRlU6Hg== "], {{0, 0}, {128, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJzFV4GNw0AIu/tNfqUfoQv8Ch39v1F7akCJS4wh1RUhapwrsiy+b78/t68x xv152p/Z+5mj9/x/t55HeEyhL47nezTFsf6FlvjM2uIrfamxJ19q7MlfemzK 37TYkb/PpSEfu3crz/fvVp6banluy9ada+vOnWvr1p+L68Oc4rr15+K69efi uvXn4vowsbh+pNei+pFei+pHei2qH+m1qH42t4L62dwK6ufvLq8DtLyO4OAR 4+H2rsVbv0b+noy3fo38PRlv/Rr5ezIe7e9iPNrfxXjr18jfk/FWn5/qPQmP 9ncxHu3vYrzV56d6T8LbOUXmnoBH+7sYj/Z3Md7+OurfJD7q78n4qL8n46P+ noyP+nsyPurvyfiovyfjo/6ejI/6ezL+qt6T8Ff1noS/qvck/FW9J+GZuSfg mbkn4Lm703iSncaz9OTD0pMf+vbcoW/PHZbe+H00svTG76ORpR9cZOnJyNIb /UZzlt7oN5qz9Ea/0Zyln/s5RnOW3swxmrP05i7RnKUfXM7SkzlLD/w72d9d e+Dfyf7u2gP/TvZ3196caJ2lB/6d7O+uPfDvZH937YF/J/u7a29itM7SAz2L 9L7aAz2L9L7aAz2L9L7az/O5ivS+2oO5Cue+tQd3E859aw+6S++O56plh/u9 lt35udjfHf04P2p6cNT02v0d0h/s7QVz32jGeVTTg6im1+7vkF67v0N67f4O 6ad0f4f02v0d0mv3d0iv3d8hPcjV9LX+7uhr/d3R1/q7ozenmr7W3x19rb87 +lp/d/QmVtP36H3R9+h90ffofdHPtrlv9H1z3+g77946942+lX3OPxkXOh4= "], {{0, 0}, {128, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztmYHNJCsOhOEyuZQuhE3gUnkhP+3+3bNj0+ChbUxL89FClmXKVRIjj2X+ ++v///v1n1LKP/Vn61WTF/xagPzS9cAvv1LFTtcDv9xV7nQ98Mt91MwdtfOd F/7DHr+KHbUT/pb//FXs+XXAr/lPGZvkwK/tpr77pQd+wb+r74b/mn9X3w3/ Nf+uvhv+a/6dtRP+ln9n7YS/5d/764Bf82+WA7/2Wc9a7QSeb+en5+/svbuy H7XLzz889iH2z61gH2N/DPYptmIfZc+2F/8Z/vHhP8Qvf2sX/gP8Wt9uB3+7 X95vB3+7L24Hf7svXfzdfsV/lK9WJb41fva/ug9+nSeeGj/7X90Hv84TT43/ PvK+m/PEU+NnTbuqbZV4evysaVe1jXh+/Ly169sjnh0/j3WOE0+O9/riSnxL vNcXE98T7/XFxPfES+3XNuL58VFtI54fH9U24vnx8e0Rz44bx4knx4uxjHTg o/F1/Jn5wMfiSx1uMx/4WHwdbzMf+Fj8UeN61swHPhZ/3GLPmvnAx+IPWM+a +cDH4uvYmvnAx+JVn/xp39w7D96Jr7JP/rRvBr8IX2St+7RvBr8IX2Wt076Z D3wsXtW6mdoHfgFe3eZM7QO/AK/gc7cLPhyv43PpwEfj1ZpMBz4YPzuvb/KB D8Xr+ft0PvCh+LP/ne2bX/nAh+LPmnen9r3jwMfgZ+f1TT7wofjZeX2TD3wo /kxzMx34YPzdvvmVD3wo/m7fDH4N/m7fDH4N/m7fDH4N3lP7wMfjPbUPfDze d7vgo/HOdOCD8c38fXI55cDfJPR9bj3wy69U13brgX/4/jG73Xrgl7uo+fuk deuBX+Y9bvmudeuBX9oj7V3r1gO/tNVn3Xrgl1b10bO+Ww/8Mn+VffSs79YD v8xfZC2c9d164Jf5q6yFs75bD/wyv6qFs75bD/wyv7rtWd+tB37pq/SzvlsP /NLX8UnfrQd+6avVnDfibj3wK4LxPD963j+b/9v49fy9OW/E3Xrgl7vK3Zw3 4m498Mtd5Py9OW/E3XrgF/mteX70vH82/7fxW/P86Hn/bP5v4z9penRW3K0H fmmNvnpV3/1p/m/jt/rqVX03/Nf5rb56Vd8N/3V+q69e1XfDf53fqo0rayf8 bX6rNq6snfC3+a3bX/vrgN96/2jOL1MC/1X+Zv6ux/Gr9cCvCMffcj3wy6/U 4V6uB/7h+4fey/XAL3dR83dll+uBX/Iev4KeXa4HfmkP2p5drgd+aevYLtcD v7Sqz87qu3t8X8+v+uysvhv+Dr/qs7P6bvg7/FXWyqy+G/4Ov6qVmbUT/gt+ 9WvIrJ3wX/Ar+txfB/zW+0eyHPi1nzzvb/TArwTkzvsbPfDLr1Sx0/XAP3z/ SNcDv9zJ8/5GD/yCP3ve3+iBX9pDxp5fB/zW+0f2gl/ZTX33Sw/8w/ePdD3w D98/0vXAP3z/yF7wj98/shf84/eP7AX/+P0je8Gv/D0y4O/wN/N31t7VTuD5 dn56/s7euyv7Ubv8/MNjH2L/3Ar2MfbHYJ9iK/ZR9mx78Z/hHx/+Q/zyt3bh P8Cv9e128Lf75f128Lf74nbwt/vSxd/tV/xH+WpV4lvjZ/+r++DXeeKp8bP/ 1X3w6zzx1PjvI++7OU88NX7WtKvaVomnx8+adlXbiOfHz1u7vj3i2fHzWOc4 8eR4ry+uxLfEe30x8T3xXl9MfE+81H5tI54fH9U24vnxUW0jnh8f3x7x7Lhx nHhyvBjLSAc+Gl/Hn5kPfCy+1OE284GPxdfxNvOBj8UfNa5nzXzgY/HHLfas mQ98LP6A9ayZD3wsvo6tmQ98LF71yZ/2zb3z4J34KvvkT/tm8IvwRda6T/tm 8IvwVdY67Zv5wMfiVa2bqX3gF+DVbc7UPvAL8Ao+d7vgw/E6PpcOfDRercl0 4IPxs/P6Jh/4ULyev0/nAx+KP/vf2b75lQ98KP6seXdq3zsOfAx+dl7f5AMf ip+d1zf5wIfizzQ304EPxt/tm1/5wIfi7/bN4Nfg7/bN4Nfg7/bN4NfgPbUP fDzeU/vAx+N9tws+Gu9MBz4Y38zfJ5dTDvxNQt/n1gO//Ep1bbce+IfvH7Pb rQd+uYuav09atx74Zd7jlu9atx74pT3S3rVuPfBLW33WrQd+aVUfPeu79cAv 81fZR8/6bj3wy/xF1sJZ360Hfpm/ylo467v1wC/zq1o467v1wC/zq9ue9d16 4Je+Sj/ru/XAL30dn/TdeuCXvlrNeSPu1gO/IhjP86Pn/bP5v41fz9+b80bc rQd+uavczXkj7tYDv9xFzt+b80bcrQd+kd+a50fP+2fzfxu/Nc+PnvfP5v82 /pOmR2fF3Xrgl9boq1f13Z/m/zZ+q69e1XfDf53f6qtX9d3wX+e3+upVfTf8 1/mt2riydsLf5rdq48raCX+b37r9tb8O+K33j+b8MiXwX+Vv5u96HL9aD/yK cPwt1wO//Eod7uV64B++f+i9XA/8chc1f1d2uR74Je/xK+jZ5Xrgl/ag7dnl euCXto7tcj3wS6v67Ky+u8f39fyqz87qu+Hv8Ks+O6vvhr/DX2WtzOq74e/w q1qZWTvhv+BXv4bM2gn/Bb+iz/11wG+9fyTLgV/7yfP+Rg/8SkDuvL/RA7/8 ShU7XQ/8w/ePdD3wy50872/0wC/4s+f9jR74pT1k7Pl1wG+9f2Qv+JXd1He/ 9MA/fP9I1wP/8P0jXQ/8w/eP7AX/+P0je8E/fv/IXvCP3z+yF/zK3yMD/g5/ M39n7V3tBJ5v56fn7+y9u7IftcvPPzz2IfbPrWAfY38M9im2Yh9lz7YX/xn+ 8eE/xC9/axf+A/xa324Hf7tf3m8Hf7svbgd/uy9d/N1+xX+Ur1YlvjV+9r+6 D36dJ54aP/tf3Qe/zhNPjf8+8r6b88RT42dNu6ptlXh6/KxpV7WNeH78vLXr 2yOeHT+PdY4TT473+uJKfEu81xcT3xPv9cXE98RL7dc24vnxUW0jnh8f1Tbi +fHx7RHPjhvHiSfHi7GMdOCj8XX8mfnAx+JLHW4zH/hYfB1vMx/4WPxR43rW zAc+Fn/cYs+a+cDH4g9Yz5r5wMfi69ia+cDH4lWf/Gnf3DsP3omvsk/+tG8G vwhfZK37tG8GvwhfZa3TvpkPfCxe1bqZ2gd+AV7d5kztA78Ar+Bztws+HK/j c+nAR+PVmkwHPhg/O69v8oEPxev5+3Q+8KH4s/+d7Ztf+cCH4s+ad6f2vePA x+Bn5/VNPvCh+Nl5fZMPfCj+THMzHfhg/N2++ZUPfCj+bt8Mfg3+bt8Mfg3+ bt8Mfg3eU/vAx+M9tQ98PN53u+Cj8c504IPxzfx9cjnlwN8k9H1uPfDLr1TX duuBf/j+MbvdeuCXu6j5+6R164Ff5j1u+a5164Ff2iPtXevWA7+01WfdeuCX VvXRs75bD/wyf5V99Kzv1gO/zF9kLZz13Xrgl/mrrIWzvlsP/DK/qoWzvlsP /DK/uu1Z360Hfumr9LO+Ww/80tfxSd+tB37pq9WcN+JuPfArgvE8P3reP5v/ 2/j1/L05b8TdeuCXu8rdnDfibj3wy13k/L05b8TdeuAX+a15fvS8fzb/t/Fb 8/zoef9s/m/jP2l6dFbcrQd+aY2+elXf/Wn+b+O3+upVfTf81/mtvnpV3w3/ dX6rr17Vd8N/nd+qjStrJ/xtfqs2rqyd8Lf5rdtf++uA33r/aM4vUwL/Vf5m /q7H8av1wK8Ix99yPfDLr9ThXq4H/uH7h97L9cAvd1Hzd2WX64Ff8h6/gp5d rgd+aQ/anl2uB35p69gu1wO/tKrPzuq7e3xfz6/67Ky+G/4Ov+qzs/pu+Dv8 VdbKrL4b/g6/qpWZtRP+C371a8isnfBf8Cv63F8H/Nb7R7Ic+LWfPO9v9MCv BOTO+xs98MuvVLHT9cA/fP9I1wO/3Mnz/kYP/II/e97f6IFf2kPGnl8H/Nb7 R/aCX9lNffdLD/zD9490PfAP3z/S9cA/fP/IXvCP3z+yF/zj94/sBf/4/SN7 wa/8PTLg7/D/C9yZHio= "], {{0, 0}, {400, 400}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Several ListTricks symbols provide new ways of extracting structural \ elements. ", StyleBox["Portion", "Input"], " lets you extract the first half, third, fourth, etc. of a list:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>", ",", "\<\"d\"\>", ",", "\<\"e\"\>", ",", "\<\"f\"\>", ",", "\<\"g\"\>", ",", "\<\"h\"\>", ",", "\<\"i\"\>", ",", "\<\"j\"\>", ",", "\<\"k\"\>", ",", "\<\"l\"\>", ",", "\<\"m\"\>", ",", "\<\"n\"\>", ",", "\<\"o\"\>", ",", "\<\"p\"\>", ",", "\<\"q\"\>", ",", "\<\"r\"\>", ",", "\<\"s\"\>", ",", "\<\"t\"\>", ",", "\<\"u\"\>", ",", "\<\"v\"\>", ",", "\<\"w\"\>", ",", "\<\"x\"\>", ",", "\<\"y\"\>", ",", "\<\"z\"\>"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{"%", ",", RowBox[{"1", "/", "3"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>", ",", "\<\"d\"\>", ",", "\<\"e\"\>", ",", "\<\"f\"\>", ",", "\<\"g\"\>", ",", "\<\"h\"\>", ",", "\<\"i\"\>"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Period", "Input"], " extracts the repeating part of a list:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RealDigits", "[", RowBox[{ RowBox[{"5", "/", "17"}], ",", "10", ",", "50"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2", ",", "9", ",", "4", ",", "1", ",", "1", ",", "7", ",", "6", ",", "4", ",", "7", ",", "0", ",", "5", ",", "8", ",", "8", ",", "2", ",", "3", ",", "5", ",", "2", ",", "9", ",", "4", ",", "1", ",", "1", ",", "7", ",", "6", ",", "4", ",", "7", ",", "0", ",", "5", ",", "8", ",", "8", ",", "2", ",", "3", ",", "5", ",", "2", ",", "9", ",", "4", ",", "1", ",", "1", ",", "7", ",", "6", ",", "4", ",", "7", ",", "0", ",", "5", ",", "8", ",", "8", ",", "2", ",", "3", ",", "5", ",", "2", ",", "9"}], "}"}], ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Period", "[", RowBox[{"First", "[", "%", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "9", ",", "4", ",", "1", ",", "1", ",", "7", ",", "6", ",", "4", ",", "7", ",", "0", ",", "5", ",", "8", ",", "8", ",", "2", ",", "3", ",", "5"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Classification", "Subsection"], Cell["\<\ Part of manipulating objects is putting them in canonical form. ListTricks \ contains several functions for this sort of operation.\ \>", "Text"], Cell[TextData[{ StyleBox["CanonicalRotation", "Input"], " returns the rotation of a list that occurs first in a sorted listing of \ all rotations." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "40"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalRotation", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Classify", "Input"], " is a version of ", StyleBox["GatherBy", "Input"], " that returns the labels along with each group." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{ RowBox[{"GatherBy", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"2", ",", "50"}], "]"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"FactorInteger", "[", "#1", "]"}], "]"}], "&"}]}], "]"}], ",", "Center"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "8", ",", "9", ",", "11", ",", "13", ",", "16", ",", "17", ",", "19", ",", "23", ",", "25", ",", "27", ",", "29", ",", "31", ",", "32", ",", "37", ",", "41", ",", "43", ",", "47", ",", "49"}], "}"}]}, { RowBox[{"{", RowBox[{ "6", ",", "10", ",", "12", ",", "14", ",", "15", ",", "18", ",", "20", ",", "21", ",", "22", ",", "24", ",", "26", ",", "28", ",", "33", ",", "34", ",", "35", ",", "36", ",", "38", ",", "39", ",", "40", ",", "44", ",", "45", ",", "46", ",", "48", ",", "50"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "42"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Classify", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"2", ",", "50"}], "]"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"FactorInteger", "[", "#1", "]"}], "]"}], "&"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "8", ",", "9", ",", "11", ",", "13", ",", "16", ",", "17", ",", "19", ",", "23", ",", "25", ",", "27", ",", "29", ",", "31", ",", "32", ",", "37", ",", "41", ",", "43", ",", "47", ",", "49"}], "}"}], "1"}, { RowBox[{"{", RowBox[{ "6", ",", "10", ",", "12", ",", "14", ",", "15", ",", "18", ",", "20", ",", "21", ",", "22", ",", "24", ",", "26", ",", "28", ",", "33", ",", "34", ",", "35", ",", "36", ",", "38", ",", "39", ",", "40", ",", "44", ",", "45", ",", "46", ",", "48", ",", "50"}], "}"}], "2"}, { RowBox[{"{", RowBox[{"30", ",", "42"}], "}"}], "3"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["GroupActionMod", "Input"], " finds representatives of a list under the orbit of several functions.\n\ Here we \"mod out\" by reversal and complementation, leaving a list of tuples \ that are distinct under these operations:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "4"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroupActionMod", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"Reverse", ",", RowBox[{ RowBox[{"1", "-", "#"}], "&"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Searching", "Subsection"], Cell["\<\ ListTricks also includes some functions for searching and selecting.\ \>", "Text"], Cell[TextData[{ StyleBox["Case", "Input"], " and ", StyleBox["Occurrence", "Input"], " are specializations of ", StyleBox["Cases", "Input"], " and ", StyleBox["Position", "Input"], "; they return only the first match instead of all matches." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "3", ",", "4", ",", "e"}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData["3"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Occurrence", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "3", ",", "4", ",", "e"}], "}"}], ",", RowBox[{"Except", "[", "_Integer", "]"}]}], "]"}]], "Input"], Cell[BoxData["1"], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Best", "Input"], " finds the elements of a list that maximize fitness function." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Best", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g", ",", RowBox[{"Circle", "[", "]"}], ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<012\>\"", ",", "\"\<021\>\"", ",", "\"\<102\>\"", ",", "\"\<120\>\"", ",", "\"\<201\>\"", ",", "\"\<210\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "3", ",", "4", ",", "e"}], "}"}]}], "}"}], ",", "Length"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\<\"012\"\>", ",", "\<\"021\"\>", ",", "\<\"102\"\>", ",", "\<\"120\"\>", ",", "\<\"201\"\>", ",", "\<\"210\"\>"}], "}"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Sift", "Input"], " repeatedly generates a random object until finds one satisfying a certain \ condition." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sift", "[", RowBox[{ RowBox[{"RandomInteger", "[", "100000", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"FactorInteger", "[", "#", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}]], "Input"], Cell[BoxData["74569"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6779", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Package symbols", "Section"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Accumulate", "Input"], StyleBox[" (generalization)", "Text"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Accumulate"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"Accumulate[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives a list \ of the successive accumulated totals of elements in \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nAccumulate[{\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"e\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"3\\\", \ \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \ \*StyleBox[\\\"f\\\", \\\"TI\\\"]] forms {\*StyleBox[\\\"f\\\", \ \\\"TI\\\"][\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\)], \*StyleBox[\\\"f\\\", \ \\\"TI\\\"][\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\ \"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)], \*StyleBox[\\\"f\\\", \ \\\"TI\\\"][\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\ \"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\ \"e\\\", \\\"TI\\\"], StyleBox[\\\"3\\\", \\\"TR\\\"]]\)], \[Ellipsis]}.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Accumulate"]}]], "Print", "PrintUsage", CellTags->"Info3451501349-9423486"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", "28", ",", "36", ",", "45", ",", "55"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "Plus"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", "28", ",", "36", ",", "45", ",", "55"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "Times"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "24", ",", "120", ",", "720", ",", "5040", ",", "40320", ",", "362880", ",", "3628800"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "LCM"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "12", ",", "60", ",", "60", ",", "420", ",", "840", ",", "2520", ",", "2520"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "List"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"List", "/@", RowBox[{"Range", "[", "10", "]"}]}], ",", "Join"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"RandomSample", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "8", ",", "7", ",", "5", ",", "9", ",", "1", ",", "6", ",", "3", ",", "10"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{"data", ",", "Max"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "8", ",", "8", ",", "8", ",", "9", ",", "9", ",", "9", ",", "9", ",", "10"}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "data", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "f"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "1", "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "]"}], ",", RowBox[{"f", "[", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9"}], "]"}], ",", RowBox[{"f", "[", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "]"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "Sequence"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "4", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["AgreementLength", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "AgreementLength"}]], "Input"], Cell[BoxData[ StyleBox["\<\"AgreementLength[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"list\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]] gives the number of beginning \ entries for which several lists agree.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501367-9057210"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AgreementLength", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData["2"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AgreementLength", "[", RowBox[{ RowBox[{"IntegerDigits", "[", "1072934", "]"}], ",", RowBox[{"IntegerDigits", "[", "1072", "]"}]}], "]"}]], "Input"], Cell[BoxData["4"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ArrayMap", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ArrayMap"}]], "Input"], Cell[BoxData[ StyleBox["\<\"ArrayMap[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \ \*StyleBox[\\\"array\\\", \\\"TI\\\"], {\*StyleBox[\\\"level\\\", \ \\\"TI\\\"]}] applies \*StyleBox[\\\"f\\\", \\\"TI\\\"] to the subarrays of \ \*StyleBox[\\\"array\\\", \\\"TI\\\"] specified by \*StyleBox[\\\"level\\\", \ \\\"TI\\\"].\\nArrayMap[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \ \*StyleBox[\\\"array\\\", \\\"TI\\\"], {\*StyleBox[\\\"level\\\", \ \\\"TI\\\"]}, \*StyleBox[\\\"d\\\", \\\"TI\\\"]] applies \ \*StyleBox[\\\"f\\\", \\\"TI\\\"] along direction \*StyleBox[\\\"d\\\", \ \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501374-8412108"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "0", "0", "0", "0", "0"}, {"1", "1", "0", "0", "0", "0"}, {"1", "2", "1", "0", "0", "0"}, {"1", "3", "3", "1", "0", "0"}, {"1", "4", "6", "4", "1", "0"}, {"1", "5", "10", "10", "5", "1"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell["In a two-dimensional array, level 2 corresponds to columns.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"ArrayMap", "[", RowBox[{"RotateLeftTo", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1", "1", "1", "1"}, {"1", "2", "3", "4", "5", "0"}, {"1", "3", "6", "10", "0", "0"}, {"1", "4", "10", "0", "0", "0"}, {"1", "5", "0", "0", "0", "0"}, {"1", "0", "0", "0", "0", "0"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"d", "=", "2"}], "}"}], ",", RowBox[{"ArrayMap", "[", RowBox[{"Most", ",", RowBox[{"Apply", "[", RowBox[{ RowBox[{ SubscriptBox["a", "##1"], "&"}], ",", RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"Sequence", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}], ",", "1"}], "]"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { SubscriptBox["a", RowBox[{"0", ",", "0"}]], SubscriptBox["a", RowBox[{"0", ",", "1"}]], SubscriptBox["a", RowBox[{"0", ",", "2"}]]}, { SubscriptBox["a", RowBox[{"1", ",", "0"}]], SubscriptBox["a", RowBox[{"1", ",", "1"}]], SubscriptBox["a", RowBox[{"1", ",", "2"}]]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"d", "=", "2"}], "}"}], ",", RowBox[{"ArrayMap", "[", RowBox[{"Most", ",", RowBox[{"Apply", "[", RowBox[{ RowBox[{ SubscriptBox["a", "##1"], "&"}], ",", RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"Sequence", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}], ",", "2"}], "]"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { SubscriptBox["a", RowBox[{"0", ",", "0"}]], SubscriptBox["a", RowBox[{"0", ",", "1"}]]}, { SubscriptBox["a", RowBox[{"1", ",", "0"}]], SubscriptBox["a", RowBox[{"1", ",", "1"}]]}, { SubscriptBox["a", RowBox[{"2", ",", "0"}]], SubscriptBox["a", RowBox[{"2", ",", "1"}]]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[TextData[{ "The fourth argument is the dimension affected by ", StyleBox["ArrayMap", "Input"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"d", "=", "6"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"ArrayMap", "[", RowBox[{"Most", ",", RowBox[{"Outer", "[", RowBox[{"a", ",", RowBox[{"Sequence", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", "d", "}"}], ",", "#1"}], "]"}], "]"}], "&"}], ")"}], "/@", RowBox[{"Range", "[", "d", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"d", "=", "6"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"ArrayMap", "[", RowBox[{ RowBox[{ RowBox[{"{", "}"}], "&"}], ",", RowBox[{"Outer", "[", RowBox[{"a", ",", RowBox[{"Sequence", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"{", "d", "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", "d", "}"}], ",", "#1"}], "]"}], "]"}], "&"}], ")"}], "/@", RowBox[{"Range", "[", "d", "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Some ", StyleBox["ArrayMap", "Input"], " functionality can be achieved by ", StyleBox["MapThread", "Input"], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Grid", "[", RowBox[{"ArrayMap", "[", RowBox[{"RotateLeftTo", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"RotateLeftTo", "[", RowBox[{"{", "##", "}"}], "]"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1", "1", "1", "1"}, {"1", "2", "3", "4", "5", "0"}, {"1", "3", "6", "10", "0", "0"}, {"1", "4", "10", "0", "0", "0"}, {"1", "5", "0", "0", "0", "0"}, {"1", "0", "0", "0", "0", "0"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1", "1", "1", "1"}, {"1", "2", "3", "4", "5", "0"}, {"1", "3", "6", "10", "0", "0"}, {"1", "4", "10", "0", "0", "0"}, {"1", "5", "0", "0", "0", "0"}, {"1", "0", "0", "0", "0", "0"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Best", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Best"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Best[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"f\\\", \\\"TI\\\"]] gives the elements of \ \*StyleBox[\\\"list\\\", \\\"TI\\\"] that score highest under the fitness \ function \*StyleBox[\\\"f\\\", \\\"TI\\\"].\\nBest[\*StyleBox[\\\"list\\\", \ \\\"TI\\\"]] gives the largest elements of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501385-1312856"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Best", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", "Abs"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Best", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "3", "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["CanonicalRotation", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "CanonicalRotation"}]], "Input"], Cell[BoxData[ StyleBox["\<\"CanonicalRotation[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives \ the rotation of \*StyleBox[\\\"list\\\", \\\"TI\\\"] that appears first in \ canonical order.\\nCanonicalRotation[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"p\\\", \\\"TI\\\"]] uses the ordering function \ \*StyleBox[\\\"p\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501388-3366144"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalRotation", "[", RowBox[{"{", RowBox[{"g", ",", "b", ",", "d", ",", "f", ",", "a", ",", "c", ",", "e"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c", ",", "e", ",", "g", ",", "b", ",", "d", ",", "f"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomInteger", "[", RowBox[{"1", ",", "100"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalRotation", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell["\<\ CanonicalRotation[list] is effectively equivalent to \ First[GroupActionMod[{list}, RotateRight]]:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CanonicalRotation", "[", RowBox[{"{", RowBox[{"g", ",", "b", ",", "d", ",", "f", ",", "a", ",", "c", ",", "e"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"First", "[", RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ "g", ",", "b", ",", "d", ",", "f", ",", "a", ",", "c", ",", "e"}], "}"}], "}"}], ",", "RotateRight"}], "]"}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c", ",", "e", ",", "g", ",", "b", ",", "d", ",", "f"}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c", ",", "e", ",", "g", ",", "b", ",", "d", ",", "f"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Case", "Input"], " (a specialization of ", StyleBox["Cases", "Input"], ")" }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Case"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Case[{\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\ \"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"]] gives the first \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\) that matches \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], returning Null if no element is \ found.\\nCase[{\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TI\\\"]}, \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] \[Rule] \ \*StyleBox[\\\"rhs\\\", \\\"TI\\\"]] gives the value of rhs corresponding to \ the first \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\) that matches \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nCase[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"alt\\\", \\\"TI\\\"]] \ returns \*StyleBox[\\\"alt\\\", \\\"TI\\\"] rather than Null if no element is \ found.\\nCase[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"alt\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] finds the \*StyleBox[\\\"n\\\", \ \\\"TI\\\"]th matching element, where negative \*StyleBox[\\\"n\\\", \\\"TI\\\ \"] counts from the end of the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501438-9739974"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "4"}], "]"}], "\[Equal]", "3"}], "&"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData["3"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{ RowBox[{"a_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "4"}], "]"}], "\[Equal]", "3"}], "&"}], ")"}]}], "\[RuleDelayed]", SuperscriptBox["a", "2"]}]}], "]"}]], "Input"], Cell[BoxData["9"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"2", ",", "10"}], "]"}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "4"}], "]"}], "\[Equal]", "5"}], "&"}], ")"}]}], ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData["\<\"none\"\>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "4"}], "]"}], "\[Equal]", "3"}], "&"}], ")"}]}], ",", "\"\\"", ",", "2"}], "]"}]], "Input"], Cell[BoxData["7"], "Output"] }, Open ]], Cell["\<\ Find the smallest positive integer that can be written as a sum of two \ squares in at least three ways:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Case", "[", RowBox[{ RowBox[{"Range", "[", "1000", "]"}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"PowersRepresentations", "[", RowBox[{"#1", ",", "2", ",", "2"}], "]"}], "]"}], "\[GreaterEqual]", "3"}], "&"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData["325"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PowersRepresentations", "[", RowBox[{"325", ",", "2", ",", "2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "15"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Classify", "Input"], StyleBox[" (a variant of ", "Text"], StyleBox["GatherBy", "Input"], StyleBox[")", "Text"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Classify"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Classify[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] partitions the \ elements of \*StyleBox[\\\"list\\\", \\\"TI\\\"] into labeled equivalence \ classes {{{\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"11\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"12\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \ \!\(\*SubscriptBox[StyleBox[\\\"p\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\)}, {{\!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"21\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"22\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \ \!\(\*SubscriptBox[StyleBox[\\\"p\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\)}, \[Ellipsis]}.\\nClassify[\*StyleBox[\\\"list\\\", \ \\\"TI\\\"], \*StyleBox[\\\"f\\\", \\\"TI\\\"]] classifies elements by their \ values under \*StyleBox[\\\"f\\\", \ \\\"TI\\\"].\\nClassify[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"f\\\", \\\"TI\\\"], \*StyleBox[\\\"g\\\", \\\"TI\\\"]] applies \ \*StyleBox[\\\"g\\\", \\\"TI\\\"] to each element after it is \ classified.\\nClassify[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\"f\ \\\", \\\"TI\\\"], \*StyleBox[\\\"g\\\", \\\"TI\\\"], \*StyleBox[\\\"h\\\", \ \\\"TI\\\"]] applies \*StyleBox[\\\"h\\\", \\\"TI\\\"] to class.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501449-7217260"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Classify", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "20"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "4"}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4", ",", "8", ",", "12", ",", "16", ",", "20"}], "}"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "9", ",", "13", ",", "17"}], "}"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6", ",", "10", ",", "14", ",", "18"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7", ",", "11", ",", "15", ",", "19"}], "}"}], ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Classify", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "20"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "4"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Classify", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "20"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "4"}], "]"}], "&"}], ",", "Identity", ",", "Max"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", "10"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"9", ",", RowBox[{"-", "10"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "9"}], ",", "7", ",", "2"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Classify", "[", RowBox[{"data", ",", "Abs"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", RowBox[{"-", "9"}]}], "}"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "10"}], "}"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "3"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}]}], "}"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "6"}], "}"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "7", "}"}], ",", "7"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "data", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Classify", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["x", "2"]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "4"]}]}], ",", RowBox[{ RowBox[{"Count", "[", RowBox[{"#1", ",", SubscriptBox["x", "_"]}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["x", "2"]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"]}]}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["x", "3"], " ", SubscriptBox["x", "4"]}], ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ColumnWrap", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ColumnWrap"}]], "Input"], Cell[BoxData[ StyleBox["\<\"ColumnWrap[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"n\\\", \\\"TI\\\"]] wraps a list into at most \*StyleBox[\\\"n\\\", \ \\\"TI\\\"] columns.\\nColumnWrap[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] wraps a two\[Hyphen]dimensional array into \ at most \*StyleBox[\\\"n\\\", \\\"TI\\\"] \ super\[Hyphen]columns.\\nColumnWrap[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"], \*StyleBox[\\\"spacing\\\", \\\"TI\\\"]] \ leaves a space of size \*StyleBox[\\\"spacing\\\", \\\"TI\\\"] between \ successive super\[Hyphen]columns.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501466-9452781"] }, Open ]], Cell["This table would be very long without wrapping the columns.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ColumnWrap", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"DigitCount", "[", RowBox[{"n", ",", "2", ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "100"}], "}"}]}], "]"}], ",", "11"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "11", "3", "21", "3", "31", "5", "41", "3", "51", "4", "61", "5", "71", "4", "81", "3", "91", "5"}, {"2", "1", "12", "2", "22", "3", "32", "1", "42", "3", "52", "3", "62", "5", "72", "2", "82", "3", "92", "4"}, {"3", "2", "13", "3", "23", "4", "33", "2", "43", "4", "53", "4", "63", "6", "73", "3", "83", "4", "93", "5"}, {"4", "1", "14", "3", "24", "2", "34", "2", "44", "3", "54", "4", "64", "1", "74", "3", "84", "3", "94", "5"}, {"5", "2", "15", "4", "25", "3", "35", "3", "45", "4", "55", "5", "65", "2", "75", "4", "85", "4", "95", "6"}, {"6", "2", "16", "1", "26", "3", "36", "2", "46", "4", "56", "3", "66", "2", "76", "3", "86", "4", "96", "2"}, {"7", "3", "17", "2", "27", "4", "37", "3", "47", "5", "57", "4", "67", "3", "77", "4", "87", "5", "97", "3"}, {"8", "1", "18", "2", "28", "3", "38", "3", "48", "2", "58", "4", "68", "2", "78", "4", "88", "3", "98", "3"}, {"9", "2", "19", "3", "29", "4", "39", "4", "49", "3", "59", "5", "69", "3", "79", "5", "89", "4", "99", "4"}, {"10", "2", "20", "2", "30", "4", "40", "2", "50", "3", "60", "4", "70", "3", "80", "2", "90", "4", "100", "3"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{ "Columns" -> {Automatic, {Automatic, 3}, Automatic}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell["Dynamically change the number of super-columns:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ColumnWrap", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"DigitCount", "[", RowBox[{"n", ",", "2", ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "100"}], "}"}]}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "10", ",", "\"\\""}], "}"}], ",", "1", ",", "14", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 10, "columns"}, 1, 14, 1}}, Typeset`size$$ = { 621., {70., 75.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$2249$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$2249$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ListTricks`ColumnWrap[ Table[{$CellContext`n$$, DigitCount[$CellContext`n$$, 2, 1]}, {$CellContext`n$$, 100}], $CellContext`n$$], "Specifications" :> {{{$CellContext`n$$, 10, "columns"}, 1, 14, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{670., {116., 121.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Complements", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Complements"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Complements[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\ \"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\ \\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)] gives the list \ {Complement[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)], \ Complement[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\ \"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\)]}.\\nComplements[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"list\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\"3\\\", \\\ \"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]] gives {Complement[\ \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\ \"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"3\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\ \", \\\"TI\\\"]], Complement[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\ \\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\ \"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], \ StyleBox[\\\"3\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TI\\\"]], Complement[\!\(\*SubscriptBox[StyleBox[\\\"list\\\", \ \\\"TI\\\"], StyleBox[\\\"3\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"list\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\ \"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]], \ \[Ellipsis]}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501472-4954103"] }, Open ]], Cell["\<\ Complements gives information about the symmetric difference, and it keeps \ track of which list each element came from.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Complements", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"3", ",", "12"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Complements", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"i", ",", RowBox[{"i", "+", "m"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "3"}], "}"}], ",", "1", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "9"}], "}"}], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`m$$ = 3, $CellContext`n$$ = 9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`m$$], 3}, 1, 10, 1}, {{ Hold[$CellContext`n$$], 9}, 1, 10, 1}}, Typeset`size$$ = { 715.5, {22., 12.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`m$2313$$ = 0, $CellContext`n$2314$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 3, $CellContext`n$$ = 9}, "ControllerVariables" :> { Hold[$CellContext`m$$, $CellContext`m$2313$$, 0], Hold[$CellContext`n$$, $CellContext`n$2314$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Apply[ListTricks`Complements, Table[ Range[$CellContext`i, $CellContext`i + $CellContext`m$$], \ {$CellContext`i, 1, 100, $CellContext`n$$}]], "Specifications" :> {{{$CellContext`m$$, 3}, 1, 10, 1}, {{$CellContext`n$$, 9}, 1, 10, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{765., {75., 80.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["First", "Input"], StyleBox[" and ", "Text"], StyleBox["Last", "Input"], StyleBox[" (generalization)", "Text"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "First"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"First[\*StyleBox[\\\"expr\\\", \\\"TI\\\"]] gives the first \ element in \*StyleBox[\\\"expr\\\", \ \\\"TI\\\"].\\nFirst[\*StyleBox[\\\"expr\\\", \\\"TI\\\"], \ \*StyleBox[\\\"default\\\", \\\"TI\\\"]] gives the first element in \ \*StyleBox[\\\"expr\\\", \\\"TI\\\"], or \*StyleBox[\\\"default\\\", \\\"TI\\\ \"] if \*StyleBox[\\\"expr\\\", \\\"TI\\\"] has length 0.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/First"]}]], "Print", "PrintUsage", CellTags->"Info3451501543-2644142"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Last"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"Last[\*StyleBox[\\\"expr\\\", \\\"TI\\\"]] gives the last \ element in \*StyleBox[\\\"expr\\\", \\\"TI\\\"].\\nLast[\*StyleBox[\\\"expr\\\ \", \\\"TI\\\"], \*StyleBox[\\\"default\\\", \\\"TI\\\"]] gives the last \ element in \*StyleBox[\\\"expr\\\", \\\"TI\\\"], or \ \*StyleBox[\\\"default\\\", \\\"TI\\\"] if \*StyleBox[\\\"expr\\\", \ \\\"TI\\\"] has length 0.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Last"]}]], "Print", "PrintUsage", CellTags->"Info3451501545-7733826"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "1", ",", "4", ",", "3"}], "}"}], ",", "1"}], "]"}], ",", "None"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "1", "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "1", ",", "4", ",", "3"}], "}"}], ",", "2"}], "]"}], ",", "None"}], "]"}]], "Input"], Cell[BoxData["None"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["FixedPointPeriod", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "FixedPointPeriod"}]], "Input"], Cell[BoxData[ StyleBox["\<\"FixedPointPeriod[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \ \*StyleBox[\\\"expr\\\", \\\"TI\\\"]] gives the eventual period obtained by \ applying \*StyleBox[\\\"f\\\", \\\"TI\\\"] repeatedly to \ \*StyleBox[\\\"expr\\\", \ \\\"TI\\\"].\\nFixedPointPeriod[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \ \*StyleBox[\\\"expr\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] \ stops after at most \*StyleBox[\\\"n\\\", \\\"TI\\\"] steps.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501621-6302950"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointPeriod", "[", RowBox[{"Reverse", ",", RowBox[{"Range", "[", "5", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointPeriod", "[", RowBox[{ RowBox[{ RowBox[{"\[ImaginaryI]", " ", "#1"}], "&"}], ",", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "\[ImaginaryI]", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["FixedPointSet", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "FixedPointSet"}]], "Input"], Cell[BoxData[ StyleBox["\<\"FixedPointSet[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \*StyleBox[\\\ \"list\\\", \\\"TI\\\"]] iteratively applies a list\[Hyphen]valued function \ \*StyleBox[\\\"f\\\", \\\"TI\\\"] to each element of a list, adding the new \ elements obtained, until the result no longer \ changes.\\nFixedPointSet[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \ \*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\"g\\\", \\\"TI\\\"]] \ treats elements as distinct based on their images under the \\\"indicator\\\" \ function \*StyleBox[\\\"g\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501627-2279855"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointSet", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Mod", "[", RowBox[{ RowBox[{"#", "+", "2"}], ",", "10"}], "]"}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "0", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointSet", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Mod", "[", RowBox[{ RowBox[{"#", "+", "2"}], ",", "10"}], "]"}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "3"}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointSet", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Mod", "[", RowBox[{ RowBox[{"#", "+", "2"}], ",", "10"}], "]"}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "3"}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FixedPointSet", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"#", "+", "2"}], ",", "10"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"#", "+", "4"}], ",", "10"}], "]"}]}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "4", ",", "6", ",", "7", ",", "9", ",", "8", ",", "0"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["GroupActionMod", "Input"]], "Subsubsection", CellChangeTimes->{3.440686631179329*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "GroupActionMod"}]], "Input", CellChangeTimes->{3.440686670580329*^9}], Cell[BoxData[ StyleBox["\<\"GroupActionMod[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"f\\\", \\\"TI\\\"]] \\\"mods out\\\" a set of elements by a \ function \*StyleBox[\\\"f\\\", \\\"TI\\\"] with finite \ orbit.\\nGroupActionMod[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ {\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}] mods \ out by the subgroup generated by \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501631-3030458"] }, Open ]], Cell["\<\ Find representatives of the equivalence classes of 4-lenth binary words under \ rotation:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "4"}], "]"}], ",", "RotateRight"}], "]"}]], "Input", CellChangeTimes->{3.4406866722013283`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Find representatives under rotation and complementation:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "4"}], "]"}], ",", RowBox[{"{", RowBox[{"RotateRight", ",", RowBox[{ RowBox[{"1", "-", "#"}], "&"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.4406866731193285`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Modding out by one operation and then another is not always the same as \ modding out by both:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "4"}], "]"}], ",", "RotateRight"}], "]"}], ",", RowBox[{ RowBox[{"1", "-", "#"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.440686674009329*^9, 3.4406866752693286`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ If the list is not closed under the functions, then it's possible to get \ elements that aren't in the original list:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"-", "#"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{3.4406866763143287`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["GroupActionMod", "Input"], " only handles group action elements with a finite orbit. It assumes that \ the operations generate a finite group acting on the objects. It assumes \ that applying a function to an element produces an explicit element." }], "Text", CellChangeTimes->{3.4406867017343283`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TimeConstrained", "[", RowBox[{ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "f"}], "]"}], ",", "5"}], "]"}]], "Input"], Cell[BoxData["$Aborted"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TimeConstrained", "[", RowBox[{ RowBox[{"GroupActionMod", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{ RowBox[{"#", "+", "1"}], "&"}]}], "]"}], ",", "5"}], "]"}]], "Input"], Cell[BoxData["$Aborted"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["MapAcross", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "MapAcross"}]], "Input"], Cell[BoxData[ StyleBox["\<\"MapAcross[{\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\ \"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, {\!\(\*SubscriptBox[StyleBox[\\\ \"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}] gives \ {\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\)[\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\)], \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\)[\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]]\)], \[Ellipsis]}.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501663-3940611"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAcross", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["f", "1"], ",", SubscriptBox["f", "2"], ",", SubscriptBox["f", "3"], ",", SubscriptBox["f", "4"], ",", SubscriptBox["f", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"], ",", SubscriptBox["x", "4"], ",", SubscriptBox["x", "5"]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["f", "1"], "[", SubscriptBox["x", "1"], "]"}], ",", RowBox[{ SubscriptBox["f", "2"], "[", SubscriptBox["x", "2"], "]"}], ",", RowBox[{ SubscriptBox["f", "3"], "[", SubscriptBox["x", "3"], "]"}], ",", RowBox[{ SubscriptBox["f", "4"], "[", SubscriptBox["x", "4"], "]"}], ",", RowBox[{ SubscriptBox["f", "5"], "[", SubscriptBox["x", "5"], "]"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAcross", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["#1", "4"], "&"}], ",", RowBox[{ FractionBox["#1", "2"], "&"}]}], "}"}], ",", RowBox[{"First", "/@", RowBox[{"Classify", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "20", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "4"}], "]"}], "&"}]}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "9"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["MapList", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "MapList"}]], "Input"], Cell[BoxData[ StyleBox["\<\"MapList[\*StyleBox[\\\"f\\\", \\\"TI\\\"], \*StyleBox[\\\"list\ \\\", \\\"TI\\\"]] applies \*StyleBox[\\\"f\\\", \\\"TI\\\"] to each element \ of \*StyleBox[\\\"list\\\", \\\"TI\\\"] independently, returning a list of \ lists which differ from \*StyleBox[\\\"list\\\", \\\"TI\\\"] in only one \ position each.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501667-4475581"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapList", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", "1"}], "&"}], ",", RowBox[{"Range", "[", "4", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapList", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#1", ",", "0"}], "]"}], "&"}], ",", RowBox[{"List", "/@", RowBox[{"Range", "[", "4", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4141551800625*^9, 3.4141551925*^9}, { 3.414155225921875*^9, 3.414155226875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Multisets", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Multisets"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Multisets[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives all multisets of \*StyleBox[\\\"list\ \\\", \\\"TI\\\"] containing at most \*StyleBox[\\\"n\\\", \\\"TI\\\"] \ elements.\\nMultisets[\*StyleBox[\\\"list\\\", \\\"TI\\\"], {\*StyleBox[\\\"n\ \\\", \\\"TI\\\"]}] gives all multisets containing exactly \*StyleBox[\\\"n\\\ \", \\\"TI\\\"] elements.\\nMultisets[\*StyleBox[\\\"list\\\", \\\"TI\\\"], {\ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\ \\\"max\\\", \\\"TI\\\"]]\)}] gives all multisets containing between \ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\) and \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]\) elements.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501674-2042943"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multisets", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "3"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "c", ",", "c"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multisets", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "4"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["NextTuple", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "NextTuple"}]], "Input"], Cell[BoxData[ StyleBox["\<\"NextTuple[\*StyleBox[\\\"tuple\\\", \\\"TI\\\"], \*StyleBox[\\\ \"list\\\", \\\"TI\\\"]] gives the tuple following \*StyleBox[\\\"tuple\\\", \ \\\"TI\\\"] in the \\\"integer counting\\\" order implied by \ \*StyleBox[\\\"list\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501679-3286371"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NextTuple", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "a", ",", "b"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NextTuple", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "d", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"b", ",", "a", ",", "a"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NextTuple", "[", RowBox[{ RowBox[{"{", RowBox[{ "3", ",", "1", ",", "5", ",", "1", ",", "2", ",", "2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"Range", "[", "5", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "1", ",", "5", ",", "1", ",", "2", ",", "2", ",", "5", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NextTuple", "[", RowBox[{ RowBox[{"{", RowBox[{ "3", ",", "1", ",", "5", ",", "1", ",", "2", ",", "2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "5", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "1", ",", "5", ",", "1", ",", "2", ",", "2", ",", "4", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FromDigits", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"NextTuple", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{ SuperscriptBox["2", "4"], "-", "1"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FromDigits", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"NextTuple", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{ SuperscriptBox["2", "4"], "-", "1"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "15", ",", "14", ",", "13", ",", "12", ",", "11", ",", "10", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "0"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Occurrence", "Input"], " (a specialization of ", StyleBox["Position", "Input"], ")" }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Occurrence"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Occurrence[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"]] gives the position of the first element in \ \*StyleBox[\\\"list\\\", \\\"TI\\\"] that matches \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"], returning Null if no element is \ found.\\nOccurrence[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] \[Rule] \*StyleBox[\\\"f\\\", \ \\\"TI\\\"]] applies \*StyleBox[\\\"f\\\", \\\"TI\\\"] to the position of the \ matching element.\\nOccurrence[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"alt\\\", \\\"TI\\\"]] \ return \*StyleBox[\\\"alt\\\", \\\"TI\\\"] rather than Null if no element is \ found.\\nOccurrence[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"alt\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] find the \*StyleBox[\\\"n\\\", \ \\\"TI\\\"]th matching element, where negative \*StyleBox[\\\"n\\\", \\\"TI\\\ \"] counts from the end of the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501685-8105256"] }, Open ]], Cell["\<\ This finds the tenth occurrence of 3 in the digits of \[Pi].\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Occurrence", "[", RowBox[{ RowBox[{"First", "[", RowBox[{"RealDigits", "[", RowBox[{"N", "[", RowBox[{"Pi", ",", "100"}], "]"}], "]"}], "]"}], ",", "3", ",", ",", "10"}], "]"}]], "Input"], Cell[BoxData["65"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Occurrence", "[", RowBox[{ RowBox[{"First", "[", RowBox[{"RealDigits", "[", RowBox[{"N", "[", RowBox[{"Pi", ",", "100"}], "]"}], "]"}], "]"}], ",", RowBox[{"3", "\[Rule]", "FactorInteger"}], ",", ",", "10"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Occurrence", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3"}], "}"}], ",", "1", ",", "Null", ",", RowBox[{"-", "2"}]}], "]"}]], "Input"], Cell[BoxData["7"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["PartitionAfter", "Input"], " and ", StyleBox["PartitionBefore", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PartitionAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"PartitionAfter[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] partitions \*StyleBox[\\\"list\\\", \ \\\"TI\\\"] by placing a break after each element matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"].\\nPartitionAfter[\*StyleBox[\\\"list\ \\\", \\\"TI\\\"], \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] places a break after each of the first \ \*StyleBox[\\\"n\\\", \\\"TI\\\"] such elements.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501690-6293151"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitionAfter", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{ RowBox[{"10", "!"}], ",", "2"}], "]"}], ",", "0"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PartitionBefore"}]], "Input"], Cell[BoxData[ StyleBox["\<\"PartitionBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] partitions \*StyleBox[\\\"list\\\", \ \\\"TI\\\"] by placing a break before each element matching \ \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nPartitionBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] \ places a break before the first \*StyleBox[\\\"n\\\", \\\"TI\\\"] such \ elements.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501692-9148757"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitionBefore", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{ RowBox[{"10", "!"}], ",", "2"}], "]"}], ",", "0"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["PartitionAt", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PartitionAt"}]], "Input"], Cell[BoxData[ StyleBox["\<\"PartitionAt[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ {\!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}] \ partitions \*StyleBox[\\\"list\\\", \\\"TI\\\"] by placing breaks after \ positions \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\ \"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TI\\\"].\\nPartitionAt[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] places a break after position \ \*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501694-6112587"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitionAt", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitionAt", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g"}], "}"}], ",", "2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "g"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitionAt", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "4", ",", "5", ",", "7", ",", "7"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "e", "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "g"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "/@", RowBox[{"PartitionAt", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ SuperscriptBox["2", "7"], "-", "1"}]}], "]"}], ",", SuperscriptBox["2", RowBox[{"Range", "[", "6", "]"}]]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "5", ",", "22", ",", "92", ",", "376", ",", "1520", ",", "6112"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"n", "-", "3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["2", "n"]}], "-", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "5", ",", "22", ",", "92", ",", "376", ",", "1520", ",", "6112", ",", "24512", ",", "98176", ",", "392960"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Period", "Input"], StyleBox[" and ", "Text"], StyleBox["PeriodLength", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Period"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Period[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives the \ repetition period of \*StyleBox[\\\"list\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501704-7654305"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Period", "[", RowBox[{"{", RowBox[{ "a", ",", "b", ",", "c", ",", "a", ",", "b", ",", "c", ",", "a", ",", "b"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Period", "[", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "1", "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PeriodLength"}]], "Input"], Cell[BoxData[ StyleBox["\<\"PeriodLength[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives the \ period length of \*StyleBox[\\\"list\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print",\ "PrintUsage", CellTags->"Info3451501707-1292380"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PeriodLength", "[", RowBox[{"{", RowBox[{ "a", ",", "b", ",", "c", ",", "a", ",", "b", ",", "c", ",", "a", ",", "b"}], "}"}], "]"}]], "Input"], Cell[BoxData["3"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PeriodLength", "[", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input"], Cell[BoxData["1"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PeriodLength", "[", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "1", ",", "1"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"PeriodLength", "::", "\<\"twoperiods\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The list \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({1, 1, 2, 1, 1}\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" does not contain two \ full periods.\\\\\\\"\\\", \\\"MT\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData["3"], "Output"] }, Open ]], Cell["\<\ Find the period of digits in the binary representation of 1/163:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Period", "[", RowBox[{"Most", "[", RowBox[{"First", "[", RowBox[{"RealDigits", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox["1", "163"], ",", "100"}], "]"}], ",", "2"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%", "]"}]], "Input"], Cell[BoxData["162"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Portion", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Portion"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Portion[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives the first \ half of \*StyleBox[\\\"list\\\", \\\"TI\\\"].\\nPortion[\*StyleBox[\\\"list\\\ \", \\\"TI\\\"], 1/\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives the first \ (1/\*StyleBox[\\\"n\\\", \\\"TI\\\"])th of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nPortion[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"frac\\\", \\\"TI\\\"], \*StyleBox[\\\"i\\\", \\\"TI\\\"]] \ gives the \*StyleBox[\\\"i\\\", \\\"TI\\\"]th \*StyleBox[\\\"frac\\\", \\\"TI\ \\\"]th part of \*StyleBox[\\\"list\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501714-1964925"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{"Range", "[", "11", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{ RowBox[{"Range", "[", "11", "]"}], ",", FractionBox["1", "2"]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{ RowBox[{"Range", "[", "11", "]"}], ",", FractionBox["1", "2"], ",", "2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"7", ",", "8", ",", "9", ",", "10", ",", "11"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{ RowBox[{"Range", "[", "11", "]"}], ",", FractionBox["2", "3"]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}]], "Output"] }, Open ]], Cell["Extract the middle third of a list:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Portion", "[", RowBox[{ RowBox[{"Range", "[", "100", "]"}], ",", FractionBox["1", "3"], ",", "2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "65", ",", "66", ",", "67"}], "}"}]], "Output"] }, Open ]], Cell["A list is always partitioned by its portions:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"And", "@@", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Range", "[", "r", "]"}], "\[Equal]", RowBox[{"Join", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Portion", "[", RowBox[{ RowBox[{"Range", "[", "r", "]"}], ",", FractionBox["1", "n"], ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"r", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData["True"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["RaggedPartition", "Input"], StyleBox[" (a specialization of ", "Text"], StyleBox["Partition", "Input"], StyleBox[")", "Text"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "RaggedPartition"}]], "Input"], Cell[BoxData[ StyleBox["\<\"RaggedPartition[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] partitions \*StyleBox[\\\"list\\\", \\\"TI\ \\\"] into non\[Hyphen]overlapping sublists of length \*StyleBox[\\\"n\\\", \ \\\"TI\\\"], where any remaining elements are placed in a list of length \ <\*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501725-6321139"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"RaggedPartition", "[", RowBox[{ RowBox[{"Range", "[", "20", "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "9"}], "}"}], ",", "1", ",", "30", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 9}, 1, 30, 1}}, Typeset`size$$ = { 190., {17.5, 22.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$2658$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 9}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$2658$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Grid[ ListTricks`RaggedPartition[ Range[20], $CellContext`n$$]], "Specifications" :> {{{$CellContext`n$$, 9}, 1, 30, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{256., {64., 69.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Riffle", "Input"], StyleBox[" (generalization)", "Text"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Riffle"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Riffle\\\", \\\"[\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}], \\\",\\\", StyleBox[\\\"x\\\", \\\"TI\\\"]}], \\\"]\\\"}]\) gives \ \!\(\*RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"x\\\", \ \\\"TI\\\"], \\\",\\\", SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"x\\\", \\\"TI\\\"], \ \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]\).\\n\!\(\ \*RowBox[{\\\"Riffle\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) gives \!\(\*RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"e\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\ \"}]\).\\n\!\(\*RowBox[{\\\"Riffle\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"x\\\", \\\ \"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\"TI\\\"]}], \\\"]\\\"}]\) yields \ a list in which every \!\(\*StyleBox[\\\"n\\\", \ \\\"TI\\\"]\)\!\(\*SuperscriptBox[\\\"\[Null]\\\", \\\"th\\\"]\) element is \ \!\(\*StyleBox[\\\"x\\\", \\\"TI\\\"]\).\\n\!\(\*RowBox[{\\\"Riffle\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\ \"x\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"n\\\", \ \\\"TI\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) yields a list in which \ \!\(\*StyleBox[\\\"x\\\", \\\"TI\\\"]\) appears if possible at positions \!\(\ \*SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\), \!\(\*RowBox[{Cell[BoxData[SubscriptBox[StyleBox[\\\"i\\\", \ \\\"TI\\\"], StyleBox[\\\"min\\\", \\\"TI\\\"]]], \\\"InlineFormula\\\"], \ \\\"+\\\", StyleBox[\\\"n\\\", \\\"TI\\\"]}]\), \ \!\(\*RowBox[{SubscriptBox[StyleBox[\\\"i\\\", \\\"TI\\\"], \ StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\"+\\\", RowBox[{\\\"2\\\", StyleBox[\\\ \"n\\\", \\\"TI\\\"]}]}]\), \[Ellipsis] , \!\(\*SubscriptBox[StyleBox[\\\"i\\\ \", \\\"TI\\\"], StyleBox[\\\"max\\\", \ \\\"TI\\\"]]\).\\nRiffle[{{\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"a\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TI\\\"]}, {\!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\ \\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \[Ellipsis], \ {\!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}}] \ gives {\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\ \"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \ \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"], \ \!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\ \", \\\"TI\\\"], \!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TI\\\"]}.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Riffle"]}]], "Print", "PrintUsage", CellTags->"Info3451501740-9192097"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Riffle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"\[ExponentialE]", ",", "\[Pi]", ",", "\[ImaginaryI]"}], "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "a", ",", "\[ExponentialE]", ",", "2", ",", "b", ",", "\[Pi]", ",", "3", ",", "c", ",", "\[ImaginaryI]"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["RotateClockwise", "Input"], StyleBox[" and ", "Text"], StyleBox["RotateCounterClockwise", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "RotateClockwise"}]], "Input"], Cell[BoxData[ StyleBox["\<\"RotateClockwise[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] rotates \*StyleBox[\\\"array\\\", \\\"TI\\\ \"] clockwise \*StyleBox[\\\"n\\\", \\\"TI\\\"] \ times.\\nRotateClockwise[\*StyleBox[\\\"array\\\", \\\"TI\\\"]] rotates \ clockwise once.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501745-1327919"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "RotateCounterClockwise"}]], "Input"], Cell[BoxData[ StyleBox["\<\"RotateCounterClockwise[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] rotates \*StyleBox[\\\"array\\\", \\\"TI\\\ \"] counter\[Hyphen]clockwise \*StyleBox[\\\"n\\\", \\\"TI\\\"] \ times.\\nRotateCounterClockwise[\*StyleBox[\\\"array\\\", \\\"TI\\\"]] \ rotates counter\[Hyphen]clockwise once.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501746-4446176"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"a", "b", "c", "d"}, {"e", "f", "g", "h"}, {"i", "j", "k", "l"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"RotateClockwise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}]}], "}"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"i", "e", "a"}, {"j", "f", "b"}, {"k", "g", "c"}, {"l", "h", "d"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"RotateClockwise", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}]}], "}"}], ",", "2"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"l", "k", "j", "i"}, {"h", "g", "f", "e"}, {"d", "c", "b", "a"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"RotateCounterClockwise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}]}], "}"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"d", "h", "l"}, {"c", "g", "k"}, {"b", "f", "j"}, {"a", "e", "i"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["RotateLeftTo", "Input"], " and ", StyleBox["RotateRightTo", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "RotateLeftTo"}]], "Input"], Cell[BoxData[ StyleBox["\<\"RotateLeftTo[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\ \\\"pattern\\\", \\\"TI\\\"]] rotates \*StyleBox[\\\"list\\\", \\\"TI\\\"] \ left until an element matching \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] is in \ the first position. If no such element exists, \*StyleBox[\\\"list\\\", \ \\\"TI\\\"] is returned.\\nRotateLeftTo[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] \ rotates \*StyleBox[\\\"list\\\", \\\"TI\\\"] left until a nonzero element is \ in the first position.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501760-6929655"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateLeftTo", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", SqrtBox["5"], ",", "1.2`", ",", "\[Pi]"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateLeftTo", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "RotateRightTo"}]], "Input"], Cell[BoxData[ StyleBox["\<\"RotateRightTo[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] rotates \*StyleBox[\\\"list\\\", \ \\\"TI\\\"] right until an element matching \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"] is in the last position. If no such element exists, \*StyleBox[\\\ \"list\\\", \\\"TI\\\"] is returned.\\nRotateRightTo[\*StyleBox[\\\"list\\\", \ \\\"TI\\\"]] rotates \*StyleBox[\\\"list\\\", \\\"TI\\\"] right until a \ nonzero element is in the last position.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501762-8803465"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateRightTo", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ SqrtBox["5"], ",", "1.2`", ",", "\[Pi]", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateRightTo", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "2"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Shear", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Shear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Shear[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] rotates each row of \*StyleBox[\\\"array\\\ \", \\\"TI\\\"] by \*StyleBox[\\\"n\\\", \\\"TI\\\"] with respect to the \ previous row.\\nShear[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \*StyleBox[\\\"x\ \\\", \\\"TI\\\"], \*StyleBox[\\\"r\\\", \\\"TI\\\"]] shears \ \*StyleBox[\\\"array\\\", \\\"TI\\\"] at the angle \ ArcTan[\*StyleBox[\\\"x\\\", \\\"TI\\\"]] and additionally rotates each row \ by \*StyleBox[\\\"r\\\", \\\"TI\\\"].\\nShear[\*StyleBox[\\\"array\\\", \ \\\"TI\\\"], {\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\ \"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TI\\\"]}] rotates each subarray on level 1 of \*StyleBox[\\\"array\\\", \ \\\"TI\\\"] by the vector {\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"x\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TI\\\"]} with respect to the previous subarray.\\nThe \ option Axis \[Rule] \*StyleBox[\\\"align\\\", \\\"TI\\\"] specifies a \ subarray that is to remain unrotated; possible values are Top, Center, \ Bottom, or the position of the subarray.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501767-3431690"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Shear", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, {"9", "10", "1", "2", "3", "4", "5", "6", "7", "8"}, {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"7", "8", "9", "10", "1", "2", "3", "4", "5", "6"}, {"6", "7", "8", "9", "10", "1", "2", "3", "4", "5"}, {"5", "6", "7", "8", "9", "10", "1", "2", "3", "4"}, {"4", "5", "6", "7", "8", "9", "10", "1", "2", "3"}, {"3", "4", "5", "6", "7", "8", "9", "10", "1", "2"}, {"2", "3", "4", "5", "6", "7", "8", "9", "10", "1"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Shear", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], ",", FractionBox["1", "2"]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, {"9", "10", "1", "2", "3", "4", "5", "6", "7", "8"}, {"9", "10", "1", "2", "3", "4", "5", "6", "7", "8"}, {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"7", "8", "9", "10", "1", "2", "3", "4", "5", "6"}, {"7", "8", "9", "10", "1", "2", "3", "4", "5", "6"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Shear", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], ",", "2", ",", "3"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"6", "7", "8", "9", "10", "1", "2", "3", "4", "5"}, {"4", "5", "6", "7", "8", "9", "10", "1", "2", "3"}, {"2", "3", "4", "5", "6", "7", "8", "9", "10", "1"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"6", "7", "8", "9", "10", "1", "2", "3", "4", "5"}, {"4", "5", "6", "7", "8", "9", "10", "1", "2", "3"}, {"2", "3", "4", "5", "6", "7", "8", "9", "10", "1"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Shear", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], ",", "3", ",", RowBox[{"Axis", "\[Rule]", "5"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"3", "4", "5", "6", "7", "8", "9", "10", "1", "2"}, {"10", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, {"7", "8", "9", "10", "1", "2", "3", "4", "5", "6"}, {"4", "5", "6", "7", "8", "9", "10", "1", "2", "3"}, {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, {"8", "9", "10", "1", "2", "3", "4", "5", "6", "7"}, {"5", "6", "7", "8", "9", "10", "1", "2", "3", "4"}, {"2", "3", "4", "5", "6", "7", "8", "9", "10", "1"}, {"9", "10", "1", "2", "3", "4", "5", "6", "7", "8"}, {"6", "7", "8", "9", "10", "1", "2", "3", "4", "5"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Shear", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{"30", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", "100"}], "]"}], ",", RowBox[{"Axis", "\[Rule]", "Bottom"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzdl2uS2zgMhIm9yV4pR0jV/s4591aJRkL3B1oSZY9tyWF5xnpQJBrdDcj/ /vz14+c/rbX//vz936YR8ecT88HX//lrOpjvfN2br82Tl6sRy3M+b8vs+evr lpbI04bHOWM+nW/ndjnX++ty42bhGOc1My492LT4slFezdAC55Gz5+21k/A3 bxlzGrrHkcUMRzCBGClh/Jl8xaXZTFxmXhHlKuElTWzeIv7kcInWwPXfWcx/ zo9zIjYiGD9VYya1fWi2peTQIA4lxskjfost1WDgzp3PnVlcEF8MjTFueUSJ 83GhBhGGQOiKE61AJAzSA2vReJJ7zQnY8AJgZNUjPswkFmqaFk3GRWhidyKp l0IPrQXjhachJ/Z43gGQbY/YtuY5n5WZ7VARKuy5VaeXJVmdwmA8r9XlhOQG YAw84kwSbc6XDBlVQ4DNgqRelmTdKKx538DeUDTJbQXGwCOWAdDqqojRDGsS agOF1gaWtl0zosa9A5FAdh2MgUdgOsUhcTSGnCu0Go9kz9IQZWmxll+BvSEY yd2CXWVk1SMynVay67xjznBalA3LuSkw6dDOsz+UT3sKZ6wkW4ysekSka6Wc wx0tpC4eCa66Gq6hMbC7LFPOtMDq2PWIs2vbkpo64yaejNRTleLiQmOCcUyJ CMb8bUZWPeJDCYTUQBZMi0kTF1a4rhlhRN1dYveZJbs5dj2SKbKakXwIDKsh dbI7BONrVeveXUH7DF7bBbLtkXAoQNvK1YZht1uyWBXXnGPsHgxahaF4bczI qkcQCqNjYNHwSQsoQc4GeFWA+uhRTXBhUBSDsesRJMvRMbAW+KjKgMMqEV/j g3hU2wTnDtkgI6seUbIQXc4xX8ov7zM/Ha+gJFp5tNQRzz0AY+CRzIR21xzx hfwGnpKUlFXmrD4oDLWOeO6hseuRtGL4WOITM/CySEvGXH2cs+5Br+eSgfgP whh4xIfLsalJARq95OPwcllj7B7Mp3QztJtB3cfIqkccYgugXaYjm2lcYwEr zIwf1GT4J3K3zOEdY9cjCjGINrPdiD6XQniap8zY+YEt5R/BMaz7GVn1SJR8 ZZzh+KCdgqWw0oy3pqbzT3i9O9kgI6se6etNBqH4RGCxR2EljK2kxqxolVIh HgCy7ZFabxKL48tojaWIBpUpTVyLAD1dSX8IyLZHlC8VqxJfEF4NDydKlOA6 b82rUOIPAtn2iJztY1ROwkOB0FdypjrK1aG/AuBBGAOP+NCp03YFHgqET5om 5hLwfClUDSs9DmTbI6k1HSdFrYdnxDpxjrRE77ZW9n+cjcjUbHkk1WsCTAbh GXyeLAuJiyiLRrmg3Hxr7HpkpY9YC1HBRzMelTXkuXObL0Oo3wSy7RFTJWWz Pib4UPyswSJHcrPBnH7k5dtA7uojji3paBl/oAuIW8QtgzH9yMu3gWx7RDks +UQFSzbEAYuA1gATQTYWdM+AMfCIZYFjFyKxkRGVIqBzMFHZ0DJPArLtkZs+ EoKbqHi/1jiJnwZLWeZ4FoyBRxyIjtUlpCnprNS4cF5Ubo1Kn6cC2fZIl+Mw zsSQgaIqo3xpkcbFWgDeM4Ec7iNNMeYk4y8ECFDew5xgXp4LZNsjpip8E/5B 7QJu8wNRqk48q2+sADncR1ykaqDBAgBAFGX2GJfm5wPZ9khmzilV6it+aAuA IMrQ6q9gQzHmBr1HsgNkVL5X8BdtCZApNU0vYmMBsu2R0kd0z01BPDl0iVC2 AE2vYiMQ0aiP4F6EFVK9T4UmYvXDF7Kx7Haoj/iemkK6RphRsxOsesZL2VC4 Me4juicC6X2dSUMucq7KrwZyqI+AHrshw8vUQ0NuOS/qGytADvWRkIGTpnB4 6X9oSNBe7Q3EcKSPwMA52xqyt6VBG+YdbGj73HC7j7QyXS0B5VngK11vgnG0 j5Tpagwszxl2R9e7YBztI56OxmAKTZ0IfXnfWAEy7CMaKkT5pOzj+lty8F4g wz4CN0S1iyqt62/a670wjvURi6zapTls5UL2OgHIsI80ILTMjEC2SIm+H8ax PkKEatxGgFy8sW+sABn2ESJMmQFBFoRIMGcBGfQRC4syo8sjgOxEIIM+4svz /A6BWsmJbMyBjfoIKpaZU89IQZ7KhsKNvT5S3qyEAB3wnL7Rj1EfqW9W6oju gGf1jX6M+ojePuToWGbrffd8NqYx6CN6+2imTGzMsy4BY9RHIt8+8kBvh3r+ jKDXxn4fiegOmt6Az+4b/djzSIOaZJhk6CreyLHjEYBDcXIJOzfwfmx7hODQ +VzCrjU2PRIE55p12u+N0djySAEXrlmX6Rv92PKI43bNEktXHOseweuIi9c8 /8xg98a6R/A6IrldrG/0Y80jjaj0i+rCbExjzSN4HdG7+qXZmMaaR9RJ3Mev zcY0bj1SfivpV8nlx61H/P6+4Ls+G9O49UiU+D+CjWnceqTG/yEwbj2SrfBy vzdGo/dI9o/L941+9B4RO5/ExjQ6j6TEPouNaXQeSZecHdb9o3rkwr83RqN1 AD6SjWn0AD4URvHIZ3ojBzzyuWxMwx75aBjwyNmBfHd8zO+N0fjYvtGPv4KN afwlMCJ+A50GPXE= "], {{0, 0}, {201, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->200]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Shear", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{"30", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", "100"}], "]"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"Axis", "\[Rule]", "Bottom"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzdl2uWq0YMhFvZSbaUJdxz8jvrzK5yGVDVpzbQjMc2EB3PmEejVqlUEv7z 1z9//fqjtfb3779/22QRvz8xH3z9n7+mg/nO17352rx4uRqxPOfztqyev75u yUWeNjzOFfPpfDu3y7XeX5cbN5vD0q02n85f8iX3y1Z5NYMLnEeuTt8BFyEU y5UA9PyPPGY4AgrMSIoRK0qmU+uZvMy+Yko/YacmN28xA8njEq+h67/zmP+c IWdFjJT4jYrpbI5fi/I4SzAMjelUPpT+UnkoD0B39nzu3OKCOGNoywFrZ0Ur Sp6PCz2IMQRDV5xshaLyIEWQGAWooq9ZASN2UFhZ1YoPM5GFnia3ybtITfRO JqumUESJQYDhZciK1Z53CpRtrVjAZjuflqytVZEq9LlZVzVLuro6gwDtq8sK CY4CZKAVZ5N4c72KkXE1hNhclqyaJV0Pdda8b2Bv1DUJbh2QgVZcDMCrqyJH K1yZqDnQ6AqBawVlIXPvQCQovgcgA61AfopEJdIYdHpoNSKVP5tEFNdiLr8C e6NoVPQu2w1WVrUi+cmX9ec9c4UTo3yIl7zoRmC33kx9IbMT9Yw9ZZuVVa2I evnKNdzT5dRFpLKr+oZ6KBDsLumUMznYsF2tOMMWMOmpKx4iyli9VGkuajQq CMi0iGSs32NlVSs+VJmQHhQHE2PixIcrXdeMMaLurpL3mQt3x3a1kmlyVYMA lBm8IX0SPsrG12rNe3eF7TNobgBlWyvhYIC3lasNZt27cOEV15xn7B4MWy2i aO4IK6taQTCMj6FFwyeloBQ5H+BWIeqjR7XALUJRDG1XK0iY42NoLfBRxwGP tVB8jQ/iUW0TXHuAEbKyqhUlDPHlGnOmHPM+M9RxC1qilUdLR/HaQ0AGWsls aH+tEWfIceApFZQyy6zVB4WidhSvPWi7WklRho9VgmIHqhZxyZo7kbPWPWh/ bh5AcBjIQCs+XI5NT5ah8auIHGC6NcruwXxKN0O7GdZ3WVnVioNsAbzLcmQ0 JWw0YIa58YNaDB1F7pZZ/JbtakVBBvFmxhvxpysEqHXKjXtAYEvpSIAM7BlW VrUSJWcZaThCVFBBU5hpRlyT0+ko7O/bjJCVVa30vSfDUIQiscikMBNGV5Jj ZuSl9IqnoGxrpfaeROMIM16jKaWDLpVyru2A6q7EPwllWyvKmRpXiTAIsAaI E6VKgJ25Zi8s9KehbGtFGvcx+igBolXoK3lTV6V3VGGB8DSQgVZ86PRpwwIQ rcInTQvTBdRfmlaDp59A2dZKVpyOk6bWAzRmnThLctGrrpX9f8JIZHq2tJJV bBJMCAEafp4sjsRHFKdRLig7P7RdrazMFVdEVPjRjEgtDrnuVOfLKNcfQ9nW iulShbNbJvwQAnZkEaSis9BMATLzAijfmiuOLilpiSAwFcQvIpfQSAEy8wIo 21pRHktO0c2SEfHAdiAfYCPIyILvNUAGWnFx4NhNSYxkTKUd6BxsVEbk5mVQ trXyMFdCgBMX79d+JxFQaFmcaa8DMtCKQ9GxpoYqS9VW+l04M2q+xqXPi6Fs a6XLcxhposhQ0aPRyuSk0VkLAHwtlMNzpSnKXOQMFBIEKe9hTTAzr4ayrRXT Fb4JHaGPAbk5QmmqY7xujqxAOTxX3LBqqMFWAEgszZw5btTvgLKtlcye06r0 1wygwgAJpRny/h5GFGVu0WslJ0LG5XslA6XCBMm0mqq3MbJA2dZKmSu65yEh rhy8SlHyAFXvYyQQ02iu4F6E66R2AdZpYtaEfCsjy36H5orvaUikeoQaHTzh aoa8mREFHOO5onsikV1AZ6okNzz36PdDOTRXQJFVkQFm+lFJHkFvmyMrUA7N lZCUk6pwgNkJUEkC936NIIojcwVSztWuJKtclWjhfIYRBZBbbs+VVpZrRKBZ C36l7GNAjs6VslyDgs06A+8o+xyQo3PFyzEoTKPpE6kfmCMrUIZzRaamlE9K Ru7GJQufhjKcK1BFVNmo77obp8w+DeTYXHGpVdk0B65sSGanQBnOlQaMLjZj kDyyUM8AcmyuEKOGuTEgGx+dI70dmSvEmMUGDNkaIuGcB2UwV1xeLDbqPQLY ToUymCu+PK/vMGi0nMrIHNporqB7mT3NkCzLkxlRwLE3V8oblzBgJp41R3ob zZX6xqUZ6Zl43hzpbTRX9E4ibceyWu/CV2BkssFc0TtJM21iZF51ESCjuRL5 TpIHem/U82cEvW77cyWiO2h6Oz5/jvS2p5WGmpJwkqXraCRtRyuAh0bldnZu 4I+2rRXCwyx0O7uabWolCM/968TfIyPb0kqBF+5fF5ojvW1pxZG7f4mpa9q6 VvCS4kY2rz8z2H1b1wpeUlR0l5sjva1ppRGXfnNdmpHJ1rSClxS9yV+ckcnW tKLJ4tl+dUYme9RK+TWlXy03sEet+O1+QXgHRiZ71EoUBDdhZLJHrVQEtwHy qJUcjhf8PTKyXis5T24wR3rrtSKG7sXIZJ1WstDuxshknVZSLWeH9YxVrVz6 98jIWgfhpoxM1kO4LZCilbtqJA1auTMjk1krNwcCrZwdyM/tRr9HRnbjOdLb /4SRydp/DWQ9cQ== "], {{0, 0}, {201, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->200]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Shear", "[", RowBox[{ RowBox[{"PadLeft", "[", RowBox[{"IntegerDigits", "[", RowBox[{ SuperscriptBox["3", RowBox[{"Range", "[", RowBox[{"0", ",", "255"}], "]"}]], ",", "2"}], "]"}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"2", ",", "3"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"PixelConstrained", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztm4lhI0lyRSPkiVySCeuArFl/pSEQ/71I9Mz2wQMkK3tFAqisPP4VWeDo v//1v//zr/+q/29d9e/+63f/9fP+u19+9/3Dvr2pe/f7hc7rfHzrdPs9nYpb e/XJm9vsGv7+SvPMXbn48ur2jzXr363lXc1KtGgtTfu/TTG33ycUJN1a332U 0j54dx/g3mN+dGbIMnk/17KzA5V7n8FmphP+eb1umG0PSWATKNYYA0WFuGxs NrKYyVASjJgxPwudYrD8mmFnRYNh7r8vrEcHoGu5aR8RaQYYOMNtAw+rPLQa 2W1UunmD0kqriwL3DUszYg8acx/3Vmb3xuRSFrLJBsRgUexp/GThxBAQvrwU aJd9JQK5wGrHoMExSgKiuTE9rb1oNZrG97AN02zwQSFQZwsy4ywIPWm6wAor yJrtaCEMNbra1CDuaLXpmu0vxscTy4mDA3TJNdvF0beMNALFCl6T4Ig3IviD Ne5BwKgee1khBkwEVd6bguyofC//ssq1G7Qailj2wQzW0+ea3NqLndGeTD3q 62KQkGUviNKMUEE9EnIHIRoBdQGoRKyb5Ou1wR8oRJ4SQkIEo3pLtfe4939s R2rLzlCob1nkaONLYgdJ2AKcgwN4jMez9No7g+dEAebQtVo34dqgO4LvfSMM HV4UphhtNiyADEgWmom3tZhuyzq70Uf2/IqBDJ/FVBaKKQ7tFcN6glhSGAps GXrtbCYPMDZHOI9+85IPMnJI8agDZ+Ade0gmaHlwFoxCpKFrTLOtxRZZxrEd xMgie5a1+GMxsB+qTvF52LENchbU8xlYSqLSiN3Hhiy0lSKHoiM6kZKZCCKn ksSXqZA5RLFWfLFUfVoLQYS8Yzeyzuy8WdaeuNLksUja2rPGO5JnDXAddgIA GGZBstSs0xIqzd21Xpb32m5strwIrCOokfaMbhTlH6Sg7ttZMBGNDD2BSWIY kcB4fmjgSvfpic4RdIAHQa2hdHN5Lgmjs5gKOrnxlJDSxs7OOoUATkHUrCKL MlTMhfwGkkNg21dZ0sJN5LJ7IWgwRhsFchjPNmEqCV+Wn/WhveihNRH7AhdG iLGwtDx3aIj34L/XedhENnpYxPwvkGpR2UGda3UnqaLY9wyQ2QTQAlBKWQY0 s70HlpkQ/rZ8yWwBY5YQ6zS7kMQUHxFgpBmd7p6eG7a9zgdK9o7R+Mg2KANG Fs0NEU4fnSxrDIIYcJHNHOu0tmaXhto+B6b7rMBynRmWAbBr1hTdL1yywtLC SQpu3D3RT8W42aXXukiRkEcg4Ii0LV6xIYR6v1uqiGSthYhutFYsfCmFjgez pIZ3EtsMfOmRXzJAYXsACnUQq3cSYH7lRrhn3VpY1spaHklZOnZ42PCVlutB uydV1jv2JDMVl1qam+Vq4SKrM07rUgQOpBJ7KVeavqTJmgdoa23FBmGhS4Db cvBkE0vDc2uE8eO2hTx6C/6jvvwL6EyL4NY7K3QAC1qZGmHMTjeIo8sMHX5A FxfBczgbmVqb2d+aM6IqoRtauZ957UbLNViMEKzkrO1vbAKyWfiCHx9lXl7U 4ew1ClGUu7N/dD49iIRYfWFQTNRrQqMvtTM7jojyY3IQmhUeW5HuuT/ga4Vb rcIicYCQhczftkPIcN5ePo7nBSrpNS+iGOMCOJ3lKdMTzcvgbFAskgeL0Jg0 Bp/++RxVDeJB2CPPdrfqQH/RNHNkyRJa5G3G/8EmbFtTVBbK6mfwiJM1ymNR TfS3dprFSfhrzdpmhpaROpsRYovP0SwOyrB8vtQ972friDS4BKcDfLHEmjYW AyBzem3/QEpuyRxZoWA30Vzcwo5qsnNAwbO6kM2yt6yhkVR2kN0Ame02uC6V ZWwwkbrpHX3EyGxicGIfmya5p00P4smcoPPPpMQNID7cgLqdzcUlbCE7PhEm 4SYXellSMlq7LG1gttUQYLsVy4TQZiEzb3Sk3qEeMljF42bCP7TJ3pKIuVl8 /TMpdU4hbgK3nT0Sbe2Q1WKXjYmQGMFvR2J279IbqKxXurb+26NGLqApJ2yd SHViP/jEup1Vyi5ZXNwdiW5u7Kb/QEocCaIDv1Yb+Urejx6TDqEkOEZl0qN8 uQQqhXitG9ydCYqc0rjAKSvY9lt2oj/z6V5pflwmK221Djx28E/YJJAaUHFT DJ4dQdqDx2bODLg1ihck8NU5xjXf+YfvFF78ksHs94UmjEcLh+rW8lamDcD5 pDLB2DGoDeHRR/D5CUpsyQw2S86+1mby68FjjJNxl0bxHTTtzihsbz0zrZSY 5SakznuwfKSHrrM5XL/ph7AgWQyI2tJRqCHnSGSlwH8kpTQ8optp1uDe46zC QsEUWXjgnj3lbqubNFiaRRKlISPt4RCsQCtaKN1tXXNPdmT24UtARrQWm/Ip Gu94d+Y6RvoPpIDs/IR1vZZbQSLZEDBDH1wu/XF31p/Xw2LtxWXgXnBIGAG/ 17CJD4+1vI1FfsC+BM46HSlHRz4eMYX5stJ+hpSsMfNKJSMnmTkiUGJI5INu 4FcARcrlDUj+YjmIjmOlGtta0sg1SSeXcQU84JEf0M/+liZnR9VnRzQxUg/1 W2o/QYqInHvl6syIJG3OwDFjBR1FUfRmh81N3uLsI7If8rM3bVVa9+4P5Szr skAoDsgP7DOw1hlqtpi8e8Q0+6xfsknrvrnxtPXp5umiaSIp3q4sWqZe6ATU bbPgmsvapaUqu8G6pNOZz4HDWiu6GRnubWijR6/lmb17geUA+RVSQC6DkmMP Hk2XRAyr0NuBUGlgpQ04MZiCpwKTINcmTSN2W6SD/IwRmVj/aA+hHNuQX1av 8hJCSuRkYaDZXyBlBhSy2cAPTBoMIkGWITEDgWIpSuv9+c6mEYmYBa8wOIZe NtTKdowkc/pYa0KLt2sb6j/8Z334vHJrtIEyftUm3RoPTzRBUeRKJu+1RCgb d4F9BiBGcEHt7SbZ6DQ+jey7jGXr4yxYy8CZVvZaKwrirT3p/gtmLwRpsjJ7 8tdb7VWGFwMeJogLKVS7dd5E4eGgor7S9hGX0J0x4gfw04oJGOkEzYcU5Qkv toIyBqLZ/TfMeE60iVZl5e+0lQiaX4iLiiUVqZqOBr/aexjRRl5waXdJHIwT ksWInC2hhMnKmM6TOjohIcYI+/q9DAjH1iQ0Oyl+jxQhOZ+cgGdHAchKmduD +Wx+rbRYrKar3YPBNd6gJFE/xAXDSRzmI0sZLrVLWSDWnrGgIb8Cu4MAt2U3 v2uTjjikLam5/JPN2uRigl1ANoKUQ7C1o8Mi9dbVT1TOAOk+Y4TNLCH6lSK0 S1kg1u6BefHQM+8SirxLMCyZ/wYp4Io6hHaxj7Ul6X5pegRXXN542NVa+xKp dm5JLtVYQE44mMhuELo7ALwFhnsklFlrG3YLFEnJrr9PCgKX7VfW2Aj63do1 6JCyXG6N2V6u1g41EmAsDG3B0y8x18zkJYSGUK5XoxhLEfCjepkkn8yKsq1N 9J+QIvhk+wV67X7oziQOgLGKUAHvuNy71ofsCq13eo9AbY90GogeHBuLxBfr VRwS3dgykWoct8SbeRHJ1t3vkSJwseQD5gvlAzItEeEalBY8cTn6t/XF3cyn 3kXb0HrJ3BI2Iq0ZVWnW6x72N2PMxvJ+aVcEjET+1Cazwsw7ntSWvFO2VQsO JCN1L6kDAf1971xmQXIYHhMprM1Sbq3/vmpkMBNJ+YJ5NpH9zVCZLKtjMtiQ Rv6UE2WLLelFa6OBL4sf8LMdaf14YydZ/0mmALAdJo/xj7VZyhgmORIlxa9L +b0+ERpDlBMkcOFmyJBE/pwUATqoaEt7p/My7FiPOx5CyR4sGm82QKiHtBhn TDNBMnIM2OOo9AXG2UgQRmAonv8t4YWpWUo4K28qaCyNvAIp1oc2VkYoF+Lu 0tJmx1tN+b/EQlSvxMjoshddM9C9QwkS1pCOSrZ4K72HQ1Eh7y7diag4QuLJ EpUSyOM1SEkwsBZTE9y1BJMzeC+ZBYCCw8RFCSa5yO5KsmTmaAOszOAsa6Mo K4vDM7Ky5VhRRMma3CNJdfbMOl6BFILBtrRnveUIejbZwbQYsrT3tdNscW2U 289kGUYCIWsKb6xiaRqsxlzEi5RQDfCBA6ZwqOwlTSlpXssms7Ll+/lohOkd o+1ESCDVApfr5KodR8o+6D6Mk80PU7OmQd2rmOXG+zOidMQtQnctQGzP+vJ5 5Y4ZGOW9GiVRjn0RqNge2bPskjVxC3pj0TjESGaknWWHcRBJrTXZjmve8KpF aBgyIebfn5nurG+5R9Yb9b2mTdoxIaFVlma9hryo3d3XAqUuoD7iKJmy6Jbv yLL4cta07Ljn1frnp4YhE4T2+mxwyU5xBsK0ZTDL65FSo2JW2NlkwBoC2ypG rOwhJmfNIeKIo7yezTed5Q5Q65mXZT3Me5gzr9hPYwnrQrSz1SMxwhaOCR6v SoqN32zMEpXGl4ylVvS0yBM95nexmrRaNM7chk0xEXEfnsxcgtDiSRpIiQve tdUzMpRmrP21bTKrwbhEi5JthIt1tUCbDYViPMCP2Bap8cZiMWvJ9O15Eff2 ZG6VtxvtOA3kM809ncVoB3fviLW/OiVkT/AKPyvaZqc7JHBH6ErkgabjCx1a dpOBiheWAUYReHmwNTK3riFkmcC5JMcyYBYRLQ2iYwz56qRIYOP7zIpH4/7N yyCi4CEJosJYqHhroffYMpZD04CQ2CP9jhwpTbB3ohVHS+xAyxiVSJv3z4+J s9K3IGUtoxcmc1lxc/IyH1o5Fl4Fk9NxoQTvQOKgBO0ERYT6mCPl+UwRK7aW kALXsIOcmA+zYzb+JqRgYVIC5/riQMFGWGboMiHkRIUZSBQr0z1RgppbkYJ1 kkdrjeX5NkfZksQUF2uERKDIaX2YHSOStyAFC0PT7GFfjN7R1gNbR3Z10Hiw HP8GnqTM8BsSvISBNRjuDKrjt2lYWpKLOy4uhxhmzGqyhDe0SS8Po8TQZUXB AxLPMpdSkxgdOEIQzAgNsG7AU25N4ID9Gq6ZYQl/c3M48KRMHHgIQMpSR5pv SEoxZ2XrmbwDBzSw/eko4UJxNrOyLUD7SgwWOWiACB3oPf7KNCQg3RS7NL1n ZHow23bMQ8C9rU1APDscVCZY7hsgaqxyAFyh02xHv/tEOmMfBhOcZ+A4bttr kOLx3FqU+zSws54w0yxllBrGMP9bNnaiBJvFOs9A1Jn3IFzLj13OcIFDKJ8G 85jKoBlk9yyNZkv3w6LkCogz8SRby3Ft0jPcW5NidVv62ZcW4yWHq8MXUl/r 7lhj243QCaMaUxnUi4216p5b7DJLYAQRrSe7RDzJNr8rc25FvX3TFrOZ5Kzz M87OmpfPxxViNDcFc2fZdN3j7ezANS0Es9YGLOycvIslwovEjlc0C/fMNjPS ktSbt7g6e4nQa/abTM1NQhuVwqi2ZLPJYJH0OV4JA9nIHFTnDVhVljqGy3TI gL6afZlVCYp1JwrexyZNBEmSPR9FanZMNlIBUpmlHFkuHKEeMVOaQmK3/GON rAvhs6ZiXQNk/IcO5J3MvszqYOw1Ep+9Q4urK6+a6DGS6yavXt4PQQZkPsEn SRlNAWGwmjhs1gVTrUTU5fJOshF8gNcUc8Wg2bJH2knx1q1mDdo/flem6V8u yB7BG821eybpgDI9FZeBgehUSC2m7q+sX9lTvM5F7ltAa4fWkUc6g+KtW7Z9 SDcxnOUrcXUhjGbfg89kAeojxwJMJ/BKd0j7GsU5eESPg4mdFFvMvfdPoq0Y FQa1BKHz5kyogceS7uQPST6bOS6IP/GVkLBbskFwIfD2HQApr2SU6WYBcHk4 ie11UU7HUJvl2PVOyzj5PdtAkTVjAPSt5D0uJAJCo+ByLtoP7Z6hjKkXkpVF xkydt6JO5k0kWgMzxgQtN5QQWHa94/PONgGb8fXgKEjGN7PWfUGsdAuA7gCz E2zmnR4wlowxCZMcGKD11qvBvLMtsGcMpWXPLCCAbToKfW+bdEsOUV/Wgsrk CoTFnS2sd0pA+goQO680K1MQqMPwsoLdF+xnQxh68jXmT+BKCEJAUhhXvbtN WrMi5JXUzT7YkDoFeG5ShGXrVj2jhJKEuDGTBkrrMV/YIlGWyEoK4ZLODkkq 9uEFjT4+wCZskXhVvnDF6loszAZId6JHxrPo0XVuS24QOFlCmJUTlDhDJ0og lqQeYq/XzbPH9jrvLLb2+b4N0Q7yWaev2NfSKiq31ZwBDbCtdIs2cyWERNK5 Y1ErXWCLsMjIoYxJSbNiVkhf63FmvHuLtPIL026LzJYTDsTAspozIPGmSCSF dIUUCuK54wdWwLPdzUQQEsay0KxXG8oKzCvcvzn4f9cWcuFlLjpNIvZITTGt T51JCWpmc16uK7ajU/QHVtBHgTb5xDoJSq8XLZGPPaOGyo+zSR/AZVFJ2iR4 wuC2/sh0gm8LsXsFdcIuWdTnFb3JWKWhlhWKefFNsqpnWZZcXFbMnYScn+zq A22SdSCk5M7Qg7KDFenUUeRtLDxkVIi7pNN4MKFkOvMybjudEFPG24tqbpod YjLNLZl19jWb+shGEkCPkxZpF/DGKQo+h1cH25XcZNF0KIEhPlspeuTZih6Z 21zLP/gRv1eWukJKu/pgTiRX50eTGbLzfVsFMobYsU2coOMmCZN7HSxM51xU HgUmIjCOeqQa/2SDhNrMtLdTXsdHN4dEt0F1/ErC5LwAzqbYfLYHDhgihI3f 4kKty8lj7EYo+OCB6/iHMpE5s9fxRBTBOj64IdcTtVESCRIURpPEMjuK7Jxp ShxnewCdgcDeo/SCLjpp3syS5lcx3XJplfbKDuHmCWzSnQ0F/EmcbB1pJg66 vCkSsIydMqkZc2V71Jx8n4E8ShbRnYnnlsgDPcS2c6G1AHsL64/Vn8ImnVjJ y5cXgtTSHBBlo3hqIg6GFF4J+enZvB5Yp+++tYrFdKs3Ju1gjKdAWFxl+bpf gphNPUHbdeD2u41Le6eE7sqPuS4D0MUZnxlz44r3hOd9ViIRZMPwrH0CUSuT xcJVZY3r/rDyLC75qwUKZ20LnxVhxWcrP9qXQ0MQHaqYcTjd+V70HALjElnG IRUNrZXhYJE1e5j1FnOyj6doFnO3QaoCpERS+8p9BJBYEShAZ/CAR2iseDen zYDzMka1dUOpViYHK+ec0iMY+/R5msV0iC8Wid4pDt5GHZcLcEsYtNSeiG9e E/O3dTnyOjEDEYSlrQDC0cws0R5Hjfj0eVppp8mglwvZslROIpdGaGNaxrZ2 IGWgDqDDktDrvJg7E/wxmTNKVjDAzuJIQQJ88OnzNATdKDFbDGkt7BBqaYO5 F7+EJUc/XHWAHW+M41Za4dyIRvQfTjgMvBIz1pTuMsJTNSnayey0SGSoWgRd hUUtmIDrIfvluNwi3sBxxp2VSgKzcsg8EUYekZA2uLz1bE3BdYb81ArnWLwg JizG7BEkH6M/jkPzSs1Ql3GKzg2pMVXNuBvgbdTszmlJ1j1XW2G+U15KAiIF MkpOZovfQEkQhVWTM7OG3NtHLS6oBdhN1WbG7XyGD5rp+J8l8J5Y/3RTcEGD gkjpq/3XvpLUuX2yg4McVO4NNlQO5ZfswyD04B5nGfpY+au1p6TEH89JCesC O+FLGLVjQmkTHLX9UJB4S1DFCh2mdvQJeIUN5s0MM9pswdGb4lJ77Qlk7Pyc bcwu6HZ2IDMLe21Ljli6n/xODg6vt4kzEsln3HWpdw8oaPq3bsL/Q1utn5ju OZtTgsjSpwmxlRaTEqchsnlDutKcibtBSfmjQlAzlrm5r7psgXFp5k0Kzlyz Mro/cQvCK7L4FK0pX4Y48TSYO7WLj4hzTdzqDmy3NcSDGcczyHymF8snBYcd otFF5UlbLSCFfa3Vr3wh2HrYuQ+1QnvQbv0v/6TlGQHako5ZxZqBJPRKE4ir +ow8Hjb2zE1pMHGgqjCpsOJDyda5ZSBscavx87Myja6Vl5HeZSxnsU7G1nKY oPNR2HE20v152y4KynLVkB3tL3dRHrhbITT9On4g8hw6EBPihT9JZK4665yy kpV0YyrG29H49Dbp0Wx0tIsClSOWud3UiSKVHoXQEDmQ4gSHjokZxvk8NWRs OdVhpxkricB6jbej8RNQ0uA82ltVYXDpRY0kmYzDKyGPOJvRDDKmgMjaBKAO G7eZ9e6CHYgwtHltlv7sLTBXCUVpfIV+J81SBpB0+xaG0miASn7dRgknFZzH OO2RTVcKxPjB6dnZUa+VfooWnMXIII11XCEsyWBVvEmOVYAw3J3uo2ZeJOFg TqucFduBM/uuH6ximf6zcILKjKL1xdYazIT3fZQ+bykxRo60ujt3oumljGRR XqYupRPRF8HE88RAVvopWkQWzIh0Xbx3DrSrTuw3Jnmu8qM7b3fuzGqyKnmW a8Nalh6yXD7YUbzziSgRzgWqlABj8NI7YTVvJX+jVh5okCGuqAwx0DA67I7a bZHlJ+zRR/04diSLfpIWmOEhxke507lb6EaZ92vFeMmn0pgR+8wXNKnPVKHE WLOuqvWBP/pBxZpk/GQ2aXA2ER3B4ZahIZVCEXEfSXrO+0RJZtnzBToF33yc aoD13NVT+JoIn1B8NzRfqUma4KC0ifYlR2IBzuQz2HGSSPnMR1FRZWi8hldU TiCvGSCuVRmcLPx0LTsfHEshHPgVaZVuSTzD2/DSk/PhsR7mExOj/XY9iDUo JwQXTs56GDD7eXdI/7wFKkkWQAq5LenLNbIN8IWLGadamPkGR10Q1A0ahyue 0inoAfHO52thYXSb/AB1AJAi0124BpxwAfh73NygqOsRuAuc38p/MvJaz5LB p3TJXy2aR3e9ym4+UulQiJuCVFeyndjR0O2RRHindMFT+X4MeDiZgqSy8klt 0ioUnaifnxTkCDKZbZ33UV2DPSF3+yQTeqSE4jjBvsSgiwpRGbbDPwR92kZC N7l8sIQgH0I8vQKZ6kL3gsdWU3HouAle1bstkxgwDGSNLmEzxmdtZ6IPEC7I nUzpuUZMgZMvrBIUXFs84Z5xU4mAO/55sdmvjI+Q4njb8pM2KgThPQIeSCNs eMEHxkkg3kdPNeh1owp3CVXZNIJQFZpQJfww0IzJIj9xo6QM6JMFPZhWqFOB CcBGyijeh4+5SKH7JxDdmmteUh9IOZIp4RcH2c2fnRMKdmrHxFV8opLRyNjv W30T9i8XM0luKEbu1r29plV5KE1J8VDgZfSs/bO3yXfyqh31qZ4kw+68kFJQ ZXg03HLX5E0Hy/gzKxLtoYLk0ggqSF/AJo1WuwPeBEzxcz6jIpBALrN4gTKV voa5u404/kzFSWFyDYnnGK+8qq9gk04RmJ9K5NnjuEF5oXADqS5x11a6sl6l JUYj2LSSaJ/zx4RmaRAcstb+yZvUZaDJablFNYVajMZN3WZga5rKdQaj9JAf VJy5k0GGJ931JVqZhWQSMd3Z/C4pqrIjX4XVyrdVFMLN5FOtuW9r0g8+H9uS gJw+csPXaJHtyxtpHNuEJH2KbSiyKQnxmFLI9bn8Q0cm5HF/F8Pcl9UpKC54 664v0VbwL40j9UKTZ4qLrkRdPOMUCpzHh6okUse8y5Cjj4aiVcG+EiWOG1WM 2xVJXWehJNqCe6pQp3OIySUk7h+rqFnwKUWJwWWM8LPv+hKNVLq9myKzpL6O QqrXSpEIXilVRtYS9ysXtSV46perUXcI+eFdX6JF1WwwLAF7hD+IGFjiz0GG EYi7+4Thd/xD3OWfy5eK0axQ9Hw5SpC5cOFENR+QUDkz5f4qQVwQ2Ya2PKEI DvIZSjUiRLgaNQUqVvpyrTYRqQhjEfRc0Wyv6qs4UTk+kd0ZFWIpFGMpBxX9 Kfmsp+HpizVAA1SoWnqOSXb1XXmST5Vp6o4ZU8Xm17AwOkgJm8+Xhebj94Tq /VoUSTlOXIEfuZ7oofoS96sm4zzXAiWS5c8JYibc/TRK5b4vSglgqh6PHQSg 2ILHQKf6M0ajq0MNA9pOScWqsDKX/Pl9wfsc8iUbxZxt5yVxdfu8G5EKucmb HupW1eCirSPZd5za0DPlhQW4iH3ZanJrR8bcP5Luh5hYilqiZJnMX6E3N6hY HaCnGmVIbiLSOnRD9Xvh8yHtyJgEu/F3VkStySgCjjrsqmHPhGElIUUEZVBe qGTM+7Vt0okCKZX0GcjnlcWtjOIW/EExcG2mRnvqVYhmVQVPontI+uIt0p7c ICJePkgND8jJuuSbSsdwkBsNJLbw1KsSUTkgKn3g8ou3o8ZPgJBkY5+ObxJB iNgRVGZo4RjJO9iihtSNCEMGPKraF2+rxk8lxheD9b0vKj/8khpQGuY2ZIWF giGbarqlqCwHUtzU/Ys3zkSqygEoeZ9QSvlehkkRgAkCcOwTmjJtatg6JmwL Jj593PjiTUS01KpKwXWfy5IqISqo+6MEFiYUZZNU65ig965T36KY3FviQZFP 1VWgHwczYkWng8WE6BuJ7xKVu9cxYb9XofouNmnkpxMTOlWg+5AVXuiadDOr 5vX2jqrhKqMidLzHtd/HJo38KKp65UAH+NzkA3KJnOFqEXu7Yecl1WriTdVc Dvk+1eTWdokXIBCkIk7AdOpJ+qbPeMC8xjSOw961rCFL+dWa8pu0oHd71/qV kEoR38meIjMRpiLwwCu8Dewzk2NyyNoG+WaUdODT0YgQ8cnMfsqt65CkwwB3 j1XaJOb4tWqZ2coJ7ZtVk1vb2PMr2ZKzEodTgp+MatGh0oPqoUKnLxWwJFpx r+rXt2oH+BxClSU+5zZhdLuzlVA5UVF7UqRyJihs0oed3LeLQb5bg424xqZA 4VMMyJedUbfRKBoOpJyz0kO1PzxS0KYufUubdDKLw1EPfNCAypVF9C/hSTXv BFLOTxwHXPv5OSuaT74pJSHAWCawpHDKd++0kw2qcmvDQIpM6niqEdHnujTC +K42acCIhFtl14Zp6oj8Ra4Fa7GgUk8dn0CLF1ZZki6+b0sQ4RnnDIa5f54g 4m5kn1tzJKCGxzZkXk5Y3LeE8W1bHRI+YsYGQsv5hLOTbyWu1qGhIJEUG+PI Vt+5mtzaqeDFUaDkDJWj0UAZp1Biyuw8uIaM80lA7H5vl/zVDgkfJHFwohj7 /KT/+bfoycFW5QUXKfhE74cA8UwtNVwhNFr3uck4cnwKd+v3ZofKnpeEl/JL x7Hv3lJslUIDcSp2QqzDoqIJV+gwOyUpRwmVl7k5Z4gcKS6bvDTDBEWV0xcn IuO4kqnE4ZK8Am6VF4gam6YGvT8Az9gILyIsnFAfchKgpqs8cIPH4uYhbodV xpgzxGWTe0t2URTmtCWgKDLU4jLyKUYaC9NwjmgRN6c7GeZqL20iRmkyhcX+ oa4o+4W83PDygWtVRu3exM306nS1v5rqL2miQ6vi5zgPFHeQV8STTXPmow9k 7nq1W1P9TZpQPBw/x3lgsmzdoHiyAY989HnM/rravaHUgbms3xUtW+8OMbkJ Q3EgcKipzHMMeO9dP3lz7KzKErB0CFaCOcN2+anFmjF3t/S+bPLYajvDhcXx 03pqAWqdxzp9FmvGfBUZytN77/gTtKX0fU7FJOmnsEo5SsWWy4rLM97ulhS7 OPlBq33OOnxBzqRkUN5zHDZ9dQzUrRHFco5tV3ts1UYp9fvuCYKmZY+iJ7Xj 4Rycnv3YLYfiq/2obZCIlvKbW8/o3z1P+nTOoqJMd4Iv7F3tB22jpMeTALmK TBtkSj6PHzOsnlBSVToGEddXe2wrgnoY6RLSI+tlqn26Og+3eOjOlY7ZKTZX +7umCt1z5i3jGHPMddhTRNlq3BiudMyuxd7VftTK8KdAACTHL/wi1RNbeQTh RsgiAXPH1f6+LfTbqPFs4dOZ6sKcCFaurRs5c/WwfRWTn2iGvzdsPFkkcIYd zmU6j4Wvik8O6+lofbV/aICovA9BORXrscIHAx/QRFd80iKmmzGu9o/NICbu q9C4zrbcMR1wwsuVuaOnQ+twfD2a/HTj5NVwg7DX4ZY7ppxghVXH+VkFi5dN frYpbHyw7UCehxeOu1O8bQWd43KHD1592eTnm4qyDrYpE/6R/BniVHvmtvuY OXRxdLhs8vONZ5Tm9BTI9dCX4y68dcrO7ZJTTMkXzq/2k00PKTqDcSbmkKvj rs/KVBTRdLu7K6xenPxK4xmlH1DmoS/VJmconXP14JIDm4vOZZNfbXkOWUew Ve5zQO7UlOOc68eVPNaI66v9WssJNuWlYSCHrrxWmumcu55XSjdczya/1Va5 8LN4iRrAV5rhjvW4UuF2P95c7ecbDxbKsNRx13SKTjiZc1aeaibIKPsfurnP 2lZ91wl5USPw9ThY4yI9SOYRcgi92m+0CoQv7/Kzkj8+4+aiqsZ6jpybrkeT P2n5BoSzcbCXK/gox13A1xMKoXXZ5PdbUsZnY57kMVFo69jAh6wUm0Xq1X6r JWbW2Xg/TaavT2S3eyg6rVeXTf6s4QOdjf2QnrKeoMMGOWt1EjBH56v9fiu/ yNmYOKKqyx3c40MCafaeG/iKbX0VoqdCniFhKE/z3EO8+ZHxan/W1jcheiYs iNARWQ/wPoBxbrtc8hptxY0eCvVwMvAn2XJfvlXx1wFX++P2EEd5ErxdBmqS 7X7fGIlfFyWv0/SMcn/rbxj1hZe/7tL3jjzJXzZ5tcajiJ4i/YieaCLZ2kaa 8nPZ5PWaAwlDpILws/N4uB/y0/9qr9Z4Yq/wQqXJ95HKtvyu3f9qr9Y40oaW FBrVkenbZNzZ/2qv1nLkKqXTXKGQtI7FTT/3v9qrNZcJ1ZNO6cjFl950WI+W V3vVppqRpxMOXX7Bw2NOw1cxeZvGl7x5OoGi48Wq+nzZdbXXbnnwizEaho4X q+pfjyZv1/j2t/S1ex4I+RJYpFD2r/YmrRRMOVrxzELV5yjWpu9qb9DyheKc vqZ+OMf0VaVqztXequVrLs5W+TvJPB/e+uVryOvR5K2bD76DudBvasp8JXMV kzdvYiF1ZYpKq5zoe8jLJm/d+GPV+gJST/DdENV92eQdWh7L8+zYcoie5ufi xcnbt0mmeUzXH7rwTvpdNnmXxkOjqdlf3u9z2NXevFHTzc0clXUk68sm79Yq J6schO+fcyTLuflq79PyB0QdhOdzf9t12eQdm89ceULUh1y42ru1fejKa/7u eP3Z5P0bf3Hn0YSv7OeR5Wrv2lJKyq9TWa5i8hFtvvXNM0n+/ptvi6/23o2n kXlknFPy9VeTD2vH4YtnxuvPJh/X/F+x6L+buP5s8pFN323NX4bnO8mPXdh3 bjytH//9ysXJx7Xy88mcxS6bfGzjv1WZ2n49m3x4m69Rcua6qsnHNx7d91/n r/aBzY8m159NnqTpD47Xo8mzNP8x+LLJk7QYpS+bPE2r/N9lk6dp/BfdH72S q6XpvyC62rO06//Z5Anb9WjyhO2qJk/YLps8Ybs4ecL2f4ZPMP0= "], {{0, 0}, Offset[{405, 256}, {0, 0}]}, {0, 1}], Frame->None, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->{405, 256}, PlotRange->{{0, 405}, {0, 256}}, PlotRangeClipping->True]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Range", "[", SuperscriptBox["3", "3"], "]"}], ",", "3"}], "]"}], ",", "3"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3"}, {"4", "5", "6"}, {"7", "8", "9"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"10", "11", "12"}, {"13", "14", "15"}, {"16", "17", "18"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"19", "20", "21"}, {"22", "23", "24"}, {"25", "26", "27"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"Shear", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Range", "[", SuperscriptBox["3", "3"], "]"}], ",", "3"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3"}, {"4", "5", "6"}, {"7", "8", "9"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"17", "18", "16"}, {"11", "12", "10"}, {"14", "15", "13"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"24", "22", "23"}, {"27", "25", "26"}, {"21", "19", "20"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output"] }, Open ]], Cell["A pyramid and a shearing of the pyramid:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"pyramid", "=", RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"1022", ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", "0"}], "}"}], ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Cuboid", "/@", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"#3", ",", "#2", ",", RowBox[{"-", "#1"}]}], "}"}], "&"}], ")"}], "@@@", RowBox[{"Position", "[", RowBox[{"pyramid", ",", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"Cuboid", "/@", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"#3", ",", "#2", ",", RowBox[{"-", "#1"}]}], "}"}], "&"}], ")"}], "@@@", RowBox[{"Position", "[", RowBox[{ RowBox[{"Shear", "[", RowBox[{"pyramid", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Axis", "\[Rule]", "Bottom"}]}], "]"}], ",", "1"}], "]"}]}]}], "]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{CuboidBox[{11, 11, -1}], CuboidBox[{10, 10, -2}], CuboidBox[{11, 10, -2}], CuboidBox[{12, 10, -2}], CuboidBox[{10, 11, -2}], CuboidBox[{11, 11, -2}], CuboidBox[{12, 11, -2}], CuboidBox[{10, 12, -2}], CuboidBox[{11, 12, -2}], CuboidBox[{12, 12, -2}], CuboidBox[{9, 9, -3}], CuboidBox[{10, 9, -3}], CuboidBox[{11, 9, -3}], CuboidBox[{12, 9, -3}], CuboidBox[{13, 9, -3}], CuboidBox[{9, 10, -3}], CuboidBox[{10, 10, -3}], CuboidBox[{11, 10, -3}], CuboidBox[{12, 10, -3}], CuboidBox[{13, 10, -3}], CuboidBox[{9, 11, -3}], CuboidBox[{10, 11, -3}], CuboidBox[{11, 11, -3}], CuboidBox[{12, 11, -3}], CuboidBox[{13, 11, -3}], CuboidBox[{9, 12, -3}], CuboidBox[{10, 12, -3}], CuboidBox[{11, 12, -3}], CuboidBox[{12, 12, -3}], CuboidBox[{13, 12, -3}], CuboidBox[{9, 13, -3}], CuboidBox[{10, 13, -3}], CuboidBox[{11, 13, -3}], CuboidBox[{12, 13, -3}], CuboidBox[{13, 13, -3}], CuboidBox[{8, 8, -4}], CuboidBox[{9, 8, -4}], CuboidBox[{10, 8, -4}], CuboidBox[{11, 8, -4}], CuboidBox[{12, 8, -4}], CuboidBox[{13, 8, -4}], CuboidBox[{14, 8, -4}], CuboidBox[{8, 9, -4}], CuboidBox[{9, 9, -4}], CuboidBox[{10, 9, -4}], CuboidBox[{11, 9, -4}], CuboidBox[{12, 9, -4}], CuboidBox[{13, 9, -4}], CuboidBox[{14, 9, -4}], CuboidBox[{8, 10, -4}], CuboidBox[{9, 10, -4}], CuboidBox[{10, 10, -4}], CuboidBox[{11, 10, -4}], CuboidBox[{12, 10, -4}], CuboidBox[{13, 10, -4}], CuboidBox[{14, 10, -4}], CuboidBox[{8, 11, -4}], CuboidBox[{9, 11, -4}], CuboidBox[{10, 11, -4}], CuboidBox[{11, 11, -4}], CuboidBox[{12, 11, -4}], CuboidBox[{13, 11, -4}], CuboidBox[{14, 11, -4}], CuboidBox[{8, 12, -4}], CuboidBox[{9, 12, -4}], CuboidBox[{10, 12, -4}], CuboidBox[{11, 12, -4}], CuboidBox[{12, 12, -4}], CuboidBox[{13, 12, -4}], CuboidBox[{14, 12, -4}], CuboidBox[{8, 13, -4}], CuboidBox[{9, 13, -4}], CuboidBox[{10, 13, -4}], CuboidBox[{11, 13, -4}], CuboidBox[{12, 13, -4}], CuboidBox[{13, 13, -4}], CuboidBox[{14, 13, -4}], CuboidBox[{8, 14, -4}], CuboidBox[{9, 14, -4}], CuboidBox[{10, 14, -4}], CuboidBox[{11, 14, -4}], CuboidBox[{12, 14, -4}], CuboidBox[{13, 14, -4}], CuboidBox[{14, 14, -4}], CuboidBox[{7, 7, -5}], CuboidBox[{8, 7, -5}], CuboidBox[{9, 7, -5}], CuboidBox[{10, 7, -5}], CuboidBox[{11, 7, -5}], CuboidBox[{12, 7, -5}], CuboidBox[{13, 7, -5}], CuboidBox[{14, 7, -5}], CuboidBox[{15, 7, -5}], CuboidBox[{7, 8, -5}], CuboidBox[{8, 8, -5}], CuboidBox[{9, 8, -5}], CuboidBox[{10, 8, -5}], CuboidBox[{11, 8, -5}], CuboidBox[{12, 8, -5}], CuboidBox[{13, 8, -5}], CuboidBox[{14, 8, -5}], CuboidBox[{15, 8, -5}], CuboidBox[{7, 9, -5}], CuboidBox[{8, 9, -5}], CuboidBox[{9, 9, -5}], CuboidBox[{10, 9, -5}], CuboidBox[{11, 9, -5}], CuboidBox[{12, 9, -5}], CuboidBox[{13, 9, -5}], CuboidBox[{14, 9, -5}], CuboidBox[{15, 9, -5}], CuboidBox[{7, 10, -5}], CuboidBox[{8, 10, -5}], CuboidBox[{9, 10, -5}], CuboidBox[{10, 10, -5}], CuboidBox[{11, 10, -5}], CuboidBox[{12, 10, -5}], CuboidBox[{13, 10, -5}], CuboidBox[{14, 10, -5}], CuboidBox[{15, 10, -5}], CuboidBox[{7, 11, -5}], CuboidBox[{8, 11, -5}], CuboidBox[{9, 11, -5}], CuboidBox[{10, 11, -5}], CuboidBox[{11, 11, -5}], CuboidBox[{12, 11, -5}], CuboidBox[{13, 11, -5}], CuboidBox[{14, 11, -5}], CuboidBox[{15, 11, -5}], CuboidBox[{7, 12, -5}], CuboidBox[{8, 12, -5}], CuboidBox[{9, 12, -5}], CuboidBox[{10, 12, -5}], CuboidBox[{11, 12, -5}], CuboidBox[{12, 12, -5}], CuboidBox[{13, 12, -5}], CuboidBox[{14, 12, -5}], CuboidBox[{15, 12, -5}], CuboidBox[{7, 13, -5}], CuboidBox[{8, 13, -5}], CuboidBox[{9, 13, -5}], CuboidBox[{10, 13, -5}], CuboidBox[{11, 13, -5}], CuboidBox[{12, 13, -5}], CuboidBox[{13, 13, -5}], CuboidBox[{14, 13, -5}], CuboidBox[{15, 13, -5}], CuboidBox[{7, 14, -5}], CuboidBox[{8, 14, -5}], CuboidBox[{9, 14, -5}], CuboidBox[{10, 14, -5}], CuboidBox[{11, 14, -5}], CuboidBox[{12, 14, -5}], CuboidBox[{13, 14, -5}], CuboidBox[{14, 14, -5}], CuboidBox[{15, 14, -5}], CuboidBox[{7, 15, -5}], CuboidBox[{8, 15, -5}], CuboidBox[{9, 15, -5}], CuboidBox[{10, 15, -5}], CuboidBox[{11, 15, -5}], CuboidBox[{12, 15, -5}], CuboidBox[{13, 15, -5}], CuboidBox[{14, 15, -5}], CuboidBox[{15, 15, -5}], CuboidBox[{6, 6, -6}], CuboidBox[{7, 6, -6}], CuboidBox[{8, 6, -6}], CuboidBox[{9, 6, -6}], CuboidBox[{10, 6, -6}], CuboidBox[{11, 6, -6}], CuboidBox[{12, 6, -6}], CuboidBox[{13, 6, -6}], CuboidBox[{14, 6, -6}], CuboidBox[{15, 6, -6}], CuboidBox[{16, 6, -6}], CuboidBox[{6, 7, -6}], CuboidBox[{7, 7, -6}], CuboidBox[{8, 7, -6}], CuboidBox[{9, 7, -6}], CuboidBox[{10, 7, -6}], CuboidBox[{11, 7, -6}], CuboidBox[{12, 7, -6}], CuboidBox[{13, 7, -6}], CuboidBox[{14, 7, -6}], CuboidBox[{15, 7, -6}], CuboidBox[{16, 7, -6}], CuboidBox[{6, 8, -6}], CuboidBox[{7, 8, -6}], CuboidBox[{8, 8, -6}], CuboidBox[{9, 8, -6}], CuboidBox[{10, 8, -6}], CuboidBox[{11, 8, -6}], CuboidBox[{12, 8, -6}], CuboidBox[{13, 8, -6}], CuboidBox[{14, 8, -6}], CuboidBox[{15, 8, -6}], CuboidBox[{16, 8, -6}], CuboidBox[{6, 9, -6}], CuboidBox[{7, 9, -6}], CuboidBox[{8, 9, -6}], CuboidBox[{9, 9, -6}], CuboidBox[{10, 9, -6}], CuboidBox[{11, 9, -6}], CuboidBox[{12, 9, -6}], CuboidBox[{13, 9, -6}], CuboidBox[{14, 9, -6}], CuboidBox[{15, 9, -6}], CuboidBox[{16, 9, -6}], CuboidBox[{6, 10, -6}], CuboidBox[{7, 10, -6}], CuboidBox[{8, 10, -6}], CuboidBox[{9, 10, -6}], CuboidBox[{10, 10, -6}], CuboidBox[{11, 10, -6}], CuboidBox[{12, 10, -6}], CuboidBox[{13, 10, -6}], CuboidBox[{14, 10, -6}], CuboidBox[{15, 10, -6}], CuboidBox[{16, 10, -6}], CuboidBox[{6, 11, -6}], CuboidBox[{7, 11, -6}], CuboidBox[{8, 11, -6}], CuboidBox[{9, 11, -6}], CuboidBox[{10, 11, -6}], CuboidBox[{11, 11, -6}], CuboidBox[{12, 11, -6}], CuboidBox[{13, 11, -6}], CuboidBox[{14, 11, -6}], CuboidBox[{15, 11, -6}], CuboidBox[{16, 11, -6}], CuboidBox[{6, 12, -6}], CuboidBox[{7, 12, -6}], CuboidBox[{8, 12, -6}], CuboidBox[{9, 12, -6}], CuboidBox[{10, 12, -6}], CuboidBox[{11, 12, -6}], CuboidBox[{12, 12, -6}], CuboidBox[{13, 12, -6}], CuboidBox[{14, 12, -6}], CuboidBox[{15, 12, -6}], CuboidBox[{16, 12, -6}], CuboidBox[{6, 13, -6}], CuboidBox[{7, 13, -6}], CuboidBox[{8, 13, -6}], CuboidBox[{9, 13, -6}], CuboidBox[{10, 13, -6}], CuboidBox[{11, 13, -6}], CuboidBox[{12, 13, -6}], CuboidBox[{13, 13, -6}], CuboidBox[{14, 13, -6}], CuboidBox[{15, 13, -6}], CuboidBox[{16, 13, -6}], CuboidBox[{6, 14, -6}], CuboidBox[{7, 14, -6}], CuboidBox[{8, 14, -6}], CuboidBox[{9, 14, -6}], CuboidBox[{10, 14, -6}], CuboidBox[{11, 14, -6}], CuboidBox[{12, 14, -6}], CuboidBox[{13, 14, -6}], CuboidBox[{14, 14, -6}], CuboidBox[{15, 14, -6}], CuboidBox[{16, 14, -6}], CuboidBox[{6, 15, -6}], CuboidBox[{7, 15, -6}], CuboidBox[{8, 15, -6}], CuboidBox[{9, 15, -6}], CuboidBox[{10, 15, -6}], CuboidBox[{11, 15, -6}], CuboidBox[{12, 15, -6}], CuboidBox[{13, 15, -6}], CuboidBox[{14, 15, -6}], CuboidBox[{15, 15, -6}], CuboidBox[{16, 15, -6}], CuboidBox[{6, 16, -6}], CuboidBox[{7, 16, -6}], CuboidBox[{8, 16, -6}], CuboidBox[{9, 16, -6}], CuboidBox[{10, 16, -6}], CuboidBox[{11, 16, -6}], CuboidBox[{12, 16, -6}], CuboidBox[{13, 16, -6}], CuboidBox[{14, 16, -6}], CuboidBox[{15, 16, -6}], CuboidBox[{16, 16, -6}], CuboidBox[{5, 5, -7}], CuboidBox[{6, 5, -7}], CuboidBox[{7, 5, -7}], CuboidBox[{8, 5, -7}], CuboidBox[{9, 5, -7}], CuboidBox[{10, 5, -7}], CuboidBox[{11, 5, -7}], CuboidBox[{12, 5, -7}], CuboidBox[{13, 5, -7}], CuboidBox[{14, 5, -7}], CuboidBox[{15, 5, -7}], CuboidBox[{16, 5, -7}], CuboidBox[{17, 5, -7}], CuboidBox[{5, 6, -7}], CuboidBox[{6, 6, -7}], CuboidBox[{7, 6, -7}], CuboidBox[{8, 6, -7}], CuboidBox[{9, 6, -7}], CuboidBox[{10, 6, -7}], CuboidBox[{11, 6, -7}], CuboidBox[{12, 6, -7}], CuboidBox[{13, 6, -7}], CuboidBox[{14, 6, -7}], CuboidBox[{15, 6, -7}], CuboidBox[{16, 6, -7}], CuboidBox[{17, 6, -7}], CuboidBox[{5, 7, -7}], CuboidBox[{6, 7, -7}], CuboidBox[{7, 7, -7}], CuboidBox[{8, 7, -7}], CuboidBox[{9, 7, -7}], CuboidBox[{10, 7, -7}], CuboidBox[{11, 7, -7}], CuboidBox[{12, 7, -7}], CuboidBox[{13, 7, -7}], CuboidBox[{14, 7, -7}], CuboidBox[{15, 7, -7}], CuboidBox[{16, 7, -7}], CuboidBox[{17, 7, -7}], CuboidBox[{5, 8, -7}], CuboidBox[{6, 8, -7}], CuboidBox[{7, 8, -7}], CuboidBox[{8, 8, -7}], CuboidBox[{9, 8, -7}], CuboidBox[{10, 8, -7}], CuboidBox[{11, 8, -7}], CuboidBox[{12, 8, -7}], CuboidBox[{13, 8, -7}], CuboidBox[{14, 8, -7}], CuboidBox[{15, 8, -7}], CuboidBox[{16, 8, -7}], CuboidBox[{17, 8, -7}], CuboidBox[{5, 9, -7}], CuboidBox[{6, 9, -7}], CuboidBox[{7, 9, -7}], CuboidBox[{8, 9, -7}], CuboidBox[{9, 9, -7}], CuboidBox[{10, 9, -7}], CuboidBox[{11, 9, -7}], CuboidBox[{12, 9, -7}], CuboidBox[{13, 9, -7}], CuboidBox[{14, 9, -7}], CuboidBox[{15, 9, -7}], CuboidBox[{16, 9, -7}], CuboidBox[{17, 9, -7}], CuboidBox[{5, 10, -7}], CuboidBox[{6, 10, -7}], CuboidBox[{7, 10, -7}], CuboidBox[{8, 10, -7}], CuboidBox[{9, 10, -7}], CuboidBox[{10, 10, -7}], CuboidBox[{11, 10, -7}], CuboidBox[{12, 10, -7}], CuboidBox[{13, 10, -7}], CuboidBox[{14, 10, -7}], CuboidBox[{15, 10, -7}], CuboidBox[{16, 10, -7}], CuboidBox[{17, 10, -7}], CuboidBox[{5, 11, -7}], CuboidBox[{6, 11, -7}], CuboidBox[{7, 11, -7}], CuboidBox[{8, 11, -7}], CuboidBox[{9, 11, -7}], CuboidBox[{10, 11, -7}], CuboidBox[{11, 11, -7}], CuboidBox[{12, 11, -7}], CuboidBox[{13, 11, -7}], CuboidBox[{14, 11, -7}], CuboidBox[{15, 11, -7}], CuboidBox[{16, 11, -7}], CuboidBox[{17, 11, -7}], CuboidBox[{5, 12, -7}], CuboidBox[{6, 12, -7}], CuboidBox[{7, 12, -7}], CuboidBox[{8, 12, -7}], CuboidBox[{9, 12, -7}], CuboidBox[{10, 12, -7}], CuboidBox[{11, 12, -7}], CuboidBox[{12, 12, -7}], CuboidBox[{13, 12, -7}], CuboidBox[{14, 12, -7}], CuboidBox[{15, 12, -7}], CuboidBox[{16, 12, -7}], CuboidBox[{17, 12, -7}], CuboidBox[{5, 13, -7}], CuboidBox[{6, 13, -7}], CuboidBox[{7, 13, -7}], CuboidBox[{8, 13, -7}], CuboidBox[{9, 13, -7}], CuboidBox[{10, 13, -7}], CuboidBox[{11, 13, -7}], CuboidBox[{12, 13, -7}], CuboidBox[{13, 13, -7}], CuboidBox[{14, 13, -7}], CuboidBox[{15, 13, -7}], CuboidBox[{16, 13, -7}], CuboidBox[{17, 13, -7}], CuboidBox[{5, 14, -7}], CuboidBox[{6, 14, -7}], CuboidBox[{7, 14, -7}], CuboidBox[{8, 14, -7}], CuboidBox[{9, 14, -7}], CuboidBox[{10, 14, -7}], CuboidBox[{11, 14, -7}], CuboidBox[{12, 14, -7}], CuboidBox[{13, 14, -7}], CuboidBox[{14, 14, -7}], CuboidBox[{15, 14, -7}], CuboidBox[{16, 14, -7}], CuboidBox[{17, 14, -7}], CuboidBox[{5, 15, -7}], CuboidBox[{6, 15, -7}], CuboidBox[{7, 15, -7}], CuboidBox[{8, 15, -7}], CuboidBox[{9, 15, -7}], CuboidBox[{10, 15, -7}], CuboidBox[{11, 15, -7}], CuboidBox[{12, 15, -7}], CuboidBox[{13, 15, -7}], CuboidBox[{14, 15, -7}], CuboidBox[{15, 15, -7}], CuboidBox[{16, 15, -7}], CuboidBox[{17, 15, -7}], CuboidBox[{5, 16, -7}], CuboidBox[{6, 16, -7}], CuboidBox[{7, 16, -7}], CuboidBox[{8, 16, -7}], CuboidBox[{9, 16, -7}], CuboidBox[{10, 16, -7}], CuboidBox[{11, 16, -7}], CuboidBox[{12, 16, -7}], CuboidBox[{13, 16, -7}], CuboidBox[{14, 16, -7}], CuboidBox[{15, 16, -7}], CuboidBox[{16, 16, -7}], CuboidBox[{17, 16, -7}], CuboidBox[{5, 17, -7}], CuboidBox[{6, 17, -7}], CuboidBox[{7, 17, -7}], CuboidBox[{8, 17, -7}], CuboidBox[{9, 17, -7}], CuboidBox[{10, 17, -7}], CuboidBox[{11, 17, -7}], CuboidBox[{12, 17, -7}], CuboidBox[{13, 17, -7}], CuboidBox[{14, 17, -7}], CuboidBox[{15, 17, -7}], CuboidBox[{16, 17, -7}], CuboidBox[{17, 17, -7}], CuboidBox[{4, 4, -8}], CuboidBox[{5, 4, -8}], CuboidBox[{6, 4, -8}], CuboidBox[{7, 4, -8}], CuboidBox[{8, 4, -8}], CuboidBox[{9, 4, -8}], CuboidBox[{10, 4, -8}], CuboidBox[{11, 4, -8}], CuboidBox[{12, 4, -8}], CuboidBox[{13, 4, -8}], CuboidBox[{14, 4, -8}], CuboidBox[{15, 4, -8}], CuboidBox[{16, 4, -8}], CuboidBox[{17, 4, -8}], CuboidBox[{18, 4, -8}], CuboidBox[{4, 5, -8}], CuboidBox[{5, 5, -8}], CuboidBox[{6, 5, -8}], CuboidBox[{7, 5, -8}], CuboidBox[{8, 5, -8}], CuboidBox[{9, 5, -8}], CuboidBox[{10, 5, -8}], CuboidBox[{11, 5, -8}], CuboidBox[{12, 5, -8}], CuboidBox[{13, 5, -8}], CuboidBox[{14, 5, -8}], CuboidBox[{15, 5, -8}], CuboidBox[{16, 5, -8}], CuboidBox[{17, 5, -8}], CuboidBox[{18, 5, -8}], CuboidBox[{4, 6, -8}], CuboidBox[{5, 6, -8}], CuboidBox[{6, 6, -8}], CuboidBox[{7, 6, -8}], CuboidBox[{8, 6, -8}], CuboidBox[{9, 6, -8}], CuboidBox[{10, 6, -8}], CuboidBox[{11, 6, -8}], CuboidBox[{12, 6, -8}], CuboidBox[{13, 6, -8}], CuboidBox[{14, 6, -8}], CuboidBox[{15, 6, -8}], CuboidBox[{16, 6, -8}], CuboidBox[{17, 6, -8}], CuboidBox[{18, 6, -8}], CuboidBox[{4, 7, -8}], CuboidBox[{5, 7, -8}], CuboidBox[{6, 7, -8}], CuboidBox[{7, 7, -8}], CuboidBox[{8, 7, -8}], CuboidBox[{9, 7, -8}], CuboidBox[{10, 7, -8}], CuboidBox[{11, 7, -8}], CuboidBox[{12, 7, -8}], CuboidBox[{13, 7, -8}], CuboidBox[{14, 7, -8}], CuboidBox[{15, 7, -8}], CuboidBox[{16, 7, -8}], CuboidBox[{17, 7, -8}], CuboidBox[{18, 7, -8}], CuboidBox[{4, 8, -8}], CuboidBox[{5, 8, -8}], CuboidBox[{6, 8, -8}], CuboidBox[{7, 8, -8}], CuboidBox[{8, 8, -8}], CuboidBox[{9, 8, -8}], CuboidBox[{10, 8, -8}], CuboidBox[{11, 8, -8}], CuboidBox[{12, 8, -8}], CuboidBox[{13, 8, -8}], CuboidBox[{14, 8, -8}], CuboidBox[{15, 8, -8}], CuboidBox[{16, 8, -8}], CuboidBox[{17, 8, -8}], CuboidBox[{18, 8, -8}], CuboidBox[{4, 9, -8}], CuboidBox[{5, 9, -8}], CuboidBox[{6, 9, -8}], CuboidBox[{7, 9, -8}], CuboidBox[{8, 9, -8}], CuboidBox[{9, 9, -8}], CuboidBox[{10, 9, -8}], CuboidBox[{11, 9, -8}], CuboidBox[{12, 9, -8}], CuboidBox[{13, 9, -8}], CuboidBox[{14, 9, -8}], CuboidBox[{15, 9, -8}], CuboidBox[{16, 9, -8}], CuboidBox[{17, 9, -8}], CuboidBox[{18, 9, -8}], CuboidBox[{4, 10, -8}], CuboidBox[{5, 10, -8}], CuboidBox[{6, 10, -8}], CuboidBox[{7, 10, -8}], CuboidBox[{8, 10, -8}], CuboidBox[{9, 10, -8}], CuboidBox[{10, 10, -8}], CuboidBox[{11, 10, -8}], CuboidBox[{12, 10, -8}], CuboidBox[{13, 10, -8}], CuboidBox[{14, 10, -8}], CuboidBox[{15, 10, -8}], CuboidBox[{16, 10, -8}], CuboidBox[{17, 10, -8}], CuboidBox[{18, 10, -8}], CuboidBox[{4, 11, -8}], CuboidBox[{5, 11, -8}], CuboidBox[{6, 11, -8}], CuboidBox[{7, 11, -8}], CuboidBox[{8, 11, -8}], CuboidBox[{9, 11, -8}], CuboidBox[{10, 11, -8}], CuboidBox[{11, 11, -8}], CuboidBox[{12, 11, -8}], CuboidBox[{13, 11, -8}], CuboidBox[{14, 11, -8}], CuboidBox[{15, 11, -8}], CuboidBox[{16, 11, -8}], CuboidBox[{17, 11, -8}], CuboidBox[{18, 11, -8}], CuboidBox[{4, 12, -8}], CuboidBox[{5, 12, -8}], CuboidBox[{6, 12, -8}], CuboidBox[{7, 12, -8}], CuboidBox[{8, 12, -8}], CuboidBox[{9, 12, -8}], CuboidBox[{10, 12, -8}], CuboidBox[{11, 12, -8}], CuboidBox[{12, 12, -8}], CuboidBox[{13, 12, -8}], CuboidBox[{14, 12, -8}], CuboidBox[{15, 12, -8}], CuboidBox[{16, 12, -8}], CuboidBox[{17, 12, -8}], CuboidBox[{18, 12, -8}], CuboidBox[{4, 13, -8}], CuboidBox[{5, 13, -8}], CuboidBox[{6, 13, -8}], CuboidBox[{7, 13, -8}], CuboidBox[{8, 13, -8}], CuboidBox[{9, 13, -8}], CuboidBox[{10, 13, -8}], CuboidBox[{11, 13, -8}], CuboidBox[{12, 13, -8}], CuboidBox[{13, 13, -8}], CuboidBox[{14, 13, -8}], CuboidBox[{15, 13, -8}], CuboidBox[{16, 13, -8}], CuboidBox[{17, 13, -8}], CuboidBox[{18, 13, -8}], CuboidBox[{4, 14, -8}], CuboidBox[{5, 14, -8}], CuboidBox[{6, 14, -8}], CuboidBox[{7, 14, -8}], CuboidBox[{8, 14, -8}], CuboidBox[{9, 14, -8}], CuboidBox[{10, 14, -8}], CuboidBox[{11, 14, -8}], CuboidBox[{12, 14, -8}], CuboidBox[{13, 14, -8}], CuboidBox[{14, 14, -8}], CuboidBox[{15, 14, -8}], CuboidBox[{16, 14, -8}], CuboidBox[{17, 14, -8}], CuboidBox[{18, 14, -8}], CuboidBox[{4, 15, -8}], CuboidBox[{5, 15, -8}], CuboidBox[{6, 15, -8}], CuboidBox[{7, 15, -8}], CuboidBox[{8, 15, -8}], CuboidBox[{9, 15, -8}], CuboidBox[{10, 15, -8}], CuboidBox[{11, 15, -8}], CuboidBox[{12, 15, -8}], CuboidBox[{13, 15, -8}], CuboidBox[{14, 15, -8}], CuboidBox[{15, 15, -8}], CuboidBox[{16, 15, -8}], CuboidBox[{17, 15, -8}], CuboidBox[{18, 15, -8}], CuboidBox[{4, 16, -8}], CuboidBox[{5, 16, -8}], CuboidBox[{6, 16, -8}], CuboidBox[{7, 16, -8}], CuboidBox[{8, 16, -8}], CuboidBox[{9, 16, -8}], CuboidBox[{10, 16, -8}], CuboidBox[{11, 16, -8}], CuboidBox[{12, 16, -8}], CuboidBox[{13, 16, -8}], CuboidBox[{14, 16, -8}], CuboidBox[{15, 16, -8}], CuboidBox[{16, 16, -8}], CuboidBox[{17, 16, -8}], CuboidBox[{18, 16, -8}], CuboidBox[{4, 17, -8}], CuboidBox[{5, 17, -8}], CuboidBox[{6, 17, -8}], CuboidBox[{7, 17, -8}], CuboidBox[{8, 17, -8}], CuboidBox[{9, 17, -8}], CuboidBox[{10, 17, -8}], CuboidBox[{11, 17, -8}], CuboidBox[{12, 17, -8}], CuboidBox[{13, 17, -8}], CuboidBox[{14, 17, -8}], CuboidBox[{15, 17, -8}], CuboidBox[{16, 17, -8}], CuboidBox[{17, 17, -8}], CuboidBox[{18, 17, -8}], CuboidBox[{4, 18, -8}], CuboidBox[{5, 18, -8}], CuboidBox[{6, 18, -8}], CuboidBox[{7, 18, -8}], CuboidBox[{8, 18, -8}], CuboidBox[{9, 18, -8}], CuboidBox[{10, 18, -8}], CuboidBox[{11, 18, -8}], CuboidBox[{12, 18, -8}], CuboidBox[{13, 18, -8}], CuboidBox[{14, 18, -8}], CuboidBox[{15, 18, -8}], CuboidBox[{16, 18, -8}], CuboidBox[{17, 18, -8}], CuboidBox[{18, 18, -8}], CuboidBox[{3, 3, -9}], CuboidBox[{4, 3, -9}], CuboidBox[{5, 3, -9}], CuboidBox[{6, 3, -9}], CuboidBox[{7, 3, -9}], CuboidBox[{8, 3, -9}], CuboidBox[{9, 3, -9}], CuboidBox[{10, 3, -9}], CuboidBox[{11, 3, -9}], CuboidBox[{12, 3, -9}], CuboidBox[{13, 3, -9}], CuboidBox[{14, 3, -9}], CuboidBox[{15, 3, -9}], CuboidBox[{16, 3, -9}], CuboidBox[{17, 3, -9}], CuboidBox[{18, 3, -9}], CuboidBox[{19, 3, -9}], CuboidBox[{3, 4, -9}], CuboidBox[{4, 4, -9}], CuboidBox[{5, 4, -9}], CuboidBox[{6, 4, -9}], CuboidBox[{7, 4, -9}], CuboidBox[{8, 4, -9}], CuboidBox[{9, 4, -9}], CuboidBox[{10, 4, -9}], CuboidBox[{11, 4, -9}], CuboidBox[{12, 4, -9}], CuboidBox[{13, 4, -9}], CuboidBox[{14, 4, -9}], CuboidBox[{15, 4, -9}], CuboidBox[{16, 4, -9}], CuboidBox[{17, 4, -9}], CuboidBox[{18, 4, -9}], CuboidBox[{19, 4, -9}], CuboidBox[{3, 5, -9}], CuboidBox[{4, 5, -9}], CuboidBox[{5, 5, -9}], CuboidBox[{6, 5, -9}], CuboidBox[{7, 5, -9}], CuboidBox[{8, 5, -9}], CuboidBox[{9, 5, -9}], CuboidBox[{10, 5, -9}], CuboidBox[{11, 5, -9}], CuboidBox[{12, 5, -9}], CuboidBox[{13, 5, -9}], CuboidBox[{14, 5, -9}], CuboidBox[{15, 5, -9}], CuboidBox[{16, 5, -9}], CuboidBox[{17, 5, -9}], CuboidBox[{18, 5, -9}], CuboidBox[{19, 5, -9}], CuboidBox[{3, 6, -9}], CuboidBox[{4, 6, -9}], CuboidBox[{5, 6, -9}], CuboidBox[{6, 6, -9}], CuboidBox[{7, 6, -9}], CuboidBox[{8, 6, -9}], CuboidBox[{9, 6, -9}], CuboidBox[{10, 6, -9}], CuboidBox[{11, 6, -9}], CuboidBox[{12, 6, -9}], CuboidBox[{13, 6, -9}], CuboidBox[{14, 6, -9}], CuboidBox[{15, 6, -9}], CuboidBox[{16, 6, -9}], CuboidBox[{17, 6, -9}], CuboidBox[{18, 6, -9}], CuboidBox[{19, 6, -9}], CuboidBox[{3, 7, -9}], CuboidBox[{4, 7, -9}], CuboidBox[{5, 7, -9}], CuboidBox[{6, 7, -9}], CuboidBox[{7, 7, -9}], CuboidBox[{8, 7, -9}], CuboidBox[{9, 7, -9}], CuboidBox[{10, 7, -9}], CuboidBox[{11, 7, -9}], CuboidBox[{12, 7, -9}], CuboidBox[{13, 7, -9}], CuboidBox[{14, 7, -9}], CuboidBox[{15, 7, -9}], CuboidBox[{16, 7, -9}], CuboidBox[{17, 7, -9}], CuboidBox[{18, 7, -9}], CuboidBox[{19, 7, -9}], CuboidBox[{3, 8, -9}], CuboidBox[{4, 8, -9}], CuboidBox[{5, 8, -9}], CuboidBox[{6, 8, -9}], CuboidBox[{7, 8, -9}], CuboidBox[{8, 8, -9}], CuboidBox[{9, 8, -9}], CuboidBox[{10, 8, -9}], CuboidBox[{11, 8, -9}], CuboidBox[{12, 8, -9}], CuboidBox[{13, 8, -9}], CuboidBox[{14, 8, -9}], CuboidBox[{15, 8, -9}], CuboidBox[{16, 8, -9}], CuboidBox[{17, 8, -9}], CuboidBox[{18, 8, -9}], CuboidBox[{19, 8, -9}], CuboidBox[{3, 9, -9}], CuboidBox[{4, 9, -9}], CuboidBox[{5, 9, -9}], CuboidBox[{6, 9, -9}], CuboidBox[{7, 9, -9}], CuboidBox[{8, 9, -9}], CuboidBox[{9, 9, -9}], CuboidBox[{10, 9, -9}], CuboidBox[{11, 9, -9}], CuboidBox[{12, 9, -9}], CuboidBox[{13, 9, -9}], CuboidBox[{14, 9, -9}], CuboidBox[{15, 9, -9}], CuboidBox[{16, 9, -9}], CuboidBox[{17, 9, -9}], CuboidBox[{18, 9, -9}], CuboidBox[{19, 9, -9}], CuboidBox[{3, 10, -9}], CuboidBox[{4, 10, -9}], CuboidBox[{5, 10, -9}], CuboidBox[{6, 10, -9}], CuboidBox[{7, 10, -9}], CuboidBox[{8, 10, -9}], CuboidBox[{9, 10, -9}], CuboidBox[{10, 10, -9}], CuboidBox[{11, 10, -9}], CuboidBox[{12, 10, -9}], CuboidBox[{13, 10, -9}], CuboidBox[{14, 10, -9}], CuboidBox[{15, 10, -9}], CuboidBox[{16, 10, -9}], CuboidBox[{17, 10, -9}], CuboidBox[{18, 10, -9}], CuboidBox[{19, 10, -9}], CuboidBox[{3, 11, -9}], CuboidBox[{4, 11, -9}], CuboidBox[{5, 11, -9}], CuboidBox[{6, 11, -9}], CuboidBox[{7, 11, -9}], CuboidBox[{8, 11, -9}], CuboidBox[{9, 11, -9}], CuboidBox[{10, 11, -9}], CuboidBox[{11, 11, -9}], CuboidBox[{12, 11, -9}], CuboidBox[{13, 11, -9}], CuboidBox[{14, 11, -9}], CuboidBox[{15, 11, -9}], CuboidBox[{16, 11, -9}], CuboidBox[{17, 11, -9}], CuboidBox[{18, 11, -9}], CuboidBox[{19, 11, -9}], CuboidBox[{3, 12, -9}], CuboidBox[{4, 12, -9}], CuboidBox[{5, 12, -9}], CuboidBox[{6, 12, -9}], CuboidBox[{7, 12, -9}], CuboidBox[{8, 12, -9}], CuboidBox[{9, 12, -9}], CuboidBox[{10, 12, -9}], CuboidBox[{11, 12, -9}], CuboidBox[{12, 12, -9}], CuboidBox[{13, 12, -9}], CuboidBox[{14, 12, -9}], CuboidBox[{15, 12, -9}], CuboidBox[{16, 12, -9}], CuboidBox[{17, 12, -9}], CuboidBox[{18, 12, -9}], CuboidBox[{19, 12, -9}], CuboidBox[{3, 13, -9}], CuboidBox[{4, 13, -9}], CuboidBox[{5, 13, -9}], CuboidBox[{6, 13, -9}], CuboidBox[{7, 13, -9}], CuboidBox[{8, 13, -9}], CuboidBox[{9, 13, -9}], CuboidBox[{10, 13, -9}], CuboidBox[{11, 13, -9}], CuboidBox[{12, 13, -9}], CuboidBox[{13, 13, -9}], CuboidBox[{14, 13, -9}], CuboidBox[{15, 13, -9}], CuboidBox[{16, 13, -9}], CuboidBox[{17, 13, -9}], CuboidBox[{18, 13, -9}], CuboidBox[{19, 13, -9}], CuboidBox[{3, 14, -9}], CuboidBox[{4, 14, -9}], CuboidBox[{5, 14, -9}], CuboidBox[{6, 14, -9}], CuboidBox[{7, 14, -9}], CuboidBox[{8, 14, -9}], CuboidBox[{9, 14, -9}], CuboidBox[{10, 14, -9}], CuboidBox[{11, 14, -9}], CuboidBox[{12, 14, -9}], CuboidBox[{13, 14, -9}], CuboidBox[{14, 14, -9}], CuboidBox[{15, 14, -9}], CuboidBox[{16, 14, -9}], CuboidBox[{17, 14, -9}], CuboidBox[{18, 14, -9}], CuboidBox[{19, 14, -9}], CuboidBox[{3, 15, -9}], CuboidBox[{4, 15, -9}], CuboidBox[{5, 15, -9}], CuboidBox[{6, 15, -9}], CuboidBox[{7, 15, -9}], CuboidBox[{8, 15, -9}], CuboidBox[{9, 15, -9}], CuboidBox[{10, 15, -9}], CuboidBox[{11, 15, -9}], CuboidBox[{12, 15, -9}], CuboidBox[{13, 15, -9}], CuboidBox[{14, 15, -9}], CuboidBox[{15, 15, -9}], CuboidBox[{16, 15, -9}], CuboidBox[{17, 15, -9}], CuboidBox[{18, 15, -9}], CuboidBox[{19, 15, -9}], CuboidBox[{3, 16, -9}], CuboidBox[{4, 16, -9}], CuboidBox[{5, 16, -9}], CuboidBox[{6, 16, -9}], CuboidBox[{7, 16, -9}], CuboidBox[{8, 16, -9}], CuboidBox[{9, 16, -9}], CuboidBox[{10, 16, -9}], CuboidBox[{11, 16, -9}], CuboidBox[{12, 16, -9}], CuboidBox[{13, 16, -9}], CuboidBox[{14, 16, -9}], CuboidBox[{15, 16, -9}], CuboidBox[{16, 16, -9}], CuboidBox[{17, 16, -9}], CuboidBox[{18, 16, -9}], CuboidBox[{19, 16, -9}], CuboidBox[{3, 17, -9}], CuboidBox[{4, 17, -9}], CuboidBox[{5, 17, -9}], CuboidBox[{6, 17, -9}], CuboidBox[{7, 17, -9}], CuboidBox[{8, 17, -9}], CuboidBox[{9, 17, -9}], CuboidBox[{10, 17, -9}], CuboidBox[{11, 17, -9}], CuboidBox[{12, 17, -9}], CuboidBox[{13, 17, -9}], CuboidBox[{14, 17, -9}], CuboidBox[{15, 17, -9}], CuboidBox[{16, 17, -9}], CuboidBox[{17, 17, -9}], CuboidBox[{18, 17, -9}], CuboidBox[{19, 17, -9}], CuboidBox[{3, 18, -9}], CuboidBox[{4, 18, -9}], CuboidBox[{5, 18, -9}], CuboidBox[{6, 18, -9}], CuboidBox[{7, 18, -9}], CuboidBox[{8, 18, -9}], CuboidBox[{9, 18, -9}], CuboidBox[{10, 18, -9}], CuboidBox[{11, 18, -9}], CuboidBox[{12, 18, -9}], CuboidBox[{13, 18, -9}], CuboidBox[{14, 18, -9}], CuboidBox[{15, 18, -9}], CuboidBox[{16, 18, -9}], CuboidBox[{17, 18, -9}], CuboidBox[{18, 18, -9}], CuboidBox[{19, 18, -9}], CuboidBox[{3, 19, -9}], CuboidBox[{4, 19, -9}], CuboidBox[{5, 19, -9}], CuboidBox[{6, 19, -9}], CuboidBox[{7, 19, -9}], CuboidBox[{8, 19, -9}], CuboidBox[{9, 19, -9}], CuboidBox[{10, 19, -9}], CuboidBox[{11, 19, -9}], CuboidBox[{12, 19, -9}], CuboidBox[{13, 19, -9}], CuboidBox[{14, 19, -9}], CuboidBox[{15, 19, -9}], CuboidBox[{16, 19, -9}], CuboidBox[{17, 19, -9}], CuboidBox[{18, 19, -9}], CuboidBox[{19, 19, -9}], CuboidBox[{2, 2, -10}], CuboidBox[{3, 2, -10}], CuboidBox[{4, 2, -10}], CuboidBox[{5, 2, -10}], CuboidBox[{6, 2, -10}], CuboidBox[{7, 2, -10}], CuboidBox[{8, 2, -10}], CuboidBox[{9, 2, -10}], CuboidBox[{10, 2, -10}], CuboidBox[{11, 2, -10}], CuboidBox[{12, 2, -10}], CuboidBox[{13, 2, -10}], CuboidBox[{14, 2, -10}], CuboidBox[{15, 2, -10}], CuboidBox[{16, 2, -10}], CuboidBox[{17, 2, -10}], CuboidBox[{18, 2, -10}], CuboidBox[{19, 2, -10}], CuboidBox[{20, 2, -10}], CuboidBox[{2, 3, -10}], CuboidBox[{3, 3, -10}], CuboidBox[{4, 3, -10}], CuboidBox[{5, 3, -10}], CuboidBox[{6, 3, -10}], CuboidBox[{7, 3, -10}], CuboidBox[{8, 3, -10}], CuboidBox[{9, 3, -10}], CuboidBox[{10, 3, -10}], CuboidBox[{11, 3, -10}], CuboidBox[{12, 3, -10}], CuboidBox[{13, 3, -10}], CuboidBox[{14, 3, -10}], CuboidBox[{15, 3, -10}], CuboidBox[{16, 3, -10}], CuboidBox[{17, 3, -10}], CuboidBox[{18, 3, -10}], CuboidBox[{19, 3, -10}], CuboidBox[{20, 3, -10}], CuboidBox[{2, 4, -10}], CuboidBox[{3, 4, -10}], CuboidBox[{4, 4, -10}], CuboidBox[{5, 4, -10}], CuboidBox[{6, 4, -10}], CuboidBox[{7, 4, -10}], CuboidBox[{8, 4, -10}], CuboidBox[{9, 4, -10}], CuboidBox[{10, 4, -10}], CuboidBox[{11, 4, -10}], CuboidBox[{12, 4, -10}], CuboidBox[{13, 4, -10}], CuboidBox[{14, 4, -10}], CuboidBox[{15, 4, -10}], CuboidBox[{16, 4, -10}], CuboidBox[{17, 4, -10}], CuboidBox[{18, 4, -10}], CuboidBox[{19, 4, -10}], CuboidBox[{20, 4, -10}], CuboidBox[{2, 5, -10}], CuboidBox[{3, 5, -10}], CuboidBox[{4, 5, -10}], CuboidBox[{5, 5, -10}], CuboidBox[{6, 5, -10}], CuboidBox[{7, 5, -10}], CuboidBox[{8, 5, -10}], CuboidBox[{9, 5, -10}], CuboidBox[{10, 5, -10}], CuboidBox[{11, 5, -10}], CuboidBox[{12, 5, -10}], CuboidBox[{13, 5, -10}], CuboidBox[{14, 5, -10}], CuboidBox[{15, 5, -10}], CuboidBox[{16, 5, -10}], CuboidBox[{17, 5, -10}], CuboidBox[{18, 5, -10}], CuboidBox[{19, 5, -10}], CuboidBox[{20, 5, -10}], CuboidBox[{2, 6, -10}], CuboidBox[{3, 6, -10}], CuboidBox[{4, 6, -10}], CuboidBox[{5, 6, -10}], CuboidBox[{6, 6, -10}], CuboidBox[{7, 6, -10}], CuboidBox[{8, 6, -10}], CuboidBox[{9, 6, -10}], CuboidBox[{10, 6, -10}], CuboidBox[{11, 6, -10}], CuboidBox[{12, 6, -10}], CuboidBox[{13, 6, -10}], CuboidBox[{14, 6, -10}], CuboidBox[{15, 6, -10}], CuboidBox[{16, 6, -10}], CuboidBox[{17, 6, -10}], CuboidBox[{18, 6, -10}], CuboidBox[{19, 6, -10}], CuboidBox[{20, 6, -10}], CuboidBox[{2, 7, -10}], CuboidBox[{3, 7, -10}], CuboidBox[{4, 7, -10}], CuboidBox[{5, 7, -10}], CuboidBox[{6, 7, -10}], CuboidBox[{7, 7, -10}], CuboidBox[{8, 7, -10}], CuboidBox[{9, 7, -10}], CuboidBox[{10, 7, -10}], CuboidBox[{11, 7, -10}], CuboidBox[{12, 7, -10}], CuboidBox[{13, 7, -10}], CuboidBox[{14, 7, -10}], CuboidBox[{15, 7, -10}], CuboidBox[{16, 7, -10}], CuboidBox[{17, 7, -10}], CuboidBox[{18, 7, -10}], CuboidBox[{19, 7, -10}], CuboidBox[{20, 7, -10}], CuboidBox[{2, 8, -10}], CuboidBox[{3, 8, -10}], CuboidBox[{4, 8, -10}], CuboidBox[{5, 8, -10}], CuboidBox[{6, 8, -10}], CuboidBox[{7, 8, -10}], CuboidBox[{8, 8, -10}], CuboidBox[{9, 8, -10}], CuboidBox[{10, 8, -10}], CuboidBox[{11, 8, -10}], CuboidBox[{12, 8, -10}], CuboidBox[{13, 8, -10}], CuboidBox[{14, 8, -10}], CuboidBox[{15, 8, -10}], CuboidBox[{16, 8, -10}], CuboidBox[{17, 8, -10}], CuboidBox[{18, 8, -10}], CuboidBox[{19, 8, -10}], CuboidBox[{20, 8, -10}], CuboidBox[{2, 9, -10}], CuboidBox[{3, 9, -10}], CuboidBox[{4, 9, -10}], CuboidBox[{5, 9, -10}], CuboidBox[{6, 9, -10}], CuboidBox[{7, 9, -10}], CuboidBox[{8, 9, -10}], CuboidBox[{9, 9, -10}], CuboidBox[{10, 9, -10}], CuboidBox[{11, 9, -10}], CuboidBox[{12, 9, -10}], CuboidBox[{13, 9, -10}], CuboidBox[{14, 9, -10}], CuboidBox[{15, 9, -10}], CuboidBox[{16, 9, -10}], CuboidBox[{17, 9, -10}], CuboidBox[{18, 9, -10}], CuboidBox[{19, 9, -10}], CuboidBox[{20, 9, -10}], CuboidBox[{2, 10, -10}], CuboidBox[{3, 10, -10}], CuboidBox[{4, 10, -10}], CuboidBox[{5, 10, -10}], CuboidBox[{6, 10, -10}], CuboidBox[{7, 10, -10}], CuboidBox[{8, 10, -10}], CuboidBox[{9, 10, -10}], CuboidBox[{10, 10, -10}], CuboidBox[{11, 10, -10}], CuboidBox[{12, 10, -10}], CuboidBox[{13, 10, -10}], CuboidBox[{14, 10, -10}], CuboidBox[{15, 10, -10}], CuboidBox[{16, 10, -10}], CuboidBox[{17, 10, -10}], CuboidBox[{18, 10, -10}], CuboidBox[{19, 10, -10}], CuboidBox[{20, 10, -10}], CuboidBox[{2, 11, -10}], CuboidBox[{3, 11, -10}], CuboidBox[{4, 11, -10}], CuboidBox[{5, 11, -10}], CuboidBox[{6, 11, -10}], CuboidBox[{7, 11, -10}], CuboidBox[{8, 11, -10}], CuboidBox[{9, 11, -10}], CuboidBox[{10, 11, -10}], CuboidBox[{11, 11, -10}], CuboidBox[{12, 11, -10}], CuboidBox[{13, 11, -10}], CuboidBox[{14, 11, -10}], CuboidBox[{15, 11, -10}], CuboidBox[{16, 11, -10}], CuboidBox[{17, 11, -10}], CuboidBox[{18, 11, -10}], CuboidBox[{19, 11, -10}], CuboidBox[{20, 11, -10}], CuboidBox[{2, 12, -10}], CuboidBox[{3, 12, -10}], CuboidBox[{4, 12, -10}], CuboidBox[{5, 12, -10}], CuboidBox[{6, 12, -10}], CuboidBox[{7, 12, -10}], CuboidBox[{8, 12, -10}], CuboidBox[{9, 12, -10}], CuboidBox[{10, 12, -10}], CuboidBox[{11, 12, -10}], CuboidBox[{12, 12, -10}], CuboidBox[{13, 12, -10}], CuboidBox[{14, 12, -10}], CuboidBox[{15, 12, -10}], CuboidBox[{16, 12, -10}], CuboidBox[{17, 12, -10}], CuboidBox[{18, 12, -10}], CuboidBox[{19, 12, -10}], CuboidBox[{20, 12, -10}], CuboidBox[{2, 13, -10}], CuboidBox[{3, 13, -10}], CuboidBox[{4, 13, -10}], CuboidBox[{5, 13, -10}], CuboidBox[{6, 13, -10}], CuboidBox[{7, 13, -10}], CuboidBox[{8, 13, -10}], CuboidBox[{9, 13, -10}], CuboidBox[{10, 13, -10}], CuboidBox[{11, 13, -10}], CuboidBox[{12, 13, -10}], CuboidBox[{13, 13, -10}], CuboidBox[{14, 13, -10}], CuboidBox[{15, 13, -10}], CuboidBox[{16, 13, -10}], CuboidBox[{17, 13, -10}], CuboidBox[{18, 13, -10}], CuboidBox[{19, 13, -10}], CuboidBox[{20, 13, -10}], CuboidBox[{2, 14, -10}], CuboidBox[{3, 14, -10}], CuboidBox[{4, 14, -10}], CuboidBox[{5, 14, -10}], CuboidBox[{6, 14, -10}], CuboidBox[{7, 14, -10}], CuboidBox[{8, 14, -10}], CuboidBox[{9, 14, -10}], CuboidBox[{10, 14, -10}], CuboidBox[{11, 14, -10}], CuboidBox[{12, 14, -10}], CuboidBox[{13, 14, -10}], CuboidBox[{14, 14, -10}], CuboidBox[{15, 14, -10}], CuboidBox[{16, 14, -10}], CuboidBox[{17, 14, -10}], CuboidBox[{18, 14, -10}], CuboidBox[{19, 14, -10}], CuboidBox[{20, 14, -10}], CuboidBox[{2, 15, -10}], CuboidBox[{3, 15, -10}], CuboidBox[{4, 15, -10}], CuboidBox[{5, 15, -10}], CuboidBox[{6, 15, -10}], CuboidBox[{7, 15, -10}], CuboidBox[{8, 15, -10}], CuboidBox[{9, 15, -10}], CuboidBox[{10, 15, -10}], CuboidBox[{11, 15, -10}], CuboidBox[{12, 15, -10}], CuboidBox[{13, 15, -10}], CuboidBox[{14, 15, -10}], CuboidBox[{15, 15, -10}], CuboidBox[{16, 15, -10}], CuboidBox[{17, 15, -10}], CuboidBox[{18, 15, -10}], CuboidBox[{19, 15, -10}], CuboidBox[{20, 15, -10}], CuboidBox[{2, 16, -10}], CuboidBox[{3, 16, -10}], CuboidBox[{4, 16, -10}], CuboidBox[{5, 16, -10}], CuboidBox[{6, 16, -10}], CuboidBox[{7, 16, -10}], CuboidBox[{8, 16, -10}], CuboidBox[{9, 16, -10}], CuboidBox[{10, 16, -10}], CuboidBox[{11, 16, -10}], CuboidBox[{12, 16, -10}], CuboidBox[{13, 16, -10}], CuboidBox[{14, 16, -10}], CuboidBox[{15, 16, -10}], CuboidBox[{16, 16, -10}], CuboidBox[{17, 16, -10}], CuboidBox[{18, 16, -10}], CuboidBox[{19, 16, -10}], CuboidBox[{20, 16, -10}], CuboidBox[{2, 17, -10}], CuboidBox[{3, 17, -10}], CuboidBox[{4, 17, -10}], CuboidBox[{5, 17, -10}], CuboidBox[{6, 17, -10}], CuboidBox[{7, 17, -10}], CuboidBox[{8, 17, -10}], CuboidBox[{9, 17, -10}], CuboidBox[{10, 17, -10}], CuboidBox[{11, 17, -10}], CuboidBox[{12, 17, -10}], CuboidBox[{13, 17, -10}], CuboidBox[{14, 17, -10}], CuboidBox[{15, 17, -10}], CuboidBox[{16, 17, -10}], CuboidBox[{17, 17, -10}], CuboidBox[{18, 17, -10}], CuboidBox[{19, 17, -10}], CuboidBox[{20, 17, -10}], CuboidBox[{2, 18, -10}], CuboidBox[{3, 18, -10}], CuboidBox[{4, 18, -10}], CuboidBox[{5, 18, -10}], CuboidBox[{6, 18, -10}], CuboidBox[{7, 18, -10}], CuboidBox[{8, 18, -10}], CuboidBox[{9, 18, -10}], CuboidBox[{10, 18, -10}], CuboidBox[{11, 18, -10}], CuboidBox[{12, 18, -10}], CuboidBox[{13, 18, -10}], CuboidBox[{14, 18, -10}], CuboidBox[{15, 18, -10}], CuboidBox[{16, 18, -10}], CuboidBox[{17, 18, -10}], CuboidBox[{18, 18, -10}], CuboidBox[{19, 18, -10}], CuboidBox[{20, 18, -10}], CuboidBox[{2, 19, -10}], CuboidBox[{3, 19, -10}], CuboidBox[{4, 19, -10}], CuboidBox[{5, 19, -10}], CuboidBox[{6, 19, -10}], CuboidBox[{7, 19, -10}], CuboidBox[{8, 19, -10}], CuboidBox[{9, 19, -10}], CuboidBox[{10, 19, -10}], CuboidBox[{11, 19, -10}], CuboidBox[{12, 19, -10}], CuboidBox[{13, 19, -10}], CuboidBox[{14, 19, -10}], CuboidBox[{15, 19, -10}], CuboidBox[{16, 19, -10}], CuboidBox[{17, 19, -10}], CuboidBox[{18, 19, -10}], CuboidBox[{19, 19, -10}], CuboidBox[{20, 19, -10}], CuboidBox[{2, 20, -10}], CuboidBox[{3, 20, -10}], CuboidBox[{4, 20, -10}], CuboidBox[{5, 20, -10}], CuboidBox[{6, 20, -10}], CuboidBox[{7, 20, -10}], CuboidBox[{8, 20, -10}], CuboidBox[{9, 20, -10}], CuboidBox[{10, 20, -10}], CuboidBox[{11, 20, -10}], CuboidBox[{12, 20, -10}], CuboidBox[{13, 20, -10}], CuboidBox[{14, 20, -10}], CuboidBox[{15, 20, -10}], CuboidBox[{16, 20, -10}], CuboidBox[{17, 20, -10}], CuboidBox[{18, 20, -10}], CuboidBox[{19, 20, -10}], CuboidBox[{20, 20, -10}], CuboidBox[{1, 1, -11}], CuboidBox[{2, 1, -11}], CuboidBox[{3, 1, -11}], CuboidBox[{4, 1, -11}], CuboidBox[{5, 1, -11}], CuboidBox[{6, 1, -11}], CuboidBox[{7, 1, -11}], CuboidBox[{8, 1, -11}], CuboidBox[{9, 1, -11}], CuboidBox[{10, 1, -11}], CuboidBox[{11, 1, -11}], CuboidBox[{12, 1, -11}], CuboidBox[{13, 1, -11}], CuboidBox[{14, 1, -11}], CuboidBox[{15, 1, -11}], CuboidBox[{16, 1, -11}], CuboidBox[{17, 1, -11}], CuboidBox[{18, 1, -11}], CuboidBox[{19, 1, -11}], CuboidBox[{20, 1, -11}], CuboidBox[{21, 1, -11}], CuboidBox[{1, 2, -11}], CuboidBox[{2, 2, -11}], CuboidBox[{3, 2, -11}], CuboidBox[{4, 2, -11}], CuboidBox[{5, 2, -11}], CuboidBox[{6, 2, -11}], CuboidBox[{7, 2, -11}], CuboidBox[{8, 2, -11}], CuboidBox[{9, 2, -11}], CuboidBox[{10, 2, -11}], CuboidBox[{11, 2, -11}], CuboidBox[{12, 2, -11}], CuboidBox[{13, 2, -11}], CuboidBox[{14, 2, -11}], CuboidBox[{15, 2, -11}], CuboidBox[{16, 2, -11}], CuboidBox[{17, 2, -11}], CuboidBox[{18, 2, -11}], CuboidBox[{19, 2, -11}], CuboidBox[{20, 2, -11}], CuboidBox[{21, 2, -11}], CuboidBox[{1, 3, -11}], CuboidBox[{2, 3, -11}], CuboidBox[{3, 3, -11}], CuboidBox[{4, 3, -11}], CuboidBox[{5, 3, -11}], CuboidBox[{6, 3, -11}], CuboidBox[{7, 3, -11}], CuboidBox[{8, 3, -11}], CuboidBox[{9, 3, -11}], CuboidBox[{10, 3, -11}], CuboidBox[{11, 3, -11}], CuboidBox[{12, 3, -11}], CuboidBox[{13, 3, -11}], CuboidBox[{14, 3, -11}], CuboidBox[{15, 3, -11}], CuboidBox[{16, 3, -11}], CuboidBox[{17, 3, -11}], CuboidBox[{18, 3, -11}], CuboidBox[{19, 3, -11}], CuboidBox[{20, 3, -11}], CuboidBox[{21, 3, -11}], CuboidBox[{1, 4, -11}], CuboidBox[{2, 4, -11}], CuboidBox[{3, 4, -11}], CuboidBox[{4, 4, -11}], CuboidBox[{5, 4, -11}], CuboidBox[{6, 4, -11}], CuboidBox[{7, 4, -11}], CuboidBox[{8, 4, -11}], CuboidBox[{9, 4, -11}], CuboidBox[{10, 4, -11}], CuboidBox[{11, 4, -11}], CuboidBox[{12, 4, -11}], CuboidBox[{13, 4, -11}], CuboidBox[{14, 4, -11}], CuboidBox[{15, 4, -11}], CuboidBox[{16, 4, -11}], CuboidBox[{17, 4, -11}], CuboidBox[{18, 4, -11}], CuboidBox[{19, 4, -11}], CuboidBox[{20, 4, -11}], CuboidBox[{21, 4, -11}], CuboidBox[{1, 5, -11}], CuboidBox[{2, 5, -11}], CuboidBox[{3, 5, -11}], CuboidBox[{4, 5, -11}], CuboidBox[{5, 5, -11}], CuboidBox[{6, 5, -11}], CuboidBox[{7, 5, -11}], CuboidBox[{8, 5, -11}], CuboidBox[{9, 5, -11}], CuboidBox[{10, 5, -11}], CuboidBox[{11, 5, -11}], CuboidBox[{12, 5, -11}], CuboidBox[{13, 5, -11}], CuboidBox[{14, 5, -11}], CuboidBox[{15, 5, -11}], CuboidBox[{16, 5, -11}], CuboidBox[{17, 5, -11}], CuboidBox[{18, 5, -11}], CuboidBox[{19, 5, -11}], CuboidBox[{20, 5, -11}], CuboidBox[{21, 5, -11}], CuboidBox[{1, 6, -11}], CuboidBox[{2, 6, -11}], CuboidBox[{3, 6, -11}], CuboidBox[{4, 6, -11}], CuboidBox[{5, 6, -11}], CuboidBox[{6, 6, -11}], CuboidBox[{7, 6, -11}], CuboidBox[{8, 6, -11}], CuboidBox[{9, 6, -11}], CuboidBox[{10, 6, -11}], CuboidBox[{11, 6, -11}], CuboidBox[{12, 6, -11}], CuboidBox[{13, 6, -11}], CuboidBox[{14, 6, -11}], CuboidBox[{15, 6, -11}], CuboidBox[{16, 6, -11}], CuboidBox[{17, 6, -11}], CuboidBox[{18, 6, -11}], CuboidBox[{19, 6, -11}], CuboidBox[{20, 6, -11}], CuboidBox[{21, 6, -11}], CuboidBox[{1, 7, -11}], CuboidBox[{2, 7, -11}], CuboidBox[{3, 7, -11}], CuboidBox[{4, 7, -11}], CuboidBox[{5, 7, -11}], CuboidBox[{6, 7, -11}], CuboidBox[{7, 7, -11}], CuboidBox[{8, 7, -11}], CuboidBox[{9, 7, -11}], CuboidBox[{10, 7, -11}], CuboidBox[{11, 7, -11}], CuboidBox[{12, 7, -11}], CuboidBox[{13, 7, -11}], CuboidBox[{14, 7, -11}], CuboidBox[{15, 7, -11}], CuboidBox[{16, 7, -11}], CuboidBox[{17, 7, -11}], CuboidBox[{18, 7, -11}], CuboidBox[{19, 7, -11}], CuboidBox[{20, 7, -11}], CuboidBox[{21, 7, -11}], CuboidBox[{1, 8, -11}], CuboidBox[{2, 8, -11}], CuboidBox[{3, 8, -11}], CuboidBox[{4, 8, -11}], CuboidBox[{5, 8, -11}], CuboidBox[{6, 8, -11}], CuboidBox[{7, 8, -11}], CuboidBox[{8, 8, -11}], CuboidBox[{9, 8, -11}], CuboidBox[{10, 8, -11}], CuboidBox[{11, 8, -11}], CuboidBox[{12, 8, -11}], CuboidBox[{13, 8, -11}], CuboidBox[{14, 8, -11}], CuboidBox[{15, 8, -11}], CuboidBox[{16, 8, -11}], CuboidBox[{17, 8, -11}], CuboidBox[{18, 8, -11}], CuboidBox[{19, 8, -11}], CuboidBox[{20, 8, -11}], CuboidBox[{21, 8, -11}], CuboidBox[{1, 9, -11}], CuboidBox[{2, 9, -11}], CuboidBox[{3, 9, -11}], CuboidBox[{4, 9, -11}], CuboidBox[{5, 9, -11}], CuboidBox[{6, 9, -11}], CuboidBox[{7, 9, -11}], CuboidBox[{8, 9, -11}], CuboidBox[{9, 9, -11}], CuboidBox[{10, 9, -11}], CuboidBox[{11, 9, -11}], CuboidBox[{12, 9, -11}], CuboidBox[{13, 9, -11}], CuboidBox[{14, 9, -11}], CuboidBox[{15, 9, -11}], CuboidBox[{16, 9, -11}], CuboidBox[{17, 9, -11}], CuboidBox[{18, 9, -11}], CuboidBox[{19, 9, -11}], CuboidBox[{20, 9, -11}], CuboidBox[{21, 9, -11}], CuboidBox[{1, 10, -11}], CuboidBox[{2, 10, -11}], CuboidBox[{3, 10, -11}], CuboidBox[{4, 10, -11}], CuboidBox[{5, 10, -11}], CuboidBox[{6, 10, -11}], CuboidBox[{7, 10, -11}], CuboidBox[{8, 10, -11}], CuboidBox[{9, 10, -11}], CuboidBox[{10, 10, -11}], CuboidBox[{11, 10, -11}], CuboidBox[{12, 10, -11}], CuboidBox[{13, 10, -11}], CuboidBox[{14, 10, -11}], CuboidBox[{15, 10, -11}], CuboidBox[{16, 10, -11}], CuboidBox[{17, 10, -11}], CuboidBox[{18, 10, -11}], CuboidBox[{19, 10, -11}], CuboidBox[{20, 10, -11}], CuboidBox[{21, 10, -11}], CuboidBox[{1, 11, -11}], CuboidBox[{2, 11, -11}], CuboidBox[{3, 11, -11}], CuboidBox[{4, 11, -11}], CuboidBox[{5, 11, -11}], CuboidBox[{6, 11, -11}], CuboidBox[{7, 11, -11}], CuboidBox[{8, 11, -11}], CuboidBox[{9, 11, -11}], CuboidBox[{10, 11, -11}], CuboidBox[{11, 11, -11}], CuboidBox[{12, 11, -11}], CuboidBox[{13, 11, -11}], CuboidBox[{14, 11, -11}], CuboidBox[{15, 11, -11}], CuboidBox[{16, 11, -11}], CuboidBox[{17, 11, -11}], CuboidBox[{18, 11, -11}], CuboidBox[{19, 11, -11}], CuboidBox[{20, 11, -11}], CuboidBox[{21, 11, -11}], CuboidBox[{1, 12, -11}], CuboidBox[{2, 12, -11}], CuboidBox[{3, 12, -11}], CuboidBox[{4, 12, -11}], CuboidBox[{5, 12, -11}], CuboidBox[{6, 12, -11}], CuboidBox[{7, 12, -11}], CuboidBox[{8, 12, -11}], CuboidBox[{9, 12, -11}], CuboidBox[{10, 12, -11}], CuboidBox[{11, 12, -11}], CuboidBox[{12, 12, -11}], CuboidBox[{13, 12, -11}], CuboidBox[{14, 12, -11}], CuboidBox[{15, 12, -11}], CuboidBox[{16, 12, -11}], CuboidBox[{17, 12, -11}], CuboidBox[{18, 12, -11}], CuboidBox[{19, 12, -11}], CuboidBox[{20, 12, -11}], CuboidBox[{21, 12, -11}], CuboidBox[{1, 13, -11}], CuboidBox[{2, 13, -11}], CuboidBox[{3, 13, -11}], CuboidBox[{4, 13, -11}], CuboidBox[{5, 13, -11}], CuboidBox[{6, 13, -11}], CuboidBox[{7, 13, -11}], CuboidBox[{8, 13, -11}], CuboidBox[{9, 13, -11}], CuboidBox[{10, 13, -11}], CuboidBox[{11, 13, -11}], CuboidBox[{12, 13, -11}], CuboidBox[{13, 13, -11}], CuboidBox[{14, 13, -11}], CuboidBox[{15, 13, -11}], CuboidBox[{16, 13, -11}], CuboidBox[{17, 13, -11}], CuboidBox[{18, 13, -11}], CuboidBox[{19, 13, -11}], CuboidBox[{20, 13, -11}], CuboidBox[{21, 13, -11}], CuboidBox[{1, 14, -11}], CuboidBox[{2, 14, -11}], CuboidBox[{3, 14, -11}], CuboidBox[{4, 14, -11}], CuboidBox[{5, 14, -11}], CuboidBox[{6, 14, -11}], CuboidBox[{7, 14, -11}], CuboidBox[{8, 14, -11}], CuboidBox[{9, 14, -11}], CuboidBox[{10, 14, -11}], CuboidBox[{11, 14, -11}], CuboidBox[{12, 14, -11}], CuboidBox[{13, 14, -11}], CuboidBox[{14, 14, -11}], CuboidBox[{15, 14, -11}], CuboidBox[{16, 14, -11}], CuboidBox[{17, 14, -11}], CuboidBox[{18, 14, -11}], CuboidBox[{19, 14, -11}], CuboidBox[{20, 14, -11}], CuboidBox[{21, 14, -11}], CuboidBox[{1, 15, -11}], CuboidBox[{2, 15, -11}], CuboidBox[{3, 15, -11}], CuboidBox[{4, 15, -11}], CuboidBox[{5, 15, -11}], CuboidBox[{6, 15, -11}], CuboidBox[{7, 15, -11}], CuboidBox[{8, 15, -11}], CuboidBox[{9, 15, -11}], CuboidBox[{10, 15, -11}], CuboidBox[{11, 15, -11}], CuboidBox[{12, 15, -11}], CuboidBox[{13, 15, -11}], CuboidBox[{14, 15, -11}], CuboidBox[{15, 15, -11}], CuboidBox[{16, 15, -11}], CuboidBox[{17, 15, -11}], CuboidBox[{18, 15, -11}], CuboidBox[{19, 15, -11}], CuboidBox[{20, 15, -11}], CuboidBox[{21, 15, -11}], CuboidBox[{1, 16, -11}], CuboidBox[{2, 16, -11}], CuboidBox[{3, 16, -11}], CuboidBox[{4, 16, -11}], CuboidBox[{5, 16, -11}], CuboidBox[{6, 16, -11}], CuboidBox[{7, 16, -11}], CuboidBox[{8, 16, -11}], CuboidBox[{9, 16, -11}], CuboidBox[{10, 16, -11}], CuboidBox[{11, 16, -11}], CuboidBox[{12, 16, -11}], CuboidBox[{13, 16, -11}], CuboidBox[{14, 16, -11}], CuboidBox[{15, 16, -11}], CuboidBox[{16, 16, -11}], CuboidBox[{17, 16, -11}], CuboidBox[{18, 16, -11}], CuboidBox[{19, 16, -11}], CuboidBox[{20, 16, -11}], CuboidBox[{21, 16, -11}], CuboidBox[{1, 17, -11}], CuboidBox[{2, 17, -11}], CuboidBox[{3, 17, -11}], CuboidBox[{4, 17, -11}], CuboidBox[{5, 17, -11}], CuboidBox[{6, 17, -11}], CuboidBox[{7, 17, -11}], CuboidBox[{8, 17, -11}], CuboidBox[{9, 17, -11}], CuboidBox[{10, 17, -11}], CuboidBox[{11, 17, -11}], CuboidBox[{12, 17, -11}], CuboidBox[{13, 17, -11}], CuboidBox[{14, 17, -11}], CuboidBox[{15, 17, -11}], CuboidBox[{16, 17, -11}], CuboidBox[{17, 17, -11}], CuboidBox[{18, 17, -11}], CuboidBox[{19, 17, -11}], CuboidBox[{20, 17, -11}], CuboidBox[{21, 17, -11}], CuboidBox[{1, 18, -11}], CuboidBox[{2, 18, -11}], CuboidBox[{3, 18, -11}], CuboidBox[{4, 18, -11}], CuboidBox[{5, 18, -11}], CuboidBox[{6, 18, -11}], CuboidBox[{7, 18, -11}], CuboidBox[{8, 18, -11}], CuboidBox[{9, 18, -11}], CuboidBox[{10, 18, -11}], CuboidBox[{11, 18, -11}], CuboidBox[{12, 18, -11}], CuboidBox[{13, 18, -11}], CuboidBox[{14, 18, -11}], CuboidBox[{15, 18, -11}], CuboidBox[{16, 18, -11}], CuboidBox[{17, 18, -11}], CuboidBox[{18, 18, -11}], CuboidBox[{19, 18, -11}], CuboidBox[{20, 18, -11}], CuboidBox[{21, 18, -11}], CuboidBox[{1, 19, -11}], CuboidBox[{2, 19, -11}], CuboidBox[{3, 19, -11}], CuboidBox[{4, 19, -11}], CuboidBox[{5, 19, -11}], CuboidBox[{6, 19, -11}], CuboidBox[{7, 19, -11}], CuboidBox[{8, 19, -11}], CuboidBox[{9, 19, -11}], CuboidBox[{10, 19, -11}], CuboidBox[{11, 19, -11}], CuboidBox[{12, 19, -11}], CuboidBox[{13, 19, -11}], CuboidBox[{14, 19, -11}], CuboidBox[{15, 19, -11}], CuboidBox[{16, 19, -11}], CuboidBox[{17, 19, -11}], CuboidBox[{18, 19, -11}], CuboidBox[{19, 19, -11}], CuboidBox[{20, 19, -11}], CuboidBox[{21, 19, -11}], CuboidBox[{1, 20, -11}], CuboidBox[{2, 20, -11}], CuboidBox[{3, 20, -11}], CuboidBox[{4, 20, -11}], CuboidBox[{5, 20, -11}], CuboidBox[{6, 20, -11}], CuboidBox[{7, 20, -11}], CuboidBox[{8, 20, -11}], CuboidBox[{9, 20, -11}], CuboidBox[{10, 20, -11}], CuboidBox[{11, 20, -11}], CuboidBox[{12, 20, -11}], CuboidBox[{13, 20, -11}], CuboidBox[{14, 20, -11}], CuboidBox[{15, 20, -11}], CuboidBox[{16, 20, -11}], CuboidBox[{17, 20, -11}], CuboidBox[{18, 20, -11}], CuboidBox[{19, 20, -11}], CuboidBox[{20, 20, -11}], CuboidBox[{21, 20, -11}], CuboidBox[{1, 21, -11}], CuboidBox[{2, 21, -11}], CuboidBox[{3, 21, -11}], CuboidBox[{4, 21, -11}], CuboidBox[{5, 21, -11}], CuboidBox[{6, 21, -11}], CuboidBox[{7, 21, -11}], CuboidBox[{8, 21, -11}], CuboidBox[{9, 21, -11}], CuboidBox[{10, 21, -11}], CuboidBox[{11, 21, -11}], CuboidBox[{12, 21, -11}], CuboidBox[{13, 21, -11}], CuboidBox[{14, 21, -11}], CuboidBox[{15, 21, -11}], CuboidBox[{16, 21, -11}], CuboidBox[{17, 21, -11}], CuboidBox[{18, 21, -11}], CuboidBox[{19, 21, -11}], CuboidBox[{20, 21, -11}], CuboidBox[{21, 21, -11}]}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzdXXuPHMURH+/s7J1fGGODXxifsQHzMJg3xkAAOSQIkaeIEiRCDDhgKYkT QFH+yyeJFH8Hvki+D5Jz04/q6upf1XTP7pkoK+3d3kw/quv5q+qevQ9vfPvV zT/f+PbW5zd2fvL1jb9+devzb3beu/317qV+X9d13+2+/7XTjZ/v7n4MP77r 7t7d/fSP8Vff3bx586q/8Pfx12K8sKBPr/lb31DbpbvgPrpP4+9XfaO/Ua8t vdFfaKSV/zS+ltQytH7FN/4TjZgaL7rbl//Z+X6x10LMN75f9EPcyudbjN0G NsT3//7adTOG+BJQsdtyHGN8jb+XYMQejPiCH/ELQBQfYvw0vt1aF2G+OK7/ qxz7eT/2Zzm1S7ngNLZj5p3/fM+YOTH2p4DuHoztrvV+VeMEy2wCZY4rfo5P AP3LwGQ+B+PMOMX4Gn8PYcI42cg1t1B1wo8rF+WEsUwz9jSnn7Gcd/eNFvqc n/e3QK0GvFB3b8VYGWfdfXsmDHJilc3P+tk/AqteaKJcSl2J8ztu9/zuOFWU x8IR4ilmxh34/muwfkXQbP35/Auafynm93c9a0Yq4vzRHQUh/ILYMNi2nWgi FVaUYEmsXPB2JWE9yUnzYc94In+Wc8p2F0GPSuJ60hbp/6T84kuSqRlSIPOD aV5iu1KUaymucZIs5zu+Y7uc68xckE5c9ut4fyPs5qqpmNWuSnOaY28XZYnU aS15ypP93hrsh05UrqfDHgJ7jXxQTSQ982mMDcYqrzcLR6oRzasKRwhWBmCh S8tslR32uk966t/JZbTUKHA3tjQpGPo/KVWEJpifSqIIL7SYS34xPwKiUAOn KooliaIGSWguzYeaXLmYEQ2ZEUV7Dyr1RotQUBRSMRbrgeP2QjA9SIRPYsXy J/wCXt+cIKohnSbEJViRw0ExMop4gpb1uF/Wq5VysdCRBR9dP2Rkg5RBWEQH V2j4rLCQl5vlo4IL1VAq0GnRN8phAEtdtOjhY36dL4AINI3o2mU23U+Cgbj6 wJy0yN2fq3p5hnU+B9apR8Z65FghXBuEq30ROlqGzihxKDgWGyw01lz0rLk8 C9QXorRDc6GbJeayEinhgWTm4Fe42yJg5cTcctUX/KqfalEIVY4ie5iAWb7d rKF6rJcyGIXfnj+rLDNgTVZTUTYYzaV6zaiQ71ydwpWQDO4hV+A5ML44wAjN kp7UIvZHPUseu2dqo8galzDiNWqqaVCLMir5WfTGJF3JQuqaZI8M8bzn6IVZ StYegWYmfAutrwCyiDtKqsT0DptfcFE7m9O1mWGqzb2lv+zUVGheyqjjK/Aw SSemClMqitRsxzPzkc2o2TpRrijkaN5MU1Lmt5O1+Up4V2aDlNreKWG85uXO eWad2bDmbTA4dnYiTaNM6KBnrCAtQ2eCk05x7qQCwniNeVwlFTd4fEpVyPpU qUIb98Ttpb4JlmaGquT0eYwo/KAs7gXTfahFGytysSZthHpUFXDXdo+GqqfM DuheQH1q/l6bIp717D++WUXdVHRep1rI0TRzlXb9QFo+Bx7ddMU9cPPoPVPm egDZFOGbvCtUYawBPSX2vOqczcAlwF5F0VD6kUc864+Amo4gULXZ/z29Vit+ rKJkgwGeHSoVFeQqkHI/7Dl86F4pdwVi3RBQ4O34eDIh50LfmlLWDmx2xzWL zYndN8xTNUmc8ZI4QLqu7ixN6Lrka7cHeHmm+64onCJ2oXMGMXOLlTV2nQZN uazlZIIJ7Acy6cnd2A7QWsvM5K0a8Oyla7dSdiaj8fcQJkUVTpj+SBotL3Xa i2ibbGOh2Qbf62URNHIGMWXWXsc9iQKaWhSohjWLl3mFNbOVyDVkYEJwSBSn mCi6dJYsiN1SJntTcZ09mvXzgvXChmUmfM8rK8jJQzzcPvNYEWlO7kyJNygX OInl5S5GeanmIgOKJ6XbtLnMzHebtuFE4TiV/mrkQIqiRqcgG5X//pTmkN0K Mujs7d5Fvo4fzERmp871W/nZjhjcs6epc5lxysuEueg+Wcc9xYW2gkK7bR2J XEleRf5O2E09dNuTHMVWF7mbTZ4MsnN8pVOuSngBriy8YKjSip8PcXEtpbhS 6BOudKY92eGqNXufyHamHKsKXpJjTa5uFVRUyMExTEKxfOu6KjBNCCa/FZsX XGH6N2QrSi4qj7ubMhr1eFs/rRO2PiEfa20A94nZVUf4lBrApJs7oYunD7Yk 1I05lvpcqMLi2ssCaKj2Q2PG6cP4Ug/sZRtdLAyQ5cA6bu5GKpzbcV1IS1ar SWFH2svtdBSDRyqMNeoY/cNkRrVQJTukWCiTLFIK4Rd1n144zfiiJfDdzibx DeGnYGCSQQUu3mtMaJpVrbrUbpOKk0ATkqqA50Lo2As+6CW0AhLagkEqcTab vNZL3XPjmblhi3yekw/5vIGYwKs+dpWhtgyEctkHdEltC0kl8loi/f9DwQEW 24gMj461CKceCELhbYHCm7/RJLr9muhmGNS9SaAaj93EfUcVYjh+cHOLe5hd DbYDJywtd3dMl8QBIIkk5fZQU+OWqtIlObhvV2rHumccQRlCqr8/tTP+xM47 5J9MJEkiNaehJKlWWfyoLsqDAr8D5lqOSzWpVk81M9vawMG2stjae8geBcHU diDRxp40s1WBQs6v50oz5RXv1wV4SGB7LbufCQdUBtea2ozwFBTC9gTZnvfN 8HSenfJKbznhFjHCt3YIg50NQExHqMLEfERaoZ1y2bzdFGqsqJDXHDumv3oB IXKNQ5gvjJI97tIEBmsd4hFdUM7UlomkOdB7j9MpYyMyUhBUaFxYqAuxwFIU UdExXcZqP+JWFtpEEx39uUsrIqn2lMN9uoSOksdbNfO0BgLuXUJFUk1ArqIG ge5yDdPMxfJfANhPnn8wjOYBEkntQ7xzYeB03oTFlEaN/W2YGqw/GlBUebQx WFFL0uD6tPeq9WiHdeE4ID+QiPcG1c2DHaqOQDkvpUjUOFnj0CRgKzebkgrw TRAb0bV7ukO65I7nZqWgqM0UeqDME+/rzwKFQbjlhKFSCEzwS3duuWSyoynM nEIbuQO1ad8XzEt+0dLduHfFNCptRsUXWc4mSjr21r+dKJUWlOon8vEWjKSt U3dRJEpBIms9z8kd1KXgtqhWkpw27KunOQ1nGhSjKDi/MMhUzzrYKEt1Sug8 sPBWA32q9VsHdGGcRMkOCXouYJsj0kmNN5KZcne7LHInkzRPA/fcV8XsKNd5 D8y7XAvLG6GvVh2F4jiliWNtsNb0XEGbIdhJToN7Mv1Qk9diWeG0rzLkcVqT R7HZMgukVaQypRRWTLnaXNsij79xfAG7OCAhjS6MWfgo8djZTEe1rUvijGkZ M0FtbSaYiiS4XtAZRTBr4y3dmzimAHwMyiuhV/JsADeAu2oUysNqvuIp7Opx 6tRWhC9Q1YvRPkxS430sb+XRo28v9gbsXesmx+T3qmEMeQTs6yR7awKdahbH irXz5Ff77VOlDxIlFemz1EJwn+WAag9Y2xQ0TXurlS6ec2QYHSh5TMRi7RiW NwE+Wlt6nptAIY2cWI9+jBokdmbT94DHSgDX9l2Rxpjqje9tXQg7wEZ4eYIt 3w7EqRBoQ1L78To7FMWHbeLKeR3Dzucs38RZbbVv902Dznf3ZSLbSZ1a4msr xGw6ohENMjYk3oqgqO9mTN8Q+m2ft1X9UFbaijd4lcMIDRdoW0TwgPOWeZek 3TNwkrVFPC1FkDGnvQtQDeyK4g03k7wB5nfOlXHNye+s6OZAn0IMatL/i0kA K+loIruSxq8TYNf+thlb8fWKH/ZTNT3n+yTfkxlBsAH1mwP3J6JkfZPNWhs5 7SRO3wMHHK58wDuXSNlePVGpbt0K5VYh/6Bz9gmq3m1Ge+2qRRO8T+mncC9q yW3BowL3N3YJT4NEWu3IKnQPXpJNMrhEuXA6/8IfJa0Lk2unZ/ghiuTTv88O 5IBTp11rlCW3ULdLl8bYnqHk7tL+JF386MrSxHdtmRfIUSfPvNfWzyZO0FQ6 kLQe9Gy9wdGLxNHef0ocY68avOjJSK0jZ/YEmuspaJGyss3GQd5jw6cD1ryN mh8lA3Lqdxiwdqlz/TxxfcvguoILm5DcLGkhv2MlkKpIbMxhHUnixRvuQiIH 79MZ3qVElLJN19DtfR1Ka94sqtYcTIXP0CDHrKPImse4v5pjZ4ljRwiurV0u rD1mKqJPD3iWgYACRsVNK36DXeY2phVA/Fi7r2PVPDtNPDuWCuJDNltcgvBY TShqAufm5pmQZKlME3Wh5H3VUF+TaY+cebCahyeIhyfIUpl7mlavuXAV29lG kJHKR6I3KnJxaqWKZ8eJZ2eq9G7tSL4OJp1MTwXarwzrslO8q+QEaMOk3tDT d9Odo4yL8YkmnxUrmsDo0qvknVSQUhGMHaBRCFbROeJUDzl1H3HqQmjFFedg 4pQZD2bgxSm7XSMOkwrFsQ4Adjxgsqg4jeMupfRdWG/8vKeAT09aQNVD3b1R v2Qi0nloLWZtE7PcP2YaDGbxJys3ieUUN1SZQRh6qSK0o9XsGYg97h+RHRay Nh1zBThDLmS9Ury1RMQKvOwFLful8dO2WDbJr9arIoRV/OMUbUPCOLPBkk9O m7uHwn0LB26Gf2i5LfQw0u9Jm0yqC5QE6nQzU+iUKZ8E6zqir9VdvDZ+ljsn fkYvmejg4iu0mZO0RNHa9TPEvonYkiv96Uo2LKDI30gMwVhv7RqBtfNQHMTN GidVOgvWg/L2tMYIH8b3m8icSaoTiTq6Vm5M5RgTVail0o3X3Tg7bWtD21Gq VidvXLWFkUf3pTRC/ACmtOJUpXgMkIrKW2FlCE1fS6KrKiVOPtXaXnJN3R4H BCIgEtbjwqhzqeH/p5XySRs17bFUtRiZypCongS0HtTpR99+4v6R2lbiC5dH iJBdx/Jo/RwKdvEprLjul9soRlnG64n3mOKtpFwArKXdySan/CygBAH8QDgq tTvCDwClWeVpDdtvzP1S7JPc6POVVO3zVKVvNb7mP5W04OOa2aRKPWng7CyG fBlQhZgUKEVWeFXjn3qw1yzh5N78aht9yOu9xq5F1fECLFIetd5S8e1+r4Op kZ0ESlHkeRVcU/d4kqUoUJnZUQIU4bdr/iaYDvmiQHH6nnlEp3PC8pje+FIP o7m/3gFDoQf+Aw0o8XhJUxF0aDDJ63rbzCjpfRFcO4wsOAec72kz7xsv7fOf 3KTHiOVoqgg+o1ITU9/X5FNMgCq9V8C1T8G1JRzxIdDyubVGPAFaIrf/B816 ihFPElvRODfAtQUcB2UET4NrnwUJ8Gvje/w7BKYzoNtT6lAmcV34zva8EcIk nxt0haHOEqvQAF8EsfFriYxzoAeCdjfFNTY9wuwI7RpDnAfNL4Jrf6SVho6P 0gXU/EvJdNQIzV3Mg9aD1u1E73gdEu3HaSTU/PfUPBzuugQaoXzvY+oYnjxE kkcq9hvqGB6aRwqMFP1X1DF8/dLTtDLU/Ofjz7TphNErKlp8QPOEr8xH5o8c 2E+pY/ifK8ijIV96nTqGf7R4hVaGmr9NzcP/630BNEKR6A3qGP6TNIoXKHi+ Rh09L3w0dQSqsdY195R1r4BGCNpcoY6+B8Q6CL09Qx09wMrgXGyEYOkl6viW 73iVVoaaX6Tm7/rm10AjhDzTwRAf170sKoDgWZrRx+tqPHaKOn7oO75FK0PN H6Tmv/TN3waNUE3gKHX8yHdEYA2VSQ5Tx9/5ju8SgepDnK75J7759UCSCCtb 1M6H6O7HYrDxd0+N/DWPtlyMu+UvdPv+C+s3VfU=\ \>"]], ",", Graphics3DBox[{CuboidBox[{1, 21, -1}], CuboidBox[{1, 19, -2}], CuboidBox[{2, 19, -2}], CuboidBox[{3, 19, -2}], CuboidBox[{1, 20, -2}], CuboidBox[{2, 20, -2}], CuboidBox[{3, 20, -2}], CuboidBox[{1, 21, -2}], CuboidBox[{2, 21, -2}], CuboidBox[{3, 21, -2}], CuboidBox[{1, 17, -3}], CuboidBox[{2, 17, -3}], CuboidBox[{3, 17, -3}], CuboidBox[{4, 17, -3}], CuboidBox[{5, 17, -3}], CuboidBox[{1, 18, -3}], CuboidBox[{2, 18, -3}], CuboidBox[{3, 18, -3}], CuboidBox[{4, 18, -3}], CuboidBox[{5, 18, -3}], CuboidBox[{1, 19, -3}], CuboidBox[{2, 19, -3}], CuboidBox[{3, 19, -3}], CuboidBox[{4, 19, -3}], CuboidBox[{5, 19, -3}], CuboidBox[{1, 20, -3}], CuboidBox[{2, 20, -3}], CuboidBox[{3, 20, -3}], CuboidBox[{4, 20, -3}], CuboidBox[{5, 20, -3}], CuboidBox[{1, 21, -3}], CuboidBox[{2, 21, -3}], CuboidBox[{3, 21, -3}], CuboidBox[{4, 21, -3}], CuboidBox[{5, 21, -3}], CuboidBox[{1, 15, -4}], CuboidBox[{2, 15, -4}], CuboidBox[{3, 15, -4}], CuboidBox[{4, 15, -4}], CuboidBox[{5, 15, -4}], CuboidBox[{6, 15, -4}], CuboidBox[{7, 15, -4}], CuboidBox[{1, 16, -4}], CuboidBox[{2, 16, -4}], CuboidBox[{3, 16, -4}], CuboidBox[{4, 16, -4}], CuboidBox[{5, 16, -4}], CuboidBox[{6, 16, -4}], CuboidBox[{7, 16, -4}], CuboidBox[{1, 17, -4}], CuboidBox[{2, 17, -4}], CuboidBox[{3, 17, -4}], CuboidBox[{4, 17, -4}], CuboidBox[{5, 17, -4}], CuboidBox[{6, 17, -4}], CuboidBox[{7, 17, -4}], CuboidBox[{1, 18, -4}], CuboidBox[{2, 18, -4}], CuboidBox[{3, 18, -4}], CuboidBox[{4, 18, -4}], CuboidBox[{5, 18, -4}], CuboidBox[{6, 18, -4}], CuboidBox[{7, 18, -4}], CuboidBox[{1, 19, -4}], CuboidBox[{2, 19, -4}], CuboidBox[{3, 19, -4}], CuboidBox[{4, 19, -4}], CuboidBox[{5, 19, -4}], CuboidBox[{6, 19, -4}], CuboidBox[{7, 19, -4}], CuboidBox[{1, 20, -4}], CuboidBox[{2, 20, -4}], CuboidBox[{3, 20, -4}], CuboidBox[{4, 20, -4}], CuboidBox[{5, 20, -4}], CuboidBox[{6, 20, -4}], CuboidBox[{7, 20, -4}], CuboidBox[{1, 21, -4}], CuboidBox[{2, 21, -4}], CuboidBox[{3, 21, -4}], CuboidBox[{4, 21, -4}], CuboidBox[{5, 21, -4}], CuboidBox[{6, 21, -4}], CuboidBox[{7, 21, -4}], CuboidBox[{1, 13, -5}], CuboidBox[{2, 13, -5}], CuboidBox[{3, 13, -5}], CuboidBox[{4, 13, -5}], CuboidBox[{5, 13, -5}], CuboidBox[{6, 13, -5}], CuboidBox[{7, 13, -5}], CuboidBox[{8, 13, -5}], CuboidBox[{9, 13, -5}], CuboidBox[{1, 14, -5}], CuboidBox[{2, 14, -5}], CuboidBox[{3, 14, -5}], CuboidBox[{4, 14, -5}], CuboidBox[{5, 14, -5}], CuboidBox[{6, 14, -5}], CuboidBox[{7, 14, -5}], CuboidBox[{8, 14, -5}], CuboidBox[{9, 14, -5}], CuboidBox[{1, 15, -5}], CuboidBox[{2, 15, -5}], CuboidBox[{3, 15, -5}], CuboidBox[{4, 15, -5}], CuboidBox[{5, 15, -5}], CuboidBox[{6, 15, -5}], CuboidBox[{7, 15, -5}], CuboidBox[{8, 15, -5}], CuboidBox[{9, 15, -5}], CuboidBox[{1, 16, -5}], CuboidBox[{2, 16, -5}], CuboidBox[{3, 16, -5}], CuboidBox[{4, 16, -5}], CuboidBox[{5, 16, -5}], CuboidBox[{6, 16, -5}], CuboidBox[{7, 16, -5}], CuboidBox[{8, 16, -5}], CuboidBox[{9, 16, -5}], CuboidBox[{1, 17, -5}], CuboidBox[{2, 17, -5}], CuboidBox[{3, 17, -5}], CuboidBox[{4, 17, -5}], CuboidBox[{5, 17, -5}], CuboidBox[{6, 17, -5}], CuboidBox[{7, 17, -5}], CuboidBox[{8, 17, -5}], CuboidBox[{9, 17, -5}], CuboidBox[{1, 18, -5}], CuboidBox[{2, 18, -5}], CuboidBox[{3, 18, -5}], CuboidBox[{4, 18, -5}], CuboidBox[{5, 18, -5}], CuboidBox[{6, 18, -5}], CuboidBox[{7, 18, -5}], CuboidBox[{8, 18, -5}], CuboidBox[{9, 18, -5}], CuboidBox[{1, 19, -5}], CuboidBox[{2, 19, -5}], CuboidBox[{3, 19, -5}], CuboidBox[{4, 19, -5}], CuboidBox[{5, 19, -5}], CuboidBox[{6, 19, -5}], CuboidBox[{7, 19, -5}], CuboidBox[{8, 19, -5}], CuboidBox[{9, 19, -5}], CuboidBox[{1, 20, -5}], CuboidBox[{2, 20, -5}], CuboidBox[{3, 20, -5}], CuboidBox[{4, 20, -5}], CuboidBox[{5, 20, -5}], CuboidBox[{6, 20, -5}], CuboidBox[{7, 20, -5}], CuboidBox[{8, 20, -5}], CuboidBox[{9, 20, -5}], CuboidBox[{1, 21, -5}], CuboidBox[{2, 21, -5}], CuboidBox[{3, 21, -5}], CuboidBox[{4, 21, -5}], CuboidBox[{5, 21, -5}], CuboidBox[{6, 21, -5}], CuboidBox[{7, 21, -5}], CuboidBox[{8, 21, -5}], CuboidBox[{9, 21, -5}], CuboidBox[{1, 11, -6}], CuboidBox[{2, 11, -6}], CuboidBox[{3, 11, -6}], CuboidBox[{4, 11, -6}], CuboidBox[{5, 11, -6}], CuboidBox[{6, 11, -6}], CuboidBox[{7, 11, -6}], CuboidBox[{8, 11, -6}], CuboidBox[{9, 11, -6}], CuboidBox[{10, 11, -6}], CuboidBox[{11, 11, -6}], CuboidBox[{1, 12, -6}], CuboidBox[{2, 12, -6}], CuboidBox[{3, 12, -6}], CuboidBox[{4, 12, -6}], CuboidBox[{5, 12, -6}], CuboidBox[{6, 12, -6}], CuboidBox[{7, 12, -6}], CuboidBox[{8, 12, -6}], CuboidBox[{9, 12, -6}], CuboidBox[{10, 12, -6}], CuboidBox[{11, 12, -6}], CuboidBox[{1, 13, -6}], CuboidBox[{2, 13, -6}], CuboidBox[{3, 13, -6}], CuboidBox[{4, 13, -6}], CuboidBox[{5, 13, -6}], CuboidBox[{6, 13, -6}], CuboidBox[{7, 13, -6}], CuboidBox[{8, 13, -6}], CuboidBox[{9, 13, -6}], CuboidBox[{10, 13, -6}], CuboidBox[{11, 13, -6}], CuboidBox[{1, 14, -6}], CuboidBox[{2, 14, -6}], CuboidBox[{3, 14, -6}], CuboidBox[{4, 14, -6}], CuboidBox[{5, 14, -6}], CuboidBox[{6, 14, -6}], CuboidBox[{7, 14, -6}], CuboidBox[{8, 14, -6}], CuboidBox[{9, 14, -6}], CuboidBox[{10, 14, -6}], CuboidBox[{11, 14, -6}], CuboidBox[{1, 15, -6}], CuboidBox[{2, 15, -6}], CuboidBox[{3, 15, -6}], CuboidBox[{4, 15, -6}], CuboidBox[{5, 15, -6}], CuboidBox[{6, 15, -6}], CuboidBox[{7, 15, -6}], CuboidBox[{8, 15, -6}], CuboidBox[{9, 15, -6}], CuboidBox[{10, 15, -6}], CuboidBox[{11, 15, -6}], CuboidBox[{1, 16, -6}], CuboidBox[{2, 16, -6}], CuboidBox[{3, 16, -6}], CuboidBox[{4, 16, -6}], CuboidBox[{5, 16, -6}], CuboidBox[{6, 16, -6}], CuboidBox[{7, 16, -6}], CuboidBox[{8, 16, -6}], CuboidBox[{9, 16, -6}], CuboidBox[{10, 16, -6}], CuboidBox[{11, 16, -6}], CuboidBox[{1, 17, -6}], CuboidBox[{2, 17, -6}], CuboidBox[{3, 17, -6}], CuboidBox[{4, 17, -6}], CuboidBox[{5, 17, -6}], CuboidBox[{6, 17, -6}], CuboidBox[{7, 17, -6}], CuboidBox[{8, 17, -6}], CuboidBox[{9, 17, -6}], CuboidBox[{10, 17, -6}], CuboidBox[{11, 17, -6}], CuboidBox[{1, 18, -6}], CuboidBox[{2, 18, -6}], CuboidBox[{3, 18, -6}], CuboidBox[{4, 18, -6}], CuboidBox[{5, 18, -6}], CuboidBox[{6, 18, -6}], CuboidBox[{7, 18, -6}], CuboidBox[{8, 18, -6}], CuboidBox[{9, 18, -6}], CuboidBox[{10, 18, -6}], CuboidBox[{11, 18, -6}], CuboidBox[{1, 19, -6}], CuboidBox[{2, 19, -6}], CuboidBox[{3, 19, -6}], CuboidBox[{4, 19, -6}], CuboidBox[{5, 19, -6}], CuboidBox[{6, 19, -6}], CuboidBox[{7, 19, -6}], CuboidBox[{8, 19, -6}], CuboidBox[{9, 19, -6}], CuboidBox[{10, 19, -6}], CuboidBox[{11, 19, -6}], CuboidBox[{1, 20, -6}], CuboidBox[{2, 20, -6}], CuboidBox[{3, 20, -6}], CuboidBox[{4, 20, -6}], CuboidBox[{5, 20, -6}], CuboidBox[{6, 20, -6}], CuboidBox[{7, 20, -6}], CuboidBox[{8, 20, -6}], CuboidBox[{9, 20, -6}], CuboidBox[{10, 20, -6}], CuboidBox[{11, 20, -6}], CuboidBox[{1, 21, -6}], CuboidBox[{2, 21, -6}], CuboidBox[{3, 21, -6}], CuboidBox[{4, 21, -6}], CuboidBox[{5, 21, -6}], CuboidBox[{6, 21, -6}], CuboidBox[{7, 21, -6}], CuboidBox[{8, 21, -6}], CuboidBox[{9, 21, -6}], CuboidBox[{10, 21, -6}], CuboidBox[{11, 21, -6}], CuboidBox[{1, 9, -7}], CuboidBox[{2, 9, -7}], CuboidBox[{3, 9, -7}], CuboidBox[{4, 9, -7}], CuboidBox[{5, 9, -7}], CuboidBox[{6, 9, -7}], CuboidBox[{7, 9, -7}], CuboidBox[{8, 9, -7}], CuboidBox[{9, 9, -7}], CuboidBox[{10, 9, -7}], CuboidBox[{11, 9, -7}], CuboidBox[{12, 9, -7}], CuboidBox[{13, 9, -7}], CuboidBox[{1, 10, -7}], CuboidBox[{2, 10, -7}], CuboidBox[{3, 10, -7}], CuboidBox[{4, 10, -7}], CuboidBox[{5, 10, -7}], CuboidBox[{6, 10, -7}], CuboidBox[{7, 10, -7}], CuboidBox[{8, 10, -7}], CuboidBox[{9, 10, -7}], CuboidBox[{10, 10, -7}], CuboidBox[{11, 10, -7}], CuboidBox[{12, 10, -7}], CuboidBox[{13, 10, -7}], CuboidBox[{1, 11, -7}], CuboidBox[{2, 11, -7}], CuboidBox[{3, 11, -7}], CuboidBox[{4, 11, -7}], CuboidBox[{5, 11, -7}], CuboidBox[{6, 11, -7}], CuboidBox[{7, 11, -7}], CuboidBox[{8, 11, -7}], CuboidBox[{9, 11, -7}], CuboidBox[{10, 11, -7}], CuboidBox[{11, 11, -7}], CuboidBox[{12, 11, -7}], CuboidBox[{13, 11, -7}], CuboidBox[{1, 12, -7}], CuboidBox[{2, 12, -7}], CuboidBox[{3, 12, -7}], CuboidBox[{4, 12, -7}], CuboidBox[{5, 12, -7}], CuboidBox[{6, 12, -7}], CuboidBox[{7, 12, -7}], CuboidBox[{8, 12, -7}], CuboidBox[{9, 12, -7}], CuboidBox[{10, 12, -7}], CuboidBox[{11, 12, -7}], CuboidBox[{12, 12, -7}], CuboidBox[{13, 12, -7}], CuboidBox[{1, 13, -7}], CuboidBox[{2, 13, -7}], CuboidBox[{3, 13, -7}], CuboidBox[{4, 13, -7}], CuboidBox[{5, 13, -7}], CuboidBox[{6, 13, -7}], CuboidBox[{7, 13, -7}], CuboidBox[{8, 13, -7}], CuboidBox[{9, 13, -7}], CuboidBox[{10, 13, -7}], CuboidBox[{11, 13, -7}], CuboidBox[{12, 13, -7}], CuboidBox[{13, 13, -7}], CuboidBox[{1, 14, -7}], CuboidBox[{2, 14, -7}], CuboidBox[{3, 14, -7}], CuboidBox[{4, 14, -7}], CuboidBox[{5, 14, -7}], CuboidBox[{6, 14, -7}], CuboidBox[{7, 14, -7}], CuboidBox[{8, 14, -7}], CuboidBox[{9, 14, -7}], CuboidBox[{10, 14, -7}], CuboidBox[{11, 14, -7}], CuboidBox[{12, 14, -7}], CuboidBox[{13, 14, -7}], CuboidBox[{1, 15, -7}], CuboidBox[{2, 15, -7}], CuboidBox[{3, 15, -7}], CuboidBox[{4, 15, -7}], CuboidBox[{5, 15, -7}], CuboidBox[{6, 15, -7}], CuboidBox[{7, 15, -7}], CuboidBox[{8, 15, -7}], CuboidBox[{9, 15, -7}], CuboidBox[{10, 15, -7}], CuboidBox[{11, 15, -7}], CuboidBox[{12, 15, -7}], CuboidBox[{13, 15, -7}], CuboidBox[{1, 16, -7}], CuboidBox[{2, 16, -7}], CuboidBox[{3, 16, -7}], CuboidBox[{4, 16, -7}], CuboidBox[{5, 16, -7}], CuboidBox[{6, 16, -7}], CuboidBox[{7, 16, -7}], CuboidBox[{8, 16, -7}], CuboidBox[{9, 16, -7}], CuboidBox[{10, 16, -7}], CuboidBox[{11, 16, -7}], CuboidBox[{12, 16, -7}], CuboidBox[{13, 16, -7}], CuboidBox[{1, 17, -7}], CuboidBox[{2, 17, -7}], CuboidBox[{3, 17, -7}], CuboidBox[{4, 17, -7}], CuboidBox[{5, 17, -7}], CuboidBox[{6, 17, -7}], CuboidBox[{7, 17, -7}], CuboidBox[{8, 17, -7}], CuboidBox[{9, 17, -7}], CuboidBox[{10, 17, -7}], CuboidBox[{11, 17, -7}], CuboidBox[{12, 17, -7}], CuboidBox[{13, 17, -7}], CuboidBox[{1, 18, -7}], CuboidBox[{2, 18, -7}], CuboidBox[{3, 18, -7}], CuboidBox[{4, 18, -7}], CuboidBox[{5, 18, -7}], CuboidBox[{6, 18, -7}], CuboidBox[{7, 18, -7}], CuboidBox[{8, 18, -7}], CuboidBox[{9, 18, -7}], CuboidBox[{10, 18, -7}], CuboidBox[{11, 18, -7}], CuboidBox[{12, 18, -7}], CuboidBox[{13, 18, -7}], CuboidBox[{1, 19, -7}], CuboidBox[{2, 19, -7}], CuboidBox[{3, 19, -7}], CuboidBox[{4, 19, -7}], CuboidBox[{5, 19, -7}], CuboidBox[{6, 19, -7}], CuboidBox[{7, 19, -7}], CuboidBox[{8, 19, -7}], CuboidBox[{9, 19, -7}], CuboidBox[{10, 19, -7}], CuboidBox[{11, 19, -7}], CuboidBox[{12, 19, -7}], CuboidBox[{13, 19, -7}], CuboidBox[{1, 20, -7}], CuboidBox[{2, 20, -7}], CuboidBox[{3, 20, -7}], CuboidBox[{4, 20, -7}], CuboidBox[{5, 20, -7}], CuboidBox[{6, 20, -7}], CuboidBox[{7, 20, -7}], CuboidBox[{8, 20, -7}], CuboidBox[{9, 20, -7}], CuboidBox[{10, 20, -7}], CuboidBox[{11, 20, -7}], CuboidBox[{12, 20, -7}], CuboidBox[{13, 20, -7}], CuboidBox[{1, 21, -7}], CuboidBox[{2, 21, -7}], CuboidBox[{3, 21, -7}], CuboidBox[{4, 21, -7}], CuboidBox[{5, 21, -7}], CuboidBox[{6, 21, -7}], CuboidBox[{7, 21, -7}], CuboidBox[{8, 21, -7}], CuboidBox[{9, 21, -7}], CuboidBox[{10, 21, -7}], CuboidBox[{11, 21, -7}], CuboidBox[{12, 21, -7}], CuboidBox[{13, 21, -7}], CuboidBox[{1, 7, -8}], CuboidBox[{2, 7, -8}], CuboidBox[{3, 7, -8}], CuboidBox[{4, 7, -8}], CuboidBox[{5, 7, -8}], CuboidBox[{6, 7, -8}], CuboidBox[{7, 7, -8}], CuboidBox[{8, 7, -8}], CuboidBox[{9, 7, -8}], CuboidBox[{10, 7, -8}], CuboidBox[{11, 7, -8}], CuboidBox[{12, 7, -8}], CuboidBox[{13, 7, -8}], CuboidBox[{14, 7, -8}], CuboidBox[{15, 7, -8}], CuboidBox[{1, 8, -8}], CuboidBox[{2, 8, -8}], CuboidBox[{3, 8, -8}], CuboidBox[{4, 8, -8}], CuboidBox[{5, 8, -8}], CuboidBox[{6, 8, -8}], CuboidBox[{7, 8, -8}], CuboidBox[{8, 8, -8}], CuboidBox[{9, 8, -8}], CuboidBox[{10, 8, -8}], CuboidBox[{11, 8, -8}], CuboidBox[{12, 8, -8}], CuboidBox[{13, 8, -8}], CuboidBox[{14, 8, -8}], CuboidBox[{15, 8, -8}], CuboidBox[{1, 9, -8}], CuboidBox[{2, 9, -8}], CuboidBox[{3, 9, -8}], CuboidBox[{4, 9, -8}], CuboidBox[{5, 9, -8}], CuboidBox[{6, 9, -8}], CuboidBox[{7, 9, -8}], CuboidBox[{8, 9, -8}], CuboidBox[{9, 9, -8}], CuboidBox[{10, 9, -8}], CuboidBox[{11, 9, -8}], CuboidBox[{12, 9, -8}], CuboidBox[{13, 9, -8}], CuboidBox[{14, 9, -8}], CuboidBox[{15, 9, -8}], CuboidBox[{1, 10, -8}], CuboidBox[{2, 10, -8}], CuboidBox[{3, 10, -8}], CuboidBox[{4, 10, -8}], CuboidBox[{5, 10, -8}], CuboidBox[{6, 10, -8}], CuboidBox[{7, 10, -8}], CuboidBox[{8, 10, -8}], CuboidBox[{9, 10, -8}], CuboidBox[{10, 10, -8}], CuboidBox[{11, 10, -8}], CuboidBox[{12, 10, -8}], CuboidBox[{13, 10, -8}], CuboidBox[{14, 10, -8}], CuboidBox[{15, 10, -8}], CuboidBox[{1, 11, -8}], CuboidBox[{2, 11, -8}], CuboidBox[{3, 11, -8}], CuboidBox[{4, 11, -8}], CuboidBox[{5, 11, -8}], CuboidBox[{6, 11, -8}], CuboidBox[{7, 11, -8}], CuboidBox[{8, 11, -8}], CuboidBox[{9, 11, -8}], CuboidBox[{10, 11, -8}], CuboidBox[{11, 11, -8}], CuboidBox[{12, 11, -8}], CuboidBox[{13, 11, -8}], CuboidBox[{14, 11, -8}], CuboidBox[{15, 11, -8}], CuboidBox[{1, 12, -8}], CuboidBox[{2, 12, -8}], CuboidBox[{3, 12, -8}], CuboidBox[{4, 12, -8}], CuboidBox[{5, 12, -8}], CuboidBox[{6, 12, -8}], CuboidBox[{7, 12, -8}], CuboidBox[{8, 12, -8}], CuboidBox[{9, 12, -8}], CuboidBox[{10, 12, -8}], CuboidBox[{11, 12, -8}], CuboidBox[{12, 12, -8}], CuboidBox[{13, 12, -8}], CuboidBox[{14, 12, -8}], CuboidBox[{15, 12, -8}], CuboidBox[{1, 13, -8}], CuboidBox[{2, 13, -8}], CuboidBox[{3, 13, -8}], CuboidBox[{4, 13, -8}], CuboidBox[{5, 13, -8}], CuboidBox[{6, 13, -8}], CuboidBox[{7, 13, -8}], CuboidBox[{8, 13, -8}], CuboidBox[{9, 13, -8}], CuboidBox[{10, 13, -8}], CuboidBox[{11, 13, -8}], CuboidBox[{12, 13, -8}], CuboidBox[{13, 13, -8}], CuboidBox[{14, 13, -8}], CuboidBox[{15, 13, -8}], CuboidBox[{1, 14, -8}], CuboidBox[{2, 14, -8}], CuboidBox[{3, 14, -8}], CuboidBox[{4, 14, -8}], CuboidBox[{5, 14, -8}], CuboidBox[{6, 14, -8}], CuboidBox[{7, 14, -8}], CuboidBox[{8, 14, -8}], CuboidBox[{9, 14, -8}], CuboidBox[{10, 14, -8}], CuboidBox[{11, 14, -8}], CuboidBox[{12, 14, -8}], CuboidBox[{13, 14, -8}], CuboidBox[{14, 14, -8}], CuboidBox[{15, 14, -8}], CuboidBox[{1, 15, -8}], CuboidBox[{2, 15, -8}], CuboidBox[{3, 15, -8}], CuboidBox[{4, 15, -8}], CuboidBox[{5, 15, -8}], CuboidBox[{6, 15, -8}], CuboidBox[{7, 15, -8}], CuboidBox[{8, 15, -8}], CuboidBox[{9, 15, -8}], CuboidBox[{10, 15, -8}], CuboidBox[{11, 15, -8}], CuboidBox[{12, 15, -8}], CuboidBox[{13, 15, -8}], CuboidBox[{14, 15, -8}], CuboidBox[{15, 15, -8}], CuboidBox[{1, 16, -8}], CuboidBox[{2, 16, -8}], CuboidBox[{3, 16, -8}], CuboidBox[{4, 16, -8}], CuboidBox[{5, 16, -8}], CuboidBox[{6, 16, -8}], CuboidBox[{7, 16, -8}], CuboidBox[{8, 16, -8}], CuboidBox[{9, 16, -8}], CuboidBox[{10, 16, -8}], CuboidBox[{11, 16, -8}], CuboidBox[{12, 16, -8}], CuboidBox[{13, 16, -8}], CuboidBox[{14, 16, -8}], CuboidBox[{15, 16, -8}], CuboidBox[{1, 17, -8}], CuboidBox[{2, 17, -8}], CuboidBox[{3, 17, -8}], CuboidBox[{4, 17, -8}], CuboidBox[{5, 17, -8}], CuboidBox[{6, 17, -8}], CuboidBox[{7, 17, -8}], CuboidBox[{8, 17, -8}], CuboidBox[{9, 17, -8}], CuboidBox[{10, 17, -8}], CuboidBox[{11, 17, -8}], CuboidBox[{12, 17, -8}], CuboidBox[{13, 17, -8}], CuboidBox[{14, 17, -8}], CuboidBox[{15, 17, -8}], CuboidBox[{1, 18, -8}], CuboidBox[{2, 18, -8}], CuboidBox[{3, 18, -8}], CuboidBox[{4, 18, -8}], CuboidBox[{5, 18, -8}], CuboidBox[{6, 18, -8}], CuboidBox[{7, 18, -8}], CuboidBox[{8, 18, -8}], CuboidBox[{9, 18, -8}], CuboidBox[{10, 18, -8}], CuboidBox[{11, 18, -8}], CuboidBox[{12, 18, -8}], CuboidBox[{13, 18, -8}], CuboidBox[{14, 18, -8}], CuboidBox[{15, 18, -8}], CuboidBox[{1, 19, -8}], CuboidBox[{2, 19, -8}], CuboidBox[{3, 19, -8}], CuboidBox[{4, 19, -8}], CuboidBox[{5, 19, -8}], CuboidBox[{6, 19, -8}], CuboidBox[{7, 19, -8}], CuboidBox[{8, 19, -8}], CuboidBox[{9, 19, -8}], CuboidBox[{10, 19, -8}], CuboidBox[{11, 19, -8}], CuboidBox[{12, 19, -8}], CuboidBox[{13, 19, -8}], CuboidBox[{14, 19, -8}], CuboidBox[{15, 19, -8}], CuboidBox[{1, 20, -8}], CuboidBox[{2, 20, -8}], CuboidBox[{3, 20, -8}], CuboidBox[{4, 20, -8}], CuboidBox[{5, 20, -8}], CuboidBox[{6, 20, -8}], CuboidBox[{7, 20, -8}], CuboidBox[{8, 20, -8}], CuboidBox[{9, 20, -8}], CuboidBox[{10, 20, -8}], CuboidBox[{11, 20, -8}], CuboidBox[{12, 20, -8}], CuboidBox[{13, 20, -8}], CuboidBox[{14, 20, -8}], CuboidBox[{15, 20, -8}], CuboidBox[{1, 21, -8}], CuboidBox[{2, 21, -8}], CuboidBox[{3, 21, -8}], CuboidBox[{4, 21, -8}], CuboidBox[{5, 21, -8}], CuboidBox[{6, 21, -8}], CuboidBox[{7, 21, -8}], CuboidBox[{8, 21, -8}], CuboidBox[{9, 21, -8}], CuboidBox[{10, 21, -8}], CuboidBox[{11, 21, -8}], CuboidBox[{12, 21, -8}], CuboidBox[{13, 21, -8}], CuboidBox[{14, 21, -8}], CuboidBox[{15, 21, -8}], CuboidBox[{1, 5, -9}], CuboidBox[{2, 5, -9}], CuboidBox[{3, 5, -9}], CuboidBox[{4, 5, -9}], CuboidBox[{5, 5, -9}], CuboidBox[{6, 5, -9}], CuboidBox[{7, 5, -9}], CuboidBox[{8, 5, -9}], CuboidBox[{9, 5, -9}], CuboidBox[{10, 5, -9}], CuboidBox[{11, 5, -9}], CuboidBox[{12, 5, -9}], CuboidBox[{13, 5, -9}], CuboidBox[{14, 5, -9}], CuboidBox[{15, 5, -9}], CuboidBox[{16, 5, -9}], CuboidBox[{17, 5, -9}], CuboidBox[{1, 6, -9}], CuboidBox[{2, 6, -9}], CuboidBox[{3, 6, -9}], CuboidBox[{4, 6, -9}], CuboidBox[{5, 6, -9}], CuboidBox[{6, 6, -9}], CuboidBox[{7, 6, -9}], CuboidBox[{8, 6, -9}], CuboidBox[{9, 6, -9}], CuboidBox[{10, 6, -9}], CuboidBox[{11, 6, -9}], CuboidBox[{12, 6, -9}], CuboidBox[{13, 6, -9}], CuboidBox[{14, 6, -9}], CuboidBox[{15, 6, -9}], CuboidBox[{16, 6, -9}], CuboidBox[{17, 6, -9}], CuboidBox[{1, 7, -9}], CuboidBox[{2, 7, -9}], CuboidBox[{3, 7, -9}], CuboidBox[{4, 7, -9}], CuboidBox[{5, 7, -9}], CuboidBox[{6, 7, -9}], CuboidBox[{7, 7, -9}], CuboidBox[{8, 7, -9}], CuboidBox[{9, 7, -9}], CuboidBox[{10, 7, -9}], CuboidBox[{11, 7, -9}], CuboidBox[{12, 7, -9}], CuboidBox[{13, 7, -9}], CuboidBox[{14, 7, -9}], CuboidBox[{15, 7, -9}], CuboidBox[{16, 7, -9}], CuboidBox[{17, 7, -9}], CuboidBox[{1, 8, -9}], CuboidBox[{2, 8, -9}], CuboidBox[{3, 8, -9}], CuboidBox[{4, 8, -9}], CuboidBox[{5, 8, -9}], CuboidBox[{6, 8, -9}], CuboidBox[{7, 8, -9}], CuboidBox[{8, 8, -9}], CuboidBox[{9, 8, -9}], CuboidBox[{10, 8, -9}], CuboidBox[{11, 8, -9}], CuboidBox[{12, 8, -9}], CuboidBox[{13, 8, -9}], CuboidBox[{14, 8, -9}], CuboidBox[{15, 8, -9}], CuboidBox[{16, 8, -9}], CuboidBox[{17, 8, -9}], CuboidBox[{1, 9, -9}], CuboidBox[{2, 9, -9}], CuboidBox[{3, 9, -9}], CuboidBox[{4, 9, -9}], CuboidBox[{5, 9, -9}], CuboidBox[{6, 9, -9}], CuboidBox[{7, 9, -9}], CuboidBox[{8, 9, -9}], CuboidBox[{9, 9, -9}], CuboidBox[{10, 9, -9}], CuboidBox[{11, 9, -9}], CuboidBox[{12, 9, -9}], CuboidBox[{13, 9, -9}], CuboidBox[{14, 9, -9}], CuboidBox[{15, 9, -9}], CuboidBox[{16, 9, -9}], CuboidBox[{17, 9, -9}], CuboidBox[{1, 10, -9}], CuboidBox[{2, 10, -9}], CuboidBox[{3, 10, -9}], CuboidBox[{4, 10, -9}], CuboidBox[{5, 10, -9}], CuboidBox[{6, 10, -9}], CuboidBox[{7, 10, -9}], CuboidBox[{8, 10, -9}], CuboidBox[{9, 10, -9}], CuboidBox[{10, 10, -9}], CuboidBox[{11, 10, -9}], CuboidBox[{12, 10, -9}], CuboidBox[{13, 10, -9}], CuboidBox[{14, 10, -9}], CuboidBox[{15, 10, -9}], CuboidBox[{16, 10, -9}], CuboidBox[{17, 10, -9}], CuboidBox[{1, 11, -9}], CuboidBox[{2, 11, -9}], CuboidBox[{3, 11, -9}], CuboidBox[{4, 11, -9}], CuboidBox[{5, 11, -9}], CuboidBox[{6, 11, -9}], CuboidBox[{7, 11, -9}], CuboidBox[{8, 11, -9}], CuboidBox[{9, 11, -9}], CuboidBox[{10, 11, -9}], CuboidBox[{11, 11, -9}], CuboidBox[{12, 11, -9}], CuboidBox[{13, 11, -9}], CuboidBox[{14, 11, -9}], CuboidBox[{15, 11, -9}], CuboidBox[{16, 11, -9}], CuboidBox[{17, 11, -9}], CuboidBox[{1, 12, -9}], CuboidBox[{2, 12, -9}], CuboidBox[{3, 12, -9}], CuboidBox[{4, 12, -9}], CuboidBox[{5, 12, -9}], CuboidBox[{6, 12, -9}], CuboidBox[{7, 12, -9}], CuboidBox[{8, 12, -9}], CuboidBox[{9, 12, -9}], CuboidBox[{10, 12, -9}], CuboidBox[{11, 12, -9}], CuboidBox[{12, 12, -9}], CuboidBox[{13, 12, -9}], CuboidBox[{14, 12, -9}], CuboidBox[{15, 12, -9}], CuboidBox[{16, 12, -9}], CuboidBox[{17, 12, -9}], CuboidBox[{1, 13, -9}], CuboidBox[{2, 13, -9}], CuboidBox[{3, 13, -9}], CuboidBox[{4, 13, -9}], CuboidBox[{5, 13, -9}], CuboidBox[{6, 13, -9}], CuboidBox[{7, 13, -9}], CuboidBox[{8, 13, -9}], CuboidBox[{9, 13, -9}], CuboidBox[{10, 13, -9}], CuboidBox[{11, 13, -9}], CuboidBox[{12, 13, -9}], CuboidBox[{13, 13, -9}], CuboidBox[{14, 13, -9}], CuboidBox[{15, 13, -9}], CuboidBox[{16, 13, -9}], CuboidBox[{17, 13, -9}], CuboidBox[{1, 14, -9}], CuboidBox[{2, 14, -9}], CuboidBox[{3, 14, -9}], CuboidBox[{4, 14, -9}], CuboidBox[{5, 14, -9}], CuboidBox[{6, 14, -9}], CuboidBox[{7, 14, -9}], CuboidBox[{8, 14, -9}], CuboidBox[{9, 14, -9}], CuboidBox[{10, 14, -9}], CuboidBox[{11, 14, -9}], CuboidBox[{12, 14, -9}], CuboidBox[{13, 14, -9}], CuboidBox[{14, 14, -9}], CuboidBox[{15, 14, -9}], CuboidBox[{16, 14, -9}], CuboidBox[{17, 14, -9}], CuboidBox[{1, 15, -9}], CuboidBox[{2, 15, -9}], CuboidBox[{3, 15, -9}], CuboidBox[{4, 15, -9}], CuboidBox[{5, 15, -9}], CuboidBox[{6, 15, -9}], CuboidBox[{7, 15, -9}], CuboidBox[{8, 15, -9}], CuboidBox[{9, 15, -9}], CuboidBox[{10, 15, -9}], CuboidBox[{11, 15, -9}], CuboidBox[{12, 15, -9}], CuboidBox[{13, 15, -9}], CuboidBox[{14, 15, -9}], CuboidBox[{15, 15, -9}], CuboidBox[{16, 15, -9}], CuboidBox[{17, 15, -9}], CuboidBox[{1, 16, -9}], CuboidBox[{2, 16, -9}], CuboidBox[{3, 16, -9}], CuboidBox[{4, 16, -9}], CuboidBox[{5, 16, -9}], CuboidBox[{6, 16, -9}], CuboidBox[{7, 16, -9}], CuboidBox[{8, 16, -9}], CuboidBox[{9, 16, -9}], CuboidBox[{10, 16, -9}], CuboidBox[{11, 16, -9}], CuboidBox[{12, 16, -9}], CuboidBox[{13, 16, -9}], CuboidBox[{14, 16, -9}], CuboidBox[{15, 16, -9}], CuboidBox[{16, 16, -9}], CuboidBox[{17, 16, -9}], CuboidBox[{1, 17, -9}], CuboidBox[{2, 17, -9}], CuboidBox[{3, 17, -9}], CuboidBox[{4, 17, -9}], CuboidBox[{5, 17, -9}], CuboidBox[{6, 17, -9}], CuboidBox[{7, 17, -9}], CuboidBox[{8, 17, -9}], CuboidBox[{9, 17, -9}], CuboidBox[{10, 17, -9}], CuboidBox[{11, 17, -9}], CuboidBox[{12, 17, -9}], CuboidBox[{13, 17, -9}], CuboidBox[{14, 17, -9}], CuboidBox[{15, 17, -9}], CuboidBox[{16, 17, -9}], CuboidBox[{17, 17, -9}], CuboidBox[{1, 18, -9}], CuboidBox[{2, 18, -9}], CuboidBox[{3, 18, -9}], CuboidBox[{4, 18, -9}], CuboidBox[{5, 18, -9}], CuboidBox[{6, 18, -9}], CuboidBox[{7, 18, -9}], CuboidBox[{8, 18, -9}], CuboidBox[{9, 18, -9}], CuboidBox[{10, 18, -9}], CuboidBox[{11, 18, -9}], CuboidBox[{12, 18, -9}], CuboidBox[{13, 18, -9}], CuboidBox[{14, 18, -9}], CuboidBox[{15, 18, -9}], CuboidBox[{16, 18, -9}], CuboidBox[{17, 18, -9}], CuboidBox[{1, 19, -9}], CuboidBox[{2, 19, -9}], CuboidBox[{3, 19, -9}], CuboidBox[{4, 19, -9}], CuboidBox[{5, 19, -9}], CuboidBox[{6, 19, -9}], CuboidBox[{7, 19, -9}], CuboidBox[{8, 19, -9}], CuboidBox[{9, 19, -9}], CuboidBox[{10, 19, -9}], CuboidBox[{11, 19, -9}], CuboidBox[{12, 19, -9}], CuboidBox[{13, 19, -9}], CuboidBox[{14, 19, -9}], CuboidBox[{15, 19, -9}], CuboidBox[{16, 19, -9}], CuboidBox[{17, 19, -9}], CuboidBox[{1, 20, -9}], CuboidBox[{2, 20, -9}], CuboidBox[{3, 20, -9}], CuboidBox[{4, 20, -9}], CuboidBox[{5, 20, -9}], CuboidBox[{6, 20, -9}], CuboidBox[{7, 20, -9}], CuboidBox[{8, 20, -9}], CuboidBox[{9, 20, -9}], CuboidBox[{10, 20, -9}], CuboidBox[{11, 20, -9}], CuboidBox[{12, 20, -9}], CuboidBox[{13, 20, -9}], CuboidBox[{14, 20, -9}], CuboidBox[{15, 20, -9}], CuboidBox[{16, 20, -9}], CuboidBox[{17, 20, -9}], CuboidBox[{1, 21, -9}], CuboidBox[{2, 21, -9}], CuboidBox[{3, 21, -9}], CuboidBox[{4, 21, -9}], CuboidBox[{5, 21, -9}], CuboidBox[{6, 21, -9}], CuboidBox[{7, 21, -9}], CuboidBox[{8, 21, -9}], CuboidBox[{9, 21, -9}], CuboidBox[{10, 21, -9}], CuboidBox[{11, 21, -9}], CuboidBox[{12, 21, -9}], CuboidBox[{13, 21, -9}], CuboidBox[{14, 21, -9}], CuboidBox[{15, 21, -9}], CuboidBox[{16, 21, -9}], CuboidBox[{17, 21, -9}], CuboidBox[{1, 3, -10}], CuboidBox[{2, 3, -10}], CuboidBox[{3, 3, -10}], CuboidBox[{4, 3, -10}], CuboidBox[{5, 3, -10}], CuboidBox[{6, 3, -10}], CuboidBox[{7, 3, -10}], CuboidBox[{8, 3, -10}], CuboidBox[{9, 3, -10}], CuboidBox[{10, 3, -10}], CuboidBox[{11, 3, -10}], CuboidBox[{12, 3, -10}], CuboidBox[{13, 3, -10}], CuboidBox[{14, 3, -10}], CuboidBox[{15, 3, -10}], CuboidBox[{16, 3, -10}], CuboidBox[{17, 3, -10}], CuboidBox[{18, 3, -10}], CuboidBox[{19, 3, -10}], CuboidBox[{1, 4, -10}], CuboidBox[{2, 4, -10}], CuboidBox[{3, 4, -10}], CuboidBox[{4, 4, -10}], CuboidBox[{5, 4, -10}], CuboidBox[{6, 4, -10}], CuboidBox[{7, 4, -10}], CuboidBox[{8, 4, -10}], CuboidBox[{9, 4, -10}], CuboidBox[{10, 4, -10}], CuboidBox[{11, 4, -10}], CuboidBox[{12, 4, -10}], CuboidBox[{13, 4, -10}], CuboidBox[{14, 4, -10}], CuboidBox[{15, 4, -10}], CuboidBox[{16, 4, -10}], CuboidBox[{17, 4, -10}], CuboidBox[{18, 4, -10}], CuboidBox[{19, 4, -10}], CuboidBox[{1, 5, -10}], CuboidBox[{2, 5, -10}], CuboidBox[{3, 5, -10}], CuboidBox[{4, 5, -10}], CuboidBox[{5, 5, -10}], CuboidBox[{6, 5, -10}], CuboidBox[{7, 5, -10}], CuboidBox[{8, 5, -10}], CuboidBox[{9, 5, -10}], CuboidBox[{10, 5, -10}], CuboidBox[{11, 5, -10}], CuboidBox[{12, 5, -10}], CuboidBox[{13, 5, -10}], CuboidBox[{14, 5, -10}], CuboidBox[{15, 5, -10}], CuboidBox[{16, 5, -10}], CuboidBox[{17, 5, -10}], CuboidBox[{18, 5, -10}], CuboidBox[{19, 5, -10}], CuboidBox[{1, 6, -10}], CuboidBox[{2, 6, -10}], CuboidBox[{3, 6, -10}], CuboidBox[{4, 6, -10}], CuboidBox[{5, 6, -10}], CuboidBox[{6, 6, -10}], CuboidBox[{7, 6, -10}], CuboidBox[{8, 6, -10}], CuboidBox[{9, 6, -10}], CuboidBox[{10, 6, -10}], CuboidBox[{11, 6, -10}], CuboidBox[{12, 6, -10}], CuboidBox[{13, 6, -10}], CuboidBox[{14, 6, -10}], CuboidBox[{15, 6, -10}], CuboidBox[{16, 6, -10}], CuboidBox[{17, 6, -10}], CuboidBox[{18, 6, -10}], CuboidBox[{19, 6, -10}], CuboidBox[{1, 7, -10}], CuboidBox[{2, 7, -10}], CuboidBox[{3, 7, -10}], CuboidBox[{4, 7, -10}], CuboidBox[{5, 7, -10}], CuboidBox[{6, 7, -10}], CuboidBox[{7, 7, -10}], CuboidBox[{8, 7, -10}], CuboidBox[{9, 7, -10}], CuboidBox[{10, 7, -10}], CuboidBox[{11, 7, -10}], CuboidBox[{12, 7, -10}], CuboidBox[{13, 7, -10}], CuboidBox[{14, 7, -10}], CuboidBox[{15, 7, -10}], CuboidBox[{16, 7, -10}], CuboidBox[{17, 7, -10}], CuboidBox[{18, 7, -10}], CuboidBox[{19, 7, -10}], CuboidBox[{1, 8, -10}], CuboidBox[{2, 8, -10}], CuboidBox[{3, 8, -10}], CuboidBox[{4, 8, -10}], CuboidBox[{5, 8, -10}], CuboidBox[{6, 8, -10}], CuboidBox[{7, 8, -10}], CuboidBox[{8, 8, -10}], CuboidBox[{9, 8, -10}], CuboidBox[{10, 8, -10}], CuboidBox[{11, 8, -10}], CuboidBox[{12, 8, -10}], CuboidBox[{13, 8, -10}], CuboidBox[{14, 8, -10}], CuboidBox[{15, 8, -10}], CuboidBox[{16, 8, -10}], CuboidBox[{17, 8, -10}], CuboidBox[{18, 8, -10}], CuboidBox[{19, 8, -10}], CuboidBox[{1, 9, -10}], CuboidBox[{2, 9, -10}], CuboidBox[{3, 9, -10}], CuboidBox[{4, 9, -10}], CuboidBox[{5, 9, -10}], CuboidBox[{6, 9, -10}], CuboidBox[{7, 9, -10}], CuboidBox[{8, 9, -10}], CuboidBox[{9, 9, -10}], CuboidBox[{10, 9, -10}], CuboidBox[{11, 9, -10}], CuboidBox[{12, 9, -10}], CuboidBox[{13, 9, -10}], CuboidBox[{14, 9, -10}], CuboidBox[{15, 9, -10}], CuboidBox[{16, 9, -10}], CuboidBox[{17, 9, -10}], CuboidBox[{18, 9, -10}], CuboidBox[{19, 9, -10}], CuboidBox[{1, 10, -10}], CuboidBox[{2, 10, -10}], CuboidBox[{3, 10, -10}], CuboidBox[{4, 10, -10}], CuboidBox[{5, 10, -10}], CuboidBox[{6, 10, -10}], CuboidBox[{7, 10, -10}], CuboidBox[{8, 10, -10}], CuboidBox[{9, 10, -10}], CuboidBox[{10, 10, -10}], CuboidBox[{11, 10, -10}], CuboidBox[{12, 10, -10}], CuboidBox[{13, 10, -10}], CuboidBox[{14, 10, -10}], CuboidBox[{15, 10, -10}], CuboidBox[{16, 10, -10}], CuboidBox[{17, 10, -10}], CuboidBox[{18, 10, -10}], CuboidBox[{19, 10, -10}], CuboidBox[{1, 11, -10}], CuboidBox[{2, 11, -10}], CuboidBox[{3, 11, -10}], CuboidBox[{4, 11, -10}], CuboidBox[{5, 11, -10}], CuboidBox[{6, 11, -10}], CuboidBox[{7, 11, -10}], CuboidBox[{8, 11, -10}], CuboidBox[{9, 11, -10}], CuboidBox[{10, 11, -10}], CuboidBox[{11, 11, -10}], CuboidBox[{12, 11, -10}], CuboidBox[{13, 11, -10}], CuboidBox[{14, 11, -10}], CuboidBox[{15, 11, -10}], CuboidBox[{16, 11, -10}], CuboidBox[{17, 11, -10}], CuboidBox[{18, 11, -10}], CuboidBox[{19, 11, -10}], CuboidBox[{1, 12, -10}], CuboidBox[{2, 12, -10}], CuboidBox[{3, 12, -10}], CuboidBox[{4, 12, -10}], CuboidBox[{5, 12, -10}], CuboidBox[{6, 12, -10}], CuboidBox[{7, 12, -10}], CuboidBox[{8, 12, -10}], CuboidBox[{9, 12, -10}], CuboidBox[{10, 12, -10}], CuboidBox[{11, 12, -10}], CuboidBox[{12, 12, -10}], CuboidBox[{13, 12, -10}], CuboidBox[{14, 12, -10}], CuboidBox[{15, 12, -10}], CuboidBox[{16, 12, -10}], CuboidBox[{17, 12, -10}], CuboidBox[{18, 12, -10}], CuboidBox[{19, 12, -10}], CuboidBox[{1, 13, -10}], CuboidBox[{2, 13, -10}], CuboidBox[{3, 13, -10}], CuboidBox[{4, 13, -10}], CuboidBox[{5, 13, -10}], CuboidBox[{6, 13, -10}], CuboidBox[{7, 13, -10}], CuboidBox[{8, 13, -10}], CuboidBox[{9, 13, -10}], CuboidBox[{10, 13, -10}], CuboidBox[{11, 13, -10}], CuboidBox[{12, 13, -10}], CuboidBox[{13, 13, -10}], CuboidBox[{14, 13, -10}], CuboidBox[{15, 13, -10}], CuboidBox[{16, 13, -10}], CuboidBox[{17, 13, -10}], CuboidBox[{18, 13, -10}], CuboidBox[{19, 13, -10}], CuboidBox[{1, 14, -10}], CuboidBox[{2, 14, -10}], CuboidBox[{3, 14, -10}], CuboidBox[{4, 14, -10}], CuboidBox[{5, 14, -10}], CuboidBox[{6, 14, -10}], CuboidBox[{7, 14, -10}], CuboidBox[{8, 14, -10}], CuboidBox[{9, 14, -10}], CuboidBox[{10, 14, -10}], CuboidBox[{11, 14, -10}], CuboidBox[{12, 14, -10}], CuboidBox[{13, 14, -10}], CuboidBox[{14, 14, -10}], CuboidBox[{15, 14, -10}], CuboidBox[{16, 14, -10}], CuboidBox[{17, 14, -10}], CuboidBox[{18, 14, -10}], CuboidBox[{19, 14, -10}], CuboidBox[{1, 15, -10}], CuboidBox[{2, 15, -10}], CuboidBox[{3, 15, -10}], CuboidBox[{4, 15, -10}], CuboidBox[{5, 15, -10}], CuboidBox[{6, 15, -10}], CuboidBox[{7, 15, -10}], CuboidBox[{8, 15, -10}], CuboidBox[{9, 15, -10}], CuboidBox[{10, 15, -10}], CuboidBox[{11, 15, -10}], CuboidBox[{12, 15, -10}], CuboidBox[{13, 15, -10}], CuboidBox[{14, 15, -10}], CuboidBox[{15, 15, -10}], CuboidBox[{16, 15, -10}], CuboidBox[{17, 15, -10}], CuboidBox[{18, 15, -10}], CuboidBox[{19, 15, -10}], CuboidBox[{1, 16, -10}], CuboidBox[{2, 16, -10}], CuboidBox[{3, 16, -10}], CuboidBox[{4, 16, -10}], CuboidBox[{5, 16, -10}], CuboidBox[{6, 16, -10}], CuboidBox[{7, 16, -10}], CuboidBox[{8, 16, -10}], CuboidBox[{9, 16, -10}], CuboidBox[{10, 16, -10}], CuboidBox[{11, 16, -10}], CuboidBox[{12, 16, -10}], CuboidBox[{13, 16, -10}], CuboidBox[{14, 16, -10}], CuboidBox[{15, 16, -10}], CuboidBox[{16, 16, -10}], CuboidBox[{17, 16, -10}], CuboidBox[{18, 16, -10}], CuboidBox[{19, 16, -10}], CuboidBox[{1, 17, -10}], CuboidBox[{2, 17, -10}], CuboidBox[{3, 17, -10}], CuboidBox[{4, 17, -10}], CuboidBox[{5, 17, -10}], CuboidBox[{6, 17, -10}], CuboidBox[{7, 17, -10}], CuboidBox[{8, 17, -10}], CuboidBox[{9, 17, -10}], CuboidBox[{10, 17, -10}], CuboidBox[{11, 17, -10}], CuboidBox[{12, 17, -10}], CuboidBox[{13, 17, -10}], CuboidBox[{14, 17, -10}], CuboidBox[{15, 17, -10}], CuboidBox[{16, 17, -10}], CuboidBox[{17, 17, -10}], CuboidBox[{18, 17, -10}], CuboidBox[{19, 17, -10}], CuboidBox[{1, 18, -10}], CuboidBox[{2, 18, -10}], CuboidBox[{3, 18, -10}], CuboidBox[{4, 18, -10}], CuboidBox[{5, 18, -10}], CuboidBox[{6, 18, -10}], CuboidBox[{7, 18, -10}], CuboidBox[{8, 18, -10}], CuboidBox[{9, 18, -10}], CuboidBox[{10, 18, -10}], CuboidBox[{11, 18, -10}], CuboidBox[{12, 18, -10}], CuboidBox[{13, 18, -10}], CuboidBox[{14, 18, -10}], CuboidBox[{15, 18, -10}], CuboidBox[{16, 18, -10}], CuboidBox[{17, 18, -10}], CuboidBox[{18, 18, -10}], CuboidBox[{19, 18, -10}], CuboidBox[{1, 19, -10}], CuboidBox[{2, 19, -10}], CuboidBox[{3, 19, -10}], CuboidBox[{4, 19, -10}], CuboidBox[{5, 19, -10}], CuboidBox[{6, 19, -10}], CuboidBox[{7, 19, -10}], CuboidBox[{8, 19, -10}], CuboidBox[{9, 19, -10}], CuboidBox[{10, 19, -10}], CuboidBox[{11, 19, -10}], CuboidBox[{12, 19, -10}], CuboidBox[{13, 19, -10}], CuboidBox[{14, 19, -10}], CuboidBox[{15, 19, -10}], CuboidBox[{16, 19, -10}], CuboidBox[{17, 19, -10}], CuboidBox[{18, 19, -10}], CuboidBox[{19, 19, -10}], CuboidBox[{1, 20, -10}], CuboidBox[{2, 20, -10}], CuboidBox[{3, 20, -10}], CuboidBox[{4, 20, -10}], CuboidBox[{5, 20, -10}], CuboidBox[{6, 20, -10}], CuboidBox[{7, 20, -10}], CuboidBox[{8, 20, -10}], CuboidBox[{9, 20, -10}], CuboidBox[{10, 20, -10}], CuboidBox[{11, 20, -10}], CuboidBox[{12, 20, -10}], CuboidBox[{13, 20, -10}], CuboidBox[{14, 20, -10}], CuboidBox[{15, 20, -10}], CuboidBox[{16, 20, -10}], CuboidBox[{17, 20, -10}], CuboidBox[{18, 20, -10}], CuboidBox[{19, 20, -10}], CuboidBox[{1, 21, -10}], CuboidBox[{2, 21, -10}], CuboidBox[{3, 21, -10}], CuboidBox[{4, 21, -10}], CuboidBox[{5, 21, -10}], CuboidBox[{6, 21, -10}], CuboidBox[{7, 21, -10}], CuboidBox[{8, 21, -10}], CuboidBox[{9, 21, -10}], CuboidBox[{10, 21, -10}], CuboidBox[{11, 21, -10}], CuboidBox[{12, 21, -10}], CuboidBox[{13, 21, -10}], CuboidBox[{14, 21, -10}], CuboidBox[{15, 21, -10}], CuboidBox[{16, 21, -10}], CuboidBox[{17, 21, -10}], CuboidBox[{18, 21, -10}], CuboidBox[{19, 21, -10}], CuboidBox[{1, 1, -11}], CuboidBox[{2, 1, -11}], CuboidBox[{3, 1, -11}], CuboidBox[{4, 1, -11}], CuboidBox[{5, 1, -11}], CuboidBox[{6, 1, -11}], CuboidBox[{7, 1, -11}], CuboidBox[{8, 1, -11}], CuboidBox[{9, 1, -11}], CuboidBox[{10, 1, -11}], CuboidBox[{11, 1, -11}], CuboidBox[{12, 1, -11}], CuboidBox[{13, 1, -11}], CuboidBox[{14, 1, -11}], CuboidBox[{15, 1, -11}], CuboidBox[{16, 1, -11}], CuboidBox[{17, 1, -11}], CuboidBox[{18, 1, -11}], CuboidBox[{19, 1, -11}], CuboidBox[{20, 1, -11}], CuboidBox[{21, 1, -11}], CuboidBox[{1, 2, -11}], CuboidBox[{2, 2, -11}], CuboidBox[{3, 2, -11}], CuboidBox[{4, 2, -11}], CuboidBox[{5, 2, -11}], CuboidBox[{6, 2, -11}], CuboidBox[{7, 2, -11}], CuboidBox[{8, 2, -11}], CuboidBox[{9, 2, -11}], CuboidBox[{10, 2, -11}], CuboidBox[{11, 2, -11}], CuboidBox[{12, 2, -11}], CuboidBox[{13, 2, -11}], CuboidBox[{14, 2, -11}], CuboidBox[{15, 2, -11}], CuboidBox[{16, 2, -11}], CuboidBox[{17, 2, -11}], CuboidBox[{18, 2, -11}], CuboidBox[{19, 2, -11}], CuboidBox[{20, 2, -11}], CuboidBox[{21, 2, -11}], CuboidBox[{1, 3, -11}], CuboidBox[{2, 3, -11}], CuboidBox[{3, 3, -11}], CuboidBox[{4, 3, -11}], CuboidBox[{5, 3, -11}], CuboidBox[{6, 3, -11}], CuboidBox[{7, 3, -11}], CuboidBox[{8, 3, -11}], CuboidBox[{9, 3, -11}], CuboidBox[{10, 3, -11}], CuboidBox[{11, 3, -11}], CuboidBox[{12, 3, -11}], CuboidBox[{13, 3, -11}], CuboidBox[{14, 3, -11}], CuboidBox[{15, 3, -11}], CuboidBox[{16, 3, -11}], CuboidBox[{17, 3, -11}], CuboidBox[{18, 3, -11}], CuboidBox[{19, 3, -11}], CuboidBox[{20, 3, -11}], CuboidBox[{21, 3, -11}], CuboidBox[{1, 4, -11}], CuboidBox[{2, 4, -11}], CuboidBox[{3, 4, -11}], CuboidBox[{4, 4, -11}], CuboidBox[{5, 4, -11}], CuboidBox[{6, 4, -11}], CuboidBox[{7, 4, -11}], CuboidBox[{8, 4, -11}], CuboidBox[{9, 4, -11}], CuboidBox[{10, 4, -11}], CuboidBox[{11, 4, -11}], CuboidBox[{12, 4, -11}], CuboidBox[{13, 4, -11}], CuboidBox[{14, 4, -11}], CuboidBox[{15, 4, -11}], CuboidBox[{16, 4, -11}], CuboidBox[{17, 4, -11}], CuboidBox[{18, 4, -11}], CuboidBox[{19, 4, -11}], CuboidBox[{20, 4, -11}], CuboidBox[{21, 4, -11}], CuboidBox[{1, 5, -11}], CuboidBox[{2, 5, -11}], CuboidBox[{3, 5, -11}], CuboidBox[{4, 5, -11}], CuboidBox[{5, 5, -11}], CuboidBox[{6, 5, -11}], CuboidBox[{7, 5, -11}], CuboidBox[{8, 5, -11}], CuboidBox[{9, 5, -11}], CuboidBox[{10, 5, -11}], CuboidBox[{11, 5, -11}], CuboidBox[{12, 5, -11}], CuboidBox[{13, 5, -11}], CuboidBox[{14, 5, -11}], CuboidBox[{15, 5, -11}], CuboidBox[{16, 5, -11}], CuboidBox[{17, 5, -11}], CuboidBox[{18, 5, -11}], CuboidBox[{19, 5, -11}], CuboidBox[{20, 5, -11}], CuboidBox[{21, 5, -11}], CuboidBox[{1, 6, -11}], CuboidBox[{2, 6, -11}], CuboidBox[{3, 6, -11}], CuboidBox[{4, 6, -11}], CuboidBox[{5, 6, -11}], CuboidBox[{6, 6, -11}], CuboidBox[{7, 6, -11}], CuboidBox[{8, 6, -11}], CuboidBox[{9, 6, -11}], CuboidBox[{10, 6, -11}], CuboidBox[{11, 6, -11}], CuboidBox[{12, 6, -11}], CuboidBox[{13, 6, -11}], CuboidBox[{14, 6, -11}], CuboidBox[{15, 6, -11}], CuboidBox[{16, 6, -11}], CuboidBox[{17, 6, -11}], CuboidBox[{18, 6, -11}], CuboidBox[{19, 6, -11}], CuboidBox[{20, 6, -11}], CuboidBox[{21, 6, -11}], CuboidBox[{1, 7, -11}], CuboidBox[{2, 7, -11}], CuboidBox[{3, 7, -11}], CuboidBox[{4, 7, -11}], CuboidBox[{5, 7, -11}], CuboidBox[{6, 7, -11}], CuboidBox[{7, 7, -11}], CuboidBox[{8, 7, -11}], CuboidBox[{9, 7, -11}], CuboidBox[{10, 7, -11}], CuboidBox[{11, 7, -11}], CuboidBox[{12, 7, -11}], CuboidBox[{13, 7, -11}], CuboidBox[{14, 7, -11}], CuboidBox[{15, 7, -11}], CuboidBox[{16, 7, -11}], CuboidBox[{17, 7, -11}], CuboidBox[{18, 7, -11}], CuboidBox[{19, 7, -11}], CuboidBox[{20, 7, -11}], CuboidBox[{21, 7, -11}], CuboidBox[{1, 8, -11}], CuboidBox[{2, 8, -11}], CuboidBox[{3, 8, -11}], CuboidBox[{4, 8, -11}], CuboidBox[{5, 8, -11}], CuboidBox[{6, 8, -11}], CuboidBox[{7, 8, -11}], CuboidBox[{8, 8, -11}], CuboidBox[{9, 8, -11}], CuboidBox[{10, 8, -11}], CuboidBox[{11, 8, -11}], CuboidBox[{12, 8, -11}], CuboidBox[{13, 8, -11}], CuboidBox[{14, 8, -11}], CuboidBox[{15, 8, -11}], CuboidBox[{16, 8, -11}], CuboidBox[{17, 8, -11}], CuboidBox[{18, 8, -11}], CuboidBox[{19, 8, -11}], CuboidBox[{20, 8, -11}], CuboidBox[{21, 8, -11}], CuboidBox[{1, 9, -11}], CuboidBox[{2, 9, -11}], CuboidBox[{3, 9, -11}], CuboidBox[{4, 9, -11}], CuboidBox[{5, 9, -11}], CuboidBox[{6, 9, -11}], CuboidBox[{7, 9, -11}], CuboidBox[{8, 9, -11}], CuboidBox[{9, 9, -11}], CuboidBox[{10, 9, -11}], CuboidBox[{11, 9, -11}], CuboidBox[{12, 9, -11}], CuboidBox[{13, 9, -11}], CuboidBox[{14, 9, -11}], CuboidBox[{15, 9, -11}], CuboidBox[{16, 9, -11}], CuboidBox[{17, 9, -11}], CuboidBox[{18, 9, -11}], CuboidBox[{19, 9, -11}], CuboidBox[{20, 9, -11}], CuboidBox[{21, 9, -11}], CuboidBox[{1, 10, -11}], CuboidBox[{2, 10, -11}], CuboidBox[{3, 10, -11}], CuboidBox[{4, 10, -11}], CuboidBox[{5, 10, -11}], CuboidBox[{6, 10, -11}], CuboidBox[{7, 10, -11}], CuboidBox[{8, 10, -11}], CuboidBox[{9, 10, -11}], CuboidBox[{10, 10, -11}], CuboidBox[{11, 10, -11}], CuboidBox[{12, 10, -11}], CuboidBox[{13, 10, -11}], CuboidBox[{14, 10, -11}], CuboidBox[{15, 10, -11}], CuboidBox[{16, 10, -11}], CuboidBox[{17, 10, -11}], CuboidBox[{18, 10, -11}], CuboidBox[{19, 10, -11}], CuboidBox[{20, 10, -11}], CuboidBox[{21, 10, -11}], CuboidBox[{1, 11, -11}], CuboidBox[{2, 11, -11}], CuboidBox[{3, 11, -11}], CuboidBox[{4, 11, -11}], CuboidBox[{5, 11, -11}], CuboidBox[{6, 11, -11}], CuboidBox[{7, 11, -11}], CuboidBox[{8, 11, -11}], CuboidBox[{9, 11, -11}], CuboidBox[{10, 11, -11}], CuboidBox[{11, 11, -11}], CuboidBox[{12, 11, -11}], CuboidBox[{13, 11, -11}], CuboidBox[{14, 11, -11}], CuboidBox[{15, 11, -11}], CuboidBox[{16, 11, -11}], CuboidBox[{17, 11, -11}], CuboidBox[{18, 11, -11}], CuboidBox[{19, 11, -11}], CuboidBox[{20, 11, -11}], CuboidBox[{21, 11, -11}], CuboidBox[{1, 12, -11}], CuboidBox[{2, 12, -11}], CuboidBox[{3, 12, -11}], CuboidBox[{4, 12, -11}], CuboidBox[{5, 12, -11}], CuboidBox[{6, 12, -11}], CuboidBox[{7, 12, -11}], CuboidBox[{8, 12, -11}], CuboidBox[{9, 12, -11}], CuboidBox[{10, 12, -11}], CuboidBox[{11, 12, -11}], CuboidBox[{12, 12, -11}], CuboidBox[{13, 12, -11}], CuboidBox[{14, 12, -11}], CuboidBox[{15, 12, -11}], CuboidBox[{16, 12, -11}], CuboidBox[{17, 12, -11}], CuboidBox[{18, 12, -11}], CuboidBox[{19, 12, -11}], CuboidBox[{20, 12, -11}], CuboidBox[{21, 12, -11}], CuboidBox[{1, 13, -11}], CuboidBox[{2, 13, -11}], CuboidBox[{3, 13, -11}], CuboidBox[{4, 13, -11}], CuboidBox[{5, 13, -11}], CuboidBox[{6, 13, -11}], CuboidBox[{7, 13, -11}], CuboidBox[{8, 13, -11}], CuboidBox[{9, 13, -11}], CuboidBox[{10, 13, -11}], CuboidBox[{11, 13, -11}], CuboidBox[{12, 13, -11}], CuboidBox[{13, 13, -11}], CuboidBox[{14, 13, -11}], CuboidBox[{15, 13, -11}], CuboidBox[{16, 13, -11}], CuboidBox[{17, 13, -11}], CuboidBox[{18, 13, -11}], CuboidBox[{19, 13, -11}], CuboidBox[{20, 13, -11}], CuboidBox[{21, 13, -11}], CuboidBox[{1, 14, -11}], CuboidBox[{2, 14, -11}], CuboidBox[{3, 14, -11}], CuboidBox[{4, 14, -11}], CuboidBox[{5, 14, -11}], CuboidBox[{6, 14, -11}], CuboidBox[{7, 14, -11}], CuboidBox[{8, 14, -11}], CuboidBox[{9, 14, -11}], CuboidBox[{10, 14, -11}], CuboidBox[{11, 14, -11}], CuboidBox[{12, 14, -11}], CuboidBox[{13, 14, -11}], CuboidBox[{14, 14, -11}], CuboidBox[{15, 14, -11}], CuboidBox[{16, 14, -11}], CuboidBox[{17, 14, -11}], CuboidBox[{18, 14, -11}], CuboidBox[{19, 14, -11}], CuboidBox[{20, 14, -11}], CuboidBox[{21, 14, -11}], CuboidBox[{1, 15, -11}], CuboidBox[{2, 15, -11}], CuboidBox[{3, 15, -11}], CuboidBox[{4, 15, -11}], CuboidBox[{5, 15, -11}], CuboidBox[{6, 15, -11}], CuboidBox[{7, 15, -11}], CuboidBox[{8, 15, -11}], CuboidBox[{9, 15, -11}], CuboidBox[{10, 15, -11}], CuboidBox[{11, 15, -11}], CuboidBox[{12, 15, -11}], CuboidBox[{13, 15, -11}], CuboidBox[{14, 15, -11}], CuboidBox[{15, 15, -11}], CuboidBox[{16, 15, -11}], CuboidBox[{17, 15, -11}], CuboidBox[{18, 15, -11}], CuboidBox[{19, 15, -11}], CuboidBox[{20, 15, -11}], CuboidBox[{21, 15, -11}], CuboidBox[{1, 16, -11}], CuboidBox[{2, 16, -11}], CuboidBox[{3, 16, -11}], CuboidBox[{4, 16, -11}], CuboidBox[{5, 16, -11}], CuboidBox[{6, 16, -11}], CuboidBox[{7, 16, -11}], CuboidBox[{8, 16, -11}], CuboidBox[{9, 16, -11}], CuboidBox[{10, 16, -11}], CuboidBox[{11, 16, -11}], CuboidBox[{12, 16, -11}], CuboidBox[{13, 16, -11}], CuboidBox[{14, 16, -11}], CuboidBox[{15, 16, -11}], CuboidBox[{16, 16, -11}], CuboidBox[{17, 16, -11}], CuboidBox[{18, 16, -11}], CuboidBox[{19, 16, -11}], CuboidBox[{20, 16, -11}], CuboidBox[{21, 16, -11}], CuboidBox[{1, 17, -11}], CuboidBox[{2, 17, -11}], CuboidBox[{3, 17, -11}], CuboidBox[{4, 17, -11}], CuboidBox[{5, 17, -11}], CuboidBox[{6, 17, -11}], CuboidBox[{7, 17, -11}], CuboidBox[{8, 17, -11}], CuboidBox[{9, 17, -11}], CuboidBox[{10, 17, -11}], CuboidBox[{11, 17, -11}], CuboidBox[{12, 17, -11}], CuboidBox[{13, 17, -11}], CuboidBox[{14, 17, -11}], CuboidBox[{15, 17, -11}], CuboidBox[{16, 17, -11}], CuboidBox[{17, 17, -11}], CuboidBox[{18, 17, -11}], CuboidBox[{19, 17, -11}], CuboidBox[{20, 17, -11}], CuboidBox[{21, 17, -11}], CuboidBox[{1, 18, -11}], CuboidBox[{2, 18, -11}], CuboidBox[{3, 18, -11}], CuboidBox[{4, 18, -11}], CuboidBox[{5, 18, -11}], CuboidBox[{6, 18, -11}], CuboidBox[{7, 18, -11}], CuboidBox[{8, 18, -11}], CuboidBox[{9, 18, -11}], CuboidBox[{10, 18, -11}], CuboidBox[{11, 18, -11}], CuboidBox[{12, 18, -11}], CuboidBox[{13, 18, -11}], CuboidBox[{14, 18, -11}], CuboidBox[{15, 18, -11}], CuboidBox[{16, 18, -11}], CuboidBox[{17, 18, -11}], CuboidBox[{18, 18, -11}], CuboidBox[{19, 18, -11}], CuboidBox[{20, 18, -11}], CuboidBox[{21, 18, -11}], CuboidBox[{1, 19, -11}], CuboidBox[{2, 19, -11}], CuboidBox[{3, 19, -11}], CuboidBox[{4, 19, -11}], CuboidBox[{5, 19, -11}], CuboidBox[{6, 19, -11}], CuboidBox[{7, 19, -11}], CuboidBox[{8, 19, -11}], CuboidBox[{9, 19, -11}], CuboidBox[{10, 19, -11}], CuboidBox[{11, 19, -11}], CuboidBox[{12, 19, -11}], CuboidBox[{13, 19, -11}], CuboidBox[{14, 19, -11}], CuboidBox[{15, 19, -11}], CuboidBox[{16, 19, -11}], CuboidBox[{17, 19, -11}], CuboidBox[{18, 19, -11}], CuboidBox[{19, 19, -11}], CuboidBox[{20, 19, -11}], CuboidBox[{21, 19, -11}], CuboidBox[{1, 20, -11}], CuboidBox[{2, 20, -11}], CuboidBox[{3, 20, -11}], CuboidBox[{4, 20, -11}], CuboidBox[{5, 20, -11}], CuboidBox[{6, 20, -11}], CuboidBox[{7, 20, -11}], CuboidBox[{8, 20, -11}], CuboidBox[{9, 20, -11}], CuboidBox[{10, 20, -11}], CuboidBox[{11, 20, -11}], CuboidBox[{12, 20, -11}], CuboidBox[{13, 20, -11}], CuboidBox[{14, 20, -11}], CuboidBox[{15, 20, -11}], CuboidBox[{16, 20, -11}], CuboidBox[{17, 20, -11}], CuboidBox[{18, 20, -11}], CuboidBox[{19, 20, -11}], CuboidBox[{20, 20, -11}], CuboidBox[{21, 20, -11}], CuboidBox[{1, 21, -11}], CuboidBox[{2, 21, -11}], CuboidBox[{3, 21, -11}], CuboidBox[{4, 21, -11}], CuboidBox[{5, 21, -11}], CuboidBox[{6, 21, -11}], CuboidBox[{7, 21, -11}], CuboidBox[{8, 21, -11}], CuboidBox[{9, 21, -11}], CuboidBox[{10, 21, -11}], CuboidBox[{11, 21, -11}], CuboidBox[{12, 21, -11}], CuboidBox[{13, 21, -11}], CuboidBox[{14, 21, -11}], CuboidBox[{15, 21, -11}], CuboidBox[{16, 21, -11}], CuboidBox[{17, 21, -11}], CuboidBox[{18, 21, -11}], CuboidBox[{19, 21, -11}], CuboidBox[{20, 21, -11}], CuboidBox[{21, 21, -11}]}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzFXXuPHMURH+/rjvMT29iH3w8exmBMIOFNAoiYoIgoUYSUREKRQ07BUhIS QFH+yyeJFH8HvgjfB4nsTHdXV9f8qrp6ds+stHd7M7PdXb96V9fMfXz/688P /nb/6wef3b/24Zf3//H5g8++unbviy/Xh+ZHuq77Zv3+77Wu//z9+mP88U33 /ffrT//uf827g4ODN8KBf/W/Zv2BGX16PZz6iq5dDAeGj8On/vdr4aJ/0rd2 9Iv+TiOtwqf+taAr49Wvhov/SiPmi2fdF3f+04XvpW/NxHz9+5UwxINyvln/ tSUb4rv/fTl8zRjiL2AV6yv7MfpX/3sBRpyDEV8OI/4ZLIoP0X/q3wOtszhf Gjf8NR77R2HsP5WrXUiC89gDmA+//Y6BWRn7j2DdczD2cGweqOonWBQTKHO8 FOb4FKx/EUHmczBk+in6V/97GSdMk/WoDYSqE/7BSdTAjEWecU5zhhnH867f iNC7Yd7fAbFaYkKHcysGZZp1/Q4gLOXEKswvhtk/AVTPNFYupKyk+Qe05/xs P1Xix2xYSFgxU+6I+28B/QqjGf3l/DOafyHmD2cDNP0q0vzJHEUm/JpgWNq6 nddEIqwIARORpWRWNDXEtjmxSjNjL4R1/qoEy7YYUZTG65sTXEiYButerkpT nbiqX9bRw5qkiNNCHAvXWRenKUu2M7VAvL8TVv/RVjCdCUy1s1Ek0kLnLUJw Oyz43gZwQzMp16ogvRRinf0Ft3z9ixkfg44PmoGXglEKs82WHWaZR3ZzQajE ZSOT+VxY9nsl/Att2Ys8qxNgDmFaT9cx979iNLDXXEBPh8c03Ao0/AxArzo7 FfqsejZjZFhEa0Zqu5Bq27+42kbpebuFDUgnuTqm44Y+KOAIiU9rTxqSOCUH t1zzs4HAN7fHoxjuenlkEcgG4rTNyDYIt4EIfCYQ+JqTg1bY42Fi4F+GL40t 5+LXcXMw49iWgU3Xtdi9SPdPmhmrBhkOtmNEk0VZIv9DDGWmJtLMFcmS4acD qS8DV1UP7kZcVnVYTWvyNyRxmculLxCzV1gZ6bsL6KuZCk/w6DCqnoRLdy8F eUFphGPs6JzUMdIJBMxTAZg7k6J6Jatx2mgYA+HpkFtWyRQhW8ZkyZgxRuJm QOJ2i4ioGZZMKTSZmZixMpnZIeLT75J4hSGWx47KcssvEyzaaQmzvaEwsyd+ kUtGI1EYLaOqpd6o/kZA5+lHJScT42yHXZIU91RKNoWFd9y0IOW5HkC5OUlk tuA/JnmjogLSv1KtLhuKqq5Eq3Fte9LgiBFsX7KJl1oyCFnlMufmtfw/OSok JNcCVlcehZActvOq4dDTTR5paVDgsDhXA24XH4GM2fFKm2dqzvt5mMfCP4le fClZtAHgk6rgbcGY6CHNtiwVGxyJZiCeuD6CMbOHxdm40hYV9VyLwG1serad UolcOSd/haHjpZk1FJWNgnoidTlAd3YLouaxR8T0w5I8PREvNe+hKKSUY4Rj 400GwLG6mQxfV6F//FFJ7SG7YnXkcUoYGLcjgRv+zvuD64tX5dyWDbgS0DwJ ih9CHPD+ky5rXrk+zCQ0CMWYFisJzQiG84F9TKixTNuLSUKNBPpSYMGxH1yg vX5/Yg7DRh6J9pzw5iVaaZ24aXCnOxrsFwPseyT56rZNRfLbJAGIfTmyHfBu VG5bFKAQiKONRrgHaupXdVcvCvljgBFzsjiWFbCFzt5kaq/P86hikvV2rFnI KMoeBl6U8lSWvkdiaBmaC4EHuyTxM03iw18r+ju94iLwnkW5ziwuq0Jc2JCq 9CuJ1GFZfCtYYkzqf+eSwchEqaZHEQTFEiLGPckY1+V2LCp16aTZVvIH0Bq3 izDdGrJN0WHm72pb4PGlC3G57az0Ce1jngwHE4WqAqnlNyTdSQ5rgT8aAPNB mcitRk6HpU+khLajNoDI03G8JSx/vE7lUmh5XBanIqeYuUZgiW2FbSuLQw03 6b2w5x2ALSpXlQ4GvjWFmFttEniSs2MF2fGF3TnIBbQzDKtHaQItChleWY4V OIVH244ai8pPYgvHItFjdTiMds/5Sgrm1kqW5zg/F5KfeY7sBFUEFplfAEeH nmyiRZsEl1Z8jUoi6t6+aORSbVoBenkqXT6iw0GljPnSO/5dUwBlaKSHqMNj gma4jIGyu546QEWrAZyR1CUblup+0XmdR/OoLHyVxbi6YuAYz6MWuEPn8Nr6 DA0PYTQ/kbsuS2hH6qRae++m7lmdLQtWwLVmqaiJvWvk2K7xupKmZMitnj2A onq4DnHTGW6t+hffNoR6V+akjk3nRqYtNXsnZlGl3VIRKxWdqD5SQerjFo2Z Os9XkEdDz7iiiB0op0kFxLbticCPFeDHDuCHN0beZBfTozQkbduILGsT5v3x qiQIM5d4pie7RIhX71D6elpn4m6MzgUgVtWmqkZI9ZmsT3FslZ4ALYgUQK4Y S0vkDoa7xNY/PWlsfKn+e8S+Jo48Fo2dAKkjatXwzk4FHarJWENrt3yJvQh9 GuTcVgQ5L8GlSTJV89jNI5gxHFXJzhmwDZllCc/UWKaGCdWNWM3EqwppqdD2 2xuEm8tgMklcEBPim992xV0V9WIxPRxflRc7bZvt8RqzcFtSe4HFoVWH17bT 6PBkSjSPZq+cNUsLYB3MhMvMFm0zkfurW8ZTNV9Vp7np3jXp5rHhzYzccLsi KuoEP8hsGFY2Jkm5gViqXl6lI7MiIrKiW9t+UemWmtJZfXO1RHJSQWei1to3 2srZSulKOuUyZKhZ1yrOc6XMU47su2UYT+o82tu4nmToznZKr9BZNe3zcUkO nOJOtrmDaRTOi5qJt5nB2FEcM+qEzsOjU+pNrXuKG9ab7NCR10QTnmr4Vkme DoZbvLvGokXWfMvYGYp0zKwueSMGVQm2U1KynFmeZi6UhGZWtiU8u0WLwjg2 lC3ard1xnUkngLULS95uMnxYJVmhInpMVlvEpJLExjbsmM6Zk9iG2SozMSlu qyoJval7rjnFzLbRU3mWv4ZsW2uxwmfZotLIxwtRWsXgMhy+HdBVSkQtKsHt aaESVQvHJJ9vdrMF4vRVj1tyM0l84W1Qy2QdraD/A1WGnJkmc1BGkiKLp8Qo aXSUHkY7O8pnyXdVx1Vb3L32bK/Gtqa91okZbEN4bHkEtTgwqrjmBoOH2O1b HUCwAJReNLmegtVsXKRFqwAZvPK7+IlpqyOOy0yw7xFEGxEtN6ixuTolgsg2 bzTair4+8ouWkatxQOX81vJRlXGqG2fGnUOpP7QD8GQlll+KcFlRVcMEnHPK SGH7Jm7XpzZISaX8VVofpsV3QmMmODR1D8KT1qCIG1jw+NwDOUlyV7aV99m8 Ruad1pjnDhg28m1hwM4OGya5N9H36G6Ao4vFUJ1dqevfE+1h2EqHzuqs4E4W pM2KZI5mN1YBmFLi8d5WnleiZztEtWoCrC3BkSBnXihDNhnGlc69JzTdEq0w NpJ2pC1M3oT21Knp0SiuU3c8mGnl+Csb7nmHGZm3CHQyEbs6+udMy9YElBlN rch8p3ekJgM2sSV1GwmR6MeFPXdx/Wi0ZcS8tqOB9WvMlKXOr/OGreMmrf1O Sc716VFCU9Ao9soRd0fZsjsSdFq7Ubhgbs7ivgfDN+2DbGlmRwRq9Uf6tBAM TfX/qlpUa7JztsMqFd3u5oYEbWL3sghEMWpSpn2jWuS9DeYQIoCBnqV2VuZ3 frVQIzkRjSVJ4s3g+EmrYzbrZi+MytQmao1+g99Ibm3EeGi0qbsHeZd9wl2e bm3iHjkg7jCLT4r8GTqhQw+MOgqEgwTspKVJ355X1e7bHenVwjw7F/CNAjR1 97mpv6DL9xbR8Kp0cuvVzhVHioa2vDZy3US7ozFIz1IaY7JmrqEth8y1csvh u/i4G3TrvYsDzVX8zRyMFVYrj6RBRthXZt6UXREJ9PDJY214XwSJyXjTfXRW adTweg7VCNUagmW9STXGKdvwJYrL8tIu/+eENHIJ8nGA5EIH+RIJtW44trqB 2dRPO4a2Whxur2J5LUsKdrgpMdDucgbe/77KAhpmKRhnWx7Ik9bp7eCrFeAL D6AYXzt/UyMfJXVjfKpmWgkzujgzCtkUzIDLYc9EsRpbbDOSzbK6XMOETNQk zK6UpWRUXF5XS8OEGEFHOppzuNQv8RcI8AUzMh6DUm8VUu1+Cwe7XIdpKbGa HLGbscqCxMNv2e77cNVJN7jnCdz0JAcE6aNrePDVALG8eoIVjr3NHtOmgDau 9eu0G/azBPterGoj2Ne/sw5W0ojSnngdo5en9j099Zp2PN3AoYXNoQO6XdID d36kYTI7HAlL3qrnmjxi09NpkFmRt4OVhqBo70G2jQFIhTd9/7McPOGJUJ9D 1E8Q6qfCJ2U2u8/As4fQWJesVCFaQFIth9Ad5DwrghCOjcFGViYzYNTeNhw6 A3Igtv6ycMoWNaxzFUiZVHxUE6JZCZIS2G1JkrF1GZm3TbDeJazlxkpd7OzI cRND0t7bpgp0Lju1VbpwzQTNn+sAqMT+uJsVS2LFkPo7RNAKJzesrtiZLRJj fR9qJMa49RbGOegev1NuSGcE6VVQvYLRxvYrJ7k0iARSj05KqUwBnJBK1f+M Wrg5xAQ6qgG2wLv+6yloo7tken33SmrVk5ENTxTYfhfFILLNGtebRtwu2kBO AGhQ0hLhGg4+S5K33UBACfQrRhnXP6EFXNLfXHwcAodqfDntRuKFMJxBkXu2 lu5NLFhUIjX92FjGHHsrzsqQbXk14JCQZjBTpNu/LTBr/5p0jHLTc3b0BktD 7CpV+NZyEA0pIiokoQaoyOtzo5hIdjh0u+nAJ5wO8ctFdbcLMl1/7RZoS81R QS0CixpRb5opmSN2Z5XJyUWj6h6dvJGnTITtHGtBfu8MoB8VfCNcy+Bo1mdu ammT6mf1eGiL96TAXlulBrNZnpRN+j7A66iOIXqm2HUzMeKR3MOG4oqo4GiM QUIkStjOakq4PgOfXimIvNiG1K6G1EZ+FkffnkRcOyskSe5ikdQiYwkbIksH fBnAsKejhuJtJF+5A6pztjVuslHD+8d82QhSUk8qUoJ3xQnekQBe/s8MNyim ZhSH9XeOxMMupDWVrdUoUBcbOiG6Dq4BypG8RDSQJ7huBHTtxXRfXOItSLaJ h6mrIqxAYmQAhyKOqyBeUyySuirvjijcuTbqiEJMmgoG1wGtyHJHaFCUe0WF BhT4VGeW404YZYDkvlLqqwX7tmI+AwhFvj/ikv8bUkDDyte1RiVdgzz/0zu+ GIzZi1P4OT2MH664DQBA9bcICqps5sqlHQF4wnNvHo7DH9TWIm510EvDPSnP t6GBSu6ohavw7NiGGBpSUL6KcsBJ97SWcEEpyltNzvsFDZ8j/aEj4dMAzRnS nksAELsK2L75jhpImMz5De2LgMAlJBDtLV6gEKVeqJuSiGKHkOhC0SCTdH8j AvK3dwC5CwjMOQ0Y1TA0pAZ+R5yFfHp0a5fl7rohOa9B0hTte3wvUaIaQDtG zSHKj8Ga55C6fVJ1bvuQvYbhqeVG7fiiYtOq7UpUZXgd0DqDtF4AV1o31OTy 9ETf6AsX8xgj65BW+UZcJV95/z4Y7qcaiEPVgPPRxiPirILQxIi5LSUYbWy8 VWdk110CF50TkhtmtITP1jwZrsWXaoyU8O5tg2mRmsukfedc3sfSNBSXOwqc KOx6J5pDvvLMgquABfKG9vbgUcv+JxQfq/HUTwUFjCMopz/LrT3WCRgBukiy 2x3yJe/pa0Y5o8qQHSkrdrzeYUvdXhsYiLhH8h6XfoMOPEEKIMuytWCL39no zcMTTB9K+/KUhiXbEDYWNNha7TFjjfbwFxKsp8HaTtPaGlqVA38ekwZOGjBR wBb2UnbdxC990C9oMB1xT/0ZIoM/k8SSulGJc2yhrL2cfNW7tJZ45+YtgOBJ bVWNvn0UqzTlednuDuuND4x7Dqz3RN0aqU1PqHgsTNFbtIb4MFRUZFCfszkx clCURSwoPqz/eRKok2AZbv+uPhdomJB12MH06XjNXzt8srpH8SqRHP/hK8ps 8wrkDRw+V2rXmPoZXqZlxP8xjpKm2HybqU1zV31gNt7CB96leW+EeV8ijp+o heseB2Zmh8Nfz9MKQt0xQCEoP1pby6gqWqS1oqp8m6YMCte9Aqbci4GZmHKn xE912M/RHEGgQp44ADuMvPKqyC0aKAATJFYsFv0rIbW8qerCTZoqzNG9pk5l xcx1ab9KE70ZJkKJ5Q5Ju3VDQmbFJRo0xJwhkxsQ3wX6K5zeMNE+DfF+GALl SXldaMdinyzavTDE22CIFWMX8s6FJJ2nRX0URnwHjLg0FAQFY2dp0I/DoD8l sFqHOkVD/SYM9S5Y30xQTNQJyThOg30SBnsvipvI7DLqw6c9+trvw9feJ3Jm WF7nQenS1z4NX/sALD3GcunK++HKn4srD4abtdJF4ViIwYes9EE40B35PwEV CsM=\ \>"]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Sift", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Sift"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Sift[\*StyleBox[\\\"randomobject\\\", \\\"TI\\\"], \*StyleBox[\ \\\"test\\\", \\\"TI\\\"]] repeatedly generates a random object until one is \ found that satisfies the condition \*StyleBox[\\\"test\\\", \ \\\"TI\\\"].\\nSift[\*StyleBox[\\\"randomobject\\\", \\\"TI\\\"], \*StyleBox[\ \\\"test\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] generates a \ list of \*StyleBox[\\\"n\\\", \\\"TI\\\"] objects satisfying \ \*StyleBox[\\\"test\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501789-5226476"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Distinct"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Distinct is an option for Sift that determines whether to \ check for duplicates.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501793-6328774"] }, Open ]], Cell["Produce random primes that are congruent to 2 mod 3:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sift", "[", RowBox[{ RowBox[{"RandomPrime", "[", "100", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "3"}], "]"}], "\[Equal]", "2"}], "&"}], ",", "20"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "53", ",", "11", ",", "83", ",", "41", ",", "89", ",", "71", ",", "53", ",", "5", ",", "29", ",", "89", ",", "2", ",", "47", ",", "41", ",", "53", ",", "89", ",", "41", ",", "5", ",", "11", ",", "2"}], "}"}]], "Output"] }, Open ]], Cell["Ensure that they are distinct:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sift", "[", RowBox[{ RowBox[{"RandomPrime", "[", "100", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "3"}], "]"}], "\[Equal]", "2"}], "&"}], ",", "10", ",", RowBox[{"Distinct", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "89", ",", "23", ",", "59", ",", "17", ",", "83", ",", "53", ",", "41", ",", "71", ",", "5", ",", "47"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["SuccessiveMaxima", "Input"], StyleBox[" and ", "Text"], StyleBox["SuccessiveMinima", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SuccessiveMaxima"}]], "Input"], Cell[BoxData[ StyleBox["\<\"SuccessiveMaxima[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives \ the list {{\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\ \\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\)}, {\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"e\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)}, \[Ellipsis]}, \ where \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"] are \ the successive maxima of \*StyleBox[\\\"list\\\", \\\"TI\\\"] and \ \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"] are \ the positions at which they \ occur.\\nSuccessiveMaxima[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"f\\\", \\\"TI\\\"]] finds the successive maxima under the fitness function \ \*StyleBox[\\\"f\\\", \ \\\"TI\\\"].\\nSuccessiveMaxima[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"f\\\", \\\"TI\\\"], \*StyleBox[\\\"p\\\", \\\"TI\\\"]] finds \ the successive maxima under the fitness function \*StyleBox[\\\"f\\\", \\\"TI\ \\\"] relative to the ordering function \*StyleBox[\\\"p\\\", \ \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501804-1708371"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", StyleBox["SuccessiveMinima", "Input"]}]], "Input"], Cell[BoxData[ StyleBox["\<\"SuccessiveMinima[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] gives \ the list {{\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\ \\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\)}, {\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\ \\\"e\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)}, \[Ellipsis]}, \ where \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"] are \ the successive minima of \*StyleBox[\\\"list\\\", \\\"TI\\\"] and \ \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"] are \ the positions at which they \ occur.\\nSuccessiveMinima[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"f\\\", \\\"TI\\\"]] finds the successive minima under the fitness function \ \*StyleBox[\\\"f\\\", \ \\\"TI\\\"].\\nSuccessiveMinima[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"f\\\", \\\"TI\\\"], \*StyleBox[\\\"p\\\", \\\"TI\\\"]] finds \ the successive minima under the fitness function \*StyleBox[\\\"f\\\", \\\"TI\ \\\"] relative to the ordering function \*StyleBox[\\\"p\\\", \ \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501805-5182785"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"RandomSample", "[", RowBox[{"Range", "[", "10000", "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SuccessiveMaxima", "[", "data", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6491"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6910"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "8205"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9110"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "9870"}], "}"}], ",", RowBox[{"{", RowBox[{"278", ",", "9911"}], "}"}], ",", RowBox[{"{", RowBox[{"305", ",", "9930"}], "}"}], ",", RowBox[{"{", RowBox[{"439", ",", "9998"}], "}"}], ",", RowBox[{"{", RowBox[{"4152", ",", "10000"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SuccessiveMinima", "[", "data", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6491"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3088"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "339"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"183", ",", "72"}], "}"}], ",", RowBox[{"{", RowBox[{"487", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"529", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"634", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"685", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1601", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2486", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"%", ",", "%%"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 8.778171881033469}, {2., 8.035278911144667}, {5., 5.82600010738045}, {34., 4.454347296253507}, {183., 4.276666119016055}, { 487., 3.4339872044851463`}, {529., 3.1780538303479458`}, {634., 2.70805020110221}, {685., 2.5649493574615367`}, {1601., 1.6094379124341003`}, {2486., 0.}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{1., 8.778171881033469}, {3., 8.840724916761715}, {10., 9.01249900352419}, {13., 9.117127990254003}, {37., 9.197255132427527}, { 278., 9.201400530406708}, {305., 9.203315757039219}, {439., 9.210140351973516}, {4152., 9.210340371976184}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->{None, None}, Method->{}, PlotRange->{{0., 1708.}, {0., 9.210340371976184}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "data", "]"}]], "Input"], Cell["Find tuples with successively maximal sums.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SuccessiveMaxima", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "3"}], "]"}], ",", "4"}], "]"}], ",", "Total"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"192", ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"256", ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Swap", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Swap"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Swap[\*StyleBox[\\\"list\\\", \\\"TI\\\"], {\*StyleBox[\\\"m\\\ \", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]}] exchanges the elements \ at positions \*StyleBox[\\\"m\\\", \\\"TI\\\"] and \*StyleBox[\\\"n\\\", \ \\\"TI\\\"] of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nSwap[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ {\!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\ \\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"], \ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"k\\\", \ \\\"TI\\\"]]\)}] simultaneously moves the element in position \ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]]\) to \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]]\), the element in position \ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\) to \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], \ StyleBox[\\\"3\\\", \\\"TR\\\"]]\), \[Ellipsis], and the element in position \ \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], StyleBox[\\\"k\\\", \ \\\"TI\\\"]]\) to \!\(\*SubscriptBox[StyleBox[\\\"n\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\).\\nSwap[\*StyleBox[\\\"list\\\", \ \\\"TI\\\"], \!\(\*SubscriptBox[StyleBox[\\\"cycle\\\", \\\"TI\\\"], \ StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \ \!\(\*SubscriptBox[StyleBox[\\\"cycle\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]] applies the \ permutations \!\(\*SubscriptBox[StyleBox[\\\"cycle\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\) in succession.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501817-5435346"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c", ",", "b", ",", "d"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "e", ",", "b", ",", "d", ",", "c"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "d", ",", "b", ",", "e", ",", "c"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "4", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "a"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "a"}], "}"}]], "Output"] }, Open ]], Cell["Swap entries in a nested list:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Swap", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "a"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["TakeAfter", "Input"], ", ", StyleBox["TakeBefore", "Input"], ", ", StyleBox["DropAfter", "Input"], ", and ", StyleBox["DropBefore", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "TakeAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"TakeAfter[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] gives the elements of \ \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing after the first element \ matching \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nTakeAfter[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] \ gives the elements of \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing after \ the \*StyleBox[\\\"n\\\", \\\"TI\\\"]th element matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]. Negative \*StyleBox[\\\"n\\\", \ \\\"TI\\\"] counts from the end of the list.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501824-2752234"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeAfter", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", SqrtBox["5"]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeAfter", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer", ",", RowBox[{"-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", SqrtBox["5"], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "TakeBefore"}]], "Input"], Cell[BoxData[ StyleBox["\<\"TakeBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"]] gives the elements of \*StyleBox[\\\"list\\\", \\\ \"TI\\\"] appearing before the first element matching \ \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nTakeBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives the \ elements of \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing before the \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]th element matching \*StyleBox[\\\"pattern\\\ \", \\\"TI\\\"]. Negative \*StyleBox[\\\"n\\\", \\\"TI\\\"] counts from the \ end of the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501827-2936702"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeBefore", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.2`", ",", "\[Pi]"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeBefore", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer", ",", RowBox[{"-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.2`", ",", "\[Pi]", ",", "2"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "DropAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"DropAfter[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] drops the elements of \ \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing after the first element \ matching \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nDropAfter[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] \ drops the elements of \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing after \ the \*StyleBox[\\\"n\\\", \\\"TI\\\"]th element matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]. Negative \*StyleBox[\\\"n\\\", \ \\\"TI\\\"] counts from the end of the list.\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501830-5413399"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DropAfter", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.2`", ",", "\[Pi]", ",", "2"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DropAfter", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer", ",", RowBox[{"-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.2`", ",", "\[Pi]", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "DropBefore"}]], "Input"], Cell[BoxData[ StyleBox["\<\"DropBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"]] drops the elements of \*StyleBox[\\\"list\\\", \\\ \"TI\\\"] appearing before the first element matching \ \*StyleBox[\\\"pattern\\\", \ \\\"TI\\\"].\\nDropBefore[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] drops the \ elements of \*StyleBox[\\\"list\\\", \\\"TI\\\"] appearing before the \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]th element matching \*StyleBox[\\\"pattern\\\ \", \\\"TI\\\"]. Negative \*StyleBox[\\\"n\\\", \\\"TI\\\"] counts from the \ end of the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501833-7501677"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DropBefore", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", SqrtBox["5"]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DropBefore", "[", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\[Pi]", ",", "2", ",", "3", ",", SqrtBox["5"]}], "}"}], ",", "_Integer", ",", RowBox[{"-", "1"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", SqrtBox["5"]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Tile", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Tile"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Tile[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"len\\\", \\\"TI\\\"]] tiles \*StyleBox[\\\"list\\\", \ \\\"TI\\\"] to form a periodic list of length \*StyleBox[\\\"len\\\", \ \\\"TI\\\"].\\nTile[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"dims\\\", \\\"TI\\\"]] tiles \*StyleBox[\\\"array\\\", \ \\\"TI\\\"] to form an array with dimensions \*StyleBox[\\\"dims\\\", \ \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501837-7748020"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tile", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "13"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "1", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Tile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "7"}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "2", "3", "1", "2", "3", "1"}, {"4", "5", "6", "4", "5", "6", "4"}, {"1", "2", "3", "1", "2", "3", "1"}, {"4", "5", "6", "4", "5", "6", "4"}, {"1", "2", "3", "1", "2", "3", "1"}, {"4", "5", "6", "4", "5", "6", "4"}, {"1", "2", "3", "1", "2", "3", "1"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{"Tile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztzzENACAQBMEDJ1hCAqHHf0eDhm+YZFfAjHXm6kn2u6UVlII4ODg4ODg4 ODg4ODg4ODg4ODg4ODg4ODg4ODg4ODg4ODg4ODg4fnZcZT8V+Q== "], {{0, 0}, {100, 100}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "2"}], "]"}], ",", "3"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", "##1", "]"}], "&"}], ",", RowBox[{"Tile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", "3", "}"}]}], "]"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[{{{Text3DBox[ FormBox["1", TraditionalForm], {1, 1, 1}], Text3DBox[ FormBox["2", TraditionalForm], {1, 1, 2}], Text3DBox[ FormBox["1", TraditionalForm], {1, 1, 3}], Text3DBox[ FormBox["2", TraditionalForm], {1, 1, 4}], Text3DBox[ FormBox["1", TraditionalForm], {1, 1, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {1, 2, 1}], Text3DBox[ FormBox["4", TraditionalForm], {1, 2, 2}], Text3DBox[ FormBox["3", TraditionalForm], {1, 2, 3}], Text3DBox[ FormBox["4", TraditionalForm], {1, 2, 4}], Text3DBox[ FormBox["3", TraditionalForm], {1, 2, 5}]}, {Text3DBox[ FormBox["5", TraditionalForm], {1, 3, 1}], Text3DBox[ FormBox["6", TraditionalForm], {1, 3, 2}], Text3DBox[ FormBox["5", TraditionalForm], {1, 3, 3}], Text3DBox[ FormBox["6", TraditionalForm], {1, 3, 4}], Text3DBox[ FormBox["5", TraditionalForm], {1, 3, 5}]}, {Text3DBox[ FormBox["1", TraditionalForm], {1, 4, 1}], Text3DBox[ FormBox["2", TraditionalForm], {1, 4, 2}], Text3DBox[ FormBox["1", TraditionalForm], {1, 4, 3}], Text3DBox[ FormBox["2", TraditionalForm], {1, 4, 4}], Text3DBox[ FormBox["1", TraditionalForm], {1, 4, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {1, 5, 1}], Text3DBox[ FormBox["4", TraditionalForm], {1, 5, 2}], Text3DBox[ FormBox["3", TraditionalForm], {1, 5, 3}], Text3DBox[ FormBox["4", TraditionalForm], {1, 5, 4}], Text3DBox[ FormBox["3", TraditionalForm], {1, 5, 5}]}}, {{Text3DBox[ FormBox["7", TraditionalForm], {2, 1, 1}], Text3DBox[ FormBox["8", TraditionalForm], {2, 1, 2}], Text3DBox[ FormBox["7", TraditionalForm], {2, 1, 3}], Text3DBox[ FormBox["8", TraditionalForm], {2, 1, 4}], Text3DBox[ FormBox["7", TraditionalForm], {2, 1, 5}]}, {Text3DBox[ FormBox["9", TraditionalForm], {2, 2, 1}], Text3DBox[ FormBox["10", TraditionalForm], {2, 2, 2}], Text3DBox[ FormBox["9", TraditionalForm], {2, 2, 3}], Text3DBox[ FormBox["10", TraditionalForm], {2, 2, 4}], Text3DBox[ FormBox["9", TraditionalForm], {2, 2, 5}]}, {Text3DBox[ FormBox["11", TraditionalForm], {2, 3, 1}], Text3DBox[ FormBox["12", TraditionalForm], {2, 3, 2}], Text3DBox[ FormBox["11", TraditionalForm], {2, 3, 3}], Text3DBox[ FormBox["12", TraditionalForm], {2, 3, 4}], Text3DBox[ FormBox["11", TraditionalForm], {2, 3, 5}]}, {Text3DBox[ FormBox["7", TraditionalForm], {2, 4, 1}], Text3DBox[ FormBox["8", TraditionalForm], {2, 4, 2}], Text3DBox[ FormBox["7", TraditionalForm], {2, 4, 3}], Text3DBox[ FormBox["8", TraditionalForm], {2, 4, 4}], Text3DBox[ FormBox["7", TraditionalForm], {2, 4, 5}]}, {Text3DBox[ FormBox["9", TraditionalForm], {2, 5, 1}], Text3DBox[ FormBox["10", TraditionalForm], {2, 5, 2}], Text3DBox[ FormBox["9", TraditionalForm], {2, 5, 3}], Text3DBox[ FormBox["10", TraditionalForm], {2, 5, 4}], Text3DBox[ FormBox["9", TraditionalForm], {2, 5, 5}]}}, {{Text3DBox[ FormBox["1", TraditionalForm], {3, 1, 1}], Text3DBox[ FormBox["2", TraditionalForm], {3, 1, 2}], Text3DBox[ FormBox["1", TraditionalForm], {3, 1, 3}], Text3DBox[ FormBox["2", TraditionalForm], {3, 1, 4}], Text3DBox[ FormBox["1", TraditionalForm], {3, 1, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {3, 2, 1}], Text3DBox[ FormBox["4", TraditionalForm], {3, 2, 2}], Text3DBox[ FormBox["3", TraditionalForm], {3, 2, 3}], Text3DBox[ FormBox["4", TraditionalForm], {3, 2, 4}], Text3DBox[ FormBox["3", TraditionalForm], {3, 2, 5}]}, {Text3DBox[ FormBox["5", TraditionalForm], {3, 3, 1}], Text3DBox[ FormBox["6", TraditionalForm], {3, 3, 2}], Text3DBox[ FormBox["5", TraditionalForm], {3, 3, 3}], Text3DBox[ FormBox["6", TraditionalForm], {3, 3, 4}], Text3DBox[ FormBox["5", TraditionalForm], {3, 3, 5}]}, {Text3DBox[ FormBox["1", TraditionalForm], {3, 4, 1}], Text3DBox[ FormBox["2", TraditionalForm], {3, 4, 2}], Text3DBox[ FormBox["1", TraditionalForm], {3, 4, 3}], Text3DBox[ FormBox["2", TraditionalForm], {3, 4, 4}], Text3DBox[ FormBox["1", TraditionalForm], {3, 4, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {3, 5, 1}], Text3DBox[ FormBox["4", TraditionalForm], {3, 5, 2}], Text3DBox[ FormBox["3", TraditionalForm], {3, 5, 3}], Text3DBox[ FormBox["4", TraditionalForm], {3, 5, 4}], Text3DBox[ FormBox["3", TraditionalForm], {3, 5, 5}]}}, {{Text3DBox[ FormBox["7", TraditionalForm], {4, 1, 1}], Text3DBox[ FormBox["8", TraditionalForm], {4, 1, 2}], Text3DBox[ FormBox["7", TraditionalForm], {4, 1, 3}], Text3DBox[ FormBox["8", TraditionalForm], {4, 1, 4}], Text3DBox[ FormBox["7", TraditionalForm], {4, 1, 5}]}, {Text3DBox[ FormBox["9", TraditionalForm], {4, 2, 1}], Text3DBox[ FormBox["10", TraditionalForm], {4, 2, 2}], Text3DBox[ FormBox["9", TraditionalForm], {4, 2, 3}], Text3DBox[ FormBox["10", TraditionalForm], {4, 2, 4}], Text3DBox[ FormBox["9", TraditionalForm], {4, 2, 5}]}, {Text3DBox[ FormBox["11", TraditionalForm], {4, 3, 1}], Text3DBox[ FormBox["12", TraditionalForm], {4, 3, 2}], Text3DBox[ FormBox["11", TraditionalForm], {4, 3, 3}], Text3DBox[ FormBox["12", TraditionalForm], {4, 3, 4}], Text3DBox[ FormBox["11", TraditionalForm], {4, 3, 5}]}, {Text3DBox[ FormBox["7", TraditionalForm], {4, 4, 1}], Text3DBox[ FormBox["8", TraditionalForm], {4, 4, 2}], Text3DBox[ FormBox["7", TraditionalForm], {4, 4, 3}], Text3DBox[ FormBox["8", TraditionalForm], {4, 4, 4}], Text3DBox[ FormBox["7", TraditionalForm], {4, 4, 5}]}, {Text3DBox[ FormBox["9", TraditionalForm], {4, 5, 1}], Text3DBox[ FormBox["10", TraditionalForm], {4, 5, 2}], Text3DBox[ FormBox["9", TraditionalForm], {4, 5, 3}], Text3DBox[ FormBox["10", TraditionalForm], {4, 5, 4}], Text3DBox[ FormBox["9", TraditionalForm], {4, 5, 5}]}}, {{Text3DBox[ FormBox["1", TraditionalForm], {5, 1, 1}], Text3DBox[ FormBox["2", TraditionalForm], {5, 1, 2}], Text3DBox[ FormBox["1", TraditionalForm], {5, 1, 3}], Text3DBox[ FormBox["2", TraditionalForm], {5, 1, 4}], Text3DBox[ FormBox["1", TraditionalForm], {5, 1, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {5, 2, 1}], Text3DBox[ FormBox["4", TraditionalForm], {5, 2, 2}], Text3DBox[ FormBox["3", TraditionalForm], {5, 2, 3}], Text3DBox[ FormBox["4", TraditionalForm], {5, 2, 4}], Text3DBox[ FormBox["3", TraditionalForm], {5, 2, 5}]}, {Text3DBox[ FormBox["5", TraditionalForm], {5, 3, 1}], Text3DBox[ FormBox["6", TraditionalForm], {5, 3, 2}], Text3DBox[ FormBox["5", TraditionalForm], {5, 3, 3}], Text3DBox[ FormBox["6", TraditionalForm], {5, 3, 4}], Text3DBox[ FormBox["5", TraditionalForm], {5, 3, 5}]}, {Text3DBox[ FormBox["1", TraditionalForm], {5, 4, 1}], Text3DBox[ FormBox["2", TraditionalForm], {5, 4, 2}], Text3DBox[ FormBox["1", TraditionalForm], {5, 4, 3}], Text3DBox[ FormBox["2", TraditionalForm], {5, 4, 4}], Text3DBox[ FormBox["1", TraditionalForm], {5, 4, 5}]}, {Text3DBox[ FormBox["3", TraditionalForm], {5, 5, 1}], Text3DBox[ FormBox["4", TraditionalForm], {5, 5, 2}], Text3DBox[ FormBox["3", TraditionalForm], {5, 5, 3}], Text3DBox[ FormBox["4", TraditionalForm], {5, 5, 4}], Text3DBox[ FormBox["3", TraditionalForm], {5, 5, 5}]}}}, Boxed->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"Tile", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "i"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "20"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Trim", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Trim"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Trim[\*StyleBox[\\\"array\\\", \\\"TI\\\"]] trims the rows of \ \*StyleBox[\\\"array\\\", \\\"TI\\\"] so that they have the same \ length.\\nTrim[\*StyleBox[\\\"array\\\", \\\"TI\\\"], {\*StyleBox[\\\"level\\\ \", \\\"TI\\\"]}] trims the expressions on level \*StyleBox[\\\"level\\\", \\\ \"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501860-6152062"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"#", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"10", ",", "15"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{ "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{ "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{ "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{ "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trim", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{ "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{ "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{ "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{ "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trim", "[", RowBox[{"a", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"4", ",", "5"}], "]"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"a", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"4", ",", "5"}], "]"}]}], "]"}]], "Output"] }, Open ]], Cell[TextData[{ "In order to use ", StyleBox["Transpose", "Input"], ", all rows must be of the same length." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Transpose", "[", RowBox[{"Trim", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"Range", "[", "100", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#2", "+", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2", "^", "#1"}]}], "}"}]}], "]"}], "&"}], ")"}], "@@@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "13", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "17", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "21", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "25", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "29", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "33", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "37", ",", "73"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "41", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "45", ",", "89"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "49", ",", "97"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["UnpadLeft", "Input"], ", ", StyleBox["UnpadRight", "Input"], ", and ", StyleBox["Unpad", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "UnpadLeft"}]], "Input"], Cell[BoxData[ StyleBox["\<\"UnpadLeft[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] removes all \ zeros from the beginning of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nUnpadLeft[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] removes all elements matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] from the beginning of \ \*StyleBox[\\\"list\\\", \\\"TI\\\"].\\nUnpadLeft[\*StyleBox[\\\"array\\\", \ \\\"TI\\\"], \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] gives the smallest full \ array obtainable by removing elements matching \*StyleBox[\\\"pattern\\\", \\\ \"TI\\\"] from the beginning of each level of \*StyleBox[\\\"array\\\", \ \\\"TI\\\"].\\nUnpadLeft[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] unpads at \ level \*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501872-6671845"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "UnpadRight"}]], "Input"], Cell[BoxData[ StyleBox["\<\"UnpadRight[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] removes all \ zeros from the end of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nUnpadRight[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\ \"pattern\\\", \\\"TI\\\"]] removes all elements matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] from the end of \*StyleBox[\\\"list\\\ \", \\\"TI\\\"].\\nUnpadRight[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] gives the smallest full array \ obtainable by removing elements matching \*StyleBox[\\\"pattern\\\", \\\"TI\\\ \"] from the end of each level of \*StyleBox[\\\"array\\\", \ \\\"TI\\\"].\\nUnpadRight[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"]] \ unpads at level \*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3451501874-9938598"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnpadLeft", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnpadLeft", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "a", ",", "b", ",", "4", ",", "c", ",", "5", ",", "6"}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "4", ",", "c", ",", "5", ",", "6"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Unpad"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Unpad[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] removes all zeros \ from the beginning and end of \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nUnpad[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] removes all elements matching \ \*StyleBox[\\\"pattern\\\", \\\"TI\\\"] from the beginning and end of \ \*StyleBox[\\\"list\\\", \\\"TI\\\"].\\nUnpad[\*StyleBox[\\\"array\\\", \ \\\"TI\\\"], \*StyleBox[\\\"pattern\\\", \\\"TI\\\"]] gives the smallest full \ array obtainable by removing elements matching \*StyleBox[\\\"pattern\\\", \\\ \"TI\\\"] from the beginning and end of each level of \ \*StyleBox[\\\"array\\\", \\\"TI\\\"].\\nUnpad[\*StyleBox[\\\"array\\\", \ \\\"TI\\\"], \*StyleBox[\\\"pattern\\\", \\\"TI\\\"], \*StyleBox[\\\"n\\\", \ \\\"TI\\\"]] unpads at level \*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501877-6716571"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Unpad", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Unpad", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "a", ",", "b", ",", "4", ",", "c", ",", "5", ",", "6"}], "}"}], ",", "_Integer"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "4", ",", "c"}], "}"}]], "Output"] }, Open ]], Cell["Rule 106 has a lot of white space on the right:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{"106", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["2", "7"], "-", "1"}], ",", "All"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzlnMtVBDEMBC0yISVCIAFSIHRgZBb1eDnXoeqxft5bj3Y+QtL06/vH2/vL Wuvz+7Nq/UtZuKLw5E/DdR48WTX8/Njryaqhr/dz1dDn+7lq6J/7XDX00Z6r hv3UX/e9hjVu+0v3CKjfPOBxBpQwADUCUMYA9K3/vtewb3rrvtewn/rrvtew n/rrvtcw//23lQIudgHg2GvYNYBjr2HXAI69hl0DOPYaZvZrzIRrJn/GRLBm 7mPMg2o++o1pQHQBZB2BZpaAfOWgetQAjr2GedUL7wDZBTBeAdEFMJ4Acds3 Hn9MCAgvgJwPkAZgzAQ4AzBmApwBGDMBzgCMmQBnAMZMgDMAf6s0ACMDcAZg ZADOAMyqKCyGIDIAZwBmWZjVghAZgDMAsy6OSmGIDMAZgNkYYLUgxEyAMwBj JsAZgLIHYNTCnAEoewBGJcQZgGvdX0glEDET4AzAaAg5AzC7o6QSiGgIOQMw 28OgEIpoiToDMPvjnA6MmAlwBsBoGjAI2wBaDEE4B9BiCMI5gBZDEM4BtBiC cA6gxRCEcwAthiCcA1gpDOEfQIshCP8AWgxB+AfQYgjCP4AWQxD+AbAWhPAP gLUghH8AK4Uh/ANQJRDhHwBrQQj/AFgLQvgHwFoQwj8A1oIQ/gGwFgT7pGz6 B7BSGOxzkukfwEphCP8AVAlE+AegSiDCPwBVAhH+AaQQCvuETPoHgDow7PMR 6R9gJPwDjIR/gJHwDzAS/gFGwj/ASPgHGAn/ACNiB6FG7CDUiB2EGrGDUCN2 EGrEDkKN2EGoMXfGL8ylgAvxmwKN+E2BRvymQCN+U6CxZ8LmNwUaex5U9jTA 3BFo3OWgKnk5qNQdgcZ+BZg7Ag1+/F9ffX7F "], {{0, 0}, {256, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->250]], "Output"] }, Open ]], Cell["Get rid of the white space:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"UnpadRight", "[", RowBox[{"CellularAutomaton", "[", RowBox[{"106", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["2", "7"], "-", "1"}], ",", "All"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzF29FRxDAMhGEvndASJVwDtACdk7mLotXFvO7PHB7z5G+MYyRFfD6+vx4f a62f4/t3/f+l2Nex1vaTFBwLbsakQFqbMSl4rngbkwKt3ZgUrO2YFOzHpGBd h9/nSUEf/pV/EFT3wbUHIgQygRDB6wF4nycFMoEQwWvx93lSIBP0PCnocCAe Gpyr9h8CnycFz5jgNk8KZAIhgr6IfZ4UyATAlSi/BpErUX4JIReS/ApAroOR HaQzhVq1nz8gQNIVE9zmSUFvPHEKZnaA/BJGdoBswTj8CKBiAiRTKIHVDKg9 6JoBtQddM8DOAZUplMBqBtg5oDKFEvTInYMO1xmB3QTgfQDvAS7wYJkRCBd4 uM4IbG0yPhApsPCQjA9QgXCBhWdkfIAKLDQh4wNUYNkiGR+gAk9dGYFwgSfP jEC4wNN3RuA/MAKk6WAI7AMJrPMAEnT9ANuDq37AnQPqzUIJun7AnQPqzUIJ rP8AElj/ASSw/gNIIFxg/QeQQLigFyfvA/ocLGcAAus/gATWfwAJhAvgou7s P4AEcEFz9h9AAricOPsPIIH1H0AC4QK4iDP7DyABXMCY/QeQAC4fzP4DSED8 z8IUdP2AElj/ASSw/gNI0PUDStAjJeA6kUqAPgia9QNKIFwAltFOAdeJVAIw cT8FwgVgaHAK0D8KmvUDSsC9WSgBfCmjbxZKAF9I6JuFEsDXAZoplIB9FkUH SGIzhRLAW4BmCiX4A6I1P8U= "], {{0, 0}, {129, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->250]], "Output"] }, Open ]], Cell["Shear it and get rid of the white space on both sides:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Unpad", "[", RowBox[{"Shear", "[", RowBox[{"CellularAutomaton", "[", RowBox[{"106", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["2", "7"], "-", "1"}], ",", "All"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "50"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJx9lduxwjAMRC2q4JeWKIEGaIHSySREWe0DBsyOZq84sde6j9f7+bqttT7b 577+vSq8t49dK6z7t1krrNti1wrrwar6ByD6+BnVFfTx86or6ONLdQW9fm1Z n21Z77ttdAXdj066gu5HIV1BNzLp8zFZn2SsK+j+U9IVdEvSFTQmfnj6PetX 5snfmSd/Z577z+QgMyYHmTE5yF+mDuTCb/2hjiFgft8/+EMdQ8P8rn5l3uy/ 818Hovtv+wd/qEMqdf8Dv/WHOoaY+X3/4A91vADMP04B+McpAP84BeAfpwD8 co3mzKf+dArAX6YOM1/4rT/UYeYLv+8f/KEOM1/4XR1mvvBbv7vWc+YLv+8f /O76zpkv/NYf6vYazZkv/L5/8Lv4z/kv/PTPovk55TP/3J9uMfCLfc5/4ecu M//Kb/2hLlcR+H3/4A912Xrgd3WePMhv/e6xzORBft8/+B2+SQ7yW3+o2zZ+ c8ol5+rvXl8guQrc "], {{0, 0}, {24, 128}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, ImageSize->50]], "Output"] }, Open ]], Cell["Control the level at which the unpadding is done:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnpadLeft", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11", ",", "12"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a_", " ", ".."}], "}"}], ",", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11", ",", "12"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Unriffle", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Unriffle"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Unriffle[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives a list of \*StyleBox[\\\"n\\\", \ \\\"TI\\\"] lists whose Riffle gives \*StyleBox[\\\"list\\\", \ \\\"TI\\\"].\\nUnriffle[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] unriffles \ \*StyleBox[\\\"list\\\", \\\"TI\\\"] into two components.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501890-3242762"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Unriffle", "[", RowBox[{"{", RowBox[{ "1", ",", "10", ",", "2", ",", "9", ",", "3", ",", "8", ",", "4", ",", "7", ",", "5", ",", "6", ",", "6", ",", "5", ",", "7", ",", "4", ",", "8", ",", "3", ",", "9", ",", "2", ",", "10", ",", "1"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ "10", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Unriffle", "[", RowBox[{ RowBox[{"Range", "[", "20", "]"}], ",", "7"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "8", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "10", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "11", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "13", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "14"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["Unriffle", "Input"], " is the inverse of ", StyleBox["Riffle", "Input"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Riffle", "[", RowBox[{"Unriffle", "[", RowBox[{ RowBox[{"Range", "[", "20", "]"}], ",", "7"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["WrappedArrayPlot", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "WrappedArrayPlot"}]], "Input"], Cell[BoxData[ StyleBox["\<\"WrappedArrayPlot[\*StyleBox[\\\"array\\\", \\\"TI\\\"], \ \*StyleBox[\\\"n\\\", \\\"TI\\\"]] generates a plot of the values in an array \ after wrapping into at most \*StyleBox[\\\"n\\\", \\\"TI\\\"] \ super\[Hyphen]columns.\\nWrappedArrayPlot[\*StyleBox[\\\"array\\\", \ \\\"TI\\\"], \*StyleBox[\\\"n\\\", \\\"TI\\\"], \*StyleBox[\\\"spacing\\\", \ \\\"TI\\\"]] leaves \*StyleBox[\\\"spacing\\\", \\\"TI\\\"] white cells \ between successive super\[Hyphen]columns.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3451501896-4978945"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"39780", ",", "2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", SuperscriptBox["2", "11"]}], "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzNXGGW9CiOLO2vvcZcaY8wF9gz7U13OsFYCEkII5vg9cu0MZb1RYVDgape /+vf//s///6vv78/+u+/v//75/s//yGPvz/gBH/4ASP4ww4VwQIewSJYwKtH iAlS++kiI0jYHCxf2AjWI8QEqf6IsRFE1UEmgZAcZBJYT4ES5OAh6qAAD1AH Wf2oE4AIUoPxmsNJkNePcgqJ4O+onUIieBMRFsGbiLgIwurgdUioOlgPIP2g RLDO4SQoEUTnILIOEqYfFGAh62A9A+ZgPcdGkNA5eM3hJCjBQucgtA6i+0HU /uBQ6rARhNZBdD+I2h8cLD82gqg6CNwfZLj9TuscRoISNwLTQYlbncRAUO2r 1ksICKp9VX71dIJ6X7VcwEFQ4tYuoCBIN25lCsgPir7qNQmkg7x+tCkgPyjq xzVJEDqo1I82//s+jKBaP+qVe8mhBJ36AdEf9OsHQn/QrB/89DSCWv2g/vQs giTrrlhxnIPlqJ3KTM5zsB78DTrYFiEgSOJ9HtYBIDjo4H0FBUGpg20JCoIk OHjeD6q/l+uvYuhgX3e7qyg6yOquuArCQVL8IEB/UP29nHIVA8FRB0H8YHc+ vsU4HCwTva8B0sF7rl3446coCA6+BkYH+eS4TwFDUNmnoCEI0x+0ECT5PsMh +DtoSyAR7N9nSATZ+wyLIKwOsiNsDpZvbATrOlwE0TmIrIOE6QflNqCuA0UQ XAfbKTKChM7Bax0ugugchNZBdD8I1R/kU7LUYSMIrYPofhCvP1inpOXHRhBV B4H7g8xH/87qOhwEieFGkDr4u9A+8HSwzv/h9gfrFaI/vg4MQWocBNTB+2pb AongTURYBEH7g/wiph/klwlVB+tFTD/IL9/rcBFE5yCyDhKoHxRL6jpQBMF1 sK7BRpDQOXitw0UQnYPQOojuB0H7g+Iqsg6C9gfHq+AI1iNcBNE5iKqDyP3B dgG1P8jBQ9RBAR6gDrL6UScAEYTuD7L6UU4hEfwdtVNIBGH7g/LXsXUOFEFY HbwOCVUH6wGkH5QI1jlcBNE5iKyDhOkHxRyyDtYzYA7Wc2wECZ2D1xwugugc hNZBdD+I2h8cSh02gtA6iO4HUfuDg+XHRhBVB4H7gwy332mdw0BQ4kZgOihx q5MYCKp91XoJAUG1r8rXASCo4FYu4CAocWsXUBCkG7cyBeQHRV/1mgTSQV4/ 2hSQHxT145okCB1U6ke9iOEH1fpRL9/rvk/Qrrt8xTkdtOsuX3NIByd1l688 ooOTuisW1zs+RtCtu2Lt9xyc1N1h9RkEya67w/IzCJZHs8lRB/kd3yNo190h uTNvsVl39cVfJRipu9rirxKM1F1t8ScIOvWjr7td0t/poF8/SOHl1/1Bs37w 0wFB+oyDZv2g/nR8cb5EkCJ1t7/jWw7WFGng253RKN4fIzivu1dyXC8/RXBS d9viP376MYJG3W3JDHr5PYJa3b2vSr08gCDpHNTwPYRgebS6kJT3+XsEHQ6W 7+59PvAWuxysKRL/iX+QITu2dHAocEd0sKRIMwTZ+/w5gr4O8qMjOljPQwie 0ME2EUGQTnGwPlpdOBwdQTDIwSM62E4jb/EJDjp+UPxDzuig3N8NC7uzesfH CIZ08Do9g2BEB9vpCQQpxMG27gCC5dHqQu3e7xEMcvDIvjjoB7vFXyFo9QdF Rvfhxzpo9wf5wu6OevRuggpuER38zA+quAX2JJ/4QbVPUC9FEKSXOSjrrtjv 6rfwe6+jFxE0cAty8G0d1OruX7sQeYvf52BNiiUY8IPyvX8ZwZJil7Svg/K9 fxvBnm9j/0re82F/UK27vh8sKV4fb+qgVXdl/0q/9f3+oF13fT/YlojXKj05 s+7+KbxUQnR6mZygXz9I46WaYgv1AoJ+3XV0kAd5zQ+a9YP608lTX/SD4j1V +Obp4L3kLR0U9UPl25yDTC/fQtCvuyEE6UUO1kOHbxEEa7wXETT4FuTgizrI UlX4FtBBppcvI0iCb64f7OO8qoMi1f5qRAfbktcRFHyb+cE+0gccFHzT6owX 61UESau7cz/YB3sVwfIEGhHs56bxXkRw5FvID7KbX0dw9McxHeSLX0WQBl8T 08G3/aBMkThuAR1ki99HcPA1ER38wg/Kx/0O+tNJlI84qPmaEIL0GQc1XxMz rF8iSMP7PI3yLQdriteSyFv8LQevo6kOSr38FEF/n3IHYHr5OYKeDqp6+T2C pg6qfZ0DCJLJQVUvDyBYHm3dO/if7xF0OFi+Or088Ba7HKwpXqcfI0i+H1T1 8lsES4o0Q5Dp5ecI+jrI7ziig+00gOAJHWwzEQTpFAfro917z/hBfh5B8BQH AzrI9PJjBH0/qOrlt47a9YNqX+dzBEM6eN12BsGIDrbbTiBIIQ62dQcQLI+O 3XsEwSAHT+gg2+/O7/1aB+V+1733gB+U+133Xrb4CwSpxy2igx/7wZLi9RHQ QaaXHyEocAshSN9xsD3zvhZBsB59hCDduAU5+KEOshSvJZG3+FsOXg+e6qDU y08RvIloIij18nMEDR1U6szHOnhdJlUH1TpzhoPlmyfY83LQywMIlkd3d5h1 5giCgoMDL7/vDw7JDAhqdeaEDpLmBxVecr38FsGSCY0I9nNMLz9HcNRBhZdc L79HcHxPx/p8wA/2i3pfM/CS6+UBBMujieMm6/MZP9gvs+tHr5eHEJS+RuHg IR1sy6z6wU9PI+jvU47pYF3W1w/FI57TwbrwOmi3yTvPc/A6MvcpEAhO9ykA CI71uV1BQdDep4AgSINHxNDB/kg6nHqEgaC9T8FA0N6nnEeQFD/I9ynnESyZ 0IhgPQJAcNRBED8oTuVbjMPBMmPsU0AQ/E21AH/8FAVBa58ChKC6TwFDUNmn oCE4vs9gCJJ8n+EQ/B20UJAI9u8zJILsfYZFEFYH2RE2B8s3NoI1Hi6C6BxE 1kHC9IPqPgUWQXAdbKfICBI6B694uAiicxBaB9H9IFR/UJ1D94No/cFxDt0P 4vUH5Ry6H4TsD/Y+GtcPIvcHieFGkDr4m28feDp4XcDtD7YLf+wMDUFqHATU wftiCwWJ4E1EWARvIuIiCKuD7Co2B8s3NoI1Hi6C6BxE1kEC9YNiRY0HiiC4 DrYlyAgSOgeveLgIonMQWgfR/SBof1BEQdZB0P7gGAUcwXqEiyA6B1F1ELk/ 2ALcLS4sBDl4iDoowAPUQVY/6gQggndb5poDQ5AaB/F0kNWPdgqJ4E1EWARv IuIiCKuD7Co2B8s3NoJ1DhdBdA4i6yBh+kFxL7IOXkuwEUTWwTaBjWCdw0UQ nYPQOojuB1H7g0Opw0YQWgfR/SBqf3Cw/NgIouogcH+Q4fY7rXMYCErcrtxQ EJS4tSUICKp91XoJAUG1r8rjASCo4HatQUFQ4tYuoCBIN271Ko4Oir7qfRVG B3n94FdRdFDUD3YVgINK/WBXz3NQrR/t6hXvDIKk1t07yHk/WFK8Pkjh4Fkd rGuV+sFPTyOo1Q/qT88iSLLuikjHOVjuaLfJO89zsN7wN+hgu4aAIPViOMYD QHDQwfsKCoJSB1soFARJcBDAD/JbroM+CoYOCl/Do6DooPA1LAoIB0nxg3yf ch7BkgmNCNYjAARHHQTxg91941uMw8FyY+9rgHTwvrcF+OOnKAgOvgZGB/nN 4z4FDEFln4KG4Pg+gyFI8n2GQ/B30EJBIti/z5AIsvcZFkFYHWRH2Bws39gI 1ni4CKJzEFkHCdMPilyQdfA6xUYQWQfbDDaCNR4ugugchNZBdD8I1R/kt8pS h40gtA6i+0G8/mC9VVp+bARRdRC4P8h89O+sxsNBkBhuBKmDvwDtA08H6/1/ uP3BGoHoj52hIUiNg4A6eEdpoSARvIkIiyBof5AHwfSDPAyh6mANgukHeZg7 Hi6C6BxE1kEC9YMiVI0HiiC4DtZY2AgSOgeveLgIonMQWgfR/SBof1BEQdZB 0P7gGAUcwXqEiyA6B1F1ELk/2AKg9gc5eIg6KMAD1EFWP+oEIILQ/UFWP8op JIK/o3YKiSBsf1D+OrbOgSIIq4PXIaHqYD2A9IMSwTqHiyA6B5F1kDD9oLgX WQfrGTAH6zk2goTOwWsOF0F0DkLrILofRO0PDqUOG0FoHUT3g6j9wcHyYyOI qoPA/UGG2++0zmEgKHEjMB2UuNVJDATVvmq9hICg2lflVwEQVHArF3AQlLi1 CygI0o1bmQLyg6Kvek0C6SCvH20KyA+K+nFNEoQOKvWjzf++DyOo1o965V5y CEGnftzScxBBv37QzcuDCBr1g5+eRlCrH9SfnkWQZN0VK45zsBy1U3nneQ7W g79BB9siBARJvM/DOgAEBx28r6AgKHWwLUFBkAQHz/tBieDvoL+KoYN93e2u ouggq7viKggHSfGDvM6cR7BkQiOC9QgAwVEHQfxgdz6+xTgcLBO9rwHSQZbi deGPn6IgOPgaGB3kk+M+BQxBZZ+ChuD4PoMhSPJ9hkPwd9CWQCLYv8+QCLL3 GRZBWB1kR9gcLN/YCNZ1uAiicxBZBwnTD8ptQF0HiiC4DrZTZAQJnYPXOlwE 0TkIrYPofhCqP8inZKnDRhBaB9H9IF5/8Eqmu4rOQVQdBO4PMh/9O6vrcBAk hhtB6uDvQvvA08E6/4fbH6xXiP74OjAEqXEQUAfvq20JJII3EWERvImIiyCs Dl6XCVUH60VMP8gv3+twEUTnILIOEqgfFEvqOlAEwXWwrsFGkNA5eK3DRRCd g9A6iO4HQfuD4iqyDoL2B8er4AjWI1wE0TmIqoPI/cF24W5xYSHIwUPUQQEe oA6y+lEnABG82zLXHBiC1DiIp4OsfrRTSARvIsIieBMRF0FYHbwOCVUH6wGk H5QI1jlcBNE5iKyDhOkHxRyyDtYzYA7Wc2wECZ2D1xwugugchNZBdD+I2h8c Sh02gtA6iO4HUfuDg+XHRhBVB4H7gwy332mdw0BQ4nblhoKgxK1OYiCo9lXr JQQE1b4qXweAoIJbTQ4GQYlbu4CCIN241dxwdFD0Va9JIB3k9aNNAflBUT+u SYLQQaV+1IsYflCtH/Xyve57BO26y1ec00G77vI1h3RwUnf5yiM6OKm7YnG9 42ME3bor1n7PwUndHVafQZDsujssP4NgeTSbHHWQ3/E9gnbdHZI78xabdVdf /BWCkbqrLf4KwUjd1RZ/gqBTP/q620X5Tgf9+kEKL5lefoRgsO7KKF8iGKm7 SpTvEKRI3e3v+JaDNUUa+HZnNIr3xwjO6+6VHNfLTxGc1N22+I+ffoygUXdb MoNefo+gVnfvq1IvDyBIOgc1fA8hWB6t3kzK+/w9gg4Hy3f3Ph94i10O1hSJ /8STM/TnTB0cCtwRHSwp0gxB9j5/jqCvg/zoiA7W8xCCJ3SwTUQQpFMcrI9W bx6OjiAY5OARHWynkbf4BAcdPyj+IWd0UO7vhoXdWb3jYwRDOnidnkEwooPt 9ASCFOJgW3cAwfJo9Wbt3u8RDHLwhA6y/a5+83DbhwjK/a62TNPLrxCU+139 5u6OevQuggpuER38zA+quAX2JJ/4QbVPUC9FEKSXOSjrbo9bBMF69CKCBm5B Dr6tg1rd/WsXIm/x+xysSbEEA35QvvcvI1hS7NL3dVC+928j2PPtb+ClvPvD /qBad30/WFK8Pt7UQavu/im8HO4X7/0bCNp11/eDbYl4rTKT8+vun8JLJU6n l3kJRuqu7wdZikTsjUpKLlZ3HR3swuXq4FLdtXWQB0zWwZW66+ngvSRXB9fq 7pyDTC8TEaR43Q0hSNkcrCHZpMO3CII1ch6C0bob5GCmDi7V3YAOMr3cR3Cp 7rp+sA+bpYNLdVfq5SRF2kXQqR9G3Z35QRF9E0G/fmh1V9NLL/4+gqt1d+4H +wckILhUd1W9nD1jE0FaqrshP8huzkCwpHid+nVX1Us3fAqCsbpr6aWZ3L4O sn/cvO7aemlFTtHBLqDFLYFvRAdz/KBA0NY3Xy/NyLkcLN8Wgr5empGTESwh rce5emlGTkXQ4WBNytRLNXI2B219C+ilEjlTB8nVN/EDm+ig1MscBEuKNEPQ 18s7KNPLNAR9HeyebnJQ1cs8BH0dZEfWOtVfJiJIIQ4663R/mYhgCWk8WBzZ /5DB/+QhGOSgrYOqXia+xUEOmutUf5mEoKtv3TM8HVT1MsdR+/oW1EvVX6Yh GNLB6zSAYK4OTva7Qb1U/WUighTioLNO95eJCJaQ3oN5il488bpsZNgdBTk4 1cFeLxPf4iAHAzrI9HIfwfl+t3twSAeJxdtFMLLfDeql6i+fIqjgFtHBmR8U tz1HUMVtzkFfL1V/+QBB1ffWS0H5CCFIDzmo+l4W0nuwr5eqv3yEoIFbkIMB Hbzve4qghltkXxz0g93iRwhSzyN/v9v56JgO7vhBlUdzPxjQS9VfPkWw5xH3 b/o9Eb3U/eXDt1jwyPeDJcXrI6CDjOdrCFo84v7NvnXaH1T1ciVBm0e+H2xL fL1U/WUYQad+iPfUDjHRS91fBhP06wdpvFRTJGed6i8XEPR5FPr9h6+Xur9c QdDnka2DfQq+DkqeLyFILo88HRQpjOtsf7mEYEmRSOfRnIOmXtr+chVBn0ch BOW6ib9cRnDCo1mYYd3EXz5C0OeRG0TRy4m/fIagzyMvzLBu4i8fIkguj9w4 w7qJv3yIYAnZXY3oYFsiERT3PvCDgxXyeeRGGu91/OXDt3jOIy/WiL7pL9cR pCCP3GB9PXL95TqC5U4aEeznZikSx03y95EfFPnOeDQLF/WXzxCM8GgW0Kkf jOcPEaQ5j2bhrPrBTzcQLDGIHB7NApJaP8bwTxGc8WgWrn/vbX+5geCER7OA 10ELP5Boj4MBHrnhOiEx+JuBoM8jLyA/Mvm7jyC5PHLC/fEjx19uI1hSbE8K JigQtP1lBoI+j6xwf+LI8pcpCPo8MgIOR7Iy1aMkBB/qYF93u6cl6SA72uCg 7S8TEaRnHLxus/xlIoIlZDjD7qy/V7x+DwKOYeipDt55SASzOfhUB+8A/dMy dZA0Hk3CDXXD8Jc5CJYn0HME7wDCX6Yh+FgHxwCb/cFucjjdQVD1l4kI0h4H tXqUjGAJGc7QmBve5zwEEzhYvrv3OfEtTuFgTZH4T/xpQHbvhh/U5vj7nIKg EK9YQG8u2w9y/xYNN63tmTrI/FswwQCCqTq45weHOf4+JyJYQoYz9Oay/SD3 b9FwcwSzOZiog8xf7iMo/Vs03KQypemg9G/BBCcI3vF2EKQet0QdvE53ESwp Xh+ZOnjH20RQ4JaKIO1zsF7huGUiWJ+7iSDduCVzMEEHWYrXksy3OIeDV6xc HUzyg/xyqg4ycU1DMFcHk/wgv0wMxlhAZ475y0QEKZWDLV4igiVkOEMvSo4f 5Bdz/SD3l4lvcTIHM3WQEv2g9Jc5CJYUKQFB6S/TEEzQQVL9ZR6C+zpYUrw+ MnXwjr6JoOIvExEsIYMj6i8zEUzgYLmW1h9Uluwj+Lt4x0tCMMUPdldzdVCI Vyzg7GqqDqb4QXE1UweZfwsmGPgHp+pgih8cryYjWEIGR9RfZiKYzMFMHWT+ LZhg7KVLQVD6t2i4qL/cRVD6t2CCEftWw28g2NePRB28lmwiKOtHIgfveJsI Kv4tGi7qL3cRlP4tmODCczcRJOnfouGi/nIbwZIicUrGAoYemYJg79+i4aL+ MgVB5t+CCU4cdZIf5Ajm6mCOHxybPakIJulgl2oqgpTNwRoynGHoaakIJnMw UweZfwsmGHmLEzlIiX5Q+sscBEuKlICg9JdpCGbooOov8xDc1kHVXyYiSNsc VP1lIoIlZDhDI57wl5kIJnCwfGX1B+VbnMLBmmKLl4Rgjh9U/WWOo07xg6q/ TEMwRwf51Uwd1N6/aUDvGdl+UL5/kXBzd5TNwRoynKH3jGw/yP1bNNwcwWwO Juog85f7CEr/Fg03qUxpOij9WzDBCYJ3vKcIKrgl6uC15DmCKm6JHLzjPUBQ 9b31UiaC9JCDqu9lIcMZOs/o5h4gaOCWzMGnOqj63nYh8y1+zsGaFEsw2Q9y nj9EsKTYhU7UQcbzpwj2fPsbeDkPN63tT3VQrbvJfpDxfA1Bq+5y/xYNN0WQ 1jlo191kP9gdzUPO6y73b9H85ghGORipu8l+kP28JgjG626aDsqfl5vgUt3N 0UH585oiaOCm8G1LB22ezxEM190NDto8DyBIg+aZfHuE4ITnAQTL0i5pk2/r CE54HkEwWncfcnDC88BbHKy7D3VwwnMbwaW6u+MHJzy3Elyqu5JHoQyHVFWe G4q+Wnd3/OCE56ai3/+med3VeDTNUCRj8NysiWt1V+PlJD+Gm8tz01Ws1F2V R7MMYzz3fNlC3dV4OU0xxnPfl7XTUZTHt3iJg3d4JR7D13e2kbpr8SiSYITn LoKBumvzKJThlOdTBB19E/gu6eCdxYzncwRtffP1MpwikcPzAIJkcWvEdx3B Oc8DCJalamya8CiWocfzCIIOB2tSJo9C+Vk8j3LQ1reAXoYyJPlzEJnbDyZX 3/440k90sIti+UsfwXInzRD0eTTNkD/oziCig9TWTBF8qIMGzwN+UOQbQPCh Dk78ZQBBCnHQWTdPceBvxA/KGGqGw9GjBAf+itfPeXBbHkHwGQfvPCSCUQ4G dHCil6EMx7c4wkFX37p7H+tgF0A8cu6ofX2L6mU4xfGRcwRDOnid7iA41KOI Dmr7u27hcLqToOovAwhSiIPOunh+8ucVRLAsVSOOUxsJqv4ygmCQgzs62MWb 9gdHExB7i1M4WFMk/hPXF0o90pbF9DKeX1fgJjoo9UiP2N1hrotnyI90HVRw i+jghh/U4vH32eKR1CM9Yhc6j4PsfTZ5NOiRFi+ml/H8pLx1CEoeCT3SI46h NxJU/aXHo9l+VyKYzEGpgxqPmB7pEfm9iTrI/KXPI+EvhngxvYznx+4edVDl 0dwPRvQynmF3VrPyeDT6Cxkyopfx/KTkKW+x4NFc3yJ6Gc9wOP3zeST9hRp0 qpfx/OTdF4I2jwL6FtDLeIbjFLk8+lN4qcSd6GU8P/kjbpHbh+RRUN8mehnP cMi3/dNNHoX0zdfLeH5//JDHc3kU0bdkP6j4S4dHAX2b6mUwP1nq+n5Nn3p3 YwjBRB1U/aXHoxCCgXWz/PqqJuO5PIogGFgXjaL7AotHQQ5m6qAaz+JRRN+S /aDhC5Sfe1zf0nTQ9pfKz31pv5ujg54vUH7uK/q2rYPk+gKVR2v73W0OlhSv DyXe+HNf1LdtBH1fQMPPfX2/u53gxF8O9W9F3xI4WJMyfcGQ/4q+7esgS9GJ Z/2+Yprctg524bx4Iv+Avi3pZSxDL57IP6JvKX6wy8CNJ/IP7Ely/GCfgR1v zD+EYGRdOD8/npJ/BMH5uvDw48n8gxxM00HDF8jHlRSv1ZG3OJmDdjz2Awvo 25JeLqToxRPbv7LeyS+sl4spWvE6BD09WtfLpQQDHPT1SNaPRA768QSCZNfE Zb1cTTGGYFmqLVvVy/URQtDhYA0S1su15IIcNPVI1I9MHfTjdZ1O15et6OVy ciEdLCnSDMGAXi7nF9LB6zSAYK4OBvygXK0ui+nlk/zceAJBCnHQW/ckQzfe kGAMQWvd+pj4S4lgkIOZOhj1g/fTI29xMgdDOjjZnwb1cjm5v0k8IR/l+Xoo fmqtW85v5i/HH10AwQwdDPvLgfwhBLd1MOwvR/kIIWivi2cocAsiWJZqy2J6 Gc9v/HmFEAxycF8Hw/5yMAGxtziFgzVFN15XF2I6mOMHw/6yxy2ggzn9wRV/ GdOjqF7GM+SpTuIF9GjcXKUiOIkX0aOoXsYzFKm68eZ6NG7wcxGcxpvqUVQv 4xl2qUb6km115C1O5mAk3kSPonoZz5Adx+LN/WBif/CBv7T1SMEtUQevR8QQ 1PRIxS2Rg9F4qh45vjcVwVA8RY9835uJYCCeqkem703mYCieokem783UwYV4 ox4pvJz5t3CGPLlwPKFHat1N9oNr/lLqkcLLiH8LPYkfxeMpHJT8SPaDy/5S vKcDP0L+LZKhOFqIJ95TyY9kP/jAX4r39E/hYKYOPojn1o+wf5s8on+Ll+KN 76n416Xp4FN/adUP6k+3EXzqL+V7qvBjSwf3/WX/Xqn82ODgvr/sCGzy4xGC Sf5SlKFyu7LsUX4J/nKUAHOfsp6hgdtDDgb2KYv5GfrwQAe7I2efsprhEO+J vxwKOfUBH+tgkr8crZC/T1nKcIj3xF8OZnJA8KEOJvnLbkMT2qdEo2p194m/ FDuu9tEFXEQw01+OW8LZPiUQ0Ky7T/xln2BknzLNL9Vfjm2J2T5lGtCvuxs6 yGLQAMUSgpn+Um3suDyaBqxZmHX3sQ72czaPJuG693TfXxoI+jzyA95RUvyl heBD/8b+wTn+0kSQXB55AXmUBH9pIlhSbE8Kh+sQ3PeXHoI+j8yAIsquv3QR XPdvEsH+3gf+corgQx006u6WH9Tmlv2bfIu3/WUAQXrGweu2XX8ZQLCEjIYT 1oBGBFfihRB8xsErwKa/jLzFDzl4B+ivZuogaTyaBZQTe/5ygmB5Aj1H8A7w zF/OEXysg2OAzf6gPbfDwT7AX3/6NKC9TwkF1OM99ZcRBEvIaDgr3jN/GUIw gYM1qe59fh5wFNsMBEuKq/FmCG74QS3eA385cdQ7flB7RrYffODfsv1lAMEc HWRHuRwsX5kIrsWLIFhCRsPNEVyJF0IwmYOZOrju3yJvcRIHH/q3bH9pIvjQ v00QXI6nB+z/nYk6eJ3uIlhSvD4ydXA5noWg+HemIrgWz0TwoX+LILgSz0aQ 7n9nMgcTdPC+2OJnvsU5HLyu5upgkh/srybqYFJ/UFzN1MEkPyiuJu5Jcvzg eDUVwbV4EQRLyGi4OYIr8UIIJnMwUwfX/VvkLU7kICX6wcz+oEyREhDM7A+O S/YQpB1/GUBwXwd/F9pHpg7e0TcRfO4vIwiWkNFwuf4yhGACB8ultP6gXJHB wXJ1Od4MwRQ/2IXL1cGk/mD/tFQdTPGD4mmZOpjUHxRPy+Vg+cpEcC1eLGAu givxgj+SXASzOZiog+v+0i1NWf3B/nqWDmb2B8WSlXiWwUztD47Rd/8CU+h9 IgeX47kWPas/qCxKQPChf4sZ4AwE6aF/y/aX/kZ73b/FNmFJCD7yb9n+MtCq SNTBrP7g0KpIRDBNB9nVxD1Jkh/sEaRUDq7GiyBYQkbD5frLEILJHMzUwXX/ FmvKpyFIiX4wsT8oks7RwdT+oEhwm4M7/jKA4LYO7vjLCIK0zcEdfxlBsISM hsv1lyEEEzhYk3rgLyNvcQoHa4qr8WYI5vjBHX85cdQpfnDHX84RzNFB/rRM HczpD+74ywiClMrB1XgRBEvIaLg5givxQggmczBTB3P6gzv+0kEwsT+44y9N BBP7gzv+UrFWA26JOng94jmCKm6JHFyO1xPYxC0VwbV4sgyV268Ld5hMBFfi KRIw4pbMwac6aPreTB1cjqeUIf6vS+oP7vjLsZB3/7pkP7jXH1TqZFJ/cMdf jmZyQDBRBx/3B626+8C/ZftL4S8kP5L94Lq/LGvNuvvAv2X7y5ri9SH5kewH 1/1lu8+su2k6+NBf3hHMupujgw/9JcvCrLtbOrjtL3mKZPBjg4Pb/rKPZfLj EYI5/lKENvmxjmCOv5ShVX485GCOv5ShFX481MEcf6mE7v51O34wx19qoUWp e6iDOf5yCC34seMHc/ylCC34se7fJnV33Q/20Qd+PPSDif5ySJFGBPu5WX5u 3X3kB0X8EcEoZ+Z194G/HB8yvsVBzkTq7kM/2D+n1/uYbsXr7oYOshjk8cjI L1x3n+pg97hV/7ZSdx/roHhceUx36tywUnc3OajpfQhBsS7JX9qPW/Fv63V3 H0FyeTTeMqxL8pf240qKZPBofGS47u7qYPcDC/i3pbq75Qd5GH7k69ZS3V33 l/YzWUCTM65eJvlLI8PuyOKMXz9y/KWR3584MhFcrbvbfrALw49MBJfq7rq/ NPLrEXQ4WB8Wrrv7fpA/mFQedU+/jtqpX3eX/KWXH/83O7oV0stH/nKaYf8E miEYqLtL/nKa3584DSDorHvgL6cZDqcBBG19W/aX0/wGqkcQNNc98JfTDMcp 68EyVTPeir+c5id/xDEEHQ7WpEy9XM5wiB95i10O1hS9eAv5/fHDgA6Sq29r /jKWIQ8d0cG2ZPIPyfaDE/8W1Muwv1zIsAsd4GC7LYBgqg7O/WA/EUHQjreQ 4RjafTBP0Ys30cvoGEtYDMEgBzN10Pdvo6mIvcVJHAz4t6Behv3lQoaDBEbk w1oX9ZdLKYb8W1Avw/5yMcXrI6CDk/1uVC/XEgz4t6Behv3laob83xkT4BiC 5rrVMfVvQb0M+8snKV7xYyYg9hbncPCKNdXBuV6G/eWjDGc6GNnvRvXySX6W vim4RXQwyQ/y2MRglJn/jtpHQAcnevkkP0XfnD5BCEFz3bMM26O7x5m4RRA0 1z3JT9G3gUczvQz7y0cZDrql8cjXy6i/fJjioFsKj3y9DPvLxynSiGA/5+tl 1F8+TlDhoODRdL+b3B8cMhzfYsGjub5F9HIjxf49jf1eToQI+Mu9FIkcHgX0 LaCXWwk69cPQyzHGzF9uZujxKKhvE73cy8+qH/x0hszEX25mSBMeRfQt2w/y yP17qvAooG9Z/UE99nVwP0lZEkDwDR3sCpzDoxCCgXVPhrDt5THKsmCUdxE0 eBTk4Is6yI7cfYof5UUd7I6cfYob6FUd7I+kw+nn7EjBdWtjbLX5+xQ/1Adv 8Xyf4od6EUHSeLSob+8iWJ5AI4L93CRcSlI8oEhwvk/xY72NYGSfYkd6nYNl ZrJPMcO8roMsRRokMGK35use5ack6O5TjDAf6KB43O+gP3WCfOAHxdzafvcT PyjmVva76f1BLfQ4t7Df/cQPKnPifXaCfOAHtbnIfve9/uAV35ub69uL/cE7 vjk32e+u6+WjDL05V99k/TjDwfJtIbiql48y9OZcfTN/L5A5Igg6HKxJhfXy UYbenKtvon6c0EHy9W1JL59nOJsz9e1PIG2t2xpTBH0d5Hcc0cF2GkDwhA62 mQiC9rqtEUCwPFpbFtPLrRFBMMjBIzrYnh55i09w0Ne3qF5uZujM+ftdKUfW uq0xRTCkg9dtZxCM6GC77QSCFOKgt25rBBAsj9aWxfRya0QQDHLwyL446AfZ 4vz8LAQD+92oXm5mqM8F9rtye2qt28xPxya0343q5WaGxnz7COjgx/3B68J0 vxvVy61hJRjY744b/C8RpBuPIAc/1MH7IlFIBz/uD3ZXpzp4oj/YX/V18ER/ cEzB/DuGQ/1BcVXhlorbGQ6Wb/5gp696CMHyaJ6fjdsRBAW3Bl5+3x8ckhkQ 1HA7oYOk6ZvCy6/7gzJFGhHs53y93BpTBEd9U3j5dX9QWTImMyB4Qgfbqv49 Hfj2dX9QTZE4bpJvZ/ygWOfU3a/7g9Y6u+6e8oNinVd3D+ogW+fW3WM62K1z 6u45HezX2XX3PAevI5NvEAhO9ikpSXXPfYCgwTcQDgb2KZnjIYI0eEQMHeyP pMPp55LGUwRn+5TMDFfXBfcpafmtIkha3T3vB8U6wbdD/UFnXWCfkjWeIRjZ p+SMhwjS4GuAdPCeKvOdBAIhONunZI0NBCf7lJyxiaC/T0kZuwj6+5T9sY0g ufuUhLGN4O+gnEFy8DpC1MHoPmVrpCEIq4PsCJuD5Rsbwd9BQkriGXkIonMQ WQcJ0w/6+5SkkYYguA62U2QECZ2DZWozHeUZeQiicxBaB9H9IFR/UJ1D94No /cFxDt0P4vUH5Ry6H4TsDwofDauDyP1B6nED1MHffPvA08HrAm5/sF24r+Eh SDdumBwsF8sKSA5eVyF1sL8KqYP8KqgOsqvYHCzf2Aj+DjbTUSLnIYjOQWQd JFA/KFa0j8yRhiC4DrYlyAgSOgfLso1UjOfmIYjOQWgdRPeDoP3B7jK2DoL2 B7vL5Qsbwd/Rbj526K116H4QtD94X7kkEBFB6P5gXz/wdFDWDzwODvUDEUHo /qCoH5gcLEftFBLBm4iwCKL2BzmCsDrIrmJzsHxjI/g7yMjJeMj6OoEgOgeR dZAw/aBIGlkHryXYCCLrYJvARvA3t5tP5CHhdcOPGBtBaB1E94Oo/cGh1GEj CK2D6H4QtT84WH5sBFF1ELg/KHDD0kEFNygdVHFD4aDTV4VA0O+rYiBo4AbC QbOvCqODSt2F6g+qdRfKDyp1F6o/qNZdFD9o1V2U/qBdd8/7QXLrLkJ/8Le2 fUi+nfeD12Lc//9gW2zW3bM6eGdh1t3DOnjfUJMZ0TrPwesOyP//YH+HyTcM BA2+gXDQrLsAOtjdgfb/H1TukHarn0saTxEUfAPwg0MyA4IoOkha3QXwg+Ku 9lGDIPhBcRva/39QuW3cNOEgSIOvAdLB+9Zyv7VPyRnPERx8DYwO9vfa+5Sc sYmgv09JGbsIovQHvXsx+oPuvfY+ZXtkIOjvU3ZHCoIA/UH/XoT+oH8vmB8c 7kXoD/r3wvlBcS9Kf9C+F9EPinvBdfB31j4yRxqC4DrYTpERJHQOlqmNVIxn 5CGIzkFoHUT3g1D9QfVedD+I1h8c70X3g3j9QXkvuh+E7A8KHw2rg8j9Qepx A9TB3/3tA08HrwC4/cEW4I6BhyDduGFysAQpkSA5eEWB1ME+CqQO8iigOsii YHOwfGMj+DvIiNZHzkMQnYPIOkigflBEah+ZIw1BcB1soZARJHQOlnCp0SgX QXQOQusguh8E7Q92YbB1ELQ/2IUpX9gI/o4SohmhN8MQtA6C9gfvCKj9wXI/ cH8Q/e8HZf3A4+BQPxARhO4PivqBycFy1E4hEYTtD8pfx/4OElKyHvLkZh4F VAdZFGwOlm9sBH8Hu/k4D3lycxcFnYPIOkiYflD+eV77yBxpCILrYAuFjCCh c7DM7eQSfcjCzUMsZAShdRDdD6L2B4dSh40gtA6i+0HU/uBg+bERRNVB4P6g wA1LBxXcoHRQxQ2Fg05fFQJBv6+KgaCBGwgHzb4qjA4qdReqP6jWXSg/qNRd qP6gWndR/KBVd1H6g3bdBfCD7u/lAPqDk9/LAfhBs37w09MI+nX3sA6K91Th 21kdjPxe7jwHrzsQ//+D0d/LYSBo8A2Eg2bdBdDB7g6w//+g/3s5hP7g0GoD +/8P+r+XQ+gP8nWI//9B//dyCP1BkaDCQRgdbLfJtxiHg2Wi9zVAOnjPtQs3 JYEQHHwNjA7299r7lJyxiaC/T0kZuwjC9ActBMndpySMbQR/B20JJIL+PmV3 pCDo71O2RhqCsDrIjrA5WL6xEfwdZOQ0fbC+0LkXpT9o34voB8W94Dr4O2sf mSMNQXAdbKfICBI6B8vUbj6hB+sLp/eicxBaB9H9IFR/UL0X3Q+i9QfHe9H9 IF5/UN6L7gch+4PCR8PqIHJ/kHrcAHXwd6F94OngFQC3P9gC3NfwEKQbN0wO lqttCSSCNxFhEQTtD4oooDrIomBzsHxjI/g72M1n8cFKCnYUdA4i6yCB+kGx pH1kjjQEwXWwhUJGkNA5WNbt5LLz4Mg/BJ2D0DqI7gdB+4PiKrIOgvYHx6vg CP6OthNaenC3cHoVnYOoOojcH2wXbgnEQrCvH3g6KOsHHgeH+oGIIHR/UNQP TA6Wo3YKieBNRFgEUfuDHEFYHWRRsDlYvrER/B2kJDV5sLHQmQPtD45/VAGL IGH6QTGHrINXKGwEkXWwTWAj+JvbTijwEGPhdA6dg9A6iO4HUfuDQ6nDRhBa B9H9IGp/cLD82Aii6iBwf1DghqWDCm5QOqjihsJBp68KgaDfV8VA0MANhINm XxVGB5W6C9UfVOsulB9U6i5Uf1Ctuyh+0Kq7KP1Bu+6e9YPzunu2Pxipu8f8 YLzuntHBpbp7RAdX6u4JHVyru2c4WJOK1d1DCJZHd3eYfDuCYLTunuJgtO5+ rYNLdfeAH1yqu1/3B536YdTdb/2gXz+0uvt1f9CsH/x0QHBcl5ShMmXUD+pP xxfnSwRpqe5+6wcFHoG6+3V/kG+QpnX3QH+QJT2vu0f6g8MWU0dG4PuxDrKr Jrd8vczKb4ogWdwa8T2EYHm0da+rl/sjgqDDwZqUqZcpGZoPJrXuavfaepmQ n4cgufrWNZQO6WBJkWYI+nq5NaYI+jrIj47oYFsSQPCEDraJCILmur0RQLA8 2r33jB/kayIInuJgQAcnermXn4ugq2/dvWd0cLLfjerlzpgiGNLB6/QMghEd bKcnEKQQB511eyOAYHl08N6svMZk1AeH/CA/P/IWBzn4tQ7O97udsf1cByP7 3ahe7uWn8ii03x23Bu8jqOIW2JN84gedPkEIQXPdbob8cSZuEQTNdXv52Tya 7XfHFsn7CGq4RfbFn/hBhUf+frfz0e/roMqjuR/8sD+o8Gi63/2yP6jyaK5v Eb3cy8/jUWC/+0l/0OZRQN8Cermbos2j2H733f5geQIZPArq20Qv9xN0eBTS tzf7g/UBDo8i+vaeH7yzMHkU0Lc3+4P3Q+4nDY8PIfiODvJn2DwKIRhYtzdc HkUQDKzbGTaPghx8UQevp5DKo4i+vecHRR4keBTXt3d1sCbTnnVPLejbuzpo 8GhF397WQY1Ha/vdlzlIGo8W9e1dBMsTaESwnwsEeHFIHi3p29scbBnJtzjI rbd1sD2n9zUxfXvbD4qnXY/U9ynaHe/7QfG41f3uF35QPu530J86N3zgB8Xj 1va7n/hB8biV/e6L/UHvcQv73U/8oHjc74AopG8v9gfNx11HU317uz+oP5Mf +fr2dn/QfCZ7usmtdb1My7A7srjl/17g1fz+xJGJ4KpeJg2BYHm0tmxVL5OG RNDhYE0qrJdJQ7zFLgfLUTv9GEHy9W1JLzPHX/cYU9/ErzBO6OB1GkDwkA62 0wCCJ3SwzUQQtNeljyHBGILWuvQhEQxy8IgOtqdH3uITHPT1LaqX6UPIR3m+ tiyml+lj/NEFEDyjg/5+d3yZziBIIQ5669LHIMAxBK116WMsYTEET3EwooP3 4vezE3UhpoMH/GBgvyu3p9a6N0ZsvxvVy1cGwyOwJ/nWD17PnO53o3r5zpjv d8cN/pcI0o1HkIMf6uCdAVFIBz/uD3YpTHXwRH+wT8HXwRP9wTEF8+8YDvUH eR6k6puK2xkOlm/+YKevegjB8mien43bEQQFtwZeft8fHJIZENRwO6GDpOmb wsuv+4P9EPqm1t3P/SAfUt8UXn7dHxRD4aDk2wE/2I3Z3zF83R9UhnhPJd/O +EE+/pz6Yejlx8OtHx/3B7UxvqcCrYM6WBMw6gf1p2cRJLfuntPB+vjroCYz onWeg9eRyTcIBCf7lM8Skg8etpjmPuXQGDbpzj7lxBjbHM4+5cgYGkXePuXA GFttj//e+qUxNCtn+5SPR9cw3/576zeG6Oi3j3oRwQ+K0+d/b/3O6BOM7FO+ HeOvvR79vfWLY0hwuk/5dqi/OHT3KV8PJcHJPuXbYSDo71M+HRaCZ/uDPBcD QXL3KR8OE8HfQTmD5OB1hKiD0X3KJ2OKIKwOsiNsDpZvbAR/Bx+lM4wIgugc RNZBwvSD/j7l4zFFEFwH2ykygoTOwTL1QSrqiCCIzkFoHUT3g1D9QXUO3Q+i 9QfHOXQ/iNcflHPofhCyPyh8NKwOIvcHqccNUAd/8+0DTwevC7j9wXbhvoaH IN24YXKwXCwrIDl4XYXUwf4qpA7yq6A6yK5ic7B8YyP4O/ggFSODOYLoHETW QQL1g2JF+zgxpgiC62BbgowgoXOwLHs5DfvBoR8xNoLQOojuB0H7g91lbB0E 7Q92l8sXNoK/oy9y8VMwLhO0DoL2B+8rqP3BMg/cH0T/+0FZP/A4ONQPRASh +4OifmBysBy1U0gEYfuD8texv4MPU7KS4ZP8KqgOsqvYHCzf2Aj+Dr7KR44I gugcRNZBwvSD8s/z2seJMUUQXAfbEmQECZ2DZe6LXLQRQRCdg9A6iO4HUfuD Q6nDRhBaB9H9IGp/cLD82Aii6iBwf1DghqWDCm5QOqjihsJBp68KgaDfV8VA 0MANhINmXxVGB5W6C9UfVOsulB9U6i5Uf1Ctuyh+0Kq7KP1Bu+6e94Pk1l2E /uAvj/Yh+XbeD9Y07Lp7XAdLFl7dPauDdxZm3T2sg3cevw+Nb+c5WNOw6y4E gn7dBUjQrrsgHDTrLoAO3nmQ4BuAH7yHUncB+oP3UOsugB+8h1J3AfqD3YD8 /w/2Q/ANoD8ohuQbiB9kQ+Egig5eA+3/P6gM4WtQdPAewtfA6OA93D4XwBh9 DSKCKP1BbUhfg8nBclDOIDl4HSHqoPx17O/gXDbjGH8Vho0gqA52R+AI/g4O paKO8U8CsBFE1kHC9IPyN6DtA2WMfxqFjSCyDrYZrATVv2M4kIY5jL9jABrW 3zGgDPPvGGCG+XcMIMP7OwaM4f4dA8Dw/44BYfh/x3B++H/HgDD8v2M4P/y/ Y0AY/t8xQAzw/uA/A7k/+BvQ/cHfAO4PXgO3P9gGaH/wHqj9wXtg+sF7oPYH 74HpB++B2h+8B6YfvAdqf/AemH6wG+A6+M9A1sHfgNbB38Dm4G+AI/jP+Pt/ m8CKzA== "], {{0, 0}, {161, 2049}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}]], "Output"] }, Open ]], Cell["Wrap the long evolution into columns:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WrappedArrayPlot", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"39780", ",", "2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", "0"}], "}"}], ",", SuperscriptBox["2", "12"]}], "]"}], ",", "4", ",", SuperscriptBox["2", "8"], ",", RowBox[{"Frame", "\[Rule]", "False"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzsnW2S47CyXAWHI7wOb8lLeBt4G/Gi7YueZosgvlEoZBXz/NBQEgVRIAmd RFE9//u//vv//Nf/+Hw+4X9+Pv/3f/3/fzH527BrKbepn/jsf27+npX+SKhd 9CI+sMfpf/jwEAEgd4gko8h9nPhe7feJz7Wy5C6Vbo8QPf4G399v28KA92+9 z3UWyQ6M0u2ROaC/iznQApDTtXQUKWpT/LL8Ptelz3qOIsQsd6P9VI32Z+m6 K3jUS7dH5kDOxdQ1DDpycVzIvpSza4TkuQ2+cayr5+I/rRUbGKXbIwvgfhdT 1zDoycWcXTtJRofqxYGVLsseDgvtaYC6ffeu/Npd6Wr3/Fxab2YDZNsjC4Dm YuoaEO1czNm1k2R1qFgcWNaX5HBA1yHg7UsG30/LaH8PeMGPJN0eWQDyu5i6 BkQ9FwfOrh0no0PF4sCyvjy/QKDPUujte2hNVy4WvGIxd5iQQ8DmYuoaDPVc HO9dN4/VOLumwVNLMpfUCenQ9y7F1iEL25c80pOLy+vNbIJse2QByO9i6hoQ zVzM2TUAEi1JigO/DwroS3KpALAOoW9fdvDtycWl9WY2QLY9sgBwLg7UNQza uZiza8dJtSRTQxbSocelArBnKf72pWdRXy4WNlrkkvqrgPwupq4B0ZGLA2fX jpOpF6e1UhF9eV5Cj3qWom/fo9LTabSCJfDsYULOgJyLqWsYdOTi+FD2pZxd UyO5UvpRKxXSoccuhT1L8bfv8734KW5q75WSw++eO0zIKSC/i6lrQPTkYs6u QfBTHL2XSdNcnDw2/h6PqQ7UsxR9+9KzI91dX6vd83NpvcH3Lh0m5Ax4uZi6 hkbHddScXYMguVI6qZUK6dDjEgDYsxR/+9KzoyMX19YbeePiYUJOgfZdTF1D o5GLObsGRBKvMvViwd8Xo+sQ+vZlZo26crFMyb98mJAzQOVi6hok1VzM2TUg nldKJ2eQ2O+L0XUIffsiz6spunJxeb3+N64fJuQIQN/F1DVImrmYs2swZOJV 0j3L+pKkTUwdQt++f3SW3rNn4NLbNg8Tog9YLqauAdLOxZxdwyC9UjqjKkv6 kkmbeDpkR9fSXNxptGIl/13/YwuZA+i7mLoGSUcuDpxdw+Aer7K10gV9yaZN NB2ypGudpfe00iNY8hdpj4gAl4sDdQ2Njlwcl7Iv5eyaIrfrqoq10qmzqpI2 wc5SO7p2u7C97wrI+pWS/W/81xx2Sf1VAH0XU9cg6cnFnF3DICnjx4XcahMN 19Im0i6wpGudpff00vXSev1v23eYEFUQczF1DYt2LubsGgbP3xs9z6BJfSmm TTgdMqVrfaXt5LtTymhrhwnRB+i7mLoGSTkXc3YNjcd0xeMMmtSXYtqE0yFr ulacbPhaJakIyRlt8TAh+sDmYuoaDKVczNk1NNJBO1GVFX3JtAeqQ8Z0rae0 nXx3ihqtRHtEBKDvYuoaJAVd4+waII9BO9y/O6f1JXuJHqQOmdO1dmn7qViy uXi1PSICcC4O1DUMSocIZ9fQeHb35/HduVAvTtoD1SF7utYsbT+OetlcbKCL XgHQdzF1DZKirnF2DY7HNMQjF0/qS/YSPUgdMqlrv7NLXUYreAVk7jAhh0DO xdQ1DIqHCGfXwLidzc9a6aS+lC7RA9Uhi7rWKG1/D4eiV0AGmfaICEDfxdQ1 SGq6xtk1LO676quI8PPklL6UL9GD1CGbulYtbSdpuLhe/5vVDhNyCMxcHKhr QFQPEc6uAZEOspl68Zi+3ONa0h6oDlnUtXJpO5OGBa+A/H0LA130AoC+i6lr kNR1jbNrSCS7KlMvHtKX9MrrTL0YTods6lqptJ1Nw4JGK9IeEQE2F1PXYKgf Ipxdw+F5NidFhFF9ecS15LWIOmRR17Kl7cqkhGguXm+PiAD0XUxdg6SZizm7 BkNmVyVFhCF9yV15nQa3kfY0sKlrmdJ2fVJCMhevtkdEAM7FgbqGQTsXc3YN g+wgW635Nhv8+eeernPN42BR17Kl7eKkhLDR2iipvwCg72LqGiQduThwdg2D 3K6q13wbzd3iWrb2iqZDNnUtU9ouTkpIXgEp0h4RATkXU9cw6MjFceHrIc6u HaGQi+d16Pua5GLtFewsNaprXT8Hb1wp2f1en78lKyX1FwD0XUxdg6QnF3N2 DYNSLp7UofSa5NJrkXaBXV1LuveTsdz6buh+o2/FEmiPiACai6lrQHRcR83Z NQiKuThM6lAyaFcu0cPBrK6l3Zux3PJuGHyn7yUbJfUXAPRdTF2DpKlrnF2D oZiL48LPvQF9SXJx/RI9EAzrWsZo080v7YbB97kNtEZK6u6BzcXUNRjahwhn 1zCo5eIpHUoG7YdyIeqQZV1r/Rw8uxsm3uaTLBnqIscAfRdT1yDp0DXOroFQ zcXjOpTm4vtrMXXIuK4lkxfp5ucsd/w9Hoplqou8ApyLA3UNg45DhLNrEDRz 8ai+PLq7fokeBLZ1LZm8+GSMdr0E/ig9mOoitwB9F1PXIOnTNc6uIdDOxUP6 kl5HnVEuOB2yrmtJmM8YreAVkFlrJmdAzsXUNQw6DxHOrh2nIxeHIX35bq/r Ej0AbOvac/Jiw58A/x5erZXUHQP0XUxdg6RX1zi7dp6OXBwXuptLvgZur8XU Ieu6lgnzyeanljvxFrfhdbk9IgJeLqauodF7iHB27TQ9uXiuXvzbQOsSPQBs 61o6eZHZ/KUSeGZ4tVZSdwvQdzF1DZKBXMzZtcO0c/GQvqS7PlMvhtMh67p2 D/PZzV/4SNnh1VoXOQUlF1PXcBnJxZxdO0k9F4dxfXm017pEDwDbunZTCdk/ AV6pIZnqIrdgfBdT13AZysWBs2snqefieO+66Wou9zUQCucrBtZ1LZnGiAu5 1SYavrdXtWaiD0Aupq6BM5SL48LPPc6uadPMxaP6km8PVocc6Npzil3sT4AX a0jGusgtx7+LqWvgjOZizq6do52Lh/Qlu+vrl+idxIWuPS49e2z+ZAn8k2mv bM1EHYhcTF2DZjgXc3btEB25OAzpS6k9PB3yomvPn2Qll67Pl8Az7dWsmWhz /LuYugbOVC7m7NoROnJxfKi7uVJ7aDrkR9eSXBwXvp6sWW6r4Wd7dWsmqoDk 4kBdw2UuF3N2TZ+eXCxQL/75F0uHvOhamouTzS9ablfTj/bK1kz0Of5dTF0D ZzIXB86u6dPOxUP6Us7FcWG4vX340bWk0pN8pJLldjX8bK9ozUQflFxMXcNl MhfHha8nObu2nUYuHteXantQOuRF12678Ln5OcvtbPWTaS9rzeQQx7+LqWvg zOZizq7pU8+xw/pSz8VIOuRH15JpjOvm35OZj9nT5q0nnt/ttrrIKWdzMXXN AnO5mLNr+jRz8ai+tHIxjg550bVkF6abn7PcdoN/w+sn00XWSupuOfldTF2z wHguDpxdO0Q7Fw/pS0cuBtEhP7qWdHnGaMdL/l/Da6aLzJXUnXIsF1PXzDCe i+O96+bfk5xd205HLg5D+tLOxWPtbcGVrj13YXJB+EzJP3uB+fddU13klkPf xdQ1M0zlYs6uHaEjF8el7ubauXikvS0407Wc/vw8XvqYjeaekwPJa4faI9s4 mIupa0aYy8WcXdOnJxcL14vP6pA/XSvswsrHbDb48889XeeaJ4c5mYupaxaY zMWBs2v6tHPxuA6V3+O4DnnUtVKXlz9mo7nb5EC2O6x1kVOO5uJAXbPAZC6O D/08ztk1Hcq5eEGHau9xWof86VpxF9Y+Zr3Bv1aK3WGqi9xyNBfHpesudQ2S +VzM2TVtiqFqRYeq73FUhzzqWrHLqx+z0tx9GqP0Wktd5JTTuZi6hs9CLubs miqFs3lZhyrvcVaH/OlareRf+Zi1Br9byXaHsS5yy/FcTF0DZzEXc3ZNkdKu Wtah8nscrxf/LF13retaveT/c29uF2bS9d8qlrrIKRC5mLoGzWou5uyaFsWz eVmHau9xPhc70rX6pfC1j1lsMGkl+aWhvZK6WzByMXUNl+VcHDi7pkVxVy3r UPU9zudiP7pW7/Lqx8w3dx9o769NL0QnBwHJxYG6hstyLo4LP/c4u7aT2tm8 pkPl90CoFzvStWYuLnzMSoO3VpLXjrdHtgGSi+PC/VnqGgYSuZizazpUd9WS DpXe46gOedS1di6eLfn/+959DLTmSupOQcnF1DVcRHIxZ9cUqJ/NKzqUfY/z OuRP1zpycZjehc/uGG+PbAMjF1PXcBHLxZxd2059V63oUOY9zuuQR13ryMVx obu5+zTG/bWf4fbINs7n4kBdA0cuF3N2bS/NXDytQ9n3OK9D/nStJxcv7MK0 O8bbI9s4n4vj3esmeZaHyHEEc3Hg7Npe2rl4Vocy73FehzzqWkelZ2UXZrrI XEndKRC5mLoGjWAujgvdb0tdG6QjF4dpHXq+x3kd8qdrdaMNuY/ZajB94H5B vb2SulswcjF1DRfJXMzZtb105OK40N1cOxePtCeNR12rG228d910NZc5K68n /pqy1EVOAcnFgbqGi1wu5uzaXnpysXC9+KwO+dO1Zi5+fsxWg7n25v9EOdkG SC6Oj11PUNeAkMnFgbNrCrRz8ZIO3d/jvA551LV2LpYp+X8Nr9a6yCk4uZi6 hopMLo73rpuu5qhrgzTPZrHfF4PokD9d68jFQWQX3oZXU13kFqBcTF2DRCwX c3ZtO+1dtaxDSbo+qkMeda0jF8eHupsrtZdMInS2R7YBloupa4DI5WLOru2l 42xe1qFwT5tndcifrvXkYqmS/9SfKCfbQMvF1DU0BHNx4OzaXjp21bIOxSeu m6M65FHXOio9giX/4fbINuBycaCuoSGYi+ND3W9LXRuk72xezsU4OuRP1xpG ew/9fQ1W2vuMt0e2AZeL48K1Cg+R40jmYs6u7aV3V3U3V1oTQ4c86lp9YExC f09zVUMebo9sAzEXU9ewkMvFnF3bS8/ZLFAv/nkKQYf86VozFyehv6PBSnvP SQRyDshcTF0DQigXc3ZNga5rtyRycXx2uD1pPOpaOxevl/zvA625krpTYHMx dQ0GkVzM2TUFGmeziA7dmjutQ/50rSMXB1GjHW2PbAM3F1PXMBDLxZxd207r u1NCh+7vdlSHPOpaRy6OS93NtQfakfbINoBzcaCuYSCXizm7tpee706pejGE DvnTtZ5cLGy01krqbgHOxXFBaXtIEcFcHDi7tpf2d+e6DiXvhlsvPr99M3RU eoSN1lxJ3SnIuZi6hoFgLo5L3W9LXRuk57tzVYee7wadi4MxXSsb7Xf1W+y/ 2hpvj2wDNxdT1zCQzMWcXdtL13enbC4eaU8aj7pW+khJtV/IaIfbI9vAzMWB ugaEXC7m7Npe+uaUZXMxeL3Ymq4VduH8n9huDbSj7ZFtYObieO+6ISdZz8Wc XdOi/d0p+Pvi8zrkUddKXf41HAoa7XB7ZBuwuZi6BsNqLubsmhbls1lOh+7P I/++OJzfvnGKu/A2HIrm4rH2yDZwczF1DYOVXBw4u6ZKZSAX06FklZH2pPGo axWd+v4gkrl4pD2yDeBcHKhrGKzk4vj4dcPZtb0UukxUh56tA+fi09s3Tm1A nvoT2x0DrbEucgtwLo4PKWwLqbKYizm7pkipyyR1KPOWwLnYnK7VS/4/a8ga rbmSulOQczF1DYPVXMzZNS2KXSaoQ5mVkHNxMKZr9QH5dz+KGe14e2QbuLmY uobBci4OnF3TothlgjqUW6+zPWk86lq9y5NJjp7mal2UTpqQg4DmYuoaEMu5 OD75swZn13ZS6zIpHcq9J3IuNqZrzVwsUPK/DbT2SupugczF1DUgJHIxZ9d0 qHaZkA5lVgHOxeZ0rZ2LBa+AzE2akEPA5mLqGgwiuZizawo0u0z298Xndcif rnXk4iBqtKPtkW3g5mLqGgZiuZiza9vp6LK40N1ce5eOtCeNR13ryMVxobu5 9kA70h7ZBnAuDtQ1DORyMWfX9tLz3SRYLz6vQ/50rScXCxuttZK6W4BzcVzS 2iBSQjAXB86u7aVr4BXNxUd1yKOudemPbKXHWhc5BTkXU9cwEMzFcaH7balr g/R1mWguHmtPGn+61hyQxa6A/K6mm+oit+DmYuoaBpK5mLNre+n6bpLNxSPt SeNR19pn2+e66Wqu0EVJNd1SFzkFLxdT19CQy8WcXdtL35ytbC4Grxdb07W+ n5Et78L5P1FOtoGWi6lraMjk4sDZNQW6rmUSzcXAvy8+v30zdJxtIrvwa3i1 1kVOQcrFgboGiUwujmtcN13NUdcGqX83BREd+nsnAB3yp2t9A7LALrwNr6a6 yC1IuTg+cd1Q1zAQy8WcXdtOPRfHu9dNV3PlgRxBhzzqWu/Z1t1cWae+W7HU RU4By8XUNUDkcjFn1/bSzMUSOvQdOU/rkD9d6xmQpUr+U3+inGwDLRdT19AQ zMWBs2t7aefiZR1KIudRHfKoa12zSxK5OD473B7ZBlwuDtQ1NARzcVyt+22p a4N05OKwrEP/5oAhdMifrjUG5PukRF+D9ebsldTdApeL47PXKjxEjiOZizm7 tpeOXBwf626u1B6GDnnUtY5L1+NSd3ON73aDJXWnIOZi6hoWgtdRc3ZtKz25 WKBe/PMPgg7507We7065n4h/xtsj24DMxdQ1IIRyMWfXFOi4jlqkXvyzNNye NB51rf3dKXMF5Ne7Wesip8DmYuoaDCK5mLNrCjRysYwO/X0Xn9chf7rW890p arSj7ZFt4OZi6hoGYrmYs2vbqedYER36fH+3H9Yhj7rW9d0pm4tH2iPbAM7F gbqGgVwu5uzaXpq5WEKHku921HoxxPaN03fUy+ZiY13kFuBcHBcUtoVUEczF gbNre2nn4mUdSnLxUR3yqGtdeiFb6bHWRU5BzsXUNQwEc3Fc6n5b6togHbk4 iNaLR9uTxp+u1X6mNfUntltnr72SultwczF1DQPJXMzZtb105OK41N1cOxeP tCeNR10rfaSk2i9ktMPtkW1g5uJAXQNCLhdzdm0vPblYuF58Vof86VphF87/ ie2O72JjXeQWzFwcV7luyEnWczFn17Ro52LB3xef1yGPulbq8q/hUNBoh9sj 24DNxdQ1GFZzMWfXtCjnYkEd+n7stA7507XiLrwNh6K5eKw9sg3cXExdw2Ap F3N2TZViqJLToeSxozrkUdeKXX4fDiVz8Uh7ZBvAuThQ1zBYyMWcXVMl7bJM Ghb8ffHvWwDn4tPbN06t5D/1J7a7ziJTXeQW4Fwc19u8HaTJYi7m7Joij+/J ZxoWrBcPtyeNR12rl/yvu5KVHmtd5BTkXExdw2A1F3N2TYvbdVXFNCyai8fa k8afrtUvhf/cd2tfg623s1ZSdwtuLqauYbCciwNn17RIrpmOS9cTMjqUfWxs K8XwqGsdl67Hhe7mamumhwk5CGgupq4BsZyL49J1l7Nr23j+3uiZhoXrxWd1 yJ+uNXPxaAm8NdDaK6m7BTIXU9eAkMjFnF3T4T5o59Kw5O+Lh9uTxqOutXOx 4BWQucOEHAI2F1PXYBDJxZxdUyAdtO+qIqRDpZr0CfzpWkcuDqJGO9oe2QZu LqauYSCWizm7tp3HoH07g0R06JPs0pH2pPGoax25OC50N9ceaEfaI9sAzsWB uoaBXC7m7Npent2d5GIJHarUpNXxp2s9uVjYaK2V1N0CnIvjksbGkBqCuThw dm0vj2mIRy5e1qHP44sBOheb07WOSo+w0ZorqTsFORdT1zAQzMVxofttqWuD 3GLTo1YqpEPVmrQy/nStbrQhs1ubDVbeKXeYkFPg5mLqGgaSuZiza3u5nzdp rVREh9JcPNKeNB51rW608e5109VcYc3yYULOgJeLqWtoyOVizq5tp/K3p4V0 qFqTVsafrjVz8WO3NhvMv0nxMCGnQMvF1DU0ZHJx4OyaEl/nTaZeLPj74vM6 5FHX2rlYpuRfPkzIGaByMXUNEplcHO9eN13NUddmuJ03yRkk9vtiEB3yp2sd uTiI7MLaYUKOAJSLqWuQiOVizq7pcD9vku5Z1qEkbR7VIY+61pGL42PdzZXa qx4mRB+wXExdA0QuF3N2TYfK355e0qFM2sT7fbFtXevJxVIl/6k/UU62gZaL qWtoCObiwNk1JX6/h55n0IIOZdMmWr3Yuq51VHoES/7D7ZFtwOXiQF1DQzAX x8e635a6Ns3nng7vz83oUCVtwuVinO0bp2G0ld1abLDyWO0wIdrA5eK4dN3l IXIcyVzM2TUtknSYPNndyOd7qZg24XIxyPbNUB8Yq7s131zVkIfbI9tAzMXU NSzkcjFn17T4vcLqeQZN6lAxbQLWi3/+Qdi+cZq5uLBbKw1WHisfJkQfyFxM XQNCKBdzdk2VTDr89/iUDhXT5lEd8qhr7Vy8UvJPHxtuj2wDNhdT12AQycWc XVPlt6NuZ9CKDmXaA9Ahf7rWkYuDqNGOtke2gZuLqWsYiOVizq4pck+H/x6a 16FPpr3zOuRR1zpycVzqbq490I60R7YBnIsDdQ0DuVzM2TUtfrv78/juXKgX J+0B6JA/XevJxcJGa62k7hbgXBwXtDaIlBDMxYGza1r8+x565OJJHfpk2juv Qx51raPSI2y05krqTkHOxdQ1DARzcVzqflvq2grPWumkDn2XXZ//79NRHfKn a2WjLe2GZoP1x+yV1N2Cm4upaxhI5mLOrmnyuW5+7s7pUFJmfn63Y+fiuKC1 QQKUPlJ5NzSaq3bRcHtkG5i5OFDXgJDLxZxdUyWtlQ7pSyaGJe0B6JA/XUuP +vZuaDbYesxaSd0tmLk43r1uyEnWczFn1w6RqRf36ks2hmXqxUd1yKOuPb4n m7uh0VxzoDVXUncKbC6mrsGwmos5u3aO5K9P9enL98rJeZi89rQO+dO1m0pI /Anw9kA71h7ZBm4upq5hMJuLObsGwW/H9+tQsnKarnPNC23rKB51LanqxKXr ieJuqDTXHmhH2iPbAM7FgbqGwVwu5uwaBp9KvCq+pBDDMq89q0P+dO05xb74 J8A7BlpjXeQW4FwcH9PYGFJjIhdzdg2IarzKv+DzWC9J17nmD+BR1x6XnvXt hnJz7akDa13kFORcTF3DYDgXc3YNiN+S/YAO/evk3r89DZ2LgzFde/4ka/FP gNe7aLw9sg3cXExdw2AqF3N2DYZSvKq84PNcL9Gr5BWLmziLR11LcnFcuj9b 3A355mpdlFozOQhoLqauATGXizm7hsFvlw3o0L/d1/e3p8HrxdZ0Lc3Fvbuh 0mDtsfH2yDYgczF1DYjJXBw4u4bBPV516EvyQ7SvVjKvPapDHnUtGQQ7d0Ol ueZAa66k7hTYXExdg2EyF8el+7OcXdPn1mVNfflepfm3p8/rkD9d+/12FPsT 4O2Bdqw9sg3cXExdw2A2F3N2DYOky+JCed3bKmkguz92Xoc86to9DXfshlZz 7YF2pD2yDeBcHKhrGMzlYs6uYZB+NxX15Z4iPxmVSmuv53XIpa7J/gnwjoHW Xhf5BDgXxyW1LSIFxnIxZ9fQeAy8+bMqTZEZlUr06rwOedW1od3QaKpj6sBi FzkEORdT1zAYycWcXUPj2WXFXJzEsObfnj6vQ051bWw3tNoqPFayZnIK3FxM XcNgQNc4uwbI47upkouTGJasl+jVeR1yq2sju6HVUqGLytZMzoCXi6lraIwc IpxdQ+M5Z1vJxeHvnMusl9Zez+uQX10T+xPgSRdlhleDJXWfoOVi6hoaQ7rG 2TU4Htcy1XJxXLruputl6sVHdci1rvXuhkYr9y7KDq9mu8gXKLmYuobL0CHC 2TUwbt1Y05fv77Dm354G0SHPutazG7qa+WqwNLwa7SJnYORi6houo7rG2TUs kjPtunmsds/PxfWulc/rkG9da++Grkbu0wR/r61aM9EHIBdT18AZPkQ4uwbE sxs7cnFlvU/lfFXHs66Vd8Ok0T7aq1gzOcDxXExdA2dc1zi7hsTj+6orF5c1 p3q+6uJb10q7YfIKyOKF8nZL6r6AyMXUNWjGDxHOruHwPMO7cnFxvWdcg8jF /nQtuxsqlltsJllKfmlouaTuDIxcTF3DZSoXc3YNhlxNNbtaOmhXcjGIDvnW tcxuSD9mTyOpYoX7d/tge2QbILk4UNdwmcvFnF3DID3DO+vFxfXSuAZSL/an a9ndUC3lF5q5Ld1fW780gOgCkovj0vfT1DUUJnNx4OwaBqWa6mO19Hutlovj QrU9DXzrWmY35D5mq5H71EHy2uH2yDZQcjF1DZfJXBwXvh7i7NoRbt+xXb8v Dv9WqediCB1yrmvPza+W8vNtfA2vj/bqlwYQXTByMXUNl9lczNk1DIo11XS1 e34urZfOCxfXU8C/riWbn/2Y9Qbuw2vaHcPtkW2czcXUNQvM5WLOrmHwnHvu yMWV9Z67BScX+9O1dPOrpfzMi9Ph9ZPpIrsldWeczMXUNQtM6Rpn12Co1lS/ V/sk97ty8VEdeoGuZYy2twSeHV4zXWS4pO6KE7mYumaLuUOEs2sYJLk4FPXl sZu7cnG5PQ3eoGvJBeF9JfB7qTx7gfn3XeNd5AT972Lqmi0mdY2zayDUa6pf qz0f7cnFxfUUeImu/R7/hY+Ze0VSKk/Sda55oW0l0yjnYuqaQSYPEc6uQZDm 4s56cXG9NBef0qEX6dqnMmwWX1IYXjOvNV5S94PqdzF1zSDzusbZNQTqNdWv 1T6Pux25+JQOvUrXqsNm/gWfx3pJus41T06inoupa+ZYOEQ4u3acWzrs+33x XYey7f3eOaJDb9O15wXhXbk4We9T2a3mu8gF+rmYumaLFV3j7Np56jXVr9Xu +bm0XjJiHNCh9+laadisvODzXK+6W613kQMO5OJAXbPFyiHC2TUA+nToMffc kYvP6NDbdC29ILzTaJP1nun6+xnjXeSCA7k4Lt23gLqGy2Iu5uwaAB069Lwm qysXH9Ch9+nafdjsKIFnLw0o7VYXJXUHnMjF1DVbrOZizq4dp0eH7rm4uN5z xDiSi5P3da1rN01qlsBLlwak6fqxMjmMfi6mrtliORcHzq4dp61DaS4urZcb MU7k4uR9XetaUj6IC+V1b6ukA+39scalAUQTvVxMXbPKci6OCz/3OLt2iqYO Jbm4s158QofepmvpZXWVXTj6c+t6e0QVre9i6ppVJHIxZ9cAqOvQc8DvysUH dOh9uvbQpMou/Bo2M12UdEfj0gCiiUoupq6ZRiQXc3btOA0d+j4P+35ffECH Xqlrz/JBZRfWLg14dke9PaKKwncxdc00YrmYs2uHqddU7+dhWXOSXVpcbwcv 1bUkF8eF7GrPYTOdJrg/1rg0gGiilIupa4aRy8WcXTtJs6ba9Tvkz32X6unQ e3UtzcWtkv/Az63r7RFVtHIxdc0qgrk4cHbtJO2aalmHklaul6np0Jt17aE/ tVwcl667T+16Th146CIHqOXiQF2zimAujgvZ1ahr2+moqdZ0KGklaOvQe3Xt Nkg3S/7/XtH8uXX70gCii1oujkvXXeqaGSRzMWfXTtJRU63qUNqKqg69Wdfu Z2DyMb9Xu+fn4nrXyulkCDmIZi6mrtlELhdzdu0kfTXV1u+Q01ysWC9ubZ9X XUsG6doVkN+vqJX8uy4NILqo5mLqmkFkcnHg7NpxOmuqZR26Wvl7rZoOvVnX kjOwbbQhs1tzDeQmQ8gh1HMxdc0cMrk43rtuHqtR1zToqqnWdChJ15o69F5d ew7SXbm4uN5zGDbfRS7Qz8XUNVuI5WLOrgGQ6Eu2plrVoSRdq+nQm3Utcwb2 5OLSerlh2HoXOeBALg7UNVvI5WLOrh2no6Za16FwT5t6OvReXUsH6U6jbZb8 W5cGEF0O5OK4UNwW6hoYgrk4cHbtOB011boOxTWuGzUderOuPWaXuoy2p+Rf bY+ociIXU9dsIZiL40PZ1ahrarRqqnUd+l1FXYfeq2u3s6PrCsiQ2a259uqX BhBd9HMxdc0WkrmYs2sQJOfXV4r8ebqqQ9cqujr0Zl1LpufjUna1e34urReS Abm4HtFENxcH6ppB5HIxZ9cwqNdU6zp0raWtQ+/VtefZ0ZGLK+t9ku92B13k At1cHO9eN+Vtoa7hIJSLObsGRL2mWtehv9V+1lXSoTfr2kNDunJxvaT+teSh ixygnoupa+YQycWcXQOiWVPt0hxlHXqvrj2n57tycXG9ZKAtt0dU0c/F1DVb iOVizq7B0K6p9miOqg69Wdce3519ubi0XjrQFtcjmhzIxYG6Zgu5XMzZNQw6 aqodmqOsQ+/VtTQXdxpts6T+d1aa7yIXHMjF8bH6tlDXcBDMxYGzaxh01FQ7 NEdVh96saw+96DLajpJ676UBRIETuZi6ZgvBXByXsqtR1xTpq6l25eKO9YR4 r67dhsO+KyCrpfLb2eajpO4C/VxMXbOFZC7m7BoGnTXVnlzcsZ4Ib9a1+3BY 3l1Jfi6tl073F9cjmijnYuqaQeRyMWfXMOipqXbWi/V06NW61vcnth9nR8dA W2uPqKKai6lrBlnPxZxdQ6NdU+3RHFUderuufQ2HbaOtXyn51BofXWQc9VxM XTPHai7m7BoajZpqVYfuDSnq0Mt17TYcduXi4nrPQd9HF1lHPxdT12yxqGuc XQOkWlNt6FDSUud6y7xe1+7DYU8uLq2XG/RddJFtDuTiQF2zxeohwtk1NBo1 1aoOPZs6kIvfqWvNP7H9KD30DbSOusg0B3JxXOrcFh4ix1nWNc6uwVGtqTZ0 KNPUgVz8Tl37nV3qMtqeknq1PaLKiVxMXbPF8iHC2TUwGjXVqg5lWjuRi4vv 61rXfrW2ZrTtKyVvvzR0VFK3jn4upq7ZQkLXOLuGRbWm2tChXHMiG9V4D+pa +NLa4tnRcaVkSAbk4npEE71cTF2zisghwtk1IBo11aoO5do6kYtfqWu/Z0fx 5+BdV0p+7l3pqaRuGq1cTF2zioyucXYNiWpNtaFDaUtKOkRd+w+lUnl2eG13 0dilAWQru3Mxdc0+MocIZ9dwKNdU2zqUNKOnQ9S1vw9X+Tl4x5WSyUBbXI/o sve7mLpmH7FczNk1GEo11R4d+mpEU4eoa/8hUypPP2YyyVFvZfjSALKNjbmY uuYEuVzM2TUMcmf9p3K+FptR0iHq2j9+j/r6z8FbV0qmA62rLjLMtu9i6poT BHNx4OwaBrldWj1f840o6RB17SJTKs99zGSSI9fK32udldTNsjUXU9dcIJiL 48LXQ9S1IxRycZcO3V7St94K1LWErp+D16+UvKVrbyV1w+zNxdQ1+0jmYs6u YVDKxT069PWC/TpEXXvy1R1xKfcx66Xy3tI70WRzLg7UNfvI5WLOrmFQzMWh rUO3l/SttwJ17UFaAs98zPKVkr8rlCYbyDk25+K4dH836potxHSNs2swFHNx XPi519QcDR2irmXIGG36Mdul8uJkAznE7lxMXbOP3CHC2TUMarm4pUN/a6vo EHUtR+vn4NkrJZMmhi4NIArszcXUNfsI6hpn10Co5uKGDv2soaRD1LUCyeRA +jE7SuUjlwYQBfbkYuqaJwQPEc6uQdDMxTXNqVzZvGVT/96yb/veoWuf6m7I Xin5bOOerslhdnwXU9c8IatrnF1DoJ2Li5pTv7JZGupaifpu6CyVJ+manEQ8 F1PX3CF8iHB27TgduTgUNeeRSnedpdS1Cs/JgeRjdpXKey4NIFpID7TUNW9I 6xpn187TkYvjQvalz1S6ZRdQ16q0d0PabaVWetYj+9mQi6lrzthyiMSF+92v Z6lrW+nJxZV68c8/O3WIutYinRzIfMyOUnmz9E4U2ZGLqWue2JCLqWuHaefi ouYkVzZv0SHOrrXp2A0dH71deidabMnFgbrmiS2HCHXtIPVcHOo69J2fd+kQ da3Fp2s3dA20HesRDbbk4rh03aWumWZLLg7UtZPUc3G8d908Vrvn59J6K3B2 rU3nbugZaDvWI/vZlYupa37Yd4j83KOuadPMxTXNudeV9+gQda3Fp2M3dHaR 15K6ObblYuqaE3blYuraOdq5uKg5yRm+RYc4u9amvRt6SuWdpXeiwNZcTF1z wbZDhLp2iI5cHIqacz/Dy+utQF1rkV72nnzM/lK535K6OfbmYuqafbbmYura ETpycXwo+9L7GV5abwXOrrWp7ob0QvR6S53rkb1szsWBumafvbmYuqZPTy7u rBfv0SHqWos0Fycfc6RU7rWkbo7NuTgu3J+lrtlicy4O1DV92rm4qDlpZt1b L6aulajuhtyF6PWmPHaRMXbnYuqafTbn4rjw9SR1bTuNXFzXoe/X7vx98W2r qGsJn/puGCyVu+wic+zNxdQ1++zOxdQ1faq5uK5D6W+fSuutwNm1NtXd8Ml0 W6M5kY0iC+zLxYG65oS9uZi6pk8zF9c05zGXvT8XU9cepEqU6aLuUrnTLjLH vlwc7143ybPUNTPsy8WBunaIdi4uas7zGq/tuZi6lqG6Gz6Zbqu05LSLjLE1 F1PXXLD5ELlu/j1JXdtORy4ORc15vHZnLv5tnrqW8NyFyR8p6yuV95feyXb2 5mLqmn225mLq2hE6cnFcyr408z0utV3596CuZSjthqSaXv/oQ6V3spfNuThQ 1+yz+RChrqnTk4s768V7dIi61qKwC7+HzZ5S+UjpnWxmcy6Oj11PUNcMsjkX B+qaPu1c3PP74r+VxTePutaitAu/hs32Rx8rvZOt7M/F1DXraBwiP49T13Qo 5+IOHfrOz9t/X3w9QF27U9yFt2Gza6DtWY8ooJCLqWum2Z+LqWvaFM/Stg59 VWu36RBn19oUpzaSSYRGI5+u9YgCSrmYumYYhUOEuqZK4azv06F7XXmPDlHX WtRK/skkQr2ZvvWIAlq5mLpmFaVcTF1TpLRLO3QoycVbdIiza23qJf+fe31d 5Lakbgy1XByoa1bRysXUNS2KZ32PDt1zcXm9FahrLeqXwieTCMUWfldx2UXm UMvFceFahbpmBrVcHKhrWhR3aVuH0lxcWm8Fzq61qQ606SRC9vW3VTx2kTE0 czF1zSZquTgu/Nyjru2kdtY3dSjJxYr14r7tS1pxqmvNXJxMIjxW/BtevZbU zaGai6lrBtHMxdQ1Haq7tK5DzwFfMxe3ty9pxa2utQfaesn/a3j12kXGUM/F 1DVzqOZi6poC9bO+oUPfaVPt98XUtYSOXByqu3Cs9E4U0M/F1DVbqOdi6tp2 6ru0qkNJ2tyiQ5xda9Mx0MaF7Eufw7DHLjLGgVwcqGu20M/F1LW9NHNxQXMy aXOPDlHXWvTk4lbJf6D0ThQ4kIvjQvG11DUwDuTiQF3bSzsX5zQnmzb168XU tf/QMXXQUfK/7nrsImOcyMXUNVscyMVxIftS6poAHbk4JJpTSZtHcnH5fd+h a3WjDffJi+eKf6/wW1I3h34upq7Z4kQupq7tpSMXx4Wvh2pp80QuLr3vW3St 3kXx3nXzWO0+IJfWI6ro5uJAXTOIfi6mru2lJxcnmlNMm4fqxW/XtWYuTnZX suL3K7yW1M2hm4vjveum/FrqGg66uThQ1xRo5+JEc4ppc4sOcXatTXugrZfU v17htYuMoZ6LqWvm0M3F8d5181iNuiZA86x/ak6mRrtRh6hrLTpycejqotp6 RBX9XExds4V6Lqaubae9SxPNSdLmXytbdIiza206Btr4UPal94G2tB5R5UAu DtQ1W+jnYuraXjrO+lRzMjXajTpEXWvRk4s7u8hrSd0cB3JxfKj+WuoaDgdy caCu7aVjl2bqxWntdZsOcXatTcfUQWcXuS2pG+NELqau2eJALo4PZV9KXROg 76xPrkR+1F436hB1rUXDaOul8t7SO1FFPxdT12xxIhdT1/bSuUs/P+v+nod/ N0krJ3Jx6X3fomvVLkr22WO1+4BcWo+oopyLqWsG0c/F1LW99J71yZXISe11 ow5R11o0c/Fjd91WTF7msovMoZqLqWsGUc7F1DUFendpcr5m6sVbdIiza23a A21PSf16mccuMoZ6LqaumUM1F1PXFBjIxcl5mJyRZ35fTF3rysWhq4tq6xFV 9HMxdc0W6rmYuradkVycnIfJK7foEGfX2nQMtHEp+9LMGSi1XWSWA7k4UNds oZ+LqWt7GcrF4e88zKjPHh2irrXoycWdXeS1pG6OA7k4LnW+lofIcQ7k4kBd 28tQLo4LP/cy6qNfL6au/YeOqYPOLnJbUjfGiVxMXbPFgVwcl7Ivpa4JMJqL /+Jl7ow8kovL7/sOXSsb7feeanZRvfROVNHPxdQ1W5zIxdS1vQzn4r94mT1z RTbq+22pay1KXZRU0+tdVC+9E1X0cjF1zSr6uZi6tpepXPwXjh/rnMjFL9e1 wi6s/Bz89uLvJa8ldXNo5WLqmlX0cjF1TYu5XJyrvW7RIc6utSntwq9hs91F 9dI7UUUjFwfqmmm0cjF1TYvJXBwS9dmnQ9S1FsVdeBs2uwba8npEFY1cHJ+4 bqhrttDIxYG6pspkLo4LX0/u0iHOrrUp7sL7sNkz0JbWI6oo5WLqmmHUDpHr hrq2l9lcnKjPPh2irrWo7cLKz8F/X3xbctpF5tDKxdQ1qyjlYuqaInO5OKm9 7tMhzq61qe7CX13pmzrw2kXGUMvFgbpmFbVDhLqmxHguDvdU+vv03xOyUNda 1Hfhbz/Vuqij9E5UUcvF8dlrFeqaGdRycaCuaTGei+O96+bfk7t0iLNrbeq7 sFoqT4bX4npEFc1cTF2zie4h8rMGdW0nU7k4SaVhpw5R11o0c/Fzd13PJMOr 15K6OVRzMXXNIJq5mLqmw1wuTlPpNh3i7Fqb9kCbK5Vnh1evXWQM9VxMXTOH 6iFCXVNgMheHRypV/H3xbauoax25OCQf/d5tPaV3oop+Lqau2UI9F1PXtjOZ i+NDP49v1SHOrrXpGGjjwtdDn8rw6rGLjHEgFwfqmi30czF1bS/zufiRSvfo EHWtRU8uzpT3s8Or0y4yx4FcHBfur6Cu4XIgFwfq2l4WcnGaSvXrxdS1/9Ax dZAp7+eGV7cldWOcyMXUNVscyMVx4esh6pooi7l4vw5R11o0d2HXz8EbpXei in4upq7Z4kQupq7tZTUXb9Yhzq61ae/Cr+74ecGz2+qld6KKbi4O1DWD6Odi 6tpelnNx2KxD1LUWHbswLZVnuq1ceif66ObiuMp1k7yCugaJbi4O1DUFlnNx XPi5t0GHOLvWpmMXZroo7Y5S6Z3oo56LqWvmOHCIXDf/XkBdE0UiF2/VIepa i75d2Po5eLb0Tg6hn4upa7ZQz8XUte2I5OJ9OsTZtTa9OvWz7q0nngrjs4uM cSAXB+qaLQ4cItS1rYjl4l06RF1rMbALKz+3zpbeySEO5OK43rUydQ2cA7k4 UNf2IpeLt+gQZ9fajOzCr+E100VuS+rGOJOLqWuWOHWI/KxLXZNHMBeHLTpE XWsxtAuzF5h/33XZReY4lIupa2Y4k4upazsRzMVxQWCT7m9BXWsxtAuTSYRk jcxjRJ+DuZi6ZoRDhwh1bRuSufhQvfh3C96qa6O7sPJza68ldXOczMXUNQsc zMXUtU3I5eItOsTZtTbDuzCZREhW8dhFxjiaiwN1zQInczF1bQcyuTjs0yHq WovxXVj7ubXLLjLH0VwcF66XUdcgOZqLA3VtBzK5ON67bgTh7Fqb8V2YTCIk q4lsFFngdC6mruFzNBfHhZ971DUpxHLxLh2irrWYysWF7nDaReY4noupa+Cc zsXUNXnkcvEWHeLsWpu5gTbXHW5L6saAyMXUNWiO52LqmjCCuTgcrxf/Lr1L 1yZzcUi6o9JtRBuMXExdwwUiF1PXRBHMxfGhxc15vgV1rcXkQBsXvp6sdRtR BSQXB+oaLhi5mLomh2QuRqgXv1DXZnNx0h3FbiP6gOTiuHBvhbqGAUguDtQ1 OeRy8fnfF38tvUnXJqcO7t3xKXUb0QclF1PXcAHJxXHh60nq2jRCuXifDlHX Wkztwq7/9pmcAiMXU9dwQcnF1DU5RHLxPh3i7FqbuV2YdMcn023kEOdzcaCu gYORi6lrcojl4l06RF1rMbkL0+7IdRs5xPlcHO9dN0krPESOcz4XB+qaMHK5 eIsOcXatzeQuzHSR25K6MSByMXUNmvO5ON67bv49SV2bRjAXhy06RF1rMb8L W//tMzkFRi6mruECkYupa6II5uK4JLFNt7egrrVY2IU//XSvpnvsImOA5OJA XcMFIxdT1+SQzMUY9eLfu6/RtcVdWPlvn8kpQHJxfOhqgLoGBEguDtQ1OeRy Mcrvi6+7b9G11V34Nbx67SJj4ORi6hoqILk4PvTzOHVtjfVcvFmHqGstlnfh bXh12UXmAMrF1DVIcHIxdU2K5bN0rw5xdq3N8tRGMokgs1VkHrBcTF0DBCgX U9dEWNGhcE+bIL8vvj32Bl2TKPlX/ttncgC0XExdQwMsF1PXBFg5S+Pj180W HeLsWhuZkv/PPaddZAy4XByoa2ig5WLq2iqLuXi/DlHXWshcCp9MIpCjwOXi uHA1xUPkOHC5OFDXVlnNxZt1iLNrbUQG2nQSgRwEMRdT17CAy8Vx4ecedW2G 5VwcNusQda2FWC72W1I3B2Qupq4BgZiLqWtrLOfi+OTPGoj14p+FqymPh4jc QOu2pG4M2FxMXYMBMhdT1xaQyMVbdYi61kIwFwenXWQO3FxMXcMANhdT16YR ycX7dIiza20EB9q4ILBJZAngXByoaxjg5mLq2hxiuXiXDlHXWkjmYqddZA7g XBwXBLaJLAGciwN1bQ65XLxFhzi71kZw6sBrFxkDORdT1zAAzsVxQWCTXoZg Lg7Q9eKffz0eIjJGG0LwW1I3B24upq5hgJyLqWtzCObiuLC4Oc+GqWstZLoo 3rtuyEkwc3GgrgGBm4upa3NI5mLwerFXXRPLxX5L6ubAzMXx3nVDToKZiwN1 bQG5XAz8+2LfuiY30LotqRsDNhdT12DAzMXx3nVDRpDJxWGfDlHXWgjm4uC0 i8yBm4upaxjA5mLq2jQyuTiucd0Iwtm1NoIDbXxocXPIMsC5OFDXMMDNxdS1 OcRy8S4doq61kMzFTrvIHMC5OD60uD1kGeBcHKhrc8jl4i06xNm1NoJTB167 yBjIuZi6hgFwLo4PLW7OCxHMxQG6XvzziMdDRMho/42xLrvIHLi5mLqGAXIu pq7NIZiL42oLm5J/W+paC5Eu+htjPXaRMUBzMXUNCNxcTF2bQzIXg9eLveqa WC72W1I3B2Qupq4BAZqLqWsLCF5HDV4vdqtrcgOt25K6MWBzMXUNBshcTF1b QCgX79Mh6loLwVwcnHaROXBzMXUNA9hcTF2bRiQX79Mhzq61ERxo45LENpEV gHNxoK5hgJuLqWtziOXiXTpEXWshmYuddpE5gHNxXJLYKLICcC4O1LU55HLx Fh3i7FobwakDr11kDORcTF3DADgXxyWJbXoXgrk4QNeLf/7xeIisG+13Nd1l F5kDNxdT1zBAzsXUtTkEc3FcWt2eYsvNFSuP+da11S5Kqukeu8gYeLmYuoYG bi6mrs0hmYvB68VedW1xF34Pr15L6uZAy8XUNTTwcjF1bRW5XAz8+2Lfura6 C7+GV69dZAykXByoa5Cg5WLq2irruXizDlHXWizvwtvw6rKLzIGUi+Pj1w11 DQOkXByoayIsn6V7dYiza22Wpzbuw6vHLjIGWC6mrgGClIvj49cNdW2OJR26 /zUruN8Xh3fomkTJ/3OdRS67yBxouZi6hgZYLqauCbBwlqZ/zQquXhwfv27c 6ppMyf9nDaddZAy4XByoa2ig5WLq2iqLuXi/DlHXWshcCv+5T3KQo8Dl4vjk 1RQPkePA5eJAXVtlNRdv1iHOrrURGWj/+sljFxkDMRdT17CAy8XxyZ81qGsz LOfisFmHqGstxHKx35K6OSBzMXUNCMRcTF1bYzkXx6XrLl4ujk9eTXk8ROQG WrcldWPA5mLqGgyQuZi6toBELt6qQ9S1FoK5ODjtInPg5mLqGgawuZi6No1I Lt6nQ5xdayM40MaFxc0hywDn4kBdwwA3F1PX5hDLxbt0iLrWQjIXO+0icwDn 4riwuD1kGeBcHKhrc8jl4i06xNm1NoJTB167yBjIuZi6hgFwLo4Li5vzQgRz cYCuF//86/EQkTHaEILfkro5cHMxdQ0D5FxMXZtDMBfHBYltyr9Ha8WuZz0e IjJdFNe4bshJMHNxoK4BgZuLqWtzSOZi8HqxV10Ty8V+S+rmwMzFcY3rhpwE MxcH6toCgtdRg9eL3eqa3EDrtqRuDNhcTF2DATMXxzWuGzKCTC4O+3SIutZC MBcHp11kDtxcTF3DADYXU9emkcnF8e51Iwhn19oIDrRxtYVNISIA5+JAXcMA NxdT1+YQy8W7dIi61kIyFzvtInMA5+K42sK2EBGAc3Ggrs0hl4u36BBn19oI Th147SJjIOdi6hoGwLk4rrawKS9FMBcH6Hrxz1oeDxEho/X8J7vNgZuLqWsY IOdi6tocgrk4Pra6PR3vUVixb7WFbUFFpIv+xliPXWQM0FxMXQMCNxdT1+aQ zMXg9WKvuiaWi/2W1M0BmYupa0CA5mLq2gKC11GD14vd6prcQOu2pG4M2FxM XYMBMhdT1xYQysX7dIi61kIwFwenXWQO3FxMXcMANhdT16YRycX7dIiza20E B9q4tLo9ZBXgXByoaxjg5mLq2hxiuXiXDlHXWkjmYqddZA7gXByXVjeIrAKc iwN1bQ65XLxFhzi71kZw6sBrFxkDORdT1zAAzsVxaXV73odgLg7Q9eKffzwe IutG+11Nd9lF5sDNxdQ1DJBzMXVtDsFcHJdENir3Hs0Vu1rxeIisdlFSTffY RcbAy8XUNTRwczF1bQ7JXAxeL/aqa4u78Ht49VpSNwdaLqauoYGXi6lrqwhe Rw1eL3ara6u78Gt49dpFxoDKxdQ1SNByMXVtlfVcvFmHqGstlnfhbXh12UXm AMrF1DVIoHIxdU2E5bN0rw5xdq3N8tTGfXj12EXGAMvF1DVAgHIxdU2EWR3K pE283xe/Q9ckSv6f6yxy2UXmQMvF1DU0wHIxdU2AubM0mzbR6sVv0TWZkv91 12MXGQMuFwfqGhpouZi6tsqEDlXSJlwufoOuyVwK/7nvVnIUuFwcl667PESO A5eLA3VtleGztJ424XLxC3RNZKANyW4lB0HMxdQ1LOBycVy67vIQGWYqFxfS JmC9+Ocf37omlouT3UrOAZmLqWtAIOZi6toac7k4lzbhfl/8Fl2TG2jdltSN AZuLqWswQOZi6toCk7k43NVnow5R11oI5uLgtIvMgZuLqWsYwOZi6to0k7k4 Lt2f3aJDnF1rIzjQxgWJbSIrAOfiQF3DADcXU9fmmM3Fd/XZqEPUtRaSudhp F5kDOBfHBYmNIisA5+JAXZtjLhentddtOsTZtTaCUwdeu8gYyLmYuoYBcC6O CxLb9C7GdOi77PrIxQG6Xvzzr8dDRMZoQ2a3klPg5mLqGgbIuZi6NsfIWZr8 tDjNxcljInB2rY1MF8W71w05CWYuDtQ1IHBzMXVtjoGzvvK3nTfqEHWthVgu 9ltSNwdmLo53rxtyEsxcHKhrC4zs0q/zMFMvBv59sW9dkxto3ZbUjQGbi6lr MGDm4nj3uiEjDJ31t/MwOSOhf18cPOuaYC4OTrvIHLi5mLqGAWwupq5NM7RL 7+dh8sotOsTZtTaCA218bHV7yCrAuThQ1zDAzcXUtTlGz/rK33YG/n3x7you RxHJXOy0i8wBnIvjY6sbRFYBzsWBujbH8C79iZc59QGuF1+reDxEBKcOvHaR MZBzMXUNA+BcHB9b3Z73MX7W/8bL3BkJnYuDU10TMtrKbiXa4OZi6hoGyLmY ujbH+C69TsbcK5FzcXxsdYMAEemiT3W3ElVAczF1DQjcXExdm2MqFxdqr+D1 Yq+6JpaL/ZbUzQGZi6lrQIDmYuraAnO5OFd7Rf598XXX4yEiN9C6LakbAzYX U9dggMzF1LUFJnNxSNRnnw5R11oI5uLgtIvMgZuLqWsYwOZi6to0k7k4Lnw9 tEuHOLvWRnCgjUsiG0UWAM7FgbqGAW4upq7NMZuLE/XZp0PUtRaSudhpF5kD OBfHJZGtIgsA5+JAXZtjLhcntdd9OsTZtTaCUwdeu8gYyLmYuoYBcC6OSyIb 9Sqmzvpn7XWfDlHXWqwb7Xc13WUXmQM3F1PXMEDOxdS1OeZ2aVJ73adDnF1r s9pFSTXdYxcZAy8XU9fQwM3F1LU5Js/6tPa6T4eoay1mjTYzvHotqZsDLRdT 19DAy8XUtVUmd2mmXgz8+2LfujbXRdnh1WsXGQMlF1PXcEHLxdS1VebP+uR/ bIL9fbF7XZsw2vvPrW/Dq8suMgdGLqau4YKSi6lrcizs0t+O36lDnF1rM9xF 6c+tk0kO0Y0jEwDkYuoaOBi5mLomx8pZ/6mcr2JQ11pM5eLC8Oq0i8xxPBdT 18AByMXUNWFWdmn1fJWBs2tt5gba3PDqtqRuDIhcTF2D5ngupq4Js5iL9+sQ da3FZC4O9+5IJjnIUTByMXUNF4hcTF0TZTUXb9Yhzq61mRxo49L92U/yGDkD SC4O1DVcMHIxdU2O5VwcNusQda3FbC6+d8dzkoOcAyQXx6X7s9Q1DEBycaCu ybGci+PCz70NOsTZtTaTUwdJd2S6jRwCJRdT13ABycVx6f4sdW0OiVy8VYeo ay3GjDZzgfmtFZddZA6MXExdwwUlF1PX5BDJxft0iLNrbUa6qPxz61y3kTOc zcXUNQtg5GLqmhxiuXiXDlHXWgzswsrPrT+ZbiOnOJmLqWsWOJuLqWs7kMvF W3SIs2ttRnbh1/Ca6SK3JXVjnMrFgbpmhpO5mLq2A8FcHLboEHWtxdAurP3c 2m9J3RyncnFc+bqhruFyKhcH6to2BHNxXFjcnOdbUNdaDO3C+1CavDLtNnKG g7mYumaEo4fIdUNdk0MyF5+sF4f36troLqz83NprSd0cJ3Mxdc0CB3MxdW0T gtdRH60Xx5Wvm1fp2vAu/NWVZ3d47SJjHM3FgbpmgaOHCHVtAzK5OOzTIepa i/FdWPu5tcsuMsfRXBxfcb2MugbJ0VwcqGs7kMnF8d51Iwhn19qM78J7XT19 cnmDyCKnczF1DZ/zh8jPq6hrUojl4l06RF1rMZWLC93htIvMcTwXU9fAOZ2L qWvyyOXiLTrE2bU2cwNtrjvcltSNAZGLqWvQHD9EqGvCCObicLxe/O8FL9O1 yVwcku6odBvR5njooa6BA5GLqWuiCObi+NDCpuTfgrrWYnKgjQtfD9W6jagC kosDdQ2X44cIdU0YyVyMUC9+oa7N5uKkO4rdRvQ5Hnqoa+CA5OJAXZND8Dpq jHrx+3Rtcuoguei81G1EH5RcTF3D5fghQl0TRigX79Mh6lqLqV347I5ct5FD HA891DVwUHIxdU0OkVy8T4c4u9Zmbhcm3fHJdBs5xPlcHKhr4Jw/RKhrsojl 4l06RF1rMbkL0+7IdRs5xPHQ8/Oy6yZphYfIcc7n4kBdE0YuF2/RIc6utZnc hZkucltSNwZELqauQQNyiFw3/xqhrk0jmIsDRr34dzNeo2vzuzD5I2V+S+rm QAg9gboGDEQupq6JIpiL49Lq9jzegrrWYkWnfl5/q6Z77CJjgOTiQF3DBeQQ oa6JIZmLMerF/171Hl1b3IWV//aZnAIj9Py89mqAugYESC4O1DU5BK+jBqkX /3vde3RtdRd+Da9eu8gYOLmYuoYK0iHy83rq2hrruXizDlHXWizvwtvw6rKL zAETegJ1DROcXExdk2L5LN2rQ5xda7M8tZFMIqxvEVkDLBdT1wABOkSoayIs nvX7dYi61kKi5F/5b5/JAYBCD3UNErBcTF0TYHWXbtYhzq61kSn5/9xz2kXG gMvFgbqGBtAhQl0TYfms361D1LUWMpfCJ5MI5ChAoYe6BglcLg7UtVWWd+le HeLsWhuRgTadRCAHQczF1DUsgA4R6poIEmf9Vh2irrUQy8V+S+rmAAo91DVI EHMxdW0NkV26T4c4u9ZGbqB1W1I3Bmwupq7BAHSIUNdEkDnrN+oQda2FYC4O TrvIHEChh7oGCWwupq5NI7NLt+kQZ9faCA60cWFxc8gywLk4UNcwADpEqGsi iOXiXTpEXWshmYuddpE5gEIPdQ0S4FwcqGtzyOXiLTrE2bU2glMHXrvIGMi5 mLqGAdAhQl0TQTAXB+h68c+/Hg8RGaMNIfgtqZsDKPRQ1yBBzsXUtTkEc3Fc kGjt1jB1rYVMF8V71w05CWYuDtQ1IIAOEeqaCJK5GLxe7FXXxHKx35K6OYBC D3UNEsxcHKhrCwheRw1eL3ara3IDrduSujFgczF1DQagQ4S6JoLYWQ/9++Lg WdcEc3Fw2kXmAAo91DVIYHMxdW0auV26RYc4u9ZGcKCNDy1sChEBOBcH6hoG QIcIdU0EwbMe+PfFv3ddjiKSudhpF5kDKPRQ1yABzsWBujaH4C4Frhdfdz0e IoJTB167yBjIuZi6hgHQIUJdE0H2rIfOxcGprgkZrec/2W0OoNBDXYMEORdT 1+aQ3qWirXF2rQeRLvobYz12kTFAczF1DQigQ4S6JoLkWQ9eL/aqa2K52G9J 3RxAoYe6BgloLqauLSB67RZ0Lnara3IDrduSujFgczF1DQagQ4S6JoLQWb9P h6hrLQRzcXDaReYACj3UNUhgczF1bRqRXbpPhzi71kZwoI1Lq9tDVgHOxYG6 hgHQIUJdE0EsF+/SIepaC8lc7LSLzAEUeqhrkADn4kBdm0MuF2/RIc6utRGc OvDaRcZAzsXUNQyADhHqmgiCuThA14t//vF4iKwb7Xc13WUXmQMo9FDXIEHO xdS1OQRzcVwSaC3f8tSLH614PERWuyippnvsImPg5WLqGhpAhwh1TQTJXAxe L/aqa4u78Ht49VpSNwdQ6KGuQYKXi6lrqwheRw1eL3ara6u78Gt49dpFxkDK xYG6BgnSIUJdk2D9rN+sQ9S1Fsu78Da8uuwicwCFnp8GrhvqGgZIuThQ10QQ GMh36hBn19oI6NR3x3jsImOA5WLqGiBwh8h1Q12bY/G7br8OUddaSAzcn+ss ctlF5sAKPYG6BgdYLqauCbA6B7xZhzi71kam5P/TktMuMgZcLg7UNTTgDhHq 2iISc8BbdYi61kJm4P7cJznIUdBCz08rV1M8RI4Dl4sDdW0VgWujduoQZ9fa yP0szW1J3RiIuZi6hgXmIfLTEnVtBonfDG3VIepaC7Fc7Lekbg7A0BOoa0gg 5mLq2hoif0tjnw5xdq2N3EDrtqRuDNhcTF2DAfIQoa4tIPa3NAB/X/zdiGNd E8zFwWkXmQMy9FDXgIDNxdS1aURy8T4d4uxaG8GBNi5ItEZWAM7FgbqGAeQh Ql1bQPZvTALnYr+6JpmLnXaROSBDD3UNCOBcHKhrc8jlYszfF/82E/zqmuDU gdcuMgZyLqauYQB5iFDXFhDMxQG6Xvzzr8dDRGzg9ltSNwdk6KGuAYGci6lr cwjm4riwuj3l91hr5ndBojUw5M5KtyV1Y2Dm4kBdAwLzEKGuzSOZi8HrxV51 TXDg9lpSNwdk6Plp6rohJ8HMxYG6toDgddTg9WK3uiZ4VnrtImPA5mLqGgzA h8h1Q0aQycVhnw5R11rIDtwuu8gcqKEnUNdAgM3F1LVpZHJxvHvdCMLZtTbS Z6Voa2QC4FwcqGsYAB8i1LUpxHLxLh2irrWQDT0uu8gcuKHnpz3R1sgEwLk4 UNfmkMvFyL8v/teWz1FEVFd8dpExkHMxdQ0D4EMkNifa2isQzMUBul7805jH Q0Ts8ja/JXVz4IYe6hoGyLmYujaHYC6Oj61sS+d7LLUn2hoGcj/7cltSNwZo LqauAYF5iPy0RF2bQTIXg9eLveqa7M++XHaROSBDD3UNCNBcTF1bQPA6avB6 sVtdE/1zKD67yBiwuZi6BgPkIUJdW0AoF4P//8WudU32z4S67CJzQIYe6hoQ sLmYujaNSC7ep0OcXWsjONDGJYHWyBLAuThQ1zCAPESoawuI5eJdOkRdayH7 30q67CJzQIYe6hoQwLk4UNfmkMvFwL8v9q1rglMHXrvIGMi5mLqGAeQhQl1b QDAXB+h68c8/Hg+R9YH7u5rusovMARl6qGtAIOdi6tocgrk4Li1vUOk9ZFrx eIisdlFSTffYRcbAy8XUNTTgDpGfRqhr00jmYvB6sVddW9yF38Or15K6OdBC D3UNDbxcTF1bRfA6avB6sVtdW92FX8Or1y4yBlQupq5BgnSI/LyeurbGei7e rEPUtRbLu/A2vLrsInMAhR7qGiRQuZi6JsLyWbpXhzi71mZ5auM+vHrsImOA 5WLqGiBAhwh1TYTZsz6TNvF+X/wOXZMo+X+us8hlF5kDKPRQ1yABy8XUNQHm dkE2baLVi9+iazIl/+uuxy4yBlwuDtQ1NIAOEeqaCBNnfSVtwuXiN+iazKXw n/tuJUcBCj3UNUjgcnGgrq0yvAvqaRMuF79A10QG2pDsVnIQxFxMXcMC6BCh rokwlYsLaROwXvzzj29dE8vFfkvq5gAKPdQ1SBBzMXVtjblcnEubcL8vfouu yQ20bkvqxoDNxdQ1GIAOEeqaCJO5ONzVZ6MOUddaCObi4LSLzAEUeqhrkMDm YuraNJO5OC7dW9miQ5xdayM40MaF1e0hqwDn4kBdwwDoEKGuiTCbi+/qs1GH qGstJHOx0y4yB1Dooa5BApyLA3VtjsnrqBP12aZDnF1rIzh14LWLjIGci6lr GAAdItQ1EcbO+sxf27q1Ap2Lg1NdkzHakNmt5BRAoYe6BglyLqauzTGyC7J/ beveCnIujgurGwSITBfFu9cNOQlmLg7UNSCADhHqmgjdZ33lr21t1SHqWgux XOy3pG4OoNBDXYMEMxcH6toCnbug/te29ukQZ9fayA20bkvqxoDNxdQ1GIAO EeqaCAO5ODkPkzMS+vfFwbOuCebi4LSLzAEUeqhrkMDmYuraNCO5ODkPk1du 0SHOrrURHGjjYyvbQiQAzsWBuoYB0CFCXRNhKBeHv/Mwoz7Avy/+d8+nrknm YqddZA6g0ENdgwQ4Fwfq2hxDuTguXXcfOwC3Xvzvvs9RRHDqwGsXGQM5F1PX MAA6RKhrIozm4r94mTsjoXNxcKprQkbr+U92mwMo9FDXIEHOxdS1OYZz8V+8 zL0SORfHx1Y2BhSRLkovlCcHAc3F1DUggA4R6poIU7m4UHsFrxd71TWxXOy3 pG4OoNBDXYMENBdT1xaYy8W52ivy74uvux4PEbmB1m1J3RiwuZi6BgPQIUJd E2EyF4dEffbpEHWthWAuDk67yBxAoYe6BglsLqauTTOZi+PC/dktOsTZtTaC A21cWt4gsghwLg7UNQyADhHqmgizuThRn306RF1rIZmLnXaROYBCD3UNEuBc HKhrc0xeR31Xn306xNm1NoJTB167yBjIuZi6hgHQIUJdE2E8F4eQ+dvO+3SI utZi3Wi/q+kuu8gcQKGHugYJci6mrs0xnovj3esmeRY5F8el5S3CY7WLkmq6 xy4yBl4upq6hAXSIUNdEmMrFz9rrPh2irrWYHbgzw6vXkro5gEIPdQ0SvFxM XVtlLhcntdd9OsTZtTZzXZQdXr12kTFQcjF1DReQQ+TnpdQ1ASZzcfhTn806 RF1rMTFw339ufRteXXaROTBCD3UNF5RcTF2TYzIXx8euJ/bpEGfX2gx3Ufpz 62SSQ2zDyCQAuZi6Bs75Q+TnVdQ1KeZz8d8JulWHqGstpnJxYXh12kXmOB56 qGvgAORi6powC7k4VM9XGTi71mZuoM0Nr25L6saAyMXUNWiOHyLUNWEWc/F+ HaKutZjMxeHeHckkBznK8dBDXQMHIhdT10RZzcWbdYiza20mB9q4dG/lkzxG zgCSiwN1DZfjhwh1TZjlXBw26xB1rcVsLr53x3OSg5zjeOihroEDkosDdU2O 5VwcF65VQHLxq3Rtcuog6Y5Mt5FDoORi6houxw8R6powErl4qw5R11qMDdyl n1unkxzkJMdDD3UNHJRcTF2TQyQX79Mhzq61Gemi8s+tc91GznA2F1PXLICR i6lrcojl4l06RF1rMbALKz+3/mS6jZziZOihrlngbC6mru1ALhdv0SHOrrUZ 2YVfw2umi9yW1I1xLBdT18xwMhdT13YgmIvDFh2irrUY2oW1n1v7Lamb41Do oa6Z4Vgupq5tQzAXxwWJbWq9b3Xl9+na0C68D6XJK9NuI2c4mIupa0Y4dIhQ 17YhmYuP1ovfq2uju7Dyc2uvJXVznMzF1DULHMzF1LVNyOXio78vfrOuDe/C z3U3faXXLjLG0VwcqGsWOJmLqWs7kMnFYZ8OUddajO/C2s+tXXaROY7m4rh0 3aWuQXI0Fwfq2g5kcnG8d90Iwtm1NuO7MJlESNaT2Soyz+lcTF3D52gujkvX XeqaCGK5eJcOUddaTOXiQnc47SJzHM/F1DVwTudi6po8crl4iw5xdq3N3ECb 6w63JXVjQORi6ho0x3MxdU0YwVwcjteL/y28TNcmc3FIuqPSbUQbjFxMXcMF IhdT10QRzMXxodXt6Xnf+nqv07XJgTYu3J91W1I3BkguDtQ1XDByMXVNDslc jFAvfqGuzebipDuK3Ub0AcnFceH+LHUNA5BcHKhrcsjl4vO/L/7aqjfp2uTU wb07cheik0Og5GLqGi4guTgu3J+lrs0hlIv36RB1rcXULnx2R67byCEwcjF1 DReUXExdk0MkF+/TIc6utZnbhUl3fDLdRg5xPhcH6ho4GLmYuiaHWC7epUPU tRaTuzDtjly3kUOcz8Xx7nWTPMtD5Djnc3Ggrgkjl4u36BBn19pM7sJMF7kt qRsDIhdT16A5n4vj3esmeZaHyDCCuThs0SHqWov5XZj8kTK/JXVzYORi6hou ELmYuiaKYC6OSyIb1Xjf9nqv0rWFXfi5nvjrMY9dZAyQXByoa7hg5GLqmhyS uRijXvzv3nt0bXEXVv7bZ3IKkFwcH7ueoK4BAZKLA3VNDrlcjPL74mvT3qJr q7vwa3j12kXGwMnF1DVUQHJxfOx6grq2wHou3qxD1LUWy7vwNry67CJzAOVi 6hokOLmYuibF8lm6V4c4u9ZmeWojmUQQ2iwyDVgupq4BApSLqWsirOhQuKdN kN8Xfz/0Cl2TKPlX/ttncgC0XExdQwMsF1PXBFg5S+MT180WHeLsWhuZkv+1 iscuMgZcLg7UNTTQcjF1bZXFXLxfh6hrLWQuhU8mEchR4HJxXLhW4SFyHLhc HKhrq6zm4s06xNm1NiIDbTqJQA6CmIupa1jA5eK4cK3CQ2SY5VwcNusQda2F WC72W1I3B2Qupq4BgZiLqWtrLOfi+Oy1Cl4ujgvXKh4PEbmB1m1J3RiwuZi6 BgNkLqauLSCRi7fqEHWthWAuDk67yBy4uZi6hgFsLqauTSOSi/fpEGfX2ggO tHFBYpvICsC5OFDXMMDNxdS1OcRy8S4doq61kMzFTrvIHMC5OC5IbBRZATgX B+raHHK5eIsOcXatjeDUgdcuMgZyLqauYQCci+OCxDa9C8FcHKDrxT//ejxE ZIw2hOC3pG4O3FxMXcMAORdT1+YQzMVxYXV7xt63vt5LdE2mi+K964acBDMX B+oaELi5mLo2h2QuBq8Xe9U1sVzst6RuDsxcHO9dN+QkmLk4UNcWkMvFwL8v 9q1rcgOt25K6MWBzMXUNBsxcHO9dN2QEmVwc9ukQda2FYC4OTrvIHLi5mLqG AWwupq5NI5OL4yrXjSCcXWsjONDGh1a3h6wCnIsDdQ0D3FxMXZtDLBfv0iHq WgvJXOy0i8wBnIvjQ6sbRFYBzsWBujaHXC7eokOcXWsjOHXgtYuMgZyLqWsY AOfi+NDq9rwPwVwcoOvFP494PESEjPbfGOuyi8yBm4upaxgg52Lq2hyCuTiu t7ItK+/7Yl0T6aK/MdZjFxkDNBdT14DAzcXUtTkkczF4vdirronlYr8ldXNA 5mLqGhCguZi6toDgddTg9WK3uiY30LotqRsDNhdT12CAzMXUtQWEcvE+HaKu tRDMxcFpF5kDNxdT1zCAzcXUtWlEcvE+HeLsWhvBgTYuiWwUWQA4FwfqGga4 uZi6NodYLt6lQ9S1FpK52GkXmQM4F8clka0iCwDn4kBdm0MuF2/RIc6utRGc OvDaRcZAzsXUNQyAc3FcEtmoVyGYiwN0vfjnH4+HyLrRflfTXXaROXBzMXUN A+RcTF2bQzAXx6XlDRp538Z6L9G11S5Kqukeu8gYeLmYuoYGbi6mrs0hmYvB 68VedW1xF34Pr15L6uZAy8XUNTTwcjF1bRW5XAz8+2Lfura6C7+GV69dZAyk XByoa5Cg5WLq2irruXizDlHXWizvwtvw6rKLzIGUi+MT1w11DQOkXByoayIs n6V7dYiza22Wpzbuw6vHLjIGWC6mrgGClIvjE9cNdW2OJR26/zUruN8Xh3fo mkTJ/3OdRS67yBxouZi6hgZYLqauCbBwlqZ/zQquXhyfuG7c6ppMyf9axWMX GQMuFwfqGhpouZi6tspiLt6vQ9S1FjKXwn/ukxzkKHC5OD57rcJD5DhwuThQ 11ZZzcWbdYiza21EBtq/fvLYRcZAzMXUNSzgcnF89lqFh8gwy7k4bNYh6loL sVzst6RuDshcTF0DAjEXU9fWWM7Fcem6i5eL47PXKh4PEbmB1m1J3RiwuZi6 BgNkLqauLSCRi7fqEHWthWAuDk67yBy4uZi6hgFsLqauTSOSi/fpEGfX2ggO tHFhdXvIKsC5OFDXMMDNxdS1OcRy8S4doq61kMzFTrvIHMC5OC6sbhBZBTgX B+raHHK5eIsOcXatjeDUgdcuMgZyLqauYQCci+PC6va8D8FcHKDrxT//ejxE ZIw2hOC3pG4O3FxMXcMAORdT1+YQzMVxQWSj6u87sZ5rXZPporjKdUNOgpmL A3UNCNxcTF2bQzIXg9eLveqaWC72W1I3B2YujqtcN+QkmLk4UNcWELyOGrxe 7FbX5AZatyV1Y8DmYuoaDJi5OK5y3ZARZHJx2KdD1LUWgrk4OO0ic+DmYuoa BrC5mLo2jUwujnevG0E4u9ZGcKCN661sC5EAOBcH6hoGuLmYujaHWC7epUPU tRaSudhpF5kDOBfH9VY2hkgAnIsDdW0OuVy8RYc4u9ZGcOrAaxcZAzkXU9cw AM7Fcb2VbXkngrk4QNeLf1byeIgIGa3nP9ltDtxcTF3DADkXU9fmEMzF8bHl DWq/x9J6KxsDikgX/Y2xHrvIGKC5mLoGBG4upq7NIZmLwevFXnVNLBf7Lamb AzIXU9eAAM3F1LUFBK+jBq8Xu9U1uYHWbUndGLC5mLoGA2Qupq4tIJSL9+kQ da2FYC4OTrvIHLi5mLqGAWwupq5NI5KL9+kQZ9faCA60cWl5g8giwLk4UNcw wM3F1LU5xHLxLh2irrWQzMVOu8gcwLk4Li1vEVkEOBcH6toccrl4iw5xdq2N 4NSB1y4yBnIupq5hAJyL49LyBr0OwVwcoOvFP/94PETWjfa7mu6yi8yBm4up axgg52Lq2hyCuTguyWxV9X3H1/Ota6tdlFTTPXaRMfByMXUNDdxcTF2bQzIX g9eLvera4i78Hl69ltTNgZaLqWto4OVi6toqgtdRg9eL3era6i78Gl69dpEx oHIxdQ0StFxMXVtlPRdv1iHqWovlXXgbXl12kTmAcjF1DRKoXExdE2H5LN2r Q5xda7M8tXEfXj12kTHAcjF1DRCgXExdE2FWhzJpE+/3xe/QNYmS/+c6i1x2 kTnQcjF1DQ2wXExdE2DuLM2mTbR68Vt0Tabkf9312EXGgMvFgbqGBloupq6t MqFDlbQJl4vfoGsyl8J/7ruVHAUuF8el6y4PkePA5eJAXVtl+Cytp024XPwC XRMZaEOyW8lBEHMxdQ0LuFwcl667PESGmcrFhbQJWC/++ce3ronl4mS3knNA 5mLqGhCIuZi6tsZcLs6lTbjfF79F1+QGWrcldWPA5mLqGgyQuZi6tsBkLg53 9dmoQ9S1FoK5ODjtInPg5mLqGgawuZi6Ns1kLo5L91a26BBn19oIDrRxQWSj yALAuThQ1zDAzcXUtTlmc/FdfTbqEHWthWQudtpF5gDOxXFBZKvIAsC5OFDX 5pjLxWntdZsOcXatjeDUgdcuMgZyLqauYQCci+OCyEa9ijEd+i67PnJxgK4X //zr8RCRMdqQ2a3kFLi5mLqGAXIupq7NMXKWJj8tTnNx8pgInF1rI9NF8e51 Q06CmYsDdQ0I3FxMXZuj56zPpOGk9rpRh6hrLcRysd+Sujkwc3G8e92Qk2Dm 4kBdW6C9C7JpOFMvBv59sW9dkxto3ZbUjQGbi6lrMGDm4nj3uiEjNM76++9y b+dhckZC/744eNY1wVwcnHaROXBzMXUNA9hcTF2bproLkkicnIfJK7foEGfX 2ggOtPGx5Q0iiwDn4kBdwwA3F1PX5mjm4kIazqgP8O+L/93zqWuSudhpF5kD OBfHx5a3iCwCnIsDdW2Odi7OpeFs7RW4Xvzvvs9RRHDqwGsXGQM5F1PXMADO xfGx5Q16HR25ONw15zde5s5I6FwcnOqakNFWdivRBjcXU9cwQM7F1LU5OnJx XLq/olh7Rc7F8bHlLcJDpIvSSwPIQUBzMXUNCNxcTF2boycXZ35LnK29gteL veqaWC72W1I3B2Qupq4BAZqLqWsLdFxHnWhOpob8tbL45lHXWsgNtG5L6saA zcXUNRggczF1bYHyWf9tOM2/Pb1Ph6hrLQRzcXDaRebAzcXUNQxgczF1bZrS LkgMJ83F98f26RBn19oIDrRxSWaryDzAuThQ1zDAzcXUtTmyZ/09RSaa89vd n/T7Gfn3xZ51TTIXO+0icwDn4rgks1lkHuBcHKhrc5TOvq8UmakXJ7XXfTrE 2bU2glMHXrvIGMi5mLqGAXAujksyW/UmCrk4SZHNvz29T4eoay3WjbZ0aQA5 BW4upq5hgJyLqWtzFM++JPkmq9wf26dDnF1rs9pF5UsDyBnwcjF1DQ3cXExd m6OYi8PfOZfRnLT2uk+HqGstZo02M7x6LambAy0XU9fQwMvF1LVV6ppz3U3X ytSLgX9f7FvX5rooO7x67SJjoORi6houaLmYurZKLRf/nXi1vz29WYeoay0m jLZyobzLLjIHRi6mruGCkoupa3JU82S4n4zpetfK+3SIs2tthruofqG8xy4y BkAupq6Bg5GLqWtyNHNxRXM+lfNVcAOn1nuRrk3l4sLw6rSLzHE8F1PXwAHI xdQ1Ydq5uKw51fNVavOoay3mBtrc8Oq2pG4MiFxMXYPmeC6mrgnTkYtDSXOe qRkiF79N1yZzcbh3R+3SAKINRi6mruECkYupa6J05OK4UHztXh3i7FqbyYE2 Lt1b+SSPkTOA5OJAXcMFIxdT1+ToycWVevHPvzt1iLrWYjYX37ujfmkA0QUk F8el+1ZR1zAAycWBuiZHOxeXNed+vm7RIc6utZmcOki6o35pANEEJRdT13AB ycVx6d4KdW2Oei4OIVQ057ZbcH5f/DZdGzPazAXmt1ZcdpE5MHIxdQ0XlFxM XZOjnovj3eum/NptOsTZtTYjXZS9wPzeiscuMsbZXExdswBGLqauydHMxRXN ee4WnFz8Il3rGbgzw+sn00VeS+rmOJmLqWsWOJuLqWs7aOfisuY8vv9gcvGr dK3dRdnhNdNFbkvqxjiRi6lrtjiZi6lrO+jIxaGkOc954dO5+JW61hi476Xy 7AXm33dddpE59EMPdc0WJ3IxdW0vHbk4PlZ/7TYd4uxam2oXJX2SDK/JK9Nu I2dQzsXUNYPo52Lq2l56cnFnvXiPDlHXWjRzcWF4zXSH15K6OVRDD3XNIMq5 mLqmQDsXlzXnnou36BBn19q0B9rc8JrtDq9dZAz1XExdM4fqIUJdU6CRi+86 VHvtmd8XU9e6cnG4f/RPZbe67CJz6Odi6pot1HMxdW071Vyc6lD1tVt0iLNr bToG2rh0f0WxOzx2kTEO5OJAXbOFfi6mru2lmYsrmvOcyz6Qi6lrPbk4Uz7P dofTLjLHgVwcl+5bQF3D5UAuDtS1vbRzcVlzHtd4HcnFr9e1jqmDTPk81x1u S+rGOJGLqWu2OJCL49L9FdQ1OTpycShpzvO1R3Jx8r6v07XywJ25wPz2is/9 zPJbUjeHfi6mrtniRC6mru2lIxfHpd7XSm3XYwvqz75Z10pdlL3A/P6K9MxK 1iNn0MvF1DWr6Odi6tpeenJxZ714jw5R11oUduHoz62rlwYQXbRCD3XNKnq5 mLqmRTsXlzXn/totOsTZtTalXfg1bGa6KOmOxqUBRBOVXExdM41WLqauaVHO xSUdyr52nw5R11oUd2H2AvPvu4+B9rkeOYJC6KGumUYlF1PXVCmepUUdyrx2 nw5xdq1NcWojGUqTVe6PNS4NIJoo5WLqmmEUDhHqmiqFmm9Fh7Kv3adD1LUW tZL/wM+tc91GDqGVi6lrVlHKxdQ1RUo137IOZV67T4c4u9amONDGpetuulam i9yW1I2hlosDdc0qWrmYuqZFseZb06HcayvrLW5g/jHq2i+1XPzXT7WfW7cv DSC6qOXiuHTdpa6ZQS0XB+qaFsWab1WHcq8tr7e0edS1FtWBNiS7NVnvWjmd DCEH0czF1DWbqOXiuHTdpa5to1bzrehQ7rV7dIi61qKZi5/d8f3arksDiC6q uZi6ZhDNXExd06Fa8y3rUOa1W3SIs2tt2gNtveRfnAwhh1DPxdQ1c6jmYuqa AvWab02H/r69t+oQda1FRy4O1V3YcWkA0UU/F1PXbKGei6lr26nXfKs69Dur vVOHOLvWpmOgjQvF13ZcGkA0OZCLA3XNFvq5mLq2l3rNt65D4Z429+gQda1F Ty5ulfxblwYQXQ7k4rhQ3BbqGhgHcnGgru2lXvOt61Bc47rZokOcXWvTMXXQ UfK/Xuaxi4xxIhdT12xxIBfHheJrqWuL1Gu+dR36XWWrDlHXWtSNNmR2a+61 9UsDiC76uZi6ZosTuZi6tpd6zbeuQ38N/N0T3zzqWot6F8W71035tfVLA4gm urk4UNcMop+LqWvbGf3bzvkGOtab2zrqWoNmLn7s1txrm5cGEEV0c3G8e92U t4W6hoNuLg7UNSW+zq9MvbhDc/bpEGfX2rQH2npJ/WvJaxcZQz0XU9fMoZuL 493rpvxa6toitZpql+Zs1CHqWouOXBy6uqiyHtFFPxdT12yhnoupazpUa6o9 mrNNhzi71qZjoI2P1V/bcWkAUeJALg7UNVvo52Lqmg4Df9s59+p9OkRda9GT izu7yGtJ3RwHcnF8rL4t1DUcDuTiQF1T4ic25pSmQ3O26RBn19p0TB10dpHb kroxTuRi6potDuTi+Fj9tdQ1CWo11a5c3LHe1GZ1PPZqXWsYbbVUfnut35K6 OfRzMXXNFidyMXVNi2pNtScXd6w3DGfX2lS76FPdrel0f3E9oolyLqauGUQ/ F1PXtCjXVDvrxXt0iLrWopmLC7s181qvJXVzqOZi6ppBlHMxdU2VUk21R3O2 6RBn19q0B9qekvp112MXGUM9F1PXzKGai6lrqmRrqv2/yz3z+2LqWlcuDl1d VFmP6KKfi6lrtlDPxdQ1RTI11YYOJa/vXG9wo6hrLToG2rjU+1qp7SKzHMjF gbpmC/1cTF3TIltTrerQs4EDuZi61pOLO7vIa0ndHAdycVzq3BYeIsc5kIsD dU2LTE21oUO5BsQ3irrWomPqoLOL3JbUjXEiF1PXbHEgF8el3tdKbddLedZU qzpUaEB4m6hrDcpG+11Nb3ZR/6UBZDv6uZi6ZosTuZi6pklSU23oUKkByQ2i rjUpdVFSTa930dClAWQvermYumYV/VxMXVMlralWdSjz4iO5+OW6VviYlf+W OvvakUsDyGa0cjF1zSp6uZi6dohMvbhXc7boEGfX2pQ+5tew2e6isUsDyFZ2 52Lqmn20cjF17RzJ/9jUpzn7dIi61qL4MW/DZtdAW1yP6LI39FDX7LM7F1PX IPjt+KYO/b1imw5xdq1N8WMmkxzt15bXI5pszMXUNSfszcXUNQw+lfO1+JJd OkRda1H7mMkkR+u1Xkvq5tgWeqhrTtiYi6lrQFTP1/wLdukQZ9faVD9mMslR f63bkroxtuZi6poLth0i1DUgPsXztfKSvvVmNuZ7s6hrT+ofM5nkyL526NIA osDeXExds8/WXExdg6F0vlZesEuHOLvWpv4x66Xy3tI70WRzLg7UNfvszcXU NQw+yfnaWS/eo0PUtRb1j/mc5EhfPnhpAFFgcy6OS/d3o67ZYnMuDtQ1DO7n a4fm7NMhzq61qX/Mdqm8ONlADrE7F1PX7LM5F8el+7PUNX1u339NzdmsQ9S1 FvWPmU5y5BsYuDSAKLA3F1PX7LM7F1PXMEjmheNCed2tOsTZtTb1j9lRKh+5 NIAosCcXU9c8sTcXU9cweFp04eyrXNksuDG3JepajsrH/GS6rdBAx3pEhx2h h7rmiT25mLqGxuP7L3/21a9sltoU6loP5Y/ZWSr//R7320WGkBxoM8Mrdc0B O3IxdQ2N57xwMRfv1yHqWhe1j9lVKu+5NIBoITfQZodX6pp5xMsY1DVIHtdL VXLxZh3i7Fon1Y+Zdlu1AbddZAehgbZSQ6KuWUf+u5i6hsfzd0SVXBz26RBn 14aofMyOUnmz9E4UERlo6zUk6pppNuRi6hog91xc1JzkymZpHeLs2ijlj9nx 0duld6KFWC4uDK/UNfvs+C6mrqFxGwlqmvOdn2V1iLNrM9Q+ZtdA27Ee0UAu F+eGV+qafbbk4kBdQ+OTfNuF/Nn3dTgI6xBn1+aofsyegbZjPbIfwVwc7npF XfPCpu9i6hoUyUhQ1px7XVlShzi7NkP5Y3Z2kfeSuhkEc3FcurdMXbPPrlxM XcMi2c3terG0DnF2bY7Sx+wplXeW3okCkrk4c7Ujdc0B276LqWtAPEeCrlxc Xm9mEx7tUdeaZD9mf6n8DSV1IwheR5252pG6Zp+tuZi6BkNmN/fk4tJ6MxvA 2bUZMh8zLb3XX9+5HtnL+kCb+T3grWXqmnX25mLqGgbpSNBZL5bUIc6uzZD9 mCOlcv8ldSOsDrTZ3wPeW6aumWZzLg7UNQwe12515WJBHeLs2hyZj5krvTca 2LZ5pJOlgbbye0Dqmh825+K48PUQde0It+/Yrt8XB0Ed4uzaCs+POVgq999F FlgYaOu/B6SuOWF3LqauYXCfey5qTvrbp9J6g+/N2bUlko+ZLb23GyAnWczF yXDY/Os41DWDbL6OmroGwXPuuSMXS+gQZ9cESD/mUKn8HV2Ez2ouTobDpDXq mn325eJAXQPicU1WVy5e1iHOromQ6aLeUvkLSuomWM7F4W84zOgVdc0BO7+L qWsoPH+r1JWLy+v1vzFn1yRIhuG+Unl/6Z1sZzkXx6Xr7uM8pa5ZZ2supq7B kOTiuJRd7fnoci7m7JoEyTCcdFv2FSOld7IXiVz8N57W/joOdc0qe7+LqWsY pLm4s168rkOcXZMiGYZ7SuUjpXeyGZFcHKp6RV0zzeZcHKhrGCTXUXfWi5d1 iLNrctRL79kXPCclyCHEcnFFr6hrttn+XUxdA+B2xXLf74tldIiza1I8h+Gu gbZnPaKAXC4u6xV1zTL7czF1DYF72izPciUGXlqv/205uyZFu/T+eMGnaz2i gGAuDiW9oq7ZRuG7mLqGQJ8OJd+dUvVizq4tkw7DnV30ppI6NIK5OC4U34O6 ZhSlXExdA6BDh5JcvKxDnF2To6P0nr7g07UeUUAyF1eM9udf6ppJtHIxde04 PTr0MHDRXFxsj7rW5KZJzVL5UOmdKCCXi8t6RV2zjFouDtS147R1KM3FpfX6 35Gza1J0lt7/rXFb5S1dBIxMLg5VvaKu2UYtF8eFn3vUtVM0degxpyybizm7 Nk16WV1lF46W3okCMrk43r1uyu9BXbOHZi6mrgFQ16HngC+aizm7tkBn6T29 wPxNXQSMWC6u6BV1zTaquZi6dpyGDn2nTdHfFwfOrq3xLB9UduFY6Z0oIJeL y3pFXbOMei6mrh2mqkNJ2lzWIc6uydFZes9dYP6WLgJGMBeHLqOtrEddw0Q/ F1PXTlLWoUzaXNchzq5JkQ60rZL/QOmdKCCYi+Nj9fegrtnjQC4O1LWTlHQo mzYF68X19qhrTTpL78kF5q8qqQMjmYs7jZa6ZowDuTguZFejrm0nq0OVtCma i4vtUdea3AbzZsn/3yveVVKHRi4Xd1wBSV0zyIlcTF07SUaH6mlTMhcX26Ou NeksvaeXrpfWI6oI5eKqXlHXbKOfi6lrJ8nqUDFtCteLObs2zzMcdQy0tfWI KiK5OLXm6ntQ12yhm4sDde04GR0qps1lHeLsmhydpfdkoH1VSR0YsVxc0Svq mm10c3G8d908VqOuafDUnEyNVkiHOLsmxXMw7xpoy+sRVeRycVmvqGuWUc/F 1DUAEs1J0ubvgwI6xNk1OTpL7+lAW1qPqCKYi0OX0VbWo65hop+LqWvHSTUn U6MV0iHOrknx/HlY30D7oi6CRjAXx6XO96CumeFALg7UteNk6sVp7VVEhzi7 Jkdn6T2dOnhTFwEjmYs7jZa6ZowDuTg+lF2NuqZGciXyo/YqpEOcXZPidnZ0 ldRDZreSU8jl4p4rIP9WrrZHXQPiRC6mrkEQuzYp46a5OHls/D04uyZGZ+k9 ne4vrUdUWc/FJWvOvgd1zSD6uZi6hkFyJXJSexXSIc6uSfE8OzoG2tp6RJXV XFy25sx7UNcMopyLqWtAJOdrpl68rEOcXZOjs/T+1Jr3dBEwswNtJg33XAFJ XTOIai6mrgHxvBI5OSPFfl/M2TUBntPzXQNteT2iytxAm03DbaOlrhlEPRdT 12DInK9Jdy/rEGfX5OgsvefO6Ld0ETATA22lhtSVi4vrUdcw0c/F1DUM0iuR M+qzpEOcXRPl+XOuvoH2RV0EzfBAm1pp1ZqT96CuGeRALg7UNQzu52u29rqg Q5xdE6az9J5OHbypi4CZysWFNNxptNQ1YxzIxXEpuxp1TZHbdVXF2uvUWcrZ NXluF473ldTrpXeiylwuzqXhjisgqWsGOZGLqWsYJPPCcSG32kTDnF2Tp7P0 nl66XlqPqDKZi8NdpWrWTF2zjn4upq5h8Py90fOMnNQhzq5toav0nirWu7oI l8lcHJfurZT1irpmGb1cTF1D4/H99zgjJ3WIs2u7KE42fK3SWXonqszm4rtK la35dwXqml20cjF1DY100E7UZ0WHOLu2iY7Se6pYb+siVOZycWqbbb2irllF IxcH6hokj0E73L87p3WIs2vbaJfen4r1si7CZGygLVlp1pofL6Wu2UTnu5i6 hsezuz+P786FejFn1/bQKr0/Sw+v6yJIRgbaspV26BV1zShKuZi6Bsjje+2R iyd1iLNrW/nVlb6pg1d2ER7dA+299vLJGG1Tr6hrNtH6LqauoXEbHZ6110kd 4uzaduql99vw+sKSOiqdA21ae8kYbYdeUdcMopaLA3UNjfuuT2bDJnWIs2sK VEvlyfBaXI+oMpCL61bapVfUNYsofhdT16B4/j7omYuHdIizazqUS++Z4fWN JXVIRnJx3Up79Iq6Zg/NXExdwyLZ9Zl68ZAOcXZNi1KpPDu8vrOL4BjKxaFq pR16RV2ziOp3MXUNiOfokJz/ozrE2TUdsqX3yqTEC7sIkKFcHJeuu8/v065c TF2zhXoupq7BkNn1yfk/pEOcXdMiUyqvT0q8r4vgGM3FdSvtysXpetQ1cPRz MXUNg9zo8Kmcrx0N/vzD2bW9ZEvvxUmJV3YRIMO5uGGlne9GXTPDgVwcqGsY 5HZ9vebbaI6zazpkSuXFSYmXltThmMrFdSttvht1zRYHcnFc+HqIunaEQi6e 1yHOrqnR9XPwRumdqDKXi+tWWn836potTuRi6hoGpVw8qUOcXdMk6d5Pptvq u4GoMpmLQ9VKq+1Q16yhn4upaxgUc3GY1CHOrimSdm+m28q7gegzmYvjwv3Z Xr2irtlCNxcH6hoQxVwcF37uDegQZ9dUyXRR2h2l3UD0mc3FLSutvyV1zRLa 38XUNRRquXhKhzi7pkvr5+DZ3UAOMZeLO6y0/pbUNTOo52LqGgzVXDyuQ5xd UyeZHEi7I9dt5AzjuTh0Wmm1MeqaIfS/i6lrGDRz8agOcXZNm2Ry4JPpoheX 1LEYz8Xx7nWTPNttyNfLqGvgHMjFgbqGQTsXD+kQZ9f0SSYHMl305pI6ElO5 uMtKm+9LXTPCke9i6hoAHbk4DOkQZ9e0eU4OJN3x9pI6EHO5uMdK2+9LXbPA mVxMXUOgIxfHhe7mOLumTWZyIOmOtNvIGSZzcWhbacf7UtdMcOi7mLp2nJ5c PFcv/m2As2ubSScHMt3x9pI6DJO5OD52PZG10o73pa4Z4GAupq4dpp2Lh3SI s2v63CcHst3x9i4CYT4Xt6y0732pa/iczMXUtZPUc3EY1yHOrmlzm8Yodser uwiGhVzcsNLO96WugXM0Fwfq2knquTjeu266muPsmjbJNEZcyK2mtkGkwGIu rltp1/tS19A5movjws896po2zVw8qkOcXdMmKe9nu+PlXQTDai6uW2nP+1LX sDmdi6lr52jn4iEd4uyaPveBNtcdry+pg7Cci0PVSjvel7qGzvFcTF07REcu DkM6xNk1bdLL3pPuqHQb0WY5F8eFa5XJXExdwwUiF1PXjtCRi+ND3c1xdk2b ZKCNC19P1rqNqCKRi+tW2npf6ho6GLmYuqZPTy4WqBf//MvZtR2kA23SHcVu I/qI5OK6lTbel7qGDUguDtQ1fdq5eOn3xff2OLu2g2SQTiYgSt1G9BHLxYN6 RV2zA0gujgtfT1LXttPIxeM6xNk1bW67cPlPgJOdyOXiMb2irlkBJRdT1/Sp 59hhHeLsmj7JNMZ18+/JZ7eRQwjm4jBntL8vo66hgpGLqWv6NHPxqA5xdk2b ZBem3ZHrNnIIwVwcF+bel7qGy/lcHKhrh2jn4iEd4uyaPkmXZ7ro9SV1ECRz 8ZzR/t6lrqFyPhfHe9fNvyepa9vpyMVhSIc4u6bNcxeu/Qlwsg+5XDx7BeRf A/d3o65hAJGLqWtH6MjFcam7Oc6uaZPTn5/HP9899uYuAkEmF4dhvaKu2QEj F1PX9OnJxcL1Ys6uyVLYhdN/ApzsQyYXx3vXzeT7UtcgAcnFgbqmTzsXD+kQ Z9f0KXX51/D69i4CQSwXD+oVdc0OILk4PvTzOHVNh3IuntQhzq5pU9yFt+H1 1V0Eg1wunr0CMtMAdQ0InFxMXdOmeJbO6RBn1/QpdnkyiaC3RSSPYC4Oa0ZL XUMFKBdT11QpjA7zOsTZNW1qJf+ZPwFO9iGYi+NDK+9LXUMELBdT1xQp7fpJ HeLsmj71kv/PvZd3EQiSuVjAaH/+pa5BgZaLqWtaFEeHWR3i7Jo29Uvhk0kE chTB66hFjPZnYbw9sgu4XByoa1oUd/2cDnF2TZ96lyeTCOQgQrl4WK+oa3aA y8Vx4ecedW0ntdFhSoc4u6ZNc6BlSR0GkVz8Gdcr6poVEHMxdU2H6q4f1yHO runTHmhfX1IHQSwXD+oVdc0OkLmYuqZAfXSY0CHOrmnTMdCGl3cRDHK5WOYK yK8l6hoEsLmYurad+q4f1iHOrunTMdDGBaXNIUUEc3EQNdrB9sg+cHMxdW0v zVw8qkOcXdOmZ6B9eRfBIJiL49LK+1LXEAHOxYG6tpd2Lh7SIc6u6dMxdfD2 LgJBMhcLGy11DQTgXBwXlDbnhXTk4iBaLx5sj7rWpN5F4V/vvLqLYJDLxYJX QFLXgEDOxdS1vXTk4rjQ3Rxn17Spd1G8d92Qk6zn4u+LFaWMNlDXgMDNxdS1 vfTkYuF6MWfXZGkOtCypw7Cai5OLH4WMdrw9sgvMXByoawq0c7Hg74s5u7aD 9kD7+pI6CCu5ONyHQ8ErIH/vcqBFADMXx3vXDdlBc3QQ+30xZ9c20THQhpd3 EQwruTg+cd1IXgE53h7ZBWwupq5tp73rh3SIs2v6dAy08SGFTSFVFnNxMhyK 5uKh9sg+cHMxdW0vHaPD8u+LA2fXdtIz0L68i2BYzcXJcCiZi4faI7sAzsWB uraXjl2/XC+OT1w3nF0TpmPq4O1dBMJyLg5/w6Gw0VLXQADOxfEhhU15KX2j w3Iu5uzaPhpd9F2nJ4dZzsXx2WsVyUoPdQ0C5FxMXdtL7+jQ3Rxn17TpuHQ9 LiluEskikYv/tFbMaKlrQODmYuraXnpGB4F68c9TnF3bQXOgZUkdBpFcHMb1 irpmBdBcTF1ToOvaLYlcHJ8dbo+61qY90L6+pA6CWC4e1Cvqmh0gczF1TYGm gQv8vvjWHGfXpOkYaMPLuwgGuVwseAUkdQ0I2FxMXdtOh4HHpe7mOLumTcdA G5e0toeUEMzFQdRoB9sj+8DNxdS1vfR8d0rVizm7toWegfblXQSDYC6OCyvv S11DBDgXB+raXjoMXK5ezNm1HXRMHby9i0CQzMXCRktdAwE4F8clre15H30G LpqLh9qjrjUpd9F3Nf3VXQSDXC4WvAKSugYEci6mru2l67tTNhePtEdda1Pq oqSa/uYuAkEmF4dhvaKu2QE3F1PX9tI3pyybizm7JkphF07/CXCyD5lcHFe5 bmbfl7qGCF4upq5p0XWtlWgu5uyaMKUu/xpe395FIIjl4kG9oq7ZAS0XU9e0 KI8OkzrE2TVtirvwNry+uotgkMvF61dAxsevG+oaBki5OFDXVKkM5DM6xNk1 fSo69d0xb+4iEARzcVg12t8nqGtYIOXi+Ph1Q13bS/Ysvf81K8HfF/+2ztk1 QWoD/MyfACf7EMzFcb3l96WugQGWi6lripTmgCd1iLNr+tRL/j9rvLyLQJDM xQJG+/McdQ0KtFxMXdOikIvndYiza9rUB/jPfZKDHEXwOmoRo/15crw9sgu4 XByoa1pUro2a0SHOrunTcel6XNDZGlJGKBcP6xV1zQ5wuTg++bMGdW0nxVwc JnWIs2vaNAdaltRhEMnFaQ1p+X2pazgg5mLqmg7FXByXrruCuZiza8K0B9rX l9RBEMvFg3pFXbMDZC6mrilQy8VTOsTZNW06Btrw8i6CQS4Xy1wB+fUsdQ0C 2FxMXdtONReP6xBn1/TpGGjjgsKmkCqCuTiIGu1ge2QfuLmYuraXZi4e1SHO rmnTF6Je3UUwCObiuCTzvtQ1HIBzcaCu7aWdi4d0iLNr+nTpz7u7CATJXCxs tNQ1EIBzcVxQ2JSX0pGLg2i9eLA96lqT5gDPkjoMgtdRCxstdQ0D5FxMXdtL Ry6OC93NcXZNm45L168bcpL1XPx9saKU0QbqGhC4uZi6tpeeXCxcL+bsmix9 PyN7dRfBsJqLk4sfhc7K8fbILjBzcaCuKdBxHbVwvZiza8J0nL1v7yIQlnLx /fd7gldA/q7CgRYBzFwc17huyA7quTiM6xBn17TpG+Bf3UUwLOTi9PeAgkY7 3h7ZBWwupq5tp56L493rpqs5zq5p0zvAb94M0mQxFyfDoWguHmqP7AM3F1PX 9tLMxaM6xNk1bXoG2pd3EQyruTgZDiVz8VB7ZBfAuThQ1/bSzsVDOsTZNX26 dOXdXQTCci4Of8OhsNFS10AAzsVxtc2b8WI6cnFYrhdzdm0njS66T0qQoyzn 4rh03ZWs9FDXIEDOxdS1vXTk4vhYd3OcXdOm49L1uKS0OaSIRC7+01oxo6Wu AYGbi6lre+nJxQL14p9/OLu2g+ZAy5I6DCK5OIzrFXXNCqC5mLqmQMd11CL1 4p+l4faoa23aA+3rS+ogiOXiQb2irtkBMhdT1xRo5OJxHeLsmjYdA214eRfB IJeLBa+ApK4BAZuLqWvbqefYYR3i7Jo+HQNtXNLYFlJDMBcHUaMdbI/sAzcX U9f20szFozrE2TVtegbal3cRDIK5OC6IvC91DQjgXByoa3tp5+IhHeLsmj4d Uwdv7yIQJHOxsNFS10AAzsVxSWNb3klHLg6i9eLB9qhrTcpd9F1Nf3UXwSCX iwWvgKSuAYGci6lre+nIxXGpuznOrmlT6qKkmv7mLgJBJheHYb2irtkBNxdT 1/bSk4uF68WcXZOlsAun/wQ42YdMLo53r5uV96WuoYGXi6lrWrRzseDvizm7 toNSl38Nr2/vIhDEcvGgXlHX7ICWi6lrWpRz8aQOcXZNm+IuvA2vr+4iGORy 8fIVkNQ1SKByMXVNleJZOqdDnF3Tp9jl9+H1zV0EgmAuDstGS12DBCgXU9dU edr2I20K/r749y04uyZIreQ/8yfAyT4Ec3F8bOF9qWuQgOVi6poij+/JZ9oU rBcPt0dda1Mv+V9339xFIEjmYgGj/fmHugYFWi6mrmlxu66qmDZFc/FQe9S1 JvVL4T/33UqOIpeLl6+ApK5BApeLA3VNi+9Bu5I2JXPxSHvUtTb1Lk92KzmI UC4e1ivqmh3gcnFcuu7yENnG8/dGz7QpXC/m7JoszYE22a3kHCK5OLXmufel rkGCmIupazrcz/Bc2pT8ffFwe9S1Nu2B9vUldRDEcvGgXlHX7ACZi6lrCqSD 9l19JnSIs2vadAy04eVdBINcLh7TK+qaFWBzMXVtO49B+3ZGDusQZ9f06Rho 44LW9pASgrk4iBrtYHtkH7i5mLq2l2d3J7l4VIc4u6ZNz0D78i6CQTAXx6WF 96WuQQKciwN1bS+P77VHLh7SIc6u6dMxdfD2LgJBMhcLGy11DQTgXBwXtLbn fdzOw0ftdUKHOLumTb2LQma3klPI5WLBKyCpa0Ag52Lq2l7u52Faex3WIc6u 6VPvonj3uiEnWc/FJWueeF/qGiS4uZi6tp3K33ae0CHOrmnTHGgfu5WcYjUX l615+H2pa5Bg5uJAXVPi6zzM1IsFf1/M2bUdtAfa15fUQZjNxZk0LHgF5O8q HGgRwMzF8e51Q7ZxOw+TM1Ls98WcXdtEx0AbXt5FMMzl4mwaFjTa8fbILmBz MXVNh/t5mHT3kA5xdk2fjoE2PqaxLaTGRC7+Vti6NY++L3UNEtxcTF3TofK3 nZd+X8zZte30DLQv7yIYhnNxorB1ax56X+oaJMC5OFDXlPj9nnyekQv1Ys6u KdAxdfD2LgJhKhcX0rCw0VLXQADOxfExjW15O5/vCJs+N/Pdydk1HRpdVNmt RJu5XJxLw5JXQI63R3aBnIupa1oks2HJk92NcHZNm45L1+OS5jaRHJO5ONxV qmbNA+9LXYMENxdT17T4vcLqeUZO1os5u6ZDc6At7Faiz2Qujkv3Vsb0irpm BdBcTF1TJTMb9u/xAR3i7Jo+7YH29SV1EGZz8V2lytY89L7UNUggczF1TZXf jv/cDXz+98WcXdOhY6ANL+8iGOZycWqb43pFXbMCbC6mrimSmQ0b1yHOrunT MdDGJbUNIgXGcnHm94C3VkRz8VB7ZB+4uZi6psXn+/z/e3BUhzi7pk3PQPvy LoJhJBdnfw/4/9o7t93GcSAKWv//0ws4GMdsXtS0GbGErXqYVWYUR6Assk6z nS1fZWUunno9+SvAufhQ166iUQ2b1yGra9eTKB3834cIQmaibaThR8Nop/RK XbsP4Fz8PLrsgv7f1Huv8zpkde1q+kPUuw2yi/OJtpmGG0a7sANSXQNBzsXq 2pWEati8Dlldu57eEPVvg+zhZKItOxGbnwd8/3KF0aprNLi5WF27lLj3OqVD Vte2EIfo/DbILoYTbexEDPtF4eTG3039XHUNCS8Xq2ubaOwXZ3XI6tomyiHK 3AbZw2ku7qThhkp91QGprnGh5WJ1bR/h+c/pkNW1fbwNUf42yBbOc3ErDTdt 8wujVde4UHKxuoYgPP8JHbK6tpNQJngevf6hexvkehK5+Ci16VHqVXn6J0ar rsFh5GJ1jcFj8Lx2v8Xq2i6KiTZ/G2QDiVz8PCq/o2ub80arrsEB5GJ1DcTw eW1/g9W1fZQTbfo2yOVkcnGj27Fpmx8arboGZ3suVtdA1M9/KheH86yuXUSY aI/8bZCrOc/FUZsaevV28vTPVdfgIHKxuoah97wOvsHq2j7CRPs8Kv+1exvk UvoTba8T8dHQq2Nar9S1+8DIxeoag/j8J/eLra7tIU602dsg19ObaPudiA29 ilY683PVNTiQXHyoawzK5zWhQ1bXdhJKB8nbINfTnGiHnZL/3vXVb+D5tANS XYMDycXPo/Jf1bXrebzfllMdsrq2mWK6zt0G2URjoh3vvfxbd6tcPKdX6tpd oORidY1BqAs/D/rnWl3bTDm9Jm6DbKKTi8M0d/rbcab1Sl27D4xcrK4xeFS3 pfOUWl2DMHsbZBO9XNzaeznKL+u1c9Jo1bU7sDcXq2s0qvWv/ZRaXeMwdRtk E91cfPxOcw1tirb5iV6pazdhZy5W12iEXHx0dcjqGoa52yCb6Obi59Hry3hW w2jn9UpduwO7cvGhriGp+qUGudjqGoOZ2yCbGOXi3/lv9Ntxelaa++HqGp99 a7G6xiPm4sF+8c9/rK4RmLgNsolhLj5K5YznvU5uWmnyh6trcDbmYnUNSJgd hvvFP0evL62ubSR7G2QTp7l4oE0hNX+kV+oan51rsbpGo5gxRjpkdY1F5jbI Ts5zcV+bxp2S2Qt4/Uh1DcnWXHyoazQeYbU72k+p1TUa57dBdpLIxUdPm+rU /MnEqK7R2bwWq2sowozR1yGrayz6t8EhYpDIxc+D7vcOrTR7Beoal925WF1j Ed4O5/vFVtcY9G6DW+oMMrl4YLQ//+1bafYK1DUw29didQ1EPWOkcnH3PKtr F9G8DYNhk6tJ9FEPjfbn4PVtH+ZidY0LIheraxhaM0bzNKtrLBq34TEcNrmU cS4+jlEnYvFJw4/1Sl2js30tVtdAxBkjuV9sdW03zdsw3MqXaxnn4ueXrz/6 3/uNXqlrbCC5+FDXGFS9W6lcbHVtO43b8OgNm1zPaS4eaFORiz/WK3WNzva1 WF0DUayxqc8XH1bXINTDMdzKl2s5z8XjDsi3oy+MVl3jQsnF6hqDYODPo+Zp Vtd4hOF4NIZNNpHIxUfKaAfnnV+EukZm+1qsroGoa8+JXGx1DUIcjuFWvlxL Ihc//278vd/qlbrGZX8uPtQ1EFVPVioXW11j0Bgit9QZZHJx0mi/0St1DQxh LVbXKNSfVUrl4u55VtcuZsGvAJc/4TwXJzogTzolk5ehriFB5GJ1DUO1duZy ce88q2uX8zNO5W66Q7Sdk1w87EQsvvdrvVLXqDDWYnWNQczFyf1iq2scQsO6 W+oQhrn4pBMx2ymZvZTGj/Qtsh1ILj7UNQZVr1UqF1tdAxGmdYcIwWkuHmhT /bR9NzGqa0wwa7G6BqBIr7nPF1tdY1E3rDtEBM5zcaYD8vXlV7dUXSPCycXq GoEybXZ1yOoal8a07hBtJ5GLj5TRDs6buhZ1DQdoLVbXCOR0yOoaldiw7hAx SOTi51H2e7++FnUNBiwXq2sAEjpkdY1LOa27pc4gk4uTRvu1XqlrTEBrsbrG IKNDVteoFJrkljqGRB910mi/1yt1jQguFx/q2nbOdcjqGpewffA82Hc18kM/ F593IhafNFygV+oaE9BarK5hONUhq2tU6rDlEBHo5eJMJ2K2U3L+WtQ1DsRc rK4BGOuQ1TUulSY5RAA6VprqRHyEtXOV0aprLEBrsboG4kSHrK5RqbcPHCIC PSt9m+bOjfakU3L+WtQ1DthcrK5tZqhDVte4VG11DhGArpUmOhEf1S1dmou/ fj1ZA2gtVtdA9HXI6hqa+uNmDhGBrpUmOhGznZLT16KugQDn4kNd20lPh6yu wan0xyECMLLSs07EmIsXG626BgG0FqtrIJo6ZHWNT2HXbqljGFrp4/UPmZ2e xUarrjEg52J1bScNHbK6dgdCk9DrD9nJ2ErHnYjFdLi0A/JY8nqyBtBarK6B aOqQ1TU+wa7dUocwttJxJ2K2U3L6Wn4vw7fIdpi5+FDXttPQIatrdyA80Q4R grGVnnYiLv0/oqhrTEBrsbrGotYhq2t8art2iAiMrfS8E7G7N/TNtfx+6Vtk O9hcrK4BCDpkde0ONJ5oh2g7YytNdCImOiXnrqX4G98iAEBrsbpGI+qQ1TU+ caJ1iBiMrTTRiZjolJy5lvhX37yerACciw91bTuN/WKra3AqXXGIGAysNNeJ uOr/iKKuMQGtxeoakPD8W12jUzQJuaWOom+lyU7Ef+v42p0edQ0BORerawjC 8291DU5oEnoebbwc+WVkpSltGndKTlzG+6G6BgG0FqtrSMLzb3WNTfjwjFvq JIZWmtGmNXqlrhGB5mJ1DUR4Xq2usSknWrfUWQysNKFNp52SuWtQ15CA1mJ1 DUn9/FtdAxN/qYRDBKNvpQltWqNX6hoRbC5W1zA0nlera1zCRPs82nUtUjOy 0lQuTpx3egW/hwteT9YAWovVNSTx+be6hiZOtA4RjaFFZnJx4rzsq6hrHMC5 +FDXGJTPq9U1OKF04BDB6Ftp0mhXdkCqayBAa7G6huTxflusrtEppmu31IH0 LDKjTWv0Sl0jQs7F6hqDUBd+HrROS76K1bW/pZxe3VKn0bTSfCfisg5IdY0G aC1W15A8qttidY3N0l8BLqtpWORUJ+L3eqWuEeHlYnWNRrX+WV2j8za9OkQw mlY604m4Qq/UNSCgtVhdQxJy8WF1jc/o4+CymYZFznUiLtErdY0GKRcf6hqS ql/K6hqeMNVvvBKpqS1yshNxwcSoruFgrcXqGo+Yi62u3YJVvwJc/oJgkfOd iN/fUnUNBiwXq2tAQh+11bWb8E9XHCIe0SKnOhFX6ZW6xoK2FqtrNApds7p2 H0YfB5fNNIw2q00L9UpdA4HLxYe6RqN8i1hduw0zW/lyNWGay2nTYr1S10gA 12J1DUXQNatrd6H/cXBBEKa5hDZNdUqmLkFdw0DMxeoai/AWsbp2F6a28uVy wjSX0abFeqWukUCuxeoaiFrXrK7dgubHwQVEmObOtWmuUzJ5BeoaA2wuVtcw NN4iVtfuwPRWvlxKPc2lcnHmvJkrWPh68g3ItVhdA9HSNatrN6D5cXAB0Zjm Mrn4/Ly5K1j4evI54Fx8qGsMWm8Rq2s3YGYrX64nTnNJo12oV+oaCeRarK6B 6ORiq2s3wC11NOU0l9CmqU7J7BWoawzIuVhdY9DLxVbXboBb6lyK3y57qk1T nZITF6GuUUCuxeoaiG4uPqyu8XFLHczvk3XeiTjVKTl3FYtfTz6DmYsPdQ1E Nxc/D36+srpGxSHCUuTikTbNd0pOXoYTLQHqWqyuURjlYqtrN8AholLm4q42 xc8DrtYrdQ0BNheraxiGudjq2g1wiJCEXHx0tWm+U3L2SnyLAOCuxeoag9Nc vLu69h9oZwK+ "], {{0, 0}, {1932, 1025}}, {0, 1}], Frame->False, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}]], "Output", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJyt3feTbdlVH/Dm9Zt582YUBkmAijK2HMuBaMo2dlG2McH+xT/6D1BRrkI/ uOzS6CGCEDkHiZwZkZFI0jAS0CiAElkkkYSIEiLnIdNc78/u/T1v33tPvD2n 5k1333vOPnt/11rftfba6X8+8zkf8b//zzOf86wPf+Yz/vuzn/n/PuJZH/7Q Mz7s/z67fHT+Tmdn7/QRZ2dnb3zGmd935df2v135b/cs//PJ4//7LT/e/cLv 91y87nWvu/jVX/3Vize/+c0X3/zN33zx1re+9exG++4nfuIn6vd+ftd3fdfF m970prMH6nc3L/7iL/7i4rWvfe2F6+///u8/uH58fvH93//9Fz//8z9f/3p6 ++zP/uzPLl75yldevOUtbzm7uu/2xd/+7d9evOxlL/OoTy5+6qd+qlahvOLi 27/92/09VOPXf/3XL77+67/+4o1vfGMtu1Tp7Amt7D/8wz+8eMUrXnHx13/9 12fvWT+7/+L3fu/3Ln7zN3+zvlfZv/Ebv3HxO7/zO7XKf/AHf3DxV3/1V567 XW+/9+Ly8vLiHe94R73Vv9/93d/12bu3N/zlX/7l//qTP/mTCt2tHsBdrd3u 0Ucf3ZVa+Wv3jd/4jbuf+7mfO7vRvvuhH/qhXWnV7gd+4Ad2n/qpn7r70R/9 0bMH6nfnu1/8xV/cffInf7Lnzz6kfVZasvvZn/3Z+tfT22cvfvGLd5/92Z+9 I5ir++7bfcVXfMUu14/8yI/siiDq79/2bd/m97z+V37lV3ZFPLuf+Zmf2X3G Z3zGrghheH0BfveFX/iFu2/6pm86e6/62f27xx57bPfVX/3Vux/+4R+uxfn+ G77hG+rvRQd2n//5n7/7vu/7vvvr7Td3X/d1X1e/KmrjtndvJRcAlPq8V73q VWf3jQDmdo3/nu/5nt2nf/qn7378x398AKzUsNa4iGr3ohe9aPe93/u9Z7fr d/fuith2jzzyyO6Lv/iLd0Ubd1/7tV+7K3L64Pbab/3Wb614++tdW3FFEyom bv2yL/uy+qqr+2/visbUBpUiaite/epX19e//e1vr/d6dar1kz/5k7Wcoib1 9UVDz+5v3xXNqt/5HHilmgOgRQN3X/M1X1Nlr/wv+ZIv2RVdqvqi6d/xHd9B EPe1FqrS533e51Vx+vqrvuqrIPH0hre3q1n5+M5rXvOaMWwpIyC89AUveMHu x37sx/awVYnf/u3f3n35l385nAdsi4lUJaOolLiY2xK2L3nJS3YvfOELKUR9 nVdNYevV3/3d3w233fOf/3zV2MM2SlZUpipkL/LP/MzPrPperL62vnz23u01 IP/BH/zB3cMPP1x/B5DLrVpQoD27Ve+9VasPkWjQG97wht2XfumXwvfs3VpV CvnU6n3nd34nJO5QgTGUC3lVSAqBVbSKvQzNKQS4K8KpKvG85z3P30NzCpFV 7S98u/uoj/qoCuECym5nxjQLWxQznES5cFuFgl1qQmGToVpYhdH89E//9O5j P/ZjwTBU68///M+rQtD85z73udXwDlD+/d///d0XfMEXVO30Wjb+SZ/0SfU1 UL63EdOf/umfVpQ/5VM+pSp54dLdJ37iJ9bqF6QDNBMnJDUqNnEHSD3Q/6DZ j1ezHeSjlUXHauvYUdGTilgRUo+vhriKs9h95Vd+5RK+3/It31JLh5233WWI 8x7fhuMD9TPPRPNdPqO5jU6rDDBEj6/v/Hz5y19e1a7D94u+6It2f/RHf1SJ gSGpTl7BYOB7T7sX2dNQwHmVv4uDqtp+qM2MDpOQVSHAO4xuDGRlABknk9dz nvOcSpjqQ4tVvZR1u6GCKrSQT7xBGuWzaKA7PmhBm4tn373tbW+rxU6hfd6q VmS7+7iP+7hKS67P/dzPrbCEj1/60pfyjz3QiuDb+DwaewA0j+BSAyUzQdoI zB5otX/9618/eN/iuetzWq8Gh0Bjt8Z0R7TxHq1MBsG26BlPj81cfifUQhuD zvzWb/1WVWX0xl7VY0GV3QIYxTajGQX3ZvuM+mLDKzIulbr6phrmR37kR9Kx +Dj2dsAOZz2q6MFF1agmInUvguxR5e8Ihhv6+I//+MpKOB5FNGc3oIpEqSbL KoK8U3RgD9V/2Cjncz7nc2pTNJ+fYA4uf5cQ48q33qJq9RVcjeZQKWoMkTFU n9aeUxwucS8EqRwI7rq7fXTvadUCi89YoPeVgLPGV95RqpZqCXS8kjWQt+K1 Yg5h5OBv1aC/hwjTGRfkEhAwaHQI4XdtOubd3ue93FghmzvlmTHVdavb8MNH f/RHVz53IeTP+qzP8qrmae+raBAus2FuhMhwGf+ECgdsxT300EOV9sRVHtH6 KZ4I2FTe/ayIdQGbK8IRHdhq7RbqCRxgLYHdIqFKEnTnEGy6kUuowj0hhLDx u7R3//Ef//Hu0z7t04b4WhMLUdwRhY0hTu/wl3ejTE0snZoqROUgi3vbvQTO 46JL7UEeiEp9GuqjOv6U9jxIkRA9ZbIUy+WncqeYJPB7Tvtg6p0ueKGAQgep Jh+LcJgSeFi/x5DNHKtgDHCJXdyrjCmdVz2KShu8nkMlhqe1qiqTzisfHbjY UwlaMMyUJLQ4l1d9zMd8TC1G/FNIZpCEZokAmROT/uVf/uX6DJ9OMkuSQLLs CUGqFm2Kc/X8GtbR6XCJcP1N45ByMYRU06uFcoREGuwuTlO1pyQBVcV5RvVw 7JwkWlm1Kn4niad2SqepFJunBZ3PUEyB9k7h9EnDiJN3UToki+koK3eWdpKw OtMIHWAayPP7fY1huNd9v/Zrv1Y1T5tdnAd6kxCZEwcuouGuX/iFX6htVFf1 KtyUanoFTQGrqJq962MIFtnWXXHcsycOV2lS8d7FDbRUQYOlefljkeCUv/u7 v6siPxQJlg/P6J+oj3o0w10tEvwnipD6iHdIW/EXLRerMU5czJIEVYKwNRbC ErSB6BGHfp9eB5EscVUvEtESjNWzdYpSzfQLvI7z4gp+6Zd+qcLCl94VyXkv ktZPuFk1WiDdIqApA9FqTN1TVaQB1dgzN09yLh6pPHcUEM1JI+FpC4r2pKHX 1DSpekfl47C56KiXRnpcLtQMIgEZbynhtVYatD6JAM8XbeilIYxwQVoxpNLl BGal8Td/8zfVwbUof0waWBZKiuVHFXsojXiB3OtvNS61XW0bsl6aguF1QHo/ 3ksjuQK0IeJquYJN0gAb+yJRdriFrtgGfLqUVy+N9Icgi0bYSpzNkjQEhWBT ziCN814aw62I1q1aVaRxKIyASg9auhBQdyQ61wgDOGqcToHnxoTBRJmnbjow m1veJAzCFPHg/63CEPlgHe3jIAqrjAkDp3IxABaHqfKSMGKxLaiaE4ZHEURL 5kwJg+3yLn6Oddzeo72ie254Bcug6f6Vxk7JIriqIV96iix0CF3KXgqreln4 nhyUp4lFAGOy4Euxe6rs96mwCvNSP35N0fvJiH1hnLf/SwomETElCcyPb1wl 1JtITOxLIuWLYEW5UnNjYpDDpJLili6XuUkMTOmtb31r7abNZSyCQyeGpjHn lYf1h0oMcTZlE7DlRREVdZmSA/Ok3LDmbdVrSg7RWOGttrf+3pxRYClJttLs O4eDI3Oi0J2jGrqKY6LQ2+WsmTsH37qsm0ShJ4BBiRRM8+w0LgphlBCsdIpG RaFtyvYuDLhPT8ddb2HhW97ylppM8PuSKFj0Cn5iFToLqlakdpR8nhMFB5Bx qTFRuCQeaIS+YRujmhHFeS+KoSmi0oxxFXJaK4lUU/iGRHa1y3AsCRdSEjRL YOzHUPuSkLVUDRfflYGVsSBKUE4T9a/6AZantpociuKxxx4rTS5UU+qcARd3 3lopDqIQuN8lqfNeHAOcQss7d+5U+CdSUGPSyGu8djkPMm4UIJfeLC57qGIn iqGK+Nx4EfgmctZCQWiTnKzn4eDAWFfPM2wy2dWnjqCZKpAKrSkIHo4vTgVQ qAngAiKP3rWLcUGolsiXiZ4gCD0wrVrKB/b+mk4i9gwSFpTm5OAxLfHqAznE IvCcxjFSrieDYFNy4H4Qh58tkB2VQ1op6G0yWBXF8i0Axav8hK7InBAQlDqz nhOEkGhlS9BEDVlBG5a8GzTtC6GXs+IOOUlxGcDVs+ZB2pjxrATScdOZ2Q+a 9iWQoZFS5gwXzYe8a/gIP+vyzwwAX5+P9iWgg0ZhVVO8NuRlx83AJAEtOaAj xudW0RpX7q3CGj3ZfRe9nx3XY+YMqB7qylDEnBmIhEsLJvzzfLRLIabyHCJB zaJQySBtDZewNRsgQKa3xRb0rIVpKAFvlveNRUuaJQpSvGBcE3p70Bx+NjkQ USDP4FX7geu+KLAYv89+NGHfMxzDqoevyppfYD0aRp4Th3hBgO/zqb61n1RJ 14+KaOtWcRC3uAS1+HyLf9A2z2tnCwungldkT3Lp/hHH+7QisaKUOq3iFV3M vIVLkQQCJFVfmc8BJdEVpPajpWNESRCJMuMw1JoBC0ruGc3x/FSXzk+ZEFnv T/iET6j3n9Kz1iWk2PvzVZYlIdKklSA/GDo67NFxcyhKijVDR5EEh88xCHvw jiSPnuxBKpaN+Ih9uVWMYMqDZNtYKraXBE+rOnxR+XwixXFzSOHqJJaO6g0F N8JlklMM5WcmB+jUrB05Gsv9UWtlzTPUvVUQ2FmwCRYmWZC9MUVPpMAbKF9d PE8K71vvvVU/b2OcVRlAqt53Gf6BajPaxgCYoPf6aXw0Y5LKXcpxiCi1v9jm ZOpPPgbtUTJDOepEUzD42BhFZMEY3AsXmJxCT0n9GV7DEUv0BFd0zoB8J9dC 1bx7QRyGa3iEiOP9mng1Q+ZQp1JRLfd65e6fUO0EkrraauvSAn5exBDz9IqF rjWBN32fHNz2OlGuJCUmxHzKwIJtruSoMIzDaRlGQ8ZrGSrGFMMwOuMz/nOJ oSixOlBM71Z3seVeELU/ROFi9sJYupYBoythPK06AITM9Zju0JipPmeOiCrQ NV1or3apMgF6lp1mFsaMNCALDV6tjW/vSeMfNVNV7TavtErOxSyKBPekgHDb bJxaZaZLYmsHilSXnmaKATTVjYucoqd7Wx0Fl4I7EYsIhhTQQ1HWvVwTymOq ylW/FnkM7roXAXNSHxKm9MEtI8ZM1jRcPhFVuIjMe+DBl88MTOhsgJEmKKJI /IidIgKD3qw90gYzafejQ17FFhkNFhE/iuq56jY9bFYEYMPCkiG0UrPVl/iU N5XyiwhQCz+qPTSQOni2vGuoo/emsy0V53ci8XcC2CsRPHEQAWYGZevEDSKg Ln5i7cbWw3RWDhuVUYvDkbr0NbRXF0abWSKPW1TvaKTuGY0isWzmXzIFmBQ5 XPUJH6jiVF2iZAFERMMMloPCK303JYZ3rv+/v3YdiMsr2phTfa2LSGhcqcKc JDJ+DwXoQULuyKTeVNc9kqcMDZd4JUT5IAEXpm+du8EoJDbchxCky9qYUK0a DWWwLlJV9RiFOpICw+vCpwgE+IQIHf+yekEENjaQ/Y+bkIUBOpZsOeFSmudZ DJzFApoIJui6hE1t+u+sNBgZgyJdfpORZcqXSxnFx45J475WTfakN54ByEIP QzUhJUbFA6RBwF4Rty1UTqIjUmDXGfMk2eaq6/2Z4s0uvLOnpqT8VJ1tKbdA 85Sm3gRL6JwKc5OrKEK7Ud99PrjrqmEjwqCm9EKNMm59o1my2ngz/ULKWuti tdy0sFpLPTfHVE+u/39CRU3tQ7B0j2A9n+jEd0ylsMuccBQFJH0nOmhsItUG HEGQsXuS5aaf9II5KNPnmSb4b+uzT62f82OsuM3BHASKOBATE0mYGQHRU6Fx S25U4nqwNRsZ03mmpB2EyFSZIqF7B5JqYe6YyZCSibMSAW3e9tBcJsEyuWwc DkEXfWFeFALBuWeOyCIl1fSccjRV1WJ6ms1VaiLYF6TkVmSTNVEG81Jt3Com pHiYQPUgkTQkuvZKbjCE9v712afUKmceskszWDuIVFEMSoK9hNJJ4OoakUVA Xk8xMheU8hAm5KCdnmf5/XAyYS8gsvcYsHFanJpWZDoSSy0tbt/dW7sDSaCK g2Zyt09uxWXyG3WUcyvyGV4Vj8GJaclU+NVzHFp0tfmNg4CEdjiKhYpmm4XX e6m03pVZNYLmDDRFQBADiWfkiIGvvoTOlMQp4oIIiOC1U+BOeC1l8mCrpmLo ED1Aj/3SMtUmPPcU+R9lTyIhA8pegciSy00ZQhlSc6k2qo+E9FGUzdstjDX1 EtIxE/NLSxcEh1dl7g9OxaFT3ZRIiBlQc1Kg4j3RkRCS8xzdbVMmBglBkXfy ngzK/rv67FVQjXf1sRNJif54MnUTlV31528OFt+yu5GKpqtenJ1JYb1UVBvq xSKPsouRCqlSHspK9wVxN7qmYw9Np2h32eNqYVvLcFalb32VJanI4HGUdPFQ KibjMNHGa7NSQSTK00Q22BMbqfiOBJh9GxOrUlHdrBrgARM7RyogIAk8rlzS i22AqZeKMmjEiFQEkZTPI8W5D81EaIrS6Rxbn/VPWtFyu7wfLi2KlccVS1cI hY8Wl/YCURMESBfdtyAQt+NGRk8gPZERCKtMCLpEZEDiYzNedteCnzgEVwQs aOuJjECSU2Xpmc4TgXiOA0RKmEcofEBgw+iSHgPluev776nmlJF2LEWx+oWb mcA5lvf9p/W++6upCr+zWoqvYNoZ69Pe0qZIIv0dYQbCmhmMemL9/61Ky97S pqBWPaHCvYnQBeqoJXMZ4Ku1RU8Z1nhRlqALDRGX2md9aSShx541HpBuhNUL wutdLBhdq6KAzK29ZWS+XOvEP6m10puSw2Zg6a31vAVLDq2lZ4/GaiMTtdQS 9Inq+XV6Sg+VIWopvBSZGJsCcJaIzaxxjkxIl5bBkS1n4VFvJWqqSNYyNz4S mWh9i5YrkOTI+hivXhI0+qUJskZaSYWU3zJJvUwQuEsVcYLGE3NkkqoyNFGJ qKHlt84iGAYS1+r3pOZ6wagegbWFmEeC+WetTrIZZC+0zPID+oDS9GX4z/NW Zubia/Lc5KoHWtmMH3sf9ocYIQdFNNFBfSq62UYRx6TyQNOlWF+bjluR5qgY smCurWgIEroO0OFik/66ksiDexIRI9IzwoVuH29pucg2E4VavPWE1lDy531V XhHZESA9qJ7FFMUDq2Wp0hGL/fN639WIEOHil6RxXG2u5c2Gm46dEH2GtSIO /oFGNm9WOy0utW85g4GbNVbNp1grLc8KGKyllpyxCx+w77urWG9WuwdsG6ia koGqqVLnw+t3mUJCPuijWUVq4lFKnKkVrWdQDY3Y+fW0TvRU+OHInwd73IGx qA1P6yJ2cXCRXeY5qeFcciXAZ86BaImCEr9Ly9MjSdWWZpWkuQTJEKiH/JfE DRWBWKZl9/yOZ9qC6yngG/1XmzrsDSbZ2SYL9sBz4+n3PPvZz66s44ryYqW0 TmRs2udheBvgMY44UDWUw+WrJlkXwUbpJUIQ5sz2DMHeG9NVwQDsRFwGT2/r sUf3c9Oq0uIMxaiG+z2Hq3VMs5wq2FNBdWhLwKawZ+3URNyiiB77xFtGfVoy KzUh9YT1xKbYdN71YhBPWsfVWqExRThaQsQuZqw1GSYrqMUJZNGHtPbcZOde AFnO4sqIOGEkZkoVGcPcBOheAFlSSAiYivZyeq37MAiAoI5YZ98XJ3eRPUcU 3/tiCs8usU6mifQS6IfVIOY+qFFPe2KkeSQ0Nkw+JgEEymYF6cKaRx99NMGR xGi8ghh3puswZgUuIKFj0cVhV0KOgxC0oM27nRHGg3vCgAYBYzpCaSvZ6nd+ EpDnMyw1COS8F8iwywRPBZRkD6lw5sT5LFn0Q4H0g85AZ5wty763FYwwU7xI qIVejmajjwmGF0VNCVEL3BEMA1UUBPU027DsFsEkFeK+w063+3g2Hm6Zpq4E k3EAnWzCTIq6z+0jj4Si6rhCMEIt8k2qGBHovHCS+vj9yrEpwXhGZocu4KrD JBXdlOIr/44G0OcEw9sRdim/z0nRF1EijmlqeYpgiD3BUt/5ppZL6zfGBMN7 hj8yvazv4mURN8ewR2H7gslOIbp8WspyPOrVhrpEQWikZXLnZJLRey3ud/TB kDCeGkYfk4nMMHVl9xLQJQrqZZKGd8vCt8hEnESkDEUM1LMY28vSprkV42My IWcGQja4vGex7K3ikjFoe6uMySRLjxkDZ+pn2yapspmfWXo8JRDNYCQYTM/z cJMwQgH22LLkMYHoklGjJOM69tJahKoKtHhmn4opgahRMgVk2xuJlkBmac34 mEAEtn2/ug3L1O+wl3cKGzMMviAQLgGo2Itg6AnXIj2wJBCg0WgeVB92cCc3 6iDTea0rX7JGGlEoPTEFlp+RRkYuMwdtkbLOe2nsLRxVBFSKk44wlMaVAHVu tfiYMFx0BZVkyn2EAUXPqsoCY/UL8wkAgfJCOrRiun4p+JQw5Fu0eGoDMsGc 8qeDrvNeHoN7g5pRdVQXKwRTxstkseZm+4xJJAwtV8cHaYs+JviQjfJ0Etsw 1LQ0zntpDFVGoZK12ZohjkBxegOZ6nU3+zEtjkyRzqBBUpyZmJt6dOIYmoeT W8+jagXnow46OKCwMVTx5mslkRXrXKuqkoLqSOoIMpeWXE7bxgNVWaW5SIMb oS265553aa4wbp6pxsVBspqdGS1EgGq0gWi0IWvE14oj5XCmRLsf+Y6LQ+qX xilXndITwlJo0Bj6wV5HY+JIdSiqVC2ovJ6G6I7wFXNr/MbEkDJ5WxrTd2dc jI1otsCfZkuycQYIBVtnHN4MDGU26Nci77XJwfV7dI0hn+ezjQOYdKUS6+gg ji0Hn4NddTWR9P0Tfqc7Nbfuew52dVau71hVP+1sOWDah713rNoKek4rU2b7 hd9bMD8caZrCPHNUWavcBJH3e6C1tMdauDWNh9P7EAmJ+bklAfRWsum1nBYq N5MpXUt7S83BjeszmypzYjO/eyu5JMkHMqowx/V5vt8NLe7apf2lXRNZvmnM YeRi+dqmDdo2t83EEuYxOxkK31MP5c5tcjmHudBWuJKJK/yqcEAfZH/OwDrM qbWOAPnthzvTmGeCu95VJgKrqwG48ZT2NOaZUq4MHYyMR10H88N4Wbk6MMvZ pGnM++VgvAVd5dy2xjSeF/vLLvRLs5cw7xcSKcuYi3LH9sddi7mfyZxfl1vG Fh9xDXNDz2sx1350qr7anell05if95gPnRHBVref8xrI+93N0IKIvNx7NJy5 FnKeqGUahllvjxfk7kPvczu6boE8Yy7qtKzm45ALztSzje1sgVxnHrtpVmHM kyH3E7Nl18/rxIljkGMubH5dZumtnFdtmZ3VkGe9rlTrXLAyh/fc9Ja1eMtC Z6qQPnibgHdtvJPXV/apEUuPd7aDlt28DqvAAqu0eV1bIBfgcb5tKvDJzlMe Qi9V2afkBqYgB7fAIkN711Vxz6RP4vP96XTreqAGnfXGMVKWr2/BXF28Rz2K CW8IEsf3EID3CQmyFNlBvrcHCV8stipWdB3EXUJFiMnu7E9AWUbcs3pnJMZf 7Q+qjCF+3iO+tw+jUAOxrEi/zAGeyemL+eFlwEOZWncapZz3aA9VhIpMR1tw uCUeB7BkkMRS5l2tBTvNodpjC3rWIp1y5NDm1jxvhXlpDfRWmNMH2ZvbsA7m lmavTi/rP7bCDK5iV0eLCbcqdHaAehwYJFXjVObWEm5FOvsFtV1wtyANhexp 3GaPbEZa6GbZ5vgw7LJ/dIlE+bFuYPxaSh1opPQMxMysF9yKduZXrhy96L1j jl/pd0/YivbUxrZr0TbGlyUM3fyQa0cjustmwIma5hbLrPWNxkBl6nTF9e3W +kZ1FzzCnUHowsuqLvvG42hE6kpgS9SW/o2P2q0LusmN6pgZNbe8bwvmvtdO znZrMvyqzHuPgm7xRCGoGzq/5ZEsdXfz+89ArxjN81O8zjtJQAttsp3X1v4O kck4jW10vqV/qb7Jgi3PTF4HPZLSXvVDWo9Hfyerg2X7lvs7t6sfyYC3Z9Vb OfBfjk6OMTeKp1/IhK9DMf0JQ+aLLM+CXY95P2tjat/sLZhn91mDJnODEBlE 0B6OCiW0NtSM4d7Uy/UqbtaHbNP0NKZluAWkVADLEP3jxS5Zp2fMZm5x3Vq4 DR5g5BygN9e/zCJ+7G2STc62kuFbjgjHsebtYKRfuT4qvMJaFOj9TC6b8GcA /bqDDzwdWqLeMFD+dia/PWxKEKyFmChY32mOToK1Ool0jU0qO9tCrME6ZuTi rVGI+tiabguNKBsFyry2Yw+rC+nm7J+Etb4eF5D5fSILPe65XVWWBtcM+tHL thCmZmT7fWLHsL7VEBeXeo63JaO9WfPTMGdhfNJIqja/VGQcZvmLHAXle+F3 4tpTxxnUWTOYGtFlrok6L897HIdZ27LhBAqSeZVBNcw+p9KBmcl6v8WK2rky C8gKDEdkWyLVBYOlUluGLXWBwcSxghr7sEyJ3FPj7qwm0iyZyaz010T1PmVs IduWGI7DaMo3rI2ls6fDHMxZfJPt/VbAjPTAkolTNMdlKKcY0Kpka4hLvkkn j0MEL7LYCm/KQvAcTvYTSVy2hSQSK6hLZgImbskyjYmeY49ohhu6lbBjiKbm qEerm1sNmqt4ITXWYh257Eei1oxgZpn+HJiY12syEZyObB1yTFkYNnOk6Kbf 54bUeyQxs6iDzbR5UXNIMoes5nAxs7XDinktOLKV8cJWFGMIphi+ECFradt1 ekvSuRZzo+5RdrP6Ueq4t+50HDQ+BiGo+YJB5xHU7LYs5jfF42B/7Dm8jPNo Ce3r9lZZi1dWrmczHHH13JkVY2ClDMqfeZxzvjz3G/NQbhbITsVLuR/FiNPF 1Wsdd2BCcfQAjSyceDkHUw7M1ZytBpmqYEafr0inX53XebO6bnMo9xZnjoMk itASqRs7xazxB6lZf/hJti46ESRpDMyxvOhyHKQEbVwBN9d2nJwDCbnpYc6E hD1IZjJ7q12Hx1coTWsSkQn9usTIKSBJHmfh1Zbwowcpe3KRV9sMdgyk+9tn JrDMDaP3CCExRTtIcoutpY+G/nmbE20NsNk8cmsc3Nua+0aXK46rkVhspa0J R5ES0lw7GT41E+LibN+tWm44DlJGWUSguPcUW1MVnKocTZpZqZZHxDu6cRyW iG9mIky/V1qSbhKTazIJkUlCq8Wlf/sg5fHshQ6Mib3CxvDJ48Jt5roCF/7f vDw1A+UMLimd3xeplOBbsnYtJMm7tR2D10ISHvD31txUXs1v88MzxtQHkf1c 1hmjSs146emFcPtg5JlThnTzWZuVXf/6byuRyHs1NxssLsGQ6aXq2jY6noPB UoxHH310Vf4+ghFKItyNZpJXUtitKzPyaq6IFs+sE+vB4NqzmXQbtJ4Dw2fO j14DRk9RvF0Or99oKKGty7ZdDxC2DhUFHL5Z0DljMHkdMGRQTJSYyyEGGQS8 dt1DkJH3zlST7oiKrcjwelolVNg6cNnzpWZSu8wbnkAonUzsk531EaDexpre gxCAh9OMNl9nNWIt+10NbOFklTnEUJuY7+F2iNV1IhrulD7ubVA1jpjYmaDM e/OPzsytckp1245eOTRwc5RMQvoA+s8n6hgmU2Vx4Fbr6xFLko3CzHTjk2QT VWGyts1T5WzFsJq5VUqptohBlfVczIDcYp2QyxHE+igzh1ktIZcVuFsXHvXI ZYBCUD+Tf+vXKgm1pBIhKDx2JU5d0+/IdF2LGrf0O6RCvFudTki+pQqMW6+M 8LdOn+t9HFLixentCp2DHH4hOEk0o0l0gOXMTQTokZPKlM9em28PQ6gmK+d9 6JuVZlsnlKfp1kN6Fiy+A8PWzFspxqCT/G9b2DfHc/0sFvqGc6g8C5SR32K1 ymix/qZUutk2KJ0E6S/e3LrYJ2Xx/2a70AQBUnYW3WLCKQuHZxcSEPZnWk9j eXNvBlbRwhu0uNza7dI2CmVem52mKBM70pSta3qyA5YAjgvD3+C9zpoebMiZ +zxrp10Uf2s+L7n/LKM0IqN++jrCt5Xz3HKSnFAItIJNtDOnsYGZdqcn5sqh o1sXlSiXhrTdJSpMsrKnruPJgRM+z9a+ypTHPHUdD36Tl8FTwk3OjZrhqhY2 Ls5x60/ty9lQ7l0z0Up3Ba8JVWMG2eO95exXY57NszEGtYGLYaPrLPjmYfsY NRvGMaNTF/IwXe/CZK1nWMvstmjZhHlG5jJjYu0MCcGu+/szZNZGB72ew5lr x9Z0lI532zxuxlx5dJvstD92qK6nLhFMyAs3ZZAnn0qmaya3HWLO3ui5FOqa FfbZHBrdCl0y28asj7b1/EmzrbJ1uPLExaeu5ulPXDI6oL3kmX2IT52VktlW OSQ+y6TXruYJ5njCs1lqPdfTyvP9mXp4gcuDEd0qdVnV8xrD3Lv8zW4z+2o7 5jcPjxy7oUtXbhWYnLri+/DAaKqhW6/MtVOWA7lL0Oe+DD6uhTwT3cBg/qiO i40NTp1U6CfxgUyCNTtXnqLmh+syBYZ+Xmdng7FzDkVUOedwaZ3g4bHo1NXz M5ndKcgzbZbI12Z8p1Yfj+x59rhAnukn7Xisa0Ge4TpRQ2YinQI5HGUGDPdt hFwQJeVnekQpevN0zn5ivqCA9AUwj5eWIygDIqfke6a0HEyeFTi2lT6bIYef +s8k7ucgF1sbni6afjKxZJogggLN4wU5uEKap07IP4ScryFGMUuOJ9wKubi1 261sC+Q64EI7/uQ68/EzyklrjNFeJ2TpIRfOEaVJ2acu+ekhN0ZhsJ34spx1 i//M4ZjC1iTutvpPjJBD6kwYWL/uZHz5IAbQ3ds4eSBF9geb9wsr+YZGLFvX tI0dZJ5jpVfufNXH5YSFijVwuf+5f4h5f466WLWt17wO3ooSA7Sk1XXwzoo7 PYat44lzYOdYupWpwB5sGi2j2E3sWA12mmMYY+0sj7n1x+v2t1+GuX/H1gHs MZj7BcBzg9pTGGu/S5S6vFPHOMZCo7XTjea0WRLcYtGNA3Vz2szfnjYdf1yb NSO7PWzU5hz6nSN4TkG6nY96ctcSmUaTRW2nrg889I3Ch+xApQ7XjQBdsBKG 6Y+tTaH0y49ps7rbi3sre/RBu/ss7CnB+ymQgwr/CRv0mU7NFB5CLoOq68sb bZ1DNgZ5numPdVkDuSwF8vA9a8sGq2s2EzsMR0SfsmcI4PHYTExWPketPl59 S5lIGblTF/kcRt3CVPf0h+/OYU7uAhh1MN4EM+3tJq5vwlwvR+gthLS11daN CnvM/Z0DJE5d8TPW0zGqGgd13bRVzgqTXWU3c2mr7GALM2NwbBcOMoytC1DL 89mWjGHfy2Rr5HmdDQv9zLGB3YmGjwv2ch7xetflmH5qgvvmApZgr545SseU UHX2XOYo9CfnbcW+32LMqaunYJ/zd+ionu+pW4wdYp8jIbiu64xK9DtMZMk9 3thfTbR/Cg8b5q/kurJJaPQBT5kO5R64r1j9dgi9xAXxiY4MfG5Ve1BJH2ZN Z3ZOOHXJrPKyESKaUY53e55ZXZdylJnDzlFIGxAbhZ46JSOQiUxEJ3KjElKI 8FOHDdDnwvKCvhb8bWJ71Qa78U9VBFs2vz51ZbjmZjV/Zv/waCKLU3dephbG 38yOt0G3wFQ3kMXvs/3+0Uc59E67TAXIGZ3ZRV+bBfHZPn6JcQSw2QEgR/+x JmIcO214DPuwoLLgp72+z/g5/EQ5p+yzctWpuNognDnClizoR07t847GPmvF kGJpbdvYrsKc9KI8mqBs5ug7rYKYSy4/o/auTE7H++ZHrhzCyPYA2QzIpWZr p+FGEJRI7S2zkWUEsnAipz4JCbYOZQQxTW4zTIdN8porH84lPeE4BOP2dNfr 2IQIIdELFgdLW6k1SUnKlQvPPv6H5+H5TtmaMCGNtDKqRoW9FjJapirM1oYV o9vwP7h3Xkh2TAM2jc0JjpmdITUWPVqcRf7g0fEtXpNJytyg0IM7ziHArpz4 PDtR7vjAEPMOJAEy0OgCRBsgrOLmGvcWhu2LRG08knxrfz5nP2Uj69QmRBIN IT0GokZe4Z6sOFYc0Uzv2bIvF3GQuWsMhBLnBAllqgokOGussrjk4VgumdRi oD1hWI6Nad2nOgOxLZNZK5f+QOycnJfho2zFMLr080ou1vUIirhIsoibUFzk omaqQCmPiOvBo/NcAIHVxWEAwIOZI6l4F8DaUMmaM/SMpdGYg9OnrCwgbZXl zxvlTEtl/EQwDWB80O8PO2LncjAJPbaePkXi/IYy+tOnRFVtIUVVqObaIxY4 MVDVIVnVo5u4QTUiFj9zRhN93VsxfywWKpsNRNuZR/VzoqGDasizWQU0mtw/ PqhNUZRDr7I7qC1t14hVxjJ9UFt2y+jF0qKQ+nN5D57jE/QebtuMwas/99lP wAhg4byXKb1dDYkI+DbVE/hRQJ+1ow2HKjJA2nO8od34aW2yo1IPbSudoRxd bE2k/wZz1xxHRTDKlCYg0+5wMDFwzg9kiYveZVwwQNQZU7PDE/SQ8LqNqI4F k0kV3bHD9e+coId/+IzGlv++NZ4QfMTZcXQugPKfRShX3vtmrfHRAO+xOICQ 3ZkQ3djheVRg6fA8nsnFCNgHjW2nUfXi6Nu88vC8/hxWjckRoDmEuBdH5pMs 77GwfwRoejc5LKCN/tfv+i3Wc8B4Ecd/qMXcqq2QYgSsYuh0o62zyAJ1obQ9 D38sC6zG7BDw4eGSmeeAf6Z3Nb2vagWKQ8TMAeDkSoYHp35mHpVEweI48JUs lCjG4ELh522kfXhuHhPSEjXmatZwFteMSHLQMRl0Q6aDabR91ur3zZVEFvoP bld1VplDQ3tZ6ESJF1sxvSyinGqhpUBhaWrTn8BKForwzPRevvfVSI21cohe J3YhW6Fqd2oerdEQLAaIxT1GbtcOjXgjB6gplYLRIKUfunUOD5Utb+/7YEUB Yz7cltFJjmTBdcsVD3aRg2DEP62b+AGtVZSQZiHg7nziiIF2dKswIwZwkWCm x1IkDSBNuPT0JHDNIbnTvcP7hlOSAZYOaipdvMx5Ky6+cilBdX/7v/a7N/u4 ayhbcCGBxk+pbbaxX7W92w26d/akSi7K57+5GvnVFl4MmipmOFjgeSWDJw6J EjTXJUrqo4qALBHLVR367UxshzB+S1+Km/E3NUrb0vHUvmIYR+T0L5p9isdA mWPJXG35/zAZlsPp9nsbk8DtZgtaLxxh5rQf+vprHnWxt9aTGQYPxQFt1+XZ 07rRhOaQcDvxe9gj7fC0bt4XjC1T+wFNQXI8vW5kpiv3fb8Wld4g5bOrXZXb 1Vp4f2UarTPVSlF6PIc7qxX7TEXQIzlJGB70zCMC7C3XRrQqkXP9Cm6DCNLv nVlVerWo6wlViu14m1qkS0BJgqJBV3csdKSg16z5U1z0pFZbitbsqHq+nHvd o68KpNqStb3uJzWFwuh3j37OR+/O9mmm/UAt0qvVWhzF3WXJGOhztlAJnAbF YtflfUcsFOBzDDhzlvIgp3Zi+QB8dkyfWZQa4BWTzU00RaIhI2XsIHuRtZP3 Ukvin0vXPrG9pN9xjRlx/smolPtSXD+ZJcBrXDr8MsVTKQ98m/Gg261V5Cvk FT0SijKUR0OzWxtVM55edOeeVo0sVqlId9j/y8ZPwmRhXTY9RK7BPGfVzyxn DebUiVpRBb9TDZfWKZpdsdgW6AckFZ4bGHpy/ezeSmG0lDj5tuZso+fEQFnb ZLjATdBZEJojVwI3ElNRvADOTIQL3P4WQuS8VGTg0rCceoQElV1sqLfescOV ArciuRYKRFJUPMEOK+bMkUU3y2Ia9nuqcaMkr1XLYp2D54GR7gtQmEPfIdAK sYFXwHVqdCj4YwNl8FJQbFVLcSSvODXPQYX/sQGJEHyXnRN6fafjAqCOaG63 ItO79CiaK/ww1B5I0QT34ZqoQoLV8vnhZnaRATdKBphTDcrvZ31HjN/EHfR2 Zo+tfuMMWqTf0FhxqKnaidvgddgpS9IiEw2meOfJTZuhgTAYvhlmfbBDdQQ6 +KtfaPuf6rMP1AAJR3nexbI1PerWn5zXS0CbXGRfLGCv7iInlNoIZ/gOvGiA mxybANOLIfkE1FDaM4hBG3ViiKg7EnhODJoBaoG13w/FoG+c46wPUxUimKUx 6ohB8Jeeqf6Y3w/TE0QlwZClLREDMRG3+jBb4pcx1yMVKPJKmeYVMfgbzyOb Q0MAizroUBA5Q8h3orOs4eZ8DweoIwYBgDBFzKQ31jNSvy28BNTMtnxZGCwQ VCXVYRmx1V4ctFRzk3/srSLTNTDO3Aqv3irAzMGDtTHTII5Ypxgk08E+sD57 uwasstggYhnYUv2zcQ8x3NdaJzoABT+SPZiLKHpJCAQyI8RG932fGMuJhUv1 jsarIwkZFK9QFT/FnTda0/ES4i1aUz4rZlc+SzPd8UEzIkGhgk7kTTT+bseM DnXU5MyWUP/D7BEHzILm1lD3FkL83ocI+oxRNpHJCTZZyxuR4GXPCabwcKYf 5MRhIrnV2sVqeA7toTZwpgI9UUWsSUX1RLW048e/qvfdrCESfKhJl9tGNsTE 9y5s7JlBXIlZisim/RPLuXBWi5qG2oVL0qpCt8N3XkXbljYojPvmc1E8BDMy 1Llvrz6krAiEvhOU2Fs1pVfQWH9s9pWi3VdtFuCEwu5d6e4X5c7ryJLcZV7a VotDyyBCXrrWY4mLf92YlOtXXTrrkt1UHSy5ZtFMJOI+1RNdc0ZY0wUOzpyN XN17fw34fYYVQYARkwOjt20N8Jgg3rlV2yOKaen2GhypErMibMVk++5IoJ+D DRZNTgSayZL3tHv5a/4YrBQnQ7Px95zHeatL9iYkiowAZVsDdVFHW58dztOO COi/uvLzomnawWTFlkSI2eeWivXbK3g/wxDXoMq0FX6MIiIgppzgLZ3+0EMP VQ0VgHqXeHhiJDsiEFIIlTI7ROiFpYQjXplZO4ci6Kdl53lVj6OICDAlSECg 1wNOFwelLtgpzVFl9/AMHA/VaCMNtVkWJByc7vdv2qPoga1BAyqqTCKMS/Vm TvML8ForGslAvFQXtywKCBulVVqvxRROJJ/9BpaOO39Kqy7fobqxE6ihEqh0 i4DHAM9kGTLuRm2GqmEnYHkFU84kCijQx8I8A+D0FBTYDGpJjri4kDaU0wP+ nu01XgshZsFcMz6ytO63R1su2kXWkIQcdU+AlCYhUlX3jGr1ef65FMVT2/PI F1Nhs4ev9u8ZPG7W/k5B3b6v/qJtkLgHNWpxUTR1azsFVF+EXuIMKCaxZR69 smlXOxpqDGKQJDMoaQgGUvX7MpPcW+GKQ3eRbjHHG7S5PJK06lUBV69UfDoa 9DBHYPALJDCVhQvSmaEPZcTL+ilZS3nNIp0V2aSzj/TNinQ3uneDgZQqcHsB OkJJxi1T/lRFFaBXFOFopLhH2zOYhBDTLV7arqFX6EO0s77U771Cg1kd1Ssb P+qp80lgnqKPwCzgYWhCS34FYcoYam+W+U7BrD2UdYo7+kFUXKCzxXgMpOKO HudME6PwWXU2dbxfj3MmWpMJZ+MZZLImRDnEOQaqHrAQovQ4Z6jOhQhghOa1 c+r8rR7nDHkzF997R59TGMMZOamje/FqRkzmcBarZBjiUJ8zwT7lZlqn/THm 9LlfTMCshe7darzNOMNYXf1+qM+HM2rYD7nSmyXa6A/Z0rNUPv2mX0mgfWB7 fuyMbPQEj5a1nINZVXPu9CHM/YR2ImaWxGfnl8OR2zGYmRWTEkFkxu1WmNGC v4k8vdIpmIlU1MBnboU5k0+Fp0KDrB2Yg5kJMNeWk5mCWbE+UyUWcMgah1uP IHw/xzo4UzAHBj2Buc3RpmCWbqJdY+HGGMxrpouMwdxbbzrtUzBnRaikSTr3 UxjLvxObkEadhNFTGOcIAVe5/6hjP4axAKAfD15mjPMe40FlMIaQvqnyFMSs Rb5H7mKuBz+lyYr3KsSRpRhzmsxhaFLrrWR0qEN5bz1+xgwKYcwpMs6QWm6D qosgo3suj+21wdiTQIaQCEt9ZkDOdAVyBdQWuhCie0YZ7HoNXbCZI7rYBzkq r5oCnzlGpsY6+9lb8TCDO4awS5aJrPVC51bqjiGc+gnDM5iRdoyd1kwKGaua yH2MoevKxrz9AXxjsYUQORNu+nGKOXg9kzGLq/vuOYL3scceK80o3blyf8Yp 3HnrCOLxlf5CfWnVmdHROR0WCusxIOVBh8dPH1fruU72U9tnY2df49ZupuRc X0SwRCeT1psDGG9xdXf1d//s6377onYK1uFw3By2K0b7pxxd1nE3q5nU4LRE N0Lrp7Lac+BmYm2bazcFLrIWIuV0sTk/J+IlCODyiVMAp/oiwQbuCDmMo4sg FiaxTKGLE1SXe92P1sbR1eGZO4lpDN1eMplBMQVtZkzoTC6FEHRWbksIRLHu ksM+tJ3VbiYFnbqFffqnoM2sm24KxSy012EFPt6YxQwrUERVoizSaoep5kN0 xfGZAzzHDKm+fkbbkmLRq4l0VBVXdudGbE5PGCcVSHI7c/0MpEkE2Y1zSwCM 8aQnPCdXmF08xzDWv8gZSt63z7zj/Tlu0yjJUn9Ot9IYURtRPBp1nOo2C3qy uVQbpjgJ5+z8OdfRyPYt8qI+n+fg4wBNvjznRGRVbHBm7eTAIo3ri6Yy4fYw Zz+VnoDhfhhxjDNZGgwTCY0d3jmFs/fBQ2ehTeVYnT92JQc9lq0f69Blusbc HIep3ka26+yWvA44i1Azt0f0oH+usyntMpZuS/7Y5XuDFuSRVP0UzgJxdZLS GtsMawrnkWUVizjr2+irZF43PstYz5o0EL2Z22tiCme65ll1ymrW4KwHl3Ow /TRGpEw6kfPVx3DOFPoc0enepV6H0EtquNRvVR4oy7zkVujlGt5gh8J5vQdh tO91wtVzbR5IO/HgFt4IzjkEKjj/53rvrWFMPUOiZhm0zTeH+uAVesiXCK7p P52hL2uSE/iKPMv9RxPCx/DFRZlw3p1GN4pv1sPy3/B0L5mQfTuBqJapU5t5 UlPp4ywU9NncsUFj6WMXXyCKy6ncPc6w1/+BpRgDX2TuU+qTZdWG97SB7rvI Z4kv8L7n8dPYCq0eZ9zWZhxUWeKJbhXpLM45dCHrr7KehD648MhYml5b6WJG U8lCXecWQPQ44xn25hn1dU+/O8R/qfdeHWtMjtqZs3YLVhkRTXY7GWWBfQbB cmTnRBZIzC1CIuW2fGOSLXLWnRQei9UdkvDm/fb3fHiwR3mYze957woLaIlp y7Qomkp6XTZIoKR1+ukUkBIJGgh1brFPQEZolNP9YnKEA3R/J6j7r/Xee6oy IjLjZxn7uFKQJ1RCT9Mz655yURrCj4GPIE0wugRCdfrFluhXeWxyGARvZ+wY aobM6He2SJ1CGh/hFuXjsZaSqTqa6ST4ju21eKOvqpYTgNuyNwXE5xaUBGmK 4Nmc24LWda377cSiztlTk+p3IUbAZklqGNYSiYgw1DgrkHSa2pSktECpmdcM JMC5BJFjY3vvVZ+7rxafKXNZvyrQ2JsoefsI5yxhpZZeW9TyrJ+MpYZJdeHn zHjDKZ5tedNaXpuAPgrw01o1JRTUwbPxgzlasNSnxzan+tL8tiYz2KoZo1I7 v2uBK+eHZEk08IqmXE0EuDqgMasLikhuVHGeD75vd9C7fu/WVuaXQ+0T5+4z xTGu/UmX7QznPVyVEzPscYWP8jNdCrtQ3CmKeJf2XNZbGF/zPfXJ3KEeVHVB A63PexfUq2pxEZggs536GfwApbjNlQ5VptTCJuqDJLn6sXAtcJIp0yYF0uhO bJ+EM9Vuh8ntwZnR/o54h7myLID4uB7N1cWd2PY4SCZPhAo8zi+Mmb6iRGS4 f8/0ryaAIyuuxW1j8/C9IoFDkOQToKK18saKHTtu5H1aNbRah4+S8JZ7WbR9 EF2Kzck4h7aec8bpeLLtmffNnYgt8fjcVt3v2qqlnAxAGiRs/B3w6IhqCeOy MKoDz91ZRZPJGz141IsqZAZbainKYgEsc2w/qIAmknUPD3aUNL8Cjdg5Kp6E F/AqxatpD5rPAaahLXk+VCdj/p6f23egB035BJRdlQpoV7OpHxgUGMe61cW/ ei2x4+HmjIbquVdk1OdoerQYOv9aDOQoJxO0Erqgzm4vxKDFfnOap8gE/WTn llbVoToJ+7Us7qRHS3CVPYCm6C5o5YAeioL6WhQUtHxMvbzGpRfJTtMzYiyH SwEUwdMR5iFanqOyfPnYCoYerezamdPmOrTEbVpC/XyFYiQUqS096dHK0lZG FyfRo8WxJAJZMsh+c4Sc1FbQutoo+/4al9Eh/fjsWQExl8Cm9c1SM5YBJDVL 8jo1O9wGcsoI073m27t1xB9Sv76vesfsCZ9eXCpeQMoKK55BQNrwSSUQPjPi A+dyTIEn+xXQmm5v9UhNxIz+pDf4LX4wUxjD7qlRjjdpM5xTI7qACVvm52iI JLBQBm5MbbyujZl+aP36VkWbO2IpVMzfIKI3/c4JIGtr8FIDb1dq9mOYylME E9D2PZ02sh9MqId0I1nHNbhgklRrBi8watLwqY7OEgG3PRmPAHnfzgrgTaQZ og8a4vIccUlGgm2ig0benRS7+tzfEHJ/mH1ioPjd2uu9gj1jy/RmewjIFQtr HpaFWmcxQzWEPMne3u6ahlFJpJR/ZCrv155NRFhgPPsf7dmsp9cU9SrKMCgA 74CKEUMJQLJDHrrjV4ruDIIXYzB2fz29PS420QSIlyqmtRx1VjiIkNpUw8qM hFBsZ2gtIWBQK3fy+jYG+txDQb/fZX3tZanKZVGKy8JDBazLD6sf33tZhHJZ rPuy9EovS+0vy6suSwNv1K/vuSziuyxYX5aw9LI05JIDfqB+d35Z5HJZRH9Z Nb19pjj3kfHT25sfe+yxy6IOl8WTXtLw+vHtyyLey0ceecRf9Z/X+KxobP29 uo5WDUUUA6tFFBW6pOmpRnn9ZdHw53QOdufHsx7f38/e6f8DCSn/Xw==\ \>"]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{1272, 717}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, ShowSelection->True, CellLabelAutoDelete->True, TrackCellChangeTimes->False, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3451501349-9423486"->{ Cell[22528, 663, 1473, 25, 62, "Print", CellTags->"Info3451501349-9423486"]}, "Info3451501367-9057210"->{ Cell[30632, 924, 423, 6, 42, "Print", CellTags->"Info3451501367-9057210"]}, "Info3451501374-8412108"->{ Cell[31772, 967, 649, 10, 58, "Print", CellTags->"Info3451501374-8412108"]}, "Info3451501385-1312856"->{ Cell[41463, 1306, 444, 7, 58, "Print", CellTags->"Info3451501385-1312856"]}, "Info3451501388-3366144"->{ Cell[42802, 1359, 420, 6, 58, "Print", CellTags->"Info3451501388-3366144"]}, "Info3451501438-9739974"->{ Cell[47134, 1478, 1538, 22, 94, "Print", CellTags->"Info3451501438-9739974"]}, "Info3451501449-7217260"->{ Cell[51491, 1629, 1503, 23, 93, "Print", CellTags->"Info3451501449-7217260"]}, "Info3451501466-9452781"->{ Cell[58300, 1873, 700, 10, 75, "Print", CellTags->"Info3451501466-9452781"]}, "Info3451501472-4954103"->{ Cell[63403, 2002, 2101, 30, 60, "Print", CellTags->"Info3451501472-4954103"]}, "Info3451501543-2644142"->{ Cell[68836, 2139, 638, 14, 62, "Print", CellTags->"Info3451501543-2644142"]}, "Info3451501545-7733826"->{ Cell[69561, 2161, 630, 13, 62, "Print", CellTags->"Info3451501545-7733826"]}, "Info3451501621-6302950"->{ Cell[71046, 2216, 529, 9, 58, "Print", CellTags->"Info3451501621-6302950"]}, "Info3451501627-2279855"->{ Cell[72524, 2270, 634, 10, 58, "Print", CellTags->"Info3451501627-2279855"]}, "Info3451501631-3030458"->{ Cell[75469, 2381, 850, 12, 59, "Print", CellTags->"Info3451501631-3030458"]}, "Info3451501663-3940611"->{ Cell[80781, 2565, 958, 15, 42, "Print", CellTags->"Info3451501663-3940611"]}, "Info3451501667-4475581"->{ Cell[83718, 2664, 413, 6, 40, "Print", CellTags->"Info3451501667-4475581"]}, "Info3451501674-2042943"->{ Cell[86156, 2751, 966, 14, 76, "Print", CellTags->"Info3451501674-2042943"]}, "Info3451501679-3286371"->{ Cell[89871, 2871, 347, 5, 40, "Print", CellTags->"Info3451501679-3286371"]}, "Info3451501685-8105256"->{ Cell[93509, 3016, 1133, 16, 92, "Print", CellTags->"Info3451501685-8105256"]}, "Info3451501690-6293151"->{ Cell[96145, 3103, 566, 9, 58, "Print", CellTags->"Info3451501690-6293151"]}, "Info3451501692-9148757"->{ Cell[97628, 3150, 562, 9, 58, "Print", CellTags->"Info3451501692-9148757"]}, "Info3451501694-6112587"->{ Cell[99230, 3203, 853, 13, 59, "Print", CellTags->"Info3451501694-6112587"]}, "Info3451501704-7654305"->{ Cell[102966, 3342, 222, 4, 40, "Print", CellTags->"Info3451501704-7654305"]}, "Info3451501707-1292380"->{ Cell[103797, 3379, 223, 4, 40, "Print", CellTags->"Info3451501707-1292380"]}, "Info3451501714-1964925"->{ Cell[107559, 3490, 661, 10, 75, "Print", CellTags->"Info3451501714-1964925"]}, "Info3451501725-6321139"->{ Cell[111146, 3621, 427, 6, 40, "Print", CellTags->"Info3451501725-6321139"]}, "Info3451501740-9192097"->{ Cell[113709, 3693, 5005, 75, 120, "Print", CellTags->"Info3451501740-9192097"]}, "Info3451501745-1327919"->{ Cell[119550, 3806, 379, 6, 58, "Print", CellTags->"Info3451501745-1327919"]}, "Info3451501746-4446176"->{ Cell[120034, 3820, 425, 6, 58, "Print", CellTags->"Info3451501746-4446176"]}, "Info3451501760-6929655"->{ Cell[123328, 3949, 579, 8, 58, "Print", CellTags->"Info3451501760-6929655"]}, "Info3451501762-8803465"->{ Cell[124672, 3994, 581, 8, 58, "Print", CellTags->"Info3451501762-8803465"]}, "Info3451501767-3431690"->{ Cell[126111, 4045, 1444, 20, 93, "Print", CellTags->"Info3451501767-3431690"]}, "Info3451501789-5226476"->{ Cell[267836, 6449, 564, 8, 58, "Print", CellTags->"Info3451501789-5226476"]}, "Info3451501793-6328774"->{ Cell[268491, 6465, 185, 3, 40, "Print", CellTags->"Info3451501793-6328774"]}, "Info3451501804-1708371"->{ Cell[270149, 6530, 1608, 23, 76, "Print", CellTags->"Info3451501804-1708371"]}, "Info3451501805-5182785"->{ Cell[271878, 6562, 1608, 23, 76, "Print", CellTags->"Info3451501805-5182785"]}, "Info3451501817-5435346"->{ Cell[290321, 6992, 1822, 27, 77, "Print", CellTags->"Info3451501817-5435346"]}, "Info3451501824-2752234"->{ Cell[295228, 7154, 730, 12, 58, "Print", CellTags->"Info3451501824-2752234"]}, "Info3451501827-2936702"->{ Cell[296692, 7204, 732, 11, 58, "Print", CellTags->"Info3451501827-2936702"]}, "Info3451501830-5413399"->{ Cell[298181, 7252, 730, 12, 58, "Print", CellTags->"Info3451501830-5413399"]}, "Info3451501833-7501677"->{ Cell[299687, 7301, 732, 11, 58, "Print", CellTags->"Info3451501833-7501677"]}, "Info3451501837-7748020"->{ Cell[301278, 7356, 508, 8, 58, "Print", CellTags->"Info3451501837-7748020"]}, "Info3451501860-6152062"->{ Cell[313884, 7662, 403, 6, 58, "Print", CellTags->"Info3451501860-6152062"]}, "Info3451501872-6671845"->{ Cell[319353, 7845, 928, 13, 92, "Print", CellTags->"Info3451501872-6671845"]}, "Info3451501874-9938598"->{ Cell[320374, 7866, 916, 14, 92, "Print", CellTags->"Info3451501874-9938598"]}, "Info3451501877-6716571"->{ Cell[322052, 7917, 939, 14, 92, "Print", CellTags->"Info3451501877-6716571"]}, "Info3451501890-3242762"->{ Cell[329268, 8132, 426, 7, 58, "Print", CellTags->"Info3451501890-3242762"]}, "Info3451501896-4978945"->{ Cell[331886, 8225, 569, 8, 58, "Print", CellTags->"Info3451501896-4978945"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3451501349-9423486", 425178, 9800}, {"Info3451501367-9057210", 425290, 9803}, {"Info3451501374-8412108", 425400, 9806}, {"Info3451501385-1312856", 425511, 9809}, {"Info3451501388-3366144", 425622, 9812}, {"Info3451501438-9739974", 425733, 9815}, {"Info3451501449-7217260", 425846, 9818}, {"Info3451501466-9452781", 425959, 9821}, {"Info3451501472-4954103", 426071, 9824}, {"Info3451501543-2644142", 426184, 9827}, {"Info3451501545-7733826", 426296, 9830}, {"Info3451501621-6302950", 426408, 9833}, {"Info3451501627-2279855", 426519, 9836}, {"Info3451501631-3030458", 426631, 9839}, {"Info3451501663-3940611", 426743, 9842}, {"Info3451501667-4475581", 426855, 9845}, {"Info3451501674-2042943", 426966, 9848}, {"Info3451501679-3286371", 427078, 9851}, {"Info3451501685-8105256", 427189, 9854}, {"Info3451501690-6293151", 427302, 9857}, {"Info3451501692-9148757", 427413, 9860}, {"Info3451501694-6112587", 427524, 9863}, {"Info3451501704-7654305", 427636, 9866}, {"Info3451501707-1292380", 427748, 9869}, {"Info3451501714-1964925", 427860, 9872}, {"Info3451501725-6321139", 427973, 9875}, {"Info3451501740-9192097", 428085, 9878}, {"Info3451501745-1327919", 428200, 9881}, {"Info3451501746-4446176", 428312, 9884}, {"Info3451501760-6929655", 428424, 9887}, {"Info3451501762-8803465", 428536, 9890}, {"Info3451501767-3431690", 428648, 9893}, {"Info3451501789-5226476", 428762, 9896}, {"Info3451501793-6328774", 428874, 9899}, {"Info3451501804-1708371", 428986, 9902}, {"Info3451501805-5182785", 429100, 9905}, {"Info3451501817-5435346", 429214, 9908}, {"Info3451501824-2752234", 429328, 9911}, {"Info3451501827-2936702", 429441, 9914}, {"Info3451501830-5413399", 429554, 9917}, {"Info3451501833-7501677", 429667, 9920}, {"Info3451501837-7748020", 429780, 9923}, {"Info3451501860-6152062", 429892, 9926}, {"Info3451501872-6671845", 430004, 9929}, {"Info3451501874-9938598", 430117, 9932}, {"Info3451501877-6716571", 430230, 9935}, {"Info3451501890-3242762", 430343, 9938}, {"Info3451501896-4978945", 430455, 9941} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 32, 0, 83, "Title"], Cell[602, 24, 42, 0, 49, "Subtitle"], Cell[647, 26, 222, 6, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[894, 36, 31, 0, 71, "Section"], Cell[928, 38, 306, 6, 47, "Text"], Cell[1237, 46, 405, 11, 29, "Text"], Cell[1645, 59, 54, 1, 47, "Code"], Cell[CellGroupData[{ Cell[1724, 64, 44, 0, 36, "Subsection"], Cell[1771, 66, 328, 10, 30, "Text"], Cell[CellGroupData[{ Cell[2124, 80, 737, 23, 47, "Input"], Cell[2864, 105, 7379, 132, 197, "Output"] }, Open ]], Cell[10258, 240, 213, 5, 30, "Text"], Cell[CellGroupData[{ Cell[10496, 249, 106, 2, 31, "Input"], Cell[10605, 253, 545, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11187, 266, 107, 3, 31, "Input"], Cell[11297, 271, 223, 4, 30, "Output"] }, Open ]], Cell[11535, 278, 100, 3, 30, "Text"], Cell[CellGroupData[{ Cell[11660, 285, 123, 3, 31, "Input"], Cell[11786, 290, 648, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12471, 307, 91, 2, 31, "Input"], Cell[12565, 311, 224, 5, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[12838, 322, 36, 0, 28, "Subsection"], Cell[12877, 324, 156, 3, 29, "Text"], Cell[13036, 329, 161, 4, 30, "Text"], Cell[CellGroupData[{ Cell[13222, 337, 139, 4, 31, "Input"], Cell[13364, 343, 476, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13877, 356, 70, 1, 31, "Input"], Cell[13950, 359, 476, 8, 30, "Output"] }, Open ]], Cell[14441, 370, 164, 5, 30, "Text"], Cell[CellGroupData[{ Cell[14630, 379, 319, 10, 31, "Input"], Cell[14952, 391, 909, 22, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15898, 418, 281, 9, 31, "Input"], Cell[16182, 429, 896, 22, 57, "Output"] }, Open ]], Cell[17093, 454, 264, 5, 48, "Text"], Cell[CellGroupData[{ Cell[17382, 463, 131, 4, 31, "Input"], Cell[17516, 469, 1317, 34, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18870, 508, 193, 6, 31, "Input"], Cell[19066, 516, 527, 14, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[19642, 536, 31, 0, 28, "Subsection"], Cell[19676, 538, 92, 2, 29, "Text"], Cell[19771, 542, 261, 9, 30, "Text"], Cell[CellGroupData[{ Cell[20057, 555, 170, 5, 31, "Input"], Cell[20230, 562, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20295, 567, 206, 5, 31, "Input"], Cell[20504, 574, 28, 0, 30, "Output"] }, Open ]], Cell[20547, 577, 120, 3, 30, "Text"], Cell[CellGroupData[{ Cell[20692, 584, 554, 16, 31, "Input"], Cell[21249, 602, 205, 5, 30, "Output"] }, Open ]], Cell[21469, 610, 146, 4, 30, "Text"], Cell[CellGroupData[{ Cell[21640, 618, 262, 8, 31, "Input"], Cell[21905, 628, 32, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21974, 633, 66, 1, 31, "Input"], Cell[22043, 636, 175, 6, 30, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[22279, 649, 34, 0, 71, "Section"], Cell[CellGroupData[{ Cell[22338, 653, 109, 3, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[22472, 660, 53, 1, 31, "Input"], Cell[22528, 663, 1473, 25, 62, "Print", CellTags->"Info3451501349-9423486"] }, Open ]], Cell[CellGroupData[{ Cell[24038, 693, 96, 2, 31, "Input"], Cell[24137, 697, 167, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24341, 706, 123, 3, 31, "Input"], Cell[24467, 711, 167, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24671, 720, 124, 3, 31, "Input"], Cell[24798, 725, 183, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25018, 734, 122, 3, 31, "Input"], Cell[25143, 739, 173, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25353, 748, 123, 3, 31, "Input"], Cell[25479, 753, 1021, 29, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26537, 787, 152, 4, 31, "Input"], Cell[26692, 793, 1021, 29, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27750, 827, 125, 3, 31, "Input"], Cell[27878, 832, 161, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28076, 841, 91, 2, 31, "Input"], Cell[28170, 845, 161, 4, 30, "Output"] }, Open ]], Cell[28346, 852, 61, 1, 31, "Input"], Cell[CellGroupData[{ Cell[28432, 857, 120, 3, 31, "Input"], Cell[28555, 862, 1071, 29, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29663, 896, 127, 3, 31, "Input"], Cell[29793, 901, 635, 10, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[30477, 917, 69, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[30571, 921, 58, 1, 31, "Input"], Cell[30632, 924, 423, 6, 42, "Print", CellTags->"Info3451501367-9057210"] }, Open ]], Cell[CellGroupData[{ Cell[31092, 935, 209, 6, 31, "Input"], Cell[31304, 943, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31369, 948, 182, 4, 31, "Input"], Cell[31554, 954, 28, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[31631, 960, 62, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[31718, 964, 51, 1, 31, "Input"], Cell[31772, 967, 649, 10, 58, "Print", CellTags->"Info3451501374-8412108"] }, Open ]], Cell[CellGroupData[{ Cell[32458, 982, 308, 9, 31, "Input"], Cell[32769, 993, 374, 11, 102, "Output"] }, Open ]], Cell[33158, 1007, 75, 0, 29, "Text"], Cell[CellGroupData[{ Cell[33258, 1011, 429, 12, 31, "Input"], Cell[33690, 1025, 374, 11, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34101, 1041, 730, 21, 31, "Input"], Cell[34834, 1064, 510, 19, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35381, 1088, 730, 21, 31, "Input"], Cell[36114, 1111, 516, 20, 60, "Output"] }, Open ]], Cell[36645, 1134, 118, 4, 30, "Text"], Cell[CellGroupData[{ Cell[36788, 1142, 699, 20, 31, "Input"], Cell[37490, 1164, 670, 20, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38197, 1189, 747, 22, 31, "Input"], Cell[38947, 1213, 485, 14, 30, "Output"] }, Open ]], Cell[39447, 1230, 146, 6, 30, "Text"], Cell[CellGroupData[{ Cell[39618, 1240, 909, 27, 52, "Input"], Cell[40530, 1269, 374, 11, 102, "Output"], Cell[40907, 1282, 374, 11, 102, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[41330, 1299, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[41413, 1303, 47, 1, 31, "Input"], Cell[41463, 1306, 444, 7, 58, "Print", CellTags->"Info3451501385-1312856"] }, Open ]], Cell[CellGroupData[{ Cell[41944, 1318, 248, 8, 31, "Input"], Cell[42195, 1328, 92, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42324, 1336, 217, 7, 31, "Input"], Cell[42544, 1345, 50, 1, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[42643, 1352, 71, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[42739, 1356, 60, 1, 31, "Input"], Cell[42802, 1359, 420, 6, 58, "Print", CellTags->"Info3451501388-3366144"] }, Open ]], Cell[CellGroupData[{ Cell[43259, 1370, 171, 4, 31, "Input"], Cell[43433, 1376, 126, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43596, 1384, 91, 2, 31, "Input"], Cell[43690, 1388, 1108, 16, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44835, 1409, 70, 1, 31, "Input"], Cell[44908, 1412, 1108, 16, 50, "Output"] }, Open ]], Cell[46031, 1431, 122, 3, 29, "Text"], Cell[CellGroupData[{ Cell[46178, 1438, 449, 12, 52, "Input"], Cell[46630, 1452, 126, 3, 30, "Output"], Cell[46759, 1457, 126, 3, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[46934, 1466, 125, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[47084, 1475, 47, 1, 31, "Input"], Cell[47134, 1478, 1538, 22, 94, "Print", CellTags->"Info3451501438-9739974"] }, Open ]], Cell[CellGroupData[{ Cell[48709, 1505, 286, 10, 31, "Input"], Cell[48998, 1517, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49063, 1522, 358, 12, 33, "Input"], Cell[49424, 1536, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49489, 1541, 333, 11, 31, "Input"], Cell[49825, 1554, 39, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49901, 1559, 318, 10, 31, "Input"], Cell[50222, 1571, 28, 0, 30, "Output"] }, Open ]], Cell[50265, 1574, 128, 3, 29, "Text"], Cell[CellGroupData[{ Cell[50418, 1581, 368, 11, 31, "Input"], Cell[50789, 1594, 30, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50856, 1599, 109, 2, 31, "Input"], Cell[50968, 1603, 234, 8, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[51251, 1617, 161, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[51437, 1626, 51, 1, 31, "Input"], Cell[51491, 1629, 1503, 23, 93, "Print", CellTags->"Info3451501449-7217260"] }, Open ]], Cell[CellGroupData[{ Cell[53031, 1657, 220, 7, 31, "Input"], Cell[53254, 1666, 667, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53958, 1693, 307, 10, 31, "Input"], Cell[54268, 1705, 655, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54960, 1732, 252, 8, 31, "Input"], Cell[55215, 1742, 293, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55545, 1757, 192, 6, 31, "Input"], Cell[55740, 1765, 287, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56064, 1779, 89, 2, 31, "Input"], Cell[56156, 1783, 889, 33, 30, "Output"] }, Open ]], Cell[57060, 1819, 61, 1, 31, "Input"], Cell[CellGroupData[{ Cell[57146, 1824, 484, 17, 33, "Input"], Cell[57633, 1843, 473, 17, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[58155, 1866, 64, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[58244, 1870, 53, 1, 31, "Input"], Cell[58300, 1873, 700, 10, 75, "Print", CellTags->"Info3451501466-9452781"] }, Open ]], Cell[59015, 1886, 75, 0, 29, "Text"], Cell[CellGroupData[{ Cell[59115, 1890, 334, 10, 31, "Input"], Cell[59452, 1902, 1467, 28, 162, "Output"] }, Open ]], Cell[60934, 1933, 63, 0, 29, "Text"], Cell[CellGroupData[{ Cell[61022, 1937, 566, 17, 31, "Input"], Cell[61591, 1956, 1616, 33, 254, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[63256, 1995, 65, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[63346, 1999, 54, 1, 31, "Input"], Cell[63403, 2002, 2101, 30, 60, "Print", CellTags->"Info3451501472-4954103"] }, Open ]], Cell[65519, 2035, 144, 3, 29, "Text"], Cell[CellGroupData[{ Cell[65688, 2042, 205, 6, 31, "Input"], Cell[65896, 2050, 173, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66106, 2061, 616, 20, 31, "Input"], Cell[66725, 2083, 1826, 38, 172, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[68600, 2127, 160, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[68785, 2136, 48, 1, 31, "Input"], Cell[68836, 2139, 638, 14, 62, "Print", CellTags->"Info3451501543-2644142"] }, Open ]], Cell[CellGroupData[{ Cell[69511, 2158, 47, 1, 31, "Input"], Cell[69561, 2161, 630, 13, 62, "Print", CellTags->"Info3451501545-7733826"] }, Open ]], Cell[CellGroupData[{ Cell[70228, 2179, 244, 7, 31, "Input"], Cell[70475, 2188, 50, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70562, 2194, 244, 7, 31, "Input"], Cell[70809, 2203, 31, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[70889, 2209, 70, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[70984, 2213, 59, 1, 31, "Input"], Cell[71046, 2216, 529, 9, 58, "Print", CellTags->"Info3451501621-6302950"] }, Open ]], Cell[CellGroupData[{ Cell[71612, 2230, 131, 3, 31, "Input"], Cell[71746, 2235, 234, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72017, 2247, 149, 4, 31, "Input"], Cell[72169, 2253, 155, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[72373, 2263, 67, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[72465, 2267, 56, 1, 31, "Input"], Cell[72524, 2270, 634, 10, 58, "Print", CellTags->"Info3451501627-2279855"] }, Open ]], Cell[CellGroupData[{ Cell[73195, 2285, 271, 9, 31, "Input"], Cell[73469, 2296, 160, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73666, 2305, 358, 12, 31, "Input"], Cell[74027, 2319, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74147, 2326, 358, 12, 31, "Input"], Cell[74508, 2340, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74628, 2347, 392, 13, 31, "Input"], Cell[75023, 2362, 160, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[75232, 2372, 110, 1, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[75367, 2377, 99, 2, 31, "Input"], Cell[75469, 2381, 850, 12, 59, "Print", CellTags->"Info3451501631-3030458"] }, Open ]], Cell[76334, 2396, 113, 3, 29, "Text"], Cell[CellGroupData[{ Cell[76472, 2403, 259, 8, 31, "Input"], Cell[76734, 2413, 527, 14, 30, "Output"] }, Open ]], Cell[77276, 2430, 72, 0, 29, "Text"], Cell[CellGroupData[{ Cell[77373, 2434, 353, 11, 31, "Input"], Cell[77729, 2447, 369, 10, 30, "Output"] }, Open ]], Cell[78113, 2460, 118, 3, 29, "Text"], Cell[CellGroupData[{ Cell[78256, 2467, 405, 12, 31, "Input"], Cell[78664, 2481, 448, 12, 30, "Output"] }, Open ]], Cell[79127, 2496, 141, 3, 29, "Text"], Cell[CellGroupData[{ Cell[79293, 2503, 222, 7, 31, "Input"], Cell[79518, 2512, 92, 3, 30, "Output"] }, Open ]], Cell[79625, 2518, 333, 6, 30, "Text"], Cell[CellGroupData[{ Cell[79983, 2528, 214, 7, 31, "Input"], Cell[80200, 2537, 35, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80272, 2542, 279, 8, 31, "Input"], Cell[80554, 2552, 35, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[80638, 2558, 63, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[80726, 2562, 52, 1, 31, "Input"], Cell[80781, 2565, 958, 15, 42, "Print", CellTags->"Info3451501663-3940611"] }, Open ]], Cell[CellGroupData[{ Cell[81776, 2585, 493, 16, 31, "Input"], Cell[82272, 2603, 488, 17, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82797, 2625, 482, 16, 47, "Input"], Cell[83282, 2643, 248, 8, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[83579, 2657, 61, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[83665, 2661, 50, 1, 31, "Input"], Cell[83718, 2664, 413, 6, 40, "Print", CellTags->"Info3451501667-4475581"] }, Open ]], Cell[CellGroupData[{ Cell[84168, 2675, 160, 5, 31, "Input"], Cell[84331, 2682, 369, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84737, 2697, 331, 9, 31, "Input"], Cell[85071, 2708, 893, 30, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[86013, 2744, 63, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[86101, 2748, 52, 1, 31, "Input"], Cell[86156, 2751, 966, 14, 76, "Print", CellTags->"Info3451501674-2042943"] }, Open ]], Cell[CellGroupData[{ Cell[87159, 2770, 144, 4, 31, "Input"], Cell[87306, 2776, 1228, 38, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88571, 2819, 167, 5, 31, "Input"], Cell[88741, 2826, 938, 32, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[89728, 2864, 63, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[89816, 2868, 52, 1, 31, "Input"], Cell[89871, 2871, 347, 5, 40, "Print", CellTags->"Info3451501679-3286371"] }, Open ]], Cell[CellGroupData[{ Cell[90255, 2881, 213, 6, 31, "Input"], Cell[90471, 2889, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90591, 2896, 213, 6, 31, "Input"], Cell[90807, 2904, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90927, 2911, 238, 7, 31, "Input"], Cell[91168, 2920, 139, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91344, 2929, 287, 9, 31, "Input"], Cell[91634, 2940, 139, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91810, 2949, 466, 15, 33, "Input"], Cell[92279, 2966, 230, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92546, 2976, 466, 15, 33, "Input"], Cell[93015, 2993, 230, 5, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[93294, 3004, 134, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[93453, 3013, 53, 1, 31, "Input"], Cell[93509, 3016, 1133, 16, 92, "Print", CellTags->"Info3451501685-8105256"] }, Open ]], Cell[94657, 3035, 84, 2, 29, "Text"], Cell[CellGroupData[{ Cell[94766, 3041, 239, 7, 31, "Input"], Cell[95008, 3050, 29, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95074, 3055, 280, 8, 31, "Input"], Cell[95357, 3065, 172, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95566, 3076, 292, 8, 31, "Input"], Cell[95861, 3086, 28, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[95938, 3092, 122, 4, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[96085, 3100, 57, 1, 31, "Input"], Cell[96145, 3103, 566, 9, 58, "Print", CellTags->"Info3451501690-6293151"] }, Open ]], Cell[CellGroupData[{ Cell[96748, 3117, 178, 5, 31, "Input"], Cell[96929, 3124, 601, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97567, 3147, 58, 1, 31, "Input"], Cell[97628, 3150, 562, 9, 58, "Print", CellTags->"Info3451501692-9148757"] }, Open ]], Cell[CellGroupData[{ Cell[98227, 3164, 179, 5, 31, "Input"], Cell[98409, 3171, 625, 19, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[99083, 3196, 65, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[99173, 3200, 54, 1, 31, "Input"], Cell[99230, 3203, 853, 13, 59, "Print", CellTags->"Info3451501694-6112587"] }, Open ]], Cell[CellGroupData[{ Cell[100120, 3221, 240, 7, 31, "Input"], Cell[100363, 3230, 240, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100640, 3243, 191, 5, 31, "Input"], Cell[100834, 3250, 204, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101075, 3262, 283, 8, 31, "Input"], Cell[101361, 3272, 341, 11, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101739, 3288, 293, 9, 33, "Input"], Cell[102035, 3299, 139, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102211, 3308, 314, 11, 33, "Input"], Cell[102528, 3321, 183, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[102760, 3331, 129, 4, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[102914, 3339, 49, 1, 31, "Input"], Cell[102966, 3342, 222, 4, 40, "Print", CellTags->"Info3451501704-7654305"] }, Open ]], Cell[CellGroupData[{ Cell[103225, 3351, 175, 5, 31, "Input"], Cell[103403, 3358, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103523, 3365, 126, 3, 31, "Input"], Cell[103652, 3370, 50, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103739, 3376, 55, 1, 31, "Input"], Cell[103797, 3379, 223, 4, 40, "Print", CellTags->"Info3451501707-1292380"] }, Open ]], Cell[CellGroupData[{ Cell[104057, 3388, 181, 5, 31, "Input"], Cell[104241, 3395, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104306, 3400, 132, 3, 31, "Input"], Cell[104441, 3405, 28, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104506, 3410, 145, 4, 31, "Input"], Cell[104654, 3416, 382, 7, 21, "Message"], Cell[105039, 3425, 28, 0, 30, "Output"] }, Open ]], Cell[105082, 3428, 88, 2, 29, "Text"], Cell[CellGroupData[{ Cell[105195, 3434, 284, 9, 47, "Input"], Cell[105482, 3445, 1760, 24, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107279, 3474, 59, 1, 31, "Input"], Cell[107341, 3477, 30, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[107420, 3483, 61, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[107506, 3487, 50, 1, 31, "Input"], Cell[107559, 3490, 661, 10, 75, "Print", CellTags->"Info3451501714-1964925"] }, Open ]], Cell[CellGroupData[{ Cell[108257, 3505, 93, 2, 31, "Input"], Cell[108353, 3509, 116, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108506, 3517, 139, 4, 47, "Input"], Cell[108648, 3523, 116, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108801, 3531, 149, 4, 47, "Input"], Cell[108953, 3537, 105, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109095, 3544, 139, 4, 47, "Input"], Cell[109237, 3550, 139, 4, 30, "Output"] }, Open ]], Cell[109391, 3557, 51, 0, 29, "Text"], Cell[CellGroupData[{ Cell[109467, 3561, 150, 4, 47, "Input"], Cell[109620, 3567, 438, 8, 30, "Output"] }, Open ]], Cell[110073, 3578, 61, 0, 29, "Text"], Cell[CellGroupData[{ Cell[110159, 3582, 642, 19, 47, "Input"], Cell[110804, 3603, 31, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[110884, 3609, 176, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[111085, 3618, 58, 1, 31, "Input"], Cell[111146, 3621, 427, 6, 40, "Print", CellTags->"Info3451501725-6321139"] }, Open ]], Cell[CellGroupData[{ Cell[111610, 3632, 353, 11, 31, "Input"], Cell[111966, 3645, 1512, 32, 150, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[113527, 3683, 105, 3, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[113657, 3690, 49, 1, 31, "Input"], Cell[113709, 3693, 5005, 75, 120, "Print", CellTags->"Info3451501740-9192097"] }, Open ]], Cell[CellGroupData[{ Cell[118751, 3773, 333, 10, 31, "Input"], Cell[119087, 3785, 180, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[119316, 3795, 148, 4, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[119489, 3803, 58, 1, 31, "Input"], Cell[119550, 3806, 379, 6, 58, "Print", CellTags->"Info3451501745-1327919"] }, Open ]], Cell[CellGroupData[{ Cell[119966, 3817, 65, 1, 31, "Input"], Cell[120034, 3820, 425, 6, 58, "Print", CellTags->"Info3451501746-4446176"] }, Open ]], Cell[CellGroupData[{ Cell[120496, 3831, 330, 10, 31, "Input"], Cell[120829, 3843, 234, 8, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121100, 3856, 380, 11, 31, "Input"], Cell[121483, 3869, 240, 9, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121760, 3883, 414, 12, 31, "Input"], Cell[122177, 3897, 234, 8, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122448, 3910, 387, 11, 31, "Input"], Cell[122838, 3923, 240, 9, 72, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[123127, 3938, 118, 4, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[123270, 3946, 55, 1, 31, "Input"], Cell[123328, 3949, 579, 8, 58, "Print", CellTags->"Info3451501760-6929655"] }, Open ]], Cell[CellGroupData[{ Cell[123944, 3962, 195, 5, 40, "Input"], Cell[124142, 3969, 123, 3, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124302, 3977, 155, 4, 31, "Input"], Cell[124460, 3983, 116, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124613, 3991, 56, 1, 31, "Input"], Cell[124672, 3994, 581, 8, 58, "Print", CellTags->"Info3451501762-8803465"] }, Open ]], Cell[CellGroupData[{ Cell[125290, 4007, 196, 5, 40, "Input"], Cell[125489, 4014, 126, 4, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125652, 4023, 156, 4, 31, "Input"], Cell[125811, 4029, 116, 3, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[125976, 4038, 59, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[126060, 4042, 48, 1, 31, "Input"], Cell[126111, 4045, 1444, 20, 93, "Print", CellTags->"Info3451501767-3431690"] }, Open ]], Cell[CellGroupData[{ Cell[127592, 4070, 210, 6, 31, "Input"], Cell[127805, 4078, 726, 15, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128568, 4098, 261, 8, 47, "Input"], Cell[128832, 4108, 726, 15, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129595, 4128, 251, 8, 31, "Input"], Cell[129849, 4138, 726, 15, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130612, 4158, 282, 8, 31, "Input"], Cell[130897, 4168, 726, 15, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131660, 4188, 397, 11, 31, "Input"], Cell[132060, 4201, 2855, 50, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134952, 4256, 428, 12, 31, "Input"], Cell[135383, 4270, 2855, 50, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138275, 4325, 516, 14, 33, "Input"], Cell[138794, 4341, 13951, 232, 271, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152782, 4578, 252, 8, 33, "Input"], Cell[153037, 4588, 1976, 56, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[155050, 4649, 373, 12, 33, "Input"], Cell[155426, 4663, 1976, 56, 57, "Output"] }, Open ]], Cell[157417, 4722, 56, 0, 29, "Text"], Cell[CellGroupData[{ Cell[157498, 4726, 1498, 46, 52, "Input"], Cell[158999, 4774, 108655, 1662, 174, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[267703, 6442, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[267786, 6446, 47, 1, 31, "Input"], Cell[267836, 6449, 564, 8, 58, "Print", CellTags->"Info3451501789-5226476"] }, Open ]], Cell[CellGroupData[{ Cell[268437, 6462, 51, 1, 31, "Input"], Cell[268491, 6465, 185, 3, 40, "Print", CellTags->"Info3451501793-6328774"] }, Open ]], Cell[268691, 6471, 68, 0, 29, "Text"], Cell[CellGroupData[{ Cell[268784, 6475, 246, 8, 31, "Input"], Cell[269033, 6485, 282, 6, 30, "Output"] }, Open ]], Cell[269330, 6494, 46, 0, 29, "Text"], Cell[CellGroupData[{ Cell[269401, 6498, 297, 9, 31, "Input"], Cell[269701, 6509, 169, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[269919, 6519, 143, 4, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[270087, 6527, 59, 1, 31, "Input"], Cell[270149, 6530, 1608, 23, 76, "Print", CellTags->"Info3451501804-1708371"] }, Open ]], Cell[CellGroupData[{ Cell[271794, 6558, 81, 2, 31, "Input"], Cell[271878, 6562, 1608, 23, 76, "Print", CellTags->"Info3451501805-5182785"] }, Open ]], Cell[273501, 6588, 148, 4, 31, "Input"], Cell[CellGroupData[{ Cell[273674, 6596, 72, 1, 31, "Input"], Cell[273749, 6599, 624, 20, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[274410, 6624, 72, 1, 31, "Input"], Cell[274485, 6627, 733, 24, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[275255, 6656, 175, 5, 31, "Input"], Cell[275433, 6663, 12537, 242, 241, "Output"] }, Open ]], Cell[287985, 6908, 61, 1, 31, "Input"], Cell[288049, 6911, 59, 0, 29, "Text"], Cell[CellGroupData[{ Cell[288133, 6915, 220, 7, 31, "Input"], Cell[288356, 6924, 1783, 55, 50, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[290188, 6985, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[290271, 6989, 47, 1, 31, "Input"], Cell[290321, 6992, 1822, 27, 77, "Print", CellTags->"Info3451501817-5435346"] }, Open ]], Cell[CellGroupData[{ Cell[292180, 7024, 198, 6, 31, "Input"], Cell[292381, 7032, 93, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[292511, 7039, 218, 6, 31, "Input"], Cell[292732, 7047, 103, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[292872, 7054, 277, 8, 31, "Input"], Cell[293152, 7064, 103, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[293292, 7071, 289, 8, 31, "Input"], Cell[293584, 7081, 103, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[293724, 7088, 425, 12, 31, "Input"], Cell[294152, 7102, 103, 2, 30, "Output"] }, Open ]], Cell[294270, 7107, 46, 0, 29, "Text"], Cell[CellGroupData[{ Cell[294341, 7111, 390, 14, 31, "Input"], Cell[294734, 7127, 171, 6, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[294954, 7139, 194, 8, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[295173, 7151, 52, 1, 31, "Input"], Cell[295228, 7154, 730, 12, 58, "Print", CellTags->"Info3451501824-2752234"] }, Open ]], Cell[CellGroupData[{ Cell[295995, 7171, 192, 5, 40, "Input"], Cell[296190, 7178, 86, 3, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[296313, 7186, 221, 6, 40, "Input"], Cell[296537, 7194, 62, 2, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[296636, 7201, 53, 1, 31, "Input"], Cell[296692, 7204, 732, 11, 58, "Print", CellTags->"Info3451501827-2936702"] }, Open ]], Cell[CellGroupData[{ Cell[297461, 7220, 193, 5, 40, "Input"], Cell[297657, 7227, 80, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[297774, 7234, 222, 6, 40, "Input"], Cell[297999, 7242, 90, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[298126, 7249, 52, 1, 31, "Input"], Cell[298181, 7252, 730, 12, 58, "Print", CellTags->"Info3451501830-5413399"] }, Open ]], Cell[CellGroupData[{ Cell[298948, 7269, 192, 5, 40, "Input"], Cell[299143, 7276, 90, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[299270, 7283, 221, 6, 40, "Input"], Cell[299494, 7291, 100, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[299631, 7298, 53, 1, 31, "Input"], Cell[299687, 7301, 732, 11, 58, "Print", CellTags->"Info3451501833-7501677"] }, Open ]], Cell[CellGroupData[{ Cell[300456, 7317, 193, 5, 40, "Input"], Cell[300652, 7324, 96, 3, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[300785, 7332, 222, 6, 40, "Input"], Cell[301010, 7340, 86, 3, 37, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[301145, 7349, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[301228, 7353, 47, 1, 31, "Input"], Cell[301278, 7356, 508, 8, 58, "Print", CellTags->"Info3451501837-7748020"] }, Open ]], Cell[CellGroupData[{ Cell[301823, 7369, 114, 3, 31, "Input"], Cell[301940, 7374, 190, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[302167, 7383, 344, 11, 31, "Input"], Cell[302514, 7396, 443, 12, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[302994, 7413, 353, 11, 31, "Input"], Cell[303350, 7426, 311, 7, 374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[303698, 7438, 186, 6, 31, "Input"], Cell[303887, 7446, 512, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[304436, 7469, 1052, 31, 31, "Input"], Cell[305491, 7502, 7636, 127, 406, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[313164, 7634, 260, 8, 31, "Input"], Cell[313427, 7644, 275, 5, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[313751, 7655, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[313834, 7659, 47, 1, 31, "Input"], Cell[313884, 7662, 403, 6, 58, "Print", CellTags->"Info3451501860-6152062"] }, Open ]], Cell[CellGroupData[{ Cell[314324, 7673, 192, 6, 31, "Input"], Cell[314519, 7681, 1195, 29, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[315751, 7715, 57, 1, 31, "Input"], Cell[315811, 7718, 1013, 26, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[316861, 7749, 231, 7, 31, "Input"], Cell[317095, 7758, 186, 6, 30, "Output"] }, Open ]], Cell[317296, 7767, 123, 4, 30, "Text"], Cell[CellGroupData[{ Cell[317444, 7775, 653, 21, 31, "Input"], Cell[318100, 7798, 975, 28, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[319124, 7832, 149, 6, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[319298, 7842, 52, 1, 31, "Input"], Cell[319353, 7845, 928, 13, 92, "Print", CellTags->"Info3451501872-6671845"] }, Open ]], Cell[CellGroupData[{ Cell[320318, 7863, 53, 1, 31, "Input"], Cell[320374, 7866, 916, 14, 92, "Print", CellTags->"Info3451501874-9938598"] }, Open ]], Cell[CellGroupData[{ Cell[321327, 7885, 163, 4, 31, "Input"], Cell[321493, 7891, 93, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[321623, 7898, 222, 6, 31, "Input"], Cell[321848, 7906, 116, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[322001, 7914, 48, 1, 31, "Input"], Cell[322052, 7917, 939, 14, 92, "Print", CellTags->"Info3451501877-6716571"] }, Open ]], Cell[CellGroupData[{ Cell[323028, 7936, 159, 4, 31, "Input"], Cell[323190, 7942, 83, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[323310, 7949, 218, 6, 31, "Input"], Cell[323531, 7957, 93, 2, 30, "Output"] }, Open ]], Cell[323639, 7962, 63, 0, 29, "Text"], Cell[CellGroupData[{ Cell[323727, 7966, 434, 14, 33, "Input"], Cell[324164, 7982, 1106, 21, 145, "Output"] }, Open ]], Cell[325285, 8006, 43, 0, 29, "Text"], Cell[CellGroupData[{ Cell[325353, 8010, 483, 15, 33, "Input"], Cell[325839, 8027, 972, 19, 263, "Output"] }, Open ]], Cell[326826, 8049, 70, 0, 29, "Text"], Cell[CellGroupData[{ Cell[326921, 8053, 522, 16, 33, "Input"], Cell[327446, 8071, 718, 15, 268, "Output"] }, Open ]], Cell[328179, 8089, 65, 0, 29, "Text"], Cell[CellGroupData[{ Cell[328269, 8093, 543, 16, 31, "Input"], Cell[328815, 8111, 263, 8, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[329127, 8125, 62, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[329214, 8129, 51, 1, 31, "Input"], Cell[329268, 8132, 426, 7, 58, "Print", CellTags->"Info3451501890-3242762"] }, Open ]], Cell[CellGroupData[{ Cell[329731, 8144, 307, 7, 31, "Input"], Cell[330041, 8153, 355, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[330433, 8168, 118, 3, 31, "Input"], Cell[330554, 8173, 537, 16, 30, "Output"] }, Open ]], Cell[331106, 8192, 118, 5, 30, "Text"], Cell[CellGroupData[{ Cell[331249, 8201, 153, 4, 31, "Input"], Cell[331405, 8207, 275, 5, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[331729, 8218, 70, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[331824, 8222, 59, 1, 31, "Input"], Cell[331886, 8225, 569, 8, 58, "Print", CellTags->"Info3451501896-4978945"] }, Open ]], Cell[CellGroupData[{ Cell[332492, 8238, 501, 15, 33, "Input"], Cell[332996, 8255, 19117, 316, 447, "Output"] }, Open ]], Cell[352128, 8574, 53, 0, 29, "Text"], Cell[CellGroupData[{ Cell[352206, 8578, 628, 18, 33, "Input"], Cell[352837, 8598, 71876, 1182, 213, 50472, 830, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)