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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    226941,       4856]
NotebookOptionsPosition[    214893,       4650]
NotebookOutlinePosition[    216387,       4688]
CellTagsIndexPosition[    216307,       4683]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 " ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvddzZGt25ccIaci+/t4y8N4DmUiLBBImgYT33nvvPaoAlPfe3Kq6vs1t
f7vJHvb0NNnkdJPDaQ7JIRmkZhQazYsUetCj/outtfZ3zslEVV0yRiHpiRWx
4mQmUEAm8rf3Xvtzmb2wO7DwP/zO7/zOl9BfQv/j7/zLv3/59y//um6VS/ft
Cum5U6nqvVulcu7fqZG+uxG99tyuhmql92Y91OCo/1aTDED9NxtVvD18u1lG
77bK2L02GbvfKaOqdhnBfdX9Fhl70CoT9/H1e/xe/p9GGb5TL0O3o9J7o066
r0VUXVdrLFVL+6WwtF2skNYL5dJ0WCYN5/xSt++WyG6J1OwUS9VWoVSs50lo
NUsCS2lQqtFyisq/lCy+xUSVf5H308S/nC6BlQyj1UwoS8rWcyW0XSDlO4WO
qvDzI7ulUrfnkfoDn/7uxvM+aTz0SfOF4Ak1HQdUjUdBifI54vtr970Swf+t
3vZI5aZbyteKpWylEM+vAM8lJs98gZTO5YtrJleKJ7OkcDxDCsbSJW8kVXKH
k6EkyR1MlOz+s5LVdwZKlMyeJMnqwrUzQcXb2d34vt4UybOU35cqBQPpUjiQ
JiX9aVI6mC7ekWzxjeRAeRIYK5SyMTynsRIpnyiR8JRbqmY8UjXrluo5j9Qu
lDmKLAakdgmvbSWk17rloNSvlkndalBqVwKq6GpA6pa8UrvolpqFUqlZxM+a
K1VVz+P2glcq531SMeOV0FSplE25JDBRKN6xPCkdy5XS0XxxQ67RPCkaypWC
wRzJH8yT3P4cyenLluzeLMnuSZOc3iRVdo95zdndyVCKZHcmS05XKq6pktGW
JOmtSbimSFpTksTz33WrAjEQVtncd9/G9XaVch8vw3/UxMCt+tfyPwj2R+60
KP/j4Hv8YRdYpxgDHRoHo2Cf/I/fb32J/6gMQf342X03Y3HQeaVaOi6HlX87
BlqOyb/vJf4LwH+uw78yDgWW4vlPMlpIwTVVfODfb0vjIBP850hoy/CvcQBV
4ufXgt8oOCb7jL/m46C0gPeWi2WO4uOA/NefDzj8UzU7XjzPUglvuPBcS/Bc
iyS4XAwV4XkW4jkVaQyQf9d0jsZA0USmxkDheDquaZI/Cp4RC3lDeO/78V73
Jut7T+5t9nN6kh32Hf7BvfKPOPAMZYgfnJF9PxgLjhd9Lf9Vs+B3LvjfxX/d
Kr8Hr3cB8TMPLVjcg/9KFfifs/n3SNmkW/wTeO3j4H/U8F/q8J8thYPZ4D8X
/GeDf7Dfmwnu0yS3L9mJAb7mnJ4UKFX5z+1GfHSlSWZ78mv577gREqrzZrmK
sUB13gxL103Ewa0qK+9buoWcfKNW1XOLcdB4gn9eh8D+iOb9dhl/0KH8jz/s
tsTbnTL+CF972Kb8j7MWaAwgbu42aA0YuN2gYhwwBsg/mY/nn+w1HnolelAK
Ll0aA9Xb+eAqB7k1GzylK/u+hWRck5V9lZX/vYgBL78eVwOU/9UMCa5lSWgD
dWQrX8ogxgDzfx3ZPyD7YP44hOcBXQpJq6X4ODCxEEIMlGkMsA5QtXt+JwZY
B0wMuKAS1INixGmJxgBrQOlsnsZAyVS2xgBrgdaD0VRln3UgdyBZ8vtTNdeb
9z/Z5H3wnh8nw366FCHvuwYzkPszxTeaA/ZzoXwJjJ/M/xWTLqmcxnOcwXUG
/M4GJDIf49+Ogcgi+S9DLBj2I8t+Ve2yz+T8ebLuUv5rkPOrEAMViCdyT5VP
e8C/qQE+5P9S5H/3iCWL/+KhHPCfJXmDmeAf3PdnIAYycDtN8hD/jvr4d0gz
6k51+M/qSEEMpEhGO2pBc/Ir/J/QTcTDDcTAjfAJMR66blRL1/WIyo6BvlsN
UFzuB/v0O8z5ZF5z/yNcH/fIBK4Tj0wMjD00dYD829I6cKdRubdjoO8ma0AN
YqAKNaDS1IHL5dIKvug96s95wKULXBWDq0IwlQemcsBShnof5nqH/SWyn6Dy
IiZ8qAt+1oU4D8QYMPwjjvCzyjfzpWK7UKp3wT9irf6cF7/Xr3mfz6Httdzb
NSAEHxSShkNTB7QW7IORXZ/6oFgMuJV/KrjiwvMsNj4I/LtRB2z+7RgoGMX7
PgTeB5PARAp8DWoCWcD7b4v3C15S4UAGWMoQN/hn/if/vpFclX+0QIIv8c8a
YPNfNeN3akDNAm4v+p04eJn/GrAfWfIb3pnrZ12W5/Fp3ifzhnuPBHEN8Irf
5UUM2jk/XsVD8IFgPw+xm9NPpalyEff5A3Hq52s3/OfBG+WCffof8k9ltJH/
V/P/CV2nyiHk22vl0nYVOe5qOW7j/tWwdMCHU51gknHQY/UD5J+5nx7HZn/i
UQ84N/yPP+mVScbAYxMDYw8s/tkHWGIdGEEM2OwP3K5HLNAH1Tox0HkFMXCl
QtlrOvIrjzb/kd0ii/9s5T+4nBbHfpLF/VmwdUa8C0lWDPBrqYgB9AvLdg2g
B8qW8o1cCW8x9xfBu7u01jDe1PPD3/M5tJ5gP2Txb9SCOkX+WQPsGLD5Zw2w
Y6Bq06MxUL7mkrJVN+KQNaBQPCdqgKkDJZOIhXH4oREwP4z3fND4eorMx+sk
++lSDIaY++P598L/e4cZB/ngv0hC464T/Ien4YWmXeAfTMfzv+B3aoDDP9lf
8hktei2/41G/w2t4jrmf7Hvh90slQM8zWWrJBf6LnJzvsI8epWgYcT9E/tPU
7xkhv+Nqsx/LAelO/s/uTHHYZ/5Pb6X/Sfh6/sE+mbe5b72C9/ES8tglvJeX
8d6Cu7arldIGDtuumBjovh6Vnhvw6/Dvg3daNfeTe7I+Sf7JPm8/7ZWpD/uN
nvQgPtALPID3gQ+agB+aZCxYvcDQXf4swz7zP/mnuq5VSidjkM8DebfpKCAN
5+mrkV920aPuwv9vIfevIZ+v0s+nmfy+As6XE8UD9t3zp8U1d0rcc7g9lyAe
xIHHigUv+wH4oSD4D4H/is1cqYSniuwa9vm7GtDz8vfG89+GetR2GTEJb0bm
Wy8ZfR3/tbvGB1EmFvxSueU1dQB9QWiddaAI3i0fMQA/PJuvdcBt9wQTyIej
6SYGhtId/u0YiGfe9Lzp6Hkz4PvBPjhyq//JUv/vh88wPYDJ/+Q/NF7sxEDF
VLHyXwlma9QDBZX9avSuvL6O/2qwX7XgseQzeX+efsctZdN4jbNe5H3DvG+C
eR/C7/PA/7vgf0pQj8h+CbxZ4SheK55rwQi4Rq3LGYDPh+ejcgfoeUwMFCA2
+Fpze1PV/9v80/vH+EcfEJ//r5fF5XvomlE72KfarpSrr22+GJSmCwEIV+S4
5kvliAf4ENSBLo7T3IiqBxqg90efO/6Qub4P6ldNPOmDcPtpn2riCWrA4y5w
H9cLPOTYEP1Tk4zcb9bcT/ZNDCD/X69S/u0YaEc8tl4k//A/59ADH6D/3QH/
m+hd1+llUpV95nffMjzQChhfSpDShdOqeP5tLxTQeEEdWElHDGUp//yZkf0S
eB+3/q6mIx+8j/E/jEHj/8sd5uPZb72A64VyxApigONV5xEDB0H0EOgJoDrG
APiP7ASkZhucMAY2S1F3wAm8EPthP+qAb6HIqQPK/zj6wRH4oGHwPhhjXHln
7o/3/FARPEMxRP6Z/0uRT8l/zP+/yr8TA+C/fLJYKibQv8IDkX/mffof4/+t
GgC/E4lj31y9yn2Y7CP3h8B/kOM8kyXiR23x4bYPMeBR9ouldBx9/3iuFON5
UUXI/QV4rgXDGVrr8obIfaKlBKf3iff/tv9h/5vZnqT82yL/magBNv/tV4Ng
uMzhPp7/tismr9l+Vsfzjv3SqDHAulChdaBDfVDtq/w/spkfUE1QiAPWgnGw
P4kYmIQXIv+sARS5Hwb/lO19TByQ/0onBuL5bzz0oK90S+25kjj+Mx3+tc+F
77f5d8+fAv92/j8rpfOJJ2KA/4dxYPPPuhLZh/c/59Lf1XzsBdPM/YZ/7UUs
5tuQE17mX2Pg2IzXNoL/xnO4ngtpDNShDhiBo23kVMRApRUDoXWX9sNmXKjY
8ULaD0yAjzHGAHwB2CgE00WQHQPx/Mezb/PvGc6K5f/RvH+W//AUvZDH4d/2
/3bu5/hP3XIg5v81Dvya98Psd+F/Quh5y8B/AD/PP4nahivlRWyRfddEgRSN
wuuMZeGaZeV9vL7RDK1z7HfY75N7jv1SOf2Jmv+dMSDt/VP/Cf5TTvh/Mk7W
T+Z91PTLsfEMM44N7pH3GigrBlgD6IU6rsEHxfE/TP//qBeM96kmLPbHT/CP
PuCJiYOT/OP/owbQ/zj836nDz0afgd6bYhx0XGHeDWoebjr0wlfA/x8UgX94
/81s5T+4ylyerMzT9/iW4f2XzoD/D5R/1+wZlXvujNYBOw78iIEy5P/ytQz0
ErnaU7O3iB64dLyJv5NxRzEG1YuxFqIv4bUNPbrjg+L4bz4KmRgA+1T9flCi
ewGI1zKpRQ0g/1WcH9hmDYiNCTEGWAe87IlnCsQ9hVowbmKgCIwUw9MUxcWA
nfeLX2E/0+I/U+V9Jf8Xaf9bpn1AsekB4P8r4X+qZ9n/BlTqfRbjvY/xP3XW
2Cd732r0wJVLiOUFvJZ5eJ45lwRnkfeni1S+qUJVKeSagOefyNO+RnubMfb4
iGP0+abPSbHGuxIky5r3yOk9A84TcE1+ZfzfHv8k/xz7j8//6c1x/v+lfN96
GUxdCp7I+Q2H/jj5pP4YMYD818zaT/6vI//fqFP/r/xznP9hj4mBR/Q+A7EY
QD0Ye9xrxUC38j/2iPECD/SoTfthxsDQXfS+d5j765T/fp13qEEcsN8IO/yT
wWY+n0P4n3Pgfzcf/h/8b4B/9AD+1VTxqOc5gxhA7gf3JXPviWv+fSmePqVi
DJTOGx/EsdIA/I/hPxN9aQ64LACfJfArLnifUod//n6bf7JvVOXw3wzf03Ih
FgPNrAHoA5oP0ROcL5cGqwY0HPBarjEQAf818ENVO8iZmy7th3VMyKoBfs4N
zBaCf/KCOgCvUIKc6UI+t2NAxzgHTnKv7MP/uwbo/al0VSnrwHA2lKv9r3+k
UIKjiLfRQod/jv9w/P9l/u3x/7rlUCz/W2Ofmv+X4X2W0OsuulWhBfA/B/5n
wf6MLfJfoOzz9bimEctTqGET4H4MXmYEuX0oWX2PznUw94P9bLCf3XNWmXfG
/q38r3Nf3ex5yX6i8m8rrSVZMloSv5b/lkuct4zNYTLv16Pfqz9P9hEL6Pvq
8f434v1nP9x+rUo6b8D/34xK/13k7Xsc07HYh+8ff2SYf1kTT3qd/D+GHoAx
YNcB9sTD9xrxs+pl8G70BP+9N6sc/tsvlymHTeC//pD+B/zvcawS/G+Cf/QA
hv+z4B1+HzFQAu6LZt+VYsRA8UyMf89CovYJQfa+L/FfB/7rwX+D5n83mPZ9
Tf437J/I/xfDJ2qA6ghfs2Kg0YmBctSDkNaACHqC6l145q3YuKipASUx/ifz
lf3isRzwn/MK/y+z7/CvMYCvwxuVwDe7GANDWeIZ4hgQasBIgQRGil7Lf/z4
p3r+ZcO/0evyP17DYqnDvx0DgTnEsSUfYwGvxzONmjaNfpf8TyN+p+DbJlKl
cDxV46AAcZCPGND5Dvoeh/+El/g3+T+rK/lr+U9vOhvzP1fL1O9o7rfmcOLn
8F/h/9jw38AxoSvlyn/XTc4D1MvAvVjuJ/cTjwZVY/BARhb/T+0+uPcE/2OP
wf+jGP/D9xuUf8N+RPnvuVGp/Hddq3BqgOHf9Qr/ZRvogdfSNO+74PldCx8o
94Uz75gYmD2lMWDnf/YJnCcOwvuHVuF94P9r4H8M/0XI/4iB827k8VInBtou
lcX5/5j3Uf4vhJX/dlzbjysctR1VqloRA83gvwn8N+0jFvbgieCF6g7Az76p
AeENjomWWDHg0hrgnSvS/K+5H3IxBsC/sk+/05f2Cv96v88SfRE88+v49w2/
yr+9/oHzX7Xz8PqLZs43pjLLBxn2a5j/F/H8kfsrlmz2S3GbsYDXgV7eP18o
AetKeWc5zpUrpXNZ4prDc5xJQyykSvFkiomD0RT0wJYH6mfOT1BldZsa4Ejn
wOF1OpMc/tNbTQyktyVLagtioPGMw38rc+hl9rkh7XWN5w/p2HUjxxaPOGfp
lajFf+MxHmdPwPEOjsNfN7m/l97nXpsMcZ0Pet8x+J7xxwPqfcj7uI75wPtz
HEhvx+X/h6/yP3q/CX20xf8d8A/f00Mh/3dxPo51izVL65VH6o9cEjlfJJV7
eVK+nSVlm2B/A/5/Df0vfL+LvsfK/ZTGwPR7+BtDs+/j7875ADMvHFxONfyv
Z0k1+I9s0/8USz16bNP/+rT/NT2wlTc015db15jawH8b4+ICZXmhY9YECLHQ
bNWAxnO4HoS0N67H/dp9eAzOEW8ih66DmzX0jyulElx0gZUieIZ8ccMzlMI3
uzleaPGvvh+5XXteqw4UK+9x/EOufiM3/JB3MEf9j2cwV7xDqAEaAwVO/1s1
Y/iPwPPUIe9HrfUOtUuBk1r06fgP2acqF8E/uVd5lP+KJfi5BdSyBfgs8B9Y
KFT55xF7c9ACnst8NmocPBpjYAqvZSJFCseSUAOMB8rl2E8fWCf/qAGZXRR8
UXeiKqsLfr8D145Eh/9M9gCtSTr2md4Y8/8vz9+YvF9mcj0UheevRf6vYw04
DCIewD59Ld9Tjv9frwP/9cr/4P125P8uGUH+H4X/GbN638lng5AZ9zfc91re
v9Pk/gdg/6HxP6MPW3UMaEzHQMH/Pfoqrr+LrcHouol8eh159xr8/2U/nrMH
dcktNYcFEt7PkbJtsL+ZJr51sL+aJJ7lM5r7be6p/Km3pGDyDeSXt8Q18554
UB986JE5PxxcSZYQeofwRrZUbuWBwyKdX2Pv28TeHznB9oi2uCaDa/K4JoJq
hZzHGBeWH7LnAjgeyv6g6agCP7f8hBoQE7XoBao5HrTpRxz6pGLFK+XLHjDj
Fi98sxee2aPswzujfy0ZsfjXOSAzH8b7mv/Be3Fvmsqwj/4XzHsGslX+Ifj+
YeTfgRyVT2MgP5b/p0ulZh78L3Atm1fqwHgUOb5+JaieJ8q1bhz7X/I7Yg/A
/rfKEXqBFdSzZbfGQDmYDy0VStlSgSqwmIs4QC8+jxicxfOaQU2ayYAnQg2Y
SAb/iagBiYiBJMQA1/6B/b4EyexF/u8+ozGQ1c2agNjoIfuICSi97Qz4x/e0
IT5a8f3ofTMbY+M/nD+1xfeVPa6Zpzf5vh41oA636875lf9GvG+v8t8I/puV
f+b/4Qc2/+D9Kdj/0Ojk+Gd3zPv8d/DP9Uhch9HOuWkdpyKLpYjTEqk+B++z
lx3jfwPefzXRYZ/MU3lTb0re5Jvosd6Uosm3UQPeRf4/hfyfoHPEdv4Pb+Tq
erqanRJn7qseMvyb9Z3KP2KBnJ/g/5X7Zh6A4z+6bu4oZMaDwPrLIv916AVq
dsqkZisgVRt+Ca/6lP8y8O+f4ZihzX++4T/e/8PTxI95OmNAFvs2/17k+3je
eaWY+23/w/nf6lmvw7/Nfjz/DvOLZt7XrP2BD1pBDKyc5L8SNawSPi6MXqYC
PU35SpGUryIGlvNUgYU8Jwa8c5lSyhoAD1Q8kSRF40kO/xz/z4YPykYM5PQY
9rPJP/N/Z4JktJ85wX8mel6K3j+zKdb/ch7fFuc1uZYges6nYgww/5P/KGPC
4R/v5aXKV/gfuNsGXsl/N/jvs/gf0hiYeGX838QA+Tfr4Tpl4nGH6X9f4b/W
WX/t8H8txn/jhVKpOyx+hX8vvE/pSoL6HuZ8Mu9o4g3w/5byXzz1rrhnDf9c
KxTU3jdL+a/eLtS1dfa6hyjEMbD4GNA4QE5/hfu4x9qsPtjm3hkPtZinB3L4
P2f4r93leFDQ4t/v8B+YKdZxQ5v/khHj/20VIQ6K47h35r0s9ul5TO43+Z5x
EB8L8fxr/p/xoO/1qr+J5z+6HFDPr9wjNrjeweEfNYH5n/xXo3ZVg/uqVcpt
tIa+Ggqvl+DvXCQVa4UaB6HlQhXjILiE5zOPOjCL5z1l1YHRZMm31n/rPDBi
ILfXeH/m/ZP8J4B98N9yRtnPQO6n98+I49/M51s6wGs6wGvkepoDr/r++nNm
3aKd/xv4nsG7tlzi+ocah/+eW83w6e2IgQ7lf+QhxzkHlP/xJ4POuI/dC8eP
/2sMPDb8aw3gmgibf/X/dYiviMM/1+K1xY1X2fxXHcD772ZJcCtD/Mz/q8lS
unRWSubelwKL//wJS+PM/++oiqfeA/+n0X8l6vgn1w1x/Sj3EVQi/9fulUjd
rkfX/deeM+vfWAcYB7oOArFA/pttX6Psg3vkecaAiYnYHNjL+d+eDzCyxoL2
EAO7IVX1ZgCs+KViGT3AvOsV/ouHszX3O/wPZ57M+/b4z1Cmjv+XDmaJl9wP
xLjnfR9usw68zD/XgFbPepR/EwN+Hd+JWHlf2Yeqdd2PtfZzlX2w4b7a4r4a
PUz1OnwqevrIJjwVVL3lUlVtFkvlBuoNen3WBMZA2XK+iQH0xKWz6FWm06Ro
LEX7gNzBJCNr/UNuT5KjbPQCzP2Z7WAeuT8D/JN9m//0htj4Tz3zvCWua6f4
PnOfR2Tfo+vWbTEOGvj+Kf/V4C8C/qPgvwl9aYv03W4Dqx3wQD3KP7mfeDps
8T+gYk3QGCD7T0z+H33YYcY/0f+OPmo76X8c/mvBf410gf+OGxU6XmvWJnFM
yuPk/3Lm/610CcD7e5YTte/lmE/B9Nsx9qG88TekYPxtFWOgZPoDeKCzDv+h
1WwoB+9JoUR23Ea7EPqAurg1cFwLQe/IPN9M3rku2lLbkXnM1AaT73X+F+Jt
rQeHFc4YKOfD6vc5P1aBK+cDTAxEtuGD1gPwDB7l355DIv9cK1k8lO3MfRVb
ih/3IfPuITCEOFHh+z1DuSrfMHpo9gKQj+yPIfeCfd0LMAF/MsXxT7OGrWbB
eKCIxbstXe+s3PtUtfA9Og4Kz1YD5iPr+H8buG7iulUqtVAdrzt4DKrZZgyU
mBhYd0nFqvFFoRX6IsTkgu2FEMsTaToWZPY+pOj6Bx337E60lKT5P7Mdnr8D
t+n5WxJO5P94/m3m49lnrqvh+818x8e+lv9a8F8P/pst/tuV/8F7Nv9Dyv/Y
40GtBTGZObAx+J9ReJ8R+P/Rh4b94YctiJ8maw1QHP93yD/iDfy33ajQ/N9y
Jfgq/7vgH7k/wNy/yNxvvH8B+lwyHy+b/6JJw7971uY/HcqSMsRAeKNA3x8T
Ay5dA1q77zY+CDXA7p3U65wH66iXVAsYbzs0dcDx/3H5n7df5t+eCyb/DQcV
yj9VC/4jG8F/lv/XzXu9ln/IPZhtuEcMuHHlfY5/Kv/jL/E/S/7NWk7VQtxt
SNc6Lxv+a2z+4ddq0bfXboAfcF+3BW2DsR2jum3Dfy1Y49+Wf2ONA9SEKtQH
1gHjiVgDEAO2D4rnfxj89ydrvifzVDb3wGnuPys5HfBFHPexvD/5T6f/aYzz
P3uo5XgOUX0ubmt/k0+fF6Xs7/t1zWKU67Y4RnFcKc0XyX+ddF5rlO4bzdJ7
qxWcdsL/dIPfXnigPo2B0UcDMgL+qWGwP/KoX3sD9scjj7rAe2fc+D9yP/rf
4ftm/cMQ9wHcqbdyf0S6kP87blVL6/WwNF8F+5fpfVC7jkrN3O9ejlRsc94r
VbzI/e4F8n9KCqfednI+5dwefcvyP+86/Hvnk8S/yDmwDM3/6oE2C/Q9qtsr
PdELxGoAYuDAKJ7/1tfk/3j/o7fPh17K/0GdDzb5H3VgB33AZhDewa/jh8o/
/Q/6X+4RdA2j9wW78by/7Ptt9l0j+D6IPsg9YPgvHTTj/jr2z/nf0QITA9wL
+RL/JgZ8eq2cdeuaZq5xq170OHm/BtxH1tAXbICXLepl/vF32/WqotZeOifv
gkXyX4Pv5bVyo8TpjdkHaA2Yxuuc4LrXVPAPcQ1oT5Lmfc39HAcl9/A+OZr/
DfeZTUmq9AbEQF2c/7HZhwer2SzB72YculV8PlGyv2fW7NZz3dZRBfJ/NfJ/
RNouR6XjaoN0XW9GDLQiBjqcGBi+3w+WB8E52R9SDT0ckCHExdDDXjyOGoE+
YfABx0wpss/5s2Yj5P/Be434WQ3ShxrQjfzfCf7bbqDvhv9vuV4hragBTRc5
RmvWPlTv50p4B3l7I83i/4zhH7k/d/wbkjP6e5I3Bv6h3NFv4Pom8r/pgYsm
3xPXzGndE8C9AKYHyNG9lJWb+fh7lCAGSpR/7rd0emGo+bxhvxF5w5bGghUT
TYyJ8/Q1iNeDgN5vogfSeoGaQN/POWCyD//TBP/fuA/2dw3/zP2VHP9ccEnZ
bLH44f29XC/DvncoB71ulva1L7Pv9L3g343vdXOeeNT0ysz7Nvfx/NvchyaR
f6fdyr69ztle718z75eqeWuN55LpeTXnrwfBfVCim3iteN4NO4b/+m3kqB30
j7uUT6U1YJfyqWpxu1YfQ93YQT1BrFRvoQ6s0wflawzQB3Fc1D2F/mYiQ9d/
c+9DPtc/96AP4Lof1oB21II2xkCyZDH3W/wz76fVozZEY/mf3Cv76D2q16EN
+rCSGP9kf8/kfuX/MIwYqJbmCxFpvVRn8d8C/9Om/JsY6IJvAef3kO8fIO8j
DgYfUAMycL8P6tUeYehBp46ZDt5vhVo075P9EZ3/Bf9gX/M/1A0P1HnH8N9y
DTF4Fd7hckjnoyMHJTrvG97hvC/X/CQb9mc/0Dku5vucMcN/7ghiAOxTBeNv
qsw4kPFAnvkEXf/GNRDcQ8x9ZBRjoHq7SPdYkn9b9ful4NWjzLOW2mqEmuJi
oQncN+77HTWfC1qy5n+hRvDfCP6b4X2a4HvIflS9v9/yPiWv8M99gSXgX8f4
47g369wyjdex2LfFOuAZNby/zL/te8g/c394ptTJ+/ZeL4prO6sXfdZaH/QA
K/Q7ZB+cbOH1IHYZA427iHV4uqZ98/oawBLVuGdivd5RUL2fXQfJHXuDSvQE
9EEUfRD5L51mDKDn5z64QWudK/jPB/95XYnG97SjD25PMb6n6ayyT6WT/7rY
/FcNeKfIvn2b8RDZ9mgc2utz+XwaODYBv1p/vkqajmss/pus3N9u8d8p/bd7
VAN3emXwDpkfhAak/14f1Avh6/e78VjHCf4H6XusGqD7Xxz+kf9vg/9btdJ2
s0qar5Xr+ovoBfzNj5A3zrnNurftTCf3c38L2S9AbqfXIfc5w797kv8Jo8LJ
N8D/WzoXzH1hnAPmXnl7DRDF/WSMAfLPGqB1APWgfs+N97FUPaQtm33N/3H8
N+z5VPH82+zH+A9aayEM/3VbQfDvM2sH4H1CcyUSgPcn/2S5xOLfWdvDPS6D
Mc/DvV26l3zMyI4B7xjY5/5yzvuO5Kl4PzBRJMHJYlXZFGJgxq17tnhOQxXX
PTP/Lxn+Odaja33U7xjuG3fKlf3WA7xPqGHNeC0tiGdK4xr3Kb19Low6aMSe
x8j4QcO/R3MxawDFGvAy/4WDaZr7Df9UquRy3zvPfmhD/m9Octi3+c+qj+V/
zflxIv915H+LvbpXY4CKIgYaNP9zvrIa/DP/R5V/5v/uG1b+v9kpfbe6LYHz
W33wL2S/H9de6bmDx+GP+u51Sf9dsH+v3WLf8D9wn+souI+Y6z+5pywK718n
XWC/42ZE+af3aQT/dTb/8ONVewXgP+Z9mPsLp959Lf/0P3ljuI7/nvJfNPUm
9JbOg7lnP9AY4DxY2WqalK9nqsh/eCNPz5hgDGgcbBeroqwJrJfIV/SSDYgB
qjnOD5F72/uSf8aD0Un2VVwHtFOmud/mP/xP8O+K499t5XwP9zSCe984mBmL
8W+LrJN58m/HgM1/2bRL2Q/hyn3qJ/mHloIaA7Wc/1ovQ94vU8/TsB1y+G/Z
r5TWc/Cq53kNq1qg5gNe8RgebwFHLUdGzYeIl8PK2NpY3RvktcaH3BoH9EGc
GyP/rslM8J8pRcPpUtiHnrjX1IC8LvQEXSkW/0mv8J9Wf0bSa2Prf6rW4R10
3LVQVYU401jQPsD0IvRirAF8Tk1HXNdbIy0XotJ2qV7aLzdoDHReMzHQfb1d
em50Ig56wD9y/W3wf6cfObwX6gHLXVAn4gDfc4deqRW8t+rauQF4nr67Jt8z
7/fdqoOvqpUucN9xA97nOv5W15AvriI/XkadhPePHHp0X3rFdi68T4YEV1PE
g77X+B6y/5bDv5376Xny0Q/kjv4r8P97UjwN9mfeNkIMeOZPI/9bayA2s1SV
mzm6r5jzYYwBjYOtIlXdNnpivEcUc4d9u37Hrgum76uFn+W4B+/bdeAE95bq
d8DVNuJ7y/Afgf/hOmKyH+SaYc79gmsXOGfvq2uaB8y4vmfQWss8Br88nq9x
wu/VM0WY/8k/b4/g9hD+L77fjRgi/76xAs375D4E78Oryf8mBqrYA3C92zJ6
cq73XAPvm6hTWxXKffNeWNWyH1buO8A11Q62lX/GwvlqaTuskY7jWmm/gHru
qE5amVOPK3V9LGOgnvNR+z49c4O9QAXPiVnMV/7p/10TiIPRLKfvZwyQffa9
7H+zW5Ms32+UXp8gaXVnJC1y2uGfawt5DhPPoAmt8eycQo21qq0SHZNl7EW2
+H4ip+35tTY1H+H14Dm3g/+Oiw0aA51XmsF9G3SS/wGw33+7F3m801GvLXim
vtstiI9WXTvdf6dRvT757wH7Xdzva4lrrLnWtA38t1xBjrkIr3iM2nTOJZU7
eN82ssTHtZ5LyeD4NDzN+zq2yR43X3te9rvgHzk/Hzk/3/E+b1pzwO9Y+f99
9MCnrXVAqfibZOhaCM4H231AFfvhrUKphTetxd+qdhNeaAOeCIoq4/h7cbxo
x2WYRw7RPhB1tIFecps9oTfmjS014D57xNrtgDXuH0Q+4ryXV/0/839wGv5/
vNDk79E8ZZ3rN0uHMnVPl+5nHGcezxffBGJgqsDEC+OA46VgnzHAHsA1nOnM
m7nVJ+Xr+Qs8gyeAHoPjTNyzUrGAGFiAF+eafo7x6DgPniPyfqOV8+lv2uGL
2w/JfKV0XaiSTnhkW04sHOF9BPtdF6NGYIjqvIQ8yutF5LqLeJ8RB60ca6Hn
5h7pTfTba24pX0IMzBeId5pr//AaxuD3uP+N6550HixZ/X+WrvdJluwm9AAN
KZIeBf91iIPaZPj/2P7HANeVc23tqjmLjDEQxvvKOelKiHEQ0Zzm0ZzFsYpm
vEbGKuO2/QKe8+VG6b6KHvg6+Ef+777egRjoRgz0qgdSL2Szf6vT6ZN7brbr
uCnXTvTdadbztHp0rJNzyvD71yMq5f96jfLfDv5bLf7rjzza+4a385V/L/yK
B769ZPYM/Az8zwT8z9hbxu+TfYv/3Inf1Sv73tgaiBj/XAvnXzqrPQDXQrMP
sHthni1UtZErNYgB8l8Hvxgl+8ghEYgxENFxNNbQIpPvt8E92CfjzRzf4Ri/
xX7zvi2wtGvGSLgX2Kx9CKAm+/Cel8bGPsE/87R31PgV07vS6+D1j2aD/Tx4
F+SD6UJwn+/wb68XsvkvGclUbngWSgnigF7Kw58L/n3g3/8y/4uluo7HHt+M
rKFGbRn26fHtfN8Fb0D2uy9WQxGo9oS64BuobrBO9SB3Ut2XGk0s8HsuIVbw
M9qP4Yk4F7LLOoiYW/fouqEQ103P4PVMwvuNIYZHTB9QwL2/PAMJ3icb3j+7
JUWympKV/8y6ZGU/I4JYiMTO//Et8rwlsl+k/AdX8yW0XqDzDuF1nqVj8b/D
vo5j22HLs9WYGDhGDwD+e663Sve1Vum61gZ1IAbgc270IAa6wD90u0vjgPd7
rneaWgH+OW7E+WMjvH7keeZ6w7zhv+MG8sZ11JwrZL9Cz6LgHszoIfzZPrzP
Vp4E0KN6kK9LF5Ok2Mn/72j+j/c+uWO/66jQGfuJ8W/WwlkxsJx0gn+zJiJT
KhEH1RvohTdQA/A3qoNftPmPbBTrWFoVvhbG9zD/12v+R1+wg74Yuax5P+Bc
49VojQ1GdkwM1GzC968h73PNJBjk+A/zsn8sT729Cvnfy7N7JqgcsJ8v5YiR
MvgkeiXyT5Y1Biz+dd5gJEu5L+ZaiaFsPWuK7PP8EZ5B5Z9CXpwBa3Pmd9N/
1ayi3q6z16XfhwfdqXC8DnO8YZzM10jPpYj0XYlC9ScFVqheeOY+R3jsSpP0
Qj2Xkfsuo2Ygfjroh1BT2A9FkQtq8ffgOopyMBuc4xpYeLhxeMDR2NpvPfOn
M/Uk//XwQZr74f8jSZJaHRv/4X6ioPLP/UXgn2suVvPwXhdo/tc+AO9hrfYA
AV2X0niuUvmnZ2tD/if/XVeblX+qx+oBem50Ke+qW136GGtD17V2EyeMGfgl
zp913WiwVKd76ck9z5agOuD7mfvJP/dcNl7gmL9HvU/VbqGeU+UDoy6wXzKf
gL73FLh/V+e38kbfsPQNi39TA6iCl/i3Y8A1wxj4QNfC6bmJOh+QqTFAL1SB
a+VarlSvwQetFkhklTEAHwTZ/Fezfm4W6O0Iv6beyMQAOSf/8VL2tz1aL8zY
N+r9BjzHKnN/ia6ZL5uFL5lGPqe3GafHt2IA8eCbhNeZzEXeR/6aNewHUANU
jAH9PxDHfTQGcsB8trKvPfQw55KRU8eK8XXUmAn0GvT/8/D+ix7dx1uzasY4
67fQn27T66O/PVeleZ/s916OQrWqvit10n+1XgauNZ4UOKH6r6Pfc4T76B/7
r8EH4P/0XkEcIQ5YC9rZGx+YGsAYqFmnF0R/Ps8agOfMPaA8GxH9T0FfuuR3
p0teR5rktKIOgP9s+P6sKHrfWnj/mrOSVg1VneSfe4oYAzxrI7AE/tFnk3+O
OVVtkn+7D+bcRFDn5JsQl63wca3gvx3erZ31Cx6oy/ZByv9Jxdhvl86rbaou
fG8nXnfnNc4jxGKAZ0qYM4aqjO+/ipi7XOH4/rrzbs396n3gzb3LaXH8f4D+
9l3EAPl/09IbFv+Ig/FvOPxT8fzbMUD+uR9Gz01cTNH5YMaAjoniGl6FD0Ke
qMbfqmaFMVAEPiAdPwD7qKHM/7xN/us23co3+Y/P9zb7fDxqr4vZtuY/112a
7yrw/pTB85bNFoBnMKw856nX8SIGPGDANw1N5enXy2YLT/AfpB9C/g9MFGhv
wN7YozUgR4rR/xYPchyJ/TTPXiP/5kwens9TPgfeFnwO/8z9jTtkH+//AXLT
If1ORNnvv9qgzPdfjaoG8J6S+cHrTaoh5Lkh5Dxq8AauqP28Dt5gDLRaMdAg
fdcYA/RF8BaoKxw3MmNiQeQXv66hZj4IzBpP5xrKlaKBHPCfJQXdmeA/Hfyn
WvwnS1ZdIjwP+K8+I6mVpyUlHBv/8S9wTynifYFnCyA3zHMfQr722VyDx3UY
zEPVm6h/W6zN6P/5XPicDjluxRgwHqgT9Yt1wPQBMXVd74hjn9dOsN+B72+T
9istUCOEPuJqvcV/VPN+21XDPWX7Hub+eh3zd0n1Psc8c3Sfu/r+BXif2dNS
AO+TN/aO5I6+Dd+D/ncY3I+8ocrjHJhVB17Hf2w/wAfWfrBk6/xQniWdbvZG
IhYqVrLxPuTCEyMGUDNViIUq1IOq9XxVxUYe8jd8Ev6GNvtk3eY/Pv/H+Get
LTXzkGvIP1wHw7qM96VsLk+Cs2B8ir4+T8XxTS9yvxe50AeRCebGsjnGQIHF
f6HyH5zgGZ956p/c1twxuSkayEUMkKMicQ8XIzZKTvBfuWjW8NP3M/cb9uFL
8d53Hdcp+zHOG4zwPg7hseFrTTKC/D4C9odvtsgIPC81DP9L/u0YGAAn5H8A
P6Mf/68PsdRLJjjPCn/VBJ/VsFt+gn/mf/V0o4V4LQV4HXlS1Is46MqSvLYM
yW6G/2lA/q9LgO8/Df4/AP+nJLkiNv7j4x5keqk5+MM5jq9yPw7+XovmWo6+
mPvvuA+vmj0I+K/j2hTWJD4v9gHo48k+64DthVgHuq+1mL6APTH9zlVeO1Rd
VzvxveD/Uou0oXa0sYZchpdCDHRci1q5P6yeh3mfvsfkfu5HoO8v0Tmv8i30
fGtpxvfPndX9vIUT7yn/+SNvg33UgCHEANjPHzF1IGfkG6r88Vj/Gy/GgcP/
PMUYSHXOUw8tp4P/LNThHIf/qiXWggLlPYy6ULGai78bHkN/QE8U3TbzAk17
5N+sjWg+CBhxHHTP+B9+H8fbOAZt+Mffn+MSzEd4b8i/H7k+MG1yvR/s+6a5
dxC5fQbxQe7Bf2jOKDjL8XxoshBCPIzn6nknHPMvsfLmy/yXjtj5H73HHPfx
BlHjzDh/wzbntmrAPvwJer/uC/Wa9538fgPMo5cbutkoY7daZfxWm9HtNr1v
868xoEIMIBYGwT9rwNBN1oNmrQPkv/tSHTxQjc4b2PxXr3l1X3HZPGIAvY53
zCVuPPeSgXzwnwv+syW/PVPHfrIbON6D/F9zBvyD/TBiII5/3Us3U6h78H1z
Zk9m2VIRajzyjnUmcWgNNXgDdZCxt8mzK8vi+K9G/q9z2LfrgF0LurUvML6o
8zL6Y+R8qpPsX2zF/2uWtosNEOcT6iwh5i9X6lmLhv1yPW+L7HPMR3P/XpGE
d5ATNzLh/dn3Jopr/mxc7/uuFI6+I4Uj72gMFAwj1w+/ofUgd8R4IuP/3zwR
A/Zt7onkemgPzwTSfQGpqAGp5nyUhRQJoRZULCEGFnOQH3NP8F+BulC+kq3j
RTXskTdLdD5A+ed8cPzcMOfHuGaC67CseQOOp9r8V6K3qFgusPiHt0GOCszA
588YnxNgjmfex9eCc5TJ/zb//J4Q3uOyqRj/PvDvGjLcq2fog3/uRyz050vJ
IDzQSMlL/IP9tZD2vMz9beci0nlk2O+91OD4G83vt5pl9HaLjN5qkYk77TJ1
t9PR5O0OPG40drtTxdsmFjrAfnsc/42qnsusAXXwQOyDK6z5QL9ZD7XoAv8u
8O+WUvKP51/YY/jPa88wvW+UfS9Uk4Dcfwa5/5Sklsf8j28WsT6L1ztrzqMI
0FcxBlZceia36YvRB62iDuL3Vm3i93M86oDrIAz/LahRbZeiDvfK/mVckdep
LuuxDj52pVnVfhHcXyD7jdpDMIb4c1p0bq1S91c2Xy632A9a7Ps09+s5h9zn
jtzPM0688D7uBYv/6VPKfh68T8GIkV0DqJzhN/Vr7I3zrbVw9jho/HioGQs9
gxhIUP49c8nwhskaD/75JOQJxMACeoH5DPjjLOWftYCeqGIlB7kD2vh6/m3u
bfY5V8a5s7otM2dA/sm+nfvV/1j809co18o4egNlvkDrA1W+ACE3UoZ/fB21
Isjx0HEzdqQ9Y3+W5PdmQoyBHCnsy3uF/4p57uNFzV83PW8s9yM/473tv2Ly
PtkfRY4fv2s0cQ/s3+uU6XtdJzR1t1smofE7XSoTB4yJThX5H8DPY1/MfrgX
3pjzBJwzoweKbpebtbDLpXjd5vw4H/xa6RA8EJ5/UTf8Twf4b800uV/ZR/6v
TpS0SsRA+VlJLYv1v2ULXvztPPj7lure6iDPKEJPwHMGAovoDRgPiyXKf/VW
mUQYgxb7DVwH4fBfZ/wL54M5H3Yppq4rjfqYqREmDtovNin79D3sH1rQSzej
12k+Rk/BcxG4V1z9vj3Wadb5MPfX7CMv7nK+N0sC9P5LSeA/weE/H97H4X8Y
/IP73EHk/gF4H16H39LvYX8cz3/M/5D/d3Q9KNdEl84mQEnimU3U9XH0RAHE
Qtl8mvJfMZ+JGoA6sJyrnoi9Afnn/smajaIT/Ntrg/4p/iP0/uilw8j7FctF
qDNgeMHkd2UdTJeRfWW8xLCOnFWBHs5WOWoApd87U6DjQoFJM27kGTNr4Oj/
C/uzLaEe9Nv8Fyv/ZTMeCc+j3q+GdI63adfk/q5j5n34dOSxQdR2k/dbZQz5
ntxP3u+QqQdg/75hfuZ+t8xCM6pePNarMTDhxAFjoAv8d8nIbVMDXuaf88bx
/IfJP167nqM4At82WODwn9eWKTnN6ZJVnwLfnwz2kyS9KknSKhIlJZQgyYFY
/i9f8ONv55OKRS9qukfKFvFzF/HalxAP8FgBjQM3+Oe5fDyXIwz2q6XxKKLi
Ojibf40BronjuiDWA9YuCv6w4wrXSkSt+GjUWGDe5/hpK3xk83FEY6npqNKc
icAz87XX9Tnsc7yH0jOet7PhfbLEv5qm7JfMndHel97H5j9/BHwPQf3w+/1v
qHIHEAtDb5uvg//Xj//YewJOIQbOKP/uGYr7A5D/F5j/U538T/6p8CK4X8o2
vcFatoR5dspmkbMmwub/Zb3Mfw163kpyjx4svFSsquA49Xyh5e+pYn3/ebZO
GO9RGPyH8bgtxkBovsAaC7LHjfLEM5kt7vEca/43F9xz3DDT8kE52geUjnIO
wKX8V/Fs/3WO9aMm75vc33OReb8F7LdqH8u8b9jvNNw/7FIp92B87l6PzD/s
lTlVv8w+6EMM9OD7e1ArGAeMgW78DOguY6BD+2LGAOfGOi/Uwv+Aub1K/H1C
uheOe+l5lpZ/Cv59pED5L+7D64H3yW2F92lMlaxoqvKfBvbTw8lgP1GSggmS
5Iut/y9Dfx+a9yEGvBb7pVoDyrjXFL+D1zJcKzaCUo36V7tfeYJ/Zy00x2qV
76jDv6MrUXytLs7fRzXnNx/VQbXSdIifcwh/d1ip66vJP89Zqbfyft15j/a7
9Pxc61AOruh79Gwr5H6yXzj9gRRMvW+8P/pfze/gPw/5PqfvGzH2B+iDOC5k
xkbt/P/yHADXghZPfeDkf5t/+h/fHPN/isn/C4b/8jlcFzJP8M/1QhHOEX8N
//Y6ObJvfH+JKsJxT/ZfYN7wXwLG0YfR1y+UqO8tm4c4N8ux+UXuRcHfBrFB
hediXkj5ny3QsRL2yQ7/o9mWB8qUvJ4MS5naD3M8hfyHuO9lkWOe5U7u777Q
IH2XOYbfBvbb1buM3zWavG9x/6hbNfcQ3D/olYWHfbLwqF/mH/VBA04MaC2A
Ju8xBhAPd3tP8M9xIZP/wQwYadqvOuF/gnb+HyuA/0H/zh6mm97H5j8N3icV
vgcxUJ4sycFESfQnSIIn5n+CeI0qxEAZakBwoRT+36W5nyL/5WvM/TyTBr8f
cUj+Gw7t/G9qgOG/XscxGQesA2143q2IjfaLEe1puV6C36ePH9cZ7s/XoI+u
glhX2FOHjHhePs9a5NlDB17wz7ku5MQtvK/wFZzv9dnzvehTC8B//uR7hn+r
/yX/9D1Zfb8n2eR/EOxTqAm5w/a8wDecGmD0lsN/yfT71r74BI0D3R+G3+WP
4z80l67sl7MGWPyHwX/laraZI+YaiK2SV/i3ude8T/a5zsReiw6FV0t0rYut
0GKRjvmFFovN+TnWWYJcF1rJ/K95H3WR/n8+T3tl+qUAxbENnq8G/l2TeVI8
bvbBcF9MUT/9f4bkg/+CXp4bkWvxz7lfD3p6M+bZhPfezv0DV5n3jWenfyH3
Uw/IfK/D/uxjsP8E7Kv6ZfHpAO73y8LjwbgY6JcZiDEwRU90r09G0CcPqQdC
/if/XFsJ/9POXHlQrfzXrAXw+j16DgD5535NzzBqAPxbMfxPPvxPdiNiIJoh
mTXp4D9FUkNJkhRIlARfgpx2n43rf/FzUAMC8EBB8B+AfKgBfihAP7QMD7jO
s+nB/y4YPSCvtWAffp0968V6S1FLdbovgGq5yH62WlqP8LdDHHRwjR9eB9dM
UM3nY/zXg/86cF97ELT2mgUlaq3/o2p2keO2yD/ne/Gegi/vUjo8fwr4T5Si
6dOx3G/1v8zx7Hezhr6hyh56Q+OB/bD2xFYfbPbAG/a5FprrQDkH7Jp5X1U6
d1p9v5d7Y2Yp8I9+ODiXihhIhzLAYqaK/FcuZ+M9ykUuL5CazUITAzvFUr9b
KvZ+U7PvzuyDjXCOUdl36XxjiGvdud9jBb5lOd/MSVKL8PKL7AUKjd9nLCxQ
ReY8KfS9ZYt5EHpl9ONBXH3z3D9egN4lX8+MLkEPUMzxH+6LAfvF8D6FvelS
1JeB21wLijgZ47qJEvXEtVzngLzbep5jPvT9nMMy45cT8CtTzOHI83Nk+8NB
cG9iYP5pn8w965PZZ/jac9x+3i9zH+I+vm/2MYQYmH00JDMPh2TuPv7f3X7D
/70OGUT/PHC7VfputKB3bNAc2oLa07QH/tGHcO1dJXgtmynVzxLgnh0v838P
8n9ntuS35EhuQ7Zk12bC+2RKcnmaJJelgP1EOVN6Vs6UxPj3TruRG0pR0z3i
Rw9M+VgDllALln3q+yvhfch/dBfeZx/PYT8CZpn3yXmDtF02eoV/5PyWi/BH
8PTt1tq/Fvy/lsNavTbS0yn/+LnnKlBbDP+1BwH8roDuhzP7o0vN+u91vL9r
XJ+B93U5Q1zgr3gmSQrh0TnnS/Zfxz+5Z9+rvW8c//x6/tjb1h5g4/uV/dl3
jGbec/jnWKgXdcAPD2T4T0JeTUEMpCn/QdQBijFQif63Zt3if8PEQO12ie4N
OCmPlftd1roJs/euAnFQrmf/F5m5GPa/y0W67svua8Pg3pbGAMcocC1nfCzx
HB30yogZ/1wealWBzo+VTuabc8ZH83R/DPcLFPWR/TQ9N7SoH49xHxj3APAz
u/D+122GUK/C4L8G3idqxnuut+m45QTHc8C+zf88cvzckz7N/XPgfx78zzzv
lVmIMTD/DDHA73mKGvBkSDXHemDFAGNplPxzPfCtFunlvlr4n04yRV7gwTgG
G1ktQ80LmM+QmXTpnmXPIHJ/D/r5dvifphzJqc9B7gf/4QxJKUuTxECSnPGc
lVOuM3KqMG78EzH0Ov7JftmK3/S9m2VgsEL5j4L/+oNa9T82/3YM/HP8cwyr
Gcwz7zedA/cH8D24b/Nft19m+Od6V2v/pzkbpkTXZZet5qkCKznI/Rninjf8
F4FJm39ln3O/I2+9wn+uJZ0Pey3/78bYj+OfZ2PZ/PuUf9aAGP/k3q4BzP9V
qzngP+8k/+xtt90nFHW8D/cbgX/0ylwvFOYZIFzru1yiczGhJcvzkHP0vZXw
vZXwPqp51EWuz1ziOs0SjQXGQDljAP2zjhnBG/nQ/3rgfTz2vpnhTHENZOhn
BOjnw+i5KaYnZk8Z5no3rnXjnq69Cn3velHnuXZHe154H/r2mUeG/9nHfQ7/
c/A8809RD8D/3Auj+ReIj2fwQKgR8x8OycLT4RP8z94fgA/qk4kHXTLM/H/T
8M/+V8d/zr3KP+cmQvz8JPa/A6hr3blS0J4D/rPBfzb4z5K0inRJDqTIWW+C
nHKfkQ+KTsn7ee/H1j/D+/ipea+yH1hAHMBbkf8Q6gy9Tzz/9fvg9lyd+h/y
f9L7RB32X+a/9disGW06b/EPH1WPulqPGIgehM15Z3tBieyaz8NS/jfdeiYS
ZfMfBPsB+AvvQrq4kf+LZhLR+54B+8bzq++P41/73ME3HfaVfysGvo7/+L0w
8fx7eD7Ky/zPGv7LF7NUOie8alTNNXLwaroGTj1QiYp7xniN7rqc+xH4uhrE
C9fN6dkfK25d98bzkinDtlGl/Vm6lqrwfrEP4DiQw/+CkZkPsNbNcfwTKh0z
/BcPpZmzEoegkQw9R92Nr/lnOO9QqnOtXHPWiPeG63C4bpPjnaO30Pfe7Yjz
/L0O//MfkvsB1SI8z+ILalAWng8YPRsyYhw8NfzPoBeYAvuT7AP4eXH36P/N
+GcP+OoEa5x3aLL4rwX/3IcZniX/8C8jhahleVLUBe/fCvYbsiQ7miUZ1ZmS
Cu+T6E+Ss6Xgv+SMvF94Sk7lnYr1v+h7AxD5J/tBy/cw95P/CvTatv+p2wmD
VXqWKPivU/6bOX556Wv4h/9vvhTjv1n5r5FG/IwG9vLoJ+qg2j3E9G5QPwOu
ett8JqKeA6N50Ox9Dq3ma973gTEPcq0b7BVPwftMovedQO4fi7Fve5+8YUtD
L/E/8IaJiVEzDkr/b/h/+5W9YOyDlf9Zi3/Emm/G6gFmkhEDqa/k/8oVI40B
7YGLHeYN70Uq9gRGvE/+8/T7K3XNA7hfZu9brL0v/Q1zPFW57JJq8F69XCo1
vPKMtRWPVC279Wv2eKnOgy1wDLVI5w0CU1wfCu+o+6bA+0i6FHMPANh3jWXr
WkqureOaicpl7tvx6b71tqOwdCOXDcKLjFxvhe8H+xzXf4AeF15+DuJ1Eb5m
GdyvPB+SZWjpI1w/NlfGALX0Yli1gBqwqHVgKMY/euApfm4o+B+53SZD19AD
wFt0c6/YAXIp+G/YrNB9l9ULfv3s4OBEjP9CeP/cliz0vWA/kiHplfQ+qXLW
kyin4flPFYH/AuT/nNOv5V/zP/vqZe/X87930v+0XPwn/L/FP8f0ubeTa0bV
8zDvcywXNaV2u1zXU9TYn/2zZX0e6AbyGTjQMyFX4Pl5DtgS834mcjH6XrBX
NIncP2H453pnM6cV49/pc625XycGLP65PsjmP77/dWLA4t8184GZC+b4z0yM
f7/Ff2DW9ADx+V9z/1qu5nTm/pP8F6rIvRHv5+lnDVRzzRz3H61z/Ql9vzkf
mbHAc9EqEBeVK5wfc+kZmnqu4CrPV/Pq+YKVeJzny1au4Gdw/eKSkY4JzeRK
aBr5fQJ/w1Ej17D5DBiupeYaae4bqIC/qkJMRbf80na+Qnou1cD318rwtUYZ
u9kqk+Cf81qz4H+B3D8ZUC2D51Vwvwa+qZWPRsD/8En+P2I84LHnI9CwLD6L
1QD6KM6fjfEzRG+ZuYVB9Bt9XF92DjVgF7nX4p97Mfn5wcEJl85/ufrywT98
f3OWZNaB/aoMzf1JvhQ540pQz/9BwWl4nw/kVO7pE/6nDD+rbCmg4z86BqT8
w1+tBZX96i3uxatQv9KAOGT/W888bnkgjgNRTce1Oh7acrFWxX3CPCvLzGlB
h6wd1er5WQMYA8r/NuKLa+uQbyrXzdlfXPtbvlronAvMcyD9C+YMsNKZVHFN
w/eT/bHTkjfyLnh/28nn+ZCu/bFk5oERC2TeklkTF+Of559oDbBz/8zbjv8n
/zoXDHnAv5fzYPBdvlnwPw//swD2EZvly9m69iG8ivy/hjhYN/6neiM2DmRi
gbcLVNHdIlXttrlfg3ioRKyEdP9MEfye6Xm4L698nfvzCvVcQO5LMudl0h+6
9Mw0rlEPI0bIfvW6iQHGRPk8agrqQMUc+J/JRs+YjZ7R7JUsHczUz/7i5zsG
JxAn03guKz5p3Ibv3wpIB/qy/ss1MgD+R280ycTtVrDfAfa7ZO5hN7jvk5Vn
g8q90YjRsxFZ0RgYluUXQye09MLEA3sB0w8PyAz8E33U9H2uFUJvfbtdaw35
7wFj3YdRaQd3UfTjNeA/TGZnkKu59mGgQMf989H7Zjei542kSWoY7MP3J3jI
P/J/0Vk5XXhaTuWfkg9yTp3ofwPz5N6v7JctGd9PkX96f2fsU/mvcfI/+Tc+
qNaaC4jxzzmxJnieBtROnpnScN6sl6s/YA/NPqLSeB+O5+LvXL3pg7x4P13m
XGzuyUTuCyzl6rkvgcVs8c1ngv905b8Eub9oHPyPngLLHOsH58z/o+8o//a6
H1379v8D/6GlLNXL/FdtGE9zsg4YRXfN2RFG8Ejsgbf4Ga7wPhtkPV9VvcPx
IMM/ua9GzxzmeNgq92gUK/dVeq5sqakDqAm1615wws8gRR5f8UqEc/jwNxXo
gauR46smkOdHC3FFTRmFV8JtnnVeM+eRBvDVvlcl3XhPu1Cz+/Bekv3x2y1g
vx3cd8n8I+b+PllCn/vP8f/aGEAdYD889yHHhPrBP8dRuT4ijn/k/wHw3w3+
u8B/m/IPXlYN/0Hw7xsvQR+fb9a8tSH31yPvV6VKSnkK+E9W/s+C/7NFCXIG
NeBUPmIgO279P8f/6YEWfMb/L8b8f8V6jP065Or6PZP/G87XgWkzB8A4aDis
iZsTrtH5MKrxqEr5r+de/nNmzXTdPpjfrVBFyD7ii+d7V657oFLUeJ5zUYT3
tlj3ovk178eznybu6RRxIfcXjZ6WwmF4nyEwP/S2tc4z3veY+4XDYHzo/w3+
wb56oASwf5J/qmwxU2uAzX+1sp9rXfM0x9PraN8LMRZqtCawP3Dpuk+OgYaR
6/UMMp5/tgpWLS+k/dAyczt8/4bHEc+XrVvzSS0UXTOfQd24Ui4NiyFV40KZ
tCyHZeK4U1ZvjcjMUZcMbtbLwHpUZo+6ZWirUZrnyqV5oUKaF8uldS0sHTtV
0oX3uh/93cjVZhmH75m62yqzDztk4YnJ+0vI2zb7tudZezGqWn3O64isfYw4
gFYtaTzAE618MoIaYHpizgvMPOlB79uFvqID/qpd10zT//RftXvgqO45qNfx
/yD6Gz/8p1vXahT35UleRxa8T6ak16VJcjhZkspS0PdCpYiBEvS/hagB+agB
uWflTHbCCf6DjCUr/9v869jPRkjHfV7mv1H5jziiFzJzwjXKP9dENBzie+H5
648qJAr+VXH8R3bKT/BfhfeQ52RXrlrnX1v8+5D34/n3TKVK6WSylIyfAdtk
/33JHwDHgzGfb49v2rn//yv+/XMp+NulK/sBzoO9xL/xP1SOenv2t8b3wPtb
8wGRLXPeWK2ei2zOiYiu8zy1UviPIHjmGWvI4ejDGrjvdi0ADxySZvjRhq1y
5b1+OSjNqxXgtkqal6qkfSkiPetN0rnYIBN7yM+XpmX98oxcerwjdz65INc+
3JP9GzOyeNAjW1fGZO0ifPgxOLzQLwtX4MevDsjAuQYZPGyU8avIxTc6ZeJm
u8wg988/7JQlsLr8tFdWkLvXLPbXKfj99RdjqjXwv/7RqGx8bLT+CR77ZNTE
Adg3/MMDPe/X+YHpD7vBP8eU8Pvucn20mWMbuNYs3VxXCf6b92t0Pq4SbJYh
V3vg2UqGC6SwN1dy2jIksyFdUmrAfChJEoO4wvsnuKHiZDlbgPyfB/Zzcc1O
PDH/xfFP8q/ex8r7VCXHWuP4b9ind4/o+OdJ/qsd/rkmlGtDjZD7eV7cYUWM
/72KOP5DFv8+h/8wvQ8/A2GF+zLzXsu/eyJJiuH7yX7e4Hvg31rnNvxqz8u1
n6/jP3/w/zn/vlnyn+TwT+5fx7+JAdSBzWy8zhywnqefJVarPa/LzAXvcQ6Y
/SvPB/Lr2VGdyL1R1OQGvCeNYLuJn6/Izx1Fv9e0VC5Ny9AK/pYLYB/3e7bq
pW+tQcZ24B320Y8ejcvG5QXZurQkF24fyM1Hl+Xo2q4cXd2Rg6N12dybk8u3
1+TB8wN5/Mmh7F+dQiwMyPa1SbnwbEMOnizLwvVBmb3eJ1NXu2T8WqdM34bf
f9ApC8jRhv0+h3+yvwH2VWCfWn+OK/jfBPdb0Oan47L+qRUDFv/0QJr/XyD/
P0P+f2LWz02gBnA9nc0/9wC0H9ZJ4141/o4h5Ee/+OZKkQMLpXAwT/Lh/bOa
0fPWI/dXpxr+4f2TvKmSBP4Ti2z+oZyzJ/j3z3rV/7D/DaFuhtD3kv0qsF/F
WrMdi4FGjsGiD6f/Z85/Jf/r1axliJ6jyL7J/XX8TJMDriEy7Fdv83Mdgvq5
DjzjoAL5jvuaK3StS4HOefoXcsXLc6957i/Y52eAGP75OSDgf/BdyeunwPHA
ydxv8v47UoS+4GX+C/C9BRb/+TwDmuOfPP9z6l301Zz3elvlBv9uaw2Ea+aU
jgFxDYRXvc9J/oMW/xUW/+HVLBU/Q5L5P0L/gx64Ht6+YcfK81tePTuEzLOv
a0F+6T5XL93rdTJ73C/LV0eRj8HW3RmZuzSC22DqzqyM7HXp/cWrE/A0A7J7
f0XWkOO3wfylB/ty7sam7F5Yl2u3j+Xp8wdy+85V2dvdkAtH+7KzsSLz0yNy
8dKK/PRfP5df/fq78uKLK7J/ZVY2LozL0cNVef7Tm/L0p9dk8/6ULN0Zko2n
kzJ/r89iv0fWnvWB+wFwPyibH8XY30Se3/wYrH9kYsDhH+xvfT4hG5+Nv8T/
oCy8gP//qM+pAVw/N4kegOvphm+16xxAN9dLwm9H4T+qUAND8Cfe2RIpHIHv
6c+RvE74/sZ0SY9a/HOtWxnY94J9d7LyfyY/Cbk/Ufk/mxPjP7jANc8e9G78
fDWfqmI1oL+nhnMNYL+O8770Pnh/GvdrdA0EY6FR1+9EdDwnemDmshrOWWOc
zv1Knd+K7ptx/potcM/xVPbVW4izdcTbKvpe67OhTAyU6BkXgTnuawX/U+bc
a37+h2syDbk/CTyfBvPwPv3I/33vSW7/W5Jjj2sOm/GfYuT24hHDfuHga4RY
KRp+U0rwfe7x96R04gPxTJwS7/RplYfn4XIfzPTbiL+39TPC3HOJUsr9kPD9
ntkU8c+mIV6zdf1b5TJy/lIG6limVK+l434qvHieRBeKkctLpRN/z77diIwf
d8j2ozm584OLcvTRjuw9WZOr3wKrP7svd7+8If3zPXL/kwfy+U++KR/94FP5
3r/9sfzmH/9C/vJ//Wv54Z/8WJ798CP56KvP5dkPPperH96Dp3kiDz99LA8+
fijrBxuytrsmGzvrcvXaRfnpVz+Qr370Xfnik2fy/PFdeYhYuH5pTy5fXJO7
d/fk8dNjef7xFbl5b0vW9+Blzg3J1acb8uT7l+T46bJc/HhNDp4tyuqDYVl6
BO6fgnn4+i36/A8HZQO97jaZfzFi1YFhMD9qCTHxKYXbn41p/l/92GgZscJ5
APYAcxDz/yTy/yRibAI1gPNrXAPH81E6LtRKM8ddtsP4u3Ltm1d80yV478B/
b45kt2dJRlO6pNaB+SrL/6D3TfJBHoj+vwA9MLxPAnQ2J/b5dwGeqcSzZXi+
JM8ZW0Uvit9RDf4jW2bMv95iP6YqqxZEVHyM38P5LH7tZXGsh2M+9D3qd7ie
jvxD+rk+K17kTY/uaeM5T5zLrNKzvrlmPVu8UOlkJvJ/uhTz85CHE8H+Kckl
91TPO5LT+5ZZ2zz4lvbCJv+/qbL5L1LB6wy+Ywns4+tu1AjP2PviHT8lvnFw
P3Eav/eMBGZPg288PvsO8v5b4P59KV0wa6ADC2nIGxkSQm0KTWdKeCZbqufR
587nStVslkQWc+BNCqRjNSxjux1y5cUumL0vL354Xz750VP50S+/Jz/7ze/L
d372pfzhb34uP//3v5Qf/PFP5Js/+VKuP7gvn33nB/Lsiy/lyaffkc++/1P5
xZ//Vn7xF/8B3/8H8tmPEQNffk8++f5P5PGn35NHH39btg8vyNjcgjR3dsrQ
6KhMTE7I7vam7G2tyb1bV+Vbnz6Vzz56IB8/uyM/+PIj+e63P5Srl7fl3P68
3L69Jx8+vSAXLi/CGw3JhZsL8vCLQ/nlX30pT390RaYPu2XjHjzVY+gJfMzT
Udl5MSFbz0YRB+PKP/M/+4AN+PvNT5DvP6XnGZatz0ZUNv9rn4yrVqBl1Icl
/L8F+KDZ5/BaT8E++B+P45/rn3XdmM0/1+TA+/gnivXMloK+XMnuyAb/mZJa
m4r8D99TgZwfTJJkP+qAxX8S+E+E/0lE7o/3PzH+6UF8yn7VelB9Vu22WfNw
kn0jm39e4/mn6rVXjim6x/4hbHyPxT9rgOb+FXO2ny1+TnK5rm0peZX/ScN/
IT8D0OI/p/ddye1+R7J73pScfsYAfc5bynzB0BtxetN6jHpblY9YKByC7xlB
jh9j/ofgg5jz/bMfwN8gHvi5kDwTFz2AF7HgX3hfY8I/+YGUTSZK5XSW1EwV
SM0k/Px0UPo2mmQEPnzxMt7vm3Py+HsP5MUPXsh3fw6f8d0Xcu7aIZh9Lr/9
u7+Vv/nH/yw//3d/Jn/zP/9X+fVf/Z18/w9/IZ9+/8fy7a9+X+48eSGLm+dl
/9Jt+fCL78v1R8/l5ocvUBc+lXPXr8vjz76QT7/7Q+hHsnd0Rdp7BqQm2igt
HR0yMjosvT2dMjrUK31drTI3BQ5XZ+XC+U15cOeyfP7xI/nZT74rD+9flds3
j+TqpR25gf7g1p19uXl3V67f25Yr9zfkD/70C/nJrz+TufP92hvvPp2R3Q9n
ZP0RuH8+ITsfT8nWR+Pqc9bBPdnfAtfbn0xBiA/kfbK//Rmun4+r/9n4bFLW
Pp2QFcQMxRhY/HgYNaDf+J/HJ/O/zT/X/3D/Jc9hKeOeXfDvHinQPZu57dmS
Cf7T6tLQ/yIGwimSEkpR/hPdieh/EyS5EPFQgLpADxQ//sMzVS3+mfvJfnzu
fx3/jQcx7nk17Fus71a+wr+O8++Uq9+h5yf3zPuVqz74HsM/c38VP+Nz0Zxz
Vjn/Kv/87CeqiJ8BOAj/0/++xkBez7umBvSB//63lf9CMj78hip/iGs+KdMP
G7FneBd9wPvoEd5DLwXvPwUfNPUGvP3b4keuD/AMLPS9vulECc6m4vkkIte/
h1x/Wqomk6R2KkvaF3wyuF4vC4cjsntjDX7lufz+n/xM/uIf/qP82d/9Vv7N
b34l3/rqh3L1/j3Zv3hJbj14Kn/4R7+RX/7JX8pf/af/Kl98+a/l57/6K/ni
ez+Xp5/9SL7941/ID372S/nkyx/Lo0++lIcffynPvvkjefHtH8k3f/wz+eR7
P5LPf/Aj+c5XX8mn3/mOXLt7V0bGp6S3b1iGhkeluxu96tSorCxOyfRYrwz2
NMr22gz4n5bb147k6YObcv/WFbl/+4Ycn9+Xi+gJLh/vy/Hhppw/v4q+YFNu
3T2QwysrcufZsfzRb7+Sb//sQ1k6hr+5NS7nni/K1hNw/2wKPn9cVl8Mwc8M
yzr8Dn3+jrI/g5owo/c3P0dMfD6m/n/ri0loWmOA3Gv+h29aRP7nWunpJ+S/
W/kfRf/L/S9c/9bKdZNki2M/4D8061b+S4byJb+HYz/wP40Z8D+G/5RwsqSC
/xTwn+CC3yk6KynoAVIKcT/n5PiPzX+894mPAZt/9fsqsl+Lx+Lzvs19laW4
3G/NcUW2Qo73ofh5tpX6+Wh+5d5WBesQ1zNyX/dMjH/3ZIbmfn7+X/5Qgsn/
vbH8n9sL9b2DmHgHTJvet2CEffCbFvvxMvxz/Khw+BT6hPfENYEaMPUWeo03
wfxb8D7v4fefkuB0gvjHk8Q3miJliLvykbNSM56GHrRS9u6NybVn63L34yNw
ekO+/9Nvyy//3R/LL/74V/Lrv/iP8qd/9lt59OwjuXDtphxfuSnf+t5X8pd/
/Z/lL/7yf4Lv/rZ88ulXcu/BN+XJs+/J93+MOPn+L+Tf/vo/yZ//9X+R7/70
j+TJZz+U59/+Cfj/Sm4+/lyOrj+S81fuyCff/p58iDrw4cfP5ejSoczMzkh7
c4d0tLZJf08HuO+T7ZVJ2VmbkM3lEXl050j+4Iefy09+8E2wf1WuHJ+T83u7
cunoSHY3N2R7Y02uX74gN69dkMuX9+XoeFPOHa3IzvkFufX4CPXnlsxu92sd
2HkwJ7tPZuB/pnRcc/WTIVn6bFBW6XG+mECun0JdmJG9j2Zl5zP8/i8QF1/A
D31h+N/8fEr5X6UHsvK/mQvrN3MAj7n+h71vq/a+XPvZwnUzHIPhuAx7VK5T
niyW4qFcHfvJacvW/jctAu7h/5MrkiSlDJ7Hh3wP/uPzfxI8UEJeXP87y311
bt1HV8XPK2bvy/N9OY+yEVLPxXWnHHtVkX+Of3INxF6NKrobi4GYws76nlpr
nN/2PMq/le/NXk5vTPRB3NPKszvAv3865wT//OzLvMGzyPXvg33Dv8n/7+Kx
d3Q8KB/evmDInv89yb85B+tNXRdXOPSeFA+DfXh/eh/v5Lvim3wPzH+APH9G
yicTpHwiSSrxu6Nz+dK+HJDhnUa5+OGa/Orvv5J/+N//vfyHf/gj+c1f/xv5
7d/+qfy3/+2/gO8/l+9+/zvy5fe/lG99+S25/+ShHByfl0+++EL+9u//Uf7o
j3+NvvSOXLp0Sx4++lgOj2/I3Ycv5G/+/n+R/+P//L/kr//hv8lH3/p92b34
QFb3r8v8xkUZn9+XkZltmV48kAtXH8qdB89kd/+8DI0MSl9/p2ysLsnWyqoM
9/bISG+HzIx0yvHenBztTsuNi6vy8598Lr/4gy/lx9/9XH71iz+UF48fyeHe
nhzu76E/2JSdDfTKF49RD/bk6Ny2bG8hx2/Py9IKcvQ6ete9aVnZG5Olw2FZ
vYL79yaUf3qetc+GZflz9M1fkH8z1rOLGnCAGrDHnP/NMYf/TR0DmrQ80BT4
Nz3A4vNhnQeeetytc2Bc/8kzUOh9eE46P0uAZ86Rf57FGIL/4ecUuAbzpJDr
HuD/s5syJL025f+m6y3Aqzyztf/vu/7nfGe0TinFNUgCCSRIggYICXF3d3d3
F+KeECEhEFyCu0NxWqAtNeo27Uyn7Xhnfv/1vDsJ9Mw5F9e63nfvJOyd7Pte
674fWQ8TRP+/umR4r+OClzX9M3auwv/L4gHGMHamPDfzKf+revwO41/td1DY
V1fFgxXyeqtUf3fhgNp7o4Vw4N/xb6ZhfkQvqevo2ja1duip3K+Nd4rPUJrH
VJ2NHK7r5aLpf6XBRP8vEf2/ROtdM4x/76nM85w4fParOv97jJb/R/TPTOHB
dOGBVgtGOfDr0TFRPW0txK90/a/kOs1FtwdytvMvme/+GwnR++J9jX3GMt9F
sC/53lS89nKvidhEGhCYvZr4CjtymsKoH6jg7L2TfPX3z/ieb/j0u/f5XOLx
52/y7Q+fcuXWGXoGWuna2kzT5ho2iefMKcpi264BHrz9gMNHD5OTI7q7uJSM
zByCQ8JJy8zmxJlzwp932XXgGBn59eJBm0jPryM8PpfQ2CxcfaJwco8gLDKD
8MhkYqITiI6OIDjIi9T4KDIT4ojw98bfzYYwHzuSoySv+mwgPd6Hlro8OprK
qBPt01y7ibLCAhLkZ1VkigaKiQglPNhfNJM/oUHeJMVHkJoSRVxcIP4BDoSF
uxMR405Uqmj7PB9CcwXv5bqx/mjRNhEdct/ppmE9WupAvOT2xBZv4tt1+I9W
+O8QLdSusC+8EexHCEfCRD+FNLhr66H9qx007HtXivZR56gr/KteCcr7qt5v
4kVVz2nVh91Y9YD30ENf8D/bbprgfwrTBP+TVo1n4vJXGS/5f9wiwfn8lxhn
IPfzxg7jX0LqwNP4V+doqn3Ui4PUuMuCUQ6o/K/iaQ6Yx4kWUmtQh7G/Ss3T
xCsNtEKwvnQY97pQ3lnpJzOpIUpPaaGd4WmocW3ktdTVNETXX3JJkOpxr6+d
87DYX/W2maXhf77XFOZ6TBg++3ushn+l/6c7Pjea/2faPcss++eG5wN+q80J
qDFRxQHFhWmOv9B6ocxSayWc1LjoM4L1/8JIYoHTL1nsMYbFonHc01fgJBrO
Sv4GIXmWhGSZU9DowbZjOZS0RZFdm0HvUC9bD2/hwt2TfPjt23z6/Xu8/9Ub
fPu3jzl5ZT9tW6vFO/aw68RWtu7rYcuOHi5cPcvt129y8NABjh47yo4dO8nL
KyApOZUi4cKhw0fYc+AAFTVNbGrYKh60g4q6HgorG8ksqCQyPpPA0CRCw1IJ
CIwm0D+EtNREstLjSYkLJTEigBAvO3xd1uHtsJLkcGeK0oNors5gU3ESeelR
xIf74e/uTKi/6PfwQCJCRMOH+RPk74m3pxP+Ph4E+UmeDxTcRgYSLzUgPi6A
pMRgIqM98YtwICpTcneOB4mbAkloCpB8L5hW45uS+2NV/hf8JwruEwXzCR2i
dwT3Uer5TnnNDj+i2iRaJVp8CW/0IrReXq/eRdsvo/aNeamzoEsttZ5CqrfW
xlQd/lXfUbNQI+3MSRPfuSxwn8U8J9XvYQrTLSYxzXwiUxT+zUTnLxa8Lxyj
4f8Vyf/jVMwRTTR7rG4caObYn+X//47/kfz/NP7VvkvFgdWxom3iFPbNBN9L
RzmwPHrJcCzWxo6Uf1CY18ZS5f8yk/9LXZc9hX+l5RTuVU1bEmSgYV+LAHX2
iOrbMeOJ/vF6on9mur486n9nqPwv+Neu6rGjmhMQX6t8gHBglpMuZjqqfP+M
xHPy/DPMEe+7SHhhIvwwcRat7/QiEWU2bDlTQV57BBX9ogVqPFntNJGGvkgu
vi76u9yDll2bGDjZRfueOoYuD7LrVC9DF7dz5vYQlx6c5Nj1/Ry6uodTd49w
4pbg/NgO4cA2zooXfuPth6JxPuSL333Le+99xI2bd9m//yg3brzOzVtvsHXr
LkrKGqms6SO/tEXw30ZZfT3VzQ0UVZaTlp1PcmoOYaGxREXGUCYetrw4m8zk
MBJEpwR5biAq0IboABtqi+LY0VVBTXGC1AJPkiJ9iQ4WfS54DxOMRwRJTg92
E7w74+0husnZBj/Bf2R4EBHCjeAgH4ICJHdH+JIYH0xSShjhCX74RbsSluZD
cqX4hspgYuuCJN8HidYJIEG8bbzgPnmzD/FSF2LbJOd3iO7ReOCr4T+63Z/I
VvHAzb5ENHoTJjVErYFWe2fUXjLPMkvciiy0noqqt6g6R8xcnYOmcBQs2NG0
j552Xs1cx2nMsp7MjPUTmW4+nqkrxzNZ9M9Eyf/jNf0j+DeQnD9PdP8ceayn
tM8Y4cC4n+n/pz3A0zVghAPKBzzBvymrYpdLfjdlRbTK88s0DphFLR6On2Nf
G1MKXzjqK9T/PxLa6wzjX5f35/2v+J/nNfFn+J/l8pLk9ud1uLfXYX+meuyo
mxOb5SAccBAfLDyY4/Qss+W5OQ7Py9/sRfQdx2DoPJaFds+xWL5/uec41gXN
oHF/Mg37UqjdncyVD3cRW2qHvfDy9M12dh0vpUj0z+nXd1G/vYCh1/p5/MMd
9l3q4eiNQfac76Wmv5SmnTUcunWA1z5+jXNvX6BpsJ2uPf1sP7yH4xfPcPX2
La7ffYPHH38pfuAOp05e4s6ttzh96iqdHQNUVLTQ2rGDlKxCYkSP52/Kprwh
j/qOcgrKc0hIFV6Kb83LyyE9NZ6MlAiK86PIEUz2duRx/GA7+wZq6W8rpjgj
jIbSFFIivUmPDSY7OUKrAYFejgSJRooKEe/q74SvlwMebvb4+XpIro8jNCSQ
2NhI8ShpREcGk5wo9zlJxKfHkl6URn1XHS0DTVT1VNBxsJWCzZmktsSI5g8R
3AtfBPPxatynQ+pCpw7/MZ0K//4a/rUa0OKn5f+wBk9tH0BgtZO2/l/1jnMt
XK+dFaD2fSntv0ad/x2mzlwV7a+d/zETffG+ar++3kbB/9oJTFv9KlNWvsIU
yf+TFP6NX+ZVI8n780X764sGUnMAs0d00BP9o874MFb4H8aeysMKj7qzPnTn
fKyK0vV+VGvvVP7X8B8jOT9q2bDueRr/iwX7Jv+Gf6X1n8a+TuvPH9Y9BqO6
x3g4Fvs90f/zvUX/eOr0j4pZbmM1/Cu8K9zPGsa/mg+eLjifIZpopv1v0RMv
oHCv7/wS8xxfYI7N88yzfQlDx1cxcZmMU/QyXKV2BRVsIENyVe2BGJqPJHDo
YS0HX69j02AUhR3BNA+mk18XQmqZL0ll/jhFrGbbqSbufX6WS28f5Mq7Rzgo
fLj39VUuvH+ad/76iOtf3aJubxPJtZlUb21g24ld7Dl9gM7tPbT0dPHw3fe4
/+Y7HDpyis2b++ntGeS0cKG3e5Du3kHqmutJzYmmoCqGkvpozl/fzrZ9DWQV
xFIvnqK0VLiQqDRQCDWbEujryeHS2R5uX9vFkb0tVBfG0lyRTrNwpiI3iaKM
OPJSo8lPjyEhwofEKC8SpC7EhHsREeqNm4stri5OFBQWUlhYLO+pm52i0XJy
sqmuqqC5uYm61lZ2Dh2SGOLUpUucv3GNbUO7KGwuJrk6gfjacJJahQPtkv83
i0fuFm20WUJpn04/Yjv9hQMB4hmEBy0BRGo1wItw0UDB1c7afpqn8b9R9RhR
3ledgSYaeYnfPK2Hu6Havy+5f47q22g1SZf7V41j8oqxTDYdq8v/xmMZv1Cu
hhLD+B8nNUCngcY9pX9ma+cJ/ncejHBAzbcpDijvrXiwSuX8aFMN+2aRSu8s
03SQqRqb0nBvIrg3HsW+NqcWJvchRlo/jaUhhroIUrgfjsD52pyesfx+JurM
EeXJ/3v+F/wr/6tCzX/puY5hlvMLGgdmOaic//wT/EtN0BM+zJGvzZGv6dmI
1nd8WfT9ZNbK7+Yo2s09eR2JVSHktiVQ0pdAw1AShx7VcOmbdo68X050wxqC
y1aTVOdOQpkPpe3plLSksak7l9w6weDWPPZf7GH/pW52X+jk8vuHefOPr/H4
nw948MNt+q/2UrarlPzePLpPbObK48tcePMsle0VxOfEM7h/kGu3XmPo8JDg
OJHNnd387utvGRo6TOWmalo768gvj2bnkUqu3u/lvS+PcPFWP1dv7uPtd6W2
XDhI/9Z6NlWl0NdXyNGjNezeUUynvMfWulRykgOoK05ja0u16KAmGspzaazI
ZbP44L7OSnpaS2mryxcvnEpuZiI5WekkJyVRXV1Ld08/7W29tLf3sHv3fi5f
uia+5RhDx85z5eabXH7tIRcuvc7W7Yeoqm8nq6SY4JRQQvODSeuIE90fpMv7
XaJ7unyEA5L7N/sTtzlAOCCeoV2ubfI9rVILxAdHCgdCalw0/Ku9Xy4F67Se
6tZK+6szwFXPZzUuPoz/+a7TJJ9N0fA/W/L/zHUTmL5G6Z9xTDV7RfL/WCYI
/icaixYyGscEA8n7c8dq+B8/e6w2FzCKfx8d/v87B1ROXqKdebZAd+bZcC1Y
EWEi2F+iYd9U7rWrwnz4omHc62KpWqMdpltPtHQY/6rH3JJgQ+1enamwOED1
V10wGqrfmIl29uZsrVfrQtXf3nc6832moe8jNcB7Enpq/tf9FakBL2n4V/NX
eqLnZwv+54i2mW3/ghbzHMZg5PQqyzynYyGvZx9lhneqJTHFnqRtklxeFUZW
UxKlfTkUitbvvlTM7odVDNwVvF5NwSPXELdUY8r7RGNURpJamEBrfxMnrh7k
9nuXOHJ1FztPd9O8sxy3OEuqB/PYdrGdS5+cYP+97YSU+9IomDwtvLj97WXe
+P1rvP/XB+y5tI3wrAAq2os4c/0Y/bs2ExTuTW5RBrdev8bF62epaqogNj2Q
/JpQDl+u5q0vtvPm59t59MVeHn91mr/zmK//cJ+33r3I5Wv7OX6qg57eVOFB
Onv3lFNTFUllaSzb++q4fHqId964znsPb3Ln2im29dbR01FKV1sJHU3F1G3K
Iy05hvS0JFpa2ujbMkhbm/iP/E0UFGyir38XZ89d5uKl69y5/z6v3XqHg0OX
2b79FGVlncTFF4ovj2PVRgusA2xJrI8huSNSdI4vsV0S4gViBP/R2r2/VgNi
OwKJk7oa0xYodcBfqwFqL7Da/6XWfTqrvg+qf2bKCtar9WeR6qzt+cPa/2n8
T2K2zWT0NkxkxrqJooHGM03zAEoDST1YMp5Ji8QTL3hVaoDwQGLiPLmf89T5
Xx6zdGe+Dp/3ajJy9qufvoZJhVNTdd5x6HAPeMG88sQjsVywbhb+72Gq9qiF
qLVKRtrc8kiM9FhUXDCRvK/6zKg+FlovC9XPxdeAhd5zdH2KvWZg4D1dsD+d
eVIH5krM8p7IbJ/xzPQYw0wX0TPuzzHP+bcssH+RRXavYmw7HlNnwbyvEa5R
5gSkOBCZ7UNaaRTpxbHkVqQQlx5KXmUKe6/0s/l0DfnbosnYGkxcpyerwvQp
Gogjq1k+m1x7guNscPe0Ys3KNdjYOFAp+fPYlSFuvHuVU/eOMnRzD3ZRG/DP
96BMfIF/gTc+Oe7Cu8XEVEdy5MFujjwcpO9SCxc+O8bd76/QcbKOmp1F3Prk
HIMnO4jM8CQy05ueA41ceXSaYzcPsEl4md3kR+OucLadjuP8W6W8+XUvb3za
z+c/nOXbv9/l+3+9z3c/fci9t46xY3cJQ0cquH6nmz1DRVy81s+Hn96UWnFb
sHtKvHU3jU3l1DUW0N5ZQktrEbXV2VSUZ4rOjycpOU60fyqtLVvYtfM45WWt
VG/qpLd3J6fPXdLGZ5Vf2bFL1acOSss7KCxuIzaugICgOBaYLMFg2XzWe60h
tjqMlM5IEjvFG2/2I75bsN8jNaDbZ9gHC/4l/8e1BBHbEkhEky+B4gF8alT/
E1tt3aca+1d7XtSaWLU21jR0ge78S3WOmerf5TxZ61s0y3YiszZOYobiwPoJ
Oh6smciUFROZvFTwbzyBSUbCCcOJWkxcMJHxc1/5Gf7VWOrIud8K+yP4V/lZ
O/smyEjrg6rwr3qvqP5zulikXc0k1yu8LwtdOHpdFio1IGSRYHy4r2iIwVP9
RVXvvif4V7hXYey3QOqQbm5vgepTrLA/HPN8pzLHbyqzfYXz3qKB3F9mrpt4
WdfnmK/Gb+zHslz80AZPfewDl+AVvZ7ILDficn1JKQqnqDaN+MwQQuN8SMqI
ZOj0dq4/Psb2KzWkdnhimWCAR+FaDF2mkVAdQKJonuXW0zBZMYnV68TXmK3C
wtJG84AN3dVcfP0Mdz6+wa3PrtB+tJ68LWm0n2kktMoXp/SNLPE1xCbJgsSW
KPwK3YhtDKP6YCn7hQuKA+ceH+DqR4cZPFdPYVsYsWVOHLrbwfn3d3LkjW0M
Xmmm60Q+fecy5fli9l7NZNeFDM7eb+Drny7x1pfHef2T43z0ww3e+/oS9945
yMlLbaKXStgk/9/uE9UMHmqid2czta2byC7KobSmmJbeBho7y6ltzKe8Mo2M
7AiKSlIor8gnKSmO5GSpIXuPsWvXUcrLm6QWbKFv6w76BrbT07OV3v5Bahu6
KK1ok59rES50kppWSFBYFC5+bqx2WoFjtDXpHfHEtwr+le7fPIz9Hgm5jxVe
xLVJvmkOJlryTLjgP6BB8F/rgKdoIB3+12k91i21dT9LtLOXlqk1mqJRFqqz
LN2maRzQ+tdJDZhhKbhfP57pa0UHrZ7A5OWC+aWif0wkFr3KZCPhgeEEJs6X
q8GrP8O/do6m+0yergWLFA+GOfDzOqAbx3l6rtg0bKGGeU3XaDpfjXFK7h/u
LW0c9CTvj+JfYd9f7v11fba18J0vmkdf6+m4wGu6dr6lga8673sq+n6TmScx
R7A/232sfP1Vea+vCl7HsNh1HFbCI9+4tURnOxGV5SyaJZjBo82cvL6DTZ3Z
BCe54hJkwQZXU+JEf5Q2JVOzJZFtZ4vwyVzMq8v/D6uDZrFevIlL3Gq8E9Zj
7jIHez/xyMEbsfF0JCQuktLaUnYe3saWvZvZe1Y0yR/u8tonp0XnHODwO9sZ
fL2dqmPZWGcvx0/1O6vyYHnwUtbHrMEl0w6HVCs2n6oVnO+lbahAIos916rY
caWY8x9u5vBbTdTsT5G6VMSNr/fx5p+P8v7fT/HW90eEK2VsOVrIgSuN9Bwu
4NI7W/nghzN8+69bfPbXq9x9PERpWxSh6ZZsP1HJvgst7D7VTkVbIdkVeWSW
5JNdXkhlczlbBptp7SgRHCdRWZNOxaZ0UtLCyMxOpqGpURubrapqJCUlV3xA
L52dfZSWVdPdt4N9Q6dobh8QLuyntr5LasQOBgZ3Eh4fyfwV+sxfO4fkhnhS
N4vXVliXGhDTpTggXOj2l5ogvGgPEfyLB2jwJ7zBW8v/voJ/r3Id/tW6Z9Vr
VPUcVWduqHP3zNQaHW1scLamg1QdMHCZPtz7ZAozLJQOmiD5f4J4AakBpsKD
Ja8yyWQ8UxbJvdFEJi2YwBSjSU/2f2nnxw7HMAfU+cqjteBnHBCshxhpnkB5
49FQzwXrQvFEFwu1sxOWDONfd7bAk1B5X2F/NPx0500ZqX5ewkED1afMZ/oo
/g18J7PAbxJGEoZe4zFyH4+J6wRW+czCM2k1CUUeZFeG0tCby/4zm3nny2v8
6adPuff4PNXd2RTI55FRFc5aVyOpEYtY4zwPJ3m/JW1eBKQvYqHNr1nuJt5i
1bNE5rjQta+M/sOVpFb645loh32EE+5RvqQVZrJlTz+d29tp2lLNg89ucuHt
I1z55CiH3u6n54bk3UctlJ1LpeZaDtvfaSe43p3ZzuPlM5vBcuF8bmc0lQPJ
5AkGAnPWU78vgetfC0/3R1CyO5AtrxWx614NZz/ZypUv9nDnm+NcfnyQ468P
cvzudjIbginuDuXW5wO8/7f9fPTPw7z1w0Ee/v4ke662Ub09hbNvd3Ndfl5d
2/dXULe1jspO8cF93Zy4doZzV48Lfutp7yqlvjWTvNIwqYveZOdHkpQmmmtH
P3v27qewsJKurm3s3nOELVt3sW3nAXbuPUq9+OOq2jayc0uprWumvqEJn0Cp
mRuWM2vJLLyTvaUmiqfuCiOhW3J9T6BoIH8N/3GbdfontjlA8O9HeL3o/zrB
v9I/5baj+17UGQO6fb/LtR68K9Q4uhqj1zgwRzCqzoKVXOk6i7nq3C+rSczU
5gLUeOhEpioNtGy8poOmLJZ7E+HEQrkufIJ/fSfBlvM05guP1JzCv3FA+QHB
pol8bjoOLBgdtxwNyfcj2B/xskrPa/iXUH2EFwUK5tXcteqtGKjD/ELl50dD
HqtepPKa8+X30pcwEGwb+Mp7Et1v6DdFvj5V619j7D6JhY4TWeE+G59EC0pa
4ylvTZPcFs2hc9v47Pu3uP3OOQaG2qhsyxb85zB4qo22faXiVc1Z4jCNVfJ3
W7j+JVY5vEJg2mKiCtZgJX/TeWZj5GfSOXp5G9cfHeLQjV4GLrRTvWcTWaKZ
g5KiictOoamvlbZtzRy+spc95/s4+eYeWo+X0nu9hiNfbOXQN30c/8sOzv5t
D133KpgrfsXQYzxBxTbEVXqQ0xpK78lyPFJWYh48m7bTObjnL8OjaBml+0NJ
6XalZKdok62xbDnbQEptJMHZXjTtqdB8fNnWME6/W8fDP2/h0U99vPWPHbwj
deLO7wTXZ0qklrRy/8debn0jNeVeK/uuDHL9vdf54I+/49GXH/Lg3Yfs2jtA
bXMh5XUJ5FcEUlYXLjwIJirBldzCZG7fuUlXdx/Hjp3nwIGT4hl6qG/ppFLw
Xl7fQk5hKZVVtWRm5uDt5Y2Dox2BYf6ssV2Lme1KMtpSSO2OIrEnjPjeEMF/
gNQBqQEdwoG2AB3+G32JkPyv4b/aHs//Af/KA6j1P8oHrFTjkVIHTIMUD/S1
HG3kpqfrf2gzFT3LSZoHmC4eYPrqSUxdLjwwk1gm90snMc1kElOMJ4/if67o
J8UBhf+ROjDCA00Lqb4woxyYr41VqvWZI/MEWgQtGB3PWazpeQNNzyhNvzjA
SNM5KhQPRjS/wr+R71wtRjigzrJZ4K1y/2zmec0VDsxlvjq72UfXu8zEewaL
PaZjKn7F3MdQ/O06YnJ8xNdGiLYPxSvYkZTcGKrbSuS5BArrMkX7FJFQHEpB
WyqbBnLJaoskWjSJT7YVpk56rPOcR2TBRjzilrFo/TjWOxqLPw4iPT+KjJIw
Nu+v5OEfX+Odf77F5U9v0LJvC2lVeTRub6Njdyubdzew49Rmjt0bJLk+AN/i
jXS+VsHO9zsY+nYrF/8xxNGv+wltcsDYcyLr5XOzkNzQuCubwUsNrPKfzbiV
/0FGfwBbbpQQ1+GAc84iqevPYZNghFW0Mfnd4seb4gjJ98Y/y4k1UiN7TuXw
2lebOfNhKVd/X8VDtnDvx700HcoQ3Lkz9DCX299X8eDPjbwu7+PE7UGuvHWd
d77+hOtvCQ8++4J7Dx7SM9BBh9qT05vGll259O3Mp7AyjMQUf/buG6C/v5/L
l26wffs+2ju20CT4zy4sISxW6mlurvjfOKIiI/H39cF02RJWrF7OsjVm6Jno
45fhS3pXAgld8vkIB2J7gjT9r9ZAx7YKD5r9iRGPr8Z/VD843yq7/zH/K/wr
DzCC/+WiUc3UWLrgf7Hg0lid1+o2BwPHWcyzm8FsK9UDeorUgclMW6njwLTl
k5huNll4ILH05/jXOOCsqwMK/4Zuuhpg6DlcB3zmaq9jIvnZxO/JPNkoB4bx
r3A/GgELRsd0RnT+Qv95o3n/6fw/woMRLqg9+XPld5rnJVrSU/lx4Z9wYqnn
HNYGLMI9wZK4Qj8iM30ISRTtGOOFT6gH1i7WWDlZ4RXiRXpROieunODwpSEy
qlPIbEym7VAtR97cxdF3B2k+XoZnmhP+mW7YhJuit/oFJhr+BuNV8zBdacxC
k7kYLJrM8o36xJUG0XO6neNvn+DiJ9fFkw5w6uExrn1wmoNXtnDsZh87ztbR
eiCHjZGGeBeuo/1yMXXn82m/Xs/A/S1svdFBUKGL1CwDrMUP7LggOn93uuSe
Mbxs/n9EIzhy+Yd+0QbW6Nn9Cs/cVaS0emIVsYDsthCG7vRQsyOboBxbCQvO
vtcp76WZtpOBHPsgl4f/6mPrtULCSq3J7vRi+9VY7vyhmEd/qePuF5tp6M8m
pTCdxu7NbNt/gA8//46//P0n7r55T3zzHvYcb2D/qRqOXWime1seWXkh5BUk
MjjYz4M3HnLs6GkKCsqoqmmkdXMPbd3dEpuJionE1dmR8OBAQgIDsLTcwFx9
fabOncUK55XyOySQ2KFqQKTk/kBtLixeNFBMm/Cg2U/L/+ENnhr+VQ+g/0n/
j+R/xYE14gNWhBpp+Fc1YJnS5uIbTdR5ZR6CJVfJoQ6z0LeewZwN09BbN40Z
5lOYuUo88sopwoMpTDV9on9m201ExVz7ydqYqsYBF8n/bv/uibXw/flcsRaB
84fH73XY19UBqQej4zoGOqz7zvu3nP8/8WC+4F3fy4D5KtwF+54GLPM2ZH3g
UnxTHcmsiSOnJomwVF+CE/wIjg/ALcgTSydbbNydSMxJp7q9ke5dW0krzcY3
KZCAzACcRMendMQx9N4u7v3tBlsuD1C9t5Y1gUvkb/Uq+munsGLjMqbqTeX5
F59l4uSXeP7V/8dL03/JnJUz5PXX0nO+nbt/vCx6/zC3vzzCrU/2ceh6HQcu
VXHr40Fy231wTjIhoMgCp4xVBG7yJbUrC7c0N5I2SU2pjcI/1ZaKgTRyeiMI
b3JkRfx0bPPnk73Hg8K9/mxMMKT2YCoDVytZGzSTDeFziBNsZLR4kVLvJv7B
mx2vFZLStkHwZc7pj6p446+DotFiSahx59gbzXz04yCPvqvh/u+qOHmzjJQ8
X5zcnYlLyqC6vo3rd9/jzz/BX//5D26/dZEj57s4c72Li7d66d9VRG5RKFtF
3929c5VPP/6QnYO7iIqIJTk5jc6eHsqrq/APDiAkJIjC/BwyU5OJCAkmOioS
87VrmW0wl2mLZ+CZ4S41IEn0XDSxXcGaB4jr9tfmB6JbfIhq9BH97zmc/0X/
lNmO7vtV+B/R/+vidWugzdUcrFqXM1wDTFXuFa2x2Ec0huKA4MVQ6vp8+5nM
txEPuXEmszdITRAe6MnnO3PNVKavepL/9Ta+ymybCcyxFR7YT9JqwSgPnvLE
T3gwR2rBXG0uQoWqQUtFzyxVmPfT1aMlyiv4LdDCRPVoFF+rjeursR3hkHZm
n4TCvNJCag+m2odjKFrAwFe4q+Y4vOQ5wb+R/D6mPguxCFqBS4wVQWkeJJdG
EZ0dRECCl9SAUOFBCF4RPtj7uuMdEUxmeTGJ+dlEZabgERWIb0oYG8McmGU5
l/VxFux8uIPXfrxGwc4y7NMdCN7kSfWBbJzi1xGeGcSS1Uv5xa9/yZiXn2O2
vvwtlsxh7tK5TDJ+hUXiHTJbAzl8t5VDd+o5fLuSY3fLufh2Iz1H1XhSLi0H
kklr9Ca5wZ8lHka8ZPKyaNBJhGV6k98Qyzrh8iKnyayNXUjpsVTqLudhEjEF
Pbdn2Hq7QvJ5P21nCvHMW0FIhTmx9Zbk9riR2eVMjlzLdwQQVGaKa/Zcigfd
aD0VR9+lQoLyNuCfsZaD1yr5niN8+69tvP5hNfuO5VFUJviLjiAmKonEpCwu
33zInwT/f5d/n/zhLW49OszNN3dz4cYWWnsyqWvO4M23r/HJJ4949+0H9HS2
a3sGlM5xcXVhg/UG7BykFgX6k5udRXxUFIE+Pvh6exAsvDC3MGfygskY2y8i
uytTfECc1LZgEvvE93YL9jsE+y3eRDZ5a2tA1ZkAPsJxj6fwr/SPOmtPjYGq
MaAR/KueR6oGKA6YKk8q+VXhX6sB7oIt19nMdxLt4iDa2U7ubcQfbBRtZDWD
uZaqLswcxf8swb8KPevxzLYVHkgtmOMwaZQDhm66WqA8geLAIu/Z2vys8t8q
FBcWK03kp/+kPqh5NPV+FCe99bVxzSccUGeWPcn1mg8Q7I+Ega9wV5v71dN0
j6m/EXYx6/CIt8Utygb3KPFYSe4kFEaQUhZLZG4IAane+CT4YhfoTmBiJOll
+XjHih+IDZOvpwomIlnhYyG/nyFuhd5c+v4q3bd7mOOqJ77dgF7Jj+0XsnFM
Xoap8wKmLZzKc6+8iJGJISvMV7BU9Ow6OxvW2K/GRHKJofkrOIUZUyb1/Nit
Sg7fLGTXxSz6T6Wz/VwRA6crRd+0ilctx8BSjzHzn8UlzIL82mhCU1XvNann
YQsEB350P2hi2wddRIs3tM8xJ3cwhraLpfiUWfDy6v9D+YEQ9jwsZeidCrou
p1J1MJid94upPxFBx6UEDrxTIhpiAzaxhpIj9LAInEzngVB+x3Ye/6GJ1+4X
sX13Ms2tqVSUppOaFEdCfIxonpP86V8/8P2/vuSbn97mk+9f4957B9h9uJqy
mhh27m3hgw/v8e47r7N9oIeqkkLS42MJ9PXEy8sdWztrrK034ubqRlRYGMlx
sYQG+BPo54Wfv6f4YF8sXTZgZm9KbkcW2X0p4gNCtfwfvdmLGKlhka1e2h6Y
4AYP/Gqd8d6kO/9L4V/pf3XG3tMaaH28KetilgzXgGEdpOan/FX+F5yJZ1zk
qfywcMBltlYHjBwlHOZISH61VyH6SDjxP+J/uA7MGa4DI75YnRU+4omNPGdp
Y69q7EnxQBe6sVI1XrRo+F7DvYTqz7vI50n+H42nxn7U2cNPh+o/b+w7Q3Td
LNaFGxOQ40xIpgf2gRZYea3GMdCSjKoE0msT8EkR3ZjhRnBeME6RHoRmxYg+
KiAkKw7f5AhCcxOJq8rEOydU6tEabDKdOfHNObL2ZclrTyF/px+X/yja/rMq
mk7FsNx7Fs/P+iWT9adi4+KAiakZcwwXsdTckiXLV7F2rRk2dstZsX4mZhsm
UNYWwLaTmfRJHHu9hV2XGyjtzqBusJqitmKWWi9mgsGLRKV7EiV+w9HfWLys
P5VDyRz6aoDe91rY8l472QeTKR/KYW2MMYtDp7EiTuq2x2/I2OFOzalwNl9P
oet6Gsl99iT02bL/cRXX/9rL5e87Ca5fLZ/fL3BJnSfa35x7X5XzxU/NXHkz
kf597jR3uotvDaGsNJic7ADqGzMZOtfL1UeH+OC7qzz+43nuf3yQC3d6Ka2N
oKkzh4tXD/H11485d/oYNZVlZCbFE+HnSYifh2DcE0fJ/Q4O4tUdnQny8ycz
JUU4EENEmD9e3o74BrqID3PHMciBiMJQMjoTSOuLEh/sT3yvP7GbdfgPbZL/
r8Ed3zpnvKrtcSuz0fS/OvtRnTOmaoDCv9JAqgasV/sR1Xr8CGNdDQiWGiBe
c4nypt5zdXgb8QHOgn3n2SxyFjy66OvCWR9D53mj+J9pNQ4VT/NAT+rAiC9W
MaKFdByYIRyYOcoBXejmjpU+Wjh8r70PiYWKj+qMGhXqsfcT/Os8sf7o+dva
WfQB8n/4z5QaMgUz/+nYSc2Lr/IlpSoMrxg7nIOt8I13IaMmHtc4G9YFLiOz
PY4q0TJ+WQHEVSTRf3IHddvaiCpIJro4jc3HBynYWsWyQHM8ygM588erhHWG
YJ9pyPGPSnlIB2/8q5kzX1dQuC2AjSFmLLczw9RiFRNn6THdYJFooHXo6S3D
RMJ6hQUOG9eyco3owDXjCUm1oGlnOlX9abQdqKW8t4qA9DiW2towy1hqiMVy
8krTsLBdhK23MRmieVP7fKi9LpqraTWeHZZ0PajgwPvtwsdQ8g9FsPVRFX1v
ldB+O52svW5sf7uYvvv5lJ8Iw75kPsk77Ln0980c+l0lCVs2YhE7RXT2Gs59
ksr7/yzi838VcfmtYBp7l1Pfvp62LtF4de6UlLvSM5DCiZttHHitlvNvbubm
4wEu3u+kd2822aX+bO4r48HDK1y9fIreze0U5WZTkJFCZlwoMcE+xEWGaHsF
3N1ccbJ3xMfdg9iwcG0/WYCfK0HBrrh4bMDR2xavKC+sAiyI3BRE1tZ4krcE
C38DtLVxkW1ehDSK9mlww6fOBc9qR9zLbbXzH9Xed+dcy1H8q/yvRdwyrQas
iVRjQQtZESIcCDLSPIDGAaU7VO4VDix0E5/prjSR6HJXed5Vh/9Fbvqj+J8u
2Fcxw+oVZioOWKsYr3niOfa6UOdEGbhMQd95inY18hD8qzogsUhbNzGMf8/Z
2niRxgOpRUaeks89Z2t79dX9Qgljda6sqlWqHvgp7KuYp8O+hKHkfCPv6ZgF
zGBtqD4uov1K+uIp6Igntli8boYHGwPWsCFwJSu8TQgu9aDrQgM1Q4L/Ah9a
D7Xw5U9fy2d6h9bBLpoGOnnw+XviBT8mvEJyWEMyF76/jXeNL4FV6zn3hXhH
6thy14O60/Y0Sw1o3J+Hc4Qdsxbr8+z48UzQm890/ZVMnWnG5PEG6E2ejdUq
M+LCXPB2N8PA8FkMloomCrLENyGA+ALx3DEJTJlnwlyjZUTFJ+Ab7MWCZZPx
jFpNquS7tVEzsEiXnBA5DuuihWx5UMKNv+zk9t/3cfiLHjJ2h5O/L4KM7e7k
7nbl+p/7aBX9k7nDB8diY7xqjDn+bS27HxdJfYggu9+Jgh1W7Ljjw4Mf0/mC
Im4/jqKiSZ/CCiPqm6ypb3ClvMxJ/Gs0x27WcuZRE0fulnH6QTVn7tdT3hEq
fMnk0o0hHn90n/PnDtHb1UBVWRbFufHkJIeTEhMoWt+f0EBPra+Kq+NGvN3s
8fcS/eJmJ/5AMOxuhbOLBc5u1rj6ObPGQbxbrC2Zm+NJ2xItNSCYGPHAEe0+
BDd74N/oKviX/L/JAc9yu2H8qz0wFthmmmOVqs5/MdNFgmhHtQ9FNNBKrdfv
QlYGL8RMfMAy8Z1LBVdLhQOLBWcqTLzUvfhRzwVamLjLvceCUfxPFuxPEexP
2ziWGRvHafjXeYHx4gXGM89hguBfOOCku+qLbxsZI1Xnji1019MwPxIjfnmB
p542jztf3SvvLI+NhQva+1Lvz3eBrn+1Gu/U8C8/L9rfRGkf7xmsFl2+MWoR
bumrKemPIbLMFY8UySmx67GOWMtSj4VYxayl9nAp1UcK8Sl1IVRyzK7rg3z+
j085e+csQ6cPc+etBzx8/D4/8hMn719mx80j3PzLI7wqAvAoWMvR98o58lEy
m46tpvuaJ2c/bqD/3CbMPVcwRu8Vfjn2BV6ZOpups80YM8mQ374yiVdefYV1
K4xoLkugtSwGH+clzJkzBsNl+li42LFsnQWmazZgYemA8ZKVeIhnXG1lxvRF
L+IcZUZ6kxdx9Q60nskkpNaSyiPRDH3YyJ53K7jLfna808IMp/FMXPcMywMn
UrHPh7uC/7hWGxYHTWB59ETKjvty7vsmtr6RR+OZeOqPReKZO5u4hgW8/vti
vqWdd78qpK13FamZsygrN6eowJKyImfa2iLZc6aErWez2HIqnn03sth+Pp0t
R3K4/vZBvvrhHb785h0uXT7EwEANdbVJVJXGUJITRXqi1NhIdyJDXcTvWuPh
Yq6Fm7M5rk7muDitlViHs4S93Xo2Wq/F3NIUMxtjwov8pUbFk6TGQntCCN/s
S3Cb8KjZFd96R03/e1fYDvc+WY997lpsstZoe+DVPkirlOWjY0FqPni16gcs
PmC1xgFD+VvNx0wwtUzjgL52XSK1YKmPPOdnKHrCSJ5bgJm30VP4Hyv4H8tU
ielaDRgn+H9F8P+qhv+59koLSTjqQqsFw/PFo3MF7rNG54yfXktkKI8N3Gdq
HNDmEQT/Jgr/3jpvrJsXNhjO/1I3fGYJf/U07FtHm2AZZkhEuT3x9e6skNpg
ol7PYSZ+ee44JduxJng57acaKNqZiX3yBrZc3Eyb5P8tR3tp6G2kZ7Cfr77/
jt/96Qe+/Ot3fMn3fMrv1ephuq71kr45mO7zSRx6N51zX2bxzj+7+einE7Qc
LMLcfRW/nfgsvx77HC+8OoFxU+by0oRZvDBBjY0+h/6MV8iIcmegJY/oINEf
lsastFyKlZsNhsuNMVwsf+cVJljZrsU31I3llgtZbqOPW4w5Oe3iF1v8OPPp
IPvebuXyd7vou1PK6qSp9N4vZODtKt3+TuuXye4N5PKXPbz2+26yB9zRc/kP
nEtnc+LbCm7/q4uhj6vovJzFnjeqCSpeQWarHe//sEM87UF+/OkAD96rprp+
HclpRiQlL6am2oNN1X4kFzrTuCOJgRNZ9B6NY9+VPE7da9S8wO///pDX3z7F
wSMdbN1WTntHJo31SVSWRJOb7k9SjAsxYbYE+1rg5bISZ9ulOEk4i2Z0sZPH
9ivl8UrsrddgZ7sOi43LMVmrj23IOtI740iW+hPTLfjv1OHfv0nh3wmfagcN
/yO9r5QH0J1/vRrrYQ6M+ICR+bA14gPWhC1ileggxYEVAeKJ/ReMhqnwQV1X
BC7SYrnqIxxgPIr/SZYvM1niafzPEvzr2Ywb5cAch/FPcWAiT6+Z0MZI1VzB
8HzB0zFfYgT/qh4oraTO61Ne3cRHt+bHyG8uC3xna7l/kc9M4ace60MX4Je9
jiiphUmiDZ1Tl7EyaA5e+ZJvcu3I7UvDNcOJJe5GFPdnEVsdjH2sJY17aslv
ySWuIJ7I1BiOnDst+P+BD7/+iv1nj3P2wVXe+uMHXP/6HpvPddB2tJCmoSgu
fFrNoTczuPZlM1c/3s6Os134xHrzizG/4pcv/obfvPgML7wyVuJVnnlpLC+P
eZGxz/0HFqZzqMyTvOu6kjUWRqx3NGOG8WSWrpfPYb0+6ywN8A+xIiUvEGf/
1axyMMTCZyleaeJbwk1I7Ajk/Ld72Su636nEjAkO/0H6Hi8GHhWxNHQSsc2+
7LrVxuBrmxh4rYDW84kk91tRcMSWE78v5AZtDIlv33GvjO5zuaRKXbnwtmD/
H2/wp3+9yR//fl04cJ7z18qoqLWhszeYLaLBI2LWYCHvJTDBloLGQOoHwtl7
KVc0UDUffH9QvPBuDp1rYN8x0YWDhTS2JdPQmEBZYSB5GZ6kxDsSE25FkPdq
3B0XY2+1QMIIR2sTXGxNJcxwsjbFwWqFcMAcG+HCsrXzWOmyiMzOeG0uIKYr
mLAOP4JaPUbx7z28/se95An+1TiobbZuL/DG1JX/K/5VDVAcWBH0dCzUQumj
lcHG8nUTicVajOB/4oYxTJKYIhyYZjl22AeM1TgwygO7Cbqwf1WrBwr/anxU
GxvS5sumazEyTqRC3avQV6HOp1drlYbX1Gk+Xe61tT7iIRZI3jf2n63pHjO5
3xCsT4DUvdx2P+JqHfEtMietN0Dy3Cbqj5fSd61L/FQo5v7LsQpZzYaAFWz0
Myc0NZDY7BiyK3Ipa9jEnbffktz/Fy7duUtWZTFhGTFU9tXSNtRJdHkIJfI5
7Ltext1vtrBphyf9okc69hdy/vUTFNWWMm7aJH77ktSAZ/+LXz/zn/zqmV9K
7n+Jl154hvFjfoHh7JeIEHz39BSRWx6Nc5AF5s6L8Qy3wMpJn8DwlSSk2xGZ
Yotr8GqW284nKNOD4EJvbVw3qsWHK386wsFPu8k6EI5j5WpyDoVw9rsO+m+V
sPlMNRktsYQWupHfHUr72XQGH+QI5rPZ/XESZ36sYu/jUjoupFA6EMixO12i
8z7nb/yBP4sH+stPH/MPHvHld6e593avRD8HT24iOtGOVVKP7L3MSS30Ib/O
k+0nk7n9SSMf/XkrV9+tZf+5fAYP59PWl0p5QwSFpX7kZbqQnWov+LeW/L+e
AM9luMrv5LBhnoQBTsIBN+vFuFovxWXjEnlsKrxYgZ3dCqmNC1hqO4/E+lCS
u6KI7hT8t/s+hX9nDf9K/7uXWP8M/6r/uZoH2Ji6+t/wr8aBVqv8rzSQqgFa
qHv1nHAjfLEWq1UP+TB1v1Q4s+Tf8D9ZYqrEdOGBwv8IB0bqgN5wKF8w124S
8+wnoy8cUFwYqQdaTRgeJ9J3maaFgTye6yGPvWdpeB+ZR16o4X+2dh6toeT9
xf5zWCJX88C52EeKtg+cjWXQLEJK1lF1MI6cHSFk7YgkbavkjpZwAop8cIix
wczZGIegDfjHeBASF6itz2zsaqe6pZUDp06z68gxShoaiM/Norqrkdotddq+
7Z7DjWw/XcGbv9vDR389QtOuSDr2ZVK3JY/6rmpyy0qYZ7iQ5196iWef+yXP
PPv/8atf/wfPP/s8L0s9GPfSfzB31q/w8TPl6OkW3vtK7QnbSlyeN17iTzwC
lpKUbku8hFfEGpxDRBuHW9J7vI2u0804ZW6g8lg6t386zpV/HODMn3az+7Me
Sk4k0noxjeJtEVQPFlDRVUJpeyEFbUkU90WR2uVI0UFn+u7H0fN6PBVHA6na
H8juawV89LcLPP7uBh/+/j5f/Uk8zz8/5jvRMp99d5H3vjjK5btbtXUOQ6e7
6d/VQnya+Ni4jRTWeXDidj4Pv63hwe9LOfdWCrvOxdC5O5pNHREU14eQLRzM
ybAlO8WKtPgN4v3XEOi5BHfBv+tGCStD3DYa4bHRGE/rJXJdiru1mfBjBbY2
y1i+Xrz+uqn45ziSKnknqiOY0DbBf8uw/mkYxn+lbg5AjYGqMSDtDFTRArYZ
5sMcWKWdA6POQlXzYWuilwimjbVQPFAx8nht5FLWR5uyPmoZ5oJ5FevUfdTS
/wX/Lwn+x/wM/xoHnsK/nsK/7cRRDsxzmKLVAhX6jlO19dgqRvCv8v9cz+nM
85mpzfmq+QHdWKmeNlaq9h8vEu2/xF9PtNpMNoQa4K56J3pMYaHNc7imGlO8
O5SNGaLbYuZqZwjPE34t9lxIWGEwfokeuAXZESbYj4qLoqC0hJbN3cSmZlFW
30JNexdlzS3sPHaEQ5dOsOVgH6duHuWTHx/yxmdDfPa3U3z8p+PsPVdB74FS
+d4MfCN8pO4P4uLuw0uid3796//iuef/U7D/S14S/D//m//HKy//X1xcF7Bt
Tw5b92Wz5UA+1T3JuIWvER00n/hUV7r7C4lOdWad8yKic/2JLg5m783tnPto
SGpZGTse1bP93U0Un4qk+moGVVdyyTuYgEvGCvwzrCnryGXgwABt/R0UNeSR
XBmKe9pKAspXUrDLnYwBB+LbrQgpNaXvdBqX3usmrdpN6txGcmsD2bw7j4v3
+7nysF/eWxRFjcFkVQew7XANb398jtxif5y9Dckos+LQtQRe/yqbW1/GcfCW
O51DDjQP+lDS6EN2pdqf6U5hjmjPNNFzsebEhqwkRPDv7bAQdxvBvuDfdYNc
NxjhbrlI7o1xVxywN8Ni/QIWmU5kxuIX5PNdpuFf5X+F/8Dmp/Cv1v9XOWhr
INQY0BMPIF44U8cBtR7CMln1hdCdB7w2Zqng2uTnEaliMetjTNkQJ545drnG
A4X9ddGqdix7ov+tXmKS5UuC/xeZIvifJvifYfWkBmhhLZ7AZrwWalxU4X5k
rmyenW6OYGTObGT9xDznqaP5f56nhLf4AMG84chYkYfyyDME/3qS+8X3+s1i
pVytw+YTkLkGL6lx1qHz8M1dTsneUKmLq0keCKD4cAYLvOYwafWrBGb70bK9
gYqGIrIKMqisrqG0sob0nCLBfw517b0MnbnI7Xff46/A+99+wtWHV3j7szf4
5PsHvPfNCXHDV/j8Lxe48/5+Bo820L5tE7Hp0TS0tZGdV4yJiSnTp0/juedE
A/3qP3nxmWeFA/+JgcHzBEcs49jFMi7eayAweRnWvgasspuLtZspZZvSSEgN
wlx8oVesi2A3hk2Dxdz//irvi3K//fchDovfqL8ay/pc8fRt62i/Xya/YyiO
cWuIyPaisbeK+vZ6+d1yKKgsoqA+k5AcZ8IkP+b0+Ip/dyGvT/BesprESlvS
6x1wjJjJOu8xeCaKN9nizvUPO9hyLJHATPG+A8E0741j+5k87n3QT1WTN85+
M4jOMhYf7MWld0O48IEHO66ule9dRmWXNSWCz+wKD8G/q+DfVvC/gcSolUQF
mhHqtRRfx0WieQy1/O9iaYSThSGO60QTmRvgsNYAK/O5mJlNYe7C55my6Des
8jUkTel/Tf/4S/73wr/RXRv/96p2xKNCp39U/ncp3Cj4t9Twb5e1Vsv/Vim6
/P8E/7r54CexRDsjVcU6CYs4MyzjV2KVID8Xr/bTL9f6GI7gf8KGF5goMcni
BSavf4GpFi8ybbgOKB6MzgvY6ObFZqv5YYmR+eK5tro6oNbPjfiC0XBScwbT
mOc+TasBBoJ3taZ0obaeSHyzp+rvMHN4rncGK+Sz2Bg2T3At+aXEgeDc9YRV
WpKzzY/6Mymc+KqfXY+6MBN99/zC37DafQXlzcX07+6lvKaSuKRUgsJjaGzv
obyujdLaFg6dvSQcOM/Ryxc4du0MBy4cYPD4Vs7c2c+DTw/zxZ8v8cHvFf6P
cvhiH4cvbCevIo2oxGgKSsqJjUvBwdGROXOmMeal3zLhFdGIU57DR7yHq/j2
xNwV5NfYYuk+CQf/hQTE2GlrscNiA9E3nsda53UkVMXjnuJIULErBx52cfPP
e7n6p2203Ehg6zt5FBzzIbzHgqYbaaJtokmW3J3fEE9SfghJWdHkFmaRX55L
aVMWKVX+7Lhcy77bdTQfjmPz6ThaDiTSeaCAjHpXMhst6ToWyIk303jnb608
/FHyw6AFzUPOHL6fwtbLQZx6N5M7n1ZIffDC3m8s/vHTaN1txakHnpx4y4aB
88uo3moi+LeivMWdvEpXyQW2ZCaLD4tfRWzYUkJ9TfBxMcTZai5262ZjY66H
1Wqp3ytmYGE2jfUSq5dOZLHhGAyNXmT2wmeZuew5nJPWkdQZMZz/AwT/3hr+
fYfx71XpKPlfcUBpIGuNA47qHGzFAW0txM/zv7maC1M+eDQWa8+pOQKLeKk9
CZL/E1dgmbQSy8RVcl2lnSXwBP/PC/6f1/A/RbA/gv+RmL5hrG5MaBj/eoJ5
bY54ODQOiBbS4un8P6KJpA7MdZVwF20kPFC9W9R5s4bu08UPz2CRvxrzn8my
AMG//3Spj3r4pK8kstiJyDJHXDNMiW2xZ/+7jZz/dgfdV6vwzLfFOmo9wRnK
78ZSUl1CbEoK3sFhZBaUsu/IKQ4cP8/AnsNs23eILMFxdKZwIykC9ygPituL
xe/1sv1oHSev9XHv/TPcfe8cJ67upLYrh9SicOo7KwmPiyQjO5vo2Ej8At3w
9LJn3txpLFw0mbzSANLyrHH2nc6ydb/Gwn4Kta3J5JbEEhLjh5XjRpasW87G
QBsiyoOJqvMnrsWDlVFTcS9dzNAntZSfDKbhUhyVp0Lwb1hC9JZV+FWbiNcN
IHWTJ0EplhTWJLCpuYDq1nzSK/3IaHTm9jdbOfGolj23szn8ZjZ3fzfIp3+/
zc1PdrPrSiZv/tjGY5r5lHqu/z6ZLdesufRVDNf/EM+BR64c+8CH8++HMHjG
HbfIl/GJn0LdwHr2vebA0B0Ltp03pWHQlNoea6paXMkrsyYtU+qv6IbY0EUE
es/D3WEW9humYrF6IubLJ7Bi6TiWLnyJxYL1pQvHsHzJOIlXMJz/DAZGzzDH
5FnmrB5L1CYfkjdH6PS/lv+f4N9b8O9d6ST4txf8Kw1k8xT+1VqgdT/D/9q4
ZVpPKjUX8HQoX6C4oerESKifsUpZLT9vrp2l99/xP1lqgNL/U4dxP1oHNqgx
oXGigXQ1QM0N61k9tVZCYs6wH9DWDqm11MMc0Lyx4H+Oi+gjV3nsNpUFbtM1
/Bt5TJdaIPe+igOCoaAZLA+YzsaIueKR1hKU50BggT0rA2YS0+zAzvvVFO+N
pO5YNuc/HOLoG/up6C4TXMcQkRRDYEw0QbHxgvUK8b6b2X34FMfPXePEhWs0
bO6hqqOFvkM7ad/XzeCF3ey9spfmgUr69rRx7NJBrj44x/W3TtG+o5Cc6hDx
fImSxyVPJUaKjoklMzeOqFgf1qwzZunyGcSlOuEbsowN9lPZaK9HUoo7O3a1
Ut9USk1LJbGZsfgl+LEueCWZ4lu3v17L0ON67PPnMsXh/5Ky1ZXQJmssUw2w
zZ5LeMsSQltmE1g3lYOPcsncbImXfK11R5q8z1wKm0Op2+XLlssB3P1zJW/+
q4nr31Vw9P0kHv9zj+i4Ozz+8QR9ZxK4930zb/ylnAtfRnL6M29OfenKjT8H
cOMvAZz43I4D727gwH0Ltpxaj2/KBBxCXyG7YTmNe1bIc6Z0DC2kfusyajrE
ozfYiE9YRXLKIuIiFhDqPxsP5ylYCy7WrHgB08XPsnjRMxgvfIaFhr9lwYJf
YjD/FxL/hZHRb5hn8AvmGv4aA7MXMLadSmp7JImC/8iOoGH8+wj+PfGtd8On
xgmfp/Cv5f8CwX+uJY45ai3QetH/a4bxLx44zkw7E0ONBY2Ewr4aH1JrJdT3
jYTSTYo71uniozPW/jf8P8cUS8n9lgr/w/nfQvFgjIb/6Za6uWHFgZmC/dmW
49AbXi+k48GruvXTNhN0a0iH149qekhitvMkjQMG8nczdJ2GkeKA4N/IazoL
feWx71TxAFNY6jsJ25j5JNS4klgXgl++A0u9pxNUuYGyfRH4l62h43QBn/x0
X/Lde7TsasYl2B1bdyci0lLxiYnBVzjgGxFLfkWthv1j5y5r+z3qujto3L6Z
o3fO8OhPH3Dri9dpH+yQPK96JGzjzPWzvP7hFR59fZYLb/TRsSuP4AQX/MLd
SM6K0sZKQqIdWbvREAPjcay30WfZqgmsNJ9BYoIXEcEepCZF09bWQFZhCllV
qaTVxsl7tiVrpy9997M58U0NJUcl19UuxaNslXx+xgRV2RPbas++t7PYcV++
764tV/+SRe9tT9K7llLQ5UZ2owdZrXYcfhTNG/9K4c4/o3iLHO5TyK2/5vDw
z03c/aaLh9/10348hFPvF7D7XgiBlc9Td3IeF/7gxNlvN3LyK0tOfWXLrjdX
0nvNkPr9hgRmTcXM8dc4RUwkpmwqlVv1qR2YR/0W0UDt66mss6CgeBnJyfqE
+E/F1eFlrNb/lnVrfsuGdWOwtZqMnc0M7B30cHQRLeQ0S/42k1i1/mWWCub1
Bft6C/6LhebjWOdnRHJbOHGdYUQo/Lcp/Ps+wb/WA/Hn+d91GP8O2br8P4L/
DYkrWR+nqwFPc2AE/2qcdAT36mdULwlbwb2dxNP4f3X9c0xYP6x/lAdW1/XC
hfVjhAMvD+P/FW1ubLrK+wr/Ug/mbNTVgRnyNbV+bnTt6HD+HwnVn2KWo2gm
p4lav4r5ooUMh/Gv8v8Cb4X/ySwNmsKq8GkElqyk9Xgm7Wc2EVLlgV+ZDfXH
0mk9k01guYXooZW0HC7lKz5m/+V9rHWywMHXjaSCXPzi43ALDSUyJZ249CxK
KmuprG2irbeX+u428pvKaNjTztE3z5LZUcQ6DzvKmprp3D5ISWMlu88M8Onf
bvMjD3j45QnatpeQUhD+/3P2HlBVJdi67jl3nHPffeec7q7u6uoqq6zSMucc
UHLOSYIEAQmSs5JzBhEUEFFEREQBRcCsmDBixBwx51TmrPDduTZqVd9733tj
vKoxxw7Adu+1v/nP/18RNz8bjG3Go2k0FC3jEXJ/ImZTJmJjr4n7dBtCgrwJ
Cwgk0M+fjOx0cualEie+xTdjKoWbZ7LifCJFB6Yza5UOluk/oxYovkB6PWyB
L4UbUoirdGL5YT9OvE/gIrGi5LM4QQL7n8WTt9oOv+zJJFUa0PY8lIMfnGnv
cuXgG2/a3oRIH6Sw804oceXjqdrjRe2hEKlgao4o55j6lYLtw2i4qsPmB4Zs
umvA2uvGVB2bzPydQ0ir6c+MtAGMM//vjDT4b7hGfE/CvIHkLhpJQbkGWQUa
4vvHER7ZD2/vf+Dg8A0O9t/i5toTH5+BBAaNIUw4ixBfER6tR7jwGSIZ1W/m
ZLzCJuDkOQJdM/nux/13xpr8iHWIJuGlPoSK/vur1n926//0EhfchX831TEA
kgNyJQcrPZBlhX26BXYpZlgnKPsCGWCqbAOYqXh45bwQmqpzkqv2hVC2BUgp
PaDsH6Ho/xf2Fe6V/lHmh9Xn+sL/T/p/RamfhXmlfhHd7yXs9zb6XmaBMG/c
459qgIl4flP5THI7wFjhv7sGyOdUzkc32LpX963Nr90lc2DQlJ4MsJMZYd+T
YQ7SA+KDRkgWGCH5d4TLr4zxkJzk00Pm3VDytzpRczqOsOXTcJxtQtbGWbTc
W0nD2TJc0owxCBjP7DWp3BP+2+8cw3umF1YuFrgFuKNvZYyWiSEW9g64TPdi
upcv3r5++Ib6E54o3qggjuj58STXZBG8IA6vzChC8jIknwqD89Kknxq433mZ
a6/bOX1vNydu7GFrWwNL64oIneWOlYP4skB3AiJmEB4jPt/fk4BAPxwcp+Ls
5EZkVDTTfKbhHuwofiWS3OoIEpY6EVdjgl36LxjHfktgubBRaIz/PBc2Xq4n
f104GattSK2fwLE3EVwghpNdMZzuTBCPk8Xue+nkNU4hZslEdjz05USnP2cJ
Y8lhQ+KqB9N6L5jjr0UvthvRdMaXPQ+V7cRTWX7CU7j3pLbDhuUX9Fh93ZBV
l/SoO6dH+f5J5InHmbVoEG4JP2Ho9p+omf8rU2d8LwwPZVbcMGF6CP4BvZk2
TXh3+wZvvx/wlZwQEtWfqKRhRKeOICptNDFZE5mZoUZYihqhqZMJz9AkJH0y
/snjmRE3RvLWQDRt/84I07/iKN57VnkgwWUzxP/74L3AHc/5rlLKOiAn8f/2
OIv+O+Uq+4Fa4yD8TxH+bVIssE4yE59ogkmMPkbSA1+vu6gcF6ZsAwie+Jn9
bu9jNFP0P0oLizjR/QRlG5qh6lZVSca/67/u3/hJT9iXWabULzK3ekkp/CvV
x+iHr6Xw30/pAeNu9pXqb/pTd5kp60Z7qUp1XkZVdfM/0FZ+1+4HBjn8xBDH
XgxTZeG+qjw8wlk80bQfVdfa8i2dwNITM1h8MgDf5WZ4LDYjb0cEy07m4aWs
YxFNyWtOku95FXtv7uHI7aMUVRdjO82WSbpqqGlJ/jfWQcfIEH0TU8zMLLGx
s8XRVWaqjx2xc2ay/tR69j85TPunDtpeXqN4Sz3mQa4M0B3BjGRfGg+sYtOx
ZjYebaZ+ZzXL1i1iYfVcybTC9QwXfMP98Q6RGRMejLPbNBycXHFy8cDDy5/Y
5BRmz5+Df4wnuYvjKVgZjWvCRNwzh5Gzzopt9zI417mK/Y/X0HBSOV53AeWt
cZTv9mBa9n8Iu150EC8zIInTH2NU2n6JYun9ICKXjGDLPS/OMVOm0yxWnJJ8
NPsbynbrcaYzjpPy+5fI4/jHfLI2mDCrZhI1Z31puunPyg4HFh/Xk+WoR8mu
0eRvGEbmqgmEzB2IT9qvBKUPxjX4J8nyf8fZ40f5LL3wnNEb36A+kn/E30UP
IiplhLA+mlkZwn72EKJzhzAzZzAROcMJyRxBUMZoAjPGESA1Q/rCN30kvtIj
06PFE8lrjTD7Mx7J5sQvDSNEPFBAmRc+pd38Ty9xxr1oKi4F9jjl2ar4dxT+
7YV/W+HfOsUcq2QLzBNMMY4xwFD4V667qxvZzb/eV/4V76OuWr9jJD83l1lk
Ea+PZaKhqiwSpQ+SjbBIMvrKfw+dbv576v9d6nMPfC5VHxj8Q7zQ733QV6q/
4Q8MMOrRzb/o/oAvZfGzqgZa/iI5QKleDJQsMNBW8oLCv+i/wv9Q4b97HwnJ
w1Nl2Tj9wCSf74lbYcmK0+EsPOZH5aVYMlu9WXB0JnN3h2EQPojYai+23FhF
5b6FZNZks/7YFtJLZ2PmYMOoiaPR0dfEwsYMUwsLjExN0dXXx9TcGENTLayd
jeT7CmHZ7kqOvDoqDF3mKi9pf3OXgDnxTHDQxjbETvLfUorXzKVm13Lii2Lx
jvXGOcAJWzdbXHynYWxvirmjJU5eLkwP8MYnIIA5c0vZtnM/u/a3sam1hdLl
RcTODiG7chbrTpVQ154o/iaUE28Wy9Rq4RbHaLu1neW7y9jWsZjaI2GEL+rF
wed+wv4sznRFCfvR7H86g30vozjyLof8FiPqO+w58NGL/R89OPophHU3nGm+
7iB+SDKv9MXhj7Ec/ZhHbK0O473/L+Lr5G/Oh1Bx2JG523Uo2jGZ3PVDSVje
m8iSfoTnDyY4axBBqQPxmtmLaYE/Mj24F+EJI0nMVSchbzKxeWoyN9VIKJxM
TN44wjKGECH8z8ofTkTeUGF+EN6J/fFMHIxX8gg8EoczLU5yfNJQfOS+V+wI
7IMHMdr8G9F/fWZJ/g0unYHfgumS993xKnEV9p2YNtcR10IHnIV95xwbpmbb
4JBpzZQ06YFUc6yTzbBIMO7Wf/E1BqrrL05W8d+9DmiiKgso64WMlXWd8jtf
tP8L/9bJxvJaptJPJn/g/68opZoB0gNf6gv/Sn3hX9F/VR/IY+V+/8++50v1
N++uL30wQHLQAMkDA20kM0gPDFb2oZYcPMxB2U+iryoLjHD8mTGuPSTbDCd/
owe1p2ex7EwExe1BeC/VovpCAoWtgWgE9aRoZyzV7fMIWyT5aY4vG09tITI3
Bl1rYyZqyewzFE9opIu1rZXkMUu0tGX56E5ivJpokJMBTkE2pC2N59zHU+It
Lgn718QHVDJjTjQe6YFEFsew+/peavatZGnrcjxTfZka6SYa5otL0HTpA3em
eNtj72UvuSCKkopSmjdtpOP6bS5eucnlW3c4c/UStRtryVucwbqDKzn/egeb
Lsxjw7kcLrxbw0MO8lhU/vTdI5x7eJSLL7ax7nSSeCFf4X6mcD9TND6eEx/C
yNsygOYbbvK4mOYrkSw5aUf9dUs2PrFi1xsXjhLCgU/B7P7kT1tXGHs+zGTX
60RCKifQ3+5fxCv3IKHGmNwmc2KXjiOjXo2oioEEzO1JaH5/wnOE5Zxh+Cf1
xXPWT0SItqeVaJFdbkhupSkZFUYkl+sTWTQZ36wReCnb6eJ+EX3vJ38/jMDc
wXgm98E+4kdsQ3viMLO/MD4Au5l9cIruh0es/DxmJLb+A1Cz74HmtMEEFLoS
PN8L3xIPfJTzfhaL9587FdcC5fyfn/lX/I+Kf5vP/Fv8E/+GwrbquqMK/8ox
wcp5+RX9F/6Va9QZK7lXZoSScy3jFfaNVGWdbCKvZYZdhuVX/n/Q/uYr/z3/
0AP/NAOk/si/MhNUXugz/188UD/xQP97D8h9K9F/G+FfOY7Arrdqu/AIO2Xf
UeV4mh+ZML0n07LUyWlyo+pwBOtv5RDTbI9+4q8krnUiZa0r5klDyN4UQFlb
OjZJOnjkObLv7k5iiiMZZTAMdd3xmJsaYCAzYIqdBbZ25mjpjGey+kiGj+6N
uei7wVQ1/LPcWXaonAMvDlB/cSvO2SF4z5mFl8yG6Zm+RCyIomxHBcUt5eQ2
zCNIPJNrrA+OoW74xgWSUpRGxZoK9p3aS8fdy5y/1sGZSx1s372fk+cvcf7G
NTbu3cK2oy2cuH2QCy/3c/PTHm507eLmh1YefDrB8847vO16wbOuB9x+e4RD
d8o49ylffP9MTin+piuVY++jxKubsftlhDxfzN7nc5l/0JnAmp8pOjaWjS/t
2d05gw1PvSi/aM7K+65sfhPJhidRRNRMxCmrD6EL1HBJ7ktk6STiK7SJKptM
aNFY/PKGMSO1H17x4nNif8Y/pS/J8rv51QbMrjYip9qQjGWGJCzRY2aZBr6F
43HLGIpzQh9cEnrjkz1IvNMomZvD8MoYKM/3w35WH+xmDcA6vA9G/v/AOOB7
XGYNxDN6hPif/hh6DlAd8++Tq1wP2AffIne8i8T7zHNW8a+wr/L//y/8m8cb
YSw523CW1ufr7irXIlLrvi7F5+uzKPwr2m/6eV2npfh+K/H7Vso6pBRTeT1z
7DOsftd/4f9HhX/JAT0/98CXPlBuv/TBlzz8q5IL/sD/V/Y/3x/wf+B/oPA/
yLqHah/qr/tOq44t/llmwPdMcO+BpeQtr9xJpNU7sOZSDnFr3FAL+RmtiN6k
r/fEf5ExPgsl861xRz20n+QkQzZerSa1OpThkkcmGw7HXrifMsUUW3tjjM01
pCdGMXpCPwaNlIxnq8Zkq+FMdBwmPiqEw28PkNSQj2msOzbx03FM9iSsLIbA
+ZI3jtay/YHMgfZVBBSFyWzwYfHWSnaea6V5bzP7z+/j6uMr/Pb+Nx6//I0H
T5/w4u0HXr3v5Ny1qxy7dIpLDzu4++4mtz+d5+q7Q1x928bNN4d5/O4i7zqf
8L7zFa87n/LkwwWaDmaw/qL4o85o2jtFwx/NpO254v9TOU4mhz4Usf9NJYlN
towL+ReiNvRjp7C/42MAK254kLnfmLlnHKm5F8TCM67k7TSnuHUKRVtscRd/
bx7yN/xzxJdnTBTN1sUjZSK24T8zNeonIueOIaNKjznilfJW6pNba0DqMk3i
l6hLVp1MYPF4vAvHiUaMZXq2zIDc4TI/RhFcPBr/whH45InnEf/vkjwMx9ih
mAb+gobHXzDw/Q7X6MFMi5DZ69Mfc9/hqLsOwivbntAy4b94Gp5znfAonMp0
uXUvcFRlX+fc7von/pOtVPnXXLTcOFrnM//qX6+vqxPSfX0u/dDJqu0Cxso6
Ivk901g9le4r3Cs9pJRduhUOaf/f/H/pga8z4HMeVnqgj7JeSOHd7LPm/6EH
+pl2P6/0wUDxPwOVPKDov5VyLIH4f8nEqv3k7JTtAT0Y7fQP1Ny/wzj0V6yi
+uM/V4uVJzNIavZBLehnDKIHsObqbNE0C/TiemNfMA7X+ZokrfMS/7uQin3p
aLj1Y5x+X6a6WDIj0AVXbyvMpkxG02iEar/DwWN/xNnXDFs/Q/oZ/EDssmDx
z23M270E0zg3rOLdsIhxxL8kjOBF4aw4Wy8zaBMrztRRuFWyQFsVp54fYdPx
ddS31HJQ+H/y/iEPX93l1YcXvP30nscvXnLl5m1Od1zi9pP7PFR6o+shV1+f
p+36di5J5n7ODZ6I53r+7i4vPz7mfdczHn88T/ZSd5JrdDjemUDb+wgSasdQ
ftiK08L/0a40eW4uqy5nYZ87mtEB/0bGHnV2EcyWt4FsehHL0mshzD3lSek5
H+YpXn+PDflbTMhq0MEz61fUnP4FHWFyirBoEzoSI9Fjr+zxxC3VJ3m5aH2d
MekrdclapUfKCg2iK8YRUjKK0JJxBJVMwL9oIr7zJkreHqvqA795Y+W50fjM
Gcn03BEyG0bimDAUe+HfIrwfxoE/4yCZ2V28v0PgAGx8B2EVMBpdT6VfHMX/
S/adJ9pfqHCvnPdTKl/0X7h3ylG0X/Jvlq2Kf7t0a2xThH/JzhYJRiquDWZ2
e3+dsIloK9fHUK61q5wbS9nuK/pvFKUtPkkXsziDz7pvLn1kKfxbYpdmjWO6
zT/xr9T/Sf//1yzwlX+THqptAUr9kf8v60i/zgIzYV9Z/2vZQ9UDg5Xj6iUT
D7MR3zPlJ4bZfctIpz9jEt5bPKEuUyUz2ctyrDgYK54/nKmzJ4ovnMimBwVE
N1gybMa/oZ/ai+ITkTTcmcu2J8sobImSfvoHP4/5M+M0h2DmqIm1hzbGjmMY
b/grk0wGYOQwkcwFsQSkuzPYvBdeojVHPh1g14uj5O9YStaGEnyKQzGMNMcs
1oKcLbkU7y2i7EApW2+tp/XWRlrOr6blRCOb9q3l/K1TPHp9h5v3L3Hz3mVu
3LnKoaOHOX3+HPefPOb5x1ficZ7zous5Fx6epu1yK3feXBK/1M7hcy3ce36W
V123eP7pOg86T1G3P5PsJmvpyRR5T5J7Sr4nt2WyaH+CJOUkjncVUnYkAO1Z
PTBN/Z6K845sfetPw4PpND0Qv3bSn9DVBkSvNSF+rfiWBk1SV2sTIznAU3yQ
beQPOET1YUbWZNxTJ2Ia3JfgMl0y19mT1mhF6hpTkup0iVo6gZiqScwsHyfs
jyZ43hgCRG/8C8bjVziJGZKB/eZNIqBYfKTMBZ+CMXjkjBT+RzM1cSRToodh
GTEI65mDcIkfiV3oAKaI97cNHIaF3yhM/aWX5rjiJ97Hq1DRfgfVNi+X2XYq
9l1zunXfMUvR/m7+7YV/m2RL0XFTzIVnhW1l3ad+pHKdddH9cKUHuq+3q5Se
+CKlR8yUc2fFG6l8k6L7Cv/KLHFIl/7KmPL7+k8t0X+pnjr/z/wr64a+rBtV
rRMV/v/YA1/rD/x310+q7cWK9ivHzijH0CjbB4bY/CI+6AfJA//JJO+/kdno
yLab+aTV2WIp2Smm2oqifQE4i74EV2mz6XE2SRut0Ev+jmlLJlByZhZF7dHM
P5xMaMU0JnkOZpz1IEbp9mfgpH8w1qw345T5o/1XrH01yV2SQNw8ZXvUdPT8
NTAU/Wh5spEj4jDm7l9G6LJ4ZswPkbnrRsDCIObumktKUxLR1RGSS1dTsb2A
BU1Z7Dm1gR1tm7h0/RTX75zn1Jk2TpzcT+vurezZu5MrN67w5uNblP+ffHzE
085HPPp0lwcfbnHzxQVO397H5d/28+DjMR5JPeUMN6QP6w5nklivbJudye7X
Iay8MoX1993k/YkP6gqVHkhm2QVvQqonEVk7mZorbjQ/cJcsPE36wpVo8S5m
iT/jmDeAwMXjZYaNIXjBGFwz+uA3ZwQxi3XIb3JkyR4/5m9TrtE4ialZA4mq
Fd1fZ0t8vRGJq4zk84r2V2kws2Iy4aUTCRPOgwvVCMyfKNyqEzhPR+aCrngf
TekJ6a2cUcL+CJyTRuIQNwKbiKFYhsqMiRyKWWA/NJ3/jrlPX8xmDMLQa6hk
BxPxTuL7JQO7z+ne3uua3+33Fd13yrHDJdsO5yzpgwwbFaf2qaL/SRZYxhlj
Jt5fybbK+k1D4d8gQk3Fv5ZyrWllFoRLFlbW+4v2m8cr631E+5OFfXkNpezT
ul/zj/z30PzLV/5VM0D32//NB/X8vH5UtW3gDzPgf+2B37n/UbVuqLu6vc/A
z/wPsvpFekE5jvLvDLD+N8kqP9F8KZFbNFJ7cpboyVimpg8je7MLniVjyd5q
rzrOqaojmKKT01l0JYLIjTZMiP4Z86yJuBVaMnmGcrywNha+OvhlOrJgcyrp
NYHk1EVQua2ArKp4wucEMXt1Dg7JdqIRmmx7tplNT3dilDIF81Q7eR0v4uoS
yNuSJ+yn4jffl6SaeJqO15K+KIrFq/LZ1baOtkO7OHF8P3t3b+Rg21Y2rF3B
1s0NHDu6nwsXTnL7/jWevn3ISx7zWuqFZNynXXdF/89z98Nxbnfu4TabuckG
rnSu42LnBtacyyJjvTULj9ux51MoBwllb2cA+6S2vXVnPyHslGy76nowOVst
WHnRi/pLriw8aE3AAtHViJ+YEjMQ96xRsvyG4JbVT7zKIPEoI8lda03VIV9a
biVx+FUurY9iqWp3Fe764jJnMCnNlvK5DYlZYSC+y4ioKl3hX5uIMi3pAS1C
ijQJKhD28+V2jvBfKPwXauKbOx6PtBG4Jg0X3z8c6zDx+SFDsQodhlnAQDTd
ejBhyl/Qdu7B5Kk/oif8e+faMWOOCx75jt3beYV9pzxr1bYux2zF90xRse8k
2q94FAfh1U68j02ieJ9YI8m0uhiJ9htEdLOvHz5etH88GqETVPzrRE5SbRcw
Fe1XvFK39+nm3y5VZkma/HsZdvLa/8y/Uj+JVqpmwJc++Mz9T5/rn7aPfcnC
f+gDpfoZKzOgm39l+7BqG7Higyx+oL/lD3KrHD/zsyoLD7b9hoFT/hWrhJ6s
Oh/BJapouhwvGmTCVMlTUTXmRNeakbXFgcqzQax5GMdOCml8nY7DkrH8u+m/
YCvfS9rmYEIqXJndnIhtlCGl2zI48KyJedtj2fekkX0PNpK4ZBZZK7OobquR
3OWPvWhM8/1GsnfPZqLoSfzaZOqvNAiDGeJD3Zi9aQ4Jy5OYVTqL+taVlC6f
y8pV5WwRzndu2cCmxnrqqsrYvnEVZfOyaKxbwsnDuzl3+ghXrp3h9qNL4o+u
8/jDdX77JP3QdZ1b7xT299HxqUE+ayWnOovZ/yqfvS+KWXEuhsbb8Sw+N5VN
L73Yix+bX7mx9bUX2955suODJ9tf+1O0X+HkZ/K32rDkoCuJNTLrA76jv86/
YOj+K47hw3CJG0BUuTpzZF7WnvZl5+Mk9r1M40RXrviodHY+CaShw4XUJn1M
o78jaOEEUhrMiVluROQSfSlDQhboiO/XIlDY9y/UYEb+ZHzzNAiaLezP1iE4
X4uAHDU808YyTXyOw6zhkiuUGoWRZF115x8xFt038ekjM6AHY8WfWoRIjs6z
l94UvrOU47yEcWHfUbnekXLOw0zR50wble47iudRdF9hX9F+q3hT0X4D0X7x
/sq5oIV1PeFeJ2QMmiFjVfxrhiv8S19EaWGi7CeUoKzzMVXpv5If7JLldUXn
pqY74Cwa+f+Hf4X9L/wr1ftzD3zthT9sJ1a2jal6QMkGFv+gn6WUhTxvJc/Z
/MAg2z8zxPFfccnrz6qLIfLdFFN7NpyoZYayDEYRttiKWdVT8CvXxb14FEmi
e5s/5FD3LA6vRvmc+f1YeDGWtY9KaLpVQsmuVMZM609AqSMFO6PxXmDObMkG
Ne2llEiGnTHbn+zGOcTXpWKX7cDsffnMWhvF5Bh1Vt9o4CznRFNXEb8yiUV7
ljKnqYTUxVms2raGJcsrWFy2gJa162jdtJkV5WXUVpRSvbCAqgWzWbN8IXta
Gmk/vJPzF45w+WY7t347wz3JvvfenBX/c5arbw5w+nkDrfdyxOdnsP9jNHXX
vdj0WxKNd5IoOzEdt0U/sOCMPpvfiLe550jdbVcaH7uy/qkLq285ktykgab/
f+CRNYLc1XaEzVPHTBgbrfc9+jbDCYg3pni1J7tupHLsbabk6XROkcUJ0jjw
IZotj31ZeclW5oYBBZvNcE3rJ7PjO6KX6pK40kJuTYmsMCGoTB+/Yh1mzNOS
rKSOx2w1WX6aBOfqE5gpfZGtTlD2JLxTxGNFj8AubCjWQeJ5/Iai69ZHqjdT
wkZJDcfASzLY1J44xeszXfy9q7DvmCG8Z4kfzzLHNlMYzTBTbee1FY9up2RU
RbPF8yvsWyeYifYbi/brYRihJdxPEu5F95VrogaNRCN4DBphov8yD3Rnqnfz
H6t4f2Osk8xV7Ku8T4rMl3R7FfvOOU5/4P+vwv83Kv6/9sA/eSAlA3ynql4G
P0gOVthX1of+XXW8sOqYYeN/qOpXw7/TR6qv/LyfPB4gPTHA9Hvh/lv6mH8r
PdBT5kAv6YGe4n3+zGTfv4nfsOHA60yOdOZRcdSbiEp9mYHjhH9bAufboCk6
MsD8f2AVN4SMza5ENpsR0mxC+bUEtrwvZ/u7xSxsn4nXfFOsUnSkVyxZcjqX
orZ4crfNpOHCEpkBO/Ep8pO5Op35eyvFV4kX2j2f+cdLiW6KZO+73bR/OsYR
ycPrz22i8egGFq2tZn7NYpY31FFQOI+s1GxKC4qpLCllSfFc1tdXsbWxiu0b
ltO0chGtLWtUfujYiR20n9vB2Ru7ufL4ALeeHeH6szbOPdnK0d+W03Augv3v
Emh5HkLFaWfW30ti9ZUk5uxwJmzpcCpOWgv7Tiw8b0H+AWPy9hnI701h0WFb
8tZaYhP2C9pO3+LgPxRzF8n2U4Zh46SNi5cxhYtDOXBlAadeF0s35wn7KbQT
J70mOeahD/UdTlS2W8ps1Gd2kykJS/UxCvgG19QhJNfYkrLCgfjlU4haYkX4
QjOCSwzxn6uPT762+B3xlhm6zEjTZEaqOj6parjFjcEqaACWAYOE/UEYePbH
yHugPDcS25DRmPkOQcv1V7Q8BjItzULYV87vLJ4mQ1hPF+bThP3P22OVbVOK
Xitlnaic/9xcbs3EH0juFe9jJNqvH6Yh7IvXDxqnKo1A5ZhY6QPF/yvbwoR/
feV6AXGGkofkNVOVbQc2wr94qVSZO8L/tKypuEh95V/jW+H/b5IB/va1B37R
+xs/634p8f16/1BVL70f6K2vbAv+jj6q/aSFaeO/0/9z9TP69mv1Mek+hqyv
mcxnq7/Ry+wb4f8XedxH5kFvBtj8XT5TL2ovhHKSAhpvBJKxwZygxbp4FeuS
0jid0PnOTLIbwhDNnkyy7IexLE81v59wnq/LgnOZhDe5MfdQBMUH/VlwJIaU
TWEELXPlkPjrve+b2fiohjXXlgoL7azpEL+zqZDE1fmYRE/Du0Rmw/mV7H7Z
wqaba1lzajWX312l9dxeljWvZFH1UsrKl5CbV0ByYhrz5hRTUbqIFRUVbGyo
pbIsn7plhezYVE3LxmrJALXs3LWG1v2N7GyrY++JWk7eWMv525u5cEfYv17H
tosFFG52oO7iDPJ3moieG1J7Jp5lyvquJncKG2yp3GdPbqsGydvVyJLfyd05
hfyWqSRWmxOSMxl70QNX71EEBBkT4G/PzDBfYqICWFCexqKVcWw/U8CRJwUc
fpPOwQ/xtDwNou7KNCqP27Nwny1zN5ur2FfWe0aUquMQ25epicPwzlGXbKpP
SLH4oDIzIheYElwg/OcYCPcyDzL1mZGui0eiOq6xajhEjsVx5nhM/YZgHjBM
VYbCvqH3IHluqHifIRgo57YxEy/kPxF38ZyK77HLMFdxbyvM2yYZY6tk1ERj
1T6Z5rF6mMUaYBprqFp3o2i4iTw2nKWLbriG6jrrGsq1pgPHd5e/cr3pCdIH
apKBle3BMh9kThjI35omm2Et+cFGPL9d2hTxVJI3Mhxwy5yq6oGv+39qffuZ
e2UGiA/S+ZPo/59F9//yuf4q2v+tSv9V28L0pQ/0v+wP0Z1x+yh5QNkmpto/
SH5m+MULyc+UPCz+R9F/5fgZZX2pchx9f9F/zYC/U7rPjX1vMlh42ImkRkOC
JHv5LdJj6ZkU4lZ4Y+ilJuwPR81iIA6SfRLrvAhd6cyYiH70nvYX8veG0/Z+
GfverSCgSvxliRnrH1TR+rKRPW/WU3Igm5rTFex/sY81lzcQX5uLUaSLLHtv
5m4vYu2VNRRvKWTBplKuvL1O2/nDFC4sobJ6OZkZuQT5hxIZOot5+fOE+0Y2
rq6nZnEJUSHuLJyXyJbmcvZtr2NtwyKaVpXR0FBC47p5bN5ZxO4jC9jXXsau
Y/NZ25ZJdWsgBRtMKNiuR9q6CURUjSSmWpeKXQFU7vQjsnAocxo1iK0fTvYO
Q8m6NoRWGOAtvju/LoiGXfnSl9FsbSlj3956WneuoW3fdsqK51BVJe95hcyo
2ghWH4qj6fwsFrY5i6bok9igRcxKTaIqtQgrnSz5dSIBBWPF04wkuFid4CJd
YV9XdF5TZsEY3DPG45U5CZf4MSoPYx86GoewcVgGCueBQ7ENG41l8EisQ8fK
/fHynLJNYTDa7n3Rce8vc2AAOm590VTOk2nVS7y/Bm7ifRwyLWVGG6tKxb9w
P0Vy6pQv+/bH6IvPF+2ONsIsRhiW+0Yz9dAL1UI7SF14mYSGv/DvNwF1Vamh
Lr2lEaCs/1e2B2tJ/tXFOE5ZH2Yms0XZfjZFcq+dSvt/59/5d/5V7Cvc//kz
+38S1oX/r/UXefwNPQ2+Ef7/2r0tQF/8vsGP3debNOopvufHr4/7fL7/q4Hy
/M/8qvxcfFB/8+9V2wAGWP5dbv9CX/P/hprXfxG9XIe6cyFUn/KleK8LfgvH
MWPRJLY+X0BeSwTGyr5908bhHGVC9CLFvyTiU2HNX63/nSlz9Gh9VU8H26g6
lSE9PwZn0bDEZl8CFjuSuCYEnfDxhCz25eDrNg69aqfmRDNus0MJK0+WPJBL
1YFK1p1dx+LNFVx+eo2rD2+ybOUKli1bTkhgGF6unrg7uODv7k1OUjIzA2cw
K2g6dmaTmJsdQd2SbCqK4qkqTZY8kMryxSmsrE5iTUMy6zaksL4lmdUt8SxZ
H0B+rZVorx7ZayVzNo5g1rJhBJeOYu76qSQt0RI9/U9iFvVnZsVAyaFjCChR
I7TEmtyVs9h/eSNnb+2XbHGYW7fb+e3xeR7cPyt5+xhNq6upWjyfouIEskv8
CMnUIyB/AjMKR8l33wvHzH54F44holyPmEpTYhabEFuhQ0KVvvgeC2KWmBK2
wBC/Qm0C5+nKXDAmvMQI3xwt3BLVcImZhIXfcMbbfY+VcO8Sq4Fd5EQV/0oZ
zRiGgfdQ9L0GozddqYFouvQV7zOIyS6DsRFNdhbPr+i+tXJuf/E8NtIDdomG
TIlXygjrWOXYFuX4XkNMZxlhHGmAUYQ++qE6aAdqoOE3ickzJjLJewJq3uOZ
5DNB9Vjdb6L0xRf+tTGUfjGXvGCVYK7y/I5pdt2+X9h3Ee/vKtrvmv07/z8q
7Gt/Zl/vz/ws9YuhMG/wJ34y+C9V9TT4Mz/Kcz8ZSg8Yfqva/0HxQb0NlPqs
86r6SdUD3f3QU1V9pPpJDwxUtgmbSiYQHzTY6j8YbvffsU/oR2Kt+NZtU6k8
5iNeKITYVeIzl0xk3eMCqs/m4pRmiK7PWHyypwgrjqKJYRQciCNmvT+Jm4Jp
urGI1Rfm4aV41SWWBFXZ4rPAkt7W/8Ughx9Ux9cn18ey7fZWNl9vYef9/Sw9
VM/K480kVqWw+fxmGg83k12ey+ELRzl39SJrGptYNH8h/tNnECjc+0x1xneq
Ey6W5tiZaDPNRg+jyYNIj/WkqiSerFg3chM8mZvhT2leIAsKZlCxwJea6mCq
VgZTXhvE/NoZZFdZk7famNxmbdLXTCC6aixB88bgEN0bDef/G8Pp/4ZrzJ/I
qlWj+sB0Vh1LoPFYCbsurOX0rXZOdxzj8vXTXL3SztXLh7lyeT9th5uoWVbA
/PwEKqWnY1Nt8YtXwz6iN7FLZM6stiSp3py0BumjtbL8Gh1IXmEm7OuQXK1s
/zUlo34KYfPF38xWJ6bCglkLTYV/Q0IKDQjINRTPoyW+fjBqjr2YGq2Nvfhs
E79Rwv1wDH2EfS+59R6BrsdQNFwHCvcD0XYbLOwPYtK0IVjH6IkHUfyIZNI0
o+5KNsA2QR/beF1slHObqM7tI/5npuh+pPAfro9hqPieIC20/Caj7i3se45n
osdYJriPQU3uT/aeqJoBiv7rhCjnddDGdKa+9JKp9JYVU8XzTxX+u9mfKrly
qmRAuf0D/z21xeMrpSPariul/1fJuH9VnXv1J32lB6QvDIR9qZ7Cf2/5WR+j
v9HX4POtkneV/GuiHCfWfXxA3y/7iCpl0IOBRr0YZNSb/gbKOqHvGGz2J1ku
30q+0mL2RgfSGo1F+x1puB5JznZL/JdOYNnFRKrP5BBS5ojvHDsSlweQvNpP
8mEm636roPJyPvrJozBJGo1J/ChsM8eT1xpEyHIbEpu8GOf9CyNcexK11I9V
p6up2FdGYHEAjeebaLq4Hv95wczI9GXd4XUsbFjI3ErxN63KddTryMrIID0h
CSdzKzysbXE1NcPF2JBZ3tPwd7bE0WQSmiN/xt9VPEq8JzP9zAn1MiQ6xILE
KGsSY0xJSzJj9mw7CkrdSJ7rQEy+FYmlFsQu1CGwcBDTc3/BMeVH8d4DMAsS
fdD/VyY7/DvZ1Vpc65zHTco5+qSU1quLOXl/GxfuHeHIyV20HdzMntY17Nq2
XG6rOXRwJQdal7KyIony+UEkpZoQlCC67P8ds+ZPImeNjWrbcuYaSzIazEmt
N5aMq0VclSZZ9WYkLTMmtdqatBp7kpbaklhpy8wSY/H+OgTNFt+fpY99+DjU
HH5h8tT+4oe0xOtPEF86UjzOUNH5QWhLKbdqDv1UpSmar62ce9ZZ9N9zuOoc
5jbyvizTTTBLMcAiWRhVzusWr4d1nJ7qvA4W0Xqi+7qYROoL+3rCvuTdYPE9
Aepo+IoHFs2f6DmW8R6jGeeuXFtLud7oOCaJD5ocqGz/1ZB5oYN5lBG2cRay
XG1wTpmCs2qdj8K8E1OlHJUeyPmd/15aPeil/T29tETTtcXb6EgpmVfJvor3
1/2m+1b/b+J9FO2XHCu9MUDmwSDJvwOV3Cu3fY2UDCw+R/x/f0PReQOlvmOA
zIlB+r0YoNeXQQb9GKFcj0l+pubYQ7RPm5Q6IwIXDiFtgw4L211JWG+AT7mw
vNWHpDoPgucLQxtiyGkKJ3mNr/RFLvX35pF3KByd5IH0dvkfGCYMY+Fxmf07
fAhbYU3V6Ux851vKzLeSvJfMsrb5lG6bg4d8/qQVMaw4UY1dnI34WlvyyrMp
WTaPJbWLqVpRSUJiLHbWVgR7e+Nha4uttibWGhMxGjOUqXpqOBmpoT9GZvvw
nphM6of7lElMs5uAh9NEfL008fXVwMN7DFPdBmLn2hcj+x/RtvsBU4++qvWE
Rn7fYRz8X9jFf4fv3JEUrptO+bZI0dVh2IT8RGN7ENcoFE+Xz+GnOey6PofD
t5ZxpGM1+44I6wdWSt4uY+/2crauK2Bjcx7rV6XTXBPPomIPCufJnIwdgZHr
/yB09hiZJZbkNU0hc7W5aIielDZJNdqkLlf2czMha6UtWTWOpFU5kFhuS8Rc
I9U+cr6ZWninauIWpy5zaZD4+J7ouY+WOTARbdcRwvxw1JXr59j1Z6zFL5Jz
f2acVV95foT4//HSA8q5aMcKy9rie8yxEL9jJvpvmirZVvi3ShTu4w1Uvt9S
8f1RyrGNwn6ELgbi9/WCxc+I59cSv6/uO0H4H6e6lq5yXdGx7sNV15VTrjE9
yU/mQPAktMM0MYxUzo9lIn7KEqckW1xShf00RfudcPrMv0O28J/7B/4n/8LP
aj/xyyTxKpri17V/UlUf7R78qiM6rtuD3tIbv+oK2wbyvI74d5kVA6U/lGsm
9tcVxvV60F//R4aY9BbmJd/q/sgg+dv+Wt+parBeb/pp9mGg9hCG6g1nsE4f
xlv/wtTYYaLJw4TVXsStGUtmixFxa43xFN8bVGRCSJE1ycu85PuLJLDEHv9F
tmx9sZQNr8pY/dtscg/5MzrkO7yXmLHl+WIytk7He4Eeqy7mk7M2kFnlrvIa
TpIp45hZ6o1TghlptdHUnVhCem08oRm+ZBQmULAgm+q6cvLy0wkO8sVETxvd
ieOZPkW03lAL0wnC7dgBmIzux+QB3zOh73eM7vVXRv76DWMGf8uEMd+jo9ML
fePeaJv+hIbZD6ibf8cY/f9kuP6/o2b7V4w8ejMldCiOMYPwzB5Mxipj1l1K
5Oy7ley+tRDP9AnMKtVn34MsTn9K49jbWJov+rD+Uhi7b2Zw4nYZh0/PZ8eO
XDY1p1NbEcHK8nDW1SWzqNCHYpnpC4vcKCpywDOgH6YufyEwfQxJi02Fc2vi
FhsTu1ifuCW6JCwR71NhRJL4nAVrfandk8iclT5Ez7MmfLYpobnGBGUaMS1a
HdsA8RtWMkuNezLZfoQwPxp1uxGMM+3LOLM+jBJvq2Ypy8VmEFp2w9FzHYfm
1DEyy0ah4T4eozDxPulTRPPNRPvF92SYYSq6bxmvj414f1vJqtZxpl89v0FY
93HtBiHq6IivURfvO9lH8TsjVddVVK7Dq1xrdJJyvV3lukeiNWqSi7WkZwwj
9VX8W8WaMVW0X+F/aoqdSv/t0+xxUNZ9znbFJdflK/+adnpMtNRgsq0mEyzG
01+jD70n9JRb5XrBPRik3Yshen3opy7+XbMnQ7V/YYzer4w37M94o4GMNxnG
WJPhDNMbyBBt0QKTEWjZTsR8mg5O4gs8wmxwCjTFOcgW91B37L2mYmCvi5Hz
aKbHjyFlmQZZTWrMbtFiyQk3Cva44TlXsmCUGsmLvVnUkkJ8lTd+xXYkNPiy
4ko+iy/Gs7NzIdvfleG6QBOPMhPW319E8Z5I6XM1shpnsGh7HMmVnoTPsSd3
eRjGXqMZadGTyGLx1e0VrDpYQemKXCqq57J0xXxqV1cQGOyJh7sz9tZmaI0f
JV5fBzONMYzq/S0jf/kz4/v8jVE9/8KInyTDfP8n+nz3Hwz4Vfpg1A+MUxc+
xONpWosHsOrFROteGIlO2QePx9pvJPriiafI/YSFTqzcH8vRhxVc+tDAla4t
nH+7lcqdKczI0qXmYDj7n8Sz42EwSw5bsaTNli2XQzl0M522M6Lza0NZXRPC
wkIP5ue4UTHXj7xEW9JihGfxEpGzxjEjRHosfCBBaRMIm62Nf6a6+JhJhOZr
ip8fj3/2GEJzNMWTmVK9KY5dpxdSsiKMyEwbIjKs8I3VY1qYhnxv4imcRzBI
/e8Mlu9+jMlQRhoMZIzhQEbr9pXqzSTTAWhZKef5Go2u7Wg0rEeiMWUMei6T
0fFQR89PV/TdXHhX9t806d4nIdEIO+V+pPwsQjxQtDnms8ylVwyFey3MZAYY
hmiiK1xrS75VU66jq5zPX7mmqNtwVU32Uq77Mg51ycAagcpxkDoYRSrzxFz6
yrLb+ycrpaz7cZA54KiaA65Zzrj/Yf3P1kPKeVt3sPnQduq3rmZ2eR6Jc2IJ
Sw7ALcie6SFTCYnzJio9gPTCGHKLEsnMi6GgJI2yqnkULconJT+J5PxkiiqL
WL2pjh0HNnP07D6u3DrJjbsnuXhzD5fvtnHj/lk6rp2m7dg2mrYWU7MxjNrd
7jSI72k878X6a7PIXu+MR44u02IMyFgaIvM5HNd0YzzEP0dWe2KRNp6Zq6ew
v7OCts4q6ZkUYkS7Kg7msnh3CsFzrQidIzlzuR/FdRHUbctlUX08vtGm+ESZ
snRjPns7mmk9s4a1LVWsbqygqrpEagEBgZ7oaE1Gc/IE1MeLvxw9mJH9fqRv
j/9icM8/MexnpQe+Z1Sv7xndR3RvxGBcnayITw7Bf6YL04It8ImxxzfJEbcY
W/zT3UhbEEZmaTgpRZFUrS/l9J3dPOg8zmPaecgx7ned5mHXZe58uECj9GTO
yhmsPh7GmvN+rDjpwapTnuy4Postp2dSu8mHRUtcKSt2o3pRGGfFD10508Tu
LQWStz2JjdEkImoc0SmTmJmuTlSeLlFzpC/m25C+2JGUcjsiZusRmKFOcJIe
s9JtqFqTQv36PGaXhJAxx4/kbHmdNBd8I8yxdZNlYTaUERq9mWAofsd8AmrG
Yxiu0Y8J+kNQNxqKuaN4Qsk+Ni6Ske0mYuNhiG+MKzOi3XAMsRHPJ/ony8Ql
yR67WAtsxZ9PVfRZMpJrrBXO0dbYhJljFmKOabDMgSA9jPw10Z8xWVW63mpo
TR+PtucE1a2ay0jVtXA1PcahPX0iujMmoeuvjoHkZBOZNTbCv12CNc7CvaL/
rqnif5Ls8Eh1wks+l3eqM77pv/P/9OMHnnd+5OnH1zx8/Ru3frtFx93zwuxJ
Dkve2rqzgZYdDRw9voPzFw5y7Mh2Dh7Ywon2Pap9Hw8f28vBo/s5deEEv718
QBfvQVWvpV5C10O6Oi/R+ekcne875PEdef4Wb18f4tLVcjbvD6J+lzM1u11Y
2urNzDIjwufZUrVtLiXrMpkx257gMnfm7sikZG8+GkFD8CjU5YD4oIPPl3Hs
xToO3NnMoTst4pM3sKV9Kev2lrLj8GKOna3j9oNWznWsY09bFXsPreD6/QO8
+NjBs/dXePbqGg8eXuLixaMcObqHpuZVzJwZIV5Gi6FDBtG75w8M6fcLowb1
ZtywXzGYPBJ3O1MifD1ZvngRJ48e5d69u/z24iHnpdc37FtN464aWo6spfX0
Nk7dbufG0w4evbrPs7fPedP5jk4+IUtcls49qQeyhJ7whrdS7+TxK3adaWZu
gz/z1rpT0xbJujOJ7LqWx/YzuSxrln5uTKLj0kaePTkly7F7WXZ+OM2jB1s4
c6aS7bszmbvIicg0beILLEgqsqOwWl5vRQilqyMprY+goNKfkspIltVnsW5z
GSnp/iSnBtLYvIi16xdTXZNPsjwXHuWOl789BubqqBtOYKzWKEapD2PoBPE+
6gNQ1xlMTn6kfP8bWdVURsH8JEqX5tHYUkPN2iXklqaSIpqZNj+e9EXxxBWH
EpLpJnPJhbyKaJr3LGXN7mp5j1G4zHRmingE+2BzHKQXpgQai/cykudMsJgh
PeGujvbU8TJX1OR3zOTnJpj76GIXbIyTzA67CPFRMj8cY6yYmiA9JzPRLVm0
KHMaXomO4nWnk1ocJlqYw+K6jK/8n+q4wpmrVzl9+RIXrnXQceMS7ScPcE7Z
j+VyO0cOtrCjZTVHFE3fv5nG2gWsrS/jyP6NnGzfyfWrJ3jy7BbPX97hU9dT
+T6eC+OP6Pp4m64PN+gS5rveHKbr9X540UbnszY+/tbKm0cbeXS3mguX8th3
LJr1+0JY1RrO7BoX4kpdWb5X/HhTJj5FrlSeKGPfm13sfLKN2OVBWMwczfqz
Bdz51Moj0c/noqRv+I2XXbd5+OIMV2Xe3Lq1hwd39nD7cgu3O7Zx4+J2Lp3Z
yoXT23nxvKP7fSr92flM1audXW+lPvL8+Qt2795DZmYOZqbmqE+aiI7GJMnE
pqxYtoinD2/y9pXyt93/dUl1qqpTXuWZvI8nQvILqTeqa+t2Ce//9MvK73a+
l7uv5SevePvpDS/fv1Odn/d11wcevLrNun1LKamLZdmWDPZ0VHP+6VZO3t7E
kfMbePTsguq9v/vwgPedD3nfdZ93H6/x5vUZnj0/wsNnezh5qZ6K2ijS53nK
951CRUMu5fV5NO1YypZ9ddSuXcDWHdUcPLyOXbsayEybSWaqzJgNdTTULSY1
SbxQhCf19YtZ07yC6LgIbB2smeI8hZiUmcQmhxMiXtbDw5IVK+bx/Nklbt0+
zpnze1XrqE51HObgyVb5N5rZLrVl5xrKawoorsykdsN86Y9FbN+3guPntnH5
9jH2n9jG0jWLic2bRU5pIsuaFsjvyb/dsowtB9bIbTUlVTlkzIslbW4085Zk
MX/ZbBZIn67cWEbNpiKSioNwipQ+CDOReWOFm8wbnzRnZuX7yvyNZOOuKk6e
3cKVq6Lbxxu/8r9+63aq6xuoWrmC5vVNbN6ylqbGGupWlEvOqmHr2uWsXFJI
XYVSBZTlx7JkXhy7Ny7h7tU2Pr29Kt/rfflOHkndlfvC/Kcrwv05Pr44yodn
+3n/cBNv767h7W2pm6t4ca2alzeX8fp+NS8eVHH3djlXb5Vz5toidh7LY8Hq
WZRvFW/VUkBBS45w38KhD7JMXx1m3fkGsldEcObRelHN89Jz9/nQ+YpPna/5
8OkRvz2+yJ0bh7l5qZWbZ1u4cmwdV6VuntzK5fYW9m+t58b5w/DxmejmUx7e
u8zljjPC/W/C5e+ovnj5jj37DrG0chk1y2U5bNrAq5dP5CcfVSB3CsufpD52
dT/zoeuTdMB7IV6Y/vCcDx/f8vH9Wz59fMnLF4+5e/MuD+8+4+XT17x//UKa
4CVdXcp8fM/btzIB3r7j4ZOH4hFFjzqOsvvYZvae2syFB0e5++YyV+Vz3X1y
m7cf38nnlSkrPfSqU2ZK1zOevr7Dw4dXuC4z++HTi7x8e43j53eKx1xGc0sd
NY3Lhb8lrGhYzcqGJiqqqlhYVkjhnBTyshJZXlHKoqLZ5KbGExPmi42ZNhoT
h+HtOZXQUD/8/X0kG/nL35Vz8lw7125coL19t+hBMRubl3JWmD8nvF88f4DD
R7ZxuH0Xx07sZe+uTWzbsIrG+goys2ZSXJrC3rY1bGlZyurVJZLl6zhyeCtb
tjWwSjgrFs7mlGQJi2XsObiVc1eOceHqcdHlE1In6bh+ipPnD3L01B5Oixfp
uN7O5ZsHOXxmnfRMPnGzZxCZ60l0oS9xRYFklQtHq3NYtb6Ei5d2cP9mGw+u
7+PetZ1f+V9eu4r5CxZSOFf6c16+eMvZVC8ukvleQNPy+WxZJX24ZC61C/Ko
K5tNTXE6FfnRLJcc0Lq2nCsnNvPy3hF4I7r07jy8lbn85qjcPyo6v0O4X8+H
2yt4c3kBT8/O48mpQp6enseL8yW8ubKQF5cX8fDiQh5fX8ZD+b1bV6o4caqC
Y5caOXp1Mydu7eLsb8e4KLp37fUNLovWXHlyUki7I+zdFo4eCIhP+fDuDk+e
nubxw2M8fdDOq0ft/HZjH9dPbuLknlrati3jZNs6Lp/Zw9P7F1R/0yls/vbo
HjeuX+XFi+fCfxcfBeb37ztVfCv/fZQnPnx4z0vR/LdvX/LqlfxbH99Iv8nz
nZ+E/S4V/+8+dfJWdPzFy2fiqW5z/dpFLp47xpULh7l4+gA7WzawsmaFeKxm
zpw9JTPoEe/ePeP16yeq/njw4C4dV87L99su/B/j8p1TdEhdviuZ6eY5Lt+4
yOUrV3j0SLzT24/C/ydh/414uSf89vohj54+VtUL6a1Xb17w9MUTHj97zP1H
D7j14D6Xbt6WeiDafIfDpzpYv2kzpaVF5GanUVNVxrLyQlJi/An1nYKj1WSM
tIfhaKPDzFBvqqQ/WndtFf97Sjg6I37xFG37t1FXs5AVS4qoWzafhuULqFk8
l0XzsqipKGLNysUsLc1ncXEmKyoLqBJftHt3nczlQxxv38TBvWs5Kj764L6t
7G7dyPK6CvLmZZOdn8fiqkpWN61m255tHDp+kDOXzkqWvM7te7d58OgOj5/c
4tmL6zx6fJpz57ewd99yWrYvYv2WYpo2FrCqOZc16+bQsqtcNGwZrTsr2b+7
iiNy/9SRWk4f+13/d+89wPbtO9m8eSNr19TK+65gU2M1e7bU0yZauXttNVvr
y9lQU0Zz5XzWlEsvyGcqy4hkbnIgC7MjqF+UQmtzMY8vbxNLcUyqTUb0Hj49
2sK7O428vVbJ245S3l6az/vLZVLlcn8Rby9X8Kqjiifnl/L4gvB/oZo755dx
W+Z3x4UmtrUspLZ2LvUNFRw5Lr377AE3H9zg3uPrvH6ncC8z58Ndut5Jnnhx
Xlg+yotnJ/n45qI8d5kX949x99IeLrVvlZzYKn3Rzb2ou0p7u8RvfPz4XsW3
wnlXV1d3CfyfPn2UUrzLJ5XmK7nm/ftXMgOe8v7DK9VjRe+VDngrGerVu488
fPxUPOMVjhxpk/e+lvXN1WxZV82+nY20bG1gSeUC0dAKySLSl7evc//+Te7c
uSK317hx8yIHDu6mZedG2s/u58a9s9y6d0Yy0lHaj4ueHtnNqROHZVZdkMxx
W77/x/LvvuDFu4c8eHqDa3c7uCQ9d/O2vObd+8KZ9PXNO8LLQ568fMHjVy95
/PYtd56/4drjF9yWPjov73Vn63bVcQ3796xnj+hx/fI8SgujJE8n07CyiH2t
zfz28KrS4apl8U6Wwe3bV2k7sJNq+TyJMeKVAsRbR4cQH+ZHVIAn6VGhZItn
KsqKp2pBNiuW5rNPstHLVxclB97m8aNznG5vpb56IfUrKjh39hgHDu2icvli
alevkhlxgDXr19Cwrp520ZDLN6+IP7jB7ft3efHqiSz/B7x5K/Pw3k55HxVs
WT9H3nux9NIC9u+cy87Ns2ndUsj+7aXs2VrKgZ3l8riEzevy2Lm1iL17qr/y
//jpC+7ev8+Va1c4dUpy4MFdnDzWyoWT+zh7dBcHdzSxZc0yGpcvZPXSMlZX
ltK8bAEbVy6iblE+c1NDSY10Iz/Zh4PbK3jz8IDwf5hP4vF52srHRy28v9PE
hzsNdN1rhPtr4d46Pt1p5v2tZt7dXMfL62t52LGGOxdXcetiAzclr146s5Zd
2ypZ21xOo/Tjlm0b2N3Wyva9LZw4e4gXbyRvdN7nzcsrPH90hkf3T4n2n+P5
08u8eXaVBzdOcKR1LReOtvL+ifiydy9UXkO+AFV1fRJv3vn+s5/5pPLpnzo/
yAz4qLrfJU7mk+TVD8L6h08vRetfSj+8Fk/zmrfv5LH49o+SGRT+30j/PH/9
jjv3H3P23EXRo1bWrV8lM34JG9ct51DbVlm2B2k7sk8+w34On2zn1LmTnD7b
TkfHae7dv8p10fdtOzZJry+n7fAuOq7K7Lgq2ndGcv1ByV8HGzglunnmxHbO
nd7DDfEET55c4/Fv8rc3j4nf2MzO3atpVTiWZbRpyzrxs2skD29h14HtbD+w
jdYje9nTfoj9p45z/sZNrty5x/4jB9ncsp7T/5Oo935qJM27Pf+Z/Rs2Yn+5
Ebs/7L0b9+5szLzz9kx3V3dVV5cviioK7713wsshAQJJyCAJSUiAkBBGIGGF
E95774oqyp09mT3Tb0dkoKZAynye7/ecz8l8MpkN4vhwCWtL5IrIMLVkGRdn
G/yMbfrdtZjav/FYP5Hr9g52mA9n2eNOlJflo6IkHxqVDNomZmdFPfTsca1K
Sj+oRrO0BNLqLNacib61iS9fD3D/aReR2WGoFRI0yqr42WPY2lnBOHNnIOil
D05hataPwJgTM4uDiKyPsVfHeJzM+SeL5OURLFEfQ8F6uBwZcHQkkbNS0etM
ZZ1nYLA3D/2uAnisBXB3FMHnrEKnsQDNyniyWA5zTtWf9X92fYODszNs85hW
1+mxq3PY2eZn7CxifWkS4yN97Jt25qImWA1t8HRZEQ4NYW99AevzIfRwfltk
RfS8AvaaGodrPny5mCBeB/H9OohvF4IXjIrb94sAvp8N49sJM8HRILdhfD4d
YRYO4OooQH0exvkB33uzD4szVixMOzlO/Rw7F2ycyw67CW4fc3ckiMubTdzc
bZB7Z3C4P4m93TAz2DwW5kbInZ3w2NvhMDA7TrAfBd4WtJyM8p1sw5hL9hHa
4BN74JPYB9/ZG9/4+itfC3X/7Ttfs77vOff3Xy+ptWfM+NTaw12cnR+RdW5Y
Cx/EjHtPv/jw+RvOru+wTe2dId/0D/WyZ63wDzgRGh/kfLLmlyOYWozAFwzA
5rKjs6sDI9Sb/f1Vvuc+wrPj8HjdGOhn3p3yU/MdGPA1wuepwnhQweyuw8KM
EZPBdoyPmqmhPQiP92IsaEaAmXlouIVeIXxeL7OnBVaXAdZuI9qszVAZ5DC7
jPCOejBOhl+k/yzv7WFwPESt7eDPu/h7w1hfm8fHuzMh0YjbV47Dp68fccu+
v/xwg72jA8zzGOYi8+TUSfR6ujESHMbySgQbq8uiP60uL9KrJliPZjTLyiCr
y4fJJEVfvxGjY10YDjhgZiaoqSRH1JbB5+3ie5Lv12YxMzvIfujD1i4z3F6I
n+Mhc/Vjds7D7/eQKbsRGtGgr7sUDmsKLO1RsLY/h7ntEWztTzDiTUV4tASD
7hzY2hJh1/OrNg+q+ljUVryCtjkVhrb0P+t/cWMdS5sbWNvawOYOfXhnHTv0
5G368TSZw0Pd7fV0IRgaprbNYGNzDaenJ+TXC/bIOkKBPvRynL3kpYFeLeYn
HLhgHvh4OY3PN9P4ejODr9fz3Bbxjdt3eqDw+vN5BPcXEXzm609kl0/C9+/X
cXe7yEw6Qg/oxvKsE3Oc417Ood0ujN0AM88CNvcXcXGzxfrfpr/PY2llmOMz
wPoZQo/bCBmziry2GJ3tTdiMTP2h/dR7is8fofWbUP/fxbr/Rk3/Sp4X+kDw
B4Frvn77+EeWJV/ffb7E7cdjnF1tc45nqDkBbG7SYz5e49PnD2JtfKKffOJ7
fvj8Hee3H8guu5hZCjOnjWBqbpxZbQ7hpQVMr6xgYmkJfaMj6OjqhKXTAE+f
HYuLzJQbixgm/7i7HQgN+3G4FcHWyhB7WQqHLZO8XY7JUDVmxuWYCakRGmpC
kLkm6G/HUJ8c3fZ86lo5gvSKGbLeXGSM87qA+c15jISHWeesoZVpbO2v4fjq
CIfkiJ2LE0S218lbs5iYDXP8ZqghO9R7av13jgC/fmCmOb2+xB5zxCrrJDw3
Rxadon8xl6yviXWzwhra2CaDCXXE1/ORBfT5PNCSZyqL0lBblQuVWgKpgr3A
XKngplHXcKuDxdyKIXL+Aut/e2+V+jVEv6QfzXjYC70IBMwYHjRiZNCEyTH6
+YwTE6NtGPRUU3tzYNFHMXs8hFHzM3psrzA7VoDZUBm6O5JhUMfC1VGCLlM5
TK2F1H6+tjOvaJL/rP/h0SCCExPUrDmss7b39gUm3SQ7rmI6PIahgJ/7Nofj
81PcfLzD5d0nHF9SB45PeKwbGJ8Iwu9zoa/Hgp4uLbWpC2cHYdyeL+DTzRI+
f1hlL6zh7mIDH+jXn6628OV2B9/IL98+kmHohV8+bZMrtsXzR/f31PTDUWwu
2LC14MARM/vinJ9114fI0rRY/+t7rP8PZME7Mu7OPIJj7EGPEY6uZuZLJdSq
UqiVzFv83sXRMr7dH7O0z1n7wvnOj9xY62QdfPuX/n8Xav+zuIlc/y/9//j5
hnmSmfL2GAfHG+yxCYyODmF9fVlkoHvq/0fywOd/1z976uIjk/n5GTbI9pun
W9g7O8DO8TGWd/exsLOLhe0djLHeegf6YHOYYLPpmAudZKYedFjbYTRp6blD
uD3d4RguYnbaCLezAH29BRj2lTK7KbG1bMbmog0rMzZEJi2YGJTDrkuGRh5H
FpZhbmaI+slcwfrePTvB+v4u1qn3u/Sure1N1uk68/U6FskckU3hvPcaFtfW
mcsjWFxixj69xOXVLU7OLphT2MuLC1gUtH19hXlzjtw2g+XVFWzt7TKj7Itf
l1n3kWVm/rVVjE9Pok2nQWFBGtITXyMnMxaVkjyUS3IhqSYraRpgF54b0GVg
3djg6bZjjD69vrWMOXLY8KCL/e5mbmUGpK56ug0YIdctkgX2NkaxsdiHyVE9
PA5mUfU7esyv5C1B/6PQ351JDsmHw5hFT8iB01JDbVCK2WYs5EBgxAS7peTP
+rfaqENWC/r6yJXs6fPTY3y4oeZdX5D9TnF+cU5u++Oc20fO7w19/pg9sHFE
7VjbYG8sYIq5bHS4D8HhHmrWBPmbtX61QS3fFrfrc2Z15rNN6s/60gROD5Zx
/+GA5SdcG2OGJcd/+7LD+tslb6/h4mQUe6sW7C5ZqIP9WJn3YWTIQbbtwiBZ
djzMnlifw8JyGKHJUTLjENnZCr2hFq1aCbWmCNKGbHRa5Fia7+dnz9IChOtE
Z9T6c/KPcO6TTMss9++6F6DoO7cvZCIhE3/58knU9ztyzh374OKGtbS/ydpf
Ja9sM8ud89/IRt/u6BXsGtqKoAtbHJfV/T0s79NLz3Zw9pG58/YOWydnWD06
xjq9c35zBYP0sq6eDnR2tonZuNtthoG8pte3kDep4eN+bK0FMTNlR7ezGh3G
fAx4pdjd6MHt2QjO9n1Yi3Rggvmv31kIvfw1lFWv0OOQYm15jDmYNb61iYW1
NcyvrIravcltNjyN0cAw+unbnuFuMU8Nk19C4xPo6WFP2pwYGRnDxvo2j/OQ
Nc+6JtNs0+u32CsrS/Rbsv8O++js/BjHZ0diX0xMj1MLQ+yNMGtsAFptE2ok
+SgvTkFedgJy85KRnZfCPigkCzXD0K5Ac2MltC11MJtaMDjsxfLaAiJ8b/+A
B93dnXC5LPAxE82QQ9ZXprC/NcO5nCMbBMh9HBe7FPWSt8hN/weKsn/k62fQ
Nyejy1pOTpeRj+To7FCJ/bSxPoPdA6E/Q2RFw5/17+i0QtOkhlFPL+W4nDEL
f6fnfWXNf7v/8sfFnX/9J6DDLXvg4MM95/eQ/k5eox9ukwd2Npaww+xweci6
v9zDzeUuri93cHOzj/OTTWyuzmCaczrk78Ls1CDzKjX0dke8PozvzKdftvhZ
9Afy0sluLzYWmrEwqaC/y+FzN1IHWskGRta5Hb1eF5zkBHOnBSarDV3dvbCT
Ndu0tWhuqUALt0ZlIVr51cPfWxWe13a0iNP9BexuhrnNYnt9lpy1jpuLY1yd
/dHzX78I54PIvF++/HHek8z06evnf7HvFc4vzzjnJ9SFI1xcHorecHN3QS+6
wA7HbXJuAcPjUwiQD8YWpsg7M1gkXyxT95d2mBl3tkTuniVjD4160dWlg7ur
FX5vBxnYCmeXkVqkQ7tOSeYzYFnIopzr0YCNDNSIoX4TjyOMz3eLONr1kgfk
cNpTYTO8Q3vjSzQ3vIbNVIxB5uChkV54h/pgdztgcVjRwzEbYF15hOdXdJr4
WQaYbS3QGVSw2NrRaeuATNaAosJCKOQK1sgwNugJu7tbPN5D3Fwf45SeMke9
mRobxtYqPZi1f3N7gcOjXVED+/098JLlO8xt0LUp0GlWwWqUoamxCpWVBaiu
JYd0aDHAGnDws9XyIubmCv68WvQ/IQNMzoxTFxxo1qih1bVQH8wY4nHMzQS4
+RGZ99MThQxgZfZVMXsnIfH97yjKiyVPlcJlV3M8zehxtaNZLUWbpokcRR6h
X9/cX+HwfIc+N/xf/NPfx1yrR4dBh0F6wO7qGu6vyLY3t7i7umGNfsCXz1+p
jRCvD91+/oI9fn+KHGvv6oLNasYU9eNwc4nZdwEH6/M4oo/tb1EzNhc5Nhs4
Yr7bYrbZ2SBjLU9hnjw6Nz2IrfVxfLwWrpVtAPerzAIzONj0YH5cjfGBUvhc
eWhnPzfJ0mDW11InjejutcFFv+zknGrb26FQt0Km1EDKuVMoJDC2N7ImtHDY
22DrUHM8WjE9JvjSOPUySH7wM797MTXaR28IYTkyjYXZCeoZmZ41/p0s85U5
+Z7H+Yn9/5FfPwjn/6kJV3e3rPcr3Hw4x+n5Hg6ONrGyOi8yotVBvertg3cw
AN/ICAbGA/AG++Hjv3mHB9EfCmCEczsyE+T3esg+rdTIKliMdaxJDXXOyJrU
sz6a0dpWhy5XG/PGGP13izW4JN7n6PM4MMP931rl+IUN5M5idDlj4bS9hdsW
T69P5ftlk/8y0CDcD0wOrJEWoLw6CxU1Waivz2dNSGBlvQnjYzQ1Uivq+PN1
kDVUobQoD9npqSgpKIBB24bRIT/WmGtvrk7IsefYW5klc5jQZdFRfwPk1B3c
C+fC6KMHBxuYmhxk31KHmmrRKC2CwyzHkJcZh/NmZV97mLHn5jnWWwvUpBGM
Ddsw3C+ce7WSbz0ITQzAz3yut7ahWiZBVUM5ahvKoFRJYDILazNk8PS3wD+o
E6+hWa1SKJUSyKVSuJwO5tUQM3gEm2uLGAkMQtumY2500Ve2cPnxI87pxcfX
J8y5y3/Wf6/LQU4wirowPsJsx7o+o39vra6yRsOYn2Em2t7G5eUlNe9CzEGR
rXXu5xA0rWo0NlSjm9y6MhnAysQwwoMehEfYo2MBTJBLJidGqWPUXObpuxvy
zucrnNEPRum9PdS/mfFuHO9OMBuEcbzJ3Damg89ZAkd7PNqUr1Ge9xCFWU8h
rc3m8TSwZhSiXvX2ueHu7YbRYoWSPVBdXQWlrJqep6fHuBAa7RXPaft6mZtG
3VhfFLiR3DTdj4Upr/h1LTLKXuQ+jvnoj3Os/9M/2P8ba581f8eav/v0mfxD
D+B2/emWmeMKV7cnzN1bzIpL4vkbhaIWublZrFvWTGgMw2MhWN12tBo00Ju1
0Bm1MNgMcHhssPeY6FlqtLaWQ6XIRps6H52mGmpyIwxGOdRNlWiQ5kLTVknd
s2F7m3pyuEntm4STXGTUKfizMvZ1CfUvhfUWiy7HG7hdSWTpPPZ/KsrKniMr
93eUlMeQuRNQWPIOBUXRKC+Po7bnkTdk1EXWqELwSQma1EL9V6CyrAAFeRnI
z03neFfBxrqYHB/h3DEXktlGmPOa2CctPF4/a3l1mbx8dogP9IDLywP+/yQG
fDaYtHVoayyF3VyP3i41vL1Gsref/TyPnZ1VnJB/L08iOD+cxv7mCCJzXkxM
0K84Xx0uPZoMClTLK1BaU4D84jTufyI1LodeVYJ2cymaWnOhUGVB1UT/aJWT
p9hHwyHW6Q4uL87oVZc42NunVzDfRNZxeEKPvr3F6d01zm7PmOV2/qx/tVrO
mmom/7swTX5bW45gj569MDPNY+xDj7uLPDfE7MdeiMxijJm4t78Hxg4dZHXl
aCjPh537MOt3I0xWG+Q899NfvV30bI6fib7ipFbP8PeuL0/oJayhq2NMjA+h
hTqhUVciRB3YWPSJWS7oa4SbrKtTvoO08ikKMn5FbtpTlBcliucR1KpqdNr1
GKZ+T8+GuE2QJQKw8TMtxiayMvvHY2Z/MVMF7ewDK3mL/Lfcj81lMvNCD9a5
bS566UkBzHPspzj2O9th1v8hdf+CufYWH6lpN6z3m48f8OHTR1H/Lzl+p+SA
4/Nd7B2ukrEXMMQ+rq0tRWpKAhrq6VE9PeQKC4orS5BXnIMG9qRcUYPGpnpo
DUqYLI2w2mToMFVA35ILfVMWTG1FMLVL0NxUTo1mRqxMQnVVCv+/FJ3WJuZA
G4/JSkZVoklZQm0upObnMOvGUbueQNPyK5paXkPd/I61/xgJCf+B+Ph/sCef
oaz0LUqKo/n993zfZFRVpfO9s5GVEYeC/HQ0NUnhdFKfbVpqaQ0qKvNRUpqD
urpKMnobhoeoF8zrs+R7b1cn2lSsN30rmbqfXDEtnvfc3dvAPvV/bn6U+9rB
ulfCoq8ji1Wjva2YvdrE3pjC2ek+Dpm7dzfCONgew+XROPvKT50k/zGfdtKr
28hMbfTAZr0KDRy3opJsFBWTAVjrts4afs3icT1BdtZz9nMqampKUFNbx2Nw
iOduPgrrDO8uybNX5LML7O8e4fiYzHrFPEtOPSG3bm4v/ln/rTo1zPSmAebX
6ekxrNI79g62ccD3Wl1dIt9PYozM52HNW+xm6q0OrbpGSKXlKMtPQVHKW8gL
09HTKsOoTQ9vezM6Wxqh5zg1y8kk0jrU19XAQT7Y2Fijn5Ohz06xGJkj92mp
gRL4eoyYn+xGeNSMMV8L3OxxQ1MqGmtjUUfNqitPg1JYf9HKuXLoMBrsxcr6
JA5OVnF4usFME0Yw2E3uNXFr56ZDINBOPzZTW6zMbJ3kfSe5v4t648Txjhsn
ex5sb3gxO+ti/TuoS2O4vd3Ch7sD5n2B689Z7xe44nhek/9v7u/oofTPq0Ps
Hq9jfXsOi2Sq4UA3zMZmkR8UPN6WpibWWgmiY6Lw9v1rlHL+GuqKOV4l7INS
aPVVZNo61kQNdb8I7eo0tCpS0NKYA4UsFzVCfVYmoqz4LUqLY1BU8BblpQmQ
1mRCrSiAtrmAtZWLPmcO+l0JcJgeU8ufQtmcgDpZPPLyniIh7ickxv1ClnlO
Ln6LnIxXSE95zi0KmRmxyMhMQFpaAuq5zx76qMAkU+EROF0G1NSX0DuSuKWh
sqqMHNaFNWbgvd1deuUUPdVHLWcuWV0Rz3+Ghd6IzFAbw+jz2WHQS9GiLEaD
JA2leS9QXviSGVSGg90I7jmep2TGrdUJrC54sDLXiYmRNnqEDH3dLfQ7Msj0
CKaYoceZobxeH3NEK1qbyD4djWQ2BaR1KUhL/g1piS9QkJsKSUUxj6NSzIUX
zJzCtf1bZs7DAyGTrmBtaYE5ZoVZfouevYN1stfYeN+f9R8IDpC7hhFZDvOY
FrC1tYKTk31xrdf9/Y2ohfv0C9+QF2qtGg2qetTLJdSJPORnxSHl7WPkxD2D
qjwLve1qeAyt6GhqhKq2GoqGOrQ0q9mzKrS3M18MDWFphftyeMB62xQzk4+e
Oh7ykQdDWFkYwvxUD+dWBa0iD7LKFDRUZEBBHzRqGjDk66QO9ZOnAljfFK4H
TnIOxjAx1YfgKMcyZCMX27EUcWJpsRNrq1Z6dyc1wIr9HRMOtw2sfWbIfTM3
K7XHjsiMBTOTVjJpkP60yh7YwPWNsL5kD1c3J7jlnN19vmYGuGQGPhLXXmxS
9yOs/dn5AMIzZHHBh3gsw4EBOKhD9XIpktKT8Sr6BRLio5CXGcc6TEJZSTKU
8nzqeAW9sQqOjjIyXiqUdfHk5TRI6zNRVZFMXXlD5nvB+olCAb8W50ahnn6g
UZNvtEXQtaTT61LpdanodSehu68YTi99xaVAi7aMLJiOkqJ4FObFIDP1Nd5G
PcBvD/+GV89/Q15uJuRyGf3biGH6+sr6svj86nnqs6ef+t6ugLxRgtr6UtaV
BC43dWtrlVp6Qk5ljp9fwPIy893JMbY5j5NzcxhhP3T3OFEjKUZGKvst8y0/
9yXi3v6A7NRH6GiXMmdN4ux4DyeHG9SdScxPkyv8LWS5atZ2jXjOX7juKuj0
1d0nXH/4jLPzG6yvbTCDLJJHgiLP6rW1kDcUQs79a1ZKYSGHuPvo8fSeq+sd
fPl0RK5awXSon/5opM6Y4fW4MDLiw8TkMALkYk+f+c/6X1tbwibZTmC8tWVq
2hzzCXPrLRnlG2tfuAZ6ztfhhRl09nShxaSHjDVdVF6IjOx4JCe/QmFuHJlQ
wrrtQJD6MOzvh8VkQoumGeaODmqIEy56Zye5oKvLjiCz4PLKAnVlCZGlWSyy
77b313F0yv7kGAwMdEMtrSL7JCI7hQxLnzFq6jAecLBPBrA878PKop913o/J
yS72j5NZpQ9r/N7uxiBr3c+tm7nbyTG34/zEQubU4my3FZfcrnZbcL6lwcFS
C3NLK2ZDJixM9zA7jVA3JnB+Oo/r83Xcnh/h09U5Pt+d0hc2qS9L2N+bI1My
20x6MR0exNrGrMhDF+TKffr7LD3TExhCY7sWqQU5iH77Gm9Yd29f/YYs1kYN
+7lJSd1vq0B7axmaFFnUiXSyZBr/LYmcF4PirJcoSCO75ESjIj8GkqI4+l8u
uacKrS3FUJObDNZSeIZlGAlrMDrXgaEZOzwjJji8GhiZEzV65kJVIQqLE/A+
9nc8efITUpLjoW1tISsP/3E+f2cDm4fbWNleJtcOwT/MOgl1i9cSZ8N+jI+6
yI5e6ugkjoTrjqz12fFxhMPT2NzfwRbrf3pugTm8n77UhKykBMREPUV6agyy
czh3Oe+ZJWKZuWsxQH4Ik6HW1znX2zOce+HZ2V2sDTU6rCrWhJ/6fESf/YKb
L99x++077r4K59yFNRd34nqnLdZGSKhrlxFOO5mlvwtjU4MIzQcxx4y5ynyx
x3reWphHr8UCWVUlVPJ62KwGfo4VPfSIrm6OERn53/W/TdY/Iu+sLs6J1yHM
7U1kSx3Gg14sL05yX5fJVVtYowZMzs/AHxzl+NpRUS9BhnBONycBclkZdciM
SebdxbkZ1mUEo6MhuHq64exxw+vzYsDvZRa3Mq80McuTUYb9mJ6ZQHiWGr6x
hGPmqFNm8/XddfgG+uj5RXjz8gleP3+IjORoqGSlzLIGTI25sDDrw+YGs/76
hFiLqytj2N2ZYeaZ4rFM4PggwNr30GuduDi24uKwnXqvwdm2CmfrcpwsS3G8
JMd+RI3NGXLSkAE9DnKXU3iegkXsrcOdOVwf7XE7pJ5s4uR4lgwwxs/uZ762
otvVLnLYtnAt7vaYmnWJC7LSNo9jfmsN/qlxaJl7KqorkJGSiHdRz5Hw/hUk
5cy8LbXMqczybVVoaiyCXJoj6n5JQSzKi+MhIe9UFieikn5RlBOL/MwY1FZk
Q60sh1JRTP6UwDOkQ3i1Fwvb1LXlXgxMOeAeboelVw1TlwImh4xZQ4aWNglk
ihKRV81mHaYnx7C3t01uPKCXHVDHOfdkgpm5AP24n4w6Tu1bx4dLcgDH82CD
PkvNmRp0ocfMjKXTiSw7wveZXJgTr532+3ywthuZjeu5nyUoLc2DpLoYMjnr
j3nNaGxBP+t/ZmYM21sRnJ6v4ZRasnswhQnqTjfzsaDPewf03E/3uP72jfX/
DR+E64rfWf/fPuH+6wey8wEWFqaYFVjHDr2YiUYn+jE6E8BwaIB5tRtDPcIa
d2awZg0U1dVkJyW6nKz93k64e2zMEML5ZcWf9b+1uYqjwx1ywxgMzAIy+oqK
+93M/W5taeDvmsTrnof0rlPm1132fGhqUjynIakpFjmotaWen+3A7GSQ/jjH
vlniWM4iEAphdHKcfDKJyGJEvFY2EgzAz+w0PDKMAX5101MGh/vJjzPkrwjG
J0Zg6tAjldr/68MfqFs/0mOimDELyM0a1qcbC5FR7O5HyFGr4rqp/aMtnF5s
c1vB+eUCzs/GcHLUh9PDTta9AWc7GpxuqnCwWI/t6UpsTJRjc6oWe0t6HG94
sMg5sJl47A2sRVkBTMYGepidjBrGztoylhcmqTtu+qYeHUYFe7GM/lvCsdFj
cWkSOwfr2D7YxMYBdYJascJtjj0QpF74AoMccyuzcQ2zWhksFi050MXNCY/H
AJtFhVaNhDk1GTlZQk5NRb20EIpGfoaigt/PZt5LQbWkEEpZJWSycugNMjJr
N7llgto9gtBcN/rIfg7mHpO7EQah9rlZHUp0OtWwO1vhI9sI6yxOT/ZwcX6M
M9bS2cUuTs826XnL2N2dpWcyox7N4QPH8WI/jI35fixOuDHSrYWe+1KRm4Wc
dHI9800jfURvMaGDx9blYm90dcHP2utx2tnXaqg1cuZ9FWu7Q7y3bmNjAcfs
taPjNfroOvV8hZ8/zww1QHY3sj+c4pqD64+3uP36GXdfPrPu78U1d19Y/3fk
0N3dFXq9X9R+vVYOQ5sMdubBnn67WNsdZG+9Wkl2ljM71nCe6mDtaIeXGafH
bSVn6WBkdtW31P1Z/94+F0ZHuA+9DujbFOL72i0taNfKWA+lUDdWizwirNUV
1v3e339k3t+Hn3qu1zVBoyGDmZow4HWQ8WawtbbGY93C/MIipoU1Itub4rWh
4/MLnF1d44jZd2NnG5PTk3B2OdDYyEwjq0VrK3O4SQcNs3NpWT7exr3E01e/
IiXjHfssj7lRRl+w0zOHsLw6xZpfx8n5vnjPyIlwXeqW3Pdxkzq8hOtrMsxJ
H052zTjZaMHJWiOOl2XYCVdhZbQMS6PlWJuQsv6tONwcwgK93sa6lEiKkJkV
i6ysGNZbLsz6ZmZzF7w9nFOdjP+eSZZ/j5T4V8yU77mv9Rga7qGGBcS1nb4R
9vXUCMYWphFiHpxeiWBxcw0zzPoefx85tYt5cRxbu0vk7rB4D0mvpwNtbfUo
LkxCNo+1QpKDBrUEGoOSjNNGnleSx+vEcVGrZOzParSzrsbIX9t7M1heC1GL
3WL9ewJmuAZ0sPe1wNrNPOBWwu5Wo7OrGf2DnVhdm8bV1T4uL/epeav0tFVc
UotvLzdwe8HXrP2z/WlqfhCzo3Z4bcycbZyb2myU8bhTY6MRHfUSsQkxyCrI
RnFlGarqaqFSq1mTDmrTKKYmxsTrvy5PF/vPgP6hLubrMexTI84udqijK/T6
JbLOHOtojCzVTZ5pFc9x7QjnyO9v8fn7Z+r9J7HuhXtpP3+54b5uIzw1DBff
06BViLwtqxGu1QnX1JgjujrE+lc3VENSmMfslEOmrILdZoK7ywq9phHK2go0
1pTC0ir9s/6ra0qgUFRxXOlVSgnroFnMGYFBspCBOVZZCYdVK2a806MdcV3E
we4+JseDGPC5+XNuTE8MiBopZIiT4yPm5zNmph0sbaxjlzlJWBMj/G24j1+/
ifeJnJyfIzgWgk6vRXFRIRLjY5DEMc3LTiMDZCMzMxGxKVFIJTtK1RWwODQY
HHFifjEgrgve2CGLHHH+LvZwRmY6IxuefuDrj6usf7L7dRDnRy6cbOqo+Qrs
zlDrZ+uxFZay7uVYm2rCxpwB65EuTJOnXE4jmllfdQ01KCnLQxJ5K+79c2Sl
vUdNZRFUjbXiupXU1Ghy/K949fRnJMW9Ql1NETpMLdQ48hA92e3rQv+on34c
Eq//htfmsbC5jJmlOfaGHy6vC8EpYZ0L89zSBLmQeU6vFJkoLfkNstLZ65W5
qFOUo1mvgNXZDhv3zWBqhU7XgpZmJdTqepjJE8GQVxyLOfJfgF7gH3dicMKB
/pAVvcMGuPyt3DTo8bfB0cN9pHdNTvtYcxGcUfOPhDWEp6u4u9nCvbBO5WqN
nDeHw61xLEz2wGUmO9XlQVmZAVVlJmQVOWSyXPJ8BrJy0pFXlIsSSTkqaqvQ
qG5kH3vo+dPk0QVElhcRJOs7PeQUckdwYhgrHIuVtRnu7ygWl0fJ/0HWfg+1
WQ9HZzNGh9043Fv9170Vn8U1iF+E/Cmswbo8xPpKGP2eTmYmqXh9TS0tRVVZ
BirLsjg/NWSXJhhY4wrWeH56EpkzDlWSEhgNGmYeJWqYV0uz0tDA+urSNv5Z
//V1xeL5udrqPHJoEf2iEaER4d5eD3pc1OOmKm614jMmvW47xoYHEBwiawmZ
erCXvB8Ur+vuba1gb2edXkptOTrB9s4etvZZkx9u8PH7d/HuiU/fwTzzlXV7
ITKRkItVjXLqXgoSqC1piTEoK8hCtXCtnCyiaKmCo1uHkXEX89ow6yZERiTj
ny6IGnJ8Rkalfp1Rv06u+P+X0zg5G8XJoYd5zYz9RTU1vwHbU3XYn1fjaMWE
w40uHJKZD3eFdXX96GUeksuFZ2dWQaFSQ0VeLK8oQGZ6DFITmUNzE8heRdTl
fGRkxuHd69/w4snPiIt5wdyfSq4pYx83opssOjY1hHBkAgurs2ShNSwxr4UX
pzEUHIDW1MZjqmQmrSOTGMlSnbB0aFBfXYi0hCjEv32KQr6/lJynUpWjpbUG
HZYm8XyvUa+CUi5BfV0pvbKc+t+IoREX5ldG2FuDGJvtQ3DGg8C0G/4xm1j/
PcM69I20Y3jShqGxTuqwGf4hG8fdRxYNihn0ihn/44ddXFL7Tw4XWH9hbK6M
YpLz30dmcpqU6NDUwcT5t3IfOi06GASNbZJDSS9Sa1RQsScNJj0GyXmzZN85
1r/wd9Cm5mfF+3zsLgc8g9y/iQD32UfWdWMo4MJwwAmXq4280QCruVlcG3PK
nHX/UVirS+3/fI1PZJ4P1Lcj9sX4qBcmvVDfJZBzPmrKM1CYHYe8rHiUFmey
N7NQW16AuspienMiMtLjxfOiBqOGvlmPmjLWVH4ONJJKDNET/l3/g/02kWnl
DfnU+kLYOxsx6DcjRP/rdbfBqK2HRlUFWTVzDfu+qiifbFUNnVoKp6UNQeai
8IQf8+Eg5pllV4W/f8jaF+6pEbjk9ssncW2YcJeJ8PWW+f78+lo8pzzFHvAy
szSr5aipKGbuy4eSuVrI4G5ygaffyrHqxPikC5ElL9Y3BnBwEKS/jJNbJ3F2
PsX6n6KnjtNPQ+y9QRxs9+BgsxPbCxoyvhybk1IyvwrHqxZcHvhxc8F5v6HW
XW1Qq0LMhK0oK+dn19ajVW+kl5qZZ4TzzPnU/hRUlCWitiaHTF6GvLw06v/v
ePb4J7yPfoaMVHpWbhLq6ovYy+3M88NY2xTuv1/gRvZZDZNThngsNtQzUyUk
vUEcfaO4MA0tTXXUMhkayZgFrPsMMlVtSQZMmlo4jTJ0WxXwujTwkQ2seinn
PAelRQnMlklo0lSib9CEufVhLO4EMb1ETQp7WPt21jzHLcD+GjXCP2mhD7kR
mnHBN9QBh7sVNnsTLNYm9l8HZma5v+tTHNdpevcsdrbCWFoYZS36MDs1gDn2
c3CI2dpDb/G6xWuWgYCPOcwg9oFw3VTgVr2hjRnDhh7OZU9/HwbYC4FQkPM3
QP9ysweYD7zUen83RkPCdbNRvo+H/Mx6Zo2aqN2TwUEc7jAbHO/i5vyQ/r2D
EzLT7maE9TXI2lejsjQLuRwr4XxyOjNh/LunSIx9ifj3r5HErSwvA9LqMo5T
NrKzk8Vrj+3GVphMWmibG6FjLrA0NWGws/PP+j/cmcbkqONf59ZK0N3VSC8S
1lyb4bApWPtlkFXlo4wZLPX9G+SnJaGmOA+q2jJo1dUwtTVw/xVw2vT8nT6s
LC+RgU5wcXWJm483zDAfcf/tm1j/38Qe+C7+2+bGBsLMAP5+DzqtJnp6G/eh
SRwLB9+r3+9gTnYwl+jgdjfB76PnB7T0JXLLqpO17mPG9dNr+tlvHmyuubC5
7MBmxIr1sA6LISXmhmoxO1CHpVAzthadOD+exMdPe7j5co6jywMx19s6jfRv
JfQmsnN3H1xuN7pdfE32NemKmDlTuGWTj2ogqSpGcsJ7av8rpKe+R25OAnsi
gbk2l/tpYC4PYGd3jjU1iVn2QijUx4xrgZl5SsbMnMnMIDyrPzUxCtVlfE/h
PAP1vLooAyVZcZCTfSz8HC/ZY5jZNdjdgtFuMkyHFNrGQlQUvWe/vWYvZaGb
XLO4M4L10ynMsg+C06zTkB2+oA2+MSt8E1YMTndiaNpOLiKb9bezv+lz7OWS
0nT2fDaU6lp02Nqo3T1YZR7Z3JoX83wkMsUMF8Hm5hKWl+exuhrhtoDlxbC4
zlfXrBB1tk5SDGl9BWqqyyGjh6qoG826ZuZe5pbWZtTJ5KiXqdDSpqXndWIk
NMBei1C/dsX3c9ot1JgyqOVSDPT1YGqM2SnQjzHmqOCwF0P9bnR1tkMlr2Ld
JyI5MRo5WQkozEtBEvXi5bMHePbkAV4+f8QxfUdvYC8xezfKa1BcnMNsUoHm
VhU1rZ1ea4SlvR2mFg3MLa1/1v/t6SzWF71wdUqhby1Ct1OGgF+H/l4N578G
CjKgpDgdBelxyCKfVBXlQFXH2mcublPRz2vzUcvMpm1pIDf14+hgj1n9Dncf
75hf/n1/Ibn/02fc3NyI135XV5fJihMIBUfgoy4I1wa6mTG7hWdPmNuYB5Xs
WeqUuQlKRQkqShM51vHMM/Hsx1RqUQPWlmzY3XJjmzyzOG9C0K/CgKsBflcd
BpzM7I5KDLuqEPTIER7RYXW+V3xe+M3difgsnr3TQ3E9R7+f/dclrF3rhc9P
rvP5MDooPOtFuKenkqyZiGZlOrOVDB3mVnFdr6a1kfrXRHZXcF+FezgUGB/r
wt7uNM5OFrGyOAy/14iOdhnaWqrpv5WoJ9cU5CZSt94ghbxTnJ0ECeu+rjQb
5bnJHN8YVOQlQUHWNsnyYFcXoKutDN3tVejSVcHYJFxTTWbPvUSpJA4WlwLz
m4PYuZrFysEEZhaHMEYGCs72YGS2G4MzTgyw9vsnbPAGrXB4tJA2lpDdheu/
sSgozEBpZSHqpBLWpgmRlWns7K/Sv1j326v01F2y5ha2doS1DXvMDVtYmJuC
w6xDZX4W0mJeozQ7BXLmR7WyhvrAYyUj6QwtUDbWIyMjFc+ev8L72CT2XA3s
DgvmFybEdVPCecztrTXytROlBYUoLxau7bdA39YEhbQK9TVlf2zU8nJmjuzM
ZKQkU29y0yBtkKBRWYcy5rSsrGSkpsUjMyuFWayC+tkMJ7VU+FrN3y2pKESD
sgG6DgPsbie1zk6N16CBXv/v+j/hGC5SJ7osErRrcuF21LHvqDldSuhaK6CS
cYyYfYozk5CXkgh5VYl4LdZmkEPfTCatykB1RQY/U465cAhXF8es9Vv2wDUz
zB2+cbu9PmdNRMTrYr3CfnAfrVYjM7sNTqcVncJ9qj4XBoY9sNoNkLLfq2uK
qauFyMp4h3dvfkbMmx/w/s1/IDP5Z+pPNiZGtFied9CjLexVBbRNeZBKyAYN
GehoK4VNX4FuSz1CfgOWZvpwQG8/P93E+fkeM8IBDk/2qUXLGBsfgbvPCRP3
p01LD2prQa+jFRNDGox4y6gn7+idSehztWCaLCOs0V0QnoPAepmbH8H0tJda
34dlMsjx/qS4riU4YEJbYzHr+j2K8uJQVJhMn0hEWspb0a9TEt6iKCcNxZzP
8vwM5rV4ZCQw/ya/5Ti/R13Be0gLYyAtiYVKkoJWaQ59IpdjnUr9f4OS8gTo
LVLWei9rfworOxOYXwpgct6HiYgPQfa6n7XvZe37xjvRN2ph/esga6xADv0q
TzifWlNOPytDMZlT3SzHxOQI9vbXWfPCcxY2xfsAhfue5iJzzK2rWIzMw9/n
Fte/VWanojiZ+0betrbI0dtlQG9Ph5hpfP4uGNqbkUKt/PEf/8Sj354gLT0Z
Go0c4xM+8R7ejY15TE+Nwdiuoybkic/brq2uJGdWiM+jyMpgn2enk+vzUVUp
rB2pgbBOTd/eCgc5y+nqhLXTTJbrIFsJ698d6OntgrOzg5qjRYtKzuxbimJm
XlmTcN8nWT4wBNeAHzqLld/7r/vfI0E9+uwStMji6ccJ4r3B46PMM34NrKwf
o7YWLfTpstx0ZMS9Rz2P2dYuJ/srWRdl1OVU1n8aWptrMeDrwmx4nBlggf0t
3CeyJl7TDo8F2C86ZpAS5GemIjMtUTzXU1FRBLmiDnohWw91Y4Jc6Av00kMb
OS+5SM+IR9SbR3j29D/pdX/Hy6d/ZU78kdknQVxb2Odq5vHWQVabTR0hG+dT
qxUVnA8ek9sAD5l8YqQbq4tjZMtFnB2tM2Nt4FS4XnC0TQZbxiizaUenHnXU
laz0FCS/jyaHJ8JtyoPHmgBz6zN0GpIwMWxkxl9gdj/E6dUR88M++2gNB0dz
ZLFpHO+NY38zgJmgBe3U7tzE3/Dm0f/C62c/ICrqEd6+e4Lo6Kd4+eIxol48
oQ8koCAnEyUFOcjJJFsmxSAjJRb52QnsiXiUZEczD79BRUEsc10KjzmF//YW
qSnU/7I06qwCngE7hif6EBjrxXDIhZHxLozOdGM47GLtW9E3boFHyMOj1P8+
cp6mHgX0nAyhvnIzqJupSEqKRVlpAbzUn+2dFZyc7mBjawkT00H0D/Shr1/w
RS+92Ql9SyNkrKlG/nwT+0ZfWwE3uXzEx/0Y/INXvf2d1HIZUuJe48GPP+DX
X39GbOwrNDQUoVe4B2u8W7xu6HZZoVRKySmFzEP5kAg8RV4RekBSWYraWon4
761tzbDaqI/eXvHa0fj0OLM0NWZyDOGFuT+e2ba9hsjyAmu2j/qlEc97SipK
UEkuU+laYOXv9o6PoYebbWAAxp6eP+vfqcuFrPQ5SjJ/QmPdO/S6aqnjFoyH
THA7G2HtYJ031aOI9Rrz/DnyUuPRJC+CnhmsoTqNLBaN3KxolFLjqit5HOVF
9JdK6DSNzNUaGFjLKtZWFec5k+z87sXvePnkV7x++Rjx8dHk0Hyx/n3U/unI
BKYXJ+DlaznzdTK97fnLh4h+8xiJCS/J3FGslXfiea8meYV4j28OeyQpLpr8
F4vykgIY2WcDzCGjo34MkVWHhfubhL9P7bVTl91YmwvhbG8ZV+wF4Vp8d68d
MqUEeflpiH71BI/+8Te8/f3/Q3X+z2iq+wd0ygfoc2ZhccqGi5M13H66wq1w
T/D9CfPNHq4/rOP6KoKrszCOyOMzoQ7yZSGKkn9D7JO/4MnDv+LHn/+KXx7+
Jx7//gC//Pojfvjh7/j998eIi32P7KxMZrVMpFMjsznGxcxu5eWZ5BNBp+NR
XpqKqoosFOezNxNe4230E2RlJ6JRVQcjWdFiM4jnvzuYa11kHA+zm3vIiE4y
rH1QD8eQAZ2+drR3NkOmkqC4JBOpqXHMIW8RH/uG3vqCY5osrs8X7veOcA5G
g/3Ucif6fN0cH3qjWQ+lvB5VrPsy9mol9auSfVNFD+hQVGGox4Qhv4UM2w6d
tgGVJel4/+oRfvv5Bzzi8cbEPGEtpnOeyXLuZnR7uF9OI4xGHXmyVVxH36SR
0Yek1HkFVColGhuVaGoSsrWOWm/FwNCgeG5paX0N0wsL4ra8RZ86PcIemUN4
foPgKZ0mA/NEg5gpVMy8GnM7jL3M4CPDcLL+7cEgHOTuf9e/tOwNCtN+RX7q
A6ikKfS4ZszPM4tMMQf26LiPKmabKqQkxePJb9Qxjlc+ObW0OJX1+IZj+Iz5
+zneC9r27BEePvgHfvv1n3j/9jnS02KQKvDu+1dIfReFtNhoJMVEc8xfsqZf
IS0tGTX11eL5M7fHheD4MPliSlxz2tXtRHVdDbLJmnmFOSitKEattJo8Vw9F
k7BGS4mislLEJSbifXwCklLI0AV5HDc5OizUfk8XBgaoXZxHYX2mtK4Yjcyg
I/12nO7O44q1vLoShoNZt6auFLl5qYhlrn304O94+M//BzEv/oLc9B/Q2PCG
XlKDpble1v8yPt+f48uXC3z6coLP3074dQ+3Qg9cC88LCWNnw4+pEdafvgyy
ilgkxD3Bj7/8HX/7j/+Fn378Gx7+8hO54Ac8JhfExJBdM3PJsYLXpYs9kJuT
zh7IQlFRKkpZ+xJJFirKc8R1a+/eRuP586dISo5BLfdZuBdCq20U19e0tFRB
p6eXdsig71RA72hEu7MJ7Q4VNMY6NDYJ6yyYN6pixDWZ+VlRyEyJQtz7p/zs
9+L5KRN7wOYw832aYTC2wcf6H6SW2B0mjms955z7mfgWyVFPkPD0AbLoa201
efDamzlGbegwycjhuchnxhCeI/fy99/w9OFDRL38hZ/xFBVVsWgmm/b0mRFk
1p2cjmBsegGBqXG4mblazSpqvgzyBhka6hrIPXLmCg3aTSb0Dw6S8ZYQWV3F
eDiMCW7CPcf7Z8c4vDrB7tEuFhbCzK82tNMzbKx7Nz3L7fPA0e+FXeCf8RAc
3KzB/7r/qzQ7CgUZL6jvUWT9fPR7DcwpQ2Q/ssiAAy0c4wKyyKvo13jy4ini
kuJQyGydX5Apemd8HMcj8T1i373G08e/cnuA1y8eISmR9Z4Rg7i4Z4h7w/F6
8xxZ/Pm8HPpvZhoys7Mgqann++uh5/GZO+g3LgdGBsmvgUH0eZlLnQ6ySSd0
ZhOZSI82sltHdzfs3n6Y3R5INTrkllcjNa8EKZlZSE6JJ2MnkLeZ0VUNcDnN
PB4HTIZGUUOrK7OZP/TYXhvH8UEEa+tzCFDrbJ0G8qlSPI+RlZ6AN69+w/Mn
/2TtPoWsPh897lbMTPdge3MCH6628fVeuI/hBN9xLj5z8e5+Hx8/C32whnP2
wMFuAIszNuYSOZrIiKlZsXj0+B/49cF/0Pse4tWzp/SzZOTnl6KwpBJZuYXI
SM/g571DbPRLZoTX5CPWaN4b9gE9IjuO45mIVy+jub3muL8jJ+ShXS9lzVEj
mceEe2mb1RVo1rAPTHIYqfcGWzNa9Q3Ur3zqdxrMbemw6RLQrnwNZXUMfTSe
PUbeqslBDblRSp+vaahBYVE+2bQEOtaRu6uDOc1I7VbTJ8kVlXmoLstEDf1e
VpoMo7IELpMUDtZ+e2s1NaYE8npmH+br+LcxePboCbn1J+rkz5z3R8zCKcx6
ncxPG6zZO+yefsL66SnG1iZg6tGjvraWv8tcUlDCfZCggT3QqtMyo/X9sZ6G
7DM8GsAYvy4tRcRnwh2eH2LvZBfrmyv0/UF4ehz0I494P9jUzCSGWfPesSB6
J8bh4O8aBvr/rP+spKfITX3JPPaW3JKDzs4m+h9ZfMoPFzONlP6Wwnz2jNzy
NobzQe6rE64XkdXy8jOpXSnifRSFeenisyTra0qgbZHCamoW11I0cCyKc5n/
+B4FzHtFwnXDsmLqjQwGK7mULGa02dBCbhPWxglrIKwWI3Nxp3jfzeRMGEP0
q+5+H/pGqBmLS5hf38LU0jrcAyOQa9pRVNmArPwixMbH4smT3/Dy5VN6QbZ4
P7nwHDaTQU1dKuTYFsJKjRkbcWNlaQzbe0vY2FnG0uq8uO7IwSzepJKR5TKR
wJwqnKtpVpWjr0eLwIBRvJ9GvGdTeH7Fl1N8+y48C/Fc9IKP7AFhjejNdQTX
F2GcHQbYZz2YGLfS3xpQWBCDmOgHePPyAf3vGbknA2WVlSiuqEIm818WNSGZ
2vrmxU949vB/Iur5/+A+/L/ITP8RGWlP6LEvEfPmNX02il78BmXFyVArS2HW
K8VnDbaQbYT1cS2aGphZ944eA2wuPetfSq7OhrIhDV3mQvidBXC2JzPHJkJa
wxyhraHOkKNcBig0CnptLrk0FrHMQTnMag215ZxHMrBOAU2bFE57K0b7ycde
E/y2Rji1VehoqYBBIxGfjWy3NDOHtkFD/clJz2T+ecHjfiLm9sLC12L9u3uN
4jMktveE9eSX1O9zrBwtwxfqgayhDlmp6eSzBNZWhlgrMnpCs15Db2uHxWEh
57mYd4bEZ3Bt7GyK5/KOxWc97ovP5licDyMyN41F/vt0eIL1E+B7j8IzHoRV
yMC93X/Wf9zbR8hIfsXaJD+Xp0OhLCNPNtEHtRw7OTW6gPX/Hm/ePUMqa7i6
njrRKIWE4yLcm1NengdpQwmU7Pv21gZ4u40Ij/djiVl2KuSjBlqZVTXQsScU
skrU1JSz9mtZ+yZy/oC4me02yMh91fUS1EmruA/11GQzJtm/i8w1Y9PMO1MT
WNrawNH1DU4/UDfOrzAVWYPZ2YvKWiVrqAjR79/jwS8CYz9AQmIcaphDmluU
UMirydHUuOpCtDbVMePrMDXhx+bOEo4vDnB6cSQ+11J49k5zs5xeUYj0pGjO
wxu0qcuZp5vgtknRaalHcKQTpyeLrPsT1v8l7r8IHiA8E1F4nucePtys0CNm
cXsRwvnxADbX3ewbLSzGUpQXkRff/YR30Q+ZPZOQX5KHbDJbYqow10nIzXyP
5NgHiH7+f5If/hv34f/i9/6CgqxfkJ36AqnMlKlx5Jak18jLYA/kxaOOxyWV
FJBrculvWWiQFUPbLifLtNBXVeTqenKEwH45MGryYGvLhEGVAGl5rJip7Z1q
emAPBoM+aM1a5LP+Y95F4/dHD/CY7B4X8xqVZcyI0jLObx0mRxw4WQ/icn0U
ayF6nKUBVk0Z31sCp0Utzre4TqGtEUXs68S4WORkJXLs6b/VqayXBHpiBex2
rXjP+/RMSFz7vn+6hZmFMfZaM7KZMWLeR4nnNrNyU5FblIMizkm1rBotZDMb
s7PwLMC5yAw29raxf3GGk6tL8Vmn+3s72BGe7xKZxxTrfXDID0+/B15qqX8i
CBfrzUK2+Hf9pya/RU5OAnNRBkrLsyGpoleqq6FuqSdvF6OgJBVpmTHk6zfI
yUskwxWhVFKC3MIs5OaniusyNS0S5m7hOStNmBjpwsZSCPvrM9giyy8yU00G
vRjsd4hrVk3mVhg79HD2ODnmg9wvP0zM9/WKeuohvUJYO1tVwsxvwBjzwBTH
JzA2jJnILI4uz3D37Ss+fP/jOTsr2wfo6h1AZY0SCSmZeBn1Fr8/eY5Xr6OY
nVPJaPn0m3z6VAaPkSzNfW9S1bOOtQgF/eIzcoR117v7WxgO+KFSy8neuZyv
ZHF9T0rsE9SUJaOtsQhtqjy0NeczT2ixuzuNT/eH+AbhHO8N+0B4fvo1vn09
w+ePm/h4PYcPlyFcn/hxvNOFzSUey5DwfEDhWSCPkZz8GEXUmsqGChTzmFMy
EpGW+o55IwqFmY8hyf87Guv+E03Sf0JW/QOqS39BaS5zV2o08lL4c8J9XInU
o5jfkUQWT4x6ilRhTV7We5SVpbPvC8W5zMlN4fFn0ftKyLbUqNoMNJS+RW3R
S1QWkKG4Dx30w16fjX5hZT6WIps54/27t/jtAXPK3/9K/X5EFuHv8T2NnOcZ
5uuz1QF83AngeN6NsEcDj5ljqq/n/LeJ6yC9vZ0wtjehljxZXFSA4uJsMkIy
vewVe/8nst+v9MM3kMuy6fdSjIU8WF0NIzzDbOo0cZ6oPxlxyMpJoq4lk20T
kJGXBgnHS9ehRWe3DS6vmx4wjFnqo/C8mY29PSyvrYnP8AlTK0eENTreXvh9
5Cay/9j0OHPGGLoHvbAwF/y7/iU1ZSiXFLP2WNcVBSjhViOtYD1WcY6ykZ4d
i8ycONZ6IgqKUqgPzGnZaUhjTwv9UFOTDW1rBWwdtRjobcHsWBd2lkdxtDaN
vaUw1sPjmB33Y3ykGwG/U+Rx4dyCcL7fP9zHsXcz3+jIWXWoqi5DpaSIPVXG
/EX27LbA6abf9XRien6SWn2CD1/ucfvlK/3umnqxAkunG7UNKuSQpZPTs1n3
WcwW+cgvLmH9FyI7JwsZWWl8nU0OkKC1pRE25mPhWSBzkWnxOZxeZg6lSs4x
T8W7d2/I4dFk8FeIef0LEsgsJdkv0FSXCquxEpOTdhyfzrP+D8T6/4Y7fBee
A/pVeJbQJbloH/cfIvhwMY6rIx8u9uw4XNNjeVqF/u5y9lA66upT0KKrJaPr
0Mw6KSrP5Wc+R1zUAxSm/gqt4hm6rdFk6udQNfwDkuIfUZ73AmWch0J6cWbi
S/bm74h99Qte/vJPPPnp74h68UA8H1HAOcnNTUQi81cUe0PIZ+Ul+XyfStZ/
PurLyT0ViWhuKISZTNPd3SGOcVOrcM6ZOYQ5PCE2Fq+fPsHzR78iJf4deb6S
PlgNo7oU/dY6RIbacDJnx+mcAysBPQJdKlhaa/l+SmqcQcwMZnp+Ez2/vl5Y
250vst3Txz/gwY//Nz3l7ygpfIraqmjUV8czv0jQT04Vri8I6/PVzXWsyXwU
FGchn/6Wz/xZWJ6PKrJBo1YNla4ZKq2G3m+HjzwfnJvDDLPxbGQRofExeMg3
nR1mOCwm9HV3IUDNDzAXCM94NHDuNfSYP+9/J3PXyZntq8roM3nIYnYsYg3W
yIX6z0NGTjxKyjNRW1+IyipqCvs4NSMJGdlJyCsQ1sZkol1bLt7DKZz32Fjo
w+nWBC53F3C2wXyyMIWlyUHMjHZjbKALQb8Lo4PdzLk9GBroEddlG/QtUJF5
ZKxPRYOEOa4O7e1K9oCazCkXPUO4L/ToTHjmm/Bs7yusrG+i2+NDm9YInc6M
DquTWdnFXrKR28xQt2rRIFegvFLCcSxgliqFQiE8T1oDC8fAQY60k/f1Zj3q
FMLfQMlmvolhzUThTdQLvI36HS85X08e/E9kJT6CtbUE0zy+vd0Rcv4q7r8e
4su3S263f/ztjG93AG7Fv4Pw7X4Nd9dTuDzy43KPvLShpxa0YWm6BcEhFfta
iR6vET0DDs6hgUxcQrZnbnn4V2S//yc09c9g1b5Es/QfyEn9b0iN/e8oyHiK
co59YUYCGek5c/JDvH35K54//BmPH/yAV88fMBdEiev2UoT1q+SkuNho8ZpG
bWW5eE6wtbGenF4v3p/udRkxPurDTDiIYXqhkWNS11BLRi+k9yWQwZ7j3Ut6
DrWjmbxrIvubVMXobM5DqKsW+1PtOJu3YHPMhEG7Es11hairLEATP0OnV6Ol
VQa5UiKuG8yn/8bHCkz1Dzx//DcU5j7lPMegvuoVMlP/iXSOb21JLjTi/DQy
7yrFe2yLWfMl1OVaWQ2qpTUoq65g1itHbmkJCiWVUOvZa/5BDE9NYn51FWvb
25ibn0dfXy9504B2TbN4PcxJlu4kT7RpVeI6jfLSgj/r32CzQGPQoV6lQAFr
JIP8V1BZgjoeR1lNKbKLyA1knMYmCX01j5qfRB6iL2Un0FuTyfT5cNllmA6Z
sL3ch/OdIG4PZrgt4lrg69VZ7MyNYnmMeXzAiUl6wNRQNyYHexESzst3d8Jh
bEMr+aeGOlVXVoiWxlpx7YOVDGu1tonri6dng9g73BSf/769t4XRUBBtbTr6
pwXzsws4ODoVs9TW/jFmF1fQPxSAzkSukjPDVAv7XgWVqhFGk4G9YhTP77Xp
WtHAbFVeVYW8omLEJ6eSnaLx+LeH+O3hP/Hwx7/gtx//B5njKfpsMvH4rs6n
cf9pTXyOsZABvny9Fuv/j+eDC3/P4hT4tic+g/3mdBQXu06cb3XgeM2MnSUz
1iKdWJhzYWLKA99QF/exBSXUt7evH+HVb39HWvQ/UZH9Eypy/oKkt/879+F/
w5Nf/w9kJD5FERkun94bG/NcrPeol7+RT9inzx4zYz5DZloc8qn9mWnvxfWP
xZzLhuoa1n4jVApmZGYsh6Vd/LsU4YkAIvNTiCzNkC3DGCUb9JCL///2rrOr
rSzL/qWZPzAfZqZ79XR3VXV1uVxVtssRY3I2GYQAAyJHkUUUUYggggAhASIj
IXLOOWPANjbY3rPvrenqHzHNWm/ZS7Ckp/f2OXvvd+85R6vVIi46Bu5OL+H5
6iWU4WJdJ4n6KRVl2VHQFSow2VOAt8stuFo1YH+qBT309xlxoQgN8JJrCQnM
26qkSObHYISG+8DPz13WDfh5udBruiM53pPn5YXEuMfw8/wzPJy+RYj3K3Jc
jOwlU07vUEIvnpObQf+ZxnuoJgazoYyPQwTPLSI2DlEJSSioqKKeGcTE4gK2
jg5wdH6K7Z0djAwP0eM1k4+09J0aehFiSewhryqW/XbjokL/Of/F3Al9Zxu0
5Ap1mQYp9N/pzBUF5AU19WBqjuihlEx9koIMgX9e35BgeoaoAORkRlMTqDE5
2oSjrUFcH9nx8WQan47n8WF/Htc7Czhfn8HB/Cg2Hb1Yps9a5LE8bsbCaA9m
RC9D6h9LSz1q+L1TxP7/iBDkp8X/tqfOUC1nI9joVWfpjebpJ+YWHJiascPM
89bVkXutVrw9O5PzKn6bw0IU3twyDg4ZIzY0GwzMRRX0waWoq62GXq+Ta2R1
dVrU6WqlD69paEApYyklIxu+gSF4/PQZfrp/Dz//+A1ePv4eCQpPmAyF2F3r
wwd627ubVdx92sHd3RH1PzmA2v8rxL51MRdJzIhhDNzt4u79It6dDOLtfhdO
tztwtNGBw80ebK/3U6f2ypqUsopcXtNguLs8hDM/y8/5e0R4/wUhnv8BD+d/
h/PTfyPG/4BA3+cIDw5ASGAAXF2f4+XLX+Hl7UJs+SDwtT+iyMnJ9E452Ynk
5ETkqlPpdQqhLa9EUb4Gmek59MH5zCd62dNkSujSWbHWMom55QWs7WxhY3uH
13oC1ZVaRIdHIsDbS+73i44W9fSRyFaFoLYwGhPmQlyuteHdhhEbdubW8jSE
+7ni8S/35PqPk9MjeHo+QWCwC4KJ9yCxZhDoj1DxXuG+SHwj1ktdGKcP4OPx
DXzdfkKwzytyXYjUqHUN1eTmRuaoGtk7IUedS+2diIgoerO4RHIAsZJTgFLy
fvfAoKwxOrk6xzmP/YNdWWfcT+3fyRho0dXAoKuCsaUW+vpSFFPbxyv/2f+2
a8CMriELjNTAzeSNBmMHGruMMPSYUNfahELqQnVRllwfycqlP02MQBS/g4qx
rS1Nw3BvA/ZXqQmOp/HheArvDyZxTX94seHAyYod+8T+9nQ/NiZ6sG7nvZ/q
w97MIHZnB/m66JllhZ1ewMCYz6JGjwvxRxL9p8g3jQ1lGLB2YELUeDJeeqmd
+vrpI4bMsJg7qJ0MWJ6flj35v8getJ9/32cq6qYPDg9lT2OxltDa1oL2tlY0
8/7XUAM1NNSi29yFkYlx2KZnMTg+gab2TvrRbLh4+OLR48d4zHvp9vIRYsI9
0VSnxuqsCZfHduJ6CV9Ez97bfeZ/sQ52Sh10IWOBzpyfzoOvfeXvb/m3H95S
Dx4O4Gy3l3HQxzjqxRLfyzrQyLjMhELhA2enH/H45z/B+dEfEOL2R0QH/REJ
UX9GrOJbhAXeQ6DfC4mfkOBAYssV7mINKsiXsRNLbZeKXGoXsS+voUGLBj2P
hipyYy1KS8r4+0zExKqos9TQNTXJffnjEzZqZRtG7DZMLS1g5/QYp5eXvGbH
GB8ZR4WmFMmqBMRRDyeSkzMyVChSJ6KxKh0j3YWybnrDIbS/GgUp4fBy+hX3
//Yt7v39Wzx48D1j8ym9YiA/k5zOHJpMbhf7XiJCfKCkz49VukOpIB+EOSMy
3IOx7UP/Qj2tzpB7e0Rfljbq++oqLTLJYUplDKKUsdTg2Sgur0aVnvfT3I+R
SQc29zZwcX2Ki8sTHB/vYYmYGGGMD9Prjg1YYCe+h8xtaKzTIDcrXu4Z+L3+
cbQX/Y4hDE6N85jAwOQErA4Henlt2notqCFeKqgVKujTNOX5UOcmIVUVjszk
COjoeaaHO3C6OYH3h/N4tzeNi00bTlZHsbswgFUxM3LUiIWRViyOtWHN3o3d
OStOV8cZH5M435jC/qINC+O9sLY3oEbUWcUpqHF5HVJjmYfy0NPdSJ/QDpOp
CUajTvbI7DEZ6KPppbtFPwgHsXglZ1bcffny215rOYvrM67fX2F3f0c+Axb7
rLvphVoNouesDmZLFyaYJ1Y217G+u4fFjR0MO+ZRXmtA5Jtk+AeF4nUQtXaw
L++NB3LSFeg2FNPLtBLHY/h4tYxPHzbx6dMuddChXAsWcfBZeGDBA1/EPKUL
fP1yJPXS5ZkDp3uDONmyYHe5EwuTrbxHOjTq85CeHk7/+5w65gd4vPwzlNT7
+Sk/oFrzFPkZD/BG8TPzJrW4Mgzxb2KobUKY830QItf6VCgsIsdT17UbW9FD
Pu3qNsDA71hboyUP5CIxMZVamt6xohrG3j7YZmeoERdhn56GdVzMqpvC2v4+
zq6viaFrrK2sw2IyM1+KPYHl0i9W11XIWol2Qxm623LRb8yEqUmFytxgxAS/
gufLp3j57CmcXlDHuT1BVIwPCouTUFtfhPoa5rb0eHKAN3WaC/21m6ydUCoC
GPsB9NwBCA71R3hEkHwOU0mPK/qZ6Zmjypj/U1OS6CFikcI4Ly0rR3N7B8zU
t+MzM1jeXMHhqaj93pX1xfv7G5imlrOYOmQ/hu3VORxuLWGKGKunh0lJCJef
/Q/899r6MDgzglFR4y3ihtem3zEJ08goWnmt9OSDho4W1Bl08tlrPvNyFrFf
lB0Do16DJZsZ55vM/dT773bncLwyJjG+Rn07M9wCe189Jvp1mB5q4t8asTPf
Rz9ow/XeLK6pkY4ZA+szw/SWzO8detSVFchZbMV5KfTVBTB1ijXcFuZ6HTra
69DWWotO8X9DLRpqNbD2tODicIM4u5EzGG/lXC4xt+EWH8kLp2dHWFiYJv67
ZZ1BC7W/hbllenJc1tuvb20yBrYxv7rNXLKI+tYecmsxYhLTEJeURA2rRFio
N8LJ45mJgWiuTKF3qcX+xgCuRY/3mw18vN1h3B3i01f6ga8XUg/95glu5DOi
T5/p2y/ncbY/hBPqn/2VDixPNcExWo+BvipiNR8lJQlISnpNjD9FUep9NJY+
QrP2CfLSvqMu+CtUShekJyqQmZpA7o2izxXPTMU+wjfIzSuSa4jdZrFXrZv+
ugU65v8y6tm8/Hzm1AJoiH2DyYKxuXmskhd3Tk4wv74O8+gw2vutGOfr28cn
cobT1tYOPdUsedeOwSGr7PfXzfftHWSutLaisz0fddpI5Ke70hs9QpDXr/D3
cKEnJ77F87NAd8QnBKCgIA4VFZnQFFFz0Lu/9nNDgA/1UIAvc30oFJERcp+0
WP/wCfTC63DquNgwJKfG8bxFP7Esua85lfyTq85Eba0W3d1GDJC/RiftcCzN
MW/xHm7PYY04WlubxuLCBLUPuYP32T7aj6OdFXL2JuYcVuiq8pFB7CarFL/j
v0XkVWsnTMMW9I4NynUyIzW1wWyhLzCiqqkRpTUVyNXkIz0nDaqECKTGBkBX
mgpHfwsOl8eJe+LgcBlveQ67swPM8yLvM/769RjvrYWN+J8cbMKCrQObc704
JkdcHczRLywxl87SF9qxPCP2jpEHuuiHdRWSqwz6CvR2NcpnyqLuWdTa6qjh
xL911UUoyElETbla7mm7vWHe/XorD4H92y8f8f7mCienB1iYn5KzeirFvv3q
Mr5fh5w5tbaxjIWVZUzQPw/ZZtBuGUFRVSOSson/5Gwo4lT0WwqZm16/dkNY
kDPS3vigoTIZU2PNOD8SXngdNzfrMgZuPzMGxBrAlyvZN0nUbos5p3fkhndX
KzjdH8Xhmgl7i21Yn2U+mGrA3KQeDrseVmsV7y91TJY3yrIeoqbgPspz/g5V
1H8i1Pe/qcGeIS0xHGn0yirZozMcMcpIif+sbDV9dK3siW3sMlDj19DblzJX
FlETVaCyug4tHV0YsDmwuLOHk5uPOKdHWjs4hJl5TtdBzuA9n55fxMrKGlYW
l7C+vIzN9TXM8doNjw2gf6RfzkoaGbfA3ENfWRGDlPhX9LwPEej9HEG+3sS3
PwLoR0KZL2Jj/ZBEvyD2iSkVfrKe2t+HfkDUepNXw8Ii5XNqZVwcwpQRcPd3
h6uPMzw8nckfTvD392R8hMg90IX52fRsWvT0tMNmG4RtYlj2GxiyMw6ojcfH
TbDbehizg8z9VvSamAuoJ4bFfsd5G3ZWp2Eb7EI986k6842s5/4H/gvoO4XP
1pSKfjH0CIYGNFB/1errUFFTieLSYqRnpiKC5+Lt5QY/N96HKB/0NBRha7qX
2J/CJ2qfD3v0uXMDmB9qxYRFB3uvnrmfOc7azHzZDMewQdZVbywMytlcV0fL
+HC6gcuDFRytT2Nv2U5uGKMf6MeU1YihLj16qXUsbTp0Geqhq62Ua7nFJfmo
IheLurbiwkzoqMnWp4apyc/kzArImbu3snfA9fsLHFEPzs45qCX1KC/LRbW2
AP0WA+aE91hbxNyS6P00D/OwA9XNJiRklyIsIRvBMSnwCo7ifQmCX3AwQiJD
EaF4Lfd25aRHwmgoIbfS85/9NufjjjHwhZ746+3Bb3sj7i7w5fMlz+Wt7PF+
+2GLeWgKhxv92F0yYnuxBRvz9fQUtVicEbO96tFtLIC2RIHCtFdIjroPhf9f
4O38Xwj1/xkJsb5ISVIgJjqMOTOYWjhSru+9iY2jLkhGPnOltqoYVdUaaDQ5
cn9oZYWGPr8KrR1tsI4wvyyu4ODiChcf73B+e4u9txewz8+hrasLzeSPns5O
9Hd1Yoy6d5laeGt5DguzdgwMmNDB2DJZeugZiL0RMSegHGpqe6VYp4oIZhwq
ifsQ+Iu9uBG+iI0PpncI5Ws+cHtFXfT0IbzcXKj/ee5RUYhNSEBCRjpik1XE
fzjcfVzx/IXwXA/x04+/4KefH+Glqyf5IB4FmiK5p7GbuB4dMmJs2Mh72ISO
NtHjW4P2Jg36TXWYGOsg/k0YGxKz/GoxaG7AqOjlQP0gejiIHg8ZmYmorq36
Hf9Knrsvce3v5wmVKlZex8JitVyPylGLOhRyl1wT98DTR7/A5cl9pCm8YSH+
N/lZJ8uDOF4axN4sPR0x3t+iQUeNGpaWMsYAc/5oF+bHOzFr78LSpAWbiyM4
2p7B5dEqPpxt4R256e3uIs5EH7UlB99nhF65DzNiNmZ3E7qbqqGnHiwtyue5
5UJTyfzf1gyjySg1bk+rHlszNnx+f/p/zyA/yblGYk7hhehXtLcp59i0ix4Y
NRpyRymGBtqYK4YwNeugBp7B8MQ02vtGUFjVROznwDtMBY/gWLz0CcVzdz+4
+QYgICwMoQr6t3Af6kcPFObFwTHSJvuF3F0t8fOX8eVmjR/PGPi0j8+fDunL
j/H18zFAf/D5wzben87jdGsE+6sm7CyKGuU6xoCoTavH0nQDRqyV6GjMQllu
KN6EPUGg5w947fUzkuNey95EKSnRzEOBUidHRUfRX8YRS6I/kII+QIG0VHJB
pgqZGfHy+U9FeaGsLxoatmJ2cZ4+cQ8X729wdceo/MwY+HSD9f09DA0Noble
B11ZBeqLNWjVVmKou4McZ4V9pJf53oBW5g9LXw+v5QRm5yf5nr3Q62uIKWJF
ncPPzZRrjcKTh0f6E9+hiIkLg4f7S/z4/Te49923ePbwIbXPa6ioK9Pz1Mgo
ykNMaiKCFCHw8vWEu7sbXjxzxrOnLnBy9oZfiBIJ6WoUV1ZCSw0i5mYYWyth
aqtES30+yosSUZCpRGluHPTVOTB3ajFMnT0yoCf+q6mntehqKkdtKc8vjddK
yeuqikGV7p/17+4uL/DsyQO4vHoh9wmo8zKRpU6jBmN8JopewHH0HkoE+Iv1
uyfwffUE2dQ/7dosjHVWY7yrGqPGSnlYif02bQaay9PRaygnhul5RZ/xmT6s
zPRiZaoX6/OMlXUHzvYWyQHr1EAbuCYHnG/O4WhxQuJ/h9hcGDNhhNqsvb4c
1cz54tl1TU0Vc1UnrPZROMjLNvsIbMP99A8TzK3b+PjhlFrkQvYAvrq+oPY5
kn1Gp/l7CzWsgR6mva2W+O+AjTxuHepDt6UPTe3dKNLqEJuaB6/QeLgExMD1
tRJO3sH49ZUHHr90xQs3V7h60ue5P4Ob8y+IVfigTV+IOXs79Xw/znZG8fbQ
gfcXC3Kmwc07ns/NrpxL/JnH3fst3Jwv4oLe+XDdTL4zYHdRh61F0YdFxxho
xjR10Eh/Fdr1mSjMCqLP8kdhjhL6ujx6wVJ6rzTmIqVcy05OSWQ8pFAjRCI0
JBChon4mTPRDCEFifCT9pujbkkPP1CSv09LKErYPdnF6dYnL24+4pE96y393
qIGG6CVrRL+09EzkJ6egJCODGq8UZmMLhgfMGKUuHR23wjFll3ss9w82qR3n
MUp93WpoRIOuntxazvypovb3R2Cwj1w3jVQGwcXVCX//7ht88z9/wg9/+xvc
XN3ks0y1phi5ZSVIycsmD6QgnjyQyLhIVKUx5xaiqKwOWn07Gow9aDF1o6m1
EXW1JbJ3nphNrckV620KZCeH0y+KWmqVrNdt1OXRF2ajtiId1Rp+FzV9VXQw
An2pXfw8kJCcgMbOjt/xL/Yse9G7KKPCUVioRlVNOfN/HlTJb3j+1G5CZ8ZE
IkjUrniSvwLckJ8YiqaSNBgZc00lKWgoUsFQnorOmmx01+ehr6UEE72NWHWY
yfXD2F4awho98co042DWSl4dowaaxfneEt7ur+Jyfxkn9C470yPYmhzA5qQV
8+SNYWqg1roS1JQWyPkcPeTl8ZlpzG6sYW1vB0ury3KvxwL9/tbqLI4OxGy+
XZyfH8gZjccnh9g72Mfq+iomJsbR32+GxUJeEc/DBk1obTcwr9Qju0ADRUIq
3AOj8NwrDI/dgvHUIwQvPAPxmBz8wMkZj5xe4MHjB/jp3l/x8Me/wNftMfJS
I9FclQmLoQgDnaWwW+sY592yh87bsyV8eLeJj+93eGzj9nqD+Bff1ybxv7tk
wM5CPfmwjhq1XuJ/fqoFjrEGWLpKeA/T+Z1z0MqcYu6pl3FbWppLraNCEv2g
WM/LyEiTPlJws6jd8WGuDfT3gCLMD3HRIUhNVEJbUYgecztGbQPkgBms7WxQ
Ax3j8OqCfvdIzu9pbWpGTkoaEiIUSCGfZFKTix4fLQ01cs7vHD2lrAveWaU/
FvMv97DL+yZ6/prIE8b2NjTqm6BW5yIklHrR3wsRUYHkqHAEMzZdXjnj/r17
+OH7e3j1yhXR1DTq4lLmnCpo6mpQY2hCXUsT6vWNMPcNwT5DX7Z5hKX9c/qV
Y0yvbdCfjaK1VYeSAvH8JZK4VxD3sSjKikdxThyK1G9QnB+H7IxIJMX5IyHa
B6lvgpASTc4OcIeX6wupccT+btPY6O/4/9fPv37+v/78L4s5tDs=
     "], {{0, 157}, {192, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   BaseStyle->"ImageGraphics",
   ImageSize->{63.20000000000002, Automatic},
   ImageSizeRaw->{192, 157},
   PlotRange->{{0, 192}, {0, 157}}]], "Input",ExpressionUUID->
  "73765fe0-7b2e-47be-b5d3-1ae0fe1cb68e"]
}], "Text",
 CellChangeTimes->{{3.486825312171875*^9, 3.486825320546875*^9}},
 TextAlignment->Right,
 TextJustification->0.,ExpressionUUID->"5b492bdf-5adc-41c3-8de8-d16c2d60790e"],

Cell[CellGroupData[{

Cell["\<\

Models of drug elimination and dosing II
\
\>", "MainTitle",
 CellChangeTimes->{
  3.4569015455*^9, {3.467306741796875*^9, 3.46730677990625*^9}, {
   3.467308762734375*^9, 3.467308797421875*^9}, {3.486397845875*^9, 
   3.486397862578125*^9}, {3.486828584921875*^9, 3.486828594421875*^9}, {
   3.48683368796875*^9, 3.48683368878125*^9}, {3.500007641171875*^9, 
   3.50000765440625*^9}, {3.593679578872478*^9, 3.5936795898824935`*^9}, {
   3.5936803534945626`*^9, 3.593680410734643*^9}, {3.5936830868623896`*^9, 
   3.593683095972402*^9}, {3.669569324698597*^9, 
   3.6695693287412057`*^9}},ExpressionUUID->"32bec379-1e67-431d-9cad-\
c77d95f73a14"],

Cell["\<\



\
\>", "Text",
 CellChangeTimes->{{3.593680413754647*^9, 
  3.593680420474656*^9}},ExpressionUUID->"f743308d-d5c5-4fe6-a41d-\
9a674ef8f80d"],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "Section",
 TextAlignment->Right,ExpressionUUID->"5aba28e5-a044-4f56-8f5a-ef25e034d6e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"00959856-04b6-427e-8d4a-eb733191b9d8"],

Cell[CellGroupData[{

Cell["Extravascular dosing: a model with two compartments", "MainSection",
 CellChangeTimes->{{3.467479205296875*^9, 3.467479211734375*^9}, {
   3.46748020978125*^9, 3.46748022640625*^9}, {3.467895546296875*^9, 
   3.467895549625*^9}, {3.4689510788125*^9, 3.4689511235*^9}, {
   3.593626167831974*^9, 3.593626170341977*^9}, 
   3.593683725225283*^9},ExpressionUUID->"9880788c-5037-4150-bbdc-\
ed4b444afb1b"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0., 0., 0.6], Opacity[0.196], EdgeForm[{RGBColor[
    0.13333333333333333`, 0., 0.11607537956816968`], Opacity[1.], 
    AbsoluteThickness[2.16]}], 
    RectangleBox[{0.0853435994429247, 0.888888888888889}, \
{0.35138042439051775, 0.7514062829432848}]}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
    1.], 
    {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
     1.], 
     StyleBox[InsetBox[Cell["\<\
Compartment 1
   x(t)\
\>",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,ExpressionUUID->
        "2d20fdcc-cc74-463a-986c-1fec2d91fc01"], \
{0.12245082149699732, 0.8361889722692276}, {Left, Baseline}, 
       Offset[{143.20000000000005, 63.6}, {0., 0.}], {{1.363809523809522, 
       0.}, {1.44149924971492*^-17, 3.9750000000000028`}}], "Text",
      FontSize->14,
      FontWeight->"Bold"]}}, {
    {RGBColor[0., 0., 0.6], Opacity[0.196], EdgeForm[{RGBColor[
     0.13333333333333333`, 0., 0.11607537956816968`], Opacity[1.], 
     AbsoluteThickness[2.16]}], 
     RectangleBox[{0.6105510121127566, 0.8856712979364517}, \
{0.8862130332304408, 0.7481886919908478}]}, 
    {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
     1.], 
     {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], 
      Opacity[1.], 
      StyleBox[InsetBox[Cell["\<\
Compartment 2
   y(t)\
\>",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,ExpressionUUID->
         "831bcce2-efc7-4aa5-ac95-3683332788f2"], \
{0.6620776424289195, 0.8393375987479779}, {Left, Baseline}, 
        Offset[{124., 62.80000000000001}, {0., 0.}], {{1.1809523809523805`, 
        0.}, {3.4694469519536138`*^-18, 3.9250000000000003`}}], "Text",
       FontSize->14,
       FontWeight->"Bold"]}}}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], 
    AbsoluteThickness[0.5], Opacity[1.], Dashing[{}], Arrowheads[0.04], 
    EdgeForm[None], 
    ArrowBox[{{0.3549112137970172, 0.8177437295073198}, {0.6093418745799521, 
     0.8174175363524698}}]}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
    1.], 
    {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
     1.], 
     StyleBox[InsetBox[
       RowBox[{
        SubscriptBox["k", "a"], 
        "x"}], {0.458197847693135, 0.8468176021577682}, {Left, Baseline}, 
       Offset[{124., 33.99999999999999}, {0., 0.}], {{1.180952380952381, 
       0.}, {0., 2.125}}], "Text",
      FontSize->14,
      FontWeight->"Bold"]}}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], 
    AbsoluteThickness[0.5], Opacity[1.], Dashing[{}], Arrowheads[0.04], 
    EdgeForm[None], 
    ArrowBox[{{0.8892003344318429, 0.8235234119915646}, {1.062675784965662, 
     0.8231972188367147}}]}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
    1.], 
    {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
     1.], 
     StyleBox[InsetBox[
       RowBox[{
        SubscriptBox["k", "e"], 
        "y"}], {0.9344426893531254, 0.8507171310116262}, {Left, Baseline}, 
       Offset[{67.2, 34.}, {0., 0.}], {{0.6399999999999998, 0.}, {
       1.880216412671636*^-18, 2.125}}], "Text",
      FontSize->14,
      FontWeight->"Bold"]}}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], 
    AbsoluteThickness[0.5], Opacity[1.], Dashing[{}], Arrowheads[0.04], 
    EdgeForm[None], 
    ArrowBox[{{-0.09255561479322927, 0.8244729246202267}, {0.0809198357405897,
      0.8241467314653768}}]}, 
   {RGBColor[0., 0.051758602273594266`, 0.2], AbsolutePointSize[3.], Opacity[
    1.], 
    StyleBox[InsetBox[Cell["Doses",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,ExpressionUUID->
       "31259363-1425-4841-8857-7ebcdf0346b5"], 
      {-0.08033324800346182, 0.8495752541809717}, {Left, Baseline}],
     FontSize->14,
     FontWeight->"Bold"]}},
  ImageMargins->{{1.0231815394945443`*^-12, 2.400000000000002}, {0., 
   9.094947017729282*^-13}},
  ImageSize->{Automatic, 100.60967859270237`}]], "Text",
 CellChangeTimes->{{3.468951503546875*^9, 3.468951504421875*^9}, {
  3.468951554234375*^9, 3.468951602671875*^9}, {3.468951709609375*^9, 
  3.468951710875*^9}, {3.4689517483125*^9, 3.468952268609375*^9}, {
  3.46895236509375*^9, 3.468952373046875*^9}, {3.468952426453125*^9, 
  3.468952427390625*^9}, {3.468995043734375*^9, 3.468995045890625*^9}},
 TextJustification->0.,ExpressionUUID->"c1c928cf-5afa-440c-9731-14c09062f289"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", 
    RowBox[{"(", "t", ")"}]}], TraditionalForm]],ExpressionUUID->
  "65366e06-d865-4ac4-8a10-964c87d5242f"],
 ": the mass (concentration) of the drug in the \"input\" compartment"
}], "Text",
 CellChangeTimes->{{3.468952619921875*^9, 3.468952908921875*^9}, {
  3.46895301553125*^9, 3.468953018296875*^9}, {3.468953131140625*^9, 
  3.468953177640625*^9}, {3.468960068734375*^9, 3.468960080140625*^9}, {
  3.469011262890625*^9, 
  3.469011263484375*^9}},ExpressionUUID->"1995bc36-fe36-4495-87ff-\
bc32329bf4dd"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "(", "t", ")"}], TraditionalForm]],ExpressionUUID->
  "f273e608-ae8b-4200-b8be-689638431263"],
 ": mass (concentration) of the drug in compartment 2 (blood)"
}], "Text",
 CellChangeTimes->{{3.468952619921875*^9, 3.468952908921875*^9}, {
  3.46895301553125*^9, 3.468953018296875*^9}, {3.468953131140625*^9, 
  3.468953177640625*^9}, {3.468960068734375*^9, 
  3.468960083578125*^9}},ExpressionUUID->"6793bfd2-bef9-48f4-99b5-\
a85414267e2c"],

Cell[TextData[{
 StyleBox["Assumption:",
  FontWeight->"Bold"],
 " the drug is not eliminating from comp. 1. Only it is absorbing in the \
blood. "
}], "Text",
 CellChangeTimes->{{3.468952619921875*^9, 3.468952908921875*^9}, {
  3.46895301553125*^9, 3.468953018296875*^9}, {3.468953131140625*^9, 
  3.468953177640625*^9}, {3.468960068734375*^9, 
  3.468960084609375*^9}},ExpressionUUID->"61df60da-a4b3-4fe2-9e24-\
f2b24e01fb7b"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\t", 
    SubscriptBox["k", "a"]}], TraditionalForm]],ExpressionUUID->
  "3f73ab88-8e63-4974-810e-bf5599da9855"],
 ": absorption rate"
}], "Text",
 CellChangeTimes->{{3.468952619921875*^9, 3.468952908921875*^9}, {
  3.46895301553125*^9, 3.468953018296875*^9}, {3.468953131140625*^9, 
  3.468953177640625*^9}, {3.468960068734375*^9, 3.4689600761875*^9}, {
  3.5936837509153194`*^9, 
  3.5936837509153194`*^9}},ExpressionUUID->"7bf8ae32-6017-4856-9ae4-\
a7019c9768f0"],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   SubscriptBox["k", "e"], TraditionalForm]],ExpressionUUID->
  "cf9c9d4e-78df-4fa7-8f9f-ffc6526e27b2"],
 ": elimination rate"
}], "Text",
 CellChangeTimes->{{3.468952619921875*^9, 3.468952908921875*^9}, {
   3.46895301553125*^9, 3.468953018296875*^9}, {3.468953131140625*^9, 
   3.468953177640625*^9}, {3.468960068734375*^9, 3.4689600706875*^9}, 
   3.593683752235321*^9},ExpressionUUID->"7e33e870-16cd-4318-9913-\
8be060869c0e"],

Cell[CellGroupData[{

Cell["The system of differential equations", "Section",
 CellChangeTimes->{{3.468954340546875*^9, 3.468954358078125*^9}, {
   3.593626528902479*^9, 3.5936265388224936`*^9}, 
   3.593683762935336*^9},ExpressionUUID->"7ab19b9e-717d-4aa4-96e9-\
13a96c4c0ca9"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"x", "'"}], " ", "\[Equal]", " ", 
   RowBox[{
    RowBox[{"-", " ", 
     SubscriptBox["k", "a"]}], " ", "x"}]}], 
  TraditionalForm]],ExpressionUUID->"49342965-ef77-4bb6-ad70-b6b013bebc96"]], \
"Text",
 CellChangeTimes->{{3.467309357375*^9, 3.46730941196875*^9}, {
   3.467309458515625*^9, 3.46730946540625*^9}, 3.467309572984375*^9, {
   3.467310250984375*^9, 3.467310254765625*^9}, {3.467479256109375*^9, 
   3.467479305890625*^9}, 
   3.4689523155625*^9},ExpressionUUID->"44f3c58a-004b-480d-9e79-5efe0130f3e8"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"y", "'"}], " ", "\[Equal]", "  ", 
   RowBox[{
    RowBox[{
     SubscriptBox["k", "a"], " ", "x"}], "-", 
    RowBox[{
     SubscriptBox["k", "e"], " ", "y"}]}]}], 
  TraditionalForm]],ExpressionUUID->"2bff38f8-0686-473d-8aea-7317860e8afc"]], \
"Text",
 CellChangeTimes->{{3.467309357375*^9, 3.46730941196875*^9}, {
   3.467309458515625*^9, 3.46730946540625*^9}, 3.467309572984375*^9, {
   3.467310250984375*^9, 3.467310254765625*^9}, {3.467479256109375*^9, 
   3.467479305890625*^9}, {3.4689523155625*^9, 3.4689523195*^9}, {
   3.593763369072751*^9, 
   3.593763369072751*^9}},ExpressionUUID->"323527a4-f2e7-43f4-8237-\
e864cd2a6d6e"],

Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "'"}]},
       {
        RowBox[{"y", "'"}]}
      }], "\[NoBreak]", ")"}], "=", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["k", "a"], "0"},
        {
         SubscriptBox["k", "a"], 
         RowBox[{"-", 
          SubscriptBox["k", "e"], " "}]}
       }], "\[NoBreak]", ")"}], ".", " ", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"x"},
        {"y"}
       }], "\[NoBreak]", ")"}]}]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.669569708193712*^9, 3.6695697321725874`*^9}, {
   3.6695698248960037`*^9, 3.669569951182587*^9}, 
   3.6695713246025076`*^9},ExpressionUUID->"d09c86a2-e0e8-4890-8e2a-\
5b93cd667737"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"(", "0", ")"}]}], " ", "=", 
    SubscriptBox["x", "0"]}], TraditionalForm]],ExpressionUUID->
  "4491233a-458b-44c3-8ee5-f7eb7d808062"],
 "; \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", " ", 
     RowBox[{"(", "0", ")"}]}], " ", "=", "0"}], TraditionalForm]],
  ExpressionUUID->"d37621c3-a94e-4d16-8f8b-855f664d7d41"]
}], "Text",
 CellChangeTimes->{{3.5936270906542664`*^9, 
  3.5936271426043386`*^9}},ExpressionUUID->"b9b09aba-5b6f-4473-84d4-\
4a2a161ec542"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "Section",
 TextAlignment->Right,ExpressionUUID->"7137cc4d-011a-49f3-9fc7-3e10b50c0baf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"7cae6c11-5c4b-4e50-9470-08d0d13a0225"],

Cell[CellGroupData[{

Cell["The solution:", "MainSection",
 CellChangeTimes->{{3.5936268191628857`*^9, 3.593626834672908*^9}, {
  3.593683773475351*^9, 
  3.593683775655354*^9}},ExpressionUUID->"bd528ec5-e772-4a4d-8e70-\
ce8c512f4b44"],

Cell[CellGroupData[{

Cell["The first equation:", "Section",
 CellChangeTimes->{{3.6695701546076317`*^9, 
  3.6695701849953823`*^9}},ExpressionUUID->"84f2b665-119e-40b1-8273-\
c0c95fa125b0"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "'"}], " ", "\[Equal]", " ", 
    RowBox[{
     RowBox[{"-", " ", 
      SubscriptBox["k", "a"]}], " ", "x"}]}], TraditionalForm]],
  ExpressionUUID->"57d0b6ee-4e0e-48ae-a64d-a2afd007017e"],
 ",  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"(", "0", ")"}]}], " ", "=", 
    SubscriptBox["x", "0"]}], TraditionalForm]],ExpressionUUID->
  "377dc1f9-2fb8-447e-9dd1-3321f434dae1"]
}], "Text",
 CellChangeTimes->{{3.467309357375*^9, 3.46730941196875*^9}, {
   3.467309458515625*^9, 3.46730946540625*^9}, 3.467309572984375*^9, {
   3.467310250984375*^9, 3.467310254765625*^9}, {3.467479256109375*^9, 
   3.467479305890625*^9}, 3.4689523155625*^9, {3.669570381488697*^9, 
   3.669570382644214*^9}},ExpressionUUID->"c045de26-7ca8-4f9b-ac85-\
3591524cba40"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"x", "(", "t", ")"}], "=", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "t"}], " ", 
      SubscriptBox["k", "a"]}]], " ", 
    SubscriptBox["x", "0"]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.467479462921875*^9, 3.46747947784375*^9}, 
   3.46747954946875*^9, 3.467819955375*^9, 3.4678959591875*^9, 
   3.468126652921875*^9, 3.468908799859375*^9, 3.46895333071875*^9, 
   3.46895341396875*^9, {3.59362691518302*^9, 
   3.5936269889931235`*^9}},ExpressionUUID->"3ba180b5-6f05-426a-9cb9-\
23e2147ee4d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The second equation:", "Section",
 CellChangeTimes->{{3.6695701546076317`*^9, 
  3.669570218960225*^9}},ExpressionUUID->"297236f3-e85f-4949-ab9a-\
9468adcb8a56"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", "'"}], " ", "\[Equal]", "  ", 
    RowBox[{
     RowBox[{
      SubscriptBox["k", "a"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", 
        SubscriptBox["k", "a"]}]], " ", 
      SubscriptBox["x", "0"]}], "-", 
     RowBox[{
      SubscriptBox["k", "e"], " ", "y"}]}]}], TraditionalForm]],
  ExpressionUUID->"7ef93b34-eceb-46bc-9517-002d2c3c1fb5"],
 ",    \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", " ", 
     RowBox[{"(", "0", ")"}]}], " ", "=", "0"}], TraditionalForm]],
  ExpressionUUID->"843feca0-ee3d-482e-a548-fcc3c7450e9c"]
}], "Text",
 CellChangeTimes->{{3.467309357375*^9, 3.46730941196875*^9}, {
   3.467309458515625*^9, 3.46730946540625*^9}, 3.467309572984375*^9, {
   3.467310250984375*^9, 3.467310254765625*^9}, {3.467479256109375*^9, 
   3.467479305890625*^9}, {3.4689523155625*^9, 3.4689523195*^9}, {
   3.593763369072751*^9, 3.593763369072751*^9}, {3.66957024766425*^9, 
   3.66957024766425*^9}, {3.6695703956883063`*^9, 
   3.669570402416735*^9}},ExpressionUUID->"6ae7c1c6-9262-496e-bd33-\
06667dc11d35"],

Cell["\<\
How to solve it? Not a separable equation!!!
Special method is needed (in the course: Differential equations)\
\>", "Text",
 CellChangeTimes->{{3.6695702549371123`*^9, 3.6695702968026056`*^9}, {
  3.669570501535356*^9, 3.6695705423442593`*^9}},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"f388fd43-3e6a-4caf-bc89-0cb60f2fc215"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"y", "(", "t", ")"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "t"}], " ", 
         SubscriptBox["k", "a"]}]]}], " ", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", 
        SubscriptBox["k", "e"]}]]}], ")"}], 
    FractionBox[
     RowBox[{" ", 
      SubscriptBox["k", "a"]}], 
     RowBox[{
      SubscriptBox["k", "a"], "-", 
      SubscriptBox["k", "e"]}]], 
    SubscriptBox["x", "0"]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{
  3.469021723421875*^9, {3.5936268519529314`*^9, 3.5936268749429636`*^9}, {
   3.5936270273241773`*^9, 
   3.5936270696942368`*^9}},ExpressionUUID->"a4f18c5b-4a65-4925-b507-\
1a47ecb58447"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Calculations with  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " "
}], "Section",
 CellChangeTimes->{{3.467480230078125*^9, 3.467480232453125*^9}, {
  3.468952603359375*^9, 3.468952606484375*^9}, {3.4690085771875*^9, 
  3.469008641109375*^9}, {3.593626775352824*^9, 3.593626780952832*^9}, {
  3.593683812285405*^9, 3.59368381544541*^9}, {3.669570719548398*^9, 
  3.669570733116563*^9}},ExpressionUUID->"e41d9f08-edaf-4cc4-b444-\
b04ce975d14c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["k", "a"]}], " ", 
     RowBox[{"x", "[", "t", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46747937671875*^9, 3.467479390859375*^9}, 
   3.4689530660625*^9},ExpressionUUID->"70e7e31a-e7b5-4614-b8c1-c9eec7229b35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{
      SubscriptBox["k", "a"], " ", 
      RowBox[{"x", "[", "t", "]"}]}], "-", 
     RowBox[{
      SubscriptBox["k", "e"], " ", 
      RowBox[{"y", "[", "t", "]"}]}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4674793985625*^9, 3.467479425453125*^9}, 
   3.468953408890625*^9},ExpressionUUID->"debd434d-611e-422c-b93c-\
2cc4eb81333c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"e1", ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "x0"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46747943015625*^9, 3.46747947725*^9}, {
  3.5936269098730125`*^9, 3.593626938023052*^9}, {3.669570744240124*^9, 
  3.669570773317342*^9}},ExpressionUUID->"3b56f576-7b3b-4595-9003-\
ff59e3106af9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "t"}], " ", 
      SubscriptBox["k", "a"]}]], " ", "x0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5936270004431396`*^9, {3.6695707544152603`*^9, 
   3.6695707745504484`*^9}},ExpressionUUID->"88d0ee78-e0c0-4652-9dd0-\
f328163463df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e2", "/.", "s1"}]], "Input",
 CellChangeTimes->{{3.467479481984375*^9, 
  3.467479485453125*^9}},ExpressionUUID->"f1e4f9ff-8abf-4216-ac5a-\
1d7f1eb5006c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["y", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "t"}], " ", 
      SubscriptBox["k", "a"]}]], " ", "x0", " ", 
    SubscriptBox["k", "a"]}], "-", 
   RowBox[{
    SubscriptBox["k", "e"], " ", 
    RowBox[{"y", "[", "t", "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.467479485890625*^9, 3.467479559859375*^9, 
  3.46781995709375*^9, 3.46789595921875*^9, 3.468126653*^9, 3.46890880125*^9, 
  3.4689533325625*^9, 3.46895341596875*^9, 3.593627004434145*^9, 
  3.6695707792601385`*^9},ExpressionUUID->"73257f62-2854-4222-8833-\
5620e4b8cd2a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s2", "=", 
  RowBox[{
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"e2", "/.", "s1"}], ",", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
     RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467479504234375*^9, 
  3.467479546125*^9}},ExpressionUUID->"a5e1c32a-2521-4c92-b9cc-b85348837875"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "t"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["k", "a"], "-", 
           SubscriptBox["k", "e"]}], ")"}]}], "-", 
        RowBox[{"t", " ", 
         SubscriptBox["k", "e"]}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["k", "a"], "-", 
            SubscriptBox["k", "e"]}], ")"}]}]]}], ")"}], " ", "x0", " ", 
      SubscriptBox["k", "a"]}], 
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["k", "a"]}], "+", 
      SubscriptBox["k", "e"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.467479518015625*^9, 3.467479562046875*^9, 
  3.467819958953125*^9, 3.467895959296875*^9, 3.468126653234375*^9, 
  3.468908802734375*^9, 3.46895333496875*^9, 3.5936270068641486`*^9, 
  3.66957078191284*^9},ExpressionUUID->"74cc841d-a65b-4e04-b475-22cb859003ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"Simplify", ",", 
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "/.", "s2"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.467479536234375*^9, 3.467479592609375*^9}, {
  3.46747962553125*^9, 3.4674796605*^9}, {3.467479694171875*^9, 
  3.46747971653125*^9}, {3.467479887921875*^9, 3.46747990225*^9}, {
  3.468126741640625*^9, 3.4681267445625*^9}, {3.46812678259375*^9, 
  3.46812689071875*^9}},ExpressionUUID->"30c1bcac-4cf2-4581-8fc8-\
bcfe8a435591"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "t"}], " ", 
       SubscriptBox["k", "a"]}]], " ", "x0", " ", 
     SubscriptBox["k", "a"]}], 
    RowBox[{
     SubscriptBox["k", "a"], "-", 
     SubscriptBox["k", "e"]}]]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "t"}], " ", 
      SubscriptBox["k", "e"]}]], " ", "x0", " ", 
    SubscriptBox["k", "a"]}], 
   RowBox[{
    SubscriptBox["k", "a"], "-", 
    SubscriptBox["k", "e"]}]]}]], "Output",
 CellChangeTimes->{3.5936270102141533`*^9, 
  3.6695707852382593`*^9},ExpressionUUID->"35367dae-b9d3-47e8-abdf-\
3f81c1d21a5c"]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.669570669118538*^9},ExpressionUUID->"745ecc68-df3b-4d6f-96d0-\
d8abd85c6c72"]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive study", "Section",
 CellChangeTimes->{{3.468953540046875*^9, 3.46895355084375*^9}, {
   3.593627159244362*^9, 3.593627164324369*^9}, 
   3.5936837996053877`*^9},ExpressionUUID->"7c339159-f279-4598-9a1b-\
720b74d5a916"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Quiet", "[", 
    RowBox[{"Grid", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Compartment 1\>\"", ",", "\"\<Compartment 2\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "t"}], " ", 
                  SubscriptBox["k", "a"]}]], " ", "x0"}], ")"}], "/.", 
              RowBox[{"x0", "\[Rule]", "u0"}]}], "/.", 
             RowBox[{
              SubscriptBox["k", "a"], "\[Rule]", "k1"}]}], "/.", 
            RowBox[{
             SubscriptBox["k", "e"], "\[Rule]", "k2"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "x"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"280", ",", "200"}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "t"}], " ", 
                    SubscriptBox["k", "a"]}]], " ", "x0", " ", 
                   SubscriptBox["k", "a"]}], 
                  RowBox[{
                   SubscriptBox["k", "a"], "-", 
                   SubscriptBox["k", "e"]}]]}], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "t"}], " ", 
                    SubscriptBox["k", "e"]}]], " ", "x0", " ", 
                  SubscriptBox["k", "a"]}], 
                 RowBox[{
                  SubscriptBox["k", "a"], "-", 
                  SubscriptBox["k", "e"]}]]}], ")"}], "/.", 
              RowBox[{"x0", "\[Rule]", "u0"}]}], "/.", 
             RowBox[{
              SubscriptBox["k", "a"], "\[Rule]", "k1"}]}], "/.", 
            RowBox[{
             SubscriptBox["k", "e"], "\[Rule]", "k2"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "y"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"280", ",", "200"}], "}"}]}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], 
     "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "k1", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(k\), \(a\)]\)\>\""}], 
      "}"}], ",", "0", ",", "5", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "k2", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(k\), \(e\)]\)\>\""}], 
      "}"}], ",", "0", ",", 
     RowBox[{"k1", "-", "0.01"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "u0", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "1", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "5"}], "}"}], ",", "1", ",", "20", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"Savedefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4674806770625*^9, 3.46748080265625*^9}, {
   3.467480838953125*^9, 3.467480849234375*^9}, {3.467480910359375*^9, 
   3.4674809591875*^9}, {3.467480999234375*^9, 3.46748100353125*^9}, {
   3.46782004196875*^9, 3.46782005015625*^9}, {3.467820100640625*^9, 
   3.467820103015625*^9}, {3.467895925296875*^9, 3.46789593278125*^9}, {
   3.46895321596875*^9, 3.46895325584375*^9}, 3.468953302484375*^9, {
   3.46895335725*^9, 3.468953370375*^9}, {3.46895345453125*^9, 
   3.468953521375*^9}, {3.46895357778125*^9, 3.468953763328125*^9}, {
   3.4689538705*^9, 3.468953916*^9}, {3.468953979390625*^9, 
   3.46895411059375*^9}, {3.468954156734375*^9, 3.46895418565625*^9}, {
   3.46895423303125*^9, 3.468954248609375*^9}, {3.4689951620625*^9, 
   3.468995268953125*^9}, 3.469011356328125*^9, {3.46901142553125*^9, 
   3.469011437234375*^9}, {3.46901149728125*^9, 3.46901150575*^9}, {
   3.469011540984375*^9, 
   3.469011554484375*^9}},ExpressionUUID->"c66248d0-10e6-4dbc-a347-\
3243f811c3be"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k1$$ = 0.19, $CellContext`k2$$ = 
    0.20944, $CellContext`T$$ = 13.55, $CellContext`u0$$ = 0.448, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k1$$], 0, "\!\(\*SubscriptBox[\(k\), \(a\)]\)"}, 0, 
      5}, {{
       Hold[$CellContext`k2$$], 0, "\!\(\*SubscriptBox[\(k\), \(e\)]\)"}, 0, 
      Dynamic[$CellContext`k1$$ - 0.01]}, {{
       Hold[$CellContext`u0$$], 0, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 
      1}, {{
       Hold[$CellContext`T$$], 5}, 1, 20}}, Typeset`size$$ = {
    718., {135.5, 146.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`k1$37543$$ = 
    0, $CellContext`k2$37544$$ = 0, $CellContext`u0$37545$$ = 
    0, $CellContext`T$37546$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k1$$ = 0, $CellContext`k2$$ = 
        0, $CellContext`T$$ = 5, $CellContext`u0$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k1$$, $CellContext`k1$37543$$, 0], 
        Hold[$CellContext`k2$$, $CellContext`k2$37544$$, 0], 
        Hold[$CellContext`u0$$, $CellContext`u0$37545$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$37546$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Quiet[
        Grid[{{"Compartment 1", "Compartment 2"}, {
           Plot[
            ReplaceAll[
             ReplaceAll[
              ReplaceAll[
              E^((-$CellContext`t) 
                 Subscript[$CellContext`k, $CellContext`a]) $CellContext`x0, \
$CellContext`x0 -> $CellContext`u0$$], 
              Subscript[$CellContext`k, $CellContext`a] -> $CellContext`k1$$],
              Subscript[$CellContext`k, $CellContext`e] -> \
$CellContext`k2$$], {$CellContext`t, 0, $CellContext`T$$}, 
            AxesLabel -> {$CellContext`t, $CellContext`x}, 
            ImageSize -> {280, 200}, PlotRange -> {0, 1}], 
           Plot[
            ReplaceAll[
             ReplaceAll[
              
              ReplaceAll[-((
                  E^((-$CellContext`t) 
                    Subscript[$CellContext`k, $CellContext`a]) \
$CellContext`x0) (Subscript[$CellContext`k, $CellContext`a]/(
                  Subscript[$CellContext`k, $CellContext`a] - 
                  Subscript[$CellContext`k, $CellContext`e]))) + (
                 E^((-$CellContext`t) 
                   Subscript[$CellContext`k, $CellContext`e]) \
$CellContext`x0) (Subscript[$CellContext`k, $CellContext`a]/(
                 Subscript[$CellContext`k, $CellContext`a] - 
                 Subscript[$CellContext`k, $CellContext`e])), $CellContext`x0 -> \
$CellContext`u0$$], 
              Subscript[$CellContext`k, $CellContext`a] -> $CellContext`k1$$],
              Subscript[$CellContext`k, $CellContext`e] -> \
$CellContext`k2$$], {$CellContext`t, 0, $CellContext`T$$}, 
            AxesLabel -> {$CellContext`t, $CellContext`y}, 
            ImageSize -> {280, 200}, PlotRange -> {0, 1}]}}]], 
      "Specifications" :> {{{$CellContext`k1$$, 0, 
          "\!\(\*SubscriptBox[\(k\), \(a\)]\)"}, 0, 5, ImageSize -> Small, 
         Appearance -> 
         "Labeled"}, {{$CellContext`k2$$, 0, 
          "\!\(\*SubscriptBox[\(k\), \(e\)]\)"}, 0, 
         Dynamic[$CellContext`k1$$ - 0.01], ImageSize -> Small, Appearance -> 
         "Labeled"}, {{$CellContext`u0$$, 0, 
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 1, ImageSize -> Small, 
         Appearance -> "Labeled"}, {{$CellContext`T$$, 5}, 1, 20, ImageSize -> 
         Small, Appearance -> "Labeled"}}, 
      "Options" :> {$CellContext`Savedefinitions -> True, ControlPlacement -> 
        Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{1018., {181., 192.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellMargins->{{6.666666666666666, 10.}, {4., 0.}},
 CellChangeTimes->{{3.468995218453125*^9, 3.468995269765625*^9}, 
   3.469011363578125*^9, 3.4690114395625*^9, 3.46901150746875*^9, {
   3.469011556203125*^9, 
   3.469011585140625*^9}},ExpressionUUID->"1af060de-bacc-4c86-baa7-\
e3daa2fbba00"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"9fd3ac76-876a-4af8-a856-996b8656a979"],

Cell[CellGroupData[{

Cell["Solutions of the system", "MainSection",
 CellChangeTimes->{{3.6695708340397997`*^9, 3.669570853693107*^9}, {
  3.669573304974835*^9, 
  3.669573315735057*^9}},ExpressionUUID->"82acef92-884d-412a-a2f8-\
056d49dbc0ae"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"x", "'"}]},
      {
       RowBox[{"y", "'"}]}
     }], "\[NoBreak]", ")"}], "=", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SubscriptBox["k", "a"], "0"},
       {
        SubscriptBox["k", "a"], 
        RowBox[{"-", 
         SubscriptBox["k", "e"], " "}]}
      }], "\[NoBreak]", ")"}], ".", " ", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"x"},
       {"y"}
      }], "\[NoBreak]", ")"}]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.669569708193712*^9, 3.6695697321725874`*^9}, {
   3.6695698248960037`*^9, 3.669569951182587*^9}, 3.6695713112753043`*^9, {
   3.6695713799485035`*^9, 
   3.669571442554034*^9}},ExpressionUUID->"29d52a8a-eb96-42b4-a054-\
7aa10859dff0"],

Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"A", "=", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["k", "a"], "0"},
        {
         SubscriptBox["k", "a"], 
         RowBox[{"-", 
          SubscriptBox["k", "e"], " "}]}
       }], "\[NoBreak]", ")"}]}], ";", "  ", 
    RowBox[{"X", "=", 
     RowBox[{
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"x"},
         {"y"}
        }], "\[NoBreak]", ")"}], ":"}]}]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.669569708193712*^9, 3.6695697321725874`*^9}, {
   3.6695698248960037`*^9, 3.669569951182587*^9}, 3.6695713112753043`*^9, {
   3.6695713799485035`*^9, 3.669571415195179*^9}, {3.6695714483967857`*^9, 
   3.669571477065297*^9}, {3.669571639643944*^9, 
   3.6695716614343834`*^9}},ExpressionUUID->"34ac9d9f-adf0-404f-b215-\
43fbf41ec271"],

Cell[BoxData[
 FormBox[
  RowBox[{"\t ", 
   RowBox[{
    RowBox[{
     RowBox[{"X", "'"}], "=", 
     RowBox[{"A", ".", " ", "X"}]}], ";", " ", 
    RowBox[{
     SubscriptBox["X", "0"], "=", " ", 
     RowBox[{
      RowBox[{"X", "(", "0", ")"}], "=", 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          SubscriptBox["x", "0"]},
         {"0"}
        }], "\[NoBreak]", ")"}]}]}]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.669569708193712*^9, 3.6695697321725874`*^9}, {
   3.6695698248960037`*^9, 3.669569951182587*^9}, 3.6695713112753043`*^9, {
   3.6695713799485035`*^9, 3.669571415195179*^9}, {3.6695714483967857`*^9, 
   3.669571477065297*^9}, {3.669571639643944*^9, 3.6695716679280553`*^9}, {
   3.669571823497443*^9, 3.6695718713030677`*^9}, {3.6695719221027093`*^9, 
   3.669571928324317*^9}},ExpressionUUID->"2af7db73-0134-43cc-9dfd-\
107513b2b852"],

Cell[CellGroupData[{

Cell["It is a homogenous linear system", "Section",
 CellChangeTimes->{{3.6671996772841773`*^9, 3.6671997064618464`*^9}, {
  3.6695731570552473`*^9, 
  3.6695731610394526`*^9}},ExpressionUUID->"4302a894-6aac-4654-9cf6-\
19d99537a9d2"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"X", "(", "t", ")"}], ",", " ", 
    RowBox[{"Y", "(", "t", ")"}]}], TraditionalForm]],ExpressionUUID->
  "e05fa6ca-45f1-4c44-8815-4f0a49d216ae"],
 " are solutions:\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["c", "1"], " ", 
     RowBox[{"X", "(", "t", ")"}]}], "+", 
    RowBox[{
     SubscriptBox["c", "2"], 
     RowBox[{"Y", "(", "t", ")"}]}]}], TraditionalForm]],
  CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
   3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
   3.6658595817738476`*^9}, {3.6658596471354437`*^9, 
   3.6658596679012313`*^9}, {3.6658597843440847`*^9, 
   3.6658598059545345`*^9}, {3.667199477242736*^9, 3.6671994802759094`*^9}, {
   3.667199526240538*^9, 3.6671995342289953`*^9}},ExpressionUUID->
  "7b5a5d02-2f5d-4585-bad4-f57fad7223c5"],
 " is also a solution"
}], "Text-Framed",
 CellChangeTimes->{
  3.667199708312952*^9, {3.667199753872558*^9, 3.6671998135239697`*^9}, {
   3.6695728031275263`*^9, 3.6695728550960956`*^9}},
 FontWeight->"Bold",ExpressionUUID->"fdc9b774-4167-4e63-9038-9ae1082f8895"],

Cell[TextData[{
 "Initial values X(0) uniquely determine the solution!\n\n\
\[DoubleLongRightArrow] The space of the solutions is an 2D linear space and \
linearly isomorph with ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["R", "2"], TraditionalForm]],ExpressionUUID->
  "5f97e076-7a80-4cc1-89be-bd7b48e14799"]
}], "Text-Framed",
 CellChangeTimes->{
  3.667199708312952*^9, {3.667199753872558*^9, 3.6671998135239697`*^9}, {
   3.6671998442807293`*^9, 3.6671999988435698`*^9}, {3.669572867133992*^9, 
   3.669572871553808*^9}},
 FontWeight->"Bold",ExpressionUUID->"9496a78b-fcb5-40e8-8e26-3d48c83ad3de"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fundamental solutions (linearly independent!!!)", "Section",
 CellChangeTimes->{{3.6671996772841773`*^9, 3.6671997064618464`*^9}, {
  3.667200041247995*^9, 3.6672000470313253`*^9}, {3.6672004215407467`*^9, 
  3.6672004357265577`*^9}},ExpressionUUID->"4bf80a9f-2ec0-43cd-bb07-\
7a46956fef1e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["X", "1"], "(", "t", ")"}], " ", ":", " ", 
    RowBox[{"Intial", " ", "values"}], ":", " ", 
    RowBox[{
     SubscriptBox["X", "1"], "(", "0", ")"}]}], "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1"},
      {"0"}
     }], "\[NoBreak]", ")"}], " "}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
  3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
  3.6658595817738476`*^9}, {3.6658596471354437`*^9, 3.6658596679012313`*^9}, {
  3.6658597843440847`*^9, 3.6658598059545345`*^9}, {3.667199477242736*^9, 
  3.6671994802759094`*^9}, {3.667199526240538*^9, 3.6671995342289953`*^9}, {
  3.667200071363717*^9, 3.667200134717341*^9}, {3.669572882695575*^9, 
  3.6695729501956544`*^9}},ExpressionUUID->"1fe71f25-fb7c-4b1e-a63b-\
c82d0f75fba0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["X", "2"], "(", "t", ")"}], ":", " ", 
    RowBox[{"Intial", " ", "values"}], ":", " ", 
    RowBox[{
     SubscriptBox["X", "2"], "(", "0", ")"}]}], "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0"},
      {"1"}
     }], "\[NoBreak]", ")"}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
  3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
  3.6658595817738476`*^9}, {3.6658596471354437`*^9, 3.6658596679012313`*^9}, {
  3.6658597843440847`*^9, 3.6658598059545345`*^9}, {3.667199477242736*^9, 
  3.6671994802759094`*^9}, {3.667199526240538*^9, 3.6671995342289953`*^9}, {
  3.667200071363717*^9, 3.667200157760659*^9}, {3.6695729055461755`*^9, 
  3.669572909119686*^9}, {3.669572958504289*^9, 
  3.669572969347512*^9}},ExpressionUUID->"bf3727a1-2982-4202-88f7-\
881d78def939"],

Cell[BoxData[
 FormBox[
  RowBox[{
  "Hence", " ", "any", " ", "solution", " ", "can", " ", "be", " ", "given", 
   " ", 
   RowBox[{"as", ":", " ", "\[IndentingNewLine]", 
    StyleBox[
     RowBox[{
      RowBox[{
       SubscriptBox["x", "1"], " ", 
       StyleBox[
        RowBox[{
         SubscriptBox["X", "1"], "(", "t", ")"}],
        FontWeight->"Bold"]}], " ", "+", 
      RowBox[{
       SubscriptBox["x", "2"], " ", 
       StyleBox[
        RowBox[{
         SubscriptBox["X", "2"], "(", "t", ")"}],
        FontWeight->"Bold"]}]}],
     FontWeight->"Bold"]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
  3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
  3.6658595817738476`*^9}, {3.6658596471354437`*^9, 3.6658596679012313`*^9}, {
  3.6658597843440847`*^9, 3.6658598059545345`*^9}, {3.667199477242736*^9, 
  3.6671994802759094`*^9}, {3.667199526240538*^9, 3.6671995342289953`*^9}, {
  3.667200071363717*^9, 3.667200134717341*^9}, {3.667200167159197*^9, 
  3.6672002338230095`*^9}, {3.6695730961031866`*^9, 
  3.6695731286288867`*^9}},ExpressionUUID->"481f04c8-701b-4eff-8110-\
ba2620d6cf3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["An idea to solve", "Section",
 CellChangeTimes->{{3.669573186879675*^9, 3.6695732028404107`*^9}, {
  3.6695732954892344`*^9, 
  3.66957329905433*^9}},ExpressionUUID->"d3188259-fd0a-49af-8bbf-\
ff0ecfb4c9e1"],

Cell[TextData[{
 "Find the solutions in the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"X", "(", "t", ")"}], "=", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[Lambda]", " ", "t"}]], 
     RowBox[{"X", "(", "0", ")"}]}]}], TraditionalForm]],ExpressionUUID->
  "1446e87b-e52f-4c0c-83ce-1a10d5316694"],
 ":"
}], "Text",
 CellChangeTimes->{{3.669571494262642*^9, 
  3.6695715962384787`*^9}},ExpressionUUID->"e4dbc622-8f69-4afb-b389-\
9ac349302e9a"],

Cell[TextData[{
 "\[Lambda] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[Lambda]", " ", "t"}]], 
     SubscriptBox["X", "0"]}], "=", 
    RowBox[{
     RowBox[{"A", ".", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Lambda]", " ", "t"}]]}], 
     SubscriptBox["X", "0"]}]}], TraditionalForm]],ExpressionUUID->
  "0f867bf6-103f-4195-9445-d8c15b158ace"],
 " \[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", 
       RowBox[{"\[Lambda]", " ", "I"}]}], ")"}], ".", 
     SubscriptBox["X", "0"]}], "=", 
    StyleBox["0",
     FontWeight->"Bold"]}], TraditionalForm]],ExpressionUUID->
  "a864ad67-13b8-47f2-a3ff-97731a85a613"],
 "\n\nNontrivial solution exists if and only if ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"det", "(", 
     RowBox[{"A", "-", 
      RowBox[{"\[Lambda]", " ", "I"}]}], ")"}], "=", "0"}], TraditionalForm]],
  ExpressionUUID->"ce16650b-fd9b-4c50-ab3d-c447320f94ea"],
 " ",
 StyleBox[" (characteristic equation)",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.669571494262642*^9, 3.6695716238818893`*^9}, {
   3.6695716744356923`*^9, 3.669571783784766*^9}, {3.6695718793249784`*^9, 
   3.669571901562112*^9}, {3.669571955652602*^9, 3.6695721146346245`*^9}, 
   3.66957328961439*^9},ExpressionUUID->"c76f0c7f-3952-469e-a827-\
16039ae31e0f"],

Cell[CellGroupData[{

Cell["Eigenvalues and eigenvectors : ", "Subsection",
 CellChangeTimes->{{3.6695733722622075`*^9, 
  3.6695733999097643`*^9}},ExpressionUUID->"3d4698c5-fe7b-4e78-afb5-\
cd3560f188bb"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Lambda]", "1"], "=", 
      SubscriptBox["k", "a"]}], ",", " ", 
     RowBox[{
      SubscriptBox["v", "1"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"-", 
                SubscriptBox["k", "a"]}], "-", 
               SubscriptBox["k", "e"]}], 
              SubscriptBox["k", "a"]]}]},
           {"1"}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], " ", 
        "\[DoubleLongRightArrow]", 
        RowBox[{
         SubscriptBox["X", "1"], "(", "t", ")"}]}], "=", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          SubscriptBox["k", "a"], "t"}]], " ", 
        SubscriptBox["v", "1"]}]}]}]}]}], TraditionalForm]],ExpressionUUID->
  "d86f362f-4f89-412e-b98e-8bbbc626caf9"],
 "\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Lambda]", "2"], "=", 
      RowBox[{"-", 
       SubscriptBox["k", "e"]}]}], ",", "  ", 
     RowBox[{
      SubscriptBox["v", "2"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", GridBox[{
           {"0"},
           {"1"}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], 
        "\[DoubleLongRightArrow]", 
        RowBox[{
         SubscriptBox["X", "2"], "(", "t", ")"}]}], "=", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["k", "e"]}], "t"}]], " ", 
        SubscriptBox["v", "2"]}]}]}]}]}], TraditionalForm]],ExpressionUUID->
  "0d74846b-3c69-4a57-9b07-4755128acc9f"]
}], "Text",
 CellChangeTimes->{{3.669573402595664*^9, 3.6695734840119753`*^9}, {
  3.66957352093112*^9, 3.6695736928804264`*^9}, {3.66957372372409*^9, 
  3.669573854589779*^9}},ExpressionUUID->"8c7990f0-b645-4094-86e1-\
7a7bcbaf81c3"],

Cell["Every solutions is of form:", "Text",
 CellChangeTimes->{{3.669573875202834*^9, 3.669573998068692*^9}, {
  3.6695744808218946`*^9, 3.669574502621463*^9}, {3.6696156582526073`*^9, 
  3.669615658852763*^9}, {3.684738668538104*^9, 3.684738684622011*^9}},
 TextJustification->0.,ExpressionUUID->"15f6f7d2-89fc-4d69-be0c-4e505baad763"],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"X", "(", "t", ")"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         SubscriptBox["k", "a"], "t"}]], " ", 
       StyleBox[
        SubscriptBox[
         StyleBox["v",
          FontWeight->"Bold"], "1"],
        FontWeight->"Bold"]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["k", "e"]}], "t"}]], " ", 
       StyleBox[
        SubscriptBox["v", "2"],
        FontWeight->"Bold"]}]}], 
     StyleBox["=",
      FontWeight->"Bold"], 
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         SubscriptBox["k", "a"], "t"}]], " ", 
       RowBox[{"(", GridBox[{
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["k", "a"]}], "-", 
              SubscriptBox["k", "e"]}], 
             SubscriptBox["k", "a"]]}]},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["k", "e"]}], "t"}]], " ", 
       RowBox[{"(", GridBox[{
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"f6497962-3076-4bc5-8b94-2cfb592e9c3e"]
}], "Text",
 CellChangeTimes->{{3.669573875202834*^9, 3.669573998068692*^9}, {
  3.6695744808218946`*^9, 3.669574502621463*^9}, {3.6696156582526073`*^9, 
  3.669615658852763*^9}, {3.684738668538104*^9, 3.6847386886142397`*^9}},
 TextJustification->0.,ExpressionUUID->"1cac5870-1087-433d-8989-57a7beae6957"]
}, Open  ]],

Cell[CellGroupData[{

Cell["In the special case", "Subsection",
 CellChangeTimes->{{3.6695740032042313`*^9, 
  3.6695740271019583`*^9}},ExpressionUUID->"5c0384dc-3f26-4eb1-b91b-\
626ed9a56ddd"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SubscriptBox["x", "0"]},
       {"0"}
      }], "\[NoBreak]", ")"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], " ", 
       StyleBox[
        SubscriptBox[
         StyleBox["v",
          FontWeight->"Bold"], "1"],
        FontWeight->"Bold"]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       StyleBox[
        SubscriptBox["v", "2"],
        FontWeight->"Bold"]}]}], 
     StyleBox["=",
      FontWeight->"Bold"], 
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], " ", 
       StyleBox[
        RowBox[{"(", GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"-", 
                SubscriptBox["k", "a"]}], "-", 
               SubscriptBox["k", "e"]}], 
              SubscriptBox["k", "a"]]}]},
           {"1"}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}], ")"}],
        FontWeight->"Bold"]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       StyleBox["(",
        FontWeight->"Bold"], 
       StyleBox[GridBox[{
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        FontWeight->"Bold"], 
       StyleBox[")",
        FontWeight->"Bold"]}]}]}]}], TraditionalForm]],ExpressionUUID->
  "40e0826c-31ab-4439-84de-dbab606a0d5d"]
}], "Text",
 CellChangeTimes->{{3.6695740450726132`*^9, 3.669574133489608*^9}, {
  3.669574169098544*^9, 
  3.669574190439297*^9}},ExpressionUUID->"52b37fd3-01e7-4a0e-ba59-\
93e2e6da7f32"],

Cell[TextData[{
 "Solving it with respect to ",
 Cell[BoxData[
  SubscriptBox["c", "1"]],
  CellChangeTimes->{3.669574839539593*^9},ExpressionUUID->
  "1b6d5faf-f8db-4901-a6fa-d7c056df5611"],
 ",",
 Cell[BoxData[
  SubscriptBox["c", "2"]],
  CellChangeTimes->{3.669574839539593*^9},ExpressionUUID->
  "debda7de-7b4e-4d19-b75a-10d350ef17cc"]
}], "Text",
 CellChangeTimes->{{3.6695748476836004`*^9, 
  3.6695748796444674`*^9}},ExpressionUUID->"0e0f4fae-be64-43c7-9aac-\
27f476cab15f"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["c", "1"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["k", "a"], " ", 
        SubscriptBox["x", "0"]}], 
       RowBox[{
        SubscriptBox["k", "a"], "+", 
        SubscriptBox["k", "e"]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "2"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["k", "a"], " ", 
         SubscriptBox["x", "0"]}], 
        RowBox[{
         SubscriptBox["k", "a"], "+", 
         SubscriptBox["k", "e"]}]]}]}]}], "}"}], "}"}], 
  TraditionalForm]], "Text",
 CellChangeTimes->{3.669574839539593*^9, 
  3.669574891671137*^9},ExpressionUUID->"21d4d90a-6dff-44a7-b62f-\
3a27f458bfe5"],

Cell["Hence the solution is:", "Text",
 CellChangeTimes->{{3.669573875202834*^9, 3.669573998068692*^9}, {
   3.6695744808218946`*^9, 3.669574502621463*^9}, {3.6695748139946003`*^9, 
   3.669574820285385*^9}, {3.6695749066182942`*^9, 3.6695749527713184`*^9}, {
   3.669575058304572*^9, 3.669575136974471*^9}, 
   3.6847387038961134`*^9},ExpressionUUID->"37e0e601-983f-4f07-bef0-\
763fc83f642a"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"X", "(", "t", ")"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         SubscriptBox["k", "a"], "t"}]], " ", 
       StyleBox[
        SubscriptBox[
         StyleBox["v",
          FontWeight->"Bold"], "1"],
        FontWeight->"Bold"]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["k", "e"]}], "t"}]], " ", 
       StyleBox[
        SubscriptBox["v", "2"],
        FontWeight->"Bold"]}]}], 
     StyleBox["=",
      FontWeight->"Bold"], 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{
         SubscriptBox["k", "a"], " ", 
         SubscriptBox["x", "0"]}], 
        RowBox[{
         SubscriptBox["k", "a"], "+", 
         SubscriptBox["k", "e"]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         SubscriptBox["k", "a"], "t"}]], " ", 
       RowBox[{"(", GridBox[{
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["k", "a"]}], "-", 
              SubscriptBox["k", "e"]}], 
             SubscriptBox["k", "a"]]}]},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}], "-", 
      RowBox[{
       FractionBox[
        RowBox[{
         SubscriptBox["k", "a"], " ", 
         SubscriptBox["x", "0"]}], 
        RowBox[{
         SubscriptBox["k", "a"], "+", 
         SubscriptBox["k", "e"]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["k", "e"]}], "t"}]], " ", 
       RowBox[{"(", GridBox[{
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"7ee6971b-5ffe-4768-a40c-61e9639923d4"],
 "\nAfter simplifying:\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"X", "(", "t", ")"}], "=", " ", 
    RowBox[{"(", GridBox[{
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "t"}], " ", 
           SubscriptBox["k", "a"]}]], " ", 
         SubscriptBox["x", "0"]}]},
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "t"}], " ", 
              SubscriptBox["k", "a"]}]]}], " ", "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "t"}], " ", 
             SubscriptBox["k", "e"]}]]}], ")"}], 
         FractionBox[
          RowBox[{" ", 
           SubscriptBox["k", "a"]}], 
          RowBox[{
           SubscriptBox["k", "a"], "-", 
           SubscriptBox["k", "e"]}]], 
         SubscriptBox["x", "0"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"dc132a1d-a3f6-42d1-9304-38e6515ccbc2"],
 "\n"
}], "Text",
 CellChangeTimes->{{3.669573875202834*^9, 3.669573998068692*^9}, {
   3.6695744808218946`*^9, 3.669574502621463*^9}, {3.6695748139946003`*^9, 
   3.669574820285385*^9}, {3.6695749066182942`*^9, 3.6695749527713184`*^9}, {
   3.669575058304572*^9, 3.669575136974471*^9}, 
   3.684738705536207*^9},ExpressionUUID->"db9d334d-6d4a-4887-9acd-\
af47a57c64ec"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculations:", "Section",
 CellChangeTimes->{{3.669572314200651*^9, 
  3.669572337660537*^9}},ExpressionUUID->"57ec4bbf-4d18-4b98-973e-\
d721429ef825"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       SubscriptBox["k", "a"], "0"},
      {
       SubscriptBox["k", "a"], 
       RowBox[{"-", 
        SubscriptBox["k", "e"], " "}]}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6695711389369354`*^9, 3.6695711657471404`*^9}, {
   3.669571198065915*^9, 3.6695712078582935`*^9}, 
   3.6695712792933545`*^9},ExpressionUUID->"3abefb55-5e78-443c-8303-\
e6e08f256247"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.6695721415332885`*^9, 
  3.669572152542288*^9}},ExpressionUUID->"ad5d5f6b-d53b-4d30-b8b8-\
c55b8af8a581"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["k", "a"], ",", 
   RowBox[{"-", 
    SubscriptBox["k", "e"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6695721531059074`*^9},ExpressionUUID->"f209eb13-c203-4be7-8fba-\
e347ef608f8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvectors", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.6695721570463753`*^9, 3.6695721657692623`*^9}, {
   3.669573604839157*^9, 3.6695736081274977`*^9}, 
   3.669573655320374*^9},ExpressionUUID->"ef2e449d-5d51-47eb-906f-\
df9d3bd39f3c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["k", "a"]}], "-", 
        SubscriptBox["k", "e"]}], 
       SubscriptBox["k", "a"]]}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6695721662509766`*^9, 3.6695736091132216`*^9, 
  3.6695736562754326`*^9},ExpressionUUID->"a267608d-47ef-4515-8aa9-\
d9162a11456a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cc", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "0"], ",", "0"}], "}"}], "==", 
     RowBox[{
      RowBox[{
       SubscriptBox["c", "1"], " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["k", "a"]}], "-", 
            SubscriptBox["k", "e"]}], 
           SubscriptBox["k", "a"]]}], ",", "1"}], "}"}]}], "+", 
      RowBox[{
       SubscriptBox["c", "2"], 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["c", "1"], " ", ",", 
      SubscriptBox["c", "2"]}], " ", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6695740450726132`*^9, 3.669574133489608*^9}, {
  3.669574169098544*^9, 3.669574190439297*^9}, {3.669574226653776*^9, 
  3.669574374864614*^9}, {3.6695744562585907`*^9, 
  3.6695744590769873`*^9}},ExpressionUUID->"2e767e7e-515a-4917-a4a1-\
dc8dc4babe4b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SubscriptBox["c", "1"], "\[Rule]", 
     FractionBox[
      RowBox[{
       SubscriptBox["k", "a"], " ", 
       SubscriptBox["x", "0"]}], 
      RowBox[{
       SubscriptBox["k", "a"], "+", 
       SubscriptBox["k", "e"]}]]}], ",", 
    RowBox[{
     SubscriptBox["c", "2"], "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SubscriptBox["k", "a"], " ", 
        SubscriptBox["x", "0"]}], 
       RowBox[{
        SubscriptBox["k", "a"], "+", 
        SubscriptBox["k", "e"]}]]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.669574386759979*^9, {3.6695744503527956`*^9, 
   3.669574460292864*^9}},ExpressionUUID->"c5ef5303-fdfd-44b8-bf64-\
56dedbb0ab27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["c", "1"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        SubscriptBox["k", "a"], " ", "t"}]], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["k", "a"]}], "-", 
           SubscriptBox["k", "e"]}], 
          SubscriptBox["k", "a"]]}], ",", "1"}], "}"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["k", "e"]}], " ", "t"}]], " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "/.", "cc"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6695745547764196`*^9, 3.669574624375247*^9}, {
  3.66957467965104*^9, 
  3.6695747384815598`*^9}},ExpressionUUID->"5570a58b-7e13-47e1-9527-\
aa93698016a2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"t", " ", 
       SubscriptBox["k", "a"]}]], " ", 
     SubscriptBox["x", "0"]}], ",", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", 
        SubscriptBox["k", "e"]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"t", " ", 
           SubscriptBox["k", "a"]}], "+", 
          RowBox[{"t", " ", 
           SubscriptBox["k", "e"]}]}]]}], ")"}], " ", 
      SubscriptBox["k", "a"], " ", 
      SubscriptBox["x", "0"]}], 
     RowBox[{
      SubscriptBox["k", "a"], "+", 
      SubscriptBox["k", "e"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.6695745829429398`*^9, 3.6695746257278156`*^9}, {
  3.6695746831699867`*^9, 
  3.6695747394454174`*^9}},ExpressionUUID->"8e44e712-6fc5-4d92-8a9c-\
5a866e208d23"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"8eff8684-4f31-43c1-b189-c39c595d48c0"],

Cell[CellGroupData[{

Cell["A more general way", "MainSection",
 CellChangeTimes->{{3.669572314200651*^9, 3.669572337660537*^9}, {
  3.669615578370335*^9, 
  3.6696155830913296`*^9}},ExpressionUUID->"8e0e5e0e-c812-43ad-a0b6-\
867f81687db6"],

Cell["\<\
Extending the exponential function to square matrices using the Taylor series:\
\>", "Text",
 CellChangeTimes->{{3.669615602768454*^9, 3.669615644058387*^9}, {
  3.6696157674995756`*^9, 
  3.6696157690813303`*^9}},ExpressionUUID->"4082eb7b-a0a3-4661-80ce-\
c50a036e719c"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "A"], ":=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "0"}], "\[Infinity]"], 
    RowBox[{
     FractionBox["1", 
      RowBox[{"i", "!"}]], 
     SuperscriptBox["A", "i"]}]}]}], 
  TraditionalForm]],ExpressionUUID->"dd572a1f-aa46-434d-8c6d-3414f0be3657"]], \
"Text",
 CellChangeTimes->{{3.6696156979325323`*^9, 3.669615722907392*^9}, {
  3.669615762582281*^9, 
  3.6696158841101575`*^9}},ExpressionUUID->"a682184d-1535-47ae-b86c-\
decd8797a002"],

Cell[CellGroupData[{

Cell["Note", "Th-Env",
 CellChangeTimes->{{3.6696156979325323`*^9, 3.669615722907392*^9}, {
  3.669615762582281*^9, 
  3.669615915438182*^9}},ExpressionUUID->"8ee9e5a4-ce8b-4c65-9b0f-\
1702ffb79194"],

Cell[TextData[{
 "Using the Jordan decomposition, it is always only a finite sum\nThe \
eigenvectors of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", "A"], TraditionalForm]],ExpressionUUID->
  "992bbd95-5c18-4bb2-bc0d-621481853391"],
 " are the same as of ",
 StyleBox["A",
  FontSlant->"Italic"],
 "\nThe eigenvalues  are ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", "\[Lambda]"], TraditionalForm]],
  ExpressionUUID->"5f0b3151-d4cf-4597-956d-f63368bce1d9"]
}], "Text",
 CellChangeTimes->{{3.6696156979325323`*^9, 3.669615722907392*^9}, {
   3.669615762582281*^9, 3.6696160095194917`*^9}, {3.669618600574685*^9, 
   3.6696186248531055`*^9}, 
   3.7155086778811045`*^9},ExpressionUUID->"c1e39486-c164-43bb-8840-\
9cd612e925ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

The form of solutions:\
\>", "Section",
 CellChangeTimes->{{3.6696156979325323`*^9, 3.669615722907392*^9}, {
  3.669615762582281*^9, 3.6696160095194917`*^9}, {3.669618600574685*^9, 
  3.6696186248531055`*^9}},ExpressionUUID->"017265f3-d7d9-4a03-bd77-\
05b78bc7550d"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"X", "(", "t", ")"}], "=", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"A", " ", "t"}]], ".", 
    RowBox[{"X", "(", "0", ")"}]}]}], 
  TraditionalForm]],ExpressionUUID->"840a5b3e-b521-44cf-9803-b54f7749d68f"]], \
"Text",
 CellChangeTimes->{{3.6696186369048433`*^9, 
  3.6696187053151007`*^9}},ExpressionUUID->"6e1500b7-b125-49b5-8518-\
9bcb45697fa5"],

Cell["In our special case :", "Text",
 CellChangeTimes->{{3.669618716887723*^9, 
  3.669618730872237*^9}},ExpressionUUID->"79661959-cb63-4a9d-be78-\
f1090f8a2ef9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       SubscriptBox["k", "a"], "0"},
      {
       SubscriptBox["k", "a"], 
       RowBox[{"-", 
        SubscriptBox["k", "e"], " "}]}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6695711389369354`*^9, 3.6695711657471404`*^9}, {
   3.669571198065915*^9, 3.6695712078582935`*^9}, 
   3.6695712792933545`*^9},ExpressionUUID->"b9ce1dbb-bde1-4e33-abdd-\
046156b30cbc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixExp", "[", 
   RowBox[{"A", " ", "t"}], "]"}], ".", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.669618734396709*^9, 3.6696187508320436`*^9}, {
  3.66961881727181*^9, 3.6696188290821657`*^9}, {3.6696188963534584`*^9, 
  3.669618906522701*^9}},ExpressionUUID->"8e7ab87a-8d04-4870-b8f9-\
9b0eaff2ec58"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"t", " ", 
     SubscriptBox["k", "a"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "t"}], " ", 
       SubscriptBox["k", "e"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"t", " ", 
          SubscriptBox["k", "a"]}], "+", 
         RowBox[{"t", " ", 
          SubscriptBox["k", "e"]}]}]]}], ")"}], " ", 
     SubscriptBox["k", "a"]}], 
    RowBox[{
     SubscriptBox["k", "a"], "+", 
     SubscriptBox["k", "e"]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.6696188210447645`*^9, 3.6696188307456493`*^9}, {
  3.6696188986541605`*^9, 
  3.669618908609681*^9}},ExpressionUUID->"52b78096-b18d-4b4b-a7b1-\
ca24a1cbd956"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"44cb162b-0db6-4dc2-ab3f-40f57407758c"],

Cell[CellGroupData[{

Cell["Repeated extravascular dosing", "MainSection",
 CellChangeTimes->{{3.467479205296875*^9, 3.467479211734375*^9}, {
   3.46748020978125*^9, 3.46748022640625*^9}, {3.467895546296875*^9, 
   3.467895549625*^9}, {3.467896041171875*^9, 3.46789604653125*^9}, {
   3.468958078328125*^9, 3.46895810046875*^9}, {3.5936271942544107`*^9, 
   3.593627195124412*^9}, 3.59368383016543*^9}],

Cell[TextData[{
 "First dose to compartment 1: ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.46895453665625*^9, 3.4689546154375*^9}, {
   3.468954675390625*^9, 3.46895472821875*^9}, {3.468954794875*^9, 
   3.468954888171875*^9}, {3.468955003078125*^9, 3.468955030921875*^9}, 
   3.468955705*^9, {3.468955794359375*^9, 3.468955797421875*^9}, {
   3.46899538796875*^9, 3.46899539203125*^9}, {3.468995504796875*^9, 
   3.468995509421875*^9}, {3.468995618*^9, 3.46899561825*^9}}],

Cell[TextData[{
 "Repeated dosing to compartment 1",
 "\n",
 "\tDoses are given at:",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     SubscriptBox["t", "n"], "=", 
     RowBox[{"n", " ", "\[Tau]"}]}]}], TraditionalForm]]],
 ";\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["t", 
      RowBox[{"+", "1"}]], "-", 
     SubscriptBox["t", "n"]}], "=", "\[Tau]"}], TraditionalForm]]],
 "\n",
 "\tDoses are constant: ",
 Cell[BoxData[
  FormBox["d", TraditionalForm]]],
 ":\n"
}], "Text",
 CellChangeTimes->{{3.46895453665625*^9, 3.4689546154375*^9}, {
   3.468954675390625*^9, 3.46895472821875*^9}, {3.468954794875*^9, 
   3.468954888171875*^9}, {3.468955003078125*^9, 3.468955030921875*^9}, 
   3.468955705*^9, {3.468955794359375*^9, 3.468955799390625*^9}, {
   3.468995410171875*^9, 3.4689954195*^9}, 3.5936838426554475`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "c12Step", ",", "c12all", ",", "c10", ",", "c20", ",", "IC", ",", "sol",
        ",", "t", ",", "i", ",", "c1min", ",", "c1max", ",", "c2min", ",", 
       "c2max"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"sol", "[", 
        RowBox[{"{", 
         RowBox[{"c10_", ",", "c20_"}], "}"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"c10", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "ka"}], " ", "t"}]]}], ",", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{"ka", "+", "ke"}], ")"}]}], " ", "t"}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "c10"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"ke", " ", "t"}]], " ", "ka"}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"ka", " ", "t"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"c10", "+", "c20"}], ")"}], " ", "ka"}], "-", 
                RowBox[{"c20", " ", "ke"}]}], ")"}]}]}], ")"}]}], 
          RowBox[{"ka", "-", "ke"}]]}], "}"}]}], ";", 
      RowBox[{
       RowBox[{"c12Step", "[", 
        RowBox[{"{", 
         RowBox[{"c10_", ",", "c20_"}], "}"}], "]"}], ":=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"sol", "[", 
           RowBox[{"{", 
            RowBox[{"c10", ",", "c20"}], "}"}], "]"}], "/.", 
          RowBox[{"t", "\[Rule]", "\[Tau]"}]}], ")"}], "+", 
        RowBox[{"{", 
         RowBox[{"c0", ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"IC", "=", 
       RowBox[{"NestList", "[", 
        RowBox[{"c12Step", ",", 
         RowBox[{"{", 
          RowBox[{"c00", ",", "0"}], "}"}], ",", 
         RowBox[{"Floor", "[", 
          RowBox[{"T", "/", "\[Tau]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"c12all", "=", 
       RowBox[{
        RowBox[{"sol", "[", 
         RowBox[{"{", 
          RowBox[{"c00", ",", "0"}], "}"}], "]"}], "+", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "1"}], "n"], " ", 
         RowBox[{
          RowBox[{"UnitStep", "[", 
           RowBox[{"t", "-", 
            RowBox[{"i", " ", "\[Tau]"}]}], "]"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"sol", "[", 
             RowBox[{"{", 
              RowBox[{"c0", ",", "0"}], "}"}], "]"}], "/.", 
            RowBox[{"t", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"t", "-", 
               RowBox[{"i", " ", "\[Tau]"}]}], ")"}]}]}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"c12all", "=", 
         RowBox[{"Apply", "[", 
          RowBox[{"Plus", ",", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Which", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", "-", "1"}], ")"}], " ", "\[Tau]"}], 
                 "\[LessEqual]", "t", "\[LessEqual]", 
                 RowBox[{"i", " ", "\[Tau]"}]}], ",", "1", ",", "True", ",", 
                "0"}], "]"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"sol", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"IC", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"IC", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "/.",
                 " ", 
                RowBox[{"{", 
                 RowBox[{"t", "\[Rule]", 
                  RowBox[{"t", "-", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], " ", "\[Tau]"}]}]}], 
                 "}"}]}], ")"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", 
               RowBox[{"Length", "[", "IC", "]"}]}], "}"}]}], "]"}]}], 
          "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"c1min", "=", 
       RowBox[{
        FractionBox[
         RowBox[{"c0", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"ka", " ", "\[Tau]"}]]}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"ka", " ", "\[Tau]"}]]}]], "-", "c0"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"c1max", "=", 
       FractionBox[
        RowBox[{"c0", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"ka", " ", "\[Tau]"}]]}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"ka", " ", "\[Tau]"}]]}]]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c2min", "=", 
       FractionBox[
        RowBox[{"c0", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"ka", " ", "\[Tau]"}]], "-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"ke", " ", "\[Tau]"}]]}], ")"}], " ", "ka"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"ka", " ", "\[Tau]"}]]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"ke", " ", "\[Tau]"}]]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"ka", "-", "ke"}], ")"}]}]]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c2max", "=", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"ka", "-", "ke"}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{"ka", "+", "ke"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"ka", " ", "\[Tau]"}], "-", 
              RowBox[{"Log", "[", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"ka", " ", "\[Tau]"}]]}], ")"}], " ", "ke", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"Coth", "[", 
                    FractionBox[
                    RowBox[{"ke", " ", "\[Tau]"}], "2"], "]"}]}], ")"}]}], 
                RowBox[{"2", " ", "ka"}]], "]"}]}], ")"}]}], 
           RowBox[{"ka", "-", "ke"}]]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"ka", " ", "\[Tau]"}]]}]], 
           RowBox[{"c0", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"ka", " ", "\[Tau]"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               FractionBox[
                RowBox[{"ka", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"ka", " ", "\[Tau]"}], "-", 
                   RowBox[{"Log", "[", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"ka", " ", "\[Tau]"}]]}], ")"}], " ", "ke", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Coth", "[", 
                    FractionBox[
                    RowBox[{"ke", " ", "\[Tau]"}], "2"], "]"}]}], ")"}]}], 
                    RowBox[{"2", " ", "ka"}]], "]"}]}], ")"}]}], 
                RowBox[{"ka", "-", "ke"}]]], "-", 
              SuperscriptBox["\[ExponentialE]", 
               FractionBox[
                RowBox[{"ke", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"ka", " ", "\[Tau]"}], "-", 
                   RowBox[{"Log", "[", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"ka", " ", "\[Tau]"}]]}], ")"}], " ", "ke", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Coth", "[", 
                    FractionBox[
                    RowBox[{"ke", " ", "\[Tau]"}], "2"], "]"}]}], ")"}]}], 
                    RowBox[{"2", " ", "ka"}]], "]"}]}], ")"}]}], 
                RowBox[{"ka", "-", "ke"}]]]}], ")"}], " ", "ka"}]}], "-", 
          RowBox[{
           FractionBox["1", "2"], " ", "c0", " ", 
           SuperscriptBox["\[ExponentialE]", 
            FractionBox[
             RowBox[{"ka", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"ka", " ", "\[Tau]"}], "-", 
                RowBox[{"Log", "[", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"ka", " ", "\[Tau]"}]]}], ")"}], " ", "ke", " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Coth", "[", 
                    FractionBox[
                    RowBox[{"ke", " ", "\[Tau]"}], "2"], "]"}]}], ")"}]}], 
                  RowBox[{"2", " ", "ka"}]], "]"}]}], ")"}]}], 
             RowBox[{"ka", "-", "ke"}]]], " ", "ka", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Coth", "[", 
              FractionBox[
               RowBox[{"ka", " ", "\[Tau]"}], "2"], "]"}], "-", 
             RowBox[{"Coth", "[", 
              FractionBox[
               RowBox[{"ke", " ", "\[Tau]"}], "2"], "]"}]}], ")"}]}]}], 
         ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Grid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*UnderscriptBox[SubscriptBox[\(c\), \(1\)], \
\(_\)]\)=\>\"", ",", 
              RowBox[{"N", "[", 
               RowBox[{"c1min", ",", "3"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*OverscriptBox[SubscriptBox[\(c\), \(1\)], \(_\)]\)=\>\
\"", ",", 
              RowBox[{"N", "[", 
               RowBox[{"c1max", ",", "3"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*UnderscriptBox[SubscriptBox[\(c\), \(2\)], \
\(_\)]\)=\>\"", ",", 
              RowBox[{"N", "[", 
               RowBox[{"c2min", ",", "3"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*OverscriptBox[SubscriptBox[\(c\), \(2\)], \(_\)]\)=\>\
\"", ",", 
              RowBox[{"N", "[", 
               RowBox[{"c2max", ",", "3"}], "]"}]}], "}"}]}], "}"}], "]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"Spacer", "[", "20", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"GraphicsColumn", "[", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"c12all", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", "c1min", ",", "c1max"}],
                "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "2"}], "}"}]}], ",", 
              RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"ImageSize", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"250", ",", "170"}], "}"}]}], ",", 
              RowBox[{"Exclusions", "\[Rule]", "None"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"t", ",", "x"}], "}"}]}], ",", 
              RowBox[{"PlotLabel", "\[Rule]", "\"\<Compartment 1\>\""}]}], 
             "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"c12all", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", "c2min", ",", "c2max"}],
                "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "2"}], "}"}]}], ",", 
              RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"t", ",", "y"}], "}"}]}], ",", 
              RowBox[{"PlotLabel", "\[Rule]", "\"\<Compartment 2\>\""}]}], 
             "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}],
     "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Repeated Extravascular Dosing\>\"", ",", "Bold", ",", 
     RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}], ",", "Delimiter", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ka", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(k\), \(a\)]\)\>\""}], 
      "}"}], ",", "0.01", ",", "2", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ke", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(k\), \(e\)]\)\>\""}], 
      "}"}], ",", "0.005", ",", 
     RowBox[{"ka", "-", "0.01"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", "\"\<First dose\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "c00", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "2", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", "\"\<Repeated doses\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"\[Tau]", ",", "1", ",", "8", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c0", ",", "0", ",", "\"\<dose\>\""}], "}"}], ",", "0", ",", 
     "2", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "20", ",", "1", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "10"}], "}"}], ",", "1", ",", "20", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4234616526833344`*^9, 3.4234616707893696`*^9}, {
   3.4234617117682943`*^9, 3.423461890795723*^9}, 3.4234619809854097`*^9, {
   3.4234620289543858`*^9, 3.4234620380474606`*^9}, {3.423462196284995*^9, 
   3.4234622054982433`*^9}, {3.4234622573227634`*^9, 
   3.4234622661855073`*^9}, {3.4234622979511843`*^9, 3.423462316618026*^9}, {
   3.4234628320291505`*^9, 3.423462918763869*^9}, {3.4234629503593006`*^9, 
   3.4234630161338797`*^9}, {3.423463198265773*^9, 3.4234632144891005`*^9}, {
   3.4234632775998497`*^9, 3.4234632813252068`*^9}, {3.4234633788854914`*^9, 
   3.4234635045061245`*^9}, {3.4234635595753107`*^9, 3.423463577791504*^9}, {
   3.4234636845450077`*^9, 3.423463686367629*^9}, {3.4234638460372224`*^9, 
   3.4234639149663377`*^9}, {3.423476039402851*^9, 3.4234760898754272`*^9}, {
   3.4234761205996065`*^9, 3.4234761531864643`*^9}, {3.4234761907805214`*^9, 
   3.4234763539551554`*^9}, {3.4234764172061057`*^9, 3.423476467428322*^9}, 
   3.423476518982453*^9, 3.4234765520199585`*^9, 3.4234766205585117`*^9, {
   3.423476693283085*^9, 3.4234767822009425`*^9}, 3.4234769752485313`*^9, {
   3.4234770278541746`*^9, 3.423477040662592*^9}, {3.4234771072683663`*^9, 
   3.4234771608754497`*^9}, {3.4234771961762094`*^9, 3.423477196356469*^9}, {
   3.423477305192968*^9, 3.4234773147467055`*^9}, {3.4234773449801793`*^9, 
   3.423477670488237*^9}, {3.423477702293971*^9, 3.423477797881419*^9}, {
   3.423478007703128*^9, 3.4234780389881134`*^9}, {3.423478248619549*^9, 
   3.423478295987661*^9}, {3.4234783584474735`*^9, 3.423478361571966*^9}, 
   3.4234784078384943`*^9, 3.423478438572688*^9, {3.4234785675982175`*^9, 
   3.4234785841019487`*^9}, {3.4234787352993603`*^9, 3.423478741498274*^9}, 
   3.423478966812259*^9, {3.4234791025574512`*^9, 3.423479203452531*^9}, {
   3.4234792957552557`*^9, 3.4234793471691856`*^9}, {3.4234793972812433`*^9, 
   3.4234794149366302`*^9}, 3.4234794588297453`*^9, {3.423479687017864*^9, 
   3.423479691684574*^9}, {3.423479861679014*^9, 3.4234798648635936`*^9}, {
   3.4234809919142127`*^9, 3.423480996831283*^9}, {3.423481122562075*^9, 
   3.42348112698844*^9}, {3.423482190037029*^9, 3.423482303660411*^9}, {
   3.4234823505077744`*^9, 3.4234823580686464`*^9}, {3.423482421589986*^9, 
   3.4234824455043726`*^9}, {3.423499198173264*^9, 3.423499393504136*^9}, {
   3.4234994338421392`*^9, 3.4234994353442993`*^9}, {3.4234994887310658`*^9, 
   3.4234994896023183`*^9}, {3.4234995448617773`*^9, 
   3.4234995770080013`*^9}, {3.4234997468321967`*^9, 3.423499773340314*^9}, {
   3.4234998069886975`*^9, 3.4234999041484065`*^9}, {3.4234999578656483`*^9, 
   3.423500000176488*^9}, {3.4235000609939394`*^9, 3.4235000672028675`*^9}, {
   3.4235002374376526`*^9, 3.423500283694166*^9}, 3.423500329159542*^9, {
   3.4235003884347763`*^9, 3.423500452907483*^9}, {3.423501654655512*^9, 
   3.423501701773264*^9}, {3.4235017384860544`*^9, 3.423501752295912*^9}, {
   3.4235018159274096`*^9, 3.42350185714668*^9}, 3.423502001173781*^9, {
   3.4235020418422594`*^9, 3.423502098864253*^9}, 3.423502202763653*^9, 
   3.4235022900792065`*^9, 3.423502337948038*^9, {3.4235023885708303`*^9, 
   3.4235024072476864`*^9}, {3.42350247262169*^9, 3.423502497046811*^9}, {
   3.4235025690503473`*^9, 3.4235025758000526`*^9}, {3.423502750911851*^9, 
   3.4235027985703807`*^9}, {3.423502832368981*^9, 3.423502857134592*^9}, {
   3.4235029092795725`*^9, 3.423502913385477*^9}, {3.423502978689379*^9, 
   3.423502985399027*^9}, {3.42350306021661*^9, 3.4235031366264815`*^9}, {
   3.4235031908444433`*^9, 3.423503191245019*^9}, {3.423503306210331*^9, 
   3.423503335672696*^9}, {3.424021687364028*^9, 3.424021687734561*^9}, {
   3.424021724617596*^9, 3.424021734101233*^9}, {3.4240218258731947`*^9, 
   3.4240218277058296`*^9}, {3.4240220479625435`*^9, 3.424022164970793*^9}, 
   3.424022199179983*^9, {3.4240223523602457`*^9, 3.4240223572072153`*^9}, {
   3.4240224177042055`*^9, 3.4240224217199802`*^9}, {3.42402259706211*^9, 
   3.4240226111223273`*^9}, {3.4240227249860554`*^9, 3.424022731385257*^9}, {
   3.4240827933772173`*^9, 3.4240827936075487`*^9}, {3.4240828305306416`*^9, 
   3.4240828316622686`*^9}, {3.424083381803333*^9, 3.424083447718114*^9}, {
   3.4276884554453726`*^9, 3.427688456396741*^9}, {3.4276885055774593`*^9, 
   3.4276885542574577`*^9}, 3.468124034421875*^9, {3.46812437459375*^9, 
   3.468124378265625*^9}, {3.468124603734375*^9, 3.46812461896875*^9}, {
   3.468124653125*^9, 3.46812476171875*^9}, {3.468125049953125*^9, 
   3.468125071265625*^9}, {3.468125102671875*^9, 3.468125106109375*^9}, {
   3.468125375765625*^9, 3.4681253761875*^9}, {3.46812618425*^9, 
   3.46812629271875*^9}, {3.468958171671875*^9, 3.468958171921875*^9}, {
   3.4689582044375*^9, 3.46895830290625*^9}, {3.4689583335*^9, 
   3.468958334859375*^9}, 3.468995536765625*^9, {3.469008794421875*^9, 
   3.4690088039375*^9}, {3.4690089564375*^9, 3.469008981140625*^9}, {
   3.469016565125*^9, 3.469016679515625*^9}},
 CellID->410492984],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c0$$ = 0, $CellContext`c00$$ = 
    0, $CellContext`ka$$ = 1, $CellContext`ke$$ = 0.5, $CellContext`n$$ = 
    1, $CellContext`T$$ = 10, $CellContext`\[Tau]$$ = 1, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Repeated Extravascular Dosing", Bold, FontSize -> 12]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`ka$$], 1, "\!\(\*SubscriptBox[\(k\), \(a\)]\)"}, 
      0.01, 2}, {{
       Hold[$CellContext`ke$$], 0.5, "\!\(\*SubscriptBox[\(k\), \(e\)]\)"}, 
      0.005, 
      Dynamic[$CellContext`ka$$ - 0.01]}, {
      Hold["First dose"], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`c00$$], 0, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 
      2}, {
      Hold["Repeated doses"], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[$CellContext`\[Tau]$$], 1, 8}, {{
       Hold[$CellContext`c0$$], 0, "dose"}, 0, 2}, {
      Hold[$CellContext`n$$], 1, 20, 1}, {{
       Hold[$CellContext`T$$], 10}, 1, 20}}, Typeset`size$$ = {
    460., {229., 239.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`ka$70945$$ = 
    0, $CellContext`ke$70946$$ = 0, $CellContext`c00$70947$$ = 
    0, $CellContext`\[Tau]$70948$$ = 0, $CellContext`c0$70949$$ = 
    0, $CellContext`n$70950$$ = 0, $CellContext`T$70951$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c0$$ = 0, $CellContext`c00$$ = 
        0, $CellContext`ka$$ = 1, $CellContext`ke$$ = 0.5, $CellContext`n$$ = 
        1, $CellContext`T$$ = 10, $CellContext`\[Tau]$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`ka$$, $CellContext`ka$70945$$, 0], 
        Hold[$CellContext`ke$$, $CellContext`ke$70946$$, 0], 
        Hold[$CellContext`c00$$, $CellContext`c00$70947$$, 0], 
        Hold[$CellContext`\[Tau]$$, $CellContext`\[Tau]$70948$$, 0], 
        Hold[$CellContext`c0$$, $CellContext`c0$70949$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$70950$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$70951$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Block[{$CellContext`c12Step, $CellContext`c12all, $CellContext`c10, \
$CellContext`c20, $CellContext`IC, $CellContext`sol, $CellContext`t, \
$CellContext`i, $CellContext`c1min, $CellContext`c1max, $CellContext`c2min, \
$CellContext`c2max}, $CellContext`sol[{
            Pattern[$CellContext`c10$, 
             Blank[]], 
            Pattern[$CellContext`c20$, 
             Blank[]]}] = {$CellContext`c10$ 
           E^((-$CellContext`ka$$) $CellContext`t), 
           E^((-($CellContext`ka$$ + $CellContext`ke$$)) $CellContext`t) \
((((-$CellContext`c10$) 
               E^($CellContext`ke$$ $CellContext`t)) $CellContext`ka$$ + 
             E^($CellContext`ka$$ $CellContext`t) (($CellContext`c10$ + \
$CellContext`c20$) $CellContext`ka$$ - $CellContext`c20$ \
$CellContext`ke$$))/($CellContext`ka$$ - $CellContext`ke$$))}; \
$CellContext`c12Step[{
            Pattern[$CellContext`c10$, 
             Blank[]], 
            Pattern[$CellContext`c20$, 
             Blank[]]}] := ReplaceAll[
            $CellContext`sol[{$CellContext`c10$, $CellContext`c20$}], \
$CellContext`t -> $CellContext`\[Tau]$$] + {$CellContext`c0$$, 
            0}; $CellContext`IC = 
         NestList[$CellContext`c12Step, {$CellContext`c00$$, 0}, 
           
           Floor[$CellContext`T$$/$CellContext`\[Tau]$$]]; \
$CellContext`c12all = $CellContext`sol[{$CellContext`c00$$, 0}] + 
          Sum[UnitStep[$CellContext`t - $CellContext`i $CellContext`\[Tau]$$] 
            ReplaceAll[
              $CellContext`sol[{$CellContext`c0$$, 
                0}], $CellContext`t -> $CellContext`t - $CellContext`i \
$CellContext`\[Tau]$$], {$CellContext`i, 
             1, $CellContext`n$$}]; $CellContext`c1min = $CellContext`c0$$ (
            E^($CellContext`ka$$ $CellContext`\[Tau]$$)/(-1 + 
            E^($CellContext`ka$$ $CellContext`\[Tau]$$))) - $CellContext`c0$$; \
$CellContext`c1max = $CellContext`c0$$ (
           E^($CellContext`ka$$ $CellContext`\[Tau]$$)/(-1 + 
           E^($CellContext`ka$$ $CellContext`\[Tau]$$))); $CellContext`c2min = \
($CellContext`c0$$ (E^($CellContext`ka$$ $CellContext`\[Tau]$$) - 
            E^($CellContext`ke$$ $CellContext`\[Tau]$$))) \
($CellContext`ka$$/(((-1 + E^($CellContext`ka$$ $CellContext`\[Tau]$$)) (-1 + 
             E^($CellContext`ke$$ $CellContext`\[Tau]$$))) ($CellContext`ka$$ - \
$CellContext`ke$$))); $CellContext`c2max = ((
            1/($CellContext`ka$$ - $CellContext`ke$$)) 
           E^(-(($CellContext`ka$$ + $CellContext`ke$$) (($CellContext`ka$$ \
$CellContext`\[Tau]$$ - 
                Log[((-1 + 
                   E^($CellContext`ka$$ $CellContext`\[Tau]$$)) \
$CellContext`ke$$) ((1 + Coth[$CellContext`ke$$ ($CellContext`\[Tau]$$/2)])/(
                  2 $CellContext`ka$$))])/($CellContext`ka$$ - \
$CellContext`ke$$))))) ((1/(-1 + 
             E^($CellContext`ka$$ $CellContext`\[Tau]$$))) \
((($CellContext`c0$$ E^($CellContext`ka$$ $CellContext`\[Tau]$$)) (
               E^($CellContext`ka$$ (($CellContext`ka$$ $CellContext`\[Tau]$$ - 
                   Log[((-1 + 
                    E^($CellContext`ka$$ $CellContext`\[Tau]$$)) \
$CellContext`ke$$) ((1 + Coth[$CellContext`ke$$ ($CellContext`\[Tau]$$/2)])/(
                    2 $CellContext`ka$$))])/($CellContext`ka$$ - \
$CellContext`ke$$))) - 
               E^($CellContext`ke$$ (($CellContext`ka$$ $CellContext`\[Tau]$$ - 
                  Log[((-1 + 
                    E^($CellContext`ka$$ $CellContext`\[Tau]$$)) \
$CellContext`ke$$) ((1 + Coth[$CellContext`ke$$ ($CellContext`\[Tau]$$/2)])/(
                    2 $CellContext`ka$$))])/($CellContext`ka$$ - \
$CellContext`ke$$))))) $CellContext`ka$$) - ((((1/2) $CellContext`c0$$) 
             E^($CellContext`ka$$ (($CellContext`ka$$ $CellContext`\[Tau]$$ - 
                 Log[((-1 + 
                    E^($CellContext`ka$$ $CellContext`\[Tau]$$)) \
$CellContext`ke$$) ((1 + Coth[$CellContext`ke$$ ($CellContext`\[Tau]$$/2)])/(
                   2 $CellContext`ka$$))])/($CellContext`ka$$ - \
$CellContext`ke$$)))) $CellContext`ka$$) (
            Coth[$CellContext`ka$$ ($CellContext`\[Tau]$$/2)] - 
            Coth[$CellContext`ke$$ ($CellContext`\[Tau]$$/2)])); Row[{
           
           Grid[{{"\!\(\*UnderscriptBox[SubscriptBox[\(c\), \(1\)], \
\(_\)]\)=", 
              N[$CellContext`c1min, 3]}, {
             "\!\(\*OverscriptBox[SubscriptBox[\(c\), \(1\)], \(_\)]\)=", 
              N[$CellContext`c1max, 3]}, {
             "\!\(\*UnderscriptBox[SubscriptBox[\(c\), \(2\)], \(_\)]\)=", 
              N[$CellContext`c2min, 3]}, {
             "\!\(\*OverscriptBox[SubscriptBox[\(c\), \(2\)], \(_\)]\)=", 
              N[$CellContext`c2max, 3]}}], 
           Spacer[20], 
           GraphicsColumn[{
             Plot[{
               
               Part[$CellContext`c12all, 
                1], $CellContext`c1min, $CellContext`c1max}, {$CellContext`t, 
               0, $CellContext`T$$}, PlotRange -> {0, 2}, PlotPoints -> 
              Automatic, ImageSize -> {250, 170}, Exclusions -> None, 
              AxesLabel -> {$CellContext`t, $CellContext`x}, PlotLabel -> 
              "Compartment 1"], 
             Plot[{
               
               Part[$CellContext`c12all, 
                2], $CellContext`c2min, $CellContext`c2max}, {$CellContext`t, 
               0, $CellContext`T$$}, PlotRange -> {0, 2}, PlotPoints -> 
              Automatic, Exclusions -> Automatic, 
              AxesLabel -> {$CellContext`t, $CellContext`y}, PlotLabel -> 
              "Compartment 2"]}]}]], "Specifications" :> {
        Style["Repeated Extravascular Dosing", Bold, FontSize -> 12], 
        Delimiter, {{$CellContext`ka$$, 1, 
          "\!\(\*SubscriptBox[\(k\), \(a\)]\)"}, 0.01, 2, ImageSize -> Small, 
         Appearance -> 
         "Labeled"}, {{$CellContext`ke$$, 0.5, 
          "\!\(\*SubscriptBox[\(k\), \(e\)]\)"}, 0.005, 
         Dynamic[$CellContext`ka$$ - 0.01], ImageSize -> Small, Appearance -> 
         "Labeled"}, Delimiter, 
        "First dose", {{$CellContext`c00$$, 0, 
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 2, ImageSize -> Small, 
         Appearance -> "Labeled"}, Delimiter, 
        "Repeated doses", {$CellContext`\[Tau]$$, 1, 8, ImageSize -> Small, 
         Appearance -> "Labeled"}, {{$CellContext`c0$$, 0, "dose"}, 0, 2, 
         ImageSize -> Small, Appearance -> "Labeled"}, {$CellContext`n$$, 1, 
         20, 1, ImageSize -> Small, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`T$$, 10}, 1, 20, ImageSize -> Small, 
         Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{774., {273., 284.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellMargins->{{14.666666666666666`, 10.}, {10., 5.}},
 CellChangeTimes->{
  3.468124763171875*^9, 3.468125075046875*^9, 3.468125107203125*^9, 
   3.468125378453125*^9, 3.468126214359375*^9, {3.468126244640625*^9, 
   3.468126258578125*^9}, 3.468126293140625*^9, 3.468958305265625*^9, 
   3.468958337453125*^9, 3.46899554415625*^9, 3.469008810234375*^9, 
   3.469008981984375*^9, 3.469016586375*^9, 3.469016631640625*^9, 
   3.469016680484375*^9}]
}, {2}]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"EditBar",
WindowSize->{1469, 869},
WindowMargins->{{56, Automatic}, {Automatic, 5}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{Inherited, Inherited, Inherited}, {
  "Szeged. 2003", Inherited, Inherited}},
PrintingOptions->{"PrintingMargins"->{{42.625, 42.625}, {72, 72}}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Modelbookstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[111511, 1871, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"00959856-04b6-427e-8d4a-eb733191b9d8",
   CellTags->"SlideShowHeader"],
  Cell[123103, 2175, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"7cae6c11-5c4b-4e50-9470-08d0d13a0225",
   CellTags->"SlideShowHeader"],
  Cell[144891, 2776, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"9fd3ac76-876a-4af8-a856-996b8656a979",
   CellTags->"SlideShowHeader"],
  Cell[176528, 3755, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"8eff8684-4f31-43c1-b189-c39c595d48c0",
   CellTags->"SlideShowHeader"],
  Cell[181507, 3919, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"44cb162b-0db6-4dc2-ab3f-40f57407758c",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 215553, 4669}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 109222, 1797, 104, "Text",ExpressionUUID->"5b492bdf-5adc-41c3-8de8-d16c2d60790e"],
Cell[CellGroupData[{
Cell[109804, 1821, 657, 14, 216, "MainTitle",ExpressionUUID->"32bec379-1e67-431d-9cad-c77d95f73a14"],
Cell[110464, 1837, 153, 8, 181, "Text",ExpressionUUID->"f743308d-d5c5-4fe6-a41d-9a674ef8f80d"],
Cell[110620, 1847, 854, 19, 70, "Section",ExpressionUUID->"5aba28e5-a044-4f56-8f5a-ef25e034d6e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111511, 1871, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"00959856-04b6-427e-8d4a-eb733191b9d8",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[111658, 1877, 407, 6, 69, "MainSection",ExpressionUUID->"9880788c-5037-4150-bbdc-ed4b444afb1b"],
Cell[112068, 1885, 4676, 103, 152, "Text",ExpressionUUID->"c1c928cf-5afa-440c-9731-14c09062f289"],
Cell[116747, 1990, 573, 13, 60, "Text",ExpressionUUID->"1995bc36-fe36-4495-87ff-bc32329bf4dd"],
Cell[117323, 2005, 496, 11, 60, "Text",ExpressionUUID->"6793bfd2-bef9-48f4-99b5-a85414267e2c"],
Cell[117822, 2018, 428, 10, 61, "Text",ExpressionUUID->"61df60da-a4b3-4fe2-9e24-f2b24e01fb7b"],
Cell[118253, 2030, 520, 13, 60, "Text",ExpressionUUID->"7bf8ae32-6017-4856-9ae4-a7019c9768f0"],
Cell[118776, 2045, 479, 12, 60, "Text",ExpressionUUID->"7e33e870-16cd-4318-9913-8be060869c0e"],
Cell[CellGroupData[{
Cell[119280, 2061, 256, 4, 70, "Section",ExpressionUUID->"7ab19b9e-717d-4aa4-96e9-13a96c4c0ca9"],
Cell[119539, 2067, 575, 13, 60, "Text",ExpressionUUID->"44f3c58a-004b-480d-9e79-5efe0130f3e8"],
Cell[120117, 2082, 697, 17, 60, "Text",ExpressionUUID->"323527a4-f2e7-43f4-8237-e864cd2a6d6e"],
Cell[120817, 2101, 800, 26, 94, "Text",ExpressionUUID->"d09c86a2-e0e8-4890-8e2a-5b93cd667737"],
Cell[121620, 2129, 565, 18, 60, "Text",ExpressionUUID->"b9b09aba-5b6f-4473-84d4-4a2a161ec542"]
}, Open  ]],
Cell[122200, 2150, 854, 19, 70, "Section",ExpressionUUID->"7137cc4d-011a-49f3-9fc7-3e10b50c0baf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[123103, 2175, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"7cae6c11-5c4b-4e50-9470-08d0d13a0225",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[123250, 2181, 213, 4, 69, "MainSection",ExpressionUUID->"bd528ec5-e772-4a4d-8e70-ce8c512f4b44"],
Cell[CellGroupData[{
Cell[123488, 2189, 168, 3, 70, "Section",ExpressionUUID->"84f2b665-119e-40b1-8273-c0c95fa125b0"],
Cell[123659, 2194, 852, 23, 60, "Text",ExpressionUUID->"c045de26-7ca8-4f9b-ac85-3591524cba40"],
Cell[124514, 2219, 599, 15, 62, "Text",ExpressionUUID->"3ba180b5-6f05-426a-9cb9-23e2147ee4d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125150, 2239, 167, 3, 70, "Section",ExpressionUUID->"297236f3-e85f-4949-ab9a-9468adcb8a56"],
Cell[125320, 2244, 1162, 31, 60, "Text",ExpressionUUID->"6ae7c1c6-9262-496e-bd33-06667dc11d35"],
Cell[126485, 2277, 343, 7, 101, "Text",ExpressionUUID->"f388fd43-3e6a-4caf-bc89-0cb60f2fc215"],
Cell[126831, 2286, 838, 27, 98, "Text",ExpressionUUID->"a4f18c5b-4a65-4925-b507-1a47ecb58447"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127706, 2318, 470, 11, 70, "Section",ExpressionUUID->"e41d9f08-edaf-4cc4-b444-b04ce975d14c"],
Cell[128179, 2331, 441, 12, 127, "Input",ExpressionUUID->"70e7e31a-e7b5-4614-b8c1-c9eec7229b35"],
Cell[128623, 2345, 534, 16, 127, "Input",ExpressionUUID->"debd434d-611e-422c-b93c-2cc4eb81333c"],
Cell[CellGroupData[{
Cell[129182, 2365, 544, 14, 127, "Input",ExpressionUUID->"3b56f576-7b3b-4595-9003-ff59e3106af9"],
Cell[129729, 2381, 405, 12, 115, "Output",ExpressionUUID->"88d0ee78-e0c0-4652-9dd0-f328163463df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130171, 2398, 178, 4, 127, "Input",ExpressionUUID->"f1e4f9ff-8abf-4216-ac5a-1d7f1eb5006c"],
Cell[130352, 2404, 713, 19, 108, "Output",ExpressionUUID->"73257f62-2854-4222-8833-5620e4b8cd2a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131102, 2428, 476, 13, 127, "Input",ExpressionUUID->"a5e1c32a-2521-4c92-b9cc-b85348837875"],
Cell[131581, 2443, 1191, 34, 165, "Output",ExpressionUUID->"74cc841d-a65b-4e04-b475-22cb859003ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132809, 2482, 528, 11, 127, "Input",ExpressionUUID->"30c1bcac-4cf2-4581-8fc8-bcfe8a435591"],
Cell[133340, 2495, 738, 25, 157, "Output",ExpressionUUID->"35367dae-b9d3-47e8-abdf-3f81c1d21a5c"]
}, Open  ]],
Cell[134093, 2523, 129, 3, 127, "Input",ExpressionUUID->"745ecc68-df3b-4d6f-96d0-d8abd85c6c72"]
}, Closed]],
Cell[CellGroupData[{
Cell[134259, 2531, 236, 4, 55, "Section",ExpressionUUID->"7c339159-f279-4598-9a1b-720b74d5a916"],
Cell[CellGroupData[{
Cell[134520, 2539, 5534, 133, 616, "Input",ExpressionUUID->"c66248d0-10e6-4dbc-a347-3243f811c3be"],
Cell[140057, 2674, 4764, 94, 393, "Output",ExpressionUUID->"1af060de-bacc-4c86-baa7-e3daa2fbba00"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[144891, 2776, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"9fd3ac76-876a-4af8-a856-996b8656a979",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[145038, 2782, 223, 4, 69, "MainSection",ExpressionUUID->"82acef92-884d-412a-a2f8-056d49dbc0ae"],
Cell[145264, 2788, 814, 26, 94, "Text",ExpressionUUID->"29d52a8a-eb96-42b4-a054-7aa10859dff0"],
Cell[146081, 2816, 860, 24, 94, "Text",ExpressionUUID->"34ac9d9f-adf0-404f-b215-43fbf41ec271"],
Cell[146944, 2842, 883, 22, 94, "Text",ExpressionUUID->"2af7db73-0134-43cc-9dfd-107513b2b852"],
Cell[CellGroupData[{
Cell[147852, 2868, 234, 4, 70, "Section",ExpressionUUID->"4302a894-6aac-4654-9cf6-19d99537a9d2"],
Cell[148089, 2874, 1175, 29, 166, "Text-Framed",ExpressionUUID->"fdc9b774-4167-4e63-9038-9ae1082f8895"],
Cell[149267, 2905, 604, 13, 166, "Text-Framed",ExpressionUUID->"9496a78b-fcb5-40e8-8e26-3d48c83ad3de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149908, 2923, 297, 4, 70, "Section",ExpressionUUID->"4bf80a9f-2ec0-43cd-bb07-7a46956fef1e"],
Cell[150208, 2929, 900, 20, 94, "Text",ExpressionUUID->"1fe71f25-fb7c-4b1e-a63b-c82d0f75fba0"],
Cell[151111, 2951, 939, 21, 94, "Text",ExpressionUUID->"bf3727a1-2982-4202-88f7-881d78def939"],
Cell[152053, 2974, 1190, 29, 104, "Text",ExpressionUUID->"481f04c8-701b-4eff-8110-ba2620d6cf3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153280, 3008, 213, 4, 70, "Section",ExpressionUUID->"d3188259-fd0a-49af-8bbf-ff0ecfb4c9e1"],
Cell[153496, 3014, 485, 15, 60, "Text",ExpressionUUID->"e4dbc622-8f69-4afb-b389-9ac349302e9a"],
Cell[153984, 3031, 1441, 43, 141, "Text",ExpressionUUID->"c76f0c7f-3952-469e-a827-16039ae31e0f"],
Cell[CellGroupData[{
Cell[155450, 3078, 183, 3, 58, "Subsection",ExpressionUUID->"3d4698c5-fe7b-4e78-afb5-cd3560f188bb"],
Cell[155636, 3083, 2847, 85, 226, "Text",ExpressionUUID->"8c7990f0-b645-4094-86e1-7a7bcbaf81c3"],
Cell[158486, 3170, 336, 4, 60, "Text",ExpressionUUID->"15f6f7d2-89fc-4d69-be0c-4e505baad763"],
Cell[158825, 3176, 2758, 81, 151, "Text",ExpressionUUID->"1cac5870-1087-433d-8989-57a7beae6957"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161620, 3262, 171, 3, 58, "Subsection",ExpressionUUID->"5c0384dc-3f26-4eb1-b91b-626ed9a56ddd"],
Cell[161794, 3267, 2463, 79, 118, "Text",ExpressionUUID->"52b37fd3-01e7-4a0e-ba59-93e2e6da7f32"],
Cell[164260, 3348, 482, 14, 62, "Text",ExpressionUUID->"0e0f4fae-be64-43c7-9aac-27f476cab15f"],
Cell[164745, 3364, 784, 27, 98, "Text",ExpressionUUID->"21d4d90a-6dff-44a7-b62f-3a27f458bfe5"],
Cell[165532, 3393, 393, 6, 60, "Text",ExpressionUUID->"37e0e601-983f-4f07-bef0-763fc83f642a"],
Cell[165928, 3401, 4652, 140, 335, "Text",ExpressionUUID->"db9d334d-6d4a-4887-9acd-af47a57c64ec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[170629, 3547, 158, 3, 70, "Section",ExpressionUUID->"57ec4bbf-4d18-4b98-973e-d721429ef825"],
Cell[170790, 3552, 485, 14, 113, "Input",ExpressionUUID->"3abefb55-5e78-443c-8303-e6e08f256247"],
Cell[CellGroupData[{
Cell[171300, 3570, 192, 4, 85, "Input",ExpressionUUID->"ad5d5f6b-d53b-4d30-b8b8-c55b8af8a581"],
Cell[171495, 3576, 243, 8, 71, "Output",ExpressionUUID->"f209eb13-c203-4be7-8fba-e347ef608f8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171775, 3589, 270, 5, 85, "Input",ExpressionUUID->"ef2e449d-5d51-47eb-906f-df9d3bd39f3c"],
Cell[172048, 3596, 505, 16, 100, "Output",ExpressionUUID->"a267608d-47ef-4515-8aa9-d9162a11456a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172590, 3617, 1054, 32, 127, "Input",ExpressionUUID->"2e767e7e-515a-4917-a4a1-dc8dc4babe4b"],
Cell[173647, 3651, 763, 26, 100, "Output",ExpressionUUID->"c5ef5303-fdfd-44b8-bf64-56dedbb0ab27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174447, 3682, 982, 31, 127, "Input",ExpressionUUID->"5570a58b-7e13-47e1-9527-aa93698016a2"],
Cell[175432, 3715, 1023, 32, 109, "Output",ExpressionUUID->"8e44e712-6fc5-4d92-8a9c-5a866e208d23"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[176528, 3755, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"8eff8684-4f31-43c1-b189-c39c595d48c0",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[176675, 3761, 218, 4, 69, "MainSection",ExpressionUUID->"8e0e5e0e-c812-43ad-a0b6-867f81687db6"],
Cell[176896, 3767, 281, 6, 60, "Text",ExpressionUUID->"4082eb7b-a0a3-4661-80ce-c50a036e719c"],
Cell[177180, 3775, 560, 16, 68, "Text",ExpressionUUID->"a682184d-1535-47ae-b86c-decd8797a002"],
Cell[CellGroupData[{
Cell[177765, 3795, 199, 4, 44, "Th-Env",ExpressionUUID->"8ee9e5a4-ce8b-4c65-9b0f-1702ffb79194"],
Cell[177967, 3801, 768, 20, 142, "Text",ExpressionUUID->"c1e39486-c164-43bb-8840-9cd612e925ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178772, 3826, 277, 7, 121, "Section",ExpressionUUID->"017265f3-d7d9-4a03-bd77-05b78bc7550d"],
Cell[179052, 3835, 432, 12, 60, "Text",ExpressionUUID->"6e1500b7-b125-49b5-8518-9bcb45697fa5"],
Cell[179487, 3849, 163, 3, 60, "Text",ExpressionUUID->"79661959-cb63-4a9d-be78-f1090f8a2ef9"],
Cell[179653, 3854, 485, 14, 113, "Input",ExpressionUUID->"b9ce1dbb-bde1-4e33-abdd-046156b30cbc"],
Cell[CellGroupData[{
Cell[180163, 3872, 382, 9, 85, "Input",ExpressionUUID->"8e7ab87a-8d04-4870-b8f9-9b0eaff2ec58"],
Cell[180548, 3883, 886, 28, 109, "Output",ExpressionUUID->"52b78096-b18d-4b4b-a7b1-ca24a1cbd956"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[181507, 3919, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"44cb162b-0db6-4dc2-ab3f-40f57407758c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[181654, 3925, 380, 5, 85, "MainSection",ExpressionUUID->"211a98fe-99ea-4f06-89d4-f2d3975a4096"],
Cell[182037, 3932, 538, 11, 73, "Text",ExpressionUUID->"84f7890a-0cbb-49cf-a991-68b7591a9546"],
Cell[182578, 3945, 865, 28, 226, "Text",ExpressionUUID->"cdfb55a8-6dfd-41ee-a979-2632c0de802e"],
Cell[CellGroupData[{
Cell[183468, 3977, 21385, 483, 616, "Input",ExpressionUUID->"987c5856-c253-4a9e-9bb0-2b687cb92aeb",
 CellID->410492984],
Cell[204856, 4462, 10000, 183, 737, "Output",ExpressionUUID->"57189b88-e51a-41c1-a2db-9134814ee225"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}
]
*)

