(* 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[    368783,       7388]
NotebookOptionsPosition[    187627,       3679]
NotebookOutlinePosition[    351062,       7072]
CellTagsIndexPosition[    351019,       7069]
WindowTitle->10. Real Number Representations | Introduction to Number Theory
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Real Number Representations"
}], "Section",
 CounterAssignments->{{"Section", 9}},
 CellID->325364703,ExpressionUUID->"9c4cd6f3-a500-498d-bce9-71c560452069"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQk4Vdv7x8PhmGciihRFqUQphUohlCgVSqWQUilSQqUBFaIiElFRqTSQ
Zq5GtzluV/M83tJwGwn3v47VPT//Bldx9nvwfp/P07Nxspa91zvsvdd6V1v3
GY6egi1atPATJf84TpjTf9asCYHDZckXTtP9vL2me0waPN3fw8tjVi93IfLN
gwItWtwkn+cc/4NCoVAoFAqFQqFQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKBQK
hUKhUCgUCoVCoVAoFAqFQqFQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKBQKhUKh
UCgUCoVCoVAoFAqFQqFQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKBQKhUKhUCgU
CoVCoVAoFAqFQqFQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKFSTVllZ2cuXL+/d
u3fjxo1z586dPHnycA1lZ2dn1lBaWlpiDUVHR0f8f8XHx9f8wLZt22r+95q/
+ejRo6S5oqKiW7duPXv27PXr19BnAoVCoVAoVAOotLT05s2bZ86cOXjw4JYt
W0husGTJkjlz5vj4+Hh6ejo5OQ0dOnTgwIE9e/bs1q2blpaWioqKnJxcCz6T
mJgY6ZWmpmaHDh0MDQ3Nzc0HDRpEOj927FjyV8yePTsoKCgqKiolJWX37t3H
jh0rLi5+9OjRhw8foE8/CoVCoVBNXGVlZQ8ePDh9+vSePXs2bNhAwnFwcPCU
KVOcnZ2trKx69OjRvn17eXl5AQGBBkkJWCwhOTlpSqtWylpa6lz09bUNDfW4
mJsbDRzYm4ulpUnNL42Nu9T8sLa2Rs1fJS8vQ5uQlBRvkG63qE5m1NTUOnfu
bGZmZm9vP2HChFmzZpGsjORmJEM7cuTIlStXSNoGfT1RKBQKheJfvXv37vr1
6+SWf9u2bTExMXPmzHFzc7O0tCThVUlJ6edDM5vkEp07a5uaGtrbD3BxsfX0
dJo1a9zcuZMiImbGxMxNTFywdWtkVlbs4cNJp06lnz+feevWgYcP816+PFVR
UfTPP38wz7t3Z0tLT5JuXLmy59y5zLy8lP37EzIzozZsWEJ6S7odGjp1zpyJ
U6aMnjjR0cmJ5GJ9evTo3K5da5Lb/Oz5ERUV1dDQMDExGTZsmI+Pz6JFi1JS
UnJyci5evPj48ePKykro4YBCoVAoFG/14cMHcp++b98+cttOsg5nZ2dyO9+h
QwdJScm6RFJxcdG2bdVIILa0NBk9erC396igIM+oqNkpKYt3715VUJBaXLyL
5BUfPpwHSSpgIfnMzZv7z5zZeuBA4pYtK+LigpcsmU7SsPHjh5GsjORmJENT
UVEUFBT8z/MsJCSkqqravXt3W1uSy3mGhYVlZGScOnWKpCvQIwiFQqFQqJ/T
x48fS0pK9u/fv3btWpJ7jBo1ytjYuGXLlv8ZDcktv55eO3PzHra2Zv7+41eu
nJOevowkGyUl2X///Tt43G8CfP58+dGjvHPnMrOz45KSQkNDp5LUjiQtvXp1
bd1aRURE+D8fsHTs2NHS0hJzFRQKhULxm16+fHn69OmUlJS5c+fS3IPcYtcS
1Mh9urp6y759u48dOyQ42Gv16nlZWbEnT26+e/fQx4+c5xsXLmxv21ZNW1vj
06cL4BG8GfL8+fHi4l2HDiWlpYVFRMycPt11yJB++vraUlIS/5mrWFtbT548
ecWKFdnZ2Tdu3Pj8+TP08EShUChU01RFRQUJNDk5OZGRkR4eHmZmZrXM9KiZ
e4SETE5OXnz0aPKtWwfKyi7WHhOvX9/HZouQ3xAe7gseoJGavHhx4ty5zB07
VkZG+vv4uNjZmdeeq4iIiOjp6Tk6OgYGBqamphYWFr569Qp6FKNQKBSq8en1
69dnzpzZuHHjvHnzhg8f3rlzZzab/d3QQ6KSkVEnV1e7oCDPpKTQw4eTbtzI
/c/coxbmzp1Efq2kpPjTpwXggRj5T77KVayt+7Ztq/ajiSstW7bs16+fp6dn
VFRUbm7urVu3SK4LPdhRKBQKxUeqrKy8du3atm3bgoKCbG1t27Rp892AIiAg
oKmpZmlpMn26a3x8yNGjyQ8f5jV4jHv79oyqKucJjJ/fePCAi/waHz+ev3Rp
Z2Zm1OLF01xcbA0N9X70REVUVNTIyGjixImrVq0qKCjAZykoFArV3PTmzZuT
J0/GxcV5eXkZGxtLSHwnXkhIiHXvrufsbBMaOnXr1siLF3cwtqRl1arAFtUL
bfBRSVPi/v0jhw8nxcUF+/i4DBrUu00b1e+WlGnbtu3QoUPnz5+/ffv2mzdv
VlVVQZsLCoVCoRpSt2/f3r17d2ho6PDhw9u1a/dtLBASEtTV1Ro9enB4uO/+
/Qn37h0GDF4k+WnVShkflTR53r07e/585oYNS3x9xw4YYPzdWitSUlImJibe
3t4JCQmFhYXv3r2DNiYUCoVC/ZxKS0tzc3MXLlw4ePBgeXn5b129rKyUqanh
tGmuSUmhZ89uo8te+Afuo5Lnz4+DdwZhjPv3j+TkxC9ZMn3kSCsdHc1v56UI
CQnp6+tPnDgxKSmpqKgIp6OgUCgUH6q8vPz3339ftWrVmDFjdHR0vp0K0q5d
6+HDB4WGTt29e9Xt2wfBo0/tfPhwns4qWbx4GnhnECjevz9XWJiRmLhgypTR
JibdpKW/Lq8nKSnZr1+/gICArKyshw8fQlshCoVCNV/dvHkzIyNjxowZvXr1
+nZdjLp6S5KErFjhX1CQ+uZNIXh8+VlINkL+CpKZ1GcVD9KUqKoqvnEjNyNj
+YwZY3r37kqXjf//Ma/u6Oi4fPnygoICfMuDQqFQPFV5efnJkyfDw8NtbW2/
LQ8iJSXRr1+POXMmZmXFPnrU8CtiGOb58+NiYpxEKy0tDLwzhD//3LttW9TC
hVOCgjwjImauWhWYkxN///4R8I41W8rLL505s3X16nljxtjp6Gh+NUtKSEio
a9euXl5e6enpjx49grZdFAqFagr69OkTuelbtGjRwIEDv1ogIyQkqK+vPWnS
8KSk0KKiXVD7x/EOD48R5M80MuoEG/hI+tG5szZ9aBMWNiM3d21i4oLu3fXo
VbCw6EWSQPBzhZSWnty/P4EkjTY2ZgoKsl9l7O3bt3d3d09LS7t79y60TaNQ
KFRj0vv3748ePTp//nxzc3NRUdGarlVWVsrOzpzcp+fnb3j79gx4IOApV67s
oTe/p0+ng3Tg2rWcYcMsIiP9hYVZJP179uwY90efP1+mKZOPj4u6ekt3d4em
lxM2am7cyN28OWLaNFdy4b6aK6upqenm5pacnHzjxg1oW0ehUCh+1Nu3bw8c
ODBv3rw+ffqIiPy/F+Xkpo9ExpiYuRcubG9ugc/Kqg85Ay4utiBBrU8fg7/+
Ok7uvlksoZKS7K8+UFZ20dBQj4S869f3KSnJubkNraoqBj9jyLe8eHFi9+5V
vr5ju3fXExISqmlcampqrq6uCQkJJSUl0D4AhUKhIFVRUXHq1KnQ0NDevXuz
WKyarrJlSwUnJ6vVq+cVF+9qzpEuJye+BafaJ/vly1NMtltefklXV+vEiU3k
2NnZhlyL737s0KEk0r1btw4UFmaIi4vGxgaCnzGkdl6/LszOjps9e0LPnvok
1fz/RteS5CebN2/+66+/oH0DCoVCMaQHDx4kJyePGjXqq8ohamrKLi62CQnz
v70lb7Z8/nyZ1k9bsyaIyXbj4oInTRpOj9u0Ud2xY+V3P1ZZWdS2rVpy8mJy
nJq6lM0WwVmvjYi3b88cOJAYGOjRp4+BsPD/bgoEBAQMDAwCAwMLCgpwg2MU
CtX09PHjx4MHD86ePVtfX79mHiIjIzl8+KCkpNAbN3LBXTR/Qnfl695dj8lG
tbTUL13a+U91pRRBQcFaFlN7eY3k1psdNKj3lCmjwc8Y8gu8f3/uyJH1ZLAZ
GOjWXMIjKSlpb2+/du3aO3fuQHsRFAqFqpdKSkpiY2NtbGzExcW5Xo7EuB49
OoeETD51Kv3z58vg3pjPuXYth8YImiQwQElJNglM9PjZs2Pt27ep5cPr1y8a
PXowPT56NFlRUa6ysnnN+Wl6PHnyW2rqUldXOyUlua8W7/j4+Ozbt+/9+/fQ
rgWFQqHqpLKyskOHDnl7e2tqatZ0aCoqiuPHD9u6NfLFixPgXrdxYWpqSE7g
tGmuzDSXlBRKMkZ6fONG7qBBvWv5cEFB6uDBpvS4qqpYXl6GsdwJ4TUkvTxz
ZuuSJdPNzIxqTj4REREZMGAAud3AlcUoFIo/9ffff2dmZjo7O8vKytbwXcID
BhgvX+5XVNSsp6rWkw0bltD1R58+XWCguUWLfLZsWUGPz58n19Smlg//+efe
Pn0MuF/279/zwIFE8DOGNDivXxfu2LHSy2ukpqZazXuN7t27L1q06PLly9Ae
CIVCof55+vRpYmKijY1NzeruamrK3t6j9u2Lf/fuLLgvbQKQ0yglxakXt21b
FAPN+fqO3bNnNT0+fTq99pXI9+4d1tfX5n5pa2uGJdSaPCUl2dHRARYWvWo+
PNHS0po1a1ZBQQHuDIhCoRjW9evXly9fbmJiUrMck55eu8BAj99/34KPRBqc
SZOGkzNsZ2fOQFthYTNWr55Hj//8c6+j48BaPnzlyp4ePTpzv+zeXe/cuUzw
04UwQ2npyY0bw8kIkZAQ4/oBJSUld3f3vXv3fvjwAdpRoVCopqyzZ8/Omzev
U6dONSes9u7dddmyWdeu5YB7yCbM8eMbydlms0VevTrN67Z27oxxcLCgxw8f
5tVe3P706fSBA79MOPnw4byiohz5F/x0IQxDLvqePavd3R3IAOA6BwkJieHD
h2/cuPHly5fQrguFQjUd/fHHH0FBQVpaWlxvQ4Lj4MGmiYkLnjz5DdwfNgcq
K4vU1VuSM5+aupTXbT1+nC8qyib/kuO///5dXFy0luVRGzYsGTHCkh7XTGaQ
5klFRVFBQerMmW5aWuo13AV76NChW7ZswQU7KBTql3Xnzp2wsLAuXbpwfYuM
jKSzs822bVEkVIF7v+aGr+9YcglsbMwYaKt//57BwV70WFpa8tixtB99cvp0
16lTnelxv349Tp7cDH6iED7h0qWdoaFTDQx0uQ5EUlLSxcUlOzu7vLwc2r2h
UKjGoWfPnq1Zs6ZPnz7c0knkTnn06MF79qwuK7sI7uiaLadOpdOlTAzUmV+/
fpGCgmxp6Uly3Ldvd27W8RWVlUVt2qjSOq6ZmVG1zzxBmi23bx9csmR6p07t
ucmJvLy8p6dnfn5+ZWUltMNDoVD8qNevX6emplpZWXF36RIWZtnZmaenL2vy
O/A2CqqqikkCQK5LSspiXrdFkk8tLfUxY+zI8YoV/pKS4jU3BeaSm7uWDBLy
owcPjnbpooOVZ5DauXw5KzDQo+ZqYjU1NT8/v3PnzkH7PxQKxRf69OnTjh07
HB0dRUVFudNW+/XrkZi4gN4mI/zDrFnjyAWytu7LQFuZmVGkra1bIx89yiND
YvjwQV8tp/r7799JcHF2trlwYXvPnvrnz+NyG6ROkIF08uTmadNcW7ZU4CYn
Ojo6CxYsuHr1KrRHRKFQMLp06ZKPj0/NjfCMjDpFRc1++DAP3Gsh36WwMIM+
v2LmiQRJS7S01EeOtKJlKLy9R3Ff3t25c5CMFvJNISFBFRVFXP+L/AIVFUUH
D66bMMFBRkaS64V69+69YcOGt2/fQjtIFArFhF6/fr1mzRpDQ0OuE+jQQXPh
wim4mJf/ITeY9Ln3+vWLmGnx3buzM2aM4c4satVKecwYOxsbMxERYfodK6s+
uBcwUk8+fbqQlRXr5GQlJibKnQ07adKkU6dOQftLFArFE1VVVeXn57u6uoqJ
if1r9eLjxw87dSod3CMhdcfffzy5dpaWJkw2umPHSmlpzp2slJQEGTPt2rVu
UV3r/s8/94KfEKQp8fLlqdWr5xka6nHvmHR1daOjo589ewbtQVEoVMPo0aNH
S5YsadeuXY2no12TkkJx5mpj5MyZreQKslhCz58fZ7Ldq1dzOnfWdnMb+k/1
DNjgYC9BQcFFi3zATwjSJDl3LtPHx0VOTvrf+fbCI0aM2LdvHxauR6EaqcrL
y3ft2mVjY8NdR6OsLD9zpltJSTa4w0HqA119w0DxtK949+4syUlWrPCnJdR2
7owRERHu16/HlSt7wM8J0iT58OH85s0RFha9uG8P1dXVQ0JCbt68Ce1fUShU
XXX37t2AgABlZWVqxSQnsbEx27FjZXn5JXAng9SfyZNHksvq5GQF0vqWLSv6
9++ZnLy4rOwiGVT0oY29/YC4uGCSpTCzczHS3Lh5c39IyGQ1tS8+jaQoAwcO
3LlzJz42QaH4WXl5eY6OjtwHI1pa6osW+eA6mibGrl2xLapr6kIlmX///fuy
ZbOMjbuMHTtEWJhFB5ucnPTy5X64/SLCOyoqivbtix8+fBB31LVp0yYiIuLF
ixfQrheFQv1P79+/X7duHbcIPLmJsLLqk5MTX1lZBO5GkAbn7dszbLYIudB5
eSmwPbl0aWd6+rLExAX79ye8e3cW/MwgzYTHj/ODg7245U3ExMQmTpx46dIl
aE+MQjV33blzJyAggFtjREpKYupUZ5wx0uSxtDQhl9vPbzx4TxAEik+fLmza
FEHr5FCZm5tv37798+fP0I4ZhWp2ysvLc3Bw4L6m0dbWWLlyzuvXheCOAmGA
2NhActE7dmwL3hMEAef06XQXF9uaL3TCw8OfP38O7aRRqKYv+pqmc+fO+Jqm
OXPz5n46AO7ePQTeGQThBx4/zp8/31tFRZGahqioqLu7+8WLF6F9NgrVNFVa
WhoaGqqoqFjzNc3VqzngrgABoWPHtmQYxMeHgPcEQfiHsrKLmzZF9Oypz32h
Y2FhceTIEWj/jUI1HT18+HDWrFmSkl+2hNDQaBUTM/fNG3xN06zx8+MUdLW1
NQPvCYLwIYWFGaNGWXPfbvfo0SMrK6uyshLanaNQjVjXr1+fNGmSiIgINSs9
vXZpaWFYZgQh5OWlVK84YH/4cB68MwjCn9y4kevhMYKuU6OV6jds2FBeXg7t
2lGoRqYLFy6MHDlSUFCQmlKvXl137YrFSSMIF5Ka0t1Uc3LiwTuDIPzM48f5
s2dPkJKS4E6CjYmJeffuHbSbR6EagfLz8y0tLbkvQy0tTfLzN4AbNcKHODlZ
kRHi7T0KvCcIwv+8fHlq8eJpSkpy1LUqKiouWrSotLQU2uWjUPyoqqqq3bt3
9+rVi9qLoKDgiBGW589nghsywrds2LCk+qZPFbwnCNJYeP/+XGxsIN00qnqx
gJSfn9+jR4+gIwAKxUfKyckxMDCgNiIiIuzu7nDtWg648SJ8zr17h+mYuXEj
F7wzCNKIKC+/lJq6VE+vHbcSrK+v719//QUdClAoYOXl5ZmYmFC7YLNFZswY
g9vTIHWnffs2ZOQkJi4A7wmCNDoqK4t27Yrt2rUD9cCSkpJBQUGvXr2CDgso
FIAKCwsHDhxIbYHFEvLwGHH//hFwI0UaF2TYkPEzevRg8J4gSCOFZCbbtkXR
gj9EsrKyS5Ysefv2LXSIQKEY0uXLl4cMGcKdNzJmjB0+e0d+jfT0ZWQUqago
gvcEQRo1nz9fTk1dqqmpRj2zkpLSypUrP3z4AB0uUCge6urVq6NGjaIrfAUE
BBwcLIqLd4EbI9J4efQoj7rQP//cC94ZBGnslJVdjIsLbtVKmZqVurp6QkJC
WVkZdOhAoRpYd+/enTBhAov1ZZcoK6s+Z89uAzdApAnQoYMmFplHkAbkw4fz
K1b4Kyp+WTWspaWVlpaGNWBRTUOvXr3y8/Pj1mI1NTU8diwN3OiQJsPkySPJ
uHJysgLvCYI0Jd6+PRMaOlVWVurfMtp6+/fvh44nKNSv6/Pnz3Fxcdxd8wwM
dA8cSAQ3NKSJsW1bVHUBKLmqqmLwziBIE6O09OTcuZPExNjUjVtbW1+5cgU6
tqBQPy2SUZO8mg5jVVWl5OTFWBke4QXPnh0TEBAgw6yoCOcmIQhPuHfvsLOz
DTU0Fovl4+ODS4ZRjUUlJSUkl/63FI9oUJDn27dnwG0KacJ06tSeDLZVqwLB
e4IgTZjTp9N79erKLU0fFxf3+fNn6ICDQv1QNaeOkIya5NUkuwa3I6TJM3Wq
MxlyDg4W4D1BGjvkBurBg6NFRbsKClJ3716VmRmVnLw4MXEBITo6ICJiZk1i
YubSH23YsIR8Mjs77vjxjX/8sfvRo7ymul11VVVxevoyVVUlnGSC4md9NXXE
2LgLyajBzQdpJuzcGUNGnYKCLL4fRP6TFy9OXL6cRfKHhIT5ISGTx42zHziw
t66ulrKyvLAwq0XDSVSUraKi2KlT+8GDTSdOdFy4cMr69YsOHEgkScubN4Xg
56E+kMwtKMgTJ5mg+FMHDx7EqSMIICTK0KI3Fy5sB+8Mwj+Ul18qKcnOyoqN
iJg5fvwwcq8kJyf9s6kFS1hISk6CIKMoqaqlVBMpeQn6I0EhwZ/9tSQFMjc3
8vR0ioz037cv/ubN/RUVjcxtfjXJZMqUKTjJBAWrJ0+ejB49mpoYyZlx6ggC
Bd2zIypqNnhPEECI/zl2LG3lyjljxtjp6bVjsYRqyQokZMQ0O6n1tNa3mWg2
boH9tFiXwI0eYdm+q0/MS72ydMejlQc+JOb/s6Hu7H+XkPkgOrlocWzB3KV7
ps9NnTR1pfPY4CFW4/p0t9DT0G3FFheppT9stoiBge6kScPXrp3/++9bPn5s
HG9/ak4yadmyZUZGBnRcQjVHVVVVJSYmysrK0qFobz8Ap44ggMyYMYaMwyFD
+oH3BGGSysqiy5ezYmMDSRKiq6tFH5d956FEa3nDgXr2UwZMXz1mxUG/1D+X
5r5N+Kl8o6HIfhWXUryEZD7ekaPsPPt1Ne8gqyT13T4LC7O6des4caJjUlLo
9ev7wE91LVRVFaelhXFrrFlbW9++fRs6RqGaka5cudK3b186/NTUlLOyYsGN
Amnm7NoV24KzfZgUvjds8lRUFJ0/nxkdHUBuheTlZb6N5mKS7C6mOiN8LQM3
eiSeWwCVftSdvS/XxJ0O9k+aYO/dv2NPLRFR4W//qFatlJ2dbdaunc+32yg8
f37czW0ofZUjLi6+fPlyXJWD4rU+fvwYEhJCV9aQWxIfH5fGPlkLaRr89ddx
6rr/+GM3eGcQXvDoUV5SUqiDgwW3suj/HimwWfp9tZ1mWgZt9kz9c2leZQp4
mlEfDpevT7oYOns9J0XR7q7x7WSVli0VXF3ttmxZUVp6Evy6fMWRI+t1dDRp
P7t27XrmzBnoqIVqssrLy9PR0fl3sHX4/fct4OMfQbi0b9+GjMyEhPngPUEa
isrKotOn04ODvQwMdOkNOFciosJdzTuMW2AfnRfwsxM/Ghf73sSH5/iOnj1Y
11hLiPX/8hMhIUFTU8PwcF++Khj48eP5kJDJIiLC9NZ12rRpb968gQ5fqCal
58+fu7m5/ftQTnT5cr/Pny+Dj3wEqcm4cfZkfI4fPwy8J0g9qagoystL8fAY
oaQkVzMECwgKdOzR1m2+fWzB3EOfksCzBebJfZuw/IAfyU80dFt99fCkTRtV
P7/x/HOreOXKnr59u//7il8tKysLOo6hmog2b97MLTxibd339u2D4KMdQb4l
IWE+GaLa2hrgPUF+jaqq4hMnNk2b5qqiolgz2krIiJkNNwpImbjzSQx4VsA/
ZNxePn31mJ7W+l/NP2nXrvW8eR6XLu3khwuamLiA+67N3t7+8ePH0AEN1Yj1
/PnzESNGcN9gZmQsBx/kCPIjLl/OomP1r7+Og3cG+SlKSrLnzJlI7vRrxlZ5
FRkHH4voowGHy5rjI5G6c+B94tK9Myzd+pDkreYJ1NNrt2iRz6NHebAX98mT
30aN+rLbiIKCQmZmJnRkQzVK5eTkqKio0IE0evTgly9PgTsuBKmFysoiGRlJ
Mlz37l0D3hmkLnz4cD41damZmVHNSColL2HnYR51ZPbRimTwcN+4OPQpafGu
aQNGG4tKsGvOObG1Ndu9e1V5+SXAa02sktzY0i6NGTPm9evX0CEO1Wj07t07
T09POntEXl5m69ZIcN+FIHVh0KDeZNAGBLiD9wSpnXPnMr29R9EckootJjJo
TO+IfTMPl68HD+6NnQPvE+dv9e5jb8AS/l/VOFVVpTlzJt64kQt10Z89OzZs
mAXtTOvWrY8ePQod61CNQKdOnWrXrh0dNpaWJg8fAj/3Q5C6Exo6lYxbct8N
3hPku1RUFG3fHm1i0q3mgxEdQ03feLec1/HgobzpsfNJjGeEk1p7Ze7ZJjeb
trZmR46shxoDKSmLpaUlaU98fX0/fvwIHfRQfKqysrJ58+YJCXHyanFx0TVr
gqqqisGdGILUnUOHkujoxXVh/MabN4UrV85p21at5sxVBx+LdecXggfuJk9e
VUrMb3MHuvZmi/2vuH3Xrh1SU5eWlV1kfjDcuXOQ+8JOT0/v/Pnz0NEPxXf6
448/DAwM6CAxNu5y9WoOuBNDkJ+ltPQkfeeIm/HxDw8eHPXzG09vjak0O6n5
J01o2kVF+JO9L9d4LR+p3Fqeey1UVBSXLJnO/HTBysqiFSv82WxOjiQsLLx4
8WIs+oqiqqqqioqKEhUVbcHZ21EoNHQq3mMijRdtbQ0ykhMTF4D3BLl//8iU
KaNp7Sz6rN7IsvPyA37kth08OjdnDpevD9kyuWOPttzMREZGMiRkMvNVYYuL
d9HdM4l69ep148YN6HiIAtaLFy9sbW3pkOjYse3Zs9vA/RiC1AcXF854njjR
EbwnzZl79w57e4/iZiPCbJbNRLOU4iXg4RipSeyxQFNHQwHBLwVypaUlg4O9
GM5Mysouzpkzkc4ZkJaW3rZtG3RURIHp2LFjampfXu96ejp9+NA4tsZGkFqI
iZlLxnOXLjrgPWmekGxk8uSR3GxERFTYcfqg7Q+jweMv8iPSSsIGuvaumZkE
BXm+enWayWFTUJCqpqb8bzDyxImvzU2VlZVhYWEsFouOwG3bosBdGYI0CCdP
bm5RXZPh3buz4J1pVrx9e4bEMjExNndt7/AZg3Y8Wgkec5G6sPFqOMlMuPv9
KSrKRUcHMDkD9vnz47a2ZrT1bt26lZSUQMdJFEN68eKFpaUlvfTdu+tdv74P
3JshSEPx4cN5FovzHJjceYF3ppnw+fPluLhgbkWsL9nIY8xGGh8kM7Eca8LN
TNq3b5OVFcvYQKqqKo6ImCkszLlZlpSU3LJlC3S0RPFc58+f19TUpOPNx8fl
06cL4A4NQRoWkmmT4R0VNRu8J82B/fsT9PS+VDQSFBQY7G667V4keGxF6kPq
laU9rfW5M2BNTLqdPp3O2IgibXF3GfD19cX1OE1YGzZsoOtrJCTEcPMapKni
5TWSDPJRo6zBe9K0uXXrAPdhO+d5e7+O6y5gsZGmw4pD/toGGtw1U+PHD3v+
nKGdpF68OEFrMrfglEA0e/r0KXTwRDWwysrKvL29uY/jiop2gTs0BOER69cv
IuNcS0sdvCdNlbKyi0uXzuBOHdHQaxWe4wseQ5EGJ68yJSDZXUFVll5oBQVZ
YlzM1NKsqCiaN8+DlhtSU1M7deoUdBRFNZhIkmliYkIHlZ2dOcMTqhGEYS5e
3EFHO/P1FpoD+fkbOnb8UtpCXFpsWqzLkc/J4NET4R0HPiS6zrNjibDoRe/b
tztjd7VZWbG02p6IiMi6deugYymqAXThwoXWrVvTh28LF07BcvFIk6e8/BKt
Dwm4qUeT5NmzY25uQ+mtK1G/kT1xImvzIa0krFu/jvTSs1hCAQHuzCxtu3o1
hzthacaMGRUVFdBBFfXr2rFjh4SERPUcZvGdO2PAfRqCMIORUScy7Fes8Afv
SZMhMzNKUVGOhga19sorDvqBR0mEYfKqUgLTJskqSdFh0K5d6+PHNzIw9l6/
LrSx+TJzydLS8uXLl9ChFfXTqqqqWrhwIb2j0dBodenSTnCfhiCMMWnScDLy
nZ1twHvSBCgtPTl69OAvK2uEBJ3n2OBWNc2ZvS/XWI3r8+9KK0F///EfP/K8
3mZFRRFpiDbaoUOHa9euQcdY1E/o06dPLi4u3Hd/z54dA3drCMIk8fEhLaq3
SwDvSWNn//6EVq2+FNhU12655lQQeExE+IHFu6bJKkvTgaGn146ZfUlSU5fS
17Ly8vIFBQXQkRZVJ718+dLc3JwOlfHjh4FsRY0gsBQWZtCbuLdvz4B3ppHy
7t1ZT08n+qyV/Os4beCB9/h4BPkfu57FmjoacmeYLFw4paKiiNfD8uTJzUpK
nHeIbDY7IyMDOt6i/kO3b9/W1dWlPiQ0dCq4W0MQED58OC9UXYvyxIlN4J1p
jBQX7+IurmmpoRB9NKAuQSrraWzGreUpxUsSzy1YdXxe5OHZS/fOWJA55SuC
073I95MvLwKPqkj9mbfJU0pOgg4VU1PDhw/zeD04b97cT7f/JmEuPDwcOuqi
fqgzZ86oqKhUL5sSTksLA3drCAJIp07tiS2sWhUI3pNGx4YNS8TFRb9UrBpu
lP0qro7hiVti68u9s7CQsU0Xr2VOM9e6ten4pTLnoDG9h021IAc9rfXB4ynS
IGy7F9nJpD29vkpKcgcPruP1EH3x4kSfPga0RU9PT1yMw4c6cuSIpCRnHbes
rNTRo8ngbg1BYHFzG0rMYcIEB/CeNCLevj0zfvww6uqF2azpq8f8VGySV5Hh
ZiN2nv223Y+i38+rSmndgXO7ZDnWhBxPChtB7nDXnceir02HI5+TnefY0Dd9
goKCISGTef0e5+PH805OVnS82dvb41bCfKXt27eLiHBm/qipKRcXY41WBPkj
OjqAWETXrh3Ae9JY+PPPvdz3NaptlRLOLvipqHS0Ipnu3aZjqLnxanjNH4Vl
+5Lvt+moeuB9Yu7bBLmW0uYjjMDDKNLghOf4SitIfnnCZmb05MlvPB2xVVXF
vr5jaXP9+vV78+YNdChGcZSQkCAkxNkIVUdH886dg+CeDUH4gfz8DZybfWEW
TvOuC7m5a2VkvkQTkjDU/X0Nl6ynseT/djJp/9VU2LyqlI492rJEWPTByITQ
YcJs1qbrEeABFOEFnPc4vb+8x2ndWuXChe28HrpLl86gz2e6d++OO+OAa+nS
pfTqGxrq4ZpfBOFSWnqSmsbFizvAO8PnREb60ynBAoICHuEjSBbxC8Fo3YWF
Supyu/5a9dX3Q7ZMJr/Za/nI/OqVGuJSoi5zbcFDJ8I7DpevH+LVj1qfhIRY
ZmYUrwdwYuKCf2/Mde7evQsdlpuv5s2bR697//4937wpBPdsCMJXqKlxCmts
3BgO3hO+5dOnC+7uDtSNiEmyl+ye/suRKDovIL4w5KtvHvy4TrmNgn5f7bxK
Tp5j791fUU0u920CeNxEeM301WOEWIItmNrWZPv2aBER4RacGqEat27dgg7O
zVGzZ8+mnsTOzpyBMnoI0uiwtu5LDGT27AngPeFP/vrreN++3akbUdFUTC5a
XJ8YdLQi+dtvui92ZAkLpV5ZSo6TLoYKCgkGp3uBh0uEGSIPz5aS/7JM2MnJ
6v37czwdz4cOJdH1YmpqalevXoUO0c1IVVVV06ZNoxfa0XEgvi7nc65dy1m3
biF4N5ohAQHuxEZIZgLeEz7kzp2DOjqa1I3o99X+9p1L/dnxeKWYJNt1nl1+
9aySLqY6hF97MYQ0UjZdj+AuA+/du+vLl6d4Oqp/+y1VUlKck2OrqFy5cgU6
VjcLkYTE29ubXuKRI60+f74M7tyaA6WlJ4uKdh05sv7w4SQCScjpQUFB6s2b
+z99ulDL/3337qyWlnpl5a+vjCNXmdgyAauS/hTp6cvoYjTwnvAbly9nqaoq
UTdi4dLrcFkSL+LR4Al9W7VTppvjBKd7CQoJJl0MBY+SCMNkv4rrat6BDrbO
nbV5XVTtxIlN0tKS1ZVSlC5fvgwdsZu4aj4hGTPGjoFCvsg/1QvhTUy60dM+
bJgF9+5y4MDeDg4WLJaQgICAsXGX2NjA8vJL3/0N/fv3JAn8z7Z74cJ2Hx+X
bt06SkiImZsbWVn1IbYmLy/To0fnoCDPq1dzwM8Mn0PSSHqlnj8/Dt4Z/oEM
RVnZL1u7jvC15NGDi8RzCwQEBZYf4GwffOB9opK6nL13f/D4iIBw8OM6U4cv
Veg1NFqVlGTzdIQXFmbQEU7SEnxawlPNmjWLXtZx4+wxIWGS168LJSXFxcTY
Hz6cp3ffJDnhjn8ZGUk5OemAAHcjo07fXY4dGek/caJj3Zt7+rTAycmqXbvW
pKFevbreu3eYfv/vv3/38hpJbzd0dbVCQibzeuZYo4akiMLCLHK6sIogl6ys
WFFRNp156BnhxKMYRN/UDBhtTL90CxkqrSC558Vq8OCIQHG0ItnO88tiHAUF
WeI2eTrOz53LpGvbVVVVr1+/Dh26m6aCgoLoBR01yhoTEuZxdBzYu3dXcnD7
9kFyFWrWT46Kmm1i0o0c7N27RkdH88WLE1/9X3JfQPL22l/xcLlyZY+1dd/7
94/MnOnWtq0aSYe++gBJV4SEBI8f39iypYK7u0N93go1efT1tcnFiomZC94T
fiAtLYyu+RViCc7ZMJF3ASg43UtMkr3zSQw5zri1XERU2DfeDTwsIuCQ7JS7
Rrig4KcfHf8Up0+n05c46urquBKnwRUaGsqd1IpzSEAIDvYaMqTfP9X1t8mF
KC09yf0RyVL69u1Oj5cv95sxY8y3/71Tp/Y7d8b8ZytPnxbo6mqRhIQkMCSN
+e6+RS9fnpKUFF+zJqioaBe5F1i4cAr4yeFbXF3tyMX6qYdUTZWNG8NpQsIS
YYVl+/Iu7ux7E6/QStYjfAT9sqe1fgcjze+uytn9HJ+cNDt8YlxoiTNxcVFe
pyXHjqXRlTiampoPHjyADuNNR/Hx8TQhsbU1w1U2UJB77XHj7OmxsDCr5o8q
K4u4OQk57tGj87f/PTR0qoODxX+24uU1km4bRyeQ/+jRiofHCHv7AeQgJyee
dObUqXTw88OfkBSRGE7PnvrgPYGlZkISkTuTp0FnpJ+1alulQ58482ZDtkwm
ASjudPB3PznY3RQ8RCLMM2PNGJqWMPC05MiR9TQt6dix419//QUdzJuCtmzZ
QivUDRhgXMeH/wgv2LQpwtt7FD1WVpav+aOXL0916aLD/dLU1PDb/371ag6b
LVLz6cq33L17SFVViaadcXHBNOv4LgcPrtPQaEWPJ08eScYG+PnhT3Jz11LX
15zfcDGZkKSVhLGEhRbvmkaO95aukWspbTWuz3c/GZwxWbmNAnh8/AUOl6/P
uLU89lgg+TNnr5/gtczJI3yE8xwbius8O88IpylRo+emTgrL9l1zKmjHo5W4
AvormExLsrPjaDk1Y2Pj9+/fQ4f0xq2jR4/SzfW6d9f7dl4BwiTp6cu4OYmM
jGTNH507lykvL0OPr1zZUzM/qUnXrh0SExfU0kR8fMjMmW70ePHiaUuWTP/R
J8lgEBQUpG/xnj07Rizu2rUc8FPEh9y7d5g+Y7x16wB4Z0DIyFjOWEJCMBrU
yaC/Lj02H2EkLi1GZ5V8xeGyJCV1uUaRkxytSF53YeGcDROdZloaDOik1FpB
8N86/FIK0ira6lo9dDuadetg2k3fslcni54dTbuRLzUNdJS1WknIftlCSJgt
rKat2svOgGQsC7Z5b7oWzutu8z9MpiWbN0fQtiwtLcvKyqADe2NVYWGhjAxn
7+/27dv89RcuZgSG+PaaOcnjx/ncH02c6Egu0/v350iqoK+v/aMKaWFhM7iv
eL7L0KH9T5/+8hZm9uwJtc8/0dBoxZ1M6+BgsXr1PPBTxIdUVRXTGkrkXgm8
M8yzZ89qFkvoS0Kyj+cJyYLMKSRepxQvIcez108g7XJnlXwF/amGbivwyPhd
jnxOji2Y6zbf3sCik5iUGEk/lNuqdrPtYz1rzJhVAdOzohae2xx9P3flg/3/
SdSdnJDTqVMzlzlHzxrg7aTX31BOVYH87dKK0r2HGHhHjqpn+dxGDTctIR61
qIi3O9pHRX2pfO7q6lpVVQUd3hufHjx4oKTEKWrUqpXyjRu54M4NycmJnz7d
lR63bq0SETGzvPzSpUs76SxKorS0MD29du7uDj9an3vz5n5igLXs3WxoqMd9
PeflNfL48Y219KdHj863b3/5VcuX+/n6jgU/RfwJOVHk6ixbNgu8JwxTWJhB
36STPGHpnl/fyKaOHC5LatVOmRYhiS8MYYuLKKnL0YJp39K5D2c9lPHgLuBh
sSb73sQHbvQwdTQSlxYXZgt3NDOw9hvrnREWUZJVl/Sj7iy6mOGeFNLPc7hG
N22S8CiqydtOMidJI4+K1/EzJGul/lNdvSWvI93cuZNoW3PnzoWO8I1Mr1+/
1tfXZyZ7ROoIyUnIkKbHbdqoEguiGT69DSfq1Kn9d5fJ1MTIqFMtb2R0dbW4
xy4utrUv4bey6kMyInq8bt3CCRMcwE8Rf+LmNpSW9AHvCZMQv6GoKEdHJjPr
cKfFugixBHc/X735xjJZJU7Fqumrx3z1mdy3CZuuhUcdma2u3ZJ8IDhjMnhM
zK+eH7Igc4rJ0O4kD5FRlusz1tYzbdGy67sbNg/5EYsvbR2zKsBgqJmohKik
rMRgd9OY3+Y2q/kno2cPpgOV128EyN0i9xYyISEBOs43GpWXlw8YMIBTQ0BI
iMRBcOeGUMi1mDbty3MSkpCcPLlZRESYZBEPH+bJy8uw2SJ1WRK1fLlfzcTj
K7S1NbjbKU6ePDI/f0Mtv8rU1JCbk0RG+nPzJeQrIiJmNrelNw8eHCVDlPre
SUuHMxBW8ipTdI212OIiqlpK4tJiLf6VlJwEF7aYCP0myVgMBujyw2Z8GbeW
jw6wkVGSFpMW7+1iPXVbRNTdfcykIt+y/Mae8QlBXQabCAkLqeuoei0fubd0
DfgpYmLwVKUMdO1Nx4axcRee7qBBvPSAAcakIRERkaNHj0JH+8Yh7nY28fEh
4M4N4bJzZ8xXc1xjYuayWEKPHuVt3x5NrteuXbH/+Uvu3DkoICBw7lzmd39q
Y2OWl5dCjwMC3JOTF9fyqwwMdLmvgdzdHf7zEU2zZe/eNZzgKCUB3hNmoJOa
qA9hvpw7SU72vlxD2Xo3kgR9StbTWPpNukYYnDUng/o6GAkKCWp27zA6cmbE
1QZ+O1PPNzt2ge6KGipscfZQ7/6bbywDP1285nBZUk9rfTpoBw7szdOioMRA
OnTQrH4NIVNUVAQd8PldMTEx9LrMmjUO3LkhNfl23U1VVbGVVZ9Jk4aT43Hj
7LW1NeqyWNvEpNuP5n7Mn+/t4TGCHi9ZMt3ff/yPfglpWlpa8tWr0/9U79Cn
qqpU+yrj5szNm/upTXFL9DdhiDMnmS39e/s59fhupbJmTuyxwC5mHQUEBbra
9Jm+Kwo8A/kR0fdyJ6wL1jLSJV21cOnd5JfqHHifqGusRYfud8tONiA3buQq
KXHebLZr1660tBQ46vOxfvvtNxaLsz3H0KH9sXo8v/HdtcCPHuWRsX3x4o43
bwo1NdX8/H6YRXBZt26hiorid6/vH3/sFhNj0w3jEhMXmJkZ/eiX3L59UERE
mE6m3bYtytXVDvz88C3kVJOzSszqwIFE8M7wmtmzJ1Cv3rFHW+LkwQMNX7Hu
wkLDgZ1JiDcaPmBewXrwrKOOTNu5Qru3vhBLyGai2Y7HK8FPI+/Y+SRGSf3L
JKjanxLXn9On02nRkkGDBlVUVEAHf37U/fv36UKbjh3bYikSPiQpKdTNbSg9
ZrGEan7f1NSQBL6CglRBQcFDh5Jq/z0kexEXF92/P+G7P+3SRSckZDI5OHly
s4CAwI+qaqxZE2RgoPtP9Z7F5ABXZtVO166crdKjowPAe8JTNm2KoP5cQVU2
80E0eIjhH0iwG+xuSrKRLtYmc/ISwdOMX8B7S7imgY6opOjEJY4/Ws3UBEg4
u4AtLlI930P4xIlNPLWX9esXUXvx8/ODjv98p/fv3xsaGtKFNrgHPX8SGjrV
xsbsn+qkglwp7vcrK4uMjbuQn/5TXaikZUuFmqVLvsuYMXZjxw757o+2bo1k
s0X++GN3efklRUW5785craoqNjTUCwryJMe+vmPj4oLBTw6f4+Jiy6mV8e97
sSZJYWEGfRwkzGbFF4aABxc+Ia8qxTfeTUJGvHXndlMzl4GnFvUh+l7u6MiZ
Mi3lVDSVVhzyBz+3PILuR0BGspKS3IMHR3lqNd7eo2hasmXLFugsgL80YQLn
iSu5EM2zslOjYNKk4ST3+Off+Qk1jeXcuUyS1eflpTx7dkxCQszc3Kj2V29H
jyaTj71/f+7bH5F8o0ePzj176n/8eH7qVGdxcdFvC7SuXTtfUFDw3r3DEREz
cXe5urB48TRyyfr0MQDvCY8gA09NTZl618C0SeBhhU/YdC1c37QDW0LUcZE3
CejgSUWDEHE1y3ziMAFBAatxfZvqwhzXeV9W7BoY6PJ0R5WysoumppynAeLi
4sXFxdCJAL8oLS2Nnn/c4JVvefQoT0FBls0Wefv2TGrqUnKxviqy6us7lmT1
f/6519PTifx03jyPWn5bZWWRpqbajh0rv/vThw/zHBwsSP4zdGh/umb/+vV9
3J+mpy8jt8MkJ1FVVfLyGonzjuoCuVjkTMrJSYP3hBeQPNbS0oT6kJF+1uAB
hU+YlTCOLc7WG2A0vzANPJFocHz3xrTS1VRoJRd1ZDb4qW5w8ipTett1pUPa
x8eFp+ZD8nm6cF5XV/fdu3fQ6QC8rly5QjI0ckKsrPo0523C+Jnk5MXc8lMD
Bhi3bq1SPWG7dXHx/8rZlZdfcnd3IHkLnbogICDwoxkjlPnzvUeNsq7lA7m5
a7l3vhISYm5uQwMC3E1MutHvSEqKr1kTBH5mGgvkStHz1iT3aAgP96V/XSeT
9kc+J4MHFHD2vFhtMsRARIztFD4NPHngHStu7e3n4SgoJDjS3/pw+Xrw096w
7H25pqWGAvWlWVn/XWahPhw/vpFuwTB27FjojABY79+/J7lZi+oC8k3SWzYl
/v7795cvTz16lEf+/dHTiefPjxcWZhw+nET4URESyu3bB0le8d3XN1xIAt+/
f08abvT1tY2Nu9DjOXMmcne6QerCp08X6D50vJ41xzwnT26m7lRKXmLr3Ujw
UALOuvMLldsottZvF/hbEnjawADeGWHSynKd++p8d6/DRs2aU0EsYSH6hPPu
3UM8tSNaWbF6vU8ydF4AKTqNREhI6NixNHDnhjBMv349fvT6hsvnz5cDAtzJ
nQLd2ubgwXUqKoomJt1oZRKk7rRtq0Zsbf36ReA9aUBKS0+2aaNK7yWX7Ob5
jjb8T2DaJGFR4V6jLVfc3AOeLTBG6Pn0dj07yavKkSAOfgkaFs8IJ5oqEKdX
Xn6Jd6ZUVVVMC/uIi4tfuXIFOjWA0fbt2+nZDg/3BXduCPOkpYXV/vqGy65d
sUOH9qclvx4/zu/UqT2JRNu3R4P/CY0Ia+u+9BETeE8aEEfHgdSHOE4fBB4+
YMmrShkTPIQlwnIK8wFPEpgn8k626fihJB9bkDkF/Fo07GXtYdWZDnK60pB3
PH9+nE4s6datW1lZGXSCwLQeP36soKBA5yf8aBtZpGnz4cN5TU018m9dPnz3
7qHRowf7+o69f//Is2fHdHQ0W1Tv4RIZ6b9796pHj/LA/xw+Z9o0V3LGHBws
wHvSUGzZsoL6au3uGs1wP9makD/fwrW3uIyE95Zw8PQAEMfF3kIsIa9lTuBX
pAHZ9SxWQVW2+oWC4O+/b+GpTeXnbxAU5LzkbW4bB1dVVVlZWdHXZCTEgDs3
BIqAAPe9e9fU/fOHDiUNHmxqbz+AzqQlIhY0YoTl06cF4H8LnxMXF9yieu9m
8J40CCQvpfOuhdmsDX8sAQ8cgBz8uM7YpqtCa+U5RxPAswJwJm1YyBYXdZ5r
C35dGpCle2d8mcXdqT1PlwYT/P3H/zuh4hh0psCcVq9eTc9wRsZycOeGAHLv
3mGSlvzs/yLxaM+e1YmJCzZvjmgOe7g0CCSda1FdHLJprJ4miSj1Icxs+8u3
7H+XYDBAr2U7tSa54PfXmJYVKSYtPmyqRV5VCvgFaigGjfmycXDtZRbqD8l5
unTRIQ1pamr+/fff0MkCE7p9+7aEhAT5k52dbcA9GwIOTgthhrt3D1GfRmcL
N2roPtREOoaazXnx74H3id3666l2aLPoQgZ4JsBXzMpdJSkv5TBtIPg1aij2
lq6RV5EhY57FEqp9SWP9KSraxWZz6tt7e3tD5ws8V1VV1aBBg+ji35cvT4E7
NwRpJlRVFYuLixLTy81dC96Z+vD8+XFlZXmOcxZhJRctBg8WUHB2tx/cVUW7
9eJLW8FzAD7E/0CcmLS4S2DTeYnDfYOjr6/N0zU4hGXLZtHlbE3+DU5KSgo9
q7t28bYIDIIgX0EfycbEzAXvSX2YNGk49SETQoeBhwko8qpSLFx6K7dVXXBm
E3j051t898aISoh6hI8Av14NBfcNTmSkP0+trKKiyNBQj/MoUkfn48eP0IkD
r/TkyRM5Oc60NCcnK3DPhiDNDToHY8qU0eA9+WXOnt1G1wW06aja9Ep31h3n
ubZSijLzT+Mckv9gytYIYbbwop0+4JesQdj11yopOc7MB2lpySdPfuOprV26
tFNYmNW01+CMHDmS/IHy8jK4SgJBmGfePA9igIMG9Qbvya9RVVXcq9eXTUBW
HPQDDxBQ+K0bLyLG9t0bAx7xGwVjVgWwJdhNZqto33g3agLjxtnz2uKCgjyr
Z7CwmuT2fHl5efRMpqWFgTs3BGmGbNwYTgywdWsV8J78GnTzRyKz4UbgoQGK
NaeChEWFJ6YsAI/1jYhB00crtJLLehoLfvnqz9GK5Pbd2vw72YO39c8/fbrQ
oQOnEpSZmVlVVRV0EtGQ+vz5c+fOnGJ0pqaGWCENQUA4cWITrejC6xIHvODV
q9MqKoqk/2xxkW33mum+NiSqKqrJD/YbCx7lGxfR93M7DzLWN+3QNFZpxR4L
JAlJdcHVjrxe2n/kyHp6I5Ceng6dRzSkIiMjaRmWixd3gDs3BGmePH6cT93L
n3/uBe/MzxIQ4P5lausiB/CgAEJeVYrBgE6dB/YkERY8yjc6wv/coazVqsnU
UrNw6UXNITl5Ma9Nz8mJU+BUTU3tzZs30KlEw+jp06fS0tLkj5o+3RXcsyFI
c0ZCQoxYYk5OPHhPfoonT36jC5lbaigc/LgOPCKA4B05WkFdOezKDvD43kiZ
fTBORIy9Mn8O+KWsP9sfRrPFOSVENDRa8fqx5717hyUlxUlb/v7+0NlEw2jy
5Mnkz1FSksO9XBEEFn19bWKMq1YFgvfkp/DxcaF3hQEpE8HDAQjrLy0SERPx
2b4cPLI3aoYt8FRUV9j7cg34Ba0/znNsqFGsXj2P1wYYHu7LeW3KZt+9exc6
oaivSkpKWCzOeqKEhPngng1Bmjn29gMa3RPLu3cP0aqSrTuoNI35AD8L+avb
G2gOmjaK4QgeeSfbeJSljqlBWyM98m8vZ+vvLvZxjprZ1bZvtyFmfdzs3JNC
wBOPWoi+n6trbmAz0Rz8mtafvaVrJGQ4jz1btlR49+4sT23w06cLbduqkbZc
XV2hc4r6atiwYeQP0dXV+vz5MrhzQ5Bmjp8fZ4MtOztz8J7UHXd3B3o/OH+r
N3ggAMFr2UhVndYrbu1lPojPyUsUl5FUaKOy9I/t/gfiVDtqjls77+tAfy9X
w4CzJ6agkKDVTFfwxKN25hemiUqKNY03OO6LHalphIf78toMMzKW0xny58+f
h04rfl3Hjx+nZ2zPntXgng1BELo7sJ5eO/Ce1JFr13JYLCHS53ZdW+dVNp0t
1epOxu3lbHH2jN3RUEHcZKwtOf+Oi73J8aKLGSo6Gh6poV99xnYOJ9dtZ9wZ
POWoCw6hk9W0VQ99SgK/uPVk399rZZU5czXl5KRfvy7kqSVWVRXTyq4DBw6E
zix+XaampnT9L7hnQxCEsH9/AjFJUVF2Y1mS7+Exgt7XLN07AzwEgNBnmGFf
N1vACO4S7ceZSyAhNjd/Hfly4dnNap20Qk6n1vyMa+xs8hmSvYDnG3Uh6u4+
jW7aHuFO4Be3/kyJGv2liuAKf14bI3ddcF5eHnRy8SviFkkrLMwA92wIghCu
X99HrfLBg6PgnflPHj/OFxNjk95qG2iAO38QovMCxGUklhRtA4zgXpsWk0sw
ZJ67io7Gsuu7yXf896/R6tk58nY29zMTUxaQz1jPGgOeb9SR6buixKXFdz6J
Ab/E9eTAh0QZRckW1dvalpVd5LVJWlv3JW2Zm5tD5xe/ItJt0nkbGzNwz4Yg
CKW8/JKQEGe/mIKCVPDO/CfBwV40gwpO9wJ3/syTV5nStksbh1Av2PA9K3eV
EIsVfT9Xz6KnoUN/+s0xqwL6jhvC/YxHaihnntLcCeDJRt0xHGZuPcEM/CrX
nwmhwxirkV5YmEHbys/Ph04xfk4FBQX4kARB+BBNTc78+ZQUnpdaqidv356R
l5chXVVuo9A8l9sEbfaUV1cCmdpak4DDa0WlJMjBksvbZFUVRyydSr9v7uEw
Lj6wZk4yfMkU8Eyj7gQdTxZmC2+8Gg5+oevJ7uer2WKchWn6+toMvJMdPJgz
JaNfv37QWcbPycLCgnTbyqoPuGdDEKQmFhacCpBBQZ7gPamdVasC6X3N1JXO
4G6feUgapqatOjJiOnjsJjmJjIoCPZ6WFSksKjIzm7MiOOpOjm5/IxLZybH7
+vnkSvFDb3+K3s5W/Uf1Ar/W9cd+ygBqLAcOJPLaME+fTqdtHTt2DDrRqKsu
XLhA+3zy5GZwz4YgSE08PZ2IbTo724D3pBYqK4toPQRJWfHctwngPp955myY
qKShEnknm9dxuS45iUJrFe6XtgHj5NSUl1zmTHGZfzpNu0/XFTf3jF0dQC4W
+Re8tz9FyOlUlggr9c+l4Je7nmy+sUxAkLMDjrV1XwbM08qqD2lr6NCh0LlG
XeXs7Fz9bKcHuGdDEOQrIiJmEvM0Nu4C3pNaOHw4id7XuAY2kQ1Kfoq8qpQ2
umqOi7zBozYhMH+dakdN7pfR93I7mHYnqUjU3X3kS/ekEEOH/k5hPuRiTVgX
DN7bn6XHiAGWbn3Ar3j9MXUwpPVD7tw5yGvzzM/f0KJ6Y+IrV65Apxv/rXv3
7tHCrbt3rwL3bAiCfMXWrZwNMVVUFMF7UgujRllznJ6gwJY7K8C9PfMsP+An
LiMRcTULPGSvrH5O0lpfu+Z3Fl3MkFKSM3O3p1/2cbOTbaVErte3dUv4H//9
a1girB2PV4Jf9HoSeXg2TeNDQiYzYKEGBrqcK+7hAZ1x/Lf8/f1JV9u3b1NZ
yds9lBEE+QW4r4M/fDgP3pnv8vz5cRERYdJDI8vO4K4eBCNL/QFew8HjNTcn
0erR6atv+mxfLigkODpyJjlecXNPKz0tcr2m7VwB3ttfQNtEf0zwEPCLXk/y
KlNUNBXJVVBXb1lRwfPgm5YWRtoSExN7/vw5dNJRm96+fSsrK9sCd7dBEH7l
yZPfaE7y5597wTvzXVaunEN72DyLyWfcWi4gKBB0IgU8WNeSkxDs53sICbOm
bI0gxzN2R5Pr5btnJXhvfwG3+EC5lrJNYG3XhEVfdmHYt4/nG3+Xl19q00aV
tLV48WLovKM2xcfHk05KSUm8fXsG3LMhCPJdREXZzEzR/zU6d+ZsXiyjKHm4
rNFX//4FnOfadujbFTxSc5mWFanV8ztF46Pv53azMxWVkvA/EEe+bN1Fm2Qv
4L39BSJvZ0sqSC/K8gG/9PUk80G0YHX1IUfHgQzYaWjo1Opaba0+f/4MnXr8
UN26dSOdnDx5JLhbQxDkR3TooMm3DzO5r5acZlqCO3nmOVqRTO7Z3eLmgkdq
LhPWBat1bvfdH0VczVLRbiMhL+2zY0Wv0Vb882znZzGfOKyXbTfwq19/etl2
JbYjLMx6+rSA16b68GEe3YsqKysLOvX4vs6cOUOdyblzmeCeDUGQH0GX8s2d
Owm8J98yfbordSMJZxeAe3jmiToyW0SMvezaLvAwzcVhoZekgkz0/dzv/jTw
tyRRKQkhFktYVGTB7xvBe/tr+O6NERIW2lu6BnwA1JPgjMnUfFavnseAtdrb
c+qiDB48GDr7+L48PDxI9wwN9cDdGoIgteDlNZKY6ujRg8F78hWVlUVqasqk
b6ptlcDdOwi2HuYGdqbgMbomOqYG5Ip4bwn/0QcmpiwQFBIUEBSouQNO44Jk
XAqtlWevnwA+AOrJvjfxwmxW9ZY0RgwYbE5OPF2AfPfuXegE5Gu9e/dOUpKz
E9Datfz4QBhBEC5Ll84gpmpi0g28J19x6tSXFzcj/azB3TvzHK1IllaQGrd2
HniMpkTd3WcxdSS9IpIKMrMPxv3ok05hPvLqLcE7XB8GeI8wstQHHwP1x2Qo
J4cUEhJk4PUNuYlQV2/JmY4+fz50DvK10tM5zkRERLi09CS4Z0MQpBbS05dV
T05TBu/JV8yc6UYjYHxhCLhvZ57VJ+YJCQuF/7kDPEBTIu9kT85YSnIkyrxj
62v58PzTaeAdrg9TM5cJs4WbQNHgwLRJ1IiYeT4we/aE6uof7aFzkK9la2tb
XWy2P7hbQxCkdk6e3EzLMH76dAG8M1yqqoo1NFqRjimpy+VVpYD7duZxCxmq
3fs7K1wQBiAJmJi0eFi2L/gwqCfZr+JYIpzXNwMH9mbAbC9e3EFToN9//x06
Dfmfnj9/LizMqXG0dWskuGdDEKR2Hj3Ko27k+vV94J3hcubMVtqrEb7NccUN
Qbt7W7u5E8Cjc7Oly2AT+ykDwIdB/TEe3IXYEYsl9Pz5cQYsV1eXUzFvxowZ
0JnI/8QtS/L+/Tlwz4YgSO1UVhbRQqmHDiWBd4bLwoVTaE6y4qAfuFdnnty3
CYJCgtN3RYGH5maLw0IvDT118JFQf2asGUNNKSNjOQOWSwuVqKioVFRUQCcj
X9S/f3/OtLSRVuBuDUGQutC+fRtis+vWLQTvCRdTU84mYsJs1oEPieBenXlW
HPIXZguvuLUXPDQ3W2btWyUgKNAEVgSnlYTRnGTCBAcGLLekJJs2l5+fD52M
cFRaWkpf3KSnLwN3awiC1IVBg3oTmw0K8gTvCeXt2zPCwpyX4Ab9dcFdOggT
Qodp9dAFj8vNmag7OWxx0fCcRj+lhKCkLkesqXVrFWbsV1tbgzTn5+cHnY9w
RFfcEH+CK24QpLHg7s7ZGmPs2CHgPaFkZ8fRW61JS4eD+3MQeg8xMJs4DDwu
N3NIWkiSQ/DBUH8GT+hLDeratRwG7NfPbzz/rL4ZOZKzgL1//57gbg1BkDqy
YMEUvjJbX9+xzXkVMEGptcKoFb7gQbmZ08fN1mxED/DBUH+CNntSg4qLC2bA
fvPzN9DmSkpKYBOS8vJyGRkZ0pPISH9wt4YgSB1JSgolZqutrQHeEwrdd09S
VvxoRTK4P2eenNecZQIzs2PAg3IzZ0SYj5q2Cvh4qD87n8QICAiQQTVsmAUD
9ltRUSQvz8kEli1bBpuTnDx5kmZHRUW7wN0agiB1ZP/+BGK2oqJs8J4QXr06
Tf1nT+umUEjzF4g7Hczx5/y0zU3zZGrmMgFBgaaxIbW6NqfCqpKSHDNWPHz4
INLcoEGDYHOSxYsX07+6qqoY3LMhCFJHiot30bsJZioY1M7hw0m0M27z7cE9
OQghWyZLKUiDR2Qk5HQqGYebbywDHxL1x8LZmJrV3buHGLDiNWuCSFvi4uKf
Pn0CzElwFTCCNEZevTpN/dXFizvAOxMe7ks7s3TvDHBPDoJH+AhNAx3wiIxE
3ckREhZaccgffEjUnynRztSstm+PZsCKr1zZQ5srKCiASkg+fvwoKipK+pCQ
gPvuIUgjQ1JSnBhvdnYceE8cHQdSb7bzSQy4Jwdh6OT+3Wz7gkdkhNA0Nggm
xB4LpGY1Z85EZgxZRUWRNLdw4UKonCQ/P//fqbbZ4G4NQZCfomPHti34YyPv
1q1VWlRvcwPuxqEwczQyGWsLHo4RgkY37UlhI8CHRP3Z/45TGZhY1oABxswY
8qhR1qQ5c3NzqJxk2TLO7qIyMpI4mQRBGh2WlibEfgMDPWC78fRpAb21MXUw
BHfjUHQx17Wc4QIejhGCbr/uI/2swYdEg9C2sxqTMXrlyjmc1XOSklBF5keM
GNGCqc0HEQRpWPikbNqBA4lf6mA3iVpVv4ZGJ/VhC7zAwzFCMHIcYD2+L/iQ
aBAGuvamxnX79kEGbJluOF69DrcIJCdp06YNP9xnIQjyC/BJ2bTVq+dRPxac
MRnch0Oh1FphRJgPeDhGCH3G2vYbZQw+JBoEkudT49q/P4EBW37//hyLJUSa
W79+PfMJydOnT+kfm5UVC+5dEQT5WfikbJqPjwv1JInnFoD7cChITjJ2dQB4
OEZWckq52hnbdAUfEg0CyfOpcZHMnxlz7t5djzTn6enJfE6yf/9+Jtc+IwjS
sPBJ2bTBg02pJ9n3Jh7ch0MhKSeJOQmfYDF1ZJPJSUieT42LZP7MmPPEiY6k
OSMjI+ZzksjIyOrZLOI4wRVBGiN8UjatfXvOK2B5FRlwBw6IuIw45iR8AslJ
DAZ0Ah8SDQLJ86mNW1v3ZcacIyP96TTXqqoqhnOSSZMmVadDncBdK4IgvwA/
lE0rL79EX0Dr99UGd+CAyKnIYk7CJ/TzcGwyz0kIJNsn9tW2rRozFp2bu5Z6
lXv37jGck5iYcBYSurkNBXetCIL8GuBl065f30c9mNW4PuDeGxCl1grOUTPB
wzGysnqOq8kQA/Ah0VB07sPZ3VJISPDz58sMWPTdu4eoRefm5jKck8jKypJ2
w8N9wf0qgiC/ho6OJrHidesWQnXg2LE06sGc59iAe29AVNoq47obPqG3i7WF
Sy/wIdFQmA03oib25MlvDFh0VVWxhIQYaS46OprJhOTFixf0z8zMjAL3qwiC
/Br9+vWorgU9BaoDO3aspJ5kStRocO8NiI5hW7u5E8DDMULoattn6OT+4EOi
obCfMoDhV7T6+pwnM1OmTGEyJ7lw4QL9MwsLM8D9KoIgv8bo0YOJFXt4jIDq
QFxcMPUkgRs9wL03IEaW+v08h4OHY4Sg06fL2OAh4EOioRi3wJ6a2KFDScwY
ta2tGWnOzs6OyZxkz54vOwA+fpwP7lcRBPk1Zs0aR6x4yJB+UB2gdduImsZO
rL/MQNfePUdagodjhNCqo8bUlc7gQ6Kh8I0bS01s48ZwZoza23sUaa5r165M
5iSrV68mjYqICFdWFoH7VQRBfo2oqNmwq+cmTx5JHWbSxVBw7w3IKH9r3X7d
wcMxQpCUlwrZ0nRKCofumEpNjBg7M0YdFjaDNCcnJ8dkTjJ7NseVaWmpgztV
BEF+mfR0zjaarVopQ3Vg+PBB1GHufBID7r0BmbFmjEp7NfBwjESUZJHRGF8Y
Aj4kGoqY3+ZSE5s9ewIzRr15cwRt8e3bt4zlJOPHjyctGht3AXeqCIL8MkeP
JhNDZrGEoB542tiYUfeV8zoe3HsDEp7jy2ILR9/PBQ/KzZyAw5zyGrv+WgU+
JBqK5KLF1MS8vUcxY9SHDiXRFm/evMlYTmJvb89kaTgEQXjB1as51Hs8fVoA
0oG+fbvTDhz5nAzuvQFJKwkjJ2HBmU3gQbmZ454UIiYlBj4eGpCU4iXUxCZN
Gs6MUZ89u422ePbsWcZyEjMzzt2Nq6sduFNFEOSXef26kHqPCxe2g3SAm5OA
u25YjlYki4iJeG1aDB6UmznWfmN1e7UHHw8NyLZ7kdTEXFxsmTHqmzf3/7vS
5xBjOYmeHmfvv2nTXMGdKoIg9UFMjE1sed++eJDWaSkDtrgIuOsGR7t7W7tA
d/Cg3MzpZtvXzrMf+GBoQLbdj6IZgpOTFTNG/fLlKdri1q1bGctJWrVqRVqc
P98b3KMiCFIftLU1iC2vX78IpHWak0jINKmn5b+G9YS+hsP6gQflZk7Ldmq+
cWPBB0MDkvP6yzZ8trZmjNk1bXHt2rWM5SQyMpxtfbCwPII0dszMOKWnQ0On
grSuocG5u2nmmwJT/BLHKWmogAfl5sySy9sEBATWXVgIPhgaEO7WwJaWJozZ
Nd1Ii8ny8piTIEjTYORIKybn5H9FmzaqpHXlNgrgrhucDX9w5iIuupABHpqb
LZNSFopJiR2tSAYfDA3I4bIvq2BMTQ0Zs2sZGcnqDCGcsZyEzea8g169eh64
R0UQpD74+nLKPDo4WIC0TjcBlJKTAHfd4ORVpkjKSY5PCAIPzc2WAd5OhoM6
g4+EhgXk3Y2iohxpMSwsjLGchP6N8fEh4B4VQZD6sGzZLGLLPXvqg7SO80lq
Yja8R5+xtuChudnSRr+dZ4QT+DBoWHb9tYrGaya3kKDPP+fOnYs5CYIgP0Va
GqcyBvEhIK0bGXUirQsKCYK7bn7AP2mCvLoSeGhuniy6mCEgIJBctBh8GDQs
zK8F/gdzEgRBfpXDhzmvm0VEhEFax/okNdnxaCU5FYH568ADdDPEJdpPoZUc
+BhocDbfWEZNbMwY5uqJMZ+TiIiIkBbXrAkC96gIgtSH4uJd1GU9f36c+dYH
DDCmre9/lwDuvfkBHSMt2znjwQN0M6Tr4N7DplqAD4AGh/na8gQlJc58kqVL
lzKWk+C6GwRpGjx7doy6rJKSbOZbt7X9st9N9qs4cO/ND3hHjmrdWQs8QDc3
wkt2CrOFY48Fgg+ABifh7AJqYj4+LozZNfPrbjAnQZCmQUVFkaCgIDHnvLwU
5lsfO3YIdZibbywD9978wNa7kQICAvMK1oOH6WaFa+xshVZyeZUp4AOgwVlx
0I+a2MKFUxiza1qfJCoqirGcRFWV87ZowQLm/kYEQXiEsrI8Meft26OZb3rW
rHHUYa45FQTuvfmELmYdLWc4g4fpZoWuuYHzHBvwS88L5qZO+req6nzG7Prf
GafxjOUkdL+b6dNxvxsEafR07qwNVW5o+fIvN3GLsnzAvTefELTZU05VIepO
DnikbiaEnE4VFBLceDUc/NLzAu/IUdTEdu6MYcaoX706TVtkcr+bvn37MjyP
F0EQHmFh0asF0PZVGzZ82UjdL3EcuPfmEw5+XCcpJzkpZSF4sG4mWPm6dO7b
Afy684hR/tbUxE6c2MSMUd+6dYC2ePDgQcZykqFDh5IWBw82BXenCILUE2dn
G2LOnp5OzDe9f38CdV8TFjmAe2/+YaS/tW6/7v/X3pnA1bS9jZ/qNGkeRYpS
0ihDKYmiUCmhQRmShBCZKpUyVdJgKorIkCEuIkNShgwhoriuebpxTRmSpDr3
XbVyfr3c66Laz+n0fD/fz/9zfv+8d69z9nqe9ey9114LfLBuCUbfPyipKB26
awr4SW8iB3uY0RC7ffsQM0Gdn59Gj3jx4kXGahIPDw9yRGNjffB0iqJoA50x
Y3QroOXlOelruK8VePbmHnc9imYJseZlrQUfsnle12i/tp0Ujlcmg5/0JtJo
sB4NsXfv8pgJarrkEeHu3buM1SRz5swhR1RX7wCeTlEUbaBLlviScDY17cb8
oV+8yKXpy2xYd/DszVVajenTa+QA8CGbt419fFhJs8P0Ve7gp7vp7KTbnsSX
hIQYY0G9fXvUlyroHWM1yapVNUvoCwkJstlF4BkVRdGGuGHDIhLOGhqqIEeX
khInRyeZEzx7c5Wbri9hCbGCz20CH7h52PFJwdKKUkfLEsFPdxOZU71RUJhF
4qtHD23GIjoy0o8cUUpKirGChLBvX93aj8+enQTPqCiKNsT09NUMX0nV18io
5t4yyZw8uTpEQxzgZtLbxQp84OZVYx8dbt9Vlbdvkux8WLfZzahRNoxFtI+P
Kzminp4ekzXJ5cuXv0xi2QmeUVEUbYgXLuyg4Vxefpn5o7u729W9OfgwGjyH
c5Vbb0eyhFm4floTOTY+QE5ZNrM8CfxEN53Lj82hwcXkW3V2dv3IEW1tbZms
SV6+fEm/6Z49ceAZFUXRhsh5d+/hw2PMH51kS3p0kj/Bczi3OWzaQP3BvcGH
b95z+d10ORXFwM1e4Ke4SZ0ZP4YG17ZtkYxFtL6+Zqua7XWmMFmT/P1lefnI
SD/wjIqiaEMsK8sHvO1JsiU9Osmf4Dmc20x/tVpMWsxnZyT4IM5j2vl7aBl3
zmHz+OPCETOsaHBduLCDmXBms4vExduQI0ZHRzNck/TuXbPO0rhxDuAZFUXR
BioqKkzC+dChBOYPffly3evAjtN4cFfWhjt9pZuSZofo+wfBx3GecUHeZmEx
kfjzweAnt6ntNUiXRFbr1q0ZexH40aMsGs6HDh1iuCYZP348LlGCoryhunoH
Es4bNy5m/tAVFQXCwkLk6Nq91cFzOBd6vDJZvVvHwbNGgw/lPKPuwF42Xv3B
zywDSsrV7M+rqdmRsXA+ejSR1iQPHjxguCZZvnw5Oa64eBvwdIqiaAMlFxeA
j2I5r97w8NJVDTHpcpiQqJB/9jrw0ZwHHLPGX7qt1IGSNeCntandfr9unRB3
d+Z2gYmL8ydHFBUVra6uZrgmycjIoN/38ePj4BkVRdGG6OBgSWLZz28syNGn
Th1FkwkZfMEzOXfqMneIip46PsFpoKEXt7aRFgvbPRX8hDJgaJoPDStSJzAW
y97eTuSIhoaGDBckhKdPn9Lvm56+GjyjoijaED09HQGnh/1vJ74kD/BMzp1m
lid11O0wYMpI8GG9+Rr76LBmH33LUSbgZ5MZXecOoWHF2O57xJ49dcgRJ0yY
wHxNQlBWViZHDw6eBJ5RURRtiHPmeNQuKWAOcvTr1/fT5GnrZQ6eybnWjUVL
hESEJqcuBR/cm6m288YpqMofepcAfiqZ0dCiK4kpfn6+srJ8ZgK5vPyyoGDN
srFJSUkgNYmjY821lZWVCXhGRVG0IUZFzQacsl5VVUjfH1TT7wCeybnZGWtG
i8lKLDi/GXx8b3aSWk5QRHDN2SDwk8iM2VXJohIiJKYMDLowFsh5edvpxcXV
q1dBapLw8HBydBkZSdz1BkWbtXTLm86dVaAaQNd+bM3Xev/L1eD5nJsd6G6q
oqe+7PZ+8FG+GbkgbzOp5aavdAM/fYyZkBdSt+zPzDGMRfGKFQF0gmtlZSVI
TZKdnU2/9e3bh8CTKoqiv+y+fStJIEtLS0A1gE7Xr1kEe+cU8HzOzR4tS1TT
V+np2D/28WHwsb5ZGPH7nvZdO7acaSRUr6UjvqwTwtyiQ3SfCHNzc5CChPDx
40chIaHah0dh4EkVRdFfNjd3C81glZXXQBrAmVJi590iFo5oiGlPYqXbSg2c
6gw+3HO/0fcPavYx0DJS5+HNf/9Rg35dSDSxWAKlpRcZi+L27RVqp5gGQ9Uk
BFIRtWJ2z0EURRvdmzcP0pLgr79OQbVBSUmeNECpkzx4Pud+E/JChESFhi+e
Aj7oc7Oxjw8bOQ1sp66478Uq8FPGpKQAYwkJ1N6y6MlY/P7xR93yICdOnACs
ScLCwkgb2raVA0+qKIr+si9e5NJ88vvvB6DaMHp03QbB2+9FgWd17nfpgRks
IdaoGD/woZ9r7Tt+qKScxLY7y8BPFsMuOzKLhtKiRdMYi9+1axeQIwoLC5eX
lwPWJKdOnaLf/caNdPC8iqLor1lVVdi6dWsSyCdPpkC1YfPmcJpM/NaOBc/q
zcLQXVMEBAXGxgeAj/5cqOWUkaISohuuLgI/TczrNGsQDaXz51MZi19n55qD
WlpaAhYkhE+fPomJ1ayov3JlIHheRVH0l5WVlSKB/NtvK6Aa8OrVGRar5oaz
0WA98KzeXPTfNIGUJXi3pL6xjw+bj7cXlRBJyAsBP0EgKqnVPgZVkq+uLmQm
eMlFjby8NDloREQEbE1CGDlyJGnJwIG4SgmKNmM1NTuSQF6/fiFgG6ysTEgb
BFj8LWE7ksYyOHUSP4sf55ZQYx4e6j1qkJi02LpLoeCnBsSky2H0Jsm0aW6M
RS5nknxhYSF0SfJ3SkoKnd/79i1DuyGjKNro9u5tQAI5PHwGYBsSE0NpZgtI
8QLP7c3Ixfums4RYA6Y4tfAXhCP/2Ktt2UtaUSq5cDH4SYHSfb7dl7mmmxiL
3HnzPMkR1dXVoeuRGl69esXPz0/as2tXDHheRVH017S3tyBRPGvWOMA2vHiR
y8/PR5phYmcAntublytPBYhLi3Wz67v8bjp4bQBiWP62DrrqqtrtdzxYDn46
AFXWbEsiSFFRtqqKoQc3RC2tTuSgvr6+0PVIHWZmZqQ9bm624HkVRdFfc/z4
mq0iPDyGwTbDwsKo5r6rkEDL2ZeksdzyR4SSmmIHPfWQ8yngFQLDTv9tuYSC
tKGldgt/6pdcuJjeJPH2dmIsZu/cOUwPmp2dDV2M1LFixQrSHgkJsfLyy+Cp
FUXRX3D2bA8SxUOH9odtRkJC3ZrY87d6g2f4Zmf6q9U9rfXEZMQnbVsCXicw
Y+zjw45hNTNqRsywyvq8AfwUwDo2xJ6Gz/HjGxiL2YiImeSICgoKUEvKf8uz
Z8/o45vdu2PBUyuKor9gZKQfCeHevQ1gm/H69Vlh4ZrVoQ0tu4Jn+OZodlXy
6KChfPx8lpNGLL93ALxmaFIXX92pZ91bWEw4ePtk8F8e3JzqjYqqsiR2VFXb
MfbGDVFPT4Mc1MfHB7oS+X9YWVmRVjk6DgBPrSiK/oLr1y8kIayhoQreEjc3
W9KS1q1b4+Jpv2x01lwZJekOuur+2evAK4cmctLWxRIK0hrdO275IwL8B+cG
OUulhYX5MBathYX76EFzc3Ohy5D/x6ZNm0irhIQE37w5D57TUBT9WffurdmG
T1ZWCrwlOTkbaZZzD7QFz/PN1/RXq80cewoICgya6RZ9/yB4CdGILr66s+dw
Sz5+Ptd5Nvi8hqP5iJ4kavj4+B4/Ps5YtAYEeNXemVFls9nQZcj/4927d6Ki
ouDrG6Ao+muePJlCKwEm7/r+o2x2kbp6h5oCqZ3U8cpk8FTfrA3bPVVaUapt
Z+WpuyLBa4mGG/vosGu0n7isZCe9DmsvLgD/ebnHfc9XkvqTRM2QIX0ZC1WS
Kzp2bE8OGhgYCF2D/AMeHh7c8DwaRdFfkHMP9vXrs+CNCQ+fQRsTfnAmeLZv
7h4oWePgM6A1X2v9IaZBucngdcUvO31vdAdddWEx4YkRI7FY/cpJy5xoyOzZ
E8dYnB47tp4+Zr179y50AfIPnD17lv4m167tBc9pKIr+lE+eZNP4vXv3CHhj
iotzBARqps0bWuBM18Yx6UqYQT8tciltNtY29OJW8ALjp5xzNF7XypiUVUM8
++55Ggf+Y3KbpEJTUJGtfflFpqKigLE4HTHCqnYV94HQ1ce/oqurS1o4deoo
8JyGouhP+eHDJVqT5OengTfm7y9behHIYAqe83nGiIyZGt07soRY5p4OC85v
Bi82/lO/gysMhvQhV+ImdoYtc0O9HzF01xQaLMHBkxiL0GfPTtINqnbv3g1d
evwrK1fWTJOTkhL/+BEXKkHRZibNMFlZ68FbQjx/PpWmWQsXI/Ccz0vmsDcu
3je9Sy81fgH+7g79/DJWghce3xrz8JDXxjDNPvqt+VqbDjXEqSPfV8NQlUSK
oCDr6dMTjEUofcCqqKhYUVEBXXr8K2/evKHbBCclhYHnNBRFf0oFBRmuWmXI
3LzmPQJ+Ab5dj6LB0z7vufJ0IBnuyaDfXrvj8MVTwm/sAS9FiAvyNlvPcJNp
Ly8oImjn3R/f8/1P40740+rdy2sEY7FZWXlNRUWp9s5MMHTd8R9Mnz6dtFNb
W53NLgLPaSiK/rh0a2DuuaDYv38VTbbDfa3AMz+vSuq9sQsc5DvICgix9KyN
R6+aF3lzL/OlyMLLqcMXTVE30iY1kpq+iu/q0QffxIP/OM1CYxt9OtH0xo10
xmJz166Y2jszgk+fPoUuOv6De/fuCQjU3AE+ejQRPKehKPrjGhvXJLdly2aB
t4RaXV1Irm5Ik0TEhPa/XA2e/HnYnOqN5HLbfoqFpJwES4jVtZ/hsAXe/jmJ
TbrRcMyDjBn7Y61nuKl20yClSLvObUcHDU2+hpNGfsLkwsWkGiExYmtrzmRs
0m3EPTw8oCuOH8LZ2bnmKbCFEXhOQ1H0xx00qA+J3IAAL/CWcExKCqO3Slzn
DgHP/y3B7KrklacC3ANt1bupksFOTEZcz9rYLmD8pK2Lwy5ta2AREvvocFBu
8vikYGvfURqmekKiwgKCAt0stCdFOZOxFfy7N0fNhnWnAXLixCbGojI3d8uX
OzM3oMuNH+L8+fP0V7p0aRd4TkNR9Ad1dR1CwnbSJGfwlnCsqCjo1KlmUSYh
EUF8CZRh979cvTTdd5S/jY6phqiECDkLbaTFOnXvYmhvPnCay/DFU8as8Z+c
unTW4VXzjq8NPruJ49zMeL+DK7y3LHZfOdcxbFK/iY76Q0w76KmRIoT8RyTl
JXoN0h+/cFjcCf8jH9aBf83ma0JeCL1J0q9fTyaj0tbWnBx00KBB0LXGT9C3
b1/SZju7fuA5DUXRH9THx5WErbPzIPCW1DclZSm9xnHwsQQfBVqsOeyN2+9H
LdnvOyXaxXHagN623dT0VeTaywiKCLb6F0TERRRU5TV7qpkN6+E8e7Dv6tHL
j83Z+9dK8O/CM/a00qE/9dmz2xiLx0uXdtFCKCsrC7rQ+AlIa+m9HS5Z6wBF
0f80KMibhK21tSl4S+pbVVWopdWJNExAUIAMi+ADAfqVR8sSD5Ss2f9y9fZ7
UUTymZhVsR68YbxtbM48WpAwPJNk6ND+5KBmZmbQVcZP06dPzbNpe3sL8JyG
ouiPuHz5HBKzvXrpgrfkK9PSYmj6HTSuD/hYgKLcoI5JZ3rhf+XKbsYiMT8/
jd4kOXbsGHSJ8dNkZmbSXwxnlaBos3DDhkUkZjU0VMFb8pVsdpGhYVfSNj5+
vvUFC8GHAxSFNTTNh1bpLi6DmYxEO7t+5KB9+vSBri9+EVNTU9L+AQN6g+c0
FEX/0z174kjAyslJg7fkWzMzk2gS1u+rmcPeCD4ooCiUR8sS6e42LJbAH39k
MBaDp09vpjGYmZkJXVz8Ijk5OfQrHD68FjynoSj6fbOzk2umbQjwg7fkHx02
bADNJ0HbvMHHBRSFcmyIPQ2E2bM9GIs+NruIrknSv39/6MqiQdjY2JBvoaen
UVVVCJ7TUBT9jpcvp9Fc9/79BfDGfOv9+5nCwkKkeTJtJQ+9SwAfGlCUebff
jxIUZpEoaN9eobT0ImPRt3t3LJ2MceHCBeiyokFcv36dn79mz/GNGxeD5zQU
Rb8jGfRpTfLw4THwxvyjISGTaQudZw8GHx1QlHlN7AxoCKSmLmMs7j5/vqqh
UbPNn5OTE3RN0Qh4enqS79K2rdy7d3ngOQ1F0X+zpOQcTXcFBXvAG/OPlpXl
052/BFj8m64vAR8gUJRJww/OpBHat28PJneUi46eUzt9hXX37l3ogqIRKC4u
ppsFM/nwC0XRX5CPj68Vs+tU/6z0HjJBy0gtuyoZfJhAUWY8ULJGXlma9Hx+
fj4mrxqKi3MkJGpG8BkzZgAXE41HREQEnSR8/fp+8JyGoui/KSUlTkJ1//5V
4C35jo6OdZNdJy1zAh8pUJQZB3uY0W4/b54nk+Hm5mZLDqqgoPDmzRvoUqLR
+PTpk5aWVivcmA9FuVv6ZGTLlgjwlnzHZ89OyshIknYKCrM23wwHHyxQtKmN
POxXd3tQq1N5+WXGYu3UqRS6SFpKSgp0HdHI0CXUCNu3R4HnNBRF/1E9PQ0S
pGvWBIG35Ptu3RpJ84mOSWd8goPythlvEzhPbc6dS2UsyioqCnR0alaLNTEx
YbPZ0EVE4+Po6Ei+nby89MuXueA5DUXRb+3Tx5AEaXj4DPCW/Kd03w3ClGgX
8FEDRZtOmwnmIE9tFi6cWlsI8RcUFECXD03CkydPJCVr7ri6u9uBJzQURb91
yJCaHb0DArzAW/KfFhfnSEtLtKrdmy8xPxR84EDRpnDBzikgT21u3EgXEhKs
fTllNnTt0ISsW7eO/ryHDiWA5zQURb/SxWVwzZ2HKS7gLfkRd+xYTvNJO3UF
XEUN5T23349qIylSM3VKkMXkznHV1YUmJjULoairq3/48AG6cGhC2Gy2uXnN
bSgVFSXuXCsSRVuy3t5OJDzd3GzBW/JTDSZYuhqDjyAo2ohmVazXMlKj3Tsm
Zi6TYbViRQBdtTUrKwu6amhybt++LSwsTL6vh8cw8ISGomh958zxILFpZ9cP
vCU/aFlZvq6uRt32H4njwMcRFG0snWYNoh2bxCOTK6TdvHlQVLRmjPb09ISu
FxgiOjqa/tR7964Ez2koinJctGgaCUxz857gLflxf//9AE2hQqKCydcWgQ8l
KNpwIzJm0pdwlZUVX706w1g0ff58tVcv3drjKpeUlEAXCwxRXV1tYWFBvrWs
rNSzZyfBcxqKolR6z7ZbNy3wlvyUGzcuppc57TsrpL9aDT6goGhD3Ho7kk4j
4efnO3UqhclQCg6eRJ/aHD9+HLpSYJRHjx5JSUmR7z5kSF8m70qhKPod6eCu
pqYM3pKf1dPTkZYlhpZdccUStPma8TZBWbMt7czLls1iMojOnUule+bOnDkT
ukYAYNu2bfRnj4vzB09oKIoS9+yJIyEpJycN3pKftaKiwNS0G00pw6cPBB9Z
UPQXJOW00WA92o0ZXjTjzZvznTq1J8fV1dUtLy+HLhBgcHV1pW85XbiwAzyn
oSh67Nh6GpLgLfkFnz8/raysWDffNckDfHxB0Z+VM6/V2Fj/40fmViNhs4vo
NlJCQkK8ukLaj/Du3TsNjZo58x07ti8pOQee01C0hUuuDmhKZHJ1pkb0ypXd
dL6rgKDAipMB4EMMiv64ASleNPpIaf3kSTaTgbNqVSA9dHx8PHRdAMyVK1fo
q8HDhg3AiSUoCuvNmwdpavrrr1Pgjfk1d+2KoS8stJEUSS5cDD7QoOiPuDxz
NimkSb8VERHKy9vOZMjk56cJCrLIoZ2cnKArAq4gISGBpsHly+eAJzQUbckW
F+fQYLx9+xB4Y37ZiIiZ9FvIK0unPYkFH25Q9Psm5IUIiQrSF23S0mKYDJbX
r8+qqSnXzmxXe/v2LXQ5wC24uLjUng7+Y8fWgyc0FG2xlpZepKM5uXQCb0xD
nDLFhX4RFS2lfS9WgQ86KPpvbruzTEpenHbXhIQQJsOkqqrQysqkdgqZYH5+
PnQhwEWUlpbq6urSFUvu3TsKntBQtMXKx8dHIjEnZyN4Sxoim13k7m5H83xX
Y7WjZYngQw+Kfmvak1hFVVnaUQMDJzIcJrNne9BDb9iwAboK4Dru3LlDVyzR
19csK8sHz2ko2jKVkqq5ZNu/fxV4SxpoRUWBpaVx3VsMNvpZFevBByAUrW/6
q9Vqesq0izK/8WVq6jJ66KlTp0KP/1zKkSNH6IItzs6DcL4rioKooqJEYnDL
lgjwljTct2/zjIz0sCxBuVBSkHTupkI7p4ODZVVVIZOhceHCDvqGWt++fSsq
KqAHf+4lIiKCnqOAAC/whIaiLVA9vZrX89esCQJvSaP46tUZQ8OuWJagXGX9
gsTGxryiooDJoHjyJJuu5KOsrPzixQvoYZ+rYbPZ7u7u9Ext3hwOntBQtKXZ
p48hib6IiJngLWksSVnSrZsWliUolwhbkLx9m0evO0RFRa9duwY95jcDKioq
LC0t6WKS2dnJ4AkNRVuUdB7+/PlMT7drUuuXJb1tDbAsQaEkBYmGoSpUQVJV
VThkSF/6lmt6ejr0aN9sePHiRefOncnvJikpVli4DzyhoWjLcdiwmiWmZ84c
A96SxrV+WdLTWvdw6Trw4Qltae4pjuuk2x6qIPm73jvyCQkJ0ON8M+POnTvy
8vKtIFbZRdGWLH2FduLEkeAtaXRJWdKrly7NyVq9OuG6JSiTbr0V0bajHO1+
9vYWzBckixZNo0f38fGBHuGbJXl5eaKioq1qtinUePEiFzyhoWhLkF5JubnZ
grekKSwtvWhtbUozs7Jm2x0PloMPVWhLcO3FBZyF0SZMGM7wWzbEhISQL+WQ
fVVVFfTw3lxJT08XEKjZAsDYWB8XLUFRBpwzp2YZJVtbc/CWNJHk+tTVdQjN
z7JKUsnXFoEPWChvG501V0RMiPNKKfMrXaSlxdB1NiwtLT99+gQ9sDdvtm3b
RnfUGjKkL/M3u1C0pRka6kPCzcLCCLwlTWd1deH06XXv94lJicYcnws+bKG8
6vyt3nRzPTKQxcX5M9/bs7OT6RZ7+vr6uKNNoxAVFUWzx4gRVszf8kLRFmVU
1GwSa0ZGeuAtaWqXLp1Br3f4Bfhmxo8BH7xQHjOneuMofxs6eJGqIDV1GfOd
PDd3C10brXPnzrgUSSMSFBREz6yr6xAsS1C06aTPnXV0OoO3hAF37YqhGZsw
dFL/rM8bwAcylDc89C7BxM6Adi0FBRlSGzDfvfPytktKitG10e7evQs9jPMa
fn5+9Px6eAzDledRtIncujWSRJmKihJ4S5jx8uU0uqYlwdCia/qr1eDDGdrc
Tb27TFW7He1UBgZdHj48xnzHvnJlN927SlFR8datW9ADOA/CZrN9fHzoWZ40
yRnLEhRtCvfuXUlCTEZGErwljPns2UkTk7pL2nbqCjjrFW2IyzNni8u0od1p
+PCBpaUXme/ShYX75OWlSQPk5eWLioqgR2+ehZQlnp6e9FxPnDiyuhof4qBo
I3v0aCKJLyEhQfCWMGl5+eUxY4bWPfoXZs1OHAc+tKHNzuyq5LEh9nx8remM
1pCQySDXzgUFe2hBIi0tXVBQAD1u8zhVVVXjxo3jPMTBuSUo2rjm5m6h8dUC
gys+PlhYuO6dzYHuJrjWK/rj/vZshaFF3W6PsrJSGRkJIH04Pz9NRkaSFiSX
Ll2CHrFbBNXV1RMnTqSn3s3NtgVmThRtOgsL99Hgevs2D7wxzEuuMTU06rYj
UdFS2li0BHywQ7nf2Jx5Mm0labfp3dvg0aMskN577lwqndQqJyd35coV6LG6
BcFms6dOnUo7wMiR1rhuCYo2lvfuHaWR9fjxcfDGgPjuXZ6T0yD6IwiJCvqt
HZvD3gg+6qHcadbnDaODhnKe1/j5jf38+SpIvz11KkVcvA2d1IpzSJiHlCWz
Z8+meWPwYLMPHy6BpzIU5QGfPTtJw+rmzYPgjQF09er5nOc4RoP1dv8ZCz78
odzmxqIlnE1+ZWQk9+1bCdVdDx6MFxGp6a7t2rW7efMm9PjccuGsW2JiYvD6
9VnwPIaizd337y/QmLp8OQ28MbDeuJHes6cO/TXEpdvM3+oNPgiiXGJ2VbJ3
pBNLSIBzXfznnzlQHXXr1kgBgZql4zt27IjrkIATFxdHF2PU1dUoLgbrFSjK
M9I0e/r0ZvCWgFtZeS001IcmfELf4T32PV8JPiCisG69Halj0rmuWBVvk5gY
Crg2xYoVAV9GQN3i4mLoARmpYcuWLXSrvo4d29+6lQGex1C0WUufSkO9OMCF
Xrq0S1tbnY5BUgoSeMOkxXq8MnnychchUUHaGfr163n/fiZUtySFUEjI5C8T
a3u/fv0aeihG/sfBgwdFRERq5xtLnz27DTyJoWjzVVFRloTSzp3R4C3hHsvL
L8+b58m5YWJo2XXLHxHgQyTKpGvOBqnpd6AdQExMNC7OH3CNrIqKAg+PYbQx
gwYN+vDhA/QgjHzNmTNnZGRkyAkSFhbavTsWPImhaDNVTU2ZxNHGjYvBW8Jt
Xru219S0Gx0IBAQFxi5wOPoxEXysRJvaA6/X2Hn3py/XEOztLaDe9qW+fZs3
YEBv2hh3d/eKigro4Rf5Z27duqWuXnOLlY+PLzp6DngGQ9HmqJ6eBgmi1avn
g7eECyWXxklJYXRZqla1a9Ev2jsNfNBEm8jjlcmz1o2Tkhenp1tVtd2BA2tg
eyAph3R1NWh7goKC2Gw29MCLfI/nz58bGxvT8zV16qjKymvgSQxFm5d9+hiS
8ImImAneEq71xYvcsWPt6dxCgn5fzfjzweADKNq4Ljsyi7OVnoAA/7x5nuCL
TuTnp7Vrp0Daw2KxkpOTocdb5If4+PGjo6Mj7UjW1qYlJefAMxiKNiP79+9F
Yic01Ae8JVzuyZMp3bpp0VRD6pMBo4x3PowGH0nRhpt0JYyzUDyBRERh4T7w
/paWFtOmjUjtyz7imZmZ0CMt8hNUVVXNnTuXdidNzY5//JEB3p1QtLloa2tO
AicgwAu8JdxvdXVhcvJiJSV5ziQT59mD971YBT6qor/m9vtRQ8abcaaOaGur
p6evBu9mbHZRWJgPvS/XsWPHwsJC6DEW+RU2b94sJFSztJ20tERmZhJ4v0LR
ZiFdWd3HxxW8Jc3F0tKLS5b4iomJ0oFMREzIdZ4NVibNS1KN2EwwF2DVvVol
Ly8dHx/MDU//y8rynZ3rNjswMzN78eIF9NCK/Dpnz55VVFQkp5Kfnz82dh54
70JR7tfd3Y6EjJfXCPCWNC+fPj0xYcJwzvvCNZXJ3CFYmXC/NfdGPPtyqpE2
bUSCgrxJnQneo/6undHavbs2bZinpye+YsMDPH78uFu3utf3XF2HcElPQ1Gu
dcoUl1a1m26Dt6Q5evfuEQ+PYZzKRLiNkMucwXuK48BHXvRbt/wRQaoRfgE+
TjUyZ47H8+enwXsR9dix9bKyUvSaOiYmBnosRRqNsrKy0aNH016nq6tx+/Yh
8M6GolzrzJljSKQMGzYAvCXN13v3jo4f78ipTAQEBaxGmyRdDgMfhVFqzPG5
vW0NOG9OkWpk7tzx3FONsNlFS5fOIKVIq5qFQOWysrKgR1Gk8Vm1ahWLxSKn
WEpKHPwdcxTlWgMCvEiY2NiYg7ekuUsqE09PR0FBFucNjm79tZam++ZUbwQf
lFumxz6tD0jxUjfowDkj4uJtSDXy4kUueG/h+O5dnoODJW1ez549Hz16BD14
Ik1Fbm6ukpISfXHP338CN8xfQlFuc8kS39rZdN3BW8IbFhfnBAZO5CyzRmjf
WcEndtT+l6vBx+iW465H0WMXOMi0/d9Z6NChbVTU7DdvzoP3kPoWFOzR0FCl
LfTy8iovL4ceNpGm5enTp3379qVnvE8fQ9glglGUCyWJmkRHr1664C3hJT98
uJSQEKKp2ZEzJrKEBPo7G0VnzcXbJk1n1ucNC/dMNRqs1/rL670EIyO9HTuW
c+E1aXx8sLBwzbuiwsLCGzZsgB4tEYaorKwMDAzk46uZ1yQrK4X7n6JofcnQ
SUJDT08DvCW8Z3V14YEDa6ysTGj+oSipyXsuHr77z1jwEZyX3Hwz3HWejZSC
BOd3FhRkOTsPOnNmK3g3+NZ37/LoO/gELS2tgoIC6HESYZrMzEx5eXn6HGfW
rHEVFQXg3RJFucFNm5a0qlmaqT14S3jYBw8yQ0Imt2+vwBkxyYV8t/5aMxPG
4uvDDXHnw+hJUc4a3VVb1UNLq1N09BzumcL6lZcu7aIbX7aq3VOvtLQUenhE
YCguLrawsKA9wdCw6/Xr+8E7J4qCm5q6rGbOQ3sF8JbwvFVVhRkZCQ4OliyW
AGcA5ePn62mlMy/Z80DJGvAhvrm4+8/YaSvcdEw6c16lIYiICI0da3/qVAr4
if43KyuvLV48nZ59UVFRfF6DVFVVLVq0SEBAoPYRnlBMzNzq6kLwjoqigJJR
koSDpKQYeEtajs+enVy9en6fPob1h1QBQYGe1rrTV7ptu7MMfNDnTjdcXeQV
PlLHtHP96SJkiB882GzTpiVv3+aBn9nveOfO4d69DWibDQwMrl+/Dj0eItzC
pUuXtLTq9tKysDB6+PAYeHdFUSgzM5Pow3fwlrRAHz8+Hh09x8hIr9X/p0OX
tk6zBsVmz8uqWA9eCcB6tCxxabqv/WQLeWXp+j8RPz8fyd6JiaGvXp0BP4/f
l80uWrduAd1Qj5+f39/fHxdoRb7i48eP06dPpxcpEhJiKSlLwfstioKYm7uF
JnnwlrRk7949EhU1u1+/npyF1yiiEiK9bQ0mRTnHnw8+XpkMXiEwVId8TIw7
4e8RNszQoqugMKv+DyIiImRjY56QEPLs2Unws/YjPn16gjSYNl5NTS03Nxd6
9EO4l6ysrA4d6pbTGT584MuXXLSQDooy45Uru2kIcPmt7xYiOQs7d0aPHWsv
L///bgu0qt1Sp6e1rtfSEaty5x8tSwSvHBrXjLcJy4/NGRtir99XkyUk8NV3
V1FRmjzZOSMjoawsH/wc/bi7d8fKydWdxwkTJrx//x560EO4nZKSEjc3N9pn
FBVl8U1htKV5/fp+2v+5anFLtLq68Pz51MWLp1tZmdDb/v/vyYUAn5qe8mAP
M9/Vo9ecC2qOJcqhdwlxJ/wnL3exdDVW1lCsP7WGIi0tYW9vERMzt7BwH/jp
+FlJbTlmzFD6RRQUFNLT06HHOqQ5sWvXLhkZGdp/vL2d3r+/AN6lUZQZHz3K
oj0fVxTkWj9/vnruXGpExEwbG3Nx8TatvoGUKJ102/d3NhobYh+8fXJifujh
0nXgVUd9D5SsScgL8d80wS3Atq9jD2XNtt8WIa1qdnuRHj584MqVgVev/tZ8
X0DIzk5WUVGi38jBweH58+fQQxzS/CguLh40qG4RG1XVdgcPxoN3bBRlwOfP
T9Nu//vvB8Abg/6nVVWFRUX7UlKWTp/ubmraTVRU+NuRve7yvIOMoWXXQeP6
kEJl1rpxERkzk68tOvC6ad84/u3ZiqTLYUvTfX1Xjyblh/UYU/2+mvWXMvsK
SUkxCwujOXM8duxYfvv2ITa7CPwXboglJee8vEZ8makokZycDD2yIc0YNpud
kJBAOhINFienQU+fngDv5CjapL59m0c7PLkyBW8M+rNWVl4rLNy3adOSuXPH
Dx3aX0ND9atZst8iJCIoryytpqdMqgVTe0NStIycaT1+4TDvSCdSSMxOHEcM
2uYdmuZDXLxvOv0QuGUi/dO0FW7kX45d4DB8+kBScpjYGej20VDVbierJPXt
PJCvDy0kqKurMWKEVWDgxO3bo3igCKkv+UaKirL0mw4YMOD+/fvQYxrCC/z5
558jRoyg/UpKSnzt2gXN9xYiiv6npHvT3p6buwW8MWjDrago+P33A3v3royM
9CPX7IMHm+nodJaQEPt+tdDoyMlJ6+tr2tn1mzLFJTp6zqFDCXfvHqmq4s1c
ev9+Jvmdv3xxuc2bN5MrXOihDOEpDhw4wHklx9S0W3OcZIWiP2jnzirEixd3
grcEbTpLSy/euJF+7Nj6TZuWLF8+JyjI28fHddQoGzKYGhvrd+nSsWPH9tLS
EkRJyX8uYOhfZWQk1dSUu3ZVI4nR1tbc3d1u2jS3kJDJsbHztmyJyMnZeOtW
xsePl8G/LzNWVl6LippNn6C1bt3aw8Pj5cuX0MMXwpuUlpbOmDGDn7/mRiiL
JRAYOLHlBBqKomhVVWFJyTleerzSuOblbdfX16QFm6amZk5ODvSohfA+ly5d
MjQ0pL1OXb1DVtZ68EBAURRFAX33Lm/aNDe63bOgoGBISEh5eTn0YIW0FCor
K6Ojo8XE6u5njhkzFFdyQJudnz5dOXUqZceO5YmJocTo6DmRkX4rVgTQ/7l7
d+z586m4bCCK/qd79sRxtng2MzO7ceMG9BiFtEQePnxoZ2dH+6GUlDhJ6RUV
BeDRgaI/aH5+mpKSPO3AkyY59+ypQz8bGnadPdtDS6sT+Uyu+0xNu23ZEoG3
61H0W69e/a1//15fZtdIJyYm4lxWBJbdu3erqKjQPtm5s8revSvBwwRFf9Ds
7GT6CJJ8Pn16M/ncqVP7Dx8u/V37ssaECcNb1e5KOXz4wIEDTXCpeRTl+PJl
ro+PK33PmpTunp6ef/31F/RwhCA1fPz4ccmSJZxHOaRsvnJlN3jIoOh/Wl1d
qKgo6+g44O/aB+Kk9y5aNI3zV1KWtGunsHJlIPns7z/ByEjv06cr4G1GUVhJ
XERHz5GSEqcJ39zc/MqVK9CjEIJ8zdOnT0mpTOc41ZbNjs+fnwYPHxT9vpaW
xl5eI+hnQUHWkSPr6v916tRRCQkh9DMpXSIj/cAbjKKA7t27snPnuhvjKioq
27dvx4c1CDdDCub+/fvjJBO0uejsPGjePE/6WVFR9quFd+Ljg1esCKCfX77M
7dlTB7zBKAritWt7OVNHxMTElixZ8vHjR+gBB0F+iL1793bq1AknmaDc7/Tp
7hERM+lnTc2ODx5k1v9rYmJoePgMzv8kORknu6ItzW+njjx9+hR6kEGQn+Pb
SSbnzqWCBxeKfmVAgBenJtHT07h+fX/9vy5YMGXmzDH08/v3F1RUlMAbjKKM
+eHDJRIdnKkjZmZmOHUEadbUn2RCsLPrh/uaoVzlVzVJfn5a/b/27KkzYoQV
/ezp6ThmzFDwBqMoA376dGXFigDODno4dQThJa5fvz5iRN121eT/dXIadPPm
QfCgQ9G/v6lJNm5czPkTycmkx9I5JFFRs2VkJB8+PAbeYBRtUisrryUlhXXo
0JZWI0pKSqtWraqoqIAeRhCkkcnPz7exsaH9nJ+ff9w4h/v3M5s6vlD0+4aE
TI6PD6afSU3SsWP75OTFkZF+ffv2+NJX+SZMGK6q2u6rWygoymNWVxdu3Rqp
rl6316qsrOyyZcvKysqghw4EaULOnDnTr18/2ucFBVlTprj8+WcOeDCiLdbw
8Bmct31JTWJtbUo7p5WVCd3OXlFRdtWqwPfvL4A3FUWbSDa7aM+eOB2dzrTz
S0hIhIWFvXv3Dnq4QBCGyMrKMjIyov1fRER41qxxuLEICmJAgNfy5XPoZzqf
xMysO+mWOTkbU1OX0UlQ4I1E0abz0KGEHj20aTYWFRX19/d/9eoV9BCBIACk
p6fr6+t/eeFdNDh40qtXZ8AjFG1RfjWfpLBwX3Fxjry89JQpLuT/x8VlsKAg
Cx8yojxpVtb6Pn0Mv9y1FvT19X327Bn0sIAgkFRXV+/YsaNLly40Ltq0EfHz
G/v48XHwaEVbiN/WJH/XLlYpJCR4+/ahkpJzysqKw4YNAG8nijaW1dWFpIf3
6qVLs66AgICXl9ejR4+gRwME4RYqKyu3bdumq6vLmWcyfrwjvpuDMmD9mkRb
W52zjquHxzB7ewvy4fjxDa1bt96+PQq8qSjaQCsqCjZuXNy1qxrNtEJCQpMm
Tbp79y70CIAg3AibzT5w4ICJiQmNFz4+vhEjrC5d2gUeyCgPO2WKS0jIZPpZ
WVmRU5O8eXNeXl766NFE8tnX111KShxfBEabrx8+XFqxIoDzhq+4uPjcuXNx
OVYE+RFOnjw5ZMgQup4JfQMiOzsZPKhRnnT48IFTp46in0VFhevvd7Np0xIl
Jfm//jpVWnqRJHMTEwPcvAltdr5+fXbRomlyctI0ncrLyy9evLikpAQ6zSNI
M6OgoMDFxYWfn5+GkpGR3t69K6urC8FjHOUle/c2cHEZ/HftwpWkm50+vZnz
Jza7iNQhAwb0rqoqTEuLIX+dNWsceINR9ActLs6ZPdtDXLwNTaGqqqqrV6/G
9UYQpCHcuXNn4sSJQkJCNKy6dlVLTl5cXn4ZPN5RHvDly1whIcFevXTJ5xs3
0kkHW7t2Qf1/cO3aXhZLICjIm9QnOjqdW7duvW8fbiiJcrvXr+/38hohKMii
aVNbW3vz5s2fP3+GTucIwiMUFxfPnj1bXLxuKyg5OemAAC98PQdtiJcu7TIy
0qMzlw4ejJ84cST5rK+v+ebN+fr/bNWqQFKKzJo1zsVlMPkHkpJi9+4dBW88
in5rVVUhqZkHDOjNefBtbGy8b9++6upq6BSOIDzImzdvYmJiOnXq9OUVNv6R
I61PnkwBTwVos/Pt27xFi6ZNm+bm7e1E9fV19/efEB4+Y//+VV/94+zs5PHj
HS0tjXv00CaS6oXNLgL/CijKsaTk3PLlczp1as95vdfJyen06dPQORtBeB9S
86enpw8cOJBzLdCtm9aGDYs+fsQHOiiKtiyLivaRilpUVJgzhXX+/PlPnjyB
ztMI0uK4cePGlClTxMTEvuwYJRUQ4PXoURZ4lkBRFG1Sq6pq1j2zsKjboYPQ
vXv3jRs3fvr0CToxI0iLhj7QUVdX/7KLK/+IEVb4QAdFUZ701aszy5bN6tix
7jENi8VydnY+e/YsdCZGEOR/VFdXHzhwwMrKivNAR1dXIy7O//Xrs+A5BEVR
tIGy2UWnTqWMG+cgIlL3mEZBQSE4OPjPP/+Ezr4IgvwrN2/e9PHxkZSU/LJ4
sqCT06Bjx9bjwiYoijZHi4tzIiP9NDU7ch7TGBsbp6Sk4GMaBGkufPz4cfPm
zebm5pzbJioqSqGhPjjbBP0Rnz8/ffbstqdPT4C3BG2xVlZe279/lYODpYAA
/5cpc7J+fn6FhYXQ+RVBkF/kzp07/v7+7dq14+yhM3CgSVpazKdPV8BzDsq1
KijIkN6yeXM4eEvQFuitWxn+/hPatVPgZC1ra+u0tDS8MYIgvEFVVVV6erqD
gwOLVbewoYyM5IwZo+tvboKiHA0Nu5JOwtkvGEUZ8OPHyykpS83Ne9a7u6uy
cOHCR48eQWdQBEGahGfPnkVGRmppaXGezPbooR0TM/fPP3PAMxLKPdrYmJO+
MX26O3hLUJ63qqowK2u9p6ejpKTYl1lwQs7OzllZWbj+KoK0EE6dOuXh4cFZ
24SPj69//16JiaH4ng5K9PIaQXrF8OEDwVuC8qpsdtHZs9tI3auoKMu5RNLT
01uxYsXr16+hEySCIACUlpZu2rTJ2tqas/swiyVgZ9cvNXVZaelF8KyFQhkQ
4EU6w4ABvcFbgvKe167tDQycyFlghNC+fftZs2bl5+dDZ0QEQbiCv/76a9Wq
VaamppwnuaKiwq6uQ9LTV+Ns2BYoGTJIHzAz6w7eEpRnvHfv6JIlvjo6nTml
iIyMjLe394kTJ/AZDYIg/8iDBw/Cw8P19fU5eUNaWmLChOHZ2clVVbjCSUsx
ImImOfW9exuAtwRt7j59emLFigBj4/+lFDExMTc3t4MHD37+/Bk64SEI0jy4
fv16UFCQmpoaJ5MoKMh4eY04eDC+vBw3++NxaU2ip6cB3hK0mXr37pHly+eY
mXXn4+PjzFy1t7ffsWNHWVkZdHpDEKS5kpeXN3PmTM4KJ7WXOaIjR1pv2xb5
5s158NSHNoXh4TPIie7ZUwe8JWgzks0uys9PCw6eRKpZTrrg5+e3tLTcsGFD
SUkJdDJDEIRHqK6uPnny5IwZMzp2/N8KzyyWwMCBJvHxwU+eZIPnQ7QRpXNc
LSyMwFuCcr+VldeOH98wbZqbiooSJzkICgoOGjRo3bp1z549g85eCILwMgUF
BaGhod26dePkn9atW5Nr6qVLZ1y/vh88Q6IN18fHlZxWe3sL8JagXOuHD5f2
7IkbM2aotLQEJxVISEi4uLjs2LHj3bt30IkKQZCWxf379+Pi4vr168d5lZig
oaE6Z45HdnZyRUUBeNpEf83Ro+3IqRw71h68JSi3+eRJ9vr1C4cO7c/Zn5eg
pKTk7e195MgRXP4dQRBwXr58uXHjRgcHBxERkfrTThwcLNesCbpz5zB4IkV/
yv79e5EzOH/+RPCWoNxgefnlzMwkP7+x2trqreqhqanp7+9/7tw5fJkXQRAu
pKysbO/evWPHjpWXl6+fuzp3Vpk2zW3//lW4FFuzkK5nlZQUBt4SFNCbNw/G
xs6ztjYVFf3fLRF+fn4TE5OIiIjff/8dOt8gCIL8EOS66cqVK+Hh4ebm5gIC
AvVmvrEsLY0jI/2uXNnNZheBZ130Wysrr9Hd4Y8dWw/eGJRh377N27Mnzstr
RP0JqwRlZWVPT8+dO3fiwu8IgjRr3r9/v3///smTJ9d/Z4fQtq2ch8ew1NRl
T5+eAE/FKMfffz9ATxDuzNhCJFXo+fOpixZNMzXtRstRirCwsLW1dVRUVGFh
IXQWQRAEaXxu3769evVqGxsbUVHR+vVJly4dJ04cuW1bJL5WDO7mzeHkjCgq
yoK3BG06KyoKzpzZunTpDGtrUzGx/xeMWlpavr6+hw4dwsXNEARpIXz69Ck7
O3vu3Ll6enqcTXYo6uodxo93JCPjgweZ4Km7Berr607Ogq2tOXhL0Ma1vPzy
qVMpCxdOtbQ0rj9FhCApKTl8+PC1a9c+ePAAOjcgCIJA8vLly99++41cmhkY
GHBWoqaoqrYbO9Y+OXkxvrzDmD176pBfnlxBg7cEbbhlZfnZ2ckLFkwxN+8p
LCxUP7ikpaXt7e1jY2Pz8/Orqqqg0wCCIAjXUVJSkp6e7ufn16NHj/rLnrSq
2dBcwd3dLj4++PLltM+fr4Jne5701asztCy8dGkXeGPQX/P589MHDqyZP3+i
mVl3QUFW/SCSk5MbPnz4ypUrr169ii/wIgiC/Djv3r3LyMiYO3eusbFx/Zd3
CCIiQn36GPr5jd25Mxof8TSiO3YsJz+vrKxUdTVuA91s/Pjx8pkzW2Nj57m4
DKbvcddHUVHRyclp9erV169fZ7PZ0GGNIAjS7CktLT169GhgYGDfvn3btGnz
TdaVHTq0/5IlvseOrX/7Ng98jGi+urnZkt/Tw2MYeEvQ78hmF/3++4GUlKU+
Pq7du2uzWAJfRUSnTp3c3NzWrl2Lq4ggCII0KZWVlQUFBevWrRs/fryOjs5X
U1DI/+zaVW3cOIeEhBB8yvNTfvhwqU2bmpV4jx5NBG8M+pXPnp08cGBNcPAk
KysTSUmxr4oQSUlJa2vr4ODggwcPPn/+HDpGEQRBWijv3r3Lzs5eunSpg4ND
27Ztv8rV5BLSwKALKVGio+ccP77h1asz4IML10of3CgoyFRWXgNvTAuXnIKi
on3bt0fNm+c5aFCftm3lvunYrB49evj4+KSkpNy8eRMfyiAIgnAhjx49SktL
mz17dt++fb9aBYXSvr2Cra15QIDXrl0xN28erKrCiRN10m1u/P0ngLekBfrm
zfkTJzatWhXo6enYo4f2V+/IcJ7IuLq6xsXFnT179uPHj9ChhiAIgvwElZWV
RUVF27ZtmzdvnpWVlaKi4rd5XlRU2MhIb+LEkfHxwbm5W0pKzoEPTyBeubKb
Pvl6+PAYeGN4XlIJ37lzePfu2JCQyfb2Ft9OTKV3QgwMDMaMGRMdHZ2VlfXi
xQvoeEIQBEEak2fPnh09enTZsmWjRo3S1dX96nUeioKCTL9+Pb29naKj5xw6
lHD37pGWcC/F1tacfHcyPoK3hPd8+zbvwoUdmzeHBwZOHDHCSken81ev6FJk
ZGQGDBjg5+eXkpJSUFBQUVEBHS4IgiAIc5SXl+fn5ycnJ0+fPr1///5SUlLf
jhQEISFBXV0NMprMnz9xy5aIixd38tjbPbm5W+g3PXcuFbwxzVpSvt67d/Tw
4bUxMXMnTXLu37/Xt1NBKPz8/Jqams7OzuHh4RkZGU+ePIGOBgRBEIS7IEPD
8ePH4+PjSZVibW2tqqr61dL3HJSU5C0sjMi4Exnpt3NndF7e9r/+OgU+Jv6a
Zmbd8SbJz1pefvnmzYNHjqxbu3aBv/+EkSOt9fQ0SPn6j72lTZs23bt3HzVq
1MKFC3fu3FlQUIATQhAEQZCfpays7MqVK2QcCQsLc3V1NTQ0/HaBFA4iIkLa
2uo2NuY+Pq5RUbPT0mIuXtz54kUu+AD6HffsiWtVO5OkqGgfeGO40E+frty6
lZGZmZSYGBoYOHHUKBsTEwNSkf5bHyBFrIqKipWV1bRp00hxm5WV9fjxY+he
jCAIgvAsjx49ImPNmjVryLhjZ2eno6PznUKl9jJZREens51dv2nT3EitsmVL
RFbW+uvX94O/m/z69Vn6cMHd3Q589IctPB4/Pn7uXOr+/avi44ODgrzJD9Kn
j2G7dgr/dqOMlh/t2rXr06ePu7t7aGjojh07SPn64cMH6O6JIAiCtHRevHhx
8eLFtLS0qKgoHx8fGxsbbW1tERGR79QqrWonq6ioKJFLbwcHy6lTRy1cOHXD
hkUHD8ZfvpxWXJzT1NNrR4+2a1WzHZsEORZ4YdCklpZe/OOPjFOnUnbsWB4X
5z9vnueYMUOtrExIrSgnJ/39c1S/9ggKCkpKSsrMzLx169anT5+gOx2CIAiC
/AR//fVXXl7ezp07IyMjJ0+ebGtr261bNyUlpa9WoP1HyL9p21bOwKCLhYXR
iBFWXl4jyGAaGemXlBS2Z09cdnZyQcGeR4+y3r+/8AvDNF0kjbBp0xLwmuHX
rKy89vz5aVJsnDuXmpGRsHVr5MqVgaGhPr6+7qTcsrExJ8WehoYqXZ/2P2nT
po2Ghkbfvn1HjRoVGBiYmJiItQeCIAjSEqiqqnr69Only5czMjI2bNiwaNGi
qVOnDhs2zMTERFVVVUjoH1bN+g4sloCCgoyWVidT0262tuZjxgz19nby95+w
YMEUUsMkJISQI6SlxZCBOytrfX5+2u7dcSIiNYcYNKgPbF1RUVFQUnLu8ePj
d+4cJg3Lzd1CWkgqrtTUZYmJoTExcyMiZpIvMmPGaPKNRo60trQ0NjTsqqra
Tlz8e8/L/hE5OTkdHR0rK6sxY8bMmzcvLi5ux44dp06d+uOPP0pLS6F7BIIg
CIJwKa9fv75+/frx48e3bt26atWqsLAwX19fMpja2tqamppqaWkpKCiwWP+w
0sUvQOoTaWmJTp3aq6kpUw0MuvTooc1x4EATjoMHmzk5DfpHHR0H1P+XZmbd
6/9HunTpyPnvt20rR474ndkaP4W4uDgp5Lp162ZpaTly5MiJEyf6+/svW7Zs
/fr1+/fvP3eO1DyP8XYHgiAIgjQp79+/f/jwYUFBQXZ29u7du5OSkiIjI8mI
PGnSJA8PDycnpyFDhpCRugepCbS11dTUZGVlxcS+3sSNS+Dn55eWlm7fnpRG
aqTBJiaksBno6Ojo6urq7e09Y8aM0NDQlStXbtmyJSMj4+zZszdv3nz+/Pnn
z5+hTwKCIAiCIL/O27dvX79+fe/evRs3buTn55OSJisr68CBA2n1SE5OTqxH
ZD2WLFniX4+goKD6f12xYkX9/8PU1NT6/9ljx46RY507d44clzTgzz//LCkp
qaqqgv5JEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARpTP4PWwzKrQ==
    "], {{0, 441.}, {732., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->72],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{258., Automatic},
  ImageSizeRaw->{732., 441.},
  PlotRange->{{0, 732.}, {
    0, 441.}}]],ExpressionUUID->"78361bbf-e3b6-4d84-8614-cb42d94d6067"]], \
"Text",
 CellChangeTimes->{3.931844276977343*^9},
 CellID->2049094313,ExpressionUUID->"ccf7c46a-a027-4284-9233-bc7aae6c9719"],

Cell["\<\
Look up the \[OpenCurlyDoubleQuote]most important numbers in mathematics\
\[CloseCurlyDoubleQuote] or \[OpenCurlyDoubleQuote]most famous numbers in the \
world\[CloseCurlyDoubleQuote] on the web, and you\[CloseCurlyQuote]ll look at \
lists of all kinds of different numbers.\
\>", "Text",
 CellChangeTimes->{{3.899868693983129*^9, 3.8998687402849293`*^9}, {
  3.8998687964454327`*^9, 3.899868874867828*^9}, {3.930825991378729*^9, 
  3.9308259922579327`*^9}, {3.943372763555565*^9, 3.943372788558687*^9}},
 CellID->1212227438,ExpressionUUID->"eb2ea8c9-348e-4537-b588-a18ffdb74610"],

Cell["\<\
We guarantee that the following numbers will be on most of the lists:\
\>", "Text",
 CellChangeTimes->{{3.899868693983129*^9, 3.8998687402849293`*^9}, {
  3.8998687964454327`*^9, 3.89986890573568*^9}, {3.930825996371378*^9, 
  3.930825996747602*^9}},
 CellID->1472203448,ExpressionUUID->"79d1c9c5-fa26-466e-86b1-5000a0e7b3e7"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Pi]", "=", 
    RowBox[{"3.1415`", " ", "\[Ellipsis]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"38f31259-7e5c-4b9e-b5a8-ffec889c6ffd"],
 " (the ratio of the circumference of a circle to the diameter and so much \
more)"
}], "Item",
 CellID->407227083,ExpressionUUID->"3850b0a2-ea13-44cb-8827-ebea60b8c37f"],

Cell[TextData[{
 "The constant ",
 Cell[BoxData[
  FormBox["\[Pi]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fd766b4c-0bae-4745-bb10-6903f87f0c59"],
 " is fundamental to any equation describing circular or harmonic motion. It \
is a fundamental relationship in mathematics."
}], "Text",
 Background->None,
 CellID->2061008074,ExpressionUUID->"3a3d897b-a8a6-43f9-b620-d50879cd6678"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[ExponentialE]", "=", 
    RowBox[{"2.7182`", " ", "\[Ellipsis]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"88758f2a-c266-4b69-99c9-307c9149222e"],
 " (Euler\[CloseCurlyQuote]s number, also known as the exponential growth \
constant)"
}], "Item",
 CellID->1698746624,ExpressionUUID->"d990c435-8f75-4bd5-94ca-459c31aec6da"],

Cell["\<\
Euler\[CloseCurlyQuote]s number is critical in finance for calculating \
compound interest, a fundamental concept in understanding the time value of \
money.\
\>", "Text",
 CellChangeTimes->{3.9557187745147038`*^9},
 Background->None,
 CellID->1720853559,ExpressionUUID->"6083a332-bda8-4005-a430-e1ec9a8176ae"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Phi]", "=", 
    RowBox[{"1.6180", " ", "\[Ellipsis]"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"33c98937-2e05-4874-bb20-6b66ab15946c"],
 " (the golden ratio)"
}], "Item",
 CellID->39422703,ExpressionUUID->"e23f2845-df7c-4413-89dc-495cc422fbc2"],

Cell["\<\
In technical analysis, the golden ratio helps some financial analysts predict \
whether a market will continue its path or reverse. It\[CloseCurlyQuote]s \
also commonly seen in nature; for instance, naturally occurring spirals that \
expand outward in a geometric pattern can be found in seashells, pinecones \
and sunflower seeds.\
\>", "Text",
 Background->None,
 CellID->1929867578,ExpressionUUID->"e8f2437e-b959-4ac9-8d0b-81086fb8a676"],

Cell["\<\
These numbers are not integers. In fact, integers are rather a small group of \
numbers on the number line.\
\>", "Text",
 CellChangeTimes->{{3.899868920535099*^9, 3.899868936969816*^9}, {
  3.899868998622672*^9, 3.899869006550231*^9}, {3.899869402335517*^9, 
  3.899869408285679*^9}, {3.9308260428849697`*^9, 3.9308260486437397`*^9}},
 CellID->1105536980,ExpressionUUID->"8497170a-af16-4575-8fb1-3653acf8d939"],

Cell[TextData[{
 "There are other numbers as well: rational and irrational numbers. Their \
union is ",
 StyleBox["real numbers",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.888585526463085*^9, 3.888585618900361*^9}, {
  3.888585657568034*^9, 3.8885856685043845`*^9}, {3.888656421099552*^9, 
  3.888656421701409*^9}, {3.889177927890662*^9, 3.8891779292956057`*^9}, {
  3.930826053248225*^9, 3.930826053524858*^9}},
 CellID->1066763877,ExpressionUUID->"34041a00-3079-45dc-bd0d-900425c805b7"],

Cell["\<\
In this lesson, we will primarily discuss how to represent rational numbers \
and touch on the topic of irrational numbers. The representation of integers \
is trivial.\
\>", "Text",
 CellChangeTimes->{
  3.888585629616372*^9, {3.9308260652194233`*^9, 3.9308260655752983`*^9}},
 CellID->1714653497,ExpressionUUID->"37f7e089-b562-4750-85c5-82d43b14caef"],

Cell[CellGroupData[{

Cell["Numbers on the Number Line", "Subsection",
 CellChangeTimes->{
  3.705661467691627*^9, 3.705664374467309*^9, {3.706023974431719*^9, 
   3.706023992953767*^9}, {3.708794375453041*^9, 3.7087943777965803`*^9}, {
   3.712676398891074*^9, 3.712676404488254*^9}, {3.888585787618183*^9, 
   3.8885857889298763`*^9}, {3.8886433690214252`*^9, 3.8886433869072437`*^9}, 
   3.888656629473545*^9},
 CellID->917673737,ExpressionUUID->"3865ca0f-062c-4089-9377-a87326fed8b2"],

Cell[TextData[{
 "An ",
 StyleBox["integer",
  FontSlant->"Italic"],
 " is a number that can be written without a fractional component. The set of \
integers is denoted by ",
 Cell[BoxData[
  FormBox["\[DoubleStruckCapitalZ]", TraditionalForm]], "InlineMath",
  ExpressionUUID->"21737da3-7858-4144-9394-c658d52e929d"],
 ":"
}], "Text",
 CellID->114945005,ExpressionUUID->"5a1e83cd-69ff-4219-bc1c-4138324722dd"],

Cell[BoxData[
 FormBox[
  RowBox[{"1", ",", 
   RowBox[{"-", "3"}], ",", "5", ",", "19", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1533155041,ExpressionUUID->"c80ce58f-32bf-4f53-8e96-3211de8b7e48"],

Cell[TextData[{
 "Positive integers are called ",
 StyleBox["natural numbers",
  FontSlant->"Italic"],
 " and are denoted by ",
 Cell[BoxData[
  FormBox["\[DoubleStruckCapitalN]", TraditionalForm]], "InlineMath",
  ExpressionUUID->"179a6c40-dcf4-4590-8216-32bccaf9a4c9"],
 ":"
}], "Text",
 CellID->1537179928,ExpressionUUID->"c7ab1527-ecd6-4d76-8dab-07dae48c1725"],

Cell[BoxData[
 FormBox[
  RowBox[{"2", ",", "7", ",", "10", ",", "158", ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->167853030,ExpressionUUID->"cd12eee3-fe2d-42df-a412-2fb024b7e053"],

Cell["So integers include natural numbers:", "Text",
 CellChangeTimes->{{3.8891780960567355`*^9, 3.889178104625985*^9}, {
  3.9308226751033154`*^9, 3.930822675812793*^9}, {3.9433733601370087`*^9, 
  3.9433733622935925`*^9}},
 CellID->1518682263,ExpressionUUID->"bbd71693-2ecb-4e83-bf2d-593806928eaf"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[DoubleStruckCapitalN]", "\[Subset]", "\[DoubleStruckCapitalZ]"}],
   TraditionalForm]], "DisplayFormula",
 CellID->1852513862,ExpressionUUID->"ccb437bd-7010-4bb8-b49f-70df9fc8a65a"],

Cell[TextData[{
 "A ",
 StyleBox["rational number",
  FontSlant->"Italic"],
 " is a number that can be expressed in the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "/", "b"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "999b8cd3-5dd1-496f-87d4-5d7dc3707d12"],
 ", where ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a63cf5b7-8e23-4589-a62f-3fb0d2643f5c"],
 " and ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "6045bb60-3540-4a1e-b25f-720d0b92fc62"],
 " are integers and ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4518f0f0-f61f-42c2-86a8-318a835f88f9"],
 " is not zero. The set of rational numbers is represented by the symbol ",
 Cell[BoxData[
  FormBox["\[DoubleStruckCapitalQ]", TraditionalForm]], "InlineMath",
  ExpressionUUID->"d4c63a73-673c-4c02-a4d0-4628aa991158"],
 ":"
}], "Text",
 CellID->1647717552,ExpressionUUID->"46edc832-5e77-4f04-9c5f-66a88803cde0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", "2"], ",", " ", 
   FractionBox["3", "10"], ",", 
   FractionBox["20", "3"], ",", 
   FractionBox["5", "1"], ",", "\[Ellipsis]"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->228827214,ExpressionUUID->"5e3b3ad9-3a2b-4485-acdb-fae1340153e6"],

Cell["So integers are included in rational numbers:", "Text",
 CellChangeTimes->{{3.8045775880826244`*^9, 3.8045776033423605`*^9}, {
  3.804579301970951*^9, 3.804579306382428*^9}, {3.8045794699851046`*^9, 
  3.804579472612615*^9}, {3.804580786092661*^9, 3.804580786428487*^9}, {
  3.8049137419846506`*^9, 3.80491374705275*^9}, {3.8886435021422157`*^9, 
  3.88864350247959*^9}, {3.8891781234375377`*^9, 3.889178123648811*^9}, {
  3.8891781965285997`*^9, 3.88917819858599*^9}, {3.9433733813565636`*^9, 
  3.943373397313051*^9}, {3.9495076239839096`*^9, 3.949507624437626*^9}},
 CellID->590026514,ExpressionUUID->"e8cdcd1d-4bba-489f-80d3-cc7097dbfff9"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[DoubleStruckCapitalZ]", "\[Subset]", "\[DoubleStruckCapitalQ]"}],
   TraditionalForm]], "DisplayFormula",
 CellID->6707599,ExpressionUUID->"9ccb0963-9c7e-429f-9c8a-4df07a0ac0bb"],

Cell[TextData[{
 "Rational numbers are included in",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["real numbers",
  FontSlant->"Italic"],
 ".",
 StyleBox[" ",
  FontWeight->"Bold"],
 "The latter are denoted by ",
 Cell[BoxData[
  FormBox["\[DoubleStruckCapitalR]", TraditionalForm]], "InlineMath",
  ExpressionUUID->"b58652ac-5522-48ca-939d-753d9b488c7e"],
 ":"
}], "Text",
 CellID->1282870032,ExpressionUUID->"ccaa233f-2cf9-43d6-b903-b2b28fe0588e"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[DoubleStruckCapitalQ]", "\[Subset]", "\[DoubleStruckCapitalR]"}],
   TraditionalForm]], "DisplayFormula",
 CellID->2123643634,ExpressionUUID->"33c8d89f-0b31-45e1-8ff9-bede967359e2"],

Cell["All the numbers on the number line are real numbers.", "Text",
 CellChangeTimes->{{3.804837837613989*^9, 3.804837840212502*^9}, {
   3.804838116596373*^9, 3.804838128966296*^9}, 3.8049136860771475`*^9},
 CellID->1040311726,ExpressionUUID->"89af7ae0-40cd-4180-8590-4e7476e62517"],

Cell[TextData[{
 "Real numbers that are not rational are called ",
 StyleBox["irrational numbers",
  FontSlant->"Italic"],
 ":"
}], "Text",
 CellChangeTimes->{{3.8045812005325346`*^9, 3.804581251132586*^9}, {
   3.8048381325002737`*^9, 3.804838176798929*^9}, 3.8048387911778717`*^9, {
   3.888643601015088*^9, 3.88864362476947*^9}, {3.888656538883874*^9, 
   3.888656559234932*^9}, {3.943373414989012*^9, 3.943373418821575*^9}},
 CellID->1854808655,ExpressionUUID->"e2d0ac9d-21e0-4d9a-87a5-027c92db46a5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SqrtBox["2"], ",", "\[Pi]", ",", 
   SqrtBox["10"], ",", "\[Ellipsis]"}], TraditionalForm]], "DisplayFormula",
 CellID->288020076,ExpressionUUID->"9253abe6-4aef-4688-ae46-0cc930e1b929"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decimal Numeral System", "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.706024389440628*^9, 3.706024391300583*^9}, {
   3.7976520895337343`*^9, 3.797652105661491*^9}, {3.7976532418184524`*^9, 
   3.797653244565878*^9}, {3.79844860308808*^9, 3.7984486065632563`*^9}, {
   3.7987899611366005`*^9, 3.7987899927535*^9}, {3.7988627139199276`*^9, 
   3.798862720107401*^9}, {3.798862814998068*^9, 3.798862816060444*^9}, {
   3.9512347888957996`*^9, 3.951234788989107*^9}},
 CellID->797599538,ExpressionUUID->"959dbc9c-51b4-4179-95dd-cc5ec385775a"],

Cell["\<\
First, all the numbers you will examine are in decimal numeral system.\
\>", "Text",
 CellChangeTimes->{{3.8048409635193496`*^9, 3.8048410063328395`*^9}, {
  3.804856479006446*^9, 3.804856541772127*^9}, {3.8049144573200197`*^9, 
  3.8049144579806457`*^9}, {3.888656676107425*^9, 3.8886566764069858`*^9}, {
  3.9308261138152246`*^9, 3.93082611414347*^9}, {3.951234795173521*^9, 
  3.951234795243881*^9}},
 CellID->662510592,ExpressionUUID->"76f37b62-2121-4069-ada2-347dc8a87e53"],

Cell[TextData[{
 "The ",
 StyleBox["decimal numeral system",
  FontSlant->"Italic"],
 " is the standard system for representing integers and nonintegers."
}], "Text",
 CellChangeTimes->{{3.7988627374654436`*^9, 3.7988627993420315`*^9}, {
   3.798862854592379*^9, 3.798862903290513*^9}, {3.804841140012356*^9, 
   3.8048411727146444`*^9}, 3.932555036493814*^9, 3.9433743952671127`*^9, {
   3.9512347533680363`*^9, 3.951234753462303*^9}},
 CellID->112810049,ExpressionUUID->"0b7886d1-9aa7-4fb9-979f-78c31fc63b63"],

Cell[TextData[{
 "The way of denoting numbers in the decimal system is frequently called ",
 StyleBox["decimal notation",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.798862936193673*^9, 3.798862946787589*^9}, {
  3.955719122393581*^9, 3.955719133277278*^9}},
 Background->None,
 CellID->1917916889,ExpressionUUID->"743bad25-7cbc-44dd-8d9e-e543ecfded33"],

Cell[TextData[{
 "A ",
 StyleBox["decimal number",
  FontSlant->"Italic"],
 ", or just a ",
 StyleBox["decimal",
  FontSlant->"Italic"],
 ", refers to the notation of a number in the decimal numeral system",
 "."
}], "Text",
 CellChangeTimes->{
  3.798862995087932*^9, {3.930826129604823*^9, 3.9308261299966307`*^9}, {
   3.9433745062824707`*^9, 3.9433745065300503`*^9}},
 CellID->699611953,ExpressionUUID->"1a64bfa3-0e84-43d9-97cb-6cfaa7a12bea"],

Cell["\<\
For example, all of the following integer and noninteger numbers are decimal \
numbers:\
\>", "Text",
 CellChangeTimes->{{3.7988630104581504`*^9, 3.79886303396469*^9}, {
   3.804841764116313*^9, 3.8048417668247633`*^9}, 3.943374479535946*^9, {
   3.943374567132889*^9, 3.9433745672760296`*^9}},
 CellID->905126746,ExpressionUUID->"e6a2540f-1bcb-4da3-9f1c-d03445fab2c3"],

Cell[BoxData[
 FormBox[
  RowBox[{"14", ",", "0.75", ",", 
   RowBox[{"-", "9"}]}], TraditionalForm]], "DisplayFormula",
 CellID->450462660,ExpressionUUID->"e6773afd-3b70-4327-b844-e18b5aa968a7"],

Cell["For writing integers, the decimal system uses:", "Text",
 CellChangeTimes->{{3.798862973206462*^9, 3.798862993440878*^9}, {
   3.7988631236103616`*^9, 3.7988631266816053`*^9}, {3.7988637336352158`*^9, 
   3.798863770521559*^9}, 3.804841796696673*^9, {3.8048422721592226`*^9, 
   3.804842288844677*^9}, 3.8048434512333527`*^9, {3.8891758730457277`*^9, 
   3.8891758735474567`*^9}, {3.943374573005995*^9, 3.9433745763993626`*^9}},
 CellID->339434364,ExpressionUUID->"943bb3be-d921-4e2e-99db-ac8e3a137511"],

Cell[CellGroupData[{

Cell[TextData[{
 "Ten digits: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
    "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7",
      ",", "8", ",", "9"}], "}"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"e903ba4a-0459-4543-b818-61edf79855e2"]
}], "Item",
 CellID->1156789316,ExpressionUUID->"cb277f8a-d3b8-4d9c-984e-cf5f36ec9e87"],

Cell["The minus sign \[OpenCurlyDoubleQuote]\[Dash]\[CloseCurlyDoubleQuote] \
for negative integers", "Item",
 CellChangeTimes->{{3.8048422926155186`*^9, 3.804842313021829*^9}, {
  3.888666761783019*^9, 3.888666761786018*^9}, {3.8886668046359963`*^9, 
  3.888666824913303*^9}, {3.8886668557246056`*^9, 3.8886668558557234`*^9}, {
  3.888726133216956*^9, 3.888726143037426*^9}, {3.8891758439056735`*^9, 
  3.8891758487344837`*^9}, {3.8891830473179064`*^9, 3.8891830550724277`*^9}, {
  3.9433745919090157`*^9, 3.943374629643423*^9}, {3.9495078309221992`*^9, 
  3.949507836540636*^9}},
 CellID->988577721,ExpressionUUID->"e5b51b54-fdd0-4206-80de-384f45e4abe1"]
}, Open  ]],

Cell["For writing noninteger numbers, it uses:", "Text",
 CellChangeTimes->{{3.7988637956352005`*^9, 3.7988639022121735`*^9}, {
   3.804843461878248*^9, 3.804843462187071*^9}, {3.8049145204699078`*^9, 
   3.80491452106057*^9}, 3.888644715696067*^9, {3.889175898974251*^9, 
   3.8891758991851625`*^9}, 3.943374483052191*^9, {3.9433746344350605`*^9, 
   3.943374635968542*^9}},
 CellID->2092263655,ExpressionUUID->"0ee0fd05-3080-4ba6-b46c-d41ddad0bc69"],

Cell["A decimal separator \[OpenCurlyDoubleQuote].\[CloseCurlyDoubleQuote]", \
"Item",
 CellChangeTimes->{{3.8048422926155186`*^9, 3.804842313021829*^9}, {
  3.888666761783019*^9, 3.888666761786018*^9}, {3.8886668046359963`*^9, 
  3.888666852874322*^9}, {3.8887261385154305`*^9, 3.8887261406440573`*^9}, {
  3.8891758858655653`*^9, 3.889175895875718*^9}, {3.889183059596655*^9, 
  3.889183064314148*^9}, {3.9433746385708466`*^9, 3.9433746413843975`*^9}},
 CellID->1778013607,ExpressionUUID->"52c6f271-19a3-4f67-8a28-8118b8776af4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decimals", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.706025644615675*^9, 
   3.7060256483507137`*^9}, {3.797656584835978*^9, 3.797656589705188*^9}, {
   3.798448759855281*^9, 3.7984487625586023`*^9}, {3.7987900007878976`*^9, 
   3.798790002399974*^9}, {3.798862685921975*^9, 3.7988626937735186`*^9}, {
   3.7988650563282747`*^9, 3.7988650582701445`*^9}, 3.804856635357125*^9},
 CellID->329065024,ExpressionUUID->"00473786-ff19-488b-aafc-802004b3f984"],

Cell[TextData[{
 "The ",
 StyleBox["integer part",
  FontSlant->"Italic"],
 " of a decimal is the integer written to the left of the decimal separator. \
The part from the decimal separator to the right is the ",
 StyleBox["fractional part",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.798864759001567*^9, 3.7988647886875386`*^9}},
 CellID->825467343,ExpressionUUID->"1666619f-354f-4817-847b-41a9073d4499"],

Cell[TextData[{
 "For example, the integer part of the decimal ",
 Cell[BoxData[
  FormBox["18.75`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4ef35f9f-0900-42e5-aa16-51b530f0d43e"],
 " is ",
 Cell[BoxData[
  FormBox["18", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3ecb68d3-f68d-413a-b15c-d4510b42524f"],
 ", and the fractional part is ",
 Cell[BoxData[
  FormBox[".75", TraditionalForm]], "InlineMath",ExpressionUUID->
  "15e7222b-58e2-4e2f-ae4c-d8763ad1b567"],
 " or ",
 Cell[BoxData[
  FormBox["0.75`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ba184656-7240-4b0a-b21b-fddd4c4dd814"],
 "."
}], "Text",
 CellID->885274181,ExpressionUUID->"251e1b45-7f74-46e7-8fdc-f7e444c36613"],

Cell["\<\
The fractional part equals the difference between the decimal and its integer \
part:\
\>", "Text",
 CellChangeTimes->{{3.7988642043152065`*^9, 3.798864220627869*^9}, {
  3.79886473615662*^9, 3.798864778234542*^9}, {3.7988649729090214`*^9, 
  3.798865000312348*^9}, {3.8049145506756268`*^9, 3.8049145532421403`*^9}, {
  3.949507976307087*^9, 3.9495079766224136`*^9}},
 CellID->1036453651,ExpressionUUID->"8927d655-911a-4ce5-a663-ac6acce5a6a5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"18.75`", "-", "18"}], "=", "0.75"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->731214640,ExpressionUUID->"adc53b43-af83-4f3a-a559-fa07be03483f"],

Cell[TextData[{
 "You can have one or more ",
 Cell[BoxData[
  FormBox["0", TraditionalForm]], "InlineMath",ExpressionUUID->
  "facb4329-94f9-46f2-affa-0fd7246203d1"],
 "s on the left. This does not change the decimal\[CloseCurlyQuote]s value. \
For example,"
}], "Text",
 Background->None,
 CellID->1643789559,ExpressionUUID->"ee8aeb62-0c84-4ccc-a3fa-d1142b622152"],

Cell[BoxData[
 FormBox[
  RowBox[{"4.15", "=", 
   RowBox[{"04.15", "=", "004.15"}]}], TraditionalForm]], "DisplayFormula",
 CellID->1353996293,ExpressionUUID->"6b1c583c-9774-454c-9b18-72db3d4c50fe"],

Cell["\<\
In the same way, adding trailing zeros doesn\[CloseCurlyQuote]t change the \
represented number. For example,\
\>", "Text",
 CellChangeTimes->{
  3.798867250259756*^9, 3.9308261929692907`*^9, {3.94337525890411*^9, 
   3.9433752593305416`*^9}, {3.9495079807399635`*^9, 3.949507981332693*^9}, {
   3.955719340689094*^9, 3.955719368618689*^9}},
 Background->None,
 CellID->1640013217,ExpressionUUID->"0d068bba-e48f-4886-b7c2-0efd7bc59de3"],

Cell[BoxData[
 FormBox[
  RowBox[{"19", "=", 
   RowBox[{"19.0", "=", "19.00"}]}], TraditionalForm]], "DisplayFormula",
 CellID->479201554,ExpressionUUID->"4fc49449-4072-41aa-8a19-5e0cccccd313"],

Cell[BoxData[
 FormBox[
  RowBox[{"7.8", "=", 
   RowBox[{"7.80", "=", "7.800"}]}], TraditionalForm]], "DisplayFormula",
 CellID->876841828,ExpressionUUID->"40c5baa6-9ea2-49fb-9fbf-b7f3bff801e6"],

Cell[TextData[{
 "The integral part of a numeral may be left out if it is zero. Like in the \
previous example, instead of ",
 Cell[BoxData[
  FormBox["0.75`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8dec4bf0-953e-4b20-b64e-5a17f6cd479f"],
 ", you can write ",
 Cell[BoxData[
  FormBox[".75", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1fdf5b87-68e2-4147-a32e-7a8f022cd9c6"],
 "."
}], "Text",
 Background->None,
 CellID->37197001,ExpressionUUID->"50718967-7629-4a72-a404-c2147fcd8cad"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decimals as the Sum of Digits", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.7988677660044117`*^9, 
   3.79886777015763*^9}, {3.804856639481848*^9, 3.804856642413642*^9}, {
   3.8886447994134912`*^9, 3.8886448118334894`*^9}, {3.8886567379276257`*^9, 
   3.8886567439439697`*^9}},
 CellID->2019782240,ExpressionUUID->"ee881fc4-e7fa-4a94-9ded-e2868ae96fb7"],

Cell[TextData[{
 "Any number in the decimal numeral system can be decomposed as the sum of \
its digits multiplied by the power of ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9a06ddfd-21c0-4ade-b020-f8c64c0a5aef"],
 " depending on their position."
}], "Text",
 CellID->1206099551,ExpressionUUID->"4602a9c6-b1bf-4eb6-bf77-e9c641345805"],

Cell[TextData[{
 "For example, the number ",
 Cell[BoxData[
  FormBox["48967", TraditionalForm]], "InlineMath",ExpressionUUID->
  "704d21d5-3658-4cc6-a1a0-8e905cbef547"],
 " is represented as"
}], "Text",
 CellID->817009624,ExpressionUUID->"e060376a-fc77-4bd8-ab0d-e964060575e3"],

Cell[BoxData[
 FormBox[
  RowBox[{"48967", "=", 
   RowBox[{
    RowBox[{"7", "*", 
     SuperscriptBox["10", "0"]}], "+", 
    RowBox[{"6", "*", 
     SuperscriptBox["10", "1"]}], "+", 
    RowBox[{"9", "*", 
     SuperscriptBox["10", "2"]}], "+", 
    RowBox[{"8", "*", 
     SuperscriptBox["10", "3"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["10", "4"]}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->531727450,ExpressionUUID->"cd3a4bda-769b-4f82-9a9e-0e7a3f466490"],

Cell["\<\
The rule is quite the same with nonintegers in a way that the contribution of \
each digit to the value of a number depends on its position in the numeral. \
\>", "Text",
 CellChangeTimes->{{3.798874413457433*^9, 3.7988744891420956`*^9}, 
   3.8048547528481736`*^9, 3.94337448583362*^9},
 CellID->1788080590,ExpressionUUID->"3c6bc480-a555-4134-a025-a6c5ff9c0ed4"],

Cell[TextData[{
 "For example, the decimal ",
 Cell[BoxData[
  FormBox["14.254`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1484271b-0ce7-4411-b0a7-5f3ef8dea3a9"],
 " is represented as"
}], "Text",
 CellID->384320012,ExpressionUUID->"b3205473-dc8f-4275-bb85-903e3f8c51cd"],

Cell[BoxData[
 FormBox[
  RowBox[{"14.254", "=", 
   RowBox[{
    RowBox[{"1", "*", 
     SuperscriptBox["10", "1"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["10", "0"]}], "+", 
    RowBox[{"2", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "1"}]]}], "+", 
    RowBox[{"5", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "2"}]]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "3"}]]}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->1438098735,ExpressionUUID->"bb293876-3b7b-422b-9cdb-9d87764791a5"],

Cell[TextData[{
 "You see, the digits after the decimal point are multiplied with the \
negative powers of ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "120da478-d534-644f-85b0-0cd51c5aeee6"],
 "."
}], "Text",
 CellID->682116200,ExpressionUUID->"708c2259-3148-48dd-9d63-a093e4214b1e"],

Cell["A couple more examples are", "Text",
 CellChangeTimes->{{3.798875114197792*^9, 3.7988751219443436`*^9}, {
  3.9495080218238163`*^9, 3.9495080223660164`*^9}, {3.9497588374319744`*^9, 
  3.9497588399650135`*^9}},
 CellID->1059265714,ExpressionUUID->"7d1f09a0-47a7-4f6b-afec-2702dc990c4d"],

Cell[BoxData[
 FormBox[
  RowBox[{"23.8", "=", 
   RowBox[{
    RowBox[{"2", "*", 
     SuperscriptBox["10", "1"]}], "+", 
    RowBox[{"3", "*", 
     SuperscriptBox["10", "0"]}], "+", 
    RowBox[{"8", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "1"}]]}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->1131070052,ExpressionUUID->"88bde60c-550c-47e8-88d5-bef11bfdd6cc"],

Cell[BoxData[
 FormBox[
  RowBox[{"0.75", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"0", "*", 
      SuperscriptBox["10", "0"]}], "+", 
     RowBox[{"7", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "1"}]]}], "+", 
     RowBox[{"5", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}]}], "=", 
    RowBox[{
     RowBox[{"7", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "1"}]]}], "+", 
     RowBox[{"5", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}]}]}]}], TraditionalForm]], "DisplayFormula",
 CellID->369120720,ExpressionUUID->"e0fcba33-0273-44e6-9591-81c2caaefc37"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Types of Decimals", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.7988752511953187`*^9, 
   3.798875252488579*^9}, {3.798885875582883*^9, 3.7988858836142826`*^9}},
 CellID->1005208539,ExpressionUUID->"b15082ae-e6d8-48c4-b4b6-7fba4f686730"],

Cell[TextData[{
 "There are two types of decimals, ",
 StyleBox["terminating",
  FontSlant->"Italic"],
 " and ",
 StyleBox["non-terminating",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.798886639984167*^9, 3.798886643763035*^9}, {
   3.7988867349557953`*^9, 3.798886779766131*^9}, 3.798886829196827*^9, {
   3.9433753692905045`*^9, 3.943375369873991*^9}},
 CellID->286064024,ExpressionUUID->"8af26d6e-5b73-4f7e-ab31-fe7ac5881415"],

Cell[TextData[{
 StyleBox["Terminating",
  FontSlant->"Italic"],
 " decimal numbers have a finite number of digits after the decimal point. \
These types of decimal numbers are also known as ",
 StyleBox["exact decimal numbers",
  FontSlant->"Italic"],
 ". Examples are"
}], "Text",
 CellChangeTimes->{
  3.798886868758175*^9, {3.798886932877469*^9, 3.7988869490012617`*^9}, 
   3.798887035141924*^9, {3.798887085170265*^9, 3.7988870893738856`*^9}, {
   3.799058239729929*^9, 3.7990582625038896`*^9}, {3.943375380321697*^9, 
   3.943375381253603*^9}, 3.9495080279288425`*^9},
 CellID->1809649382,ExpressionUUID->"b3211de5-6431-449e-b025-2cb389712673"],

Cell[BoxData[
 FormBox["1.89", TraditionalForm]], "DisplayFormula",
 CellID->1034587379,ExpressionUUID->"604388d2-39e5-4c72-af12-58979068562c"],

Cell[BoxData[
 FormBox["15.7", TraditionalForm]], "DisplayFormula",
 CellID->134989094,ExpressionUUID->"35b3d7d5-2e2e-4df0-b37a-126a05e8353b"],

Cell["Terminating decimal numbers represent rational numbers.", "Text",
 CellChangeTimes->{{3.804855450974804*^9, 3.804855463888402*^9}, {
   3.8048567013924904`*^9, 3.8048567021407723`*^9}, 3.804914673174914*^9},
 CellID->743357398,ExpressionUUID->"37e995a9-6c0d-423c-8db2-d8f98b316fcd"],

Cell[TextData[{
 "The digits after the decimal point of ",
 StyleBox["non-terminating",
  FontSlant->"Italic"],
 " decimals repeat endlessly, so these decimal numbers have an infinite \
number of digits after the decimal point."
}], "Text",
 CellChangeTimes->{
  3.7988871358112965`*^9, {3.798887288962574*^9, 3.7988873543411393`*^9}, {
   3.88864484317632*^9, 3.888644850927765*^9}, {3.889183186371995*^9, 
   3.8891831874384384`*^9}, {3.949758885720949*^9, 3.9497588881383343`*^9}},
 CellID->1695413587,ExpressionUUID->"f4f5e431-166e-4ba7-923b-ccca656e259c"],

Cell[TextData[{
 "These decimal numbers are further divided into ",
 StyleBox["recurring",
  FontSlant->"Italic"],
 " and ",
 StyleBox["non-recurring",
  FontSlant->"Italic"],
 " decimal numbers."
}], "Text",
 CellChangeTimes->{3.889183197971233*^9},
 CellID->2003128313,ExpressionUUID->"dee376a7-cd9f-4cea-8e91-febc75920f3e"],

Cell[TextData[{
 StyleBox["Recurring",
  FontSlant->"Italic"],
 " decimal numbers have an infinite number of digits after the decimal point. \
These digits, however, repeat regularly:"
}], "Text",
 CellChangeTimes->{
  3.7988873879838753`*^9, {3.930826293774727*^9, 3.93082629429261*^9}, {
   3.955719693217149*^9, 3.955719694409749*^9}},
 Background->None,
 CellID->618516895,ExpressionUUID->"e93a1a2a-7f97-4c54-9b14-c9a95dacea98"],

Cell[BoxData[
 FormBox[
  RowBox[{"2.3333333", "\[Ellipsis]"}], TraditionalForm]], "DisplayFormula",
 CellID->634033729,ExpressionUUID->"1d7bcb09-5b70-4c56-bddf-3e627509e010"],

Cell[BoxData[
 FormBox[
  RowBox[{"14.15151515", "\[Ellipsis]"}], TraditionalForm]], "DisplayFormula",\

 CellID->391026889,ExpressionUUID->"4a33c043-2cd4-4437-8ac3-32b0027c30fb"],

Cell["\<\
By putting a bar sign over the repeating digits, you can indicate that they \
go on to infinity:\
\>", "Text",
 CellChangeTimes->{{3.7988873695504303`*^9, 3.798887386027995*^9}, {
   3.7988874273223505`*^9, 3.798887436487136*^9}, {3.7988876243525343`*^9, 
   3.798887624868272*^9}, {3.9308263034185266`*^9, 3.930826303424531*^9}, {
   3.9308264163081417`*^9, 3.930826432882862*^9}, {3.9433707340236893`*^9, 
   3.943370737091461*^9}, 3.9500922365188847`*^9},
 CellID->36606899,ExpressionUUID->"2ca29bae-a81c-46f6-9b36-c8d1b091b03c"],

Cell[BoxData[
 FormBox[
  RowBox[{"2.", 
   OverscriptBox["3", "_"]}], TraditionalForm]], "DisplayFormula",
 CellID->592411055,ExpressionUUID->"36665c98-8fde-4277-a213-c2a52bdb0c22"],

Cell[BoxData[
 FormBox[
  RowBox[{"14.", 
   OverscriptBox["15", "_"]}], TraditionalForm]], "DisplayFormula",
 CellID->918413893,ExpressionUUID->"f5a91a9f-bc71-4643-ad21-0a8094f6e075"],

Cell[TextData[{
 StyleBox["Non-recurring",
  FontSlant->"Italic"],
 " decimal numbers have not only an infinite number of digits at their \
decimal places, but their decimal place digits do not follow a specific \
order. For example,"
}], "Text",
 CellChangeTimes->{{3.7988875758403435`*^9, 3.7988875810453405`*^9}, {
  3.9433754757149544`*^9, 3.9433754761735115`*^9}, {3.9497589820965977`*^9, 
  3.949758982416483*^9}},
 CellID->1532135178,ExpressionUUID->"c2d2acca-f805-4ffe-a4bf-6d68df667099"],

Cell[BoxData[
 FormBox[
  RowBox[{"41.487414585", "\[Ellipsis]"}], TraditionalForm]], "DisplayFormula",\

 CellID->1135288214,ExpressionUUID->"1b2c47f3-0b8e-48ec-a69f-9e789fec7124"],

Cell[BoxData[
 FormBox[
  RowBox[{"78.586248", "\[Ellipsis]"}], TraditionalForm]], "DisplayFormula",
 CellID->396809103,ExpressionUUID->"1ff60ecc-0c8b-4480-be18-bb597addb0e3"],

Cell["\<\
You can\[CloseCurlyQuote]t put a bar sign over the decimal numbers as the \
digits don\[CloseCurlyQuote]t follow any order.\
\>", "Text",
 CellChangeTimes->{{3.7988875339933047`*^9, 3.798887572873018*^9}, {
  3.7988876097589245`*^9, 3.7988876352073517`*^9}, {3.955719768038681*^9, 
  3.955719778129528*^9}},
 Background->None,
 CellID->1758863376,ExpressionUUID->"5a627891-0691-4a08-b348-265f6319d809"],

Cell["\<\
Recurring decimal numbers represent rational numbers, whereas non-recurring \
numbers represent irrational numbers.\
\>", "Text",
 CellChangeTimes->{{3.8048567609109335`*^9, 3.804856811146619*^9}, 
   3.8049147027290134`*^9},
 CellID->1104359477,ExpressionUUID->"7f8a39dd-8cf5-4ce1-9178-4faa68db6254"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fractions", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.7988752511953187`*^9, 
   3.798875252488579*^9}},
 CellID->1974662479,ExpressionUUID->"90ae5227-f042-4ce4-95d6-eb651328169b"],

Cell[TextData[{
 "A ",
 StyleBox["fraction",
  FontSlant->"Italic"],
 " represents a part of a whole, or any number of equal parts. "
}], "Text",
 CellChangeTimes->{{3.7988773732575407`*^9, 3.798877382912979*^9}, {
  3.930826466465469*^9, 3.930826469286524*^9}},
 CellID->940003815,ExpressionUUID->"4c157d53-be1e-4ea8-9963-27bbdde4eb03"],

Cell["For example,", "Text",
 CellChangeTimes->{{3.798877414882707*^9, 3.7988774172113495`*^9}, {
   3.9433754956449413`*^9, 3.943375499560789*^9}, 3.9495080392438183`*^9},
 CellID->1754411373,ExpressionUUID->"24c2537f-7f38-4d35-8a82-132fd9f5a744"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["5", "4"], ",", 
   FractionBox["1", "2"], ",", 
   FractionBox["11", "145"]}], TraditionalForm]], "DisplayFormula",
 CellID->262502229,ExpressionUUID->"847108f2-c104-4224-ab3c-251d3bb8fa0d"],

Cell["are all fractions.", "Text",
 CellChangeTimes->{{3.7988774796006184`*^9, 3.7988774833964453`*^9}},
 CellID->1068663900,ExpressionUUID->"b8bbb709-edf7-4557-8725-ae4937a01d6c"],

Cell[TextData[{
 "A common fraction consists of a ",
 StyleBox["numerator",
  FontSlant->"Italic"],
 " displayed above a line and a nonzero ",
 StyleBox["denominator",
  FontSlant->"Italic"],
 " displayed below that line. So for the fraction"
}], "Text",
 CellChangeTimes->{{3.798877536123253*^9, 3.7988775597177763`*^9}, 
   3.804915067913821*^9, {3.8049169078673487`*^9, 3.8049169172049437`*^9}, {
   3.9433707426549625`*^9, 3.943370744608097*^9}, 3.9433755714414825`*^9, {
   3.943375605591654*^9, 3.9433756058622475`*^9}, 3.9497590156067944`*^9},
 CellID->1628427439,ExpressionUUID->"0df14922-1a8c-4165-b422-dc560f7cecd5"],

Cell[BoxData[
 FormBox[
  FractionBox["3", "4"], TraditionalForm]], "DisplayFormula",
 CellID->1856498222,ExpressionUUID->"36f7d164-d81f-417b-88d5-5e7516931853"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3ee7557a-3814-48c5-96ae-02dd2ce9abf2"],
 " is the numerator and ",
 Cell[BoxData[
  FormBox["4", TraditionalForm]], "InlineMath",ExpressionUUID->
  "538ce11b-110b-4bee-9870-92591e556e32"],
 " is the denominator."
}], "Text",
 CellID->1025854590,ExpressionUUID->"3eb69d5c-74ca-40d8-be98-eb208d6f061f"],

Cell["\<\
The numerator represents the number of equal parts, and the denominator \
indicates how many of those parts make up a unit or a whole. \
\>", "Text",
 CellChangeTimes->{
  3.798877627937714*^9, 3.798884319180019*^9, {3.9497645644114017`*^9, 
   3.9497645648176174`*^9}},
 CellID->1539376014,ExpressionUUID->"91305833-22fb-42a1-a4a0-210540599871"],

Cell[TextData[{
 "In the previous example, the numerator, ",
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0e57a6ee-6bb7-46e6-bebc-3e4353629e10"],
 ", tells you that the fraction represents ",
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ff3a989a-b21b-4763-b1e9-7d74d1920d6d"],
 " equal parts, and the denominator, ",
 Cell[BoxData[
  FormBox["4", TraditionalForm]], "InlineMath",ExpressionUUID->
  "84f0ba70-db7f-40b1-bc67-36bd498d5eb7"],
 ", tells you that ",
 Cell[BoxData[
  FormBox["4", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9a69d7a2-98a3-4588-bbb6-ba7f794c0952"],
 " parts make up a whole:"
}], "Text",
 CellID->1557171889,ExpressionUUID->"570ed0fd-0443-44b4-b963-bee689b19d72"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvWdgG9W6Nnru/f7cn/fX951z7jlnF9ibTS+hbmCTHjdZliXLsuXe4xTS
e09ISCChhVBCSSMkQAiptqTRjEaSSwqhl1BCSXfc1KavWXetNSNZdsImsCFO
WQ8PQnIRsjTzzLve9b7P+6eqR/Pr/u9/+7d/m/r/oJv8ypnDpkypnG3/f9GD
golTx9ZPrK3JnDittr52yv1V/wt9sef/Mv7F9yEFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQVFEvpF8/d7AfD3fH4KCgqK
qx5IQlUI5f5UCbXzaEr6xat/n0yD/oTpT6Ol3VJJp6CgoPgVuEgx//XxeUrJ
9TQx1/t9/9LE/xQUFBRXNy4ivh4QV6u/jPr5TFN1quYUFBQUvw3AL+S/qORE
zAcQAPx1YDwc7PeDgoKC4soD+Am9JYTnC+8v134cb58n3aD//xegW4Xcqqmk
OgUFBQXFRcMIiRVMJKcXDp77p0F+jZifz/4xeZ+kUzGnoKCg+BUYECFfSMDT
8YtKWQgv8Ez/TNhpmoWCgoLi1+Gn1TtNilMFhL+CP18bQzdAKSgoKC4OAABd
J3Xiug4IzIc/wfMFWdWhgu8oKhR+lgpMEMpqWrljP+oXqGbHWRyaZaGgoKD4
aaiqqmmaIeApoAeSBkUNygAqOhbYlK7KOiZSb2WgqqsqlC6a6sXXvijGHU03
LjTGRWfAC6agoKCgSAfSSaTtigrOj5yRsEsaSD0ckBgBOubFZ80BWgrg3xgY
7cdEKS7JCVUVAZB1mHoZev8XScWcgoKCIh0oMlcI0uNz9J/eeKJXEKKShHRV
Bngf1GgUQo9UTQSapAMJ6khoJUxdRXd1crcvalfTbpW0nlKJ3OroS4JJXYQQ
Ez+nuRQAGqECkaqroqqgwDwVlmsEg/u+UVBQUFz+wKFvUk71vmyHCEGcaG8c
6jGoRyBA7IZqF1SiUAED+///CdEPa+h3OzD1Tgi6oN4FYQ9+TrlLV3qgFoMw
YV4pyJUA4DUBBQUFBcVPAkW5siyj4NxIX5CHItBRPC7oOGA24mck41jAtdgJ
tfeYcPbL6PEPz33VeuJT//dHmr891PR+0/bD+98+uHd7++43W3ZuCe3YxL+9
IfDW64joTvCdjeF3N7e+90bbrq0H9mw7uHfrN63vfndwx4kPdp/9zNv1TTD6
4wHh9IdCx6dQ74CwE0Ki7TBCiIRd0IGcesHoRaJXK0mSKIqD+L5RUFBQXG4Y
uAGqayd++Orbrz/4+EiI9+/a/c5rm9Y/8cJT855dMfXx2TUrZpatmOpeNtG5
eKx1fm3m3KqRsysfnldz74KaO+dX3zGv6va5lbchzqm41aDxEH0dEf0A4oLq
u2eX3D2n7IH5lQ8trB2+pDHjsYm5yyc7Vkx1PT6rbM2iuhefnLbt1RXN761v
59/99H3fV5+29nSfjUajSL1pgoWCguJS4qJsovp9O2Vv0s8SduBzpX334ncb
+/dpJrs7dQkCQY6c6vzx86Pvc+HmbTu3PPvy6jmPzaqd3Wif25gzb2zG3LGj
5tSNmFPzyKyqB2dW3Der4u5ZpXfMq7hzWe29qyc8tG768A3zsrYuyX1redae
p0btfWbo/ueGNz8/0vfiGHZ9VuDVHP41CyK6w72S7X85E33ds25U09oRTc9l
7n7SsvNx61tLszbOG/XStIefmXj/qrF3P1Y/ZE7ZLbPLb5tTfsfsyiFzqu+b
W3P/3LoHZ9cPm9VonT+l5MnFE159dsGurWtD3u2fHmKOfX4AZ350gfwtSlqL
04Xf+p98f2Dyjf3pb6fhZ6okL+o5KCgorgToWJSBjBvRMUnmOe17ev/Gds1o
w1F0GNehoCezxH3aYjS/qxou6CN6BWT0Y0BUFUGRU/Xe5h4j+n0AExoU9TT3
WuMqIahaZ0/0+2M/HGlv2bV12zMLn5tbvbguY2ntI4/VPLCs+o6lFTctKbt+
aekflpb8x+aZt22fe9vuZfexTw078HLOp28UfLPD/ePuih5uXA/XGMFsiHB1
UZPVca48Hii9WKIf5qqjXE060bMhnmOqTjWVH9tZ+MmWnNYXh/tW37fnsdvf
WXLHusk3rRl/y4ravy6q+MuC8hsXVd61uO7BpWNHLn8077n5tW89vyS4c+PR
Vq7n26Mw2gNVgN4OtNowiP58We5XNoM9X3Sk/prxAemmfYEKNUDq5jX8aRif
jpKUec3YeDU/GvzJ/ET1jpb83OUk1fQDgIKC4sqBbgbZgJRyGFV7yW9cUMyx
bEs6jBl6nhRmDFXWFQloCuhnToWeWdP7ar+RqkuiCjTyf+nzMFQ1obvn7LHv
jn7xycFdG9a98dSSp2Y1LKzLm1Uycpb7wbnuu+e7b32mcchLk+7aPu9+3+qh
H7xu+WFncbevSuLrEr5iwesSfUUSU6xwbjVQovFuRJl1YnIOQnuKKvvLmP67
6QShQi3oVPkCJYCfX/TbBCYv5rf3su4Opuz43uIvtttb1+c0rR6xbfFDr815
aFn1rYsq7pzlHjKj6L5Z5cOWjc9fO7f25RUzvDu2HAqzZ3/8BipxYi+D43ag
SWQj1fhEQOo6SFY8mhnVn/fR9DnJkLcXX3bRe6/3i7r1vo/X3DhO6vkFSisp
KCiuVJxXY30B1yks5gKRdCVVgH0+kYZHBbE3LsqiqTayqOGgHYuVALUeKJ1K
nP3o2w9283uefuOFSWsWOuZNGD69+p7pZbfMLrtxYeXNT4wf8vrC4U3r7B+8
VXOsqbE7PKU3OL6Xr49wFTG/O+orjHjtUU8+DFfowQoQLEMyjsRcZotFxon4
e4s5km4k4BKbj5+TL0DCjuQdtLjEkFNudWsHKrRDtfKB+kio9gxT/UNTZUd4
6rHmCQe3Vexba92weNiaSXctrr5hZun182runl1z37y6h1dMy9mwpjG0e+2J
zxnp3JdQOINLZXBaBus2is4lEYoCyUXhukcSrGvEEkbD982LZ3o2TDfi81Sy
5YI+YjTNQkFxVeB8xR6oy/3dX800iVlind5KgxsmgdkMryTTJngLEKQKuVWo
xdVzx44e2O3bturFJe5nZmcuH3f3oqrrF1f9YdXYP78w/ebX5t/W9qbj4/eK
vvNVnwk1drY0ngvWdXAV55B6B0sSvFvgCxUex8OAt+vBfD3oiHvscU9BwusU
fIUi45L8hTLrUrii31vM0WsYEJYnfNaEzyL4cwTWInK5Am8Tgg4x6BLDbqGl
7JTHcdrnOseX97Q1RA5OONc29gem8os9bt+6UTtWPPTStFtX1v15SfV1y2pv
Wz7+wRWTxmx9apJ365qjbZ74qW+xjuO8ipnQIhE1lIEuabh20kjRaBr2KVBk
LOx9H66eymwpaW1V/YdrAKrmFBRXPvSUcUlSlPuEPc3f1VSDZIY87bf1vuyu
yaiqRBSRiDkQtQSUo8KZ745/1NK+b8u2Z+c8McW+uOahZTVDlpT9+emG6zbP
usnzxL0fvj7i5Hv5KN6WW0tPNWd2cLmRVnuivSDeYo8HrUIoTw7nq+E8NWjV
Arkqm60yWaonQ/GMEpvH6HyhkVfpzwFi3ifpv5WYIxk/n1ogH7YWwLANBCyK
P0v0ZQrejASTmWCzQLtDDFsjgaxeLrOby0Y8x4w+4xmjtpbI4bJ4oLSjyf3l
NjuzZuj6qbc+Vv6nReW3LKq4b2nd6NVTizc9MTu4c+Opjw9I544raozYyyiG
1QB6n0VVl1PCbETpfRNJjWR6epeUOtDafYChGNVzCoorET8l5qmwvK92RenL
kJ8XxaG73b1dJFzHSRgAY4Jy7sdTn314xPPOq4teWFS2sHbozJI7ZxXdtLTi
pldnPsA8Yzn2btXZfVUJtkYPV8NQOeQLIWNTfJmwLVc7kAPasqXg6Jh/WNQ7
TPCNUPwZgmek5BmleTMhkw25XBi0wZAdthRqfgcKxVFAnmSByDgQf28xR6F4
iigyNygzNtlj0bw50G+FnA3y6EXmw3A+bMmDoVyNz5S5kSI3Ug6OBK0Z8EA2
PGiRvaOV5gyxKVvy2lWuVA7WCsGJvfzUT7ZW+dc6X5k5dHH57TMKbprtvmf5
2DFPzCh8a+tqH7v962MHookTABe3C0So07ahdSzmQNWTaTG1n5KnB+QDLsMK
TZpTUFyxGCDmAzfR+v2gGZMP2E7TjdhPIC0zXWLk6xPHwq3cptfXzVw4o2B6
3YNzK69fVv1fa6fctHvNyI/fLjvjnxgJTkrwE2JMlcxUAqYM+op1jwM250Ov
AyKdbBot+0dpXJbO58CgFQbzsB6GCpBuw5ALBlzQXwA9dthkA/us0l6ryhQY
uq1whWrAhWJyECwGIVd/Ge/jbyXmsKVID7sQ03dCNa5A9xZCbzH0uSFTDBl0
hXIAr03z5Er70GoiG/otMJCrc9kaO0b1jwZMBgw5YMCB/yh/ge4v0li3zFYk
2Goh1BgPT4qGpp5lJx3dWe17Lnv99NsWVPxxcuUdMyaMXLWoZMsrswKeV777
kpWi36B3HojnSPUjqXsEOm6lSobZA7Y2Bm6IaP2PASrmFBRXJNLnV6bO/X7V
cQPzqf3S6QoRkB4IOk4fZX1vr1q7pGT51Iw5NUMmFl63oP7OzY+NatmQ8UNT
QaytLtZSGwlUJkJVcqgywRbLfrfOlkDODX1FsMkO9+XD/TbotUN/vs7kAp9F
bcZEMojEEHjztaY80GwDzXa92Qm9LvxbSDD9xRpbiFXaCMJZp8TaDf7eYi6x
+QbTEy/oxehMCfSWg2a3ur9I3V8IPC7I4NeJhd3vhCyWd91rBZ5c6M+DgQK9
yQqa83RPPpZ9xqn5nRpbpHBFSqAk5i/q9bqirFsIVwutNb2BshO+am6je+NK
y+KG2yc4/zil7JbHp2dtfmbcrk2LYycPaZFvsWuBHodA1GUBqkr6B5r+mWrQ
zLRfYKebijkFxRUJHFfrugA03BefitONKjXD0Tt14pvFEthzUIWaAOVeKJ2J
Hj/Mv7f2+YXFC2seWFR122O1t6ybOmTXqlEfbi057ZuUaJscDxTjrUDEgF1C
TImq34moMS5ACH2IxYT4PmAG8oJfRL+uskb+JHX7M/ytxPzCZJ0q41aZcs1n
sBQRmHRDb4rFJn3F+E/wu4x3w+B5m7Y2zIAVUQg4e/n6rsCjJzyNH2wr3bMm
4/mpQxZW3DDFef2C+oefW1jC7Hi641g71M4RU5o4LjnUoSLrOJFOPlwRfaZy
X2bFuFgTzwHDiIAay1BQXKEAqp4gpYaKhn3/5JimGr5RPYKWOtkTcTnRK2Bv
WQ3gUFzr6j7+0UHflo1rJi0ZP2p22Z0Lym98fe7De58c8/GWwrOeejk0TuHr
4x539x6rxto01pIkfqhytqRUOjD9yTJCFsuaxriR7iGiOxpTTIhFG4eshOZv
/TOxHTwx5xwS55LQuiNFv5vIu/HnGH9aKfSaRF9BP58IOBO8QwhgSuSSh9Qb
v0scerusgLUANgf6cyCbhe5DvlgPVmjBSoGr6fJUf7+r/ONtJW2bytbNePDx
CffPr/v7komZ61Y0+HY+3/nDIbxowsWNJNWi6sa2pyHjXQmpR1RwuajZYoB7
kFRNpDNMKSiuRJDOEYkM1pFRvCZDICWdX1WzsBDFawKuctYkqAri6a8Oeze9
89LsldPzZlXeN7P0lpWNQ3atth7dNe6sb0KEa5D4OpUrBYwT+h0wWAhbS3Am
3EfIOEgmwaH5HYZISgEbIgraE4TxoDXB4+DWEHAzXjV0mygbiU4tciBH5rNM
ovvoi0bs2sefEHaSivldxdz4cwTeavxphObLMC5bmrEY8RUbRC8pHrRFwpZI
2BoNWfE7ELQav47+EHThA347ZOzQl6TXBpuyQVOG2pSlMfmQL1GClRG2+rSn
5tjehvbNpdtX5jw5+e9zqu6aW/fA6jn5r62Z8NWhZuHMt1BDUbqgywlNFRVN
jktin9GvrsTVeEKJybqoQ4WKOQXFlQgi5rjOTYGKCGUJaqm2bgUIxLs7BrVu
GP+x84sgs3n1MzNcSxseXlBxy/L6O958LOPgm7U/MlO7Q9MSLZOkUK0aroBB
N+SQ7OTA5kzozYS+XOhxQk8xptdIlZjRdVL6sHzFQ5YoYjgH3UHql4y9HWaS
IU3DJcRghhQcLQVHktsM/K1fJua/TM9/sZgHcxKhLHSLyVsQJcTkFcd4TnQ5
I0Svx47+8J7WrEhLDiK6j96BlJijn0TXPuhzYqJ3D9MBWStk0BubBRkUq+dp
fnvc5+hudkb52mjLpO62Wce56e1vVL6xfPSKsbdOL7rh0YI71i2saNv9wtmj
ARA9RjwesbsjUm8BCDKei6eSbi7DGkClYk5BcYVCkMRUOUNCFaNiRMUjGOLY
01U/K5498nlw47Yna5dU3ze36OYVVTe/tfiRlvW2H/Y3RMJTxQPThLYJvWz5
6V2WiA83zqD4mRTj2WHAqjdnSLtGESUvxfS6IQpHScIkJeZI5ZB2IcVLBBFz
0G1K94wscZ+S9wXkGYSjzTv4u9Z+7CfpSRlPVir+7mKOBDyYI/F9JC/eYlDl
EK0GUeCNXi36q+OhrHgI3eI/n+i/IeZ2M5hPRvJkQ8EJmTys57wNvcPQb1H9
uWjZovDOnmZbxO+KBasTrY3x1knn2HFf7yo/sqX4tRn3o09tTvENj0/4x9vP
j/+Q3xDv+ADCDvT56jAmqVF01SY5Fkxqxk5BcQWDROeyoifrVdBCOyb0fn/m
WEtg19PPLypYWjtkedXfXnz0dt9TGd/sKD+zt0wO1+kHxkaZ4o591qi/QG0p
Ai1O2F6o8LkJz5hY0yjJm60HbDCIJN2ZvrNJdi2N1LcpqukyaHCgMieJZJCI
oaGElhSTOnlZiHn6H2JE12mvv9/LNjYRyOtH0m0w+SsDlhVs394oeuuE/TmK
Nxf4rRqTK3oy0Bsu+7PVoBW9/2rIEfHldjfnxNFPtlSoLZWJQJV+ePpXb7vf
W/73Z8b/bV7Zn+fW3LVuWcmebY93njoiCyfJVVuBuiYmBEkQdY2G5RQUVyxI
ZWIiqqoytmSK95z7+KB/7/bnFk+xTa8YMrP4z+tn3PX+JkeEaxSDddHmAsVv
V/15JCC0wJANttgkLjviGS74MwUuC8fVYYccKpSCrgRXEPflqzj3azW2PjH9
dkKHsZsJkmGnZm4RupIZ8oH7pFqy+oWwOLU3qmLB7C/pgynmDrLpWSr73Xjr
01+cqlQhf7LdfBNYK1JjQhvJopAUulGf4+9LQ6G/In3xQmiT+GKVL1WDbjVY
qATtMp+n8BY1lKMGMjQ+UwtkKOxoPZAJQ1YYyBGax3TvzUC/oh8e1xtsbN9c
8OqChxc23DWt+v5F0wu3vLLii49a5HivadtF68wpKH5PpI1FA/3qvS+M9J5N
k8lFdN8zGM9rUI6SSjVNlbvPfBTav+m5BYsmWCYX37Gw5tZ3n8r9tml8b2hi
JFAt8qUg7MZtO60Fmm+M2DwSaQUM5srMGJEZDYIkmRDMFYP5cdbW67NFGIfA
F2mtJTgoDeQkw1FrUs8dppKbYm6WeWBVR0H7eTKu9ZPxVGVIKXqI9fYCYXl/
Mb9UG6Cp0kSVKSXEep5WjeMwr2WmnpP9TbRmMeoV0/Q8uWzBSi4ZMo5zUDl4
f4ErjDKuiLcgzjqUYIEaykdXMZHJEHyjAJ8J+QzgHw6YkRDdD2ZBDt1alUB+
3JfX43NGQ/Xd4UkfvVO7Y3Xe0rH3Ty+9b1Z1xqurZn/ZysBoN945UQH86WnX
sN+RA/psAX7mAIbJY49Y+FJQXJPQ8XakIkFJwhZKar8uvQufbyoEQt8AYhjX
IBLrmAITKn4SSdGBUTcuxHHxCsmVS+LJLw7t37h+SfW8ynsXVty4ftbd+9Y8
0sU39PCVUd4d510J3mHUzuHdyb5IGzOVAVZ/QkL7wux+wbadqHSKziQvKLaO
fkzLOaTVupz//Bd8nl+m5L+cjvSKcbWvkPK8FQE3cJGSejf6F17azqOjv4FY
6m838vDWZAmouRpKX5hInFNiixNceZytiXITW1+wvTjuriWFNy0teXDDvJpv
mrfB6BkgxbXzGv2NCkbzqNMAFCW8W46d01RTzy/YfKSnOoxV4gEmqab9OgXF
NYf+Yg7+mZjDlKWhhKc7qJFYokMBUQ0KpPhQEnV0B8fnsVhElRXjjOs58T3/
zgsbV9YvqLxvbvFfXplxT9tr1lNN5Qm+jEi3mfI1Mrr4K0RAfn9JpPxtSJQc
170blxWyFiArAsYheVxaoEHipny9tWbbjGFLHX9bXnzPummuj1v2nvjxc3T8
oGNJViVBlHF7Qeqo63MAwPKsRnpNA5+f0PNk56lKnMHwcUjFnOLaRNLv1JwB
pP+8jEuiEEl5G6LfkWSgGaearsuSIAs9ZGZ9j9z9DfPey8unF86quGt5/R2v
zx8aXO884RkntU/V2urlQBGSAiMbQMJvHPEa0d0liW8pfxsaOXwi5jh1D/x2
nKXHem6HQXfCU9S1193V3HDOM+WTrdVvzR++pPzGiYU3r1nkPsC8InV/RnqO
BKgCTe4TalVB4YUK1FTkTiy89PPMGMGAQzR92iAFxbWKC2dUgLl52edxahjo
AUGQEnHFOK00BSYiEIhGNIUC8oja+Vl477OPT8+aVnHr0nG373hyzME3Cs8G
JkmHZgjhcRGmRGBcMOgi7So2gyAtG0DF/Aoi7kglYk66a9HHR8Tc+FgDTsC5
BKYoypQkwg3oIt7hb/zkndKNix5YUHXdo84/PjMn93DTi9Lpz6AahxrQEkA3
PBd1aLipK2QvJnnsSWmq3j/3cr68U1BcgxjgjtQ3kS3lSZuScUPJFZ04kaNl
rSpDJYE7/1IjNtXT3x9p3vjiwsJpRX+eV/4f21f9/bPdro5gVU+4LBYqj3FF
Ea897rEh3Ya8C5/vPoN20sKJW1dIYSEV8yuGafYChpg7UtfoxL4xsLUQvl+u
hpzdXkuX3xYJOntCxbG2uo+25b6x4PblFX+YU/TXZ6fb23e/Kp/6Dh9S5PBL
ufeggyuKD6/0w49Ql0zzRl01czLUYpeCQk87C4wV6gWU3JjgZk7/icZEwxcL
2yYJpozrZ3uP7Nu1fsH4aY7blpTfsPvJEV+8V9ARKO4NF3ZzlmjAIoTytLAd
hux6wA68Vq3JSprHDQ5oxh98jaK8SBIxdyI9T4q5E7eUMljPVU+27M1MNI9K
eEdqLbnwiENpt3T5hvf6MkF7mX543LH33NvmP7C45IYlVQ89PaviaGvzuWOf
Q0UgEzCgSJwfZGLqMuBo7AvUDTfO1LAjOmSU4lpGuphrZiI8rdrQaMQG/axN
yW8JcVk13PFE6VPO+9qSGXOKhy0puWfznOFfbq8UW8YLwZKoP1sIZqnt2eCg
RW/PVQNZQvMYsSkT26qEiKeKQaLkwCy9GHyBorx44iYmzti2dqSJOdFzv+ES
j67g2RI7LME+IoeH620ZsM0q+3J69mVh993AuK931r25aNR05w0Lah7Z/NS0
zw/sVxOnSZSgYD8fMps7Kc8D5pgkpxoBGplTUCTTLGpfjkVPVp6ryeKWdJK8
uApVkXjlxb7/kH9t5bT5VaMWV/59/Yzhn7zZILbNjflre/bZ8Inc6hC8QyV+
RIIbIbCj1EAO5PNhwKn77PK+PMNKhaRWSDSebGb8ufI/ysuIqc4jo2TU2Pgg
ngAO3ZOPlmA6k6tzFsCNVrhhCj8UhkdLnlGQt8NwMQrpI/7ibq76FNP45d7G
1RNvm199x4Jxw95YN/O7T1ns8YL3RqUBdemauWWv9lWV67Av2UKbkiiuZZCd
I6DqmqZrOlBwOhIFRnpqNWtkxAUFW1WTMwrJeFfviSM7NyyeU//wzIpbXls0
PPy66xz/aE+gLs6Vo0W3ZiROfVbIWJCGS7zFaLchZdKpxhzcYokeknpmm5S0
HJGpmF85JH4CFuIPg+3IyNrKMFgwr9QkSrdBvwWwWYDL0LgcfO3GlpVOFM8n
eEeUJNLPhcs7WhoPbCtaO+Pe8fl/mFXx0N7XlsePfYizLpq5KyoreLp0KgaP
abIZXehAkhRVBXT3k+Iah44kHJHkUoyNp5SMx0hHUGp6p1k51v3tgf3rVk3L
nlz8txUTb9mzLuPr5rLe9rpI0JXgsXOIhm33SD2DF+9solPeWImjSMzw3ybd
6KQhnUXhmQv7bGNvQ9MMkIr5lUTsG4wuwdgrGHcVEcNGo+s2bRSIIem40AXv
bjOlMlNOPnrzc4+GcyJhy0lf9hm+5AQ7tmVD8XOPPjivaMj6maXhN1+CPT1A
AKllY0LWRA0fpRFViwFNIBs8yQQgkBRxsM8nCorBAtCABKBM0uPAnMZOGFGg
0cEpS0bMA6Te7i8PB9bOdy+tv2dZ3U1vrxrx5f7yztbqzrD9HDsmEcLOsWog
A086wGG5gwy7wRYiAmdSYkvTiL6ClNyJLgHEpRab+yWomF9ZJGIu81lJRwUs
14YrQpqLghskzWHwsAymRvDXCGwp+ujxciw0WgiNSIRHwI/s8RZbb6C4O9D4
zY6xex+zPlNxzxzbkGfnjjt6MIQnTwFFikcgib57E5IRdcR1fKySnU9A9ndU
2jREca0C6FjJFUPMkWwLKu6tlvVUR55C5g5E4qc/37f1mTnVI5ZU3rJh9r3t
Gx3n+HHCwfpIyNHL4fNRDg5Tg8O0wEi8oMY9gE48zceHwzDJX47UWyAaTiQd
ybgRkzvJ+Bs7Hh6B5yZgd1Yq5lcScZs/zqSlxJx83ZG0LCvu73XjRmE5EfNq
fDCgxRpvwVbDwWFy6BGBH6aEs6RgQYIrFQMTer1TPn219J35mfNL71vSmLtz
/dLu7w6j4xDqePycnlxFmjlAdIwq2DudijnFNQyQLAwAmo677jTNnMOrCgoZ
JRGB8W8PNb+wekbO3Mo7nnr07g82F5/cXR5ha6P+0h5vfpyzamELbMlQ+REq
P1ILjCbntY20c/ZLqhjDzkgZm9OofzBGmKVobKINvkBR/iImbVtSFjrERcf4
ruEk48LujkTP0S26lOM+Iw4PziAXgix0zCDGm/8BgjkwZBcYW9xbpPD1UmBs
p6fxyJs1T4y7a5zl/1s33/FlaIva+QXUolBXJUEWJWC0FRmT6RQ8d5BOMqK4
ZkHEXJeRjuta/8IA3BfU2/ll4J21E2eX3TC/7L93PjHs2N6K7uYyLViph1C8
XYjOVtjiggFrdM8wjctCVMmcNcNoJYECbyzd5kbngBltfed+8qzXkgOUB1+g
KC+aSf+u1Oi9lF1wag6IPTWAlVh42ZLu68b4UQv0Ex4qVbw50b1j0PPANrfC
O2N+W4wr6g3WHPfUNj09anHpH+aW3PbO89N//IiTO0+ZG6Okfy2586nKSoKK
OcW1CtIipMo4qEkVIEoQb3x2d3zo2/bkFOujef+5fsbt3zdXyu83nvPaFL9d
Z/F+luaxqfutuicf+p2QKzSGb5LpCThtEg3ZImFrPIgrWAApI8f7X6xF43IM
2cd30Lls+HgQz21jWhDp6B98jaK8OJoZcvNTS6bQyei9DAHd4kl8OYaRGi5b
QjLOj9b4EYAbDdgsyJDeseTQOt1bAPkieLBEC+V1Nw3t9Q8Fh/LwdLyQMxGu
/WKH+6Wp90y0XvfUzPLD3vdiJ0/CBD5ogQhlwXDKBUBTBvuEoqD4fXBhz2gA
zWnpJMGok9hcTPZcyBrsOiv+8OmG5RPml963sOSvvucsHUxdJ+Pq8eXC9kLI
5yvNWWpTDhJwPMnd4wBNBZB1k+0tM4ViTE/GEyeDOPY2lBzrNhFzdBYjMQds
Dg7MTM9tp2m77SumYn5FMV3MHclBHjnJUapJMU9NKQ1Y8K5KAIs5xGJubJQj
JS9W9xdCfwl6nnhzloi+dcimH8pJcMOU4JhI88gY61AOjD/Z1Lh7lWV57f3T
ih7c+tT8rw8GsR0QWUjidSVuNNL6HfwXsN8H6SXrtJKR4nJGP5P/Ac1xuJ5c
Iw2ekgrjAuxNQCGuYANpfGQLMt7rjB87tGvN0uq75zr+4+2F93/9ljviq44z
pSTj7ZSZfHP2QbJhM80zPH1Kct90M5W1p01MsBl25caEyv6DgRzp494orxz2
d1M3cuYXGueR/K6lzxH9pz79vinbVtlvhS1FarAo6iuMc5URfvxHW11bFz40
v+yGBXV/9729Cion8aRZRTZN0QHOnps5Q13BgTuIk+l1caOxNFW1ZfRQUD2n
uGxxYTFXoRxVjFhEA5KoRFSs3TFiYw5F04BUOPGp/401tSsa7nyq4boDr2Qf
f69ACpTLnFvyFihMgcoUSJ48KraUl5AOBYXugSKNLRQ9+QpaDB6oSQQqvnnX
6Vs76pkpd86rvfPFVbWff+hFQo0O4e6IoMhm5I2t0oUI6X6Lp1HSyRCWVCUM
FXOKKwN9CRaAaw/TWuSMZWZcIk0Wuhrt+K6teeOaOQUz3H99cfqQQ5vs0dBY
ta1GDZcmGJvgyUVnFggUyAytG6S8dMSeuowDj+3mClSfTfHZQMCpBcvEYM1Z
X90H20pfnPXg5KIbV8wsCDW9LvZ+T8JtPD1cklVypAPDIw72I/U8p7hC0Bdq
GIlxdDBLSfdaWZZF82f6LKBjXT8cevfVhbOqHphbcfOupy0n/BOVI9O72eJE
wJng8uO+LMGfowfzERU2b9BPcMprhzgJw+Tj1Dprx44ufqvUnJNotgiMK8ZW
aUdmH/dN3bk6b0ndvTPK7n/rhZlCx6c4XagriIZBXEKWErKSlh5PTlrBJrrE
SpcKO8Vli77YWyUD3QQVxlUYU3F3PlqKKqqs6ULSMlSGX7e9s/GJkhmlN6yZ
dFf71rKutmmJ9nE9XFGUtYnBPDVsVbCzCpmnHLCIrIUaYVFeMuLI3GvVmi3Q
lwuDdhjKh0YpY8ApMk4xUN3jbzjpmfjBtvqXZz68qPyWNTNzPz68V9K6yDRD
pVeIG1lGwUgxGqcGNnmWcCIdtyDFiB8ABcVliWQuhQxGlGQoSDCOGNE6NbIB
hAMWYg4d+aqD37ZlWe0DK+qu27z4gc93VQrvT4+1NXT6HD2+XClgVYO5Wtgi
81kCOybBZkq8Bc9qp2JOeamIHduCeI4J8ORAXw70I2ZhPedtOpsv+Aq69xfG
AvXKgTnf767fseThZTU3zp4w4r2dz3T1fAFhhGz0k0Cc9BZpfWOJFCzmWg/W
c0irGSkuVySHvml4fIQqQUXERKouacbEFnQYK7HOTz9879mnF5aMXl72J+bZ
f3QGxort43v8xd2+fClYANsdIpsl+ccgIiVH98VAjhK0aeEC2qRJeSmJh1IF
XJAt0Lw5ctMYzZOh+xCRpOdCHhvjK4HSGFMuBBo6m2s+eKNoXt1NMyc89NoL
E777ioGwB+iSIOPg26jE1U0xN4LzGI3MKS5r6GY2XEvWX4n4FpBh571Q64Sg
44dDe9fPr15cNvyFiUN/2F0TYyukcGWMdcV9+Spv10J5Mpulh3CrtcJlq0Er
CNuVoD3O2uKMlYo55SWkI7YvVw8UwZYyPFTUb4V8HgzaYMAK2Jz4vpEaa4Ph
4oTXIbFuNVR1urnsw51Vz8y5d5L7z2uXFnxx+F2onkNyrQEcliMx13TTrYJM
nSMT6GjOnOIyBenoxNs6ZlN+TMEZc9zWid1BYzB+LLDjycV1D8wtvn7nisxT
zeMSbLXM4mYfo+aQFABbzFZNnCE3O7KxYWnASSw1aGki5SWiMTAa27KZdi4O
o08hxaQjhMNwDEhw7nj72G+bK3asfHhe2f8saXzI/84aqfMYOSmwjKsAyir2
Rddo0xDF5Y6UcRYUJU1J7vsoEm6l6D7+0XuvzltYe/fKhr+wL445zVREA6Xo
LCBD1Y0mTdKnSUhOFtM4hfR1uiTDJouKOeWlIjrYBM6d4EoT2EK5mIQTRlda
shHJoPnDOOSQQ4VCsPTk/uLA82PWNN6yuOb+3a8u6v7hIzxTFMCU3WJUxZSo
nlNcvkiKua711R/iGF09+Vn75jVTpxfd9PSEWw9tzukJuuU2pxrGoo00HO8x
+dNptuYZrnfY7RCTOB9SMae8VEQHGw62A6XxgDsRKEY0PPDNcSdJp80UcWcx
lwO4PHigSg43HHjJ8mzjLSvq71+/tPLMFyGo9GK7RVntETS0TE1A2KtC7efP
KQqKQQEuo9WApKkyaWxG60lVOnvixEfBNdOKFlfev37aA1/trIAfT1LaHL3e
h5TAiKRBSrqGm8Mck/6lWMyTpK6GlJeOWMwDrjiRcUKXYNrgJ/W8n6RjJzfA
jNY8oxVvDgiWaC3jvt9Z9dbiYbMKr395kfvzlrch6IRQElVNImIuQirmFJcv
DP84HchQieP9+tjxA3vWr5iQsaDklr1P5p5sakwE6xNcARmvPFr1D8fmV2ke
KabPBlFyI5eO0+lE0pMetlTMKS8RjcyJxDl/gg7ZpBGWk5GFbBYM5KiezOie
TDVQAg9MPLGrwvNkxpyC/3li4vCW3c9CcBZCoTceOxsVaZqF4nKGbhjDkc3P
nuPv79mwcNWjwxdV3ND6mutUUz1oHy9z7tjeLLlpDOSyIJ9DdpFsqjlpnZwa
RMD7yDmohlMOGtMS432HqHGU9ldyU8z5PJ3L1fw5GpMLWBS0lCT8Fd3eOvap
MStrb1xYdW/zG48JXd9AXKlLihUH+4SloLggDMcVDUBVEc6d+HjXpsVza+9e
M+mO9s128cDkKOuO+xy4CyNYpDdZwN5siMtXbGa9SqBv8nL/yKfvTEkpPyXl
JSA6OMn0ihzDMDltU94+ILpIeXKCQIHoNbwWnbClCK03hWabwLiV1imHXnet
GXvX7NJ7tr+4IHLmKM6fS9Jgn7IU1xRA31hDPX1ZmO7S3OepBbDbBDhz7NOX
V02eXHLn2lkPfPROSaS1odvvlHkHLjX0ZGOzi5Ab+ouEPdnoRCCDA9LF3GT/
sMcoWaRiTnnpOEDMSZGVmRIc8GMpMScjMArQHcmbLTZloqNdZ/MhXxzzlQih
SZ9sq35u0v0zS+7cuGbimaNBqEfSHM6Bnu4WnTrjkqdhyhH9Up34FFcZsO2b
htuRyfGWanmAQJC6cN04jAEY13SAv6VBsRcdjOqxdt+6ebUzi+7ZMH/Md02T
UUze5cFzk+VADhn0k2PM9yEO0k7DgVxlBxYGDGwO6l8GRkl5aZgSalOuf+7n
jbDEWEgm62yR/jtAsCzqK0uEJp5mJr697JHpBf/+6qKMM5/uRPG5AmBCVgQ1
rsKojk0AYsSbLs2PzsxbGia6tGOU4tdAT4q50eNgFI0bUQSEkgp6BKmDWO4D
TYV4h16B34SbX5pTOrvwzreX559ontnFTuxsKhICTjlAhuea89qs+LA3Njdp
MpzyamFyMIq5lkyJOQpdVL8z7nVKfI3cNvHrd91vLxny7Pg/PTn5oW8/aevu
iZH2UEGDPYaYK3ieBRVzit8SqflW5xMk5y4DPMQWW3oK3ee+OcIvHjtq5dh7
33ws48td42MHZvbytb2MUwsX4gkveFhbFsmWGE1zLlpqSHk1sb+Ymx1wkOg5
5HGFbcxXEmGrEy2Tjnvq9z7x0IKyPy2eYm8P7oYwgha5qtwFQGLAdLkkaJqF
4l9FSsxV7K+iytgLEc+96o2LRuQAEjHsnaV3HmS3LBg/cqb7v5j1uT0HZ3e1
TDje5OrlitS2YoXPU0mOBbCp8hUq5pRXG82tH1x5bktlWpCY400irgDyJQmf
69zewmigXjs884yvgX+lYILruicXFB7yb4CJ4/g8UlVVxg13aYl0oKdORVr7
QvGrQZLkSTFHSi5J2P8QyOQriZiuxFSs7omTB5vWrZ49Zmrx/wltyfrB54we
qoq2l/Tw+UIwXwnaJCYrpeRpTfoummahvJpo1qUPFHML0nNhf5bOOWGwVGJL
4/4KIdQQ4xtPMQ2BDQUL62+YVTWkdfcLUI3hmCmBbUZJEAU0c8eKRON9KRcK
il8O3dz0JBaIhpgrUlLMzZWf0B3c8fS8qjuXj/1LYOOYzlZ3d4u1M5jTzWUK
oVy9zQ54q+jJSC8GUA0LI8JBPwEpKX8rJpuMHKkeoqSYW4DPojF5SM/1gFti
3TFfSYwpj/I1HcFq5qVRj4+9cVn9I4HtL0EhjvVcJNNy08Rch1TMKf5l6Gam
hQTk2C3ImCqeEFR8aEU7+B3PLx/78Irav7AvjxYO13X4R4ttmVJ7ToQbGfWN
1oN5MGjH3c2kYT9V1oVCFymAOegnICXlb8V/IuYwkKczuarPqjJ21e+S/EVK
oBS0Vp7em51oq/34zaJVtbctqR7Z9t4m2NtrOComg3Mzf07TLBT/MnDWTku6
vRkkhhKq1P3j/jeemFdz/5ONNx95wxlrHdvD2ZV2a5QbGmeHw7Y82GIXPVnC
/hzdXwAYB6JZoMvZ5IBV4i14nBCtNqS8Wmi0iKacFUk1oynmyv4xOpMDA/mQ
L4BcgeZ3yD6H6M/Xgg4lXNzDVLatz1/dcPfcsn9431gL1QRuvdNhWvKcguJf
hKrpRiW5qhju+uZxpUqR7/a+sWxu7ZBV424Kv2aJBBvUltoEY5cDeNCbymEr
cjLc3AkYV5JO4r6CzeXkQI7EZ0l8DhVzyquG/0TM02hNeoSSInYmV2Gsor8o
Fqw7sqX4iYbbFtf+Y89rK/XIOWOzShHNzg5VT5D6c1rNQvHroBqdQdhGAqQs
bXUQO71ny9LHJj/0+PjrDr1pEw6MP9fkOLfTAtuqNeMQJa5ZWMB9xcDnNqgx
LtIlhMQcC77MZxDZtw76OUhJ+VtRTvooqml7oIA9T8/N+nMbZBHtMmMTA0Wx
lvoPtxe/MPOhCY5b2O0vgu5zZjUiCqKA1Bs/qZMzcbA1geIKRZ+Ya6JqFLVE
TnzTsvflKSU3PT3tZv71Ub2tVfD9eoUvlpqdWLpJBG7IuMa4NV+pSXSfKcaR
OT7IDTEfjfScijnl1cS+5uU0Q6G0btABtEFvPgrUVX+uyFqkcGG8taZ9Y/7q
xjtmuh4IvfMazp+rZGYolEg/ER0ATfGroZIGT0GT41AWoabA2LnQzhcW1P19
1bib3t9ulz8Y1xtwdO/PhK2lKCxP7MojoXixqeRJMVeJkmMbW9YQc6sayKGR
OeVVy5T7hEmrkXJJpynmgcL43gzFlwWCub2ekb2MNRKq/aFp3MqaOxZVDsf1
LYkuXH8O40jJBa1bp5E5xa+FDqGMZBzFAyCudX3Fbl/11JTRSyv//MmOkq5A
tX6wRuYd8aYcxZsHWSdkCnFinHEhJk3IjekS/d3IDT3HeXULzZlTXlUcKOOG
+5bt/G8ZPRewvSy6d4zkzYQHC5Geo/hcDrp72KrPtlc8Xn3L4pqHjnhfh8IJ
XeuRtUhfzTkFxS+FMYUWLex0Beqdhz0vzqu6fXnN9Qc35keCDb1MUcLr0PwO
yBXovjzgxTs7Awzl/pl3FiXlVcd0B0XVHBXa1+Y/YH4oLtBl8xBh2AHDdtWf
o/pzFX9+zz5bl7f8s7dKVjbeNKtqyGF2I9R7ALFIomUtFL8SxAsRajDeebbN
t3HtotzHx/2lee3QeFtjr7dY9BUpXpfc7ICMAwYLYSBP8ozB+fBAH3H9ocGA
FdE4to1ZQinXxEE/ASkpfysm0yn95lkYxedCwBwzl2z5x+bPPd4Mra0AthQK
3hxhf5bSlIPiIhguPLcvWz40NrzRMrvyT8tmWA+37hcljYo5RX+AC1c3nXeU
GH0KahynWD5r885rHD695D+CmzPF9+u72Xy9pUT1FaoeF/SXQKYQHYSKLxOG
STIcy3iOQYk3bg1t7y/mZnELFXPKq4f9IvP+Yp4+NjQl5mq7XW3N723OTHiy
YVspRN/dOwYGbfDDqh/eHdXVUnfk3cqxjv+eXjfq6Ach0udvDGbs54Cnm+c1
sUPXTTMuWp1+tQOQavHkHoreR1U0SliBIMSNr8Ul0uOpqN+3M4saRk4v+s8D
b+V1tZWcaBoKDuVjS1t06BrFh7iAHBccIiUnyfD+2cLkbf/0OB0GR3mt8Hyv
/qSHv81cseLuOVzBaBQxotg+0WwBreVRvuqkr7ZlY+GS6utWjL/naMsGqMWg
RnaySGlCnEyFFrH1nYSrzvQI1NEtPpc1s6qR4moF6JsNBPuJefJCjvVcQ9CJ
HYSufH/Q//yMoscb7mFfzfu2Kb8zZJEPZPcwD5NCFBtOlTDFeLuTtRt5Fbqh
SUl5kTRS6KQPGhcDkHlG5kgjmbGpQXeUKYnytZ2Bsb5nh6599E8vzh76wwce
7Fqqw86YmoAwCmEv1nM9KeY9EESomF8zAAMzLUkllyVjBQdEIUrKWaWz33/0
4oL6afm3bF+RFX1/3rmw+yw3Bn5gj/mHYX9y3ODp6i/mtKOTkvJieUExx65c
uM8Iz4yOMa5EqEb/YPpZbuyux++d5fzfG1aOPfH5ISTXKNySSGSeIDpOltsS
LmIEAi5XII4uNMd+lSMtAiemK6Bv3gTReF1RyZU9cvybAxuemTa98M6dq5zf
7JvU1TIh0ubuCWTF+NHwkIN06zuMenJSQE7FnJLyl9FIm+MZuETPNZxmyTG7
RDm74rcrgZI4W9LLVQltj36/p+yd5Y/Mr7h7/fJx0ZOfIiGPSkJHQhRJpoXY
JQGcMNfNtDnNmV/lSA2iIslzDSLhVgzvLEkj8z3NsD3W/ePBzc9PmV5x58sz
h3Ww84XDc37cXxgNF4hha0/zCNjuTIblbirmlJS/jslhFulijudHE5fFfNmb
B4NumXOfei+v11+pHZx8xjv+9VkPzyi6dcdLM6B4DOl5QpUlEpmrMDmfF9C9
z2sDqS1wMtxThQKxKCfrNRVq5ndVGP1x12vz59YOeW7mvV/vGdfFTowE63pY
VzyQB1rz0VEX2zca9+yjsNxo8PS78GGJSxCpmFNSXiz7TyYibaEpF5dAHpln
UQDDpZEme9RbpLU0RANjv95Z8/K0e6cX3bB30zwIziAhT0jAiMf69LzfFhjF
VQo9uf+J9zclFcYlGBeJMZtkpFk0CHo72na99PiEoc9OH/Lh226hfdK5/a5e
xqm0FgmsBfuThwsiu8YQ9xU3FXNKyl/N/pOJ+os5Z1WaszQmD4aKAId7qCW2
uMdTpLRN/GK7++nGG5fW33OYWa8lTiqKkrKnVvV0PQepMkWKqxAXEPOYSIJz
/DUUlivKsUPMmmnWRRU3BNZnS+8/2uVxyOhwanFJXK7oy0QrQcjZiD+5KeYq
SbMkxZxWs1BSXix/wjLXcM3N1ZkcYz4R8Nt1zmlIeoItUtvHf7S5YHn1dcvG
Dz164D2oC6pCxg0ky46Teq5SMb+aoafWY+gfKa51iTAiQ0GFkiDh8tSOr95f
+ahjhuP6Axvd+oezOjz5QsBOCg4tyYnMFmzdyThMMcdKXqz6nWTBaKViTkl5
8fxpMbemm58T/3M7IFO69KAj5rUrbeOPbCqc6/7zE1Mtxz8JQaBEo4pKxLwr
AnSjiUgWSE0aFfOrFHry49WhqMQ0KGgwLsOIonVDGOk9+cmm1ZMWlN2zb7X1
dHNDr8+tBAvwvgyXRUiKYA0fZizmhqEW8UIkYi6bvQ9UzCkpL5YpMccPiZ4T
n/OUpFvT9Bx/HZ2GCU+2xJd2+ep2rRy5tPqO7c9O7fnxY7TWTiSApOFITTOD
c5XshlExv3pBlmAKhqSTYnJR6oCwC4rf7nx19uSCv74y4/5OdrLaMq5nnw0G
C4iGZxHmGKYTxhxPze8g5ipmI2fKQWjQzw5KyiuIMlbyvj7olBuAMbriPFpl
JlML5CZ8eVpr3Tnf2Fen3b2g7PZdryyEcockxowcqgaTE6BpmuVqB1FyYnGv
o09bgGo31E+17l0zp/LmNeNuPLanJhGsF/3FMFSieHNJizHOrqQrOT7qktM8
U6E49UWkpPzlvJCpBWfrm9iVJu/oHBS9Y+BBp+izxD12eGjS0W1F6ybeMb/i
7sCutRCPrlC7IlGjV0hMCFTJr2LopCIxKkbMBwLAc2PVyHcHdyxrvG9lw58O
b8mBH03o9eQn9ltgW7nmMQ+hlHGQQbmfIXkqtUK9Vigp/xX2rXOTp1Ja0I7t
j2wJJhsecOkBW2R3hh5ww8OTP9hoX17zl/kND3/3uQfCmKgJRvWxKMqDrTcU
vyN0qKpQkqGAF2EatuSBMkx89+namYWzi/4r/Fpmb9gd5XJkfzbO1DXnw4Ab
MI7+h5kDp1NwejwH27MEskxzLfQzfqdKXRApKX8Jk0lL46FxfpmUuPSH+AfQ
rcjlixwuD0aLZWF/BmyrQuto7kXL7LIbnlla8s1XLTreCAOiSrpGNNo7dNUC
ibkEYzL+uMnFW4bxYx1NLz87t+jenY+P6AiUia15nU33wSA24dT2WCBTqjEu
mXXKrMsgKYu1kSrELCmYkZzjSRwUiastFXNKyovnBcScdUocphAw7xCa8i7w
hRGfFfA2yOepzaM0JlcNV5xjx+54OndS+Z0vr5vdGz2hQFnQsPm5rFAxv5JA
MidATz443wKxj7gcEUhQkSBICJIh5sHtWxaVjVg7/oEO//gupgBJNAiN0tgR
kEVKXiDuyesv5sZBZZOSkXlyjmdSzGlkTkn5S3jByDxNw52S+dAUc5EvkHmH
6MtWfFmQxYUuIuOUWhpPspNXTbx9Ss19bNPLUO1B57uqkTbAvtb+lGOqmhKE
9MZ/6gEwuEDiLENVxi4rBFraZ6Xjz04DogYSQJew/Y6mARUmVGim0vTYj0f2
LKm+b4Hz3896GxNsJdJq0oOW3O7EB5hjAFM+zMk5nlaaM6ek/G0p90+wpKVZ
bDirSRyQcDmZURvMuCW2VAzWfb3D9fS4v8yvuvVjbiOxT4RiAi/FddkI5xRV
j+nYZ1FQ1RgudNEAKXwxuk6S3YSDp2bXODQcaaOPi4i54ayipIqTNB33hEk6
7tQnRmpkXwR9gAkR16B2fn/wleWFj9X8iV07tNdXigJvpN5GOaux3UkicFpq
SEl52ZCzaoEMjcOjBPD+FONWcSLUjSRd9jlFrqx13bDVdddtWFbScfQA0gFF
SPdikkTQo+CKF6znECik+CHVQmgaAlAxHyxoxMJYIja2ppgnI3OgKWQCLCb+
km4OlTI8jsWeE+++unC8/b+3LPl7vH1yxF+Mw/KUmJNFn+ECNPgHMCUlpUEk
5qSDr7+Y44ECkicfttf2+mveWvL3+WW373hpUfzsyb7BcrgrVFWhqMC4jicU
SanozhCEpJgDKuaDhX7XU8P9MrVu0jUNf3yIQAWaioJ0Ef+onlAgEA77t86s
vP/JiXd8ta9WPTwpxuKNy1RvAhLzND+3wT6AKSkpDXI2jcOuGvg+Lh7DORY8
upFxAsYh+QvFYM3Rt0tfnP7w4rGjAjtfh5pkCALAxS2ACIIiAQHoMk7DpssF
jvUAFfNBRL9Ml+lmDEi2HOimkhMvFo0YaZmRefz0F4HVsx1zK24+tL1SeH96
l8+l8E50eCTFHHd3pqbQUjGnpLxciPv98X4Wuk/KEoqRnmt+J3biYvMljzXq
KxTCE468WbWk5q5VU20nPuGhphiDaBRNNTRARMGdId8pMQemmKtUzAcP54m5
0cCrksETKroqC1CXDVdMI52OKJ54bUXZ5ILr9j6X19U2rTtY3e2xgVAB3vok
vivGvicVc0rKy45YzI16A4dRY6YSSw0cg/myYahA8tqlUG0PP/WtZaMWVt6+
YeVY+dz3ODeug4QoGKGdRLY9++bUALPyTaNiPqjomzWRMr0kkk1GCAEBgjix
XzHFXIQwGv1w//MLyv/2/JQ7Tgcm94bqzjTlqS0uOUCmnKSLOZuqbh3sA5iS
kjJJXJyA7xhijiuB8VaX36p5MmCLA8XncZ8jEWr8+r2qrYseWVA1JLTrVanr
LFIGSZIMMRdAWvgH+tbyZIIkFfPBA4m60+zoyVBXPAJOkSFIQD0GsJgbZola
pyB+/+WK+vvX1P/5/S0F6gczzvkKoqwNfuBOeEcnxRznWLALIhVzSsrLj1ra
GYrJOZC84xnQ3jGQyUR3BE9ugitVD0/5ZHvhY9XXPzndeezDEKlUVIz6iLja
PzGrm/XnRsfKYCvaNQy930KJhOUSmTqhSCQSj5ElFS40VQGM9Ly6ZMKCwv9q
X58VCzd2s8XdvlwpZNNCVpnNwBsrpLZcI135VMwpKS9DErfSVLiFT0+jNwTy
uZDJUpvHSM1ZCu+SwuXH9xW2by6Y7PjbhienwvhxqAu6jufPnO0SVHMAdF9i
NinmFIOHfmJuhOUCEXMVheWSUeuCLsi4pjTW+t6m+SUPvLPwwR/etSut1XGu
IM5ZtJY8JZgtMqPJxooteZykmj1pExAl5eVCMkXdge2S8AQBhzEMmsybs0B/
FmSzIZMNfNlaIF9tKYoECo83lb0y+5Hp7ntDO9dC0AWUhChpKlm6a2ZJeUrM
AaRF5oOOgTkWwUiYG5G5ZgwcAZGzn/kfG5e1qORvX7/lFthSJVQS8+cpoVy9
1apwmSKTkWaW5Uqt4GhYTkl5+ZB0gjigz2nWmxExJxNhLHgDlMuFXB705SiM
ReHz5JaCeFvVJ29Xzym6fvmEUb3ft0EQF+IJLbkHqpsN/goV88sFeioyV3Bj
FxZzsyIxJmnEnEHQu7/Y/sy42UV/8z2XG2VqVL5UYGwxb6YWsmphi8hlKHyu
sUVOxga5UkpOxZyS8vKhKeaMg4g5VnKBtxl6rjFIyW2QtUFfruTJEH2ZAm9J
tBRFwxOZ5/Pmldy4/dlJMHES6oogqslWIUPJJXP8mE7FfLDRL2GOcyxGUbli
psUACssPNq2bXXbj63Pu7QlMTPjLFK5I8OTGfVlqMFfmswR/Jmgh0k0qV0nx
KjE/5Gx0Bhwl5eVDLOY+FJk7SFsfVnKDKEQHLE6/6L583ZeHhF1isuL+jCiX
E+NKevlHX599/0T7Xw/5NqHgPB6L6MnRBsZanqgFpGI++NAHJMzNPevuqGrM
ATzz9cHnFzgWlP/hgzfz46EagSnSA0XowFDYXBSZC1xWjMnQwgWkqtx1npjT
mZ6UlJcLk2KOhzsTMbcmkJgH7BKuaSmUPQVyc77uL4AhJ+CtYiAzHsjq8eSI
LXXvby6cW/LXNbOLu374BEk3AIAMfzbX8oaYm3VxFIOInxDzaNzwYOnc9tKS
hTX3vPfEyO5gdYQtSHgdkC/WOIfst2ihPDmYG2eyRd4hBJwCVyyxbiLmuCGU
DBiyUDGnpLxMeL6Yx4O2BG9HJy+eNdDslJuckC2GfKHC50p8ltqSLbBjRL7w
rLdh79OOOVVDt7/yBNQEALCSEwu+OGGamFM9H0yAZI4FkzgwpDq8wNH3uQX1
o5bV3PjdvmqtvQpF4PEmi845ZcaW8GQrfJ4ayhdYq8jlk0JEl4Qjc1eamNPI
nJLycmFyAxSLuUrSLKnIXOGKJC8KzguBv0jx58d9WQk2U2vJVbhs2Fbc7Sv/
fn/jqrH3zij9x+kvDkJFNBw/SFZWIKqetDenGDRgGdfkqA5kYkdvXloVWYS6
oPV88/zC4iWVt3z0RklXU2l8vxW2OJM2+ITE59bY6Ez5J/fZktOcOSXlZcb0
YRbJM9eenBna7+Qlp7Yt4cuDh6o6do2O+F2fbsmfl//vr8wphz3n0Oo9HsWq
IeF6CSEuduNyOLSsp3o+aFChFiNZL1UQJFHECyUcmusKBF1te9curb9n09z7
T+4u14KVeGnWlJlsB6akpLzq6RAZ0vXPWfSws2uf460Ztz5dO7z9rQ1GAYtA
vFQlKGJfXCTtulmjSDEYUHWdWM1DkIgrioLFXBJUqEvRUx8+NiVjSe2Nh7YU
9rK1sKUSBgrFPRn9InNKSsqrmwFX995M2FYIw0UaX/3FZtea6nuX1+f3HvsK
i7mmxXUQB5IOVTkRJT4tgy1p1y7QlVRQtIgkSUbBuUayX1Ds2rVp6aNFN7y5
clhneEIviwcJGdk2KuaUlNcO9aAj3pwFeYfsc6iBqggzcedj2bNcd+3b/BSU
e9A6Pg40o4xZTAg0bT6owMY5ACYi0Xiy0hx/7Yu25jn1D6+cdNtne0oSh+qj
/gKNK1D3WyHnomJOSXmtkLMpTDYM26XmXKnZKXrLE+z4r3c2PDvlgbkNQ7/5
yAehJIPkxCE6AXSQoQIY06CgEpN5JUo6PxV1wxMzZpbetP+l7HMtVd0BmxjM
h61FWlMe9BZg95VBP8YoKSl/f2qsVWweCQ+6FI8N+EtkpjLmq4mEJjavy5lU
+D87Xp+lRE/iMhYdigK+TQ6GpxgEoLdf0qMqdkokw1vJYLgPffuXjM1eP/+R
b70VPW3OHnaUEsyGfB70O0ETFXNKymuFuLTYOxwGcyFTqDNlwF8tcbU9fOW3
zaXPz7l15fShLftfxwquQUkkA4RpE+jggcyGE6JKD/oIpKiGw/IeYe2s8Uuq
HuRetve210VbcsXwSJkbHt0zDAaLIR4yRcWckvKaIBJzGMiQ9g2FbJG4t0hj
qmBbXYcnT/qoIbRxzIzS/3xxaQ2U43hinJKa7UwxONAhELHZPG7g0mISEvOP
PftmFv5j/Yzh5/hHI0FXIpQhB4ep/AiNyyLmmS4q5pSU1wixmLOjsTuuzwl8
pSpTLrHF8aCtJ2zvbK18YdbfZpXe9Rm3C4m5LJjt/VTMBws6rg2VNajiHWlN
iR774pWFE56se+T9jVU9gboEb5eCo9XgMC0wEok5trVnXGZPASUl5dVOIuYZ
0J8DGKfGuFXGLbNOgbfEQ5buYOGRrdZFpTdsWTlROv091IxxZFTMBw3GbE9Z
lYASgyDStuvlqfZb31qcGQ3OiHPl2Lg+kIGVPDBaDeQYvohUzCkprxFqrA2Q
cZBkfBhxt+bsEp8jBHNinC0Wbtg6/8HpjpsP7d8INUFVVZpmGUQYYi4IcQhi
0tmPX3+sYkn5DR9uLJKCjRLnMuZJATYLK3nAKhEPB2pRTkl57RCPD8NN347k
hAKbylnkgEUJOHq9xT/urptj/8+181xQPpOI91AxH1zg/n10RdV7QnuemV91
886V/+hmqhO+QuLJY0MEfmyxgqL0BLHloWJOSXnN0EFM88xJFlLAisdYYAM9
G+SLunfm6u1Tdj728NTCv7R7XoYwRgc6DyZwFy6uMJe6vn52oWN2yf/++O08
rb0K8KaSQ58DEHMGIeCIhmzxoBXnXgb/GKOkpLwERGKOfVCxkvMWRCzm2EfX
CQNuzVuU8Jac2F85v/wPCyeO0ORTOqTeLIMHHeJ524rO7n5lbv3dm5fddYZ1
yeF8yFuhzwq9dugtBj5sUZ4IOCNhazRkoWJOSXmt0O+U/aUS68YDiYI4VU7E
3IlkATKlkC2L7rWKrWO3r/zHePcNAd8bipqgYv4bos8dQU+jaVoOyLAn0O+n
NRSWn105q3hO1V+/3OcWDrljzCjRNwwyFuxj73VrvlLZ7xY4VzyII3OZutpS
Ul4jxGLulthiEpnnIKqcFS3VsZh73cpeB+RLIlzZJ++WPT7prvmP5ujiSXOE
XH8FuuDjgVpE0R86NlbBEzwxAEyaJuDpbzp2NpNEENOgoqEHoob792MKVKXQ
u+unl96+bcXQ7ta6bj43zo9Uw7h8BX2a6KOUmXJ0dcbzg4xJcIN+gFFSUl4i
mjlzdOJrrAWwFui3QoZMuAiU9uy0wPZGIdRw2jPu3ZXDZxf9T8u7j0EQFxMK
NONEEJXiGgkizcHxamroMPququHidKrnF4aO2/GRmJP3x3jrDCIx1wUdCigM
V3BhOXbFEWI4xSWePLpxZf3y+jvaNxf0tpRHAxalLUvkR+EUGecQOLfkx2Ku
McW4achPXRMpKa854hpFJONYya1kN80OuSKhuQC0NMT8tV3+cQdft61t/OPm
ZbnquWN4sS+IOukK7ZXjhgKZsaUCU2l1FSoqGW02qJJ5+SIZmSfFXEuKOfYZ
lpFyqzgYjxkVRKeOdyJNP9y0aUHlfa/PH9rBT47wpYmgFR7ME9hRuBbREHMW
p1lUvwspOfDbqJhTUl47NKvXcGRug4aeY0m3aT475MtktqLXWxHjx5/yNOx5
/O+zi/74vvdtJDvR7h48uQxqCRVpDhlDmZIjzRBzgFMEVMx/GoaYa+linnRM
0KGCYnIZqnFdMLwqo70JGO9+ZWnNPPdfQ68UyodnxrhiNZSvhywab5E5Gx7r
yZYKbKkxoxkpOW4foJOGKCmvGSbnyuH6ZJAUcyQFijcPhstjHmeMKU8Ex8ZC
Ez990zHT/n/WLZwgd3XhkUM6FmokNSIAVMx/BYw8lZ4arqol3zrdaLbVBKjI
EAgatklEX/qA3zuv8t4Ncx444RkntIyN+50wZBeax8AQHgWINz5SYs46jKQZ
FXNKymuEuLycc+BuwQCeB4q7CJGSk55QxZsLeVdkf57MV8S5yihX0+mvfW3m
3ZML/3GE80IgyfFeotgwLql6So7UlBsXkimF5sz/Oczt4tSOAzAzVBoxuI3p
WMzjcgxLuyq+snrWwoobD27MF1on93iLRcYBgwXC/gzIF+LWXbyRXSpwbpl1
oU9W43IwqZhTUl4bNMRcCJh6rnJGx5DF7PFnbfEmi95SFvcXdXuK5HDdkU1F
Ux33bFy9BGoxLdZJPHFhXCRz4kEaTTHHG6C0lPHnkS7mupF+gXEdSsYOqS5C
Pfr5EX5+Y9Yrs+851VSqtNTHvU7N74D+fOh3aB6bxhSTElNDzJ04acZlYbLW
QT/GKCkpLwGRmCMlT/BIz0lwHrASPUfLcwvk81R/ruizgJBL8Dt7PQ45WNbh
G7duauZj452fh/ZCNYrnwuNZN5CK+a+HnibmuinmMoRRTZfxHazrUOnYsenJ
qSV3eZ4bHvEXi/4iwLmQjENvPmwtj7+XrTHupJgXy5wDf4hUzCkpryWmi7mA
rTxspJ2fiHnYjm6RnhvlyhJrF9mCGN/gfbZsXuk/tj49C2qdUJdUWUFKrhHb
kAFtLzrNsfws0t+05LBsI1kl6jAmy8R1ONL544ElU/PnV93cxTegz0tlcdkh
6d+3Qy+SdBeJzN24+YtzJcWcpln+f/be+6utK238/Rfu+q51f7jrfr9r5r4l
M+9k0pM3vbliQAghIUQzxTRj3Cumid6FsZ0ex+k9kzhxQ9LRkURz772kvGm2
Y4NB0tHp++69j0RxjCfGDM3Psz5zIgSzlhHnfPToOXs/DwDcRdxC5kOgiyKo
0v1sxs9t6yozHmleGXv1nBcpfpJJYu1wv5e5NFgChhgphubkRObk5cIyD4go
PHCVR+iK/bOG0oXPfFwf0evJwB+gyLojYnID3cJvQg4qc1cSTss5t5l3G7WP
V3ADFADuHsI1cyMXvgeKPTBQaRnuc/y8gWOTr3tWflmns2Y84vm8Gcm9SJUk
MZSZh7d+DmyAAZP/sxgsTClkgRAKyTwo09We5AX1SdeO1a+aV7PwoVNfZfd7
krVOaMNlTtoX86wZm1y7/aEtTKKdjSf+HAMAYHyg/RIJJC0Pyzx8J/RGsDEC
3tzvty+0pv57y5oYpecsUnlff3D4RLmwyYdt9Ye4Wdwoc7L7SlsWRDbVSjxS
es92vl+Ueu97pU9dZfP9HssQmWsmNylO0r6YfsLS3pTJn5VuGoIdoABw90HX
mQ9BT/uc3yhzbP4+pznQvfSd9Y+tSfrb2b1fItXv8wUG9rsMS8tB5rcOdbjM
SXk81CeB9C2XqcyFXz5uyq7J/Ou+rQafNzvgwYm3nibeRtJZC+M0YWPjd2HO
ow949ZzHQGVO0nUMzAAFgLsHbTjFUEI+d91oeFpp0fsc0YGO+Yc+TihM+bf3
N69Eap9CNw2F9oGS/4qDModCyy1iZJnzvLYJi+8911mx4PEtqx69snuB0J5G
ZU7+NGRdItY1bcBCplF4dAFvNAYrncicwSZPwoDMAeAuQaYdPDQGZX7Djw3K
nAwhEr3z+tiYax35rSseKsx98Ycz3YgsQdRkrtDVFzyRkgr3P/9ZDNv1OSBz
Ul8ReLoOiOuzv9tQlvqAc8M8vj1XcCdwblJOEVxm0qZ4UOZ63hMdaI8keHX4
05PstKC2VNIRl3RRm/jTDACAfzWhcWO0GYvWl4lWWU3hKXKhWXKD/xdWp3bM
CXjm9Xfl7nwpdknyQ5++20JXmoPMRxUDS1kGeyaGn5cV7pezDUsNrQWPnf00
Re3ICOzWhSZ7UpkrTgypsWgy58KZeUjm9mSamYPMAeCuQMvMNZOPLPPBj+q0
cj5X6YjtYRJOb0svy/57Q3EiUnp5ngsn55IazjCHbCCCuGmQ9z660ZMPvWJo
yPJO2XfM/bE1+6n3i57sY3KD9ljUSToV0/dW8geSGVPo/ia9cz0A/Uvhb2kF
cyizAMDdgiZw+Y+tfMB+4L+JQfvz+ndE+dtT317/n9V5fz/Z8TFSOOwfgVqJ
Iy1ZiJ1UXgSZ3zLwG59fJZNVudDIj8G1+hJSej5+aXVJ2r3dW4xiZ67Cxolt
s2FHJwAAYwIp1TIZaHeSf3sE2puyf8vTxUn/1+63CsnWfhn5RWKlIEnRabYp
ikMXLEL8LrDMOepzXtUKLAMyF/38tfMlC2fV5j10iVnKeTKQ1xjYOQNkDgDA
mEBk7skMbjNIDj3qtlxzJ1el/69Na/V9P5zA3vYFUSDUHoon00IVBWR+y1Co
xjl1oFGw9lrhtFy4ftj9ycqUhz+umRfYs/bqTpPi0SOPDmQOAMCYQOq0O83I
bkHt8X6nLtid8UnFI6WZj3i+egurW5BRgFZYeFXkBT/SFmiAzEeM0AoWNTx2
jwR5xCP56ms1eSULHt730QJ/1/KeNqPARKFOA8gcAIAxAcuc+1qPvKkqG9Pf
FhHsSjvysXF9yl9fq85HYgCLKCiTyjnOxwVBILdAgxLIfOQIbbAaNgebTP3w
8ZePrU57onXF09/bl/d588TOVJ6Zp7ijyObciT4HAACYBpDVL20m5Ir375gl
emKlPWk/2jPr8u6rW66/dOEQUhWRrmUhK1sksppF5kSQ+S2DVFfUwf2ziK7q
7G3/evO61Ae3NeuveVded6XJXUkcM49n5oLMAQAYE8i6dDZesetFR6TkNcjd
qb+5FnxWN6ss90n7Z5uRyqmqKtCtn5K21E5UQea3CjV0GNLchkPKlY3FCQ2L
Hjv0YTrXtbxnt8nv1HGuubIHMnMAAMYGsoLRGUtGhe5PCrTNE9oT+9wLjnwy
v3j+X1+tzkbBS0iVRAEbHQn80NoBxM1DkVRtGgWZvicooiwg5LtywVOZ9+zr
a5644lziZzOkzuQAEx1wRigdsaE2CwAAAHcIa0CeOL4tQnXFSkys3xGLDi/9
yZ6zecXD5fkvXD7XiZQgsZNCWkUF/MJEy3JyR3j7Jy+oWjsbUQ4idM3+aX1p
+v07miP83kUcmxxkDDwbzXuixXa9ADIHAGBMYA2q28Db5yE32X7o36VDe7N7
2Oyvm2auS/nb3p2vknEVPFJlJIU2psN+/pEjfOOTC8oBkTTADfC9SL3UWpZY
lnbPuc/TpI6FsivBvztCcOtEr0Hbqj/x5wAAANMA1iC7Y3l7FPJakMvs264T
3SnBzpxTXyQXJv+fLbWZSO5T/GQdCxcgy+3oHEvw+QhBG7Bo3SWxzPErxQk9
l/5nT83KiI1LH+jzLBWYZOSJF+zzZHcM5zEE2DiQOQAAYwOVedChQ+4ExCZz
O/SCwyx1pV/z5mxa9veS7CcDP57UWrQEOdKTW5ADIPMRQxsVp5CBeyJCvXxA
Rf62r1+y5j/5TdNcuWtJYHsM8hoRHeTX59Bz3vihfXIAAADuCI+Rc8aSvnyu
VNWeIDpMosfS35G1q3XOyoS/7NnxPpJCGz+xyWnXEZD5SEGnC0ki6XmLk3NV
UpGvuSp7Tdq9Jz5N59lsfkc0YmJQe5zs0l+3xwa9SSBzAADGBPwxX3TH8S6j
aLcgRwpikhETH2QMfe6kY58nF6X+5Y2a5YjjtNJBP98jk8Yj0j+32l0aVOYq
6QYfJD5XrvRcLFymL89/9DKzwrc7CXnMaOdsxJBd/H6XCWQOAMBYgWWO1S17
EhVHstqWglzzEZsgMDqfO+F/7Atalj1etsh4+fw5JGkyvyKTloAg85FCEQJ+
bRqFn8dKl/Z2f12yZObW8hd9nUuv7zCgA5nClzPkHfNUV5zkTQh6oMwCAMCY
EXDoUEcScqXLu3BmTmQuuqI5r+mae8F71ueKM2ae9DpQkDR07ROuSpCZ3zLI
rU9OlLUNVgr/zsbVJQv+2rk10u9Okl3hkc12MlFIYvWCWwfrzAEAGBvI8Dgd
mWThSJYdabIzmUxAcEfynsiAN/Hoe/E1aY++X7uaTCKW5IDs5xGvQs18hFDp
Blmyi1/r0XL98obCxOqsP/3PLgvnMchsNJnXbLcgexIZzcxG49cZdoACADAm
4HRRcUUrjF6TueRMJbNs3BGCZ47fZfhle6ot/f4thRmo/zeFD0hI4pAgg8xH
CFKJ4oJE5hLp/n759MGy7BmbV9zr684jMnfpaGYOMgcAYOwZIvMk2ZEqOZPD
Mo8gHXE7Fm1Z8kRd9rxfjnUjkZOQ2Cf7QeYjhRoatIcEDstc2Lvzo5KMJ7dv
mNPryeDcRiJzp5FMbcY+d5rwl5I7GsosAACMCQMyl51DZR6JZc659GJ3QVtj
bGH8I57PtiCVk7HQocwycmgtWRQ1JPT3bWvL0h8++Y8Fv9mT+aEyd1gUKnPi
c5A5AABjAZW5jsrcQkzOJJHZwVoFwGP0uTLPfZpfaPrbltplSPEJYr9EmnWD
zG8emsXJwkRFUXp/qi6Iqct68LJrWb87jcpcrzBGrHHFaaYy15PJFCBzAADG
BHoDlFiFMROTazLHz7DRaof5tx3xPezappzHsJeQ/6dA4DeZTl6AuGngV4an
C/KRyn93yFmU+vg765+/5ioQuxaQbfusnk7ZNoVw4VceTA4AwBhBZK4Py9xC
cGlJow61x/fsjO/3rPikYm5h2lPfHnOK/FVYl3iLUMNT9cT+X92ft5ZnPOza
aLi6O0vuzCDryXESHs7DqdUJE38CAAAwPaAyp5IxhXzuMpGVioxedRsDjoRe
Jsf1Stya5L93bH8dKX2iEJhoZU7ewBoPyjQz5y+9WpFak/G3b/+R1W9fILvn
k9eWbNEyaEgukDkAAGNNOGMk2SNxjomUdhkD6kjo3anzeTLPb89emfjnDdb5
SO1TxSDMpxgpyI4h2vHdf+lYy9qojQv/cml7Btc2H7Gp2gvLuw28W48h76GM
iVTOwecAAIwVVOY0YzSSGguVDPY58sT72nTB9tSfHAuqcu5pXBer9P2IZBlk
PlKQdeZU5ucPflOZ+9j76x7wMwuE3UmITSb3l6nMOY+O9+jwq01vg5rJFq0J
PwEAAJgWYIcP+fivyZzsN0dOg+iK4TvM19oz3ih5tLzg+XMHGdKvG2Q+QuAX
hiMrfRT2q9bStHscTU+p7dny7gTkSFSwzBkz59EHvDrsc8Gtx89gQOYAAIwV
VOZGrBeMRGq5WOYW5DArdr3q1nPe6L6u1G82zyjKetj+8esg81uE1vlWlsX3
X15pzfjz8XciUEemsisetSXgl1RwmQNevb89Gr+kIZk7kkDmAACMFQJrCstc
p9VykSMJ2S1KWwzyxvhds/q64rs+1Jdk3b+1qYT0NgeZjxCazHt6rtrKLE2L
7rn0TTzyJKJdJoIjSZN5f0dkoD2Sd5OF/VTm5gk/AQAAmB6EZa4Ly9yM7MnI
nqS0RaMOXT/zbF+H7syupNrFj9oK89B1H8h8pNBkfuHCuaKCma+uuT/ApiKn
Ae02IpycU5n7B2Tu0YHMAQAYWzSZk7tytFXIgMxRmw51RPtdT/V3Rf3cnrl5
7dMVi5J/PnUWZD5iqGRq3PFD+1amP7a19CGhM02wz0N2A2l760iSGEvAY/C3
Rwe80UTmjBlq5gAAjC3k7ietmdPViSRjRA6zao/CMg+4ng1063r35r1V9pw1
O/JUO0OENUxgg/xebneX+WmnrU9e3VCY+WDnB3G/7J6ndumQWy/tikYOi+xM
xsk57zbyQ25PTPifHgCAaQJZl6gngxJYI1aNwCRjiM8Zg+yYjdojgswMZV/C
T7uSut9JKkz4L+aDZqTwkjgocBkhXib9SGTSYkqhnVuUkNlGtPw0DVJnUbfW
F5cuuP/ol5bLLp3YHYnfEKW2KNJcy5EsO0m3BO2tc+iGUAAAgDuFJUMTJFZH
JONK4pk03kV2uNAd/UTmnGOm0p10zZl+4tN0a8q/fWxbhMQ+VaElBTUkc0GR
aetXZdDn6l0pc0VRe/oaV2VV5Tz4vTOrt8MgtM9F7TGyPZquXQmtNh+U+YT/
9QEAmDbcIHNXKu9K1mSusBGoI4p3zpI6LT5v9o+7Chqz/qtxebTcf0lTlySr
oT6BdIwxTc7D8r5bZd7//bclWTEtyx7/rWtxf2ec3zUDeXWKnSxElElTSipz
rcwCMgcAYAyhMieNtYfIXHCZSe2FmYPaI0UmQvTG+z3Zv7lXvLnqv4vTn+j9
8bSmaFGUByotoqqAzPF72rf7Owvnz3ynfFbvnsX97Ybr9udUTwxyGqjMk/C7
5NAl/aQfzoSfAAAATA9CLXA1mVuwyXlXEm3xpxfsc5AnEqs+yMZdZzJ6vcu3
1c1ZP/+BMwdcmqIFQSAmpxoHmZNQxPYv3y+a/9zOzaaezoU+T0y//UXFFY2Y
uJDMwzUWkDkAAGMMS4ZTkMaJLiPPmrHJOdaiyZx3zFFckTixDDJxPW3JfZ7F
nW8YS9PvZ77ailQFI4ukHa4oSyrIXAuV/7ClxJr+5P4P0696MgNeveDCr6EO
0U21tGAe2pxFZW6ii8zB5wAAjAUs6XY7KHPWEpY5raU7IxU2hncZr9uTfJ78
Yx9ZrOl/+ejVSlXgSJmc+FsRhKBK1q+ow+VN17So2nGiHTtuoXAb12dWZjxy
+qsFV10pQkcc8mKT6xETT5cmWkhDM2Jysp2fjqgAmQMAMDaQsXGDMjdxbjOG
pzJHXoNgn0e/ZfI7kwPe3LOfJ1jn/+m1+mVKoB8pIr3tKQk8h24t82kakkQ/
mIjiwDP89Z8rcudtXPTor8yiYHeG4I3Bn26Qx6g6jETmDLkTQU2OIZuGtMUt
E34OAAAwDdBkjpFCMifwbrKNCGsci4jbGYm6UnzOBJ8n3deR35x/T9XKhOD1
S0jlFd6PZa4qkqqqsnwzmZOxRNNc5rKMP56QmZ/4eOX7E1U5L7yx4tErzhyh
M030xJD7DqwJ2Y10syeVuSeSADIHAGBMkekcCgxOxbHDObcx4CFHKnMDcpuC
u3SoIzngjA94UvwdmS8t/8+ygujf/ucsUjjE9yNVRDLOz0le/rsauSbz6elz
+v4lD3ypif3EfmdN9lOfljx5lVkgdCTJ7hjFEUlrLGatBS52OB+SOWm0pd0S
nfBzAACAaQCWOXJiNJkbOI8h4CFH/JhUWtxmoU2P2pM4h5HzJAY6Ut8vvW/t
ghdOH/QgxY+EvgGZo5vc8JzmMleGtDXQxO7d+WHVggedthd7mfmix6y4dYiJ
Rg4jaUGpbRdyR/PeCCxzMtw5tPIcGm0BADAGhGVuvInMXUaVNUv2OOSxYJkH
PfHBdvNO2+Or057w7vwYKT4k+UnlXJZDe0HVG2QuTWOZayGT6hL5dTWxb/tw
c1XGvYe36vqdSQJrJIsSXTq0Oy40nCIk8zmCJ0JidTgtB5kDADBWDMhcdpH1
z3QUjp7K3EiGgboSVCYBuSxBe6zojQ96Y/e+PWtN+uNfvNOKlD4k+5DKk9ug
8uD+/btK5qIoDpX5W62lFfP/44cvk/xMokAWsUQjt17dGYucSYq2LtETeYPM
oQUuAABjwu9krqNzzfQDMkeuZMVp5tv0ktfAeaPPbotbv+Dx15tLkNKLpD6k
3NUyFwRBeyBJ5C5wXVFeZeqfehyZfsbMO3FaHok8Bnl7DHKm3FzmjlSQOQAA
YwKRucOEHCGZY5P723UkOccyp8stkDtVdsRjmSsefdA971cmuTjridr1C5Hc
g/ieaS/z4XuelPCSy1AqzguS9l1BCIpCsKggvjLl/+E9ORxjDjp0ZLuQ1yTu
iEFMaAgFlXlESObk5YUboAAAjA00MzcNz8xDZRbRGU8GVXiSJXscb9ep3jie
jeptTy/J+nvJUhMKXlF915AiIVVRFWlY29uQ96RwR9ypGlrbmfCaFYXuk9Ka
iilquGMk/c3Jfy+eO166WP/2qnsFNgV1zL++Mwp5LTJrEuwGxU1NPrhjKJrO
AYFeWwAAjCXY5xjyGNsmBBnxTJNGE92oGPoups+TuqnwgZKlM3p+OIoTU+Iy
4jRORdxwn2OTSwMb/KdoqOGPFvQLhZhcFslRIYm5FOowhiRFxEn66eN7yhZF
flx4r8gmY5n37YxVvGRUXJCJkzzx9CU1hPfyDyhdBz4HAGBC6HenvlZ2b8mS
xy+f3YeCikqXJYrILyOfqmlPCclcRpJmwukoczJtCWtck7ko8ljmB7ucRbmz
tlU8imWueFP6dxk0mfMuo+g2/U7mOpA5AAATCJb5e7WPFC965MIBJ5leLGjV
Bu73Mlenq8xlRWteoKihIowo4U8lHNv2RVHWDGfz8yKbKLmT/G1G2ZOIZS66
w2n5wGw+kDkAABMNlvmXm55fl/vAQefnRHOiJvMhmbk6rWQ+WDMfKvPwrV6t
iCSJROZff7qlcMFze1+PxDLHBJ0mLHOeiZe9Cbwr7mYy18GICgAAJop+T7Lr
7ci1WX9zfvLqP5X5NKiZ3yhzWjAfkLkUknkAqf4P3mxem/bkyQ9N2OTY4WTA
h9vCu4xKe0KQMQyXuR5kDgDAxOJ3J+//zLQq/T+/eLUaiUq4zOKXkJ8WHoaV
WaabzNVhMle03xD/qnwfUn1vbChdnfLId1+mimwCTsvxUfKQu5+oM3FQ5sN8
DsPjAACYMLDMT21PXjn/T+80rkGihHhiMxlxIsnM7waZK6FfUCXlFkEkrdxF
7hpS+l6qW70q8f6ftqdjjXMOIzb5gMw5Z+ygzIf6HEwOAMAE4XcnXWhLW5X8
/75ZuRiJIuIV0j+QylweOmOIyFxUBxdpT8lQh74ZDZe5dvcTf4sPBpDKKX0/
1qzOKE57pJfNF1jTEIzDMdzAhP9BAQC4Owm4k350LahaeE/DskTUex0bTeQF
LHOJlM2nm8zRsCl4YZmrw2Qu8H6k+KWei9UrU60Zj/SxeSObHGQOAMBkAcv8
FzazNv+ehiVmdPU3JCFJEKnMuVBRJSxzugR7CtdYtBgmc0UZevdTk7kicEjx
8ZdP1SxLrM19gsr89w4fkQn/gwIAcHcScFsuuTNsi/9atzhO+uVHRG4Jyljm
AvH59JQ5DSUk8yEtaBTte3IQKX39PxyuXhxvK3imj80BmQMAMPnhWMtv7ozN
K+6ty4/xfXuWLroeSea8Ghbe1I1byFxbykLGcyh9v53trFwY++qqGf1E5jfU
UkYyOSnFTPgfFACAuxMs8x7vgjfXPlibF3X1xBEkkS6Cd5vMVfpritrWUJVH
0rWfjjnLc6O3Fs3tZ7NA5gAATH6wzHvbM98pfqw2e97PB7o1mUsocFOZo2kt
c0HUfoJHwtUfDuwqy5r7gTX6j8l8cLnLhP9BAQC4O8Ey72tf8KH18dqsOd91
eZAghWXOC9qOyOEynzALj1GEy/50KUuI0N1P/GmEfltE/G/f7ttWmvXix1WR
fe4FvNswHOPNYU28+zaq68DdgNaq9IbVUOHmpSbSA58+CF2PsBoKuAN41hxo
z/ys/PHqrBfPdbRptQYJCTIS5WEDnZWpPpZCiyG/Dk7EOQr5uIF/W1mlzVr4
IFKuHXFvLcl94h/NEb2eNI4OUf3nuI1/9CeBuwP8/i64kjA8a+Hc5oDHhMFP
SowZMSmU+cg1H7FJKmvmnDE++zzwOTBqBJdZ8KTvqHmibMGjx7u3iSIvhhbv
yaHENTyyYXCmw5QNrZwSljn+oOFDyK/d+ZQUKnN8xJ9IlGv7Ha8VZT/yZcuc
fk9m0BMvuOPhCMfbPQruBNmViCEdITwmzksQPCbZlSDvTlB2WdBOi7rDLO2K
Ex0GyWtQOk2wVQEYPfiDnnv+7tonSrMeOtT9Ba8IWrGB7qIRyRQ5kq4iYaBz
LB2yNkXjdzL308x8UOb4u5IgIvVa586X1mU9/HVrdL8zS3BYRLsFjnC83aNk
N6ttBtWuk5xRgisy6Irk2EiB0YlOPR0HlkRoSxDbDJwzNuiNFTuNIHNg9FCZ
OxqeLlnw4P6OTwdlTurI01Dm4d4sw2SulVm0GwQK/q3V3vbtLxVmPb77ZXOQ
zUOuJPKJGI5wvO2jGTF6xEQiNhJ5IhVvpNQerXj0qttAp67HI1ciwY0/Hcf5
PTE+tw5kDoweKnPW9nxx5gNd7Ad3k8y1mnloiY4gD9ztxd/v9W5/rTDnGceb
Kf1MmuTQSQ49HOF4u0fVHoXaIlDbHOSYozjnCK6IIMnPdQKDf8Ag7daLu8gD
xR0vdsZzHQbsc5A5MHqozDs2zcIy99jfFlQRe1tWprnM6W+grc8RQzdAw2Pj
6C/Y597++uoFz+96Pd3nzZE8RskTD0c43u5RdRuRy4AYA2LJl7zXHPRaeE+S
6ElCXRnIm6w4TaLDILpicWYe7DBgQObA6KEy3/NKRFHG/czON0UkCYguabkr
ZC5qMke01CKo5Eh6RiKfc9sbBanPfb4x7RK7uJdN7mVT4QjH2z1ed6X6nWl+
R0a/M7OXybrqysFcc+VcZzKvt6XwrmTkSUUeC74MOWeMn9UFvbEgc2D0UJnv
fz1qffp9bV+/qslcEO8GmYeXmlOZ4ycF2hdSIb+uf9c/tuRYnnunMevrjfG7
Ns0DgFGwe+O8tlZM1K6NMTs2xm7fGLd9U+yujdGO1rku2zNn343w77ag9hSV
jQ86dEFGL3th0xlwBzBmxZN28E0dlvmur16e9jIfMsaUbgJVQ79OkJfl0LcU
Wejf+Y93CpeklC5JKMvXVSyMBIDRkD+navFM66IXygpm1a81FC+eU1YwY1NR
VG3u/ZsW3cPang84M2VXMt8Wi9wm0R6jsHETLwRg6sKYeWfSnlciShY8iDPz
gEj2QSrqXSBz7XcMzVEKJe0SXc+CkPjDuWOeXV8cabfvd+2k7IYjHG//uGN/
+1fdns88rs/2de9sd2/rYj8/4v1gx1urbIsecbRE+Jhc0TVf2B2HWLPSFoOY
OJmZaCEAU5chMrd/89q0l7lACclcCRMeTsHJPK8Eye8qBaX+a+QVkBWyfQoA
bh8FBxIFJPRLIr6QgvgZJMvcpSOe9xsWPbO7RXedyRdYKnOXGe2ORU6TAjIH
Rg2VeffLc4szH3Bsf52TgtN7NctIMhckEV9q+LrjpADN0BVyG5iW12UEAKNB
Wy+Fk4MAJaidewq/n/2kevHzOzfoe1z5wQGZ7wKZA3cGlXnXS3OwzJmdb2rr
zMmWyLtB5tolR2UuymSlOc7IRXoXlHxXVGVOVBT8DC+S2whwhOPtHXFuEFAF
Pixzv0LOPUXm97o+rlry/PZW/TV2IedOITVz1qRl5lBmAUYPYxaY5M7Ns4sy
7nft2qKtM5/GSxNvlHmozy+SVWJyicy0FmXaSjH0XVKAEQFgdMiIl+iiArLf
mG5MU8TAQc8nVUue/WZj1FV3LudJDtr1yG1SsMwZkDlwB1CZd2yatT79Pnb3
WxKSp/dqFoHUUm4icxVJPApq2VQQJ+MD31WG9I4EgNtDos3cfJLCy1rbCHye
Ba8ecn9QveSpbzZFXPUsCHgTAg4d8sSJ9hjVBTIH7gAq8/aNM7HMPfa3ad0Y
8YLW43saylyiv46qfaEMllnIikRaZiFHRVa0Cow4pK4OALeLqpD+P8r1IN+v
Dpx1fM8R70fVS575ZlPkVU9mwBvvd0ap3ljRHqu44kHmwKgRXGbelerdNLso
7cGO3e8i6rogTy2m/K4FLjkdlQn18Z1G6Joa+oU68JWiceN3AeAOkESepgoE
RRWQyh9gPq0umLW91XDNvSDQbvIzEWq7XmwzKK6EwUEVAHCb8KzZ7834ovLJ
upyZZ7y7EBdERGdkN+Rw3SmhooM6vvKFgJjSQdYmkv5tMv3Qp6g8UsQDzi9q
8yO2b4i75s4OtMcFmDlqu47InEkEmQOjRhsb90n5k/VZc7/1upAfy1xRUEBC
pMpHzkJF83l4bBzIHALijwfIHBgvsMyvezPfL328Pifyx+52MghTVVTEiSgA
MoeAuNMAmQPjBZZ5b3vW1sKH63OjLh3eTxZ0gMwhIMYqQObAeKHJ/NWV9zXk
6XpPHSNDGhRZJQm6f5jMUVjmEBAQfzxA5sB4gWXe057duuRvdXn6wMXzdNmK
MihzNFTm4kRfGBAQUy1A5sB4EXAnXW3PbSz4r7r8OOnHH2lXQZmWWfyDy1hI
Ph6SOVRZICBuI0DmwHiBZX65Y2Ft/l9r8k3yL5dIiylRopl5H/G2CjKHgLiD
AJkD44XfnfSDK8ua9Z+2lfNRkKc7JElmLtPMHGQOAXFHATIHxgu/O/mCPaMk
+y+bi3JRUBiQuYr8obUrgzKXVJA5BMRtBcgcGC+wzE98nVyUfe9btavJUhbS
OlBRSVoOMoeAuOMAmQPjBZb53k9M67P//o/X6kgdRR6QuY/OaLhR5vJEXxwQ
EFMpQObAeNHvTmXeilqXfR/z6RtDZa6gfpA5BMSdBsgcGC+wzL/Z/CKW+UHn
50TmoTILNyjzUJPYQZlDpQUC4o8GyBwYL7DMP7U9vSb7gbPdbZrMRVEeSeby
ZJS5MsK+VCXc6VGa6K7WwBRkrM5ykDlwJ7AGTLjLvYky+Pwg9Ml+d8aHdS+s
yfrv7w+58bmGzzlRFFXEK2RooULORq3SQv43CW+AKnTBpMjznErnaeAPFZKs
am2kVdJ/gKPw5MdUrT27CABD4IdAn6F5C50rociipMr07FfQKE9+kDkwarDG
XXqMwhhlMlLQjCE+Zw2cPRJ1mTjHXMEVibzGYFu05DT2MQs3rnhxXdY81PcD
knz4TAuXx5XBPHzoXtDJZXNFlAL0GkSCqAaDpE9YeDa6NruTH2LyoY3ZAUBj
qNi1ZwY1rkiqdsLLNEOgXr/dMxRkDowWFp8SeopRcZpkp2VA5kHHPNRt5Byz
BVcE8sQKZExVQk/bwqaC2SX5iaj/R6T0IZXT3CgPm5AZPi9JgiJNJp8rwWCA
jgci/05BCl2N/VzoweA/Xh18LwKAAQYyFhX9kx/FTsZKv/0zFGQOjJaRZS4w
Uagrjso8UvEYRCZOdSf/uj27Mvv5xvV5yP9zSOZyEE0ZmZN/y5WevgBPsnAf
RyYkYfwSwr8DHx6Rro3sUun4T3xFiQoAEPAZoqF9KQ1BJjePUDCA+CBm1EUW
kDlwB9Ayy01lLrqiUach6JwjslHE+W4z8sw//2lqSdrTW22lKHgFKT4sc0UM
oHDS8rvkViG1xEkjc/wP+f7HSyXlTbn5RQXLazNyKnMXNy9a3rp0zaa8pY15
y2oXLq3GFCyuL1jcuLjAVlBgW7ikiXwLAMLkLAs9WLiEkL+kPn9Jbe5Ca/6i
sqVLSisqbO+9+2nPNV//9YAQFG/7HAWZA6MmXDOXtZo5lTl54DJIrE5t13PM
PMGtCzIG2ZOseDL2v2FYn/r0zg9fQcI1pPiRyksih37/CRRNVpn/1Bsdl/nQ
f0dH6he/MCf/mZmLH38u75nZS56amf/UrLynZ+Zinp2R/9yLBc+/sOy5F5Y9
PaOAfGsmHOGIjwVPzCI8NROfMAX43MDgs+XZmbnPPJ8+a3bGnLkploTcuppN
yrAr4XYCZA6MmhtkTm+ADshc9uiCrkjRE8s5DbJ3vuBKdzTNWpf+3AHXNiRe
12QuS7TMooxUTpxcMr/4Y99sXWaEvqC8/ouqJnt1i7us3lVlay9rZMoaHdYG
QkU9W1HvrqztqKjrKGtwlzaypY1whKN7CF58xOeGtQGfKkxFQ1tl3df1zV8V
Fb9esLiitmazdvIr0u3vmQOZA6MmJHODJnPFacaEZa7HPufZaNlr8jtMojfD
78j4rPSpoqxZF451Iek6KZiroiLz+ByUZPVW94YmR+B/3ne/8LP1+TEJ66pt
bdYGpqqlu6y+q9J2oMK2j7IHHyub91c2Ha5qPFrZdNRqO1zWctBqOwhHONLj
4TLbYWuIgxX4VGneV9XcVdHgaHnZXV71QV5+ZUlx06DMb/fkB5kDo4bI3DBc
5ibyGMuciRFd0YJbL3ck9NnjBW92X1vmu2seK86N/PniMST10SXZoqoI+BwU
5SH7PSelyRH95/18Fc3SFczWraqxMdUb9lTaDpU2Hi63nbA2HyXgK7T5aEXT
8YrGU5UNZyoaz5Q1nyqxnShrPgFHOA45ngqDz5zjFc0HKxo76jawlbVfzM8s
qat/A5/2JLkZxdJckDkwasJ7gobKXAnLXHbH4rScY0yce76PWcB5l1Qm/5+K
5fEy3ztkc42oqqpMxjoPOXMnq8x/uYpmxyydpVtTZfNUtxwotx0raTxmtZ0e
kDbljLXxnLXxorXxfFnTuZLmMwAwnHOU8/hIzpbm4+WNe+taOitqt83PLAOZ
AxPDCDJXGFJIJ5UWT7yfMXOejH5X3tW2vPKkP9lKsxXRF94BRzZNqOpgPh6K
ySrzy71ojn7ZzOi1lc3uKhuW+YmSxhOltrP4Ci22DV6t2OFljRcx2gULABpY
3WUhmZ8vbr6IwQ9wJmBt3F/T0mWt/SY101pXv4VYXB7VpjmQOTBqWIMwTOYm
RCAyV9hYgdEJHlM/kxDw5vSx+ac/Si5N/Lf3X7IiVdBMrpKjguNfIt+xDizz
q/0owrBiZvTqiiZWk3lp02l8bRbbMGc0tNSrrAmn5ZrJz8ARjmGTnyqj7/Xk
Xb5pQOZnShsPV2/YY63dkZpZgWVOmkXI2t7h2wyQOXAHCNTnmsw1k1OZGxBr
4J3Rgju+z4FlntvjKvBsiihN/Sv79daBXcyKQh5I0u2ftBMRWObXg2he3PIZ
UavKG12VzfuHyFwz+akBbrx+4QjH5lMVTScw1qZTAz4fkHnVhn1ltTtSMitq
G0DmwMQwoszdcUGHTnAnXLebfZ68q8ziT0sfr8p66NxhRtsRr4ZlLop8qMvW
DTGZaiyIytwnoigTlvkKa4Ojsnlfue1YadNJrcZCHN5yorjlOOVECfa5LXyT
q+kEHOFobT5e2UTWOFU0HR/0OQHL/CiV+U4i8/q3VHpthHOe2wmQOXAH3FTm
yElkztmj5fakXoelj8274lj86qK/2JY82/vLSXKy0Tuemsx5npsqMucUFB2/
Asu8rN4elvnxEi0bJyY/OkCJ7XiZ7Ti+fslyhSY4whFztKrpIIb6/ES43nJu
QOYldTuTFlRUN7wlI5A5MAEMkbkxJHMHlTlpnBgtd6VcdyT3Mnm/thU0pv/v
VwsjEX+JdKlSZDmsdI4LDwC94abnJJM5/ueICoqNXzEzallp/a7y5r0VLcdx
Zl7cdFqTORZ4CdZ4WOYlIZnTTAyOd/1xuMyPa7UXUo6znaJllgNU5lVhmWst
FkHmwPghhO+B0qZbpEMLctAU3WXk7VFoT+J1xvQbk/0/u5dYE//8ujUVIR8+
V4OSOJCfBwK+m8t8soVKNqQuXFj5/My8ioa24sausg0nS1rOFjadLbaR/Ios
S8AZF9W4Vm8p0/Jz+iQc7/JjOD8nb/HaKlatFldiO6HJvKzGnpJRW1v/Ni2z
gMyBcUVgjbzbwLv1vCea9+jwMzJjRvZkZE/C+bnK6njPzF7X3EvudO87SSsT
HnZ+8gZZWD6JhX2rUMkH32WL616YmVNWuxPLvLQVJ+Tn1zdfKG4mS8qtTWfI
Ndt0YkDmQxafA8CJikb8dn9Kq6LjcyPM8bDMnSkZ9SGZkxVfI9xLukWAzIHR
osmc8+g5byTnjSYpOmNB9jTUlorsccgVoXTM7PXO/qU97YsNMatSZhxrd6Ep
shDxJkFlXlTYimW+vmJbSVN3aevJkg0Xilu+BZkDfwSQOTBpGSLz6AGZKw5s
8mS1zSA65qI98/o7on/2pG9c81hxTozvp++muszra7dima8s+qSkqVOTecmG
74bJvPk4yBy4KSBzYNIyVOa8R4e/lBiz4khGjiTkiOXb5irdUf2dsd8504sz
/7NpzXzEB+i4w6kZVOavvfLFi7OyF618p7S5q2TDsZLWc6WtA5n5KZA5cAtA
5sCkZUjNXIePYZljk1sQExdsi8CS7+u0HPkicXXKv7/bvA7J/NSWuYw++YiZ
MTsne8lrpc0dZBXihrMlGy6CzIE/AsgcmMwIrCHkc7chJHOnRVvNIjExPldM
T3vqjs1zCzPvZ//xOhkSN6VlrqCd2/fOnJOdlteKZb7ednC97XRxy4WbyfwE
Xaw48QIBJg8gc2Ayoy1NpD7Hj00SHU6h9dpCHeY+p+mqJ/ultQ9VFrzw/VEX
Um///Jw8QWXOOA/NishOzWkutXmxzAubTxXZzoPMgT8CyByYzGgyJ/UW1iS4
yABQmZjcIDtj0N7U687ES+zi8gV/qV0V7b98emrLHJF/+9Ej38+JzI5NtBY3
uStePl7YfGJ9M1lnTnqZgsyBWwIyByY1IZkTk4dkTmYP6fq+mYX2Z151pB37
NLM0/f53W5aqwV9pv8SpLfPvvu2Zp8vTJRRZN7SXbjy83naysOkMyBz4I4DM
gclLeO8nNbmFwOIndZI7mrNHKF1pvzlymZcSSjKedHy2EYk9o9nUNqlCQf19
KCZu0VzD6spNXette4s3nFzXdHKYzMk68xMgc+D3gMyByYsmc5eRaJxJDsnc
HSm5IySvPuhJvepctnXtTGvO7O+Pu5Har46id9CkChXhSyUhZcXz8wrKW72r
6zvKNp0BmQN/EJA5MHkJy1xikgQmVXAlEZl75gjeWUqXod+VfNm+qirt4YZl
iUrfz7LcL5OBFFNY5rJIZJ6zqOzJWVnrG9tW1nmsL50pbD51E5lrXc1B5sAQ
QObA5IUOdCYPnMmSU5O5QfLMErwz5c7Y647kC18uWRd/39s1q5HiF8R+acrL
XMGXSmnlK1jmS8q+WFXvpTLH6j4DMgf+KSBzYPJCZU5OCWeq5EwLy3ym4H2R
90RecyR1vJxUbPlv76dvkbblkn+qyxypSJbRK29+9czc3AWr3l3T2FG2+fS6
puMgc+CPADIHJi+DMk+THBmkbK7JvP15jo24ak/+cN2zdQvmXD6+Bye1Kj7R
pr7MBQF9/IX7xciFaYtfL2zqKG09vrbxBG2BOzAkTquZww5Q4EZA5sCkhtTM
icxlR4bsTCJVF5KZz/Sx+l/bMpqyHmksSEA9l5CiyETm4pSWuSzL+ErZe+D8
s7PSTel1dS/tK6zbX9ZyTpu0Xtx8nlgdX55kRMVhDOlnPtECASYPIHNg0kJ7
sxh51iwz8xGThhyJqiNWdc+TO2N7vamdW83rkp/8Zutm4XpfMChIiPOjXnUU
Y2onTSgKmaZx7tsrsyIzdfHFdZv3FNbuKW+9gE1e1Pxdke0ilfkpLPOyFiz5
gyBzYCggc2DSgmUe9JiC+DFprpWCnKS/lsxE+V2GK+yCj2vmrkx+8ViHB59b
ZFQc4jjUN6VlrqrkSunzoVjzkufnLqnb2I1lXrFRS8u/I8dBmR8EmQM3ADIH
Ji1Y5oInDstctFtUeyJyJtD+WtF9zrhfXTkN+Q+U5OqDly/hcwzL3C/34eR8
GshcVlFGTvFjz2bWbGgvqt9jbT1b0nw+VGkJl1lA5sDvAZkDkxaSmbOxgsck
Oy2S3ay2xSHGpHiM/Z7k81+nF6b8x1sNKxDPaTIPyAEJ8VO6Zo6vFlkhMi8s
3fzI0+mldY7Spr3FzcdvKnOrDWQODANkDkxasMwDTIzsNameBHx68Lv0ktMo
tyf5u3J2tMxZk3Lv3t3vIz6Iz7GgiDNycg90qsucFyQs81e3bHvqhazF6z4s
b95b0nS0pPkcufsZvgFaZjuKTQ4yB24AZA5MXlgD54xR2uNRu0V0GIK7Y3gm
nnOn/Mbm1eX+R+2yOb3fHUGCiM8xnqdlc5WfkqOcB0MRRRFfLXb2+IyIvITM
lvLm7tLmQ6RO3nyOQlcn2o5bbYcxIHNgKCBzYPLCGoKMXm6PU70m0aknz3iT
r7SlnPw8dU3Cnz97ZRXy/UrOR7o8WyZT19SpLHP8m0hkQYuKjp28NDdmUaSx
tKzJQzJwfG02n9EAmQMjATIHJjWsQfEYZJdeYHRKe4LUmfH91yns66bC+Q/s
a9uKgj2kOZVCZI5Pr6lschyKJHL42Hs9IKlobkz+s3OWVm3oKG85gKVNk/OQ
zK3Nxyuajlqbj4LMgaGAzIFJjn/nPNQVzzsjg2wc17HgsntZXd5967Oe9/96
Aqk8z4v47OLpOYbPtH+NZscnFFUh/dh9fgHLPC277Lm5S0obnGW2vWW2o/Sq
PEVMTluaY5lTn4PMgUFA5sBkBrkTuN1RyGvwOyICrDHQvfDwJ5nl2Y9sqsiR
+n5GSBJEmVTLsdFVJIn/GsuOU+ArS8Q+l8jNXFRR9/ZzcxatKP1HSVNnWaii
AjIHbgXIHJjEmJA3WbAbZJeOyNyb0N+96OPq2SVZz7BfbdGGxAmKSmVOiizK
FF5jjjSZy1KQtNtS0XufeJ6elZ259M2Kli66cOUovWDJpVrRdKKyEfv8uHbZ
AoAGyByYtOCTAbHzJbtJdEYFmOhAR/IlV15Nzn1Vi3W/nD2CVCxvlVdJZi4p
sjYQeSrXzfG/npclDpGLBbm7Ljw3NycutaGqFct8f1jmJ0DmwEiAzIFJi8yY
kT1ZaTOLTp3gifV3ph79zLI28S9v1i2TfeTWZ1BRAqok4VMLn5zS1Je5GlQV
fIkhUUHnfvDrzKtnxa63NntCMqe3OytA5sAIgMyBSQuWubQzUW1Lkl16vt1w
1Z2wrenp0sxHOr9+h/hbRQEF+ZEgkb1CIpKVaSBzInJFwTLvF1D2ksZnIpat
qdphbdkXLpuDzIERAZkDkxYsc3FHEnLMV9g4zmP4YbuuteB/b1qn6//+GD6v
JJWcjgEkCWQXP0/Or6kuc/yWpEqkA6SK8MW2tvzNJ2blLyn+zNqyh8icXLDk
aqU+B5kDNwIyB8YTmSHc8KTAmkjT8jD4HNBQnGZ5pxkxKYrb3McknPzctNby
f79dn4tkHz6fBJkYTyC3PUlmrsgiPkensMzxv1yStPcjRSFFo0+2dT01Ozsx
Z2P1xr1lzYcKa49Ub/q2vOVcUe3Rmo3niusPT7g9gEkFyBwYN7DGFQb/lcOT
PanGMTxrFlwEiTHjbBw7HDk0jPL2COSIVTsyfmPyXl/3RMXiF07v34GkgDbI
Xg5l4soQpmxoN3Bp5V+RyX+9ey/Mjl2iT6mpaOmw2g5jh1e1fme1nV1fR2Re
0nBkwu0BTCpA5sC4cVOZY5MPIDEWKnNLWOYG5NLJu6PUroUnP0kvW/BQa3l6
z6+n6cZ9unV/gJDJp/LaRCpzlZcHZP7jFdmSUTojZk1xLVOx4XBJ/dHKlvNY
5kX1x6pbz5Y1HZtwewCTCpA5MG4MyjxcaSGzhIjPQ9DMnFRXkNOEHCYi8474
4M4YsSN/V8u8VZa/7vq4HqE+ar3pKXM5GKq0SPRiW1708uMzFy4v2VbVcrC0
8Wh581lN5lUbzsCOIeAGQObAeKIQnxuHydytzYYz4SMtnmvONyInBmfm8YLD
cmX3gtdWPFCz5IWfTzsR8okij7Tq+E18PmWDylzhQ7dxeYncEXhpy/anZuUu
WPxWhW1fWdOR0oYTFbYzJfXHKzacttpOTrg9gEkFyBwYT0aQuUE74i8llhRh
tAQe/6TEWCRv3t43YspS//zFywVI+A4hvyQJ01XmiPYlUJWQzF1d5+fol8Sl
Nlob2yuaSaWlasO5ssaT2OTlLacm3B7ApAJkDowntIqiLVYhXwosFriByhyj
J1+69RKrl10EyWUSPJl9rkXvFT1WmvbXU94tSL0kBXu0MsuNTAOZ0za+pMYi
kcnOOEm/fB1Z0orm6NeX1DrLm/aV1B6qbj2LL1h8tUJmDtwAyBwYTwaWHQ6V
ORY4RRd+QHyO4VmzjyW3Phty/vpGeSx/eQ9CV8Xg9UH7DTP5FF6WGAqamauy
wvNkygYnkEsuK7/iuTmLS6p2VzTtLa7dW7PxHL5gS5uOg8yBGwCZA+MIdriZ
EpK5NMzkugGfa7l6gE2+ZC+wb44vS/+b44NihH5EqFcSA6FTa3hOrk4LmZOa
Of2NRBlfL6inX/noc/cLc/JzCt4sqmIaNp2o33SusPpgUf0x2hF34gUCTB5A
5sA4QtarEFzhvzJroEm4LuiKUjoMaF/i1e0zBU8cOpx5bVekvz3rR8fq2ryH
rXnPyFf3Ix7L3B/kfaFTKyRzZfrIXEUSJ2oylyRBq7vsPfzdjLm5SRnNpdXO
uo1HyhvJ8nKr7XTZhjMTbg9gUgEyB8aRsMyJz+kzrFZR0fFsNKmutMf1M7qg
xyR1J/U54/o78+2vJi813/fVlmIUvIjU66SQrJIR9pr6iMlDMg+VnKd2KEgI
itoaS0EMqGS9OU7OVXPS2mhDYUnlrroNh9ZX7a3aeBbLvLTl9ITbA5hUgMyB
cWSYzMnWfu1GJ0uqKzwb43fqxQ4L50noYxL4jrSfd2dvWPHcstRnfrvYjtSr
CHGiTPJVMsAeDchcmj4yV5HIa7+OxAs+UeLIL6Uia9WWGXMKlq7+qK71QFHN
nqpNZ9bWHSqCxizAcEDmwDgyXOYugyZzjOiKkTzG/rYYqWu+353UyyQFO3M6
39StTXvkrZZ1xORKH1bcdX9AHiinaCYnDMp8aldatPkaZNqGqKqcIPplGT9A
3+zY9+LsPMt8W7Wtu9J2CMt8VfX+4ma4AQoMA2QOjCOmgR4s0nCZ884Y1JUU
cBr59lQ/m+ZzZ/3Wlv7WuofWZD575iiLlH5ZCWLH9XGCpGXg6o0yl6eFzMmi
SyJ0kV5rvKJI+LkLF/sMptWzo9eX1LB1m45Xbjy9rv5wKdTMgeGAzIFxJCxz
egN0iMwNgtOAupJ5V5LflcJ5svvYnMNbI+sy/79Wa6bMX+MC17WklacLscMy
l/C5hFSRVlqmi8xVLTPHvyiHUckmIhTk0bKVG2fOXbOq6OvqDUdIY/MNp4ph
NQswHJA5MI6MKHOZJd8S3ak+Z1rAu/CX7Wnbyh+oyfyPg8x7+KwTRZ4M+qRI
dBDPtJS5LIZWWtJ5QwRJDmpl88aWj+fFrCpY9YG1obu4/mDl5gtr647QEc8T
7xBgkgAyB8aR0Dpz8pgN7xJiSQdF1ZPQvws/Tu5nUrmOxac/SXk5/78aFj2D
fN+LQkClDr/Wz4mazKXhZRY0XWrmoRhoGkZQ6Rb/iz/2PjszOcZcVNnsLanb
U7PxwvrakyBzYCggc2DcIAOa7UnIbiFFck9koD3S364LeEwca+GZBJFNENzx
Pm+Kr2v5B2XPrTT+/VDb+0jhBlw9uElIi99t4Z/6Jh/662iL58n8JPwm9fO1
6+m5a2fHLFpXua265WBV85n11SdA5sBQQObAuEF627YlD8jc3x7Z367zU5mL
bKLiTep3xvra0458mlib99BLJdlXL57SSih3TYwo8+u89NKbnz89KyN36Zam
l49bG44V154CmQNDAZkD48aQzNzAe3QBb3TAq+M8Bp41cU6D2p7sZxOvslkf
lj+1bv59e3a+jWQOZK75HF94XYfOPz07PS65pnHzwdKaQ5VNp7WOWwCgATIH
xg0iczpCSKIttjiPHoOtLrj1/t2Rosei7Mk/9pGlPOOejcXx/T8foys67lqZ
a1+GZI5fhcu9knn+6tm6VcU1jtLaffWbzsNAZ2AoIHNgPKHNzMnWIbKshTWR
LfzuSIzARHGsJdi57CPrs6stf+/a9TpCvbLsn9pdbW87fi9z4nMFyRJdyVPb
/N5s3fKcJVvLajsbNsGwIWAYIHNg/CBttej0T8YiMUnkiNN1d4TkjkB74q87
E09+lFKdcV/zmgTfpVMI+QOiT72bZE4uspvJXCK9FMlHFM+ec3GWdXpzlbXG
XdV8CGQODAVkDowfpOGtjqxFdCZLzjTZkUpmVbhwZh6h7LH8ssPy3vpnqrNe
7N7+HlI5GYk8WZR3N8scaTKXwzK/3ItSM8tmzF1qrbFb67qszUcnXCDA5AFk
DowbZKiQJ5pMFGKSJUeGYk9TnBaZ9EuM7nMZz31hKbbcs3FdhnT1V+y1fonj
6UKOuyc0mQ/v5astOBdFWcAvxTUfemXLjsjYVYmpTRtfO1LVcrS06Xhl6xlM
Uf2RksZjtKEi9Gy5SwGZA+MGlrncGRtgov27zaI9XXVkys5kkYnj3KYrzpR3
ih4uSn38qOsrJCv4XKEb2kHmIZnLqqAl597u83rTirj40soGV6XtUHHDUWxv
7HBsdSzz8pZTIPO7FpA5MG5gmQfd0X5nlOxJRR25siODb0siuz7daZ1vRlZn
//Wd+sXXvj+DzxmtO0lwOuwDuo2gDcxvInMVCRheDCXnuYtr5+mWrS76DMsc
J+RY41jmODnHMseAzO9aQObAuIFlHnBF+hyRqDMVtWf6d1h4R7rYkf/z7uzN
Kx9cn/noic6v8OlBGq5Qf9FJ9XdLqCPKXOugKPb7+7Tk/M13dsyNXJhd8GpV
y0F82WKZV2w4jX2OTb6+7jB+POFWASYEkDkwbpDMnI0NMDGKOz7YZrq+LVbt
XNTvWcG+Gr829e9bmgvE/p/J+EsBKUpIbXdP/DOZ8xzvU2mTsbMXemNNS2OM
RaX13VqRXKucY5mvqzmIn5lwqwATAsgcGE9Et0l0x4mumP4dkQG7Ge1bceqT
7LrcRyuW6M4fd9Omr4osq7IY1thdk5r/M5lztOEWEmTSRHFt4YanX8gpWLdd
u/s5kJAX1h4Cmd+1gMyB8YQnDRLNEhMtMFGoK/WqfcGXtZFL4u778u1m7Ct8
hvhFTlYlVZSQNJrTberGLWUeoDLntQ8rWOZtjiMz5y2Om/96ccPR6k3n1lYf
KG85pVkdP5hwqwATAsgcGEdMgsOkuOMF51zUESN1Jna/MmPTkic3rEn+5fxJ
RDY5Kj4lIMpBUmcZ1ek2pWNgKcsNN0AVJUDvBos8T6aC9vSJvgBKSit+fl7x
2uqOms0n11btqWw5XbP5vHY/lEyvGIBc5ljvZyjg+ekMyBy4E/Dfi/7JTAJL
SuIDDP2u9gODz7gMvl2zxY6Ea87Udwofqs19jvnsFaRIPb0+2sJbCQp+0l+L
oznp3STzEYLsAw0EfNpr4fOR7u5cUH7tzc+enpWdUfB6RXN7zYZD1oajFbYz
la3n1tUcLGk5XNJykHKY+vyMtfEihvp84p0D/IsAmQOjhjbOsiBHksSYebeR
CzVCjMYPyJJyxqQ4zRoyQzqxSKxB3DUHufSoY34fm8O8bChOf/D1mkXi9Z/o
LU8SWrWBzsK8iwrm/zSCwaD2IBAIaA8OHzsbGbcwLsVaWPV1zYb9JTX7y5tP
V7acJbuHNJnjJ1sOhmTe8B0GZD69AZkDoybU0jYkc0PAq/OTeRODMtd6JFKZ
m6jM9ajL2PP5c6I3+6edixoWPVa+OPJo19dI5ejYoMESgxoeAwehhSiKkkSn
48mySq4n8uKsKrLN0i9euHprTWt3Sc3e8uaT1qYzpU0n8fU7kJxTmZ+yNp7H
gMynNyBzYNSEM3OL5DKFZU5alPMeHU7CFcaInCYM6ZTooi22sMw7LL4dcdfa
Fuy0zVuZ8JfPXi9G8jU6xxMNl7lChzJAkSUUWOBK+MMLtjpWOpb5DmbfPGNB
fFpleaOrynagynaysPqo1Xa2xHaK+vwoLbOQ/i1Y8hiomU9vQObAqJGxrkni
Tf5kVOZ6DOfRC24yoxk58XcpTjK4WWux5dttQofWHtxitKb8+RVrwuXzHqT6
SIfXYTLXdrWDzEOB03LtgZaT4+B5HqfpVwNq5uKyF6IWLl3/Uf2mQ9UtJ9ZU
HKpouVjSfK6k+Yx2IROZ245bm49D8/NpD8gcGDVY5goFZ91Y5pzHEPCQo6Cl
5VTjyKlHjI500/JEcm6j35X1W9uyN1b+d3Hq/UeYLUi5hpSgLCq/k3loKMOY
SnGqxkBOLgjCwJMq7XD+0tbPZkRnJ6TX1rR0VduOFlUdrWr5rqwR+/y85nO6
puWwFdN8NLy4BZiegMyBOwFn4DjrDsncbeTcJp4lf0GSlmOTO/TIqVNcOskd
zXmj+z0Wrrvwo7JZZWn3b3ttNffrMaT6h2k8LPPwhB0JlrMMhFZpGUjOVbq1
/8wPl9LzimbplhRWbi9v3FvecLKi+WJZo+bzcyW2U0TgLQfLWvaXhernE+8c
4F8EyBwYPaxmcjL3jacm59xkhBCppZMaS0jmsotU0f1efY837eCH2da0hzcV
JVw+zSKlX1u1ov7O5HS3owgyHwickw9oHD8mt0ER8gkBfE1a6156Zk7G8vUf
lNZ7ajacLqk7TWX+XUkT9vmZsMz3EWzQ/3w6AzIHRg+ROcm6wzI386xFYiz0
xqiRmlyPGD3pr+Ux9nnNV9rzNq16rmJh5K4PmlHgV+2+J2mQSDtrhebqqCDz
PxT4ihRUHl+T3/7aE2tZ9OK8xRVNrO2VM0W1R0sbLpQ1/lDa/H1Zy4XyllPl
rYfLN+6zbtgPMp/egMyB0cMasMlDMmdN2OSazBWnGTFxyBsvtUWh7iShPbHH
ZenpyLS/FrnYdO9nr1X3/ngS4TNBRf0Bud9P9qcPSc4lullIhDLLrYPeIJYk
pPRwQo3tjSdnpBWse7d+84HSuoNkFWLjd1jmpbYLVttJa8sRa+tekPm0B2QO
jB4qc8EdzbsNmswFV5LsxDI3YZkrbdGoMzHIxF3eZeIPLj/2jyRr1r83rrMc
725DSgBJIi+odMsnIiszNJMrSljmoRugsG1o5FC0lwi/XnuPnJsTsyA2qaSk
dndVy8EK2xlr07dY5qTSYjtV0nIUmxxkPu0BmQOjh8z0HJC5GZucyJwxK4xR
dcaI9mjUlXxle+w1NvdXz5rXi59Zmvi3jh1vSf2Xsa4FQcJpuSZzH6cMpuWk
9kKepuvMYQ/orYJUWiQyHrRfQKtLm5+JyMxe/lrTKweryFpEkpwXN14objpd
3HysrOWgFV/OIPNpDcgcGD3agGa3jncbNZlLjCZzg2Cfh9pNAaehx5nav7/0
i+ZYbPJPXl0v9nxLCiw05dbaIgbpGvNQWq4MyFzRBjGAzG8dQSE067nNu39u
XFZ0wtrKFrbSdoDsD2q8SGV+trg5tCEUVrNMb0DmwOghMif3NwdqLFTmJrLE
xRWF2o19ThO/b8XeD7OWm/+rft38SxcOIcWP03JJCk20DMo4LZcG03JFJJAa
C5JA5n8gFPqZJqgo1zhplbXpRV3uwjVvlzV2ljQdLW08V9J0sdR2odR2lu4G
hXXm0xyQOXAn0B6JRsFl5mmNRXBZZLJ5X486DH5nlM+bcpld1FjwyIrkp491
tMn+fqQImsyDUqjGImkdWFSFmpwfkLlAAZnfKuibID4E8AuKk/P2A7EpK6IS
S4vqmPX1B0obz5Y2f29tIWta8EVNii0TbRvgXwrIHLhDBNaEHS4MyJxsI9Ip
3uiAO+aXnXFf1T9Vmvng12/Xqf4AVrUU9NMhC2JA4DWZ0337tLRCTM7TIgzI
/A+FJIZkzitka2gPL+asqHhmbu76mt3Ftd2lDafKbRfLW7+zbjhf2nKi2HYE
MvPpDcgcGG7mYYSfN41A+McYs+y00HUsZpnu7u9zxCiHcva8F7nc9L9erkz2
/3Je5WinP1IsF2W6gV+rtPCiQLcO0RoLWa8oDlTUoczyT4Ka3M/5tIsL5+dd
B87MiMiMS6yus+2paj6GL+3yljPr6g+Vv3RivW1/Cch8WgMyBwbAWibrUkLg
xzTrJom3GeuaGHs42OdqV6LfqeN26RATjzzJyGVR7Ql+ewK3b9G+T+OL8/69
ZPmL5487SW2XH7Dz0NblQ06UQX7/XYibhEwL5nTQsygjUULyz1eul1W9+sKs
/CWrPq5uPlBlO76u9sD6pkNVr55c17QXZD69AZkDN8ico82yOCpznpp8UOY4
/Q4fcRKOZS53JPidesQakdeMdsei7XrFkcSx2Rd25GwuenJdwVPbv2zl/Jfo
KjqamYOgxy40mQsSh2WukJvJpON5x75zs+YtNMRXW2u89RtPrirvLGk5WvnK
qbWN+0Dm0xuQOXATmZO9+cahyblWV6EJeeioOMk8OJHFebgetcejdpP0zSxp
VzTqyLzO5H9UNWPN/Pu3bl4V7PsBYdVIdHwQTJsY09A+vIiygGUuKv2C7MMv
8G+94vrS12ZGLMtd8n5t6+GSxgMVraeKmg/j/HzCbQP8SwGZA8NlbuTChGWu
Fc/J34Wa3Kih0CNO17ldMYg1IDZG3D0XdSUHvVl7t8QVJt7zkjXjf87uQ6oo
CaIQ5JEqKQIH2/PHMDSZS4rWx8YvyH2kci6q3u5zBvOaSENZYYWjfvOJqtbT
qyv3lbfAZIppDsgcuEHmN6BNaiY/ED7S9SoULHNnvNhmVNkY5I5BHbHKnvlH
3tfVZd1Tt0R31LOd3vFEnE9UyaZzvyr30ro5xNiEJnNZVVTSysaPkREnKLKf
R2XVW2ZELk3Leb1mw0E6tGJf1cbzE24b4F8KyBwYikC2/1BCMjfQleShoW/a
UXYNYJDscchlRp44tdPEdySc+Tzq7eKHV5jv2bvrPbGnB//VZVGrk5OOUAj1
0L4rEGMT2o4h8oCs58Qy94lKv1Y57zpwIS2nMkJftNbaVtNyrKz+aHnz6Qm3
DfAvBWQO3CDzMKGcXNC2eRJ01OeDkJ2eDj1ym0V3fNCbcvEr49tF99UvefzL
N4vUvkvE3wKS+JDMVfkaQn0g8zGMgQU/ghhAiMM+5+UeFYU2+FfUvfXcrLz8
5R/U2A7Utpwurj4Ck+OmNyBzYAihtSvDZB42OZX5gM/DuToTo7jj+xwJl+2Z
7GuxqxL+1LjWhPw/4r+yIiJJIL1tyYRPspbFj9R+KLOMYQxZvanQa5Oj+Tmn
JecXf+xLSiueHb1uVdHXTZtP1thOlTUe1yrnRfVHShqPVbaeqdhwen3d4Qm3
EDAmgMyBoTLXliBqtzsJIZnrJK8+6IoKushQIc4Z42vT8a44tCcJP9nHxPo6
8piXdMsNf95UnNrz7WGtV/kQ2yjh+UFg8rGM4TKXwj7neMmPk/NLVwPvfeyM
jluTnNG63mqvaj5kbSYyxwK32k7i6107ljbBesVpAsgcuInMic81mYfSco6J
FD2xPBvjt0fjjB11p8iexN6dumB7fF9H2r534hrzH61fFnfUvRP/neWgQlVD
bszRc0bUxsPBIvN/ZYQmNOEXnBf6VCTxCvrpCrdi3cYX5xQsXPpOXeuBsqYj
WN2az/H1XtxwFH+J8/MJtxAwJoDMgaEyH7LBMyRzig7n5ETmbmPASVqXqx3p
kmd+b1tCoDv7yGdG29IHSrKe8X71LtGJjISg9rfnaZEcw5HTh06IA5+PaQy5
GG+coCrISAnKaKfj0LyYRUlptVWNbEXzwaL6I9jh2rWvPajZDKtcpgkgc2BE
mYdWsFC8Bq3VreBO5JyW/t0JPJOh7Ft+blvaK4WPrEt/8Jt36xR/L/5zC7RO
Ts8T/JG/l0JkDr1WxjrClavQkKaBIar4WyIX7MUfiwRFvupTyuvemDUvJ2vR
K7Ubj5SFHT5QaYHMfNoAMgdukDltlmWmnWwNZL0KlXmQ0ctes+BOCDgS/M5U
0ZPLMTm/fpP72tqnSnKeen/T6v7LZ0gbPwVxgmZsicocp+U+RNdX8BSQ+diF
og1LDZlcDkMuUHyhcYIYWqa49/D5GGPuzKilpQ1dmr3LW07hB9qxpBFa404T
QObAUJljk1OZm4bL3NC3Kwp1JonulJ7tRp7NRofWXvlq/ldlz6wy3ffuhnVX
vz+CkF8kWTmRuJ8L0AFw+G/NIdItUSRzKCiwoX/sQgm9Q6pDbi9rMicNKXmR
bAglfYZ9Inr1rc8jY5fNz39/VcXe6k3nsMaxw/ERA6tZpg0g8/+/vfdwj+pK
033/jfs85947c+b09J12d7vTmelut+12IINyziCQEFgEAcqVc65SIJnkAMYZ
TFaoKCGBhFDOBGewQbHSzuuutXdVqSREt+1jD0he7/P27lJABlXtnz596wvY
3wXm/qY4yplGOLICTXkwJp84v6nN+ELNxl++odr1xUAv5DYHgn4QIOCzDagg
5UWTbBkaBYZoBwXKsfh5Y5j/eJofmbNzkTmaD8+fhJKMHz4B8H0TM1TBa/IX
11QWlpxRWbtl5t4qzU141ytso9X6cGRu6Q8PPB8K+8kDCvu7G8N8eft7zidH
FsZqCdNXWDt8UuKgQVvG7JUYb3M66CyZaNjRoFt5oOg3psK/f9V7jZ+FyAYI
Lw0xDgLfzHyNilhgZM6woViRP/oMAjbIb/bE+vE0NzE4vHoPPaQoSvgQw1DC
+6Zn/Ddujq1YuzUtV6fQ21WmDq112Fh/t1zZLbeOCbd8aLUcwsKIzDgOjXm+
tIxhvoz9A+aTBzzJPk9SwJXMONJAUypoSABXYkDjevbyatoeH2zJ9baVuI/l
laT+Sro97m63h98oEaqj4MIOQSYKL1w4bMQ58/8GcVzo20ySJMMwwnsmJr22
undeWrl545YaU12HWHVNbhjU1X0ut/BL5azC0ucIzG9DwwdPHFDY390Y5svY
P2A+OST5LIS5J4V1pYLmFNCYABpiQFMsuJruuxT3zeVc97EkyZY/SHbFtzvP
AYbEUxCfZkGSwyhdYDv83/idiZSsva+u2VkpPa/SX1cY+jXWW8oaCPMhHJkv
A2OYL2N/3/nkKDJ3oeCc8iSxznhg3wCaedsTWUeOr3lr15uZuqLflW38c6f9
LVRzyPlxU+dTKJZlI8E5fAB5DqkO3w7S4MNPWpPSKzYkybXm6+b6sb2idk3t
HQjtUKYlnDOXGcegMcyXljHMl7F/wHxyxpHGeNJYdwLtWEvbV3CutZDqpCNz
uqFw5PSWQ7tfUGx58dqFw4C9B8AESU5gmD+dgvSGSI88hjynGS5AsfAG1ltP
//n5/G07T+lreqqVN1QwDjeNzOf2EJ9gGcEwX1rGMF/G/r7zySHPQXMacKSy
jg2Q5Kx7JWiPpVrTJ5o39p7ceHDnS9XZf3e/fwgwE4CbnJq8xdeQY5g/jRIC
8gjPAZ9mIZjQXrm8LYpX1pbvKj1Te/i2RNMdhsACnmOSLzFjmC9vf6/55Kw9
AZ14NiWA5vW0czXXFkNfT/2mKaPvvQxj0R/FG19sfLsOEDOADbDkNACzaBAi
hvnTKshzlF2J5FtQKRGC+eQs/cmlG4mp1bEJKoPtpkR9XWkcWMBzgQNPnE7Y
38sY5svb32s+OSpBRMedMRDmlGMD0Zr2jT2z5cT6I6K/VeX/18W3jSAwAVia
IYJCm8qMdxIfgD6FIlHzVkgRmFMUgRr8OdSNO+sHUuUbz71QuH33SaW+XWXs
Vhr7FaaB0MBzPnmOtz8vOWOYL2t/v/nkMDhHx518iB5oTn9o39T/UfYx2Yvb
k//t8rva4NQtAAI0RQgLbkiKw3WGS0osv7eCIhjUwzUyPrl9h+nFl4srRedh
fK429aitQ3LzYJWuW2zqldcNSmsiPUTYS8MY5svaj51PzrYmeBtXz1xZTThj
IeF9jbGB5nhwNQ244+mmmGBTBnm1ZOC9LfqiP4oLnzv3tgKArwGYAGjLJI2K
xznAsfxALQz0JSNhVShFUEF+5AI480lbXr5y9bpSqapJZ7mhMN6U6ns0daNS
22CFsUtSg4PzJWYM82Xtx84nn7mykmlJBNfSGE8yxHigOYGwpxCOpEBzLGjP
9Tq3tR1Osb72N1H+38+/bQDEV5DkHJhhgI9Gi+B5mOMuoKUmmib5ukWaYtBP
5FkfOHzk7HMvZOfmW1V6l6G2V6zrUNUMy2uHIczFtj4M86VlDPNl7cfOJ6c9
CcJ88qAjiXKnM55cwpE13ZAy48qcdG9pO56q3fw7cf4Kz5njnO9bfoatjyc5
NCHAHLd0LjmRRKRYkeIDddA/dLdaXPvSiq3bS04Y6m6obT0V6usic59i/zDq
CcVnoEvKGObL2o+dTw7aU2EQPnMlJuhII51Z/qZMwr6Jai+evrb3k5pVysLf
aHeusn9wEDA+wNETEw/4QgiKRlP4qFA/IYb5khOLpi8I+7VJEi3XJiiyu288
I6dsbey+4r2nzQcHRIbOCsMN9aFbGOZLzhjmy9qPnU8+c3kt5UoGbTmUK3u2
MWu2IS/o2Drr3uN6c1NZ/m+rt/+9s/kEM/0pX4LICtiOzFgVntbwtNUfnThY
P434m5D0C3cwxXGzLDeNdswx7Kl3GzYk7FoZUy0ztugODEKYi20DkppBDPOl
ZQzzZe1/Mp+c8eTOXE4lXYXgZvnkhfxG4+p9ub+Tl6U6rxwB9BcATAWDE0Ey
wIQxHtr7FpqkRaPRiLg0camIQ88iExQ6Ayh+b8hDeOUAde+Bz2B7f01CVVbh
UYkFkryv1NAlqR3GMF9axjBf1n4szEFbJulInbmcPHs5i3Jvn71S2G560bLx
F4qSlBb3OY59wJ94TjHAC5+1aT/BcGiibdQ6G0hyL+4AXUqC1A6Ef59igiw9
yW/0gzBHCyx6Rx5s3V3zl1dLtpd/qKrvLjdcldUKc87nZptH4CAWJp+Hj0dl
ppCfOM1+5sYwX1rmsZwcmamC3hlq55zvKJ6HZ2olRfMctKXPXInzObLBjb1f
fVLwQdWfbXn/bil6eeSGg2aCHAiQ7FSQmyTBDIVWAwOGr0WcW0yGYnIM86Um
LpIZo4UtRRyqTWKFN1xtt7ILVCtj9u2pfsd4oFVmbDEcvC01jVXo+kWmYalt
pMrcV2HsFll7RcJ8RQt0v8zcrzD1ox5SzPMnbQzzJWT4zQFN6aAxE12bk9kw
nBlHDO3aAE0ix6DiQ57naKBWS+pMU6yvIYFzZXDO9OClWOLKBtCSTLljfa5E
X9uWTy8XHK16YUfML4/KXpsY7eFPyEJLyLiQ2VA5ORfluUVlOM2ydDT33LHh
5xcdiJAcgPf2dBC8+3FrbEpJQlqlXP+xvsZTLm9T2MahKw19YsuQpGYI5dLr
hqJhDkkOrTIinmOYY5hjmH8fmGfyTmdDMF9Ach7mqGc/id8ZlORrjgMdOaAt
e/b8Ot/5GNCaDdpzgo1xk40xRGfh4Nl0y+5nyvL+9P4h2f3RIRCg8YHmctYi
MId3JUtwnLBu+8Es0NlOr1hflJEnV5kaqzWtmvpxmWWwQt+trB+T1g5XmnqV
B8bnJrfMg3k/hvmTNYb5kvL8js55g1bi5jYKoclaqaQjHX4m1ZQAXMmgJQW4
Ehn7BtoeSziSfI5Mb2vR1aMx+u3PlOf97p395WgjM0eE1gNhLVfNhzkIw1z4
FSvIodv7s/t0mWT/cy/nFO7cr6/v0NT3V+mui03d5qOfQTLsUXaqDnwqNo+I
wwNyBZgrIeRNvTIzbjLCMMcw/04W5qtEbYKb2wcXGo3oTOWdTjgySUcm04yy
MeDKBtC0AbQkAnecr2nddFPKbMtrntcTVZt/W5bzn1dOm4mpO6hPn/VzOG2y
vLUIzCl4V5L8NMUJP+Fl0B3e0ftFYbHi5XXbistPiQ1uyAFlTY9m/0i1qa9M
0yuvuSs2j0NLTWh7hcIEeQ5J3q0wd2OYY5hjmH9nmCcE3DF+j+C48Aqh5ICL
B7gzneQZHjGCeWMycKaB5hji0kratYG9nv35xfSm/Rv2Jf+v2sqstgvv+B/e
A/xTQwKKQtlTDPPlq0eOPIRpLUEmQPPxuZ8Fwk3uah9OyNj98rqSotK3jAc7
tXVdVbp2iAh17aci4y2x6S601DSOFsxhmD81xjBfQoYw93s2+FrW+VoQzP0I
5kI0HsI4bQ+Zz7Gks82pwJEFLiVwjXGgPZu7njf2ccxb4t/tS/uXenFuf8sl
dCuzqFqFf2qpGXoaw3w5a24w2jyY04AkAUnzh9/TfjQ/18+AUx82x2eUJecq
yqTv62qvijQtcmOffv9nIt2Y1PgZb1TrgooSzb0Kcxc0hjmGOYb594U5jMwD
bj5JPregGdE73LnPr4RzJDD2JODOnT0b572cwrRvG/4g+XDpr1WFvz8gy5q6
20PPzMJnhROOwdBTS/qYGQzz5ax5MGcjMGd4+ylfkCXRK4HjfCTa1a23vb02
fkdSllRnc+hqrkm019SWUYl+VGa4GwXzIQHmMksXHpmLYY5h/t1hHnBDjMcQ
blR/KNSTC2XnfHMQqm9h7QnhzUEx8BP8Tel06/ZZZ/HVw7Ga/F+UZvzq3HEx
M3UHsASa1EED/pmFYRnFohwLhXPmPw/Ng3nE/E3K8kY/36cDoFpW/9LK/ILt
NoWhSWlqV5r75OZRuekOtMx0R2IclRgGJMZeqfmmzNKNYY5hjmH+vXhOhhZJ
CCs7k0ATMkqk2BOBPY5qWkc71gNPHONeP9MU620vunWx8H3tSlH2rzTF61vP
HScffoF+n+ainiHAN+ZzFG7P/zkpUp1IzTfNhOvP4Q/4+w8JyPM//SU1f1ud
oeaqVN+uq4UAH5LoR8SGEYlpWGoclJr6pKYeZAxzDHMM8+/sUBwewXgzv7Kz
KQ44E0FzHNMci1Z5uhMoTwLRkhBoz+s+k7lf9NzerF/XSfKG2xtBMAifCYbf
KsZnVOATGkCGzwtDo459XJr4c1Gk7WuhudCVFbaQ9PZ/XlyifeHVgoLiQ/ra
6yJNq9zYIzH0iQz9YuOAUKCIsuWmvidOs5+5McyXkIV0CmhKRQWHIZLHITfH
EZfWgPYs0LkxYE+cbEiYdmbcu5zU+U5MZcG/VhQ/d6J+392h9qjJKkL2lOL7
8afQlQ2g8jQaT0H8+YiNqlFcFOzoTv/m/gS8e29/OpO9sfpvLxfsE70vMTg0
tTcVNtT+KTFBD0Keo03QMER/0jT7mRvDfAn5EZhDjMcg2+NAWwbhSJq4nDTt
yAteL/mqaetZ/XPlmf9X6ba/XjhTQ/u/QlkUFnhnABng9wSh54aYgzkX4CNz
DPPlLD7YjjA8IjZ8XczCT30GuFqGsvNFr6zbWaH6WFPbqqztlNd0y6wDEOZi
45DEOCqzjApROjaGOYb5d4Q5sp0Py+0xrCOGcaD+fcKT/rAxbcq9bbK96tqp
zTV7/qrc+p+10rTbgw4i8C1Kf9IMGQjdm0RQmJZFhXIs6GmlcPvnstdjYD73
4QUkZ9EPfpYIBGe9aLLixebumLQ9L8fu3iv7sELXJLN2yG0oMhfphyXGMbnl
NoY5hjmG+Xe2sDlImGcbxzjRSBbCHeN3J92/kkje3POwrfpjS8LulP8oyXzu
kxPa6c+H4R0pzMpjqLnfpmk0CzV0w3Lh0gUaLw5a7uJhTi8Cc25RsyzhBwzJ
MhS8geFrw0uCUx95NqTtTdqkyd/7ZoXWoajpk1kQzMX6cbn5rhT1+D95pv1s
jWG+tEw60fgsNJXFFUO61wU863yeuBlP6kPPxp4P04+IX9ib86y+IrfLeQGV
kRMgOA0YIjK01kcG7zPUA/iAr2Dhi8z5JzUIgB9dWeZHZAfWU6bHRuaLwxzx
nAiGVhMFgnzLvxd8dPHa86s3J2/U7JWfVdSg4Fxk6K82jkotAsyH5uLzyNhz
flJuyCY8/xzDfGk4NDbcHnocfn/y4yxkTiIjyoVp5OR8R32RuT2eqObclTTr
Tp/05H3bUtT0+nrl1l/uynjmZF3p12M3ABEAkWVvfE6FIfwcMyXsI+BhzkZg
TmKYYz1Gc21G4RsfvmaOv3k2LmXHmvh9lZrz1YYW5f5hzaFPdytuVhtD9YoS
06DE3Ce19CpsvUoUvXcpzKjfHzX+88NylcYhnjxPHoDLyRjmPy7JWXuCYP5x
ZJdEKh1loWcTGr4fDSdvyOJHlKNMOKK0K4Zwbwi61gec64OuDYQrLmhP8DXG
EY1JnDOVurwKtCaA1nRfQ4rPscXbWnbzdOHr1St3pvzGXJXZfuVNeuouYH2A
CUB6R83iAOEcC8U7vFGCC308UueC0yxYgqJXdnORFw/qRwA+L3n8jTMJaSUv
rikWGZoklutiW5+8blxiGZWZx2XwahmWWQdk1j65tQdaaPZXmrqVYZirDENK
DHMM86fY0TDnmzGT2GYhyx0heToP8/QomKeH3BRqw0enmRDgzlgCTbVFPfu0
O4lzp3LuNNaZCNyJs2df8V9OBl1lU/Z9Z7QblPn/WZ3/6rsHFAPXGkFwElWM
swRHRx1rYmF9f82HOYiKBNDvdCQJDNZTGxL3rEoUyczuMo1bVgvRPSTUtECY
w8dy26DcMsBnV3pRy7+pl5+Xi3YS4c1EGOZPv/nVPwmRZAsTDs5DeRVhFHlo
ILkwQUVovedzKQLtm7NIe9bMxSTalQ2u5kCMU45YxrmBsq/xXl4JWnPplsLp
5sLeN9OO7vuzKPvX1vKki28bvfdGAeML0ztUP0yQvp/iNsf6OYgLZ+kWwpyj
vTM+xHMK6Eynk7Kkr8RWVOkaJOY2ua0XYkRi6hcbUQMRRLrCMiI3DwuEEawI
XfvxVC4M8yXhSM48KoUu/Lvm/+uccYR7HW9+PRCal5VJN+fRTZsCF7OAazPw
bApcSZq5sJZoXge/RYQnZda19fML2y6a18hz/mdl5q/fr915f8gB2CkYkLMk
EQgQwj1IslyQpnDOBOsH6xGYs+HInEItCRxgGBAggUr3dmzyvlXx+6SmBrnt
uszaI7P28f1EgxLTsMw8jkoWTcLw8xG+vWiAPw8NbZ174gBcTsYw/9HNr2wL
XcPQThCu4ZXKIZOuGD+aZ7vO79kQcMeRzmQ0+bAph2nKA85C4MgPXsmavpAY
bE4HbTlUa/q3DZnu11NMO/68O/kXNVUJvY7j3NQY4Lzw/mIoliA5oRMb3m8z
AYpgcQ4c64drcZjD+5fj03csA9/r9bJBAugtJ2OTd65LLCtXX6o2tqlqe1V1
QzILaiYSG0ZlpjtoviI/YjFUuwgxbu2S4sFcGOZPt/nSQcHCYqAEes5x4f3L
IZOuOF9LzCwaTo5G2qJBiKHOoHTOkUM0ZAYacpmWbaBjz0TTlvaDr7xZ+YeK
7N/Iitd+eET84HYLYCcA54NhEvwOB6lQrXiABUEmVMMSpBkMc6wfpsfCHMbj
vkn4mAr4+ZJX4PeD+gOn4lJ2ZBRYt5a/LzF61HU9CuugWD8o0Y/KjZ9KjXeh
+f1EIwgv1m6xrVNsxSNzMcyfapOh9W3JoW1urtCaTr6eMCaa5AjmzgS/O9nn
Tg64Ewh3DO1ax7jWsI51jHNDsDHO15jqc2yZdBQPvrvljHZd/a7nNNv+Xifd
crPlDOCmUEBO+8kgAUMkdFAlVIwzYDYwd241OT31U9zmWD8HPXIAKqRZQpPZ
KP+UkD8P+mGsDoIB5tgbn/xtVWHSRtNe6RlVzTWVtVtm6JPoRxTmu/z88zmY
i2zdIlunyNYlxjDHMH9aTfKrIvjVP1Ew57ctQ5ILjpx4CoeeAWd6AG18S0af
41pHu9ZAk64NZEuat2XT/aailqMZptf+sjv5d5Z9GU3v7ed899EcFQ7FRWSQ
EmrFCQrBHL5FCR358D0EwdIMLmXB+sFaCHP0Pzqa56F8izA2mX8dHnrjckqe
YkV8RXH5KZW5TWPt0dWOqWtuV2uGKjWDItOYqv6uvH600nSz0twhq+/FMMcw
f2r9eJjHgPZkpiWecMZSjljamcC6UuDnU/Ykf2My7cqkXCn+phjSvh60JdFt
qdP2xCn3ptbj62t2/3Zvxn9Itq8984b5/u1htEwCteezCzr1ON7z30mHjHmO
9UPFzYvMQVRwzluAebjEBX44wIDjp5xJ2dUxKaLX9r6ltlzV2G5WKNpN+z/V
1t0VG4f2qbsqDT2yukFZfX+l+QaGOYb5U+wQzNE1BPM4AeZTl171N69nWhLB
1TSuNZ3xpNGudMadAT+Ta8kCV3OYlky/I226OeP+5cw7n2Qf3vuMYssvxVv/
crJ+793hVj4WAg8nZkL32AKz0Y9ZdGexwlkVrjPH+uGKfonxiozMpecwPmf0
3tkgePfj1tSsylXrS7btPq42ebS2Ton2mtzYI7cNisz9VcaeKnOvyNortvVB
1DxxAC4nY5j/uDAXGjzRVTgADcMcdGZSnoTpK+snL67zNSWSzizSmR1oTqfc
qbPN8bP2NKJtq79l5+Dp7JPVL0izfiXO++sbxuKBq2eJ6S/4kIcm+f3pC++x
aJiHMM6THG2FE2InDHOsH6hHYB5R9HDFufnnMNjgy2LB6Q+dm7cq1sXv2bi1
xlR/VWlqEWtbpeYb2gOjytrhMu2NCn23av/4E6ffMjOG+Y8L8/BK5VT0pjMh
DHPU0el3xQfdKWRrNt22MejOm7yc+fUnCX53tq91I/w+9J1OPyl+Tp7zK2X+
32srNo1cvTz9xTi/Lx0NR5oJer1MkBa++YsNRArnVSh+bjmFI3OsH1cLwP7I
dW54F8sf31zrGH1tt+blVVtyN+tN9R6NrUVuboc8h/G51DYksYyKQ1O5njwD
l40xzH9Ez80bR7OzUEk5P2sFefrK2oAriW7LJlpzZ+05M80bAy3b6Rv7Zlp3
9byf8a7yeXXBM+WZz5rL0q6eezP47Zf8Zt1wyM0PyqJZAjrq+78gLgqnLrkF
+2KwsH4ELQgfmPkZ9UiXKEMHA34v4OdxtV8f2ldpfnnV5uRsWansI9PBLpW1
q0rbKbeOKG13K/XDGOYY5k+t4V8erQHiNwHxs1lQVTlq83QlgI6cYEvqVFPK
RFP6rHPzjLPwm8v5t8/kvyV9QVn4bGnWM7WilI6GY8GHY3yxCggSLB0+2aQI
liHIUBaF38wIQrNMF2QvQ7/tPv63Yyys76W5eHvBQDY66hopegn4p4WJQETQ
y7Loddg7+KlSd/SVtYXpm3Sl0rMKyzW5pU9kGBTrx1EzEZ5/jmH+tHoO5k3J
oHkezP3OxJnmxBl7utedP2XfMvROwlnZs8b8fy1J/k1N9ear549NfdkjbHBj
AOVlggQ/mXY2CAMdJoRtNKkWTTlkQhslWG7ednWa36se2jRB8sYrPbH+z7QQ
5tE8X2D+k0iW8gqhBU2Twiff+XJaZzkZn1H28rq9Oyves70+rLb1iTQ31TXj
keHnUeRB8BEehBklAIpfM/qkafmUe8nDnG+u5BMa8+0IN9HPd7gxM+SFX2rB
9dHPX/g1QxNuBfMLOpNAUwJyMxqcCD+BcKb7nVmz7nxfe/FDZ3HHm4nHyn+v
yv1/NPm/sO5+uc/+7uRno2ifMgiwrD9A+wgY2AB2mg4GhXtEON8M8qbAfJjD
q8DweSTHMMf66bTIiU3kZRY6vokssQpF75N+cOStC3Gpu9ck7Nld/qah1m2o
aZfq27R149XGoUpDn6xuRL5/rMraV2rqrqzprbb1i6z9PM8hmkYUxjGlYQxe
Mc+XM8ydoe541h63oLlSaJ8nH1n0AIPkaM8tgAgtfYhuukfvJFxJQXcy0ZIU
9CQGnfFBRwzhiEfvb4pnHSnAkwVceaApm72SxV7JAQ0ZoCEGNKxBS5YdSZwr
i3Bt8rm2T3v2fd64r/FQlmX38/uyf1+W/8IB9dabjpPkpJBUiSS6WS68x41Z
cI9E7YeZf/bEhlMu7GNvMSys/x5FV8mGXszolQxjkG9n6I8vtucViP++anNe
gV5rubL/aE+pok1iGVXUjVeaekv1Nyshw+uGIMwjPIdQgnRSGEcgzJWGEQzz
5Q1zfnJ4nOB5zZXhEJ2cfyVccQF3yMK08CiYJ4SzJXNza/3NSV57gr85IeBA
8KdciaQrDjX+2OOp5jiiIT54KZ64kEBfSgNNuRDsgXOrQUsqaM32X06ebcgL
tOwe+7jgY91a2aZf7838Q3XR6pP7JcM9DtL/LWq+p4O42gRr+WheGDEHc+FX
xVkKNLj6d5ZaV8fsyNyoqlaeU1u6JYYBsR4NzpXahkTWgUpzH4zPIclDMOf3
zSlM/Xj++fKHuSMptAMitNZnEdNRA2lRRO3eEPCsC3jgFa1CFngOw2+heZNf
G5FJN2fRzTloFG1zHmPPpZoyqcZ0xpEBPOmgJZ3zJMMfGcAdDzxxwJMAWhJB
SzIHfyg0xfoux4COrb7mPK99M180nnl037Oy7P9XueVZ497V59+QfjHYRMzc
pQIPSMIbPsrEwloumg/z6EzLTIAR8DEwNi3XvbUhafeK9aUV8maZ/qa2ZkhT
Nyy3DFSbeit5Q6rzaRZkqaVXZgmtnMMj0Jc3zPlqQKEgMLK5fqEFzvNL2dDU
WR7j80hOREhuzyLtOSGSN21imjYB5yZgzwX2bM6ewdnTWEcy60xkXPEsjO3t
66Yvr5i8tNLbtA7NPGxNJlpzH9iLRj7cfNm6tva1/6jO+L+VW377piat8WT1
5B078I4CMAGAjwOkkEshWQ7zHGv5aBGYo9c5waE0YpADfhZN9bzzFXH4xOXE
9KqV68U7953V2W4qTB3Vqna5pU9VNyIy98+dhFp70aRca5fM0imz4CmLyxvm
4cPH5vTINVLpLRAeGoSvQogeTq1EjjWTw0s504XIPGR7FtOcCRrSQFMaaE7j
GhKDl2IDl2MoeyLjSZ2+sn6mKc7vSSOv5RHXN0240++eW99zOu71ir+ot/25
KvdZ+ba/nbJs6Xe+Tn57HYAvAPgWgCmWmiEpf+QXz2k/iWGOtXy08LRm7gxI
OBN6MEvAVz+EyNcT4OMLN7I3aWMSZMmZpjLxeUt9j7amW2boVtpCiXEBRKHh
54IxzH8OMI9yhOECwEFzUuQqRO/8Is706A3LwhK3KLyHEumMI4Frigf2ROBI
AvAv1pxE2FNIVwbZksd0bCM6iqdbX/uiYXPnqcQzhr/W7/oXce7/UO9eqS5N
PvOGfOqzNsB9Cdh7gPkGYZyeQhEK/8IO0JyX5mCIgqtNsJaVFh66C9WzqPIq
uo1NKLXyUcDuGakQHV4ft2djgVmmuiDTOsTqFo21Dy2VC6fHhfhcMIb5soZ5
UniZZnK4SlBwKIvOMzwhdG3iqd6YBRrz2KYctimLbcpkUTCfzHdrxtGuDWgI
rXsV7V5Bu18VDNzrOGcM64wFLSnc1WzCk/ugMeez8zn3nbu639v4vna1Yfsf
qnN+LS/4r7qKmBO6wg7Hu7MPxgGYAcAL6Gn4moXfNO/sBNrISZH+ABGk57Vo
YphjLR8tDnOaYEkK3f6hDjeSm3v93/7sYe3+d1av3/LKqm17y0+aa68rDNdU
xu4wz1EhutgyNL/yHHuZwjyqtjx6I1u4ygU94HkuGMI8EzTkIKQ3ZYKm9HCr
ZhzjiBHGiZOeFaTnVdLzMtnyd/iAaomdbY6baoyfcWX6WwseOIsGPsh2HE7S
Ff1WXvAn8ZbnlcUbXtfsbDl7YuZuL2C8/GwrYfAsyzIUw1CR7wRJMRQdOhIi
0P5EnDDHWl56DMyF+DxScxuxl5hBLXJB4txFx+aCqpdXbM7dZFIbnSZbt0zb
KVbfVJlH1La7EuNotXFEZhtX2EYlpn5odd0YNERWtb5HZOh94hR9Sry0Ye5M
CDSuCzatJe3rKccGtPrBFcu44vla8TgYTnOuBGjgTOAc8YjYzfHAmQYBzjUk
cI1xKH+Cihvj6KYYonEt+gqeOOZqPN0aR3rWB11rZx2x3rZND90F9xyFI+fy
zptX6Iv+XZTzS/X2v1UXvLRfVeQ+d+LeWC/rmwIMOzdKhTe3yGt7/mseF4Jj
LT9xC95ayPNwvxvg25ZnSPYhxc4GycD1G4MK9aGk1NK1G8r3lL6vNXbUH76t
tY6I1Py6IusdueWW2DhQpeuGFhv7oCHJIbU09Xj64jKBOWhJ4FrioFlPLIM2
r22ATIb2XVnjb1gLHWxaT9pRNxDrTgLuRLJxDdXwKtWwEj1oXs864zlPMtuS
Rnsy0DjxxtSppvSZ5uxZV96Mc+MDe4H9YPxx0QuK/P+vIut/VW/6va5k9Zvm
4kunjLNf9VHTX/KTCUNrVggaDYvjwgNVQqhefMJhZMghi3mOtdzFLjAXekDw
8yse8jnJALwP7t795tDhjzKzql5ZsaOg6Ija0Gqw9ioMfTL9gFg3XKkZkFtH
ZJZBwRDmkOowSlfVjj5xij4lXuowJx3rCPtq6GDzKn/zmoB9bcC+LuiIAV15
oDMPXMtiWtIJZ2rAnuy1J/ntsWzbGqbtFaplRcC1Ysa+etYe43Om+d25087N
067iGXfppLPy7rkSd13a0Z1/Eqf8m7polawoVrM7/bhhj/vs0XvD7cB3H7A+
wAaFdIpQeQVfi8I0lVAD/uJm582qZSm8CQjrZyM2fI2YIpkHfLHuDEFNCBM+
JycJp2tg23ZdYnJVfKKiuORdvbXLWD+sNKPeIrl1CFphG1bWjMArRJbI0IvT
LMsG5qA1Hv7ZUFjuiaM9CWxLCtOaNnUpZuJS3GRDEgy2vfYMnysn4N5EXM1+
2LRywvWqry2WvJFGdm30Xd/80F3wRWPRwIdb7PvTju57SZ79u8qkZ2XZz5mL
1tfuzT1zpPZa4+UHt28B3yxg6FA6hQMkSVM0C39RJAHr52gfIP38/ojHROML
SB4ePI5hjrWM9E8ShwsnTaDgnOa8LF8kwB+NhsZV3Bp/UFv/QUJy6fr4iq07
jolVjVpbp+ngoMzcL2RX4BUG5xDp8Iphvmxgzjrj0dmlM45yxBOORMKRFHSk
BZyZQXde0JPv9xT6PVu97qJpx9aJpsJvmjfNdmz/tn3zF87c0UuZne8mX6hb
dajqf2uKfqPY8kdJ/nPiza+oihOPKkrc7x37pq8DTD2gpryRUAKG0gwJ/zkg
4GejxsexNKBpQAVBgABBYbntYq/bsKOpjkmOtYz0/WDORX8+y7EkNIrP+fd+
+23g3MVre8pq1sXvW58oKtp9Qmpw6Q+OaOrHIcAFngtR+hNH6NPjpQ1zR5Lv
0trA5ZhgYxxlT6KcGbQ7h/JsIj0FfmeB17ltxrl90lH8oLn43pXtX17advfi
a45jqR9YNtRX/FlR9Gvx5mfEhX+UbXtBWrzikLrg/NuGOzcdwHuPz6IQKA5n
WRAe+xkgOZKZS4kHgkwgSBMwPmdohiP50xyCC0UX7GNIjoW1nMWF8uHz3rW4
+V9vGSa0iNzvI4P+gFC6yNABIojWW8Cb7kb3Ha357ax8aXK2LKdof4XmKiS5
um4MYhzCXGLqh28+cYQ+PV7qMOecqcCVAdzZwJ1LO/MCTTnTl3MmLubOOl67
f7Fw8FSGu27NB9K/HNn5jGXzv6hyfrEv/U97s16u3LxeuzfzDWOZ++zRLwc9
xMQ4fxYzw5eFB0hq1k/MBClvkPEHwawPzAQ4LwUoOtSDD2a9wXnplLkiFia8
/Sc6N7jwhbxwCjQW1rLQIjAPf2BRQy4EA2jis/AmTQUoMpRyCRJekoKwB7MB
cObi1eI9unVJe+IyTFv3npEarqltPQpzt9TUI7cMKCzCqPOh+dPRQxN0I+9E
Rv2kUQ4xUPiEEenSX2P3U8OcQ+nlUDoClSdxARj3djW/r31t1QVb6reuYq8n
e7Y5jvGkEo1pjD2bcKYH5tvvyoT2IWcJnnXlhL1p1rF9qnH7vQsF4+/n3Dya
ZLes+kj2/KnKv2hz/1WZ/T/l2f8uzf2VpuCPlp0vHChfc1Cc2fzekV6Pfebz
uyDoAwwB6AA6yuQIjg7QTIBighQg+bQJTSJTJPBB0yBAo3IVEn40tDBLIDsX
xWzUFLEIzKMZvoDkDC5OxPo5a2GBbuiWYVm+tIBBv/QKH+8fun3k+EfZ+aLV
MSUJ6QqJ6kLt4R6ptq1cdlVtRgPPZcZxqWkMAlliHRbbBkTW3mpLH3xThqag
jyC+IYB3C5Ne+MkA3TzPh9CfMo1LjXelxttLffPRTwpz+Cz4GVTjAVGIxhrT
ASrwAHAPuxqOa7a/etaaeedSyWxrmc/zms+xJQjtKvC686c9+VPuTZOezRPu
/Aeu/G9cW752F37lKbrVuKn3THrbOwn24+sv7H/ltPEvJ5TPmXc8r936kmTj
cxXZfy7P/EvFxhfFhaukxbGqvRk22dbTh5Sui2/e6nXOfjMC6AeoK1M4dmQj
uetF6qbme2GV7EL8LkyPg8d9i7jHfToWFlaUuHA7XTAYpKhQ293MbMDu7tKa
TiSmlqzZsKtw+0GN0VNzYMhUN66EENOPiLRDVbr+SkMfxLjY1iepGYSghpCX
CVstBJgjknfy7kJTXxADR3iY30ZXDPN/8KTwo9Lgn4HRLV/QAUPdScB+09l4
XL1j7TFZ8oW6XPvBjMbamAbzigbji5d0fzuref5D1fPvyp57S/SfR8p+X1/y
W9OOZ/TFz4g3/Vv15n8XbX6mcsuvK7f8trLw2Yqtf6jc+lf5jkT1nk026a63
auSX3jnY0Xxm5Kbns9GbhO8BGZiiKT+LEtrov44qT/DQWSysp14RgEMxTHgl
HUC/Fd/6YuL0R/btu3Ub4vemZKp2lb4n17ZoLX1KY78c2jysqh1X1I2KzP1l
2m7IZ1k0ped4jiy2dvPufWRR3VL1Tw1zIZkQCApr4mFU7AXsg+6Wj0ryV1YU
viLZ+qKk8L9kW/6o3voHbdHv1AV/1OS/qNm8Urtlja5wnaEoxrA9wVCcrN+R
pnkt1Vq55YSu7MPDuub3Xu9sfP9WR/O9wXYw/SmY/RwE7gHyIWCmAQu//iy6
gkC43omOzlRjYWE95YKROcuy0W8SBOFH23BDE116hr401ZxOzapcF1eekmUU
KRsVhmu6mj61dUBs6KnWdsutI4ZDX/BhOQ9zPgMT5jkaqytGMO8S2zrnvPSn
Mv7kB6C8KIIU2gR4xnrvjl6/cvZYw5kDlz+0NXxosp+1tF6qu950oLPx6LDr
3C1X8+dtLfdudkwN9QXu3GK+/JK99w2frqYBxaKvEWRQGhtlsgngfQCCDwA9
xWPch8yhfZqA8bNMkGEJmiYphqRZBprhcEkJFtYSEIQ5BHgE6XziBeU8aVSH
gOoMJmYYV9uQQnMiOaNyxdqSvIL9Uo3dvL9fVzMg1/fKDH1qC59gQTwfj2TU
wyek/XxM3iWq6RDVXBPVtIlqW8W2a+HEy1L1T1/NwvA5aj5TDb8C/0V8voc8
1X0oiY08E7YPkEF0YooOGxnkyHg1im+wJMIRNs1fUZKb4tdoCibQaSYdZCm/
EJPPzbxC3T64eR4La4kJnYbSwu/1LL/VhaKZgD/oExjw6ZfTH5xtKSzWpOfK
4tPkeQUHq+VN5to+nbVfpLrBb5pDK6F5qo/xZ50I6cIYRpG1V2QTeA5h3gKv
kPBPHMhPMcxZ1GYjdDuiHAv/mD9MpADNt+CECD3L0DMs2oiJFDmaRMkRlqNo
NEGT/8lMUQw0Or3kUMVjIBAIBmbJwAwVnIUADzUd8CaJAEUGKYpgGIrjKwbx
gSMW1pIQCcO5KAk8h/cyGQrSKPjA558WcqeQ7599NfPuR+7NRepXVxfHJkp3
7TmlNngs9T1Kc2do3xyi+gjPc3TWKTaPi81jIsuQCDLf1i2ydVbXwvi8A41M
f9JAfqphzhL8VFie5DxmUZcNz3C0Qwqgnkk/H6PPCo8ZP8nMUOwsDWYYtGEt
MN++KAsDUejo/56QbeNLm+b9NSDPoR95PxYW1lMqCPBgMBipbEEnoRxgKIh1
4a5HTSsUE6RR7xHwEtzA8NeHj1/YtEW5NmZPRrZ69763NWa30tKqNF9TQKqj
AelDKN9ivI14bkJIF1lGopDeLcY5838kvgce8TzUqwu/jC/gF6JnVOXComsw
jPQggjzLV3QHogw/30sCb5jhXhYG8vz2B8hzhqMpDuVQ0NAULqrqj9fcXwO3
YWJhLXWx4eRqqLGa4rd3EUHKy/BtH7NB9uq1YXPtqfyt4vXxO+LTxVv3HpOb
Gk0HOvU13Spzn1w/INEMl8uHFJbPNbX3RcY7Vfoxqe2O2Dpequ0VmUP9pBJT
vzDCa2k1mf70B6BsJHfNRXXQPNoL+Thzoc4yEKZx9KIeNpI+X+xPzRfOs2Bh
LV1x8w/L0L0shITod/YgNeVHqy4QEO5PzDTY22wHTmZtrorPKEvMlBTtOizV
XtHaOvW2AX3NmLH+iyr1cKl0QKy/q7B8KTZ9JjF/rq7/SmYZFQYzQgtIFwan
P3FKPyUw558BlgGPtMk8Mqghusk3eir4PxrvEH566UeQjmGOhbWstAjMIwVy
ARZ4CXqaRX0tFAPoIEPcn5huuT6ot72VnLlnQ8KunHzda3veqJRcVBuvG2tH
ZLp+qW5YU/OFtuZriPQqzS2Z6dNI0xCMxiHP4RXyXFiBsST831BnHiFtmKbh
4YEsPzyQpfnRshRvdl5GhJ3fL7/ATGjw2gKAP5bZGOZYWEtXXPj3ciYq/AsV
uoXic5rzegMPvIEJBiEdnZA9mKKu3xivO/RB1qbKl1dtSUyT7io7Wa24oq/p
thwcU5gGqlW9Ev2ownxXZkabjCC6I6voIvH5E6f0UwJz+rEwp8MkFzBOAJpA
DyIA5/4ZzMO0X9gg/zhoY5hjYS1pRcd4URNdSMpPM0F+cmnIDCBIOkBSjBDs
fTsRcLZ07z/03mu7NXHJJTFJ5QXFB6qVFxRGj7bmpvHAiNo6UKa8LtBbyJYL
2RVhq9ETp/RTAvNHs99Rk73pOaSzVMhAKGKkowrFH2Nhy/2jfMajT7CwlqUe
c2sLNWwMN2+eEoUKn/kaZio0sAsi6NqNQXPdicId0uSs0pjU0rwia4novUr1
ZanBpa7pUtoGhB1Gwlo6gecC4ZeEf/qc+cLRVfOrSiJgn3dCHWUqyotS/ZH5
4RjmWFjLUGwUE+hFh0vTDAgESWjh1keN5yGqsATpo5igkHvpu3XnrQ8vFldo
4rP3rE/dl5KvLhGfMhy4Vq5uhTE55Dm0kC2HVwzzqO//fOqGC1oi4To9PxUT
/lPzmM+Frwv+bChpE5mCyIZbjRbAHLMdC2vJS4C5MHNpHswXqUxGdemIWSzk
O8eEU+sUy3eVQ15Alt29P/HRRZdIfWBjkTgmbfdL63ZsK31vn6xZZryutt2U
m26IDNel5pswXJeZ+5ERJKOHn4c6SaP9j2Br6Q99nWibhI8OLfjKj/v60Yie
f0UT2vneqNB/LvxpfNrf2Ku2dEOY52zU63Rv8SeWPz7MhQ+QYYdaeuaz9x9U
M4Yz5HRU0+hiMI98ISwsrCWs6GUB3/cPRs+4nqvNuP9g2t3aWVN/bGeJIjG9
YnVcWUK6oqTipM7m1Na0qsytGlunxtqjsvQrzYNS47BYNyLWjUkMdyTmO1Wm
IXnduKL+lsgyVGUaEPHsrTT0oFkB5v5qUy80Yqx1QG4bVFj7FeausLuF1tRQ
K1No4AA/FgxNVof+TGy6jXqarAOop2kR986/9qL2Vf7nhbB6I0xy9ENBph/Q
mPsVKufGXLNR+xZPT5Lv5fzB38Z5+sF5kcU++ZE0CxYWFtZjRBAESZJRTYXA
5/Pduz9x6t0mufZE7mZZbFJJXEplZr5+T+UprRVG781SfZva0qurHdXV3FJa
bkPwivTDkN7Vlv5SXdcuRfse1Q34WFE3Kq8dkdUMS21DgoUSRxQqQ3Sbu5Wm
Lt7wwSIwF7pTBZ7zMOdnDiwwwvujFoLzXsH8XF8e5vw4Gpl+KATzPGMI5jTJ
DyTETZRYWFhLXtFN4vABzaA6mM/uBZtcA7WHPt5dZsvYKI5JKl0VW1om+bBc
fg4iXWa4qrLcUFm7lZYembm3Sn8DIlRZP6o9dFv/+qfaQ3ckpv698mtSMwQ4
5Dmk+qjUOiY2j1Qbh0SGfoVpANI7YiHNwjuUZuHzKmELWzMW8djihp8f3qYk
5gN1nvDoy8oMfRpLt0LdvDFPa9Ad538tEeYc4vEmWFhYy0QQ4wwvtJc9PKV1
lgDDtyfON3bpLO8U7tCvTSyJTRdlbjZt3XOiTH5GbmzW1Lbq6zsUlg6JqbNa
31GpvQavEO+qmmHN/jG+snFAYhoUmYZFptFq4wi88muP0A47hXGE32Q3d1gp
NYfy3vxs3t6QLf18uH5bYbgddUXjfBe/mkIwF1vRnBlRCOYocy4xdqutN2Sa
K7kbNTr9Eb7ee5YfV4thjoWFtYRFUVR0jiUiYf9FdG3Gt5NU38j9+iMfy3TH
Coo18RllMamlafmKrXtq94reVlncaku72tqhslyXGtvFujaZsVNpG5BbhAL1
YYlpuFI/BC2CkbPlrpBF4Yerz81XD51gIoDzELZ1iWydIrQsoxvSXmEcUxrG
vtt1iE+Y90ZgXm0TeN4vMXXBv6RUeyknX6EzHEb/VE4YOU49+k3AwsLCWnJC
2RWaJkkS4h3+Pz8JkGZZOkD40S4bHukEi2ozvp1mPB3DR946V6Ws31wsTsnZ
HZO8M32jNr/o0N7q91Umu672qsbapjBfVZo71LYeVW2/qgY1HIkM/ZX6ARic
S623Qylx0xzMw/UqCOZhkiOYV9dAnnfBUF9pHPiORsPb+dNPPsGCSF5tQ0el
6MeEqUtlQzDPzldoDYf5c0UMcywsrOUqlmGDLEfww7pDaxfQ5gUOeq4mbyrA
XO8ZOXbyQ6m6bst2VVqWJDaxPCldsrHIurv8bZnusrn+WpWyUWrwKK2dClu3
1HxTZLwpMfehLDpKg4fz26GwfCjC80hdCqR6NQ92maULDe9dxF0LC2PCY9uF
UB9+KUjyav5sFP2kMHUram6ItVey81Vq4xF+HIIPp1mwsLCWgYSm0UiyBT6m
QmPSQy2KLBMkKT/DEgLSIQAphiZZLpKBCdBgYPjrT85f0xne3FFi2FigSMmu
jE2uWJdY/tq+E3slH4j1TQpri8LaJrW0Sy3X5dabMNKOLjKPXjkqJLd59oYK
VFCpobVLZu1YxJbOsLvC7kZf3DQU+RkRqnsRflJAmNu6xNrGzHyN2nCMX9XD
79bEMMfCwlqeCs8Ymd8aA8Kt64+WUkMw+oLg088nXS19R978pFp2oLBYlb1Z
tjaxZEXsnqQ89ZbdrxdXnqrWXTQfuaGwtmpqb+j3d2tqb8qM10WG6xDC6toh
ibFXbh1S191S1t1R2Mb5M1PoIVntgLyuV1bbI7LcqDR2Vhg6qs1d0preanM3
tMjSg/Lh1gFZzZCsZlhZgw5Y5aZbcsstqXUMVdFYh0UWlMlR1Y3IjJ1ibfOm
bTa14Q2KFcaqULg0EQsLa3lqDtNsaA5AeBrAoibJIMPRXHiioJfgHkxRX3zj
P3u5/cDxTypVr28tMaXlS1Yn7n4pZser8XtzttUUlhzfJ/1IYbLr97fr6q7L
Ta3Vao+mpldt61OY+kW6vipNn0g7BJmsrv20VHOj0tQjrR1S7B9V7B+TQSbX
jcjrR5X7byvqb8lqb0lsY9Xm0UrjcLl+sFw7INGPyvQjEv2I2DgkMQ1CjEus
qOJdpO8Wadur1Y05WywKzQkq1GlPY5hjYWEtTz2ulXHx/kY6Ml6AH9VICxkY
KpRaB7e/mr7e8+knjZ2H3jgv0x0pqbQV7DKk5olWx+9aGVOSlCXbuvNQqfgD
keqiyuhWW67rbN1624DWMqAy9isM/TL9gNw6IpSpV+oHyjT9peq+Ms1AhW6o
XDNcoR2p0t8SGe9IzJ9LLV/IbV+pbF+qLbfV5hGVaVhhQhU1ctugsnZYVTek
rOnT1tzUmFvyt1rVmrcYPrdEU7hpCAsLa5nqe8KcQ3uMZxnOS7OzFOujORio
k8JO0uhZJX4GfD0RHLp1/3xD+xunG3TWt0qra14rMeZvVaVli2KTK1Zv2BeX
pMjZWLdt56nSqnMSpV2pbVUaO+Smm6hD3zKosA2rasc19bf1Bz83Hv5SVXNX
absjt6DCGLF+XKQbq9KMVKkHVYYBpaFHabgpN3TKjJ0SU6fY2CE2XqtQucQ6
l0R1ITNXJVMc5uZ+GGGYY2FhLXf9E5ijKTEM64ck5ytDApERrzBEp1H9CxrJ
6/MHgwQ1NwqGQ+uNZ3zsV/e8fQOfXW68fvTEOaP5LbH00N7y2sJtuqxceXKq
KCGlOhFe0xXJudbMwtcLS07vEZ+v1jikBo9E1yLWtkr17TLDNUhshfGGytyj
sfZpbYM6a79Kf11jaNea27W2dk1Nu6qmTWFtVZhbjAc7TQfaDdaG/AKVSn2Y
38FJ07QXwxwLC2v5a/FoPJJLZ6OWHCGzHEEzAZLyEaQ3Ml2QogMkEeBQCQzL
MAuLuoWZXzBOnp1lPv9y+sbN8fMXW48eO6PTH6motuzYo9tVVluw25JTqE3O
k8alVa9PQaUyaxIqkjJVKbnarHzLpu37t5ec2F3xTpnow0rpJypto1rXpDY2
aa12TY1DU+fU1LnUtU6J/pJEe1aqPr2pQKLR7WcRwglczYKFhbVcxQNbCFYj
1wWmQ9fQZhy01ejRJQsU6YcfCtFe+EyaoIO+gHeSJrzhOnZhCw/FsARkPtqU
xDGRpQ8Bwj85O9MzMubquPHh+YYDJ07qbYekOmu1wlQuNZRW60sqNTv3qYp2
yTcXiXK2lGfmlabllCckVcUlijckVK5NKFuTWLYmpXxdWtX69OrYdFFsWkVO
vjQ1o1ins7FopjuuM8fCwlq2mr89Z1HTUVe+WJFjIBth1A0NH3AszWOcRVeB
56jriAxXPPIAZwmGDkBgAxDkI2ThSnBoG7VfiJlZLkAyXpILUoBg0NEqMgVo
SPivv/2md3Coq7ev9Vpng9318SeX3n7ng9ePnTxw6JTJckqnPy1VHq+QHNgn
qisV15fJD1aqXq+QHt5TYRHJ6/eWKg4dPsahMpwHHDONYY6FhfVzVXTc/k8/
5wd43g+LR9a0/bNEPp+0YVkAfwb4gty0l5qcIR5OBb7+ZvbLe5Nfff3gq6+/
ffBgwuudYRkCH4BiYWFhPc0SmlvRUlRhGiRNC1eKF3yw6JAxLCwsLKynRFxY
3/GTf+q/DxYWFhbW/4m4+YLRePQgGsDPomEY5h98BSwsLCysJ64FmRaB5N89
aMfCwsLCepqFeY6FhYX19Oufsjo69/Lf9rfCwsLCwvpRJGRanvTfAgsLCwsL
CwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwvp/wcIb5hx

    "], {{0, 247.5}, {247.5, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{144, 144}],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", Interleaving -> True, 
    MetaInformation -> <|
     "Exif" -> <|
       "ImageWidth" -> 495, "ImageLength" -> 495, "XResolution" -> 144, 
        "YResolution" -> 144, "ResolutionUnit" -> "Inch", "Software" -> 
        "Created with the Wolfram Language : www.wolfram.com", "DateTime" -> 
        DateObject[{2024, 9, 25, 13, 1, 13.}, "Instant", "Gregorian", 4.], 
        "TimeZoneOffset" -> 4|>|>],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{230.55078125, Automatic},
  ImageSizeRaw->{247.5, 247.5},
  PlotRange->{{0, 247.5}, {
    0, 247.5}}]], \
"Input",ExpressionUUID->"e5d355bd-aab6-4e27-a2bf-cd694afb5e5e"]], "Text",
 CellChangeTimes->{3.936243687913192*^9},
 CellID->966355949,ExpressionUUID->"fdaf4719-2d04-4cd8-95fd-efa7e081bc18"],

Cell["\<\
You already know the definition of rational numbers. So, you can conclude \
that fractions actually represent rational numbers. \
\>", "Text",
 CellChangeTimes->{{3.8049149937692523`*^9, 3.8049150315016384`*^9}, {
   3.8049150716676593`*^9, 3.8049150847471743`*^9}, 3.8049151921653905`*^9, {
   3.888644909033368*^9, 3.888644909577788*^9}},
 CellID->1934654095,ExpressionUUID->"bcb6e4e0-ffdd-4b8a-ae9b-7131af0f7726"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Types of Fractions", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.798884459103933*^9, 
   3.798884463345475*^9}, {3.798885796813984*^9, 3.7988857976015325`*^9}},
 CellID->1027397015,ExpressionUUID->"f4f67ec8-5915-450b-b090-ead8f518ab2f"],

Cell[TextData[{
 "A ",
 StyleBox["simple fraction",
  FontSlant->"Italic"],
 " is a rational number written as ",
 Cell[BoxData[
  FormBox[
   FractionBox["a", "b"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "5ef38e48-a0fa-4a9d-8f1a-8401cd64b7e9"],
 ", where ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a59e2a74-302c-4a2f-b7ef-2f8a0fdc978c"],
 " and ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "6c56eef8-bf96-4ace-bb1c-c9ee7b816b85"],
 " are both integers. The denominator ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fb906b55-cfa6-4c9c-9b08-5b9ac3277327"],
 " cannot be zero. For example,"
}], "Text",
 CellID->1693109225,ExpressionUUID->"87ac4ff5-880c-415e-a570-b349dc09d773"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["8", "7"], ",", 
   FractionBox["3", "14"], ",", 
   FractionBox["9", "1"]}], TraditionalForm]], "DisplayFormula",
 CellID->1047880037,ExpressionUUID->"d0aa5dc7-da4d-4042-8c92-ad87e00f3025"],

Cell[TextData[{
 "A ",
 StyleBox["unit fraction",
  FontSlant->"Italic"],
 " is a common fraction with a numerator of ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b7c80151-d766-4169-b5d1-c6384dc0ba03"],
 ". For example,"
}], "Text",
 CellID->1162412251,ExpressionUUID->"1b985a3c-9237-475e-8087-4a42c62f090e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", "3"], ",", 
   FractionBox["1", "4"], ",", 
   FractionBox["1", "250"]}], TraditionalForm]], "DisplayFormula",
 CellID->321372643,ExpressionUUID->"4128845b-3aba-4d3c-b1d6-9b2a05a01a36"],

Cell[TextData[{
 "Common fractions can be classified as either ",
 StyleBox["proper",
  FontSlant->"Italic"],
 " or ",
 StyleBox["improper",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{3.7988848929474893`*^9},
 CellID->874152507,ExpressionUUID->"1088d500-2ea0-448d-a19f-101d160b2488"],

Cell[TextData[{
 "When the numerator and the denominator are both positive, the fraction is \
called ",
 StyleBox["proper",
  FontSlant->"Italic"],
 " if the numerator is less than the denominator:"
}], "Text",
 CellChangeTimes->{{3.7988849563022223`*^9, 3.798884969235809*^9}, {
  3.88918330895536*^9, 3.8891833094080772`*^9}, {3.943376491577633*^9, 
  3.9433764919131565`*^9}},
 CellID->945556022,ExpressionUUID->"e27a9114-6636-4c18-8fa6-0e2615731d80"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["15", "64"], ",", 
   FractionBox["2", "5"]}], TraditionalForm]], "DisplayFormula",
 CellID->663464931,ExpressionUUID->"c1d7af7e-d749-407d-8bbd-8451bd628d9c"],

Cell[TextData[{
 "Otherwise, the fraction is called ",
 StyleBox["improper",
  FontSlant->"Italic"],
 StyleBox[":",
  FontWeight->"Plain"]
}], "Text",
 CellChangeTimes->{{3.7988849964892025`*^9, 3.7988850107410746`*^9}, {
   3.8891833137838697`*^9, 3.889183314075895*^9}, 3.930826522263036*^9, {
   3.9433764943956356`*^9, 3.943376495308941*^9}},
 CellID->1501801969,ExpressionUUID->"3dee4cd5-6f68-4c35-8b50-7d07f5eda53b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["100", "7"], ",", 
   FractionBox["56", "12"]}], TraditionalForm]], "DisplayFormula",
 CellID->1265256048,ExpressionUUID->"2cf1f845-9c67-4a03-9697-7a19fb7a6fd7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reciprocal of a Fraction", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.798884459103933*^9, 
   3.798884463345475*^9}, {3.798885796813984*^9, 3.7988857976015325`*^9}, {
   3.889183867019291*^9, 3.8891838728963394`*^9}},
 CellID->1416008417,ExpressionUUID->"5e9ff3e9-fafc-4587-84c6-8caac8fdebc3"],

Cell[TextData[{
 "The ",
 StyleBox["reciprocal",
  FontSlant->"Italic"],
 " of a fraction is another fraction with the numerator and denominator \
exchanged. The reciprocal of ",
 Cell[BoxData[
  FormBox[
   FractionBox["4", "5"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "17821afc-45cd-4bfd-8ad3-5f145a8c48aa"],
 " is ",
 Cell[BoxData[
  FormBox[
   FractionBox["5", "4"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "420dcb14-6312-49a7-be86-04c07aa3a3b0"],
 "."
}], "Text",
 CellID->439688465,ExpressionUUID->"d0bc1fed-74da-419a-b9a3-0624ff13ec46"],

Cell[TextData[{
 "The product of a fraction and its reciprocal is ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a88bbe37-a263-4728-bbb3-1f82a70c3f07"],
 "."
}], "Text",
 CellID->352801928,ExpressionUUID->"1e307e33-8d9e-45de-a1b6-8cdc09a0f84e"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s very easy to see that the reciprocal of a proper \
fraction is improper, and the reciprocal of an improper fraction not equal to \
",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "42ca293d-f54d-4afc-b766-ced625e51c6e"],
 " is a proper fraction."
}], "Text",
 CellID->339654529,ExpressionUUID->"35293cb2-3256-4d1a-8bde-b254f23084e3"],

Cell[TextData[{
 "When the numerator and denominator of a fraction are equal, its value is ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "c01dca45-b48a-428b-b287-aa156b0b9244"],
 ", and the fraction therefore is improper. Its reciprocal also has the value \
",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "55e002b3-d11b-4372-88c0-9111988eacf3"],
 ", and is improper, too:"
}], "Text",
 CellID->562135177,ExpressionUUID->"3a054332-8336-4550-b90f-9ab4c41cf063"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["2", "2"], "=", 
   RowBox[{
    FractionBox["3", "3"], "=", 
    RowBox[{
     FractionBox["10", "10"], "=", "1"}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1422245120,ExpressionUUID->"2daa16e2-1c24-480c-b501-f5a30de58204"],

Cell[TextData[{
 "Any integer can be written as a fraction with the number ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "15395cd6-b814-4c0b-aebc-04463e71f5cf"],
 " as the denominator. For example,"
}], "Text",
 CellID->1761038074,ExpressionUUID->"7487b270-6d6f-4c74-937c-09ef9172b8f5"],

Cell[BoxData[
 FormBox[
  RowBox[{"20", "=", 
   FractionBox["20", "1"]}], TraditionalForm]], "DisplayFormula",
 CellID->10759069,ExpressionUUID->"b80249c6-1a9d-435b-b091-a1dd30a1687c"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "019fd588-1a83-429e-b797-5dcfcefb0485"],
 " is sometimes referred to as the invisible denominator. "
}], "Text",
 CellID->192976135,ExpressionUUID->"9f607723-b4b4-464f-92af-2fe740b67100"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decimal Fractions", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.798885802177881*^9, 
   3.7988858120262733`*^9}, {3.7988859009313354`*^9, 
   3.7988859011142635`*^9}, {3.79888764397833*^9, 3.798887656389222*^9}, 
   3.9500922525847893`*^9},
 CellID->2066560124,ExpressionUUID->"d6bd0f65-8a50-40bd-8d03-67958486c591"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s easy to see that the decimal ",
 Cell[BoxData[
  FormBox["0.8`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7a2ca0ea-64b1-4faa-9728-0e4801db0bf5"],
 " is the fraction"
}], "Text",
 CellID->1422981137,ExpressionUUID->"a0505c0d-ff73-494f-9ea4-16c8fe65bfce"],

Cell[BoxData[
 FormBox[
  FractionBox["8", "10"], TraditionalForm]], "DisplayFormula",
 CellID->2075983808,ExpressionUUID->"eac2794a-70f6-40e8-8f98-803bf9a3e0fc"],

Cell[TextData[{
 "as ",
 Cell[BoxData[
  FormBox["0.8`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8e279732-fd11-4ca2-9018-fc02473af170"],
 " represents the number"
}], "Text",
 CellID->709588336,ExpressionUUID->"8b3c9997-5d05-4328-9dca-dd24a7c46d36"],

Cell[BoxData[
 FormBox[
  RowBox[{"0.8", "=", 
   RowBox[{
    RowBox[{"0", "+", 
     RowBox[{"8", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "1"}]]}]}], "=", 
    FractionBox["8", "10"]}]}], TraditionalForm]], "DisplayFormula",
 CellID->49772554,ExpressionUUID->"8c4ab408-9988-48c0-86ad-ea958e33af31"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["0.8`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "de7a789b-cfb2-4834-9ec0-cc5edb9ef91e"],
 " is a fraction too, as it is a part of a whole. It is called a ",
 StyleBox["decimal fraction",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->450176704,ExpressionUUID->"08b23928-7510-4138-b5fd-b29c9cc56850"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s understood that the denominator for a decimal \
fraction is an integer power of ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4dcae7fc-2889-4ed7-bc5d-2a65a91aac19"],
 ", even if it\[CloseCurlyQuote]s not given explicitly. Decimal fractions are \
expressed using decimal notation in which the implied denominator is \
determined by the number of digits to the right of a decimal separator."
}], "Text",
 Background->None,
 CellID->1117623908,ExpressionUUID->"a38ad367-7fc5-45e4-83f7-cb13e210d2d9"],

Cell[TextData[{
 "So, for ",
 Cell[BoxData[
  FormBox["1.25`", TraditionalForm]], "InlineMath",ExpressionUUID->
  "baf2c6b2-8cf5-4744-8cec-ef28f88fe320"],
 ", the numerator is ",
 Cell[BoxData[
  FormBox["125", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fdf2ef54-df97-4161-bc0c-b14204ae53f7"],
 " and the implied denominator is ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "03d2e0d4-d999-496f-bcc8-10680f214191"],
 " to the power of ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b6a1f632-6ae4-40bb-9b65-45ba6e392436"],
 ", as there are two digits to the right of the decimal point:"
}], "Text",
 CellID->1970833487,ExpressionUUID->"74a69c9c-f1e8-4318-9fb5-dd427be0b309"],

Cell[BoxData[
 FormBox[
  RowBox[{"1.25", "=", 
   FractionBox["125", "100"]}], TraditionalForm]], "DisplayFormula",
 CellID->1672939402,ExpressionUUID->"e9bfc559-9965-447e-b7d7-a53f13b1d2d8"],

Cell["A few more examples are", "Text",
 CellChangeTimes->{{3.7990570101160173`*^9, 3.799057018000478*^9}, {
  3.9495081894014454`*^9, 3.949508189853655*^9}},
 CellID->1456989444,ExpressionUUID->"1648ec74-0994-4c0b-acf9-8d355ea18f5a"],

Cell[BoxData[
 FormBox[
  RowBox[{"0.2", "=", 
   FractionBox["2", "10"]}], TraditionalForm]], "DisplayFormula",
 CellID->1559687828,ExpressionUUID->"82a3888a-a77f-4a05-9cbd-616aa2624ca2"],

Cell[BoxData[
 FormBox[
  RowBox[{"1.4", "=", 
   FractionBox["14", "10"]}], TraditionalForm]], "DisplayFormula",
 CellID->1487929914,ExpressionUUID->"d4f00ea0-ab61-4e98-9991-10c522d1e520"],

Cell[BoxData[
 FormBox[
  RowBox[{"0.75", "=", 
   FractionBox["75", "100"]}], TraditionalForm]], "DisplayFormula",
 CellID->190995283,ExpressionUUID->"935f69a6-4934-4941-914e-6458101bbbf5"],

Cell[BoxData[
 FormBox[
  RowBox[{"1.2589", "=", 
   FractionBox["12589", "10000"]}], TraditionalForm]], "DisplayFormula",
 CellID->1717152763,ExpressionUUID->"39fee930-6e96-4dfb-810e-4b6e3cd60aa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decimals and Fractions", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.706025178560855*^9, 
   3.706025192269616*^9}, {3.706025688469837*^9, 3.7060256919328423`*^9}, 
   3.706025784043981*^9, {3.797656601937177*^9, 3.7976566079377227`*^9}, {
   3.7984487853488216`*^9, 3.798448786632532*^9}, {3.7988879174059453`*^9, 
   3.798887932908042*^9}, {3.7990572723888435`*^9, 3.79905727262868*^9}, {
   3.8049184691667414`*^9, 3.804918474181481*^9}, 3.8886449808243313`*^9},
 CellID->315372487,ExpressionUUID->"400f03f2-62d8-42c1-950a-d45577fa8d21"],

Cell["\<\
Converting terminating decimals to simple fractions has already been \
discussed, but there are other types of decimals as well, so let\
\[CloseCurlyQuote]s generalize that.\
\>", "Text",
 CellChangeTimes->{{3.799057952203595*^9, 3.799058015476364*^9}, {
   3.8886569858314695`*^9, 3.888656991999138*^9}, {3.897623565374744*^9, 
   3.8976235692394342`*^9}, {3.9497655502144394`*^9, 3.9497655511272907`*^9}, 
   3.950092286455757*^9},
 CellID->475748213,ExpressionUUID->"b16e3f5d-e55f-4f58-ad3f-ad013b668408"],

Cell["\<\
Every simple fraction represents a rational number and thus it corresponds to \
a certain terminating or recurring decimal number:\
\>", "Text",
 CellChangeTimes->{{3.7990573619535284`*^9, 3.799057468997245*^9}, {
   3.799057567215032*^9, 3.799057589166435*^9}, {3.799057622652289*^9, 
   3.799057624841012*^9}, {3.7990576835683765`*^9, 3.7990576934937005`*^9}, {
   3.7990577834752035`*^9, 3.799057801836691*^9}, 3.888644997319043*^9, {
   3.943377584568161*^9, 3.9433775850653152`*^9}, {3.949765083924284*^9, 
   3.9497651114167995`*^9}, {3.949765164639435*^9, 3.9497651802726135`*^9}},
 CellID->818598110,ExpressionUUID->"141c8972-9844-4596-a59f-67585787ceb0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["256", "10"], "=", "25.6"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1954202503,ExpressionUUID->"41779fe4-cb9b-4e53-9904-d968804f053f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", "3"], "=", 
   RowBox[{"0.", 
    OverscriptBox["3", "_"]}]}], TraditionalForm]], "DisplayFormula",
 CellID->1045782416,ExpressionUUID->"2e4656da-b32c-43f2-8ec6-6c1d427179c3"],

Cell["\<\
In the same way, every terminating and recurring decimal number represents a \
rational number too and corresponds to a certain simple fraction:\
\>", "Text",
 CellChangeTimes->{{3.799057805737457*^9, 3.799057852261818*^9}, {
  3.930826652252068*^9, 3.930826667630993*^9}, {3.9433775943798695`*^9, 
  3.943377595029089*^9}, {3.9497651901993046`*^9, 3.9497651927655716`*^9}},
 CellID->1406162094,ExpressionUUID->"4b201697-41c1-4e3d-bcff-ada4aaffeafd"],

Cell[BoxData[
 FormBox[
  RowBox[{"128.4", "=", 
   FractionBox["1284", "10"]}], TraditionalForm]], "DisplayFormula",
 CellID->1517291504,ExpressionUUID->"dcc0c4d4-f5c0-4d45-9710-2f22e5b91c09"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"0.", 
    OverscriptBox["62", "_"]}], "=", 
   FractionBox["62", "99"]}], TraditionalForm]], "DisplayFormula",
 CellID->114650686,ExpressionUUID->"56a3b87e-f44a-4f75-af58-cef6dae47b26"],

Cell["\<\
There are quite easy algorithms for every one of these cases, but this book \
will not cover them.\
\>", "Text",
 CellChangeTimes->{{3.7990581857438483`*^9, 3.7990582081870213`*^9}, {
   3.8049178688969707`*^9, 3.80491788490895*^9}, {3.888645017313411*^9, 
   3.8886450324294767`*^9}, 3.8886570093470545`*^9, {3.930826677530798*^9, 
   3.930826678098444*^9}, {3.949765215159546*^9, 3.9497652155594463`*^9}},
 CellID->204682248,ExpressionUUID->"ac44173d-5741-4f63-85f0-03d57eaef7f6"],

Cell[CellGroupData[{

Cell["Summary", "TechNoteSection",
 CellID->1259673378,ExpressionUUID->"d32a9871-398c-4e38-8a5f-2a2e1df1bb2c"],

Cell[TextData[{
 "The ",
 StyleBox["integer part",
  FontSlant->"Italic"],
 " of a decimal is the integer written to the left of the decimal separator. \
The part from the decimal separator to the right is the ",
 StyleBox["fractional part",
  FontSlant->"Italic"],
 "."
}], "SummaryList",
 CellChangeTimes->{{3.798864759001567*^9, 3.7988647886875386`*^9}},
 CellID->2035049339,ExpressionUUID->"b0e3dbe6-f954-4021-9f9d-fa1a7b0a770b"],

Cell[TextData[{
 "There are two types of decimals: ",
 StyleBox["terminating",
  FontSlant->"Italic"],
 " and ",
 StyleBox["non-terminating",
  FontSlant->"Italic"],
 "."
}], "SummaryList",
 CellChangeTimes->{{3.798886639984167*^9, 3.798886643763035*^9}, {
   3.7988867349557953`*^9, 3.798886779766131*^9}, 3.798886829196827*^9},
 CellID->102194804,ExpressionUUID->"07cc2039-a334-435d-81fb-61be1aaaa5ed"],

Cell[TextData[{
 StyleBox["Non-terminating",
  FontSlant->"Italic"],
 StyleBox[" ",
  FontWeight->"Bold"],
 "decimal numbers are further divided into ",
 StyleBox["recurring",
  FontSlant->"Italic"],
 " and ",
 StyleBox["non-recurring",
  FontSlant->"Italic"],
 ". "
}], "SummaryList",
 CellChangeTimes->{
  3.7988871358112965`*^9, {3.798887288962574*^9, 3.7988873543411393`*^9}, {
   3.799060033403804*^9, 3.799060044288588*^9}, {3.9433776305733795`*^9, 
   3.9433776451638756`*^9}, 3.949765635714451*^9},
 CellID->1748636875,ExpressionUUID->"6bb059b3-7d89-4adf-aa95-48df744d1ecb"],

Cell[TextData[{
 StyleBox["Terminating",
  FontSlant->"Italic"],
 " decimal numbers represent rational numbers."
}], "SummaryList",
 CellChangeTimes->{{3.804855450974804*^9, 3.804855463888402*^9}, {
   3.8048567013924904`*^9, 3.8048567021407723`*^9}, 3.804914673174914*^9},
 CellID->1026248930,ExpressionUUID->"93aacec5-1c95-47f0-8c73-5d28d4d31823"],

Cell[TextData[{
 StyleBox["Recurring",
  FontSlant->"Italic"],
 " decimal numbers represent rational numbers, whereas ",
 StyleBox["non-recurring",
  FontSlant->"Italic"],
 " numbers represent irrational numbers."
}], "SummaryList",
 CellChangeTimes->{{3.8048567609109335`*^9, 3.804856811146619*^9}, 
   3.8049147027290134`*^9},
 CellID->1724597453,ExpressionUUID->"b1eb97f5-150b-4542-a0da-fb1e982c0576"],

Cell[TextData[{
 "A ",
 StyleBox["fraction",
  FontSlant->"Italic"],
 " represents a part of a whole, or any number of equal parts. "
}], "SummaryList",
 CellChangeTimes->{{3.7988773732575407`*^9, 3.798877382912979*^9}, {
  3.930826694311163*^9, 3.930826697179689*^9}},
 CellID->722609012,ExpressionUUID->"5ad0d5c7-ec54-4ca5-8bf7-28fd7ef800cf"],

Cell[TextData[{
 "A common fraction consists of a ",
 StyleBox["numerator",
  FontSlant->"Italic"],
 " displayed above a line, and a nonzero ",
 StyleBox["denominator",
  FontSlant->"Italic"],
 " displayed below that line. "
}], "SummaryList",
 CellChangeTimes->{{3.798877536123253*^9, 3.7988775597177763`*^9}, {
   3.7990600713310947`*^9, 3.7990600766050997`*^9}, {3.804918278394134*^9, 
   3.804918282881069*^9}, 3.943375579359606*^9, 3.943377668163048*^9},
 CellID->869640899,ExpressionUUID->"d41a6351-3240-4181-8a87-7797678f57f2"],

Cell[TextData[{
 "A ",
 StyleBox["simple fraction",
  FontSlant->"Italic"],
 " is a rational number written as ",
 Cell[BoxData[
  FormBox[
   FractionBox["a", "b"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "9fd9008d-b5d4-4af8-8bfe-c57b9dcdf3a2"],
 ", where ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "981edc32-59b2-4413-849c-9bbbd3eff5a6"],
 " and ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "10bd2be3-0e12-430e-b5d0-ca629276bc99"],
 " are both integers and ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b0aed495-53cd-4368-b882-0ff07d34948c"],
 " is not zero. "
}], "SummaryList",
 CellID->280888011,ExpressionUUID->"537a1858-94f5-4195-bdf7-c77ded3b8a9e"]
}, 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->"67925fe4-8a46-412e-80ef-ab35664d81b6"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"10. Real Number Representations | 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-03b_Exercises.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "\nPart 3 Exercises"}, "PrettyTooltipTemplate"], "next" -> 
      TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"NumberTheory-04-11_Continued-Fractions.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "\n11. Continued Fractions"}, "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->"5dfeb588-78c4-4cf8-8805-43d5d6a459b4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[657, 23, 233, 7, 108, "Section",ExpressionUUID->"9c4cd6f3-a500-498d-bce9-71c560452069",
 CounterAssignments->{{"Section", 9}},
 CellID->325364703],
Cell[893, 32, 52689, 869, 171, "Text",ExpressionUUID->"ccf7c46a-a027-4284-9233-bc7aae6c9719",
 CellID->2049094313],
Cell[53585, 903, 590, 9, 60, "Text",ExpressionUUID->"eb2ea8c9-348e-4537-b588-a18ffdb74610",
 CellID->1212227438],
Cell[54178, 914, 336, 6, 36, "Text",ExpressionUUID->"79d1c9c5-fa26-466e-86b1-5000a0e7b3e7",
 CellID->1472203448],
Cell[54517, 922, 377, 9, 30, "Item",ExpressionUUID->"3850b0a2-ea13-44cb-8827-ebea60b8c37f",
 CellID->407227083],
Cell[54897, 933, 392, 9, 60, "Text",ExpressionUUID->"3a3d897b-a8a6-43f9-b620-d50879cd6678",
 CellID->2061008074],
Cell[55292, 944, 391, 9, 30, "Item",ExpressionUUID->"d990c435-8f75-4bd5-94ca-459c31aec6da",
 CellID->1698746624],
Cell[55686, 955, 320, 7, 60, "Text",ExpressionUUID->"6083a332-bda8-4005-a430-e1ec9a8176ae",
 CellID->1720853559],
Cell[56009, 964, 315, 8, 30, "Item",ExpressionUUID->"e23f2845-df7c-4413-89dc-495cc422fbc2",
 CellID->39422703],
Cell[56327, 974, 451, 8, 106, "Text",ExpressionUUID->"e8f2437e-b959-4ac9-8d0b-81086fb8a676",
 CellID->1929867578],
Cell[56781, 984, 421, 7, 59, "Text",ExpressionUUID->"8497170a-af16-4575-8fb1-3653acf8d939",
 CellID->1105536980],
Cell[57205, 993, 509, 11, 59, "Text",ExpressionUUID->"34041a00-3079-45dc-bd0d-900425c805b7",
 CellID->1066763877],
Cell[57717, 1006, 363, 7, 59, "Text",ExpressionUUID->"37f7e089-b562-4750-85c5-82d43b14caef",
 CellID->1714653497],
Cell[CellGroupData[{
Cell[58105, 1017, 466, 7, 56, "Subsection",ExpressionUUID->"3865ca0f-062c-4089-9377-a87326fed8b2",
 CellID->917673737],
Cell[58574, 1026, 410, 11, 59, "Text",ExpressionUUID->"5a1e83cd-69ff-4219-bc1c-4138324722dd",
 CellID->114945005],
Cell[58987, 1039, 226, 5, 32, "DisplayFormula",ExpressionUUID->"c80ce58f-32bf-4f53-8e96-3211de8b7e48",
 CellID->1533155041],
Cell[59216, 1046, 364, 10, 36, "Text",ExpressionUUID->"c7ab1527-ecd6-4d76-8dab-07dae48c1725",
 CellID->1537179928],
Cell[59583, 1058, 208, 4, 32, "DisplayFormula",ExpressionUUID->"cd12eee3-fe2d-42df-a412-2fb024b7e053",
 CellID->167853030],
Cell[59794, 1064, 300, 4, 36, "Text",ExpressionUUID->"bbd71693-2ecb-4e83-bf2d-593806928eaf",
 CellID->1518682263],
Cell[60097, 1070, 218, 4, 32, "DisplayFormula",ExpressionUUID->"ccb437bd-7010-4bb8-b49f-70df9fc8a65a",
 CellID->1852513862],
Cell[60318, 1076, 998, 27, 83, "Text",ExpressionUUID->"46edc832-5e77-4f04-9c5f-66a88803cde0",
 CellID->1647717552],
Cell[61319, 1105, 300, 8, 47, "DisplayFormula",ExpressionUUID->"5e3b3ad9-3a2b-4485-acdb-fae1340153e6",
 CellID->228827214],
Cell[61622, 1115, 649, 8, 36, "Text",ExpressionUUID->"e8cdcd1d-4bba-489f-80d3-cc7097dbfff9",
 CellID->590026514],
Cell[62274, 1125, 215, 4, 32, "DisplayFormula",ExpressionUUID->"9ccb0963-9c7e-429f-9c8a-4df07a0ac0bb",
 CellID->6707599],
Cell[62492, 1131, 452, 15, 36, "Text",ExpressionUUID->"ccaa233f-2cf9-43d6-b903-b2b28fe0588e",
 CellID->1282870032],
Cell[62947, 1148, 218, 4, 32, "DisplayFormula",ExpressionUUID->"33c8d89f-0b31-45e1-8ff9-bede967359e2",
 CellID->2123643634],
Cell[63168, 1154, 284, 3, 36, "Text",ExpressionUUID->"89af7ae0-40cd-4180-8590-4e7476e62517",
 CellID->1040311726],
Cell[63455, 1159, 504, 10, 36, "Text",ExpressionUUID->"e2d0ac9d-21e0-4d9a-87a5-027c92db46a5",
 CellID->1854808655],
Cell[63962, 1171, 223, 5, 34, "DisplayFormula",ExpressionUUID->"9253abe6-4aef-4688-ae46-0cc930e1b929",
 CellID->288020076]
}, Open  ]],
Cell[CellGroupData[{
Cell[64222, 1181, 762, 10, 56, "Subsection",ExpressionUUID->"959dbc9c-51b4-4179-95dd-cc5ec385775a",
 CellID->797599538],
Cell[64987, 1193, 488, 8, 36, "Text",ExpressionUUID->"76f37b62-2121-4069-ada2-347dc8a87e53",
 CellID->662510592],
Cell[65478, 1203, 511, 10, 59, "Text",ExpressionUUID->"0b7886d1-9aa7-4fb9-979f-78c31fc63b63",
 CellID->112810049],
Cell[65992, 1215, 372, 9, 59, "Text",ExpressionUUID->"743bad25-7cbc-44dd-8d9e-e543ecfded33",
 CellID->1917916889],
Cell[66367, 1226, 446, 13, 59, "Text",ExpressionUUID->"1a64bfa3-0e84-43d9-97cb-6cfaa7a12bea",
 CellID->699611953],
Cell[66816, 1241, 379, 7, 59, "Text",ExpressionUUID->"e6a2540f-1bcb-4da3-9f1c-d03445fab2c3",
 CellID->905126746],
Cell[67198, 1250, 195, 4, 32, "DisplayFormula",ExpressionUUID->"e6773afd-3b70-4327-b844-e18b5aa968a7",
 CellID->450462660],
Cell[67396, 1256, 509, 6, 36, "Text",ExpressionUUID->"943bb3be-d921-4e2e-99db-ac8e3a137511",
 CellID->339434364],
Cell[CellGroupData[{
Cell[67930, 1266, 381, 10, 34, "Item",ExpressionUUID->"cb277f8a-d3b8-4d9c-984e-cf5f36ec9e87",
 CellID->1156789316],
Cell[68314, 1278, 656, 9, 34, "Item",ExpressionUUID->"e5b51b54-fdd0-4206-80de-384f45e4abe1",
 CellID->988577721]
}, Open  ]],
Cell[68985, 1290, 451, 6, 36, "Text",ExpressionUUID->"0ee0fd05-3080-4ba6-b46c-d41ddad0bc69",
 CellID->2092263655],
Cell[69439, 1298, 530, 7, 34, "Item",ExpressionUUID->"52c6f271-19a3-4f67-8a28-8118b8776af4",
 CellID->1778013607]
}, Open  ]],
Cell[CellGroupData[{
Cell[70006, 1310, 623, 8, 56, "Subsection",ExpressionUUID->"00473786-ff19-488b-aafc-802004b3f984",
 CellID->329065024],
Cell[70632, 1320, 425, 11, 59, "Text",ExpressionUUID->"1666619f-354f-4817-847b-41a9073d4499",
 CellID->825467343],
Cell[71060, 1333, 709, 19, 59, "Text",ExpressionUUID->"251e1b45-7f74-46e7-8fdc-f7e444c36613",
 CellID->885274181],
Cell[71772, 1354, 453, 8, 36, "Text",ExpressionUUID->"8927d655-911a-4ce5-a663-ac6acce5a6a5",
 CellID->1036453651],
Cell[72228, 1364, 198, 5, 32, "DisplayFormula",ExpressionUUID->"adc53b43-af83-4f3a-a559-fa07be03483f",
 CellID->731214640],
Cell[72429, 1371, 366, 9, 59, "Text",ExpressionUUID->"ee8aeb62-0c84-4ccc-a3fa-d1142b622152",
 CellID->1643789559],
Cell[72798, 1382, 199, 4, 32, "DisplayFormula",ExpressionUUID->"6b1c583c-9774-454c-9b18-72db3d4c50fe",
 CellID->1353996293],
Cell[73000, 1388, 446, 9, 59, "Text",ExpressionUUID->"0d068bba-e48f-4886-b7c2-0efd7bc59de3",
 CellID->1640013217],
Cell[73449, 1399, 194, 4, 32, "DisplayFormula",ExpressionUUID->"4fc49449-4072-41aa-8a19-5e0cccccd313",
 CellID->479201554],
Cell[73646, 1405, 195, 4, 32, "DisplayFormula",ExpressionUUID->"40c5baa6-9ea2-49fb-9fbf-b7f3bff801e6",
 CellID->876841828],
Cell[73844, 1411, 506, 13, 59, "Text",ExpressionUUID->"50718967-7629-4a72-a404-c2147fcd8cad",
 CellID->37197001]
}, Open  ]],
Cell[CellGroupData[{
Cell[74387, 1429, 750, 10, 56, "Subsection",ExpressionUUID->"ee881fc4-e7fa-4a94-9ded-e2868ae96fb7",
 CellID->2019782240],
Cell[75140, 1441, 377, 8, 59, "Text",ExpressionUUID->"4602a9c6-b1bf-4eb6-bf77-e9c641345805",
 CellID->1206099551],
Cell[75520, 1451, 279, 7, 36, "Text",ExpressionUUID->"e060376a-fc77-4bd8-ab0d-e964060575e3",
 CellID->817009624],
Cell[75802, 1460, 485, 14, 32, "DisplayFormula",ExpressionUUID->"cd3a4bda-769b-4f82-9a9e-0e7a3f466490",
 CellID->531727450],
Cell[76290, 1476, 373, 6, 59, "Text",ExpressionUUID->"3c6bc480-a555-4134-a025-a6c5ff9c0ed4",
 CellID->1788080590],
Cell[76666, 1484, 282, 7, 36, "Text",ExpressionUUID->"b3205473-dc8f-4275-bb85-903e3f8c51cd",
 CellID->384320012],
Cell[76951, 1493, 553, 17, 32, "DisplayFormula",ExpressionUUID->"bb293876-3b7b-422b-9cdb-9d87764791a5",
 CellID->1438098735],
Cell[77507, 1512, 324, 8, 59, "Text",ExpressionUUID->"708c2259-3148-48dd-9d63-a093e4214b1e",
 CellID->682116200],
Cell[77834, 1522, 292, 4, 36, "Text",ExpressionUUID->"7d1f09a0-47a7-4f6b-afec-2702dc990c4d",
 CellID->1059265714],
Cell[78129, 1528, 381, 11, 32, "DisplayFormula",ExpressionUUID->"88bde60c-550c-47e8-88d5-bef11bfdd6cc",
 CellID->1131070052],
Cell[78513, 1541, 616, 20, 32, "DisplayFormula",ExpressionUUID->"e0fcba33-0273-44e6-9591-81c2caaefc37",
 CellID->369120720]
}, Open  ]],
Cell[CellGroupData[{
Cell[79166, 1566, 633, 8, 56, "Subsection",ExpressionUUID->"b15082ae-e6d8-48c4-b4b6-7fba4f686730",
 CellID->1005208539],
Cell[79802, 1576, 449, 12, 36, "Text",ExpressionUUID->"8af26d6e-5b73-4f7e-ab31-fe7ac5881415",
 CellID->286064024],
Cell[80254, 1590, 651, 14, 83, "Text",ExpressionUUID->"b3211de5-6431-449e-b025-2cb389712673",
 CellID->1809649382],
Cell[80908, 1606, 143, 2, 32, "DisplayFormula",ExpressionUUID->"604388d2-39e5-4c72-af12-58979068562c",
 CellID->1034587379],
Cell[81054, 1610, 142, 2, 32, "DisplayFormula",ExpressionUUID->"35b3d7d5-2e2e-4df0-b37a-126a05e8353b",
 CellID->134989094],
Cell[81199, 1614, 288, 3, 36, "Text",ExpressionUUID->"37e995a9-6c0d-423c-8db2-d8f98b316fcd",
 CellID->743357398],
Cell[81490, 1619, 560, 11, 59, "Text",ExpressionUUID->"f4f5e431-166e-4ba7-923b-ccca656e259c",
 CellID->1695413587],
Cell[82053, 1632, 326, 10, 59, "Text",ExpressionUUID->"dee376a7-cd9f-4cea-8e91-febc75920f3e",
 CellID->2003128313],
Cell[82382, 1644, 432, 10, 59, "Text",ExpressionUUID->"e93a1a2a-7f97-4c54-9b14-c9a95dacea98",
 CellID->618516895],
Cell[82817, 1656, 175, 3, 32, "DisplayFormula",ExpressionUUID->"1d7bcb09-5b70-4c56-bddf-3e627509e010",
 CellID->634033729],
Cell[82995, 1661, 179, 4, 32, "DisplayFormula",ExpressionUUID->"4a33c043-2cd4-4437-8ac3-32b0027c30fb",
 CellID->391026889],
Cell[83177, 1667, 542, 9, 59, "Text",ExpressionUUID->"2ca29bae-a81c-46f6-9b36-c8d1b091b03c",
 CellID->36606899],
Cell[83722, 1678, 182, 4, 32, "DisplayFormula",ExpressionUUID->"36665c98-8fde-4277-a213-c2a52bdb0c22",
 CellID->592411055],
Cell[83907, 1684, 184, 4, 32, "DisplayFormula",ExpressionUUID->"f5a91a9f-bc71-4643-ad21-0a8094f6e075",
 CellID->918413893],
Cell[84094, 1690, 496, 10, 83, "Text",ExpressionUUID->"c2d2acca-f805-4ffe-a4bf-6d68df667099",
 CellID->1532135178],
Cell[84593, 1702, 181, 4, 32, "DisplayFormula",ExpressionUUID->"1b2c47f3-0b8e-48ec-a69f-9e789fec7124",
 CellID->1135288214],
Cell[84777, 1708, 175, 3, 32, "DisplayFormula",ExpressionUUID->"1ff60ecc-0c8b-4480-be18-bb597addb0e3",
 CellID->396809103],
Cell[84955, 1713, 412, 8, 59, "Text",ExpressionUUID->"5a627891-0691-4a08-b348-265f6319d809",
 CellID->1758863376],
Cell[85370, 1723, 311, 6, 59, "Text",ExpressionUUID->"7f8a39dd-8cf5-4ce1-9178-4faa68db6254",
 CellID->1104359477]
}, Open  ]],
Cell[CellGroupData[{
Cell[85718, 1734, 577, 8, 56, "Subsection",ExpressionUUID->"90ae5227-f042-4ce4-95d6-eb651328169b",
 CellID->1974662479],
Cell[86298, 1744, 337, 8, 36, "Text",ExpressionUUID->"4c157d53-be1e-4ea8-9963-27bbdde4eb03",
 CellID->940003815],
Cell[86638, 1754, 248, 3, 36, "Text",ExpressionUUID->"24c2537f-7f38-4d35-8a82-132fd9f5a744",
 CellID->1754411373],
Cell[86889, 1759, 241, 6, 47, "DisplayFormula",ExpressionUUID->"847108f2-c104-4224-ab3c-251d3bb8fa0d",
 CellID->262502229],
Cell[87133, 1767, 180, 2, 36, "Text",ExpressionUUID->"b8bbb709-edf7-4557-8725-ae4937a01d6c",
 CellID->1068663900],
Cell[87316, 1771, 626, 13, 59, "Text",ExpressionUUID->"0df14922-1a8c-4165-b422-dc560f7cecd5",
 CellID->1628427439],
Cell[87945, 1786, 161, 3, 47, "DisplayFormula",ExpressionUUID->"36f7d164-d81f-417b-88d5-5e7516931853",
 CellID->1856498222],
Cell[88109, 1791, 398, 10, 36, "Text",ExpressionUUID->"3eb69d5c-74ca-40d8-be98-eb208d6f061f",
 CellID->1025854590],
Cell[88510, 1803, 356, 7, 59, "Text",ExpressionUUID->"91305833-22fb-42a1-a4a0-210540599871",
 CellID->1539376014],
Cell[88869, 1812, 771, 19, 59, "Text",ExpressionUUID->"570ed0fd-0443-44b4-b963-bee689b19d72",
 CellID->1557171889],
Cell[89643, 1833, 77203, 1273, 246, "Text",ExpressionUUID->"fdaf4719-2d04-4cd8-95fd-efa7e081bc18",
 CellID->966355949],
Cell[166849, 3108, 426, 7, 59, "Text",ExpressionUUID->"bcb6e4e0-ffdd-4b8a-ae9b-7131af0f7726",
 CellID->1934654095]
}, Open  ]],
Cell[CellGroupData[{
Cell[167312, 3120, 632, 8, 56, "Subsection",ExpressionUUID->"f4f67ec8-5915-450b-b090-ead8f518ab2f",
 CellID->1027397015],
Cell[167947, 3130, 808, 23, 62, "Text",ExpressionUUID->"87ac4ff5-880c-415e-a570-b349dc09d773",
 CellID->1693109225],
Cell[168758, 3155, 240, 6, 50, "DisplayFormula",ExpressionUUID->"d0aa5dc7-da4d-4042-8c92-ad87e00f3025",
 CellID->1047880037],
Cell[169001, 3163, 348, 10, 36, "Text",ExpressionUUID->"1b985a3c-9237-475e-8087-4a42c62f090e",
 CellID->1162412251],
Cell[169352, 3175, 240, 6, 47, "DisplayFormula",ExpressionUUID->"4128845b-3aba-4d3c-b1d6-9b2a05a01a36",
 CellID->321372643],
Cell[169595, 3183, 300, 10, 36, "Text",ExpressionUUID->"1088d500-2ea0-448d-a19f-101d160b2488",
 CellID->874152507],
Cell[169898, 3195, 454, 10, 59, "Text",ExpressionUUID->"e27a9114-6636-4c18-8fa6-0e2615731d80",
 CellID->945556022],
Cell[170355, 3207, 208, 5, 47, "DisplayFormula",ExpressionUUID->"c1d7af7e-d749-407d-8bbd-8451bd628d9c",
 CellID->663464931],
Cell[170566, 3214, 422, 10, 36, "Text",ExpressionUUID->"3dee4cd5-6f68-4c35-8b50-7d07f5eda53b",
 CellID->1501801969],
Cell[170991, 3226, 211, 5, 50, "DisplayFormula",ExpressionUUID->"2cf1f845-9c67-4a03-9697-7a19fb7a6fd7",
 CellID->1265256048]
}, Open  ]],
Cell[CellGroupData[{
Cell[171239, 3236, 690, 9, 56, "Subsection",ExpressionUUID->"5e9ff3e9-fafc-4587-84c6-8caac8fdebc3",
 CellID->1416008417],
Cell[171932, 3247, 567, 17, 64, "Text",ExpressionUUID->"d0bc1fed-74da-419a-b9a3-0624ff13ec46",
 CellID->439688465],
Cell[172502, 3266, 282, 7, 36, "Text",ExpressionUUID->"1e307e33-8d9e-45de-a1b6-8cdc09a0f84e",
 CellID->352801928],
Cell[172787, 3275, 408, 9, 59, "Text",ExpressionUUID->"35293cb2-3256-4d1a-8bde-b254f23084e3",
 CellID->339654529],
Cell[173198, 3286, 534, 12, 83, "Text",ExpressionUUID->"3a054332-8336-4550-b90f-9ab4c41cf063",
 CellID->562135177],
Cell[173735, 3300, 286, 9, 47, "DisplayFormula",ExpressionUUID->"2daa16e2-1c24-480c-b501-f5a30de58204",
 CellID->1422245120],
Cell[174024, 3311, 324, 7, 59, "Text",ExpressionUUID->"7487b270-6d6f-4c74-937c-09ef9172b8f5",
 CellID->1761038074],
Cell[174351, 3320, 185, 4, 44, "DisplayFormula",ExpressionUUID->"b80249c6-1a9d-435b-b091-a1dd30a1687c",
 CellID->10759069],
Cell[174539, 3326, 284, 6, 36, "Text",ExpressionUUID->"9f607723-b4b4-464f-92af-2fe740b67100",
 CellID->192976135]
}, Open  ]],
Cell[CellGroupData[{
Cell[174860, 3337, 712, 10, 56, "Subsection",ExpressionUUID->"d6bd0f65-8a50-40bd-8d03-67958486c591",
 CellID->2066560124],
Cell[175575, 3349, 304, 7, 36, "Text",ExpressionUUID->"a0505c0d-ff73-494f-9ea4-16c8fe65bfce",
 CellID->1422981137],
Cell[175882, 3358, 162, 3, 47, "DisplayFormula",ExpressionUUID->"eac2794a-70f6-40e8-8f98-803bf9a3e0fc",
 CellID->2075983808],
Cell[176047, 3363, 261, 7, 36, "Text",ExpressionUUID->"8b3c9997-5d05-4328-9dca-dd24a7c46d36",
 CellID->709588336],
Cell[176311, 3372, 314, 9, 47, "DisplayFormula",ExpressionUUID->"8c4ab408-9988-48c0-86ad-ea958e33af31",
 CellID->49772554],
Cell[176628, 3383, 354, 9, 36, "Text",ExpressionUUID->"08b23928-7510-4138-b5fd-b29c9cc56850",
 CellID->450176704],
Cell[176985, 3394, 576, 11, 106, "Text",ExpressionUUID->"a38ad367-7fc5-45e4-83f7-cb13e210d2d9",
 CellID->1117623908],
Cell[177564, 3407, 758, 19, 59, "Text",ExpressionUUID->"74a69c9c-f1e8-4318-9fb5-dd427be0b309",
 CellID->1970833487],
Cell[178325, 3428, 192, 4, 45, "DisplayFormula",ExpressionUUID->"e9bfc559-9965-447e-b7d7-a53f13b1d2d8",
 CellID->1672939402],
Cell[178520, 3434, 234, 3, 36, "Text",ExpressionUUID->"1648ec74-0994-4c0b-acf9-8d355ea18f5a",
 CellID->1456989444],
Cell[178757, 3439, 188, 4, 45, "DisplayFormula",ExpressionUUID->"82a3888a-a77f-4a05-9cbd-616aa2624ca2",
 CellID->1559687828],
Cell[178948, 3445, 189, 4, 45, "DisplayFormula",ExpressionUUID->"d4f00ea0-ab61-4e98-9991-10c522d1e520",
 CellID->1487929914],
Cell[179140, 3451, 190, 4, 44, "DisplayFormula",ExpressionUUID->"935f69a6-4934-4941-914e-6458101bbbf5",
 CellID->190995283],
Cell[179333, 3457, 198, 4, 47, "DisplayFormula",ExpressionUUID->"39fee930-6e96-4dfb-810e-4b6e3cd60aa2",
 CellID->1717152763]
}, Open  ]],
Cell[CellGroupData[{
Cell[179568, 3466, 712, 9, 56, "Subsection",ExpressionUUID->"400f03f2-62d8-42c1-950a-d45577fa8d21",
 CellID->315372487],
Cell[180283, 3477, 518, 9, 59, "Text",ExpressionUUID->"b16e3f5d-e55f-4f58-ad3f-ad013b668408",
 CellID->475748213],
Cell[180804, 3488, 673, 10, 59, "Text",ExpressionUUID->"141c8972-9844-4596-a59f-67585787ceb0",
 CellID->818598110],
Cell[181480, 3500, 194, 5, 47, "DisplayFormula",ExpressionUUID->"41779fe4-cb9b-4e53-9904-d968804f053f",
 CellID->1954202503],
Cell[181677, 3507, 230, 6, 47, "DisplayFormula",ExpressionUUID->"2e4656da-b32c-43f2-8ec6-6c1d427179c3",
 CellID->1045782416],
Cell[181910, 3515, 460, 7, 59, "Text",ExpressionUUID->"4b201697-41c1-4e3d-bcff-ada4aaffeafd",
 CellID->1406162094],
Cell[182373, 3524, 193, 4, 47, "DisplayFormula",ExpressionUUID->"dcc0c4d4-f5c0-4d45-9710-2f22e5b91c09",
 CellID->1517291504],
Cell[182569, 3530, 232, 6, 50, "DisplayFormula",ExpressionUUID->"56a3b87e-f44a-4f75-af58-cef6dae47b26",
 CellID->114650686],
Cell[182804, 3538, 492, 8, 59, "Text",ExpressionUUID->"ac44173d-5741-4f63-85f0-03d57eaef7f6",
 CellID->204682248],
Cell[CellGroupData[{
Cell[183321, 3550, 110, 1, 69, "TechNoteSection",ExpressionUUID->"d32a9871-398c-4e38-8a5f-2a2e1df1bb2c",
 CellID->1259673378],
Cell[183434, 3553, 433, 11, 52, "SummaryList",ExpressionUUID->"b0e3dbe6-f954-4021-9f9d-fa1a7b0a770b",
 CellID->2035049339],
Cell[183870, 3566, 404, 11, 29, "SummaryList",ExpressionUUID->"07cc2039-a334-435d-81fb-61be1aaaa5ed",
 CellID->102194804],
Cell[184277, 3579, 582, 17, 29, "SummaryList",ExpressionUUID->"6bb059b3-7d89-4adf-aa95-48df744d1ecb",
 CellID->1748636875],
Cell[184862, 3598, 349, 7, 29, "SummaryList",ExpressionUUID->"93aacec5-1c95-47f0-8c73-5d28d4d31823",
 CellID->1026248930],
Cell[185214, 3607, 404, 10, 52, "SummaryList",ExpressionUUID->"b1eb97f5-150b-4542-a0da-fb1e982c0576",
 CellID->1724597453],
Cell[185621, 3619, 344, 8, 29, "SummaryList",ExpressionUUID->"5ad0d5c7-ec54-4ca5-8bf7-28fd7ef800cf",
 CellID->722609012],
Cell[185968, 3629, 534, 12, 52, "SummaryList",ExpressionUUID->"d41a6351-3240-4181-8a87-7797678f57f2",
 CellID->869640899],
Cell[186505, 3643, 786, 23, 33, "SummaryList",ExpressionUUID->"537a1858-94f5-4195-bdf7-c77ded3b8a9e",
 CellID->280888011]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[187330, 3671, 293, 6, 135, "SmallText",ExpressionUUID->"67925fe4-8a46-412e-80ef-ab35664d81b6",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature CSG6XluGyB3xTiehrPRJ0It3 *)
