(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   3467259,      60104]
NotebookOptionsPosition[   3450432,      59811]
NotebookOutlinePosition[   3451105,      59834]
CellTagsIndexPosition[   3451062,      59831]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["SHOULD I BALANCE MY CHECKBOOK?", "Title",
 CellChangeTimes->{{3.811962695717493*^9, 3.8119627051962166`*^9}},
 TextAlignment->Center,ExpressionUUID->"c45541fd-b9cf-454b-b889-ef7af9f881c8"],
Cell["EXECUTIVE SUMMARY", "Subtitle",
 CellChangeTimes->{{3.8119627214745035`*^9, 3.8119627273976216`*^9}, {
  3.820331988842535*^9, 
  3.820331997014891*^9}},ExpressionUUID->"dfefe37b-3fec-47cf-a16e-\
3e2b8f36cda2"],
Cell["\<\
Here we address the question: Should I balance my checkbook? As part of \
answering that you will learn a little of the history of financial record \
keeping and the role it plays in measuring success. Starting with how we \
value things in a secular world, you will learn about optimization. This will \
lead to making choices that help you achieve a particular goal. Success is \
measured accordingly. It is important that you question specifics about the \
information that describes your life, who gets that information and when.\
\>", "Text",
 CellChangeTimes->{{3.8119626462596793`*^9, 3.811962675557583*^9}, {
  3.811962733393474*^9, 3.8119629121614485`*^9}, {3.812061054677842*^9, 
  3.8120610620667534`*^9}, {3.812579771532158*^9, 3.8125797825653996`*^9}, {
  3.812632247497108*^9, 3.812632249002533*^9}, {3.820332007443821*^9, 
  3.8203320132692146`*^9}, {3.8203320544227853`*^9, 
  3.8203320636348934`*^9}},ExpressionUUID->"d5826464-a6b8-4609-862e-\
e3f2a9937584"],
Cell[CellGroupData[{
Cell["CONTENTS", "Chapter",
 CellChangeTimes->{{3.8119629461637683`*^9, 
  3.8119629475885744`*^9}},ExpressionUUID->"8eb40d04-606a-458f-9dee-\
afc43faec568"],
Cell[CellGroupData[{
Cell["Why maintain records? Whose life is it anyway?", "Section",
 CellChangeTimes->{{3.811963022105959*^9, 
  3.811963044487096*^9}},ExpressionUUID->"38af4466-d533-4ee6-860a-\
1718272df81f"],
Cell["\<\
In this chapter you will learn about record keeping, a pedestrian but \
important aspect of data curation. Banking has a storied history in society. \
Most of it is told from the perspective of the institution. Here we will zoom \
in on you, the bank customer, the most micro of viewpoints, who is an \
individual data point. This is your chance to see how your actions fit into \
the wider world of personal finance.
Economics uses a sterile term to describe a financial beginning point, your \
\[OpenCurlyDoubleQuote]initial endowment.\[CloseCurlyDoubleQuote] Regardless \
of the circumstances of your birth you begin with a brain and natural \
abilities. Some people are born into wealth but most of us are not. There are \
many examples of people beginning with nothing more than their physical and \
mental abilities who accomplish great things and amass substantial wealth. We \
will assume you have augmented your initial endowment at birth with an \
education you pursued with enthusiasm, having studied hard and earned high \
marks from your teachers. You have graduated, obtained a job and received a \
few paychecks which you deposited into a bank account. Naturally, you have \
also incurred expenses, received a credit card, rented an apartment, signed \
up with the local utility company for gas, electric and water. The draw of \
online commerce finds you a willing customer. You avail yourself of the \
convenience of Amazon, auto-draft payments and other electronic means of \
survival in the digital age. You are Living the Dream.
Each month your bank sends you a statement, perhaps to your cell phone. Or \
perhaps just tells you the statement is available to be downloaded. Why, you \
ask, should you engage in the time-consuming, antiquated and quaint task of \
checking the bank\[CloseCurlyQuote]s calculations against your own to see if \
they agree? This is a process called \[OpenCurlyDoubleQuote]reconciling\
\[CloseCurlyDoubleQuote] your bank statement with your checkbook balance. \
When you download your statement you may find something like the illustration \
below intended to guide you through the process. In pre-historic days when \
statements only arrived on paper, some of us actually used a #2 lead pencil \
to fill in the form below and make the calculations it implies. How very \
prosaic.\
\>", "Text",
 CellChangeTimes->{{3.811963254056119*^9, 3.8119635226323223`*^9}, {
  3.8119635998397975`*^9, 3.8119636772994785`*^9}, {3.8119637086290197`*^9, 
  3.811963713666932*^9}, {3.8119637585554256`*^9, 3.8119637620183973`*^9}, {
  3.811963927914291*^9, 3.8119643661270795`*^9}, {3.8119644051450796`*^9, 
  3.8119644218724337`*^9}, {3.812028527321888*^9, 3.81202864567507*^9}, {
  3.812579802782723*^9, 3.8125798374786515`*^9}, {3.8203320897617726`*^9, 
  3.820332102750763*^9}, {3.820332149672571*^9, 3.820332246545463*^9}, {
  3.820332294198245*^9, 
  3.8203322990825095`*^9}},ExpressionUUID->"2cb69519-16ad-4f26-a33c-\
d36a70b50369"],
Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvT+O7ECX5UdIzphawHPk1grKS8iUOx9qATNQa1pOC69HgKB2uIBBLaB9
AQM8u3229aw2C2i7n/0Z2gEVnRc8OLz3RpD5j5lknZ9RyIoMRty48e8wGIz8
n//z//kf//f/oeu6//ofyp//+J/+7//l7//+P/0/f/mfyj8ff/df/4//8nd/
87/9r3/3f/3Nf/mbv3//z/9jCfx/S9z/r3z498+jEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIQ7HPwSebdH1/Pczz7ZCCCGEEEKI7ei6rmj4
/zbxt3/7tyXkn/7pnzY249/+7d/+8R//seRejPnnf/7nK1L4y1/+Uq5d1POl
aLfkIoQQQgghxEtR1Pu//Mu/cEiR1htL+n/9138tOZa7iZJpEeR2i3FpIrEg
kZKsFe3qXIQQQgghhHgpUhlcArHQ/de//rV8LpI7XstfFZHs4tSuipRr+eRw
E9u1a1N7LIVyR9BYdbe7hnI557LGPCGEEEIIIV6Wmp639XnTyYBVtK11G1j3
tq9shR9fLar6+Dig9oDApczxY6BDAl4IIYQQQhyPqOdtCz2+xYI2q2XT+faV
rXtjSd/+RZq2WX3RDNb8lkLcCe8W2F3Ki/ttLM0Sh60VQgghhBBi13QZpq7L
X14kt0V4XMVa2uS9RXaH5NiK+np7Sqa1Y3bYAGRa0odJi3q+pPCXv/xF++dF
T9w9wchdsriaYRjMjF+/fj3Xkvti5Sp/10T++vpq19EV1VT8eZd07KqVBbmd
RzcGtLfoCoSX6nhQ7imv0xmFEOJB2Lbzom9N5bpdLibpbcXerdvz+rbJYwux
mEiNv1rEsqhFjl9xyBo9v36Xvjg2fPd6Fx2V3heD29O/hdPp9CKW3JeizUqJ
Viq0IiDbdVS8dKkBHx8fd0nNLtlMalp7KMY/KP3SodLOZfV1natv5O79fXt0
PyKEaNOQwXZ8JRbA+a3Vbr6/ndfnu7Oe/29zFk+esbuG8hfZpaaWpPDvX//6
VzajURDjL3/5S8nCJbj9yZzi6UBX3HF+b2vF29O/GhZX+xUzKRfp+XGpjq5Q
Sg09vz5BVNBh9PxIt5As3Z/VCF0X2KkkNpdufyskhNgLXV0Gd/P1cF6fdyfS
8Lr6P/zDP7BsthX+9jI478ZfjIZ/3futjYKkl9tufK3Pf0Oc7rrLFPkK0j3F
3bzsVMykXKrnGfPGjZr27e0tth9+EHCRMUeqmjH0CIjq7RUpP596zU66Bul5
IUSbhgy2/eq2baYLh9jYr1CVf3HQjX11xWHytmGe9/yUv+lCPTKNu2UW9bxd
zvvn9UrsN+T379+QT1hfLYEcp3xVpNrn5ycivJ1pbPpdKRV+/vxpIhDJsor7
9esXL/mWz/i2fFUiv7+/c2olgtnZyBEZlRRSC0ualhEr/2Kn84ZlBOOjbSUE
9mNvNpfox48fZgbnbtemRebcU3dBz3OcksKfP38aDmG3OD2/aIzDihZvCmBt
LWUuCPQ/PFNC3Mo/V4cl1agOpIBvSxXzt/YV0kSC5aoSEwlya2eTzPiPMw3/
oDlZRrjWki2B7A3ODs2JE7cQuLRcbu0NVV8zozQGdpF9dv3drEXZnT32reuY
biiIl3M7d8aP1KdQZKujkiy3dkvEtQc3CAghhNE1ZTB0rynn9I1UW37vSB6X
f4vq7s5Kfo1m7jJqFyJlt7TeLki8XGL+e4I5faQ1QycyeUHPfa4liziNtyN5
iZLFs+XuvsUMbingW+xVWLNPA7lYnDQ+d7q0sGyqW+o0Y9wjAGRRc2MsQuoQ
lwJ0zqJha1bdY8xaag33ch0B2Lm+mC4jzjpuXGlUR7tOkb7bb8MJ8k0HEuQn
Di7H9v2ORTb9j/jFG1woTs1EctqwnRPiTqeaDbiNtepIza65tP0t6nexnTvj
+RKL43YEtW042HMcIcRzKVqa18/tEJvG1nchXgRTAphbbYp0ChDzKUIWZUNX
B9N63B9iEUzX1TJ1puJyTPGNpwYuzXR/SEOfuH9j1paUExslnWISSxS7Km5E
iVsIOKM+vD7pLkcEZzkvhNaI9R6rOHrG4dQvE58jxGIid77E6c9xfgc6hnu0
MVRQjAD1y/GjnoeFTm3GCDGLFCdTu/lNdO3ONE3c1Q7f3NlxOjUbXNmd5zkQ
zcbZ47JG7u5GG2nGlh9TcE033sK4Sh+130YI8RjcjnfeWi/EK1PTQhzHAlkk
pNFisilpfBMhFsH0PKumPjtO0E3xiybFHctRAEeHcKBFQ0Z848Cli3qvlldD
B/KyrdN1LPxsDZxTi8r5Cj2fGrb4BARa0arsdAaeSa8aznCERi4W2Qm5WB0u
hdgwcFZnu+yI7zwfI4xzTdsgrle73DmaBa5fn18jbp2djcJyjzN32Z1pNMb2
+TjnuP05nGbsHa6OUg+7EOl5IcSD4N+H7fRiqdgDvDZopLLzFj3fNgCrr4zb
b8OYkS6Xxs6BtLCmPbiwUSmlet7p6lSxmFaMiaQeizERwtTWRR1Rz1uRb9Hz
NQemiaSqMn0fNq13tz7Pty3xFc4uaL+anrfPDeFXW59HBNcp0mJa4KKej/a4
skcb1qzPr9TzrgukiQ+VTXcGarP2jKbdcqyOYnuo7bfhRNJLpOeFEI/gr3/9
q3ahix2RyqQoHh6k51m72gJgFBLRQp7BsdgYNy1cVFi2MxbfBTYeYXR1AbZG
z/MtDBfqiXqe/Xmdno+puWLWnGD/us3qiB8fskDPuwQXhd/Get6tkDvPc45W
cY31eRiZ7hyLpHeL8K2Lc0c97+ootmTpeSGEEOJqapN7OnXeXc/XVEoUEmV+
5xVdhENZOY0XWfz5pGH+sl6q513ZF/fbcCJrAmsOcfcRbr/NUH8f4XY9v1gE
pqYqneW1Yqb75+OdhRN71+23GWiT+Xo9b5e4Lehc9vXr8209zyY11ucv3W/T
NXGFdftt7JEW+hHnVWLiwVm8vYppxhScz9ObAhciPS+EEEKMtOfh15w4oZtW
4UMC8f5dLXGIhH6iXG4fcLqdy8Xliyzs3z9//sRMcdhmVCCOz89PCKe0sE5M
drQ+7PKFnLOC8Ol5DQHG6ZidMAl625UCydoJnKgvy7eUHQmaP6OeN/X148eP
mltcfbGqZGttE5HLLpKeb4OTGF0xYSfcZQ3MnVeJy1EiywWp4XIcughHOfmN
+rKjFJGClWuNnreCI307QZHP3lyj50t1cEy21sxDdjh5lbPjeoeRrkQpnJHr
8q7hWfolTde8SwQcd4nTI8tfKxH+tQjlcrQc1wDcWVXoCNHDbL8LQSJrjmMV
QgghjoqbZBm30Hrf92G78GKp2wnTh80n8ds0o0Zh0zVVlwL/GzfnIH5t00Lc
seBMTUuUvhVYK3Ia4RHr8zVru+aOpvbvw+LCxWLyv/xcBkuy9q/zdm19ftFv
l+63SRNcvz4fY6YtqtEwuOOw59uL1af6YUfujrXdUBeb8WLLqfWg7vL9NjGa
EEII8a04nUkVSD8dTsL/um3tHCFNHIkYRTPgM2Z2t7DpTLIXIVm9RGsXN4EY
RfDUCuusQmo9nXaebunnPTw97XuB2an0xeXmEP6qxOelS9sT4sxmLeSysGcf
bsd7ibPm/PlYxbAWN3eLexvMyY70V5baxXTe4yJbfMsIGzycbfB/zW9O07rI
MUGEOG+jkaPi1uj5WKdjuG2JruZmM4YOmKYZU6jFSX3IZ2DGO9MTyemYJrfk
tDiuczkDUMXOfq441PKNP2oshBBCiKcT105vZPHu4JTtnxffnPXr80IIIYQQ
AqRnId7Iop6PGzzEt+LXr192TxefINzrplIIIYQQ4jvgtmHcK9n16/P3ylHs
i9pZSYv7kYQQQgghBLNy5/ylaL+NWGQIP3GlXdxCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCF2zTDn6+trCPz69SsG
vkjMvu9fzaQHxURJX8ckxVTMbWK+oEmKqZgvG3MXRiqmYn6HmFvq+Y+Pj/TX
cIQQQgghhBDXsaWeF0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCHELw5m+
73/9+oXP9vfZpt1EKUIpET4bT7XoJqxS7pJUrXLvXunr3X5dBXEVCzFe1U3u
2LPuQqMvXFe6+9rz6HnhxeedFzcvcsdZ4y7ptPn6+tq4Mz5iyrtjgpzyI5K9
gu3ryPE6rnhBSnvuKuzab1YuK4J93t1QzFiN3DGpWLmn0+m+Xlrv9usqqFzy
9vZ2nW13oYxs/Zkn2nAXVpbi6YW1W86aDeXmrjSJ0owvSvPVxjoMyM6k8q+F
l1a3PrUbi4ZMkdqje9xDB+qLXJde/lJNZQ2lO9zuTyv4PcxZoJi62H/v4n+0
hCvaWzGg1pCs895oW8pd6vEulGH2uZY0poC9L9vejvUgG6ht6LZ/y99de6YY
X0okPR+p6Xbp+Uu5TkC+ICtb1x0b4XVYO6k53FTHpRY+vVAO6HnXHRC+XpTe
rj9Nz7MBVye1kocO1Dfab/fvd7JlI+51D75NH1n08BrBv0hJ5OPjwz5fN+/U
ngvfxbxayi/S9p6u5xu3NtuMUbvAxAnaufH79++PifbehhKzRLD+iJifn5/p
teVfCy+ReXqyy3HJnz9/EG6J24Xxqp8/f1o4MsIlY5CL1iAXC/XrDOdS/i3F
dEUoIDBexf/a55JOI1+U0cWxqRzVgaIVipdQHNfO2c9IzW7c7F/Lzj6XaOal
1Mkj1Wb0f1qh0e1sNoOYlk6pTed5ri9eWvnx40eMU+xEHDQDM95Zzs2bw1e2
kGKn1QtbxW2+Jr3Y7dE5NX+6q0q9u9ZVIliJagZzstZozW8ohYuGbuiimUnw
Uux3aOfWO/CZfVKrVlxu3xYnI9yabvnLPQ6UQPsW2ZUUeAxJWwiLZPY8Vz1M
QvtMRy32g4WnA6D5s1ZH5mcrLIdbByl/rURuoIhDpZWdq9W+QkwHahN1UWK6
MaGhZNik6AeEu4qL/uTsGj0opsyB6AiuEl3rtcvdaGMppA3Mepy7fE1Pd0Xm
ph4HJVdHiG/9yC6pOcSKwwmiOqKdJUG023Q8R7g1pEahOE37FjWCXhBzx8CL
BE1F4EIzD73V+nXpFzGOGycN1w7xbYn//v5uX1l7s0AeFtgPrsrKJW4EACUp
G3/QlVzHTOeUdFRxoIzRzpEaUpqyC+fRdbGL8bDAIWZJo6fHHO0SG/24gbGX
eE5xvQADyEfQOcgdY5Qbz6OYcWV06cSpMBYH/1qbH+djbzqAbIk1VHYUHrba
ym37wXQpMqJZIljnRyIWE8IAX/EqOodjRmMDQM1Iy6iv7LexYqaGxRKxQzDP
sj2uyGN4fM+mrnGjK6PZhjLGr8ZJn3PiLjt8YOPNADaGU8DDGleuWISvaVGU
4Yy4MbRvqx0ua5jUZU//Y2EbKdtXseVYjrEd1lpIalLqpYjFcfVuT3Jr/uzn
q9PcYV0LaeTYzfud808azbLgaLZY5IzkfhdxzkQx2Vc2KqbXjvP2mcoJdh0i
m/ipjRJjpYemXcZhNYuU+flm2hgQbgNLWkcjLTFxMfvzuh+vlp/O2PPl8oE7
AgZecwi3kFprRFtCzdoMiM+WS1fvwpa+LZ3ZVVabFs49CzaYqTZ9d/MRycJd
H2nkyGOa5VIcAkvcLOAyihNfbQHwi5532LUx99RIN4nYZ+cuHu5Q71xrmGFr
VQB7uNR2iUkattOeX3ON83juwr9ov027ISEXbnWWlJnn3IL4ln4pOE95FsEK
boFI/Ou8i9uZ+kXLd11ljwH6Cw9rsR0icfQCbkUlZuoBDNEoGm6+uMOW3OGK
tNbaKbOdKEJsSP355gLhPC6xhYu16arPlREpw2M2rXAnwjBo/uQix4pDOMY0
DrdhNu0C3DyG87t1cUxLi4nGwNY6x1rKmKE4vtsHYqVrrHtsw6+wecDVNUqX
Xm5tDC22nwbVkaY87kFOQ8b0OfcTKRDM2n0Qity6Yh+0OE6lW1Kp851DLCaG
keiZ+Dn9Kh1kDAxEUWxzkRFtpEmNnYapvAujOifrZgeuC+t0zpkYmtgAN1aY
PRaTu2EXHv00Cl5Lf6js5nU28HAXhzLXcmKOcVTvKpsczMmn+Y0qD+DdvEPF
IkcjU3+6fmRfpe2zr78yyR52k3JspRztg55NI1rNS87+mpPTaFgxi+Vip9WG
INfm2V2NFoJLvubbdfrs/t0usTmFe1Zsn1HV4JKVet46DvxjNdvRnMIV7eY+
rlkbkLv6rD1Oq3+pDd1cyNVScE29n7Y09PMdCMjI2YnZ36XTqG7Wh5xCTwph
nN84d/OR2Wkq/qrR3xHHpdbodzEjV3z2czefj7jZ1AaTmKDLKKbW054Tju9y
sXAUfE1Dqjl5pNrktj1SHaG1OLN70qg8d7tGy/NOw8h+vt/GWQj/1Nph19xv
w1mXD5wRwnHbMs7bZGP0Ps3vbdHaXY24hoRmzNGc3xpdzJXF/rV5h22uVZmb
OCwpdznGtNi0TCe7cF6jiLANsSXXhi+ua2T3FTYrQqV3TT1fs21jop7v5vuT
eTqOuI58omWBfrq7OU1LTFxkqzIsm3N4N1ew/Vx59nR3wO02tnO+HPd3bFha
BTy/R23Al/A9AjfdcT7sN1oUexgpm2c4HV7ycsY4P6f+tMshTlwE54ooTtyq
kRXT3R9xkdFgjMYdax/2RTs3jrTyw+OV25NgTmC5tdhy2D8YPaJL19/xRS/V
So1r2Sq39hL9iew498W8kI5N0K7Bx2uHaY2lm09k7PzopajneYJjI9FsQK1e
eGCJ7YSJbT7O7LGFpC3Nld35gZN1l6PPpgPgmqG+Jy3NE+JIc5+L39NaFktT
3G8uZh3vtTuaZJ1hkTj3DedFyFg0LIU5CQ2/xcGkZrn7iv0W2wAuSS+PxWzo
+UvtdAag+P18EuSUa3q+UYk1f7qMTtNq0mm+hAgPQJy4dLppu1e7IVlrjMbj
29O08sm5c93xgNYHfTucl6HG7BXdYRLPjYaK7Bp63hXQdoC4YbCt59mktBew
1MRA2jB4DI6ttXbUY3QCqt6FN3J3xkOquZYWvd3Pn01wFrEZmz+jwfYQZAg6
f2Vfi56vtQq+xUALdMUcqdk4A/CwZrHhbUl87NiFNdWGZnB6vq/soIh6nnOv
tTQ3JZ2mRT8ohNi/eM7l/mh2RsPSQiFfTiEOa1HPpx470WPxlJoxTq1FPe+w
MbxWLqfnnVddA+jo0QnPcRZi41UXxo3UtsaQFa1F+sP0HKGbJpSOJke3GG6s
1/PpI4Poz25pgwdf6Obirt7Bu7met0A2Hjbz+rzT8zzLNPIaqdmA1E72ZD9/
4sDReK8Re6lfp+fTy93zI0thvZ53j0tGqn1uRa6FpGU3ddRlO8fGeaNy1gLX
y+DPRgVx4nA4h/DUGU1FeLwv5ggp8Vsr+xBWRdLL001iaLRsak3Pc75rdHJs
zKh6Z2f0Jz6nIiHe7bpi1vR8bAMucZYNsVzcomr7bRrtp2a204Es6iJjRfO4
+q3Z4LJL6wi5pHqeRRRfzl2P9Xza5BZlVT/X82l7Q7u1vTHdfKRt6Hmndd2D
M/QCWDjQpsdT/dm9q1+UsebhmgAbV+v59GZkDO/D4g7LzdQ1Pe8apBXti97P
cgZHPd/oobXOjpBaxXXUr0/TgyqXS1/R8259Pk1/ex6xPh+9F/X8MN+GncZM
9TzPp7w+z76Noi7qzwbQDzE1dlT6+N6+4kI1vBfLxWVx10Y9H5NqrM9j6HBq
7TTfHzJcsj7vupsbUnrafJXiXMqNwX3l/On222DiS6t+zFoO+8f16EVcl6l5
qXY57OREHrc+D6t6eo7jsnBbVsb5XQ9nwVtAGedw7jix3aaTlzMg6vm23GIn
oHe48qYdFl2GrU3HH778NN+UiFZUGwAX4R5tzbsjjdHRQxD2HsuGU1hvdG0s
EvcDc0YoWq2BxcVSYLqdaxMudfbUdHKtumvtxw2JtSnepQx7FhvYpXaOkwJh
JROLz0Zep+dTf54q6/O1xunW50eql7TgDjYyKjE2o70+z3Cv7+d6fk0DSCM0
9Dz8xu22u03Puw4b134RWOukTgbzyNYYh9OkXHitQqOeH6YNM06/sSUoY83J
riDj1BhqBsdhZ6Wej0+aGq0CxqOajrE+z0XgWWxYeh8qXZ93WpEnUA4/0X5v
J70WVRnPmxCQY32/Dfb5c1K1d58HWiKIQhfzPt8jcClO8/0hp6X1ebbfKStO
h3WRm6lPE1irjB5gx8bPJ3og282XvNzLp/yV86fVe6ymdjfkroQC8oXsn5H0
/Gmu1lauz8cGZim7neGNFnLL/nkuZhcEcJqmE+14DxreaAwmUdGl16Z7yBvr
8zzfddlNB09kUc+7ZsP752HnpevzaXbOyen6vHveEQcWV0fcirgvcAHT0exX
88A3nhTwCqT9y3reTamN/TbsjVT/jPX98zwJtmcr17uH851+zBTr831lf3K3
WiefglLlWohlGZvr8+ggjQ579fo8GgOrnWhkVNpu5lrZbMa5N5yXMOLx00lc
7nLh2SSamprh3OIURc0q9JrT9MjSRehJh4yZnu/n++dT81zMsd7eOPFhvgjZ
XbLfBial/avRVh2uZZ7mb4vEFMzm9MbQZdHoYq4s3bTu4Xr6KbsRrjn50v3z
7vKL9s87O7slpceDUmxgPEOlfX+x4W3Jr3BeZSnRjx8/OqLxSmN8yQuzm82e
uJZljIXjtB+cR+eyc5u0+R1nXIW8+F1p9970eD56y+XSGCRH2hgQ+yMoXkI7
4a9wLSfVyMuVxY0huNaJLuwggp/da/741g6AcudVdpMqZrdYvcOZY9inhK9w
qB1/ZYc19XNJY2mmI2E/3S/U6tFMQgQ8aHh/fx+pRb2dKYFdRYlxQ3LNGzly
au0WYgckWkx3R2l8zI/BdNgpcFyVbX+O820qVkzrI3FpOuLaSSk76oJbCDcD
u8ScjGjm22ISx2Sd1oVXp51jx6wbfpyPMkMuruHZZ6Tw+fnZrg6YajFdC+Gm
iOzc5ZavnZbpDlWwc0rRg1y7hVcthdiKVr4PC7Oh1a2W7dTEbtrC8XEGQ5D9
i9Q66nGWb3pepZX9YwKlsIy4J9bMxvTxazrZ0hqtOdz0jNmJFouvLEcYnOqr
CFIoVWwfUjv539KSP6aj57owFrlajliHTc+4aF9oEXC4rmGltr+u2dhpilYX
yLGt55GgHQ4Jb7irUPzyLbzxQSeRoiVYuKXjzqtsTGR2Wib+/TWd7tifX52A
VTb2WquwcEvQjB+npm5mlMvd4GxxuMlZIta2F2WV5Z6utcIP6AV2FLbVFFdQ
OrD39CYLMhpprQDVihKhF1gzrt0poJ2gv8AA9AKux3HekNj+brWeN8eimiya
0/O41zO3/6KjnjEouSzMHhQEY4Xlggp1itFacinR2/w4GmcwmoTNUPB2w7fw
gxsTzJ9IwU1qcAuK+VJ6vkG/4nfGa7rFSu0Ch4mV2a3JPebCJsUU1hRqXNrJ
UEukn847XZNFmqnzp3NXWpy0kUc/Y72ukZptnY2pWXnjVxboDFiTUfzKVgBi
vmltcqDzACdYy3TM/IPwlS0kZrH+Qqf0XCK1CkX6K31bu9yFs8dqA6bLN03t
ojYfi+my+Ao/Lx57R8w6rVaYGjtXak8jo0jqMRuXnCXr01zMEZlyh72iVSBy
WzGuNClWaD9fmnZfXbEryeV4xTCbNo/F6fiKjIxTfX97OvymfXyRofkDyjG1
tL4a4cxiHwRcnJjLWNlm0zAjdtgb222asmuc/VzELl4eYTvZIYu1VjPJhccU
4rO8hvGNHNnaxuXOjJqKcDFPYfNVo7VcOniun8cbjTCdLmH/vcZzsQHtjSJC
XE3crC6EeBY1yX2vxG+5bTkYTpQ+1PPipUi337+CJJbMOzx4jC7FJe5OY3Fe
CLEZw/SazCMS75d+GOsbMky/qQTPa4b9JuClM1vf7lafPvFQk9RDvwOn6Wdc
nm2IOBrD+VWppw9lQojaI/57JX6qn0P4bcFxLhoDvxvDdMbaizyXqe0HE0II
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEuC/D9MNk63nEoWG3H9osmCv8
uaYZpD+Flv7u9hU84n23K5p3LZ2XOijvld882vi9Rb0meTv266VPNKDxG4vi
am7pGjd2Kxt1eRqyzzjsjptc7dDyS7ldRfCvEL7mGIsZ7erCDtMPYd9l5Lzj
zxaIBisP8Ruav2Cecq/Bv6dfHunnP5x9L+zX0hfNeNbhAP3Dfgot/b2MBgP9
JH2DNI4dVHXFhSP9lvf4mPOTV5ZrTTovNWq98ijKtnXzX2d+UP1e+mtBL3JW
s+OOA9Glro4/87ox/HugwP2ovUipDQVXLGXwfHTL6ZcYLWEADjPsCZ7971LR
N6oI+xVp/MjR+h/NWfTVHYc++Oouev52q3S20jZcpOcfb07CNnp+0QlPlEaP
0/NXcLWevyVxjC3jI/XeXdJ5Kf38ynqeeVk9f18z7sK9nnONO9TzaY1Iz6/h
jssgTs9fnSzuTNE3LWXXT3HU8CvoeVPv7jY/DXSsGYIeoedvTGS800PeJy6H
PppStCJO4pMaG5fsRoZ/8NdCXF33068DcOThDOLg6f8wYU+I0JiRSO3One3k
TueKg3A8LLMP1sJxD265u58b5odW0Yxh+gkMNC3T3ih7jNn+0QQbHNiZVkyu
i+hwJA7jEcLbitgDdgvP0dgMZOGeJyI+HhmwB+KI0Z8X2JGUq/20hSAXM69d
IoQXrES3rM9z/SJNBNaKaQYgpjVXi2wmuZjRFY7oZDTa9GenuMO68NMEQrjN
4HPatZ1JriCcTlqPro7SLmz24OmwG0DgK4S7EYmTTQccVwRuS7gQ9c5tzwxj
51tHiNVnxrvOzj2lXdfAio96Z7P5cpgaYwLY6XJH94dLF+sdV6GYQ5gROJzH
ZJdObANx+HJ1vTj4O8vhQxfOk9QpzEfDfO6wEg3zn4ZHI29Pc+n6fHSIDReN
hlqbwpAjj0tj6Bf4t1QQajzNKC0U5xKHL7OcIyPQmcTjpOvCrtnw7wpFO7kn
1maTWCgrO6rScmSTBpo4Yjpwwkj3Gs7tBn7kFKO0mziQHVosh8fRryc9z+1w
TW+tSW6Eu/HEvDROsxtSjsMpcuemaG3bBeLXBGKzR2BP6/N8rTm55iXLyBwy
hKcnkXQMQSDXO3IsLWTIphgeKyxyOh2YP+MQ9CyssLAKygddY5j/iBvGJYvg
GvYQ5K5zrLVbeNguQV9oD+kss61HIBxxeKxGRVhqUL/cm/r5YrvLIracWMDo
hJHGKy5ULJGVHX5DfB4t0U7Qa0YamqxEzp8o0YmkOw8jnB1nMUzaBo5F6TCq
Ow/EOkqbjQ0O7Ft2Gn9lLQT9CCUaJv3A3ZybQYM0Di+jIU0LxOjRNfU8mlna
nGCqCciushiCfjTQRDxMMyBMgrdP031cPykZpIOnrqh0Hp04EbS6mmE8FIw0
+lk6cbjo50tM7AfGwnkQQLWmJrkHVTADTQtmpLeWvCcKxbe+yY7ClORGIXOy
m/Vihx3rzb7GML9TY8nEHZBbPuo99Spfzt0fAyD3o7aRJ7q1TGeEcV536VqQ
i2PwI63YtVcO/mxSN1+mgBNskYT9xiYhqWE+/KLX8GA1VKa5fhLA0VQbabnf
8SDQKJ19tvaJuuBxiUdmTof7S82HPM6w20fqTVxlsBa6jk1C10Ai3AeHMAu7
OsJcVrNzoKG13WLxVTq5o4K4+OalWAsWbSTN2Z5cuDk5L/WTrOrnPxAMk3j0
jrMeXMplrxlQ68V9psFsROXRb5ikhcvL6XmUaOXQh/YzzGdq2IMxMM5lp2l6
HebjZJvGqGKB/BuOGDNxd8YuHTNNhVVWrg4e/daM/I/m6ww+w85S9p8/fyJa
+ffXmff3dwSWf60d/vjxg+fTEohG63zFUzku+fz8XNy9wH1znAYuS8E1dQ5n
jcFdnsNLiRDO06XVVGpJV5cxZmRxHYebY//8+ROTKmVHHBQcJo3zdY+PMy5r
S5wtL7lbUqiIQsmdo1lvLYHOsSP5k+vi9+/fblqMnrFLUKKR1je4ROwos5Cf
CFirK4HsQLQQ9sA4NYPUkrREDPS8c2D5AHtqiZcI6AjOVDhtpancGkt1lM8l
cbON3cKmug6L1lvqCOGWZvnKGoMrIPfitLtxyi4XNzugp6cdweFaDuR6yQLG
cy48MsAMa4puwOHBCpRxCQmimjBqmZPhlppe6uY3AuxkHmrYnm5pH0jss/i3
2InwWAvsJcA9jluO61yc8jgfHBhut1zGEtnNCHZ5yb22W4AXLdFCXL6lRIuD
v+tK/fSWDfuQfeWc7wQe925XBZaLG6zKZ7PQxS+R0cAYXih4O8OW13yOcPjT
OcqtP/Rz/W+GOUcxNqpwjlH0jpNvXfvEeNI2yU0usWs4UxsjD67lJtfQBqln
RlImLjxdeI+s0fM8Sptzar07DiCQQ+YN10Od1opDSmMi5u7mRmweTzBQOJ0G
s7n/xvloDMMCLinG85AINVXTLa4tuWF2sbJcyyydCA53I7Obndt6PiqTcd68
3VixOPJvgHn4ND2xbRjm9DlwY8gwLRG39TzCayMV48LdXXwtnC9paJJ+WsDn
e6taZ2noedxjmj+ZrrKfzXzuVir4uecwLdviUReyPs3XcpEXlvs4vtvViTpy
17rlL2dq2zNjaDaI6bJALi4pazADPWIwcKfJd/FcijZtPT/Sgwz3JnIt8aG+
fx7/osh4nhhTq3nSlasPiwZoYN38aWaaPjcDA22pr+9FdJlGq1yclevzbkDA
v7/oJ+CdhMZKy4mWT11zSgcNXgqD8bxzjI08zZ9Mxc/99HAh2hl7SnuVxi2Q
ci6nyvp8o6nbUgDacGMARFN0oz3jnMmpRZ08NvfP93OhZZe7iuNlk5WDP4fz
liqYCoegmFyDfDmPyRhbzEvcxiyjWK2LA0u0vNHfh/kzqfTa9Kt4bUpPe5O4
vcXqq/Xftkm19fk0fq3PumudWEovcVMh1xEv86LseIoRk4rlbXwbJ6/T/Ik8
d7d0XuN0Yn9cHKX7+vp8T1qrz9TOSP7kfXScl3N4v0Io4hJ338ozRU/r88gr
Tjeg1lSYtG3EpFBHaPZtPc/hbqixz076np695YYbG9sZR2+LnN7+1+ruFDYy
Xa3nXbN0pnLMxnR2qZ5Pu3xf1/P4Cg98++l5U/mb6nnbvuX6CKvKbnqaw/tt
xrCVgvPiPXIoKUsjXIV9QVb7SCE6lp/d1Eb7MTSbnt4wYldg0HCzCfzp6gLG
u/j30vPj5E8bQhcV1FA/36ab63lURzom1zwZBxMeZJwbh+mBZmonlhZdt7IO
Za0uHYIGuuPjlpbGiR2h1nfcgICU8TRzmG8NOtF+uX6+7WGxc/XEODWqWjPu
Mg0f87Xxn50/1kVLg9olzkWuNabFNNf1YSuF6yw14x1uSqrNCFz1DWmEjo90
eMbhwWqs+602oUctMcw3hcaW4xyS6vl0sHLjp7F4vk0sUa27cTtfvDZObcOS
nu9p/4MNX31dz9eGvrZJ6b1VbXZ27XwxzTR3Lpq71sAdPdepNbm0FmqWMKjf
OEqzno+jdK0L99MuvktH6SHcv7Dl6XjipMVAeiDm5YbB07TPyjn8Uj2f3nzh
39j2XkTPIxpb7or5XD0f2wOPuq6YA21vxuWLdceJ4HagD3oeQ8qaPjtSlxnn
I4YbSdyg19bzUZgtaq2+ImPiuJrWcj/fm819AYNeOmKM9X4xntWvfVij5/sw
Hdd2m9SEkIvDvRsGuDetxskhLnc0GFdHuJuI8WuWpJYzGJYHuoVxWdQSH1as
z8eJsj3wjtO6YhzTUMw41g2Z2EOJ4E/uL8P83dXYAJxtNdHLZezDg6pa33Gu
hq/SZgPL2Qx3IzZWHDvSmj9LCN6xxumc1q3Pp/nWREuNdOCNoxBHq4mBsT4A
xgHNLdG0haUri6v6PkzQKafpXePGCM9uTAf/eNff0JDD/DVVlkl90POu1Z2m
9fl0sHJV1lc2z7gHfyvHK/RQbp+nsHYR64K7dkPPO+Nrep6VpxN7jeLE8aeh
52M7Z9y1t+v5tPWuFF1p2+atSvcapVkXpaN0bURt3I7h9A8uODYasZ/dsIA0
a0Nff5uejwY4p62s94YfcMtWG2b7dfvnOTy9XX0pPT/O2/9p/jqDe5fEjWk8
TvKLBm78hE9q4eO69flhehFvpFdg7Csefk/Nx81tPc+9iV9odfR1PY9G5R7O
1ubi2tydjhjOJGuQ2BzIpsIh3Mh5gX2k7hO7FStVxF+/Pl8rEVvIOtD1mjiy
jZVRyEziBtaYy7jg9oH1vOsFrD3S7sleivonNqexMvC68H6+wsNuYVM5fire
kCb75ER7nNIN/5F+enAcLRnnfovDxaV6HuH9/LVBFNk52TWntAhoITCyo7cV
3LTbZRo+fk6futZES61NunrkBQ1uDzya1caQcT6n8CVRfbmyp7adKuvz/Vy+
4vJ4e8X09M4ghyCLvin1+RIre03v1SbZU3hHr+GQE+2W5BRO8zW9McxBDDuE
rRrmpw1EnKO4jnBiD2Ly5zhxpIlzyo0RFb6NbTIWh83gV1E4HWcG6iIdD2v1
Oy41jzSOmwpjMdv8mr/lOs5bb2xOaQW5EsVRup+/uY/A9DwWBxoJd6g4R0RL
2JiPcOxAP19Vi/WONE/zpZguCOZxPiPwFBA1kjNgDNNBjSgY4hjIqgzhsbfC
Tle5e9lv0533VXbTw2iYiu1b3Dw+6Lg2xMS86SJjkDxNG/YW99u4FJypZlI3
3yYKO60ZpH1nXKHnx2kgOtFO1GiGq/TatuET7cCsjR5IKnVyPz2nPtEuUESz
rz6m9+LZ5nQrSG19Hqbich6W2VrX7E/Z7+2iLbkS1VqIG6a4s3OJ4gQNr3ak
N9L6GqdqdaStzr7iEa/LRBRPtaeKnh/nnatmm2sDLN7cEM3xkaarUBQEM04q
D7iOao0zmsGFQoPkgnObT7sw28P/omFbmq7LxB6E+DAmtX+cP2UbaE1gDA3m
NL8h6mi4cPWSthOXaaqoXRzXktlI9iRnnS4Iux7XTQeqnIJ6TPugI7Zn2IbB
ny+H5qm1olhBte62fvBHyrX9Nt18iDgFQQ7X8ehn38bByikZNNS0Otw6gzUz
9/ZTyim8ZoXBwV3LaXInXdxvg2J+hCOAnPORNW9BXDQJnuloFmYzOtJ7NYfw
tev1PKZLbodukQEjRrsian6zD7UBJCrYdJTmJodROr3RTseByDCdGYtk2Uuu
4FHtDNPpSbENoDbHqe/gOBdEq9WR60SYqTHmp3NcOszGcSyFm7FbsGIzXGVh
mRQZdRU972ZSDDXOhufq+XH+ZGc4Y59tazeHcJxo9ppwftiECPE8wJpPYJJL
gbNgt7tkscLj0oy5286HWitiG9zwG6O16zd1MheTTRrnzom5u3Tiv868eO1F
8WNxuulIq8WWUMuiXaIYk70Roxls0kBb2WOJUuneePFhzJzs/v2an3CbEnNv
OB8lSk0a6s17mB8jX/Mt02VSuZYRAhu1Vqv9r3AOMNdsLbU+eyvBxVn5b1px
8au07O7Glp1cUw4NR3FjaNRmvGSY94VG4g2nLXosXt5OMJ2Oa2Y0koqeX6xN
54eYMqfp1H7bQguvnWWRtpCGi4zaisRQH5dcAWvNI1o+Zt6LxRmy4SsNHOdl
xIfGFq9aXTdm8BiZTYpx0lGl7aVa+ovNfmWlp804znou33bjqUm1tv21vBoR
olBc4xMXEx/csMAXspe6+orTRcWsOXnRTpgUTY3qcY2dYgPsNtkqyJ3uKFYi
px2J2jmQYiXpKXPfCj7b7dXo6bjgfnrZ+VnGxEMOhfie4FDNcb7XToj1DHTO
zPpbQsFoSjoM1gs0kIqref2BlPfwPNHOxuYTIb4bw3xP1ysPIEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQoj14HfiVuJ+HvdedBXwwwqP
yJSxc9Xcr33FOPxbGHfM/euMfS424BS1Kyi2XXfGINtwC3/+/EE6d3eUy+ii
xPkHpIqTf//+/Ri7Zjk22m35Fo7aoIUzpYG1m7qjp1/HM8q/HxM60UgIIYR4
LpcKCf5p8gcRTdpA7axRno/T8/xTJit/Da3GcNXvZYzhtzuvhkXs4g9h3MhF
iXOtbSCeB/phyhSu6I31fF/5sfVaZGceflNvnP+unxBCCCGegokK02Dpr4O5
cLfkaF+5EJcC/7tGatb0/FD5OUgY7zKKxjdwPwc8TvqWQ2p63jJygocTZxvS
Hy9jUWQ1UjM+5hVxv5Rn8Z1JLtDO3nc/nIqabdRpbACmFdPy9hMxtejtNYV1
udRaCOKg1tILY0YWHtefF6uAj89NI7AkHqcWbr9KnHYZ5+HU1PQzd4SRvA01
3vDYSAd0xyrmfx/3FEYIIYQQi5io4L+Y3D8+PnjriwXy+vxAx/6zHOVVUBbJ
K1eeUz1vyZq6YC3BvwCF8P78S6/RthpmJ6cAGcOBqZ7vp58C4cgseMxLfX0l
lotg/6aeR0zETwtlZWenGaVEbE9aa3aJSU34xOKz8sdViMNJsdnsqNR4OAdf
YR9IajxjdrJX0xbiahmJW4lquY+VpuUc227P7hfkozEd7SirtWQ0xTHUHXJ3
Cp+/ci3Z0rGtR5zj4u0JRyhe6ue38J1+eUoIIYR4Hjan8z5e0xJljmYRBWUC
TetkKsQS6z0nFVZO+lFdRAUY7x3YHrdguChXxiDRuewdqfSYfonJi71mG2/V
hnIb50vELnfeb+Nyt0w5zbGuFWEkO22kFyX4Qr47w4Wmk/naLuj5WHb4hJ/g
cGAXbkzG0IrKv1DUbIATkEYxide3u/ldRvQMW44SdfN7WJcIh0fvLa5Lc/uM
uK4Bk+IdE98Ru/tEfroRU8bN3Uj3AjHZxYK4HuQiS88LIYQQz6Wbrz26B/EI
hxZq7CHnxUb+0JayqUlRz6dypQs7ZHAzwgutriwpXJzygbdYRKXq9DynY88g
TBLjpgZl7yv7llmn2fq8S3DMNG0qonpan0/XVC2vuLbPXnIaO+r54Ywre3/e
uZHq+dT4EpNFqWFpxvBIXJ/nxGON9/P1eavi6CXUGodzv0i9l1Kr7mhkzf4o
yDkFNBuXEd99uFKk7XCxb7p04uMS6XkhhBDiibiZGjO7rRL3E7bS2J/3EqcS
YpyLENNLFqEtZSMr9fwwvW9oWrGfdk2MQcDfqOdRhKjnWW65dKD67F8TPKfK
jiOn51NpV6rDvgLRTi6sSweKGuu0LgL+5ZsR2BDX52PZDbfmDz3vNLC1kOG8
b5/DoRVPtKclPUHFrc87p0XJzar1NN9vgzhmJ5qWObMEooLgvTUHQ9WeoeDb
O+r52uW1O1N3F6/1eSGEEGK/OFnST1tNyl87iY4Z55rWLdNh0i9xylefn58Q
ohay8ly7lXoe27xTI/nIxxv1PPaKoESIXGx4f3/ndIrTzC32AXrMTqGsyR47
988+m+vwFSrIBLkr7J8/f2JB2uvzRjGjXF6Mh0nwkp0DCTvNzzjd0bxhb246
Pe9ayDjX864KrD1Yw3CucEaWC3/8+BFrkM+rvHR9vmRqJXIxi0PsGMnYtLji
yudSR7Y1vaFjYx9hLl2fN19xdvi2pufd2afwgBmPcLcbKuJGCVebdnlsikII
IYTYhi68XhqFxDjfb8MLlW7rOCfLa6HtjcTRpDV6PobzcqVblrxIz7uyx1XQ
vrJ/fgwiDf7Ekm8t99r6PO+3iXsk0v02qXN4v0261rpyfZ6rkuu0n7Zkp+vz
fbbBw45ecQ3DdKZbMU5PSb1xfb693ybWguVVe3qS0l6fv1TPu3LFbfYcnl6O
ukuro2bnmO3bcYPGykdvQgghhHgEp+lYD9v54DQ5dCyvvWNmP02bcHra62Lw
yqT7ti2B0gg1tQPpMkxHPiJHJz9gfC13JyBRLtMqpprS/fN2Fg1H5kRimmmR
4cmxrhhxJgkKWyuISbjafhvOy+4RoAlxidPDp/PmK7QQfIvLXQthPYkHGbyD
hWvQSUEz3tVsurnlxv3ztf023LSsdFbF0Pl4PLR4l9o395hx01qp53kjEDc2
uBTh7k6B6y4adqmeR20O86NWx8qdlBBCCCEeis31OOWP52IoFg63NVW+/DTt
tOdkh3Am+UCHabRn/BjBhfC/qfHD/DeVbEc0SpTKYGcwys55oeyxdE5E1ZxQ
K/IwnX9uprqHC1yuWCMxKeyf4Ti2WR1pmrRzh/OYDfEUdDgZItN5yclRS8d5
ANovLvay/Sg7S9Da/vlao6q5GuH9dPZ+48KBtsq7OBa+uCjtGkD6LW6m0hbu
GsNIbomNDQ0DDX6cbq/gdtxeufpt2BnNG8k5riku9m4hhBBCiBtp6xYhjoS7
sW0/LxBCCCGEeH1s5fnZVgixEQOdKTrMj/oXQgghhBBCvD78W8MS80IIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEHuh7/sT8fHxcQq8vb3FQMVUzG8S
cxiGDXria5ZdMRVTMXcXcxdGKqZifoeYG4gHVhFF0m+ZoxA7oj+zQUZd122Q
ixBCCCE2YONpXXpeiAbS80IIIYS4FOl5IV4H6XkhhBBCXMrG0/pmckWIPSI9
L4QQQohL0fq8EK+D9LwQQgghLmXjaf3j4+PXr19b5ijEjpCeF0IIIcSlaH1e
iNdBel4IIYQQl7K9nt/meG0h9oj0vBBPoUxM1vvcDOUeKA9n+JJhIj567idc
Cl9fXzFrJG5ESzhy7aDpWinYbM4oXs6kD9OL8fHaNLW0jItWcQQ4MDUeRkpU
CDFqfV6IV0J6XojtKRNTR0Atl87oeorFxFcOdN6iMN1XSKHEeXt7w798YUyQ
Y5Y0a3aOZ5ntri3f4sbBQkz3Ima8KUgL5eJ8fHzEcE4/gmT5BgEugpHwba04
HK1tpBDfkI07gtbnhWggPS/ExkBt2sqzyUXrhg09DznaEza78VecPrIzle7y
GknbA/7WIptKj9eazMY6f5qymVdy56+iK5A7pwlSCd3W81DgJcHodqTP3ras
TTCklWJrg+kTECG+JxtP6+p6QjSQnhdiY5wWhRofw1r6GNbn030v8SsnR4tY
hUblaFEVl9ydiI2W47MbOni5Gym7e4TUchjw69cvl6k5x90sOEscfAnrefgZ
HnYGx3zt8pi7EGLUfpt1fH199ecti874WBZ+3oo9kPjLMctQaQny6G0ZcTR3
oem9cuHiMUEw2MV0OfKakm1ETG1Gvs4Yjlku528tMO4UHebbR2GALTpxmqnZ
ccNkTHOYtpjurrFJzwuxJazeIz2tV0MM8/o8VokH2m3eXqyGMq8tfSNBi2Pp
pDocEcyYOGYiECl38z08NdussLZIzsmWr8rl0WmNIrMP+RJLxO6Y7EL37KM2
EuI+CPOOHvoLMeq8yhVgDMS+QSwypA8QrYB9fSNiUZ72xPPtjH0wOfr5+Ylx
DNEsC/7XLMFVqcEWk1MYaVMiItu/JdyWYiJ//vzhfO3zrzNpfAzCFvP9/T3a
xk7D/JImyM60aPiMslvI79+/nW9LLj9+/CgfdtTkpOeF2BIbdmoSF+MVwPjZ
GOExqDbSNNwYjnGb87II6SYZ7IfhqcdlZJezkWVUrHmDJ7s4ftr0YaM3JoLF
IsMzfDk8X3L8+fOnXWvFwVU1B8IzcdIR4juz8bS+uyVTfsxn8LpKlz0T5OWU
9noFX2UVgSFupFWI9CqOGRPnrPnCNesqLkLMyDkk+mGcr0G5xwEuR1xrGfFT
b7dcY9GQgvOMzSxueI/3Ly+O9LwQW8JL7rVvOQSReVByxHEvprl+v01Htw+1
9Xm7ds36fMPsMZu22Dm4u4nGR8v5km7a6lOKk85oltTK9fnUFUKI7fX8vh6N
xXUP3g3iBkYeDBt6Pk4fUHEYqeJQj6/aDkynEs5xpZ5HCLZQNvKNEwTMcAMv
1n/cRDAGPT+SD3F3MGZ3CliG4mhgyM5Je1mk54XYGDfiudWDK/bPx9HbjVdI
0y1NpHrerWNEy/E5HYRjzMX3YWt6vsuI0aINDuychBn8zCItzqD980IssfG0
vrv1eRs6ag/+0vGNRSbDg3ZtecTtOUlluVET9um4isDa+nw7BZdvrMFYIoRg
fcnA/VEXnnFEPY/nHXF9PobY9ntnid2I7egWUnpeiI3BWG07sd27q66nuDVk
DIkGP3bsprNo4pNW6HkkwqvoJzq5hS9EOli76EjWYu+NDZhO9HIumGVqy+nI
3Ubv2g2Fe1TtLDdnuox4ad2t9mCK4eJgk7x9ZRMx/JB6Xohvy8bT+u7W53kY
qX2LISUuGhu2xsIDV/txJ4jR3HJHdCavycTA9ftt0ke3oL3fhqch90YVtDfM
6Op6fpweIvNUAj2P6QD3CDxZjNmaz+sjPS/E9rhxNdXeHHOs7J/HhRhpEc5j
YHps41g5fz5uQayN/9GY9Pz5MXuC4IyJJYqr4jzOR8tLGd2APM43QLpv3dyE
+6CaJY5thk0hXplu22l9M7lyL6AV02/dMDKs2z/Po5aDzwdrDFNO4jL32m+T
mjdOx+Z0YQE/Ply2Wxj3bLef1rugxpFdY79NXI3njPr6+jwmhVpxXg3peSGe
wjAdnOUGz/SELv4MbAhykePS8ZD9PiwCXZqpqViET0uRrlfH+GkWsUSNFDhw
CCxeMoYnp6k9aWE5I51vI4Sx8bS+u/02fTiPxT1kvHr/PO4Rhvlxx938cWQ3
PR0Yzoszw5LwjgsvvLllWL3fBhmZJOZ8LRF3CecYF08QH9p7pGWW2vq8c4vb
bzPOF8H4fdiYyF4GfOl5IYQQQlzKxtP6Hs+rxGmNWG3mt5nik1MTq7gRYKzs
9szxx48feCIJOcrnVY6TxLUjH3Guml1lZ3xF7ccHNvbTAcJ8KlpanHhmGkL+
/PljISY1LUF3CiX7If6kIJ9sZuUtaY707JXPq4Sv7KpSzHF+phw7eaQHxHZe
JbaGWgGLk9O7npdFel4IIYQQl7LxtL679XkDKtHJLVecYRjsLK9x2pdilED7
wJHxvg+vftsmcLdHkbdQYrsLB0YsEUvf7XVHmt20JcZ9aybFS3gXTbyEd9TE
9XxEMMOgxvkr+4EtwI+MOdoQHmHbV5ymu0uqva3wgkjPCyGEEOJSttfze9n5
IMT2SM8LIYQQ4lK0Pi/E6yA9L4QQQohL0fq8EK+D9LwQQgghLmXjaX0zuSLE
HpGeF0IIIcSlaL+NEK/Dlno+vq/N2I+gORRTMRVTMV8na8W8KCYOiH4dkxTz
jjF1XqUQr4PW54UQQjwCPghOHA+tzwvxOkjPCyGEeAR9+OFgcST0PqwQr4P0
vBBCiEcgPX9stD4vxOsgPS+EEOIRSM8fG63PC/E6SM8LIYR4BNLzx0bnVQrx
OkjPCyGEeATS88dm+/V523IjhIhstiFNel4IIb4VvfT8odn+vEo7slJcR6mv
Z5sgHkjpHdLzQggh7k6ZXH7pwPDjovdh94Vk2LGxVfoNMtpRQ7IFJS0rCSHE
LWh9/tjofdh9sSMZJq5gd3r+Omtr9/VlcGDDyr+n6TcNCx8fHxwNv5SHz+XD
6wwvtnvqLkmVcsVfgbnjUtvisFxyv7TBWN3dYpUQ4r5Izx8brc/vC+n5Y7Mv
PV9MvS6d2jjgEjShPkzYj1zbVxxokxS4wp5HcLVzIqmev+NYumaZ5dJ7Jel5
IV4N6fljo/X5fSE9f2z2oudt8dmWza/LfXF9PuphWyV2A8hmbxxcypH0fOr5
NtLzQrwa0vPHRudV7gvp+WOzIz0PSX/F5WvW51M9HK9q63nnT/7X7h3wCACB
HJ//tamwVmSz1jDtbSG45O3tjWfSNPdauL0F74qAvUYGJ8LGuOLgLqx8wD0C
51UyijO+6XlOluPwnijnXr48lotdal9FP3DZuWil7LEWhBANpOePzSvvt1HD
izxdz1ulxNVCcRf2oueNu++3YRGITfLtXTSLep4tRL6WuH2G8I7x+V8zJq0g
l4JJTShPi8+bhewryHJXZJOvHI57BHtNAGXBPQIb8Ot8ChYXE5ewP8sHvI8A
jW37l6IbIcg5OzYJl3NZkC/sdDdE7B9Ok2uH0+RXJIrxTx8MhdgX0vPHZuMh
0Q6rbMf58+dPiVamADvc0j7YV7ZX9urcy+VtIcp53SXHNeW9iGdNYcVvb2es
Un78+AG33FjGfsVrfTbXb3/Q1u/fvzfO8Zvo+Vq3cgnaAZ5vE+/v77H/tvW8
CVG7qtQmPrvmZLlEA5yeT1ugZcFf/fz5c5wLVCsLpLKLD284t6BnWXz3bfnX
MnJFcP3R5H0pO240QOnFZp5dYimU4TeW0VznPGa5f52JadqIARucPfCDK6+l
2dG7z4XPz89yFVfleJ4mnjImCLFfSnfTWtyBecH1+ThB46qusu12fe7tm9N4
RMajc7yUZ+l59zSc99PeWMY1ChbP+q/O5QpKodzN3QZ8Ez1f61bD/Hwbhy3J
Xrp/Hmva8K3lEne5jEt6Pk0/phavHUnH8q4VtwslTWec1rGd08olcSOKOSRe
zov2AK7jDTNpGeP5NuVCZIQS8fjJ6/Plcs6ipudtnK+1gdRv23QWIY6B1ueP
zfZ6frE5RZPKJVinsknZ5mjcadrcsRjIubvZEFm7maujx+K87dOmKgtELuN5
iuR7FvvsAsdJK/LTc5h0ar5E9hQ9n8o27IKwotnTf1fGNYHwjE366WaGqHYs
HbSE4bzP2fnTnBw1A39GEczz7in/jU9nruCb6Pnafb3Tz3GsaIjSGtCHvOuj
yzacjzfo+XZZRtLzMX7crOKwUp/mW/cbet75zfR89DnreXSx1JkNPY9rx2m7
TixOV9lX39Dzi/dHSC1aK4RIkZ4/Ntvr+TXr87WvbE3GxBsmFIz/A20KTQM7
WlJOZbMpf/4WMw5PPZhZsB6FfaG43eCFL3vFjMvOgZzXooB8lp5v3GXACawZ
oA2cSo8xoWBrZWdnnsIOZPb8ELbdpk7mlK09dNPriqwl7HZg49FPep7FXmx1
V+h5XMW7TVw6aOGuRKf5Zu808SiDbbRp63mXO9qh07cIxzahE+2fT4vgHGLZ
lctjL+b9PyzIYxnj+TZoqM4tbqv8OF/JH5t6ntOM/knvwiROhFiPusyxebX1
eTf4O9J5081rmEx58oIgdOoupl9mLp44IEp5KmE9H0X+OD+DwknQaBvntbgd
9Cl6vuGxMTgBBUfgQJsZkA5P9xae1jsvDDoPOx828hrnTk4D4/khg/bbLBH1
/Mr5oqN3S4vncRWLPUucKzF9BXKNno8NrKc3Unt6mXSkxjBMR6wgvJY+dxBI
4pqeH+e3CfEzHiZy1mYSm3o6P+dCpiiOZcTFMdvcfcQpex92rNxWWzfkMsKk
uNDh9Dz3oyG8D+vuXzB6cDrpLR67d5ifSiSESJGePzYb68NFudJYIBrD+G8x
WRv00ypc+uC4m6ip09O0MweTEa/PL+r5lbL2RCv5PAOuqYuXWp+HrkgLzpUS
3cWJW6Wk9zLY9+t85RoSz+ynaSuUixCdzOufrOejDtmMvev52sK74zTfTQ3Z
3GfbXYA78tFYo+fjkrhL3KlKjBL9iv02sUSsvRGB9fww/91bLlQa3tF7oNDD
p/l5lWkRunAaJ4en51X20/Y2Lh30fMzOBeKei3U47DxNu3rsq2h2Ldlof5cN
yEKIBtLzx2bjYXDNdB9N6qdF+y5bn++mHS/jecBPlT9yPy29d8ZzXE+LeOn0
4ebBVNa6yZQfEDgb1tTFU6atdLpEKVIndNMGGNwfjRWxypUSsza1BpDpGj3P
7u20Pj/nQQ3pZSeLLvtJpvvyuLLfPWWX4Pa1dmOOL9vMhHhlpOePzcb6cM3Z
hj9//mQdZeeexWe746Tn7QRFRMZ+G6zzl8D39/eRzqu0w9/iyWwlEEcU2pKU
PX0uMWGD2dNNr56xhocZCLdz9lwEXqnj/SQvq+fH6SRPd/ie/QvPjCRHrVLg
7VgpqDVc4urdcEcUmrtKdfTzfVlwC04FNCdbFdtn3OhZYE/HCaZ6Hm1pS/au
518Qq8ftq1IIIV6KfsXp0GK/vOD6/EgbY+Jz56jnx/nDWfdgmgNP8/Nt0rVi
/pcf0/NTeN45s7g+39Nhbm6FP5ZujWcW4zwI9gDvfKg54TT9LGat4IgG/ewW
1fvsZYrT+VgPt2M2rs8jL6z/OwN62lfQVfbb1J7jPA7p+fsyzH9QSQghvi1a
nz822+v59c0Ju2jWx18ZeDWXmtQww168vTSd58qwYWJ9/HSTw2Y/aZE6ef0C
xfY/vSE9L4QQ4hFIzx+b11yfFzUkw46N9LwQQohHID1/bF55fV5EJMOOjfS8
EEKIRyA9f2w2ntY3kytHRTLs2EjPCyGEeATS88dG+232hWTYsZGeF0II8Qik
54/NC55XKRpIhh0b6XkhhBCPoD//2P2zrRCPQuvz+0Iy7NhIzwshhHgEWp8/
Nnofdl9Ihh0b6XkhhBCPQHr+2Gyv522J/tFsk8uDgPGuFPYLTRZoP0G762Le
jhWfHbJ33C+mPQ7peSGE+Fb00vOH5qh6/qiY3hNHZbMNaWpIQgjxrZAAOzY6
r3JfaFn12GzWQUpDsoUa+w1ffFagAhWowIsCLUSBrx+I9SILt3djXWQF7jdQ
78PuC+n5Y7Olnt8gFyGEEC9Cr/02h0bnVe4LybBjIz0vhBDiEZTJRQLswGh9
fl9Ihh0b6XkhhBCPQOvzx0bnVe4LybBjIz0vhBDiEUjPHxutz+8LybBjIz0v
hBDiEUjPHxutz+8LybBjIz0vhBDiEUjPHxudV7kvJMOOjfS8EEKIRyA9f2y0
32ZfSIYdG+l5IYQQj0B6/tjovMp9IRl2bKTnhRBCPIIyudhPEYlDovX5fSEZ
dmyk54UQQjwCrc8fG70Puy8kw46N9LwQQohHID1/bLQ+vy8kw47NjvR8P3H1
A9wyGhQz3OUlwW6Oc4j79u3t7bkzVMl9s17JzePp87JVnNXXcy2pwVVTPlzn
Mfj8QRV9tWGLWLK3V5AV/F5lv6KwVoR0YERq5dsynqSXP87DNWO25KJMpeeP
jdbn98XLTp3iLuxCz2N+tzn06ukyleuYu0H5FzO1Zc3ffnx8bDZfp5hJ2xjA
03HJ9InvIiH319fzuO8w110qy0sDQxNty6HikJqkbFBTqjeCZG+vIO6AN1Lq
4gpjai7iop3OxDilvm5375o2UzPg0VzUfqTnj43Oq9wXLzt1iruwCz3vFMJ1
NrNud+FuWrTJFIFx/rrlnuJ2ttTzzHP1fPH5vvS8C1yfyPrm/VJ6Ho/C76Ln
72Wh6flLO0vNfi5aY33+dorBi4lLz4uno/02++Jlp05xF3ah510vvk4wWCJR
XKXTImeR6oHGpNZPG3h4Z84w4Z4ROP/XRILN70iTTUJ2/CzSkrVLnP2wwRWh
p31HPe2xsWstqY+PD95TYdREPmy2BNk2W8NMKxFXcaVz2e1CdkgtUy51f96m
Vas1XAIfWkZ4OjOexXPbb3Yt9Lz9C3uK65As4qc7x9Ak7Fqzx4x3uZeyu8pC
4q6YFhMWpk5w9cX22I1D9Gp0YInpKsjd4NQqyPkTvdIKxXfQXEbuX2wk7Len
abXH9LEZp83PWW7hZiF6k9UvvGEf0lpbdLtLkyOgzcBLdkkJjG3YApGaWWUO
cc5HIDvKOrsLt16wftuD9Pyx6XRe5a7YuL7ExuxCz5cuzJLg58+fPHuuTAG6
4sePHzwmlOI7TYj4f/78sRk5jiHlktQGC7eMip1I2ebf8lVJ0xI3t9tMisvT
eR/xS7K/f/82bWZZvJ0pgeVfK4iFlwgopl1unz8/P0schJfczcLyGdfa55Lm
SHs/LJFSIpdg+fv+/h79UC7vSAlbRqXsZlv5bCqxVlLzkkWDSSV3K6alYJez
ky2XEl5y5xq3TIudMceSkeXydQYOQX3ZJeWrcjkbw5/hCqsa12wsKfMnmocV
JHVdKRFEGooA49n51hFgoVllrvs4g/BS72xhbGO42YHn0bzZZtdcueIsWrnc
VVD5W5qiq6CSlKsg1wZQLvMSWoulgAbf0e6mbn7nZZ9LwdP+y8bASDbMjTnm
Iis+LEGvtOaBikAc7oNoMw7uStxm0AdRFm4zVq3osyUjWII7ZUvQ4lj88m9x
CMexgnCb7GgdA9fC1davMcQtknZzcRg21odan78R6fljsws9Dxrrum14Eb5M
RrwG3mdL4lhorW1uqT3sZmfafIrwbr5liOfN9k4SlxfWP+OzBpjaZWvI43xv
Ni5x87jLGvHZzsUFutiusGGmsVbphuth/npp6iV2ciz1iTZN1RbDXT3y6mut
ODDM+dNVK1zEgYt7JJAmt720EdpieMyar3WNpNaenR9c1izJar3vVN9vk/ok
ZsrxuVy4s4jGc6ZuhdxSbuy3ceG8ealWRi6aMx4txLkuTadWWMC15hoe7l75
EYZbW7A0uWuMoV7s8xB2iMGeWIkIXz9l9FqfPzTb63k1p1uQnj82O9LzNoHW
diks5m5Tfx9eaE2VuVOSqZ6v+c1y6SYQ6OZWZIqkammmKhe3Nj0Bueg0GIoT
n0SYzHYP/ZFdqudd5LQ64o0DFFfDdVEqdLS9oa3nh+mth+iNsanQavdlfEmJ
Y+urhhXfislXpbeBTpudsj0tLusojNGiuHacBI2NAZtVUpcysRew553eS81G
/L6i59sVVLOwJ6EeU0ZIP9fzKPVFep67fFpGNiDe8UFdd9nWoFp1n7I9aQPt
n+cdRx1tMEOO6TjQr9DzGEOst/K10QnS8yKyvZ5f3/ZERHr+2DQmmvtyY0M6
3fAKak/qGrBgiLb10/Pl2npmQ4qkC5V9Xc+bFKllNIYJ1C29QjS6S1I9H7Pg
mEPYgM3NI6bZ148binp+zfp8qufdKnHf1PPmltQhaY5R7qbhMAyJ2we8UGDw
ameq55F4P21KSbNGXl1Y0LbaMdt4fZ5XpN0K9ho9H8cB1m9Oz6etdHF93lVQ
467cdc9GV2VNy/a79fmYRfTtpXq+r6zPj3MXDfM3JmpFdv0Oen6g87UsZlyf
76cdg67lr1mf54HOmSQ9LxbZXs+rOd2C9Pyx2YWeTyX3RVlHbVmbl+MlUcDw
5Q07V+63QRZrVAT+HejNUP4K6peLjDI6mQ396abdPltLZ0XNkZ2mdTlyGdfs
t3EaCQVfuT7vSsfGpzn2YZ+J/Rst4eVfpFzzp5OL3Aw49/S3DOJ+m+H8smd0
C6/PuzYJC127il6qXQ77V67Pr9TztQpy8VnDs+ddg+cbzxv32/Tz3VnpJa5B
ttfna7XGOA8gDmotts90v427MbQeet1+Gx5DOE3peRHZWB9uJleOivT8sdmF
nu+mExV6wr5avGGPC3EjSeJxUjK256SfjjRxi6vIfaBdLot52QtonCMbwNN0
7S3FmCxOzEDxeZ2fFxh5isflNsXDQl7iY0+esi1A3Xz/PBsfLXeHybBcXCwp
C1HOPZWL7qYJhtUUdWonF5zXLdkw1t7wG/tzmLYhOYNZUXOJandwaN6sDDl3
FNOdV5nW7DivxBOd0MI4z/PlXVifjzaP9Qoa57czSLattGt6/kQ/CdfPV8u5
UGv0PFeW8/CaO+v+wv3zfbZu4FopS/S0HbLNro64eeB2b1HPj/PmwQOj9LxY
ZGN9eNJ+m9uQnj82e9HzEftqsYOfKmvpTn4wbg5y37Z/H9biQDV100P2tp6P
EsjBRvKcO9BWdicMcAZdN3/Qz0mx+uV0WDI5KWjykiOnm0aiYxHerrLUPISb
PV1Fz8NIOArhDffiDo59GNVXzZ8ux66yPt+RPEst5JJGZci5d5WbO+c65M4F
rOn5GI0LuEbP1yrIXVKrIBefFSZHqzX4KPtP8ycXDUl/UWuBwzmLsbK8n9aa
o1Zr3dSzXMVh/MFSwzg/TLWb37y7jLggnE70Q6zEfrrHb9RdLJ30/IFp9JRH
oPMqb2Tj+hIbsws9vy/syLuLLvn8/FxzAmdJ1o58dNjxjBzS0SF4618fNstX
xr8o8pZc4f9xnaMaKV/h53aE2lWLuaRx7BTKF6ksK0jako/HLbW28ttLo9Wu
fYRS6ivvy4tjsPG0rvX5G/k+Mux7Ij3/XOJuirvQPfW3XIUQYtT6/NHZXs+r
Od2CZNixkZ5/LvaY/u5VcJreHhVCiGchPX9stD6/LyTDjo30vBBCiEcgPX9s
tD6/LyTDjo30vBBCiEcgPX9sNp7WN5MrR0Uy7NhIzwshhHgE0vPHRvtt9oVk
2LGRnhdCCPEIpOePjc6r3BeSYcdGen48nymXnp5XAhuHrX2deaRd1Xy3z3Rf
tCsuUjsf8n4WPYR7Hfn40OLXOleMdsccX7/u1sPF2UDMIK+7tK4yuUiAHZin
rM/jdxPslz7G6Zg4BS4GdvTT1cOc8dz3+UIF7i5Qen4MP0YDSmDDOe4HZTbj
xT35bBP+nUvP/0x/H2f9j+Y8i/ijV9clEltUGngdK49Orf3c0nU53iupVwB7
DIbzdPzoW5WOfmiPf9XrOpdqff7YbK/nO/EA5NjDID1f0/PjeQ6tXSU97xim
H6l/OqU2b9fzY7P2X4HD6Pk7rioM81/mPQBonNvo+XSL8tUulZ4/NhsP+No/
fyMvMkGLB/Ed1ufdnMLqAg8pTAGaNxDZnklxOm7NytSUu8pl7UKQe8zOxS8T
d1o13fTILF6OQFyIJzJpFi6yA9emBcS1EBgmAtPULJD9mWYN+50CrAWOmT/H
sD6fXs7xU7N7erA7nJ9a1nxlSaXX1krK/3Id9dPSaMwlJoV6aVeQC0d8q7h+
Lt2tjhC46LrFcNbz0RjEQXhsw9EhzntcnHGqzcWHj2lGY6Vjxtzb1/bUAV0c
PP7uJ5XuIrus3fp8rTjRHnM7p1YrWomJa5Edequt3fVLTbpmlfT8gdlez6s5
3YL0/LFZOSzfzhMbEi+kO/Vi81ShKED7bJOXDRq836Y7P5OymJj4LLBQYqZL
WE4o9tODAJuaLWu3/oZEyryfOg2ZwloWZpYmJmWLgGvLHI1/8XSmlChd5rVc
2C0QZmyAiecCHJL6gVUBnGmXWxwOZ7+x52GnZYfKcnZCz7s0WZBY/FIduLZW
d5aR1bvzJ1vOKSAvOMoyglXscG6fZny0xxoDVzpKYYH4jDS5gXHFwVHmee4R
UIwxZdac9pVr8xbNugyHI3crZmwbMb4rJjdaxOFrYaS1Qwtpt23XWdJOVLs5
5Q7IPudOzWm6dDCqIAUrjqsyrkoeH9L1eSumu9ACEWKXxwpyYxGstRDu1/10
8+sqqEEvPX9oNp7WrU1umePBkJ4/Npt1kOeuzzsBwGLPAqEqR9JXPPNiljRl
hTVMzFan7FFgP799OE2v80T5NwY9H2UMIrNEgV5yc7SVyKWZlmisLFCf6NZm
pJsRN4+jCTXWD50+4ayhvTkOyl6zE6oylpH/TdN08Rf1vFWi6ahYd7FQyMg0
zzC9sYI4zlFRz0cH9vOtNU7EckHGoJDLB6s41xrxTIrdgkVdLqaLcwp3x86l
bIClWRPzrmiumHZVvLGtZWrXsoWNm2LXAdGJerpzSbfhxWshdNM0XX/BZ+5f
GFUaJtX0fD/fLoj47l4m3nrAjH5+s4ZmzzdZw/RMwVVQe/qQnj82G0/ri+1N
tJGePzbfQc+PNB9hhWqcb5hhEYVwxHQzNSSxm6bjSmAf1h5t24aLaRmtX593
xsT9ydDz43wMRGBMpK1RR5IN7lq35h8NHsn/rox2uSk9F17zPGs5BDp/2j2C
k6/jXAYjsCbREej8sHjjBnvchShje30+3W3u3giwRFzB4ZNooYXHiuPb0lTA
cwoxx7Hi0nGucmtPr1zMcWpLLmaqdaOReMefE4zX1mxg8dyO70oafTJOj2As
TW6r3DFdwV0iPd0+Y7xK9bxrM+aEcb7rrF1BnCbreZjn7m0rjkmQnj82G0/r
Oq/yRqTnj8030fO2WcIm99+/f9uUWv5iNZIXuMpni1DT84jmrko9iWhI9u0M
x/n586fJcp5bi501Pc//Qs/304aHknj5+/7+DgPskpIyAm0d2Gz78eOHKwuc
xoElF+h5FgDQ87UbELbZ4piRsBN7ANYUtpv2YMCH0fiSZsnICm7forC2Vbim
bdJAl75zC8e3irDc02QtDhs/UsOwCKXeF/1glGbDlqBcqFz8LVVsno+zoV2F
6nBJcanNpa7pmnNifO47JffUw0jZ3bKZMXZJyTR2hFTP87copl0bNbBVAVyE
S6yRv02k4qHWJmE5mpxdXnKHb8vfz8/PWPAS6ByL7oZoVoPxGMmanVbpbCT3
BSQbK9rCS+uC/fBhyR3FxKAas2bnHOnsUOHQ+vy+kJ4/Nt9Ez/fTlnJMYbwg
7PQ81ksb6/NxrdItxnJkt2oaF/TMsPX7bdy1qUZledBNW6bjglsDN3j2t63P
24e4Do/E4/p8XDnvL1mfd8vg43RezRD2BbX1fKzo1HX9tLsmfTIyztfn2QC3
Pp/qH7c+32fveyLZWuU21ufHbL8NYvIeM+fSE+2xT/OyNGv17qxyZT9Nb22s
0fP25Ct9yLW44M9r6QhceY9pHmikOc5vtfhdBhQ8HRNcd6vtt3G3af20JN5e
n69dzsNUe7gYpndY0mSdMeKQbK/n1ZxuQXr+2HwTPT/Sa1zjpKAwEzk93zf3
22DiXrMNg7NuaFqWeYtT8Bo9z6oSJWIxsMZ4F6enDQAcDi9FnZza7LRB6uQ1
++cR7vzmZHOUdqmfG3o++qqmYbrpHVvETHW7cxTnni6hj+HpjyXlRGBPC8Wp
AHaWx11J/bTxzN1e1V494GhpFXCJTpXXJ50B8fbNKg7h8F405jTtn3eV7nJM
N+SnNx3puwxRt/fTwzUE8s0Rrmp0Onc7wJeflvbbcJPjW2DW87U+4szgy3s6
3wmR03YYXcS2SYAdGK3P74unyzDxUL6VnmfZwAqhX1qfH+iYFD7fZqXMO9Ep
ExxiCuREZ7yc6IwL23KQFsStIkKKnOjciTh9R71xmo5eSTNyJRqm1wORWj8/
oGacREucwWPWVkbWeKf5+R6sJbpwVklc4uZroWRcONc4tDfSjzZD2Cze+7AZ
brXTcHvIkamTealgG+vn26R6ntPngrtGEs+3Qal7OurEaXu41ErkXBrPC2KH
dPV3TOyzqWJYeJrfgLNhzr21O4va/nnkggSxGI5w17b5WkTjErk0rdJxVRwE
XKtzbZXLyNUXmwd3KM4intra0fk23JVsTEM4mj3Mg5OtgvqJtOMwvfT8odle
z6s53cLTZZh4KDxoP5SnN6RhfhA0fx7Op4vzv8N06ARLYpvieSnMTZe1oSau
+430tNr5v582xtTOn4/p4Kg9wyLYon3DvGHasNH4LS2+ZDj/SHRqpwuMfqiV
8XQ+vYSzgGxI4zf8AA3m7KylaeG4Q4k2I3B9RfeV32bqpx84SHPnsjQ6I1og
lBi3z3g5POzShObEiT2cCN4qNSyFhutcON7sTk1Csu5Cd++ZWg7pPs5/QgL1
zptbaj5xRcDox4NDzW/O2hgnppm+3eC8Ea1yyfbzg99Tk3B6EkdIX5Pnc1M5
5mk6egtWxc4+0BE3tZ7uaHQWcQA2ntbRucR1PF2GiYeyWQf5zg1peJkfThUP
hcW2WE9/jx+63Yzr+vK+yngvpOePzfbr89LztyAdcmyk5x+KLXYtPpUWB6AP
r/SK9ezIdZcOZRgE9lLAOyI9f2w2ntZ1XuWNfE8Z9n2Qnn8oduicxPzhsR01
quir+fr62stMXdufVsMGgb2U7r7EfW7iSGh9fl98Txn2fZCeF0II8Qi0Pn9s
9D7svpAMOzbS80IIIR6B9Pyx0fr8vpAMOzbS80IIIR6B9Pyx0fr8vpAMOzbS
80IIIR6B9Pyx0XmV+0Iy7NhIz9/IQycsPgL9WePYE7N2ZqQ/tLTy2s2K0M8P
5G8wzM/JF+J4SM8fG+232RdHlWHCkJ6/An7q99CzKFE78cdorsN+OOZSG67L
2n4c516z+S0HZdzLe2vAz6GuOW88/flRIQ6D9Pyx0XmV++JIMkxEpOevwH4e
3T5vo+dT3DpwuizsAu3n2tuZukuKAdfJzpJO+vP092J9ylHPP86qRqaRnz9/
anoSB2b94yqxR7Q+vy+OJMNE5Pvo+TIUdGeKOuUfl7cVpNQ8U6QG/9y5hZjf
7ENJkwMNE8+4HGlaUhbesLOnH5S3tW6YhGh2CXLnBNl4/JaNK0stay4I69LU
ITCP80JMRCsfzCEoUcxrnJ59oET8S/cQBqiCxs0U7DEfogicL243zH5Olv3T
MDXaWQJLmlZ3XO8fHx8xcfOSFjDFUdH6/LFJp7DHofdhb2Tj+hIb8030/OmM
DQVFWUFlQcKly6RYh4deHSdBjtRY5vX0C6H8i5D8E7Gmae3yODQ5O13KIylq
TJQlvv3ADRvJxeTwvv4bpiZB2WB2UcMh5gS4tJZXd76TYjFvl7DIhz9LMV0W
2G9jyXI67bKgilNT4TpW2lH/W3ZmD7vI7OT41pYQiATxI0RWxTBVel4cGOn5
Y7O9ntf6/C1Izx+b76Dnh/mPrZskZkGYzji2Spwm4vSnk2dQ4OxYSD6Tr7U5
zn0V9by7HKoypuAczuK5ljUbjF875X3gbuON5RXTtDVq51u+aXKa1ulhmOFu
K+xyZ2cqGIrxHMi3GG5Pu5WIRbszI2ZnKbikuD3wfQe+dYmwbZqhxFGRnj82
Wp/fF9Lzx+Y76Pk+7GRmnVx7aZHXVA1IL9ZgTo/xWq7NZaCmfkG8uaitz7ui
2YIw32u4mxFQyx2LyYD1PMSwbVXCArXJ8poP3eK50/Ou1fFtiPMALLRidite
WOAtVVwECHsUk/U8pwALnT1Iyi7hNylcMZ2eN7OjvHG3NkIcCen5Y7PxtL6Z
XDkq0vPH5nvqeZS6Ufyo5xHZrc/X9LxJYmZsrpBHPc92sp5HHBaKwL69Qs+b
iHXpOD0f86r5sLE+32Ub1NPHCun6/KJCcGVnPe/K2E/3XC5Z1vNcOlb+dtdj
G3WgyVM9P1Zephi1Pi8OTS89f2i032ZfSM8fm++p53m/zfr1ebf27gIbcZgb
1+fd5bFoSMptFmrfTdTSGekRhsnXNdf253dX1++3Wa/n4/p8+uKD22/DtySN
Rwmp52vr8/FyxE/1fBp51Pq8ODTS88dm42ld51XeiPT8sfkOen6c5JntM//8
/Cxa1z5H0c78+PEDo0eJhqvKB1xV0/PlwnK5BZar7PJx6cRIRBvnL4pCHP7+
/Tsq3lIi+2zRzMiSOwzrpzMnG7lzoUoK7+/vUZeyQ/ppq8+fP38gYu1oF771
wN5+1vP2lf1bSuT86UqH7Cz+2xlLtvwtJsUD8X7+/Mlx7BSaMbx7izqypx7s
eVxuNWJZs9k9HeNpWTT0fPm2mBTLHt2i1SdxJPobfjZCvD5an98X0vPH5pvo
+YEOVHQL143VUbdHAgtNAx3PUtPz4/xYReSyeAI824na6Sv7bcZpKT4amZ5X
Oc4P5HFwfC7FiQ7bTNMc6ERHtoEPhOnmhwhxjTgHOpNgBi/vRztrbjQDOB0u
As6rtKTg+bgm74rssuAzc1ird9Nmez5TFDanu6fS4gixR7Q+f2w2Hq/0PuyN
aH45Nt9Ezz8LvHd56YWXVkot/qW5Y2dOO680zTXX3pE1ea10C++3uagI9jxi
ZeTonyt+rleIHSE9f2y21/Nan7+F7ynDvg/S80LE/fPb4B4ECHEwpOePjdbn
94Vk2LGRnhfiWXq+8e6GEAdAev7YbDytbyZXjopk2LGRnhdiPEv6w+coxMZI
zx8b7bfZF5Jhx0Z6XgghxCOQnj82G0/rH2f6ic/Pzz7w8+fPGKiYhp3GUHz4
4nYq5nUx8TOgj0Z6XgghvhX9dEqwOCTbr8/bFno7WwA/jN5PPwuowHagbSu1
Xslx7IMdmKzA/QZu9gBLel4IIb4VvdbnD4322+wLybBj05/ZICM1JCGE+FZI
zx8b6fl9IRl2bKTnhRBCPALp+WOj8232hWTYsZGeF0II8Qik54+N1uf3hWTY
sZGeF0II8Qik54+Nfk9qX0iGHRvpeSGEEI9Aev7YbH9epdbnb0Ey7NhIzwsh
hHgE/fm4vGdbIR6F1uf3hWTYsZGeF0II8Qi0Pn9stH9+X0iGHZst9fww8fX1
ZYP8QNwSWD5bIIcr8HGB/JWrjkcEGvhdDDbAVv+cqfYTNncJXGOnM3UDh3zz
wBfpBQpcDLT5ZZhwA4gR+7Vi7iWm1uf3hfT8sdlSz/dCCCG+DWXYtzVVcUh0
XuW+kJ4/Npt1EDUkIYT4VvTab3NotN9mX0iGHRvpeSGEEI9Aev7YaL/NvpAM
OzbS80IIIR6B9Pyx0XmV+0Iy7NhIzwshhHgEZXKxt8vFIdH6/L6QDDs20vNC
CCEegdbnj432z+8LybBjIz0vhBDiEUjPHxutz+8LybBjIz0vhBDiEUjPHxud
V7kvJMOOjfS8EEKIRyA9f2y032ZfSIYdG+l5IYQQj0B6/thov82+kAw7NtLz
QgghHoH0/LHReZX7QjLs2OxFz399ff2a+P379xUplAvLaFDMeH9/Lx/4FLXy
b0wTgXYhg0PYyt+PCuUqzteyLn9//vzJWdRwcaJtSF8IIV6TMlRqpDowWp/f
F9Lzx2YXer504XK57Z0rlM+Xdmp3lfu3fI6TDgItck8US1AcDoSFWJWymPBw
CXx7eyuB+Ncim9rnLNjOWF5OUwghXhOtzx8b7Z/fF9Lzx2YXet7UMv97qc1R
AJv8xreLep6/svuLmKALKZdHKf719RWvtZjRbEuTTa3lJYQQr4b0/LHR+vy+
kJ4/NrvQ806+XmFzFMDDGdh2kZ63b93AElX3x8eHC0FMl2Cq50352xq+y662
Pl/ipDkKIcT2SM8fG51XuS+k54/NLvS84+3t7Qo9jx078duL9HyR2VG6j9kt
Q+3lnXiDkOr5EshPENbo+fTWQwghnoL0/LHRfpt9IXlwbPal520zedHzV1yL
vehR2K/R845Uz7vAYmc6l8XtOqme59sBl7j2zwshXh/p+WOj/Tb7Qnr+2OxL
z49ng/mV0utSME2Ogl+636af3pDlwLh0UNPzcf9MquftcsOeL+ASLVMIIV4f
6fljo/Mq94X0/LHZhZ7nsyXH+tujDaJcN1FtKRfl/Pn56SK098/bbQWHlH/d
wZLpUZNpgrFEFvI2B6lpfV4I8fr009G+4pBofX5fSM8fm13o+TW7UxrY/hY3
Dligfe7PJ0bGb20mqr0PG8+ccSG3nG8TV+DZDOl5IcTro/X5Y6P98/tCev7Y
7ELPO0XN78OuvGF3+1X6+SGQbkM7jrvn3HvCpYYsoifb588Dp+fNAPdMgQPd
WfeYNHW+jRDidZCePzZan98X0vPHZhd6fpyEcXwfdv1KNacQr3IvvfK4Ed+H
TUeV9NCbeHn6Mq/T8+kTgZFuGeL7uRa/dqEQQmyP9Pyx2Xi62UyuHBXJg2Oz
Fz1v3D479M3fH7fD3m9Jf/uUhRDiNZGePzbab7MvpOePzb70vBBCiL0gPX9s
ttfz+CkZe9jNIQpcDExB/BKT/238tTRjYIysNLdMs9vqzUrpeSGE+FZIzx+b
jad1O6/ya+L3799fgT9//sRAxTS66ZQPsHg5ByL+YkxELrm7XNLLSxyz8yKT
OPJ649eYBOPXmATjrzbpXv7U+rwQQohH0N7fKPbOxtP6SfttbkMy7NhIzwsh
hHgEWp8/NtLz+0Iy7NhIzwshhHgE0vPHZuNpXefb3Ihk2LGRnhdCCPEIpOeP
jdbn94Vk2LGRnhdCCPEIpOePzfZ6Xs3pFiTDjo30vBBCiEcgPX9stD6/LyTD
jo30vBBCiEcgPX9stj+vUscl3YJk2LGRnhdCCPEI7LTwZ1shHoXW5/eFZNix
2VLPnybwg2VMufWOgYqpmIqpmK+TtWJeGlMj/4Fjav/8vpCePzZanxdCCPEI
tN/m2Oi8yn0hGXZspOeFEEI8Aun5Y6P9NvtCMuzYSM8LIYR4BNLzx0b7bfaF
ZNixkZ4XQgjxCKTnj43W5/eFZNixkZ4XQgjxCKTnj43Oq9wXkmHHRnpeCCHE
IyiTiwTYgdH6/L6QDDs20vNCCCEegdbnj432z+8LybBjIz0vhBDiEUjPHxud
V7kvJMOOjfS8EEKIRyA9f2y032ZfSIYdG+l5IYQQj0B6/thov82+kAw7NtLz
QgghHoH0/LHR+vy+kAw7NtLzQgghHoH0/LHReZX7QjLs2HwrPf/19fXrzLMN
uRgzu9j/bEPEjnluy/8680QDxPaUyUWVfmC0Pr8vXkGGicexOz0/DMN1Bpeh
oCPKv2xblDoILNl1c7CLr/ztKpiRMfzt7S0uWFkW6UKWM/vj4yMNZ65wzr2w
gjzRgBRYtca8UguXKhBU933h9lDq/ZZ1ztKS79g2hjMXXYLmGr+C60qaaN5M
qY67WL7G7CuKdkeuzjr1j1V6+6pHF1br88dG++f3xQvOzuKO7E7Ps6ZdjxPM
9i8KvkbP49oSaOLEDSynMzERdq8pluiKIvLdLQanySmUmGkuLzLKvbieH0k9
1kgbQ5sHrRpx3yzN5pYsrNHew6h/54r7l9oldkeMz6V5xzhFz9/FvWvMfuIC
ILviUq7z2wZdVXr+2Gw82uu8yht5wdlZ3JF96XkTvVfo+TiVmybHt4t6fjHB
VC1EpW2LZk7kl+k45mIx08tdLulsHmlMrLfMubyajVLUlrhX2tBYIU9TaNvf
uMuIGcXG0EjcLl8UgbUU2g8COFk81qklteiBqOdd7ovFBIvCOCbV1vMomnXt
dkmjPVfbEDNK78pX+vzSlhkvv3qQ5HuiRjT3LTz/uC0x0vPHZvv1een5W5Ce
PzY70vOmScrfK/R8exy4VM+zCOEsFtfnx2nzAF8LGeMil8B0TTUVKnnByDbs
xkGaJR1zC76ylM3PmOIt2uJeIFxrn5EXLhzme5OQiM34CLTscDnrAXu04UpR
7GQz0lpGDbrV4JiaJWW3Vy4Ob5TicPesh6ldbuWC2Q2bYZutz0eDx1C5UZtx
dYxUoR09s0AK6FwWjRN32aXd0BlpRbaKix2E/TOcscdPHDjO99u4WqtJaHa7
Bbo03XY1Fwg70yZnY6az0yVl2HM3F26Xu2StjGmh3L0Y37xj9E79xg9laq2d
LXnQMybp+QPTab/Nrti4vsTG7EXPQ35cree7SR+uWZIdg57viVS6p7cMXZD9
caUUGblk12+xaK/P8/0I302YS3lyx+cSDi/VFrctviWFdCwydGNX2dTEeZlk
MjnnvrJag7RGMTll9mfN1FTPIyPc16Q24zPfXtWMdDgRyO51GjJeO5zfE4Ec
4n1Wsfio0LQRumiQcGh13Epx38FVac3GuShd1OWk4CVcHufinjazxQbZTc96
Yq2N9Zt0rg53a2Y2uHtqZIRbGPi51uSczegvfHmJhsu5ZfKOu1qy0UX8mdsn
OiACURx+locIdv/b09s9XN3RmTciPX9sttfz28iVoyI9f2z2oudZcV2h58dJ
0qSLUWv0vCPV8zEwXtiFxXmIATelrtfzbd+6+dRJEV42ZNUEJ6didQhPKFjP
I5D/5chO3ri6SP91IzlScJfjvoBBZM6X7eeruspzGahKV3Z3C5CW0ZWlVsaY
At9NcByWZK74tWVzdzvA5XWO5dux1Jg1BiNmFJwMG1NrPKznOZ20rsd5zfJN
B2va2Afts7tf4GGBWxH3dG6Z/fyuLc3dVSU7PA4g7tr+vJrBdyhjqCm4FHo+
OrbWDtPcb0F6/thsrA91XuWNSM8fm13oeSyyjdeuzzO/f//uz0tn/Cz+ov02
ZZou1zozPs7ERGwIAu59WPv358+fVhEdbWOo6fl4cOWPHz8a5bXX4sxv7+/v
kBkmk5AUr+aVzyUmAuNKbG01r6HnreyG7UOIxYxvB6Dqy4diEqdg1Vdq0z5b
OuloDzM4fQssrrMKQhldvX8Q9lUsO7dPEKsP0a7T81w0NL/uvKWEjUwbQ7kW
rZ2d4NrAePYnRCC35zV6vmTx+fm5pshsGDdIl6NZYibhnrekGWuNsQvNLWwP
21BrjXCsecY1OYtmvZXLCLNtZBgrjceiuYZhKY/z2xYHLrEWiDtZ5MuVjjpl
PZ8+wiuB7o4jzf0Wal1SHION9aHW529Eev7Y7ELPp6vc6y9361cciD0PqRRv
vA8bA9OhpgsP0FlNYYOBqcR+eoJg36b759NJv+0NW3Lk3QWL6/PjtIen1jwu
1fP8GMJFY3kTa4oXotvCAN6LBvfZ+rxhNzvcotr13jbSBZ7Cxqqr9bw75hSJ
166NSZ2yXUnxOQs/hmD71+j56IdakQEbMMzPt+mz9XkY6TpLrdS8T4lXuU/h
zY5YhFqTqz0r4aRqjSe9fHF9vqfXUsZpVDnNX5dG5HR9Pk3ZVb3W58WlbK/n
1ZxuQXr+2OxCzzP9VevzUU5gihyz9avGNhgk6KbI2n4bl29cIq5dkp5vk07N
7f3zUT2u1PO1nSTpte39Nn3YopDq+Ya1TisO088QRKHb0PPtLQrIsbbfJhW0
NS+5LHjP9hV63p0/X9PzpuJiUvxqpCuXa8nI1FXZGj3vdvs4r67R8+n6PHeE
WGuxg3AcLnhX2fHS2G+TNjk3ZrrGwNm57TrD9HYwX95XNjg5uun1HxjpKjEW
p7bfhu+RXRa13K9Gev7YbKwPN5MrR0V6/tjsXc+vfADnVm77+Wtlw3SwBn/r
/u2JU+X8+WhJjMaBqcjpwiuBmBP5HsRd0i47y0Jk6uSQkxMmBmoLhiMt+/PL
kg0934X3EWCSkzd2JzVMbxrCWveqJrRZrClnap+tz3f1d4FZuCI8vg+LsjfW
qy2aa2Dr9fyJjojhOKhTbhLD0vuw9tlVNDuNndxYn09vXQ1ssHGdaI2e7+e3
1X22Ph97R0yT8+Ja6+itbddmUj0fmxw+u7rgS9i8j/mvv9WqkvV8Tf3yCBbb
eXt9fqAXjd19pdbnxS1srA+ts/TiWpySEQdjpR6+nXt1fLeIV9MJkX7+Wqub
ZfADmlGeuQtZYDMX6fl+OqQxfttnkhikG4bb6/MQxqaoIS1SXYd/bd5v6Plh
frBkw3j7fKLjGVlgxH3mKLJrn+yKfq6Ha9XqzOAiO/txYR+OEDGck3FtQ0Vz
tEajrZmNihvr6/POLbX6aqzPO1dgSbmvr8/38xc9GNzgrCzjSFq3tj7vzqtM
a80VJ601SGI28jQ95viYjr7v5jdxsThr9tsY6XmV7fdhF9sw/Mm1w19FPe98
0tN9GWfRSc+LC3lEm2kgPX8jnfT8odmdnhfbEM/Jfwrd6vs1IcSr0UvPH5rt
9bymg1uQDDs2puo3yEgNaV/0lXfoHg0L+PaOYiHEiyM9f2w2Hp91XuWNaD49
NtLzImJH4T3uV+Ab2KGF4Ck2CCHuQl/53TFxDLQ+vy8kw46N9LwQQohHoPX5
Y7O9nldzugXJsGMjPS+EEOIRSM8fm42n9c3kylGRDDs20vNCCCEegfT8sdF+
m30hGXZspOeFEEI8Aun5Y6P9NvtCMuzYSM9fjQaWRexQ8UsvqX11xxfrdld3
j3upcHeueB1e0HVX9LiHIj1/bLQ+vy+OJ8MEIz1/Hc86znElLzKH9uGni9q0
D6hs/2zWRezuWPvHtbfduaLNBi0f91aXjmmPtq2v/D7yE5GePzY6r3JfHEyG
CYf0/HW88os59ruQf/78ebYhF+t5/kVLRxnJPz8/72TXv98avGz1pfz+/ftB
S/S7c0WbrvIbyvei+Ao/Ylua6/q8NvDzC1ZlsUcC7MBofX5fHEyGCcd30PNu
jahMwfyLRfgVeEQogf38B9njEpOtl+JynrPscvsFeVzoEuEs7GfuGwtrdq3l
yGniW7vWwjn3WlI8KpYPJgNcsjCJwy1lt4nRkurnP1tvaTo9b3LdXV4CUQU1
/e/W7bnWIKiiqS4+qx38aHi0x+WLOK6KzYDUyc5XsWm5TIcJ86HTP1auEsjx
0yq2y9uiLrqOXVFryalv0RQtX/s14XvZ6eI7j3EXZpOitWhysUdzxy//xl5g
XYOvRUNCwRE5zcgVAdm5LjNWWovVRa0KYD/XAqdQvBQHN6sgKwgudMW8I3Fg
EUdC++f3hfT8sbGpfIOMnqvnOXdMozyHFsmBudWmRcRPxxCeT/tJEttXluZI
EzEHIg4rkJI7Zvxov2UEO004jZPKtXAIKtZgMSmbuDF3Q2PgcuRoJlk4Alml
ozj22dI0kyyOXVu7HHkh0MV33ka4ywKbcFyROV++WeCC///tnd1V8zoQRVMI
FVABb6mCQqjAFdAITeSNCqjga8RXi7mZdTIjOXZMTCz2fmAlin5GsmwfjcdC
hy436g35kOZh12mjeAYdKy1o6SrY3M6wcrF2h8vlkk6GiW4GNI8d4vFydmk3
VUZaN0P3beQ9m54ReZTcTs0/JzgkNGSDUJRqOGT2dbhU/q0Z6/I1j3wYT1s4
+AUh6HntVLUhxyvxgjpWVlyzWSkb9nCC5zEvmJ3a93wmqiWec+nhWMqAnu+a
jW/rNlG3bLEz0PN9s9kJ8osTyUWRfTWlOtYUoH2dqee1Th9Gu+Nr2UF0e7Yn
25DbCipXZUBoS3VjNRLApciYljlePOhbF3Va50kc5ipgwtC55aG4Nz1I9II3
3Vo9eR4dsUGWUUNNz4fDNNHH3Kjm8WkTTplc0NRmcFOPaXBMJ49pflaPkTeq
lltDfnS0xerpFsbWNGSYXd5NtVZ75ELR69QR8IVtngl+0qmdV8We2uajkeOy
8uGuzlhrMUyJUMTXAtUzRWesnsX+XKM1+DpvD2l1n0+N8aznNVsew1H+B6s2
EU4TvWgcLlfueaL+IOj5vtn4tn4k3mYd6Pm++Qt6frxUHXrr1zyuQLJOnlaY
47fAaAnCo/ixsw5vrSmCYdU8IbMLiZl6vlX8mEJE1D9cNUNN1WwqR3Nxq7Zq
Q0BNHWrhB7k76rDVbNWhu+qZPJ3jMSYMyMaEOvNSpWqkK2o1zKVdPmrVbua2
ch6ToOFwa+uhrIpebz3U2Vos68l1mx94ED9zyz+vH6pjkmdsmJnZtiH5t1XP
Vxuq9k5PjdYIhLZCcJ3PKKuqeqHQs1uvAN7NsEY4pnDBnwU93zfb63mm0xrQ
833zR/S833NNmI2Nu7AL2jl6XsdN9fzxHDdiYQbZdx18ZYGb9byntFTx+H03
18yZarV5TNSqoOeDAvEhrfZ0uHxdLh+U0GU1JgzXTD0fjK+WNU7nEOvDObxE
D7H/VL2/hLLlq0nQ6oCH4+XOZ033+VY1dc5Emjm2Lsi1CznKq7WOGM5ke47n
h0f+65y7s2Z2rVv1z5t8PYiDPczY4fzOi26UlPW8djO0O87T81WOl/55HXPt
o8+K8fJsHdNDwHygvQk3Pk+2cOFaejiWgp7vmzkz/wepLmNhPhsfL9iYP6Ln
x5pD+JAeWx/PwRhBz1cV1LHmn7ey+jjby9p9U12L4dH/hOVz9PxM/3yr2vHs
7M39XeSfz0JlrPnnPYOKljn++WDVoRa55IOctVa1j9X6w6HMjuvT+UXmiSN4
kjemWzmzkT5XfdD8c9XUOZIy58lBGuOlg/3YjrdRP3BoZUjxP1X8PeiJPFaP
r/i8C8E/r9NGRyyPqnUt6HnNdpAVsQ9LWFhd1fPVjutVJVee+zi29bw2NMiL
GMe2f36iEk+/ejhuAD3fNxvf1tmvciW/LsPgrvwdPf/6TTHj8/Nz/JYE6nH9
9++f3xZLNr/jmwzLd8Ywbq7nD7KbR6mz1KM35fL15eUlKEnPYColX6/CTiAu
BsxOs826Y1VN7Fepxgzfb+F512x8rDnvvpsUbNNh0SM7nN/sc5NU87hJLlpK
PWVA1LzqPNFqg64uxc0q1Ujv7+8q/NxsP7KtJZISEv3ABQNy2TLBdGDNhjwZ
vO/Z22x2quVvb2+uRX0ofNKGWVodxjAU5evT09OYZlc1YKb0yOsPbYVOlTrd
znAiDN9h3nkWuT3Vs6w6nSb66/VbW3ayj7KaLoQpFxa5di7rAHq7Y9Lzfgr4
Zqpqs6IDomNbmtM+al9aer7k16uEf9WZWRLLnNGhq85ePfo6qj+15+cgO1BB
f+Cf3xe/LsPgrvwdPe/PoHOKETxmx+8NQIKT1hka/nkvO8jWGV58uHwZzfPb
hhuH2s4Y46QzWR+7H1NYbK4qKITj5c4e+ljBjQ8OT6flobVSJoFUF7Xa0px5
fHSU9LOPsGsht9Z/Cvmtofn+eT+Cx/PWlDYTfNp4hjzOniGMYRgEkzr5qYTb
rMaodze37g3ZXGpFAWmPhvMTpaqe9zw+dNp9rz8fDj8RtLPZzrBHa/UQ+NmR
p4cOQvDPe1XhBNcpVx3Y8fIVVzU+1OlLHrVzuNyFJqCVHNJyMvTRtbfW4Ndq
H0OfSN5EPi75LNamdW6rVT91Xxjwz3dN9S5zP1pXNpjJxscLNubv6PlxMmyj
muh38DmV651URzVUPvEQvNVQVd+G4jlDtaGceEovpU6blBNbDy88PMPTbdXT
amt6tA+XTy60SLUvYdEUMl8dUi1oP9mWgLo0Gyb/V443mg9WSDeRfNWe3KPc
+vREqlqVWw99tLmkp0l1VgznnS01W2uUsp0Td+pwNmXzxsuzT7+Go2aEPfZD
30P9Od1GI5S1hqYHP5tX7aO3Fc6s6pQOiZq/atLMIJzTD+11c3VAYNdsfFvP
ExUW8QgyDO7HZifIr0+kU/stUXh8fkpgwM8SdLhuoLQIDu5DgZ6HOWzvn+dC
sQYkUN/8ET0/3Oe/pcCWVMOS4XfxM+t0/l9LN9fzo3bBKn5KhKPn+4Z4m32B
nu+bv6DnT+d/qflbBsCPwM4Gj8lw+Z9hARz0fN/gn98X6Pm++Qt6HgAAtgc9
3zcb39bZr3IlyLC+Qc8DAMA9qL4NDd2Af35fIMP6Bj0PAAD3AP983xA/vy+Q
YX2DngcAgHuAnu8b9qvcF8iwvvnjev5Brg/hH8fsmgcZ0qvwfjTAvUHP9w3x
NvviMWUY/BR/XM/fvO/Nz47bIj0/XP4z+kdAR+MR9Lz95/rpPNwaAO4Ner5v
iLfZF4+mHOBnQc/frOd/y8H7gHr+0bTxHD3P/xcDuDfo+b7BP78vuOX1zd/R
874LvTrDVc97hryTtklov5h4Ts9WBKQlaobn52e9ndm/XCw5j2e0fv2c7XS+
vr6CJYWS6I4LL67/qfN0piTmS2JpyOrUO6/XE9K9755eNamV2cehejg0caYM
sPH0f2mkPQqjan3XastXNt8AuB/o+b5hv8p98esyDO7KH9Hz5TpQ5Fy5FBTx
aZ81vXz4/Pw0+V0ylGzls+lME6ua/vb25pX4teXp6ckuNV/fWJFS5yD/l9Y+
W3Grys3wwWnZ6fz7968klvzWtLX18vJiX1+/seLv7+9erWUrBYtJ5rt2FV0+
l5wlg5ln9ZS/pU7ri6WXD+PZ7+2j4d204bKy3i/rYxg6H4eS39LNZjPG85vx
1ugEpXgZeeuv2l8aCkOkh8OPWvlqJgHAPbDT+betgHuBf35foOf75i/o+RxZ
4Rrb/eRFUoZxMD0ZHOmlKlODId5G68+eYftVhfF4GTajH4KTPHdHC1rX9I7p
xU3H2tcwAn7Qc/EquiRRk9wVr5dZH7H8mEPHwe00B3u1+1c9e8HB7iOj8Tb5
UYhXWz739CYywKOBf75viJ/fF+j5vvkLet6jZTyWo6rnj5eY0G39F/swbioL
syhVHRus8iKe8+r1SpcSeami8TYTet5rsJ5mv4fGBfkgaAxPazS88tyX6jgE
7W3GzIy3sYcOGhqU9XzrCI7fw4KeB7gf6Pm+2X6/ygMAtPkjen64xB3LqudD
nh/R88E/n9PHSz0/szv2OTjYXXsP34H6B9HzwUetxpecfp30IHzTyZbNB6El
s1v++Zl6PjwBsdZz8YD13R6s+DG1Iuh5gEcAPd83G9/WibdZyS/KMNiAv+Cf
r+rkrOfDOIQMnliNtwnv2A6XQSmL9LwGzLSWEkHP+0+huGYLet6+mnhWy61I
0MCq54cfirfxRNfzLWMmOKYXWrOeJ94G4LdAz/cNen5foOf75u/oee9mVeyZ
qlSlp+LT0/16MqHns962nFf1vH3walubLk7459VUtbzln8/ufZfirpN19Ib0
1oB3TQN4qv09nreyyXq+NdReZ0sVWFiRfvWj6U2EcdAm1D8fVhMAsB70fN+g
5/cFer5v/oKeH89CzvSnBoGraNQY7CAsD+fwe1e/HqBieYKb13Ja0IiK0qt6
3vW/1dAKVvdqs3/ei/sulDlbkN+2kWOOt/GO+0/2gvBBXkYIQ5SHVGvQoXNj
NN7G84d4m4mYGR0ur9a30NRqdUA8fZCwf651AD8Ler5vNr5msl/lSrjH9c0f
0fPjt8azDRL//funiZrHdj7MVwwvmxPt8+fnZy6SE7WGieJmhtpZtcc+ZKus
eMiWa/DPtollyFMStbj+Wh2lVlt56EJtpZv61Y9RaLE1Sy1naxz0q/VIU8qq
wQc5WAUA6xm+X+T5bSvgXuCf3xe/LsPgrvwdPQ/7RZ3qP8VmMx/gz4J/vm+2
1/NMpzUgw/oGPQ9/EyYkwL1Bz/fNxldRnDAr4a7XN+h5AAC4B+j5viHeZl8g
w/oGPQ8AAPcAPd83xNvsC2RY36DnAQDgHqDn+wb//L5AhvUNeh4AAO4Ber5v
2K9yXyDD+gY9DwAA96DcXNgGtmPwz+8LZFjfoOcBAOAe4J/vG+Ln9wUyrG/Q
8wAAcA/Q833DfpX7AhnWN+h5AAC4B+j5viHeZl8gw/oGPQ8AAPcAPd83xNvs
C2RY36DnAQDgHqDn+wb//L5AhvXNlnr+dObj4+OU+Pr6yolb5rRbj2M7M/yu
SeQkJzlzzl0YSc5yCT1+8+B2kvPmnOxXuS/Q832zpZ4HAACAbthAPDj451ey
8fGCjSHeBgAAAJayvZ4/Eb61AmRY36DnAQAAYCkb39bZr3IlyLC+Qc8DAADA
Uoi32RfIsL5BzwMAAMBSiLfZF8iwvkHPAwAAwFLwz+8LZFjfoOcBAABgKRvf
1tmvciXIsL5BzwMAAMBS8M/vC2RY36DnAQAAYCnEz+8LZFjfoOcBAABgKexX
uS+QYX2DngcAAIClEG+zL5BhffOn9PzpdMqdtcSPj4/yt5pB8V9P3+SqNPHr
6+t4xir3Sqwh/+Ctuz36V8uWnKHszF6bGa+vrxMG58Rsai5STPJu6k/VysM4
aN+rlrjlheqbUNp6Ho1qSvWJbe5mztMqfvUolCLZ+FZimTYhxQ5cftZcnSeh
OADAnSDeZl88ggyD+7EXPX+45LaT2soGEVW6XxJNLxnla3VMSqPlJ9NLVfVo
xbU5y2ZNuNkuPq0tU2t+ICynZ3CsTrXTq5145d9sdjOen5919KyGUEQTraw3
Z61rx8vXUmfojtejo2HGe+vWitcZyrrllscrD8fd8gxnwtywXzX/xOTRnpqd
Oac3kW2YnpBmfDUxzCIbkJCnOryjTDCdUez/AADbMP+2rs6Zm5ur3nZhPuj5
vtmRnh+EG/S8ibHso86y03K2VJ/r+Xxd0sQgzMaGqMsNTV+yTPlna6uZXcxP
GHlVz08YYz1Sh7AL7Fx5GNUstnV8Sp3Z8moNwTw1KRgQ1jKBUFWr8qoIn9bz
VlVpvWpq7qNPm7yECVZxcQaAX+TqJchkvDvi1oj5kf0qV8Mto292oefLKVzk
0EoDTFCVqp6enjTdvNYhs3loQ6KJzH///lltQa5bKU8sGd7f30PxXCR716s1
axP5eL28vFQP4vM3uRelkqriNWbqeRuNfHW1+Bkz1Vq3FkPm3LRWqCMZeuTp
9lQlW+UjX6qyJsyActwnYlGy3nb7jc/PT1sphPTWOIR6ikmhv5YYDrfreas2
D35pSEeg1WgpXnISewMA9yNfgsp10q5R5j9RSsrKK5I/iITbCH5R6IzNHmCt
0fPulrQF/g0rdA2KKFcV9XkONU2roTXVxKv+ebe5GhnutJzA4zlU3qryX6t6
3oWr0hKEivXdeuR2qp/cuzCeQ7tDrM5E12x2Wfh3K1TGYsitafXehGMUDB4n
o1yGsyT2PHY3mb6VWOtWYcmZezecn+MEJ/l0vI3/mg/H8fxWhaa78dVpmW0e
5cCFmYYrBgDuil+ChnNA4ASnM2O6m8wEPb8S9Hzf7ELPD2clbzZPy8gqqrQt
YFsrz8p8jp7P4xaq8jBsozrOuS/Vq6KXben53AUTkNMDNciT0ICb1/ppuCY4
/ahVu19t2q1t1Tycr0jz9fz0+DvZmOPlu1c68nnh1hpnHaWwBjycvfqaZ1io
5zM8jwaAbTic/Ww3s6g5EwD36cqfYOmAw77Y7ARZM5GC43GO1Amo/A7Fq572
HN1tHGb754PxftHLFQ4pGNuUpLkv1Kcx3kfPTyQe5BGD+9InyuZ6zLAcaZ+L
u1YfZ/vnW+2qJLZBGGpRVcohxc9n+e2fw6sQE+Os1YZS+qTJB8qNP9betsiV
nxLTRQAAfgq/Rs1x0eer01LtsZn7sVfQ832zCz0fqIaXTFB1IKi8z2J4OAei
BI03X8/nUbXiwX2ar3LTl6yqng9PHLTyalXueZ6p56uWtPzSpoTHmnzVQPGq
IPdjkaPZg22n2vuqoaFgoe3DU+3LWBt2LT4xhSb88+EBQZh42qJXMqRgoVyn
94KLMwD8IvkSZDfNlrAPmYeFW1sc2a9yHdwy+mYXej6cwkv1fNbeh8ttFXNt
ViS4uFXPV0tptVm6VxOzKK2uFJyqnp9QttNyfY2eb/16EFezdiQI1Ilhb/06
Jnd39WmI+73DkmGYjNRq9eV0fqegdZgm9Hy2UI/I8fJNkON55xx93TWbpHVy
cQaAX2T6EpSd9uF6iH9+Y7hl9M0u9Hy4DlQ17XTxkH9oRzWPsk/ghJ4/pa0g
g1zMVx73+QfbVvrnj987wFczZyPDW5kr9fwxRdEc5dXXXLk+R8j+ebX2tv0q
3R/eWnNVFzitnnpfqg9W9Gi29Px0F/KBNuNdzw8SgBRM8vzVvhg4sgDgrsy/
rQ+1/yGy1D/PfpUrQc/3zS70vG1CaDv7FV5eXlxDtgIznCHtA+8V+tuIVrP+
9fpNUz2f0bZsF03L//T05BU6xU6TZ/ZirFbrZIVvNhRK8VfBKn97e/MUt8q2
0JwYOu9C2NlyqEWV6+6gPuY+8uGKWmqwvuc+5pEvdvr2jD56VmceXj/ojh53
z+ODXK0hzDqrs7oTph9666ZOg9Z2qXbEw+T0D1YqH3E3snz4/PzM5pVDrMPr
fbcPWmGYIYbt1WlVsV8lANyPG27r4S2qRWXxz68EPd83u9DzAAAA8FBsfFsn
fn4lyLC+Qc8DAADAUja+rW8mV3oFGdY36HkAAABYysrb+tL4eeJtVoIM6xv0
PAAAACxlvZ5flJ94m5Ugw/oGPQ8AAABLwT+/L5BhfYOeBwAAgKVs7J9nv8qV
IMP6Bj0PAAAAS1mv5xftqYt/fiXIsL5BzwMAAMBSVt7WlwbDEz+/EmRY36Dn
AQAAYCnsV7kvkGF9g54HAACApWzvn0fPrwEZ1jfoeQAAAFjK9vvbEG+zBmRY
32yp57eknPitD/tCzZ7oVP7w/Pzc+ulqW/Zhm6EzO+f06E60hm7RIO+C+T16
8JwTc5uc5CTnBjmdNarghv3n8c+vYeXxggdnYz3vF4fjN5ayMlH/6tcq5SfX
DFrqpxL1b855aCiWiW7mq2hOXKQqpxuaLjh/QPJotAZkvtmtQZ4++hOHY5EB
07bdYy5dHbpq36cTAQBW4tefw7b+efarXMnK4wUPDi+YAAAAwMbgn98Y9Hzf
oOcBAABgY4if3xj0fN+g5wEAAODBQa6sBD3fN5wgAAAA8OAQb7MS9HzfoOcB
AABgY26InyfeZg3o+b5BzwMAAMDG3BA/j1xZA3q+b9DzAAAAsDFLtQf7Va4E
Pd836HkAAADYmKI9vr6+5ufHP78S9HzfoOcBAABgY4if3xj0fN+g5wEAAGBj
lopz5MpK0PN9wwkCADBBUR3V/3o/nKnmn1Pz/NtrqfN4PC6x+idZ7xctPc01
PPjdR4+jG391KEqPXl9fx58LDinNhXp84k0Hq8yfh+PDHwuDeJuVoOf7Zhdn
MQDAr2MCSUWUqfqcbY763ZHcqqrx+bR6Wh29x8GPo9p/dShKj+ydzZnT4KoN
QcQevzGRbwuHCUvmD++vSOWl40O8zUrQ832DngcAmEPWpfZ14ipquqsqQkq6
udxdAYZSmqjSt1VnNd1s08QJkzSDL1u819nOVmKu0B8uaOstddF66lEdZG09
d3ac0d+r+JHSoWgd8ZKz6jYvduYi0/dffRIULDGen5+nzbaOZ09+dYLlghOV
/whLW8E/vxL0fN+g5wEA5hDUlKk70xivr6/+k7twS6JdYKuO6JLfg3aKMNOI
DquzJHopvxFbQ2aJt1hyeqK3XiSc1a+J9tVMqgbweOtaxLupJln3LdGrUsXl
n/0u40NhrWR1Ycq/ULqpnnA32wfNTbVsbow14fJVuzMhp624N2c62VLcWsvs
n3X8FWvdWhwvJ0lYlNnX1oHQCvWzCuBpeWY1e9NhhPUQ60JVZ4gfNX8QoF2Y
fjowh6Xao7RYDs0r3EQZunL47MPLy4sn+l8Sd534/A16HgDgKkETfnx8uHT8
/Pw0RWQq2n59PQue8jn7bPXa+/7+bhpSvbgl0WqwhjxRW7fPT09PXr8bWS7y
nmjO2PL1VTRYiB0Kdf7798/qsTtFsNNkvOfUcJRcv5qk3X9NglA9ySWDOZDt
/mWJr986P/S0FPHMVsnb25sl6vHS1j2n1Wy3Qm+uHE0/jmqJ2mxjVfquFXqp
1++lXBgob66ULYl6yMYGWlyPjo9Gq6BV62NSDpzZo2Pik80NU+nuzXmiHQgr
Un71qXgzA/tVbgv++b5xBwUAAEwQvKN68XRppLEl5hCrBv2G0B11FKv72j3k
6hR1N7U3FFS61ZPFXslvvnQnh6ZYgEf5yaWg2undzI5it9xSVA9XY1Sq2iz4
5ycGSn3Ox8TwHcihzwKsztzcILiff5TjeGoEz+fgq1Ge4PjY6hrQu+yD/Pr9
tGVCZekohQGsHuJsifF6+ajIBsS1vRqm9euTJhsQj3r6EWW4VHtUTyWYD3q+
b9DzAABXyfotB4SMSaYOl+EuWpvKLdeTJrdcRNmvXqcpQPv1mKJZxmux7va0
XRVsq6fDORgjBKJY62EoSkO57544NF4TyGPiarOku3M4tFXttWt4xyJecmLu
qS8cXOWG4fUjpSuUMQnmYJ73LhivIv/qgRjTHBsuF0QTby6EzK/nLXfCmLg9
+bBqB23dEeKaWk3PZ2klP9XunwU93zecIAAAVxnEITwmnekyuyrkJhy5XnxM
V2MPtKjKLW9IdZ2K50H8upaoATan9HppWGJUpfurxFFrX4ZLN+946UivKvA8
JtXiakAxPgvmMcVBHb/fSA0Lq2PtNVXT826eyV2v04fXEn2Fkq11rJQr/+oh
C0ukaj2hiI/JUV4rzuFSoeAgqzybS9rB8XKChQ/BMH9F4nR+HeBX/OTTYwVX
Qc/3DXoeAOAq4VKZ1a99UGnksTHZkWsRF1an+pw9pMHCIUbRhPbBIl7U569K
Vb3KFk0xXMaluH8+SzJ1vQ4SUN1aYrin1xPV/avmBZOOZ8KYeOJw+eroQV46
roa+DOKK90q0O9Xmxku9nRvVyu2RgQ5FVRr5qxN6QO0nde/rQFUNy+a5hT49
8nonWKLdtxkSxiQb2Zq0h8s3Z4dzCP3G+vC31hHdgJ7vG/Q8AMBVhtquj/7V
txxXp6hdXasKZDhvJKhX4JAynCO6c4bx0u+tXndvzlTlcLkGCS0Gqiap/Xlz
yFCVJ3rOqkmh2jxiFjBzugw1UQHZalerrSYGwtjaZ2td003Pez2n2uaZnliK
u/r1IrnOiQPRaiVPqpaeH2SCTY9JOBbVEauOkg7IbUx3P4N/fiXo+b65ekkB
AAD4FbKq/01rHo/qymIvTC+1Mq+vr1f/2QFMgJ7vG66QAADwmAzf8Ty2Z+bb
29tvm/NwLNrv8dHAP78x6Pm+Qc8DAADAxiz1zxM/vxL0fN+g5wEAAGBjlmoP
5MpK0PN9wwkCAAAAG7PU2U68zUrQ832DngcAAIAHh3iblaDn+wY9DwAAABuD
f35j0PN9g54HAACAjWG/yo1Bz/cNeh4AAAA2hv0qNwY93zfoeQAAANgY9qvc
GPR836DnAQAAYGPYr3Jj0PN9s9kJYv+WGgAAALphjSpYlJ94m5Wg5/tm5fk4
H9Pzp28+Pj5Oia+vr5xITnKSk5yP0zQ5yUlOzbmlRCTeZiXo+b7ZTM8PCyPl
AAAA4JFZIxGXSgL88ytBz/cNeh4AAABuYI1EXKo92K9yJej5vtlSz3MmAgAA
dMNKPf/19TU/P/75laDn+wb/PAAAANzAlv554udXgp7vG/Q8AAAA3MBKPb9I
FWwmV3oFPd836HkAAAC4gY398+j5NaDn+wY9D/CLlPPicMafJpdEu3PpXz9P
Sx5LsdDT0/dOsJ7z9fXVPmhOT/TTsPy1RLfEM7thrTrtswe+WkHbwk4b8r+5
y7l3rTw5sTWSHx8fuYgl6pUnXPF0/EO6dhzHIEAV9qvcEej5vkHPA/wWJiaP
Z0xVFp1sGtJTyofn52c/Tz1dUzyx5LTPo4jVoku9FV8y2E9ujBfXr1bE6nQ9
H1q3quwE99a1X6HXlkFzFoLk9hq0YDA44FVpYul47mZJDCNpfdQWdTAN9DxA
ZmM9z2m4BvR836DnAX4LU5v+1XSsbgOVte4owtV1qRbPzueqT7v8ZArW87us
1VZyQdfznjO3Oy28fbnRKq46X59KTFTrv4aqXM9rN23c8uBoTvu8aPMNgD/I
Gom4VHuwX+VK0PN9s6We5+YIoLy8vJiALDcpOzvCOWKqUm9hrvntg2YuiSXl
7e0tZC7C+0Pwn56entztb2XL52JSaNpxC00Sl5xW1jTzfD1v+T8/P0tVpdpQ
3Oo3m8OaZaJa646X1bbKV2vC7LevVbPNHvtsi5339/fQfQBQVup59qvcEvR8
3+CfB/gtTH8q4WQ0T7WeOO6xN4909sa3gsMd/8nEvKV4SEnwzyseeG+tWFkL
p6/q+db5ru53Q8Ni7dfsJJ/wz9tPptJD0xZoNMpawHNqQ5ncfYQEQGalnl+U
n/j5laDn+wY9D/C7+BumWTcGdRo07eEyXKSl8O3dVVsC6E9FulsRfxM263kr
9fHxEWxwvW0Fq2a3+ms9dZOswhC4rjndZz6t582AYIxHNPnqY5Get46HoQMA
Z6WeZ7/KLUHP9w16HuC3UJ08XvqZjaDnJ/zt403x867nD2eX+8z4eRXPrWVI
q9chfl4XKRZjE/ABaVWbHf6ezf3zns12rRlret5WVTbaVgkxNgDTrNTzi/IT
b7MS9HzfoOcBfgsL0vav2cEe9Lx9DfvheP4J/3xu2qW7CuClen6sbbaTzQ64
f14rPIgX/Si4np+It3HZn4dF9bzXUK3QY5/M7GAkAFTZWM/r8zJ97Eji1cTT
2XtT0MRHs5PEmxPR8wC/xSAbMx5lv0rPoPHzWZybN9tTLIO696v+fHetm3TX
aqfj5+3GfbrU86e0feU4zz8fsD6GDX9GiZOpmlQdFnW8hwp1gVC1xHvR6j4A
KFueF9VLBwA46HmA38Ll6OHytVD/VZVzPolyBl0O+IJd8aW9xaXrot4+a82B
qhlabbaq2uWqSdWC2lzVnty69ihENFl+3S/oJE773IXcHAAohxV6fqkkCP8C
D5ay5mDB47PZfSrcRgEAAGDXrJGIA/tVbgt6vm+21PP45wEAALphpZ5flJ/9
KleCnu8b9DwAAADcwJZ6nrC3laDn+wY9DwAAADewUs8vUgXE26wEPd836HkA
AAC4AeJtdgR6vm/Q8wAAAHADW0pE/PMrQc/3DXoeAAAAbmBLifj6+soueWtA
z/fNZnq+nIbP35RT8unpqfx9PmOfX15e/DOJJP7lRD07jJDTPoec1Tq9eGjF
imseT89/7YSdY2fJ+ZyoNqSJXo8nas0hMV9AQnfUTs9ZTdTiOfF53lGbaJ1E
ErtPZL/KHYGe7xv88wAAcA/8P5JDrxA/vyPQ832DngcAgHvABoPds+X+Nkyn
laDn+wY9DwAA9wAB1j0b++eZTmtAz/cNeh4AAO4Ber57Nt5/HhWxBvR836Dn
AQDgHqDnu2eNRFwqCfDPrwQ93zfoeQAAuAfo+e5hv8odgZ7vmy31/KKdqQAA
YNeg57tnjUQs4pz9KrcEPd83+OcBAOAeoOe7h/0qdwR6vm/Q8wAAcA/Q892z
pZ5nOq0EPd836HkAALgHCLDu2Xh/G6bTGtDzfYOeBwCAe4Ce7x7ibXYEer5v
0PMAAHAP0PPdg39+R6Dn+wY9DwAA9wA93z3sV7kj0PN9s6We38uZ+PX1tRdT
AQAeFvR896zcr3JRfvzzK0HP982O/POluJ3ONxhcpnG1VEnUGV6aOAivr6+a
rcqNndk5Sw/l6Zv1ee7ERNOtmTPB8/PzepMegdLxcsb9thW34Ae0CIaVJ2kZ
gVLDT41DsWrpv+EwA6qT0CdtuVLNub5tD3q+e4if3xF/VrH8Efai5+3GZNaW
Dz/1f6JNwOtnzVaEmd/HhzOW6F9v6Mve0UGbyRxV/Iu+lwnZs3Sylcw96fmd
Xv99vhU9v1KK37Cgm65tkU/SzrXqDNTVVkvPl4K/e436sxfJv8OW8fNMp5Xs
9HoOM9mFng83tRvchi2tqIolq5evr688/1u3zpn87D/J/VlnxURt+tOc8Q/d
rIqi0Nzxm9tMamWb36MJPW+Wtw5cbiLr+ZYZ8+ucTl9T50RxP9Ar67za0AS3
DUVVz99c1ZxHSzN/uqrnQ/6JtXNLz09bu/E/6UaAdc/G/nmm0xrQ832zCz2f
BeTSqubE21RFXW5oWs+HC45+tefmhldrQURqj/9UZGF+ZKA1e22WIYySKhkz
w4qErxYAULXNsnm61aYhSdkq/TV0vPw1JWO63es0gaEprQ4Gyy2zWuiW20Ks
2iO10NryGqoPc631XJXVVo5RsHAUPa9tqcgPvcgri1xnmXVVG1qDrzPBHhnk
9Ktlh/NDsZl1qjfYOhjm0pgOwZy+eNjbzOJulU256SNYHW3Hht1XmnZ6WuJ4
Pnm9Bq1Wj284EaqPb8I5qIuRw3meV8fHBsQuSnpeWDdP6fnjRGfvAXq+ew7b
7m/zsy6sv8aagwWPzy70vN3O7O7psvCGGnK63u/spn/VAzCt58OiwPXDIGFC
LqRzfj0cE8bYOHgNphBCVRo57DdxE8/+1WqwCKLTN1qJ6h8bKBv5INWUg3iz
/bOV1eVAlnl+cH2QtYNh6LQq63subr272qNip+eZEIf5YNkg2Hhq8ZPE26hw
0tWWi64wIGGQtV1b3IXutAZ/vHzYoYPc0nLelh047a/aqZMzHzjt+1Givv05
l8+E03kVWV1fhLZKndquHTVvYqJ4+WBnQVihqIVZ9yq+HNABKbPLZ2OYpVpz
HreJ8ddzyrPZ5GzNTG3dlhg2Q0Y5OmHyV8/Bu4Ke756Ven5R/qt3Z5gGPd83
e9Hzh7OXbEJ6TdfQuo3qDA8ON79xK9N6XoWBSqNwH1eP34Ser3Yz347NgTmt
57X1/FXr97HKNqssqXZfDVMLVWBoevnq3ldVdyZfNZv9dLj0EuviLgjmYFW1
R0E8t3pUHbpw4mjHVdN6hnA49CevM+hbb+JwGaQxscrTstqcR1m45Mvd1AOn
qyetvzppdUKGPlp+f1QUBG1r2MM4tGbyhC49iIs7m+qr2nASXR0ZNTi3rtOs
enzHdrxNa8JPnGsnebQXLkpup38I9WwmitDz3bNGIi69j7Nf5UrQ832zpZ6/
OXTzcPmQ+oY9K9TFp7Sqsi0rX15e8q9X4+dLW6ZR397e7IO1EiKTqyI86Plq
/bk2Lztfz/tVsXx4enoavncTtdZ9rEKpYnDpkRVpvfJpNpRfS0698AYVZ903
p6LreR83z+94hEM4juWrt1IGxJ9TWI+8U9ojHTe/O0zree2IHv2SbofYIk+G
sy+6tO4meU9L4tXlVXWW2nEsDeXuBLQ5W5D6gNs4T5zsfiysIS+oB9pqHi9X
YaELJd3OnVLQ1rPlr08GT9GuZWPC+Pz79686dKG2ag1hrlqLpcJB3q83ysle
HRydADqAdtzDGNqwhAM0R8/7nAl2Vl/h8TxuwFU9P8ohHjbcOhg93z1rJOIN
ez0xndaAnu+bLfX8zf754TIyfOIe1+LQfsztVR3b4dOaclXPe52uebIrz91l
N+j5lvhcpOf966mxH4s+XDCOl7ExVdu8zkFCNbRFDxLwKAX1z1/te7ieh464
97i13AjVurAZ2m/4th5SWEdcFx1SvI1GfYzzDkf1bqUu5Qk0SGOsTRKbWqrz
M57HRzI8DRlqb2poF6yG42W0vB6O8CCg6mAP49N6zrXGP986iQLhLNDTMw+C
P1aYmKUT/nn9epJgsInrwHz/vKMx+a1e/yDo+e5ZIxGXzo3qPRrmg57vm73o
+ZZSnUlrXa+3yyzds6Yd5+1vY6XUyKyNq6EL4dZfrbz6oD9XNVxGXASBkYtr
wVaM0LSeP11ujjdcBsAMNZ//0Ii3ycufquJVRe0DniWQ9kjTvfiEumtp7wlh
adpsZtDIeKnnq3EaQQRWT6Ucq+OjUVV6SitPyBwmrcbwePdNLvpt1z6HF4SD
nh8TPxtvo1UFnaxlS8458TYTrbfWZTP1fHW9P05eBxbF27TOzbuCnu+elXp+
kSpgOq0EPd83u9DzJ3mhcrx8nD3zAZwphOGSsRYQ65L19L1rRL7rzdHz5gHT
mISh8T6sel+Pl/84ZuLUU8k0iDta7dfN8yf88+PleKqdE/75qzoqvO2o0tQT
h3MciHbKPuvI63HJSwzV81pcNdghRXf7T3P0fDhwnn48RzjrgXN3dJhaFpMT
RiN8PZ3fhz1dvvda6p941qPd1M/V5oJU1jr9wE345/MBtTxhGVI9p7LxM5dR
4X3YMHS36fnQnQk3uLYYrpZ6GuqMnTjdWnp+kPdhh3Ms0LRhOnoz4+d9rLLv
4k4gwLpnpZ5flP94id3jAnYmkrOa067tdtt9ZDvJeVvOXej5cXL/ujn2HxLH
2utmLoSM4DQz5uh5F2aa6JUfLx8aHi93X5yj50+X7+26p/R4+TLvhIBUA1q7
Ox6SntfwkqqU0sN0vNyu0JVqyHC4XNoczxueH9v7VWpHVCsez4Jqokdq7Zwe
HRq7HXpHrBdHWaPp8srxnVKqhyOsp7Ixvjlk1cjQnA+sLlrzQVFCHk88Xur5
sAwMR8ezHWtPGfxrGMNqX1rney5e7c5RtkjVJrTFcBK1QsoPDf+8NnS4vFZM
zNKJJUx1wo/XntMdzqF903p+bBzie4Oe757W/JzDUlVg1xbztpk3xj+TOCfR
rmYPZRKJP5U47sQ/75j9P2DNnVs5zYt5diwA4IaGqsfutgP6g2N7uvZP7Wc2
tNKkH5lyTlXvzQlrX9pQazLMGY2JDHNmxdUD1x/bXFIeh1ZY0Z3Y7P4Cv8VK
Pb8o/0z3HbRYc7Dg8dmXnt8Lw1bhqQAADwt6vnu21PPsV7kS9HzfbKnn/8KZ
+PX1ZRvZ/TU/JwBAAD3fPVtKRPzzK0HP9w3+eQAAuAfo+e7ZON4GFbEG9Hzf
oOcBAOAeoOe7Z8v3YZlOK0HP9w16HgAA7gECrHt4H3ZHoOf7Bj0PAAD3AD3f
PRvvV4mKWAN6vm/Q8wAAcA/Q892Df35HoOf75o/r+Tkm/a7ZDzhoAABzQM93
D/tV7gj0fN9sqecfbQvHof2/Gh37T6O/dQ0pFvo/GwUA2Bfo+e5ZIxGXSgL8
8ytBz/fN3/HPD2fsGnI6/7d3N8z+c65hKSWnaX69jBRt79m8chP8obh+1pw5
3aoK1dpSIvzzdwCAvYCe756N95/ngfUa0PN980f0/PEb66xNadfzdokw8WwZ
XOePZx++X0bKX89m6Vb/6+urN2EfLJtW5bXldF8yWAazsCj/sJQAANgR6Pnu
Yb/KHYGe75u/oOdNhPvX5+dn1eqWaG5zz2OS28u65SVRY29U9ru2tyL+1eS9
p3txtSo44cNqYmX3AQB+BQRY9/A+7I5ATvTN39Hz2YCWWg6C3PW8pWvIn8v4
19dXH8awBPA8uTnPltPzMgEAYF+g57uH/w+7I9DzffMX9Px41tIhHF0FdlHp
FgNjSt6DXlSc2+fM+K3nva3s0lc9HzBj0PMA0B/o+e7ZeP95ptMa0PN980f0
vGFvvFajWSwA3nOqkA6B7tVX8ktx7d1M/7zmD1+JtwGAvYOe7x72q9wRyIm+
2VLP/+Kuj+o/f39/t6+qll9eXlyolw/P34znTWbsJ0sP8fP29e3tzYvbe6z+
9fUbT//8/PRWPNuEntf9Kh9tw08AgAnQ892zRiKyX+XGoOf75i/453VrStPw
bokFvZjf3nen8ZAbu9roXjQT+9toi9V4m3Fyf5tQXP3z1ddpAQAeHPR892wp
EYmfXwl6vm/+gp53A4zwQqt137aa19EYZKd6Nb66/3zwM5y+0a/+ubr/fC6u
FvpX21dzUa8BAH4L9Hz3bBlvw3RaCXq+b/6OngcAgC1BgHUP78PuCPR836Dn
AQDgHqDnu4f9KncEer5v0PMAAHAP0PPdg39+R6Dn+wY9DwAA9wA93z3sV7kj
0PN9s6We511OAIC/A3q+e9ZIxKXiHP/8StDzfYN/HgAA7gF6vnvYr3JHoOf7
Bj0PAAD3AD3fPWsk4lJJwHRaCXq+b9DzAABwDxBg3cP7sDsCPd836HkAALgH
6PnuYb/KHYGe7xv0PAAA3AP0fPdsrOeZTmtAz/cNeh4AAO4Ber57toy3Yb/K
laDn+2ZLPc+ZCADwd0DPdw/++R2Bnu8b/PMAAHAP0PPds/F+lTajTt98fHz4
ZxKvJpa/5WANgmezvyWnFiRxd4mbLXh1Cj3I9PbE4fvZQXV658Tq34mc4YON
PIkkknhz4qNdQEhsJQ7nW8zNWJ3DQ944SBy+JeIG+sFVxFF4fn4+Jl5fX3Mi
OY/fp2E5WMfz+fgIJpHzx3MOm+j5cvrvZUCW5iwDWBLzCfJodpKTnH3k3IWR
5Cx/D99ool8n/YMnDjXxv42d5Lw5J/E2O4J4m76xa2ZPDQEAwCPAZb972H9+
R6Dn+2az6609p9ugIQAAeATQ892Df35HoOf7Zkv//KKVOAAA7Br0fPdsvF8l
02kN6Pm+2VLPf319bdAQAAA8Auj57uH/w+4I9Hzf4J8HAIB7gJ7vnjUScakk
YDqtBD3fN+h5AAC4Bwiw7tl+//nNmusP9HzfoOcBAOAeoOe7Z0v/PPE2K0HP
9w16HgAA7gF6vnvYr3JHoOf7Bj0PAAD3AD3fPbwPuyPQ832DngcAgHuAnu+e
LfU8+1WuBD3fN1vq+Y+Pj9vKvta4obbn5+cynz8/P4NhJdGrLZ9LNq3cUjTD
/L03b7PzBqwX9vnjmw0arWLjs1nZH+zp0i1Vi7W/OM43U/rog9wacJ1Oa5gz
pL+4k+3vnil/AfR896zU84vOffzzK0HP980u/PNW1v/eJjZK2VKqXBCKxg6V
l8SQUnKatVZKLS/Xn+M3cxr9lXi/nxJjt7Gxni9Lrdvaysw/rMZO9bxOjzUH
aw7h3Gnl+S3Jt/SIw1LQ892zpX+e6bQS9Hzf7ELPB4qEu6Equ3eXgkEBVtVv
yamaJzRnIr81br7oMOWvZYczmlg+m8s0HwuvKqQPgmb2IsU893tUG1UsZ6iw
WqRVlZbVkVH75xwyK9saivw5r7ZCHjegZbALcl/uVQ2rHgjT8/MPXOhCq0de
58SItfo1p7jNbfvVBvyqtXMOYs5jDU1PhjzsE8bomXX1yObiIb0k+jWh1SlY
ST41oDPYr3JHoOf7ZrPr7bQYWFRPcLDPRDVMqDCruEEkcVW6Twcq2GXn8E2W
NyqoLFtZYtiBUG1jX3O6iZCQPpxXJd6ujZI3aulVf7KFIWmF2U6rysIXQ7rb
aYb5yLhUc5MaR+ZiVLVIGAodZPvJmqtKMjXGPnjfw5hYWUusHlZfvgWr7MCZ
terpLdPGe+FjZYlupw6Id8c+2GQIg5ztqY7S1eL+U/nrduYZogPeOu55tO3c
tIKmlq3+UqeOoR6OMOzh9NGh1qPpYW9hyRD6Eop7tbai96aR9PcDPd89ayTi
0vOOU3Ul6Pm+2Z2eN3lwQ+s+k8M7NarEHJMfY9sDXC01Xur8YmcQKqqBVYcP
4jPUdYe2ezjH7Wu6qabQQa/ce+GZq0shU4BqgH8N9uduni6fd2h3gjY+znCt
BFdtq3Ud/Nbi7ihPWLT11tJgwkIfZLcqmBe+5glmRfJKxzWtHkR/sNJaM6qd
erxmFtcRCEvO4bxYDno+POvJ4xOWKvnzcLlq1nrUzvDozUdGlz+hOR8NO92C
VWOa0qPEaA21tTz8IOj57lkjEZfOjTk3EZgAPd83+9LzN99/VQFOKDrHNID7
52fq+VCzlg0XoqoO1yKnWlyQa5vspgh6XgXb1RFTEdUSSwGVpqqovXgQVzln
ldYSYOKQteLng+U+z0MTtj7yItWxGhqPNkKi1xxM8rkU1lnDOdqnJXqrg58X
mL5eCMu31qmt2cJoZD1vmeccuNZJ1PLnt/R8yOZzvirIx8vVUOivHaAwLFq8
dcThp0DPd89KPb9IFeCfXwl6vm/2pedbLsdp3B1qKsLCS0K4SLWIhem29HxL
awWD3dmeOZ1j3XPNQworGi5d+oaPakvPh8zVzQQm9LxODx86r208hzSHLg/n
5wiBObKw6p4dbvLPa1UtPa8pE86fo8RmqBCt6vlgUphLbowdYp0z4WRsnZth
wujEmFN8uFzuTet5t18PeqvOwzlyTE0NJ1quyodUG3Kqel5H2CeDBeEEfMWk
1npx9Py9Qc93z2FD/zz7Va5kzcGCx2dLPb9yV7qq8J5DuQjYFpSO7T/pv2ZN
+PyNfT4k36wG0uT0UE9LRrY6Zc2VsXp6ego5zU4bxvK3ZDMN8/n5GTS8Gf/1
jWZ+eXnJNpREPzSmw/2rXz9tDH2rT++OVRvsLz+VnDccrDDUPnphlMwYN75a
Vbjyl2rf39/Hy+Ciwr9//7y/OisUG8aS0141VZVY1fPhwNmsKMW9iLdYjNfp
N0eQhwM0nnXsmI5F69TWWTpHz1sf/cTJhzVMM6/TTLXiNrY6r97e3oIN+qwk
MKHn/ai17vW52ulzH34Q9Hz3rNTz7Fe5Jej5vtlSz688E6uS+GqdOXp2bHuz
R9kf5tTYr9IUS8utp21Zzuw/HyVGYriM5Qi+0+w2z0uGwzmWI/cod616Os+J
tzk2YrZzjMdB/PM67KGG1uj5wKol2V08J94m+Of1TU91Gh+vxc+HdP/a0vMT
L2i4j9qNVzvn6PlQoR6LoR2jrgxL/PPh+FanUJ4DbsZBnk9V50/4KcTPt/zz
Id7Gl5bZVH0s4lT985ZzhB8FPd89W/rnmU4rQc/3zV70fCvupeX3DgVz+kGi
LPJj+iAqAhMtulYZUmDP8dr+NsfLzTpcGw9psw5Pr0akeMExbYZTtXxOvE02
xoWomTHIxikq9b3IYcarmpbtmLY38Shubd2Nrzptjo34+XAgtO9h/B1t/Siv
2bb0fHV/G63Km3DXejYyfw325FGaqed1QXRVz9uw6P5L1fHxobMe6Vr4+P06
bZ6HFms0Xu6fGaZZa91RjbexVvIpk68A+j6s15xXyrCe1iSEblhz1iyVBC2X
C8yES1zfbHa9HVb756s1nL6ZKJUDvENtJ9nvuqpVhkuu2ulF7F284CXOmu1w
drDnDp5mb7IdujnIzupXjQ/p2lz47JWczv/eq/qTytfctMm/6lEbzmuH6aHQ
JvS/nU50ajzHKYXawtPe3O5ER0Lx4XJb9daYazabIdrKxNdcT7B2fnHve67B
pk2eTtWDkuvMFfoohQzD5QmY51IwQKvVZVTrFAvF1VQt7ia1JhKsoXoKQE9s
KRGJt1kJer5vNrveTouBP8vwq//L9bfgJUSAvwB6vnu2jLfBP7+SPyg2/hTo
+d/lb+p5ZgLAXwA93z0r9fyiewH++ZX8QbHxp0DP/y6ny/9VBADQDej57tnS
P89+lStBz/fNlnr+hv/rCgAAOwU93z0r9Tz7VW4Jer5v8M8DAMA9QM93D/tV
7gj0fN+g5wEA4B4gwLqH92F3BHq+b9DzAABwD9Dz3cN+lTsCPd836HkAALgH
6Pnu4f9J7Qj0fN+g5wEA4B6g57tn43gbVMQa0PN9g54HAIB7gJ7vni33n2e/
ypWg5/tmSz2/aGcqAADYNej57tnYP38AgDab6fnf7igAAAD8JGtUwSL/PMvD
law5WPD4bOmf50wEAPg72GX/9E35+vX15Z/1L+yXlXp+UX7eh10Jer5viJ8H
AIB7gBune9ZIxBv2t0FFrAE93zfoeQAAuAfo+e7ZUiLin18Jer5v0PMAAHAP
0PPds3G8DSpiDej5vkHPAwDAPUDPd8+W78OyX+VK0PN9w36VAABwD9Dz3YN/
fkeg5/sG/zwAANwD9Hz3sF/ljkDP9w16HgAA7gECrHvYr3JHoOf7Bj0PAAD3
AD3fPcTb7Aj0fN+g5wEA4B6g57uH/Sp3BHq+b/6Unrd/Tfjx8ZHT87u6nni6
JOT0OkO2nGci3f9tYjVbqyOz+w0A8Aug57uH/ye1I9DzfbMXPV/KlnP58E0W
5HPw4kb5qra9vr6G/N5Q+fWQ8L7knwwf1dDu8/Pz1bJ+0pWcZmoYOq0fAOAx
Qc93D/tV7gj0fN9sqedv0+GFr68vU7DlQ6nk6elpaVXP37hrvRRXSTxHz3+d
+ffvn6XYr55Y6i+VfAkl0QS8fbXMb29vVpuXLby/v2sTbmdpqBTPSxj0PAA8
Puj57iF+fkeg5/tmF/754zdalX6dWUPopmly/3xVz+dfQ3eCka2CVjbktPVF
Nad1Nvza0vPFJO6eAPAgoOe7h/0qdwR6vm92oeeDML7hoVsIksn1L9LzJrCz
ng9WtezMFVb1vCda1I1W1XotqLWCAADYHgRY92zsn2c6rQF50De70PPjWUKb
s/r5+XlpcZPERpHZwZI5et6uJOVvyVldGmT/vIbKZ2N02Kt6XpcDIf+Ef57H
kQDwIKDnu4d4mx2Bnu+bfel508wTnvarNthyILjr5+j5QZjpn2/peatQf2rp
ec8TQm6InweAxwc93z1bSkT88ytBz/fNLvR8ULPro0p8txyvcGn8fPbG55Q1
8Tb6QMFpuesBAB4Q9Hz3rLkXs1/lxqDn+2YXen5OdMoEpt7z3u/uJL9Bz1eD
6sNIDo33dvP7rVU9//z8HB4KeG24KQDg8UHPd8+W8TbsV7kS9HzfbKnn8/9s
mkk5izVm3nZ3nF/ct7sMdXolRU6/vLwEa8uv//79G2vS3SoMSwDbr1JTPj8/
c7tmfNh/Muv5UlvJ2TIJ/zwAPD7o+e5ZqecXqQL88ytBz/fNLvzzHnxi1h4u
/53THPu9Bn+hNUSwW6LH54foev/Jw++z473qM/fAnmrNTtDzw3nH+5DNO+t9
sTqL8WbP+kgkAICfAj3fPVv655lOK0Ee9M0u9LzXYKjQnb+ji+U0Pd96TdXC
Wqqy3OwvFO3d2rVmIt2qnRhqLTtRlWZw1CQudwDwICDAumelnl+kCgg0XQl6
vm92pOcBAGBHoOe7h/0qdwR6vm/Q8wAAcA/Q892z8f42TKc1oOf7Bj0PAAD3
AD3fPRvvP4+KWAN6vm/Q8wAAcA/Q892zpX+e/SpXgp7vmy31fNikEQAAOgY9
3z3sV7kj0PN9g38eAADuAXq+e9ivckeg5/sGPQ8AAPcAAdY97Fe5I9DzfYOe
BwCAe4Ce7x72q9wR6Pm+Qc8DAMA9QM93z8Z6num0BvR836DnAQDgHqDnu4f9
KncEer5v0PMAAHAP0PPds6VEfH19fX5+foVbKQfrt02AO1LOjm2utx8fH5yJ
AAB/h+dvftsKuCMb71fJ8nAN+Of7ZjP/yel04kwEAPg74J/vHvar3BHo+b4h
3gYAAO4BAqx7eB92R6Dn+wY9DwAA9wA93z0b7z+PilgDer5v0PMAAHAP0PPd
g39+R6Dn+wY9DwAA9wA93z1rJOJSSYB/fiXo+b5BzwMAwD1Az3fPxvtVMp3W
gJ7vmy31/MfHxwYNAQDAI4Ce7541EnGpJMA/vxL0fN/gnwcAgHuAnu+eLd+H
ZTqtBD3fN+h5AAC4Bwiw7uF92B2Bnu+bP6XnT9/kf0hXNUwTraB9CMUtvSRq
Hi9bTbzB7FyDJppJa5qYycT/8vvFg9sa4Z8y6Ufq0RnymOikfbTaYKeg57uH
/Sp3BHq+b26+3lrB+SfXSj1fyh6/KRNy0X+IdqysU76qba+vryF/yWPRfeXX
wyV6VTk0sFHN6c/Pz3kcrImcbr3W4m5nq927nrCldR23YP+9rxU+hbQh+4fj
rUPzI1rCJt7NxYs94QA95i1JJ+16C31K41L7y6Dnu2fNZR///Mbc+x4Nv8vN
11tVKXMqWannXaqZTlha3FSxGxm+ztHzZr8ZYMXdLWyv+prqs6/uNnezPb3o
+Wy/idIgGq24iisrbmafzmTzQuUzR2yO+m0d6JWKdybWtE4kF42WYoemYCu+
R9DzZqGb5Au0OUN99ai1lle34Vb9yKDZsbAJyS34z8LR756N9fxjOkP2Anq+
b9Zcb7Pj0ZbP1TNujZ4PguoGGZMVlOkN/3xVz+dfQ3eqroOczVR6yGkpoZVq
u8WknFhE/timWk8+HNmqHB+ig6ZUFa+W9QVOLmuBKBONqoW+nmrZPMqB819b
FbZMCrsuTOj56SgaO0FyWZP01SKh7PTI5MPR6lG1uFdiHyZWGeEYTSQqen5N
ZIOOQc93z5YSkf0qV4Ke75uV19shxaI4r98UaWQCo+S8LU5m/D6LVW9XNe00
z99oSjHGZdtSPW8GhO6U+icqcT4/P0Niqf/t7S3r/JKYK/z371/e4+vp6Sl3
2U21JwLlr3fHRqNUbomlTs9jBhRjSp02LGpVMSnPlvf3dytu1trgWOVWlTdn
dXqvLfHl5cWbfj5T6sx9KYk2nawhOy7F+NxlS/RJaHWWhixDqcHKmknlJz+U
ZkPJaUUsPfSlfPV0yxnmp2Ojl6e9HuswbUqiddOH1LJ5Q1bQZq8ZbxmsiFkS
nj1Zj6wXOvd8ZKwVjbfxDpoNYUCsWmvdDMjd/PpGDwf8QdDz3bNGIi6VBPjn
V4Ke75uZ19sJ3T6fmy/swQ85JxQhEKKDsp/zqp4393uWuE7Vi3uQSBij6J+Q
7SBxDgdxyc73RUyPhg7XcI6CsK82LDk6peRx1aeO4taTEe27NefF9afSkD/F
UAE5nuOpvMLpJw5e83TH7XD712K8h0hpulsYXOJuqsfwqJG5knyjmXDse1Xh
sc5w/jcNWn+YnzrU/lnr0Y7YZz2yXkQHWQ+H9yVMSLdZp814PhDcZyGDnu+e
NRIx34uv5mc6rQE93zfz9Xw1Ww65Cbj/cOmZG1o/SJh0NQR9Zj1Heb1U0+fE
zztWfGa8jWHtZuWjvs2gJ+fr+fnxNrnOQ4pOUU7n+HwXeFWThsvgJW8uB434
r0EPH9JrAhM98iJX9bxa630PMtstyek+dUt6WIhZqen/hzJTz4e1qq53vK3W
a9TBJE8Pel6L+PjrIKvsD6s/7U62LTcB4CDAumelnl+Uv3qThflwoe6blXq+
JeOP55dAPeep9qrmIjt1jbByWvoyxCtfGj+fpdqEf15TzL2vpaxHvtDwSn7K
P69yK3fTXfFqqgd++5i7nr/qn9fmqkHg9msY1eDfnqPnq8dFCYPvklhXWD7y
Y/tmkQ9NTq+uVaf1vIvnoe2f18Wdt+X59aw8yQZQYW5X9Xye82qStXu8fALi
3ckjf8A/DzXQ892zUs8vum60rrQwE/R836zR88fLrRTNFd863ZaeuVWsBttM
ZlGpnF/10g16Pie2/POh1yH4/yCRPMP58YH9VA1useKhzjX+eTf7cBn9Uho6
nTlc88+rcB1u8s8fL6OA5uv5HIFZ7dEo8Ta63rRYek2v9s4ayqszK94KOBna
25CqZq7657PT2ww+yvY4w+WrwdYpe031MMM/39LzR4m3Cf559DwsAj3fPSv1
/KL8+OdXgp7vm5v1/HCOKp95iq3R86H1pS+5ny5DiL3OCf/8SSKEq3q+6q2d
459XPZ9rVlOr0n2oecjn++fzcTzU4udVJwc9X1W8mn5KgTTaYksThp7O0fNj
7XXjk4TBtPT8kMJUXB633NHHc2yMLlWq/coW5nStJ5w+x/PjkrAsCi9QV/W8
LojCkkrLup6/Od5Gz46xcYIAjOj5P8DGeh6/wRq4UPfNGj2/6Mxaqef9RA46
ZGa16tX07U2CBPWqwq/DZfS+PR3ISnumf97cvFXfrNeTna7ZVa5Mq1+Vau5k
VmevtuWfPepDO9uaLS3//Hg5eoP4q7N4XuqfD5X7+Ggv1FqPtwkD4sZr8ZYL
3TMM6cWH6sh4nf68I0weq1zHRDWz98sHRNtyva2WW49a46xfdUD0BDlci7cZ
L7W9NmfdnDhk8KdAz3fPlhKR/SpXgp7vm5nXW999bk1D0y8PXi1u2+uVv5+f
nzdU6zU8PT3ZRpr6a6lTt+/TX8tnK+sMtb03q5b43oYh0XJWfy0/hQ0M1TDt
u1Y4p+/WqO336LsUugHWrgtFy2MZPN2GItev6b6fZOiR7ZrozYVsYUjf3t6m
e+S8v7+3DlwY3pIztG4maY8s3XZ39PTcO39w4/tATkxCWz/6lo+hp/lw+CH2
HV9tQHyLUTfGJq0fGstvg6x7bIa9XkNx34HT26p2fLyc4Wq2bsv58U1rKOCv
gZ7vnjUSkf0qNwY93zfzr7crz6M1/nkAeBxCrNEphfoDGOj57tky3obptBIu
1H0z8wRZfx6h5wG6QWN+Wu8RAyDAumelnl+kCngfdiXo+b5BzwPAUiyk/3C5
fyZAAD3fPbwPuyPQ832DngcAgHuAnu8e/PM7Aj3fN+h5AAC4B+j57sE/vyPQ
832DngcAgHuAnu+eNRJxqSRgv8qVoOf7Zub1duVmlWPakBAAAPoGPd89W0pE
/PMrQc/3zWbXW/zzAAB/CvR897Bf5Y5Az/cN8TYAAHAPEGDdw/uwOwI93zfo
eQAAuAfo+e7hfdgdgZ7vmy31PBd2AIC/A5f97tnYP28uergN+z+A0CszH2BZ
5lvP2v/PxAMAAAB0xM2qYKmoQM+v5ICe75qN9bydj/6fJUkkkUQSJxLLX0/U
FP3ayqYVXv1LnSvrDB+sziNunJ3gR2r6uOez9bChnme/ypWsOVjw+MwU6uxX
CQAAAMoaibhUEhyJn18Her5vZur50zcrG+JMBAAA6IY1EnGpJFgfJ/DHQc/3
zcwTZP15hJ4HAADoiZXxNuxXuSXo+b5BzwMAAMANbBk/T7zNStDzfYOeBwAA
gBvYWM/jn18Der5v0PMAAABwAxvH26Ai1oCe7xv0PAAAANwA+1XuCPR838zf
r3LlbpOllY+PjzU1AAAAwOOwRiIulQT451eCnu8b9qsEAACAG9hSIj7IfpX7
VTLo+b4h3gYAAABuoKf3YYtEqf7zXHuOEH59fX21UsWkaimtMzRUinjxLUHP
981j6vlWzh9ZEVSf8ZXEkzBRXOOOqjlD4iD4T6dLSp2h6ZCov+bEq6FQJU+2
watqNaR5wlfFhi78quPpZasjb61fNalqjCdOtJ7za8488jlbq7kWoUfTibl4
9UiNjZGftgQA4K4skojhyvaw78OevkV4uDGVFFVBz8/PxZ5QqiSGqkqeUHBE
z8N9eEw9X53/vuxdY4nVE2o4ndfdx2/8c1VulRP2dNbV+ewI1wGrzbwKanz5
6z95c/bXyoZEt827EIpPjK3nLx+K8fbZzfMadAR8fLysfS0CMrRb0MuaV+IN
eZd9kKePiH314t7Q+K1+qzVY8VJ/a0jzhKkObx7D6the9RGZ8aFUuXrniRde
7/Ih8tmi94tgc/U2AQCwJVclonke/LKsl6xH8887+eaeL7Z2PwoFc4rf/TUR
PQ/34AH1fBYqLpKNvASeT9CfTqgzL8Y1p3Ukn6Tj5XWgXMQOtTV+KNISnC3v
a/XiMCHpW4N51QYra4cjV56LVGsOv+bum/oNer5awyiaNiSGRq9O12C8rQVC
tb6WCek5JWATLOQxPR9MVT1v46OlQgrqHQAejerl2u7UQy0QRbM9rH9+vOxX
VbqPtXtrEBJ+OwtX/paev7feRs/3jTmKB8Gdz5q4fl0858xVr682F3SOK+ql
uEoPs7q6RmgtHDzxqn/exq1V3KmKz0V6fmyLzGrmrAyrxX2ZUFXpVXk5reer
Puqs51tq2S6qefGyXs+PtYGyPDYnp8sqNm1ybSbdwzirnXmdEqxCzwPAo1F1
LrXIF+pFbW22X2UQ8OVeXBUD+Ubz9PSkX0spu4+/fqMFq3r+8/NzneFXQM/3
jc0r247y379/ui+lfS4T7OvMyobm16DSxc4sLfv29nbbs6pSys7Kg7zMYk2E
09BoJZox5n4PndJE+3y148WS9/f3kDit5/O1pWqMV1WamI61Dlcbo7RiiTZu
oXJTrZpiR6rVUEl/eXkxOzUxiPwJ/3yZn1a/5TF7PFFzlhkyfdn3rrnloTs6
nocUNjkx/cqvdjRDKbsThYb89jQ9dMa0ns+HAwDg3tj95fmbCSV/+H4y7h7C
UqRcpZc+at/MPx+cdeG2pfZk91SoRP1C+uIA8Tbw41z1ZP5gQ7fFz2eBd5vN
wXOudbZc8dXJPyd+Xk31q5n5ZrPkngjwDmidE72r/uRX1OolMdugV7D5IToT
Ztsg5/cLfNWjvQuo6LWy6ujOtl1141Tt1Eq0/uCin4i3sd7ZIQ6l3KQwD4fz
+xStwzdt80R+AIB7Yxcuu5RVr1GO3Xoc34tgflubyZUx3f2r1+dDLZbVv9qd
wmz2z/YTeh7uwU71/HQAc8uAIFCD0zUXqQb2zImfD6XscmdndPX996owNgWo
5I6EItMjbNeQrF3HmkYNg3xI0SDZbB9VxRuyeBtty69++XBXO6599LZU5Kvx
07M6x70E/4maZG2583wi3kar9Y7YV11iuNQPIn/C4PF8CFojAwCwPeHCZa++
Hi+3Waj6TG5gfdzvTPIFOd8iq057vb9P+IjQ83APHl/P5zPrNpur7gJvYsI/
H8wO8fNZuru109vjTHfnsDB+fmg4eKtjnq+KOcWVf8sbfFgeP29D5/a39Px0
/Lw+sszF/aeren7CeLtQB1SNtyycKJVffbVLuur5bJKtBE/nLY8Q8ADwUExI
RPeTtG4iS9ks3mZM/Tqd90+zC3L1hqtCIt+mw5NZjT7yi/yavT7mgJ7vm8fX
8/nrDTZn7a3nY1XPe+IhefKDi7jVUDXqI+v5lrac0PNZTx5qb1OODfGZE3NK
vlgFk1r++at6fjwPqddwmBc/n13xh++nGLnROfE21TG3xFI8j4+7U1o+omy5
htxUt6bUxOoRHHgfFgAemDkSUfervOHZurOlf77qXVFVX71Bq9Mm3wqHxn4j
nn7v3qHn+2YXej6ozRv2tzmmXUqCGs/7VfqlI+g0bb0qgz1zVXj/iJ4/pAcW
LSFd/SlfVIMNQ+2V28PlS8Q3+OdVEusRmannc/2n86sBN8TbhAwab5PfLdXH
Li3/fE7XOZaXGMGBn1dDYYqi5wHg0VgkEasqdz5b+ue7BD3fN7vQ8ycJzD5K
CHorSuFqhYZLytPle+jH87/s0Vb81/wCu3ubg7b0/3/klh9r8fPVQ2Di2YoM
l2/TDOfA7OOZCRXt3bTiVmc+qYMWrS4xgshv+eetKmvIjMwPQYbLf1OV9bzu
7ujLomqofNU/P0fPH87/92q4/Fdfp0You7dyFNzO1lT0ga0+MsjrVu37If0/
qTAfSk5dWqL2AWBjtpSIm+1X2Svo+b7ZUs/P//f0eXvM8tVMLZX8+/fP08vX
OdtgVpsuBT3945JW6wVt3St5e3uzgtUmvGzLjLzr7EcNs8rqVIJJ1e6bAe/v
71UbQpdt89JpO6tbmE6YPV5urqvpYZfUaiVeKrRY7MyJtslqczhqdmr+6ibA
XmerbOvgWrptBnvVzvK1HCM7WHkr1AmzP+adCAAAP8iWEhH//ErQ833zmP55
AAAAeHC2lIibyZVeQc/3DXoeAAAAbmBj/zx6fg3o+b5BzwMAAMANEG+zI9Dz
fYOeBwAAgBvAP78j0PN9g54HAACAG8A/vyPQ832DngcAAIAbYL/KHYGe75st
9Tz76QEAAHQD/vkdgZ7vG/zzAAAAcAPsV7kj0PN9g54HAACAG9jYP2+vxMJt
+H+rhy7Z7IVxbwsAAAA6YGM9fwCANsMmep4zEQAAoDM20A/G6czw/bj/4+PD
P+8l0f/+rknVvy07c+ZqInU+Qp1bnoluvH8msafE6qx7HDuDkY9gEok3JFoK
iSSS+OuJAwHtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwxzidTsfj
8fX1dfje6tx2O//xfxA8fG+4+rN1Zqpml8SV1fqb6V9fXyurAgD4m9i9xm8x
ft8Zzlsn5SIzr97zb1i/u7WIdXZNDdUBefz9UrLZc4bCSq0fNN1k5oaqbN6u
MQBgM+x8sa3OhzM/qL1LVbfttrqo4ND4Hw0rz8RB/jvY8/PzmqoAAP4yfn/R
e834fZXOQmu+jlp0m/hFbbbeqdW6xz2ynvfjqDf0q0PhR2q9GiltHYWlxX93
zgDcwJxVcPW0upqYZXnr9Azp+Tya8JDPPOnmd2E8W+6/vr6+3vsRAwBA34Tr
6igydeIC2/pJr/xXL+8zpe9td7qrv0538+rNpXWPm1jO3NbQmoLTdZr95T5+
9YhPHKmqDGhpg/Xufa9h5ZggHmAzyvn18fHhX5+fn4t8LX/LaWKu6ddvnp6e
LENJtKellmhnU6nh9YzlLCml5lLcKvdfn7+xqjxFDfj8/LQ8dipZQ6Gg4jkV
s1CLF7Sn5evLy0tIdMKl4O3tLecBAID5hGedpu5eBUv3O4Je/PMV2G8TIYPf
ngrv7++WWBqyW5XW6S2WD+Ui7+mWs/ytJtqNQ4uHPnqRUnyUR72a2LJEO1KM
17vY+H1Xtdb9jhZaL+bZmBRKTte6fiu34pbuN/fSkBfUe2JJ1Bt3vs+qYT7C
VpX3peBHyrL5ULRu6CWbyQDtkRnvNli69yjXY9Pg65v8a+6IzqV///7p+Niv
Ppd0TFze6OAUk8LolV6XHl01A2ANdkX19aP5T3z+q0/ATz07H+2zT2NdU9v/
QRvFexDksbdY6qwuXT1D8EtU3RHV53eeaE/cvDturSdWXR+aIfuUAABgKXrv
GFOopN1i/KlucL9XL/JeW/nViod7jSd6Q+HC7lW5ivZqS05PtED9cH/M96Pw
SNqKh2APE5/hvqO315BTTQp35yyw9YUCj1fRtkxRj5f3tSADPL/WVg2C9Zx2
n/XmTEjr8PrCJNzQw2HVo+9FvB41Xm2rrmvMJCs+HZcV4ruy2ZbHDkcYdp9g
KjPsuAdltfJhAcBVysTTmRxON5uElmiTOZzUfsHRIHwvq5fQ1/MLUH56+gkS
0OtAOHcmTv+AnpKeaLVZkUHIet7yeNzdbW8BAACAEy7gQXuHW4x9eG3EOoYr
v+t5rdlvW6Eh/9Wv/FqVth4atSJ6I6vej1r+q/F818s+ojkiPyx/WnEpftdW
p5a35Xd87aAlhnui+9LDjVuxnOWW7fdWr9YSw/Dq0ayOsOp5XR24nYN45CYM
s+iCq2MV+jKcXycca+/lvZ43D9HErOdtzXW8fC3RpyLA/ZjQ8/bZT9LWBUcX
9XYKuJtFZ/hwydhesVavA/41XD8nLjJjumLohTrbE3CPUGvdAQAAM8n6LQvd
8VK/WWLVv5prc/ep37bcU3qUJ7N28bdfh+Q0PtWeDjhBRrZuHMPZJ2yPqtVO
K1UdijHJTh+Q4LLOo6eJ3kR43mG4JNbaSkOhX9aLkJj768PoiwjPpg35SIY1
Vx5hL+7KPzw4GGoeueqBUKb1vB7W/IBAmw71ZF10vIwBUAvZJQ/uTYj70nMn
X4XG9sOm6UR9Sjic192tU0yXGGqPulOcaiXe9NC4UAcvR/axDJdLe4LnAQDW
MCTfS3Cwh1tM68bktYWrtCsuTdTIh+zeyR5gr0ET3bawAMlyOjx9MFEaPGZZ
5J9qsRx5gRNMymucEM5UdcGpTh5Ezwft6vpcjaz2V2Np9BC/yitsboB6xkL9
oQvVxYgZf7p8uuHxvYo2dEpPQxSNB1CrwmCahjmkgDEVOXqsg66oSh2AnyU8
zfSJfZKHnsP5dZ6x7UA4nsMLdX2qU90vERpLU9XJw+WjK6vZA+cCXrOjoYBq
g596fnbbwqHqIggPKfxz65oAAAATBP2WtbfrKEvRy3jVk5MzDPJk1u415kfS
J7N2j9DiwWvkKjSUGs+3G4vlaAXbnM5Pda310M3DOVD/cBlSHp4jWP1B5AeT
8ph4nafzP5cJ6cNlEE4+NKfzfwoYz8HqfmOtSuKg58MaQYf0dH5jLlsbumAf
8lP+sbYYOV3GWTkeOaA9CkE4hkoL7YJrD61BD8FwjjVyy8OjBC8eSmVrAX4E
PRfCuWNXPJuTw/k19umLgJ6hwf9QGgqXZT0XFL+MaM2tiBdr1Oz0S1x1jXy8
fFHI4oJaJ9fxTFiho+cBAG5gwrdpX8vtQP2x01dpuxofzm85WaKmuHNJFbXe
TdRJpbcGvWWU1g+XL0VaYsu347ehlgcseMzcVO2ym+0iP5jkGULrg/w3GRW6
3tZw3l/odPk+qS1wwh18lPvgsfF/u6we3zgoaG/tlClbvY8f03rkJPvVT79Q
oJKj5RV0YeA1hOji0HedLf5GQJYBfozCmIShcwvVAP0MAAAAADCHImLdb1Y+
+26ZfxDbPPO3rQAAAAAAWIB73c05zFuZAAAAAAD7wmJdftsKAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYjv8Ahst2QA==
    "], {{0, 338.}, {504., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->144],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{504., 338.},
  PlotRange->{{0, 504.}, {0, 338.}}]], "Input",
 Evaluatable->False,
 TextAlignment->Center,
 CellLabel->"In[1]:=",ExpressionUUID->"409f3ba7-1977-4263-bdf2-31b76d3275dd"],
Cell["\<\
Again, you ask: \[OpenCurlyDoubleQuote]Why bother? I don\[CloseCurlyQuote]t \
even own any checks. Everything I do is online, cashless. This is something \
that went out with cassette tape recorders. I can just use a commercial \
accounting software or better yet, just let the bank do it for me. Why is it \
important to do this?\[CloseCurlyDoubleQuote] These are valid questions. In \
the old days you wrote checks, handed them to whomever you wanted to pay and \
it might take that person several days or several weeks for the check to be \
cashed and find its way back to your bank. Thus \
\[OpenCurlyDoubleQuote]reconciliation\[CloseCurlyDoubleQuote] was about \
comparing the checks you had written leading to the resulting balance shown \
in your personal check register to the checks that had actually cleared the \
bank and the balance the bank shows on the statement. With near instantaneous \
electronic transactions today it is possible for all transactions to clear in \
the same month they took place. This definitely reduces the importance of \
reconciliation. But there are other good reasons to do it.
Before we dismiss this as a useless exercise lets take a look at an average \
month\
\>", "Text",
 CellChangeTimes->{{3.811965878844138*^9, 3.811966061421734*^9}, {
  3.8119757140725527`*^9, 3.811975906228177*^9}, {3.812028706935457*^9, 
  3.8120287082344913`*^9}, {3.812028739507824*^9, 3.8120288211124067`*^9}, {
  3.8123960219068313`*^9, 3.8123960452989492`*^9}, {3.8125798490022745`*^9, 
  3.8125799082130623`*^9}, {3.820332309354934*^9, 3.8203323533142853`*^9}, {
  3.8203323910446453`*^9, 
  3.8203324070694637`*^9}},ExpressionUUID->"85909c65-cc8a-4ebc-bbe7-\
5bece67e8bc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell["The budget process", "Section",
 CellChangeTimes->{{3.811963022105959*^9, 3.811963044487096*^9}, {
  3.812053883594015*^9, 3.8120538875133543`*^9}, {3.812053925972464*^9, 
  3.812053928589277*^9}},ExpressionUUID->"4d03e645-a118-4b84-98a7-\
fa5ae8ccf378"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"keys", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<rec no\>\"", ",", "\"\<date\>\"", ",", "\"\<item\>\"", ",", 
     "\"\<debit\>\"", ",", "\"\<credit\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "01"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Paycheck\>\"", ",", "0", ",", "3000.00"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "01"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Taxes\>\"", ",", "745.00", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "01"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Rent\>\"", ",", "1500.00", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "02"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Utilities\>\"", ",", "143.75", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "04"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Groceries\>\"", ",", "244.80", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"6", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "05"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Restaurant\>\"", ",", "127.60", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "07"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Restaurant\>\"", ",", "85.96", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"8", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "10"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Student Loan Pmt\>\"", ",", "497.33", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"9", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "15"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Credit Card\>\"", ",", "510.88", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"10", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "15"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Paycheck\>\"", ",", "0", ",", "3000.00"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "01"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Taxes\>\"", ",", "755.00", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "17"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Hotel\>\"", ",", "575.21", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"13", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "25"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Netflix & other\>\"", ",", "204.67", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "05"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Amazon\>\"", ",", "346.85", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"15", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2020", ",", "11", ",", "05"}], "}"}], ",", 
         RowBox[{"DateFormat", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Month\>\"", ",", "\"\</\>\"", ",", "\"\<Day\>\"", ",", 
            "\"\</\>\"", ",", "\"\<Year\>\""}], "}"}]}]}], "]"}], ",", 
       "\"\<Travel\>\"", ",", "505.00", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"convertListToAssociation", "=", 
   RowBox[{"list", "\[Function]", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"keys", ",", "list"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"convertListToAssociation", ",", "list"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ds", "=", 
  RowBox[{"Dataset", "[", "data", "]"}]}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8119660787005634`*^9, 3.8119661645723495`*^9}, {
   3.8119661950324326`*^9, 3.8119663018714733`*^9}, {3.8119663415901055`*^9, 
   3.8119663426310596`*^9}, {3.8119665040150995`*^9, 
   3.8119665048623257`*^9}, {3.8119665714522734`*^9, 
   3.8119666040907745`*^9}, {3.811966805952893*^9, 3.8119668964327087`*^9}, {
   3.8119669286323504`*^9, 3.811967474449873*^9}, {3.8119675077683086`*^9, 
   3.811967528547635*^9}, {3.811967596240568*^9, 3.8119676003965254`*^9}, {
   3.8119740717271624`*^9, 3.811974159082074*^9}, {3.8119741990471563`*^9, 
   3.8119743217477746`*^9}, {3.811974390481864*^9, 3.8119744184063025`*^9}, {
   3.8119744518050327`*^9, 3.8119745084218664`*^9}, {3.8119747365602064`*^9, 
   3.811974853939841*^9}, {3.811975094657608*^9, 3.8119751185435743`*^9}, {
   3.8119751771266975`*^9, 3.811975177187428*^9}, {3.811975442990138*^9, 
   3.8119754467083006`*^9}, {3.8119755447415843`*^9, 3.811975583781081*^9}, {
   3.811975634849144*^9, 3.811975645300458*^9}, {3.812036243700759*^9, 
   3.81203639076326*^9}, 3.812038355155015*^9, {3.812039582205592*^9, 
   3.8120396175441713`*^9}, {3.812991156044199*^9, 3.8129911920570645`*^9}, {
   3.8129912314108644`*^9, 3.812991370578181*^9}, {3.812995416265439*^9, 
   3.812995428450214*^9}, {3.812996608314415*^9, 3.812996682033826*^9}, {
   3.812996723019767*^9, 3.812996724779422*^9}, {3.812997425347129*^9, 
   3.8129974262110195`*^9}, {3.8129977379189568`*^9, 3.812997739100964*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"fad2b13f-0b48-4160-b735-c15c97306663"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Paycheck", "debit" -> 
        0, "credit" -> 3000.|>, <|
       "rec no" -> 2, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Taxes", "debit" -> 
        745., "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Rent", "debit" -> 
        1500., "credit" -> 0|>, <|
       "rec no" -> 4, "date" -> 
        DateObject[{2020, 11, 2}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Utilities", "debit" -> 
        143.75, "credit" -> 0|>, <|
       "rec no" -> 5, "date" -> 
        DateObject[{2020, 11, 4}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Groceries", "debit" -> 
        244.8, "credit" -> 0|>, <|
       "rec no" -> 6, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Restaurant", "debit" -> 
        127.6, "credit" -> 0|>, <|
       "rec no" -> 7, "date" -> 
        DateObject[{2020, 11, 7}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Restaurant", "debit" -> 
        85.96, "credit" -> 0|>, <|
       "rec no" -> 8, "date" -> 
        DateObject[{2020, 11, 10}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Student Loan Pmt", 
        "debit" -> 497.33, "credit" -> 0|>, <|
       "rec no" -> 9, "date" -> 
        DateObject[{2020, 11, 15}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Credit Card", 
        "debit" -> 510.88, "credit" -> 0|>, <|
       "rec no" -> 10, "date" -> 
        DateObject[{2020, 11, 15}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Paycheck", "debit" -> 
        0, "credit" -> 3000.|>, <|
       "rec no" -> 11, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Taxes", "debit" -> 
        755., "credit" -> 0|>, <|
       "rec no" -> 12, "date" -> 
        DateObject[{2020, 11, 17}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Hotel", "debit" -> 
        575.21, "credit" -> 0|>, <|
       "rec no" -> 13, "date" -> 
        DateObject[{2020, 11, 25}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Netflix & other", 
        "debit" -> 204.67, "credit" -> 0|>, <|
       "rec no" -> 14, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Amazon", "debit" -> 
        346.85, "credit" -> 0|>, <|
       "rec no" -> 15, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Travel", "debit" -> 
        505., "credit" -> 0|>}, "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[75], "item" -> 
            TypeSystem`PackageScope`AtomShape[179.20000000000002`], "debit" -> 
            TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 15, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[75], "item" -> 
            TypeSystem`PackageScope`AtomShape[179.20000000000002`], "debit" -> 
            TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 15, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Path" -> {}, "DisplayedRowCount" -> 
     15, "DisplayedColumnCount" -> 5, "DataRowCount" -> 15, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["745.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Rent", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/02/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Utilities", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["143.75"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["5"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/04/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Groceries", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["244.8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["127.6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["7"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/07/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["85.96"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/10/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Student Loan Pmt", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["497.33"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["9"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/15/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Credit Card", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["510.88"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["10"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/15/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["11"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["755.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/17/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hotel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["575.21"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["13"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/25/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Netflix & other", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["204.67"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["14"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Amazon", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["346.85"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Travel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["505.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{
       451.43200178146367`, {210.41803320312508`, 216.14996679687508`}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{
      451.43200178146367`, {210.41803320312508`, 216.14996679687508`}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.811966121656507*^9, 3.8119661505718985`*^9}, 
   3.8119662011985135`*^9, {3.811966259606162*^9, 3.8119663025607414`*^9}, 
   3.8119663434553137`*^9, 3.8119665058736343`*^9, {3.8119665747742743`*^9, 
   3.8119666054108133`*^9}, {3.8119668143564444`*^9, 3.8119668456801386`*^9}, 
   3.8119669003142323`*^9, {3.8119669462268066`*^9, 3.8119669761401453`*^9}, 
   3.8119670540198526`*^9, 3.8119671846305676`*^9, 3.8119673262377195`*^9, 
   3.811967431681794*^9, 3.811967475585994*^9, {3.811967520036391*^9, 
   3.8119675299241524`*^9}, 3.8119676024260693`*^9, 3.8119740868532534`*^9, 
   3.8119741606159515`*^9, {3.8119742958500156`*^9, 3.811974322783446*^9}, {
   3.8119744806656585`*^9, 3.811974510250676*^9}, {3.8119747894378495`*^9, 
   3.8119748087502356`*^9}, 3.8119748543832088`*^9, 3.8119751203477507`*^9, 
   3.811975183103011*^9, 3.8119754480832033`*^9, {3.8119755599467907`*^9, 
   3.8119755847500396`*^9}, 3.8119756468767724`*^9, 3.812034498863969*^9, 
   3.8120363936599283`*^9, 3.81203835605986*^9, 3.8120395836570606`*^9, 
   3.812039617993847*^9, 3.8120516098258486`*^9, 3.812061086459901*^9, 
   3.812105231098301*^9, 3.81219970893412*^9, 3.812208386524991*^9, 
   3.812225116972345*^9, 3.8122881197148933`*^9, {3.812319433167703*^9, 
   3.8123194530544786`*^9}, 3.812396064233258*^9, 3.8123971981347957`*^9, {
   3.8123972678636365`*^9, 3.8123973149902067`*^9}, 3.812480833223874*^9, 
   3.81249132683281*^9, 3.8125799343353024`*^9, 3.8126322327178135`*^9, 
   3.8126333398336225`*^9, 3.812633970020127*^9, 3.8126341677434864`*^9, 
   3.8126343792247863`*^9, 3.8126344193054028`*^9, 3.8126353446787376`*^9, 
   3.8129169455890975`*^9, 3.812917417205202*^9, 3.8129881154359202`*^9, 
   3.8129892667055693`*^9, {3.8129911854648056`*^9, 3.8129911933839564`*^9}, {
   3.8129912332782955`*^9, 3.8129912739905453`*^9}, {3.812991318104224*^9, 
   3.8129913727061963`*^9}, 3.8129966343927627`*^9, {3.8129966833886676`*^9, 
   3.8129967260196*^9}, 3.8129974274691153`*^9, 3.81299755940376*^9, 
   3.8129977440473776`*^9, 3.8141223003460827`*^9, 3.8189468065838394`*^9, 
   3.8203324602355824`*^9, 3.820335458006327*^9, 3.8203381336038485`*^9, 
   3.8789975570513973`*^9, 3.9352562728617897`*^9},
 TextAlignment->Center,
 CellLabel->"Out[79]=",ExpressionUUID->"bfa3e0d9-233c-f847-b41a-0425268e45b9"]
}, Open  ]],
Cell["\<\
We have a problem. When we total up all the payments for this month that \
total exceeds the deposits to the account. Now we have a second reason for \
reconciliation. We are want to make sure we have enough money in our account \
to pay all our bills. If we started out with a positive balance in the \
account at the beginning of the month of more than the deficit for the \
present month, we are still solvent. But we must be careful about future \
months, for eventually a series of deficit months will erase our reserves and \
some payments will not be made.\
\>", "Text",
 CellChangeTimes->{{3.811975922119467*^9, 3.811976099372078*^9}, {
   3.812029405785318*^9, 3.8120294155556345`*^9}, 3.8123961256387625`*^9, {
   3.820332504711814*^9, 
   3.820332507291849*^9}},ExpressionUUID->"01675956-8b38-47f9-8661-\
ccff70016a45"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ds", "[", 
   RowBox[{"All", ",", "\"\<credit\>\""}], "]"}], "//", 
  "Total"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ds", "[", 
   RowBox[{"All", ",", "\"\<debit\>\""}], "]"}], "//", 
  "Total"}], "\[IndentingNewLine]", 
 RowBox[{"%%", "-", "%"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.811974899256859*^9, 3.811974914426206*^9}, {
  3.8119749654764557`*^9, 3.8119749881968317`*^9}, {3.811975024350831*^9, 
  3.81197506838846*^9}, {3.8119761197533674`*^9, 3.811976145880332*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"50368737-d998-4bb9-8383-ae35bf8db901"],
Cell[BoxData["6000.`"], "Output",
 CellChangeTimes->{
  3.811974915284994*^9, 3.811974990353079*^9, {3.8119750344104695`*^9, 
   3.8119750690258102`*^9}, 3.811975124182927*^9, 3.8119751863386803`*^9, 
   3.8119761468252354`*^9, 3.8120364001881795`*^9, 3.812037746487941*^9, 
   3.812038136093938*^9, 3.812038360379339*^9, 3.812039479845727*^9, 
   3.8120396277920046`*^9, 3.812051610382369*^9, 3.8120610870971966`*^9, 
   3.812105233161069*^9, 3.812199709439892*^9, 3.8122083871906323`*^9, 
   3.8122251174667025`*^9, 3.8122881203420916`*^9, {3.8123194337495446`*^9, 
   3.8123194557481565`*^9}, 3.812396064878397*^9, 3.812397198524866*^9, {
   3.812397296779454*^9, 3.8123973172507043`*^9}, 3.8124808337214746`*^9, 
   3.8124913320957065`*^9, 3.8125799348012676`*^9, 3.8126322333411336`*^9, 
   3.8126333419473157`*^9, 3.8126339721482253`*^9, 3.812634168514411*^9, 
   3.812634379807622*^9, 3.812634421443223*^9, 3.8126353466790867`*^9, 
   3.812916947682329*^9, 3.8129174192266617`*^9, 3.8129881158673277`*^9, 
   3.812989268591963*^9, 3.8129967161957736`*^9, 3.8129977445393224`*^9, 
   3.8141223024377265`*^9, 3.8189468076140966`*^9, 3.8203324606549544`*^9, 
   3.8203354583651915`*^9, 3.8203381342162104`*^9, 3.8789975573421497`*^9, 
   3.935256272971159*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"ce242a0e-abfc-c948-a9a0-22ef4625d427"],
Cell[BoxData["6242.05`"], "Output",
 CellChangeTimes->{
  3.811974915284994*^9, 3.811974990353079*^9, {3.8119750344104695`*^9, 
   3.8119750690258102`*^9}, 3.811975124182927*^9, 3.8119751863386803`*^9, 
   3.8119761468252354`*^9, 3.8120364001881795`*^9, 3.812037746487941*^9, 
   3.812038136093938*^9, 3.812038360379339*^9, 3.812039479845727*^9, 
   3.8120396277920046`*^9, 3.812051610382369*^9, 3.8120610870971966`*^9, 
   3.812105233161069*^9, 3.812199709439892*^9, 3.8122083871906323`*^9, 
   3.8122251174667025`*^9, 3.8122881203420916`*^9, {3.8123194337495446`*^9, 
   3.8123194557481565`*^9}, 3.812396064878397*^9, 3.812397198524866*^9, {
   3.812397296779454*^9, 3.8123973172507043`*^9}, 3.8124808337214746`*^9, 
   3.8124913320957065`*^9, 3.8125799348012676`*^9, 3.8126322333411336`*^9, 
   3.8126333419473157`*^9, 3.8126339721482253`*^9, 3.812634168514411*^9, 
   3.812634379807622*^9, 3.812634421443223*^9, 3.8126353466790867`*^9, 
   3.812916947682329*^9, 3.8129174192266617`*^9, 3.8129881158673277`*^9, 
   3.812989268591963*^9, 3.8129967161957736`*^9, 3.8129977445393224`*^9, 
   3.8141223024377265`*^9, 3.8189468076140966`*^9, 3.8203324606549544`*^9, 
   3.8203354583651915`*^9, 3.8203381342162104`*^9, 3.8789975573421497`*^9, 
   3.935256272971159*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"5b4c27ab-4bab-db4f-8ff9-b6f397cf9a77"],
Cell[BoxData[
 RowBox[{"-", "242.05000000000018`"}]], "Output",
 CellChangeTimes->{
  3.811974915284994*^9, 3.811974990353079*^9, {3.8119750344104695`*^9, 
   3.8119750690258102`*^9}, 3.811975124182927*^9, 3.8119751863386803`*^9, 
   3.8119761468252354`*^9, 3.8120364001881795`*^9, 3.812037746487941*^9, 
   3.812038136093938*^9, 3.812038360379339*^9, 3.812039479845727*^9, 
   3.8120396277920046`*^9, 3.812051610382369*^9, 3.8120610870971966`*^9, 
   3.812105233161069*^9, 3.812199709439892*^9, 3.8122083871906323`*^9, 
   3.8122251174667025`*^9, 3.8122881203420916`*^9, {3.8123194337495446`*^9, 
   3.8123194557481565`*^9}, 3.812396064878397*^9, 3.812397198524866*^9, {
   3.812397296779454*^9, 3.8123973172507043`*^9}, 3.8124808337214746`*^9, 
   3.8124913320957065`*^9, 3.8125799348012676`*^9, 3.8126322333411336`*^9, 
   3.8126333419473157`*^9, 3.8126339721482253`*^9, 3.812634168514411*^9, 
   3.812634379807622*^9, 3.812634421443223*^9, 3.8126353466790867`*^9, 
   3.812916947682329*^9, 3.8129174192266617`*^9, 3.8129881158673277`*^9, 
   3.812989268591963*^9, 3.8129967161957736`*^9, 3.8129977445393224`*^9, 
   3.8141223024377265`*^9, 3.8189468076140966`*^9, 3.8203324606549544`*^9, 
   3.8203354583651915`*^9, 3.8203381342162104`*^9, 3.8789975573421497`*^9, 
   3.935256272971159*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"92488c51-f977-0d4a-a1b2-1b33c411ccfa"]
}, Open  ]],
Cell["\<\
The opposite occurs for people who are more frugal. Suppose your personal \
spending restraint eliminates \[OpenCurlyDoubleQuote]Credit Card\
\[CloseCurlyDoubleQuote] and \[OpenCurlyDoubleQuote]Travel\
\[CloseCurlyDoubleQuote]? There is a net positive balance at the end of the \
month.\
\>", "Text",
 CellChangeTimes->{{3.8119762143116503`*^9, 3.8119762927584*^9}, {
  3.812036666198455*^9, 3.812036667506518*^9}, {3.8120471608326817`*^9, 
  3.8120471650067472`*^9}, {3.820332573177676*^9, 
  3.82033259020337*^9}},ExpressionUUID->"d1fd06be-9243-40b9-8e51-\
99e7d8c630e6"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ds", "[", 
   RowBox[{"All", ",", "\"\<credit\>\""}], "]"}], "//", 
  "Total"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ds", "[", 
     RowBox[{"All", ",", "\"\<debit\>\""}], "]"}], "//", "Total"}], ")"}], 
  "-", 
  RowBox[{"Plus", "@@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"ds", "[", 
       RowBox[{"#", ",", "\"\<debit\>\""}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"9", ",", "15"}], "}"}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"%%", "-", "%"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8119763201000214`*^9, 3.8119764001490235`*^9}, 
   3.8120377216191845`*^9, 3.8120398235242267`*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"f9b5ea1f-87a3-48f6-a859-1afe0a70ad5e"],
Cell[BoxData["6000.`"], "Output",
 CellChangeTimes->{{3.8119763289954324`*^9, 3.811976401059086*^9}, 
   3.812036404973611*^9, 3.812037722950315*^9, 3.8120383710531282`*^9, 
   3.81203984322338*^9, 3.812051610511016*^9, 3.812061087180682*^9, 
   3.8121052332757597`*^9, 3.812199709538908*^9, 3.812208387315299*^9, 
   3.8122251175913696`*^9, 3.81228812041115*^9, {3.812319433851719*^9, 
   3.8123194558494987`*^9}, 3.812396064950965*^9, 3.812397198762268*^9, {
   3.812397300649624*^9, 3.8123973173286867`*^9}, 3.8124808337909956`*^9, 
   3.8124913321346025`*^9, 3.81257993485353*^9, 3.812632233409399*^9, 
   3.8126333420809383`*^9, 3.812633972279872*^9, 3.8126341686490526`*^9, 
   3.812634379949424*^9, 3.812634421591873*^9, 3.812635346722947*^9, 
   3.8129169477501493`*^9, 3.8129174193439445`*^9, 3.812988115917632*^9, 
   3.812989268719446*^9, 3.8129967162603483`*^9, 3.8129977445951843`*^9, 
   3.814122302597054*^9, 3.8189468076609583`*^9, 3.82033246069971*^9, 
   3.8203354583991795`*^9, 3.8203381342920074`*^9, 3.878997557389799*^9, 
   3.9352562729951515`*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"5af0cee3-7597-6242-8400-d8c6d2111a8d"],
Cell[BoxData["5226.17`"], "Output",
 CellChangeTimes->{{3.8119763289954324`*^9, 3.811976401059086*^9}, 
   3.812036404973611*^9, 3.812037722950315*^9, 3.8120383710531282`*^9, 
   3.81203984322338*^9, 3.812051610511016*^9, 3.812061087180682*^9, 
   3.8121052332757597`*^9, 3.812199709538908*^9, 3.812208387315299*^9, 
   3.8122251175913696`*^9, 3.81228812041115*^9, {3.812319433851719*^9, 
   3.8123194558494987`*^9}, 3.812396064950965*^9, 3.812397198762268*^9, {
   3.812397300649624*^9, 3.8123973173286867`*^9}, 3.8124808337909956`*^9, 
   3.8124913321346025`*^9, 3.81257993485353*^9, 3.812632233409399*^9, 
   3.8126333420809383`*^9, 3.812633972279872*^9, 3.8126341686490526`*^9, 
   3.812634379949424*^9, 3.812634421591873*^9, 3.812635346722947*^9, 
   3.8129169477501493`*^9, 3.8129174193439445`*^9, 3.812988115917632*^9, 
   3.812989268719446*^9, 3.8129967162603483`*^9, 3.8129977445951843`*^9, 
   3.814122302597054*^9, 3.8189468076609583`*^9, 3.82033246069971*^9, 
   3.8203354583991795`*^9, 3.8203381342920074`*^9, 3.878997557389799*^9, 
   3.935256272996254*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"8c3e2571-71b4-754e-829e-46f6c0296a7d"],
Cell[BoxData["773.8299999999999`"], "Output",
 CellChangeTimes->{{3.8119763289954324`*^9, 3.811976401059086*^9}, 
   3.812036404973611*^9, 3.812037722950315*^9, 3.8120383710531282`*^9, 
   3.81203984322338*^9, 3.812051610511016*^9, 3.812061087180682*^9, 
   3.8121052332757597`*^9, 3.812199709538908*^9, 3.812208387315299*^9, 
   3.8122251175913696`*^9, 3.81228812041115*^9, {3.812319433851719*^9, 
   3.8123194558494987`*^9}, 3.812396064950965*^9, 3.812397198762268*^9, {
   3.812397300649624*^9, 3.8123973173286867`*^9}, 3.8124808337909956`*^9, 
   3.8124913321346025`*^9, 3.81257993485353*^9, 3.812632233409399*^9, 
   3.8126333420809383`*^9, 3.812633972279872*^9, 3.8126341686490526`*^9, 
   3.812634379949424*^9, 3.812634421591873*^9, 3.812635346722947*^9, 
   3.8129169477501493`*^9, 3.8129174193439445`*^9, 3.812988115917632*^9, 
   3.812989268719446*^9, 3.8129967162603483`*^9, 3.8129977445951843`*^9, 
   3.814122302597054*^9, 3.8189468076609583`*^9, 3.82033246069971*^9, 
   3.8203354583991795`*^9, 3.8203381342920074`*^9, 3.878997557389799*^9, 
   3.935256272996254*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"348e0128-5fb4-5347-8f1e-22203a8e0dde"]
}, Open  ]],
Cell["\<\
Reconciling your bank statement is really an exercise in discipline. A big \
part of discipline is controlling one\[CloseCurlyQuote]s spending. The phrase \
\[OpenCurlyDoubleQuote]living within your means\[CloseCurlyDoubleQuote] is \
often used to describe people who are living on a budget and work hard to \
spend less than they earn. So the act of bank reconciliation brings with it \
the comparison of your spending to your budget. Let\[CloseCurlyQuote]s add a \
budget to our dataset.\
\>", "Text",
 CellChangeTimes->{{3.812028936079998*^9, 3.812028946768048*^9}, {
   3.8120293469333906`*^9, 3.812029367982979*^9}, {3.81202944504282*^9, 
   3.8120295126301527`*^9}, {3.8120295782835045`*^9, 3.812029847781973*^9}, {
   3.8120343360209618`*^9, 3.812034487593789*^9}, 3.812036581958024*^9, {
   3.8120379374366198`*^9, 3.8120379556868544`*^9}, {3.812047198210352*^9, 
   3.812047198782513*^9}, {3.8121996870395064`*^9, 
   3.81219969486561*^9}},ExpressionUUID->"0d8b1ec7-1a47-40b5-b965-\
c2d967ff2249"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"budget", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "750.00"}], ",", 
     RowBox[{"-", "1500.00"}], ",", 
     RowBox[{"-", "150.00"}], ",", 
     RowBox[{"-", "250.00"}], ",", 
     RowBox[{"-", "125.00"}], ",", 
     RowBox[{"-", "100.00"}], ",", 
     RowBox[{"-", "500.00"}], ",", 
     RowBox[{"-", "500.00"}], ",", "0", ",", 
     RowBox[{"-", "750.00"}], ",", 
     RowBox[{"-", "625.00"}], ",", 
     RowBox[{"-", "200.00"}], ",", 
     RowBox[{"-", "350.00"}], ",", 
     RowBox[{"-", "100.00"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"ds1", "=", 
  RowBox[{"ds", "[", 
   RowBox[{
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Append", "[", 
        RowBox[{"#1", ",", 
         RowBox[{"\"\<budget\>\"", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{"#", ",", "budget"}], "}"}]}], "]"}], "&"}], "]"}]}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.812035362952307*^9, 3.8120354797110977`*^9}, 
   3.8120365559088917`*^9, 3.8120379739536157`*^9, {3.812038039898591*^9, 
   3.8120380447204924`*^9}, {3.812047225755548*^9, 3.8120472773101854`*^9}, {
   3.812997448701602*^9, 3.8129974627977943`*^9}, {3.8129975987240467`*^9, 
   3.812997611509522*^9}, 3.812997669373313*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"c74ea1c6-deda-482a-be98-8cc060bf6503"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Paycheck", "debit" -> 
        0, "credit" -> 3000., "budget" -> 0|>, <|
       "rec no" -> 2, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Taxes", "debit" -> 
        745., "credit" -> 0, "budget" -> -750.|>, <|
       "rec no" -> 3, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Rent", "debit" -> 
        1500., "credit" -> 0, "budget" -> -1500.|>, <|
       "rec no" -> 4, "date" -> 
        DateObject[{2020, 11, 2}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Utilities", "debit" -> 
        143.75, "credit" -> 0, "budget" -> -150.|>, <|
       "rec no" -> 5, "date" -> 
        DateObject[{2020, 11, 4}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Groceries", "debit" -> 
        244.8, "credit" -> 0, "budget" -> -250.|>, <|
       "rec no" -> 6, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Restaurant", "debit" -> 
        127.6, "credit" -> 0, "budget" -> -125.|>, <|
       "rec no" -> 7, "date" -> 
        DateObject[{2020, 11, 7}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Restaurant", "debit" -> 
        85.96, "credit" -> 0, "budget" -> -100.|>, <|
       "rec no" -> 8, "date" -> 
        DateObject[{2020, 11, 10}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Student Loan Pmt", 
        "debit" -> 497.33, "credit" -> 0, "budget" -> -500.|>, <|
       "rec no" -> 9, "date" -> 
        DateObject[{2020, 11, 15}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Credit Card", 
        "debit" -> 510.88, "credit" -> 0, "budget" -> -500.|>, <|
       "rec no" -> 10, "date" -> 
        DateObject[{2020, 11, 15}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Paycheck", "debit" -> 
        0, "credit" -> 3000., "budget" -> 0|>, <|
       "rec no" -> 11, "date" -> 
        DateObject[{2020, 11, 1}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Taxes", "debit" -> 
        755., "credit" -> 0, "budget" -> -750.|>, <|
       "rec no" -> 12, "date" -> 
        DateObject[{2020, 11, 17}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Hotel", "debit" -> 
        575.21, "credit" -> 0, "budget" -> -625.|>, <|
       "rec no" -> 13, "date" -> 
        DateObject[{2020, 11, 25}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Netflix & other", 
        "debit" -> 204.67, "credit" -> 0, "budget" -> -200.|>, <|
       "rec no" -> 14, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Amazon", "debit" -> 
        346.85, "credit" -> 0, "budget" -> -350.|>, <|
       "rec no" -> 15, "date" -> 
        DateObject[{2020, 11, 5}, "Day", "Gregorian", None, "UT", {
          "Month", "/", "Day", "/", "Year"}], "item" -> "Travel", "debit" -> 
        505., "credit" -> 0, "budget" -> -100.|>}, "AllowEmbedding" -> True, 
     "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1, {All, "budget"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[75], "item" -> 
            TypeSystem`PackageScope`AtomShape[179.20000000000002`], "debit" -> 
            TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60], "budget" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 6, {All}]], 15, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "rec no", "date", "item", "debit", "credit", "budget"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1, {All, "budget"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[75], "item" -> 
            TypeSystem`PackageScope`AtomShape[179.20000000000002`], "debit" -> 
            TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60], "budget" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 6, {All}]], 15, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "rec no", "date", "item", "debit", "credit", "budget"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[DateObject], 
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Path" -> {}, "DisplayedRowCount" -> 
     15, "DisplayedColumnCount" -> 6, "DataRowCount" -> 15, "DataColumnCount" -> 
     6, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["budget", 
                  Style[
                  "budget", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "budget"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "budget"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["745.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-750.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Rent", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-1500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["4"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/02/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Utilities", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["143.75"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-150.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["5"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/04/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Groceries", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["244.8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-250.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["127.6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-125.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["7"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/07/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["85.96"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-100.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/10/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Student Loan Pmt", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["497.33"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["9"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/15/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Credit Card", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["510.88"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["10"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/15/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["11"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/01/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["755.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-750.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/17/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Hotel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["575.21"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-625.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["13"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/25/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Netflix & other", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["204.67"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-200.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["14"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Amazon", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["346.85"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-350.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["\"11/05/2020\""], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{75, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Travel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["505.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-100.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{
       519.4320017814637, {210.41803320312508`, 216.14996679687508`}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{
      519.4320017814637, {210.41803320312508`, 216.14996679687508`}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.812035516483137*^9, 3.812035564131241*^9, 3.8120364127514524`*^9, 
   3.812036561013136*^9, 3.812037975245251*^9, 3.812038045876734*^9, 
   3.8120383753243933`*^9, 3.812047228473304*^9, 3.812047277807416*^9, 
   3.8120516106935267`*^9, 3.8120610873648496`*^9, 3.812105233567977*^9, 
   3.8121997096859136`*^9, 3.8122083874891243`*^9, 3.8122251177913094`*^9, 
   3.8122881205659914`*^9, {3.8123194339938316`*^9, 3.812319456005082*^9}, 
   3.812396065127858*^9, 3.812397199237003*^9, 3.8123973174709463`*^9, 
   3.8124808339483643`*^9, 3.812491332319109*^9, 3.8125799351030636`*^9, 
   3.8126322335959086`*^9, 3.8126333422654743`*^9, 3.8126339724724813`*^9, 
   3.8126341688420486`*^9, 3.812634380138088*^9, 3.812634421792672*^9, 
   3.81263534697729*^9, 3.8129169479206905`*^9, 3.812917419508481*^9, 
   3.812988116068906*^9, 3.81298926888601*^9, 3.8129967163904886`*^9, 
   3.812996784642203*^9, {3.812997438748847*^9, 3.8129974639814568`*^9}, 
   3.812997612681464*^9, 3.812997670178548*^9, 3.812997744738449*^9, 
   3.8141223028054514`*^9, 3.8189468078275137`*^9, 3.8203324608780355`*^9, 
   3.820335458537098*^9, 3.8203381345223913`*^9, 3.8789975574775724`*^9, 
   3.9352562730431232`*^9},
 TextAlignment->Center,
 CellLabel->"Out[87]=",ExpressionUUID->"87f58d05-2d55-e844-82d7-d122becbc4a8"]
}, Open  ]],
Cell["\<\
It is then easy to compare our actual spending to the budget and see how much \
each actual item varied from the budget\
\>", "Text",
 CellChangeTimes->{{3.812037981687935*^9, 
  3.8120380212038884`*^9}},ExpressionUUID->"5382b45d-8683-4d92-862d-\
f626c7a5c131"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ds2", "=", 
   RowBox[{"ds1", "[", 
    RowBox[{"All", ",", 
     RowBox[{
      RowBox[{"<|", 
       RowBox[{"#", ",", 
        RowBox[{"\"\<variance\>\"", "\[Rule]", 
         RowBox[{"#\"debit\"", "+", "#\"budget\""}]}]}], "|>"}], "&"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ds2", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", 
    RowBox[{"3", ";;", "7"}]}], "]"}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120359595474057`*^9, 3.8120360425441046`*^9}, {
   3.8120360776971827`*^9, 3.812036180717901*^9}, {3.812990436497428*^9, 
   3.8129904930731926`*^9}, {3.812990666220978*^9, 3.812990715970908*^9}, {
   3.8129908484480734`*^9, 3.812990947906311*^9}, {3.812990986197445*^9, 
   3.812991008237295*^9}, {3.8129975006360292`*^9, 3.8129975217826023`*^9}, {
   3.8129976295020556`*^9, 3.81299769165199*^9}, 3.812997829528963*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"2f287112-5c34-4122-b72d-f6459aaccef6"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "item" -> "Paycheck", "debit" -> 0, "credit" -> 3000., "budget" -> 0, 
        "variance" -> 0|>, <|
       "item" -> "Taxes", "debit" -> 745., "credit" -> 0, "budget" -> -750., 
        "variance" -> -5.|>, <|
       "item" -> "Rent", "debit" -> 1500., "credit" -> 0, "budget" -> -1500., 
        "variance" -> 0.|>, <|
       "item" -> "Utilities", "debit" -> 143.75, "credit" -> 0, 
        "budget" -> -150., "variance" -> -6.25|>, <|
       "item" -> "Groceries", "debit" -> 244.8, "credit" -> 0, 
        "budget" -> -250., "variance" -> -5.199999999999989|>, <|
       "item" -> "Restaurant", "debit" -> 127.6, "credit" -> 0, 
        "budget" -> -125., "variance" -> 2.5999999999999943`|>, <|
       "item" -> "Restaurant", "debit" -> 85.96, "credit" -> 0, 
        "budget" -> -100., "variance" -> -14.040000000000006`|>, <|
       "item" -> "Student Loan Pmt", "debit" -> 497.33, "credit" -> 0, 
        "budget" -> -500., "variance" -> -2.670000000000016|>, <|
       "item" -> "Credit Card", "debit" -> 510.88, "credit" -> 0, 
        "budget" -> -500., "variance" -> 10.879999999999995`|>, <|
       "item" -> "Paycheck", "debit" -> 0, "credit" -> 3000., "budget" -> 0, 
        "variance" -> 0|>, <|
       "item" -> "Taxes", "debit" -> 755., "credit" -> 0, "budget" -> -750., 
        "variance" -> 5.|>, <|
       "item" -> "Hotel", "debit" -> 575.21, "credit" -> 0, "budget" -> -625.,
         "variance" -> -49.789999999999964`|>, <|
       "item" -> "Netflix & other", "debit" -> 204.67, "credit" -> 0, 
        "budget" -> -200., "variance" -> 4.6699999999999875`|>, <|
       "item" -> "Amazon", "debit" -> 346.85, "credit" -> 0, 
        "budget" -> -350., "variance" -> -3.1499999999999773`|>, <|
       "item" -> "Travel", "debit" -> 505., "credit" -> 0, "budget" -> -100., 
        "variance" -> 405.|>}, "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1, {All, "budget"} -> 1, {All, "variance"} -> 
        1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "item" -> TypeSystem`PackageScope`AtomShape[179.20000000000002`], 
            "debit" -> TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60], "budget" -> 
            TypeSystem`PackageScope`AtomShape[60], "variance" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 15, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"item", "debit", "credit", "budget", "variance"}, {
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1, {All, "budget"} -> 1, {All, "variance"} -> 
        1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "item" -> TypeSystem`PackageScope`AtomShape[179.20000000000002`], 
            "debit" -> TypeSystem`PackageScope`AtomShape[60], "credit" -> 
            TypeSystem`PackageScope`AtomShape[60], "budget" -> 
            TypeSystem`PackageScope`AtomShape[60], "variance" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 15, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"item", "debit", "credit", "budget", "variance"}, {
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real], 
         TypeSystem`Atom[Real]}], 15], "Path" -> {}, "DisplayedRowCount" -> 
     15, "DisplayedColumnCount" -> 5, "DataRowCount" -> 15, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["budget", 
                  Style[
                  "budget", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "budget"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "budget"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["variance", 
                  Style[
                  "variance", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "variance"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "variance"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["745.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-750.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-5.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Rent", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["1500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-1500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Utilities", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["143.75"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-150.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-6.25"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Groceries", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["244.8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-250.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-5.2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["127.6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-125.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["2.6"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Restaurant", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["85.96"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-100.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-14.04"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Student Loan Pmt", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["497.33"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-2.67"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Credit Card", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["510.88"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-500.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["10.88"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Paycheck", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3000.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Taxes", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["755.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-750.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Hotel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["575.21"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-625.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-49.79"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Netflix & other", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["204.67"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-200.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4.67"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Amazon", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["346.85"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-350.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-3.15"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Travel", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{179.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["505.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-100.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["budget"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["405.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["variance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{
       460.20000000000005`, {210.41803320312508`, 216.14996679687508`}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{
      460.20000000000005`, {210.41803320312508`, 216.14996679687508`}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.8129909418307652`*^9, 3.8129909488245077`*^9}, {
   3.812990996591251*^9, 3.8129910089887495`*^9}, 3.8129967168645735`*^9, 
   3.812997153860981*^9, {3.8129975134945*^9, 3.812997522858354*^9}, {
   3.8129976349525986`*^9, 3.8129976925889463`*^9}, 3.8129977450974903`*^9, 
   3.8129978302244825`*^9, 3.8141223033835163`*^9, 3.8189468086506796`*^9, 
   3.820332461317606*^9, 3.820335459015192*^9, 3.820338134990642*^9, 
   3.8789975576459107`*^9, 3.9352562731653233`*^9},
 TextAlignment->Center,
 CellLabel->"Out[89]=",ExpressionUUID->"9d16f14e-981d-2341-a5f7-ee329b77f793"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"ds2", "[", 
   RowBox[{"All", ",", "\"\<variance\>\""}], "]"}], "//", "Total"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.81203645803289*^9, 3.81203653133853*^9}, {
  3.812038116585415*^9, 3.8120381167383633`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"7d0aa229-24e1-4edb-8391-f469e96098c8"],
Cell[BoxData["342.05`"], "Output",
 CellOpen->False,
 CellChangeTimes->{{3.8120364614913187`*^9, 3.8120364939751577`*^9}, 
   3.8120365322612457`*^9, 3.8120365684595823`*^9, 3.8120380850684595`*^9, 
   3.8120381175694375`*^9, 3.812038382742386*^9, 3.8120385912404065`*^9, 
   3.8120472883239965`*^9, 3.812051611726115*^9, 3.812061088351589*^9, 
   3.8121052345623198`*^9, 3.8121997105734816`*^9, 3.812208388556482*^9, 
   3.812225118776537*^9, 3.812288121437067*^9, {3.812319434871793*^9, 
   3.81231945693407*^9}, 3.812396066622204*^9, 3.8123971996291833`*^9, 
   3.812397318484496*^9, 3.812480834792756*^9, 3.812491333319435*^9, 
   3.8125799360710764`*^9, 3.812632234592514*^9, 3.8126333433704967`*^9, 
   3.8126339735481033`*^9, 3.8126341699801083`*^9, 3.8126343810903425`*^9, 
   3.8126344229286385`*^9, 3.812635347998539*^9, 3.812916949042592*^9, 
   3.812917420616672*^9, 3.8129881170151987`*^9, 3.812989269989946*^9, 
   3.812996717350284*^9, 3.8129976994319763`*^9, 3.8129977454015827`*^9, 
   3.8141223037605147`*^9, 3.818946809126174*^9, 3.8203324616244125`*^9, 
   3.8203354593074255`*^9, 3.8203381353649893`*^9, 3.878997557761965*^9, 
   3.9352562732485847`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"e365345b-26f9-aa42-8ffd-214f93b3568c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["A dedicated savings plan", "Section",
 CellChangeTimes->{{3.811963022105959*^9, 3.811963044487096*^9}, {
  3.812053911537148*^9, 
  3.812053917912834*^9}},ExpressionUUID->"9c233cee-06d2-431c-8624-\
eb8fd4653c26"],
Cell[TextData[{
 "Eliminating credit card and travel saves $1,015.90. Such a spending \
reduction is dramatic. It is 1/6 of your gross income in this example. More \
depressing is the fact that it is nearly a quarter of your net income after \
taxes. To not spend $1,000 is a lot of deprivation. Going without all those \
credit card purchases and travel takes a lot of the fun out of life. Later we \
will become more formal about how these choices are made. For now we will \
reduce the spending-budget difference in the next example to make it more \
\"livable\" and realistic.\n\nSuppose you are very disciplined, adjust all \
your spending in various ways, and are certain that you have $50 remaining \
each month. There is a very famous  book written nearly 100 years ago about a \
time 4,000 years ago, ",
 StyleBox["The ",
  FontVariations->{"Underline"->True}],
 StyleBox[ButtonBox["Richest Man in Babylon",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/The_Richest_Man_in_Babylon#:~:text=The%\
20Richest%20Man%20in%20Babylon%20is%20a%201926%20book%20by,classic%20of%\
20personal%20financial%20advice."], None},
  ButtonNote->
   "https://en.wikipedia.org/wiki/The_Richest_Man_in_Babylon#:~:text=The%\
20Richest%20Man%20in%20Babylon%20is%20a%201926%20book%20by,classic%20of%\
20personal%20financial%20advice."],
  FontVariations->{"Underline"->True}],
 ", that describes what it means to \"pay yourself first\" by putting aside \
money in savings before giving money to other people. If you work for 40 \
years you will accumulate nearly $60,000 from just that $50 a month if \
interest rates average 4% per annum."
}], "Text",
 CellChangeTimes->{{3.812028936079998*^9, 3.812028946768048*^9}, {
  3.8120293469333906`*^9, 3.812029367982979*^9}, {3.81202944504282*^9, 
  3.8120295126301527`*^9}, {3.8120295782835045`*^9, 3.812029847781973*^9}, {
  3.8120343360209618`*^9, 3.8120344845599604`*^9}, {3.8120398862701063`*^9, 
  3.8120399734740677`*^9}, {3.812040054735011*^9, 3.812040129137817*^9}, {
  3.8120401638126802`*^9, 3.8120401909471583`*^9}, {3.8120402309581523`*^9, 
  3.8120402764125247`*^9}, {3.812047319237681*^9, 3.8120474384804277`*^9}, {
  3.812396250523752*^9, 3.8123962617823677`*^9}, {3.8125800153075876`*^9, 
  3.812580081632474*^9}},ExpressionUUID->"4afd2b14-311d-41e7-b19e-\
c615e95fd24f"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SumOfAnnuity", "[", 
    RowBox[{"n_", ",", "i_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "i"}], ")"}], "n"], "-", "1"}], "i"]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SumOfAnnuity", "[", 
   RowBox[{"480", ",", 
    RowBox[{".04", "/", "12"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<$50 per month at 4% for 40 years becomes $\>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"AccountingForm", "[", 
     RowBox[{
      RowBox[{"%", " ", "50"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"DigitBlock", "\[Rule]", "3"}]}], "]"}], "]"}]}], 
  "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120298555937777`*^9, 3.8120298631219273`*^9}, {
  3.8120301835552254`*^9, 3.8120302099431863`*^9}, {3.812030380329694*^9, 
  3.8120304139158535`*^9}, {3.8120304507520046`*^9, 3.812030507604052*^9}, {
  3.8120308546409516`*^9, 3.812030857768051*^9}, {3.8203326978909163`*^9, 
  3.8203328532410192`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"13cd61c8-49e5-4795-868f-f9f93f540216"],
Cell[BoxData["\<\"$50 per month at 4% for 40 years becomes $59,098.07\"\>"], \
"Print",
 CellChangeTimes->{{3.820332793186417*^9, 3.820332804161268*^9}, {
   3.8203328440541267`*^9, 3.8203328540877323`*^9}, 3.82033545934334*^9, 
   3.8203381354257545`*^9, 3.878997557777779*^9, 3.9352562732642097`*^9},
 CellLabel->
  "During evaluation of \
In[91]:=",ExpressionUUID->"dddd7448-b341-764a-8796-17dba6da3972"]
}, Open  ]],
Cell["\<\
It is likely that you will enjoy periodic salary increases. Suppose those \
increases average 5% annually and you increase your annual contribution to \
savings by the same increment each year. Under those conditions you would \
have nearly $135,000 at the time of retirement. The alert reader will note \
that I have changed from $50 monthly to $600 annually to simplify the \
calculation. With monthly compounding this amount would be more.\
\>", "Text",
 CellChangeTimes->{{3.8120403124481297`*^9, 3.812040372163378*^9}, {
  3.8120414724516163`*^9, 3.8120414828124104`*^9}, {3.812041680433775*^9, 
  3.8120417756835995`*^9}, {3.81204206822577*^9, 3.812042071641716*^9}, {
  3.8120421314075375`*^9, 3.8120421335137887`*^9}, {3.812580107338703*^9, 
  3.812580130558508*^9}},ExpressionUUID->"7c86737e-d727-4d72-98d6-\
a58cd31224b2"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"fvGA", "[", 
    RowBox[{"cf_", ",", "intrt_", ",", "grrt_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"cf", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "intrt"}], ")"}], "n"], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "grrt"}], ")"}], "n"]}], 
     RowBox[{"intrt", "-", "grrt"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fvGA", "[", 
   RowBox[{"600", ",", ".04", ",", ".05", ",", "40"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<$50 per month increased 5% annually and saved at 4% interest for 40 \
years becomes $\>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"AccountingForm", "[", 
     RowBox[{"%", " ", ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"DigitBlock", "\[Rule]", "3"}]}], "]"}], "]"}]}], 
  "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120411727557187`*^9, 3.8120412522997327`*^9}, {
  3.812041294855509*^9, 3.8120413809357815`*^9}, {3.820332907233735*^9, 
  3.8203329421306725`*^9}, {3.8203329961635904`*^9, 3.8203330338068814`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"aeec9646-4684-4041-aa0c-181d68aa9a5b"],
Cell[BoxData["\<\"$50 per month increased 5% annually and saved at 4% \
interest for 40 years becomes $134,338.09\"\>"], "Print",
 CellChangeTimes->{{3.820338160727837*^9, 3.820338169939406*^9}, 
   3.8789975577935104`*^9, 3.9352562732921333`*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"b803a8fb-3fe0-4447-856a-1c99b1ee1fa3"]
}, Open  ]],
Cell["\<\
Perhaps it is useful to know how the answer changes with monthly interest \
compounding. Over that long period of time it adds nearly $5,000\
\>", "Text",
 CellChangeTimes->{{3.812053536863164*^9, 3.812053605898926*^9}, {
  3.812580148588761*^9, 3.812580175768281*^9}, {3.8203330548873415`*^9, 
  3.820333055750491*^9}},ExpressionUUID->"60ebbff9-f43b-4f96-bd12-\
a921115112d7"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"moComp", "[", "sav_", "]"}], ":=", 
  RowBox[{"AccountingForm", "[", 
   RowBox[{
    RowBox[{"Plus", "@@", 
     RowBox[{"(", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"#1", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[".04", "12"]}], ")"}], "#2"]}], "&"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"ConstantArray", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"NestList", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1.05", " ", "#"}], ")"}], "&"}], ",", "sav", ",",
                   "40"}], "]"}], "[", 
                RowBox[{"[", "#", "]"}], "]"}], ",", "12"}], "]"}], "&"}], "/@", 
            RowBox[{"Range", "[", "40", "]"}]}], "]"}], ",", 
          RowBox[{"Range", "[", 
           RowBox[{"480", ",", "1", ",", 
            RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", "2"}], "}"}], ",", 
    RowBox[{"DigitBlock", "\[Rule]", "3"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"moComp", "[", "50", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<$50 per month increased 5% annually and saved at 4% compounded monthly \
for 40 years becomes $\>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"AccountingForm", "[", 
     RowBox[{"%", " ", ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"DigitBlock", "\[Rule]", "3"}]}], "]"}], "]"}]}], 
  "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.81263561332728*^9, 3.8126356598760448`*^9}, {
  3.8203331054441023`*^9, 3.820333190889306*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"1386ddda-3775-4f8e-8cf7-0f6e66aa2752"],
Cell[BoxData["\<\"$50 per month increased 5% annually and saved at 4% \
compounded monthly for 40 years becomes $139,084.57\"\>"], "Print",
 CellChangeTimes->{{3.8203331773669395`*^9, 3.8203331916245594`*^9}, 
   3.8203354594358115`*^9, 3.8203381355424523`*^9, 3.8789975578252573`*^9, 
   3.935256273296135*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"df637b78-bbcf-0a4a-b09e-a83bcc8b22e6"]
}, Open  ]],
Cell[TextData[{
 "One might object that interest rates might not be as high as 4%, which is \
true. But they might also be much higher. ",
 StyleBox[ButtonBox["Over the past 100 years interest rates",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.gobankingrates.com/banking/interest-rates/see-interest-\
rates-last-100-years/"], None},
  ButtonNote->
   "https://www.gobankingrates.com/banking/interest-rates/see-interest-rates-\
last-100-years/"],
  FontVariations->{"Underline"->True}],
 " have varied between near zero and 18%. There are also many different \
interest rates for different types of interest bearing investments. Over the \
next 40 years it is reasonable to assume that interest rates could average \
4%. Another objection might be the risk one takes in achieving any rate of \
return. Generally, higher rates mean higher risk. For our purposes we assume \
that 4% can be earned with security that comes with a guarantee from a \
responsible institution or government."
}], "Text",
 CellChangeTimes->{{3.8120422652164125`*^9, 3.8120425420391207`*^9}, {
  3.812053634259426*^9, 
  3.812053634749598*^9}},ExpressionUUID->"97dc47d7-5bcf-4da5-ab53-\
47ddf6fabf8b"],
Cell["\<\
Other modules deal with probability. There is a place for it here as well. \
Perhaps the most common objection to all of this is that it is boring. People \
who manage their spending and save their money over decades are the plodders \
in our world. They don\[CloseCurlyQuote]t make headlines; they don\
\[CloseCurlyQuote]t appear on television or the cover of fashion magazines. \
Rather than all this tedious saving at virtually guaranteed returns, why don\
\[CloseCurlyQuote]t we just buy lottery tickets and make a bundle fast?\
\>", "Text",
 CellChangeTimes->{{3.812053674518935*^9, 
  3.8120538382142124`*^9}},ExpressionUUID->"c84f1168-f771-4857-8566-\
fb7e651563ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell["Lotteries in the small and the large", "Section",
 CellChangeTimes->{{3.811963022105959*^9, 3.811963044487096*^9}, {
  3.812053954877116*^9, 
  3.8120539608288383`*^9}},ExpressionUUID->"77ae401f-33af-498f-9d73-\
957e825167c3"],
Cell[TextData[{
 "It has been said that government run lotteries are a tax on people who are \
bad at math. There is some truth in that. It is also true that you are \
playing the lottery with your life when you cross a busy street. Perhaps the \
most challenging decision people face is when to take risk and how much. \
Often that is a challenge because risk is hard to measure precisely.\n\nNot \
so with The Lottery. ",
 StyleBox[ButtonBox["Odds of winning are widely available",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.investopedia.com/managing-wealth/worth-playing-lottery/"]\
, None},
  ButtonNote->
   "https://www.investopedia.com/managing-wealth/worth-playing-lottery/"],
  FontVariations->{"Underline"->True}],
 ". It is not uncommon for the odds to be 1 in 200 million, making the chance \
of winning very small"
}], "Text",
 CellChangeTimes->{{3.812053966944688*^9, 3.8120541210314198`*^9}, {
  3.8120612254014983`*^9, 3.8120612549598846`*^9}, {3.8123963789723797`*^9, 
  3.8123963808961473`*^9}, {3.8125802557003446`*^9, 
  3.812580257806414*^9}},ExpressionUUID->"dfa10d76-fd24-4854-9a1e-\
a62716d5883b"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", "200000000."}], "//", "AccountingForm"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120611669879637`*^9, 3.812061208468936*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"75c58cc6-a44e-40c1-bafe-12bb1cad93f2"],
Cell[BoxData[
 TagBox[
  InterpretationBox[
   StyleBox["\<\"0.000000005\"\>",
    ShowStringCharacters->False],
   5.*^-9,
   AutoDelete->True],
  AccountingForm]], "Output",
 CellChangeTimes->{{3.8120611989120235`*^9, 3.812061209535331*^9}, 
   3.812105234997156*^9, 3.812199710859492*^9, 3.812208388997425*^9, 
   3.8122251192897043`*^9, 3.8122881216965466`*^9, {3.8123194353068967`*^9, 
   3.8123194573739896`*^9}, 3.8123960667913747`*^9, 3.8123972000991197`*^9, 
   3.8123973187253866`*^9, 3.8124808350329537`*^9, 3.81249133375826*^9, 
   3.812579936347912*^9, 3.812632234831852*^9, 3.812633344004902*^9, 
   3.8126339740796924`*^9, 3.8126341706153717`*^9, 3.8126343816847725`*^9, 
   3.8126344235063314`*^9, 3.812635348474269*^9, 3.8129169494766517`*^9, 
   3.8129174211509123`*^9, 3.8129881171698103`*^9, 3.812989270434309*^9, 
   3.8129967176037407`*^9, 3.812997745641606*^9, 3.8141223040996037`*^9, 
   3.8189468093599596`*^9, 3.8203324618569393`*^9, 3.8203354594694014`*^9, 
   3.820338135602004*^9, 3.878997561631582*^9, 3.935256273296135*^9},
 CellLabel->
  "Out[100]//AccountingForm=",ExpressionUUID->"b74ac203-47ee-474b-8127-\
240458ab93ea"]
}, Open  ]],
Cell["\<\
However, that is just for one lottery ticket. Suppose a ticket costs $2 and \
you have $50 in your budget (formerly for saving) so you can buy 25 of them. \
The odds improve somewhat\
\>", "Text",
 CellChangeTimes->{{3.812061266482953*^9, 3.812061314518967*^9}, {
  3.820333290116918*^9, 
  3.8203332975857344`*^9}},ExpressionUUID->"04b9ae6c-a851-4184-9da3-\
2109e9be4469"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"25", "/", "200000000."}], "//", "AccountingForm"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120613183165674`*^9, 3.8120613374814806`*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"b57520f2-6897-4d35-befc-446728de853b"],
Cell[BoxData[
 TagBox[
  InterpretationBox[
   StyleBox["\<\"0.000000125\"\>",
    ShowStringCharacters->False],
   1.25*^-7,
   AutoDelete->True],
  AccountingForm]], "Output",
 CellChangeTimes->{{3.812061325016412*^9, 3.8120613382694254`*^9}, 
   3.8121052351003075`*^9, 3.8121997109188766`*^9, 3.8122083891030273`*^9, 
   3.8122251194032726`*^9, 3.8122881217474504`*^9, {3.812319435425488*^9, 
   3.81231945746675*^9}, 3.8123960668176928`*^9, 3.812397200227563*^9, 
   3.812397318784462*^9, 3.8124808350883465`*^9, 3.812491333861108*^9, 
   3.8125799364163275`*^9, 3.8126322348807054`*^9, 3.8126333441569386`*^9, 
   3.8126339742178698`*^9, 3.8126341707641726`*^9, 3.8126343818304434`*^9, 
   3.8126344236662245`*^9, 3.8126353485829763`*^9, 3.812916949560091*^9, 
   3.8129174212567205`*^9, 3.812988117193739*^9, 3.8129892705350404`*^9, 
   3.812996717663617*^9, 3.8129977456883917`*^9, 3.8141223041858807`*^9, 
   3.81894680939904*^9, 3.8203324618937826`*^9, 3.8203354595023193`*^9, 
   3.820338135666795*^9, 3.8789975616680326`*^9, 3.9352562733117847`*^9},
 CellLabel->
  "Out[101]//AccountingForm=",ExpressionUUID->"0594a6d6-04f6-da46-8d1f-\
4bf9d5ce029a"]
}, Open  ]],
Cell["\<\
This is still pretty small. And it does not change from week to week. Only \
buying multiple tickets for the same lottery changes the odds. Suppose you \
are willing to put your entire life commitment to saving ($50 per month for \
480 months) in a single lottery. You could buy 25 x 480 = 12,000 tickets for \
$24,000. The odds are then\
\>", "Text",
 CellChangeTimes->{{3.812061346713131*^9, 3.812061473012513*^9}, {
  3.81206265760183*^9, 3.8120626658916035`*^9}, {3.81258029975178*^9, 
  3.8125803012147474`*^9}, {3.8203333517578187`*^9, 
  3.820333355907801*^9}},ExpressionUUID->"55ba1c29-c591-4499-8354-\
06a6533a1b61"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"100", " ", 
   FractionBox[
    RowBox[{"25", " ", "480"}], "200000000."]}], "//", 
  "AccountingForm"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8120614496124477`*^9, 3.812061496904507*^9}, {
  3.8120615271375666`*^9, 3.812061547571508*^9}, {3.812062695877587*^9, 
  3.812062708649501*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"e743e987-1845-4a18-976a-818b26107a5f"],
Cell[BoxData[
 TagBox[
  InterpretationBox[
   StyleBox["\<\"0.006\"\>",
    ShowStringCharacters->False],
   0.006,
   AutoDelete->True],
  AccountingForm]], "Output",
 CellChangeTimes->{
  3.812061455503445*^9, 3.812061498283573*^9, {3.812061536455326*^9, 
   3.8120615480997214`*^9}, {3.81206270202722*^9, 3.8120627095961666`*^9}, 
   3.8121052351120405`*^9, 3.8121997109787803`*^9, 3.812208389208971*^9, 
   3.8122251195225334`*^9, 3.812288121805264*^9, {3.8123194355461206`*^9, 
   3.812319457565485*^9}, 3.81239606684461*^9, 3.8123972003362026`*^9, 
   3.8123973188343315`*^9, 3.8124808351420565`*^9, 3.8124913339598436`*^9, 
   3.8125799364715137`*^9, 3.8126322349295955`*^9, 3.8126333443104115`*^9, 
   3.812633974359031*^9, 3.81263417090187*^9, 3.8126343819723334`*^9, 
   3.812634423833997*^9, 3.812635348625189*^9, 3.8129169496260233`*^9, 
   3.812917421365141*^9, 3.8129881172198706`*^9, 3.8129892706299505`*^9, 
   3.812996717716901*^9, 3.8129977457409263`*^9, 3.81412230423277*^9, 
   3.8189468094536266`*^9, 3.820332461930831*^9, 3.820335459535842*^9, 
   3.8203381357257905`*^9, 3.878997561699401*^9, 3.9352562733274097`*^9},
 CellLabel->
  "Out[102]//AccountingForm=",ExpressionUUID->"f63b55e6-413c-434c-abe6-\
c3bb294bb890"]
}, Open  ]],
Cell[TextData[{
 "Your odds are now six one-thousandths of a percent. Here is a sobering \
question: Assume you have available $24,000. Are you willing to bet all of it \
for a six one-thousandths of a percent chance at winning ",
 StyleBox["anything",
  FontSlant->"Italic"],
 "? Questions like these should stimulate your thinking about your preference \
for risk when your entire financial life is involved. However, it may be said \
that your life is the sum of your choices. Thus, a weekly choice adds up over \
time."
}], "Text",
 CellChangeTimes->{{3.8120615080452833`*^9, 3.812061511377015*^9}, {
  3.812061557399669*^9, 3.8120616119275713`*^9}, {3.812061644398225*^9, 
  3.812061671733604*^9}, {3.812396516235564*^9, 3.8123965308995047`*^9}, {
  3.820333407572555*^9, 
  3.8203334322696342`*^9}},ExpressionUUID->"b7c909d4-b118-4608-9130-\
dc90d8da0d6b"]
}, Open  ]],
Cell[CellGroupData[{
Cell["Finally, the answer to our question", "Section",
 CellChangeTimes->{{3.8120617087474875`*^9, 
  3.812061718423778*^9}},ExpressionUUID->"18911ded-1c18-4f18-8e65-\
989a0f50877f"],
Cell["\<\
Should you balance your checkbook? The answer is not what you might expect.
Notice that we have 15 lines in our database in a typical month. That \
includes, for ease of exposition, some lines that are aggregates (Utilities \
are usually at least two or three, Groceries are multiple trips to the store \
and multiple items, credit card statements have a dozen or more individual \
purchases, likewise for Amazon). In fact, in a 30 day period it would be \
normal to have perhaps 100 transactions. Your working life is about 480 \
months. That is 48,000 data points. 
Companies pay real money to talented programmers to figure out what a segment \
of the population is doing based on that segment producing 48,000 \
transactions. Whose life is it? It is yours and it constitutes a database, \
just stretched over time. Maybe you do not actually reconcile your checkbook. \
But there are good reasons for paying attention to your personal finances. \
The steady drip, drip, drip of deficit months takes its toll. Someday you \
will be old and either told to retire or want to retire. A lifetime of good \
habits pays off. If you don\[CloseCurlyQuote]t smoke, you eat properly and \
exercise, your body is healthy in its later years. If you budget and control \
your spending, your finances are healthy at retirement. Every major \
corporation, every successful investor, every well-respected organization \
keeps financial records very similar to your checkbook. They all follow the \
data produced by those records to make sure things are running well. Your \
finances deserve the same. It is your life, your data and you should be the \
first to know what it contains and what it says about your habits.\
\>", "Text",
 CellChangeTimes->{{3.812061731305676*^9, 3.8120623805515666`*^9}, {
  3.8120627387404857`*^9, 3.812062751001957*^9}, {3.8120627943090754`*^9, 
  3.812062850887557*^9}, {3.812580326228435*^9, 
  3.812580335655752*^9}},ExpressionUUID->"83bbb112-7539-4344-b969-\
99c5f9a17f46"]
}, Open  ]],
Cell[CellGroupData[{
Cell["The functional relationship between choices and money", "Section",
 CellChangeTimes->{{3.811963083831565*^9, 
  3.81196311074503*^9}},ExpressionUUID->"c9f817ea-4368-4a42-a24d-\
558dc43e5824"],
Cell["\<\
Moving from the practical to the theoretical, we look for general rules we \
can use to measure and predict outcomes. To introduce this we will simplify \
both our dataset structure and time itself. We will assume (1) you only \
purchase three items, food, clothing and shelter (f, c, s); and (2) you live \
an ordered existence within each of four distinct ten-year time periods. Your \
purchase pattern and behavior is a function of location. That is, where you \
live is the independent variable which influences the response variables f, \
c, and s. We will expand all of this later to make it more realistic. Model \
building must start slow and simple.
The framework of our new dataset appears below where only spending is shown. \
Income is another issue.\
\>", "Text",
 CellChangeTimes->{{3.812105658911883*^9, 3.812105675771945*^9}, {
  3.812105753830351*^9, 3.8121061030747776`*^9}, {3.8123966511929817`*^9, 
  3.8123966570158577`*^9}, {3.8125803508572674`*^9, 3.812580386255081*^9}, {
  3.82033352223742*^9, 
  3.820333524735402*^9}},ExpressionUUID->"872c9368-f1f9-45bd-820c-\
e12222502528"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"list2", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\"\<recurring\>\"", ",", "\"\<Food\>\"", ",", 
       RowBox[{"f", "[", "x", "]"}], ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "\"\<recurring\>\"", ",", "\"\<Clothing\>\"", ",", 
       RowBox[{"c", "[", "x", "]"}], ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "\"\<recurring\>\"", ",", "\"\<Shelter\>\"", ",", 
       RowBox[{"s", "[", "x", "]"}], ",", "0"}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data2", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"convertListToAssociation", ",", "list2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dsFct", "=", 
  RowBox[{"Dataset", "[", "data2", "]"}]}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8119660787005634`*^9, 3.8119661645723495`*^9}, {
   3.8119661950324326`*^9, 3.8119663018714733`*^9}, {3.8119663415901055`*^9, 
   3.8119663426310596`*^9}, {3.8119665040150995`*^9, 
   3.8119665048623257`*^9}, {3.8119665714522734`*^9, 
   3.8119666040907745`*^9}, {3.811966805952893*^9, 3.8119668964327087`*^9}, {
   3.8119669286323504`*^9, 3.811967474449873*^9}, {3.8119675077683086`*^9, 
   3.811967528547635*^9}, {3.811967596240568*^9, 3.8119676003965254`*^9}, {
   3.8119740717271624`*^9, 3.811974159082074*^9}, {3.8119741990471563`*^9, 
   3.8119743217477746`*^9}, {3.811974390481864*^9, 3.8119744184063025`*^9}, {
   3.8119744518050327`*^9, 3.8119745084218664`*^9}, {3.8119747365602064`*^9, 
   3.811974853939841*^9}, {3.811975094657608*^9, 3.8119751185435743`*^9}, {
   3.8119751771266975`*^9, 3.811975177187428*^9}, {3.811975442990138*^9, 
   3.8119754467083006`*^9}, {3.8119755447415843`*^9, 3.811975583781081*^9}, {
   3.811975634849144*^9, 3.811975645300458*^9}, {3.812036243700759*^9, 
   3.81203639076326*^9}, 3.812038355155015*^9, {3.812039582205592*^9, 
   3.8120396175441713`*^9}, {3.812104857804793*^9, 3.8121048606421347`*^9}, {
   3.812104896290905*^9, 3.812105073646208*^9}, {3.8121051705985527`*^9, 
   3.812105198561118*^9}, 3.8121052424353485`*^9, {3.81210528150441*^9, 
   3.81210529834695*^9}, {3.8121055497132874`*^9, 3.81210555688024*^9}, {
   3.812105693103429*^9, 3.8121057024064865`*^9}, {3.812396782303916*^9, 
   3.812396785219799*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"75aa2a05-c822-454a-a08b-5a02c3798734"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> "recurring", "item" -> "Food", 
        "debit" -> $CellContext`f[$CellContext`x], "credit" -> 0|>, <|
       "rec no" -> 2, "date" -> "recurring", "item" -> "Clothing", 
        "debit" -> $CellContext`c[$CellContext`x], "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> "recurring", "item" -> "Shelter", 
        "debit" -> $CellContext`s[$CellContext`x], "credit" -> 0|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Path" -> {}, "DisplayedRowCount" -> 
     3, "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Food", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"f", "[", "x", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Clothing", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"c", "[", "x", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Shelter", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"s", "[", "x", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.8121052352660775`*^9, 3.8121052431215982`*^9}, 
   3.8121052995344067`*^9, 3.8121055741833353`*^9, 3.8121057041028132`*^9, 
   3.812199711068327*^9, 3.8122083893247023`*^9, 3.8122251196548233`*^9, 
   3.8122881218910255`*^9, {3.812319435652882*^9, 3.8123194576871643`*^9}, 
   3.812396066938694*^9, 3.8123967915504513`*^9, 3.8123972004656487`*^9, 
   3.812397318919121*^9, 3.812480835227454*^9, 3.8124913340593834`*^9, 
   3.812579936566926*^9, 3.8126322350181646`*^9, 3.8126333445234814`*^9, 
   3.8126339745165963`*^9, 3.8126341711143103`*^9, 3.812634382181487*^9, 
   3.812634424037365*^9, 3.812635348680585*^9, 3.8129169497129683`*^9, 
   3.8129174215057116`*^9, 3.812988117366255*^9, 3.812989270738706*^9, 
   3.8129967177917013`*^9, 3.812997709570268*^9, 3.8129977458057537`*^9, 
   3.8141223043130283`*^9, 3.8189468095415435`*^9, 3.8203324620144825`*^9, 
   3.820335459593397*^9, 3.8203381358341875`*^9, 3.8789975617464895`*^9, 
   3.935256273358656*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[105]=",ExpressionUUID->"c59f43ea-9aa9-d34b-8c0a-e2a1cb9b2877"]
}, Open  ]],
Cell[TextData[{
 "The four ten year time periods are ",
 StyleBox["NOT",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " independent, as we shall see. And, the four locations, {a,b,c,d}, are very \
different. The first of these, a, where you get your first job out of college \
is a small town in rural Minnesota where a large farm implement company hires \
you as the manager of its local retail outlet. Below is the framework for the \
subset of data for that time period in that location where \
\[OpenCurlyDoubleQuote]a\[CloseCurlyDoubleQuote] = Minnesota determines your \
buying habits."
}], "Text",
 CellChangeTimes->{{3.812106127372631*^9, 3.8121063729218407`*^9}, {
  3.812148960233062*^9, 3.8121489605502453`*^9}, {3.8121998054198136`*^9, 
  3.812199807685871*^9}},ExpressionUUID->"0a56ce44-b7cf-44d9-9948-\
c524b3f2fbb9"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"dsOne", "=", 
  RowBox[{"dsFct", "/.", 
   RowBox[{"x", "\[Rule]", "a"}]}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8121057224837613`*^9, 3.8121057298705416`*^9}, {
  3.8123967490747843`*^9, 3.812396749450672*^9}, {3.8123967949008946`*^9, 
  3.812396798716802*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"f17e0700-8a3d-4715-9d87-f7377782921d"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> "recurring", "item" -> "Food", 
        "debit" -> $CellContext`f[$CellContext`a], "credit" -> 0|>, <|
       "rec no" -> 2, "date" -> "recurring", "item" -> "Clothing", 
        "debit" -> $CellContext`c[$CellContext`a], "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> "recurring", "item" -> "Shelter", 
        "debit" -> $CellContext`s[$CellContext`a], "credit" -> 0|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Path" -> {}, "DisplayedRowCount" -> 
     3, "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Food", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"f", "[", "a", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Clothing", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"c", "[", "a", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Shelter", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"s", "[", "a", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.8121057313107615`*^9, 3.812199711314276*^9, 3.8122083896096315`*^9, 
   3.8122251199734735`*^9, 3.8122881221132402`*^9, {3.8123194359477987`*^9, 
   3.81231945894479*^9}, 3.8123960671970634`*^9, 3.812396800203526*^9, 
   3.812397200582751*^9, 3.8123973191603394`*^9, 3.812480835453045*^9, 
   3.8124913343587933`*^9, 3.8125799368268914`*^9, 3.8126322352894573`*^9, 
   3.8126333448154974`*^9, 3.812633974842552*^9, 3.8126341714145756`*^9, 
   3.8126343824707637`*^9, 3.812634424327843*^9, 3.812635348860037*^9, 
   3.812916949936494*^9, 3.8129174218737745`*^9, 3.8129881176229887`*^9, 
   3.8129892710335665`*^9, 3.8129967180106707`*^9, 3.812997745994097*^9, 
   3.8141223045278893`*^9, 3.8189468098177886`*^9, 3.820332462241994*^9, 
   3.820335459787881*^9, 3.8203381360744014`*^9, 3.878997561864357*^9, 
   3.9352562734211464`*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[106]=",ExpressionUUID->"782fb306-4898-e245-9e4a-32030f98b47b"]
}, Open  ]],
Cell["\<\
The specific functional form chosen to model your economics in these first \
ten years is fairly simple, with a single variation occurring when get your \
first salary increase, you marry and start a family.\
\>", "Text",
 CellChangeTimes->{{3.8121064304584885`*^9, 3.812106478111706*^9}, {
   3.812106953734868*^9, 3.8121069760844736`*^9}, 3.812107029524044*^9, {
   3.812148996122361*^9, 3.812149006194602*^9}, {3.812199853009652*^9, 
   3.8121998612254305`*^9}, {3.8125804212525206`*^9, 
   3.8125804266948757`*^9}},ExpressionUUID->"298ac4fc-71a2-4523-a277-\
1c38147c0299"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", "<=", "3"}], ",", "3", ",", "5"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Year\>\"", ",", "\"\<Spending/Income\>\"", ",", "None", ",", 
      "None"}], "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", " ", "None"}], "}"}]}]}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8121064819443116`*^9, 3.8121066443725147`*^9}, {
  3.81210670590427*^9, 3.812106894186326*^9}, {3.812149041681272*^9, 
  3.8121490495649595`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"c20de213-5496-4931-8e44-b3c9cd8c6556"],
Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          NCache[
           Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[2], 
         LineBox[{{1., 3.}, {2., 3.}, {3., 3.}, {4., 3.}, {5., 5.}, {6., 
          5.}, {7., 5.}, {8., 5.}, {9., 5.}, {10., 5.}, {11., 5.}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ]},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
           Annotation[{
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               Rational[7, 360]], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             Line[{{1., 3.}, {2., 3.}, {3., 3.}, {4., 3.}, {5., 5.}, {6., 
              5.}, {7., 5.}, {8., 5.}, {9., 5.}, {10., 5.}, {11., 5.}}]}, 
            "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 11.}, {0., 5.}}, 
            "Frame" -> {{True, False}, {True, False}}, 
            "AxesOrigin" -> {0., 0.}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[
                Rational[7, 360]], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 11.}, {0., 5.}}, 
           "Frame" -> {{True, False}, {True, False}}, 
           "AxesOrigin" -> {0., 0.}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[
               Rational[7, 360]], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{}, {}, 
       Annotation[{
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[
           Rational[7, 360]], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[{{1., 3.}, {2., 3.}, {3., 3.}, {4., 3.}, {5., 5.}, {6., 5.}, {
          7., 5.}, {8., 5.}, {9., 5.}, {10., 5.}, {11., 5.}}]}, 
        "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 11.}, {0., 5.}}, 
        "Frame" -> {{True, False}, {True, False}}, "AxesOrigin" -> {0., 0.}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[
            Rational[7, 360]], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListLinePlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox[
      TagBox["\"Spending/Income\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox["\"Year\"", HoldForm], TraditionalForm], None}},
  FrameTicks->{{None, None}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
    "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
    "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {0., 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.812106542129202*^9, 3.812106556126997*^9}, {
   3.8121066008563433`*^9, 3.812106645335075*^9}, {3.81210673222584*^9, 
   3.8121068146356945`*^9}, {3.8121068790003915`*^9, 
   3.8121068956970344`*^9}, {3.812149043495206*^9, 3.812149050539835*^9}, 
   3.8121997116012287`*^9, 3.8122083899628096`*^9, 3.812225120390247*^9, 
   3.8122881224893866`*^9, {3.812319436264763*^9, 3.8123194593994365`*^9}, 
   3.8123960675759125`*^9, 3.8123972008462543`*^9, 3.8123973194745364`*^9, 
   3.8124808358476925`*^9, 3.8124913347433147`*^9, 3.812579937280678*^9, 
   3.812632235724538*^9, 3.8126333452123413`*^9, 3.8126339752234344`*^9, 
   3.8126341718131804`*^9, 3.812634382759959*^9, 3.81263442473185*^9, 
   3.8126353491932297`*^9, 3.8129169503707123`*^9, 3.812917422244836*^9, 
   3.8129881180337243`*^9, 3.81298927139377*^9, 3.8129967183289723`*^9, 
   3.8129977463032703`*^9, 3.8141223048966618`*^9, 3.8189468102609034`*^9, 
   3.820332462745438*^9, 3.8203354599810658`*^9, 3.8203381365252914`*^9, 
   3.87899756210385*^9, 3.9352562736355705`*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[107]=",ExpressionUUID->"d85bd0dd-556e-2946-9c42-abad7e454590"]
}, Open  ]],
Cell["\<\
[A side comment] There are various mathematical conveniences that, if \
observed, makes for well-behaved and useful models. One of these is avoiding \
sharp corners or \[OpenCurlyDoubleQuote]kinks\[CloseCurlyDoubleQuote] in a \
plot of your function as you see above. Analysis is easier when curves are \
smooth. Below you see an example with a slider to allow for introducing \
variety.\
\>", "Text",
 CellChangeTimes->{{3.81210769512201*^9, 3.812107852419025*^9}, {
   3.8121169353350906`*^9, 3.8121169382790556`*^9}, {3.8126322755552397`*^9, 
   3.812632291534955*^9}, 
   3.9352078017732334`*^9},ExpressionUUID->"51fe29db-04b8-4724-84d6-\
88496b6e9db9"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "a"}], " ", "x"}], "]"}]}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"Ticks", "\[Rule]", "None"}], ",", " ", 
     RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "2", ",", "\"\<shape factor\>\""}], "}"}], ",", ".5", 
     ",", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"Paneled", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.82033819346062*^9, 3.820338197450123*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"8cd290b7-dc0c-4dec-996e-13da277b99d6"],
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2, "shape factor"}, 0.5, 6, ControlType -> 
      Manipulator}}, Typeset`size$$ = {
    360., {108.38015117810608`, 114.11208477185608`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> Plot[
        Evaluate[
        1/(1 + Exp[(-$CellContext`a$$) $CellContext`x])], {$CellContext`x, -5,
          5}, PlotStyle -> Red, Ticks -> None, Axes -> None], 
      "Specifications" :> {{{$CellContext`a$$, 2, "shape factor"}, 0.5, 6, 
         Appearance -> "Labeled"}}, "Options" :> {Paneled -> False}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{380., {140.11599102185608`, 145.84792461560608`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.812107568358035*^9, 3.8121997116764536`*^9, 3.8122083900677013`*^9, 
   3.8122251205611935`*^9, 3.812288122647169*^9, {3.8123194363873105`*^9, 
   3.812319459529923*^9}, 3.812396067643056*^9, 3.8123972009777575`*^9, 
   3.8123973195927987`*^9, 3.8124808360051117`*^9, 3.8124913348762074`*^9, 
   3.812579937427456*^9, 3.812632235886095*^9, 3.812633345380706*^9, 
   3.8126339753762045`*^9, 3.812634171954294*^9, 3.8126343828954444`*^9, 
   3.812634424898519*^9, 3.8126353492241683`*^9, 3.812916950438959*^9, 
   3.8129174223754187`*^9, 3.812988118189412*^9, 3.8129892715218005`*^9, 
   3.812996718492673*^9, 3.8129977463471537`*^9, 3.8141223050453587`*^9, 
   3.8189468102995806`*^9, 3.8203324628722453`*^9, 3.8203354600117035`*^9, 
   3.8203381366735334`*^9, 3.8203381982990055`*^9, 3.878997562150971*^9, 
   3.93525627365119*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[108]=",ExpressionUUID->"6713e941-2f33-fa47-a9ac-33b156d8f400"]
}, Open  ]],
Cell["\<\
Time passes. At the end of your tenth year you have impressed your company \
and they promote you to a large facility in Baton Rouge, LA. The transfer \
brings with it many changes. Housing in a city is more expensive so you buy a \
condo instead of renting a house as you did in MN. Your clothing needs are \
starkly different in the humid semi-tropical area where you relocate. Nearer \
the ocean you eat more seafood. You prosper in b, your new location.\
\>", "Text",
 CellChangeTimes->{{3.8121169696267767`*^9, 3.8121170152448807`*^9}, {
  3.8121170861433487`*^9, 3.812117130602417*^9}, {3.812118437090068*^9, 
  3.8121185455889087`*^9}, {3.8121999551026745`*^9, 3.8121999693324194`*^9}, {
  3.812580464549923*^9, 
  3.8125804764663067`*^9}},ExpressionUUID->"e4eb7144-c2d8-4758-be05-\
cf5fa9ef4c97"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"dsTwo", "=", 
  RowBox[{"dsFct", "/.", 
   RowBox[{"x", "\[Rule]", "b"}]}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8121057224837613`*^9, 3.8121057298705416`*^9}, 
   3.8121079175196285`*^9, {3.8123966870666246`*^9, 3.8123966918123703`*^9}, {
   3.812396742187255*^9, 3.8123967426043215`*^9}, 3.8123968207951465`*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"ffabc6a2-fa47-40a2-89e8-e660979f4405"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> "recurring", "item" -> "Food", 
        "debit" -> $CellContext`f[$CellContext`b], "credit" -> 0|>, <|
       "rec no" -> 2, "date" -> "recurring", "item" -> "Clothing", 
        "debit" -> $CellContext`c[$CellContext`b], "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> "recurring", "item" -> "Shelter", 
        "debit" -> $CellContext`s[$CellContext`b], "credit" -> 0|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Path" -> {}, "DisplayedRowCount" -> 
     3, "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Food", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"f", "[", "b", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Clothing", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"c", "[", "b", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Shelter", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"s", "[", "b", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.8121057313107615`*^9, 3.812107917941023*^9, 3.812199711871936*^9, 
   3.8122083902706623`*^9, 3.8122251207874813`*^9, 3.812288122870633*^9, {
   3.8123194365618114`*^9, 3.812319459740841*^9}, 3.812396067865675*^9, 
   3.812396693379672*^9, 3.81239682164919*^9, 3.8123972011790037`*^9, 
   3.812397319729454*^9, 3.812480836194773*^9, 3.8124913350836296`*^9, 
   3.8125799376511726`*^9, 3.8126322361268682`*^9, 3.8126333457545176`*^9, 
   3.812633975613225*^9, 3.8126341723202724`*^9, 3.8126343831297455`*^9, 
   3.812634425286022*^9, 3.8126353493629713`*^9, 3.8129169506456103`*^9, 
   3.8129174225731564`*^9, 3.812988118360566*^9, 3.8129892717546*^9, 
   3.8129967186462593`*^9, 3.812997746615039*^9, 3.814122305233356*^9, 
   3.8189468105098295`*^9, 3.8203324631469917`*^9, 3.820335460158168*^9, 
   3.820338136923218*^9, 3.878997562312996*^9, 3.935256273698059*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[109]=",ExpressionUUID->"d9c80a16-6a5e-8749-96b9-887d159f6a1b"]
}, Open  ]],
Cell[TextData[{
 "A new functional form may be appropriate for the new you as your career \
takes off. At the 5 year mark you are promoted to regional manager with a big \
salary increase. It just seems like it can\[CloseCurlyQuote]t get any better. \
While spending is our primary focus we must not completely ignore income. The \
plot below indicates a non-decreasing function. Two concepts are important \
here. One is that very few things (nearly none of them in economics or \
personal finance) go up continuously. It is dangerous to assume that \
everything will continue as it has in the past. The second is the subject of \
a very good book reporting research on people who do organise their lives and \
spending well. The book is ",
 StyleBox[ButtonBox["The Millionaire Next Door",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/The_Millionaire_Next_Door"], None},
  ButtonNote->"https://en.wikipedia.org/wiki/The_Millionaire_Next_Door"],
  FontVariations->{"Underline"->True}],
 ButtonBox[".",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/The_Millionaire_Next_Door"], None},
  ButtonNote->"https://en.wikipedia.org/wiki/The_Millionaire_Next_Door"],
 " It describes the important difference between income wealth and asset \
wealth."
}], "Text",
 CellChangeTimes->{{3.8121185622285595`*^9, 3.812118577558179*^9}, {
  3.812148795480538*^9, 3.8121488512791677`*^9}, {3.8121999854077897`*^9, 
  3.8122001645475044`*^9}, {3.812200256598734*^9, 3.8122002565997334`*^9}, {
  3.812200343584496*^9, 3.812200359470581*^9}, {3.812580490079192*^9, 
  3.812580575693322*^9}, {3.8203337318838367`*^9, 
  3.820333807607696*^9}},ExpressionUUID->"fb25e2de-8b91-4390-ad0a-\
cccc2fef8cc4"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{".2", " ", "x"}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Year\>\"", ",", "\"\<Income/Spending\>\"", ",", "None", ",", 
      "None"}], "}"}]}]}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.812148723003863*^9, 3.8121487754313955`*^9}, {
  3.8121488804181137`*^9, 3.8121489272822328`*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"c1b11e85-889a-406d-813e-62c57c2a58b6"],
Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVxXlYjHkAB/AxnaOpma7pmreaXkk6sIjZsf2+icJKrA4lIqWNTY60Tyw6
SYwOFR2KDpGKjn0irU1IqWzLo0WXHLOVWlNjuo/d/ePzfAR+IT8EMBkMhst/
/v/1kMsSBkNK7Mf2FHXGy0i9xm3xJjUpUX2e/umqWEYqrLj9WTwpOTDVGOOf
KCMXAl7kCm2kpGhwy5eBVBlxfOOhc8RbSlR8zocxr8lIaa3v6KdKKalp0vZG
lYzEJhz6rSloiDQnGbxR+Sgj39ikrr/0cphsF7DaG+y/EsHugDK1j3LCMwkO
tWDJyf0ERa2Y2jESInqc9l2LnOSrKy/NvjBJ4pp9lIJSRohZTGJeavoMWdQd
fSQydJRcnwg9ve4uA6sKcjSOuYyR2EWS98tWM+F21OyncIdxwj4fZzL8WAG3
bj2ydft2gvQFJG8rs1FC5ZySFl2rScKt2SXsrlTGPI/njf3CKSJOSONxzFQx
me4d5YhpUh4//ZITx4KXqN6zbMMMETAthafYajCu86+OCJslkpH7GdIwNnKu
b9f02siAPFA7v3VWHQPVtoVnvzBQzMgSR0ZyQCpadspS58BHrV6YEcpFdk3u
UYkdE3FuVxm3VmhiZbRu2MRnJnx9Sp/UDGqC2+fZ65apgO252V1KFVpYKj/p
GL1LEVa/FAZWhWpDMaVoTZ6lEgp0Pv4TZKmD+H2bezGghLWfmc+2DuqAY7lY
a+FTZSRGuOfZ5+tC79e8VQ6ZKii9WTuQ5MmD1Zaeh0WHVTHM1YjnG+qBn1Cd
xw5goccuwfzGH3po7tpgUOE6F/KMYZ39KfqoLjK2veSphs7kA6Fp7gZwfLeJ
ddefjZD1xi/qWIbYORnhxAlSh4X9nej5LYYwp+xrvog1ED90dOm5aCMkn3Ke
zLjJQe1Kt63b7PjoOEg+vPLngv9A56nPGB9bFEw1B5Q1QTNZQr8SCqesu0uf
5WnCNaZ7JvuQMSZu9/NFblqY/6SvrmOBCTqcBUuWzWqhNZ09GtVhgitUnUV3
sTY2t8WRO66mqCl1ylxzUAcapCAqp8gUKW+3Wv9so4uu+vKQheoChAWmugqZ
PFy+3JzSFyzA6T5OvrCdhxvrGULLBgEKpgNHbUr08MzA/IziQjMEWd97452u
j9WNe9x2xZrhtbz+hPlJA+TXlXpJu8yw+695f0buNYR+e78qHzQeJ4SPju03
wvsXWNGQQSO8cU28ZhAf2Qu+5+3IojFyrGd+YjAfXifd5UNXaPifiQ3nHOaj
1XJfhdE1GioSDwfucT4eRFxcFFJIw93aaaehmI9MW4kFr5LG3z9ek2wu48Mt
/py+fwuNqHsJU84TfHDfpY6OPaeR9UGU3DnDR9Pyq23iVhqHWpJ6jihQWN1T
mVL1ksY8vzsluWwKi1d2cdXe0jhtKp1RNaHAlixmlUtoLKtbmzPmSKFBJOp1
6qUx+dCnM30dheiktU/b+2hsLJC3iVwoTKzyjlUapLHiET0d6UGh92L0HC8Z
DS+jMn29IAr5feJ3g19pTLzi2T0IpuBLLv8eNULjnPMAZ+9hCm39xSeKx2mU
Je8YrzpOIRlVPg6TNHINlrP8IihsSnsoapui4VAue8WOpTB3oMlw/wwNNVLl
e/cshScObeOzszTsCq9c979A4V9JESHo
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             Line[CompressedData["
1:eJwVxXlYjHkAB/AxnaOpma7pmreaXkk6sIjZsf2+icJKrA4lIqWNTY60Tyw6
SYwOFR2KDpGKjn0irU1IqWzLo0WXHLOVWlNjuo/d/ePzfAR+IT8EMBkMhst/
/v/1kMsSBkNK7Mf2FHXGy0i9xm3xJjUpUX2e/umqWEYqrLj9WTwpOTDVGOOf
KCMXAl7kCm2kpGhwy5eBVBlxfOOhc8RbSlR8zocxr8lIaa3v6KdKKalp0vZG
lYzEJhz6rSloiDQnGbxR+Sgj39ikrr/0cphsF7DaG+y/EsHugDK1j3LCMwkO
tWDJyf0ERa2Y2jESInqc9l2LnOSrKy/NvjBJ4pp9lIJSRohZTGJeavoMWdQd
fSQydJRcnwg9ve4uA6sKcjSOuYyR2EWS98tWM+F21OyncIdxwj4fZzL8WAG3
bj2ydft2gvQFJG8rs1FC5ZySFl2rScKt2SXsrlTGPI/njf3CKSJOSONxzFQx
me4d5YhpUh4//ZITx4KXqN6zbMMMETAthafYajCu86+OCJslkpH7GdIwNnKu
b9f02siAPFA7v3VWHQPVtoVnvzBQzMgSR0ZyQCpadspS58BHrV6YEcpFdk3u
UYkdE3FuVxm3VmhiZbRu2MRnJnx9Sp/UDGqC2+fZ65apgO252V1KFVpYKj/p
GL1LEVa/FAZWhWpDMaVoTZ6lEgp0Pv4TZKmD+H2bezGghLWfmc+2DuqAY7lY
a+FTZSRGuOfZ5+tC79e8VQ6ZKii9WTuQ5MmD1Zaeh0WHVTHM1YjnG+qBn1Cd
xw5goccuwfzGH3po7tpgUOE6F/KMYZ39KfqoLjK2veSphs7kA6Fp7gZwfLeJ
ddefjZD1xi/qWIbYORnhxAlSh4X9nej5LYYwp+xrvog1ED90dOm5aCMkn3Ke
zLjJQe1Kt63b7PjoOEg+vPLngv9A56nPGB9bFEw1B5Q1QTNZQr8SCqesu0uf
5WnCNaZ7JvuQMSZu9/NFblqY/6SvrmOBCTqcBUuWzWqhNZ09GtVhgitUnUV3
sTY2t8WRO66mqCl1ylxzUAcapCAqp8gUKW+3Wv9so4uu+vKQheoChAWmugqZ
PFy+3JzSFyzA6T5OvrCdhxvrGULLBgEKpgNHbUr08MzA/IziQjMEWd97452u
j9WNe9x2xZrhtbz+hPlJA+TXlXpJu8yw+695f0buNYR+e78qHzQeJ4SPju03
wvsXWNGQQSO8cU28ZhAf2Qu+5+3IojFyrGd+YjAfXifd5UNXaPifiQ3nHOaj
1XJfhdE1GioSDwfucT4eRFxcFFJIw93aaaehmI9MW4kFr5LG3z9ek2wu48Mt
/py+fwuNqHsJU84TfHDfpY6OPaeR9UGU3DnDR9Pyq23iVhqHWpJ6jihQWN1T
mVL1ksY8vzsluWwKi1d2cdXe0jhtKp1RNaHAlixmlUtoLKtbmzPmSKFBJOp1
6qUx+dCnM30dheiktU/b+2hsLJC3iVwoTKzyjlUapLHiET0d6UGh92L0HC8Z
DS+jMn29IAr5feJ3g19pTLzi2T0IpuBLLv8eNULjnPMAZ+9hCm39xSeKx2mU
Je8YrzpOIRlVPg6TNHINlrP8IihsSnsoapui4VAue8WOpTB3oMlw/wwNNVLl
e/cshScObeOzszTsCq9c979A4V9JESHo
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{True, False}, {True, False}}, 
           "AxesOrigin" -> {0., 0.}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
          "Frame" -> {{True, False}, {True, False}}, "AxesOrigin" -> {0., 0.},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwVxXlYjHkAB/AxnaOpma7pmreaXkk6sIjZsf2+icJKrA4lIqWNTY60Tyw6
SYwOFR2KDpGKjn0irU1IqWzLo0WXHLOVWlNjuo/d/ePzfAR+IT8EMBkMhst/
/v/1kMsSBkNK7Mf2FHXGy0i9xm3xJjUpUX2e/umqWEYqrLj9WTwpOTDVGOOf
KCMXAl7kCm2kpGhwy5eBVBlxfOOhc8RbSlR8zocxr8lIaa3v6KdKKalp0vZG
lYzEJhz6rSloiDQnGbxR+Sgj39ikrr/0cphsF7DaG+y/EsHugDK1j3LCMwkO
tWDJyf0ERa2Y2jESInqc9l2LnOSrKy/NvjBJ4pp9lIJSRohZTGJeavoMWdQd
fSQydJRcnwg9ve4uA6sKcjSOuYyR2EWS98tWM+F21OyncIdxwj4fZzL8WAG3
bj2ydft2gvQFJG8rs1FC5ZySFl2rScKt2SXsrlTGPI/njf3CKSJOSONxzFQx
me4d5YhpUh4//ZITx4KXqN6zbMMMETAthafYajCu86+OCJslkpH7GdIwNnKu
b9f02siAPFA7v3VWHQPVtoVnvzBQzMgSR0ZyQCpadspS58BHrV6YEcpFdk3u
UYkdE3FuVxm3VmhiZbRu2MRnJnx9Sp/UDGqC2+fZ65apgO252V1KFVpYKj/p
GL1LEVa/FAZWhWpDMaVoTZ6lEgp0Pv4TZKmD+H2bezGghLWfmc+2DuqAY7lY
a+FTZSRGuOfZ5+tC79e8VQ6ZKii9WTuQ5MmD1Zaeh0WHVTHM1YjnG+qBn1Cd
xw5goccuwfzGH3po7tpgUOE6F/KMYZ39KfqoLjK2veSphs7kA6Fp7gZwfLeJ
ddefjZD1xi/qWIbYORnhxAlSh4X9nej5LYYwp+xrvog1ED90dOm5aCMkn3Ke
zLjJQe1Kt63b7PjoOEg+vPLngv9A56nPGB9bFEw1B5Q1QTNZQr8SCqesu0uf
5WnCNaZ7JvuQMSZu9/NFblqY/6SvrmOBCTqcBUuWzWqhNZ09GtVhgitUnUV3
sTY2t8WRO66mqCl1ylxzUAcapCAqp8gUKW+3Wv9so4uu+vKQheoChAWmugqZ
PFy+3JzSFyzA6T5OvrCdhxvrGULLBgEKpgNHbUr08MzA/IziQjMEWd97452u
j9WNe9x2xZrhtbz+hPlJA+TXlXpJu8yw+695f0buNYR+e78qHzQeJ4SPju03
wvsXWNGQQSO8cU28ZhAf2Qu+5+3IojFyrGd+YjAfXifd5UNXaPifiQ3nHOaj
1XJfhdE1GioSDwfucT4eRFxcFFJIw93aaaehmI9MW4kFr5LG3z9ek2wu48Mt
/py+fwuNqHsJU84TfHDfpY6OPaeR9UGU3DnDR9Pyq23iVhqHWpJ6jihQWN1T
mVL1ksY8vzsluWwKi1d2cdXe0jhtKp1RNaHAlixmlUtoLKtbmzPmSKFBJOp1
6qUx+dCnM30dheiktU/b+2hsLJC3iVwoTKzyjlUapLHiET0d6UGh92L0HC8Z
DS+jMn29IAr5feJ3g19pTLzi2T0IpuBLLv8eNULjnPMAZ+9hCm39xSeKx2mU
Je8YrzpOIRlVPg6TNHINlrP8IihsSnsoapui4VAue8WOpTB3oMlw/wwNNVLl
e/cshScObeOzszTsCq9c979A4V9JESHo
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{True, False}, {True, False}}, "AxesOrigin" -> {0., 0.}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox[
      TagBox["\"Income/Spending\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox["\"Year\"", HoldForm], TraditionalForm], None}},
  FrameTicks->{{{}, {}}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.812148759147643*^9, 3.8121487758065557`*^9}, 
   3.8121488839958086`*^9, {3.812148915594851*^9, 3.812148928040878*^9}, 
   3.812199712102605*^9, 3.81220839052805*^9, 3.812225121117704*^9, 
   3.812288123080385*^9, {3.8123194368360186`*^9, 3.8123194600763245`*^9}, 
   3.8123960680736127`*^9, 3.8123972013106704`*^9, 3.812397319913879*^9, 
   3.8124808363991795`*^9, 3.812491335475563*^9, 3.8125799378695755`*^9, 
   3.8126322363752046`*^9, 3.812633346021748*^9, 3.812633976028882*^9, 
   3.8126341725953074`*^9, 3.8126343834931073`*^9, 3.8126344255870104`*^9, 
   3.812635349559246*^9, 3.8129169508773074`*^9, 3.81291742298639*^9, 
   3.8129881185634937`*^9, 3.8129892721117125`*^9, 3.812996718862362*^9, 
   3.812997746850382*^9, 3.81412230543014*^9, 3.8189468107385616`*^9, 
   3.8203324633666525`*^9, 3.820335460341133*^9, 3.8203381371720147`*^9, 
   3.878997562416831*^9, 3.9352562737761765`*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[110]=",ExpressionUUID->"3e198c0a-7812-ec47-90a9-567d4ec9fb75"]
}, Open  ]],
Cell["\<\
Near the end of the second epoch of your life a strange thing happens. One \
day you wake up and realize that about half of your life is in the books, the \
spring in your step is not so light anymore, and the future has something you \
had not considered before now: a limit. This is known as \
\[OpenCurlyDoubleQuote]mid-life crisis\[CloseCurlyDoubleQuote] in many \
cultures. This is a state of mind that frays nerves, tests marriages, and \
wreaks havoc on finances. For a year or two around this time the specific \
function form of your life path looks somewhat like this.\
\>", "Text",
 CellChangeTimes->{{3.812200422261036*^9, 3.8122006447455235`*^9}, {
  3.812203327787698*^9, 3.812203371220399*^9}, {3.812580586125366*^9, 
  3.812580589196992*^9}},ExpressionUUID->"be295335-cf78-4eb2-b2d6-\
e65ab044e314"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"sample", "=", 
   RowBox[{
    RowBox[{"RandomFunction", "[", 
     RowBox[{
      RowBox[{"WienerProcess", "[", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", ".001"}], "}"}], ",", "2"}], "]"}], "[", 
    "\"\<States\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "@", "sample"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{3.8122004624932957`*^9},
 CellLabel->"In[111]:=",
 CellID->1908635966,ExpressionUUID->"6ac8f0db-e88a-4d14-a381-84f352b0c805"],
Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[GraphicsComplexBox[CompressedData["
1:eJztm/c/lX/4x0lk1adQSUNo0aRs9dISUqhUQknJjArRtgoNlWySsqOyZxwr
hJC9t3PMMzhGOHzv76/fx/dPcH45j/txr/d9va/rer2uH55iJrbnTJexsbHV
rmBj+9////t7aGp9VG6bOal50WKywSSItOXzqnHzXVGk/DV+F1TuvCANc3nW
rLr7nvRqU514xFwcWuXESTfbI0gCFNnHGy59BmXrzuVtNrGkGOc689thCSiT
3s/Q2umCg6+lNu5eE4P2/RefhTd5Q3xEijZw9ivmpxsSI9Xvkiwzhp5fMP+E
Y8JRKya2xpKkGznqS1hf0D8bvu54lhuJW1DM7VNWEqRFlheOnPfBV49fQjYV
UQhxyPe2LErHbJHRo9VV37HykooZV2YWBFRMppL+y4SJ+FpyrXIWPmpLpT4s
zYF0ymtdY98U3CYz9pxMLcSR2otf1E9nQJJrfC54Sw5EZw+Mjkr9wK6q0ply
mRK0Otc52Gqm4ifrcl/Su9+om803ktqRAHOb3/eKg39DciFwWfTqEBS5BRt+
+VMIm0Sb69nnY1D1LP5wX0gBOlRy9lovpML7i5ZE/aoSKFWM6ic1ZcCqVHu1
01gRKB5n9H6cz0TBhzvnBmyL8dhaciZFOhkfcoN6NjBLwDOzrPjaORLo7xV3
l2cXg3S2ybZTsQBC1NgunYpSDLK4lTcVFWHfVfpjofFqjIdcOvupsALzJe2N
79c2IFWC0hLDUYPhrjuDs5X10GX8XPfStAZCLSfz9q9txLi9iNCb/Q1oK9E5
tme+DuUT+d8LK+own3XIPlO2Efbxab7rLjZi082+1ybfm3D1vfr9655NEHq4
vnCxvgnWQu+1KwRacPHEke+X5ZoBit7thltNsI/ri6+WacWzinM7a1vrMcU7
K9Ce1wHzI3rs99/XQ/P0YMvWQ924yP1qN2dOI6y+rNxvfKwHkpY2Tvoizeg9
eHR//M4efLu2J9lhvgnmp/Ylatl1w8aS18DGuxlDmjb0zy092KBz8ZvjvWZs
+1VyfptUD17yv72mPNEML6vY9zHHe6Acnd1q3dSEa+bOKEjvgfBPvaunhhqQ
MdrZeqavG48ehT1XmW7AdW+ZjTxC3RDfu/XaC5dGrHUM+FZ2pRs5Cg+eHiPV
w0J+p7rL7x74l3eh06gOpJc7nO1ze7HcKcJjNK8Bo1k+GTZKPTjSY7bs0PsG
vGf6i1hW92Jl5E2jawpNeKr585SpWh8uPmlOj3BoQOD0Wf7JxR44HbcX7nzW
BM1851Ntoz2IK79PP/ilGU/tN5QX2fbgzYk4c7nRFnz6vi5h6/keGIvXWJZm
tEHsc104/81eKFt+4A7LaIedfQyX0cce1Bf9N/KusAPRX46ONxDr4feirSsZ
a8PH7WHsIs964WA+HbhRpxt5/pFf1eJ6kVJTaLzhUTe8Jnj7pK/1I3Fo4566
t90Ib3xs6Frdj1N9yXV2T3owpZNjI/SuHy8l9ZZZaXTjpUKd3/qkPggaRBk+
ne9GlghLUMWmD5crdp15q9KD0pnZXO3YHhidt9LuPdGDKLPp/SkPuxEY5A52
4n1sh4dJ8Zc7YOTb5rJugThv0vN74VELFE6oZStm9KLpqZv6hhUdePnxBHWj
XzeG/Yx2ycq04Vd7elTA4x7kihzm5f3VBp79JWdP3upB03sljrXPW8H5373W
ovPdsE2cqasOawND/nvERtdu8ItkKTjOdYJrC/3qclY3kngcq9c7dsFigt2H
e2UvwtQ6b+7L7ob0kyMkjelu1Lb8E2mN68JRlbs5qcq9iImsZtPL6cTZfxbX
Wf/1Yn7V139Orl0wudjLPWXTgwmeW/cu3uqEkNro569Xe3Gr683C0Xud2K38
aMOJ4h5kPC26MmTehv9Cpz6rCvdC4aRX+tf8FgzLDC17KtKHjBy2zn0NrXDc
PnJHU6MfvieqT4ct60SmfxVPWMIA7rQ9eRuX04749GUKJ8P60eUQ+uSxQgfy
V1BcuOf6camuy68tuA3fX+w4VpIyAFU7XTmdZ60oTQoSu6EygA0KP9gFiPML
/v53TTMHQDX5oUjK7MYPKuWrRuwAXP6VHi0S6kXjHV3B5FcD6Dlbdpf/fi9u
Ltr8S5MeQFvWY+8bj3qRc3cqTqh/AJ6cHCPpXj046lq/rbuiHz8W17wod+uB
mIzY9vqj/ZgeclQ36OzBadGnysfN+nCpKo/34PE+SBbw6pTe7sVntt2PVyX2
waLp4av6tb2Av3zX7L4+nOr1XG/J1odg7TXCm9X7IFtn/EflcC+exd6xFVfo
R4P44VWuR3phVNc0oCBNxnYS39bEMz2gWdT097ZRcH/zs5N73vQiUndQZzKF
jI2yyi7KYn24qstmRRkbwCRJPC/jE/H+we8vPxsOwOjIbvF9n/pgZEgppa4m
Y2V9nB1Hch+mNWw8kkMHUGMV17SFWNfQgt1bhZwB2JJCZpb39oCz54Nj2u0B
jFfpGdzg6MUMw035qlU/+oe/yUjJdqGKT8HhADcZqee6czN+tEP1sYJ7vggZ
fqLrjtlfbcfeqWFWPXE+wIr/N/evVvAlp6+Wcybj0ke1yiLzVtx6tetLlhkF
xma1m+6da8K+7lPpkyfIkHJRq60JbgSGZDY9a+sH49XMFUELog8/YqvViiXj
8msPgbzENiR9KJIPdKagqVw5n1najhyub9sKoyjQmXqcrNfWBm2LDR9vv6Pg
nx79jpkykYe5Vdr6yRQ8+Hb+1I34ZhxfTG24XUBB6vXzG1+ubUb9x/fB63YP
ItROdviaZitGjE6OWmwahPTLP2qPqtrgxxcVPlJOhiKH1E2u++04mqC/7cFm
MvJLsx0X/brAiEh++ch9AF0LKWRzj3YoB9qLGdX047QwzfaCC5HXdld+b9Yb
wN31/azOAx34Yu5/9UYUGTxFNzv/oA0lOysz7UQGEXHqSXLvrhZQL3/iSEgd
go4f15sE5xZklb0VPHRzGOe6HvveM2xG8deneX94huD03MasjdaEnhihzJof
w+B4rOBmROiHaeXUwttlwwj5IPd2RXojRjbM2VNcRzA9n9d51aEVaxaoYnWR
IyhtPHlmcGULXvF3ULTURiBn47reQ7IN223vfJuMG8GjOAFfmZ5WSOuuVBR8
OArsqXH+5NCC5DcnAmLSR/GQ6X+l+VYLwko5vqpuGMV0x4VILqFWGJftd6i0
G4MYbEgV2q0QdtqyW8JjBAGto3uNBZvRJlj3h6U6ioL4JF2lq42wtRuuXh48
iiMD1/s03jXhr5M9x2X9MfipeabvPtEIfpePWgMXRvHgl99eudxmrNrE2MaX
NgrxPc7/BeQ3IPpc9k+XhyPQiDycr074ADvujR2xEyM4fuuMrkJULeSsSP7X
jYYRPPExeW98LdIP5wWQLIZgekuZrJJZDyfThIStk0MY/FC5bp75F41ePxKD
Dw7hzXjDDnHBGvi1HZ9OaxmEby/7olBAJVaI1T/LqRnEZdl9g1Ucf7DOs2cq
XGMY7+SU+JefLIOMTNi/s8pDODFk98v0VCUSpXQ4JGnDaLj4O45+tAKLModP
rhcYwbV1l5e7u1egolBij6X9KO7TTpVwcFbiGT30J3/YCNG/Gq4485UjyVt7
/nb6CC5Oh3834anBXsWsSC7RUeyCpIde1B/0WAeVy9JGUL8x5azYlQo0kB3m
7UuHofE5sknDpxTKFZ13y++P4HyV28PC4F/QrJw5Maw8AupVjO9RLoYwmTf4
C3UYlsLDJ4MOFSPw1sVnEXzDqNtMvvZApwRGL66ugfEgGG2Wq827S9Cv2Opa
c3IQNxuCLl9c9wvZT8QvJGsMwked/LFhdxGe+IbpLjwnYx93wi/5yXTE5R64
+esbGVfU+gvVzyVDUdW7nL6KApsxqSfeW9Jw6h+Lrf0BBSUnl52RoKTglup3
Ej8XGeWyTwxS5tPwe+rZucdVFCQwdUz2WWbCjSRVdqiRgon2quIC+xR4n/+Q
UNw0iOGtNV8Oc+VA/rJ68KzDIAKNfWcOGCdjd70BL1/QEAxNNqwYHk5E4u+n
bWyHB1Gv1q70micSbBV2VtnE963Xk3cXoiRgQDR7y+bUQXCN3XXP1E/Hhh/a
rM8ixP6Jm2SujyHB1cfZW3/vEFbbzYREp2RCQtSCf+c5Cv64/vzpbv8DBVEf
lcwwiIRrU+JRtxNQYrrWR//rIJT69tkUxKfhSczXPatVh9D9JDdtsCgLZ9O4
A922DkOu/tYVikgeDkVoT5hKDuN1JFM1jZ+EGfVM6Z/fBuFZJLlQZFgETr/m
hW3E93t9cBwVLsmGmGpW2YYQMoZ1/bt3iKVjcOVvu/3fKBiN0R4sS06DY3q7
LI8VBS+FuW2uH0/EPr8x4TqxQdQu+00enExAzGtrjVxlCrT/25A70RmFX1Ou
OwQDKZBZse7S9g+fEe627VnlnSG885i59PutCQI/XqjZkUuB+Kss350LIXho
USCVkD4Ia43rz6Luf4aXbnb+ihuDkJcuE2J8isFRoYw7yUQ8yTO5V83mM7D6
pMqZgC9DsH9bFZ60sQCluwu3V14egqvbifWVf0gQefm335k+iJLCrTsNE3LA
wzDsK/cbwoioz4hdWhrYrh/NuyI3jG1iv5vu9uaiPJyLZOY4DO3d42YJY3kg
F7IPSRP11eUXE/uq7ScUxOKX61iOoNFqufAZyWgUeujzbNAdAz+l9w0t9QWg
8LTM6+Uo1llenfoeFwj9i8WbYz6NQK8k+iz3zUCsXlaxq+DZCDK3HXt+JtMV
do9HW+L0iX741OaGS3si7hxcNfNx1SgiDjaWbBBKhpqVxTT/7yFIkHzzCpp/
wN1Agv+g/TCcFPtM5vWjoH0od3+d7BAMTn9awyUWhPCjaqS7vUQ+/Hn4e3mE
C8x4x6r5p4ZhmKr32ZorBmecRh17iP7zSjpuwjQgHnl/alhidDKK9t4ubI1N
IvzqTIb4TjJ6KzlGfMa/If7i6A/5+H4o/Fgn800wDTd8Nl32WjEANpVDD2Rv
kCBE572s2jIAKQPD8/trifx5s+p7cyAZH7otLt+a/4m9P7/FPBcj9DQ1ROWu
RDLIcpwNNVODyD+bWp2gm4pwZSEO9xYKUmweunyyTgSZY9bYmYvQ27KTIum1
3xFdHeDYbULo67z7VenlmZh+NuL3vpnQu4E3am5d2VC/IFik7UWG3o7fuzSf
F4AWVGZRKTUA5qpG0qRKPjzJ6j5GY33gOlkrGX6jFJLZdW3TmYTPEVU467W/
DNPdNvKcgoR/qdW2ZnpU4jh3jv/zf2ToI+TuQ3oF/lM+cc+2n8hP95VZb5R/
I4XEceDYDwoChoPulOaVQm4Nr0D6FTKC94QK7PxdAhXF6hG/I2Q0oLKF+fQX
ViVRdhx7SIGEnlV4uFEpHGvrzHntB7GLVbCwIFGCto+btpS6DkJ4v+uhbrNy
ZDFfaVetHURKHZLnif5a9uPv4Tg7Cn4pB3xnUyvAweyhU0lsRH/oOP2ieXU+
WtKlV3rSyGhz9FkU4spHvcB4Yi7h7zhUKnK8JQqR/Ei/uYrwH++MJjkW92fi
0pNy/kGi3iJ51rntX1eAVZkmNaFJZCSJrOuyS0/EzdweA3UGGTWjUgfj+9IQ
a79GOrOYgjX3bhvF3MzCkSyrbWwBFAwLWsktvPuBktOnwtTUKFCgfSifrfsK
Cb5P03G3ycjzOsxVIJ0IT40rF7dZkjEuQ9I5/T0GHELNa4zGyAi3JG90/+kA
2W2mBf5aZGgoaHoLlMdj7d4/J5enUfD1zvG0St5wHNsEoQK3IRRvi+3ZMfwI
1cyfs2PLh8FFT4oy2huG67lDwc9uDYOtn98wecQVjfRG77SOQax7t/2zySVL
GHQlf+tiUcAW4eo4VDJz5KD6iVXVtyk45R6jUnLuHelhNn/y+uZBaPxpEK93
jCKtqr7fzxM+hBlRT9bYhdcksfOU+muPhpD81MaCouJLclpfXStdMwwdvQqN
kVEvkvKA78XtzUNQKvPr9XnrR2IW+Dg03xqC834uPYnyeNJI8KbGmURCb/pO
ifQl+5PO7bpNfW00AJ/dvyw4F7+SpiTleXYRfnm7yMunQkgg3QsxGFGPI+qv
g9doW2ASyWBl295tSRR8f+KWsHxDGClMT6LpcAwF0X2Oe2wT40nJKgMu1DIK
el6HNPccSyJp3jPWbU4gE3O/nhtHexxpTiKYmqtDhmp6QcrbrBzSnZ6+vnvV
A6Bce56m55pNUhMN9OabHUDTbS7depefpIa7z1jtmhRkHfr2/OVsJmmucoXU
+awB9BpmOK4L+0FSdWKzUvUlw304sXiZXgASx2RreswGUBbFDba/lqQddk1B
V8oGEPb2w8w/nWjMS8v1xNsMgHbel4OHIw5MrVHdC2uJfEiTkjK3TsIa8b91
+d4DOBsx6vCcKxYO21e7XP1AhuSH/T5ih6Nxg+vAwoMDZDyCIW/qRCR6XdUa
3/WRwb3mt+fXygS85ysW5xGh4MXZ5Po7vanIlIq4fJyNDF25zga/vckoyP3c
JPhwAMubHp4R+pkE3YGq66r/DcA0i+vTms4fuEPZEOjp0Yd1155aiR6Iha/P
zmjTuD70GQzuVbJJRnaPAInqOQD6yEbXwtWh4AidmE86SNQzJaH+yXV/sF7/
3VB4kYJdE9V6zD8OJH++qrGqjYNIK3KaNztzm6SsE0fRJuqlufZIb5HqZ2zb
bjEZYjGIbqrn2on3ScjSj7L/5jWEEtcxw/QHX5HXFfhoVnEY67W4zsyEkcA4
dSS/mvAjxvrLwm8+ygJJk6amaTeEHg3qBetfuXCtvdFt5DmEk1IOx88GZ2LI
qOGg+fFBFK71/o/veQ68dugncBL5PXlKY39mXBa0zbVCPcIoEGRTKQqzjEHn
kVS5yieDaN7XoN0r8A6XP8k7scIGsenh+cOqStE4cMqnoEp6CGYW7e8VBFLx
mUamH40k+olIH7lXNAslIkbi17YMYcdTpfDn2gnYf7shSf7aCHxH8kaftERA
8J2ry22dMTx8zxbCttobej7sdwsqR5Ftnt3CPfERZ7+6V4hWEPpXo9DZ0uOD
w526lICOMTg+tXAR/peKbSLmM4b3aNCbT5FJ/poNfrY8e43rdCh9C/3wWPcH
dG+9Uu03YMBPX4V/6mYaTEIrSr4nMnD5miOlyiGO+M41Qgt7GAhevkdglX0C
tHjW2YpO0XEzT26x2/EVlqe7cTarM7AwJZux73AKaXQwVGsXnY53Lo0G/jmJ
pH9jqWlb1zOQK71tOHs4nFS4R8i5S44B+v3YW/FuX0gGUSJbzooz4CzwRFC3
OYCkKevFGV1MR876ayZsa8JJ+R2enWURdIQLnF51vP8JiediFPt1ezro46tW
rZZWJr2IsZN/wMbAqcgV06S0QPSgsmHwBB1dEx+47ytE4bOboUU/Jw0Jb8zS
Qx1S0Be3ixqRM4YaG3XEBKXgyF368N/8UVhl7ctnULKQ9uVIm6TZKIprXXmG
mxPhX7bjjcryUVS6l08aOryDaLGq0D2fUfTTAtjZS8MwvCnowYktY7jeb3eL
0zMNYRWer7RaR5F+gl2ajS8Ju21STrO20+DarN0WlRQOrchaijWdhq0mrY/E
n1viG5vlolEdDTVa1Ods0p/gadW04ORCw/IdO+PZbe7hU/XpqvYFKs4qZOy6
8OozydWf8+Tn6zTc6WB/kPL1DemgFKn5wGUarrAHje5mfIFo2oVHQg+o+K5T
893gaxB2ZsWICVZQ4W/U8jj6dwj8X7u/O+VMRbhwcOKYhQnp0JoNhdfVqchO
7grjcnVE90k/4Q0rxzB4xSfpy7gtaU3Gy78PV49BpOb72pTjPnjSen2YNkvF
le5mzQPN6ZCJ1PQqnxrD2NWudRFy8YivpcmtY6PhrvB4dcm1JNzezeAS+E6F
d/XmzTErc6CUX2Nzj0VF3s6wwMQV2egSlXF+XECDmXhrxprLBTjzRm2lETsd
c9tXi+yZzYUb0+vngg4NyTmyz/8lF+B8SoShVCMdUcc+Koh9LcQXVx6vp6N0
rORfrSIjWQR7mnmyXBUDSQUbu03Hy6C5QVWjZPs4ynw8tnyXrsCJYj6eT80M
mBZqMtlDapB2fr7tfRpxfcKqHcmi1dBQSjV4cH8c9zJXO63r+YOT6iujS3eN
I6+Rnz3sajUowy/OxAeP44vsHu9UgQpMn5cWOD07jsOrL7Lvc6kBs4Vn+67l
4/hn8THsnnUtPHe7BTveYuDWrrfGOrV/0XppddTN5Qxs7alYKbr5D2KXyVhW
VdNhM6F2IfpWFex7jBWYrnQ8cp77b7ldJVa9PK7ffpuGL0YH+v2GarBGl6Ng
nxAdSUezZYV21qP24aq8ckUaqDG1pKyIvyi0K15/1IOG/17XcG7Iq8Hcm7fv
fxymQbl78axtRA1Enb3ei1eMQffhfkZIcC3oB/rjk0ZH4BWQVmO7+i8ucfqG
VAqMQiVQFQ7z5eDw870l5DqG4OeP/qw6V4mexbgTR16MIQjtoh51f/BtuUd8
+fQYuOS2V6VYVGMgfc++10lUDP+b+btaugqLrwpOHiXy0eSZLHO/BnH/iUOG
9TepCCzblMR1sgYutDOZLvU0hOWQD7Ep1CLB2Fe7RZQGlZYywwecf1HRrb/m
6CUqqD8bXHXKykBSeVy27wkNxR/637dmFCO2IrVXQoboR8d/raBm5mOL68rX
7xKJ5+3pm+O2ygHf/aKs41/osM1iEzI2SMFR74wCNh86DA+QFL2PxMMsP3tY
qJmOFc0t3eu/5xJ9mbxK2ouOzb9ftHpr52KlkNF/levpGOX7UVLklYddRZWx
gdl0/PhB4zfMzEWojfxvK+L+ngRqYmVUPDZtYX+0MYGGMSr99qHbGVD0ur32
zD4aSu55iismJeMuX0bIgzgqpMSTX59U/ojn12fLhoh+szUlwODgFwfEvh5+
W6c8Al7Wy/8C1tihtEPuReH9UWIe6X66+CkASqmyYSuExqBleqvCwiUOnLOL
fLyEPtQLtzeEtodBPLJ5i98+Kuq/xj+oDIsglYUu2/y7nApnRg9FPO0Aacaz
5Uxn8xhCzbxKHlb7kp53T1om645ip7m3pePRNNI4/xDPbYzh2puvz4duZZBO
K8jApp6K1yktH36uLCSprWvbc4adinknr+0CpSRScpsyt6TcGH4HvvTN5Swk
JXKNqFQHj+Hwna4s3f8KSKsFfjUeHB+BWeEeWc+Yn6SqquuPTzuOYKaUU/ac
RQ4pjO7X2hkygqLqczvNc36SXtFsbeVmx3DqtkWlokU86Wi0GJc/sf7C1yt+
yqllkdh+WkuaBtMgaWrnvoM7l7SpXjX1uCkd7eExVa9ss0lfPn18l/mbCt5u
kV07/mSQPu4/e7M2dgxK48K2u0bTSTmFOlnLM6go5Z7RGb9RTJr6MMD0VaIh
/c/iW5z+RWrj8t7Dt46Gby05nkH5pSR7fT7rW6/HUP7I+bL43mKSQOrhppvO
o7hKFbs/MlJEurXc+k2tyyheTl4V36leSJLc2WYfemQEiWsdDOdMkkhmBd7v
5pyHoW62Q/HQnrekyoBync6UIdg2p+0O3uRDqldW5P+VMAS+wGTPf4N+OBdn
eKh+5zBc/z31KOJ+BjZ27/0Z2sOgPFymqWj+mqSo8M1T4/EQEmVaeaxE3mGi
/dY/2o8hmH85kRa3353ko/7o4kzjEGK5Oqx13ofi6+Bd9TMeg7gc4iF/87s9
6dV9l9aQpEF8T59rvtxth9tJ2qc5xAfxmP2F16X7X2Dcdi2oP2IQYuGXpQok
UqDZ9kzL4TgFe7Yuvzo2lI4flJs+ff/6Id+bvva5UiKcXt08JUD4QXVTmt5M
9XewH4xsTW0dQDFLLdpG2BmTYS9X5rf3Y8/9rjUnTjrDKZ/z5eZ1A/A8xmqY
Wu2PBvercWLmhL/05nnGUf2M1GN3OPUJLxlWHNMlvfsekA75hIhrPehH3ty9
L4dKXpGeBEWdq3foQ9i3R5zUIx9JiqSMA3e6e3HM3U1D/KcLSW/DDc/0rF5s
0dphZzgTTyqTy0gIS+iBmrItvfZwFIly/3m37eUe2Iec+9PMl0xKlklVr/3S
CVX1NRe26kSSvDxyf1nqdUD1+/Y29qIzJDd9r9bbB7rRGHRLRK/dB/qZ1uOS
Ym3YeqeI0bExBhJqZYw1E62Q276eR0gwmnDZV9Te93fiDtczy++RIaQN+Xtr
db+1Q/iSiT33O3NSepdKOodUNzqlz8la1FiSjB7d7qcNd4KbKn1V4EMY6c/I
XQ7+8k6kur3SvrsymLQYr/lLaU0X9qy/pht4xh1F5GgXV8Fu1Ket/Of96i5J
9VNMq7dIN4S2BPS/EAgnuS3Qd0md6cKVOL81T45HkiYXNTeyf+9C692XGn5s
SaTJtapMc2o7arM2V2zfEUHaHi5R8F9hO7oqI+xXs/uRBCwei5553Y69k4Mu
xw4EIr3eOjLKuwerDN1q5GddSeWS41pbXbpgL5Ld8dsmiJQwLnAj8XIHHtmV
97vYxJKuX7BJlbHpwi79jpCHqc6kQrumT+/YeqAqFvB23CCa5PV0vadLZjdc
UlOi4o7FkuxnO2jpj3tAGzgX7qEWSjo2YOUl4NmNRD2JPu/H10g7ORVlPzl1
I/oex9r9ignIr1BikA92wVZdtJPb+yOGS7TLrqR2IszivOvT2EQUvHRsO83T
ibNVkqdv8ibi4P0ZLzHndrxRm5J78DEWwduOhgTmdUGLf7eUSFUiZi4MfLr6
ogcLLn/ZA9tSIKRzu333qV5EzBvvXIhJwnaKZsol7m4cqXmZlnAyEQvNRy9H
U7vBpiyTev52FApFl5+/86cbuzcul6hJicLBxyEz/Gt68GZr6kP+ykBk/zaQ
1j/VA/ZA1/kbH1MwznvBTGlrD+50Te2rVI5GuZMN9UxJL7gOiWq6/fcdE5fU
hw739cBX7+8J/YifCFZno27a1oeTf2q0xvYWQ3m3ja3+rz5YDqSyctSKQY9k
Bnpw9mMn0/T7qa358Lq1mj1FqB/FnTWngp+nIPBbvHDM6gF8v7D1UfG7HFSq
51rbLRtAwkYKTfJDAe5UfI0wjBnA0/Kt9dsLi1CZl6ez+fMArjJ+W8YvK0dH
x3fB6k0DcHVXmNr0qgSb7cbu9C0MwN9j5ebXocW4E37SUukbGZWZnW+l3ufD
N17WekpwANKKe4XnNNJh22v/oWJ7P2rHPBo3TSfj8q4qRwWvPuxb1uV541Y+
mlf4FQTs6IWet9nQ3uIyTHqt376puRd+MY7HzpmUoaGkIGvWsxfujQYn6V3F
WDdetYMy3gOvmicap/ekwEboWni+bx8q2JV/n2uMh2hA9qTYSB92chxvtZ/4
isRPfhJWif2wfsQZxPYjAzq/5rvehPXjqK5B/tz2fFw27rni+nEARpL5ugnB
+bi0VTdovSUZsx8lXF55pGHDkP3zDOkBHBIuKr+yLRm7w2nZIrcHEJT8zjfv
fiws36mI1YwOQIsvnlvvTw68DwbEKHqQEX6mnBnG/RODpZKDj4oGoMhn0E2a
SMWJli/XfpIpCJ97WMP/sQhnep6OO8dQ8Gpzzzp12m/YkWRIZq0USA/4JzSb
l+LEP5l95jwUnPI9u9GU2O+txRNxnhNkvBQNbcgx+wVR/l06+TeJ+f2Or2xY
XSEkNBtWrLWnwC1+IbRvfzEKZ0qPUnMp0LSgjp+1KITovxS9lQYUJPz7kf5h
rhgdbknvRJeRURLscmrnvTL0cjll/LpCwSYjK18V9ho0mppP11oN4ph/krGO
5l/I0M9fyzlFgVOtfrLpqxrU5P6UMLYcRN6k8UqmRwmajv24/9qdguxiNo1g
0xLEp76/6VdKQXXyD6c11DLwpjIubybm5+7j2z+JFRDvVznrcUpsEJ5BM3tE
aL+wiiq/qErcf6RdaJLqV4S0yDMh764MwESIIZMeWYTar3UPxqn9UD8sY3bn
RSnIZEa4Tlsf0lo1XlwVLMNId0A4D18/thyMrl93qxJb8s+yYn4NQKDIJbRW
4C9mDTwUKtPIkLVMlwg//BdBwWuz+5UoaN+vyLY9tRqN7eYiGzsGEb767AWR
hL946Czyn/p/g4gzmq6w2vsXZJ0MRcEUCtK4WVpPmX9xvCEpNNSLAut3VzZ1
L2tAR3/artnvFDT+x6H2sLYaWavtOzfvIyNfeIbnxdYaVPSGnhaWJuPn3bW8
PvRqKLhNVy3YE/nCGSrr4VYDtmWuPeYWZHhrZNz9T6MGiUZhibyXyfBvLV2l
Y1UGS4nMtzO/KdBi675ieaYGJxkXtHNbKKg5cUvN+XwFrHji5WyaKBB/7um8
n68UnIViyxbVB6FQk9qeaVaH4mHX+1cfDGJ014p+a4larA8Y+LaTRaw3WYk/
SbgOiSec1W3zB7FtmUPg/me1iPuwz8/ozRCiZWsnHzHqUO+Q0JxL+A+t0x9z
86ubYJ13q2pj2RAE1OQz2Z+3oDex95UG4V/PDnI/ztvUgm4lqufPyTF81qs/
ELyuDYZxfM8d6segGvvj2PUPrXhszjZm+n4M86IHm/nQhbbrdZQBZxru75E/
e82d0K1vXyrQSAVQL7vFtA3DOlmrSPNUnH7NtWybYyvMQ87w5BjSIGhRPrsq
pQ1RjjzK5mtoKIsc7HzQ3EzUcZrXw5ExLGN8igh53Yr+5VHzm0PGsOPmf77+
xHrfbTj04JnFGI6bKHbROzqg0GarzbdIzBs8MQdtejphZt58uUKaivPeYndp
zoRPCM+J4q8fhcGV5bPNhd2gW1ldno0ag49ZjMlfahc4xaa1n9+nQk7SbWET
Zxf2OXIIFFnQIEAxTZsU6Ib5uQjnI1fpcA4SUtwr3wEH93W/zwfT4WIksv5i
USuinwzrm6bRcdKAFrkxow2NXT9KAwUZ2PMgfEH0SxsiN8iXqIMBM7Ltek3B
dqhJtRmdm2fANmPXJqWaVqzpul4+0sqA4MaVWX9SOhC3pzNg1ncc3fvkfD7b
duAG17GjvA7jOHp7E+P+xw58jzI/HCgzAcmh++7iaZ1QajfJeZ8+AR1tOfuD
mh1Q9hCYqA5g4sni+6SrCh14KEjORTITXRNz3cHu7YDBU9HmBibMbvkKHDja
htBSkxjTzUy4e+W+lq3ogkBQ9onmjgm0XGryeV/ejglZpSx3cyYGGYMKLZHd
MLqUdV1ziInS8PaWtIYe5OReTPR0ZEKgjVKnK98DuRHje3vvMCEZUUTfqNuD
ogh21fyjTMT1lIi40LpR9F/EFSGpCbQxrwi++tgDywv18zZ8E1i1l9d9q1gf
Dr8XNh0pnkDely+N3hk9yOYK3Ru9gYnJwhNOOca9iOy00tNayQSb2W2dv/m9
+GN9tubB5gkErHewSLXqg6HYiZRppQnM3PPhfKDYg2U3BHtXqEygTGGtu/Cr
HhwOrUiReTaBeJbPQX/nXkhvcsp13MfEU/mRbLp0H9R9hwwTDzIxO35jrZ11
P5Q/nmTbmzKB8cDpuK0v+zGt1W+lRayfu+6J/Zn1feBe4cl+dNcEfj5+oh5v
34tJjcwFdtMJXG2pWz8V0Qe1oKoX++9OICN1R3GCcx/0TYwKlRjj+HN0/VWS
zwDCGV6nK6fGEeL2b7SBfwD7MgJiz58cR/6UxpuP+wZwrlzL4FXQOArnvi5T
qSXjvskGnxYqAx8W3Kb7aWRwG0erLPCNY/Pc2VXi8xR8vc9XVrx6HAfSK6ar
ugmdEo2/vWH9OI4d1NstXkDG2cI7uToCRDxeCwt+NBvE9Qr2sarcCWgX1D3v
5xvCti2+aZRVRL4YMN/8pziEvDcN10x0J9Dew6OvozyKf88O813wHAd3r0iM
Rt0oBmqfMBpsiOcbfLHz8SLqpvgi64nFBBJme9VKVagwusEea/NxHKvOzh+R
ukcFfSpBN9h+AvdaD5EVxcbg/3NgS+zhCVzPmYyhJ47ifNEc7W7uOJZv4RjO
vzmGW9yfJ6lZ4xBzEFI6SB2BvF38t97LRD3s5fuz7csohtMW2/5LGcfp9XYt
j/XGEFb2Snic2P/MeyOycyFU1EzseBEkNAEu53jrHRVjiDuSNHVgdAL2o/rh
Mg5UCJvEB0/tYaKjIlQLYVRobkpdr5vHhH/n5BT/iTF4Kpwx/6RA5MOtQAH9
tGHEL+dOitdkYkOdpp6P/gie7/65U1KUCU3RA2nXnMYguXzG4rIQE38aPabP
hY7BnV/t6dOoCZzmvyUinzAK38tpLz9KToC/P2Vv2OYxKMx/4nB+N448iRTd
VOlRFMrqF/3dOA4LGfW1h2RGYcxu8cdoYhz1L09LcFmOYXFIkD17cByH7ZSe
ZtqOgib91kOZyJ+ZHz4vrseM4ciTTdYKByYQJFL9I0qQCjMltbcffCbwRmPg
s+MgFeML3/adz2Fi8WyY5PtDVCikXns1SfSDQi++w+rnqTA8EPXhyJNJDPZt
+ajARYMzG3+P/uMpXHM+91biEhV+o9NuQyZT2BeDW951VDzKUfSiVE4heq5N
TCBvDNF7TayXb59GW+wCx9WcMRS11kT4O04jUfaVVxkRb/rIDK9t0jSCxJ4U
d58ag9xLezdH6jQqeE1WlEmPwWB1Dn1H2zSsY5395X4Rc/qj80lU4voG+cX3
e2ZHsdfkXDlDcxrqzAKuMbMxTKz8byAnfxp+g383yYZT4XYzJWPcbxpHtr05
/M2MWO/YNsFUkxnkBd1lFuYS+fHUN9dNdgZm5x8YbWgfgwrrbP/uymn8/cXz
RcGVBu/5LZX7BqfR010usGk5FZF1kvOKEsR67hoUmI6MYqLg1B7enCmw52lu
YF9B6GLKzjMj+VMI977TsT56DDVP7tvzZU1hJTkGV24Tz//dlCMQPgUmTaCy
/C1RPzkRccmlk8gvff64TZEKtf2j64P2T2Oksi9p8TcV8aE+24IPTOPenUJl
ZWs6+FVCbboXp6GUF+H/m4+Bso4nU/LiM3hj/4zPRpGOrIStFqarZ+Bir68c
+I0Ov4/yj0p3zKDYeFXVpkt0/HIKG11/6B889y6+PVBOh+eakNcqn//haOLd
83k1dFAVio766M/ijFeVzQPJcfiK7pWS2z6HQjPqcMYAA5EGzpS9m+YxARnm
Yc1x3KtcZnt47zyYb562ehB11XYrTzh/cg4WPrG6BUfHcVA6MP9Uxxz0Kck7
jnGOo6K9zy34yxyu5ggY1nIx4LO/pNovYQ4ZXts79gcwkF9t1afnMo/Qit6m
bx8YeNZrd/mexDzeWUbmaW1mQNw03uSt7hyebtXdbOxKx52yNJbN1zm0bZRY
LDvCwPWT3nK+N+YwsO/My72PGPgW+7tj/9E5DHppPzWZYkDCdLkI1WMOs/4M
WacgBrz2BZQ5HJuD28XoxlMuDLwv/MJbuWkOlq89r8dEj+PxLwlRf/45XNvs
9p/0xgko1foV/b4yh3WbpcjGi+PYHneF19ZwDnbWuVeZxhPgCGYdTfowi6P1
kcHiRyfg2UIP3V41C41H6wbZjk1AfY+/FmvlHNwTvPe+2kv0ufutr3cQ61l9
o8hiv+wE/DiCvuYTz3tfsz39nRZxvJa3BtLzOHbA+rXKy3Fc0IqgHV8xj6uy
ugMyN8ZRG8rXdUpgHraRTTcSVcbx8EaXatn2edDttj6UMGYguefUs3CVebTG
HymXaqLjjPxhN0/jOawqeJudW0DHaqUr6Suc5tCy0v088wDx/eXjD8ui5vCN
xrzd4cfA1x/bv3phHtmDt17EKjAwzf9pG42L2P+xZkqABQOzro4zlY/msTo9
T/9PJANH3ns2Tv+bBz9PQxCfwDj22ysLezxjQT37fIppJgNX8q8GZy1jYVhe
Ps0wexxbMoeMK4fmsWbDAvMy2zjqFDZy/UmZh8KJ+oHNlHEsMC3yLBvncWJF
k/S3HRPI0vImF5xhYZJmQdEndOvlTmfpqv0stPoV5PrTxyGppTWrVcaCoo6D
3fuhcRivtGdOM1gQluRP6Lo7DlVrp9zVRSw8klHn4b85DkUZ658mF1kgsyVx
uweOY5KzUXzh0zx2UPRWBB8bB8trpSmP6zzetlVs+3thHNlO787HOrIgKrV1
92kvQqfvWLscf8/Cw5GatACFcUjwtDo+mmSB+wmXgL/YONIOzkZtkV3As9Uf
wxTyGVhcO/VKUWIB23rtVHYWMPBzoP6ZIR9x/smMeLwHA/eCpoICNixA4qKx
P5PQbUu+VTUMHxbaHIIf3c5j4KPyC8dDCyy8WHhVEPSHgVpnX6Efmxfwxkjc
9PkkHTULpjZ/nRfAOtHVKifCgIPubVGn9AXcUMt66beXjnvh9X+jeBfRvjFU
9flGBloXxa+qfFzAy/iV9+asGDgYOpFofWMBx58/k+RuZyCjVeisyZsFFFyj
qrTeGcf5wpPdOf4LaD9+/asQUd8XvolfEqGzIL7sc6vLNQY4TrpxMNtZWBig
Sk4S63GwlHT60Urst8368DdEvkSqP9/3mJ+F9tgE0txrBiyP+kWu/TmP4ehn
jyzXMZC2eWbgzQMWrFTCgthl6EhmP6V47hsLCUWcYw1kGh48SJEafryAU0Ll
fcuN6Oh89sORg4j/5v/WpUVR6JjPOSDw/QULdsLGuX2ydFhbKddYEfGM6pRd
f+clke99vtXi/iys9BUenggi+qPW3yurOlkwvr6K8204Hcp+Hwz8t7DwOu4E
7WkUHYWvpUdV6udx//kvvpjTdMg5Gp60WTcPJ9Il3R5iDnDbIrPi1NV5WKmq
HNhvTUNS/AnOdarzSG95T40QoUHae4rbhjyPT0mc1tbLaNDWff42ncjHrJ6O
lvhaGpixvb/Zkoh4/HG7/EKbhjGHb4O9l+bRMmNSJtZHhY6tnPzMiXlcUlO2
8cikYktGeduFsjlUp2uzrSLmIsXe+ICj03Moveb7ypiYgzZeKKR20OfRc9TI
++rbMWy+KPpCfDMLA7+dchSdqLByObtJK4sFie1XfoVfpMHpR6z+j6sL4Nls
vkOURQNlQ+UpUbkF/Czf1fFeiw6FHlGDR90siJFDBsp96RgL2mqYc2oBLt3K
Cb4hdGh/kHJfxrGAYJn6mFMrGPA7r7czY4YFjteyISYSDCwfUY9b+XoBIzI6
GdJjDOTI2H6aymaB5+QVdl1izuGfORG3lYi3S68kv8tXBniivS9qsYj4fdgz
vpnoH0+f6QmfIOo79HboKkEKA6WCZ2NKiXiuL+GM+stgoFdMSkzBgQV6X1R/
yEPC963qXrhxn6i/x4aLT2TGIWK+w+R27jwOKtx3szck+vVb1UOpV1hYr9f3
4OubcXx1yf3B8ZoFjzS5vEeEb93ArlOzvpIFfR72O8n/jePs63c//jmx4K90
sT38OYPw6R95vLrnsf3pvOMpQi/52wbbcjSJ82wXvFqI/PHq/7gmLZ9Y/5hH
ROs5Oo6v2afdfoSFZpOLWlPaDDycUjIPMCDqY+1xMxV3BrYrJZcGiizg19/H
ofcJvVZ3F2vtaGThqpi7IE82HbbiwkpfGhZw9oMFj9cdOlYxOhsU17CpjgwF
cs6ADu+Riw0SEmyqh0J3KX2eGINL0exP67tsqi8EJVUjW8dwMW1R+P47NlXX
pvq8EMKfX+IwdlpzhU1ViauD7Js5hg19o196uxfRYjQpqmc7hgfW0hGB4myq
u4Y+NPwFFRr3x9cnr2VT3fLskrtOABVdD3c8OarEpiolMe5+bBsVEgO6BzG6
iFbVxrxMwi/v8eBdFrVuESlhkjKFF2j4fuiLf2LBIsp0VvQ8D6Lh3tuNWnNi
bKqvDc6nUcZoEA+X30Fbyab6wSXmgcUMDW+tPoqVqi6imynbca+bCl1j0Ud/
DRbQf6fy/owLDcaLF7aon1sEOf64g78DDZm1BoO5XxYx8S1efraJhsT1bTc3
L2NTrbiS9i1xjo67Gwz/+iiyqR64Jm3eFUaHccrnzhEFNlVyi8a+QR1i/0cI
r6HPphr6xkNRas0EQra4PZlazaYa/vK8UO7yCYi1Lfop72ZTVdu48XGe+AR8
hnKDTicv4maR0IpfixNI1ZT9UkMcm5VrhGfcZ+LSv8opr/5FSGg4BInoM3GE
6xL/JlU2Vc7oz25DcUw4c0+ZXhZiU91omxMYqMjEvxen793jY1NNf8PLUcE9
Cdmidg2TLWyqjVVXnD6ITKKlgf/hf1mL8P2huWcz7yTKT5SNjl5YwE7/IzwB
GyZx8fE2nh9/F8AvXL3Jjng/6/hFpuDqRfQ+WR7bLcLE5yyNNofcRSxkuTsd
qmMi4K5I7Ce1RQTa+K95yCCuXxe9Rr6D6OdynyVnvSdRE1ZvcIDQE/m/Iebi
WZNw2LnNrmz5Ah42rFU1b5+EjK/co5wqFsqiNh7b0DiFmCufsnb+YcFZfTsH
59QUbv319GOZsWBgFvlhVGsay9ZmPip5ysLWjJDeg/1T+Lm/0o2szEJK4ap1
6/ZNwTaBjZwZMo/fFiVMGs8kEqV2afQQ9RMUbTWoo0Z8vwrniLUXC58W1SSp
00w0twvPjYazsPFScZ3Z8UnYcq6UML7OgqproOc82yS2eLzzmK2Yh/mEA9uW
Ziam/TauePR9HjTf6QhS9CT0a9qcPIKJfi14bNzIegq+ghoa25fPgzE8lb72
yhRIet16W2bnYOSkIb7uwBREV59WWiD68bnnDe3OoZPgGdHsP2o7j8z2e+p/
D01C2X5feZv/PET64z+py01irZCi53aiP8jJ93lwJTPh4hEk4mlC6N9Nny3G
+5jI/O7X/esrC6dT+9ws0piwv1NR72XKgtrIUFaYPxO8Qa/iqj6zkFYYVfHr
ORO2ZOWTMjuI+O45/3xjExNRLfHieDOPM3sjlBXYp+B0lt97wp2FqFCm/Ndr
U+A76RAZsncBPZQtLv+OT+H7v0ltIUJvDgf3U1T2TiJverqngdDv+3c461r+
MvFLuehfVjSh7xL89Vb2TEzEvpcI41zET7mcqdYbTJhs3rijWZ84trymYijH
hOWm1uR/Pxdx70ywF/PMBLak+1k+YGdT9ao4GM6nMQHVKM/NI+aLaJg2kxQm
6slnaquFctgiHmpSNrc2T+DDq+4WGWU2VbPZt6d7oyewWv769S2Fi7i+NyIp
gPB3K70/3t7RtYA2l0SdXxPE3H7ol+79uwvY985Oz16KiRFXS4u1hD8R5zoz
ckmaiRx5pSQDQj/vXrlndz+BifdSH5M7Ewm9SjiXvrGNiZfiUuzLU1hYrW7V
XNM5CdJx3j3viXinb0lkOlVPQniXdIWwGwujZU/qy1ZPYZmNsmLOZRbKo+eW
me6fwoWA0BLjwXnIpm7XpXlPYbcR/35vXmL/BNvSBEaJY/PEiqzoeZyS55SK
rZmCw6b4v2+OzONu42O6/7FpOBreZhVGzeOaQ3cBe9M07oxzc58j/PuJmZua
Ie9n0Eu9wak2M4f7m8kzHLRpMOvOOvER80jEQH+N++NpZDcFGZ4ZmQP/jn6+
XuJ9ZZyO2okH5zHa98+wfCcxV8dnBf61IOavkWpBn1fTcH5aPtDTMo+C9uLH
F+5Ow0nSkF58j4WfUkk8duwz0DowxjC6TOSzlE3YkahpRN5ytLFtnIP5qojs
ncxpCC2rTSywmcMPjrNyIcT95Gv3/dbsIeqptfTp1pfTsKuzNKsynQc5ZPLi
5kMz4HXfa5JFYWG/+LPtZyxmIJXaJ/+H8HsRojEOxkYzsPaIUmtRX8DRf1dH
392YwdP3vZE1j1nQ6+kSu843gwef7vM+IfyAku2QXdy/GWT/Nd7Tfm0BmseE
x2NTZ2DBU/Iwyn4BAoFddza++oc7gZFrw4IW8NvhTcsT2VkU6/tSMrYuIi7o
2XTljln8O++muCtpEfOvllkq2P/Dxo3rEplGi7jVHO68NvIf9qcf8Igl8nFt
jkLcTcd/WM/9833M80X86+G+1flgFkGhb+ufeBH908vnCuvyLFqOC3odqV1A
yYfIwG+/Z5EfFiofuGYR0jPGNKefs4jUrPq7L2IByw4/k4tMmUWN4c+beZUL
2KSQ7ns0cBa5UTkqVycXEM5M4M148Q+RvB2jxdcXYBodONJ46R8CVr451bRl
ASpGMWkqGTM4Lr88eYTI9zNaK/8Mf5mB9uC9vafVWPg6Z/l+qHoGcs43Rd+V
zONltoCdw9MZ9D9dtEwh4l2Z+NT1b8w0LLOslNoITXNiF1XqXjaDXRmv+3Ut
CX9+Y4FC1Z6BYRtHKectop90ja2mfZ3GBYOwVZ9vL8CiWpPb4Ok01D9LJ4kT
fvtYe6GlFNEfW4doAp/kWSg4GFZeGDGFwiwVXl+9edx0z71kzzuN5hDHvili
/tty/s0zL+L6nOqpLJFYYl5XKvBvo02h6WPhmdP289Bad44ZJD+N47x2RnpE
/hxM2TWfVD2FneG3WpK/EPnE2j0ScY94n8J8hlbcPB5309/s95tEj/9YtKki
C491X9v2EnrU1d6vnfN4Hks8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77E
oy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSj
L/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv
8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x
6Es8+hKP/v/x6P8DwNE98Q==
       "], {{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.006944444444444445], AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl19O2IAYSBdDbtm3btm3btm3btm3btm3bShpJenavedir6gdOIVHjDpXb
BwoICHgVJCDgTw2MNiAowQhOCEISitCEISzhCE8EIhKJyEQhKtGITgxiEovY
xCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelITwYykonMZCEr2chODnKSi9zk
IS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tSh
LvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8HOtKJznShK93oTg960ove9KEv
/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQmMonJTGEq05jODGYyi9nMYS7z
mM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjayic1sYSvb2M4OdrKL3exhL/vY
zwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJy1zhKte4zg1ucovb3OEu97jP
Ax7yiMc84SnPeM4LXvKK17zhLe94zwc+8onPfOEr3/iLv/nOD37yi3/4l//4
zZ/wByIwQQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKT
gIQkIjFJSEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOA
ghSiMEUoSjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CG
NKIxTWhKM5rTgpa0ojVtaEs7/gzvDnSkE53pQle60Z0e9KQXvelDX/rRnwEM
ZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxk
EYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQ
hznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGP
ecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/iz8Q
gQlCUIIRnBCEJBShCUNYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIRnwQkJBGJ
SUJSkpGcFKQkFalJQ1rSkZ4MZCQTmclCVrKRnRzkJBe5yUNe8pGfAhSkEIUp
QlGKUZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13qUZ8GNKQRjWlC
U5rRnBa0pBWtaUNb2tGeDnSkE53pQle60Z0e9KQXvelDX/rRnwEMZBCDGcJQ
hjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKW
sZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5x
nBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGc
F7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/R38gAhOEoAQj
OCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4SkJCM5
KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85CM/BShIIQpThKIUozgl
KEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rUoz4NaEgjGtOEpjSjOS1o
SSta04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4ShDGM4IxjJ
KEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhazhKUsYzkrWMkq
VrOGtaxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOEoxzjOCc4ySlO
c4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94yCMe84SnPOM5L3gZ5P8/
+v8A0vLxag==
           "],
           VertexColors->Automatic]},
         Annotation[#, "Charting`Private`Tag#1"]& ]},
       VertexColors->CompressedData["
1:eJwUW3k4FF4XttYvUrYKLSItlhJCaXlLIUpCQqVQaBHZikglpbSnsoRSlIpQ
RKJFtiLGMDPWMfsYS7JERXz3+2se57nPcc+557yLZ2h4+jt4SYiJiVGniolJ
ks+wNeo9W8za4bJ3s/oJixIkN0u0hb1mY2BryboUXSZMcrqzZje/B3fyRubO
Dhb0vllvV5jdAXr2gqR5s0owObhvr8UuNhwXyy8y2NiMsxGjnlaLS5HtecSR
6s2FjOcjPu1OC4rd1O5QW0swcY4v/orGQYS/kp6omYEXm6vSx9eWQrRwqf/s
OC5G4ryeBbxuhlZV2sNl00uRmRF+utWYC8qe0S+BRs3ofz0zS3lZKX53z7+z
1ZeLnG7Z2mFqC9yvf4t4V1sCafNjqYbFHDgw81y1HFrgvSCGLysqwaZTd3F4
gAOpBYNKG77TsT793036yVKMnL9oWS/Nw/spP/jbec0oPH3vqKF4KRTHPVZE
LORC757QYNMFBi7QuB0NO0qxyVe2sLaQC9OiWq/89ib0jl+Kk+CVgrnMs+th
Kw8ULerXN/RGtDydfWtLwgf89E19mOvAx4dKns+3Yio8TRZMfDH/gtqr+/sm
twowpTPrsWxfI5bUK4y9UfmAu8ef3nTexMd3a7c5pb0N0Hi2fcfiRZUwOb5d
4suYAA2ujQeNljTghebE7KyuaoS5vt0gninEoSJVX/aiBswwOfF15Gc1lK60
XJV6IURuyquCwXwq3rxnIsP5C8qTCmMUdgjwg5vj6j5GxbZb9BdDe8uwLmJh
5ai8AH/f2nZK/2rAsu2XF8dKVyLQs3lu3LAA9/rsdmYEUvHkfahCwpZylNxt
+XE/RoD6lc6Lk3ZR8SK/L2Akpxw+LNtTz9IECDTZ0Gr8qQHFc774WZVVIv7V
9KhDmkLM2GBe4LqZih5zk+KUvnJkXTcdS80VQOxkee3jGw04U/l+ZWBQFe6Y
/Sr2thViv7PYtTviFHTyDjzOOlcHjQJaVcDnLqRbpmXYRNbjQNH5hLrrTfAz
0brS/VKEyX4p1+cX6xH6KijjnHkTPrXff9uVKkK5Vgh196F65Pcf7x+7T0NB
VaVOUYsIt2dZxLQn1eO5n8RHzpFG6Jd9dIwME8H9/MzV0zzqYduQubikiAaj
gPRb1zpFeKaRsSV3az0eazGaf61jIHhms2zR3G7E9M/g5zjVY6zZRG/Ag4EU
+ungItVuSF7zGww+WY+36zoS9T4yMKs+sfCVcjey/D461stTwPdi/9V62gKf
O+uX7f8rwkDznisZzylQU+WF1sl2YEld6r0DNSIEfRJeTtRrwCYbl7p55zox
bc8G7Uu3RajWPDLYQmlAWeGmIt1rLKx963W+dqYIZh0Ssamk/3qy9xomT7Fw
8+zn46nzRHC20oqccGjAg39e9650dsKthWJjFCTCEaaRa7UeFeqUa9VHJlhw
FzRoGlR1wStZY496WQMoitJTmGEs1G7acd5vrggdp6T7HjU0QEfxwD/N6ywM
yNru0Se/N3BVZsa9OVTsHk+TU+SxwDFRVe9ndKEyYvSKQnwDfg02WLltYUF2
qWeE/3oR0vfbLFFRbUDc0THbx3ad+D7p2N33SAQqy0FWZUsDdjekGJ4v7gTH
36tvNFIEVtIP6TFNKqxpaSFrB1no3nH534+6LlSPH6xEIRWnU8VVIl6wES8z
R9Tk2oV1CzNlptQ2YMFuBabuJRYu3kRqspII3oenLdApo8Jh4a4H04vYMFt2
fMjYvgt5sQYvT8s0YvoCoWy3AgetgpUNKipdeOG5dL/SFip+blw6sXcuG6du
Prldk9+Fc011QadWU5Hedrv+x3Q27KIOVo6UdoFbdHHRCbK/DVetO4JescDI
lmuQ+NuFoSc6R/9ra4BKtsoXagIL4oee932eKkJLfG1f1zkqrp1/oPPLm41n
d1SefIzuwsPpK/uW/EfFn1rZaB6FhbAoU091XhfifXdVbyF1deVRaGGkruGv
dfLHSF0zPSzk9tym4lBdZsPBcDZq5I1svpzqgkbUMcXxF1S8XrjKZ8MDNkpy
jj+OPtiFiaGkugOfG+G70i1BtZUDq+Var49FC/FYQ1JxZEETnM9I0Wxmc5HU
TEGjkRCPYr++mNvdiLEZIeHbhzl4eSLH29lDiOqaJKrjtkboBeisOufJwc1Q
ye1snhDWiTft8zQbETz7rqL4Sg5cJY4u+SPVhb6U1fvrZlBxtMzngHYLC8+M
rSWZzC6MOKX0n3FuwNkGif2F3Z0IcFrCzfAXIfiSlE9gAgXT9ZdO+/m8HVG1
8089p4hQp7ZstTKvHspXr12eMdoMBqtpY5NkN7oObEsqjKXAx2uaC2VvO3qM
jY04TSIUynR31aylwPjCilsfklqx/cDl4CV9ImTU5D2M2kVB7NRPfvuXtsFe
QW3edb4ITYnMtZkLKOgLXzLeP9yCf/wtOvNGRGAflg1T2kFBe/Df7s8SbShY
w42LEYrwOS/9cj+Tgs1PTXZMXcvEe/U9fePFInhMph39METBrpI7k8fzmEgt
oEjE54uwRrBUUymyARliA1I7FrNgYb6tR89ehOTkHzHW4xQUlWf/leEwUTGn
4MJInggmHlELtZooSKAHaD3414EHv4883PFBhNytVaWZvyiwcQiV3FXCxLS8
+g1iJD/XI4VJq6CAtvSA16qsDvQZvnidXybCgkrfCEYVBfEhGQOphR2Y/2dj
xWwS3y2cKy5uQcFvI/HPmvWt2NJzJM++WwQxaKsYjtWjlSe/rXF1Cziul/0t
xbrx3kkuY5EeBRJrdo8/3dQKF0tGz8iACPebYhbJFVCgv6zw8JvtHfCISGrv
qBLhe/GSFdKRFJjk5U3cUmoH83ZN+tdmMrcuLQ+nxlHwvtJIef7Vdlh9SOh0
pJK6Nm1TPWJLgW+ux6nfE63I5XaNvCd9PnRg0cuc+RRol69MOdLfgoE6zYTD
5F2yYlN0rcj5JqNXh03J+dj0eK9Kct4q9cofozMN8HaKfbNai4X7zmt1O0if
g1+bXi3aSQXjtxRFUZeNS67B7XUvunDg+bnTLVepSHNIP3Q9mI3V7d6VcyO6
8KkixVPlJhWy4h+H74WyccLSOuZqWBfMz2kVGo83IOmb2265Mhb67AqGr/d1
4aRPp1Ly7wbcyJGYcreUBSlcbvf62QWXGzVuz/SpSCqN1x8TZ8PGbO3D3vIu
KCQ+2nvlv0ZM5N+UOTeTg7Ax+/g01S4oBsq9eW3TiNcFin8LPThQtlp63Z0v
xI38oAMYp6I8auNVMzEOPFvqLXcv6sJSUdPfi7KNeGh0bq2JEgdJhstfW8zp
gjFzVlbjo0Yor3icolPBQU+fysqgR0LMXd6r+dqChgfGv3a3NXLx1y5otbiJ
AGs37H5j+pyOqFTHK9FFPFRMs+fTJPk4odMo9vg1DYuuN/3tUeVBK/Hpi5XN
fMyL2bsiSY6GrPnugVU5XLQOFZbbeQvgVijnfv1uE+b0L3bv9eCiz31b7Y06
AWgHr9t/06HBoXeN7fUyLlz0jHl6tgI8PSnxtP9rE07q9cwzj+ai7JPGk3uP
BDDiTP2yn9sElc2vOlLuciF1rsD9VawAUg/CHKofNyFf9cdhpWNc+P/tu25b
JoDxR0ZMdE0j+kOYxQ9ZHGTqawbkhAtx32iR6flFNAQ4LnrXUcqF/IIFs4Mc
BUjK9xP9NqQht8Q4nFLFRbHzZnkNSwEelSTslNGiweJ+hcD4AxfzNn2V+ucg
QMhpjeQLMTSkGp4/unKCi5sH/pU6/ONjyuvBVt+tdMy5knhp82keWJRgSQNn
PtmD/BNau2kQZnRb+TO5uPNx3J2xVICvwfqaQ8ua4GXsHlI4j9xfPnjJGl0h
hpNmLO7JpMGmsfp8lhIPkQYRO26w+LjS+IW52I0OsxeHr8fH8PDfd4GviwUf
oRnx/vMj6DiVYOoY9YCHB5mHnLN1SNxli7fzUTrWfipnKd3iwWLE/PPYGj6u
bs7RfXCJDg37qwWbHvOw6ECJX7oGHwOlT8d14+iIm2f+cvcLHuSHnHWos/lI
UsNDkx46Lo+OMEY4PBwX22glVsOD7247p3EmHRLqGldU23hY23h96mUaD1u0
pbXLK2jIPNXhaLaEh/U1miFvq/j4cvipx3pjGm7fOUq1+MpFwNztesu3CLD/
gKJ1WUETLvPFuqxOcTGgmv7rV54Ax8Je7MtSb8J0u2SlT4SP9hXYbDYhfPTl
3smDNjeasHr9gAffjYsL1eabhxoF2Kf6+t+ZpzR8ymROzlPkwe1wzdoMDh+L
T6UwXTvoUNINOjSd6PWvJmt9ftJ52NVxcPX9881YwDFdrniSj8PHN8t53OFi
44/L02LWtqByqvbKljd8iJ9VLtOS5kInbc6/e7UMGC7y3tlP+tjxd7S2fS4P
Temh1x5ebcGE0CAzpI6PpteCWTuqOVhwve25SlMzLFzbB8Nv8yHhR5MscOSC
adJJNzvWihW1BTs+qQhwYlgnLWQBBzzBxlPaN1shaWAVnqslwBk1sSQdSQ4O
ftpv/p9uK9xPsWV8JQVIbvHlrbbjQDg2OJJ4txUf1UYWnl0iQO7q5/z/Jtng
Fbv2zghow0rF5+xSfwEKR0q67jqz4dc9nl5b3Aab51Uak5ECmMlVxJcvY8Nr
ciIyUqYNVS8aPF6QPdxzouluRAYby6pnbzDNascH/wDD2GcCXDryrKSN6Jcp
ikLKW/9WSAu+vV2vRvYzxiFTbi7hfwFHdH9VG5nfvi9P9wpwRE197oWLbLTc
n03IoQ3HOZcr2kIFyNs71eDGBjaY//YuDopth3+oXjST+IdP8c4x41lEhz56
G5dl3YYJnqZqpqcAYZfq9c+GsHGvLtrkQ1Ebcp+ve/eU3N89ttJ7QpsNi0P3
nzh5tuLHitvvamYJsP20/S7TxRzU49bES04rFiVI7fbfKMByjQfTS76wMVK3
Ymz7qhYEXz5wMTCPD+O2EonHMlyEfLb3WG3YjEFD5+I3e/n4s12x/3kdF0WZ
Egc7KprBrHc7+/kaH1sfhLpG7+fi/nfpCx2/Gcj/+DY4Yysf9m++pZv95cJw
59+56YkM8HVuQEKbjx+MzTNvmvMwKuvurHGLgWkF6TtbFvMx1eJ6QLU1D7fM
PCLd1VugvdyZGfmCj2PLDjy7pMbFUcPdn6eIN4Mdujd+7zY+Zn/6VzB1mOBW
snXEu7oWLHa5zP/E42MN5/jK3fc4mGCtnFo81IIDxlVK0wf4mC83R21tGAex
dXYDM4+1IXTMnv/xuADDs77QNfexofvnl+l4DJkfqX6FHZoCnF78Rz31P6Lv
XgfdrU9rxc9W5QyOjgALy6x2iv1iwzhLTD1Zvg2LlsRfe20nwAbxsQOMR2RO
rhQf+NXRipII2UDmBgGuX6i4tbOKjdNRb4pepLdAqyWyqIrOx81IMaetBRzQ
z6r2e+1vxZ30Zb0RygIwuzd8XrWMg7Vh10emLmxFzZpA1/JJPh47LVS668xB
15QLarqkXvHq/fG3Sb15F/N2l5F6g3WDhwo6mvHU1i0v+y4f3gn1ET7bubgU
dmrjHxUGcorbbppP8NDjeOqSTToPT/Is8sPFGbhGbX5gPcCDn0piErWQ9F+p
vr5QigHnr9Jr9g/xcHb4RdC0Ah6CpYJlna7RUCZ24p21OA/PzU/G6P3h45XE
yIrT2TS8K4iY92A2DzI9DIu0dj7k3d/TAyZomLHwQfQrGx7EHE7+Ftzn49Ih
/aVXnOn49Lf07NgFHry4D94st+HDwbGnqUiDhrg65sqiEi5koj/OH98lwNm1
hovlUuk4KsOYdMoj/KsV+jhIjrxztPf0iHQ6ZKx/rQsj9/u974araCofUUym
47144kt1H5s5LuMj5KT9SvUtPIirfi6Y0GfAd/nx1C5pPvyfX5Ksu8ND/amO
evtDzShRCWC7+BLcX7Z4VnImwb2Hv5Zp/aXD0HHKh1u9PBxJNFm3+AMPA6na
PeGqDOi5Jf45Tvp5qna1pfAJD3NzZc9RAhj4teMWrXIumX9jj/317jxIpTUo
JPQ1I17XKm04kY9yBes/uzdysVrqx/H1gwxU75YcDLAk82+uM2A+ycXD+Y7z
gkzo6NlrT33jx8Oa5TN/vfTmw01t7RytcTo22q8Sa+3jYUQ7er9vCQ8OOffe
hfowUFwZreGswodZquK1F4d5qDQv15Sf0oycxKN/p9ryMX5jptOqnyR/nOkv
6lAzTEfEL05J5kPPf3nsg7VcSKpl6K/71wzurOejSx7yseHyvBshq7hImXqm
dMYxBnTtAzUvq5L32+eJAS8ewst+8PxI/51vq1WdIP3/RLmZPUz6b3Ze83JP
Cg0mQXX3E6fzkLznlPzUbj4enp1TZBtFR+H3DuszD3nwtGkZcyF7X+xoNVd/
Gx1vdIa/TIvgIaTB9jtlF5mfGH5sJJfkXxrCnezgIcbLTvZpAw/f7hxTqFxE
x8Uq19pcTx7uSBrZfSZ8deDm0OW3J+gYYhT+0bvLA/tdzPSzq/io2qZsn7um
GUUNO4dX7Ofj5bGC7H/VXDTI/7r24CYdt+TMGmQzeWhb/ugnl9SnZ+l56FIw
A05U3oHseXx0pqTu+LSfh1YdLaPeuQwUdOLg+kkehk0dZ8sRvZD4tTPLL5CB
xwOTnmPk3eWM1dc4k3evGV4j7e/XjHW3tRYW+PPhpF13sO8RwSv5gcTNC5ux
Ki81vMSJj0d3aRdt27nIUxiQ+5rHQJasPHWqAR+NkVYrVq/kEd4U2bHcm7Gv
YrvEqmMEB6Q8M9a85OLd86kvf8m0oKz77ra3T/joGVxa/58O0Y/MOSZMuxac
nnJ67YNiPqZdvhaT94uDxHJ30Ake1mf/CppF8PDk728vFhM83KYyV2mFfSsi
VHWfq8gL8DB2QgaGHOzbOlTRe7YdtstypqgR3Vk6EJdp/oaFd4e3Hzkb1YZP
s6P1roQI8HJg8ruTDRuZWfP6X11pxcVonGMS/ByaurnPcSoH+WlmxTyfVnzu
lL6SPkeARMb3gxMLOfgZtT3q3Y42vPba9MLpkAB2x+zmPQ9gI3humrPZZCsO
32zQ6rUW4GTYmR2yr9iYkJS/qhffjMCSgE0bzvBRzZM8PHaei+OzFjaHbm/B
md2Wh06/4+ND9C2WxW8O7jkGF5mOMWBhKXnluDUftyj81QG/uZC1y21UfN2M
Qyrtuisu8fEvOKzi2nEumjLBlqa34L2vQuZyIR+TCZ3iNTc5qNwgZ0Al/JW/
UfamAuGvk98vzfAl/OWzUHtOJY+G7MBV5bpmPGwofxIokc3HLG/ZCzbraVA9
kXc6iPClc+dz7Q3rBUgzEsYUiTUhnf02nyFB9lArWINpK8TJxaqRGbZNiNEf
eGRP9u2B2g1uqqwQtefvZx8ab8KgbdyvgnQuwp2c32qQfr8puvxMJpmGfHaK
7SFZHvx/yazM6OFDx3tabJ8cHTP//Gh5souH6jHO2dtX+GAp1jWEFjGwdeJJ
7EYjPvbO8/q9SJeHoYQPEhue0TG9950NCO7XpC84eIXg4rewsmdHRmmw1cjI
W2bJQ5LixKZfBCdm9u1P99xCh//uBtcXp3i4+1Hy+cs9fIzV+15e1EDDtDYq
LXY5D1PS3qztKSX4Ks9qUblJww0x2oi8JA/q/NN/v43wiQ885TH1WBMu3rMP
N7XiYtpepo79oAB3dG/zf/k3YvNhza1TbnFgofnl8mCVEJlFplbzdzZiUuKP
QtBhDlhr/vqrsoWYvnWmrqkz6aewUj/MjIuKI0stPCSFSL830pXQSwPn7Lke
I/Bge+vQM4unfGx6K+bknEuHh41MgGopD7IX9h9984/cKzn219RoOizXu71L
fMTDvc/7NNsX8bG8/5TjlsM0iB0xip7TzUVoVNb9tUSfMgusS5p20pDyMKhM
qo3oHn8np6N6AnBVGFuYhNf2/DXYYBjNw8bp7715/5871ZtzBpYzoFUbPr6G
9HfxvG3mbgSfks7eunR9PQNnH/lUHJEh+Kgnn33+Mg/ej5dUn26h40Xg7uEb
DIL/2WtFFkSnz6qYGN3vQMcrK8V5z8/xcFNF1eXRDqJrYvyj7wzS0N70qlB2
M8HHTS0eC9MI76XdarAg83lg6fQtLWt4KC2jiE6Q+ZQ6GvFGhfhZv4w1iSeI
n+XPvxL/k/hZ4xchx3d20jHWdvChHfEvdEP2AxD/YnBf/Pa6W3QcUip2DyI4
mcp/aOlKcPKTk3padi4NicEXlr5QIfeJO323s4W8r/LIgfd8Gsb+Pb30lewF
q+q6iX4WHz93nuSK7tGRJOk3Ty2Lh4xMzTchynxEW37xaPCno2H1zvjEOB70
vm8+tMWYzPP0H+nX9ejgSBsf2E34rKBnVYkBwdGNnjkmM0NpoJ2nVIHov2Xb
LXvTZARQSVLqVQ+hQU3s8p19g1zsEKj1LpMTQHDzz4FTHBoGuWO0nNU8aP8J
0Z58xceeNF7T2X00RLYc/H2RQ/ym42u+G8GtaUemb2q6TIfUf+LFOYTXJyQn
XIrV+eh2vvq83LYZLoMJNa2H+KhtkDYpfcdF/D+1e0n0Zvxuzlptf4fwUL65
33d7LmIOGx7+tb4Fc3XXjz7L58OA1Sq9XZLs95dyb1YKA8dCJM4eJb708eme
EGcypwtL4gquVNDh8tX50vtvPNy498MusIfw54mw+EhbOjreclZeOsND4Xqq
b6MDH4wHry36iM7xevEq8ATROQcjfQ+2k/dfOSreUXysGTZr9mvX+xHfe2SN
5thjoudPyRvxtjRj7Vbvr0IPPsxzf9mFf+KCvzl1VW92C2rCPoy0kvdbp7H6
ysZXHOxZeV5J51kztsXNtL0RxYd2zEcFeggX0S3xyxfrN+Pxpgf6r8j+y+bL
dk5SuAiWTjsVcpGOCyqMuug0How2+bilafLR92ZatP29JrDa/l066smFUUY8
h/+d+P0ziyd2cptw4eVdiXt3uXgeaLWuOFaAtq/exqXPaaiZsyDFSJn4hFum
Pi2dZB/9ze8lkvw9W/dMSyb5u06u2RxF8it+9Ke6nqFj9dEsim0y8bG1Uqxk
gtNaWa98fBPpCH8aK7HvFfG5P5+J/BWIfjlX/SQ/iwaVaQ9nzCN69XEQ69C2
Dj7U7hS+/3WAhoKwoM8feVxs97L/46lO9r1C5dma4SYoeM5QCnnIRWVL7imd
CAFMr0opFM2hYURnZIX1Wy5Kta18Et0EON9jb+S+ko7BwLGPNUcJf0cPSAkJ
b5cazLT9xm7C1DP3ixPjuFB/vjVP5poAtz+PXTRJoIEaEivq+4+Hli3nzAd+
kPk8Yn+wL6UJDMnuf0M+XHxY9XYwvFKAD2WXTXb+aMIULj/r2QMuhn1YlE3n
BVh5tDHj3pMmuM1TC40/xsWJPRbvkz8LUMcz0g9eQUPu+i1RXeVcjCU8N5W2
ESB9x3Ft+w9N0Pm6WPJrBDkvajGJfyFAZaaD1el4oufvfaIHk/tUbQo7ENfP
x7kiHXklCxoSLG2nhjRy4da30iTWRACT0EE321YaNmeNJ/kbEZ0/fk5m6ls+
Bg//u5s7lY5qpTMlj3byEHv8bsXPG3w4Tzt/QjCPhqVqtltSyf4oh7ksXeRK
6nL6+H52dhPaV+/fmx/ABW+mq/fxdwLMsZE2UdrVhF2pk2rBq4m+yaE+nDVF
CKHrzTQFw0Z823opf95mDuRn+G9p+i3Epo0FMU8tG2HY2OSUu49D9qpZdKdL
iNvXy66cetcE3fQu/xdhXOxXKDxd/kqAv55BixTn08GS6dP2IDrv4Y3OaTER
hOfr59+2NqPDUWtdgW4AD1THf2y3g3wkqnWsCGfSkc7YE1pJcLlZbP/GUYKT
+Q5bm5WI/izgxO4uJzgWVfV0qSzBscvcNiueJgOajvc0b4jzceR93OBnMqdH
fi8ZkdnVjKhIVthPou/N/8rM+5NPdMHMQN/aGS3YIt5fN57Ox2bZbKcFS7l4
afl6ZhrZ961f0hY6k31PjcyznE18jUzEjB7Hdc3wOj96dOYBPnbOuRo1XsnF
uorA8GcOzWBkde8/TfLPvLZOfSqZ08pfX5ednqRjoFVgN9lP6vJa3H7tHQ+T
mt4rWkn+IdlutaMkv9v0HG43wZPHHJ+Tc07SEZkwcOdxPA9z1hlu7tDnI8in
TMpqNQOMBBul5/8RH3pZKeLCNeKHpJ/pntjLQPKu5ifOBN+t2n8H1ZH+LepM
tR0ZYUDHK/2e5Faik5pob7PGuBgxu/1AyoP0Z+taM8PZ5LyqV9Dt4zxIxq54
eIDDAD2+/ITeJj7Sc46s2En0TljyIvvjFq2w9VWdYjBdgBdiv4/oreWA2nqe
rkD06piNpvmvhwKMen/WqSB6VW9WwHwJRhsqEn/z318Q4NyFKfShOWzEbO6T
7WtqA/XeHHfP/8d9GIkGqmz8OWp9DUYd6FZUu2X6gcxfotJBt60sTNs19zHb
tBOsRwUtf5WFWMip2lqzjImvMnHjs4NYePptj8XmfUJ8eur4fZ5uO/SlV635
2MbG/LEdaxRvC2F+krrt3VvyruWK6pVOHHhLT7P7+ViIP8O3fOZxmsEcPnVr
YwIbpqpYtzJGiLI/Q88c9FrhnVzqZm3NxidZO4tH4UL48r+GdRW0old85wOn
T2w8KD+aM+O6EByRkVeEoAVfhkbi32xkQ+dl9Kn9p4W4pb/oU0d5K76cvKv+
NZSNUKFDyd0oIZ4Ue4otOdiK5OiKytCnbOTalG2wuCIk/Rpcek2pFUV/38/r
vMxG9p/eN/3RRKemt01Xt2rFzOT5o7Mk2OC2ersZBQihQn3CHDFoA79y1OAb
lYWpPcoXLI8K8WCi+Mv+6DYkSPbzbt1g4XA538DaneR5dMN+/VgbsvbG1axw
YUNquCi97owQwxfn6w0/aEWKXcaXrTtYKNq+Lpu9U4hm/VTLa+RdZfUkWH7Z
TIhHIa34nwDNu5WjW78zURR5w180tQO1t2nHf74VQLv7YIahJwsKO48vq6xq
Q9292AE9go9rm8Qe/qfBxtUfQSFT3Nrgmtw9PusI8SlFGntqvdm4MLp999rh
VqSV6LO3WBIdoK8d5fWWjYQrKz3vXWvD2+slRutOCbAwcqmF/RY2evo+SU9H
O+Z+/Ve+6p4Aw7+nrulvYeHGjw9e27rakCxzUOnJJQG+VTcLMuTY2JDLTvSm
M/HJ+XLfAykhEp7O+SmRwsTY+min6uZOnCvmHRBbKYS64rFto4c7wJyIvZ/3
phOb5fXpFdpCdFtK/ad/j9QprvREZ1sndNU3jJqqCLEsTXb3dwUmDlpTekPS
mVgzJGSvHhfgmN23kWvNTKTJJipd0uyEi2Lg40MKQmR5e33ZZM4ET0euOWx2
J5yuDb3cP5Pcp+xoQ+pOJjYqXnic/6cD5fFJhVc7BVCg7TmyML0TAtPNDvs8
mZCu7pmlPiDAip7NynuXdoIzVqXEl2Dio8Kb6tlsAZrEJet0Ezvxzs7izrX3
JE/v0pNzaQJQOnUHzH50osvtXK+GdjsivKJSLt0W4ITYC79JAQs67u6CwOXt
+D4+Q3/jHQE8Mqd/8uWxUPtN0iHoIRMyZq/CPcYEUFzgoHqJyUTxrAD+YccO
mFc7bE79IsCsiNoAA2MWFt2sGpR+ykTrcNvMCNKHNcY75XJJ37cuvm3gvJ6J
yrzn54XdhNeTn9efcST3/8bwefaYCZ9XKsY9JH/GuiDP/FYmVHNPyHQmdyLv
2YqMn4uFCO34G3cotwM3jDtdtH52YkYl62mvkRBp+ort8207YM2+nW4j14ll
0WsojXJC3P3BHbi9lwkDedmEbXPZOLz5iQMvWIiYwUg/mSlt0H5jJum3lg3Z
3kttCWFC/DDR1Zera8Xc2u4Ri3Mc3A8KddN+LsTHY0N/ZyY0YyXvk531BAdp
of0dye+F2BiUPv98CQOPR3ycNxKfyjBXrdvzUog+3bzlo2eI/ou1Takj/Jdi
OX9g9IkQU9+/d2yjNRN+eHsyIJALxqpzkpdrhTjEbDY4OkiHwnDBlWTiS//I
B//bUELiaQGDo/kMlK1NKrDM5KJxr+blrhohSh3DWoqIj+qrNYg4a8IjPl7C
cPM3IRJr6//qSNLxVmLVd+F3Dka6PrnE5JN76nzvq5VvxuThR+dGu9nYWGFd
vD1OiOqTZU9WJbfg/JYTLKobG0tK/s1+HCnEfpvZsxfeaYWTVHWJliIbpRvP
WF4PEuLSGcXI8VltEGx6+Dz2CQuTqWFBew8SvHL22Z1Hb8OWbQjVNOzEBhNe
tSTB56jSu6sz9JmQmmpnN0eeheADbRITa4VgfXlUzFDqQL5gyozsfibiDr+7
3fofqXehRw0rkglm+uaqqw6d0F/ZuyZEVYjW//qVxacx8esb1y1jmAnN3yfW
504jOOaCH0OhTPz3fu2O3Lkd6BjNeGVeLADn/Zn0w7tZOGebMGNb2///jmH6
aYz4f5O/ZbTdXwkfrLsfminZhvEqpaFD2wTY8MOzNfsFG9psv+sBH9rxy3ZV
ayLRYQZHR9UnrrPQZhw2/vlLOyjXIxwiXwpQ5vZZuzGWhaasNkrOrg5E1B7Q
oZH5LxET3vJbxcLiLTp7qjYxMXqZave0h+DbUxcLox2dOC1s+t5H9lr+W4D9
PbLX37783tj+pBMqWmGUts4OXHvzOXJVmwB77RRnDJR1onkw5Mfigk5ESszf
L6UjxNbBxAVBcR0QVN5YfquOiZX70n7bEL9t4L5Nai/ZN/6Js8qX6zrQ9fXf
zW3NAhw/ecgzkdEJqSLvnlwLggerlW5tn0PmgX3u9C4VJrbZZggdTViQW9dQ
TdsqxOSG8ISXRe0YMN3Ft4jphPSBObN3agrxNCE/XOtbBxbKDi1LorCQpJAY
NXxEiI7m+isrLrdB/8a6/4zeseB8oNkixluIhzlztX7ltmHmj3VxcgvY2Le0
Jm9biBBr1F7uXyfehp11qR+js1gYUPUfeHlIiJcrrbfKEZ6Imj19d74y4a9p
C/Ji1wuRN2L4gvFfBySC10WnDrHwLvKCyix/IZzCCq7pbmuDT1BBfCzJr139
Z9KN5F9aybnqKdYGExvF8HvnOzE80+XsXg0haEcM6L2UDuxQsvSTYDOhIh8l
fYjo13X/Nam43WJiyHLyWZgpE1ZiYs49IgHmmnz8Fb6nEwcnOsobCE9ZFlte
cSU8Nf+lQ68B4anetsqufvVW2Ljd2VsySXTd1MMuT505aH3uxr96vA2Pgkr0
4/wEuGq86iv2sKGwMbntr0E7/IoPj0vECeA4PG3bOzYLPu4evDuR7Ri87Pez
k+il3AczGfL5LNS/XZKZmtSBEatZn+LqCW6PBN//IMNCkGV38z8PJqavMF89
k+D/EZHN2xqC/+O//2aaLu+AknPu1lWlArAC+/N/bWPhhOltTWvLNpS8ecmP
8RCgYOyMoiLRH7Gv06L2H2mHkdlB253JAoz36hbnf2IhoOj+Xls/JhIE+uEL
hwR47JAduEC1E1eefF7Y6N6B6mPzxDsrBMjex7MyXM5C41GV37Fu7ZhyyaDd
MUkAJzdByOcqFvaV35gUZ7aDPf1rpyBHADffGbuWh7Mg9X5ny0J2K1QvWsv1
gvSnsHtlVznpT0z8ox/7WyHmGb77hTLh8TjNvtqlHHSFZG/MvtgKYSHr3RUN
wvtz88UPyHDwaGZ4e6VzB1SUt0vuKRdAevs06XhDFnomop+UkP5Y+XzdIkX6
k9jnFKy6rBP7rHxl/x7tRMazNzdvzhciaF9XNqunA2vWHvOihLLg/m42Q9VN
iMLrmjcWaRDdOCL1N82d7O/x0NqmnwJURIQHHtUme5SkFcXrb8eNJGq18LUA
HRs5ctEnWKj5s3q4bCsTE1OULlJ7BeAPvVVkkX0rULddmvOTiZREsW5pglez
zdVnZ58h8/dlrtP0MiZGvPN6VooLIWfDzrIsYKKrQfx9Sk07AvSW6VGyBPi+
5fHQokssZM19c+rTqTZk/rxtMBogQOZ0tstZBzb0sis6Noe1QcT0EZ4KFGCd
bf9sV3s2nKuNlbmarTirQN1UKCZAy+KlpYeJ3u3QpvtK7mkBt1xh0d9SPhi1
1z+P93HwdybdoeRcM3SlVld/DeGDedL35hTij6spxjamYc0wu2C1yiaIj02+
l7+UJHCRo1yecmesGctsTeMSU/lY9yq4rsiYi4vfoxY0Lm5BYN5HyydZfLQX
LuA8msXFojs5ZW0WzZh6MnSamScfkXLXLT5+5GKF6/wddyKaUREj9cAnmA9/
ZX+rlfe5OCYrWNOT0Qx/mTtuWlF8HJu+x7z6JBd2O5QPuJgzYHrqoYf4dD5M
DirWdkTzsD2+cJW2PwNizxu1+GrEBxU9cG705GGkZPTNUy4ddav7C1WZPPgE
Hg+50MCD1mOJ92nuDOT4OborEL/DnVx4o534nR3fFyWu0iE87DyjttGbB5Np
0S6mAXzkw8HS0rwJexJDV4sv5+JrVfvfI7OEsM2/VtPr2ATXn2Vee4kvzu5W
LTAhuJLl6Kr04B/xuRmTCWcyuJi2Y63P7GABNEWsmxPaTbgcxwk5OJ+Lq1OO
NjsQXP8n0exe49qER0/dKRrruHhccKBgGZmLzm2K8ZqpTdhp9t549mEu0bXJ
GjsqCR7c/m7su5iGq1IrolVJH2svSm+stSd6fLZ8qzqjEeePnqiZ3cXBM8bW
+FziD8rfyE/uWNoIxwD3K6XGHGg65Hc4indBa0sBJ6qWitIaQ9P/7+Ho9pmj
06y78HzX3yt/8qmYKhtwPfMZG179smWP9nZh5ObUt74KVHyoPO5ztJ2F0hy9
u7XtXfB6OHLBnNmAK5M2e2jJLJh93nDaWFqE8TChuBSFgrGFx7I1BB1IHpfb
F/dRhCmxkUaCeArssk5ZUJ+2o+zSrLgmigj2zp6jrjoNSBg7t+3S6U5QP6t9
2B4nwi2d5ot9qymY+2a49lhsK8RZ/Zv/+yHCgq3nfXUNKLC8q/jIkuDHknCl
4aM/RYh5l8VVbqOg0pyvrbqY4PvNDbZ6JeQ+3/YufxBOwbS346FN0u1Q05d+
GdMiwvHZlYKgJQ0we+lQSDvRiQd91yQ87otg+2aey9J2CtyXH2kx1GXiW1y4
iPFehHlr9+ik0ikIjQjqei3LhPOdkRdXS0VwWcvdnsihoN/tqGOnHRNm07h3
29+JkFWZ6Fyp0oDC+s1jdKIDxnZXXlqRJsKEjOHEjPkNWHbgyb0I107YKZ/2
qk0R4czZS7U5vRSsXlmiYnmFCUaW7IWytyJINVUHjo9TEG6mLystIP5hp8G5
j3ki3Az2r7t5iQKKSaCh7pZ2sK4u3K5NFyHAT1akcpaCL8yv/Xmq7Yi5+qw9
uFmESN/TYdNPUrAsPULVWNCG7IGd6uvbRODss1tuPNmAFvrrGVUVLKy9fKRB
v6cLlw7tKfb7RUHh8sauae9JXTtdZinmi2C8gLYiKIGCvwELTw8/b8fw7uw1
//8+ZNVU7SUYpMCrwnupKJOJ5dHVbdMLyLtM+7OtNbMBy9OdR0/uYYHiV1Jy
UF8Ecf3Q0zPONEApkaYmo8XCWebl6r/25F38+6fYDTdgGlP989oiFvYsPHKq
ZqgL3mOH76ceaAB70ZKE7olODIZMJJgdEWFoZ8EDs90NsJrIrogTdqJQJLsx
44QIY7rnrPy7KFiwzNFCOYCJZl95E4UiEcJX+YSPUsl7KQb69Y50YFK7RP7l
BxH+qFxg670l/YkPf6NC/I2Uyw/Pi1UifJEIVBYLpuCaS9vq661tuMjRdGOS
vj39qLSvapKC/94+G+/6RfqjTc3m5oqwrDnccvnfBqiLuu9f+kj8cJTN5LL+
Ltw8rF+y158K9V165xYTvI7of+ScfKcL8dbe9eMKDXC2WRz7e30nLqR6UmOf
ihCrZEQfSWnAxPoz4v3bWZhlzTb/ZyqCkZpDSNWVBvQ68y+3GLFgOLrR/4eV
CMcSD7t2vm6Ad1JpbLc3C6taXzDDlorw4c33zM7GBkhKrDDuu8mC738b/Y7I
ibBlvLxZpaQB859s1PYIZGFXoqh85UIRyi1Hnz8qoWJtis1i3Tw2XpQqBt1z
6sKeIGHYQ0MqupXUKl5KE3y45G5zt6wLvvOybqT/oqI1KsFd+jcblct7s64v
68L0g6LcJ86NmNqmKfk9gANdu/GRpW1CmK64+SwjshGhnKooy8cc7Nr9Z44r
8T2C4MKejphGVNjGJ77P5uCbm86ofAHxPbN+zNvg1ATtny9cV63hQmbadFNl
aSE2hYtlHrZuQqvbOC/egIsv+mkaFsRPT8wrvEKlNiFWd3DjnytccL3vxv5I
ECBH/g8n5XsTrBWYGo8ucTHP9pnh0RQBdO//Z3TgQBN+3N22uAhc3D7ZPWcv
8a9P8+eYfJ5Lw5pq2kt2ERdsp03Z6nuIPgpw8piSTUOuYEfaztk87L+yREy6
gw/X4JqlYi7knk6Pg/+aEfy3/LkiX0KITMO43k13GpEe/Uo3o5iD6e2Gc9uz
hFhy6vt8FaNGZLoKeZ5bOHDU1Pgl9VsIsXcLy2/spcLB7bpD7Go29vc1fMPj
Lvz2ZcoHVVHxryGkK+UDGw8OdHhNs+3C6/CokT3xVOjsKiluiWKj+nB2gHRQ
F4a31K/WWkfFzuEdgrMKbHT77S2b+b4Lmt9EnmpmjbCihz9UsSX3qahrCR8U
4uCASXiSXyNqrUeu7b7BQbE1r0fqqxB+Uq/+yEk34fwr/y1p0lxUVRi91rQR
wvdPo7nuSCNet0XtmjHOgY2N9LHh3cSXfLGgJn9rwpEx1ci8aC40JwfOiT0S
4Afz645ZITTUubd+cBrkIoOtL28oJ0A1db1ezYkmjJ0qfdFrw8WZ9rvr9/QR
P5fN8rR63ETu5xf+6SgX9dJR8SVlArCtVp7Mm07De255uUEOF50bXq9Q8RFg
5eJ53/dep0F9cV7RoDgPZV+Pw+Y3HxJK3w9t6m7C1o7CK7KJXJzzEB7/FC3A
2ydpM81f07H9gYO80wceWqM76qaPE/4331Z6+wwdpbduVgUk85DwY0eRrzYf
LS9bK8ae0WEau8f5XSGJyz8c5Uvxcdnb0Z/2hwa9rG32hVY8LEtLv9CZxMe8
i8r3HwhpsA418JxYy0OxUs3z2y/4cB/2Oj1oQUdLr9+Fl6E8rFn93y5HVz4w
+qu6yIEOJ4MQFuccD7umDE047ODjxz/Z0k236JA6ZJd/MpOHudqe1F2qfHS/
jbjQsZ6O4ZwtDaFBPDy2rZ5l7c6H+ILmjUELaBjn2UakFJN+mj31/e4swLIQ
e3oaOe96OsjfgZyfrrz6dAQ5X7bsiWjdYgZCIitynST4qIyyfvcniYe6s8Ub
ypfTsfiEqtaCIzwUxGzduMSPj9ffj6nkL2IgZY/CikZxPv7bxlTRIn0a1rV3
CnCnY4MTX+btFR5u8zOmR5nz4Xy2hrY9gY5/U97JPcnmgammfstHkY9q6ZHu
DyF0nNTvfXgknocb8pLR2iv5yNzZvkGG6LcLg39mF3TwoBN02lCGykN7jUGQ
Ickf2i6feJ3kjzqqtKqI5I/zSH7cdKcJ5Y1pQoo7Fz8zlffKUARYlbJn3bI1
TUiY7TVNaykXGu0vJbcQH5C+Nnz/v0ON+KUmq3UoioNQv4uvkylC/Dy0O2Pi
fCPiJFec8X/KwZX5zA3574gPFhp+lu9tQtTt7zeMkwgO1MkeMrgggNHY7YM6
+TT8Nit17VIj/WrT/8Sk89FPU05VWETHiixeyTqiR40/0gr2neLDpfva13Up
DNT4jmiu0uHjZnxtSSN4CC6LmCrbRMfv/MXUmU08/M7tPzlMdOuXoQ+zTGKI
js095pLxmIdBa560ugYf9K0H9z0/RMe2rjk5vtd4uL/y7WDnBj5O+lJ/1lyg
IzV/nXrQIx4eaRtSZ2qROVnZ9nLuZhpsZipsNqByIbJ2f7d2tQAmka6/71vQ
wNAa7/jayMXYnOQUFRMBbp5vnqsbSQOSY9OW/+Yid9YV9QPS//eFP4ouBNOw
6uDk3N8DRN83u57IIftboRbPk/GmoU1S1/J5Fxd1Ief/LFYTwP1ig4pNEh1e
JiEJ3a94+O7bOJErzwfviNHn42SPbk1pnnQje/TyhKuFuzQfV62Zpucz6FhW
N2Ki8ZYHyglH//+m8pHCNj6kKcWAZFbpgolBHjZssdGILeAhb/eUafeNGHg6
pWqGGjnnMlet6P/fL65vEBz8WU7HzS8Lu12+8bCyUtl1pIeHtLb9BR2RDEzN
7eqdt5CPz9rLTvN38/DnQazSkHMzxBPzP687zEfCQZkg8ddcBM31+73bshm/
xf7+9iT+5XDIthwPorvPsMaUl99vhsze4x6iCD5Yrx8FlkZxUb7qYoGbeiuO
znlafXWSxEMWec1y4aBHrMpS3qEDO59sP3joiwDydTWdE8YsrD7Y03N/aQdM
BCJH8xIBuPq8KzvtWDiqEMSYaGjHjOcR/pxs4h9uywXujmLBu/8B38+mE6wT
Lf4qKkIUM/20sxWZ0AhQvv3wBPlMSLeIJv79Jy9+yp7ZnRjdqhVSlsbE3E1K
ZeVjArS9+ri7oo2J0z4bV1vMI/6++vtXZ3khFm7e5/DWmglPl4x9GiVMdMac
P2soJkSUdQv9///P4Xto6fXfWzpw6/2LcwafBcQfD7XWric+YGtOlDfx+96H
ZD+PEr//4VDCkYHTLPRa7otUeNiOB+684V0ZAqRmc5VeP2KB/WfO1rx0Jj7r
fW0xJ/yaMqXB0LKZiTOdlfOLUjvwOZQxsZns7TYOfXL7fyycY/10sWe1gcKt
1dx+UYAS8cLlPorEr0RWbNrc24553+YUbyN+vLjOezyb6JcN4WneJ4ieO+HW
YzXJFODgEq67dGYnrOYWGAv1OiGr18vUVBKiacojAduYiTUUxV8Ffiw0KAQu
fLiX8K6CnvQHw3acMKnjLyc6OGhZ166th4VgsOIfzEpug1ma2W3NXhZmRDy9
MX5ciBjFpG/GLm0wzFdblx/ERtzrmE3080LkSD5LEPNtBX3V0LO414Sn5zb/
k7kqRK1yByN4ogVLJT6sTCvjQOqC5yvWayH4yTlegVrN0ArMy7h5h4MXxq+Z
9JdCcJVC2IahzfD42q1FechF6dWnSeK1Qljt1303/T3hrX3Hgved4OKP8jhz
J4l/P7/d+OMvOsQUDxuti+VhfryS+jbC37amS1LGkmkQpdd6XiR8cuSlXap0
lRBO9SFGwdlNUDrNT/FJFqB9+voXmz4RXaUbPZmu1ogD1xztrn4SYNqTrINJ
hULMCFnTlTNGhZ+EsuqqAYIfe1RfDpF7Zlhxt4tTqbD2nfwdLOTjy5ZLsRsr
hPj85qt54yDRN37rzvdf5mPitMUtl0oh3EPM43W9mzCaI7VXn/CS9j3lq7++
CJGcG3Ev/GgjkuROnvoqS36W9Vl6P0MIqbG1n9e+p+LxWHNE9HEBTG0EHm/I
+VsU6R9mdo2YWOARG+cpgF31t5pGEi+Rzh24u68RLv/1ZV+aT3THJpl9j8qF
WF56UrM5txH2GxfMuHOGB+nL/6Wf+H9/qm9NOZFFwxQz0eN/djzQ38/KGiVx
m49iSjN5xG8r6Jt1HORjzsILByvJ/XcNZT45HNeEjAspA2w2H3vWa82wJ/We
VAvMevSnEbp1cbsu1PMx83xVWAyJR7R+s5WVb0JZncHqxqM8bA9/r5dJ8h/n
3lPa+YWGdJsPurn3eeA1p5gtIfEbxnN3fiU6ZrvfrH9bEnhgMXdd1SDxTdxn
dm1XaZgq09SqQ3SK5rqR+D/kHQ8dO7xnSIEGMVpLUrMYmfsCbcdfpN7HjmGF
jMZGeOmk3kr+TwCmcoU9k8T1lcpq3L41YuSUl0OYNR+J2+bcUSZ5eu13dSe/
aUKS1bsAPumP4P6/LH/ye0P//twsQ/rTs4k62nqaB/k5G3NCSXzZnOINn3Jo
yErz+WlC45H5VpzwrRbi7OPmxRGbaPh0Y0+Go5CHCcErJ1MSp8k9HPDQpaGf
2hIupc3Dv00FGse+CVHYfNw8VYnoqsqlOdsNeDh3+lqCA4l7npEajZpGh8+S
Dc15ulwspUaOmJcJIW95Wf/gccKjMp6BSU+5CJ/NiuirIfPyeMbJL0TPfVX+
3b4+h4Ozav3903KFcHvCMTUjOG5JO9KxooWDe8qKyiveCrG4a33Wkn8MbBq8
aD2DxcHez+mv9cmcG8qnLl0+wMCNt5ZPdEQcrHo4vupikRCWPbO9bdkMuLg6
8Nbs4SF61VnXFtKHPYkaN28zaGhcEZhuTXTc5AiliE/mxEhq7rudj5rAOn5M
V9jAR99Xfa9zZB6UmxZlLZRrQkmW+I6pRUQPfZIK+UL6Q5HUpql60bBOdD9w
8hoXAZ6bXdaQvRYm9t6WoNKholT8xM+H+JbJMT0JUu8/2gqOrTQDGl9193Da
eLh2vG6tK8nj5Xz9rssaGt5W5H32zOKixOfI3nZy3u/vuakFL+moSnn17nAv
D6N/DKyWkfPlS9zNViwmurx8/sxcovv2D+70UCN1xdSNtQovEz2tFZc02cbF
W704WzuSJ7dPUpAUQIe/Wcb1SjoXmR2PKveTeKggLurvKTq2tn/MYVhxEWnR
NtOT9GGl9yZNl3UMnPaYteFGLRf5OTFyZ8h5eqO6SVA0HVqzObRnZP5dwuwc
/z//niKFiEYy//En16c/dOOhZhl9az2JP9uZbujbSHTM68VdFql8FF8rcVUl
+RtU5n3V2N6Ea3ql3x5M8BEdt2h4jMw5Nh14d4feiIOMX+dlGgS4VDmq/ewN
wfNuC8sbfVT8sImaMzRTAIlDcXeryfkPNVVHj3xuRF3oD8Y3HcJPF2tnhJH4
aqfeimePGqF3N/uMcjcf2yI0KlaTd9wz78z3h/2N+H5na+xEC9EpQzm+h0n8
urXq6EbJJgRoL5FZaMzH1BWfWneS/aJ8Xk8PqG1CZ36ECzuC6JEjsTmBpK72
Sy4vrIifXPp7Hn0J8SefzmfvnkXePfbFl6LlX4hOMlie/KufA63r4rQLRI9S
H05GnaIx0OU7qmqox0OkoXOhB9mXNJvzXqUz6XCJSZ7YP4+Hm4XMhFskfnrh
in/TiR4Nz6IeCFnJw+tVR2Y7kfjO1nMFV2ToMPxzxiD/Eg8W0mb3nMh9uqe9
q7JJo6HSR1vrnwofG/feNE4n91eTZ9yt+tGEDo+0yKFaAbzvfu9Iyyd7VzOy
dOYAFRZy2+z3EV5ofFo4rZvwwuk701uYDVQcTZ0ulKGTOZ5xa+uyECFU21Rf
/5Wj4n78nKVVhiJ86Ngc+UyD9HkmtxpcCj70pzwWkyfxI3LaY9pCCHa9K58m
3oC979ft+31XBLH+4bjwEQF6F4Q+33SPAnf6zoCKAREcjq/8mE30gOGp1GtD
jhSsHvi2v2RrN0wkliYtChLAfugJ99NsCg4/4eRmXuyGQc1np0eWAkj6Dq/4
wqiH+qTcuZ8V3VC1L5rzfA7ht1GxPpsz9YifXUpPyOuGl8JmiUtLBLCZ/X57
b2I9xL/81tC/1A2bPvu5G0iew4+SR6VJnneB6ccKVbsx35W6KfKeAGJyB44x
TCnQmNk2WHGvG31JTze3mhG+urvIeNbnenwInDpWcLgbt8UkOJV7BUheGXZ/
oxgFz3avd9q3sQc+mZ8kTT/wsSR9R9wEpQ4+xrNOl8v34KvNFvF/LOKjcpW9
/irVIyYqp6QhrRtO6mEacoYCDH6Kk9LIrcctTdOVDh+78b92zvuf6v/946Uo
kgYqkYYipZRSb1QPDSGpRImiYRRRoSHR0M5Iy8omQhkloSXjLNnjcDiOY4Xz
SoWohO/z8w98/4LXr9ftdXs+r9f1vMbj+uXevPaW+BUlEp8d1nef3iqHRlRS
ROv3bgR/9bwpk9UJwfJ7ew33VaAyd/S5mm831CVLuLoTv2LRmUydK3EVeDzZ
QXDgTjfOZ5rGZI114uztwkyVqAoYzIktmnq1G/0J3+sLxb9ijlv3xz/xFRjw
UdkXYdeNI6/vLx6U/4qGPJbqydwKZD73OVql14X2gWkn2Ye+oi9pl1lJdiW8
JX7p9fzrRs7Aabu7KST+/Y5iSjsr8Htq16/fI93wDuQ/KUzuxKHE6VdsTCqQ
uur4/e315F0mUae2SnUipaLsuLddOfREOXy3fz3IMVygV/e9A51zZJMfrypH
hp5ZwIvuHtw/YbAiYKQDVduUC8d2lMPUyeoaxotw0cag3JzqQPWHjVJV6uXQ
943bxmwXYdV457UKvHZMeF4Z2ZpTirTAPWxjFQo2u9MUfMm+n1BtutJ+TSnM
jFltTf4Unn+7d+Pb7jZcyONO6DX7gmmVy+4acSlYbk2XGZnainFlesk3t5Zg
cvB4rf+aKdw34Z3+pdaC1R//ijwr2Vga2dT4iti59aOaxyRacDO7913XWzb6
o193qPAprJu7dlGwRwsyiq1ipk7hwPml1KBHE4WpB7eafIxvwYIPBv1vNTmo
YqbLl/Eo1KatpNbPJjrU8YpN/G0O9DOaG+QbKRRdj1vwaIIQPDHJx2meHBhI
KFyeJqRg3u3MK/pM9oFrkXJfddi412Ps7kL8ObetX/G5QgtK/b2NnzDYSNGU
cbhdT2HSLucp2dlCnNnsZTpzfAkmmQQelSDn7yoWLiqfJMS2Q6+6v17iwO3o
g77JDRRc4oel9R8JkWMi9WBmJwemL9JfzCDn/Kdm39VbJ8T4px0F4QolEPt+
dpcM8Z9VvWFZtokQ1luntoSncxDR9bd6Lvl+eGn0NdcaIZoi3Z1fzS5BwtGD
ktIkzjWOs638lVtx2MDIcuGeEgztkPMOqaMgnrL6gMemVmjv6b9w8kQJ5niv
+sgm5/DntnT5JwjRf0bp8aZ+DpYNKDyqJXYJxxju7lghqIZTVswfHIy6vH6i
mkahe/Xia/zxbcj7t/EwV+oLNKqwLLacvAtrtMH6dSsuXayyOFBYgmWXfR/G
knvn/33lnaHXivBYO2MzxxJsCcp+PZn8l53bduEmUyEK775sKc7gID7jL59L
7q1okl6bHiPEeaMZU0zJvQG/bNLLSfy33RI++PdPgDtUV21nJhtPJ5VXx5J8
yBx6+2+eWQt2eb5QL//Bhkg2S+InsVduLzl2Rq8FKxYubTBtYSNBX22jDzmn
VZt/app8C+Y//uogX8iG98V5PgsFFLxCqnetrRBA7/R2f14MG44xCdL9xJ9b
p+de3hQmhEb8poa4Hg6ONI38e0resb/c+dm4k0JcDVeoc2VykDUy9LOd/NeL
mYelB6cL4TnY/0Hgy0F5Ub7zOnL+UvHjBz4VCeAXd0jscgQb2oNL3aOJn5JL
2hqLiP9PlgnX7frJxt6hl6++tpB4Np0qD+A2Q5PBU9XawsbrJok4d2Lf6XX5
4yF+E8pu6fT2XmXh4o5r/36/pKBk5HQ+yJQHpRJzt+dXmIhNszn5v3o5pDd3
v82rJrxpDIyZfoaFacWng0bbKFxeyxn3VJUPV0+fxiORLOTYpVp4tVK440Sd
VBnm4+LeagfjXhb61sus9yDfz0jb3tbmzkd7cuCGk3ksBCa9Xc7Kp6DYxk35
ubkRC7ISPt8WMLHK2Oa3whcK/57uN5xQ24i7SiqTdRXIaHM7vs/zIekPTxI7
NnTVI3fhpOKL/QzoaAulcn0peIaWOiUo1uN3+8wJ6+IZ2F/0o879ManHF2Kp
P8c3oOR+w/n7IwyUxfU63vxAIdG3re/R7EbU+YS2dpUxwc1jdItI/T4fFOyd
S/b5R8X3vIamsImezrkjR+y3T/0wE/vUjMJZP5R4/7Fhu/6ZU18GhRIrRSPt
szwoPki9VBnIxMhrmekGSRQ+tVpbew02wNlNa9tlGybi3kfOcbhG4nPjSoqd
VD28X7obuUUwwHj5YccBJwoKtX+9RZV1uLF8OKFxIQO/x36EKJ6h4P5az4Gt
zkWN5bi1FtsY6FqkYLngIgXVv6WffkVxcSYzS3KnOwMrjONvf/Ig9mvTg+St
uJizRvlA634G8l/GnIlLpCBjme6l09uAnWum2G62ZiLRTFZL4TLJnw0mpvcF
XMzIzuLH+zFw8f1g8hp3CgW/xY1Gt3Gh/KEjeNxuBs687494v5NCqLvgja5t
LQw9LG2lgooBu5eD5/6joHFwjlHJ/hqiC0uNMpcW49glrYXMOeR75vpHR3Kr
8KrksOzArSLMDliqP7aZQkRYQ3JmVQ0a/CPTd1oVQ3k962i9JYUbetkWgb21
eDJZFcmsYtQuMW39Z0iB+T3L9vaCWjhcvvq29kIxtI3Tdp7dRkHMXO9hVF8N
zH65jlQ5FCN/3Do/1+sU1u7jPCxdXI9h9THJskQGFu06sCnlHoWr84I/1vjW
g6tkejizhIGekL6Em34UBM/1dw0F1GOC/eoX0yoYyHNxV/UgdTrarvj9jG8T
fC43R2+1YeHSzJC2NyTPJ+7YlH2Hx0d1rrNIIGTh9LDHV12SD8lbs6U7nHmI
5WcvWObHRInq+oCUCPLuHxOUsl0akPAFOu5qTCg7/dq8bheFfbt36ju41ULM
0w33Q4qxnx+11YbkT62fIidrqAE55+yj/5D80fVom2iQSvqhsWCW+zIeSgKC
zwjdmNi9TVqugrz7x7CABxR59x2uRzPXWTLQqhLw0vUZhQ/ry9sDmhvAddUP
VrRgIrDc5h5IHPZWrDzh7FOPl8f6rzxgM2DOd+A8raJgYHnSJVC9CV8CNGvs
dVlIu3LC347U784jz89duMTHptt3p6V/YGFYajVfhvRDg58HQg3WtAADa//K
89iwU9E/JUv6jGXG8azPJgLUr4orOnWKjZDetoO6pI/dHDTtCi4QQCJucVbq
UzaMlfce6CTnD6+euZy/hg/fgP9+u8Sx4Fea9LmS1HWl0z7fDqV6/H04Y/g1
qev6cva+7U8pPP1x40+sdQMCzXyDrBcw8aynzKuDnJ8lLnW6216AYOkeIzFP
Ni6uCPO0IfaTbV+W2aYLcHDJHzfrx2zkF6Za8smc9dLgn/j9pQXKls+DFHdz
oLj1YO7K/+mEopOXos+0YE3DbbEvkzmwe6e4tI34KW+25bu0FB/lU3MmXnjI
QsCx+D1Lq0k8uUs0M1aRuMkbzF69kYXq2dtbVUIp8OZ1qnStbsBQUrPzkelM
+F4w7Y2zomCVvVi8RrwObeu0r3IqSf6XTd01dILC48epx8a+1OHrvJsm3+Yz
cGs4rsHiLoWXxUZa19zqIe91eVtHEQNNjlFhu49RRE9unXTnfB1eX5F1HD9a
DD8r6X1G3hQWtLs8HGJy8ejsWtdjvgwIHtw30bhKYagkJfz6Xy4qLjr0rAtm
YCjlV5SPEYXFtf7D09Rqwd1R3OHgVQzOlrFM3xAKPaHnOnPVG9D4Qblm2VQm
/PrMDFgkT/IqKy0qljch7I+cv6EeCyf5a86uInH+diW7Tqy0CffCTApveLGw
6uJ89V2kn591YhxK5jYitKxMettcFh4MJzd1kXge2nXzlLcWH+evSGZ0xrLQ
KBGwuzmTQiGGVq68ysM72YmC64+YoP7I/HMh9rvaMSWuXjy41t3YuOUBE/KC
SX6fSD1u7yv8jFo+jtduam4SsHC1pyeq7R0F//khvYfFGnFtkYJrCIOJ3kVz
KP1kCtoZkW/0p/NwJ0ytKfw4E+kGX05JPiB5O/D5Z2RtPX4s70xcTjHQuOZj
jzupa/PI1yXvXXko05KINfQn967nD74j/huE+PpPN+HjXNIrsS2pZN4tqH5F
faaQO+WQBWdPI/qyNDnWHcT//g0LuMTPh29lGPtZfHBWlGb18VhYPvm1kxOD
QlTUseFZfo1gmXQ26fxjkv565nMA8Z8THmIxcZSHFH3pImERE5XysvttSb0P
fixgqFpwcTNk8c8+CwZCNeIUh4h+PqGhH/g2ph4sw+M8Zy4Dj1e+akzToJCh
++dh8Ydq6AqzZidTRXh3f4+qcr4I9tlsl3/RHNzb1h2zN64AjVu6+YVZIkgf
rDqvtZEN1uOu49vsC/Aivt9K7boIK2Z8UStcWYj8h+HG8vs+o+fLxsXep0V4
EabGlWPlg23vNvagOx/vn+mGDDwQ4fyC4O79I0X46urfMfLsM9asffi+vUaE
soXC3C3qpTgUdv9rq2whfL3M5ZTeiLDg4VoMGbLx6M38EFXHAtx5wh0z+iCC
n8sW8/OGHJQu2lNX97AACxX3vpiXKELX8yV9xzyIXnknpbtargAbbU7PM6kU
Eb0b9SQ/5wuW3JZbrj2uEG3ax//+kaMQPfhj11+fKiR+U0zVcC8Ce+yPHrNZ
BLmYZ6UatmWoZ46Ki4wLkX70COcK8WeWofCIigUbSo3vYwxPFMCmaq/m2gIR
dkgUCFYIOUjsrMnPfVkAh9maG2ImUchfN2ht87ISisvW5WipF6FsfsX2HGsK
YaVKp77K1iFop6/qHm4xhrVW2sqJUahPnF36an8lHExDfIRSRRibppX0pEuE
m4FOx+KDyrFywMzu5pVCnBFXeJXJFiHPVltla0kJBJrbNVPrCqDQK2XrT+KQ
+W6SWedVJsblvN0ZOKsA/e7cZYPEnjZP9n1FABMRTm+iKuYUoPzvqZZND0Wo
ZXpeOCFRDOPydwOPkj4j9JpUjRHJh12L5q3ResZBl8KHHr34AmQIHnyPSxdB
onG6kSiChftemm/0jAowejFhNKmNxKHUOSBqsAx+OeYDj+0LcT/1ANeH2Id/
kNL/WYYXW8zuptkV4tSgrs37avK9RlmknHgpkuW3tgZOLcSslfyR43EiTMzP
aPMYY+BQjKVSz9hnzI6Pl138UQSvSmXu2mMcuP6JtroRUoB9palpzEIRDkUk
l5+eWYLut8b7LbMLcFtV6jzzrQjZEmIT7Mlc2b5434yPZwsQ4XdQ57pQBN1p
VaExr8tg4X/TiH+gEMrSRxeb21BYVW6S+km7DqmHN2mHtBfDKC5UbMVKCpva
LF8uq6yGa7Vh37aBIgzUyj+TmU10xTiTRJ+oKhj/ld/j71OECVsP7VFuEWHa
w33BMnfKMH2xp/Ums0KkBPZJMsTJ3rTeK/lkUCX+ztuQPnN+ET5asWwr1clc
U/H86BdaDS3B+7MyzUUw6JwaaEd011Vr6WsuhlzYC+wyB4juKllcwYy4RCF4
14WMLZ+48PJQnfj7MgOLFbXkpYIo7N9jsOc5qx4zXryZN+srA8z25tQ4Ys8L
OF3pWFGP8a2fmuf3MLBQIka9OZuCd7p+/KLPPCRIHjw09oKJZbmmzM1kL/Ob
kLduixkPQVMWeipeY2LY4tuX20yypygaNUeHNeJXy4Wwb+NZYDo90C4leviu
mrNRt1UzimxdAm1msiFMU7WtJ/2tUyrs/XMmH6M5XR4ZpL/NPpDnoJdCYY9W
+7ghJR58wm38Q1yYaGU+51jFkn1zVcP6R8kNmOliVrMXTIQp+6nZ5pK+nZab
EynkoXl4htuHXCa09ukvW0r67UXZkeQ/T/mQv1KkPY3Dwsh/C+UsyL0/n27V
lpvejHBxsRVbBllgPAuLLSJ+npBZevqpbTPqrERaanJsnJdPcPAj870kLTpn
s2UL8vru1l36xcbJOSmmW4k9Ye1bjxHnFvzWPT3LdyIHZygddJK5Fha2t8uH
6Arf7GarhgtsmFE3rwcQnXN/R7wfNVmA8tFQvxHSJ6bqndqYQu69d4IzTsa1
GWk9t1YnKbDRfuX08lzif9X09WtCd/Kx4NR+RS6ZF7IOhqa9ORQmiV/3+tHI
w6FZFnuvv2UiL/LerNhIsncUXdHTudgA1TfSddYaTOwMenC85C3RAzPEx60o
5eGbhnFYTiYTKjH2VyeSeKa4XZ2FZw3IWBqlELORiTLh8dh3ZL+OeDK5ZfXE
JnSouTx8v5yF8MA3Cx2In1cz78m3PWyGWGzDcpmlbCT23dhMEZ25baFhd68W
DyGFjo3a54jOHJgipelCzpkd+KF0sA4nm50o81UkD/WEM6cRvW1xb6uG2IJ6
tK5sukElkD3FJtjTmehz6cpvAmWizzXnvG+PIfr8zEdJaadNRI8dkxfNTqjB
b7foexMNizFzSbqP/1wK445HZqpXVSG9+G28blARTs9360obEyFW8u64zasr
0az/dD1rpBBGbXlJBqTuLjolTW/yL4MSf6Oj/F4yR37+jlDgiBDaYp3bxy3B
38Z/69rqC3Bk7SKVrr+kb4QkbYjqrIBJWYzVi7ZCDGQNe07oIX3vsm61yYdy
WH3zn7jvdiFiZf9k33gmwoa8T/nZR5iIvHh14bfpBWgZ+e6WQOZFSnjBk29W
ZZhTrNSkQebFx9A09VmkrovNj52dcr8a5p3msOAV4cj6mm339pI9Li14Rmxy
LdadzeJFvSzGb4cumz9k3/nu29Kq+6MWEg+cD5uxi5EsLTGsQvStdHVadNuB
BqwSip1LnU/690Hx/8yJPSoi38b4YAMsEyv1Ioju5TUHR18Pp3ANoZr5exrw
Q2WRopcSE+pih2JZJE+SXeMHJpM8UfUwPZdC8kS8k/My+gXZN+WCp0lt4EE4
baMdy5OJ5kdN5+Pek/kVmXB+mnQj1ObLLbfnMNF9c5X1AMnbpmOpi7Q0+Fh+
2Cf1WjQLWSNc7goehZmZk+/1+BG9V/1He/gI2ReKovYqkXp0uf5cMnwlqceB
/0paxrPhlCF+QJPUkblBUngUS4CE6BW2Q5FsZCxZYC9PvtfhJ5xz0GqGzoyK
sL0TiJ2rqhNH6lFJcApiZi0oEuuXyvvBxpDaF8l1xF76WnUw6lQLnje7cgwm
cXBONpw7u57CM+mhvE21QuxLD842m1OCvhUMRn0TBVsfn+Eld1qQeN3jyJu5
HIx/ekJHSPaXHZre94/1C/BYpWMu0thQ3qDi5Ejq2scxOdhCWYBiTMhVsWHD
KyFgoT+Jw0Bvzwx9Bz5i54j367xhIV1BwbLkFYWyjSMsbX8eNFenS2wIZaJT
9+T3LvK/fy2Clonbkf+V29FrTPrGZsaCT1uIP1M0/LnrMlugMxD0+I8OBzMd
luyxIvtmUj8jU99HCPsn98ab13JwU3LkdArxEzUC44zJLZBJOyieksuGgz3r
vjHx03dFYOj8lQIciJ7HVbVjo3W4aXnoLfJfvy/E/zSth+TxK00/sxl4KeA4
epE9N/Fks54D2XOVXkyxrStnIOhJgV/bUQq9eRNVpN3qMMUxP543XIyjTean
x8hc8L88d2+rNQ8DZmLqrTdInmyuTsgge8Hc+PJWGY0G3AydPFleholLhus3
rSZ7jcY0Rq/MuDrsPpkvcbu8GB8GH67Zb0YhdJ6M72hYLV6xDSO9k4px9vyh
PTZbKbCaO3jn2muwWXff8LYjxWhfPamSNYPCrc7Zvgo7q7Dq2o1vuUeK8CTb
ZO/EdhFG32p0t40nuij1bUyAI6nfqv8cjo6KEGhjHt6hVInVrSkrkwcL0eCS
3NHSLSL96KCxbG45zp0vFA+9VYjBbwWLSn+K4FNh6L3/QAXqGrvedGYWImfp
rvYnP0Rg8SWnWhpUIK7B2HFzaiGmH9zCHFxB5r77npnOZdWYpzZ6c1V/EbJU
/ot6NIuC5KyhzcPBVag0+lEt8ipCTXKe8BNI/7xst/rymxpM6Fw6yjUthk6C
c5/UKgp3+DZbXbqrcTvgqTib6OKPskERGQsofHrw161/YTW6LyVyb6cXoW+z
zR3PA2Se5inPSh+sxd7iOL+GEhJPyU25hW4UwvmSnbvBRfTPDHHGTgacjoq6
bEifyfyg/P5IUi3CO4X5718Uo7Pk5fbwQqL/xVqehjg2Qixu/JGub0wserJG
dzzJ543jf9zekclH0pd7QRpVLKhJ9qreIHmi6t3e00bypKtJfMbkCgbmGR0/
NLWdQrb2s33XlPn4nPDyjEk4Cy3hvNJ/b8h8VGtKffWGh7mGjzN9nzPxq2Rc
UATpP2eXlB7/wuFh+MklLjuDCae76koj5hTm6Fuv93hfi8O/jsqMf1OM0KGy
6+8jKCiz2FeiXRtwYvoTVqkaEz3e1ZwlbLJXNtgmxqU1InuGzsflUixY3wlo
rSH1NdL+XG7MVYCNHudiLlxi47vm9JYuUhdLv3lUddU148/pCsv+zWz8Wq6y
QZX0mXWb/nRpqDfjqnrl7/IxFkoZq/My/1dHjRx3hV/NSLL3uuVmSua40h31
7cTuXhU/7p+mAI8SEtc0kfpKjNluO0bm5ryOvkqPTc2QPat3t3sSG/zHGjUr
yfkD0WO3PRc34+zrjZfER1mYaqw7dpFFIW730vCeZ434cHLn7HwJFsSPmdn3
kvP/hU3LaqtuxodnIxKl+mzQXHea605z3WmuO811p7nuNNed5rrTXHea605z
3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3Wmu
O811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811
p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nu
NNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed
5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811//+57v8H+7fu
wg==
        "]],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", 
         GraphicsComplex[CompressedData["
1:eJztm/c/lX/4x0lk1adQSUNo0aRs9dISUqhUQknJjArRtgoNlWySsqOyZxwr
hJC9t3PMMzhGOHzv76/fx/dPcH45j/txr/d9va/rer2uH55iJrbnTJexsbHV
rmBj+9////t7aGp9VG6bOal50WKywSSItOXzqnHzXVGk/DV+F1TuvCANc3nW
rLr7nvRqU514xFwcWuXESTfbI0gCFNnHGy59BmXrzuVtNrGkGOc689thCSiT
3s/Q2umCg6+lNu5eE4P2/RefhTd5Q3xEijZw9ivmpxsSI9Xvkiwzhp5fMP+E
Y8JRKya2xpKkGznqS1hf0D8bvu54lhuJW1DM7VNWEqRFlheOnPfBV49fQjYV
UQhxyPe2LErHbJHRo9VV37HykooZV2YWBFRMppL+y4SJ+FpyrXIWPmpLpT4s
zYF0ymtdY98U3CYz9pxMLcSR2otf1E9nQJJrfC54Sw5EZw+Mjkr9wK6q0ply
mRK0Otc52Gqm4ifrcl/Su9+om803ktqRAHOb3/eKg39DciFwWfTqEBS5BRt+
+VMIm0Sb69nnY1D1LP5wX0gBOlRy9lovpML7i5ZE/aoSKFWM6ic1ZcCqVHu1
01gRKB5n9H6cz0TBhzvnBmyL8dhaciZFOhkfcoN6NjBLwDOzrPjaORLo7xV3
l2cXg3S2ybZTsQBC1NgunYpSDLK4lTcVFWHfVfpjofFqjIdcOvupsALzJe2N
79c2IFWC0hLDUYPhrjuDs5X10GX8XPfStAZCLSfz9q9txLi9iNCb/Q1oK9E5
tme+DuUT+d8LK+own3XIPlO2Efbxab7rLjZi082+1ybfm3D1vfr9655NEHq4
vnCxvgnWQu+1KwRacPHEke+X5ZoBit7thltNsI/ri6+WacWzinM7a1vrMcU7
K9Ce1wHzI3rs99/XQ/P0YMvWQ924yP1qN2dOI6y+rNxvfKwHkpY2Tvoizeg9
eHR//M4efLu2J9lhvgnmp/Ylatl1w8aS18DGuxlDmjb0zy092KBz8ZvjvWZs
+1VyfptUD17yv72mPNEML6vY9zHHe6Acnd1q3dSEa+bOKEjvgfBPvaunhhqQ
MdrZeqavG48ehT1XmW7AdW+ZjTxC3RDfu/XaC5dGrHUM+FZ2pRs5Cg+eHiPV
w0J+p7rL7x74l3eh06gOpJc7nO1ze7HcKcJjNK8Bo1k+GTZKPTjSY7bs0PsG
vGf6i1hW92Jl5E2jawpNeKr585SpWh8uPmlOj3BoQOD0Wf7JxR44HbcX7nzW
BM1851Ntoz2IK79PP/ilGU/tN5QX2fbgzYk4c7nRFnz6vi5h6/keGIvXWJZm
tEHsc104/81eKFt+4A7LaIedfQyX0cce1Bf9N/KusAPRX46ONxDr4feirSsZ
a8PH7WHsIs964WA+HbhRpxt5/pFf1eJ6kVJTaLzhUTe8Jnj7pK/1I3Fo4566
t90Ib3xs6Frdj1N9yXV2T3owpZNjI/SuHy8l9ZZZaXTjpUKd3/qkPggaRBk+
ne9GlghLUMWmD5crdp15q9KD0pnZXO3YHhidt9LuPdGDKLPp/SkPuxEY5A52
4n1sh4dJ8Zc7YOTb5rJugThv0vN74VELFE6oZStm9KLpqZv6hhUdePnxBHWj
XzeG/Yx2ycq04Vd7elTA4x7kihzm5f3VBp79JWdP3upB03sljrXPW8H5373W
ovPdsE2cqasOawND/nvERtdu8ItkKTjOdYJrC/3qclY3kngcq9c7dsFigt2H
e2UvwtQ6b+7L7ob0kyMkjelu1Lb8E2mN68JRlbs5qcq9iImsZtPL6cTZfxbX
Wf/1Yn7V139Orl0wudjLPWXTgwmeW/cu3uqEkNro569Xe3Gr683C0Xud2K38
aMOJ4h5kPC26MmTehv9Cpz6rCvdC4aRX+tf8FgzLDC17KtKHjBy2zn0NrXDc
PnJHU6MfvieqT4ct60SmfxVPWMIA7rQ9eRuX04749GUKJ8P60eUQ+uSxQgfy
V1BcuOf6camuy68tuA3fX+w4VpIyAFU7XTmdZ60oTQoSu6EygA0KP9gFiPML
/v53TTMHQDX5oUjK7MYPKuWrRuwAXP6VHi0S6kXjHV3B5FcD6Dlbdpf/fi9u
Ltr8S5MeQFvWY+8bj3qRc3cqTqh/AJ6cHCPpXj046lq/rbuiHz8W17wod+uB
mIzY9vqj/ZgeclQ36OzBadGnysfN+nCpKo/34PE+SBbw6pTe7sVntt2PVyX2
waLp4av6tb2Av3zX7L4+nOr1XG/J1odg7TXCm9X7IFtn/EflcC+exd6xFVfo
R4P44VWuR3phVNc0oCBNxnYS39bEMz2gWdT097ZRcH/zs5N73vQiUndQZzKF
jI2yyi7KYn24qstmRRkbwCRJPC/jE/H+we8vPxsOwOjIbvF9n/pgZEgppa4m
Y2V9nB1Hch+mNWw8kkMHUGMV17SFWNfQgt1bhZwB2JJCZpb39oCz54Nj2u0B
jFfpGdzg6MUMw035qlU/+oe/yUjJdqGKT8HhADcZqee6czN+tEP1sYJ7vggZ
fqLrjtlfbcfeqWFWPXE+wIr/N/evVvAlp6+Wcybj0ke1yiLzVtx6tetLlhkF
xma1m+6da8K+7lPpkyfIkHJRq60JbgSGZDY9a+sH49XMFUELog8/YqvViiXj
8msPgbzENiR9KJIPdKagqVw5n1najhyub9sKoyjQmXqcrNfWBm2LDR9vv6Pg
nx79jpkykYe5Vdr6yRQ8+Hb+1I34ZhxfTG24XUBB6vXzG1+ubUb9x/fB63YP
ItROdviaZitGjE6OWmwahPTLP2qPqtrgxxcVPlJOhiKH1E2u++04mqC/7cFm
MvJLsx0X/brAiEh++ch9AF0LKWRzj3YoB9qLGdX047QwzfaCC5HXdld+b9Yb
wN31/azOAx34Yu5/9UYUGTxFNzv/oA0lOysz7UQGEXHqSXLvrhZQL3/iSEgd
go4f15sE5xZklb0VPHRzGOe6HvveM2xG8deneX94huD03MasjdaEnhihzJof
w+B4rOBmROiHaeXUwttlwwj5IPd2RXojRjbM2VNcRzA9n9d51aEVaxaoYnWR
IyhtPHlmcGULXvF3ULTURiBn47reQ7IN223vfJuMG8GjOAFfmZ5WSOuuVBR8
OArsqXH+5NCC5DcnAmLSR/GQ6X+l+VYLwko5vqpuGMV0x4VILqFWGJftd6i0
G4MYbEgV2q0QdtqyW8JjBAGto3uNBZvRJlj3h6U6ioL4JF2lq42wtRuuXh48
iiMD1/s03jXhr5M9x2X9MfipeabvPtEIfpePWgMXRvHgl99eudxmrNrE2MaX
NgrxPc7/BeQ3IPpc9k+XhyPQiDycr074ADvujR2xEyM4fuuMrkJULeSsSP7X
jYYRPPExeW98LdIP5wWQLIZgekuZrJJZDyfThIStk0MY/FC5bp75F41ePxKD
Dw7hzXjDDnHBGvi1HZ9OaxmEby/7olBAJVaI1T/LqRnEZdl9g1Ucf7DOs2cq
XGMY7+SU+JefLIOMTNi/s8pDODFk98v0VCUSpXQ4JGnDaLj4O45+tAKLModP
rhcYwbV1l5e7u1egolBij6X9KO7TTpVwcFbiGT30J3/YCNG/Gq4485UjyVt7
/nb6CC5Oh3834anBXsWsSC7RUeyCpIde1B/0WAeVy9JGUL8x5azYlQo0kB3m
7UuHofE5sknDpxTKFZ13y++P4HyV28PC4F/QrJw5Maw8AupVjO9RLoYwmTf4
C3UYlsLDJ4MOFSPw1sVnEXzDqNtMvvZApwRGL66ugfEgGG2Wq827S9Cv2Opa
c3IQNxuCLl9c9wvZT8QvJGsMwked/LFhdxGe+IbpLjwnYx93wi/5yXTE5R64
+esbGVfU+gvVzyVDUdW7nL6KApsxqSfeW9Jw6h+Lrf0BBSUnl52RoKTglup3
Ej8XGeWyTwxS5tPwe+rZucdVFCQwdUz2WWbCjSRVdqiRgon2quIC+xR4n/+Q
UNw0iOGtNV8Oc+VA/rJ68KzDIAKNfWcOGCdjd70BL1/QEAxNNqwYHk5E4u+n
bWyHB1Gv1q70micSbBV2VtnE963Xk3cXoiRgQDR7y+bUQXCN3XXP1E/Hhh/a
rM8ixP6Jm2SujyHB1cfZW3/vEFbbzYREp2RCQtSCf+c5Cv64/vzpbv8DBVEf
lcwwiIRrU+JRtxNQYrrWR//rIJT69tkUxKfhSczXPatVh9D9JDdtsCgLZ9O4
A922DkOu/tYVikgeDkVoT5hKDuN1JFM1jZ+EGfVM6Z/fBuFZJLlQZFgETr/m
hW3E93t9cBwVLsmGmGpW2YYQMoZ1/bt3iKVjcOVvu/3fKBiN0R4sS06DY3q7
LI8VBS+FuW2uH0/EPr8x4TqxQdQu+00enExAzGtrjVxlCrT/25A70RmFX1Ou
OwQDKZBZse7S9g+fEe627VnlnSG885i59PutCQI/XqjZkUuB+Kss350LIXho
USCVkD4Ia43rz6Luf4aXbnb+ihuDkJcuE2J8isFRoYw7yUQ8yTO5V83mM7D6
pMqZgC9DsH9bFZ60sQCluwu3V14egqvbifWVf0gQefm335k+iJLCrTsNE3LA
wzDsK/cbwoioz4hdWhrYrh/NuyI3jG1iv5vu9uaiPJyLZOY4DO3d42YJY3kg
F7IPSRP11eUXE/uq7ScUxOKX61iOoNFqufAZyWgUeujzbNAdAz+l9w0t9QWg
8LTM6+Uo1llenfoeFwj9i8WbYz6NQK8k+iz3zUCsXlaxq+DZCDK3HXt+JtMV
do9HW+L0iX741OaGS3si7hxcNfNx1SgiDjaWbBBKhpqVxTT/7yFIkHzzCpp/
wN1Agv+g/TCcFPtM5vWjoH0od3+d7BAMTn9awyUWhPCjaqS7vUQ+/Hn4e3mE
C8x4x6r5p4ZhmKr32ZorBmecRh17iP7zSjpuwjQgHnl/alhidDKK9t4ubI1N
IvzqTIb4TjJ6KzlGfMa/If7i6A/5+H4o/Fgn800wDTd8Nl32WjEANpVDD2Rv
kCBE572s2jIAKQPD8/trifx5s+p7cyAZH7otLt+a/4m9P7/FPBcj9DQ1ROWu
RDLIcpwNNVODyD+bWp2gm4pwZSEO9xYKUmweunyyTgSZY9bYmYvQ27KTIum1
3xFdHeDYbULo67z7VenlmZh+NuL3vpnQu4E3am5d2VC/IFik7UWG3o7fuzSf
F4AWVGZRKTUA5qpG0qRKPjzJ6j5GY33gOlkrGX6jFJLZdW3TmYTPEVU467W/
DNPdNvKcgoR/qdW2ZnpU4jh3jv/zf2ToI+TuQ3oF/lM+cc+2n8hP95VZb5R/
I4XEceDYDwoChoPulOaVQm4Nr0D6FTKC94QK7PxdAhXF6hG/I2Q0oLKF+fQX
ViVRdhx7SIGEnlV4uFEpHGvrzHntB7GLVbCwIFGCto+btpS6DkJ4v+uhbrNy
ZDFfaVetHURKHZLnif5a9uPv4Tg7Cn4pB3xnUyvAweyhU0lsRH/oOP2ieXU+
WtKlV3rSyGhz9FkU4spHvcB4Yi7h7zhUKnK8JQqR/Ei/uYrwH++MJjkW92fi
0pNy/kGi3iJ51rntX1eAVZkmNaFJZCSJrOuyS0/EzdweA3UGGTWjUgfj+9IQ
a79GOrOYgjX3bhvF3MzCkSyrbWwBFAwLWsktvPuBktOnwtTUKFCgfSifrfsK
Cb5P03G3ycjzOsxVIJ0IT40rF7dZkjEuQ9I5/T0GHELNa4zGyAi3JG90/+kA
2W2mBf5aZGgoaHoLlMdj7d4/J5enUfD1zvG0St5wHNsEoQK3IRRvi+3ZMfwI
1cyfs2PLh8FFT4oy2huG67lDwc9uDYOtn98wecQVjfRG77SOQax7t/2zySVL
GHQlf+tiUcAW4eo4VDJz5KD6iVXVtyk45R6jUnLuHelhNn/y+uZBaPxpEK93
jCKtqr7fzxM+hBlRT9bYhdcksfOU+muPhpD81MaCouJLclpfXStdMwwdvQqN
kVEvkvKA78XtzUNQKvPr9XnrR2IW+Dg03xqC834uPYnyeNJI8KbGmURCb/pO
ifQl+5PO7bpNfW00AJ/dvyw4F7+SpiTleXYRfnm7yMunQkgg3QsxGFGPI+qv
g9doW2ASyWBl295tSRR8f+KWsHxDGClMT6LpcAwF0X2Oe2wT40nJKgMu1DIK
el6HNPccSyJp3jPWbU4gE3O/nhtHexxpTiKYmqtDhmp6QcrbrBzSnZ6+vnvV
A6Bce56m55pNUhMN9OabHUDTbS7depefpIa7z1jtmhRkHfr2/OVsJmmucoXU
+awB9BpmOK4L+0FSdWKzUvUlw304sXiZXgASx2RreswGUBbFDba/lqQddk1B
V8oGEPb2w8w/nWjMS8v1xNsMgHbel4OHIw5MrVHdC2uJfEiTkjK3TsIa8b91
+d4DOBsx6vCcKxYO21e7XP1AhuSH/T5ih6Nxg+vAwoMDZDyCIW/qRCR6XdUa
3/WRwb3mt+fXygS85ysW5xGh4MXZ5Po7vanIlIq4fJyNDF25zga/vckoyP3c
JPhwAMubHp4R+pkE3YGq66r/DcA0i+vTms4fuEPZEOjp0Yd1155aiR6Iha/P
zmjTuD70GQzuVbJJRnaPAInqOQD6yEbXwtWh4AidmE86SNQzJaH+yXV/sF7/
3VB4kYJdE9V6zD8OJH++qrGqjYNIK3KaNztzm6SsE0fRJuqlufZIb5HqZ2zb
bjEZYjGIbqrn2on3ScjSj7L/5jWEEtcxw/QHX5HXFfhoVnEY67W4zsyEkcA4
dSS/mvAjxvrLwm8+ygJJk6amaTeEHg3qBetfuXCtvdFt5DmEk1IOx88GZ2LI
qOGg+fFBFK71/o/veQ68dugncBL5PXlKY39mXBa0zbVCPcIoEGRTKQqzjEHn
kVS5yieDaN7XoN0r8A6XP8k7scIGsenh+cOqStE4cMqnoEp6CGYW7e8VBFLx
mUamH40k+olIH7lXNAslIkbi17YMYcdTpfDn2gnYf7shSf7aCHxH8kaftERA
8J2ry22dMTx8zxbCttobej7sdwsqR5Ftnt3CPfERZ7+6V4hWEPpXo9DZ0uOD
w526lICOMTg+tXAR/peKbSLmM4b3aNCbT5FJ/poNfrY8e43rdCh9C/3wWPcH
dG+9Uu03YMBPX4V/6mYaTEIrSr4nMnD5miOlyiGO+M41Qgt7GAhevkdglX0C
tHjW2YpO0XEzT26x2/EVlqe7cTarM7AwJZux73AKaXQwVGsXnY53Lo0G/jmJ
pH9jqWlb1zOQK71tOHs4nFS4R8i5S44B+v3YW/FuX0gGUSJbzooz4CzwRFC3
OYCkKevFGV1MR876ayZsa8JJ+R2enWURdIQLnF51vP8JiediFPt1ezro46tW
rZZWJr2IsZN/wMbAqcgV06S0QPSgsmHwBB1dEx+47ytE4bOboUU/Jw0Jb8zS
Qx1S0Be3ixqRM4YaG3XEBKXgyF368N/8UVhl7ctnULKQ9uVIm6TZKIprXXmG
mxPhX7bjjcryUVS6l08aOryDaLGq0D2fUfTTAtjZS8MwvCnowYktY7jeb3eL
0zMNYRWer7RaR5F+gl2ajS8Ju21STrO20+DarN0WlRQOrchaijWdhq0mrY/E
n1viG5vlolEdDTVa1Ods0p/gadW04ORCw/IdO+PZbe7hU/XpqvYFKs4qZOy6
8OozydWf8+Tn6zTc6WB/kPL1DemgFKn5wGUarrAHje5mfIFo2oVHQg+o+K5T
893gaxB2ZsWICVZQ4W/U8jj6dwj8X7u/O+VMRbhwcOKYhQnp0JoNhdfVqchO
7grjcnVE90k/4Q0rxzB4xSfpy7gtaU3Gy78PV49BpOb72pTjPnjSen2YNkvF
le5mzQPN6ZCJ1PQqnxrD2NWudRFy8YivpcmtY6PhrvB4dcm1JNzezeAS+E6F
d/XmzTErc6CUX2Nzj0VF3s6wwMQV2egSlXF+XECDmXhrxprLBTjzRm2lETsd
c9tXi+yZzYUb0+vngg4NyTmyz/8lF+B8SoShVCMdUcc+Koh9LcQXVx6vp6N0
rORfrSIjWQR7mnmyXBUDSQUbu03Hy6C5QVWjZPs4ynw8tnyXrsCJYj6eT80M
mBZqMtlDapB2fr7tfRpxfcKqHcmi1dBQSjV4cH8c9zJXO63r+YOT6iujS3eN
I6+Rnz3sajUowy/OxAeP44vsHu9UgQpMn5cWOD07jsOrL7Lvc6kBs4Vn+67l
4/hn8THsnnUtPHe7BTveYuDWrrfGOrV/0XppddTN5Qxs7alYKbr5D2KXyVhW
VdNhM6F2IfpWFex7jBWYrnQ8cp77b7ldJVa9PK7ffpuGL0YH+v2GarBGl6Ng
nxAdSUezZYV21qP24aq8ckUaqDG1pKyIvyi0K15/1IOG/17XcG7Iq8Hcm7fv
fxymQbl78axtRA1Enb3ei1eMQffhfkZIcC3oB/rjk0ZH4BWQVmO7+i8ucfqG
VAqMQiVQFQ7z5eDw870l5DqG4OeP/qw6V4mexbgTR16MIQjtoh51f/BtuUd8
+fQYuOS2V6VYVGMgfc++10lUDP+b+btaugqLrwpOHiXy0eSZLHO/BnH/iUOG
9TepCCzblMR1sgYutDOZLvU0hOWQD7Ep1CLB2Fe7RZQGlZYywwecf1HRrb/m
6CUqqD8bXHXKykBSeVy27wkNxR/637dmFCO2IrVXQoboR8d/raBm5mOL68rX
7xKJ5+3pm+O2ygHf/aKs41/osM1iEzI2SMFR74wCNh86DA+QFL2PxMMsP3tY
qJmOFc0t3eu/5xJ9mbxK2ouOzb9ftHpr52KlkNF/levpGOX7UVLklYddRZWx
gdl0/PhB4zfMzEWojfxvK+L+ngRqYmVUPDZtYX+0MYGGMSr99qHbGVD0ur32
zD4aSu55iismJeMuX0bIgzgqpMSTX59U/ojn12fLhoh+szUlwODgFwfEvh5+
W6c8Al7Wy/8C1tihtEPuReH9UWIe6X66+CkASqmyYSuExqBleqvCwiUOnLOL
fLyEPtQLtzeEtodBPLJ5i98+Kuq/xj+oDIsglYUu2/y7nApnRg9FPO0Aacaz
5Uxn8xhCzbxKHlb7kp53T1om645ip7m3pePRNNI4/xDPbYzh2puvz4duZZBO
K8jApp6K1yktH36uLCSprWvbc4adinknr+0CpSRScpsyt6TcGH4HvvTN5Swk
JXKNqFQHj+Hwna4s3f8KSKsFfjUeHB+BWeEeWc+Yn6SqquuPTzuOYKaUU/ac
RQ4pjO7X2hkygqLqczvNc36SXtFsbeVmx3DqtkWlokU86Wi0GJc/sf7C1yt+
yqllkdh+WkuaBtMgaWrnvoM7l7SpXjX1uCkd7eExVa9ss0lfPn18l/mbCt5u
kV07/mSQPu4/e7M2dgxK48K2u0bTSTmFOlnLM6go5Z7RGb9RTJr6MMD0VaIh
/c/iW5z+RWrj8t7Dt46Gby05nkH5pSR7fT7rW6/HUP7I+bL43mKSQOrhppvO
o7hKFbs/MlJEurXc+k2tyyheTl4V36leSJLc2WYfemQEiWsdDOdMkkhmBd7v
5pyHoW62Q/HQnrekyoBync6UIdg2p+0O3uRDqldW5P+VMAS+wGTPf4N+OBdn
eKh+5zBc/z31KOJ+BjZ27/0Z2sOgPFymqWj+mqSo8M1T4/EQEmVaeaxE3mGi
/dY/2o8hmH85kRa3353ko/7o4kzjEGK5Oqx13ofi6+Bd9TMeg7gc4iF/87s9
6dV9l9aQpEF8T59rvtxth9tJ2qc5xAfxmP2F16X7X2Dcdi2oP2IQYuGXpQok
UqDZ9kzL4TgFe7Yuvzo2lI4flJs+ff/6Id+bvva5UiKcXt08JUD4QXVTmt5M
9XewH4xsTW0dQDFLLdpG2BmTYS9X5rf3Y8/9rjUnTjrDKZ/z5eZ1A/A8xmqY
Wu2PBvercWLmhL/05nnGUf2M1GN3OPUJLxlWHNMlvfsekA75hIhrPehH3ty9
L4dKXpGeBEWdq3foQ9i3R5zUIx9JiqSMA3e6e3HM3U1D/KcLSW/DDc/0rF5s
0dphZzgTTyqTy0gIS+iBmrItvfZwFIly/3m37eUe2Iec+9PMl0xKlklVr/3S
CVX1NRe26kSSvDxyf1nqdUD1+/Y29qIzJDd9r9bbB7rRGHRLRK/dB/qZ1uOS
Ym3YeqeI0bExBhJqZYw1E62Q276eR0gwmnDZV9Te93fiDtczy++RIaQN+Xtr
db+1Q/iSiT33O3NSepdKOodUNzqlz8la1FiSjB7d7qcNd4KbKn1V4EMY6c/I
XQ7+8k6kur3SvrsymLQYr/lLaU0X9qy/pht4xh1F5GgXV8Fu1Ket/Of96i5J
9VNMq7dIN4S2BPS/EAgnuS3Qd0md6cKVOL81T45HkiYXNTeyf+9C692XGn5s
SaTJtapMc2o7arM2V2zfEUHaHi5R8F9hO7oqI+xXs/uRBCwei5553Y69k4Mu
xw4EIr3eOjLKuwerDN1q5GddSeWS41pbXbpgL5Ld8dsmiJQwLnAj8XIHHtmV
97vYxJKuX7BJlbHpwi79jpCHqc6kQrumT+/YeqAqFvB23CCa5PV0vadLZjdc
UlOi4o7FkuxnO2jpj3tAGzgX7qEWSjo2YOUl4NmNRD2JPu/H10g7ORVlPzl1
I/oex9r9ignIr1BikA92wVZdtJPb+yOGS7TLrqR2IszivOvT2EQUvHRsO83T
ibNVkqdv8ibi4P0ZLzHndrxRm5J78DEWwduOhgTmdUGLf7eUSFUiZi4MfLr6
ogcLLn/ZA9tSIKRzu333qV5EzBvvXIhJwnaKZsol7m4cqXmZlnAyEQvNRy9H
U7vBpiyTev52FApFl5+/86cbuzcul6hJicLBxyEz/Gt68GZr6kP+ykBk/zaQ
1j/VA/ZA1/kbH1MwznvBTGlrD+50Te2rVI5GuZMN9UxJL7gOiWq6/fcdE5fU
hw739cBX7+8J/YifCFZno27a1oeTf2q0xvYWQ3m3ja3+rz5YDqSyctSKQY9k
Bnpw9mMn0/T7qa358Lq1mj1FqB/FnTWngp+nIPBbvHDM6gF8v7D1UfG7HFSq
51rbLRtAwkYKTfJDAe5UfI0wjBnA0/Kt9dsLi1CZl6ez+fMArjJ+W8YvK0dH
x3fB6k0DcHVXmNr0qgSb7cbu9C0MwN9j5ebXocW4E37SUukbGZWZnW+l3ufD
N17WekpwANKKe4XnNNJh22v/oWJ7P2rHPBo3TSfj8q4qRwWvPuxb1uV541Y+
mlf4FQTs6IWet9nQ3uIyTHqt376puRd+MY7HzpmUoaGkIGvWsxfujQYn6V3F
WDdetYMy3gOvmicap/ekwEboWni+bx8q2JV/n2uMh2hA9qTYSB92chxvtZ/4
isRPfhJWif2wfsQZxPYjAzq/5rvehPXjqK5B/tz2fFw27rni+nEARpL5ugnB
+bi0VTdovSUZsx8lXF55pGHDkP3zDOkBHBIuKr+yLRm7w2nZIrcHEJT8zjfv
fiws36mI1YwOQIsvnlvvTw68DwbEKHqQEX6mnBnG/RODpZKDj4oGoMhn0E2a
SMWJli/XfpIpCJ97WMP/sQhnep6OO8dQ8Gpzzzp12m/YkWRIZq0USA/4JzSb
l+LEP5l95jwUnPI9u9GU2O+txRNxnhNkvBQNbcgx+wVR/l06+TeJ+f2Or2xY
XSEkNBtWrLWnwC1+IbRvfzEKZ0qPUnMp0LSgjp+1KITovxS9lQYUJPz7kf5h
rhgdbknvRJeRURLscmrnvTL0cjll/LpCwSYjK18V9ho0mppP11oN4ph/krGO
5l/I0M9fyzlFgVOtfrLpqxrU5P6UMLYcRN6k8UqmRwmajv24/9qdguxiNo1g
0xLEp76/6VdKQXXyD6c11DLwpjIubybm5+7j2z+JFRDvVznrcUpsEJ5BM3tE
aL+wiiq/qErcf6RdaJLqV4S0yDMh764MwESIIZMeWYTar3UPxqn9UD8sY3bn
RSnIZEa4Tlsf0lo1XlwVLMNId0A4D18/thyMrl93qxJb8s+yYn4NQKDIJbRW
4C9mDTwUKtPIkLVMlwg//BdBwWuz+5UoaN+vyLY9tRqN7eYiGzsGEb767AWR
hL946Czyn/p/g4gzmq6w2vsXZJ0MRcEUCtK4WVpPmX9xvCEpNNSLAut3VzZ1
L2tAR3/artnvFDT+x6H2sLYaWavtOzfvIyNfeIbnxdYaVPSGnhaWJuPn3bW8
PvRqKLhNVy3YE/nCGSrr4VYDtmWuPeYWZHhrZNz9T6MGiUZhibyXyfBvLV2l
Y1UGS4nMtzO/KdBi675ieaYGJxkXtHNbKKg5cUvN+XwFrHji5WyaKBB/7um8
n68UnIViyxbVB6FQk9qeaVaH4mHX+1cfDGJ014p+a4larA8Y+LaTRaw3WYk/
SbgOiSec1W3zB7FtmUPg/me1iPuwz8/ozRCiZWsnHzHqUO+Q0JxL+A+t0x9z
86ubYJ13q2pj2RAE1OQz2Z+3oDex95UG4V/PDnI/ztvUgm4lqufPyTF81qs/
ELyuDYZxfM8d6segGvvj2PUPrXhszjZm+n4M86IHm/nQhbbrdZQBZxru75E/
e82d0K1vXyrQSAVQL7vFtA3DOlmrSPNUnH7NtWybYyvMQ87w5BjSIGhRPrsq
pQ1RjjzK5mtoKIsc7HzQ3EzUcZrXw5ExLGN8igh53Yr+5VHzm0PGsOPmf77+
xHrfbTj04JnFGI6bKHbROzqg0GarzbdIzBs8MQdtejphZt58uUKaivPeYndp
zoRPCM+J4q8fhcGV5bPNhd2gW1ldno0ag49ZjMlfahc4xaa1n9+nQk7SbWET
Zxf2OXIIFFnQIEAxTZsU6Ib5uQjnI1fpcA4SUtwr3wEH93W/zwfT4WIksv5i
USuinwzrm6bRcdKAFrkxow2NXT9KAwUZ2PMgfEH0SxsiN8iXqIMBM7Ltek3B
dqhJtRmdm2fANmPXJqWaVqzpul4+0sqA4MaVWX9SOhC3pzNg1ncc3fvkfD7b
duAG17GjvA7jOHp7E+P+xw58jzI/HCgzAcmh++7iaZ1QajfJeZ8+AR1tOfuD
mh1Q9hCYqA5g4sni+6SrCh14KEjORTITXRNz3cHu7YDBU9HmBibMbvkKHDja
htBSkxjTzUy4e+W+lq3ogkBQ9onmjgm0XGryeV/ejglZpSx3cyYGGYMKLZHd
MLqUdV1ziInS8PaWtIYe5OReTPR0ZEKgjVKnK98DuRHje3vvMCEZUUTfqNuD
ogh21fyjTMT1lIi40LpR9F/EFSGpCbQxrwi++tgDywv18zZ8E1i1l9d9q1gf
Dr8XNh0pnkDely+N3hk9yOYK3Ru9gYnJwhNOOca9iOy00tNayQSb2W2dv/m9
+GN9tubB5gkErHewSLXqg6HYiZRppQnM3PPhfKDYg2U3BHtXqEygTGGtu/Cr
HhwOrUiReTaBeJbPQX/nXkhvcsp13MfEU/mRbLp0H9R9hwwTDzIxO35jrZ11
P5Q/nmTbmzKB8cDpuK0v+zGt1W+lRayfu+6J/Zn1feBe4cl+dNcEfj5+oh5v
34tJjcwFdtMJXG2pWz8V0Qe1oKoX++9OICN1R3GCcx/0TYwKlRjj+HN0/VWS
zwDCGV6nK6fGEeL2b7SBfwD7MgJiz58cR/6UxpuP+wZwrlzL4FXQOArnvi5T
qSXjvskGnxYqAx8W3Kb7aWRwG0erLPCNY/Pc2VXi8xR8vc9XVrx6HAfSK6ar
ugmdEo2/vWH9OI4d1NstXkDG2cI7uToCRDxeCwt+NBvE9Qr2sarcCWgX1D3v
5xvCti2+aZRVRL4YMN/8pziEvDcN10x0J9Dew6OvozyKf88O813wHAd3r0iM
Rt0oBmqfMBpsiOcbfLHz8SLqpvgi64nFBBJme9VKVagwusEea/NxHKvOzh+R
ukcFfSpBN9h+AvdaD5EVxcbg/3NgS+zhCVzPmYyhJ47ifNEc7W7uOJZv4RjO
vzmGW9yfJ6lZ4xBzEFI6SB2BvF38t97LRD3s5fuz7csohtMW2/5LGcfp9XYt
j/XGEFb2Snic2P/MeyOycyFU1EzseBEkNAEu53jrHRVjiDuSNHVgdAL2o/rh
Mg5UCJvEB0/tYaKjIlQLYVRobkpdr5vHhH/n5BT/iTF4Kpwx/6RA5MOtQAH9
tGHEL+dOitdkYkOdpp6P/gie7/65U1KUCU3RA2nXnMYguXzG4rIQE38aPabP
hY7BnV/t6dOoCZzmvyUinzAK38tpLz9KToC/P2Vv2OYxKMx/4nB+N448iRTd
VOlRFMrqF/3dOA4LGfW1h2RGYcxu8cdoYhz1L09LcFmOYXFIkD17cByH7ZSe
ZtqOgib91kOZyJ+ZHz4vrseM4ciTTdYKByYQJFL9I0qQCjMltbcffCbwRmPg
s+MgFeML3/adz2Fi8WyY5PtDVCikXns1SfSDQi++w+rnqTA8EPXhyJNJDPZt
+ajARYMzG3+P/uMpXHM+91biEhV+o9NuQyZT2BeDW951VDzKUfSiVE4heq5N
TCBvDNF7TayXb59GW+wCx9WcMRS11kT4O04jUfaVVxkRb/rIDK9t0jSCxJ4U
d58ag9xLezdH6jQqeE1WlEmPwWB1Dn1H2zSsY5395X4Rc/qj80lU4voG+cX3
e2ZHsdfkXDlDcxrqzAKuMbMxTKz8byAnfxp+g383yYZT4XYzJWPcbxpHtr05
/M2MWO/YNsFUkxnkBd1lFuYS+fHUN9dNdgZm5x8YbWgfgwrrbP/uymn8/cXz
RcGVBu/5LZX7BqfR010usGk5FZF1kvOKEsR67hoUmI6MYqLg1B7enCmw52lu
YF9B6GLKzjMj+VMI977TsT56DDVP7tvzZU1hJTkGV24Tz//dlCMQPgUmTaCy
/C1RPzkRccmlk8gvff64TZEKtf2j64P2T2Oksi9p8TcV8aE+24IPTOPenUJl
ZWs6+FVCbboXp6GUF+H/m4+Bso4nU/LiM3hj/4zPRpGOrIStFqarZ+Bir68c
+I0Ov4/yj0p3zKDYeFXVpkt0/HIKG11/6B889y6+PVBOh+eakNcqn//haOLd
83k1dFAVio766M/ijFeVzQPJcfiK7pWS2z6HQjPqcMYAA5EGzpS9m+YxARnm
Yc1x3KtcZnt47zyYb562ehB11XYrTzh/cg4WPrG6BUfHcVA6MP9Uxxz0Kck7
jnGOo6K9zy34yxyu5ggY1nIx4LO/pNovYQ4ZXts79gcwkF9t1afnMo/Qit6m
bx8YeNZrd/mexDzeWUbmaW1mQNw03uSt7hyebtXdbOxKx52yNJbN1zm0bZRY
LDvCwPWT3nK+N+YwsO/My72PGPgW+7tj/9E5DHppPzWZYkDCdLkI1WMOs/4M
WacgBrz2BZQ5HJuD28XoxlMuDLwv/MJbuWkOlq89r8dEj+PxLwlRf/45XNvs
9p/0xgko1foV/b4yh3WbpcjGi+PYHneF19ZwDnbWuVeZxhPgCGYdTfowi6P1
kcHiRyfg2UIP3V41C41H6wbZjk1AfY+/FmvlHNwTvPe+2kv0ufutr3cQ61l9
o8hiv+wE/DiCvuYTz3tfsz39nRZxvJa3BtLzOHbA+rXKy3Fc0IqgHV8xj6uy
ugMyN8ZRG8rXdUpgHraRTTcSVcbx8EaXatn2edDttj6UMGYguefUs3CVebTG
HymXaqLjjPxhN0/jOawqeJudW0DHaqUr6Suc5tCy0v088wDx/eXjD8ui5vCN
xrzd4cfA1x/bv3phHtmDt17EKjAwzf9pG42L2P+xZkqABQOzro4zlY/msTo9
T/9PJANH3ns2Tv+bBz9PQxCfwDj22ysLezxjQT37fIppJgNX8q8GZy1jYVhe
Ps0wexxbMoeMK4fmsWbDAvMy2zjqFDZy/UmZh8KJ+oHNlHEsMC3yLBvncWJF
k/S3HRPI0vImF5xhYZJmQdEndOvlTmfpqv0stPoV5PrTxyGppTWrVcaCoo6D
3fuhcRivtGdOM1gQluRP6Lo7DlVrp9zVRSw8klHn4b85DkUZ658mF1kgsyVx
uweOY5KzUXzh0zx2UPRWBB8bB8trpSmP6zzetlVs+3thHNlO787HOrIgKrV1
92kvQqfvWLscf8/Cw5GatACFcUjwtDo+mmSB+wmXgL/YONIOzkZtkV3As9Uf
wxTyGVhcO/VKUWIB23rtVHYWMPBzoP6ZIR9x/smMeLwHA/eCpoICNixA4qKx
P5PQbUu+VTUMHxbaHIIf3c5j4KPyC8dDCyy8WHhVEPSHgVpnX6Efmxfwxkjc
9PkkHTULpjZ/nRfAOtHVKifCgIPubVGn9AXcUMt66beXjnvh9X+jeBfRvjFU
9flGBloXxa+qfFzAy/iV9+asGDgYOpFofWMBx58/k+RuZyCjVeisyZsFFFyj
qrTeGcf5wpPdOf4LaD9+/asQUd8XvolfEqGzIL7sc6vLNQY4TrpxMNtZWBig
Sk4S63GwlHT60Urst8368DdEvkSqP9/3mJ+F9tgE0txrBiyP+kWu/TmP4ehn
jyzXMZC2eWbgzQMWrFTCgthl6EhmP6V47hsLCUWcYw1kGh48SJEafryAU0Ll
fcuN6Oh89sORg4j/5v/WpUVR6JjPOSDw/QULdsLGuX2ydFhbKddYEfGM6pRd
f+clke99vtXi/iys9BUenggi+qPW3yurOlkwvr6K8204Hcp+Hwz8t7DwOu4E
7WkUHYWvpUdV6udx//kvvpjTdMg5Gp60WTcPJ9Il3R5iDnDbIrPi1NV5WKmq
HNhvTUNS/AnOdarzSG95T40QoUHae4rbhjyPT0mc1tbLaNDWff42ncjHrJ6O
lvhaGpixvb/Zkoh4/HG7/EKbhjGHb4O9l+bRMmNSJtZHhY6tnPzMiXlcUlO2
8cikYktGeduFsjlUp2uzrSLmIsXe+ICj03Moveb7ypiYgzZeKKR20OfRc9TI
++rbMWy+KPpCfDMLA7+dchSdqLByObtJK4sFie1XfoVfpMHpR6z+j6sL4Nls
vkOURQNlQ+UpUbkF/Czf1fFeiw6FHlGDR90siJFDBsp96RgL2mqYc2oBLt3K
Cb4hdGh/kHJfxrGAYJn6mFMrGPA7r7czY4YFjteyISYSDCwfUY9b+XoBIzI6
GdJjDOTI2H6aymaB5+QVdl1izuGfORG3lYi3S68kv8tXBniivS9qsYj4fdgz
vpnoH0+f6QmfIOo79HboKkEKA6WCZ2NKiXiuL+GM+stgoFdMSkzBgQV6X1R/
yEPC963qXrhxn6i/x4aLT2TGIWK+w+R27jwOKtx3szck+vVb1UOpV1hYr9f3
4OubcXx1yf3B8ZoFjzS5vEeEb93ArlOzvpIFfR72O8n/jePs63c//jmx4K90
sT38OYPw6R95vLrnsf3pvOMpQi/52wbbcjSJ82wXvFqI/PHq/7gmLZ9Y/5hH
ROs5Oo6v2afdfoSFZpOLWlPaDDycUjIPMCDqY+1xMxV3BrYrJZcGiizg19/H
ofcJvVZ3F2vtaGThqpi7IE82HbbiwkpfGhZw9oMFj9cdOlYxOhsU17CpjgwF
cs6ADu+Riw0SEmyqh0J3KX2eGINL0exP67tsqi8EJVUjW8dwMW1R+P47NlXX
pvq8EMKfX+IwdlpzhU1ViauD7Js5hg19o196uxfRYjQpqmc7hgfW0hGB4myq
u4Y+NPwFFRr3x9cnr2VT3fLskrtOABVdD3c8OarEpiolMe5+bBsVEgO6BzG6
iFbVxrxMwi/v8eBdFrVuESlhkjKFF2j4fuiLf2LBIsp0VvQ8D6Lh3tuNWnNi
bKqvDc6nUcZoEA+X30Fbyab6wSXmgcUMDW+tPoqVqi6imynbca+bCl1j0Ud/
DRbQf6fy/owLDcaLF7aon1sEOf64g78DDZm1BoO5XxYx8S1efraJhsT1bTc3
L2NTrbiS9i1xjo67Gwz/+iiyqR64Jm3eFUaHccrnzhEFNlVyi8a+QR1i/0cI
r6HPphr6xkNRas0EQra4PZlazaYa/vK8UO7yCYi1Lfop72ZTVdu48XGe+AR8
hnKDTicv4maR0IpfixNI1ZT9UkMcm5VrhGfcZ+LSv8opr/5FSGg4BInoM3GE
6xL/JlU2Vc7oz25DcUw4c0+ZXhZiU91omxMYqMjEvxen793jY1NNf8PLUcE9
Cdmidg2TLWyqjVVXnD6ITKKlgf/hf1mL8P2huWcz7yTKT5SNjl5YwE7/IzwB
GyZx8fE2nh9/F8AvXL3Jjng/6/hFpuDqRfQ+WR7bLcLE5yyNNofcRSxkuTsd
qmMi4K5I7Ce1RQTa+K95yCCuXxe9Rr6D6OdynyVnvSdRE1ZvcIDQE/m/Iebi
WZNw2LnNrmz5Ah42rFU1b5+EjK/co5wqFsqiNh7b0DiFmCufsnb+YcFZfTsH
59QUbv319GOZsWBgFvlhVGsay9ZmPip5ysLWjJDeg/1T+Lm/0o2szEJK4ap1
6/ZNwTaBjZwZMo/fFiVMGs8kEqV2afQQ9RMUbTWoo0Z8vwrniLUXC58W1SSp
00w0twvPjYazsPFScZ3Z8UnYcq6UML7OgqproOc82yS2eLzzmK2Yh/mEA9uW
Ziam/TauePR9HjTf6QhS9CT0a9qcPIKJfi14bNzIegq+ghoa25fPgzE8lb72
yhRIet16W2bnYOSkIb7uwBREV59WWiD68bnnDe3OoZPgGdHsP2o7j8z2e+p/
D01C2X5feZv/PET64z+py01irZCi53aiP8jJ93lwJTPh4hEk4mlC6N9Nny3G
+5jI/O7X/esrC6dT+9ws0piwv1NR72XKgtrIUFaYPxO8Qa/iqj6zkFYYVfHr
ORO2ZOWTMjuI+O45/3xjExNRLfHieDOPM3sjlBXYp+B0lt97wp2FqFCm/Ndr
U+A76RAZsncBPZQtLv+OT+H7v0ltIUJvDgf3U1T2TiJverqngdDv+3c461r+
MvFLuehfVjSh7xL89Vb2TEzEvpcI41zET7mcqdYbTJhs3rijWZ84trymYijH
hOWm1uR/Pxdx70ywF/PMBLak+1k+YGdT9ao4GM6nMQHVKM/NI+aLaJg2kxQm
6slnaquFctgiHmpSNrc2T+DDq+4WGWU2VbPZt6d7oyewWv769S2Fi7i+NyIp
gPB3K70/3t7RtYA2l0SdXxPE3H7ol+79uwvY985Oz16KiRFXS4u1hD8R5zoz
ckmaiRx5pSQDQj/vXrlndz+BifdSH5M7Ewm9SjiXvrGNiZfiUuzLU1hYrW7V
XNM5CdJx3j3viXinb0lkOlVPQniXdIWwGwujZU/qy1ZPYZmNsmLOZRbKo+eW
me6fwoWA0BLjwXnIpm7XpXlPYbcR/35vXmL/BNvSBEaJY/PEiqzoeZyS55SK
rZmCw6b4v2+OzONu42O6/7FpOBreZhVGzeOaQ3cBe9M07oxzc58j/PuJmZua
Ie9n0Eu9wak2M4f7m8kzHLRpMOvOOvER80jEQH+N++NpZDcFGZ4ZmQP/jn6+
XuJ9ZZyO2okH5zHa98+wfCcxV8dnBf61IOavkWpBn1fTcH5aPtDTMo+C9uLH
F+5Ow0nSkF58j4WfUkk8duwz0DowxjC6TOSzlE3YkahpRN5ytLFtnIP5qojs
ncxpCC2rTSywmcMPjrNyIcT95Gv3/dbsIeqptfTp1pfTsKuzNKsynQc5ZPLi
5kMz4HXfa5JFYWG/+LPtZyxmIJXaJ/+H8HsRojEOxkYzsPaIUmtRX8DRf1dH
392YwdP3vZE1j1nQ6+kSu843gwef7vM+IfyAku2QXdy/GWT/Nd7Tfm0BmseE
x2NTZ2DBU/Iwyn4BAoFddza++oc7gZFrw4IW8NvhTcsT2VkU6/tSMrYuIi7o
2XTljln8O++muCtpEfOvllkq2P/Dxo3rEplGi7jVHO68NvIf9qcf8Igl8nFt
jkLcTcd/WM/9833M80X86+G+1flgFkGhb+ufeBH908vnCuvyLFqOC3odqV1A
yYfIwG+/Z5EfFiofuGYR0jPGNKefs4jUrPq7L2IByw4/k4tMmUWN4c+beZUL
2KSQ7ns0cBa5UTkqVycXEM5M4M148Q+RvB2jxdcXYBodONJ46R8CVr451bRl
ASpGMWkqGTM4Lr88eYTI9zNaK/8Mf5mB9uC9vafVWPg6Z/l+qHoGcs43Rd+V
zONltoCdw9MZ9D9dtEwh4l2Z+NT1b8w0LLOslNoITXNiF1XqXjaDXRmv+3Ut
CX9+Y4FC1Z6BYRtHKectop90ja2mfZ3GBYOwVZ9vL8CiWpPb4Ok01D9LJ4kT
fvtYe6GlFNEfW4doAp/kWSg4GFZeGDGFwiwVXl+9edx0z71kzzuN5hDHvili
/tty/s0zL+L6nOqpLJFYYl5XKvBvo02h6WPhmdP289Bad44ZJD+N47x2RnpE
/hxM2TWfVD2FneG3WpK/EPnE2j0ScY94n8J8hlbcPB5309/s95tEj/9YtKki
C491X9v2EnrU1d6vnfN4Hks8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77E
oy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSj
L/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv
8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x
6Es8+hKP/v/x6P8DwNE98Q==
          "], {{{}, {}, 
            Annotation[{
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.006944444444444445], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              Line[CompressedData["
1:eJwl19O2IAYSBdDbtm3btm3btm3btm3btm3bShpJenavedir6gdOIVHjDpXb
BwoICHgVJCDgTw2MNiAowQhOCEISitCEISzhCE8EIhKJyEQhKtGITgxiEovY
xCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelITwYykonMZCEr2chODnKSi9zk
IS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tSh
LvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8HOtKJznShK93oTg960ove9KEv
/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQmMonJTGEq05jODGYyi9nMYS7z
mM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjayic1sYSvb2M4OdrKL3exhL/vY
zwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJy1zhKte4zg1ucovb3OEu97jP
Ax7yiMc84SnPeM4LXvKK17zhLe94zwc+8onPfOEr3/iLv/nOD37yi3/4l//4
zZ/wByIwQQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKT
gIQkIjFJSEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOA
ghSiMEUoSjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CG
NKIxTWhKM5rTgpa0ojVtaEs7/gzvDnSkE53pQle60Z0e9KQXvelDX/rRnwEM
ZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxk
EYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQ
hznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGP
ecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/iz8Q
gQlCUIIRnBCEJBShCUNYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIRnwQkJBGJ
SUJSkpGcFKQkFalJQ1rSkZ4MZCQTmclCVrKRnRzkJBe5yUNe8pGfAhSkEIUp
QlGKUZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13qUZ8GNKQRjWlC
U5rRnBa0pBWtaUNb2tGeDnSkE53pQle60Z0e9KQXvelDX/rRnwEMZBCDGcJQ
hjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKW
sZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5x
nBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGc
F7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/R38gAhOEoAQj
OCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4SkJCM5
KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85CM/BShIIQpThKIUozgl
KEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rUoz4NaEgjGtOEpjSjOS1o
SSta04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4ShDGM4IxjJ
KEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhazhKUsYzkrWMkq
VrOGtaxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOEoxzjOCc4ySlO
c4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94yCMe84SnPOM5L3gZ5P8/
+v8A0vLxag==
               "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, 
          VertexColors -> CompressedData["
1:eJwUW3k4FF4XttYvUrYKLSItlhJCaXlLIUpCQqVQaBHZikglpbSnsoRSlIpQ
RKJFtiLGMDPWMfsYS7JERXz3+2se57nPcc+557yLZ2h4+jt4SYiJiVGniolJ
ks+wNeo9W8za4bJ3s/oJixIkN0u0hb1mY2BryboUXSZMcrqzZje/B3fyRubO
Dhb0vllvV5jdAXr2gqR5s0owObhvr8UuNhwXyy8y2NiMsxGjnlaLS5HtecSR
6s2FjOcjPu1OC4rd1O5QW0swcY4v/orGQYS/kp6omYEXm6vSx9eWQrRwqf/s
OC5G4ryeBbxuhlZV2sNl00uRmRF+utWYC8qe0S+BRs3ofz0zS3lZKX53z7+z
1ZeLnG7Z2mFqC9yvf4t4V1sCafNjqYbFHDgw81y1HFrgvSCGLysqwaZTd3F4
gAOpBYNKG77TsT793036yVKMnL9oWS/Nw/spP/jbec0oPH3vqKF4KRTHPVZE
LORC757QYNMFBi7QuB0NO0qxyVe2sLaQC9OiWq/89ib0jl+Kk+CVgrnMs+th
Kw8ULerXN/RGtDydfWtLwgf89E19mOvAx4dKns+3Yio8TRZMfDH/gtqr+/sm
twowpTPrsWxfI5bUK4y9UfmAu8ef3nTexMd3a7c5pb0N0Hi2fcfiRZUwOb5d
4suYAA2ujQeNljTghebE7KyuaoS5vt0gninEoSJVX/aiBswwOfF15Gc1lK60
XJV6IURuyquCwXwq3rxnIsP5C8qTCmMUdgjwg5vj6j5GxbZb9BdDe8uwLmJh
5ai8AH/f2nZK/2rAsu2XF8dKVyLQs3lu3LAA9/rsdmYEUvHkfahCwpZylNxt
+XE/RoD6lc6Lk3ZR8SK/L2Akpxw+LNtTz9IECDTZ0Gr8qQHFc774WZVVIv7V
9KhDmkLM2GBe4LqZih5zk+KUvnJkXTcdS80VQOxkee3jGw04U/l+ZWBQFe6Y
/Sr2thViv7PYtTviFHTyDjzOOlcHjQJaVcDnLqRbpmXYRNbjQNH5hLrrTfAz
0brS/VKEyX4p1+cX6xH6KijjnHkTPrXff9uVKkK5Vgh196F65Pcf7x+7T0NB
VaVOUYsIt2dZxLQn1eO5n8RHzpFG6Jd9dIwME8H9/MzV0zzqYduQubikiAaj
gPRb1zpFeKaRsSV3az0eazGaf61jIHhms2zR3G7E9M/g5zjVY6zZRG/Ag4EU
+ungItVuSF7zGww+WY+36zoS9T4yMKs+sfCVcjey/D461stTwPdi/9V62gKf
O+uX7f8rwkDznisZzylQU+WF1sl2YEld6r0DNSIEfRJeTtRrwCYbl7p55zox
bc8G7Uu3RajWPDLYQmlAWeGmIt1rLKx963W+dqYIZh0Ssamk/3qy9xomT7Fw
8+zn46nzRHC20oqccGjAg39e9650dsKthWJjFCTCEaaRa7UeFeqUa9VHJlhw
FzRoGlR1wStZY496WQMoitJTmGEs1G7acd5vrggdp6T7HjU0QEfxwD/N6ywM
yNru0Se/N3BVZsa9OVTsHk+TU+SxwDFRVe9ndKEyYvSKQnwDfg02WLltYUF2
qWeE/3oR0vfbLFFRbUDc0THbx3ad+D7p2N33SAQqy0FWZUsDdjekGJ4v7gTH
36tvNFIEVtIP6TFNKqxpaSFrB1no3nH534+6LlSPH6xEIRWnU8VVIl6wES8z
R9Tk2oV1CzNlptQ2YMFuBabuJRYu3kRqspII3oenLdApo8Jh4a4H04vYMFt2
fMjYvgt5sQYvT8s0YvoCoWy3AgetgpUNKipdeOG5dL/SFip+blw6sXcuG6du
Prldk9+Fc011QadWU5Hedrv+x3Q27KIOVo6UdoFbdHHRCbK/DVetO4JescDI
lmuQ+NuFoSc6R/9ra4BKtsoXagIL4oee932eKkJLfG1f1zkqrp1/oPPLm41n
d1SefIzuwsPpK/uW/EfFn1rZaB6FhbAoU091XhfifXdVbyF1deVRaGGkruGv
dfLHSF0zPSzk9tym4lBdZsPBcDZq5I1svpzqgkbUMcXxF1S8XrjKZ8MDNkpy
jj+OPtiFiaGkugOfG+G70i1BtZUDq+Var49FC/FYQ1JxZEETnM9I0Wxmc5HU
TEGjkRCPYr++mNvdiLEZIeHbhzl4eSLH29lDiOqaJKrjtkboBeisOufJwc1Q
ye1snhDWiTft8zQbETz7rqL4Sg5cJY4u+SPVhb6U1fvrZlBxtMzngHYLC8+M
rSWZzC6MOKX0n3FuwNkGif2F3Z0IcFrCzfAXIfiSlE9gAgXT9ZdO+/m8HVG1
8089p4hQp7ZstTKvHspXr12eMdoMBqtpY5NkN7oObEsqjKXAx2uaC2VvO3qM
jY04TSIUynR31aylwPjCilsfklqx/cDl4CV9ImTU5D2M2kVB7NRPfvuXtsFe
QW3edb4ITYnMtZkLKOgLXzLeP9yCf/wtOvNGRGAflg1T2kFBe/Df7s8SbShY
w42LEYrwOS/9cj+Tgs1PTXZMXcvEe/U9fePFInhMph39METBrpI7k8fzmEgt
oEjE54uwRrBUUymyARliA1I7FrNgYb6tR89ehOTkHzHW4xQUlWf/leEwUTGn
4MJInggmHlELtZooSKAHaD3414EHv4883PFBhNytVaWZvyiwcQiV3FXCxLS8
+g1iJD/XI4VJq6CAtvSA16qsDvQZvnidXybCgkrfCEYVBfEhGQOphR2Y/2dj
xWwS3y2cKy5uQcFvI/HPmvWt2NJzJM++WwQxaKsYjtWjlSe/rXF1Cziul/0t
xbrx3kkuY5EeBRJrdo8/3dQKF0tGz8iACPebYhbJFVCgv6zw8JvtHfCISGrv
qBLhe/GSFdKRFJjk5U3cUmoH83ZN+tdmMrcuLQ+nxlHwvtJIef7Vdlh9SOh0
pJK6Nm1TPWJLgW+ux6nfE63I5XaNvCd9PnRg0cuc+RRol69MOdLfgoE6zYTD
5F2yYlN0rcj5JqNXh03J+dj0eK9Kct4q9cofozMN8HaKfbNai4X7zmt1O0if
g1+bXi3aSQXjtxRFUZeNS67B7XUvunDg+bnTLVepSHNIP3Q9mI3V7d6VcyO6
8KkixVPlJhWy4h+H74WyccLSOuZqWBfMz2kVGo83IOmb2265Mhb67AqGr/d1
4aRPp1Ly7wbcyJGYcreUBSlcbvf62QWXGzVuz/SpSCqN1x8TZ8PGbO3D3vIu
KCQ+2nvlv0ZM5N+UOTeTg7Ax+/g01S4oBsq9eW3TiNcFin8LPThQtlp63Z0v
xI38oAMYp6I8auNVMzEOPFvqLXcv6sJSUdPfi7KNeGh0bq2JEgdJhstfW8zp
gjFzVlbjo0Yor3icolPBQU+fysqgR0LMXd6r+dqChgfGv3a3NXLx1y5otbiJ
AGs37H5j+pyOqFTHK9FFPFRMs+fTJPk4odMo9vg1DYuuN/3tUeVBK/Hpi5XN
fMyL2bsiSY6GrPnugVU5XLQOFZbbeQvgVijnfv1uE+b0L3bv9eCiz31b7Y06
AWgHr9t/06HBoXeN7fUyLlz0jHl6tgI8PSnxtP9rE07q9cwzj+ai7JPGk3uP
BDDiTP2yn9sElc2vOlLuciF1rsD9VawAUg/CHKofNyFf9cdhpWNc+P/tu25b
JoDxR0ZMdE0j+kOYxQ9ZHGTqawbkhAtx32iR6flFNAQ4LnrXUcqF/IIFs4Mc
BUjK9xP9NqQht8Q4nFLFRbHzZnkNSwEelSTslNGiweJ+hcD4AxfzNn2V+ucg
QMhpjeQLMTSkGp4/unKCi5sH/pU6/ONjyuvBVt+tdMy5knhp82keWJRgSQNn
PtmD/BNau2kQZnRb+TO5uPNx3J2xVICvwfqaQ8ua4GXsHlI4j9xfPnjJGl0h
hpNmLO7JpMGmsfp8lhIPkQYRO26w+LjS+IW52I0OsxeHr8fH8PDfd4GviwUf
oRnx/vMj6DiVYOoY9YCHB5mHnLN1SNxli7fzUTrWfipnKd3iwWLE/PPYGj6u
bs7RfXCJDg37qwWbHvOw6ECJX7oGHwOlT8d14+iIm2f+cvcLHuSHnHWos/lI
UsNDkx46Lo+OMEY4PBwX22glVsOD7247p3EmHRLqGldU23hY23h96mUaD1u0
pbXLK2jIPNXhaLaEh/U1miFvq/j4cvipx3pjGm7fOUq1+MpFwNztesu3CLD/
gKJ1WUETLvPFuqxOcTGgmv7rV54Ax8Je7MtSb8J0u2SlT4SP9hXYbDYhfPTl
3smDNjeasHr9gAffjYsL1eabhxoF2Kf6+t+ZpzR8ymROzlPkwe1wzdoMDh+L
T6UwXTvoUNINOjSd6PWvJmt9ftJ52NVxcPX9881YwDFdrniSj8PHN8t53OFi
44/L02LWtqByqvbKljd8iJ9VLtOS5kInbc6/e7UMGC7y3tlP+tjxd7S2fS4P
Temh1x5ebcGE0CAzpI6PpteCWTuqOVhwve25SlMzLFzbB8Nv8yHhR5MscOSC
adJJNzvWihW1BTs+qQhwYlgnLWQBBzzBxlPaN1shaWAVnqslwBk1sSQdSQ4O
ftpv/p9uK9xPsWV8JQVIbvHlrbbjQDg2OJJ4txUf1UYWnl0iQO7q5/z/Jtng
Fbv2zghow0rF5+xSfwEKR0q67jqz4dc9nl5b3Aab51Uak5ECmMlVxJcvY8Nr
ciIyUqYNVS8aPF6QPdxzouluRAYby6pnbzDNascH/wDD2GcCXDryrKSN6Jcp
ikLKW/9WSAu+vV2vRvYzxiFTbi7hfwFHdH9VG5nfvi9P9wpwRE197oWLbLTc
n03IoQ3HOZcr2kIFyNs71eDGBjaY//YuDopth3+oXjST+IdP8c4x41lEhz56
G5dl3YYJnqZqpqcAYZfq9c+GsHGvLtrkQ1Ebcp+ve/eU3N89ttJ7QpsNi0P3
nzh5tuLHitvvamYJsP20/S7TxRzU49bES04rFiVI7fbfKMByjQfTS76wMVK3
Ymz7qhYEXz5wMTCPD+O2EonHMlyEfLb3WG3YjEFD5+I3e/n4s12x/3kdF0WZ
Egc7KprBrHc7+/kaH1sfhLpG7+fi/nfpCx2/Gcj/+DY4Yysf9m++pZv95cJw
59+56YkM8HVuQEKbjx+MzTNvmvMwKuvurHGLgWkF6TtbFvMx1eJ6QLU1D7fM
PCLd1VugvdyZGfmCj2PLDjy7pMbFUcPdn6eIN4Mdujd+7zY+Zn/6VzB1mOBW
snXEu7oWLHa5zP/E42MN5/jK3fc4mGCtnFo81IIDxlVK0wf4mC83R21tGAex
dXYDM4+1IXTMnv/xuADDs77QNfexofvnl+l4DJkfqX6FHZoCnF78Rz31P6Lv
XgfdrU9rxc9W5QyOjgALy6x2iv1iwzhLTD1Zvg2LlsRfe20nwAbxsQOMR2RO
rhQf+NXRipII2UDmBgGuX6i4tbOKjdNRb4pepLdAqyWyqIrOx81IMaetBRzQ
z6r2e+1vxZ30Zb0RygIwuzd8XrWMg7Vh10emLmxFzZpA1/JJPh47LVS668xB
15QLarqkXvHq/fG3Sb15F/N2l5F6g3WDhwo6mvHU1i0v+y4f3gn1ET7bubgU
dmrjHxUGcorbbppP8NDjeOqSTToPT/Is8sPFGbhGbX5gPcCDn0piErWQ9F+p
vr5QigHnr9Jr9g/xcHb4RdC0Ah6CpYJlna7RUCZ24p21OA/PzU/G6P3h45XE
yIrT2TS8K4iY92A2DzI9DIu0dj7k3d/TAyZomLHwQfQrGx7EHE7+Ftzn49Ih
/aVXnOn49Lf07NgFHry4D94st+HDwbGnqUiDhrg65sqiEi5koj/OH98lwNm1
hovlUuk4KsOYdMoj/KsV+jhIjrxztPf0iHQ6ZKx/rQsj9/u974araCofUUym
47144kt1H5s5LuMj5KT9SvUtPIirfi6Y0GfAd/nx1C5pPvyfX5Ksu8ND/amO
evtDzShRCWC7+BLcX7Z4VnImwb2Hv5Zp/aXD0HHKh1u9PBxJNFm3+AMPA6na
PeGqDOi5Jf45Tvp5qna1pfAJD3NzZc9RAhj4teMWrXIumX9jj/317jxIpTUo
JPQ1I17XKm04kY9yBes/uzdysVrqx/H1gwxU75YcDLAk82+uM2A+ycXD+Y7z
gkzo6NlrT33jx8Oa5TN/vfTmw01t7RytcTo22q8Sa+3jYUQ7er9vCQ8OOffe
hfowUFwZreGswodZquK1F4d5qDQv15Sf0oycxKN/p9ryMX5jptOqnyR/nOkv
6lAzTEfEL05J5kPPf3nsg7VcSKpl6K/71wzurOejSx7yseHyvBshq7hImXqm
dMYxBnTtAzUvq5L32+eJAS8ewst+8PxI/51vq1WdIP3/RLmZPUz6b3Ze83JP
Cg0mQXX3E6fzkLznlPzUbj4enp1TZBtFR+H3DuszD3nwtGkZcyF7X+xoNVd/
Gx1vdIa/TIvgIaTB9jtlF5mfGH5sJJfkXxrCnezgIcbLTvZpAw/f7hxTqFxE
x8Uq19pcTx7uSBrZfSZ8deDm0OW3J+gYYhT+0bvLA/tdzPSzq/io2qZsn7um
GUUNO4dX7Ofj5bGC7H/VXDTI/7r24CYdt+TMGmQzeWhb/ugnl9SnZ+l56FIw
A05U3oHseXx0pqTu+LSfh1YdLaPeuQwUdOLg+kkehk0dZ8sRvZD4tTPLL5CB
xwOTnmPk3eWM1dc4k3evGV4j7e/XjHW3tRYW+PPhpF13sO8RwSv5gcTNC5ux
Ki81vMSJj0d3aRdt27nIUxiQ+5rHQJasPHWqAR+NkVYrVq/kEd4U2bHcm7Gv
YrvEqmMEB6Q8M9a85OLd86kvf8m0oKz77ra3T/joGVxa/58O0Y/MOSZMuxac
nnJ67YNiPqZdvhaT94uDxHJ30Ake1mf/CppF8PDk728vFhM83KYyV2mFfSsi
VHWfq8gL8DB2QgaGHOzbOlTRe7YdtstypqgR3Vk6EJdp/oaFd4e3Hzkb1YZP
s6P1roQI8HJg8ruTDRuZWfP6X11pxcVonGMS/ByaurnPcSoH+WlmxTyfVnzu
lL6SPkeARMb3gxMLOfgZtT3q3Y42vPba9MLpkAB2x+zmPQ9gI3humrPZZCsO
32zQ6rUW4GTYmR2yr9iYkJS/qhffjMCSgE0bzvBRzZM8PHaei+OzFjaHbm/B
md2Wh06/4+ND9C2WxW8O7jkGF5mOMWBhKXnluDUftyj81QG/uZC1y21UfN2M
Qyrtuisu8fEvOKzi2nEumjLBlqa34L2vQuZyIR+TCZ3iNTc5qNwgZ0Al/JW/
UfamAuGvk98vzfAl/OWzUHtOJY+G7MBV5bpmPGwofxIokc3HLG/ZCzbraVA9
kXc6iPClc+dz7Q3rBUgzEsYUiTUhnf02nyFB9lArWINpK8TJxaqRGbZNiNEf
eGRP9u2B2g1uqqwQtefvZx8ab8KgbdyvgnQuwp2c32qQfr8puvxMJpmGfHaK
7SFZHvx/yazM6OFDx3tabJ8cHTP//Gh5souH6jHO2dtX+GAp1jWEFjGwdeJJ
7EYjPvbO8/q9SJeHoYQPEhue0TG9950NCO7XpC84eIXg4rewsmdHRmmw1cjI
W2bJQ5LixKZfBCdm9u1P99xCh//uBtcXp3i4+1Hy+cs9fIzV+15e1EDDtDYq
LXY5D1PS3qztKSX4Ks9qUblJww0x2oi8JA/q/NN/v43wiQ885TH1WBMu3rMP
N7XiYtpepo79oAB3dG/zf/k3YvNhza1TbnFgofnl8mCVEJlFplbzdzZiUuKP
QtBhDlhr/vqrsoWYvnWmrqkz6aewUj/MjIuKI0stPCSFSL830pXQSwPn7Lke
I/Bge+vQM4unfGx6K+bknEuHh41MgGopD7IX9h9984/cKzn219RoOizXu71L
fMTDvc/7NNsX8bG8/5TjlsM0iB0xip7TzUVoVNb9tUSfMgusS5p20pDyMKhM
qo3oHn8np6N6AnBVGFuYhNf2/DXYYBjNw8bp7715/5871ZtzBpYzoFUbPr6G
9HfxvG3mbgSfks7eunR9PQNnH/lUHJEh+Kgnn33+Mg/ej5dUn26h40Xg7uEb
DIL/2WtFFkSnz6qYGN3vQMcrK8V5z8/xcFNF1eXRDqJrYvyj7wzS0N70qlB2
M8HHTS0eC9MI76XdarAg83lg6fQtLWt4KC2jiE6Q+ZQ6GvFGhfhZv4w1iSeI
n+XPvxL/k/hZ4xchx3d20jHWdvChHfEvdEP2AxD/YnBf/Pa6W3QcUip2DyI4
mcp/aOlKcPKTk3padi4NicEXlr5QIfeJO323s4W8r/LIgfd8Gsb+Pb30lewF
q+q6iX4WHz93nuSK7tGRJOk3Ty2Lh4xMzTchynxEW37xaPCno2H1zvjEOB70
vm8+tMWYzPP0H+nX9ejgSBsf2E34rKBnVYkBwdGNnjkmM0NpoJ2nVIHov2Xb
LXvTZARQSVLqVQ+hQU3s8p19g1zsEKj1LpMTQHDzz4FTHBoGuWO0nNU8aP8J
0Z58xceeNF7T2X00RLYc/H2RQ/ym42u+G8GtaUemb2q6TIfUf+LFOYTXJyQn
XIrV+eh2vvq83LYZLoMJNa2H+KhtkDYpfcdF/D+1e0n0Zvxuzlptf4fwUL65
33d7LmIOGx7+tb4Fc3XXjz7L58OA1Sq9XZLs95dyb1YKA8dCJM4eJb708eme
EGcypwtL4gquVNDh8tX50vtvPNy498MusIfw54mw+EhbOjreclZeOsND4Xqq
b6MDH4wHry36iM7xevEq8ATROQcjfQ+2k/dfOSreUXysGTZr9mvX+xHfe2SN
5thjoudPyRvxtjRj7Vbvr0IPPsxzf9mFf+KCvzl1VW92C2rCPoy0kvdbp7H6
ysZXHOxZeV5J51kztsXNtL0RxYd2zEcFeggX0S3xyxfrN+Pxpgf6r8j+y+bL
dk5SuAiWTjsVcpGOCyqMuug0How2+bilafLR92ZatP29JrDa/l066smFUUY8
h/+d+P0ziyd2cptw4eVdiXt3uXgeaLWuOFaAtq/exqXPaaiZsyDFSJn4hFum
Pi2dZB/9ze8lkvw9W/dMSyb5u06u2RxF8it+9Ke6nqFj9dEsim0y8bG1Uqxk
gtNaWa98fBPpCH8aK7HvFfG5P5+J/BWIfjlX/SQ/iwaVaQ9nzCN69XEQ69C2
Dj7U7hS+/3WAhoKwoM8feVxs97L/46lO9r1C5dma4SYoeM5QCnnIRWVL7imd
CAFMr0opFM2hYURnZIX1Wy5Kta18Et0EON9jb+S+ko7BwLGPNUcJf0cPSAkJ
b5cazLT9xm7C1DP3ixPjuFB/vjVP5poAtz+PXTRJoIEaEivq+4+Hli3nzAd+
kPk8Yn+wL6UJDMnuf0M+XHxY9XYwvFKAD2WXTXb+aMIULj/r2QMuhn1YlE3n
BVh5tDHj3pMmuM1TC40/xsWJPRbvkz8LUMcz0g9eQUPu+i1RXeVcjCU8N5W2
ESB9x3Ft+w9N0Pm6WPJrBDkvajGJfyFAZaaD1el4oufvfaIHk/tUbQo7ENfP
x7kiHXklCxoSLG2nhjRy4da30iTWRACT0EE321YaNmeNJ/kbEZ0/fk5m6ls+
Bg//u5s7lY5qpTMlj3byEHv8bsXPG3w4Tzt/QjCPhqVqtltSyf4oh7ksXeRK
6nL6+H52dhPaV+/fmx/ABW+mq/fxdwLMsZE2UdrVhF2pk2rBq4m+yaE+nDVF
CKHrzTQFw0Z823opf95mDuRn+G9p+i3Epo0FMU8tG2HY2OSUu49D9qpZdKdL
iNvXy66cetcE3fQu/xdhXOxXKDxd/kqAv55BixTn08GS6dP2IDrv4Y3OaTER
hOfr59+2NqPDUWtdgW4AD1THf2y3g3wkqnWsCGfSkc7YE1pJcLlZbP/GUYKT
+Q5bm5WI/izgxO4uJzgWVfV0qSzBscvcNiueJgOajvc0b4jzceR93OBnMqdH
fi8ZkdnVjKhIVthPou/N/8rM+5NPdMHMQN/aGS3YIt5fN57Ox2bZbKcFS7l4
afl6ZhrZ961f0hY6k31PjcyznE18jUzEjB7Hdc3wOj96dOYBPnbOuRo1XsnF
uorA8GcOzWBkde8/TfLPvLZOfSqZ08pfX5ednqRjoFVgN9lP6vJa3H7tHQ+T
mt4rWkn+IdlutaMkv9v0HG43wZPHHJ+Tc07SEZkwcOdxPA9z1hlu7tDnI8in
TMpqNQOMBBul5/8RH3pZKeLCNeKHpJ/pntjLQPKu5ifOBN+t2n8H1ZH+LepM
tR0ZYUDHK/2e5Faik5pob7PGuBgxu/1AyoP0Z+taM8PZ5LyqV9Dt4zxIxq54
eIDDAD2+/ITeJj7Sc46s2En0TljyIvvjFq2w9VWdYjBdgBdiv4/oreWA2nqe
rkD06piNpvmvhwKMen/WqSB6VW9WwHwJRhsqEn/z318Q4NyFKfShOWzEbO6T
7WtqA/XeHHfP/8d9GIkGqmz8OWp9DUYd6FZUu2X6gcxfotJBt60sTNs19zHb
tBOsRwUtf5WFWMip2lqzjImvMnHjs4NYePptj8XmfUJ8eur4fZ5uO/SlV635
2MbG/LEdaxRvC2F+krrt3VvyruWK6pVOHHhLT7P7+ViIP8O3fOZxmsEcPnVr
YwIbpqpYtzJGiLI/Q88c9FrhnVzqZm3NxidZO4tH4UL48r+GdRW0old85wOn
T2w8KD+aM+O6EByRkVeEoAVfhkbi32xkQ+dl9Kn9p4W4pb/oU0d5K76cvKv+
NZSNUKFDyd0oIZ4Ue4otOdiK5OiKytCnbOTalG2wuCIk/Rpcek2pFUV/38/r
vMxG9p/eN/3RRKemt01Xt2rFzOT5o7Mk2OC2ersZBQihQn3CHDFoA79y1OAb
lYWpPcoXLI8K8WCi+Mv+6DYkSPbzbt1g4XA538DaneR5dMN+/VgbsvbG1axw
YUNquCi97owQwxfn6w0/aEWKXcaXrTtYKNq+Lpu9U4hm/VTLa+RdZfUkWH7Z
TIhHIa34nwDNu5WjW78zURR5w180tQO1t2nHf74VQLv7YIahJwsKO48vq6xq
Q9292AE9go9rm8Qe/qfBxtUfQSFT3Nrgmtw9PusI8SlFGntqvdm4MLp999rh
VqSV6LO3WBIdoK8d5fWWjYQrKz3vXWvD2+slRutOCbAwcqmF/RY2evo+SU9H
O+Z+/Ve+6p4Aw7+nrulvYeHGjw9e27rakCxzUOnJJQG+VTcLMuTY2JDLTvSm
M/HJ+XLfAykhEp7O+SmRwsTY+min6uZOnCvmHRBbKYS64rFto4c7wJyIvZ/3
phOb5fXpFdpCdFtK/ad/j9QprvREZ1sndNU3jJqqCLEsTXb3dwUmDlpTekPS
mVgzJGSvHhfgmN23kWvNTKTJJipd0uyEi2Lg40MKQmR5e33ZZM4ET0euOWx2
J5yuDb3cP5Pcp+xoQ+pOJjYqXnic/6cD5fFJhVc7BVCg7TmyML0TAtPNDvs8
mZCu7pmlPiDAip7NynuXdoIzVqXEl2Dio8Kb6tlsAZrEJet0Ezvxzs7izrX3
JE/v0pNzaQJQOnUHzH50osvtXK+GdjsivKJSLt0W4ITYC79JAQs67u6CwOXt
+D4+Q3/jHQE8Mqd/8uWxUPtN0iHoIRMyZq/CPcYEUFzgoHqJyUTxrAD+YccO
mFc7bE79IsCsiNoAA2MWFt2sGpR+ykTrcNvMCNKHNcY75XJJ37cuvm3gvJ6J
yrzn54XdhNeTn9efcST3/8bwefaYCZ9XKsY9JH/GuiDP/FYmVHNPyHQmdyLv
2YqMn4uFCO34G3cotwM3jDtdtH52YkYl62mvkRBp+ort8207YM2+nW4j14ll
0WsojXJC3P3BHbi9lwkDedmEbXPZOLz5iQMvWIiYwUg/mSlt0H5jJum3lg3Z
3kttCWFC/DDR1Zera8Xc2u4Ri3Mc3A8KddN+LsTHY0N/ZyY0YyXvk531BAdp
of0dye+F2BiUPv98CQOPR3ycNxKfyjBXrdvzUog+3bzlo2eI/ou1Takj/Jdi
OX9g9IkQU9+/d2yjNRN+eHsyIJALxqpzkpdrhTjEbDY4OkiHwnDBlWTiS//I
B//bUELiaQGDo/kMlK1NKrDM5KJxr+blrhohSh3DWoqIj+qrNYg4a8IjPl7C
cPM3IRJr6//qSNLxVmLVd+F3Dka6PrnE5JN76nzvq5VvxuThR+dGu9nYWGFd
vD1OiOqTZU9WJbfg/JYTLKobG0tK/s1+HCnEfpvZsxfeaYWTVHWJliIbpRvP
WF4PEuLSGcXI8VltEGx6+Dz2CQuTqWFBew8SvHL22Z1Hb8OWbQjVNOzEBhNe
tSTB56jSu6sz9JmQmmpnN0eeheADbRITa4VgfXlUzFDqQL5gyozsfibiDr+7
3fofqXehRw0rkglm+uaqqw6d0F/ZuyZEVYjW//qVxacx8esb1y1jmAnN3yfW
504jOOaCH0OhTPz3fu2O3Lkd6BjNeGVeLADn/Zn0w7tZOGebMGNb2///jmH6
aYz4f5O/ZbTdXwkfrLsfminZhvEqpaFD2wTY8MOzNfsFG9psv+sBH9rxy3ZV
ayLRYQZHR9UnrrPQZhw2/vlLOyjXIxwiXwpQ5vZZuzGWhaasNkrOrg5E1B7Q
oZH5LxET3vJbxcLiLTp7qjYxMXqZave0h+DbUxcLox2dOC1s+t5H9lr+W4D9
PbLX37783tj+pBMqWmGUts4OXHvzOXJVmwB77RRnDJR1onkw5Mfigk5ESszf
L6UjxNbBxAVBcR0QVN5YfquOiZX70n7bEL9t4L5Nai/ZN/6Js8qX6zrQ9fXf
zW3NAhw/ecgzkdEJqSLvnlwLggerlW5tn0PmgX3u9C4VJrbZZggdTViQW9dQ
TdsqxOSG8ISXRe0YMN3Ft4jphPSBObN3agrxNCE/XOtbBxbKDi1LorCQpJAY
NXxEiI7m+isrLrdB/8a6/4zeseB8oNkixluIhzlztX7ltmHmj3VxcgvY2Le0
Jm9biBBr1F7uXyfehp11qR+js1gYUPUfeHlIiJcrrbfKEZ6Imj19d74y4a9p
C/Ji1wuRN2L4gvFfBySC10WnDrHwLvKCyix/IZzCCq7pbmuDT1BBfCzJr139
Z9KN5F9aybnqKdYGExvF8HvnOzE80+XsXg0haEcM6L2UDuxQsvSTYDOhIh8l
fYjo13X/Nam43WJiyHLyWZgpE1ZiYs49IgHmmnz8Fb6nEwcnOsobCE9ZFlte
cSU8Nf+lQ68B4anetsqufvVW2Ljd2VsySXTd1MMuT505aH3uxr96vA2Pgkr0
4/wEuGq86iv2sKGwMbntr0E7/IoPj0vECeA4PG3bOzYLPu4evDuR7Ri87Pez
k+il3AczGfL5LNS/XZKZmtSBEatZn+LqCW6PBN//IMNCkGV38z8PJqavMF89
k+D/EZHN2xqC/+O//2aaLu+AknPu1lWlArAC+/N/bWPhhOltTWvLNpS8ecmP
8RCgYOyMoiLRH7Gv06L2H2mHkdlB253JAoz36hbnf2IhoOj+Xls/JhIE+uEL
hwR47JAduEC1E1eefF7Y6N6B6mPzxDsrBMjex7MyXM5C41GV37Fu7ZhyyaDd
MUkAJzdByOcqFvaV35gUZ7aDPf1rpyBHADffGbuWh7Mg9X5ny0J2K1QvWsv1
gvSnsHtlVznpT0z8ox/7WyHmGb77hTLh8TjNvtqlHHSFZG/MvtgKYSHr3RUN
wvtz88UPyHDwaGZ4e6VzB1SUt0vuKRdAevs06XhDFnomop+UkP5Y+XzdIkX6
k9jnFKy6rBP7rHxl/x7tRMazNzdvzhciaF9XNqunA2vWHvOihLLg/m42Q9VN
iMLrmjcWaRDdOCL1N82d7O/x0NqmnwJURIQHHtUme5SkFcXrb8eNJGq18LUA
HRs5ctEnWKj5s3q4bCsTE1OULlJ7BeAPvVVkkX0rULddmvOTiZREsW5pglez
zdVnZ58h8/dlrtP0MiZGvPN6VooLIWfDzrIsYKKrQfx9Sk07AvSW6VGyBPi+
5fHQokssZM19c+rTqTZk/rxtMBogQOZ0tstZBzb0sis6Noe1QcT0EZ4KFGCd
bf9sV3s2nKuNlbmarTirQN1UKCZAy+KlpYeJ3u3QpvtK7mkBt1xh0d9SPhi1
1z+P93HwdybdoeRcM3SlVld/DeGDedL35hTij6spxjamYc0wu2C1yiaIj02+
l7+UJHCRo1yecmesGctsTeMSU/lY9yq4rsiYi4vfoxY0Lm5BYN5HyydZfLQX
LuA8msXFojs5ZW0WzZh6MnSamScfkXLXLT5+5GKF6/wddyKaUREj9cAnmA9/
ZX+rlfe5OCYrWNOT0Qx/mTtuWlF8HJu+x7z6JBd2O5QPuJgzYHrqoYf4dD5M
DirWdkTzsD2+cJW2PwNizxu1+GrEBxU9cG705GGkZPTNUy4ddav7C1WZPPgE
Hg+50MCD1mOJ92nuDOT4OborEL/DnVx4o534nR3fFyWu0iE87DyjttGbB5Np
0S6mAXzkw8HS0rwJexJDV4sv5+JrVfvfI7OEsM2/VtPr2ATXn2Vee4kvzu5W
LTAhuJLl6Kr04B/xuRmTCWcyuJi2Y63P7GABNEWsmxPaTbgcxwk5OJ+Lq1OO
NjsQXP8n0exe49qER0/dKRrruHhccKBgGZmLzm2K8ZqpTdhp9t549mEu0bXJ
GjsqCR7c/m7su5iGq1IrolVJH2svSm+stSd6fLZ8qzqjEeePnqiZ3cXBM8bW
+FziD8rfyE/uWNoIxwD3K6XGHGg65Hc4indBa0sBJ6qWitIaQ9P/7+Ho9pmj
06y78HzX3yt/8qmYKhtwPfMZG179smWP9nZh5ObUt74KVHyoPO5ztJ2F0hy9
u7XtXfB6OHLBnNmAK5M2e2jJLJh93nDaWFqE8TChuBSFgrGFx7I1BB1IHpfb
F/dRhCmxkUaCeArssk5ZUJ+2o+zSrLgmigj2zp6jrjoNSBg7t+3S6U5QP6t9
2B4nwi2d5ot9qymY+2a49lhsK8RZ/Zv/+yHCgq3nfXUNKLC8q/jIkuDHknCl
4aM/RYh5l8VVbqOg0pyvrbqY4PvNDbZ6JeQ+3/YufxBOwbS346FN0u1Q05d+
GdMiwvHZlYKgJQ0we+lQSDvRiQd91yQ87otg+2aey9J2CtyXH2kx1GXiW1y4
iPFehHlr9+ik0ikIjQjqei3LhPOdkRdXS0VwWcvdnsihoN/tqGOnHRNm07h3
29+JkFWZ6Fyp0oDC+s1jdKIDxnZXXlqRJsKEjOHEjPkNWHbgyb0I107YKZ/2
qk0R4czZS7U5vRSsXlmiYnmFCUaW7IWytyJINVUHjo9TEG6mLystIP5hp8G5
j3ki3Az2r7t5iQKKSaCh7pZ2sK4u3K5NFyHAT1akcpaCL8yv/Xmq7Yi5+qw9
uFmESN/TYdNPUrAsPULVWNCG7IGd6uvbRODss1tuPNmAFvrrGVUVLKy9fKRB
v6cLlw7tKfb7RUHh8sauae9JXTtdZinmi2C8gLYiKIGCvwELTw8/b8fw7uw1
//8+ZNVU7SUYpMCrwnupKJOJ5dHVbdMLyLtM+7OtNbMBy9OdR0/uYYHiV1Jy
UF8Ecf3Q0zPONEApkaYmo8XCWebl6r/25F38+6fYDTdgGlP989oiFvYsPHKq
ZqgL3mOH76ceaAB70ZKE7olODIZMJJgdEWFoZ8EDs90NsJrIrogTdqJQJLsx
44QIY7rnrPy7KFiwzNFCOYCJZl95E4UiEcJX+YSPUsl7KQb69Y50YFK7RP7l
BxH+qFxg670l/YkPf6NC/I2Uyw/Pi1UifJEIVBYLpuCaS9vq661tuMjRdGOS
vj39qLSvapKC/94+G+/6RfqjTc3m5oqwrDnccvnfBqiLuu9f+kj8cJTN5LL+
Ltw8rF+y158K9V165xYTvI7of+ScfKcL8dbe9eMKDXC2WRz7e30nLqR6UmOf
ihCrZEQfSWnAxPoz4v3bWZhlzTb/ZyqCkZpDSNWVBvQ68y+3GLFgOLrR/4eV
CMcSD7t2vm6Ad1JpbLc3C6taXzDDlorw4c33zM7GBkhKrDDuu8mC738b/Y7I
ibBlvLxZpaQB859s1PYIZGFXoqh85UIRyi1Hnz8qoWJtis1i3Tw2XpQqBt1z
6sKeIGHYQ0MqupXUKl5KE3y45G5zt6wLvvOybqT/oqI1KsFd+jcblct7s64v
68L0g6LcJ86NmNqmKfk9gANdu/GRpW1CmK64+SwjshGhnKooy8cc7Nr9Z44r
8T2C4MKejphGVNjGJ77P5uCbm86ofAHxPbN+zNvg1ATtny9cV63hQmbadFNl
aSE2hYtlHrZuQqvbOC/egIsv+mkaFsRPT8wrvEKlNiFWd3DjnytccL3vxv5I
ECBH/g8n5XsTrBWYGo8ucTHP9pnh0RQBdO//Z3TgQBN+3N22uAhc3D7ZPWcv
8a9P8+eYfJ5Lw5pq2kt2ERdsp03Z6nuIPgpw8piSTUOuYEfaztk87L+yREy6
gw/X4JqlYi7knk6Pg/+aEfy3/LkiX0KITMO43k13GpEe/Uo3o5iD6e2Gc9uz
hFhy6vt8FaNGZLoKeZ5bOHDU1Pgl9VsIsXcLy2/spcLB7bpD7Go29vc1fMPj
Lvz2ZcoHVVHxryGkK+UDGw8OdHhNs+3C6/CokT3xVOjsKiluiWKj+nB2gHRQ
F4a31K/WWkfFzuEdgrMKbHT77S2b+b4Lmt9EnmpmjbCihz9UsSX3qahrCR8U
4uCASXiSXyNqrUeu7b7BQbE1r0fqqxB+Uq/+yEk34fwr/y1p0lxUVRi91rQR
wvdPo7nuSCNet0XtmjHOgY2N9LHh3cSXfLGgJn9rwpEx1ci8aC40JwfOiT0S
4Afz645ZITTUubd+cBrkIoOtL28oJ0A1db1ezYkmjJ0qfdFrw8WZ9rvr9/QR
P5fN8rR63ETu5xf+6SgX9dJR8SVlArCtVp7Mm07De255uUEOF50bXq9Q8RFg
5eJ53/dep0F9cV7RoDgPZV+Pw+Y3HxJK3w9t6m7C1o7CK7KJXJzzEB7/FC3A
2ydpM81f07H9gYO80wceWqM76qaPE/4331Z6+wwdpbduVgUk85DwY0eRrzYf
LS9bK8ae0WEau8f5XSGJyz8c5Uvxcdnb0Z/2hwa9rG32hVY8LEtLv9CZxMe8
i8r3HwhpsA418JxYy0OxUs3z2y/4cB/2Oj1oQUdLr9+Fl6E8rFn93y5HVz4w
+qu6yIEOJ4MQFuccD7umDE047ODjxz/Z0k236JA6ZJd/MpOHudqe1F2qfHS/
jbjQsZ6O4ZwtDaFBPDy2rZ5l7c6H+ILmjUELaBjn2UakFJN+mj31/e4swLIQ
e3oaOe96OsjfgZyfrrz6dAQ5X7bsiWjdYgZCIitynST4qIyyfvcniYe6s8Ub
ypfTsfiEqtaCIzwUxGzduMSPj9ffj6nkL2IgZY/CikZxPv7bxlTRIn0a1rV3
CnCnY4MTX+btFR5u8zOmR5nz4Xy2hrY9gY5/U97JPcnmgammfstHkY9q6ZHu
DyF0nNTvfXgknocb8pLR2iv5yNzZvkGG6LcLg39mF3TwoBN02lCGykN7jUGQ
Ickf2i6feJ3kjzqqtKqI5I/zSH7cdKcJ5Y1pQoo7Fz8zlffKUARYlbJn3bI1
TUiY7TVNaykXGu0vJbcQH5C+Nnz/v0ON+KUmq3UoioNQv4uvkylC/Dy0O2Pi
fCPiJFec8X/KwZX5zA3574gPFhp+lu9tQtTt7zeMkwgO1MkeMrgggNHY7YM6
+TT8Nit17VIj/WrT/8Sk89FPU05VWETHiixeyTqiR40/0gr2neLDpfva13Up
DNT4jmiu0uHjZnxtSSN4CC6LmCrbRMfv/MXUmU08/M7tPzlMdOuXoQ+zTGKI
js095pLxmIdBa560ugYf9K0H9z0/RMe2rjk5vtd4uL/y7WDnBj5O+lJ/1lyg
IzV/nXrQIx4eaRtSZ2qROVnZ9nLuZhpsZipsNqByIbJ2f7d2tQAmka6/71vQ
wNAa7/jayMXYnOQUFRMBbp5vnqsbSQOSY9OW/+Yid9YV9QPS//eFP4ouBNOw
6uDk3N8DRN83u57IIftboRbPk/GmoU1S1/J5Fxd1Ief/LFYTwP1ig4pNEh1e
JiEJ3a94+O7bOJErzwfviNHn42SPbk1pnnQje/TyhKuFuzQfV62Zpucz6FhW
N2Ki8ZYHyglH//+m8pHCNj6kKcWAZFbpgolBHjZssdGILeAhb/eUafeNGHg6
pWqGGjnnMlet6P/fL65vEBz8WU7HzS8Lu12+8bCyUtl1pIeHtLb9BR2RDEzN
7eqdt5CPz9rLTvN38/DnQazSkHMzxBPzP687zEfCQZkg8ddcBM31+73bshm/
xf7+9iT+5XDIthwPorvPsMaUl99vhsze4x6iCD5Yrx8FlkZxUb7qYoGbeiuO
znlafXWSxEMWec1y4aBHrMpS3qEDO59sP3joiwDydTWdE8YsrD7Y03N/aQdM
BCJH8xIBuPq8KzvtWDiqEMSYaGjHjOcR/pxs4h9uywXujmLBu/8B38+mE6wT
Lf4qKkIUM/20sxWZ0AhQvv3wBPlMSLeIJv79Jy9+yp7ZnRjdqhVSlsbE3E1K
ZeVjArS9+ri7oo2J0z4bV1vMI/6++vtXZ3khFm7e5/DWmglPl4x9GiVMdMac
P2soJkSUdQv9///P4Xto6fXfWzpw6/2LcwafBcQfD7XWric+YGtOlDfx+96H
ZD+PEr//4VDCkYHTLPRa7otUeNiOB+684V0ZAqRmc5VeP2KB/WfO1rx0Jj7r
fW0xJ/yaMqXB0LKZiTOdlfOLUjvwOZQxsZns7TYOfXL7fyycY/10sWe1gcKt
1dx+UYAS8cLlPorEr0RWbNrc24553+YUbyN+vLjOezyb6JcN4WneJ4ieO+HW
YzXJFODgEq67dGYnrOYWGAv1OiGr18vUVBKiacojAduYiTUUxV8Ffiw0KAQu
fLiX8K6CnvQHw3acMKnjLyc6OGhZ166th4VgsOIfzEpug1ma2W3NXhZmRDy9
MX5ciBjFpG/GLm0wzFdblx/ERtzrmE3080LkSD5LEPNtBX3V0LO414Sn5zb/
k7kqRK1yByN4ogVLJT6sTCvjQOqC5yvWayH4yTlegVrN0ArMy7h5h4MXxq+Z
9JdCcJVC2IahzfD42q1FechF6dWnSeK1Qljt1303/T3hrX3Hgved4OKP8jhz
J4l/P7/d+OMvOsQUDxuti+VhfryS+jbC37amS1LGkmkQpdd6XiR8cuSlXap0
lRBO9SFGwdlNUDrNT/FJFqB9+voXmz4RXaUbPZmu1ogD1xztrn4SYNqTrINJ
hULMCFnTlTNGhZ+EsuqqAYIfe1RfDpF7Zlhxt4tTqbD2nfwdLOTjy5ZLsRsr
hPj85qt54yDRN37rzvdf5mPitMUtl0oh3EPM43W9mzCaI7VXn/CS9j3lq7++
CJGcG3Ev/GgjkuROnvoqS36W9Vl6P0MIqbG1n9e+p+LxWHNE9HEBTG0EHm/I
+VsU6R9mdo2YWOARG+cpgF31t5pGEi+Rzh24u68RLv/1ZV+aT3THJpl9j8qF
WF56UrM5txH2GxfMuHOGB+nL/6Wf+H9/qm9NOZFFwxQz0eN/djzQ38/KGiVx
m49iSjN5xG8r6Jt1HORjzsILByvJ/XcNZT45HNeEjAspA2w2H3vWa82wJ/We
VAvMevSnEbp1cbsu1PMx83xVWAyJR7R+s5WVb0JZncHqxqM8bA9/r5dJ8h/n
3lPa+YWGdJsPurn3eeA1p5gtIfEbxnN3fiU6ZrvfrH9bEnhgMXdd1SDxTdxn
dm1XaZgq09SqQ3SK5rqR+D/kHQ8dO7xnSIEGMVpLUrMYmfsCbcdfpN7HjmGF
jMZGeOmk3kr+TwCmcoU9k8T1lcpq3L41YuSUl0OYNR+J2+bcUSZ5eu13dSe/
aUKS1bsAPumP4P6/LH/ye0P//twsQ/rTs4k62nqaB/k5G3NCSXzZnOINn3Jo
yErz+WlC45H5VpzwrRbi7OPmxRGbaPh0Y0+Go5CHCcErJ1MSp8k9HPDQpaGf
2hIupc3Dv00FGse+CVHYfNw8VYnoqsqlOdsNeDh3+lqCA4l7npEajZpGh8+S
Dc15ulwspUaOmJcJIW95Wf/gccKjMp6BSU+5CJ/NiuirIfPyeMbJL0TPfVX+
3b4+h4Ozav3903KFcHvCMTUjOG5JO9KxooWDe8qKyiveCrG4a33Wkn8MbBq8
aD2DxcHez+mv9cmcG8qnLl0+wMCNt5ZPdEQcrHo4vupikRCWPbO9bdkMuLg6
8Nbs4SF61VnXFtKHPYkaN28zaGhcEZhuTXTc5AiliE/mxEhq7rudj5rAOn5M
V9jAR99Xfa9zZB6UmxZlLZRrQkmW+I6pRUQPfZIK+UL6Q5HUpql60bBOdD9w
8hoXAZ6bXdaQvRYm9t6WoNKholT8xM+H+JbJMT0JUu8/2gqOrTQDGl9193Da
eLh2vG6tK8nj5Xz9rssaGt5W5H32zOKixOfI3nZy3u/vuakFL+moSnn17nAv
D6N/DKyWkfPlS9zNViwmurx8/sxcovv2D+70UCN1xdSNtQovEz2tFZc02cbF
W704WzuSJ7dPUpAUQIe/Wcb1SjoXmR2PKveTeKggLurvKTq2tn/MYVhxEWnR
NtOT9GGl9yZNl3UMnPaYteFGLRf5OTFyZ8h5eqO6SVA0HVqzObRnZP5dwuwc
/z//niKFiEYy//En16c/dOOhZhl9az2JP9uZbujbSHTM68VdFql8FF8rcVUl
+RtU5n3V2N6Ea3ql3x5M8BEdt2h4jMw5Nh14d4feiIOMX+dlGgS4VDmq/ewN
wfNuC8sbfVT8sImaMzRTAIlDcXeryfkPNVVHj3xuRF3oD8Y3HcJPF2tnhJH4
aqfeimePGqF3N/uMcjcf2yI0KlaTd9wz78z3h/2N+H5na+xEC9EpQzm+h0n8
urXq6EbJJgRoL5FZaMzH1BWfWneS/aJ8Xk8PqG1CZ36ECzuC6JEjsTmBpK72
Sy4vrIifXPp7Hn0J8SefzmfvnkXePfbFl6LlX4hOMlie/KufA63r4rQLRI9S
H05GnaIx0OU7qmqox0OkoXOhB9mXNJvzXqUz6XCJSZ7YP4+Hm4XMhFskfnrh
in/TiR4Nz6IeCFnJw+tVR2Y7kfjO1nMFV2ToMPxzxiD/Eg8W0mb3nMh9uqe9
q7JJo6HSR1vrnwofG/feNE4n91eTZ9yt+tGEDo+0yKFaAbzvfu9Iyyd7VzOy
dOYAFRZy2+z3EV5ofFo4rZvwwuk701uYDVQcTZ0ulKGTOZ5xa+uyECFU21Rf
/5Wj4n78nKVVhiJ86Ngc+UyD9HkmtxpcCj70pzwWkyfxI3LaY9pCCHa9K58m
3oC979ft+31XBLH+4bjwEQF6F4Q+33SPAnf6zoCKAREcjq/8mE30gOGp1GtD
jhSsHvi2v2RrN0wkliYtChLAfugJ99NsCg4/4eRmXuyGQc1np0eWAkj6Dq/4
wqiH+qTcuZ8V3VC1L5rzfA7ht1GxPpsz9YifXUpPyOuGl8JmiUtLBLCZ/X57
b2I9xL/81tC/1A2bPvu5G0iew4+SR6VJnneB6ccKVbsx35W6KfKeAGJyB44x
TCnQmNk2WHGvG31JTze3mhG+urvIeNbnenwInDpWcLgbt8UkOJV7BUheGXZ/
oxgFz3avd9q3sQc+mZ8kTT/wsSR9R9wEpQ4+xrNOl8v34KvNFvF/LOKjcpW9
/irVIyYqp6QhrRtO6mEacoYCDH6Kk9LIrcctTdOVDh+78b92zvuf6v/946Uo
kgYqkYYipZRSb1QPDSGpRImiYRRRoSHR0M5Iy8omQhkloSXjLNnjcDiOY4Xz
SoWohO/z8w98/4LXr9ftdXs+r9f1vMbj+uXevPaW+BUlEp8d1nef3iqHRlRS
ROv3bgR/9bwpk9UJwfJ7ew33VaAyd/S5mm831CVLuLoTv2LRmUydK3EVeDzZ
QXDgTjfOZ5rGZI114uztwkyVqAoYzIktmnq1G/0J3+sLxb9ijlv3xz/xFRjw
UdkXYdeNI6/vLx6U/4qGPJbqydwKZD73OVql14X2gWkn2Ye+oi9pl1lJdiW8
JX7p9fzrRs7Aabu7KST+/Y5iSjsr8Htq16/fI93wDuQ/KUzuxKHE6VdsTCqQ
uur4/e315F0mUae2SnUipaLsuLddOfREOXy3fz3IMVygV/e9A51zZJMfrypH
hp5ZwIvuHtw/YbAiYKQDVduUC8d2lMPUyeoaxotw0cag3JzqQPWHjVJV6uXQ
943bxmwXYdV457UKvHZMeF4Z2ZpTirTAPWxjFQo2u9MUfMm+n1BtutJ+TSnM
jFltTf4Unn+7d+Pb7jZcyONO6DX7gmmVy+4acSlYbk2XGZnainFlesk3t5Zg
cvB4rf+aKdw34Z3+pdaC1R//ijwr2Vga2dT4iti59aOaxyRacDO7913XWzb6
o193qPAprJu7dlGwRwsyiq1ipk7hwPml1KBHE4WpB7eafIxvwYIPBv1vNTmo
YqbLl/Eo1KatpNbPJjrU8YpN/G0O9DOaG+QbKRRdj1vwaIIQPDHJx2meHBhI
KFyeJqRg3u3MK/pM9oFrkXJfddi412Ps7kL8ObetX/G5QgtK/b2NnzDYSNGU
cbhdT2HSLucp2dlCnNnsZTpzfAkmmQQelSDn7yoWLiqfJMS2Q6+6v17iwO3o
g77JDRRc4oel9R8JkWMi9WBmJwemL9JfzCDn/Kdm39VbJ8T4px0F4QolEPt+
dpcM8Z9VvWFZtokQ1luntoSncxDR9bd6Lvl+eGn0NdcaIZoi3Z1fzS5BwtGD
ktIkzjWOs638lVtx2MDIcuGeEgztkPMOqaMgnrL6gMemVmjv6b9w8kQJ5niv
+sgm5/DntnT5JwjRf0bp8aZ+DpYNKDyqJXYJxxju7lghqIZTVswfHIy6vH6i
mkahe/Xia/zxbcj7t/EwV+oLNKqwLLacvAtrtMH6dSsuXayyOFBYgmWXfR/G
knvn/33lnaHXivBYO2MzxxJsCcp+PZn8l53bduEmUyEK775sKc7gID7jL59L
7q1okl6bHiPEeaMZU0zJvQG/bNLLSfy33RI++PdPgDtUV21nJhtPJ5VXx5J8
yBx6+2+eWQt2eb5QL//Bhkg2S+InsVduLzl2Rq8FKxYubTBtYSNBX22jDzmn
VZt/app8C+Y//uogX8iG98V5PgsFFLxCqnetrRBA7/R2f14MG44xCdL9xJ9b
p+de3hQmhEb8poa4Hg6ONI38e0resb/c+dm4k0JcDVeoc2VykDUy9LOd/NeL
mYelB6cL4TnY/0Hgy0F5Ub7zOnL+UvHjBz4VCeAXd0jscgQb2oNL3aOJn5JL
2hqLiP9PlgnX7frJxt6hl6++tpB4Np0qD+A2Q5PBU9XawsbrJok4d2Lf6XX5
4yF+E8pu6fT2XmXh4o5r/36/pKBk5HQ+yJQHpRJzt+dXmIhNszn5v3o5pDd3
v82rJrxpDIyZfoaFacWng0bbKFxeyxn3VJUPV0+fxiORLOTYpVp4tVK440Sd
VBnm4+LeagfjXhb61sus9yDfz0jb3tbmzkd7cuCGk3ksBCa9Xc7Kp6DYxk35
ubkRC7ISPt8WMLHK2Oa3whcK/57uN5xQ24i7SiqTdRXIaHM7vs/zIekPTxI7
NnTVI3fhpOKL/QzoaAulcn0peIaWOiUo1uN3+8wJ6+IZ2F/0o879ManHF2Kp
P8c3oOR+w/n7IwyUxfU63vxAIdG3re/R7EbU+YS2dpUxwc1jdItI/T4fFOyd
S/b5R8X3vIamsImezrkjR+y3T/0wE/vUjMJZP5R4/7Fhu/6ZU18GhRIrRSPt
szwoPki9VBnIxMhrmekGSRQ+tVpbew02wNlNa9tlGybi3kfOcbhG4nPjSoqd
VD28X7obuUUwwHj5YccBJwoKtX+9RZV1uLF8OKFxIQO/x36EKJ6h4P5az4Gt
zkWN5bi1FtsY6FqkYLngIgXVv6WffkVxcSYzS3KnOwMrjONvf/Ig9mvTg+St
uJizRvlA634G8l/GnIlLpCBjme6l09uAnWum2G62ZiLRTFZL4TLJnw0mpvcF
XMzIzuLH+zFw8f1g8hp3CgW/xY1Gt3Gh/KEjeNxuBs687494v5NCqLvgja5t
LQw9LG2lgooBu5eD5/6joHFwjlHJ/hqiC0uNMpcW49glrYXMOeR75vpHR3Kr
8KrksOzArSLMDliqP7aZQkRYQ3JmVQ0a/CPTd1oVQ3k962i9JYUbetkWgb21
eDJZFcmsYtQuMW39Z0iB+T3L9vaCWjhcvvq29kIxtI3Tdp7dRkHMXO9hVF8N
zH65jlQ5FCN/3Do/1+sU1u7jPCxdXI9h9THJskQGFu06sCnlHoWr84I/1vjW
g6tkejizhIGekL6Em34UBM/1dw0F1GOC/eoX0yoYyHNxV/UgdTrarvj9jG8T
fC43R2+1YeHSzJC2NyTPJ+7YlH2Hx0d1rrNIIGTh9LDHV12SD8lbs6U7nHmI
5WcvWObHRInq+oCUCPLuHxOUsl0akPAFOu5qTCg7/dq8bheFfbt36ju41ULM
0w33Q4qxnx+11YbkT62fIidrqAE55+yj/5D80fVom2iQSvqhsWCW+zIeSgKC
zwjdmNi9TVqugrz7x7CABxR59x2uRzPXWTLQqhLw0vUZhQ/ry9sDmhvAddUP
VrRgIrDc5h5IHPZWrDzh7FOPl8f6rzxgM2DOd+A8raJgYHnSJVC9CV8CNGvs
dVlIu3LC347U784jz89duMTHptt3p6V/YGFYajVfhvRDg58HQg3WtAADa//K
89iwU9E/JUv6jGXG8azPJgLUr4orOnWKjZDetoO6pI/dHDTtCi4QQCJucVbq
UzaMlfce6CTnD6+euZy/hg/fgP9+u8Sx4Fea9LmS1HWl0z7fDqV6/H04Y/g1
qev6cva+7U8pPP1x40+sdQMCzXyDrBcw8aynzKuDnJ8lLnW6216AYOkeIzFP
Ni6uCPO0IfaTbV+W2aYLcHDJHzfrx2zkF6Za8smc9dLgn/j9pQXKls+DFHdz
oLj1YO7K/+mEopOXos+0YE3DbbEvkzmwe6e4tI34KW+25bu0FB/lU3MmXnjI
QsCx+D1Lq0k8uUs0M1aRuMkbzF69kYXq2dtbVUIp8OZ1qnStbsBQUrPzkelM
+F4w7Y2zomCVvVi8RrwObeu0r3IqSf6XTd01dILC48epx8a+1OHrvJsm3+Yz
cGs4rsHiLoWXxUZa19zqIe91eVtHEQNNjlFhu49RRE9unXTnfB1eX5F1HD9a
DD8r6X1G3hQWtLs8HGJy8ejsWtdjvgwIHtw30bhKYagkJfz6Xy4qLjr0rAtm
YCjlV5SPEYXFtf7D09Rqwd1R3OHgVQzOlrFM3xAKPaHnOnPVG9D4Qblm2VQm
/PrMDFgkT/IqKy0qljch7I+cv6EeCyf5a86uInH+diW7Tqy0CffCTApveLGw
6uJ89V2kn591YhxK5jYitKxMettcFh4MJzd1kXge2nXzlLcWH+evSGZ0xrLQ
KBGwuzmTQiGGVq68ysM72YmC64+YoP7I/HMh9rvaMSWuXjy41t3YuOUBE/KC
SX6fSD1u7yv8jFo+jtduam4SsHC1pyeq7R0F//khvYfFGnFtkYJrCIOJ3kVz
KP1kCtoZkW/0p/NwJ0ytKfw4E+kGX05JPiB5O/D5Z2RtPX4s70xcTjHQuOZj
jzupa/PI1yXvXXko05KINfQn967nD74j/huE+PpPN+HjXNIrsS2pZN4tqH5F
faaQO+WQBWdPI/qyNDnWHcT//g0LuMTPh29lGPtZfHBWlGb18VhYPvm1kxOD
QlTUseFZfo1gmXQ26fxjkv565nMA8Z8THmIxcZSHFH3pImERE5XysvttSb0P
fixgqFpwcTNk8c8+CwZCNeIUh4h+PqGhH/g2ph4sw+M8Zy4Dj1e+akzToJCh
++dh8Ydq6AqzZidTRXh3f4+qcr4I9tlsl3/RHNzb1h2zN64AjVu6+YVZIkgf
rDqvtZEN1uOu49vsC/Aivt9K7boIK2Z8UStcWYj8h+HG8vs+o+fLxsXep0V4
EabGlWPlg23vNvagOx/vn+mGDDwQ4fyC4O79I0X46urfMfLsM9asffi+vUaE
soXC3C3qpTgUdv9rq2whfL3M5ZTeiLDg4VoMGbLx6M38EFXHAtx5wh0z+iCC
n8sW8/OGHJQu2lNX97AACxX3vpiXKELX8yV9xzyIXnknpbtargAbbU7PM6kU
Eb0b9SQ/5wuW3JZbrj2uEG3ax//+kaMQPfhj11+fKiR+U0zVcC8Ce+yPHrNZ
BLmYZ6UatmWoZ46Ki4wLkX70COcK8WeWofCIigUbSo3vYwxPFMCmaq/m2gIR
dkgUCFYIOUjsrMnPfVkAh9maG2ImUchfN2ht87ISisvW5WipF6FsfsX2HGsK
YaVKp77K1iFop6/qHm4xhrVW2sqJUahPnF36an8lHExDfIRSRRibppX0pEuE
m4FOx+KDyrFywMzu5pVCnBFXeJXJFiHPVltla0kJBJrbNVPrCqDQK2XrT+KQ
+W6SWedVJsblvN0ZOKsA/e7cZYPEnjZP9n1FABMRTm+iKuYUoPzvqZZND0Wo
ZXpeOCFRDOPydwOPkj4j9JpUjRHJh12L5q3ResZBl8KHHr34AmQIHnyPSxdB
onG6kSiChftemm/0jAowejFhNKmNxKHUOSBqsAx+OeYDj+0LcT/1ANeH2Id/
kNL/WYYXW8zuptkV4tSgrs37avK9RlmknHgpkuW3tgZOLcSslfyR43EiTMzP
aPMYY+BQjKVSz9hnzI6Pl138UQSvSmXu2mMcuP6JtroRUoB9palpzEIRDkUk
l5+eWYLut8b7LbMLcFtV6jzzrQjZEmIT7Mlc2b5434yPZwsQ4XdQ57pQBN1p
VaExr8tg4X/TiH+gEMrSRxeb21BYVW6S+km7DqmHN2mHtBfDKC5UbMVKCpva
LF8uq6yGa7Vh37aBIgzUyj+TmU10xTiTRJ+oKhj/ld/j71OECVsP7VFuEWHa
w33BMnfKMH2xp/Ums0KkBPZJMsTJ3rTeK/lkUCX+ztuQPnN+ET5asWwr1clc
U/H86BdaDS3B+7MyzUUw6JwaaEd011Vr6WsuhlzYC+wyB4juKllcwYy4RCF4
14WMLZ+48PJQnfj7MgOLFbXkpYIo7N9jsOc5qx4zXryZN+srA8z25tQ4Ys8L
OF3pWFGP8a2fmuf3MLBQIka9OZuCd7p+/KLPPCRIHjw09oKJZbmmzM1kL/Ob
kLduixkPQVMWeipeY2LY4tuX20yypygaNUeHNeJXy4Wwb+NZYDo90C4leviu
mrNRt1UzimxdAm1msiFMU7WtJ/2tUyrs/XMmH6M5XR4ZpL/NPpDnoJdCYY9W
+7ghJR58wm38Q1yYaGU+51jFkn1zVcP6R8kNmOliVrMXTIQp+6nZ5pK+nZab
EynkoXl4htuHXCa09ukvW0r67UXZkeQ/T/mQv1KkPY3Dwsh/C+UsyL0/n27V
lpvejHBxsRVbBllgPAuLLSJ+npBZevqpbTPqrERaanJsnJdPcPAj870kLTpn
s2UL8vru1l36xcbJOSmmW4k9Ye1bjxHnFvzWPT3LdyIHZygddJK5Fha2t8uH
6Arf7GarhgtsmFE3rwcQnXN/R7wfNVmA8tFQvxHSJ6bqndqYQu69d4IzTsa1
GWk9t1YnKbDRfuX08lzif9X09WtCd/Kx4NR+RS6ZF7IOhqa9ORQmiV/3+tHI
w6FZFnuvv2UiL/LerNhIsncUXdHTudgA1TfSddYaTOwMenC85C3RAzPEx60o
5eGbhnFYTiYTKjH2VyeSeKa4XZ2FZw3IWBqlELORiTLh8dh3ZL+OeDK5ZfXE
JnSouTx8v5yF8MA3Cx2In1cz78m3PWyGWGzDcpmlbCT23dhMEZ25baFhd68W
DyGFjo3a54jOHJgipelCzpkd+KF0sA4nm50o81UkD/WEM6cRvW1xb6uG2IJ6
tK5sukElkD3FJtjTmehz6cpvAmWizzXnvG+PIfr8zEdJaadNRI8dkxfNTqjB
b7foexMNizFzSbqP/1wK445HZqpXVSG9+G28blARTs9360obEyFW8u64zasr
0az/dD1rpBBGbXlJBqTuLjolTW/yL4MSf6Oj/F4yR37+jlDgiBDaYp3bxy3B
38Z/69rqC3Bk7SKVrr+kb4QkbYjqrIBJWYzVi7ZCDGQNe07oIX3vsm61yYdy
WH3zn7jvdiFiZf9k33gmwoa8T/nZR5iIvHh14bfpBWgZ+e6WQOZFSnjBk29W
ZZhTrNSkQebFx9A09VmkrovNj52dcr8a5p3msOAV4cj6mm339pI9Li14Rmxy
LdadzeJFvSzGb4cumz9k3/nu29Kq+6MWEg+cD5uxi5EsLTGsQvStdHVadNuB
BqwSip1LnU/690Hx/8yJPSoi38b4YAMsEyv1Ioju5TUHR18Pp3ANoZr5exrw
Q2WRopcSE+pih2JZJE+SXeMHJpM8UfUwPZdC8kS8k/My+gXZN+WCp0lt4EE4
baMdy5OJ5kdN5+Pek/kVmXB+mnQj1ObLLbfnMNF9c5X1AMnbpmOpi7Q0+Fh+
2Cf1WjQLWSNc7goehZmZk+/1+BG9V/1He/gI2ReKovYqkXp0uf5cMnwlqceB
/0paxrPhlCF+QJPUkblBUngUS4CE6BW2Q5FsZCxZYC9PvtfhJ5xz0GqGzoyK
sL0TiJ2rqhNH6lFJcApiZi0oEuuXyvvBxpDaF8l1xF76WnUw6lQLnje7cgwm
cXBONpw7u57CM+mhvE21QuxLD842m1OCvhUMRn0TBVsfn+Eld1qQeN3jyJu5
HIx/ekJHSPaXHZre94/1C/BYpWMu0thQ3qDi5Ejq2scxOdhCWYBiTMhVsWHD
KyFgoT+Jw0Bvzwx9Bz5i54j367xhIV1BwbLkFYWyjSMsbX8eNFenS2wIZaJT
9+T3LvK/fy2Clonbkf+V29FrTPrGZsaCT1uIP1M0/LnrMlugMxD0+I8OBzMd
luyxIvtmUj8jU99HCPsn98ab13JwU3LkdArxEzUC44zJLZBJOyieksuGgz3r
vjHx03dFYOj8lQIciJ7HVbVjo3W4aXnoLfJfvy/E/zSth+TxK00/sxl4KeA4
epE9N/Fks54D2XOVXkyxrStnIOhJgV/bUQq9eRNVpN3qMMUxP543XIyjTean
x8hc8L88d2+rNQ8DZmLqrTdInmyuTsgge8Hc+PJWGY0G3AydPFleholLhus3
rSZ7jcY0Rq/MuDrsPpkvcbu8GB8GH67Zb0YhdJ6M72hYLV6xDSO9k4px9vyh
PTZbKbCaO3jn2muwWXff8LYjxWhfPamSNYPCrc7Zvgo7q7Dq2o1vuUeK8CTb
ZO/EdhFG32p0t40nuij1bUyAI6nfqv8cjo6KEGhjHt6hVInVrSkrkwcL0eCS
3NHSLSL96KCxbG45zp0vFA+9VYjBbwWLSn+K4FNh6L3/QAXqGrvedGYWImfp
rvYnP0Rg8SWnWhpUIK7B2HFzaiGmH9zCHFxB5r77npnOZdWYpzZ6c1V/EbJU
/ot6NIuC5KyhzcPBVag0+lEt8ipCTXKe8BNI/7xst/rymxpM6Fw6yjUthk6C
c5/UKgp3+DZbXbqrcTvgqTib6OKPskERGQsofHrw161/YTW6LyVyb6cXoW+z
zR3PA2Se5inPSh+sxd7iOL+GEhJPyU25hW4UwvmSnbvBRfTPDHHGTgacjoq6
bEifyfyg/P5IUi3CO4X5718Uo7Pk5fbwQqL/xVqehjg2Qixu/JGub0wserJG
dzzJ543jf9zekclH0pd7QRpVLKhJ9qreIHmi6t3e00bypKtJfMbkCgbmGR0/
NLWdQrb2s33XlPn4nPDyjEk4Cy3hvNJ/b8h8VGtKffWGh7mGjzN9nzPxq2Rc
UATpP2eXlB7/wuFh+MklLjuDCae76koj5hTm6Fuv93hfi8O/jsqMf1OM0KGy
6+8jKCiz2FeiXRtwYvoTVqkaEz3e1ZwlbLJXNtgmxqU1InuGzsflUixY3wlo
rSH1NdL+XG7MVYCNHudiLlxi47vm9JYuUhdLv3lUddU148/pCsv+zWz8Wq6y
QZX0mXWb/nRpqDfjqnrl7/IxFkoZq/My/1dHjRx3hV/NSLL3uuVmSua40h31
7cTuXhU/7p+mAI8SEtc0kfpKjNluO0bm5ryOvkqPTc2QPat3t3sSG/zHGjUr
yfkD0WO3PRc34+zrjZfER1mYaqw7dpFFIW730vCeZ434cHLn7HwJFsSPmdn3
kvP/hU3LaqtuxodnIxKl+mzQXHea605z3WmuO811p7nuNNed5rrTXHea605z
3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3Wmu
O811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811
p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nu
NNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed
5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811//+57v8H+7fu
wg==
           "]], <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{-0.18556517769293404`, 
             1.6742378199207777`}, {-0.024791091064343934`, 
             2.0705377533946985`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {300, 300/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.006944444444444445], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {{{}, {}, 
               Annotation[{
                 Hue[0.67, 0.6, 0.6], 
                 Directive[
                  PointSize[0.006944444444444445], 
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2]], 
                 Line[CompressedData["
1:eJxdV3c81e/7JpFVn0IlDaFFk7LVpSWkUKmEkpIZFaJtFRoq2SRlR2XPOFYI
IXtzjHPMMzhGOHzfv39/55/zer+edT/3c93Xdd0SZvbnzJdxcHAMc3Fw/N//
//89NLc9qrDNktS6ZDXVZBZC2vJ51YTlrhhS4ZqAC2p3XpBGeLzrVt19T3q1
qUEyaj4B7QqSpJudUSQhqvzjDZc+g7p15/IOu3hSnGuD5e2IJFTI7mfq7HTD
wdcyG3eviUPn/ovPIlt8ITkqQx88+xULM03J0Zp3SdZZw88vWH7CMdGYFZNb
40myzVyNZewvGJiLXHc8x4PEKyzh8SknBbJiy4tHz/vhq9cvEbuqGIQ5Ffpa
l2RirsTk0eqa71h5Sc2CJzsHQmpm0yn/ZcNMci2lXjUHH3Vl0h+W50E27bW+
qX8ablOYe06mF+NI/cUvmqezIM0zMR+6JQ/icwfGxmR+YFdN+WylXBnaXRuc
7LXT8ZN9uT/l3W80zBWayOxIgqXd73ulob8hvRi8LHZ1GEo8Qo2//CmGXbLd
9dzzcah5lni4P6wIXWp5e20X0+H7RUeqcVUZVKrGDFNasmBTrrvaZbwEVK8z
Bj/OZ6Pow51zg/aleGwrPZsmm4oP+SHkDawy8M0uK712jgTGe+XdlbmlIJ1t
se9WLoIILb5Hr6ocQ2xe1U0lJdh3lfFYZKIWE2GXzn4qrsJCWWfz+7VNSJei
tsVx1WGk587QXHUj9Jk/1700r4NI28mC/WubMeEoJvJmfxM6yvSO7VloQOVk
4ffiqgYs5BxyzJZvhmNihv+6i83YdLP/tdn3Flx9r3n/uncLRB6uL15qbIGt
yHvdKqE2XDxx5PtlhVaAanC76VYLHBP6E2vl2vGs6tzO+vZGTPPPCXUWdMHy
iAHn/feN0D491Lb1UC8u8r7azZ3XDJsvK/ebHiND2trOxVCsFX0Hj+5P3EnG
t2t7Up0WWmB5al+yjkMv7Kz5jex8WzGsbcf43EbGBr2L35zvtWLbr7Lz22TI
eCn49prqZCt8bOLfxx0nQzU2t922pQXXLF1RlEmG6E+Dq6eGm5A11t1+pr8X
jx5FPFebacJ1X7mNfCK9kNy79doLt2asdQ76VnGlF3lKD54eIzXCSnGnpttv
MgIre9Bt0gDSyx2ujvl9WO4S5TVW0ISxHL8sOxUyjpAtlh1634T3rEAx69o+
rIy+aXJNqQVPtX+eMtfox8UnrZlRTk0InjkrOLVEhstxR9HuZy3QLnQ91TFG
RkLlfcbBL6146rihssSejDcnEiwVxtrw6fu6pK3nyTCVrLMuz+qAxOeGSMGb
fVC1/sAbkdUJB8c4HpOPZDSW/Df6rrgLsV+OTjQR8Qj60NeVjXfg4/YITrFn
fXCynAneqNeLgsDorxoJfUirKzbd8KgXPpP8/bLXBpA8vHFPw9teRDY/Nnav
HcCp/tQGhydkTOvl2Ym8G8BLaYNlNlq9eKnUELA+pR/CRjHGTxd6kSPGFlaz
68flql1n3qqRUT47l68bT4bJeRvdvhNkxFjM7E972IvgEE9wEudxHB4hJV7u
gol/h9u6RWLcjPx78VEblE5o5Cpn9aHlqYfmhhVdePnxBG1jQC9GAkx2yct1
4FdnZkzQYzLyxQ7z8//qAN/+srMnb5HR8l6Fa+3zdnD/d6+95Hwv7JNnG2oj
OsBU/B610b0XgmI5Ss7z3eDZwri6nN2LFD7n2vXOPbCa5PTjXdmHCI3um/ty
eyH75AhJa6YX9W3/xNoTenBU7W5eumof4qJrOQzyunH2n9V19n99WFj19Z+L
ew/MLvbxTtuRMcl3697FW90Q0Rj7/PVqH271vFk8eq8bu1UfbThRSkbW05Ir
w5Yd+C98+rO6aB+UTvpkfi1sw4jc8LKnYv3IyuPo3tfUDufto3e0tQbgf6L2
dMSybmQH1vBFJA3iTseTtwl5nUjMXKZ0MmIAPU7hTx4rdaFwBdWNd34Alxp6
AjpCO/D9xY5jZWmDUHfQV9B71o7ylBCJG2qD2KD0g1OIGF8MDLxrnj0ImtkP
ZVJ2L37QqF+14gfh9q/8aIlIH5rv6AunvhoE+WzFXcH7fbi5ZPcvQ3YQHTmP
fW886kPe3ekEkYFBeHNzjWb6kHHUvXFbb9UAfiyteVHpQYaEnMT2xqMDmBl2
1jTqJuO0+FPV4xb9uFRTwH/weD+ki/j1ym/34TPH7serkvth1fLwVePaPiBQ
sWduXz9O9Xmvt+boR6juGtHNmv2QbzD9o3a4D8/i79hLKg2gSfLwKvcjfTBp
aBlUkqVgO0lga/IZMuhWdQN9HVTc3/zs5J43fYjWH9KbSqNgo7yqm6pEP67q
c9hQxwcxRZIsyPpEnD/0/eVn40GYHNktue9TP0yMqeW01RSsbExw4Ertx4yW
nVdq+CDqbBJathBxDS86vFXKG4Q9KWx2eR8Z3OQPzhm3BzFRY2B0g6sPs0wP
1as2AxgY+SYnI9+DGgElpwO8FKSf683P+tEJ9cdKnoViFASIrzvmeLUTe6dH
2I3EeJCN4G/eX+0QSM1creBKwaWPGtUllu249WrXlxwLKkwt6jfdO9eCfb2n
MqdOUCDjplFfF9oMDMttetYxAOar2SvCVgQPP+Ko14mn4PJrL6GC5A6kfChR
DHaloqVStZBV3ok8nm/bimOo0Jt+nGrQ0QFdqw0fb7+j4p8B446FKoHD/Bpd
w1QqHnw7f+pGYiuOL6U33S6iIv36+Y0v17ai8eP70HW7hxDuID9yTbsdoyYn
x6w2DUH25R+NRzUdCBCIiRytpECZS+Ymz/1OHE0y3PZgMwWF5bnOSwE9YEal
vnzkOYiexTSKpVcnVIMdJUzqBnBalG5/wY3AtcOV35sNBnF3/QC7+0AXvlgG
Xr0RQwFfyc3uP+hA2c7qbAexIUSdepLat6sNtMufuJLSh6EXwPMmybUNORVv
hQ/dHMG5nsf+94xbUfr1acEfvmG4PLez6KC3gBwnkl33YwRcj5U8TAj9MK+e
Xny7bARhHxTershsxuiGeUeq+yhmFgq6rzq1Y80iTaIhehTlzSfPDK1swyvB
LqqOxigU7NzXe0l3YLv9nW9TCaN4lCDkL0duh6z+SmXhh2PAnjrXT05tSH1z
IigucwwPWYFXWm+1IaKc66v6hjHMdF2I5hFph2nFfqdqh3FIwI5UpdsOUZct
u6W8RhHUPrbXVLgVHcINf9jqYyhKTNFXudoMe4eR2uWhYzgyeL1f610L/ro4
cl02HEeAhnfm7hPNEHT7qDN4YQwPfgXsVchvxapNzG0CGWOQ3OP6X1BhE2LP
5f50ezgKrejDhZqED3Dg3dgVPzmK47fO6CvF1EPBhhR43WQEoZMfU/cm1iPz
cEEQyWoY5rdUKWrZjXAxT0raOjWMoQ/V6xZYf9Hs8yM59OAw3kw07ZAUrkNA
x/GZjLYh+PdxLokEVWOFROOzvLohXJbfN1TD9QfrvMnTkVojeKegIrj8ZAXk
5CL+nVUdxolhh1/mp6qRLKPHJU0fQdPF3wmMo1VYkjt8cr3QKK6tu7zc07MK
VcVSe6wdx3CffqqMi7sazxjhPwUjRgn+arriKlCJFF/dhduZo7g4E/ndjK8O
e5VzonnEx7AL0l4GMX9Atg2plKePonFj2lmJK1VoojgtOJaPQOtzdIuWXzlU
q7rvVt4fxfkaj4fFob+gXT17YkR1FLSrmNijWgpRCn/oF9oIrEVHToYcKkXw
rYvPogRG0LCZcu2BXhlMXlxdA9MhMDusV1v2lmFAud297uQQbjaFXL647hdy
n0heSNUagp8m5WPT7hI88Y/QX3xOwT7epF+KU5lIyD9w89c3Cq5oDBRrnkuF
srpvJWMVFXbjMk98t2Tg1D82R+cDKspOLjsjRU3DLfXvJEEeCirlnxilLWTg
9/Szc49rqEhi6Znts86GB0mm4lAzFZOdNaVFjmnwPf8hqbRlCCNb674c5smD
4mXN0DmnIQSb+s8eME3F7kYjfoGQYRibbVgxMpKM5N9POzgOD6FRo1PlNV80
OKocbHKJ+603UPQUoSZhUDx3y+b0IfCM3/XMNszEhh+67M9ixPtJmmWvjyPB
3c/V13DvMFY7zIbFpmVDStxKcOc5Kv64//zp6fgDRTEfVSwwhKRr05Ixt5NQ
Zr7Wz/DrEFT699kVJWbgSdzXPavVh9H7JD9jqCQHZzN4gz22jkCh8dYVqlgB
DkXpTppLj+B1NEs9Q5CEWc1s2Z/fhuBdIr1YYlwC7oDWxW3E/X0+OI+JluVC
Qj2nYkMYBSP6gb07JDIxtPK3w/5vVIzF6Q5VpGbAObNTns+GipeivHbXjydj
X8C4aIPEEOqX/aYMTSUh7rWtVr4qFbr/bcif7I7Br2n3HcLBVMitWHdp+4fP
iPTY9qz6zjDeec1e+v3WDMEfL9TtyKdC8lWO/87FMDy0KpJJyhyCrdb1ZzH3
P8NHP7dwxY0hKMpWiDA/xeGoSNadVCKflNn8qxYLWVh9Uu1M0JdhOL6tiUzZ
WITy3cXbqy8Pw93jxPrqPySIvfw74MoYQlnx1p3GSXngYxr3VwYMY1Tcb9Qh
IwMc148WXFEYwTaJ3y13+/JRGclDsnAege7uCYuk8QJQijmHZYn66gmIi3/V
8RNKEonL9axH0WyzXPSMdCyKvQz5NuiPQ5Da94ae/gJQelrh83IM66yvTn9P
CIbhxdLNcZ9GYVAWe5b3ZjBWL6vaVfRsFNnbjj0/k+0Oh8djbQmGBB8+tbvh
1pmMOwdXzX5cNYaog81lG0RSoWFjNSP4exhSJP+CotYf8DSSEjzoOAIX5X6z
BcMY6B7K398gPwyj05/W8EiEIPKoBuluH4GHPw9/L49ygwX/eK3g9AiM0w0+
2/LE4YzLmDOZ4J9XsgmT5kGJKPhTx5ZgUFCy93Zxe3wK4VdnsyR3UtBXzTXq
N/ENiRfHfigmDkDpxzq5b8IZuOG36bLPikFwqB16IH+DBBEG/2X1tkHIGBmf
319P4OfNqu+twRR86LW6fGvhJ/b+/Bb3XILQ0/QwtbtSqaAocDfVTQ+h8Gx6
bZJ+OiJVRbg826hIs3vo9sk2GRSuOVNXHkJvK06KZdZ/R2xtkHOvGaGvC55X
ZZdnY+bZaMD7VkLvBt9oePTkQvOCcImuDwUGO37v0n5eBHpIhVW1zCBYq5pJ
U2qF8KZo+pmM94PnZL105I1ySOc2dMxkEz5HXOmsz/4KzPTaKXILE/6lXteW
5VWN47x5gc//UWCIsLsPGVX4T/XEPfsBAp+eK3PeqP5GGonrwLEfVASNhNwp
LyiHwhp+ocwrFITuCRfa+bsMasq1owFHKGhCdRvr6S+sSqHuOPaQCikDm8hI
k3I41zdY8jsOYRe7aHFRqgwdHzdtKXcfguh+90O9FpXIYb3SrVk7hLQGpC4Q
/Frx4+/hBAcqfqkGfefQKMLB3OFTKRwEP3SdftG6uhBtmbIrvekUdDj7LYnw
FKJRaCI5n/B3XGpVeb5SxUh9ZNhaQ/iPdyZTXEv7s3HpSaXgEFFv0XzrPPav
K8KqbLO68BQKUsTW9ThkJuNmPtlIk0lB3ZjMwcT+DMQ7rpHNLqVizb3bJnE3
c3Akx2YbRxAVI8I2CovvfqDs9KkIDQ0qlOgfKucavkJK4NNMwm0KCnwO8xTJ
JsNb68rFbdYUTMiR9E5/jwOXSOsak3EKIq0pGz1/OkF+m3lRoA4FWkravkKV
iVi798/J5RlUfL1zPKOaPxLHNkGkyGMYpdviyTtGHqGW9XNufPkIeBgpMSZ7
I3A9fzj02a0RcAwIGqeOuqOZ0eyb0TWEde+2fza7ZA2jntRvPWwqOKLcnYfL
Zo8c1DyxqvY2Fac849TKzr0jPcwVTF3fOgStP02Sjc4xpFW19wf4IocxK+7N
Hr/wmiRxntp47dEwUp/aWVHV/Eku62vrZetGoGdQpTU65kNSHfS/uL11GCoV
AX1+bwNIrCI/p9Zbw3Ddz2MgVZlIGg3d1DybTOhN/ymx/tRA0rldt2mvTQbh
t/uXFffSV9K0tCLfLsIvbxd7+VQESaR7YUajmglE/XXxm2wLTiEZrezYuy2F
iu9PPJKWb4ggRRhItRyOoyK233mPfXIiKVVt0I1WQQX5dVgr+VgKSfueqX5r
EoXo+w08uDoTSPNSobR8PQrUM4vS3ubkke6Q+/vv1Q6Ceu15hoF7LklDPNhX
YG4QLbd59BvdfpKa7j5jd2pTkXPo2/OXc9mk+eoVMudzBtFnnOW8LuIHSd2F
w0bdnwLPkeTSZQZBSB6XryNbDKIihhccf61JOxxaQq5UDCLi7YfZf3qxWJBV
ICfaDYJ+3p+LjysBLJ0x/QtrCTxkyMhY2qZgjeTfhkLfQZyNGnN6zhMPp+2r
3a5+oED6w34/icOxuMFzYPHBAQoewZg/fTIafe4aze/6KeBd89v7a3US3guU
SvKJUfHibGrjnb50ZMtEXT7OQYG+QndTwN5UFOV/bhF+OIjlLQ/PiPxMgf5g
zXX1/wZhnsPzaU33D9yhbgj29urHumtPbcQPxMPfb2eseUI/+o2G9qrYpSKX
LESieQ+CMbrRvXh1OLjCJxdSDhL1TE1qfHI9EOzXfzcUX6Ri12StAeuPEylQ
oGa8ZuMQMkpcFizO3Cap6iVQdYl6aa0/0lei/hnbtltNhVkNoZfmvXbyfQpy
DGMcv/kMo8x93DjzwVcU9AQ/mlMewXodnjOzESQwTx0prCX8iKnhssibj3JA
0qZraDsMg6xFu2D7Kx/u9Td6TbyHcVLG6fjZ0GwMmzQdtDw+hOK1vv8JPM+D
zw7DJG4C31OntPZnJ+RA11In3CuCCmEOtZII6zh0H0lXqH4yhNZ9Tbp9Qu9w
+ZOiCztiCJsenj+srhKLA6f8impkh2Fh1fleSSgdn+kUxtFogk/E+il94jko
EzORvLZlGDueqkQ+103C/ttNKYrXRuE/WjD2pC0Kwu/c3W7rjePhe44wjtW+
MPDjvFtUPYZcy9w23smPOPvVs0q8itC/OqXuNrIfDnfrU4O6xuH81MpN9F86
tolZzhrfo8NgIU0u9WsuBDkKHLWuM6DyLfzDY/0f0L/1Sn3AiIkAQzXB6ZsZ
MAuvKvuezMTla87UGqcE4p5rRBb3MBG6fI/QKsck6PCtsxefZuBmgcJSr/Mr
LM/04G7VZGJxWj5r3+E00thQuM4uBgPv3JqNAvOSSf/G0zO2rmciX3bbSO5I
JKl4j4hrjwITjPvxtxI9vpCMYsS2nJVkwlXoibB+axBJW96HO7aUgbz118w4
1kSSCru8uyuiGIgUOr3q+MATEt/FGM7rjgwwJlatWi2rSnoR56D4gIOJU9Er
ZkgZwSCjumnoBAM9kx947yvF4LOHsdUANx1Jbywyw53S0J+wixaVN446O03E
haThyF3GyN/CMdjk7CtkUnOQ8eVIh7TFGErr3flGWpMRWLHjjdryMVR7Vk4Z
O72DeKm6yD2/MQzQgzg5yyMwsinkwYkt47g+4HCL2zsDEVXer3Tax5B5glOW
QyAFu+3STrO30+HeqtsRkxIJneh6qi2Djq1m7Y8kn1vjG4f1kkkDHXU6tOcc
sp/gbdOy6OJGx/IdOxM57e7hU+3pms5FGs4qZe268OozyT2Q++Tn63Tc6eJ8
kPb1DemgDKn1wGU6rnCGjO1mfoF4xoVHIg9o+K5X993oawh25sRJCFfREGjS
9jj2dxgCX3u+O+VKQ6RoaPK4lRnp0JoNxdc1achN7YngcXdG78kA0Q0rxzF0
xS/ly4Q9aU3Wy78PV49DrO772rTjfnjSfn2EPkfDld5W7QOtmZCL1vapnB7H
+NWedVEKiUispyus46DjruhEbdm1FNzezeQR+k6Db+3mzXEr86BSWGd3j01D
wc6I4OQVuegRl3N9XESHhWR71prLRTjzRmOlCScD89tXi+2Zy4cHy+fnoh4d
qXnyz/+lFuF8WpSxTDMDMcc+Kkl8LcYXdz6fp2MMrBRcrSYnXQJHumWqQg0T
KUUbe80nKqC9QV2rbPsEKvy8tnyXrcKJUgG+T61MmBdrszjD6pBxfqHjfQYx
P2nVjlTxWmippBs9uD+Be9mrXdaR/+Ck5srY8l0TKGgW5Iy4WgvqyIsziaET
+CK/xzddqAoz52WFTs9N4PDqi5z73OrAauPbvmv5BP5ZfYy4Z1sP790eoc63
mLi1662pXv1ftF9aHXNzORNbyVUrxTf/QfwyOeuaWgbsJjUuxN6qgSPZVInl
zsAj1/n/ljtUY9XL44adt+n4YnJgIGC4Dmv0uYr2iTCQcjRXXmRnI+ofriqo
VKaDFldPyon6i2KH0vVHvej473Ud94aCOsy/efv+x2E6VHuXztpH1UHc1ee9
ZNU49B/uZ4aF1oNxYCAxZWwUPkEZdfar/+ISt39YtdAY1ILV4bRQCa4A/1si
7uMIff7oz6pz1SAvJZw48mIcIegU92r4g2/LvRIrZ8bBo7C9Js2qFoOZe/a9
TqFh5N/s39WyNVh6VXTyKIFHs2fyrP1axPoTh4wbb9IQXLEphedkHdzoZ7Ld
GumIyKMc4lCqR5Kpv26bOB1qbRXGD7j/oqrXcM3RSzTQfja561VUgKT2uGLf
EzpKPwy8b88qRXxVep+UHMFHx3+toGUXYov7ytfvkon99vTP89rkQeB+Sc7x
LwzY53CImBql4ahvVhGHHwPGB0jKvkcSYVGYOyLSysCK1rbe9d/zCV6mrJL1
YWDz7xftvrr5WCli8l/1egbGBH6UlfgUYFdJdXxwLgM/ftAFjbPzEW6n+NuG
WE9OoiVXxyRi0xbORxuT6BinMW4fup0FZZ/ba8/so6Psnrekckoq7gpkhT1I
oEFGMvX1SdWPeH59rmKY4JutaUFGB784If71yNsG1VHws1/+F7TGAeVdCi+K
748R/Ujv06VPQVBJl49YITIOHfNbVVZuCeCeWxLgJ/ShUbSzKbwzApLRrVsC
9tHQ+DXxQXVEFKkifNnm35U0uDLJVMmMA6RZ77Yz3a3jCLfwKXtY60963jtl
nao/hp2WvtbORzNIE4LDfLcxjmtvvj4fvpVFOq0kB7tGGl6ntX34ubKYpLGu
Y88ZThoWXHy2C5WTSKkdqrzSCuP4HfzSP5+7mJTMM6pWGzqOw3d6cvT/KyKt
FvrVfHBiFBbFe+S9436SamquPz7tPIrZcm75c1Z5pAhGQHt32ChKas/ttMz7
SXpFt7dXmBvHqdtW1cpWiaSjsRI8gUT8xa9X/FTQyCFx/LSVNg+lQ9rcwXMH
bz5pU6N6+nFzBjoj42pe2eeSvnz6+C77Nw38vWK7dvzJIn3cf/Zmffw4VCZE
7XeNZZLyivVylmfRUM47qzdxo5Q0/WGQ5a9CR+afpbc4/YvUweO7R2AdHd/a
8rxDCstJjoYCtrdej6Pyketlyb2lJKH0wy03XcdwlSZxf3S0hHRrue2bercx
vJy6KrlTs5gkvbPDMfzIKJLXOhnPm6WQLIp83827jkDTYofyoT1vSdVBlXrd
acOwb83YHbrJj9Soqiz4K2kYAsGp3v+GAnAuwfhQ484RuP976lXC+wwcnL77
s3RHQH24TFvZ8jVJWembt9bjYSTLtfPZiL3DZOetf/Qfw7D8ciIjYb8nyU/z
0cXZ5mHE83TZ6r0Px9ehu5pnvIZwOcxL8eZ3R9Kr+27tYSlD+J4533q51wG3
U3RPc0kO4THnC59L97/AtONayEDUECQiL8sUSaVBu+OZjtNxKvZsXX51fDgT
P6g3/fr/DUCxL3Ptc5VkuLy6eUqI8IOa5nSD2drv4DwY3Z7ePohStkasnagr
piJerizsHMCe+z1rTpx0hUsh98vN6wbhfYzdNL06EE2eVxMkLAl/6cv3jKv2
GYnscDj9CT8FNlwzZX37HpAO+YVJ6jwYQMH8vS+Hyl6RnoTEnGt06kfEt0fc
tCMfScqkrAN3evtwzNNDS/KnG8lgww3vzJw+bNHZ4WA8m0iqUMhKikgiQ0PV
nlF/OIZEvf+81/4yGY5h5/60CqSSUuXSNeu/dENdc82FrXrRJB+v/F/WBl1Q
/769g7PkDMnD0Kf99oFeNIfcEjPo9INhtu2EtEQHtt4pYXZtjIOURgVzzWQ7
FLav5xMRjiVc9hWN9wPduMPzzPp7dBhpQ+Heev1vnRC9ZObI+86SlNmjlskl
04tu2XPyVnXWJJNHtwfoI93gpcleFfoQQfozepdLsLIb6R6vdO+uDCUtJWr/
UlnTgz3rr+kHn/FECSXWzV24F40ZK//5vrpLUv8U1+4r1guRLUEDL4QiSR6L
jF0yZ3pwJSFgzZPj0aSpJe2NnN970H73pVYARwppaq06y5LWifqczVXbd0SR
tkdKFf1X3Ime6ijH1ZwBJCGrx+JnXndi79SQ27EDwchstI2O8SVjlbFHneKc
O6lSekJnq1sPHMVyu37bhZCSJoRuJF/uwiOHygE3u3jS9Qt26XJ2Pdhl2BX2
MN2VVOzQ8ukdBxnqEkFvJ4xiST5P13u7ZffCLT0tJuFYPMlxroue+ZgM+uC5
SC+NcNKxQRsfIe9eJBtI9fs+vkbaya0s/8mlF7H3uNbuV05CYZUKk3KwB/aa
4t28vh8xUqZbcSW9GxFW592fxiej6KVzx2m+bpytkT59kz8ZB+/P+ki4duKN
xrTCg4/xCN12NCy4oAc6grtlxGqSMXth8NPVF2Qsuv3lDO5Ig4je7c7dp/oQ
tWC6czEuBdup2mmXeHtxpO5lRtLJZCy2Hr0cS+sFh6pc+vnbMSgWX37+zp9e
7N64XKouLQYHH4fNCq4h483W9IeC1cHI/W0ka3iKDM5g94UbH9MwwX/BQmUr
GXd6pvdVq8ai0sWOdqasDzyHxLU9/vuOyUuaw4f7yfA3+HvCMOonQjU5aJu2
9ePknzqd8b2lUN1tZ2/4qx/Wg+nsPI1SMKJZwV7cA9jJMv9+amshfG6t5kwT
GUBpd92p0OdpCP6WKBq3ehDfL2x9VPouD9Wa+bYOywaRtJFKl/5QhDtVX6OM
4wbxtHJr4/biElQXFOht/jyIq8zf1onLKtHV9V24dtMg3D2Vpje9KsNmh/E7
/YuDCPRaufl1eCnuRJ60VvlGQXV291uZ94XwT5S3nRYehKzyXtF5rUzY9zl+
qNo+gPpxr+ZNM6m4vKvGWcmnH/uW9XjfuFWI1hUBRUE7+mDgazG8t7QCUz7r
t29q7UNAnPOxc2YVaCorypnz7oNns9FJRk8p1k3U7KBOkOFT90Tr9J402Ilc
iyz070cVp+rvc82JEA/KnZIY7cdOruPtjpNfkfwpQMomeQC2j7hDOH5kQe/X
Qs+biAEc1TcqnN9eiMum5CvuHwdhIl2onxRaiEtb9UPWW1Mw91HK7ZVXBjYM
Oz7Pkh3EIdGSyivbUrE7kp4rdnsQIanv/Avux8P6nZpE3dggdAQSeQ3+5MH3
YFCcshcFkWcqWRG8PzFULj30qGQQygJGvaTJdJxo+3LtJ4WKyPmHdYIfS3CG
/HTCNY6KV5vJ6zTpv+FAkiNZtFMhOxiY1GpZjhP/5PZZ8lFxyv/sRnPivbeW
TiZ4T1LwUjy8Kc/iF8QFd+kV3iT69zv+8hENxZDSblqx1pEKj8TF8P79pSie
LT9Ky6dC24o2cdaqGOL/0gxWGlGR9O9H5of5UnR5pLwTX0ZBWajbqZ33KtDH
45L16woVm0xs/NU469BsbjlTbzOEY4EppnrafyHHOH8t7xQVLvWGqeav6lCX
/1PK1HoIBVOmK1leZWg59uP+a08qcks5tELNy5CY/v5mQDkVtak/XNbQKsCf
zry8meife49v/yRRRJyvdtbrlMQQvENm94jRf2EVTXFJnVh/pFNkihZQgozo
M2HvrgzCTIQplxldgvqvDQ8maAPQPCxncedFOSgUZqReRz8y2rVeXBWuwGhv
UCSfwAC2HIxtXHerGlsKz7Ljfg1CqMQtvF7oL+aMvJSqMyiQt86Uijz8FyGh
a3MHVKjo3K/MsT29Fs2dlmIbu4YQufrsBbGkv3joKvaf5n9DSDCZqbLZ+xcU
vSxl4TQqMnjZOk9Zf3G8KSU83IcK23dXNvUua0LXQMauue9UNP/HpfGwvhY5
qx27N++joFB0lu/F1jpU9YWfFpWl4Ofdtfx+jFooeczULDoSeOEOl/fyqAPH
MneypRUFvlpZd//TqkOySUQy/2UKAtvLV+nZVMBaKvvt7G8qdDh6r1ifqcNJ
5gXd/DYq6k7c0nA9XwUbvkQFuxYqJJ97u+4XKAd3scSyJc0hKNWld2ZbNKB0
xP3+1QdDGNu1YsBWqh7rgwa/7WQT8aaqCKaINiD5hKumfeEQti1zCt7/rB4J
H/YFmLwZRqx8/dQjZgManZJa8wn/oXP6Y35hbQtsC27VbKwYhpCGYjbn8zb0
Jfe90iL869kh3scFm9rQq0Lz/jk1js8GjQdC13XAOEHguVPjONTjfxy7/qEd
jy05xs3fj2NB/GCrAHrQcb2BOuhKx/09imeveRK69e1LFZppABrlt5h3YEQv
ZxVpgYbTr3mWbXNuh2XYGb48YzqErSrnVqV1IMaZT9VyDR0V0UPdD1pbiTrO
8Hk4Oo5lzE9RYa/bMbA8ZmFz2Dh23PzPP5CI992GQw+eWY3juJlyD6OrC0od
9roCS0S/wRd30I7cDQvL1stVsjSc95W4S3clfEJkXoxg4xiMriyfay3uBcPG
5vJczDj8LOLM/tJ6wC0xo/v8Pg0K0h6Lm7h7sM+ZS6jEig4hqnnGlFAvLM9F
uR65yoBriIjyXsUuOHmu+30+lAE3E7H1F0vaEftkxNA8g4GTRvTojVkdaO75
UR4szMSeB5GL4l86EL1BsUwTTFhQ7NdrC3dCQ6bD5NwCE/ZZuzap1LVjTc/1
ytF2JoQ3rsz5k9aFhD3dQXP+E+jdp+D32b4LN3iOHeV3msDR25uY9z924XuM
5eFguUlID9/3lMzohkqnWd77zEno6So4HtTugqqX0GRtEAtPlt6nXFXqwkNh
Sj5SWeiZnO8N9ewEjJ6KtzaxYHHLX+jA0Q6El5vFmW9mwdMn/7V8VQ+EQnJP
tHZNou1Si9/7yk5MyqvkeFqyMMQcUmqL7oXJpZzr2sMslEd2tmU0kZGXfzHZ
25kFoQ5qg74iGQqjpvf23mFBOqqEsVGfjJIoTvXCoywkkMvE3Oi9KPkv6oqI
zCQ6WFeEX30kw/pC44KdwCRW7eX33CrRj8PvRc1HSydR8OVLs28WGbk84Xtj
N7AwVXzCJc+0D9HdNgY6K1ngsLit97ewD39sz9Y92DyJoPVOVuk2/TCWOJE2
ozKJ2Xt+3A+UyVh2Q7hvhdokKpTWeoq+IuNweFWa3LNJJLL9Dga69kF2k0u+
8z4WniqO5jJk+6HpP2ycfJCFuYkbax1sB6D68STH3rRJTATPJGx9OYAZnQEb
HSJ+3oYnjmfW94N3hTfn0V2T+Pn4iWaiYx+mtLIXOc0ncbWtYf10VD80Qmpe
7L87iaz0HaVJrv0wNDMpVmFO4M/R9VdJfoOIZPqcrp6eQJjHv7EmwUHsywqK
P39yAoXTWm8+7hvEuUodo1chEyie/7pMrZ6C+2Yb/NpoTHxY9JgZoFPAaxqr
tigwgc3zZ1dJLlDx9b5ARenqCRzIrJqp6SV0Sjzx9ob1Ezh20GC3ZBEFZ4vv
5OsJEfl4LSr80WII16s4x2vyJ6Fb1PB8QGAY27b4Z1BXEXgxYr35T3kYBW+a
rpnpT6KTzGeopzqGf88OC1zwngBvn1icVsMYBuufMJvsiP2Nvjj4+RB1U3qR
/cRqEklzfRrlajSY3OCMt/s4gVVnF47I3KOBMZ2kH+o4iXvthyjKEuMI/Dm4
Jf7wJK7nTcUxksdwvmSefjd/Asu3cI0U3hzHLd7PU7ScCUg4iagcpI1C0SHx
W99loh72CvzZ9mUMIxlLHf+lTeD0eoe2xwbjiKh4JTpBvH/2vVH5+TAa6iZ3
vAgRmQSPa6LtjqpxJBxJmT4wNgnHMcNIOScaRM0SQ6f3sNBVFa6DCBq0N6Wv
1y9gIbB7alrwxDi8lc5YflIi8HArWMgwYwSJy3lTErVZ2NCgbeBnOIrnu3/u
lBZnQVv8QMY1l3FIL5+1uizCwp9mr5lz4ePwFNR4+jRmEqcFb4kpJo3B/3LG
y4/SkxAcSNsbsXkcSgufuFzfTaBAKk0/XXYMxfKGJX83TsBKTnPtIbkxmHJa
/TGZnEDjy9NSPNbjWBoW5swdmsBhB5Wn2fZjoMu+9VIl8DP7w+/F9bhxHHmy
yVbpwCRCxGp/xAjTYKGi8faD3yTeaA1+dh6iYWLx277zeSwsnY2Qfn+IBqX0
a6+mCD4o9hE4rHmeBuMDMR+OPJnCUP+Wj0o8dLhyCJINH0/jmuu5t1KXaAgY
m/EYNpvGvjjc8m2g4VGesg+1ehqx8x0SQgXjiN1rZrt8+ww64he5ruaNo6S9
LirQeQbJ8q98Koh8M0Zn+e1TZhAi8aS099Q4FF46ejjTZlDFb7aiQnYcRqvz
GDs6ZmAb7xqo8Ivo0x+dT6ER85sUl97vmRvDXrNzlUztGWiyinjGLcYxufK/
wbzCGQQM/d0kH0mDx820rImAGRzZ9ubwNwsi3vFtwulmsygIucsqzifw8dQ/
30N+FhbnH5hs6ByHGvvswO7qGfz9xfdFyZ0O34Ut1fuGZkDurRTatJyG6Abp
BWUpIp67RkXmo2OYLDq1hz9vGpwF2hs4VxC6mLbzzGjhNCJ973Stjx1H3ZP7
jgI501hJicOV28T+v1vyhCKnwaILVVe+JeonLyohtXwKheXPH3co06Cxf2x9
yP4ZjFb3pyz9piEx3G9b6IEZ3LtTrKpqy4CgWrhd79IMVAqiAn8LMFHR9WRa
UXIWbxyfCdgpM5CTtNXKfPUs3BwNVYO/MRDwUfFR+Y5ZlJquqtl0iYFfLhFj
6w/9g/fepbcHKhnwXhP2Wu3zPxxNvnu+oI4BmlLJUT/DOZzxqbF7ID0Bf/G9
Mgrb51FsQRvJGmQi2siVunfTAiYhxzqsPYF71cvsD+9dAOvN03Yvoq46bhWI
Fk7Nw8ovXr/o6AQOygYXnuqahyE1dccx7glUdfZ7hH6Zx9U8IeN6Hib89pfV
BiTNI8tne9f+ICYKa236DdwWEF7V1/LtAxPP+hwu35NawDvr6AKdzUxImiea
vdWfx9Ot+ptN3Rm4U5HBtvs6j46NUksVR5i4ftJXwf/GPAb3nXm59xET3+J/
d+0/Oo8hH92nZtNMSJkvF6N5zWMukCnvEsKEz76gCqdj8/C4GNt8yo2J98Vf
+Ks3zcP6tff1uNgJPP4lJR4oOI9rmz3+k904CZX6gJLfV+axbrMMxXRpAtsT
rvDbG8/DwTb/Kst0Elyh7KMpH+ZwtDE6VPLoJLzbGOHba+ag9WjdEMexSWju
CdRhr5yHZ5Lv3ld7CZ673/56BxHP6hslVvvlJxHAFfK1kNjvfd32zHc6xPda
/jrILuDYAdvXai8ncEEnin58xQKuyusPyt2YQH24QM8poQXYR7fcSFabwMMb
PeoV2xfAcNj6UMqUiVTyqWeRagtoTzxSKdPCwBnFwx7epvNYVfQ2N7+IgdUq
VzJXuMyjbaXnedYB4v6VEw8rYubxjc663RXAxNcf27/6YAG5Q7dexCsxMSP4
aRudh3j/8VZqkBUTc+7Os9WPFrA6s8DwTzQTR957N8/8W4AgX1OIgNAE9juq
ino9Y0Mz93yaeTYTVwqvhuYsY2NEUTHDOHcCW7KHTauHF7BmwyLrMscEGpQ2
8vxJW4DSicbBzdQJLLKsCqybF3BiRYvstx2TyNHxpRSdYWOKbkU1JHTr5U5X
2Zr9bLQHFOUHMiYgraMzp1PBhrKek8P74QmYrnRkzTDZEJUWTOq5OwF1W5f8
1SVsPJLT5BO8OQFlOdufZhfZoHCk8HoGT2CKu1ly8dMCdlANVoQemwDbZ6U5
n/sC3nZUbft7YQK5Lu/OxzuzIS6zdfdpH0Kn79i6HX/PxsPRuowgpQlI8bU7
P5pig/cJj1CgxAQyDs7FbJFfxLPVHyOUCplYWjv9SllqEdv6HNR2FjHxc7Dx
mbEAMf5kVjLRi4l7IdMhQRsWIXXRNJBF6La1wKo6ph8bHU6hj24XMPFR9YXz
oUU2Xiy+Kgr5w0S9q7/Ij82LeGMiaf58ioG6RXO7v66LYJ/oaVcQY8JJ/7a4
S+YibmjkvAzYy8C9yMa/MfxL6NwYrv58IxPtS5JX1T4u4mXiynvzNkwcDJ9M
tr2xiOPPn0nzdjKR1S5y1uzNIoqu0dTa70zgfPHJ3rzARXQev/5VhKjvC98k
L4kx2JBc9rnd7RoTXCc9uFidbCwO0qSniHicrKVdfrQT7223PvINgZdozef7
Hguy0RmfRJp/zYT10YDotT8XMBL77JH1OiYyNs8OvnnAho1aRAinHAOpnKeU
z31jI6mEe7yJQseDB2kyI48XcUqksn+5CQPdz344cxH53/zfuowYKgMLeQeE
vr9gw0HUNL9fngFbG9U6GyKfMd3y6++8JPDe718rGcjGSn/RkckQgh91/l5Z
1c2G6fVV3G8jGVAN+GAUuIWN1wkn6E9jGCh+LTum1riA+89/CcSdZkDB2fik
3boFuJAu6ZOJPsBji9yKU1cXYKOudmC/LR0piSe416kvILPtPS1KjA5Z32le
O8oCPqVw29ouo0NX//nbTAKPOeSutsR6Oljxfb85Uoh8/PG4/EKXjnGnb0N9
lxbQNmtWIdFPg569guLsiQVc0lC188qmYUtWZceFinnUZupyrCL6IuW+xKCj
M/Mov+b/ypTogzZeKKZ1MRZAPmrie/XtODZfFH8huZmNwd8uecouNNi4nd2k
k8OG1PYrvyIv0uHyI97wx9VF8G223CHOpoO6ofqUuMIiflbu6nqvw4ASWdzo
US8bEpSwwUp/BsZDthrnnVqEW69qkn8YA7ofZDyXcS0iVK4x7tQKJgLOG+zM
mmWD67V8mJkUE8tHNRNWvl7EqJxeluw4E3ly9p+mc9ngO3mFU5/ocwRnTyRs
JfLt1ict6PaVCb5Y34s6bCJ/H/ZMbCb44+kzA9ETRH2H3w5fJUxlolz4bFw5
kc/1Zdwxf5lM9EnISCg5scHojxkIe0j4vlW9izfuE/X32HjpidwExCx3mN3O
X8BBpfsejsYEX79VP5R+hY31Bv0Pvr6ZwFe3/B9cr9nwylAoeET41g2cenXr
q9kw5OO8k/rfBM6+fvfjnwsbgSoXOyOfMwmf/pHPp3cB258uOJ8i9FKwY6gj
T5sY57jg00bgx2fg45qMQiL+ca+o9nMMHF+zT7fzCButZhd1pnWZeDitYhlk
RNTH2uMWap5MbFdJLQ8WW8Svv4/D7xN6rekp0d7VzMZVCU9hvlwG7CVFVb40
LeLsBys+nzsMrGJ2Nymv4VAfHQ7mngUDvqMXm6SkONQPhe9S+Tw5DreSuZ+2
dznUXwhLq0e3j+NixpLo/Xcc6u4tjQVhhD+/xGXqsuYKh7oKTxfFP3scG/rH
vvT1LqHNZErcwH4cD2xlo4IlOdR3DX9o+gsatO5PrE9dy6G+5dklT70gGnoe
7nhyVIVDXUZqwvPYNhqkBvUPYmwJ7erNBdmEX97jxb8sZt0S0iKk5Yov0PH9
0JfA5KIlVOitID8PoePe24068xIc6q+NzmdQx+mQjFTcQV/Jof7BLe6B1Swd
b20+SpSrL6GXJd91r5cGfVPxR3+NFjFwp/r+rBsdpksXtmieWwIl8bhToBMd
2fVGQ/lfljD5LVFxroWO5PUdNzcv41CvupLxLXmegbsbjP/6KXOoH7gma9kT
wYBp2ufuUSUOdUqb1r4hPeL9RwmvYcihHv7GS1lmzSTCtng8mV7NoR758rxI
/vJJSHQsBaju5lDX2LjxcYHkJPyG80NOpy7hZonIil9Lk0jXlv9SR3xbVGpF
Zt1n4dK/6mmfgSVIaTmFiBmycITnkuAmdQ517tjPHsMJLLjyTptfFuFQ32if
FxyszMK/F6fv3RPgUM98w89VxTsF+ZJOLbMtHOrNNVdcPohNoa1J8OF/OUvw
/6G9ZzP/FCpPVIyNXVjEzsAjfEEbpnDx8Ta+H38XIShau8mBOJ99/CJLePUS
+p4sj+8VY+FzjlaHU/4SFnM8XQ41sBB0Vyz+k8YSgu0C1zxkEvPXxa5R7CL4
XOGz9JzvFOoiGo0OEHqi+DfMUjJnCk47tzlULF/Ew6a16padU5DzV3iUV8NG
RczGYxuapxF35VPOzj9suGpu5+Kensatv94BbAs2jCyiP4zpzGDZ2uxHZU/Z
2JoV1ndwYBo/91d7UFTZSCtetW7dvmnYJ3FQssMW8NuqjEXnm0KyzC4tMlE/
IbE2Q3oaxP3VuEdtfdj4tKQhTZthobVTdH4sko2Nl0obLI5PwZ57pZTpdTbU
3YO9FzimsMXrnddc1QIsJ504trSyMBOwccWj7wug+89EkWKnYFjX4eIVSvC1
8LEJE9tp+AtraW1fvgDmyHTm2ivTIBn0GmyZm4eJi5bkugPTEF99WmWR4ONz
z5s6XcOnwDeqPXDUfgHZnfc0/x6agqrjvsqOwAWIDSR+0lSYwloRZe/tBD8o
KPZ78aSy4OYVIuZtRujfTb8tpvtYyP4e0PvrKxun0/s9rDJYcLxT1ehjzobG
6HBORCAL/CGvEmo+s5FRHFP16zkL9hTVk3I7iPzuOf98YwsLMW2JknizgDN7
o1SVOKfhclbQd9KTjZhwluLXa9MQOOkUHbZ3EWTqFrd/x6fx/d+UrgihN4dD
B6hqe6dQMDNDbiL0+/4d7oa2vyz8Ui35lxNL6LuUYKONIwuT8e+lIriX8FMh
b7r9BgtmmzfuaDUkvq2vqRkrsGC9qT31388l3DsT6sM6M4ktmQHWDzg51H2q
DkYKaE1CPcZ786jlEppmLKRFiXrym95qpRqxhIfa1M3trZP48Kq3TU6VQ91i
7u3pvthJrFa8fn1L8RKu741KCSL83Urfj7d39Cyiwy1Z79ck0bcf+qV//+4i
9r1zMHCUYWHU3dpqLeFPJHnOjF6SZSFPUSXFiNDPu1fuOdxPYuG9zMfU7mRC
r5LOZW7sYOGlpAzn8jQ2VmvatNZ1T4F0nH/PeyLfmVuSWS61UxDdJVsl6sHG
WMWTxorV01hmp6qcd5mNytj5Zeb7p3EhKLzMdGgB8unb9em+09htIrjfl594
P+GODKEx4tsyuSondgGnFLll4uum4bQp8e+bIwu42/yYEXhsBs7Gt9nFMQu4
5tRbxNkygzsTvLznCP9+Yvamdtj7WfTRbnBrzM7j/mbKLBd9BqyGsy4CRD8S
NThQ5/l4BrktIcZnRuchuGNAoI84r4LbWTf54ALG+v8ZV+4k+urEnOC/VkT/
NVor7PdqBq5PKwfJbQso6ix9fOHuDFykjRml99j4KZPC58A5C50D40yTywSe
ZewijsTMIPqWs5198zwsV0Xl7mTNQGRZfXKR3Tx+cJ1VCCPWU67dD1izh6in
9vKnW1/OwKHB2qLGfAGUsKmLmw/Ngt9zr1kOlY39ks+2n7GahUx6v+Ifwu9F
icc5mZrMwtYrRqNNcxFH/10de3djFk/f90XXPWbDgNwjcV1gFg8+3ed/QvgB
Ffthh4R/s8j9a7qn89oitI+JTsSnz8KKr+xhjOMihIJ77mx89Q93gqPXRoQs
4rfTm7Yn8nMoNfSnZm1dQkLIs5nqHXP4d95DeVfKEhZeLbNWcvyHjRvXJbNM
lnCrNdJ1bfQ/7M884BVP4HFtnlLCTed/WM/7833c8yX8I/Pe6n4wh5Dwt41P
fAj+9PG7wr48h7bjwj5H6hdR9iE6+NvvORRGhCsGr1mC7Kwp3eXnHKK1a/7u
i1rEssPPFKLT5lBn/PNmQfUiNill+h8NnkN+TJ7a1alFRLKS+LNe/EM0f9dY
6fVFmMcGjzZf+oeglW9OtWxZhJpJXIZa1iyOKy5PHSXwfkZn5Z+RL7PQHbq3
97QGG1/nrd8P185CwfWm+LuyBbzMFXJwejqLgadL1mlEvquTn7r/jZuBdY6N
SgehaS6c4iq9y2axK+v1gL414c9vLFJpurMw7uAq575F8EnP+Gr61xlcMIpY
9fn2IqxqtXmNns5A87NsiiTht491FlvLEPzYPkwX+qTIRtHBiMriqGkU56jx
+xss4KZn/iVH/hm0hjn3TxP935bzb575EPPzaqdzxOKJfl2lKLCDPo2Wj8Vn
TjsuQGfdOVaI4gyO8zuYGBD4OZi2ayGldho7I2+1pX4h8MTePRp1jzhPaSFL
J2EBj3sZb/YHTIEcOB5rrszGY/3X9n2EHvV0DujmPV7A/wCZSiBP
                  "]]}, "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{-0.18556517769293404`, 
            1.6742378199207777`}, {-0.024791091064343934`, 
            2.0705377533946985`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {300, 300/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[0.006944444444444445], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {{{}, {}, 
              Annotation[{
                Hue[0.67, 0.6, 0.6], 
                Directive[
                 PointSize[0.006944444444444445], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]], 
                Line[CompressedData["
1:eJxdV3c81e/7JpFVn0IlDaFFk7LVpSWkUKmEkpIZFaJtFRoq2SRlR2XPOFYI
IXtzjHPMMzhGOHzfv39/55/zer+edT/3c93Xdd0SZvbnzJdxcHAMc3Fw/N//
//89NLc9qrDNktS6ZDXVZBZC2vJ51YTlrhhS4ZqAC2p3XpBGeLzrVt19T3q1
qUEyaj4B7QqSpJudUSQhqvzjDZc+g7p15/IOu3hSnGuD5e2IJFTI7mfq7HTD
wdcyG3eviUPn/ovPIlt8ITkqQx88+xULM03J0Zp3SdZZw88vWH7CMdGYFZNb
40myzVyNZewvGJiLXHc8x4PEKyzh8SknBbJiy4tHz/vhq9cvEbuqGIQ5Ffpa
l2RirsTk0eqa71h5Sc2CJzsHQmpm0yn/ZcNMci2lXjUHH3Vl0h+W50E27bW+
qX8ablOYe06mF+NI/cUvmqezIM0zMR+6JQ/icwfGxmR+YFdN+WylXBnaXRuc
7LXT8ZN9uT/l3W80zBWayOxIgqXd73ulob8hvRi8LHZ1GEo8Qo2//CmGXbLd
9dzzcah5lni4P6wIXWp5e20X0+H7RUeqcVUZVKrGDFNasmBTrrvaZbwEVK8z
Bj/OZ6Pow51zg/aleGwrPZsmm4oP+SHkDawy8M0uK712jgTGe+XdlbmlIJ1t
se9WLoIILb5Hr6ocQ2xe1U0lJdh3lfFYZKIWE2GXzn4qrsJCWWfz+7VNSJei
tsVx1WGk587QXHUj9Jk/1700r4NI28mC/WubMeEoJvJmfxM6yvSO7VloQOVk
4ffiqgYs5BxyzJZvhmNihv+6i83YdLP/tdn3Flx9r3n/uncLRB6uL15qbIGt
yHvdKqE2XDxx5PtlhVaAanC76VYLHBP6E2vl2vGs6tzO+vZGTPPPCXUWdMHy
iAHn/feN0D491Lb1UC8u8r7azZ3XDJsvK/ebHiND2trOxVCsFX0Hj+5P3EnG
t2t7Up0WWmB5al+yjkMv7Kz5jex8WzGsbcf43EbGBr2L35zvtWLbr7Lz22TI
eCn49prqZCt8bOLfxx0nQzU2t922pQXXLF1RlEmG6E+Dq6eGm5A11t1+pr8X
jx5FPFebacJ1X7mNfCK9kNy79doLt2asdQ76VnGlF3lKD54eIzXCSnGnpttv
MgIre9Bt0gDSyx2ujvl9WO4S5TVW0ISxHL8sOxUyjpAtlh1634T3rEAx69o+
rIy+aXJNqQVPtX+eMtfox8UnrZlRTk0InjkrOLVEhstxR9HuZy3QLnQ91TFG
RkLlfcbBL6146rihssSejDcnEiwVxtrw6fu6pK3nyTCVrLMuz+qAxOeGSMGb
fVC1/sAbkdUJB8c4HpOPZDSW/Df6rrgLsV+OTjQR8Qj60NeVjXfg4/YITrFn
fXCynAneqNeLgsDorxoJfUirKzbd8KgXPpP8/bLXBpA8vHFPw9teRDY/Nnav
HcCp/tQGhydkTOvl2Ym8G8BLaYNlNlq9eKnUELA+pR/CRjHGTxd6kSPGFlaz
68flql1n3qqRUT47l68bT4bJeRvdvhNkxFjM7E972IvgEE9wEudxHB4hJV7u
gol/h9u6RWLcjPx78VEblE5o5Cpn9aHlqYfmhhVdePnxBG1jQC9GAkx2yct1
4FdnZkzQYzLyxQ7z8//qAN/+srMnb5HR8l6Fa+3zdnD/d6+95Hwv7JNnG2oj
OsBU/B610b0XgmI5Ss7z3eDZwri6nN2LFD7n2vXOPbCa5PTjXdmHCI3um/ty
eyH75AhJa6YX9W3/xNoTenBU7W5eumof4qJrOQzyunH2n9V19n99WFj19Z+L
ew/MLvbxTtuRMcl3697FW90Q0Rj7/PVqH271vFk8eq8bu1UfbThRSkbW05Ir
w5Yd+C98+rO6aB+UTvpkfi1sw4jc8LKnYv3IyuPo3tfUDufto3e0tQbgf6L2
dMSybmQH1vBFJA3iTseTtwl5nUjMXKZ0MmIAPU7hTx4rdaFwBdWNd34Alxp6
AjpCO/D9xY5jZWmDUHfQV9B71o7ylBCJG2qD2KD0g1OIGF8MDLxrnj0ImtkP
ZVJ2L37QqF+14gfh9q/8aIlIH5rv6AunvhoE+WzFXcH7fbi5ZPcvQ3YQHTmP
fW886kPe3ekEkYFBeHNzjWb6kHHUvXFbb9UAfiyteVHpQYaEnMT2xqMDmBl2
1jTqJuO0+FPV4xb9uFRTwH/weD+ki/j1ym/34TPH7serkvth1fLwVePaPiBQ
sWduXz9O9Xmvt+boR6juGtHNmv2QbzD9o3a4D8/i79hLKg2gSfLwKvcjfTBp
aBlUkqVgO0lga/IZMuhWdQN9HVTc3/zs5J43fYjWH9KbSqNgo7yqm6pEP67q
c9hQxwcxRZIsyPpEnD/0/eVn40GYHNktue9TP0yMqeW01RSsbExw4Ertx4yW
nVdq+CDqbBJathBxDS86vFXKG4Q9KWx2eR8Z3OQPzhm3BzFRY2B0g6sPs0wP
1as2AxgY+SYnI9+DGgElpwO8FKSf683P+tEJ9cdKnoViFASIrzvmeLUTe6dH
2I3EeJCN4G/eX+0QSM1creBKwaWPGtUllu249WrXlxwLKkwt6jfdO9eCfb2n
MqdOUCDjplFfF9oMDMttetYxAOar2SvCVgQPP+Ko14mn4PJrL6GC5A6kfChR
DHaloqVStZBV3ok8nm/bimOo0Jt+nGrQ0QFdqw0fb7+j4p8B446FKoHD/Bpd
w1QqHnw7f+pGYiuOL6U33S6iIv36+Y0v17ai8eP70HW7hxDuID9yTbsdoyYn
x6w2DUH25R+NRzUdCBCIiRytpECZS+Ymz/1OHE0y3PZgMwWF5bnOSwE9YEal
vnzkOYiexTSKpVcnVIMdJUzqBnBalG5/wY3AtcOV35sNBnF3/QC7+0AXvlgG
Xr0RQwFfyc3uP+hA2c7qbAexIUSdepLat6sNtMufuJLSh6EXwPMmybUNORVv
hQ/dHMG5nsf+94xbUfr1acEfvmG4PLez6KC3gBwnkl33YwRcj5U8TAj9MK+e
Xny7bARhHxTershsxuiGeUeq+yhmFgq6rzq1Y80iTaIhehTlzSfPDK1swyvB
LqqOxigU7NzXe0l3YLv9nW9TCaN4lCDkL0duh6z+SmXhh2PAnjrXT05tSH1z
IigucwwPWYFXWm+1IaKc66v6hjHMdF2I5hFph2nFfqdqh3FIwI5UpdsOUZct
u6W8RhHUPrbXVLgVHcINf9jqYyhKTNFXudoMe4eR2uWhYzgyeL1f610L/ro4
cl02HEeAhnfm7hPNEHT7qDN4YQwPfgXsVchvxapNzG0CGWOQ3OP6X1BhE2LP
5f50ezgKrejDhZqED3Dg3dgVPzmK47fO6CvF1EPBhhR43WQEoZMfU/cm1iPz
cEEQyWoY5rdUKWrZjXAxT0raOjWMoQ/V6xZYf9Hs8yM59OAw3kw07ZAUrkNA
x/GZjLYh+PdxLokEVWOFROOzvLohXJbfN1TD9QfrvMnTkVojeKegIrj8ZAXk
5CL+nVUdxolhh1/mp6qRLKPHJU0fQdPF3wmMo1VYkjt8cr3QKK6tu7zc07MK
VcVSe6wdx3CffqqMi7sazxjhPwUjRgn+arriKlCJFF/dhduZo7g4E/ndjK8O
e5VzonnEx7AL0l4GMX9Atg2plKePonFj2lmJK1VoojgtOJaPQOtzdIuWXzlU
q7rvVt4fxfkaj4fFob+gXT17YkR1FLSrmNijWgpRCn/oF9oIrEVHToYcKkXw
rYvPogRG0LCZcu2BXhlMXlxdA9MhMDusV1v2lmFAud297uQQbjaFXL647hdy
n0heSNUagp8m5WPT7hI88Y/QX3xOwT7epF+KU5lIyD9w89c3Cq5oDBRrnkuF
srpvJWMVFXbjMk98t2Tg1D82R+cDKspOLjsjRU3DLfXvJEEeCirlnxilLWTg
9/Szc49rqEhi6Znts86GB0mm4lAzFZOdNaVFjmnwPf8hqbRlCCNb674c5smD
4mXN0DmnIQSb+s8eME3F7kYjfoGQYRibbVgxMpKM5N9POzgOD6FRo1PlNV80
OKocbHKJ+603UPQUoSZhUDx3y+b0IfCM3/XMNszEhh+67M9ixPtJmmWvjyPB
3c/V13DvMFY7zIbFpmVDStxKcOc5Kv64//zp6fgDRTEfVSwwhKRr05Ixt5NQ
Zr7Wz/DrEFT699kVJWbgSdzXPavVh9H7JD9jqCQHZzN4gz22jkCh8dYVqlgB
DkXpTppLj+B1NEs9Q5CEWc1s2Z/fhuBdIr1YYlwC7oDWxW3E/X0+OI+JluVC
Qj2nYkMYBSP6gb07JDIxtPK3w/5vVIzF6Q5VpGbAObNTns+GipeivHbXjydj
X8C4aIPEEOqX/aYMTSUh7rWtVr4qFbr/bcif7I7Br2n3HcLBVMitWHdp+4fP
iPTY9qz6zjDeec1e+v3WDMEfL9TtyKdC8lWO/87FMDy0KpJJyhyCrdb1ZzH3
P8NHP7dwxY0hKMpWiDA/xeGoSNadVCKflNn8qxYLWVh9Uu1M0JdhOL6tiUzZ
WITy3cXbqy8Pw93jxPrqPySIvfw74MoYQlnx1p3GSXngYxr3VwYMY1Tcb9Qh
IwMc148WXFEYwTaJ3y13+/JRGclDsnAege7uCYuk8QJQijmHZYn66gmIi3/V
8RNKEonL9axH0WyzXPSMdCyKvQz5NuiPQ5Da94ae/gJQelrh83IM66yvTn9P
CIbhxdLNcZ9GYVAWe5b3ZjBWL6vaVfRsFNnbjj0/k+0Oh8djbQmGBB8+tbvh
1pmMOwdXzX5cNYaog81lG0RSoWFjNSP4exhSJP+CotYf8DSSEjzoOAIX5X6z
BcMY6B7K398gPwyj05/W8EiEIPKoBuluH4GHPw9/L49ygwX/eK3g9AiM0w0+
2/LE4YzLmDOZ4J9XsgmT5kGJKPhTx5ZgUFCy93Zxe3wK4VdnsyR3UtBXzTXq
N/ENiRfHfigmDkDpxzq5b8IZuOG36bLPikFwqB16IH+DBBEG/2X1tkHIGBmf
319P4OfNqu+twRR86LW6fGvhJ/b+/Bb3XILQ0/QwtbtSqaAocDfVTQ+h8Gx6
bZJ+OiJVRbg826hIs3vo9sk2GRSuOVNXHkJvK06KZdZ/R2xtkHOvGaGvC55X
ZZdnY+bZaMD7VkLvBt9oePTkQvOCcImuDwUGO37v0n5eBHpIhVW1zCBYq5pJ
U2qF8KZo+pmM94PnZL105I1ySOc2dMxkEz5HXOmsz/4KzPTaKXILE/6lXteW
5VWN47x5gc//UWCIsLsPGVX4T/XEPfsBAp+eK3PeqP5GGonrwLEfVASNhNwp
LyiHwhp+ocwrFITuCRfa+bsMasq1owFHKGhCdRvr6S+sSqHuOPaQCikDm8hI
k3I41zdY8jsOYRe7aHFRqgwdHzdtKXcfguh+90O9FpXIYb3SrVk7hLQGpC4Q
/Frx4+/hBAcqfqkGfefQKMLB3OFTKRwEP3SdftG6uhBtmbIrvekUdDj7LYnw
FKJRaCI5n/B3XGpVeb5SxUh9ZNhaQ/iPdyZTXEv7s3HpSaXgEFFv0XzrPPav
K8KqbLO68BQKUsTW9ThkJuNmPtlIk0lB3ZjMwcT+DMQ7rpHNLqVizb3bJnE3
c3Akx2YbRxAVI8I2CovvfqDs9KkIDQ0qlOgfKucavkJK4NNMwm0KCnwO8xTJ
JsNb68rFbdYUTMiR9E5/jwOXSOsak3EKIq0pGz1/OkF+m3lRoA4FWkravkKV
iVi798/J5RlUfL1zPKOaPxLHNkGkyGMYpdviyTtGHqGW9XNufPkIeBgpMSZ7
I3A9fzj02a0RcAwIGqeOuqOZ0eyb0TWEde+2fza7ZA2jntRvPWwqOKLcnYfL
Zo8c1DyxqvY2Fac849TKzr0jPcwVTF3fOgStP02Sjc4xpFW19wf4IocxK+7N
Hr/wmiRxntp47dEwUp/aWVHV/Eku62vrZetGoGdQpTU65kNSHfS/uL11GCoV
AX1+bwNIrCI/p9Zbw3Ddz2MgVZlIGg3d1DybTOhN/ymx/tRA0rldt2mvTQbh
t/uXFffSV9K0tCLfLsIvbxd7+VQESaR7YUajmglE/XXxm2wLTiEZrezYuy2F
iu9PPJKWb4ggRRhItRyOoyK233mPfXIiKVVt0I1WQQX5dVgr+VgKSfueqX5r
EoXo+w08uDoTSPNSobR8PQrUM4vS3ubkke6Q+/vv1Q6Ceu15hoF7LklDPNhX
YG4QLbd59BvdfpKa7j5jd2pTkXPo2/OXc9mk+eoVMudzBtFnnOW8LuIHSd2F
w0bdnwLPkeTSZQZBSB6XryNbDKIihhccf61JOxxaQq5UDCLi7YfZf3qxWJBV
ICfaDYJ+3p+LjysBLJ0x/QtrCTxkyMhY2qZgjeTfhkLfQZyNGnN6zhMPp+2r
3a5+oED6w34/icOxuMFzYPHBAQoewZg/fTIafe4aze/6KeBd89v7a3US3guU
SvKJUfHibGrjnb50ZMtEXT7OQYG+QndTwN5UFOV/bhF+OIjlLQ/PiPxMgf5g
zXX1/wZhnsPzaU33D9yhbgj29urHumtPbcQPxMPfb2eseUI/+o2G9qrYpSKX
LESieQ+CMbrRvXh1OLjCJxdSDhL1TE1qfHI9EOzXfzcUX6Ri12StAeuPEylQ
oGa8ZuMQMkpcFizO3Cap6iVQdYl6aa0/0lei/hnbtltNhVkNoZfmvXbyfQpy
DGMcv/kMo8x93DjzwVcU9AQ/mlMewXodnjOzESQwTx0prCX8iKnhssibj3JA
0qZraDsMg6xFu2D7Kx/u9Td6TbyHcVLG6fjZ0GwMmzQdtDw+hOK1vv8JPM+D
zw7DJG4C31OntPZnJ+RA11In3CuCCmEOtZII6zh0H0lXqH4yhNZ9Tbp9Qu9w
+ZOiCztiCJsenj+srhKLA6f8impkh2Fh1fleSSgdn+kUxtFogk/E+il94jko
EzORvLZlGDueqkQ+103C/ttNKYrXRuE/WjD2pC0Kwu/c3W7rjePhe44wjtW+
MPDjvFtUPYZcy9w23smPOPvVs0q8itC/OqXuNrIfDnfrU4O6xuH81MpN9F86
tolZzhrfo8NgIU0u9WsuBDkKHLWuM6DyLfzDY/0f0L/1Sn3AiIkAQzXB6ZsZ
MAuvKvuezMTla87UGqcE4p5rRBb3MBG6fI/QKsck6PCtsxefZuBmgcJSr/Mr
LM/04G7VZGJxWj5r3+E00thQuM4uBgPv3JqNAvOSSf/G0zO2rmciX3bbSO5I
JKl4j4hrjwITjPvxtxI9vpCMYsS2nJVkwlXoibB+axBJW96HO7aUgbz118w4
1kSSCru8uyuiGIgUOr3q+MATEt/FGM7rjgwwJlatWi2rSnoR56D4gIOJU9Er
ZkgZwSCjumnoBAM9kx947yvF4LOHsdUANx1Jbywyw53S0J+wixaVN446O03E
haThyF3GyN/CMdjk7CtkUnOQ8eVIh7TFGErr3flGWpMRWLHjjdryMVR7Vk4Z
O72DeKm6yD2/MQzQgzg5yyMwsinkwYkt47g+4HCL2zsDEVXer3Tax5B5glOW
QyAFu+3STrO30+HeqtsRkxIJneh6qi2Djq1m7Y8kn1vjG4f1kkkDHXU6tOcc
sp/gbdOy6OJGx/IdOxM57e7hU+3pms5FGs4qZe268OozyT2Q++Tn63Tc6eJ8
kPb1DemgDKn1wGU6rnCGjO1mfoF4xoVHIg9o+K5X993oawh25sRJCFfREGjS
9jj2dxgCX3u+O+VKQ6RoaPK4lRnp0JoNxdc1achN7YngcXdG78kA0Q0rxzF0
xS/ly4Q9aU3Wy78PV49DrO772rTjfnjSfn2EPkfDld5W7QOtmZCL1vapnB7H
+NWedVEKiUispyus46DjruhEbdm1FNzezeQR+k6Db+3mzXEr86BSWGd3j01D
wc6I4OQVuegRl3N9XESHhWR71prLRTjzRmOlCScD89tXi+2Zy4cHy+fnoh4d
qXnyz/+lFuF8WpSxTDMDMcc+Kkl8LcYXdz6fp2MMrBRcrSYnXQJHumWqQg0T
KUUbe80nKqC9QV2rbPsEKvy8tnyXrcKJUgG+T61MmBdrszjD6pBxfqHjfQYx
P2nVjlTxWmippBs9uD+Be9mrXdaR/+Ck5srY8l0TKGgW5Iy4WgvqyIsziaET
+CK/xzddqAoz52WFTs9N4PDqi5z73OrAauPbvmv5BP5ZfYy4Z1sP790eoc63
mLi1662pXv1ftF9aHXNzORNbyVUrxTf/QfwyOeuaWgbsJjUuxN6qgSPZVInl
zsAj1/n/ljtUY9XL44adt+n4YnJgIGC4Dmv0uYr2iTCQcjRXXmRnI+ofriqo
VKaDFldPyon6i2KH0vVHvej473Ud94aCOsy/efv+x2E6VHuXztpH1UHc1ee9
ZNU49B/uZ4aF1oNxYCAxZWwUPkEZdfar/+ISt39YtdAY1ILV4bRQCa4A/1si
7uMIff7oz6pz1SAvJZw48mIcIegU92r4g2/LvRIrZ8bBo7C9Js2qFoOZe/a9
TqFh5N/s39WyNVh6VXTyKIFHs2fyrP1axPoTh4wbb9IQXLEphedkHdzoZ7Ld
GumIyKMc4lCqR5Kpv26bOB1qbRXGD7j/oqrXcM3RSzTQfja561VUgKT2uGLf
EzpKPwy8b88qRXxVep+UHMFHx3+toGUXYov7ytfvkon99vTP89rkQeB+Sc7x
LwzY53CImBql4ahvVhGHHwPGB0jKvkcSYVGYOyLSysCK1rbe9d/zCV6mrJL1
YWDz7xftvrr5WCli8l/1egbGBH6UlfgUYFdJdXxwLgM/ftAFjbPzEW6n+NuG
WE9OoiVXxyRi0xbORxuT6BinMW4fup0FZZ/ba8/so6Psnrekckoq7gpkhT1I
oEFGMvX1SdWPeH59rmKY4JutaUFGB784If71yNsG1VHws1/+F7TGAeVdCi+K
748R/Ujv06VPQVBJl49YITIOHfNbVVZuCeCeWxLgJ/ShUbSzKbwzApLRrVsC
9tHQ+DXxQXVEFKkifNnm35U0uDLJVMmMA6RZ77Yz3a3jCLfwKXtY60963jtl
nao/hp2WvtbORzNIE4LDfLcxjmtvvj4fvpVFOq0kB7tGGl6ntX34ubKYpLGu
Y88ZThoWXHy2C5WTSKkdqrzSCuP4HfzSP5+7mJTMM6pWGzqOw3d6cvT/KyKt
FvrVfHBiFBbFe+S9436SamquPz7tPIrZcm75c1Z5pAhGQHt32ChKas/ttMz7
SXpFt7dXmBvHqdtW1cpWiaSjsRI8gUT8xa9X/FTQyCFx/LSVNg+lQ9rcwXMH
bz5pU6N6+nFzBjoj42pe2eeSvnz6+C77Nw38vWK7dvzJIn3cf/Zmffw4VCZE
7XeNZZLyivVylmfRUM47qzdxo5Q0/WGQ5a9CR+afpbc4/YvUweO7R2AdHd/a
8rxDCstJjoYCtrdej6Pyketlyb2lJKH0wy03XcdwlSZxf3S0hHRrue2bercx
vJy6KrlTs5gkvbPDMfzIKJLXOhnPm6WQLIp83827jkDTYofyoT1vSdVBlXrd
acOwb83YHbrJj9Soqiz4K2kYAsGp3v+GAnAuwfhQ484RuP976lXC+wwcnL77
s3RHQH24TFvZ8jVJWembt9bjYSTLtfPZiL3DZOetf/Qfw7D8ciIjYb8nyU/z
0cXZ5mHE83TZ6r0Px9ehu5pnvIZwOcxL8eZ3R9Kr+27tYSlD+J4533q51wG3
U3RPc0kO4THnC59L97/AtONayEDUECQiL8sUSaVBu+OZjtNxKvZsXX51fDgT
P6g3/fr/DUCxL3Ptc5VkuLy6eUqI8IOa5nSD2drv4DwY3Z7ePohStkasnagr
piJerizsHMCe+z1rTpx0hUsh98vN6wbhfYzdNL06EE2eVxMkLAl/6cv3jKv2
GYnscDj9CT8FNlwzZX37HpAO+YVJ6jwYQMH8vS+Hyl6RnoTEnGt06kfEt0fc
tCMfScqkrAN3evtwzNNDS/KnG8lgww3vzJw+bNHZ4WA8m0iqUMhKikgiQ0PV
nlF/OIZEvf+81/4yGY5h5/60CqSSUuXSNeu/dENdc82FrXrRJB+v/F/WBl1Q
/769g7PkDMnD0Kf99oFeNIfcEjPo9INhtu2EtEQHtt4pYXZtjIOURgVzzWQ7
FLav5xMRjiVc9hWN9wPduMPzzPp7dBhpQ+Heev1vnRC9ZObI+86SlNmjlskl
04tu2XPyVnXWJJNHtwfoI93gpcleFfoQQfozepdLsLIb6R6vdO+uDCUtJWr/
UlnTgz3rr+kHn/FECSXWzV24F40ZK//5vrpLUv8U1+4r1guRLUEDL4QiSR6L
jF0yZ3pwJSFgzZPj0aSpJe2NnN970H73pVYARwppaq06y5LWifqczVXbd0SR
tkdKFf1X3Ime6ijH1ZwBJCGrx+JnXndi79SQ27EDwchstI2O8SVjlbFHneKc
O6lSekJnq1sPHMVyu37bhZCSJoRuJF/uwiOHygE3u3jS9Qt26XJ2Pdhl2BX2
MN2VVOzQ8ukdBxnqEkFvJ4xiST5P13u7ZffCLT0tJuFYPMlxroue+ZgM+uC5
SC+NcNKxQRsfIe9eJBtI9fs+vkbaya0s/8mlF7H3uNbuV05CYZUKk3KwB/aa
4t28vh8xUqZbcSW9GxFW592fxiej6KVzx2m+bpytkT59kz8ZB+/P+ki4duKN
xrTCg4/xCN12NCy4oAc6grtlxGqSMXth8NPVF2Qsuv3lDO5Ig4je7c7dp/oQ
tWC6czEuBdup2mmXeHtxpO5lRtLJZCy2Hr0cS+sFh6pc+vnbMSgWX37+zp9e
7N64XKouLQYHH4fNCq4h483W9IeC1cHI/W0ka3iKDM5g94UbH9MwwX/BQmUr
GXd6pvdVq8ai0sWOdqasDzyHxLU9/vuOyUuaw4f7yfA3+HvCMOonQjU5aJu2
9ePknzqd8b2lUN1tZ2/4qx/Wg+nsPI1SMKJZwV7cA9jJMv9+amshfG6t5kwT
GUBpd92p0OdpCP6WKBq3ehDfL2x9VPouD9Wa+bYOywaRtJFKl/5QhDtVX6OM
4wbxtHJr4/biElQXFOht/jyIq8zf1onLKtHV9V24dtMg3D2Vpje9KsNmh/E7
/YuDCPRaufl1eCnuRJ60VvlGQXV291uZ94XwT5S3nRYehKzyXtF5rUzY9zl+
qNo+gPpxr+ZNM6m4vKvGWcmnH/uW9XjfuFWI1hUBRUE7+mDgazG8t7QCUz7r
t29q7UNAnPOxc2YVaCorypnz7oNns9FJRk8p1k3U7KBOkOFT90Tr9J402Ilc
iyz070cVp+rvc82JEA/KnZIY7cdOruPtjpNfkfwpQMomeQC2j7hDOH5kQe/X
Qs+biAEc1TcqnN9eiMum5CvuHwdhIl2onxRaiEtb9UPWW1Mw91HK7ZVXBjYM
Oz7Pkh3EIdGSyivbUrE7kp4rdnsQIanv/Avux8P6nZpE3dggdAQSeQ3+5MH3
YFCcshcFkWcqWRG8PzFULj30qGQQygJGvaTJdJxo+3LtJ4WKyPmHdYIfS3CG
/HTCNY6KV5vJ6zTpv+FAkiNZtFMhOxiY1GpZjhP/5PZZ8lFxyv/sRnPivbeW
TiZ4T1LwUjy8Kc/iF8QFd+kV3iT69zv+8hENxZDSblqx1pEKj8TF8P79pSie
LT9Ky6dC24o2cdaqGOL/0gxWGlGR9O9H5of5UnR5pLwTX0ZBWajbqZ33KtDH
45L16woVm0xs/NU469BsbjlTbzOEY4EppnrafyHHOH8t7xQVLvWGqeav6lCX
/1PK1HoIBVOmK1leZWg59uP+a08qcks5tELNy5CY/v5mQDkVtak/XNbQKsCf
zry8meife49v/yRRRJyvdtbrlMQQvENm94jRf2EVTXFJnVh/pFNkihZQgozo
M2HvrgzCTIQplxldgvqvDQ8maAPQPCxncedFOSgUZqReRz8y2rVeXBWuwGhv
UCSfwAC2HIxtXHerGlsKz7Ljfg1CqMQtvF7oL+aMvJSqMyiQt86Uijz8FyGh
a3MHVKjo3K/MsT29Fs2dlmIbu4YQufrsBbGkv3joKvaf5n9DSDCZqbLZ+xcU
vSxl4TQqMnjZOk9Zf3G8KSU83IcK23dXNvUua0LXQMauue9UNP/HpfGwvhY5
qx27N++joFB0lu/F1jpU9YWfFpWl4Ofdtfx+jFooeczULDoSeOEOl/fyqAPH
MneypRUFvlpZd//TqkOySUQy/2UKAtvLV+nZVMBaKvvt7G8qdDh6r1ifqcNJ
5gXd/DYq6k7c0nA9XwUbvkQFuxYqJJ97u+4XKAd3scSyJc0hKNWld2ZbNKB0
xP3+1QdDGNu1YsBWqh7rgwa/7WQT8aaqCKaINiD5hKumfeEQti1zCt7/rB4J
H/YFmLwZRqx8/dQjZgManZJa8wn/oXP6Y35hbQtsC27VbKwYhpCGYjbn8zb0
Jfe90iL869kh3scFm9rQq0Lz/jk1js8GjQdC13XAOEHguVPjONTjfxy7/qEd
jy05xs3fj2NB/GCrAHrQcb2BOuhKx/09imeveRK69e1LFZppABrlt5h3YEQv
ZxVpgYbTr3mWbXNuh2XYGb48YzqErSrnVqV1IMaZT9VyDR0V0UPdD1pbiTrO
8Hk4Oo5lzE9RYa/bMbA8ZmFz2Dh23PzPP5CI992GQw+eWY3juJlyD6OrC0od
9roCS0S/wRd30I7cDQvL1stVsjSc95W4S3clfEJkXoxg4xiMriyfay3uBcPG
5vJczDj8LOLM/tJ6wC0xo/v8Pg0K0h6Lm7h7sM+ZS6jEig4hqnnGlFAvLM9F
uR65yoBriIjyXsUuOHmu+30+lAE3E7H1F0vaEftkxNA8g4GTRvTojVkdaO75
UR4szMSeB5GL4l86EL1BsUwTTFhQ7NdrC3dCQ6bD5NwCE/ZZuzap1LVjTc/1
ytF2JoQ3rsz5k9aFhD3dQXP+E+jdp+D32b4LN3iOHeV3msDR25uY9z924XuM
5eFguUlID9/3lMzohkqnWd77zEno6So4HtTugqqX0GRtEAtPlt6nXFXqwkNh
Sj5SWeiZnO8N9ewEjJ6KtzaxYHHLX+jA0Q6El5vFmW9mwdMn/7V8VQ+EQnJP
tHZNou1Si9/7yk5MyqvkeFqyMMQcUmqL7oXJpZzr2sMslEd2tmU0kZGXfzHZ
25kFoQ5qg74iGQqjpvf23mFBOqqEsVGfjJIoTvXCoywkkMvE3Oi9KPkv6oqI
zCQ6WFeEX30kw/pC44KdwCRW7eX33CrRj8PvRc1HSydR8OVLs28WGbk84Xtj
N7AwVXzCJc+0D9HdNgY6K1ngsLit97ewD39sz9Y92DyJoPVOVuk2/TCWOJE2
ozKJ2Xt+3A+UyVh2Q7hvhdokKpTWeoq+IuNweFWa3LNJJLL9Dga69kF2k0u+
8z4WniqO5jJk+6HpP2ycfJCFuYkbax1sB6D68STH3rRJTATPJGx9OYAZnQEb
HSJ+3oYnjmfW94N3hTfn0V2T+Pn4iWaiYx+mtLIXOc0ncbWtYf10VD80Qmpe
7L87iaz0HaVJrv0wNDMpVmFO4M/R9VdJfoOIZPqcrp6eQJjHv7EmwUHsywqK
P39yAoXTWm8+7hvEuUodo1chEyie/7pMrZ6C+2Yb/NpoTHxY9JgZoFPAaxqr
tigwgc3zZ1dJLlDx9b5ARenqCRzIrJqp6SV0Sjzx9ob1Ezh20GC3ZBEFZ4vv
5OsJEfl4LSr80WII16s4x2vyJ6Fb1PB8QGAY27b4Z1BXEXgxYr35T3kYBW+a
rpnpT6KTzGeopzqGf88OC1zwngBvn1icVsMYBuufMJvsiP2Nvjj4+RB1U3qR
/cRqEklzfRrlajSY3OCMt/s4gVVnF47I3KOBMZ2kH+o4iXvthyjKEuMI/Dm4
Jf7wJK7nTcUxksdwvmSefjd/Asu3cI0U3hzHLd7PU7ScCUg4iagcpI1C0SHx
W99loh72CvzZ9mUMIxlLHf+lTeD0eoe2xwbjiKh4JTpBvH/2vVH5+TAa6iZ3
vAgRmQSPa6LtjqpxJBxJmT4wNgnHMcNIOScaRM0SQ6f3sNBVFa6DCBq0N6Wv
1y9gIbB7alrwxDi8lc5YflIi8HArWMgwYwSJy3lTErVZ2NCgbeBnOIrnu3/u
lBZnQVv8QMY1l3FIL5+1uizCwp9mr5lz4ePwFNR4+jRmEqcFb4kpJo3B/3LG
y4/SkxAcSNsbsXkcSgufuFzfTaBAKk0/XXYMxfKGJX83TsBKTnPtIbkxmHJa
/TGZnEDjy9NSPNbjWBoW5swdmsBhB5Wn2fZjoMu+9VIl8DP7w+/F9bhxHHmy
yVbpwCRCxGp/xAjTYKGi8faD3yTeaA1+dh6iYWLx277zeSwsnY2Qfn+IBqX0
a6+mCD4o9hE4rHmeBuMDMR+OPJnCUP+Wj0o8dLhyCJINH0/jmuu5t1KXaAgY
m/EYNpvGvjjc8m2g4VGesg+1ehqx8x0SQgXjiN1rZrt8+ww64he5ruaNo6S9
LirQeQbJ8q98Koh8M0Zn+e1TZhAi8aS099Q4FF46ejjTZlDFb7aiQnYcRqvz
GDs6ZmAb7xqo8Ivo0x+dT6ER85sUl97vmRvDXrNzlUztGWiyinjGLcYxufK/
wbzCGQQM/d0kH0mDx820rImAGRzZ9ubwNwsi3vFtwulmsygIucsqzifw8dQ/
30N+FhbnH5hs6ByHGvvswO7qGfz9xfdFyZ0O34Ut1fuGZkDurRTatJyG6Abp
BWUpIp67RkXmo2OYLDq1hz9vGpwF2hs4VxC6mLbzzGjhNCJ973Stjx1H3ZP7
jgI501hJicOV28T+v1vyhCKnwaILVVe+JeonLyohtXwKheXPH3co06Cxf2x9
yP4ZjFb3pyz9piEx3G9b6IEZ3LtTrKpqy4CgWrhd79IMVAqiAn8LMFHR9WRa
UXIWbxyfCdgpM5CTtNXKfPUs3BwNVYO/MRDwUfFR+Y5ZlJquqtl0iYFfLhFj
6w/9g/fepbcHKhnwXhP2Wu3zPxxNvnu+oI4BmlLJUT/DOZzxqbF7ID0Bf/G9
Mgrb51FsQRvJGmQi2siVunfTAiYhxzqsPYF71cvsD+9dAOvN03Yvoq46bhWI
Fk7Nw8ovXr/o6AQOygYXnuqahyE1dccx7glUdfZ7hH6Zx9U8IeN6Hib89pfV
BiTNI8tne9f+ICYKa236DdwWEF7V1/LtAxPP+hwu35NawDvr6AKdzUxImiea
vdWfx9Ot+ptN3Rm4U5HBtvs6j46NUksVR5i4ftJXwf/GPAb3nXm59xET3+J/
d+0/Oo8hH92nZtNMSJkvF6N5zWMukCnvEsKEz76gCqdj8/C4GNt8yo2J98Vf
+Ks3zcP6tff1uNgJPP4lJR4oOI9rmz3+k904CZX6gJLfV+axbrMMxXRpAtsT
rvDbG8/DwTb/Kst0Elyh7KMpH+ZwtDE6VPLoJLzbGOHba+ag9WjdEMexSWju
CdRhr5yHZ5Lv3ld7CZ673/56BxHP6hslVvvlJxHAFfK1kNjvfd32zHc6xPda
/jrILuDYAdvXai8ncEEnin58xQKuyusPyt2YQH24QM8poQXYR7fcSFabwMMb
PeoV2xfAcNj6UMqUiVTyqWeRagtoTzxSKdPCwBnFwx7epvNYVfQ2N7+IgdUq
VzJXuMyjbaXnedYB4v6VEw8rYubxjc663RXAxNcf27/6YAG5Q7dexCsxMSP4
aRudh3j/8VZqkBUTc+7Os9WPFrA6s8DwTzQTR957N8/8W4AgX1OIgNAE9juq
ino9Y0Mz93yaeTYTVwqvhuYsY2NEUTHDOHcCW7KHTauHF7BmwyLrMscEGpQ2
8vxJW4DSicbBzdQJLLKsCqybF3BiRYvstx2TyNHxpRSdYWOKbkU1JHTr5U5X
2Zr9bLQHFOUHMiYgraMzp1PBhrKek8P74QmYrnRkzTDZEJUWTOq5OwF1W5f8
1SVsPJLT5BO8OQFlOdufZhfZoHCk8HoGT2CKu1ly8dMCdlANVoQemwDbZ6U5
n/sC3nZUbft7YQK5Lu/OxzuzIS6zdfdpH0Kn79i6HX/PxsPRuowgpQlI8bU7
P5pig/cJj1CgxAQyDs7FbJFfxLPVHyOUCplYWjv9SllqEdv6HNR2FjHxc7Dx
mbEAMf5kVjLRi4l7IdMhQRsWIXXRNJBF6La1wKo6ph8bHU6hj24XMPFR9YXz
oUU2Xiy+Kgr5w0S9q7/Ij82LeGMiaf58ioG6RXO7v66LYJ/oaVcQY8JJ/7a4
S+YibmjkvAzYy8C9yMa/MfxL6NwYrv58IxPtS5JX1T4u4mXiynvzNkwcDJ9M
tr2xiOPPn0nzdjKR1S5y1uzNIoqu0dTa70zgfPHJ3rzARXQev/5VhKjvC98k
L4kx2JBc9rnd7RoTXCc9uFidbCwO0qSniHicrKVdfrQT7223PvINgZdozef7
Hguy0RmfRJp/zYT10YDotT8XMBL77JH1OiYyNs8OvnnAho1aRAinHAOpnKeU
z31jI6mEe7yJQseDB2kyI48XcUqksn+5CQPdz344cxH53/zfuowYKgMLeQeE
vr9gw0HUNL9fngFbG9U6GyKfMd3y6++8JPDe718rGcjGSn/RkckQgh91/l5Z
1c2G6fVV3G8jGVAN+GAUuIWN1wkn6E9jGCh+LTum1riA+89/CcSdZkDB2fik
3boFuJAu6ZOJPsBji9yKU1cXYKOudmC/LR0piSe416kvILPtPS1KjA5Z32le
O8oCPqVw29ouo0NX//nbTAKPOeSutsR6Oljxfb85Uoh8/PG4/EKXjnGnb0N9
lxbQNmtWIdFPg569guLsiQVc0lC188qmYUtWZceFinnUZupyrCL6IuW+xKCj
M/Mov+b/ypTogzZeKKZ1MRZAPmrie/XtODZfFH8huZmNwd8uecouNNi4nd2k
k8OG1PYrvyIv0uHyI97wx9VF8G223CHOpoO6ofqUuMIiflbu6nqvw4ASWdzo
US8bEpSwwUp/BsZDthrnnVqEW69qkn8YA7ofZDyXcS0iVK4x7tQKJgLOG+zM
mmWD67V8mJkUE8tHNRNWvl7EqJxeluw4E3ly9p+mc9ngO3mFU5/ocwRnTyRs
JfLt1ict6PaVCb5Y34s6bCJ/H/ZMbCb44+kzA9ETRH2H3w5fJUxlolz4bFw5
kc/1Zdwxf5lM9EnISCg5scHojxkIe0j4vlW9izfuE/X32HjpidwExCx3mN3O
X8BBpfsejsYEX79VP5R+hY31Bv0Pvr6ZwFe3/B9cr9nwylAoeET41g2cenXr
q9kw5OO8k/rfBM6+fvfjnwsbgSoXOyOfMwmf/pHPp3cB258uOJ8i9FKwY6gj
T5sY57jg00bgx2fg45qMQiL+ca+o9nMMHF+zT7fzCButZhd1pnWZeDitYhlk
RNTH2uMWap5MbFdJLQ8WW8Svv4/D7xN6rekp0d7VzMZVCU9hvlwG7CVFVb40
LeLsBys+nzsMrGJ2Nymv4VAfHQ7mngUDvqMXm6SkONQPhe9S+Tw5DreSuZ+2
dznUXwhLq0e3j+NixpLo/Xcc6u4tjQVhhD+/xGXqsuYKh7oKTxfFP3scG/rH
vvT1LqHNZErcwH4cD2xlo4IlOdR3DX9o+gsatO5PrE9dy6G+5dklT70gGnoe
7nhyVIVDXUZqwvPYNhqkBvUPYmwJ7erNBdmEX97jxb8sZt0S0iKk5Yov0PH9
0JfA5KIlVOitID8PoePe24068xIc6q+NzmdQx+mQjFTcQV/Jof7BLe6B1Swd
b20+SpSrL6GXJd91r5cGfVPxR3+NFjFwp/r+rBsdpksXtmieWwIl8bhToBMd
2fVGQ/lfljD5LVFxroWO5PUdNzcv41CvupLxLXmegbsbjP/6KXOoH7gma9kT
wYBp2ufuUSUOdUqb1r4hPeL9RwmvYcihHv7GS1lmzSTCtng8mV7NoR758rxI
/vJJSHQsBaju5lDX2LjxcYHkJPyG80NOpy7hZonIil9Lk0jXlv9SR3xbVGpF
Zt1n4dK/6mmfgSVIaTmFiBmycITnkuAmdQ517tjPHsMJLLjyTptfFuFQ32if
FxyszMK/F6fv3RPgUM98w89VxTsF+ZJOLbMtHOrNNVdcPohNoa1J8OF/OUvw
/6G9ZzP/FCpPVIyNXVjEzsAjfEEbpnDx8Ta+H38XIShau8mBOJ99/CJLePUS
+p4sj+8VY+FzjlaHU/4SFnM8XQ41sBB0Vyz+k8YSgu0C1zxkEvPXxa5R7CL4
XOGz9JzvFOoiGo0OEHqi+DfMUjJnCk47tzlULF/Ew6a16padU5DzV3iUV8NG
RczGYxuapxF35VPOzj9suGpu5+Kensatv94BbAs2jCyiP4zpzGDZ2uxHZU/Z
2JoV1ndwYBo/91d7UFTZSCtetW7dvmnYJ3FQssMW8NuqjEXnm0KyzC4tMlE/
IbE2Q3oaxP3VuEdtfdj4tKQhTZthobVTdH4sko2Nl0obLI5PwZ57pZTpdTbU
3YO9FzimsMXrnddc1QIsJ504trSyMBOwccWj7wug+89EkWKnYFjX4eIVSvC1
8LEJE9tp+AtraW1fvgDmyHTm2ivTIBn0GmyZm4eJi5bkugPTEF99WmWR4ONz
z5s6XcOnwDeqPXDUfgHZnfc0/x6agqrjvsqOwAWIDSR+0lSYwloRZe/tBD8o
KPZ78aSy4OYVIuZtRujfTb8tpvtYyP4e0PvrKxun0/s9rDJYcLxT1ehjzobG
6HBORCAL/CGvEmo+s5FRHFP16zkL9hTVk3I7iPzuOf98YwsLMW2JknizgDN7
o1SVOKfhclbQd9KTjZhwluLXa9MQOOkUHbZ3EWTqFrd/x6fx/d+UrgihN4dD
B6hqe6dQMDNDbiL0+/4d7oa2vyz8Ui35lxNL6LuUYKONIwuT8e+lIriX8FMh
b7r9BgtmmzfuaDUkvq2vqRkrsGC9qT31388l3DsT6sM6M4ktmQHWDzg51H2q
DkYKaE1CPcZ786jlEppmLKRFiXrym95qpRqxhIfa1M3trZP48Kq3TU6VQ91i
7u3pvthJrFa8fn1L8RKu741KCSL83Urfj7d39Cyiwy1Z79ck0bcf+qV//+4i
9r1zMHCUYWHU3dpqLeFPJHnOjF6SZSFPUSXFiNDPu1fuOdxPYuG9zMfU7mRC
r5LOZW7sYOGlpAzn8jQ2VmvatNZ1T4F0nH/PeyLfmVuSWS61UxDdJVsl6sHG
WMWTxorV01hmp6qcd5mNytj5Zeb7p3EhKLzMdGgB8unb9em+09htIrjfl594
P+GODKEx4tsyuSondgGnFLll4uum4bQp8e+bIwu42/yYEXhsBs7Gt9nFMQu4
5tRbxNkygzsTvLznCP9+Yvamdtj7WfTRbnBrzM7j/mbKLBd9BqyGsy4CRD8S
NThQ5/l4BrktIcZnRuchuGNAoI84r4LbWTf54ALG+v8ZV+4k+urEnOC/VkT/
NVor7PdqBq5PKwfJbQso6ix9fOHuDFykjRml99j4KZPC58A5C50D40yTywSe
ZewijsTMIPqWs5198zwsV0Xl7mTNQGRZfXKR3Tx+cJ1VCCPWU67dD1izh6in
9vKnW1/OwKHB2qLGfAGUsKmLmw/Ngt9zr1kOlY39ks+2n7GahUx6v+Ifwu9F
icc5mZrMwtYrRqNNcxFH/10de3djFk/f90XXPWbDgNwjcV1gFg8+3ed/QvgB
Ffthh4R/s8j9a7qn89oitI+JTsSnz8KKr+xhjOMihIJ77mx89Q93gqPXRoQs
4rfTm7Yn8nMoNfSnZm1dQkLIs5nqHXP4d95DeVfKEhZeLbNWcvyHjRvXJbNM
lnCrNdJ1bfQ/7M884BVP4HFtnlLCTed/WM/7833c8yX8I/Pe6n4wh5Dwt41P
fAj+9PG7wr48h7bjwj5H6hdR9iE6+NvvORRGhCsGr1mC7Kwp3eXnHKK1a/7u
i1rEssPPFKLT5lBn/PNmQfUiNill+h8NnkN+TJ7a1alFRLKS+LNe/EM0f9dY
6fVFmMcGjzZf+oeglW9OtWxZhJpJXIZa1iyOKy5PHSXwfkZn5Z+RL7PQHbq3
97QGG1/nrd8P185CwfWm+LuyBbzMFXJwejqLgadL1mlEvquTn7r/jZuBdY6N
SgehaS6c4iq9y2axK+v1gL414c9vLFJpurMw7uAq575F8EnP+Gr61xlcMIpY
9fn2IqxqtXmNns5A87NsiiTht491FlvLEPzYPkwX+qTIRtHBiMriqGkU56jx
+xss4KZn/iVH/hm0hjn3TxP935bzb575EPPzaqdzxOKJfl2lKLCDPo2Wj8Vn
TjsuQGfdOVaI4gyO8zuYGBD4OZi2ayGldho7I2+1pX4h8MTePRp1jzhPaSFL
J2EBj3sZb/YHTIEcOB5rrszGY/3X9n2EHvV0DujmPV7A/wCZSiBP
                 "]]}, "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[
     GraphicsComplex[CompressedData["
1:eJztm/c/lX/4x0lk1adQSUNo0aRs9dISUqhUQknJjArRtgoNlWySsqOyZxwr
hJC9t3PMMzhGOHzv76/fx/dPcH45j/txr/d9va/rer2uH55iJrbnTJexsbHV
rmBj+9////t7aGp9VG6bOal50WKywSSItOXzqnHzXVGk/DV+F1TuvCANc3nW
rLr7nvRqU514xFwcWuXESTfbI0gCFNnHGy59BmXrzuVtNrGkGOc689thCSiT
3s/Q2umCg6+lNu5eE4P2/RefhTd5Q3xEijZw9ivmpxsSI9Xvkiwzhp5fMP+E
Y8JRKya2xpKkGznqS1hf0D8bvu54lhuJW1DM7VNWEqRFlheOnPfBV49fQjYV
UQhxyPe2LErHbJHRo9VV37HykooZV2YWBFRMppL+y4SJ+FpyrXIWPmpLpT4s
zYF0ymtdY98U3CYz9pxMLcSR2otf1E9nQJJrfC54Sw5EZw+Mjkr9wK6q0ply
mRK0Otc52Gqm4ifrcl/Su9+om803ktqRAHOb3/eKg39DciFwWfTqEBS5BRt+
+VMIm0Sb69nnY1D1LP5wX0gBOlRy9lovpML7i5ZE/aoSKFWM6ic1ZcCqVHu1
01gRKB5n9H6cz0TBhzvnBmyL8dhaciZFOhkfcoN6NjBLwDOzrPjaORLo7xV3
l2cXg3S2ybZTsQBC1NgunYpSDLK4lTcVFWHfVfpjofFqjIdcOvupsALzJe2N
79c2IFWC0hLDUYPhrjuDs5X10GX8XPfStAZCLSfz9q9txLi9iNCb/Q1oK9E5
tme+DuUT+d8LK+own3XIPlO2Efbxab7rLjZi082+1ybfm3D1vfr9655NEHq4
vnCxvgnWQu+1KwRacPHEke+X5ZoBit7thltNsI/ri6+WacWzinM7a1vrMcU7
K9Ce1wHzI3rs99/XQ/P0YMvWQ924yP1qN2dOI6y+rNxvfKwHkpY2Tvoizeg9
eHR//M4efLu2J9lhvgnmp/Ylatl1w8aS18DGuxlDmjb0zy092KBz8ZvjvWZs
+1VyfptUD17yv72mPNEML6vY9zHHe6Acnd1q3dSEa+bOKEjvgfBPvaunhhqQ
MdrZeqavG48ehT1XmW7AdW+ZjTxC3RDfu/XaC5dGrHUM+FZ2pRs5Cg+eHiPV
w0J+p7rL7x74l3eh06gOpJc7nO1ze7HcKcJjNK8Bo1k+GTZKPTjSY7bs0PsG
vGf6i1hW92Jl5E2jawpNeKr585SpWh8uPmlOj3BoQOD0Wf7JxR44HbcX7nzW
BM1851Ntoz2IK79PP/ilGU/tN5QX2fbgzYk4c7nRFnz6vi5h6/keGIvXWJZm
tEHsc104/81eKFt+4A7LaIedfQyX0cce1Bf9N/KusAPRX46ONxDr4feirSsZ
a8PH7WHsIs964WA+HbhRpxt5/pFf1eJ6kVJTaLzhUTe8Jnj7pK/1I3Fo4566
t90Ib3xs6Frdj1N9yXV2T3owpZNjI/SuHy8l9ZZZaXTjpUKd3/qkPggaRBk+
ne9GlghLUMWmD5crdp15q9KD0pnZXO3YHhidt9LuPdGDKLPp/SkPuxEY5A52
4n1sh4dJ8Zc7YOTb5rJugThv0vN74VELFE6oZStm9KLpqZv6hhUdePnxBHWj
XzeG/Yx2ycq04Vd7elTA4x7kihzm5f3VBp79JWdP3upB03sljrXPW8H5373W
ovPdsE2cqasOawND/nvERtdu8ItkKTjOdYJrC/3qclY3kngcq9c7dsFigt2H
e2UvwtQ6b+7L7ob0kyMkjelu1Lb8E2mN68JRlbs5qcq9iImsZtPL6cTZfxbX
Wf/1Yn7V139Orl0wudjLPWXTgwmeW/cu3uqEkNro569Xe3Gr683C0Xud2K38
aMOJ4h5kPC26MmTehv9Cpz6rCvdC4aRX+tf8FgzLDC17KtKHjBy2zn0NrXDc
PnJHU6MfvieqT4ct60SmfxVPWMIA7rQ9eRuX04749GUKJ8P60eUQ+uSxQgfy
V1BcuOf6camuy68tuA3fX+w4VpIyAFU7XTmdZ60oTQoSu6EygA0KP9gFiPML
/v53TTMHQDX5oUjK7MYPKuWrRuwAXP6VHi0S6kXjHV3B5FcD6Dlbdpf/fi9u
Ltr8S5MeQFvWY+8bj3qRc3cqTqh/AJ6cHCPpXj046lq/rbuiHz8W17wod+uB
mIzY9vqj/ZgeclQ36OzBadGnysfN+nCpKo/34PE+SBbw6pTe7sVntt2PVyX2
waLp4av6tb2Av3zX7L4+nOr1XG/J1odg7TXCm9X7IFtn/EflcC+exd6xFVfo
R4P44VWuR3phVNc0oCBNxnYS39bEMz2gWdT097ZRcH/zs5N73vQiUndQZzKF
jI2yyi7KYn24qstmRRkbwCRJPC/jE/H+we8vPxsOwOjIbvF9n/pgZEgppa4m
Y2V9nB1Hch+mNWw8kkMHUGMV17SFWNfQgt1bhZwB2JJCZpb39oCz54Nj2u0B
jFfpGdzg6MUMw035qlU/+oe/yUjJdqGKT8HhADcZqee6czN+tEP1sYJ7vggZ
fqLrjtlfbcfeqWFWPXE+wIr/N/evVvAlp6+Wcybj0ke1yiLzVtx6tetLlhkF
xma1m+6da8K+7lPpkyfIkHJRq60JbgSGZDY9a+sH49XMFUELog8/YqvViiXj
8msPgbzENiR9KJIPdKagqVw5n1najhyub9sKoyjQmXqcrNfWBm2LDR9vv6Pg
nx79jpkykYe5Vdr6yRQ8+Hb+1I34ZhxfTG24XUBB6vXzG1+ubUb9x/fB63YP
ItROdviaZitGjE6OWmwahPTLP2qPqtrgxxcVPlJOhiKH1E2u++04mqC/7cFm
MvJLsx0X/brAiEh++ch9AF0LKWRzj3YoB9qLGdX047QwzfaCC5HXdld+b9Yb
wN31/azOAx34Yu5/9UYUGTxFNzv/oA0lOysz7UQGEXHqSXLvrhZQL3/iSEgd
go4f15sE5xZklb0VPHRzGOe6HvveM2xG8deneX94huD03MasjdaEnhihzJof
w+B4rOBmROiHaeXUwttlwwj5IPd2RXojRjbM2VNcRzA9n9d51aEVaxaoYnWR
IyhtPHlmcGULXvF3ULTURiBn47reQ7IN223vfJuMG8GjOAFfmZ5WSOuuVBR8
OArsqXH+5NCC5DcnAmLSR/GQ6X+l+VYLwko5vqpuGMV0x4VILqFWGJftd6i0
G4MYbEgV2q0QdtqyW8JjBAGto3uNBZvRJlj3h6U6ioL4JF2lq42wtRuuXh48
iiMD1/s03jXhr5M9x2X9MfipeabvPtEIfpePWgMXRvHgl99eudxmrNrE2MaX
NgrxPc7/BeQ3IPpc9k+XhyPQiDycr074ADvujR2xEyM4fuuMrkJULeSsSP7X
jYYRPPExeW98LdIP5wWQLIZgekuZrJJZDyfThIStk0MY/FC5bp75F41ePxKD
Dw7hzXjDDnHBGvi1HZ9OaxmEby/7olBAJVaI1T/LqRnEZdl9g1Ucf7DOs2cq
XGMY7+SU+JefLIOMTNi/s8pDODFk98v0VCUSpXQ4JGnDaLj4O45+tAKLModP
rhcYwbV1l5e7u1egolBij6X9KO7TTpVwcFbiGT30J3/YCNG/Gq4485UjyVt7
/nb6CC5Oh3834anBXsWsSC7RUeyCpIde1B/0WAeVy9JGUL8x5azYlQo0kB3m
7UuHofE5sknDpxTKFZ13y++P4HyV28PC4F/QrJw5Maw8AupVjO9RLoYwmTf4
C3UYlsLDJ4MOFSPw1sVnEXzDqNtMvvZApwRGL66ugfEgGG2Wq827S9Cv2Opa
c3IQNxuCLl9c9wvZT8QvJGsMwked/LFhdxGe+IbpLjwnYx93wi/5yXTE5R64
+esbGVfU+gvVzyVDUdW7nL6KApsxqSfeW9Jw6h+Lrf0BBSUnl52RoKTglup3
Ej8XGeWyTwxS5tPwe+rZucdVFCQwdUz2WWbCjSRVdqiRgon2quIC+xR4n/+Q
UNw0iOGtNV8Oc+VA/rJ68KzDIAKNfWcOGCdjd70BL1/QEAxNNqwYHk5E4u+n
bWyHB1Gv1q70micSbBV2VtnE963Xk3cXoiRgQDR7y+bUQXCN3XXP1E/Hhh/a
rM8ixP6Jm2SujyHB1cfZW3/vEFbbzYREp2RCQtSCf+c5Cv64/vzpbv8DBVEf
lcwwiIRrU+JRtxNQYrrWR//rIJT69tkUxKfhSczXPatVh9D9JDdtsCgLZ9O4
A922DkOu/tYVikgeDkVoT5hKDuN1JFM1jZ+EGfVM6Z/fBuFZJLlQZFgETr/m
hW3E93t9cBwVLsmGmGpW2YYQMoZ1/bt3iKVjcOVvu/3fKBiN0R4sS06DY3q7
LI8VBS+FuW2uH0/EPr8x4TqxQdQu+00enExAzGtrjVxlCrT/25A70RmFX1Ou
OwQDKZBZse7S9g+fEe627VnlnSG885i59PutCQI/XqjZkUuB+Kss350LIXho
USCVkD4Ia43rz6Luf4aXbnb+ihuDkJcuE2J8isFRoYw7yUQ8yTO5V83mM7D6
pMqZgC9DsH9bFZ60sQCluwu3V14egqvbifWVf0gQefm335k+iJLCrTsNE3LA
wzDsK/cbwoioz4hdWhrYrh/NuyI3jG1iv5vu9uaiPJyLZOY4DO3d42YJY3kg
F7IPSRP11eUXE/uq7ScUxOKX61iOoNFqufAZyWgUeujzbNAdAz+l9w0t9QWg
8LTM6+Uo1llenfoeFwj9i8WbYz6NQK8k+iz3zUCsXlaxq+DZCDK3HXt+JtMV
do9HW+L0iX741OaGS3si7hxcNfNx1SgiDjaWbBBKhpqVxTT/7yFIkHzzCpp/
wN1Agv+g/TCcFPtM5vWjoH0od3+d7BAMTn9awyUWhPCjaqS7vUQ+/Hn4e3mE
C8x4x6r5p4ZhmKr32ZorBmecRh17iP7zSjpuwjQgHnl/alhidDKK9t4ubI1N
IvzqTIb4TjJ6KzlGfMa/If7i6A/5+H4o/Fgn800wDTd8Nl32WjEANpVDD2Rv
kCBE572s2jIAKQPD8/trifx5s+p7cyAZH7otLt+a/4m9P7/FPBcj9DQ1ROWu
RDLIcpwNNVODyD+bWp2gm4pwZSEO9xYKUmweunyyTgSZY9bYmYvQ27KTIum1
3xFdHeDYbULo67z7VenlmZh+NuL3vpnQu4E3am5d2VC/IFik7UWG3o7fuzSf
F4AWVGZRKTUA5qpG0qRKPjzJ6j5GY33gOlkrGX6jFJLZdW3TmYTPEVU467W/
DNPdNvKcgoR/qdW2ZnpU4jh3jv/zf2ToI+TuQ3oF/lM+cc+2n8hP95VZb5R/
I4XEceDYDwoChoPulOaVQm4Nr0D6FTKC94QK7PxdAhXF6hG/I2Q0oLKF+fQX
ViVRdhx7SIGEnlV4uFEpHGvrzHntB7GLVbCwIFGCto+btpS6DkJ4v+uhbrNy
ZDFfaVetHURKHZLnif5a9uPv4Tg7Cn4pB3xnUyvAweyhU0lsRH/oOP2ieXU+
WtKlV3rSyGhz9FkU4spHvcB4Yi7h7zhUKnK8JQqR/Ei/uYrwH++MJjkW92fi
0pNy/kGi3iJ51rntX1eAVZkmNaFJZCSJrOuyS0/EzdweA3UGGTWjUgfj+9IQ
a79GOrOYgjX3bhvF3MzCkSyrbWwBFAwLWsktvPuBktOnwtTUKFCgfSifrfsK
Cb5P03G3ycjzOsxVIJ0IT40rF7dZkjEuQ9I5/T0GHELNa4zGyAi3JG90/+kA
2W2mBf5aZGgoaHoLlMdj7d4/J5enUfD1zvG0St5wHNsEoQK3IRRvi+3ZMfwI
1cyfs2PLh8FFT4oy2huG67lDwc9uDYOtn98wecQVjfRG77SOQax7t/2zySVL
GHQlf+tiUcAW4eo4VDJz5KD6iVXVtyk45R6jUnLuHelhNn/y+uZBaPxpEK93
jCKtqr7fzxM+hBlRT9bYhdcksfOU+muPhpD81MaCouJLclpfXStdMwwdvQqN
kVEvkvKA78XtzUNQKvPr9XnrR2IW+Dg03xqC834uPYnyeNJI8KbGmURCb/pO
ifQl+5PO7bpNfW00AJ/dvyw4F7+SpiTleXYRfnm7yMunQkgg3QsxGFGPI+qv
g9doW2ASyWBl295tSRR8f+KWsHxDGClMT6LpcAwF0X2Oe2wT40nJKgMu1DIK
el6HNPccSyJp3jPWbU4gE3O/nhtHexxpTiKYmqtDhmp6QcrbrBzSnZ6+vnvV
A6Bce56m55pNUhMN9OabHUDTbS7depefpIa7z1jtmhRkHfr2/OVsJmmucoXU
+awB9BpmOK4L+0FSdWKzUvUlw304sXiZXgASx2RreswGUBbFDba/lqQddk1B
V8oGEPb2w8w/nWjMS8v1xNsMgHbel4OHIw5MrVHdC2uJfEiTkjK3TsIa8b91
+d4DOBsx6vCcKxYO21e7XP1AhuSH/T5ih6Nxg+vAwoMDZDyCIW/qRCR6XdUa
3/WRwb3mt+fXygS85ysW5xGh4MXZ5Po7vanIlIq4fJyNDF25zga/vckoyP3c
JPhwAMubHp4R+pkE3YGq66r/DcA0i+vTms4fuEPZEOjp0Yd1155aiR6Iha/P
zmjTuD70GQzuVbJJRnaPAInqOQD6yEbXwtWh4AidmE86SNQzJaH+yXV/sF7/
3VB4kYJdE9V6zD8OJH++qrGqjYNIK3KaNztzm6SsE0fRJuqlufZIb5HqZ2zb
bjEZYjGIbqrn2on3ScjSj7L/5jWEEtcxw/QHX5HXFfhoVnEY67W4zsyEkcA4
dSS/mvAjxvrLwm8+ygJJk6amaTeEHg3qBetfuXCtvdFt5DmEk1IOx88GZ2LI
qOGg+fFBFK71/o/veQ68dugncBL5PXlKY39mXBa0zbVCPcIoEGRTKQqzjEHn
kVS5yieDaN7XoN0r8A6XP8k7scIGsenh+cOqStE4cMqnoEp6CGYW7e8VBFLx
mUamH40k+olIH7lXNAslIkbi17YMYcdTpfDn2gnYf7shSf7aCHxH8kaftERA
8J2ry22dMTx8zxbCttobej7sdwsqR5Ftnt3CPfERZ7+6V4hWEPpXo9DZ0uOD
w526lICOMTg+tXAR/peKbSLmM4b3aNCbT5FJ/poNfrY8e43rdCh9C/3wWPcH
dG+9Uu03YMBPX4V/6mYaTEIrSr4nMnD5miOlyiGO+M41Qgt7GAhevkdglX0C
tHjW2YpO0XEzT26x2/EVlqe7cTarM7AwJZux73AKaXQwVGsXnY53Lo0G/jmJ
pH9jqWlb1zOQK71tOHs4nFS4R8i5S44B+v3YW/FuX0gGUSJbzooz4CzwRFC3
OYCkKevFGV1MR876ayZsa8JJ+R2enWURdIQLnF51vP8JiediFPt1ezro46tW
rZZWJr2IsZN/wMbAqcgV06S0QPSgsmHwBB1dEx+47ytE4bOboUU/Jw0Jb8zS
Qx1S0Be3ixqRM4YaG3XEBKXgyF368N/8UVhl7ctnULKQ9uVIm6TZKIprXXmG
mxPhX7bjjcryUVS6l08aOryDaLGq0D2fUfTTAtjZS8MwvCnowYktY7jeb3eL
0zMNYRWer7RaR5F+gl2ajS8Ju21STrO20+DarN0WlRQOrchaijWdhq0mrY/E
n1viG5vlolEdDTVa1Ods0p/gadW04ORCw/IdO+PZbe7hU/XpqvYFKs4qZOy6
8OozydWf8+Tn6zTc6WB/kPL1DemgFKn5wGUarrAHje5mfIFo2oVHQg+o+K5T
893gaxB2ZsWICVZQ4W/U8jj6dwj8X7u/O+VMRbhwcOKYhQnp0JoNhdfVqchO
7grjcnVE90k/4Q0rxzB4xSfpy7gtaU3Gy78PV49BpOb72pTjPnjSen2YNkvF
le5mzQPN6ZCJ1PQqnxrD2NWudRFy8YivpcmtY6PhrvB4dcm1JNzezeAS+E6F
d/XmzTErc6CUX2Nzj0VF3s6wwMQV2egSlXF+XECDmXhrxprLBTjzRm2lETsd
c9tXi+yZzYUb0+vngg4NyTmyz/8lF+B8SoShVCMdUcc+Koh9LcQXVx6vp6N0
rORfrSIjWQR7mnmyXBUDSQUbu03Hy6C5QVWjZPs4ynw8tnyXrsCJYj6eT80M
mBZqMtlDapB2fr7tfRpxfcKqHcmi1dBQSjV4cH8c9zJXO63r+YOT6iujS3eN
I6+Rnz3sajUowy/OxAeP44vsHu9UgQpMn5cWOD07jsOrL7Lvc6kBs4Vn+67l
4/hn8THsnnUtPHe7BTveYuDWrrfGOrV/0XppddTN5Qxs7alYKbr5D2KXyVhW
VdNhM6F2IfpWFex7jBWYrnQ8cp77b7ldJVa9PK7ffpuGL0YH+v2GarBGl6Ng
nxAdSUezZYV21qP24aq8ckUaqDG1pKyIvyi0K15/1IOG/17XcG7Iq8Hcm7fv
fxymQbl78axtRA1Enb3ei1eMQffhfkZIcC3oB/rjk0ZH4BWQVmO7+i8ucfqG
VAqMQiVQFQ7z5eDw870l5DqG4OeP/qw6V4mexbgTR16MIQjtoh51f/BtuUd8
+fQYuOS2V6VYVGMgfc++10lUDP+b+btaugqLrwpOHiXy0eSZLHO/BnH/iUOG
9TepCCzblMR1sgYutDOZLvU0hOWQD7Ep1CLB2Fe7RZQGlZYywwecf1HRrb/m
6CUqqD8bXHXKykBSeVy27wkNxR/637dmFCO2IrVXQoboR8d/raBm5mOL68rX
7xKJ5+3pm+O2ygHf/aKs41/osM1iEzI2SMFR74wCNh86DA+QFL2PxMMsP3tY
qJmOFc0t3eu/5xJ9mbxK2ouOzb9ftHpr52KlkNF/levpGOX7UVLklYddRZWx
gdl0/PhB4zfMzEWojfxvK+L+ngRqYmVUPDZtYX+0MYGGMSr99qHbGVD0ur32
zD4aSu55iismJeMuX0bIgzgqpMSTX59U/ojn12fLhoh+szUlwODgFwfEvh5+
W6c8Al7Wy/8C1tihtEPuReH9UWIe6X66+CkASqmyYSuExqBleqvCwiUOnLOL
fLyEPtQLtzeEtodBPLJ5i98+Kuq/xj+oDIsglYUu2/y7nApnRg9FPO0Aacaz
5Uxn8xhCzbxKHlb7kp53T1om645ip7m3pePRNNI4/xDPbYzh2puvz4duZZBO
K8jApp6K1yktH36uLCSprWvbc4adinknr+0CpSRScpsyt6TcGH4HvvTN5Swk
JXKNqFQHj+Hwna4s3f8KSKsFfjUeHB+BWeEeWc+Yn6SqquuPTzuOYKaUU/ac
RQ4pjO7X2hkygqLqczvNc36SXtFsbeVmx3DqtkWlokU86Wi0GJc/sf7C1yt+
yqllkdh+WkuaBtMgaWrnvoM7l7SpXjX1uCkd7eExVa9ss0lfPn18l/mbCt5u
kV07/mSQPu4/e7M2dgxK48K2u0bTSTmFOlnLM6go5Z7RGb9RTJr6MMD0VaIh
/c/iW5z+RWrj8t7Dt46Gby05nkH5pSR7fT7rW6/HUP7I+bL43mKSQOrhppvO
o7hKFbs/MlJEurXc+k2tyyheTl4V36leSJLc2WYfemQEiWsdDOdMkkhmBd7v
5pyHoW62Q/HQnrekyoBync6UIdg2p+0O3uRDqldW5P+VMAS+wGTPf4N+OBdn
eKh+5zBc/z31KOJ+BjZ27/0Z2sOgPFymqWj+mqSo8M1T4/EQEmVaeaxE3mGi
/dY/2o8hmH85kRa3353ko/7o4kzjEGK5Oqx13ofi6+Bd9TMeg7gc4iF/87s9
6dV9l9aQpEF8T59rvtxth9tJ2qc5xAfxmP2F16X7X2Dcdi2oP2IQYuGXpQok
UqDZ9kzL4TgFe7Yuvzo2lI4flJs+ff/6Id+bvva5UiKcXt08JUD4QXVTmt5M
9XewH4xsTW0dQDFLLdpG2BmTYS9X5rf3Y8/9rjUnTjrDKZ/z5eZ1A/A8xmqY
Wu2PBvercWLmhL/05nnGUf2M1GN3OPUJLxlWHNMlvfsekA75hIhrPehH3ty9
L4dKXpGeBEWdq3foQ9i3R5zUIx9JiqSMA3e6e3HM3U1D/KcLSW/DDc/0rF5s
0dphZzgTTyqTy0gIS+iBmrItvfZwFIly/3m37eUe2Iec+9PMl0xKlklVr/3S
CVX1NRe26kSSvDxyf1nqdUD1+/Y29qIzJDd9r9bbB7rRGHRLRK/dB/qZ1uOS
Ym3YeqeI0bExBhJqZYw1E62Q276eR0gwmnDZV9Te93fiDtczy++RIaQN+Xtr
db+1Q/iSiT33O3NSepdKOodUNzqlz8la1FiSjB7d7qcNd4KbKn1V4EMY6c/I
XQ7+8k6kur3SvrsymLQYr/lLaU0X9qy/pht4xh1F5GgXV8Fu1Ket/Of96i5J
9VNMq7dIN4S2BPS/EAgnuS3Qd0md6cKVOL81T45HkiYXNTeyf+9C692XGn5s
SaTJtapMc2o7arM2V2zfEUHaHi5R8F9hO7oqI+xXs/uRBCwei5553Y69k4Mu
xw4EIr3eOjLKuwerDN1q5GddSeWS41pbXbpgL5Ld8dsmiJQwLnAj8XIHHtmV
97vYxJKuX7BJlbHpwi79jpCHqc6kQrumT+/YeqAqFvB23CCa5PV0vadLZjdc
UlOi4o7FkuxnO2jpj3tAGzgX7qEWSjo2YOUl4NmNRD2JPu/H10g7ORVlPzl1
I/oex9r9ignIr1BikA92wVZdtJPb+yOGS7TLrqR2IszivOvT2EQUvHRsO83T
ibNVkqdv8ibi4P0ZLzHndrxRm5J78DEWwduOhgTmdUGLf7eUSFUiZi4MfLr6
ogcLLn/ZA9tSIKRzu333qV5EzBvvXIhJwnaKZsol7m4cqXmZlnAyEQvNRy9H
U7vBpiyTev52FApFl5+/86cbuzcul6hJicLBxyEz/Gt68GZr6kP+ykBk/zaQ
1j/VA/ZA1/kbH1MwznvBTGlrD+50Te2rVI5GuZMN9UxJL7gOiWq6/fcdE5fU
hw739cBX7+8J/YifCFZno27a1oeTf2q0xvYWQ3m3ja3+rz5YDqSyctSKQY9k
Bnpw9mMn0/T7qa358Lq1mj1FqB/FnTWngp+nIPBbvHDM6gF8v7D1UfG7HFSq
51rbLRtAwkYKTfJDAe5UfI0wjBnA0/Kt9dsLi1CZl6ez+fMArjJ+W8YvK0dH
x3fB6k0DcHVXmNr0qgSb7cbu9C0MwN9j5ebXocW4E37SUukbGZWZnW+l3ufD
N17WekpwANKKe4XnNNJh22v/oWJ7P2rHPBo3TSfj8q4qRwWvPuxb1uV541Y+
mlf4FQTs6IWet9nQ3uIyTHqt376puRd+MY7HzpmUoaGkIGvWsxfujQYn6V3F
WDdetYMy3gOvmicap/ekwEboWni+bx8q2JV/n2uMh2hA9qTYSB92chxvtZ/4
isRPfhJWif2wfsQZxPYjAzq/5rvehPXjqK5B/tz2fFw27rni+nEARpL5ugnB
+bi0VTdovSUZsx8lXF55pGHDkP3zDOkBHBIuKr+yLRm7w2nZIrcHEJT8zjfv
fiws36mI1YwOQIsvnlvvTw68DwbEKHqQEX6mnBnG/RODpZKDj4oGoMhn0E2a
SMWJli/XfpIpCJ97WMP/sQhnep6OO8dQ8Gpzzzp12m/YkWRIZq0USA/4JzSb
l+LEP5l95jwUnPI9u9GU2O+txRNxnhNkvBQNbcgx+wVR/l06+TeJ+f2Or2xY
XSEkNBtWrLWnwC1+IbRvfzEKZ0qPUnMp0LSgjp+1KITovxS9lQYUJPz7kf5h
rhgdbknvRJeRURLscmrnvTL0cjll/LpCwSYjK18V9ho0mppP11oN4ph/krGO
5l/I0M9fyzlFgVOtfrLpqxrU5P6UMLYcRN6k8UqmRwmajv24/9qdguxiNo1g
0xLEp76/6VdKQXXyD6c11DLwpjIubybm5+7j2z+JFRDvVznrcUpsEJ5BM3tE
aL+wiiq/qErcf6RdaJLqV4S0yDMh764MwESIIZMeWYTar3UPxqn9UD8sY3bn
RSnIZEa4Tlsf0lo1XlwVLMNId0A4D18/thyMrl93qxJb8s+yYn4NQKDIJbRW
4C9mDTwUKtPIkLVMlwg//BdBwWuz+5UoaN+vyLY9tRqN7eYiGzsGEb767AWR
hL946Czyn/p/g4gzmq6w2vsXZJ0MRcEUCtK4WVpPmX9xvCEpNNSLAut3VzZ1
L2tAR3/artnvFDT+x6H2sLYaWavtOzfvIyNfeIbnxdYaVPSGnhaWJuPn3bW8
PvRqKLhNVy3YE/nCGSrr4VYDtmWuPeYWZHhrZNz9T6MGiUZhibyXyfBvLV2l
Y1UGS4nMtzO/KdBi675ieaYGJxkXtHNbKKg5cUvN+XwFrHji5WyaKBB/7um8
n68UnIViyxbVB6FQk9qeaVaH4mHX+1cfDGJ014p+a4larA8Y+LaTRaw3WYk/
SbgOiSec1W3zB7FtmUPg/me1iPuwz8/ozRCiZWsnHzHqUO+Q0JxL+A+t0x9z
86ubYJ13q2pj2RAE1OQz2Z+3oDex95UG4V/PDnI/ztvUgm4lqufPyTF81qs/
ELyuDYZxfM8d6segGvvj2PUPrXhszjZm+n4M86IHm/nQhbbrdZQBZxru75E/
e82d0K1vXyrQSAVQL7vFtA3DOlmrSPNUnH7NtWybYyvMQ87w5BjSIGhRPrsq
pQ1RjjzK5mtoKIsc7HzQ3EzUcZrXw5ExLGN8igh53Yr+5VHzm0PGsOPmf77+
xHrfbTj04JnFGI6bKHbROzqg0GarzbdIzBs8MQdtejphZt58uUKaivPeYndp
zoRPCM+J4q8fhcGV5bPNhd2gW1ldno0ag49ZjMlfahc4xaa1n9+nQk7SbWET
Zxf2OXIIFFnQIEAxTZsU6Ib5uQjnI1fpcA4SUtwr3wEH93W/zwfT4WIksv5i
USuinwzrm6bRcdKAFrkxow2NXT9KAwUZ2PMgfEH0SxsiN8iXqIMBM7Ltek3B
dqhJtRmdm2fANmPXJqWaVqzpul4+0sqA4MaVWX9SOhC3pzNg1ncc3fvkfD7b
duAG17GjvA7jOHp7E+P+xw58jzI/HCgzAcmh++7iaZ1QajfJeZ8+AR1tOfuD
mh1Q9hCYqA5g4sni+6SrCh14KEjORTITXRNz3cHu7YDBU9HmBibMbvkKHDja
htBSkxjTzUy4e+W+lq3ogkBQ9onmjgm0XGryeV/ejglZpSx3cyYGGYMKLZHd
MLqUdV1ziInS8PaWtIYe5OReTPR0ZEKgjVKnK98DuRHje3vvMCEZUUTfqNuD
ogh21fyjTMT1lIi40LpR9F/EFSGpCbQxrwi++tgDywv18zZ8E1i1l9d9q1gf
Dr8XNh0pnkDely+N3hk9yOYK3Ru9gYnJwhNOOca9iOy00tNayQSb2W2dv/m9
+GN9tubB5gkErHewSLXqg6HYiZRppQnM3PPhfKDYg2U3BHtXqEygTGGtu/Cr
HhwOrUiReTaBeJbPQX/nXkhvcsp13MfEU/mRbLp0H9R9hwwTDzIxO35jrZ11
P5Q/nmTbmzKB8cDpuK0v+zGt1W+lRayfu+6J/Zn1feBe4cl+dNcEfj5+oh5v
34tJjcwFdtMJXG2pWz8V0Qe1oKoX++9OICN1R3GCcx/0TYwKlRjj+HN0/VWS
zwDCGV6nK6fGEeL2b7SBfwD7MgJiz58cR/6UxpuP+wZwrlzL4FXQOArnvi5T
qSXjvskGnxYqAx8W3Kb7aWRwG0erLPCNY/Pc2VXi8xR8vc9XVrx6HAfSK6ar
ugmdEo2/vWH9OI4d1NstXkDG2cI7uToCRDxeCwt+NBvE9Qr2sarcCWgX1D3v
5xvCti2+aZRVRL4YMN/8pziEvDcN10x0J9Dew6OvozyKf88O813wHAd3r0iM
Rt0oBmqfMBpsiOcbfLHz8SLqpvgi64nFBBJme9VKVagwusEea/NxHKvOzh+R
ukcFfSpBN9h+AvdaD5EVxcbg/3NgS+zhCVzPmYyhJ47ifNEc7W7uOJZv4RjO
vzmGW9yfJ6lZ4xBzEFI6SB2BvF38t97LRD3s5fuz7csohtMW2/5LGcfp9XYt
j/XGEFb2Snic2P/MeyOycyFU1EzseBEkNAEu53jrHRVjiDuSNHVgdAL2o/rh
Mg5UCJvEB0/tYaKjIlQLYVRobkpdr5vHhH/n5BT/iTF4Kpwx/6RA5MOtQAH9
tGHEL+dOitdkYkOdpp6P/gie7/65U1KUCU3RA2nXnMYguXzG4rIQE38aPabP
hY7BnV/t6dOoCZzmvyUinzAK38tpLz9KToC/P2Vv2OYxKMx/4nB+N448iRTd
VOlRFMrqF/3dOA4LGfW1h2RGYcxu8cdoYhz1L09LcFmOYXFIkD17cByH7ZSe
ZtqOgib91kOZyJ+ZHz4vrseM4ciTTdYKByYQJFL9I0qQCjMltbcffCbwRmPg
s+MgFeML3/adz2Fi8WyY5PtDVCikXns1SfSDQi++w+rnqTA8EPXhyJNJDPZt
+ajARYMzG3+P/uMpXHM+91biEhV+o9NuQyZT2BeDW951VDzKUfSiVE4heq5N
TCBvDNF7TayXb59GW+wCx9WcMRS11kT4O04jUfaVVxkRb/rIDK9t0jSCxJ4U
d58ag9xLezdH6jQqeE1WlEmPwWB1Dn1H2zSsY5395X4Rc/qj80lU4voG+cX3
e2ZHsdfkXDlDcxrqzAKuMbMxTKz8byAnfxp+g383yYZT4XYzJWPcbxpHtr05
/M2MWO/YNsFUkxnkBd1lFuYS+fHUN9dNdgZm5x8YbWgfgwrrbP/uymn8/cXz
RcGVBu/5LZX7BqfR010usGk5FZF1kvOKEsR67hoUmI6MYqLg1B7enCmw52lu
YF9B6GLKzjMj+VMI977TsT56DDVP7tvzZU1hJTkGV24Tz//dlCMQPgUmTaCy
/C1RPzkRccmlk8gvff64TZEKtf2j64P2T2Oksi9p8TcV8aE+24IPTOPenUJl
ZWs6+FVCbboXp6GUF+H/m4+Bso4nU/LiM3hj/4zPRpGOrIStFqarZ+Bir68c
+I0Ov4/yj0p3zKDYeFXVpkt0/HIKG11/6B889y6+PVBOh+eakNcqn//haOLd
83k1dFAVio766M/ijFeVzQPJcfiK7pWS2z6HQjPqcMYAA5EGzpS9m+YxARnm
Yc1x3KtcZnt47zyYb562ehB11XYrTzh/cg4WPrG6BUfHcVA6MP9Uxxz0Kck7
jnGOo6K9zy34yxyu5ggY1nIx4LO/pNovYQ4ZXts79gcwkF9t1afnMo/Qit6m
bx8YeNZrd/mexDzeWUbmaW1mQNw03uSt7hyebtXdbOxKx52yNJbN1zm0bZRY
LDvCwPWT3nK+N+YwsO/My72PGPgW+7tj/9E5DHppPzWZYkDCdLkI1WMOs/4M
WacgBrz2BZQ5HJuD28XoxlMuDLwv/MJbuWkOlq89r8dEj+PxLwlRf/45XNvs
9p/0xgko1foV/b4yh3WbpcjGi+PYHneF19ZwDnbWuVeZxhPgCGYdTfowi6P1
kcHiRyfg2UIP3V41C41H6wbZjk1AfY+/FmvlHNwTvPe+2kv0ufutr3cQ61l9
o8hiv+wE/DiCvuYTz3tfsz39nRZxvJa3BtLzOHbA+rXKy3Fc0IqgHV8xj6uy
ugMyN8ZRG8rXdUpgHraRTTcSVcbx8EaXatn2edDttj6UMGYguefUs3CVebTG
HymXaqLjjPxhN0/jOawqeJudW0DHaqUr6Suc5tCy0v088wDx/eXjD8ui5vCN
xrzd4cfA1x/bv3phHtmDt17EKjAwzf9pG42L2P+xZkqABQOzro4zlY/msTo9
T/9PJANH3ns2Tv+bBz9PQxCfwDj22ysLezxjQT37fIppJgNX8q8GZy1jYVhe
Ps0wexxbMoeMK4fmsWbDAvMy2zjqFDZy/UmZh8KJ+oHNlHEsMC3yLBvncWJF
k/S3HRPI0vImF5xhYZJmQdEndOvlTmfpqv0stPoV5PrTxyGppTWrVcaCoo6D
3fuhcRivtGdOM1gQluRP6Lo7DlVrp9zVRSw8klHn4b85DkUZ658mF1kgsyVx
uweOY5KzUXzh0zx2UPRWBB8bB8trpSmP6zzetlVs+3thHNlO787HOrIgKrV1
92kvQqfvWLscf8/Cw5GatACFcUjwtDo+mmSB+wmXgL/YONIOzkZtkV3As9Uf
wxTyGVhcO/VKUWIB23rtVHYWMPBzoP6ZIR9x/smMeLwHA/eCpoICNixA4qKx
P5PQbUu+VTUMHxbaHIIf3c5j4KPyC8dDCyy8WHhVEPSHgVpnX6Efmxfwxkjc
9PkkHTULpjZ/nRfAOtHVKifCgIPubVGn9AXcUMt66beXjnvh9X+jeBfRvjFU
9flGBloXxa+qfFzAy/iV9+asGDgYOpFofWMBx58/k+RuZyCjVeisyZsFFFyj
qrTeGcf5wpPdOf4LaD9+/asQUd8XvolfEqGzIL7sc6vLNQY4TrpxMNtZWBig
Sk4S63GwlHT60Urst8368DdEvkSqP9/3mJ+F9tgE0txrBiyP+kWu/TmP4ehn
jyzXMZC2eWbgzQMWrFTCgthl6EhmP6V47hsLCUWcYw1kGh48SJEafryAU0Ll
fcuN6Oh89sORg4j/5v/WpUVR6JjPOSDw/QULdsLGuX2ydFhbKddYEfGM6pRd
f+clke99vtXi/iys9BUenggi+qPW3yurOlkwvr6K8204Hcp+Hwz8t7DwOu4E
7WkUHYWvpUdV6udx//kvvpjTdMg5Gp60WTcPJ9Il3R5iDnDbIrPi1NV5WKmq
HNhvTUNS/AnOdarzSG95T40QoUHae4rbhjyPT0mc1tbLaNDWff42ncjHrJ6O
lvhaGpixvb/Zkoh4/HG7/EKbhjGHb4O9l+bRMmNSJtZHhY6tnPzMiXlcUlO2
8cikYktGeduFsjlUp2uzrSLmIsXe+ICj03Moveb7ypiYgzZeKKR20OfRc9TI
++rbMWy+KPpCfDMLA7+dchSdqLByObtJK4sFie1XfoVfpMHpR6z+j6sL4Nls
vkOURQNlQ+UpUbkF/Czf1fFeiw6FHlGDR90siJFDBsp96RgL2mqYc2oBLt3K
Cb4hdGh/kHJfxrGAYJn6mFMrGPA7r7czY4YFjteyISYSDCwfUY9b+XoBIzI6
GdJjDOTI2H6aymaB5+QVdl1izuGfORG3lYi3S68kv8tXBniivS9qsYj4fdgz
vpnoH0+f6QmfIOo79HboKkEKA6WCZ2NKiXiuL+GM+stgoFdMSkzBgQV6X1R/
yEPC963qXrhxn6i/x4aLT2TGIWK+w+R27jwOKtx3szck+vVb1UOpV1hYr9f3
4OubcXx1yf3B8ZoFjzS5vEeEb93ArlOzvpIFfR72O8n/jePs63c//jmx4K90
sT38OYPw6R95vLrnsf3pvOMpQi/52wbbcjSJ82wXvFqI/PHq/7gmLZ9Y/5hH
ROs5Oo6v2afdfoSFZpOLWlPaDDycUjIPMCDqY+1xMxV3BrYrJZcGiizg19/H
ofcJvVZ3F2vtaGThqpi7IE82HbbiwkpfGhZw9oMFj9cdOlYxOhsU17CpjgwF
cs6ADu+Riw0SEmyqh0J3KX2eGINL0exP67tsqi8EJVUjW8dwMW1R+P47NlXX
pvq8EMKfX+IwdlpzhU1ViauD7Js5hg19o196uxfRYjQpqmc7hgfW0hGB4myq
u4Y+NPwFFRr3x9cnr2VT3fLskrtOABVdD3c8OarEpiolMe5+bBsVEgO6BzG6
iFbVxrxMwi/v8eBdFrVuESlhkjKFF2j4fuiLf2LBIsp0VvQ8D6Lh3tuNWnNi
bKqvDc6nUcZoEA+X30Fbyab6wSXmgcUMDW+tPoqVqi6imynbca+bCl1j0Ud/
DRbQf6fy/owLDcaLF7aon1sEOf64g78DDZm1BoO5XxYx8S1efraJhsT1bTc3
L2NTrbiS9i1xjo67Gwz/+iiyqR64Jm3eFUaHccrnzhEFNlVyi8a+QR1i/0cI
r6HPphr6xkNRas0EQra4PZlazaYa/vK8UO7yCYi1Lfop72ZTVdu48XGe+AR8
hnKDTicv4maR0IpfixNI1ZT9UkMcm5VrhGfcZ+LSv8opr/5FSGg4BInoM3GE
6xL/JlU2Vc7oz25DcUw4c0+ZXhZiU91omxMYqMjEvxen793jY1NNf8PLUcE9
Cdmidg2TLWyqjVVXnD6ITKKlgf/hf1mL8P2huWcz7yTKT5SNjl5YwE7/IzwB
GyZx8fE2nh9/F8AvXL3Jjng/6/hFpuDqRfQ+WR7bLcLE5yyNNofcRSxkuTsd
qmMi4K5I7Ce1RQTa+K95yCCuXxe9Rr6D6OdynyVnvSdRE1ZvcIDQE/m/Iebi
WZNw2LnNrmz5Ah42rFU1b5+EjK/co5wqFsqiNh7b0DiFmCufsnb+YcFZfTsH
59QUbv319GOZsWBgFvlhVGsay9ZmPip5ysLWjJDeg/1T+Lm/0o2szEJK4ap1
6/ZNwTaBjZwZMo/fFiVMGs8kEqV2afQQ9RMUbTWoo0Z8vwrniLUXC58W1SSp
00w0twvPjYazsPFScZ3Z8UnYcq6UML7OgqproOc82yS2eLzzmK2Yh/mEA9uW
Ziam/TauePR9HjTf6QhS9CT0a9qcPIKJfi14bNzIegq+ghoa25fPgzE8lb72
yhRIet16W2bnYOSkIb7uwBREV59WWiD68bnnDe3OoZPgGdHsP2o7j8z2e+p/
D01C2X5feZv/PET64z+py01irZCi53aiP8jJ93lwJTPh4hEk4mlC6N9Nny3G
+5jI/O7X/esrC6dT+9ws0piwv1NR72XKgtrIUFaYPxO8Qa/iqj6zkFYYVfHr
ORO2ZOWTMjuI+O45/3xjExNRLfHieDOPM3sjlBXYp+B0lt97wp2FqFCm/Ndr
U+A76RAZsncBPZQtLv+OT+H7v0ltIUJvDgf3U1T2TiJverqngdDv+3c461r+
MvFLuehfVjSh7xL89Vb2TEzEvpcI41zET7mcqdYbTJhs3rijWZ84trymYijH
hOWm1uR/Pxdx70ywF/PMBLak+1k+YGdT9ao4GM6nMQHVKM/NI+aLaJg2kxQm
6slnaquFctgiHmpSNrc2T+DDq+4WGWU2VbPZt6d7oyewWv769S2Fi7i+NyIp
gPB3K70/3t7RtYA2l0SdXxPE3H7ol+79uwvY985Oz16KiRFXS4u1hD8R5zoz
ckmaiRx5pSQDQj/vXrlndz+BifdSH5M7Ewm9SjiXvrGNiZfiUuzLU1hYrW7V
XNM5CdJx3j3viXinb0lkOlVPQniXdIWwGwujZU/qy1ZPYZmNsmLOZRbKo+eW
me6fwoWA0BLjwXnIpm7XpXlPYbcR/35vXmL/BNvSBEaJY/PEiqzoeZyS55SK
rZmCw6b4v2+OzONu42O6/7FpOBreZhVGzeOaQ3cBe9M07oxzc58j/PuJmZua
Ie9n0Eu9wak2M4f7m8kzHLRpMOvOOvER80jEQH+N++NpZDcFGZ4ZmQP/jn6+
XuJ9ZZyO2okH5zHa98+wfCcxV8dnBf61IOavkWpBn1fTcH5aPtDTMo+C9uLH
F+5Ow0nSkF58j4WfUkk8duwz0DowxjC6TOSzlE3YkahpRN5ytLFtnIP5qojs
ncxpCC2rTSywmcMPjrNyIcT95Gv3/dbsIeqptfTp1pfTsKuzNKsynQc5ZPLi
5kMz4HXfa5JFYWG/+LPtZyxmIJXaJ/+H8HsRojEOxkYzsPaIUmtRX8DRf1dH
392YwdP3vZE1j1nQ6+kSu843gwef7vM+IfyAku2QXdy/GWT/Nd7Tfm0BmseE
x2NTZ2DBU/Iwyn4BAoFddza++oc7gZFrw4IW8NvhTcsT2VkU6/tSMrYuIi7o
2XTljln8O++muCtpEfOvllkq2P/Dxo3rEplGi7jVHO68NvIf9qcf8Igl8nFt
jkLcTcd/WM/9833M80X86+G+1flgFkGhb+ufeBH908vnCuvyLFqOC3odqV1A
yYfIwG+/Z5EfFiofuGYR0jPGNKefs4jUrPq7L2IByw4/k4tMmUWN4c+beZUL
2KSQ7ns0cBa5UTkqVycXEM5M4M148Q+RvB2jxdcXYBodONJ46R8CVr451bRl
ASpGMWkqGTM4Lr88eYTI9zNaK/8Mf5mB9uC9vafVWPg6Z/l+qHoGcs43Rd+V
zONltoCdw9MZ9D9dtEwh4l2Z+NT1b8w0LLOslNoITXNiF1XqXjaDXRmv+3Ut
CX9+Y4FC1Z6BYRtHKectop90ja2mfZ3GBYOwVZ9vL8CiWpPb4Ok01D9LJ4kT
fvtYe6GlFNEfW4doAp/kWSg4GFZeGDGFwiwVXl+9edx0z71kzzuN5hDHvili
/tty/s0zL+L6nOqpLJFYYl5XKvBvo02h6WPhmdP289Bad44ZJD+N47x2RnpE
/hxM2TWfVD2FneG3WpK/EPnE2j0ScY94n8J8hlbcPB5309/s95tEj/9YtKki
C491X9v2EnrU1d6vnfN4Hks8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77E
oy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSj
L/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv
8ehLPPoSj77Eoy/x6Es8+hKPvsSjL/HoSzz6Eo++xKMv8ehLPPoSj77Eoy/x
6Es8+hKP/v/x6P8DwNE98Q==
      "], {{{}, {}, 
        Annotation[{
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.006944444444444445], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwl19O2IAYSBdDbtm3btm3btm3btm3btm3bShpJenavedir6gdOIVHjDpXb
BwoICHgVJCDgTw2MNiAowQhOCEISitCEISzhCE8EIhKJyEQhKtGITgxiEovY
xCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelITwYykonMZCEr2chODnKSi9zk
IS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tSh
LvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8HOtKJznShK93oTg960ove9KEv
/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQmMonJTGEq05jODGYyi9nMYS7z
mM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjayic1sYSvb2M4OdrKL3exhL/vY
zwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJy1zhKte4zg1ucovb3OEu97jP
Ax7yiMc84SnPeM4LXvKK17zhLe94zwc+8onPfOEr3/iLv/nOD37yi3/4l//4
zZ/wByIwQQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKT
gIQkIjFJSEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOA
ghSiMEUoSjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CG
NKIxTWhKM5rTgpa0ojVtaEs7/gzvDnSkE53pQle60Z0e9KQXvelDX/rRnwEM
ZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxk
EYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQ
hznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGP
ecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/iz8Q
gQlCUIIRnBCEJBShCUNYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIRnwQkJBGJ
SUJSkpGcFKQkFalJQ1rSkZ4MZCQTmclCVrKRnRzkJBe5yUNe8pGfAhSkEIUp
QlGKUZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13qUZ8GNKQRjWlC
U5rRnBa0pBWtaUNb2tGeDnSkE53pQle60Z0e9KQXvelDX/rRnwEMZBCDGcJQ
hjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKW
sZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5x
nBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGc
F7zkFa95w1ve8Z4PfOQTn/nCV77xF3/znR/85Bf/8C//8Zs/R38gAhOEoAQj
OCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4SkJCM5
KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85CM/BShIIQpThKIUozgl
KEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rUoz4NaEgjGtOEpjSjOS1o
SSta04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4ShDGM4IxjJ
KEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhazhKUsYzkrWMkq
VrOGtaxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOEoxzjOCc4ySlO
c4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94yCMe84SnPOM5L3gZ5P8/
+v8A0vLxag==
           "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, 
      VertexColors -> CompressedData["
1:eJwUW3k4FF4XttYvUrYKLSItlhJCaXlLIUpCQqVQaBHZikglpbSnsoRSlIpQ
RKJFtiLGMDPWMfsYS7JERXz3+2se57nPcc+557yLZ2h4+jt4SYiJiVGniolJ
ks+wNeo9W8za4bJ3s/oJixIkN0u0hb1mY2BryboUXSZMcrqzZje/B3fyRubO
Dhb0vllvV5jdAXr2gqR5s0owObhvr8UuNhwXyy8y2NiMsxGjnlaLS5HtecSR
6s2FjOcjPu1OC4rd1O5QW0swcY4v/orGQYS/kp6omYEXm6vSx9eWQrRwqf/s
OC5G4ryeBbxuhlZV2sNl00uRmRF+utWYC8qe0S+BRs3ofz0zS3lZKX53z7+z
1ZeLnG7Z2mFqC9yvf4t4V1sCafNjqYbFHDgw81y1HFrgvSCGLysqwaZTd3F4
gAOpBYNKG77TsT793036yVKMnL9oWS/Nw/spP/jbec0oPH3vqKF4KRTHPVZE
LORC757QYNMFBi7QuB0NO0qxyVe2sLaQC9OiWq/89ib0jl+Kk+CVgrnMs+th
Kw8ULerXN/RGtDydfWtLwgf89E19mOvAx4dKns+3Yio8TRZMfDH/gtqr+/sm
twowpTPrsWxfI5bUK4y9UfmAu8ef3nTexMd3a7c5pb0N0Hi2fcfiRZUwOb5d
4suYAA2ujQeNljTghebE7KyuaoS5vt0gninEoSJVX/aiBswwOfF15Gc1lK60
XJV6IURuyquCwXwq3rxnIsP5C8qTCmMUdgjwg5vj6j5GxbZb9BdDe8uwLmJh
5ai8AH/f2nZK/2rAsu2XF8dKVyLQs3lu3LAA9/rsdmYEUvHkfahCwpZylNxt
+XE/RoD6lc6Lk3ZR8SK/L2Akpxw+LNtTz9IECDTZ0Gr8qQHFc774WZVVIv7V
9KhDmkLM2GBe4LqZih5zk+KUvnJkXTcdS80VQOxkee3jGw04U/l+ZWBQFe6Y
/Sr2thViv7PYtTviFHTyDjzOOlcHjQJaVcDnLqRbpmXYRNbjQNH5hLrrTfAz
0brS/VKEyX4p1+cX6xH6KijjnHkTPrXff9uVKkK5Vgh196F65Pcf7x+7T0NB
VaVOUYsIt2dZxLQn1eO5n8RHzpFG6Jd9dIwME8H9/MzV0zzqYduQubikiAaj
gPRb1zpFeKaRsSV3az0eazGaf61jIHhms2zR3G7E9M/g5zjVY6zZRG/Ag4EU
+ungItVuSF7zGww+WY+36zoS9T4yMKs+sfCVcjey/D461stTwPdi/9V62gKf
O+uX7f8rwkDznisZzylQU+WF1sl2YEld6r0DNSIEfRJeTtRrwCYbl7p55zox
bc8G7Uu3RajWPDLYQmlAWeGmIt1rLKx963W+dqYIZh0Ssamk/3qy9xomT7Fw
8+zn46nzRHC20oqccGjAg39e9650dsKthWJjFCTCEaaRa7UeFeqUa9VHJlhw
FzRoGlR1wStZY496WQMoitJTmGEs1G7acd5vrggdp6T7HjU0QEfxwD/N6ywM
yNru0Se/N3BVZsa9OVTsHk+TU+SxwDFRVe9ndKEyYvSKQnwDfg02WLltYUF2
qWeE/3oR0vfbLFFRbUDc0THbx3ad+D7p2N33SAQqy0FWZUsDdjekGJ4v7gTH
36tvNFIEVtIP6TFNKqxpaSFrB1no3nH534+6LlSPH6xEIRWnU8VVIl6wES8z
R9Tk2oV1CzNlptQ2YMFuBabuJRYu3kRqspII3oenLdApo8Jh4a4H04vYMFt2
fMjYvgt5sQYvT8s0YvoCoWy3AgetgpUNKipdeOG5dL/SFip+blw6sXcuG6du
Prldk9+Fc011QadWU5Hedrv+x3Q27KIOVo6UdoFbdHHRCbK/DVetO4JescDI
lmuQ+NuFoSc6R/9ra4BKtsoXagIL4oee932eKkJLfG1f1zkqrp1/oPPLm41n
d1SefIzuwsPpK/uW/EfFn1rZaB6FhbAoU091XhfifXdVbyF1deVRaGGkruGv
dfLHSF0zPSzk9tym4lBdZsPBcDZq5I1svpzqgkbUMcXxF1S8XrjKZ8MDNkpy
jj+OPtiFiaGkugOfG+G70i1BtZUDq+Var49FC/FYQ1JxZEETnM9I0Wxmc5HU
TEGjkRCPYr++mNvdiLEZIeHbhzl4eSLH29lDiOqaJKrjtkboBeisOufJwc1Q
ye1snhDWiTft8zQbETz7rqL4Sg5cJY4u+SPVhb6U1fvrZlBxtMzngHYLC8+M
rSWZzC6MOKX0n3FuwNkGif2F3Z0IcFrCzfAXIfiSlE9gAgXT9ZdO+/m8HVG1
8089p4hQp7ZstTKvHspXr12eMdoMBqtpY5NkN7oObEsqjKXAx2uaC2VvO3qM
jY04TSIUynR31aylwPjCilsfklqx/cDl4CV9ImTU5D2M2kVB7NRPfvuXtsFe
QW3edb4ITYnMtZkLKOgLXzLeP9yCf/wtOvNGRGAflg1T2kFBe/Df7s8SbShY
w42LEYrwOS/9cj+Tgs1PTXZMXcvEe/U9fePFInhMph39METBrpI7k8fzmEgt
oEjE54uwRrBUUymyARliA1I7FrNgYb6tR89ehOTkHzHW4xQUlWf/leEwUTGn
4MJInggmHlELtZooSKAHaD3414EHv4883PFBhNytVaWZvyiwcQiV3FXCxLS8
+g1iJD/XI4VJq6CAtvSA16qsDvQZvnidXybCgkrfCEYVBfEhGQOphR2Y/2dj
xWwS3y2cKy5uQcFvI/HPmvWt2NJzJM++WwQxaKsYjtWjlSe/rXF1Cziul/0t
xbrx3kkuY5EeBRJrdo8/3dQKF0tGz8iACPebYhbJFVCgv6zw8JvtHfCISGrv
qBLhe/GSFdKRFJjk5U3cUmoH83ZN+tdmMrcuLQ+nxlHwvtJIef7Vdlh9SOh0
pJK6Nm1TPWJLgW+ux6nfE63I5XaNvCd9PnRg0cuc+RRol69MOdLfgoE6zYTD
5F2yYlN0rcj5JqNXh03J+dj0eK9Kct4q9cofozMN8HaKfbNai4X7zmt1O0if
g1+bXi3aSQXjtxRFUZeNS67B7XUvunDg+bnTLVepSHNIP3Q9mI3V7d6VcyO6
8KkixVPlJhWy4h+H74WyccLSOuZqWBfMz2kVGo83IOmb2265Mhb67AqGr/d1
4aRPp1Ly7wbcyJGYcreUBSlcbvf62QWXGzVuz/SpSCqN1x8TZ8PGbO3D3vIu
KCQ+2nvlv0ZM5N+UOTeTg7Ax+/g01S4oBsq9eW3TiNcFin8LPThQtlp63Z0v
xI38oAMYp6I8auNVMzEOPFvqLXcv6sJSUdPfi7KNeGh0bq2JEgdJhstfW8zp
gjFzVlbjo0Yor3icolPBQU+fysqgR0LMXd6r+dqChgfGv3a3NXLx1y5otbiJ
AGs37H5j+pyOqFTHK9FFPFRMs+fTJPk4odMo9vg1DYuuN/3tUeVBK/Hpi5XN
fMyL2bsiSY6GrPnugVU5XLQOFZbbeQvgVijnfv1uE+b0L3bv9eCiz31b7Y06
AWgHr9t/06HBoXeN7fUyLlz0jHl6tgI8PSnxtP9rE07q9cwzj+ai7JPGk3uP
BDDiTP2yn9sElc2vOlLuciF1rsD9VawAUg/CHKofNyFf9cdhpWNc+P/tu25b
JoDxR0ZMdE0j+kOYxQ9ZHGTqawbkhAtx32iR6flFNAQ4LnrXUcqF/IIFs4Mc
BUjK9xP9NqQht8Q4nFLFRbHzZnkNSwEelSTslNGiweJ+hcD4AxfzNn2V+ucg
QMhpjeQLMTSkGp4/unKCi5sH/pU6/ONjyuvBVt+tdMy5knhp82keWJRgSQNn
PtmD/BNau2kQZnRb+TO5uPNx3J2xVICvwfqaQ8ua4GXsHlI4j9xfPnjJGl0h
hpNmLO7JpMGmsfp8lhIPkQYRO26w+LjS+IW52I0OsxeHr8fH8PDfd4GviwUf
oRnx/vMj6DiVYOoY9YCHB5mHnLN1SNxli7fzUTrWfipnKd3iwWLE/PPYGj6u
bs7RfXCJDg37qwWbHvOw6ECJX7oGHwOlT8d14+iIm2f+cvcLHuSHnHWos/lI
UsNDkx46Lo+OMEY4PBwX22glVsOD7247p3EmHRLqGldU23hY23h96mUaD1u0
pbXLK2jIPNXhaLaEh/U1miFvq/j4cvipx3pjGm7fOUq1+MpFwNztesu3CLD/
gKJ1WUETLvPFuqxOcTGgmv7rV54Ax8Je7MtSb8J0u2SlT4SP9hXYbDYhfPTl
3smDNjeasHr9gAffjYsL1eabhxoF2Kf6+t+ZpzR8ymROzlPkwe1wzdoMDh+L
T6UwXTvoUNINOjSd6PWvJmt9ftJ52NVxcPX9881YwDFdrniSj8PHN8t53OFi
44/L02LWtqByqvbKljd8iJ9VLtOS5kInbc6/e7UMGC7y3tlP+tjxd7S2fS4P
Temh1x5ebcGE0CAzpI6PpteCWTuqOVhwve25SlMzLFzbB8Nv8yHhR5MscOSC
adJJNzvWihW1BTs+qQhwYlgnLWQBBzzBxlPaN1shaWAVnqslwBk1sSQdSQ4O
ftpv/p9uK9xPsWV8JQVIbvHlrbbjQDg2OJJ4txUf1UYWnl0iQO7q5/z/Jtng
Fbv2zghow0rF5+xSfwEKR0q67jqz4dc9nl5b3Aab51Uak5ECmMlVxJcvY8Nr
ciIyUqYNVS8aPF6QPdxzouluRAYby6pnbzDNascH/wDD2GcCXDryrKSN6Jcp
ikLKW/9WSAu+vV2vRvYzxiFTbi7hfwFHdH9VG5nfvi9P9wpwRE197oWLbLTc
n03IoQ3HOZcr2kIFyNs71eDGBjaY//YuDopth3+oXjST+IdP8c4x41lEhz56
G5dl3YYJnqZqpqcAYZfq9c+GsHGvLtrkQ1Ebcp+ve/eU3N89ttJ7QpsNi0P3
nzh5tuLHitvvamYJsP20/S7TxRzU49bES04rFiVI7fbfKMByjQfTS76wMVK3
Ymz7qhYEXz5wMTCPD+O2EonHMlyEfLb3WG3YjEFD5+I3e/n4s12x/3kdF0WZ
Egc7KprBrHc7+/kaH1sfhLpG7+fi/nfpCx2/Gcj/+DY4Yysf9m++pZv95cJw
59+56YkM8HVuQEKbjx+MzTNvmvMwKuvurHGLgWkF6TtbFvMx1eJ6QLU1D7fM
PCLd1VugvdyZGfmCj2PLDjy7pMbFUcPdn6eIN4Mdujd+7zY+Zn/6VzB1mOBW
snXEu7oWLHa5zP/E42MN5/jK3fc4mGCtnFo81IIDxlVK0wf4mC83R21tGAex
dXYDM4+1IXTMnv/xuADDs77QNfexofvnl+l4DJkfqX6FHZoCnF78Rz31P6Lv
XgfdrU9rxc9W5QyOjgALy6x2iv1iwzhLTD1Zvg2LlsRfe20nwAbxsQOMR2RO
rhQf+NXRipII2UDmBgGuX6i4tbOKjdNRb4pepLdAqyWyqIrOx81IMaetBRzQ
z6r2e+1vxZ30Zb0RygIwuzd8XrWMg7Vh10emLmxFzZpA1/JJPh47LVS668xB
15QLarqkXvHq/fG3Sb15F/N2l5F6g3WDhwo6mvHU1i0v+y4f3gn1ET7bubgU
dmrjHxUGcorbbppP8NDjeOqSTToPT/Is8sPFGbhGbX5gPcCDn0piErWQ9F+p
vr5QigHnr9Jr9g/xcHb4RdC0Ah6CpYJlna7RUCZ24p21OA/PzU/G6P3h45XE
yIrT2TS8K4iY92A2DzI9DIu0dj7k3d/TAyZomLHwQfQrGx7EHE7+Ftzn49Ih
/aVXnOn49Lf07NgFHry4D94st+HDwbGnqUiDhrg65sqiEi5koj/OH98lwNm1
hovlUuk4KsOYdMoj/KsV+jhIjrxztPf0iHQ6ZKx/rQsj9/u974araCofUUym
47144kt1H5s5LuMj5KT9SvUtPIirfi6Y0GfAd/nx1C5pPvyfX5Ksu8ND/amO
evtDzShRCWC7+BLcX7Z4VnImwb2Hv5Zp/aXD0HHKh1u9PBxJNFm3+AMPA6na
PeGqDOi5Jf45Tvp5qna1pfAJD3NzZc9RAhj4teMWrXIumX9jj/317jxIpTUo
JPQ1I17XKm04kY9yBes/uzdysVrqx/H1gwxU75YcDLAk82+uM2A+ycXD+Y7z
gkzo6NlrT33jx8Oa5TN/vfTmw01t7RytcTo22q8Sa+3jYUQ7er9vCQ8OOffe
hfowUFwZreGswodZquK1F4d5qDQv15Sf0oycxKN/p9ryMX5jptOqnyR/nOkv
6lAzTEfEL05J5kPPf3nsg7VcSKpl6K/71wzurOejSx7yseHyvBshq7hImXqm
dMYxBnTtAzUvq5L32+eJAS8ewst+8PxI/51vq1WdIP3/RLmZPUz6b3Ze83JP
Cg0mQXX3E6fzkLznlPzUbj4enp1TZBtFR+H3DuszD3nwtGkZcyF7X+xoNVd/
Gx1vdIa/TIvgIaTB9jtlF5mfGH5sJJfkXxrCnezgIcbLTvZpAw/f7hxTqFxE
x8Uq19pcTx7uSBrZfSZ8deDm0OW3J+gYYhT+0bvLA/tdzPSzq/io2qZsn7um
GUUNO4dX7Ofj5bGC7H/VXDTI/7r24CYdt+TMGmQzeWhb/ugnl9SnZ+l56FIw
A05U3oHseXx0pqTu+LSfh1YdLaPeuQwUdOLg+kkehk0dZ8sRvZD4tTPLL5CB
xwOTnmPk3eWM1dc4k3evGV4j7e/XjHW3tRYW+PPhpF13sO8RwSv5gcTNC5ux
Ki81vMSJj0d3aRdt27nIUxiQ+5rHQJasPHWqAR+NkVYrVq/kEd4U2bHcm7Gv
YrvEqmMEB6Q8M9a85OLd86kvf8m0oKz77ra3T/joGVxa/58O0Y/MOSZMuxac
nnJ67YNiPqZdvhaT94uDxHJ30Ake1mf/CppF8PDk728vFhM83KYyV2mFfSsi
VHWfq8gL8DB2QgaGHOzbOlTRe7YdtstypqgR3Vk6EJdp/oaFd4e3Hzkb1YZP
s6P1roQI8HJg8ruTDRuZWfP6X11pxcVonGMS/ByaurnPcSoH+WlmxTyfVnzu
lL6SPkeARMb3gxMLOfgZtT3q3Y42vPba9MLpkAB2x+zmPQ9gI3humrPZZCsO
32zQ6rUW4GTYmR2yr9iYkJS/qhffjMCSgE0bzvBRzZM8PHaei+OzFjaHbm/B
md2Wh06/4+ND9C2WxW8O7jkGF5mOMWBhKXnluDUftyj81QG/uZC1y21UfN2M
Qyrtuisu8fEvOKzi2nEumjLBlqa34L2vQuZyIR+TCZ3iNTc5qNwgZ0Al/JW/
UfamAuGvk98vzfAl/OWzUHtOJY+G7MBV5bpmPGwofxIokc3HLG/ZCzbraVA9
kXc6iPClc+dz7Q3rBUgzEsYUiTUhnf02nyFB9lArWINpK8TJxaqRGbZNiNEf
eGRP9u2B2g1uqqwQtefvZx8ab8KgbdyvgnQuwp2c32qQfr8puvxMJpmGfHaK
7SFZHvx/yazM6OFDx3tabJ8cHTP//Gh5souH6jHO2dtX+GAp1jWEFjGwdeJJ
7EYjPvbO8/q9SJeHoYQPEhue0TG9950NCO7XpC84eIXg4rewsmdHRmmw1cjI
W2bJQ5LixKZfBCdm9u1P99xCh//uBtcXp3i4+1Hy+cs9fIzV+15e1EDDtDYq
LXY5D1PS3qztKSX4Ks9qUblJww0x2oi8JA/q/NN/v43wiQ885TH1WBMu3rMP
N7XiYtpepo79oAB3dG/zf/k3YvNhza1TbnFgofnl8mCVEJlFplbzdzZiUuKP
QtBhDlhr/vqrsoWYvnWmrqkz6aewUj/MjIuKI0stPCSFSL830pXQSwPn7Lke
I/Bge+vQM4unfGx6K+bknEuHh41MgGopD7IX9h9984/cKzn219RoOizXu71L
fMTDvc/7NNsX8bG8/5TjlsM0iB0xip7TzUVoVNb9tUSfMgusS5p20pDyMKhM
qo3oHn8np6N6AnBVGFuYhNf2/DXYYBjNw8bp7715/5871ZtzBpYzoFUbPr6G
9HfxvG3mbgSfks7eunR9PQNnH/lUHJEh+Kgnn33+Mg/ej5dUn26h40Xg7uEb
DIL/2WtFFkSnz6qYGN3vQMcrK8V5z8/xcFNF1eXRDqJrYvyj7wzS0N70qlB2
M8HHTS0eC9MI76XdarAg83lg6fQtLWt4KC2jiE6Q+ZQ6GvFGhfhZv4w1iSeI
n+XPvxL/k/hZ4xchx3d20jHWdvChHfEvdEP2AxD/YnBf/Pa6W3QcUip2DyI4
mcp/aOlKcPKTk3padi4NicEXlr5QIfeJO323s4W8r/LIgfd8Gsb+Pb30lewF
q+q6iX4WHz93nuSK7tGRJOk3Ty2Lh4xMzTchynxEW37xaPCno2H1zvjEOB70
vm8+tMWYzPP0H+nX9ejgSBsf2E34rKBnVYkBwdGNnjkmM0NpoJ2nVIHov2Xb
LXvTZARQSVLqVQ+hQU3s8p19g1zsEKj1LpMTQHDzz4FTHBoGuWO0nNU8aP8J
0Z58xceeNF7T2X00RLYc/H2RQ/ym42u+G8GtaUemb2q6TIfUf+LFOYTXJyQn
XIrV+eh2vvq83LYZLoMJNa2H+KhtkDYpfcdF/D+1e0n0Zvxuzlptf4fwUL65
33d7LmIOGx7+tb4Fc3XXjz7L58OA1Sq9XZLs95dyb1YKA8dCJM4eJb708eme
EGcypwtL4gquVNDh8tX50vtvPNy498MusIfw54mw+EhbOjreclZeOsND4Xqq
b6MDH4wHry36iM7xevEq8ATROQcjfQ+2k/dfOSreUXysGTZr9mvX+xHfe2SN
5thjoudPyRvxtjRj7Vbvr0IPPsxzf9mFf+KCvzl1VW92C2rCPoy0kvdbp7H6
ysZXHOxZeV5J51kztsXNtL0RxYd2zEcFeggX0S3xyxfrN+Pxpgf6r8j+y+bL
dk5SuAiWTjsVcpGOCyqMuug0How2+bilafLR92ZatP29JrDa/l066smFUUY8
h/+d+P0ziyd2cptw4eVdiXt3uXgeaLWuOFaAtq/exqXPaaiZsyDFSJn4hFum
Pi2dZB/9ze8lkvw9W/dMSyb5u06u2RxF8it+9Ke6nqFj9dEsim0y8bG1Uqxk
gtNaWa98fBPpCH8aK7HvFfG5P5+J/BWIfjlX/SQ/iwaVaQ9nzCN69XEQ69C2
Dj7U7hS+/3WAhoKwoM8feVxs97L/46lO9r1C5dma4SYoeM5QCnnIRWVL7imd
CAFMr0opFM2hYURnZIX1Wy5Kta18Et0EON9jb+S+ko7BwLGPNUcJf0cPSAkJ
b5cazLT9xm7C1DP3ixPjuFB/vjVP5poAtz+PXTRJoIEaEivq+4+Hli3nzAd+
kPk8Yn+wL6UJDMnuf0M+XHxY9XYwvFKAD2WXTXb+aMIULj/r2QMuhn1YlE3n
BVh5tDHj3pMmuM1TC40/xsWJPRbvkz8LUMcz0g9eQUPu+i1RXeVcjCU8N5W2
ESB9x3Ft+w9N0Pm6WPJrBDkvajGJfyFAZaaD1el4oufvfaIHk/tUbQo7ENfP
x7kiHXklCxoSLG2nhjRy4da30iTWRACT0EE321YaNmeNJ/kbEZ0/fk5m6ls+
Bg//u5s7lY5qpTMlj3byEHv8bsXPG3w4Tzt/QjCPhqVqtltSyf4oh7ksXeRK
6nL6+H52dhPaV+/fmx/ABW+mq/fxdwLMsZE2UdrVhF2pk2rBq4m+yaE+nDVF
CKHrzTQFw0Z823opf95mDuRn+G9p+i3Epo0FMU8tG2HY2OSUu49D9qpZdKdL
iNvXy66cetcE3fQu/xdhXOxXKDxd/kqAv55BixTn08GS6dP2IDrv4Y3OaTER
hOfr59+2NqPDUWtdgW4AD1THf2y3g3wkqnWsCGfSkc7YE1pJcLlZbP/GUYKT
+Q5bm5WI/izgxO4uJzgWVfV0qSzBscvcNiueJgOajvc0b4jzceR93OBnMqdH
fi8ZkdnVjKhIVthPou/N/8rM+5NPdMHMQN/aGS3YIt5fN57Ox2bZbKcFS7l4
afl6ZhrZ961f0hY6k31PjcyznE18jUzEjB7Hdc3wOj96dOYBPnbOuRo1XsnF
uorA8GcOzWBkde8/TfLPvLZOfSqZ08pfX5ednqRjoFVgN9lP6vJa3H7tHQ+T
mt4rWkn+IdlutaMkv9v0HG43wZPHHJ+Tc07SEZkwcOdxPA9z1hlu7tDnI8in
TMpqNQOMBBul5/8RH3pZKeLCNeKHpJ/pntjLQPKu5ifOBN+t2n8H1ZH+LepM
tR0ZYUDHK/2e5Faik5pob7PGuBgxu/1AyoP0Z+taM8PZ5LyqV9Dt4zxIxq54
eIDDAD2+/ITeJj7Sc46s2En0TljyIvvjFq2w9VWdYjBdgBdiv4/oreWA2nqe
rkD06piNpvmvhwKMen/WqSB6VW9WwHwJRhsqEn/z318Q4NyFKfShOWzEbO6T
7WtqA/XeHHfP/8d9GIkGqmz8OWp9DUYd6FZUu2X6gcxfotJBt60sTNs19zHb
tBOsRwUtf5WFWMip2lqzjImvMnHjs4NYePptj8XmfUJ8eur4fZ5uO/SlV635
2MbG/LEdaxRvC2F+krrt3VvyruWK6pVOHHhLT7P7+ViIP8O3fOZxmsEcPnVr
YwIbpqpYtzJGiLI/Q88c9FrhnVzqZm3NxidZO4tH4UL48r+GdRW0old85wOn
T2w8KD+aM+O6EByRkVeEoAVfhkbi32xkQ+dl9Kn9p4W4pb/oU0d5K76cvKv+
NZSNUKFDyd0oIZ4Ue4otOdiK5OiKytCnbOTalG2wuCIk/Rpcek2pFUV/38/r
vMxG9p/eN/3RRKemt01Xt2rFzOT5o7Mk2OC2ersZBQihQn3CHDFoA79y1OAb
lYWpPcoXLI8K8WCi+Mv+6DYkSPbzbt1g4XA538DaneR5dMN+/VgbsvbG1axw
YUNquCi97owQwxfn6w0/aEWKXcaXrTtYKNq+Lpu9U4hm/VTLa+RdZfUkWH7Z
TIhHIa34nwDNu5WjW78zURR5w180tQO1t2nHf74VQLv7YIahJwsKO48vq6xq
Q9292AE9go9rm8Qe/qfBxtUfQSFT3Nrgmtw9PusI8SlFGntqvdm4MLp999rh
VqSV6LO3WBIdoK8d5fWWjYQrKz3vXWvD2+slRutOCbAwcqmF/RY2evo+SU9H
O+Z+/Ve+6p4Aw7+nrulvYeHGjw9e27rakCxzUOnJJQG+VTcLMuTY2JDLTvSm
M/HJ+XLfAykhEp7O+SmRwsTY+min6uZOnCvmHRBbKYS64rFto4c7wJyIvZ/3
phOb5fXpFdpCdFtK/ad/j9QprvREZ1sndNU3jJqqCLEsTXb3dwUmDlpTekPS
mVgzJGSvHhfgmN23kWvNTKTJJipd0uyEi2Lg40MKQmR5e33ZZM4ET0euOWx2
J5yuDb3cP5Pcp+xoQ+pOJjYqXnic/6cD5fFJhVc7BVCg7TmyML0TAtPNDvs8
mZCu7pmlPiDAip7NynuXdoIzVqXEl2Dio8Kb6tlsAZrEJet0Ezvxzs7izrX3
JE/v0pNzaQJQOnUHzH50osvtXK+GdjsivKJSLt0W4ITYC79JAQs67u6CwOXt
+D4+Q3/jHQE8Mqd/8uWxUPtN0iHoIRMyZq/CPcYEUFzgoHqJyUTxrAD+YccO
mFc7bE79IsCsiNoAA2MWFt2sGpR+ykTrcNvMCNKHNcY75XJJ37cuvm3gvJ6J
yrzn54XdhNeTn9efcST3/8bwefaYCZ9XKsY9JH/GuiDP/FYmVHNPyHQmdyLv
2YqMn4uFCO34G3cotwM3jDtdtH52YkYl62mvkRBp+ort8207YM2+nW4j14ll
0WsojXJC3P3BHbi9lwkDedmEbXPZOLz5iQMvWIiYwUg/mSlt0H5jJum3lg3Z
3kttCWFC/DDR1Zera8Xc2u4Ri3Mc3A8KddN+LsTHY0N/ZyY0YyXvk531BAdp
of0dye+F2BiUPv98CQOPR3ycNxKfyjBXrdvzUog+3bzlo2eI/ou1Takj/Jdi
OX9g9IkQU9+/d2yjNRN+eHsyIJALxqpzkpdrhTjEbDY4OkiHwnDBlWTiS//I
B//bUELiaQGDo/kMlK1NKrDM5KJxr+blrhohSh3DWoqIj+qrNYg4a8IjPl7C
cPM3IRJr6//qSNLxVmLVd+F3Dka6PrnE5JN76nzvq5VvxuThR+dGu9nYWGFd
vD1OiOqTZU9WJbfg/JYTLKobG0tK/s1+HCnEfpvZsxfeaYWTVHWJliIbpRvP
WF4PEuLSGcXI8VltEGx6+Dz2CQuTqWFBew8SvHL22Z1Hb8OWbQjVNOzEBhNe
tSTB56jSu6sz9JmQmmpnN0eeheADbRITa4VgfXlUzFDqQL5gyozsfibiDr+7
3fofqXehRw0rkglm+uaqqw6d0F/ZuyZEVYjW//qVxacx8esb1y1jmAnN3yfW
504jOOaCH0OhTPz3fu2O3Lkd6BjNeGVeLADn/Zn0w7tZOGebMGNb2///jmH6
aYz4f5O/ZbTdXwkfrLsfminZhvEqpaFD2wTY8MOzNfsFG9psv+sBH9rxy3ZV
ayLRYQZHR9UnrrPQZhw2/vlLOyjXIxwiXwpQ5vZZuzGWhaasNkrOrg5E1B7Q
oZH5LxET3vJbxcLiLTp7qjYxMXqZave0h+DbUxcLox2dOC1s+t5H9lr+W4D9
PbLX37783tj+pBMqWmGUts4OXHvzOXJVmwB77RRnDJR1onkw5Mfigk5ESszf
L6UjxNbBxAVBcR0QVN5YfquOiZX70n7bEL9t4L5Nai/ZN/6Js8qX6zrQ9fXf
zW3NAhw/ecgzkdEJqSLvnlwLggerlW5tn0PmgX3u9C4VJrbZZggdTViQW9dQ
TdsqxOSG8ISXRe0YMN3Ft4jphPSBObN3agrxNCE/XOtbBxbKDi1LorCQpJAY
NXxEiI7m+isrLrdB/8a6/4zeseB8oNkixluIhzlztX7ltmHmj3VxcgvY2Le0
Jm9biBBr1F7uXyfehp11qR+js1gYUPUfeHlIiJcrrbfKEZ6Imj19d74y4a9p
C/Ji1wuRN2L4gvFfBySC10WnDrHwLvKCyix/IZzCCq7pbmuDT1BBfCzJr139
Z9KN5F9aybnqKdYGExvF8HvnOzE80+XsXg0haEcM6L2UDuxQsvSTYDOhIh8l
fYjo13X/Nam43WJiyHLyWZgpE1ZiYs49IgHmmnz8Fb6nEwcnOsobCE9ZFlte
cSU8Nf+lQ68B4anetsqufvVW2Ljd2VsySXTd1MMuT505aH3uxr96vA2Pgkr0
4/wEuGq86iv2sKGwMbntr0E7/IoPj0vECeA4PG3bOzYLPu4evDuR7Ri87Pez
k+il3AczGfL5LNS/XZKZmtSBEatZn+LqCW6PBN//IMNCkGV38z8PJqavMF89
k+D/EZHN2xqC/+O//2aaLu+AknPu1lWlArAC+/N/bWPhhOltTWvLNpS8ecmP
8RCgYOyMoiLRH7Gv06L2H2mHkdlB253JAoz36hbnf2IhoOj+Xls/JhIE+uEL
hwR47JAduEC1E1eefF7Y6N6B6mPzxDsrBMjex7MyXM5C41GV37Fu7ZhyyaDd
MUkAJzdByOcqFvaV35gUZ7aDPf1rpyBHADffGbuWh7Mg9X5ny0J2K1QvWsv1
gvSnsHtlVznpT0z8ox/7WyHmGb77hTLh8TjNvtqlHHSFZG/MvtgKYSHr3RUN
wvtz88UPyHDwaGZ4e6VzB1SUt0vuKRdAevs06XhDFnomop+UkP5Y+XzdIkX6
k9jnFKy6rBP7rHxl/x7tRMazNzdvzhciaF9XNqunA2vWHvOihLLg/m42Q9VN
iMLrmjcWaRDdOCL1N82d7O/x0NqmnwJURIQHHtUme5SkFcXrb8eNJGq18LUA
HRs5ctEnWKj5s3q4bCsTE1OULlJ7BeAPvVVkkX0rULddmvOTiZREsW5pglez
zdVnZ58h8/dlrtP0MiZGvPN6VooLIWfDzrIsYKKrQfx9Sk07AvSW6VGyBPi+
5fHQokssZM19c+rTqTZk/rxtMBogQOZ0tstZBzb0sis6Noe1QcT0EZ4KFGCd
bf9sV3s2nKuNlbmarTirQN1UKCZAy+KlpYeJ3u3QpvtK7mkBt1xh0d9SPhi1
1z+P93HwdybdoeRcM3SlVld/DeGDedL35hTij6spxjamYc0wu2C1yiaIj02+
l7+UJHCRo1yecmesGctsTeMSU/lY9yq4rsiYi4vfoxY0Lm5BYN5HyydZfLQX
LuA8msXFojs5ZW0WzZh6MnSamScfkXLXLT5+5GKF6/wddyKaUREj9cAnmA9/
ZX+rlfe5OCYrWNOT0Qx/mTtuWlF8HJu+x7z6JBd2O5QPuJgzYHrqoYf4dD5M
DirWdkTzsD2+cJW2PwNizxu1+GrEBxU9cG705GGkZPTNUy4ddav7C1WZPPgE
Hg+50MCD1mOJ92nuDOT4OborEL/DnVx4o534nR3fFyWu0iE87DyjttGbB5Np
0S6mAXzkw8HS0rwJexJDV4sv5+JrVfvfI7OEsM2/VtPr2ATXn2Vee4kvzu5W
LTAhuJLl6Kr04B/xuRmTCWcyuJi2Y63P7GABNEWsmxPaTbgcxwk5OJ+Lq1OO
NjsQXP8n0exe49qER0/dKRrruHhccKBgGZmLzm2K8ZqpTdhp9t549mEu0bXJ
GjsqCR7c/m7su5iGq1IrolVJH2svSm+stSd6fLZ8qzqjEeePnqiZ3cXBM8bW
+FziD8rfyE/uWNoIxwD3K6XGHGg65Hc4indBa0sBJ6qWitIaQ9P/7+Ho9pmj
06y78HzX3yt/8qmYKhtwPfMZG179smWP9nZh5ObUt74KVHyoPO5ztJ2F0hy9
u7XtXfB6OHLBnNmAK5M2e2jJLJh93nDaWFqE8TChuBSFgrGFx7I1BB1IHpfb
F/dRhCmxkUaCeArssk5ZUJ+2o+zSrLgmigj2zp6jrjoNSBg7t+3S6U5QP6t9
2B4nwi2d5ot9qymY+2a49lhsK8RZ/Zv/+yHCgq3nfXUNKLC8q/jIkuDHknCl
4aM/RYh5l8VVbqOg0pyvrbqY4PvNDbZ6JeQ+3/YufxBOwbS346FN0u1Q05d+
GdMiwvHZlYKgJQ0we+lQSDvRiQd91yQ87otg+2aey9J2CtyXH2kx1GXiW1y4
iPFehHlr9+ik0ikIjQjqei3LhPOdkRdXS0VwWcvdnsihoN/tqGOnHRNm07h3
29+JkFWZ6Fyp0oDC+s1jdKIDxnZXXlqRJsKEjOHEjPkNWHbgyb0I107YKZ/2
qk0R4czZS7U5vRSsXlmiYnmFCUaW7IWytyJINVUHjo9TEG6mLystIP5hp8G5
j3ki3Az2r7t5iQKKSaCh7pZ2sK4u3K5NFyHAT1akcpaCL8yv/Xmq7Yi5+qw9
uFmESN/TYdNPUrAsPULVWNCG7IGd6uvbRODss1tuPNmAFvrrGVUVLKy9fKRB
v6cLlw7tKfb7RUHh8sauae9JXTtdZinmi2C8gLYiKIGCvwELTw8/b8fw7uw1
//8+ZNVU7SUYpMCrwnupKJOJ5dHVbdMLyLtM+7OtNbMBy9OdR0/uYYHiV1Jy
UF8Ecf3Q0zPONEApkaYmo8XCWebl6r/25F38+6fYDTdgGlP989oiFvYsPHKq
ZqgL3mOH76ceaAB70ZKE7olODIZMJJgdEWFoZ8EDs90NsJrIrogTdqJQJLsx
44QIY7rnrPy7KFiwzNFCOYCJZl95E4UiEcJX+YSPUsl7KQb69Y50YFK7RP7l
BxH+qFxg670l/YkPf6NC/I2Uyw/Pi1UifJEIVBYLpuCaS9vq661tuMjRdGOS
vj39qLSvapKC/94+G+/6RfqjTc3m5oqwrDnccvnfBqiLuu9f+kj8cJTN5LL+
Ltw8rF+y158K9V165xYTvI7of+ScfKcL8dbe9eMKDXC2WRz7e30nLqR6UmOf
ihCrZEQfSWnAxPoz4v3bWZhlzTb/ZyqCkZpDSNWVBvQ68y+3GLFgOLrR/4eV
CMcSD7t2vm6Ad1JpbLc3C6taXzDDlorw4c33zM7GBkhKrDDuu8mC738b/Y7I
ibBlvLxZpaQB859s1PYIZGFXoqh85UIRyi1Hnz8qoWJtis1i3Tw2XpQqBt1z
6sKeIGHYQ0MqupXUKl5KE3y45G5zt6wLvvOybqT/oqI1KsFd+jcblct7s64v
68L0g6LcJ86NmNqmKfk9gANdu/GRpW1CmK64+SwjshGhnKooy8cc7Nr9Z44r
8T2C4MKejphGVNjGJ77P5uCbm86ofAHxPbN+zNvg1ATtny9cV63hQmbadFNl
aSE2hYtlHrZuQqvbOC/egIsv+mkaFsRPT8wrvEKlNiFWd3DjnytccL3vxv5I
ECBH/g8n5XsTrBWYGo8ucTHP9pnh0RQBdO//Z3TgQBN+3N22uAhc3D7ZPWcv
8a9P8+eYfJ5Lw5pq2kt2ERdsp03Z6nuIPgpw8piSTUOuYEfaztk87L+yREy6
gw/X4JqlYi7knk6Pg/+aEfy3/LkiX0KITMO43k13GpEe/Uo3o5iD6e2Gc9uz
hFhy6vt8FaNGZLoKeZ5bOHDU1Pgl9VsIsXcLy2/spcLB7bpD7Go29vc1fMPj
Lvz2ZcoHVVHxryGkK+UDGw8OdHhNs+3C6/CokT3xVOjsKiluiWKj+nB2gHRQ
F4a31K/WWkfFzuEdgrMKbHT77S2b+b4Lmt9EnmpmjbCihz9UsSX3qahrCR8U
4uCASXiSXyNqrUeu7b7BQbE1r0fqqxB+Uq/+yEk34fwr/y1p0lxUVRi91rQR
wvdPo7nuSCNet0XtmjHOgY2N9LHh3cSXfLGgJn9rwpEx1ci8aC40JwfOiT0S
4Afz645ZITTUubd+cBrkIoOtL28oJ0A1db1ezYkmjJ0qfdFrw8WZ9rvr9/QR
P5fN8rR63ETu5xf+6SgX9dJR8SVlArCtVp7Mm07De255uUEOF50bXq9Q8RFg
5eJ53/dep0F9cV7RoDgPZV+Pw+Y3HxJK3w9t6m7C1o7CK7KJXJzzEB7/FC3A
2ydpM81f07H9gYO80wceWqM76qaPE/4331Z6+wwdpbduVgUk85DwY0eRrzYf
LS9bK8ae0WEau8f5XSGJyz8c5Uvxcdnb0Z/2hwa9rG32hVY8LEtLv9CZxMe8
i8r3HwhpsA418JxYy0OxUs3z2y/4cB/2Oj1oQUdLr9+Fl6E8rFn93y5HVz4w
+qu6yIEOJ4MQFuccD7umDE047ODjxz/Z0k236JA6ZJd/MpOHudqe1F2qfHS/
jbjQsZ6O4ZwtDaFBPDy2rZ5l7c6H+ILmjUELaBjn2UakFJN+mj31/e4swLIQ
e3oaOe96OsjfgZyfrrz6dAQ5X7bsiWjdYgZCIitynST4qIyyfvcniYe6s8Ub
ypfTsfiEqtaCIzwUxGzduMSPj9ffj6nkL2IgZY/CikZxPv7bxlTRIn0a1rV3
CnCnY4MTX+btFR5u8zOmR5nz4Xy2hrY9gY5/U97JPcnmgammfstHkY9q6ZHu
DyF0nNTvfXgknocb8pLR2iv5yNzZvkGG6LcLg39mF3TwoBN02lCGykN7jUGQ
Ickf2i6feJ3kjzqqtKqI5I/zSH7cdKcJ5Y1pQoo7Fz8zlffKUARYlbJn3bI1
TUiY7TVNaykXGu0vJbcQH5C+Nnz/v0ON+KUmq3UoioNQv4uvkylC/Dy0O2Pi
fCPiJFec8X/KwZX5zA3574gPFhp+lu9tQtTt7zeMkwgO1MkeMrgggNHY7YM6
+TT8Nit17VIj/WrT/8Sk89FPU05VWETHiixeyTqiR40/0gr2neLDpfva13Up
DNT4jmiu0uHjZnxtSSN4CC6LmCrbRMfv/MXUmU08/M7tPzlMdOuXoQ+zTGKI
js095pLxmIdBa560ugYf9K0H9z0/RMe2rjk5vtd4uL/y7WDnBj5O+lJ/1lyg
IzV/nXrQIx4eaRtSZ2qROVnZ9nLuZhpsZipsNqByIbJ2f7d2tQAmka6/71vQ
wNAa7/jayMXYnOQUFRMBbp5vnqsbSQOSY9OW/+Yid9YV9QPS//eFP4ouBNOw
6uDk3N8DRN83u57IIftboRbPk/GmoU1S1/J5Fxd1Ief/LFYTwP1ig4pNEh1e
JiEJ3a94+O7bOJErzwfviNHn42SPbk1pnnQje/TyhKuFuzQfV62Zpucz6FhW
N2Ki8ZYHyglH//+m8pHCNj6kKcWAZFbpgolBHjZssdGILeAhb/eUafeNGHg6
pWqGGjnnMlet6P/fL65vEBz8WU7HzS8Lu12+8bCyUtl1pIeHtLb9BR2RDEzN
7eqdt5CPz9rLTvN38/DnQazSkHMzxBPzP687zEfCQZkg8ddcBM31+73bshm/
xf7+9iT+5XDIthwPorvPsMaUl99vhsze4x6iCD5Yrx8FlkZxUb7qYoGbeiuO
znlafXWSxEMWec1y4aBHrMpS3qEDO59sP3joiwDydTWdE8YsrD7Y03N/aQdM
BCJH8xIBuPq8KzvtWDiqEMSYaGjHjOcR/pxs4h9uywXujmLBu/8B38+mE6wT
Lf4qKkIUM/20sxWZ0AhQvv3wBPlMSLeIJv79Jy9+yp7ZnRjdqhVSlsbE3E1K
ZeVjArS9+ri7oo2J0z4bV1vMI/6++vtXZ3khFm7e5/DWmglPl4x9GiVMdMac
P2soJkSUdQv9///P4Xto6fXfWzpw6/2LcwafBcQfD7XWric+YGtOlDfx+96H
ZD+PEr//4VDCkYHTLPRa7otUeNiOB+684V0ZAqRmc5VeP2KB/WfO1rx0Jj7r
fW0xJ/yaMqXB0LKZiTOdlfOLUjvwOZQxsZns7TYOfXL7fyycY/10sWe1gcKt
1dx+UYAS8cLlPorEr0RWbNrc24553+YUbyN+vLjOezyb6JcN4WneJ4ieO+HW
YzXJFODgEq67dGYnrOYWGAv1OiGr18vUVBKiacojAduYiTUUxV8Ffiw0KAQu
fLiX8K6CnvQHw3acMKnjLyc6OGhZ166th4VgsOIfzEpug1ma2W3NXhZmRDy9
MX5ciBjFpG/GLm0wzFdblx/ERtzrmE3080LkSD5LEPNtBX3V0LO414Sn5zb/
k7kqRK1yByN4ogVLJT6sTCvjQOqC5yvWayH4yTlegVrN0ArMy7h5h4MXxq+Z
9JdCcJVC2IahzfD42q1FechF6dWnSeK1Qljt1303/T3hrX3Hgved4OKP8jhz
J4l/P7/d+OMvOsQUDxuti+VhfryS+jbC37amS1LGkmkQpdd6XiR8cuSlXap0
lRBO9SFGwdlNUDrNT/FJFqB9+voXmz4RXaUbPZmu1ogD1xztrn4SYNqTrINJ
hULMCFnTlTNGhZ+EsuqqAYIfe1RfDpF7Zlhxt4tTqbD2nfwdLOTjy5ZLsRsr
hPj85qt54yDRN37rzvdf5mPitMUtl0oh3EPM43W9mzCaI7VXn/CS9j3lq7++
CJGcG3Ev/GgjkuROnvoqS36W9Vl6P0MIqbG1n9e+p+LxWHNE9HEBTG0EHm/I
+VsU6R9mdo2YWOARG+cpgF31t5pGEi+Rzh24u68RLv/1ZV+aT3THJpl9j8qF
WF56UrM5txH2GxfMuHOGB+nL/6Wf+H9/qm9NOZFFwxQz0eN/djzQ38/KGiVx
m49iSjN5xG8r6Jt1HORjzsILByvJ/XcNZT45HNeEjAspA2w2H3vWa82wJ/We
VAvMevSnEbp1cbsu1PMx83xVWAyJR7R+s5WVb0JZncHqxqM8bA9/r5dJ8h/n
3lPa+YWGdJsPurn3eeA1p5gtIfEbxnN3fiU6ZrvfrH9bEnhgMXdd1SDxTdxn
dm1XaZgq09SqQ3SK5rqR+D/kHQ8dO7xnSIEGMVpLUrMYmfsCbcdfpN7HjmGF
jMZGeOmk3kr+TwCmcoU9k8T1lcpq3L41YuSUl0OYNR+J2+bcUSZ5eu13dSe/
aUKS1bsAPumP4P6/LH/ye0P//twsQ/rTs4k62nqaB/k5G3NCSXzZnOINn3Jo
yErz+WlC45H5VpzwrRbi7OPmxRGbaPh0Y0+Go5CHCcErJ1MSp8k9HPDQpaGf
2hIupc3Dv00FGse+CVHYfNw8VYnoqsqlOdsNeDh3+lqCA4l7npEajZpGh8+S
Dc15ulwspUaOmJcJIW95Wf/gccKjMp6BSU+5CJ/NiuirIfPyeMbJL0TPfVX+
3b4+h4Ozav3903KFcHvCMTUjOG5JO9KxooWDe8qKyiveCrG4a33Wkn8MbBq8
aD2DxcHez+mv9cmcG8qnLl0+wMCNt5ZPdEQcrHo4vupikRCWPbO9bdkMuLg6
8Nbs4SF61VnXFtKHPYkaN28zaGhcEZhuTXTc5AiliE/mxEhq7rudj5rAOn5M
V9jAR99Xfa9zZB6UmxZlLZRrQkmW+I6pRUQPfZIK+UL6Q5HUpql60bBOdD9w
8hoXAZ6bXdaQvRYm9t6WoNKholT8xM+H+JbJMT0JUu8/2gqOrTQDGl9193Da
eLh2vG6tK8nj5Xz9rssaGt5W5H32zOKixOfI3nZy3u/vuakFL+moSnn17nAv
D6N/DKyWkfPlS9zNViwmurx8/sxcovv2D+70UCN1xdSNtQovEz2tFZc02cbF
W704WzuSJ7dPUpAUQIe/Wcb1SjoXmR2PKveTeKggLurvKTq2tn/MYVhxEWnR
NtOT9GGl9yZNl3UMnPaYteFGLRf5OTFyZ8h5eqO6SVA0HVqzObRnZP5dwuwc
/z//niKFiEYy//En16c/dOOhZhl9az2JP9uZbujbSHTM68VdFql8FF8rcVUl
+RtU5n3V2N6Ea3ql3x5M8BEdt2h4jMw5Nh14d4feiIOMX+dlGgS4VDmq/ewN
wfNuC8sbfVT8sImaMzRTAIlDcXeryfkPNVVHj3xuRF3oD8Y3HcJPF2tnhJH4
aqfeimePGqF3N/uMcjcf2yI0KlaTd9wz78z3h/2N+H5na+xEC9EpQzm+h0n8
urXq6EbJJgRoL5FZaMzH1BWfWneS/aJ8Xk8PqG1CZ36ECzuC6JEjsTmBpK72
Sy4vrIifXPp7Hn0J8SefzmfvnkXePfbFl6LlX4hOMlie/KufA63r4rQLRI9S
H05GnaIx0OU7qmqox0OkoXOhB9mXNJvzXqUz6XCJSZ7YP4+Hm4XMhFskfnrh
in/TiR4Nz6IeCFnJw+tVR2Y7kfjO1nMFV2ToMPxzxiD/Eg8W0mb3nMh9uqe9
q7JJo6HSR1vrnwofG/feNE4n91eTZ9yt+tGEDo+0yKFaAbzvfu9Iyyd7VzOy
dOYAFRZy2+z3EV5ofFo4rZvwwuk701uYDVQcTZ0ulKGTOZ5xa+uyECFU21Rf
/5Wj4n78nKVVhiJ86Ngc+UyD9HkmtxpcCj70pzwWkyfxI3LaY9pCCHa9K58m
3oC979ft+31XBLH+4bjwEQF6F4Q+33SPAnf6zoCKAREcjq/8mE30gOGp1GtD
jhSsHvi2v2RrN0wkliYtChLAfugJ99NsCg4/4eRmXuyGQc1np0eWAkj6Dq/4
wqiH+qTcuZ8V3VC1L5rzfA7ht1GxPpsz9YifXUpPyOuGl8JmiUtLBLCZ/X57
b2I9xL/81tC/1A2bPvu5G0iew4+SR6VJnneB6ccKVbsx35W6KfKeAGJyB44x
TCnQmNk2WHGvG31JTze3mhG+urvIeNbnenwInDpWcLgbt8UkOJV7BUheGXZ/
oxgFz3avd9q3sQc+mZ8kTT/wsSR9R9wEpQ4+xrNOl8v34KvNFvF/LOKjcpW9
/irVIyYqp6QhrRtO6mEacoYCDH6Kk9LIrcctTdOVDh+78b92zvuf6v/946Uo
kgYqkYYipZRSb1QPDSGpRImiYRRRoSHR0M5Iy8omQhkloSXjLNnjcDiOY4Xz
SoWohO/z8w98/4LXr9ftdXs+r9f1vMbj+uXevPaW+BUlEp8d1nef3iqHRlRS
ROv3bgR/9bwpk9UJwfJ7ew33VaAyd/S5mm831CVLuLoTv2LRmUydK3EVeDzZ
QXDgTjfOZ5rGZI114uztwkyVqAoYzIktmnq1G/0J3+sLxb9ijlv3xz/xFRjw
UdkXYdeNI6/vLx6U/4qGPJbqydwKZD73OVql14X2gWkn2Ye+oi9pl1lJdiW8
JX7p9fzrRs7Aabu7KST+/Y5iSjsr8Htq16/fI93wDuQ/KUzuxKHE6VdsTCqQ
uur4/e315F0mUae2SnUipaLsuLddOfREOXy3fz3IMVygV/e9A51zZJMfrypH
hp5ZwIvuHtw/YbAiYKQDVduUC8d2lMPUyeoaxotw0cag3JzqQPWHjVJV6uXQ
943bxmwXYdV457UKvHZMeF4Z2ZpTirTAPWxjFQo2u9MUfMm+n1BtutJ+TSnM
jFltTf4Unn+7d+Pb7jZcyONO6DX7gmmVy+4acSlYbk2XGZnainFlesk3t5Zg
cvB4rf+aKdw34Z3+pdaC1R//ijwr2Vga2dT4iti59aOaxyRacDO7913XWzb6
o193qPAprJu7dlGwRwsyiq1ipk7hwPml1KBHE4WpB7eafIxvwYIPBv1vNTmo
YqbLl/Eo1KatpNbPJjrU8YpN/G0O9DOaG+QbKRRdj1vwaIIQPDHJx2meHBhI
KFyeJqRg3u3MK/pM9oFrkXJfddi412Ps7kL8ObetX/G5QgtK/b2NnzDYSNGU
cbhdT2HSLucp2dlCnNnsZTpzfAkmmQQelSDn7yoWLiqfJMS2Q6+6v17iwO3o
g77JDRRc4oel9R8JkWMi9WBmJwemL9JfzCDn/Kdm39VbJ8T4px0F4QolEPt+
dpcM8Z9VvWFZtokQ1luntoSncxDR9bd6Lvl+eGn0NdcaIZoi3Z1fzS5BwtGD
ktIkzjWOs638lVtx2MDIcuGeEgztkPMOqaMgnrL6gMemVmjv6b9w8kQJ5niv
+sgm5/DntnT5JwjRf0bp8aZ+DpYNKDyqJXYJxxju7lghqIZTVswfHIy6vH6i
mkahe/Xia/zxbcj7t/EwV+oLNKqwLLacvAtrtMH6dSsuXayyOFBYgmWXfR/G
knvn/33lnaHXivBYO2MzxxJsCcp+PZn8l53bduEmUyEK775sKc7gID7jL59L
7q1okl6bHiPEeaMZU0zJvQG/bNLLSfy33RI++PdPgDtUV21nJhtPJ5VXx5J8
yBx6+2+eWQt2eb5QL//Bhkg2S+InsVduLzl2Rq8FKxYubTBtYSNBX22jDzmn
VZt/app8C+Y//uogX8iG98V5PgsFFLxCqnetrRBA7/R2f14MG44xCdL9xJ9b
p+de3hQmhEb8poa4Hg6ONI38e0resb/c+dm4k0JcDVeoc2VykDUy9LOd/NeL
mYelB6cL4TnY/0Hgy0F5Ub7zOnL+UvHjBz4VCeAXd0jscgQb2oNL3aOJn5JL
2hqLiP9PlgnX7frJxt6hl6++tpB4Np0qD+A2Q5PBU9XawsbrJok4d2Lf6XX5
4yF+E8pu6fT2XmXh4o5r/36/pKBk5HQ+yJQHpRJzt+dXmIhNszn5v3o5pDd3
v82rJrxpDIyZfoaFacWng0bbKFxeyxn3VJUPV0+fxiORLOTYpVp4tVK440Sd
VBnm4+LeagfjXhb61sus9yDfz0jb3tbmzkd7cuCGk3ksBCa9Xc7Kp6DYxk35
ubkRC7ISPt8WMLHK2Oa3whcK/57uN5xQ24i7SiqTdRXIaHM7vs/zIekPTxI7
NnTVI3fhpOKL/QzoaAulcn0peIaWOiUo1uN3+8wJ6+IZ2F/0o879ManHF2Kp
P8c3oOR+w/n7IwyUxfU63vxAIdG3re/R7EbU+YS2dpUxwc1jdItI/T4fFOyd
S/b5R8X3vIamsImezrkjR+y3T/0wE/vUjMJZP5R4/7Fhu/6ZU18GhRIrRSPt
szwoPki9VBnIxMhrmekGSRQ+tVpbew02wNlNa9tlGybi3kfOcbhG4nPjSoqd
VD28X7obuUUwwHj5YccBJwoKtX+9RZV1uLF8OKFxIQO/x36EKJ6h4P5az4Gt
zkWN5bi1FtsY6FqkYLngIgXVv6WffkVxcSYzS3KnOwMrjONvf/Ig9mvTg+St
uJizRvlA634G8l/GnIlLpCBjme6l09uAnWum2G62ZiLRTFZL4TLJnw0mpvcF
XMzIzuLH+zFw8f1g8hp3CgW/xY1Gt3Gh/KEjeNxuBs687494v5NCqLvgja5t
LQw9LG2lgooBu5eD5/6joHFwjlHJ/hqiC0uNMpcW49glrYXMOeR75vpHR3Kr
8KrksOzArSLMDliqP7aZQkRYQ3JmVQ0a/CPTd1oVQ3k962i9JYUbetkWgb21
eDJZFcmsYtQuMW39Z0iB+T3L9vaCWjhcvvq29kIxtI3Tdp7dRkHMXO9hVF8N
zH65jlQ5FCN/3Do/1+sU1u7jPCxdXI9h9THJskQGFu06sCnlHoWr84I/1vjW
g6tkejizhIGekL6Em34UBM/1dw0F1GOC/eoX0yoYyHNxV/UgdTrarvj9jG8T
fC43R2+1YeHSzJC2NyTPJ+7YlH2Hx0d1rrNIIGTh9LDHV12SD8lbs6U7nHmI
5WcvWObHRInq+oCUCPLuHxOUsl0akPAFOu5qTCg7/dq8bheFfbt36ju41ULM
0w33Q4qxnx+11YbkT62fIidrqAE55+yj/5D80fVom2iQSvqhsWCW+zIeSgKC
zwjdmNi9TVqugrz7x7CABxR59x2uRzPXWTLQqhLw0vUZhQ/ry9sDmhvAddUP
VrRgIrDc5h5IHPZWrDzh7FOPl8f6rzxgM2DOd+A8raJgYHnSJVC9CV8CNGvs
dVlIu3LC347U784jz89duMTHptt3p6V/YGFYajVfhvRDg58HQg3WtAADa//K
89iwU9E/JUv6jGXG8azPJgLUr4orOnWKjZDetoO6pI/dHDTtCi4QQCJucVbq
UzaMlfce6CTnD6+euZy/hg/fgP9+u8Sx4Fea9LmS1HWl0z7fDqV6/H04Y/g1
qev6cva+7U8pPP1x40+sdQMCzXyDrBcw8aynzKuDnJ8lLnW6216AYOkeIzFP
Ni6uCPO0IfaTbV+W2aYLcHDJHzfrx2zkF6Za8smc9dLgn/j9pQXKls+DFHdz
oLj1YO7K/+mEopOXos+0YE3DbbEvkzmwe6e4tI34KW+25bu0FB/lU3MmXnjI
QsCx+D1Lq0k8uUs0M1aRuMkbzF69kYXq2dtbVUIp8OZ1qnStbsBQUrPzkelM
+F4w7Y2zomCVvVi8RrwObeu0r3IqSf6XTd01dILC48epx8a+1OHrvJsm3+Yz
cGs4rsHiLoWXxUZa19zqIe91eVtHEQNNjlFhu49RRE9unXTnfB1eX5F1HD9a
DD8r6X1G3hQWtLs8HGJy8ejsWtdjvgwIHtw30bhKYagkJfz6Xy4qLjr0rAtm
YCjlV5SPEYXFtf7D09Rqwd1R3OHgVQzOlrFM3xAKPaHnOnPVG9D4Qblm2VQm
/PrMDFgkT/IqKy0qljch7I+cv6EeCyf5a86uInH+diW7Tqy0CffCTApveLGw
6uJ89V2kn591YhxK5jYitKxMettcFh4MJzd1kXge2nXzlLcWH+evSGZ0xrLQ
KBGwuzmTQiGGVq68ysM72YmC64+YoP7I/HMh9rvaMSWuXjy41t3YuOUBE/KC
SX6fSD1u7yv8jFo+jtduam4SsHC1pyeq7R0F//khvYfFGnFtkYJrCIOJ3kVz
KP1kCtoZkW/0p/NwJ0ytKfw4E+kGX05JPiB5O/D5Z2RtPX4s70xcTjHQuOZj
jzupa/PI1yXvXXko05KINfQn967nD74j/huE+PpPN+HjXNIrsS2pZN4tqH5F
faaQO+WQBWdPI/qyNDnWHcT//g0LuMTPh29lGPtZfHBWlGb18VhYPvm1kxOD
QlTUseFZfo1gmXQ26fxjkv565nMA8Z8THmIxcZSHFH3pImERE5XysvttSb0P
fixgqFpwcTNk8c8+CwZCNeIUh4h+PqGhH/g2ph4sw+M8Zy4Dj1e+akzToJCh
++dh8Ydq6AqzZidTRXh3f4+qcr4I9tlsl3/RHNzb1h2zN64AjVu6+YVZIkgf
rDqvtZEN1uOu49vsC/Aivt9K7boIK2Z8UStcWYj8h+HG8vs+o+fLxsXep0V4
EabGlWPlg23vNvagOx/vn+mGDDwQ4fyC4O79I0X46urfMfLsM9asffi+vUaE
soXC3C3qpTgUdv9rq2whfL3M5ZTeiLDg4VoMGbLx6M38EFXHAtx5wh0z+iCC
n8sW8/OGHJQu2lNX97AACxX3vpiXKELX8yV9xzyIXnknpbtargAbbU7PM6kU
Eb0b9SQ/5wuW3JZbrj2uEG3ax//+kaMQPfhj11+fKiR+U0zVcC8Ce+yPHrNZ
BLmYZ6UatmWoZ46Ki4wLkX70COcK8WeWofCIigUbSo3vYwxPFMCmaq/m2gIR
dkgUCFYIOUjsrMnPfVkAh9maG2ImUchfN2ht87ISisvW5WipF6FsfsX2HGsK
YaVKp77K1iFop6/qHm4xhrVW2sqJUahPnF36an8lHExDfIRSRRibppX0pEuE
m4FOx+KDyrFywMzu5pVCnBFXeJXJFiHPVltla0kJBJrbNVPrCqDQK2XrT+KQ
+W6SWedVJsblvN0ZOKsA/e7cZYPEnjZP9n1FABMRTm+iKuYUoPzvqZZND0Wo
ZXpeOCFRDOPydwOPkj4j9JpUjRHJh12L5q3ResZBl8KHHr34AmQIHnyPSxdB
onG6kSiChftemm/0jAowejFhNKmNxKHUOSBqsAx+OeYDj+0LcT/1ANeH2Id/
kNL/WYYXW8zuptkV4tSgrs37avK9RlmknHgpkuW3tgZOLcSslfyR43EiTMzP
aPMYY+BQjKVSz9hnzI6Pl138UQSvSmXu2mMcuP6JtroRUoB9palpzEIRDkUk
l5+eWYLut8b7LbMLcFtV6jzzrQjZEmIT7Mlc2b5434yPZwsQ4XdQ57pQBN1p
VaExr8tg4X/TiH+gEMrSRxeb21BYVW6S+km7DqmHN2mHtBfDKC5UbMVKCpva
LF8uq6yGa7Vh37aBIgzUyj+TmU10xTiTRJ+oKhj/ld/j71OECVsP7VFuEWHa
w33BMnfKMH2xp/Ums0KkBPZJMsTJ3rTeK/lkUCX+ztuQPnN+ET5asWwr1clc
U/H86BdaDS3B+7MyzUUw6JwaaEd011Vr6WsuhlzYC+wyB4juKllcwYy4RCF4
14WMLZ+48PJQnfj7MgOLFbXkpYIo7N9jsOc5qx4zXryZN+srA8z25tQ4Ys8L
OF3pWFGP8a2fmuf3MLBQIka9OZuCd7p+/KLPPCRIHjw09oKJZbmmzM1kL/Ob
kLduixkPQVMWeipeY2LY4tuX20yypygaNUeHNeJXy4Wwb+NZYDo90C4leviu
mrNRt1UzimxdAm1msiFMU7WtJ/2tUyrs/XMmH6M5XR4ZpL/NPpDnoJdCYY9W
+7ghJR58wm38Q1yYaGU+51jFkn1zVcP6R8kNmOliVrMXTIQp+6nZ5pK+nZab
EynkoXl4htuHXCa09ukvW0r67UXZkeQ/T/mQv1KkPY3Dwsh/C+UsyL0/n27V
lpvejHBxsRVbBllgPAuLLSJ+npBZevqpbTPqrERaanJsnJdPcPAj870kLTpn
s2UL8vru1l36xcbJOSmmW4k9Ye1bjxHnFvzWPT3LdyIHZygddJK5Fha2t8uH
6Arf7GarhgtsmFE3rwcQnXN/R7wfNVmA8tFQvxHSJ6bqndqYQu69d4IzTsa1
GWk9t1YnKbDRfuX08lzif9X09WtCd/Kx4NR+RS6ZF7IOhqa9ORQmiV/3+tHI
w6FZFnuvv2UiL/LerNhIsncUXdHTudgA1TfSddYaTOwMenC85C3RAzPEx60o
5eGbhnFYTiYTKjH2VyeSeKa4XZ2FZw3IWBqlELORiTLh8dh3ZL+OeDK5ZfXE
JnSouTx8v5yF8MA3Cx2In1cz78m3PWyGWGzDcpmlbCT23dhMEZ25baFhd68W
DyGFjo3a54jOHJgipelCzpkd+KF0sA4nm50o81UkD/WEM6cRvW1xb6uG2IJ6
tK5sukElkD3FJtjTmehz6cpvAmWizzXnvG+PIfr8zEdJaadNRI8dkxfNTqjB
b7foexMNizFzSbqP/1wK445HZqpXVSG9+G28blARTs9360obEyFW8u64zasr
0az/dD1rpBBGbXlJBqTuLjolTW/yL4MSf6Oj/F4yR37+jlDgiBDaYp3bxy3B
38Z/69rqC3Bk7SKVrr+kb4QkbYjqrIBJWYzVi7ZCDGQNe07oIX3vsm61yYdy
WH3zn7jvdiFiZf9k33gmwoa8T/nZR5iIvHh14bfpBWgZ+e6WQOZFSnjBk29W
ZZhTrNSkQebFx9A09VmkrovNj52dcr8a5p3msOAV4cj6mm339pI9Li14Rmxy
LdadzeJFvSzGb4cumz9k3/nu29Kq+6MWEg+cD5uxi5EsLTGsQvStdHVadNuB
BqwSip1LnU/690Hx/8yJPSoi38b4YAMsEyv1Ioju5TUHR18Pp3ANoZr5exrw
Q2WRopcSE+pih2JZJE+SXeMHJpM8UfUwPZdC8kS8k/My+gXZN+WCp0lt4EE4
baMdy5OJ5kdN5+Pek/kVmXB+mnQj1ObLLbfnMNF9c5X1AMnbpmOpi7Q0+Fh+
2Cf1WjQLWSNc7goehZmZk+/1+BG9V/1He/gI2ReKovYqkXp0uf5cMnwlqceB
/0paxrPhlCF+QJPUkblBUngUS4CE6BW2Q5FsZCxZYC9PvtfhJ5xz0GqGzoyK
sL0TiJ2rqhNH6lFJcApiZi0oEuuXyvvBxpDaF8l1xF76WnUw6lQLnje7cgwm
cXBONpw7u57CM+mhvE21QuxLD842m1OCvhUMRn0TBVsfn+Eld1qQeN3jyJu5
HIx/ekJHSPaXHZre94/1C/BYpWMu0thQ3qDi5Ejq2scxOdhCWYBiTMhVsWHD
KyFgoT+Jw0Bvzwx9Bz5i54j367xhIV1BwbLkFYWyjSMsbX8eNFenS2wIZaJT
9+T3LvK/fy2Clonbkf+V29FrTPrGZsaCT1uIP1M0/LnrMlugMxD0+I8OBzMd
luyxIvtmUj8jU99HCPsn98ab13JwU3LkdArxEzUC44zJLZBJOyieksuGgz3r
vjHx03dFYOj8lQIciJ7HVbVjo3W4aXnoLfJfvy/E/zSth+TxK00/sxl4KeA4
epE9N/Fks54D2XOVXkyxrStnIOhJgV/bUQq9eRNVpN3qMMUxP543XIyjTean
x8hc8L88d2+rNQ8DZmLqrTdInmyuTsgge8Hc+PJWGY0G3AydPFleholLhus3
rSZ7jcY0Rq/MuDrsPpkvcbu8GB8GH67Zb0YhdJ6M72hYLV6xDSO9k4px9vyh
PTZbKbCaO3jn2muwWXff8LYjxWhfPamSNYPCrc7Zvgo7q7Dq2o1vuUeK8CTb
ZO/EdhFG32p0t40nuij1bUyAI6nfqv8cjo6KEGhjHt6hVInVrSkrkwcL0eCS
3NHSLSL96KCxbG45zp0vFA+9VYjBbwWLSn+K4FNh6L3/QAXqGrvedGYWImfp
rvYnP0Rg8SWnWhpUIK7B2HFzaiGmH9zCHFxB5r77npnOZdWYpzZ6c1V/EbJU
/ot6NIuC5KyhzcPBVag0+lEt8ipCTXKe8BNI/7xst/rymxpM6Fw6yjUthk6C
c5/UKgp3+DZbXbqrcTvgqTib6OKPskERGQsofHrw161/YTW6LyVyb6cXoW+z
zR3PA2Se5inPSh+sxd7iOL+GEhJPyU25hW4UwvmSnbvBRfTPDHHGTgacjoq6
bEifyfyg/P5IUi3CO4X5718Uo7Pk5fbwQqL/xVqehjg2Qixu/JGub0wserJG
dzzJ543jf9zekclH0pd7QRpVLKhJ9qreIHmi6t3e00bypKtJfMbkCgbmGR0/
NLWdQrb2s33XlPn4nPDyjEk4Cy3hvNJ/b8h8VGtKffWGh7mGjzN9nzPxq2Rc
UATpP2eXlB7/wuFh+MklLjuDCae76koj5hTm6Fuv93hfi8O/jsqMf1OM0KGy
6+8jKCiz2FeiXRtwYvoTVqkaEz3e1ZwlbLJXNtgmxqU1InuGzsflUixY3wlo
rSH1NdL+XG7MVYCNHudiLlxi47vm9JYuUhdLv3lUddU148/pCsv+zWz8Wq6y
QZX0mXWb/nRpqDfjqnrl7/IxFkoZq/My/1dHjRx3hV/NSLL3uuVmSua40h31
7cTuXhU/7p+mAI8SEtc0kfpKjNluO0bm5ryOvkqPTc2QPat3t3sSG/zHGjUr
yfkD0WO3PRc34+zrjZfER1mYaqw7dpFFIW730vCeZ434cHLn7HwJFsSPmdn3
kvP/hU3LaqtuxodnIxKl+mzQXHea605z3WmuO811p7nuNNed5rrTXHea605z
3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3Wmu
O811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811
p7nuNNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nu
NNed5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811p7nuNNed
5rrTXHea605z3WmuO811p7nuNNed5rrTXHea605z3WmuO811//+57v8H+7fu
wg==
       "]], <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{-0.18556517769293404`, 
         1.6742378199207777`}, {-0.024791091064343934`, 2.0705377533946985`}},
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {300, 300/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.006944444444444445], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {{{}, {}, 
           Annotation[{
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[0.006944444444444445], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             Line[CompressedData["
1:eJxdV3c81e/7JpFVn0IlDaFFk7LVpSWkUKmEkpIZFaJtFRoq2SRlR2XPOFYI
IXtzjHPMMzhGOHzfv39/55/zer+edT/3c93Xdd0SZvbnzJdxcHAMc3Fw/N//
//89NLc9qrDNktS6ZDXVZBZC2vJ51YTlrhhS4ZqAC2p3XpBGeLzrVt19T3q1
qUEyaj4B7QqSpJudUSQhqvzjDZc+g7p15/IOu3hSnGuD5e2IJFTI7mfq7HTD
wdcyG3eviUPn/ovPIlt8ITkqQx88+xULM03J0Zp3SdZZw88vWH7CMdGYFZNb
40myzVyNZewvGJiLXHc8x4PEKyzh8SknBbJiy4tHz/vhq9cvEbuqGIQ5Ffpa
l2RirsTk0eqa71h5Sc2CJzsHQmpm0yn/ZcNMci2lXjUHH3Vl0h+W50E27bW+
qX8ablOYe06mF+NI/cUvmqezIM0zMR+6JQ/icwfGxmR+YFdN+WylXBnaXRuc
7LXT8ZN9uT/l3W80zBWayOxIgqXd73ulob8hvRi8LHZ1GEo8Qo2//CmGXbLd
9dzzcah5lni4P6wIXWp5e20X0+H7RUeqcVUZVKrGDFNasmBTrrvaZbwEVK8z
Bj/OZ6Pow51zg/aleGwrPZsmm4oP+SHkDawy8M0uK712jgTGe+XdlbmlIJ1t
se9WLoIILb5Hr6ocQ2xe1U0lJdh3lfFYZKIWE2GXzn4qrsJCWWfz+7VNSJei
tsVx1WGk587QXHUj9Jk/1700r4NI28mC/WubMeEoJvJmfxM6yvSO7VloQOVk
4ffiqgYs5BxyzJZvhmNihv+6i83YdLP/tdn3Flx9r3n/uncLRB6uL15qbIGt
yHvdKqE2XDxx5PtlhVaAanC76VYLHBP6E2vl2vGs6tzO+vZGTPPPCXUWdMHy
iAHn/feN0D491Lb1UC8u8r7azZ3XDJsvK/ebHiND2trOxVCsFX0Hj+5P3EnG
t2t7Up0WWmB5al+yjkMv7Kz5jex8WzGsbcf43EbGBr2L35zvtWLbr7Lz22TI
eCn49prqZCt8bOLfxx0nQzU2t922pQXXLF1RlEmG6E+Dq6eGm5A11t1+pr8X
jx5FPFebacJ1X7mNfCK9kNy79doLt2asdQ76VnGlF3lKD54eIzXCSnGnpttv
MgIre9Bt0gDSyx2ujvl9WO4S5TVW0ISxHL8sOxUyjpAtlh1634T3rEAx69o+
rIy+aXJNqQVPtX+eMtfox8UnrZlRTk0InjkrOLVEhstxR9HuZy3QLnQ91TFG
RkLlfcbBL6146rihssSejDcnEiwVxtrw6fu6pK3nyTCVrLMuz+qAxOeGSMGb
fVC1/sAbkdUJB8c4HpOPZDSW/Df6rrgLsV+OTjQR8Qj60NeVjXfg4/YITrFn
fXCynAneqNeLgsDorxoJfUirKzbd8KgXPpP8/bLXBpA8vHFPw9teRDY/Nnav
HcCp/tQGhydkTOvl2Ym8G8BLaYNlNlq9eKnUELA+pR/CRjHGTxd6kSPGFlaz
68flql1n3qqRUT47l68bT4bJeRvdvhNkxFjM7E972IvgEE9wEudxHB4hJV7u
gol/h9u6RWLcjPx78VEblE5o5Cpn9aHlqYfmhhVdePnxBG1jQC9GAkx2yct1
4FdnZkzQYzLyxQ7z8//qAN/+srMnb5HR8l6Fa+3zdnD/d6+95Hwv7JNnG2oj
OsBU/B610b0XgmI5Ss7z3eDZwri6nN2LFD7n2vXOPbCa5PTjXdmHCI3um/ty
eyH75AhJa6YX9W3/xNoTenBU7W5eumof4qJrOQzyunH2n9V19n99WFj19Z+L
ew/MLvbxTtuRMcl3697FW90Q0Rj7/PVqH271vFk8eq8bu1UfbThRSkbW05Ir
w5Yd+C98+rO6aB+UTvpkfi1sw4jc8LKnYv3IyuPo3tfUDufto3e0tQbgf6L2
dMSybmQH1vBFJA3iTseTtwl5nUjMXKZ0MmIAPU7hTx4rdaFwBdWNd34Alxp6
AjpCO/D9xY5jZWmDUHfQV9B71o7ylBCJG2qD2KD0g1OIGF8MDLxrnj0ImtkP
ZVJ2L37QqF+14gfh9q/8aIlIH5rv6AunvhoE+WzFXcH7fbi5ZPcvQ3YQHTmP
fW886kPe3ekEkYFBeHNzjWb6kHHUvXFbb9UAfiyteVHpQYaEnMT2xqMDmBl2
1jTqJuO0+FPV4xb9uFRTwH/weD+ki/j1ym/34TPH7serkvth1fLwVePaPiBQ
sWduXz9O9Xmvt+boR6juGtHNmv2QbzD9o3a4D8/i79hLKg2gSfLwKvcjfTBp
aBlUkqVgO0lga/IZMuhWdQN9HVTc3/zs5J43fYjWH9KbSqNgo7yqm6pEP67q
c9hQxwcxRZIsyPpEnD/0/eVn40GYHNktue9TP0yMqeW01RSsbExw4Ertx4yW
nVdq+CDqbBJathBxDS86vFXKG4Q9KWx2eR8Z3OQPzhm3BzFRY2B0g6sPs0wP
1as2AxgY+SYnI9+DGgElpwO8FKSf683P+tEJ9cdKnoViFASIrzvmeLUTe6dH
2I3EeJCN4G/eX+0QSM1creBKwaWPGtUllu249WrXlxwLKkwt6jfdO9eCfb2n
MqdOUCDjplFfF9oMDMttetYxAOar2SvCVgQPP+Ko14mn4PJrL6GC5A6kfChR
DHaloqVStZBV3ok8nm/bimOo0Jt+nGrQ0QFdqw0fb7+j4p8B446FKoHD/Bpd
w1QqHnw7f+pGYiuOL6U33S6iIv36+Y0v17ai8eP70HW7hxDuID9yTbsdoyYn
x6w2DUH25R+NRzUdCBCIiRytpECZS+Ymz/1OHE0y3PZgMwWF5bnOSwE9YEal
vnzkOYiexTSKpVcnVIMdJUzqBnBalG5/wY3AtcOV35sNBnF3/QC7+0AXvlgG
Xr0RQwFfyc3uP+hA2c7qbAexIUSdepLat6sNtMufuJLSh6EXwPMmybUNORVv
hQ/dHMG5nsf+94xbUfr1acEfvmG4PLez6KC3gBwnkl33YwRcj5U8TAj9MK+e
Xny7bARhHxTershsxuiGeUeq+yhmFgq6rzq1Y80iTaIhehTlzSfPDK1swyvB
LqqOxigU7NzXe0l3YLv9nW9TCaN4lCDkL0duh6z+SmXhh2PAnjrXT05tSH1z
IigucwwPWYFXWm+1IaKc66v6hjHMdF2I5hFph2nFfqdqh3FIwI5UpdsOUZct
u6W8RhHUPrbXVLgVHcINf9jqYyhKTNFXudoMe4eR2uWhYzgyeL1f610L/ro4
cl02HEeAhnfm7hPNEHT7qDN4YQwPfgXsVchvxapNzG0CGWOQ3OP6X1BhE2LP
5f50ezgKrejDhZqED3Dg3dgVPzmK47fO6CvF1EPBhhR43WQEoZMfU/cm1iPz
cEEQyWoY5rdUKWrZjXAxT0raOjWMoQ/V6xZYf9Hs8yM59OAw3kw07ZAUrkNA
x/GZjLYh+PdxLokEVWOFROOzvLohXJbfN1TD9QfrvMnTkVojeKegIrj8ZAXk
5CL+nVUdxolhh1/mp6qRLKPHJU0fQdPF3wmMo1VYkjt8cr3QKK6tu7zc07MK
VcVSe6wdx3CffqqMi7sazxjhPwUjRgn+arriKlCJFF/dhduZo7g4E/ndjK8O
e5VzonnEx7AL0l4GMX9Atg2plKePonFj2lmJK1VoojgtOJaPQOtzdIuWXzlU
q7rvVt4fxfkaj4fFob+gXT17YkR1FLSrmNijWgpRCn/oF9oIrEVHToYcKkXw
rYvPogRG0LCZcu2BXhlMXlxdA9MhMDusV1v2lmFAud297uQQbjaFXL647hdy
n0heSNUagp8m5WPT7hI88Y/QX3xOwT7epF+KU5lIyD9w89c3Cq5oDBRrnkuF
srpvJWMVFXbjMk98t2Tg1D82R+cDKspOLjsjRU3DLfXvJEEeCirlnxilLWTg
9/Szc49rqEhi6Znts86GB0mm4lAzFZOdNaVFjmnwPf8hqbRlCCNb674c5smD
4mXN0DmnIQSb+s8eME3F7kYjfoGQYRibbVgxMpKM5N9POzgOD6FRo1PlNV80
OKocbHKJ+603UPQUoSZhUDx3y+b0IfCM3/XMNszEhh+67M9ixPtJmmWvjyPB
3c/V13DvMFY7zIbFpmVDStxKcOc5Kv64//zp6fgDRTEfVSwwhKRr05Ixt5NQ
Zr7Wz/DrEFT699kVJWbgSdzXPavVh9H7JD9jqCQHZzN4gz22jkCh8dYVqlgB
DkXpTppLj+B1NEs9Q5CEWc1s2Z/fhuBdIr1YYlwC7oDWxW3E/X0+OI+JluVC
Qj2nYkMYBSP6gb07JDIxtPK3w/5vVIzF6Q5VpGbAObNTns+GipeivHbXjydj
X8C4aIPEEOqX/aYMTSUh7rWtVr4qFbr/bcif7I7Br2n3HcLBVMitWHdp+4fP
iPTY9qz6zjDeec1e+v3WDMEfL9TtyKdC8lWO/87FMDy0KpJJyhyCrdb1ZzH3
P8NHP7dwxY0hKMpWiDA/xeGoSNadVCKflNn8qxYLWVh9Uu1M0JdhOL6tiUzZ
WITy3cXbqy8Pw93jxPrqPySIvfw74MoYQlnx1p3GSXngYxr3VwYMY1Tcb9Qh
IwMc148WXFEYwTaJ3y13+/JRGclDsnAege7uCYuk8QJQijmHZYn66gmIi3/V
8RNKEonL9axH0WyzXPSMdCyKvQz5NuiPQ5Da94ae/gJQelrh83IM66yvTn9P
CIbhxdLNcZ9GYVAWe5b3ZjBWL6vaVfRsFNnbjj0/k+0Oh8djbQmGBB8+tbvh
1pmMOwdXzX5cNYaog81lG0RSoWFjNSP4exhSJP+CotYf8DSSEjzoOAIX5X6z
BcMY6B7K398gPwyj05/W8EiEIPKoBuluH4GHPw9/L49ygwX/eK3g9AiM0w0+
2/LE4YzLmDOZ4J9XsgmT5kGJKPhTx5ZgUFCy93Zxe3wK4VdnsyR3UtBXzTXq
N/ENiRfHfigmDkDpxzq5b8IZuOG36bLPikFwqB16IH+DBBEG/2X1tkHIGBmf
319P4OfNqu+twRR86LW6fGvhJ/b+/Bb3XILQ0/QwtbtSqaAocDfVTQ+h8Gx6
bZJ+OiJVRbg826hIs3vo9sk2GRSuOVNXHkJvK06KZdZ/R2xtkHOvGaGvC55X
ZZdnY+bZaMD7VkLvBt9oePTkQvOCcImuDwUGO37v0n5eBHpIhVW1zCBYq5pJ
U2qF8KZo+pmM94PnZL105I1ySOc2dMxkEz5HXOmsz/4KzPTaKXILE/6lXteW
5VWN47x5gc//UWCIsLsPGVX4T/XEPfsBAp+eK3PeqP5GGonrwLEfVASNhNwp
LyiHwhp+ocwrFITuCRfa+bsMasq1owFHKGhCdRvr6S+sSqHuOPaQCikDm8hI
k3I41zdY8jsOYRe7aHFRqgwdHzdtKXcfguh+90O9FpXIYb3SrVk7hLQGpC4Q
/Frx4+/hBAcqfqkGfefQKMLB3OFTKRwEP3SdftG6uhBtmbIrvekUdDj7LYnw
FKJRaCI5n/B3XGpVeb5SxUh9ZNhaQ/iPdyZTXEv7s3HpSaXgEFFv0XzrPPav
K8KqbLO68BQKUsTW9ThkJuNmPtlIk0lB3ZjMwcT+DMQ7rpHNLqVizb3bJnE3
c3Akx2YbRxAVI8I2CovvfqDs9KkIDQ0qlOgfKucavkJK4NNMwm0KCnwO8xTJ
JsNb68rFbdYUTMiR9E5/jwOXSOsak3EKIq0pGz1/OkF+m3lRoA4FWkravkKV
iVi798/J5RlUfL1zPKOaPxLHNkGkyGMYpdviyTtGHqGW9XNufPkIeBgpMSZ7
I3A9fzj02a0RcAwIGqeOuqOZ0eyb0TWEde+2fza7ZA2jntRvPWwqOKLcnYfL
Zo8c1DyxqvY2Fac849TKzr0jPcwVTF3fOgStP02Sjc4xpFW19wf4IocxK+7N
Hr/wmiRxntp47dEwUp/aWVHV/Eku62vrZetGoGdQpTU65kNSHfS/uL11GCoV
AX1+bwNIrCI/p9Zbw3Ddz2MgVZlIGg3d1DybTOhN/ymx/tRA0rldt2mvTQbh
t/uXFffSV9K0tCLfLsIvbxd7+VQESaR7YUajmglE/XXxm2wLTiEZrezYuy2F
iu9PPJKWb4ggRRhItRyOoyK233mPfXIiKVVt0I1WQQX5dVgr+VgKSfueqX5r
EoXo+w08uDoTSPNSobR8PQrUM4vS3ubkke6Q+/vv1Q6Ceu15hoF7LklDPNhX
YG4QLbd59BvdfpKa7j5jd2pTkXPo2/OXc9mk+eoVMudzBtFnnOW8LuIHSd2F
w0bdnwLPkeTSZQZBSB6XryNbDKIihhccf61JOxxaQq5UDCLi7YfZf3qxWJBV
ICfaDYJ+3p+LjysBLJ0x/QtrCTxkyMhY2qZgjeTfhkLfQZyNGnN6zhMPp+2r
3a5+oED6w34/icOxuMFzYPHBAQoewZg/fTIafe4aze/6KeBd89v7a3US3guU
SvKJUfHibGrjnb50ZMtEXT7OQYG+QndTwN5UFOV/bhF+OIjlLQ/PiPxMgf5g
zXX1/wZhnsPzaU33D9yhbgj29urHumtPbcQPxMPfb2eseUI/+o2G9qrYpSKX
LESieQ+CMbrRvXh1OLjCJxdSDhL1TE1qfHI9EOzXfzcUX6Ri12StAeuPEylQ
oGa8ZuMQMkpcFizO3Cap6iVQdYl6aa0/0lei/hnbtltNhVkNoZfmvXbyfQpy
DGMcv/kMo8x93DjzwVcU9AQ/mlMewXodnjOzESQwTx0prCX8iKnhssibj3JA
0qZraDsMg6xFu2D7Kx/u9Td6TbyHcVLG6fjZ0GwMmzQdtDw+hOK1vv8JPM+D
zw7DJG4C31OntPZnJ+RA11In3CuCCmEOtZII6zh0H0lXqH4yhNZ9Tbp9Qu9w
+ZOiCztiCJsenj+srhKLA6f8impkh2Fh1fleSSgdn+kUxtFogk/E+il94jko
EzORvLZlGDueqkQ+103C/ttNKYrXRuE/WjD2pC0Kwu/c3W7rjePhe44wjtW+
MPDjvFtUPYZcy9w23smPOPvVs0q8itC/OqXuNrIfDnfrU4O6xuH81MpN9F86
tolZzhrfo8NgIU0u9WsuBDkKHLWuM6DyLfzDY/0f0L/1Sn3AiIkAQzXB6ZsZ
MAuvKvuezMTla87UGqcE4p5rRBb3MBG6fI/QKsck6PCtsxefZuBmgcJSr/Mr
LM/04G7VZGJxWj5r3+E00thQuM4uBgPv3JqNAvOSSf/G0zO2rmciX3bbSO5I
JKl4j4hrjwITjPvxtxI9vpCMYsS2nJVkwlXoibB+axBJW96HO7aUgbz118w4
1kSSCru8uyuiGIgUOr3q+MATEt/FGM7rjgwwJlatWi2rSnoR56D4gIOJU9Er
ZkgZwSCjumnoBAM9kx947yvF4LOHsdUANx1Jbywyw53S0J+wixaVN446O03E
haThyF3GyN/CMdjk7CtkUnOQ8eVIh7TFGErr3flGWpMRWLHjjdryMVR7Vk4Z
O72DeKm6yD2/MQzQgzg5yyMwsinkwYkt47g+4HCL2zsDEVXer3Tax5B5glOW
QyAFu+3STrO30+HeqtsRkxIJneh6qi2Djq1m7Y8kn1vjG4f1kkkDHXU6tOcc
sp/gbdOy6OJGx/IdOxM57e7hU+3pms5FGs4qZe268OozyT2Q++Tn63Tc6eJ8
kPb1DemgDKn1wGU6rnCGjO1mfoF4xoVHIg9o+K5X993oawh25sRJCFfREGjS
9jj2dxgCX3u+O+VKQ6RoaPK4lRnp0JoNxdc1achN7YngcXdG78kA0Q0rxzF0
xS/ly4Q9aU3Wy78PV49DrO772rTjfnjSfn2EPkfDld5W7QOtmZCL1vapnB7H
+NWedVEKiUispyus46DjruhEbdm1FNzezeQR+k6Db+3mzXEr86BSWGd3j01D
wc6I4OQVuegRl3N9XESHhWR71prLRTjzRmOlCScD89tXi+2Zy4cHy+fnoh4d
qXnyz/+lFuF8WpSxTDMDMcc+Kkl8LcYXdz6fp2MMrBRcrSYnXQJHumWqQg0T
KUUbe80nKqC9QV2rbPsEKvy8tnyXrcKJUgG+T61MmBdrszjD6pBxfqHjfQYx
P2nVjlTxWmippBs9uD+Be9mrXdaR/+Ck5srY8l0TKGgW5Iy4WgvqyIsziaET
+CK/xzddqAoz52WFTs9N4PDqi5z73OrAauPbvmv5BP5ZfYy4Z1sP790eoc63
mLi1662pXv1ftF9aHXNzORNbyVUrxTf/QfwyOeuaWgbsJjUuxN6qgSPZVInl
zsAj1/n/ljtUY9XL44adt+n4YnJgIGC4Dmv0uYr2iTCQcjRXXmRnI+ofriqo
VKaDFldPyon6i2KH0vVHvej473Ud94aCOsy/efv+x2E6VHuXztpH1UHc1ee9
ZNU49B/uZ4aF1oNxYCAxZWwUPkEZdfar/+ISt39YtdAY1ILV4bRQCa4A/1si
7uMIff7oz6pz1SAvJZw48mIcIegU92r4g2/LvRIrZ8bBo7C9Js2qFoOZe/a9
TqFh5N/s39WyNVh6VXTyKIFHs2fyrP1axPoTh4wbb9IQXLEphedkHdzoZ7Ld
GumIyKMc4lCqR5Kpv26bOB1qbRXGD7j/oqrXcM3RSzTQfja561VUgKT2uGLf
EzpKPwy8b88qRXxVep+UHMFHx3+toGUXYov7ytfvkon99vTP89rkQeB+Sc7x
LwzY53CImBql4ahvVhGHHwPGB0jKvkcSYVGYOyLSysCK1rbe9d/zCV6mrJL1
YWDz7xftvrr5WCli8l/1egbGBH6UlfgUYFdJdXxwLgM/ftAFjbPzEW6n+NuG
WE9OoiVXxyRi0xbORxuT6BinMW4fup0FZZ/ba8/so6Psnrekckoq7gpkhT1I
oEFGMvX1SdWPeH59rmKY4JutaUFGB784If71yNsG1VHws1/+F7TGAeVdCi+K
748R/Ujv06VPQVBJl49YITIOHfNbVVZuCeCeWxLgJ/ShUbSzKbwzApLRrVsC
9tHQ+DXxQXVEFKkifNnm35U0uDLJVMmMA6RZ77Yz3a3jCLfwKXtY60963jtl
nao/hp2WvtbORzNIE4LDfLcxjmtvvj4fvpVFOq0kB7tGGl6ntX34ubKYpLGu
Y88ZThoWXHy2C5WTSKkdqrzSCuP4HfzSP5+7mJTMM6pWGzqOw3d6cvT/KyKt
FvrVfHBiFBbFe+S9436SamquPz7tPIrZcm75c1Z5pAhGQHt32ChKas/ttMz7
SXpFt7dXmBvHqdtW1cpWiaSjsRI8gUT8xa9X/FTQyCFx/LSVNg+lQ9rcwXMH
bz5pU6N6+nFzBjoj42pe2eeSvnz6+C77Nw38vWK7dvzJIn3cf/Zmffw4VCZE
7XeNZZLyivVylmfRUM47qzdxo5Q0/WGQ5a9CR+afpbc4/YvUweO7R2AdHd/a
8rxDCstJjoYCtrdej6Pyketlyb2lJKH0wy03XcdwlSZxf3S0hHRrue2bercx
vJy6KrlTs5gkvbPDMfzIKJLXOhnPm6WQLIp83827jkDTYofyoT1vSdVBlXrd
acOwb83YHbrJj9Soqiz4K2kYAsGp3v+GAnAuwfhQ484RuP976lXC+wwcnL77
s3RHQH24TFvZ8jVJWembt9bjYSTLtfPZiL3DZOetf/Qfw7D8ciIjYb8nyU/z
0cXZ5mHE83TZ6r0Px9ehu5pnvIZwOcxL8eZ3R9Kr+27tYSlD+J4533q51wG3
U3RPc0kO4THnC59L97/AtONayEDUECQiL8sUSaVBu+OZjtNxKvZsXX51fDgT
P6g3/fr/DUCxL3Ptc5VkuLy6eUqI8IOa5nSD2drv4DwY3Z7ePohStkasnagr
piJerizsHMCe+z1rTpx0hUsh98vN6wbhfYzdNL06EE2eVxMkLAl/6cv3jKv2
GYnscDj9CT8FNlwzZX37HpAO+YVJ6jwYQMH8vS+Hyl6RnoTEnGt06kfEt0fc
tCMfScqkrAN3evtwzNNDS/KnG8lgww3vzJw+bNHZ4WA8m0iqUMhKikgiQ0PV
nlF/OIZEvf+81/4yGY5h5/60CqSSUuXSNeu/dENdc82FrXrRJB+v/F/WBl1Q
/769g7PkDMnD0Kf99oFeNIfcEjPo9INhtu2EtEQHtt4pYXZtjIOURgVzzWQ7
FLav5xMRjiVc9hWN9wPduMPzzPp7dBhpQ+Heev1vnRC9ZObI+86SlNmjlskl
04tu2XPyVnXWJJNHtwfoI93gpcleFfoQQfozepdLsLIb6R6vdO+uDCUtJWr/
UlnTgz3rr+kHn/FECSXWzV24F40ZK//5vrpLUv8U1+4r1guRLUEDL4QiSR6L
jF0yZ3pwJSFgzZPj0aSpJe2NnN970H73pVYARwppaq06y5LWifqczVXbd0SR
tkdKFf1X3Ime6ijH1ZwBJCGrx+JnXndi79SQ27EDwchstI2O8SVjlbFHneKc
O6lSekJnq1sPHMVyu37bhZCSJoRuJF/uwiOHygE3u3jS9Qt26XJ2Pdhl2BX2
MN2VVOzQ8ukdBxnqEkFvJ4xiST5P13u7ZffCLT0tJuFYPMlxroue+ZgM+uC5
SC+NcNKxQRsfIe9eJBtI9fs+vkbaya0s/8mlF7H3uNbuV05CYZUKk3KwB/aa
4t28vh8xUqZbcSW9GxFW592fxiej6KVzx2m+bpytkT59kz8ZB+/P+ki4duKN
xrTCg4/xCN12NCy4oAc6grtlxGqSMXth8NPVF2Qsuv3lDO5Ig4je7c7dp/oQ
tWC6czEuBdup2mmXeHtxpO5lRtLJZCy2Hr0cS+sFh6pc+vnbMSgWX37+zp9e
7N64XKouLQYHH4fNCq4h483W9IeC1cHI/W0ka3iKDM5g94UbH9MwwX/BQmUr
GXd6pvdVq8ai0sWOdqasDzyHxLU9/vuOyUuaw4f7yfA3+HvCMOonQjU5aJu2
9ePknzqd8b2lUN1tZ2/4qx/Wg+nsPI1SMKJZwV7cA9jJMv9+amshfG6t5kwT
GUBpd92p0OdpCP6WKBq3ehDfL2x9VPouD9Wa+bYOywaRtJFKl/5QhDtVX6OM
4wbxtHJr4/biElQXFOht/jyIq8zf1onLKtHV9V24dtMg3D2Vpje9KsNmh/E7
/YuDCPRaufl1eCnuRJ60VvlGQXV291uZ94XwT5S3nRYehKzyXtF5rUzY9zl+
qNo+gPpxr+ZNM6m4vKvGWcmnH/uW9XjfuFWI1hUBRUE7+mDgazG8t7QCUz7r
t29q7UNAnPOxc2YVaCorypnz7oNns9FJRk8p1k3U7KBOkOFT90Tr9J402Ilc
iyz070cVp+rvc82JEA/KnZIY7cdOruPtjpNfkfwpQMomeQC2j7hDOH5kQe/X
Qs+biAEc1TcqnN9eiMum5CvuHwdhIl2onxRaiEtb9UPWW1Mw91HK7ZVXBjYM
Oz7Pkh3EIdGSyivbUrE7kp4rdnsQIanv/Avux8P6nZpE3dggdAQSeQ3+5MH3
YFCcshcFkWcqWRG8PzFULj30qGQQygJGvaTJdJxo+3LtJ4WKyPmHdYIfS3CG
/HTCNY6KV5vJ6zTpv+FAkiNZtFMhOxiY1GpZjhP/5PZZ8lFxyv/sRnPivbeW
TiZ4T1LwUjy8Kc/iF8QFd+kV3iT69zv+8hENxZDSblqx1pEKj8TF8P79pSie
LT9Ky6dC24o2cdaqGOL/0gxWGlGR9O9H5of5UnR5pLwTX0ZBWajbqZ33KtDH
45L16woVm0xs/NU469BsbjlTbzOEY4EppnrafyHHOH8t7xQVLvWGqeav6lCX
/1PK1HoIBVOmK1leZWg59uP+a08qcks5tELNy5CY/v5mQDkVtak/XNbQKsCf
zry8meife49v/yRRRJyvdtbrlMQQvENm94jRf2EVTXFJnVh/pFNkihZQgozo
M2HvrgzCTIQplxldgvqvDQ8maAPQPCxncedFOSgUZqReRz8y2rVeXBWuwGhv
UCSfwAC2HIxtXHerGlsKz7Ljfg1CqMQtvF7oL+aMvJSqMyiQt86Uijz8FyGh
a3MHVKjo3K/MsT29Fs2dlmIbu4YQufrsBbGkv3joKvaf5n9DSDCZqbLZ+xcU
vSxl4TQqMnjZOk9Zf3G8KSU83IcK23dXNvUua0LXQMauue9UNP/HpfGwvhY5
qx27N++joFB0lu/F1jpU9YWfFpWl4Ofdtfx+jFooeczULDoSeOEOl/fyqAPH
MneypRUFvlpZd//TqkOySUQy/2UKAtvLV+nZVMBaKvvt7G8qdDh6r1ifqcNJ
5gXd/DYq6k7c0nA9XwUbvkQFuxYqJJ97u+4XKAd3scSyJc0hKNWld2ZbNKB0
xP3+1QdDGNu1YsBWqh7rgwa/7WQT8aaqCKaINiD5hKumfeEQti1zCt7/rB4J
H/YFmLwZRqx8/dQjZgManZJa8wn/oXP6Y35hbQtsC27VbKwYhpCGYjbn8zb0
Jfe90iL869kh3scFm9rQq0Lz/jk1js8GjQdC13XAOEHguVPjONTjfxy7/qEd
jy05xs3fj2NB/GCrAHrQcb2BOuhKx/09imeveRK69e1LFZppABrlt5h3YEQv
ZxVpgYbTr3mWbXNuh2XYGb48YzqErSrnVqV1IMaZT9VyDR0V0UPdD1pbiTrO
8Hk4Oo5lzE9RYa/bMbA8ZmFz2Dh23PzPP5CI992GQw+eWY3juJlyD6OrC0od
9roCS0S/wRd30I7cDQvL1stVsjSc95W4S3clfEJkXoxg4xiMriyfay3uBcPG
5vJczDj8LOLM/tJ6wC0xo/v8Pg0K0h6Lm7h7sM+ZS6jEig4hqnnGlFAvLM9F
uR65yoBriIjyXsUuOHmu+30+lAE3E7H1F0vaEftkxNA8g4GTRvTojVkdaO75
UR4szMSeB5GL4l86EL1BsUwTTFhQ7NdrC3dCQ6bD5NwCE/ZZuzap1LVjTc/1
ytF2JoQ3rsz5k9aFhD3dQXP+E+jdp+D32b4LN3iOHeV3msDR25uY9z924XuM
5eFguUlID9/3lMzohkqnWd77zEno6So4HtTugqqX0GRtEAtPlt6nXFXqwkNh
Sj5SWeiZnO8N9ewEjJ6KtzaxYHHLX+jA0Q6El5vFmW9mwdMn/7V8VQ+EQnJP
tHZNou1Si9/7yk5MyqvkeFqyMMQcUmqL7oXJpZzr2sMslEd2tmU0kZGXfzHZ
25kFoQ5qg74iGQqjpvf23mFBOqqEsVGfjJIoTvXCoywkkMvE3Oi9KPkv6oqI
zCQ6WFeEX30kw/pC44KdwCRW7eX33CrRj8PvRc1HSydR8OVLs28WGbk84Xtj
N7AwVXzCJc+0D9HdNgY6K1ngsLit97ewD39sz9Y92DyJoPVOVuk2/TCWOJE2
ozKJ2Xt+3A+UyVh2Q7hvhdokKpTWeoq+IuNweFWa3LNJJLL9Dga69kF2k0u+
8z4WniqO5jJk+6HpP2ycfJCFuYkbax1sB6D68STH3rRJTATPJGx9OYAZnQEb
HSJ+3oYnjmfW94N3hTfn0V2T+Pn4iWaiYx+mtLIXOc0ncbWtYf10VD80Qmpe
7L87iaz0HaVJrv0wNDMpVmFO4M/R9VdJfoOIZPqcrp6eQJjHv7EmwUHsywqK
P39yAoXTWm8+7hvEuUodo1chEyie/7pMrZ6C+2Yb/NpoTHxY9JgZoFPAaxqr
tigwgc3zZ1dJLlDx9b5ARenqCRzIrJqp6SV0Sjzx9ob1Ezh20GC3ZBEFZ4vv
5OsJEfl4LSr80WII16s4x2vyJ6Fb1PB8QGAY27b4Z1BXEXgxYr35T3kYBW+a
rpnpT6KTzGeopzqGf88OC1zwngBvn1icVsMYBuufMJvsiP2Nvjj4+RB1U3qR
/cRqEklzfRrlajSY3OCMt/s4gVVnF47I3KOBMZ2kH+o4iXvthyjKEuMI/Dm4
Jf7wJK7nTcUxksdwvmSefjd/Asu3cI0U3hzHLd7PU7ScCUg4iagcpI1C0SHx
W99loh72CvzZ9mUMIxlLHf+lTeD0eoe2xwbjiKh4JTpBvH/2vVH5+TAa6iZ3
vAgRmQSPa6LtjqpxJBxJmT4wNgnHMcNIOScaRM0SQ6f3sNBVFa6DCBq0N6Wv
1y9gIbB7alrwxDi8lc5YflIi8HArWMgwYwSJy3lTErVZ2NCgbeBnOIrnu3/u
lBZnQVv8QMY1l3FIL5+1uizCwp9mr5lz4ePwFNR4+jRmEqcFb4kpJo3B/3LG
y4/SkxAcSNsbsXkcSgufuFzfTaBAKk0/XXYMxfKGJX83TsBKTnPtIbkxmHJa
/TGZnEDjy9NSPNbjWBoW5swdmsBhB5Wn2fZjoMu+9VIl8DP7w+/F9bhxHHmy
yVbpwCRCxGp/xAjTYKGi8faD3yTeaA1+dh6iYWLx277zeSwsnY2Qfn+IBqX0
a6+mCD4o9hE4rHmeBuMDMR+OPJnCUP+Wj0o8dLhyCJINH0/jmuu5t1KXaAgY
m/EYNpvGvjjc8m2g4VGesg+1ehqx8x0SQgXjiN1rZrt8+ww64he5ruaNo6S9
LirQeQbJ8q98Koh8M0Zn+e1TZhAi8aS099Q4FF46ejjTZlDFb7aiQnYcRqvz
GDs6ZmAb7xqo8Ivo0x+dT6ER85sUl97vmRvDXrNzlUztGWiyinjGLcYxufK/
wbzCGQQM/d0kH0mDx820rImAGRzZ9ubwNwsi3vFtwulmsygIucsqzifw8dQ/
30N+FhbnH5hs6ByHGvvswO7qGfz9xfdFyZ0O34Ut1fuGZkDurRTatJyG6Abp
BWUpIp67RkXmo2OYLDq1hz9vGpwF2hs4VxC6mLbzzGjhNCJ973Stjx1H3ZP7
jgI501hJicOV28T+v1vyhCKnwaILVVe+JeonLyohtXwKheXPH3co06Cxf2x9
yP4ZjFb3pyz9piEx3G9b6IEZ3LtTrKpqy4CgWrhd79IMVAqiAn8LMFHR9WRa
UXIWbxyfCdgpM5CTtNXKfPUs3BwNVYO/MRDwUfFR+Y5ZlJquqtl0iYFfLhFj
6w/9g/fepbcHKhnwXhP2Wu3zPxxNvnu+oI4BmlLJUT/DOZzxqbF7ID0Bf/G9
Mgrb51FsQRvJGmQi2siVunfTAiYhxzqsPYF71cvsD+9dAOvN03Yvoq46bhWI
Fk7Nw8ovXr/o6AQOygYXnuqahyE1dccx7glUdfZ7hH6Zx9U8IeN6Hib89pfV
BiTNI8tne9f+ICYKa236DdwWEF7V1/LtAxPP+hwu35NawDvr6AKdzUxImiea
vdWfx9Ot+ptN3Rm4U5HBtvs6j46NUksVR5i4ftJXwf/GPAb3nXm59xET3+J/
d+0/Oo8hH92nZtNMSJkvF6N5zWMukCnvEsKEz76gCqdj8/C4GNt8yo2J98Vf
+Ks3zcP6tff1uNgJPP4lJR4oOI9rmz3+k904CZX6gJLfV+axbrMMxXRpAtsT
rvDbG8/DwTb/Kst0Elyh7KMpH+ZwtDE6VPLoJLzbGOHba+ag9WjdEMexSWju
CdRhr5yHZ5Lv3ld7CZ673/56BxHP6hslVvvlJxHAFfK1kNjvfd32zHc6xPda
/jrILuDYAdvXai8ncEEnin58xQKuyusPyt2YQH24QM8poQXYR7fcSFabwMMb
PeoV2xfAcNj6UMqUiVTyqWeRagtoTzxSKdPCwBnFwx7epvNYVfQ2N7+IgdUq
VzJXuMyjbaXnedYB4v6VEw8rYubxjc663RXAxNcf27/6YAG5Q7dexCsxMSP4
aRudh3j/8VZqkBUTc+7Os9WPFrA6s8DwTzQTR957N8/8W4AgX1OIgNAE9juq
ino9Y0Mz93yaeTYTVwqvhuYsY2NEUTHDOHcCW7KHTauHF7BmwyLrMscEGpQ2
8vxJW4DSicbBzdQJLLKsCqybF3BiRYvstx2TyNHxpRSdYWOKbkU1JHTr5U5X
2Zr9bLQHFOUHMiYgraMzp1PBhrKek8P74QmYrnRkzTDZEJUWTOq5OwF1W5f8
1SVsPJLT5BO8OQFlOdufZhfZoHCk8HoGT2CKu1ly8dMCdlANVoQemwDbZ6U5
n/sC3nZUbft7YQK5Lu/OxzuzIS6zdfdpH0Kn79i6HX/PxsPRuowgpQlI8bU7
P5pig/cJj1CgxAQyDs7FbJFfxLPVHyOUCplYWjv9SllqEdv6HNR2FjHxc7Dx
mbEAMf5kVjLRi4l7IdMhQRsWIXXRNJBF6La1wKo6ph8bHU6hj24XMPFR9YXz
oUU2Xiy+Kgr5w0S9q7/Ij82LeGMiaf58ioG6RXO7v66LYJ/oaVcQY8JJ/7a4
S+YibmjkvAzYy8C9yMa/MfxL6NwYrv58IxPtS5JX1T4u4mXiynvzNkwcDJ9M
tr2xiOPPn0nzdjKR1S5y1uzNIoqu0dTa70zgfPHJ3rzARXQev/5VhKjvC98k
L4kx2JBc9rnd7RoTXCc9uFidbCwO0qSniHicrKVdfrQT7223PvINgZdozef7
Hguy0RmfRJp/zYT10YDotT8XMBL77JH1OiYyNs8OvnnAho1aRAinHAOpnKeU
z31jI6mEe7yJQseDB2kyI48XcUqksn+5CQPdz344cxH53/zfuowYKgMLeQeE
vr9gw0HUNL9fngFbG9U6GyKfMd3y6++8JPDe718rGcjGSn/RkckQgh91/l5Z
1c2G6fVV3G8jGVAN+GAUuIWN1wkn6E9jGCh+LTum1riA+89/CcSdZkDB2fik
3boFuJAu6ZOJPsBji9yKU1cXYKOudmC/LR0piSe416kvILPtPS1KjA5Z32le
O8oCPqVw29ouo0NX//nbTAKPOeSutsR6Oljxfb85Uoh8/PG4/EKXjnGnb0N9
lxbQNmtWIdFPg569guLsiQVc0lC188qmYUtWZceFinnUZupyrCL6IuW+xKCj
M/Mov+b/ypTogzZeKKZ1MRZAPmrie/XtODZfFH8huZmNwd8uecouNNi4nd2k
k8OG1PYrvyIv0uHyI97wx9VF8G223CHOpoO6ofqUuMIiflbu6nqvw4ASWdzo
US8bEpSwwUp/BsZDthrnnVqEW69qkn8YA7ofZDyXcS0iVK4x7tQKJgLOG+zM
mmWD67V8mJkUE8tHNRNWvl7EqJxeluw4E3ly9p+mc9ngO3mFU5/ocwRnTyRs
JfLt1ict6PaVCb5Y34s6bCJ/H/ZMbCb44+kzA9ETRH2H3w5fJUxlolz4bFw5
kc/1Zdwxf5lM9EnISCg5scHojxkIe0j4vlW9izfuE/X32HjpidwExCx3mN3O
X8BBpfsejsYEX79VP5R+hY31Bv0Pvr6ZwFe3/B9cr9nwylAoeET41g2cenXr
q9kw5OO8k/rfBM6+fvfjnwsbgSoXOyOfMwmf/pHPp3cB258uOJ8i9FKwY6gj
T5sY57jg00bgx2fg45qMQiL+ca+o9nMMHF+zT7fzCButZhd1pnWZeDitYhlk
RNTH2uMWap5MbFdJLQ8WW8Svv4/D7xN6rekp0d7VzMZVCU9hvlwG7CVFVb40
LeLsBys+nzsMrGJ2Nymv4VAfHQ7mngUDvqMXm6SkONQPhe9S+Tw5DreSuZ+2
dznUXwhLq0e3j+NixpLo/Xcc6u4tjQVhhD+/xGXqsuYKh7oKTxfFP3scG/rH
vvT1LqHNZErcwH4cD2xlo4IlOdR3DX9o+gsatO5PrE9dy6G+5dklT70gGnoe
7nhyVIVDXUZqwvPYNhqkBvUPYmwJ7erNBdmEX97jxb8sZt0S0iKk5Yov0PH9
0JfA5KIlVOitID8PoePe24068xIc6q+NzmdQx+mQjFTcQV/Jof7BLe6B1Swd
b20+SpSrL6GXJd91r5cGfVPxR3+NFjFwp/r+rBsdpksXtmieWwIl8bhToBMd
2fVGQ/lfljD5LVFxroWO5PUdNzcv41CvupLxLXmegbsbjP/6KXOoH7gma9kT
wYBp2ufuUSUOdUqb1r4hPeL9RwmvYcihHv7GS1lmzSTCtng8mV7NoR758rxI
/vJJSHQsBaju5lDX2LjxcYHkJPyG80NOpy7hZonIil9Lk0jXlv9SR3xbVGpF
Zt1n4dK/6mmfgSVIaTmFiBmycITnkuAmdQ517tjPHsMJLLjyTptfFuFQ32if
FxyszMK/F6fv3RPgUM98w89VxTsF+ZJOLbMtHOrNNVdcPohNoa1J8OF/OUvw
/6G9ZzP/FCpPVIyNXVjEzsAjfEEbpnDx8Ta+H38XIShau8mBOJ99/CJLePUS
+p4sj+8VY+FzjlaHU/4SFnM8XQ41sBB0Vyz+k8YSgu0C1zxkEvPXxa5R7CL4
XOGz9JzvFOoiGo0OEHqi+DfMUjJnCk47tzlULF/Ew6a16padU5DzV3iUV8NG
RczGYxuapxF35VPOzj9suGpu5+Kensatv94BbAs2jCyiP4zpzGDZ2uxHZU/Z
2JoV1ndwYBo/91d7UFTZSCtetW7dvmnYJ3FQssMW8NuqjEXnm0KyzC4tMlE/
IbE2Q3oaxP3VuEdtfdj4tKQhTZthobVTdH4sko2Nl0obLI5PwZ57pZTpdTbU
3YO9FzimsMXrnddc1QIsJ504trSyMBOwccWj7wug+89EkWKnYFjX4eIVSvC1
8LEJE9tp+AtraW1fvgDmyHTm2ivTIBn0GmyZm4eJi5bkugPTEF99WmWR4ONz
z5s6XcOnwDeqPXDUfgHZnfc0/x6agqrjvsqOwAWIDSR+0lSYwloRZe/tBD8o
KPZ78aSy4OYVIuZtRujfTb8tpvtYyP4e0PvrKxun0/s9rDJYcLxT1ehjzobG
6HBORCAL/CGvEmo+s5FRHFP16zkL9hTVk3I7iPzuOf98YwsLMW2JknizgDN7
o1SVOKfhclbQd9KTjZhwluLXa9MQOOkUHbZ3EWTqFrd/x6fx/d+UrgihN4dD
B6hqe6dQMDNDbiL0+/4d7oa2vyz8Ui35lxNL6LuUYKONIwuT8e+lIriX8FMh
b7r9BgtmmzfuaDUkvq2vqRkrsGC9qT31388l3DsT6sM6M4ktmQHWDzg51H2q
DkYKaE1CPcZ786jlEppmLKRFiXrym95qpRqxhIfa1M3trZP48Kq3TU6VQ91i
7u3pvthJrFa8fn1L8RKu741KCSL83Urfj7d39Cyiwy1Z79ck0bcf+qV//+4i
9r1zMHCUYWHU3dpqLeFPJHnOjF6SZSFPUSXFiNDPu1fuOdxPYuG9zMfU7mRC
r5LOZW7sYOGlpAzn8jQ2VmvatNZ1T4F0nH/PeyLfmVuSWS61UxDdJVsl6sHG
WMWTxorV01hmp6qcd5mNytj5Zeb7p3EhKLzMdGgB8unb9em+09htIrjfl594
P+GODKEx4tsyuSondgGnFLll4uum4bQp8e+bIwu42/yYEXhsBs7Gt9nFMQu4
5tRbxNkygzsTvLznCP9+Yvamdtj7WfTRbnBrzM7j/mbKLBd9BqyGsy4CRD8S
NThQ5/l4BrktIcZnRuchuGNAoI84r4LbWTf54ALG+v8ZV+4k+urEnOC/VkT/
NVor7PdqBq5PKwfJbQso6ix9fOHuDFykjRml99j4KZPC58A5C50D40yTywSe
ZewijsTMIPqWs5198zwsV0Xl7mTNQGRZfXKR3Tx+cJ1VCCPWU67dD1izh6in
9vKnW1/OwKHB2qLGfAGUsKmLmw/Ngt9zr1kOlY39ks+2n7GahUx6v+Ifwu9F
icc5mZrMwtYrRqNNcxFH/10de3djFk/f90XXPWbDgNwjcV1gFg8+3ed/QvgB
Ffthh4R/s8j9a7qn89oitI+JTsSnz8KKr+xhjOMihIJ77mx89Q93gqPXRoQs
4rfTm7Yn8nMoNfSnZm1dQkLIs5nqHXP4d95DeVfKEhZeLbNWcvyHjRvXJbNM
lnCrNdJ1bfQ/7M884BVP4HFtnlLCTed/WM/7833c8yX8I/Pe6n4wh5Dwt41P
fAj+9PG7wr48h7bjwj5H6hdR9iE6+NvvORRGhCsGr1mC7Kwp3eXnHKK1a/7u
i1rEssPPFKLT5lBn/PNmQfUiNill+h8NnkN+TJ7a1alFRLKS+LNe/EM0f9dY
6fVFmMcGjzZf+oeglW9OtWxZhJpJXIZa1iyOKy5PHSXwfkZn5Z+RL7PQHbq3
97QGG1/nrd8P185CwfWm+LuyBbzMFXJwejqLgadL1mlEvquTn7r/jZuBdY6N
SgehaS6c4iq9y2axK+v1gL414c9vLFJpurMw7uAq575F8EnP+Gr61xlcMIpY
9fn2IqxqtXmNns5A87NsiiTht491FlvLEPzYPkwX+qTIRtHBiMriqGkU56jx
+xss4KZn/iVH/hm0hjn3TxP935bzb575EPPzaqdzxOKJfl2lKLCDPo2Wj8Vn
TjsuQGfdOVaI4gyO8zuYGBD4OZi2ayGldho7I2+1pX4h8MTePRp1jzhPaSFL
J2EBj3sZb/YHTIEcOB5rrszGY/3X9n2EHvV0DujmPV7A/wCZSiBP
              "]]}, "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListLinePlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->300,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
    "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
    "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.18556517769293404`, 
   1.6742378199207777`}, {-0.024791091064343934`, 2.0705377533946985`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.812200465229032*^9, 3.8122083908029613`*^9, 3.812225121198491*^9, 
   3.812288123212099*^9, {3.812319437062421*^9, 3.812319460227*^9}, 
   3.8123960681857347`*^9, 3.812397201469426*^9, 3.8123973199924884`*^9, 
   3.8124808365333014`*^9, 3.8124913355984335`*^9, 3.812579937981282*^9, 
   3.8126322364987783`*^9, 3.812633346223417*^9, 3.812633976194953*^9, 
   3.8126341727647085`*^9, 3.8126343836549406`*^9, 3.812634425791951*^9, 
   3.812635349663967*^9, 3.812916950982284*^9, 3.8129174231543217`*^9, 
   3.812988118718934*^9, 3.8129892722500486`*^9, 3.812996718941904*^9, 
   3.8129977469431324`*^9, 3.8141223055586033`*^9, 3.818946810982066*^9, 
   3.82033246353747*^9, 3.820335460394164*^9, 3.820338137296683*^9, 
   3.8789975626313043`*^9, 3.935256273823015*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[112]=",ExpressionUUID->"0d03a325-bb0c-3e46-8b59-fce9f34a50cd"]
}, Open  ]],
Cell["\<\
Change is demanded. You resign from Megacorp after twenty years, cash in your \
company retirement plan, move to the foothills of Southern California, join a \
nudist colony and become a Vegan. You start a company to make bongo drums out \
of recycled automobile tires. This, third phase of adulthood in location c, \
influences your buying habits.\
\>", "Text",
 CellChangeTimes->{{3.8122006591007986`*^9, 3.812200842640545*^9}, {
  3.812580648809317*^9, 
  3.812580663828226*^9}},ExpressionUUID->"73826ebc-eac9-4c25-8d1b-\
83a1a78900e3"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"dsThree", "=", 
  RowBox[{"dsFct", "/.", 
   RowBox[{"x", "\[Rule]", "c"}]}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8121057224837613`*^9, 3.8121057298705416`*^9}, 
   3.8121079175196285`*^9, 3.8122004083170133`*^9, {3.8123967118647194`*^9, 
   3.812396734276388*^9}, 3.8123968311876783`*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"c550d975-8a5a-43ad-8afd-8c348e7948e7"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> "recurring", "item" -> "Food", 
        "debit" -> $CellContext`f[$CellContext`c], "credit" -> 0|>, <|
       "rec no" -> 2, "date" -> "recurring", "item" -> "Clothing", 
        "debit" -> $CellContext`c[$CellContext`c], "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> "recurring", "item" -> "Shelter", 
        "debit" -> $CellContext`s[$CellContext`c], "credit" -> 0|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Path" -> {}, "DisplayedRowCount" -> 
     3, "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Food", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"f", "[", "c", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Clothing", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"c", "[", "c", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Shelter", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"s", "[", "c", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.8121057313107615`*^9, 3.812107917941023*^9, 3.812199711871936*^9, 
   3.812200409993185*^9, 3.812208390910673*^9, 3.8122251212612944`*^9, 
   3.8122881232929087`*^9, {3.81231943717941*^9, 3.8123194604546137`*^9}, 
   3.812396068406408*^9, 3.812396832180273*^9, 3.8123972016667156`*^9, 
   3.8123973200383863`*^9, 3.812480836630041*^9, 3.8124913357141476`*^9, 
   3.8125799382046785`*^9, 3.812632236589535*^9, 3.812633346365014*^9, 
   3.812633976335579*^9, 3.812634172910323*^9, 3.8126343837935715`*^9, 
   3.812634425946707*^9, 3.8126353497277975`*^9, 3.812916951108918*^9, 
   3.812917423274028*^9, 3.8129881188366194`*^9, 3.8129892723707266`*^9, 
   3.812996719012715*^9, 3.8129977470020113`*^9, 3.8141223056428843`*^9, 
   3.818946811064844*^9, 3.820332463626232*^9, 3.8203354604869146`*^9, 
   3.8203381373924265`*^9, 3.878997562679364*^9, 3.935256273854269*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[113]=",ExpressionUUID->"fb7a2d36-9d02-1944-a2eb-483191011004"]
}, Open  ]],
Cell["\<\
Operating a business is not like drawing a salary. As you settle into your \
new life you recapture some of your sanity, again embrace the mathematics of \
life and a more complex specific functional form. Below you see just one \
example of such a form, a sort of barely controlled chaos. On the right a \
positive trend line. This is your dedication to your lifelong savings plan. \
In good times and bad, no matter what, you put away 10% of your earnings, \
paying yourself first. \
\>", "Text",
 CellChangeTimes->{{3.81220089443023*^9, 3.8122009569516525`*^9}, {
  3.812202946767145*^9, 3.8122030367355165`*^9}, {3.812203393132224*^9, 
  3.8122034047438188`*^9}, {3.8122076797633123`*^9, 3.8122076804257727`*^9}, {
  3.812580696144537*^9, 
  3.8125807305323625`*^9}},ExpressionUUID->"7c0900f2-de80-46db-84a5-\
453031a61784"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"npvPlt", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"500", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "0.04", "+", 
             RowBox[{"0.04", " ", 
              RowBox[{"Sin", "[", 
               FractionBox[
                RowBox[{"2", " ", "\[Pi]", " ", "k"}], "3"], "]"}]}]}], ")"}],
            "k"], "/", ".1"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", ".05"}], ")"}], "k"]], "+", 
       RowBox[{"(", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"n", "=", "1"}], "k"], 
         RowBox[{"Evaluate", "[", 
          FractionBox[
           RowBox[{"500", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "0.04", "+", 
               RowBox[{"0.04", " ", 
                RowBox[{"Sin", "[", 
                 FractionBox[
                  RowBox[{"2", " ", "\[Pi]", " ", "k"}], "3"], "]"}]}]}], 
              ")"}], 
             RowBox[{"n", "-", "1"}]]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", ".05"}], ")"}], "n"]], "]"}]}], ")"}], "-", 
       RowBox[{"500", "/", ".08"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Hue", "[", "0.9`", "]"}], ",", 
        RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Time\>\"", ",", "\"\<Income/Spending\>\""}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "None"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"line2", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Dashing", "[", 
       RowBox[{"{", 
        RowBox[{"0.05", ",", "0.01"}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "23.508"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "2463.4"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"npvPlt", ",", 
    RowBox[{"Show", "[", 
     RowBox[{"{", 
      RowBox[{"npvPlt", ",", "line2"}], "}"}], "]"}]}], "}"}], 
  "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8122027964441123`*^9, 3.812202906627124*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"7b6d524f-948b-42ec-b2f8-931c682595a1"],
Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      InterpretationBox[{
        TagBox[{{{}, {}, 
           TagBox[
            {Hue[0.9, 1, 1], AbsoluteThickness[2], Opacity[1.], 
             LineBox[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
              "]]},
            Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
         {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
        StyleBox[
         DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
           Slot["HighlightElements"], 
           Slot["LayoutOptions"], 
           Slot["Meta"], 
           Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
               Annotation[{
                 Directive[
                  Opacity[1.], 
                  Hue[0.9, 1, 1], 
                  AbsoluteThickness[2]], 
                 Line[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
                  "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
            "HighlightElements" -> <|
              "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
             "LayoutOptions" -> <|
              "PanelPlotLayout" -> <||>, 
               "PlotRange" -> {{1, 10}, {-1189.031600810942, 
                 5141.3124196093195`}}, 
               "Frame" -> {{True, False}, {True, False}}, 
               "AxesOrigin" -> {1.0000000000000022`, 0}, 
               "ImageSize" -> {360, 360/GoldenRatio}, 
               "Axes" -> {False, False}, "LabelStyle" -> {}, "AspectRatio" -> 
               GoldenRatio^(-1), "DefaultStyle" -> {
                 Directive[
                  Opacity[1.], 
                  Hue[0.9, 1, 1], 
                  AbsoluteThickness[2]]}, 
               "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                   Identity[
                    Part[#, 1]], 
                   Identity[
                    Part[#, 2]]}& ), 
                 "ScalingFunctions" -> {{Identity, Identity}, {
                   Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
               False|>, 
             "Meta" -> <|
              "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
               "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{1, 10}, {-1189.031600810942, 
                5141.3124196093195`}}, 
              "Frame" -> {{True, False}, {True, False}}, 
              "AxesOrigin" -> {1.0000000000000022`, 0}, 
              "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {False, False},
               "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
              "DefaultStyle" -> {
                Directive[
                 Opacity[1.], 
                 Hue[0.9, 1, 1], 
                 AbsoluteThickness[2]]}, 
              "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                  Identity[
                   Part[#, 1]], 
                  Identity[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {
                  Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
              False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> Plot, "GroupHighlight" -> False|>|>],
          ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
           4.503599627370496*^15, -4.503599627370496*^15}}],
         Selectable->False]},
       Annotation[{{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              Hue[0.9, 1, 1], 
              AbsoluteThickness[2]], 
             Line[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{1, 10}, {-1189.031600810942, 
             5141.3124196093195`}}, "Frame" -> {{True, False}, {True, False}},
            "AxesOrigin" -> {1.0000000000000022`, 0}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              Hue[0.9, 1, 1], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{1.0000000000000022`, 0},
      DisplayFunction->Identity,
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox[
          TagBox["\"Income/Spending\"", HoldForm], TraditionalForm], None}, {
         FormBox[
          TagBox["\"Time\"", HoldForm], TraditionalForm], None}},
      FrameTicks->{{{}, {}}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{17.171875, 0.5}, {31.34375, 0.5}},
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{1, 10}, {-1189.031600810942, 5141.3124196093195`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {160., -108.32436679576516}, 
     ImageScaled[{0.5, 0.5}], {300., 206.33212723002887},
     BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}], 
    InsetBox[
     GraphicsBox[{
       InterpretationBox[{
         TagBox[{{{}, {}, 
            TagBox[
             {Hue[0.9, 1, 1], AbsoluteThickness[2], Opacity[1.], 
              LineBox[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
               "]]},
             Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
          {
          "WolframDynamicHighlight", <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
         StyleBox[
          DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
            Slot["HighlightElements"], 
            Slot["LayoutOptions"], 
            Slot["Meta"], 
            Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
                Annotation[{
                  Directive[
                   Opacity[1.], 
                   Hue[0.9, 1, 1], 
                   AbsoluteThickness[2]], 
                  Line[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
                   "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
             "HighlightElements" -> <|
               "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
              "LayoutOptions" -> <|
               "PanelPlotLayout" -> <||>, 
                "PlotRange" -> {{1, 10}, {-1189.031600810942, 
                  5141.3124196093195`}}, 
                "Frame" -> {{True, False}, {True, False}}, 
                "AxesOrigin" -> {1.0000000000000022`, 0}, 
                "ImageSize" -> {360, 360/GoldenRatio}, 
                "Axes" -> {False, False}, "LabelStyle" -> {}, "AspectRatio" -> 
                GoldenRatio^(-1), "DefaultStyle" -> {
                  Directive[
                   Opacity[1.], 
                   Hue[0.9, 1, 1], 
                   AbsoluteThickness[2]]}, 
                "HighlightLabelingFunctions" -> <|
                 "CoordinatesToolOptions" -> ({
                    Identity[
                    Part[#, 1]], 
                    Identity[
                    Part[#, 2]]}& ), 
                  "ScalingFunctions" -> {{Identity, Identity}, {
                    Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
                False|>, 
              "Meta" -> <|
               "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
                "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<|
            "HighlightElements" -> <|
              "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
             "LayoutOptions" -> <|
              "PanelPlotLayout" -> <||>, 
               "PlotRange" -> {{1, 10}, {-1189.031600810942, 
                 5141.3124196093195`}}, 
               "Frame" -> {{True, False}, {True, False}}, 
               "AxesOrigin" -> {1.0000000000000022`, 0}, 
               "ImageSize" -> {360, 360/GoldenRatio}, 
               "Axes" -> {False, False}, "LabelStyle" -> {}, "AspectRatio" -> 
               GoldenRatio^(-1), "DefaultStyle" -> {
                 Directive[
                  Opacity[1.], 
                  Hue[0.9, 1, 1], 
                  AbsoluteThickness[2]]}, 
               "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                   Identity[
                    Part[#, 1]], 
                   Identity[
                    Part[#, 2]]}& ), 
                 "ScalingFunctions" -> {{Identity, Identity}, {
                   Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
               False|>, 
             "Meta" -> <|
              "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
               "Function" -> Plot, "GroupHighlight" -> False|>|>],
           ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
            4.503599627370496*^15, -4.503599627370496*^15}}],
          Selectable->False]},
        Annotation[{{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               Hue[0.9, 1, 1], 
               AbsoluteThickness[2]], 
              Line[CompressedData["
1:eJwVV3c81d8fvrZsUfa8KYrMCuG+QygNpJJRkq2srr33dZO9Q+ZFIaFIqpMk
ja8kRWWlslJG9vyd31+9ntfzPs/7eT/n/TluUnYeZg70BAJBgZFA+P+/fbMn
lQmEGRLP0Furl1HRqJ3r3s1T7DOk5CuU5syYaFS/j2cyb+cMSfIFS3tAXDRK
dOgu1lCYIVlsXBHzuRGN9L6c479uOUPqWGOy0E2PRkqLjZ7PHfB5jjcVxZnR
SJxP6D9uL6yf3cW/IycaLZ/4FlMVN0OCxVovpYJoVIMuLf1qmCF1HXDM0q2M
RnkD6IwamiFVlJBFD1RFo/hVqdrItzOk8Atzopr3opG92k9niZEZ0vDP6cdB
D6KRcIXzVwvuWRLrwfrMwdZoFJPk9eStyyyJ580L0X3fo5F3VbeQsM8sqSv/
9cqxX9HI9rWqr3P4LCm56fivoIlopMmwuJ8pa5akfmaGQWguGs34BhbqtM2S
wv14BTQYY5D1xaio++JzJP+22IAd8jHoeNDPoS25ORLrj5dMzsox6FD2Ua1T
B+ZITQro338HY9D2bpaFSeM50nhCOaHnSAx6dTTBcVfAHMlo10up1xYxSEUh
41jWxzmSZLPwUwtqDKJ3VxP5MjRHUpd9M+yREoO6az5OCU/NkSi8Pwbys2OQ
l9L25ALGfySeCl1bnfIYVKua9LnswD+SZLcOKeVlDNqvGX+lIesfSfD0s/lA
5li0GSh7YLHkH8ni3m7pTa5Y1Pn4FbN67T8SIeDr9yyBWHRNm/nO445/JAp7
5zKXXCyqgqiZ1hWsN8OSznYyFu01DAn5YDVPEuw/2Lg/Jxatxome5nOeJ3W0
cKbuLIlFbzoeS54lz5MK9a6c5a+ORS7HV1/0JeD6R/dtTJ/HooqTfmzDT+ZJ
PFkpfe8nY9Fuc6+svxILpOUg17NdR+KQ1GWH++w/F0jjlQoJlltxqH9gLDVk
eoHk/PeqGys7BWVaupKnVxdIHYLb4NVOCmIz9zj0kXeR1DUu4+O3n4LmDQKe
5JIWSZKBZ+tuX6SgDvmbr+VuLZKW/4u8v/acgtyXG74bmi2Rsun/PTqQHo8e
JzFux1tHMtludD/c9gYq5WRWLUhcIwlmB/8FwyQUeqiD503uGqkiaHGq0CIJ
WVym/l2grZGS7diqCK5JiOMB152Tz9ZIRtbB2U8TkhDZWkBqY3qNJLnVZ7O/
Ownp35XltjZdJ7V1tIad35+MfhgZ/xbi3yBZ1FytvdiYjFq8OV8fldwglSru
XP/8LBll5r2neclvkBgFKzqNO5LR8Zkzdq/1N0gNdF15e78ko7os6y/+Phuk
qzPPfj9aTUaRo9de9X7eIBFq6HtYtFOQdHRySUbOJin57qd/ZU9S0NjEgZTZ
0k1SwvS3yoW2FFR1+lvoydpNkmT+XR/SuxR0QGS3JdOrTdKu0R2r6GsKMqp7
zOMzv0kib+g5ByylIA7By5tdW5skW4Go0KzNFPQhhHlKnn2LhCw96O8xpSLL
Y6avfkptkZJ5OQhv+FLRteHREPPTW6Thb8yJ1YqpSMUgwa3WcoukZsb3X/rB
VLR4V/kCh+MWqcc6oIesnYrC/YLV2oK3SC1X0ibFjVOR/oCUtCRli9TRTOka
N01F2/RecQenbZEYX1gq3LVIRalc23+r3tki2W6vWhV0TEXnyY19SQ+2SKz3
v+i2XU1Fol+t23+jLRLPjiP3na6nomESfYPhuy2SPveAMkNgKiorKy8q6d0i
WXM01maGpyJX9pNJWyNbpAqDMSHpuFS032su2Oov7reUfqHsZir69znLtXFl
iyQYu2glmZ6KrAvEq+LpCWB7rz+3fSEW6ZjOFh9iJYB6ohEvM0MckmRsy/nF
SYCu0+Nhqjxx6JeLS9wRIQJUcI6Vnd8bh9wPNNitKBLApDT6CbKJQxHvjgm5
2GDeVrn3H4pDtFVyrFETAQQtpsgf/Sgo8NnoIc+nBBg32nbbLYqCTkZbTGS1
ESC82ZFnIhHvO6fWibEuAiQHiwuklVGQrhTD9tgJ7I8896vgAwUNGqbkvxCm
A2APG/fYFY/qOBhO/5akg1qF+ING++NRzAcygW8PHYR3ikkzqMcjeSuLK3aq
mD9SrCRpHI8C3SXk6E7QgXpUwIc5j3i0M6O6QSeEDoZHuXT66uPR5AUJR8co
OlCS+MvT8TgePRFPEUiMpwOehjDR7BfxyL6CHDiQQQdNbmGn+rpx/8eHIbgG
+9Hu1vs0HY9iw6tnSxownhYlvFiMRxeOSpS8baaDvnNnB5M24hHhPT2zyCs6
EMz/FtjORkWnRl6/fTSE+7VZ5ZcQqUi6/HDI918Yawt0xcpR0YJb9f5tU3Qw
w3pcykiRivIWklMslunAk+1Qib0mFU2yWpxf4qGH8LDij3Snqejpf69ZJQTo
AS3a0rrPUFFK6uFmAzF6kHRnrgi3oCJ1UQmxTDl6qA0/2n79MhXFKI6OqOnS
w3KfiX29FxUtN/X1kozoQXDkYu4FHypy1X377vgpemjafOQ+4I/9nq19aGtJ
DyYaQckhYVSEBovvutnSA6HtYXVOJBWpOGcU+jrSg3P1JGtaDBXtDAqkJnjT
w3CWoajYDSqiMF4Ly/Knh2TTFlr1TSpavXmJXByK9Y495xNJpqKrAmYu1dG4
H4feSYdUKhos1L/YRMU8U6h2QjoVmew9dOZFMj0UVm92JmVSUWu9nFFnJj3I
thdNeWRTkZq2qPaXPDw/NT1CPpeKaO1cKj+Lcf9f5gEvb1GRoAndnukKejAq
u/9MM5+KqF/+iazW0IN/9RtIKKCidbtRHqYH9GArzzvx6DYVuU/1MfE8pgfK
O8OyF4VUNOzzdlX4OT1UjEXaVRZRkdnWk2mZV/TA0yTL5VZMRW2U2p9K/2H9
G7MZrCVUdGh7yZfDH3Hec2NjERjfuZXRafAFz7PgPPcZY1EZygvTIXqYIe0q
ZSmlosSawCbrX/QwflZ0ig9jgvq1aqff9GDxnPZoDdd7P79U7D2L9XSvrj/F
+Odxs6yQJeyP4FJqg/G5Hv0Eygb293CqqBf76bA5FJHGwACev3J/yWOsOSbn
W7CNAZq2XG1tsP8qT1G3Sm4GsMitYHDB84mvctk27GCA5Jx/6DSePzmK7uwz
EQaQvARUXpwPPef8sTdSGC/3mtbkURE5c1Tn0x4GUDpuwbYb5zsq8UV1WIEB
4EgDzT+Hii5UvpX9rcoAtWuqwrQsKnqn8lRsUYMBCpfIFjUZVKTTUrudDhjA
n+R6NiUN7//7jPWdJxggvHjSeiyRitItKLNSZgwwLLrN1DKBiphHAkflLbDf
Ffre8ni8//OXunTtGaDiq71HdxQVWYeavTzpis8H8bnfC6eiTpajzRaemOfY
1+sYQkV1wntL3YMZoGNssM3el4p2lYrmBEQyAM+1QPW73lSUqcCdGE1hgL7q
kPm37lQUBPN+uekYfw7Zk+dIRX9fj14ty8XzjB5KNrajItszXy7XFmJ9855d
n2yoSN/xqXF7Fe7/bqXJ15yKOBIoEnNtDICGj/6bI+G86q+KZrxhAIIq999u
/P1++2oipN7FANkWLd9SDuD9kBPiC/2Gz5Nzoqv2UpHRq0pmtjlcf1r2P3M+
Kqr9e5OheokBnJW3xOQ5qUhgpzfBZAP7rz9nNsKM87fXXM1gZQSC6JTd75V4
FEX/9o+UBCMoNcRJeg7i903u3mTbLkawFbek6PTGIzPTtDGnvYywDEGffr+P
R5KFVt+rDzBCX0yjzA8Uj55qT/VonGCE8J3Pe/WL4tGqP2eLaQDW52w50GsV
j+wKZ5vmQ7F+5FGNDLN49PrVpwdZ0Yxg4SxvqXIsHmXvLLg3kMQIlMyX7GwH
49HBhv0lLjRG4NGs+6HIFY+8p09TIz4yAuvfZ5tWTRT0dada3K4vjNBR0aHK
XU1BR3QEo18NMgIsZTAVF1EQz83hEM5JRmh6caTSkUpBNXu9vHIITFBhoiFz
zZKCJhxSLe4rMAFr6KOogPk4pHt7B0+nKhN4Zj4xYB+NQ7l92a8mNZhAcs+z
7369ceiE8e2DuwyYwKjxydT3R3GoRqmKP+siE5hctqSsBcch77WXXcFJWC9B
q+n8eixaT14xMprF51UPhNsOxyDzN8EEhyUm6JqVPhL4XwyqZiA0RWxgvQP+
27ybY9BFX+Y9j7cxQ5/8qvJ6Wgx6bsXHtF+aGXhalGNCj8ag2N0Kz/nOMEOt
eeLdC8XRiKfFVmOogRmyN0zeX9ePQhfTPi2nNTODksIpoohiFKpyPd5khJhB
UkWLv1IoChkJqR2qe8sMyyQlu4C/kSjcl+VAzAgz2Bq5fprOjETTSjVK+3hY
wLZR59K5HxFIi5U4M7SDBQS/EO8GvItA1KGse+kiLNBBdeGKfRCBdidG7N/c
zQJN3+faLOMi0MXf5vIftFnAuWq+YlkuAnWWre3xc8N6T2Z4FNzCkWiI59g+
Lxboc1e0XzQLR67mv2jDviwgmXPy1l3NcMTM8F7meCQLyNY5Xf+6LRzp2BYT
xXJYYDhoSrLgVBhKOCTw40MBrpd4dGNFNAx95Uooji1lAVi7/UrxdyjyfeIj
NXOPBQqVzujtjwtFNcLHJF60Y2xofDn0SQhan30y6PcO49wop8fUEHT8tUqB
fDf2Ny3n+fl8CBr1ExXLHGABHp89ChWzwUjtdEr/8R8sQCBrPrj0NBhF7mbO
2xrH9edUxhapwUj807SwyzzG45uLL4nB6GqV/VexVax/1KN6czoINUd9yene
wnp8a08FW4IQq9WpC3FMrEB4/p94Yr8mnFN5IajFjnHgtcJL5jpQuk29b4aH
FcJZ57wZxwDmhquyynZi7F2p87xUF24mZe7klsb1Rjpnf0obQOC+BKHyPRjP
vZl2/2oIjq8iREkKGFcxab9JPQawdVXaQx2fF75M/cl0Eubc9fa/P4X5QwGi
RaumcO7UzNGkIMzHcbHUr1qAJOdxH+5PrCBp8u2iTPYVqKNufOSmbAPEcXd4
c8sTktVTU6QSt4Fk3FxlqI4XuI/uPq2avg2GLQ80LAZ7gZyuyZtzhdsg/FL3
nXcrXlC4Uozym7ZB4bz997U5b0h0NqreN7ENeI54C7aNkMHVIC3W8DgbmJxJ
Vf2vzh+M5vfoXzBhA6X61Prxv/6wu7iFzu0cG3RVcjf+3BsA3zd+BSfasYEk
3XvtoOIAsHigfv1TIBsU7vu9wJEcCAa7Bi9ducsGoPdhUcA+GKTo5TTCONhB
skLe0WMyDOZP3tuU3c4OXXN8kS1c4dCRc6CtW4AdEM1xRVY2HNyVdU/vJrJD
oVtHSaNlODTbWjn8p8EOFsWndEqehoPZs5spIk7sQLEbj3SPiIDo4LmJxufs
oGQdkVo3EwnnO/zvXX6FzzOsh6YzR8Fe/i0y+3/sMCOZa20uGgVdd9kJl/rY
IVnT/+lVwygQ/bZrJ/M0O/QFPv+7dCsKHmic1zUX5YDCV4nHD+lEw+ji49wZ
Xw6orfmkd9khBu6YfxfmD+GAmaU1se9+MeBex3zrUBQHCJrVeeynxsDSNdNb
oUkc+PdM3B6lmhhg/TV6i6OCA5J1NNra/8XAO10OUaUaDvDM21SpZIyF5ELl
vDMNHMATWhVxbkcsCFkH5+UiDlh2ehDMczAW9n7kzZf9wgGSsjc0Vsix8Ffp
kNiJIax/eu2fXHQs1CVa53v84gDZnhuCxLRYOHy8PP/hLD5/dMnjWm0snHiu
VaDPxglKdc2yluOx4H7P6bbtYU4Q/G50yvxkHKhw3pSIPsIJJlPOJyYs4mDR
te52uSEn8Ow9q6VrHwdhuzdu/z2DeX/XSZ3AOEjOTy0MvorxoyiydUkcmK81
ShZ6c4IFgTS7rToOBC8MFL7w54S+mY4rAQ/joIhftogthhNYk9c08jvioO7G
k6LsfE4In/XXnZuIA9+JEamWEk6QVNtPqJyNA01D1uKhSk7oGioelViJgxf0
Z4p3P+SE5Y6esydZKECx9Zc+3oJxWiKZgYsCJ57mF19r5QTZMoZxf34K9ASM
Fzd0ckK29gBdkSQFsns5iX09uH9mmf6Z3RSwPqBasvYV+w/5x9+2jwI/Z0JK
dMc4wejH6O3hAxSoOFVCdPyD/YxHbNzQpMDVqo6S+H84P77k/Qs6FFhw4ivt
2uIE5yBZS4IhBSyoj5x6mbgACbBmpxynQHPVpX2D7FzAk53rMnKSAmLvmaZ/
8nKB+iP2ijkTCp77bt1vAS7wR+YKrWco8IPPzHdOjAts47V7TM5RwODgssYK
kQuWk238CywoUGlRsLElh/l10cU7lhTgCNJ/zqzEBbK3Huz1taaAR/5kNOdB
3H9MdX7LhgLdz5KN+LW4AOj9lY0uUUBt5CCHiC4XKFUcbD1lS4EsxoH3UkZc
YCK7Gst3mQKru6PSZE9xgZEZ8XImxtbH5M4rmnOB5JVJlV6Mn7m9Fz5oyQXD
vy8NfcJYOtFnUMsW6z28djwV45hakWI9Ry6oLem14MB4vPu5w/GreF6q1owe
7me84CRn6o3r2QSW1LGfGgGuP+f9sd/LT81/Y7+8mg21F0O5wFnbadYSz0O2
tiQ7RHNBePiuh3F43s+hBPWrVOyXczzBC+ehUURb807G88dG2QrivPJenHgW
kIl59krRYJzn5q+5yPA8Luib/12dh/O+zJpjEFeM+djndIH4Ptr2ktgSK7gg
uzCCmR/f156Tv/5Lr+GCwqtOd10NKED1uJFyqwHXM6QOh+hSwKShV7ASYb+e
leiLBgXqP4f032vH8709aSKN92XnCrHw4TsuGN9drrFHiQL92p572vowf6hr
ykGGAiTbnb/fDGL97sTi2xIUKI5sqfnwE+Oj3+MzhCjg9Ir14NAMnkdI4v0D
Dgq8mahZ+bWI/ZsdkRxmooA8x9knU+tc4LniEN++GQdzJkX6q6zcAF8Ppb+a
joPQrxpndkhxw7AG55nczjj4vj60U3QPN9hWj+8qexkH+hKxX6UVMG/5jOVq
Sxyw2XdfVtLghi7fa1z7K+Mg44+rp7Eprs/RfhgVFgfL3LxqZue5gfJp9LYH
OQ4sVRqXLGy4YXzsc6eASxxI+jGEObpwg6yVvWy+aRxUEfJuRkRwQ0flFeUQ
iThgfK56QTKOG5y/6Jio8MWBdcTbXc8SuEHSYWq0ijkOOOnXHq9nYf8qCo1z
U/g9YrCc9KvhBhOdN3daH8ZC+4vZBzsbuEEJ3h4vq4gF8ej4iAePuIF12/vf
J3NjoZPxkeC/Nuw/9FPkbHAsKDILGrp/w/2Lh1yiSbFAab+3nfM7N4SPsnvn
KMbCcKzh4N1Rbmj6Yq3sIxEL6oZDlcenuGH5d/NzAW78/rL4+UzMYt4daUds
xsD4K64jlCXs7+QjdP9PDACFxrFngxtqnxU7VvbHwIldElN2dDzgr0FbdhlK
BX/G36YqjDwQ/uLuI4bPqVD682EjHQvG99yyw96lQldbpNiHbTyAKjfLBlpT
QTZGeMKDmwe0Zt6kwb1U+MJ0PLxamAf6E5QflcSmAvPojtFgMR5wfqXJrhqc
Cirt341PSPIAyNRKlXmlAjU2QOC3DA9UcV7+o2ydCposlTWyylg/febkjGIq
5LKyDpQY8gBj0pV2vu4UsGZv18gl4/pjkkMldCkQQf4eTPPjASXdyp035pKB
NrD+rC6QBxI+kmvO/EiG6XuqBm/DecA6ujMvvi0ZIs2LzNYTcH+G1oGEmGQo
zw92u1jGAy3KnCk76JNhTlE1X/ozD3RwLFzpfncTKOaFhLuHeMEz/iXi68Tv
aUKDYZQmL8DDzg+naRR41daRaKXNC4R/GtFXQynAfGBWlEOPF2Qvbpkc20+B
qB26GtdO8YKJ46LarQS8359/eCk68ILRn6ZLi3qxQLbY86M+lRdYf+g6GhVG
wSXrmpctf3hhmJXysNo4GKyKCwaZ6rcDisuiqtWaQuvL1lKOh9sh/MRIX5Ch
CeydGHXle7QdCHfd3RifnYRlRcUlyWcYc7i51hONIOPJM26ttxjPlSgcI2jC
+75h8P6Bce3g04YJZaTHTSwZ5OMDwi/zCwUNF9AdFUOXXzv5AERZtSW2LNH2
c26KU0J8EH7F7kegkTUazqt/vCKBedJyxcPeiyhkr34Pvzwf2EqZEpf+XUaN
Rx2YjPWxnvsUi/uoI9oXXO7USOYDEzWGIWsZT5Tg3qZM9cP1mgM7S5090V/b
72vWgXwwHH7ydvZdT1R3VCSZPhzz+lASp+SFNLmTmk7e4AP00eOux0FvdLzY
d9vPIuzH8sDQmjIZVaWnfXxYygeF5iv9Ax5kxBVXmx9fzgdd4urxDtVk1O02
qaxYjf0OnZaw3+ODLhy4aBnYhP3E3nzLK+CLnDuO3uV5j/s9/T71308/9KbZ
zufHB3z+73X9z6L+SL46jPSwB8/T1uMaYu6PZlIefbT6iuvpLsbSWv2Rn5XC
Ou0X9ldT022RG4D6Th5vDxjH/Yxv+Zx4H4A0wSn5xG/sr+bcs28MgWhzV9Gu
uRmsbw7P37oFIluBp3/b/vFB8l7Dpn23A1Hrtm9NWYsY7//vo0x3INq1vhTp
usIHnse3P3jEGIRi//Kf1F7H+m08m6MHg9D4sLIAzxYfzHwLNq12DkLHP576
PkLHDwQVvadvWvVR1Uu3uw8Y+SHcVq+z/bIB4mqi+FBYMF9FJuhvGCLPO2Uk
KzaMzaUukTKOoe681m37OXF9z5PVB3LGKDNiPf/jdsxfPXdsm9EptHxdyJm2
A+NPfw8PfziNLB0PqgQIYqxv7sNXZYLEjT3bxcXx+TB3iXV5M1TG//OvixzG
h/Xr9wudRYRkk8wAeVz/+hd1bfAssmR/oh2viPlZgUMlxecQN31mQsWB/+vF
2QYTLVDAtOHesSMYf1vZJctuhU6+uetgb4nxrI5YpLotqjgqyEm24YfCW4+N
huJtEf3z6IYoW34Ah35Psa+2qLHRhqHEEfPcVd81/C4jqTLuou/emCf0DgyV
2KGFsOv9F2/wgy0pzd643R6ZrA1FuSfi+gFDOycmB3TH98S+0BTMt1iPX9Bz
QJeuyQTmZ2F+KFYVPXZAry17BfpLsH+XnU0RBY5o12e9Z79pWP92x8CRHkcU
alrruFaJ+TtHWHtYnZCqUfwD4Vp+kFRgO3nV3QnlHzh85kILPyCr4D0X9zmj
5dryVedn+Hz+wtLt887ITJ6/2L8V84fGnt2LdEYsxD8zWR1YL3if2aFPzsiu
4EJ2+Vt+GF7Z3F+z7oxahNpJjZ3Yr/9x2VlpF+TFczvxcw/W+yFQ+cXNBb27
wX5wtBfnpxBsGprognaz+A8sfMXYScTizz0X9G3DRH7Hd9yv7Pon2WkXdDDg
ycddP/H57DNB8xyuKHleLkhtDPdvbB6gyLmio7/p35z5g8/rTh1ju+SKcg84
+yjOYJ52l+6CryuaCftPkv3f//Pm3pGVgHn+bL/WZYwvL0gOP3BF0xc3pAvW
cH3BeMxkhyvSr7TrDNjE/JVLEj++uqK/2goyyow7ALpsevPXXJEeJbWLg2UH
/n24evUSmxvK7l4KGt+GcfVRGS5BN/RX1GZPG8cOCE8Uela5yw3pObV23+be
AYSR0lVlJVx/f09o0HbM33bOoWni+rUEufM7MBZRv8iij+sN5npUBHG/DnVO
8xO4Pvl8OJcI5le/uyWccUN/vrbsmxTDeg/XofaCG9KVke59KYn5sBLzZxfd
UJZHXGQREfNKup6P7NzQ1KMphZDdmP+QcbHAwQ0dYTT7YiG3A4Yjqn5fc3JD
macao9Xkd0Dh2V8/9zjj+mxRJR7FHSBpMCP4DvNHfkR8+62Mz0t2nrd0xPUK
Y7Gv1DAf2eXdfQXX+51QKTm0A2z/y9FSs8X1rfcHQjUxVhGLD7PC9RwC8Zba
uF99gULDWTf0+1yw2kHA/g7WE7pPuSEo+j7Eq4frk+Brn4EbyvhtcOPPUYzL
Q9I6tN3Q5IGqg6+NcB7Jc8xFqm6IFM47UmqM+9f489jJuqH0N743w0/9P1/N
m+yiuJ6/X93aFOPmB1b5XLj+0pGfh8yx/4pGKwECrq+kJfGdx3q6l90DZlzR
5D/2w9MXcH2IjO+LIVeUTvmcQruE79PWaYHrsSua6D6sHWmH+SwXdZ5yV6Qj
VjRu44D9HU5mWUlxReP33Ug73LCfb3+mw+1dkfZ61+TMNZznn2NDEidcUarB
wcx3nnj+kB0sNBXMfyP8ifLFfn7MNjutu6BUGcfsSwHYj/vnPSVDLmjc463e
4WCM57oTXz7HPGNm7lzE//ctVORZpAsaVdhndPkm5i9s3x+95IwO+yf/00rG
mLHNdvGDM0puXSgQTMP1r2JNT9/F/Hm08D4b93fndHlgifnwsyU6pdivQMJt
syonpKYQNMNejv00vMocDXVCX74Uan+pxHok03NXTZyQtOpU7/V7eP7KzjMn
ZxxRw69IjspmPF+AY5Yj0RFZpFZc8H2C9YFdgPrHAW3odNL0EM6n4Mnb2w8d
kEG20JHBl/g8JZZYfNQB9R2v9eH7gPu1RtIxnbdHwUufWoc/Yr9knYwWQXsk
VbrGXfMZ92cWkHD6cgW5bhjcMerHvNzepIzzV9D6vYHBkDGMmQKjrAztkMQO
dqPxDazHueO+5cQl1PZcKeMBYSeEj82OHze+hJzdz41EMuwEwuBR8d13L6La
V0XBYtswzqTI3ra3QbqB6vfN+HcCqDXNlD+1RI5DDsJP9mI+UJkWxn0W1VSi
qZTzWG+jZl+UCSDjoQMCeZaY/yjtzPdZC43z3z1Cs8G4aYGzmk4DSYdnZDZf
wVhFlJKppYwyz7nCDw+Mh68/zxCZfxbGwJ+uRsF6Ltxf7DUATGycDvc2YWxy
k/VNlSX8Se13+P4YY+Hzwx3jVkDtME3+/RTjaxanVnfbQJuq1q+tNqyn1Wjw
t/ISqLPxJsl+wPjtS+8FezuQamweCZjYCSjZXuRMkxPM8XBRRYUFYPhf841v
qV5A3RHcNCcqABC40SA+5QXSwpOjHRIYR7++0nnUG0yJ7Xo+MgJgS3Gz8Vr1
htoDoRv/KQkAsg571+hMBnfLv55hhgKg5CY62W3hB5MlnedHyALgObPqaRcV
ApEVWrFNfri+sBrkJ0JAuPpOQ2KgAEj+7KaanA6FYw9jeQ+HYz/HxxbKRMOg
okPnbdoNAajY4u1rsgkHxz81OkeLcf2FYINAxkjYnBW9JlImgH0wVLFpRkLm
IvXWbLkALOsrvm/1iISXW47L+dXY/+O7nyu+RcKu7RJ1i024/g9ryJEHUfD9
YJJMxXsB6Ips9z/tEQPebSeUH3cLQLbwnaTBuzFAb8am3flJAJJTEXPGeAxI
X4sxn/+G5x/j3/Sxi4W6VV1bliEBMAlX9bx9Oxb0KISrwiMCQAk02P23Pxbs
S4KiYBzXqwcdWjkfB/NKGklnfuP+tPfBDRlxEP10MdfxrwCEM4d+Tf0YB/wn
GmgBswLAs13zRRovBcq+eNUlzOPzNq0VD09T4KCT4tPbSwIgSBleW71Jgfb5
qdd1qzgffxd523cUOBd559PLDeznlnblL7Z4GOV2/t5HEATb8dV4mSdp4Jsv
8+c3gyAYBRZqNw+mAfO+H8ubzIKQbTX99CIhHfYYXOSR4RSEprd3Jj7ppYNz
sDnJS0gQPMfeb1x/mw6/xyF/m4ogEL4K+O4eyIBg380K0QMYC+c4pGxlAAdj
S4OiuiCoxVwfZZbOBHmJQ+/O6ghCrZmOFo9TJrifVVgrOi4IFrWioamzmTDz
XOiC5hVBEPTZy8TMmg0LuXP8bumCUMGwf3qnei70UD1bPbIEoa0gRD3EMhca
Av96kHMFoXD4p8FIcC6QLSffhBQKgmzwsHL581yYExoJT67C58kpZbzGt2A6
+8PUgzY8v13PDj6bPJjIrG0jLAji97j8AWtQAXTE7vdmWhaEroJR8bi8Aqjw
rZJgWxMEZ3HF2qUnBeB8riKQj04ICn0u0aoJt2F0R6HSbk4hICRcO3855jb8
SE/KM5YRgqbXlgEvjxbCQKo7OfOsELR9UPu8rlcETaa/ZJwshICH56XCNbMi
SOWx7j1kJQR9o39rP9gWgUHiMc0vtkJglDNB9Q0pgtr4XQTRq0LQYqvWtvdh
EUSGf71RFIn7vX/KLyBTDLvdDUqq7gmBRfS2xPdLxfh30hPzkDrc/wWPqBdj
CXz9rcp86oEQzLcMedDxlkCSi5TLdLMQaH0bQH/kSmDZfn2/SrsQWH8s852x
LIE3VnXNjf1CICjzkTnwUQl4HBPvbt0mDBx987einEpBN+WnbReHMDT1rL+J
9y4F/i93pge4hWE4buaTT0gpNDsf4lzZIQxGTY9bN1NLgZliYqQoLQyycWsD
nS2lkN8e+fSWpjB03U81BvYy8OQ6drJSWxhqrRIfJvKXge457v6HIAylH3IU
kFgZjP+6tfLBANfHRGe9VSwDNaYHaqxnhEHrindPmFkZvNUbu0N2EwZbHf4N
zdQyKLhRrRHpjvs7LKuW52D9j9c7kryEgee6N918YRnsvEIYveMnDBZH+rr2
3ysDu0ghqe9RuH/WcXeZN2Vw4M3Qvb+xwjDD+yEqtasMWLfTdNbjhWEqNUt0
6HMZ1BSpWAskC0M4uerczh9lsIKMs07mCcPya9XQlZUyeMe6fbfVbYwPfDx8
aQv7MelrcC4WhnGFc7EljDTQH7bvjqrAeT35evoVFw0EZPddTrkrDEr1G5k0
PhpMesxOF9RgfzSjtSuCNEjeCuFsbhAGVMd031+KBlcM9fNeNQrDVYWkzvcy
NDiYxLbvU7Mw6LN6FTHupUG/eJbRDBIGisQGI4sKDfbo1Ebt/g/7iVRXugo0
mDf32EnoEgZGl6o1Pz0atLrtr/zSjfk/EoYOBjS4mFPVmdAnDHmDgSI/jWkg
X+t22fGbMKjbS0b7nKLBSvveedIgzqtKV37chAbp8xVC/34IQ8/YyqbnWRrY
sTtXvRsVhqr9GRxx52mgKL2HRJvA+/KkWSL0Ag3W1Uc/hE3h+3u/tPecFQ3e
nC6zvzCN77dDX4rbhgbZjvZLKnPCkFzEtFhxkQYOIUQqxwLOS58tn2hLA5X0
EdHRJWEInk9kC7tMA8LdonvPVnG+ZVqqj+1o0PncVjdnA/u9JMfRd4UGt/ok
PnkTREA+uY/6yZ4GztODTicYRIDV5XBZvQPOj7lgVYZZBMb33zf1dqQBo5jN
zS1WEWi7yRLH60SDD6qikl/YRUB0LFArBeOC49/q6rhEIK/gocssxlcv5x5N
4BUBHvtPzCrONND0v9DnwC8ChYGXOc5gzJIk6EYSEAHChvl1c4x7yno3BIVF
oE9C+MBBjItbMpPnREXAyPOG8TLW8/x4lvhOQgRmeOZrczHWnuR/WCYtAp7/
uG3FMGaj6zEKkxEBdW4O83Dst08g7ZuFLMaZsZQXeB7afjN3lX0iwLg7aWUU
z3v9KC8dx37cb5FWMonzAOuutF9KImDB8jyqE+fFdT1p9zNVXG+gm5WK8+yP
P/Uo+6AIQCNd/0Gcd2Uh5wlvDREwzzEyeYzvQ7/zhpcMCedz479We3x/238d
Z9w6IgK7zL4+i8f3O7S2LatPXwRk5TgmE/H9B8pRWm4cFwFrGdcOjTM0MALD
0w4ncb+11dAhvD87zzOP6JiIgP/FQCcHvF/3o6NZ5s6KQBVts5f3GA1Cb+nl
vrUQgXcEgqM63s8TdfQKZVb4/JdxZRLe3/GhcDOLyyKA1KzS/2jR4OEi6Zey
vQiUngpQy9CgQRTnlh+7E56frkJG7CANxA+H5D+9KgLzQSZ8nftpMGWqpZTt
IQK1vxZEl/D388h5rdXLWwSWmRhSCXtoYJ4ZML7LXwS6SrIHGsRpQJ31Ub0R
he+bmPq3hIMG5a4LTudiRSC79+TIBAsN2n6Q86TicX58L1/wMtBg89N1pqZE
EWhqeRjIgt8Hr2av3p85eB8iFNdu4PcjUXWWvTYP653wyhsZKIM7VZ4QdFsE
nMVKboj0lcHPAo9K3jKcPxTeUHtXBhZR14J0arEf/ukaxvoy8FmfuretHu/L
3ncXPKrKINXn6s+eB3i/hxLetZTh99HJ7aTbYxFYP6RxipBdBjonXCSy20VA
K6awcV9QGcjscHgx24/3W1h2u4wWfn8Tfy61DOF9fB7G/VK1DC6y2MtTRkQg
etaJ79i+MshescsQH8f7HfvixoZQGTzwHnk9MSkCCe9uKu7nLYPu35c3G/6I
gNKVDHU91jLgGLR1Mv4nAg3JTAPCi6Ugd3741s5FnM/z8jsDU6Vg0HWp6/sy
vh/XlSMxP0rB7tgQY/WaCFB4Vlt4v5ZCWOtFDf9NfD9T9Aejukoh7/DgNT06
UWjyFDGR5qyEpgabYi5GUQjeaVhXSV8JnxQGPn9hFgXW73ua+ZcrYI5mzV62
TRQEjzyMufKnArgl+0meHKLQxWegmjlSAfI5VuTD3KIwToj9XtVbAY43LAc+
8ItCz2BqS+zzCvjiYXFvU0IUOgKaxqbTKgCpm5+xOCgKJugs0wPVCvisSXSw
1RAFDoWH92R2V8BvrTlfZy3sj2ly0E+wAnYeSc711xWFwvT5mOfr5XD12Lvv
2aew/gMhmekX5SBgqe/5xVEUKoYT3QdPlIN7kNpNyyxR6Lu/j8nvOA2iQxhu
2+VivX3UjgC8zzlh3bWu+aJgy96cbS+L9y3KsyewRBQSuIUN/jHRQDihSuTW
PTwPl4ry2rMyeJm36863V1g/cWBxHP/9FH3K/8p6WRQothJ3fxJKQT6pv19p
DetHe1ys+lsCWralc4ybuJ614qNDfwlY06uJVzOIgWRz54eaxhLINzjjs8El
BsOb1a0F10pA/H0KsUBGDAr3CfUQe4tBcpgrfMhMDID7zjXF4iIg0m/TsKsW
gzz2hcRzhgVwOnpos8BLHBDVVneJkgZm1dMLQWRx2GV7pO6+XRqc+7w1ZeEn
DoUqz8gRWmlgLSv5bXuIOFjcuCBuN5MKru9sG2Mp4iBYq01UupAK0fwjHu63
xaFrjsFORzEFmkt/Dmv/h+sP367mGLwJT/+b7xXuEgdJxapXY1k34fki4/ul
bnFQurQ3btP0JnQYyTy53ycOJvdceofbE+DTlEOOzE9xWK65ei+m/gbMqI2Z
cq6JQ3KIxeuG7HjY/XKitV9WAtDVfP38jBjwN2m2urtPArqq821WLWLg7Tfq
fMB+CZB8Z5eSLxoDnnP7dguoSeD/b3YVN5ZGw2MJ93hTkgTISv9s0GuKApPA
udPtZyXAhE3OjOFPBAQprvXfi5QAgo7AH3fxEOhsfusTGiMBtimi6iONwSBp
kMd1koL1CUph86bB0G6tDZM3MS5tWV+KCwIealjJrhzc73O0MWUtAGg/GVxz
7klAMhcbOkjnB8sePfTOdZjPaszpLvUF47XSWwcf4Hlymd7wH/PFv3sM/vvY
jPvvLft6M80HDpMoSlztEjCco6t0UYkMXTkcS5H9eF5GuYL38V4gUiN/LXEI
nx9lfS2s7AWOrSd+5Ixgv5nhy0pfPGFjMuF97TjW+xqmgPZ5gtFW1dGW3xgr
muwhV3lAOt9/j1/9xdjRNoyOwQP2anFWDM7j8x/HDk41XANfEwXxySXM/605
YsxzDZ7bn0xfWJUA+DWy3/DaVeAIuMZGt4n7F8T8N/zWDaraDSCWIAkzubfi
UVsEdHedW2OnlwSLWc7Id7kRsPTV8WEKgyTwDI7XGXpFgO50rHw+syQoFTRR
EyQiwHklc0yaVRIkZX0yzy2Fw02G8uKKbZLQJa1Qmvw+HP+9fSXYwCEJlPTl
uLMR4eABLExvt0tCeNCI1umeMMhLiRtYFpcE2y6p77LFIdB6Kys7VBJj4f80
xy+FwFhZ+RlGaUkovFApfhPfr0rzq9fcMpIA68ZPKQXB8HqE5eHufdify8+6
05VB8HdKwKtKHvvj93us5x4E/Et75FX2437+cWUSakH4HTAq1lbG+m8uHExu
DYRFVUqi+SFJMNmT/8RqMgBEdbKPfVXH85Qxnch8GABHjCoYbTVxPcuxj81R
AZBg3RHopo3nU9Rvb5UMAGIMq1OkHvZzZP/3Hgd/MEoSlGY9ius/Mw87aPiD
e47swE0DSfB0i28Y4fSH5mqjMznHMD9X1lL4yA9MPlNItacxvrCioCbqB/8M
M9ZFTCWh1rnvde6KL2Q+KnoUZyYJhFf50NXrC/15zaqXzuJ+nAsXKzJ9wfnK
1B4uK0lAOda3ecV9gf3T8s8Aa5zX653n/9H5Qo0BU/EvG5xPpLRI2agPzMuJ
iz6xxf0uXTgXUOcD4TOnea46Yn8Xgi+On/EBop31f71OkjD8ouvIKR0faP/o
TNVzwf1+M0GMnA9wNEYwilzF/prD2ZzofeCebOLz2Gt4f35r8m+fIYNZbm7o
nDvO+yOqTxwkQ3ZI/fJrL0lIji6S23hChsPTzx4cuI793g3SmK4hw6DtO+8i
Mtb/K2VWX0iGiO4+RU5fzMuLJx1LI8Mu/V9T/n7/9xPGXhdLhlcPZit/+uP5
jPq/TwWSwXXPpqNJIO6nYyK/6kEGjhy2XS1B2N/LMMavDmS4xybwfU8Ivk/I
ikqwxv6CiQVpofi+/xm38pqTYf6PotVWGM63oL/P5QQZsi5pCbpF4Hm2bR9K
P0oGzQ9Gnz5HYj9ppKlUEhkGdM+m6kbj/lV6AvaaZAhvuHy6Jgb7O0vxZT1I
BuJudw7hOFyfxCAZrkKG9qzA1zEUvC8dh+TeKpLBZVtc7Gw8rj+sVj6hgP0G
penZ3MD5m2TUfJPHfqduE14n4POT0WeKMDa7WPVELRHfV3NzpSauX3jfFFiY
hOcLDW4r34/zPfLyEEcKroeCh+P4vTlc/2HeLxXPczMydUMV57tr8P6PNJxv
nrDr6CGcb+ak++kMnEfw6KkSLZwv69K+x5lYX37BVE0X5xvAMLE7G9fX/YzK
McL5/uampeZgvG9kvvs0GThtRK9s5uL+nZUNw+fJ+F9ZSdc8zE/HdrfakuEM
HBj4lI/vY/aMTYArGRbvH8k9chvPfyjwCqMPGXKIp85XF2J/HHNzV8LJoJVh
yS9UjPMI0RXKTiBDpP/1xJlSXH/K7GJoORlkJsOMrWl4fzjHM5QekqHDKoG1
o/z/+dNnNr4kAxepLPL2Hax39Yao/hgZFHwu1MhVYT/aWxc/rZLhxF3Or/XV
mNfkfmDL7QM3BHyVO2rx/DyBbx0O+8Cdk3ttzOrw93Fps2jIzAfeRA1S+uux
voFn0xk3H2CdMRieeYjPZ/u92XvbB/bsXmMPasLzRUj23mz2AQPre4eYmjEv
0X/092cfiOkQSBJ6gnneVPuM7b5AXzSurfsC683rkMozfEGqN8/lXRue195w
ZaDJF3/Hphnn2vH9eclqcg/4QljAoynX1/g+ZubPXpb1g3VT6q2093hfu/7N
v3jjByIUnVdiH3A+8W0TnQt+oPl0bq68G+MzdBd7pPwhYK/V8ZZPGNto1ncG
+8MivfzKz284D/s7buE6AbBDY3iXxwD2J7Hx+KJXAKh5pJusDGI/yq/ND5UF
wPVv6+WcI7i/gdWBXu5AmKn/79zBcdx/ScSqayYQJu09GuLm8fdRvXkv93sw
bLtFHOZdxHr9g+927goB2Q+97HlLmF+x2ZXgFAJO2nCldhXzWhkSdrMh8HMH
7/YvBCkIt6KebeIJg8H2Oo+9nFJQmLvusPI0HGT2G16t5pKC7LaVBY2xcLia
8c1ZiQfz7I8qZrkjYPUKo91BPinoeBe0u90uAnbQnTPXFZKCYc3TqnRckXDi
8Iq6pYwUmLDbydwNjIK04psHBnZLAeX4ovGZO1HwdZu0iq2sFDRxX+Hx+hoF
zn3H9znukwLPFps1Dq1oiPbJE/NWlgLJkMjpVsYYeHyPRE/VloKZN8G0bVWx
QC/Qs8lBwn6cQg6sj8SCUajzWhJIATpkrGwnHAefT6TMZ+jh+RoMOuKocTA3
MTJadAz7GzjdoOZJgb27Yt8+OisFssXweMqECtnZ79InruH688f1LzkmgrWT
TZqZhxQYyZzc3kRLBMmDf1Mee2J/pfqGHmOJUPmRO+nmdSnoMopcXXJJgmau
M/HKAZhnS517oJEM/dFfQgKipYBnxvRvt3EKSHqNOm67JQW1fiw7H6WkwU+S
n4N3nhRcTVs4TW1MgwouVvtv+VKwrKSgEDuQBspVcperC6Xw398BsQ25dNAd
u2plSsN6z6K6RtrSwd7m3+mc+9jv0kfXK/SZUHGMoCHXIQWEiYaWN7nZMN6v
Tqt9LQX+fTf19r3OBjlPLz71tzg/y0D6h0vZcCdz5I9BpxSc4EwaMTqbA1U/
2orte6SgxXGS22p7LtSGxHMUDkuB1na5k7/SbuH/17cG7BnB+tOVR5+33QLl
0tXRmh9SwHgqY+H5wi2oe+P2/MmoFKg/NF5TtMiDBoFTvt+msH/2qdF68XyY
vxP7w+6vFCh925i4Y5IPB3SemUxOS0HFisqNF5H58NBead/KnBRUrZzfZjGW
D4/ubx/euYLz3SXgTF9XAKv6xicLVjEuD/i8+rMANPuimmXWsf5sRQKv4G0I
cmvZU72B7984SsTA+Da0bM6nq23h+o2/27NDb8N6igJ9C0EamtrJ15lOlIC2
jKOHHr00JGuqRYc6lUBoU0H/GwZpMAnxOcMcVQJPjXuPmTFJQ9eLnSV5BSWw
Ocjd+IVZGgStvNWONJcAydto12VWXF9wsePfpxJA2Y82PdilweJJzXIEZym0
/rpVf5NXGgpnHl45HFIK9AE9kjv4pGHqz5MFo5xS0OPgTMzjl8b7GhRq96AU
2lRCne8KSEN4s719059SaA+zFXstJg2S5mZLYxfL4I2QTBzjXmnw7OJUF9Sj
AYXfctFrH/Y34XSn34YGBtxJDkPy0tAW/6W83J8GrYwres2K0rC+2HrCpIYG
j6bfETwPSMMuwxnHX0LlUPGSHPgNpIE1+8fY6Gw5xHq1Xas7Lw19L69nk0sq
Qff1FXPbGGkYvkg4yrtRBbIL/untsdIwL1C08WlnNXBKJfbIU6ShwqXjbpJS
NfT5N5mvUKXBPkGhafhKNbjLcp5NTZYGHn3RA7OvqyE37uHZtlvYr8OYIyWt
Bv4d3XZetg73//rtxiHOWujzEs9KrMf30dxzRlyoFp7mq/bON0hDcVTCo9Vd
tUBdsDn/vFEaqgTfojStWvy7sO685ROc79aip65bLZxgtLZI6JAGfcf8VY/2
WihtrbkwMygNDWPwbNX7PjDXu7H6DEvD7gLCmmzofXAukW1c+S4NV9Or9I/G
34d90cX8DL/wPD2fjhjevg91RzPf7/gtDXU+aVVub+7D846Qo4eXcB47B8U5
xepA+pHm/LNlaWB7+oWfeU8dRFcuFeuv4vw+BytMKtWBEdWLcGoD51++ne+6
fh10GTs8tmUgQvCy7cdI1zoY7DyhHMtNhIajRhLkujqAZ9uG2XiJgCyITWyP
66D4Xnti0nYigI3Si/gXdeCQDFPZOzBm7roJPXUwZapWfleECB0jD7MT5uvg
lO7sWSUxIli/TrC3W6+DWpUaxgfiRDhRvugowVgPZD5Zu6dSRLiop+h/iq8e
1npExD7sIeL3muFJsFI9WL/se3tWjgj2Qd/2UQ7Vw9MHGYFf9xJBMFysKkCn
HiIzuft+KBChbSzwLNeJemCzYEhbVCWCrDMxddWhHgS/TbKKAhE6JXSPtKbX
w5JK6aPYI7j+bN65tpx6+Ey1cZ3VJcKu2jSxmoJ6SNfsett+lAjOf4Ud1Cvq
gTf3QaKXMREWc8I9ZJrrYWbWndR/ggiDeaaldk/roeuY7IzBKeyPMWAgtrUe
EldyTUVNifAzmIkz+g32cyGc/9U5ImSfCzc8/aUeJmo1XipbEMH/yEhka389
dLD+88m7QAR6lXfyosP1ENfk0OtlTYR3txIokaP14MgjQem3wXmsxwglTdSD
gXOfuuElIoQePdUbMVUPjILGuaJ2RNBaGrklNFcPPzwYjeOuEEFpcTn66Xw9
tL56sjZrj/sxel86tlQP4X5KNq+ciJDHRbnPs14Pl95PcKq4EMGCp4zr5GY9
6OwpeZrnSoSE7btlPQgNsPF5h6T3NZzn0/eX7BkboH//+65+dyJcVXnieIi5
AVpiKRGGnrieLWdtmqUBbg0eUanzIkL0tU6+xG0NEHhwbUT0OhGmBFTLeNkb
4EJiQ1ocGfttYqEFcjSA+ug1/TkfjI2WOV5zNoCAzp4Faz8i1NqJfljnaoDF
jOGyV/5EqMpcmtjB0wCf/uScUwkkgn5jwGl+3ga8p2dY8oPwfclurSxhnJ7P
0cQSQgSCrOkI2t4A1xdeOnuHEuENP43Og68BzE6GCQ2E4XnuF5nS8zeASpn6
G8MIvE9Xzr4LxJh3YzawLhLviydc7cN4xvzuPrFoIn6PTeRFdjTA+yr7/rgY
nK/nMIsexjWM4jfnYolQof949TTGN617tW0oRGDNF6LTxfhqQ/LfV/E4H+0S
ASGMjTmO31a5QYSRWffDn7D+XnsGk/wEIhjV07v6YszW0kJgTSQC49szRevY
7wSf733vJCJ0zbQPOWHc4aZoN5CM53dS2tWE56t4Mb7dKBXzfD3X/uD540SK
X9SlESE9zaGFBWPH61ZksQwiiJ9k5WHB+R19yy9DySRCX+hpl984313Ezk9z
Wfg+j+m8bsD5j3TDoY5cfB+tp0oW2RqgQNZ4p00ezser5AsJ3+eF0LMLs/l4
/rbVECd8311yrvUiRfh7lssimjE0QEIYObW2GM+jS6e0g64BDD+Feh0txe/L
50b0EO/X0/A0RY9y3J+uIyFjpR4CP+dzMVbi75H3fl/3Yj0ckK/4k30H7yOR
6c3ff/VQ1dtyt7Ua39cR/5etf+rh1v7RPTsbsP7dSdv+oXo4Fz3DfPcBzqv8
Az8P/p62f139RWokwnp+cZd0Xz1QY7hLXZqJIMk1kf/rfT3496tLPkFEMK8+
5DDypB7UVPS2TFuxn8ZFOZ5H9TAdd3Jw9AWeVyo4SqwBf3+qdnk8r3C+O4oN
eyvrwZx6Q9D+P3x+tTjodVo98AxnLC13EqGQw/zY4s16eHug8PPNLry/bKOX
GSj1oPu9Ib3xIxHUxCq/Pg2qByX1QR72r3if7q0NPLlcDxyjStvqRrE/uTto
YQ9+Dw4fHjcYx+9L1s9ENcl6iEo5+urbBBHMOhPizwrWw6qWZQzTHyLszOpI
1mGth/G0KLoL/4iwPM81WDtaB6UTN4f/zGP/GeP0TIN1cImU/SxykQg9GUlB
Wp/q4PNkVUjVCt7PEQbmc/j9ToVG6yNrRAg/t+Sk3ozf68znhz+v4/16Sfd0
s7YO2KbeCrttEiFR2U+5srwOXh75vLK1hb/HELmpQwV18D9z+IaT
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{1, 10}, {-1189.031600810942, 
              5141.3124196093195`}}, 
            "Frame" -> {{True, False}, {True, False}}, 
            "AxesOrigin" -> {1.0000000000000022`, 0}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {False, False}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               Hue[0.9, 1, 1], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
       {Dashing[{0.05, 0.01}], LineBox[{{3, 23.508}, {9, 2463.4}}]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{1.0000000000000022`, 0},
      DisplayFunction->Identity,
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox[
          TagBox["\"Income/Spending\"", HoldForm], TraditionalForm], None}, {
         FormBox[
          TagBox["\"Time\"", HoldForm], TraditionalForm], None}},
      FrameTicks->{{{}, {}}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{17.171875, 0.5}, {31.34375, 0.5}},
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{1, 10}, {-1189.031600810942, 5141.3124196093195`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {480., -108.32436679576516}, 
     ImageScaled[{0.5, 0.5}], {300., 206.33212723002887},
     BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}]}, {}},
  ImageSize->{640., 216.64873359153032`},
  Method->{"IgnoreImageSizeAutomaticLimit" -> True},
  PlotRange->{{0, 640.}, {-216.64873359153032`, 0}},
  PlotRangePadding->Automatic]], "Output",
 CellChangeTimes->{
  3.8122015942223053`*^9, 3.8122029083395915`*^9, 3.81220839138737*^9, 
   3.8122251217687235`*^9, 3.8122881239382963`*^9, {3.8123194375763063`*^9, 
   3.8123194609107184`*^9}, 3.812396068959052*^9, 3.812397202125578*^9, 
   3.8123973204522963`*^9, 3.8124808371252007`*^9, 3.8124913361884785`*^9, 
   3.8125799387944946`*^9, 3.8126322371619244`*^9, 3.81263334696389*^9, 
   3.8126339768487167`*^9, 3.8126341734304833`*^9, 3.812634384320145*^9, 
   3.8126344265666647`*^9, 3.812635350182761*^9, 3.8129169517260656`*^9, 
   3.8129174237504845`*^9, 3.8129881193225126`*^9, 3.8129892728422527`*^9, 
   3.812996719490307*^9, 3.812997747454463*^9, 3.8141223061602926`*^9, 
   3.8189468117994924`*^9, 3.820332464290166*^9, 3.8203354610722938`*^9, 
   3.820338138166707*^9, 3.8789975630839715`*^9, 3.935256274155882*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[116]=",ExpressionUUID->"ee463132-4a41-3b4d-9ee9-0087207500e0"]
}, Open  ]],
Cell[TextData[StyleBox["Note: Convoluted as it may seem, this is the real \
world. The equation that produces the plot above includes the familiar net \
present value equation learned in every business school on the planet. The \
large bumps and grinds as it climbs in an upward drift are the occasional \
war, pandemic or sub-prime housing meltdown. The smaller blips are local \
earthquakes, fires and floods. Life is messy.",
 FontFamily->"Times New Roman",
 FontSize->14,
 FontWeight->"Normal",
 FontSlant->"Italic"]], "Text",
 CellChangeTimes->{{3.812203046053506*^9, 3.8122032253956795`*^9}, {
   3.812203289758326*^9, 3.8122032905881357`*^9}, {3.812204000436156*^9, 
   3.8122040010323973`*^9}, 3.812492946637673*^9, {3.8125807503919086`*^9, 
   3.812580755151712*^9}, {3.82033394803377*^9, 
   3.820333972554763*^9}},ExpressionUUID->"e2245f54-d6df-4568-86fc-\
ee42281131a9"],
Cell[TextData[{
 "Your hard work and good fortune pay off. ",
 StyleBox["Bongos Are Us",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 " attracts a following, then capital and goes public. After ten years you \
have key personnel in place to take it to the next level. Weary of the wars \
of commerce, you take an offer of a leveraged buyout from your employees, \
move to a small farm on a lake in New Hampshire, location = d, where you \
learn about semi-retirement. Once again, your tastes and requirements change \
so the functional form changes as well"
}], "Text",
 CellChangeTimes->{{3.812205091777788*^9, 3.812205230861899*^9}, {
  3.8122077008741193`*^9, 3.8122077371684628`*^9}, {3.81220868744016*^9, 
  3.812208716639656*^9}, {3.812580764917962*^9, 
  3.8125807751251807`*^9}},ExpressionUUID->"dfc5a46b-8cda-4c17-8298-\
42d0749c1b48"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"dsFour", "=", 
  RowBox[{"dsFct", "/.", 
   RowBox[{"x", "\[Rule]", "d"}]}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.8121057224837613`*^9, 3.8121057298705416`*^9}, 
   3.8121079175196285`*^9, 3.8122004083170133`*^9, 3.8122050816904936`*^9, {
   3.8123967231244335`*^9, 3.8123967235829334`*^9}, 3.8123968378555803`*^9},
 CellLabel->
  "In[117]:=",ExpressionUUID->"f97bcbbd-327a-4087-80ae-3abf03626330"],
Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "rec no" -> 1, "date" -> "recurring", "item" -> "Food", 
        "debit" -> $CellContext`f[$CellContext`d], "credit" -> 0|>, <|
       "rec no" -> 2, "date" -> "recurring", "item" -> "Clothing", 
        "debit" -> $CellContext`c[$CellContext`d], "credit" -> 0|>, <|
       "rec no" -> 3, "date" -> "recurring", "item" -> "Shelter", 
        "debit" -> $CellContext`s[$CellContext`d], "credit" -> 0|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "rec no"} -> 
        1, {All, "date"} -> 1, {All, "item"} -> 1, {All, "debit"} -> 
        1, {All, "credit"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`RowShape[<|
           "rec no" -> TypeSystem`PackageScope`AtomShape[34], "date" -> 
            TypeSystem`PackageScope`AtomShape[94.5], "item" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "debit" -> 
            TypeSystem`PackageScope`UnknownShape[False], "credit" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"rec no", "date", "item", "debit", "credit"}, {
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[
          TypeSystem`Enumeration["recurring"]], 
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[Integer]}], 3], "Path" -> {}, "DisplayedRowCount" -> 
     3, "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 
     5, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["rec no", 
                  Style[
                  "rec no", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "rec no"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "rec no"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["date", 
                  Style[
                  "date", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "date"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "date"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["item", 
                  Style[
                  "item", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "item"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "item"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["debit", 
                  Style[
                  "debit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "debit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "debit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["credit", 
                  Style[
                  "credit", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "credit"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "credit"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["1"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Food", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"f", "[", "d", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Clothing", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"c", "[", "d", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["3"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["rec no"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["recurring", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["date"]}, "Item", False], "Mouse"], 
              ImageSize -> {{94.5, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Shelter", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["item"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{"s", "[", "d", "]"}], FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["debit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["credit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{355.4640034198761, {50.830033203125, 56.561966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.8122050828375826`*^9, 3.8122083915062747`*^9, 3.8122251219165745`*^9, 
   3.8122881241127214`*^9, {3.8123194377344475`*^9, 3.812319461045702*^9}, 
   3.812396069033159*^9, 3.8123968384012003`*^9, 3.8123972022499833`*^9, 
   3.812397320498163*^9, 3.812480837264824*^9, 3.8124913362997*^9, 
   3.8125799388723364`*^9, 3.812632237296563*^9, 3.8126333471099405`*^9, 
   3.812633977092208*^9, 3.8126341737005367`*^9, 3.8126343845523663`*^9, 
   3.812634426756229*^9, 3.8126353510594177`*^9, 3.8129169518050704`*^9, 
   3.812917423999895*^9, 3.812988119444991*^9, 3.8129892729694586`*^9, 
   3.8129967196581693`*^9, 3.812997747632039*^9, 3.8141223062819133`*^9, 
   3.8189468119299355`*^9, 3.8203324644158216`*^9, 3.820335461135125*^9, 
   3.820338138267847*^9, 3.8789975631367054`*^9, 3.9352562742701817`*^9},
 TextAlignment->Center,
 CellLabel->
  "Out[117]=",ExpressionUUID->"420d91b7-b8df-584f-915e-ef54321cf85a"]
}, Open  ]],
Cell["\<\
The alert student will note below that what follows is quite a different \
illustration. The axes are labeled differently and we have some new Greek \
letters representing parameters. With a lifetime of saving and investing \
comes stability in your income and spending levels (the patterns may change \
but the quantities have leveled off) so we leave that discussion for the \
moment. What is now paramount is managing the nest egg you have nurtured over \
the decades so that your remaining lifetime resources equal or exceed your \
remaining lifetime obligations. The word \[OpenCurlyDoubleQuote]resources\
\[CloseCurlyDoubleQuote] is broader than salary or income and can include \
spending accumulated principal; likewise with \
\[OpenCurlyDoubleQuote]obligations\[CloseCurlyDoubleQuote] which may include \
bequests to heirs in addition to personal consumption. In this process you \
learn about a new tradeoff: Risk and Return. Your primary \
\[OpenCurlyDoubleQuote]job\[CloseCurlyDoubleQuote] during retirement is \
managing your wealth in a way that supports you for the remainder of your \
life (and is the subject of an entirely different story for another time).\
\>", "Text",
 CellChangeTimes->{{3.812208466329199*^9, 3.8122086376997547`*^9}, 
   3.8122086723076887`*^9, {3.812225223556076*^9, 3.8122254492463455`*^9}, {
   3.812580791741525*^9, 3.812580810624834*^9}, {3.820334099154488*^9, 
   3.820334112905017*^9}},ExpressionUUID->"b56035d7-582b-48d3-adbd-\
f35c3ce27ce6"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"asset1s", "=", 
     RowBox[{"SRandom", "[", 
      RowBox[{"1000", ",", 
       RowBox[{"{", 
        RowBox[{"alpha", ",", " ", "beta", ",", "gamma", ",", "delta"}], 
        "}"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"asset2s", "=", 
     RowBox[{"SRandom", "[", 
      RowBox[{"1000", ",", 
       RowBox[{"{", 
        RowBox[{"alpha", ",", " ", "beta", ",", "gamma", ",", "delta"}], 
        "}"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"asset3s", "=", 
     RowBox[{"SRandom", "[", 
      RowBox[{"1000", ",", 
       RowBox[{"{", 
        RowBox[{"alpha", ",", " ", "beta", ",", "gamma", ",", "delta"}], 
        "}"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"pfloS", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"asset1s", ",", "asset2s", ",", "asset3s"}], "}"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"samples100", "=", 
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"SRandom", "[", 
        RowBox[{"100000", ",", 
         RowBox[{"{", 
          RowBox[{"alpha", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "1"}], 
        "]"}], ",", "1000"}], "]"}]}], ";", "\[IndentingNewLine]", 
    StyleBox[
     RowBox[{"asset1n", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{
          RowBox[{"Mean", "[", "asset1s", "]"}], ",", 
          RowBox[{"StandardDeviation", "[", "asset1s", "]"}]}], "]"}], ",", 
        "1000"}], "]"}]}],
     FontColor->GrayLevel[0]], 
    StyleBox[";",
     FontColor->GrayLevel[0]], 
    StyleBox["\[IndentingNewLine]",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"asset2n", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{
          RowBox[{"Mean", "[", "asset2s", "]"}], ",", 
          RowBox[{"StandardDeviation", "[", "asset2s", "]"}]}], "]"}], ",", 
        "1000"}], "]"}]}],
     FontColor->GrayLevel[0]], 
    StyleBox[";",
     FontColor->GrayLevel[0]], 
    StyleBox["\[IndentingNewLine]",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"asset3n", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{
          RowBox[{"Mean", "[", "asset3s", "]"}], ",", 
          RowBox[{"StandardDeviation", "[", "asset3s", "]"}]}], "]"}], ",", 
        "1000"}], "]"}]}],
     FontColor->GrayLevel[0]], 
    StyleBox[";",
     FontColor->GrayLevel[0]], 
    StyleBox["\[IndentingNewLine]",
     FontColor->RGBColor[0, 0, 1]], 
    RowBox[{"pfloN", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"asset1n", ",", "asset2n", ",", "asset3n"}], "}"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"samplen100", "=", 
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"SRandom", "[", 
        RowBox[{"100000", ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "1"}], 
        "]"}], ",", "1000"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotN", "=", 
     RowBox[{"ParametricPlot", "[", 
      RowBox[{
       RowBox[{"EfficientFrontier", "[", 
        RowBox[{
         RowBox[{"MeanVector", "[", "pfloN", "]"}], ",", 
         RowBox[{"covariance", "[", "pfloN", "]"}], ",", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "0.1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Risk\>\"", ",", "\"\<Return\>\""}], "}"}]}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"LineLegend", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", "Red"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<normal\>\"", ",", "\"\<stable\>\""}], "}"}]}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0.7", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0.5", ",", "1.1"}], "}"}]}], "}"}]}], "]"}]}], ",", 
       RowBox[{"Background", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"255", "/", "256"}], ",", 
          RowBox[{"244", "/", "256"}], ",", 
          RowBox[{"212", "/", "256"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", ".001", "]"}]}], "}"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"plotS", "=", 
     RowBox[{"ParametricPlot", "[", 
      RowBox[{
       RowBox[{"EfficientFrontier", "[", 
        RowBox[{
         RowBox[{"MeanVector", "[", "pfloS", "]"}], ",", 
         RowBox[{"covariance", "[", "pfloS", "]"}], ",", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "0.1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"Background", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"255", "/", "256"}], ",", 
          RowBox[{"244", "/", "256"}], ",", 
          RowBox[{"212", "/", "256"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"Hue", "[", "0.9", "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Switch", "[", 
     RowBox[{"tab", ",", "1", ",", "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{"plotN", ",", "plotS", ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
        RowBox[{"AxesOrigin", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"350", ",", "400"}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Black", ",", "Red"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\"\<normal\>\"", ",", "\"\<stable\>\""}], "}"}]}], 
          "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", "2", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"normal", "\[Equal]", "True"}], ",", 
        RowBox[{"ListPlot", "[", 
         RowBox[{
          RowBox[{"StandardDeviation", "/@", "samplen100"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{
          "PlotLabel", "\[Rule]", 
           "\"\<Plot of \[Sigma] for 100 Stable Random Samples\\n of n = 1000 \
with \[Alpha] = 2\>\""}], ",", 
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"Frame", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"True", ",", "True", ",", "False", ",", "False"}], 
            "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<Sample Number\>\"", ",", "\"\<Standard Deviation\>\""}], 
            "}"}]}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "1.5"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"350", ",", "400"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"ListPlot", "[", 
         RowBox[{
          RowBox[{"StandardDeviation", "/@", "samples100"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", 
           RowBox[{"StringJoin", "[", 
            RowBox[{
            "\"\<Plot of \[Sigma] for 100 Stable Random Samples\\n of n = \
1000 with \[Alpha] = \>\"", ",", 
             RowBox[{"ToString", "[", "alpha", "]"}]}], "]"}]}], ",", 
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"Frame", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"True", ",", "True", ",", "False", ",", "False"}], 
            "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<Sample Number\>\"", ",", "\"\<Standard Deviation\>\""}], 
            "}"}]}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "1.5"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"350", ",", "400"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}]}],
    ",", "\[IndentingNewLine]", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Control", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"alpha", ",", "1.8", ",", "\"\<\[Alpha]\>\""}], "}"}], 
            ",", "1.6", ",", "2", ",", ".1", ",", 
            RowBox[{"ControlType", "\[Rule]", "SetterBar"}]}], "}"}], "]"}], 
         ",", 
         RowBox[{"Control", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"beta", ",", "0", ",", "\"\<\[Beta]\>\""}], "}"}], ",", 
            RowBox[{"-", "1"}], ",", "1", ",", ".5", ",", 
            RowBox[{"ControlType", "\[Rule]", "SetterBar"}]}], "}"}], "]"}]}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Control", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"gamma", ",", ".4", ",", "\"\<\[Gamma]\>\""}], "}"}], 
            ",", ".3", ",", ".5", ",", ".1", ",", 
            RowBox[{"ControlType", "\[Rule]", "SetterBar"}]}], "}"}], "]"}], 
         ",", 
         RowBox[{"Control", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"delta", ",", ".04", ",", "\[Delta]"}], "}"}], ",", 
            ".02", ",", ".06", ",", ".01", ",", 
            RowBox[{"ControlType", "\[Rule]", "SetterBar"}]}], "}"}], "]"}]}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Control", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"tab", ",", "1", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"1", "\[Rule]", "\"\<frontier\>\""}], ",", 
              RowBox[{"2", "\[Rule]", "\"\<why\>\""}]}], "}"}]}], "}"}], 
          "]"}], ",", 
         RowBox[{"PaneSelector", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "\[Rule]", "\"\< \>\""}], ",", 
             RowBox[{"2", "\[Rule]", 
              RowBox[{"Control", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"normal", ",", "True", ",", "\"\<normal\>\""}], 
                  "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"True", ",", "False"}], "}"}]}], "}"}], "]"}]}]}], 
            "}"}], ",", 
           RowBox[{"Dynamic", "[", "tab", "]"}]}], "]"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "alpha", ",", "beta", ",", "gamma", ",", "delta", ",", "normal", ",", 
      "tab"}], "}"}]}], ",", 
   RowBox[{"SynchronousUpdating", "\[Rule]", "False"}], ",", 
   RowBox[{"Paneled", "\[Rule]", "False"}], ",", 
   RowBox[{"SaveDefinitions", "->", "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"$Post", ":=", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MatrixQ", "[", "#1", "]"}], ",", 
          RowBox[{"MatrixForm", "[", "#1", "]"}], ",", "#1"}], "]"}], "&"}]}],
       ";", "\[IndentingNewLine]", 
      StyleBox[
       RowBox[{
        RowBox[{"EfficientFrontier", "[", 
         RowBox[{
         "mean_", ",", " ", "covariance_", ",", " ", "w_", ",", " ", 
          "opts___Rule"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "c", ",", " ", "temp", ",", " ", "weights", ",", " ", "x"}], "}"}],
           ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"c", " ", "=", " ", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"Apply", "[", 
               RowBox[{"Plus", ",", " ", "mean"}], "]"}]}], "}"}]}], ";", " ",
            "\[IndentingNewLine]", 
           RowBox[{"x", " ", "=", " ", 
            RowBox[{"Map", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Inverse", "[", "covariance", "]"}], " ", ".", " ", 
                RowBox[{"(", 
                 RowBox[{"mean", " ", "-", " ", "#"}], ")"}]}], "&"}], ",", 
              " ", "c"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"x", " ", "/=", " ", 
            RowBox[{"Apply", "[", 
             RowBox[{"Plus", ",", " ", 
              RowBox[{"Transpose", "[", "x", "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"weights", " ", "=", " ", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"w", ",", " ", 
               RowBox[{"1", " ", "-", " ", "w"}]}], "}"}], " ", ".", " ", 
             "x"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"weights", ".", "covariance", ".", "weights"}], ",", 
              " ", 
              RowBox[{"weights", ".", "mean"}]}], "}"}], " ", "//", " ", 
            "Simplify"}]}]}], "\[IndentingNewLine]", "]"}]}],
       FormatType->StandardForm,
       FontFamily->"Courier New"], 
      StyleBox[";",
       FormatType->StandardForm,
       FontFamily->"Courier New"], "\[IndentingNewLine]", 
      StyleBox[
       RowBox[{
        RowBox[{"MeanVector", "[", 
         RowBox[{"l_", "?", "MatrixQ"}], "]"}], " ", ":=", " ", 
        RowBox[{
         RowBox[{"Apply", "[", 
          RowBox[{"Plus", ",", " ", "l"}], "]"}], " ", "/", " ", 
         RowBox[{"Length", "[", "l", "]"}]}]}],
       FormatType->StandardForm,
       FontFamily->"Courier New",
       FontSize->12], 
      StyleBox[";",
       FormatType->StandardForm,
       FontFamily->"Courier New",
       FontSize->12], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"covariance", "[", 
        RowBox[{"l_", "?", "MatrixQ"}], "]"}], ":=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "len", ",", "dim", ",", "t", ",", "mean", ",", "upper", ",", 
           "rest"}], "}"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"len", ",", "dim"}], "}"}], "=", 
           RowBox[{"Dimensions", "[", "l", "]"}]}], ";", 
          RowBox[{"t", "=", 
           RowBox[{"Transpose", "[", "l", "]"}]}], ";", 
          RowBox[{"mean", "=", 
           RowBox[{"MeanVector", "[", "l", "]"}]}], ";", 
          RowBox[{"upper", "=", 
           RowBox[{"Apply", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                 "t", "\[LeftDoubleBracket]", "#1", "\[RightDoubleBracket]"}],
                  ".", 
                 RowBox[{
                 "t", "\[LeftDoubleBracket]", "#2", 
                  "\[RightDoubleBracket]"}]}], "len"], "-", 
               RowBox[{
                RowBox[{
                "mean", "\[LeftDoubleBracket]", "#1", 
                 "\[RightDoubleBracket]"}], " ", 
                RowBox[{
                "mean", "\[LeftDoubleBracket]", "#2", 
                 "\[RightDoubleBracket]"}]}]}], "&"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"i", ",", "j"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "dim"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "i", ",", "dim"}], "}"}]}], "]"}], ",", 
             RowBox[{"{", "2", "}"}]}], "]"}]}], ";", 
          RowBox[{"rest", "=", 
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                "upper", "\[LeftDoubleBracket]", "j", 
                 "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
                RowBox[{"i", "-", "j", "+", "2"}], "\[RightDoubleBracket]"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", 
                 RowBox[{"dim", "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", 
             RowBox[{"{", "}"}]}], "]"}]}], ";", 
          RowBox[{"Apply", "[", 
           RowBox[{"Join", ",", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"rest", ",", "upper"}], "}"}], "]"}], ",", 
            RowBox[{"{", "1", "}"}]}], "]"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"SRa", "=", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"n", ",", "_Integer"}], "}"}], ",", "a", ",", " ", "b"}], 
          "}"}], ",", " ", 
         RowBox[{"Block", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z", ",", "at0", ",", "theta", ",", "w"}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"z", "=", 
             RowBox[{
              RowBox[{"-", "b"}], " ", 
              RowBox[{"Tan", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"\[Pi]", " ", "a"}], ")"}], "/", "2"}], "]"}]}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"at0", "=", " ", 
             RowBox[{"ArcTan", "[", 
              RowBox[{"-", "z"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"z", "+", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"w", "=", 
                 RowBox[{"-", 
                  RowBox[{"Log", "[", 
                   RowBox[{"RandomReal", "[", "]"}], "]"}]}]}], ";", 
                RowBox[{"theta", "=", 
                 RowBox[{"\[Pi]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{"1", "/", "2"}], ")"}]}], "+", 
                    RowBox[{"RandomReal", "[", "]"}]}], ")"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Sec", "[", "at0", "]"}], " ", 
                 RowBox[{"Sec", "[", "theta", "]"}], " ", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"1", "/", "w"}], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"at0", "-", "theta", "+", 
                    RowBox[{"a", " ", "theta"}]}], "]"}], " ", 
                    RowBox[{"Sec", "[", "at0", "]"}], " ", 
                    RowBox[{"Sec", "[", "theta", "]"}]}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"1", "/", "a"}]}], ")"}]}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"at0", "+", 
                   RowBox[{"a", " ", "theta"}]}], "]"}]}]}], ",", 
               RowBox[{"{", "n", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
          "]"}]}], "]"}]}], ";", "\n", "\[IndentingNewLine]", 
      RowBox[{"SR1", "=", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"n", ",", "_Integer"}], "}"}], ",", "b"}], "}"}], ",", 
         RowBox[{"Block", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"w", ",", " ", "theta"}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Table", "[", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"w", " ", "=", " ", 
               RowBox[{"-", 
                RowBox[{"Log", "[", 
                 RowBox[{"RandomReal", "[", "]"}], "]"}]}]}], ";", 
              RowBox[{"theta", "=", 
               RowBox[{"\[Pi]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{"1", "/", "2"}], ")"}]}], "+", 
                  RowBox[{"RandomReal", "[", "]"}]}], ")"}]}]}], ";", " ", 
              RowBox[{
               RowBox[{"1", "/", "\[Pi]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "b", " ", 
                  RowBox[{"Log", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"\[Pi]", " ", "w", " ", 
                    RowBox[{"Cos", "[", "theta", "]"}]}], ")"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"\[Pi]", "+", 
                    RowBox[{"2", " ", "b", " ", "theta"}]}], ")"}]}], "]"}]}],
                  "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Pi]", "+", 
                    RowBox[{"2", " ", "b", " ", "theta"}]}], ")"}], " ", 
                  RowBox[{"Tan", "[", "theta", "]"}]}]}], ")"}]}]}], ",", 
             RowBox[{"{", "n", "}"}]}], "]"}]}], "]"}]}], "]"}]}], ";", "\n", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"srandom", "[", 
        RowBox[{"n_Integer", ",", 
         RowBox[{"{", 
          RowBox[{"a_", ",", 
           RowBox[{"b_", ":", "0"}], ",", 
           RowBox[{"c_", ":", "1"}], ",", 
           RowBox[{"d_", ":", "0"}]}], "}"}]}], "]"}], ":=", 
       RowBox[{
        RowBox[{"c", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"a", "==", "1"}], ",", 
           RowBox[{"SR1", "[", 
            RowBox[{"n", ",", "b"}], "]"}], ",", 
           RowBox[{"SRa", "[", 
            RowBox[{"n", ",", "a", ",", "b"}], "]"}]}], "]"}]}], "+", "d"}]}],
       ";", "\n", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"SRandom", "[", 
        RowBox[{"n_Integer", ",", 
         RowBox[{"{", 
          RowBox[{"a_", ",", 
           RowBox[{"b_", ":", "0"}], ",", 
           RowBox[{"c_", ":", "1"}], ",", 
           RowBox[{"d_", ":", "0"}]}], "}"}], ",", " ", 
         RowBox[{"iparam_Integer", ":", "1"}]}], "]"}], ":=", " ", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Which", "[", 
          RowBox[{
           RowBox[{"iparam", "==", "0"}], ",", 
           RowBox[{"srandom", "[", 
            RowBox[{"n", ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"iparam", "==", "1"}], "&&", 
            RowBox[{"a", "!=", "1"}]}], ",", 
           RowBox[{
            RowBox[{"srandom", "[", 
             RowBox[{"n", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], 
            "+", 
            RowBox[{"b", " ", "c", " ", 
             RowBox[{"Tan", "[", 
              RowBox[{"Pi", " ", 
               RowBox[{"a", "/", "2"}]}], "]"}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"iparam", "==", "1"}], "&&", 
            RowBox[{"a", "==", "1"}]}], ",", 
           RowBox[{
            RowBox[{"srandom", "[", 
             RowBox[{"n", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], 
            "+", 
            RowBox[{"b", " ", 
             RowBox[{"2", "/", "Pi"}], " ", "c", " ", 
             RowBox[{"Log", "[", "c", "]"}]}]}]}], "\[IndentingNewLine]", 
          "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"SRandom", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a_", ",", 
           RowBox[{"b_", ":", "0"}], ",", 
           RowBox[{"c_", ":", "1"}], ",", 
           RowBox[{"d_", ":", "0"}]}], "}"}], ",", " ", 
         RowBox[{"iparam_Integer", ":", "1"}]}], "]"}], ":=", " ", 
       RowBox[{
        RowBox[{"SRandom", "[", 
         RowBox[{"1", ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", 
          "iparam"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
     ")"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{
  3.35696210375764*^9, {3.45304140371875*^9, 3.453041411421875*^9}, 
   3.4530414804375*^9, {3.4546166353758*^9, 3.454616644299*^9}, {
   3.4546166887122*^9, 3.4546167003185997`*^9}, {3.4546167454026003`*^9, 
   3.4546167454806004`*^9}, {3.454671865177822*^9, 3.4546720542417264`*^9}, {
   3.454672221457446*^9, 3.454672325341834*^9}, {3.454672368329132*^9, 
   3.454672489281226*^9}, {3.454672555356833*^9, 3.454672555811878*^9}, {
   3.454748194777212*^9, 3.4547482085052123`*^9}, {3.4547482457580123`*^9, 
   3.4547482538076124`*^9}, {3.454748317954812*^9, 3.4547483265660124`*^9}, {
   3.4547484070464125`*^9, 3.4547484176700125`*^9}, {3.4547485914852123`*^9, 
   3.454748605072812*^9}, {3.4547490268188124`*^9, 3.4547490270840125`*^9}, {
   3.454749120808812*^9, 3.454749130044012*^9}, {3.454881002561966*^9, 
   3.4548810040801177`*^9}, {3.4548810939981084`*^9, 3.454881117103419*^9}, {
   3.4548812184705544`*^9, 3.4548812470414114`*^9}, {3.454881594902194*^9, 
   3.454881609895693*^9}, {3.4548816609637995`*^9, 3.4548816619658995`*^9}, 
   3.4569158589777293`*^9, {3.4569159160269294`*^9, 3.4569160106253295`*^9}, {
   3.8203382582059946`*^9, 3.8203383065644903`*^9}, {3.820338346341437*^9, 
   3.8203383514120035`*^9}, {3.820338381634791*^9, 3.8203384058068533`*^9}, {
   3.8203396459699163`*^9, 3.82033967467927*^9}, {3.8203397366405706`*^9, 
   3.820339825765745*^9}, {3.8203398582674017`*^9, 3.8203398716924915`*^9}, {
   3.8203400353152995`*^9, 3.820340056009472*^9}, {3.820340121354679*^9, 
   3.8203401449792614`*^9}, 3.820340179425207*^9, {3.820340244569335*^9, 
   3.820340278643086*^9}, {3.820340310502204*^9, 3.8203403148728037`*^9}, {
   3.935208147016077*^9, 3.935208155472597*^9}},
 CellLabel->"In[118]:=",
 CellID->214788780,ExpressionUUID->"d25455cf-1cbb-4793-ae9a-66e2653edbc8"],
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`alpha$$ = 1.8, $CellContext`beta$$ = 
    0, $CellContext`delta$$ = 0.04, $CellContext`gamma$$ = 
    0.4, $CellContext`normal$$ = True, $CellContext`tab$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`alpha$$], 1.8, "\[Alpha]"}, 1.6, 2, 0.1, ControlType -> 
      SetterBar}, {{
       Hold[$CellContext`beta$$], 0, "\[Beta]"}, -1, 1, 0.5, ControlType -> 
      SetterBar}, {{
       Hold[$CellContext`gamma$$], 0.4, "\[Gamma]"}, 0.3, 0.5, 0.1, 
      ControlType -> SetterBar}, {{
       Hold[$CellContext`delta$$], 0.04, $CellContext`\[Delta]}, 0.02, 0.06, 
      0.01, ControlType -> SetterBar}, {{
       Hold[$CellContext`tab$$], 1, ""}, {1 -> "frontier", 2 -> "why"}, 
      ControlType -> SetterBar}, {{
       Hold[$CellContext`normal$$], True, "normal"}, {True, False}, 
      ControlType -> Checkbox}, {
      Hold[
       Grid[{{
          Manipulate`Place[1], 
          Manipulate`Place[2]}, {
          Manipulate`Place[3], 
          Manipulate`Place[4]}, {
          Manipulate`Place[5], 
          PaneSelector[{1 -> " ", 2 -> Manipulate`Place[6]}, 
           Dynamic[$CellContext`tab$$]]}}, Alignment -> Left, 
        Spacings -> {1, 1}]], Manipulate`Dump`ThisIsNotAControl, ControlType -> 
      None}}, Typeset`size$$ = {350., {197.134033203125, 202.865966796875}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     2, StandardForm, 
      "Variables" :> {$CellContext`alpha$$ = 1.8, $CellContext`beta$$ = 
        0, $CellContext`delta$$ = 0.04, $CellContext`gamma$$ = 
        0.4, $CellContext`normal$$ = True, $CellContext`tab$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, 
      "Body" :> ($CellContext`asset1s = $CellContext`SRandom[
         1000, {$CellContext`alpha$$, $CellContext`beta$$, \
$CellContext`gamma$$, $CellContext`delta$$}, 
          1]; $CellContext`asset2s = $CellContext`SRandom[
         1000, {$CellContext`alpha$$, $CellContext`beta$$, \
$CellContext`gamma$$, $CellContext`delta$$}, 
          1]; $CellContext`asset3s = $CellContext`SRandom[
         1000, {$CellContext`alpha$$, $CellContext`beta$$, \
$CellContext`gamma$$, $CellContext`delta$$}, 1]; $CellContext`pfloS = 
        Transpose[{$CellContext`asset1s, $CellContext`asset2s, \
$CellContext`asset3s}]; $CellContext`samples100 = Partition[
          $CellContext`SRandom[100000, {$CellContext`alpha$$, 0, 1, 0}, 1], 
          1000]; $CellContext`asset1n = RandomReal[
          NormalDistribution[
           Mean[$CellContext`asset1s], 
           StandardDeviation[$CellContext`asset1s]], 
          1000]; $CellContext`asset2n = RandomReal[
          NormalDistribution[
           Mean[$CellContext`asset2s], 
           StandardDeviation[$CellContext`asset2s]], 
          1000]; $CellContext`asset3n = RandomReal[
          NormalDistribution[
           Mean[$CellContext`asset3s], 
           StandardDeviation[$CellContext`asset3s]], 
          1000]; $CellContext`pfloN = 
        Transpose[{$CellContext`asset1n, $CellContext`asset2n, \
$CellContext`asset3n}]; $CellContext`samplen100 = Partition[
          $CellContext`SRandom[100000, {2, 0, 1, 0}, 1], 
          1000]; $CellContext`plotN = ParametricPlot[
          $CellContext`EfficientFrontier[
           $CellContext`MeanVector[$CellContext`pfloN], 
           $CellContext`covariance[$CellContext`pfloN], $CellContext`x], \
{$CellContext`x, -0.1, 1}, Frame -> {True, True, False, False}, 
          FrameLabel -> {"Risk", "Return"}, PlotRange -> All, PlotLegends -> 
          Placed[
            LineLegend[{Black, Red}, {"normal", "stable"}], {{0.7, 1.1}, {0.5,
             1.1}}], Background -> {255/256, 244/256, 212/256}, 
          PlotStyle -> {Black, 
            Thickness[0.001]}]; $CellContext`plotS = ParametricPlot[
          $CellContext`EfficientFrontier[
           $CellContext`MeanVector[$CellContext`pfloS], 
           $CellContext`covariance[$CellContext`pfloS], $CellContext`x], \
{$CellContext`x, -0.1, 1}, PlotRange -> All, 
          Background -> {255/256, 244/256, 212/256}, PlotStyle -> Hue[0.9]]; 
       Switch[$CellContext`tab$$, 1, 
         Show[$CellContext`plotN, $CellContext`plotS, AspectRatio -> 1.2, 
          AxesOrigin -> {0, 0}, PlotRange -> All, ImageSize -> {350, 400}, 
          PlotLegends -> LineLegend[{Black, Red}, {"normal", "stable"}]], 2, 
         If[$CellContext`normal$$ == True, 
          ListPlot[
           Map[StandardDeviation, $CellContext`samplen100], PlotRange -> All, 
           PlotLabel -> 
           "Plot of \[Sigma] for 100 Stable Random Samples\n of n = 1000 with \
\[Alpha] = 2", Axes -> False, Frame -> {True, True, False, False}, 
           FrameLabel -> {"Sample Number", "Standard Deviation"}, AspectRatio -> 
           1.5, ImageSize -> {350, 400}], 
          ListPlot[
           Map[StandardDeviation, $CellContext`samples100], PlotRange -> All, 
           PlotLabel -> 
           "Plot of \[Sigma] for 100 Stable Random Samples\n of n = 1000 with \
\[Alpha] = " <> ToString[$CellContext`alpha$$], Axes -> False, 
           Frame -> {True, True, False, False}, 
           FrameLabel -> {"Sample Number", "Standard Deviation"}, AspectRatio -> 
           1.5, ImageSize -> {350, 400}]]]), 
      "Specifications" :> {{{$CellContext`alpha$$, 1.8, "\[Alpha]"}, 1.6, 2, 
         0.1, ControlType -> SetterBar, ControlPlacement -> 
         1}, {{$CellContext`beta$$, 0, "\[Beta]"}, -1, 1, 0.5, ControlType -> 
         SetterBar, ControlPlacement -> 
         2}, {{$CellContext`gamma$$, 0.4, "\[Gamma]"}, 0.3, 0.5, 0.1, 
         ControlType -> SetterBar, ControlPlacement -> 
         3}, {{$CellContext`delta$$, 0.04, $CellContext`\[Delta]}, 0.02, 0.06,
          0.01, ControlType -> SetterBar, ControlPlacement -> 
         4}, {{$CellContext`tab$$, 1, ""}, {1 -> "frontier", 2 -> "why"}, 
         ControlPlacement -> 5}, {{$CellContext`normal$$, True, "normal"}, {
         True, False}, ControlPlacement -> 6}, 
        Grid[{{
           Manipulate`Place[1], 
           Manipulate`Place[2]}, {
           Manipulate`Place[3], 
           Manipulate`Place[4]}, {
           Manipulate`Place[5], 
           PaneSelector[{1 -> " ", 2 -> Manipulate`Place[6]}, 
            Dynamic[$CellContext`tab$$]]}}, Alignment -> Left, 
         Spacings -> {1, 1}]}, 
      "Options" :> {
       TrackedSymbols :> {$CellContext`alpha$$, $CellContext`beta$$, \
$CellContext`gamma$$, $CellContext`delta$$, $CellContext`normal$$, \
$CellContext`tab$$}, SynchronousUpdating -> False, Paneled -> False}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{370., {255.15581054687505`, 260.88774414062505`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`asset1s = CompressedData["
1:eJwNl/c/FA4Yx8nISmioVJLSolR8RfIQTaSsSGWVkpJVUUokJLuyKpnZeyTr
scnI4Zxx5nHOOJyzhb79Ac8Pz3q/3h8xs8fad1lZWFhG2FhYlJ/+fSZbTAG6
79IKW2UnmH6MZfDtKIBBmeI8CmkICIE7iFxAw/GcZxev6qfhxxfKVa21kUB+
lqwtsGMIPPdueZ0cXgsyP82Gph/Q0WFaxpx9sANyS4XMzM5XAUYKzwst/YKm
ySa9yxdD4GmU10s+Fiqu3jA1PnGZDkqSaZqevxqBUaRGpJywxStBcyeAn0P5
zeX7J4UafsPWlE9LZ4/VgCt3rO18HRNzlDTinvjPQ1RGbINWeC+w5nWUX1UY
A08bydMyIqP4Y9puzoUyAIXTrsLz26SUf3b27UzgoqEjkzZd6xsIkZZbXRR5
M5FceO+aezoFfK/PPmhI2FRaNuewJ8iyDPfrG+ya1ovD2u63/AGB8/gndTo8
qHgYPP6zfMt8ToVuEXu6D60FxAV6pGuK2zDSjBpbKl+LVkX8AgyDNZS5oRgm
VUmHDPVOL6NZMhoPKmip3i0DuU7dmRS1GdDxe/c3/Xg9uv2IPjRhPQxvGG/s
8iz7kdcgeKBr8y+gXKPqvnpaCjZTd+foEY2w8vZM3661dnjU6Xj0rm47cFnf
FGPeLAT3pgXV9yJUdPegW5YfHscDcobVp9tTkde+R0GithJ8F6gaB2S6kT8u
7eFO10F8oGpiET3Qj9bnb+13PjoPM1qR9FFFChDqmI/3m9Si2o+bv4rXDeBx
mUiPd+uYQObKfzMkwIQbx7wo+1g/QrVCzb2sc+XAs+b5nyyzCiQ/nST9nqHg
BsWZnipJMjqsbf0WdfQdWmudGvvsmAMZl8mfT24kwFB7SXjdtXKYPXbctsm+
Evb+nHwVKpsKXxtNtU+9osC02oi71G0CSoqOM5vCqiB/jwHEONVhH0vV/T7v
dkj8rCA7210K5a8GjfcEEuHIuR1P56oYSFMRzA/MHEdLCyP5rQUk/PQ9zbC9
jwEXxAlJODKKvSfpMZHEFjAy+Lt88ugMPPGtrrut0IAn0t9FnnfOxakKok/T
UA084YlrvnBvvbJ/4vRWJs8ovs6M/jy8Xx23VsXHlgl8xXjek5eWNvXjqtjn
TYWPB6GjMIa+TqQRFH1fS+t1DuFAuhQjkd6KHjypmyoCOtBvrMxi7AkBWteM
j1lrxAIsNcj/jW1Eeo6ObqNsMti+0Gj5GVmGrCfu6QipNKKZWIq/jmYnPBmZ
diKKEHFa6+Xawbh6OOYe8k7l6RT4a17czn6VCYJuzRxs0As5xQLp3lmuWGB4
55ByHQ12mrSfHxZwxRDBv8veMQzw0u67YxjfCV+kejL/0oZgIrJGorG/Ho3C
MlU8PzbCvNB0QtXfSmQjPcn/OtkBRXfKXxVy5sB/H07u9ZIOxR/mKmtfdXpx
d/vN46xSXWCz8Ec30pqCoWG1xp7/7p/pH734yLgNcjg3cghudMPZNfMpgsZr
XJ67d/2NSvm//TPOsijVwQAPKvDJjULehoVFPc1+MDMjG4gkVYHuex4vyfpW
COWMlUsTpODOV2MSuV9HYTbzqJ77+BT4ltXzfuueAIqq99kTrp3Ad5oj+8zj
n6gtJSfMp9uG1372EuXsaeAcUi/2prIA9M3NUrJC2mAT67V36Xa96Ma7Mtbd
M4KeXVybhYJ7sSr3UueN6F/Yq/LmfnBZNULNXUoM9xguhZyyvyo5jN/6168J
L5Xh9KOP06x72tC0/FtFXlMrDt5uFk7MJsG9wo6m0EuNeF+mvFvjYhG0xmeN
MIxJcJFNOdH45AxMZFYlN3AT4M2gS9xR+WGwSV6/eWp1AGL/3K8PUJ/Hzcpf
njeIF+HW6ZqN6aIMTA3elr4q0AVxWq58DV9YSr+teVU2TE1D1zpd4oMsCtrq
WYetF27HHzG3ag4u9uBsgA6JM3QC5G54c+hG9eKCIaNcv7YBKbunAsOYxfDB
kL58saADLvf1hrKakuFeaPIAldIFHv3HefNtCbCWYHjP034adIcV0stzAlFv
tx61M6QVfbfbdtyjdOPBFyMF1fvb0GqacuDVtWVkhCSlOkYycdOwxuLGX5W4
13X5bS9HOZS5qKpafh+EpN2KDz9a0sHnh67TI/5CaFKWCn8p04SbWKJ/bRRo
BdJtuppGBBliRL24b47Vw0GDKMfS93nouuizOyWVAYJmXTLuf9vwrwb7Z2HN
VqRNyrQenK5D5dmGzuiKLCS0GrXnc5agzROR9wEPO8CwXPzWjE05vj+trqd8
hAytI1d1z52mgd7jFEOnS1RITM5IezZJwZpUFefcK6M44sQfcsd9GawNTQRY
KN3Asy5B9mlBMciO37lwRLUOnYz72n0oP2DV6+Xu7veLuPWtnueCzgCadwZr
c0IbJpcUHOj6UA9nLi7vNkr/jQ9nJYzgcDc4pp8d7+/txiwlluXHY0Pw9Or9
93+jKSD3OeqKvk8P3O3pKAiUZICxQUAWnRCPtxU/xbYeaQOV6nWb1+h94L3o
q8yiXIFy9qzD9iYUmDVOK/wjUgV/HpttnuGnAI9Jn05wBhNpv9RvyKb3oEKN
AZ+6zBjK8i/FVG9JR79b1666cjGwKHnHYvaLfJhMGzup9ikTT/wIPZsYUAaW
mS1dhuvL8MraKZl9r0gQpHcqImUxG9+tmj3bN0rE7dxbxfcbDsCmfb2uU3n1
OKfoEqd8gYQfz13kihGogRGXx3352+rwu5oma6pwAFi+Dtm87XQX7u9+hOuS
G/CLqZbachgBh/JuDpPorfBl8oRDQn8OTl3N6j5v34d8us3rDR9nQ0oolaNx
shR9JY2r+dupaGzd5b1+QwVMPdd6q8RXB8sCL/gtmujgTeBc1TCuwCOhLmm8
AhQU0wlSulyeDUlL9ent7KEoOpx/dOfaPKxY777lzaRhuv1334/aLeDW2x8k
0tiK+ZeDVaimg+h9Y0dR6uAIvPQN6Ds6HQ7zLRbqqTFEFLdYO14m+m8u4+Nt
tlu70MH8UgCrBQ31bQNFFpKL8ZbgMxH1Uwlgrb2fwDk1DxtzJcv3X0pFgfxz
Mwc3DWLxxPUYk4Ue1LFXe/7oUD9mycuR7o0TkHL4TwDNfhpZIzdJntAnYaLa
yIHV3ArYu/OAXd8/Li61P0vdebcHvC2XzJnmU9Bec5A1PHMMYvvH/iSWliL3
tvOP0xRi0D84nH0Ye/Feu8iaGT8THGKUsut4S6DKSrfVp2YcnAeU9w1pFqJ8
kfC1a5XlMPm87N6aYyfGGyp09VeNorFJkcMVnnmwFTwg0pNEgri5UT6f8x1I
XdHiqvHth2rez0arc5Xoculuq1QPAS+tWm9wcewDlwcaMkZx6Zgo+/Xw0zwG
0AvLQnZFjeMZQTIbfwkdxs2aRIJ7FlEl/ft4NHbhNrZ+Tc6Udky8rrS3+vAK
FBqv2aWSWZVfPu+p66DSkNWDEbfvQBwYCVBLr5zuAumbVkdvW9ORx8AkUN2F
AOSdn2uXH3fgNgs9Vwl+ZzhUHEOqvFMBL40pb+a8q1DxfirHy5hBtNZZ+iD2
rQp1Tp6VXlOk4okXfbc9DUvgev2vQxrrKZBMs6yZPk3GOv6cct3jOVgxWVPq
l9wJd6bqNML2dEM7Md/Rym0aVvcNvLtvR8D0w8djhTYOwY6KrKaRvFwwjd0W
uuFyLQRrWWgvTwzitnKzF9xiw5AtKbP0iLsettsLsJC/tCAf59msAftR1OAw
ZUTvyoG2A1P5NaLjoFs/ML6+kgnqXhlzR3OHMVWIvfvIjlwwe6pJTs8YwgBT
y4AT6hM44fbwgIPhFDQtSrjk3x3Abclf/PUsMvHjnF/2sNUbnDO237ed2QnO
mqeiHttQYNFE+EL+/Ag+ybH/rGFaAa13wcVKdBA3xey+X0Sg4GRExB+0+IWD
7pn2eVQmPHu1Pe/NtnZIGX6fm8BCwp3GN0RffeyBGvuSp630Bgxj+1IhOEFE
IwcvMSHrKrzZ8lyJf+sSPjq9M1fn7wjO/ta+f6K1DMU3/ImoyP0OwcodcjcG
pmFa+81ztbRa2Nipun7Msxdq6g5zF7wdw0eqaYT4rwKlFj8u0VbYREqFbV+H
Py2YAH8ZPUv3BDJ4X2ZK33lfCbk0tenjxTUozjVul1TZBocXNPcz+Buh6NgD
Vx65Jni7iRGgxDKE/VoGqbfKkuAF+Zsjj+cvsHEwHD0pWYjI9ahr+dgomqwQ
HwkvdmDx57PauW9IeHt1Njl15ivO6ndeCVUbwJ3M3fE+QjR8ZRYjFvc6AquL
Yj+pnJrD/+a/7AgJouAF+mCFxI5x3Jtq4/4kuAtEVypTX9vTYd3i6TE9izHs
HkngviZAxSZFDWXKNxJ6anqdGK1uxuNR/UKutzpgu41boIRdBSgIhNqwX24D
/c5vjs2r9SBxYWPUCH8fXCGLHbU8Ngsnfx5/e02lEiXlJBNDt7RhyOyMQ/SB
Ufx17euUUkUi+CUH/aRsyQS/fZ9cNNWJmKj75UCWdgVe5xji3j4UhzUd8Zl6
5+lIoybG9h+dAEif9Fh0TADhvQvy+UfH8P6rP0kPw/7VrZ7TX5aJQSqn1oa0
7i680+eYHrF3FvnYJd7uPk2HKLkJIkvtvz8v0s/jPtEIt1yvGQv1T4OyyH/R
UhmDcLCtd3yGPAh+OQ5XlztqUVHUtoj/VB78sZ0RJRTE4d1OLf4kvyGYn3s3
UnC4H4YjS+UPuHTBotPrrx0s/7x0wxo2tlaCqFTDc7aLQ/Da/mnlNt0auKg5
6USeiQWuJH8rBQ1nJIfkKtzY0IpuGccEdKbn4es3X8IB/2GoGbp4ZqdwLFqq
cSjmpFTg2cTfd59jP4KnPO9c7S9YFVq37V1TH2qfy2dzUf6BMvZLf+J2teJf
dlcpcfIQiMf8rDpfHIXUIdGkh0njyPATzWb/Q0JeGtVUxb8M2zrFzbL4y1Cx
P2XZXGAAr9+3eplR0AjfX2+fJvdkgseFdaquh8bgyNtQNhlHMvjlOpdWh1GR
cGzvUcVIP5xx6uk2f0FGbY/i1dsc/cDJ63vmzakBOHVl03HRpVJwipheZftv
BCsfP7+WHEQFssxQ2L2SOpRZK6Pf46FgKlXkLixSoLh7l4bEv9x5s43pe/Dl
GPjeSo9wLKmGNbkOjuzEWhi3OicYdDgd2uqYNP3hCVA69V1mGZphM9HNIegn
DUCNHnL5Nh2+Ce95tbZ/GUReXHKjvuoHy7q9z3dMN0FsH0korKYGrAqmdDQF
6yFku1vaaeNe3N9qp3BWjAIfHk4VZlYMQ3RiBt5xpECee/au25zdUGjukX/x
cT8Skq898vyvHDmmVlQPVZfC5qRNITKaw3DAO4j28ngjZMQ66r9/sIhr3p0h
jrKteH05gbHXsArm7hkVZpGXICQlxeLcMwrsNJ2R4AluxRuTEMinOgztESDG
xZmIPq4y1ytTo4EmdPLblaN9kJf41GGPex6kmxcbVdeSUDchnd3V1R8z/qiK
v9edgMztT+/QCeW4Eqy+SEt9hynKk6vy6v9y1Ligk99wBwZd9CU+t2vD2Ygp
waDX/SgmuTLz5/BvSCnJOzRBpuKj31kigTnrSneu3XdwyB2DtwkKgtNUOvwO
tyJFj+dDyUH2gMaODrgrRelFwREAeZ0H1b31WE3Ps9jc2oKs9085Je3qw2Wi
/4+LFtPg9i2wz6qVCPQFZSqtbByPmTud7/NiouTS/hbi1E885ERp/JTbgUt/
RdQVliswwe6FHW9kJQ6REueUFsqAp9jJqD2HDiyOHxuTbEfB4ziuCceRgDe3
PIcQxoQh1h2BFcbu8KNvIoHTpgc8cI9FmwMR961uYq/xZaC5rqNT1cERKE7k
+lJl2oqphsaXE1jnccPfXZFnbrZi/zsu2sSh13CfmhW0LSgXSs5UDPH+44PZ
8R9qqSoEOMTNoSzt2oUz3z2y16zbkc+N7VIuyxdwuGiwKM9RAAy/D0k3oyZA
d9ZMNnhHJJjEmp+X85vF0Ghe/eQvnUB/sD0oNDYBlK/ufJ/xmArHb5jk8cS0
49cSnwt+Q9PA5bLngr3PGLZl60ZFbP8FsbWyP1cWBtHpqYm58YtRqN1DSRqc
JIDIB17Vsc+RSNdPyhu52oxlyjzSx2zTwLFS+3DRv77qNgc6HTxOw19+xOU0
w1rULiQJBviP4e+QA4FudalQzN13e695B5rMXz60TnMCTh5hdr7V+o7KnzZW
+EhPwR/PqKHvHV1YNvAs1sirHF+WrfswYNCEJplneMXu5+EWbi13E9UkaLjr
s3GMTMEyhdz3YvfKQXKy//ldnSXwf0X+ea6+B40kyLWBi9NwzomkvCbNhD9J
30U7BAZh9c79lSuVUxDlfrHAIIIARYxS4Y674yjNKZ4YUVMN19X32kuuI0LJ
hqhbakUMpC54ymRnDUK4nwKkKfTDIW+RUd/eWai29zhx9kodnmumTu5nEDC+
Pd6Z8WgC49h+t1wRGsEAOYP9+XFduOWMopLgByqcZMYfNaIQ4Z1QxpqTej3o
Nj5wdTCoxOBgAxpvRAjukvVQJu6gQ9OG5J7aJ5PgljJUES5LxTxZR8UbHhE4
/d58z6+yZnTBJamE8FJguys9cG5vJ1oqfV2u9/wDDa7nLGxsC9Ay90sGLZWJ
d22tN5syZlD6xKD1rE83Wkcd85FVIuFFwzMTDJV/3sq/2VaURgEPPtfsNxLc
ygXsr942Vy4gEnY9LRhpwpScUMe4rFywj2fxqRkewCt8fnueSdOQc/fJo9Wk
FgiLv616lbsa8sNaHY5sqEVNcZaJLxM1EFqRG3zyH0dFfsew1HOToSyHw+OI
KZ/yl4PNS6P9MyjYEedV2EyEiljRAmfTbrBR8arlFusHcbx/Q8ytEw+baPEt
N2ZibziPG488CV5ukVg8qVqKAaR9JtovCrFUTkFphJuIr8R7x4urh9DDL2/U
s6MNVex2a3161QzBUVYTwb6tEDW+0eCh2SCcmjPSl+gkg/qLLfoCgT3g7GFy
idV2HIr0+Jhm55cglJtJjoz+DX9NNhzU7eyAqQtJS763GyE+1FNdTZOE51oM
VORd6KC6dPNI2KlWGKmiHf56qRrF4zjXaI8XoDnT78zBIQKubnYinRaIQ4UH
r7YoTY7j71NyJGLPX/TuOiEU7b2IuV8WVAWGEuE6sXCv8zQZvrXZ5d29PAb2
gtOfI0MJcEaKt5D3exyme2WsaF8kwLYjkZuUm8rhA18av0ZaM1TIvn0Z83MI
eupclE5X1oGirVy4sOkIJiroRcqq/8KHAVmX5Zl0UCj4r9B5PAfuG9gH6VeR
cBcbx0RyfDk8MwpjL6+oh7dnOj1mhtphNpVw54QuEfNPf1zVmZ8DltqWmEiX
vyWHHwUn8pW0IJms+dFHvh/Gf89kR31OhIuJ4bNeVhnA+F1k/G3MB8+nMJZT
okkQHKyzrdmIAY7POT7xFLTD2xoVncOrLKXKlEj1QFkS5A7tEzT0Yi9tbwkV
jDtIRRnSk/UBrARcqnH/YKjRjKGQ9fVNay0kpbOXuqTNgIUn93DRChmG+7SI
oYrhOErKy193uAIqlLcHMp7+haNqP57PS7SjDRblXy+xxV2Cl1jFK5cABUNF
eV8NY8cDjSYxts+wb4Ks4uaYCtfiH0ksy1bikrYV6RFvBQp1tHDPy06C/QfC
0YnGNjCzW/XS2TuDDbTld09H+uF319tD6ilkOCMdmlklQMbDqc6SKDkN/Nsc
0kpJ8yA57y9NkyLgtz7T+NZ6KsTPscx6/phHCU5jaVnTMcjZuHBkp1Yhhsk/
DNK61YfRvePZpA/5aL/f4jLnsVoMkafYlB9hgLiJxMiBkVrYZPBpRulgJzqe
cpLesq4D+0N1ey2TprCHSCCOf56F65FsX1Kk+zCCnb7tNK0VgiceOdxuZIDk
wqqd1OkZPJ0V/+qZ6r8c+60wIlB+CH5f5rOKOPMLxfY4yvNd7wGLTUd0qy4V
gdajW491J7NgiaXgY5cEBdadgfFwsUko3l7+K6CnCvuna3Xyhayx4Nzwdwvf
KWCICET0cRWC4pY0WeYaCRpTRQOO5peDas67KWpvAxozvXZWDsxhtkNxOM2m
HTSbhbSen6PCm5fqbGHIRJJqm8b6vTQ09PxusaWkDziu2xk6p6Sj0ko5qaDj
J2goX+X6vIeKIvnD23yIoyAh1Tc4SixHp/b5UYIwCb8ybvTaPBhB/ukH16oN
fqHwh1qZm7Q+XGVYHLdnj8EI1/n/PjW0QQjTRCK5hQofuiQzJfiIMJp3fmfW
eCs82NRbk3twGs4Q1BtlaluwLTjzk7v1IF72kxZ6i+uULXQF3lj8+Q0mc7Fq
280G8LNzikrAoTbA4dCV8QftcDbaP/ogtRHCMzoEpqgE9OZcqd+RnwK7pW5+
4xAKRt254G1j7m7I2cETOPJuFRdG92m8qSuD2xzXOnbf6YeH80scoWcm8Vp7
Lkk8tQHMV8jru7QYSHKPFYul/fNC2QfmoaZ0fHrso+Cu+mrIVNFojVMfgowH
WR4ibVbYFPnUhNekHoOE74R04iSEXKqp7WpowpYlvwefNGIgn0G1opTR8B5H
ksyC+SjElapkfLEbxopuCZ7ah5X4PvdeC7vuLGwSem2861YUnNenu9ldqUbT
J4ZnCpsI+HHysNaqJxVrC92/uKpmIMungOx+tiegx31pqxZPB95T7GvcoN8H
OdnYFZnYhiwOkdKOMnQYCct94fm7EoUTysrldg/B+44G50e9PUCXuMFmuYGI
1MA2G8bRPvQlztwxSiIAea6p9uGVLvB71ml4MJQGlh1117tvt6IZLa/GZyQK
ynqNR/rHm4Dz5OTeiDlEsSdP/PXlO0DP5Dmx92w/xIaG7zz8fQB15Ev3s/zs
x3yTOyZlmWRsV5jw4bo+AMMZP/dnmOegw+Pn4we3UnDQVfG/JhIJGzNZ7npv
pYFVfjbH9e8NcJ4U48PGVYYSxKhow8oPUHzhz/E+1XpkocR5tegLwS79L1dq
fPrBmJNH6KRKEBRL+vUd6i0Hzu9NkWacJMw2lC/xXc+E45ecEk87lmJO5pYF
72gqTkzGb5BPqcbGKac7evwjaPzx16eTPY0wqnvqkkBFG9K09OSLKxigeGyk
vim/Ba6qnNHyPf4Ls7TrzNMlKfjgiLGK0D//bXm9/e+w9iC+Uvc/rKRVAp+v
8vEthdaDOMOdezByGM9EPLEVfzKGVb2HvaL9W/HZk8U35nuYUCfudcxZbhDM
0hwCStJ/IPOn4qNW5Vb470SUuRl2go5Pt4qkJAM3bZWx9y3pgpKpYnPPv/+4
1rn77bTSLBIqVcZPqgzhLVXnO7Ipw7hyI5d94nUBDIy/qtQwKcNWy7zdMy4j
oPpCqmi6ngzbu3eFs/H1QZqit+w37WRg1nI08+aMglLPs6tGhWuwVyhr1+xH
Ii75HQ/5yhUHZc8ONl5zGoEOGV1xanQG1r5fshZ9N4S5Sqp2ZJmufx7YdOTd
nr9oxdTkclHvQuHyHi6yKB1q3OqythyIwUUewuet14bQYJ2veRqxA+O+Wzik
LDbja3X2Nw85bOGTKEvPBToJEt6ucifENIN/Z3xiWDQN19Uv/LjNRQTTpk29
c7Lt+IT9SexP3km8soGapWjVCpyxTsyqC8UYtdOun1u1GxLtm09MtjVjJWm3
7ppiP04OKj4r3LEGrO6Zg84tTRhQeeFh6xEaZjc6xwUF9WDKje1bBZToMODN
xmLyaBCdNU0T9vH9APpq2uaxn4Pw7Zb3IL7ohkCTNYlrwmWY51wrU7BABXGp
62fDotshzn8909y/ERuXTh+NMKuAMwnhF802/sJvz/8LtVysB52vessyArGo
pkKUJfK5IYtKbAKq5qGdFyGZLdoHXsyzyEltjMI9X3bVeEwOoUBA7wYGNRLa
RPh3tUTXw4s1ryGb001gYdL0mnItC1mtypjWe3uwSreIcIxvGkwWotyrjMlw
ZcemAgnOHnxxxGiVY08wpNTuiHx6fhwe+Gqkz3n+890QP2n5miZM7zn2KNaK
CpeUqnQZKw2YKK2SKGXWg/l5mePP4qfgiXNdGZt5DL4M/Cuue4MOzwPCnOw2
FuMDGPh8y4oBO59dsfga/hO/8/RPlFCr0GMv9djvLjIK7FGhqqs9xobnK98f
rraB/6jHAbFcMtgc0k9Tay7C7wmsdua9zVDFmTSW7fTPP68mTok5V+IDUdpr
USqbcsrsY6mzEuNw+Xf44rafDbBr8KLy/nYG2tTsP7fbZgCe3lI7J1mRAepJ
ZV1U3nXKM5fiC4o2/0Z2zext5feaoZ+QUXqyhYnh31KCjrEz4GpVUchQFQVy
z690mM3Ewv9u09uI
        "], $CellContext`SRandom[
         Pattern[$CellContext`n, 
          Blank[Integer]], {
          Pattern[$CellContext`a, 
           Blank[]], 
          Optional[
           Pattern[$CellContext`b, 
            Blank[]], 0], 
          Optional[
           Pattern[$CellContext`c, 
            Blank[]], 1], 
          Optional[
           Pattern[$CellContext`d, 
            Blank[]], 0]}, 
         Optional[
          Pattern[$CellContext`iparam, 
           Blank[Integer]], 1]] := Module[{}, 
         Which[$CellContext`iparam == 0, 
          $CellContext`srandom[$CellContext`n, {$CellContext`a, \
$CellContext`b, $CellContext`c, $CellContext`d}], 
          And[$CellContext`iparam == 1, $CellContext`a != 
           1], $CellContext`srandom[$CellContext`n, {$CellContext`a, \
$CellContext`b, $CellContext`c, $CellContext`d}] + $CellContext`b \
$CellContext`c Tan[Pi ($CellContext`a/2)], 
          And[$CellContext`iparam == 1, $CellContext`a == 
           1], $CellContext`srandom[$CellContext`n, {$CellContext`a, \
$CellContext`b, $CellContext`c, $CellContext`d}] + $CellContext`b (2/
            Pi) $CellContext`c Log[$CellContext`c]]], $CellContext`SRandom[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Optional[
           Pattern[$CellContext`b, 
            Blank[]], 0], 
          Optional[
           Pattern[$CellContext`c, 
            Blank[]], 1], 
          Optional[
           Pattern[$CellContext`d, 
            Blank[]], 0]}, 
         Optional[
          Pattern[$CellContext`iparam, 
           Blank[Integer]], 1]] := Part[
         $CellContext`SRandom[
         1, {$CellContext`a, $CellContext`b, $CellContext`c, $CellContext`d}, \
$CellContext`iparam], 1], $CellContext`srandom[
         Pattern[$CellContext`n, 
          Blank[Integer]], {
          Pattern[$CellContext`a, 
           Blank[]], 
          Optional[
           Pattern[$CellContext`b, 
            Blank[]], 0], 
          Optional[
           Pattern[$CellContext`c, 
            Blank[]], 1], 
          Optional[
           Pattern[$CellContext`d, 
            Blank[]], 0]}] := $CellContext`c If[$CellContext`a == 1, 
           $CellContext`SR1[$CellContext`n, $CellContext`b], 
           $CellContext`SRa[$CellContext`n, $CellContext`a, $CellContext`b]] + \
$CellContext`d, $CellContext`SR1 = CompiledFunction[{11, 14.1, 5470}, {
          Blank[Integer], 
          Blank[Real]}, {{2, 0, 0}, {3, 0, 0}, {3, 1, 
         0}}, {{0, {2, 0, 6}}, {0., {3, 0, 1}}, {-2, {2, 0, 5}}, {
          2, {2, 0, 4}}, {1, {2, 0, 2}}, {1., {3, 0, 2}}, {
          3.141592653589793, {3, 0, 5}}}, {0, 8, 13, 0, 
         1}, {{6, 0, 1}, {6, 6, 7}, {35, 1, 3, 0}, {6, 6, 3}, {3, 26}, {
          42, "RandomReal", 3, 0, 1, 3, 0, 2, 3, 0, 7}, {40, 34, 3, 0, 7, 3, 
          0, 6}, {19, 6, 7}, {10, 4, 6}, {40, 60, 3, 0, 6, 3, 0, 4}, {19, 4, 
          6}, {42, "RandomReal", 3, 0, 1, 3, 0, 2, 3, 0, 4}, {13, 6, 4, 6}, {
          16, 5, 6, 4}, {10, 4, 6}, {16, 6, 0, 4, 6}, {13, 5, 6, 3}, {40, 60, 
          3, 0, 5, 3, 0, 10}, {40, 2, 3, 0, 4, 3, 0, 11}, {16, 5, 7, 11, 9}, {
          40, 60, 3, 0, 3, 3, 0, 11}, {16, 9, 11, 9}, {40, 34, 3, 0, 9, 3, 0, 
          11}, {10, 5, 9}, {16, 9, 0, 11, 9}, {40, 3, 3, 0, 4, 3, 0, 11}, {16,
           3, 11, 12}, {13, 9, 12, 9}, {16, 10, 9, 10}, {36, 7, 10, 3, 0}, {4,
           3, 1, -25}, {1}}, 
         Function[{$CellContext`n, $CellContext`b}, 
          Block[{Compile`$18, Compile`$19}, 
           Block[{$CellContext`w, $CellContext`theta}, 
            Table[$CellContext`w = -Log[
                 RandomReal[]]; $CellContext`theta = 
              Pi (-(1/2) + RandomReal[]); (
              Compile`$18 = 2 $CellContext`b $CellContext`theta; 
              Compile`$19 = 
               Pi + Compile`$18; (1/
                Pi) ((-2) $CellContext`b 
                 Log[(Pi $CellContext`w Cos[$CellContext`theta])/Compile`$19] + 
                Compile`$19 Tan[$CellContext`theta])), {$CellContext`n}]]]], 
         Evaluate], $CellContext`SRa = CompiledFunction[{11, 14.1, 5470}, {
          Blank[Integer], 
          Blank[Real], 
          Blank[Real]}, {{2, 0, 0}, {3, 0, 0}, {3, 0, 1}, {3, 1, 
         1}}, {{0, {2, 0, 6}}, {0., {3, 0, 7}}, {-1, {2, 0, 5}}, {
          2, {2, 0, 1}}, {1, {2, 0, 3}}, {1., {3, 0, 8}}, {
          3.141592653589793, {3, 0, 3}}}, {0, 8, 16, 0, 
         2}, {{19, 1, 2}, {16, 3, 0, 4}, {10, 1, 5}, {40, 60, 3, 0, 5, 3, 0, 
          6}, {16, 4, 6, 4}, {40, 3, 3, 0, 4, 3, 0, 6}, {16, 2, 6, 2}, {19, 2,
           6}, {40, 19, 3, 0, 6, 3, 0, 4}, {6, 0, 2}, {6, 6, 7}, {35, 2, 3, 
          0}, {6, 6, 4}, {3, 26}, {
          42, "RandomReal", 3, 0, 7, 3, 0, 8, 3, 0, 10}, {40, 34, 3, 0, 10, 3,
           0, 9}, {19, 9, 10}, {10, 1, 9}, {40, 60, 3, 0, 9, 3, 0, 5}, {19, 5,
           9}, {42, "RandomReal", 3, 0, 7, 3, 0, 8, 3, 0, 5}, {13, 9, 5, 9}, {
          16, 3, 9, 5}, {40, 6, 3, 0, 4, 3, 0, 9}, {40, 6, 3, 0, 5, 3, 0, 
          11}, {16, 0, 5, 6}, {40, 60, 3, 0, 10, 3, 0, 13}, {19, 5, 14}, {13, 
          4, 14, 6, 15}, {40, 2, 3, 0, 15, 3, 0, 14}, {16, 13, 14, 9, 11, 
          13}, {40, 60, 3, 0, 0, 3, 0, 14}, {10, 5, 15}, {13, 15, 14, 15}, {
          41, 263, 3, 0, 13, 3, 0, 15, 3, 0, 14}, {13, 4, 6, 13}, {40, 1, 3, 
          0, 13, 3, 0, 15}, {16, 9, 11, 14, 15, 13}, {36, 7, 13, 3, 0}, {4, 4,
           2, -25}, {41, 257, 3, 0, 2, 3, 1, 0, 3, 1, 1}, {1}}, 
         Function[{$CellContext`n, $CellContext`a, $CellContext`b}, 
          Block[{Compile`$24, Compile`$26, Compile`$30}, 
           Block[{$CellContext`z, $CellContext`at0, $CellContext`theta, \
$CellContext`w}, $CellContext`z = (-$CellContext`b) 
              Tan[(Pi $CellContext`a)/2]; $CellContext`at0 = 
             ArcTan[-$CellContext`z]; $CellContext`z + 
             Table[$CellContext`w = -Log[
                   RandomReal[]]; $CellContext`theta = 
                Pi (-(1/2) + RandomReal[]); (
                Compile`$24 = Sec[$CellContext`at0]; 
                Compile`$26 = Sec[$CellContext`theta]; 
                Compile`$30 = $CellContext`a $CellContext`theta; 
                Compile`$24 
                 Compile`$26 ((1/$CellContext`w) 
                   Cos[$CellContext`at0 - $CellContext`theta + Compile`$30] 
                   Compile`$24 Compile`$26)^(-1 + 1/$CellContext`a) 
                 Sin[$CellContext`at0 + Compile`$30]), {$CellContext`n}]]]], 
         Evaluate], $CellContext`asset2s = CompressedData["
1:eJwVl4c/FQ4bxRWJiMgWRSFJSqmoPFKpFA0jUTKijCRJokKDIkpCooyIhOzN
Y+91cXHNu1zX3uKHvL1/wnk+zznfc6Qs7l+1WsfCwsJkZWE52SFrKCG7Bqwb
btHciQSskPvMlS/UDEMSB664rE7BE2n1z1xrSzipaeJp3d+MnS9MD7EI0iCc
6VUj9a0Eai7uaKrQr4B9DQ7c5liNu+612M4KUpEn8fTYsyoabOFXqaa3Psfk
oFd7y+d7Uf65e1/SVBlKPK2MD93YiH4N2Y9SN7RCenjLrwKtEvih0tqpHdKO
WnWNKfb0TqgK2C5ktS8f15t4hNfHT4KrwMjboD/T+PKOny7blnIUvCr94kwa
Cd6FqCxpy/0B3aW851f1GOgiwsdkKPZh213iEt2mEs5JRO3+e6AAar4JGnTs
fobXlkJvnPIbwDeUnZovdhGh6tntUw/fkNFEyFBnxqoHFrUzzLz06agbnlgs
taEEZybz6qpPl8ODjHHO/fNNaP3fi3OPQ5jwQu6SE61vENJGNYOmuNLhw7i5
pZudGdRXGFvkba/HV6nR+ZdFibjho5cLzfE70nKMf0e96YETa/ODIRszwW1h
/P2bhEo4rHBicvF8FaYP3q8QNm+Bs+svZH98Mw0+Zy4MbG8dhYsK706ZstbA
htj2KOWYKdh5r4B4z6weWRu26fs2VqBc83LpmFI9hloUmGgoD6O6Gad325YS
DAzyFLOkLsItTfln/X8p4PlU4EKAmyNslhaySN9MwJAATbVHRf3wx5GkJfix
BQJ7hN8/kaViyN3s162fy8D4+ZcsXtlxGLBNaY7sLAFz7xlRIc1cULRQ5dk+
PwLhX1KEJupK8ZT673shkrMQarfntvNQA6TnsVzeoDaLWGR4t3IyBS9MWmUZ
mhJRyYWe2XYpEa0k/Jkn/iTh8Nhal0z6EFze0bIsFdwJAiO1Nc2ho5AoHlN+
l3se1CzXt2avr4TzIzcrn6ZXortarrKYFg0K3R1vOj37D+PJ/cqbb06CxNpI
qrZlHTjdagtK3jeJqpwZK9OOFeCpJfV3NaYQ/TlFT5HDOtFUWLedz5ICR6m6
Ri8ZWXA/fep74RIVbySryhU7DsLQUhwHVbIB++rmBBXz+jD04IF3SubrS1Qu
FT06RyDgxm1n2oL3EqD6dw4wXpdAu3Yr+8yxcrA6XeAuyRwHj19j5JhZEnjK
qTO0tdLx0t+eB/saEnGT6U9V24ND8C6r8QQtpxy3qZjafqL74GatalkVnV7s
CO2TOvSqCuv9r/jl2/bg0zwfhSG/f35Q2vg+Zz4SJc8t29MlCLAY03T1sDMR
Zq1r7c3Me4FNf5eLqycFpSCP5z17LPhw+B1RvDeOb+6IqXKe9saaq9fXOZcy
0Y4o9hKDaSAnuiKycdcvLDvY+pfKN4waIhLsqy1DKBXzuftpSxPyg+RJ0mcS
uFP440mmvcgv1/9O8twEqEg3H3FTLsMZPFsZypMDnmmBGThGgW90XXr87XRU
W/v4bsdwAaq+0nnA1tsJkdRmk58+9ZBwsM7yqE078g60lnmzkDHa4nyspQUF
9dh/1r8abMVrfJn+NBIFZNTVS020u5CQ9zpqerEHWxwvSPEL+KHERrENKjIl
kPVB5PIKrRuvenEXWm4rwH3fpTOFAyLhoEK9uPL9AWjJNAjYWFKLCe/kL6XL
r4LR6KtUhVAmHJwjapHGiDDkmTxa4NsKyzdbb3KpUYFgwpmlu74d7Lu7mnIz
SZC/6StP1PthxNJbnZnVP1FsMuZrj3UxnuRgbqwybIctglf3zavQ4X1EQPUF
xhz8PObVd9hxAKcZPM9LukrhQpCw18oDMhCaNPtdnfuwTOT6XumKQlxenxNj
WloPJZUvYq/eyIGcnd+Uh6hT2LNrsJFRMoCmcqUE2cYWOOW4ypP4mIrPB9zH
xrop8MS5Y7fjfDP2dQxRiDIdqM/7anpioQG0nHn8fGWGoej6V8b4m0RsicBv
tO/dOPPyNu9CNhX6qfVBe7fQMPdrafevq+NIHA4+MeU0gClKznPHo4chqxEe
NRoPoJzydMF3n3IgB++rTCxvQ60G1WdaLql47fTcvpJ7JNBLcPwq8qQTrV9U
OEXJtOIf4na5C6YDWNxN0/l+bBIVl6W0WULiUISvCWMcS3C6WaF07/YGJNRs
ig3X6gbJg5UGIkq9KFXet9NBrQUEX+tWaOZRUThN/oWDShOIsb3RrYwYRqP5
9tR8/x5UVZL0IV3vxu9HJRd+xc1CrOtrxbNONKz5kObj8agFB/+89w6q64TC
PIukhz0NML6CbYkC/8GfjU5xlKomjGLmTH7e/AUS+EI+j7jVglF8qo6xHBWD
PlEiHvxqgQ3rqAL5PBSIH9niR/g7jkctwoLy9dbAKNjn1nHlEQi40TDZaENB
y6Gn8hcla7DNLn+n6wMyNt378SJInAmJgkEpRZKDGDrx2GaXOAXvetdpxIik
g9mpmQ0bXcbgWeB92q3FjRqGUrryNZvIkJbb3tOrlIK/U+TPZVnQ4JbTpa0C
RgOQsZWxc9SVDAiRLxX2z6HezQ3kmblBsHIYfjh7iozvAp55ne30hmx+shu/
CxP+LL7M3tjR8Y+LH+t1ZVrgnDeBmyz5BxL87C9vOdAOl3k85DouD+Ite/lr
W/P7MKJCQBJy8kE115B+6UEdHq0IfOj3eRCVmmK3iRb3gqrm7L0Dqj/x+U7F
D7vOMvCB+F3yI+kSkOINsSwntmLU/m280VsGkYMFr83ZzWOUGM1xv3cXxK5f
vjDMrIPXAYmtDDkqvO+SoysptkIiXyH9SmktfKR+iLAzT0fB+dXh49y1mFqj
fGxdbB6+MGPJOBiai1kC2+5b7RuFpLKB85I9K7AhO01r0ZUBveXOvNdl03Fg
XUUY+XAb8Hj2iopzd2FxyZzcr6Im8CvhPX3o5ALQtybv1+JfAov6Ja7tvghr
PI3aYw3jYNWh519OoIDHq7nEaPZeGPmseniirgHWtRX1VAf04MuIDILIxU7o
3TvloS2UD+J1mkVkzhKwfZv2s/1oEJhdY55wZI5hPVMrTdKJBpGdEjc8PEYw
V0ru0THLFkw+2vHrLMcYFn37Wns8tALlGX9n+/2nwaxwQH1HoytE78+aSHct
A2mpoZDO5kLMX81MYv9vDR2YcY/zrw7i5ZbHJ8v+VqBrwv0k1qApuLbiJ8Xj
y0Re3rExtitUMDT1azh5iIy8WquCkkMkkBqiFD9Nbgemp8YA9RYZvolsvdnw
oRW6Z5M3y3S2glSIZV3YzzqYNPLusE6bgBfHKfF1xqmwPChi+PX0NB5v42Bx
CR7Gu8zF/1qyCVDSJF8ZeDYWmlu69u3OGoQXAb0N6YqFmHR7JPONUzV8HNbS
4Pctx7rUuSkjpf+AflA23N53BDvEhna68tbAkfvNAX8yplEorebZpeZWkDEg
mD4XIYNph7WGhHsefnzasfea7jCeK2ySKG9mAjGKon9JkIgHf+34/e5wMrK4
DUaN3myHkua18HMb2/HMidlNXTeH0UZqo+QVkShcbPeReuGWA+p9xfPMsn86
T5Y81yQmgy9lpsLVi/lPz7kNCzZd4Pls9cpC1Cw2Ex9IhM3R4N4W8Wuzr7qw
ebjgYAchGY/UDh/ZpkZF9s5HSDhJhiHvNdNosR8gphAjEjSBOEUNf7vyhIrl
QlZ1w+b1kEu60cduPYiLtxU/BtSNYE+5lW2ffDdcOqxXIxxIxH1Rjs8cdpOQ
TvHck8gko7y6H2O/1yAeIo6czmIy8YPJm3e8xBwQGteZ7i1qQdITJS0hHyKs
PBdeELreCnz+5j5HTfqATSLSv47KgLskRs57GSbuViSE+XkzQFjkvrAS1xhU
7hKUxqVWfFV0e7i6dQZe7RGwvn02DwWERWWIDoNQlJyfmmI2hN4fmTwrT/71
MVQLi9o3DIeEVzv5bRnQmiBgZnnun9/n2PZM1baBr7inHKWHAnO7tt93zhvF
N6uOzsI767BKzri/eDYc63FL6InBHnyjxNd9X5MOR5vbDO449uHisUE+trLv
cEb3jF95YRdgnoJmAQcdBtMv8crW0KAhf/LuWok37FgIoNxOHYVfIW4ERkMb
yHgrC/HPzmBYd9vpPZFUUG/kaox7xYTXGQrfTJ9OQZ7Ka65eNgENylc/U7t/
OaL1SWx6f1MSHN625hJtX4aWtDb+Ar3fyD3043Lwi2wUry5xOhI/A7YRrvXG
va0wYij8uN1gAsRVn89HlNbg4j5T9USbJWjhz/ojGkUH16WGuliRIVCXsSHr
bhwAk4HP/AccZ0D60cpQkQ1CYtJz68xSxPcRQTol9BkgKwksXHFahHMmh6TW
bZ/G6K9vmkJmezHxsL5CshUVdLSV5GT66VBs8EeVwBsKqkVrRVIOlWC+Z6fw
ggYTjYZJ2rU7anD3g4QPjoHT6PErOqvzwTjc84wuGK