(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 14.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    378663,       7833]
NotebookOptionsPosition[    202426,       4201]
NotebookOutlinePosition[    365886,       7595]
CellTagsIndexPosition[    365843,       7592]
WindowTitle->22. Special Numbers | Introduction to Number Theory
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Special Numbers"
}], "Section",
 CounterAssignments->{{"Section", 21}},
 CellID->759192576,ExpressionUUID->"09bdacdd-28e1-48ef-a856-6d3b579eaf6e"],

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJxsvQVYVmn3PTzvOz3jjN3drSCoYIuBIoggKtjdgoHd3d2NrWN3YAd2ICgN
0t1hu7699uPhnd//+pzrnnOe89Q559lrr7Xjvqk82MN5+H9/+OGHSb/J/5wH
TW07ceKg6d0LyYMe7pNGjXAfNrSzu+ewEcMmWg3+UQ5ulxEi4ycZgyeOxMS5
UzB3+TwsXb0Qz5/cw4fMeHzKiMeH5Ch8SIrA5/Ro5KWGIyslFN++JuPA4Y3Y
s389fAN94Ovngxev7+P4hQNYsXEBtuxeDV95jNxEfEx+B+QkIzc1Cp++pCEo
yhfjpo3EorVz8Qk5yMqK0+e+Zscj9M0DhAY9QnxSAFKyIxEa/xartq1ARxdb
NLaxQtO21nDp0x33fG5APhQ5WbH4lJOAz5kJ+JqRJJ+RhG/yXZ+zEvX8P2Yl
4NOHFOTJ8ezcJLx+8wwDR/aDc9/umLpwOuavWYwTV89gzZ5NGD/bE+6TxsJz
sgeunD+N4De+iIkMxeNnD7Bh+3r0Hz0Qy7Ysh9cJLzx76SOfmYKcxFggM01G
Br5lpONTerIMueYM+f6MWLzPjEVOZhRys2MQEPwYa9cvQv+hPdGleyc079AM
nV3s0W/EAIxwH4FJ0yZi7pK5mDZ3Gjp374K2XdrBwbUbXIf0Qf9RgzBs/EgM
HD0YdvKelrat9flOjp1g29VWX2/RsjFadGwFl/490aNvD3Tt0RVOrk5wdnOG
g7M92nWyQbPW1jpsbNuik4Mt7OxtYWvXDi69usm2LdratoRTLwd06NIW7e3a
oE3HFrrlsOvWES59nfT+jRw/DKs3r8C9p7cREOaLkKBnuOF9CguXTofbIBe4
DXHFaM9RWL52Mc5dOIaMxEjEhfnj6Z3LePXkJrZvX4sJ090xfMoYTFk2C4vW
L8W8VfPgMdMD42eNx6hJI/UzhowZqGPwyP5y33rr906fPwUzFkyF56wJmChj
8lxPzF46R8eCVQuxee8WbD+wA6u3rsGabWuxdvs63S6S35qvmbdivo4Zi2bK
e6fomLpgBuYsn48l65dj+aZVWCO/987De7D7qBfW79qEtTs2YOMe+dyDu/TY
nmP7sOvIXn28df8ObNq7FZu9tumW7zt24QROXjmDw2ePwev4Ad3y8bkbF9F3
7GB4zp+GWUtm6/159viu3J8IvE+Nwee0WHwWLHxMjRQbihT7iURuThT27FuD
k2e98Nz/Lh49u4kHj71x4uJBrNu+DPuPbUd4hC/wXmwvJRJf0uPwKSseX75l
4PqDCxji3l+uYRWyP6Yq1vLSovFRsBwb9grxMX5ISQ9FqnzHm3evsGzTErR3
soVFmyawbNUEjj274sbty/j2LUtsOA5f5TuQmwJkpyrOOL4Itog1jveC90y5
hvcf0/A26BX6DnVDx262mDjHE3Plt9lxZA9W796IGfI79BvaFx7jR+PcyWMI
8n+F1y+fiM94hnVb12K4+KO5K+di77E9ePL8vmBIcJ2djq9pyflY+5yRIiNJ
fdRH+ilem+AsS+7ba38fbNy6HK79nWFj1xrN2jdHsw4tYd/LET379cTIcSPg
PtkdQ0YPQevObXUQi90FO8Rbr8G9YS/XTjxZ2TQz4a1TWzS3aa7H6jaujwZW
ZrrfumNrtBMMdXHuoni0bmUFq5ZN0bxNM7Ru3wotbVrosbbtWsG+a2d0tu+A
9rat0KRFIzRtaQHzpvXRuLm5bvnYrEk9WLdujA4ONoq3/sP7YO7SWbh65xKC
IvzwSH77o8d2YoLgq0v3jujW2xFDxg3GnEUzcPDQbvi/egjfR7dw/9pZXDl7
BIsXz8S4yaPRfYgbXEcNgPvMCXCf4Y4xU8eg78i+6NLDDjb2bdGxazs49rJH
Vxc7xbqTW1f9/fj9/Yb1xiDB4XDBH3EzfsYEwehouE/z0O0wj+HwnDNZ8UW7
njhrEkZOHIWh7sPEZw1Cn2F9Bc+90XuofNZIwbT7cIyd6oGJsydj2sKZWLhm
ifDBUt2fuUSwvGyeHiMWV4k9LNu4UvE5Zf50zFo6V/dnLJ6tY97KhVi8bhmW
blihr12werF+FrE8wGMYZi6bi6mCt3VbViHA/zkyk95954t4sSXBSppwT04s
vn1IQGJSMDYLpq7fO6tYexP0FE9f3sF57xPYuHMVDp/cjeiYt/go7yMvEmtf
csTff07D3iPb0H2AE9bsWIWQ6LdIy4hWHOalvENWUhhys6KRnReLTPmep299
xN/NQRuHdjBv1RgWLZqqv75+64pgLQd5wmnfhLfIY7RxPV/BGbGmnJYt/JKX
JLhIQN6HVLx8/Ri9BriIHbcRHzoBK8T37T99GF5nDmHW8rlwG+gK9wmjceLY
QUQEv0VY8Buxo3tYunaR2sL81fNx+uop+Po/Ra58Hz6/x8ckuT9ZmaYhHPcl
M1nP45OMj8LV72WQf339HmD77rXo0ccRbTq1FFtqh+aCi259eiivkc8mz5qM
4eOGiy/opFhqIYN46zO8v2KOx4mzxi0ao2mrpro1tzJHkzZWMG9uobxv3a45
rNtYKw47d+uM9l3ao0nLJmjQuAEaNTVXrJHjiDsO7rcUvLYVfFrLZ3I0aW4J
C/ncuma1YSbvs5TPtpbvsGrdVHi0I4aOGYKVYkcXr1/Aw+f34O19GltFfwwT
zqMf6dLDHgNGDYTnzEnYKbyQEBOCEP8neH7fG6ePe2HWnEkYN3UsnAe7wk30
wsjJYzDYfSiGjh8OBzdH4WwbtHNojxZyLTbic2zFF7Tp0Apt5H50crSFg9wT
6pseA3qiez8XGT3gID6Lo9cgN33M7fgZEzFTbH+S4GfsFHcMHjtUsNVXud9J
3t+ttzMc3ZwUawPlmkZPHodJc6YoXuavWoS5KxbAc+5UPUYMcp+4Im6IO+LQ
ffoEDBMMj50+XrUROYt+m2Pa4lliV/Mwb/UizFm5QMfIae6qp4j9nfu2CreE
KCd8yxEfLdxGrFFDfhI9hE9JiIx6jeWrZ+HOo0t4FSA+681D3H90DeeuHccG
0Y8nLxxEckq44ouc8422niH+PSce27zWw97VDrOXz4TPiztITY9RrOQItonN
PHlNZrZg7X0ibj25jklzJ6GFYMO8hfBaSyt0E71z88410ZC5irUvuckmzZYq
PCL8RT6hnb/PEG2qn5eATLmW+MRwXL1+Ht37dNPf0n3GeGz02opT3ucUa9PE
1/bo64KRY4bi3t0bgk/RiNlp8PN/gWXrFmPCzPGiS1bhpo83/N88R5Z8nwAJ
39LJqVmCtXTlVhHZ+CLXw3P4nJ2AD/L92ZkxePHqHtZtXIauPbsIHpoppzWz
bQOnvj0xcNRQTJoxCeOnjseICaPQVbRjs/Yt0Eh0YSfRh25iH85iP7ZOnU3H
rRspdho2aahYM2vWSDWk4lDwYNbUTHHYsr18R9tmOvj6euZ1lc+IL2KOepKP
mzRvDEv5TOKMuCO+atSthmq1q5i2davKZ7UQ/LZR2+8p5zJH7PHE+eO47XMd
N26dw45dazFmwgjRs3Zw7OOk2JkqNrr/0B6Eh4h+fHhTOO0Y9u7cAA+xTfKK
fR8X9BYbHzl5LAaKtuozoh/setrr79NGNG0z8R3Em+JMRnvRzR0dOqCDfXvY
yb1w6NVVcc37Qj9ErLmJBugxoJdibYxgx32a6Z4aOCMODYx16eGg7+shPran
vJ54GyOYJK7IV9yOmDgaozzH6hgnn0W9SQySx4hBHmf8NUE4dJxwK/FGnM0W
ncpBnC1ct1RxRtyNnuquOCbWjp0+hPSUaMXaZxl5SeEmnBErwjufPyTibcBj
zF3oiWt3zuJ14BM8fHoDN+9ewOlr/4h+3YBL108hOfWdxmGqH8X+c9OItURs
O7AZHZ07qi6n3SYlRwsuBA8JEYqP1OQIJKXIEH47630Gw+T3ayl6yLyFFRo1
t5LYoyu8b5DX8jQO+yz+4GtOquBV9KroOuLufVo8suRz04VTeS1xcaEICHqB
fQd3ql9uY2ej/mib2IGBtRVbV8tv4AQPz3GIT5DY8mMOYmJCJXaMxA6vLRg9
cQTWbVuNKzcvCG4eIFN8EGMz5BBjGd9HmmKNvGZg/oNcM3Ws35snWCb320lw
1FxwVt9K9JpgobNLV/Qa2AcTp0m8OHUiBo0ehs7ODmgsnNPA2gIdutmhS89u
um3Zsa36mwaWZqhrXl+3jaws0dDKAvUayzHLhjp43LypBSybNdHn61uYjpk1
aaTHzWVr1thc8NU4H29mjRvqltxXpnIZVKheQbFcs0FN3bcUriN/kjepZSeL
jz9+8SSe+T0VnXEB23aug4dwlZ1LFzlf0XoSh06YNgEHju7D27cv4PviIa5d
PI1Doik9p0+Ei+DBQfjFUey8/5jBGpM6ia8jj5Ofqzesqf7BopmFnhs5uKND
R+Vp+o4W7VooxuiXurm5wL5HN3RxcYRT7x5wdO2O7n17YcjYERjmPkrvae8h
/fV1vLednOx1296hk97THgN7i0bvi0FjqSMlDpw9VbA2U7A0TbAkut59JEZO
GofxMydj+iLqyQWCuVmCy/H6Ho9ZxNkkwdF43XrOnyH4myba2FMwKFy4XF6/
aDYmL5iJ4aJvyY0zhfOu3b6E1NRoMZl3Eq9Fa5xGrH2WOD8zMRTfPqfgoXDY
3IWTcfXWWfgGiTbwvYe7Pldw9PwBiQ/X4sL1k4iJC0J6fChyE0xx39e8FLz/
lI7VojVadGqh2vzM5dMICvYXHCYgJzkGOamxSE4MQ6LEeJHyXYfPHJFrGYo2
9p1g1ryp2JE5bDp2wNnzp/DxQ7boTeGPPMFYdrJijeNjVpJ8XpwJZzIYq8XG
huBN4EusXLdcOMFc7YU+6ejFU7gm/vbE9XNYummFYm3H3m1IF32YnZOG4BA/
5H5Ix74juzVOINbOXz0ttvNMvzMvORbISP7Oaf/DmuaUxMdwvBduo4b183+G
JXLPGZu16dwe9cTmm9iInnPsIrw2HPOWLMC0+bMwYKTEa3bthdOaKh5bdW6H
9o6d0VK4iDhTTAnO6pjV01G7YV09Vq1+LVSpWwP1m5ijZbvWaNW+jWKNr6lW
p4bpdY0a6LZG3ZqoWa+WYq5Z6+ZoLK+zFFy3kvc1sKiP8lUrKjfaOnRWWydW
6zaqi+oNaitv0paniX8/530JgRGBGj9v2b5OeNkDdsIVdqI9+gwfiLGTx+Pg
8YN4/uoxXgsmr149K5pyC8ZOGgvH3i7oOsAN7Xs4CtaGqk62dbZHR3K3xJHE
WkPxB8Q7z69xM0uJGZsrV7fu0FZzQg49nRRjxEwHiTuJm7Z2HWDXvSuc+/TE
4DHDMWL8GIycMBb9hg/S87bt1kVfy9HO3lZfT3/n4OqseBsweiiGScxOzHEQ
ZyMmjlVcTZg1RXTkdB3cd58+SV/Td9RgDBk/CmPEtxBjk+ZNV9wNlXhkpMTg
xBgH8UasUYsyP/Pg6R3FWqZgjDkL8tmXjCixG/LUO9FumWLrh7Bg2Qzhpat4
6ueDZy/v4+b9K9h+cAvWbF+JK7fPimYL1ZiJ8ZPa5IcMwVqm/EZTxZ83E7x7
Ytv+HXjl9wxpibGCs3jZRiMlJQppYpv+ob7YfmAnBo8bgTZdbFG/aRP5reuj
eetWOHHqON7nZWl+4kOO2Lzwy/sMxmgpwsfJilniLEM4jXaelBSFgGBfzJVr
rWNeW3UYfdQ/l8/g7utHOHzphGjukcK3nXD60ikkCO6zctNkiB5EHrbs2gBn
ifc37ViHC5dPSRznq1gjr32ilsxKNeFM8PlNvv+j+I681DgdufL9CbHh8Hl4
CwsWz4F9d3tYtW0hnCWxVkvRR/Z26DtsMDymSUwxeaLYxBCJ09qhruCgtnAR
r7294NFG7L55+7bCYY1Rq0E91KhXR0e1OrVQtV5twVktVKpdA7XMG6CpfK51
65bCZY1QvW5twVd9VK1dE5VrVtf31DFrIHhtqM83smqin0f8mjWxVFzyefKf
6TPM9PNrNJT3WZgp3tvZd5bznSQ65hJ8Jaa943MLm3euh4doBWLIZWBfjJjE
PMN0HDlzHA+f+eDO/Rs4fuoIlq1eonrOeYDoNrlW15HDRG+OVju3Fc3S1r4j
Wtm2R9M2zcVXWCkXt2zbRuJHSz3XFuKfOnW1h2MP0YAuToIVW70vHbp2EYy2
0f1OTl0Fg87CbW7oM3SQ+rKeA/rq6/m6Np07Ci7boXWnDnotHbrZw76XxH9y
3q5DBgjuBwvexgqXeQj2hou2HCGYG43hE8bp4HNDPcbovr5Gnh9A/hRcDxf/
Mnq6J0aKRuF20oLZGDJxnO6PnzsDo6aMUy3KfI3Ps7uKtVzhsby0SOGkSHxK
eycaL0gfi1Fhj9dGLFw+G3ef3MLNRzfwSvz8/Sc3sePQVmzcux53Hl9DYnK4
asIs4TViLU84KENwxxxRqy5tVcuu3roWIWGBiI+KQEZCrMSJEUgTTuLrHr7w
wZqtG4TXRqKlbUfUsbQQO6knWGuDk6dP4YNoPGKN3JaTnqgY+yTxUp5sibPE
uDAkJ/DzYpCQGKn5/unC58wh0A/SD23evxMXxQYOXvgHA8cNQQcnW+w6vBsJ
gpEU+ezsvFQkyTUwXmM+jPZ0/NQh+Po+RIp8toDcFKNx5JiwxtwIY0eDp3lu
KYlRgrU7WLl6mYkrWlgLp7VBo1atBN/OGDJOfrtxo0XzjNLfj9iqLLxTvlY1
4biOOjo6OaidWLZspvghbogz4oQYqN9E7k/Deihfoyqq1Kqhx+s1MlP8EFeV
alRDxepVFXfEGLccfJ6vIwYrVKuCspUr6jF+fumK5RW/1erXUQxz8Htsuzlg
8ZqVuHr/Nq7du4nLNy9hscQgjDvbdbVDt769Rft7SLzkiV2H9uOF/yvxYaex
9+AezFo4S2KjPmgv9t3SwR4O/fpKnDYM3fv3Rrc+vdC8ow3MmzXVeIGYr29h
DvPGljCT39+qlcSMth10tGpvo9hq0rqF4LKl3hurtq3QuFVz3ec5Elu9BvZT
zDn07K4Y7Ohon49PYpqv4zkTazwHp76uEhu7iaYVHzBulMTKA+V8++lj/jaj
PMfrlo97De4PZ3lP35FD4TpiMHrL9Q+d5A6POdMxduYUDPP00DFYeHXcrKmY
vGiu2N0IjQOnL5yhsS6xli26kTz2Pi1C62o5qWHITY/UPPuOXeuxUuL8W49v
49Hrx4pPxl47j2zHdsHb8zePkJoRqzEN46fcFPH9n3Lg9/YluvbuhjYO7eE2
fACWrluJoJBApCbGITlOeCg1QWOlxJRYPH71CJv3bNdrNWtG/W4muqchbLvY
4/LVK8h7n6X5C61zpScjNyNF7TpDcJ0qn0H7ThN7TxV7j44Jx5PnPoK1aZoX
Z3zTY3AfzF6+GLtE42wXfA1yHyb+rRM8RVsGhL9FUmYiEiXuI+ZHeoxA/2H9
NIftdWAHfHxuKs7xIUtishTF2FfhVI5vwoc8lp0Sp1ydJ3yXlBiDew9uC6/O
QxcnR7WJhs2JNxvYu7pKzD5EfNBEiZdnSmw/WOKVNqgmdlZLMNHWoYtoWzd0
cqYP7yx2aC04qCk8VVts0UxwV1cwV0dwVF0wVgs16wuH1ZNj9YnBRqIvLfVx
2WpVBTe1ULlObR08xsd8HXFJbBn8WKJiOZSsVB4ValZDqcoVUK56FVSoXR3W
okubtG2pXLt0wxoT1h7cwp2n97SGxbinrej9Vnad0Hv4UMXakvWrcenWNew/
cRBrt6yVa/QU7uiXjzXngQPRY9AAifGclVPshK/I3fQf6kfkPlSX86xvbiac
JrzVtrX6CnIesWZm3UT0dXs9N8b01AtWooWJHdpO3xFD1F8TR/xs+i3imdqB
W+oFWyexSbm3vQYN1N/CuW8f/R1cBw9Cz4ED9Bj3B40ZjXFTp2C05yQMHD1K
j/PcHdx6CaeNQ5/RI3QM9BgrWJsmGHPHiCmThOvIcaI5Z88QvTkQo6fI88Jv
J88fQXR0gGKNPMaaGvVjRkIIvuQlISUpHJu2rsGS1YtxX+zwicQhT18/wY0H
17D72E7sPr4LT98+Eh0otqZ1JuGc9CR8+5iNuw9vy2/RHpYS27YVvT1A9MOh
Y0fh9/oVwoLeIjGBHBSNKNFcD549wKbd2zBg1EiJEdqgtoUl6jRshC6O3XDV
+5piLVNiJeW2DBPeskW7ZaUnSIwWr/yoIz0ekTFhePLyERauWKj6kTnN7gPd
4LlwDpZvE46WOM5teD+JjdpqLeu0xBUvJL57GfRKc23DRPP0leMzRYfv2L0J
N8SPJyS8kxAtEelJzKOmKsd9zctQLZspx9KT4uR8hBvlHBMEa5euXMQEsT1q
liaig+uJHjJr0QKtxQc79++LvsOHYaj7OHQXP0/OqyqcU134qHUX5tt6on1X
B8WaleCwdsOGii/yPDFXropgoVo1fVzX3FzxU6VuHdQ0a6h446jRsIFiq1z1
aqrFObhfS2yYfKcas05NVKxVXTFGfHHwcZnqlVG2RhWNMRtK7ESsTZk/G4fO
nMDtpw8krj4qmmgOeg8bYOKHAWKfw4erXa7Zvllft/Owl9amGP90EI62EY7p
4uYGV3kd7bWrWw/FA3UceYfcTy1M3VhHzrVBI3M0adEMjcVHNWxsoVgjnxGX
PCdLieXoBxq3aaEYIq7IO/2Ec8hLxDK1ATFGLDaTmK+p6FG+1r5nD9jYd0Hn
7s7o6toLXXq4wNHNFS79+6HPsKGKNz7mlr8RsTZiwnj0HzkCPQb0R5dePeAm
ttxLNHF/0SfE2NBJ44Xnhot+9FCsjZIYYdys6ZoHGjV5jNb5dnhtQnDwC2Sl
ReXzGnP9zEGKmER8bBCWiv5btXElfHwf41nAS+WgC9fPYtvh7fA6tQ+P/R6p
9qKeyxOu+pQhfv9DDk6dP4km7ZqhkWCtqcSxvK71mzfB388X0RGh4v9jRXvG
ISD0LW4+uIll61eJBhggft4GNc0tFGsOTs6KtZzcDKSnia0LltKFN1PEnpMT
ooXL4nQkyn58XKRiNzwyGC8kLtxzaI/GyvR1M5YswOaD+4TXDmPB2mUavzGn
xBj48NnjuPHoNm4+voN9xw9g0ZolmCmx7fot63Do6D7cuuuNuPhIZAvG8uQ8
MlMS9Fo/ZKcrvlLpM2IikRgbpf7DT66PMeaseXPRo38fWNu0Rd2mjdFctFD3
wQNg290JdmILTqJdOrl0g6XYS5UGdXQ0E1sgBzT/biPUVtR75atWRoUqpkHN
SF6itqxZv65yE3mBfp96iu+hTRI3xSuURVX53Ep1a6JwuVK6rd2oofJD9QZ1
UbpKReHAysptxSqaXluuZlXVtDUkpmMc2VnsmPdv38ljuPPiofZQMN7v3t9V
ea3vcIlvxrlj8tw52Oy1CxdueePAmWNYu2uzxMVj0LZbFxkOsBNOdxJcEmvE
KDmHMZu1TWvVw4oz8rtwcF3xFeQz6lseJ9aoNalpNUfd0loHMUc8MQbjZ1Ef
Ori66GP6COLRolUzvZfEJfFGnHfq7qgcx/OgjiRWeZzYN/ZpNyMmumu8ZmDY
sXdP1ZFuwwbpGCrPMVZlDEptOXrKRAxhbCfv4/6AsUMw0lPihXFDsX7rSrx9
+0T8caRiLTclLD8vwn6oqKhAeE51x64Du3D3+UM89n+Be0/u4uiZQ9i0fzMO
njuER/4mrH2QOCZH7P59arJqqS27t6BBc0tYtmsFK1sb5eU9Bw/C398f7yLC
EBUdjnjBjH+QH+4+vovlG9ZKTNsfjVq0RNW6DVRD2ndzwsXLl5Apdp4mOKZG
JHcQbxyZgr9U2SbERykekkRTUpMGhQfizsN7OHDqKLbs241DZ0/i3J2bOHP9
msSZ+8TnrsG8lYuxZOMqnPK+gCuC9csSyx0VXlu3cyPWbl8vHHcC3revCUc+
RmRcBOIEz6nCpbk56cqxGcLfGcKvycJpsTHvdCQmxuOdxKMXr13C8rWrMVJ8
Hn1kO9FP7RwlBpOYwlZ+Z3uxB/5m3LcSPVTPyhK1G5sr1sgDrcQOaRu093JV
KmksVa5SRZSvXEl5iVij5mJ8w7iKWFOfL6Ne40aqD8tUraSakJ/BvAtxVsui
oT7H95DX+LwxiLE6cg6lq1VSrHHwPTZiv9MXz8eW/XtEf7NXaY/WozqLnyD3
te/qKPzcXzlg0dqVuHjnBtbu2YrZqxZL/DIO7Zwd0aSDDaxtO8k9cIRTn96K
C3INtWCDppZ6Town6Ucqif6ljjSujzizsG6q16VDvrM+ax/f+Y2Y5bmQy7gl
VoijVp07KB6Z0ybGDKwRh3wttSgxR3zxMTHK2I3445Z5EuZIegum+Jg443PM
BfUS/esqmpV5EuKsP3Mqol09Zk7VLY8Rh9RPg8YN0bzFll3rlNe0j+871rQP
UniNPRDMC4z1GImDpw7j1hMf3Hnmo3HbvuNeirXjV0/ghbw/JSsBH/MykZ2c
ICNRYrckzF+6EDUsJGZvKfdJNILr0KHYd+QIXrx4gfCwEImrIhRrfoGvcVv0
5pK1q+Asv0OjZi1QuXZd1KpvphryzLmzog2TVCMms46m+EpQjBF/jI9i5bOI
tWSJm/iZrwN88eTVM9x78UjjjMv3buHKw/s4f+sGvI4fweptmwRr7MtbBq8T
R3Hy+mWc8L6EIxdOYvfR/fA6dhCXb3vjprz3wdOHeBv2FmHREUgTf5JLPSvY
p1aMjIzQERMThdjYaMTExSIsIhy3798Tv7If81csxdipkzTu7ikahxzRj3H3
d79H32jn5oKOPbqp/+/s2l35jjhkzoS8Qr2n+UTRVjVFK5LP+JjaivkDIx/H
uJB8xcGcCXFS3aweajZqoHENP4u4MwbtlcfJZVXq19bX8fWVZZ+4ry/PNRB7
JtYmzpmBlVs3YtriOZrnZhxCriCG+Xu16+KgGmzxulXYuHenxCpTFGduowej
lYMdGrai5hP+cTTFSuQiYoScQ/yQr3hdzOkQazXqmLDHPI65aALN+ViaKy6r
m9XR+ohla+v80bxjG8GNg3JtR6cuwmkdtG7CuqVFK9GfNi10y9caeCPnEe/E
DwdzNdS15C/uk++IQ5cBffQ48Ua+69LL9Bv1kNdxEHP8HYmxkZ7jldeM0XtE
f8Ua85CM12JiAoUfIhRfOcmhirX0+GDgaya8vc9i/GR3HDt3UnjtMbx97uLm
o1vaJ7jBayNOep/C6/DXSM6MR67YX2ai8JtoyHTB3KTpk1FT/Ggd4f6aco/6
jhwpNnwUDx8/Qnh4KFIEMwmp8YqLyzcvq1127eUCc+vmqFaPfQ+W6NS1K44d
/wfJgqmMDFM+n1qRWs3QjTHCj9FRYZoTiYl/h/B3IbjlcwsXvS/j8t3rOHfj
Ko5eOIMD505j/6kTWLF5PVZuWq/x/kzxB4s2rsHG/btFY+7F1sP7sEU4fMeh
vTh56SyOXziNExfP4Mqd66Ix7+FNeBDCo+W7EqKUv/wC/REgsSf3Q8MlTnzx
HPcfPcStB/dw6vIFbN+/Vzh0HeauWIJJc2cqvsbPmqaabNayRaLlJ0hsPVrz
Wdwyh0UtMmzCOM0d0CYZtzRrI9qghcQzTRorvpifZ37OQfSoS7/eWkdg/YCa
lfk36i3aEXUUuYNb6j3amaGf6P85+DyP08/T97MO2FI4gZxLzPcePhiTJV5b
t2sblm5arXnsLq6Owi/myhvN23VAZ6fuGssskXu6eNNaTF40Gx7zBJPjhgmv
OWj+hDhz6tMXrTt30u/iOZGjyLHUvdTD9CHUkPUk9qQvoY4k3rhv+BF+b8Nm
lhqHmzVvrKNJ2+ZaP7DrwWuzVewRa9bt5b61a6nPs1fA9D6r/PvCQY7lfeB9
IS+Sv8hzxBrzLcQbjxFn5D7eF0fBIu8L/SexxkGsDRKfSoyR17hPn8QeGfZE
P3h6S/giCqlJIYqvbNlmp4QiIylU8/0nTx4QrHmI3ZzD7WePcE2w5v3ghubK
V+9Yh6MXj8M3zE/z5qrpEtkLmaXxy2Cxmer0ny2boYH4tXHTp+P4+Yu4Kz4/
IOANEpJiESH4ePXmJc5fO49Fq1fAqXcv1LVojCp1JO43s0C7zp3hJfYalxiF
zMxEzVGQx8hrKcnxijnmMhmnxcSKvUcE4vFTH+wVrcN6MfsBWPcZNXmSxq3M
TQ8aPQpDx43VmHfQuDEa3w4cPw79PUZp7paYIAY37tmh+nPbgd2qmzbs3Yb9
J4/g/NWLiuOLV6/g7OWLuHDFtH/y7DnsP3wEx0+fwcF//sH6HVslBl2DVcIH
1FbjxPdQcxg1z5FTx2OAuzyeNBYec6bKd7MmMw0Dxw3XOunAMcPUV7cTu7cR
22whfrip2Alr1x0FN73Etw5hrnrMcO2V6DN0gPZKuAxw076Trm7ddZ++vu+I
QRI7DNNBv01fTRuiv6YN0Y8bPpr6ljqpu7ymD/N6YjOMSaYtXYA5q5dg8oLp
cOrfw8QZLTiPwA52zi6ac6C98XUTFszAmFme6DligHK1XU8X2LnI97j2Vk1N
HqG9UweSq/g51IkcGqs1+p92pI7klvUP5UDhtDqNG+ogzpp1aC1xWiflM9bH
uU988biBNfIZMUp8kt+IRfYQEI/sHeB7+dj4DG5531jrZi2Q9W/+FrynHHyO
8T5r+MwRsa7B34uv5+g/aogO5r/Zc7d1zxb4BjxFVnYskuIDkZ4QiNy0cKTG
vUVWSji+fcnAkaNeGCbvPXv9Ci7ev4PLPneUKzi/YPmW1Th07hheh5qwRk2X
lZqI91npCA4KQFcXZ5QRTVBbYgjz1q0xbcFCnL12FX5v/LXOFiOc5Pv2FXye
++DoqX+0j4L1RubUmDNjvNa8bVts3b4FUaIR2d8RHx+h+GKMxC11aEysxEoJ
kfqZz18+wcZtGzBMbJr10ZpmorvMzVCb+XDhBPPmzdC6QwfNlVcSnVKT9ZyW
zVXjVLdsCGvhAsZMzFfR31HH0efRZmmL7A+Ys3QR3Kd6YvR4d0ycJticPhUj
3cfKcJf96XJ8PMZPmaKx2nCPsRjjOUG1P+2afpI9WPzt2G9h7+asfQjE1tjp
E7UHYZDgb9QUD/2t2IfEGl1b4Tf2fHAQazzWU/xuHzmnngN6w3VQX+G2gdqb
5Da4n/Y4s85s38tJ92kbzv16KeaIM8b9xBx1EfmTx4g3Yo35gAnin3iu9N98
vpt8F7HH2k23fi7KIdSttQUT/I06dpU4qbuz5k/5ng4uDmjdtTOa23XQXhnm
g1p3toONnT3se7go1oz6GGtm5GHmIakXqZOpl8nn5HAe45Z5SOZzWGevZV5P
+2fMrC21R519N41bWSv+iQlijLqRfMZjxBh5jbgz9GTz9q31eeKO10PdyfvE
+0VuJAb5mL/9vzHG+8jRb+RgxSGfZx8KccdjxJ6xz9wo+062e21DSLif2LDw
Qqw/PufGIk3wlp0agez0GOTlpandjvH00Jjm9K3rOH7zGrYdOah+n/HO6Svn
EfIuGOlZyRLDpGhu8cOHPNy8fUs0tsQNNWtpraxu4yaYNHO2+HvRkMKP4dGh
iBK99yb0jcZq1Kjs8SHW6LuYW2NO26ZTR+zas1P0ZrL4hDT9/LjYSNGM4UiI
j1acRUmc9o6cJscui16kvVGXFCxVHH+VKI7CJUuieNmyKFq6NEqVK48yFSqi
VIUKKFGuHIqULYOi5cqiRMUKKF2lsmK8cJnSKMk8RI3qOkpWroTilcqhrDzH
2KZ8zRqK3QZNm2ienfn0upYSrwuWWQP7dyzFerHqILkm5vt4XUbcwXwGj1O3
McbnMGpHxDjrBS062Ggdl5qRMQsHP5u5cB5vT23WpbOOjvZ2modkDp11W8Zx
tE/aMvfZP9FeYqeOjuJDHNgjKLrJqZu8VuxMdJ1Nl0763ezBYP129KTxikli
mDUy9k3Trqiv+HkWommbthFOse+ig7WNZu1sYGXTVvMSHeR7ONib0Fie4/PM
ybbuZCvX1R6NrKzkOpqrnfC+WTZrJtfWOL/HhfEar5W8xvykqc/FlDMx6vJ8
nnlKxWtTU16INkSe5D2mNmVMyHtLvcsYla8htlWL27TWa+Ewekt4jPee94pb
6krqS/4m9L+8/nwtIPzPOjc1Jn0TfRf9FvOWzKlwn72UW3ZvxoNHN5CRGSn2
66dzyT5kRWmtLTszVnN6M+fN0P6UPSePKs6OXLuErUcOi05YhAWrl+PqLW/l
nNSMRKSlJyJJuC01Kw2nLpxTLVihhmCtfkPdp8/fd+QQ7j68g7dhbxAcGYTn
/s+1F2HfP4eEA0ZrPxPzv8yhMU5mTLJDYu2EpHgkJyciOjoyP+/HPCa5LDQy
THHGWIqxFa+/WsO6irM/ixVFoWLFUaRESRQpWhzFipdEiTJlFXMG3oqVKaM4
5Pbf+CteoTyKlS+HgqVL4c/ixfBXyRIoLM9xn1uOAt+/4295jt/3W+FC+LtY
ER1/FS2MPwsXlM8tpYN5dV5XweJyTiWKoWR54r+k1rWYB6xYp0Z+fp7nT1wy
b0/7In55P5iTpJ3R3oz45v8d5HLeQ3IA83vsBTHqaBysa7O+TR/B2lwF8R08
Rv9k1LfJOcQe7Y09iB0d7QQfbQSXNoqrDl0ddLTs2EFxymPEGbFEHBODrMMT
jw2tmur38DtZ92MNnjV5+lLirL6FRX6tkM8RVxzMSTIvZGyJLX1OzpvxHPtL
asvnMqdCPJp6utoolujHGNtRdxp5Ic0FUa+KHiWWOeiziDFeq6lXrKVijZgj
/vh+5oAY37KewJiXuCPODE1AvWLkQIlFQ7+w94u1VO4vWD5feOAsMrKEw3Kj
kZkWhszkEMXa+5xkREaFYqjoGGqgfy6dw6mb3jgg282HDmLaogWaN7wt8Rtz
4cz/EZsG1rbt2YVKtUQL1qgpGq4RGlo3g8e0qdi2bxe873rjVcBL+If44+6z
+9rTutVrp/bD8Jpoa+xjYG6bvnvjtk2Kp5i4aERFvUN8XBQi34UiPCIYbwP9
hFdlX7DnL7g7cOKI3gfm1Wj7ymvFS6BoyVKKteIlSuU/Ll66DIqVKq28x1Gk
VCnlPwN/5DfijqOQ4K1gqZI6iC8dgjnijFt+z9/FiuGPQoUUR4VLFsfPf/6u
+8Tbr3/9qfvc/v5XAfz65x+Kvz8K/S145neUyscFB6+f+CMXEo+//V0AfwmO
Swv2y1WqjJJly+k58zsLFi+ef/7GoO/gZxYtZ9oWKl1C/AHPs6i+lu8pVKKE
bgsUKaLHiP3iZUsrnllTICfzNyCmac9Va1fXfmbW02s1aKBcxP4V1tXZ21K6
YkUdvH/lq1YVfNfMxzQxRo3A+1imUqX8wffx/Xwf30P/V6ZSBf1e+hZ+L7Fm
1N/5HH2PgS/mTYgZchr5kFhk/dDoL+PQOEKGERcaeVxTH2hj1bHEGJ9jzcTQ
A/Q3HEZuiblLg9uYN6E+JO/T3owcitHrxS3jBtYSqak5p3XfkZ0ICHqqc9Sy
MyKQkRqOlIQwfHqfhsAgP7iKLp2xcB4u3L6OkzeuYdeJY1i7ezemLpyPFRvX
4d4jE9a0rpUUo7XpWOGdqfNmo3jFSoo1akj2Eo+d7IkdB/bg3NVzePrmGfyE
24i1M1cvYN32TRg9eYJeC/uD2LtAm6N2WrpqGd4EvxWtGK14I8ZCBVdhwmMB
Qf6KQ2Lt+Vtf7fNifMXPoP0TG8QTcUWclSxVRjmOeCPfFSxaTO2Vdkf7JNaI
M9or30u8keM4DNzxGJ8jl3Fr4NDA7E9//JaPNfKb4kQ4jljjfsGiRRQ3JcqV
Uftm/yF/W2o3akDqIfIPeZBYY22Nry0l51CS3y/nzvMmRjiM8zewY2xNvqbo
93Msoeet/kOuLf81RYuKLyisW54fOZfnyvOmH+Aw9n8p8Jtufy9YED/+/ruO
n//88ztOy+vnEj98TOwQN+qH5LOpyYlRDuKLryMm+T5DV/xvv6T6Id4bXju3
7Nsk1ow+Tz7mvtFfTcwRQ4rB7/gitxNz3Dd6SJXvhB+pC4z3G7iktudryYvc
ktOou4k1alBumRemXiTWyGncGjU68hn7w9i7bNQIOrv20Dif8+hWbFiKoLAX
Eve8Ed0YpfP32Svy+XM2HgqOukqcOW/5Epy5fgUHz5/B2r27sGTTJkxbMB+r
t2xUPcgcR0pqvIwEzS36B73RHtBCotXKy72tUKeO9vsNHjsGG/dsw9Fz/2hf
5YvAV7j3wgdnvC9i7Y5N6g+oqdmDS6xRW9HPLFy+GIHhwYgRDIdHRyjGiLWI
iDDNtweGBeFtaCDuPXus+Cc3sh77h9g08aD6kfgqUkI0pPymZSsIr5URexVf
X6S4bgsXL6WjUDHx+TL+kuMcf8tz3P5ZqKiOAoWL5fOCMWhLtD8Ok/2bcPR3
EcEX9aVsi1BrFhQOE7v/4++/dJDv6LPJ3Z4zpqlO4L3u5tZT9QxjEdoVuYb+
vKzElAUKFVSsGUP9RXETpxqDdmtwHs+tQDGTvv1L9LPBvxwGVg28kZO55XkZ
3EzscUv7L1KqhG6JI/VF3znRwAk/0+BXHufzxBM1xK9//aX+oXL1GnIdldT/
UcszduYgV3PLY7xO8jfr9mVExxcXX0YfQ1/De0Ecsh+GtXjqXW7pr6iZiRny
ntGrTb1taFLi0MAsudrgQb6P7zcwSZ4jn7Fv2a57N82TMaY2aoKGVjRq4Izd
iCtDU3IQj4zV2JvWqZezcIgt5q2Yixt3zutaNLl5nLsZrv3ynJt58tQxdJDP
nrtsMQ6cPq45kUViy3NXroTnnNlYu/l/WGOsxnoz46qXfq9Vw/8ptlBRdHkt
S+Fu4SfqV84D2nfiIO48v4cr97xx4dZlHDx9DBt2b9UaPTU1+xfYL0RtxWtf
vHKp1pGjEwXHwm+snwWHBsgIgu/b1/ATbL8O9Mf95080z06+L1W1Yn4cRXv8
u4j467/l9y9UTDFFfHEQW0VKlNbB/b8ESwa+/v+wpse+2+q/sWay0cJ6nNxl
aEWDw4itX/74XXHH4zzGLfVP/6GDceLcGYlbb+PstcuYNn+O1j4Yf9Am6H+J
XeKW76Od0n7/X37jefyb13ju9Bt/C58TZ38UkXMrVAS//11YX2+cL7HC9xj4
4LmTv4g5bnk93Dfi0J/++EP5h9qPWOKWMRc1JbUlYzHikefIwfv/x98F9VwN
PHGfWoNamLFz+cpVdFSsWk0xxh4Z9o5UlViSjzlKlCmtPoB2QawxBiXWOKi/
+ZhbI7419KWBNQ4eJw6NPjf2vjGG5vuIMeZCmF/llkM1p1k9jff+nb9i7ofY
In8xD/Lvejd1pRGvdXLtpb1CXfu4YObS2WLLc3Hx6j/CSxGmkRKlvLZu/Sq0
6dAWcxcvxLYDe7F+93ZMX7YQUxbM09rUsjWr8jUkeS1J9GNcQqzWcS1btlAN
2aBZM+0b6DF0kNZxWTtireDCncs4fP4fHWt2bsKKreu0jmP+ndeKlC+tg9dI
X/8y8A0CI0OVv8IiQuH/1g++fq/w9NUzvBK8+Qb4weflM4kH9yjOmVOkflH9
RHsrwt+7sGLp97/Efxcsks9pfP7/HQYWle8Eh8YoInxIu/mzYCEdBQoVzrdz
bskN5IHfC5qw9eOvv+CH//ygo4hghds//4VBC9HW0+bMwsPnT8VnBOD+k0fY
smsHeg/srzZDnDW0aKR58FJia8W/8zRt9a/CRfT7eR0GH/+bkzkKyfnznDn+
kv0/JWb9Q67d4HReX+nyFdTu6Y+IDePayMXkFXIKz9fwF+Qt9kIzZ8hcRrVa
tWFmKfGSxAq16tVX7qpZt57uV61ZCxWqVFWMFRas//zLb4ot4o8447Xwe7nP
1/EziDFiq3L1aspxHKxvMyfCGI38Q91Df1qicnnV2UYfNfnJiDONOI/XwM8j
bhW7gi/GpHye/ox5W2OODn07+Yw5IeMx+9rIAcxnsuZPnBm9AKybcBi5SvId
ccdj1Je2vXqinXAj6zvzVy/EiQtHEC8Yy8iKRUJCKBITI3We8vSZ07R+Olti
s3U7t2qPzoR5XMNoOgaNHoEFy5YI1u5rrxJrybHs4ZB4yuvwYdRtbIl6VlZo
5+SEbgP66hyfxetX63xx9h2wBn7w7FEcuXAc89cs1XnjrJ/WsjTTPjzeQ+pA
1vinLxDu9bknePNDmHxHkOjJZ77P8ej5Y+2fevb6hY5bjx4orzE3xhw+NST9
tXKTYIxYo339G2c8/luBgjoKCG8ZnMd9A5sGt1E/kttoGxy0c7XL7/EONeR/
f/sN//n1Z/zw848mjP34X/wseGti1RTzRHc7OHbV4zxGu6UNzZHjxNrrwLe4
ce8OVm9cj5nz58LeuZtirWjJEqYhvqNYieJqp8QZv5tbnjN5medJziK+uM/z
5XkTfzxWQLYFChfXazM4nNdKnuFn/lbgL/088uYvf/yp+ZvC8p3kU+pfcjI1
MGNaxlvMZZDfDH4i/sm16n8KFdbPMvwBR1HRsmXKltfP52sNLcnneA6VqlWH
eeMmaNq8meYZOYeNvVrEHO8Tt7wfOrdO7J+2T21HPmJspXl85jJEQ3EYc3LY
b9OsVUudd9zY2kqPMb/Negn1u9bRZVC3G/NRmcNkvoAxH22QPp/fafTXMK9A
zBk9JdSS5DRyGfeZN+Ho7OYK58ED0Nq+g66DyLWiUrJihJNCdH51BudyJcWg
v8RcrNucuHgONwRTe48f0f4bzi3gnOKN27fi1RtfhIieo36MiAzHu9hI8dNz
UKuRhZxLF52v5CSf4z53Olbt3KL9EaOme2Drkd3YcmgPth7eixVbNijnsVew
blMLVK1fT/PspatWQQOxUeZMLt+9iYeCp9chgabY7PED+Dx7pP3F5FHv+3dw
+7GP9nk1kt+KeWz6718FQ7S74mWo+8uZeE3skZjh8xyFvnMXbdLgr9+E+4zX
EYelylVUPuQ+7eT3v/5WW6ePNmIdxv8/i+8vVaEcVq5fi1f+fnj26iXSMzPw
Fd/w6dMn8N8TiSt793UT7BTBj7/9hJHC5/flejjHkhr5ud9LJGemIiE1ETfv
3cKWbZuxx2s3Zs6eoTj96edfRQ8XyucG43z+7UdM2Csp1yD2XqSE7ivOChf/
P37F0M58zOshZxM71HPkHBNmCinOiiqnmmI0chtjM4PTNT8j58P3GnzPvC/x
ZeR/mZcit/F1hr7kdxhxW/XadYTnrXReNnFBPreU35/cT7wwx89eEuKK/SbG
/DU+pu4j5ogZzS02t9bXtu7QTj+vfSdbtGLdTwaPkx+JOWKS+DR4jDlMciQx
xlwB8cueT/Zk8/uoIY1eZs7ZIX8Z8waMuaesq9FmJ8+bhe5DBmvMVs+6EVyH
9sY/F44hKSNG1/2IjQ/VmvSzF4/hIp/Bfghyyr2XT+H95AE27NsFxz5uqlE3
bNuEtyEBgrFQ5baomEi8DQ7CkFGjUFZ0RN0mVjqPwlWwOXXZAu377jN6CLgW
7Iod6wS3q7Fyx0YsWLNC++26in+oWLemYqxCrZr4W3xoFfFnMxbP176VN+9C
8Uy04iPfZ3gj38u+4EtynHHOE9GTR8+e0j4v1mapHUsKPogb+veffi+g9kTM
8Ri3qqu+85WBOyPG4TE+z9cZGo2DeRXaEe2bPPDDjz+qnbEORy5lXptYs+vW
FaHvIvBFsPVNRlZONj5+/Ijs7Gx5/FX++6J5HfbE3PG5iw9f5bkPOcj+mIvM
99m6zZHxRVFqGqznr5Tr+49w5Q8//FfPgVgz4iHjPLlVzVywqA5i7U+JU3/7
q7A+5n0gnxlxqsHv/+YiYsbYN/Qu8WbKS5rynkZ+Jb/mUMKU8+X5cLCWSawV
KlxUt3xcUOJFo95i4M3oLyCv1WnQUPFF/iHW2P/Jx9YSk5Cb2NtAXJBTGJcz
V2GqATprHsPRtYf2iPL+E2ftOtvqmjV2XR3Q0a4zbLvYaW8psUisMaZjnzbz
I8Z8CeYhjX4D7jNeM3q1iTN+pzH3lDU36kkDdxzE2bhpntpz7tivP5qyT0k4
kWsZ7Tm6F1EJ4UjNiEd0XBjyPmbh+MmjuobV0nWrce3BHXgLf7yODMbhi6ck
1jP1Xq4UjgsID9DcSHTsO43Vbt69g86Ojqa6WiNL2HTrpnME2VPLXjznAT3R
a0Q/LNiwTLG23mu79uFOWTBH50iWqVZV+YHzikvIlo95zpwTFRAVjoikOITE
RODZm1eyjZTta+3xPX/9Ks55X8PCVSth1aqVxubkK+KndIXKiq9fCxRSuyOO
mJv7tWBhHQVLCvbKV0SxchV0a+DQiH24Jcf9/Idg6z8/yfiv2kcLGxvNC1A7
UivqEG34899/yv4PGDPBAzfu3EZSSrL4sDiEhYXhypUrePjwgc69+fLtM/I+
5CqOsgRfYXJ9adnpymdJ6clITU8RXZ+ufc3RsVGCWMHcty94IVw5cPAg1BJ9
9ePPpvPhIN5+/bOA8hWxY3AcOY1YI8eR14ycj3F9/+Z47vN6iB8jr0ocGfEo
j3Gf+pyDeU2jD4D443MGXxlbYo18Rrz9XbCwHte65vc6J+NFYo2akrEe69PU
kOyJ5JZ4MziO+GBsRb1HrceaM2vRHKyL8RjnwlMjMhZjft/opzR6mY38CPP+
zE2yvmJgjXlM4ov7Rp2OfQU6n6Gldf7cVOpIQ0uS06gf2fPBwTVJmPtnfqRN
V0e0srfXfm5ibcfBnQiLDdY5aNFxEcjMTsPiFUv0fLfs3YWbT3xw8/kjPA31
x9ajXoq1zq5OOgfMN8RPe97ZO0J72r1vPxpYNNG8SMkq1VDV3ByVG4q2tmkJ
C64Z2rWDrrs8Y8U8zF+3HNuOeCnOPIVvOfefvU/EGnOIpRgf162jOdTzN6/h
xOXzGndyzaQpc2dg58F9iEyKR6jYYZzY5ZmrVzBt/jx0F2wzZqcOLFe5mmKH
NlW0VDnFWuHSZVFUfl9ui5Qph3LVaugcHva4lK1a/f/kE2iTHDzWtmNn9OzT
H4OHj8DSlauw/+hR0dHbsWLjBj33huKL2ZPEPBT7EFizYMzF+bFH/zkGHx8f
REREIC4uRrFGnkrLSEVicoJiKT4lQTGWnJGig8eJNQ6+NjMzXd/75dtX5OTl
4tp1b9H5A8RnO2pe4b+//Ir//PxLfixmxGPEF7HGazdxXNH8WM6IQQ2c6fGi
pno3dbFyNuv6JUvqVjEl+l57BMqURhnRIJVq1NDYjXEc36v4+t6rY/QQGD07
xB2fM3KofA39FvHGwTwkczHMZRBz7EMmp1FHctuyXVvN41PnEQfkH2KDuGBe
hLxEjJGvjJ4Tjn/XxIkzbnlMc5OiF5mHJOaYXzF4zcCdMf+PepXalfvUkOQ3
Y44qYzbW1Yg15kl4nHxn1U74195e17lgL+WJS6cQnRQlmIkU3xqC4Igg7dHn
eS9asxq3nj7Ew7e+OHDhBAZPGYdWjp3h0LcH1u3cjOcBL7UXkfNMqJlog+ZN
rFGyclUUFDsuUaUKyshvwblQtSzqo2n75nAR3Tpw/HCMnz0FO4/u0/kmnnNn
an8ee1mZ4+JvyFyiQ0/RsRMn6BoR42dOxfRF83QuDOM36kr24XsdO4xYscX4
jHTlNQur5qhQtYbirFR5wXw5icFLl9dRqFRZrUUUEZ1XivOcRauyJ9lS9Amx
wjWFGOsZ9Wr2R7LngT1GroMGYtaCBZg8fQZcXN0wfe5ciRmfIVx8zEPfV3gT
EY7AmCiEcz2Eb5+0BnHp+jU8ePwI9x7cx/PnzxEZGam9L6mpyTpSUpIkRo6T
mC5NNSP7AIi5zLwsPZaUwrkNcTqM9zD/RE4kH+a+z9E5c7v27EZfwR1zheQ2
DmrFf+eEChYrpTqSuPs3vxkcR3/Cwf2ipb7jptT/+jzYI8JBzVGU/Suil3nv
zKytdJ0T9ozTTxp1EOLJ4C/lsO96knklo15CDLNuYNS1Tb0j5TRPaKw/Qi6j
5mNsxX3lompVFEvGa4zatK6D9D0nydyGEXsxd0ls6n79uvlrHfF9fC37dOgb
+byxthF7KdlXQN3IwViNvMa4jTgzNCwHtaRRXyPPMYZj7Nbazh7WoiFpW5yH
cf/pfSSkxwvGAhEY9haPJTbj8Yq1a6HvyOGi83bi4MXTmLJiPuwH9oJNdwdd
v3bXMS/FWojgk/3HrKstWLYMVi3byO9QS+Ku6lrLrizX1lDOlXMgLFo10Tk9
riP7az/77BUL1R+Qr9hPx/5d6jKuqcH1MthPN3/Fcpy8fEnt996LJ0gWO3wZ
/FZzJVzb4kWAP67evYWU3BxEi15z7tUbZSpW0TUUiLVK1eW3qVpT9iujaNny
KMj8dplSirc6ojG4tsvw8R46b5zzp4kr9heRV9knQvuhLbnJ8+OnT8PZi5cQ
m5gkcdV74dVEvA4NQUC06NnAt9i4d7fmepZuXIsr927h5sP7mlu8dvOGzm/I
zMxUfL1/n4v4+FjlN/IW+S0mMVY1ZCLXVchKUw1JPsvISENaWor2g3JLTcnn
iDm+l/FgsJzD2YsXMGTEcLVrxpLEmBG/aZ2+eGmJW//SmM2Et//lKY16BjFG
7BUrXU6xQK4y1hXSvkXxO9Qa7MeuLvutOtnm90WyF5u+yajV/RtrymFFTflT
o+bNof3g3/tSOcpWrqwxIXtXWDdn7dnodeQ8APIa940atYEZY50+7Sf73gdq
bMl5xBq5ivs6R+47NnUe7vfeUeZCmB8hzhirGf3a1IycC2jEaNxSOxo6kvzF
PknymzEvnDijTY/2nIIBo0aj77ChYseL4Rvoi5jk6HysPXz+GDMWzkELuX+c
3zV71VKs3rNNsTZi1iTltkmLZmnO/pHfUwS9C1Iu5FzkpatXo0nzVsIZch31
G6JSvXo6d0VrgS2tYN2+BVyH9dc5W5zjy7U/2C/CNca4ho328clvzvwh93/4
5Wf88Ptvug5JlMQxOfiMkPhoPH7jizThgUjhgI27tmPV5g24LtwRkRAvvJAO
p55uKFupKiytWyjOipQsi8o16mg8VrZmTRStIvFZpQo6n2aIxzhMX7xQr5Vr
6/B8aUv03bWEZ4e5jxPM+CBVdNsHsetPYtyJqWmIT01FztcvCImNwevwUOw9
fgwuQwaqJiberkuMy3rfhm1bdA6pxm2xsTpPNiM9VbmKeCNuPnx6r7gil2Xn
ZomOz8jXl0lJppEiWMvK4nHBH+eFJ8Xmx8mm/Al0vYgmzay17sv4zZSn+F/d
8Jc//zbFbqx1MDajhhQMsN6t2po5eYlbS1asrDqROR/OYWBfPvvz6ftYz6kk
9tpU7J6+mH6K6+BwHSLlNfbGFP1f75hRIzF64gyMGf0mhm8l5hhn69zsGtW0
P4v9MtyS69i3wpo+6wCsk+kc9dqmujV7QIg34pLaz4i3iDXmEA0dSEwRo4zd
DF5kfj9/TkAL6/zef8aCHNSLrC8wXqOG5D7xxuPcktOMXA0xaMzpJs/tP3ES
XhI/MG93/vpl0T4BCIsJQ4TEasGRwfB5+URthPMqN8j20IWzOHbtArYdP4Rl
ohtXeW3Fyl2bcODccdx5dh8B70K0z556afnatTofkHNorGzaoUmbtrAWvmLd
gmv8ch1o1q2XbV6DOcsX6prOXM+Po2W7dqofm7RoAc8ZM+Davz8uenvjnzNn
8EuBAtrb9zYiFO/FqpJyM7UOwb7o/iOG4hXnRkssE52YKGgEbktsRB/K387M
sqlofzOTnpK4hPmL/xb4E39ITMj6AteH45plHSSmri8xNPmccSOPbfHai2v3
7sr3huP52zd4HRKMIIm5XgcG4k14GAIi32Hf8X+Ex9ZjpOdE7cneeeSA1iM5
P/TgyX/w5NULxIgPCJPXMh9JniLOGH99/PheYzX221BLEneqG78/5nPEWXZ2
JtIFn+RE9gykpidpTxwxx2PkuOTUFOR9eI++/fuhmvAydaSpvlX0f/ULiWHJ
b6y1GZjTeLRUGZQoa8JY5Rq1NXYlr7EP1MLaWn6/7nCSmNSmi53+nvRRXBdy
zoplWLFpIybMnKG9/pwbQaxxvoPRl2LkN/Pjt3/1R1Ob8jdnfE1OM/Uvl1eN
SHwRc1zPiDEWa9rcss7G2Iu1bdb7uW/U/Ykf4omxFzUkc4yKse+5RB7ja4y8
v/YvM9f4vb/L6D/mMW6pHTVOky0xRv1IHUkeI6dxS6xxn7lI1ojJb4zXqCVZ
82Uen2uH3Hh0V7jpOd5Ghogu84d/RIiuK7L90AEcvXAOh86fx4GzZ3H2zk0c
FMx5nTmJPaePYfvRA9h/9oSuiUObp7bbc+wQpopP5zp6dvLbUI9RFzJP0KOP
mw7O0+e6tKxBcN4+80lOvXpg57692C7669jpk9i6cwf8AwM0h3fq3FnNmzPm
Yf2fNdX03GyEiW2R39lfkSCaK12wRw12S3DBmlakcI1t507q48+euyD2mYqA
wGDs2bsPi5YsxpRpU7F0+TJs27VT64RrtprWH2EtY+w0T11LcvuhfTjtfVnj
wgevnilPnZHH/5w/o2soLFyzQnu5eU/JzVyvjeuYEGN8nrnRJOGnOMFC8Ltw
hInOTMvKFEwkKZ6ycjKVuzgio9/h/cc8zUvm5GUrzshXRl6E2CPHUUMq3sh1
iaZ5RmkSw/FxRkaGchvXjOgg107txto6bZo9NL+zP6zw/+oAqi+/98ZQM5YW
vU3NzVwF7V/rz/Je9iYyl8D1h3VuGH28DOYDZi1dqOu0cm1Z1rjIEeybIQex
VsA8B3td/i5UUPtmtLexfFl9DXsbdS0fwQgfG71YxBI5i9hir1adenWVx8rK
eXCrPf/CV9qD1dQyv2eYcRaP8xgxxWM8HyMOM/qQyYFGboSYZo8XMcn3at9y
I1OtnHzI9czqiCar1JA83lrXXzHmA9J2jbiNa7JwTSbmDVm70nX65JhfaIDW
qG49uY9Ld7xx++lDPBFNdl0wwzUOLt29jcPnzmDvyZOKtT0nTmDH0aPYfuQI
lm/bjJU7NmPZ1g263XLIS3z5PKwVP87cPXHNPBwxznV9h7mPwbAxozBj3hzt
r50+dzamzJqBHQe8dP2AvYJpaqxzVy7hwdPHyk2vhT+evnyBBNFcHFzHI1ti
sX9OHNccN397zomOTTZxWEpmqvYfszeStSraMTVV+DtTbzLzo6npafj69asO
GuS3b9+0rhyfmKDal3WDvUcPKd7YH8O1QOasWII1O7ZgrQyuh8D8DfsC6MMY
J7OXjD0u1AzE14QZU/W6jotPIs5Y82NNgv0gCYKRJOGzUOZFJBZjbsPgLuKM
9TZijf0AoeEhiq/Y+BjFGzFJbUnuMubxpQreUr7jLJPxXGqyYo31ct6vVpw/
JtqC8RZ5nHHnj38V0Bwiub1AwWL5cVyxUmW1blhONHfl6rW0jk28/fDjT6LX
6moMyF6WTTu24dKt65qP4noorHvuPnoQR8T/Lly1XO34h99E8//3B53rwL4T
1t5/+e1X3f7Oxz/9qP3M7GFjfw0x+ePvv2KwaFHm+IlP+lTW82qKvigt511D
OLq2YK9Ktar4ST6L76e2ZI8m4zqDA9m3aWhNDvYosx+LWGYcx3nepvXVG+pj
1hEM3fnvPD+xy3ki/I2N9Y3MWjfT9Y6IN9bzWFsgh6hu5Pp4jna6NhO3Nk72
aOXQSbHG/PnR86f1Pm3au1PXcCMnUfdwbYy5K5djwZpVqg9mLVsCj5nTMVRs
m8Nt2BBdn4tz4rkuRe/vtsfYkYM4J77Y57/Da4/y1D9nTsE/OBABor9odyGR
EUjLyUJ4TBQCwkLw3PeVchG5zPeNP6JiosXG4nVLXcQ8W0JSou5funJZfsv/
aP/C+8+fkCkYjIh5p/0rtFniy0/sm/ZKe2bswxgpJSUFqRJfxcXFISQkRPOB
xGBEdBRe+L9WbXr6ykW9B8s2rtV6JOcgsU7C9XI6Ozuqz6M2KVS2pPaQ0fex
H4f8xlwqbe/m4wfau3nxprf2Z9I2fYMD9PNZm8j78knr068D/HQ+BPOOrKex
vvbS/5X2ifiI7/O+fR0v/ISf46L0NTp/j7kT4UBiLZ38JltyG3FHrKWlpSEn
J0e5jbWArqKNmVugDvxRNPPvYsc6F4j5kEKmmgC5jXMeSpQx1ZOZc+ecF+o/
9hCfvXxZ/dlHGe/lvDPEH2R9/agjRc45/VOeHsv+8lH5jXp+7MTxqlHYT00/
O332LJw4c1pzNxu2bJa44Kpqa8Ywuw8fwBzR3fRBT31f4uUbP/W71Bpcw+Wy
9zXNudH/Xr99C7tE0x8Vn3vs5Als370L60S/ch3OmXPnYOHSJdizfx+mzZqJ
3fu80GdAf8Vv9149FVfkWHIm5wuQM6vVqK6xn7HGMnOd5EFd79zCTHtGmGeg
XTf4HqfpOkDduynW2JtMDUkcmOpg3dGxlxM6uYmmc+mqx4xeLWNdF2oBY/1K
DuZEqMeZB68ifoC9G1y/kPknrmfGuZxFK5bF78UK6doAzM1w7ip7JLme+54j
B3W9tmevX+Hxy+e4ef8u3gluaNfEFDFH/vILeKvHGcvwGB9zDarwdxEa1zC3
9i4qUnuciLu0DFPOjdqP/pH3/dO3r2qDRj3qTYA/7j24ixevnitPkBeSkpKQ
m5uLRInlYmI4xy5JR1BYKGJEe/E3fiPYZIzKNbaIM94P3kfOWaK/pg5hfznn
lHEeKvteGRu7T5+sNQjOUafGZH6UfMbaH+2IfHn36SMdrEsEiz9Ys2kdvMS/
sa+TOUdij+tJespncaxavxr7JeaLS45XH/JAND37P4k7zoulXiS2EiXmi9a5
s1x/JUEwmKz+5NOXz3jt76d1PcY0P/z8s+bpGUuZ5j2Y5hcZfSbsPyOfsYeY
OGPe3VhXedbiRRKn+inncw4Cr5FrqdFHr9yyQXt5qJNzvn7Kx+P7r58Vnxzc
Nx5nv88zHZPXZH56r6//+P01PP5Jft2P8hz3P3z7ovsf5FoYQ3DkfvyQ34dj
UiWmbV6efO7XL/jy5cv/OW5smfsNDA7CkydPsHX7NgwfPhxj3cdhyLCh6Czx
J/mSMSH1KjnPqH2zxsCaAecWEluce8E1ypg7oY401ibjGnZcV6VFl45o2skG
nXu7oHU3O31MzFT/nrtlzo3YYd80fXXJKhV0y0HNy/5f9lFXrFNNcxP/KfCb
zmdg3oX5DOYmDp8+oTHMhWtXcNvHlON++PSJ9msRQ9ySp5iHI3Zo58Qd7YGD
94HbN4K1gKBArfeSixISEhQf3Ccf8THXXvzw6SP2it+iLnkrXEi9SE6jzuI8
mydPHuGp6FHm0xnfZGWZuI3jvfxeSWmpiBXtGBgeqtqO/Oon79uwcxtmLpqv
PMbcL3UF7zW5gYMxO6+d8w+oJ6gRuAYO6/BcE++NcA/XGuOciGPymDVAxr5c
4/7klQu6TiX9PteHYA8n+41pZweOHdF8NuN1xx7ddQ3X9Vs3Ky94TJ6E3Qf2
4d7jh8q/zGdyLUpeGzH2b6wx38JaNzXAt+/2OW/RQo1LuPYKh84tZV2/WCnd
kttYQ2ZvlLEGAWvTrHNyLRXmjjhffrZoavYd0RfrGiQjhijv+4YGKr8Re2eu
XlJMcsu+1TtPHuK6+D3OKyS3M271DwvWe536IUe37EWg/+E2KCpC+Z+6O0Zi
Wn0cGoyI2GjEi2/R30rs56X4b15/jMS/zOPmikbKlRg+Tl7HPC35nnkkamvm
nvDti6nnRu41H+fl5Cou+Y8++PXr19oXsFN4crNg0bVvH61TGrkY9nq16dhe
+yy5b/SqGPkRXTe3fWtdy4hcxr97xRo0RzXmb2Sw/4n1SK5zQUwZcxQ4n4fx
In+bXwv9Kbr6R4mtC+nf+OLfs+Icm0Onjqs2vPPwgfI+YyfG/sQYe26JL+pB
YoMaMEQ4JCLynUm3yTZIMMjnIgVz5CvGTeQzHgsODjbxj+AsPDwcUVFRijXq
PsYkueIfOSybNFatRK3IfB05jIO14mfPniAoKEB8Xo7qKn4efT7xHiU2ST0X
Kb9ThLyev/OFG9d0fSznPq4a4xvzB3XtYIkBjPwz1xRgzw7X2qJ2YNxySjgp
UnQgY132ZxNT7Ck7ePq49utQe3Dtba5VzTVz2OPCGIexKv0V8wNc65u/J/v6
iDf+7YOFy5dqHmnFujXqzwy8hYQFK96IMQ7aFgfXgjXVyVPVp6WIT6FFUWOw
r5VzUInphhaWMG/URHOzVWvW0bkv7Pnl2h/MibDGyToZa/1c9566qSPnRrLP
9nt/BPNB7P1jDeSfi2e1psS8F7+DawIxduWci4kzp2k/OPNGjOmoA7heK3NN
1NjEIXX2U3/f/L5WPmbu7qFoE+oN3i9iNEN+S2KNvyt5PVtwlfy9FhIr94NY
4zHq66zMdNXWxBvrKznZmeqX+Pjbl6/Izc7R3tQPHz7kx+6fPwsWJS6hFif2
jhw7Cs8pk+Hs0h3tReu1bttG+59ZM6DOpJ2Q28g7xBv/bqCuWS2xGuM2akri
jOu4cT0o5rfJX8bfKuG2aOniEmf+gf/+9pP+LXT+vZdDJw6JlrmPwycP45L3
Za13c8uY4vnrF9rfz8G5ZexBpu3rVvBHu+Ac6jCJzeiHQkKC8O5duNoGa020
j0CJ47h+MH0zn+OWWonv4X2k7+J95ecRn7w7h48eUW6jD6Pf4mfz9Xzv27f+
+pswV04NSdzy3hL39K/xWWn5mu6c9xWMmuihfatct4r5KN4L5pHZv0Cdz/iQ
ORlirqpgjZqBPZ4T58/CQ7kHL0MCcPzyec0vMXfJdY1Z42ROi3NgmVvhOm3E
3KU7N5T7GIcTh9pb1NgUn3MtXua3tK9ugrvaNf9W29b9e9QeqXf5t354r3hf
EuSaaWu8N8QdeY33lXqafof6lPP7Bkpczb/9x5ikvnkj1KvfUDUje7vy50Rz
DnXp0lrLb96hva5dxHkWxjp+/BsELb7nuRm/0h8ESHzMOIR5WP07VsJ75EDi
kPEr4xTyH/Nn1ObEGv0P42LmWNbv2oYNu7drTwL3mTtg3pf5BG6pC4hL5hbI
k+S2V69e4KlolwjqErl+Yos4oqYm1xFPHAbWjNwRt4Yd8T0f3ufq8eTvmpw4
5RpwRt8pazLc56AtvpaYaPfeXRjAeaCDOAfGVte949+b5JZ/e5FrU3LNMf3b
pUP7aQ8S60fGmiuMRX4r/LdwF+d7FRE/Ww2OLt2w77CXrrXP8dL/hfb+X7/j
rfPGGM8z78f8H2N3I+dHrFHHMTfB8wsODlS7Jw7UF8uWj4k9DuKM18TjrDtx
y2HYDHuS6Jd4DyMFg9rTFB+vfpt4a2RpgcXCs58+fVDcEqfEXqhoj+ei0Yg7
+inqSHJicroJY+8kFmLulbXw/cePKr/o/Hmxe3J64TIl89e1YF7MwBqxx/Vl
uSY4/5bdkUtn8TzojerHG48f6HwIrmXM+JaxLO2P+pHY4Zqw9OkTZk3TvwPD
vnHmV8iTrP2wbsNYnPXQ+auWqb16zJiCMVMm5tcU2B9DXuN1RgneaGO0N2Ok
6v2JVR/z/zF2H2BXVde6gImxYhcLCvbea4xdo8beYu+9omDvgqJSLKhUEVBp
0qtIFRAEFWkqKhbsqCgKIhIVTc688x17zz9/cs+55+qznrXbv9lrrvmNPr7h
fsgvwNs99zeLe7vFdnqft0oNN61wD8Ba9JFVOcToMxxYatf4GAcceUTaWx8J
rmBcWsdU4tzk+pPdn468JnuIfHctsKanyzWIA7hWHPdkD357cWrX4/pgTs2d
axSTU4PnOsklvqD34BBv9VO9u1dq8yZNSCOzDzxx4viwJR32intNzsJI2I95
T9k/3uNHeOw9WPol68fAVcYafP6c7c/f8/5xJq9g0nsO+vE3dqjejH/+HudS
HydO8OGn89LoLBMGDR+c7s8y5rp8nedcdF7wdx6Q72fUZmYZKr/BHhU3las4
Nq+PmWHjs9x9Z+5bGTcfptlvzkhTX5uUZr81Pbh+8FaJSxc8iVmTs67F4Xrn
V+3osKnptIwBB7yIm5V94TprH7Vf9znHt9VaQN8VPkp+f/78+XH4r3Hjxumg
Qw6s8dn8nrnvv5vlwozo3aZb2Y1Llv4Yfgw/8btlP6a38xpNzr6VfNk9Le4P
OR15TjMnsq3IbmSvy/eIW+mRhDV5UPzb7INmbVoHN606ls8yZs0MeGZAn+iB
YHPBkP0j3hK9TNWZYPZY0XnqEOAMV12Z72Av26fsNLyo/o5/ZH+K34n7kFHW
E9bYTkW/hV3pcbXOUt4A1p7K/tQmGfs75H9H/6frcn3kSOEOcpa/5Yuwb0qN
hHlW5lWZs4PLwm8XLxBHFLvl75MpbCn+i1oKj/1mOhC+zOORs8TnqmYQpgoX
jutVZyGnUuxscV1Yc/10YB97uc1DUR+Et3fSK5NTv8H9U8tHWkVciW0lfiSW
JJb7wtiRaf43X6bXZ08PPlJc8PSCehzy376EOTiyz8hzcgoG4Y6egzPPvbc8
Y5Qu9JgcK9grelDNXdGBv/++PE2d+nJq2/bxqCkgs623Wv4LLrk49cl+RvlN
8ARnH1c54d55940076O5wZdvPgXdVWxF95JNSEf5/XBW7MVyfJTfd9BL9kTx
M/47vJWjYK3YRbX1XYmT6AcbO3Zs2rhB/bCX5KSC1y7/rjfemp1ee/3VNDXb
/eIhbMeIyyz6Ps37+ov0PE7ZbMfBAputzEqh0+w5eRnrA19syMJ/wVY3w+ng
E46OGZJvf/FxWvDTD+GzmYXDfxMfZm+dUa0hsJ/8O7jr4cseVL9DD6hLsKdh
TW1DxJf1P2ZdYp/b1/alviJzAfRdwNqXVfux9hpar6+qMzwWRlzy27Al7S+2
xwkZDwdmG1Uc3HwKOCNH4Cx4urbcrIanTTys5HP3OujAtLn5U3vuEfVZYs4w
Ke7Bv+Tv02t7V/PbZUYT/IhRi+Uemt+n4+hquGRPqx100IFlliobk03q37Bm
cAl71kCMiV3aplPb4BRVX9jo5ibp4faPZV+wVfR4tXjsoZiXjQMRNxuONpyh
Y1+ekH/vpPRexhvOejb4smxP6m969923Yw9bMzEWdqb1dCa/4I2ugz1+n9fo
QHh0Dn9wScZltpmW/31ZSv+VMfeP3+PYMe+nU7J8bZ9lRODr3Tk1NXa4TT/F
nTNvbvrgw3fjMYzhivzs83lx9juDp7FqF8IXm8ZjWCh4Y9OFjquFq7Bx/hes
FT1W+/uL3vQcbuQA6Cm9JZtmGWy2oHwwfSvfJjbOxiXv1JDIK3wBb/nfVePS
MfsK8tbuc/Cg4oXJOit40tRJbL1VYK3S879xvKf3iZ1J/5jjhOOe/Tj3i08q
nH5ZloqXqD0x60xehVyHaXuOTcluNDtCTAoXMN95OzMK9fvns/pLe3vfbMd5
3zwK8zqvv/OOqIN6vHPHNGPW9Fj/sk5FJlnP+VX+TL273y78Kmb24BH8R/o9
7P+d99gpZtGbQ22O/YYNK/neldeoG/qczQNr8htyifK76hz5bWohcbSrU3Jd
s7Jcpr/kfdUKygHrkTYnV10F31eeVR4q5p6ddXrEeNnran68X2Ln6gFgzPeS
UbAHX2oHykwmcuzaLHPMjjfr6/Lrr4k+lZub3RG1ftffdUvWhw/Gc3xtZsk3
uvX69MJLY9PYqRNT/xeGBOevHnhcNQMG9U/PvzA81pMPxA4ir+1bvn7UqmY8
8U+WVmMu8Fdsy0XffpN+zvbS0sWLUtIHvGhR+uXHH9MPXy9IPy9anH5f+lPE
6NiIvueX5cuivu7z+fD0cXDB4cjHC+f4qjo/EN4++fSD4Gb0vnsNV3BHfjrD
m99Jl8FamZUEP99Va4pq46w21mr7HEWHwVaZuVTwJuYi7yauSU+J/x97/DGp
8fXXhR3JhhCvkQ8eNnJ45ITl7cQe5czF2/k9YvV8dXoF1qIPI+t6tUKwxr4K
Lsb8nD2pziB4r/faPWSumJNaGVhjO4pDmoUk1yK/bT+q34I3ZzkVe1K8F9bM
jxUH5jeLT8FV8HBnjOHk9hnc+Hj+1Pbe3vy+9ECbRyPH9fqM6bHWxU4v6/qv
81cVLvYFXwTeyNGv8mN4u+zqS9OKdVeOGfSwttLqq0TdBV1eODrobrytckxi
bbix9JuLU/LxyQu4YNexk+k/mJP/lXuCVXWFfDo5KXaD7/H9heu09Hs6+xs1
i77D2rEFYIu9XTg8xIjYCuTbBY0uix6RMy87P/3twrNi7r1ZJGaiO04+/4yY
T2L2gjkJtz/YNObs6d9qfMdN6aF2baK+/uksA9u0fzx9lX13XIgwqJeJbTfn
nbcCj+xN+9x+L7EAse1iby7M8hvm/v7DD2nJgm8CZ78u/iH9I+Psnz8ty77T
h6Gfvsj+vLO5L59+lv3tjCP8xTjy4Q6u4A2fCD33UVXned3ZvfS5Bd/Mz75c
tj3fm5PezRgueIVT7+MCL3LW65V5Tv86/P3XMavwi/ibcug/xa/g8PjLKneQ
nMH8BV+nBd8tjFznjdnX3ivbZ/wSvc1seVwkL2S7bsCwQVGzIq+MowhPUKkV
LX5JzGTfbpsa/4xttWFwllbqyr1X6unYeWQ020etjfo2ccWP83XwMcQc+cLm
NKm3lk8Tb6EnnMX21QqoizcfQP+XHOfeBx8U/YR6VP5y/HGBM3N+6TXzY2+7
797UrlvXyLe/Oeetf7MT2TQVm+GbmgMPuzXHA/P9D9/ErKxlvyxJX3/3Vcy8
EScx42aN9dZKa2+wbjoj6xX5vcKT57px68gp6ZWWC9jvoIOjDpk+ggcxC3ER
cip4Pg74c6yp3IV6KN+HgyDmXhx8YPAaiAvgIAg+rPzv+LxagcIXFzM0qvPR
4JnOU1dQ5qPpdVarVGbqmDlo9o/4i1omr3tfbRO/2qy7Bx5/JHKgZOFVt5jH
+FAa8MKgdN/D98c8b31h5uv1G9ovDlzBYoF6oCe8NC6v96w0bvzoOOP+fTfv
c/4VHQVLZuT+lPXhsoy/3/RhZJvrp4y/3xYvTu+/+2ZlRuf3C2J22XcwkDHx
ccYU3MHSZ/Z4xhOcFQzBk+cO78EITMDjW/l3vP3OG/EZWPU7YAvWPqvykahL
91rM7v1vsBY8XPlvy1Eba3pHyGaHevl5n36SZuc9x/+6K/vU9TfdOHos2eO4
IvH/jH95YhzyqGqB1da4l3QLH4NPIvZaejbYi+oHYM5j/VNkvlxb9Bpm+S1O
CKv8jq59ekat5DfZX8MTIWZGj7GlyHP7qHbfMJkOa3TZOhnL9Bib0XO80PoJ
1dDr7TZ784rrmwQ34D0tW6THn+qcho4dk8ZMnhj5/pITCbxV4/1mZDlgzbpa
70WLv40ZPt8tXhA99/9Iv6Xvf/o++MLlTXFvbrn91hEz05sCa4XLXP0v/ip8
dPIEO+28a9r3gAMj78pOJmvUDrEby6wKMSYcBDGDMWNK7hdPCC4DWMOzozYD
bwi9yTa3LvIt9GLMChF7yrKMTuPrFS59/h/MqQc+MePQHDRnGBOLktuCNfYG
jMEi+6V19nOd22R75pHObVOLdo+kJnfflO2axqlVu4djrne3Ps+kRzq2SQ/n
xz2y/sPtMXL8yDT4+UFp4LAB0TM29dXJadSLI9O7H+Y9nm29iGvQRR/Ozbbk
D+nz7L98k3Xfr9mmdPyedd37b89KC778OH35edZv+Tu/+eqTtGjh/PRJ1kcf
5L/HlR/HFx/HwR4UQxd3FIMs/hxMwsR7+W9gzOsxn6mKmbA1M5Yd82PuZ8Wm
KRiDPzj7v7AW+qvCYfIZ/To//46vP6twLSz4POqR+V9sQ75Yz369I0/xYf7N
OFvN88A3zhfWH8Tuklt139gq4u2whue+6DU+mRp0+ozt6By5NP2HGWeBlQP2
DfuRTKe/5LzE8OVzyXi86mXuhNqCmlk0WZbLV9MVMX8n7zuzXNTu0GfwRdfJ
G+NSoM+a3HF78JVdc/NNWfbene568IHUuWePqPVSB1B6tb+pxkTEIskw+qzM
pcPZyU75Kq8dXrTFPy5MH+V7riLqo68/SetuskHwouyZbYJj8l6e/saM9OBD
LaJmmLzZOuvdTfN5+x12Srvtvmc6/vgTU8uHHwn5IYYvLqiGhsyyPq5VLJcO
g7XDjjwiOAx2yXan3MwB2d+DOTxxMC3XV+Y44msjk2AV3pxL7R/dVmxLGISr
v8Bf9rXpMBgTr6LLxIDNGaTvmtx1W/CzwdmD+T6ZIfnAEw/FXNRGd90QPKVN
zYJ/yizK+9MNd9+c7m7ZLLV/umOaOXd2mjLrlfR4p8dj7jp9Ny77fWZy9hr8
XBrz8rjIOU99fUrENZZlebvgi09Dvy3J92Rpln/Lf1ic5r3/Vpr/WfbFvpgX
swM9dqbj2JJmwMDSO1n/wRE/8f2sG2AtctT5c3Penp1mzX497EU6D0a++77C
xwo7xXYssrVgqbwfB7+seo73v6roSbFN+ou9GH7k/M8Cd56Hv/bpvJpYh5ql
CdlfYge9mG05/FqTXp+apuffJ/7Ue3C/wBq/nA0HB/SUPYELPGpzN9owsCU2
B2eei8/RafLZ/q5wTJCv4mx8MHF8+Vi5VjlX/gdbk/9ROOXVsvJ/2EvBx7t7
pedb7ZO4Hv+Mb6ZX7jo1CuefF3YjbOHhZD92eObp8NW6Ptc7jZk4PuI/pc80
eEv+w4aEtR8WLww/e8mP38WsBXO+4W5J1mk4K5bn//UcrrImXv6V8rVuEfGy
g/LvgTN5Abp9i6znt9o6+5mbZJm0cYPQcXSYWKo6NPKEvLKm5Ai7gS7Ti6nG
AtbYomKfe1XPpeaQ/1tmOrE3YUzMhC0ZsZNqH2bhGqDfgk8n25fyCPBFt92b
dfMl1RnJ8MRndn4y+2P0HBsTT9vtD9wbsxivuOnadG6ji9M9D92XWnV4JLXu
+Gjq1KtL6Lf+2bbs3LNLmv7OzNRnWL/03NC+qfuAnmngyMGp1WOtwu70ub7P
D0g9BvZK4yaPi9gHm+6Dd+ekn39cnBZ/+3X6Jft1Zn6+k78H36qZuJ99/kHN
rGn3xVzO8Mey3fZ2xtqMWdPCRp351ozgOKZj3s84fnnqSzFXENd3iZcU/8xz
+qvIV7K27AHYC4x9+3XUZTmL31fi+V9X64yqs6e/rMT61WaJt3g/YpxZt/LL
1Kmo3/0gY48d1O257unbpYtizrU5qCMnjk3NWt0fdpLZnNvtskPaxax3PF3Z
Rtok46khTlzcumL79FreX4XrFw6Do3rvCj+g/hk9g3x0cp1MNW8bv9fAUc9H
zDvme+G43G2nGh+v8FcET0x+Tf2AOUl4LA/Mst/8aLM2W7V9IjVt1TJ6APXB
DRk7MmKlfE31pjgw1W5Hfijrb/PnrG/tGavFPveew3teE5sM23LhV9GXo++I
f9sx28BsRjWAdIuZaIVrVe9m4duX725YXZeI1WZbWF2LnhQyBHbYoNaLrioz
QumugiU8WHS8GIm4Cf1YbOzCCeJ1vluxueGP7JLP8xjW5A/YkXJ29BtcyZOz
G81updfoPLajuCUd5375vFjmhddens67+pLUtPX9WY/dlx59sm3ENcdMmRBz
PMUwne97pEXq1rdHuvPBZjHT+ca7bk13PNA0PZTt0Ee7dkhvZx1lHjvObZzE
r746NWZ8Lsl2l5jksuyvzc2+4KefZXvxwzlZP83I+if7ap+8n774qjJv+vPq
XDOYmpPxqjbrtZmvhr84/Y3Xw0/8IOs9OINpGIOvN9+aWaPP6Diy1f1dvOjb
2AvuvTmFJW6vNlJNMqxV8LYgDvVUgbv5X6b5n3+RPvpwXvp4Xvb5vl4QvTHy
Z3L25ta88e5bMZeq4VabRT6F7Tgh29VmJ4rvyrNcf+uNeU/sHPNvN8u+/Cab
bJJl9MZxbmBf5XP9+vUDa3i86TQ5SHvHniKrxUTUT+CLhTH3NzjTs5zEWamm
SK8NvKmzEocs8YLSo1i4ntT3msWJoyN6abPteHmTxql1u7apbddKn5z8rVwB
nxB3kdrCoSNHRC9ObazB0f+ENWdrX2awlphJ6EKcJ8t/jl7UM7PdekbG+mFH
HRWxD5xI+FrwEviteMK3wkGY/Te9KWUe0yVXXVHpk84HvV14QY49+cSaHpUy
q6nML8QhB0+OMv8apqyNo3AXlxlNhSOk9LqwL+Qg9ZGpQVTHQvbRaWLD6sHl
XcyOhzGHGk4zys3+ZmM2f7RluvrmxoEhM1vESnoM6hO5AWdHiycejnwBLN5w
962RTzDn0bxwHMITZr6Spr2bbbv354Sf8ss/fq3MTM++ljzb339cEvH/2W9N
SwsWfp6mzZiaRo8bET4z/3nuB3PSBx9V8CUuQZ/RbXxAsZc357yRXpwwLk3J
fhA80nlyN3I4r2W7DcbYlOzJGjvxm3/5EeUoubKSo67tezhKbs77cBm+YvWg
32CNPuOfOdpnn3fVdddIczL+4axr72fDdnywTet094P3puOyzaHGc6us+xps
0TBwBWtw5vB4o402CpzRceIj9pU9VPZF5Jmz/wBj5d6qaVDbISbisZgLvWY/
VPhVDoj8UeH0LGc19GYCOuSuxB+PPe3UvEfOTNfdcVvYRGwedRPsVD3jelD1
6eCflXdl5xdsFawVfBU9Zq3JuxIzgTuftb7qltgU6o06dXkqYhYxB3brrYPf
Bx8C3QZvekfVcsnl6/WCNf7YmeefG3Z2mfNZ5ls7F+4d2IK3Mlew6LTgLq6F
sTKbUD6gzBqEuTIzjX1Or8nxsy3di4OqNfb0nPgImxJvttfoNX4cuVjsS7ES
8cprb7sh+5qtQkfJuU3N+uORTk8EL5z56vJ2cgPeNxPbnF54Mx+0Q48uafKb
r6dZGSevz30jTZrxSuTL1aTwceQDvs/644fvFqYfv/su+zdj03sfq3Ock/XU
tPT+vHfS519+HHoN3sQ2zcOAL7rNY9hTizV+4ovx/keffBB5G7GLidlmY0/S
aWLMDnqt5qhizP2OWPQ3//1R8moLq/0h4tlRX5nleOEE4LvJnenlmpp9JLkR
tZ94g17Pv6vP0AFRO8B2xE9kVvua9daO2HbDLXGs1gv9RZdtildms81Sw4YN
K9iTw67yEm61XSW3rV8p+AIzdsS8zrnikujVdf/UWvHV1UOIUfPnfM5ecIhD
2jdkdXBX5L3kMRsS55S5m2KRsKbucK+8f4869ZSausGbm90VeaUnnuoUPqda
yLlVmcM++H9hzfteL7aFM6w5qzGSW1VPgnNBjxGsyaPpq8FLQreJ88Ma+xH/
t1644NfPMghm9COoD2UXFp0GT7XtSlgrczwLNyqc0VvWo/AW0P3WBtac4bHg
rPSw+BvxEvluOCt6DNZKXfSfsk0Bh3AHc+xG8pF9eVNez4c6to2ZSPg/nu7X
M3gJ+j4/KPSW+eKPPdU+9JmZ5uZewxkd6P0BI4fG59mO5k8MHvN8em5I/zQ4
2zR6eckv+W44k99mQ/bs3yNNmDo+jZ44Kk2eNil8MDHNWXNmprnz3k0z3pwe
tuIrr70c9ZB6Lx3yey+MGhF89Pqd1cAOGjIwdB0fQOwEHugieT96yT2FmZIL
WvDf5Ky/LvXpCypHiXf6fvVs6q1gi+xQq6mvS6+c/jP9u3VW/mNwaanxVcOj
vlFfHQ4M97HOyitWZuhmvcXfL7YibNFj/BC+m8NzsTJ4I4/tB3EOdYr8APdO
DZXYiHpi/oP6KXkfcUqfKzOryeXCE+PwPZWZDDsEB94eGWvya7B28LFHZ1l8
YvTo2jdsIDKYP//sgD6Rw9Pv/dZ771axNr+mjq3wIdSsqxoDddpVroRS1/59
tZ97YbVfAtZGjx2Vnh81Mh2abVl9ovpDYQ0HGa46eo5eM3fGusgBsK3FGvF4
i9+W+Usw5nWYKjO9SxzE2fOImcihHVbRb4VbuHCf1szdzTiLPoiDKjN2g1ef
jZltcza6Oji1O7Dl4EfjQCkY85r36TP6jZzUa9BzyIDUZ/jAwA0b8q4W90ad
iVn2Zs+bMX/U344P3MGaGhWP6T+cPLh52nd/Krip2JRnXnRueviJRyOnqzcu
6pqzDameZPlPP6UH2jyYnu3fPXUf0CMNHzMsvTor+2JZH8LY7Pxdb2cb9IPs
v7Eh+WXq72Bt1hsz4xCThImO2bYZPHRQ+Nnq7tS4qC2HHzYgzH1frTuHpYK5
qNnjs1WPYlMWrNFlsCV/P+OtWRFbFMs3J0Oc48rrGqXnBvaP/hL3SY1D/+eH
Ztv6/rC59IefedH5cS9XXLNu7AfxdlwW8ka4ZsRAcFmUGEn4aVX8wZlckD3i
+/lg4mDiW/pLxJ/lVek0cRB2pEOdEv1W9k3x/QsnWsxX2bOi0/DAqcsSi9w9
78Hdst112AnHBQ8crPEDC8+kvIL8Ha5JXGW1sQZHtbFW+ko+zp8ptTpegzFn
NXzuhzp4NW2Pt30sYha4gIIDN9uNbEhcP+r+g0euyknMti61tLAl3ihOUjg8
2JZ0GBnloPu857MlJhL2ZF4La1I4eQp/VZmlW+pOyuwKr5W5GHBW9Bo7Ea4c
bA348tisIzpPvBLG1JqIk6ijY5+bAcgepKvorIOPOTzfvxPT0afiJTgusHVp
46tSm87tIjZCz7EV8WC9kjECZ3gX/Y1eGrNP1HhFX1fe53Qafw3WLr/+qsjj
9R7aN730+uSoWRk+bmT6funimJGihlDNynsfvV+ZnZv9IzWTartKvfGElydG
LTVdo79G/SHcwSWdpNaevYeDrdS4lL5hvgQbx8HvqKkVqeaqP/3yk+CcHPPS
mDQu698Z785K0+ZMj/jrWRefF/PKXpz8UrrqhsaRH3qq57N5TXpF7lOOWY2j
OKDaK/UaZSasvVJi2ZE/04+WDxiDPTjbcuutQn7j3+JvuMfur3ohdQiwBmfw
JufKbmTXqPVSBygvZC+VGUXh62fb0B4Lnuudd4j4oxxbqeXd46ADghN2/2wr
XZH18emXXZhuvr9p9OfoPSU/8Ji8/s6bWe588H9hDX5K3L9gbV62uwsfidfU
zhbMFS4uNW36sfQgi3nglws+1KzT+GvikTjk2JCwJhcQNctbbBa6jI7yGI4K
l7DHrtV7OIrJK8+9T99Z08J9xeYovFf8WhhjQ5a8eNFzZGbhRSXz5NzEIWFL
r4+ZffCljwlvvvccbAM6jW2Ad0ovr5pVvhicHXnysfm+/SnfxyPydx6cLrj6
0tBt9NkVNzSKWEnbbp2CA2v2B2+n17Ldx24885Lz8p7IfuNfDwvf5bJso06e
MqlS5/9f/6jotL8vS//49Zd0+IlHZz15bPiInXp0jTrpgS8MTW9l34weEcPU
n+BQv0vPlN5PtZlsUzkuGFM/HrGx/Lx3n16p69Nd0lNdO6duz3RNE14aH3hn
r5Q+G5grflvtmpEvq1iTrzazXt0M7vOXZ72S5n39SZoxd3a2r7unw47/a7ql
6V3BIwNn/Cn9hew4MQmxCfH54Ljaafuony2z7+TNSjzfuXBM0G/sSrkkNhLu
eP6F++t+88fhS66ULPXvyPvIrcr5qI2FO3vFvogZYNUcm7yT/Ufuk/H2oNiI
OhE2JLxtbz+qYTryL+k+c3wffzg4ytRa2h96t3B8zM++ll7y/xfWSl5bX0V5
3WfUpztHzWyV4+63fyxPLVu3iJkf1gSfT8y9rs7nKXqNDSkOCWfR71CNQ/Lb
2AtwxG/zWsGb19iMHtN1Xidz5APoK1izNuxCcolMKxi07kWnlXi/1+TdcFjt
W9VfuORgzBnm2JEw5jH7Eb6at3kouAf5amKS5111WfaBr4h+zl332yvb/fuE
Ljvo6L+ETaiW2fmp3s+kOR+/l4aPH5U+/OrTLOdmp869ns6+w+Xx2QOOOCSw
1ij71voG7Ot//uO3WGc1/78u+yn99vPfIwYqv0APq+Hs8OxTqefgvum5YQOC
m1U8z3xqtYRDRw6PWIR6XrE/dVDmQNGBZoQtyHhj75n5oHazeb6+084+PeZJ
3Xr7LdHXEvw62c4Upyk1RWSvnlF+nbhY6SMOvyz/O+Ic5syPmDgmjZw0Lr00
85WoJd3j4H1jxq1Z6+6V2gW1O/RKseH0g8mFlVkI9gS82SeOqMfKeo49VOqM
S/5a3pVOsz/45PAixqy3Q8zYfWRTqtELbgA8gMcfE3EyOo0chjX7JLjQqvYT
rDnDmr5nB52mH5NOo9uOzP5Pm+x/4qekz6ZnOTfipReDSx1v5yfZnvi0am/D
kJr+6KdauiTwZV09hjlY04dVeAHUp8Mh/aZ+lm77/Z+/pc5dnozednYz+xFP
MZyZpwVrods23Sx6t2Pt8hqpgRFrpNvYkHBWZlIULuESjyx5fNctLlL4wMuM
tBKf1NvFxvS49kwZ30E/4hYvXB/uMx0GY5vuuG307trL+1dzAXAGc/inn+jW
OXXOssqaunewycf2HeQlGapnR++43jk9qmqq1TtHb+7USZHn9FrU3+0rnpx/
8yFiqgem62+5IY0bPzbij9H3tvDb9POSSrz/l5+WBv/IKdmng3M9xPqC4NjB
lu3ev3eaOmta6p198sc7tg3M8f1wqj2bf7e489dix2JhGWN68vBYwQlehNZ5
/ze6/tp0QLYFzPQbPmJYxFL0CAemqrH+t99+K3y/4D3MmIVls68nT38lYkNs
5bGvvhTHzffdmY449fh0+iXnRm/KH9dYLfY/nFkX8XFxO+sIa1FTv9XmwWVg
P/DZou5o++3iOdsHf1n0zGxcP3w5z8UIjsp+k3q9qHHP/hU5ekQ13sVeUceg
HpDNCnfiIOa+ilsHV2m+bhgt8QF7p8xrtt92oMvYkNUeGrptvyMPz/5Zh/RK
9kHlXfnw3fr1Tq9mnH2dZRqsmYGF4yb4kav96mGff/5pZa7G95UY43tZhsmN
wBhMRS9kxlh5rm+LzBODlBMSx2dTB797/frB8Q9v7EdYK/MI9RmJ+8MavOjF
gbHCpR8cqflMppRZTPBY5sEU3e5xiVH6W69bq+L3lfetW03dcl5H57AXMs62
r9am4qPw/JDqTDQxyJipm21+tap9RwyNGma5AP41O4RcZofyC9RX6gvXN6d3
FdeC/ka2Eh9cHR58FP5w93vnfXbPv2X/dHj+98ygfO+9dyu927//FjpN/DHw
lrG2c5Ypfznx+JhZyCaCOfkcPk+vfI/xRYh79RrUP+riL2mEZ6ZF+iJjquWj
rVO/IYOiD4zPJC6G1wf3Gx4PnMQ/5H8Dt99j7dpGPcIJp5ycps2cEfXC8td6
pM2R0BuCO8Shbh+3lZnR+F3IF7+HTLos4xbv7FZ77pLW22yT4AfXT6VW0Byd
54YPTZ16dg8+/v2z7LN39amYdYNfPvZL3kNkM76owl0Nb/Rb1Glln84+MndS
7ezReX3oqJhZrpc9ry2ZyWdjU+rLUsvMtlFnfPYlF4Y9FBzw+TewlSK2Up3x
FTMaqrzz5kzD2W5VO1Lc/7QLzk8tHn8sPdHlqTQ1+2k9BvWL+i+1lviklv7+
a3BL4vaR/4++12+/DU4ydTb4keT5cda+805lbXEa/ZjvRdQJ5LX1voPfDG+w
Jj5iZicb0tzG0G3VmViwF7Og6m9cExsp/pr1I7OsXcyGqea0o6YtH16DoxLz
dy6z4Yue/8+58f4G5kr+oPT4FH/X5x3R/7RTZb6u3lv3Sa1r8PBn3SYuho/5
1mZ3hy5Sj8fud798Ds7IT9iDszK7ha0Cl3jD1J+p2YHNyN9kGV7mi+576AHp
0XaPpQ5Z74nNB1f8rz9HvQjbUV4t8Jb3+Q759/IPxLw8JhPki/Bh4ILg+6g5
0gfsd8Dx/ocfnAaPGp4uvfbK1LHrU+nlaa+mcZMmBjbwO4kJwp8+se/ddzbr
P34P3iPzj/92xunBqYmDAIfqC2NGZ7+uS/BuBc5wIeXDzJmeg/uH3mZrsw12
z/p66712TZvsuE3wz95yX7N070OtU/NHHk69hwzOeOyZHu3cKV11843puDNP
j5pefBm4M/RdRWzNPBTc2TvsGHvBveZrFK5rXLpq98yfVKsEL/QU/Lh/8CWX
E/Mj87289Nqrw5/nQ4iJqLd0jnhZ1X6yv2rXTDjDnJyxOSH7HHBAyIK/HHds
XM95V1wedSOuX+xFrRZeWDkMPMq49XDPyofBFMzhHiOr1OHM/+rL4GDp3rNH
6tCpY0zT0FPrPbzPeLWiXgf3z7cLavihW+V1ZEeK8f9hlVUiLiIWWWbJ0Gni
I7DmIJ/oNjjzmOyi4+DIAWOFq8XnyJuS77YOMOXwWtSIVufGWBtrBFfWkB5j
P6pNtp4l1glr8nL8O+sNY2yQ0g+nBhxnl9fEooq/53PuF1ypPYAtNiT84Wps
uP3WYQ/p51CfzpaRx9F7qHeIvOUf6D8Sy2BfqLvRm+3Qx8ZHW7RgQVqaZZpY
5O4HHpi222uviDPTcc43Nr07+I7VLuCFGDZ+TOR3gs88Y9leEws97oyTgwsH
xxveVXwTr86cHnx18l3iZLiOCr8Y/s2l+d/HTYunH5/d0p9/Sc8NHJhOOvW0
dHvTptkW/Sotzp8zn+LVN2anERPGh4w/9ozT0mbuRZaDFza6Ot31UMsKx/mT
HdNjXTqnp/v3Dbur97Ah6fGM/1MvPD/LjWOirldvmPlt8AZrMd95g8ocdvX7
7pWaWXFK+2WdDdcP2Rqc9VW9VOKJpd6cTeG+4GWjy/iD7iM/nt0Io/ZCkdv2
ln0U8x/MC8v2q9gLHSG+jmtfrq0ODm4z7NdaM62Ah3vlP6aV114j1a23TvzG
VdZcPeYkXZ/1uDXFSUpefZ19A/WReOmmvPZqatSkcfT04Qq+6bZb07sfvB+4
JPP0Q7z/0bzAJ9+CLYlDGdbYIeKz4pDWyiybmGFcnXFhtkxlBvbaYWvr63M9
hTOTv0anleslY+AG/mCp6Pai0wq2fL7MIYz5hVXdWGzQYjfWrvXi+5V6MK/r
GeDL0YF8PjbJNdc3juf+bfe0YFftGN0WfCmHHxI+fb1sJ7EpS/2BOCf94qD3
2Ix0I9nH5nyo3eOp6QP3pudHj4j1M1+ILc8fhjN+2nd5P9Nt9NrWWaZuueuu
aRvzq7LONh8NdzhO8Vub3xsYw2mvblNcla2rxmyr3XeInlf6FYeSelj2Hk7o
wSOGB7+oA/a+5UvkvWBWxM+/LY/7PfmVqXH/l/32W+rao0fIUTNpRr00MS3J
++ebLAcmvT4tZLxeE78Pl8x5V12RWrR9PLXp9lS6Lcv4tk93DdlAl7EdzR64
q+WD6YJrrsq/99DAGo4BOsMMaz4++WzPVGZ/bRB+nN611ddfN/aO++KelLrZ
sPVKrYe48kH7Bc5wHgefXRWrZYaec5ljFLm8DerF95bn8MwvOvFvp0R9YQXz
m2f7YFr69b/+K2Y0mm1hBpNYm1kIdCVuWHL9nIsuiPnq8n5Nbrox+LStJbuc
jXDK6aelc7IdCnfDXhiRmrd4MD3Xv1+8NzbLrg8/+biGP5jdyK+DM/ERr+Hl
rrNCxvvqq8c8LjPZ5LHpX71r6kb4u3xb61eOmD2R8QJvsAV/sBTzYqrxSnZh
sRGLPiv6vtjWZQ4orHndfYAjmCl+n78reXH3KnoDso1pfdwzj/Wm+jufcS66
kQw1Rztyfvl+0WP0Fr4FZ3wL4h84ZdnvbDoxE+/rnxIPYF9Oev3VNOj5IZHz
otOWVrlI+Gk/ZJt+wefZtp8/P/Qaf23LnfGG75rtrOyz7vOn2NO4xNmU8qny
gGo0TzjvzPTno/4SfpJ5AGttWj/iqvwIuWPzbvjrOG7xOz2RdcyNt98acQXc
n90yDnC3w5qeMzIXR+tv+d4+lH053PLk+tN9nksL8+/6MsvgRzp2CF/MXHoz
vti4J55zVtiNDzzeJt3dqkXgDt7oNzptbMZ3y3ZPpIuuvSawJrZXsGZmRPH5
6TXzLmOeQpUTU67bzAX368isE4utQnaq9WCD6POHMfYFOVj4Seg1XK3lsb1X
fBb7r/hn4p3id3q+5e7YsuLoK61WN+vQv6Yrrr02ZozrtRE3KfVK/BT7A3dx
iyx/jj3xhPB72Qzd+/SOPcyef6xDu9B7OKf5dGNfmhB7y2+xZ33HDbfdEtyu
N99+W7rsikvTXXfdkQbme9ajV/ewOfA7XdW4cTrqhBPSiqutEQe5hNP/0COO
TCefdnrw4seR74f6LHrCv2PtSjzDUWbnFt0Hh9HbntfD57zvsE5szTLTyX3x
uu/wnfYRbNSeY8gG5V8emH1cZz1yDvN9ncW2+CyeO8vfHHH0UfGc/Ru6Vl2Y
Pow9dw39ptaV7QZbbEvxELEvfnrMjL7gnODLU5MHa2J4Yn048JZUOX9+XPR9
+nzevPTR3LmBNXX+cmzb7bZHzI7fZpfd0g577R38tmyu0y+8IHz0mNd01WUZ
g7tk+223qIcRT11z4w3S+ps3SC0ffzT0Gb5gcWhnnJzTZs+MWQlqouJYoU7I
9htuuTmwhpuRfbk02z/NWreq5HXy/hsyelT6Jus/tqO+yRWzLQVrZqHB/5mX
Xpyx9FjGWJvImZjrAXdP9uqRuuQ9N3zCi4G7sy67JPSgaykz7s3ipdNqsGYe
WdZndBb9wR+je9QbOYocLjWzYpkx4zXLQT3Ia2+yYeA0+JCrufKIdW6xaU1v
qT1mb9lH9pnaSjF19czu9y576N3aJ/RbnZVXTnVWXDF075Y77Ri5Nzkmvge5
/GC2Ncz1USuDrx3n/bLffo0zbnJrfH/rlqlFtv/tRXjDp+x38KPEL9jHdVZc
oTI/JturK6z4x7Tr7ruk4/P1y8tceOklqWnz+1Ljm28O3Hfo0iXd3bx51qUX
hSzYZ7/9ox/7L389MuZ/t2rzSGqd78Gtd98ZuIMfutv1ljm6ZT5uybcUrDjI
H7iLGaBVXedzcFBmhZYYZJkh6rORB89Yg7/QZRlHdFbBmt47NTBqO71npr2e
cDEvvrjnkU/XI5WP6LnIMhTu1P/wx+BNbJANWfiGYMGsdvEMvL3mJqvHotPE
RILzNWNNzfFH77+XvsGBkPc6m9LMY3MU1JW6v+HTqJf40z4xO/KMjDkzEw7J
8sAcW3OQxRjsW+fz8943E+PHX/4euVXxkBIX4b8/+HDL6PVtsCVugU3iHuOo
lJODNbE1dmGdlVYM3TXm5Snpi8WLs0/WKPadeZ5iG2xlcQm5D/UyD3V4LGaR
3tmieWrW5uGYl0uvmefZ7pluwTPF9nRNbEe+R9iP1XnNMR+9/sah68wDEYu4
uek9cX2u9cTTTosYoVkt6nBjjvB228WZL0Xn0MNsKzlfn+F36UUR5zjmpJPy
Pjg0XvN35t46l5peh9f0iImHeO53mo2GM8falr4298TvMvOCTDo9y0D2wOfZ
71Z/vLDKH87/M7dHTnCl1VaNGIcc2R3NmmU8PBZxGHYheWMGr/kA4lR0rbkj
vmP5P/8RNj5uidvuujP/e38InJg3Qxc+mW0IuCJ7Tjnz9NRIr3he6/MuvyzW
zTWxh8ucG2vscSUnt2XUWe6y11757/8cv8fZmnhN/aU5HWVeB7/C+ljHPx14
YMgkfXRsWc8POfLIWG8xXP7Hvlm/+ewBhx0W6+lzvt9v2nn3PbKM2y3iYXjU
xaDl5ItPSDYUDhjxFvaifMGjnTtEPk6tnFy0Wte+2W6k6+gTVvhn2fcV+5C7
VntauMzxoHoe/lvGI6z9a17qdrEWDnvEtfu9Zd/Ye9Yl8NmgQayJ36ifggyF
rYIxto24JF6dl6dNDe6PX/65PPqmb8q/HS/skuXL0vvZv1crQdbi+fwq+5M9
hwzJenSPtL4Z6Hk/swPFgPhI+hpgTZ86bhZcLfc+9kjq0P2Z9MKkiaHXYA2v
21GnnByYIDtgBCbgzPzYNddaJ/QafcfGPOHMM4JnQN29PePemaVpr+ghsT/t
W3an1/+UZaQ+GK9tv+uusVdOPfvs7I//LWzAE049NfsLFQxZR3vG5+xxn3X8
+eCD49/bOmPEfoEz+N1p771i7i1eOLICN7UZug7X4vmEV19Jj3RoXzP/0XH6
2WelFVZeKfSV2AV/yu8Vv+d/iSuGr5p/f+jOfJ/JfbaWmIhZS2IquFtgLeIs
r78W8hG2zIsxZwhfrxiE2MJFVW4GMhlHsn0Ts+UbNAz7WMySjezwGFbsH1jy
eL9DDgkMOawNfDnsR/uS3eozcAU3xa9n31pn+KIXilzSL7HH/vvFulvvynz7
zeLf3mKbbQP/zjBnnlzh+oy6PT1Be1byBmUmiD4LvAniFnpP5XFxq6iV+7Ja
e/Pr0qXhj9Fj6jLU6AR/QZUrnz8Mh+R96bsth7VwjeSBw16xFq7R694vcSl7
GB7NL/yOrZr1mzgkviqx//EvT6rO91sYOe8lPy9Nf//9l3R7/v1mLH709VcV
myYfcmNDsv9uDul6+T5tkdeCDQhv9Bq/Ve2nPoiHO2Z/rXXzwJo4SbeB/dKw
l8YH1uAO1vSB2bcR789r7v7BjtmxYiP2nP3r+82ip9tg09/YC1E3sfEmgbVy
773mPVgzN9q9PQynXPafTjs/2/PnnRv33HzbUlcceeo99wib0L7Qp3Z29onM
cfcafeUMR3SbOpLgRsClk/dNyQ16zXvsi/czFkZPeilmjS1Z9lPEeG+89ZbQ
ZeIW66xfL3BkvvA7H34Y1193nXUqM6uz7+V63Duflydrdn/zmGl2cdZPZebS
R599Gj4fP8w8QjYim81cQb6fPMeV1zcJDpQLrrwiZJS9YD+Jr8KavV3mBNjv
3rOO/GbrrxbMb9KHevgxx2Tb/ZSwV48+8cTQWc5hu2Zbwd6DIb215BhZVdbE
jA9Yd1889jm6w96Ff4fX8Daw280MOeCQip3JpmSnBvfJgfuFzY6fWm+ummU+
i54R/pv5emxIOW2yR26SL8ZmnDN7Vk2dDl5XdVBR/5btfDX/oe+r1+/wuMzb
osfMrbYO1tDzii7bNuSlI3qaMj7JPbia/+2COD7A0f/V/MAb7H2p5vGH76Kf
c/GyJWn6mzPT0DEjIldbZ9WV08XZB5mVZQGuRDwb4jX11ANlnWOuB/tZrl5u
Uf+sfj4cSA8/1SH1HD4kDRw3OrA24qUJqWvf54LXzffYw+yxYv/BTtiOG24U
vPViMmxUvHG4Pexte9++pAOK/eO6fYc9Er0l+TvZeu4vzJ2V//7krFeuy/ud
7Q13vgte4Mye2L3KYXrptY1CLz3asUP8DVlgBiGcwegNWU5cf8ftgVk4LXES
2HXIX5hZzfbk81+Vv0+tgLik2mHzBlZdY/WYbwhrf//99/TCuHGh29zv1dZe
O3SFPSueyW9s0/aJwNjlWU/RbyVHg7W+yS03hW4z81PcpfTGyHdcc9ONwYVS
bEj7hM1jjek2+qzgzjoWG9HvYGfYWx5bVzYT3XbyGWeEXcBOoLsOOvzw+K1s
A7ajz+gZJ//ZAWwDNrY1ck/ivmQcwqe/cbZ32ax/PvCgyhyejLn9Dz4keFBK
HKfgTG5HnOK25k0jp4vbgo4T68dFL0ap38La6E2RS+OXTcn7/+05b4bdqOY3
6n2z/4Z7/B+/L4/9U+S1a6ejy2sw5Lo8Lz4GnPkMecRWEK9mi1nLM889L/p6
xcfKrDXzQYNjOP8W8wQX//RDcKTiCHnplcnRXyv2I+aIB1H///HZhzDPnl4T
sxfbUL8k3yG337VP9/Rkz27p8W4dU7se3dJzI59PA7OfOmLKpPRCPtr1eCZ6
mv92wXk1M3i2qNaOwE/MSF9vvdDLfFX/hrneF11zdeic1bNOYG/ZE2IW9oxr
de3OXocL99eMdrrs4vy3HsMOvMAgnMEKzJC1ZC6MPN75ycghvp3tfJi0N2AQ
jpq1apkee7JTurzxdemok0+KGe90o/1EBpANzmaDmlUofklOi8Wbs+t53bXW
DpkiNj8w2wpiJ3xjfhdbKfpes64S1zB7vPGNN0RN2vlZXvD1zOCEOXk4+0kc
Gc5KXRkdIE4bM3Ty78QP69pxOLDbYtZ8th3gLGbe5D3i98Bc8cWco8+b3KrK
b7hgRxU/12u+jz6DMXij+8gJz32WjW39ih3g7L64j/hb4LF8r++xn+GOTHDI
A4i1iDnLTUfv6uGHRL0fbOnl5qup6TCbGceF2R64D2NmtD4x9U4ZXzNnvJ5m
z5qR3nlnTg2nvrocNqT4SekBJFdgrTb2nOk3n3HtZJDnfi/9732yCs7KodbC
zNTuvXsFt7A6ELyN8j+vTn89DR/1fNQr42R4olO7qNN/edbrwRGlRklMA4fU
BtneWCffI9yk7Ei18LAo/qNfUn1098F9Uode3dPgCePSsEkT0tCs1waMHZUe
6fJk6Ek1WupGwg4Va99yixqfC9bsWzOjYQ03XOPbb4v7I4e8Yt26cS9gLeIp
G20U9976hI7M3+keH519QsdJZ50Z+oyNyIdgh3oMY+xM3wuDdz/4QBr/ytT0
1eJFkdvoO2xoOj/brn6ffft69pW++G5h6pzXUMzhqryP2ah0JFupxKRgXf7N
fubrw5h7wTY2Rx7eYE3/7PdmQOR9IY4JI/JO9tij7Z4IDrLXZ80Mm5M9GX1F
WceyP907f3fRFZeFXrMn2S8lv6xvk7+Gj/nE7O+SL/ZHyLCMLX4RfJFV9JzX
Sr+AvVbmTnlsbfmwsAVH1p6es/eC5ySffQZm6CxH7F0zA6t2pPUuuo0NYd19
T4m7uG++H9bKa2Kg0Ut3wJ9ravDUkatbF+PXb4pTAdbU7syYOyfmlnz89fy0
NOsrWFP3PdccgOw3wde0aa/GoUfT7AzxE7VbcOZaSpyuxBCsAfnjt8JZ8eVi
/l3GGjvB84IxtQRiDvbmjbfelu5v2SJqruTR2P2w1rlb13Rttu9xy6lf7tT1
yYjlmPlqnlCrJ9qkJnm/i7NtvfOucZR5RPqVj/7bKVEfrV5bP2z7nl3T04MH
pBdem5JGvzY1DZn4Yuo7akR64tlu6eps96jh1esc8RWYzfrA/hR7hDn7tsQh
cTGKQ8LLymuvFXaWdSCX6e3i47hfwb1RrfkiH/Da479yyFPg4C+c/A78qjgg
6Wv5jVHZL/o02x3zst5wJ6ZlmXRCfk+s452PPwoMjn15cmrTqWO6M/tR7FI6
Dqbhkn7kv0XOcMNKjaJ7sOoaawbW6BH7m68kfqh+x8zShUsWp87PdEuNb74x
cgNmzONEMvPAvOCVV18l8hHimWSmmKQYl5g6Tr9KznnP8CvsVzqaHsex57eR
K/aTtS2/Cdasocdhv2+yyb/hzH5zlFiceA08wYSj+C5wB6PuA4x5LeIfeX3F
iuCLfPOcDcAWIPOKvwyL9oCj+M70YE1+fe89IvejJkgNsrqRqE8+6bio/zbz
BMamvTU7dXi6S1r0808RG5mYZfz8ap+K+bUOfU76NuUDli77MepJ+vbvU6PL
iv1Mz7qW4rtGfyC+MjHBbbet2FX5fa9ZC7FU99U9ZzeQr2zhex+4P+oZxLT4
7vJpau30Ico99urXO/rh/F6+3aKsZ81OfrL7s7GXtt1197TVTrsE1mDFvO5j
sv8hJqTm/ak+z6a23bumns8PTb2yrmRHwlr/MSNDr117+61RY2ZO385VeVfi
5vRb1Bup6882JBzgO30s23Z0SJ3VVo176hr59eHfkdVZvpS4rXvr+9ioZQYy
DlUywW+FQbrYex57DV84fn46fFpel4EjX4jaGBO9ZmUfqdeggVlefhV6r2u2
C7r06hk+XcvHH0v357Vrm+1z2COz6TVywt4t8R73YK316sW+9tw+5+/3HTww
YlZqTM19l9/uM2hApY7uw7nRm7Hk7z+mc7McV+Ovl+ilKS+H/2ZWrLowuTl5
Zjgrdph4EF0tF1viPHBT+tzEQoqf5nnIZbbQVv+KCxcbEqYKvnx/ideW+FyJ
i3ifTiu5AvfA/YQz+6bY4vBFr4kVe07nwV3pYfJb3cMyB0XtcnBc7LdP1AXJ
sdFjuBJwSqrJUhc8ddb0mA9kr8ptjRk3OrCmvl885Pnnh8UcRFjTG738918D
azfcdH0NlkqMw3XzO+GP7LHHYMs99b7r42N67G932+tP+Z5uETqt9DaRX/Qb
zveJL09J33y/KPA2443ZUSPkPqon4sORq/q++eJ6RL5cuDA1uuGGiH/vEL5W
th923S0devyx0YugD0mPSee+PdNjT3cOjPUePSL1yfrsmSEDU7/RL6QuWYbI
b1+ZZbrYoniLmDQ7Dzec++Leugee39KsaeqTbTn5c3KaDVn80WIDlb3huq0F
Wbpdta6Z7sSjCk90HH5wr8Ghuhd6rmBezu+IvEftT7+N/WUWxpisx97Iut8E
r/GvvpJ6DBwQ547PPpMGvDAinuMWx8sqXrSaWkQzTjfaJOZc28dsXVjze0tu
g70nzy33Sa851NCx3+d9/nH0L+l/otveMftj/JjoUXS/9FqIL7Mf2T7wVfa5
wz4+Nss/POge28slTk1GVXpKK/H1mHW/7XY1djibqchvB53m34An8W7/lrPX
fWfRcXy2vx5/fOzRyF1WbZaCr5B/ZnvTWfke8HdhTtxGLImcgrN/xYUr9UBq
k9Ukw5g6fn06B1brIvXXOPQywZp5wuKz8sr4dswaw/mBr2Dsi2OCjwAPgbot
3GT6pPc1l6UaAynyxTqwl4t9a8+Fr7vxxrH3XLe4ELkDa/sfnOX4fgfGvS72
DBum8Hbedtfd2Y78vqYuS02kWllxEjkcPdwONf/q9OBy4PDhsY7h92a9qY6M
PSjWIXdNr3Xo9Uzq9Fz39OzQQalD316pX9ZnA7KM6Z6fP5Z1vNoR9Zxstvsf
fSTd91DrdPM9d0cMULz93IsvDnvslmw3isvQMWOzDPBe5LKyTxex2eoejl6u
/FrpLYG1yN1lPWmWE2w56LKYlSQeQp7m1+g1Os/jwitC37FdvXfBVVfGrKe7
WzyYZrz7Tvph+a9p9ORJafo7b6fX356TRr40MWTBhNdejb4hf7dStnPJc1wg
a9fb8N9yGcXGgDn2nxnZ8z7/NHQb323E2NHp2ed6xDwRffX4LdQafY3/f+ni
0HX8uJcz1sVQ1MDQMXLE7j8ciE+4fjHY4P3K1xu9eLvuWsmRZRnJjyxY4ztW
+ip2CswUOxG27LuSY/JcPMNjMt13ke+XXHVVanLLLYExv8W/7+/ZKeVewE45
7B04FCPZJ8s3OphPCX8FgxU/b6eozSk8XepG1I/oPRXvVxspf62G5IMsj9TX
83eGjXohOKXE+eBsyLDBgTv9mT/8uDj4NvUpqTO9p3nTtP0uO9T4YfZVmd3q
Oq1H1DLk53yXkstlT//l6KPDllhlzTXTKWecnc6/5PK04257Rv+uvQiDJY5L
NqnjV78/7/PPQ+/KcTvTZThK8GTrARFr/nYR2bsk8ir8oW124/PsGTX76kse
aPd44AnOOvZ+NvXK19a533OBOfbkcy8Mz+/1TK2yL8KOlGdTv9wi79Hb77s3
dKbao8uuuSawJu6HGx/W6Ba+kXukviLWI8sNukIOYNW11gq72lqUmH85k+kO
99G+E8so8ZGSU4seNXnW/LnSI1r0nv26Yfa/cIz/lP0kduVb8z4M/A8aNTJs
TrNpzK6BNfGc8Ds3qB9Yo9vq6TPLGKPPyDl6RM1Tp25dwkZ3yL2oLRiW7SGz
D4aPGpbmffZhzcxNcSuPycF22V+8qvG1UTttj5C9ZKx9scOu2b/58/6VvZuv
y/XQJSEjt9/+3zAGcw6PYarsLefa+VzyvdTTeI2ek8M++8ILo/bl6iZNQp/S
BfYVDFpD6w9vJSbJ3vB72Ir6AdkUbPtjqjqY3ywWFvZH1mv8NPWtuDL00IiP
6E8MXsmMtzIbZcnvv6Qrr78uPdO3d/Aqqas3t1Scb8SYF4I3mk7jp8UM16zT
xN0PPvyQtFv+3uKrllytM1ni2l2LdSPPYa58llyBBX0gp59zfrrp9rvSAYce
Hutf4io+X/JRcpPyO199913IV3k3tf/wphc4eEgy1syB+HrhdxH7uvXuuys1
Ydln2yvbosecfmrU7rfq1D58smcG90vtez6dnuj+dNiPbMn2vboHDh9+qlPE
/M+/+sqIXcqznZv991POOTtqYPx2uVDyQl4IP/7DHdrHXr7t3mYRh+CblboR
sRFYsw70m3Xw29xfeYSYQ1aVlwVP8OX1gjl2jPtfYmXlcfHnir3JzrQPXsp+
nPq1H7MNMHnG9NDNdKPP8Q3NtvlD3dWCU269DTdOq625Tta/9eP3wlrwgGd7
HtZub3p32I7iHD/+8lO2J+cHn8XNd96anhvQO7382uTgrBg7cVzY9HSb/l6x
LPHKlVZfLfaB2G2J1+vVbrB1JQa4RbW2Rbyo+PSVHreKHVl0WtRtbLttTW1S
sSNLfYc9U7Dqc/SoPPYpZ54Zj2HPZ4887riI49uHtWP+pVbA85LT5OvDlPiU
2BXedraBHI9aBzkntqP6PzgrtZD4EcwYFhMxm89MTId+6U+/+SrsR37vwGGD
0ow3Z6Yx5ng/0yW4BtiODjqtf/Z3dsy60jzJUjfyn/FX8oOt6Lrtu+Kr0G32
29/OOiv+bs/9D0xNbrsjnXTm2engvx6dNt12+7TauvXSquuuE3EyOSB799l+
fbOd+0b6fOG36b3PPk0zs20Lc+xafD58SZjjw7Ez+w8dGrELscj9jzgyHX3a
36Ke+P62j0WskT57Kvtl4iBPD+ofPhqM6au548H7gxNfzINsI+eKTcxHF5+z
B8IHyfsbrzd94cz/4Nu5dnF/9ljBGuwVrMk9w5szPUhXFR1Wcs4wVvxxOPQ7
in2zWTXnZy/AT4mj+A10m9/Dj5wya2bYlXSb80Pt28V761RjqKtmjG3UYLPQ
a2utRzY0CMzxmf1udcBy0Xhq1e7op4c3tTv4a81WeXXGK3F89Pm84AbUj9U2
29XqePlqcnL2hn0QvWxZf7JdV6+3QcRy199s04jvijOVOBrbm26tHY90jtiu
upLNN6+Je5c6quLDlJpHdVjug3tXYpV0nnoSOTg2pnUsdTZFhnlc4lXqaa2x
59b5zhYPRD8xua33Ss0VTgM9mXrX1CbBHd47nK1qseTTFixZlEZlvyvyJAu/
idi6PkFzkJ4b2Dd1fvqp4AX5Oa/rsuUV23HZzz+lQ488LG2zo9mQe8U1uG57
qOSzyRsyX/0t+xj2CodZ4RCANfp+7Y02Tlc2uSFdf/ud6dJG16VDjjom8AZj
9gLfR8yMXX/mRRdGfPvT7Avov1FPgmvVPKgy3/5j3AjZJ3933ryKj73dDln/
Hx4cwNZHfyg7Eda6Zxv52SEDU8uO7eKAtYc6tk+X39Ak7Ab70b+vF4z951ht
zcohRxF5tg3WD99njfw5/QSes/cuuuKKSu1INd7Aji45cOtEDrgueCu5neB5
3HuvGh5jB3zBltdrx7+K7OW/ydOXuAmbxxn2yApxFLWachLy/PLG9JueUrkJ
WNtkM/GohlmfbRS4E6uCtbAlt9gs66/bY84B+/HnbO+o2ZmS9ZjYCJ3GhjQP
Zdqs18ImMi8Sr7F8m94g9Y9satdPn+EgoU/Xqb9J1G2ume91qdcsPUv8Rv++
XJ81ZNuWPGXIqmqc22d9b/FfrDMsshEjV51lfYnP2W/sLf5cjS9XtcWtsbhI
1IOz6/O6W1txJD41X5mNjjPpvkcfDnk8cPTI8MMcapLU28qt6QdWZyy/ZJ4C
3ni9K+Ii/DS1UHgF9ARaxz6D+qUnOlbyJ99meYbbSiW3PqUdsu939InHBvdP
0VOu1TWS9fDnWsmPUu9e1qbUccnfw+HKa62Tzrrk0tSs9UPZzmmTffzb8v44
KevsfaIfrtTpr71x/bCXxdXJZzG3dz7+MDjw6DXc4R6bx6te4dsffkhnnn9+
WnODjfL+y7b26aeni7KfpfaRDVnijnwzdf6tO7SLeMjtDzSPWD+7DNZWXHON
qMt3D8V53Hs4W32NCuZWWWftVGeVlQNrjjorrxQY0lPifpLLDvvBGhRbEibJ
cXKJre3+l5riUr9efHz7w+tktv1RarvhrczCpqvYOexI/sSJZ52Z7ri/ecRL
xG7oM/bPZ9kukAdU7++32/MbN9wy8AZrG24i37l57Ovgcdxy88hFj842zqLs
Oyz77efg5j3iuCNS+y7t04MPPRB4M7Pv+x+/SxdmOU+XqWFWv6wmy/xsMviP
q60W/iF8r7BK3bTSmmsH1lbPa+FMpkWNaV4fuXQH3QpzRWZ5z55zlNod+CMH
+f9eswfZiPah76PvrKc1K3X/bEv6oNgNxUcrObZSs65maONs5+t91NOvvkF8
mj8/eOzomEmCI0vdPp0GY2a64Y/HBTIg29qjX54YfZm4ESdMmRz2Y79BA6Pf
+c25c4Lvig25NNsLPyxbEjN/HDdkrO60+87pr1lvsiHpDnqt1KTCHJ2khkzu
5LRzzomaB/up1Btbd9cu78tePPyEE9Ot996XHu30ZGrRtm3+nVekQ4/P9tgZ
ZwSPr7jGxttuHbK5/dPdauLb7308L3zImMmdH6uJNv+aX/7djz9GrRKfhF6D
tVOzj9z8iTZR+6hWRB6b/4YPQczx5nubBtb0uMEau2blNdao4CzjK7C1+hqx
B2DOQT/VXb9e7BV6Ajbl18S91OyXWvVi71gjB9yG35ZlD+yU2BpM1a5LsG8c
nkfcS/3NzpUYQdGHckLObBzyV1xTjwI/00zRRzt1TD3zvTXbTV+EHFAdvlr+
3etuuHHosQabbxX7mi3puv64yqqRK9Mzgsehe/btO2TffcgLw7Lv9n0aPmZ4
zOuj08zy/S0tj/nQcKYvRx2JvpyS+9DfZN+vVW/DVHft9aJXmw0JX6tX16/4
s2EjZXyxv607jDlizTOWSg9h7T3nPtlj7CVyvsQOykwqGLN29h39xrbke0ct
XDVPTYdFXVy1Lk8MSS0BWb9OtqX1QB5+knltFwZfhh5+fC5sxGYPtYiYIy5C
cRH90WaP6hVVs/tt9r8ezbbT9DdnR8+zOm11UGSYGFO//D38Njbk7xlp6jTE
RNiQh+TvO+qEY2p8DviyXpEjzc/FUt1neGPjRO17/v0+Z096zO8nX+lqtb4T
Xn8t/Kan+j2X7n6kdbrkxiZp+333Tuc1uiqdcN7ZEbPHHaLuVi3SW1m/yQGa
W2qO1HsxA+edyPOInchjyDGS93TVxddfl1q0b58GjRuXej4/PGNtUMQl4eyS
GxqnCxs3Ch132fWNY43dx+gHzfJ3jazH9NGstXYFY/STwz2GN3K11BjCm3t2
b+tWNblXfp4eDPJ5o2w7bbZ5tts2rJ8aNKzkbUtNor4oNeQlzlbqYsPGce/1
0FT3Bnun5G0jXpBfKzlYOR59ROSsfCrONXyg+NPqbVY/Zk7hU5dnhgWY0FNe
zo46K9aJuVd3NL0zYozX3nBdat+5Xd4Pf09L/p513PKfwofH6yPnOuGliYGz
OnVWqKlLoDcdZGocGVu1D/YkH86ZXuUrrluNja6R/w72Pfee53xKz8Vz4siY
Y5+6D3rB72vZMuyB4tfBYYlJFvvAeolFigOIL26uv5T9iE8ItnbaIbg86m+z
VQ3min0lF6MHmi0uZ4nPoGP3bsEtesPdt4c+w9FqXgk+KfwHX2abcG62uRrd
fEP0GOF1wekxaNjQqDnEDe6QP4EzR4k96qnVC45/BrbYQnwrdhGcsb3YfOI3
fhv7RqzU7ybD2OX2Bb/G3mQH4xzAHTroxTHptYyXHsOHpE79n0sXNrk2/eVv
J6VDTjwueOTkbftnnPDH1Nvp88Epbh6pOTdyO/zz6IX77ps07MXRwaeC++Dy
fK2tO3VKfUeODJw91q1b8KLccM9dgTOYvidjHIcWvUYuBrYyztaou2ZaM2PO
c/sxYvjrrhOPHXDpnlsDtplrFCMRb9YvTbfpNVx3vSyHs11rruZ6+XH9fDZn
s+RrxVzgrei4klctMpbOYt9sVq3hY1eK05Wa3DJLA9b4D2XOMw7ab5ctDs5r
WNt+r12yjKgX86r1uIjL8630Xet/3zRjzPyrwc8PCXuGH6FmwFyU/kP6pW8W
LUg//FiZBYVLC+fWE+3aBs5cI1ysnvXX/4S1Vatn7xVMwRGMOTz2uvjoyta+
ijmvObN1vSaWXfJ1fJai00oc2Nm6kEXwVnptYU2tilii3CtslQOHx7Z77p42
3XH72Jt8ty2KrMv3gC/DDp/13tzgQiS/yDL6DQ+h+TVqJsxpg8Mfs4+LU8d8
cv6Negw1hx2yPyTWD1s4v8X3rXW3Hk+nvbPtcYT5Oepgs3+tBhXGxJLU4NJr
4gPwxt/dIOOQL6G3i/1n/9o39ABfQ60Av9Nn9z38sNQ4++CjX52Snn/5pXRf
tvUukovIPtU1d96W/nr63yo28uhRacT4F7OdOze4nMyfMatt2utTK/Pd5r0X
POX632Dti0XfBqe2GCT+rDZduwbW+o8enboNGBB1jzB87jVXBt7YmE3uuiP8
IHKx+Garr17B2trrrFeDL3ulYIzMUC8Cf9aBvqaP1Ee5XvKXDUNPRq54/Q3j
gLNNGmz6b7URckklh1TyP/RZ+PDqxNRSVutOIoerR7jqJ0cPefYvcF6YgcOH
wFU35+MPgsO//tabpi123jbbnX/ONknDbJOoRd465lTTc7gO1GXtnf9WH8Xy
//ot/Aj7gO+uXqj/wH4xo/K7Rd8EV7wDp90FF10YWHNNq6y+VmDhf9Nr7MmC
tXKsUQt/8Apbzr6zNgbpNdfM/1KPAlM19na1H7n0VZQ+ZnZ5yWXTa+JGeHG2
xoFX5YLjm5FpMOZgl8Gc/cy+ZJvru+uZ9RouYz0yfDY8pGZrmGeDy+qxjD91
8XIvjW+7OWqz5IDVPYlBtnz4oQon5E9Log4AzsRFTj79lOBhKBij03D68mns
pRKv47usq/anqt/sC7+NLBCPVs9pX5Y8EqypFyJDYO3F6a+lUa+8nFpmP+rK
/PvU39/1cKvIQ4tfvDQt6+BsO7713nsRNzXH7ZPP5gXOzEiEM/pYb7+c94x8
Ld9lP0J9Et3WKtuQnXr3Tt369UuPZ9zB4GkXXZBOv+zidFHWoQ+2fyL8NjXA
7lP46BlndeuuEbYkrPEZCtb4GLBGX0cMBf7y9YnzwZ26EvqtxITE16JuPes2
9iOcNdx089B5MMPONDOp9CduXbUbiy0JY/wKus170eu//Q6xt6JOLq8nv65w
A4qJPZd9b/dbnmfldVeP2Q5HnnhMzEXRA6I+vfBmiPHLiV3dpFEaMXZk6DN1
ObAWcxcWLkgzZ89IAwf3i1l6MTc5v4YT9+B8b/+44spha8NC3bXW/d+xtta6
/4a1og+Lvei86hprx+N61Xoyj8VL+Zj0mGsveVn6Sv4TrmrnBTwXVyp9JvCp
FoTNpX5vn8MOCX9Mbz/MkWkFb7Bm3e1V9oQ4rlq8p3r2SG9m2d576MDU+I5b
Ir5vRgnOAz3IV99yQ7Ynxoe8v+uB+9LTvXqEfmBDdn32mcj1i+uTVeSZnHar
R1unrXfYJmp+8S/BGS5f/DX+fdgSS3JYP3YUH670b+jPuvCqK6PGRY0DDh62
JT+e7+Hv2cZ//dvJqemjD6XZWVdNzPdz8luz06DxY9OlN12f7mndMvzRTvk3
vjJ7VtiQYiPsRXkdOpifNv0NsefXoy72zbnvpHc/mZd9uzfy+eN0ybWN0n1Z
lsiPtOv2dLqpWbPwc3Gu8gfpNnrtpmb3RMyfHIkYf8YZrNlD/4m1GpuIPZnx
Zg3odnJmlfya77nzgfvDXvZ9JU/Pn5ErhrkNN9q4pj4Cbgp2Styx+G3WEpZg
zrpFXo5ft+tuNX2DxY+zJ/ipcqnm0rjffDR8XzhGz82y5ZxLK7zqMFlmg2yw
WYPA3Ky334qYGdml5lGOFYehvIqa2NGjR0aNrPkn3sPPukP+t+usuFI1nrFB
6KGCtRrM/QfWauPqP3Va8c1Kzq88ZmOyIXfefa+4brGS4KfIZ+shxl1ikCU2
Utay2JFidzGLNR/23Unnnh22Y6l7cy6+2ubVPCY7Up+t2IMeBX3tc7OPJRaJ
Q4SOMy8Z14iYyPjXpqTp774VxzV5D8tR8XvezrZn+44d0pRXpoava/aEfJq6
DFzZenbZFnQankpn3FF4s2CFPmML2m/2XXBO5UM+mv+gjvDqG2+IfPt+Vdsx
YqlZZsS+rLdu9IyJTYiPPNm3d/S50Gt3tm4RWJP7Uv+Al44N+cqM1wNf4s38
SjaO+iA8sm+8+3bsF3XpsDb/+++i9v3WZk3Ts/37pTZPdk4XXn1N6FtxzmPP
PiNiJ/Rak6Z3hZxzLf+JtYiVrLdejb/GN1u7mlcLv7Wqz+ke60Ku6CG9pNE1
gRP3PmLW629QyWFlWc+/KflxZ3Zk+GHVnong/cEJa7ZLthOi1rxaVxS52+wL
ltoduo7NSS6TZ+waONMXXGfVFaNn7PQLzq2ZK4c7TfxM/QM+L5ytp2a5o6Zf
fMmsLrXE5iSQv/YFzE2fPi3Nnj2zZk4JfvJ6eQ3q/GGFiL2KZdBH/xvWauOq
HEXHlccrrrp6xvAq6Y+r1I3Dc/nAXfbYO66bHV98tJLDprtKjNJ71gnOCudP
5FfyvqTX2JDibvRZqUklyxz0GpzZ53Lu7gHbjOwU+5r29huBKZhTxy9GwmZn
Q7DZ2RODRj6f7mv5YNTGqxHVAz18xPNZbn0cNoE1hDW1GPq89brrE8T9Ffyw
+Z6ZYeXfF6NZtWo/rlHVbVFrl304e9FZjXzrtk+kXoMHRZ2suIm6dvaxOZhi
qvKENzVvFnnlyDc/PzQNnfhicIHgS+VHqYdyvJD9Sxh658O5MVPerDf8P7Pz
9XmuX/i1WTNqZgSwOafOmhn9k36Hs3iNOkK4otca33NnavN0l3R9s7uDN51e
irzN6msE3grWSmzEtbEXyRO6RJ65xC7Y/+JabOjiS0c+1Bybhg1q6mzoNwd8
hT6rcsfAXdFXpc827MT8fTDmoOfUHPmbEt/2vsPegDW2s/4DNi3bUm30FU0a
Ry5G3Tq73r3gnwaPw4XnpUc6tI0c0E/Lf0nP9uqZJk2dEhyGgbPF30evlX5h
fBj2BztSv6icmt7uSl3a+v8WG6k5avm6BWv/GRuprePERer8YcVsV++WTjn9
rHToEUfl/bhf9IfAW/jU61ZseY9hSCxf/qzUT1ib0i8Ka6X+GdbkRtQU6W3U
ryS+wPaKvZnfL7qNfHOf3Tt/5zn5qaZicvZ72JJ4V8VH9KmJScKh+QlNWz4Q
sl+8bsCQwcE78NLkSVFTiL/W8cvyX7MfPCA4yfDs4s+DNzJQ/7peLXK7+Fzq
J4o9tW615oJuKD6EHk42nPondYb4Oexpe/KPa6+ZDsz6Up9m6yc7pGcGD0hT
334zcmE9hg1OPQYPjNxXmyc7xf7B7SsP7xrg7YPsS5S5odOybpua/To9OLgU
zIigB+d+9FFq++ST0duM5+KYvL5sPJyrfLZbH2ye2vZ4Jt1wX9OYX0ZH/U9Y
k3ODNTYFnJF1+i74eeo2ymwmuWW5D1hzL+GDnVfmR5faI34aGzL6RjJ2HOzK
sj+Kfw9H8BpcPdV+ErVM5DsZXr6fPBZjw5vjN7gX6slcs5ppNhR9Kb9EXpIr
ehq+z5gyv/7xbEPgPZBzHTdxQvQsmpsn7otXXC7T/C05FjODevfrG3Ui+k1X
WHmVwFnt2Mh/h7V4DI+17MgSh/ScL8dmvOKa61KnLk9nPL+Zliz7JbV/skvk
BL0feZlqfrtw3qgFEPsQoyw9X6WvpvTdBJ9Ivk9iI5c2uS7qa2CMrFTjJpbH
5iocGtbUHoY1Z7GGbs/1jrqrJct/TsPHjwmO1dnZzuIft3+mS+SwzZQwr4E/
Q/b3yH+jVtQ8kqXLfqrRaW+9PSfmseKiFAeJ2VbHHR06TUxZLaZcxHqbNQwf
Zc1qjg3Wou423/uSc2Rfua8dnnk6chNiPbhRzVA/4Kgjw4akC9iQajvw7YzJ
NqQ6mAGjXojcm54yMy6eyfdVX6T56mIf09+eHbXn8oLwhedfvMeZvtZvqiZG
rGTmnDnpznvvDS4duT/y66Bjjor1xl0Ha43uuj3tm+VJg+23jT2xct3VIz7C
3ouc6nqVPmtyBA7c18uuuzZ0Bvloj8vbWB8yU/xTfIh8UaewZdXuj9rZjJPa
ek29bfBubbpZvOZx9E1W+ykKj1LhUCq5Izotegar3AaFO489ISbK3iCP1dKo
xdWP6x7xWdi73mfn6znl2xbeQLziDnFGPpmYGczBmlj/m9m2EEPT2/uHlVYM
uVTJPW8QNqQ4YznUi5RaN3YBrMGVOErBW4nvw9hKq62Rdt973zjUsjTcYut0
wCF/yXJou2rNZsO4htI74Vw4Qfhs1qTCA79RDY8d+UbGqFlyL8hBPbhsD2cx
/X2qPaOlN1sO2f0ix9gT9rJ/o3mrVtFjTbfhMB48akT6KPsxbEo4+yyvS7+8
j8+7/JLAGhtrxOhRaXyWXWoulv9e4WTXI4b7Fb+uXJo+JrLAvVGbyOaAf/tx
w622CNm4XjWnHXHvvJZR/1btRWZHsnHVwjvwfIsL+lt7UT4e79yJ55+T7mj1
YNTbj8u/f+iLY9OQcWPSuFenxple65b9te7Z53LoB8JdR5+Nz9cnnurAVQJr
72Y/1OwV+QwxoPc/+SRyBnSb3hXXwV4v8zTk9ZpmvP85yxPxGniSJw1+AHGR
Ui+iBmKjCv+cWNh5l1wSelvOhg9QZn2a2XHNrTcHB6L+Tn51mQ1A38OUHEDx
02pzIcoBBCfi5v/iBazNWVaeR918lW+T3qNn6TC/h3xjP5Z+AjgTqyv1LFFn
nz/PDtH3imNInkLdHq4R3Pw983pPzX7GQnzTWYfx2/gZ7Ef+st41fMdR/1jl
g4afiEXWwtpqa1XsgYKz8HurcUi4dBTs8ctKvdhW2+0YMcgS54czes37Zf5N
ken2GhywkeUo/XsO61Xq/It8YvOTt+Sj3ojCPUG30XlqAgp/dNjlbLgq/x/d
ia+LL/ZZtqFhDa7wZMnpjpnyUsS/mz/cKj2Y9xNeTLUib2a5/+nnn8Wcn59/
/SVw1jTba2xHMwRi1sqhB0VNlZwEW4jcFisVq1c/JQ5Ar5X6EbLLepa+GP4b
20W8VJ3emPxv4zzd9aD90xGnnhz4WmfzhmnTXXaMuil57WcG9AuMvfb2W6nX
0MFRE4P/UY6t3/PDg3eDDjdnncwQK6HXxmQsTcfFlfE1I/sRrg9HCfx9mH2M
Lr26R15RXzpfhV4rPQB62Vo+1TGdccWlaZu99wh9HXtj7XUiXh+xkXXWreHc
058mjhx8MXlfy2VsV+3jjHuWZWSp/eUfum/2tmOjLTav6ZEVkwy/qzq7nb6j
58rzwknqc8XujPeqsrrERkq/N5kMN3sdcFCqs8KKabvs7+yafZyjjjsx+4Pb
p7XWrhc1kGLhhbO0zAXBvap2sc5KK2U9VTdf8zpRS2wOAA4YvMbmSUV/brbd
xaWOyX4frMlnRF9DFUPwVbeW31YbZ9av4Kv4d7DksTO/bKfdsg+8w86BNfEW
31vikDDnO4ruKjFHeCJTIp9Zr14NB0CxBQp/NCzp+YQz8St6DZeXfU5WiTNF
7VvWdXQZ+Uie+R61Kfjw8Id8meUPf0Z9Lh1nNoU+FPw9emjw6IuL44Mj979b
9H1atGhR5P9xlOG6w8ViDhh5R4fBiaMGa/k1sQ01LnAW9e7ZFnGUGltnMqf4
bepi5bbVSuPQV1u/+yEHpjOynq278YZpnyMOq8lxwdqkmdPTjIwjNqRaz67Z
3jXDj7+vz3jCq1NiHgD+mdETXgw/zX6gz8hidf9mIdJp8KjnzRx6+X6HeAVb
lr/WunPHOJo+8Wi66vZb0sEnHBux0uAKqHI7ldrz0vsJg14PLkN9V/m+0hFs
DvEJ/qxYcYlpiddXePb3rvBBNajE/2GLvQhDpY+kPC+4Knyk0VvSoMINXGqR
Sj1SbT5xsu2CK64KrG2x7Q7pwMOOiP1LJ9Rbv35aY811Y1/bf/JNePb4OM6F
5xhPJBu0zop/DCyJSfcZ0D964PVTzPvso6iXPTrv06LXogeiGtv4T6yVuFLx
2+Cr9PTIEfxhpVUDT5tuuU3YoXC2Zf7tbEqfKzqtxP7tsRIbKblr9qKad3rN
dZQeHEfht6PXxDf4Xfof8MU4s9tgrfTsikk0qM5zcBSsinfq5aDT3v7og9Qn
22H8GfvRfLM33n83YiZmA+FVV9NvX8KZ+OPSpUsDa126PxM9puaB6XsTm8El
LFbP5oI3Z5jb7eADoq6l5NjWqNZshw2Z7Xb7UP01H0JNLnzy16648fp03d13
pPY9n01X53198oXnhd222gb1ol/BDDR6bNi4sWnS9Nfj0IPVqfuz6cke3YPj
ODg1Xnk5+lv5Z3S0nMXLU6ek2bNnpylTpqRZs2YF1vBMwpq4a5usN3FFfr10
cbri+iYR61VvfGe2IVt0bJdubnl/ujjj8awrL4vaZ/It5FnVt3JdlbrBSq1/
sZsKv1PUq9OH6miyDHLt7A9HzD7YdpuanmJ6sWCLXoMla1Y4XL1eeK2Kjgu+
yfyao/QMFh6ThlV+vfU2aZjOueSy1GfIsLTljjun+nl//umAg1P9Bvn7N8x/
t/7GaaWV68b+5f/g8D3i6GMiny5uT9eacRHzOLJ++8MqK8WsCDxazw3snwYM
GxK+/sfzP41eNrFpdccRM8r3u/hnkc+u+mLOpX6/HP59uk2s8fCjjk0nn3Zm
YIntWOFmaBD+2nY77Rq6zvfJYcNc5N+yPiu6rXBtsDMuvPzyqI9UZ1BqmstM
hcJTUvre2ZB6fgunJnzRb4X/IOJNVf3vgGV6Tf0dG5LtyE6ix16eMS38GnX9
Zuk+0vbxWDO2lryaeZFmS/pvZLbPzGnfaredAktlbqh4vDoqsUJYg7+D873Z
+YA/p/rbbxPxET6beFeR9/ZkiWnbq3QbPaH28aQLzg39JcZPt+kjU68oRmIm
sHrgJ7p1ibr+qdn+e/XNN4I3g06DMXFJeu3FqZPDt+Cj8c/ganJ+/Nprr6U5
c+ak99SXZDkyM3/H1OnTIrfdb8TQqKvtmvWafgH1AnLa6lRuafVAuqlF89Sk
2d2RA9D3xk+OuKHcc/2NK7w3G1Z6PNSSiJmInZR6dP6de89vJXv4qnTdWlUb
2xHxw2pPZMFNiYUUnVa4o8r7tbEGj4UvsfhsIbe3q+QF1t24QTr74kvTB5/P
j/7Ahlvi6t42rblWvfx7N8y/e7207nrZz6m3UdiS/NErrmmUevfrH7XPTZvf
n+594MHQC2r0+dInnX5qcJbp0R6U5SC7aMGib6PuH09rnZX+WJN7NONw1Vox
j9pYKz2AHsPMJVdcnc654OLA2b5ZHsCeuAccbr39TulP+x8UeetiQ3rP93le
dFrpe3N2r+ic7n36xGO/J/jCqn1f1orOE/dnA4gdqwO564H7o0cSfx6ciS2V
3rYSjyp+Mp+B7lS7/3SfXmEz0mX02ofzPwsd90Te1+bl4jt4okP7yIuYD/mP
//pn+u2336LW0fzgfQ8/JGoy4cxsJHYWrHmt2JCHHHNsOu6cM9MWu+8S+TH1
YrAWvO9VW8s9FJui38XI5Zt8p5i6GLs8NVtNvf2jXTvH94hN4iDoOWRQ8GXg
qXkx6yucGebJiJGYkzZ07Jg0bOyosB3lCOFp5syZae7cuWnOm2+llydNrpn3
PC3rRf4pXhVxoj+uvXpwr0Tt0m23hCw579qr05V33ppubNk88HZL/n3qCaw7
WWnvl30ePYrrVTAGb6usWjfq2sUsYa3I2tIzAndquMhh61M4RQuHduEehTH/
hnPhNwr7cdPN0+ZbZLm8ZcbgZltEbZfPFQ6zwmNWOPU22nzLdP7lV6a58z5J
bdp1TNtsv0taY+31A2d02rrrbJjqb5zv11rrpTp1Vsy6bpPQc83ubZ4GDByc
Jr/yapo09ZU0dOTINHjEiDRuyqT00VdfpMW/LIs1tI/sLzjTM6q2y+yu0gsL
a6ut9a/8WcFabZyRx/Jmp599Xtp1z30i7ihPzZak1/iV2+64S9iRO+66R/ho
a1X7ARwwR677N0uNQOGxk2N7fsyY6FGjl0tOpGCNbnIP+GUwpV6r1ROPB97C
z832o4P+otNKD3RZZz06uBS69ng2am/NM2NL8mfwlVovMRHzqc3Vsj/FHMVy
2Y59shwwQ0++iW240/77xnnPbEvucWglNq9X7qCjjs42ZLZrjz0uZvXC37qb
Ngg7khwXoyNfYAzm7Ino66vamXwYs2XE/vAP0B/y1fdlH5L/t8l22wTXh/gI
PA1/cVzotMIJxZZkWz43dEjMsIIhftqsN2ZHXwdcTZ48OY3Ie0RsZFzW32L/
9BpuZ3lHeq3B9lunD7Kv+tpbb4Y8OfOKS9ONWc/e+OB9ERu5Lv+u4886I+Ib
YgeF36LUA4WMrubd6LYSp6xdWxLcB/UrvEaFU4xPVLhZ5azpy8KpzYYs/hv8
1cxC2mqbtO12O6Tttt8xbbX1ttGTU/Rcqfsr/j8ffsvtdkxXXtskjXpxYnro
sbaxZ+3lDepn328T2M122Hobht8W/ZjrVvrF3LNjTjgxPdOzV9Tc6APEn/X1
D9+nzxd+lUZOfDEfYyu+yZTJ0c8vl6JHoMwSdY2wZqbof2Kt2I7WiawSx6e/
SuzR58RB4Mp72+Tfvfs+f07Hn3Ja8D+VvLf3K7GUjWrya+zXkk+jd3DUXH/r
raGX/SayzT0sMxUi/r/nHhEfkZfGoYnPlh0pbiJGCW9RX5r1IJvB3wUP0Y47
RrzTTM7l6Z9RL0ifqcNd+vuvsSfxjw0dOSJ4RfRUiif9+tvy9Pdffk7b77hD
xB7pFX1j/CexClhSW8F+FHvE37FPtu/pNTVX4h2Fv0JMgAzXywVzIeOqNpU1
kAuk+2CSD3j7Aw9EPbA64GYPP5zOvurytNL660bsX55N/HHKG7PSCxMnhM3Y
fWDfmEM6etKE1GNA3zRm4vi4LpyfdLS8KxmibkR+Xqzf6+xMuty+4OOZAVpn
pRWCA2vhsp+CH4EdqT5LTJQPedlN1wfmxQ93qM7QCH7uhg3/VRNZS0YXnJVY
ZTlcf8Ve2jBimfowy/wNdcYwVZtvuMyNKFyZob+qXDdeK/5aOXsver+rNjs5
7N+6+MorY76xGRL8FPwnMAjf9nPMIca9mu3/ij6uG5yp5jfiYfvLcX9NN2d5
c+X1jdJZF5+X2nZtH3mVzxZ8FjmWUePHpO+zj9+jb9+IXfLR4EsvGp22Ut01
48yW5I95XGeFleLsczhH4CPybdU11LPkdwV//+aVeAS9g4vc/ocb77En1JH6
m8IJWHq1o9442094n3Gwk3VFBhTuG99RU9ud7UT967g28fbgqJe3cYhLyN+I
9UcNSXXOLD+uXdcuqX/en/aXeAGciTWqe3w4fw/uYL3XMIZvcdGPS0K3mcO1
ufrE3So8XXwYmIMvtRXiIvw0+VmPvea3wHyZW8XX5JdE/rdaQ0LmWM9SB1ps
J7Ll4Ij/P5CuvOmm9FiXLunRzp2Dm3Gj7bZOO+73p+jfNBNNzB/vAU5RfQnP
Zd+OrMBTiE8Njir1I+8HnuhtuUO8DjPnvBlzt8lgPbHiIz5Xb2Ox7TrBxcOO
NJ+eb6qfwAxffe4OdXJHnHxixCvV8xbuK3rt/wdrMasNx/h69Wr6jL224qqr
xfPCWc8vK7VZdJr37KHwyap8mf9tzL9WfLJwcZdZYbfccWe66777Ig4jH2Qv
ljxy4XrTq4YPRA+buaZ4RfXW6HHbatft0x3N70l/OmT/dNQpx6QhY4al+Qvn
B9ZmvDk96iQXL1uWWj7yWNQrwhgMwRK95sB1EDnsfNSr3yDLt1Vr+kPxIZRY
WlkvWLNerl1MiezmT+FwwD1Ld1pvfTsrrbxqpd+pyv1S+BOCry1jtPnDD2Wb
bk7sTbaE/Vf0XvjCm20W+1ddjbpBcUj5W/VMeM/tdb6S3E3pz9Zbo65PHkf9
Mazhk4paiffmxiyswcOHpaszbrt1fzZkPoypOcZP+2K2u+iz3fbaM2bQsWFL
TB++XOth1do5r3tesMYHc13y67AuDlBqIUs8MuZMyP1Wa0HpcdctD3Tj3fek
xnfemTr17Bn8B90HDYi6a3pVXeSgMaMix4aDTW5N3IdOe3HyS8G/a462g8+m
Fgum2IqFE8ycKWd4gzXYUx9ppjKskQ9y4x/ntWh0y82BKxjjwzmfe+XlkXNX
Wxj1p/n+O1yLeNv/hLWCt1JH4X2+qz3k84WDsczPCx8w46vgqMQmvVabc7/4
bzUx/3x4reQCSlxTj/d1N9wYvf6l99/vJSPEu+k5r5f5weYGm9N3WrYn8NGv
sOYqaYe9d00TX8u2UN+e2W6YEn6ZngrHex+8EzXebEy8g/SWmH7EQ9R/ZJzR
a5ttvV066/yL0pnnXZjOvejSdMmV16Qjjjk+3oc3cSJ4K3EldnjBmn1Ettlv
vYcMjnohspoOZkPX9Dits25Njq1w//hbdXhmjODQhdGSPyx9SCWWRI6q0RIf
d+C2lQOw5913/RLyNmV2+v9p7CzApSq7t28iSEoLtgjYioHxGggKFkjYioEJ
omCAgYCBgiKgogKKKNLdHYKghIRggXQ3h8OBQ69v/e7Za5w/3/sF17WvGc6Z
MzN77+d+Vt3rXnwfaSc5Fkb4+mQuKwd1pW1ZO9Vv3dH3Bh6JXdDHj3mSzDhn
3gGzuNCUBjPYTrBEfU89Po67eA7+xI/274JPSOzPdyZfxyN5bbDGdYyeZbAW
mqz4ydIw89fd+9jj8iG79OolrH3hsSa6YPlKl1DvJvmRsY4frvOEGT8p70iN
nnwzviN4IycGnqhlM5+UPnPqAOCL52AM/PEz7NqOnGzNaj4uf17p8rBnbvBr
RAwItuB6UNumLsH/6bkJHSW+M3uLZq9xTv8PrEmPxp+HDhQ4wEeKHEHMqIiZ
BmAGLIXeBkdo28RcpMBU5CIjX8Pn8Xqew8Gq5j4+XFwwFbwybFxw44nt6F1D
SxQtejiyPwwZoHl89Li90/4Dj2//sAV/w5tdJc7pwj8W2Mp1K2zt+lXq0138
19+KqfAN0RDJl/Ss8Yi2CDX0cyteqP9jz/BhL7zsCunWqe4WWiOJ7VfcW6y4
rleJhFfPuiP/3NfthWpmxx6nGBkfkp4k6Wz5egrNH+4NccoddeuIczbR1w12
jbXHdRDGzk5p3ZFjhC+CnYKnRQ2oxQdtUn1Q7r8Rq8N3IEaiTxT7Bh8IjhT1
S9Yd/Wj4iPiP4A1uaNfu32jWEhjE1nH0HThAc0jpmaEXFH4xtQWwBn7JOXKA
NeIWeNE8DzsXmOLcmD2ATQw/kv0q+BWsy5j/FzmhU9RLWt7Pr4n7bZ/ZtwMG
KM+IbSvk/sx5HjPgz8ExYd7nHPcLJ8+aod4F/Mjv+vdR7Ab24I6Qk+Q5eTLy
QeRfqetT06eu+POCX8UFXbtts73Xvp3sGvwl/PS127eJ08xMUXoK4DE++HQD
5W/Ij7C/nZvMTRAH1e/t/48PyfqB+w5e9Py44/Vz1gt5S3BBrj9qd4E1zS1N
Yriom4QvmVljixwmv1eNL/k5M0ngM2O/uN7EauR3YhYS+s3o2tPPRt6ZeQ/U
9odOGGOvv9fKWn/8oZ5Pn/uzLVmz3PeoxaqlMfcOjpa0lNause979/HzyyNf
ESwdmyef/ElsGnjCT5S2MrlDf+T3HPweu0Zsr9pIcq3oL4p+I/Y0sAb3AY30
KbN+kXYx/jeaLei1qCepRApfUR/HZ2I9EtvQf7XVfTd4IlwDcCbbVzpVlxTP
xvGD/eBzqN8yAwHONrjD3sFBwKc5L9F6wbdjPdCbzQwRavr4h/iJ1HHhj47x
fZuD2I0ZP9RK4IYwe45eXHrS4GRRO8+MDcE3mEcHLWYXsdeAtegpwZeMuXx8
f2x4aCOFDxk1xai/4otVvKyS6nQNmzVzf3Gc6mYjpkyy6vfVteOLFpbuAXZt
htsmcv3wqUdOmaD8I/VD6vXgC3s3ZOwo5ceoc/Az8q7kQXjNyEnj1YMD7qix
8XNhze0a13Dz7mzdS2zYxF9mShcBnKGRAKeEa3BBogNOfMw5iNuX5NUysRY4
C14Xa4H1z+tCc/yp5563Fq3fSc+FCU5KJn7CZoXWPv8PzkjMNw0bmJ4FePY5
+jzyKNjLyL1FzhqeNPmzvoMHq6ZU5a4aVqNuLXu6yQvqK0Vjjf3sZ/cP4fSN
nDRW+cfFS/6Q3gh98Ghx0k9z8PAh1eHwH8MnlH4InJHQ60lwFtpZmtUBL9l9
TdnBpC8ksHa0XSOvwbWHl8d8gh69e6sfldfhQ0pvqWixtB4gWFPuw/+W+ID+
KeZmoSGIH8k10KyFZOaNZtAleMN//NBfDz+evi20beCR0yOFX0O9itiN+A4M
wNXGtwJr9JNg28iF0G89Zfo0+Y7gjDkZbTu018w5bJlm/V5ztXrSbkpwFrji
UJ9P7XvS/mTYteBEkAvBn4z5HqxH9dUkWIv6vnQ2E51IbCIa4My2qF67jnX9
oZdm6M7+Y7H6RQuedqpyE+g2du/fV5rE9JTTFwTnDKz1Gz7I7dc0+2XhXLdd
M4U1fk5MF5wZsEYtH7uGdvKSNas1D5DvB9bIdTDTZb7vSWi6wHee4j4nuLv3
icdk49jHpM/p948DX5m9NBNnmViTTokf2K7QPsamwcsAE23afWRDRoxM9zFH
PjHyH2CHNRR2LWK2wFimrWNtxuwk7B7YCxt5tJ4U9VfsGXUz8nTMekBrC20M
9OfRfvpuUD/V+39ZNF+5fvTW4JGi/bTR19WKFStsxbLl4j488fQzdjy9m2VO
V17x9HM8/ixXwcqeda5yIcRrYAveCj/jteDs1DPOlo+Z1tPK8CFl3/ALk7nE
xEpo7sFnmDJjRkqjK09e1RvRbJGPfuqpaR9KuUbf/+HCkR/JPnjAfb2p6TmV
rEHFuPB2/P3xE1nX5CCwZ/irxCzP0XflNgZbRi8btSpiN3AJ/uGvr9m0IR2v
wbklTsOHpE8iZkQSs6BlwFxVcIY9w66hTV4lmbkHpsjLg7Owc9iziN3oEQEv
0ZcsHS23Z2ANTjlrOJM/E3XOyMtiF+AS3V63np/XK+7DdbNufXpZ/9EjpTlC
TY946Zt+fZQnhJeFTg895XBhqPUMGTvCRk0eZ+OnT3ZbN0YYpNcGuwXOwBeP
YA38oXW31H2fde4zwhOG54dNJhbYuidH+l/UNRatWKZecDgs9AHg02dijXOT
lmmCqf9m08AhOCAnwnMeyfFXufU2cfhZp8oBlCwlWxU5EfCT+TzTrgXWjsZd
zLoN/IVWMNc9ZgeDN+Id5rd/6/Ex+XDmzDJTpcrdt9srrd6y6fPnaGbWt/17
q6cffxy+EbEIs0rWr19vGzdutLWr14jTx4wh8AOmwBZ2CwyBvZLUzTxOQ4OS
A1vHI7Yu8ihH2zVyHYE11WM9nuO69x85whYvX6YZKtXvvEsaQtTzyUcql5L0
1KT3dt9H8febvvmG/bNurXI49GNg26R1XzzR2HKbBsb4DPxI+Lbw2rFv+K30
WvI7bN8ZifY42AATzLdjtjt8pey9e5QLQa8HrmjOgX2aG8rjU+4fXf2f64Qz
ZpDSb419Y+YvmCVGIz6rlvSIhF594Aw/ls9j7wFrWndJX3bMYVQs5zjL1KmN
fCTPxSs6+1w7rVx5f6/a9s7H7VW/RkOOGI3Y6dxKl6q/Bg4ynC36gugtnzBz
mnCHFtvIKeP855NsxOSxepyO1vXsmeKH4AcR36F7QH2OejjHardr7FFwNPE3
0ODJOXJYsRt9k+27fGk/L1qomhu1fTRf6GmNPl32Q8479FljRgZ4Cs5M8GYi
xxG+HbGUeq4rVEznSWLuGfgJnGTW1njv4IfxN9g/HqO+FPW2iN1ifpr0zEuU
SNs2+C/kR1h3aEI0eLGhFS5bSnhD27C/+5BT56auH9pb8NbRI8NHYg7Xzp07
bdmyZbZ18xabM2eOYrPwGaO2Fs+Dd8wR/iRYw3fkNeqzoZ8/IzdCvBYzqcAL
94a1h62BT0eN4UXfl6VB6TYtsBkat9E3yV5ILwXzxNGCwr4QoxKzEcNybaTX
6nEYfiG5Drj+1FvJi+BDsmaYvcc9L528jr5R9l18PLR+mSfOdcFfZDYn9Ws4
t9gyatxw4m+pcZs0lOj9ZG4UviP/18y2alXTnH4wD+7Cl+R52DewiA8ZXL+o
UXOO5POpJ8a8schDgjEO6jzSqfJrezx9mL5WGjd/XXqNrPPopaGeDg9s2KQJ
ykmCsyHjRwtn+Djgqs/wgcLb7N/n+148xYZNHC2c8Zox0yarNx2cwV9mZssi
tO7Wr0vp2h9/nPZVuAL49U18H+Rn1LDxZcmLYufos4Y/Jh1U9485b9YI5xb6
/tzzyF3ws8jrhw8JVjJnb6C/enO1W9V/HbW36BsI/ggYArO8Z2jbR80An5HH
qH1HLJfmRxcukvYloqZJnTu4k+h7Vah0iZ1y+ql2xU3XW+v2bf26+3VNNDSY
7QwXYvWWjeqPIMe2yf3I5cvdfzxi1qFDJ3E9sGNgKXhZgS+wxe84IjcSPwus
hbZ4+AURr2lP8b1M80/8mtOHBZ9h9/791n/wEDvhxJNSde+kRhC8iegdZZ/n
HqEnhRYUWBs+dqz4WsR19MBj15RDZ4avr1fsCHo29KejZQ/vFnsSsRqPcBqI
39iTB44aab0G9FOPEfmQDp99qjw4to7PI5Zr2vw1+Yv0pHGgaXDLnTXsqhuv
F+awZWAq6tfgKvL9gbv4GXYtuLVh19iLQtMw/OjAV/QtBSew5BlnyY8s6OsD
DX/iM7gi2DF6suFLVqx8pXqy6cMhrviy57eK2bBxYGvE5NHC14SZU23qnBkJ
3saqF534jln0xNbwKsl/wKtcsWmz++BXS4MczgO1ks3Zu+RD4Fdix8ZM/9Hm
L/1bOu4FTy1lp1UsLx4a1x0ONesgcpFhu8AG/iE2K+Kn0Man5oU943WsJ/BG
rhCu7w1VblGennVDjBd5/ngevWx8FuuSn0ccl7Zhyd/Ed9FM3sR/Z/1F3gDc
qVfZ7XOJs05TTwd5yGbvvG39Rw3T/Et8Aa7vio0bdMxesMB9yLX295J/bM3a
9YrVHnjwYeVFsGFgKfAUOuJh7zJzJfE6DmEu0adJ9eGksCbsFEtxtsn5Hpv/
ZNVlZi6Yrxl8y91/hR+KPh66f7L3fj7BP+a5eGoe5zHHi7nOG7Ztk02MfKTs
pr9OeWX4UswicRyh0QFngnl6HNg6/J+45/g01ADQbV/m+zU1XXgh9FuT44ez
Ri5k557d1rVHd9Usb6pxa6pn5vprNMMGjdyrq9yg2dox4wicx3PynNg4cB45
SI7gXHFdpH3g6y98ZXJ20vdPbHvgLPTs2VdK+DUDb3BlS/meTyxKfe39Th0U
t03yuIz+UXj/zd5tLQ3f4ZPHa5bVlNk/2aip430Pnuq+4mSP5we7HZtoMxbM
tkFjR8qeEXPA6wJD7IvcL+Ykrd+Zpdm+6s1yH77hKy/bjty9ypHgQx5bML9y
MX+tXS1NIXju8DSlX+X3n3491ghrN2Y8gLGrrr3OKl1dWdgIfiNrAdt1U9Vq
6l3hZ4GZsFmVr/+PelouqXSF6tvYKHzT8EvJoUR9IXIhYSsDb4G5dF242L/1
3ehPZj2G1r36S88508qcd7add9lFykm+0vJN+Qtfft9d145cErOBmEWydNUq
W7txk+XuO2BLly5TDhBOfuQfwVz4jvws8o/RuxY/i/hNOUr2q+IprX7NNC1W
Im3XxBmg992vN37dHytX2JpNm4S1q66+Jq37Kp/9qPgkZm1Rg+ry/Xfu1213
DBzSjEqwJj886WOndoY+FflF5ouwJxOrUT8nX4HdIwcduX+wR/8JcT/6R/iQ
9KdN9r/bc3C/bBr2jlwIdUviMrCGz8gcRDQCY45U1KoDT9GvFlgLDPKc/SP8
R7AW/avYNXIP4kAms7eC1yQNqoIFU7V+v+bgLa/7AmV8jaH/AH8D+9Z35HD7
c/0au/Oh+zWrEB+yS6/vdEyaNcNm/7nABk8Yad0HfG/jZk6y4VNG28BxHm/8
OtMmug8087d5bpum6PW9hg1R7WDq3LluM3+1P9esscvozzrxBF17uKeL3UeC
m0LNGs46vGpyJMRt9J/T78N1ICfFfWEt6L4ms2/xDW+8paowdbnbTA4wBraw
YVdec61mgIMnbB57OXYvuJLYOP4G3PFaaYc7XsFc8E5Uozv2uLSPCLcSGxcY
jBgucBnaN9GzGz591KPQg0T3mPmYF199hXSS3277vrSI6K0Aaz/OniWdlrm/
uT+wZr3tPXDYataqa8cel0e8YXIi3EfsVLr/OuFG8hx7Fkfk/dO1t1NLp3kj
yp8WL5nOo3J9yY+Ag9datRTWwAz8i6rVbpNdo5atfSVD30Z1Nscvfw9/eJxj
AHu45+BBm/Djj6m6tl9vYlgwSX8KdgtNJrQq2Jfxgzh/1j52DJsGxshHk7fs
+kNPzZWgvyh6/lWzdqyh9VfvoQc8Nr5AWpzEaNgy8FX5lhul1UOPybW3VhGW
8BXBVnCx+Nn1ic5IZrwWHJHwu/m/4s2k55X4gGsQWAvue2gkkCdWvth9gWNO
yqfzIu/KHLl3O7S3nxYtkDYBmlT4lt3793bfcqQ/H2gzF821SbOnO76G2sRZ
U23UtHE2Ymrq6Nanp+L88TOnWZ8RQ/S31M2meDw/4eefbdbvv7s/cHHKrrkP
SZ0DTbvfVyzXHnZMvpOkGzlvyV+KG9FHOabAycIh8Zo4cffW03mx1lnj2DPi
L+zTf26ukuYucoA16Rm77cOP5Ah+f8QqYZvAH+8F356/o9bNAXb4LF4D3sBU
up8u4ZlE32rMUgrfUXvCqanZVOHLY+cKliwmnhb8EfB2fqXUbEzmQxCvTPMY
dzA9ut98Y8PGjLGhI8fYMw0bW958BVXDDp+R+1jmzHOUyyf/yM+pV2fmSMLe
gcvAZ8xdC1sctWydi9sbzfT2NUV8RJzNbNncg4fs0fqPy65R05a/7BiL+X7y
Jx1D5EfgjuBD/jJvnmI9bA4aYmh96W+YR4EuGfo9/no4l59+3U3+DX4Q6xGf
LmYfggHWPdeGGjm5D+X416z29z6i94fbf47HG+REsGXYNXqT8R858B+ucewx
zybyH4G30D0g10kOJtOH1FxI3z+k+esHuOMcwRr6G+SYuQYxky49fyzhyXPt
uSdnVjjfjju5gPQ9+CxsCjEafaQDxo+RrhWx2wCPI8a5bzN4/Ggb8xO2bKww
1ntEf+s5tI9NmTtD+OvlsRpYI4c9etpkcVHIt0yfP9/t1CLhLS82wu0aHHB8
DTQn1+3YLu51nqJF1LOH7sIs98mxi/TdHZM3j51QpJC+Z+2HHtRcFOIw1j6Y
wi5ht/hZ1JUztXuijoYNA0fBqWJ9YYuiPoCPyPvcdseddmete/QcDNaqW8/q
P9kgjUdivdAA4vOj3hZ5ltjfAm/pvulkzunxvqfA7y9QtIg4kaeUob5cWNeA
2i71KTi29Z95zl5+s4V16f6dzZwzT/aMWA28BC8r8iDgjloaNbXwHcFaYI/X
hF1TD1bp1B4R3OOIO1lP+ExgAOxTY9u0Y4cdOGJW7dbqbldPkF0TvztjTYl3
e3qK648NIO+PZuGqDRvkR7br2FHck+BD8v5nJLOE4UGir0HdHB+StY7NI6bj
deihYfuwexuzdop/izY/Gj25quNNlj4PHH4eL7+usvCGTbs2wRc4u/yGa3Ww
Z0cOJOwZeRKwFlz/wBv1KOUJyO9TZ/M9Cl4NeRFsBZyg4D8G1iJ2455TYwku
gXIk/vfkH7jXxGfkJOlte7bZK8Iba//zHl+rHjB59kxbvGqJzfhtjvUaPsD6
jxlqwyaPsUHjRyifNurHSbJr3w7o4/7oUPmkcFLoWfumT1/hjH4X7g+2eMTE
CbYpe5c4xyeeUlg9Du988rG4YeSCu3nsKzuY50Rde9ZBo6ZNxaWHdwhm0ULD
TyS3D7bAU+AtePhcj+DzE5vhK0orwn3FqM3xHMyAWfxScifgir5p7Cb8W2JC
/F/1TSf5tfBn+f2xJ+ZJ539DlyNwpz4f+fL55S8XKl5Uc63FpfGDGg42BbvQ
2WOTx5593m6sepvtcf+RvVs5kURDnPraSUncFjzIUqedKX8F3RDsHfeYe50n
+Rv13ZySyqWxX6v+mmANP1L51iIpnVH4vqw/rj8xNZ/f6IUX/Tsc/299IKO+
pjpTkodkPbFfTHJ/kNnPYG3k+PHaG7lO3HfWL7n8MskcM/ojienhx4IrMMhB
HhK7h42l5/F3j9PIjTB7BpvG/BkwVuHiC8Xhl/acx2nUrKXx6HgjJ3JFMmdB
cVvSN5Pqva7+v+UggyfJz0ucfaZ064qdebrydMQ12PzQ2QNv0sf2uE06fsn+
xfVJcZhKpudrcQ8UO59a1spfcpl4yV/0+M5t2RjrPXy4nXreefbep59KD3mg
X6/xs2ba9N/mK3YjPiMPSb6Exx4DetnHXT6V7eszeoi/bk4Kb+5PUt9Gi4J8
A2uS6w5WuMYbsrPUw5bf9/dnXntZ+kPUdT7t1lU8VvZ48MaMNfwU8lLUPlmP
cFCIL0KjmNibNQQvKOaSak2UTnFCNbcoifPI/+NXYp808zfhJvP98Afhm2Dj
pv/8i74vcRr7FXExvD14sHynyDth68j/i6eb1K40K65EakY1+z14Is+nuTpo
O/r/se/oXHZkfqvHZ9RBiJHIHzV78y3FSuJlwXfxzznJsYE/ckK+Aqm8YpFi
6kktkMy8R2OBPlX0Quiz5h7TV1OgOFpQRbQ3R45Jdf98+WWr8A3Vx5bk5dnL
yVv89s9SfSd6rjk3zolcf8xsKxjzuD0mYW4ps2lfaNZcecy/mIGZs8vt4mGr
4es478n5/B6dLR/6rPPL6yAfi6bqr3//btPmzbaXW75pZ15YQfwa8IImFjp0
uw7kSjeLfFHOgQPCP7pafF80AfFTqWHCEaYHBu4iMRW8fnBBnw/+KVgCZ/yM
R3AVvTXyL6uneFzEnWdfdrE0DK6pXk12h7gKDTt8W/jQvBaeRcRt0fsb+zda
TvkLFEnr3kbcfN7Fl9r9jz3he0hjm7lgoXIZjzyXmunErMKhkyfbxNmzbdjU
STZ40njlzAaPGyW+Fn3D1ACGTBxlfUcNtrE/T7Xe/vhVr+7S76OvtLzvUye4
fYpaKLwler7X7NgmDRT6SJmlMXraVFu6bq01adZMHMKf/DNTtuR41T9ZK/i7
7IPsidTGWfMxz5hH4iNyf+y5zI2izpCeAZBwHLGD2CliOh6DP8n1imsFFtEm
oBbOOsOWEdvCy4a/RM4aLjW+EfUjeGDKYR5/gjCreRLJ54ov4f5LzAsCq+Tr
4NXQ87V282atny1ZWXo/bOTSFSsVK2GL+XzluoqVEGaOdYyAo+Py5EvpFZc4
VfcVbbzQNKHP+oJLK0lr6FhfA/jwRZLarHocwRa8fbd3Yds4d/wk4hJmEWNP
Nu7Kki9J/p48h/L8yVwN9cAyi7jsmZbf3+vSa6+z+g0byj/51fdKdK8OJRoE
xxxzjPpkmYtFvEp+Hi0r5s0s37xeezh8mvMuv1hzf5iFDf/vp19n26ZdO+zv
1SvER+E6fdC+vbTy6GFCVxntBfQTuMb0aYIDdFXh9cdxTZLbx48EZ5HrDw0t
fg7GOOByoZPAjEDmTjBTCT0q6lHEmuQY+AwwzPeQTp/HFMHXFde2VFn132PX
iia5YHx79qWbqt+uWdpffd/TY7QZ1qRFC2vx0UfWa8QIGz51qmaoodfKHCn4
snCSf/r1F/EiqQEoHzlrmo2YNsE++76bdfzmC5s652f7zP1S9mXqofBX8d3h
vk//da6t37VT2svFy52tPgPu0c79+6zNxx9r1hCx+dONGqV8Sbdjxzuu3vqw
jfZb9BrYo1nvUT9mj4keTXzM6FkPDZLoHQ3trJi/Bp44VCNLco8cr7d42+re
/0CK6+62AH4DmmPYVvKjaJpgm9g75Gu91ER/B8401zzJ7cHtYXYQOjb4ieiv
kq9b6DZ8wd9/CWPEN3BMsGm33FZd7/dRh456P2ymeviIr4gRS6XiNmrb8lP8
np6cv7AONE1iLsYV11xvd9W7z87zczvB10Aet6XYWa4N16FsWbdv/p7kSCJX
FPwRuErkiff69+C7sJb5bsqH+GcSQ6LBhX+KD3sKdX3qmu7XN2r+mm13/xO+
2f7Dh2zBgnl2xhn0MZXQnGLm9BCvksOgHgvHHS5g3foPWXnHWsUrLtUMerBG
Dwm9Was3rtf3gGvJ2oaTg/2it4zaHhx+bBpHcEPId5DvjH6diM3AWfTWhE+p
HEmioYfGL7yOJq1aSDfgLbetzFNC5408Lf10YI3Ppp9D2nzuLwVHQn520ZKy
benZrEnsxr27oNKV1sT9lk+//saGT5zkNn2e5l5/0Lmz/eA+JX7k6BnTpPs/
aupE9YD0HzFY3Ei4JGNnTLafFs62nh7LcVAPgAvx8BOPKQ9FbE0PFLhDk5re
b+ppHb/92s73PeSMiy9Qj8+2vXus5fspTSn2L3yGj9wnwQfAV4Y3iU2k31Sa
3m7zYjYG/iN2AZuGPSSOAGf4bNgYzXdI8iXB7+cR24ZfyRFcEL4neZInn3lW
6533JwdNDxBxBBwEakr47GiRkrfp3X+AXVH5GmnPSbPNf49dYy3wXZu1ail9
ZM6HPCw5/pWbNopjEd8ff23P/gOqZZMH5bPZD1hfeQoV0Xo+98KL9ZwYDh8F
vSDsGvlK4S7Jn5AvqXL7nVbnkUc9Dqug2Ddm0iv2cjsZdk31NjjXSZ2N9ccs
z1WbN2mN3/vww7on6pNJZo2iZ4ddA2tF3V+o4PFu3cceE+eP2jS9V+TmzQ5b
/fqPaM8Ea9Q+yvn9vsXtGDOwWU/wAImrLru+svg19EHAZ9++d7ewBgeLGRHY
MWzs9VWqyF/AV2DN4y9iu/AjI78YNYPQxwpfkd9jxyL3z//Vm03e33/PHIZM
DSxmlzGvEL1F4s2I19Rnk6y50PaNGCJmJMS+VyTBG74JuZKqd95tjV5rZt37
9rOlvs8ytx5fcujEiTp6jRxmM/384e/B3ere53sbPmG0DRg9VDmToZNG+2sG
Wd8xw1UrgKtF76RqVPTbF0rVqJhrMmLSRFu5dbO/dqTVeOBeaX1ReyBf8tY7
78hfYe/qNWCA9Ro8SNoU3w3or3lu6H2t2rJZNZeUdukJ0g7mnOHf8f6sC2Ii
DvzM0IjQOku0MDK10aKHPWZugxd4+h18r5HGqF9jahDoBZJHg5tOHoC8FDaP
z2d/mzpzpjCNzwnG+D25bmI1cqnwmF5s3kyzkdt/9plwip3hM/AliY/ufzSZ
R5zYNPaH626+2S65+hph7YZbq4vbyr1Ep+eEE/NpHz0pbwHhjftMroTcCD5L
jTp1re6j9ZUHA2/gmvoF81tLliz9P+ps2DViY/Zu9OH/9rgLrH3etWtaazXq
HdKZdV8STBf2fet037Nuvusu3aMPOnXU3Gp6pw8dOmBTp072zygmjRVqHcxW
pfbcztfzX2tW6AB72DX6aZu3flvaUPiO1LDRPOLacR1Dl4BH8EH8xPoHP9gx
MMVzYiz06OCzo5NF/oM9MjgjmbU25SD5vdtz/A/0IdG/+rJ3T82egEd4/lVX
KG+DveR14DrWTGjUBK8vZkfGbBLia64VtW14kqefV8Fq3f+gdejS1abOnmPf
DRrkseqF1nPIEJvpsTu85MnuPzMfBO7j2B8n2pipE9wHGGOjp09UbnKw8DZE
dYBW7doKM/S30GtILM53Qf+GmOvPNaukeXLHQ/enuWH4LKxB7itrFhvNecGd
Y5YHmszEdOSI4d4pf5JoShG7k8O4sVo12UZye9g9fD3p2CWviZpX6KqlZzw5
xvCV0DIkpoE/27VHD2GZ7wBPkHvHvYTHx2cH55vcBfgkdhg3ZYq+E3nwmAXL
GqYng96TWCfSg3RM8sj9yj18WNx6viP7jHxX/EffJ+mDu6/+41bcfd876tSz
G2+rIf9fWvweGxCr4UOihVcoqWXDfy1Suozj5hp78fU3tP7Ym6ThCH/b975S
7msQR4Mz8WcSnQ3yUPSxbNuTo++FThbXTz0M/rep/r9Uf0H4kPRrVa1Vy95u
96H2xi27s6SNnp2dZXv27JaOc95CBdRbRk2f/MiHbjOYewFXjdmFxGrUpJnf
wxyf9Tu2CmtwH7mWxLv45MRjaLvi94E1DmxX+I0c2CG47OjaU1MCU9E7Exjj
mkTOP7AGX5d4ranj/eNuX8mPRE9RM74vvED7EK/BjhIPSZvXr0n0/MeMBTQB
Qx83+jGCh8B9uejKq9Xf1q1Xb5u1aLHVfvgR99va2u+rVml2FHOj4GzB36NH
dDhzpAb1sc96dBGvZMD4ETZ0ynjlIWs+cL/2e2kVnlxIOS/2arQ7Fy5dYss2
bbCR06cKa1fccpPqDtRQR7sNBaORMyeXzLWkFwfeJj4k2nr4N1PcdrJW+RzZ
kyQn/8Szz9roKZPFPT8+0e4OLdGoh4CnzBl9oYmELSb2+6ZnT+vcrZvq7+Qz
0KGhx45cJH4kPi35BvoHsWFgmgOb9VCDJ9M5VNYIa1i6qY4jMKk9yL+nNP39
++OjYT/QQeT3gV/+hr2AGLx6rdqyHbfXrmsNGjWWPaEeQD4E2xa5L643tYGC
fr3p64Cz82zTl6U9QO+jchzUGn3/w64RR4M1cav9u2KH6VWGW49d23fkiHI1
wfX8V5/2tHS9gZ5/Yhl0EOnNoj5N3wL8RWbs4Ee2eqeln39et6sl3Peoopmq
zTwmIvdBvpFZdPAZ4eUTq1EPz963z7bs2Kk98NxkDimxcvRsE1uQpwIraNBx
sB+iRQfOpPvoWOMI/XC99pYU758j/bzqLWn9yhr315NWODhjRiCapsyewae5
LNHYw6ZiC8AaeaXg5Kb6b1PzR2L2lvReEq6P+Kp+b/BTnmnSVDWx3/5ZZm+8
97588HlLlqjOPfzHyTZjwVybufBXYY0+NeK1H4b1F9Z6DOkru0YfJHxG1g25
GNYB2mfcoyfdL6Xuhg+JBvMtdWpZnSfqa24w9e3ps2Zp/bEusTXYBDg79MzT
AwTHAA4R2hZ/+iM5SF4fawHcYbvQm4HLS4zEumdfjv6HwFxwFrFvoY1EfoX3
+/CTT+yLr7/Wc+ziMXCnTzpRvDb2TfwRbB01WnQMySmAa+wXNaaoD5IvVa7/
uOPSXB5wxndkb2Dtc87o0YW+f+R7QvNUswmuuNLXRVWr90h9a/fp5/afKtVS
OX3un65vYeGMmoByJ2jXun9Y5c67rEHjF1O9Iv4dyc2CK/iNxen/LJTqFRKX
JOFLcL3bffapsLZzd45l781NX6OYN4JdA2vU08tdcqlmA1GTQmsbPjV9j5pB
sHO7/Ejmx13kPuIZ5fAlymr2GTp98/5cbK87Dj91G9Lo1abWtWcPzciIvCOc
Aq4BdgybQhwWtix0wbFVgS1sGBqk/J/nHOitRlyGbYuYLnCn3rYkh6n+7bvv
kH5xG8c/9ShmhMLRxd5XTnSayYuxL8esdzAWvSeZM+4iZjslQ6OCPBe8ZHKS
LT9oa4PHjrOh4ydY1btrSg/o5z8W2dT5KZyRzw899YFjhqmmTS275/BBqsnB
Zz6G+q6/7/F58iuekM6gxx7kPP5es9p+W/6PsHvzPam8D74H/Tfw6MhtgBnN
Pil3rvxpuBVde/+gHCT75jB/hP/90OOPa32GJiv2gPWLf8EsK/LqNyQ9PZG7
ZH/nfYmtOcg9wdMEl/I9/bX0nNFPTe1AuoBolXnMUf+5Z4U3eoJ4hK9JbVa9
88laHjR6lGZEgjUwzvlgw3iMWU183/B/sR0Dhg3T/zln9qjQe2UPAWvUr9AL
/U+126zv0OH27Asvya6h9ZPSXj1F+xpYQ5OEnNcxJ56k+/e6+9ToJ/FdOX9x
XQoUSmvbhi4S1we8cT7f9u2jPCm1h32HDmv2JnME2C+Dp8M5kaugJofdgFsL
Z50cNNrEK9etss2bN1rOnizbf3Cfdezcyf0o5jGcarfeWd3jiXrKNY6aPEHz
jMEb+Wf6BOCsNH+rhWwGPjQ5EOwYGIs8ffiA8gmr35qeMwjvKFNHHLvG/gi2
2HM4wGfkJZU3AYvwIX0t1GvwuOaWkYtEvxTNN3q9sGvSkaxWVTl/sCaNjqQv
Eqyl8iRnKdcfurjpea74j3Dq3JcgdsPveO3tVvIjJ8yYabUefMheeuNN9yNX
SC9h3t+/K0dLTzY6Iz0H9xV/a4pf38GTxtoQv25PNXnR9/NUv9VJJ6N3VkL+
DVj7oX9/5RH/XrfG+o0dZU++/JJmZ5AbQas1sCadusIpTgWcb9Y4ultwCdD5
6u0xG/oK73/0USr28fXJ30kLmLjMbRE6Hz8vmC+eOBqjYCjm1kXOjfwFeryN
m71mX3zbXb4TPiBzv7FR+If4FeQz4esc57bro86fq+5OHyO9Cqxf4m1qL/iL
5LJy4QPekOpPxt5is3jkvMCXfF7/HfEh+/echQu1v1CX5Rwil8M14DtUroKP
VE3x17d9+tl7bT9O6Y8kMwvBWfAm4Y2wb2Jvaj70kL3csqW0AVmrnIf854QT
yRH6Y/IN/Bzxj9E/Zd2v2bDRsnL2iE9fuEQxcW8inxt8d84bjj5c1jc/eFe9
H3+sWGKbtm+2vbnZtnrNctu7b4/mrD/+9BN23gXl3V8vZQ/Uf0jahn+tWm5N
32xufYcNFncZzsmkH6fJLyMPiw9JLwv2NvjolyU1auwctg3/EVsGvvAhw49U
rOY4BGtgM7hYwYUMrEYdW/tuk8b26XfdlR952m0teRbyYuTH0EUhXsSHxLcn
BgmeLdcwNXOsvPxI9r+TM/TfiaOjh5dHcpLEBs81edkmz/zF3m/fwe689z6b
+dsC+7L3d+pXw66hd4BmFnoZwyaNsyETxlj3QX3Fq2RuKXatkMcSRYqVEdbI
R3PdyGvTY09/KLmRx156QedGb0HWgf3StGcNRnxF/ADW2MvyFi+qWAIeHXlz
eHLMScEnC95Q5ClYU2AFnsmGnTtkA+XLOS54JLaKngnuIzYN7euxP06VXWJP
B4P4gJUT3SXiM96XvXCJxyFoILF/HucxP9rv6G1SxwKT4BNfMj33ya8H9e7g
K4M5fs7sVexa5Dzh2cA/A7P4p/JfT8qjWnFFX3PVatayr3/obe9++FFKc5V+
7eRe4qvE3JpCHouRH7z93ntl1/DR8Xuxu2Ad20ZfDUfkz8AN9p5rw3eYt3ix
5ezbr5o0PN8TTs4rHeGyZ6bmRmJ34eHCF2YNg7Vv+vVSnhpdmrWb1tm69ats
67aNtmv3DjGGmSP3Yfu2dsU1V9pV11eW7iPaV+0/66Qea+wZnwcvFb/s8kr0
Y9wo3U38NuxJaBJXSnCmWezMKE3yIqwVcBYHeIscCPYsOP9Ri5Pmj/+M+819
o4ZNvh/bdvsD98pWwhshLgJr5FHwI6lB4EPik0fPh/zz089KzWJN+DUxozx6
eSNHAm+LgxrA0LHjbeTEyeKnoQU0ZPI46a2BNWw/elnkSeAc0w/wRa8e9kij
5+wEYpJ8+T0OdJ+1qL9v4eKW56T8du0NN9rA4cPF8QdrzBho8EoTa/hGM+mf
wO3pP3Ro2peSJr/7cKxxfDiwxjVTTtL9SGwPvHhej98YeMOusVbxvehhpG6w
y3HcqWsXYY21q3l6vpalY+sHPsSjzzwt7TViwZ9+nSubiL4oefCrk/wyXHXy
AOjGbvK1wR7BXDzmkJ9zyUV6TcRp6D30HjgwZdsSzXPWNDlGMMi+QN0Iu4Yv
xuuoedRzW4QN5juekpw7+X5qnuUvu9z6jRhprdu0lb4PPmSBhEdCjVmaPu6f
0KsIXwS7NmzSJPVfPPDUk6l56/nzpzgOp/yrhaB8SaILQl2wpn/WjDlzbPX6
Dbb3wEHpXaMFxyxGDu3hSe4W35l8EbpQ8GOpvy7650/bmrXN1q5bKduW7VjL
2bvL9hzYq583ea2pXXfT9ZrlxHsz/wp90ZQ2+EjZCnp6K11RWXPh0JMOnx/M
cQTWWBOBteBgkSMJrPE8emg4IucfWIs8ZGCtkdtYdPdffa+1sIbNJBblPNGu
pC6AHYR/IL3MRIsjerK4D8wqgr9DnIYfWTjxH7Ft7JH4+uKEOw5r3H2PDRg6
wmbNWyhfiL6biXNm2ojJ48UdwaYxP4VaJP0AzEtkL7j8JuxPcTuxMP0dvt8W
LmnFS5SxMmXPtLtr11Gecb3bGfrV4H01eut1zRRo49ecOC6wFpxC9mH8NNY4
vP+8HlOQC6SvcvmG9YpzIr8XPYyaowlXxOMrasqt2n4oWwov5aU3Xtc6hoei
mpnjiH2Z/eQE38/hf9EzBT/kz1Ur9V3hUNA3zLXGV0JjjZwbumP0/RHHMu+H
3gTej1oWWMcfa9aiheoQ4Iv7ID1/P/g/PDFwNmjEiJT9c/tM7pS8DnmWYsms
Zs69pPsm9zdoIL/w1ZatbPL0mSmNSPcjyVNELYd7R62bXBc9wTfecYf1dV+B
PDKzFIitsKnSeXCcha4/Mb10Hc85W/VEvnOfQYPkP3LwPdGoKuxYPZc6stsd
zXqqWDE9C5uYcM6fixRnoCube2ifrd+w2nZmbbVd2czS3W1bt2+yQ0f227xF
863D5x2lHY5OPXw+8vuzfp2na1O+woWyaeeWq6j5VWCNzwPbHMF5lM/h2OKg
lgL2gocVR9i0ow98x+CPYNeivsaMwmZt3rUnm75otR9/VJwRsEYtW/2kHu+R
D+Dcxe9P9JKibxieHHOBOOCzkZMsGFrvySO1bXJLPL/o8iv9Wnxp03+ZY81b
t9Lnzfprkf3612LV+8lDgjVq/vSJolPydvt2lt9xjl3Ly310H7JgkVKajVSh
4kXiYsCzWbFpo/2xeqXW6Jd9ftDcGrCKdmTEX+TpWBOFk54G9mN0SFjr9A5P
nztHeTJqYFEjYI+JHElotGl2iNt9ejOogaM1BG6wbao3OR7JG6MzD4bBCfFK
288+Vf2c+gScI+rsaIeyLzZo/IJiR3yL7z3G2OZx/9qd21N4wx4lOp7U98gl
wpUNzTz8SNY19Y+HH3tcaxhfJPIkrJ8GHpMST5LbxJ9jr6G/955HHlHc9vEX
X9rg0WNT/OIMH5KajvpoPA7ApqEH2uzdd63fqFHWc/gQe/aVpvpuYEraSMnM
n5iFoL5Wvx7EyNTyx06e7DZpv7AGB6T522/5d0/xrbBr5CxUk/R1T06Wfih6
sajBbti5xTZu2yR7ttl9yaxd2yzL8YYvucft3CE7rBngaIYwe4Z5GAcTbT7V
ysucYRdfUskuu/wqrR16epkPhS/JwXVivZOrD44WP4saG/aNI3RXI5cSXJFM
vCmOQwPZfWzWCnlxePGsS/RTy112iZU6N9WnoF4ANNGZ8c3slFKl0ho4oZ1N
rMbscXjgzNwKHzK0lujVoP+QA5+fOLtm3fvsi27dbczUKZp30fmHb4W1r/v0
FIeGfC3/H+oxHPMA4GmeRN4drj39TiXKyq6dnL+IVa1Ww954u6Ut+vtv5eyp
ZY/7ZYZ90bunuMdgjTwk9Tdy4ZxD+ILkI8AEcRFrhZ4PYiryI8R/5OwiFxn6
1jH/kJgMX5KZKGiggDVww/9Zw8ptOD5YL/R1oINBfEjdEl+DHnzynuRC8H3R
dgBrx3jsQm6YmePkU5dt3aRcLVqXfF8+G5zE7KDoKcCmcT/A2oQpU8XtVf4/
qQngxyhvmvQDsF9gK4l/mTV0XbVbrd3nnW3+n38LV9i1mIFdMOlfIwYgN0Wt
9JOuXTWbCN44+hbsVdhQbEfkRkITUzUPt3vUssDQR506uQ+4QbwxdHUaud3C
rl1ROdUHj89J3wZ+1e317lHfMD36a3dssaVrVzjWNtiBg3ttd7bjy/1HbNuG
TWttv/8Mvdn1Wzao93Pz9m3qlUFLhOtC7wT4wqZVuvxq+ZH0OWHb4gB35JHo
JYPvT56S9R9xnHj+id27LkNXPPL9mYf8Sz9UW6t9j1Wre49yIqzn/9xZQ7EB
ezC8EXEuHZ/4stTXWHtpvaSkN5J8FfEaORL8SGxbkdB9ydCDCS4AeWM04Z98
tqHN/+tP3xNfUs8Ddoz6yY9zf7Hp82artt3d4+HHX2io2noBj7FOcB+mgDQw
3Kc7pbQfJTWzsss33ZVngg+5dMM6rVG4nXCqye0t+mepcu9Rn5YvyLwXetH9
wMcjH81aJ59Pz+mAkSOUD9J8d3yjov9qQKd7N33doz+Ilgw6eti3lZs3qd9f
NWdmI/q1xL+ihsMcFfxOacw45ho3byY/Er4LGmFwBbHj+Bj4Gp99/624oltz
90g7hbUHRqJXFBsCxkLDMmb3HsrgyWCTOQf2VmIm4tTQI2afKX7WWVb7scfs
uttus2/7uV8xa470+zW3JsFa1LALwKMqe5o1ffttzSXq/N134gE0f+8d7SGq
NfqagKNKboR1ErOhoicL28Gcq21Zu2TX+K4N/bqU8e90jse59M/Sz1Ih0d1H
kw8tKOL535b9bVl7s2179jbbuHG97cvdbTm7d9qB/XuEOWzdrt1Zttn3p5gv
w/vf6/eI9ZrihFeys88pbxddfLldcOGlwj74Eq6uvTb9XP0016c4kcFHhj8V
viX5+RsT7f5MbtbRdi4z5w8fknw/+XQ4Xvg57FHkg+kvwL/GppMbCo3I6BFm
X425WDHzL/Slyd8qP+brU5rJSa986FGCYfh/YOqU00pay3ZtpPlDH9uMhb+q
J5Re9peavyGeV75CRZUTKVjU/YAzzrHiZc+20o5trg9zpdBA/GXhPNkJ8v49
PCZ+olFD1aumut15tslL2ndVZ09iSs2D9v2XugQxP5xauGQjJ0/RcX1VtwN5
8ionkM7D4UvR+0/8kr+Q9qPuffvYmB+nCm/Eb2COvYzYiCNvYuO4b819nTL3
Er4UvUp1PCZp4rEec47pNZn71x/aL8g5EMviP233eIOeGz6LPYJ6Cxzi0GTG
15UNPv54u9kxc8DXFzkI1eKTmXrca/ANzjg0M8X3itMuOt/uePRB5ZEW/LNE
+VrwQb4leszVF4ytLnaKcsHMH+o/brT2BWK2d9t/oh4q6m4nJ3aQa4R/Qzwf
vXDE7pdccbX1GejnlL3HVm/cqBmdc36da1dcdaVmLZ153rnSg6NHEx2d9zt+
rH60MR6Da/7wju221mPZ3bt3W+7eHNuT5fHarh22f0+O7XI7tjs7y/b6z7ds
26pZu+hiMv8TrJPb5LqDuYoXXar+IPIQkRuhrh3PyTUTu4Ev1eCuqayfcw+j
Po2PycG9xm+4MfEDsWWs7/Algqd1/R3V1TON7v1dD9yn/QnfAk4WPDwOsMZ3
DZ3x0IgMzRlpQvt+B7cdHyD0M1gTMTMSHyI0p7En2BHmLKLPf3u9mvac2zdy
/AMnjFb8huYdnI5b7rhL+2zhoqU0wxa8FfF7JqydU041K2pyzKdF55/eGHxG
ZlChMf36O62VL8RvZr1rxhi9xYkmG3aWmhH9ktdWqSqe9PcDB7l/94u0nNFQ
oR4fs1tYR6rbFy6m2BTeKjOpAmtwV3jOLCPmpZM7FF85sUU8Yi+rVK+ua4ut
gSsI1wn/E78SzYZ/fN+Gp0mdHa0a8pfcP2nan3OuHXf8iSleQdIjHzVs+F9w
jdmfpXEHD9HvKXsNa4b7UCKZi05/8CVVbrD7Gj1jLTwmXu4xzlfdu6uOgBaI
cJznJL0HNhqskT/7vGcP5UTw1Tt1+9qatX5HvcFcQ83TSGJ25VUK+ncofZpy
fvg96Cszk3jNlpQG3aHDZj/7XljObVoF/570oxUtW1oaRWCt8euvWrfe32sm
H7MthKFDh2zP7hzLydpph3NzbV/WDrP9ftaHDwlzG3yv2rBhg3D8vPsqJ+Q9
SRgTJ8vXNT5axYsvs/M87qFXl9oM+x48HbilPOcR7IG3yE/iR4avB4awbYE9
bFfkG1lr/A4c8to0J/LeOqpDNXipserz5PrJPfOdsOXYNb6jeE2lSqXzcXF/
Q08NvGFj8LPhvnBEfl1xRamS/6OvnbwEuQPmgr/89hvq8Rs0bpSNnjHVpv/2
q7Sv6O2CS4n2Rf5Cbh+LU68r7Wu/qBUrm+TQHn9Ms2vgE6A7Ss4BXX98ssfd
byRWwo/k+gXWWAvqP05mrcA54sB+3Xp3LWvWsrUNHD3GY6yPxUki/5bWbUtq
9dT12LfJweM/wBvGF6S+gA2il4zaAXjDthFfxdwj8EHsSA8HeyW9Maxnvh++
BxrBxKloN1CfJ/+Cv00uKfjT9HtKkyjR/gkeCRxlOH+hW839x6bR38ZeTf6V
zzqxcCHNYa7+0H1WxWMi6qvEnJ2+TPUGonHFfgme4bdQ0yC+IN6gpgKPp8/o
Edal5w/2VpsP1D8VWMuX9H1g08AbMT093egpYEtavveB/bN2vbAGf2Thot/s
QmYI+b51eeWrxGmkjxrdy1YffaBaK1hjtgWzdTZv3mwb128wY0Y8XBC3ZbnM
Kna7ttdjZniS/GPe7i2OA/Iu+K7scfTbg7WLK12lmcLEkOAKnIE7fFeec4A1
cbgSG5eZn7wu4YRgw25IfMXoJQ37xuP1GfmRW+vVVqwGv5/ZScQE2By+F2uB
XhJiRno7woeMGQdhs/Bh8DHxccmf8lrWlfr1k5xCzAuIfZU4hlzBnf75cLLO
vqiiNX7jNZu35A+bMm+WdHya+dqir0raFgVO0azooqXKeuxQ2uP0lP4rtaaV
m9arn51+CdY6tg279mrLtxU74UeCdfJ3MZ+2cOJLah92jGG7OFgzTzZ8wW1J
H2vV7qNUr7/7mJmz2sEa/DDiUtks96+wS2CEvmP65YZPGC8+FjYGvS5xUNzH
S8+jTnIb3HfuCfz+2IfI05AzhpM2bvo0W7ZhvTTtwdvDTzyh94n8ovj1Zcro
/zySc4M/j73E5sJvhudCfpWa3vFJfoUYEt5DrSfrW42H71e/Lp+T6qM9QfFW
+JDcM2oZ8ALpu6I3g1iSmnvf4SOsxQcfyq7hAwRfiPoPtVfy1FwzcIddq35X
LXu/XXtbtnqd9FWJp8hjXOe+GnoG9MbQb3aWx/D3+Pdq2uJ17cfM68OuMYsg
22O9HD/2ZWebGzk7vG+PHdm3z444tnJ27xJXcr/vN3/49QK/Z/g6IyfLmsYW
UHMEZxXcjwRfYcfg+vCInQublvkcfzJ8SjCXia/I7fMYvdi8JvrX+F2lKjcK
a8wqI16jJoTuEN+t1r33yv9nT8CuBZc9YrXQT+NnYA0eF/gEb/wcvzNy5DHn
jcfQ0uees4/16NdbGrJopjBbm75A8g1wFYnJsSfcO9Z48VPRxztTORLqr2iy
Ld+wVjijt51cJHijX54eGTCHbybOrtsgOK3U+9AgJYYIbSL2ZHLarJnLrrlO
/a2PPd9Q+mBo2ByT92RhDryFLyntKTDstgKO+LNNm0hfCP15ZunQP4L/mrV/
n7RiVYsGJ37AASZngU8ATtifiMHfePedlOae7wuhwUbvDxpUnBf9KPSAMbs4
cj2Rb2Re1HbHOXlUcpX47NjC1u3a6nvRq4V9AjfU9OgLrvPkY+r1m+97Fbkl
fM+YRUjsLdz5vkg+FW4pvG76Mj779hvrN2qEfMinXnwpraMmjhDzNxKOLHkz
rnPkz+6oWdu69ehpK9dtTGtF/uP37O7a9/haq+b7wr3SzLn0uqvtpjur20NP
P6G+s+FjRwtra9eutZ3bd9i+nD222/9+p9s4YjbsG1gjhsvN3WMHDx60H9z3
zufnSi8pcRAYA1fsQ8Ql2FjsGFji52ANe8ZzMIbfGLNWon+Ug/sEhiIuuzaj
jsZjlaRvjdfwel7D7y71OBROBv4jnBOwhu4R3+uuOnXkQ2LXwFrMzg6sBZcC
HyZmO+BH0suh2k7Ssxvzb8K2hZ655iwXLWIveqxI/8P5V16mWTZgjZoTe3Lo
OhVK4izyIif78/z+s+dfeVX9ZsRr8E048B/BWfiR6CIwA4/vQo6CfCi+IzWj
/IlmvT6jZGlpbqArS77klbdbejz5tPIj5E3wJSNHEvYNnNLfAn+KAx4K+CJW
27QrS34k/mGPfn3FsaSWTG089if1vBU5RXEt1xX/gGvIvSFHjH9xcqKLwwwI
ak1D3J/k/elMBnM1atZM8zapb2NHiVHZW6Qb9GJj+9KvZfsvOmuNqY/Z4yJy
ZMylu+2+uvZo44by2XsPHZLSRchfQDObVJd2v4TcCnNx0TEjJ4JuBbkbtNCo
f8O1O6N8RV23TF9bnIbipeQ/gjd8yJurVbdpM2fZ+i3bZdeYD8MsmPc/ait9
OLQX8R0r3Xid3ec295MunX3/aWVffN3V1jvWiMNy9+y1PTt3CWeH9u51X/Kg
HfD3yfbrkuU2DR+SWO3ZRg3d7yqu3jbWMD2/cBA4sGn4keErYs/wu7lmcYRv
GbYutF3AT2gbcK/wE8O+RS0AW4bdI77jObVs9HyosVFDxafAhwRrxJLE72Gn
AmuhDxm9UBErhI4m9Up0MNjH2fOlqZw8qt/K8aUZy0msx72vWa+Ovf1BG61X
5tys2LJJM8a5BgUS3lfoB9FfhZ05s8IF7h+2FteQeaTM5Fi8YmnaprFHo/sP
ZqlBsp+T7w6teribeZO5LKHDBoawX+Q9b611j/qz6HM9q+IF8i9ZS6EHXCDR
Bg7dEWw1sRD+WsRq4I2cI7iRxu7ubHvObR/fBbsj3BVIcS3I+wVXk9+zHrhP
+JasAa4hvir55aZvvSnNMGHuyBGbOG2aPp9rCNY+9vhUNTiPs4gxvh/QX70D
xGjYYDgQ5GjJhTHXZIDbKbQjmLOpugFcxqLFFbfBYcCGMmMJPYlBzKj8ZYZ9
2v1r6RFSJ8HfhZfGfVVs6p9DbCG97FPLKEcd80TuqFlLfWtbd2Z5/LVNusP4
vW+908pOO+8c6cKhu4iuMDOuiNe+6d1T2nLoN2LXtm3Z6v5jjnCGH5mbvVN5
EvPf78nJthw/wNrL7s+wl5934fmyX8KYP4Ib/JdyF12Stmv/DWuZuZLwJbF1
oY0A3ojleH5Twn2M/GTob4V/CScEu0Z+BB4eOuDk/IkXsEto4cQcy/AhQysz
08axP/MzcIbdIh6H1w5fgryyDl+TYC3wF/3OBRIeBHEI58p9g88Kv4L/kyck
30fvInsjeyVYuL4qtcLbxT2CPyl9LT+IOeBAkRMkj45tg+cDxrFBykOiW5+/
UKrfn9jN915+Dt7obUW/AS0N6rv0daEbRX4EuwYuj09sovLbSS0j5pBx7viN
+LbEWOhaEVPiG+JbogWi/CS9b44H/LTMWRtc3+Dhs26pvXCvHnTbDP+feg56
olwndKkm/DRdePtt6RK9915fZT0HDkj3sbBG6DWgvgdWqYfDgcAvZQYk3Dxm
LsAd43pj0+hTQsOAWhn74T0PPai8D3UY+G/0HFKPYHYr3wVfKPSzQxsi8kD0
ZWO3qSPTF/JYg6fsr3+Wqb62fVe2+j7B2gO+39/q+Lqt9t12ziUX2ANPPe4+
axtpYqGZTky/zO9rbm6u5llFvLZ/9247st8xl+OPhw/aPvzHwwdk2e6gplju
HGk+ZuYawRH7Z4VLUzFa/C58yMBY5EaiBhB+ZcRt5CWxc5EbCU5X/D5wx++4
h+dfc5XyuPIn6tyj64YvhC1DLwdNCrAW+Y6YbRC2jUdp+yczAVgf5DLJy5Gz
577iv4HfAgnmYnZk8Oeox1I3FK/BcceeC5+IvRJuHvVy+vDh513gMS3+Hv36
cIqYN0KNDv4OBzUietjoH6BuANZYl9hM8tbgCMzEnLHIdYS2r37nMSJ+I5iG
jwRXkBwJfmTobMfr2cM5r5iFgEYB+ozkIui5Qcd66LixqqNRx577+2LFVJyf
et98PcesCdY59i3qA1xn9Vp7nMmeTM6VHiDmQeADPvLM0/bme+8qFiNvgv4l
8Rx+ZsSn2DH6qtAd5r7AK4LDwqzl+xs8IS4YGp3cK/Y/vg/+I3aNOg6xATaR
vQs/k+s6de7s9JyzO++tJztZJNFclc5P6VJpziX+DvoZ6ERztP+ko61Yudpy
9uTapm3bbS8xlmOEmL32Iw8oH4L/eMNd1X0faGk9BvZVnrpT1y8142Kl+y2r
3C4Sr+W6nwDeDuWm8v/EaocOothzSFir5Pg4q3w5cZvBDDYsfTjOLrziKu0v
EaOBr/AXM3Ml4Cxs34XJHGgwh78YNbZMDUl8zKh3xyH/8raq8iHBGjM48eXJ
EYI1cpD4kORuopYdOZHMmQ7qq0/mAcDDYKYgs2Hw51u4X8M9gCdInj9mI0i3
F/3EYqlZSNJgdLvI3guPl3iefVK9U253zjyrXApz+QooN4kWDXaTenfMQVJv
t68FOJFwkOH8k1OgN4mcJ98t+LPYyyIJVzqwJvz4GqMfsvRZ5ygGoZcSziBY
kx951KyksGuR68GPJL552f087BgacmAL3gr3AO0ebB79AeqtoV86Q588Zmpk
7mnYOfGg3bfEVrG+3/S48Ae3n7zfN717CV/gDY4MmINzSV6FfA29QtglckXM
b0H3AY4lWizghzkJ+AfKZZZOcT7o+dT8Hv98+H9o//G6xSuXq/4XfgPXH8zh
O1CXlW9Mz4PjnOtAjh1+H1rPnbt0td59+tlmamseb23YuNm279whntaiv//0
/ed5e6H5K7JrN95dw+o1qG+vv99atWx4e7xm/sIFmh+Xyo/stt3+90cO5Nrh
/fvs8KEDtn9/ru3z/zML/ErHA1hj3kzYrfThPuT5l1+h52APW0cdkoP/B+7K
J7NowWPYvbB5kSsJ3lYc4C58TOyZerKZ0Va9mvpFmb+J/gE+pGZ+XHuteCPY
NnAXWItZdIEzMMLPxR1CK9BxSi8IPBRqngPGjNJ7i8tXskRaiyPmeaJLgS8v
LhSzTX29sgczN1zzefMXSumoFTxFvEt6CipeVslq3FNH+XziiNYff6j5o/QG
jJ/5k3Iro36cojVBTEHva6kEx+QS4fWFLn1gLeawYPewm2hFoSsFp52+E/AH
RsEi8WJoPHD+HNh8xa5JnISNpoeGngF8O2wPewk+FzOL4D+CRfStMjmX1I65
HpFvB3vwXbB12Apxm/26kBekxoA2CjkSeJwc+N5gED17+GLUO+CG4WfwudPm
zRVXmD5F7D7XiP0IH4LvIT11bH++/GneMPPTzrigovomqMPSp4QWEhpy+Otw
B9BqQdeYnC+8NeoX1ByIPdA7afdJBxs5dpytW79RGMvN3W9bt+2wXMcItq1n
vz52j8eOD7rvyPyX55q/bI+/1NBqP/qg3f1APdk9fM3Fvp9M+XGqcvrL3IfZ
uXWLx2n7VMdWTuTIIdk14rXKbmfAWoXLUnkOxWGOFx0XX5r2IcOuxQGOMv3K
wFxmDMfvw4fk4Dm4C5xhx7Bn4IycJDWAK6veLKxh1+hJjNnCYA2bRn4ErMEB
CluWOeeAdQb21Cfpa4yZgtQ84aKANfJV6C9i2/AzYm4b91Tryf0y9lBplmPv
/D2wrcqZue8ZmgrFiqc0qMlpkV+Gl0fPRbvOnaxjty+l48ocUuYFwLeAP0Qs
T1xBrzl2jXxeYCX06dP9dolPqTwjOvXoGzq++Bx0CouVPV2xXNS8w75x/tL8
LZGyzaEfiT9JrmH89GnKkTCHEV05eKb4veRu1m7fJlvEfhY9CKzv4HdHLwWH
eKhJz2rMgsWvJP/1/iftxUMDd+SUwCD9OdRN4EWDS2qN2LdJs35WbE6vEb2D
xGnMpuB+whvOd3KB1KzPQin9T3xAelTpaSx+7lmWr0Qx6fXyvujl46NzHvRY
wDEDe9QYX3q9ueaeEofT2zNz9hybM3+B7c7Za1m7dtv27TstOztHdWlwMd/j
2k4ep9eoXVNYIzdyz2MPeUxZyz78vKN6idE8xrb1970kx30FdBDWrV1te3bt
EDcr8v3oIuzO3aucyBkVUliLudSsb+wJWOMgHubnUcPOrGtT5468SNi1+H/4
kfiNPGZyuoIvAs7AHfsuOf9ra9xqDz73dNqHJM9MbEVNjdoa8VrMqsnk3Ua8
FmsN/wm7QS8YusnNP3hP/d7MzeC+Bh8FH5L30Lwu1vwpJe24409S3oO8A3Yn
5gJjf2JmC/cef584m3UMzqitUuts6/ei83ffuD80X/r95Kaxp/g9bTt/phie
nnbmZfDe5PYLJXzI6G+NelnUz8ATmAusUXvD3vH38TueZ2poRV1Zuq0FC4if
gX+HbaOvhxo7fU/sZfi/zGvHJpA/iTkD1MvUw5Mx6z1zZo1m3iVz8Moks1Gx
SehxoQWGvYTPDN7QL8eX7Ni1i/Yc+AHMLCdOQwMJ+0+/AX4Pnyvuo19/tMmw
bXyW5h74faP3o/AZZa34WWeoF+Q+jx2xnwNHDbeZ8+eqt2xb7m77c/VyW5+1
zRb+85d6EpXTWLNK896ZSb3OrwUzu8klZmVl2eHDh22rYxVOSHe/d+iD3Hl/
3VQusm5NX5sNrJ/HCMs2rrXPv+lqU91vgVeMfVu3Ya1tcbzhQ9qRf+3aEX9E
8x/fEayVv/Qi4QsNnXKJbSMG5wBD4UOCuTjC3kX+EQxm+pYRx2HPIncSHK6I
1cAa2Ls+0Rq/7vbbrH7jhtIEIweMzoh0WK+7Tv1RxGxwtPAhM/P8mfkR/Cb2
Pvw/ZpxJl/GzjuIWoIva9qvOslX0Y2LT+DvNuPP4B6yFbjx+nfpu8p6suIq1
Hbpn4JLn5LLAGjkXahTkqDp0/cKaOObo48auwWcg9gdzHPR8EE9wboERcC2f
EZ29wkl+JMnjh23joN8/NLj5O2I22bWiqdgurgV7DvsI/jSYw75JF8/3OvSC
qEOgewIO8NHxBalZMY+PXhxiLGKm0DAg9y5tF/881j/5o5iTC555XfgBXA/2
EdYS8Rkzxanpq6/ezxuOV58Rw9TrXb/hc/bBZ5005wCOPjZROVq3abx30aLJ
bNAiKQ6ebOjpZS1/KfddTi0p7VB6Dqm3E6ehL4gWHLNMmcuMTgE6nyu3bBDe
yBHDoVvjGGMezNatW1Uj25uzR/nELZs2244dO8RznDl3tr35Xmt79LmnrJHH
beRGHm74tDV68zX7yWNx+kC+69/HJk3/0UaMGW0b3c79vvg3j9m22cED++zg
wf3SjNx7MFdYo66GPit6yDF/Dc4BeGMmLVjLzImED5mZ6w//MvAY8V7U3yI/
Cd7CpkU+MvzIyEPeVPNOe+qVJvbkiy+IO0J9jftG/w68kaq33646IFiLOC1z
PhH7Kveb+g/xGLNz0dFH17WT2zXyXO26fKHzxO8PvbQy+GRoLRUsKv8QzlNo
3cH1YT1jf/Az4dpy/2O+NDE3dSZ631584zVr8eF71vy9VvbZt92Ul2a2IZy9
L3p9r/+3/Kit8naaSe9xGP5g5CIVrxUqmu6LTM/VBEfkCNBdK32qjnzF/sVa
YDbyhVELSWvslErNH+O7UmPDf0OXZ4/vuviQ2DByCR9+/qn8XXiP5C1feeMN
vQ/Ywp8jHwjWiJ/SWPPvEthWTatgau4dPgn2hpkuYBh+I9wO4mU4zK+0elt6
5l/37W0dunVR7uipxi+k9eYCa+CbI2byFChdUv20+UqXsNLlzlHvP7lQdHq+
H9DX+g0fYpN++Ul2DDzQ80v8DOYWLvlTvPAN9NM61vAZs7Ozbce27bJtYA0u
MZxI5qC99Nor0uR//rWm9nTTxtapRzdr8fEH9tGXn8mPRM8QTRps4J+O5blz
Ztl2x9z+fXuVF4Hjn4rYTDOd0Pg/58LUPO2YDcU6QOMVrEVtG38x8v2ZeZKj
cyOBs0zOMpgLrJGbjJw/uLsxmVXDUfPRh6xxizeUy0A3Atxzz4jzat9/v2I2
eGTh+8Vc48iNhJ9Bzhu7BdbQ0WdWzMdfd5G2PmtdNqVYyhaGHjV4o25G3iNy
gWEzWOf4kVrD7kvRc6x5uL6W8bHxCblmZ15QXrq2zIpC345eGnS04MX2dv+m
S99e1rr9Ryk9Tb8O8LqkT1Mqxc8Ca5lHzIcOu8b3wLZptpzb4uBO8qjnGb1t
wQfRnN1kbhNxJ7aNmIh6G3pAOR7Hw0Ulx4F97tDlqxRn2v0iXoOWCLk7tJ01
OyrpGYz+a+5FzGTTTJ2EX4I/wvtFvzB5fPBE/oPrgk8NL2foxPHpnh10edgr
iRF4b7DNrBnNmXGsYZ+Js8HaqRXPU3xAXgXdRjg7g91vod+F9c+sITgF9B9y
P8AGWlZwVbFrHOvXp3zInVu32f49e23f3lzlFNesWWMTJk30vaa5+1s1lPu/
/d7amsHX9qvP7OOvPpfuNXUdtB7b+F4OH3nWnF+ky7pjxzb3SXdID/nQkYPC
GnYN/XG0kM9NZtizDnk8y+MR4jX8RdYTB3gLHzLsVtS6ow6QySUhTouf85rI
j/CoGQAZnBKwRl6E/jV0WO9yXxltSLhycPCD3wVHDluETxNxO/desdQp/2oC
cL/RFQVrvB86JvAL6CUkD0juRL2LefKovy1m4MpHdHsX+zTvxzrlPrNmI/8d
88/APufE+WGfybWR32bvZg0NnTJRWPth5DD70P3XTj2+kZ+MHURjo3jSU8L+
EDM1I4efOYcdO6s6XPGUTlH6/xmvi3pb/oSzpR6CZIY7B/xL/qbyf26yISPH
iAe4/4jZ/MV/2u01a6umwT1v3/lLGzMlNWcG7gt5nvufrG/5S7pPnee4VA4y
z4nah9AEpu4I30waRQnHNHjL+Ev4J/RaEte26djBOn/bXXon+I74k4rVenRX
bZz8aORl8B3RUi3tsbL6qsukel2J00qVP9fOrXSp6rBw1amxgbGps2bK3sBH
pdbJfJPejgv0meizR9PiT99LNrmfuG3bNtuyJVWL3rMrW3Wx7F07ldP4cfpU
G+e28b12baxlu/fskeef1Py0Z15+0abO/UVavGgh0DcKnwTdx/c/+ciWr12t
XOa2HdvTuZa9+3LVe8q6BUPEyBxh38AWditwlcnvz6xnZ2IvfMj4nXB3ySWq
ieH7SUchwVnoKIQPSezW4OWXZINeebeVdBCYfUjOCT+f2fXkK1nX1CPBRGpe
xinp+gtYYY+N2hr5EbT0eE96CokNsJnsuZof5FjBFmDXpJ/svikxXFqjO8Gt
sFsspTkQPfsp/mRR5USJIalJoONAXoH9GX+ReI2+7Pc7f2o9hg6y19q8a694
DPD+551kw4kzqEuoV7J4Ch9H18yinzyztzxdE8iI6Y7GZOBPumEJBxceGHUK
9NGuveFm+6jDp5aVkysNtcV/LdVriB1r3veAsMb8D+pWi1f+o97Zt9w/LnfZ
RapZsebJhWJPwTB/B89UPdaJXh7nxt7NwX4Z8x+oe4MNsIYuFbEbeUg4IXBK
xP33vVNxdKFULkr5meKpPZQ1Ae/hNPfHyHWxp9HrO+u3+VrraDD2HNjPlqxb
pdoL9oceezCIvu4qt9ccxGbbt2+37B1h23Js86YNynEs8PeaMGm8fdC+rX3p
vmODF58TJxKsfe34qt/wGWGP2c7kwxYtX2Kfde8q27nV8Yqfum/fPtUDqK9d
jT4ZHLEkr409Yx8irmW/BieZ+Ikj6t1HY+/oQ6/x94BjBd44iN+iD0BzAdyn
IV8C3tBfZR1ih1iL1MbQHKhRp7ZqQeCRPBW8TdXXiqU0NuXTJznpdK4bjPje
ih4sfikxG34L8QL5AOnoJH05mot3amqGZ/S6hc4+ti3mZkafAP8vWPJfPSuw
f+1NN4l/KC0Hxxo5SPKOnAcYA28d3aYRN3KO9A/BIcHnYo1KP7VgkfTs9Uwc
xf/TWukZ9izzNZm/i58VTOb1aIa7Y4maBb0l1OFfaPKK/TjjF49dNsnP+fTL
ruo7uO6WauqbI19CbmOBxyL4xPOX/qm1xRwD4t1jTsgj/5fPk15SkoOJa8Y9
IHbG78PH5lzZx9Fpgo/DHCJmO+LXwz193uMjYi9yptRhUn59CekYwF+kHwFb
ST82eyh1oTfavCc7qZkzK5ap34VZTfiSG3Zt18xK9ArQ1u01eICwthy+h2MN
nOXk5NgOj9XwIek5w65Rh57trxs3YawNHD5YfOO77q+ruO2F11+1Zu+2tMca
Pat6GxrI8DDRz0WflVrA5p3bbefubMWCvD+2jT4d9nSwdlbiP4IzPfq6oy/l
aKyBn8yad2Ze8ug8pOK0RH/rv2Et+FqRm6T3HR0ZegDR9qE2xhxf5tIF1sAm
11x126TGGj0XwYvEhyE+xz/Dx+B90cwgJmAeB/UtcJiJNfxRMEysgP/IZ3DP
Y5/G7gSvC7xJZy2xgfii9K+Tu6M/jD2WtYO+GRoqzT54z170/QOsfZzMu6Lm
x5qj1lcs4Tjkz8yHFP6Xxx/+YCbWjvYfj/Y9M/EX2pjor8B3if6SSle7T1/5
OvuyW3fZtlwHHBp+5F2JT/GFqY0xJ4RYBcyt9/VLPEc/H3wW4khsmvK2xVK9
geQi2T/AGfYPXxk/kjgF3IE3+lDp53jprTfUTwNmwBr3B26Z/Hj3G7m30gzx
5/A+8DHZo9DUp6cO+9h32FCb/NNP9vvSv6VVBa/jW4+N4aQSs2HTyJeQVyQ/
Qv0MjR3iNfw8/MddHqfBzd/lcRac4YWLFtiv8+fahm2b9Hc1H7xX+WVykl98
390efPqJVN3tkQd0Lei5QiOBuTObPF7Dj8Q/PXAgxYes7euC/SPmkMT8eu4/
8bDwluFDBs4y+cf8LT5o1LEz62uqZ7vfKI1Jx5v0v5Lem8iPZOpxYc/gn6LJ
SuyGXUOzDh1gfH3WMZiEDym7k8RpMX8t4vQiyWx7bDT1A2JA5t+ANWqn3H+w
hg8pnoX7nnBuiQfwCXl/OAZgLWZncuBDsp6kfe940xxh5muWSdlE5o+91vJt
8RWY98JaIAeJTWvqfux7bs+e8n2EXGvdJx8Tp4E4Rrj19fnfYrBMu5XpKx6N
s5jRnonDTD0jsAa/LOp39E6ql/vYE+zW2++ydp90soV//C1uPnUB8pUvvt5c
PA/qGOQX2n/1eUrv97eFtsbjnTYdPhEfg94f8qnEs/L/qLmwJ9FHwQxGP8hz
4k/gv+M7409qZuy5ZytvD08IPSeeE0/rmidz0GIOEfcG/4J6ILys7wcOEB9m
ycqVNmv+fGnDoemJXSMHgl7q94P6KQcJv4CaGHNjyEEOHj7MZsyYobra3uzd
8iPhWNEHs2P7VjtwaL+Ndjyin/pc0xc1mxBckWNu0fZ9u/muGupHQRMaHgz1
ybc+eNd2+9+hbUz9jl7SvXv3CmvNqNG7H8z1Amv4kOw92PvwITNjtqPzjP8n
rn/kH8UxwZY5xtI6e9dUTnO3QnsrsIcmJNpu8G/g+8NlxK5Rm3k46eklj4L9
idn02vuSvJhyI4VT/H1iBbTRyWdGDEgOsNbDDwpr3H/skeaRe+wHH4kYLfrS
sW+sGWq0XB/2U/AVdk0crqSODtb4O/YB5Vl938CmwcGES9t37Ch7xu0YWuOV
brlJuuPEo3w/Dq6xYp0Mjn+mL5mZ+zj6Z0f7l//N9oUfiQ+JbQuOM3MzNc/P
f06O4+4699rs3xYLb+iV03dHboQ5faPdrnXu8bXWLRwQfEvqcHCYr7rhJru0
8rXyJ9jnQusUXLF/4zuCH/Zx7FvUlvAF2UvhrfHIvPTSFcpJV557pH3M/S6w
xvXF92LN4DPSQ4FWOlqcy1attiXLV9jc3xbYoNEjlI/8Y9Uy5XTgL77jMRff
nXzhux+3lZb42IkTlNsHa+QeD+buU9/Ztq2bxf8gfzh33q/Wz2PJ519+yd54
v7Xv208Ka20+/cSur15VesPo92Fn4cKgtUa8BtbQzaJ+R0yID/mA+zxgjXMI
rOFDci1YbxyRe/wfXMmjjkxOSSaXS/l+963Am3RcyY8kucjAWnC4xEn2dXjn
Q/fbzbXu0nNwBveNehTaonUTPzJmx4bOSPAAwY1qbtgsX7ucCz49M2/QVCYH
Se+G9k3fZ9knpSOc5DIj9kLfBB+S9U8cy/mDN/lF6JMk+RLlYQqncizEeXAm
2Euot1EzIl5j7s40xxtxGrbtkReeV+0B7id8JXwp9ibNDXS/DvtTMNGs/z/h
6r9hKeqB4TeqpzVjHpZ01ouVVP8/8Rp5EvUH+eepZ+HSStKmfeHVZuke0M05
WbZlzy5xMIh9pIm4frXiH3Sh6Z0Bb20+6ah8inKIbvvZ6/AJwNpZybrikX2F
mRDk4MiVgDVyzadVLC+snX7R+cIaOj/EetHzyz2Cn0e/Hf1wcB+Z5QO3eemq
VeI0Lv1nufxHbBqxGbogrP2xP00Vj4c4q8lbzYW3r7p/bUPdDk2d9qMdOXJE
texNGzbKrqk25riDP/K3nx9Ye6pxQ/GQv/qhh3zHh599WnEmsT/7BHUNaunk
RsD5escrPiT6WsRraGjdXK2q1lnUytiDVCcCc+4TaY//LznI8CV5DB/y6Hxl
2tZdnorZQsuVtRjYCt0tbBvP6RXEt4KnxXN8yIuuuVr5KWJpeG30TmEDmX+g
GZB+L7BPEWeJx+A2h1iBc2GuFNqMDzz7lHiuzKniXhNDYB85R/ZO5riDl/Ah
8aHB1xmJZh7ny34dPQT4S6qvJjNzeQ7W+OwHGzxp3/TrI44I/utXHju882kH
a/7h+9baYzVmb6C7iI+PfwzW5MOfW97KuK1BTy1s3NFHzCaIOVfxPDAauCKn
GPMLwq6BMbCFTi3xGhjDpmHfeC0aXhdfVVn1N3T+A2PwLlZsXm//bFijOevU
rrB12D7mw23YkWU/zZ0nLBALcB3YO1hH5LVZV/iP2DJ6Zfk5PCX2UTR9yOHn
L1NK9elCZ5SVXeP+EFvAhWW/btHmfdX80MukFv/78mUeny2VTVu/fqOw9s/q
lTZy0njpe+I/fjugj2zQ4+7/dej2pWzc8682kb4+WKMnhngNrOVkp3j69Jxl
uT+5I2un8vZDRo2QxkijZi+Ln4A9g4+Hljm5AL4/uRHu5Vc9v5WuE3YNnhd2
jVwkecgWHtMF1sALe0+KM3KReqHB29H2KupnmfHb/83e4TtGvh/ecCYPRRqX
Gbxk/DzmZmAP3vqwjdWp/4i4kcTn9G3A3cZWo3lGrY2/4T1Yp6q5J9jhfNg3
sRvE2tg0dEyIp+lBZX/l96Gxwrz1Cy+9TPeUfBB2WL9L+mbjnPmM6EMskvg4
YBwtE/Zg8IcfxfWDz4C/io4z8Vo7x1erju1l3+BntnBfhntEPIQ2Af7nldf+
R9plZ5arIJ8OHIG7wFXmIzaQmhaPgSv6xDn4PXnB084up7/n97wufEYwxyM2
Di0A6gC8l2Zt+N5CLpDrTc5u9ZaNfqy3Lbt32Nacnda1Z3f/vvVSfpXv5ehR
UhsgfqM3lF45dA+I94hb6ZPApyYPRHxK/Ya8MpwSYlp8fPww8WCffNQeafys
/7+O1XroPmlRPORxO5x7fMO12zarVwmco6E0a/6v9tsfv9u6detsyZIl4gKj
Cw/O0Jf7fnB/1SmwaeTnwcK7n7SThsEw94M3bdksH1L6PI613N05Kf05fw7O
OOjBhpNCbxWzDYjRbrrzdrvxjhrKkTNHl/lv7CHgke+YtTdHeUjsGt8NH3LK
9GnyIdO9MoluFZwGeFGs29ASiZ7R4DdyBG4yawCZWJR+QkZtDdwdzfUKXUls
2/8CHGZnPw==
     "], {{0, 114.75}, {164.25, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{96., 96.},
     RasterInterpolation->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{177., Automatic},
   ImageSizeRaw->{164.25, 114.75},
   PlotRange->{{0, 164.25}, {0, 114.75}}]],ExpressionUUID->
  "777f9eb4-07e0-47e3-8137-26dd7f16dd69"],
 "  "
}], "Text",
 CellChangeTimes->{{3.889365943157978*^9, 3.889365948079358*^9}, {
  3.934963194279715*^9, 3.934963194414769*^9}},
 CellID->235543903,ExpressionUUID->"a3ebfae3-cfc5-4276-b645-2a85bdd73509"],

Cell["\<\
\[OpenCurlyDoubleQuote]One would be hard put to find a set of whole numbers \
with a more fascinating history and more elegant properties surrounded by \
greater depths of mystery\[LongDash]and more totally useless\[LongDash]than \
the perfect numbers.\[CloseCurlyDoubleQuote] \[LongDash] Martin Gardner\
\>", "Text",
 CellChangeTimes->{
  3.8893658400147963`*^9, 3.8893658755562572`*^9, {3.935483417863593*^9, 
   3.935483421505891*^9}, {3.9446664780637035`*^9, 3.9446664806789455`*^9}, {
   3.9446665326159134`*^9, 3.9446665353934746`*^9}, {3.95140038275391*^9, 
   3.951400383006752*^9}},
 CellID->974016300,ExpressionUUID->"9da14f09-8148-42cb-b588-cdc4764d0322"],

Cell["\<\
There are peculiar classifications within natural numbers that are of great \
interest both for mathematicians and lovers of mathematics. \
\>", "Text",
 CellChangeTimes->{{3.7975786538206224`*^9, 3.797578710883917*^9}, {
  3.7975787752432623`*^9, 3.797578803707946*^9}, {3.7975790548585625`*^9, 
  3.7975790563416967`*^9}, {3.7975794530056925`*^9, 3.79757945347342*^9}, {
  3.8072499676900496`*^9, 3.807249969006296*^9}, {3.8893560681486135`*^9, 
  3.88935607323425*^9}, {3.8893652336549215`*^9, 3.8893652338767776`*^9}, {
  3.951400550114403*^9, 3.9514005502300606`*^9}},
 CellID->24113019,ExpressionUUID->"94148a9a-15f7-431a-b957-aab568e7c3d0"],

Cell["\<\
Such subgroups of natural numbers are interesting and fun, and at first \
glance, one would think they don\[CloseCurlyQuote]t possess any serious \
mathematical properties and are not connected to each other.\
\>", "Text",
 CellChangeTimes->{{3.797579057596995*^9, 3.797579152901371*^9}, {
   3.7975793286939545`*^9, 3.797579396085317*^9}, {3.80725027083099*^9, 
   3.807250282720182*^9}, {3.8893558708588533`*^9, 3.8893558712442913`*^9}, {
   3.889365243295508*^9, 3.8893652879557223`*^9}, {3.889365396161954*^9, 
   3.8893653963633566`*^9}, {3.8894397297100296`*^9, 3.889439745806226*^9}, 
   3.930911081340789*^9},
 CellID->1540584697,ExpressionUUID->"b8a1c900-e635-4d8d-ac27-bb2f35b7561c"],

Cell["\<\
In reality, they do possess very serious properties and are related to each \
other.\
\>", "Text",
 CellChangeTimes->{{3.8893653980544195`*^9, 3.8893654411486635`*^9}, {
  3.8894130800852356`*^9, 3.88941308022723*^9}, {3.8894397215115733`*^9, 
  3.8894397235908313`*^9}, {3.889439790209054*^9, 3.8894397903193645`*^9}, {
  3.8894413370264463`*^9, 3.889441337137994*^9}},
 CellID->396670600,ExpressionUUID->"f519f98b-7506-46b9-944f-e2e4edfebdfd"],

Cell["\<\
So far, the book was mainly about prime and composite numbers. In this \
lesson, you will get to know some more. \
\>", "Text",
 CellChangeTimes->{{3.7975793977943354`*^9, 3.7975794372687254`*^9}, {
   3.8072502957926965`*^9, 3.80725030966975*^9}, {3.8893653530867753`*^9, 
   3.8893653855319233`*^9}, {3.897623934191749*^9, 3.897623934697195*^9}, 
   3.9309110941877327`*^9},
 CellID->1053533912,ExpressionUUID->"fd3e1ae1-c4d4-497e-9bb7-3371eeae156b"],

Cell[CellGroupData[{

Cell["The Aliquot Sum", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336606355554*^9, 
   3.705336630018115*^9}, {3.7054019050053368`*^9, 3.7054019120525713`*^9}, 
   3.705663611118946*^9, {3.706267699718586*^9, 3.706267705967226*^9}, {
   3.708793546556511*^9, 3.708793547001396*^9}, {3.7966194742875795`*^9, 
   3.796619478719042*^9}, {3.8893657303377485`*^9, 3.889365738091281*^9}},
 CellID->1113034648,ExpressionUUID->"a533c78f-ea08-476f-b715-7b3294ec79a6"],

Cell[TextData[{
 "A ",
 StyleBox["proper",
  FontSlant->"Italic"],
 " divisor is a divisor of a number ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],ExpressionUUID->
  "a6232285-3f72-48c4-a452-9bb21f625c6c"],
 ", excluding ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],ExpressionUUID->
  "51234d5b-b148-4f62-bb86-7e3dd60e5d1e"],
 " itself."
}], "Text",
 CellChangeTimes->{{3.78910958541503*^9, 3.7891096063120813`*^9}, {
   3.78910967551058*^9, 3.78910969413293*^9}, {3.789109730787014*^9, 
   3.7891097544524827`*^9}, 3.7892873173196106`*^9, 3.789360663257821*^9, {
   3.796619787968927*^9, 3.7966198082872887`*^9}, {3.7966198660662146`*^9, 
   3.7966198682379527`*^9}, {3.8072532796198854`*^9, 3.807253279811775*^9}, {
   3.9446525098605957`*^9, 3.9446525100152016`*^9}},
 CellID->43279919,ExpressionUUID->"2d1fb4e3-ff69-47b1-b5db-41bb45d527dd"],

Cell[TextData[{
 "For example, the proper divisors of ",
 Cell[BoxData[
  FormBox["24", TraditionalForm]], "InlineMath",ExpressionUUID->
  "43420945-049b-4725-85f4-04cf06e00590"],
 " are ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "6", ",", "8", ",", "12"}], "}"}],
    TraditionalForm]], "InlineMath",ExpressionUUID->
  "f9fa24fa-035a-4373-9d8d-fdf1715126cc"],
 "."
}], "Text",
 CellID->1556125947,ExpressionUUID->"369fa432-b98d-4d43-b9f7-e2c3e740cfa0"],

Cell[TextData[{
 "The sum of the proper divisors of a number is called the ",
 StyleBox["aliquot sum",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.7891099152666626`*^9, 3.7891099604038844`*^9}},
 CellID->1752938063,ExpressionUUID->"75242ba8-f50e-4f02-a593-48f5b7194524"],

Cell[TextData[{
 "The aliquot sum of ",
 Cell[BoxData[
  FormBox["24", TraditionalForm]], "InlineMath",ExpressionUUID->
  "c039f500-6805-4bad-bb01-f48625dee87e"],
 " is"
}], "Text",
 CellID->301871648,ExpressionUUID->"862f4fdb-0b48-4879-87fc-225a2c1410fc"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"1", "+", "2", "+", "3", "+", "4", "+", "6", "+", "8", "+", "12"}],
    "=", "36"}], TraditionalForm]], "DisplayFormula",
 CellID->631054012,ExpressionUUID->"ddc364ec-45d1-45ba-bd51-a2bf3dea9989"],

Cell[TextData[{
 "Calculate the difference of the aliquot sum of the number and the number \
itself. In the case of ",
 Cell[BoxData[
  FormBox["24", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d7d8f170-679e-4c81-bcd6-733cf4cfad65"],
 ", that will be"
}], "Text",
 CellID->1892045736,ExpressionUUID->"ade4c7fe-a5e8-459b-817a-48db202414fd"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"36", "-", "24"}], "=", "12"}], TraditionalForm]], "DisplayFormula",\

 CellID->1310632252,ExpressionUUID->"03312ede-cffd-43c8-9707-d84b97f72c92"],

Cell[TextData[{
 "Do that with all numbers up to ",
 Cell[BoxData[
  FormBox["100", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f53bc8f3-e3cf-4e87-8dc0-3bd2a0a13c82"],
 " and plot them:"
}], "Text",
 CellID->384719647,ExpressionUUID->"86395236-411f-49f6-81c9-447527384e66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DivisorSigma", "[", 
     RowBox[{"1", ",", "n"}], "]"}], "-", 
    RowBox[{"2", " ", "n"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}]], "Input",
 CellID->750571103,ExpressionUUID->"5f2801fd-e8c1-49c4-ad81-b29d89df7f6d"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[2], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[2], Opacity[0.2], 
        LineBox[CompressedData["
1:eJyF1c9OU0EcxfEb3bhkwYIFi2qIMaYhVQRDRbmlUBTkTykCaxPXvsK8meeR
fARNPN9rzm/DSZrmk5OZ+2dm2ufff978eNp13eXfzxN//uX3ob9/pYf02WPy
DKvYWSvj10q/bq8pTTYe8aa9oTQZleuPSv/CXleabGEVOy/tLaXJa/uV0mRs
8/zj0m/bPN926Sc2zzcp/Rt7ojTZsd8qTXZtnm+39Hv2SGny3t5TmuzbO0qT
abn+tPQf7LHS5OARf7QPlCaH9ielSW/z/vvsG/b7baXvZjb3P8u+Yb+/Vvsj
+0hpMrdZ/3n2DTN/7Y/tY6XpT+wTpcnCZn8vsm/Y56OVvju13ynNeHyqNP3n
3vet8JAv9qbSjMde/1b67szmfJ5l3/CZ0vTn9lxp+q/2TGlyYU+VZjy+UJr+
0r5UmlzZnI+r7Btm/5S+u7Y5H9fZ99jr15dedrtWeMjS5vdhmX2PvT/70stu
S4WH8Tf2jdJOw6xP6YW9Pip9t7L5f1hl32OvX1962W2l8DD+1r33Px7uH7P/
Si/G3yo8zP/NvlKa+THnr/TC50oz/519pzTj7WH9St/d2/z+3WffY95v6Rte
KM3178v16/wP9oPSzI/3lWZ+7P2r//0fu/DMJA==
         "],
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[2], Opacity[0.2], 
        LineBox[CompressedData["
1:eJxd0b0KwkAQBOBFG0srawULW3+KIBIWMaBEgiZGYitY+wp5dIXMHOwMHOHL
cJvksnh/68/YzGb/NcIasvLhOvVoZgNPPJrZ0S5GMpmbSZ9Ln0t/hLcezZzg
pUczhcwvpD/DB49mStlfSn+F5x7NVDK3in1/i/OT2d9h/J9kpsb9iwen/Y3M
b2JvD3jv0UwL87ta6Z/x/ZL5fBrn1ktvHcxz6aR/wWuPNvsBmS0nEw==
         "],
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$208952#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[2], {}, GeometricTransformationBox[InsetBox[
        GraphicsBox[
         {EdgeForm[None], DiskBox[{0, 0}]},
         DefaultBaseStyle->{"Graphics", 
           Directive[
            PointSize[0.004766666666666667], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]},
         PlotRangePadding->Scaled[0.15]], {0, 0}, Automatic, Offset[
        7]], CompressedData["
1:eJxdk0tOQkEQRVudOGTAgAEDNMQQQwwgoiBC80eQ3wMBp0bHbqF25luSS5CE
c0led/JSOVxuV3VV99XnT/R94Zz7Onxnh+/caf21ib/84JN8Cbv4GFKBnoZT
6Bn9n5WFM+i5wH8Np9HzQb4bOA8XlI94SyygF4N67oL8pSB/GS6hV2Cd+55Y
Qa+qPuJDUF8NzsGPcA1+Ur3EuvKgN4L9nuEi3FR+1gvcRG8F+7eJLXQPc34T
63ydZD4Tq/6u6j1GE3fRezD9NLH8fZg5m7iPPkjWb+IB+hBmvibW/EdwFV08
Qh/D9NHGqgP9FT2LX6z+TWDuk4kn6NOgfnEP/Q3mHZi4gz6DG+wvnqHPfeIc
Jp6jL2Dug4nV/yXM/L2Y/piY+mPYlvhX6NxPL2Y+JuZ9xrCt8EcwffWwi/CL
6Ucsph9urfrIL6Y/dtLJD9sa/0b7kR/W/E0684qlb/C/ozM3L17gF7NfLJ7i
38L0x4u3+MXcmxg+9W+HzvvyYp1fPCT/LvDv0bk3XrzHL67jF+v9fcBl/w/G
uqft
       "]], {}},
     Annotation[#, "Charting`Private`Tag$208952#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{
   "MessagesHead" -> DiscretePlot, "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], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotRange->{{0, 100}, {-96., 60.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.93624927720193*^9},
 CellID->241799079,ExpressionUUID->"f134b76e-a059-4cdd-b9b2-495da4755aec"]
}, {2}]],

Cell["\<\
As one can see, everything is possible. The values can be negative, positive \
or zero.\
\>", "Text",
 CellChangeTimes->{{3.789115362000065*^9, 3.7891154058291655`*^9}, {
   3.7891155862793193`*^9, 3.789115655857971*^9}, {3.7891157643707933`*^9, 
   3.7891157784512873`*^9}, {3.7892975340829377`*^9, 
   3.7892975343247814`*^9}, {3.7966201570315704`*^9, 3.7966201895869184`*^9}, 
   3.8072738957463236`*^9, {3.889430562720102*^9, 3.889430562841264*^9}, 
   3.94466805607345*^9},
 CellID->1774239067,ExpressionUUID->"d33d5d1f-4df6-43af-8947-a3edcc9f644d"],

Cell["\<\
It would be very natural to classify the numbers accordingly:\
\>", "Text",
 CellChangeTimes->{{3.79662020616842*^9, 3.7966202281518254`*^9}, {
  3.9446670025390263`*^9, 3.9446670050701656`*^9}, {3.951399911728197*^9, 
  3.9513999139598503`*^9}},
 CellID->1825560474,ExpressionUUID->"84370e86-8f6d-4a07-b675-22b6e40b4e3e"],

Cell[TextData[{
 "If the aliquot sum is less than the number itself, the number is called a \
",
 StyleBox["deficient number",
  FontSlant->"Italic"],
 ":"
}], "Item",
 CellChangeTimes->{{3.7966201842149844`*^9, 3.7966201854612722`*^9}, {
  3.796620233557728*^9, 3.7966202851841593`*^9}, {3.8894306133936005`*^9, 
  3.8894306138563023`*^9}, {3.9446680643747463`*^9, 3.9446680646554813`*^9}},
 CellID->1096021829,ExpressionUUID->"a8afc861-2783-45a4-95c8-f4c84ebf136b"],

Cell[BoxData[
 FormBox[
  RowBox[{
  "1", ",", "2", ",", "11", ",", "47", ",", "95", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->279670031,ExpressionUUID->"bbdd1324-595d-4f89-bef2-32792a4aabc7"],

Cell[TextData[{
 "If the aliquot sum is greater than the number itself, the number is called \
an ",
 StyleBox["abundant number",
  FontSlant->"Italic"],
 ":"
}], "Item",
 CellChangeTimes->{{3.789115362000065*^9, 3.7891154058291655`*^9}, {
  3.7891155862793193`*^9, 3.789115655857971*^9}, {3.7891157643707933`*^9, 
  3.7891157784512873`*^9}, {3.789115831634017*^9, 3.7891158560398607`*^9}, {
  3.7893655955679626`*^9, 3.789365595925743*^9}, {3.7966203395930142`*^9, 
  3.7966203657070417`*^9}, {3.8894306237514453`*^9, 3.88943062401192*^9}, {
  3.9446670404537582`*^9, 3.9446670407705765`*^9}, {3.944668066818596*^9, 
  3.9446680671636353`*^9}},
 CellID->307707732,ExpressionUUID->"61c1c508-dd4e-434a-8f85-290f41d96777"],

Cell[BoxData[
 FormBox[
  RowBox[{"12", ",", "54", ",", "72", ",", "100", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1823381588,ExpressionUUID->"55e4c84a-937e-484f-b741-599e0e8fbb71"],

Cell[TextData[{
 "And finally, if the aliquot sum is equal to the number itself, the number \
is called a ",
 StyleBox["perfect number",
  FontSlant->"Italic"],
 ", which is the most interesting case:"
}], "Item",
 CellChangeTimes->{{3.789115908530727*^9, 3.7891159385912714`*^9}, {
   3.789116300051833*^9, 3.789116301031536*^9}, {3.796620408999264*^9, 
   3.7966204250690455`*^9}, {3.7966205157101336`*^9, 3.796620534285494*^9}, 
   3.8893656713806906`*^9, {3.8894306269713483`*^9, 3.8894306332259855`*^9}, {
   3.889430722643217*^9, 3.8894307230051537`*^9}, {3.9446670465690956`*^9, 
   3.944667046789772*^9}, {3.944668069490572*^9, 3.944668070068392*^9}, {
   3.953289122569479*^9, 3.95328915073802*^9}, {3.953290603020733*^9, 
   3.95329060875634*^9}},
 CellID->991772750,ExpressionUUID->"0fd7a234-415a-4186-973e-0a5c8da3560a"],

Cell[BoxData[
 FormBox[
  RowBox[{"6", ",", "28", ",", "496", ",", "8128", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->511035147,ExpressionUUID->"1b05843f-e247-46b3-a2fc-08d4afb3785e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Perfect Numbers", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336606355554*^9, 
   3.705336630018115*^9}, {3.7054019050053368`*^9, 3.7054019120525713`*^9}, 
   3.705663611118946*^9, {3.706267699718586*^9, 3.706267705967226*^9}, {
   3.708793546556511*^9, 3.708793547001396*^9}, {3.7966194742875795`*^9, 
   3.796619478719042*^9}},
 CellID->1343427306,ExpressionUUID->"905b087b-1ed0-4850-9596-7899c338ac00"],

Cell[TextData[{
 "A ",
 StyleBox["perfect number",
  FontSlant->"Italic"],
 " is a positive integer that is equal to the sum of its positive divisors, \
excluding the number itself."
}], "Text",
 CellChangeTimes->{{3.7891163545421553`*^9, 3.7891163580333347`*^9}, {
   3.78911730340496*^9, 3.789117390415234*^9}, {3.789119348356983*^9, 
   3.7891193592751455`*^9}, {3.789119402744753*^9, 3.7891194069771852`*^9}, {
   3.789451350453347*^9, 3.789451351031432*^9}, {3.7897143974239445`*^9, 
   3.7897143985313263`*^9}, 3.889365994677555*^9},
 CellID->339667384,ExpressionUUID->"8827d83e-6cc5-410e-912a-1a09db781318"],

Cell[TextData[{
 "The first ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d578abe7-7146-415f-8253-6983f40abf6e"],
 " perfect numbers are as follows:"
}], "Text",
 CellID->778189162,ExpressionUUID->"a00b25c5-ae89-455e-b932-7012db5e35cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"PerfectNumber", "[", "i", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "10"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)\>\"", 
       ",", "\"\<\!\(\*StyleBox[SuperscriptBox[\"n\", \
\"th\"],FontSlant->\"Italic\"]\) \
\!\(\*StyleBox[\"perfect\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"number\",FontSlant->\"Italic\"]\)\
\>\""}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellID->255403936,ExpressionUUID->"f8d92edb-adc7-c242-a0cd-fa00891cd12b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\)\"\>", "\<\
\"\\!\\(\\*StyleBox[SuperscriptBox[\\\"n\\\", \
\\\"th\\\"],FontSlant->\\\"Italic\\\"]\\) \
\\!\\(\\*StyleBox[\\\"perfect\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
StyleBox[\\\" \
\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"number\\\",FontSlant->\
\\\"Italic\\\"]\\)\"\>"},
    {"1", "6"},
    {"2", "28"},
    {"3", "496"},
    {"4", "8128"},
    {"5", "33550336"},
    {"6", "8589869056"},
    {"7", "137438691328"},
    {"8", "2305843008139952128"},
    {"9", "2658455991569831744654692615953842176"},
    {"10", "191561942608236107294793378084303638130997321548169216"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.936249304932179*^9},
 CellID->754109597,ExpressionUUID->"3f2e42be-70d4-4a47-a790-5b053ad23504"]
}, {2}]],

Cell[TextData[{
 "As you can see, they grow incredibly fast and are very rare. In fact, the \
only perfect numbers in the first ",
 Cell[BoxData[
  FormBox["100", TraditionalForm]], "InlineMath",ExpressionUUID->
  "21976130-d99a-4955-8000-2f96f3422f7d"],
 " integers are ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b35c98e7-e4ce-4955-862e-e926444ce33b"],
 " and ",
 Cell[BoxData[
  FormBox["28", TraditionalForm]], "InlineMath",ExpressionUUID->
  "af1e8e91-2f9b-420e-8b4b-638f03ebad2b"],
 "."
}], "Text",
 CellID->1034427642,ExpressionUUID->"54f36b7d-3946-494d-94ed-fa968016fa0c"],

Cell[TextData[{
 "Here is the plot of the length of the first ",
 Cell[BoxData[
  FormBox["47", TraditionalForm]], "InlineMath",ExpressionUUID->
  "87ba9f7b-9e9f-488a-ac72-a8df41f67929"],
 " even perfect numbers, with log-scaled values:"
}], "Text",
 CellID->1745256629,ExpressionUUID->"2bfd7128-a607-4eda-9335-e4298913d482"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"IntegerLength", "[", 
    RowBox[{"PerfectNumber", "[", 
     RowBox[{
      RowBox[{"Range", "[", "47", "]"}], ",", "\"\<Even\>\""}], "]"}], "]"}], 
   ",", 
   RowBox[{"ScalingFunctions", "\[Rule]", "\"\<Log\>\""}], ",", 
   RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
   RowBox[{"ImageSize", "->", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.936249336860765*^9, 3.9362493650093327`*^9}},
 CellID->1281644263,ExpressionUUID->"57ea0c47-c56f-420d-8598-9af83f32d7f5"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[GraphicsComplexBox[CompressedData["
1:eJzt1N1LU3Ecx/GDRklNZ86m1Sgf58PWdNOp82kfn5EEw1DJoiQmaV4khVhi
NLqpi1k69SLxAbwoRSRSoyfNHsAwg0gvStAsLGMSqWBZQtYJv+fifP+F/MHh
8Drvu8OHX+DJMwVlboIg1IvPv/fGWbIK8oNFy9p6umGevntgh3tf7ULTMtmb
+g+yL871Jln7uwRs2B/qwruP7lS6kTW42DE5pP7oTg6AfmDL1rhr28hBGH6R
+C18TkEOgUL1rKbKpSRrUR3R3OTs9yaHI9mUd8WrdCc5Eq35v2ZL/6jJeniu
tLkOtvmRDRid1pZ9adlDjobriFcznmvIRjQ+GX4aOi/ZhMK+wRZH9j5yDBZc
mtTLtv3kWNTGHi63OySbcaJq6thYcSA5DpdOLw2+t0mOh8nqzLraJTkBeRGO
Ed1YENmCorLZ3R0rkhPRk/tpfE0dTE5C5/Hu8RRbCDkZZ8/XuSnvhZJTUFmt
8Plp1pJTcfN10YSuUbIVVe23rxfXh5GBtwNHR/cqIzdsBw50zj02HiILaVgP
mnloUOmop8FhMU/bcslCOnx/n4rSvdJTT8eF1dXpD5NkIQM3yoO3e9oN1DPQ
G/ZOoXoTRT0TmszlCUtJNPVM+H0uMU/VkYUs9FdU9rQ2SD0L+cWu7vX7Us/G
4vhYzYOXUs/Gramh2pKvUs9BnmqooF1ppJ6DhMmGmQofsrh3564JZ1jp9xGB
fojcHszezL7M/swa5gDmIOYQZi1zOHMks57ZwBzNbGQ2MccwxzKbmeOY45kT
mC3MicxJzMnMKcypzFZmyG1nFvcu78zi3uWdWdy7vDOLe5d3ZnHv8s4s7l3e
mcW9yzvz5v2+eb//J/f7X7SkW1A=
       "], {{{}, {}, {}, {}, 
         {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], 
          LineBox[{48, 1}], LineBox[{49, 2}], LineBox[{50, 3}], 
          LineBox[{51, 4}], LineBox[{52, 5}], LineBox[{53, 6}], 
          LineBox[{54, 7}], LineBox[{55, 8}], LineBox[{56, 9}], 
          LineBox[{57, 10}], LineBox[{58, 11}], LineBox[{59, 12}], 
          LineBox[{60, 13}], LineBox[{61, 14}], LineBox[{62, 15}], 
          LineBox[{63, 16}], LineBox[{64, 17}], LineBox[{65, 18}], 
          LineBox[{66, 19}], LineBox[{67, 20}], LineBox[{68, 21}], 
          LineBox[{69, 22}], LineBox[{70, 23}], LineBox[{71, 24}], 
          LineBox[{72, 25}], LineBox[{73, 26}], LineBox[{74, 27}], 
          LineBox[{75, 28}], LineBox[{76, 29}], LineBox[{77, 30}], 
          LineBox[{78, 31}], LineBox[{79, 32}], LineBox[{80, 33}], 
          LineBox[{81, 34}], LineBox[{82, 35}], LineBox[{83, 36}], 
          LineBox[{84, 37}], LineBox[{85, 38}], LineBox[{86, 39}], 
          LineBox[{87, 40}], LineBox[{88, 41}], LineBox[{89, 42}], 
          LineBox[{90, 43}], LineBox[{91, 44}], LineBox[{92, 45}], 
          LineBox[{93, 46}], LineBox[{94, 47}]}}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.012833333333333334`], AbsoluteThickness[2], 
          PointBox[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
           107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
           120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
           133, 134, 135, 136, 137, 138, 139, 140, 141}]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", 
         GraphicsComplex[CompressedData["
1:eJzt1N1LU3Ecx/GDRklNZ86m1Sgf58PWdNOp82kfn5EEw1DJoiQmaV4khVhi
NLqpi1k69SLxAbwoRSRSoyfNHsAwg0gvStAsLGMSqWBZQtYJv+fifP+F/MHh
8Drvu8OHX+DJMwVlboIg1IvPv/fGWbIK8oNFy9p6umGevntgh3tf7ULTMtmb
+g+yL871Jln7uwRs2B/qwruP7lS6kTW42DE5pP7oTg6AfmDL1rhr28hBGH6R
+C18TkEOgUL1rKbKpSRrUR3R3OTs9yaHI9mUd8WrdCc5Eq35v2ZL/6jJeniu
tLkOtvmRDRid1pZ9adlDjobriFcznmvIRjQ+GX4aOi/ZhMK+wRZH9j5yDBZc
mtTLtv3kWNTGHi63OySbcaJq6thYcSA5DpdOLw2+t0mOh8nqzLraJTkBeRGO
Ed1YENmCorLZ3R0rkhPRk/tpfE0dTE5C5/Hu8RRbCDkZZ8/XuSnvhZJTUFmt
8Plp1pJTcfN10YSuUbIVVe23rxfXh5GBtwNHR/cqIzdsBw50zj02HiILaVgP
mnloUOmop8FhMU/bcslCOnx/n4rSvdJTT8eF1dXpD5NkIQM3yoO3e9oN1DPQ
G/ZOoXoTRT0TmszlCUtJNPVM+H0uMU/VkYUs9FdU9rQ2SD0L+cWu7vX7Us/G
4vhYzYOXUs/Gramh2pKvUs9BnmqooF1ppJ6DhMmGmQofsrh3564JZ1jp9xGB
fojcHszezL7M/swa5gDmIOYQZi1zOHMks57ZwBzNbGQ2MccwxzKbmeOY45kT
mC3MicxJzMnMKcypzFZmyG1nFvcu78zi3uWdWdy7vDOLe5d3ZnHv8s4s7l3e
mcW9yzvz5v2+eb//J/f7X7SkW1A=
          "], {{{}, {}, {}, {}, {
             Directive[
              RGBColor[0.368417, 0.506779, 0.709798], 
              Opacity[0.3]], 
             Line[{48, 1}], 
             Line[{49, 2}], 
             Line[{50, 3}], 
             Line[{51, 4}], 
             Line[{52, 5}], 
             Line[{53, 6}], 
             Line[{54, 7}], 
             Line[{55, 8}], 
             Line[{56, 9}], 
             Line[{57, 10}], 
             Line[{58, 11}], 
             Line[{59, 12}], 
             Line[{60, 13}], 
             Line[{61, 14}], 
             Line[{62, 15}], 
             Line[{63, 16}], 
             Line[{64, 17}], 
             Line[{65, 18}], 
             Line[{66, 19}], 
             Line[{67, 20}], 
             Line[{68, 21}], 
             Line[{69, 22}], 
             Line[{70, 23}], 
             Line[{71, 24}], 
             Line[{72, 25}], 
             Line[{73, 26}], 
             Line[{74, 27}], 
             Line[{75, 28}], 
             Line[{76, 29}], 
             Line[{77, 30}], 
             Line[{78, 31}], 
             Line[{79, 32}], 
             Line[{80, 33}], 
             Line[{81, 34}], 
             Line[{82, 35}], 
             Line[{83, 36}], 
             Line[{84, 37}], 
             Line[{85, 38}], 
             Line[{86, 39}], 
             Line[{87, 40}], 
             Line[{88, 41}], 
             Line[{89, 42}], 
             Line[{90, 43}], 
             Line[{91, 44}], 
             Line[{92, 45}], 
             Line[{93, 46}], 
             Line[{94, 47}]}}, {
            Annotation[{
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
               107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
               119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
               131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141}]}, 
             "Charting`Private`Tag#1"]}}], <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0., 47.}, {-1.3359752402478517`, 
             17.071927879197773`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0., -1.3359752402478517`}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {{{}, {}, {}, {}, {
                Directive[
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 Opacity[0.3]], 
                Line[{{1., -1.3359752402478517`}, {1., 0.}}], 
                Line[{{2., -1.3359752402478517`}, {2., 0.6931471805599453}}], 
                
                Line[{{3., -1.3359752402478517`}, {3., 1.0986122886681098`}}], 
                Line[{{4., -1.3359752402478517`}, {4., 1.3862943611198906`}}], 
                Line[{{5., -1.3359752402478517`}, {5., 2.0794415416798357`}}], 
                Line[{{6., -1.3359752402478517`}, {6., 2.302585092994046}}], 
                Line[{{7., -1.3359752402478517`}, {7., 2.4849066497880004`}}], 
                Line[{{8., -1.3359752402478517`}, {8., 2.9444389791664403`}}], 
                Line[{{9., -1.3359752402478517`}, {9., 3.6109179126442243`}}], 
                
                Line[{{10., -1.3359752402478517`}, {10., 
                 3.9889840465642745`}}], 
                Line[{{11., -1.3359752402478517`}, {11., 4.174387269895637}}], 
                Line[{{12., -1.3359752402478517`}, {12., 4.343805421853684}}], 
                Line[{{13., -1.3359752402478517`}, {13., 5.749392985908253}}], 
                Line[{{14., -1.3359752402478517`}, {14., 5.902633333401366}}], 
                Line[{{15., -1.3359752402478517`}, {15., 6.646390514847729}}], 
                Line[{{16., -1.3359752402478517`}, {16., 7.190676034332207}}], 
                Line[{{17., -1.3359752402478517`}, {17., 7.224753405767971}}], 
                
                Line[{{18., -1.3359752402478517`}, {18., 
                 7.5688956634069955`}}], 
                Line[{{19., -1.3359752402478517`}, {19., 7.848153086199526}}], 
                Line[{{20., -1.3359752402478517`}, {20., 7.887208585813932}}], 
                Line[{{21., -1.3359752402478517`}, {21., 8.671458150427666}}], 
                Line[{{22., -1.3359752402478517`}, {22., 8.697011617992073}}], 
                Line[{{23., -1.3359752402478517`}, {23., 8.81744592104187}}], 
                
                Line[{{24., -1.3359752402478517`}, {24., 9.392911897525345}}], 
                Line[{{25., -1.3359752402478517`}, {25., 9.477768715400696}}], 
                Line[{{26., -1.3359752402478517`}, {26., 9.544882175080447}}], 
                
                Line[{{27., -1.3359752402478517`}, {27., 
                 10.195783962538654`}}], 
                
                Line[{{28., -1.3359752402478517`}, {28., 
                 10.857536390012886`}}], 
                
                Line[{{29., -1.3359752402478517`}, {29., 
                 11.105408252735932`}}], 
                Line[{{30., -1.3359752402478517`}, {30., 11.28353745755869}}], 
                
                Line[{{31., -1.3359752402478517`}, {31., 
                 11.776058664500596`}}], 
                
                Line[{{32., -1.3359752402478517`}, {32., 
                 13.029508780187752`}}], 
                
                Line[{{33., -1.3359752402478517`}, {33., 
                 13.156629529271948`}}], 
                Line[{{34., -1.3359752402478517`}, {34., 13.5374658961241}}], 
                
                
                Line[{{35., -1.3359752402478517`}, {35., 
                 13.643347627160232`}}], 
                Line[{{36., -1.3359752402478517`}, {36., 14.39876697677986}}], 
                
                Line[{{37., -1.3359752402478517`}, {37., 
                 14.413824944753047`}}], 
                
                Line[{{38., -1.3359752402478517`}, {38., 
                 15.250099484274232`}}], 
                Line[{{39., -1.3359752402478517`}, {39., 15.90834846628771}}], 
                
                Line[{{40., -1.3359752402478517`}, {40., 
                 16.352444824126096`}}], 
                Line[{{41., -1.3359752402478517`}, {41., 16.48768933743585}}], 
                Line[{{42., -1.3359752402478517`}, {42., 16.5648599517096}}], 
                
                
                Line[{{43., -1.3359752402478517`}, {43., 
                 16.722635800331144`}}], 
                
                Line[{{44., -1.3359752402478517`}, {44., 
                 16.791892515913727`}}], 
                
                Line[{{45., -1.3359752402478517`}, {45., 
                 16.923255606752402`}}], 
                
                Line[{{46., -1.3359752402478517`}, {46., 
                 17.060994311253395`}}], 
                
                Line[{{47., -1.3359752402478517`}, {47., 
                 17.071927879197773`}}]}}, {
               Annotation[{
                 Directive[
                  PointSize[0.012833333333333334`], 
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2]], {
                  Point[{1., 0.}], 
                  Point[{2., 0.6931471805599453}], 
                  Point[{3., 1.0986122886681098`}], 
                  Point[{4., 1.3862943611198906`}], 
                  Point[{5., 2.0794415416798357`}], 
                  Point[{6., 2.302585092994046}], 
                  Point[{7., 2.4849066497880004`}], 
                  Point[{8., 2.9444389791664403`}], 
                  Point[{9., 3.6109179126442243`}], 
                  Point[{10., 3.9889840465642745`}], 
                  Point[{11., 4.174387269895637}], 
                  Point[{12., 4.343805421853684}], 
                  Point[{13., 5.749392985908253}], 
                  Point[{14., 5.902633333401366}], 
                  Point[{15., 6.646390514847729}], 
                  Point[{16., 7.190676034332207}], 
                  Point[{17., 7.224753405767971}], 
                  Point[{18., 7.5688956634069955`}], 
                  Point[{19., 7.848153086199526}], 
                  Point[{20., 7.887208585813932}], 
                  Point[{21., 8.671458150427666}], 
                  Point[{22., 8.697011617992073}], 
                  Point[{23., 8.81744592104187}], 
                  Point[{24., 9.392911897525345}], 
                  Point[{25., 9.477768715400696}], 
                  Point[{26., 9.544882175080447}], 
                  Point[{27., 10.195783962538654`}], 
                  Point[{28., 10.857536390012886`}], 
                  Point[{29., 11.105408252735932`}], 
                  Point[{30., 11.28353745755869}], 
                  Point[{31., 11.776058664500596`}], 
                  Point[{32., 13.029508780187752`}], 
                  Point[{33., 13.156629529271948`}], 
                  Point[{34., 13.5374658961241}], 
                  Point[{35., 13.643347627160232`}], 
                  Point[{36., 14.39876697677986}], 
                  Point[{37., 14.413824944753047`}], 
                  Point[{38., 15.250099484274232`}], 
                  Point[{39., 15.90834846628771}], 
                  Point[{40., 16.352444824126096`}], 
                  Point[{41., 16.48768933743585}], 
                  Point[{42., 16.5648599517096}], 
                  Point[{43., 16.722635800331144`}], 
                  Point[{44., 16.791892515913727`}], 
                  Point[{45., 16.923255606752402`}], 
                  Point[{46., 17.060994311253395`}], 
                  Point[{47., 17.071927879197773`}]}}, 
                "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0., 47.}, {-1.3359752402478517`, 
            17.071927879197773`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0., -1.3359752402478517`}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Exp[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
           "Primitives" -> {{{}, {}, {}, {}, {
               Directive[
                RGBColor[0.368417, 0.506779, 0.709798], 
                Opacity[0.3]], 
               Line[{{1., -1.3359752402478517`}, {1., 0.}}], 
               Line[{{2., -1.3359752402478517`}, {2., 0.6931471805599453}}], 
               Line[{{3., -1.3359752402478517`}, {3., 1.0986122886681098`}}], 
               
               Line[{{4., -1.3359752402478517`}, {4., 1.3862943611198906`}}], 
               
               Line[{{5., -1.3359752402478517`}, {5., 2.0794415416798357`}}], 
               
               Line[{{6., -1.3359752402478517`}, {6., 2.302585092994046}}], 
               Line[{{7., -1.3359752402478517`}, {7., 2.4849066497880004`}}], 
               
               Line[{{8., -1.3359752402478517`}, {8., 2.9444389791664403`}}], 
               
               Line[{{9., -1.3359752402478517`}, {9., 3.6109179126442243`}}], 
               
               
               Line[{{10., -1.3359752402478517`}, {10., 
                3.9889840465642745`}}], 
               Line[{{11., -1.3359752402478517`}, {11., 4.174387269895637}}], 
               
               Line[{{12., -1.3359752402478517`}, {12., 4.343805421853684}}], 
               
               Line[{{13., -1.3359752402478517`}, {13., 5.749392985908253}}], 
               
               Line[{{14., -1.3359752402478517`}, {14., 5.902633333401366}}], 
               
               Line[{{15., -1.3359752402478517`}, {15., 6.646390514847729}}], 
               
               Line[{{16., -1.3359752402478517`}, {16., 7.190676034332207}}], 
               
               Line[{{17., -1.3359752402478517`}, {17., 7.224753405767971}}], 
               
               
               Line[{{18., -1.3359752402478517`}, {18., 
                7.5688956634069955`}}], 
               Line[{{19., -1.3359752402478517`}, {19., 7.848153086199526}}], 
               
               Line[{{20., -1.3359752402478517`}, {20., 7.887208585813932}}], 
               
               Line[{{21., -1.3359752402478517`}, {21., 8.671458150427666}}], 
               
               Line[{{22., -1.3359752402478517`}, {22., 8.697011617992073}}], 
               
               Line[{{23., -1.3359752402478517`}, {23., 8.81744592104187}}], 
               Line[{{24., -1.3359752402478517`}, {24., 9.392911897525345}}], 
               
               Line[{{25., -1.3359752402478517`}, {25., 9.477768715400696}}], 
               
               Line[{{26., -1.3359752402478517`}, {26., 9.544882175080447}}], 
               
               
               Line[{{27., -1.3359752402478517`}, {27., 
                10.195783962538654`}}], 
               
               Line[{{28., -1.3359752402478517`}, {28., 
                10.857536390012886`}}], 
               
               Line[{{29., -1.3359752402478517`}, {29., 
                11.105408252735932`}}], 
               Line[{{30., -1.3359752402478517`}, {30., 11.28353745755869}}], 
               
               
               Line[{{31., -1.3359752402478517`}, {31., 
                11.776058664500596`}}], 
               
               Line[{{32., -1.3359752402478517`}, {32., 
                13.029508780187752`}}], 
               
               Line[{{33., -1.3359752402478517`}, {33., 
                13.156629529271948`}}], 
               Line[{{34., -1.3359752402478517`}, {34., 13.5374658961241}}], 
               
               Line[{{35., -1.3359752402478517`}, {35., 
                13.643347627160232`}}], 
               Line[{{36., -1.3359752402478517`}, {36., 14.39876697677986}}], 
               
               
               Line[{{37., -1.3359752402478517`}, {37., 
                14.413824944753047`}}], 
               
               Line[{{38., -1.3359752402478517`}, {38., 
                15.250099484274232`}}], 
               Line[{{39., -1.3359752402478517`}, {39., 15.90834846628771}}], 
               
               
               Line[{{40., -1.3359752402478517`}, {40., 
                16.352444824126096`}}], 
               Line[{{41., -1.3359752402478517`}, {41., 16.48768933743585}}], 
               
               Line[{{42., -1.3359752402478517`}, {42., 16.5648599517096}}], 
               
               Line[{{43., -1.3359752402478517`}, {43., 
                16.722635800331144`}}], 
               
               Line[{{44., -1.3359752402478517`}, {44., 
                16.791892515913727`}}], 
               
               Line[{{45., -1.3359752402478517`}, {45., 
                16.923255606752402`}}], 
               
               Line[{{46., -1.3359752402478517`}, {46., 
                17.060994311253395`}}], 
               
               Line[{{47., -1.3359752402478517`}, {47., 
                17.071927879197773`}}]}}, {
              Annotation[{
                Directive[
                 PointSize[0.012833333333333334`], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]], {
                 Point[{1., 0.}], 
                 Point[{2., 0.6931471805599453}], 
                 Point[{3., 1.0986122886681098`}], 
                 Point[{4., 1.3862943611198906`}], 
                 Point[{5., 2.0794415416798357`}], 
                 Point[{6., 2.302585092994046}], 
                 Point[{7., 2.4849066497880004`}], 
                 Point[{8., 2.9444389791664403`}], 
                 Point[{9., 3.6109179126442243`}], 
                 Point[{10., 3.9889840465642745`}], 
                 Point[{11., 4.174387269895637}], 
                 Point[{12., 4.343805421853684}], 
                 Point[{13., 5.749392985908253}], 
                 Point[{14., 5.902633333401366}], 
                 Point[{15., 6.646390514847729}], 
                 Point[{16., 7.190676034332207}], 
                 Point[{17., 7.224753405767971}], 
                 Point[{18., 7.5688956634069955`}], 
                 Point[{19., 7.848153086199526}], 
                 Point[{20., 7.887208585813932}], 
                 Point[{21., 8.671458150427666}], 
                 Point[{22., 8.697011617992073}], 
                 Point[{23., 8.81744592104187}], 
                 Point[{24., 9.392911897525345}], 
                 Point[{25., 9.477768715400696}], 
                 Point[{26., 9.544882175080447}], 
                 Point[{27., 10.195783962538654`}], 
                 Point[{28., 10.857536390012886`}], 
                 Point[{29., 11.105408252735932`}], 
                 Point[{30., 11.28353745755869}], 
                 Point[{31., 11.776058664500596`}], 
                 Point[{32., 13.029508780187752`}], 
                 Point[{33., 13.156629529271948`}], 
                 Point[{34., 13.5374658961241}], 
                 Point[{35., 13.643347627160232`}], 
                 Point[{36., 14.39876697677986}], 
                 Point[{37., 14.413824944753047`}], 
                 Point[{38., 15.250099484274232`}], 
                 Point[{39., 15.90834846628771}], 
                 Point[{40., 16.352444824126096`}], 
                 Point[{41., 16.48768933743585}], 
                 Point[{42., 16.5648599517096}], 
                 Point[{43., 16.722635800331144`}], 
                 Point[{44., 16.791892515913727`}], 
                 Point[{45., 16.923255606752402`}], 
                 Point[{46., 17.060994311253395`}], 
                 Point[{47., 17.071927879197773`}]}}, 
               "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[
     GraphicsComplex[CompressedData["
1:eJzt1N1LU3Ecx/GDRklNZ86m1Sgf58PWdNOp82kfn5EEw1DJoiQmaV4khVhi
NLqpi1k69SLxAbwoRSRSoyfNHsAwg0gvStAsLGMSqWBZQtYJv+fifP+F/MHh
8Drvu8OHX+DJMwVlboIg1IvPv/fGWbIK8oNFy9p6umGevntgh3tf7ULTMtmb
+g+yL871Jln7uwRs2B/qwruP7lS6kTW42DE5pP7oTg6AfmDL1rhr28hBGH6R
+C18TkEOgUL1rKbKpSRrUR3R3OTs9yaHI9mUd8WrdCc5Eq35v2ZL/6jJeniu
tLkOtvmRDRid1pZ9adlDjobriFcznmvIRjQ+GX4aOi/ZhMK+wRZH9j5yDBZc
mtTLtv3kWNTGHi63OySbcaJq6thYcSA5DpdOLw2+t0mOh8nqzLraJTkBeRGO
Ed1YENmCorLZ3R0rkhPRk/tpfE0dTE5C5/Hu8RRbCDkZZ8/XuSnvhZJTUFmt
8Plp1pJTcfN10YSuUbIVVe23rxfXh5GBtwNHR/cqIzdsBw50zj02HiILaVgP
mnloUOmop8FhMU/bcslCOnx/n4rSvdJTT8eF1dXpD5NkIQM3yoO3e9oN1DPQ
G/ZOoXoTRT0TmszlCUtJNPVM+H0uMU/VkYUs9FdU9rQ2SD0L+cWu7vX7Us/G
4vhYzYOXUs/Gramh2pKvUs9BnmqooF1ppJ6DhMmGmQofsrh3564JZ1jp9xGB
fojcHszezL7M/swa5gDmIOYQZi1zOHMks57ZwBzNbGQ2MccwxzKbmeOY45kT
mC3MicxJzMnMKcypzFZmyG1nFvcu78zi3uWdWdy7vDOLe5d3ZnHv8s4s7l3e
mcW9yzvz5v2+eb//J/f7X7SkW1A=
      "], {{{}, {}, {}, {}, {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          Opacity[0.3]], 
         Line[{48, 1}], 
         Line[{49, 2}], 
         Line[{50, 3}], 
         Line[{51, 4}], 
         Line[{52, 5}], 
         Line[{53, 6}], 
         Line[{54, 7}], 
         Line[{55, 8}], 
         Line[{56, 9}], 
         Line[{57, 10}], 
         Line[{58, 11}], 
         Line[{59, 12}], 
         Line[{60, 13}], 
         Line[{61, 14}], 
         Line[{62, 15}], 
         Line[{63, 16}], 
         Line[{64, 17}], 
         Line[{65, 18}], 
         Line[{66, 19}], 
         Line[{67, 20}], 
         Line[{68, 21}], 
         Line[{69, 22}], 
         Line[{70, 23}], 
         Line[{71, 24}], 
         Line[{72, 25}], 
         Line[{73, 26}], 
         Line[{74, 27}], 
         Line[{75, 28}], 
         Line[{76, 29}], 
         Line[{77, 30}], 
         Line[{78, 31}], 
         Line[{79, 32}], 
         Line[{80, 33}], 
         Line[{81, 34}], 
         Line[{82, 35}], 
         Line[{83, 36}], 
         Line[{84, 37}], 
         Line[{85, 38}], 
         Line[{86, 39}], 
         Line[{87, 40}], 
         Line[{88, 41}], 
         Line[{89, 42}], 
         Line[{90, 43}], 
         Line[{91, 44}], 
         Line[{92, 45}], 
         Line[{93, 46}], 
         Line[{94, 47}]}}, {
        Annotation[{
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 
           108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 
           121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 
           134, 135, 136, 137, 138, 139, 140, 141}]}, 
         "Charting`Private`Tag#1"]}}], <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0., 47.}, {-1.3359752402478517`, 
         17.071927879197773`}}, "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0., -1.3359752402478517`}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
        "Primitives" -> {{{}, {}, {}, {}, {
            Directive[
             RGBColor[0.368417, 0.506779, 0.709798], 
             Opacity[0.3]], 
            Line[{{1., -1.3359752402478517`}, {1., 0.}}], 
            Line[{{2., -1.3359752402478517`}, {2., 0.6931471805599453}}], 
            Line[{{3., -1.3359752402478517`}, {3., 1.0986122886681098`}}], 
            Line[{{4., -1.3359752402478517`}, {4., 1.3862943611198906`}}], 
            Line[{{5., -1.3359752402478517`}, {5., 2.0794415416798357`}}], 
            Line[{{6., -1.3359752402478517`}, {6., 2.302585092994046}}], 
            Line[{{7., -1.3359752402478517`}, {7., 2.4849066497880004`}}], 
            Line[{{8., -1.3359752402478517`}, {8., 2.9444389791664403`}}], 
            Line[{{9., -1.3359752402478517`}, {9., 3.6109179126442243`}}], 
            Line[{{10., -1.3359752402478517`}, {10., 3.9889840465642745`}}], 
            Line[{{11., -1.3359752402478517`}, {11., 4.174387269895637}}], 
            Line[{{12., -1.3359752402478517`}, {12., 4.343805421853684}}], 
            Line[{{13., -1.3359752402478517`}, {13., 5.749392985908253}}], 
            Line[{{14., -1.3359752402478517`}, {14., 5.902633333401366}}], 
            Line[{{15., -1.3359752402478517`}, {15., 6.646390514847729}}], 
            Line[{{16., -1.3359752402478517`}, {16., 7.190676034332207}}], 
            Line[{{17., -1.3359752402478517`}, {17., 7.224753405767971}}], 
            Line[{{18., -1.3359752402478517`}, {18., 7.5688956634069955`}}], 
            Line[{{19., -1.3359752402478517`}, {19., 7.848153086199526}}], 
            Line[{{20., -1.3359752402478517`}, {20., 7.887208585813932}}], 
            Line[{{21., -1.3359752402478517`}, {21., 8.671458150427666}}], 
            Line[{{22., -1.3359752402478517`}, {22., 8.697011617992073}}], 
            Line[{{23., -1.3359752402478517`}, {23., 8.81744592104187}}], 
            Line[{{24., -1.3359752402478517`}, {24., 9.392911897525345}}], 
            Line[{{25., -1.3359752402478517`}, {25., 9.477768715400696}}], 
            Line[{{26., -1.3359752402478517`}, {26., 9.544882175080447}}], 
            Line[{{27., -1.3359752402478517`}, {27., 10.195783962538654`}}], 
            Line[{{28., -1.3359752402478517`}, {28., 10.857536390012886`}}], 
            Line[{{29., -1.3359752402478517`}, {29., 11.105408252735932`}}], 
            Line[{{30., -1.3359752402478517`}, {30., 11.28353745755869}}], 
            Line[{{31., -1.3359752402478517`}, {31., 11.776058664500596`}}], 
            Line[{{32., -1.3359752402478517`}, {32., 13.029508780187752`}}], 
            Line[{{33., -1.3359752402478517`}, {33., 13.156629529271948`}}], 
            Line[{{34., -1.3359752402478517`}, {34., 13.5374658961241}}], 
            Line[{{35., -1.3359752402478517`}, {35., 13.643347627160232`}}], 
            Line[{{36., -1.3359752402478517`}, {36., 14.39876697677986}}], 
            Line[{{37., -1.3359752402478517`}, {37., 14.413824944753047`}}], 
            Line[{{38., -1.3359752402478517`}, {38., 15.250099484274232`}}], 
            Line[{{39., -1.3359752402478517`}, {39., 15.90834846628771}}], 
            Line[{{40., -1.3359752402478517`}, {40., 16.352444824126096`}}], 
            Line[{{41., -1.3359752402478517`}, {41., 16.48768933743585}}], 
            Line[{{42., -1.3359752402478517`}, {42., 16.5648599517096}}], 
            Line[{{43., -1.3359752402478517`}, {43., 16.722635800331144`}}], 
            Line[{{44., -1.3359752402478517`}, {44., 16.791892515913727`}}], 
            Line[{{45., -1.3359752402478517`}, {45., 16.923255606752402`}}], 
            Line[{{46., -1.3359752402478517`}, {46., 17.060994311253395`}}], 
            
            Line[{{47., -1.3359752402478517`}, {47., 
             17.071927879197773`}}]}}, {
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], {
              Point[{1., 0.}], 
              Point[{2., 0.6931471805599453}], 
              Point[{3., 1.0986122886681098`}], 
              Point[{4., 1.3862943611198906`}], 
              Point[{5., 2.0794415416798357`}], 
              Point[{6., 2.302585092994046}], 
              Point[{7., 2.4849066497880004`}], 
              Point[{8., 2.9444389791664403`}], 
              Point[{9., 3.6109179126442243`}], 
              Point[{10., 3.9889840465642745`}], 
              Point[{11., 4.174387269895637}], 
              Point[{12., 4.343805421853684}], 
              Point[{13., 5.749392985908253}], 
              Point[{14., 5.902633333401366}], 
              Point[{15., 6.646390514847729}], 
              Point[{16., 7.190676034332207}], 
              Point[{17., 7.224753405767971}], 
              Point[{18., 7.5688956634069955`}], 
              Point[{19., 7.848153086199526}], 
              Point[{20., 7.887208585813932}], 
              Point[{21., 8.671458150427666}], 
              Point[{22., 8.697011617992073}], 
              Point[{23., 8.81744592104187}], 
              Point[{24., 9.392911897525345}], 
              Point[{25., 9.477768715400696}], 
              Point[{26., 9.544882175080447}], 
              Point[{27., 10.195783962538654`}], 
              Point[{28., 10.857536390012886`}], 
              Point[{29., 11.105408252735932`}], 
              Point[{30., 11.28353745755869}], 
              Point[{31., 11.776058664500596`}], 
              Point[{32., 13.029508780187752`}], 
              Point[{33., 13.156629529271948`}], 
              Point[{34., 13.5374658961241}], 
              Point[{35., 13.643347627160232`}], 
              Point[{36., 14.39876697677986}], 
              Point[{37., 14.413824944753047`}], 
              Point[{38., 15.250099484274232`}], 
              Point[{39., 15.90834846628771}], 
              Point[{40., 16.352444824126096`}], 
              Point[{41., 16.48768933743585}], 
              Point[{42., 16.5648599517096}], 
              Point[{43., 16.722635800331144`}], 
              Point[{44., 16.791892515913727`}], 
              Point[{45., 16.923255606752402`}], 
              Point[{46., 17.060994311253395`}], 
              Point[{47., 17.071927879197773`}]}}, 
            "Charting`Private`Tag#1"]}}, "GCFlag" -> True|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -1.3359752402478517`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[
     "Log", {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, 
      RotateLabel -> 0], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Medium,
  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], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 47.}, {-1.3359752402478517`, 17.071927879197773`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[
     "Log", {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, 
      RotateLabel -> 0]}, {Automatic, {{2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}}, {11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {16.11809565095832, 
       FormBox[
        TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      4.605170185988092, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.210340371976184, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      13.815510557964274`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      18.420680743952367`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      20.72326583694641, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.936249335246627*^9, 3.936249368242611*^9}},
 CellID->1613379627,ExpressionUUID->"92e5a69e-8674-47bf-9cb2-78581ab0d8b9"]
}, {2}]],

Cell[TextData[{
 "So far there are ",
 Cell[BoxData[
  FormBox["51", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7861fba0-2096-4143-8eb0-33c2510f9fe5"],
 " known perfect numbers in total. All of them are even."
}], "Text",
 CellID->1006230458,ExpressionUUID->"4649a436-e32f-41ce-8198-1279c8ba0442"],

Cell["\<\
In fact, it is unknown whether there are odd perfect numbers or not.\
\>", "Text",
 CellChangeTimes->{{3.8893660423556786`*^9, 3.889366044955439*^9}},
 CellID->281587481,ExpressionUUID->"f79da039-d2c1-40d7-87c2-2cca274f85e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mersenne Numbers", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.70627047371986*^9, 
   3.7062704938975286`*^9}, {3.706289981184039*^9, 3.7062899841899157`*^9}, {
   3.710690731680533*^9, 3.710690737441574*^9}, {3.7966210298286858`*^9, 
   3.79662103895446*^9}, {3.796630881331783*^9, 3.796630883888339*^9}, {
   3.7966309529547825`*^9, 3.7966309581308064`*^9}, {3.8894383574887424`*^9, 
   3.8894383608485413`*^9}},
 CellID->900967851,ExpressionUUID->"73eff885-7927-4a30-9e38-6b2fba127794"],

Cell["\<\
Finding large primes and proving that they are prime is not easy. One \
approach to find large primes is to look at numbers that have a special form, \
for example,\
\>", "Text",
 CellChangeTimes->{{3.7860758133648453`*^9, 3.7860758612484417`*^9}, {
   3.7860760940842023`*^9, 3.7860760961100426`*^9}, {3.7860784306513395`*^9, 
   3.7860785421435704`*^9}, {3.7875512764373274`*^9, 
   3.7875513162369814`*^9}, {3.7875513769711275`*^9, 3.787551377189863*^9}, {
   3.7876348852805214`*^9, 3.7876348855027285`*^9}, {3.7966310539609327`*^9, 
   3.7966310699787593`*^9}, {3.79663110977695*^9, 3.796631135430274*^9}, {
   3.889430926652003*^9, 3.889430927485325*^9}, 3.9309112008927507`*^9, {
   3.945878452866419*^9, 3.9458784533143883`*^9}, {3.9514013736549683`*^9, 
   3.9514013742620316`*^9}, 3.953289514957081*^9, {3.9559530704557333`*^9, 
   3.955953070881874*^9}, {3.95595310789178*^9, 3.955953109585372*^9}},
 Background->None,
 CellID->659476760,ExpressionUUID->"29eb2ef9-8d06-4d3a-8ced-e3b593eb3283"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["a", "n"], "-", "1"}], TraditionalForm]], "DisplayFormula",
 CellID->1729829,ExpressionUUID->"02940b86-a393-4f86-a9b9-87274ec3264c"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s not difficult to show that in order for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", "n"], "-", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8ce8c7f8-4f17-4844-8551-a23d4709dfe3"],
 " to be prime, ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "27c28479-7a89-9b41-9aaa-5419db021d7d"],
 " should be equal to ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "24fe449f-7113-6840-8d63-61c8b79dde90"],
 " and ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3dfda998-6702-494a-97af-c3d87526acf5"],
 " should be itself prime."
}], "Text",
 CellID->734915482,ExpressionUUID->"49bd9168-28a6-433f-9d94-953553fd6c74"],

Cell[TextData[{
 "A number of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", "n"], "-", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"33e59354-b146-43a3-a5c0-e6e61e7569c9"],
 " is said to be a ",
 StyleBox["Mersenne number",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->1546052077,ExpressionUUID->"cb35a70a-9d4a-49d5-bb9e-640baf7e4d11"],

Cell["Here are the first few Mersenne numbers:", "Text",
 CellChangeTimes->{{3.796631270617849*^9, 3.796631277948632*^9}, {
  3.889430950791024*^9, 3.8894309517765236`*^9}, {3.9458784703764305`*^9, 
  3.945878474253437*^9}, {3.945878697488394*^9, 3.9458786977052*^9}},
 CellID->2092613086,ExpressionUUID->"49d85335-0c31-45de-a875-d9fae2b601ac"],

Cell[BoxData[
 FormBox[
  RowBox[{
  "1", ",", "3", ",", "7", ",", "15", ",", "31", ",", "63", ",", "127", ",", 
   "255", ",", "511", ",", "1023", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1336619465,ExpressionUUID->"7555e446-d471-4b28-b7cd-ebcfea233a93"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["n", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "f4542418-0425-4f0a-8d70-3875e640385a"],
 " Mersenne number is denoted by ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "6ab21b8e-e32d-4b99-9a25-895f4d15d31d"],
 "."
}], "Text",
 CellID->1657611102,ExpressionUUID->"fe6dd71d-b321-46a5-a9be-9c3000574ce3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mersenne Primes", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.70627047371986*^9, 
   3.7062704938975286`*^9}, {3.706289981184039*^9, 3.7062899841899157`*^9}, {
   3.710690731680533*^9, 3.710690737441574*^9}, {3.7966210298286858`*^9, 
   3.79662103895446*^9}, {3.796630881331783*^9, 3.796630883888339*^9}, {
   3.7966309529547825`*^9, 3.7966309581308064`*^9}, 3.889430976657565*^9},
 CellID->2058655839,ExpressionUUID->"770f36fa-1332-4172-95c5-6e0db627e759"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "7f4c1ac3-5868-48ca-8266-93d2b7162386"],
 " is prime, it is called a ",
 StyleBox["Mersenne prime",
  FontSlant->"Italic"],
 " and ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e22e803c-c53c-4702-964c-f48878da15fd"],
 " is called a",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Mersenne prime exponent",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->1719649256,ExpressionUUID->"26aecf99-5fa6-4e32-897d-f94342971362"],

Cell[TextData[{
 "For example, ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "28d61c32-0744-4811-b633-53cb6576b016"],
 " is a Mersenne prime as "
}], "Text",
 CellID->1310124266,ExpressionUUID->"80ef619c-1e12-43c9-835f-c4c82306b5e6"],

Cell[BoxData[
 FormBox[
  RowBox[{"7", "=", 
   RowBox[{
    SuperscriptBox["2", "3"], "-", "1"}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1461154545,ExpressionUUID->"585a1466-fc09-47bd-86f5-0e2ba256a952"],

Cell[TextData[{
 "and ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "2934c93d-79ed-438b-8ddb-b4a65f536c5d"],
 " is a prime number."
}], "Text",
 CellID->305649578,ExpressionUUID->"8ffc0a14-60a3-4b36-a432-627b817d113f"],

Cell[TextData[{
 "On the contrary, ",
 Cell[BoxData[
  FormBox["15", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8e6e8344-3108-4cfa-8a17-2e03ba2defc5"],
 " is a Mersenne number but is not a Mersenne prime:"
}], "Text",
 CellID->271573822,ExpressionUUID->"7fe30430-4fa7-4a93-bdc3-fcc048a20ecf"],

Cell[BoxData[
 FormBox[
  RowBox[{"15", "=", 
   RowBox[{
    SuperscriptBox["2", "4"], "-", "1"}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1106734371,ExpressionUUID->"50d4d0e2-134c-4a07-961a-5114d21394bb"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "67955eab-afe0-5c40-ac79-e20d2cd01037"],
 " is composite, then ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "4578ae61-b3bc-c141-a570-01523c13085f"],
 " is composite as well."
}], "Text",
 CellID->1854278985,ExpressionUUID->"efda4c1f-f8f0-4831-ab4d-3497e33c42aa"],

Cell[TextData[{
 "At first, it was thought that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "5a115a36-a02e-4558-aa74-df1f6c58ee8c"],
 " is prime whenever ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a0943d32-3795-4cee-9be4-3317d316649a"],
 " is prime. However, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "11"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "0cd6c4ca-622d-44f9-88f2-f623b7d2eba1"],
 " is not prime:"
}], "Text",
 CellID->584215631,ExpressionUUID->"f1b74bcf-bd3f-4bb5-8d80-6e79ff508634"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["M", "11"], "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["2", "11"], "-", "1"}], "=", 
    RowBox[{"2047", "=", 
     RowBox[{"23", "*", "89"}]}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->936611473,ExpressionUUID->"b4a7c7bd-6a75-45e3-bfd5-f75a412e238d"],

Cell[TextData[{
 "The following table shows the first ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ad959c09-a276-4766-b897-0fabc738cbc0"],
 " Mersenne prime exponents and their corresponding Mersenne primes:"
}], "Text",
 CellID->1933603262,ExpressionUUID->"e0b7a8ca-2c26-4c89-912b-2a20ed975f8e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"MersennePrimeExponent", "[", "i", "]"}], ",", 
         RowBox[{
          RowBox[{"2", "^", 
           RowBox[{"MersennePrimeExponent", "[", "i", "]"}]}], "-", "1"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "10"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SuperscriptBox[\(2\
\), \(n\)] - 1\)\)\>\""}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellID->652806471,ExpressionUUID->"238794de-ec2f-4a10-b147-15d992c37b08"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\)\"\>", "\<\
\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SuperscriptBox[\\(2\\), \
\\(n\\)] - 1\\)\\)\"\>"},
    {"2", "3"},
    {"3", "7"},
    {"5", "31"},
    {"7", "127"},
    {"13", "8191"},
    {"17", "131071"},
    {"19", "524287"},
    {"31", "2147483647"},
    {"61", "2305843009213693951"},
    {"89", "618970019642690137449562111"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.936249394163392*^9},
 CellID->1827417562,ExpressionUUID->"5c8b7d21-4209-4bba-8bd2-6c382031a5ab"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Perfect Numbers and Mersenne Primes", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.70627047371986*^9, 
   3.7062704938975286`*^9}, {3.706289981184039*^9, 3.7062899841899157`*^9}, {
   3.7966321092805266`*^9, 3.796632119480687*^9}},
 CellID->437897419,ExpressionUUID->"5bc0e798-b839-4047-9c17-86746ae35954"],

Cell["\<\
There is a peculiar connection between perfect numbers and Mersenne primes:\
\>", "Text",
 CellChangeTimes->{{3.796632397657782*^9, 3.796632418925598*^9}, 
   3.889366167792271*^9, {3.94587874385882*^9, 3.945878744283228*^9}},
 CellID->315462864,ExpressionUUID->"ddd654ac-2f70-4781-a836-bb2e5a2798b7"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]], "InlineMath",ExpressionUUID->
  "13c3c246-6405-4c75-9076-d6238df2d7ff"],
 " is a Mersenne prime exponent, then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"p", "-", "1"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "p"], "-", "1"}], ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"6a412fec-0c55-4d21-94d1-4d0d08d7dbeb"],
 " is a perfect number."
}], "Item",
 CellID->1994714452,ExpressionUUID->"fe8bb751-c22a-483d-b271-fd1bf52757d5"],

Cell[TextData[{
 "You can check. Take ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "=", "5"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cf9604c5-9496-4e51-8c8b-534189d6d054"],
 ":"
}], "Text",
 CellID->798581447,ExpressionUUID->"28ec8f03-c4f2-44e3-a8a3-c6c230726a3a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"5", "-", "1"}]], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "5"], "-", "1"}], ")"}]}], "=", "496"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1865318681,ExpressionUUID->"ad95ae3c-814e-40e5-ba20-b906275b60f7"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["496", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b6bfede0-dcc7-46c1-9943-961404090fc7"],
 " is a perfect number."
}], "Text",
 CellID->409201164,ExpressionUUID->"38645f0a-b266-4131-a67f-bae1f4b9907e"],

Cell[TextData[{
 "Now take ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "=", "13"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "4a91670f-8235-4be4-8a45-9a3eb472920e"],
 ":"
}], "Text",
 CellID->1201325654,ExpressionUUID->"4e5dbcfd-66b8-4bfb-9e9b-bae1482f5d76"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"13", "-", "1"}]], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "13"], "-", "1"}], ")"}]}], "=", "33550336"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->788182651,ExpressionUUID->"f62d5516-8598-4342-9223-cd5ebeae6c6a"],

Cell["It is again a perfect number.", "Text",
 CellChangeTimes->{{3.7966326218383894`*^9, 3.7966326300786667`*^9}, {
  3.951402072490206*^9, 3.951402072624645*^9}},
 CellID->787702653,ExpressionUUID->"0086cbf9-2752-481c-bdfc-f632b45ffb86"],

Cell["Actually, this is easy to prove.", "Text",
 CellChangeTimes->{{3.7966326338055506`*^9, 3.796632643729867*^9}, 
   3.930911343566144*^9},
 CellID->1829288863,ExpressionUUID->"d4780dc2-85f2-48dc-9deb-9c29f9cc6440"],

Cell["The next statement is not as apparent as the previous one.", "Text",
 CellChangeTimes->{{3.7893644047677383`*^9, 3.789364514138921*^9}, {
   3.7894438210154057`*^9, 3.7894438213911767`*^9}, {3.7894466260506077`*^9, 
   3.789446673344469*^9}, {3.7897124701633425`*^9, 3.7897124752954135`*^9}, {
   3.796632885667285*^9, 3.7966328881798644`*^9}, {3.796632925774315*^9, 
   3.7966329289365234`*^9}, 3.8893661940036907`*^9},
 CellID->1482029989,ExpressionUUID->"350037cf-c4a8-4b46-9302-b37864751d75"],

Cell[TextData[{
 "Every even perfect number has the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"p", "-", "1"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "p"], "-", "1"}], ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"07e8611e-d0e4-4c00-a2ab-b012000a32fc"],
 ", where ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9476234f-3466-426f-ab09-f5b1cc74d521"],
 " is a Mersenne prime exponent."
}], "Item",
 CellID->1962687217,ExpressionUUID->"18fd84a8-9159-40e4-bfbb-f4c468fa7693"],

Cell[TextData[{
 "For example, the perfect number ",
 Cell[BoxData[
  FormBox["8128", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9df66ce6-66c2-436e-84af-40f732f5e075"],
 " can be written as"
}], "Text",
 CellID->1535238199,ExpressionUUID->"5d020649-107a-4604-9a07-3752da9735c9"],

Cell[BoxData[
 FormBox[
  RowBox[{"8128", "=", 
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"7", "-", "1"}]], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "7"], "-", "1"}], ")"}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->833173849,ExpressionUUID->"aad0690d-d1a2-4839-8b03-d43d2762497c"],

Cell["\<\
The following is the table of the first eight Mersenne primes and the \
corresponding perfect numbers:\
\>", "Text",
 CellChangeTimes->{{3.7897131718658752`*^9, 3.7897132240669355`*^9}, 
   3.889366273858753*^9, 3.8894399687072835`*^9, 3.889441924681878*^9, {
   3.89045618639904*^9, 3.8904562026075444`*^9}, {3.8904791731707172`*^9, 
   3.8904791764614286`*^9}, {3.930911364879937*^9, 3.930911373860948*^9}, {
   3.9446663814142323`*^9, 3.944666382125311*^9}, {3.9459448898192387`*^9, 
   3.9459448903116493`*^9}},
 CellID->2081680659,ExpressionUUID->"776e1a5a-cbda-4a6f-81ea-6cefe9daad1c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"MersennePrimeExponent", "[", "n", "]"}], ",", 
         RowBox[{
          RowBox[{"2", "^", 
           RowBox[{"MersennePrimeExponent", "[", "n", "]"}]}], "-", "1"}], ",", 
         RowBox[{"PerfectNumber", "[", "n", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\!\(TraditionalForm\`p\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\*SuperscriptBox[\(2\), \(p\)] - \
1\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SuperscriptBox[\(2\
\), \(p - 1\)] \((\*SuperscriptBox[\(2\), \(p\)] - 1)\)\)\)\>\""}], "}"}]}], 
    "]"}], ",", "\[IndentingNewLine]", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellID->659935530,ExpressionUUID->"ad25d2bd-7283-4adc-a79c-8a9bb1a68cff"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(TraditionalForm\\`p\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\*SuperscriptBox[\\(2\\), \\(p\\)] - 1\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SuperscriptBox[\\(2\\), \
\\(p - 1\\)] \\((\\*SuperscriptBox[\\(2\\), \\(p\\)] - 1)\\)\\)\\)\"\>"},
    {"2", "3", "6"},
    {"3", "7", "28"},
    {"5", "31", "496"},
    {"7", "127", "8128"},
    {"13", "8191", "33550336"},
    {"17", "131071", "8589869056"},
    {"19", "524287", "137438691328"},
    {"31", "2147483647", "2305843008139952128"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.9362494275171223`*^9},
 CellID->1661293384,ExpressionUUID->"3ee9a5e7-7310-4a42-aad6-6739e415d116"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fermat Numbers", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.70627047371986*^9, 
   3.7062704938975286`*^9}, {3.706289981184039*^9, 3.7062899841899157`*^9}, {
   3.706290047634679*^9, 3.706290047738562*^9}, {3.7966336524056053`*^9, 
   3.7966336557187223`*^9}},
 CellID->1874415746,ExpressionUUID->"827d748c-83d5-46d9-9c51-7d35a70f6f36"],

Cell["\<\
It would be nice to have a formula that produces primes. Historically, \
lacking such a formula, mathematicians sought formulas that at least yield \
only primes.\
\>", "Text",
 CellChangeTimes->{
  3.8072740628196564`*^9, {3.955953179314246*^9, 3.955953186023467*^9}, {
   3.9559532317312737`*^9, 3.955953236104459*^9}},
 Background->None,
 CellID->1867825179,ExpressionUUID->"271a57f3-f15a-4e87-9c57-129c60944906"],

Cell[TextData[{
 "In 1640, ",
 StyleBox["Pierre de Fermat",
  FontSlant->"Italic"],
 " noted that the numbers on this list are all prime:"
}], "Text",
 CellChangeTimes->{{3.7882321777162766`*^9, 3.7882322738273726`*^9}, {
   3.788232407791873*^9, 3.788232417024601*^9}, {3.7884989699901047`*^9, 
   3.7884989757793074`*^9}, {3.7906577674081144`*^9, 
   3.7906577681187077`*^9}, {3.7906585291760454`*^9, 
   3.7906585351006594`*^9}, {3.7966397688923597`*^9, 3.7966398225366383`*^9}, 
   3.796640516135398*^9, {3.807274057606634*^9, 3.8072740591267633`*^9}, {
   3.8894400107820635`*^9, 3.8894400114350557`*^9}, {3.8904791940087223`*^9, 
   3.890479202938857*^9}, {3.930911398478092*^9, 3.930911404038123*^9}, {
   3.9459449171996727`*^9, 3.945944917635397*^9}},
 CellID->621831607,ExpressionUUID->"203ce630-387d-4f42-ac21-a5033798cdc5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Flatten", "/@", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*Cell[TextData[Cell[BoxData[FormBox[\"n\", \
TraditionalForm]],ExpressionUUID->\"b87c4717-02b8-4e9f-b9be-62176ea7044e\"]],\
ExpressionUUID->\"95a6b51d-e556-4ca2-baed-f71d6a2c49b2\"]\)\>\"", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "4"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SuperscriptBox[\
\(2\), SuperscriptBox[\(2\), \(n\)]] + 1\)\)\>\"", ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"2", "^", 
            RowBox[{"2", "^", "n"}]}], "+", "1"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "}"}]}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellID->2064466806,ExpressionUUID->"c9723418-6535-4542-8649-05e893fcde23"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\\"n\\\", \
TraditionalForm]]]]]\\)\"\>", "0", "1", "2", "3", "4"},
    {"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SuperscriptBox[\\(2\
\\), SuperscriptBox[\\(2\\), \\(n\\)]] + 1\\)\\)\"\>", "3", "5", "17", "257", 
     "65537"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.936249456428669*^9},
 CellID->233176256,ExpressionUUID->"def0e06c-1cd3-4be2-bf84-c6f865b26004"]
}, {2}]],

Cell[TextData[{
 "He conjectured that numbers of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     SuperscriptBox["2", "n"]], "+", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"f9756aab-d6a6-4b5f-9cd0-c594be9fc168"],
 " are always prime."
}], "Text",
 CellID->1628415974,ExpressionUUID->"7c655822-136c-4384-a2ba-63e34fc3d6b4"],

Cell[TextData[{
 "Euler refuted Fermat\[CloseCurlyQuote]s conjecture in 1732 when he showed \
that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     SuperscriptBox["2", "5"]], "+", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"40880cd4-42e2-4253-9a42-0fb0f14b5b81"],
 " is not prime. Indeed"
}], "Text",
 CellID->1255677650,ExpressionUUID->"0d0ecaf9-bda6-4f84-8e75-291d2802721c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["2", 
     SuperscriptBox["2", "5"]], "+", "1"}], "=", 
   RowBox[{"294967297", "=", 
    RowBox[{"641", "*", "6700417"}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->979274513,ExpressionUUID->"360fac8a-1722-4b8f-a321-6cfbf83ac2b3"],

Cell[TextData[{
 "Numbers of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     SuperscriptBox["2", "n"]], "+", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"dfdcb695-9884-4a00-82b5-a2697577013e"],
 " are called ",
 StyleBox["Fermat numbers",
  FontSlant->"Italic"],
 ". The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["n", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "447725dc-e6c2-4f43-8b58-7761149d4b29"],
 " Fermat number is denoted by ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "f8e23e86-97fb-4b82-a343-b90c791c3042"],
 "."
}], "Text",
 CellID->1507123030,ExpressionUUID->"c5cedb9f-c2af-4587-9f2e-c9b833234ef6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fermat Primes", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.70627047371986*^9, 
   3.7062704938975286`*^9}, {3.706289981184039*^9, 3.7062899841899157`*^9}, {
   3.706290047634679*^9, 3.706290047738562*^9}, {3.7966336524056053`*^9, 
   3.7966336557187223`*^9}, {3.889431343572239*^9, 3.8894313444448867`*^9}},
 CellID->1773449507,ExpressionUUID->"c655b1ca-cbef-45ef-8b39-b6c39e6acac8"],

Cell[TextData[{
 "A prime number of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["F", "n"], "=", 
    RowBox[{
     SuperscriptBox["2", 
      SuperscriptBox["2", "n"]], "+", "1"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"d42058e9-5493-45df-b2e5-5b66fec1d100"],
 " is a ",
 StyleBox["Fermat prime",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->1440327436,ExpressionUUID->"e052e2f1-201f-4676-a469-c19de8cfff9b"],

Cell[TextData[{
 "The only known Fermat primes are ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "0"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "263c24f6-cf00-41c3-8691-63dd1c55c3c2"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "a0e4c7d2-44d7-4502-9002-c38b226d0f9a"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "38210cc2-8b95-4727-8397-6d0aa06acce9"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "5e4efa9e-e7f8-484c-bb4b-e5f8e9ef493b"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "4"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "3cef62e9-349d-4e07-b57a-1c054eb41a74"],
 ":"
}], "Text",
 CellID->1147547868,ExpressionUUID->"372d84c8-83fd-4d7f-a5b0-7963f0263ad5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"2", "^", 
           RowBox[{"2", "^", "i"}]}], "+", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(F\), \(n\)] = \
\(\*SuperscriptBox[\(2\), SuperscriptBox[\(2\), \(n\)]]\(+\)\(1\)\(\\\ \)\)\)\
\>\""}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellID->1017586775,ExpressionUUID->"30e9fd76-b615-45bf-92a2-737798dc0a6b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\)\"\>", "\<\
\"\\!\\(TraditionalForm\\`\\*SubscriptBox[\\(F\\), \\(n\\)] = \
\\(\\*SuperscriptBox[\\(2\\), SuperscriptBox[\\(2\\), \\(n\\)]]\\(+\\)\\(1\\)\
\\(\\\\ \\)\\)\\)\"\>"},
    {"0", "3"},
    {"1", "5"},
    {"2", "17"},
    {"3", "257"},
    {"4", "65537"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.936249481273972*^9},
 CellID->2115872221,ExpressionUUID->"b34c98fb-6d6b-4abe-8dd4-3129d43992c5"]
}, {2}]],

Cell[TextData[{
 "However, little is known about Fermat numbers with large ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "c3133f68-c3be-473a-9367-e7ba77e5e074"],
 "."
}], "Text",
 CellID->1147536792,ExpressionUUID->"90a6456b-3038-42b8-9876-113c9ffe73f1"],

Cell["\<\
In fact, it is unknown whether there are infinitely many Fermat primes or \
infinitely many composite Fermat numbers.\
\>", "Text",
 CellChangeTimes->{{3.796640181264187*^9, 3.796640232429882*^9}, 
   3.796640966249607*^9},
 CellID->100229437,ExpressionUUID->"31618afb-9ecb-4c23-a5aa-dad9ff7e1d67"],

Cell[TextData[{
 "It is known that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "eaac0032-06e8-41a7-9096-99eb5160965b"],
 " is composite for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"5", "\[LessEqual]", "n", "\[LessEqual]", "32"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "3bfd2ca7-a5c4-44ef-b6ef-b5c708157ddc"],
 ", although amongst these, complete factorizations of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "8f64c1db-f695-4773-a52a-43bbb2efc655"],
 " are known only for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", "11"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "afa7737f-1b25-4b78-9c3a-abfcaa9612b0"],
 ". "
}], "Text",
 CellID->928968411,ExpressionUUID->"821297c5-a0c1-41e0-9258-bcb988a7b7fc"],

Cell[TextData[{
 "The largest Fermat number known to be composite is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "3329780"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"e9beadf8-00bc-4054-b480-241c48d34954"],
 "."
}], "Text",
 CellID->965969987,ExpressionUUID->"00b662b9-f0de-4f29-aca9-54c18a714127"],

Cell["\<\
Factoring Fermat numbers is extremely difficult because of their large size.\
\>", "Text",
 CellChangeTimes->{{3.7882416988902864`*^9, 3.7882417318614407`*^9}, {
   3.7966403528569107`*^9, 3.7966403956444063`*^9}, 3.7966404660470695`*^9, 
   3.93091149534121*^9},
 CellID->81200189,ExpressionUUID->"0b54818c-9c17-4c25-8174-8ce662a34202"],

Cell[TextData[{
 "Fermat primes are the only primes of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", "m"], "+", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"15b6c830-d269-480e-aa23-e0ea924241a8"],
 "."
}], "Text",
 CellID->1079460678,ExpressionUUID->"f972d302-3629-4c15-8f9c-cff2596ebc7f"],

Cell[CellGroupData[{

Cell["Summary", "TechNoteSection",
 CellID->1259673378,ExpressionUUID->"459565b6-1c33-43b4-8103-a2efb32dd7b0"],

Cell[TextData[{
 "A ",
 StyleBox["perfect number",
  FontSlant->"Italic"],
 " is a positive integer that is equal to the sum of its positive divisors, \
excluding the number itself."
}], "SummaryList",
 CellChangeTimes->{{3.796641063549881*^9, 3.7966410889563293`*^9}, 
   3.7966412103977623`*^9},
 CellID->852677743,ExpressionUUID->"e8502e38-fa2d-42a6-bc99-9de6070a4369"],

Cell[TextData[{
 "A number of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", "n"], "-", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6cf2e9a6-09cb-4f4d-9603-8a4cfa4e92ea"],
 " is said to be a ",
 StyleBox["Mersenne number",
  FontSlant->"Italic"],
 ". The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["n", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "182cca71-220b-4d3e-a940-9044118ce43d"],
 " Mersenne number is denoted by ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d081e973-59b3-4bc4-bce4-fd5fd677c7b3"],
 "."
}], "SummaryList",
 CellID->796450170,ExpressionUUID->"ece5740e-f9d9-43a2-a596-6a784fd2274c"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "21bd02ce-fac8-f349-a309-eae32bc95f8e"],
 " is prime, it is called a ",
 StyleBox["Mersenne prime",
  FontSlant->"Italic"],
 " and ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "18e0a793-5e38-864e-a94a-dc23aa4743fc"],
 " is called a ",
 StyleBox["Mersenne prime exponent",
  FontSlant->"Italic"],
 "."
}], "SummaryList",
 CellID->672435439,ExpressionUUID->"f9c1ae9a-0380-46df-88a1-efe2b71ff640"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]], "InlineMath",ExpressionUUID->
  "13f65731-8346-40fc-9c55-231999b98cd4"],
 " is a Mersenne prime exponent, then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"p", "-", "1"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "p"], "-", "1"}], ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"02ac61ec-aa80-40b1-9d63-a216d68a7923"],
 " is a perfect number."
}], "SummaryList",
 CellID->1563472759,ExpressionUUID->"e3dbae61-6ac3-4f46-a7ae-9c76f21d7989"],

Cell[TextData[{
 "Every even perfect number has the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"p", "-", "1"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["2", "p"], "-", "1"}], ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"c5e2ea95-7d60-422b-87d6-610981ee85d8"],
 ", where ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]], "InlineMath",ExpressionUUID->
  "59705718-705f-4867-879b-64f98e29ccdf"],
 " is a Mersenne prime exponent."
}], "SummaryList",
 CellID->676755821,ExpressionUUID->"ea8af9ec-fc50-41bf-8e67-a3f8c538fda9"],

Cell[TextData[{
 "Numbers of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     SuperscriptBox["2", "n"]], "+", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"e8b1dfb2-8f58-496f-a2e4-76caa7c72968"],
 " are called ",
 StyleBox["Fermat numbers",
  FontSlant->"Italic"],
 ". The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["n", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "37043bb9-a387-4da1-aa14-762f945d4244"],
 " Fermat number is denoted by ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["F", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "4bb6b914-db51-48f8-b23d-50b4673c1bbe"],
 "."
}], "SummaryList",
 CellID->1161689035,ExpressionUUID->"d7867675-bbef-49d3-8738-de4302628dca"],

Cell[TextData[{
 "A prime number of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["F", "n"], "=", 
    RowBox[{
     SuperscriptBox["2", 
      SuperscriptBox["2", "n"]], "+", "1"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"4e5a7aae-2fca-46ae-b28b-900aa7aedf43"],
 " is a ",
 StyleBox["Fermat prime",
  FontSlant->"Italic"],
 "."
}], "SummaryList",
 CellID->1733776368,ExpressionUUID->"64fed720-97e1-40ad-a7af-5506b421d0ce"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["\[Copyright] 2026 Wolfram Media, Inc.", "SmallText",
 CellMargins->{{66, 66}, {20, 100}},
 CellGroupingRules->"SectionGrouping",
 FontSize->12,
 FontColor->RGBColor[
  0.7098039215686275, 0.7098039215686275, 
   0.7098039215686275],ExpressionUUID->"3b396b1b-03a1-4e87-ae9b-712f1c9fdbca"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"22. Special Numbers | Introduction to Number Theory",
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> TemplateBox[<|
        "heading" -> "Wolfram eTextbook Series", "title" -> 
         "Introduction to Number Theory"|>, "BannerHeadingTitleTemplate"], 
      "previous" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerLeftArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{
             "NumberTheory-07-21_The-Riemann-Zeta-Function.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "\n21. The Riemann Zeta Function"}, "PrettyTooltipTemplate"], "next" -> 
      TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"NumberTheory-07-23_Numeral-Systems.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "\n23. Numeral Systems"}, "PrettyTooltipTemplate"], "menu" -> 
      TemplateBox[{
         TemplateBox[{{
           "Cover" :> NotebookLocate[{"NumberTheory-00a_Cover.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Preface" :> 
            NotebookLocate[{"NumberTheory-00b_Preface.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Introduction", Bold] :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "1. What Is Number Theory?" :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "2. Integers: The Basics" :> 
            NotebookLocate[{"NumberTheory-01-02_Integers-The-Basics.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "3. Primes and Composites" :> 
            NotebookLocate[{
              "NumberTheory-01-03_Primes-and-Composites.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 1 Exercises" :> 
            NotebookLocate[{"NumberTheory-01b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Primes and Divisibility", Bold] :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "4. Prime Factorization" :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "5. Multiples and Divisors" :> 
            NotebookLocate[{
              "NumberTheory-02-05_Multiples-and-Divisors.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "6. Greatest Common Divisor" :> 
            NotebookLocate[{
              "NumberTheory-02-06_Greatest-Common-Divisor.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 2 Exercises" :> 
            NotebookLocate[{"NumberTheory-02b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Modular Arithmetic", Bold] :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "7. Congruences" :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "8. Modular Arithmetic" :> 
            NotebookLocate[{"NumberTheory-03-08_Modular-Arithmetic.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "9. Chinese Remainder Theorem" :> 
            NotebookLocate[{
              "NumberTheory-03-09_Chinese-Remainder-Theorem.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 3 Exercises" :> 
            NotebookLocate[{"NumberTheory-03b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Continued Fractions", Bold] :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "10. Real Number Representations" :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "11. Continued Fractions" :> 
            NotebookLocate[{"NumberTheory-04-11_Continued-Fractions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "12. Best Rational Approximations" :> 
            NotebookLocate[{
              "NumberTheory-04-12_Best-Rational-Approximations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 4 Exercises" :> 
            NotebookLocate[{"NumberTheory-04b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Diophantine Equations", Bold] :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "13. Diophantine Equations" :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "14. Linear Diophantine Equations" :> 
            NotebookLocate[{
              "NumberTheory-05-14_Linear-Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "15. Diophantine Equations of Degree 2" :> 
            NotebookLocate[{
              "NumberTheory-05-15_Diophantine-Equations-of-Degree-2.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 5 Exercises" :> 
            NotebookLocate[{"NumberTheory-05b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Cryptography", Bold] :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "16. Cryptography" :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "17. The RSA Algorithm" :> 
            NotebookLocate[{"NumberTheory-06-17_The-RSA-Algorithm.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 6 Exercises" :> 
            NotebookLocate[{"NumberTheory-06b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Additional Topics", Bold] :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "18. Primality Testing: Miller\[Dash]Rabin" :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "19. Factorization: Pollard\[CloseCurlyQuote]s Rho" :> 
            NotebookLocate[{
              "NumberTheory-07-19_Factorization-Pollards-Rho.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "20. Diophantine Equations: Hilbert\[CloseCurlyQuote]s Tenth \
Problem" :> NotebookLocate[{
              "NumberTheory-07-20_Diophantine-Equations-Hilberts-Tenth-\
Problem.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "21. The Riemann Zeta Function" :> 
            NotebookLocate[{
              "NumberTheory-07-21_The-Riemann-Zeta-Function.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "22. Special Numbers" :> 
            NotebookLocate[{"NumberTheory-07-22_Special-Numbers.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "23. Numeral Systems" :> 
            NotebookLocate[{"NumberTheory-07-23_Numeral-Systems.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 7 Exercises" :> 
            NotebookLocate[{"NumberTheory-07b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}]}}, "BannerMenuTemplate"], 
         "Table of contents"}, "PrettyTooltipTemplate"]|>, "BannerTemplate"]],
    "DockedCell", "Banner"], 
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> "Lusine Sukiasyan and Charles Pooh  |  Cite this eTextbook"|>,
      "BannerCitationOpenerTemplate"]], "DockedCell", 
   "BannerCitationOpenerLabel"], 
  Cell[
   BoxData[
    TemplateBox[{
      TemplateBox[{"\"Lusine Sukiasyan and Charles Pooh (2026), \"", 
        StyleBox[
        "\"Introduction to Number Theory: A Computational Approach,\"", 
         Selectable -> True, Copyable -> True, FontSlant -> Italic], 
        "\" Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory.\""}, "RowDefault"], 
      
      RowBox[{"Lusine Sukiasyan and Charles Pooh (2026), ", 
        StyleBox[
        "Introduction to Number Theory: A Computational Approach,", FontSlant -> 
         "Italic"], 
        " Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory."}]}, 
     "CitationClickToCopy2", BaseStyle -> {LineBreakWithin -> Automatic}]], 
   "DockedCell", "BannerCitation", CellOpen -> Dynamic[
     TrueQ[
      CurrentValue[
       EvaluationNotebook[], {TaggingRules, "eTextbook", "CitationOpener"}, 
       False]]]]},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
ShowCellBracket->Automatic,
TaggingRules-><|"eTextbook" -> <|"CitationOpener" -> False|>|>,
ShowCellLabel->False,
CellLabelAutoDelete->True,
CellLabelTemplate-><|
 "In" -> "In[`1`]:=", "InExpired" -> "In[`1`]:=", "Out" -> "Out[`1`]=", 
  "OutExpired" -> "Out[`1`]="|>,
ShowCellTags->False,
ShowAutoSpellCheck->False,
ShowPredictiveInterface->False,
AutoStyleOptions->{"HighlightComments"->True},
AutoMultiplicationSymbol->{},
Magnification->1,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 1, 2025)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell[
      "Style Environments", "Section", 
       CellChangeTimes -> {{3.64661165091824*^9, 3.646611654013329*^9}, 
         3.6485723794335403`*^9, 3.651347081728628*^9, 3.651347179462186*^9, 
         3.651347384135805*^9, 3.651348171662589*^9}], 
      Cell[
       StyleData[All, "Working"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[5]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Appearance -> "PopupMenu",
                Method -> "Queued", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False], 
      Cell[
       StyleData[All, "Printout"], PageWidth :> 700, 
       PrintingOptions -> {"PageSize" -> {504, 720}}, 
       AutoStyleOptions -> {"UndefinedSymbolStyle" -> None}, Magnification -> 
       0.6], 
      Cell[
       StyleData[All, "Invisibles"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, Appearance -> 
               "PopupMenu", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Method -> "Queued", 
               FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Headers and Footers", "Section"], 
      Cell[
       StyleData["Header"], 
       PrintingOptions -> {"PageHeaderMargins" -> {28, 28}}, StyleMenuListing -> 
       None, FontFamily -> "Source Sans Pro", FontSize -> 8, FontWeight -> 
       "Regular", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0.45]], 
      Cell[
       StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       8, FontWeight -> "Bold", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "Custom Styles", "Section", 
       CellChangeTimes -> {{3.646611660445352*^9, 3.646611669493331*^9}}], 
      Cell[
       StyleData["Notebook"], WindowToolbars -> {}, PageWidth :> WindowWidth, 
       PrintingOptions -> {
        "FirstPageHeader" -> True, "InnerOuterMargins" -> {30, 30}, 
         "PaperOrientation" -> "Portrait", "PaperSize" -> {504, 720}, 
         "PrintingMargins" -> {{20, 20}, {54, 54}}}, CellLabelAutoDelete -> 
       False, ShowSyntaxStyles -> True, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, MenuSortingValue -> 
       None, GraphicsBoxOptions -> {ImageSize -> 240}, 
       Graphics3DBoxOptions -> {ImageSize -> 240}], 
      Cell[
       StyleData["TOCPage"], CellSize -> {40, Inherited}, TextAlignment -> 
       Right, MenuSortingValue -> 20010, StyleMenuListing -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ContentsTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          MenuSortingValue -> 20000, FontFamily -> "Helvetica", FontSize -> 
          36, FontWeight -> "Bold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ContentsTitle", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 36, 
          CounterIncrements -> "TOCTitle", MenuSortingValue -> 20020, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontWeight -> 
          "Bold", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TOCTitle", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCSection"], CellMargins -> {{95, 95}, {1, 1}}, 
          CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 34, 
          CounterIncrements -> "TOCSection", MenuSortingValue -> 20030, 
          FontFamily -> "Source Sans Pro", FontSize -> 16], 
         Cell[
          StyleData["TOCSection", "Printout"]]}, Closed]], 
      Cell[
       StyleData["Leader"], TabFilling -> ".", MenuSortingValue -> 10000, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       18, FontWeight -> "Plain"], 
      Cell[
       StyleData["LeaderNoDots"], TabFilling -> " ", MenuSortingValue -> 
       10000, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       StyleData["PageLink"], MenuSortingValue -> 10000, StyleMenuListing -> 
       None, ButtonStyleMenuListing -> Automatic, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[0.269993, 0.308507, 0.6], 
       ButtonBoxOptions -> {
        Active -> True, Appearance -> {Automatic, None}, 
         ButtonFunction :> (FrontEndExecute[{
            FrontEnd`NotebookLocate[#2]}]& )}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], CellMargins -> {{64, Inherited}, {50, 72}}, 
          MenuCommandKey :> None, FontFamily -> "Verdana", FontSize -> 42, 
          FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], 
         Cell[
          StyleData["Title", "Printout"], 
          CellMargins -> {{64, Inherited}, {50, 72}}]}, Closed]], 
      Cell[
       StyleData["Chapter"], MenuCommandKey :> None], 
      Cell[
       StyleData["Subchapter"], MenuCommandKey :> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Section"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{64, Inherited}, {12, 64}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["Section", "Printout"], 
          CellMargins -> {{62, 4}, {52, 182}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionSingleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{100, 100}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionSingleDigit", "Printout"], 
          CellMargins -> {{100, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionDoubleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{112, Inherited}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionDoubleDigit", "Printout"], 
          CellMargins -> {{112, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNumber"], CellBaseline -> Baseline, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 26, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionBar"], FontFamily -> "Source Sans Pro", 
          FontWeight -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionBar", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionInline"], FontFamily -> 
          "Source Sans Pro Semibold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionInline", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNoDingbat"], 
          CellMargins -> {{64, Inherited}, {12, 64}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionNoDingbat", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumbered"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Subsection"]}], "SubsectionNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{98, Inherited}, {Inherited, 32}}, 
          CounterIncrements -> "Subsection", FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsectionNumbered", "Printout"], 
          CellMargins -> {{102, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumber"], FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          GrayLevel[0.25]], 
         Cell[
          StyleData["SubsectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionFirst"], 
          CellMargins -> {{64, Inherited}, {2, 72}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], CellMargins -> {{64, Inherited}, {2, 32}}, 
          FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsubsectionTopMargin"], 
          CellMargins -> {{64, Inherited}, {2, 14}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsubsectionTopMargin", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.45]], 
         Cell[
          StyleData["Subsubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsubsection"], 
          CellMargins -> {{66, Inherited}, {2, 10}}, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subsubsubsection", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> 
            "Subsubsubsection"}, CellGroupingRules -> {"SectionGrouping", 70},
           PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", 
          CounterIncrements -> "Subsubsubsubsection", 
          CounterAssignments -> {{"Item", 0}, {"Subitem", 0}, {
            "Subsubitem", 0}, {"ItemNumbered", 0}, {"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsubsubsection", "Printout"], 
          CellMargins -> {{66, 66}, {2, 10}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesSubsection"], 
          CellMargins -> {{64, Inherited}, {4, 16}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesSubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["VocabularySection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 24}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsectionSM"], 
          CellFrame -> {{0, 0}, {0.75, 0}}, 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
          "Regular", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 15}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyTable", StyleDefinitions -> StyleData["Text"]],
           SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"VocabularyCode", Inherited, Inherited}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "VocabularyTable3Column", StyleDefinitions -> StyleData["Text"]], 
          SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {
               "VocabularyCode", Inherited, "VocabularyCode", Inherited, 
                Inherited}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable3Column", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["VocabularyText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyCode", StyleDefinitions -> StyleData["Text"]], 
          Deletable -> False, FontFamily -> "Source Sans Pro", FontSize -> 14,
           FontWeight -> "Bold", FontColor -> GrayLevel[0.25], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["VocabularyCode", "Printout"], FontColor -> 
          GrayLevel[0.25]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["GrayPointSix"], FontColor -> GrayLevel[0.6]], 
         Cell[
          StyleData["GrayPointSix", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabDivColor"], FontColor -> GrayLevel[0.8]], 
         Cell[
          StyleData["VocabDivColor", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummarySection"], PageWidth :> WindowWidth, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], MenuSortingValue -> 9000, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontSlant -> 
          "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["SummarySection", "Printout"], 
          CellMargins -> {{64, 64}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryNote"], PageWidth :> WindowWidth, 
          CellMargins -> {{64, 64}, {4, 8}}, ReturnCreatesNewCell -> True, 
          PageBreakBelow -> False, MenuSortingValue -> 9010, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryNote", "Printout"], 
          CellMargins -> {{68, 68}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryList"], PageWidth :> WindowWidth, CellDingbat -> 
          Cell[
            TextData[{"\[FilledSmallSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, 78}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 3, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 9020, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryList", "Printout"], 
          CellMargins -> {{82, 82}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, ShowCellLabel -> False, CellFrameMargins -> {{8, 8}, {4, 6}},
           CellFrameColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ExerciseSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsection"], PageWidth :> 500, 
          CellFrame -> {{False, False}, {1, False}}, 
          CellMargins -> {{64, Inherited}, {8, 18}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6], FontFamily -> "Source Sans Pro", FontSize -> 
          18, FontSlant -> "Italic", FontColor -> RGBColor[0.65, 0.6, 0.6]], 
         Cell[
          StyleData["ExerciseSubsection", "Printout"], 
          CellFrame -> {{False, False}, {1, False}}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsectionSM"], 
          CellMargins -> {{64, Inherited}, {4, 12}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ExerciseSubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Exercise"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Exercise"]}], "ExerciseNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          ShowGroupOpener -> False, CellMargins -> {{106, Inherited}, {4, 8}},
           CellGroupingRules -> {"SectionGrouping", 62}, DefaultNewCellStyle -> 
          "ExerciseInput", CounterIncrements -> "Exercise", MenuSortingValue -> 
          10020, MenuCommandKey :> "2", FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["Exercise", "Printout"], ShowGroupOpener -> False, 
          CellMargins -> {{108, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSectionNote"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseSectionNote", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNote"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNote", "Printout"], 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSolution"], ShowGroupOpener -> "Inline", 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, CellChangeTimes -> {3.938884624675207*^9}, 
          LineSpacing -> {1., 1., 2.}, 
          CounterAssignments -> {{"ItemNumbered", 0}}, LineColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          FrontFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          BackFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GraphicsColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro Semibold",
           FontSize -> 14, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ExerciseSolution", "Printout"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionAnswer"], CellMargins -> {{106, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["SolutionAnswer", "Printout"], 
          CellMargins -> {{106, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], ")"}], FontSize -> 14, FontWeight -> 
            "Regular", FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{122, Inherited}, {2, 4}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SolutionItem", "Printout"], 
          CellMargins -> {{106, Inherited}, {2, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QASection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Question", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["QASection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Question"], CellMargins -> {{64, Inherited}, {2, 12}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          CounterIncrements -> "Question", MenuSortingValue -> 10030, 
          MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Bold", FontSlant -> 
          "Plain", $CellContext`DefaultReturnCreatedCellStyle -> "Answer"], 
         Cell[
          StyleData["Question", "Printout"], 
          CellMargins -> {{65, Inherited}, {2, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Answer"], CellMargins -> {{66, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["Answer", "Printout"], 
          CellMargins -> {{66, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QuestionNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["QuestionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["TechNoteSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["TechNoteSubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontSize -> 12, FontWeight -> 
            Bold, FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{93, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, 
          CellChangeTimes -> {{3.651515120816633*^9, 3.651515125814807*^9}, 
            3.6515155174947033`*^9}, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNoteItem", "Printout"], 
          CellMargins -> {{93, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteNoDingbat"], 
          CellMargins -> {{82, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          MenuSortingValue -> 10040, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"], 
          CellMargins -> {{82, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNote"], CellDingbat -> Cell[
            TextData[{"\[FilledSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 4, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{99, 10}, {3, 7}}, SpanMaxSize -> 1, FontSize -> 
          14], 
         Cell[
          StyleData["TechNoteInput", "Printout"], 
          CellMargins -> {{99, 10}, {3, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TechNoteOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 14], 
         Cell[
          StyleData["TechNoteOutput", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["MoreExploreSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExplore"], CellMargins -> {{64, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExplore", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreShortURL"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          FontFamily -> "Source Sans Pro Light", FontSize -> 14, FontSlant -> 
          "Plain", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExploreShortURL", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysSection"], CellFrame -> {{1, 1}, {1, 1}}, 
          CellMargins -> {{52, -12}, {-1, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{16, 8}, {6, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "Bold", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[1], Background -> 
          RGBColor[0.901961, 0.411765, 0.027451]], 
         Cell[
          StyleData["TakeawaysSection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysHeader"], 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "SemiBold", 
          FontSlant -> "Regular", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysHeader", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysTable"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{52, -12}, {12, -1}}, ReturnCreatesNewCell -> True, 
          CellFrameMargins -> {{18, 12}, {20, 12}}, CellFrameLabelMargins -> 
          6, LineSpacing -> {1.25, 1., 2.}, SpanMaxSize -> 1, FontFamily -> 
          "Source Sans Pro Light", FontColor -> GrayLevel[0.25], Background -> 
          RGBColor[1., 0.9490196078431372, 0.8509803921568627], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"TakeawaysDingbat", Inherited}, 
              "Rows" -> {{SpanFromLeft, Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.75}}}}], 
         Cell[
          StyleData["TakeawaysTable", "Printout"], 
          CellMargins -> {{51.5, -12.5}, {12, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysText", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TakeawaysDingbat", StyleDefinitions -> StyleData["Text"]], 
          FontFamily -> "Source Sans Pro", FontSize -> 10, FontWeight -> 
          "SemiBold", FontColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["TakeawaysDingbat", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeText", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 10}, {3, 15}}, LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 1540, 
          MenuCommandKey :> $CellContext`MenuKey[
           "7", $CellContext`Modifiers -> {"Shift"}], FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeText", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeCaption"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{66, 10}, {4, 12}}, PageBreakBelow -> False, 
          CellFrameColor -> GrayLevel[0.4], LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 10010, MenuCommandKey :> "1", FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeCaption", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DisplayFormula"], CellMargins -> {{99, 15}, {2, 12}}, 
          StripStyleOnPaste -> True, DefaultFormatType -> 
          DefaultInputFormatType, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           LanguageCategory -> "Formula", ScriptLevel -> 0, 
          SingleLetterItalics -> True, MenuSortingValue -> 1700, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[0.2], 
          UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
         Cell[
          StyleData["DisplayFormula", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "DisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["DisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Inherited}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, 6}, {Inherited, Inherited}}, 
          TextAlignment -> Left, CounterIncrements -> 
          "DisplayFormulaNumbered", MenuSortingValue -> 1710, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}], 
         Cell[
          StyleData["DisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{99, 19}, {Inherited, Inherited}}, 
          CellFrameMargins -> {{Inherited, Inherited}, {
            Inherited, Inherited}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Print"], CellMargins -> {{99, 10}, {4, 4}}, FontSize -> 
          15], 
         Cell[
          StyleData["Print", "Presentation"], 
          CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], 
         
         Cell[
          StyleData["Print", "SlideShow"], 
          CellMargins -> {{
            0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 
             FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, 
          FontSize -> 18], 
         Cell[
          StyleData["Print", "Condensed"], 
          CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "Printout"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "PrintoutGray"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Item"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontFamily -> Automatic, FontSize -> 
            18, FontWeight -> GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{81, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "Subitem", "*" -> "Subitem"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
          CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15], 
         Cell[
          StyleData["Item", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{80, Inherited}, {Inherited, Inherited}}, 
          CellDingbatMargin -> 2, 
          CellGroupingRules -> {
           "GroupTogetherNestedGrouping", 1.073741821*^9}, 
          CellChangeTimes -> {{3.8855684925344043`*^9, 
           3.885568495926271*^9}, {3.885643888233819*^9, 
           3.885643900721007*^9}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemParagraph"], CellMargins -> {{81, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["ItemParagraph", "Printout"], 
          CellMargins -> {{80, Inherited}, {Inherited, 0.5 Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemNumbered"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
          CellMargins -> {{85, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemNumbered"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "ItemNumbered", 
          CounterAssignments -> {{"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> 1630, FontFamily -> 
          "Source Sans Pro", FontSize -> 15], 
         Cell[
          StyleData["ItemNumbered", "Printout"], 
          CellMargins -> {{90, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Tab" -> "Subsubitem", "*" -> "Subsubitem", "Backspace" -> 
            "Item", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Item"}, 
          CellGroupingRules -> {"ItemGrouping", 80}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subitem", 
          CounterAssignments -> {{"Subsubitem", 0}}, MenuSortingValue -> 1610,
           FontFamily -> "Source Sans Pro", FontSize -> 14], 
         Cell[
          StyleData["Subitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[0.6, 0.6, 0.6]], CellMargins -> {{129, 12}, {4, 4}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subitem", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Subitem"}, 
          CellGroupingRules -> {"ItemGrouping", 90}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, 
          FontFamily -> "Source Sans Pro", FontSize -> 13], 
         Cell[
          StyleData["Subsubitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            GrayLevel[0.65]], 
          CellMargins -> {{129, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Note"], CellFrame -> {{0, 0}, {0, 1}}, 
          CellMargins -> {{66, 0}, {8, 6}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameMargins -> {{14, 14}, {12, 12}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          LineSpacing -> {1.2, 1., 2.}, MenuSortingValue -> 1600, FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontColor -> GrayLevel[0.2], 
          Background -> RGBColor[1., 0.9647058823529412, 0.9411764705882353]], 
         Cell[
          StyleData["Note", "Printout"], CellMargins -> {{66, 0}, {10, 8}}, 
          FontSize -> 14]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Echo"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Echo", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EchoTiming"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["EchoTiming", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Epigraph"], CellMargins -> {{100, 78}, {6, 24}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, TextAlignment -> Left, Hyphenation -> 
          True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 5}}, 
          LineSpacing -> {1, 2}, TabSpacings -> {1.2, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain", FontSlant -> 
          "Plain"], 
         Cell[
          StyleData["Epigraph", "Printout", StyleDefinitions -> None]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EpigraphAuthor"], CellMargins -> {{125, 100}, {12, 12}}, 
          TextAlignment -> Left, LineSpacing -> {1, 2}, 
          ParagraphIndent -> -17, TabSpacings -> {1.5, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontTracking -> -0.05], 
         Cell[
          StyleData["EpigraphAuthor", "Printout", StyleDefinitions -> None]]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ReferenceSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ReferenceSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Reference"], CellDingbat -> Cell[
            TextData[{
              CounterBox["Reference"]}], "SR", FontSize -> 13, 
            CellSize -> {30, Inherited}, TextAlignment -> Right], 
          CellMargins -> {{80, 10}, {3, 4}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, 
          CellChangeTimes -> {{3.738599543211059*^9, 3.738599549834622*^9}}, 
          LineSpacing -> {1, 2}, ParagraphIndent -> -8, 
          TabSpacings -> {0.7, 2.5}, CounterIncrements -> "Reference", 
          MenuSortingValue -> 1870, FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["Reference", "Printout", StyleDefinitions -> None], 
          CellMargins -> {{66, 10}, {3, 4}}, TabSpacings -> {1.2, 2.5}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TextFirst"], CellMargins -> {{66, 10}, {4, 72}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Baskerville", FontSize -> 
          18, FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["Text", "Printout"], CellMargins -> {{66, 10}, {7, 7}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], CellMargins -> {{66, 10}, {4, 12}}, 
          ReturnCreatesNewCell -> True, 
          CellChangeTimes -> {{3.968834509197134*^9, 3.968834509700926*^9}}, 
          FontFamily -> "Baskerville", FontSize -> 18, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`]], 
         Cell[
          StyleData["Text", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SmallText"], CellMargins -> {{66, 10}, {6, 6}}, 
          LineSpacing -> {1, 3}, TabSpacings -> {2.5}, LanguageCategory -> 
          "NaturalLanguage", CounterIncrements -> "SmallText", 
          MenuSortingValue -> 1750, StyleMenuListing -> None, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["SmallText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}, Hyphenation -> True]}, Closed]], 
      
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesText"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesText", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesLink"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Italic", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesLink", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellMargins -> {{99, 10}, {3, 7}}, CellEpilog :> 
          Quiet[Needs["WolframBookTools`"]; 
            WolframBookTools`AddCaptionsToRegeneratedOutput[]], SpanMaxSize -> 
          1, FontSize -> 15], 
         Cell[
          StyleData["Input", "Printout"], CellMargins -> {{99, 10}, {3, 7}}]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 
          15], 
         Cell[
          StyleData["Output", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], CellMargins -> {{99, 10}, {25, 10}}, 
          SpanMaxSize -> 1, MenuSortingValue -> 1500, FontSize -> 15], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{99, 10}, {15, 10}}]}, Closed]], 
      Cell[
       StyleData["InitializationCell"], Background -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CellLabel"], 
          CellLabelMargins -> {{18, Inherited}, {Inherited, Inherited}}, 
          LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
          "Roboto", FontSize -> 9, FontWeight -> "Regular", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.5]], 
         Cell[
          StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> 
          GrayLevel[0.3]]}, Closed]], 
      Cell[
       StyleData[
       "CellLabelExpired", StyleDefinitions -> StyleData["CellLabel"]], 
       CellLabelMargins -> 6, FontSlant -> Italic, FontTracking -> 0.4, 
       FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["IconizedDefaultName"], FontSize -> 12, 
       PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontColor -> 
       GrayLevel[0.15]], 
      Cell[
       StyleData["IconizedFrame"], 
       TemplateBoxOptions -> {
        DisplayFunction -> (
          FrameBox[#, BaselinePosition -> Baseline, 
           FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> GrayLevel[0.65], 
           Background -> GrayLevel[0.96], RoundingRadius -> 4, 
           DefaultBaseStyle -> {
            "DialogStyle", FontFamily -> "Roboto", FontSize -> 11}]& ), 
         Tooltip -> None}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Message"], Editable -> False, 
          CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
          CellGroupingRules -> "OutputGrouping", TextClipboardType -> 
          "PlainText", StripStyleOnPaste -> True, PageBreakWithin -> False, 
          GroupPageBreakWithin -> False, GeneratedCell -> True, 
          CellAutoOverwrite -> True, ShowCellLabel -> False, 
          DefaultFormatType -> DefaultOutputFormatType, ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Output"], 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {
           "StringStyle" -> None, "SyntaxErrorStyle" -> None}, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           AutoItalicWords -> {}, AutoQuoteCharacters -> {}, 
          PasteAutoQuoteCharacters -> {}, LanguageCategory -> None, 
          FormatType -> InputForm, ShowStringCharacters -> False, 
          CounterIncrements -> "Message", MenuSortingValue -> 1600, 
          StyleMenuListing -> None, FontFamily :> 
          CurrentValue["PanelFontFamily"], FontSize -> 11, FontColor -> 
          RGBColor[0.5072, 0.16933, 0.15221]], 
         Cell[
          StyleData["Message", "Printout"], 
          CellMargins -> {{100, Inherited}, {Inherited, Inherited}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> 
          GrayLevel[0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{106, 10}, {4, 7}}, 
          GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, 
          ShowCellLabel -> False, SpanMaxSize -> 1, FontSize -> 14], 
         Cell[
          StyleData["ExerciseInput", "Printout"], 
          CellMargins -> {{106, 10}, {4, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ExerciseOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{106, 10}, {10, 4}}, ShowCellLabel -> False, 
          FontSize -> 14], 
         Cell[
          StyleData["ExerciseOutput", "Printout"], 
          CellMargins -> {{106, 10}, {10, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Picture"], CellMargins -> {{66, 10}, {10, 10}}, 
          CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
         
         Cell[
          StyleData["Picture", "Printout"], 
          CellMargins -> {{66, 10}, {8, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Comment"], FontFamily -> "Verdana", FontSize -> 13, 
          FontColor -> RGBColor[0.3, 0.3, 0.2], Background -> 
          RGBColor[1, 0.9, 0.8]], 
         Cell[
          StyleData["Comment", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Suggestion"], 
          CellFrameLabels -> {{Inherited, Inherited}, {Inherited, 
             Cell[
              BoxData[
               TagBox[
                GridBox[{{
                   ButtonBox[
                   "\"  Insert  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`ReplaceWithSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    ContentPadding -> False, Appearance -> Automatic, Method -> 
                    "Queued"], 
                   ButtonBox[
                   "\"  Stet  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; DocuTools`StetSuggestion[]), 
                    Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "    ", 
                   ButtonBox[
                   "\"  Next  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindNextSuggestion[]), Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], 
                   ButtonBox[
                   "\"  Previous  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindPreviousSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "\"\""}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Grid"]], ShowStringCharacters -> False, Background -> 
              None]}}, Background -> RGBColor[1, 0.8, 0.8]], 
         Cell[
          StyleData["Suggestion", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Tentative"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[
          0.30000000000000016`, 0.6000000000000003, 0.7000000000000003], 
         "Thickness" -> 5}, Evaluatable -> False, CellFrameMargins -> 4, 
       StyleMenuListing -> None, Background -> 
       RGBColor[0.8500000000000003, 0.9500000000000003, 1]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PrintOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.89, 0.867, 0.99], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.89, 0.867, 0.99]], 
         Cell[
          StyleData["PrintOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01], 
         Cell[
          StyleData["Tentative", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["WebOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.91, 0.92, 0.9], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.91, 0.92, 0.86]], 
         Cell[
          StyleData["WebOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Lockdown"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[0.8, 0.5, 0.4], "Thickness" -> 3}, Evaluatable -> 
       False, StyleMenuListing -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["IndexField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["IndexField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExplanationField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["ExplanationField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EnglishHighlight"], FontFamily -> "WolframCodeSans"], 
         Cell[
          StyleData["EnglishHighlight", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExample"], CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 25}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExample", FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExample", "Printout"], 
          CellMargins -> {{66, 0}, {0, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleNote", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleNote", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, TextAlignment -> 
          Left, LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 
          14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["SolvedExampleDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExampleDisplayFormulaNumbered", 
          FontSize -> 14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          GeneratedCellStyles -> {
           "Message" -> "SolvedExampleMessage", "Output" -> 
            "SolvedExampleOutput"}, 
          CellFrameMargins -> {{32, Inherited}, {3, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleInput", "Printout"], 
          CellMargins -> {{66, 0}, {0, -7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {14, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleOutput", "Printout"], 
          CellMargins -> {{66, 0}, {6, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExampleMessage"], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleMessage", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       StyleData["SolvedExampleEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 2, 
       FontColor -> 
       RGBColor[
        0.050002574846150734`, 0.050002574846150734`, 0.050002574846150734`], 
       Background -> Hue[0.085, 0.07, 0.95]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Theorem"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 25}}, 
          CellChangeTimes -> {3.968922600990673*^9}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "Subsection", FontFamily -> "Source Sans Pro", 
          FontSize -> 16.5, FontWeight -> "SemiBold", FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Theorem", "Printout"], CellMargins -> {{66, 0}, {0, 16}},
           CellChangeTimes -> {{3.965900023638689*^9, 
           3.965900023829352*^9}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TheoremStatement", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["TheoremStatement", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, 
          CellFrameLabelMargins -> {{Inherited, -26}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["ProofTheoremDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "ProofTheoremDisplayFormulaNumbered", 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Proof"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 20}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Proof", "Printout"], CellMargins -> {{66, 0}, {0, 0}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ProofContent", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofContent", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       StyleData["ProofTheoremEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, FontSize -> 2, FontColor -> 
       RGBColor[
        0.00010000076130382223`, 0.007800042619928998, 0.13000297516585294`], 
       Background -> Hue[0.57, 0.098, 0.996]], 
      Cell[
       StyleData["Banner", StyleDefinitions -> StyleData["Text"]], Editable -> 
       False, WindowToolbars -> {}, PageWidth :> WindowWidth, 
       Alignment -> {{Left, Right}, {Center, Center}}, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellGroupingRules -> {"SectionGrouping", 0}, CellContext -> CellGroup, 
       CellFrameMargins -> {{0, 20}, {5, 0}}, CellFrameColor -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 20, FontWeight -> "SemiBold", FontColor -> GrayLevel[1], 
       Background -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972]], 
      Cell[
       StyleData[
       "BannerCitationOpenerLabel", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellGroupingRules -> {"SectionGrouping", 70}, CellContext -> CellGroup,
        CellFrameMargins -> {{28, 0}, {4, 5}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData["BannerCitation", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, -1}}, 
       CellElementSpacings -> {"CellMinHeight" -> 2, "ClosedCellHeight" -> 1},
        Copyable -> True, CellContext -> CellGroup, 
       CellFrameMargins -> {{28, 0}, {8, 0}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Bold", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData[
       "BannerPreReleaseLabel", StyleDefinitions -> 
        StyleData["BannerCitationOpenerLabel"]], 
       CellFrameMargins -> {{0, 30}, {2, 0}}, 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["BannerHeading"], MenuSortingValue -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.9999903558940054, 0.5650486394018294, 0.14501301402226988`]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell[
      "Inline and special formatting", "Section", 
       CellChangeTimes -> {{3.646681732592888*^9, 3.646681749414035*^9}}], 
      Cell[
       StyleData["DateObject"], ContextMenu -> 
       FEPrivate`FrontEndResource["ContextMenus", "DateObject"], 
       TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
           
           StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontSize -> 
            13, FontWeight -> "Plain", FontColor -> 
            RGBColor[
             0.12941176470588237`, 0.34509803921568627`, 
              0.43529411764705883`], ShowStringCharacters -> False], 
           Background -> Hue[0.11, 0, 0.97], FrameMargins -> {{5, 5}, {2, 2}},
            FrameStyle -> GrayLevel[0.65], RoundingRadius -> 2, 
           BaselinePosition -> Baseline, 
           BaseStyle -> {FontFamily -> "Courier"}]& ), 
         InterpretationFunction -> (#2& )}], 
      Cell[
       StyleData["DateObjectLabel"], FontWeight -> "Plain", FontColor -> 
       GrayLevel[0.2]], 
      Cell[
       StyleData["SummaryItemAnnotation"], FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["Caption"], FontFamily :> CurrentValue["PanelFontFamily"], 
       FontSize :> 0.8 Inherited, FontWeight -> "Plain", FontSlant -> "Plain",
        FontColor :> CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["GraphicsEmbeddedCaption"], LineIndent -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 14], 
      Cell[
       StyleData["SummaryPanel"], FontFamily :> 
       CurrentValue["PanelFontFamily"], FontSize :> 0.8 Inherited, FontWeight -> 
       "Plain", FontSlant -> "Plain", FontColor :> 
       CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["Graphics"], MenuSortingValue -> None], 
      Cell[
       StyleData["Graphics3D"], MenuSortingValue -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["StandardForm"], LineSpacing -> {1.25, 0, 2}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["StandardForm", "Printout"], LineSpacing -> {1.25, 0, 2}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["OutputForm"], LineSpacing -> {0.6, 1}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["OutputForm", "Printout"], LineSpacing -> {0.6, 1}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputForm"], FontFamily -> "Source Sans Code"], 
         Cell[
          StyleData["InputForm", "Printout"], FontFamily -> 
          "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FormattedFunction"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]]], 
         Cell[
          StyleData["FormattedFunction", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Link"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}], 
         Cell[
          StyleData["Link", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}]}, Open]], 
      Cell[
       StyleData[
       "CaptionFunctionLink", StyleDefinitions -> StyleData["Link"]], 
       FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> 
       GrayLevel[0]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DetailsLink"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           ButtonFunction :> (
             Function[$CellContext`t, 
              NotebookFind[$CellContext`t, "Notes", All, CellStyle]; 
              NotebookFind[$CellContext`t, "NotesSection", All, CellStyle, 
                AutoScroll -> Top]][
              Documentation`HelpLookup["ref/" <> #]]& ), ButtonSource -> 
            ButtonContents, Evaluator -> Automatic}], 
         Cell[
          StyleData["DetailsLink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["LinkAlt"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["LinkAlt", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Hyperlink"], MenuSortingValue -> None, FontColor -> 
          RGBColor[0.3, 0.35, 0.5]], 
         Cell[
          StyleData["Hyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FunctionLink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["FunctionLink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "FunctionHyperlink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["FunctionHyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ResourceFunctionlink", StyleDefinitions -> StyleData["Hyperlink"]],
           MenuSortingValue -> None, FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourceFunctionlink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Crosslink"], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["Crosslink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeLink"], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {
                Part[#, 1]}]]& ), ButtonNote -> ButtonData, Evaluator -> None,
             ImageSize -> Full, Method -> "Preemptive"}], 
         Cell[
          StyleData["CodeLink", "Printout"]]}, Open]], 
      Cell[
       StyleData["VocabularyLink"], FontColor -> GrayLevel[0], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["InlineMath"], SpanMaxSize -> 0, CellID -> 644119144], 
      Cell[
       StyleData["InlineCode"], AutoSpacing -> True, SpanMaxSize -> 0, 
       FontColor -> GrayLevel[0]], 
      Cell[
       StyleData["InlineCodeText"], SpanMaxSize -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 0.94 Inherited], 
      Cell[
       StyleData["InlineFormula"]], 
      Cell[
       StyleData["NoLabel"], 
       GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, ShowCellLabel -> 
       False], 
      Cell[
       StyleData["MenuName"], FontFamily -> "Verdana", FontWeight -> "Bold", 
       FontColor -> GrayLevel[0.286275]], 
      Cell[
       StyleData["DialogElementName"], 
       CellChangeTimes -> {3.642251807158844*^9, 3.8358753610849867`*^9, 
        3.835875471581566*^9}, FontFamily -> "Source Sans Pro SemiBold", 
       FontSize -> 0.95 Inherited, FontWeight -> "Regular"], 
      Cell[
       StyleData["KeyEvent"], CellFrame -> {{0.5, 0.5}, {0.5, 0.5}}, 
       CellFrameMargins -> {{2, 2}, {2, 2}}, CellFrameColor -> GrayLevel[0.7],
        FontFamily -> "Verdana", FontColor -> GrayLevel[0.4]], 
      Cell[
       StyleData["KeyEventDelimiter"], FontColor -> GrayLevel[0.5]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariable"], FontFamily -> "Times", FontSize -> 
          1.05 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariableLrg"], FontFamily -> "Times", FontSize -> 
          1.1 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariableLrg", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Key Styles", "Subsubsection"], 
         Cell[
          StyleData["Key0"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {"Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key1"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {2 -> GrayLevel[0.8352941176470589]}, 
                  "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key2"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key3"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #4, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589], 4 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Entity styles", "Subsubsection"], 
         Cell[
          StyleData["Entity"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontSize -> 0.85 Inherited, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    PaneBox[
                    StyleBox[#4, "EntityTypeLabel"], BaselinePosition -> 
                    Baseline, ContentPadding -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 1}], False -> 
                 PaneBox[#, 
                   BaseStyle -> {
                    FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                   BaselinePosition -> Baseline]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               Directive[
                 RGBColor[1., 0.504768, 0.], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 1}], False -> 
                PaneBox[#, 
                  BaseStyle -> {
                   FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                  BaselinePosition -> Baseline]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {
                 FontWeight -> "Plain", "OperatorSubstitution" -> False}}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFramelessHot"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 1}], False -> 
               PaneBox[#, BaseStyle -> {FontColor -> GrayLevel[0]}, 
                 BaselinePosition -> Baseline]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFramelessHot"], ShowStringCharacters -> False,
           TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], False -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   StyleBox[#, FontColor -> GrayLevel[0]]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityProperty"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               
               PaneBox[#, 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Helvetica", FontSize -> 0.85 Inherited, FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> Directive[
                 RGBColor[0.94227, 0.703639, 0.033387], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityPropertyClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneBox[
                GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], #}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityValue"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              GridBox[{{#, #2}}, GridBoxAlignment -> {"Rows" -> {{Baseline}}},
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
               GridBoxSpacings -> {"Columns" -> {{0}}}, 
               BaselinePosition -> {1, 1}], Background -> 
              RGBColor[{0.9921568627450981, 0.9529411764705882, 
                0.8509803921568627}], BaselinePosition -> Baseline, 
              FrameMargins -> {{1, 1}, {1, 1}}, ImageMargins -> 2, FrameStyle -> 
              RGBColor[{0.9333333333333333, 0.8470588235294118, 
                0.5529411764705883}], RoundingRadius -> 5]& )}]}, Open]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell["Template Boxes", "Section"], 
      Cell[
       StyleData["BannerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              Slot["label"], 
              Slot["previous"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["next"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["menu"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}], 
      Cell[
       StyleData["BannerHeadingTitleTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (PanelBox[
           TagBox[
            GridBox[{{
               StyleBox[
                Slot["heading"], "BannerHeading", StripOnInput -> False]}, {
               Slot["title"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
             DefaultBaseStyle -> "Column", 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{0.2}}}], "Column"], 
           Appearance -> None, ContentPadding -> False, BaseStyle -> "Banner",
            FrameMargins -> {{18, 20}, {6, 6}}, 
           ImageSize -> {Full, Automatic}]& )}], 
      Cell[
       StyleData["BannerButtonTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           
           PanelBox[#, ContentPadding -> False, 
            FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {
               Background -> 
                RGBColor[
                 0.08808648687787803, 0.3397116701677621, 
                  0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
           ButtonFunction -> #2, Appearance -> None, 
           FrameMargins -> {{0, 0}, {-1, -1}}, Enabled -> True, Evaluator -> 
           Automatic, Method -> "Preemptive"]& )}], 
      Cell[
       StyleData["BannerLeftArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{25, 180}, {-25, 0}, {25, -180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["BannerRightArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["PrettyTooltipTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[#, 
           FrameBox[
            
            StyleBox[#2, FontFamily -> "Source Sans Pro", FontColor -> 
             RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> 
             "Plain", FontTracking -> "Plain", StripOnInput -> False], 
            Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> 
            RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, 
            StripOnInput -> False], TooltipDelay -> 0.1, 
           TooltipStyle -> {Background -> None, CellFrame -> 0}]& )}], 
      Cell[
       StyleData["BannerMenuTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ActionMenuBox[
           TagBox[
            PanelBox[
             GraphicsBox[{
               CapForm["Round"], 
               GrayLevel[1], 
               AbsoluteThickness[3.2], 
               LineBox[{{0, 0}, {2, 0}}], 
               LineBox[{{0, 1}, {2, 1}}], 
               LineBox[{{0, 2}, {2, 2}}]}, ImageSize -> {27, Automatic}, 
              AspectRatio -> 0.62], ContentPadding -> False, 
             FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {
                Background -> 
                 RGBColor[
                  0.08808648687787803, 0.3397116701677621, 
                   0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
            MouseAppearanceTag["LinkHand"]], #, Appearance -> None]& )}], 
      Cell[
       StyleData["BannerCitationOpenerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           TagBox[
            GridBox[{{
               Slot["label"], 
               PaneSelectorBox[{True -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-180, 25}, {0, -25}, {180, 25}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 11, 
                    PlotRange -> {{-275, 400}, {-75, 100}}, AspectRatio -> 
                    1}], False -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 8, 
                    PlotRange -> {{-75, 100}, {-475, 200}}, AspectRatio -> 
                    1}]}, 
                Dynamic[
                 CurrentValue[
                  EvaluationNotebook[], {
                  TaggingRules, "eTextbook", "CitationOpener"}]]]}}, 
             GridBoxAlignment -> {"Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           ButtonFunction :> (CurrentValue[
              EvaluationNotebook[], {
              TaggingRules, "eTextbook", "CitationOpener"}] = Not[
              TrueQ[
               CurrentValue[
                EvaluationNotebook[], {
                TaggingRules, "eTextbook", "CitationOpener"}]]]), Appearance -> 
           None, Evaluator -> Automatic, Method -> "Preemptive", BaseStyle -> 
           "BannerCitationOpenerLabel"]& )}], 
      Cell[
       StyleData["CitationClickToCopy2"], 
       TemplateBoxOptions -> {DisplayFunction -> (TagBox[
           DynamicModuleBox[{Typeset`boxobj$$, Typeset`cellobj$$}, 
            TagBox[
             TagBox[
              ButtonBox[
               
               TagBox[#, BoxForm`Undeploy, 
                DefaultBaseStyle -> {Deployed -> False}], ButtonFunction :> 
               FrontEndExecute[{
                  CopyToClipboard[
                   Cell[
                    TextData[#2], "Text", 
                    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, 
                    DefaultFormatType -> DefaultTextFormatType, 
                    TextClipboardType -> "PlainText", StripStyleOnPaste -> 
                    True, PageBreakWithin -> False, GroupPageBreakWithin -> 
                    False, LanguageCategory -> None, 
                    HyphenationOptions -> {"HyphenationCharacter" -> ""}]], 
                  NotebookDelete[Typeset`cellobj$$], 
                  FrontEnd`AttachCell[Typeset`boxobj$$, 
                   Cell[
                    BoxData[
                    TemplateBox[{"Copied"}, "ClickToCopyTooltip"]]], {
                   1, {Center, Bottom}}, {Center, Top}, 
                   "ClosingActions" -> {"ParentChanged", "MouseExit"}]}], 
               Evaluator -> None, 
               Appearance -> {
                "Default" -> None, "Hover" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, "Hover.9.png"],
                  "Pressed" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, 
                   "Pressed.9.png"]}, BaseStyle -> {}, DefaultBaseStyle -> {},
                BaselinePosition -> Baseline, FrameMargins -> 2, Method -> 
               "Preemptive"], 
              
              EventHandlerTag[{
               "MouseEntered" :> (Typeset`cellobj$$ = MathLink`CallFrontEnd[
                   FrontEnd`AttachCell[Typeset`boxobj$$, 
                    Cell[
                    BoxData[
                    TemplateBox[{"Copy"}, "ClickToCopyTooltip"]]], {
                    1, {Center, Bottom}}, {Center, Top}, 
                    "ClosingActions" -> {"ParentChanged"}]]), "MouseExited" :> 
                NotebookDelete[Typeset`cellobj$$], PassEventsDown -> True, 
                Method -> "Preemptive", PassEventsUp -> True}]], 
             MouseAppearanceTag["LinkHand"]], 
            Initialization :> (Typeset`boxobj$$ = EvaluationBox[]), 
            DynamicModuleValues :> {}, 
            UnsavedVariables :> {Typeset`boxobj$$, Typeset`cellobj$$}, 
            BaseStyle -> {Editable -> False}], Deploy, DefaultBaseStyle -> 
           "Deploy"]& ), 
         InterpretationFunction -> (RowBox[{"ClickToCopy", "[", 
            RowBox[{#, ",", #2}], "]"}]& ), Tooltip -> None}], 
      Cell[
       StyleData["BannerPreReleaseTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              PanelBox[
               StyleBox[
                Slot["author"], FontWeight -> "SemiBold"], BaseStyle -> 
               "BannerPreReleaseLabel", Appearance -> None, ContentPadding -> 
               False, FrameMargins -> {{18, 20}, {6, 6}}, 
               ImageSize -> {Full, Automatic}], 
              TemplateBox[{"Provide Feedback \[RightGuillemet]", {
                 URL[
                  Slot["url"]], None}, 
                Slot["url"], "BannerPreReleaseLabel", {"HyperlinkActive"}, {
                Appearance -> None}}, "HyperlinkTemplate"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}]}, Open]]}, Visible -> False, FrontEndVersion -> 
  "14.3 for Mac OS X ARM (64-bit) (July 1, 2025)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ETextbookTools`CreateNotebookCollection`Private`FileChangeProtection -> None,
ExpressionUUID->"94782211-237f-4606-9de9-af5957c0a42e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[645, 23, 222, 7, 108, "Section",ExpressionUUID->"09bdacdd-28e1-48ef-a856-6d3b579eaf6e",
 CounterAssignments->{{"Section", 21}},
 CellID->759192576],
Cell[870, 32, 101468, 1671, 139, "Text",ExpressionUUID->"a3ebfae3-cfc5-4276-b645-2a85bdd73509",
 CellID->235543903],
Cell[102341, 1705, 676, 11, 107, "Text",ExpressionUUID->"9da14f09-8148-42cb-b588-cdc4764d0322",
 CellID->974016300],
Cell[103020, 1718, 657, 10, 60, "Text",ExpressionUUID->"94148a9a-15f7-431a-b957-aab568e7c3d0",
 CellID->24113019],
Cell[103680, 1730, 703, 11, 83, "Text",ExpressionUUID->"b8a1c900-e635-4d8d-ac27-bb2f35b7561c",
 CellID->1540584697],
Cell[104386, 1743, 455, 8, 60, "Text",ExpressionUUID->"f519f98b-7506-46b9-944f-e2e4edfebdfd",
 CellID->396670600],
Cell[104844, 1753, 462, 8, 60, "Text",ExpressionUUID->"fd3e1ae1-c4d4-497e-9bb7-3371eeae156b",
 CellID->1053533912],
Cell[CellGroupData[{
Cell[105331, 1765, 555, 7, 56, "Subsection",ExpressionUUID->"a533c78f-ea08-476f-b715-7b3294ec79a6",
 CellID->1113034648],
Cell[105889, 1774, 857, 20, 36, "Text",ExpressionUUID->"2d1fb4e3-ff69-47b1-b5db-41bb45d527dd",
 CellID->43279919],
Cell[106749, 1796, 513, 15, 36, "Text",ExpressionUUID->"369fa432-b98d-4d43-b9f7-e2c3e740cfa0",
 CellID->1556125947],
Cell[107265, 1813, 289, 7, 59, "Text",ExpressionUUID->"75242ba8-f50e-4f02-a593-48f5b7194524",
 CellID->1752938063],
Cell[107557, 1822, 256, 7, 36, "Text",ExpressionUUID->"862f4fdb-0b48-4879-87fc-225a2c1410fc",
 CellID->301871648],
Cell[107816, 1831, 242, 5, 32, "DisplayFormula",ExpressionUUID->"ddc364ec-45d1-45ba-bd51-a2bf3dea9989",
 CellID->631054012],
Cell[108061, 1838, 347, 8, 59, "Text",ExpressionUUID->"ade4c7fe-a5e8-459b-817a-48db202414fd",
 CellID->1892045736],
Cell[108411, 1848, 192, 5, 32, "DisplayFormula",ExpressionUUID->"03312ede-cffd-43c8-9707-d84b97f72c92",
 CellID->1310632252],
Cell[108606, 1855, 281, 7, 36, "Text",ExpressionUUID->"86395236-411f-49f6-81c9-447527384e66",
 CellID->384719647],
Cell[CellGroupData[{
Cell[108912, 1866, 590, 16, 25, "Input",ExpressionUUID->"5f2801fd-e8c1-49c4-ad81-b29d89df7f6d",
 CellID->750571103],
Cell[109505, 1884, 5420, 130, 368, "Output",ExpressionUUID->"f134b76e-a059-4cdd-b9b2-495da4755aec",
 CellID->241799079]
}, {2}]],
Cell[114937, 2017, 564, 10, 59, "Text",ExpressionUUID->"d33d5d1f-4df6-43af-8947-a3edcc9f644d",
 CellID->1774239067],
Cell[115504, 2029, 332, 6, 36, "Text",ExpressionUUID->"84370e86-8f6d-4a07-b675-22b6e40b4e3e",
 CellID->1825560474],
Cell[115839, 2037, 467, 10, 50, "Item",ExpressionUUID->"a8afc861-2783-45a4-95c8-f4c84ebf136b",
 CellID->1096021829],
Cell[116309, 2049, 221, 5, 32, "DisplayFormula",ExpressionUUID->"bbdd1324-595d-4f89-bef2-32792a4aabc7",
 CellID->279670031],
Cell[116533, 2056, 720, 14, 50, "Item",ExpressionUUID->"61c1c508-dd4e-434a-8f85-290f41d96777",
 CellID->307707732],
Cell[117256, 2072, 211, 4, 32, "DisplayFormula",ExpressionUUID->"55e4c84a-937e-484f-b741-599e0e8fbb71",
 CellID->1823381588],
Cell[117470, 2078, 832, 15, 50, "Item",ExpressionUUID->"0fd7a234-415a-4186-973e-0a5c8da3560a",
 CellID->991772750],
Cell[118305, 2095, 211, 4, 32, "DisplayFormula",ExpressionUUID->"1b05843f-e247-46b3-a2fc-08d4afb3785e",
 CellID->511035147]
}, Open  ]],
Cell[CellGroupData[{
Cell[118553, 2104, 507, 7, 56, "Subsection",ExpressionUUID->"905b087b-1ed0-4850-9596-7899c338ac00",
 CellID->1343427306],
Cell[119063, 2113, 614, 12, 59, "Text",ExpressionUUID->"8827d83e-6cc5-410e-912a-1a09db781318",
 CellID->339667384],
Cell[119680, 2127, 276, 7, 36, "Text",ExpressionUUID->"a00b25c5-ae89-455e-b932-7012db5e35cf",
 CellID->778189162],
Cell[CellGroupData[{
Cell[119981, 2138, 1884, 46, 49, "Input",ExpressionUUID->"f8d92edb-adc7-c242-a0cd-fa00891cd12b",
 CellID->255403936],
Cell[121868, 2186, 1308, 33, 340, "Output",ExpressionUUID->"3f2e42be-70d4-4a47-a790-5b053ad23504",
 CellID->754109597]
}, {2}]],
Cell[123188, 2222, 621, 16, 83, "Text",ExpressionUUID->"54f36b7d-3946-494d-94ed-fa968016fa0c",
 CellID->1034427642],
Cell[123812, 2240, 325, 7, 59, "Text",ExpressionUUID->"2bfd7128-a607-4eda-9335-e4298913d482",
 CellID->1745256629],
Cell[CellGroupData[{
Cell[124162, 2251, 541, 12, 25, "Input",ExpressionUUID->"57ea0c47-c56f-420d-8598-9af83f32d7f5",
 CellID->1281644263],
Cell[124706, 2265, 38360, 817, 242, "Output",ExpressionUUID->"92e5a69e-8674-47bf-9cb2-78581ab0d8b9",
 CellID->1613379627]
}, {2}]],
Cell[163078, 3085, 306, 7, 59, "Text",ExpressionUUID->"4649a436-e32f-41ce-8198-1279c8ba0442",
 CellID->1006230458],
Cell[163387, 3094, 235, 4, 59, "Text",ExpressionUUID->"f79da039-d2c1-40d7-87c2-2cca274f85e5",
 CellID->281587481]
}, Open  ]],
Cell[CellGroupData[{
Cell[163659, 3103, 659, 9, 56, "Subsection",ExpressionUUID->"73eff885-7927-4a30-9e38-6b2fba127794",
 CellID->900967851],
Cell[164321, 3114, 1014, 16, 83, "Text",ExpressionUUID->"29eb2ef9-8d06-4d3a-8ced-e3b593eb3283",
 CellID->659476760],
Cell[165338, 3132, 185, 4, 32, "DisplayFormula",ExpressionUUID->"02940b86-a393-4f86-a9b9-87274ec3264c",
 CellID->1729829],
Cell[165526, 3138, 789, 21, 59, "Text",ExpressionUUID->"49bd9168-28a6-433f-9d94-953553fd6c74",
 CellID->734915482],
Cell[166318, 3161, 381, 12, 36, "Text",ExpressionUUID->"cb35a70a-9d4a-49d5-bb9e-640baf7e4d11",
 CellID->1546052077],
Cell[166702, 3175, 344, 4, 36, "Text",ExpressionUUID->"49d85335-0c31-45de-a875-d9fae2b601ac",
 CellID->2092613086],
Cell[167049, 3181, 285, 6, 32, "DisplayFormula",ExpressionUUID->"7555e446-d471-4b28-b7cd-ebcfea233a93",
 CellID->1336619465],
Cell[167337, 3189, 446, 13, 36, "Text",ExpressionUUID->"fe6dd71d-b321-46a5-a9be-9c3000574ce3",
 CellID->1657611102]
}, Open  ]],
Cell[CellGroupData[{
Cell[167820, 3207, 627, 8, 56, "Subsection",ExpressionUUID->"770f36fa-1332-4172-95c5-6e0db627e759",
 CellID->2058655839],
Cell[168450, 3217, 592, 20, 59, "Text",ExpressionUUID->"26aecf99-5fa6-4e32-897d-f94342971362",
 CellID->1719649256],
Cell[169045, 3239, 271, 7, 36, "Text",ExpressionUUID->"80ef619c-1e12-43c9-835f-c4c82306b5e6",
 CellID->1310124266],
Cell[169319, 3248, 216, 6, 32, "DisplayFormula",ExpressionUUID->"585a1466-fc09-47bd-86f5-0e2ba256a952",
 CellID->1461154545],
Cell[169538, 3256, 256, 7, 36, "Text",ExpressionUUID->"8ffc0a14-60a3-4b36-a432-627b817d113f",
 CellID->305649578],
Cell[169797, 3265, 301, 7, 59, "Text",ExpressionUUID->"7fe30430-4fa7-4a93-bdc3-fcc048a20ecf",
 CellID->271573822],
Cell[170101, 3274, 217, 6, 32, "DisplayFormula",ExpressionUUID->"50d4d0e2-134c-4a07-961a-5114d21394bb",
 CellID->1106734371],
Cell[170321, 3282, 429, 12, 36, "Text",ExpressionUUID->"efda4c1f-f8f0-4831-ab4d-3497e33c42aa",
 CellID->1854278985],
Cell[170753, 3296, 617, 17, 59, "Text",ExpressionUUID->"f1b74bcf-bd3f-4bb5-8d80-6e79ff508634",
 CellID->584215631],
Cell[171373, 3315, 319, 9, 32, "DisplayFormula",ExpressionUUID->"b4a7c7bd-6a75-45e3-bfd5-f75a412e238d",
 CellID->936611473],
Cell[171695, 3326, 337, 7, 59, "Text",ExpressionUUID->"e0b7a8ca-2c26-4c89-912b-2a20ed975f8e",
 CellID->1933603262],
Cell[CellGroupData[{
Cell[172057, 3337, 1875, 47, 47, "Input",ExpressionUUID->"238794de-ec2f-4a10-b147-15d992c37b08",
 CellID->652806471],
Cell[173935, 3386, 1057, 29, 309, "Output",ExpressionUUID->"5c8b7d21-4209-4bba-8bd2-6c382031a5ab",
 CellID->1827417562]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[175038, 3421, 475, 6, 56, "Subsection",ExpressionUUID->"5bc0e798-b839-4047-9c17-86746ae35954",
 CellID->437897419],
Cell[175516, 3429, 311, 5, 59, "Text",ExpressionUUID->"ddd654ac-2f70-4781-a836-bb2e5a2798b7",
 CellID->315462864],
Cell[175830, 3436, 576, 17, 34, "Item",ExpressionUUID->"fe8bb751-c22a-483d-b271-fd1bf52757d5",
 CellID->1994714452],
Cell[176409, 3455, 278, 8, 36, "Text",ExpressionUUID->"28ec8f03-c4f2-44e3-a8a3-c6c230726a3a",
 CellID->798581447],
Cell[176690, 3465, 318, 10, 32, "DisplayFormula",ExpressionUUID->"ad95ae3c-814e-40e5-ba20-b906275b60f7",
 CellID->1865318681],
Cell[177011, 3477, 251, 6, 36, "Text",ExpressionUUID->"38645f0a-b266-4131-a67f-bae1f4b9907e",
 CellID->409201164],
Cell[177265, 3485, 269, 8, 36, "Text",ExpressionUUID->"4e5dbcfd-66b8-4bfb-9e9b-bae1482f5d76",
 CellID->1201325654],
Cell[177537, 3495, 324, 10, 32, "DisplayFormula",ExpressionUUID->"f62d5516-8598-4342-9223-cd5ebeae6c6a",
 CellID->788182651],
Cell[177864, 3507, 239, 3, 36, "Text",ExpressionUUID->"0086cbf9-2752-481c-bdfc-f632b45ffb86",
 CellID->787702653],
Cell[178106, 3512, 218, 3, 36, "Text",ExpressionUUID->"d4780dc2-85f2-48dc-9deb-9c29f9cc6440",
 CellID->1829288863],
Cell[178327, 3517, 502, 6, 36, "Text",ExpressionUUID->"350037cf-c4a8-4b46-9302-b37864751d75",
 CellID->1482029989],
Cell[178832, 3525, 593, 17, 50, "Item",ExpressionUUID->"18fd84a8-9159-40e4-bfbb-f4c468fa7693",
 CellID->1962687217],
Cell[179428, 3544, 287, 7, 36, "Text",ExpressionUUID->"5d020649-107a-4604-9a07-3752da9735c9",
 CellID->1535238199],
Cell[179718, 3553, 318, 10, 32, "DisplayFormula",ExpressionUUID->"aad0690d-d1a2-4839-8b03-d43d2762497c",
 CellID->833173849],
Cell[180039, 3565, 601, 10, 59, "Text",ExpressionUUID->"776e1a5a-cbda-4a6f-81ea-6cefe9daad1c",
 CellID->2081680659],
Cell[CellGroupData[{
Cell[180665, 3579, 2041, 50, 49, "Input",ExpressionUUID->"ad25d2bd-7283-4adc-a79c-8a9bb1a68cff",
 CellID->659935530],
Cell[182709, 3631, 1171, 28, 262, "Output",ExpressionUUID->"3ee9a5e7-7310-4a42-aad6-6739e415d116",
 CellID->1661293384]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[183926, 3665, 507, 7, 56, "Subsection",ExpressionUUID->"827d748c-83d5-46d9-9c51-7d35a70f6f36",
 CellID->1874415746],
Cell[184436, 3674, 426, 9, 83, "Text",ExpressionUUID->"271a57f3-f15a-4e87-9c57-129c60944906",
 CellID->1867825179],
Cell[184865, 3685, 835, 15, 59, "Text",ExpressionUUID->"203ce630-387d-4f42-ac21-a5033798cdc5",
 CellID->621831607],
Cell[CellGroupData[{
Cell[185725, 3704, 2065, 50, 51, "Input",ExpressionUUID->"c9723418-6535-4542-8649-05e893fcde23",
 CellID->2064466806],
Cell[187793, 3756, 936, 21, 98, "Output",ExpressionUUID->"def0e06c-1cd3-4be2-bf84-c6f865b26004",
 CellID->233176256]
}, {2}]],
Cell[188741, 3780, 369, 10, 59, "Text",ExpressionUUID->"7c655822-136c-4384-a2ba-63e34fc3d6b4",
 CellID->1628415974],
Cell[189113, 3792, 413, 11, 60, "Text",ExpressionUUID->"0d0ecaf9-bda6-4f84-8e75-291d2802721c",
 CellID->1255677650],
Cell[189529, 3805, 304, 8, 33, "DisplayFormula",ExpressionUUID->"360fac8a-1722-4b8f-a321-6cfbf83ac2b3",
 CellID->979274513],
Cell[189836, 3815, 739, 23, 60, "Text",ExpressionUUID->"c5cedb9f-c2af-4587-9f2e-c9b833234ef6",
 CellID->1507123030]
}, Open  ]],
Cell[CellGroupData[{
Cell[190612, 3843, 554, 7, 56, "Subsection",ExpressionUUID->"c655b1ca-cbef-45ef-8b39-b6c39e6acac8",
 CellID->1773449507],
Cell[191169, 3852, 451, 15, 36, "Text",ExpressionUUID->"e052e2f1-201f-4676-a469-c19de8cfff9b",
 CellID->1440327436],
Cell[191623, 3869, 902, 28, 37, "Text",ExpressionUUID->"372d84c8-83fd-4d7f-a5b0-7963f0263ad5",
 CellID->1147547868],
Cell[CellGroupData[{
Cell[192550, 3901, 1849, 46, 51, "Input",ExpressionUUID->"30e9fd76-b615-45bf-92a2-737798dc0a6b",
 CellID->1017586775],
Cell[194402, 3949, 975, 25, 191, "Output",ExpressionUUID->"b34c98fb-6d6b-4abe-8dd4-3129d43992c5",
 CellID->2115872221]
}, {2}]],
Cell[195389, 3977, 292, 7, 36, "Text",ExpressionUUID->"90a6456b-3038-42b8-9876-113c9ffe73f1",
 CellID->1147536792],
Cell[195684, 3986, 308, 6, 59, "Text",ExpressionUUID->"31618afb-9ecb-4c23-a5aa-dad9ff7e1d67",
 CellID->100229437],
Cell[195995, 3994, 892, 25, 83, "Text",ExpressionUUID->"821297c5-a0c1-41e0-9258-bcb988a7b7fc",
 CellID->928968411],
Cell[196890, 4021, 314, 8, 37, "Text",ExpressionUUID->"00b662b9-f0de-4f29-aca9-54c18a714127",
 CellID->965969987],
Cell[197207, 4031, 347, 6, 59, "Text",ExpressionUUID->"0b54818c-9c17-4c25-8174-8ce662a34202",
 CellID->81200189],
Cell[197557, 4039, 331, 9, 36, "Text",ExpressionUUID->"f972d302-3629-4c15-8f9c-cff2596ebc7f",
 CellID->1079460678],
Cell[CellGroupData[{
Cell[197913, 4052, 110, 1, 69, "TechNoteSection",ExpressionUUID->"459565b6-1c33-43b4-8103-a2efb32dd7b0",
 CellID->1259673378],
Cell[198026, 4055, 372, 9, 52, "SummaryList",ExpressionUUID->"e8502e38-fa2d-42a6-bc99-9de6070a4369",
 CellID->852677743],
Cell[198401, 4066, 727, 22, 52, "SummaryList",ExpressionUUID->"ece5740e-f9d9-43a2-a596-6a784fd2274c",
 CellID->796450170],
Cell[199131, 4090, 561, 18, 52, "SummaryList",ExpressionUUID->"f9c1ae9a-0380-46df-88a1-efe2b71ff640",
 CellID->672435439],
Cell[199695, 4110, 583, 17, 29, "SummaryList",ExpressionUUID->"e3dbae61-6ac3-4f46-a7ae-9c76f21d7989",
 CellID->1563472759],
Cell[200281, 4129, 599, 17, 52, "SummaryList",ExpressionUUID->"ea8af9ec-fc50-41bf-8e67-a3f8c538fda9",
 CellID->676755821],
Cell[200883, 4148, 746, 23, 52, "SummaryList",ExpressionUUID->"d7867675-bbef-49d3-8738-de4302628dca",
 CellID->1161689035],
Cell[201632, 4173, 458, 15, 29, "SummaryList",ExpressionUUID->"64fed720-97e1-40ad-a7af-5506b421d0ce",
 CellID->1733776368]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[202129, 4193, 293, 6, 135, "SmallText",ExpressionUUID->"3b396b1b-03a1-4e87-ae9b-712f1c9fdbca",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature JQGKpqDzSiiQWiejgAY#WBHa *)
