From ce95c6b6dbc5c78d8dff0fcda2acdd6050bd3a8b Mon Sep 17 00:00:00 2001
From: Xisco Jimenez Forteza <xisco@Xiscos-MBP.fritz.box>
Date: Fri, 29 May 2020 21:13:03 +0200
Subject: [PATCH] Code and References

---
 References/0805.1726.pdf          |   Bin 0 -> 1078763 bytes
 References/PhysRevD.85.064041.pdf |   Bin 0 -> 451547 bytes
 code/BBHReduce.m                  |  3658 +++
 code/DataFits.m                   |  2224 ++
 code/GRTensor.m                   |  1334 +
 code/GRTensor.nb                  | 41811 ++++++++++++++++++++++++++++
 code/fRTOV.nb                     |  6741 +++++
 7 files changed, 55768 insertions(+)
 create mode 100644 References/0805.1726.pdf
 create mode 100644 References/PhysRevD.85.064041.pdf
 create mode 100644 code/BBHReduce.m
 create mode 100644 code/DataFits.m
 create mode 100644 code/GRTensor.m
 create mode 100644 code/GRTensor.nb
 create mode 100644 code/fRTOV.nb

diff --git a/References/0805.1726.pdf b/References/0805.1726.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..bf51a117c8691765f90340727040e37b28a64977
GIT binary patch
literal 1078763
zcmY!laB<T$)HC5yJ^rSD5tpfgfkJ*#7MG2UzE5gidP#<YnSy~rkiJ`HPDyH!g1%c$
zVo9n?YI1%`s+}EIaY<2XVlG$3oV&4+lVy$<mbKh7lc@TjKg0a2g~8cf{4WoR@pn$}
z?PgKDnCQuWfQcn6Muug_1c`6`<!N&xuio6;?LA4d=YU!DuGc3%pI)=()%&ufiPnw(
zr|y65f6i{t<MRHvd7Ve!)y@4^Tk`GhOdtNYr{;fF-`)T2Q1gfVUT@yj6|?Ps(|4mO
z%=+n*ckd=|{<~NFf9c0p&y_fKd#t~sz4`XvhZnmamp`w+_4dp=^Kk!%v6_74|7*Uz
zyt`R{A?J&?A@N1(XBYJb-$;~Odna=9XDz*;#Od`n>WeL2xk@F!ng8w|Tl}RjOE*MF
zE^ZQkZ`aWNe}}!y*++W?_Sx8$BpzS>UZz1T%w2THvZWDD+20MeXD@eOE4=pZd;YAA
zPNz21_t;h}_Pt}@;{AR~U)ldR3!W}&=KU>xV~t?gjK8dLS&CEj`n|Hx{8K%1@20CI
zZ@%nRr8yjC7mw^@jk<0Bs@yaAJD>Ybm*-RO?mu+;!NRGxT7?ALR=gEj8~9uP*89}7
zI`N00Pkkme9evy9rLT7W&AW#$5>_4Hogr1WaIK&6W^WF|SAQoT4m@x>&}}~Z!{nYy
zsY`l(FaC<RFL-Dx|DF5JmAb&NxBHtU-9?i*wrqUA(UAA^MT?THE{ancGhZE*e#pGn
z^WLsg%*Jt3IgiebUc_Fd-pII)O|e``jV<`rf0m_R4_kY^W9qs6vVmXrb+EgnIIq&=
z^#30n^}MVmTeA3D@2u~V&CYE({P55T6M-3j_<SxN(+RA4Fe^Icf>{dVgg~obpV#x9
zdenMQ@`{<~XZ~MLZRc2+JPlRb!FOucrIq~!<+fUjoojtFx9@jp`{CN8Q8O_ub+7BR
zN71KTCva`Pv0yRFHOU37Y@RzCv^80LUhVPK|G#R%{OAjd*f+hcZ<l4dxMb<!7yA3X
ze6_RLwO+b9oS$ZL<32-e(|pkj94(>I+bgapPAFaL&=VlZ!!fJ)_xVIEgS8DJL2O5O
zmtCLzZ((T-XSmX@3m!`59JSh;-7|t`ykFX~E^vd$27?)^KJ7hPH+8xARyW<Xi)%Yp
zamz59)fWaN3OcpfL`nB3FaB$`de-($y-pQIhy6coX}wx~HA?*DsV29dW#_k4|J|wV
zXK3|0_NQe2smb9M9SH%iwAup&_Z@2Ux!`ax{?LWq&}+qIPa;l~PEpjpC;x4~y~h5C
zEqq4;V#=o0b(GKDd?|O;9yilTQladjcU1PRcCB<i%aS>7M(6UgJ`>z5yB~_25R)j6
zW&g+g!mz;M^q(&&R<9l}e)(h3%)Uh_QeQqk^P0BgUPOOPJNNTF%C|nxiE2~vj1u%z
z5__=h8dI)>QB3n+_M87XWM*wV6twh>bKRZz^HG@%sVP48%@bX^<yQHz=-ppGmBEp9
zy4WR|HSs)m-W+;A%ZX!=MP^E1Z&#drjqq2sRgNomr95VIcKsi;#yzy)>5J%=bxYR!
zu!Q{n&8{k*+~s|y#c{#{v9&$QVxMj|GZ{#TPL)gw-go38D}&C1iVdzGuKcdIoAKa)
zsrRQ-wH16D*fy=XZzCV&^Jx($XXkRQoM|7dcm7V;vD$RSw9miqD}*b*h%j_uRQqY!
zC*jb)?TFT2^DM&|0RorOK6XXDn#-=rCNb@;|3ZsN?y0Nl`*uCi;j)-?ma&J)vXWsF
zAA`Az3HO5yQ#tGYJMMbPTUF+eeC>!y(PPKY$<Ov*5W2@!&*yeFdQNYfWyFOe;UA2C
zl=@4v{9&#2Zk=alD!kz6d;S&DOr}|P?;0=Tzm!mSVdjz)wkProNtx`=C%Hc^X}S19
z$3bJYT2trLB}ea_soeeQyI1|WD`84+B{+o=C(N_?zNL4;_Tyj6)}MW+daCVf)RC2$
z@{Un2C(n%Gm~lyTMvB#}<?I62Rx~T0|5_+2&v);{?p3WC3z(SrXB<eap72_)d{N_!
zzdKL4El8WbV0Bq&2Jema=AU`uKR)o{$hDe2e}VsJIhOzbbS5&#UjNcwXnXRSsPDhc
zg-rJjacIiRx`bO*lr5SP_ci>D<eZiMdH*6bDta__D5W@ky6maUWf-us_7=-uK_Ph&
zu_gbdr|>Uj)D#YsjACM+wBU8JU-)jLGE=K0YXMIWYmXDN+V&p4cZT1>B%q`}ZtcEL
z7M;_(PW)VS&$URgK)J<wc~xXRTX3c?!)t}esEO*vH>Yfv^r!CRhEyrNS6ym0Z;NXK
z>iiUDzT8+mU%5`rp<|tZLyOUWj*TxI8s0o(I(R}yQ-Pz0Ba-3vAESc?3A<Ncdc?lz
zi={{+Ba6e8J=)TWx4Jfa1+My9p5P&-RFz<&=&k-`&7UPl7syK9$}~NdcKMXWt=CB(
zHo2wFYII|qFkxMq$fR_J;%<&G=Nk+wz6Y}u^A)a*dL1%Tcw3H4p{{na-M&wo>ox}*
zarytNk25tOneX`I`TGyfmT>&By<|q9{;7k~E8Gg!nlAjB?6%T>hhMszUxcWm*x7&j
z9=9LFaOCBtPKwHI&^3FqKyukCmHc_TFO(<lQaa@!)57}U>C}|p)mIW0=Vhwpt<pE@
zU3=-x8hMkiZ|&CXV`_Qd{MPx6etLXj<@^(S8;YGA(%mnGw4Qyd=_{>bReJEpgFl<T
zbbX0gVzWwQ(}CUHTxo~D@UGJq7LJ|Ho-;SoD}+r+f+Ilj%v2q%q>B$LFLzB9Jji}h
zHKT*e;4kmfCV9tyEsApKt}3gqo3YJ)*SsT3chbD}GLZ@0qL)8<CT;k5DZ3&wD7WP1
zwzQzBOCLmQxh7mQ*ZeTebiVbY5}(%IpLdKL*TotzTb2DUVo&2<*pMt;c68397Cnpi
zM>T)H>tQc^ujMpD@$6TQ7+3C%;XaBJAIJWF@O?_N#?_B*O%BidI>H~j^Uug#VJ7!?
zeItkEfr$LWF$d<&n!@A!FvKxeV0ouH`xJHqMrOD7aV0GG&s`1=+Fqt&)#Eq0)W^Xs
z?x_AbH+#*pI_ViwD^xT8^1M00$k5?2d0U?6q{fC5^?|}$_RjBV>gubyRKt4MyJho=
ztCpX(D!gc7pH+WwzHCL+>0OzN&S?rTNCj?jnzH4!#Wv;#2Rl3zzZ|HqNH#n-uk6K=
z{7+owUgsvJUNq7(GZnb<z3@$J>z!tH*M;o*LU%;0RbOS93(aC~_OM%6dF?7^m35Rc
z>pD-)v%l89pRIrFOWee{2j_<+rmkgf=RSV(QI6T8ltquUGYd=v)c6;59X_)+<o9}h
z!-)#B<+K^{H{9KmHDjJ}smAUZh2IOgn@i4WzdEstHNZ|-ZM#BmrG4GOC^N$?-?*0~
zUSlcInWz4Kj<VQ;t(QzXq^C-&o>%xcJ%4^MQ}wG>xxjxH6L#c1YUsPP_~4qvxe15a
zgkruX2)x;2_`&6?jqZL%tK`L269pA`1wUA5@vEn-)=1~s9dGzA#pl|A_j<E}V;383
zzPV!gQHBVmeXUGJKe9i#$SbeA{>W+j^TmG-&OThhx^Cy>>+HW&S7@zCe7c@L!|l?|
zIZu!E#{4c|xhl$Dy?uT`!Kcm40{%j}S9&j$FS=Luh(k5j+|A2YN<!CR!qPiT=Q%@i
zo9>0SE&sjm;OT>V9zSx?Q1Muod{n+>N{mqL?(;jdW#(?q+&U?@^x3TrRt=4oNVW&{
zGi1c8?(bmDlFobFWA}W?PKjKBxm=5WpB7(iKFesC%W1Xh$#<@WhUq4DWECc_-5@G5
zXG!lbg#y`&)jRlh{0gjzoPJa(E{eagZt2P%l?92F&L#b)#Wqfuv!}USmnF_?V^ieM
zCF{5LxcFLsI{QaZZJk8GrX!h?oZkHxZ<kzr*=%*nvR@JcllSE2FYZ)({dkwya?@l9
z1)nF~%rmSOi#Qt`PMOa-`O+uL^P$mqJn~)%6kPrBmd)?e(Y>?hm$BKYR*Jm1*m#lK
z!|!dwrZnx}7mjUPIA^8e)5?d^DZ7t$XdK(Y<Z-luIV@|v*xR=c798L5ZqB1uLDRV9
zj$AUh+IAyLpK<<%hItu>DmSx*_x1(1C4SiXBjtR|UzyL77?nNl<$tQYzU9oqJ6;#o
z#Xh_7pDA%N)4sq|+xaf9LX4SxG&5KINeJ8Ra{Z!Uoq^(MO~d9zE#D3YPW}<w+G1;9
zVR-ZA><NikF;{tRb4}Bk{w((W$|VMi+tz&IWlLK7)+I>G#85lq((ajy7sg*PyS}A3
z*OlRE&NMmYpGz6}CSN*wd6meXu5X5RdP}aZTI<)8t;+COWL3??T>mTY73a2!6br0!
z{Vf-^+M?Q+%i-m(wHq_Vva5x2W^vl<9V`g8-+RUB@wUueH&-r=DO1qv-xAa*rz8FP
ztJwSC`zKUpg)=S+(7Jw+^~>?srIq4eeq8EM4A>p{{$~4^?wA`Zd!JqX7OQI*r*7$b
z_Pt@=y7<Bsz1arowJ9Pl>iH=jy}6b}{|T}6@jf=C$n#!9+O=Z=-M$Y+bz_a#ivk<i
zeD$J)4Od%=NpiQUxg|dIX4~+3e!Q9q<Gv+J?ElPYZk!ez$#X+PwdCFJZ;Vs9y88+r
z2(AuR**R0?x>YAv+t(7Ol;WnRtBsZk#qnO0UDhACv4`7GU*PHL;u(Hlu2ui4Qc`8n
z*G%qIbyS*ssUp#4`i{UILDxT-ZMw8yW5e<L4vo%UEKA+J<}et0Y~~X9-+c4On)|Ao
z&aC`wI&<!2Z+p|5HCabAFFpyLrEU8$ut*{(GNDG+ki}9y-JWS$vWWEq&jU=a&d%{Y
zbm(Z3)@gl#q8)s_t=BK4$#^gGQ~dVGi2dzuvjwdUJeMc03|T+fO-Cqm(hA|8fL$-$
zl@A+TsGOR9MYGaERch+4%6Wk<+a7L@slTMB7cu4gxl{X0F4&wq8uD`4hLFDC3kfTP
zE7F}AHfeD*ew($az|6{>`JbqU`|8I0<%eARJAWPgRWY-Sd&#S$*Bg{Rv^_gKwZZ<j
z%o$(K9lfhrcRY2l_@pf6$0?J4=<d&Z&N@+3?WPoHo8OgxV_)C?h~-9rWzwT6ef8rR
zz4FI8W-~2H5`N%y_|NQ^S>~qYE{*weqR*X*_wHR|lHwY4l~4M~dfpuN-XGU)dE7EL
zo%G(|ZbGB|t9-NX$C9?s+O_W-%cDDIr9bV^sy<gU!@y;?{o8+!H4Oz)nVl-~w=^E$
zJJ5cM-K#t6oV#VlyOJqQaf+tL7g|Kt@ucj?=@ogdy!}n0qoC!=mDT@L`tJDJ_x@VF
zgY)kzg#*_zdIZC5{e)Ld+$G6<)NC`$snglEU#xDO6b@z)E_dsgY{ziDWbVxp#^rkt
zF2Awm$gG!1b&D??{o|&;da0?<cR_{{PDRP4tjV3O@5}yZHv4bP5?5DOaeJ@!HhjXB
zKK0k{k_$5JV?Ob^E%G&zXq;B1^THweWR;xBPp=1RQ~$4A@Ljm1M5vtSS|p2(z_C-+
z^Rs_4>%I9oCo(|ONv3V%w}d0N1*Y_MCqxuxA8HHM3AcR1$d^3BK=-<eQ()DzX+Au=
z&iQ&6c{}amSF4g<n!bHz`Vn_F&Pj_jCY*fuN>l8Wl=t0tK7yYvIq*BZ`}ZJozRpIm
zblo4uTgsO%m^@?k|Lyl~PHehom%MdWVVsA;xmU-Zu8@tK|0?Bzw$YgtIfqj(-(G!l
zacZ2t*(8w@UrjsAeg9uOY3Q_fUUbRifci<_l(KcKR}>fL{Wtw0t9$FH=KRM$7o187
zHg?UP=*yJTlKraICHtVB(~9kDPwxmka`ox2ctIA=2KK%Uhvt;5(bJh6y_WCGcipyC
znR68azg*bZYFPA2&Dyh$VXLgqTh-(#@?Yn7o_)5a+Vi!Q>)tEcUvkbZpPOB5pD|^9
zmf4G6TLO#uqA$)na;wDM=5J@i8TEuKcLYC5?EPxQ6KSpzQ8RbXm8eI~))PeB9zT1q
ze3xKSNTs=xuWsz7RjRM=hbcZysk|rC7-X^Tf5jBHD5ZeyO>2w(?X?rUzxNu4tYa%n
zMYFDyN603Lyrw_*)!34H-F+fg)Z45MDe}nAoT_l)6U%m=gUhd~#unE$e0q21XJ^a2
zhr(6%a%l{_(;RLX9@+2C@ORaw$5Ay$)4Mt6DC|rOtM}KrH8*OT?&`ADs{&$Tqjb5h
zIutR7wN6!>Gx0dv8l?sm=e~p=4)gebT2E4{yt42Xm(s_~$7ecAFJ@Zbwq9(wQaSl#
zZPny+f4AK^b~QP7eZka4yy6YlW*KCk$XRos^GI;|u`~MJUUl4j!g;U6INg-PC&qX@
zU!G9d7PzTBOGMs>LE&KgKDDd$s)bdnE+70mS#AE@$;G=_GQMnow|&})^DLWqW-_G;
z@pvl;@OK(ae87L{|D3oJ!Y?g4`6F*HsAyT}5wul0Z)4CJgXIe=S^{64u${U?&yF{K
zf{|7p``;;Ry>44Qdb#Azmiir?->fX|&PhENc9+5V&RI9r86^{h*IwR~CwMVHyXx$*
z^@^!8xJ=u$R{FV|E4|RGwseNer?if{mbUMMPo|59<nesH5frhe<kq6t&*uLN%f82(
zF*r=@`A{z2vzYCS*cBFoKB)uEg^m6DrAp&BR~Ss?d1BMU`F>^Dl_tqUZ>8qG%6j4}
z`239Y-^WkSW;>l(+iPZ;yyR(h(hNhv)vq`YA8YV)im;Wu&CByWbT!+XYX7RNj8dB;
zrmPM-O8Zoleyn0IsysSlW$=!*=go5@;+mo&4_B)*R;6BbYkaVQbNeENbt#X}u3nN8
z5FJt#@79u5e1EoRVUTx5X}9O>w7=I2gfFaLZt}M2;|k8l&UuQ3p<mk6zt6excW-F8
zoA$FPyLYx9Wi8hH-D1iuYu>b#-B@CRlensE_B{Xj0hbpvEZlggn63YN)5}{6Wwxtr
zD|#^b=zPs~qx|%0XH8v!7kk(Kv66V8)M?PCy{uB|NXaI?_wGp^_Z)+s=0Ezl=Hib1
zjUSRCIK9&k)os75H=n86<iY<BFM0&Zf}ZbP02*Z5Rr~GX+w<l3_wT5x`1bI+b>+8*
z=|9f9$Jg-G=hbiey?nEO{`-A*Y=W;HlXY>wciUjDrZ%fu`lp$j>`$sM?K+^|Q{oh4
zV4S~jX;s7hGEK&JzjdZ;u$nY`iw6Irkl7(=_rCYk?Tr>$=hOK8wEg+z^EDjeRnH6R
zoIP!qzi5lmhUBn@tqgYqCjV`G>=w#kP!Sg0DbN}_^|~Ls{{~Yb{!`1YI0SE#X?xst
zGt%;DLcIBc2##eN{^j0b@&0r>)57e^hkPrhXNfntAA7Ed6xdv%$Sk|qV7~pVn^R{=
z=DEA1e6ox4byUr(`5efv^mE6~WAk1-Dpy_Smw4!Y{?xZ6Ue`mSx~g7wg+%S@UXy*m
zi1YEJ%G;mVQy0JHl*`v?-6;3O^jp6Ke{R*Ix#8+N?j&%tZ`OPimU-);=d{xQiRXJR
zo>ksqleFtaL&euEh3ZO%OGO-(?Ac&a;{E;FM(yL5zGzgKn0g7%ds$)`(DC~$hu}e#
zl3Ig>Hk!5@3$}OpPn@{s^QU<q>(<+(U7nI^q~~!>{VNam$pZrH_wUc-)#19b_R;;l
zvMe>T6&CBpT~wBjG{3a?UBwnl`JaXx<yALKp7G^!dx@InJEPp2q6+g|9yu&evCfv=
zBHQxjexR}oi>&l^QImDgc@D&Gvzv8fl6u*hsf+EeO`b2#zHx57_c`|P=-n&Ml(b$f
zTl)4~;>@e%J_`iz##`*Td|%Q2d+6y|7f<-rv9M{ZI=MYPsj;l_RfA^A^a)>tE(e`A
zlzkg*&ayYFZJNisQ&(p#Tv6w@Nck^ErL|^t&QT`6q+PqSA8jk1#2$V`E+^H<_hMr2
zM#GmYo^8Ca<M6A1CP$l?d9Q11wkxdfWG(u~zy0B#gEkL}r0zvT?P$~vest?`=V_*c
z2O?x<Us<oCV^I(v9k+L;$S*nZ*Ow;We`WV$oAaU1(%Y;H-(Bxb`^<J|OFS>L{A-yR
zTh{JeCm!PPwpg=PWp?|oSzhb@O_<A3k@4vG-Wd~hYYr5%FvvGY&fE6&i+j7Q!_E_l
zp<nL3Hr`;cXph{Qb&T3PS+QX+7c0KEKR0_>@|pDfOR3Tuo*qu}s62W7ZT8OVdyXuM
zQtk9#?S5f}zvSn8FCLpM{o=~9;lZqF2Pa&7s^+X!cxE?O&ywU@>lTJwo_EM^<GsN7
z*8aaTkMPa6F?|$c7j=E+t@GEf8<%m;DVKhds&r*r**?pUQRb`CeO3xAQap3dy6mYu
zQ_`n}z4bE|KiM=jd0M`c)dDTuztZz#+k&!$A1&2sT=H-8S{wFjdne`X(_O#)>9ap4
z+Y5cKTY293TM#96AWUM?y(hc3UcD4>EI1`tr$_u*$f=~q0Z)5nYLA<1M{dYG`S`dt
z_sPXM^HnEqdw5*aY2ES%spZd<qi0^Y{qr%mTDGV8h3z+|+<h&O^NI7^w(7gNJtw|3
zALu)l$|<EhRc`S|cCm|RZ%J1*EL$>lMQr&#Yi1X}#J*C?xPvmUR33QD)^~{Mx&C{<
z+$+1Ze=41A(>xZO%w6)nUF6P^pv7{p6E6JB?-HKm!?Wqu+QXfb8}IB`Xs4(&`*{*?
z)eq^nv-`W|nOMF!9m0Rv?@_cY(`%->|B3>AyrDTl>v{tw|4h0zpJ{=*1N*Jn2R5yA
zKKSuSro8wO$?J1wIi6Qo#GhuW*{yc%+U3Htvw0V7e!2ea8K1LLn1wc-$n><_s9TgH
z`TW>U&6n0J6-O4_N%6ci_iR#=gU+E<MVzK{Rc2dAO*|_3?MB1AwJ(?b>N@y*&D5DW
z4@%b5h0k48QTW;9+iM<6Jtm2J_VX+<<mdkXJo%uTyt%DaR_z2WL7t+nV_`yBTlal2
zcVLPt`nupfH|L!n3Mb3kSh5^5!j<iRD6KaVlJb?_E`50NjoQ%JQSC-^f8UHf^Lox)
z6YCdI>t`g{P2dojacQH`Cb5ax=4sKBw^V+Mi6~pXU!dD?vdo{q{vx&MO#(J2979yJ
zi>vyVUP+wzGdSes@0Qhf7~XB-smOXhL2bouo&8x0)9&Al+ur=e+jTYna^5zpRbNtP
zU*7#L{3VBGZcOfpH-<LHzSg?ze0SMmx1X8M+c|u7y$(@lrQeumsaU^xtQ>!?cw&j#
z?gCf;I~rL#^s;SC4azs)=y6|iC$ZOg>HAxad5pe2;ZLtQdh-ZL`H3C76*0AF#?Doi
zMyFZ7Dt!1Tq7lPsTg!E2kJjQP&)%Lrc5TPhy@r`zf61S}m-9BX+P8Y~nkfbzN+rpU
zLLc3HXT0QINArtZzk<A93wh-BKUEbySbyr(lx<JXcrIn0m++`SRc(^x>d9tdDPc2H
zQhNo@>U{a^Rq(#-0N3ehOJAG4l)To;{?ydBRml4K>wVQXt!`$x=NQ~QWjFV{O1$>R
z>*;mBM5gazFF9dz{~)8J?xpP?UNv~wS>6p%3Ua^r?ql_bZ0+|+T%S)y-+b}-Wc1w9
z?Gpum-fs5(cdM_Zaq{l}oViX{9tQU^9Gg?o@qMnyE>HHLFSoz_R)71doLy((0nMwE
z_uACX-ZJlgnZla2^PjL?X^PKY^YN1Y@7)$2+Twp^yiZ@dpZian!HG>BUl|ONKd($s
zbL-X){P8hx@ucHnKMD_}$bVegz<z$-V{fAyUoyF34)lqwu6g}_=B#@c^J|W6^J#Ox
z%5hiJ(KArTjANObasU0ek5=-|>yIX-9^&|sdv4E{j%^p07O1Yxdb}(5|KG}AQ3W3s
z#JmjhHhJ<?*Ju8-^EFKc7q_4LczJ=F_T+u1WTrM>|0eGL+f;5Z|1=%>3te0+a;<jV
z$%Ym3lciqXUZUXk+xybZ(<*;<sLZ&1michmM-%RqFAfB#JA6(48NzZSC8kD=*Z$4)
z1>z+>;k7;~monC0b`L9^S@M$YO>_CmzUBMoM}MoZFfy`Vo4)d_<#b1t=KB#mbqCG5
z>l+^*4mdo;&E?**pqU*v%`1#6biQY%?0hvn<=WoH?)2W$3Xi=^=T@AG+B4H@!XG9x
zu_mdV9BXcB9=`hW_c~vX6R}SEPAY4J0}U2)MClZI-gNc)=lv;T`K6<)TmINgE03+|
zKYi!ivnYEVgG~yq4<5fhT-mZ?`SR}*?6mSqeu><6oxAAh-Sum?-_SoDtN!NRx82)M
zd45xx+Y;1XeAIA)$8$s3fTU!-250&Bv!~d8N^8b1+f`=Jk$35m*MrmR3ij$6ak%_F
zwm?*I|KsUQlUPqr(J9Z4PvF$opT}@B;oAdseJk#YeFCb=w|duFc8FZslvmwwf;r4^
zq1F`t)(7D+e+){LmY%mVK5@WpuD|i8FN~kU-d#^#xBbiNpl!3IE3eNyw02G9%*36g
zi<vI=Of-&qymN!3>f<Fki}}w5UR^3YbIpY{PhV7jkhVIo`24Je^<@l`*FH&ko^8DT
zgYssj$G^%Ze^9J-7hCMQ^I&`4rFprALD4fDI(SYmStD~$Khj^vd;aeUZ5)@4-#yEa
zH@w3*d&kA=DZ5UZ{L<KVb>rurr+TlAE?=7HJzwEj=$8GVI!)8J)H+R?zEkte-;_nt
zxyL5HnBg?<QOv~j7K<x~;)IqP3+=Tt+L`2&y86%8Jmr9{Kc#Y6&N5QAHnJB^2SrTy
z7`U-pd-{~N)4!km3)}x{l4sPRGvO@(&L?*M|01;b^87~+4mNUFb7(xgc4~`K{L9Vu
z-t#32b|iVr)t&j}61Jtzf~C`R?Mv<MQ%&iN9R(BjJ#T$lcOm*MW5tE9bJ7`8WjIWd
z8Xev|Qjp3>o)U0f`io>zqN69Xz~l)$eM+@IJdQgoQ+A)~zGc$+LmBI9yVoZkSoG~r
zfnI&azw&EIe&y?|v;%rSH0btjnsx4>?9aoywWqKpez?GJ=^w`~uW$)vrTQha_N?}E
z?>uQ*=WNtdAf+j^S^d;y+s1nzCV%VA)T^Dwy~}9F^2*C)>P!;XdG2L=Jh}Ni=h2Hl
z9v$C%>6k^<Mn*R8MbmT=B#sFGa<5o<pUWjsbRVDl**^AV{r5M_|Iuu@cM4nP`AOIH
zo^3R1pW7kCly8t$W5z17_O@f@uJyB8_xn5k_~P5<uG9HmQDuVR+uu?FpHE1rZ<{Fd
zr6GRf{jwv=?;c=1ePpRZy~FG6hK@@aC$p}))_U6QSLAB>4GNtvbSoF!3Rq+1zL=Tk
zQq!%o2i3J(f12$5UwrxXYF_;bQHRd|J@M_IR*Hssa7MPbV!ODK#ZE{2KRkTP4)olq
z@6~>|?8=Yp_ct$Oe&v`FqHfl8njtPaxh7_@)$^~?eVcxGKV8wNbY=bo*SD2x4`^l@
zYJX5^QPZ(nA$9v9^W7J=a#t@j2Y%IKzIStlf5X`h*2%YI&)!!KV^&xe(PN<Pf9{7_
z?wv<p-Pn>@PP(LMx9R>%cd@$tkKJwVzC8tJ7f%;gzH~e`-@>g<h@WfX;w8uCvG{22
znNZ=yu~n5nLi1($cICT*qLR`J-~VM_ePq(<-*;#EpWIk26Y_6;t;5mDJN*`Pz7;oS
zP;#8MA$#&&Bhh1z3^PO5xWxrFe?RzUk?^5ij%ViB-G07j_NCAW@pp^mizFTNUYuVV
z`@$ek^OK+G1NlReVvh<HW=L6BwU#bnC~GR*K3&{py}Yo=<gnQSzIW^mF6tMa&@R3x
z8_ntR<BDkNi!bvIZ|Y$Ab$Mw~%D$FO(-&U~dHO(@f4ca2_xQak?XD+gU#qvNv(?!r
z#*(CTh5hI!jm?sG{E|Ia`rk8Lcf;!T<4DK$Gj50GtMTPTo&4T2ZM$Pc`O=QkGgHEj
zIKL>!iB?l;_WLXLQR9o2;ykG-%kC{na{2P@Q`V>4942c<Px&^H^6PU>ItEVe`EmPn
zuj1!zUtQU1{d&5rc7;B9vbxzd^h2Y6L`*>ZbdE(C7rb_~L<X&mWpWn|aSLCP$!>l^
z^ZJ68Cz<yJym%hEU+3#Q;SoLS(k@1hLr-RYcx!C+<C<^5jhAvBzbv-N9SFNpsNcTL
z_4nz`|C#OGJylZkQlJYxQu9(ki$g$5LO`^InYkesRLlZ%<%k7H9l@m|M{7MNtGXA-
zonO22mBQRpDQ3&6gtR7ZbQd_rY{=s2A(PpWnR&+K!9w!|@*k@lnI$%A&iuIkvTazu
zNB^1ds~Hy(Qud!br79M07ytP8>{3B<?SIq%*M56-ae4gC+4=PqTkieg{d0eN|Gs*a
zN4(}g=cljFv#akhzd3sYi}u=mm4D7I{<39<;W6Dq_bigd-sj8huljO4x^h?Zf58@m
z{~vzrx7~HwQTNj`zgems0(o-w?a^}c-(5SpcJ-Bi-=1d1Ht`(%eOr9F^~Q+Rz5D(?
zELkr0cI)BpQ!`VyetqwD<F@)oWjmJA-|tG&KZXhB>A!!Nwpx6t&EChyC&%<~hAoLN
z`#Nji>#LpzDz<*vo_{;yma&D%`-i)B{@t&>Qtaua6{j9Q`JKAv+@$9x@1MWF&GG5{
zefv%yTJXDk>gw}_VXvFQZ%53(^8Ebz!W&*53omh5?ADOan?En%Vz}br+?_989kNQy
zo4-_FL*mR&*WbSP%F1_L?%r}}#g3^v{%gPaHdmnA&-&)F%73BJHWiz>5(T5C^*?a>
zD-yrwkoGB?-nQrWwwRu5Hs;bhJX_c9#qAfnbL;QgwZDG+H7TssTti%pHJVi=&3VJA
zJM;9#WhO)?JigU%|AFa74bA-h_IFRJRw%kirMUN5d~xebIh6m3Z_hbqft2t|KlW_q
zIu;)OWwMPxKBw-!ob8ipPh_+Faadnh9MoMN_44+&%71=;rkHn6vszyxbD*R=(Z4t5
z>e<KptH1o%|HrVm^6<2j`)#Tlwbvxis*QMfuCBVI;cM*6S6_41H#feWe0l%$+J;uM
z)p1Rmzc4>x+x7MYx7CfK-F=%+%G?s#$I2C;aPq<X=&CnAWtTq=-|@JD`=)MH{U?V~
zHnRlFyR4i?7{vD<Db$`J?WHYYdWSKm=pSSKZdb<bYEq>Z%$w#u?{#T@|LpCRRDH`=
zx|5Dw_C5Vc^IzS}rR<{fJAd?StW5iO?AtOGIY%4cBgX6Iw7d=6m+s7Kbh)o-%ET|z
zKihAA?O}S$HSm0puloP@TUc#be>)rzy!qUbIVG@4jp>tTXjaPQl@D5{US^9pu}U*E
zgS}cwcB0_<Sv~6cwU<v%`0?-1!ob#Lv9dFDJ;M%d54|?y<Q7iujZ^F<-D%qw?=HpY
z;jrz&q?gjinwSed+zR!TjIP|iX2I&ZqeY*WdVHIw@}qET>f94Ac7@xkv@#``oaA;;
zy2o|OTmN&p<MYYSyN)fmUv-<!A>;YU#+-B9;VN=<#VNNEk6wDWFX8({4-=);C$(%I
z-{ichq;szGVXBmv`?n<@{Buusu6Po7VduunX{S~Tr6e3qXvmY%sjL3OyM1ZB72~rh
zQLShDs&`B)w<&t{T4!ah$0U(03rq5DTs(Ho;Qa=VisSSBf^?kxt{T1)RTodMu=1$7
z+H%!6W_I{_No&!fmf4*)aRK)l=X`neE#HyHoAHI@F@2jqa}+L{^oO1?<N8^AbmlC}
zdM$^24&mSLPL?a<5AbB1(LC{)q4utx6SJ5K=JScHJoH%Tp!(GnKa@CMzgg+x#&>nY
zo>k7<Q>I5=it*bK$b0t`>w|4R4Bv}YYO;Oycd#6v-zlPM|1x!t^oavIE6o3F^X9m$
z%AOUeQ{%iPzvbKIYpfBskN&@N#Qe?5gIkM^C#<@@J*~9+<&0Irxf8R_X1&-YxYWWl
zMk(g<s>@SZ`14EO$XS;Q*_<m+o<1WhWfRjBjkEHB+zllRSN3&tF|qcGyG{GH#-ZT<
z_KfX}@gB7+{&P4^Tv{V^Q@TZML($fNj#;--w>ci3eAX%3LvjDB>cojDE$c!Y#1C}j
z`!*Dswyk@Ua+_1I^oh}dxvO}rW5lnsJgE@7tai%g<)25NZiQ@?%{bq+tv~u!KU>D^
zyp8tFJ&(lV@*Ph6=e5~y#e4rJ*VBL%T&`?27cPX>IhQ~2tKybuGJZYT@UX4hyQe*W
zyBgOnnm%9XPS@&0U9PpO&jhYwv|D9)D#KZBMoMuMyKQ{bQ`I-kjh(@@U2jwp;*9r5
zYlf`$vRZV%pW~F(^Rs%!s<n6L_$58^s4(J7{Na{=HD@Pdr=W;X0#}y$zC4N0D_i+{
z<!3L;klV?0^5NJ2tD88Ka_@&9xuB80<j|v=i~m?|c1_3+5dV35zg1>KkDKeH32Z-v
zHoTYj+flqLIr@o|w)ol=zD^oON^*iC{S_a&69U-}a^Jb9Hihlz%pW&*Y&H(8{x;{)
zWs4})-O-5`Z5Wmm{BC<3cPQv=V{!FKfs=<f@x}4($&!57t$e3-RcM}E)GQ5d#*D=)
zc00ZHV&C)j*^FQ|gOdq<@eiV!YgjK7rukm|#<VH_%eDX4&6XuT`>cAJCt?Suj8d~o
zb#-eS%Q3cZia{$^sxhT^{(q+X`?Hf-<?$J-l3IS%e-nLq`PJ3R`FCzbdF=YLm%U@N
z^?g-k3k}nU-D{t3uz40x`l{D^NAc;0(tK+;|1Eq}Z9ZvvH}7+%W$X9V3RJ}3zqVXX
zO=|JOg-?B+t7WrlD0MnrReY(!>8ruF_lM_#LmOt4es!&U#MZUVUV61c+*DEd+S*md
zPX5X(++Kfqd;ekhR4!4wv~4L&%I_~oFeYpG%yG-eZqRT)@x5BF$jR1ndd|%m=hjxq
zAC#*-QS>P8^^@g-Y;g%jjOx~lTchJPP1<ngs{fvCd;T0*9u{ySscA|1)7Ofp6q2Uq
zgnr&GwjjM)drG>4Q||fA3nqPf{9@ldv#MKVFN3DkpU?Nd{k+3|{iEkQ536y#G~mq7
zd9&nVK<)jSr~_IrQ_c9#aEbiepP!$d<0<yZiM5n<N9c`DdtTiNEkCe&f9rc`_DNaW
z_*F}k(#(z-Ph(i2&&Ltrs&Dnb>DX$QH*r>zPp)D7;U>Sylt=Wzs-o`?5?;-F`g5C0
zOB$n)R_}JJ$rGZLGGAMSTj%?kxIK~G@MNW!((KK<t}3xjZPU--{eSq)v4RWFZ|#;{
zvvI@n;*PDxvyVtHTou<%FZ?EMu}+lbzwYVe`>vsyH7_#x=5ZQI75YUtK74Vmbh=w^
zW#FmbpRKOt|7-trN!S0}omUPi-8^&8{VHFuVsG4RrCIq|o77v2zlJ*OneOsC?zlno
z*N)7zq-pG0N3>h2AKgh>75u}w)-`8MX3A0SJ@RV}^?&-#e3<b1Y?5j1<>I!>64$#|
zZ&T%UyDz@LZCPQ>gd#5gwUaj7mFJ)9*0*t6(0;x3LDzhKyxH?nhN1WCN=?r!iB(%S
zoxZgwzgt1#p004P@`JNMzLUkbo%rghl#^_{)^%aETF}q-$?dhJ8``dCxt>?NaemWc
zAp?ewhbN2Hl}&P(`{H=!!>lH?zQDlf9GPd!<5_(-&pD6~`L}DQ-^Im$n5IeeTsEz=
zU_36-edts}Btrzp4A&+Pm*dBpCNcZm_;bmwl*`R0{+H)$<@X=?kMtkbIrCqwEmvqy
zwt%I<l_ie16qB0kuIuez|7cf_>IXU1JQdCzE@FO(Q>+d6Qh63-h{w!&{GPpGdWBi8
zoYj<gwYvrDExyk5n6h@ZQ0T`vhZ%wUh1Oj5jq<K~Au1#u;j@g{@y_q+$*Nj=gkB}q
ztUl1)9ncuw(Vm%DvO-}m58r;zhxs2qGtB?`=d(&|%jvgS@6~S?z58<A%r(V_*}46V
z)$JQ;9h<d%mIU~*A3nOKuUo`7m{I-YijJ(;Z!db3EnM4kwY~nCv)KEfnB%7pFMXPO
z^7DpH!`&CYRWG+;lQ;1cR?(Lzt$p-vj^T1$PeZRq<x{eot8Cp1m(D%k#9eP18NR;o
zkk1N^#uWy_FHU_pTRp>evWJWd8-K|r>7d!s$HiVOSiB<tLf>JJr#Ab3b?+3v9{DHb
zb=)4l(1Wv%+eD~TbGj(MQF&uj8YU219=@&b?6V^dzg{)${C!l>y7Xt}g|(s`D?|14
zYJB>hT-otOtIEqxs!qFP^U?giUo4vQ`;RSuq2ku5z*qKeLK{n$2=fV>DrK&@{1=Nu
zLSs5>`Q#$*MBQ9jyX4_hgP!#btCwDsU{K}u{mOi2SCdxwo?i>zEt32EDzuTwV0(Q^
z@Wlcahvf=e%>GGsu`sR-+NIo><z#+yz0?I8pXS!5lS@}$W2?AUWmuKf;<}*r(889;
zC&Api*BBX<#awz6ciwJg;I0Z$HLIpKGFy+kncS^pj(&8WZR+zU5e*WjrFg!oe`B<M
znjksZagxwV{d6Hw{fV`LYztTGytACn-Xxz_x%l!I;bUs|ey!_r=6bT={T^wR>Awx^
zmmbZ|<PzG=$)fWA@T9qS!`?lK{~Gt#_uth8>^CO-=wb9$6Wjf8dfw;B0k@VVi{J2_
z9?F>ZVefqL?ZGP#E_Js_?Yw&7=0~HOZ8KKY?4Qy7rJGlBf1=rp8z&u%vwIZo>j$&y
zUK8`4v2?~qyQR7F1W#T6JTYjm9>evEI=?iRa5@V)m#y6>UHgPh=5FwuKqj$ya@vZg
zJZ>E6IB3d|;dfC+r%uBr<G0z*$R$-88}@EyT5<cVNK&=-{MIPmy#}AlF7)nJ;}@Uo
zxU{eHzG~4?y?N`SLdqPs9X@kw?eUHMm!_`yrT0|a)M}bogNVkF)Wtbh64aIU+m(D@
z_3c<CvzcT2nOdjY?G|Z^{}n4OjB`v|vu=Hsm$v@P&u4dg7~j)lzv-T`kA-1hu63QH
zu+?<mlR|CIjLN6BHd{(4FlMfrJ4;84&21}FrH9h|KLrM|at0qZ{c0B$;8D|=ak?xv
z!_}Sj+DXTK5sS_oDwnd@bwTvme3^txubkdDu`T{^CyaA}x7_rjts?Dp5!Y-2CKYo8
zzS+N&oy)?cX;S8yqlvr1pDXWDdhv*1CaWp`E(-&dy>pJNmlr9C^y}gNzvIc|tL2iZ
z?8Y}OKiO=U&ugbP?d|c`35Mm(OJB_@xg|eI?a-WeaT6DnF-zQ1?Ok+AlsC`p<~H9o
zTNrw;O*{C*Z~-Tej9X%kKf55~4ZGsZLv87kBx7S`b2g*~Nkv>T*!V1I>kHpm2GN&|
znz#0;N!*AGkC<s&ap|?xTAx=ZW{Cb-cu;fC<E^i@oZvRKktp4teQzmuw~0|#+~TQ?
zhcDHhWu7fjuXxz%+}piTPw#FQ$Wad4x#ikE0UxV&bCvs3nWZa_JGTEUN(z%Vjwrgc
zD?-AkP+I=s&AeTPGt*2?Fp3_Rx^-QrzqC%ileO+#*~uFrYsC1EmZ#pBo8PeEr|SBq
zw+jV*m)#e6ANEd#F=$hycp7KzSJOnE*&RWDmQCztSNZ(^VuYVULR?L6DdQ%8ryXjX
zn!lvZEU7Dgr5O<By8lUtuUq%UQ=C_pXj;$t-#5u<50}Tr^|RzBxo;EIwOO-v>x3$%
z=_^BRCHg0?I=`yPY^mK;d+#$dxBBQ!f0q4s-BX^Dlkuu&++VLU+_!(x=BJN;MxBnn
z%`iVduXn3-&dNC1g!uYTU#<0YGiJ@oZRBh7RWaK6TV}GQWA7&|f44AI%YtO4rz=dP
z&kMQ!-jZv!R!YUpQ~VigZ)PZq*SXU#d>$#EoA<-XbB_3eCG4l;&#^M@6BGG;xH`XQ
zXIV$r-rms5wi&FvO!Y7Ru(k@!`eOHZ0?#z&6P)w19@Xm<^wi(;y}xHd?}D!l=V!^N
z{w{A^m?2T}L3n$NT=tvW2anFM{>s=<;aFAeS-JJF4PR<edq$hc#y?Syu0IZ8nWS%c
zsp{slGg5nVI(r_=s(fE^+V_!wj(kk+MNz)4poMlX7cePZTz4yeZl%zUGr|u96M1gP
zWqn`yBRF?n(L;mjhcCqRebSutWK*Oq-wVUPhIR!XzimonDcb&SQsM*FO{#}qOyN;>
z=?O_N>S6k=e!RbRw(8-8SsvZ;-%s0}bqGxPn`9BZPU=Vf3Px4VEiBxE3wLPpN!>Jh
zzMid7&hv}(_Y=tsPB*9j75sMb6sMBXqUE<=9%CzKVm{uGw9fC<&o#ErK?~yhUKvlX
zHGAPKqvTt1DLi1h%<Pjw!pD1pzioKZxZ$lA`@AJ@-aZyS)?9es>a67H6Q$ux4pkT4
z5-VKOU?(d4=lnbgwpBjDaRpr899}plF3KpG^kgFU>qUY8KeMiRXLIYWn%m06l@H%K
zonNHmcPnGXxl7+YEq>{Fd{OFov-|zilDVB8SKg_8Y80RUJVepd(1!iHQ<-;+Aj9G5
zw<1rzJpZ=XtJXU$UisOPrRSzgnIHcbQQ>jC>&VJx<+g`UZ6BLUp5Hq0%eU8|PYrBm
zY5nY9Vllt`=cl7Ox^k5j+NA<tC2vX`pQ3!Pb>hpThjxAadEesRgELQxt2fzhIz7X9
z+mt;1_LI8<)$g8P=+V)<e$|Z!TlcMbbjd4QBK$+EX?DkLrre5!$^RR&?^YkpZftzI
zF6xm+-d*>sw$#?8647y@>%zQ__%2&fby;Yw|L*s5>K7|!Cao*^^=4OTr^q|+NQT*W
zE+>T@weOB}yb>5MJ&$SH94C!4ynAFg1*VGDWUx90efv^eQ}XrHv2&bk)`^Xee)H~=
zc9`t+U$29=zqM%n$E(>Ks*TA<OC+x>NVrq6h2x>GW5mQ=eGRTpk{x*dKAPd%T(|A0
zW>2z><<Wq3reBmcEoI!v{`%+bKY{a?%;aNy@Iq4T$idg)U;Hv^Y|^|Ayx>(kw!wVc
z_ag_pMO9>$AIuigeW4y6ed0}6;Zp^-b2F2Z6<jvwDkR<a&wR0Ws<pL`_0xyEab-%K
zU2k;_Zuwr&)TzFbl>1_qTHyT(?@uc^T+O28PBNMHO9xw;<yn3!d=y&|xzSXUK_$)T
z;n{r}sh85z?)^S+;>C(5;wkT{ECQ^863*)xAJm%>!m+`}(wtFdjr*L5E0zYBm}ztr
z`AG3g+q^6+eCH6Z^Jz+%Qb&i@=?#3}_Np12GGJBDSy>(TT<`RQJ&mCqb|*60uK4LD
zCrnLCNYC1{t!|CUC&|YGH?6OKU3GI=+lIjD*S<ckf3$<?SuCI4<%pp7*5}W%{Sk7~
z)2z8+&AQ}X@wBE}+!1#@*lvX9D;n{ZH5o5^Gyl@JE2eMWH@vp;uhzQY{GnLlYs#Z5
zJ>KijPWtgpLVfG}6HoXYJuXBjSpDF-)#IwO$*`bg&eIdegt$*X4>X#pb-3Qy=Ck!9
z)`@yWtt=j^d_BBQu0Qwv%%!CauIJldNN>&kyVjz9!owS$trh>%3fJr8N4{Q|Yp!oT
z@9}h&7oLuvCUkl?UOHxDx9x4!g;PbFMcB{oICO=#^upy*HL1BfsxHmo>EWCE)a$_8
z)wc@8p5||eFy(e$E2?ggP<}&$H`@P)((-lr**hOk-<83e{4alM3TJw1#lgjHpFW4a
znx#7R#oQk&4;--DVtPl-{-Hs4S;oJ%1If34ZSX94laTwC<+qI0V~^`u`}Q+V+!rk$
z=Xb3uImZ0twT)&O_a3b8sj*k9TPitW)~Y9QM`qYQ{By;8!juK+#gFxm%9w4_FMsjX
zao_Lr=I5&Kn!Ud+$vw;AsY&#s>U%%<+c<vw4r$r=?e-COr=*2Xq^{^hvuc_#SFS6)
zEx>i#bDCOe$fnv(lbS!J6JM^GFPHs&b^fQy(v#-xPpo6=AM;ebchu14y}iv%m0LUU
zx<aS2d@x(!1g+WiQu3#tbbp_}r`x!bfrIPG>8VYr$GjU;^%g9T{kuE2=<oGZ!<{$p
zH9m=U^O>i%*X^Tpy{fb!Ur5uXA9|%N*97}T@9S>sZmsSWc=Bksunu32=(j&Q*Y7R1
z78RaxgY)o;(>a~Lew=>Ql&b9$Y4u>)Y7w7r%GZ^T+ikw)laa3)?egc{(}nsTk+SQh
zD&}8iyL-Ht^B3QZ$4Lz`TkNZCy2OmLV)9=0t!h4_Cc)a_R}~fI&b2(^z>QK9+2@)Y
z-@jkOCp&rCwL=>{K4q?Y5phHJuFUeTyL!DgcS>TDdFO9^r8#MD!40`t{1LG?oI<$;
zs_GxTN-UiA^GLb&fo-bqHJ^+4+&zA|=G6?L47Ihlb_q#F_)kb(_4?XzaYIuL*{@5k
z95`%#?Lc12^2;%dm7*1ChhLeV5$9@L#8~7U{5tr-f{SO0oVU51nt5gJ2li`BcVxJf
zHq8ikVmVyydA049!--Zt(>;3boKu`^UNdbqZ%++PF!gZG|G^gD;3;yui81>3trb!0
zSEkH(BNZgDAdh`P;pCwC%Sz83n|Fl6b(VR}v^x&lb_g?zo+t{?p5|(ql^0*P%Wngp
zumo>WPI9`Ms<d<VNj;A3nnilA&D!)9^~dqgUT7j0s-#x^W6qjq*<}xZNvZx}TXx94
zAit1TOQ9!T$-8?Id-55zH*Xdmi+VW8TRi_pi`~P`J_S!~+0S{aCCzwJTGH1yC(JVY
z=gCd~=1uQa%U<@)^yhY^*Y079Zt<A<2&%`jz59~VKi_~mBya0hxpR!%PyVqT_$`rr
zV(vrpPuqLhgxywuw0!>LP4cCs(XZrsYo{BfJl*l*>qg&K5vD19p9&40#xk~i;&jNI
z+q3iVA<ch#cdkjBTpfMn{hA(0HT5j*byc&Pu5||&&y<xte8YAT_s`=!%$eq&q~qDD
zzDxa-{TbNz$y$x;<w>>=)jmqAD(4F7#VGGM9eV7hfqj6}>K7tuyK|1-V(WdN=o6HE
z;@x?B#&2yKo=NRwFjDNA@cfO^#yf_mSYK6WmR9}<%eE3c`#a(C={Xa=BwMDa7Ma@p
z`4$-Aqmn;o-7DcvtM$1yE$){uPB?cWhNm{={7<iB?f;>54actDJI?H}i(y(>2Ot0M
ziU3{P(CS<31fy*N-cBu!Ul(s9azM`Cx3OPs`HFBaUx}Ztc1)RX*IiO(`SJYNsm&&v
zOxVsWKdYkhb;+~Vr~Aa0o=YhUIx)dpI6Lf@N=MwcW82qGem3n%w!5wKvdz9{^Xy#i
zEL|k*yR*uN)l+}*o;_##x4)iYF0}i~sz-YLQ@*xOcE6Bc6{f0xjH9z(@}=s*^{L9o
z=I^WZ?cWxD*snHWU6f29SBdSHo7beHpFiI5{mI7Zu8gx*zuCOvNOO&Wv0HG?g##(=
zmm-$z=UP2wV-3UGClUwd&ku6<@NS-@9JE~NHN#5&OsCu5K7ZempgND!e0|^QgO670
z<OJN06`%RjVcYNNY)*G;bq=V0x!Q2y_n+MCWdhdMR=o@|7h1n9y7Hmrlh}m3m3&9z
z)!**bWOA1XiqT14E}MC&^{GXKP3F_U?|ik77}~C6t=EWs&ge1UqDgJmr!6a0mHYO4
zn=i`#b&y*$Ug2$NR_Jk$yN!1x-p(_vy4aEY({lflmTN!$zWk+<a@nhU(}PR#>PgRf
z&ZLFLr?MqJeP1eg?9f7v6&r3;$;Jk7$xeL~7j|X!<To`8(;uA<KFQ^$7LspRbKB+5
z={Jie9q*W}^XliNJ?H#C?N~a0#T&yD`Ze)xUUip4F8OA!tkJr1V$yd{$-5~wepY$<
zmd^KI9;>WP%Cxx}EM52iSKq;lR+kbVtT76>ls;p5nUQeP>^&a7K`GCx&lm<jb=U39
z?0j~xZ`q<JoCUisF_tB8rZ~?jH1HKoX4~<-z;^kzpFg+At&%R*|6BdF_U1B?<ChIz
z|L&B??*6+dH+nNW*QSzU_Rv>PuP45&&$`!r)^XnABPutWYR_i8xsY+?!HO4FK}Cx@
zmo?7b5qi$}R&w@@&-c~c8R9jalAE_qWPKc1mYf=C`EF0~+v8Oqw14fG{4(ap%8e6N
zez(_nD}MENTgBfP?F~<_FidJ=4=lDfUf{Vk$V!_#)n%Q}jH(~`-o|_HExmN{;frMX
z8l&UKyL)1jo@rz&U(CL@-Nal>BCb-H`GV0>vt$`7w^=L!eH(%{eY|3=Dc;k3E99BD
z{15phQk{|!p7NrTZ6?QED7lol<8#c~X9j0y_*+!z#XY(&dv{yzyj5=_C!fd)V!d8^
z>{MFEjDV!e&up!xuw|^5TQKpYuM+Rha|h#&#R?ycs=C7_FC-XsW^v=Z&!0D&U6g&j
zTx@H|hBLDbrpZaPsO_GYdvx)q?v9BTg*OeO6764R@jt#)5O-_F_RjVf9L5FZODu#n
zeowyOy8Vvtv3w?j+?LYpS2vS3GTvIX()+o`#oXTtIV{2YKI;rm-pFHLsy%z&iom+)
z7g06dl8R=(HkyhW_o;mi3tIJg!bMSsS1re7eIHts7<J~Fb?^K8{_IJ|#;=!y9JU;t
zeARxkpYMmILRZTdtBMq6_{#YyZSg#zDBPOVQ1fYee1Bi+*;|{|9CW<-p^9l&$cOtA
zBpP*ZPS{&6q|9^U^R;;AIo}PF*pto}&iidp)-`3qhuO2<2<d-qXYl-Xxzs2$dI9Hq
zwMUiV>nH!UV!66=B7a(?zc6P}oqFXeLu<>#N$=fDCBqZutzK#ny?EKNy=!Jh=D%7$
zXW?>_3qh|u^Be0PElhGtys_Z!tm3avR#{$In4;y^eV-|)?oa>iGfED36tCDUSa0}>
zzb84wQ)AP@Cw9xG6#SXPYxP`#ancb{ZDw!#RF9}4W0`K<gEjM+Ex%9NXgPObs^~Kl
z-yG2sx*R)yd`l7GSgEmRTW5iO&_2O3?P~9D44-9dIi5^hZn{<P5_7;5AK534j?IaF
z2OYc*X8o+l+@qGh^Wh{;>yxL0R6?h4{OJ|x+Y;XLA@SvFg+}u|ho`IUZT>l1p>_Gm
zci)8$d|lc5WbT3uS<7R7Z=L#Eit~uz`%gY+52!F2#eIytZTH&zXJ6&(UpjZhm|q23
zc{5*sET<}#n!l=tRY3ml)-`5XnTOw;G?|}Lo;kfatY!D6+i4tv-f_3wXD--tsoAC6
zGy2m8{pb6t4~9fcv+e9#9~HLsXpv!s*2?vr3`aKp|J%3zwaqTx+Y8Hk%<Hl$Jtt&+
zn4GJ!`RR(p?C;!GUOy*)NqXdLwfXNXwZawWPFAWPl=!+y-&!&I*sR1o%3lp;xz)aJ
zRuxab?)v>k47Zk^*9EuMi;oy;m+#OzWa%P#SzhCSg$L&>v$l>W)fFm#OlBS1QmB8S
z^IGa5SHa5>dNxm9e^=kSJMC6W-?{v6an~fTe0`H_6tygLS<3IlER50<f7EtfQOj4b
z46W%45ZBDQmu0i#Ow>BgYmT!%-|$+tpmP2tr)a6)*OX124(r(MPCDStZ=5`5Ug7;S
z5A6k?8nQJ@K8oTw$A8HE1#97+2Kh~kKlskgf2w-=a&7kwok^G5dqVzp3Uz!E<ldX=
z?mjueD_bdfTMXB(B=gm*o70(VJbd^vYZ_LktT#+rdZ?(%>$%1~+xzO$S}R-6JUehh
z?<H3v+x2tD`uf)0;4|;Dp1Xa~``x#`?sYDE*ySE^t26d{kLu#zyXUjHU+`O(ah)Mk
zi_=O!uiHN-`Q?nv=X)g2?DN>*6u<DFp|szR++CMt)_hpG=P2)m$!}gvO?OtX^hr6g
zcMtRQXE%PRHm@>aDQD@dv$)#4uuAWE^R(6{^0%1g*`A%%$N#$M$a`VSxw;j4S=X%N
z40XO-espl=&j^Lhb{3DU<;!i-PWxSOtiCCuKKb_Uus>|ltSi?spKKMq+@iIiRC-Tw
z<lVQ^UkC@X?OrPX>&*%2U3L%34_p#lE&p<x-1;TKnn!f|H=nv<#@eeKH|xm_!JpTU
zRzLnJvX+_o-mj7?9n44GdfiAqoT$9+W@(&_!LDtRtDL)=R3v`(YA$4OpDU*8QZz;V
zR>qUe-@n)BA8NF_5fIrq<9Nd)3E|hOW`CxA`sNh-ac!=j?Y@F8^&3B~W`AnhBwu^D
z=Y~?<<z)+e8m|N#RV~RgX)Z7d@-s23yl(25A^gPQ-X)%yvrc8Hzs#8a&vJ)!@X6=4
zw@*Fn6Q5M;{X1upgOhOOk;dXs#i-7>k8Y=KeD6K`M&I^T<jzZm2}@_((RWU8XEe#!
zD7baP7o&^pYo2IaTq)-Eu4+%Hpog@iDVs_~d&<_L<1;>ZOxyN&y`)FgC8n8wau(-m
zp4nO!(6KT@&m!wtSd;B?mi>l)?)6U756|Vvv3<6B%Ar};O)q(PJdiy9>ABHVy@0a4
zhi>{NBsji!J?Hns65Bt!vtJ%P?kS}zW4X@jU$Q`WMx~dWVQcV3+1&!O-lZ05J?5FL
zduQdPBUUpEyn`0rOw!pSb&-EvvVgt$s#%eyHk&`}`^kN}IwzfF?~kvKzb_9v=sLIV
zfxF-qpM5sY#Y-zgj;7}=)>k!SF|7Xh>`u)r7Vi^#r%16cPrCf!&oeHY(o-#OpPZcX
z^1L07(-GOQ)85@vt+rGwV832|Y}us$c2f*Wt)As=>0KMydow!bY0ov;{#$GjQ{5Oh
zntR#aDlJLlds7fn=yj=iTbqR5;}cc051w1~smnk4)r13&%Qku@gd{l~oz=nb!1Q?e
z*TBg1i;vuOWwvv@JvFcHV?yxv&AS$RySdL7<8%`Uy&uiH@O8nVQm=)7d?YJ$pL$K3
zVqLUD<e=UEJJ;I(=-i1rSKCpj<s067L;SnxdcHp`SJS#(`+|76)c9Q6ZeL$>%TZl;
znwZw{s2TYya&}*?>(%|TZe#ZCPxpS_sNEpaI3qzVNz!}8oSuyx%*S2xqYHi(U49kN
zvwlXP5KpR7B=58XPus)gHVf&L-@mZy>Ep{0Vkh@JH|3eHR5^pi?Ztxhjv4*)cU4}k
zdK`bH^7!)m8!ET@drdiavG~9*tu)RR{*|*7Y>&7;lJ4<YzEo48QSa!ldAa$QyW(zs
zE8EPX8K-qb|J8(-Ts>3SQ@N#5?>$ufmjCt9x7X|4uXO$Pe{?rxU-WGuiAtAMbIK$x
zt-kd7pKx1A>Kog-8-{c5?mKAPUH$GY%fc($_L#&J-&|cOy_QLZvGwfyzbZx7jvo`^
zESo4g?RndjTNa%D9Tq-8-XW8hXz8cSFmIb6vHWVEk-^f4PqUv~dSABW{|7azir1@>
zdHN#E|EsG_Wi`0=Yg+qS;o5S$@V}A2|6AJKb-mi%_2|u&;*fKX4j=hlr<T!nU+D5S
zl{rC^-^m6nH}DKMUTb3<F-K+ZpCgmX4a@%6Zm)QEP5Rv0u7jczJZjn^lQomFt~9?Y
z-*om-mDHrKE=5<R{{DG<!zFw6+uifqufFBsye9v?j`Np|<<)zu`B(bgI~jTN?M>m^
zED0A6ufMgTV)e62*Ba)ZF$<sjA&cu^`$qxk+>cwNEGMq)$ke$t>D8(*EyKtKtlzf(
z<uyOPk<ZPX$CNGnMD_oW>Uq2e4ESmm?Pgmr#d+n#O=}D0CQp6itvxL}>l0_%?Mmg;
zv)g8Kv0uOU<fCRg=aKnam+xD#^wRXxmU1tj<l4yf9t>u$6FK=a(BpF!)5OT%?~ZyZ
zTq|0*O#8qh+au+lt!)BNd+c7$Xco}r`?U2t$I0C*b+%=4Sm$YF-_%>Zz%Rk`?So~9
z&h@lwE~ynhzsEuMY<ovW)30-`a_?Twdei^wweW-O8@%rEGn6;^ajkq{lPby_5-=&s
zhh1}i_V!pU(fe=DC|qrOTQ0_`oP70l%5=LUGjEhf=`K!9_s9zVRc!H?(Rtwy_IGRa
z)6+xQ559=I?XslE@X4B@yji<~*U43co|rp7g(2Q3*z%<GYv0|Eyi3;XxKh*LzTt>*
z*ei|QTKh5;wB+g@?ACCNpWgg*c3jy_#o32sAFY;My=zxOnU#G+koB8C3zj(Ed7&?7
z|LeE={reib?>(qr!1%Y9>1OxbG*^KetDii(x!Qex{m&Pd_3NuYKi)k*&gRz_e)C5c
zm)CdyfB*UZU$%cgKdsOE_vWH_{JjI+a-Co1{W-rm+<d<Mu_FJ~c|6;unS7ihKk;27
zf2G8g-VGn;A78H&edx)S^XDp7=6z_;zVLqK9wmv2<7Z>nh>319IoSG>Wo6PYg|M&$
z{{876r(a$1+SKfo@QHv8Y!xhtKG#21v}n7XDU5aL`mR%FYB$0CQM~MnnKP7DOjI|R
z*7}wAhQmYIe<qw$r@C+0b><=C$%vq~-fJ7(Uxfc~6y5!2&TEZ;r`G&g$9NYPFwQPm
z^o;j~%(CK&DE7_?!sods82L-9|K9a)r>;X~e{sqbi3x{aY?2F4`26<UqHiVtwnYWk
zJ5N}X-NJNxYTosIYxm#cI#M2;S+n0eZEA&@$nTeChpl63miBHuxscN*`Q<`s3n%HD
zo6o%Gtn7CB`ykl9#-<{0*1PjhmCp<BP853P|5fR)@xMdDUQ#bz^S*mb)G0jrL#E8t
z;CS<r`JU33|INxgfBe|Kz;~axzfJtk#X6hsi;|+xr_F2Qq*^a*Oj~zm_1XVtdY+pu
zt?JQETBdj4;wPS;=b{fC^$-{0T@m$k%8#21cE;Er=IDs26Pmw=`P8R`r0HCnKmF=^
zy#4g8X%ilwD_h(9_;_&6g_Vm!lfy)Kf@d9>a;jljVePC7muAP+92Hf%a_Qe6vm!>O
zU*A6zMcB@aj^@r@aYr=6Y~s8Z2C?~0IajON<Am2Qx)`=j&q8Fvai?M@nUF5E(rgCX
zQxf(kgCZ@<UdJzqYjO)ZmGNmq?pxuuDr+t#+Z`(;iXN)U*Qtiul?a&${om(vXf0<!
zq_R_Q=%wuK-*O$^_V(_q?qrJyeJsf$`&TgPvB%?5vG6Xf*7t?Qt-X64x^_GYxuf^|
zVTZ#p2Kxo~jwl_sm{+e^{%q~L7tiu~kDGYh>=Mzndn4m0H^Xf90(P_d0LCkPK4NRW
zeE96pU*{oO`5;s66Wdv}^}?TCu$c#~?LQHFH|5Mn@r}O>8lp6K9>2J|_0EU$ZNGm_
zKeU}ubmq2MRr#i+*#`gR{XU*pYN~K-hx6}y%amI`&tmf2u6p%_+Ex44leF?YP3Os`
z?p6&gv2$8lWEZV%X#Bl!a%;8nq0_?u`WenNPkwW4iPeo+i$2EBmXCg`o4zIcn$$0r
z*WQi1$LbH{EfwAGY*v)D@2Bx9KeOufO41W|T~X?GN!|A^+d#KjyIS36<B3K8#l4Fb
zh1ai+k+NHReMe#P-qo>{dUr3q@p^tkQ=#Saxlc2swzi2yIQoWOwe#s0%rlU7SSEbo
z?z<fS?fUy3GF(zW>{qgx{fj&Q<d>3JbLw7n_Rg%Ev2v<Ot>*+r$%m7LXWT!OVUwr5
z`VpU0&P7G`REw!s7Mm)IujQX2ak1L^#?33tNqg?HueJH^X%qU0>ziL|htSsrS#I~=
zG>3-g+GQl={yXq-^|w7+%(wK_Gw<?!_lWs@NN`bqy_x%u^?Ns7WUboDJ5ToYtvNTY
zPnauJu;eJu#P6DsHM}+v74!bh*~6uCa+xLv(<;uB+Zb~N?W3gaubP+gAGO#T?VI1@
zwR+L)KM4x|+1U8Da+GB4yx_cP{r#&~Gu`~EbBzTrwk`-cW0=ljJlEZ7am2xQ6ZZ38
z%4^7}w|cmGvh%t-*VF#}6G^C@Yo=-Ms?T5){Ni^+b%U&no{;02u3Kg5e&UW^?A7bP
zTmPBo_$|d{?*lLYWEPbJ!4ALTmo$rR>?&@5U2s75c4mZ{$({Pi)6`gG)hz0FU$jrF
z7T$O8MLXw`dk)Y3)c7ZP+DXMJ->y+VXn)Mzx45O=X5(SEMhm4|ZH@o_>Mi5_n{h4J
zX1{;A5LapHmPs;4nVPet=P*7w7H{Y`eVby2YuAi_)(bZrdb&5{&=+4--ENP#<!9V<
zyegzDgP&E*`Xq68(KS`I1#1^1SI)TP!gGAdn+xB<pZb~~>#(;veuD4Xfezb#(~e&U
z!lMqqaXxW3YD&D&Mz!bB>veB;%s!%|W3z5TP~+Sbq1-Ifl&eA}efcpfdivNd+_(P~
z9vGJ<m5RPH+5)uX8MHLo(9p!x1hzKX(A-D?{a8Iib7Nu-);nAKdVR|A!ugE#w*?rP
zSPcKXJrrN0e#6@4@4ICQ64P|NO?0A#%moFE<-a+;?W@?iTWRN%CoDg22VXtE%I>Oh
z@pNxRgPgeY^W5jJE5EvaRek+t*{f&U{s;g6{b#ki{C}%Ed;UDTSoYcY$NlO3b^kq{
za_7COpI2Y{`LTM%#QmPfpKRT3?qBzN#htZzbGY4~<~J1|m&l)2^Yz93yt5Da{>@)9
z<#)XQzn2&1-sXubTz=PZ<&?a6dm6IuP02P(&#$lEvH6_L;==9s<-T0p`Q+-`)rZS`
z(mv1L^_S_N?TW=$1^<V*zn}YQ`+eChR;zrYf35gkUNPHG)9urm;GIg#Qu5*tA6{e2
zR&gWvSN8t5tm}@+H{V~o?2q-jV@nr%zWTPhx#|0@k1Hfj*gn?Z^lCkS`M-?Cp)bEZ
z{`jk^(R|~YBN}Uet!L9)vAr@sKmJ?zU(T?kKNnrgf7itPT9$8T!@aHMcFbR){jR6u
zP5(*mJ1P5cn)%<CbF~`p#C}s`^AB%#33He~TmAo^7boj~Z;y6rzTVum+{xf=(-!%U
z-)0}4dvO0Jd+Gc>X`SaS``PMy9C)49<$t`cTYSd0QetP4&Dz-4B0oRg{lVunaeMN^
zC)b1bo>i@_R_ggAG+naq)=yLQnG5=_RsSenrX}=X@kedN-zyFLOgf7W*aqA_QnAG=
zILlu4%D(-_TdTO|uWGDv*p<+$D)LwA`s5Gkht{wE?H6KXwRfhQ=ceuTHg{eobNz_T
zXAgY;R6l*mtR)7gHFtjFuzp)O{n6XWhwqks(X3qXTBUG<fotUxla&5|UL)qm47)2M
zY^Fv;^swbl%h5XWa(&kK`;TK^zBuz%z92I3c2c-^tKWHkscUPU8sZ<`swmN%IJZ{u
z<f*sskK65&K0oVgyF<<HT=xK<DVfK%{!LDgjL{5v`{rW)th(JETb5U3p1JfnX40*_
zUkqg{q~5fCTBNHHmS7*aanYPid1G~fS@Sry_y4~4*5&HWkBO^nc&_XS%{IOFZ9!g~
z#w-2$b>F-dl~WiQud~h2__dVj-IhuE3R%yNp5aZOXHeoHd@CoM`=oaN@^g<qJggSm
zo}v4YsrN|fm9|5(Ol*Rh-~I4Tu)eW~<;s7~iD&CAA`D)b&A1&uMLk14&wl^g+dg@_
z58H3O&r{8?@%Z;0ou^WH?dN${Ow74By&}_!&0z2T2L7T#?u&1Jm`Q70d@#|yw(iBI
z&k{d{cvxlx9^!PdxZhPD<R+2T`X}PdYQDHQp1SRPA53b0>%^}tahe>r^{~zf=edGG
zr9q2NUP(}!oUZoj^ZNCdPu>v_@KoE>`pv!agWw8TRjbAfrkg?mlf5J!7}|-;xIAAG
zAUylGU(KyrvknJy-t20%Q+%H_PHdCr)sbAW{`0PXCn6L6STD}MnNjxCFZ_Y;_uaWH
zD}|qYRgN^f$j_Q9A$mJ?8}pM-&$hCiEqQ0jc7o@p+m`zYlNU2~bN~LC{KVt^oTNRz
zJR5Ut_aD5v_$=R-o%t_>9x#2FXO<>g9_J>wb>n39R~i%d$3J>}=AwS>RUt=~cYLPv
ze|-t6I;hiRlVbQlMq;bU2De7#Wrwdm+OeE%4`b4nBU@B=6+}DS-L)m_?a}FXHtuD0
zJ$ZyZM=C_8_Vtgbo3RhHZsjaEYF@5p<+OJ9<<7R6d9zBAs-I-uab41H<#qVI>t3e*
z3%zdQkHxhnZ+^)9-oJT!Fwd0c<%=H{|H@dj@6x@n=|<5~5gK3p=k<0!-QiMqEBoVh
z@zg}=8B^^Ax~mtxX$p_|()F+4!n2H~hrgrk6%TIOFSE&u<>Oh$M*9u9cXI1uZB^Hc
z^<4<iIOF<0@4CS4>5s2JirKN{?V6{V3yoH<{W$AYNF@8EAB`1<AD>FR+xX_epJwLG
z{0bL~`nK9jKUuoa>t{;1?(1o?5s&-=&wEa@`lMdE_8ou16|*f0z7h$SzwAhmj^6pz
zbk)blmzx=XbIty`cvrr_t3S^K4qs$De&yTC(&^XIJu-J(@+~@hS^QYr72Wy_{iD~H
zfBfZ9cgBZRTx`GY=}+qHjs?>{`Z2|oq;b5yyzoqX*BATFRg=0G@d<Jy@3X&qk-hij
z4%K7pTHMQnj5jlMnk`ppJ@&@^Ntm1Z?8DPmJ4GiH6|jB@>YcXt>Zk8reiD)8=eTlD
z8d)3IrHQ?H&&M~1jX94`QQ_>bvutZ-X3u?Kx7&EOb+zv6)<|2$vn!TN+|Oyw8O8C}
z>CVN1I~5*(8K(q%QQ+G3WObL&MBCMgEu6CR$^^5cecpcaUM13Yea`)Tf#)37$FOf{
z>YVjrQ?{MY#xIU1EPMG|bqzgbd#^dKeqwRBfh*|nb$71oq8VA&-KIU-V!Sc9ZH9Ef
z<OKD%TZDdS$cnGzjtTZk2(P(qJ8!*8NuBz-C)$5Bie;ioC4N{oZt-GGo^^#~)_dpe
zx`&>z{oc1P;;h)DDZ+w}swZt!SW;IrBX!z@&L_>)WhHaJx?ANN>K<uXWm$AoNnxV?
zvFR)cNxvC$%x7(W(RWSaS>;8Z@X*x`&%(dH&W%!;6?dJx;qgq*v!{9MCa#hwkrOg!
z-G5O|caPVZd=9p+SGd&@J=L?BS=h^_-@e1TRb^FtX!@_*`3!<hw!3<*+D*1S{b`VW
zVDC-c!sBc<S2DTXr*bYi!SrXhjHAW#))JS1rC~{pGP5!dZF0X8xo=4kXQE5i-N{V+
zkqjFzCmGycS~>0TcAw67#XFZv9r!Uv`28Qt*1dAYk3!P?ZLB99J(;#I^J@Rnb4Rid
z7TyT|DsoyhCiJRtT{A<y`1VUrx%PPn8tRDq8}n>U+j`}I4VNk3JD$dx-=#;JjUR0f
z>AiaAjMTdL4eIYtJ07>6>NL@Cv$J-Fchujet3Q-CxO1K=Ha&Gldfu6zUyel1{g+^`
z{rc3i^o17;>`zw|$X~k}c(R7q?WU#G(X&}ckGx4cD5kQzE3-Xj4RdHx>9>WlQVO56
z3zIG|W%h63n0wg3(XjRB%|de{-3rUl=2cq{`X0H$D7^V)wb-uc0_JJ+q>srMuX?jL
zL*C)zl|3GJ4k-6*I`fU&%>QX;gx|Dv=cUd|J>wFVHd-oB%F^ol*)>#IDXQUW`mFVP
zPG66o68miPJxS)U#Y>~S7`2yAx2}zHO`CH2*8bD~x@Ig+ZJKLt`*eCUTa&lC{q+P3
zF%4y#+nUVU*FLzLq?hoo3<x^L{g3b8rG!$^Jn>nxcpDW@$&@;_+9>YXWB%YstA_Ro
z2cG@6y4#<|Zu-03?a5dDm+7g?4<1?Cmi=PF=A*{bWu6J>Hl?4Lx#`Qj*LvoxqUAF;
zo#fB(-pU<voQt`@{KX_u(Mze@GtB}e4s==wo<1X8G4}vp+coP3PC=QJ2)Vz!akCE0
zjAD<@<4(AG+4Sn`KPw_Xda!byi#RE}@kya#@t!*saU0zB=Vvbdv@JqCX!4!7M_#X|
zNF1E&vb*hyi>u0HmN_ENWj`d%I+Wd>IKM3B?H2Y4U)mznru^kBP=6@DdHGRCs}8y1
z4bN3eI=nXK-0qw?ZQHtM$E)rhQEl7lbxGus;I#z@OxcfrP(LCpe0rYs({0DH-vorr
z_>~elp<`bAsi(gDQnxo4M5n1uY)xx#jQlWhlj4O{%jVDPd}kN9bbWT~MV%bi>Q|@M
z`9I2)-PN{9;hhnW%j5!%^E=o}jef{S`OlPC^V#y>lFOpe*#{qnPQ3YXvP{og26c@@
zONq}X9RB_8e06izWurrGwOcYd7n)6vwUpImkN$Y2y|-Xv_vFjz%3dMo;v2ndS`_}A
zpDc1VEtetx*y(-!+w%-_m#d4+Vci~k{J`HmNyRp$@|_NSzgK_zcyO}((X1yryIf59
z_D^ifJ@WK**tZ_r)(d74d|fwoK5BCp7B{R~bmn@}zIkg+irl%vMO$@S4j(jHSQ}8a
zd1bJRnnDf(%gg=p4wfkl29=kXzTXHlIugM5!&5?0&2@EB_{lySb>Fzt5$tg*w;r&&
zwWY|@-63Dky;z%9!K<Qf%HIuI;nV*t@;Rw5C1Sj%|NPm7L84M^H!nDvMk-JKEvVPk
z%D18Pe?`ZR#*@C6)+!&FHS1_uu`H`)!l!!46M0oH?UwHixpMWV_`@h&-UpXeJ^a7U
zEDE})>uuLmtP|d(Zjt&;V2hYpb?2gKJ1bY2L`^<0YvojdMXcA-Uv;FuKf>^4X$FVi
zB8$&ER<?GSu&i1g{lIPy8{_pY4E_cINg;Osv|g}JeayQi*L}U^M-RoFk1kle`KhvC
zrn>CE9kaX&*soNSNY(f4+WB7YQU9vF951;n4l>zr>TyKuwGdnIWLNDA`&-TI>>}E8
zm*oB5am=Re=S}60r;SWyuWmcB*vP%+)M78sZPiW(o*#Cdb;R#5+sq3IyvKH){Gd30
z{>j3yt$!x2P;6g+Wbdmr+Z6gLH7B*4xPK?kv5`}^FEi?omF&coZYmiP_xN(`mACHv
zaOqXv?sHR@`|1`5vKTX+bB=lZwS&J^<<Fnbj@##&-Fc&TJW}M-Jp<2M0(&1AJl5*!
z&p66u<GQJ+q1rn}=a-Vj#BUO}7Ji6&Hi<pI-gwTsMe{x#t2HzGclX>A)}vkSqFY#B
z_1|=N+I@UR+{x_x0L6&D4iTdju~XUu8ojq~meQFr`R^CumA||flq$`SKX+lmtN%MX
z{`Xg$ZczENGG@8S>NoqcUY@t_tzllNcgbjz%a3nGm)CR%H^1)sTFm)zcB1}<;-8ZW
z?itjj+eC&vU2La)(DDBEmd>kFcG<K)G%xl!_1S?VDf>#L(Tz_%Sxdt<2tS!Aad$$z
z|M$K7vlL7Znma}@G(UOtyxKWZ+R%V|OXe2K?f<*@J#IzL7fx8vx-GPorToGHWtqhn
z)?~DV*|N9YowZ?w|C*zE4HlMRA#-le;m9paoff+%U*Mp9`)u8gyOB%mR-F~@|E~MP
zWcEwBdwg?p-m(cve_xn4&E#k9V_|=54VV5>M`4Tl*d?5^?K_wDOi|q~I6K<;?AjlZ
zGcJExy-(oY|I`w{sXU_h&KT@yC=%MZQ#|qFIwO+_JY{i7ief+8yXAB@&RP9K<@LM%
z`nfu}tZcvKCal~RrgOo4?l#?I)t=3gQolv+xU-&$VYWPIvtUAVMAVgqYE#=k{Y$zL
zeRp1ms0)W&P*la9&K(PnJU(k+EgvTL-ZpW0P*XQg_l6(00-XPSz5eU&bt#VU)7P2y
z>+CDz*1W)f>}a<B?i-Jrlg$s=OMSl(vi(Y{Qu;QFIE(xWpYXl=^D5TKX|fkKojbaC
zlH|enE2FNvm0w%PBznOsck>FV4XiWdXC6%1o$<<8bE9MN(e*2>FQ~o<GEBDNE{rov
zbbTmfY;~&VSi<@Z`~E&<%;~!<^UY~V-KK|IW^oHT-MBJmhsJC5THpO_tzB$-fvb&8
zcozN*?m3@uzxJO-%!8(Tg`W8#I-j}Ktu0sl-g0&N`2?oV?k$^dx77P3bUc)E+LCl3
z#Xe8+Qg@({up;*>d!9MFV_V)IPV&%lYGj}DC6#w!h+l2|TE$1pI@%5_J=XXle&@^E
zdYlX~YKMNDS8!6lvW+8tRput^r?G<n?cO-@X1&*#P~R)^;J%`n%O8Q60khvu|C@5m
z^+;{^R-I|gt>PMclAP=we9nDQYP??aUeT$p#MyfbWp@gy?GBva{;zpz*QOMO1G$^0
zD?NK3KY8Et71KBmMT<`C&-uW{K0mdGYfmXd^ogbKk1hS~`(SdcNS|kc+TxhLt8UH<
z%A0NfsaZ`CdyscSzc#sV--ZQjP8#{<x+ky6-tgtN;a;s5{{L@Cw89;;gJ)BxaP2ze
z_dM<9_MW*c&x>o4_Fl;p+anO(({fQYo^8>!B7?NYPiM~Q_%dt5iZ@1+Yv0Sg*6I_Q
zo&0|P<YKNFd>1#YFTC3j{$YC?+wD!O&+;a=y_#_~gqLqya>lfU6OVl1&X#x)x=+)*
zL$o;Wz^knr-Y@y>tFy#(X)UM1yI4NWnwc&ROe(Wxo}Rg0#`w8kl!<D~Ar*t^H@kkY
zt+kqWM`T~Z&seu*J{HP8o7~UFc9&`D?l|3hiTRSr_Cwnwox)2GOpev7P2D1z#<^te
zs;no)5$v&QE4r?I%JaG?>~Nw=PBQ7QQupsE8{GT5v{zl*Eu^hJ_pNW-E~l3C>{eZe
zlh?ScFFBtn*3J7Ql^t|z&Wsmt1Xgo6+rRBvw0KM2r_b4!7pG2t*RalLM`QM>hca9<
zf6Ct5J!|%z6AcqOI0Gb2b55_?`<Yo;Ol!}N7%g-AvP%mr&TDX#E_`+T@{|dlD;)IG
zPKr<a=fpKp)Z+7MgSUl;Vvl@tIIVE*`qzN(F^9Drujp8;-)o{_+_+-9*R1_}4a~FR
z`}Snr@~K{(xa#rW+x!MG_wMwxUAJI%oS(Uk@4=>39};izdvw~YR!kL}VSXuf-tqMh
zF4el-7M0m?=jiV`j&$B#yc^9nF?VcEyI^~>=fVHN9qSX88wylf?@RTceQDO@<EL4y
zC$s(Wli}Q|(yOWQg*~f?&%Nr#7SRArt}FF39~PRK?r?sX`c;?d`m((@9Q4#>>X%Kl
z44x5xVn>I=?(|D4Ca<pv`Cbue`WGM?#XMonf}EFc;@Vp~Hl{CRdHDbTjkgSI|8BTb
zXuPkvul7q%+Rr2W1|L?Roff&QqUSu{XIG9nDgL+8ZvI`fE~03|b+gOiM^9?mtu21T
zD_+07G5y3d@6xR&Cja@KTHsn#tSWY=bMe(`4_-~VD_K^3>k2ZjA1QKV?>@2WTW9#f
zIp=s=l&1W$zH(YY!0zItx9jHSuRB&QI@kT;#Dy}ILGAmJzTH^IqT(}k)zj*QwL0(j
zt9}iuJa;m4Mom-R9ABffvZiGskB;vCW3+YK&8A@Y62*Nt5*OXnuXs?cS==Tu_lg#u
zIj6Nx<n-G%lUQ}D@>k6|e(vgRk4Lo^s#15V@9Dnd>hDti#qXx;y+{9Y-%8ysn!p@>
z{7%}BkdEw3ZL_D%osTN39)wQaeTVtkokQjFll&gtR6SAD(Dd!aAG`E|xn9R@70z<4
zwrh+sz4hpj{p{PP3-qrXb!&+9Sl^xMQRA01v+}^nPK$e&6XvX4pn9!fYfkkIR`COd
zM$evw@+;{#8B}Zu75CV?Uwrby+mC%`{<FPb^G(z0^oDgagaz-KD^A=Yv1Z<B)=Q73
zUJrimwY>91a>ullx~W&Us-M2*9e8`u?m)GrZ#D()o^$KSMxhrAQ{=8FH6G7;I^)yX
zWAg7E&qTlX*)Q|l<l+4rTU92W4HmGk{q!Qdzpg&HMlzN6zev7}#%qcEDW+`yLBo#r
z|Gr#2KL6jNXSdhiul@Mq@%=k1+~xnv{6F7c|5NzK`Q`r$K8yF){d#$J{j}zdQ_ao!
zj2GyAI(frATWAl*!<JN|ZFUZO*wr?L^={e8I90si%gzlwtn+m5H3S^_<NoZ_eVKwH
zU#_K6f{y0yB0NW4C>%ea$13wNP|Gsnh6d-}kBbkl>O9(WG4|WBSQYzg+H)1_=N3Gk
zx=r<AanJ1Tne99kpVPcG4t#ZgX<0h8$~n)CDR1V@jqjyj%lzH`X-dNH@=V!VQptK(
zw)@xIyZ<TI^Y@a3CC_`Tf7x%_<JR>g_}+xqpCay_W&QMc$A^76E&9Bl6*ni;ZsVHv
z*7-lv8a>(GdqtkhZH09C-tgtc`7yX&sG7CM$Un<a!LI7#k3}1EJnRIo^Ulxwth0HW
z<KwB{n>%_UA52&Nl~LMlWW#%(`H=I?XQlr?&Q99ywQ7y+i`e+v+m9v|h8Y$u{?F58
zqAoO{*83~-;>HE9<yOv6ioE^0`QW0=O-p5Mn(T_7^fn)io0GbKTa4{n{krW%fpy=#
z8-FbK`{Ow2<IPk-i~O(MkAhv3r9ErTEqQjGrBm(Rr2VJNX9)SGKC)0YV!XR@kG;Uw
z!~G{DE!@RI^0j%V&t++AnR}$}+Y;~i{M~Q(1V3i{ex*=%s+F%@K=Y97dMjm<uSt{l
zbhap-bmNhFx@o1Q+UsTIhqmt!2%n{xZL&4JeD)X7H+}ra6I<mueVpG(+FX4aESNQU
z`hMXnyp;mslIwg<NUWE6W112+X_e!lgIqnq6K-!@pKJ5W_2kt>oHA>E@6tI``Q^a3
zIWBTva-XWW#FwaCuek8J^14lB`O|ep+6B{Puf5JqpC9hJuh?9?D77^G);^)dpXY4y
z`CWeHiA8~NV$mks$tx9QzE0XQ{iV~qFUz8g^5(6|wLagnC{^Zt^|kkwZ!MVqtL(3<
zK5)?P;FO)G#F%Z*i;Fx+ZeG0TTiT}l6C%w{_hlV+Oi7e>n7O>JWlc=mYlC{;#QHn)
z54Nn|%~o@-Ub=swP@Kf+1;$q-vcrB)+N5P(P!{FQyXkO(S>@&Sz-mjghz*C{HBJBI
z{Cd%w?23!ELZ<H*WbAL9=_Vt#WoHXRKv`mk-JH+Qx|%fSuU!$9xvHl4%-UHq%&Z+B
zFFeoR5#(UAJ?F}|w&@@4hA-6+Et>C^rcrROH0RHixAhO_e#$Suo4iW&zuT6D4JXPb
z+3#22OTWG0VWLT6Z{LfMSO2%o-ft~ob2R1i83u;k$AdgqExBc=Q6!xh&?xS|DCzVC
z&31uJZkanY!y6X0TNu0({a^6A*2G2V8{64wcSKetaErNp_cnj1?^<$V?x6+NsR`k?
zPbV+l&{2F?W!=7ydJpT3UY2c`9wnH4W6kNAn~eIj{T6?DCE;0^@-|f`W?tV5&7j0H
zJ|VkJ&mOnkkW(xvb1g2lWYtQR{9iM6+KC99zGw9zzS#BXO1tabx~uvduYCG^+s&%%
z`m0No%uN?wSJjz)w)N!J`LuFP3Zu^P2bo2z(MM)aP-c?5bFKazN8>)l<F`(8u&lhf
zctX-~r8cV`(R~UoW%8A`YB&ORJ}~(<Kc?EAqvxiu%_dE?Uw1CoJ8)!5tEz@@FTauz
zr#0;)`!vJ$dmL4cZFkOZpH+OO)+bDIuIa?Y@a9R=4++IsI`2Ji`Suv^<Rup>v}e1{
zSp7OWJM_GC$UXT>68i79$KDT#4y&BewM;*I%J%Bcr8ebFxf^1#9xwTnSUcnApANfv
z9i4Z(RVM9em|A|)?#1o%C*G{uHdVT5o5jP<HAU{bH%f^F>wdLaw!wn&wd-4}way+N
z61}+Dot}JsA1!Ctxo5$P$M?LpNaxRg`nt|R{afi*LuoaQv#WUW)qCA8?k;_&RX5@J
z2J2&Xf0;fBGWWTzh_F}Jf4K3Amu9nx{DP9~=4MUVZ?031nuN@ZnI%*$9Dj9F<Fzls
z_d0(itU7<$*lt(Df>W2JUss;V$bNHN!ua#2^NW~N*DLei+v@os_Uu)Iz-b#FGd$qm
z@_{>0Ss-<v^p#M(IB&V*smb|Lhfe*r`TzGqET@6?mWN$a=D!NHw0(d5hJLbuv|GFJ
z8P}^hF8h?9KG-Pi(sDlM{JQE%B29WPoo{}8^<2VGSzGE?b;(>GH~)Ht$9v_(G{1LE
z%AB!B*8Kk}F?IioTu&~zKNhxM8D+4e>F1$JEh`-_`|tTPn{to6xclQyK3CS&RtJwu
zu}r=%Kjhrm`nbjB<k!-*_Tr1@^=p1ueKwtI$Bqw)WtU3ltvWZ&`ulyab#LR;J5NuQ
zZ7@DQ$>(c=i}R99o8&h3AE%e=p2#yWy>dyRzAmXj|KgpkAAYZ5DE@e7t@)ym^Or@M
zw?uBzUYQ$k!hXA%=JA^)N9Hco-Xl~vJ-2Xa)!TcMCWI_{q+62vciy%ccYGxJcxO#<
zvbE~)o01l6eM-_{>zl5H50A!u`TJzC+q*w{wkONjK3P1AnfTo7MEAE(x$9jI{${?H
zT6Ea<qgdR<nS8xps`oI&uDzB%W3$uBV|J@ux7@vN*!_|9`*Uy3t<mo9twYsbC41hO
zo7r=aS;G9;XD@E$duq=@UhVjEvG3>6H#^RiEaH2=^a=B>w+bzqtxI{Pr><|}d$dDu
zX76f66@AW7gTIaL#TMo-ry1FtogS>{%rbkgz}?MGUIiteEMr>!|9fq|v}BH$uc696
zi?0>!tvB8-YugyUhke5xq3n(=x4lm>eGSt7y|LN##9Q^Gj^`&H_<T5&VtG9E%z6Q9
zPp#+!cKSUV-pF<ENiKACeWiYM`mJ}<)8$h<vlq8?&71WkTm97BNA;Kg%YI(-lcVD-
zx8utvLB;~UwyD3h=DqxpE64aWm~Z>llHJ1JGj4s@++F1OB#`f%R><kLQ@?IBKEHJ6
zs9K7O{H14gHw$(@+E=BLqBJe`gmrIiouB#ki{<T`*3Igh<8#C~y!62D1t+H;J$rXc
zWV>C*oUWIPn&j#Q`CE5b?ESg)Y{*APi*swcMAqDYdg6I})q#_1)8BuU*sZtQL496`
zo`L`0fcxBy87Wo!=jPOESzMdnsCA>s@Q6X@Wf5sxu4%dFt|qTo8Gd|qjGgwB$VYxB
z?%BM_d+>2bcjcT;R_&=y(Rcg{)O$_|?mt#>|C(Hq!G$kot(&JD6Pa>9X{+1OOZz*-
zqpJ*8oGVjYp;ocZ_ay7boi`4}=>Ij<v2D1&;ApzppNQ&riB)?4z3N%Mb<~P_G}Y)<
z^{<HBUSp)q#$h?J<?_oldJP|x1B|cFGtarz^RuM2Dsfxd3p0rwHanAKZ4L?XR35E}
zar69gd7Bvb2FWwc+Y^5Nzr*$6RK8K$ndViZ(R()@W?C72>2I{I;a`!?H#WQcS9`WB
z?e!4n+3uMBH|)#P>h}WLu5V%uFE?HeI^`x^dt|0Sctz^cqg}URrY!2c%Gy?>IID)w
zT{q|KvU~B|IgBrYgjy?q#_DokjJvmRi;mR;!~2Ov7I$8-Pdld}@sa;xW&iV%i3M{!
z+^+0$Xxw-D$kxCIJN%6!UODca7ZhN^wzf9>?mMRNx`)%7-DaejEMRKbIA6wK=0q=Z
z-g%REuPn5XIA3$&aA84XL`!Mc%#O((v!+Gdxz@NVCRD5U=$q<g+(y?TOkMt^t+cMV
zroVs6<5^w%ltZUZ4%&SvEHC-N!jzL6ecAVKk)75$gU?pr@4J5||7o3`SKwDUrAKv>
z!{dkNUA%nG)t#*M>HPf5P-(Ys)C%3|NZoZ)ra0Gs>ipfae8RPT0U7hN6pH5rc?HZV
z5bGED=pw&i(efqvM|ZM*UtXUcnAOO=BTZ{ddUZ_M=8*bUg|1b%<gBYo15bom=IF58
zh~SDctxJEkf9I@{$fav<ztF76Q!jg~_9pCd;KJWllj8MNH!N?~Ty?%jgMEGK9@fQy
zGfNlW5L~pzUvGBTUBSy6l-=(c-9G+niD#fvP3CQrv%GU(&pn)ym(6#2+T@DQ!7De`
zEX@{FpY+YV{m;&f_l6IdPE~AX^_#q$#j@(zr@R+ob?vkG9gZEh({nHsK5TXSs^8Jw
z2hulJcq!XQ$ZASEO@Fhm?^YjY{@0c4a>Da`r=}HEtYrR`ICW2v*3^gVSdYngh3q?`
z@NU+W=P9$+uyV3@&U`voXl9V+i}#N{%GdSY-x={S>iS%dq$PZ<U&5?xo8(U@oXt?b
zQd`TQwM;}wHdu{s+ULK=PaK<awfe-QCoF%qRNfGucP>Qj)`SCv9O0q)ANY0iPZv+x
z%|B!574M*1>?eQ9zX+|8I_%zBKBrsZ*_LDd-FF=3F?AMfT$P~n;v~26vo}8`%1Xt*
zm;1>z(>dN_S?rqqlV?1OUdC}g>ym+4pYP%9*V30ia6A`~pY?QsYW|1pIbj`-D^5<c
zP0-vFR6m3HoaxRv`j1Tym)Xtd5jbHb<L-3JY%}BTjH8>|<eyD@Za7VAp6ipV%`)em
zKdpH6ws+#Jird0Q!s=@7)n-2bJnp=>_Gi`I>f^^`i$46iAe}kCyX&`B$O*~tooBk<
z`A$k&7Wt%O-to&1e!ZJ>W9e)iwYaB`zHD5${==E>XJ!*T-spa|autq#y`;}ozFwwJ
za_2Xhs#W3K#ShH+ot1+^6<TIxe0-?#XOl$QyVt$k*+1uMPyK!QreNgLhkdg`i~9OH
z3PlB{|KC@<=BLI7tGKHxj_x?YJ;m;+kjHzSx*Zk~(w{4O_Y|tWHqW2qJ?E2pp~U8*
z4wdxDVTo%~xAn9e=vp(c_FTO{H*E6q?Po7}t}e}5H7{5G@8>yQ=hd}Xyt(C<NPYh@
zsdA>9lvaY*;>>riom_wIyZ&K?@bQi_>Inv2H|H!n+9BG{tj?FLr+rk{<=CS|MLXa8
zOqwpW&BUxjt>eehx7$8*ij?lY9oeFs>~`;${e>IWa`WoLygw;exlH@~Hcs-dLwRj{
z?mGR@X=_vT;?J_qPJJj9$||X-++TS2BIEqYtm5a7Z2q<B^?vJy<XKkw4+Tz4O?b^U
zYs;KJtJW_`muHUYYqMpad30a&1*7}c%Fa$(_D}c94zEbcbN=$*D)ZX`0bi|{|HA8x
zB-2-3n%@53=CR!MKF^~L(eu>wxPNY7J)-qtO7itPM-G{1Y~1HGz00!yT0x?dy>`{9
z@U0>}i`OX?`p!EjT~K9R^Wpuj<vWB<U6M&m-_yzXH|eWV_4R^FH)>V4ThA$FT){MN
zL!hEewzp^7gQ;cRJ)5rZoC?_Gu*NLBtWjqB*{NPZwyg6EL<5!gcr%9!Jab#@t+4-d
zP{E^fk+nA;XZ_gPcjr^{lpBG$M=#2mWvE7$_-CzU3Exn??4fC(&UUT!O@i#39{&t2
z-f7CLbw8YQ4$J+Jm6h!`RaURIS%0(ofLTbG<?1%M8Pn!(nfbQh7WXU`uDMqJ*G_P*
zTdQX7c!%lXnkBZ!RvdJnAEX-b$o*`H{7S3RH=DDK%eD)#DgH=Sz9gC!JUvr8eTiR-
z(fVJ($75H2*kZft+?1{=!6_ygs`^(>@o_D;$(p{pTW-(tz5^50v?qDbH@V^db;U-j
z!ZeP;c{_9R{!7NE`aFpZwLWL}SoyNma-PhWPyKi6ZJYA-$NTs0f8K9wnO|=IsKj3)
z@Y?a(TOzkRo(3pe3U6={>z>7@C|TAl;nco}+3xW4msid`ntAM{vXZ?jkEO%&yjvv~
zSmac?0y^g}?mN)ZEEp($N=*8A-v8*Be7i2~`jEXxo^Nh3v9?$g_V=}c`qZg;vd>uL
z4E;EE7|srrPn&gl%O|TdoaeP!)^;vfW_P-CUGDb79BS&@p4cz8V@poD{bYG>oXqF#
zucbR2SNZ*$zvkMu?RBdz`Ag1W3Ola+Kw|RQ*=g(5l$5?0v=$_PT(R()SpMgo98v5a
zO)J7Y+afnq|Lb_?`bCzVb)&}bg8B9~PhN&^JIlCo*Q`r{%XxCMrhKteU_Co6;A$O%
zmml}*C0{DeF;Ba4u>Qo7KitPUcgHrQni@473bgnh(^%XfW}+4lXK&T<uhEw6i1^zW
z{#U=mu5UXVue)KU&eVh_w;y^=@3)IhYx*vCt}Q+NxN7((-rEw3-rD=_HsS1Y^YHtB
zr*6+V(?cJxulT>gD?7iw?Zn0hYu32=EM|GJRek?tjj5Ytu0EevKSS<-)t8mIC6*5&
zn{I!c6Y&238(uBTnGY{LE%|sfZK;`BLzrL6+a#I9it?8Jn>}0FJFU+wp17i@_{io<
zD_8F<;Y>QgY@WK|tlnMQpZZT)cq*k|N?fShBk(=4#>z^#jQfoplb(U*yOM2XY!}s!
zh?E`c`QTQtF+E4{;elD}dE7qn1#3M}WKP#Q_O{q<;cu6!nH;O<eu(NQTN?Q${ObPf
zGY<oAelm`5%X&O3Va*=lDeGr!p1Wavy|s2pvii|y9qWGW*Vy=Am1f|^h4P(d1vXN<
zXS{ICbng6KeB}?1+GK~by_3r)*?PU1dXejorMtQ0ss(8RJ0JXs&xt$CG+*m%o3h5l
zYLg>APw&iXPSrhp`0B5anR{)gUAd=xEpONSaHclB{GER%K2>jR+&r_sWSLdGj?bA`
zQSU7m<G##I7tOprhtp5r%A3Ee$~?dD(8O!^Y9+!mAAZS;%-Q<s#qWOtarzdPuM*?*
z^RCA#Unz~t7mJTJJrWw1|1swM4O{WO_hfFeNIi^s{MCx%neBv24+4+aFS*{mSa?F}
zh4!la_1|me@y2LX3B2K-oxA(j#qIM&9G~%*Obq?mQJr_~oh8f5W9b*oZC^~vR-b<U
z-bn$M#VL1wnYivfv-iT2l|>tCKgBI^Q1s9Bip#6WtMDvWiwv@5=b9~G+gv^=eOKO_
zHOr;_I?Ke1R{vajFtkW{zfIDEdDbhP)DNywNs@h$x!*7MS=sI*vo<Xint4KCtw!GR
zm|3MuZxxoUDLeM;&|fouwh6%=+Pi(ZU7se{R{yR))tPfm$HBug=2ZLP%zMEF@#l*^
zpVa>q%JFLXqL4Qx8}{cE7hIWcZ(ZwU7yO}#p=<m5PiJIaTg=bP2s$S#eCf?xtB(fr
zrY$)ma#`)Yxl84ZyCtsXYY$pn)q7?6I7p~)l8siT?$2d%-(QH$e5QZv;G|_=);vGD
zu1j3pJyWLK!nKSo_uRp4$}`U&KB1lS_OJUPMX}TDk_W!+@|WIWu_fK9<6*$>w?0Qg
zC!bOBncq0|=fn-hGb&H*f3CGwz)4`=LB_PtDf4^E_uZN9bZ5Hho%z1=W@NpR%rRNa
ze(vddkBDY1!v^<*Q;to&tZ>V7A*b+_vdEH+f)+jH=k(nyd}D8DrbaHX`uJ4g`K2Fb
zQw}hvYUmqBWNmgWkvwbnX0!Yno~<%@2M>p}bj`7>->@`Sj!kRTsQ{O0ovu7euXr6k
z><jbDo0TCsdBOGOhf?dp_r1-$sS`3yUd>29-Fx5kZ98hXmY1{$ik<1Pj?NbCNtpZF
zV$IqP2DQDfKYeaz;h*dJZ)Ts*6RAa8=fz98ZIPRA^!%*^(@y(LyRFX-iOjN6%3NB0
zD?+RA6zk8)5!sTl#@_GQbE|g8{9k%*G28zGd9!w}XI+=TzG3QC(`k#>y^+-Dk9l}P
zS@@3R{?;uaPs&-QovXbp%N=-QzxIahTZ{tx`M)l)vV1yk?t`8nJr2c~Rc11aBK?lu
zlIN>PTlV}nhpF?cxz;D9`p!F<+w|tnbK7MLnc6-T?k=2nbwYu~3D<{8@;=coo*fI_
z;*e=Lcg5Z_?W})Ocke3-c>kxZ_R{kSsWZ;szhmlL`AIKtb=28iU;A2m<{wzgr@ekj
z^M}y&DFQxvoep~Q`a`N^o>jD;pSdLCNNf@7N86kWNB{F*SbeDTUp34AKQU=5D|Mba
ziWZ&D5N2DSGW+cFgsr<Sv=@kaHKsE6nu$k*J=W}KzH?()<Fdt3Q)m0X;aJ}@&1_yJ
zvxuojk;tAU(-&Vi=?&e{v2LrypTkSpf8Q2!+M65waP#$lX7`qT;eV9>eeJg`i?*G3
zc_GIl|EbiL$;MA-UH#c@5qVYhR>dr3e%@yXKUn^M`oQ6WV#uDqtMANSxb}}8Ppd)i
z`MiBU+~$8&S#~vGn*MFkIiIcH{px)avVTtU|Er7tv-`$he}l1j*buxV7_xfU$jFil
zda|;Si6O@7VIvbGVpb1dt<63!bG$IGp=L4b|2FaG-eto37QcM`MT4WsVxq9DMW?PY
z2VYM80*_g@GF)FJc?nLEpTBCKPk3qg`#1ZRh{#EF#_K=7bop*+^{bVy*1vz|dH3v(
z`G4-8-&gbH;qudWPv^^@E&tE)|NEzl*ZV{EJka}peY5`ix{oaSpUPivse1eN?qqvA
zukzK_&!>6*+<kPXX3K8%c)MSB56ZoNSii<=r@hV3{r&IWW~tSdufMxxRq5X9PcnLy
zMSJEiPo1}wxBYzo=Pj>Fc^`gwRFVJINV2$M);vS&>WbF?d1>~m4{twSZG7`Vk5x_m
zl{6#A$F^CY?rGNlV9TGsyz*<iz3kT~cV1n6X!_^Hl_zhU>Qvs_)OMGzoxJJUhp!*w
z{IdhRWbbVVoNE4raYOptxZ@k!N=*%}RcC*B68<Sh-u<z9{&iFSYQuLE-gBLP*za!K
zdQ@t5{o$F`bLJmE9~L$9aLJx{CLW*G!}|RnH0>nnEe>9<lIZ@vjVHVD_rI2W)5|hp
z-`IWx`f~F;c=_$|&p$sT#5uxC+f4U_XKl)?oi)>I^Z9hC`?-&wSX9i9f6Q+ETFpG$
z$bY$h;*rEsKiPe&f~)Loz4?s|GMAg!-fKO~U&?6L)%^QI@LJ}(<r`-9L^HqHYZ35g
zljebCA75te^Q_(Z=6m}m$4AbI|ISL~?EDohvEtJ?EoIx1nKd(>=d$d#Ka@VZv}vo}
z<ZkPSk#pBr%&g<vc2mnjI`QMP05!jfR~1)x2j@IUOk2qPciFrC`NuW4S;@Ruvu{QH
zeygT0XT8>^=scId6#ek|;nQ!o{#46%nzs8#Q}vwGw^O@?nSQ6ZB_99#=u6Hen~vSh
zJ|`sSEqvH^)btQ%@$(zcl$iX}Cfao6EZKGO-j$y=*E83wce=~8X?d@r`NXd)ev7O(
z$-DGse&OPmrBQp<xNfVSb~yd(_2r@SI$dl|UvD~NW1VFi`L=7$(VJ@JQ)h-~|DC#~
zDAs>d(UWz-t2ZVrmhbxTaO;YtX%(hEvlmP(*f}}u$JNE^^*^nbna78T?p>~O>0hIz
zwwLC;(EopTuE=?K|18fXv-PRXkDNAW1}0wmoWplNbnn3}o&gJV6GHkQ2A=ZC;w-5=
zF^zF+=9>1Wp(TqSuHWELmtvi;;aE%N)~+@0FPHf*OqizKyX;lM^ZWMeA1fdF!^~GY
zZ_764(!>Ndr>T4);!k2@W(9UEj`h>_nQCH}c`d<=?ULuUPriSrzU8i9cyVd##LAd!
zl5Afkb)?sI^{4Hr7oT~`YJY}unC;oPx@XVV{t(QSuCMhIVXeI062#f&vv?x!gEb9(
z>PmrT${DAHFZN8TxEiV`E;La&yYqKZ*yKxk`43gQ#3nv{zj?XHh06-(t542Zb8b;)
z^StAwVV~^cecsp??*G7D$}n4e`)o$%B{#~und0{yxW=wiz_|09{p;s-q2fzs?mBBD
zcJ=1X^E(#xZ(hA2>Y3&b&)bpHEiGgdxx_YH*>LIUdhrcuQewBR-e1DWbe556=6sg?
z>QC~2TkfyEx#$;zyZ9B3Dvgq7b0hzm{}q0F@YI2{U($2-iO$KZysR-n!6;e&U{+;B
zrGVDA=LubZHt9XRw%<#?=-O%hQ+>>5L{`YnefLwcMs!a?+-I4FfCH?rlbX7VO=rGY
z+O*pA^_$X+3t6WQ|36l3SNG|KdH=qB%s*$8@c0+Jdq0Iqo8es-yDLYXp_|SAA5Si}
z&;RrJ?)-g~pC4Up|6jLUuJ(ujkN<TaU+-`K|LckTyMJ#k9-n{bZ<++>*7(WJimlgP
zoLg-0QiO9W_tl!9NKM|uhyTCZzal>RhRW%p^i8MhuBI%WbI0!HN86fBQ%!DuKBXqz
z%>O&s$1LLY&A2(axhA`VAM-V_GF9HOdwG7=&c~PcKGU3i`clrV=jR<2!a72>-kV)#
zP+)MPVD1|;{hAY}mWfA*9y)5vzIf4Z-`A-+j!_5Q|A+{&wDDf+(0#?8VRYcs*-vhz
zg+;k{R($OLH~W?)-%l}tYg(oD=X~@Ze7rW(Ec}ego!^r?_-EBD&!6*B!>nf6*{3t(
z7K!alT_(+WgQs8e&(G_NES;9yp6Qx>{Y7wi0hey_KU24@3-lc3DF=wIt=;qaw_-r(
z9ci}K8={AQY-pd~5ubPc<N{^8(^6536HYwapm+QwM{(|)?VpNnSeJcO{V(x<%GaA_
ztKYU|x@mMjJI8U^EwNmH=Yi?2e;?T1dHt*DzH@S^y4WU#KZ$R=uCW@58^k6&t9T)+
z?A7sTzjfA^)4?xNn>&A;(=aI(khBo)`0Z75YyGRoo^QMs*!^q@=1yYSJn4d>VtF=G
zqFKyTmP@J+q*?P>ylp2s`0ZnQB*K30VV19>!Q|)hYHmF2AMT4scrAVUVkY~ovepRM
zdsZ#sA42cNc5gg7)78T4OmM?{tFId+*b>s277HGk+LFOBp&{s6;hq)K{w8rQaC`S(
zs6M9lLv+mR7tL86_ZDfT{8Ef-$aegYsi1dQ+a<+X!aL&YyHmzLXFt$hE?3;0V0eg+
zJ8N!3@lEb20_>}{&OEVWZWvqRgpGTT<hT1Sc%!!_^dJvYp#uwlSIVKp+NP}AJ8rsp
z+;h-)vB&QMzp%*>?~E<63x6Cp`m^SuaFxK1m^Wui55|7g`qpHfc4$qPTF=WCTb=ni
z%{JN(<{JIwEMD`KM`^>Ax2{J%aEDAab_y@(XJgHJeJtPUZ@Q256#Mhf8#lErSIo0$
zXmp)jY9UyY-oRXb|LW2NqesoFb4Bj1U%$Aq;p{i(zbl&Z&NXJdI`5k5R3aSub?=l1
zb^r1!TE1~N&HB3YCQDmu+Jtjo_3p5*2>v9#w$DPt<$O)2!Xu-|x9)o9G!rjp1qvS9
z%s9pFw$Az)ReBa07gbVLu9#6j`@`v@vCK!Bc^2>0=g;`4@M+um$NMe{F7S_77x`hE
z$(Id$Me0wrr~jHd?TK^8yo`&_SgxjSx%sQ(^ecmvTB=r4o;r0ZK6|RfRQ+qgxv6_T
zy6<#X)NWdN`0Am$kL~xn6n+~A3Z7WR8rSgk!Ghc84o=-roy3$B6dw7D_YkXEOq*z6
zPzS?AR~PAAv4ZO%%q`+8S9LYKY0|Qnxv+J|#5u`9{PKBf;&XCtoeyc6`P^fVY1T*A
zxjqip|75LY*Q+p*?3Mf#e@vpcxgdYzZtKP7<{_-pRCZtfn0T01_$$+ll1a<dr5=4L
zof<Id$-&=yUJ9G6$ewZCBd{zvapzqp(O)ZHwa1+`pXVi7niq9SZR*@}`IoB2Z?s;2
zy(p`Fk#WMcDVonSZ>`zDGeamOLeb;j&%-q>Iy+}vb`UxIb4lIBpHlhU!i{~7EQ+hP
z)ChC^7ENsBv|4uP+cwpiJd2c0OqyVSv4TxF)@zyaqVKDCuL~BgImMIgzB%dB(#vj^
zj-hvZl5RYW=w0s;(sn8){g!fKs-$(~%ccc4mvw993C~V>Jb&@4IqD(}du4t`ZZp;A
zmQ`p7-kDm`X|wNMo5Sa%)Sm9C!XD>On+Lf2bFKH>6TGRhz5eb8Ex*m0t38)&(o+<7
zjWL@fD*96J{L;1mSPM<E*mjpL^Y~}j*J1P3c#-h=$S-#ntzIwG5oz(~x8S!`u{n=Z
zrrFQ$HgYS8-NW!)Fq9$3@vX_xGtb}o&sfPC9`e)Sp~Z)&f?FE;Cu1FDPyb8~oNTkY
zAy(Vr=-Hju75;O5`?5Qsaq5=sIw8-Cg}-NgxybeY(9W=jSuLXCXUod#TJN8pnYQST
zjMVQ%fz1oMd#0ZgQ)Itco^{hCH{#zOo})#%9+nMEN8e=r%M#eQzH8r?lEPQ&0`31d
zuli(=afRDLHgNU>wXb29JF^9+$T4dA&tRA8o-MSO?T3|lU*n_A2}@W1mJeO#wWQZ0
zs^LS6ZG4OL*5ebJs@6WY-9BxH;Ez=X{+pAyw9jvxy>jWwS@~Nw1*+LJpKqCv`ovD;
z@xFy@DV65p-wS@dd*KinaeemzpDmxZ@t1Ad@b=^@q3KKdmqhm~F_kkv=*rm9KS7qA
zo9+A`^$A{U9Ue}3A;0a-cMAc2?X=@%mvyYF9Cy!C{wOG!nSXri8j%Sr&hKp%$g=<D
z^YEzx-(99D?d<ae3>_r$UIZmKESlz_C~3v!adz|ePkXAGw_7`%^Dxnt+9O>#`+FIi
z>xNg^LhJ_1IXD7jV-vWV6ioLe#%aj4N3hy`z2mmjN-}5DzL?KuO<uBxgk!tUHd=WH
zYD^V8^i+BB-OcJhV<vH~DZ1$v&)=~0vXIiz^_Rct=J!P$Ulkz1{Ql9@=fBcLlQy;0
zSMP~W;B({^weM=JnKI8Stb5JJ_#ExqT*@>5&R6t5c`kJ2Lifw>Z!QTfR94#Lx@ZFb
zj4QbeZ$8T`-)Xq_Ytf&$P0Xi7JA@3MpFcWP=~s+Xf%VCCAvPBp4{pgh@#%(`$cdzD
z0qWuc{`Wgm`qdA&MD}nWYm7Ci>zVB9z$T|?l5|Ve{H>R5#Hn?s3wAE%@jkNE_Q<BZ
zUO@|u*%_@TgHML|R5130EcZCDj=SZ+wsQqf`gP5ke$81wbB_MRM&H0tF8O2Tn$v6*
znp121_MUmbo&C&b>do_#?AfXLov$PIyQl}pv2AL7>g!xFd#~+_1<r3D2v)t}c%Rgu
zw0K9{&e?w@SknY-UY)4@FHz5`FQ#*{)nZd=&x@u1L*oN&7hkq~&$~Y2T|3XB2`l$b
zynpagb%CafZrWpy-$zBnubpSsSX;_rG^4#*@!-zezuP0cdAbzarqt?p=EW{CXUe&*
z`)2)Rp@`j)x62$S|2Xp?siskzy-rP6LE^}i6s`Yam1`9OxA876e)IMF5#Ae@FDmUf
zuYPllw`P4xb=uLjJYjPhUW?q|Td+eUl9#J?!u-`QUA+!9tu{4_+?aK2W?a@fo{6zb
zc(gWVbl?75%|7p2j%oWpudC<8?oaxyX}X^=FZIsi*|BeLJWBXxt#D=6H^%PU5z;=7
zj)W>Db^M$s`EUofp?=kl4c~A2rDWP#AMU;$7!k|Fb~TK3;r8q~E2gKo`l@ZYvPCB`
zq*7dd{T2zX(=(&j=(0G@*(&|u@RUG<GeJx9Gj$!$UX9~$Idx{stJ=w-PhL7)c@?g5
zEYQ7wN3c*#$Lc+Y7{0~sS4(fdBR7{@cDlqqTi;5f^IxLGHy(@kywv|Rd4kjC11mVf
zn_13Y$zSdLn|WVZ-$U+ZE}b8ujZ?$+-aEAA{YD*;JA8X>EDm3KmRp&o+V;3nXL8K-
zNgbws?h$*6R;TFC);Kyzg}ZI_gDLIN&f;l>{I7Z@2B*l(nyqvCS<3FTjt7m0vX5sP
z?Z{=De9YyW=;!IIj;r_=sK`#ctGC7E*pHiS7t*iKVwzKRaO=Cse4dN!rDaVkx*vuA
zxxcn=R^+q&2I`&+ri+C6yL&}FZMSzRUt-y4cfEaKc2=UZ(Tc}9_TGM83)FK1y?0p2
zv`zf*K;7yo8+WbhCnfPMa<OVj=cd-qIle%mdA(i3l^wm_OV>5(NwP6zrF1IzJ>OdN
zOaJi_*VY#*S~BtLm`=YcwU1CcDI?<f;r*gSSykRQO{@Xjmyhm|xu*IroBeT$g^H2h
zUEN<3b+&C;lY8R|+tnE*oB51GrU+{<zhND^hx48FBiCbB)!Ddv&%AQ{9J%R|&(Wg}
zhZDl2?!*XhwdbFac;7di;W~?mWoLnk^P0tMbJA7jiut{ImcBXW8^f2bJ5Sln-cA4Q
z`e@tjtCK{u1cM`=PqJ8JK364alDInC$Ia6Y-`^BIO>f$cracn`w1Z@LZp%DU+{>SK
z!29hMi>tpjuw6@t)!Vsx;?qOQGiSV>cRhB$cZ}ejezrfgAL{F_yJpwU%v8ynsd)Kf
zlU?|+{kLyj3p4Uu^)ue1qv*ZiL?*eT^*MDPIz8CZ_9bdJTsM2c)%1exOiN>|+oZ2k
zgno6MP-8r~O`-Lp)UyW>FE&p<X!iB^`91-|b$l@|r=022|HbT<7SX`DYgSMGY2}{N
zTtPXd*;ANSr9b_t%GT~t^lQfk*)U0|mmN7*nyz)e*|a7%)57gkl)j+Z)T#Q*A}1cU
zoxL!2a&xB<^H0Vq*%o8}-Q_P0*1hZh$L9aDPVHve&6%e)IwRRNI?q^Udwk#U-tl3C
zWw4^z42dfLs|S{Z22{4BB`!QDee%J(D>@09zQ>QRIx)Rzf}_5@uaid7nLQF2=eJ5R
ztZ4~|Df<7(xmu+1{KIIrmi5nl{wk$19NC*V^Qas9Kd#Gi%jb$G-VrGJdS!Dqv+I}c
z<!c-cs@24NJU3&X(FwPG6ZS1q5I1_vam?N?K5>%s+5Cz7yegS4$1up9PWhS;|D`;3
z`65##^*G+-r{&%}9f{JP4?q3$!Zm2ujcrTMue&qhi*$qcb=AKQ_Lj~1Yvm?7k?FC?
z^RH7%s}Hw{uAd{j(OhPam&?k7`{!#|1pP2t6C@BExv_G3!1L=bpYD>MS2($ibH_13
z9TvS$4ck__Rf+XZu$Jmy`XO}Q%1ik?(;od#)ViJdZq{`bV=KM~Zu$ow{$2U`#;)}d
zOV5Zt{BU|-sk4`>{hgjyJzlFaI^yTCb=E&q-?np!6PIcC3FXw4hb+Xsw(}LME_w9B
zRQsPwS-4W#*9mMkU)hYpG#BV>?QT2exGpxvlWlS9ikt(V?pXANgzoH7p8iSC>T&E^
zzjYtAKAiGsJ)*j?d5L0Vam|%Yep4r2weVmSF!P<Jb}c8{|Gm<qlU}XczS<UEU`p10
ze&WoJ#*jYF@Gb9!IEynLZGG6|_O3tKM$YN)xp}hsGi*=SgiR@by`15h@uuv*Txw@y
zr?P15e`opn$tB$z9GQob_PZQqX_bgrovU)|J(E+9s@^W=?U$?lKKWV6vu;%G{uVlQ
zx7?eDr4>34n+=*TPV=it3~GLV<htde4}K>NIeu>5b;UBdVRg-<y9fGW-A&6Q_;?vI
zZ8Cn}do8}&ps4VIs9m<so5+_{@4p>hEz&3+!fIX+8619CDtqpE*$Bg^^F7z4tWMrZ
zJRrAZk5%ew`OUma5{fsD@}8QJax1C!&Fs43!aQFd1wqwMXSDi-oCE_l`)=V%E}3j}
z^ZUCy;#sdZ|K;Cu|JVsxy?DLerJhgI)-TADcrw{acxIfxzQm!s1xx*d7JctDS-PRA
z{H2C_><g!Zl@rZN7f#smr2feFT^=v*ukXI9ofG%_oz<$|f3bOMmx)bjTpQ|{vzYDt
z1;JnQwlHsWDV<jDv-j#6q0_>lGq!QLUYvUCX>Q>9nY%qszK`2s>=)$tJuCFaqGz+t
zZErpG@9~OCCh;UcVaC9KHOa{_5na0_ZG1lKdE`aj^Nr*Vy5)HO*doD>9fq<VqAPP|
zxmFb~o_esDyKaJiPd@Ye;=2l8ycjifeXT#sFh0NEZSZ7u*zI>KZj^+}FF3|ox7B$1
z*Y*FKJ9xCjX5KFEvi#Xm(q0%7?e)A;TXNwqR?CtO`R#j7MV!yd30~51#pEqp-0M6Y
z%M)>5Q)41e1Z}!^D2?a#I;qfhp51y!bvMt5z0?vB*<Lp_yfZPv?SXWXn~<!vajoYT
zm5V;j3ZMO(!?yg~=={vU%lt*9rn>vKnrO4je~g`{Z%>-y`0u!bfEZ8wmDL%ULGwEW
zxfdPvl+ott+Nu?|@yOYuVI0#vABx_06xbTn+_f^c@SWVfNQuP7TS|*0<L38eEShBd
z>#*f-S;Z4>vx7r_oy*hSxa7TS`m8rk?p*R)e6vVu<@#A!eQhbC-h48GiSE7|-`t-l
z#JOp?Mt<9Uao6VUm-JNMxtZ@0{n(zc{=@x69k&H*RGnlcw+Hf;>+`wXp8ctINwV*y
zc?N437dt<>x2RvJ`|*}Drfc~a*==UsYCB_pHSE&-Myp58>vg975i(h?-f6x_mv!6T
zp!0zxC7b^q@Ro0kPYsyM-(Z^Td|ms{g$FO@c7DrvWxd(_ip9>Id%4}`?3Rx%*9!ad
zs(r=`!!}d5*BhBq_fFWaud0=MtD<;i@~IYK4VRcjYm4-MO2$Ps6*9UUIkKyuU|Y|0
z)n)6S9h+t)zBlgRs?M3ZVxO*=3ZHdxw|sQms-wMg!ok#a)eBB+xzYE;=!oh?{T$Qh
zJKsfa<l6bBFe+Q?!eVKMCH^d3TbB10R3$P$*LieQWY3%JcGGrj%(s$tJk`wc!cAfo
zxA*DpJu8ckeHZiRcoix<`Q~r4(B(SClVc85Uhq1(tLeobyO1X_QTLqQh^ggtnoJ9<
zvQZT`*r)KMbFz$u==}>R){_p$$E}g-o>`JEc5JRf#-~Q5SJnSg+ZH7k3ih0Cws^7Z
zu{+ORi)TFHNnXisa-KJ{Jo)rT{O-F$t&6IkN##BDXj}jKo0zoPEI--&MuW0l2fr-n
z(d6+EVakcLdTH^wz&&P#^<7`HxGbR?0aH1@6{y*lpDnPM(x;^&uJ%5>(>=Z5<ECfo
zzv^--J<BC0&OXDcvo&Bt%>3i=bERB&?Di1OzcA&a<~xg{=azl`rT43S**?GSWxC7q
zUe+AA8Ss*EyU|?F`}=pWu6>i&>3aC8<&mXVW_WHazjt)m9m5L~Pcp6FdH(Xw-%qYb
zgg1ShEPvIxyJ2_4O{)s#$}sM)PvU;>Oy=+UA$8~4#sy(cCL7*4&-${cOh+Vc>AD8x
z-Aj_4cuzBit}!nzelyv8SAn068Cz{&RMgs<z961O#@j;<&eIgi&)UsBch>tQWzA21
zKJkoK5t@?Q-k-ZINaFyD=DmNrOfDw9cJnzIx}$H8UC+n6*7KW}?Ns}^qrQIvr}gg_
zHFhBnHtw15eQ%m;TH(GwXP$9;W_kQLYP2vshdp;mQ(E`M-rX9qj}<QDEr`&r+I_=G
zq|af)j+-oP5_yf0u1vg=-2D<sI~QvSX75?xD!j`-BhImGChx|L_D74V?w&h5fASRR
zH-{RptjLhQK4qx{lT46M+r4Nz=I0?&d?s_6LoO{@9gzD=M%?9}+r^3N%;%oCleFaB
zA(3tUD}U+5ez2K*>&}T#`^mpgSRYwxCw@=9xG7Wf@3(uO#agVE@qOR-H%WI%j`fL4
zX=UkLv%S7G9yhgP-148Jd7gN|S3BDzv%|kiyU&{xZg5rh+$FPp+0Hk2Jd$2aj{kW0
z{)MYI?N(gL4x3hOCUR`o3DLJY0aY%A8%uATQViu6{npY}qIbv1eRAF*E&oNbmtuaT
z=05g5Q*6L|LF&$z3x%#%4~SeAD!bXX{M9?@Un-q<OIa_=UO6DR;O6xAERSbS-Eh0g
zXz5u!Z<(D<D|SygWoWi6D|zczoi7}hO%|x1_fb{zowi`*PX9O$m5`>FbKZLWWeL0(
z@{db*^`W9SqAN3fHr2JTJ<IfRSe?i2nsNT_>5>+v+?LXfOJnVye_*kRU#tH6$lm)R
z-Ag?uZm-NXyR^Q(*5|Iun&+=1)dG&MpSayMwx_0OZS1y}Te{q)B)y*Ry`Xk^Ifua=
zt`$1mH>(-HYRIcyO5q6h%G>F*Jgei~hZBeTZ^s$UjT2aFy7!yDSJS#LBH}hVj=82+
z{@#c*oUqn0X2UA&*VE^p_I<NfI&YuZyU?b|SJtuJ`*B}W$9J#r--J8jZ=VP3oXQ-y
zbLE*eP268+ES|(K)43yVu}sjRdv{v5g;#uA@%_qCkM~j6*6LaR_4&CazVr8=fa=M7
zbC+4j1sqF%bZ^d)gsgDWn%PQe?@P0923HE-j!#?mYw@X?<E!Nt^9dGk^7A?=EmWx7
zv!Odl|NecU4b38&!Ur}alxw}QX30HyOf~to-{u7gH;Rk-Ig6xk>X#T#*>`6dXJPRA
z-11CczpKhhw|>4l$H33l{OREyQ%&FC<@`_BYNpKIVsZLz*Nc7EjtTen-Mpler_kr(
zAIC7IXhFcPSsLy&zW*M%C~tgn-_n1j)eeIVrhaGNnW>1+N$ua$x%tPWTVg-!tmj2p
zGFLn<h`QxixkBV(Q_H%VstX;bwgiR!vM=U5QQDwuvst%j&+35Z>tm``)lAM<8Q?8A
zy_LIa9+R!f-J?Za(;}DTru(1M{B*|i(e3`(F_L1oCBEyV6szYv%G>g5Yh=;{#lT}B
z{&N>gR@@SkG^o#5{K7px(OW3kD4|}@mrE?UaB)#@wp9Jy@P(UL?AE?^kX*U*e2<rb
z=bD9|uSicam;Np=>Hg(6*Nz;$+M90rA>CDc%geu0a?c!HvnpAX{g7b6p~5>muO7I^
z=k#>l!6(U2rK>pD%I^t%WjfM!`Ow2H;k{C4bJ?obxl8|;vL=5e=j|5x^AF{^W4|4g
zTNS;!{Pre}kCVlf_eT_M<$B$|z(VksgP^sjyF-6>Ft=#Xl9l;uH-~NZ7oL9DH*T|d
zfA6Mu4<~Z;9XqqERQ|5e@7eoA@~gc9ZZDh6_ch^f&BbQZr4yNzlB;+#)sy%`b9YBg
zZ{a+-K>Vms$F94_3%q)_<wT!vopCh#vB$3Y%H9|6wLEK>8siZisI>D<6?dvUN38c{
zBevY+hdWPO-#O4;GmC?vaSqGjEwYta(+iie-G6;Le{Sn$J&&VDj!7+8w!d-5lXZN)
z^{4YE?TR$p-#>ltycKWMv?iRZytzVGW^d9dNu{Unn0_oZXqj=&vAOZ(A(JkD1HRc0
z<}&`@vV%Xy=HA7l+=m~&zi^>?e}ZywikxnQ7GvLsO-;wtxBq#4agjA^-2eSK^?$|6
z?Jot2*s$euN%_S5{a){p#616pca6ZAxu3txlz;qWrs(}ItCiUbt}UBAr@uD*#Qy(j
z)i3rZHl4~0Soz_SDF3(C%G#j#`Sag92%9CxU6}hXSBCRV*2gP%bQ_m%+?0Fvxz7K)
z&*TMv<i<#Lr>?Hc)k^;Sa-C3b>l^;Ozsd>IvUs)|J$&_2Fg46@chkFz0{w5E|6g-3
z`fvHW$wzYRukMP!Qhn<A`u6{RS6`hwS#<dGNx@?!T`fkwRXWq1PcuKQU^u@qFTK!K
zROU1rN1;G~Ze!?`zs4~S5B1EI=R8`neq(#cv8T>bJt4<Z17;sTa4B(~+NaB=Y0K{v
z?OecJb5i$abk&zbCabI}v;P*aynQeyjCEtgnuefhC6|_G*akk>ozL-=x2&3ZS%Yka
zn1ap@O_>+X2Z~;7y7^qoM6dVz;|sH2+^Bvc_&DS<bHSVo77KJfOJ@~udN2I4&^z|n
z(P!I!PDon0lV4RVcEQB0V#_m|7@S0|a0Ks=eYE*C)2}jzjSm>pv(`LkfA^+4=B$16
zuQbLB;o(PopL0od_MCXj!{@VcMxpkZB8wl)7m7p@tKQaMHS}J4{kfpk^#1E^+XI%h
ze3=n@=|bkVAoidcp#dG@s|{2;JF6x=y|mqu`}aBt??+4hcyIe;o&OfaevoVHf$+0N
z&s5fgPkijJH?hBe!sXja-CaG5zfF{9mxO%$p(O6H{+C+%7Fkg}rHMXU&OKPF^I9wY
z;w$bKTsEhZIlV7x<b_PGpX7Aloy)fyJD)P~D)n6q-m-YA{VAL5uA|A5LgG(l_E_if
zN_>ny_4BRht7CVRr03_THEpXayCZej?B#2l+WmG~Z_YffY?rEJJn?5<QJv(o?|0Xv
z{abK<tL3|ClY)*Lyo$Wc<@h)!=)}G+Q_khe`!7A}5+T_;Pi29iE91m!ZrwS4?cYvU
zJU+%9=2~CtyS%`;O>SSA;I&V6M+`N;?$u<zS<L)<)x**aqSg&M=@zG1oqn%y+1OOw
zx%t=W<OBIp?rT3C&0(La88_`h)rK<Hq-}RP9;~&wQMv6%r!K?BTWvS0XZ%>cOfGHa
zXL}K^TT!p(2}Wq!o|%^VqRh>K)p+)!V;Rm%4+;33eaa>vTlp$i%psxU<ejau@>W)d
zyV>4OnETN7nC8Sl%lK{e4*q_E{9CronER5uVpj6wqjy|Sx@Di=JD25}*&L>pj7n?f
zo03{PX1*(KpL<i@AnDUi^H*xU{>JrBcB)=C?f=dcDku~3$T7?EXT|w7MalC1-#$Ek
z^z)KQx%!^0G7p<SYcjc9wtsTFdpEhhPW9GXwlueCotZ)^FON(XyYb@bz8=?7mDZTp
zjp9e^I{6zo1f8C(S@H2!l=zK>%~OJ|DWBZQ7j>>ll%+m#dBUb(i%W*HnC&><{wbXM
zz4T^u=NfO9#p}KHJm~g4Ea0VjZ?S}nl5}i>-BI(5HpSXl!zJ8-Z33&lzC3o#WwPq4
z8?Vl$Tsx|vK0&!#r+j6ix=s8WCjEzj8~=yR&siU(IB$~b+}}&5JHD~x==t)j_-E;X
zTf)KXP2c-oXh>|4slAYGlyuvpEpqpdr%`U+uYJWkla(Iw?PW@dj;Nm<c7<(^()D?I
zQvJ;Hzc#LZTJ$OQdRzWtt{s-sUY-n5ip)Kw=jI%J#Ifz;8nOCxb8)R=m))7W4#?lG
zlAHZ@%BN%Y$3H#@G+Z_3W7|Ha@App^``32;N;<Uci%H>cohjQpl8?70F0J)k_|NcD
z<Ndw~_l~l1r?za!I&$WVbl{mwg<b`-XR#OPFn&or;khsSb)<2^!-B7qZWtBTonl>V
zb11YXU}Lg;XYUEte&P1yw|xIE%(%n%nD75Bh1-vv`ZT;|#q$?&GT1The!82R(bq;b
zbN`w);r^a^J(ss1)81HU|GD7DmTa4vGw;&_Qa$gVGnAOQBsO6)TSxMz?u=RMZ*WCl
zJk9XID^K80^)W?>%K<4}rxlJA6nUSX!+(T@F<VknQ#?;a<hoCCRZH1!A+=jqjZZGT
z%6;l!(lLH5>sx&0)A>K`oz$KdQt~JNp`5LVMfc2~25CW40+g%F%WBml9xBWZ+4pO%
z;IZQAJq!EitFJG8qi?i|?b-B>xl_)lT5U{kbPw|>%(jVs(7sH{tUvb(t6J9HX?N#q
z%g^N9t!6HgZ!Esx#J&4^!a`RbhEG&aJai_gQ2*!=)?{82Yb#6dv+OH5tki^*t(I{l
z^+ez9ZJn0??Zm0VSn<E>tRnSSUi+$e_2de+w5`H|t8YB$*yVBOt)AWSom;>1x<)0*
z-fRr5J^W;0MW*uH=vN{0p3Rzdw!l;-Vbh7*!G9B4HZ|*sE0&!7vhMEH+a_wuF6}K;
zc&n0q-}2jBpZAq>Hx)j5GWn6`@gr@sk~<%6`?O6z@E!+q<>U$LfA`Is8aM6jtPIik
z)#Z$Lx7|_Lzu<W1qG|a*_kV1e)gtwH+O;-g$y3*EYNx;dC7Iu~K>y$^F(;9`Pa5{}
z>vElne3~CA>++>j;`jY~ah1VJE8qB-EWSR~p;@x+@27je#RONyvz6AY?Ef-}hvTB~
z`wQLu_PcLf%#x@IwbKnu_!v@jNAm5%9nD7^=fAz}_f~Z40k;R+N_)g7%m~WT4=z69
z@J4y(!VaddJGSV$imhEY@w!Z5tor&a!=$c&N#Q+CJ-eqqd8^z%b^cb-^EH>ZC30Vz
zbjfkCV#&G*>Ca5c9Z%m|;kJ->TCwWs+ixOIYc>0`GCyRE<5`jTfa@t+$=zqV9#_q-
z{}2nXR-0FI<;&dupHCzwif4a#;NkP>*Nr{)@fKPB#?8{d;&Ro$y=dDybLWzukEY*N
zsVQb@eR%Cg`sO8j_TT=u^&DH~rT@%q+beeUnP@GJDEd3AB;K6&`-lAx>kH5Rh?{X;
zV_p8mPu$)WLE>MI{N{LEY?I8Z7O`;q^4dMj9nABdZjk4=dLv(dk+#vz(|`W`nqhcr
zT2-TR$NsZ*v8ygzTie;9Wb-9o)t>L0=&t4O?`})#e-_NrXwETNt}8cY^TZp=;)E<>
z<@{gn)!AlcseG4RzOHfhP3tplB~#mGm@9njsp&A@`22a0_VPD&+pDKl7+M~1a!HB}
zK5ucu#9QjCe*cL;?zZ`%E^p3R?%a{pdt#=O&LgIoK?iPsxL#?vp(Rix!TV9>^W7I8
zu|}EM<n6zDT6@pA#>X<Tp%vOTNdX0AkFNNdwpT2=W4d=Q+uOUFR`5uFzr+54rH4~z
z?UY)kz?e0CpFY)@mNysrpKhMDdt=#A`A+xy6|FkG<&S%pEM-#l@yx2|6IjEOvvm#6
z*PPdzk8(OQeEhG>&c-^I=lk*E1R*{NDf?L(E|>HdKfdKsFxBdmNT|Pn(d&gbQzD99
zN;_KmClzZ?WbpjcaD40WDeIi)?6wa)tM~Q#a(Cm!LIv%|KSYTZbHx0-m%OPq%57%W
zmCn;V)zz|71+VMK9=~sUL}9b6`H?$ysvSzJ#nZL~-8gga#>tJz7b+iJI;@qv^jcm)
zPjhoVU)GydmDb0Z*^kZKc)D*^_>On)J2d&X*#)U_i1yDF<T7RsKi}xTm8JDW;QtM_
z+$Su5v_5vpJIwz&>d1YEg*jRG^nxthW7}6eQ0e=6L$rVD$F%-r<5L03yPj75dos(%
zQ}S=;l+XWN&YVAEnYE(nfultA+h1O_4EJ@NrzeGJn{n`Qc~_h7JtCdY9rib7_NR$_
zCFWu~*W?|Fvf8xG{(eZz|J2I5s+>~~Pv6&$-XmIXD>A$3<8kNXeoG_#d!zRSEHb~b
z>*TGr=el!m95|&Pl>h$f-rDO+9+&-)eeCJFY|W+J7n!yzePlTh`0hz-hSE#E>`7N<
z{<K`Ddhl7o=M~~_bWNqDTeqz}csR(bUV9^3I-}q|MTx$yM`m%JetJAr?(AY`_sI*o
z<(%I6qkVfnTXjQg&x^Yes~4@!y|umUB-gD6NfXL+*w6p-2nl}`d(>(-_tx`E5AMuJ
ze|p6E81tO@X*?TtTuPAasV?~I>AP}*V!6V@$M<}W^nJZQt9Jblt`4gRe@*r(lZw0P
z<{KI3UrU>ip4GDPwe(4yvX$QQD<%1pcCU&)DOK_|=D_OXtJLePG<Na3d@Xy&ZF7&Y
zxV7@#&XE4sZ(eL#!^5N{^M&zoXxQ8%oHZFyGkL{~KXvc2JG^F%>dl_-hwU}u9y$MQ
zcG@8uy*XyZ&#4i2CcWh8dL}vf|AW%S>_^yCmhP#&$<AQ7sJz08)j#Jy&qme@ky#sr
zQ~ocuXE1rW@we%`{R=#PbA`y=U_bDky?^<!zG>!5(sB<bZ{3q-@V8PRY}2&qOH)62
zOg$nP>ALmW^DUa(wpCiE4=Mz2n7cz;P40HC<4qRnsodXEmNa!}aE89$bJyp<-j&Dq
z#ayTe*!E8|N9l}c#qQ=6U6Zq!GI)0z+4rer&g-n6@NN54PX3@PUEH5PPIlkl`2P?8
z<@)5S7%Oif%V{AiZw-u%;VW;=K&xy)!ZtSgKB;->B^e4vW<;Ia`?NNCy~^>zWsLiK
zds)Q{_WZ60)4!ejS>$uw#s%!&r>ACmY*RhEZo{&#26GhCqjJvmsPwJb`0aSUOPrSS
zW~JS`&dc0l5o0=fxOmm3PeR{+D19<7PnuZH^gsOH-#@R_<^SKgzxU5w;ll69Kb}9G
zeBWl`%f{WG)<2KG|M!EY-II5Zgyt4Kd-rm>|EJrZ&PDC_D1W{-)@eueudkEO^L?w}
z|1Y?7%l@ig-~HdMz3}76-c8<94DZ?2GM=v~4(Z-{@#Nvviz60^`JFf{e!P08Mfy_f
zn%XG_EuHO8JDMM~v+^lDO`3Y4a>D;g9)o294?n2Y2SpVBc>D2Q`wof9ifeU0rRrCT
z{W$jWtDu^a3D4bU4DWXwWl>h{Tk;_L;O)cQb7poKwjAF5CHaG&{JiI$uU4F7SZ>oO
z@NoN&wHacGwv`Wf{S<T@SMD+qeO2{);fWZ(x6wN|<^RX5yfC-X)Vm?rWA?|VALag?
zmU#bZ^WVaqzi#Z8`QYuxa+q)B^aaTVUti8Yylbhk5lddc{v8av_w&^raqVLL{w?)h
z|AW_6bBqfVjC8y>YJb?i`6OhU_m*?oyM&3yWbYmREtken{eSo4y=~j~Y$=((@5Q&r
zafc=z`Z7_&XC9N~r((%N6?bYhW&RwT{&acozxKs(Q$$WZxIZ^~$)#@}UMtt#cd53x
z*xayiOZ=3LPr08i2>(^V$gi<kL!R${2fs^dqHRk9*G*2{lYy5dx6SSBZfKRaJLFlt
z^GHR&+u2E<m2F;yx1EmGX)djhdb;3pKtW3PbqCeV+FK&iG}T$+xxAxf{ya(4sbZMv
zymZp8`jv98&0n{l2;92=aiHRDwR`_hPF`OB^`_V3#!WU$IX}Iwx4q}i9Kzx5wBwKW
zAKeS{_fMU#bfIxmVqM?GE>?|yAN<{4I$n!#mA9Qd|Mn*Tl$OgA(?i>vUhh7-`XY-+
z3IDUu3Aeg0{_~3a>T!KaIH&f%7Zv(q`VHc{n=85F-R>%y*#4?N%{=>?@+41H$v<Cz
z{$Z00(^L9Y+m;*EGJ)&=wa?%79?Cd2<u7MYlT=1@rQK6?nLkoL&PR*<tD8R6`Ci%k
z%_gOZjK@}QZrr~=uj>WtKUx19XLj6TUfX=<Rb2Z_h5G8MkopYun*J#(=WKa-WkR^L
z`b1f^>Psy*UVe9PtzIXrp0z;aN80+<@KFECSGBhtj3oYPG~T#o`fzjnqa8vfKIQA4
z8{2VDVOl=(nZne!YdDKGJmJp2VZ84C*G>NmE_q-3cqi9kN8Rxq(b}!Ye<!@Vc1S1a
zhUVMUZyQ@487)1qX63ONt6HjGI#kb|`AzSV=o{5%GR(Fc0#(wR*DPk%edw@8X6?B@
zc9QdDEJCH9a4z8!6|)ywdaawy_roOFggb9_v`^(V>qV8{7W||luX^W7$FmRJfx7C<
z4H>GtTFSiM-^!L3-ON_zwzgh8SLfQHA2zqo-wWVQ){OGMWqm=j;Ev)%gB&iI#H+vR
zyR(HIty$0CkLH%TxZ<$?{)RxFoK>fb#g+2sF%`4!FKYT(_42?n_m8U`l^#v2;q<!i
zk^b?_1Dh5`P0zSrQud-txivB$EKay^^sr^`lZjtH&j?bfWUyu^b6KGunQSQ*9V_r)
z^|RxD1opp7(3O=HG+MCj;Old8G4*ZBd$)gBm6McK;Q1;e{_$c1;g!p`<S+?Lc+C^K
zXd6f67rk!A!?qFLTQ}J?1-@~RP^(N*I&oKRr}-xZ-UqTje{=u(KJ~??Q=iY5J{40H
z>S<t`tH^fO*lk-(V(z`*@{2uu>Ve6=^VZx?Ni~d6WNIlCUBCZ;V91uBsmr(SE>>_U
z-Qans`3|GA{64;tUL~8oUoJ0>Jg{xbEM+|dzM7Jc>#CV=1UDM$O_?vZjcNbUmp80u
zMKe!*<yCQ#iS>0fC(C`IC_$mrrK-E@AN;hE|Jy90vhGzCYbNjhgFQ_l2`{7-UbJg@
zu(G9Xm>uiq^l9~yT9p$zPD}P5&OgL1QaUrvR4wwn@fn_7R=ZDM;R@kD<<hw1lR>-I
z%5R-wa-qx@>w3Gxx%RlvkoAa@Kk)Du+cFuETa|bGynEOiFT6kY^WZBH_52Gd`4<`m
zj^!_Nf8yo)<Al2Z{6B9_=D$m^GAeBUQp7GS^5T6o`=S#pJh6X2TvnH_|8;qHe%<eP
z-RkoHKl$1H{PF(7|GFRk_D%J*zwF=rdva2J{=L6%j!h7&VUHDEU}LdZ=2FnzCuY`p
zlPe-TKk64;PY_<RK3cabt=vtccDakF-~T;ErulJV?|;hW#LO1a+V_Pi!=vG6z&YU@
z*{XSFz6b6~UfALB<E1EbiSozCZ_;`A`hqrBKj&B2&LrVKb@SF&;qNY;`kQoV)+OzH
z&B|+&LkbI@=s3zH9Js(V@$hxIhdS+@YujH=NRWAFBKKr|Nz0C#O!psUDu|`HBs;%9
zp}kT_@_)6bZh~AYe|>GG?4?C)A<c&_ePp|K|6;h^M6d71a`}A4c00{D;K$XuWd4PC
zIo%wS9beo3GX*ohUwA9?aCyTzA<Z)VdigR2A9wcUmF&@Zu^ZkTYPc$LG34x#yYWIb
zk6*4gXKs=^@G@tvosgQm9rG+#U8$$rwF8Z7KF53Zq`cny<(iMNYh|&TLhMPa<y#cv
z8Zytm>u|{2VE1Rv*J<a{lm31Z{Pbo5<Jw^7pFT2Y#n*Vdy?JtR%ff3h&u5=qv-F9}
z&UUF8QdgRcKYn;F{anoS+sqj|R210y`WVemtgQHP|9AtV>*AB)oqqPb#V>O<WaTdZ
zDBSzvNRw8&ON5f;#oQg{5{ouW;@@kwesjy6HJ94ocBcIn5L0oqpLOpAOC0lk-E((^
zavL}Q>AiUCPuO$+jg0fQF&ND1{knnOB<tFlm1SrCK9nj^iWUEs7k&S%r7!2aCmkI-
z%$9F|oBpV1{_VrHD|D;1>?NJ@#FIiiUS9G&lr1s;V&26`Le-wRiDA9|xmP!=%rVKa
zsco3!SIm5?Yo4(p_q@=P4wZEe9Jl*_(#m!0<giX##TasB)77V}lGbal&9+mD^lrQQ
zU{%KEdmnz5iT-5gvCZ&`KWpX|EhX8t&7^DV{R0)AdQRWpWvJwaq!@iTSmmGh?oO3E
zd-tsON;BW8MKRz0s5|TZj@WXwEj?fQe#Y@Cgn#?H`|*-{249%pYHHt+YrW$nWBO^5
z?xORXTupi+Zm#wDv%T5)_Ic|Cw$C2ryc1r2<V*3rzb?1F{Sy{9KdNuNd(%cw<=9Wk
zxAw(-yMI!y^!umzaW)&TKDGR_YR<J6qOVMzsFW4AUYL6EzE<h}t!p|yr5WDiW9(eJ
zNz<|C*#&R@HqkvlL`<hQO@4e><H5q$Z&ul#DZMEp|3382?@j67AH3A$@$I|Udi$&1
zvbM)x@422*(3s=czD@I4XLIJB+bUeSAz!wenEVu+Z|y$Cy{PTZs$ZuyEfQ}A9}wIw
zV=G)CU4C!D{$j<tty3p{aOZBnu=2?1rb#YRBFn8s&ov+Oj_H~#vG~Yijq{m%jwqHc
zu*~;5^JG>*pSkDlL)jm1^FC+z-!$Q3g$IAf3xSo=-Iv}cW&P*O5Si01@i=aeNKa3M
z<X+c(yB2ufUFDHHLonlM;rYS|F{O)>nC4uVtJHlv&>=K-<so--&W*c_r792o-YM|e
z%6<oL?~mArOaCm&6|J6O&GfCHeY@{Elfu$hcg>meU%7LdNw81*FzflL%)R!9Gc-@|
z9#2_*;LYOwPX!Xy<>FlyGu)gUZq%J4zWDOCAHP%=G6*|w=v;WQ)s8nX_Rg!f-F!Pg
z?{PJ~aC^JhJdPBr7jKt8$(`}cu!ntHz`XvF9GUw)FV5_He|nkQJ=6NK*5<PIso&0D
zV2(2N(6@D%u`oeS$InixYU)8tslCoBA_ukED&BTgc!>KSo+E5<?csNKZn0(WHt#So
zxpZ)Hf%K9uFE_Lt&h$MoyKjQMA!p-Mh3*rPxy&YurYQOg3B6)glZby|xG6azyJv60
zvxpYfwM|*gEb7%w@0j8Z-g+i&cNel25L9?s*EIi9g^BT+L`C<7#yo3_t}tBHxL?u6
ztSlAiue7jcSG}0G^kbWuhh^uin8^H(qmFx#&C>f-U8`)Si^&{X$|3#EwqM`P`&{BK
z<ynz!^XDBp_AwyKbeem4a<+D6Qq=$F?=l7473SSdnDg#q_N73D|LrG^UoqbkKYwr5
z6VHU!$t>GA`rq-g?3QSi5Z%CUa7FH+iiT$lOa1w#A8rjwIYw`-1=sDkZq_jUi=u@_
z#Izu>6h;o&x7BmxPf2m-CG(hY_?vihN7XeuH(I_65l^na$-`~7@!X*$9Ua!!HD@{0
z-)#}C>`jWZYP{aLIia|!)nm)$*J68B3uKr~mHu7+tlY)Q(=Pn?QxZ#*TCJCyMfh=E
zwfj!x?KkSaun0^mSaWbvLkM%t*U0AroA2*2n(@x~++uO*i<_A{FC=iyU&M2bEkij{
z{*<D{n$MoqO#un7XK4IRX>r=J)@@DHru+$90x=H_EnPBO60OZv9$54#PQ=IO_<=t*
zC!M}2bo>p`+V|Wg?AMw#=ifcqSRwH2X}RB#Z`t+kXC^QoS6dM!ztGw%KY8EV&e;bO
zRUi3X2s|I5sdAy=+NaJ}FXar|Z(3ZO{bYY8zkcf;*99_9ZgmE<yb)bsJ@?b0vU!nL
z5<A`Qb**fg8#U$Y?KKAPtmZ0No=(?xs@ZMn8GQZh%8Kh*o3G0%7p;6&-Lm)Gk5`j}
z_wEhdp5P<Hd+)~d>_*;+KId=0v^Obi`MAu&(e>M$6{bJ@YiAz(^<>t+H!P0%Ez4~-
zs0USfi(OSYT^)3`Qr^zwbM+7DEyq+3iL+(fwBDAPIc46jv?W^2YO?b;zkaI{-xT<I
zBcFTsju*V!c3pJ!+*RMiy^XK-tZ=m5fqCY&U;1;S>bGCZn|sdngmtEROH;bu!42W>
z-2TOszg-*@|KLhV_-7;Q<VKGZzK=vyH4btMIq!M5d7-*T1DiCT!_Me#u{H8HZf|os
zvyd%Y?6n6&^3{$o-=H(g%Zf~&EGWImui?FY;{BXyOCLTwc|LsqS6iq0Ms;Vy*Pp!W
z71WfNr<oNe#t2^6Zt3(=_ced*8rJEm%iHJePYJU=+{czuH_6}wx7G>C$PfP{4#c`%
zh}^b8qy5~eSltZ4T=Ru(Q<>L(=x${d=QBC>hrM8d>;CiixxAOl%&5^YouV8T8}Wzr
zF6*XU8pp)6=CSDtcFQJOUfB^D!Z`PCJ#X`~?~-9EhWguPwCYcEyTWy2zQpX+u4kti
z9i1&Bx>a)K9OfnF5041<xwXw+6nJ^k3z4lcrS83%65Vp@GZi*IyjQqplK83`ccYul
zCWd8iisc2CvoPDLE<1ZoL$0sqkC}JYb7jFLlilra8N6QU_SoU|@`42dFQ0D@4Y4?N
zbk6F+UwdS&54|?ns&t&0ZJp6BYl)-~WiAb-)6f5kS{Xj@Ravl@eg0zUElfZ6%r~e$
ze0egjl2XBiQpUqek}D*izj~G=zV;*EgR8A;er~9|#hIP?ms7azooe>R$mMliOh5BO
zUwjW~-XS_;=a1<Jzuqe_xcmBj;)g3s9_UW$I}|ZzcR=1cCab55bED2L=>PI;mCqyQ
z&7W(pr5*6P{MpjoD_5lPm0{5-6|K)zpB*~CWi>tw{@&qcxN-40X}c%EPBp&oJ8f$8
zW>0-2ceXVrwe!d`k9(CNFArQg@5qy481mL-f_vCx1@YD+^P+E_4?oNH>daOtx5b(Z
zuHW<&SCFdb$#SnSN!!G8vL|@UmW!VZa+3d5PqwMgk-l~1&*p!tUFX%A{#uZo7%uy;
z|Mm8N{!9m6ooK&z%cH05Pr-5{*C4CE7Au*XFMqz_*f{T3n)BuFuiI`#GCe4_jOcLR
z8{KM`x20s2^}UyF)@!7BS4QY8XkMS~z`xCWTXM!noBhW=?~B(wJ9V>T!KWt$25aSu
z&uY}Ucinxj5p^ogaz~56#eestcKpx2%e=|`ZBFFPI}(!uj>VN0^gFmuc4V8n$L31;
zKc*&`(hbG^jeV@@Z0Fx@(_rWLtKnSs`C#g%q`aMKN2Lz6pN^cNr8Z9^b-{K1-D!XK
zOj_G-6cG0;vLw&KZB5ve+Qe5@Oly5=9bHv!yby{x#hsTorSoIi<qBv2re`OXF}gLI
zC463>(tbcLcHP$PU7woDFUZxk7<=zt)@FQq@@MCB*Nhatd-h~(IcKh8HskqEo0XM(
zMK{!ill_;6nXa@=F5*9S+2r<Gfwl(ICoY=#q8x6s%-ynkKP>jzy35{GG(p^DPRp5d
zM<nhl{cl(LyK1Ihg65=?Z2GkpflH2BoMTdZQ#qS;O|Rdtwc9lwP7j*BRs8swU<*^j
zpLWZ?O;C)yS*^8mzrvlc9g`BA;(aGMy_mtaXGw!^M2Szztof~1udHu;?Ou|5J$0eY
z>RHb26`jZ3McVa(nY}W!g|xo}R&_^OM($;o>FxKJ@a4?+SN)%zCMl|QpE|xO+I3@D
zgkkRQ3v<~PU2=H!d!jvWPV?OKh^L-!w9NFkmtRR{V+r(btXu8<LLhLtV1(wM$1Hh;
zI=a>W(jGe%ute}Y^ms90&fAE8w*58+JU&W1JhyXswO&~-(umm@mV8XtG~||VqpjPP
z4B7JAf6uRBc)%HFIWr^eYhrK^AMZU0<DE^Mt!JH1e7_fXsrkEa6nnn7Npa2rrmi!m
zuRjr5%zFBzlitP~Go~MjIr?lVgYbIG6;>y@gUVJV%ZUX#a)*5T=fN$QBXnSGzVgjm
zpRKieb}D#^9$i?z)ALNpY>)M#vlUoA*zQ|<{z}#gtG8tWvbUQ(zU)op=tzB`nDQp+
zip|XlE#Bc5%6+4hwP$+xO=B%peSTaqD9=yDhh^@cvbb|Q)C)RX9ffk2&)OzzV&Zsi
zmV{PI$GPl|%$E8qVqW>T^H0`16TA^5-KpG>BJ^dOpV!voip8xbEiy~uYj$qE`D%uu
zA5&IN{v>^?xz4-06L?k`yIlLSM#(C*T;tM?_K*B}w|myV{x*B(*NNLdepVLeR9|ra
zdUM8$C$|oqdH?xU>wWged-7Ng*_{$%?Y#9hX0_5c*1ZeFJ}2d;+;S3O={RT}X|p|e
z?bK(7?#=mdqIijBY|uUiw|MRN4OXRZCn#<I{rAHw)|X%AvdTWoeX*NMo#Cl$M9<1#
z$5rtc+zVP9de)?FD1YEpwZYj~Vxx%5)lHi&{ZQJ;b53>L_wI8O6muB6B%eHgsm?#|
zIj6acR?ePZ&tJ;U{@uIqy2PX;lZ>0HQ%v8@>3Hqm#q;CW3d5+0RWqmBPnvjtP4k{}
zf_1u1)f+6PNqn!}>esmEZ&9uF|C`dkQggm@oO$mw>Bxqlgo3G6M{?M_YR{QWdo$&`
zZ^(<C(+vYBBxD@-eI9o_XLiv!{#{X9(qCTmc)XEqDP!nUp{G$cm*y_=6jj_3&6daK
zGgUf#`6+XzFjs@Pf;R{F9FMPMFrLcP<oo1+TGsEVZw9T|TO*g4a%}Q?dvD6R*%PJi
zWfk09YU25ZrH3)uvdt->dFhs>=$EG3e3^dTeitSE(N)e}(zR}9UWw6C2lac6wy8q<
zX1wE@^r(O1JC6jBhj+a`&J+t>pz=HG?`v`Gm+M#Sb@*M+-}Kt*<bo{`O{Lo^N{T+7
zba0g`d+>8k;ckbmOT_BA{xW3l_{`946MCle+AE$T<`Et2Tl4x8>Vn)&R9Pb=x7yCy
zQukc8cOrkwzMrq}Z+vTgKfn0*(LVydS}dz<zO-HNXL6NxeYt4kh3-G;Z?=Ctzd$KR
zz%y<6WZ_kF)a-tU`f$wl`nfH<ES<OS=IR}v`|{s2^ou+@ym`qRTM?foh2nC)-KkTx
zcG;yZ5;z>uZD)S+pz!>U?zO8~B_z8NyuNeKnzuPj>+Mm;4eO3<cdOKyu;Hr7>-87r
z-Z>zh?IrDaBWR(1)q0hEQ!lOj5S`;PDc89@Od@lu^^?;ghlDm?pW9w=Rp|PvhRV+Z
zrP&X*KM$^My8dqV0%f~j>v+u$^fv1Da?f7D**Kv$Y_D03h0s~S4K{*Z7fqv{J1@8)
z=u|f0@xpZ+&AEzk4_{teS9du>tIlgi*X;1VJl&b{u1=4$+1iW0aGLz%S$6czRQ5U7
z9uyf!{bukA^||x$cB<r!6I)sWN?$x{d*$@}+W9{%_qG+rKb>GR;o)zytz`%H9=2Pc
zn9&%(&+f0QqJFn#Uf{m0o^#9F?X_-v(%2pFQcORHpXnTb_Y^<TVEx}MUtY#6XYXFE
z*OuQ{X5Rc^&dKwtZK>^Bm-PB<cvWLp*eBQ|t9s7n@WED|%v<HP_U~7*1ivfE`}B%;
z|JuiS%l*&HEWP9(w9|9?qTW4AJP%G)T(w^EAmc=FhfSJWw)PraiCy{oyt{4jvTG?7
z_BTWm?6fyEF0BdLsavBuKeOrJk(u%>3)?5$>3g~G>C5U<@1`_p-8ofu|LiZ`h+fAn
zrk*!4RlYntAy^)F^Fd|4mED@D%$!f}l{K+0o2Sj7_{vToHduJiIkn0DU(d1qwx6Jy
z&-7)<GvWVnyMt%W@)S5Z$xUE4kN7ru^{0<ZFPU96)!425+<d96<l1eIj3T~e{oSfF
zkzsa6eqvh16+LZ_{>w{i)*IZr<@xqgs!wWJ%3{vbew+NIBjYBY^I}*jB3?PU>qgl1
zkFAfN+_^r(aINaJSUr}d`x;yCrT9%$4)$7O$}aw9abU_e_6rv}g_HT$_j^pY&S2vV
ze_?+1)a}kcw-`Hv*zPsw`|Rdj_prPuV)}*6$>kMdUhT&p%C72K8yep1su{n`O3Lc}
ziF0{uA6PdgC}mYyNeXMV-xpF|AbaH30juKrA3aYqjq-$Mskwb%sy8$|@JeZh+AmL=
z{nlPnUPT#QxIeq<<>HsZB7!%CLwi5*XxGe>y)IT8&NAKbiR@dI9e2V!&pj_mV>P{*
z+0-OCk?*aB*}^Y=Tc;i}zdhOE-?Uk~ZNEm>1_o*EDJ+TlseWd|p4*lG!_Rz8T9W*&
z=K6$I4rAVFc4@cYEJ-}H(!QtVoxo(7ds3xgAy>*zEsg4OX`Qn@bdIoda>CxIl&r@u
z!WfE`)5^8-FRSq8o97qrSMKNSt8iNRBJRsF{Ta;rH{5%-_qqROZm%ty1b@tlowMEc
z{#ES<C)NpX?p)AWRm01nV0ilYq|I|qm&iDF9p5hhdZSpeV0rCr1)loo%^U^mX6qbE
zwev}MX<=RYsBZ7eC-H?VGjz2p8>VVKe|F;9q7c7~PbYk$<YVW|;Cwb!e3nMnT>o;*
zy{Y}pf3L0lJTG|B)fav%o*i?%ccRvsNjC75-Ck36nawZu{diOuBQU+&e*2B!V?q8u
z7R_2!w(s47>0PVl=5Fu);;?zLhsL8-4;UJC^Jd4*UibdQ({qhMTec-Wc~Q~5$JW8)
zS*<72bFYVm`%WgwSG#WbGxgS=tb4wS-OpKnbuY@CI=iNk(KzBXJFov5=DqhWJ!PL7
zxc=p=Ngjc>qa#%8tlLb5W1pO?dhoJ|o2lPm`)q{+3qn*RlVqf7R8&^H&R-w-^sDcR
z>1*aWiI*sOUJEXatI_KA{j}$XPh{$WE=}8-je!{_DqpvJ<+ygIEV|jYz&6l({mr)7
z&iki*t(sZ8_uMYe8j+cNp=K3A=Vk__bj@8GxTG>?x1{~*gVT*u-L7Xl&i?g(|4rA4
z;tH>?K7ADXk}KiN(M7Bm?i>x@(%=0~x9QDd-^a066&IS7-+nE+eX07sknr$1`%;tI
z!{3KW)cJCGZch?=A(LBcvNV3H{+VPY>#Bw9y0dKMcbHe0Pram?U~>4_groa!2TE+I
z+vomRO=Yt#tAiOsyQj|#>u*Vqrrszsl3UJbI_r0=&t&;sS2o5me)g7oGG(8zQ}9Qw
zitfy{e#U3=zOb(<c%I9Xvu{$~>C(M>J8uP4c%Jdyw{fbbx%2_|JCDs}&wao8r`k;R
zU&F%oXQ|H8FQuajudi_FwR;zv7*cjeyVBKq<IBKJt9J+4uAP2&M#J{IOJY{VX4l^`
zYO^bO?W#K4tmN{(4UePNFVM@rp}OQ*(cQ<@waZ+OS#GRdru=OGLAC$?CfYJL&fwc^
z+vzM}YrW;o?{_P;(|y;>u$6Dwz9Bhjoz>!v!QY;VF?!G1|L*POtnKeh*7>q6+?s5D
z;B|EV_InN1bN2<lI=742Xufpi<d>KG!lz5@VZU@HXv&(kXDpxCm>+w$Xw~UE9M6SM
zY_<2PUJ<wVv&h2y#T}tRHQe(I-FOeI^7(f1OvA!yWsi>ZN?Pi(J6+X&S-LZQn;_Fl
z#z$M<FJZks(_+fr+Ah&!Hv=PzgKow+>XdH|H`t$fz#+8i^q1?Z1{LSFJo0K1+Ijw4
z&%<`Tg^PACdi6`~zIfDE{?7-0Pms#h>;0+LxPGgK&J?DNA-8mQyPOF4r?7F(<f`T2
ztOA=3wmIr?cV8<kh%$GriCyj~w$YH?_F+O=w9A>4+)rmYi*MUaH$26C@?*a4j+uH_
zL-zJY&C!^bmK?FKc-gsg-;5gPHQty~67%{_ThnV%SFeR!d^XLUkq;|Z<p}O&Il$QO
zl>WwR)A<#zefI4UY*F19qfoj#vf1u;Q{Jpoe<ogfARQp~?23)+tBZH^6gRKV;MP?W
z{*hdH?Q@W0O6{cEIV-o8igCvO_6UBQ5<6w?|LWz(><>7q?VX?{_C7!S{FXFUGslfO
z@h4ueq-<o=R8+li<?@8b$A1JJbDJFEcanL-!H3tiqjJsdOM0KJI&esP)1~XDw(oae
z*L_QBZ{X|4p5?EjzGrmrP%db=^hDggL@C{KSN$F-T>+cz_Ra3LTnC+Ow~1=q^)h?%
zUiV<k>cejYgp!3$Jh{X1bN`u4;Z(H+y^M+zZh5SJ8Tlm0!hQ31%QszzUR>?c%t|@V
zJ+1z6P^3=6i;{IK3sS$co_^Lc)8o28$gz8GcQUAZ&#B}yWDGppeDR8GM|y3-^{=y+
zOgXPDr5V)dJz<%yhxMo54UQ6a)1GHnK0WZ5??iumdZEs)TL;@$F`CI=wPsq$FTJNU
zEzp$Z-7RegS=DnDr!QAd`a5-z+p8=81$b-s7#%#xu6CnhHpd!vQ{K)$$8Wg&G~?b?
zJNNXIRl6L|7@BYS&8XAm@UY^?Q^SL|7d?x;;ajx$lKa}t_e%QD^F`}F^C)>0_v+xk
z^}SNNbyzO-e_9!MQgs2}%X92cN*6gklCos@SfeJ=W<0$xBQ?K(N!ajQ^;OvoYJm&q
ztnl>X_1P5ma@xw-kD2T>#LpgD<MPlda|M6=ccT-hx))F1pL$H`RlydC>%W`APOI%N
zvlHZ#{_I=#@o{U`?t{O)10Raa-)$DS_P0S)mLIcQA@iK6asNL^@M~JHt$cRwP4e#L
zLQ}5geXGpSv6kWz@xT8-{pi$_R}=qEtGi_7@qO*R;K!RYG$pLoaQmLvb?IN_<JTDz
z0}s93QgMZ2WtJSHTIR~7VRzkTF&w?(`)cirHm8=T{M%jD6-#%EnHqoCb#Px!q%+rJ
z`)yfOo0#6kocLkev2fS(#fITx+n(=^eZd~+`e?&K-vHL`@9RHmSc$DZllH!FNk@5|
zW>JZDTnE3p=boRge5XF_S{=G?>ul}d-5VwBLZp+<CpYdESbo%<XT8vOwWEQHqnWPR
zZEL@td+*MM!o)R~XZjhIGs>qN(Xo;~WORysTehZTk44~;$uC(OOqWHNFqzF#cG3Fu
zF={?XJI7&P2X#)3W%>yTUcdHh$|N;xdS;|<oc)k%hu!mY87C@QAGkdXOt@q`angZk
zwP$QHoF5g~7q-dX3BP=A?b)rDw(LKpq3HbZ-(vAC_v`g4Ez9ofryllwI;U}O@PxxN
zmU1t>p7+!#Kc!OWx9Pg2%KM$7iZ@j*uymE!9r|zL+(lb-Ullq<r?LpiWSwL(n%T|T
zG<nvfV#(lm=BO9aOSjv{Za;sc;^d4UJATi}-*dZ+zxsmR@@oMH%g%U)1?nH*-uHad
z8zGeg^;?U}b=OrsNKAhB{T|EP+dJYyubgO16Fs5gXL`td^+C0tt53Tg%2RVXz4C)*
zbj}^|^(_0(@;*JjCHeHdovTZ3e3Sci;c3izPY3D!lN+{8+#0n+>iwD{vL6j>qqYRi
z=4wCZ^md`$&oqr<!G?gp2dX*SnkBw|dwgK~C02*#=vvMXO&5-oe4KSiZsEoFUXv_d
zi*FO$UdBE6{cdWzMCWyPA3Ft!&;PA2t@!ZvSmQiB=aoM8Np%M|evTEIUEm>O`J}AF
zkKIIV<0(@i6HOInRc@ErNv57hC90C0HLr!#&RbC0lU&ZUwoLME?>iyK-E*=cPJJu-
zY!^G}ZPn8A$MZXa4ckMX=(VRQozC-iSik++JLWA%FJ-({JH+zxmEl^h%No~}s%{lE
z{JmrQ$Gj~1m9^eGwux*RY(MU5o>J#xxh8bP`PRHo(Mr3#uZD#C1{WCK$lmu}ctLS5
zSGLTyu>G$J{j^xuJX<hd)YN#r`(1`~>-9y^_hP<Yj8d`qQCHGgd$r=$p?wCEs;VM8
zr#+U^cicDO<!aUGtAaNkZtYYRGt1WuSd`JfczvtlTBVZkHMWgjP4ShEwWZr89*?W}
z_i)=p$Blap`)4Jsc(~ru_hH`oNpn4dDvr+nrNA#-F7VLAdY=DBPKUshM~>fXwj9XY
zqj@%=dgsSi@3UU?-@EvRt$MPh>=*x6WwZ0#_>>w~p9rgS{dNBehj?g5?#C}pJz+;~
z{M)zo+TpeLE~UShn0JFmnk!9(EtmiQjwrX+r{35U=H{@>PZi3)&1@24azZ=o&&LV_
z9=^&Oj2EiZMfQljFP;_7v1FHRWp9N3bnWj+vhL+Y@3d8T8fQy8WoI|+6INXutbekp
zx2W5kp*MAt-|NfvOtIWi)7`6uuRPp!_Eq4)sS&qRXC>{kke;PxeYMJWs?MsGJpthr
zyObC4ERnh9RkG<(n}^fi*Y01Fx+`<J0z=rM^USnvX=&}5&KJA)(lJJhqJWTNKRshF
zTrhbwY0;`qJB5rKv6|*ZmlES9Zoe9=D*s8qHnnI+!j<6ZjbCKhY$PvlSnss?vhiuT
zeYJCMvH0EJ`$t)1g7=04s`e7!CUp8u(VSIey5PpNeQR%-#a^y-ye%Zhyh!ZEu4xkf
z{QP!&S`w9yYPs#U7s_AwYhK6DP<Zys+%V_t72DRBpAllXy0X_ydymWN<GHUaU+0$x
z?Oy)!ZDHl!JfoTS>SmUmf0%x1@!T6#_pK&o>c7i9zxbZ{yM!Cg#;cO__}=<m(u{pk
z9-8A4bm8YD$%Ge-6@owJ+^Vv5+4(T_)q}@>cKI9UFI=n2dvELJXzR(-m0FXeE-ST`
z9IWbixXWsCb?1)*dfh&^9(|Y_bW5!-x7aA!)Vb}=$0cHme|r7dzO7QsFZx}B!jDsz
z+U~2ixa)5A+gsFO$6VIPlXzP{eb28YvsT~x6t&y`(T<wTIO&q^%+s}#rK}cm<(Zmg
znMC})H}|Hmz|!2sE#gOw!k_Ae^{-vL-ih^k=~sczRk^v-XU>fb{39!2D^Soq<@l9p
z;V)0!iSEd;)_E7=mU%;Bm-FLnr)z;9*<#OpVcI<T#pSF8wpu?Xm>K@aV`;f;`qax-
zB#*I0IpN^vYg|8H6&z=0c-CtmF<oGZ;s!r)KC7!H_2t}FdzD@uk+i+JtnvE=*QYD{
zKIk+5ULU?EDSGaO=rbqTH;OYUN$VWpb(y+Bf^T(q()$VJ@fzlO@4il0bnedAbC!SK
zo)vdrtob?b*!h*YhwJ=9|J8mIdV6b~zi*Yfxu#2kV6Y9>%_X9-i!vPkNiJ`#ei<X}
z&chb;YF^>OvjGcdcC9k~xQs95$q9Dr4O{f3X2~TKM;n@7S4)^ad)DbG0jB)#>Mzc<
zZk_nJ)peKgYX6+%FuvTwlV3zgZ^-<6{X`?n?sneSdL~JI>szkMo4ZYSyE;#N&6bd+
z_kVBxQ8{+^#~Sgjt=@OyejB{vE#TU*s(IaS4#_UJ@Gzl_-P>;8nOPX0el;}u!eN!3
z2LhjBzC4wmaP5H7jE5pcN;T1w>{tKs{kSWv<Ny7Hun+FfpB!2FQmUGF@=M_#+qV3V
zI4*a~k|#L4gE_bCph4lX)QH(%;$+x#F09_Ze*UMUku6<T5%T|E&t{tUU$oZgJ=1=9
z3I1Jqa-w;cpB>zMTcYsFq+5nt1=pumRRu>MetpX`%C+jG{IeacetJCjlYZ9xo0EJt
z%*SmL*Vn2S51z$k<uTMfeAaeX?9ue%lMlXgDX+KHkzYJHTu#EG$})MIU0rbgif^|S
zKQ)#c=l|OC?nSB8y2%Cml5<_NL(ef;{Pf|-eks6^IQ^sn)6#1;fs+`TeqH-<Y2GWR
z8YZ@uir|UIRNMag#6Hhw+%$LDS>2iZlP@T`eG-*%mATM!R$57vxAU65%3(FO;Pk4P
zJ-eF@31v6i%Bo!pe)v-2+voJ0y;d9dWu<N|>v<h}&g%QuP?PIlPbWKgq@NFvV4b+~
zT$|aG$!{4aDRQ5kV3^GveQD3vaNc#-f5vGR-kn=7KF3qZ?8Frw@qPAZ<KtrQwz4kN
zJyYQ<KX=J4xf!eS-+w!K_|lRD0mUm;+PtrvWzM|H{M}@F@AA^V6RKUddB1M07XP?*
zspia|x^-Kx=2`o1)7u}E`2IeRFL%wZJz0A+mkQ`Vtg&-*u{#)Y`L<`r+wN<ToA#Hs
zYPMU6FWXR*^Z7yPuJf<BUN!|ib(-m3pMHGt*Ngf|5Az?qXY28qyiMb!^ACfa_h!c!
zc|Cd0<`$UbU@4VQp3Jl7+0T2cCaQnEQ<G|Xzas03(@CLXVbw!&dVh^NW$&oeUNW6(
zU;XJnL!glv3+6IaGh^sUu!aT}Mn+uF17eL0OrXMuWva#orV0iMLHcf)IVGt@3i@t2
zi6yBnsmb{%sdjc;#U(|liMd=AbMD$^u1`50I`PN14FVoI@zFI4rJu!K->1UF$*yjA
zWP*jVlHl{hI^TTM^Tqn#-e9Y<d48p8RbJ@*cjoVVl|@u9?|gsn*13Jx#I3h|kUji=
zN&WmiJF5N*@2>v#RP^>=k$=D6yz17Li@UM3e%_uNwI2lHjjZ=qDEHj5{qskw?reF~
z?bg|IuT~Z2egAOuYW}xp1-$={7q6@T{ULt+I@8HNj%~fr{ruj0IlI>KeO4W=+4(>I
z{cO~YGdld^-)81LOT-Qz`NvlG`KZL%v;RIf$IJ<hI~@LjDO$vPKIi+nx9zz;TfTq#
zFSYiU$bC`n<h=h+A4ch&(%fxt$E$CVoielcef(8MyY}`=hr;Xp!#=Ru#O^toINf4R
zc-sG$`*IG+@Vp5;w0geWE2;kYNBNsI)_wPXeX6hCf@5Dnp6=YoXCK~rptSS8efR6a
zr|;c%?JzybI{ml$$CY0u?JKC=5!QV{&TNjK&nlZ$hFbe)?Gu`$8+B_7=ixbCmzD0k
z*qst*BpLa3@voa_Kkje$u8un9(DR^%QRLUptB3dhKl_i_CUUW9d$K39;aUxu`7$jL
zQ!enH=-&{&^x<KqOCM&)JU`9+K)U&9sE_p_|IHFl|Nh&}5OCa*pCOoSg2ac{KOP-O
zWcAwd_qEk4-pbz|VQkNrn#6B;YHPLr!=^v7-~azpcj{`JCbB>=Ab3HKc_ru1(9OmT
z)t54BuIe6Q^m?B#-^)<(v3Y&%h3=<8&mOieKK%NN@8^@wEDI7&bw0Eyo9M7QNj)*~
zt;p~FmKq027nc0lkj$NR(c{VWr-$oXf{V&FI=zpyGElH<D*NAd{7IvTubPWP&4P(e
zMaNzCPkUW4;o;_Rk0K$1>i-V}e(;p@^s%;y>%0vNX-N_lTVrSX_2pvba_;hmH4Ori
zGfpeMo5=0U@BT<m!cvCS;IW&fz15^_g|dWtne+Oa_s^FR$Zt3wSfli#p4sBL#Q_F6
z`-Z#42@9{8#t2p{WI4s~>sEd2@dJyKPF%5Ax-gvC$0cbZgWmG<j`xkO3)UC2`9!%L
zC{WQ<5PzVt!A<!^%G8fS0&?=<eNEDnd~~k;WZPn}CSGFA^Vx?@qjeJW|ETSGBN6^)
ziT-VYww@1r5<mZZ|DHGUrtj&w>jX=9Sj8R%HQtDjs)=nCZ;Xp-XZWyB>Xe!d?{fzk
zr9bOMix~`z+nDt3S07lX!@kw*O9!WNUE}(!1KM{zO&%O$(BJ=G;Qm!N<GT-HTZ5Wq
zDtGU2dHK+J#*7oKS2bITRSzw2dK~d`mdE5G4&5pJB3%!2ww!lT>tmR&IDKLFN+x|T
z$HS!zYF#r{*)8E0X?Ve@x<pAq>foHt<Pw{oSEMIyK2-K&>a@ct+Osvvp4qMuWnhs%
zC3n2Z$*AR=K%Z_MhYQ!!m-9|?2R><JIcKt_RsOO;<m+IS=m16Ar#Cw?&oEyW3UU6q
zD{tDH5B%&Gq#fG|m~MJqW?2};ns!$En3d<$$5TJ5TveV_a>eda_Kx@`|K{DUbzxj6
zeV3=yGh6JLCf}YzlS3DXpV17jaLB%!^T#9Mx6KQUpq~qFL~YejxVu>-dV%!1zcCxn
zw)5Xw)%5qkt$+v2*T3C6k=D0h@vnjpEF$Y)XRHt3a3FWjs*<?<U8`n^G!{Aj(&hOU
ztY%Pk$oNE6`=q)vc2Q2ttyCW#>DR8`cT#0-N=jx715=RgdZDiyFWPIXFY!v0^D}EZ
zFr~fu8K?D(f3*%Xo^09Q9W>Y2H}##*0r8)E9(|wsaUI`GhQ@ur%PXxGFMDKKAAZoK
z<J;~Zw&A+``uErSFni5+ycwW&A>hW2t}iYMF^z6Z-c^gf5vggJmzQ9$;d4u&uB$hz
zjKGl-)7GdSRw_|FVfbvN(zF>XGaH*LmfvBr5Z<OH`l4mo($Aj`c^{JXE8czGS<L(1
zTIQY|Zzl>EpVJSqn4TPW`u4}$PSe(FUAS;6Y{3J|xrHH`rC#cs32#e;6di*v|C*8}
zc7DnIVu7#4M|qZAjdO99d(idfO<`?wPc;8i#!dO$2QC$+z9?^ax~8%_Y|q2#%BoL1
zZ4;eh_?6thnrZAmcvNAn=e@~sU!A6Ln=NH=eO4HBMtb(XLTwfEPRW8Ql?N(PsndFN
z&xUWDe9}B3Uht7_YUT!K$LreMT~nBUGkC8wPn2q1{FQN{`NR%UEtyS9tCw?0TPAq@
z?r&3x4c&TMD=K5lft3MY*M6LQz>(|N2bI<KioaBNJnm<F%#>TY?IZV$*}vmMXQcEc
zNt@0|@J^`~H1A{z`=}c|RcM32S}*4PzRePA7i$-IDEK6;nQatdGWlbo|BJ`L`g4wc
z*JwBs{33~k<7&qvuT<d;2N>8^gj_hu)zZc%m>_fDdrX1np$5IE3VT+O<glZEd1RC>
zzGS+u`AYDjgT+PVMMrMzWX@OgHM#%K^<yQEILEVnr~fVRXIOEE;qipYr3d-e?0tI6
zW%nBSlGCqhtY17yU`pG5&|Jjs;nNErC-ck4{r&W+TlSZIbG?Mdskb{AkC^8zmwjQd
z;i9_!I=de)Uj6O2yI1@5+3WM`?*0GT7r*zv@t^tpbsv*|JYQUY^Y4RKhx^O+@3|n#
z`*{I>RP?q7ZE+&}0daR<%@JIo_Q1)i!DDC7%8lQB=k~L_b+PlkRCC*TTd}m{j0kp}
z&=(U0j?OI;DmIZ2yr<N|@Ur61GyTSx2LU=9jZeNA`|z7{bf^nPy1zSGH<|OAQzzSv
zAcd!Ix47N^70a;ueq!4;kpp|nqOKk|{QShhxj|-gdB2zBr>Q^iEoo`<HGH6U#zWh!
zoj)vX$*O0QS3U2)>BaP^rQo)tjtn2)oVay<?lqD(^17%0FOYh5Gxg{@iEe8v;qIH3
zPZ(`}*nZz{Y4hi9mEq45my)U$Y)PJGdjDCDX!*N0o6k<lI?8fdsOnw$uL<^+3z`K~
z7T!Hzy+E^BC34SE!OuIkC!aBH{IH67uh;!*o0)&}`CFFher{--y3BDd|D3PqGOErT
zU@cA%Hc`>tw9l|J$6(j@=nMZvxXgYvuz#sPKcQnIPun@p8S@@G9qHh#IQ5uYbK45t
z0NJ(LyJ|ByBMwg}bGWr7ap`TJ!l0rw0rU7A#$C!=EhqOoyz_V~Yw%-tlGE%t_o`+T
zis`;_t~~U~FOyT=RQ~_TmtSwDp88?lVDh~E;hFv6bsT1<sqI}K7d+y4{Vx1yq12Lt
zev9u`$ZMUOa&#}VVNPSI#j$A9c8OVgs*EGjix*wiD)3Z%vuM{5p+~7&Zck=xoFTH3
zt@i3euMWW#S0ilg?sLdw_?<16&f4=pn>UW-=;?VE_J~#q-SLY&{!UysF>cOrizQ9}
z<7b&S%`xq<Y;25fQmya1AUx~j#z@KJ<36be_a>IS+;TZOQLH06L~pjg{${aXJ`?nA
zDyBCzyo^g=)Si0oMB%HBn2H|_PY>*jzVL}Z%jh|mi4C9qStZ@`+;5h#^v--38O||x
zjzG_C1(mW5{cCfk^6hHUXWHK)8Oj)5aE{~Y@f~Rs9Y2a4`7Q7Ib#-g+q=zq}xR<Br
z)pYNy?D?W<v_NlD=^qc%hZEk!T&<dwqs}X1az1hAgMO8JSC5sqFXTv+w*RUzJF6l|
zuP~~NvwN+SyMw~(H5wc#wfzoz<4^0v?z%kfaIdT2C4IwBFDH2vo;p?R7;P2*wI}A?
z+K}^~S@jn*MXw3X-e1u9tHq-~<1y={FN{C_6#53L92Q6~=Y74kvf*N+w(du-?ShN5
z*L|II!h7yHQPu#4M$K2e|1L8(bzHr1P~*DtF^<_W{HkA-60dOEe$Ne9>$`rI%ZytR
zOPHLch3_9*Dd}sm(arXkj0<P-2G59c9$TRYYa7-uI-c1bm|%S*W7;H*cXusnyqma9
z|3n}Ev+js6+r_(PHcu)G9{ESaOz(N-U~Ql&(P!z>b(!V%$CJu-*1Hd^OWwjUxnss3
zxy7yxFTUML2=r<3IjH0y!LwRgRO4m+#}99mc4$Oa%sTQY^O@|)l^%zqRIUB=bc@2S
zKKZ)j$tuIwDih~_cG6If-2FPTdinbqCsxc(^!UfB_&e0VLOnkD*+j8jjGwfMEx2}1
z`gY^dswc5}0n^_oDtoPK{`gtpYvG?F-Zkb=y0ux>Zc(W|Gf6)4h4nJ&Gm}*eosR~z
zIaC}Mkrh6^K+?)^v)k)Q+ocy5NF3wf+>qP%&Zcvzn)`#w&xckw<+`gdZv5f4vdZz-
z(<h;`?#nJ-=`+u#>~v)<lWwhP+mBA0_wzzbWd7>@RsO!p^Uk%fS8wLcI{MFlxpJqD
zTEON#2YYNKeoosU{2*2S@Sy{F8~iS%Y%Z+xJ`-4Qt7ozZhmySoPk0^gHl`x=3)?Q<
ztyq|NM9TSV(&LO~#(R?sSx!BE`M}_Y{En~<cT0J{f2%5C55KVJT#vx*2JM@riWLQs
z4R;dDg%#)R)MKz_2+^<#<r3V!ZffJ-_sq4X-~NAQ-t~Oy+^f+l)p4pkJKtN}klnc;
z`pTZ;84~jz@4S=y=5H<g^T`6DcFPXtzGVJ)M{?ddBgqMR(k6FLq)ae-<*N4cjeaNd
zd_l<<cW18sxAl|x){d(SPo;I7sCsP9HRqi!SE#J(+n=in_B`5T5TY!3uG{?Ep(l5b
zNQbL)eY&8qD8BiTN_T#3v+9H!=XDM9C%9j3Uvj3lb#Yhy=RGSpOWW)G*S)kcu~O>3
zRFvZyY;8AVzoT8e`TQQ)$*Q01`ghGx5(vB+&SR2vd&<VArxu3I-*?ATc(RDI>=e7m
z{>xJS-$N$|>%5QLc|~&C{v;!ny_YtrPdZWEQ!4UeR@FQ{fjBj}tpSyrDvq<n=CL(q
zXSH^|>v0nmTeHF}+ajXu8ei!1$#Jtcn&(aXyYt~(OTRt(Clv(V&G}@$^huLy$85gb
zM><iVM&Il9s9&_zc+k;g&10LK6nk>wM)%D94X!>}yq!NC3(eO|t2F;O_0p_`FE&re
znY3SC@%WC{7a8xeY*pG^{xsnHSreBDS^W2<-K2wFs_e5#tFuef+oluYT|Mon^)|zO
z>doT9%bK@~IT&lRH;DVJV3*!qJo&a;;2R~4>(lL3_CK3&a*daMiB<>?>r}hn9pN6K
z7oYo<?5uj1)tDZvd8x9UNiO4+Z;blF>q-kmLN&Z!c;)bRCvM+%q%8J?zfx3$<-`{b
z6^^ZEykZ2LGL{}F+EEtK%5bJWh`0SqcB9UWI8L3;237u(^RA072~5yzPjt1P$fsUy
zuj0A*!IGY<!eSfOy*%V~;MnZdI+spI>Zs}5spPu8d<WC^mWH<r7P~yv)?aZbR%?6H
zhKIe=>)yTd*86*Xt69Q}>DKG`X8&w6S=AtK-lj08r{iz3bDE-GfL9h9>kP|^4Vu@y
zE;yRSNXR8IH&pt@F57OGVH_MJAme*Ob@xYog|mM*ZWB1!R3CBHSbrW<4*#P^KR?8D
z?9iARCbU~8Ci=|H_P76x7tDO%vm&%%;-(V?Z2UnJ&m7ULKC?Pd_>H7C+h$*}jrA(K
z_xQT>Fg$$SR^zC!Rad}iHIHfH$+>a{T8B?YEz0gvm>+V^%WuIl-k$CR!!sRO_MIGc
z^IO9l8@IiC%e6M*h)uv&!!sWW)^snwvEc*n#kDL>;hk5H+~kNqoA`{|Y3q}#Qw4*w
z=dWzKC!c!pX;tRq3<uU!*7l_wo7=jwtUviIREk;gL+#;?SHD@SFEK<P*SdM3kli`s
z+L`R5Qy5ON|Csh!&}T!b$RDxXt7Xd@AMRLo@RDSAuh(A1MY$0NdeT_0eGLs0v)tiy
zd>8j=z9kE7IQRESmdwp$&aDdi_r-VneU8h?nXCoX3!W#$xoR#7<h$*%#%ZacfaQbL
z`Ww<j`JU)%*j_GKw}Cb9pYQrzy=&5Pt{<q(PLj{hyQDEE%%opBWRH*g>J>k)Jc@d8
z<HFaqf(wpS*sa+mJK<Gp==zlt9ktGES!v3xcBSF&-_;AZIls^rFUi{YpTnQkLSfFc
zda=&vS+Xx>Uu1PmI9S!ixob(h__6sa6O?<FH+KmAj+be0n!>k8<lmZ^3@_PVGal=@
zYxU}IL0Avx1m%zC7wml)m~3-5`KyUl_=FFJ3daOzG4+c|au+PWa3*D=&{wIPGG_H$
znf}9v6@Qv6cXf<!Z=ZbBsb1vXOJ&=#?CHnsBMyrBPKuXzs0<DZ%-z@dr|jJ18)hmq
z1omip?3JuuaZIms%@1a!xgGzv?>)QhmHNxXMKauq|AYhIywM1{#_ndFI<G?Fz@@zV
zNlKAozR@$!&U0GZbZc9dmL_X@=+EVTLZ72jRkTypp1w-HoRr`%dH0~g6$fiuh1wje
z3om0TZTYoc28mW&RXMm)vq;r$p|!EgDc4=Xo{Br-vyXqc^WynME9p%<XWSF+NNisn
zot@evQs_}~Mcwjr=+bFUm(0#FetIRzyUR<n^18kEOV>`}v#~*PZ@VPUy<Hy~_jkV4
z`}17McK1|NOx7+?e=+U%5|hrU$*m<fe4abLU1H$cy1}z`&poD%fgkSk?46YI<8h+G
zpH&6X-8EmnO?l=srT5w#r6xPem4{cWr95BsB+1fX(S=$b?dVhM&l^NMl02~5M*5g_
z>g07!D>gosT&OxNFQep)rpLF75%RZkvLcIS3Ei5lHov!MQRB)RNsb{UOYAPT=`Jbh
zG|riF$GNBXPqUz~^RZdqR)x+fc`Gqn>HPwZD<^gzo5!1XJo1h4?{AIec~AV5^Dp<g
z-Ak;{S#ra2;-YAY>Tve$3X7)k@mO=m8=YHx+`=tqeQ}1tgA?tZo~(adR_OK}{Pxge
zLk`Q?S>`LIWK3~5&+yry`P+)##qVakv6j{ekqs5&{H8oh{-JN)%fnVrPBTl`oNHGL
z=1^&i4J}CH&aMz#9Cj?}^`bvV3l3a=I$N5>OkC^B!lU^j9xL(>E3H)(u9uwI%pVo|
z^GT|Y)pf`F9<M9oj`3|e+QR2>V+~tvqT7<4TR*?_l|A$9>&&H@Jxa4HL(GbU|3%d=
zbmw_(*mL%?qH(YKyH+1|g&EI&>a4kxnWtHMi^*or8YVY(*|6JbjvabV4AHu4n$N_3
zo7%MMq3MN;5RZC|OgF(ohohkj4;oCc?#NNwspHP^rS%izj0S$UqIvfJHaW2bMC_dL
z+3|m=<v*s~Rv#|g+>yAI@Nc=l-Ld`B70XUEu&jQy&`wHsx!s>yw_R4rn?ie*ZQ<})
zlXmT(g<o>}gY}Dci-zuSXJ1ljb6i?RNFs7WGK*2bI=3fhV}%bn-COUPVXSiM(~Sqy
zxj6&RG<1G_x$sT#Ne$z3T}QT@n0ry~iFRNr`ymN!|J(<B>Y*B1Z1a|swPdZ@aa687
zc3FL9O@++w9#0EJZqtqLqIG%7T4QR{b{1IPm-@h(`zk=kh1Ko-);{Nn^HbJMJ*Iqg
z)!xVtJWuAZ|EUhi5P5#(!j4E&BVOl;nf)*BaD3dO(^Q(g>cZyvt2f>Ld*jr^iI1M#
zxn^iqGV_Nn^OmQszY+>7FD&Z~^mjgKc<ykoMaHQR2R*ATv$}e{y|b+39(-oY*=VcQ
z+co*~>ch{>r}|I4{=wEzKrnv~ccc)D!}_kmf4(KZBXrHCf8spTb<>4`wP_J&oz}CC
zvcid8&HZkxO0zz!zI#AKj{Rd!^3tg_f|g5f-*EWRvXM_)Y|YI(lXqF(a@0AxgLUbA
zL*4IuyL&_n*9tpnc-kb*K2-f!Y`RmM(gXEs$#quq1%#D(w;ydyj62eq)p<EaaOcOU
ztM8jCAD@?6C!uX_=3Kcwt?TLLIrZn?{JY=%_vfnQ)}?RDUSwLSt-Ln7<+XX;rz}g~
z%a{I0Et_j`czsQe9=AyQrltQ(|I0}%d~DLG#$s2+7`h-d+h+}r(GA1?Ylm%?={?^1
ze90GG8&PgQzZn~SUIp6CiPX|}R$a5{ec|u8kR4NEuW;JQ`qmdWs$@)03Ro$+aH)bs
z+lQ|E|DQZ?5Kdks?b*hn*R{!9c%szd${S3@p~)+5^(~IgeifN_N6KurkmOXy##mim
z12Ki73th>Jl3vN|o4NI4mO=QxeT;8s#GHHhJh744#B%!l_IcBu@$|m&`&s(Me8%RV
zU$q=JsxQ7|7MY*9sr=aH;MjYA3*SD;&&o@9DIH%{`ccSY*@~G38H$~m)AmS}Em?7u
z@m7C#gUg%f8#TW(I*gb0?wR$tYEi4<KS37h@V3x3XAVZLR^#wVxYa7TgO9hu!_&%j
zVS4A=!#me-6kT0pI_un|Z=UnMWXV>ZZ)Z(BR<?cOivsCRfx}+R(|=`N{c`d#+qn%d
z1f`YFu9EIlJ@zSVy;onW#GaLs3})w!_4<`&*;wqIxNO1WRew~(7GIUUFZ_sqcFm$Q
z#uD9O*}-d-b{=)PtHyTya=mi<g+o=6&P%&iuDqz+8xgVZp6Ug$nGe1jIxKCwB6Km1
zQTSbv$#N?%jmmrHmS(&z+O^Ex=-YJG-B$lNjQ?>>SFibYru@Ju*KFMb7bZSse0!+#
zkYwiB$Pa97E6k-Iuj`sTFXJ-H`j((mft8CF&z)IuLcwoccBiJ>hTshs-mQqeu_J@$
z*}-{@4bn@aZ@AtS4pvMlZQeL7|HTD%&kbjo|F7O~K(h4suFEpEo|gL-?pT)6uziir
z<%(d|rBP+uw9a%r$kJZE?`T2a?9gqmt|VW+<hAH}WaZKVk$KZrt_oR}#j<;~(bc}|
zY5}VvmSs6iDH3$7416o<p3iaq=eIDP?#3M*Uw`CQFG^8cJ8j#kMfQqpcY^M5$9`#?
zXZU3A#c5r$mu;}TxL4ZvrQzLro`mnSdV_z*YMsvA7xDI2%G(2N9YGPF)c)?glpGqE
zUEG=Y_lJ7{7u#OzqW#QOm&J6J7@Am$`Q2K#@BNzExAhjU;#eKH->waN;n;m7Wvctz
zo~2%ACTeY*FK6)5-+GOhn8GIm^NhI*p8h$sXWommy@#!<53XMI<;R8c(ifYzZTe9)
zA<bxYx3ElH&x+`7y)##S_j_5*eDM0q+9z%&<ge|wkH0y;qUwm(x<_`~U$1|eKiBh1
zO@`GTo3k@m#l7zvl^;?%W1YZv@!|d;(cM)cd)8fA;U~%YS>wIhlelLGP2!*2DKINu
zANK9^qRmt0Pb`fMidY^OekOEk-BbB{AMQUn#nbvHpo6>g&}F5_sx|8N(+{#$)-yJr
zovS%Zzi%g>FaOz)Pu&$9k0usg|9xkZ^!9m@&rW_8*zB(<Y-{*s*_?waL0PAGCztKs
zA>rmat4jRScYzlTfrhLrdzW62KI~?=N1#Yx`mqm8=Y@-#t^9UNzL0Rs-L^5vLUPCB
z>cfZC!Zm}!c5S^j^R`*qjcu;NU+)&j+TYxF=}&BB-G+CbXH;&){(jwDs=54H>V|g@
zXT(ZRv7F6ta;ZbHwTKS?(^nzOINyKqJFr9VmB_-v>vJ@h?K0VTZwXJ`NwwcqG7BnS
zKe~19X<MJ?N$cxID_&RlhoAZ{yo^)iIP<o7M!B1&e9X<}bz4%Dmg*n3wbDuI&FQ6u
z-_}$xWZBio>74!d{Br2BxpBq{*Vm@`ZYjO{pwH;G`sOy1vu`a<xe9)~vHsJRU)}c3
zvo}s?s%*OdRC?8`*s_|s6PhoKQm&|ejIU(6V9F8oBqDzG%;rssYa@eAUR;i2*Y+v?
z%2K_X<zmJ0jn~q5Pk8a+OWTWIPC6MYEFUSE?dJ%ZAL39mRriXU`THIw#{A94?5+J;
z*XRozYnEc#?D%G0v8;52UtCwANiWwd-kTRz`87S(e$JA;d8b{CsY=^}v(`~}W?OK2
zmriEgrsoyKFyYHi-<8&SiTC%+n$lyiZ=wET&gsT7V!ZLP87&D<GA8E7^IF%(J@C!i
z>S6nOvf|0biCP;JH%cc5o?jp&DD<SVO?g4{i83F@2e~0-=R_XK{fW97rTA2KN%z^u
zzn;I0(^i<TC?KQp;KrZUlCz4_zwoa0x^?@r$6p}{tzx4u(+Y0<4?A6xUc2{u!#@`$
z!>=zN7dgLRE;?fG)qF6kuGC6CY0CzK<JUb8eT!Wr9VzCr;r4%-ejl&)uN^aY-@IwN
z@bQ{m?AlA$o5@GXGTCi8E6LzgrM~NrMfWC&YmU>tOS0yf+@Jbt^@gRf7TH~s^89v8
z|E2Jxp#G?MLR1Wo=&EVH880Kg9+N-BQn7U2jJxlx9y0AbxWz`>ll}I^4`$p(*B@^4
z+hnhOr)I^!y}?;LzjhSKiWt|&XP*8kc4mTMi)LZ+=LdW9Qnl~7MjhHGH}AQGdR`uf
z@@`M7{-v90{@gV<+jNKB%I(;smI5|W|E(7UuFqcj`t0YZV#BcOMQYhTOEgrkZsCZ(
zT+hDdzh9Kn#4R`fYy5MY<zZ;cx~J^kXG39G>%@yLtaHzAkUZM^RC$@m#sJS<GX)F1
z`TgRq#{LqG&br@oL+p4`@4mTZI$b5+?0=i?vD>Nry#D3+$zv~k_r>pP*zNm<`+L*t
zcU3JZX0~4S*OkPtf40h4ekJGB(KcJtl=g|W8>Vf)d{$bA`^r&~r);bD$?koSas24F
z+b3SCO>B>;&|h&%ZtmK3+oWYw&Izn6_+0AFs~s6|r}O)DJ>LhdZp%Ku<!HXLW3EMA
zbiLNJuI%!8_FK1Y?6Up%rgO@qgF7cIkDfW_$<>;VKh9Lhs6}tR#bDI>yLpz`!Pmw;
z->>eoJ}+(9d`sl9ZYTE}$CRi0LX%oKW0T*_5IX$z?ar_FHD^4XmLBC_^1MLjhRs4|
zmmUA_o?UHj^vKpr`g{4oU0rhLXIO>G1s=3|!xx};JmZ#z-wP#m(c8-;4{pC2B^UjA
zuX59?Y0CYKUQ($ql=iKSiwv3?<2X5MRcm?ja*ov5n(TMJ&ExB>YG2IsEa;xB@T%=M
zz4!6gZN8^2{H5}&x1qD{EfGccpc3AbOo}gWXLY}x^xZ5^Jgq-6zp!lc+O@)$vShU$
zmRyMq&IwaI_RI9^i3<%UZy0}4P@P_7ef9fFsq(xxId?nXwf&L1m9e~<MX177`qFI!
zJ}E6br+F&&{Bt+Iv_71kX>0R5eWmG2?)7mq*N1ACmmTzLNnYjiomX=~s#R?Gg#gnQ
z8>ysq{1xBV@fa{y=Sj8B3pVXgo%+V*f5SOjvy7!JW%svDa(&c()q2wZbv5r-Z8>4I
z-T7g;&aK0ov#N#OG9UVT)^Pjzk~v2bzRp=BxHCqXw{u4ftLE+nGK_y`p9sGwVH>{J
zdb+OC!t-~8Vsj&J?95zrK6=|*i!LeM^%u-9`+b?Gw#=w+i;2+HXq&B>Wj9os%=%WT
zN!*m!bZB15jAL7FPAHc;)hGMy+0_RR-_M%=`o+J+pVZy$`|p2Swte1{C%)@f_WZs-
zO>E+<k|!&3nl|kz{eGo1+^yxrg-JK}E#?SY?&0+8XXVG|RgsrUm!1`8+50TV#%_<}
z9LD4`R@Jx8sGss!IR8%R&hmKX^A7w!cT}W{l-k&-Y5&sMn#^9c@4|sHkGO_E?~fed
zJ15jC`MM`K-E--gQt=Dtu7^%tz0ZVGI_|Tl_!-CS1&XgE_kPK2E`N15_$AllbGyaY
z%r6)AWZ8G#Y0nn##tS#Td}~RzP|duPyuT~qh)=RjuGO8buY*(iuj+r@b;y>(N|(u5
zPR(>u&dkUz-&cllmzQjwUb3j7q~d1u&UGg@?yP+v<h;r&?6tJXEN`b({)ZW)Qp^OI
z?2pv77xehvx@O79P?8jJQ<Oc~#r4d)vvajsXRqDf_UwA$ntj3n_T9G9AKu+xSmq~Y
ze$6zmZSCWexhjWq?uN>EcSm}B_Ne$i`PSJ-LVf=h?DE-NCaQUQ7h|9Y<M(2Yr*dN2
zkGQ&bE<AeU^*Kcsbp^Aa1s-`$vp&w<P@Be_e9JGne{OKdn;ZSMPg6dn8*ZH;{4!IM
z%d~I(|HdE3UJ1Ub_u)Nq)pyZOC&M+dcd~^S$b5Lcqc%gZAamdC)StH%r@T<BT+N$M
z#Q3vKv+mS1MuA1KcGG61v+fMO^dg#dXZXi6yLpSA2YQxF@96L3)=mDPW15s(IJwV0
z{mxtECEO=xPF*VW(faG+jC~dI(X(1Mu<c?v&NOGvZL6;fR~+nAOnfELp`>pZx~b27
z#k$9GPSy%}mi%%LV*NLUyH$jmEA7ocdcN_*_3vz#tDcyJnSDG|{xi2>=C$+H(^4GH
z+ol};a;e1J!Q_5%V}$m8VMhMDS@V}N^&WGL+RVrqI{(GiomT}FRh4r#x!-b4ePQ|9
zdU31K^iJ`0rv-iAZrgV4$A2?!gY7<l9R=$jFJs-c`|X$Y8yFS8>rL7D^mpQVby?nJ
z*Yownc1}D|_Q*2)aBE)PwuAlQ&J*G^bQZn-x|YRd&5t=IRlB-%Rs^`E{GMa`&~(lT
znRd?q`?tM3kzRQ$U;H@NA*VBwF6K!qvrk=pS$@|e?Zslto|gPq{IvFmik?r;I=iDg
zg7=>IwOQd*=aU%)54YWpn-frYs37-LiLm5}jBC%QuhCdARrrKW*jfhWHRikjhBlYa
zc{BB@i2k-}^LYn0+Rr-RlEiR)&I08#(FcWZh*<s0U%Bbp`KrwSI|O39)<0T)>)!D^
zwdFapSDc&>9c-2}`$`l~@yY;Id&QaeZf)Z<=UHPDxzO$GIn^?+FMHOo##bfYu{e<&
zs-S7&zj|iL_s+c@QI48Re42z>Q;IU<Z~RdYTgF}0`FC@k?%ImnTZ<TW+WonEb!&p!
zwE35%7IFS$dwg?2sn6uT+xO;eOq?=5^ZW6zvi6HtZml=#YEv~&(>kPeuO&3kWBqUS
z>`a-e2RGjB+wb}F(LBcVnA0cM%9O2*ia#A$R<-b9<IR|lO*VTD#h!W8wwRlhCr<OR
zcYEfZyBgm%-E6OBVK{eivW(SI_e!O$0xPB4+@cg-9hP>H3pnv%afK<PmB)p>sfTQ{
z3l$El#w}ZJXlTDJF}<71eAhGgk~!}U99qSD`uYT_ZKmxOIMrJAS)*{z`SLKmt?QO|
z9X$Kts!DlfOkTkm^M_`ImkgI(+rR$PA*T6StTM%G_3~a{3R|2R9i6yh-AxCJPm%w1
z9wo(IPMt0=y|N+aR9{^!$IKHIbI+aiJ$Ij}M^AR;w|#xDPdUd$wQLnNwz?-~v3|xu
zw)fXM?YN!0FQk9znK$?9+zF5QHw)B9|Cuzq?Vj0V+b2R%hi0ricWcA`Yq8ee@q09F
z<?pQ7|JZ_eZWZe$w!9S+Jud|;cWqiR?X+j&eUZk);om~E+fsPXymbzd|9R%ELqXH7
zLnkkV{q|*S+;KlI_27={HS^Ek<oUIA4$t0_lU=tnm$aN^)U9|Em*NwxcFBFqWck2_
zvL`JL@+(bx<@}0^G3lzp{Jk%#%eC?k|8;J3tlsnGz>;;ILO0H<dvIxOv3;>ff=@bR
z)%Ku!R-Ny8GOX%jgyMf*SpRIBki2YlM((l->lvRbCi|S8mwxa<&E1=78}C2KzP4uO
zl_gIvmIN!+@q~A2<>+oS+LZliNu;IWr+1u_BR5~Hhz{Cu`RvXGAD;S5KizY(Q`z=O
zp2;8a$2EFsc|KC{ifatw-%8g6v;4YwO_HOi_Z`QiJ8j!)J{awu?bbcnyGg};|Iu^Z
zSC)Np&Dhmd&ayM<?geWX9<w7ywO`NHZfg4Zpy%Kd)2h3^28(6SUw`&t!k;Pc7kX|#
zpP=-$`-SCX1qu7VCikr;Ez8ey4b-tx)HZy)_kGrmkk)&i{=4@rHSJ;J`@2@dvDuEN
zC%K5tC}-}rf1h3~xb%}vCGX^2tB;4I*B(0C^|EhX)%|nf?3^LJXT1;e+A&GT{C}$$
zv+rbpzm9&L<YtGhkDsv3D&gd>*_N-j_250X6}zr~y>NQ!vhRY5I(emvg6EDque(sH
z;N-ZzqDokqQ|*N4ghm!=fyg!AfAXnW9D3&*Gj;Mt<6Z7fi@9qg|K{0zzgK*$+EqVh
zQT4&!UA*c)BqP+9iL|cn$~t_utdw=C>IOEy{zY>BKMq+XpKK`=S4@=JmLJOPyJm91
zt^*f791L~)_-vWU_9e%o3l|*P936P$aE|N4Ym0wz+|??Wax1DUc=gv6BKb#7&uVC_
z7kc6E@wh$X^O6H!B>u8!iA{L&@b!Inj&B()?EIG;j!mq+p1LS2-{#XZ#aZ^5`BS)p
zCx4wV|K~C7R^4k68;d_1^*I}Pe6fC{e?4=>x3D$dH++ik2ThRNzvq|zE`>Mg80!}y
zixNTSX&M?B8=Jz{FB(~5u3t1ZAZGpI+uG>Ks>ciG{n_Pav4$hMZ$rG=mq*1<Y<t&L
zPnD=K(3sHVW9gEhYbQ`MV=sfnBb~C1r<bz)K5xBwUF6ls=SJ4t9D-bII}gu%x9ZiZ
zHD~nS-@m)2dq?C)`=9sI_2p~-?A-nH*W1NkpM`(8zh1ufyT=jsyifM$<L=dbVv*lu
zp2!&%Rr~qLYWJ79g~>h9Eqe=(>D;?-Q~C2nx%GDY1OGXlX56>`x!aw6vsTR`g|k8~
z9OnM>4jb3sIem0S!qIoL|L$VhdMorz+#7zY8AsO?eJ`sI=>B$VqWb+e{9^UbKRRxV
z$Zk>PKjeRFwyTx<|9`rC`pzHjMyF~Bmc<{x`b*%-yJ{IneZG0Qn?EIQ&5Ymr{r-dB
zb%DE;BTsMsW>+~ywk!U@{BJ=zNxY?+T=(kxgx46%xNCd&@VRwPZQK6s$u9e9^>+Q2
zbE~%PU$lm+y=tp?-NZu&TneTIS?=HM%iUV|$!g8j-O0b-ZZAD$#V@y2fcwI+_42kq
zSKmL#biDSu+w_M$V!M-P`LWGh&aG`T;rL{s|8o1Ik1(c0h%c8h)_Hf${q6SqW%Hxu
z8r}vu=?P^#pZ~qRbfaQKYMHxN+e^+&w_9sAYc3Smzx(dG#kxzYw|#N>$I>0sB+g{_
zmO*;2$L>{k^<U(?6l^~%dz<m@qw6nK4_q%_9;6reOC@4Xz!!I;(z>%+{^$Pw=#sha
zxVGS7^S!O{b*+~VF-jP!PP3`Ai&72`_51!b?!cpx1=V-@`sRJwT=t{?yTzsB^VxkR
zJB=JnvLA6Bw|%qWvO}Zy-<PaB+{^dR`eVJ=Nh<AuyO!TPx2Bcz{s`MBO<i){qJ||R
zaNb+rUmPzlR|MUZ=03i7&%ySGemfEl^XkN}eo$KVT>o2I;h{BV`;~3yGT1Mz{=@mM
zh2>e=4a+-=8kA2-Z@rQD<8FOpzi62Ex9G1)rZuk@?)zT6=Vs!;;^>F&-1RqVcdjn^
zv*qH)-QSXz7SD0Ej@aGPu5&7iYr9tVdo$twtLs;@AM?9!wR`1D*|gxPLgBfqzI~eI
z+xqbHGOyel`c1i}8VgQsdzZ6lQQhb3PIiCiJ&*qS)GlvTIOB=052i+3dr)}vz`h5E
zSMTW#x9H+r-tb(j>TCYa)$*<@8`@2C;+|~Y!FI^<z12h!ORhWfmVZ$0h)-8qAGA6q
zMnS0EV21{qi@>_a6AoCZbeJT%Of>#*;Jd}Xn6PwB%cp_7249o~^Wz_H;fu357;$-%
zT~g)myPps3)%p9iym$J(Y-_J=d51V(FRt8KaJwP;fO}i&R<l~`;-K^2g7l&+#93X_
zmi^z;zBiO_Tc?MH)uE5?^gh|7%v^u_`dmgMm$)=X=?S~#R0K3SmY;kX>ZEXCVeXH+
z->dtbwCmTli6@>@mRn!q&ER+U@eCs-{rvk6l2|+}s+M__a$RU&I^p@Y-YR#GKe3aI
z%b!dvOWU!~q5qa&>*Nsa4|97sK543+P^ejOX`;i7_1cPiGL$A?V2M;bx8YEAP^nSy
z!jPa@sUZ!iVzH?=CG}X9{f=@UUR5Q>BA+jo5Xb&U)@#d;qJ=gtmdu+jHh9gobgx)1
zyxCyWVZZY$I_x!U9$o$Ze4WXjWnca@%{DDs{N2Ux<wUcSx$`1V2W$MUojAFLweqsE
z`cg+NPg_;Lr8Y6Em?ke-Ui@#P7e~?gzVlW)T6vm3e9NER$8txYBO$VPPebov*4Q<(
z4eq_WcX086`yncGnoFuKF33-5Wyt%fyLzY0anYU)zjgb#x8Gpta<e;lc*`*kw~Gh%
zDty@Zcdl&$pFh{)Q=&Z=1n*6oSg<yhLE+E@wuqJn#rF@+uMRvWx<yl_{AR<)(?*XT
zZ~4t=(X+yv+xG>_C+{n(!UQDj5A(7zYP@|{|8Rb@$t|IxS67&nrb^{5H7-4t&cSQJ
zP~zRioU(Z8R@tk!>auU==ReMnJ7?7_YBO0ixmc0+X;4GF(yDb4r<h!sb-wDb@qY+8
zykx(^n-}j`wS`VBY;IsOV~l?LXG*U@m4yrk#{<{KmOt%#85;C^-?Z>)$7<MFzKcwg
zs|ohr=d|p}*0O28U#;>t5lVMwxhN=ETlcFtg6YkY5A&q2q!z@s-Fy7*$5BhIBONKb
zeV=R-%Zr-o)9rCcDTR3-_p7yjCTU8KoY=A+SRIJ?o)*f^=%eIRHSxh`&)<B9mz*qh
zXJ+fr;x_0iuwUf#DW|SETuENaVTIWSJ7Wg1D^q&rbL%~bafp7TwV7Ek;JBaI!JN8}
zMFEGlIvy&RS*29@uS{OidJhZ3C&PX0S!{Q>r#=1g%R4ZVZ&LTMX48_0O~<x1tz=v-
z{(<p{S;n_!E5=v+K84o~O-&3o=-G8)_FjS4zgM))-E{eZ@TGGX+4N3d+W)z2>vRi|
zS-eNyoz}m7=&~=vM;FJW$Ff(H+&(;tS5oGhSgW{-t!;}$%EtI>bMM{R;C*Z^gYS*=
z)rQN9F7Th7bK=5+n2ru#>$(qL!|Xps3bj74SjJlO=l8eU`*YquZe^IkpR;nYpcAue
z^yVM8o5PHn7Pu80FB5UmcIIT6k!R=^q@}oJ@{1c1)`}V-&jaI&%N`glNXk?<XNm6J
z#N~T*+e-21JCie5=ZTzNrM~0yw3t_4mMpedyuGI>iTQ%whx+~5*6|lI4Ef5h-71@M
zT<&Y;!evSdwQCm#?Fu$@lZczKyk&8i`VA+`^nY(8bk)ynm8qzV3@?8qVR^gC?pSqa
zP*L}Vq9*}ogG8MxwRcT+(mK3y(jjf@VqM!4OZ;YTs5;hRJvq3!ZNeIF!TFvneSZ!H
zW&UO_ntd`!s=)EevY0zMPOSNtdCYDeapYv1v+mtXd&#rTi+yM33C(0&%3dHJudC&H
zfAWg$ZN<Ot9j*-J^J19kU42h=f@xYnwHs&MrHxNMA9}M&{hxSJ(4p7qIts_$@dSK|
z*pl2~Sy!|{ZU@I(uRGsPDDN{CzM^nhY~}sqbHg(h<O&JCU+>rbtVCw@!dVgvmrm~p
z6@6gzD(CT8FPD|ork5DjNvcLUaGvQm`Q=pmsUhU&uh$p%?YO!@AZGGnRgwDZpFLh)
zT=mR+TPve!(C@pS)0Fa<CQUebH}+CI<6@WDEH4fnSbEa(YgQx6g2s8Oaz(<5|JKA?
z+>%@)|01|*v&!q2Pwp*xdb3?S(yYNI;glZZ-W=|8x70=NmMgD)9N_LGE_`+Jy@x&T
zdXjvF-!H9V@?F6ldVY=f9p)oHV~uPUpO=(X(g<g~X*-j_yoE39i1Op!6D`7`u}4mw
z%4~TuGw!&<B?dpfzG80fBJmvwCsXZ&ZX54hKPBo!w+s7TT{|nI1J-3-ezw*Mov!?$
z?Q8ef81MML$>o?tqryY(Lw8JK=B1rv3;lR-j_v1^M?cTVRHxsanK7Zc|7G0YO4F$y
z%Uw(t->Gk1%g%d~;c`X$Y7w>{?7O`bFFKV@bvFO0y*vDz57XnB5AGP8U&+hx*3K$m
zw|K?mY`fr+dpWXRYC8*c*5tAN`{o}y*CP9)+=(l@E5z4vDOnbWZ{wROa=S_52ul}t
zl>_sVyyPDN#$|qQwN;Nio-*4Yt~a<L{YK%nV4gjPUWdksdj#+<mVfxYdb?KKZuk1~
z&5QOu-z)uGDsP_4|A}|**t~r3`C`qQ3GvpKmESL_`69OH#LdGZoNf`k73PMkc~4tU
z<B*-Oz?V0TkzG-q>2<{Q`?1G_8$2~OroCL^eB*1E-r+QvwykTwJi2|g^XAe1b2~mR
zczP--kSl-XLpJU<X_+N%%a0y-v|qt!)3JLp?<*Eeuie|wv1k$Nr;wXFx4zk8TYBO3
z;=4C|-z?qhymH3s*$#5PA7659-*5h<W7o2)-BzN;44;IPxz;)7eO$Zs7K04ylQpkf
z3q#5a`g~?>Pha%>>%)+}Rc>n*t$*2n^_o|Rp_vbZqQwiZYzZAPL#`vUf6rsoVqQIC
zvL8=n!|v~zb;~xUna-7L=zgg3M5LKNW=d!Yi`|CDCstl8Px-$6SIx&q$`R}paq0_B
znZN&Szb|k9K5b_X_q4n%L4L-^n_j#Ve*f-4>Vi&&*)B2*PVVcs;<00h$!ATFsO|n4
zdC^aEi@f@@f6oqimjx=k`p+!v!I+Vs-6}uD*es&u!sBC7CKLGn-Z)a$GW}!lqSKdi
zGun5gY2DK}!Fbi;z_X~^FJ+zHbvUe#{oU&pJI|!baIx<)KhubY&yn)mzZoq`{48}c
zP5)DCkD++u<896gIf-dmTtBVy)i-?>UMSY%*|Ig^vx$S;(VZm?pF^f@i|u{7LD;qX
zL+!r@_tnnvN$EbdYWX_J+F$K)-n|udOVgRT<?pGuFXt{6j+1}0%6#Iw7WV#&>ve-x
zx4S-Z`&ah<V#OM1_g6eOCk7soHn!ybRy4_-Q~#|hgMy`lLTtqGkj)-ODanhREsskr
zyJQ!!{DtZ&;Xr50bw?K8a`J1RQ?f<RJyY4*t>*Y_pW70W`wpHzQ`>w0P41R-(ZtP6
z4u6{VPTXs$Dg10wzw7F|_F?mWNzRiAkp5G2Fk+g*g$1Q~;Xl7;PPwdfTcEWh;dtH7
z?+ZAYgJj;Vak;<LsAOAssNMyQBd2<E)eTR-<FLFTw}`i3>z9C&?}UY8^)t9bzeI9%
zYWd2GS>8D)^}tJCZfCwrarI;wX1|D2;+)!w$4^+z?qn<skTX2D+Vw;_bCS`Y{G$=A
z3om}q_dB{yYj=Xf{mADm>5}(fERo)8#rkfF#R2Eij|;AS=s!`?bEWb7O~KzkBsNG-
z-Py~XzxYh-%R}1HJ_`gKt+M#1EGlS|c-zFc;au$z=@w(JV;zq7d_T;2{HZl|{S;4A
z@#(WCXWO0U+_qdj_)kxE`kxnncX};4zbSo6+Y`Tw#djm@*|ul#h3?ccRo?gH`3dEl
zUT<S~wfW|4j<dQ~XdLA0{$;Pf)LfMYeOc~^j@eHRtzEBjN}6xe)u=0#dkuC+=f##z
zPE(7y#(Jt__05A~VwV?X{CKc(diBkZHc7G%-uhTc*7FtItX;JBe?Wh;Y4uC7(odFp
zZtUyT)bwlPy$!6i{34qk3cd|*T&ZPv`thrfso$>E28I6nY?o&EYv#@fm&^IzPwiOw
zSADYW-_268XZ1L07dG_gHMARLU$lJ9dg7sv-o+VTl@j$!V;$2=<o(#~nEl&tSG`ZO
z&YxuXXK#7knY)rPqK4Z;Hd)6XUUBZto=@8OH#SRXGB?L<|E%%Fe{wg&f!P_BdKKTV
z$LyPUjz9O&j!kcRUaeU-XQisb(gdBJ$c5o^xc<tm%sD9J|CotSc%Nh>yL5w^)AsTW
z+1WPdethUMydGxx?bqoX2iubMIW@CwJ9BGh%O<~4S1{arwxFm#uwCQjnRmCUCeCs=
zTB>8Z^2OU#=bCSt%0A<m$<`TOHe<>6fIC;d&e?l~ssB=%d`OLJ$)7Km)%)u{zt}Au
zu)fsi*RjX@1jRzQ-sVp^c!IUR^2z*~Z!aF7|M%}%fBwC_6<<E)=O0<z|6lC?^U3u;
zSpR&!dH>Fzn~VMJcmF&)_2*Lq{(z&rvy_UecG~D(JC(ZiC(C{9rr(Dr-12;0)5P(5
zRpql4AM;<$t8~8jzjEsA(q8`QTmPynSh4SrxN_I{rLU9gx{8-Z#~=J&>s<2PxX-d_
zlEd}m#_q<6eLY*4QcVlJLu2)qulIK_+4RZiqkDsL*4y<?i`Hy9@yAyCS@7xuhZ*M<
zFS)2QF|NY*`qawC35soOB54c4du}&JXD#~t>hH{h96?;>7a~4CU~6W7*m#2P*k?(P
zlct*gOSi-@w0uiX5&LjNbmc2`rJeWM=Sn>Jmn3kh_{olMTiz=xgqm=EywCf@R7Edp
ze(?3B-sk`Kzxz=)<+X^t(!S64zb*LdZNJk`?|tBtMIV3u@6evStn$<EsiDvJ?0Tjb
zDfxcFq;HKZuixlJ_DtImc!+t%Z^n0%dWv2z+C3$tjca?o*7p-LmMN(O8Li6k>VMYp
zF7Uyk&^;=t50h3;y)b#jNppsK{nZljKR<gcwfb;BvMXspC+C*y_k=DO1(<0(Ire0S
zn4k6Snsv_(ynZwJv8_dg)jx$7W)fkGx|VEX)R~)Sl_0%2Lp)}k#Gymn7mAZoZh2ND
zo_`THV@>nw+fOp)f8i-h^r;aG@QAN1-1pNYz=ON~md@f2^LWx`W)zoau$#RPo~oW!
zz0@P>PoZsM$v3@S`9CHJKiO{b*LZomTX&x3wF^b6`~BxHm?LM?^CQ-8d8%c=`Rd1p
z8}IAy&{I%R6)t`8pyiC{1}RUMNuE1*GwlmHDSxuf$e`ahka0~K)B2Qd=bF~_kFWfk
z<G1^e;S%u&vn-|xF4>rNdcs}F%j#>MOumpA;h(-+Pt_}k@BE$`*IMiFg|k}Bzqqb2
zIOx7M>3I9!x+`_3#ic9e6;Elhe;C)X?MX1}o}x*DybEuvV_!a7y=}sYMHkb9x_Cac
z`*lxDx&Dyd_)q%&OpA0eUc>&g+gI$qXd!Ou$#ZA1_&cF&lRIrcyvpAi=p-GTv--2#
zePhR;m&$j&j#uz(n8J7L;3__e#8pcZl-au<H*{Psk}(!{{Z#w=?)x88m?OHCl#Q|t
zqh51g`}8}=t9|h)Mcp<}r*#hn7j=Kh$g30DVSJ3UT8;N_QTmPlxg~XuB_ABQoHrlo
z@|K&}acMWN_p8TF9#bbj>-)EFszs)z*X$R^?(IKS!_etx_0ZGqz|x34BC1IVp*32G
zf0unOtx)56xr0~e#or}1wx>!T=CSd=R6QF$^A3Yl+J>3$8kSZYeGDmg-qkcud>U)U
z_FW26Pdb!8T7O@;adGcGF8Pb%TlTyb%5s=-WR;r#HwoURNQ;(l&njmaP7OW3cx!T*
zK`gi6%;@FycDJVl-MQ|~q}lV+rHpTWkX||a{HVFi(#cGFw%Shcnys75^RaX1u0`Bm
zUTdvbdM0sg^v5Q}JFf%yHuuk~*tj!5@d9_X&PS$AyN^$w5^~sqgGK21;T4?>8yEh_
zHY_&V@w!*}efZM%YYJ7evKMwdJpHyO@YJc(yeer|GjgVUa+a39_?Yo?hx~~f9JdpW
zmL5Ace@3H<l+^0RCknb@*FMdbSu<~wgY3kfUcq(SQ`a&s{rC9bbIsL(49WtI0`pC|
zZv>k)3YisNQZvwMD6W5VL?M8iuk7pXsCVpZqYa;B9QkppQ||2Zj17$YF0-83A+<gu
zG?2@sEx;&Qsd>)TeI836%3Pht5!J(3BDU_~Ds`bJ|BlKhuRCV=(D-WV?yrs!HGwjA
zZtdM-?-(3==DgO9%rjjfx4R(omHWSf3wIO)j?C@<wq9Z~|8jwgMXHnAoMKm)3je%+
z=Z}4$dHv;7{ld@E46~*73WeGCY?!;_CvQ>q5B7EK|IF?GXWIW~O)PmQ$9Z+m?Em32
zqIrMZI91G+mLL{f{J66Gzr-HXjmLj;CoTNr^NnlG?9T8TdRH(0bgmRTZ~1ES?q}=;
zS5`}GW&X9?h37A$>{qVblTNSYkL~<1d4jF|qQ!RSmaGW>uw}8FL%Gf$PKBzs6&!cA
zt#F#pc+rma)4W3$+eF^Xzx&i+=joZd7^Tc^nQ1N9ALFs+>~Dc3x@&eBa`^QwUy|$N
z<eJ3#Z9?i)*1HnUo3-V47Jhi7#nLNnA@ZnO{!gYE=YdvNWknfVhqwc+5&;RNKEb6k
ztlGXwS(LQ8rfu-+Y+n1-@GsxD!<pUd)_*dSnjUlN&pn=$<VwYsdZlFxAI>-Q)IR&R
z#Qe!>lcfb;-fmyHx1)>I=hXenuaC9AxYux0@mx)8z2~tU?JD<snv=InURDbKb!hvY
zirJ>Kwj5!I5pg+ZsP>w9<I+>J9e#6NZrJFyeM(c!!PwdlWf9DIBC^YL7X8zkzir`i
zU8V~@u2S)eb=-?eWft^LTky1u_0yU=J65^3%~zf-d~XwTG|&0mUcDsF`5T(r(zy*w
zcbDxBKVaK)OvrA=67iHTa+W>~8|+@LRl4QGH@D@~?*)q&M&3NiBD%TDB&I%l!wkD$
zD-0vkoO>6zyG&kqAVtc*f2-X8-Cok?kI%h6kMF0=*$%&r-=61x)-Tog&E;Gt)Vs^c
zwfugW{ENOR`|VbXFTE5!&1IW?*@N!4Hv%t5@7btUr6l@nt%S6<KYPGS7ad#P1O_{C
zW1frq^i0Ypd|*9jA}<(aXZY(xVpm0EVnV&s<5O9#I`(t#89x2o+RgRq+wb^LtBx?v
z2>EZ~S>_9JD{qO0KGJC4yCGwKwn6W0p5pUo6@(ra8YM@opU-K#w>YtUtCia4EwiO#
zrH}Es)K=-tKX#}~dBaAD-#tgZoVE>fx{&Df;)#3T8;+~nst@GpbjZD0R_&qn+FWd@
zjno{!{I;CgjXKA=UTDnWWbghPnpE}iK&9~i8wP*3Ip)r|Ec461dMU%h<so|ArJ_mq
zo`!YJnXqZ)Ue0x)k^UC`)lV1yvUXG2@Ve?~j)z_5R<*lFUW%M)-g0BnymQ6@OCK^k
z_;dRer|Hta0T-8CGgEXs(z8eCw?@LxJ;${Fvx)Cu`n6<1i|F$ild~IJl3IDby|{R;
zLvFo#wS0k;^Syu0B9`ZPxtlHrD^2Gz{b0<a^7?`HXJN%-fB3c;Tm0=?Wq-FU|9NqB
z)c%D%E6(%0*d-mPk@)iCp#>8Y=5kdg`yQx&v~e;^VbIC%Gn6y0U9i6Bd20Ky3xU@y
zZ+8T4`D}XJ>-eqjVg3iUE_l)9d3W8TN0X19WVLbQ;|{P2>+x8uCHZ2qX_e}ftWMKb
zi*@hwk`EkZ++=InS8(Q?Q}(9X%ex%bY>ob{=5@+uRcs>LB#nPYm3(XS?{Z#v<a6!A
z9^X4lU2=I2mHyt47satV{_V#jJ?s<2R&PyY?C?xhG&5@2Uf$XF{r>hh-<>nJv4?EG
z(7I=%_E%#OX`{IZJx(6mIzcjEN0O}d#HJ5kXRW8Ldvugz#rKk@n<7u;|2~_)>1C4E
zXEkfhirMA8mR@G;i+{2y9eoxce||aB{lbqcV>YCJ4B2o<r69^iv{h|+gpY>km(6?Q
z_q>ajmnjrDxG1xuv@QSc_l+qN&7%L>Zq;m1F40^0e(O=5=k3ec%NOb8^T~FGHu-J2
z?>O()qZ?eGXR^LZ)l$+~zB+BjueTQNlDyNVU6n9OTDHb7X}_dy(Rt-Fx=XW9@b+#v
zn5b#B#If!|)qS7c9&=c4yJmG8)a_1xe6sFzoqgrn_2pNLw<t>Sn;$&a_1Z&+IpO(S
zm0+LgFIV56v}i{N*O4d#KJT8E+<=SElD+=2?|l2xG^o7p0B2;E_3~f*E8}{TGd{ff
zYvb#@K|I~4mv!4*$z(}JhQ7{Yvm=hBrI;s9S}|=>sg-xxTBFTx19trMDiT^c@p*>c
z^cCr^6j|QaO=UW_+-TJkt{tb2Pds~cvYPm8yGg2skK|52j*+Sf4w^mnytj)%O@ngR
zt)EZMItUzoIZsZteNp$K+g@EydZ))e?0qk#AMLf*Q|VFFeI72B#i^@4HXU8r=47(>
z^M2-ph-x9ZlUtdVzFm+g^wHqhHVfrGSILw0>m7wQpMTKIRh3rBk*#xL!^*RV+GJJy
zZir4hbir09pnR33M$pfw!`f|8#_6w(KVDtRxm$@xFg^O=%v*dj7~dOeZ0KgaGc8{8
zsZMd?dZGF1s`feTKNlb6OO~h<X}1vg?Bn{{c?#Dm(X}mCIq&hl+08LoM(oDP89ndJ
zLnDtJO8<X}W82@o2c?2aw@qZ^JhrAfS2O2Vbwu08)t|erZN8Ou?u)JN<=A)84=Sfl
z(z$6?u_DiHZ}v5|^HKMT)vWJpN8Jy*B6js!ytC7SMYon_=<oR<_Tu<XrFk#cN$ma9
ze|z&Eo_%K*v^UL|c;-W&;**x-ANRNZxTWn?&=Q!@GvR}{fF|QR_Ki&jFDwphJmx+(
zLrlo~`n~O`4y#UCv?sOl7wDR^{S8mFI~_CCPgFQIEd61kfFe`lD&DmlK1_*TvVKcS
z$);XsQJn*u{rne{oL3Awa;s(Lgvj$wJ9R(ZReLK?5WbqL_=1G>i=a2B#aF*Od|svM
z*k0vy_j^u0TDo&SMK~LNyDqwyP1JkQte?}4?2rEKC?eRS#F4k@sHvrbOPkn!3sJA0
z`wN*`zpyaZoR+IIej!u&aYB^t_p`<`n119;d0-tjWm<*p{m1Of<WH9|*<5_S^T}N4
z-JC0@OggbttKg4~2GePg7yE)1ebMLn!#i(kp;o1>F?YM9|G&A(AGKWD4J9V5p6~HZ
zXKwEYXT=Mr4#b)I`F<-rdDh3(&-zU4TS?&+pN!@*owS^L(_yM>q1ubifL~9GpJq(+
zo16ROzKr!Lj%gx>&$b49y6vmwy6E1d1ICL&dlqi(Tk^obhd+3JR^oNt=BMWsQ?~_8
zY)}2Ov3=op<^zW~U343chpEd%|2;c9XR|>Y*UB){>AGUO*WRpMRlAvOU2|pfXSI8K
zt=QtdqOIp_+1t45b*EjW&gGMweJfV3`xf8LDC52IR7h83_M2IeyV@S?V6im570Tw2
zy;1a);on!fQOdDvuKD)8;re!aqRSSx^?ma4mm3=5985j#C*?HE&-K4`<NC+O_b<6)
znmSECq_gKG{nh&YFY5LG?Cc-6yVCm0{Ud*0kGQs1;hN*lnOkN)$)9v|mfy-rn^^NK
zx9^KO;(Rau=B$HB1<PwVHtF&ER7G*`Xks$<@=)2*ox7It#K!A;N@8EdWk$?+^E<8d
z@T>n5e%-yW-!At`fYyul8IRKpmtKD*x8~r}c+c}&=2c}+$u>KbyGH19T;3Kj`+uLL
zm&6DgbEX}iqhUQSBX8LyFP$Z?**s!mmo1AanfLUNwd4E3bCah0w0gAY(9PQxW=A9h
z(&{e7XTH)X7USE}R{X?9>Dq4P^{pkP7kUqEe;T^IoMnARPkj%g&W*i!dE523i(S}x
zabx7IJCR)e9bwNF7RBz!-SA)JmHdC(rhr@8$qA9Ng{L{TOxk{N@9{>4XV;GT^B-xr
z)OS&{mxCk1Yx6FJl_z^1F6U>cl~M9~|Gsty-ww8K2bJ4Y*97)|tcd!O=1_9BX_n{u
z6UAWxli4@O?mWEC=-k}xzt>!O7kuy3>VstySrQ7ER)=d()_Tg`osd53+^#T_C6@eA
z*Ph+%z5f2ATV~4aHQOyx?$=fBW`7%&^mf8=|KvOE2fmrS*jctx_Sy2aFL^df$gO<v
zILc1=l0xi8x73Ywrq`6)uhv|wJAGVS=KqC|+D|UVEpPtu)$^Rn*eV$CGE!-E#m}-k
z-e0CJ^RQ0Q+hM)Qc2{1Vi`B;|ey5)OU1nvjF?UX?L^;Evjn?w7oWB;ll(ntiH)C_J
zqL=;c<!VPaOw+$5R%5(haaD=YYMCi--ip7eF4qyR-aTD=7n@J+l$;}#(kmY4F4)29
z8@Sl&oBsC|o)xLPUoo^uf30ANopG?;m%sDPRrxB91?_PsJNuh-SqwM*eKs$&E^t!W
zoSP<}PC8kC{WCK|@5s%Mq3a)~R8DM`obuR_bL*jfdBPV2EB^Lw@4M=|%WOl#k@W?C
z8U0i)9XrR$KhHf{I<UcNrI@y}rrX2JqknvLyVCA<*s?v>Dn7M#={Mgv<JW(qGInqu
zKBu-jx_t%v{iR1zp2qAv&ZWM+GWFx}7kgZ8FBhF|rT?6DYpmbdBUgCsm))MXVwG;@
zi-{b|o%`E@808fd-mGd^*6h=|>s-oOH~v`TV<wJ=@|K)j={5Pm+RK7P@(N<BTc*w_
zzP!8SUrukTz(Ti%O@FReZ@Y5v)=?Ir`M<-SDRIB<Un!<ha`KJz@gMWAZVQ;5#eK;(
za~<EY3iZ;p*W#lxKOc?Wv16}R*CCg)*4M<`l8P?-f3P~|H!G>UZBg#V<nSpSRqjg|
zFNzdhFV-)c+a{HKdCB|wlL=B!wAo%ByBj_ycgpF5J1wfV-d`Xn@a15HSXXCUM8NI?
z7C!T<f_@6LwSD_xH7#fN*|qC3k568;qQAFd#n-0JM8O%GtM5*AJ8$^nzTeLf1&-a*
zqi;r9wr^l!?J0W8^P+su$`3Cqt}GVmiY+ag^0_%6K5Dk)VUZarPp>Zh@=W+*cyQg;
z1-YuNmVW29eL27Qhrv@JhW35W{#^@@yL$Ed9Tt!0x94y#^zg5<RusJ*)Nwqe)Nc3I
zqk)ORhHGBBi%dDbw(P|=|BOB5<xi4=ezQ4N#;Z^7>SDc?q<GryL1V+Ta^__|_KRlU
zYjK^u*66hRd#}lRG7COl56xdxu343?%N?r`xF$Yy`a88WPN$2~%N4kqJohXpy<F!s
z`^FZp71C-ks|@Ego)#|sIA`b1BkR^BpP3ld*fRON@57_JRh}gj$cXD#RU2v98ZxbJ
zYTvmv+4XYl7VaZv`@=4mJ{M5Q=85%|-`liqUt{c-yjM4VzjKlCW_iZH(*MH`32vjW
z3Qy&9)6X$K@wIJO?eHme#s{wnJvZ%c&1XMpqVZ)p_oUyyVlL|+kXarR(U3bM<@ycV
zCng$V;f;^PR)1R*%6P9pX>DVW?{fL_a{bgINypZwCp65mOocZDY>=`#vt^&sQ&l!O
zrT&Y>-wT@xz9|*XIVHI}IMXuXXXRA>?v@`JJ%+B`xBmPRz8LXyZ$3-hji<{ra%0>(
zub0H8$y~Ovxh<EZqgZgPdsXnN2D3*7oSCw(ye3slUlDmBcvW(&h)1|n?s?YVbw{{@
zP1F;0^uprmJ2u}v7S?;}^cuyAuG@32pU$gtTXrq;`uEA<g0E}mb^d;p)Dgh;ylYv6
zi{<wZa~Xx=rY=}jboKX+9|n!CwLdcAvllylvAejhc2Vsap@+E_7S3JL^YQPA$G<FM
z*dOoYp5*h6_tLCFg@p;tsr^+slV#)FzJ#y5eCOAJA4v=RzP>JP@B1aOXkk@c{zc2V
zt1P$NNP0O#>)nBcp(UGxRPG;@IVPcE%2MW9TXRTqRni(avyg9#la(j_)VSGt^&{i=
zql+#Cb-BBRX|_k{oidl;n%VEX{iBpoV1%Dd#f4z2><V$s=!&Dd!C!XGee3dQ(*2|a
z%V{SkckTMowoZWY-4fm{Yc{S4?$Fc!lyl8F<@Gv#(bsbnt5|JKb1o?@l1SQ@KAAB*
zR&?@-s5_}s8XR0|Ua&|m`dj<Bv*WYS$-*__)zj8Z6$<b+dEY<#V@+1b{l%~PjZZM_
zvWg7~N>aRiHNhZA`<#wHtMb$^tM+$Oqc~$?Ci!hKJd*3%A7OON!+*V${>+L;GcAtZ
zQwi$ba?VBm%*>5k8QW&3{P^<FB--eb#HFg4hm?P%triz$>)5@Evsy86Q-rnWO+^o*
zmv27VFzoc7<^H5gZl9}G)Wd1Uk0&hbd%Jz-)#Izmw_ZIS$;_=k`?ObsQK#Cs#*Y&Y
zE7w&xY%%jT$z(2K)Oa*`@}k`$-!>HQH2G33&}jJLnEv;bw+gJ+U+2}{BiHy{%$UEU
zbm|tdlEvHO?2S}a<(Gwb2j(UHkhE4Z{HL+zWqxYApuBo#r`_!0AjPm9zpp3lw=m7}
zRLFBu6gwPNHz$E7fb~t+*T1_9E>Ct+ObaaUpTB#}()-iqsJ=h)jLjiEqVo5tlvT|i
zl3s3l^zQWGMIu7)j~+_Vcy+_#G(*fSe;fa*IlMMu=X2FFCK^6ujFG&y;K+_M(=VDo
z_*uE`5p#EZaH9!JE`Kwlp@hfpWhseje&T=Z&5IHQW=jcOpVF|}+O%De!!bfCw92bs
z&cd>%;g$=Ia6PJe)1<rDpZQ$giLA{AT48Ql@;9@TKYVO?uIYZXTSw@$*bCYBN#Cn(
zFL0VK!m+G6O=FJJyR56-5oc?Ql-^etCWqVpW)L@5i<s%zV6?tulB~*)?J2^igY~A~
zY20vmZIas+9h;XPm!8SXXgxl2L;Hc(8lOjpS1`T}ddw;oxBFN{;QTpP)gS9TIMU;_
zZ+=Ki=93Rw_WwEhtL|J~?d+clyE5ZLCm-GBcFT2p_k<A5xn`R;#W8i9W~eQhHEjmF
z=kr$yACBf|R~t@h-_71XSKgV|@B8Dsu_s@JJzHZt)qP6(57x?0g?=gTg@3Wl>!^Gv
z{y{fMWmc8<h69SvX2^42`I^@=`=-kWlcFcetL`tk;=}*^v-P$6O}k}&&t~ar-9O_*
z!zo#f`1d|3Oun(JSj--;%`;o-n^F2|erWwq5$Da$A9jA>N=rE3$K9;BA^m!8U$=zS
zuC4x0Z{ARgw5al~c>C@9a;7QKSJ^f#&w0z+V|IPP@l4N26DCBnG)GS3e_HtY#^ee)
zyH(7$s_rcL=DT2PeutEV((GAJpC`ZLj{3eu^3VaVqr0=S=3JHS43f}JRn~vuw1V3t
zWpQr5?vJM~Odr?{Gv5@a&z5^N_e;t5zoz#W-#_-ZE3kCts^zm}n*@4)#l0{7$L8rh
zp=+<RHAA^$;i@R^oHv&mI`2QO`d`ywbYtD6oWg@!Oq7J13fI{vi8p;*X!`B5u4KdI
zHJ8<1h)?jbZr=FPb5?g4NAhFIIZtLy;CB<X>`s4RrK-VW&~}yMO~H4CSO>MWLQ^`P
zzG?FLx8a7?!J}cEbwS(hrubc75`0Mfcdp>GZ^3%Z?~?8XR~m#Gv5SRxX-G$Hu(<B}
z>{RLUU;8(%+abP0$v*PPjg<@5f8C?``tH^Gy6yHZy;se<r(1{LxN&v<yl2}RjotPO
zYRF~3nkdA~oqWbnQ@_uxcuj-vzdqBiu?I}{?D5kqKADxiXk*jb32Ry7d~eA&u0C=1
zmqyM0{;N^0Ytz?-MJY+&O!RmvaJy>1S6hjAVd>3l`LBxNrwANcC%5Z}8?(tY&T3tb
zvtpL@|I@gSvCPXjp2nT>pgCm5T>C3C<Zp9F%-w&h^0iv);b6gB)tkW;^BC5Z<rQ%z
zMT%&~gs-$o^I`g@x_ZamGZ{gt#tRnADVOu^JHCzka?vZp<vALs^>%5`5YGv7KRJ2N
zJ-ffDPOFz`@AaE^#zbt%lKEd|Rd30EHc>;nZg;D;=f7XO{%sZf+WqU!?J1ruOE>OP
zQ+~;Eq^0iiKFyevtf`F4n?#tJdT(srttQ<5XZt>lKW}!WZ)?8Y>U*B|{^KRP+n(l4
zD*u$9d+J42>gmNYKhG}y&!3kW{2y~stubh&EM!rwrKK5sQLTjq=Av2)&_Y{+hl0M1
zy}MrZcwqmL+ewW-I4U1JwVTIWeeCl6yN(kTI9V1qbVN>MZ)dN*9w)!!-q-85A|CZG
zUuC~+b@i(Bb35(Ic{yB9-n(Oc`EqP*?EL+!{yoZ@cjRu*|C9gi{=Yf7`~B|S)8lPt
zzOQ5bU;Fb(x4M#D!Sw%?|8CwrKmVcgH$9(&UaQ~FtNo<1SNB~{;p7eF=VqMzy*qur
z?av1f`qh8fJ92!^KmYIH$&+We=396gvkD%%yIK6hnd;-0Z8T-~d}v?aufFul6Tb8P
z>V}coEw(ih$3G~pIIR6+^Oeb49)2+VeIWe9fhBv(+CTp-|FL2IlQsPEvi?H*-mE$D
zeaffc32ioiUKY09uSmc8@N3`?&jSJXA8pCu2%GsS)|7k3!Z|&hVNa$zeVBJH;it9U
zkGtPnP0Gu-{3?Y#S(~M+m#fXb_O73aV^R9ddDFat4$bSCXY=RdJC!pkAKQOidj4S&
ze^gb?%l!GaKhI9qf7fDUp!V)C=e?cH=h^PCsP8#kpO{_$@80C{`@fIxUcbNQ^T)~M
z_0{V0_Wb_-!`}Y?^Y{by@Be;!=kEXS+uq&xdA9GF9d)x<G4XKvkFZ<s<rNhhw%vNh
z>gj*KY3G6HLc#fm{z=+1CVp_|44KiY9kPM<>=l#Wk#{oxq<?$))!us6NlxS2hyDAc
zJZEU$C|t&}XwEG0`fKMmL|?bb6m2N@D8JXSKvJs7y8kjulXd%lJGp~%=ReTrU-Z*^
zK_vs5$g2-01(&bgdRo8p!h{&6!iP0xQ)V}APG2qKovC2*Vfm|$zq^^|u~}E26^iz?
z6SDMw|5y1B)02irb`O?6-FaVjci?T-^2Pgl(u?P9P2YLi<=keOa!pmEa?jiw{tx?q
z7{z{lxcqqf|9!Leed}CQ>_4M9#^s5ls^O#9xJ8YvE;}_@KP+b3Y56#3vqVK3)2XwY
zugp8ONJnDpMTKqC?%UbUTf@Mq#xiwI{DYI+eDX6M+?Fzncxhr;acgGtiY8r|w<;ob
zT$8OOS10^iHF-^HjMCnC{p??B<|zGo68<BSS?45oSjD9VtHMjNacib!IF{{c-XH43
zH8pH@olSl0iE@km>%P>sE<TvERPFLFmU>J7pc5voJ2YJsb%Hmv$3HH2tUlA^_i(n?
zk<Xm{Q@0#)k+akNqsXGOQDaa1gkI~*+dqF_>e9+|$NcO;<1Ie33Kkw)Et<GXcf}Oj
z>#2*qnv?ZP7aXo@au*P>(D!Qcn6#togYHgV6XS!H5jInoigUkf=()G&m*Va};y2X_
z>JDcdn5wn2V0C9&!xoROB(?)fIKuDL7f)F*i<M_;=c<Gi;;k9or;fYF>)8vf`>~?v
z@$`ak7tRSN?iZc;@y{MRA2#RBs>UuUih``RMghy5?w-Bg>KP+el-TB6?`J&ym|)p~
zg$X;2S8Wpx;8snMdgtD`+*$PES+!dk<txH${{86Sa#xXNZ}s9xSbQVt$`ajc3FqFv
zN|WqweG+24=EftPT#-3HCu;R~XtiBl-Ki#~klmQS_L|uLzyD^<*k1O~dcoRv2W;k~
z%{AGWleXQ;u63H3ROzc#&Rdq*XB1Wc_^d3k`cn1jpa>s6e!=CFSGVq3YRg|gx8!D4
zkWpW|`tEfpmN(z*cslpl)W1j5KYGUh;*?S6ebyFYeY$;N;4?G*|4+AV3}N|p?p5rD
zL{sfkukLQJ+GYKTt$Y0=<F$8JG|FnLPi4)htvnu7^W)L)onNBY-<--F_asMmj^W8$
zzWg(5XP1}rxJ_;ii25F1_-r<lptFg5{=SzBf2tj<+3kEaxVPbYXp;C}fwd;A`!<TC
zB`n?B8I{WRYr!1$`sgOxxGh|LrT+J-OItRky<EY{@akyu9&-bRpEo2+muylv$y+&%
z$2BCv=rK=3PP{7nZMM>#oQetldd6o=|M`BMQ#SLbz@~Ew>kkzr#``PiHtbDeIrOM4
zZUwWlziktr$w}=8R~CGmc(8S69P_y<x3lR@7yDN+ruVKoU(wt(;bOystsW|y0xqt(
z8^JJRVXwI^%d8ah7{~K%-9qiX+s_JZvrRUM{BzW<(5zv0c-XJ+ZFV06R*UOzH?);|
zB+2i~zw(*i^dnnu|H+^BJHtBr`1!ze>+*BkUVb;Ui?X`8=0?=gf>zlr=S8o(c-_%T
z`@mdyv~;3SoWlAw8;^3ma4kw|i8Gw9a^vEqH<D=znv0z)_D1f?)Vr~DQNp6I?az1w
z?`)m((cY?U+tO7RlWwQ*Fz(7a9`kz9BPJb*kZpVAs{=*8Xx+Q{MgLx3NawY0r9n&g
zecB(kDkke0Z*T3cXFIR9oV=pc^{n~uPphLxc5!6z{#3nku9_q5zVim}S<k~0GR~jl
zh<CD*;LSPnd-A7QoO9LwH(0RF2rd5n<gD8V@omYMyacBy9+UYX$NNu9Klw>d1#8Nk
zYCUPU#Tk|l(wOFd71|J{s-JX9;u<&i#gpyc0etoQ0z>>HB^USHfA(SR@rEpMqdw=&
zJ}gG3r&Zb=_V>0B)Cu4H#^*`<{AqhRQ=Hak)%<e(9Q#0}b6T-<p<3p}@TtxoJ48H|
z_|BMee2;p;!Xm3Y$vK=n729|EHF}0V=Tp6K!{#Pi+}3N8gL}<?&!76%ZvE;V_LFZi
zgeF>L)ZhARUa7W5TP-_((fz`#OX>BY+Ovdz2<_Kze4P7{_h9eC$&>9EIJ2C}H}*$w
z|FBAeO~OU$PLIrc*ZVQj1|e&dIJpj8*1j(jtYf-j?vA9g7Y`;F7<Jlzk^8MR$;CMQ
z_VYmBO}0HBnOmM`iM89R7WpZj?k+CBxGZGt^;*XghjU(c=1%+mpl7CJ`tE{yo_Wnq
zGqy~4yvOOz^n}ZDl@m7TrCjTASAE~pxVc14lKa%lCog}0a(%jD%O3mXv0MG7UY33u
zF3M(l)AgCnsnnzUy|43xx^nz2n0|VblI6#>DL?n5gygKAHG?<bc(TMSp@W+``rS_z
z>(==7^ZdM){$mA$WPaPp6CARQZ)@7;o~}LV%IeFxv+MrEzujKT--Q}~d>UwT=1^0n
zK?tKIYubzS>cX2VY;Ul+sV4K~Oq_1X$?X2@y8pbtN7?sGbqwo&@;S@sz`pf2H_K05
zv3c?)Jy)5FRWl`(6OA9eFvz~nCX=Z0z*GJB?Pm?Qdt#O^2u)r*A%Bro(7nbS@#I<7
z0+)J2^7^Ir*&k+k6~5DW_oSB=%k>MtG*oq_?dZI)zy9JT_j`L@&M4QNdtpmqJ#&rz
zQ61Cz2oIl`Y?FR^e4KD-2Jhs)IfhD_^MjKPFaDfzC}G91vY!5?D|t(c{!9^+zIm^5
z9!pKaZJ8rCYmUqk6j#e+-jVEf_r;OM&kQX$49!$DbX}VdGG{A4+xsNcjNPNKIqbV;
z$ZBSp`x#AZ&n?fJB-VS8G0tR8=G|H1AEE=U9^~EW&UWFqgZI7Ch`AGV<W;<8OWu{1
zY*oH`Z~e#fMu+}rNPjq{RN1sb`%d!f0{iZ7@7}y^wJxw{e>EegT&efzQPx`7d0Pq^
z*scEj34LVySk*Ry_e|={#MOrbCDv@!c$cOxp~Ug@%<G3rEo&EkS|q8sbN1=Ls0A~{
zl+8pcZf4w9dfI*9TC@5|wMWYZTqUYn6PPs?rM<s@MRZB=t5yc@hyP+c{rz5*XKs5S
z@cwjsi=Sn`!ivNB{R*GA8h8H@ciPJL_^<6cz8xk#Q%ZNIhcE{xPdqCxWZrl6+6ikZ
zJ3U9ca8F;2%M-TQu6A85D7tiR?}k|!|DyQo8ZG{uo;TI(;pT*<Y?gmbR~M<i$@~4d
zC(GUaP*nl*!3g_5cLiNM7^KR279>tya${@R>YiH%7Oy<<-1nRbALlE7_MWVrs(WXJ
z&Sd+kkg&phj**`FI-yAgkLy(`CT5%5vaF4jTqPs;RQZs}?Sq-oCmZJ7zP#YUhk#zM
zC+}Y$UHD&2R8YV*??okx@4=rH@*V0A8831;zPgz*+mZ9$zUrg5^n1D29mw2jymi6}
z#?;<TT6%18wUxU|r(E3D7C$NW&0OWa-=7^5dDg{-tDV=Aa9gu*`;6t+Pxw!fW{TB4
z7`?{EYTa^<dF63a`qqZL3N$>N{_5?b&l(HnMctaSPbP75^3?;LUO{#jSXHbha~{4H
zlkrojB<geA>}m1pE1o@((@zv?d37l6)8!(MYdyVt%wF{_U=-+#-k~-{U2lh&<pMni
zz7;JqFBezDJZU&I<>6ee#0D9M6+SVK^@<qg7#P*-HXglq=#QZ0+u1+wn|&-6J)xjl
zcTej?!qn84uVQ2tWhWS&U6K<0=92qf;Y;C9*W5}yt<bQQ-(kfBBVIS5I~-ef%-=G3
zx@z@gmI%4}H!k@;cN2bcJi1?Q$M)QB;)3_AQ?BkcxV>(Uf#K|B@|~MhMSqEDdT*+n
z^JvkIpJt)5rx)-n+Z@ZaW%J87d7V-hMW!b#u1*LQ`*5l|da5RGLulk7>&}-GZ!@p1
zW0-k-*<|hoTwnU)KeW`x^dy%lsqQal(v1ziuw5YTZF$&++wC=rnoYlJ-(-|n|KUZ_
zk*)W5dxbR91h>9DTQM#C)rYw=PAThXzkDKLQ{S~YmU)$TL{oRe*-M>#Zv^7A;{NTG
z`+BKpdAFJ1!%g;`b2$H*&tH7*_{yhe*c(E=mEPl8^2wQL&W}lZ=O)?iZhyLANm&21
z8q;}Kq!z|5wtUU;E38Iu>CT?)KWmJiAOFmt`F+Eg)vuk;?tbU3_uSU>eVw~gk;%`W
zO@*nIAv1Va-eG3;%zGlcj%AWcRptG|msxTyRadMIjWQ~EJx_D$D$Z|rje9frR_!yC
z;aC)K_Fv&&<1JU-PhnwN`)9Ll_;Qbl|I15{t@E4m;QCIhvqo}<ukO4hv7hPVo{qoU
z+p}v+%G=jV$O~<c{p%Ze*j}J?<t5<<;VMhRH!7~Zpq+8IcH#C<k((~e-ddG1U)9T2
zQb6Kc{VItiTUBl*O_-```9`VG`=CLd)JNy0Y3$z?WGL;~6Z+!Y8mC)7pUoFbU_1FN
z^f#aIW41!Zx{kdQuO&@2@r|Be|9^(xtkh4UZrx_Lw>~lR5KI5LPGU>B2WNS94fh#^
zgiC6toqNxjUit2{B){+P`ic8;H#tf@FgNtrq|fr%vYxe1VEX<;?B_Dqh^;*M?DzZG
zESp?p)|C4;ch2cblGNXEY*o#XOE*{_1s)3gn0m-EU+P-WgH~nXtusA*j(0IWl8N7>
zu&6O$`hf<AWQ*LNK96@S4D#P+dDSvLCg;P3GLfuTRe=d=vWyS)E`(&eZu=gqyrsRe
zs5Z)qC0}um;bM_xOu8M<3p=d3qZhQ_m@tFKEKPs4SKlE%8^f3XCB=UjG;EyVcBy8<
znb+I%^=G=jayhlSU2`gP^U}u7O=4G~TA3S91bjGZCEV{Hkn`7j3d?~9c_Albg*OLJ
zGbszGPMm#<yYt}2$T!{&bq4LtI}O@RX0U!2YQ4Mq*S!r+Dt<xItA0#-aQEPGPbU6A
z>5rOwTHbCrBjKzm`eyRxC-0}ejZ_friV#k?)^wb=U`5}Fg^8>7Rv3MM^L2u@?2{u}
z%J-e4HT!<^uFTqDG<9C;@ylIvAIw*E;Q4gG{VStbanZ8^#+ns})uV0MHu`X~{NpN1
zE2|1nea|-WEO*v}<bG?tn|5p1wt8lo?K?8x?61it{fDyQ;d%#E=H^`%%ip{%h9!E}
zmRfoLq}0`IGBwH{n`44g(v3IB{0Z|&us+A%-FdQC`sgonL5{R(5;u3<<>OU~x$(*S
zGH;c~=XvaGzb%{2Yft51cdlPQ<<jp0g`}CSw^sMDD#xv3nxuPt({s;rhwhhcXM66c
zq~lwE{__@=0IRI&#VS8kJj1_sZ|t0QZjbs4_jwBn3|CckEqFRf;l&5*&m|`>zHE)|
zC=?2K&-cI9<)N5?pOOsQfqYqY&96JV%=&g1@};~?IP!zBIpkFn^UC!xa?NYs$4v5D
z>mPr4{Y$3ACrkn#oc^azt?^MUKD)d2#ESl+>q#&6K2urp|I*<=1zA(?^J}@7Ulxk5
z$SgS$+reEZ{;<j=)^duQU6J{&5;a4YQ%bM8oZMXQCSBYZ<mzD_=ri}oKe_EO2R+t!
zNNc)ID`<?6{O11Rl8Mp$<1>9PtoiiJbG}&bhvnX7lf)w@dCs;Eb4u6Qe51v$_Rq4y
z+ZH+E+f_9;zuh{0%FXW)zteW_oiw*@&(q?>*KgOUvg#a4I$-fya&gpkrPL=m_u4iz
zzE2P@cDund(P(A!tg}A<Ym-XFw=l$1{kl@V{&f3SnVaf6qys;_;BBxv_KGEXX4Pju
zq5PmvZ0nCbboo=Vbz|L~FLP738Pv9M?VO^n>5yX`?q{O4ZNB&h*X@R`t)b-w33H6+
z6)iH<6lf4ITzz^jbKRj^U8-#r?XESO1w6l~XwBtX+x?kGY&)-#Td?EmGuMs@iFMyh
zmY?k*(eLX0@Po{b0IAg*ckp;Bwj93I^C{)m=E<KvsPVC^zi5BGe4pK-U9(mHo_YOr
z{raH&dCH$_3T9lt^F8i}y|r#(-+_n?J!u|qD&Kxx^8Ch2DQUMP);QT$XFu7sHEz7Q
zVN+$mA2mtN*Sj6{t$G#DIyHxX^n4lI`Z#6Itm)H}N>=Hu;PI53)2H6J!8)67zira$
z9g*Cd5`N8`JeBdDR!MWF3ICx>4-+gI{k6{As_=d>KTXe&uhL0MgV)9B9mfvlinO4+
zd}+HIoD|b`pIY9iqgH0IImLATl6b9`#%rzWPHy?MG1=c++leW+efR!4qvFk(J9fT3
z`_a25A}Z4Q)TMTB=cj)Pj^DKsQ`jv1|F?oqjt6UZix%HAQEu6f<yIa}zt&HDDez&L
z#^tN!ue|K7kNtb^wfx&kH{X>3y|*8m%5Ge}_tWIeioT~?EEavfHnH$kWKH93$)xg{
zvi|!8&T3&shnBhBEjS?}b!~a;N-M4XQ4&v6SMeT|D4Tm${CLDwmE@a?kNr}XEz}P5
zVqsU>>%&u`Teeup!Q%pNWS7lZeaTSO)5}laJQj39GCEpAX}?8Xa;nQ+3ngZ$m&=)K
z1fpdPYWAO5-dFsNby;k{dfsO4)}3CHWLU#y`gTSg4qqA6Avd3KcTQi`Sv}vx1lLOq
z41YXz*0U?Ie5*N8a@^~8*}Vd7AGPKDWvX_a6WG~m8jpl+)X!56Ot_q@BffM`RKHJR
zWtESC2g|c2W%kW=8{efYHLZ(w`Ri`BVqN26!;BJf*~El9uY6OZqE{Z<;`Y9(&ymA;
z(blk|vYXclyZu^M`@O$lT5-Ud53d|r<#qlXUh8qK<&nBYuR_YaR?a(0TxROg85>H|
z!Y0i=mh{Vf{gvQT>q1jsm!B*=q+w+KH2$`_Xu_sBZ|h%&-IjD#^ItV{vWxbKGsiaE
zUY=#VY5u~Ws~WexxiL49N88mqlP&bre8-#bF6&S1PLR4*@MXJhV$yeRfrW}Z(_Uum
z$c{`nld^5{t1T)Ue`+<xDFrqMOj{n%xZ=Ixj-<0^CK+bN=bbgmiAh+K^z;q4+uOu<
z_gCCV&Qe+W`2OtalfoQ1n{5B-XvijW?_acGWt6LF6l)uk^}Md79sdp-;1KQndOmd7
z-OKZ*I2C*6M{W#EnzrBXX?e}63yF{Yvzf$vJ_@W_H$R9wyQ}qE)rF1APhXwJQ>L?P
z+oV60cXc@HRjxiZW%u2kv)4!Tt?1k(DJSl4|KM_4Kui3U{@Wix{I;gbk6dK_EmnIL
zf0gmm)l|JJPX7)rpVnr(FuPTC;;my_j<noYTJH5L`prhe#YbHVbvX4O96Z-`$L#pK
zhNEAPX-@cZBBuTfpPt=^FBWYbDay6{7yWbZ>^;4&$p3uy!j|x_?E6;TOy-`~QR}ql
zbp=Dj)^D?7wkMy_P+$>^^h~r#`7YGV_2HJs{6)X}txxc`#vPfbzEzX!@7q=OvWL&5
z)}O5I=-O1=GM}f?WZT<Iuj5Kj3#V?l({}FEGd?+^*;hi2wk&z(XJy7`%K5#y^_eL5
z_N=dyW*1rPEty@ITq1hiv1vj0x4_Vu8q*#maM*P}ib>FG{38GQM7dsW)f{P=i@k9r
zXU|5K<%xyqaWzl=+helr=ajqCOZTh($&H#7yX)H#{?Gl7G%qAhy0_l%pozP9yFpC3
zkO=F|huaqac%W+5&v-X;g8Q}(o~g5%8^2p$*DH&CuYV~0wPlHX-NfGonU*$cE32<v
z3Mo8y*|YvXPranf!B4yPRj=StD?6WkwEES})Z*2L>yndKAHI?9dw<$quf;m9N8PUY
zB&_|t!7BIfnWA;w+mdg-o_XWTy+dhJu1Vi>iLi1As{1ivj%Sl?H^bTs63TDy7b+B~
z&rJ52vE};9EHT*(?dZ6Wr_zykWU6A<22AeRmUXJa*oAe|DXT@l8;+(J@lJF(nBSdr
z*{ga}I4hs@kp$!2+80)Q%2!pL<eI0DcsVTBq}Ijm&1^fjqdPBV7{^WCeDRB6-Igu0
zT$cVweENCU>NQ?57xq4OzHaX8_2c4=0B*Sx;V+q<D%DOnb?)eCmeM;ypTzc?zkHvU
zY4WaR&32))iECC)%*y-o{nN@Y-ty;D-d_0<o7Jb0b~(zH`|*``ooC<H9eK6>^_lJL
z#kB{b-+HxNKmBW^KWBxN^wC{YgJ!e+Yr3^%x6}t?8Tl*ozU;X;x9YIAz@+z&7jSi~
z-+AnbYePbgx7(ELH>%HU9-g<zt(tM(=KEFkU%@At3h!@FsoQr;@{i$G-K89NxsK&U
zzk0fQc6h7A)4KDU4!SJf^7m|j^d-*s2OgaNT6ElB{A*O^?(O|2(?0GqY(IHFz9fjh
zy6e@%l(%QwzBpu?xiED$`g$A@w*L70_Y<e80B>I7y-~94Q_}38&NaQ`5Uy~o{>HP`
z>iMfU#r}Si@XycqGds?&*ZNI)`IfJlH~Eg4mpsc0%`G!J)bPW!+D~J~s(s~7y*ewO
zKNR1Py7NH6iHI8+{62Zd>(gbN56!y2FlweF>y5@tzZoT`yLz=!URrBLS8_hLGV5Rb
zY0Z_m1h>P?g)aJU#qaz&`SS{Ud%~~G>T9dso>+5juT-h<rI%dgMW1)wt=soSF5c;a
z`JBA7Yo{*No0Na|?1F8NKCC?O^3`P#>$G12yOwn=wR@ZByYlpHanq&Kq7ENUTQhxy
zUF2fv$DxzoZ8Gp;Z~YVb?jQFa??*oV-k$TNKj{4mvT8H4zVF<8ZJxPPY*2FLqXQLU
z*IjlUxVm`lBD1BAE}Yx9>y}I_sW<143aVxQf7gSp-t5P+Z`N}|tWVeR-uZM{fNhuV
z{>CNZr{8lg$zHjosa#*_tyJLp<qofeJ}1r5u~o6^xlknRdWc<D@|+{@&rd(1V{2El
zJ@PbM%<=ftatF<5{!r)3C)A%xE&h=%BIl*#m+bL(-KFvscZIH)Zwq{>e=%*(_H~or
zof7S2n`La?@p_F^Q@NZ=^25V_)by`TYn4wnoVdX-D9HD1Uh=EFD+&gtj3>_@`5gKE
zpuc}|Q<VGj$AUK=%nIO(Qx&``&HgX&_B+X9sfeBKy3JevY5lUhadHbA^ZK*)>eH-w
ztM~g9D_p;Lf0jx%Ln%+>l*6-EeF-tL7T;g!{A)_m{`OM}J~tJo+`I6>dFK@8?}gDk
zFLzIDzwG+5^>FIt;@dk)efIIMjbk})=DA1DL0CXDpYQ3fC(n}F!=^4>7{zb1+t+5D
zWyxKhwpr0;>rQRoUHC=zy8A7)w_9_yMGFj1{y%@9&FGfbkK{hdjcVVcjtXcvZhywN
zV%NHR^P;C@S^Lh7Rx!_C;IAO4vf=fW1n*xr{Wn}VZPK#2BQ?)=F?WQ@&)Zwp+7#K{
zOIUu`ucsiP@@|yFbdxu_O9j^i9Exb#5#iywfg_09?BccQIS$vR`g<fQADCHtq{=@)
zpnT(&DebG*-&Ql?wavbL<n${2*#QS17+kq@VP|_z`BUaIu3N3YCT?uE48OEfqv`mD
zmDjmb-+jMh`Ln8IZTigMmm;lxNvUeO%Kx6WoiWh}ZQ}RkwSRl_yU*Xp5&QXO-?^LP
zzHZ9lr?aAi{0iSZzZ|=1)-G%F_KeMIwtZQWdH#Z3-Ql%eXY`~0G>A?Y+OdpzW|`hJ
zOZ#mTx*qDC3ab*_|A+Csi?Zp<KX<pdEnBqz>d$3`T>;9w-+r6-WX>Cd&cDrE5lN|A
z)*Nz-jh@{Tn|0>kj9p>xm>j$-C-JVB=%IXay1l?ml_YIpZC2jv36p$hSFqkcU#OFP
zq-b_tXTh_Rb1H9di@D7rR=7>uXY!sG&QnyZLXCc^CT~8{_v^Ir!8LmX%CBry$>+c2
z+4Rbwc0op5?8??>0keO1@~<e6_@XzdLe{@p(qM03yX)~apNd%yx?Ea4*Y-#fb4OzH
zx1cwyX-7g&URyr3`iJ!647uL3f9Czvh<-VB@f)`j%)M6{1Is+m?KxI{oqgLKs}&Fa
zS3C<_Shr6+e#7Pai)5r<y?DA#*&^Ug;eyPcSDS)`@(y||t1DrvTNR>V!4i8p>C)Ge
zS2C9GZh!Xb^dG&>hu8h&t{?euGB#qy?IXX{w%_Thxu4=2xk)Z%`{UPhp4T3VS!q^w
zw6bNc_||n(ws<=7yIlG;tL0Y0#{^4PGvP+j>Wc@D+~TM|=<_a-OMcS-bKlnnR~}$*
z7mAe4@m-b>BDiF`^y@~~i_(+K3q3b%DydSQT@klXlq=8h-p13)8d4>xPQ4YDY|=}Q
zHE6d8hE<)?wJ_K;C1ko{&xTT|ZTjlL$}M~9osT|pxOwbdO`S;QqDQJH<uiFyxdd-q
z<eRyB_LJY)MU@KNk6y$a>gTr(YRbLocrx<oc6PTl*V(p3&X7IbW5C1Zzt$lAM7NDu
z*a7waZnMixa@<BUe;4m!%;!r|JTxay=uA|fH>ZDP#DmSXZ!(paPFiRFxWtWHK4ywK
zqj~Z6tID0{S$IO$`(AyV+}&m%*0WJal)YH0eEN#5S;qU<ef(>?HRQ0n_d3Ut_H79^
z$2)!H6ZHS6wr^82n?8wC$tjF|r!xl+&#fC@UoNxU5~LIQ_<Al6ch3DAN_{8p7ax@3
zGCjcfX6xBE238zQ-oAbp?+Epp9*uXp!GBsI<Fd%rur0g3%PltkJ;A8;sZ++?BMO#x
zzA~Nq#5~7dy*To^to62qqFZxfUMQu#?z>t#Isd55%HTlR^7Vm<)#*phUOJ%Z^5sY7
z12ry%93A1@Ifopb)}0P3DT{ldcj<=Si<gr`XEQGRCv@z;C#&sAUkk-Yok~x_y4Eb4
zFOXw=C_Z5EdUGf7<)V+LRP=sgjp{M4ZR-&D;Cx{FrMY$&qkQyudfpdT`sTi{ldb*}
zZS~H5&dr0X_oST6RMv|;rx_=<^6;y=XDRLetIIa(?5mg>_K=%#&vHFe-l{EPoLVgA
zzulhy;m$rh@!>M9zW=2w+f`29cqyLJDtu5`^nB<H>ks{fH%`1aie;VRyC7bnHguJO
zDVKBhqYwS^@*9gcoO@9%+vLe8XK*`o4O{Db&i7LfR6bHYc`V^LOYhRF8)pbbv$OuV
zEB_#8&2+Uat}Pr(PtQ!UJlWt8dV?YHk?YY*hodiD(m&eA>^S4b#05N6^7iXDtebb{
z$?6Ex?5&1R*6Nx_#+l4kzF5Ecg6Qm2hUt>Bw*r=J)cYlUr2pC4@4py6u0HVXn3zmL
zRsFt#$fwIcYqM3~*|qG3m9vI*fye%3&m?t(pPaI2l?qRK`*420!qT3YH?yY%KJgd(
z$b0U1h=LpM1jRFRIrrR||64@E#=vUw^ldla=T%f{SX2ZXE|Ffi<-?k!x3lI2wiNK*
zFfmK*X+E#J#Uy_3g4`!FZXPeQx0!!;esubY2U~-;bw5|^s5rwR!DGU^tvyGs-_d^i
z&GhCM(&im<SLcTvy&RkS>cR_Go-a1DU;B6$94xATeQcU!oKpYymb0H4Cq(u-tzId=
ze+h?3qQ|iS&WRI!ZtyR<8{TWa%G34k=WR97$tRB+gcN!14ZAYMt$a=M53bFES>7eP
zJ%7Gibw~GDW6_t{PBvBl|6Y7mGJU&)wiVC1mD_?;CG+d%XkEN<KXR9&%Oh3oW6=}k
z%Tra3-_B!-I+}25U*flj=O*X2=9)Vc>rS865$d_q>UMGTy$CHnw!#@Z()i7S4f>BO
ztLHj8bnkn{xZ}v#q?()!GUeB%goyla_D_)V{U#Xk_D+kq^@fc*S7lEB{xwg8Uy?ni
zai7tSnitN~-2ZRRT75O_+J;+yckVQ8cgW!_bGeiilO#~eHKWnlV8z7@x2}aY=2H6U
zJij|M>^gVcDnGWhBRC{)g1w?j9(SIY>3t@zUKjf^o|JBGuBP+7`x8^00?&Hy()jo7
zm)F_Q!nX#M)&*vXO1B;~N{GDrRN1voNq3rHW8JUyAzZ8HF8dKP?^6licbAn<IBz;M
z-uzRY<FMz2QM$R`R6|2!%QIix4lX?E5WDYk=Q5pR=6}kz<!ts0&gj2m&~|o~WKH9>
zw?3^?o7yj3n!B9c^p|1LMBPQD&3O|Sc775z6Pl^GB4go)sP?aR=iV+;lim1GTQM?W
zab54>rhWOVTlTFy_@&q`K<Z8ItG@ZxulKRWJ$r2<cXbkD-jVLEl;ivyOM{c^JgicJ
z8A{ln`xsRum{f`;A3d^p-~RPe-^@MMIr-w@*o0s^SMPTZqN>}i&aDreepN12J9G=H
zarlP7C4M<(j7yFzE4wh^N%618RtgS&;@N)}aBv<7+x#?``^|4>k?AuHC#56@aOq6e
zoKe_VxH0ZqO#QdNd-Gi9#$92Yaa6-jr=oFI+LG^=Uu~MSLwVty3zsEguZwN?|KNs%
z=2H&elczj(ek(0if128(d#OR`pHy&5QE2Te!PRx4E6*)Be`5N|6RgpRd|BeV($XyC
zpWd=jOSZnJFTs6(>*~%Fqhw)?iG?l4SLClfJBuUZPLbH{guIsi1Dx(Bm@~xJ=qGT+
zym450am&YFok7i0Gy@`^l|E8d_4OC)pB{d}L0Zu!I@?=rsc(1R#@5x}YE7g5y_)cb
z!;&j0!C6Rrg6N9qtfti|8&)Jmhn%=^G~ubzPd?9<56>KB8@RuJ*~ua=-4UN2tQx6#
z&#!?+#k^qUrv8`TT;?)cy>;(44Y^d}n_a)g`Pz~PZ;reBygGO%N${k~d%vgKTJ98Y
ze)~J0sov7t&GGb{CB5(eeW@to+n%=CH>zX`$DiGqsp~(?Q<i+My7QuJcyru0twSvD
zS=_vY{#YOJ`&PH}VsDwm)}7_`(dr-kPd*4~`=+tZ*UJ7}?t;Bm1-jdIKl`#VwrtG~
zr}B<JUyGmh-q{^;tbw~Gbzauz{4K}W&+ZTGwb;2ugD=P}?zqk>=NPY-$x_v_(PxCN
zx-Ir)e|6>0txa!#dR~5K^(fp^_iS6;Y_srVw~Ia=yA~n*Jnc5$jQf8D{_CiJxc+HR
z>L;gNb}v1qx$x+gy!#~^{&`NxNxzWhhxOl|PAsb~V>Fw!W_Ou)?X5EJx4RUQd&7LA
zn8Ocpd8;MgJ!g6E{gG|w_zpeG+wPUI&ANEcT`9)L^XBd4pZV`mN76RCroL^`6DO-}
zj_LohD{zbco~HO^ul2c$ugh(|FI%i0(-(Hl#Gu(lckz#_ziR4#-O=A%w<fz^e*3I#
zv-M~HidAb*_<cQ`>*~b&0zuOPmG+%YaQgD$+^6R@tb5Ki8dw}UUDDB2cOiMlo)Gmf
zXD=o-9q7FJRy6nV{ro-!#e){F{3MwadcWqT*G||cTo9w)cI&A`;IEU}Ps0zLjJW8r
z&FR^$7MAS+E7P8eZ0Pse`Qfo_+S?fGBqd9M&n;(rlJ~9iSsK4**6q`VN_S%2xl5w&
z9J;Y!e^TA_z4x46-dO#uk;Suiv1sMf%IkCY-#z(EZqg2xwKqB!E4XZ(!IfaPG(*PC
zE!pd&(2vOXOxmvTrat!j_?upL^sivOuqGlRa9!oWJcjvh?6IqsvMgJ-Z=K4+c>#Jw
z)2$+W^Tk$rZ8Qq1-Eh_V#`Y7fwaYxRrqmlm-4{Dz{8l>7KBDr=<%;7DW=sc}PS*xs
zm#^76=YaUh$Svyv&&*-d+AOfl_Wr5n(&ef8yB*bCMe_IPD?RkOKKI1mjc;A%E&ro?
zb8q1G!kmJ81)rK*GGi|4%-nln-k!gONs0y=wb>d>t)_jR`9pK>g-s%>-)%EZxv7%9
z&870NNaUo~-7Gu5?cLdu^ICQPMP|o!b2=<GvY*nGu&F3syTdK5c2<+J+scWuO;eT1
z%0eFPc~{Qwp5%YP{Y>WZS8C0V=EYt5Sot^Lw)g#$E4(%C3R&OmWC%UC*RyfjlS6A}
z&c7u6_OEPyyDHatv)tc{#lOy0|IgdI!oVAIg(P^{BV>i7iLo(kg`|n0A;t<x6GJ0n
zjvd__8@*m-dtq6ec^d<B=j7v$x6e%RUtOuL%HpA7y-`Sd;~QQcmy3tvo?MOCEbbY1
zd(;1#RTY_HH;=xXxjDU6;bNL!{0*H=dhxZPe}1LSJ94(?|K$I_zZ`A;UjH_4Uj6Tc
zeLwks+<(r$uTJ3+tNBlR|M)vKUpVwPnJ03EMb&<OQO<wq?xSN8=A6}!duHz0U-{+H
z!SwcmJ+1%MITG#azs%>)JG<sXS9Inw1*aXAUwGF2yd1d7(^8jj{iUm$FSeT>ujI<w
zw%KCNeA)b|*Cz}9E2t_IDQM+uzh2SEbMW`!pVoU0_*a>=+siyn@!9a`L+aiKg*EH=
z9S`1r7{vL%KmOipzW4|I24xFR^sj&An}1^Ww1X{&H~%uWarC(+mB??uX8*pP|6k5&
z{pzxCv96xm?(yI5aIF93%_4h#Tn+r;$yNO0vEZ{Xt?f14<?Z=>+siK9i>kG_8Xqs0
zSd^~l{3qnG`tuU0l|n%)jDl9zR5rBvTRs&(Gi%R-ZxyT6Gg|{SY!uZdeAAb+`L+D~
z37x~eK|W4W?$00Ge!TX}=aeZ6jsD91c~!vpCCIC&?RV-7_4F%>-jSEiul;_deqwlC
z^ZJmFQ|(ip7S)BN&+d8efBbgkCdG&!-#h!b*L|35&=en}UgOeWUvZIZ&6@8je@ve1
zhhOf$Znt*Q3hzf>x;%uIo%Sm(VAs0$RJkKS{!zwZlieR*Y2~Y~Zu_%KXzRqyT9^La
z4fMVDGU3I%6Xy-9CN{AN9(L$qx$3Yj{LgN-iy1ez{*8OSZ93b@isW0oJ--vm-UUpP
zo@&eY^KZQO%auV~A4<e!G?uMMscQ~DozQY7T)R4X`GYCu6<b@=&w1TB;2Ooc{<80W
zn^&4MB3G37FaK(?=1Jr|lkz{@b)gg7J~s<xO`6`%VX|aTnv2}C;(4{!i~d_rd3w5!
zLq&T1+2$&_rAFs(ZEn6a`90g0$BSpq3GkBn_pn1)Y3swIjNuQTPngXwFDL)E?yI0x
z`~>zd%yU$i{?TFEtnyXoYVWL^UH{(qU)=J;;{Uca4^F$!Omp`8`Pr`JdbEAyjb!r;
zGQD5h;&~LjHr@L7e#e_bFDs;5W^S3#?!F>R#v|imwX5oZdtJ}gzAIiNbLpN*VxQ4Y
zQN}g=>$n5iJhvF$3|(M%hG+HBGOdW}JM)=kd$P`+NesI7xvF2|%2p!>?@xCxHXlgn
zbc<c^)Z}oQ`m|5JSH1jSt@n3mY)oai>v;b|&d-)CfsRY7n3qg@qq+R*i8K4Q+jNDV
z{<DuYm|=g)%SS4HaoOoRmnKYiEzszGFlp}hY>A!?QumJ7Uhy@{d%J62!r22hhfVCC
z%QUSqNN45x9CoO#(~Mi~%%Vlx6qbI<jtMR@D@^D9lI^tK!XZ?*sme8WW$MkTKfj;l
zs$u5qU}0=A`di4kZw<e5yw^?7#;t!`?>w(++c@`AQbAZ5+rAS&3e7uGEc=<nW(O8N
zT>0QZ@Eyl%+Rv}rC!UJ=`_Z#xj)=s{E!B^wA6#rAA@lgmv~-DZ<I>>oJs-Sf7Pfk)
zME?B1RKn=o;9KycXU&=Lxy&rxX*(~?+H3x`Px@xZ^8L1twB~JnoVN4kOa0YN6;bs^
z12y<>l^t&HdXyV`_L^_VkJZfi^KSotlKSF|mu2KD_I-z*cfU~REeVxT&`{WvG^@QV
zFTCu|rwu3h>^fX|UU4joJgB!g>fdMO_2vby4t95M`=fj2ANQSgL0p+1y`OnXKX>!%
zyvn?sWzN<eG7p4)NbfO;d{WUF@r+&n=gr0J^X+~}HQC84TVE+NU!bF4wR7Xe$)6>(
z>%N?9{%-&C=~?-Gm7hVyT(z>?p8v&v?B)NyO8#+P-G1-SgU$16i$1@cYN+z&wuEHU
z!`TnIBwS9V6|D9=7V9nY^8Uk^#&orqnGbfBPV)Kk<w?w$=l}Jz(^L*y#BYDFN3!I{
zBj585UpAZCc?;SEX}JosC*+&>NUnNY(am;PIl$^ocGvyl+jl;v-&rg-rRb;F&AOev
z_xcxKs*8OiJyqq$lWnJhGF}ICh%qUMyt>W3Svq2(+8&Oj919OlN&VTJ%YM^$-i}2E
zSsm7Y`VO)(K4i)`t5;ZYd*RwMdVdx)%UfKT6&1sIO<3g3!};ZNYPy9)-d{RjURY{a
z_iyRFW7c0j*TzhGf8u<;nfv3{*#*jvY;Fm0#YoRO@#4>k>Y_j2mlphJm@OV~{?hrh
zw=PW&BYi?j6E>}9>i5;ZvO({_lf(xN{>`SZFR-}gTIrvXQ;%=F+4_Lx&Q#8lrw_vy
zn5nE#FL@@KqoI0HdFIE!gwXQ^r)4hG%)7Mz!Fv4*LYn%$s`g1&7>lNe?KLU**Av`l
zvoUVQJl<gSgS-x^%eOpHllX7xekQ;#@}2y`w(V@Px{q{JrW~4~b}#deq-sF-iakFb
z-|y5eSL%CNyhq~A+=)*%vMf`0=kvbOpn}^<GcPaU#5qnk{hL1-7u+~h@?v|nqKjmH
zO}wOj&!cvoE9G_DEKE~!;;-L$;Jf#2VQe~cOx8{jS&M*ju{qCpgfx8*PpG=goi#O2
zeBq&QjQ-cY73PRf6kE{iBIvLE%!H?2&{lZ!%bKvXsMqOsdDon)nx+&A+zdYZ-^lS2
z>%rvt`Zu|6F_`ajT5)adRDs9r`Fy!5A{PUnYTT=M_VB@1r32lZ2^`Y#&NK28GXGe6
zuw9wG$y=hm|HS;4vs@b*ugW|$|MgusQh;S!1goM*P>rYZsiwD%5({~6#8|R*Y-K*o
zwD9*`hNJ?81ARNZ7dLL|+rp@Stoz`%C(hH;n)Uzx5ql`kT>baLfju8t7jU>AjQO&2
zZC$y8G3%sK2kp>9v8iT@PVUm)x8#$IYN5ko|IM4v*gP_ed+K|Nb%Eq^4da*3X6*R6
zOUrQ+tMuEhg*I<=R!Ix}Sm@mGfZgJNz&gH1m#(i_md<?L?TO)MCts$!QZLRoS-(lQ
zo>Khh(&|mNhmSNiesBr;l5p|-nq($Np$d<^=T{xNk!t!%YP#q)j$h{rPS2V1c+OAn
zh80)#9p>F~C?fuI0SmMA3d5WQf=U;5g>I0#yJ*v6i8~J3cb4|qy%NpdTPb=!d+IT(
zt&uW!3KeqI{}{>2+SOE5vD|m(e*Wl;!-FhQR~P>$^Ie=5tPAAhSs?vd^zDJ{u;woc
zhDy3DcQrp;zQCZ({`lJ><^`fP>&&vxXCBO%(>X6()R_CrChkT5w3GL5j>>-O=*1)d
zYfqp2<Wp5`xhpEGKWz$p{d292n%&ejGc5jmdr|mQa%;`X%^~ZBpTDkY)7EKvxrbqK
zFq7EX>YXo7US0EHk>KQG8Kz0C&EgU}{J(A6w&UbJ*1N3-Bzi?lKdHJTIVni}mCaD(
zOkCcyHv7SRgWwMuoV(K4+}}#yVK^q)Bd7F)b$!r|nn!Q1J(2e<c%rst{)cqoa^o8P
z6EQAtBo7rBd|Pzy2-9oBJ5eI{FSzz|i7t`58)$G{ilrp=-+ZguNZWA6smHy1o%hXu
zT*CQ-XP16w)&WtbYMILmn?(xQZd`r1U+hBC1YW!C$GGMgJ?vrsJH@8#f|bd0l~>dF
zO3%goy{exV+j{w<r=MyAe_&we2H%=H_b+@%NG)KIXqJvWv|r@9^oGTn>--BJzhz?B
z(RrBtn#5FJ=D?Sa<W>JGtr1vNws*nZ179yKSgz|Z)6iTqrKO+i*|P-ptop^Wzrx=O
z6&LTQ%DZq~m*JJ_gaz}HyS$s_yZ+afA3pqM-@c1xKL7Y8C^)V?FjYXp+HA+0>J`H3
z;tuO`tPPpWPtKV$gF|=i+!;z9$|r3cA6VV27ENxKn^wuip?s;bYJKod+j-CQk6$X9
zbo+f`Cfn4<Z`L2aEYN>c#^uC}y8^F_?A{*mU9nm%E^5W=Fs>V2Gh#o^kUlH-biXdw
zXUWj}()+y5da50E(>d^S&ZL`O%jYCr*>XjHp#aauhZ#2yZu+&MD|vN)bNzb3yMKRA
z=M4U&R>>*!n5#PDQkTlBuoK6<1O0!!Hfu3H<ry|7@#OEY{Kaf*v{^D-lV5lwy7_O|
z@2TUUQhtnEp~CRe_Yh-&>o&(z43EWnG(S$auAR;(?Pb}jbH3ry$qVV1Rxn3t<O!=J
z+`U-WyUxkW(*3&ItjbHD*$!R5a8ThIpPp6aN4Elz$?q2>7Vq9slDzA7rjqhJX^*<M
zu|*;^;*W(C`Tu(O+&OfGv-BXF!tPv-{zr%BnCY&%5@0vAPr8At;^@|c?OzvU$*Feh
z)=W2>wu3?SM#`$3)J4)uLY4oh-?E+R7IEoaYaxr{^(PM*laF28Hb*!jA$Ea<aDC<{
zeod_{22wiql07nl|9_fItZ2?KbKd`QF;85$qG0DYhJDP;Tb@~lipofeOglBLTbc7v
zh^Rv4YrhZH3|}>xn3XTS_#flWvoCyJ=A*R&Gj_N9)cIGWW>HhOXi98Lv;UQa&aomv
z)1F9_YAWrV_qH{^c7|bYM*-WFyhA~q2TKnG?AiFkS4BQt;KiwQ>$Z<y?LIEQP&%t&
zJ;RG9^HnO|heiJ?WZ%Enq$;1~#yWexlH)4R*W6pWS!lWb)5tG8{DmPO>%%|Z%UT_t
zy(DyT%RC=P!wbD9bR3O;dHTdl9Z@<Vb3t%V=GA;L!N^Ib&t3J-a&t>g=v{WrSjTgB
z|5o0}P8-JkqM;A1H%@u`*|MtkkoJA2^>ZJE%y=YN-hT76edOE!jE5#=Z7T9H(3L+p
zyZDp#!}4WM6Xr&(<|zqcW4XxFs93foqWHMAi~h}{0pW$U%+ewUnU2eB(|FS2U-;r+
zQ}?lB8J(<GH#=#3D$JhvO7*JTsfQBNtdeBq80~krm!0X1x*VWfcjxlPTjq~?jxPAP
zZRhLRzAeX}I~0G|%Y1Ko%;mf5)wboFc_J(M#?NGelKiz(i4n6oq&Eba%vN7$s-bE)
zAxO=b<xu-lyRIC&YljujTwVBmRcn{QQv>fwyv|QOF8ujf={w`ZRV9O)lXGINmQ<WQ
zkuGhW^KxDJ3)Y7`Qu$U}d!N*%z7LtY)o-?m&5ISbwx#XoT)1NeB|old3(+!ePmxHo
z+}S(F`<U{(H<gMl3eRijp0mrI+pllHWmL9AAxrGDyU@%>iEpxx<_GHDI;cBEYu?)T
z`)<_4OmbBGc+TzLih$`CQW>^xnyTJ=^FZ~Z@WtFqQeJOb{`CHZU6Yd{m|ldfO*mA#
z?PBe!mrL8M<o_z9uZUA&+j>rU;>lAxw(p*iXSwNY@<bOI@8&=O_BU77nN70PJsj!2
zUHs)Er|RVoZU=`c&Oh%W$7=Dp*(z*Pf00~ZaN(q#+MSBIH@Yn6eLJMCFaPPvw*^8g
z|BAKf_?&zk^YB{8g}vsV*V;c+o+Tr>^y@VF++Dh@oA&w_x_k6K%P?`fWq#>r^&{8M
zD&-aDpFHW^qToIAK<(bMh5CQOXTRJ!-DjJ@$IsE{awZ!czT$O$`rFT0*%k52jtjld
zd%)g$GT+)U>pW){tJb7tY1KRG68+a@IfNNrJf8C0E^T^M?V-nNR=xTHYm-v))CI!X
zSvl9-Gsw0sknL}{-+ofwS5DbzqQ2tX=E$o%^kmk^sr@g0J@E=p{UP(~*=^h@QzJq%
z8((yry`FQa-1id~_d&DC;g1il?=s{tp0lF)e8IYACdm!&CtB{9vE6=eb?Ax3r^{>a
z?O&`Mn<}^eOsdS|xlbmqyL-py*F9yfb6sz9H`!J^hzpqesNL27ym`T!jO69743l@y
zaMmnv+avdT(#OsF*dIL=S*vrl>#CQ}q4IbS&q=QidpF81>3GfIbZpB(jl@IBI+`~O
zFY$O7xonxT<Vdo&ys%E0v$(L|x1d?=r*8b3di&CH4GqW2sS=^($0~%T$Md}07?bq5
z@bQ&!o7ko^Ta3#mENMCV#%z)9%8##)#i<BKn5o_|*kWLr9yM9ru=|?CntcN1aVM{P
zmQ<EjNW3XIy6L#`#=pF;H%`xapYv`H!-;9$k_^&(_J?mL9D4Rh@BE@pmh7+z4>xVr
znwai5`P5{6VfBJ-(Nlj|ZDp<4H0xqV_V(<iBS~&c^Q5mo+3o-O$C8Iv=9@Wk=(HcG
zs^1c#mO8hWYvLBaPkkxs(*vU}hdGo#jJP$`KrrH2b)(!eC-u{5cTTo7`psISvQ1$F
zo7s|+tdE@BvQ})2;Co#$eeF2|o0Ad+vb$E?vM^-r@V@<vuUW2mef;$6ljA+>OtPPD
z;65|i{(2u{YQ?N)MpCux);UI2x$*5H9;MIQn0L%d{8iTd`1;-qjwy$(mDRR~r12Zd
zPd%O)v2|XThn_&}6Zh=j)2^zCZ&f~}toc<ujp6FHkPi{lAKhBAXj{bb<$U(Nby`|C
z+`L*oFYtZ!dE<HYOooXz4z>xp>nBZQj%#4#Kf-5ed8BR6x+I%&Y2mNS-+3+Hu;k|9
zGDWG48=c-7`A#jVoH=X9q%&`nYbs7vxj&f~@#9X%QBj@McHHkL8Js#T@h9^}qtOrT
zd^WuUd#$B~Z=QLvt9zZNi+OQ!>W-ZgtL)tTUq1`}ud;c6iqs6<nF%LmR7`&)C&N}F
z_Gm&^nQG+3#f54eUY7EaSyn7jmVK*aKHbprZ4Ps~oi1R){<pwRDOYA@y0F*^tKb<+
zV*7l|p5Ei<UVlLFRZ?zq_>D^+7Qd9Z6sTG^p?AgR_H&t$7ajE?>{VC$s=YWLYP<dQ
z<FFSTRf5OAnx1}=>80=JzDnZ>cLkf2Pp`pSDUYX?--J?Syo<yh&Ej)D8XXo;TpfGR
zH0j}%%D~^Niu+7kVv9GN-L`I;z}Ah|E>75#_qd@rUcNz%=k(IGOX}6juX_9EY*IS7
zCHhW7khSM#rYSaCrzn>FUBq*Z`IUFmo1@_>UUMJaK5BC|Yj4G6onu?2E%Q>h#wg}*
zs}74?v^jUn=gulc1FZ``i+GrqtSnypJmlU1!<6rvJXV)nOj7M^>K5bZJvw7na>Dl;
z$08M?*OfXeF4|oDU~}8zHAy==dzEk3#`uUn*S1YP>iR9b_T?$r4zIVR$=(NDcAw<g
zr4%L@=;t?izNwSj@pfgC%}RT&EGtvf^?b=Hbn=7M?lq~09S-jLm~nmTJKb6?^)pF%
zS8`3`ox-MWxgr{M{NEjO{*@srhg)u%=ID2QUGw-Dn}BVG=fOGI2c>En1f1iI;{{f9
z-1x_uVz}X7!6B6&x+fo*v%Wjjmh95vo%r|A-nR;2MY{d_O17+Yx^eGCaMrIEpSrHJ
zgeZzRy*IzzGb5;rMfKEOnR7a8KH2<_U41O9=*maYYOd5tS$bQzxO?xuzpiGJc+|h{
z?Gf#@O!9w@IdP;EIW@ekIPl4eW7_Rn^Ig#jH#RPOdGI)2ZeIzz_rn#JrS4qtxygD<
zvFc^~Yn2)ww$C%})@E9GiE&H4xpPF&@_vK(pRI8pW{c*DvpdF3{L=NI*XP6u56?%M
zjxk|J6PA1R*2KLzkfPXgsjcV7=_>i1WxjhPb++Ev=aO)K|E%Ch{~H1Sdi9uA3+23<
zG_l+0CdY!H{ZBSs=4y6(v9|irp4HEmJ#$q#@Z$X?!LV%`vhCND_n!8?+{34|qC?um
zamx3J$EGxE%xuzV)LACtqWQQ;AXWGF({|29X8X@v)!%%&rY1tYaO;*!RZ6RS^w!2a
z*4on{n##S;JA-+x#hXuyGoG2Ut$g@sZDWtvr^knXwancfmbq<iTJ9UUr$*Z&o42iA
ztH!?j*_JD@FYe|Zm43fw!`}59*DswP8fVa6dQC;i_xZ28cXK1|@-d!VS>y89{!Q;T
z-#PmKZnAwkq17o|slsOP;-F~t8Fpa_j#<a7efO8%<eSGCr*$+%IC;;S_#L~>cHTHW
zEu`yc!}2QMxi3y^j@u->-7ET$%=%Z8F6Az*Z57EDi{5=<y1>4cNgw}BbUn4hLHWZ{
zt;{D?#*2Cddko%BGL>?8fBMNoiJL7q*6Isp`|*_B`f3}rEvI$r`&B8$jxRgbtjs8|
z*pT+8Y3=&&E<H20L>Rt&bZez~>Cdkwm6I$O=GacyJYOq#(XD3Jht1hre)Xm{&1icT
zP<1kT>-MY0XBlU&7XI?;_p|yeRw=EP5T`}Ks>1Q+n{ooLdId^HTzU3kx>kPJ+>7T|
z#_(VH&u6XDcq#vDeUQhbd*7D%B_G@tbz@2J5#FQ;KF@TgE!&-@xb2YV-PAX>84I^s
zo9m=pmg~;(Q?Xk%b&u&uSH9y9LYbrMT<5llHY+S!yWd+stjo{vzQSA4*E!{Wb^CQY
zWBjzIik2H^uDZKCwTm(G(I*RkH@|b`zg%uUshxVnS!tG5&#Y%TO<_#QqGFO&+OARw
z!UhxCeNInkjo7q7(AhiKHm^X0UFS<!uuILGJ0}dT+h%URDQbAt?)}MvRaS4NyT8eO
zJT)oeOwYU6^|e+l-^Fb2<;kU{@f3L~e$)D``r*CLq-(lQlukM=eap805X<y;rO&@M
zsjgD1jy2585_^%@F=xHt;wBDPk=xtWo`0~>!&WRgww2xBjIYD>*>!FYIL*cMBt2xC
z3UjB2y%EVfXxbH0vPNy{q#p;?_FdHzJ$fNhDcFB;J4aZf$HqmEOBbJ1jt@55rK+zm
z_gCWO-0e%sPsDs=TW#`wvv;_Uk3(&IZ<m$rB~vY}VxJ3(?#{UQI5yAB)9AsZLtEBv
zzR|s_=YHO?JdanmpTAi5xVHRX^NJMz`o!E1^W^vKl)ZgTx@PjP?KZa_{j17RKD3xk
zec_vl8lJ*y>!z35ZZkX7sIoG&>d&TQoac=ey(+n-S@}?a<*oTw*&LnfMP&^+kH02L
z^+cYpZMmE%b%SAr+_HymZ*6~sPE!=j5t=&dzJ6Y5>-w}+uTJ%^`}gC=iVL$Etg1K`
zH>h*yOwAVP7JXTIF!o>iMGY5U9uKcvHleR3hIguGHeRcC)^KLoYa*=R7w=_PV4|+X
z`eaAa^k&`~rBL5j<q~tBS5=+6ol|&I_xiT>>5I?KJQ)2c>A~$Xc2Ps08`(dqbzWCL
z{kLgd5)adzb;<tkwCXk(Ctp`D{o)~}^Xqt#$n6ipHIELj-dcQ7w|QxG%I1yIg-auj
zd27uOVv5~xVO>C3bwHHb8UD|vV$ns1m+p@*`=obkQjFun!;_Q@llEHODv^tn{`$D;
z?Zw^4bu_9wpR%6k<t|7I;wb-E$@a-FU2=wj#`ozfPb9D0`;(JL<X_t9ObOXXld^ZN
z%a*y$7uEE58vES73%BLJWC<)<DSpc`e({T`l`ns|Cnzj?biXy>Xu^f33#LT}XBV6}
zz+TH<65aEo-@U|iO?fk;#<FJ{#gpqLd^Gm5ZPRYvAes1l%EKU4$BvbHF5C7<9*cg}
z^z4e_qLtjcHYJM0-xHZt9C=BH^=SAK-POyp&s{K)dSmM@y*}sNf)oDHN2X6uG+XFy
z<g%RisM8l$o=ww|=A7d@@{S=vrl^`>F`LHsm4#1~))=a%c)dKy7T@$hj6LP?rLcvX
zPfC6tvUw-lQC!XEuu=Da?BjKO!43khos3pDvJOSxb=c7R{0KwWa@7f2d*7;i>t8+G
za$}$8<BRQC7gASdu54xJU43z?_a1!(6F~{-+pNW%0#d%WR8QEQnRR@7g!V13!wr{N
zUM(xtF%TE%ymE{8jd7$#_1PbB;qvp%KWurnw=`_}fz40dx2XMlr?%~O#)(#^_t%pS
zo($iy>-mC}+y|t#URt~}G&DA3XO_ldeY=AhsZNW1bMpRqI@xXrP~La_groB89f{BP
zng4tGY<KP3vhsQ71Wvs**l(%!_QU#<v(}u`Jzctg(U*X8sheiyFFGA|vhQu$%j=KV
zZ<#%B>&(?g@n^5x%i5O}rRSdUv-jT?MMkaJ->$|b#fxv>@F>MwSaRK@3G1DdrC%n#
zQk3giawI{_q;_XQ`R}aF3-td^wY^XpD;3yuIY0K*+BRGME%D{$%ChzbdADBt*w{Gr
z@fr*BvuO-p=AF7}!_jjkT!7<ijgtJ7V;su2d8%%O^+hOEx|$l^Z`HKq+r{V|nX`Cl
zm-sIU!zIm=S)=M%UN>!Y>t0eCcl7Z0runJ)g&R0CA1j(@glTQ=;}Z<qlhEPwY`(6r
zRv1V5g;R^)TzTBXm5|DQY2~K}`nee|-^rMHMwNV=SK9D#=D(1Gb)R=%eD=Qh$(qfz
zT_+24xy-r#UtNBFYeK)ShVA*w>^45~8?xp+T3K|@B{A8#W9P05A6#442i;<cuhTet
zTGh3E-i+o8Squ^%D_v?{@Km|IEG%M9Wbv8*zb-Rm_j5&Y3CHVRr~is*zrOp{^!Q%k
zo(oTS7XJ)bd7Zm-`Ar?}c>CBcF|$dFRrR-@HOpOSkrd8Wa@oX9dBXcoEl-U~ZRB5j
zRKC7Cb9)%e2g?ti4r{GDv`5%Yito+7K${PCDigOZZ;Q1$WMqD{Y=XpOjSrW12F&fb
zVej-lZ1FO`rQ#o17C*aVEBAR{%fTfZW;ZOnd?{e<wW^2(f*B&-p<54s;d6RbA&_(S
z-m7IE%Hp10@%#<1DqDP=o%o{qSvDJVH0{%{WpVAF?52HxqQ<E;Zzgg_hxsT?>N41R
z;Jee78w)n=H#M2Hd*PnF=k$IYUMUiBqG0LiaJ>~L(@*KjZxRoA^}p8ro72LDelusY
z6mR{sed$xr74<#`Gb9pYV=M2vO@CLo(L#$eZ0aKZXOAL}hd;F~?*3RMFvV25Z{~Di
zCI0d=f&7!ipSOMpS+(U}<5s;b%0XNe;TgR<GG24dH&s{s79!fb>%iqhY---CPPOm&
z=3&w`S1NI_$<jN4vWBJYdv`rjuU~q^$bG$vgmmq`E#bMZmp|IDCh69OBY$_#T<Xlw
zzj*b>*IhNtvyv1a&y-zm#J1VnKHY-v{_n)?Hx;AQ*KMBn-tkIm&dy~s{5>yu9ZjFP
zUUMc-#=1yNm&<Jr1$QpKWgfL@!SN@d%hRuJ<4b;WA}&<Cpqp)}mA=sat49y5+4OUo
zn(V`Ul}3++J!Z+2JQaJh^22MZIVn@GW>%Lee(g9|bZGwWfREzew`csD^m_hP1qsQv
zh>H&*PD#{HUCDjvf|aCFMbeK>jeTCn+*yCtN;ELuY|#3gJ!hWdi;!c?^IRHC6Cd7Y
zb6+{fOIi6bdjhvuA-6bxTkcMal{=!!HgGS_n{LDw>3vAInB(oE<6krvACx;K$?;Tb
zTS%Zh%k=DDmnE7L7VSCE?mz$TXPMWG%5#mDAKkH&d)CWMYIoiGbt4aLC>6|*-h44%
z!!+%dO>WD>f5+cx-`o28SVI}R;5VjY;u5AGPX2IesXppjxF%0*F2kdu(learS4w2x
z{j`It?Tb#-(kW3JcNn~xVt7JJdgVrK;o0U=n}RO+_VQI;)>ae?dfQb0Z&~W&oz-7#
z`Iq{6%=Ak?-XGX}YQE@!meYw7m)*Y5t8wV>xvIGWmortR1Ip|!JX?2k)6QOjdZ#;S
zPpb|WPX1l@Ttl~e8{g|~cFA8~eCm8xcVhPGJCmeN&e{+itob;%#rtPUWSzX6<XulK
zzi{U6cZaJIG~Hf$EalO)F7o0%t(hAXmNRLFM9H55!Ksh8%CB2~VokrSy20LrqXNyL
zo4a|v<(98G_9o+Vh0=s;t35k~_eNiLy4il^{?W`X-FdTRxH@|)zJ~m_D@$uD<?G&K
zA0OpsP;fkYiTKj_8@OMtlv(PrHrsoz&vSjNeVZ0CZRlm2BG9~IUzee&#L^E6bE{v?
zNcbGE_}l3aA#Q8qP3>R)-q5`|$@QqUj}FT;yIZR#GXJ}J?V!LGH`U(;%3b?ZLssqH
z^kuh7#Q96d?@SS!ceF6p?n-;WSMR@fWPdv<MWt_Yx>6A`fB%}=I4zdTEiY5UHhxJu
z$t~Pf8s^w5Sz%c5L!3p8`{*|-8;K-k(cjzOs7l3M)8D;k!`^E<Zod0q=X2lf79*qj
zjla^J_G~AY=j}OY*tot%UTw;~_K)A#j#f?OyZp`Xt@`fMpU=8AH=U5$ApP?|tiz%T
zANiEjok6yRJKDaB-RQkve8p%R&n=d9GxRm~?GIl1T#sw6w%q>yzNdx<xT7vE{^D_d
znbfqmspsU<B#s<Ab})1C&a`H8!FNIPDj)HhnOZK0&N-8^`PANthI=He#mp7iR<h2W
zG%qM9*EqL0v@EQ@c~XrTN2Gh)@}}FXJ{G!jzMcBs@6qX<5o@$BYAS!3Ioo*C`|0-<
zAIvv=C%a7Q(~tKu?+OdPtF_cVzryHpGfOPw@y5vHzEsbv)@8g7+r96muhWtL_=0U#
ze~OvjLz&DH`)26}8mf)!cJp2{H4Hx8S?YUS+vQy7s?SM(|ExdpD5Len&KKD#I=^)`
zz7=Ovt@!6CU9q`P_`bsunMy&nP#>M+Rlee{=S*3vwa49ky;_0tqgQ8g?^nz_xY<q9
z@K)mD{ZZ>z&QmRWZ1ZADm~E3o^O{*F>M!eTt*G0xq&;f=g?TG%S9#r7TchA|IIVq3
zc&U4$Nn>R@`yB7ujm6AA1xhCT@%r^+(wVBzH8tfOfr<A{>`*!M{9n;x)7P>7HYID;
zWID<INVqfUd#KvBu*a@^?>&0;W93?-p0ir5zxvwCy4O_k_K!c0{LI(B>5Mr4=EL__
z`yUssZ)(Y^m71A$zNr4TMW@r9ss2VDYhB{)=f*KE{<P7X@96yRXH4IJ-#lmcbLGdI
zzgcuhRW`==wdlNhmf9!7F=5Nc6;u3U1TMADuu<7t{x6`KdxOT)pD|%=4>UdZuH4zs
zpmQNyqF^tl`;6~m*G<)9#j_S2+4)Y8x8z1<%hD$*WhYs5_r%W)QE;9eeL(TpGV>jG
zZ=AU(Wx2rH#3J8{zx0lP%Gux>{g3YLYmL&+-PNhDqa3>QNl}2?u3*N?)2A*;zBH}M
zr|Aw~@SH+z>Fd8%6i%v@Sd#A+vLZ_7N-66r^`DWIYxk(^YEI?kd)Rj5bC-mk_l~4_
z8_XHx<?rnc54ggxs&QT1_3c|Zf8BK5uza6lqiylJ35)jret&q2k;&nXZ)TZSt9AIZ
zR~FAc^U`A_|0!9!=#$D-t}7;el{wG!@b>2!H&~8kc#2lKTsAzx^Yn&k;*kS}%5~wc
zmEr&R*}|=QriSHwkXct0>h|2L{PVrJOM8|VZh2OruYA1x<P+V)eHn!ed^?MjF9#oN
zbUMPhD3w1^I52ir<<g(OKNs9mp8QnELSHs0iEXF+yv|$CI6ap{Nln{!#`?#l8B>y`
ziu_+w=+yBdh;47ytgOeYb=BI;F740|R@Sp%USYC)YVLd8MN2BrZ`pR_a_pVhsxuQU
zpPlU0jnz?_^Wb327M@f8Ts8<*YWFFATEjIr`_ep~N38!O=DetWw6^xgTpNBL<)jGZ
zAm-V=KNsCRc}22&ZuM{GOP{%KR5ASvRH@46;uC56e`>9<ab&$|&HPL0J2*Qh-;%6+
z5Gz!Ab;Xa+M5Pmc_W~u)Xl^^S&g7seyPHj<Lc*-NN0(hf-E-zJ8o0!7lq^&DQu&B&
ziE8rRr~Nw)UlLN@SRHwN^*NQGYv;7TU(vAqRNHZAYsb&7Ws@ovXe$-k38Y1|2p(7e
zDP!xuMKP7BK887O`W71oUJ=Cue-H7^^6XsRQ2*<}f5v>rlsy=$;UG)gK&#;_Ee#Ce
zi{VVnF&D#`fQ}F(d|Y5{^m>)!h0DHJi9Hd&&HZNIoa2|xcF*|U&C9$k=jO8Td$ALl
zISkgeKjg8@`TRktQ@Q)!*S-_psVQM8q2JF~PT|pEdG)0v{HdwYx_Fm=ul#gA`91i5
z>i+b2yXybW_1}M)pFeWf{!sn;`F~%{^x?lV)n0%9p5G^nYfjufs%rK0%-zrD=RMv2
zbne!yiLcH@?`|ph{^xYM{Qc9HCI1O7-SR!@?~l{Z|NnWDlXRf{{3*S_V-?^3h}!(S
z>8XEkcE<bte*WzeU;nQ6PZ#}?v~~CYZ%f3o7f=2^fBq4ntp!f^>bds2Z>(5-^8JTN
z(LM$b|G8$r)UNS7Dskv<zF&Ip{@<6DZ_RsQyjSn>-|6a{ht0BbH7hQif117R=XXDg
zli%%omPKnQibq&YRIj#_d=qi}ck16SnkGDx1-I2smzD~XnRb{nG`fmkjoH^b_2eGC
z+z0o!G}_j*uU;ya7!#YD`|3<$TK=WQ2Y2W3PP=?lW9N+p@9Zt+9$mE7z~cVqPk9rA
zp2}?rDXKkd=`8l<=}R5)=X3Zf-_GH9_RneGUz7SP8+zV9tUK<?^6Sm>+?eS`?(rI&
z8d(<|JcIPq*1ONFT(dUn<+GH82Bua+o7|_{7j5|Q`)0;Yj`#2WKVI@>k*&_B<v;et
zO)*M&dNSf>Yi&iV@5-Z<yW-dW7uS(Z`v2kiWZ}MWuloP8-*OXbO==gL-k7FYK5zT-
zz@txBe|wvqb6WqHblq9am+Ma-u<O)b^p>e5&|LQWm)FPGJ=UjJlm+@l^-6R8PM><A
z{CxelH$Ugs`;@QDS=<;~akFeo$@(h=9Op0mSoGkDy3@owMlY4#iRt@~-aq=NMXtR5
zZMe5Z+o{Q^+0kC#^-NP53-{)o6@GQwk8Qu|Ztt=W3+F!jf8g-5q>@{g3J)F(%rd;B
zy!Po!t*VawueLdJZ~Y<gvTV<S+Y_ZPe5%;b;ktFN`eX$Yzgt=TY3pX3&%F1<|JIUw
zTY}q9uRQyR$yWYuU`+YGzyFk{#eFCjP2hcbQbA?H_p7&5+_n^b;CJurNq>K5<x_KE
zKFN9Exk{B=_U>CE>Ud6XiMP&~b%#DEZ+f`o{q)=-gA@y!51&E|tSqh=-rJva^1bQl
z^b^calzDEt@xHzxyWo5QLsBEN|B)Ao(d%y<{-L^!HKdl6xoCr*+_p6z5?{zJ*D}cv
zYP<A$`I?%_*3(Ji4}LFMy?!I(1&^LHEmNd_$aXAJt&+%`WKuG}YlULS%@DpPjmPw*
zex;huGS6jvpxT@@xp<4_rn?&2YnZn-&SR~M-G3y{bWW)k|An=M3-k`i*f-vM;aau)
z5=U;!*3FaOR#iCOOvzmn@0xt((bPBLhUIC`4>9iUEt&o;rMXurVB6=ryA+>3vGRAl
zwS3MjM-ib#g(01j`=Zm_TzqeJC1eZ5Z*oYjk~MxOI){<l$>|Kg;+KsUm8{VZmmbmh
zWVLtm^KT2RBDs?{mT6shmB7b3%XO<(z{W|T{8QfS&%Irsc>DV@VNtb5f*rzlCrl8!
z8LwpaV%tQuPkWfQR3~z#PchI??CE^j@^$&4L+=iUY~Ldo`FfSpyZNV9E$-t!J9pli
z6WXFH)Z}F}=KD_m&*8pc(bQEoYwyl&o_g)zqsuFDj(6<R`*25si~rZ=$*~C^TatZQ
z8Fxi}DZeXS-+Q?Gl+<xPuA2n{pH4Y4eq0{Ra!Jwt|9-!WTdfnM?AdR07t2=s{L9l6
z#wyL%Cg;%Gyftv;-%m#8k8qg&U3F1yq5GnbHVTdr7xtY!uv5sf<@f)bT){f08!8KT
zfB#_0A3Py4{IgTb*FVeqtYdqHUPfk_6tOLg_w7FS#X(5ygWiU#@}-LwpP2pbjud0H
zu*}a%D^k~AKYZr($~j4wJ>PBa)034B@LaHZLdD7bcMl)-le*E-f5Z5~+&QHNf5VKt
z3?-HIwsdR=*!DxDfNx`NOZ@&V>I<YhcRk)echkuuH+O232PSfOZZtXYnrFsFe(|{K
zij9^07CPB?%{I1H_wZyq)3%5<D7qT<CVk__Re$83p4o6D(#iRX%K^8&?6G!V*6{t)
z3liEq^?ON8V{O{u=2^;n@5uyQ*}3vMOMQIl%s8u$YmO<aubA`9IA$-yF5%PsVdp&;
zZ7<2wb`JVtDG`}e`t&7#;R-djvs*jwtlU<0Xe!f7iAM{cH+kLP^z6#KbI+}rl0y#v
zJm>5$?c8_jde4p>`?oOHy`18{A-Lh#EXnOteWP}}9$xuFk}poW<Xa4%|80%UpM3lk
zcv@Ir3zTv<_bFGdzco4Ov*5KO+x6`u&&o&Kv)a70;&{U)E5}6-buT~ZV3E|3^<c=@
zRWqxjv*X-`&%Yl1Z<GxWT4PrDNFdj51#4ymLv8EI#758AS$hiSX>cz(vg*vWu-dSL
zADRO8Oq$%ud}WIRZ|BN(rHLsv-!dEjGF7i#cfmdE_e*x|$_-7nEED_}u=%j;KF-OI
z9O!h~QSjybJ2?^`OhsP3J$kz)J$2E3+en-8bABqkABBS&c}jQ|$yfE?{5@fRt+VNw
zP0zBjBYC<se~QVj_PgP#S??3pQayL!>Lodib_|=H{)?~kxF?m8Y&_TdK>zP(XY->c
z3N~n(%~#rLA{)qhWyzh32@TRav)zie-dk>bcdfJI_swm53GyAkXa3qQoXz}r`aIc3
zT<ReorRH8!+F5yHa#Kh%U(tk?{wM5Scb0!<o;y{vTd?Teq|<d@Jve)89MY!!`FU=6
z?kbsk>l6jwvL8Dlacgb&mc+29N7dJ?+%d=TNMiZ{%jUONE{BKYCf0`ScyViqz}fCk
zf^BX~f~{rt1b5j#Z06(s6t;M|*c7ctiIob6-bf$v&|4$&WU7elv}OK(SUe3flApBX
zs&)Hq7oOM|n|)Hyx}Znl0#Af|{Hj%}-_QSS#+tYOq{=O^K8<TB=k?vc8D%o^D68HT
zn)13;HJNE``g#uIFA2P}_@p=@`DY#pyYP^UTe>>BeTVt-S;g1teU|@@le>_=&QVF?
zbhOx;YgXY?*j2?c8yDZpYFob6PoL3}T|isT;`IJGJTo|)Hfb&YGPAr~KVPRvmrdJ_
z^^d`a?R}r(!<C+|6bqdrF)1Nae{Ykk=sC8ds}jV%3EIwKo7teTen#AHsa=LgHx|6R
z_fxh_ztP_%%$fbQweQ{F<wwk?EUWwV=jQqOe_#1EsXYy<kmPN)mYlR@&*m3Tix`!!
z+5dcS^SAt;(|5P;ulxLR^Y{8f_4#}M`~Rr7|5;zpUT^o~_ilNc-!IwA?dQ8~YHz$6
zU{=Bsf3I;N_v?AiH|=kHpSfUxHqRr|Pm3n-6+9HZHgo0sBag3@WSf8JUZ}jgCp&gU
z=yB<euPge`OgW+by}q*Q-}~ryp-YY)GuVB-_h!q~!y?iOPZrJ-ZIgNUV&&2^OFmim
z+~X~@;7K|<Te7twSXOuIE|cut3*Ig-I3FWlvOC~hs8Vk6{VZNFq0Fycw^Du0&iS0Q
zNpLT@fBwU1j+hYN*jJ_p%Fk>`Y!PB!H`8+YzB5P4w>>y~!g>4buESjF3$%H?3T|Fr
zb*^t+_?6(UuPYq80}lDO9@OZuR{y~xdC9(0xNbeq9bcb?QqQx0u;gS(hpSaPKR$Jh
zpK-$;>-Jh%_6ed&OdaigXF5Z#S1e)el-qpG`!YL6YD|aHt)@>)uF9|X^)+?(`*-1m
z*T=UJZ`Xf#>+|=i^nJby8#cF1-y)a7vdQq#gM&Lh8FJ=j@*K9mpK8&#rAUR*z|SDW
z=yL4EiMlO%iIWwU`p6te%x9d%E95)tnK<LwPkeKwHhi_{HO}D4RBd!y<+sjHqr8+$
zalUSe!h<FMoF|!G(D+sTfKhOBmd*y<8E>5b@p&-Ux`?sW{tvzp!Moqp=C@dn%~ONE
z`F2thMT#%HZThBlQRBti1GzzugF2qX9x0r`QWz2c%U9^%tqt#HnReW|@lW4RG1>pa
zo{HHAR5u^c(h=Eq^|$vWrt1DR()H}osY2JDSQ_W8F+Q1m?WgZn=h91`=doR4+{ZsD
zpj+0g;qs=gM9b=VuDMKa`qJ;N%;cB7G4WKX;jXXWuVqx*eypwWEGx`AlqEOoqd|A&
z<ga&FqPMNklv{Fm#)XXU2Ru10yt%JjYx#J0faSVHm$_wLBu>{kA^J*9J?!4G{%EIX
zS3guJXjm$}t_;_ZF3P>T=z*aEcgyQW&Z$Y64I0tfKeo(jIrMRhB>Sz0JTb@F15R$g
z`FKIgD_Or<pQHnUO_nV0!<xQ#*|%MtbR_@ew#Cnn958%Uqn{)5a(3STsodS2%E6&*
zhm(s_vn5`CDTs?uIjnF?RBMwLf2@I($j@!JUhX>X@^10c8w)OJ&*9yWmS24;FypC4
z`D$q)|0U+LJ$}62mO1_YypT(Re^xEZQNAgyUF*;8{By_0J!_0pTrGPXQh#3&zWn?6
z;=T8zGnUPabdE`X+-kVyWOLtz{}XR=%ljUXV2Qd_{92|_(Bht+-rw}slQukVTX^77
z6@OCyzOUI?pN)z&_ASgasIT&x@bbXzg<{t){jU4-c+t0Dwd^VZ!2(T%^%rBlUUW^f
z(Quu-mDA;-TxMfq-Anh^vv<sQFRs3^^wI4dh1{F0e!Pn|IFodz@y-A0Rk9wx-rs(I
zz`^eDu2oz+HEw?pKj7yOcsOHX)X%F2C0-wVcWlOCrZDSk?_JnrXSu&fezHLDh{}E6
zn^J+_pYYg-n7Q@`%lzs(su*<d_tOg}4=fRze`Wr!>3Pqxe#qo3<8!h*n3lD{sy$Rz
z*I?tC=*s`$bN(M|tm?dc>+Ag^%>Q{m<(K%0F>t>=6q#snbK;}Wu2pLMjqc1hgANA%
zW!u=j!0ZHLFMASmM(s~W%`bu{k{?&zV~Mc#Ne$9ps_M|G_b%XKzDxIuX2Fwj8~UU>
zXP<bTpK+#*^XmesjKhx(_x)z?QTLg)!s|9ec%);A4@1%7%j>G_wRmiqICW(LzEodu
zG*jEM^i(YK*&v75%W|D+buXvwuj}sG;yk%R?0aRX&SH(<Av|}NJAFAZHARgh&h%;T
zQM;*1zV)*-o7evKP}X<3tUOKZB7eWL@z;_A&-@L1cHZW+S@``t&$}6V+d98(-tsQs
z{rhkG*jTg0T8o6|ScV=e=I?U%2-_Rt@ym`+PJ(yV0=1*OE4CcpxTkf?b5$<UZ_0aw
zz8qU=y|4ODzV?rnw~O3t&Mexts>PFmq4Ul>?q&HKy(6zKR{R|sv0NcC`Fs83rw0w}
zc5i0M-ccv5>#^zOwp5KSmEAn5i%RYqC3L8DzgT;&Xu(R42?s8(UD0&CSL%v<A_uQY
zo97MRB@eehyt6|n_I10rVZh%s-EUW4yt=b9G<KnLtFp|uus3F=Pj%1t8%?u!xGNxe
zs&wVnRmvL;^+abmxr?Y=j@V`qHX-Op`5B3qALnVVdi(dvnQJp{KQz-jmbPrV$Kmz^
zk3?(~thd`u-K84vj_Li}#J$CbBLwWlA0Oer_xRGKJxyy*1vzWvu($@c8OX2yoLqRI
zt#k2eiy!>KH-B`T+UPy)l}FFtSw7v4%KOgwA3QNz*}nDoK8qOp73co^_@aAnvfeS9
zDAmJ;$!AXgy{I0%*8Kj@&8q3?-flA;)z`HNnr)U3v?={&esW)I_0C7CyUf>_KYadr
zcT}yi&V#vgG!A!_y!pS(_2%v9*)!(uEcIQL{8IP&lM8Dvo_sPpwB>eN=)}H+Yj69#
zc|49MbMA><=C|XWuCUi5znFc^%<pnd+qcIZPkit=gK6sH`-iRGStqvFKK;ryp_Hju
zzUu#X8K%j>UhjY2@D_f;BJM2r_S2l=rhgnM25wEdm7!aTegD1wD_?L=y!+w9?GwH<
zKl<2ZoV;^FSXYIFdXQbXc+z6C!gHZpkAK{3WT5>fMBl@6o2<<8l@iHkQkSikJo1p^
z?4n=MC#D<;(@TlY)|)cZVTR{#|7k^0pALMpF?rco>0p!Om&VHY*mG&#`s-ItZe-p0
zWvccoZ__h*Je;mimzya(`1G|kr|5NO;q;z}Wh^G9(JVpl%~xGnVzPM`bCK?DI|Kg-
z%M#5CJajcTpS{YX*~OOs+q5=;<@Sji8~4xq*vZ2A^k>c2>hB$gc|D$Q6xwia-_?UB
z`Ok6%I0xirCcAkxyMA2bbD=gOVOef&6K5A6m!g}q`dyiTV4iTc9g|oeURpNIMDix<
z4lWn5U``IFFxQ$Vd^+bpSa3w{yB5s$Oshm@T9E%L={sT>v0|&ZKirw}{`-?B+qz9o
z*SK*UKF-PeZ`#Y=&$Hi3J7*Pcf0`~X9xQolzDmzDXO<hqPu#hd^rX6XCI*)*c-Oxv
zvwiW-2bVb&^*;xy_Osb{bE&n>on__AvTILb4`XuNyh(LmzlmK6pRwXzhWrhSro)c5
z1^!%o<(gS+t2Qy1o=<u8zwO7=$~U{rH7|?CZJP1zZ_47&M?LixJ8@VaU3XsRvE1%?
zN?h7$i_be3NKAE{zPUkHXwrrIQL3$tIUPxkvtnL1Y}#MyaXb0f-ecdEfBUzAK{QTq
z_4CK<3w&2_xX<5y%(w7_(h{5f1-`SIH+5EOKNPO7-DSc)wS`sZhR{8w(~LZ9XC~g<
z@G<VTL*TSx8Ih~zTheDP)LN<d{Oia6Y<KoAJ-edzn0-L-)<va1XW#q#&>?V7`BNFM
z`B&#VZd+?st?jV#LDBuMEWP*sePnrB{!5s}=-^p_cvg$j)0|94mlWJqw{u*<c+fn*
zx+&qx!Px~hO+t@l{3i71Op&`Am3gpD_zTNdp<iM5f3iec&r{H=*mANb_{`6RUyf)m
z`pYP#XdC@CPpYWvW?)FNXE^7?NpY#gugWWzPG7WmGlwz%h7*o~b}u%vD^@M33pd`V
zzvZLEw}+?J)$@OQxM9`I{MJK?l^<=?^u@L=tbUo5x8L(tvW4Ax=gpEe?xNEq%AW?L
zp5%Q}E})m^`M>4qeIb(_X={ayXRW#V-{#=v1I`s6Vs-XiUmm-rlxOzQTSxk1%3e)6
zx~nUHLSxCE<f%`mneCJ|Tv5>I_u${r?^}|?TR#<lZIBiUxyk$bTIP)nl_jZDc&%=q
z<fw_1eY3bi;>VgRcA;+%rX0=gEsW~kDfxKMw`bccPCxnoJF)b_`9%S0&ROL*&sO%H
z`PJIJDMzy5w5j`-+cJNB6<d1w{c;xDv0i>H^M0X(!(R6T%Cd=X*|Kh@3EU}AkxbdN
za8s5GcmHDjdzW7Gn@BtEbKN?Np}I6oxGdJ7>QU3p5{_H!Qkxb$KkTz^?WBhF3c0ao
zJJzoadHgB!-H#9P*Ei`+TvGb^`PH=TlV-R-+n_P?X1tYg<gTQ?1GmhRS+YGAPUTf;
z`?s=uyX%t6<zka-au#gsm>PNfu+ispSD5}JI_e0f?Vj#my7}FPtey#*3^uCVJ|}zb
zZ{<1lUZbNI9GXSWJ^f<YEXH}v{MGdRc8sSt%9)&+BE)6m@$5r8J6rH4m(SB@d}#Hz
zVwrhO-}^1!+ZV6rKUE1`Et==Vb!64=`csx$H0{y_b8~YfXY(3veeB>C<u3I<>+jD{
zx8P)(XZ4RA#RA!VrL;D0;0*8kwe8@XlixOO{qjrYvC^9Frcx|YYC2_ajn>Wo^GkD%
zL3>a_Qt3GtwpAWamldR4T5hn&>;S{uo&PW1y7=Dc1NXU*$lTedE?;#!-LdiC_w74<
z=QkwJHdXn%<>{*EnOvW)>F-Yydl&O6WO_tJUuU9iqw8q_=Ey_We4~9fHR)e&miz2@
zd;0x(2UZ=7_)xxlMdClb@Y#pgq&d4^To${Ftx7p|vhCp+1`+=PuT(NWeUe!{nY-Q1
zLfPrw|3@OW9}KLT-#^&dQD~tfB4u;x@bCNcOai*!t<dv7>T)&r;ReGz)`*+$_GB_0
z{becEH&HEY;)+J=iI3l|I;k+>d)4+LZ<e6whdV#>gk@f0{uO@BwYT(ZaOR(o&6ZjF
zW%piP8RsJqp{IR5=J_c`wIeQ{WWP$i7nk1<7jo0UY3|#%+q&Z)*d-YH`e)4EbNN{D
zF@4jHFF^$ymYN-X9tS1=_np_^T^(lStW|9(u&m>5<GJ5mOYJABHRP{a@QZnUqeO{A
z#-76~_6OcRd_CCWc=;`jEORmKa;+XYziWTHy;>!F`_$&Lyi4J8(cj<`b<B}PJYd?T
z%W>`-_no_(#wBCo-`LW)!eX(plu7K(lE9^Nmh->13;U(Wb4YX1vWw}7>bp1bGUljS
z9M*W&n9a<bUcKVv?CW0)ST3HrFmaN7Qbgk7&t*ksx8G}=+!q<`$SL^o<cw2hPv*0J
zUU{<1f726_u*RzJTj!?qKb-6GLs$0A;!v*s$FeKta%6tel`WcNs<u?%t=IYaje@N8
zjfNMdom$aq8a<P%XM)MDNWYrDdzJP~Hh=x9)JwD5@MU7_Mg8o_YmT2<wrR~dw?DyO
zWcI{!oYpq)I4Q1tDzkOAhDGniw@;FnYB_A_J9BZW#nzbl3vb%aVCvs=vMlv`@xj)H
z=q+2k^j+PrYUN%1{bl1-^PsII8;)Q3IfZrI@s#o-0uk})9c!OSTFsSA)jOuLyS4J_
zyo7gO5B6*8w1uD6{KB+D{7vSTH*9=AXU9G~Qp&U5ZOOMA(c#-)`EN|%47>ZxcEa4V
zb-wlKFZe1oG-qABer$b#ao3dUxrtwuTHdy;SDop_yR<j3NhJB#-*X-nUDqC;uHjjl
zxjk&Z)&j;Cx7WUVmGp<X`{COCX@C0pYU_GaTO~KfO%K^1Hly@v>m}t?&388zNGvX{
z%@ki-J;y?TzrC^U!jqzvbLzM4DKXy_rG8zNap`L9RWXSNZ=dJjj=a9uYOl}!3C|DD
z**Ni2cj!KDUshYaHD;fV3x7-c?5>{kHT(c`>#yQibKgr}pDoq-zB=bgj>Plbn|}XU
zy!F%c`Olr71&K{=IrFctVUCir`ON8$87_z%lnGh+f;ppH^T^cSmg2t2flHUv|D7gt
zA;xZVwDO^UKTq>+vs}8v-q}wxuA{}{1ase<{yh<f7QY?6t}ovx->MNFl34w;nk(3j
zbCtli>9$97R!v}h6wj`$vUiX1nhhT>njTF%<z^b8^x{y_v7^Ts^*`o_{Bo2L-xVCv
zt~F=M1jPl1j)l&DC&ai~M0(EMpy-D!;jBj;&AKzcWUz`FEw$$6y=if}((~Zczeby{
zA2C|8a)*<!+PZsNue=Fmp8J^Vde&l_br+uf*%iC-$+INS9diuDJZ{WY{>K>Jq56K3
z&_aWWpE(bzNC`VN%$i(w>mk?o4SH6R#~I_RRsMe}sZfmcGm8COWql*H!;0^~p*a(a
zr8fkm20WY<z5D#1v;~I_ByW}97<Xao45vqDt=wGi_Gw>HTvW;1@<xtR#%}Qxfsc!#
zr>}cf5fpJ{*|~sg)@ydgzR$4v&F?QHaDp?OE#t|0<x>XbTe~McT0F^C?^)KA#I03%
z&XVVN6#x0;PS6#e^3XTE%T;Px;m33?mqmW7E(Xune34=JzGBIgb?&FMfBx^ka&O`-
zb^U-TMtP6kHnczS`CDQ7?%M^f+?Kn6>JJVJ<}did`0tz9hs0gSk8(U>$U5`D!SngT
z_Uf=F9JX_!CKkVWC~tRTD!V`&>&8nfPaMe=&_3K4$0f<=`i#r&dcqpBgq|k~5(g!=
zFW2`hHcil4`R8V(nmVhFfXXAGl&VQg@yqvx-FPV&{N+ba$4ZkQoJp^^ihoOOUn*{N
zw^(p(#VH-T7wo!9(vuz@*sXi{!0t7BowqN&e>~nuV)aysJe{8&<(typ#J%M#-5PLN
z?0n^czUAemXVlABWVj=b-b{WXExJ~$>Mq0ab(1FS>0O)B#`6Bwjk>ht;u9N75<7cN
zUro5cnX$&eMa<;bhO@67lQ)VMR8=35c-H)0Kg#0E^wV!y+m3wqex+shy=-r|bD!(+
z({mM6Cb`^G=X+e%`>o)6CRg&Tld_%JGdAybYx=QY-eX2VLHG0DMtn0mJbPYpy^B3n
za%RW(4Zdp27l}UGJ7spm+=B&TD}=?~mmSFZcj!UuN@vfXQN{}_zuaEV-N|~*A#P5^
zyX&h%uY9Sn)Zxs!;-PVgODcHH^i#QcM&B$}h6FG!wC!_~iLNaO3j4Edwo}jam)q{#
zT+4FoVQJ>3{wdG$uWvuKedV0?sU?cH7v<|!vnTq$n5vUkT`QBdOMX`z=Y+EMFaC1J
zHp!h^?zCnz!+WdsQJb%x*SqynpYh(E=0jnh)-W&@$vg5}U*IfQv3%*-0?q5)_t!Vc
z%1p7?z202$-C9q*DDe~9_9Ptk6W_$VMen%8u2Uuk*K$t3S4{QTW8#`vIK3vZudKw)
z_UO{zRVBN{H^vw=rG9!;@ib#^J>x<_#V^|{w<}J0YZ6;I{qFDNVu5)rukB~u`L-dC
zb!kFWZrP5n(|7Wy<hCvq4b_`3Gf`{*zpaN(Mtz+<#d3*!;pE!iWqaOi|D^js+%A68
z_PC#)4&Upxy2sM9FyH(0=e$eY%lkI|)wsQ{tL?`3n9QZ#GIzH2O*vz>E$wUX%IQ3-
zvjQ@1amsR^+u^yc=;{vF<q52D&8eGntrl8_ZuoZCSI_c!nW&D@!`Y@fuZt2A!jE>f
zYfW3Rskq5~#}#iMoBDe8)4}>{V=g{ls$<luAfw2!=}}wgyqkyavaFn(_g%nF@u*(!
zQ=xlN+ESGps)d-_OO1beCEW;Yd1q?+@pYAG_7g)c@qK549?z+dZ0N0hyR60ZvSOnA
zwWM_}*B;CC#4){{8ZS|FURPUC$okqzcDL6iiW2TFan?$&qu#&#Hcih^&@WnIc3<Sd
zgGotl>%|{0o0Z|#+$nhS>Was`=RK!p1;6{b@t}6d)|t(YD?-i*e+kavk#YHPx74ZU
zUG~bO>z!8jEOTqEd2%8m?8Kk)M<<P?9bOidmR(#}Xv=#|>2k>R2dj^L>xw<ywdni3
zqSPOq3+CPNvSVO8U0r`wp#I6aPb}}8pB~>8_kO<o!WPpvueUGVt;5a1u~qA>`e*f3
zVu>a@`Q@*3^9o;AExWXAR&-Uvb@K|h&vDE<`pPSd*+oQm-^gs6&Q$iPcDK0L_g#tF
z+4Hz}#!TEhcVf=jC!gN;cFmHiUU5A$J=H$mNp<DX+Jc{-PCfYAVf$L|eA0&WmuZ@b
z6<g<S&S!5hm=WrB^7W2TF-Kt&!}qoon-{XnTz{V0`Gs-4)6+#&$Nw=%PL+CBHPcG_
zP}9`Jl+fkx#IJN;I(vU*mPV@86E>qgardMxW|dX#{j+Pw`-htqysfraRW~15QuM6R
z(0ksR*sZ6HtM~1QOUXZ*upv>^T3^I<#^z=AKZ{I?CcjYK|F|{#o~Wwg{k>^l|7>``
zuw;J0{<!;x-gMrmwR{@>lF2&%_~h3c6I8C&TJ<jBd^gj#s`sB`h4;<dJU`8kPj?FH
zZ2D*1%jv#xKhyg)PF@+-dp6Dpc&fg4?)_LU<Cw<Zn{@Ne&bjbdi*5G1K)X{35B~Bi
z`z~E~V%p}WOzmG2(m$>gaQRaDZ_ON5A@gw8F!P{Q?`LlRS$r#Y@Bb|vW{(zZE!q(;
zBwVxP;p*#gi!IjV>Z)@wDaM_gC$ehZ$3+zz_Pm{?_HJGKJ>z!&$A9~JkD64?dlB%)
z;$-cGJ<**%Hu1-L=DTU>w%fjz3(nF$Yd<ghvwh^IsJRYRvu+*Ut+6{gZg$AcO9ytz
zRWwe&T)S%$pV7w&mEXATUD+CU+%9FkfPK)pAHi>fPI)c=s;67`-}=4mj9Sg9ZFeU>
zY+8HeD&OV<+}jq_9C=$kQ+n#9xTiC(Mci~aZa87mwCZ_FT_4S8p7_UdYxHZEuJGF#
zmV&?U@IK3Vkg!8jH&<?_?rZNJg#_1@iU+JcM(UZRyY5&sy<30fnZ$v=3(hZm(`P3+
zFSp?LIfpeG&TG#lOx{0j+1xKz*H|+rFV=rAC9!j7i1ghCInQ+;UlpfSFy8nqBFs|s
z;9hL=%#U#=vRClW=#ts=@P~DOr1x*#^&9oY*F0v-bUF8UQwZDo?Kw4P-uKj%F$SJn
zGvE1c`t^W3r-|F{+`lyI;F-`ba}Hj-`9s}&*89azycHF0?B2eW*)U$YNvwA6b*}^a
zo1S)kN&nQS-VoBd>n8u?5AP%Px=cHCxc_;F=c`Fy+2^dXT5kRQ#(Q1UjKeEydfqMD
z(0cB&X2{OHJ8bTrdlAmRx^vGQZMkb6zS~#Un=U=<J2#+ujbqzum%Q2q8`zd#5bu5Z
z)i=z4gP7}vh@@p!Yfqo;$YKb;(l%+5>W5d%|014E`kNl#mGgCCwSgkb4UIPQNnzXP
zd=)m{w|UZ}hX$uT?|*#Eoe(;S-+Ik6j+ZYVUfP-b>$F9|QF*Njr+^gBLV<5>#aqiy
zJey#fzx(z<{fbEQ&7WUueV%wBH`?Mv?z*z{ZX?Iqd+#kDa8H=ZasBm~V@hhL{dJ$V
zYz_F=$@=VBNXlBrbc?paikTkbk6*42GYxwbD*s1w{p1VId)Oyxnw`0vEL@_jrF5a=
z<5BBSzRB^sdG22<EaEuRz^pm>*tKX|&9mjluTNa}^m2dY#gj|T{U&c$ZB}{}v`KGD
zyH(VJ?fo~^uRXMqO8A>0Bo<LC5q-kR(v3MSk=_22#sb!73EQIC%wDt}eDUWAi*u);
zM$^}Q|DRqt{jodP;p)k4wrq-<rcP0<IxK(RG(_-6^#V@M82>r?M!$G&+kcu7#QiAo
zwflvpUyp8O=fB`v_xYFJ@u(>#i|0mtdXU*V!G0C1d7o(16~kMyhktp5?me~9uzN$q
zgQ|*;&qCt@xL>L6WXx<nzELeUwdO_S@yE>j^~2sbYU<wG!RaGr%AS2OV7hd_^QYi<
zEA3x4ZgO&~+SOzqcl%XrvRJ+>>q^%f{^df^x--Mlmv{)>UmYIQAi<Ej!P;`KM{MQC
zz%7XuDr_q>&$McoY(BAVm-Fh}|3AEsXR-IWJxeH`bMzHY@%F%1TW>F2Dfh%6;r*`Q
zU%T7H|IQIjkPc6&_jnz8D{!4`gz3Y>Av!|+0-U@4vCW>K(f<2ztc&sE`TzDh-%FcQ
z($QsdAiC+vukGx6*2-k1HDx~(*D<aYj#hj4bEkl>=?0Z%hW<Nuzr`9ZOD@i=O|V%~
zvie%=LuZZ@ZMjpf>9!WK^G!1j^R)Bm?+7nC=VF>M(dpBtj}I4CwB+))N;Ym4OLi^X
z6tHH8;_~m^Wq#HPB4MXKe7N@i==P#nF^$}umkm!FzOj{iS;Q)H%fMqPo9zSP?cYMC
zWod8N-I=>7`=-F-$@%*<@3IJNZ}UlUoHw(gb#vuf-^UfAzmHu=D-B9i;GFhfOFeXL
zud(f6jke~Ud{LoOS2V}8H(a$^f2#CBR<-{_<_diy#(8Wp)$Wy1y!Q|7_}@35&tKoS
z@x;BmGxROvLmxA5u=IDE-l&{v{4Vw4+FJFA{YH^1b|-kp#kH+Ho?OkhY`W?kVFTr}
zU;49+YrbVH*fD8;Yu|)trN<@A_su=BW7orj|MdTHO%>VE+-+dun!jMq;iWR?j;FA+
zFds`f!ooPQW&f80XaA@;+`2i*FJVKbyKa!&7KfX^YgWx(`y=P=nchp$`=-t<6XKeA
z?c2N`6K{FBCoSer*`<AI@|o!?*=EFk4$6ICVrl5I`rz>tfuMzHX}m|@$US1s`qcTU
z`d;y#54zRj1{RO^>{i>cW0gbg*Uc*X*35gMb$e>aHtv*Mql6h#I=$P&R%q{DaB`u5
z=AYWBJ=POey!47R*i#{|8hB)1()6z2C1w{(46L`l7Vs0DqjP1&R?97O-X8JoE8D~>
zCeHTejM@3D2^0BRy5=ZLJo|O<_Q76*HIL?635iypn4FtC@l?V2m2PgjHWl3c^MYf#
z{7#%(?B&XB{Yx%;U+0YNJNKu(>^#oBSEoSeN7?d%gpIR1g!A)k5+*u2A3q>H^RVk_
z_v8mtRxJ@rD(4lpaoKh9LX}w4lCqTZwgSgx<#Ntsg)ej7c;?{Yr;lE&oZBcd;ez4Q
z_PN1+GH;b#s*(dv)S0eZ#IU96N}m_^<D)-5vB+6Ixw5wIkM8;>n@bnD-Ke%S{$FrN
zVp7i5cB`jmcf+Rr$-ga~-e25RqW9>+-rM18ZM0|V)vCTy*Z=c#()^YsS{E35_?KK(
z@!fn}b?N1-`{{A}Rv#-e%P5=m_>AW~IfK*8-nX^RCSPi+d1Atvz3h+eORXkPbN{xt
zK3P3}|8?Km>@#xv!lL{rY2nJfA$n`Y)~08j@ep>sKlfDT(uo%70a9hk`hO$6AHV$G
z!|%V5ujtW{xrwE(1k}I1Ji$`3Hsb8+jP1{+Oo@2Cv~`+f-|Q51PJvI=&Ud2Z{m)K%
zBKf(9efvx|k>er{T6(TduHC~X6nguu(ySNvnd8b=Yn<I!eOdQv9-Ae5jv~{?Lv8$(
z_I&p^lrBZ6-P<L#cWTz-i?ypd5&{L}6qPENn1sw24I8!}emUiv?48{lQ6XMuH@|c8
z_`36U#IfeDtJ3{kKL|ZaZDeovcq6pLXKG8`zc>3CiXEmKVy@2wuet=S&oneJH8X%O
z&@?y0T%c(VTC_=Uf#%uT=*hC~Mf3i0<^DMP?R87M&GCboW!Lv!U)ZiXef82k)3(G!
zNb_CfS8!l*mugbr3~2iDeD2K9t5YNAmg*f|cp_j;!41%D&Qq`J>wkTF)<)Od_+R|b
z??12m+x^kGx988llQo~iKkT3Gzpr-F1zz)~^Pk7xulXX9&t?943!CtrvzOP;d$N4G
z^!u}0X3T!^cgm%+m)Fn#bNFr1j^_Un(~oYR|Ns5Vc>A5j*@tGo@0ousH8y|VzJ}ZX
z#okBudjI?O_2D^{9Y^o)vz>ABx2ewd^?aYV+_F4#`t9@&&r9bm+P?iffB9*Vruai|
z&A;?*StmBHed6<*k>CE5x9>LC`DEJHZ;`tv$JW++oKCUr`OnxR|JY=9#c#IzS=UUL
z9t?iV>TWjuxBl(-?>{C#J2|`L_xbkSm0Yi-*6g?a<iC5fan6xfAJe*(ubVHIc=PsS
z>F>Xc_jVt6mHXW-Vp;hXi|)t**PfYogp~QRlV(gidS&NwkIj(}k6yh0@7sfAt;>S;
zsk0n^SJT(8K4ab9zoF9mY9cng{Pxdv_nBv(4l;hPh*Vq9Z*Noi%l_ZPZ>jhG-rW6b
zNAvvkw=Zp4ovL;3Bx`DSef|G`1<x1FT+}&J>(xJ<Oe5o(AN=gj+AdQbDV<T#Z;TFC
zkouS8Xngys^^Q`bM8;pg9zJ-SVzcI(@z-m~w>O0E=3Q(Z_ekUqi#&U|LZlvB=G${V
z*+=&8Z=7EiH7E9!(G9o69m?_YVi7j!+io7Zw<Y_{OrNhCp3c-bJSRr2$7bdFLPoI%
zG3U)@28P`}yQ%)(nQeKBfq8S%6VBg${MR;MA#+}5=9z`1&$ZU8)O}ptJU6Js;luqE
zF-P-`h98u35iW@Q$h|hYbl*R=%<3rNHy^vVG3Id2+kVvPR6*e;y$u_`oZO;o_v(w0
z?7O5niOz@K<`-<sbJAS&R{D0>oQAIsY1;Fznfs<~dw$=<ZnyoW+4Hx~zTIcsRI#zP
z^87@r^sW4@j%zqKxT*#3IDIMX?(6j4-S-czz2-Yn|4DeoSwFLhIUCO{iqLnFZ@%ck
zdd)_-<9p-(xwTcbm-pPO`!{#j_2c3d-ZR$NYL>^&(kbwHRxCaFoV2^z{kW}nA2j_`
z-N$#-Pt^Y4E9v{&y56h$X*W!XFn48n?C-HePWAEI<v%zV%$>9LOmghg;Gl(5{S#wz
zOO7;&Jvk@SeCPVE89SOhwkW9j8#%1%ubvPviSb>|499IzbKCm#%b50k*xYMy+_WTr
zv!dV0L#q^y9^k4F2>DuU<l44z-~D@6_SY}p`fBzj*@VYdH=Ue*hAs2zY;m|~Az<+<
z;cf2uqtaTE^7|!(yw!T<8T#LnULnH$RigORy#fujy)S>3n!k&l;>dl`BRX^2y7#w&
z7raS~c%bxC(cSHAZ}Fxswr9>i7p%VhD=Xi8qnu^FLEFotzw+kaxMjTZl;ln=w>i@o
zKg#e_i%#BIy|Q1X{*T)!mW3*kpXUa*uD>06CF`?QrTC6NN6MS-?mqWAz&R@9p-Ra|
zajxy<){nlgei**<ZHxW~;WY;zcRWZ*c=mA#M;x<`ac<GSw|W0xHK;tl{5Ji=;R8Zz
zR748mroHDjUNPbK!HQ_6@b28^&xh1^zp5&T-sU=M`_zn0d!Jvo{QBm^n%{n(7N#+(
zT@ls1mmm}PP&{?!XQM-P2h}SVPS~*{<9+si7RINA2j5s-^W;$Xynk{}ikynAP{&EL
zz3Uc*c5XC3!?k*1uRzP!{l@+tayFMm5{2jOciZODIse%0e(mQ=cAoyfPU76`38~Mv
z9okxLdbLvBXX%?MUu1S}xA+pqY{PoxXWI5<_c%B2-|LnBbYW)>lhvNY2TS)Hke1<$
zE^WRk()xbON^!L&$)nv*8Pez7`R==+BJH0E+uh&V#?LF)xqMm@9>6{S{vqDH-h`OH
zE5DaCD(>(+mh-57k$>d01MyY$5j?M?7XMi3J^4s>^zp5+ytBK1+FvYTxy)Fz(|&7d
z&Z(cXzg@@<6|cF#X7D!l^E-8&BYXCK{d{;^b%NBdn~S@4)ShZNxmwn+d{e^nmW2)S
zR*5qYTCV2G?^5KwIpLg{oxq_<k33hex)Xc%REyBJfBV**Ogryk7$naVRQdQf&-Axk
zlf!@CD=0l(miGL3`un(FA8%HAZvVe=l|s$M_W6?1c}y2HGYnjg)XY%2aG-Z~5ZktY
zrw{roNHtpj*H+X!mm<JpSF-K&+1NGa|DH2HOw@c*XuW{<$Mu67%<gxubBs`rIDG%G
z*(_F@;s|b)DXb>DHq3rqmws*DbiqsoPrVa6GZWIxZ4a^B{42NYrA^S)np+`(T-#Tb
zS-jhOQRPLeq3va_*-=~4b@#A+zEH=q$L?@l%EX3ln@@j?tt6f1J$a+HaKlU<Jtd7}
ze%+TpUwhrb#u+V8<JsVMK2+Jq{2KSa%%5xOVs-o?7W)_Q9@sl;ub*&E)81VQ$MS!l
zys<0uc6d(hy+_+sDrVk}X4@jaUi;h2Su0(n?PhB(3tiqjy@<(L*}*B&`SKoTy|Q~7
zLLQklPV#^4*-^Gx+@Vl)^I=D(b^q%ESMOMtZ}DwK%tSZ)36hf?mU2F?%6Zj1zxTrP
zb1UCiE?k+;=Xs~Rjk9j@UWPS`VqG3(l^mM8@_JL+1#$B-$y>EgWB0DQS1IG#vp-|M
z;7h*DBE_#SRBvf*m~bv%W%^u&O^r<#8kMWP9=2{{dGS~3f~aP%!qLSK%$!=Muekj&
zXR*D8*hHhXPTF4*H&3X2RaEAXvUiuFxAO_1J6kzTE*1RAapQ{k6<-!n-f>99`f2CO
zcUv0_+~lMpxje7``Tkzzape#F_w8bWQ4)oBZ+`#ub4J@DMds9L%7w{=v-I!fhfOkg
z72k1pnY2TKf#IKJb(L3om(+_2>|lyCT&8EH#qnXH?(uEwx-H+V`S^Nnj$**(NvY8{
zKAfD$C-RQJRXDtseWsZH6`___Z&$L0Ue<C<-4yE`(`WlroPEm7gp0j~Q`X42n!NYj
z-yj?JQB^)+^ClOcjz^2vRrvjEOH<#}o9=eyuj1^vs~@K=H~gHE_bi9Mmb3Ywmzwi0
zp~o^JhF@N!PCTA=;rJK9HNovoDV?)ax#JG^w2AR@xqSN~Kfhtek%=e2eTsI8_<sD+
z33+FRlZEAPq(gm74q0-YI(gyLt7CR1cNud2vB%iIP7@b+V9UJt>n5%IYwWjc&R5oN
zjQ#T{A>h~VR~(lDUT_>rd(1bD!>XxE)cHGe?b(VD*A$7)&;xdbLb9xLv}4w3iDnik
zzc!yT*-`(@rQF+Lfw{i3!&O4xwKm^pTk-eb%vDYC+g8iGteCGDu|4AM%hYXG<j%g7
z$q_vp__(-*J(_!!=}YE454UYxWYO<)Dea4FPu3ldD|Rin#lNhNN<91IcIRu}4S{>N
z+uYAh>zbFheoNB&9Y@x>I6Ll;371$M?)0Tv{uR%;gWJTzlN%@c25i`uXRs|$=<cb+
zW*N>k52tRkjr`W8VG_qTdHRpLta~1(U0~5JuQXd^F5@IBVIH_My1gqQ!TvR0-G4`&
z3g4;;3!{>1vmc#t(PDA^yN5;K8Jmc+=rhZPmj`M+m)OS4Sk!CX-NBhx#c%xXeWXkH
zrmEJftT#4B&UHVQZoS)jxp&UxpGn5Y?myqK-7xl$$5o5}J--;zEe*6ncE$(pKg#D6
zd3A=*-k)t3CX3$rpZog|=X8cQVk<w~bu)aec;K?aqn(cuigzCPxhs43u7k?^gC-W=
zTK4GD=BH_wQ>(RNKIm?;G+{1&HR<)Atj%tZ7)`a^&Wa??2tD}Wz>fzBw`C6cu1q^0
zzGC~N;y~7C+iril^mz3ZL*2-xb@%>C*4z-<b6UdHK4Xs4tmj*JYctv&d56xO`eymf
zdqq<ex;H$~_>`%%hv7u%_rH3aYr|FtO-MVo>QIBp%saDZb)I4Po4Pn?eSqe~drX_m
zzZ_fG_ju9De5D`XxNr02d9-b-+Ok5y(xB-=|FOS+&VF~hpwO{khgNCm`zh@Tn+}-R
z<t*+xz_U)XYq2n&`mEC)+|_(4%FEUr5@O%IXm^IV!?t5m0$<Ohx_)E6$gK4F+j~B5
z7Twdu9Mx;58mgH+`MBVd*EZhH*Ly<ecGR1%>&`2>_*v%IGY5gojIM4A^SCbmbny{S
zkaw8%ZpFkG%7P~!2Y*>7(s1DH4aSulR@vP+#lE^e{pTX(lEW(A8<w2dnB(XxyZ!D?
zE>&5z<-7D!SdzZIv~hdeZxkxJpSR`5%LiO5;sn0d<{Z7X^hj9GXMV1A2eb`tZ)6Go
zS5&+t!$75AwrTvi&Lh>&+yoSE2t5;Q{PT0h&E3z1rub>NA9cCg-11#1dFG<Vqxafv
z8#rGkux<Wx@2i;j-GJk(9`4ju>YkEq{rS(OYPJ973m2}Ai8$EnJO9y!w6c>g6wM^q
zeu^x6*s<IHVv~@EH-~*kdf{>2P3{Tn%%eMtD^{H`*kPRUpCdZ+{gy-bTBdpn%YI2c
zCUn~>CWl{Ty4BH#OdmdJ^e=ulK~QmlUCG4G;G>H=cNpxOIc@S4@70&P>-avr{lc|l
zmBQ{O9*)nh?fTxqLZ?{OAIr>mdr0S=W8U25XQssP)#+y5wf4F*zt$&yrPRC(jq-!D
zlDgw3K3u`{=+fGcnO%YB9L|17kl0$%=+JUof^E00Xhz1@JMRrHz3(tQdhb0$^WF2^
zUrLH=G>e?49BsJCw@-MAvY^-$<3lUXc7$+P7qLi5GGB~+(qGi?wzB4`cC5_zXu$^K
z4k5KZk9UCye<JUi=U?z<OTI4oLuuMa>)Mv`2A*iYBN{q9?5CsG80eqrsFrPg(#o?-
zaht`GsqB_cS8Mj4Q7QKJ5}%b~d34Xw2G_4$Uz%DR-Qohg*PdI~>K)winsW`)(lc2n
z&fA}!)w8qmOu~FOg@Yznj5lPimJ}(QQ=F*1!K&Nm&HpXDOPf-El^u4nE!e$&^MUm@
z@^qpcFTZM(p6A`V!}m~9u};L^(-uKOO|hRQzg#GJp6j+){_+c!tBjbhG;Vx*htK#{
z3h&>&OLwk|Syph8fBx2{+;nz}Z;>@2TJxh4iydP*A_cB_b1dsnnY&D<f@QyfPOI4Y
z9rF4v?}UzprXODV^|qN^d1+-DYjEQ4Lrl{+q_krjXUr1bu3j3eviiByk#!GC^e^lx
zz5L3x>BPT#de_6wvR~HB&*!`NUbZAB_FIC%QIiVWcS<#`v&!FOUTF+%w7kiGT44R|
z`;V?9eXpwU(bh-~bB~KWy*5UyHaYyeB>$RMdBRLNwbDMTrg%NtcWnpj)GcDn=lB`d
zowcj#(Xx<ts6BAVGi^m@=<%p~48mcjeXne~6~6mTr^W&;*|RCzH+5>SbWeM5yYSM<
zQa;U<MgJL1mD3j)+*%j@TVh(^ajw2YiL0l^=TwJ;1o`W}@5+^o$YlP*m$-eIl=%f2
znN}%d&KZ+31B)JCxzbh~sUmXwh~R;Qx;KXw-plm3Dk{XfyQ}$!g=_R8k3CAPP5ecs
z=GTwM&I&wxE9HkmHM{qbN1H2-A7zx!+x<t#z0G~;)`NCm=kAz3Q+Wy>+x@~&#+^QS
z3pV^nir6S1?by59$m`$oeKppJ9qUyiQy(4kxVld&;RUbW%)0ZT)o)p)Cms4dCu_@@
zx(Ox)o==UYbJcz`WaCa}c~Yynh3Ph*82_@p6NH^#W;}Q+VSb`aim9bEVxn|Ln7`mo
z$5#q=&AXSUFEpsEQTrNj`K1cCfszHg;;p4#vT6S}+bArQF+TnL&Ke=vNu_$R5BI&^
z&XS^9@xd+X#Di<=6AsN?6)!!l_N2_;NlaDuyj~eF%$do2aOe7)`H8A$-py%Mdg^&#
z)tqUcu6^IR;jMD~s^9yHi?hXyT6Z*TIM?0RTe{OnuAP0Qz$u<n`_>6O)!Dxz(P+2J
zsYMqbhH>APSM`?)nAp*mdvKDY-oa@Rr?>x&%r_Kqp7X9}cBgCO+*cPi7_I#r=FeMe
zn-p_i;n=@!r^yv_Bwds?SbyInC-Bu+_mz6b8Y$(?FORZ5HMvn((WkN|@V6(2OT(e|
zw8{l7E7wc5O>uoEe%WeyrbnB}_n%K@1STwQdRaCzXzva7<jgoWy~cO3?>F=JJH5@@
z*&XX>cJR`j-WQuEFZnxXmjUnftMi1~zb=}<zN9puW#`klyOjbnjZds_U(2D~eZTyl
zK%3~b(EI<_PH<JJw+Sv`zSo&lDE6~Wi{%v8k?4pO+i#RaPmfGrD(n1DSH*IfcM@yE
zy(t{UdpD$p_EfJ}($Dg*B*4?p$5ea$()TqS&puxgKU%`uE^{;e%B9-!TqcK|5z;a-
zQ_SxCJkD(Uuhz|Yg(mMhheLMOyVb;ZSFP3VT324Zc;{9Foin8ej_zDOjk&NcMPGQG
z9<Rat6L$rh%A$RHX6~F*UST(LQP-x`AKhPVdT{Q#UtD(y&)JPqR=YQ7iof}6)ppeH
zs7KcY7g6<=w3Ung-evsFza~!Xua?J&Nj};=f`7J`+P`wLSNM8ahRtE>tQ)#To4gh)
zulsiVNTg8W`S0@<HQl;8Km1|PwW4cplzVq>@>+k^N<MQ-Hs1ly#~;$q{d@I@g+J_^
z&Y|VY7rdU(x8bUcREE+O{Vc&Eh0|-8t!^Ex-mARLU80O>ui9Z5?Hl)wy<M>@pOs}%
z)CJL*x98bN30~d7^+7FZd-J*!^~M=pz0?1^%U-qSCP(s?GkV&gt2{#5f_5BVX}Pr{
zKz%~|*6D@j-Iei7;Ww>xI(*LFd8+y;rPp5G<5xlwN1AG4G0*d&m-0(hbaWicbMrlJ
zA6@#|FR+z0^re|h(VWW>4rdeJPvO|6rgLClr^@Z<wW>;s=RUFG=$n&p@2jJBZM68J
z-CF$f7H$_h@w%c}HQ#s-Py1ZKWej_nns~eK?Q!Ln_kQ&3!PouShmQZ!i9UV$o`>kB
z^|DC|_%A=`VT+K_c3v*hZ__^4=+>i@Z$5z^O;3w-=4%<%8qRzEvN3&k#e)K#uIXL-
zScO0P=<KfvIcgn{xMSz-c}b<Ymku$^WWWDl2aDvfs}IGD?Uy9J;ouayG&d(Ukp2JX
zC;1B=6z<;;@mq$2d#6vk7N^WkIsNiQE!TzE)*cVNKW)3K)A2hwnqMlD{3n!6wOwhd
z-+ff&q~83;2Y1x#DkcYgbeV54F)$?9&Rg-$PAAK|O`+Evw~2H;a8B?)+aLMpeZNO?
z*sjf28lonj`K~*^>FR0O?QD&U@;-*{e;+F@log!eSmVMN-nVJO&hAU4S<d>t%aX&Q
z_dm@GOAy%Yk@Wq#aID)B$2CS$ZaXi(*)8+JpxTsO>g@Wfx7DJ*nmJov%-S53ed%k&
z-&Y1%y)nuU9KT#$`*QOpgU>0gx$XTg)YOAxbTyXDo+;{J^v>mx!9$j`l$BkZs&yrO
zSZuwHJFowBT*YX@l+0TFNs^*h#iKeEtmWkdwniB}<Jxq2$;9OckH*#=UXk)r<H5mO
zKOax2JSC<7<?6Jp=A9e8%<t_A6`9@1yu2iOT~tGUu<-1PsoDb94*gE{lbkzAGrw}0
z_PPt+_R=fv96n){b|ZYF_SD{;A1ph9OxyZAT$zeyUrW1jdWRp=@>Wq>kD9iBhM^8u
zKCW^wj4^spQXJY^@oM+vuNDrg4twzkxXxmUa{SP-yY%~NX6@<(C3nVCVP#%9Gc_5u
zH6OI??lk1Pzwkk<+YR=m)=wqgFH?GR>%QUSldIS6RGh8uJ^P~L)jQ3P`F>w{{LNEw
zk>&AS(O19E|IVFs)X4ho&eWJBk7Z#Ep`J_^CUUNLaQ@ut9m_1Lcb8bt+4^dA=OI>^
z8ck7#5NV-v5#n=o?88r;xHe~Nh8yqv-G}(ApFE!={CMh~v$f31Q}|Xbyt1T1abIaW
z+f$C{><J6oX1TQ~EKXX(?eHaFxd>muzI+8S<q%G%;ChFT-wnk)D~%*q>GuZ9rF4FN
zEOBdD$-O}44IkH@v$KevlUk{H@pWkt|H{DP1>gLxt*HI<<)r-lnrh~0%(Bay@^1HT
zPY78yn>DZT<zq%&`PyGk4*UQAe)jhJd$m8G9Jar&<8SxJ_TT>gfA5liJimPZ-k)~$
z`88Fak3T%9>%GBTZm#nDBPVsaEh`Glb#|<F-@b%%<+*L~UzPKfco>(t=}mT@x^cm=
zjw><^`#zet_W8VXeK%22gZ+?FmERP;ysqQIhH>&b&!(zAsm$8HL&>M8-Ie3OafOWs
z<Q9C<5#U=e&vt6o!^3%|M|u(}&QHnPVEfrh{NP%%d;eBebKL(?^V{_4C5AJdTA}9J
z8*VQDP`*FO?bDTGe>h6>qSh?5D%fGPHsq<t=I9lnxqG+Pv^%mg==YzyvOeNM;7Z}D
zow0{6Z4>>!*k+eY_`I{i>XvVwhlpJ`BjUV9{^C4FqyCCDr?*M$e5z#EtErW7r)h0_
zU&U<xH2DL@i4U2#dfv-t-s+$GeXD29e8IS!KUebp^o2-X>psqwoqJy7i`xH>c}G=e
z2Zt6*FWhqR(?9kc&70SLY5z$vm{6;_GU8HEhHRKw_%_G)n?;N-UW<-3*v;R<o1&j&
z{?BXSO7YuUnPx9KyH3DK`R=wzRT1OKi*H=(`(NqED1Br8ez!)}CmwITPR+iV6JPeF
zZN1$$k*?L3I9%VTuK6pncaH1dV(Du0=p*9sUp{lrDHW7tSBg2J!m>8mU37y@V^n9w
zg+DhFR)wo*Z*aU`U6B$SmTbvbylVaCyM-AVopzN8p5;z$Z;l2n-mpzC-)xo6^*Ir1
zzD>0L6!cW)qUBLe8OsM>AB9_9dpPO(3a?9=PJc4j1s_h$y_~C@mYL8yBX6f+fUlua
z{K;i9Y8#jGE_~u9^T%~&eowW~Y~Q&7XO^Alo8`wnW8320Uk~nk{e+`2%3pIs^vjPk
zocNlX&p){{;l=@`d5%6clVp#yF8bE`K_>Xi&uqc_flpKa$z*>w;qMnITKsUrokvn#
zrvE)ZJ~rt3petB%?rF%AJN)epvBqmJhVq3k|N8P6^OR10wPnZIWZzD;E}i&tpPqm9
zyuUwv*Gqo7{n@F>lq)ai_IE9V{UXL68z&{4&q`Z!*5Sgl_nUPM`9(e-pUHM0#plnb
zO}fGrZKd<o^q9(QIXBK+xRbN)XnjU=O2pFBceUTS`F$--wz&0UX2tVG2AW@crj~7y
zJD9pScWqks8aeAz>FEjwS}MZc?=CaF{XXHvr|v`iXKOQc@^h!D%ZV%B;`nTE@wJ)6
zHJ%?XuJSpq5prKP7d3C+%k4RT!F<b&tG~C!AAMRBy;*wJL%X9pUKgLbG_m_JbCUB~
z#s~MZ**0#CIa(XGN2BZg=i9HRJ+n^D4SFB6IDd)TgD<~CuYFqj_5Qk@E4ElxSFO7n
z?WOlByHJ1mbE6siY~P5cS9z?>S-t&IlYz>^J4I7}&;8xPE>nL+P*B*d@y(*L6EaID
z&(}E|JbCU;_LaF3sTv{$zZRyru!sJ1^-1vFC(>)6@zA@i=>8VblpRy<y_|mc^xO}z
z`5LpQ&kho0TJw6NXM5PQr)7^6`+K%A9kb~1a9r7c^$bVu_l=W$uGnvWZu-+C?eRKq
zy``u46Kz?!?;OeWlT-M)e@;fl<kW-<7ni)N5qWxg<{hIB?}OXkpZZ^QGqzyMt&{WI
z)}G8?Hto)?OP6}8Y<hpLTh&)o^z_XZrWqy^Hsq#rEp4sbAFHFIvHXnPI@`t5s$!-I
za`Np9%c*^+nRiQa?tS@f!aD18EZ051(D<ltVag$?8*SmQ+Fq@U-kl_)?W#C`|FVSs
z^IKUpENv<dPrLjuU#P(Pj{8jpk@7p&{sotat8?ome-}QpGR5X*(Y>VWMz1Ve-Yzuw
z{kWf9$K}wxE&tgsbH>bB``G{QU&bvi4J-e%rJJe8%&|XUTvxb`hh-0g(!=}=1)J?3
zlmEo+p7P91;zG=UDSwQY_MN#Av7G1q!>|6gSL{FUrWrQ5{>r+#wrhqp>KiO)J67ME
zU$7?OW9t95lcowwgrEL9B!7GQgVm?D7|i>=|JL%lNx~j$Uq1^vo*w^W`)yaVmH&6!
zy8JN+wpjYE)9Ug4G(+z9dd6L;j*B1iPvJlOa?|{r^t$D7caQzy&6WADQ5ODt%6`ZF
z1@q3F(f`NymHACr#e+o~LesZzTYITFaOrBz59P1l9(#3tbzZ6ZDp?QPPLo#St9;Fu
zbk2y}Gf#ed)G>61-dm+9*1abyVlp}wb=<Y%<ViJ|8)dxy+*ZrkQoY}l=eJ06$8R}#
z=epuF?jE<YsZ;-M^tbl1_BC1hcG27Av%@DZl&)DlYa08N4ZpV4sxx|3$sc{+<t1yf
z_-&s~aEW<%{2`<CTG8zCSX<Nhc>gU58;ZTXE`2(8H#&S@YUP?8v$lMG@!{ExRDtQM
ziUZj{y?quqH_KG(Q`p20$G$T6*Zt9|^|Dhnv6f%tTE4O9K>X$AE~Q?fV^NyjPAaV-
z)1O8DUMc00v(?<)-O}T<RGklhb;rlGSwdHI`a++08OR5IbYH9>yY)r7_TFuC)!kQ~
z|7KG=-{w_ouDQO$y2z7x5&8FC9ewC$ANjEPweZbdUG8No)C99F*X)}6e9i3e_nT#R
zbZlO@BfUglRn0X;{C0LDt7Uhu>h!6Tjz5l!4lJ`+*>Z8C;oM+d-xEz7DN}y*gjn|V
z7hP0-)0D5_puP2J=$)|e(0qx&<SX;4FBvIo9$$KxA$9d#!8H#K{@%8+XKVIbzc;+U
zcV*1<aE@W`?h5IuJh?Hf`D@VZs+EsR_FU6@l=b%HlBRigTrSG5n)Ik)O5C*Y+s}Ep
zziggpI6r^hs-g`ixYmZQIG)wl%NH&`|L5D{m3yD8n&2(-W$Dv8)o?8#F2&o=Sc*db
z)g3AhzVcvO$)vm^mLcj5lN1emuV~-yIsQWEp4GnZ&mAQ`1$+HEGIO!a({%zO8&fv)
z{?c3H&AwZDOV`mgJ1tGm$gNtw@2$axRg<-s+;RB){H>Dtv>P1Cey2Srd^Qr{RS0w3
z*YEL3D{uNPhVXP*X4@+((k=ZhKRpqD8^RG;$l}+0S~5}nc5bX5uRy>8x5BXX+&5>O
z(^Ge`*>ru=yL0#7IP<&et`k?hef4bO`XmLh)gJcu<V)pO{b*o&R(;g%itwyEIdaab
zqO7YQJg5@z?yr5@_NMB)%>S+C2G%vTD;BKSuy^|ZDYDW&>6bLleLQ;qJn!qbJu8<?
z?(8ey&b#Z^(o65|uXVMrv$f6YyUU#sxko_JKIM7cTZS7}S?eWtoIlO~Gv`~SY2@|5
zY5Uequ3mU`#`Y@)@z;#kFl<=0(Wb@yRl@(hJp!uw-OtZFW4N(If98r+w_TrmcyEyQ
zdwFDCzS6SmGmB0bM5Xpsi+<HPTd81p|5YCU)t!}Mr(gROpZs@wQG4xg;oG8rr>(u}
z8g8Ohy7)^|;`CB+u|x0YNB91{Af8(2xs+$gZ0FPNTkn{s->zT3?}^eAPsffW4ZH1g
zO1EY`wZDDfwN|j%Y#)=Y=NqjKAD5bU$DQ@?#`wgn$jQgV)J1jICx@*zU!nBj-#nww
z(^JmcncCmBzA0~BCnFJjX2~nVE9Y|W73A;s;>d5CZ|e6vtg_eKZ>5s!mhJDW^hG$!
zw_R(QeEGuWz_Um8<eYoi^pQJJ^-6}`=E8_6@3)@X$8-0B;j=p{CUd=Eo<FOPM=rGF
zXWWUaVoEy8w;o(%vTD`xnP;a-$MPSTZFNTE?8nsA0*6E|S9XRz+MfH~i+k7SrS&bd
zWUl`W|L^3#%QF4n{*bei+5F$0UY^taZ1K_(vBVb#KB;~wSneZn;&~+dU7gnxE*7$E
zG0$3;<-Y6dy~yJef;t&`|MDKu*(0Yu?c%gcJHF3JIP}h`EY`sDt4K-9(tdBN^Y!5h
zpZBQG$}=w9GEx1>8;&_ST~&3u9WP{6F4RwXG&x3~WU<{5zjiUx>&+jRNFAA|z9vD&
z@zkfh*TP|9H{zZJRc^fga#!|Am%odq-Lp94bj4!B<`0@VPec|?Shz~ITa2?T%y`{o
z$&$JPnb#+NwY{FO_U-9qv4`*8u|CaZGvnjTZF`xOU+<IqZD3;<e9<<L$1uotr}Bl$
z(~jj|b}au;Yw4dPy0gQ5qi4yDLrOl2>N9z2^rTaw+49>zFJ0&K`RmTmnCf|J*F0nW
z)oZX#t@N};t9uU9+<xh4g2$?Bbqbn~1x$GM`F+A#&%5^PG(#-TeEcyXN_5q#jq5+2
zR<3AD+wXI9sb<?A&y*AEOE!sb-q9MV_QCpG-C?e(eL1QYMj3xkF4E>vyl`IX`LY(4
zyM_jx&K?Sd#~yDyw`uN*ZEGSI_a9oFdgInanVJWiU#;4F?sZAYoA;+@NomIf-u?Pl
z@AujlGMiWTWcW+%p0($(mG42`DAT1eQ)c}?aam&qN5Tws_ns2@Ro&;6XY8N1A!4O&
zNKJ{~(l5NfJ@mTM*mCO{-up1A?f-Z_@Oy_o(_1-~jjzA_dtGF4VbYTttxX2os=Jt1
zm4CbIW-<Te{$M#5-uvnAjjSY>UuC~Ma|y%rw6e!@B(G^TCx~tg=9w#@xW_cf{FwWT
zoSoSdJNg#0D+)XDif`}Q)3)%zvd);xdfTji=#?&-b#CwNsX7`@S<)xZt5i-B2yn|f
zcKm>l1y|>RJFNSruhWZ)+uHPD*UdTIRoAv{Se%kL&$!{OZNqoF|25Hx*Sa@spI0t-
zPxEu7afHT$f0Mlq{`$OMc18Up&zCN{lq>@?AGplr{k37soYx5^dI?)2)T6zQS=gk$
zoOws->c2C8ErYD%La#Oa?MQJk3ia6|cKzh9_TVqEN0<{_cArq(<)^;&)}1Ea{W?EB
zzxcJ!_|!bL?CcGj4bLSC_sO>|y&k<$FzZO#gUHVjGZGE>gLl6FSQ%5{|K;)8rDvus
z^O2b1>9@ALZoz83b%`Ex*$yZCn&W*ky3>7LXqNnoC8>9>z2dtaVj*t*;XtzQZ>c)R
znHo!7lM_^IzL?xT`1H&p#qQ57ALDwgVyA4;z3MsbeaQ6fjiN5w&fju<y<@J|{~r}^
z+4k5id%q;?{hVZ(Op~<D|CvIbTNy2U^GfTZJd>`$y+xYmlDqr%*!-7}a6a4eDVzVh
zde8DUcUAtmTIU(09{XGrzB%{Y7e4c{`(9m#YZuDdPp?x{ZZ~cG|F-PKWDeP9i=NI`
zh?sW1r?5Y{*zkyv{9|J`hV_q9ihjK1G(0h(D$=U@tz!L@SU#n9^4neV?@mtX<hgTb
zQSyVi8&6k$3YetiwpA<q3CE`Hs9Q&-3QpHqP;>ryw#xU{pEkV|+_8K8seR|ZTNYX=
zc^|m{c>2z2EB$Up&#pGJ{(0X`x87J%cJX|R@IjMhP8+UH(Ea+MVny`pot08)#t|+F
z?1y69Qa&XXZt7)X@>28mD*Rb<t2xpp^GCdd?5hhOC0Gu*%)ao)?EGc<wi5x}9n(+o
z2v(eJR=c?{e|JT1VnKW$t9q!5-_MYVUF#+-y0<}l_TFp1-4`panKu2^tB=Cd+!P$d
zg$*Uoa7eD$rg|g1qoi}y8^f13KJqXB?C|h;f15$^`Rjp6s^9Ck1@9LN>~U(k=T^RO
z!G1U8xGA4XJ)HzR-yh}by1V3l_p^MPE+%dDbuS%v&i8MeYZ7w)=BfX3Ts)cC>-JWx
zUc7bx_9!zU4pBA*ag(Y&yWF!hg18qkMa%u&(O~Kwpuw1(wg3N$I+@b1$87>HPT4>G
z@6MeYZD%LjZ|HQ@5%JHDxF($0R?3j`iA5~t#M1{6@AWo`i++AGb(K`qskQ57S*)+W
z+<9@?r6T_DiCcDW{QGyFnBLij<x8G_4VgW)Xy5w0)mQRwt1`V}+NE}yuh%EXP2v#4
zp1Y=VS8a^!68`>4p`CBhJh9JFnJe!^D_JR2n_Ucg?{YqAns@@og204}#Z&I69!ak-
z2tB{6!uZYtJH-X_6jZ<7StlQ~ee&Wu4;$l@2_YAr#$8}vYadyA)H9*OaP}(4-%j1D
z{U+{P_9SJ>1@FK6&n`GDb$PLVSBOr!#U)44*G3U56MZh}HoB~LV3~VR<fy?0fpsgT
zZ|_TwNuP0EGIIS|vBy2P=D*VJk9&1)&QGCtrW@X|J+Yp*ux0PPxJO$}(*>?&%U_Al
z>b76QH)p!lGmdf-F=^c+xA(g}&fj`(?s^l^J`T&g%$!#b=RbU|ZZT>3r@q()S;3Ju
zvJ)#Lj<@&5iN^&m5m#EtDwEN1wzKMLezIjBKhFnE*>{QRr7LE7XR-JR{ciGX5jQ#T
z%BL{E)2sPUV2`VuutRlU<noGHvJ*nWOPcRqU6d@Tzttp8t#R6|j&obr*4OTr)m*TQ
zC;0jmlba^n!n5yg*k!t?I9iX{Xyen6F9w35iN6l+?)&QfOz=giQZRSi^<TG3U9a{(
z%QDarWInpsr&4$2_X_=%gp<9-R^>*?QSUtp?gY)>-O?UBbJOuv_J1~gf47@&&Rj+7
zWX-E@=ks&A?#_>7a{f{!lDg<~r=Ew{KDFv))y!pDZ+2TvTRvsY+le2}cBwWLu3476
zx~-v0?e)F)Vd|BSD%h`_-(-9AXV_#P{&@^PUjA9%7da=EQ&OR{gZIV8?7uHlW-5Q5
zJ7fRdeQ}ppaL+rM{*7y@%RFtL#^qvqAxqPi-AuOsz9!l^;QS<`jtlEI@<oM<yG+a!
zo?mWXxM`!k>81~sU%kw1jy{q}TlBufn5FcS;Ju>vYzFcj%oa|^VlHWJip#w@F)`+Q
zzoo4ur{#7vDb=MbIehe=e_A-JDZYP|THsydX+4Ig?w&Wa45)fLVeV!F(btws9yWQc
zJGSGIgz74t6*nKtZ<gGdyVSt#zMt==4VTZf@BDQqb=gC9z2flWj$f6ZZ#?mKw*M3U
z@TUdaOa+v=LmhuLN?iV4D)Z#8SNGkk&07rh8eVrj&-YGu`6cx8i0t>t)6R0H^LMKE
z9h_Rj5b$fGf{ARNMUKax%@4P<JeAbeJ)yK|-HCfA#9B`TNl#6GIQL(T@V&&oY)jda
zh@5D?qCJa@+txk3{VH^en6Z%M|ALDLzI>f|%QdaOm(e!GyWDq?a&`UhlS}qK+wk?x
z?(CXtD=oH6`p9sP+o^Jw%7H^yDj&@?ow@m{natz;Y&-a*=kN%~bzR<7dg0IWoT}~H
z@)n=XxU|H(bEAUzn%_6GGUT_Pdb&tWv?FotPmZOItkXlvLTu8*ONF;Du*fL2o3ZA|
zS&0=>*;p2?Oj9X1{%*DRhNROsbXRHUR=>Kqd4cSW+H>|!3S0a3%c_4nuKr*CQs2!l
zm@9eBLCbT&D|rnK4dM5Wn;L-b7zYX4*y#JD=B1ZpD3}@;6LatQ-Pp+WD(+!!kJd^m
zDsJ54XsCasb>GV#Tc#t-#ykl}7>u__9PE*=+V!^V;j29T%WT}8_s?0XD;fE@xTS<m
zegD?*#HRe6TGJ!WeVS{!&*IEvi!(p`fBk;+buxe5E57yns*L3SiT$hn`lMUENzY=5
zy?&g0-3K21P3;D(+H37>en0Wt6D`v-aq<NA^fOQXKD_x_-QK=yclD3?3N4nWo<4Rz
z|L@<)y?k=|`=+OHDYYElJiXxOYiq{oFADzrco*k$O)9Z}|E|fCH*TJCT>t&Mw@db3
zd{j|YSiXMi>?zxhKmT}e^Tp%l<)1~a<fIqYaEfbK-Yod@-1?!Ka<5PLFM%r`&)6+D
zuc)=T$ehA)Pu{=W;v9dS*3##bd6Q=S?Fn8cSkJV6rVY>0W2;|J-S~4;yv#>gwTO$g
zD`xHCihI7go@=py*t3;Y{H2q>ett9E{r<zC6`mZWHKA%##k{*2E{oMo`n;wu{{G$5
zniYx(tclmerr(g?-^k7(F>lN9|9f`NS7-O%{;_L|-uy$N$NbLiejHx@oon9f1b6%P
z<p-<J=6tHttoYdd<Dyo?q4yVys?uL(uRWtO*Y?wMz5Scj_w;UVn7-6Af;;+iVP&3F
zbD4{0(znUBceo8-?og@}3i@rr8S~@ECJ&hn=M73Cg3I6h`)Byi=5W`K$NU8+*BBnU
z?mesh$1<Np$!j0?pSJt+b#B|<D}IV+y(}36Up-DQ4`TQ#T{W4b>e7cx;;qjtOQ$VA
zq^|j#Gfr%IhVzC~SAu&kHyyM&-u?8+Cq2u<*G%s*njD}0_pI!PM>^>zB^UX8u{p?h
zF44##UH;MQsWVND`1c&Yw7}28;eq8+%c)0FMS~t3V^ZX*5LMr7e)|26*&Dju&b|8Z
zMt+{n@5}SQm$w_*?1`=HWR}TGiMzb1@59m}gU|^a@!`@F*QNZ9$+Oz48+~XAOI(5@
z(+TC@e<xcfWC%2G(|1hZ_4#mLmvhk_o63l`*{U4tnu7WY*^=+=d34}UzJ;aEsfB`^
zAHNIl{w8Xt==18w=}&iee=@wxxZ$Svw}u^pQXHS;!XsxH{MImTX*7M{q#P?H7P+i(
z&x~V<_to4KJ=s{^tEar&6E!dR((~4UUHijLX72ClZx7WMxf>p)-E}6&qse88!OJd{
z#3gyNo_|;&q{~&rd1cYvtZ;qdFZUmKFtW|yO%-XKb0T=-2K&`31!4`kvYt<x$k8>^
zLY3Kj+VUkwl$OZO7rK4%xptVNRpNa$6J^`^#W%04JMz+K`{W~cXU6}R$c$VmP_jqr
zSjC0~r>B^!7^$sHU)iuDQBFhn#WG1Y=G|te_c=^xfAwmAi)6D4M}f4?ws|oR-?%aC
zi?RFmbW-j9#cU>;z2}<3PjW3k$D;DNp>FZcU9~?p-P4+!S>ASFb<C%KskMcFFFcFd
zdEtNXl|^-*!c3ElC!aOl(B0Xw;(p6|k-tA@TkAX2G6y&Kg&$;0z5V$7JDWO#InImM
zY&jtl6K1sJQ<>|#h24)92Y5F)D!QhAlrQ|f_mYBp?&_n$BFAqw7d}isJ^v@`OQrVk
zJ=&jGpXD?dO)(X{xBl2Bo0(@>N<~f-DRd|<J<M7b)TF%9s7P<^458mUw(GyXA38;e
ztHFk$T_f!gYi*Urtlqs1Cl7F4FBF)!f35k>V^R4NwHlmMX8L@YxcFTw)6z$`KQ78R
z!Sd&`koJN#k{JcI`x+;$(XVjO<y2r=V!dGNC!b}rPHi))vU<F)x>ro4p}%LTecxuM
z#jh(}c`BB6i0oeQ?aa>iyKeK@a0GE4IQcQZp|IzxgOB>QOr9q7bFAHrDsD}ut&*Sq
z-_yKNQ+#9Bl?@CBn%-xv*rlWVH;?TZKV#*F?^~)u%1$S*;qcGeVC-xdy++32Giyq*
z<dM31S>DMHPB=UCm(D6auv16pw(>W_pu#))YH_D?v$eWi6qe3z66={KR`zz40H^WZ
zvvLQf$LH~9Ox*fqp6vlSUhnor4Nvw*+L*5I`k;5>TjiGb3E%hWZP_$~^V5tk=iW3t
z6Xq~r7udODjme9n?|y6FX_d5aRH|kOV|AK%T)w`>z2LICEn~*CZ8B$K3~Up`6Q=n^
zurFd;+V@rX(i!ywp;8xQg}7eah~z$*U)8&w>rj=5!iOLO#zP-{{EITaA5HI?+2gpN
z<Tb;ErL%j?_I^FmZ@kK<VUpdt@GUb;BmCx>DBSq7BGc~eA<rd_>5RMvoxz#=x^_QE
zEHm;eaI3!E;q++T<?eUFae6_oyOZu1?krrTpv_=0;m@CcrhIPStm}o<7rODupL6RL
z+|M}kV)Vgz^<Gu1W}8KQCMKW$9A7py^YF1Re}WT>mHwtGbAQ`8@k3*`$k`9B<qrcg
z7!J&AG_8x|w9EV`m{kxh_%fqYYJq{lY`;L$RZ~+;84RYrb6)dDt8``pYug;(?D!~?
z=^REER-f5!c79VVo7>L|S6s~JPS`$sR^jGNuREVai#R%OFJftw`fjci`Do!GJ$+%7
zFIguhp017kAf&Dl^Cg6lSMlzg-~ZIVbT@3(NicW&?KY#RVNLr#LzhFTw~rm;NZwKW
zP<ao7%i7t@w`XiG)NtBrp|vpYTho877?Xlfz5LppheB2?KD}MnYgOPn!^td}+aq-H
ztMAM`zCz^rzf+1=qAzSMZk-@#cV?peoZ8bjehabpUoy_q{LWNdtoez{fbW-AhuB>Y
zpUq$O)mU#|F^}aiVXzZ5Uc5I<Q9+_}=9VkYajYo}v)?hS>EJy3NvZ$#jzh8ABDpSp
zV|}u7-qs@%CYsmG4lH=d5OKK2nbFO^;llSnmc2!Xb_W!R9@qW8XYHLO71G7Z6IaJ@
z1u#iob601)@knvW2C1`JQ~K*Fm-YXPia5Q$qf50R^8Av*>z=3CCf)PXvoJlpX6f29
zb5gI16|U&BPx+Rwe<@&FmuACxrNzuw7hY6!oW^`v{C3;v<iKw^rs==7S-(s#k2`4A
za_Vl_lYfP&%V#RM2kY{L6<gj&-m&_3UbBtFaa9xNsO+E&orkBUxXZQgt%*|Gt;8Mm
z*hwsFuhXQTwZ|^!g?_nQv^yd%X+6*B=~b1gZjwt}W#9GN$Itw7;@Vd4Chpv2-RGZP
zTNAM6sgIl67UnYB?NT+Zo8xs4ui54&z~N@ZBF)4jR<TcK|M}JZS5E~Qus-0Inw{L_
zFq6mRWZPe7wbR%AMA;Ive9m9^YZP<&{uC$nzRQdcj(8s0khi4yY&hSGhREr@d)B)o
zO7SpD9M9{>aPnkb^5E1~iKZZqUwNISQ}iv1m$13&N}XYFo_W3T@zh`Mo1X_a?+{Qm
zwTNQ;6<qbF$>w@STt)!9&pg%bonea-mrreXSWw9J=xgC!z6{HQSxQTnO3zv0rpWkm
zTHv2&r<(ICCmistV@s$BnB054o{g=^c=OBSz6nn4zn|X9u2tA@VN%ZeM47JSGgnV*
zrm)D*e9Lj5Zq`9Lk-Hy`Y~t82F3wmIn7`nI#Yv$67p|UjiyTc)wVhniXnCW3Wp+pZ
ztq<XvRx<NNZC6aY&3#6C#>w^HWHyE0k%>Qdzs}{K0`F@L$N6Qk@0P!@=bYxh^1a%L
zf8NIpZ|>Y`TJ`R;%*C|)v=htD1uopedt=M3&TTL6T-4N?G{^exkHWsJ+XfSA?q)n$
znZJHP+@{Y<4o-QqxPR;K6-#>0bai_c{j1<N^JtxY?`nbkVy3AIsfFzedmG-VXRo@$
zuuZqNdh6>Ksr&cqgv{M}w9q)!_(+hdis+u(P7*1yYaOFJ%VTFnFKXS_z|8smzkww0
zm3578<rXOCz5G}7)c?qJ+oL6>=87CKjOIz_<O+Us%j`UOG_7z(@%_k9j#r^S=N?vT
zn$UHivMz)3TN(SJpUom2+&88!F?la&YQE@k{I{CDu5oj;lAGPwuKl~5ag%drO4_1(
zFPfsG_x*Xg$Xlsrak+2iqz`ZH74~Y`W=G#X@!hB*BIxpw#VHNx6&E=fH%*aV*4L(Z
zp!#L*N9MA}$C)_J>^L66VRUAShGSF_+d9rrrI^NPw(d^fGWNurOv^2~?_Xhc+<@zQ
zkT{oT#k?ic+u~jPq|eNp_`I0wU-LH&zc#y^ziUo>);cA{ELkkk96IUxHZG2`$?q;D
zoM}oHvyfpp_;z2T`n<Q+s}_Zsrp@tPmfkQov}67H_8b4~?%%y1XVWOTa=!TFWwR}g
zeTaQ(b*8V-r{~j*7z;ilmrW+V6C62xPu9OqFnqM%Es%>RbbC~E3#Y>m)sz;U{uQ0O
zgMSHZx$E{xNpRB)Q_DTCIVLf%DjumgT+nwZY|bCkeifa>he{IJ@1OE$RNG&=@G+)#
z{pm~3->`3(8W7F7wDeRq8<(`^%FNfx7IEyfP;l4Isr6;8Wbw(LKkLi1ykmuB2Jzy%
zZ=3k)rj^uBfAml@b)`kmDu<-rj8zZjZ#%AaTPu&fYNbtHhQZwvA!l|oO;t;}6MMc`
zNZgs7W8!w{C23RNtX^Lkl>C&-bEUkvYTkrJ*-uSA9*^)@&iKujTW#qzt__BY7k|FE
zn5;iz&q4DuMMbvfHN6D#4u4+Nq_xMz|3l)0eOFz4U*!J&^h|2&k-wZ877`3*t_%iG
zzCQmeB^tmHvbcy}rGv9w(&*6dRE8;6zOIcZI^yAVV2RI}kcrGHx~d$WGejILp38O}
zkbI_Ab6-V(FCu%{l{25_SeXXD&`@~$<i*^ZlP6{{=>NR9S>3+!(@{qO>2vH;7}*U(
zH~f0GKu5yP;Hmif`F|c9R+q2&@%ZrieKp@dPUf#G6Y#hDVg2Vk|G%H@AD$oHZ};ce
zWck{PA19}_`uvc3V3Qi~;fRx3ByXNR=a=%rs|kWGev+Za`)^G?A1w1^PT+z4`RNxA
zRp`8Xyf<LS=S=5#xAIBT@3uraGjCw;-D0pjx@4~Z?oZQ?rri4dYTo}{&f1rCcAngN
zovYCP-KNK#JLac{9w-lD6M9vt&#R!(TP<0TD4(EzJLmqMnQZ%Q7R<l3Y}FRC&)a>s
z>z#~H_`n*a=k)f4qJwMSPeb{eN2W2|wL5NqdtSQ%hxzoH=STi)#T@)+-?o>(;pA@S
z&o62k8bixtmbWi<Vm<q0ce4_E-q#=Z_Zx4xFk{|-_9@az#cW~GDU(&aOO0pzV9`x5
z=P#eZ^UgQE>7dol2fuz6+zw`%_~(s%82=Qh@<VGjdQE%1RbRpL#}n5@B~HFmCr#Ps
z*Z*VrQTID3@*1lh#Bw7TUc4~MD=d+e3t8!OV8OGCEJn=yagTY9UO$&&blht0zJ9^S
zC;2Y!ezhRUh&f&_|HWmKwjl9I{}vy;d%^$k>Wo~818Udj?-Ec7czC1jmjC|E1(Mz8
zN@6|E7~T%k%(Pzn=9l9lW=Xe8lV|SF_S3QJ+oe|aG}_bD&r+Z$`p_wbUm_DZgSPHt
zS~TI_pKAiFcR!wZ5G}x3U{!Scs(`CjlZNrEBmJC#DxVmmE`NA#sNfay`nrS2qKoeB
z8XpRt-{W`Lm{IjGZkOc7!;c+B&dk}eVdjhAU5txDw6<*Q7yjw?^vmZJbE1kBUw%B^
zqm<*F#l5K`w#N8KX1kt~s$G`T>`pV+7hzeRPwJ-Zy{db?akfP|>$DrG#pjYt)~*R}
z&N?8)zinNQ*{V4)ea(xui{`9ax382<ernOSD(3f&aYr3AIHpCWn{3{Ey64t<gCy?t
z?-$(Iarvt3b;0kg8ry9Cv57?I{oA@Q!k}GM+xhL{h>fjDhWA;@_br%N@49`-M5_XE
z_3qf%2S0i;t#-!kc)!Ty%8lN8*JhsgPQ0!0ZtlT=$N%qL+Pz}s-_#@l-lStUpU1LC
zo>N#AAaQ!L+@cV#_xJi+H@<kzs<*n7tEY?Q&YPdSK~fX5{-k_KOU?C<v!B*?ie<y+
zY3ugr9s76q^y};`Ib5?pRlVP_UHQ1un?-kpgr+Uqo&4&QZSeHTr;Ww7#4Nw{(k#@z
z_>9KX4VN!G%)H;b%GtzMFDl0HxSiV`o*L%u38Gn^cW#t1Bp&JQeZ1vv91Gi`BNpq|
zr*2cVeHY~xomZppbM2|9f8512n{)bQ(zhwzO1#W}ezJ^#{o$qwS!e3!`AqB5obxz#
z!mmoVzpLIp@jO@~|4cL?Xc{Zqt10Yj@2EU06qwaM?ckO}+l+cQH>~szn|Jn-OO|h!
z?B+W;-<kQn|EA?$$dtBpyXsbK^rGRd`7X;8jr#bzGTDwkbNAop7u=W@yr(xjR%hwT
zDJ55RGb$tA1U}9C;>Q~J@t#>t-mSnRSELLaXK&ilcXo3APv<jrysPw0o_STgJ*}*l
z^sSZc_99zrty{0J>h@>5>q=%=cfRp_d?xrR$BNlmAsf^m&z-eNXnKiyO75cEken&+
z<TkEf)>)>yaQ$7=>zp?|ByN>Rp1ty{j+xnP<&n^p$FFyOIzH#XTmQIBk(2VZvcIZa
zj-On5q+T>Wx3mA9l>2*^)*IU{>fKmnYb~U`@VmmIU2IBxo0WnjUr)`Nz;jA#Zc)hG
z+f#}n?Df{4OTMYU-tG7j!`fFTr2EQN)xNJQ=6Sm~fBSQD|EF9|lede;z3)DqbU$CN
z$3=YgfzX;GC+Z9Wn-)%w3#t3O@XbD}E&f^WR$Z`LcYSJIanLG<rQ&U0le5=8{S{kp
zdG>~C{O_axiq>k{Iw!Dv2z34x_4wVx*N4|1jeob}M!d<Xd71h?Q<V$m7FFhKC|E1y
zAimzM|KPm#d-i2QhaT<w%crJTvFqjTi7f(?#BPM_u3Atgd|caFyw1GqM$DOKjYbtM
zq3q319~>(#W1rl6OTH>ZP+?DSdghJF-q7<#^`~~TH)-#P>_}m|DUt6{5)|WgkIhld
z)O6bBDK|58ru8n|cl|)nf~So74W|qm#2ri*b%|X`e<2sT>f4OxbM$MP%iB3uHvRo4
z8n!yI(jt*1B4GL2l=47jMb#RIo`C(FJZaw+lq|fg7Q2GE)UcVo>EyZ_7N>8Ve_Hl!
z<DGv-ypjPY_3I|S_gbB?D)dMK-{*v;BB6V;?ls-^EZkVyZ#!AUKworfqgy90+vkXQ
z-Q-&L+YPGKnJcD5&aT(}UMGLNXYFC#h%;PoQl73{Ag`{JTrL%%-f1cE^xLM=!tK1K
zE@zr=?0mYVCq22h_?+G@eulZNp1TvA!{*LBWVci>dHs|82i7X~$4@rpmRE-Q`ux0P
zv}b)1+qU)V{<K7eYOeRmw>CA1yxSOYAR%Sj1K$TR9lfhGA`K%yoqWdrBeUhw)8Kvy
zlb<fCh4DKjRs5H{zjq@f_hO85w!+3A#jT}(k`8YzD-*kR{_#1dRZA4oU+gt<IAp{i
zb>j8x_yA+hXD7vd+b77Ev1a$FIo&!Hc}gL^{<dh$27#Y}{>kShmWD=JU+DTCaWO^o
z`Q&gP8O4j1x;NM7i#@8BzC3S=@!k2F+Faj6uaxdoj{kOZZqQ{JX^Ztc81@BooZHgD
z7n;BJd-t2oS3WUo+It+8c%Au1e6eZA*FPsN{9Lkfo=i*UsoA|UA1;2H(`o$p)<KS{
zCkc*H(vj|BR$mXZZN6!Eqc!iwgB7*MPw-}^P4GP>|6lIy{{=mATV_|?WV;q*DAe&N
zGxKHUYmqXs#_qO-rC<CmlnYP$_kHu-<ew8lmBJ_Q+At;6Lg3lSlTV$#rru_d%iPz?
zaLg=orO?T9ZO7hkEU(Bj_q|@%w3=y-_Rr0Bx{FV(4$CPHJT>iA*Zg0pi?{iOuIxLw
z=eq!V|60+f)tRnt!ke-#NB0LOpFYyoq{Y*7%%D4Nf8&mt?`=G5mbRJ)e7TnMC@9``
zwnSUUX2UsC=9RPCExPd4uPj@$?PSUt?GxKGWOY-o>&|_gpZhzb|LMj_&mT2;2v)pd
ztoa#!U_sECp!cfgQaL=*V(ix!^W4wtmF1Wlb!9KR)y5k^#e#j=X7`s?tzK!>^_`_^
zw{wv1tegv+kHyvPPKUjiwltM9pZR=p8h7!t(kA`MJ#2GXEh^`3zn%R%z;se?Xm~@i
zM@jXMdnZJWE-JN}ySwO{?)?=OElch4&$eA@658Uvoa^jIl_&2X3taG>{itSv8$<7w
zxAjq<B)<MPG_L&i!_$5>n}f>kaM^|lVRlhgJC_FO9X)NeziY$2ire8UmIw8hzgiX+
z9A;w2G@FNK@#dG0ru<2s`;`0s+Yr~b$un8jq;cIod&T!sMG*VVZO0`4U4A5I`S0X?
zU8W`bk3HXBZd=>3`pt%Q;XGkCr-te+*LiqiL*$%J+m$?dm01sy<}7}fS37Ub&Tj3S
zb?cAnZ`^msNO8iX30n?a$vfSpcGEXMtUv2k`IlRppLu<Au)q8{@#;U_r4ycpWo?-<
zKd@=H+GIUrH`k<(d1s%5?Z5Kg^jg#7OE+&EVlLTYTBY&MWDnE9_x5_xwi-?{1(l2o
z&u2e7?%X%Q#m`kqEN6mQ*4=$2v2Ps`a#v^felui>`}!hfs$432<M+k`O1I8#Rr=f3
zdzVdTdD$cFDUNSe>#BX_{I}y@@0#xG69TLwDkFtu%`H4{K4fG5&{lca?M>i0tx7)q
z+UrW6(=2pP8|ugM*Of$UdboI9STC=aLDW&HDJ9lBc0TpK_<G8wtHDC*(>hk9q#ZSF
zQZ+H!QCck$#&OhsQOfJGEX^NJEX8YVU#rX6J+19sfBI9+u`6k(@;G-f#WreLi+z?e
zp1HUG@5T++m%H9FU6FO-KHIhaz?5g%DHgYRQ=fa?O?nZ(M{ZANJWmhT=5=CS+%8J}
z%kpzt`MvB;cLjJUOJCV<VAP$P;jrMH$tJ^^`7h=LxNW?8X=$STw_~wu&CBn3ihg74
zi9A;Hf8&fB%Z2w$`4rZ{we~Qx+?@x$^Il*7Iy*1?<BnYipSCSudiv!APRY;@dXC@u
z`prMwcFwH&GViC^^04;06=t8_uWVguUK1&~>6C(3UQV{$8`gwn%#s%s4!2JKDPdKV
z{D(`v`{zrWxx1~Z@+!6RBYBOBy%NI@y56_kD|S3)qY-b|gL8TF-w5_BaWi?nInhe@
z(@N!D+3)g>DJ}b?zg?P|={#eH+2f55rOZB5MrQ7`Ika!>LA?`e3wm<y*jF9fq<#B)
z)>VFu(;ImfrZe&#>JE7tdEBTr{F)i#)x9z5g0KI-x+6Ee+Wg&;i+q#Pr>|P1R%w>J
zqy2n~@}k7!7hQZ8K3kdPWBH;bwDf>CyZwj9U+cI-r4`~f_HPPe7g}W&=U1&Edwe&W
z<grwN+=-K|%Gj=)QT(uHL&?E#<$!4?|5V2s*>8?i+{G}lAz}B0cenM<Z%{unuY1FR
zeeVU5^R^i8ew&$fkoCv68m0ZGWJ+T4tYS}GDX0h({u?ZEb9?Ug<6Dx~o=-BIq<rez
z>$<~V9+bx%5Px}dhsT=vdkTE6tkr3-=-ns3@sn1D!ID7l#dkI*oZyxFs<t=uDtrE(
zxBJ(asqpTqui3oMyMCVAjK+=ci<KX2oV=R#{oiGUwR7UuJjqYmY_;%kg88rI@&<Xb
z=1-T)n4VtSb*Urc`rg~-yZt(n(q=|+J-W!o?RLju{p+&!&8xQB=%tC>G+id!l3Vnx
z%wsQW*f;sC>a2q+SNs0hw$$G;SiXAZx85sf_q{9qf8jhg*Gql#`-R`Wu6}ZHh0BB6
zQ{LNsJ9kO)mUrdNrH(T~)Dw2hUwuk(;|uc(lX5dkuJ|>7D}VhsY5T3_nU-a?d#Art
ztnYqqw)3gMveL^hyie<gi*nA`zq$C>6D>>m1G=ndDt9fopwrp*{6a(1vM@I`|J7A9
zq&}xPXm+wqY`Dg5Q1qd6iqqkPL4J!@T{4^haN3E;-*r(dJx?ay?#@2+z~o$7;`aW>
zB35bh!n&h*I<(fB1U#|P-*D|yqWF&akzGx$*IsL{e)v{(+PimbnH)Qk!tUO^vEE3}
zdgCgiWu|NM`hK?gl}}7FzyBdfV0Y_9W6!Ie`H^)E%e-pO`si$1-2IB>NR0FCm$xqp
zcpYt13gisxuk$ezndp;dW14ujZSk99T>@dJV~xW$--$Q-7VK-f^FgA6WwUt6s!REm
zXU!s|vIG{qx_+g5>#BPK+pnK{w`n@}!LIJeHFnPyM4#Ai^(JA)<{IPEC1O`M{CSpF
z*|tvm_%Ew_A~qX7yM4KK;C#r&htpWTzh#@_bhP7L>$0laQstdl-nQQBR7LB~$DO~M
z_M}?0bo-O<T#j$K%(tKI+m@@jT5wA52KFu24@{jIBK^X8W(R-ozS0>6;v4(-&0Jh0
z*(@f*VITjeC;sylHm2jd-b>^tCEnzETYa(O_3aX+?RkG1Ql?+A+u#?Svge1Z=MAkD
z|MpZ)dB|EPHe=Pa#gC0XOeu&+Qr-D5WBTu(6W!luRU5ben(?z+aze$MdwU8`Fq=(Y
zEmhnzsprwe!m2mdJl&&SBz{<5F0Y)B_hQ=9xK_Q_$?vC4dVB1_sufncGgA^@+UiHW
zj(@Ri+m^^0+jEhYN;f30A64>h$xolk*V1j<7kNrLM?`s@mV0weO41vn&gJ!YX8k+P
zcQ(z^@8^lg^VjQ3Z^>A`+!6jJv`FvN#<_FcqwC)9_IMRkm&LZi`K^za-qANFrHkjd
zs1?4p>Xk@|o)@tzc>XjCzx}JfSkyD0-?EBX>a=6{zT_F^n#<Ckb;f=-@+i5jX*pjo
zGhEi7CHQa6_FX&Kd`;%AJl^)j_2#|QzlXLd`EbwBKOwiqiuHxBFIUN*u&HfV&z8jm
z<#_ImS~F$$bWP?u&AhiwM~@lo5mWo7y;ExP+w&Wo#SckuOkXywjQPIf<bqVDCtRCm
z`!w8QX}_KoetY6Z9bu0paouk!16F;qNyzMT5$8X#gnebE?9C}`(q8fjj_NtW|945f
zxOOS&niy01>{nOxm~L+^-SA_(fDYT6ya#VDP1|$RW5b&57gyePU0!ydw`ZdsXNH&V
z!gFfxHRPwh)w7Vzk#BG6YO$O(vEZ)1e)OiD_ewT$oI92fJ(Y3U4~zN!t1V|_R-aq<
zfxY^D_pj6)CHHtrugy|$a`^m?$?se0fA@)7D;(B8JM=Xq@sn2lgf!8Y$z>5-HTzZi
zjx&8P-LU$^^Q#}@y5vnWEssw5o3`ZOm882|JB9zoyBmL**XlZ3%Z+j8Z6}Aje>WS6
zEx3P8-;3qCSwp7ErsQ^mci%H6$-TUmv_eBpX?<B{>It!md3(jSA5-?0%9-D}duIDt
z4#6Au=Sk}GawUbcmt=%akzc<0PW5gp-JI}qu>~(gU$gV>u~_*^;eBdCS;iGtP1Ro~
zN{lDZ7CE%@{$k$0TeD^?-B=rTru9LJ^sH~YJ})lgT>NAvx6oHthQkGOns)hHNG%gM
zW>_2)x$bMu1vbz7{-ILcag7xb-;=9e%%1r$%ig0PDbt%@@%gmmy?SStNga3146%}3
zr@B;j#>cIqGc!%oPiI_xBKTzU8KLc0kBZ&#zH&azc6!p@g<5)NHq7M?o%mzDrnpu)
z+ip$qS5e#6JXq59_NmHlJ@<@VAHQCV{ic6%+kY*q9WJF!iq=!M#&;N<lQ!89lDBwf
z_NQrgb@V>4X2s2o>t4_M(S_aTV58-}_9CNA>#my$9{uGvd9U8*1s~hPmhy)5EoHX<
zxwTqP=C+nv-3`X3m{_~FX%nKm=IDO=(rI*f>j}$8vuqw)uC4i*C!nCYm-%7tUNh5P
z*L`N3%D0bC)!v`?dFrL5I<@<kCoDJrEgGa;XB79nF*UEG%5uk&qz4>&pZ6@^T`jM%
zyr}o+<lE&dI}_!TIVUdm^L*=hW1>{u>>mDyq0wtKHbgQ{xAplv*R4Za{eR#2)khwy
z6=j~#GBk)+_~LNsZIr?4V!i4j7JrVZiTi`v*)5M*x<zEN`b!_IUuAhX?ZMNU&+C?+
zICetjhtKMH=QwK_D+><)JpZtivH$cJL;i_k0cJb5l)kkrUN?Vo!c@zj?-{S{(Oh@X
z{Kd>uXUiDRhrL(0vCZ%Jga65|YB`r*Szso2>0P@?<j+6Cnu&($+*02@C+zR)e!oRl
z;{dC4PR8a^$Ku>KPj}yVUwyvIh;23N&Yna^mN2Cvy|@M2msoDxYM6GP?M<N4cdgo(
z=y{F(=}c2a+Y{S1y01-M@vcQ``^-}(w{)GIvgepe+UpmROIfd5-q`wIKDcAA1Osd5
z<<PLMW54rP^cfoN;m!~Y530X!)^)Vy-uH(Q>(w@#<~7Xu{b1dU8>gNZ^{z}a53CKf
z2|6I-pX*gEQnq{@%j@(7D=I!+b~Wri^>zRInfn$seoQqwQ&v6Kejd-^QyQseDqQon
zN}DZOCBiRX=z9EN@azT8*Uh}|X1a0W%96F2tFJ6G*Xv&+uaj#ibU@br#q$eSw{@T2
z-!(nVHsz%5;`F!`QPX$0uJ3ru9>dDX)ARf4CO_s!2biYLzdO;9@yUJjePwetI6Ww|
z;Afv2?Pc7nr{_4S>rmDSiNz|vR;hH><*~}$%znx8sFDBsk+|ziede_X&JzE6eOCA+
z74fOFZYeb_H1#d1itP$wn{Z=7=JLwjhF7>h3B4@;7%8;<^xnVA-fla}e?M^N^gB%b
zTHjw>DKS359xb!uZpl0;r3*QKEEXJJ7-R4=##WC<c;nRa#FfX_bj&aJ>z1&1ko`|_
zeQxcE^yTtL-<ZAe-4YQg-MJ%bV=eplp8c<z7Ei3!Jp4J&Wm$#$^cuB?mJCm<@5TPE
zyQU!hc6sHq=6z``qO9AF7YjOH(wfnC(IRR`*V$QYEPC7i%o8`azGk8za5|QKpNlx#
z3gs{IqVF$7|EcAR`d0sbS7p*%*4L>wJ|-J|voIEu-tF~LL@#{%nVW*s_E;Y}yxR4=
zON?yI8x?k6&zTA7$GGPF;dMw#u6-kLdE>r~2QFPcsj%_>F_{+*neX&dTsLm*_3X)b
zle)6*^_3$>Seq46wmYA^%#<b7zJWR5*{V7&SK;qBf5@DUKC6>-PK+-t?ET^Xn9d7%
zq7QwOjM61`g$B1?(qvRW`EB*@IjWWc@wenM@5Hc)-%R4)8lSvGnprL{elc&7z;ecl
z=B+F{QrwnK(9tgzdG%zX*F4MLKVz5g6udp(F(~`r%v2xy{>kF^-nJW*&%dR4E-q;O
z_aOh>yG@Gbt-IX6YtsTzHH`ybU#vaz@T&i|cQPA%cgG9HZWI1K;ht()itsndw1P<6
zv&_5w_3I3c6z3k3t5iAjLeJRBY)x61XO76^;>!-{ubnn6-q-Azer#j!WRIdrr~3<R
zc{8@1st$Wnyq){G5%25uukF0^OVb+Gep0DDx<e;%hV15@_cQa494h_9DR=7S@f+b;
zf8y@nStPzeK!N}2`Xw6SWm`)!m-zEBU-|dyhyLoT8`c@cO9al3C_U`3LA|AM?w$F|
znk6+#8<=%fHRithyzb{Av%f_%FIr@2E{w=|qN#O;f3JewmXk-#xh_uey`OvYa_G~w
z0()QezFrZwmdmZcd~WE0?hSGu3Lb7_*nOG#dw*ibhuvHMD!&e4J@H@t{Py@C=E2ov
z!Ql~gvuEmDohn{(c&}1><@t3l=D6>U*WY1h`sd^4sBNol^;as)PZ!Nw_dLJ+VfngS
zt@bP{69P}Q?JYbsd&R|nzDJlgoPE4eYwqKHw-p4lf17!@PhZ1RySw<-yT~)*+uokK
z8mhE_J!A0|BdOcXkLI%LR!d)b@@S|1^wief*|&<Wwx`*JthsfJ@6LOB(Y3(`9$B1z
zcOqFfIkS?<M~nY;<-5m{OG`A^cV}BiZ^+Uyd*gq8Vbt@zMi*{sd^m2(K6mB6Q#Y@i
zRy_VtFVL!{EcbRp;FQAI46m8*O<;J*VKX`N>FKQQPmZ2y^M1|CZcK4_XUB4BLI3p@
z7Qtz@3?fU;td`z2VM*LqKlN8J-&geuUVP=T`fS|SvMj#mNlVjLNkzw5+2nNS&Yi`p
zH@A9)^HaCK(GEOv7jkx{-dts7f8zzibbIxeyqDfrJe8QobYdCL1F7e~5`yJK`z*Vx
zrg?r|_;j7Y8jCge^_h4)PV;NMes#&<($XzV_LZOZAGyt9hp}`JvK|n$M$pi}$iN78
z2&k!<3C1Cyre>zZEFC->8`-aNyin}Hc0u`?6W?arOq08lySckkUWp^(il?Lc)=doE
zRS`v%TW;KWx^)u=<FB`UCl(tSX>VRtRo14$Q`v4D8d-TnHr}PK=(Jkh=@0)e?SEfW
z^7+*4Z{Pl&&%5!~|3Urx`!z*}4>NCnIltU)SM6UxyOg}YPkIereY;p~{xP?1_0}0X
zc5IFEKX=#e*NbQT>~%H=>nqNEbv$SP@8iYud48v?YksJFd9w5S_WpSX9{2aFpL}y<
zhh+_$z27O#>Wb$Tk0u*R)%~>SdAMhKJNM6@mmi-zusQ1E;g=OblP}!+arn8rVdmi$
zi#^e96;&yd#qU|W@B6Su%FDts^Wmf42152V0dY#sw$VNgh4nv}rY}%C_vK+v{DU;3
zS064;JbX*EXV$W}Zyr82Shd;hP`|pOdftpB@)b?%yFE3^E$nR%xf!l}mTK85JmHQ%
zPg+FXPe;kGv43{Ynq$x||Bz+tMT^xNSPcxOS90sf_)99DbvU%^!A%R+wfyg8pFUYL
zNo)PJ1G`RTo#HzEyW+wee+L!&{gq$l*K-`!JgBz#>BIkh>SmG03QAMz&%c*xoguP)
z$Lo)YneFZi6Rx*d?fDvJ*|q%cX0CYSd(tcU?>By*F=xru>q3(Ip3Sw}bLH=`rziJ(
zO?>Ee_t2WgZLTWs_Mc6DI6uBJn8ST1$FYeI9|nKDw!J@VQ(UHCe3nJOFH?lR%@04z
zZRxGA=S@HSZ^xes#dMzP1v^-72|eLap6Fs^^}XYJ(NCuB@xD=4MLa9#G&?YO7BER&
zXgX<e{+W)daSwZtsR8GVkF!6RE)+HRFjL0sSKz_t=YHtqOq=xO%Dm~uig$iIU%bsh
z@zUjBUE>$~TP9!p!2bG0bjyYbhP<<<e3&A4a<fM`n`ORBM9PNrv-yuX=bkLI(>q?-
z*tqoQU&|T}Bj#rkGoEE0{ql2fk)DOrh2KZkEad+Zul(lkznXjTGO{^4+h*?Nan`iw
zbU(R}L&&D$$yar5xr3X%&u5-|+4*d5`_w(Mstbd-Jvp|hHGIFv*EFG6T4gO0n?RL@
z{F0K%>}x;Ng@@SN6`6CgIekB$s4x5cPl4X<YpOGgtK+&4A2&{tnKFCXe$^6(bFBqg
zmVee&FvvAsW=xwD=;xC5OSeyJ&ofV(1Mc~}0j(uc@kWzb_dVX8mDFb_e!uc{gT7~a
zN|mRFb9~cV{zvL3r+)8eOHmD9_Pf=lsOrbsWaBd3^$99(*Y33q6|UknKiI5vq0(-R
zV9|<W`Hmi~^@pwhTj&4%l^3dS+t{1#w)<aNX2^j%S7tADkSbg}<3*jDuR_$EtZSde
z1#X^e<aw`mT+Q(PgPA`?r=0yzo@}x2^I~`N{X2g?nZ|8DGa>rm558;bEo+`#i{LbC
zbuNDU)jTh*^0D~#`Srj4+?^d>SARM`?x*Iz{nzXNGXHqqD}S%<@iX`QJO9!$j&W*M
zmC4j__!>Vr%PGfEcE|jY;7cFYuN!x5DbAU{C|TIUf1U3_gPM7UPj^YP*+`jnH7Bn4
z6j;apUE<q5YxxBd7FE_eYd;HS{#sGNyt`%ly%yz%Y&l+@{VEfx>;x95*l;B4?4Hm3
z^7hpavNxKdnOFI!?v7fc&*|&B<n)$<_pO$h-r95U>dxOsKB&D}(e-}Kd<*w=2|v1Y
zmvOCEn_9*rvQjDfSxNz)T+QhNZRXeCNC<I9{(rc?zyIGBkzT8hIY-~!cUk!;b=keJ
zM?W<_RtSksQJQ;q3rpY^k1S3v&f?dn-qxsnU4H0I!p*xkZ*J+!vb{Z-+vn2!nCS<k
zeqNXq_L=q1M4P|XUtVlsRJ|VGxcn4XN%W<)KMXoHZuoiCCqCnSb?^z7zz~I*hn!}e
zbV-?N@;guWtk{;7i))nL%j^^9+@e@-y7Fn5jL$}+8#$YfR%ZRk*>JU$A&&E!t5UPP
zyzCqy9i8Z}I#F2%ZKrY1&ffNT^3=<*ol`2dea`%AEw^^cz159hl@^t)<(TE#`=(~T
z%mKdz{`=d6-K=juxOBKbVY=YuPm`0}?A7i3OJtU;%-P{B>fvA=5@GV(@6e%R&Gw!-
zhrfT=F2uRvwbbOd%3_(@e)Y=CFy)yy$Nz`z9lPaI-gaeNe%|?Xrb<&v$Xm^KY)pr@
zJd2B~{wTWYheK|XdpYa1ybE8<GY)en7uFP9WVL!~G^cMv-lonCP4-jRHi@wbWyFNr
zdC#9(yU6T^%Z2vX_A13yJa>ERBg8{*n#js<d>6HBo*_E3?V`ZcZP_Z_C*8{C%lE5y
z9NF}rW%I+Lqntu<ksk{8dKWOUi5Pa?shyKKXGLB7%=Heej?&V6>DBtH;-&8d72Lky
zrMoM>;qy~R<EEGM&xRLX+2AzaKTz5|e#${P)1y&LO)b2lDVh(gmoHrq%NYNmP*W+w
zn16>zDR)ozwfKnkHP<hm@Q&wrlke!!<num?E1~gsM&tan!vDEX{2!h<aQWg%j`J>+
z6<e3r`xvPF*v0jTS@g=qqX|D2`5ii&w#SHl%dK4Alzk`v#h#bCAv`5|26OX*Ig%f)
ztx_m_A;~VhrRM2bWw&z)i{G@RFnXEqa9l9MR;O%wPiNA*kiDNa6fKk6C8n{g&oU-m
zu}=4kf~3_+o*PoHw0}L=ll}O;=PzCv`Q|j44<a2at3Qa`4%PnkL2YM5)w1YQffp)H
z*s(_L{q*37^pgnfO;UnAc}w`*svad?<apHfHZ^3S(b1!AO`^eBuY*E!B)>J?aA<yV
zdiUN5Z`wTdV`kp`wXA7x!;{JKaV~$wmWkH>+VxrL<lk2Iectb;Z!bIjH|O^LIgh@U
ziTpi3G1vN>`7;HxP6c6mWh?Qh&r|$)@?&@Pxyf~3K2iJ8Vp?J5pWl~F9M7<wd%5Y~
zJjRJ!uN?K7F7NB~ZI{jKc@+6X-$yK=qB)3n{$Gs<ZKgX65mRSxDGfXD=jIcZ@>(fD
z9$$$KE7eRD4ye7EGeyg7LTTEZ>_g{1dsiPmmlS^@^0~mS8<Kf^4`;nTd{$vq^D!so
z>9#35A{m1_qt6;J|10G%Kb;_$xFJ<+M)bpH4w}n#+Sc`1O_zApw_<bWzsYI0?w{Y;
zqs#drcZ&Iu-l`cZiUX%tFFvOduvh)nn?Q|P&gf^V22Vw;r!6{H`FD0;`bOnt-b&{T
zb1HJLOkTBH_}Q$T53~)RD})%jg!>g{*PS-GEo%5YOuD`{`CNI|_x@?yv$EH?&OW>`
z<j|Yl*@w=ks@a9E{}aBo_QAA6QvyqNzIb0g@8u<{*V1gffsMuz{=2)L{9{UcYx-Kd
z{6gL}>G<Py>pyb{_?bkmRec|+&E>j#Q!D%a#!F|TB(fh|ICi6Ss={m5lRFeQ#TLi~
z?LH-0Y9E)BoO7m8bxX(t>ucvXF1;3<>BzXRZ(^e=hkL%|jKJ8<$5hpI_bR-6A<1^Y
zyRFPL=IG=V67H*S_4J&~tlZemxZRf}SeW^b@2@t8|4&yu+_3aXdp&DV>(dqc(jN<Z
zhUo9-(n)k!UtGDvHYw!h%YDMEJ;{4zH~r`8<PUO7JH2^|^t`14EE7J}x|}@tv&d1<
z;rTpkPeF(I$FCpgf2rc;X0WE|UiS@`weAbf$Tj7%ytMROu6E(!lg4yT!xeueIy=}8
zKj~)B6=ilm*1elS_u}~wCXs!@oAclMu%;>Pobu?-#GdQVr%ceuD4z2CGM9{sy>jsC
z$*<Xj#Dx1#taDP?yZIo$=a*G0s&6a2RpOm8|HORG58UpL9y~nY&b?DWYGuu<$!u4T
zNyg79XFJ_`)w=$NWEQXfL;I84CKXpZ1xFlNer-kE&A9<vD{egapyaXc+=R0-(LY~u
z?BjVO*>BAFX3a8BxvB(@&KDC8PP=gUrBmws#IU|<yY#0fzKrHGyqKPG?}%G+{*Pfq
z!o_Rt*8_J+uU+lHD%ta3?_nMm{-1{@vuwY8uz&W#Y4QScmDd7fJ+`yzw#NE4cw6Y)
z;e8OQHkEJAa+7zmo;g20O`Bc+@|no9)lcW%mp`0%z~^M3&^FeCFC3*jAIzWLubcg8
z(v0t^C)fQ6J3C*+aHVF?WZiqh{#u{DyR$#K!?saH#AeM4yDv+OEH8KQ9u%3iB#I&W
zvF4s&LD?Cr9p;Ku?s>4t#g-{-(VREj54cuxHaGF>UkM0nzdG~oi!&!ShD>Q^&03{b
zx>)(JexpeX+oXxx{;$vqxm5qU@b6!Znt2bt*Pghf_r=sst3ScsdxCOrVS$$Vxnhnt
zg{^Nij!P|>9m+hTC|p@3SG>+`<>~|8Oo_((<5$iS{$MtzS~X$c%)OKN#3U{E9@1TW
zicvgK&a0<|_oCEacCM#-2W5R^qD%@b*2=0ZVx3h!WzPM>D~%?EmRxXKnXy5kb>X!`
zWsOH?^~p_N^`KA9$9%J=icU_&2i4TR9iMo1doJ7aYWBSiIpT?@eja__+#)=O)75{r
z+@A{b$H%U?vRkCCbV|9K^dR@lvs&Gh0~ufKUKlS<*tCFm-nM0d#V10HCZ{)^;^knP
zU^d0<e^7y*$`(I4g;a^~H8wH=5xkk@=}Yew6kd9_L0V+%*F6HPQn#d>&!u^oc>VUQ
zn&&IML7P47>*RF|Zd3VgCq+hwFWq3{(|2CGzC6)s`?Y_E&K(J!=gYaFYn|aLgHyd#
zdy+zyUM$|^?A9B6wv6jSU~JfhgI^}U{9pR7I_<tZTYaGS)YJ1XbpA1j3~@Bz<p0*S
zrS|FViG|Eh_XrfusWQpk>+CwywYS~ZLHDV_j9p>Mhb1K1s}eY#gl1Z<nb_#xP`T3l
za_Ev1o!3sqc<A2qekxd`@ma<9=*_?F=VQ<F+E0?$mz=8}^m&SVchSLc$IH8J>AcDh
zU-YudT3k=>8RP39k%b8y&wktSS8mx8AKb?<?@+1G=Re2Yd338Srh8v^iu@IS?i%}P
z=dHc7b7dDaPTHSlyG3i`R3#CC;Opz3T|fG8yR^|CpRn3InS`K{$DvElu&i8P{k=m_
z{dqv``~wf08v|D~=sdOY$S^e2HPs4kRlnLEz~LwmwBet7{VvXLD+;dY3AaW?+%ylX
z%Rb&_n^9Q%`a$;rWyj9r84=4)Tu*-D*EHKi^|5E?;r0C;8J8PpKRiE+Ge)pLJ#Dtl
z&(s@%$5>80`;pGK<*SHh+d+|1opa7xdkT5_TIVp?GV+LMZ>X{34Gh-QopxlNz~2O!
z{=>|fzrXl$FY4m?AL-#NQ6hBNJF1lV^XAs>)P=<{QrFTBI$dcpdbm`y%uvWh;$6*~
z_A5z$&&}Q7&foT6N(N`+!-~|o(oF@8-GMxnf?dq*lPp3QPoLVlFNF2V#=PkBA6bP@
zty8UO?%2L;*2Gm`cCelEK3k~zX!fQwnQI=4UhF<7zGRw!LGG2^DRwRz=`Tflv~_MQ
z@$pzBkgH;J@?&4_r|X;S16ONnr?1t!vgWF?6thj<Id;3Z^Sp{#PjTmnN8PPi*1VMI
zmBHJX&wmOn7p(K&{$aDlT1)%j*&@fjOrF+fwJ6ZCq2{E{H7TdmhVLtV^s7`f*d=xT
z7})K1v)ofFlCY&}!lm_khgA1lr5!l_&`A4P`sUp|5whJ830rmROMmA6TEv$)H(&-&
z(x>gxeZ~H=4~3T~{CsLOE91FCeaqL`_j0t3GBm~c^7QSgNZ#od*>-pOu|<Bdol}xy
z)?_o*O5Jy>-ucXE&Az7f;%avd9)Du|q2y}vH{i|NgdNjly<h(=vIyy#yuw9z;e;8#
zKXpljwVv*L-(qy+(DGv+bk?lCmb5TUjF*K&ICr(=f>aj4n!Q_kQYWwGJ)`|7tzws-
zKUYW3GL03*bF1wWp0d~Q*0HgzedSanXf60@YWCfQv*PZksck&y&D;4d^3i%H#b6$-
ztSt*I^$a5)9=jSSdFDF5+r+uC*Up=7?D>D<uIm=LDt<+uWhwSn{+%2CzqSh7-Noc<
z>5%h$(X&n4-rCf+*oMr!(BGeN@peJMio0ug>v#@(h`v_x+R=3_F8YV-1&$9M0%AKA
z>Uv~WZ467$NM6Y9ai;pzasCG9Gm7(=a<-hj8{C@ToY^g4e9&m+dj_Lb0p3-ie``*>
ziVwA4U%c{i)ZaZXRKM%G%9KtN<((IJn}JC<M!ICX9N+nlsm&X%iUsz@T0EAJWUlJ0
z7SEYiI+NdRl4{-wr%%^|qdn@5ur^M-+I~qx>r3l_yPKk4$O*V?`J`U>FXo0Z+m9*6
zd$bRv=er(fZng@Fd_SG{)r)D|2WCbd{$jPx+0=41>pJGkjra7D&K&7E^kb&^1EwGQ
zoc6>dwcTi(>z>WGf^mxPMlCDPMK83kxm{SVc<OmWR=AAj%UX`gazm!jC)ztwn%29{
zey&hg;%?uaC-G8j%CCnOEw?`J)4Xl9?xDjpGsauT_2qXj)Rc?TUdn9ud_pj%-NcHk
zSq@s<KTLwyCjHP-n6-PA>tE@Vrd2x2<Enm0wuv5?S{ypB|B2FxLNgXclMmHj91rz}
zm%kE{xXNC1|LV%s!PSR4KK{*LxU@G(*`O-)uYc@Ezi8v;{YMw1nq?;k$Q{Y*xE~|6
zyn9!a2lo!6w~6oF#S9u}Pq_Z;W6r18o}C;z_ud?se5rhTz^Yx(FLySt*VFJ7P|xDC
z>+k7}^l-nh`q|x2ezEUM_10Z9oHTFs>FMmT$1{Ej91ybJvgFnmF79bk%K8ZhrzO7n
zH6`hw-iG%(jw*9sJDqT#Y5n7O$6vgZ-e7knfP2GEm2G@VVmb5fgl8Rmr+?H_?9IKP
zIm-g-*FRlVy!F1_X;IZphn-n$EA^i~JM1OX_}4ffi=V47O!xY!U0II*mxz7&&>r&a
z!jB22Nfmqjot3%nxu|9b*5#g&cyU~)^t*laf)C|g>()%;GTW^FV!r*Nqi>xGs!u;E
zW4yip_M>NUr?nNoZhR{?)ssK1aJv5;Mz`3wf3Fg*@EGezpDmA?60vQE@a<+6T_1k4
z(g&4dyI<aOR&AKLUFu`^t-yKbCrr9<isx!v&h6J~Tb@33d^Z0RXVaHY(+cB6_oZIr
z&8}}*bx!iU^DVYBA#83eYHSzZ2A{MD%eY$k>HG158xMp(eM*1a{FaC7UVF+UHsAay
ze)gLBPI0H&_}HG5{!zWrBenZS$o&@H?Obk3_ICX9uj_sL6H=3OFz>8$qQLEzSC<x8
ze41RTlz)D|cKrW89c@DW23|Zep9KtbC!bz#<9S)+#kD7b^GoGw^i%9r%T)9(`(_)&
zJa?7aT5<d5j4KDGG3=^p&r|bZzL!3!Zbi?ROrFSF3=7Wb|7GQs$=ji-%{?=cll%I?
zf1Q_mHmJ6EOIaV+dRDkdf8xImgX<3-s@F4ZpIGUwq2fDrXTrm18z<lNsn7Vo%&p68
zJ>h?j|IzzX_x4>D5dHThGRO6Gs_SNtP%a-$;YqQHMUOr_PG;C(;QDQ0&4xeg%Gb=$
zV4ru`Z-w-ekEdsBNu6bLL;3ip>(3Qf9VbiQu(PS}Z7eZ3{%L;Xb9L#eUIV_*Y&WN5
zR-D>$wbe+0&FPL*fk(-vdX5t9wmFjPH{|;(XM0~h|K?kPB#YB0$IRW<K0NIyJo`6E
zigIxqCYPLf!}?JFw{BFmZDpui(#%QGd4H?U6l?Q1Wxx8tZu!_deCvmY{HG$G&sn`X
zU_~yUZpw>KC53|im+Kg7&nb7r6fxMCci3JzXXm?sPulVH1+9?2e$_8!Vb%?6A9|+E
z4)8h=%=e%ov`*cick80Nv9hiS<>l#{cGi_M>#CP*=ZXx!d+fT#9%=hIljm&izHgn)
z9XD@l`CPxd%M<hV$(}D@DeJvyo0wtr!}VjY<c$}l>`W6in5A>YH4gEpWcx1*z8aDr
zbKmWlL&ohqfipALeNS&_otb$#aE+dC&g3O|6H6!EU}Ns<R1n=){^plKM30ls4}q!I
zoxUiuD2Yrt$GG1|)$IcB>$xj#E&1hoy!5ndYh0h@E8*=LPcu5&KYV6-DBR*4x=*-x
z@iIqFk5fFd7X__0@@p;R(k_{$(f5nVDqL|#(<+A015cJsHuB?c2*1I;q}0pSab;84
zT$!9({^=%etCEG5ohyGX%yDbVQlo8tA$&`_7<N5gb#glUw@Y6hh|d*Kwy}M(Rr}e#
zFOM%i=~Pb*31N~*O3LCiS7WI7^D*=2X7z|Vzr*4lzq^+7AG|pEQL?r|3^$|8#~^d5
zs*|i4hk~QBq#O0V{8^FvJ7$OH6^5PPk0>5Ep>#s%aweDA{oh;+pDPS!H1eL!Y<}U{
zBFY){#A8{3=eB9jOJ@3CIuf(gU5};2RjzLLoRs)W^M4EP(|LG)^Hu|f=bA^FW)%wd
zOtSjoZ53|u_L~Cdo#s2UF2!VBsP7f~K4;1##wPb^*QII-qqDY7nIHRL#x%9$Rc#OU
zN|Y)cU-akoCn3?Gg0?z?AWeY=?jn{J^%u)z@(%QKOXWFa%odz;Oa8+&S8kCPuL8Lb
zD~g?1QDYLzmXtG<dH0-?|B{@}L<ekXHePr0#%Iq%&q9K{D`mZQ{aO)tCy0OcfhyDZ
z9qvcC_6yA3r*}N?!EAB=q?IzJ%;xJ#?p6sLD$r?2HvG-xm(p;sf0^*MmR_AJ8&BH3
zdfDodxo3Cv)(RcvRawTnL~H*3OX8jD9iJETN>^@kW%0&}Yvwa&&I`J0_TFz{u-2{#
zW`=%mavv*d96iV(apOq}*W&%<8A}>pJzC1UCh2PL#;QBtm!5FZyqco<`D^Th<##7u
z`*kw)P=C1BM~zGe*&8+1f>#}`ov%wfy{~0)*p(o?zbjqc_qZ>s`c?VU<e=;v{pb7m
z|GOT!TX^Axere_dr*AtZ?a?h3GkBM({q`2W?F89(TaVhsyvnZLCH6?m$v%HZ;gp}}
zYIl0iX)kh`UgO(uR<d|;Ut{mN;t$EX;?K_haX5W*;q19m`g#|ZWeRGl>c?>C9Mn=3
zX6`MDe6v&JD)Z};Puse$N1r})*u>d%1>^eD)1r<~I(p4F{Lo&5ThDz~WJk?l<JR7_
zKQMaZQm*Sphkv&_nVW>}w9*N_`M5B~cth8=w;vnwH)SRCf1mEA*=MzEez{BibwjTO
z^Myb0e%-#>jC01aqg-rCxgC#-D#c{;;>zbM`cIg-RiJj))l1VSNo!p$Kjb`Ru515_
zw)+W^Vjo*({NMPtG(6k$9HSI7^LNg^g_aYpu*n@hHY1Y1f1=<~gY{Q7R$uHk5EJ?O
zK;n|ihn3ql%6@TvX!yWd_>Y@({}Sg9N1FK}Y7N-ln@=r%Ico`9_r}NXHt~ruFZsgJ
zJ@FRHr%MZB)|LgUZ7-ZyuB3K&g<zk;w$k?rMhD7dl8r>lbdT!I@#|#Y+vELkuAYa1
z#JoMi8jHJfL)m8rO2$kKtN%Y^abxqr;MIp-&E+U7P+Do0mnxsVB6;1+uTpG}8dl}L
zi;S1DE}p`ly7Q+-Lz~m$TkOv?fAB4061SO}zWr!O<>U`HYd&6@_iVn>_kFJ$RoLXk
zyk8uvaeEv#@8G)?GtysM>u$bidN1GmT*sA-UGLpqEvUNNf2A;-q4d;&=G}8O^8W;%
z_5b=~!EI;bc!P;2Q?<g&FO}3b_{J;dEvQqPw7C7(&7JdaGk)bga$d$KKIu)e@nzE^
z{ZqZlGMDiGyt#Fm-IL>2rbm8V>l>_d`B%5`sd>V`(-O+g-;{e3?D%e)>@%M^OXpga
zl~ww$d}L)UeCd*6Q_lnElPP{&O6yWpH9hw3(Vo<_sbr7%<AgJ58&sbx4xiMv@c803
z{XH*|qWbOD`SyLDyRg`2#i4gUKmWCy5^!zz-sCmjg~B%$>RaS|aW0SFFLq;1+O?}S
zEBwth*WNhm?Yw+lO4NG>KbQG?yngPxW^=de=c`1aScdsG9?HJH)^q6T&wyU(BVE&b
zxuwfD3S2vW^yC}%*`4dl)%G8g$a?W)qwK^kOY<LHqGylZ(VxN{UFN{;YS>riP(Axt
z|Lbj8Kb{xcFZiMI{K%P2>w{n3o+-g9xAnyN#}k}(7|x5A4&n%8SbM#-hRgA&-?rv}
z!um(tJA!|_V^^Irah>uN<xEHCsij5<x||c<Uy)N|R9bQ*tai&QAOAjWl~b-yu4_o}
z%y(WPKhu{h(7>MW@A0b4jT0Jur)>26-@bi`EXSvB=cZ0QuXn2NmP2u^jF9vhEn|x%
zR$KO)<R5ZvJ^Aq`=e8poi|5Zi*0$+n+pWOmJ3bu9;mYapS~~sSZoagXSnF6<j!&)O
zEc<w*A{O6YwPxS?)2n7jo}I|2bC}^d&%}inbr<)3J}AJo;?k+rH7)5%Gm8GMnwRtC
z{aTjXuaSFqONU3z;BZ@Mw*CFrEYpb|LLJv{X#KlqR`KBLrh-7@yZ2W+d2TJ=%JJ#Q
z+;w`NqD&U0fBmqrqwV#NFZUm(w0vr=e%jQhE&jI7OWC@+x%|lWcQSvbt-l+0*Px(T
zdj2Q9;HdADKXJa9f2l2f-=0=gH#_mYB2tsq<|i_G@fOZvUmhVHwOmKDEJHiZd%KX3
z_1zn?Gd3JOYAzda!%l0(EtNl?1^GQs2?};7{CIVZi{E#~?BZL`M6b;bI(p=Pz~(=X
zidK~T<*i-1cfZT;2Ft_u*or%=|MvKohkVJ~vHsETsn<R$xinAx^l6^fSGK70?b8}L
z=Dg6@d(rg$)ll#5pmkTL3I6U(lv$Fq()ViJqgcC*dK{s<RxFoh-}_(S>9Qjm6a#jd
z|499rw)6J=w|pY|0w#QBU6;lB{@xXv5Y{4g!CL*Ze>Yup2(FN{3*PY}PWczV6jyA(
z;RV7SUB`ZBO}Nz8G=*EshSSGg^VP~2@8(*;s|)1JVkga7_TohLxekHvAr7|Zb{Unf
z-f>1!$y2nAbIk^|ruDlfRwRb~5I?)_OzDNMcf)_~GoD(rQiT1;8{O}J^|s$^UKOYL
zwxwio4(n<0-?~%Yy1ny1@{f(bc9Vn|(>+!7>T=JG7CYCyxREO`?eE>GYn0F5Uu`JS
zdv^7tDOnR1oOx>0E4bKNc72rRGqcOOWkwOpWsm*1>eFIU7WufP`0q)#+d)!$&djy$
zeJh&WA-Y0#S;7wa$4?H$gmG0l&7Ax4_|ad2=YOtsJt@=W6BsIDvSQDMBMaRYDy$CZ
z5V>u4R&>r^hM$x3e*C%|QIoCt<6Y#@dJ}f%kNqs`>f#(UUf)~xbn8A{&7}6pvDXh5
zUoyA(a_ypm&g%_koE!aD_U^p&S2|W^??qO*RN;<kg*nD`IV^qmn~c6~bxpZqdn_gI
z$|0i@&(E#6ctdKx-KPt@UVV?ZEnFxVtP*oa_to1&?@xW1)UUB&-Ol*8*VcxpIewC|
zzTP?A|LLJ^hS!YlU)x)kc$;Bmtm~QN!#S6)lquX0UVLzQO*Z$*y0<*<O*izIiFy5a
zVAY%w#&(uH>vYTMj#(M+1g@{jp8CRN*3$U%(`KGrbuZ(7Q!Sfknj_!AnU#BXay@a2
zkGAZM<$bej+o$B*qq!!VUml!t?bh?FuM2nd@10V+M($OduCe*i*CBc5UTMU%MAR<K
z`zd$po8_#nZ<?L92OPX%edr{EiNvaH29djC`!@ew+n2Iq$)Y!_7@lxB95^@W*OjLA
z<-*si?!Vnu;E`PKesh25nrmXGZgjf;W~p;~`0{npo^!6PUlrT3t9#ZwHAs5+<x$_Z
zzdxSOG5MY}XQeM|)b*zQh5145RfpHE_`F5*i*-(~Ui9K)nU4!S`7$dD-?q+I<cu_J
zzEjWsWXd{$D`md*E@!@py=qu=EchqC$4s~I5|*+(47awN{bXddTkNW3bU^E3Y4uHe
zzfXUt?zDdDpF?vG+|hcb?ec7^szU46C3UP}bpb7(7sY?#1Cd6K7MpMF?&*kiFV5kx
zZ`v;%?D{aPWAhia2brt|H~&7!Vi!nf2`?zr&N=a<Oz~W|g#A|0xF1E&+3wDpB=Y6o
z=l5$C`Zp##c#^yGOqHq8gj+I7pH-?`EJP$N@2-|*_{V#aHF0fCz#L=#=}p|hQW5du
zZz4kYO$t{@*soh8dtI`9zjNuT-Vd=o&V1puUlSg5ge@)ka@SVlS@73WY!W+e&SGa^
z>A%fzFVjDJ>xA!Hgfi}PY<G!FY&+m$WfSkLa_Cgj>W{COqjheHO2!At{P%7$Dc{Vx
z{DKdEaR`(5<;_Xz_qbPXONrjNZPnuA56<<k?K<?%>%gmkC4Eoy9wnrosnt#0D8in=
zH?v^w$7%7Ii(QMJt1aO-{;SPaw>E6&>Wo`?H}k$L`|9UD%3r^z!{XZ0g1C39L|+Rj
zmcE@UzkYXe%RH%qw*4x5D_?a)@`-z~1)bub)3!@@<^gZn9*GAxX3t)CICg&N3yVK~
zS09(({?TC17h{&k<$80<<F|&P_RF8gvM*zMoVLDIOs)MH<FzMx4tvUUSAVabv%l<q
z+WG%eFD1yYUwB(q+IQ`dlkeN!ok_nEw_u)?Z@X+w$q|RPazz)3-%&5#hH*V<<hE@7
zmzVf(%du5Awq<u+SvZwz;yPxflUGm2<`-P#pV*##)ysQo@k!4wCx3drtlZpen#3+Q
z@BMkBtP-XrubCIVJNP$pL)E39x_6f*xrX=7+C8)D_13=Azc*{~uB?c?SsQ!UYtN2A
z)-qv-S9z*!;*%K9T-hGL(ae0}VD#0sJ&Ly<I2{q3854GMxi-@$Yo`XM;+zMu%NMpd
zZW8^=5fi_2)`Zvl7d@Y!@jEI1%O7Fs4=-JL=16JBPyQt)SmiLYTC>6GVXXTi(;sHu
z3yYpl3>1ylHIlxjFe`0omEz0J<4Z-I_8(eymc2Dc<ZY+1x182&w(oDf3YML!-EDus
z@^pdmY0u_+54)z{Kl(av?&L3gF-3QCe+9mLwd?Nm4`=2u9_*BnX_|3sGNax6+ZX1Z
z{&9W-&(+Qeuj~@HTO8Y!_HfO$2WS4oNN*8JKB6}17;lv0w9Tufg-@=!t*>eFM(A+N
z{}(R%cR!ey7yZ!A@$l+vGpA~BzvOw&Hn)Q#F~stx+}1O(8J;&)W<FY~opaj%`E;>q
zjD|knwy4XcO0Los_e*~HZAX{L+34`E;+E}V@d<Vxe2?qiw_CCJ?`)aHdDE2+U2ExL
z>z%%_+tT9rsg+T|DqoE{&T0MVUq97wLRm|b=Pl{kmM?zKd$hfM#<O5Ss|mAT+)39D
zobm0+-27ShV(vdt-zAyAt#v(v-6<qx!ZQ6BJ-*j!_dK0fzq|i>+ogrOSISkW?tLO1
zdA^<X`=s}G)?}Z4wbgrp+4A5nc2j}t&An2KV#92DE%kmB*D%{ihJ8%Z-2D1?(Gqd~
ziALUhKIKJ^15TMP+O^mAcfrmliH-(q%zsMlO5t4aAvI*W`u5t*l}}`s)*r8xO4VLJ
z>H4W#&zyFCdj6@A->dx0>nJttJ+DG;pIWcZdpv2o*9M9A*Zm()(tU6Fugi6_le0s|
z?o-bu8}XbtbmbcBhWHO1zZu#pLhhWb+h{*2TzXGn*-f*Zc^@Tr{eQKv?tJW|PK~_X
zS=%ypIt4B{S*G!gt$a4;T>+i#3-5mqlWsq?<h1Smch`PDyd!I7zOC6f`eo(n39VOG
z#NG{86W^wn@WWtL@zt=j=f8dz=S-7*7q7A8f~%B3+j3h@Gpo>^9J@XDj_h>ISkTG1
zRIlcGXytNtHc_TG*=iw|gx+g~JQ7`=wV{0`>%$5EOrq0ceQhS+nUnVK?Aia!t60DI
zU@o5nuZaUKpR=?yg<qj<W`KF{o*B^x?}1j&U0ZA`^o0HJwb_PdUoI%;n14Q}BiW?*
zY6)NTA~!XjApYvY?JIA}PI@$H(a-0yf|agmsoxB(mx#3~=5Jo6b>3p1h0&+U-Ww-R
zXZo-I_xF#ZN2A~WI-Op>Q(*f3hX1y^e>`!z#6A7x{Nwt1_xBx}e&^|?=s88tKK(k}
z{bTE%En#n$?D}%;ozspzb%h`Qxy9u^v=`HSdu+=5`d$C79=)c+7=KS|cl47@F>&^d
z*Yh7+ADVUcwD!j6Ed@?_^Wt(#KUfQj{n0Ex7x~hxe($YScOOj`Fq<E{a&D>9%CpPE
zqqiF$Y&q-vBV(fV+NaO-KM2eJI{Wz7Pv=)!I^Fl~Y`A}+;oE7wik+2B$^qPE2X@t7
z+v7d=WLiw-mY`QAvQ^)mYqZL*Y5!Qcur~Ydp2k0uc^kKWWm=xLP<QvwM_JlsaUBny
zq|KkEIOA+_&EbRfQ$!2TJ!vyFnK<pp;e9ncuUC{`;yNAgq5afkogPo@!EHBu-!ir(
zx7^Fz{`2V6JDmB4pT+)IxTf%QT6t@<&Qrb<kIlue+gH>V&poy>A$^|t>#POEskyiK
zZ~byFeSO(t?X=1Qwaacf4+}TvZ8W^DyJuqE^Mo_}AD7>iTxnLX_J}j+(5AgI?~Hw~
z>g`x}q5Wdn@<f}jn$=TtA9KG+y16rLcE0o^!%J@`g#65V$k0?i>ls6==KCLFw(EXR
z@-Y43wDrU1%R3~w|Fqn6;O2TJ{mk}(*2~tdN6V_Y>)TCZTs*2Xre3I&zPV_FXX13P
z1K*22A6&L4@paoQ?d_AR0_#2>6y@XRJXV;NetOgSwULLf|CoI0t#u9KG1kwE-pw&N
zz`3pO_|bO{LSON1Tk6HIO=x@Sul27E&sJYq9nm%2`Q2}wyp0ps%Ayak^l;6#y}fq!
z^2KitmAN(q-o7z+nwOBg)P#mZ<!hGyIagtP@1VzqkH77wr@pjYmv{B^DZieR2~uJ+
z9ILJCMAK6eXZ9MbSLEb9rFqqOiD=iiUv?@BeOvDDTi{^Jy0C(~((YE?4W@fxtY0H@
zd=4L5C(##|(3}$V)qBp;+pJTsX>R+Sx-|S+v?{xsReyWZ&JzLNw+!=M^(P*j!lLPw
z-^Q@2c+us!NB7U3)6wwrJWwrNdU;dBhIARjxc6W7PW@mhv|@_f^OjnvmCxs_Wafxi
zd%dZ_?Wtw@v;Fo9X72mCE@+{n=mp(BLV}WiPEWo0^Js+V{anTqn?7&w(AwX<B%4KN
z7ytVGsyYAj^9oq^FfTI{-g~O0=;__%p}Xu(-d+^l_WXp$qIHGSZ=X18u~4yDshstO
zbNc5K)2Hn>R*QP6Gg(FN49nM#<!yIrKQHl;iSfS?E}G+=^wj!T4gZAh0)d6{-&S=S
zUOxZj*@LTh#B+|z9o_WVn$>6j`Nv=9mF#18y7aHkld+n4lQD0r?c9}tPwuAo?()`{
z`qtx_?*xAzW1}BJ;%q9fe*G41RrNc?<jp*P7sH1Oug}&$yf5C8yL5HxL!(yH539^h
ze@oWzlv9y?J4<kj$7zN}=4}?9mdC&DJ?T~Q@WInI&$B$<2Sa9X{amy6a#hyhTet2n
zY19w?_rz<PL7cK>V4RYy-^EF0j1xaIiq4(bW|sGStGz<L>4iNTg)3jb@^5k4xiz?C
zsTsqKyDdUD+^*eSeL3;U!3wsCbFV4bE}iQXoEw;PpLzW>$$}s)Yr7B&u4C6;O0RW)
z#TLyxS$iMX?1H}+kA_LIewx^_P50Rw>x{1%8%k0YCdeGovoJj#ea!uH>WQGkrtW5+
z942^eDoyy6u|xg$u9b&dBOHpJmO3olz|B^2G($C}ZtbM|8(bsGF8oR@yx+RggW*Tf
zjy)Q0Pkq`aZ)oFD#wl&lHiv(G3WF!pq9?^^*A8Bh^)nK1DrR_T`~1uFsqeHl^0L3@
zIk%?gd3>R(NyjS}*M?v{Spf|N`6}rfff~G1HW+_twiDW5c}er>@efC1&GP?qY_xo%
zRui`6`fUr-^tm%PiYNDZ$;X#oNK)kIZ5Fd<wQ66>pvV!jP$bEmGmN#vVTSm{>19=1
z4s44QdHKwye^?ZnVs6~I`M+67=aUB(3pbrF_`(;zF`0Sc=N1WrsaL#ai0Lx3o%4%0
z>Y08fBst;G6(6B(3L^34`kz)cYn@-sH^FXgl~9Y-f~a|1r}pH9?r=TwaLHBX!wZ$#
zY@20nb{O=gp0LUHpCs>jUg4mi>xT9Ak`)qGfktWUKO<tw_gs9lEU0%=>f&45qqkP5
zEblDcBD7)0l#VWkl!iUeR=h|pUFthk?2uXd&A20yOcT}X9=<RLv_2=0(YW70O<@_A
z{F*;mPjnfV#XULFQ(qNvC3}L=a&EIp50ww59WvT@n&H98tp(lLv)z`2CVzW5m&56q
zW9{nd-Ql9CUv|BDSFlKdWe3}@!0%=2AIzRE`ig&V@p1v-nJEpcPa1Lu+-ej_X42ef
z9d!CL56735?Z@7=HT%V!?<`pHu;aYUo12fUrV9&fWDoeYTYCfJ8lz<YWYwH^t+)Dh
zf2`$Cnc*JdlIOyvxkgUwa6VU1hJ&R>LVKE|BA3KY|Bj{$>CGBUC)BksR0_t*rLAl5
zu-Z|)SRnKDaR%QDPyE01>L{?ETD8f~Zrx!S?&}X5GUV<xMuo{T9xZTCKF=||GRAe?
ztpMffa(jvSH3^e~lUb}TYz|xgBS1uO<zuc7g;ys83-g7Qs~^~vS|)D1&1$!I<!0ll
z=9inaSl&7KXdGq?eRIUf{PUFW3Bi6<+{){vs!p16=&m%|uM>AT`j#NWB8B-0hqvaN
zCfrd|Jj^h2;Ty)JaE2FR4Z+Tahrg+<*SUQpJ#?>O^Y7H0U=H(Z>odePFBF)qc$8{h
z$57a%JMaFX1sBiGm}4oED)3CQPn99RFz>Fv`iVKR9(>*x=0-6@^KHnKG5<S_S3#0T
zkF8iFA?oe4;0NnB6@@F8Gap*msCvq<o4u%D>1tNa<G&vWKfG}3{GE-CbCRUlZ%sZX
zIy-&e`5a@%txsdus`330%_+8WDPuQGkS<GqQ)Arrum9S;H3z=upFhHo&pY?PDJBiW
ztVh%KWY$>7Uc2g2cjUvS!gG_<+03(BpLA&jD*V`c)ko&rEXn;dk7|fI2(Nx?C_N)&
zmcsA%E4~^YQ@y&e?DWd256_xaZmzM>ezHlvX~CO}+{0z38rBK*`j;%t{dFTkRJA91
zq7^U0lMC*fMIu_6TFi~hF70+Zp;C0w@}Q#PrY5&-7iWL}{?}~Hn~TS`N*`SsCHZu!
z7f;@--nze2lYgmgzmTIMEal6?CB?i(a8vz6kA<iDCC)YKc1E4!n)R_|-=h}C_nQ~w
zs&^FyuUvlbhUKfN`x3vsGI(X0_mH(J=VAL3qr^#K6RI=L+_{~yVb!s-8~j%spT;9r
zX;9QAw)%NfRH@cIeTUTEC4Kv{?x*D4d87Q(>V8|-a|OG17dHR-zOgvOX!!$0)(u;B
z%-LxA`A|6HwPT*!yc+8a=1Nax3|(iG-O_zJ?%17rEwR4_1*h)tBwN}EZGPiB&H0l;
zuDo8o@u8$N11();iQhg|PbWHexHx$AryAYAbLqKZ{m~i!Bloas+^916Z5z)x?_Pm`
z)XR(*<>%YZoG>%E87$d*s_{xUr+qZ@Cy}0$IrF1TH_v^w#**9LC#1ho;^VT)-Mwmo
zh2{C?1rtkorD9pL3ojpgmnYl%?ekuzFONma%fC!8kC*w()#y{hyZ(a9ir%?Si59OK
z{W&I=FsR(=PLJa(QJV97X1w~+xi9D1yQv#a&WZdQ;Jm}i?WTPHLH&NqjXKR6|0kzq
z74OWvV9oLDpgU{gzNocp{R87tluV~Q%sn#inSj*sqx)Vs{ri%3UgyShLv6Q>79S6&
z^~PjQYxUgG;%S?ao3}FTRK->%xs&1Y57Q?%7aCuSNe&hdRko^0G;BL~NMh%-(;wGL
zJeT^jp<#xm$<{RXN7E#?9hNzAUTKDl@Q)qaPH*@uCp(?%o7Npq^%N@$Uv&w|&)@o9
zvs^Qo(D<e%y8J_;mfYOi+Zz>p8m^@un|yL*`m<%P6aSZ;T%F}H{bZ+T&ztCkn_e}|
z^B=0b_4|}^qv@J@#HuB;&lgqCNIaU^Iq`<B_&)<v*RG^V9Su!Qmf!B}c3RTXw|utr
zi{OWw+*)2HTu4wjx$8Ffc7apDk$=|tPKzxG31^G!u5NJpaLDMc3-1jFkKJkU+oG*h
z*Hvtg4qwT)ajD+Xqih0g?0=q%956k*ZQXa*$<DI_mSy|i-Z(i~^;^;*Kbi8^eLG~c
zK21NojZZa*KdAWk9)&Y~p8uTI`hE7^AGKDS%kET2i&%>A3|Y12heFLh49$gq)RK*2
z<Q<gGmB<P3E^v`PZ$6Fp^?IIV_uhmr3purL>BV2E@3w06C#U7~WpCNI^rt2B7q{K6
z8+CSVT;kZ<w6jqCVqV!B`QjUE=lE}t(r-WOmn^H*G56}e*xyGwlBchA6R8WD!jX|H
zpc?h_?G)#y7X|8PM~hGIQ{TUdt*uW{?xDQvq3aCl%bqEp=aRNA?dZFHE<oVuMe7`~
ziW)Bi4Q`9PBlYJL%N=)m%6#8B>sEx<F{^34MvM0*?dlU^OJ1SD{W2%m`lx18`J6ag
zQ}#nkYq%L$?Mw=ORqnsryvOI2w(!>u6OVK4Pgl5iq%vOP&E304_Eg;ro97#Z?lgYa
zvHg~u6Fc$J@x|?|v-P{Uf5`U<F7AHzuyc=?#V&0|J@e20n;iXP5?{o!{!!yqZxCkU
ziaHRdFFfP0U|bOkr*YDzH!t5XwY#RYvi&@;V1cIg@(0>nzNH)uNz3Oxzwo-EZ$hEv
zZ6B8vLWwoSMhmM1=J$IvZ2Y!bOHJa2n;3HgTSLvhLo1@@TIQ$kp0VUuOX})b42SBj
zJapl{v0L49!M1#!b(JSLe2Q<%RR6f;<aR~W;CEo_L5(Tu?W#)~+MihYf3|xinrnI5
zK)EI<<7};j>B4nC45o1ZxH}`z{zt-sJN)ze4!Qo^{^_dD!s|x*&&vb(8Sm?#PIP2F
zea2oo>5$<`&lcgu{~j@MB^s^GI=;8_LR;*X{a38T?f*X4=GM5uwf(2u&ckOa7IX=n
z)!Y8mnr+97d5;v2T=NKFbeL&3;Zb{&(3I;Z6wgJ=%KpE3-{_rZr*d%1QJLp1i?&&E
z9QpGi`QeqD#T?R3%Y`q<g>9OcT<*~k+pcbq7&^PUVb`6#Q;YKWUADeHd0Xa-mxNl!
z<DI&9o}GH(>(>{%>HNMP$x{YfUfNB%lYe=pl*JJlD=x?7JFmDcb~sg(@gn>M|6)lA
z8@aZh6&{Ztha8;wG`mHaqx1#K#%8-!_qP`onZMh8Pw<gTvi19Q4zbc!T}5a4Hf*om
z@TYHUL*bO;_u4cLtk}K2=MT@tb6zp6iW_&FoT=C)!(pN87I@!IYRQC&OKyHUBb4>R
zMr_Zmw8-442ZY^XxaJ-T{n!$m`e9~Nf0DE4+1oNz&nA^tu<Z+q+9nla+EY{fsc0{Q
z$CTF}8c(*%9oTc`m&59%%I7i`rfgTXeY@G~QSi1KIy(0Ec&C&ltXfr5GU=Br^QRlr
zczkYY&P%vH;}r9{N4abJwfw|pEY%O>Ynj_JBm88R$&&EiL%I*AmYk^wTAOgb$u3!O
zI^TxGZG6$8X2IKB*S|V{qbYvULC=j}({4_>e(Fbo$Ek~Acc(O8G`35wHjqoP-1uOb
zig>^GtdkPoW3?DfH>Cfy%VuFOcjpVX?0&iE=FYv$e8nlrc{1z7vRYgCetzassDH1O
z;Be9`JxOAkeD?0d75wI&Rug{SnLS~V3M0c+@rxTc=I#t;I23qm#h<^0vEODlv0CUG
z%-6jA<o2WO$2TVU38~*J$?H<}+>!XqtE_+GdDbm!qSNwgZIan54th_uJ+5%+hx4}L
zxt!;=Pq4m~@m`+q!ub}33D0@wwUn)Wd_bZz?8p?3-q^CLf6w(AwtR9>o^j~Glb+UO
zuC7Zpr;9u!N>5G<*l3`tqx<yK)q8;g=h!AU<hq*{a@MT-+UzqgyqiVg8K=h69|Fgh
zeT-PPwtN4UgKtV5nct~oF?~qwX6O8U>Z}b{pmd0J`_p%(=^SkLT9jI(E$vkvW<*+F
zxPPZp($zrj)r$K4xnlk2ayqw$Y1_CgT^wWFV3$?uA>5zxBcj`2=e2fg&82IXOGjug
zc-wmU>>iKcgO84?dK4V5TPvAdac0ZSvS%L;FK8~bY<DuRs_H0Fi{spCb^Xm$8`V|(
zuS=^!;(vWSxol#6FW-~szB|8s^g9iT1rGK<jp(_t@{n(~Ql~}DL`!$iTg{eUb5hS)
zY`pcx=}U};&9Cb(KkYu1s=FZj;#I4|H!OZK?p)q_wJ>RO&CESpu6?`M{X@%b!ZZe7
ziDPBkPrg01!swRp6Sr+QKV?3@x7=h&<NZh(Rr}|5=M{d>bZ6t_^VSW%cy))%@Aos=
zA~Kb?7(TNQI(qEJ_6tjxdxVwQmR(oW`Eh*G;n{!0_I1v9*i@O}w&L2$Lxxj>ORg;t
zRMDvLv)D3i@jS^@Yn`L_IcBeZT(@JFw%39E{LF>^LAN?y&zP;2ms;pJv*^p^&rYg`
zpMCF_s5DfbUi#b9bsO`_JZbmeg<rM{{n@zl8cWx4(K9y>%}<qbe>mSSWKW&bGtNVP
zoZ;tc_;wT?@Lij+z{X~`-KSWVavPnETP7HA_uP8BYZd$63EPf&oS!RuUpJSxmg#bc
z#r5Zh{^o8~%br#AFl0LOr<^73zt+5To6c0ZRCw=2%gm+f6LwiyWFAkcIJDEV=*<zm
z;Jhi_Moj&entI+p44I_VE3fhSHHVs?*E^px6aHK^%oR+RK6Iw5V$zw%amBkN9?E)c
zOTM>t>cSb{c9}Z*aq2xYY5I6^Q=y*t`iBnBHnYoRot=2jaYAUIvm;v_`->;rFKqhi
z_}VQ@_R;-we2<m)asT&PeX;tt+Q;{=7sq+!c(bXeu5Mx8C274mM^f40YlQSFW(jv8
zzF$4zN{=2hzSmrH^vUhXO0PSzmRL=hbi=u8s@r?k(^^wksimm&s|juH{QBqGrtEjm
zeGJ{}Wpqk6%<5w5x${MLmZtTtDH9qaqh4M<cv<=0BITLv`ioAtrADg8PjS`z5d2)z
zJN(3^hKEnWWq1M|1^o9Fd@_i<>T7Ft_>6htk-*G^r|)@kjIK6t@Ei)Bxp#g%>+a~5
zSNjYjbYkRN1DNeY9`8N7`o4(&BA!KQ#TQtW681-%WqE5%4+x%OI;-f(W}o!-Mfp-M
z8KzCY(YWEYv!~Fk4gY3%FTeVJO0Q`rgH6uN4y(DGOlkamzSe4-8s+{CEb(UwHk`R6
zr`#X;%2zU(Rr2wHfW{q%ZC(a$XxwCSzT0d`$CBslGfzL<(3`<$^t|WG%Kk~0wC;M9
zEZOlVmq#<h>&BrktVa}rch7zHs7>3t?CSGR8Cg#sKi;{VeV5g%Z_lgBeN1#-ScF(T
z-#umb*+=ecemhH_>55hTGG+0ZFGVNkEl~4nHLP9Mc|mBG@SI$Axn8|h-s<K*4xOLL
zru~+A)*Q|45vk7|5@wzI_G|G8Iqm0xwjB3^13!t(SDVgz`k-yI_{GhF$4pu8ED&Ir
znkM|>&~EX`JkRGBUR@|*FUJ(6VtlY&#DM$i^K6xKrzdJY{9v`3xyX85@?ur1_o3MZ
zyc?a^ymA)axGSaes_wAwl-iX`Zp*J&W0YO8@d)SfLbbj{6}gR8j`JC&SFm_}j<7OI
zed1zm<ZI<OPa=(Rjf&$R9?x>l1stl{P6uRKZ6+0O*{JuQ`(UTprfaNEHkC?U^S`xO
zeZxUlj>z<L#lI%2KW=FJ(_uQZ`uZl(tef!$#Z!(SZslz@bbq>z<3`r@Ww#_v&P6O`
zF>jb+&3CiqBSVGTu~j|C?$~ZLJ9PVs!J4dxGxqX)$v(Jj-jYq9bT;i<CwWcdTW|l=
z@Qv$!X*WN7cr8g+!Jy6{_UV;dC)iFu*Za5S@#==(CbO9jzy7^bT%x=6?3$Ogc3uj1
zTKreOVc*lZ<Z4PtNL^;OLXcRQiBj>$ttAaNOm}jbAO8D{#n94O$JFdwnq}OhLetvt
z<KCw4f(#QQ%=YtS$3-VT+G{Yw<JDQk`>xKsDN}pTfAOCnCUt|Mrg6f#FZb{4UmwFX
z`?Yz_>Bp(o<@bsLJ{s&QIoNy9DLgUn^piCYv@9gItYq42Jtuu5%iC85)?G{Nw(M`>
zI=s2{YsNiJ*C!sEkL>v|`H6xD@6lHi_6TleJT>#_^|aS(Sv7m!Ee+WrSKghzb>bv*
z-mq7%Rj%2HH0(e1+HS|*P1f4=>%3LdReCect2TAsy}9p4EpM#xk6TBzn|({dmEAud
z*;2*d)uZl`ZrEB;ImM7YuhA<!)pVQg(#&kWCA*R?b>0n1+h=X8*RgZ4!oq6tm|aD$
z=ZVT+^{Y6%L}3F%*r5tvzD|qk)hq`r^)~I3Q1^Q)eP2)Z&qsER_BexBu@Id_RX&rR
zI$!YW7k+8zDb?DtJ@}!o`|h(g-+L|jUL5dxA;bQ1wV`K&tl}@L$L#&t7Nvf!nhft(
zX9Zc@XVni_&?$d@vGnD+*<8Bv@;`TO-QcEdUva|4#QoE~3C?OZo7z~FL*oy=m)>EZ
zXmo0BQ(^V8yibWar-Y*JuASLppqhMi%kGK~HPc!zM|Ws8?%JuKaVk`=viN1%)169n
zk-uw8mTZ20bLoDW-sM|^{rMv|B+s$5Tc2xmhEZ<L<Ck}unco;_{|lKjXWGquKHvL&
z&m>zupL=+k*Dm?<{WGcqFUPJwUeo>Dihc3n_s?DygwG7uOpkhf@1mn!$!xvcqc#r@
zu3dYl+vGfF++^P3_cFGvCyZrZmw4wS*R8vBcGk*{jHeskmgWB6Ke^dSb5nBCu~e`9
zv-1*Hc^?t}8(`GvX~Q{-@A%PgR_dZDd#5CbZT3q4@w7r`EpO|ko0C&Nf7af$h_^u9
zU*y#Gu7iEvC36pI#3=R6kB$HH@6lxMRG$Ub^966mM)^Js-Lko&fir(%-S4^G+wc8+
z`!s$2zN)H^*Q%#~dbBqF(f{h-<@SyB_kO;7x?QjC+c{OUl(Lnw>Uvk1Y#QG-OgJ)S
zbMdW<=cX?E(9W{8^Lk;XG|#{4<%XXACsTt~TG(?3z1;KDH}Cwri-EiBq9;!OETnI;
zNh@yt-?kgmS8^SBu<W^fyypTV^*hh@cNfpDY}oPThkT9W4<^CHRSF9x7`|9Hq1Dfb
zc}<wow4jp=?5lrsre03?`bb~bEhM)i;z;z5{?j(Dzh2CrV7h1eJSS<k_mdkr8Ea?9
zgfOg#j(li--}%{<gk^o~Q|E3xp*rK%tSn{87WsKXrx%`8U{yWz&|l#9PQ|MxA=f7V
z@L{u@+3(5Tx4mgo=GxtlJ8qx<zTr!^=)q@-hb=x&P>r=_WHVc!?P56V)0xm(vpK5&
zjX8uxebyY=VthJD_)@7?$-K9$>jOWBEO&i6QFUX>{1;OkbxzjSJU8!9m{81L=Pxe2
z_WprH^N#A*4Zjop8w^Bq`RZ7T_x|g+XZq*vuN^ZhcUmlbsd@RS=4M-)%Qs{C)?b@d
zr*cbJ;djouC524vLF()l2K`_3WM*h}n#gcG>pWTg^vCU=atY_v|CFzoKXq!7S)J%n
zX05_MA7?40n5uX>pA=<%@p}LJwksD;i}~j+n!Zu;()u6AazD>%N?CXM-hLsEX)8)p
zk3S5{n%jI;d&?(wYpwM%8Bf1FlzXMIHA(yAeCs=+?fPbyZkUDdb7TAeZ^ps>_9-87
z)dZ%_X#5(*^O#xr@%uB=GB2EKbnVzvaciDz{M+A(eas;dZPqVWuxo}mMlQZEackhI
zt$a+`*Z=a|yl&-VyCcnYvr^v1?k5sY)!($1v@g1#6DIHYiD^T7U8Ufx^Zz&RnPK%c
zS=_rIKkmtb++D3Y(G3e*4sR>!ywtJp7qeESqW8xiQ%!nX8h)^L9N)Rebi>Jn!V?=O
zh;MBEHe2iI?un(__bwNldhEKgR!5ep((0!X?_1tH&a!K|o1y4uZlq&hYIiPKR_0Q7
z){?MW=l}oh61v?QIQz8r9%a5|=CMVGjBG6KByAUCaa=u1E9dD^cgdgp$&#M^lb1&H
zXr>-G!pSFkd#Tu~81DQe&(ccvlM^OQi<xk$(Kd6D;@92U?+=CubQylj&*=QRXu|D-
z-?j+xNa^Xd#l*??*{&=~zn5Y5zC6tRX77z<FD9Q|f86?a`;Q&dMI<gPQrn`&Uomgj
zE!LMcQcGf^)|u!giEKD<F3G9lr>RQJ<TdTNpTA1>bau1zBp;e#Saaz~@iC4+U$4A5
z_H=5dl=cDn$AXM&t2r-wKU4m^JVbAy_KDOFPqqdm2qfQm;&-q6j>x>=9l^oE(_X(=
z{z2x2dB7*9M?3QqcAnjST;)r@^TP(#pjTU_R`+HuUv_EB`TVSBn_u$$db2r@ds&S}
z^AEe<ITPMFcW&9DlK5KmbGq<a-B#Yd%Q{s{8*eT165+9tyZOp0LQ=(OSv~8Tb@M*H
zm6sMspCoxpV)kF{S0Cm-p8xL7p)QMy3nhHZ<?kw;SY<CE{ER>C#64B*yXVs1U2CiP
z-{m{ag8S>*sE^&zw<Z;rXQsyP$h+$GNqWwuQ%|Ort_*1Q^X@wSG^fi{?)$cn9BvkT
z3~lW@>w@AXUO6Qv)jaY&rJphDo#>iFuT0mkPw4Dp=eqW6(u(iP6Edf)Uzt#=!SGT#
zbi*?d)@+jw`$B!LYY7ZDYMHsNWjOv#h`By@ePZvU&vm-I(z8!}{<q6?&9)i0{{D|W
zd`e}CZ2GRw-9PgB-adYp=HuTbmGMq5?q(}DpG?c_O-r=jowt-TJ-_f`+LnZ6+S3F%
zFSo|K>;LSn)PK2e_s?Br?{tM1sTXO-p838o|Jq0MOV=(%uW4Kuob}4od&j|Mm#Z&B
zeeY+S^Lp&?c*>Ek^<EtoX}3kVZ#1}V=$-%Oy6XFm-M7@t-G3W+E!uUQoAteA=PKz7
zMKfo<wn_`yI5EXgyW)f7@%}}DdVwkX_hr0s3+d^XsBpim{oC@&!qQ0#Ha7gz;Jv-p
zcymR_c101MTW(IBGsO<?S!38D9ne+uT=0};>fCsBe*x|N)$KEz&YZsY`ur5`ghNe+
zGj~5>@+lTkIrDSgCoU`bcqL(OrgMv=O(vZ<-<>Y-oo98y>Qu&?i;^F)|0*)MYpC|o
z={9Sbuvvgo*?!H$CsNG+xotKxZSHuj&t)#X=EU#05(Z&xmuDNO@wzQZieEmVFkn(`
ziFdtONKYO2YPKV5Zye?~R9AiRCgQE^;)OdqmKHnRRSvN@-n?WgTOEgvQ=ev4WvZ9P
z-g6&=UohP(cH4NPwvykt??c(gPn>#B+c)ZQ-3y#3pQs(?;kbR<gV=!XMI!0#uDKij
z1!Vr(tle73FP_ciwM(R6+Vh61IeQZ%8RlORi@(a!c<aaW@Cw%5i)I@YO*VfWdDNvT
zWP<+s8@E5OPFVi!ZOR78Y*GJohfmC2Tzp4@|9$qKxbI-!;Vl<0J$$VFbm9xqXZ?#d
z+r<8D=?i$tULA5-wkbI0=*^C{*;9@S2QQ!EW^EdL)YMRPo?V`m=i-3b{B~>m^H1Na
zEnKQ8?7rNSVb+uT_A<P0H_te$x+27)XvLPs`XkZjleJi$Ej#UaRZ#SU?pqascE9cg
zD_^+2>v*-7L6_ZHA#`C_6U+XU`z0**I?PSl$`*D^XX>8{?^j1N1^e9}HHMy1JS8>n
z+N@;_lU4>ae#tb6Xt2B-;AMNP^731qr;DF|ZEb(L+Q#toJi~RhQm3yx`1yG{vtPgc
zgyeZV|GIqAOxJP8*PXd%l2QC5^fk-TfV3Jvm35yR)ZU(b5|r3=;!sq-=bEze=!o~C
z&(A2WvrCtmu6Fv?N*&{@kEyp8eck;aim}2&Un3xA*;TIkWM-pD{y%;_HJvm`mG!^g
zzv&BmYo-|O6${?}C^GVOZDQ87Yo{j`q}SI^<M3L#mf_Fw<ss#-Tx}xx(vC8Ibh?ww
zw`YP%YOLL?c6a{kr~L{pAD+sjS;e7lr6#3#W9Qp*_sjZ2iu*R}O!l4Y>=MR(ZAS9y
z(Cr_#Df9G~uKv)|_`O6i%B`_PYd(KX_MBy}x)$B|_TIR#Jh&yZwXS6UgvF0KL$4We
zN+0h!e*e|=^{?j7zcPQK)?8lKx*ZdX-m!%8d%c-7`?&b?8AmS6?UQT_`#8s;^J&%>
z2DQXH?SHS9{#^BCk^yJmM+-H>yuC@<KV)6guFi7i*ksD>!*b)nFD~Oi7WD-;mVaL6
z`RmB7ONVB*%~YOn@l8VY)bl;7C7Bbd+*+l6-ks-{8OCnXwdnEUXihdIxi57Bs=RR;
z%TC>Q&D>kjV7|_#T4evW1-E9NmK0MfH8J{iBJT2xz{WHwkH^KAFWt7O?Cp~(Ts|$W
zj?sGK_YaqNKCv!5*lxCqZQdg0ePNewF8jV{EB7%IBcZTU2X_g^KjIZm&|SIl#-ZN}
zTVDCB-YB?bQX9+Cea~*x?3P*A`_jhwJ=+9DS-Y@^dZEx|_c*o1Cb1VjbEsmvnyX{i
zTFM`~=IL9pEln?XxCuH`-ktZzIaj1{%AXJRFLYLNT7Fzq{!#bkJ}=hOGmK}t>{IEz
z&v0^GtzWz68kzVXt8=`TWF;k+$sBu?lw7g(*2|3>jo(dJqTT5I@WVf^m-}9X?NPIu
zyLanHzMTq5Gx_#Bys~q$-oB-m^WERu+OAJv2^BSAKXquSR@LR;?3a88OYZDi8ELR5
zbZR`4xW8QVu6uj**Tk>i5*L55L$S-`?6Y_Kq{9~M(Q~$Ypm%EG<9C-H6dkB7tNpg>
zPKL_!ZxV^SE<RQ?d-igH?C0?H@1^F%O8gC#J^1nS!j<Q(<N2IR4c<ISxIOp%{nuT>
z7MY!EPfcyuIKj^-`F+7uzAUc^TwmY(|1(RyO!D!ntdd<B*77V_r)`%;&&=DkxFmvS
zspaFY8v<)*eRRBHA3t^1zKOrrUdrv&+SPw>e!#`Dh-053PTrA!=Db}i&T+q1h+)=O
zM_aAy*BDML-S&EE!H%_`otCNJ-O#Ij>u#*W^uQC3pO#k0&V8ACeuwo%-<zLKcy7%<
zA|3Wa?NV0py_y*R&udn%zox$ZxVz=<<lQfSP5f!9`?9RR@?y#=mvv_Hy{lIGc)b>w
z^Y`!3|BSz7tsi2n@q(<}0<ZBhGcbXjkY;9Vig7}knXwr$C!}4ijhw7<yl|P%Z?mSG
z`_{bOx9v-a>Ox`3a<<G3TUj{+Crq5e(&w^S^ryiLwnn8aJ{f1h)qg*}mUC~bUgDlw
z>fb!aRHD-@G%O|U$J>89k6$<cyd*E}&+<RNe|D?O*GT2<`|<5$&1d5u_r?A9)h)Wj
zYW_6-eEgl7FCzM%%nQ5Xs;fVLDfj=h{%UV=RnRXr3v=DmXD^HU|NFb3Z~F)NK+W=k
z*Yo$+{_6M7%Z>T)DEjTP6-j$4tJtUiKOQ*yB+F{P^`EY8-rSzwx4mvtcPwALY<}<d
z$%fo9mDc`=^Gs`Me!W|v{(Mn*yZ*zjqkewBng15dThvz=$v6M-_k+HhFSqyiZLj)t
zZe{A;=C1bim-|i&@#$Y)KkdQUhtWSo>*V?V&)na4QKqhH%j8dHGY-G}8Tk67RPIC0
ztxea9wC<ifyTkKo?4|y=P40n{zx(|>{QJk1yiMEg?TelDuD;!$w>+a?D8czO6WhAl
zd;e;#mf5ULm=d<*(698pGcUeY)61OPAhh|?#}9uC11A@Lx#aP_TIuyP>FUiBjywL+
zGG)yF^XKH{{YyjE-j=ty6y$ICz;A+YWogI(F+;W*v&W_ZT;GqhSj>!+J(r@r|8W2F
z%*MTHyT3{5WH;z-UU>W8vbzia`RLbk@fmQhd0?dft8!zj_~lvizq=f+p2q(1-n&Z=
zPrJ2!`)&UAaB-@%v^J;DBPnKc_3w)33#<2Ro&4=osFaoMY_DVbvpgp8=3lDZo@ey$
zN3;LdxE0eHct4%)*`?I^>-~qY?ozcUt9N>R{JQDB%qofQ?pc|Jg&V)V@_#5er94bB
z^I`+Pf&S}D?kW@JI#n8fv+5LV5dX?E=S%yM)!ji_FQxjEb~DuGo#l}+sNN;-p|JPB
zT%D)8rYqh2f8$#1-E~WS{N&nSaI36gb7C!ha9wKgrMZqSfwLT+alEd*mr}Z0r|#Aa
zo7a9fqSW5Rn_T^5|Bxv+*CV7ccZSJ?htI-Z{&Bx`f4Pfmv1m^3Y!jQ0n~w$lG~3Ls
zsNesvM=NJ{#;;Ew-iVo1lucamBYa23oI5h@RrYsHS`Jsgy}XI{fc~4i4}(k@L-*%B
zsZ@UTw(jtUW$Me`J`7CXAz}AVY&x&7&4cT{p9M2*4V?~NQ!{oyvbWYhWxM9;%i^!+
z`%c|{|Ia&)MM7&fUU3jGdoZcKJIGj@UxZawVaD_HNtJnA4-6h^TLi3o$Rz#1ENYX}
zvtvt)9aSIqNpjnlww=2EdE4K&Z||9W%(5=BtDm15_|=T<8mn~TSBE`Tndd~FrT9MD
z9<b<2sN>Onc_CA;<|wmG_Y}E*Zqxj4KF7^}?mMV+gzFFAb*Gb@)ytM|zZ$vsro>MD
zG|?IIOF1{5tlN9fV@m25RVLrMsi9LAG5zj|`u^+2^4{Mex<)I0W?p;tp+4};fsm~8
z;SJnLyB_Ruzf+U@eeTicpIai%ub8^+)ZtrwH9P*f1lPYgqqpLa&t1);kDJwIr$^+n
z^|JN<X?-I5<(lTp$vQ{%&UtUW?^$M?+5OUpE!IZB-yldW;HZm>cUk0o^I1i$F<V!>
zxmUDT;KJ`NyVtDpi_QHmaHl*}ntL_FMm)1~)wL$w_UvwMi9O3^O^Nxvt58tz>gNW5
zXumb<693)ZRlo7`^6T1dZQJ)<5;fZOv1Y}EebW1;e0#yfZS_FTiYeve+EA93DFWsa
zw$DT=+B4fSx{JHMy|^*+aQ9-SOU?ZoOHXs(y)^YfO)kr_me?OxHWw?*)D(NbHT%T|
z;fFl0HXf8dGkNY*neIDN#TV>)UZ->R>XEfvk^Xnq@!3x*d2(q@iOVES6EPi${W*_{
zS?peG_Q;xEczl^@^}i1fXZC%#v26J})@e`0Pi(AETQbiy@j`8B(dy}{J5`o%TPrTH
z(Ly9sefkdh|Ha?=O5Gm%Ugx~?s&zicSFU_3_l!0<xg8R6bDHW8MY}2Nd(GpZShAQe
zFhBOhEPEeCZ8pJMoVVX!+avJrjq%Cn%JTEB|2Q*o?i~TIql%tqc%%%fB5k)<C%G{;
zNB@|hQS0>S{EX@R`W$8cfe-&_KM1+9H}1sC1$i0#7b5%&KB%OBTP9f4JAKO<x1|cp
zZmG%dd={hW<n!xy!CLNw%62B*+n;}Bep^51bNk&L-~S4Q-Z+?ivP~#1PCxe6LAL+T
zO{Qud;HeXkdvlDxe^tesJwAG`4la6fUd?3=cfRO_6whmipM~p$yIFScPF(lp@9Se5
z*Kdw2yA|+AxNE+Di|Brhh5MtP)HIy&dVX)>iD`X5E-m*nSoJ40y}y&;V#3wOS7se=
zyVkg7-Og8~y3!AAuZqsvCwzS2$$GONe_7R5iZwp@-tkUdCFZ2pzP#$|95s_<*BA3$
zp0m8mMdk2p+tbk{ef@gB<-T($Kd}(#Ts1{<)drW~t-n<6ty=4U>Gqv_nx6O5mmhIe
zw@_`Zb?Cb?p^pC=FLU^U?!WAD+os$!I_8|9YW=Ro(dcr6c=?K-bFyvTOkpu9lisS@
zw1z9m<zk%Ul^XtF0n6Crmxo#=JgM|Bo5J=@CERtzr>9y8_swH3nRTwakUgWM``gVB
z-q)L+UD$PCldeMRZ<V)~#GZDZk^1z;%`5(rtygEeK$v*Y#iifoG{h?Vzqz7TwX%vu
zc~8dQhgU2*)h@7eWgI@m-06CAW?1UiFFPa*COo)vsNY0Q-^l;!9&PSVuk<cxsOBqu
ze*5o6MDvE2I!SrGlNz<Yn=<X2)cX@RB`Er-CW_9DX=B{_Gw*7G35Q_TLH6*(EnUGJ
zdWCz;s+eZp^Gy}(+#~%oH2aLB-O(G;WgCKhU)Ks-nqHg2<NZCi%OG;<;iVf)yVKV(
z?ORv0BuRbN7wcnNqs~8gtX1{Bc6w9Fbcc%#KUZrunBLca|L7H)hf@0WR|!Rur@Ax4
z4(`-G=Dd?Vt2;=NHC#}8al$S~`5u|Zq_jq5VG9MxwXL6`<p0HelAqD3_+{zA2U*%P
z`aDIMomW`()o<K#LF?whK#hZYS9JYy>UuY8xtm6*(z|$Fg}|vd+cW0|$7_`auHij=
z?yhLs_cp;-C2qO<Tt2LboHt`>qDu1lq`-jFa>6%ar3`8%+H9t6vghlSH{zJJ(bv^h
zF#qwxCnd4IhxRfX#_XN?fc4MsZ9jr8eK$SpR`KA>so03#Cg0p!|37Glxd@-pQndIg
zHv95KU#BfsRCGRXk?KFcah=Tbn@iVpZT_$=<B+5E*#ln_ehCUP{bG5u*|p3h(8$Qa
zKQ`Qjm$AA_D|Ea1Ec5z9Zf#dLXI^LsEL#+IYrd%crNCYv8S6<$E0tT>wg{+96R)$D
zEp`=q)VK9mUi#eo@2<Ot2%2u5cKG?d=~-*`|E!xDe{n<f)cl`*OZ~K-Jx`qW*k#>;
zwd|rB3-XR#TG>CD`RNyib`_Nnj*8`vJ!CGLw}^7A?5xt{OWLp|s&rcR_b26|pB~#3
zJ9@rtc-0kM5qR*;{3SK-HD=Zea$j^!<a;uKd2_&|8ir{b+V8KQ^v$j4@+7;6WgBMb
zxfsfQX@B_ee%=XxA70MOvu^9|J13o0JgfQOUFQNO^}|`rEjNxXi(brEl-hQ4R?3&@
z4nDR<%bm^R_m-+H;@9y?I&{O-kdgnVsIHKK!EM&1o2J^7EZTWKO?k!7HR`de1WjzK
zYKt7!37G7AzfftWdi%+hPdwP{4?I7ytUAKV!G7{nhW4e*uP5*K`{B4w-2D8chB}Uk
z=X)ov{=B_(MT!NR_$!eM=PrJEl$)M%{K=az3l7odwPz-3xh->KOOZIL8X@qF@!jfm
z{0Dc&+vKdVu4y`_vSI4lhJK!m3zCnkg+k{~xUaX%c;QwZ*0X|l&(2g_{&Jmyft~Qf
z8M%JU3%wR?+|lt&z;yGDnRnvL56tY~*t=hZ``cy7$zr>gd9b`UTv=ggpu6Ysh3%Vy
z7`JsF<1C)*qW^c!Rz9ZmkDP}lZF*bZq_S={^M<2(n;ttYa_`v`aO7Z2l8T1X2M@Nc
z#&y?M9p8DUU|-6^Svv~2!;`+te77;Ve7$hOx6>(y4SLTnF7J6U<<+S*v1XH=Ka3F2
zJ@M!CE{)(Q72E4u*3I!<{;#^ODRQG$@$zZbnqslC`|ciy37#SR#?E<8Nrt9`TE)^i
zy$|$qg@5;6dM+Nk^t8meTlPBFc(ebOKYKMT?G$^?(S=7>#x1|gaQZ^o^6T=Fy4OoM
z9W~8aY#*I7n8!T(1OJ2cEYs|1+1W3@ZgdgaB;u9L$(~;9Df4bmOvizohN-4Ycg=ae
zK&ww-`uxYsj-Pb7x?JDvq2<yIPuBBaNIj8Z`tDcu9pU7pEkBb!aOB&3*b*7T^;hV{
zZ6^`NV+q$-?M;~HPHF!?jmf&Ag#F=J-rq;tcjO-MJiwxBH(g$T!ig^*9zVW(|FNmt
z<`<&BRihUC6qj7`XpO{PCypR}lc|%BSSQE0g#Dcme@6W6x~sj%t4+#|PH9TJn)SeR
zosY2G(eL|11w39~SiEl?2lKQTt-DjsR`t)X(R!3`Cg&rll=CgKQ*&WZ$b5%m&*$IR
z^);%9d(qw0iwgPMLR)O+sp;MM&AMUr%jKrW1vILD{OO$`m?JI_{`L2shR!OMq+Jak
zZ-qXdn|S<G+qr3Ke{+v#ishzNTur_2zSvV}r*ih%_!DXYEPqa4nW2@otDk!do9tGW
zC`F|w3T86iH3z;rMjD3tbGWCPJk3!ol6g??AF=XsLiU?kXZcF5PRf7CD}6gmC+hay
zNAWo&SJG7&Hr%?fsr2S7Q>_ndhPNy2p0C?;G-}@N=lp^C{{`O&hJ9fYeZW%H^h56R
z$N$-;2efCkJ&W9Vqq)*!D<j`#{fgJ@50`D6Dp2+*>vCH9`pKEzyXMR=6A-+(<?e=T
zdz~BeC-lsE@T6yxJ?F>GKh~Y7U%jaHLC2!C_xQHui#sYlSZY({eNyl>TltEUt2Xp3
zWYJVL>Us69^EJ!53v05ouU9YXoj7-KH1}rH`(?G4o`w7`o29ndt!CzTjR{*lil)2&
zj$IqSZG+CIe9dTsDyyYiJ$rscPW~Qf?RQ@PsFoVH)owd?xwB97OKvy1G<IAuyT9gN
z>fyt|#V^a9?(ICyu=jxW-6vsZH-21tz;vF&ievjkI0UZUd^dfT=RQvl-f0Ew_LjyT
zjD@-`hdG=?lx8H)5MB0J-1N|m@~3a7{7!eg7A43r<%pB~*AxFH*%w~F$QpZ3Y{pi$
z+8y()iuUkyieBIL{ccf~XH*pD8ws1~#Zfv3A2seeHK|1H$1EntY1>~N+IY%R)3{Tq
zBx-eVe(ywv^(QQ?&n}o_pUu4_D(aGO)_&1!hBf=zMfc`6bTCHB%WV3ww)<PaEYI?v
z)`D*n_j>C-Tou%RJj`u((yo?@1*N+jrtHYbS{5hj7}YU9B*|t?%l+fw5eJi-jryik
zdi8G8)bD)fwb7;Eq<kOW9Ja@I6{c9{ZVuO)dHt5>w}5l|S;I~Q`W$P0qv+sbpUm((
z;;VrEjU_FMi}!>r7jHkT({{_XUG?j4FUNy%k3J@Cxh}fRCacLiV8Wx_wpv$|D|;)_
z6Rz4mY0a0fE4xzGbx~A+ZCXvUf%sCT`k<YrtMr@$B$v2~Zjx5aUu$vYNx+@mvDNkl
z0arf!{q}dN#^MPZXM7bnv3#$3A^!wr#hCPUSv?vdliw8;bNt_T_^7)6sSRiJGYc&Q
z?N=>x|B`pyzx18c`;uEXmma#X^xOe=tp`^OP4n${svhiMuk9|k&0X29SRTapc-NgX
zGn|BEr-#VAeQvrY;VOr|=o$X5Nk><4U5NT-d2%^RvE%Igd4atbPKmy*Zd<fQ%gN6<
zqUV|WI=KlC`nMi0N;g?6SRrjbdw+lxlkU^?-hZbpDXHFj!R`)|^be)ysrT+NO>c=j
zZRvG%Vc?Wyz0Cppm)zE=XnW}NVd8`PW!A#UFZAYm*sFe>ejqL+Xzh!?u6o}mBzovH
zyyz}>S$6-pZ)8Gq<il4<iSwS{=sA^ld#PUq-;!M#UsX-KFD2B<&uw0I)_~iXT_LO3
z@Q1}FUdHXU8>8EqdZ!=SdW`RuUwir1b<9t9ZhKo~czXS#%(eb<en&W0T%58YGg3DE
z;MqS4{tgEB_R5$Ws;0b}_<rxqsm12OjcN@$Gj|3G9ll&pr_buglgDT;F<UYGhMZ8!
z4_5b^OH&Rg^p~ssn)>M4dvkqd)@^n%Pyeh@KGRllDrx2WZzV?j&n<a(u3|lEdo$+v
zLtgvZ;w5t|r)DQ?%{|EysXKr7HJ$dHn~uTV_f?Lq3S8>f&EE2)HmO=-(s|CF({+Wu
zQ(6}a9x;4=`9vItT#Wf`Pp`jMWN$J2t2q5fI`BjEnOCNv61N{E91@)9y3N99htrZ1
zYniTY(vjWuEtg|+M?rbP#o&2M)>}_m$g{ZS<fgOJ*Mz@+;vK-Z&VR<1)!&WOre0os
zTV~FS#tRvbV;<`LwGdy(b|Fk*m$y&VzWd9fJ5s}MzV|)9$RXC%Sm)#Pje#QOS4<7d
zHb+nRueC>p=Wo}$i(j%LJ$5b3d(b&mtjSb<OPX9nQBaAa$G3zxj5!G{8D}3(y?TN<
z_Z-v4qQ^?XpB5H<v*mSIqR6#S(_A5S0msL-tOOB`S@U~}_tZT&zTwhjxe}4SJr4Zb
z_xv_qRM4+>EnPYPO%wB~_o|Doi#RxL?^qcfDa*L{)0MaPr!LwRyuxlnv72eC&8)u$
zs}uz8DK0kCbT84hoV{kDOs9$Bl2WaW)jM9t2MCH?Gm(?+yL963qvSV?>r8h~s=aN}
zDv&nI%hgQoU+!0l<<D$31!$bC^9Y_+dfjeHppcnfR%EoM$l+<zgicMmb@TOy)SKpa
zGI%GOR-P)6wB{2#<?t-~^$pGwT1@KJJa)_2CYt}6V_C`OxGA%KqRPz~E5pAfb}CwZ
zSZy~|`xnpmxc6#v^n9L+Y)ax*U%Dan`|Rnh3*?V#l!{3*Jg$3w+_FY3EPGdc8iUdY
z@#6)i0uB=A?yQSlvBoX__OHXPbEH-!%(ASUCmSHHImKhnrEllmWi~96eBu%E;RwT=
zzW@7q{vNjDN#GQc4}7-z@}A7B{_pRszgYimuzYta#>D>8t@~5eFYJ(bc!f=m;nuB_
zyXth71l)~Nue1E6$;q*8ZpC9u>#2X@+7`U;eY|$2tUX)vvqw|q?!@P*XD#Nu`9<E2
zu^?0<scKc4S?!w6V_TzlX6w1{JoJ&R`_>t+Q``P2ZCZawKFEB}UOS$+v@ni3_gP`w
zaW5V=ADhf?n>9yi=g+M>`;K{+e)7xRw|-}C&c5TTd-pw<v_Sjm+B3&gTr!yyH819D
zW0DtkJKHhGW%cIQYhr_a4zCoFsf#~$r1Riic@<y78J{Kyr*kZR;T3q`R$|Qwm)Nf%
ziap+UZmr}FsE;#0-JEg6lJ&gHS4X?rdy<>D7e6>!>0-jO*0(`c{^a63{bL%}{l#v&
z?z<~{`at;6iz}y?M2fT5pUt_Ra%FCW_1)ZJ>GS(Mil^v>>y@X?ii_N_#_m?~kL5Sp
zyNeE{Sd_I`X)fXvbng#Zs4RcIae>?Em28{3jkp?D+|i$HxpURt*=Jv@otJiL@%7ot
ztsAzK=e97}etFcj@{!K(D^{z#_8qwE;L|NLIe4DHL#Ko!C%ZR`-DWBTcVA>%6nf)(
zrD5FiRqc-V^<?Ur_!-pBJ<y5dFcfcA{GhvRb&vg@MKx>-|DJ!Szg)(k^!J<e+>=$x
z92-wh>M)Dn|Ibp%qDIQ>gQ3vXBOJdT-=DCvmgV83cc0hq*vZFJBy~vbj>dnF=-MBt
zadyj${C0&jC;vWOdU5`<2SV@m*~R=b{2;b-&7K`zi;rJRwX?ma<YLcsdh*fJ#SOx-
zVh5I<Sbr<3NH~mBxsdr<vUOc;%!Z&V4UYR(Kf2!LZL^U5bHpYN!Gmiy?uchIih8z^
zWuEGrS7)viY<>8kZL5*DGS}CHH}h@w{MP-=bN$SVtw(k5OjqcyQZxH;=%vij=~}8w
z4@@#&{4$zzj$yyL<(0196??ba2CvQNaht*NB`I&3fm^WSkq<@o-s~k)lvqvQgif?N
z6P6jgwts2l>{V+v3+nzhm>a9S>UGJs&{CyKb#r<Ha|-yc-r6p;W8W0NqP=;NQ|=%A
zBz7~d=H86UyUibTIK1#ZcJ%w@yr+kx))sA8#P^5q(Gu?VX;0=|Z;olXr`Dx+W}oj}
z4~g_#Cy7Ab6{_Z!mbq!F|G2JeFFhqqp?&k4ocyf0Zux1)mX_r&S9K7IoBN&Z%I;<T
zeqN40W_380op$^qx;}o<el>sPSD&OZgKA|$cL?26GH{#JJY~I*pSk5bTfWai%Qks3
zWWU!l*!?JBwdoG;Cnx$}Iq#W}$N6AKPF8R!`-+%}{gR1s+j?CMZZ;`<nW_sJ&iz`x
ziLL8_`U^j1*0t*{IygLjZ90Lg=vTpvmy6TZ`zLCgS<NM-A@hT$CHh8l=Em6PhMET^
zRM&VKg=KFFe8;Al&R(Q?BC%VvAeOOt-q-&oW_HGkuY!UTs%33AF6_Lvy34u8x$^W;
zKi9OqlUzTaZdoC1b=NC0KZr-^QKWE9?(%mF?`*U4`!zeDNsUQk!lQ^%_Fm=A55in?
zwl9<XzIV~&nw0PaL$>nZ-FYQ(ryMQJlD%baDBsULDsMT{!^d#Cx<PW)GP~^x*)z5l
zZ?n$coZr;N$@MR0i?GXm{!M1*y}q*_;nR0`(B<jFKO<gRC9zhtV$!UW+}n&9irOa|
z+&A%N{`t?AGj(cG`J0KweP2)CJ^$9Dw&wQd*Sqxg%l)1k7az9P*iGsEw5+v0$EGyR
z?0!+QY?tCo@pV;ia@2VIENhFMm)<L8IMy~%dDW!po365~*n95oirLXiV_WS%_PqZw
zM~bWa=Ir@C%1zO0H)t8^9o77Cqo41TD5FJE=elOO=P9$Ltus=WIsLet@hDofu#B;o
z-Tw7f$LkkeI_4&OyuM<3?q%84EcUj&b2#TeY;$z9+hP8r@qT&MrNW(yuJ#um4`TRJ
zXW%UF>ayJK^y;Phiu!x@ugKLt{%3_)k@b(chXv&N_v=}1`X6QP%l1PzB=t@I{!{rT
zd7)kwBGwby?pkym)VW;fwodmObMcOu!LMcrwex(a(VX?s?Z&zpf%D!RH|ouMy{$PS
z@s;kq`9VgjFXsf*n~9V?Irg#fqNMiXb<6JD$c%Zul23-|olvNL+pcT1XJ)Q<UECua
ztNXddEVy(%pF-Cs#j<BjZnqBAWH(-3^I(F3R()@EnU%puwYwi?R=m${_~7dMw?O7Z
zP|od3cO0&JZR20ZBi8<P@70!VuT^aoQVQm0^-5a^$2m%~t^QK{zJtYF*_uZrIyhZ=
z{=(-$3*$SN#ORgG)-~hpuAE_1kyCZ$<Bm^d9(;^9nJqtFRWH4~R8%}&hI5r!>OQAt
zll~-u6KkzY<ZqW`dD<wdC|Pn@MhW-7&o~)bbw;>m{Z`oz>6$`kw($gTuAOo-or~lD
zx8$Rr?Iv8{nkcxS&9N`?^f@)v_}eQA*d``!c4B|?vC^|QPiwX9*OSVVN;1`t=xn__
zbAwT|p-$hkUmmAcgx^bvxM%FiTVJT7F00cXzm6fQO*MXLcbdA{-C#x0rVi~xvX={=
zxPDlDwt3BQu?+3w+s-bGlbbW?^a7>3pR<1YJ_?-|o8=!BaI~Z7xY7IET|3e~9h>*9
zY++PxQFC$LtMBuepFB-GXWBNyo&8;2-LxJ3S6RKD`K0ZuGpSH(HTWf^FLz8k=BDa|
z)_0dXX4r=9&7O8?`sOu>_dA&UCto!!&2N(7+?S^<5`JQp!7B5vBT_qfSO3_Md1kAh
z6_5C3LC4?9QzlOQI*D!VmWDO&|NdXMKrU_FwsWqhro7#(mU+$gu7;&b-u?WbgwCxT
znkffb41cn;En4G|Yv23!pwTQh(J=d3Hm$5}hPzc6?@8_6vj0$e^Y_^w*Hp-~1b=XS
z;2^n1Z-111O>_UUv@LG>pXW<Vyq~IH85i&}`DNI{n^(oyZ?O5+)wXTtJhj^LQfq;A
z&a4}SUiS~*tNgTh`s=CF4LJmUTv*m(va8TG?ZewS=enQ%5(;?Na%y?))s03+t9>V=
z6kF>2NIlT>T3LN<ko8}S2VM_2o$Z%K6a`K%uQge1cH%hGPj1b%HYfV`ocD15^SAJz
zwvx4SXZDh>ic8J*PoHZ&`M*lWj``{${gG*5j&G))TK6ojwL#~%=BIUsi&#!Ce!AG&
zZT1P-8++z%s`q&pvcatH_?md$7oo?sw&a-P6wWG2u(``!@y}9i^2~nrqDl)VNp7dJ
z?J~PgEM5BdGDp#x(+~FZJ%2jWM&@GUmCAIscG(=JtG5DP#yIqv7ff;WX8U!fa{4df
zoi#fJg0vr;Q1$LV-MvlyQE7eTwcfM|GE-~~<2=jld=~om?O>?(?$Vl5>Eb`D=D(GH
z&WyK-#yR)$oW(cof8@p|z0Nb1-9=VdXyv-c51&1*)9B~?kh(Ld{<^@K<fbdf9AD*0
z7i8{#e{|Q1psW2UN6ZDU%RGAQ7Gr;GO(%O3zt^F&Pp2RIb1H9LiN~GJAM(<RFN?m5
zm_8@^(Gqv{iSw-;3Pd0Jt-2&sX};J$;=Anu*Tvep3bLPNc(f1hthnK@d}m#|zrcf?
z5-&L{<JSIh=#2_x-!_@4eX{T4&<;thc=^Y|&1ExWMH?7@w72y9-zoGs-Q7myUN75)
z6N0|Kf3C0kJ40P*iA_^-dfFAm8+|h;ePTMm{nL@h<I?(Dv&{u=?U1M|)&0o2?x|3h
zM-9`aH%Dc4k}l8J;NX(FmYB|UC~wJ!a}EYCmE4Y3JX-0+D^{^gA<xY&_(FBzFW2&A
z3)rsBeCQckef7q_FTE?pt5zszDlMOs@<Ep4nbn1i!p@_QH+OK%Nzu7lu<Y`K3#ro>
zN?tb#&+)nbZQ%#6PYf47)W3Uan%vy*er_6fnCI#@imV^9y4zDqV{BClp4HX*oQ<^6
z*w-JuMYFyu_4VF5e-o30ePY!|CnkQ)wz+uXw+YAJ7QL2ptG-7@W>rk-vN2hC{$g%R
zm9fG`CfUo8?(6uY<{Ww!p7qs?_0E<9Kfi>^-JNYMDqD8>e3akcJjKqZ6Vxk`D|SRq
zoWIdv|NX3KnoGpC&pfu*bHSQCy)$xZv!v_z-HdJT7Z^3fJ9taT{k?N2?BU7B{NK1{
zPjA!{ZQ9o?+oAq3-9P-wty7Cv9<EkeKd17X<rGD)>N4i*y$L60h6>bPDO}t4#-LE>
z*GoQa?Hdxy6V^%oOcY$os<OwWM{iHgoiA0k4;i0tXPJBK+^HY2yUIDrnt2b(v2Eg2
z6=6MJH9<(je|6=>H~b;zSj^P?w=L)5j4qH)T&(H*?plsi<&mljM{`bc-O=HD>?Ifa
z#GzLx+U4De$uaE*v%1b0eL7Kj!TD7D9_Re2zdi=-V9QFMc}|)|W95;Da`CIKtDV(M
z-uLn5#V@XHLC;&8rDW{8;vQbzly~ND!M)6_abEBHFHM;HfKe%6hfsd2uB@ty=CO_b
zb8}>wx2)h+zvUg6@B867kG}k$ZQm{)vRNMb$zxt;^hr1S(m?Tl7Xl9L(OSRogmi1*
zulGrh+ODdk-ge~?+aqyqj^f5=Gk-lVkJx%VcZZ3yC{woxUoe~J$2H!IKQ$X^9=W6Y
z$2{1cWe3X#t|^T-p3dH8>=NSl`g7DxlR}MxDBtubwzt9hf688^bk?{1FbsOTd;5ne
z6U`RK%+OgUeOjgSvsBuY!=*PZ7S9)mI(5=osDx+J{F|QT%uDiCf8Vf5Z=;3E-y+6&
zv;Mq#-^VpuNpZpI!vYUBKC#f<CVfQNjqwBjvYc1zqg=S`o*bPZ?7v~rj`hcREg$;M
z`zPn*)_wYt$nL0>j`y-6?M>buPIqVCv^w$sJ@)^M{OgaV1=|^yAKX0gz|o(q0>^ZV
zBivpX9ed3w{p`;=tw?{@H#)*Kv+f?g|EJ9^Z}U>6qJUM6X1?Yp(w?ww7X0+TPO|5h
zPkr+Yu9CK|rF^lKuXuQ5o!`kHoWJt^VsTEMwQmkwDKa<zdbGEH{rL$3*P@EVPF_+_
zlv&zm>RWX;E^+J2pYP3A_TI{wDlR+O^gHh>#qfmrvfJf0on0Py$+W<+(k=h&{+kcg
z%A2<ZX@#-Od9YP${({r&QB&u9Uixdo(O&|0xcu*I=?}72G1Hs>;(77@Ov#-`m)a>l
z-Z^pV-G#CGTe9137G2)u&HUsr+nzR#Ip?ci`>;-paGzA3YqsKy-J@Lv7K?TT#BI{v
zP}=OGw#{4p%+V98M832ogr*rOWXkfsO-&ZM&L4Z}OI_jIs~__G?%w;~628p1+{%3C
zJcVoXSKMe{n|{f_WyR!)mmQ2&dOA3mPB&Zbp7U<k94Y^sG3!4a;7*z?Z_?QMH1oQO
zrS!fKeg}o=_Z}a}+IewRQgh6UMLp9rg{@XzDtTPKYVxbXSs@o$eK_kLZ(p&wcl`xs
zsZXpdQBDtp??0QDzC2{^jSE-*WuDBxVZYjd@qQ?u8*dStWU)=yrUTI(cDHv3)XXt!
zEfV;=<=oW3$M60sKE572`<8Z|#9}`A{a5Fm(fTQ>w`#HA^9ybfGdHl?JMcKOTzQ_L
zb~z^Go$q5&dHdQ=`u_X&1!lJXWZU`sSVa4^$8Oo%7pVXHb98dQUFD~P>ic*6d^g*C
zzWvV!*Uev@WdGmr|NBMz|1AH$p7hWE_vqyD`F9RDDd=U+{j~nMex6;`uF90D`Uig}
zOkNabQTP4X%WgB--@BSm{gcj9<M5m7nwWM^>A@xI=1#p;uj<$Pm`hoA3Lk5H>@!P!
zQhiDLw_~%lX5W2~AY<L2UUS=N#~0z#{C;oql22cF5dCeo{UXEYJ!{|2+2g9jd$h5f
zv*g>)*QX9m>9dNy<aLtcQu~x6i;booUyySDVW_8M@J#<~mk+5y-`X$dM(llkZ$|p=
zj+QlNc8k1Pe*cf^zhkTqE*w;2mc7ZZr+xE;>8Ja#b>F&}w8Q_4>bzA{*)n@}$(^R7
zN>j4jDr;ZPxclqfoXB_IE8Zs_l1l7K{9Ge-q~C7-%4c&w-K=N7&;7CQ)d%}iG21TY
zewN!L|NhQKDf4etkEM%_b)*)b5t%HoO#c7$KEq#sO(gdpuSia}zj~(T<f6WC(R24t
zs4vN`pY}=rf$O5#PamdsFcodIE^4~c=Cpavs-;E0oUB=-wi(Na=(rrx@-crDD7Kqf
zt;OfK?7usTe5$OrS}tdbFD>`YoVr2cu+P3Z2ZXbq#Lijtq4!Xo+uN6go~15bJxb@!
z%~Z865Lr|Hl7&T7?97q3&(FQ-D*RD+Hfznng7VK+S@HWS<(A2r&6S!hmo#bNt(>PH
z7L?so{P&IH+l55l4c9my*p|iL42(Fw_AtwY{S)r25uL91LBQMp9{;D4MOPj5p3HmS
zJ+B}^B7J>(-Tzmq-&SUBI=-hnv_SM|d~G}%!`V1D^=$!dZa>bxoU(Sg->GkRXWeVH
zy%g8~K`i`;YUb=KZn;;dMB85IH~Z8%b9U)5(_>RuOrrenDBW7MaDjhq+_IL}?t;~=
z&4uAhuFN+VyjLV%H(~dR_B}BYd;x6Vt}s@MEK+pKuDlm@_k!5#2L`)4Dh_WHTk&0L
ziKg~bIo3MygC7l<!b*J4FWvcCC%GtX>)fiSr0W*JagJv;cWSMDwCu==z;k~mO2swz
zu0OD&aLw$#ovEFZ_btpmTg7$c9)rPeKK@JQD%-EDSK2GNqPnnrTi*0m-^%Sm`jv-%
zvYu%SxHp-1#tqM!ryMEUx-CPQrdht)?sr<S|EYU~ZSg))vu)l}jeaVtFw}n0w6+iW
zW7ooYK77LErPY2<48&&yMoj$8!Wc3ubvY~Ftj5&-X(G?p73P_nJ_%#ox5Dt-x9x|+
zZX^V`d(5(X`LX8wj|G>?H{>jEj{lyy=*(Kxw0m!D45sVJfBq^^d^7b&@bQulUo$lB
zoU8n-zH4h%X}0IqvhU$;2P`gE88uFv-?r+qo?57)%aj!zp05~06sBd$th}-G)M1YF
z%aQB*D^0q?gY7qbJpZO-*}K5E@)iY4k1I4TPPuE;5oXx5@qs7nvd(>Zvpfve#Xg#y
z+0@1UYu&!qo$ir`7Sz7zGv^NT5!61c^3=IP*=C)DS#Fy7&Z`zLcG(wXvOiL@lXcp8
zLiYc!hs)RVeoB(aY?1iEnPc;P@7d64Z=~&ciuP7LH#nhPd`bROcX@x4j)ASwzK89f
z#I>INNvzwdqEXfowCKRCe>@X>HH)v>SxyN)Gkwk3FW$368PiIGd>VvrKiW|#DjVAA
z%<^lSEz8-*j}A<hEOGDt@Io<3d^bzfwIrMQled>mJQP_a_DpEOyx0#Niefvs%yuuo
zX&3i)(nYuVpFS>(TM%Yrdb49m*{^+Szi-8Rs#!~4TpC_n<SdZ%wNashL4UR1b+@+a
z-l{v&R`+%<e|l__eog;R=h=>jWoGTWessp(q9uFJr2SYSRx>H`zobxg^x7NC(<1Yf
zxG(Lfh<^J0@wMkW%yg7mw6d6%R;-@EZt8hvYWWWBFm|5a<*rM9O@A7+`^4mImm`-F
zYGQi1dLHgt_Mz!biOx#7KYp!GR<f$t)z}DV9$zl?YQN3T`i#X~8JH_S!Rt9eD?bel
z%#e=vGXpL21PR;N==-GRrI%zVn3<Uqv-I<A?d|g^#|!8G*>%mE={Vab0iSzmLUrx6
z@9oSa944i9_vLteQL0gBZFmy2y3_8R-t;>sOn838mxq>qfBDMps`2Nyb*ot%9SX|J
zp2hqM`u;2Q>vs07FPabiKXpI8_Vbg&{*NC1Ecd_iF#qBI=l=U@7rkt9{`q=!KA(MU
zmw4;pU26`qlvn(^t^PBw_QO4$TQZBjdwaDnzi;#N%?khW5B;Ip^*pza-?#a@TfIEb
zx8md6kEd5%|N7yJWXwO;eQuTIf8Lcm&xyGr)n9KRx%<Y8FCSlDo*U=%!Aj=+`{|cs
zzhruzldCV>)P3>Pj>o4b`+c~WZ|+)m`M;gy-i)Qf|37_wsi&i7xmV7<VY*fSefjhH
zA2vrX@;v_DKkZ{3@2?-bCr5>CUe`JAK}^h=vg7M-9sa~~X;;*o#-q<Kame%>+rjeq
zcHMtnI|qHiv>&S{_jR{FoPIml=HB-HpI=X|v(Tv6f7R{w<DV_Be>_w_wj|Fu=+M>h
zO2?0~8=UmoY6|xkE{yy3Q!rjIr09|HTPA(~b#Z?=d7RkU^C!tkO`kC3mfMG)oaRCL
zT5XR%=X#}{bv~f^xKA@RvHabcO>QxFjL%pen6#_lPvY-sFOF&K_*k&q^pB^$gxT>`
z3$|?8yCvD~i0UEl^Y<S<FXb$7yuJL}iqC&-;{+NagmyQ)y=Sh@JLT2hdvd$m9&dJ&
zdvnSB?QQ*+$z2Bzoqk}(y*kg5byK5#zW<M;7z_S02jY&sWXfmW71KCt-}>EAFQ(m#
zUjFX-9-h>!r@<`ODlf~0J!gAgac!ThUdQW6Ce=4j_gzk0z9;b8hcDCp=lz?0-eUcm
zu*++Yhvx=;e_piqbDwwHC#B@R^lvTVZ{6l}c{;Ss>|V=zVCg<(6A|WP-6c%356svx
z@y*P=jQdPiGq3V#E$zto$EL=p{aQHvo_Oxl@_yBwC-kp6ygWBaW|P97f|j)3kz1>;
zd|R3wUsuT#xys>*;`yt4Bf6#(Sjh+(WNzrRsJhKxThzT-OoQRc%68EpE4lx2X-TCj
zmYj$A>r|_@dT$AnjL_oN-^6xJ{9Ty#xfj~I3|L}SI*jiA4ii}7z%o0+$ie7s)baIS
zyOWDJXWU=Ay8l!1^aHIyEK#1HoE<0k1g)(8u)!{|bHNm!y?-oqCn;+kT>09?h3S=^
zWOvq4U5)vsYum%L1gsxSWn+!_89HfNxt*}FhEv3(KilTdeV3r;#rrF1!G|;3o~MVm
z+;i9#cF>Dq<Czet6`NIO-r$`6ZQG#<Wx`o5*R2(s9=~GaThBUmW7RpP_(Q)UFDM`A
z*MB~zbG=huz!%e3tP+c&3U-<3@kSjwm@BvAD3i4jE0;I(e(4`}Uk_=ncYKi4<GFtq
zhXT9H&zo#+zc{`N$sIElI@!ok^T~V9l|`>uK3(Cu(p!Aof8zFuUM4&rUAI?XW8(Z4
z#`pV9=A2(oyU%>d%eB^8RUpv5<j}=?K?y}qCfYSuhkS5*%+#RyD0ZW8!diaDC$oL!
z-m@{jpR$p?{d-%|8c7NM8H|}z*D@%)eD|rpAl*S*HJ&ZQH+}nxGwiL8>rCSA`m5_n
zYfraSX%_O*y{4Uh)Kg`~eW}G3oT)CqIgWVScmAK%zIE+ogEd|}S;pyKH#Ob)_^9De
z(u<SZ`8k#dymhu;v8*X?<Go{{ukIgE$-1WWW@Fe#?Z1yaU6|HuRMhQze*Q#+chqU;
ziw3Ffhxp#6?Ww$R@VYwxAEp|M#ZI$0`U>}l+1LMia@~KQ?SW!(XFkrTee7>1KDey-
z!lS;q|MTVk`87X2-k0B3|M%Hzb@{rg3;uS0SpR*z9RHW+->)C*`R%JdeeUPqU$@}>
z;=sPy&H)*fh4<N0=X!i7l<fTLw(6HH2Uo;rhopa(su;azGG~Ye)m-n?zG(O8)3fV)
zSr5j`^=r>-ba;QvW#S1YkN0<H)Uh~SZa6Fa#L!YiMPuUY7Kw?Cp{0MmFNw3wX`iVp
z?Rmocu*_2yDf23QZ61xUFHFPr&xDBI=PQ?}*g7$M`FzbC>PKA5Z+|r~XHLm?RNuz=
zU){h#DZ*-#2-CcnzrPm5uGGHs_SF26-9h@A_W#<?b>5bAWP8hS$EZLg+GIiH(&IPI
z+({D<XJmC!tZq{iJAc8SiA!zC(VscHRGU+3_tbYTv*BSiS@GsrvvP)#1kbhN#T_dj
z%&j!35Plwh=jCmiGt<w!Yo93S&i{~6_@G16$8F|&ZdD4etk#tls}4=KoWao*Q0V=#
z`j1eE_k(Y-#gA^h?w*|{^#A9+vn@MKuU0ZQ&yr5{m~X&(PVmjrH%@8)H)h*gh)%y0
z`u{2anTUUP^Xe~@zF}ezY5(|e)wwNm_fINa#(Z>IUp=con-!PAtn2CuvhCNjes9{8
z(DUc^ndWodlgxwnPIpr45%{ga=zC;G_dk<&7B{b1S%x3dUNPH!`GH2B1HNzPx8?}m
zPX4`ux0~(5gJzK}lgfn_mn*!!;Q9Z{l!oHP>bGx21}G-*Z7$!)Zo*_^eEe6WdeHkO
z_2hB^*3A|ZyJxB0pV+Cup7N}|*U{!f?v|;sTHhK@vsrDhs#vj0^JkK<=NBd^uCvRl
z-nuXDlhet*oU`lVC5hf|XII^m)c>1N8@RT_^uo`}|5b0Uy7MNa|F46@!q2lFrRPkP
z<UD<-r|@D++eF1TTvLp9^ztn(J((}0p1UMOIWhDeZ(Z{D-Dl^#ad;s8G{4BuG*VEz
z+%VE(;?4=rU)i}^id}GD@^@Fj2`1&Yf{QO3u$WBS+Nb)$Yty69Z<pt8o}6)W#oUaL
z-#2@r3fJcbzDZ`W%jDsUy<Fw9zc9D<KeHdZ7|*u%pRX@YQ4-3?=F9)wmG^e3%-cS*
zQpYo=7G1dA6k+=&b85KiCPCZk7h-30W?Q+q&YXMbn=rG)0`CKVCM=yUA~MxCY3kWk
zo$<FmOa91+UGZjb<#ZADPRqXJ0~(n&*0U09c!I=LV>yx%WsYXvG<tmgXtwVGS*Bv{
zG@-rxO(vYlES>^t++Msh=1-ht*<+E#aJt~=uV|U}xNQb~3Id<z>|o0c@4EQR+UKvt
z{#A3#KW@`JdRBGPm5}L)4VH}Bn&&;=hAKN8``~-Zz<5ct*My`GCda?8dUm_!OpxiC
zYzFJuv4!WpzihaFDZ@!-QuWoO4C^10Ci@vT{A;*w6)-nVX*)YN_q=SY#U-ab*Ojtd
zE0!$qf26%eVQuZS)g@mSxCLY$H1b{C@8czMG2yY7aZM<z_k^d_ag5um^8OiJa=*pA
zUw!Suj$?a{`OFMBW77CJ?NIfXGMy9Y;&b;Tum4<=XgXu7dgtG5tM*E;EoHmpS6=n&
z%*|D2E}TB2B0cZTrEN?zj~>|be#`If>@7$4ELjw`X!GLu%g;`J3-V#yle1>$#HO5N
z)eZ08^_*&Ia5)gX=OBZAzT?dU$;_rc&%M62y!-iiGJE9PP>X-8Y1U1Xb3<+<ZApK>
ztJ>ZvT=?&P?I_pX(^!7>@91A$nkkmK%_j8ohK8%_8<-ORt98CH;ce|Zw)(kqMRPY-
z-R|h4uB}%WE1u}Ks&woV`QH80?ETIysiyAN_CH<7U6n2>aee{2@l5TlfywqZH<A`P
zCrawf2&-Ih?BvJ)Tc14t5uhH|9M3X?nP20kHlu2a1W(juWjTpF4W^(u%rk8GRcGpc
zntT0Z=EMSFJI!N<@0RV<IW^NH@l&~aMc0+(4<hGC$BKkEdAlzBmzJ;5prG@q`1J3E
z)1IGPFVxboyf8I*gJRy<u*wdD;@i@}A{NX-Puc=IH*VyXlvw<^hh?Jg<KWfOrMx%7
zyR!pl9K8PIp^=eO%>#w$2c3%B4()Wlk<=pF@Wtit*_R*AY*+C&Zp++rxTT>-J%T|}
z?$a9ErkVLUBE2(GuCer=-0E^K^yS@!t@mE_T1_<B;kvB(X|E&8!_vKP(-VyUux8un
zC*4~4_hS9?Yc9=`6mC{|<$sc3S-eNw`nEvuE2g{BH^0d<CEdz8(qecy-sFy}_WD|(
ziXDz@bDoxQ{4##Pb5puzi=||de&Yp$bNsuv$medHu=i!%d!Glp7N$o&`%~a0B^wdD
zz}RO0{T-j=B_0GYsO9ebBU?7X`km{Ydy(SPGRp1hqP5m@WQ7FqEo=_Fv;U_4YPo_o
zSB2AO79WT=H*b|S=Tq*#n<#Ylo6PKuVU>)py8Z<VS0wq&DD05%*tdRnyzP0zIh&dD
z3~x$5QZZ2HPssfD!hf4=-m>~MH6MfWGbL#Z(|J!^b1gCGN|~a#&(~|&%)O?8HrmWW
zSKSZKxi@{$jbF9VFIKIacxL;-w;@i-QmlUes`l7-?}}$Tw$*#4vi5I3`3Gyl4X$W>
zWSB2JYr$rVEb$f1C)Fe7ztU>@eJ(lcyYJdh?X~W!dG2Jnn(uA9-!W5LL$H}=#)(Ak
z;I;fW%(o?4do$+PSsJ7n=`DJ$qrB)qkmsfC4f{$R>J&7iZtQuo&+bo3>0HrH%PG^$
z9T=nxb{}mB`TNCm&#g6HmEZ2Nf1PY1(;TpC*`eJT-Mrh(KeBN5cB;gzlb9xAvpj0a
z$%a)HIS+Z?CBFYr<KSrgu;F1G_p>h6rv|*=n^;(d71z!Qv7EH4<?QlV(LLuy{uWGs
z@Ra32Hq*nEZ&ViCFmVvOHcRv9RnbQ`!nc?Ud|hK~zBsyRR&ZCJ&Fi%yb3fnxqZe7`
zGdY?qEtM(!@s6hw+n;8AzjN%+w|D>U>=09xk5Vj~_sKx4;+o68BlpcFeoNc5eYREo
zO=+juUsHI}PQTG@6Y6R*TY2}G!2kW3QGeu`Q}r0Le~5kNpM8w&anJIYn_D^-&iNFZ
zx5O?-C@DGI=y9*>jkJZIb1p<I_uRd9gW`vK{o4&}%^f_}xAQQhn%ocDmTNqlH`(Xo
z_beTj(|1+aCQi%0eNDM<hNPv>wQ5U|YwXwd+Lwpjv`f=sI-Od+HS^T#m2nac2Rq-q
zc|PTOW793eAQK_ORc$?1EbBEVE#2<f?j#|)<+Q-Y-p^$lzMqRsYrb{+T85GB>SxW`
z44)_Q9{&Eq`zO~ehI5HV_sxtV{F>7C1>C$WskwC1af{07hI;(sKSEDeyC1BY6Pqx9
z@60xjcQWs$yo+g1dRDsbdt_OJhG*uTN9jL!%WnVUESolyiH$!)|6tr-nfIR#Heb3g
zYMYw>_1sFApE-r>>|B{kReyS)Ihqi2#=py_?Ao<s8;UNiTzf-Y^%&#+dNpaAz5^$&
zT1fUviyQhS33NS+`R&KUwq(uD$`XT&p2EM$(kUM`4*MB@yI3=e)t|L9dHd_S8yeaM
zvldKnw8;_SaM~fe#&wG8*%V=3)5}gB@=tc0-4)g%)93Nl?$EQN!W;5J6k?-de*c)w
zRQ$P$X|3fv*9BqEF9$}boKo3%eD+c9Z49i!f0sN+I4|3L{G!dex2!kIgY(!0*KB2O
zTitYUwb?z!)Fp~X5)F1QzxMdK{;a*~ZTYfF1qlV~4hGiuR~T$}yC~c7^wc}PO>(jl
zvlp1I6E#@4m6eahNN}?Lcb@|#c|4JEw|Ly-mUTPS|Jj_;ykWX&V57>5gAW!;=+>|Z
zE34&s8kqZw7-R%Wc55$`>{^u9!1;d8#@C|Kd$rnLe>s)Ok+!tWWmiT^j-$}!nb*&(
zmQjib+4St0R{I5^zn4yXY<(lLu#T^=Xsd^V?F-SIw34;!**@sGEZw%_nZVRV3bh;k
zpDYl`V0c<}{brP4we5~`Iv2I8bHAT8T6J;WlFbM1J0G0!BXi2+y>>nOR>ka(DGHC|
zN#QuGGCNB}lfkM=OltX(`10eXYvSea?+c1ppsXji=wR~dV=tT<mabruu?q_l4DYd&
zS+i-!zW#t9L%!A5LR`AGNPdV+NL{h)QI#vN;Nhi<+GDpiXtxIbnHT>cEbGICMYE?Y
zN_p~^Iqr#OcZQ&e|IMA5$Aq>NBvfmt>)zeEMAfT)slIc3?x88~cX8i+!Yv_?F<rSJ
zI>Pw4XmN|`uG>jh45e?`-ng6OyXouon;A!s{9*o~G4;tyzuDIgT=BEzIeF2J_40E5
zuE<>NTdAuJRc_5)F)jDy<zxwq4|*G>@13?<q1y3`>x{4$iagf>(jUg0k$%y3q2hgo
zlheKXG3(4ar|@~SetxEBa@?^%&E>e_qbViQ%Eq$|3RbV(y~<3ox?sb;DTe1~uU+%3
zu(h#L<MuVn{W|ZJ9;MHmxL^Oau7z%okA<!JqaM$iDJ!yi#ZSy^$ZfgFa(VZJ)jS>Z
z+DyAmlJ`j~{}Hdwe9C)&gV_Ijs#CIj8=MU58@alk{MF10`p{u&Z-4%Rsn7h4>yPqg
z_gU=vBW2ioeEx&C9AfVZa?{z&9?$;#c<#i@;;%j=98*iUbv{Wkz@6P?)4lu|hfTKr
zYwI}ADs*q*yqjUuEvt7o@}3rzG_hL!ZdGjDvSTKXdAn{!d?+Xlmp}g{WxdD>Tb?zq
zLVK49{?)1KFrK?jZ(2{syFTeXPBQ!Auj>ii-nR7l39A~xy}!;+O5O9Ft5a{o6?RRH
zTe`+ZYv*cIwBC_kv2lBc(~av@Q*t^xk{V={RBGQJw%)KU%(U~xBc+5-qE~eKI}1)6
zk~l0>EV%eZsz~r^(Hiz;(+V|<427P5$QP)S+4#`EFKL>l@z2u{U7g`>e7RyS?>IXQ
z?h0Kj)Yv8Be(PG#snE84>B83E%fv;O{iuAlODsS3me8)Ztt&XIm^9ztN=~jhJ^Sm1
zjr(k!<9-+Xna;y>{70DhhXocjDl2v~*A+NR$}V~<yuot@`_<1Sj~72PJkF3i|D=#a
zkKu*3vI84cE4Dp;>Y$<LaK1J4{CD<cTasR0-2Y^k{QSfH4!#cRkph>M7d=)vziM(^
z$NALMrr!%vJM#tn<W(Y@IkxzCGBRc!(yQn-{Tn;=5=(_a*hE$X|4^9;|MGgLFz&me
z-?`FRO61RO*1uMQZXwNFJYw&TFXBC7wvma?nkzYvJ^D;>e(r^kXE708C*_n5>Mapk
z{$ny{h)u%t*61YHh@0o%ls${wu2HsrYRAJZl?$@B@*Ax=eOCF&$JzZxKi!>m=YLY0
zQyqQd1;ZcZ*QfMWZ<^kjo@TspSya*WwK5?l9$zz+F3C??JMFhrAz$jhISoe^-`dF?
z(Vdk1dSA)P6J`||j!%mAU7Ed>KP-Rx^|ejaagM(4>Uw5>;E65S&aK@rm5)WbvQ+AN
zJ@Y%k7S@~#y$nkawn^_kbdhzk!-8WT_jE;eP3x24S;Z2?zn3rckN9ktEn=(BJWS3h
zS`d0UMY$kUB6W)6>hI5O6>KUtt1hbz54GT58LX{&I{5vjMEy#;O)tNPdLH+`?HVIG
ziFs3=`7|zPhVL8K8eje-vyL(O;ug!Z$x{-KZ8~^hcji;qZEX)uhgm*a`+DmI+Y)9|
zsb_6-zIXE_PWt;Sjn(+-hFR<Mx7=T~DK_1uEUV>?#No-&w)a}5gd0s>*t1u^O@r5e
z<;DaicER-f>J@!ESFW{RoW45Hi_J0o!Kn{vGjc4;FDzu5swjQnQ(n{8$Z64fzN`Dw
z?l*JUa0@k`{P%f|K1<_%(V}x7{zbpOYRRxTAmII~=aRw?uRUYfo|MTo$NqbX>?_YX
z$2X+B5i5%Rv`+Ii-_jY;OCBgY^f$kmtnGS3d58Cf@D8474?}aKvR*#k_1bsiW}bKx
z?V!4A+l)5nZ7&UOoV+7x_15jCC5zM;WF}^088gVWB$j2)pS$?s&MTWft~Awqy;zq~
z`}94_TT0Vdi=#3QMT)Hp-V@5_vGnz&y#+C0(;w{prI&VSPmBIh3(3<@O`e^bwyt>Y
z-7VQWt&VvXa&CEQdVV|0VgW|cH@*U`x85zA{&&Xfu4if;PJ6fUM<q<3yFgx*d-KY7
zIqW_QCwRY2+0xk}Ef8|K>%q3dx2>Z8*F8x(vP$c_sWwknmQqAuT0_f}xf6e1f1#IM
zxp9KZS4qXVU;e$*S4J`9e7QHvEI~lYE7T>V?&hv3CwyldKj)~tXO8)$I}bef#3XWs
zMy;HE=VQJfr+DetIT7b%)AQF)U2r=mWbfG$_I*dAxS7B2>AlHjP&xJHF0R#Ltfjk4
zjyYKD^LM>F-+JBS8!2C+V&*;NntlE1pYrK>`NF<TX0yauU2Ys);C|wJ>o)zx%d!;3
zauaR$WPJaS`(weEHyb81EZ5n7bGxv;`?|)3;hFDNcd9l|y_;G+WhV>Av?5072d}s5
zCA>`fGdrU92Gjp4?u47Q2LpdP<i1V+s3d2k`e>VI^qgq^oeNG_O%b%oT|Hx?s_JpI
zql+Z;FK%~BuJDgKaxcTgU24jwW~P<f3-9G6DQ}<KEG_nGg2E<K=A;EhfsI}a^UG`Y
zA5STnH1|{E>aD_Sqa<C+ms)1L)jG1uqqm@KThyj?ckZW|Pe1XrB!J^aO?2_}6%3Qw
zU!9oN=CbKR+pV%U9tAIgPNd`=t!?LwJ{9}^y>#M3CC%2}4{A$y#qdn)x^zWxYqTfd
zyIqXsp*x)!mS2{hw(B12=lN%k2rQjuz2oErWe4w*>-N@KDJZu8?7C__xg;!%W#1$H
zwVH~-GiI38*l)X^YUUzwIG1C;DBB(J;}3-_gf-Mw=_n?(Z<6gZjBWm;e8Ob%teZML
z9w84Kguk8=ezdrITKdlH{dGGh2Bb4w5cZmOnJ3b3+b^S?_vWvkY4~Q}*+XW(&(yH@
zvMpY%pr}8?^5$>uyV>4h?bn|8{?>4x@oAM?ZbaUk_4-_L0pZdz<qLGoS{53{u#0ha
z1wVVyyqGPlE#E-8?E1ULISY6{T@e2AWSJei!$duq%u^NfS682AE1f1P@A}|jq4RsE
zZFjD}nw|Pe&~u85dRb9n_4n#_>6I7Dj0L%auPMl!xuyI0ACv8oO*a+3$ELNfwK{Jp
zVV-8K^3=`pm~vW9XS%A{(x)7&Gj~o~lsZ>dLU2n`ncs!)OCKrw@j1MR6!O+OWVK0V
zhVql=vHi0$Z1y><N$Pl&l->W1&rZ0DSM~0*H@|c<GR31d`=o~?Z93?Edf&9xcOF0e
z{jaocpW69wdhE@Rvd@<UI!>>9A8K_^EhwraX+q_JpgOf#Dtm(y9HpdnuWwI2cI433
zmD6`6*Xfs@synxU<J#u7bldu4KG&*evi@GiRC|2myyYq<RC$sM*R8H>a!k9h>inwC
zta%60x|TjW`77eU^aK^Zta&SJtF@~aeG}OFrgLupVf#gK9n!8-nTra_>w{12*t)ga
z<c<1<lO6NoQx&z#?H)XQa8GxkPNKvw#<Vl{_oxY9&VK7MP3LRbyBiBmE%~OKp2oXT
z@zF0;f8U-IrOB!0lQ;OR$(wn><mr5^k2~KQh`d&g*&w%E<Ri=6nm(=w_9|<4Ratvm
zK`&Q}wxw_HPpx{oP&PL#ac44H8ONN*ao4AQGPM^geNp>%;f>YJGB-RpjQ0hcp0_u$
za`mc9L0fC(bn~sl^}mOxZb*Ic^zpV!r5Ra|tavw?zLR^gC42H5$9I$W%9)AA1}3lX
zyt<I<|NoryV{@LERIm2RyLe^#De;H0*{Tvt7pZ@ipLWVB;7Vq|73M?I?FTfnG-oYQ
z?_GB?_CUyji_wo`YmV|4P5St6rh?a#MPk!`Ke>PK%aySFqU^6e*MGf##3?N*zWKFU
z<;FdlPrV+l+tcZ{;-aH<*u5pWSx<faSYJ&O-O%(Y@YL)l!pR0pn3FH(Y3FT{<$F`q
z{pD@O@d)cvFQ)1j9=NomY+n1RhZXAcpFiaEU(CPD`snhx*9>2~-IV<sEVZ{a_eYWM
z>)c$ci-P=*uhkYgy_^^J>T7l8r(4hFSw#OoeD}-lMV9UlOAr52wR__*ug>7B%%V#b
zn}Vh?@4os+aD~=__CqUA^@LpYx0`>kO?&RFsdYbRG$j7wSH7(z&9fs;X|ePnamKH|
zc6~hlf9C2ZZO;$oO}(6dW9!#~px(|!oAi&J>p1dz<Np_K8b2rd2loYroY}rDY2RN(
z^WB%LK5-Rqo2bpu{#iDq^WE&;3ukWfaE3(uDL;_xvBGU@N4S{i`sD{_9{M33Zh3+0
z`fHY#c06(AM+4u8sGM$Bn8Rx};RNq1XFFBTxHDxQm$php-7dYdE6h3CB-oZYYgLNC
zu`^E^w`u21iVwfF=6jgS>n+wlw&*=|cqYB2?EtS5|CP)06CS^Kb$?;?^Oz~Gf5og!
za}!**t!&rM@aJV>*IX?RYpg6}VNFdEOEeGMd^XR?{i1JLOjmMAX`Ai_TY>bo@q0dU
ztbe;<)7xL!)>~pVPOK_C{=}iGT0HvF+*vyg%@t?a@inp`{ytBz_xht}cSJUv7k80T
z3`kfIFfDZF!*vN0LN2{_`?h}i^c8cHzJ2@bXjJ#2CX4w?Ui8hF3)4QSEc~Q6ucY(c
zvmlo#;oXnbx}6ssW2`B#+4=tOOdUS)rw#3i*OMPtC%LF_>7}PH`l9q8O7i20kmeKe
z44VAL|K(DqJ!@t?&MWpfW@)^`?Q4Ob-aILsSG0Am_tej+3+FIi`}*r~e3$MO=kO^C
zvy~I``lj@;*x9$v+sK;VHd%5H^V<ncZ-UA%%JfeRy#Dlhxn<Mb>T}so>yCScysp`B
zOI^)H=IdPN&!_Kcr3AhI#(&0y<KCJ>PW{q*_pf|yEXOU=9`^D7+eI(=RnG7W9eS|p
z>y-@t#cB7}d{}otS$uci`{>=piw*v7vhH`|I$yzko?~DC>`UFjFSw7jPjTeCUMadg
z`B27|WpkGpt(<e?d*zAeM&eEt0kaajUx`*UB=cA4tqWQCvn#uuDgTM`bE{N~!ugD6
zm&fk(?3(R5A%1KBcjuPrp3h>}-g4bD)uYjkU*&Dmj?N{CwYQef%$(OBwtw!9T>m?H
zM>p5Bab^7JbND*_m)5qdbDa0Xcd;D$nQisz(E54rkJ>8tP8YH@DYN?bJvS;f#9+p{
zb%6rWZ%*IeZt-ZR%E{iHQ;MWIKX|J(XD{Svld69qlk{fJRJH@c-fmArH{4yAxi+g+
zUU2`{d2=pAzjNYizPXnBp8dMh2Y$UhofoOIFL3Q2onNbeE)$c`T<^~CIesg<h)(Kq
z<|k>-iiD&~c1MS-6}jA!ywh&g0e4ol4UD(7*jryl82vuisV4Yom!neLmbX9M1MeA^
zg!g7uSO1ZZmcOvn<T%H>qQnROMp@_1={9VC*Y23HCt=<9#p|zE*(=3z9m(S=J*d%D
zq!W8C$jRqfJmab_R*H+~Jz%xG$+K<6nw9FRO*1~vnkj#{@<w&=M=|BU3-c;&wzq2q
ziue^y@x75?-LqD)(*DV7S%IwSQ;PrQ9Aa4&(eLniq4o0}w!EnkFZ=b%rrz3~moX<;
zFf7{0-LJIs%cbiJpL{zl`|9ERSw2%b<K0evP4NgeUfnW7*1|DQFZlX)Z)g9@oidx0
z)fs+!SxxdY^AnWh+kJ7SXZ&M1OUI{|3hype$hT8fyB_WSuIQ_b_u@ijDYg0iGnYl!
z7QWv-r#Q0pQc%K?eRnpWG}bs8^y=)S^yTR}?M)T`ST3q)3cFdHxiF>i#*XJV)+(jF
z@lj5G?zZOliIX8aTOw90*==;@pXgJTgqwkhT1%F1j+trpCUBjcPyYk20LJV);@{$$
z?tSfi7c(<`$Fu!2Ugot6Rwln>>@(sDzQDMhiEaKvExn*K@BPoqyyRD2mA*RYT}|AR
zz+W>uO)rVhx^HeE5L6$3+f8j%uhPQPbrTjImb~sQdG+qf0@ZsR3afQDegDdNyGq;L
z`1*`&FNqmUVm(!lz9%T{sy?>$NY%=(ub7Hdd8Q@pd34fu)8@0?)%rJY8cA4MbKjcb
zG}o`%X8E(dtya04zDRlf-R$vPM_q0CpXG9!ChVEHR_l%ByYCCt3iCXEZ?Y)5{q?xt
zzgv?|?40)}cV~0C$G>-nQ)<`joz(qua=DxEOdGkKXC{>^>@c`^^TpG-pURWH)R(tQ
za-MkkV#+Qf4a<Mh=^x`2{hJ&$CY9>?%@uAucbfN#v+wP_>7MPUm|ZX5^7zBV`0T?T
zhX%iJjsp{9*4UkKE4x0axpIl`m%ZLSZ=#9}HhkYR|HuP*$(x0}JHN{<dpW%!xNV`z
zm4(t5orRkExst1XSHAJs<W+il>8@ufktqv;x!q4TX1A>3(J{F+=e-`&@xoBS8A?tk
zbhjQ{W%Zfq&f+x7T+g!o{V5BdeLGt1Cw5NAGI^81_Z@k+?{PomD&diN8L?JwwvpM}
zzbg%GIGI|6=jlI^i|r3wExYJ}cGa3DPW@LKOHBJEr(KKuTlIf&X5)={T%qMXZ=Kit
zKejV}p)j}Cw(2umxHli4_kVYYOxf(~&W20NJq}K^ZYpZ)QZ-81Kh<(|(Ui^JYXUc&
zFaLQ$|C9hPf3W?EG6C=RdjhZQeG{dk`rJy(VAoTt74sBTqF+nu1Y8U|pU^*_X`zL{
z-P)(qD?}cJC%t(U^?4${U%6oEE~&ji8^Ry#jN{|Z->bJ)lK<wC-%V-XPyVgn-<WUM
zEdBgy<H6>2A)AG!RIyF&ysoTVE1|ukv~cyy#qU$MI2j~`uXA*Kyj1Pzw{*h?c|X48
zaCs#&|LAekh+XrnRb}hVknrobO)uPiExdgRx6+|6yOv+h{x5ltcYlil+uN<Dy$=Tc
z_P)Pga$3^${Xc`YaA<pYPrkZM;<n+jdwz#*<Xbf|I%R&WJ=1#CHbts2_7-0;<3r=a
zrys2hzc({*U2<yjNx8RC)?X`+&ap2vl4M!6fgyC(N{98IAJnh2d;W2Sp7iNi909Jo
z1a{u~<P!1b{g<she5JP-4oYnM7iX@%=oGhJO2hJtc6#BTBb3%Wz2>8~YZ{~ItdkwO
z#R7rK`^)a92c$jQZsi_wtXSEA+wmH&O9gY$%n3Ps-V)il$IiCuznzx-ap$9Bak@1h
znbmHxv;3Ob;=X2&`vLiF+C}Vd0#ox=)iefveQ~tBqvzNLv)dg>Q|IQItV=nVvg!F5
zh2Le8=Pe{vFIbuCnug9hrd9v%Yf``my~AN=(@xYiw(OJLAGG~iLHXHbE{}~B^FLM_
zf8FRHIAy{|iI_>}b8fY=#w-hcR&S@}RR1>fIh&n<<cD7s-KGzjw|K^G4_lbr@+x!F
zR?9lIHlJ1h%Xhz@kXT=R{~=dBkMYN*_ZwFK*r8Zva)t5D;rf2#JIBu6uKMQ|<9~eh
zRkam2O2d{+cDZx*$n26W+e2%wta-UqOzZJN>8(w-*RCmv%;GS-6%jpI=GB9oXM5w@
z4zH5ipWk(KoyXekR~WqaR7kvAJCC7}Z_4e()mAQU5_@mls((^seNWKpV6~Eu;iTI$
z`)ix;P1^f@({)SZJ<AU47wKnsR~-<TB>boU&8BC6)1uGs7S~n3nB>`*@PhrcZ>O$J
zMalG>>ANL1&0+iNcJWiq_dh%{s?NMpK4Y_;bL0Comatm~oqeyaDLy57dI$6M2P_|d
z%neUsaddlb!f|6p*}CQL-Z}dUvxo~tPYthcXx*xJiphN1tP|y8I}}f!cxQOn$jWEo
zPq~+AqQ{k{FigDs^$2tGGv&|M&;54ek)6?=`fc~KXFNexOh;lK<eqzOp!ekJgkOiV
zw6AYmcw&cU<gD1EA(x_a`=$5t=&dkaH=~$)_O6pE4=%mga!Hdnrc<A5Wm--8_c`_D
zvWXkC@9v+aJV%mK{CIS~MQH5D$zL1!EU$jFJ$~$=>x=A{7m^<HZ@hO;Q+n2>kabu6
zgPgAXx1Y>i8?i8DU1;t3pBMh0KEQYR&>?#_zb}ohllpC^b5{nkP1re4{HxY!ZeE|y
z7PWF}m4WjaPbVy2#9wKvALXpHt>fhX`QmRsElRMGQu`aeI73|C{}=z=FJ=w=PHXrp
z?(Ni5Z16Agzq4YJ<k9j4yFQs_M*NVGUb57HH6?T!bDrm|4yVHCzIW5)7ZwUB>)dqN
zIBOmk%hQ)R;tq~;W;-vPCbzPvf{m|$!}rkJ!<RfdIo+aF($dd}an>`x$yK=G&c5gG
z$F8TFw@v)?YImOc;Uy+|;Wj_gG)@>!v|h_`bE!mEC|}Qu$b=<I@0ya{bo^<2lkryh
z;oFi82GSFn?MjbHxSr#eYOUw=%{ExABzN%XsdlgMc8>4bYq`}Ywe5X9OYg6<*{_3#
znCG)q?@Oru{N6v~)9Xpf<~J12Y|`J@>DDwi;`RB&rNv&F$!^ErUSq$z_%lPzyBo`=
zt8?>lfBUpJM0bZ}gktr*y84Z_e=E;TIh=N(Q1Hd|z=^E?=Dm2qD!{3&BOo1Jeg3+7
ze`i*IpT;~5?(Z_1&V0?rnKS(Ae58L!n|1t(o&7C--a8?+Cq;r5d^xP@yZ_#^SGV8I
z`zBJ3B}cz4Ei7tF4;M#B)7^QWS#?D#en0pd$=$yt@wQ;$(S3(3e?PFPj-7pKbFM*d
z?!2k5w)Dj6e3ZADoW0R4uqVe~<csFAfO*dEtLIwtX`SCL)SYn1t1fN!$}K1EK8oOH
zx*YNCgSa|(__NDDrBZ_~#=e{2vHqIloe-`Gjdcb$)=oTk@I-oF!<1f*5({pT%VApj
ztz{xztC{OJ{`E1mwE4J!_gnN2!4r*6ow>^2S68ITY^?uKzEgIg(Nym+o9rI_+}W9u
zOmYIxHy(X`%DtCer^WT+!zHB_Zw>ADIS8@N{&u?PlJng8Tk6-h%$;Jn>rOPwl;=#R
zcCE|%e?H(>RO_Vwi{DP&zto2J$Mv6#b#GOcoQ|zt#Txj9eGRWf)*_#jZEU+!8Nc!M
zIq=IL-tsqV?y@Nsc^#=jjlmhhojs}(ju~Y9Wu4v;$Jod+GvfB5+Ucuz$S&RSTKWH%
zmP2Njc1C>Ny?(|VWd`oBRk{5qn-2dxqI%}}`t1+*3C8_h<8xK|oO-WAT<-S{d*g`}
zGh6eYb4ggv+m`(6t7iVm2({P^KGJs|`I&L)PLJMdbn>IlX1*U%%=~>@{y0zbI+qoB
zej&%9$Je_i$Z9s841Q^wlas4><5FDQ@;!%d&DMHZQq-e(-(z-bg6a&{N1x@kuYITb
z%r<N>`^RuouW7bg`<5!HM84nI@gU6Onw;5l>kaiqep-nZT-C8D-b@qaV{EzJd^hzp
zNiP1<qtVR!olk$ux!)6<x0l?!dunZd=H2IBMFG7^Q$xExcG_pS-}4ZTnZP8h$X2+B
z?RCxVchmK4uP-}%w)s%>tJ`MI->>`s<Bj?o<&>J2Qe0A$nwZO#nwJ7vXA4<f3t|}>
z8kktXg)J;G&tSDQAZ8)%)!Mu3V~$U}Z+E%Qqai{32E#$$Pez-c_4w77-!5pF8n!!W
z!|M}9!uB`Z3S3V;atT*Somlq5=FR?jtNyKd7i^pU>{C#oLV(P<IhU9FhnHSmZ})rm
z?57%eVt@4i|9x}YUB32V-oAhTE*5?E|M2{^`+ZxXk4>}xT;H6ZZ&%kPesgvKPgqp#
z=P%#;FWr4~Orlcc(=o~7FaMss+}>ZeS@<{eA7zfjvUPQT?q2@?>&1fR<K6t1WSTi1
zK6_cb<4^eSrxGa~_ul*I-+rF{yV)XYb??2}t@aw3{r67ZoxRsaN_fqUy$8InCW!~u
zZ?F2khxbFM)B%p&%7^!L8Glk-ad&$)WAWup_3v_bFR<;o^Oe0~28Y3hCHMCo$$uJ{
zW$(AqZ<&uE+XnZyTRC=LzMk76UL7&j^(6!Ifr!(BVOIN>OmKQyc{H^4=Dym#$FCM|
zsrznQ(^4oKQ&4qp-2rv(+ApW3{jA#l+xDJX-;XVOe7Kf<xcg6`|KP)#{)$G+Q%B#{
z?LI8Nsr$NhJi9=3waBUH-M`=N`_rQ$_K4%n$MgO3{@u+lQ=cQap`AN5@7Bbtny(p7
z`)Ay(+h09BZ~D2nafi=b3EWY4@%D=4Ww&4US63KsWO1~7U>LLNa3H7Y^8UtpOMmyj
zyVN&)a~HKr`|&r9F<L75<6Zk-PG0xl3NB5kxuG`k{QoW2H$1pCyJqbsb1}IUdk$vb
zEi63PCOu>0weFCY^VWa+mmy<h7vRGn`B3RcM*k_!x$;(Tyd^wX>o4;<Yg{a5)9VkN
znXcT)X`RBv7#kLyYRd3wVQgPi$KB}@C${oft1O7?3wq_V;77}`<$-D(kNdmZzKgjl
zPq%qEy^?2Z_3ex)>Vc7BH&xGH%qTp0Om{j{`D@h!pRc?-`EP?v;}@$*5mpJ=6~;~#
zaXl0APu8gg@2Kus%xJhIJI2Vz-D<(4P9^uM8<m$Pw5qj4yqBCJd;Zm{&u7xFTnv52
z{Ebm^!PexN$EKaW6_<Xz<vPQ?OHW_vC)l=JJye|+P`;%uvPQP5Uw=*it&7`RSSJ?n
z2Tgr`X7`?+C_%N_sp38X$5iC!U)}1h!}eN7xcjBa%#~7s|0Eh5t4xLVi>|vIlG|dV
ztI57BK#F65%-?AoH;!DtcT?$R;3^?avln7hK01D1q~2X{-0OOw`GvE*!81>2^Hx8q
zsuZn!wC~fYW54rvCD!##Zhsq)H_@x?yH4T3(=PwBc2uPtKGn2H@5|#Q_ZXTLR2vWc
z>ZtmB+xEqs?Y;b+Ub^ABax5`HZf$P@%WV1OTxQ3!Fv!ikH|cJ-(uLNo=C3j?w{i>Q
zZR83wt~GLa_)GTQ@0XX|_t$*6%X`V!-KLHCJ_qmR=HB#NhPN*TAJzVOa?#!Y-_vJj
z<?q#feX%(Heuuk!ZQK9fKR)|ESg-!S;B$DtU2W0l)0$tTf2t(gGs^J&N#Z@AICsPS
zYr8!o>P5IVe@~8N3E|N3YOu|+{O3^8yjrGj(}oN0>fg=(r{AWa70-100>j7DiOCvL
z4f=Q98HcbZ8J^0V_toayW2bA(4jL{7=64VO+iIYA-l(9P^W54r57k_?-J7Nf+~rKU
z%C2J7|Gkyl{m0R!Yu9Ez^UPdu<={!tg9?kS#HR->j)}e}dS%NlpVbr6nfH4-ORm#c
z)Av?IgDc{U>nA6H7O_8N%$F7#+<CV=^WR~glsW&RO4DY@EZnt5N&URYGvU%nEDM%>
zyy|H8@bM#w|2>~v9`>xf#&A(tmqQ>|Q|g!8epaQ3aGz$@4;NxDv#wBS^pa!XXf&3T
z^A`RpTadTK*ugd8#$g4%|6AA}GTyoW&Rj&$T=n-Z-=}=;n+zIW8+`wtckA7>&AZ~v
z9jo0h@a>zyxK=^tVvK%8=}a-V&}_l??|D>rIJkef!1>l9GWx;puvs(QTnx+0!hTAu
z6yIc`G~rQ8Ru$tl-ZVb_fDlI8cYekfCg>`Oofdi|EYq=GSj<5xc*aVx8z$Z}ZXA;p
zJDvSu)7pcUr`Njg>5X9SKYG*BD{oO!=fsb@CapNzlJTI?)!~ffjxW<@fBEdh#rubc
z>F&XM?g6GBf@d*$|1uY0Uz{m)SM=n%+G}F#oij_ar~N&&-qNu4WbOuUMwJ7LpV_q-
z9pH4kaNwqbX?cCm?K9j4d;M}v_vO4V>Uz`mTl(I&*xkRD8*t|*ie7yu-^kg+o6tRn
zqtNmebI~O^3%7`Q@d=X_{9U}z_U_~;<vXv;-fCalZCIWu@|oc}qiw*k&xaPdXI!zK
z_}%VJ*rxSy+ur`_;d-zs(qHFbq%Bk1dbL-I%*qU6!X3$ihjbQKGM#5`=6n{&I-^&~
zxjI6^U{+PLL-db!;oxr<GYSs*&G+nb`k^A+Blu=^<pQ~=SKkeFXD_RZxV&k5RP`CL
zQ>F5~X-60QOr3K$hfAAT<LtskrBB#5TWH@XH8@b&UiG%H{sY_H>`7J%_Y_*4K25Lb
zpU<f9a_Yqy-wt#Z-&DyKU&B|i(Rpgrj{~3iESMBFo!73b3*2k)cG<+zN3FR_SmYh%
z2b^`V;8xi@?ZBH;{62XHr!<r+?(VY+?pUJW^y^)mo1TJRvc6f7a_{}yCs?}_PP}g0
zxzvmA+o!-4KQ8SMndTtuRH7s``+K`qoYo{qgIkL~&%JKme^QU9L-N$Wj=2ffK74jb
z2o(Nvg_pNUOGNBW!44P8G|eM(3K-(J%a$=sy{}@vv!UR`ncv|eX?LRUxg0l=T<E*7
zHmX`ab$R>z>7jBrf6h6x@9h57Txa$!w#t2*D7$Cli~C*Of+_5?CY%+kIN0-Ws^q(V
zZUvQh(mO&bZX98e`?z~)yWMt+xCYzA3Q2YAjWtt`)C)gdz?N~St43t*k;xe?oqHzO
zGUhUWKhGfHRarIXUxMzmpWkoSdOlmke`iZc+2-={JI{|UX8K_{HT`LH*($?pEWi8b
zzB-f_Id}b=<yJS&H#6u2hc;YaW&Ftf#Trhp%_U3+7YNA6?25kC74mL7|HG8~pD$=H
zvGiH-?}5+l6(!TsyYupIPd2rEw<_S}nMcd?K9q0xv-d`++{Z1en!3anN$xn{)WjVX
z;JDW;!r;uLr95mtZb7Pn=k8BCY;n-+<q6?4vU4+Ue_;<grIq-u(7qv))49=4$>%rc
zrJHRDq037?ZMxwa82b77HmCZ$FV+)Vckf<3#ow5F*WoiQh5MQ;8(8<M@Nc<jU>wrJ
zraVW=#qyo&;vQy?m4Vt^*Y-^?vRw3e!Ha)!i(36;LcEO+PW!dg%j>8m)28GfKGI*r
z-_8^I{L6Lu_D#V}E7sm?&~KA%G%wFT^=P-qrXH_~M^Wty^Z1OcZ`6Bi`+0$p`^yaB
zi<#QV8@Uscc7&e~xV^y4V8?@5t4qJMeB11{>!|4KcQ<F$l=VD)x#Rn+KL+yiZ8uF{
zn`AHO_&xgDeCfxX|L?GIe|m6CL-j)czk`3Cn;kjcaEC!#<=1)n8Hdtq?+SC3e~;O^
z;o)Aj`~0>7Khz5hIrP$5IuxDk)PuU3&+hus^Ly{T?M3^WMLX`5&;5{CmLjsd>8#WY
zmz%p49IEV@I|>dRT(?)@!rV?RozxZcpG$1tth$g(H&<wfN>xX~vgfnoR?ev0Dx$%j
z<vT-_W8M`{K2hcOzo(pk*fYyrM9R#=F+2ZKt-{K=3Kj`W?^Zp}oSwhQF*fJmBHwb!
z<x>L^ojbJajn|h2tW5Oae{8m>Dtz0tjny}%t!oJNyyH9Nz){7#pBHW&+EkSC;p0NB
zb<@{vf16`==#TxRKVdJGr~Y+2I%DNGL!Lj3%+L5{yk^_GA@WQ9zVh_hF<<XV&rx_A
zxa&bc$21#5yEB=E_9ib*oQ~Y9o1T2bhVSF|j0FmBF6~+V^hnyqnw!U^7i(MpI%u$+
zsg=L5RQPAD(m$0)jQcIx^)u$2dKzc=>e%zxNd3(}mqpzu-jS5{pt9YJ!}P<C1st9B
zUmKk!t)0G1p}hW%H2bHMl}aq{@0A@sW*W^St(*H{-t_57hN@pzSuWORf0b^m`1k0y
zSm|Xm^b+p<eJuBdH6pC;Ly9uPmJFlwix*5((*7&GUZw7Y-rp&)a@mv3b_&Q^?%L03
zHzD)VBL4StJNA~kzxn*RZ7N&i2AxpnJJy+3^>2j+Rc_1-cKy9VI_>tdMIX0jPdaca
z$v5e^$))|%X6wCr>diQ10mCaR?Z5*UK6G!Lys&c%`#+|Wyg^}ndF4Vk4$iP#VY$?L
zztqW#8s~V@U$W+8nH7E%I94@hlkS7hwoXr+w@gcW&1YEDnOR}<!SS4)63g^oi&rUb
z*`a-J)AdQ)BdVpclhib}uJB*N<aLne#}8A<hVr_c_Ph*+m{UuauD$*y{Khi97VhMG
zSDOE8`kjneTe^LnHskg5Wf#2pCEicn@FDTLWCqJl2LE?{<?&+Ti8CCkm#{CB=9u|;
z&X+~Hk;zFxAMV|o$GfWOedubFPaQ^kpBjGLtQhG~b4XqBM)4fWgaF;-Y5sq5zLtDk
z{QR_s9Zzw%(5$6*YcHG0FSP7^Z1VipX+NEZeD0caJH3P^OaIKXUOVmaW|ynAH}`B;
ze{}M!cfynfpAU!BHLA)lyWGA1@8LZKZJi!ksmX_oKCbBtmQR#dys0h5^C@fB?5YDg
zm$R(B7ka7{WJqrh-L7M3mv*r1?Vfo%KKVQg|Ja!Hkv}*nN#o2@)z@Bb*L2ik3`{5A
z_`GIU+vLk4K982ZIjA<-M)i-5PTg#+m^p9F{bdfGvYX6x(?aaZiOvbx2^+;<8EW4<
z6*ouoOsm6*ORqxmE-!s_DycEFEY5ju%h&q;+48kwtFsnJ&FDMi*s8lcK-X&~>!KCg
zpE9SNikYVu-E9z-k+LCDR_boiw;5BHu1fdFDY@kG-EHr$^%GY!d}e#B_s#JE*FvU`
zVJA1Mxg5P(n|AI4hiqra{V(bk%E?n%ebpW*AMEJWZtuU+cKoc9>W6E86jWyHj<d05
zDOO&#CtT~|<7NK;On8q?DA~Ey@<g#@r{mfT6Dc)WSAWw+^JAx$L<g+!bFy3Bwx;dQ
zQ5m7C@T0L^VQnwW)i0HwW_0)xDL&I@=0Ufh#+}!!ofB`mRfh4KCRK*-Q0Up=*3-Oe
zw|3(@J3oy8Wq+ksjeTNUyF{3}pLr|{%yDAYS*G$$eq~ZNpQ>HRiu8p}DXNOcy>@e~
zP~$M$G~u{yf_mf<?cT0Cy_3H#cyrfv*<Hs4r3G%@A5JcCQ5I@(Wzh6prX9LCF0o7G
z&WpaPq@53Tgvp8*MjC~z@toZD<Z<kDo>ndKD>+won58bAf4Ws_o9=G@dEyKUE8pH*
z`e5~xll}WS|J!v2xO6Crtos>Y#+a$FW_3l{orOoQ1`92kvffDK;GHAc%vbtFmF#oo
z&hh4d+cwimLiobFeX)fadf!&IWX_S8bk*w0bXT#pcClCOzimC-`f+7rxRTX9p_1<m
zm3=QA-#s!A%y@L#CeN_HuvOW;a^B3=>#}Q}nhHMWIv};{$@5P!b}cskW)mV$7yp_#
z@%hKz`cwIx&c1UezjLhJGhID7=CQ?|{I4rq*zGyi%`f?WAa3&N4%x`Nyf*KP-~6?8
zezMtXv&^R=1&55C3%+_ZOS5wSc0A3x_PAEbRtcR?{f7ES*ZR!<#}gau{Aype$_&$6
zt18>0Gku;b%Ad8*k4!cH&}b=Y<!>TC!#KLpa`vLL(tSNMcKKKt2qe1MwzKEPYBrqy
z+M=THaaXbRh68Hi;&V6t44=91r<{1m^3{GiC!A`RGe#7-8i`gOyHilX*|g|gmF_gg
zz?By#EIX}ve_d40%mva%GdIt9^XjLxu%BDm8yD`j9wxOEEh*NW)9rSjusf&{rj)7g
zmAc1ep{|Sfv}1Y+Ywmk5eE4@k#nR2ZYuPtG)oV746L~*p_aT>u&SxSfY?|@<<CEWQ
zcg}pBHM#3h_T(V7O|>UHe^%CieDUkWy4;tsCoQ=f&L)0}yYKT%Tw<xffh!?7rHOqJ
zK8fL}(@%cez0~~RQntj`E3aI?5xO=1nTQC-i{v*=iRH%9-rC~kj|0x9U%0t^y-<7Z
zjhIz0Yf8*AnpNjztv)raW8s_|sx7J~>K1J_`Sx{}iF?zr+~TBNrCP7sr!f0BUw1yN
zp!wwi(=Dy-YF*187H&#gJ$F_2*ZW(Qw6FaalD%TPR3#^AW>)ovJ5_>duf(!e<{3CP
zPBeM4?9!iZ-(|_!MVc4yFKv2pRO4A{V4iu@WCQ)_$2Lk%QW1Km_d9ycTi&|MQTq(n
z2yHlgG_`bI^8w4LdfBfQWyL?3(x8yF;r@xbwC3A2z4=?`EZdm7Bq2ArWSQT*n&?GY
zZeQx8Le6>@6uSrJ1s^eUc&vQq^EIaxM_5W#N^>U0sC=9BHO+~m?Th{H9rLC|1U{F2
zc=Y3)>r%18`btgu*#Zxb%XF!)HOM{wts-K(@@0{OkBlAcq6`HkgO$`RH_zNX!GfQW
zXQ3hcfl8@`TUK#>wP*NN;3yqdG+WNM?uNnDfT?Cn)`oMxzMsdku`2risdL^+AC8(t
ztZC7$di7L(S8mjr&V`xfwTD|zXxh!mY-&1J_E>FUR90)i^DOSOJ*vrk71chk9^am`
z_Lqm-w=cdd+>dx~JeP}hzIAD4&ekS&{u?{jsLikoP`nUUr+CV@qI#V`hs|%M`@wsE
z&3W(1?Cv$;i@m3O?B|(VMB=xW<gnlR%ocs*YU@w)3g(FJtWBJuQx>tuyWHR3$1kzj
z`n0T(camR6%=FW?x7=!jKCiO9?l9@Zgc}8`{nD>hd%3+oelt^l&IjS0KbCmT-!;#4
zr%lN`GoJ@d?cD2=8!xtd>$#tfI4)B>{qkwg<jtR51ebkQjdh<AxXLc!)4$TCf#QYk
z3*O!^+tFN-V7*$>S?q(IdH(MMc^OJv=d|qS-qByGVtw!5`v5a;ZIjba*Inrd*7FZ?
z{;auf+ml;8PRZ9E@af2vJzg1^<mvv1UqSEC?+)&x-EpT+cJ66f`YWK!S9&SSidFJK
zJ|Flh1KKp?1ZL^)D?SnbY@X)&y>YiUIyXMl5?uO3QS?D_&c_>N{O`|gi+-1LA#vFn
zD@VbcrN7Snm6Lr`o4jxT(dkF0u`lI5(xB<J`M~#MB5GHa%MRz{d~SShe?NIw>%(51
z?t}-ED)-e3ZV6avV*SMZ-+wNR5RPv~oPkOUF0Y)vZ?4z3w^7q03UyL0$crf~>AS$R
zSE=&#{Hs|Ji+UbyT)jDVYh15qQ_G3ZUk#&|=rUv}b~DeG6@PkIzwda$$(ll?zC&3`
zt~|ZZS2nI)w6)cOZ)W|6hwX}a2hMG|`{(kTp6RR2RGYVHsV;XYh~KUGXL;?a-g!$D
zcImhmMS1Oc`tGU3j#u-AH#NM^+vUitf8)U6?nR6EkLv8(-j_DRJ4wLnAH$JGcG>EC
zQq`AwekfXRvFiGBd{@x!|96DbW2eaF+Ih*^wZ&}vaZ_T`?SNeh=cKOu{4JH^xSx53
zlflWiU%sxpsnpYL$(h$taAei&qic3=IR4XbvVrNDi56a&S0??qyzE_I&2fb^QQw+p
zYSK{=@`;Atem$Y~-Tf0AXU50=&^Rs6uyfwor*}^Y*2jOpRp~yv^Umrz19xf3T^5~s
z8$?6j99ep<?9Dxnrmv@E7SAv=44w2&#M^mufAGxUfIc@9<IRV&Hha!D4CV|ze!n@r
zCn50CE~C=s%on@sn_@FAa;BL{m5Mt2d?;Ny)oANmE>2Iil4q`Nmo@f#${)7Bz31#R
zuS<%r>`QjNIartZ<C?3x-EC%jj;$%%Os?I_;NfRjR_7&kNJmg@_OAHGLI$pn=QY><
z{9S$T0NaNm&a6x4)_)btn!H+c$>u-ZnY#DgG@F%zUI||a@S5%EJ;!fJ?7c;)CrxMS
zZOxk+)%@{^$2I<oZK}6!KlPlvBII<d+PxoUL96z&2(Pz%{B_CoXA4e$X^K>OHtSW)
zHnsk43)#d~e#dh^OP<_*phr4UHNJ1Af0mH(F1vHbzjS!^v8LrEu+#>oYri>Bz3x`a
zaaGR7G>0wTner`}ldoDd?C~#ViI8Y{b9!4?nsWa1tb?zsM3SCJ7BAejgIi(G3(q5y
z?RYrPmdRdG4m-jl*|4*FfsA+2j_Yp)Kis~4$7=K5Gs&;{S0+7}V%^?qx0-jux(~iR
zLhh3ctL81&&GzpzbE?_c;;PFdbh)&EIc43J8P(e+epR^ivBK7`C@7|7@~e&d$3C+!
z@hKEK^QLHyip>4lbB=pfW&|`&Ph9e*JjvkFo1IDb%oDF}j}}mVmiXnvkwDL1d)Iv_
zxNL81o3oPdTk3lI34DFaOcyu1&S(f&)I9ll+BMgtpzs^&&WDmOR*I{#Uoc5KwlTWm
z#m~)FY)nfweSD}fcV9vKVd>c~#n^2n{l8{Me|5cm^2hI{l~1?b{^mI?TD)2;Vn*ZV
zY4^-*yA0PgE_wE>Ajffzub**Sr2IxphuM-RTfH|II$f*d-nlvbY|fc<olWUeE<9DT
z_1gVQ=G=!jdL34E6HVf0{$O{j4UdY?cw_fI%(m-Q)pDOtLEq)~t9G*G>b4on6<iSr
zE35HxmcCk&b>-tKL-xoeYWoD@X0YmWX7iml-mPt{7t#K3!IeXMnDv%++MVm0_u7+1
z-S<)5f?&JHnx&I{mR~whZg@K;;MSj)a%NBK>gpyZ9(UtZRLyY@{B(bnhWx7Ei?qzj
zE(N!mb-G?zwn5|Y_mhj0weMYhX()9jek;c=9eryrqtHt&6W$9bADHd!?|Px4z*Fjt
z<>|Y^)6TryKjXu7mGc``Z@9RYvsf-9qUyriS@N#piYqHsKCG7AFR*;-=bEnzPV5No
z+a>(5OXtR$kGHqw8pnmzRIH2GtKR(4Aogg89G~lAofXFe88=%m<@8#VE_V8xpy0;V
z>E*kWOO^`py9?;{+imRndQN`N&qjvm+RpXX>#|O++!%1JwPxA`?R}wd`X478wJm$?
zc{7HIw<O@KwzB`N(!<hA+*8)6wn%2mKi}iM`HEYiX=GxQjNIwGp4E}xGMLWs3cY^h
zscpG+)?4G&J>AkVzgKL&@hdIPZ2pOD|7Sg%IA^P5{qZPO>ArPx*IM_l_sV+o_x`e=
zX3GN4xjfG2zW3eVx58?7sqcb_l-@Z-V&yrV&u?+Yth@Z`X1t<UtoNQhGvBd?WK8Mh
zxca~4ealzVWx>fcTk|zfe=wSv9#Nj?>;5sbSv8lTUN7ltf~M}})u-OoHZLvFn>z8&
zr2FeCxWXU)WzDm?no`=4U1M{9??merOB!8Pb*`VXdWQO%x%vi^OL&u2->%BdKUZeP
z-PX+fnqy^p*78T68NXi%%RYJ0sqXmZi%f51T>XzJ9{y&1Tw%rcyj|sI9`!|tI>!B9
zJ=M!y*Y=TgP`lj)_Ez@|3ArbW7`_Rqb}_~p&-r!leTU)KZK2oIJFe<CIXb>O^W|*E
zuVoyckJtRFw$5zIQTVrKW#3=(+1I8%?%5^$JlIsYwCmp44|S0p(<lE84_80^MMvM@
z&%*VgMX4+5+K)ErXue2(UHy{%&bRr?>S`{Pb*1Efo_O{|l7W+h&SXO|?@+lJtJtoz
zXuc?0nklb*#({gGpM!<{&7|2oX1`LGsW_;0y|3sBgG~Hlm9^42MT>sVT5A1ADtOMh
z4)*SM+|^fG!Y6InqO<6B!RG_cn>H=?-X>YKAtAQz@bvp#C2j(``&%7TthHFudR2Fx
z%&;!5=`fhv{<g5qa0Am3Wr5!>n+$#L+O1}At4X|<X7!f!+167hJf+IIR>tyrELZ#`
zsJbQZ{xmhcNm4)eTfd9EFMr0=O>uSbx~;#Ap35|B5ZQ9G(z|>|a;<Q`_x?m%_M(e(
zb+`4Nl9MUj_qoLJd4dIp^k(B3@7yBgq?aepI;wInWLLntBTp}^%|5q0`KfiD?U~rH
zxhb!*BiUlkNz@;x?B;Kd&dmG!^pS-@>W42%Mh@JCE*D$RE|~Mev99IvfmRkj_cNTk
zyR@dHDWpoS5c?u~cdFmY?)hiF9e*1ww`%Kct}T77#~IU@#s6KFYc@TWJa7L&A!FsT
z?J}J6wpYLS+hW8qi+M%5!+!1C>0Ol<7IXw;Nl);RdeY}*UKYo(H<$5#(w!@Ju2-;n
zdmb~^W($>L&{<-(QZQ0#>t1GQ$MdV7`tCjb+m7wEdc(G<%57cQhA#~RC+OappUC>_
zx7zdeXUE?E-F4@qR{!i7_iN)8axZ=Hs&<iTky28Z-IE>mEH<AddbZXdjPidzbyjKc
zyB#Y#e(^DEddGU;44-_hZrVPPoC3$h5=Py&_Wj0}mI}-2PwUZG!v21Vm+d0Cd)A%b
zwkaGF=-gd1`HuCj!$*!RzL`^QS*Ty|>`mvkhMW_1V)?RVNzeWDZS5`I^WWnxQhMeQ
zCvvnzwe{wOo>|RJtd|Tv)k`u>U42fqYr%@8Uyse<%$1A|nPhO|n&H=y<6rAm{#bEN
z^6MsHw&&%7xAQiB`5Dqz6=bid_EvXy|NFEb{mdI*h>P&FowdE_W5dt<aAgO>Vtd~6
zpL8`gs7oE(Wcc(%d+wS{ZR5W>+oe4vWscbY>%OR)Rk1zUhA|*9<4Mmszqvopyi1<q
za_vT1@}?pMtxv*{pEG7L?Kz@;V~4aS_nWiZzb4!JFVPdez4GVD&zl*%g<tKIUi9Td
zbwao4v5jw9_`T2glu2q${=<K2|N9_i=ZEe~7BRePetM|A@Wi#(yB?V@4cX2A@mK%x
z2}_rkJ@=UVL^|<SUE-hWIbBtm6-x3?xtH8NXYoo>d)|!&rgsDP-*dmn&U0|PiCby6
zYqXodlT&l=9QftsmBZU_u%gm-(w*~adL{k&4`VkRZ=CC-&L<d`G;7c1X2(hO@te23
z73%hzyW!0GRqic4Xa7z*ULu+^&!gnp{FqA%QmkGquz9mc)-gtI@9`b>Rc3O13#y;z
zS-CcpvXq}ld69PE=k%rF3^lRk4u^Bkou85>thUdaw_W_e!t93W;el52i_h^dbS~6U
zzr(V6sVH-exAEf@2~k_qIwq|yVcax#?@lRk!8@6$r(RqOdbekT>h9;2cKOb$9(|dX
zSWv$<)ip%!@~p<sA20G>OJo+Al2<$L{&$z@yf$-hF7S3uj6Z!U<lpD%s+$-MJRNGw
zl44!VSdPfIEaq|HIZ!pL<c658>dafq=Ved4d*sfv?&D@Yb2D?}zrLv#;0k7Je__1Q
z@m$L)3C_|m?$sA$J@;!l$bP<<TK@CK`!t`KD!DRgVLcfSwi||I@7^BTnkc0&GkbgY
zvSMFZcCCajDRP(k_A_(j>|}MhB9v8g^S98c+?K-?al4+XJe(Gi``v$&ZPLy<f8Pm*
zYAiRtNr`unIW5G^aqCV|W~@Ykfc~smCNFQrg{He+o_HjDgCEO@dy%bcHN<b}=5ha<
zaMhPj_3lk$=B1}%`#-N_=zbHl-v4O+gY+)JkG$(ouT->bP3NAKy;po;gR$M!-=f<4
zwR|>Z{+eOD-um0CP0yEa{BrQWaPbZu-jyF57d34&*c4j)EqD4)cbRKzo@AXVQmQdk
zX;o;Qa(iQ+)2oll@#|m8)(YBZSL#RCJ$hri`MHqZMM)N`2glzqsM=r9jXm;l_pEyb
z=VtBkDC}?O6j(F$l+=bDt;H)dzAe~e^ZG@gpBuZ7^_063tB$KwY;byB9<t$+oA08z
zKN|wrgF8Qe__gBjnP_`+hqcyKE6sHSbeau5IVD=k%&R!kFtvZLP<UV4A3YDn^od2X
z&J%P3SIz#>(zH^^o?!t?Mxok*vTtV?Z(dz6_xi>&J8z$yTcviKH?=`9`fhCIEz##m
zvOz&<(O+~XHfN?g);de86l^V9yQp~gHNCP8rE_<`Dm?dfQdvUe+Qc^pWIB&<$(;G^
z7029rkmJV;{%zgjmsgzpJWchO$@_Qa;g6(Vw&iWDY5KPFKx+15i|wmQo=2bio0YTH
zT}pSsyCbV#ui9gN%&gXW+H0QeuXX0!(w{KTz}{1Rk8;4I>B&!b?42?x!ruR2)|-P`
zntB$3->qLieE3)Y=GW9uouBpwf9<y2#=-X1^L@s@xG?SuI+GM@b#8R5OOrT~w4M3=
zdB@JFA5<=t&Ptf|x%`>bZLZRg&qt~<E84^UwfbLb%inmV#_v!>Z}PL5l20|8H=bB>
zbo0tSP2B?rq?%?3IqBWtsoD04;dxS_)9JjF*Xs8lOifsQ>*UGEyN1jkPdx~q_eGTR
zWZQ$Ys*4m7jSeQ<OqmhzI>*1KvgnRT32XD$-hJ(F8K+&FW2pLjhF&p)p4&11?1j~O
zE7!&SuD^BKEO_g@2J4Wh(zRO;9=dc<-cs?Mz=aiY_hVAd{3`$b=i`kJGlahAYV)nW
zIY&rAOmwo~O^*C1$p><)W>`t<^rbxcb!Stcz!$a_E``^OSA3Q-wMvQ<Y~S<#T?F6u
z6E~de*(O!6FPp4%?fb$r<=kmopDHJ=xlsFNZS={q7YUx<RJZZB&J4bAr&6?SfqF*m
z_YaQ#f>AqvCf5{~h)YKO77CM}$gI*?Ehl4^%C6m2Q4?{o#$4jh^ZCzq>`2z+y(qCn
zy1~4<DSz|K7~6y5%X4gIsGIpl@|HGj{?vUhB}3|q#k`>J><d^9TvF}&`AOrSZf&*q
zU0;Fb&kB40S5H-Qd9ZIatBLl~?s;c!*GxK{^y0lN^D~D{_x~Q2`@MDMg~(&N2iyX5
z$`YM8v(J2sj+__lrShU)K=7xpZQvu(+3_Ar3d);|*EM*5e0}4m+T4WAX$=AUr`!=d
zXMdVq>_?~EI``?T{A|nCy-qXXJ(+#f_wGy0PVMX7j(Te+9KTy;`LFfr#Kbu)Y&*)e
z=CSyFO}ou~<Z$Olorv~n_aAKOzi{{U;+aZomwZ37b8`&)&W0K4FD<rTeBR9Kcz^DS
z>E9N}oGJe<eQoZoPM<L26-&1=$r<l*{ItC1-M`)3#=8plvrFyj<Gh<VGj-2rkBNHG
zu6%c9XC&yGS?`tOQ+>bmNk;#Q<0qH){=4hj_~!aa+hsqhllU*Z*}UpdkN@rcx|#NK
zs~ha!8!jnkPS4sm@B4{$2UJ4qYwsm%w%rz(VX|}OJ?B$f-_P=@Y31`wUAo|K{xe}q
zz4<T7kN-XR++;;(^!i`R!W?HGydYPWvr4YS`0&QQ^UvOX|M4avcz^%f3LiVRV*wwX
z%Z_*MsNMagST%ri^5+QNP}41SeLW7#3Kq4ie?6crm(S+C>*ew1#ZymxRPCPW5E&=_
z!RhVqk_WwS#ii$7sqkwotBKUHzZTYY*gu-1xh!$Xx`|JoOx*Hp_REchM;nd)K8)UQ
z&+Ns@%l12E)j6BiM4m8Zov`{N_p9#0DGKXMPkXIr+;zW^Rqe|A`xfk#X>U!64oh?%
z_r7MpZ@==@wAj#m*F|38o0IO|*xoR!YmQx-wD6sYTjl#Ij>x`kD_Q&`o^N`8ebUOB
zGdHA`+@CzF(b0QiaA!MH@b~U7OZ$$yP1^N*j?~%dlSK4pFKfF0bWh<Iy_}=B^}g}l
z+4!eWPpxXb&=S3;c4}=Jvs4e1wK`VrIKq4_Ew=a9g@%%8rs7%qIG1gn>31yt!9B0e
zyVtfizgznD<{nXt4ZfmYc{@UzcQ(GvyUMun6z6>FgUNZ(0ed#Zh*mAWd$ZAc*VAo(
zCoMgBXK(b?kc%fp=WJ~2e?7ZBZlc1pT}f-%&&++LKJCh@Gm3}5-2MOBR&F=bwcqdZ
zHznG=j-0<{+q-9H)u%na^5)p#AB%l{ElZI9^OavBCUnEae_|U_8+N|^_gBu0;lV>s
zpHs^(ORkHVR8gX}TV=Me#2a;+YgG$%zk39}IrZAYyyX4*{K=eeM8n*_tTS9x-w|^<
zR)0~^u{TOK0X-caOg()!C0KZVE&0}Wr|VaeM?=nr{cE<Idwu2fjjwET{Wk3?44Qpi
zdrRVb?f%#^)+q&o8i)BldF|#^J9w@3Sog~JuU2h2&GlMo`NH;3ujVyutlae``jOB~
zzw3W<#I3GxZMB~ow=1tsCpD&XU(5XS3|0MBC!9`YDmlzrdiA={Zh^)t{P(YSh`!in
zb(yo3zmV@mj?i5jjR`YXh1M&I{!ohevg=`^b69}<A1jp^iiQhhbvC-aR91dedic1~
z<c{p^OV}Cxx6Jx8N#Mz^S?<$h@^>ChnOkBSuPrY*&;EZ`Y{aLQKWQ@-gvPn|$#-)W
z_@tJ&Ew*f3VER>iM!Isv8U9_jt|{B~b>BKVCzLU$Z28xD*%>x6Z+72(5E{>OuPtxG
z@=IHf-g+&pa$enZ%DTwan-5q@Yl(e7l^q+AQ8_a+{D9mP{#6+ttdyUX70D^T3cBl{
z#J0O<M^pdmN%_a?*l&CL#+aE%md>3ab2oXC%Ci+a>+RK_)$9}J<JGo({D0%gAWdgq
z)k#J+M|Mr;4(ju_WayG}THNCO+}Wx{nZJ;ucf%{T+4rm-zf?5&Xi{R6r{xy>Skr__
zVcq3>Z+!j*6ny42Xozmncp0xYuVdQzy}f5Xuq>YE`0|DY?`j5~Rg5u`jM0z6H*Bdh
zlyhcISf-_T!6`VRThw4j<htt6de;_)374lWF)|2vp;9v6vOmSHD%p37y6C*3e4mnO
z%o+?f{pUVCFqA7gQg~1xgI%udz1Xn|#y!HjW~I)(aj2$f#`)&<J?^3*acr~eBYds|
zJmHOh^HJpagCgTcH_lgo?`CnGvT;G#DX+v?B32zGZzeZgX2|<vGPn7`W2@=f`)@s7
zxj4){tz=_n6KhX&TDz^E!&~j#V8d<OFDC!&3Ru+hWlx>e)#b-`S_>Z*dum;kzhoQV
zBIR6Z1H0(se^l~#6P|@FyZn+bY}uvX%yJV$`MGlTTy{J0K2zkkSiJh*<)u-23hT<W
z{?D7#ShzQY>(xVx8>e?fukWyMiqzwFyI*=*RNXRCPeyw8HCd%IJ#kMyW&6x+d%L2B
zhllBCY0I?MJ*!zAoVFjg(H2j;_O7hwfbnvZjmM7&KAE1jz46^=$J=ht*uo66Tzibx
zoM7TS$QyG`dWqz0IcAkfYwRnx-`;yEVd0A#>lj;Dy%Kj_iO6Z@y)q$1j{j&Mr$y+M
z6%{hF-(-$f=>>>zRyKW|I!nXijo#uDOyPAsEr%9A+oBMXCoWge=Ovw-y*<cg;qv4=
z$Cl)t%2d1Iv97nZI_2P-GVaMvGgma+Ex3GYhmwm*%EA?5ySQZUC-0vwVzgxT+B0%(
zB8Ds<T~+oUS=W;}^+NBTb$TB++s>N4FZ#68-0h{Gx0O~3F7Gwf&s}HRE>-h()5FKn
z_2KisO{+ZhOwY(LYSnTl_G^4^=aiY>3|O!HQZ(!R)I*#>^J1fqa~G#QTWRR@to_k7
zxeA-8nX=v73r_VM-O8%ET>AAb7S-g<g6H+(Cf&VfrS<Yw>-kj*Pp(<NpLJAV)zNR3
zaz{!w6>Zk4Gz@qBap2oi-PpX6eofWoiv$ceZ7Ex3^KmaPM_>GV=R3#SYR{S9cz;qk
zXZQMdJ*(Hr1(Y7sGoJAyC^b!1^}9{S{)Gme|4z=~JpakkPwz!x@2fih?3T_rcAoYf
zty*WcD66#Ha_@83wN%>rqO?I!aPF$jv%bE`V!Bh(aM7MasB^Vqt@+nIE-6{|w-yVO
za8EsWe$|8La+AtH2TV=f9C%Tn@!+ec%e+raeUcokm?Ag3XXXs{$yQokYm2Ol{eOMD
zAiL#u+KmJL%F)cXnI#U2g&v!}SFZ2^cbkD{{DZ(C{h)`eX0{KPWVmXu+})R&aWC%Q
z?<=fFqwOa%XUu(Q80B(+f002@aYUoXj89#LF1pSlPJ4TT94h3671(5ZM3!jn`BUTb
z_vrz%H@-@5PA;0e!0qDmA17v*>`^rR-*b7(#rdBLm$2N(ar#ug_3X8<9f6O`KJu@L
zc)f7Sw!=bK^G%cGrbicjE!?xP-Tb+)((GfKs!Tc!7`3-HIl0d)YP<U?Gia6YE8p}>
ze}fn<&t_AVW{tnTFuwnQi<g$o3O|>)V{6`vYYN`eEjuN<AaaAS;_8D|zt?)LX4-bE
zLq^=zuXOGP-`%-Wa@pg)_T9e7CA~d)PwKYvJ+@w!6I1t`%Ir|zIO+ImZhgVPuY0a%
z{@gXMRc}(Yo1xT^fXGh)%Or0;ium6CV`I3!2G5p#%a<IKFy(mmx*_<><wUWM%NV>i
z3$II;c;oQIYFp}l83E-$5sM1;x!ixb#SEsT#w|6GJ0oZ5Kkr`MskcVme2?DzF$-r~
zU67_J#c<^PY~HxDySCiBfA8xw*%_P58NVhSJ^%YA6JuJUZ%?0zrR?3#{WV|e8J9nl
zC{4v!!VX@So}ZM(WoT$&ZUS4vZf<OWv4q{+7__WCNZ&0przEvVLEkMWu_V<cH90>e
z)y|HqxCFd1zGBYR+Q{{)Cky4~N4F#}*9ovl?5ML2e^ni^Gd$=*b9<CW^rW3zj<S0h
zR8>_~^*!_XUT{Lpw5fiNa#8Pzt~FNMfAhIcR(S4nH_Av^Ir*>Br|adXBk$_|xc}*V
zc)acJgXa(5oqgXX`rSXVf8U?oTt9zh$>G?a$5*d^XII&1{&ROlUtD$d_eY=8e`c0G
zpJS(8D?Z11{p-8k>*xJ_wd9@rgZM>3@3w54|NqaU`UBQ$K9y_lIWk)`{!_x^E`R%s
z@;<F&yT#`p{QT?QytRgAbIyI(5p}+sYx(?pufKlz^pA1hwpk1O!*^tM8qO*!+_?Py
zJ^LBO25NKk-k#4d<Y4=^`CE6TLDj_)1F?S@kGM8_E&lN*ZhrXF!%_L$zND3J`+BV2
z>LEi;k6y=n)AacKzd!#L@!h)}+Nsa`JT-QjSyTNk`8b<^^WVkyd#W_=pTBRXxdHFi
zV_xF9e_qBvJfCM8s4BD~^&?lt(vN;`{qJAf|7`t-(z=3wGBOjMGUkQLEt_Wd<NibA
zDBWB0>Wcp->}{$K{NWn&_UO&aUuXYjuiv&h)_?tb`71Z8*_%(Bui2q9pHXvBUt#RS
z-~89srStdKmac!m8n%78Pn2UqzpJavr<*%Dn)mN{onLkPzKfmfz5g=z_8+RA-qCDo
zv8q5x|Ac(0-^0(>j&6>8`!clt>JQz;Ta3Q4$t3*L(K)@+Puk7<ovYMMjwjLn@n2T!
zzi-_BRfuU#f7k~8nyRU$2iA96)mF{-kds-;`twS(%AcyZ-eu;0q}NsPSiEQ7@o>%F
zqR#vB1%cuZ7O*cpw=Q?vdh5AIR9}m{-Y+pzo@dS6NMFU^sK48vuIgTX|E|4Gy8L2u
zz4Nu3gK9&c?mxVN$78y{@^UHuIcskGHb32M6RNk4@tgN=<DZkxc#8kf$uV6mTeNE9
z=}6|=`*Yr(5{Y46bMJa>A*b>l@7Fw!m9vXqF0Q(HG<DX3_=dk+&C6GN_&z?bagF2h
z-X-Q&&OdTG{OQoSzq`}*|Gf!cUf-Czi%t6O%i8(T@gAEN+U1uYQi(mXcc0>p$cDxV
zCVEGVeS9lccJI2&(BnDnVeuZWKRa%{w7PcvAMb@@KVMwCeE(rhZ|ALsHzD3FsT-EZ
zKbq?|P4wqgg)=XhV&c9Eel2YlJnZi9DRt+TrXS@~4y3SJ9d%3ds^8bwGj(0ukAK;_
z_12%!4%CW!=xnGUYraUUJJjjpA)P4xO9J;EG_oDo@pU`v+m(lIW-h;Z{6zkt$`tXK
zcir<YX<z=^{W?nM*^VgbJxgqCE>286c~qR~b>p+GA--Ax?58~RdDHE)JcV_6ZeGmw
zowonP&7%!-j`Hr%x)7QgUj6#=y146`LwEHUUsN=H$aU+pR-Wl0&y<V5kFMEzK+NM8
zd&G51=4HNrKVO<3dCT>-e%&lN^Mj9APS2Pm5ia%5S6wsDn6)nS`@FzX?TCnCksiUR
zed%2@KZ<Jn-Q2kT>sQU_b9xRlcKx{+^sCwNLf9))n`MtT?MSJrRCv+UQkal@K#j5N
z+J==4?gu9^n{l3V$#hM0+qLgw<xR!~qNVX?Q$Gu@*lPB7rstHl|K}5otF|A=+I6|x
z`L6ShmYB1f1hxy@d~!QFkn{T1*5w@{r+(E0HcJMVB`fTH+r7?amq6wHnQwe||8Tv1
z=D@BGf&8;r-rU(Xr_+*YM&J}vmB9a#xVqg$lJxi9d82frYsJg87dL$0l3@IRckb7C
z&r^S$)-9TveAx2llZ;~xFJ-@2UFCim$GWHbW%-G23$HCDuYa%YoGfnG-?-+O^_Kq$
zw{K5<&ABA;MHNH+B-5lWj<x2pm!^5IZ)$xzX~~MsqFXXT)7h>>Zu+z-ylK_L;6lx~
zyNAsf<1R1P-!1uZS^k^6y@I(8%g$Z<bx^z5?4JM3hX<Q~Y|J#auZSq)_5NCF=&^TR
z!2b8rpT38OSRUT}pqQ=Ymigc8_rK+KJeYnksI2>x%uG!mvzX^E!WUhwRW!SCY|g17
z%k#cdA2!`~*>=yoa@PVSzs0R>_3xg!hP~6%d!137TXE&t)r||1OHQyAMjR-OVqKWB
z`D@N~);6`-S?`bg&er&@yHWT4x6=m{9ym0yn-^xdoo3ss@aehsPv0rpRXK7l+IzlT
za+6*?)v@>SYM0&I7Z(`|GmCy=my`?*yqA^|@#8|TTN^94knVr;p2&uZ4O!CC%K9vu
z4NqNFS^o7=LhB6evR_yKcGut3h_2;3nR)xg?KJ_p4w4Ml8v=9ptDW^|jPIU*D<b8{
z^!;%skG<vDxZLp5wyC_VrF>7i|1aFul)KGo^RYJ%o!7;mdEI^bzxdC^d?gO*b6%Vk
zT>0gFEQe6?#1|8~SNu)grIl;VD-`<Ba_)*(IynrpSFRFyx8Ei7u~RCas9H#@gZ9(u
zOq~tF@>`CY2WLB#=WbpYzU!6r)JCs^RVBCn%PnI*C;p~J@3EBpUdQiZhvkdiPXE&n
zcr*RG_PXtJ@BDmrZ~j!?2fBx}*tgFMuRSBxw#iNM%d?r$JYRqPkm`R^(>^~$ZqJ_m
zFV6p2wBFj#x|45lRNtm<r}=C-|DS(vnqPT%R-szB_N=Wgd<ut~y{>)y((h3_;r+yw
z9j{eqtFe7MIQ{Oys(W&~GZ}?USIG9Cuil!!L?XZ`EO`Pak8nhj$Sk9Tzs$+pX*q_!
z4=^mg_ee@(FZ<I>9XBVP?Sh6ftsniA{?Gh)UzEWxrf$0XwhYzT|EK50^og++-rx7G
zP{OdtJ&9HNwxBr2UJe0yiTIix_Yg5*I~)E(iZ>5uB)xa9YuA{6^nop}$+^9YYd%J~
zHZOF$#mi`UF#i4}4a+FDB^>Y0Wo=t)cbxAQ(=(6s4Oc8*G*4{`IizRXHBFd5zOQC-
zb?5JfS28l{0?jQe;?tg+7|C}TOn$Q|cEwVTFO7e<S-gwSS^P!foYBLcLiLHcm%Mc^
zT)pspa)8psRtwP$%dY*J(N_BK9qUHZljru-)IWBgaileKVriF8nEivlZLv1Df5+#<
znO4X@S82*zV!LI^$^UuRn%<Q0-(z}qb<ND*M`kSV@JbL8Tcyr@B{DEBXXeJNSBESr
zHO@S4i*}4zwKy<)SNI9ByDkC~b|n{>zjk_8yjVUz_EGno^p9tb->918thMz1hRK=}
zr+2+M6Q09(x^CYT6TX176SJ2*IV<GO)sz>QHm&}bLHXNFyk_c`1v;Lddytnu_m!c}
zSz)J{iaCb0A{q%L9L;X#!B=v3xG{=IMI^T$6j;!0zq|9roa5hL^Pc6%x;44y@AX*I
z`45+GPgtGtimP><UFTJ&GeQ9^53(CK?&%CmU3x}5xH?4h^MPr6ksY3S`_{NGwT=74
z(>>wzsw?ZSDC$3bx2LUl_puGUaXgiVfhTL5jTyVx{q^elF1v58doBAh!{NDv-Gwh+
zB0l>aXEh5i44=9Cg}3y{mkwPO;$PlPF`smcX?oN%-sU>D18>hpD&O?*oiH_I#gpSQ
z-Iw;3c=By;dBs%MX*aKY^)wr6A-A92OO(%D47UDLIWy<O?``Y`QNH!JLSurYt||u2
z)d;neIubP3Bz<1VAEWJ?Juk(a=vwrV@e^n5H|K2&ImK?=lUnI5b3an<${LQF9n0T$
zuTqR$u3hmYYpy|*y6&bsug-}@uG&23)#?pOrzLANRQDvvhMzNHUi`4!QR#$!_oLJM
zRBswOU9#(4S#Z82;%LXKufOzmPd!(xJZp`qRg^^R=ZWeOrUpeUe_cd=T$!_2N@n}F
z`*)aam20}Sk~dk+&(&GH<L36th0$JDeW!i=J7p!y=~Wkuwr!DR51Fv$?u@oo>vYuK
zJ`$R_+A3qh7B}T$gF9Y^YcFk&S<rc2WJBci4SX5G+oCiRjNkpWnWFa0hxfXL^8J~I
zO;>+yx@OlCEg_Y?D(;xR3kydi*CB2l-zGzm)wPq`KCD~3ft7R49>0Ccd#1S>)I~Vo
zPFpB+lgU#s{o4W?wwa+~hUGgNE*{tD{=;xNs;8;l$!+D*_PU<mp1OQ@{0*P1KDW#D
zYhCHDVwr*~=YBcmwC>QG-?ZhZ`%5FH{GYGI&)0o>bG>|quWyEZ&!PL8yk>uP-HQ}w
z`uF*2_<6gZCpXLgdGh{!-S4x%ub;2`aN7Fo8+Q9+|9?MOZr@b@=gIna`@X+fUtjcn
zvpW;F<EHzHIzH(E3)7T?z4_9ZIWM2^|F6z|o_&?=f`r2cc7Hx-{?LCW9J1$djuyv*
zIsPmBm(HHPB-Zyri_(Fs^8$`Y9NB84=z1*0L$$NfHcvCuu0~CI8%t!ec<#HB#1sF`
z3{=)w*Oq%U__pM!)#V5#wLaYBYT}v@&G>&;T2DcmPv57-GX>8u-#B;Q)|kylEbvsd
znMLCMStf$1LT>8*FZQdrsI3q&WaFPS>Dh8Q_L)C}r?6a%khsYEp3QTC>8@<9BN-FZ
zi=@^u*4A;II-&hq?WWNzP32=DktRH88$!9oT<*V5JnT}=_iLrunF&T44^$|`_;QN*
zxV-6EZG6ym*)_Ep_t}FFm!ES>dc|qHhJ%H#@w18g3Jv*#{h#(vf7-^s^nJ~hqSYGb
z<*r$towvq3LeBFwPtU{6I=54na!T#{<6^uhf+yRr{LsFZy;a{CzFobP)0}*Qp<Dj-
z45d}U%Tq7TcvR(XbnWECBIAIw>B5V-Y)Wo02l^`g%ID89l)HLCa9#Abji==kPYFGl
zChjEBVR0+r$U&z?j)#)-g=HR@-rR5f@Gq-N{T5;MDXd1p3(o8EZ16pkyCfnexM|wb
z$ua9EED$s3XIP{yvSk_PynQdGWE2H8Otd}zXho#Xv0De!d%0?Y*82UwkaYb$+pKHh
zO-o$uzfY4eOyX-4?VtGYZs-gRbsy<_Y(k998&|FnQHv8?#(Gb))VXuF@-m@$rz1qO
zi$0!8QCNKDV3mO9y`DnpsYlK_@0Qh7Yc4fvdp$wLNNo1vs}EG3>`o1z7Vi4w!-<%n
zo=pw9e(XKP??cYWJ+i2^S$yE@$y0YW-t^sc?RBjG%1yCde^qBswNYw6dXD3%^JMq=
zad*})_?W~qWg;g>zK`VUiZ~-9Ek$M>-_E_-_2q%*%1-<!7IM;VI+rTKyTR0_FYlIO
zPp9@Ck?(S6%q7HH)e=NFEM`mOn#gz<7CRa2WbzaJWXCz}q-IN$(56iqTP4!=#28-S
zP*cvk;AteG?DZkQchzdoritG3rkv(AV}4v{5cu|qs%_ESnLh1D^MYPg&vk7-r>eK+
zrB=yb|DGn19_{2QS9v*G_ReoDS&_x0w9fm%t7VJC(+=*boc1g8;t|ciuNDieI6S2<
z=G0bBYySJS(VKUD({w6*yVWV``c(;^W);B~oTfMQuFqoKE~6IFtM}>T>2%q7irqns
zUktqk3|)7fJ<H9pCUw#bg%^CEf`ZPfq&<z}%U`NFPcir2^sS6cA@`SN-w`a(@poSH
zX3y4bOnI{(<Z4Y`E2Vm*`KZ!~$6PzJ7_-zKOGw$JpD?}7ajm)T=F09>KfbHqs=v8R
ze?@ia>wn(W&lKJUZ~Sx3C#;8K?cPn>n=Y?=pA_+DPK{dU8`&)(-P<mI^@wYY{l(|V
zo~09cqBOK}@+yI<6@QwGw;r4y{(jrDw|orU%QK35FY(xKJ$q59ZrL@xV;=VncyBAO
zWjS-@&U48IwM)Tj4KF_G6xYmLrd%av-(0fxarb$~q7d_?izL3xiajP2Ii<qSfA0nM
z?z9`eD{r(P<lOhC@Nk^KHbsxw*|OcGhuz$t+hs(06z_;_P4h`@I>~otO~*o=h8H&!
z_jpw5{HvRlyXqoWYUHj*8`gDClT5#}`EsZcM_;Miv^^pVi*irC>^$oBP4wqYt*W^Z
z>N*VWyxy{t=B#{E@qK&H6t9hEo#yBmthUJEIGp**^s4=B-zwX?w@N>obu`H|_4%>L
zF>QXTzJkH=a`ZHVDX$As7KgMb2shS9yQ~$yz3OA83E!V3AAaoJ!F2Txm++fcr*#j{
zEXd%n6|~b%?&}mt`JuB|pmvS-)+@)}?XS63x!6&2?o5k`BLA-|g}!HbxhwLvSkuDj
zZB6?(<wfNfeX(0IyCGoS@p(JX&GT10JeAe7qtgFtN$2jJi<fwr*xU`=EPJa$tk`09
zlHIf|UR6)DMOdSn-`a6HJltFUM$q!hgkN=27|%1xY3jUu;rDKh^GBgcJ`X-wA9c9s
zac}*6CUf-#YjxCHwyB(YsBLyX|I(}%uKt@mRMX8Sbfko|1by)do5%Kf?ZYz$I@2%Z
zKR(raSn6^0(|d1sRIN(kG0`=-d#xyEcEbLTTaPSz?9;DQKDlbAh~|Dv*%_0!b1ydJ
zxG32x>zR>ruU5GCd%3%}?nU>1HT5qaALo6M9ntw>&)hE(0udiiT-}wLxFhCf2Zz`5
z<AwhwbFbMNB3E}|l1%S2=9I%5Buo;EIZnS1KbrV@>QuM783H$#ryW@O^vapkve^fB
zG==<JaWLiCwmK(o$9cXrPF<^Z_iisYIaKapx-e?vhXs>bn{4JBYFY5?h}Yw$oeBLX
zQW?!v>=Q4^Ue;+myw*?cK)XAS$&UrAcPrXk_exwb_c<$&YoNdLYtpLhN$QF7tyU~(
z{MxXaeTQYl&+eef3YI?^q*@-tN`$SnOa0AmaOmrT#k&`JZ87B)>{xmIv~}Rt<Ws4h
z2Ok`E2<kT2v_HQ&Jmc}y2cpjv3MPlQ+RgLolfUzDk=0+(vewUL8`=c-mihR^pPek5
zs;8o2ebRF4pQ|PcON*X&u6*1b&}KSGp<_mf_Dmyj`F0j}{q$*1&&Zy<)}P#xXy0jc
zZSCG`zgg>in9uL%{OPduM!Zrb)3+^B2mUQ}TPSLN?2YxZ0++~BBIgy>9QeKNiq3II
zl_^II^tSZ+u9bY{ZFp?Mu~$E1?sc2KON!cO)HQF)%TtUzQg8I4TUDhlUHhJW?~Aoq
zm7bGXU)<hPf1i4!K09H))-QX1Pub;7-YhegGyc5hFyVW)rmg0kQ>&M?YCLH(?oIoX
zX7b`fo8CW5y+ysNS6E)QdpGTn+uSX@^SO5YtvQ@*aFh3hyke#2&BdSZZMR(A-TNhF
zUd8S}@fm&3q$ZYp4CpXltj0d^eMi)Vk9&BnOiNsQAM`!!u3=uO{YKwn`Z_j;MtQ+6
zJlSO(YeSqbOt~51Z9eb2w_v8Zp;MIYQd6F_#wy1*XoqZ&-=`Lqe4WddGdlNr3P<3?
zxu4d5=iB%@P|swxh}72^si#<;y_mLU<wWL<Y&WB;4ln=9W~g6Yd3w6&9bWm!%yVZ`
zxtDxBeBs{8LzPpiYaTM0O?}nM?a|9}B}OFs%<T_WF+2&!?{=*!lzp~KpO4F+?Ac4c
zrncWl?@PaXw%)Da!mYK%m!D~6hs&+7T(P`^^R<zJwWq;E{_4y59fB#%Yv-0(TOH^Z
zw6XuaXD!3uvj2<^z5Hqx?u|<ec+i-)-7I6$hKF(?`nt;sUUw<PiHd$ZSi`m9!vSAW
z>Anh+ALqIz{OJ*^+oU>4G4tv4&5kh}q>3NC*iv}$SO<6fR`ny+%`fLW=q<}%ewkl&
z&*ttmr#y~XAJ614c|6xK^jFxmFHXm-zdJp!E#O~!*zZy0Ep^e?`^Dv-H<-%SWO*Oq
zT^X{)Hox|^vHH)-Yer9FIe+LECOw$Q!nO75k+jR6xs}Zvzx68Thk0FY-7C_iqkZ}x
zujyAsl?4}N`h}g6o7gOL<dokgy06)!ZFsG1-Zia+c7?1a-fzB%OpzTwZR{mVR@KgW
z(XjBtN-f6dSzGT%d_R&W-!;GH*e`i;`^M)!r_WsrQCoCL>=$45e1nij??X<x-V6Ct
zvOv~O<^cB;uWKA_yc=9*XRVTEzns0HZ<30^{nRMioi`Jj75=T;Qak<HpU<V!igW)<
z9KCp|qT=SX%`4A+d?}Hq;g}=yT<4l)lQW-@Qt_SoLpL+FOIRArRylC#+Xkt~q$^v3
zlZ$S=xf+n_8rPQhE$ZR4*W6K!w`Xb1of5Sn`JHe;mQ46+@0gFpGitwY^_%9o$n#3I
z>&fu#cb+Ru^9`8FB6ovBdT~Sj{I?!AvgE$SY*gnqKBT<*(!T#fFWZk)B=|qdl;rY{
zSkWF;&}M$;h@Y=jVda|?D{XNTcHu~I>6Xrh`C9MnVmD2yVY~0lDO9t@b7JBtJ6Ee)
zGd@)v=o3^=I2L<CZG+;oW$Kzim!yw%l%>wuu`5L3cgY-!GYbkIy=u_t5w&ky@4|Ft
z(*%2szNl-Q?zw8hKa<41=S<&jw)nFDnfKC6>AHtF&q(IpzOdj9kDRmNp?}4bu9XE@
zy$ilrq5na08;AH?&!<a_qHn8;ZPZKtZa9ru{_vWej~%Oy_ILCfzO4yUZkR7S#q}b`
z`Po9{>m8R#U0Zoqt8RK?Y{&N9JGldT-!aTo&sZ)slPh@}TjC1CH!0Z{)^KZ0zH)5A
zml<nsO1&wX!uIFo*LTYj3NjlUPkrS1c4))b9YXgy`_<p|9LrEXE%9_x|5T^e^|l8*
zWH|3_{_VJy>nzVBn>Q>kCTq`R`r`4-<MsVxYOiPVr?~tSSn2*@UOLZ>S^GM|q6>Du
z_*3@8+d1mX-?HL!d+jgH-nnec#EmO+C6CI;iI&#RW}d(H!wN%<YtAzw_X<Z|JiXso
ze#f^an|B;xf^+*<Dt3Mn%Xt6jxZa9}ZJ+0s3;I8kcp##~A9-J&d5v&~WMFTEUB&6R
z8{S!yzO4AubW)<Kd3TV+qNTe8?wM{(@V>gscA7`^4&{$kD;KNjYn*h;N!r(Jk-o8d
z|Cdd<tCw!dW%l{ydX_^i?Mj7}&*4MACtTuA)0|||``#%3`Tn=&Q=i{cQ`vT8@<i_2
z27W6y`*l_bu;?#au`Fh*Kfi8*>%t)0qdirVQ~hTx_<H)YqTi;C8g@$C4yC6nY+e2&
zVUcsKfyHdcZl)Ef8*V;YrnO5*U5Wd9)ty+k&7UL9T+?>^nZErEtK?IG)6YD^XYN|p
ze8TJS>(5qV(f;NMhc;a9b#jV%6zKH1i1Ccn+BgNTiE(ds?6~!4)|!I6Wdc>VS%UJ;
z>`YB44q3OsnfqS##=U8W=D(QsdiKgytZ&P|-}(OgJugFD`ET=Gy`?jyCbk|upnQ}^
zL(9A0+OpN7?o-f_qHNoYgt_U<T2<6{Rs}3QtUW(S*&%m(>gt&}J?A%mj?0Wb*LC*t
z{in-~ZY3UMRzAUfWNJ!wV8#n}KM&K?X*T|Hud))kW26iv_8g3fe6!{0ld?V5vep}V
ze9uQ;eD<&E-Ni*E+;i`{y01HZQ}1-I<)#yV&lv{aO$}voxN)*g^J|~ky8hcgD>EOr
zaC1#hI9~AS%DImfS*enLw14i6{(8wo@Y~<?q<I}@4|eoNeA>F<^Mw>%_apYx*Q^W@
z*t5}FH}!PI@s^&3w_hZlJkk#2yCQaBiF5wMwJ(eBg{b&32`)Xy#<)?9<I3inE?)(g
z*jtE3u84G*C%Es%>I+Qmd27?lTaSLV^0dDF(nF}HR{L^^*M{5T+l@UgFH8_w;=wch
z(y!vsoZa6Ra-Zmy=J~Zjh2zY=0MYMDICnmM<SwW4WroZDEwcJ=zZJAJMBMbWvUiWs
zz4hXu#wq@$d5_lp<Is3D^;=PzHf#Ib*P88yWt!8Ee&93RJN=?#ppT-~DJf$c^D}k2
zKNY>=mp`>?oVd?5RrXZyq5tvUrSoj;lxC`a`NMJ2X060&nMVi9wx=03Yer`;tvA%l
zt9lY)d5C?D?6tDgYsriscPX&0IHELH+U)Lk^%>edO&b?&eDgQpMIQI#BRik@PTMwL
z;zRWd>+n}R51A8O0!)LdlP!&dsyC*u@9@%oXb|e3ER`Y||4`=e=PACgKbptv{P;LO
zAw0?@#LOa$)qXOE>fg>e$!*0tmyd7C>}Hx6`gGgm23PB%u9Bmb>|uxQCN&r7zdu)6
zS(fp(R<ZW)<$VWculm-wN^)*`w58*dvgd5`rb{kSe5O=xo~WZX_loV-$Vs1%TD-Ym
zbs(|*<L`3G$L8FtEnF5KcV2K|>fKjd=}IgMf&*VWT+coIICB3|9?rC0Gd}K((aehr
z&vL6-t=HN%Kk?SC(6{neSWjy{P3k&%Ds8fU{;RM4WrdkpiFdC~*)n?x3%AYoCr2Fp
zJDPv+7Qa1Sq`mLezTg|){wDXA)V6W(Z1VcgA<w>Ab(`45ism^*#|(aju=aPpnbYtp
z{(tk5rP*6d`WL5ezPZ%#VdktE4u1|fzD=L&C9sE|wWnbD2JY?Z$Nvf1n(a`P3XisO
zSQe5hZ!sk~#Nz534d<(;mUb$c7y4B3xx9OSqh!gvV}Al%D<qyQyS3@W-bFGdQ`?Fd
zF0_2^IN0dPakbaEmvQs;|JpSy{~oD7{q1FJTq)p?tUG_<%<tE}&$T?M;&3-8b=R^}
zi@0yUNq+yhtx{{FX#n@!bg6e=3%$=piycT<D|#gQm5Z)a-IE_lN>?L4`o3OS^5WX0
zgA*3NbW5GF*WQ#z>FefM?!ra(tIuvUPyXWZtsuTDYwOp|M*efQN&Jee4Y`%n5zUty
z^lW22x8IJkE7#NnTYcr@g`Ok{a>}W1;&u~hs_Ei-$g$>pLv8Cv6DKA)y#=+>m(QM-
zu<|gz@HRX6aCP-A_wM)u6@rPUoBAtLCI{ueIuSc_@iocW?6SILyG;w#SKa-lxb=2Q
z@T8v356qGLReg%}>vrWBEBkgW*m_B%Dn!ZpSBCV0FFQ{>KE|MWdEWF_T^ie!4T8U4
zteAY@O`U&s?NxvNOv&Dj%E5p0uE#fh&Q`DFdZc_JUv;%o^_s8Ti)VZKtZaW_E*r#u
z$u<1Z=hL%;UcEHRKQPVc>E?{cYajkidl!DPa(nwt^QiBYOVwq1cS_xsn)82s+EzY4
zzgIa|`>)O3esrnC$Eu<=g*n;>j#iYZ$?WgB;QuA_cIJvSA%W?4PwXszcepZD((7h<
z&b|dp87CMvDHW~^m|VR#f9ZkR?|YW-df!}hibvvLkog+7ph<qsFVjCen)mmtYWl;l
zTRvC+ROp6Zd0$VyuPe%Yt28ff!Bderdw84|tlGM=sG^{$TSeZ$C?ha^fk5NB2m=$1
zs0|zkj()b;5`WnHOG?rqt^7|i0n6*|#;ZLm*ON9^H(&U$@7yv@M??KdchjT(Z+y`4
z@zQdg?me?sa6U}q`&6NE^HJX6C7DmIi0!^H>wKrcWjEt%dMkroXmtPD_GQxC8xlv%
z)J_&EF-mMt(7vf!wJ*c8cFRI_$(NTNZCjjoyJJOKov87TLzCz6zi#q4*J*Dwhhf&M
zxhqAh=OpB2YB!y|m9G+Y>F3Mji$2L&Cl$7CZh5xh>ZHlS>Z`qve^9+Q+h70bMz1KY
zeVboA@d(*um+zALAxLDu$$l%9wvQaU6I?IHesKF>w&3EbyDY|z!gFHgS@s_H-VktD
zI7Q~xD?tq{uHUTgnRZIXuT0q9e!cUmyy8t5$LEsFc^md?#?IRJ?CWI-zTFdBFZ%xM
zw|>N*+nr{@cv15}L=k(H(~?Ji*S}iyCjAaA5PEC*Q@X#hF<G5!+QvyCGLh<&w%(Zb
zZ29!3%B<mw<xE-pgS$0L^S->aj9l#7mT_a7y&C)02RRR17p0x8stinye^7VD^Bvdg
z5;vZfC;#8J2!HU2lDFhKo7AXe9rueZ!@*8Gy4^W8s(tCpxWtQF<YwzU-rPPdvY+Fs
zbCS~4eu+C=dZpHN)`>k%t7k5^VxJ|nruZ;p^XvLr+e<d(Kh8)*7(Xc&x>ox2tVC*T
zvwUignevS8)-R0$nFX%fx>A0X{5sW?E^pQn{p5BG%RUWzkB1>rc`<yxA~|{AS9F|t
zZ{zU&-RiRDo+TF~y7uuNv|@6PT9y8vXMf17C!q$DA2S|*rT^&_`-ar4$(!1|-WJA-
zS-p68=pFBrWeyKC1(#gq_da#_N9G5Hh}yI4t2kcm{yd=~;()*&Cz(esoWfy>9fu`Z
z`l>fv;`3!tk~^u;7JAhE*u6rH4*`jJ$8|VVET`%wezKaX_2BZEJ^6Zu0YNeP@j)ER
zk7|XU`6R$_`wGYLMgLrbXZx`&6_(wXxhu4EE^GSb9}cOE3zY-gjyiulcslQCgN0wa
zF8{=PSCmg&e4};oOwtEWw>LFbQSTOSb>%Dj_08^PR#xtF!7ZD&djxYA&5NJ)#_6Gq
z!-uau?(V#OmlteXetN237I%?!{l_b!Q<6R3?{c5R>u@@UBfaEh<XOh`>c1zwo^0|a
zbsod5%B)>&70t}E*DxuXaYY`h>^Sr<wcd+u<~~vLisi>+y7?bmS~8`q@6HNd(`}Dh
zcX|AFmuM47oOdhjZS1C5N7H7=@v53$ym$4=hj~@givj}ACGdSbDzwqpt*=<~pWn99
zPre6?4XgKco~`|ue)7<?SrU6Ef4uf)o`r$p(aGFpGNOBSe6<LhThp#|zTQx=g1eL>
zcW=;Jfl}F1yZPD<$*^x$$nVP(-Jh|;=K}Zsle<J_UledjN-q*he6c$t&EdN9OZJ{H
zuAP%#E#TZ-@@(BwF~_Gt&MXB=hxYSbTeH38WT&dT`SS%9ugfy$tjNz0;3`+z5Wi6)
z?XPjKZ*KI)XWzPR-MsRpq@(Gb+gq*a3tTpS%W*T1S-)3`>E!~qw~O+c&L@fU3YFX!
zkxoppZJM-apIGnu^Pgn7SMxZnXW?D<fbHPgjZ+i*H0x3x?712195Q>!LlF;_?5PC-
z4=1oobxZ23FW&v_=)RXM{Xv`D7R6b=6PhZzN9v98o~11_za}Qd#<@-sy6|)&-+q&d
zmos>U6L!|$xnn=8HGT5!O-`%pHWy!BV55KH!|P);PkA-GH{8(Kylzoap!)GE8-9Ff
zI5KgKPTs!c59NHxYd1ce>t*G%KigU{S8SnxZTBM{weFWrPyQ{R6L=~hRrycz;pD|r
z>ej3}>=hy=qW8hRoc$Nm%1JeEP0K%N-v7Z8SsS^rO>kmu=2{c8R)^h;i@)Fa&BJfP
zR>gK?j-|<eIfI>T?UTOlk8fmP-1BY8uUALS-(Fw(|EK6a&Ys?qFRKq8KAG@MlUw?d
z<&5=$Dv3tv**1)Zsf;{fuXcDG+sHka<*VSWn{RxsT8m#|yuGGn&m|utW62Fa80V}n
zd8B1E^JV!A@f()%=YC8+`ee1Sy3`Zbs3XY<cM_STcsSN?kUyf*bmQ1_^{&)vrC3oP
zP1o)<iz;~%xMgq5Giuwrxopd~B_}?vxb<bltdiNM?`3E_H~i{topmB}r;whP=YgQf
zf|JfasnK&4x-4PjSN!qDjo18|)4n}8AYW2g+cM*5<!;k+3mucI3$179|74vealGin
zBket+7QZZP!d^9Pxc*>?LQ$9nLp2+Zf7mW&<quLTc5M2*^r??r;3f@)ZTgSjye_ra
zZl1&BF7$0`+?h=*izD_Q^>2Kcc)c_JV)L$?uY3m$F9*o!RAk*cdsk+C5%-UqpO*Y|
zGc`O|Hp^dTp>buF*?f&d{r_K?$r_(K_4B6t`{y=`rh3b^JzIKRYDscWpx+6R_T%Rc
z%s&(Na)zjml+m5$`dB`(haZnrv78X{Uz4%sv-Z!rZ->HGE#45y@vWS5>8sPfj{Z0p
zf3HI3QOKq<ozv6>HgqiNk_q`%6?^%i)C1LOn|L|42N%43iX<o7A5+XZx2WJllD*H`
zZ1ux6I()XQ%e5yuS98rgxSr2hoH084P>h}9rb+?pEa`u)#}+*5J;-q^bN7r{+fIHi
zlen_g`m^5FzC(L5v(G)Ry<?uz={d>VR&>K<-V53i25kD*PhV%3@xJlp^c>gTy^|;2
z=JuL;Xyg3Fr7zax-!bm6nkKzMc=F+M8~t-sg->6QnR@=Ua@T|UM{lL)sNQs{eW%3T
z&XfAL@4Apqp+QyujcXTLb^8B&iCfBbwzFa9v&({E$EC7lj&Ca~``WNj%wv&#M)YZw
zN)h1)&f7oFGO=7AvGd0J;Ix(7&du(8=65MH?V*^b?!!M9jVCVh`XG5_R=Z%FmhOhP
zk~syBK6km^Uvin{;*ql=(=~Xzo9-I#Pu5!{Tp=SJ`f1;ec-~nj{I-2zuWz3-c~j!*
z6SIVBzUQRoUus_VQN(@5&j$4q*>QanxTAD<p9Ri&yG`KvhK~U&PZpX^?EY$*#cni1
zXy>;ZEz2_NBp-DsE@u6AR?|{-_eXZt-4^`QQ`wi>Zuw__EX?HRmxVXDau^ez8E7@j
zZkIiNLafL1uu8wjx@%`op7*PtR`q2`*|d)Q4V(9znf%-T=Z;q!l2sI0_e_5wWFvdz
z?cXyh|93lSawwX!dv>JO3b{!N-aQ=Ia&31@Po>Wm-KE>ZYhxBFEL#%q9ejUdvf0+n
zg1i50Khp2I+~b{-%&9;&{xz;IUjG)A-85s_`VCdeEgPLbE?LW4eSW^e6@_I#9{y`I
ztvdO;F#1g2Hh!k*w;sOs^-|nYpxzTC$dRP+o8wTxsbbkKBR!pc0^(C59yostT4k)a
zHtgb`c#+ovu9JJ0*3EYL(kHd@Q(DW{2W3rFl6OB$nvo)Lwr72}dCR&8#{bVcBxCN)
z?2tS4eRa>gt!@(BKX`xGb%}hKoO0YfVds+SoezUGwb<fP%!BH#-&lJi@jGML70&b4
z$z?IsdTnP`3BCBgLiAo+@UeplU3XaSoY|aLIo($$bN23c+gx)s%Drzpy3EPi96Yt#
z_;?@3)d`&cHcaST@VZ?lT(*)?X-8|6>wBXM2YWWWy5;)u+8>pd<=;NeZBl=@Blk+U
zU3$6B5=Djk*KEqe6nB@0yq~~qdF7JM+~9M5Maeb#N$d+t+r<ME?lss<j=tSzWy0N{
zdqHG>fVArIuM=)Q`xv{6rG;NVd|uMVI!||<xK(_{6Bi2yeL8c@bFa4-S2atg)=e+V
zOYPx-Mq!hW&W=p@z2eUN&X!p({_VF|$MNi5N=)W#_BS01R(>ze(28AuM0?k!1ILvw
z&M30aO*&Ypl>9#V@CHZe-}ae#Vi{W>XlOiEf4hABo~y!o>*TU76btti2%p%=q@5aa
zegWHu7D0OvHXAX)x!nrK^Nh_>cRssQ7US&bQ_?o~r0?&!IypxVU;Q?BPOL+kuH6FJ
zDz&{e{1f~q?VIG=!RXV!^w&8XrJ0e38gJAdY&gmCW>=<rQNummT()IW8_W!rTTjvq
zyM8gsN%xUQ@y1n4&rkmm@K-X(`OHGA8?Q?9Zj?xT-M)06@v+-F%WlnovUnSp(yzCB
z4E-Aa+?G|Gd+T_>$AZMXWW6(~4_5K>GJX)7T2y+u<o=Bgb>&|?hK#mycNb2&{jEE*
zLbRswe&=PC?QR{HpD1^Rce~zVc@ZL%w5nX+MR|eD_BA4FwJRdK)Wyx?x6I;JvgNXq
zesZXxVfF7N{IZGS_td?w>ROzxnDb9+v&&(>-|RtlKN=1Q<i79};W=9x|7-V$!x0)g
z_HyknoRs=@(}!po-rfy|MXF4AwM&w(tli4~!?Hb?_wTFpHF6?3?7Lq?XIx!Z=JWNl
zzu~UNrIVLGPnm9`zWR9Lb<I-d)jL<7xf0j*+vu#$8^a*~Q#Z65l^Sd-Kg@l1@c4`#
z*<HUvE`2|Asww#KoTE{Co!QqzcTP*@wmA79T4=%yvtOF&Hh1nFuwiwdd~Q+isV8>d
zo-Ds1RN&xv<zSJ0_;FL!s=hPxW1CCwz0^Ngd6Vt7$y6zWb=NnwmTS2OO}9RL&TEB8
zl!o5FqP_XO+{?YE+zPL}xm+d6gKxRa46m)08zmQ7yCqNmY8h5wy=wW3(DV-_QXAg&
z-zdy`>GgM(*^MtQRhBm!-f6G!XmPaj)5%C!a&>2}_X(w|-Zx8MO`qTwH@p1pEQzC+
z1DfL;@}3p(^se+VX1-rrZ}7w<b7^dOFq8L6Ptip-o1%T*|GK4^*O-xRd|35NRM8S;
z+4^s9{xfdNJI9K#MjNv58nQ;))WRILM%%*37-NmLg^>v{$Bdt?jovJCyl~n4#MY$m
zsq_7RWTuHPzgxOq>`-6C$xTmh$7vjS<yex#(89rE$)eIVg{Q54kMZkEQzPe^+7?$h
zC`kyl7gw!%J?Xl>{@3>1l|kjk|APPhy&3NR@7Lsl@4x!}pY5)1_`kRAQ@gsBZ9(|I
zuQ$WX?d$vaf9_6=+Vkz(yPwbfKdrwyx40_km!5_B(TeYXR;%x~UGdoV&+$c5taV-=
zudn{+@Bi+t(8q_>Z<o31p1%7z{KF4(cU#Nt6{QvBd(7Q@KMV2Amp?1g94k}T>8#&v
zIp_TQJ}$QoHMxI0=N}og-<N%V^~v7ge;*dv{<<0X`s6ABzWfi4)-xk7F1+P^U*>t{
z#nVE{vaeo0-a9{MOO~b0+5Afz=3Ku0rGQ87{scKQi}m@pudlyV@a5(8pH~fK>dKC+
z4M;mw+wi}C^Qqqf+j7gk864D}ZeTfM^PW9cdn+vVx2I2?zw2i0uhQAayYp_=^?fU-
z+J0`uU!L@3SC_n9^M2m{)03b7|GS-C_Z(N7$+ZXGw|(NasJ~SElJ7sePRaeFnfwI4
z#mpJ{%8w`Ms`pRR_3+=b&ffcok$+v}p29DC{9C>Dc!wnYNom+rSGVW-<nnumObU70
z)7QVauK(kj<kC>9hdz5ge%Rkov31tgrJI+0`Lz4nPT9lqi3|~L4W;{zm+LY<_qbP3
zzo$L7=(LP5>q^ZEi{;fn5~}^Yx=l7eX9>BNaQI=1d})iVr}2dYHw<@Jxz|jq`Lpe<
z#LZV`H#WOm{QkP7p{XZ2Y2IYXOZ++0nnG(!Lq3%64)~Rsa%<X=Oy>Hx58pd?t-LZ-
zy?si~(V0Epcr+5D9;~U~AGv4q>y!@+x9ukE++*8xWJaRe{Rej0HB-Eo*Uc|f`Sknq
zyIp3|&B}Y6A{R8)&y4u<SCF;$Q*rq<kKebhwyF!Q-jv5@J5l)MG`Y3AUwu2b-LuHa
z{b|Eiv5wVm@~s*wZ`wc9oGia#PUNDuEm;qvmM0}Wd+=67<nOcq+3B(`11sv!pLzLy
z{z-S&B~i-U$If_&ZN53-uG{~DFy6d*Tl#+%Go-Q!y*}?Av4T_KA_wD~^FIpaEJ~a5
zbzNqPl7Gj6OrGsGAAiwa6=kuPmHYgGEB_vM1aG;wx<o2N^USH>mnueFbtPGhjfFqH
zY<S0MIe%F^*IPE(mv;3x%f72Wk~#02`QXgIUz3jpS*z&;vpB1r{ZMYexcAIv@0{0v
zTXa4@dZA{jA0~h9!*j`%Vjkz1e62S>5!{)|lC$)6hyUeIOdYEhd0d|J{H*%}qyA;Q
z26Cq^e|6vQa8&e}<)LMB{9C8`h<0DpVPAEun@jpr-aqR(dsdu2<yU>aLm@II<M*GR
z88R<U-8{T#(;od($Jb7i*(hq}?Q?(Ex3}F_Cmnto#k?hlfB%v1R_`CM{3|J8oHDm;
z%2m$xbyrm6R-ICM&^#}D=I47m+mt2Jcf3rQ`@g3?cFX2@pOO`$_^XSSsX2v~ci*(V
z5x@PSROf_+erNe~tHRyQG&1^+&RRO}V^cMcwC9bA?-O)YQ*PMAeAxd$gy&ScR>6L!
zLXQ1m?bD;1H%7WdCP}cSFJ`~8A+Pat^oEI-n%?ppi8Wb#+2^du%{xaPaa$a%yvXIh
zZ%t<L2hSir39G-y0&<;}yq?~9?QG7;z$be-kN!I4?qyL@8=zFb_PN`t&L0mw=XTtW
zjF@ot$a;}I>caaA7Yf+_@L_&5|FF=f1sgce@2@CYuiIC%nkVD-r<a0iBF{9Nc$I!t
zd;GBT5uD<z%$gPytge3`J?+rG-8vR0EKj!`)m)vOEdEL3pG-_#fW@aDm7h)CaF<Tw
z<yumuG=H(I{94|)Tbc3l*}np0guiLuw0`>1KY{JRi5odHzcw#2V$|Kl=UcY#WaFZQ
zi(>Vv-l|E44I7^~%t%vM_}s;FZ=$^k<2U{*GgPu?)nvsSYmHm@bxn?rglPy5XIi3^
z>^07?weJ5C=W*M9tKQFG-W*?{w*0Jo2b<ZWf@z*FN-KN2?mUZ^SFry*?eChp-)!y$
zldn%aEMLc{v@N7@{fzd{FOL0cxTjJ2<i5db_CCgt*l$s0PLGeA+vO$i^ykTqP6<2t
z?)@`&+B{}jZ<e<DshY{ggv3n?igj}`n6<lJ@SZ#Eesh~^nSK1W)bA!+StV{P5jod7
zx2>k*`p$$Yc^?C>xD>Eu-CQJk`}2zj%p021Pwzix;rCDH<GIe6-){ak4k_HL{rJ#4
zle_-UCcL%&;A!MB>E@0(+t;?=wf4N}-L|wUb&~O?Ae*!2r4sinj*{;b=&7!`vU<%^
zw|@b@c3-XziY_~=ck#lt?(Ydj?X4?&rwdu0F8R28vD=5^x6auY6*BJUI4_dJV6Y(d
zT<rEs0YQo-1zwM}&(=y8^|_dAXJ^@$`bh0}@T{O$-J!Po?cG?4o=r%x%{jMd_L}Pl
z9RDmycqd%7EpoE;bMt@yo=*1Ie?9F?8OM=@M<;F2?mw0wz_KS=VwuB@uX7dzUAWs}
zvMth#y(>a2<#~MQ<wNB$p#=x0ehF_Cx0$OKzO;0D$HKZ-7uTIjdp@h+z%<@~o1fTk
zvre?Nn$7)$)$4@YCy{1x|5AlK?l~+^uJ2!Tpj_!&eEF5vqU@LQroT_k_%~^X+vH_d
zd}lJ(Er`9hlPl$~OPY_F&Iay9*&^xrR@?QCWke($V*l!NVd1GYRc22bUf;G>SnYIn
z{(%=S+?&*X)JArtzL+S{tT3f+n(g96n`1AmmI+|ZTztXLWxm4A<obG+YPOm;8ZTep
zIQ^a1<nFwjR}be}7=Kb$&=)^o_G$J<{mg<N*A#zR8XE}(w$(KI>mK-KYipIQCa-hz
zu}!jk4@00~DsPzlj#&wnK}-|pSb3ef(<kMUALekraoPrl>pohcX(t$20#>FqUrb%4
z?bwpEMzrPPrskw$aY5Y16-Ui0VxxaA=r$BsIce&>Jxe4Nd^DuG?`UP`S4G84DM)3|
znBSXpk89RF1C4@}vkx*e3Mu^d&Cyp8mp$;A;|i;io!!P0-7m9wH#^*$#yO*9+q3gM
zYUgh9-M5<VqAYU#lH|qC{|jTh^PO+4GTjnv>%E?3zhdKyw^t6_2w+R$tohwvk)=?X
zb4xZqp?>c|LCMH6L8eKXISQW};+kd!uURIpes%9BiMR7iZMWCwGkkeDd($`5x?G*@
zTcvj~^B?0}dgsLC)$4_xIv+oIp!MW2<$oW|SZ?3sR8N}p_#K<ErQt27J6XqU<~)C3
zelp<sp-q#eZXQ0hPM=$`>)XTC+vL^XB`#&`Vc=bV%w*j%OJ+^J3uXPUQ<By!FI@Yu
zEw1dVsHN?zL#9isZXHQqdG~MF9SgCetM^?ndy=7Cx**Ps*Q?pzw=gW-&7fHOWcG$f
z%~A~qRLg$a@h?vFI$X&0`a}8oJg&B=Yue@~n9j^*3%|$G_fRla|KOTcAMWg9Ih<g&
zChd4`v~0+($t_D}y?VZ-aDBrvrtZ7jC%Y|tYM`@}Ez{sg{;Q_vH=XPSjhD&tFkMfm
zo%KRqxi@t|r_Q=pt0o_DU{2$n(*8fKx8sCz^n>rJeI}F4c3tl1{Cetg{YK+$Ny-1s
zL#(9U$cKxq+_L-gff);?7;!fJ4d0lz!EX=ST>d8=jD0V9*BO8M;+~)yD0Ens_4qAq
z{e6d)y;)J3|BwCLiOR<ZV*}n!J^pX1?X#YgweQ|tfBEn1seW7glFhA~Id{~**8lzU
z)8Z0|oaUof&7Xcakmlsgd0~C^gackau0L+SYxwcudsOrTA-S{}{oe&WITSaEng5%g
zU6OjZPuA+^s*?e)?!@t|uCSJL3bR=?gGu|JW8l%5En4#*?Yh8oHJnAv)8Hz@*`z7o
zG#l5<o4V0~hl8<n>xp+>@&WhV7%PN4_Iq#m`$4|wi)L%w*XBk3CSRn|AE<A2dyp{a
zE<?<uT~eMMPgVXj9f)*k`P4IWRr&txDPLlPcdI)kqzf5L_{Qe5i+^?w!#|4`uM1o^
zF*3GXV0BV*tcncbTC~kTRm!0*C~Ed$@zsI_i#!~CCA&8L|Fvq__nn9T=OyM#Wokqk
z_AOf|V6j>8O1+hm1K*^Lx>w`<SriO9PZr3>s0Y<~N3`!;{N1Xm!jE6c<}2ge5Y-wt
zm!zJI*8+~aejWaAx#;RTS?<jFu6w%DOy?D_DAZ@?8Jtpit-vU5ASN)U?8v+%OZB8O
z55KbpjdDL`R_r~iEB5p-)2=&qRV7k=7lqwCs#)^>@|7N0+wmcIONfg}!s-Q#-Y*<>
zpXE}HXgS?*@v=~Cq>@l+oRU;=YNw+~(8P<+Z%$H;dL6)WcaeJBI>xtWcsgzV^V+-<
zC_Pp7NA%(EDc_m%Vp<y|N`faymMUiMI+uThBSErh%|??4jyvYncq>n=4B350WSiUr
zwZyuNfPc+DWyPA=^3F@Kb!#l@dwSq*U!Y7P_sQE`fjn_dKf0bWKHK2CZDnt_MUvUP
zFURD3SA8`)!lE}#)l7)>v)`0mo8GWiet)?<iKoBA@zMQ1qF&qvE{_>@CrohXIvPEt
zQG-#*L$mAXrzIt_4jnAs5*<s;GUe5yjl9e<XSDoTx#~%QYt*_zX1-T{%zAb5ro9!;
z{<E{o-6-bywp*`)O+HqrJqY4_)AG9Mck`EcX?FLromB~fIdz+PxNK8wgvyUKy-L<Q
zn!Hp+>-F*viD#3N3#zjGpR*oRimI3U<IoY;Rrgi!wDI-+@2AWQx6X>Tf9X_ix_rTL
z*$7?tV}EvCVpLq4;d`&z<E4Y_zg?>)21S>wy7D;U!pAdBE0*mj+cfX@%Uv=|r{+X-
zEO6tUy}-jUxBK4w*vnJRS~aI~v@qP8rTKsTi^uE+;*S}!mFoPo4{K#|=1mcEOfo1+
zSix3SVbNh2!FlFGf}QB9tM(Q5Ta4NcJxet@kZ8MbZ62o%*H7PdEeadwO1V0iJ<wFv
zytRzS+3KOUk7#ULM<SnHmXOkfV7n91)`n-8%AI8A%JhnF-E?iIP=B<eebJv2mCY5`
zSzX^VRVh5)kblVkt%jcGi(o#Tdbh9c^ZYI}A7m?h;APXI9)DWp=$Ytr$4}Yrts7!^
z+>BdS->|4Xw(_$6<miX@L^teY&rB5juxC+`j!Spo!t7Os;WA4n-(J~wY{p@}!~b{=
z*LAS>DV?yG-LTmt*-<dzC^rX}<=?{SEv-y5-bnVo-jgFBu<vGbfsA_WBfX;&e>*b$
zh|W4~sqv+v!lIo2-+q2K|BHb$UKRfldV6!@Yf+sU^GsSD?*;bgu|5vA%Vn0{cGBg}
zIUz~kZwDO8*Y*5oIv(X9vcp^Ab2G~Y^K6+&DXG7LN;OSeJ-756&{^<Q)9eP9M$|bS
zq0PG1)=U4XEfAb|A-Te~!{*rkC2yAZD@nRcurj@n(Wa3T+522HV_Kc(>(cYA5*PZo
zj@z45y8M~@S0zS*o4<m8+a%4@z73A@;Y_t14k2sI5`<;euT*5bylboc3027hKf<=K
z?BL-RJQk1~tgQ1O^2J2Y`@xfs9iE{5&F`$`<B2~q3a%dtU8K^q!s-66g^N@Uu>}4R
ze*Z@Nh|`Xi`^)n=GydPbcEB%F!#Dc0UCf+kKN6j#XIvM5JdgkRt?Bx~XQzdm|GBkY
zzgyq<_SP=z#Yr*CJ}j9#<;V)BqQAv*O5KZ1f)vl$cFvu0N7Q2W{^s7miV_n;wW%#@
zIserz`tWjh5T{yd{g<T)l{L~5qHi8KzTc4GZz;U;bCL6km4DPyo=CWryI5R0b6Vf^
zaNdlcznMcT*E-zZcIx#lt^*F`$ulp$Dds<L@$Q*JKjc*s!qUr&H;69DmCsq5{I@Hl
zCq3$l)7>O_nct>c-@g7gaaNCLIYXT4lwzlE^JB}l?!MY1xZvyQO%k!!Cf$#Ban#6U
zh!GQ*^B{Us#}x(Jum?MR{S%ANFLciRR{8V)+SyfB^@^GTE*tiErCs5@c)o1L`CISh
zh5qgdDET|%;`tp@^mxk{H|=uNvyJ_o5OZ)}?Ewz8?^9ls-q6~8AkV^ib#D9CB5|fi
z52Szb$F7K7zU%xW8F62>V=O+cm3tiy+enN4n>*?2w$zl2sJADJUwv6T&GV`$vo+sD
z*WE2ACHAtJWyPLccAL@ld%QPGrQ_Z&focYN$*#Xw)_*i~aAA8`vN=hs_;aC7s6l<w
z$(=K9ymQPGyzy{7*PYeuy>V5yYcAJ#yt^N?s^xJ_@~adr-M%w%KV|l_a+O5;FP6*D
z(hB+}=2EzPibL6<MXYW=b}%iQ%I9)UaL-$zC-DiNS9*SSQd)eg<Up?X%3U$963=>S
zE&Y@hAwSV&|582vtGa9cEVPV$z1zVevRBjBF#D-R`4;8Hv)_A&7%%>wr0JJgYqngy
zEnpJkGA6-KKPE_b7C)QkcIId9PxjuL^DVE;MK|4cOOIVE>VAPIX?fb_H`nC2xc^4P
zzPj=L=&E!4jPqU3eiF17V>o+Y&!buU{2#9^yta43mzz_i)54bOv0BM(OI42PIvF+1
z;c<*|dgn{`quXqcY`yqI^Oe}2BNz9ZPnvaBP<qQEizjug+p;(Qbp0^Lgj@FHaj_Ye
zUkg`cb$3?Xk~4c*nz{JayHM+n>Tma-<Sv-Ht<KrCR?t(nOI%P$>G0>xFYez+>AKnQ
zRV6V%&q+mmR?-8N6&_E|`IR<@^0(^Q$IJ?}oU~VE)w(kt+BrWi-fWH)o!+gLtIGH?
z@4LkAIj$#DxAZ?YTK4Or_N28lPe)vRzWH1AqrH<K+@J30t?8PbcrNKUt5-_uPKUq^
zG0k_4o?UoW<yyynknQ02mfVZ0f4439yXM>Hh{rxhx`q8y*Ymt|F|x?|*ctfc&OP~H
z%f<e)^BUb2-THp{yUnKOMNP*xyxCs2JAG2Q>M`SW6&W?nEdILuw>c+YQ<=Rf{7TfC
zY?fsrk;|*1Lo?nPo@i%rZY@uHva$Wzfi8yIvAMSvJkYTW?6M9N|5WVdYUOKvTKcVX
z{J-<H@{<l+erlUP`*!AO)n8rfdEZ{XbbPYfhZ3#DV!uj-U6>cCU6&}`yN7=Z$16s+
zn_Gkan=M}R!!yaL-1M=fz}eNadk>zQnKxmV316UFN@&*i2_-U@<lDjm_ryA?hx}W!
z;Ja+yL$z$1@0VM;icY@yKQA}siBIJG-FNGJHlEzIWqx9<l8ieKvo*(4aT(qnj?Hc@
zX9O2VE;A6fQ1<2MVh9qszbA0c*%#%7)q4e}M>O3ImhsW~=60%8?eJQWstbEr4&Jvv
zotyuJ?NZTyhMetdED|SP-?Yr*=5n=Tb>UmC*0J<UZ78jqac2n^>xqj`a+7c7zFt3R
z`Hp4m{CCXq%7UDit`<Ho#$Gt9!?)<P=jM0JCk)vn9)-O=)UYCWv$TXz(7IPEC;J$d
z?>e|a>ssQ>b<L@|Cj<he=M_x2lXkVdoi*@j&V=gbFMCg1V%avg<X2x|3xmrS!INo>
zq5{);*R5rBI?NV&`;Vx!x!&KWld4`Du$SC<cR#6XUz*xX8IgUfdiR#jc>I=4rKxUN
zu;#|X7rP?lgYP}s@IStr?bBy3W%aLoX5UmM->y6E`nvJ`6uAwl`A%FhKhqA>->iwa
zeUAOvcHy<ZFNg97omws_rOFx=$a*hm!QIxrUe0Ii-()2Jo9fnxUwnMlxoES_e(lS<
zF7=%~%c@`9dgJE%!+rKEd+XoKo-CUD=hw7)Rr473;^&Q-bIx^rHb1^)#nB6QUR>VU
zVO_)89eQp1+Y;vq(glAEld}|@gVd+CDF2!i*?+%!@4KP}PAxK$7j06U&x>y0y}IAj
z>ZDt<g@<m*wR;-Z?y)aqIrHX8mEQO2#_$a)`eIQhABDeIFm3BQ)frVEH(yz7dwq&W
z?A4naqkH}b2fc{7n(``B>*~>1k=rfzvUFHxc%{_6m%nu`chzsHt?^r>Ib9us3v*k$
z)PF6LRi5`_(~>JDMz`<9M9vqDDK^rN@nc!9+&Dv<ank&W;@9^*o3-<7iv0fE^L2B-
zzFBnBa*f|+fh7|2axNu1rXAxw7%Qg1Q7|bZary82Vydj%BDQN<)>KW=+IM@6iTl$R
z2||y%W?p_YKi;(Ww2886hfSoc)T!uMkDm!os4m^OT~)YgXW#z&e>hH-%wEDN|Fp07
z?li%DmG>9eOPy4oFF3)=LpR=J>bW(#W#@tmnCI;;k!HzLxasY*{jGOh#L7o%Db9@2
zFLYw!)Z;aDZqL@XI+wjdu=4p%m7+BZd<7q_Y;1j;=X>x?)7iOKrW}tu_oPOT!&dZX
zz|oyLKa1wB)beu45q<8I^~qdgmHHgdE%KV5cgVdq)p@_+&ogs(me?r8sJ#c3BmFj~
zmN*|in<AL+@x0ie@Bsg%xgrt#Z4B?0h6N=n>0Zcj$v<4VOXg$NhF^j^GlJ)I9PiP6
zxFK1nz}4^2#v66A{bHvZGPM8ByU!7rzhm3ssFf#sjeMd_R&4(}eRX&0#%caH58sy$
zW|6y+xATcY)5qT@1J8PAseY5LxO9ed<FBwSMp^0cYUWS6rv*qod}|iQJ9VCE-lc_V
ztC!^e{<Uz`@@q#;auQab)pmYr(|qgK!QMLug@681O}v*>lc0P<*f>+=`Fp3cGQMkL
z{`=|dJ@?|Y{pO}4@1E(tJGRup*nY9&S*C5*R;;+QenLUwv+iv|ZS2dqa(}u+q@5_;
z>74S-w?Ql5<Vhnw%l`^Nl9C^e>{Gk*{=zboePNzi{+f9)sx!N-4qw=?^LSd~EXBi5
zrmVYox>I;stl0C*Ui*!@ZyauUwrESf^(3WpUaby+CnFZC@8|hpl=>mkBI)pz3k9he
z%bHU>?Tr=hZVU+F<gv+EC~mlT<wYqE{WHIhS*Jhnms6W>m?HWlg~4{ST1LzdHXgYK
zv%4{0Hf)^V8RN_?`^`dQD<^a5op2^r?_E-p4sNRrcG3xT`kPg<DYLBM;ra=NN@<*>
zth?B5tM%Mna^<19p84|2u^(dCp61_(T+A)QvUc4`9tpuF2@46?T@n@^?R}rpXP)#G
zj`p2gmKkUsb@|8Y3yY3~M_mr>Q+Bs_t#*CopAb&*s{J#z8>XeI@g}Bi<Pw}VA@@mk
zljN<$)4bEdl$z~lpJwi=W`541bWdRJ7pFz*qLgkF-jH<XSUID$Z}&YNmEW7zubA|*
z;opLi80r2SIzK<~el}7O-kadhqWwRXZBn~x7MDoCt8j;P3O^0h!~eG5p2B_d$Dwc5
z#@^S8cWz<RFiCAvRr;%MA)sMs$<gtChW9?--)9|mEKlR(F1WUNvBv%6bD~!~cc~S;
z|M35)S??32qu<_yO)5FPdQpq-*ZrTKmipF)cz0&oOIm+gdG$vX`x~v+XADi-@BNy(
zHMhUGyzkZZ6=FITC-{qBR=aPXUgRowQ>R~sv+DUr&;2j-PH#;yGEv!ia`ogZzZRFt
zd~B<lb+=Y{WtcwSr^y|0%AymuvYvXQx1;9iv3o&RmwtcyYToNpiAz7Jy1X;z&FNU}
zZO^y&NcvK(XF@6+*Nt0zAHV#PGM~+%v}RJZtjM9FxjR{2?+r++y-~9HG3$hF5i882
z4xdcBvOVfBtAO7$H6aPvuUEG4UHtg`vj2@~K?Zu#6Q>`r*fObk%Cw^o_r2X)vyau8
z`&eH38>eFj6}meUx6avX|NmYs`>}{)|2&`1*yeDGd3B9|+rcMgWiGe7y^<EpT%I(I
z+0d-KRCaSW?+LH_MXY%)hfbvTmCd}V7I{(Uvb?9(hD90oUTml^di>7)(b1XHXKxUl
z)XNxM`8n_T_lqk_mY?Z3sl4ct;k^tS_w37O_icZ<_QfBOxw1jK9{42fe%XIYztQ!{
z?+Uq@Ws%d346@SMJOtKyJ@{32;p;B;{-lX2Y8?+t_rx7g?zndM+_Sm<KTh4V6{v3a
zbExLJt2pgtFxM`vgk>tcpVx}&HP1Zwf-5a*uZe-N(u~f7iF;#OldtSw-u8=4E;F{F
z?S_5$B8|$Y2V8IG8g9;f%R0qp`R@%4@<$VFb~c_rs-*U)zkzRkfLY#Ou~WzTH-53Z
zq;Sb!**ip_GwDQYeqdJ17TzaI+*7B;30#sWjK6+q^QQaT&hI_4#>{l`rX}mu14D1G
z=3#vm{jzMwyz1V6HyTX!O={myF%f*E!glyll$kAufXUpm>~DWImhs*5+Al40@lRJl
zcX<fM+gYb;op;XgGZucndz=1!)6?Hv_WU*$oR-8dvWG46!am7whjmZ4{{0YV|Ez9?
z@AqetzcoC0xr;JYe0{9D)n;!=`Os>Yb9s8yne}0d?yNC)XE^yWe6@#3Ov>i&3yhs-
z=XBh?dgS}E66e)B=B`rs^y=oBW{0>{e|I#fsEePq%#wVn+LHS8wabdibrKvZ@uyzo
zd~NpK!Qf!MTbE<svRTQ$PX%$$`{bW<UFOocowZwU6c;6nUw^fEio`5^!L7zhc4flL
zUd4n+P0qG^!_XEs`*nF;O1A#bvU#_%d_u3eFfH6=|8>g2zne}8B{$F3C~MR0_iJJ7
zI467K&-zb_J4_qPU4MLhw5e*X|73fY(5cxLdt^(lrJtE~sWx~TyIS1hyY_DkCOvwe
zHX-H05vOSVoBUC^-;OW#TUxa-G;?QdSiHyNiC<PT=>1stA?&4utqilcK*f4yvn#3{
za)*;A<UjDq%sYShoFJ!S66?9vFN#?$0WQz0w?BV!vGhWB@a}EKCij<kvj`o&P%&NR
zM)SQHwhIs3zCCMZ(#neba0d2_YwdQkb!BzC<(bzWdT!96kW*`7lW%4&U!!G}D6QWv
zJ!{VW6)kcOO0$2hvbUP$sxDLhjq}~#p6~NxUfkXNVD9qTk0G{Ka`h*O`JU&kd*_(7
z<Wt1Xo-Up4blqij+m<=6PB3ukxq7SXQlH@a?t<vK)1#|8)k3zv?B|m{QT<A8jot?T
zcQWF9s+(RsGP=Gi{dCv7-M{5Ke|zLhuURS{cc1CkyRwT358}J}&fnBxO&34yv98@K
zz~Jf^8O!A}4?JjTI%oc4Q}YVxYquMYrsppCyK&XRCsz|hH>K;`N;eITIIdTsa$KTP
zOvrb^Vm@ZA*lu0V{Fax+7SG(K*tzR&<2_d8KWocf`RA9HWieWR5O~G2^RmaiZE*|l
z&C0P;5tkQ#a@RngCHgNrU-7#m%ozcTYVT&hZ8xtvZX&ZZC;hbb<d#npRvH%n_+}zB
zYwq2Rrwz{Q)Wu|~{FIY^kSQdbVQ}^|o9_vk$XUOY<2+u3@IBp=(p7gkK5r&ldEOGS
znbTvw8-`uHdwu$*InT5o2_H%gUZ-^KZ0wH(1=DyV3fI|b%$oRKf6t6vbL=+hP1&09
zNYhbmp3u39YscQ2bC}*}<-Mh%wQSo~v(CwXe|-C#+uawnaoYWlN3{<7#XtL<*m2ZR
zHlTm*+9s`DiT8ge6-S!YhU(uBohGB^@_)jsHMjP!@!co<q-4s9#b$qMBK&WzmQ*``
zH}<drQ>#rjGtUD5MHkL(l8WA4ruSQ9!fcM+M{|#q_s`tAK>763^HZbCgsNV|?OVKj
zUg@qWG8(@F&)<5?`}*_a@BGUq9neq6iBXo6brrZ&bbZ?C@YKebJ4@!NrMP^l5!>#0
zHtoiz-@jK1xSOr=``6YR720txj?v-!1D|#L86FcnG)~Mq)tJ2R&IN}*N2BJ()aRXX
zy|~}fveh#u!P9&5H^;Km*Usse&2Qv>;a2qWZ`9KH4o`JoEwdH8JG=Dmtfmh+xqE+~
zE}MB{sg}jOogd9i3%iy&&pJKv%v|P8A$3>oU#NTXhizIQ`@0U_@6!uEJU)0)u5NN_
z?u<It<HEZRA3Lit?O=+-r*O^hg|e^Z517qpHq<%l;up0);L^q1cHdAbd6OTdhvPn6
zJGaLAc9rH6U9;BX(K(K9CR;7z-7#(N<(7k4-gh(%%cO2P+Rxf}GxlrL^1Zv0>tf&N
z?&>_b>X-H=*Q3*3Y!Ke*@NVIv6BYulr|c^3b=qxc=$oZ*TkrV+o%l7U9vy#E6!*Sj
zpVimXr;5z^H(ZEliutbgx^8#Ou1y~eci6sNwX3OYu8g1VPw97j`VlO8zMOZoR+QXb
zRJe25@>?t(%_|T4YBexEXY`H!u!;Ftg>Kms?ueNc{hLbsdav`!wMGXmUYHrkm-9|I
zCp94MtR|~Q!>jA69-S*+R7{Wv3^X*ocvOyIr_Nft8UNQ6Z(u%mEc*G24=>**aweQv
zCVq5A)cULX@#_yiuVmn^vZ|SFq!#nbQj}MzYKqj#T_qh3cdQP!NxfIq=8d_`y1gRa
zIo9UqZ|_X+Tm62QTuz#8YdzIkuPQ4j_`p<lVu9enbH5ns?>n#9e_r%ug8ei_^@x*f
zpADq1TTamKu5H<M`IhsQ?+5!Dde5-6s+hVYnfm4?M3n7%DtE?n(#;Q1Qx2-6saDtg
z*=M#=^Em&-1m)1fv-8&M?cPxQzG24fRTj*bKjviac|QMeN!Htx2alI)|8Oe2;d_Uh
z``qh*$6gNY+t0At+T96aF#EMzKuIB_+fa_T|9qCjW5?HXz8*bwSF1w2U#={tqpbG-
z`44*LE`dcijyIh<%69H7tFU3+J!Z*=cXsfKt`)r}=zlhT;;Kw$kCfW%RUUb&N$i~S
zvVZs6{fOROeZtf2ZSEe`#u!hBo2ySB&i@_mEjEdLp7H-m(+|G90Yx91;;dTag)i#0
zz75*C*Zzd6U_^bpD1Tzw&2{~k*wpp+3Qw%ub-O2G|FzNtiM`+SW*lBC7+lv9d+DP=
z!p4^(X78rzUH@3-DZQ3ipvLgyt<HB%@j3hxs{@+0MF$1GU-?Qroy{_>NXa(x<pNKp
zW5)_owycSG+cTx3(szbVrpeu@J9Zph?jaJmWy$=v>65g*(~DneX<3%%3PpGbY)_f1
zvie~5&d!9+Rnhy;e!i#T8q<?m$=+h~Ju=h2=z2-}-{yVg(+=*K?|kG;m8*Xko56ma
zl4pMwOmCK%_P*-M1CFWyt*xsAU8kLiOEXM<8k1`$74hVOd`*2&RPo=H$A3<LaVg@>
zojtQTFIz7^tjAqE<5|DXB`E=$(3oeR&*-h1I7=*|es%Zpp0-=nI=T+Qs+V}WzbUWU
z_%Z8wL#?7!%(SOm8-7W>S)m*kr5C#Q%nQLjr)N*<{C9rH+kZPrPNBkzVcLroF4?o!
z*+swR5<MmJW^tHG@9*~(^Yy3h|1@WQS3_IdTJzNbwxM$tDT=W?+0l`tG5Oa^E(Mvz
zs#U+F-dCk5ZpfeMxH;^(uxOukbM29ci=o%E^(4Q!^{&5GYT6rZ^)c%7*{)4(ri+hu
zN<KTcB&o!HMboVo9${y}&5KMLPaImyceK=g+s{DpJxeYXx9^!+vU<vFh0cj*HX62v
zF}*dtZXWXdpz1wO`^*DNy%!b6`B&9!t@`%L{ri_GOF}+I?M`&MapjREOaEG}i$56M
zm+N^gx~|ezbZfGIwD33EH%{AhGoJ4eQ+j+>aE|BMMS3B|lXX_`^ZO;7Pv0Z*n7Qoe
z-Qo!wEGL^4W&UoyY4kMno7&H#t3F@#mf7xclT|;5>(eps<=&TPvzwncZ>ddQ5OpnV
z<y@7_m-o-jKOtx+FY6m=@aD@6UFW2&i?8?vD%kE&R*iccrew@#?RxC}#BDERDpb!I
zM91f>nl`C$?jqqM^Os+9-zWT%w@K=Xc+Bg&U$@WcmDzEH<K}Aj4ZD0VOfLPW)vg*l
z?V0<W^4`Nu;YVY6zCX^{vp+?#H#+=^-Fg0!cS=zmFP+>DuKd?}XW7<xkLI_U8}`>_
zpT2soTJj0MQ$(2L<0==;sjF@8ygcfqeR{Tp+Ws>vr~epjoO(;^=<%-2+YZ-E+29;1
zDc>!$R`y1njp{4Y8>-@yo@BfV;PTPldiUkIuMbn+9;^x9Q&#WqTQ|2}^w5gikJ{$$
z+FYqs_%bg2t*`l<y6NtU?{4`;*D$_ynf=Z(q;QV^zM~G;Rf^9p5@2Rc&2`|cS|#ys
zsoAE?tJ_U{{T4Qt+;)>FxZyYJYU<ispXd8rUi#UzV*YH6`_K4Vel2|yb%lxl!!OR7
ztuJ@PK3Zp@toB;y?5y7>o@y1v8n1o2vb{L(m;bRfr)3obIj3)3JN4?*bC(l~*OV-5
z-lbF%kUzbWrFoXTe(DMNBfbZ}OfcBBr-I+c<NK<IVG{fEr_H&y?R-j>$Wz7nowwt(
z^O#a=cBTc~x><E|r|$ma+~vA!PycxScvjW{rh}&UpWN@CZp5;6Ui;6D_wC);T)uwR
zpLZv_`|!O9c5fqpZRuWFHA`oT$+g9Ql)`T9JACG^K+-wiV;lGER<!@7x@}X`g^v=x
zOS|@dUwuP3R3l7R;ollP!RV95r_I;79p=tRc^p$RS3)@1_s6Cs4@x*B-1aL8UMs(u
ze&XWvNzabCzU5y%Q(dx{Z$<jH@YFl&=YCoHE<IZ1Xx=u%?ccN|yhI%A7i*hu{P*Je
zB43xI9W#<IerNyXxMPQEmfe(zvg<1i*+LaEE1ed4Y<xd2<do*LeN)m3_)mxK-L&3!
z)_>o~e=ozY#eUVE7ZQKZ^~BTDTTgD_G3gXcHPjEXuM0}?*V<q6@5%o|_WwDXe?FRk
zv8)raRujCe)4<FSe)O)TsX4~7PD@h@qLy{WdTv(PURc(WpWIga`5^mo?)kgkRxUjh
zH^HgzLYnThl-V-giQRSuViR@EEMr_eo&Q#*t2H<=O<nP>ZjPcTSL?j0EJwxf`r<WJ
z=Kinpj{Se~zxLb3#rb<>-`)HF=VHzG<R9;U_uJJjdC|1{kNtVOUBCYc?>TY*sAkpM
zw|6JsxAQ7rZT<Yqk}t6Zc~R4LtION|I_oI^{^5U@rFRnJ{{PvpZeLxJ|F}u~ezv)*
z=;OPSpMU*y^JdLYp~afzkJkTNG0pS5qRhVHJ>j2|mRri)vpg4k#Zd3`!_>X6AOCv&
z`}O)Cuk!cG>c;QmzMPcKJKrI@qVUS(zRz#?_S@f+PFH{a_u<~fv#-dkwVU&Be){wD
z+8KRiQBB5%wp;EB^F|9U*5|K{319u2|8c$ELjk>-NAD9E&$+Ho2z>q4zyJF!AFT@B
z*ZadKe^0yHq*@WYuJw66WBk&$N9vQV+qT!6))}3WsVm#FJ-9{o!Ss1{c8BcO&VPLR
z`2qX0wrfAS`xz|yZREeX^Yq=lL6d!Fe|}P7@1HntYb@XV!@t#cN5nk;b#lM8)QwE(
zyAQuS6g;tXZrKL43ZplL7Joi++|O$|D*JKrr(2d$i6(-2dkYVL_T6vysO*rD-HOu|
zSJ&1z-rmCSTyG9n&(mwQCGGXcxfhjPQ?AZR5PC4{@Mh%=9asI9noBGVy_tUNQ2*=o
zJ&WY!w$5tcU;Cj^S!hKc%Z87B=bybhd0yW3=kxnA|HR8<+#fvNGwJ5}*6kk8)`_VY
zGe1q+s_dc1IcZjUakIkNHw!=9to!(7#p{>9-W96eVY&S*&Af4e!0k$bpvO{L%-p{?
zVqPhQtIt2U{=^I|Ilofr067*(Ww(zCimhe$1iUNwtMmUn<Uev$P3O(LKTPl6KKwGt
z^YtmV9qTsu7_VSHCRpD*o1N(?zy4D9t5Z`>az*~P`W0Jjx#kUTe^kQC&rLO6>x)kD
zPsyHoqpJSq8aFGyughFA){6UO_KSyk{TI7>J}LKuQ1qHvU++3suKp3=JUjXH)%?Rk
zQ_906UoK4iblOJ$_2T{wyk+xZHuQY9RNpf_f@jB1eubL~H@q~1gypv9Sng?Jm*Ae}
z+&F2~ons;=*>_xCp#EjoWsfV<L;GHTt1AilF#GC(Mdu3=H&_?{&wgmS?b!4!ZWTdc
zlaHC6W~*Ja<++#I%FGJQk8RPtpD%kAyIoy!{Miae^M_(BtJFQJL&6f?94@I|Z9Mf;
z;--wYCFQ2e{53Byw_W`I!S=$<s7A??vmedTn&0~7_MS}9TUw^izXzlrE?d(zV`Ejm
zO!rwP!^BBPkD5yBCY!r;m(2@i?w!^sYPW1XlWvy&%P*;`FXslnD3!Kb8Gq)V&1T!m
zDwhA*^Ae9YhVp*c)pk4O?thz~yi!xHeV=$qZd>`wQn`zYANMmhf7040e$nyl<VdF_
z{adazzTJJ%==tor11z3b<~{ccN^|jdKbf+U!RWq(&JO?Z=G4sxgHFh&Z0O;>nGh+u
z&NyOAk-({Llh}HeO%1O_6IE|!Gbys%y~6p#Kg_9qqGa%E-j9<k<2$eKnDl<_@7o#6
z<CaVgv)1}m(;D9*R?-=Mq2F@F7uP<IOy!O?<M#Q=%1qZA(@PHNGbnQY+vKdeNj{k&
z@~7kjIS#99Pp^ON=Wu$n+(zQyrnJy&ISq%Hr(Kd-@`87hNX>!C_icAw7n^_P?DwM&
zIwvYyp651Dt&_@F&QN!wUM`g3`h}NC^&iyIeyoZKU0m`g@W|eo2lpJ)_Bb))Ly4bT
z23wKQ*)7k*7Vx{hd68b!vbH~%WBSjD*=I|Ha}HRCx-T(rJgo3J^zXmrKI?1lRAf}1
zJtMX+YJXnrOV>~Vmg#ek*k%4O7crPQbIRA;+Yxz>?tM8oYtHB0-vr*RJfobI<6EPD
zOyYsZ&zm+H5!Zd<%YSdkZtkwq`2OeDjs|9C{YQ4c!gl61=UqCt&L#QS&eMetf1fGz
z2xF>os-Eo^@kD`BzFpcxo4?=qh4|_(N8)8JDze>QRrtc_=tUa_#W!!3zt9O+esNa&
z%lfyC*88=~J0|^S$`9ILb55?v=NQYo;ur=S3lk2`-DdV-p)b$vk6T?G;j^Xl%Y=I#
z=Q$i#J)Nkq=62Q-Ub(Kuc(((*5i0)}o}HY3Z&l4F9(l$$j9gwV{1G<}G&6pC@bz>@
zyjE*?Tc+nTo`M}WC+PeX`4I8^jz~#^clW-Rw!cd<_a}Z?F<HXDD=@}@Q{|607w_qG
z1tr7mBZ(0WUtCqCPBedRo56VVBHN97Gs=0kDn8zA|ETYlW`kE{{Z(Ne#|egtX$x1C
zSsspOG1dKZfBT#Zth&#$nCy=qZ8|Sv?Hlsts6k230Uy?ftIuhD_C6oFFF@nKR$hU9
zVjP?APWrQ4wfx(?My{D#A6Yfz?&|0<y3%Mropr|Lk9KVA`}q|WpOlEIi=Sm+uQ+)o
zqSi_H>1~c*p8bL0=FRnYG#X!tZIt-ReKOkeV~4tZ=k9EclLr<Vf6(CWdl%TXCH&kM
zK^5WfZIcfK3H)rj^@OXaAaiv^X-R^yPhc6((qq4G*j<xNu4?)F`?BJVZHoiL9<wl>
zef)>_LDSzthX1N(xn?n}bn~!0>MtZL`gHAMN4LB4x9?lX^j~F#v$O7x>zsdgWNFx~
z_^y10XXBSgXFuGJKC$9+gyD+$g7rnb<|zqIA9P$FEVJsXUlCU3y3=GIs|l0E<;HwJ
zwq;4owjquWFEpr3b<oUBuV{KB^{6guv0~K}L62khJZ~&b-|xDf(7)J8l<|Dmk3=57
z<mzZu-w#YaAA_wwFKTj1f1{|zeX?fn$xW*w&UR-kW1Do)&*1eXiGHy&IVX4&t&~5j
zrsag5-W&Dk!0{D6Wv~9|^WT1Ilrzg&*3pakWti}TeDi{5c7mp!=Z+|>wh=#T=A0bJ
zb+GAhoLn8x8$))E8Hw*-Zp}J++Q^A>KhyOxtEKPCBi}CiDSe~*rd05>16ErD%T9Ei
z5$e(1b6FtI>QTYw8z*foJ|75TU!i_u*{1dJUl&gNV$Hd#`FgYUk;L2b212L#s=c>g
zJu%1i59^UUPQyL_I11<Katq1YaLK;)K3Ft)qn`QJXG>CqxEXAZm-<hWs#K_y@ZC3M
z$=eUkKR66xFMf=8pv+R47~1t%Y|e}Lb$ZKW3aigt+0W>5x;E5hwX2et%a46UrU&k%
zER2gbb!g{&e)Qgy!!5H-{>=%jUdkl-<H13TU+2uynl+RRbyBY^;QX+HLu7&b!}-1w
z4r~$aHkwd<uzcRbzpJAU{+r9X&{rYG;`8P&i<XAQOnQ7fQY2vE#uWWvBkAv7&)5|`
z5nU$H^rEwkcM-o)&documuAdp6z}oxSl8)v;c(crqGJ`h83$SCyxo7y^|$2ur;*(%
zOT=Uz#V^q~+mIgB8RR3p!*A2=%3~d@i`6c)?|0gBGBca)!@-Q(52ta)oAJ0G2#?*q
z@q9|YqW_Z#z3g1ScJ=FoEf3hXU+0#y$Z@wD>gS!0XL$=8G3=Z3+1G3%w?I%=&Bse}
zTPL`@mWz6>DE9t{?sMmq>HJRJ5B?uAx^Yd)EAv$6pS4rp?%|j?eO5#8Bi08O9*7Av
zRs7H_+E+Lu*(Kvb<ExU8l)w|wqVCUYRIE0MUn$VqIW<8$x>@m2NKfr2@eJK}CK<Ai
zvlS!M<{RH^T3NwvB<N7A{%PjP<=p8eOfM9t+pC<i(5l{4{{3}sJhzQ%c+{0S&-Xui
z7En0pON8lirHMOhG+HJvur+4XoVS&E`|r!ELL?3SKOH^q{py5a!kVW+HHIrLDOTk;
z{MEB6P+RjSs+7@L!0)-)j)Ug|&9?36oatz*U3*i=>|F_y%^R)?lO24MH=kP-c#?Mq
zr*6?T)~%f@KRY+bZwfX~`6?UIl2Eka`x(jqUH5`H4lG$5b?W+*c^e&s%3Gi7UaNoj
zm(4}Mql%G%OJvQ>%9$}wb~K1|KaEa1y)Y=v;QEv!63;z5`E;dIj-_{|#>|<{vhCQC
z%`=2*t}b!%nkP2>LGY!;-lr4phF+NS=?stYYQv{rmOlOSY4ujN#8a7-!VfRavQidq
zsZ)(<N?h?ZK}_Q_hyCu8vmIurSTWywB{;95uC<(LXVc>aQtzY>>1=+Sc_;YpW3NSF
z3<uQ?cggT~MD(qlR2+QS#D{b9g*DqFI@>NU^~qa(UgP3px3A?_`IEXF)NWtP>K9==
ze*Rj{RJp8}sD-wFIK&^=q;2pMKgBfj*z@WCcIvI3wq?#aOT`8)=WFv`_^qhWypwUT
zaCKv637e|<#De!#%ef^okFJS&|0K^RzJKx@|4{4GTDvtn7xcF2CiZ<=IjuJDd)r5+
zcK7WI#F}sGRPDI-HbgTjd-;Pa2X2LD<r^0M`Q9c!F)QTQEj4%ERi#^>F7GYYd=}&1
zvxC3Q{PX(z(_BiYFzep`s?{l2u~qWfvQM+3vMwqm9b<RmY=7tDbM9lL+mQ&VuGR-d
zH+gqYdsNCH@m!Tp&(3t`POfaO%nw@O^8*@EbXqTU+>sKtGS^a@ZGEQb!t;Ak%-;8N
zb^m`|wM1;a=hUpEtX;}aHG))`rX9Iekt(Tk^-S)M4bBF?HPUq_Z#vzh@N7rlswY2o
zL_4is=H$oj$KAHOsP^d3$y`kajK6~0o1U~3T>hmPX8SPwkXw7|n>z{Lu9yojem)%C
zzijfZWfCdg``4&HzT_^v^UtD*E*GpnFL`+0U%NAf^{k2RVwv4$*_PjYUH6<)+HmNM
z70ZlcAui7^nKQKb7>4L_>0SKy^@i@My3T3wvw658q>lc*wsw>M2Yyjr>u{Y7I$Pg7
zTN|P@W1i=o1S{>y_asieSg}&mWu4Lr(VwQ%cjy{<xIWTU&OTP>-)WM1e$DmJh!($H
zS=WLm$J=mny<ApQD?3fIhF9**-Z-(g!?_!r`cC#-K6(2U!>^f{bA_6!^$%Z@UKzf3
z!iNp+%^9wrrJSQVUf!?B@D6QyH|@}mZCg7Z87rLHFDriM!3(y?Lw^4Gk3vfV)-(p3
zKUsHOe2)DpzL%5w%jQkGyz~CcvUi)0Cd~E;o>G>_5>k{CAS09XR(fOX-z}fs-}!y}
zc<UOa>{W^C)23yHP4H^DE~avb&HYbXV#3=4=5wzemY#XQB*1OnDpi?+^3vDVN8?NH
zsM{X=U9x$GoyJp%?)c09XRzBAu4`4*FsS$#r0Mi%g{8=X9fz`Ni`3j7S~h3tsHHcs
z9hh-?Y9{xl==<k(+D>*7(lTURKIx_6wS5Oz+)9Lwl)ULNot_`Un;CHUbj?z!MO+zi
zF-#?k_8)vC*tk*g(3xjybL`*FmSo|PX^M`o7PHI=cHjAlW#58>XZ6IkZrqh<nXY<B
z-gV{@m*kI+@BMufbk#Hd^p}QJ<`?)b-w|7JBK5-Fy-Ul#-c6pK<-18H-{#w$-(Gq<
z`%MGNU-iD^e>Z8%#^0w!s<zJ+US087DO9I?%fwlK*FEIvYnkxy^`<W(qUCoV6+C5H
z*7rYR?y<n#DnIY7Ja;d`|7nD}<fF=)_Se`q-wnD|#5Ucq{nMT>yH;7>9GeKSrN=hf
z+BxRlN@qJbf3MZ2!%k{B47a*PeyJTZo4B6Y<>0!&r;GD0e^R!Jd{DFN!M9(>HKhu>
zXPBPQ{j+Rk<I!q`XXTt_&A-LF()?mX!c0mow;w&i_y3J2$G3&6Zz&t6ojkNJbbW06
z9h)ChPPN;_?A8=XKWUn@_-;U5bVu%OIl*c7lK!f2{LO9;cA9lyVUg2wHmMuOW^K4V
zHL{3v>;ATXQm(oY)8<W4oZCMs-Kc+}ZLiy{Be_3zaF-?)PAOi$_3rLBS9k@VL`2Eo
z`RJ=vU>MW2dtYdXzEzj?;ZI2`*6p1&>)mF<r@R%1AN-ARt~3(=rFBYLT>Uj~u~o&4
z!~f0&=AWp&{=hdmdh4A@7e!ji3fFs9#7}>BnpGlX8Oyb$-<s#U7XOTJ+I`<!P$8zm
zaQ4BJuOSjg-2Z*HxIIy3M*2>+OJ=LW-o>R`_MLg<aLj(=f~8Rb6BosrN;KN;dKsPc
zmMPX>Jo2?_=w+eXZrl9DYgObbj5^=H%DGr>u;)>@AM^fIGDk{FqgS40ox-ZH-M8l8
zBmd+#V)G`vHhOt}UCzZDnyCw3zMeC&+vb>7Q<ZY)^P>;f9o}^7r27%KSw`-vsuQ*6
z?aeMZ(D_j8cA2|Y)xre|q56>z*0y%BJ1elve7h{<bacCC!m`%u|4tTsnjRXMYLKG0
zbx&J&*19L5zG6+DM_!&*J8`qEFMmPdHtlXcZngjG=EqND&?!>cFqv-~e_&Ul660#u
zw;U&PW^LHC{??9F=NMN<#D(87IebUEdxaOfh{r|8s~NN3Z1YvS@W{aA^7N{HW!Dh%
z*cBXFY`wqDubaAxRxMk5?e(W$;fETR&N6x-@;}iia<}5lwTBnoIH=P9UE6u?E>jOf
zRxSH^mhx`QOZ7b1*6x2`HPL#`N**OXof9jMYHOaHyQ=1ezpX~aWX_vvPkPywUOLkG
zCP;Fw)4nU*9%ae5s<`)y%WgX=vZ2MmTJYw<@J5rf)&g_4HXeGtZGpRn(LN*R8AsVe
z0@ilR^KZ~<&e!u<o3tfny$EB}_7I-8`5(UqJJfuV4-j`P5I-PLv)yjmUmdM$J3Y;=
zv^BooCHDQ-!gZPDucSAw$!tEp*R3)4Z2|lHEe`RH{73$|&NTM=*}`Z0LV3~t#G6x2
zT&?@M?u1ErYR6CYw4#}_Pj?v15c~eLf$_3|$cL|a8h_VwJG0w6UbK!q&9e7^w4U0Y
znF67SyF<KBOHG*nbb{80qBZ_jI)%dL*KE`}%{1@V3%_d)w(3h2*uEYNm2D15xOl8S
z)$H*dW@9snL)`Xan!TC@Jp$>*39ZE|pBFrSl&0mrW#MKWr&Hc#3|7`{k88HXgr84Y
z{jT_@+vTr4w;SGWOiu67O4^gEKPmXc_3Z*YyR@=IE?<9Ae|fU}sT<QpzkFVo+H95J
zy~0}H^Nk3*KGU^%I}Lpnne6S(oiQcB?s}^ytDwv=x9oHE2V9mOh)v-YoUfD5di}B3
zF_n;z)zb`3Z#bD2>FkpDA(tMtaQ6kPuiO1}1W)-l_{@uXUB1h&tLwtSM<ENkqhi-_
zTBg3b8FF<Jm;I4BXE*nLeETYT$+ZKg(%yK66s>jKywFcRlOgJ)>5cX`@+#^+!I$Lj
zvA&WFIg+c|(6Wpztz^cgo5vV$+a64KqmyyfweMTi7mm5pcTSwgx9h;N*Ee~7EsaiM
zFgLC3o~wC0%6&O|s7~z6jLcOj;@7Wj-Fqo#a-+|zSOp*RQ)hY3zO9VtVeA#`P2KzK
zaEn0b0zICE_nsW=d{%wHxS!#kkaNzK-7W7L@7m74rZ6wm)PJW7|CRXLOVSPme{h|8
zrtDJ}vsaSs?`zl1oIXs@iI*0V(rGJeF4~;8rD2w4{Koj1X0M)Dm(QCmaAB$18m?8Q
zQ&uj$r1Wss1zqury|wL*FaP9zcHj1LC-16@>LR;X7BnA^Jg+FW@m1yG&9f5z9FdQb
zVVrGr_h=vAW=BKCMb^dcEiaQx!aLcFFC6V!eM?L&s!8^YNzB=ku6xg_P3;VvF5$#+
z>C~YWlbVY!@;MvzT8iebd)%`%XJv2bHzS6{S2lbS*uOjQrR493oeI3GGi>~9WN)_x
zxm?|REGuSZf^Tewt?+EcYqgJ8tT5T|x@d!L-}aQ~JK}#&-ei|#o%+1h<mLXf<CC@W
zSgZ@b$0@t6yS6tZS(p9&`V-7=t^StswEVE$Gez(JFWDNajQ<V|3OirLoetd2vytza
zb?ifh%VDqBqq*cZlzytsJY#)hL!H(obLn%8{Cblwmbo8|370%M$?5I_t!(wji)C1n
zo=K_4x?Vm1VZm*&>me~+&pe-HgfMk%==-F4xNXH*o;!xZIiDuE7V|kB7T;TZU%aHV
zF0F6p^eHV&@8<b*zA#!)eoFQJ!ndZo8GdYfE7!*v<9=W+R}y>CPTys>Hpm>|a^2?p
z`|H!JuwdV%d$;|GDd*x{TJZR-=rflSn*B3F)uvwlv~$CrwzAuN54FzRJXerZ|2f#S
zZFBgi6~2~z`_xuH(-rO9b8yM6e=R)g6-|OW=kDPY`PAofG?|HY(PWz$yJx=FJhWkU
z<@ZY+*C#Fyopd60pK-F24a5HL0{4GzJD6iEVdDGkb4SiOFN*~kw<{hWT=z?(|Nh>r
zdGfXj%OzgszrW$K_v}vr*<)uqPPb)m%u(Ka@Y9?v`=>O15Pi1G!f~~A05`k%O>W_v
z6WsG=onX7Az2W8F{H!Hmk$-)KZ(j1fE9tvh>QP%@$?3SH${xncsyYcFzaPBrU+E%Y
z(<GhuKK=0hX68FQ2T$H-YT5NgciZb9>Kcdoy&9h=uT6P-g1>KtsP6lald0QJKD?n>
zn#bn8*x_;0s)uHmE_LX<{n^QTX7>s9NoQPk7QHl$_W#S5>N%Z%;tT(*i!&x|F29%f
z&0g@$qlrQ-OOLo-Q+y)*g8k)$b!F)XC#}jZYyAAa%I{>=@A~ywW|>+2pNlJEPaJ=J
zzFE*{_Rrow$+AbUEbjjr7k}}AlXq;t!0SGBo%*T^0n+9tUU;N;xGF3zJZtD6Dq7un
z-0tC@Ehn}soX<(v%&_ay-MlT`Mq-gIp5Mf*_)Yu|va?RAbw1YrQ!r+|=}htWXIeZH
zB*i@3;zFhS?B_`)#J{>)dY}DKvtmSZkIA36Nu6^tieIx#*fQUvGHr?Wdx5f9%TiDM
zKgXx@>*=q6ZHM?@EsdxYE7*QGb=rlw4#{VBo66r{FKzw$BIMnVn2xx|d6RVIuQdgj
zu{8D{P5i!h&HT@WkFP8+{Ty{Q$-lJHx#lu!+tGP;de$bHNg9hRgB#+nWNY8<uo8T}
zlD{vn$~WrKE7=WA(>x}wDhhsG(|w_``_Pm^{rIhxtF-r5N30E7=(6hSr!^BfW|lwu
z)vMjKnCGuV#lp7-<}bKvs=V>@v^e&ED-@KyE>*b5cyQFcD-UO!oX&ji#+Hpeaf^HJ
z&7A!`{P+1|Yxs&&|I6ieZL5d~le1ZIH{p}Q3#E{a3$`Up4`_2TN!_;a;~%v%J2vXO
zPb}HY`d4?~p-Y9*uYdh#4S#arl!T3s$UTYDRd3qN_3oXxEHc$`dr9o8a&7K>^YxKh
z71knpYqo#u&dv1Ndx)`>XX#$sJf{oGEf1G!z1$LMI@jpwx=F`4Hyz>m9ajE1&i8(n
z*R!dItU{XC9$DHb_|(Mq$O&n7W!|JcQ3~A8cB`%K6w=u-)xCBK&s1IYX+H#Znk6+$
zn!EDkcwC$1;lVw*IWO+!R=YL+Dlzx@ZG6hl&U2Vvem_>fLT$G}lKN|V#Y3IVFDy1~
zD65+8EN-s4Wp<YCvNIDa-tf+zS$fm=iiP3^&n>y}tzV{YpWl#|dNWe^L{Wrd%gJ}5
zyKj9`+}dgSH~j0Vi4&(!n_8y8a8l#v(huKHh~F0fwzU22Ga-Gxd6jyGC%2jCK3~7`
z<hkE-o6hvg*VN6q?ZK_G<KtGZ%<eqx>&9NwQhTHXr_Wy0>b7OYw0UVZ4HKneu8Q)Q
z*3MBAjIiEu{@21a%a<(L<@hpVe?aeo6S1?I&gVQapLv+uxGN*_+UGMjU;gcz{Ym-W
ztqb>NmvNQ#uI?&XFS}yab*nDpl3m~YJ?Gf?ik*C{E;4W0iT1zO8UO9~kW8uG+o!+x
z<b%%5^Xv;1YyaPr3cUKD;~t;i=0B>I3mPA|c`;5aQoEn?&)e@^_2X%pIunI^-#>n5
zsI%vqqeP<ouAR?UKDOV+7IHx>_tEw(sYZIWQO!}6?5BUqSKiPRee}DCjWhP(l?7`y
zzb-3J-?7xM<}9=Ny|^yk4UEjs3cCFdcxFU?PVY?oy_xBn&$PL|nGGp+yvsJsE}FUC
zDD<357gzhDDQ?fq4F6uPYRuR>JMGrDlBr?5xv$TdYjx-T_*^^J?XBI8ctxI?rWn!o
z{b~DE%oFcFnURtw#k)S{C}YXYd(t-?mbQ86x$H1t@hRKwbtB(BaBa?{?>SZbZ}zy&
zy%CVUabK8*#JTSl!WK(rnt3Lgw%<SH)^^hLq=ej|&2KDznaCghtY4wHtDy8~^7<K>
zyStCh{<%WQKCQ)Or?ZvGikA!CvaReEcBozQQB3ut)EfuA*JiaBv(L_|m>PZMM`DHK
zom0NI6Ax&`%sIOA=G|+Gnvae8T36I(Jb1fDAU0Nx!Lvl`kWc%Z7-{CEeXpPQzFfNa
zZF>1sXH}m1>JI0r`fB~BG`DF#H+r4_mhHgaJ1U~ZJuKek9NU&3-u~eKg@@4#{GZKn
z*Eh(w-(4o1{4les_vRfQy>}9u&Cg_SHI_UVBlvOc_Nlv>b(^OPs-*_)Q@i{+yyE8`
zhXk+K=m+vv7u^3B9(g4vvP%8y{dy<+M;S}xA9la(xxrVbyW`>m_dU*jiv#&)?^Dn#
zugJOb{ngw3G4p>OR-Pn1Iq%K<hmIYOj!ORZNl5dLWZt%C{-e(a>szL8y1h?7?n80K
z^kA_=p5K&zPx*h)e1W#ig@dkV%s;T6FuxcsEyJQ19~G|Z=$O5cxn&FY`}@le<%Qjk
zX??mg<A`5$>7<Cr1LYE8#un;Z(-?2PVHN$;YGKB+b53;M#MJ$zM|OR$`nbS_?fk3V
z+E*?~#J{WlAQ2|^<7|TJFS%v0sehxNZn1yVFm=O~Q*32_luS2Bewo+y&hyo@dou%K
zswV1J$r~NG_pWqi{=Mg?pWU$gcE^Qp)AO5OD=)9_n3K(7yI-y7Qm1r|(826&cOS2G
zn$E@lx_uq{?!LK_lhiCdtMrN&#hMpw;`Z=3CoMm1_WNI7KfOzs@6ejN_4(`&U#{7Q
zzHYghZ^b$7aY50Yp#O7cKHIWjfzXd_O%GoG-27_O`n#1Jl3!&jo!<V8znij<SMe!J
zQ|%9ltL9}*T6w2*KP0rJ)U<m{nfze3+w3Vnq?I@Rc3a>+!CZie-}_vuNb2itCk^$v
zD=cPnX_)3uYI@%6E#f}!`)4E8OMGGhq2cNLJj<#+YkFF)uKFC{JnPbC^UD*WKL5OM
zLF}Z5LBIsR`wNWH1aF)-(A8GfRCb^DrPk&u`-$}CxY^~tp4t1?CvZL8S370%bUpcX
z9CKy|7u1Khgb7V%{ny%g^6BMAr>87ixN2D-)5EV4$z82!3vX}OT)Z=dmwV?;j+S0N
z-`_D>#v3|21!o^-;Z<H1I9IP|>c60%`|?jZO4SvE*>tZg65D2U?$Y%ep_0v(g{ph|
zUPwF($#jZ;yXdjQJ2vM-?-PGle^l1m{!Xv->-o>m=2qWdy(G%&i}6psq{dF;*2Vry
zGnP#2-_SMr?xaaZK5L|(DAk;6+c!N}t@C<Qnwx!SUm~MVaM`B?QIll<&OELjC&gv$
z=EU`4s`ZaUR?E+tYW+E~T+OJUJoM3m#rFj-OZ_?4lwnb~mg9Seo{W-!fZPI(4e|d&
zz8<|M_a^My*PD|TZq#VcnNpj2=!<M*>3#9o8h%BOxk=^Szw%-x87Y2c5;-$V@tkU^
z&2F*Di}bX28+$iQTHkA4Al4}LtgnYTVDE#8>yz&{vz=+zP_Fe^xPRW&2R5ZQj-K|?
z+}`w2<~(bDLG_u51-G1<xj2er?fna6SUAM{*X-GKY|GkTI&*(4=e^|b$l2c#eZB3F
z+3x0f$ssCdmcDMfur5>R`7iC;N3XnG<1dxf%2@ND=fIrj_qmt6Y*My)cjDKx<n=QX
z%YH9h%57$R@yFt7VZ$X4SXcb;>|SK4yWNc8)0?E<XPbX|$Hwuff82I|f3RJXegfOG
zlC<m>hJ{i_8<`J0e$c(3O775=TX!<*+djl{+-5I6xqGAfBL*Qg$NtY77|q*OT$;#!
z_vhwYEKNH%+Dphr3h#@X`Zd&}BW6|T+X<$V_D`4_cj@?}#6!8)va0ty;8=R!cg`N0
zXN;T9ZaP1wYlYfI?H`Ai=xykkks0zXQ$#nUXIoY%|MGU3s+coYo0mK>ZMz@z>0#Jm
z`*l|wjs-71{8PofwYosnezV20R<p~Cti*JkBYfln_V<>|_pbT*Y>$#*@&(qqDJ9kV
z>9?j#%-(zc4NLqxi#V_Mn>!|7=iWFsFQU&+nMWh)$i#$q@uGHp%|%nDFVdKA?!~4!
z^G;RUwwVhgj_lZQamKf-=CqtS6P|JFo)Zf8UYxZpW7fjX2bVfG6v-ai7OvJivnZlH
zaY>`?jtyrwd`{7M(!HLs(!i9l?dFTXtFOCl+|Qf#@jDmJ{B`4i<yy1+okx?JU5r0=
z|FwSHpeUgKmCyX%VKcucOuKeP+PLp-{uwaySh(Z!)8RbDn@m_uW;0E@mtuJ{Ufxu0
zkEd{bz+dg2M4rBMru`qBYgjpc_BiiS)L~l5_>|?(riyIey^ncTbDdgksaC+^ec(s`
z@?Yw1(;QUNWB-*#7UfNx`v3l<$8Xxh7Y5&-w<qY7^!nLu^VQbH1Qtw)KUMSmtz~wS
z!2IGl{D=3LfA+Tuk6V}je8%BtDi03G@0z{zAXD9(m@5m6W$)c=DOX<jtEy<y4XyOI
zQyZiYvst@uJ$(C;O1?4QmdmWZ?+Ow=?q@48NNud`ziE^jyZklVnRCry=hPV#E^beK
zxpVtA?&nWp1eAGqKPa5XC~`YXy0Yd~x7Dv~j>S(DXHTCLqAqz;Z?U~^#fA?TE}RHF
z`F*WxK#0BEFAv+Z=AW2v@0iF_lpn#hWv;d7V#~8>hwl3+mGi7ImNGZ2)!JGt<DB1m
zZOh?8w$#lwamj)@H=`Cv$xT-Nd~aLY#@Bz}*!VhqvE(#NI8+o<kT=75-!*}EA{!rU
zIKE=vGOyO6q}zwRn#x<Fw3=k5a&j*8bo@8>x$REt22=TmJDI`{dD=_AUw!67jKS9h
zscF-`=*@m;sTZ_t^0VC~DT&L&Zd`i!rs%%F^zxgX(w^EIXUkq`DPOrjwY20u&jPP&
zVYBRar-nS~jJ4A>-W2dyzdI+<T6Ph~8)^0XMSqX+M%J*IcSK|!He`)Yoi|s8x3p=+
z3jaq{@3fWs%nuauRke4-AB)nDl=l3#e(l=Yi<^&x2A}qlNji92TD)D0L-l|zr=jf4
ztpQ<gPG0oi?B8xVWyWJyFQwzGH<=#i*)C>0;xgxa`W45HB?+H(HSRbl&otq?9$Dhm
z5NS2zg=Kxx&Y!hWEyWe8^CTK_?O(<(Hf-Df>*=nTFPk=&R~=k%_VE8E=V|%zPWz<4
zoIE5yC4L=G{RQ_Y2@l<Fv9sDZlrFJhwc#t-lFhZ{Tu;T?sA4glw36^GC6+d)-8*8r
z`z=3IH04jKpMUL*g1msLnx*9tqnzY|4c9F+wyot%UXlK3{}C<rk3WmfhPLRx^<KB{
zAzv-mxpJqTO}i@}F|BA`7h)p6<IU}zp?@D&HUEA7>-|>E_eTm7<1S7Te#9@e<;Lp%
zJNloh9xk}lb?o+~dxEB_)rU)#@JVE^<dELddDWrgoBx-rX~(j9PK$~OJWO4)I{5L#
zy&)kx9@lr*HqTeRFM4`~99QD{WeY4kU#>WG<;qcR%~_mGM_rTel{a&X<a;gA3m0h0
zmbj9d5+ha^GI8~rf65!oJ}i#d9b}Tf?~A!owxM`@SpA+zB~{Hv=7_r6SMxW&{v$a{
zrJ3=^)}r+_8iyyXda#+VcK@ZLkG+|~GB%!^_P?Fc{?T_nM~74O?w7aBy!7(^v5Ons
zmy3Gc(9}4d-F&~{$dgN_=6%>4!<2Q5_r}vGL&LkgnMbs~>~dOIe_iQ%^}_>KYQHhp
zr!CqnP;~R}9W#eb8mZL`&2tRzsp(s1$7Wslx~zA<*pKJRM^km)n92kk6s)xhpL@-z
zb&p@J^YmFf4?0`6UFz<OmlutUH=eC*zaX18Aj4(toe0%x)*RNP=T{!r1UYTcNpYC<
z@5RZ*|C|2*vFFj~b;MW!2wBz#SpjHhVhTIh(a^xy5@QLVp@E43QELEeBR8uYFP*3K
z$IQv%klEq7$+PQTnO$r>WqX;&c7lkHljBV#L$$+dUkqk2rbiX0Ga4wcoP2oyU2)M$
zo0+AXR{j3O*OJh1dHe2ZG3P$bHQjG>X0pYZAN&8jzZ~9g_iL@S&HrB)YksKy`TpnP
z^nRB;4<`Jt{PpU?=i?O<ZCf-WGQU3jC@;Ts_tAqAmYkIZ$9(R|%k8iF(!SVc?!$hC
z7R#=ukL_*#-F8oxwTY{lmd2&ja`<t2!Oy3!FGn5>j<MKhcQ$x}Vnuz8@cS={8o%ED
zEV(w><Y3$5&A;B3FW)?;>2Uv(Tk2mq*ZVQKCH7dv&6{^FY11_hZ~Yz3iW=sgxqZ{G
ze~A3;$y!)bK525}_Rh!MzwYQiC||uya@qIq>JQbFdvoTw+8t-VaWlK-&8HUcy4hck
zUoCjF>0y`8t?YLF!}r&II?nm*-O(p|EdNRE4?T6hDeeQ`^^1pDKmFj{=fkNPQaP>p
zcwL7v_hg=VJUVC3Sg$^{S%l}$>dQ9|#a_$$^;X_L>yw{$?6%{(4^EYzS8%v>Mngp1
z-xnY2|1!_j+`ql_()9GRS<`RtJM?p=#s0m$Cz~%RU6_7%qV|dF^+%rX@|?Zl_Z_Qa
zjItBYTg0qYOYfK8aCv7no45sMzqd*Hb5C#UJCaY&m@u=dM_s#g`KjOIZ(0{-Dz81>
zcs?)x`77u7I`-;un-8tnGu7?fsyEN>F4a4#y(6IIWLs-n`r^WsTN<W&m+oOm%~DPH
z@#@Fhmo|r&9@I+MYW=`k_u)x{+q=Hpzw%URb7k-JLu<S8WOsgvm12DtRC`5w59hXP
zCm%moP`RQqXX=guDLe0#FU=;EPdsk7_D|``?B>Vw4yUx~ENpFEIs0K=R;n83l8<jW
z*%ry@u-)`k;*1Ns7?yJXjj*HYH?=?Y-*bNMO5eBJ``*Kb*@0o~DqZYtO}V!J^k=k*
zY`)TZq*ti-Och@~JJ*(5JTqOaD;9rY){J}q=xK87zU!q+Cv>ct!BTVEXw9|{?ZU_X
zBd=B6^755dW0$vY+<L{pN#W+V$2OYA*`;&p*tm@tojF7j(v6Rc_kA}wcU^E=rB|z=
zwXp=x9>*QYPv;+s4OCqAwkq!Ci%-ji4LT+qyU4j{&j+b@jGNd}t+*d-djG-NK2!1K
z)c7!_rlkRlGavrAS$LBtczWpkH!31=KW}oryuE1K^4+dx-y-D>tT|?6+~OHwE%2x1
z_6c{R4_fi}!p^03E}2xj?8cX$mZy9!l;t(YCrl7yyI&w5X}HLZ)4#8C+w~o`(%WXM
z)~dYunC9xT==yF^&chG#EZ0BI3++1=uH-Yj)pm~fCZ{=H4fQr}l$tl=-sAMi=@y5d
zhLk;*^xApGAoqVHQzPdCk$DX%e>+52ESTpdZR#*d+wkAwQGcEG(&Zm6F)HqUz>suo
z<NxOz6<^lm?%H*9(T0-_+jhnLX*$}lLwobQgd=Nff;M-1CAX^Y6-W~Hk6JEfbF(w|
z$mHUb+sZp1`0jmBx}@c1K$g-H&-!z(SBUdo3(yv{4CVXyVf{VPgBBf3-QG2RB2o)2
zoIK3^<HRn?o_tuUI>}lkW;J8YwnrH|6<!}sU_0Zt#PRr>i!2|K3xz(O_t;h&e3bFx
zr4_GrUaS!~F>liswGX?pSLW{gu>NDH<E)~@{{am)4l|y<x_?Nb_3EMOcN;fI*Ug*W
z-T1$E+T}I<`=dfW&z}6@!^ICP6g9gde=zp>PpC2VVBXE&=3-rLqPy?-PIs<3ot8T^
z+!j<!VA&;{I^9k9D~E%$@5(2UV$o_v9WI~p@^@dVamm=6_C3kYi#^FDH}S8MbtF^1
zfuIe~fzHLx-1=ue`peQ>e;}$b{&95rg-gksnXWv3A~mT>Xl2ekZr77F3%CBb!hUs1
zr%K})$8g1M*Ejn}uMvBA_;SvYwXG=v{C;uS(>()Qm=nYsYS{F*vD==Vxb@Ld<DSfI
z2^CNM)dZvbCw<_O=(U<Nd-m#k$;Vk2_4j2*_uUA~4%M9}|MtkS#sANmecyR9-kd}6
zvBs&R_KnBcTpI228G~fb-}f*((0@Ib@x`W_KkxRgxc^Zo=%Dn|{g0+;?ELs*eb*EX
z@#tMF2ZHLZt;kiEec$!{kLo$`Yd82$+?n~{&cdBb#V_1l5c6ftNoh9I^52`x)lPpn
zy6u`pwFJwjZ;>yUOzSo+wi8+9yz$;PSuf|RW9A>H9OLzS=K618fM|jI-2?kyTw8hl
zIOogf-Km0`zE7NWcfs_Ba@_*^>r~xZHpFoTXbY{l{r(WA_|w9jpWQ!51w7#^dGh$O
zWkZ*9>F4`?cf7YAkp1@hr;PLa6>eXrY-dlK`k|d=BXbeo*WenTniKE+IgU6c>|JqU
z`|-np8#hm8JnS#LaJKm&jpM8JMOD`>*}_v3V8^qh!G6xkTKDRzKmDtx&g7gnSuWJl
zuB_36MR#vn;Mwh*-z;uQY^<-mG*M0G@x(ygI!^}Y2xrD)x9;Qz@-r%&^bxw^dfDP7
zTflt=kyw}0?-O@OxhzS#`q;*><+Gi{!rBsjAtUp5`H$83&t6=iAO3&c8)0*Y`=`3T
z>#`W#d)oVwOTyS)OM=TZTKurZB$+)D;*7m4OZZY(9N!eN=;FSq23qe~x3YHFw`>oY
zANr-|p~w=|4SL!F>TNGBPiDEPCga5^G4-hGPNu*4FJ&JGKX}vguk1>H;lJ}jb)Sp`
ziyO{Yd_UeV|M%I&>FkNZg6CH}`s2tk!)%3RL$uTtdp3spe<v6B+x^^qc=!5!KObFm
z-*4aHF8`P7|NH0l|G9rWpS<7l&(X#G_LhIrBqZLP)NyA^e63c=u+mJir1EM{G5eGz
z-JVYu(>Cq8bg#tY&NQymVZICx4<3`6cC=+}&%M=m-uccwx0iF)gEb5{W7xeX@#pXS
z^VdlzLHmc$l4t%Ol$(?`GOI6oAs5Z?U#p<W#wytULz45~sN)V_4+q-Ii?M%YZCJYS
zpKS9hx7lHS_gJO#Hf5G><2`rw?0eZ)edf}xA9FP3Gq)w1%$fGFE0;rkyTY6{&)bXi
z<&sYvKf9U5^g`<fo36rFT=h}4UMxGd#1+ms@}yVtNXu!~b^MNO#*&%W5B~FeJmvS^
zw|8#dYHs-YVnbv9i!)b`&tL3*OiFpy1<lpoC#(N2{rAs&fdfN7Yx6q2ka(|GkG)^9
zUsCfqHB)+VTw!ZT*S|xjs$-6vQ{9?T;kWJbiyQqDO+^|$`GhjOh)Q=}<hW(a;+3-^
zT^2B3V!yXpf&c7PT?Icyrs_R^1Pz&EZ2B6tHWchFNj6V#WPjt5yJ;Qw-2b9EZQQp!
z!cu>(P!W&&U2fjE-}YnC)=6I5K7U`f#3<m-cCn-Ud7I34{?Gp7qi(+bfW@)A1odO7
z=@tGLe08>bsyZtYsVbweUhjLfP<CvQ%#F;d-rp(ff^S}&|6Zvn_CfV*lcvPL+fSOe
zn3c7BkBSjwKGC*h?)8nUF6O>$I=Z4|IwO0Y*VWQPPRb#R*Z4VwE-y$_59y6K!d4U0
z-K)1T`D5XigfniU=^ddTH0>PNlq0hER#a*4O>JYEDwKT9it`SePdD3sk;h5P9%Qkd
z=zr&;eqVpbEJMkc3)aRQn7W5E<}Zi22#2#s%Iarfo03*dwm7kK!i)bm%U&?(x;H=7
z37NEMZRD|4n!@ZCSk+4|1#M1=Up!GUY~87PCu_M5^$k&req_sjRouTc?%}4%My%gY
z#m$oBl>Bzd^}rv7w50UHsb@_-FG-NpiQ1BBT+U-4bjPF9=<}M$nNcUqfBOBKFd_B4
z#m#fCLi5C~yXntZBE2tD;bpGb<KM-5mweQ|Hna8jja4(6_WxtdwL4Q2w7afyzRk~K
z<>U|vg^gSO?M;^zW!aP6XzJ_ZwDsTn@Dr<qBtkZ<FZg-UC3hSD`|#6dcZ&aLrsu8r
z$yMz9cD8iU#H085bo&;qS(UtM)uM@?Z<v>`eCXWzjcMt>=!0I1l$F1fwv>cPnMFU{
zV%E9QarR8(tOKguYl|lz-fDHrz|z=j$1KUK8mW55r+6++5ILKiZM^s#gItPd)ykhN
z|C_xxc1YU9&2m)Z$$D#<w)XOq$Q{uwGw!J}d(@{_dOvhhIDES0UCXP<lNPUBc$jNX
zspY04%AQ7&FQn&*3%l`OW|(w0DN`?YzL?|U-yYv;!j4QzQ>|=pVbF5iP#UrL&tqfX
ztmr@cN*#B{$Qx)S)#=}~_W2yf)pGb$RdnKMtF3QTj~$7W)17vT@wK&7AG5*n-G5kC
z&n`H2`lFxbm(?rvlvx@zn!8^AJ38^QYVE<dk&Q?6Do-UI-1Gf$uhaak89{dcR`$(4
zYpK3stJ=xX|IRGa*P7mc7jWuztm+Sa>yV<J-xb1Kj#_@5+G!&BUHwc(d&~D|+HUq_
zmRjK4%kli)uK#-@FH2ocUb?Ktg~!Kd#de3APM?C9U2Sie2rpB+{$^p8=_C)1W%ilO
zQiryC_FTNXY$eNH0j_r}4FM6_jz9mu<G%LrTaIeFH{0$_o{P3IF4lANoOkWqqQWbh
zyC?pf6D*qVulaPzO4q85Yx7QUZnfE&+5B;%_UE5cT&phUt*$EA<ib9|=GxL{8a!N$
z^EQ78h(Gd6dEV0^i5X>{Gx=QPH(s{mPF^-gLxMZBjPVk)fplH5?&ha8RZWp$dOe{^
z2Ms=SB=TG+eH_IT!M5i0i5^K~j@?`Ky{Y`5w`#WZrL5z1A0&02PuP68v_Qe~P|@^`
z6+9;vNA{-kh8}Hrqob**lj@S@)A%v*+}#OTzBZ3s{_?#zwb(Uj#e<!lYqZ#oHf&^F
zWtiP5ZNASSI73OGH+8{*sAHwc%;)AOf0Nr))AxVJk~^P2y^VEyBYoB8^`z~kB71e$
zzfM`p#>u@Peet{erzh4(A92_B@`#_@)8EMaLrikTirjtkT?9R@d{$eYw{pLX^SZMJ
z9xG?<eRXxggP6eSS1%|YYWF-ZZ?RqH)@kp3XZCKITK4DVlfK_SuB@J%c7A!Bn!N8d
zo|Vc^F3h;Q^qOgdXKd*z&fGBdirJ+n{BCYZnA!1wLFq7;6MvbvRs8Idxoxpaigz6-
zx9j<lx^2qCvsx|3?nxc@O@24cu;%OWyRlnVwX!c>p!q+CwaumRiL|fF8eTE2y=(ao
z*fK3+Jv=!~NO;GuWjCIcaLiCx|8>dpwB3`06Uy|`c1W6TU3gZnQEvIVKNcp<i;W!3
zKZ@+&4*hULu0OajaBu8`PqTARxUjt1_poO6&qtFOb{>2F<*$<#>mi9cx#M?3&+L4e
zUGKdiHMf-E=$)M4DcTz@geb1u@%a3#q+1d@i%q(YPkW!BYa(%5_*wVflvw?IF&6j3
zFMKVJ29=t9`Mkg(bG1d-&snjNk!!8}<V>13@?F-PHg)1$?yzLR6_$EekH@ajU;Fd=
z$|6&ZtCa_)w3qLA;dyCuS0?-Rum{bZ-KB@5Rex+`x)OACN1M)7B_-C?3(BmPNO3Q3
zUNZ4`b=aC~f2$`y-*-_`LG0EnN0$nguIbzRRv-JhL2IV%o2`u9QEZ;((?a^qOfyxB
zm#ltLmdEwEO?9%Z9skQ^oxLVfULL}RmrS;}>{*j@v8tOpD6>3SBey!hgV%DRYm1-W
z`U16sO!-1zgVyJMUTt;!7Dt79_KKCx*^`o{pPYQ__d;{N;28(v9xvq4SLaq_Db!Y6
zusLJ@oE@ic_j0e{xo_6|>ES-_MJk4-dYl#N3&gfRR64Aq%iyxxR@&&pBAy#e>w>KP
zR&4TeR{H(D*>~xr+qc*`^-e5U9B6f9pQc|>t>B)%*sr@Bex4LJJ67f8vyo@rw`~s3
z6rWzwz4u8ouv){putR#UT$JFg$`b{tGH#qqo>|EjMotXvTsLI0o%^P4da>r8mS1Pj
z(wsS7+jzI?Zdhl_Fr#U9+@^WQ*}OHl!)~>yA4r~Jdgs*BW<Tr5rSG@y{JEJqFxGTm
z@Wq?{B~Nxu5zltB5YIS2E!&{cr!+jaVsXt&he?;VUCa~TlY6;%#~<NY@3-ZOUQWtR
za>#9xx?3u*C>iu(Ly^^1gIljTCjEURt=nUD*kYT(q1{_{`g1R~mh!7;ZRTCz6e625
z`RB1in^*DZ>C|-1kmxa;`AWLd=Z_lm?zI<^(>A&4O!&G^C}D%i_tR#qwO-thf5ptw
z(|3NHuT_${_5a6|4K+2}j{l!B=?>e;w9Z+xqXUy0L$1y8nyjRFUGYFpjcByvkH6cZ
z78fo0V$IMYy(W7}g=O$gSM9S&(L55{n`Hk8U!2^MVr8uLV~U*9;Ygh}J+{@i7R=4K
z^3qDy+mv(p!_{?bSMsOqy5f2%z)<;%{+yF*^D@70doJ{N&pwm$3*Oy*KDB*k4^vil
zsovfQbDfSJ#Ys<jFPaoAWnezL<XG_Pgd?&GH*Y)ad)>bG%UY#Zz0typ5)H&pCDnxp
zD=YbJGTU?B#BBG5Mdr<%u7WI8#}3RpxU9nPt?ZZO2FV@M_ar<F`y8{#VVZR1dcmih
z4C<zR6`8k!E`*66OY+vACwF67S4!$6#udC<@1J;kaqo)6cl!eSr^bcd{Uo*}pmtI9
zPtK!)y3W~t{hRE=Dz$6Wbzfcbx*T$Ci-4Y&`SeFlLC1{l+?}i9zxKMAzJ$Py|1nIO
zu|EsEtP`ClFVPKq%y@9g49kjb=AL)oc|S~1Xj=V4SibwhgJ7|obwPq%AKoSW?Fe7I
z;zRv1jW5xY3Kq_q%4_i<&6w@Rs@wo|BRiMJnh8qArHR{asBOQHr4@DB+cNK|qmIH!
zZSMcOCd5vDb!1<7o8>ZfyOlEwQp!8?pWfH|G_j%m^sVhGEA@6|2MeE5Xi&dyap!jj
zOJ?7WP2Y;x*NL)TVR5;3>(q@|I}F`hQw6h{9`3nmEokp2xv=r=zul~AK38|!p3F&W
z(vYo8{ZRhpm5F9)%_L8j&9fHeE3JyGt#dcq*qJbw(JFD~HT{moHCGZgWm@fKVqYtI
zV^g(ui*oPG*N?*&^2g_<{!N;Ft~&JAzV#ljY`r&bi+_Ck$fLP2UoNC|*&h_;DcB#m
zcd54&yQm<~+9T6)Z@R{tu1+%bSo`}`ZLaFPla0#vL?1|nJIGq@*J$F}t-jMlFz(z;
z{T5}9#?+HFK1>SV{@mi{dGq9X(3J~E`&wPky0a>1F4VHJo8hPxBlSk6<npn%>yES4
z>fd}jB}$~CdgD)a9z%uB6%v6Fum9MImFxdrnrpOc-9*EctL5K(<=1=rrEU`Q%p-|=
zuCKXwWAk>Wjup2zP3}7y{<rAYwxsH(TNZ6up|DeXeUfR<_BMT=Z#%E75Vj6F7Etx_
z_Y}va3-(VH(sj5tX-Wp`0ZBRUtv$8#pOy)|@OW|Ke8aU{ytkYVoT^x|XIZ5?|8q9g
z+h_WoibhPFdgh(*vh48qm5X=lOb=bk_v%{cOh4tb#jih>&R@KDPq7r6Zsl_&)~gon
zslvk7jSF@!ws?2?)#>NXllL(G$cdItbXM72kfD~e_{XNBjDqRMHtGK4Gg;ODY_iRX
zMY8{-!jHOKf5TUJQ;jt*x^UK=yX(qAwklNilz7LS)mK>8K07ze)$@&nTj9ppHDBv?
zs6Jk}w(fvT{~CE;8}`Moj^|9@t#-os@%ffxt3<C|@ymJI@_J|H^6l&vJV!&<&OJCK
z@N?PYumd*RQ+-<<YCno!bCTTX|62Cn3+3rY8TgYLO0IFr#=iPh7vJqBot~fadiw!k
z&V-o#ELk(=er)i0yh6-hM#y9O`c}zBu_}#HTpL{2S^{ST2S>cAzOqALM~L(pU84p5
z&Xd2I2v}QorivIX$o=sx)%DbeoIn3&FJjD|Fne|T+vmKenjEe_$eYnUXWfF^e_C!I
zeLmHqf#=K{wZ-dfavDzxyZtDdYpwjNQ>%PZg_`8W?oz4hpd^Q+xcA$gA5X4~xG%c;
z2#00uy<2MqkM9aSD)mdS^l|Efo2s$1#J(9bGwv$tcK>(3p!>1J#LE{qE`4*=@3hdZ
zp1o>1M|t-@2tE9?SnboCZ$>ZD^qbXw|2xWA*wwFoZI0-#6X`LY&C4R*1avf(r(Vck
zb<tBNVgs}G&J8hnR_d*4y#3F-)INV&8Xc2pe^zqu0mD`Hq7U)|f3Pe~?3f;P_td$b
zEgs#UxjxU~ZYX*4dH%E3b2m-&c~qZQTAI1Xo>JQ^W7`|196Y(1<=IvD8M9P_z2|Os
zTq#`tS@x^h)T9Tm<>SNGX)5>`Fu43#rED$HqkaEXsqRh2nnlJ*i;w8JCFa~PzkZUn
zyvC?V`e5JcMoE>}<E2l98<sz35-8kNJBNL``vxJ+NHZH3$$Qhz^PHcMapaY=wsydZ
zi^f;(IBGv|SAV!<pHWhPOx&rOn8^?RC2=}#W<1<`MO;LDlK%vSBY|zU?2jhgc=v~y
zP5bSVs^HCbDe4V-^2B~;$jC2O{k8Dw!C4J^<FlGrb;UR3cB_<>YUb46S2^<TsrCB3
zX?8mOLZ7-yr+6K*O8Iv5{H#qmm*$1(Mg*SRcOr9V0|Q@A>!SMwok7vpm!wQI-{W;x
z=J2Cght2n7%#%u<Iql!M@R*6E2Y0h<3K4cXYapxgC(P1ovP1H7mAV46MKW$8#~-}T
zy*Zcv{<n`Ib?e{%a(SgKEw|y)E~5jn!2);BE)ltA!n^s=i|MkDWUn)nU2wem<49}p
znorAhJNCb|RDGNNPD^#k^7~3b9bZ`{3Gih9|DdKE{q3pB`8%=er|ikS&MNC>EYBu;
zWp5MT;_D>`kKA3*92<RcwfP1{cH0ks)-v;X&fUV;9wT+=d(?|b-4nL<yvbVVS@U|f
zXx0gyd&!R%L|0$CV#c>xSZj|bOSAgwqu(q)uDvcFa&dj)^F?pHu9i#b9qd{iYW?6F
zuQ&VVV=Gq$7F5)4h)eF?^8H!J)f*`<66QL3$lYDFE&kqFv9#NIa|AvMUOg*2#rOTC
zxblE&E9XZ>+U6!-*tcfh#u?YY{R=<e!XCZ*(%as$g{illEE{u+??zn-Oy9iHYF%jJ
zk=r)<wF}$kh9`BtbdwCv`fk(_x%p<7{05u*p|%C7i*K+jD|7U^#mm+qC}Dm?JhP$b
zE!)vn&kWAfcQ{|X*?VWne}@{4*^$>7mrVIn+^i<1n3feYy`-qNb;r)ApCwP9q)h4!
zJXWIW5b{1V{Bh3x7c=vZg~@!semvru<HoXQ9}UEpxuzr@ZfrPeC10_?*E9FMze|SA
z%tr|a59zQ6+plO5J-PUvM?{>;jo66}(MMyw)D|1mu+00K6qi-^gj>yd<@veqZ)#NP
zU+_P=tszoWbM5aB3ol0<Y+9_MI?ecuz+TfCy$>tcPOyKQGkbP@o0wOJ?~Cg5->jBQ
zs?k_w=-t8Vn&xxF^Km4rw(f!>nu!vZ_dS|@t>jebv+LY5Ez6wucCE2GbK9p`(`*0l
zMdD8jZO*^Sy_;Ee<I3i*Z%uyqNy*RVwLK}%8!zCzsql2u3DxaaOhqN;THaf8cVGL#
z%9cX!{D*c2_Pum_zkA;DuNBiyr25@kTCtD!s_l{g4r{KO6tn*lpKE^OP=w~PR~zfY
zrTslr|NgQ{UX!f<MzzEBdbex9&eL0!=2*5FZl1n(`E<7P&-t>|&vwao=&xGDwCV5M
zUL__4mfi1|?_NvzqUZfZ^1!9ZO@AL<W4(DbCvN(es@IV-S1P``bga)e<_v?1Rokn`
zM<=>_joIFd$El{reGFS;5b<0mv*B#fegAHL>mFO{nP(>XGhDpDE#?xM>9sg2e$BHB
zmDwj)PfmQcYO(nKH?o<kHy53r`K<TioY`r6Umg+Kv@+P)Vos3$Q-xBK<)x*04*O*G
z?{6@kl>F<?8!MMNS}JDWROPl*?q`j$nOL=Q>js~$gIv+a58E%bFsl2ndNju-$Vg}r
zqj{Fv3@i0lJ67*@-}6&fd#Tq$GmqHlRY@JP*^Wk;(ihX}iXA7q1-=#iDK`JX+9une
z`R{a>So$no)Mh;4(e4>dGyRlGM7f2u-^KcU-uB}5@AvBbGivfGX6Iawz3-j!G~!*T
zzx3D1Mf0ASy>ov&Q?2cR`$wPbpOZzVRj6@98Ejc>9`$YSs&$<CTq2_Ox;v*ei4}!B
zOBD2(Ua~XqSfF{^ng`|G_kL{HSCYJ7qU!I0q$O=%J>QmnoOx9DtKy8Xryd(Jru1jZ
zZw#OGx<F#`?jzaeOy}9sopw)A_-of+w(GA2PfM(~4ENDE9ovNo)3Y}5d#6;KX?6{@
zYw$Q$(6#f}-Nv`erc?{$yN8^-6r0~MXX6azxxpJ6*6nqg&Bphx+HRfwhuKyy^iThM
z&mVMVWo?eW(CR%OH_K-~70KYuo^qq};dIk8p`v#zOfx>tx;xQk{pm|OSEo+dZfVwk
zVCCvaUIvwkw`O0}igkS4dNo}0kbanCnt#!{S=n>=n7d~`SumlSb5E>$p*820w*6as
zq(1-85e`yieBZS!^3SO@<CmvT%<NUYegEY_uClN*T>sVtHEnx5cj<q*_a3=RBlITz
znR4XEtK!!?+M;A0itRTo-5MPb-6hzjUh-5}M}Avg%1X1n^4IR%UTD_ZV3{H%oZ!}X
z>#C=)+Ui$dHzpl+h}*SvXY#4D)s5U?qMPo1s}I=!=69*#xw%_+Y}ZU{b5*#wvn+S2
z)0yU-NBz&tJ$>(Im#fvyGu!l>j>YCYQ(K_2@wmL4bMn*buVTqZ1^2M|YWtthR=M}+
z+k^#07k14F-W4+E;{Nv1Lz?`L{#jnC(bGQWcCFk`J^EbPn{RJ*KE0Z+>pbhIc>iyQ
z=DB+EH@*a{wzl9Fi<{z?v+DG2``o+pAMgeH&+oY(-xB0^xZtJMraAXS1eQz<Hq5ua
zkRD&AvoqB+YJ=3(J6!!LCNArqbZ!6Bp8Kmw{Kb>^)izdMm$_uT>$mxeZ!Fj?$StpF
zVVgW*f9ryC9)iEE1w;zo|J#~&OfR`^L4C$adEL8l4^`STjZ!l<KM;v)>NHHQ6XR7<
zx#<_YOX0wq6H3<vg11ES=uLkUvhSd;QRBUD<py4lZPa=%&RMowe$C8vD_M^7DqRV#
z-gmyc*KgHkZ)e8$<_Fwzek(p{C|H(ryVD_fd#ZfVY1R1j%#UYmFS^Kz)yv*&EoCd*
zWMtTU<J67)wlk+p+xMDn@qC|JnYkUgZ_Q2^>7Hea6x%%gj89L6_1d#;C+1jvI1zPy
zo1_1!PS2Ph?GFF0eGj_yxs6lc=Zl&5=h|fPt(~R4xl+}0`Q5E=Ta5Q8+x(A>51mt^
zI%D?I;3^BV&R}oeTlby??edeGyV>wX<kaK-1)oDqetO%p->v$(O0~UPuwONE!rR+k
z!bfZGKB~RvxM7ZX(xk85wd>ZXiW{%{;rOVa|HNjGT}}bV6IN}P-Tl^d&$-+!ohuJj
zy$)OEBXjEWF7q{&7u;^C-1_w>E^?w1chR)-{3@D8UFP0<FZHrpTV05~J>yNRjn3&~
zUDhiduFSk5s(*|v=!Z3HL#XY+Q!^&^S6yXb&CeA%njX(vQk(V2w!6`Eu5om_@7@jP
zEq`8;wV5*S$_!ucMS2sHwH0^C7`F5AsUEv|@?^=|#SS-L$KU-N8c=sQs@TQhZ*iHs
zr13RAO~W-Gc`kf&Yhn4}9uqgu;lIX$s#zhsv_F_EKO1&0=hmjOxo75|3lqO$d*JH_
zo$y)9CN0Y>I_BA-S2<P0G^IUKdC{fDHw(>Plq%b2FAiU{Z1U3dNg;I)EVKS@`S?V8
zy2>U#gWf6C6VB!2-<Zb#aLdJIrKj>Uxm#lnsci^|k8l=yx~@FLF0gn1<5P-yx1KWC
zalha^+IVb__HpfsN1sklI{b25Q0B@x0du7SJEUF2H|c6}Z2x&W$wu{pz@4a_H!4G!
zCu*yABs_2`sNtDd{yI)ey-(7fN$E1f`lms5ESCa=56R>NeNN0Y^4%@?uH_a_tMyNx
zoOxe&^qD+46{=Wq^0v#$wAw>Dl0R#2ojx&7wtE7bi07{0r*6g(j&iqyA8NXs(p{Ri
zcC)#>&m<;>(7fEE&$J$?e7RG~zxG30@rC1k5tH)mc8SGKl+Nhb^g+_C(ffMf^Q`16
z$GG=>X*A;(j_EkA*-{u8Xw`Kf@cdI<)5~)IBZPKblH4-y{SBvA2H&E$z7R~<eeJrL
z&CU~b@*L|654;fClbL1wdxq)lquaXf7DYAY^*&k~Vskev_+8kRcv+JvXA@6vms^pV
zCi7P#u=&j9M6S1!*yoAQkuPB=+Nr=OY^n0UWR~;d^mmd0dil5bHI5rg<*l@{{=IX~
z<Q+RcZ0qBFA9UsRW&WnQd#*Ge?%!n=vyr=5HoY*_=;@v4gohlDw*L7s<$1kk>Sw_#
ziQRKcIP_L+pYVqJf&kmJ)*naoj=mJ#+ZEB0w{ddz&rhp`A24Yr#lL!F*u8wh;Z(zu
z7WVB+&u=?_s`sQVtARkq@g(uEjO}J?%4VFjJS1Gg@nqj~(J68MzDy=Lx8HnfpQsna
z=bF&#dds~mRYaXZy7|-hY3q)Dz7*MR=9BhPL}L3^6PxziMcQnO-E*_%ZTzq$#WLc!
zI9q>_UGV<11`KTXHyl{-V@j0PGhKPP`QPR>)$EAS?#p1Vo7R5qlbiX2mA)LEXLtAP
z%b(r<bWiB+o5jj?AvNo+-+bDl%j6$e!*p%y6OLDjT8H{pcje?v|F+POA@O*FueM2@
zyNkoT(!U%WnfKQEZMmtLoM^rI-s1=D*?zeXs@B{JIiR&+<Lo7G*Kg}{eQ~Jjr3cGW
z7ds)xtiwtXioy%B^8Oj}2-a<%)*iZQ<;j2bsr&Y%%uC*}Q?B_}`uQU)VT%sC<XCtA
zwJ}^9_OjJEV4Zp;w?@3)|9cLW!JgaREnrj14_n+C?{{rS(#Pv5SJwWUXM1Jczj(&y
z(GlDiSgarGm|p#^By=ETW5u?e)BEjyt2rHYoqu&#%9FUSo43zp6PX=y(CBT--@?3;
zOM4!BMK?3FNVCic*tn$4bpCI#`ghxm`!ii%J4;^N_PXdp?WgS1&f9ErGu=5}N2ph6
z2rDeAh=}UiR&;7&*1KD`7U_L0li=4gG1d}37RIpQL~%__WBAP(548^jnf3Je>DNwO
zws7-m^IXZP)hsuj9a3Oi^i$pE&We)r;b--pvZ%Yfowux?HRS`dhtdDI%f~mcoROPU
zqvTt(ey!<0!%ZSN9nVhx_X@q2_Ag+6@7%B-oX2cabynsY-#&FJac}fx_QOY}PWIY=
z{@J0ZWH%`flbocA{;9tOnX)D@U+iF+^FAQp;AN$~Tdv&Oa9cr<k3q*xPd@M3;ueby
ze(875%<j{BVsi5CJdv>Go%^m&R(hiqvVFzn8|~lsu|HjFBQCu>WU{!)2D@D|-u~Ef
z+w6OGt&nn=?=h2y61SWW=!oRcnULUbY3{j8&p=T3__C09zHv&X>ohy=Hf*)1>v?Px
zAz2$)nG=-75&TB7xn=YG4-yY&pZO`{`i^(qk3AXxyGnnr$ocY2VR!My%cV6xcX+J(
zV)gHhF<<pW-bMMp^|cS}x~ATiF3+C7u3Lj+t>xa*xl!*##n(?edS^z$?sLMEPB>4V
z$W`cNzTvKZ^DXWr1q|EWHs90@nRk2VDbrTpnuK>uw-aqV;^j6-^06^*KNh@G?6lNF
zTdf6lJw?8A9ByX!dse=54*bZ@{{6gD058Av!|Yq{)f1v;ELim2PUwQnhZDR<OcuOI
zOcdx!yq}@6s$u2&zM9H*ALW!&w#Ab@+cz(;zmes<&YAUL`s2y&(l5>~=-yiMJ#FW^
zyPTB)F6zFOT&Fl1Rc()-_vhLjFe74J(?pBpWI2zW&o4ji{AhXZh}yOfGTIMoOV@lA
zp1{5B0LQ6gF})8SZH!8i^pCLH`BeCZU&JT<gjFwCToWyh2e+Owh?}$FjF!c&fYd_U
z*h{IbpUP&Y?VdA}=VaZnHm(izl6$r+Ni4ory?Jv{vsg^3SJCmysb^pJJ*hqVZrV>}
zv-K->e=do<zw6ob)Y|(Kb{?zUzR@y0a^=(KPgZ>4^q4O5?~Zk|UiPh6k%`9h1Xlzw
zE?^P4v2oo#GhH3GK*N)a$8wSvELy7Dx=#DqwED<ne^yWVys}4CJnYfIhV8RePUvou
zo62wS@znC*+4a3Uj|Uz6{P~@A&$SZoIkTDqZh5$b=&xz6IJ7o<?*_i-rjc9nI)Yxc
zIb4_dTq@MEBPC+bGsBBfa{tYrbu;z3i5FJ>I4vwUi(`_I9!rFJfO)VYQ?g6?-u>#G
zt`9WD9~bst;s{q%aPLw|WuNlrk){1+9%ZA$uj=fR_1-ygmc|7BW>WifugJvrTHS`i
zORGJO<ZCPTx++e3{aS;;)n@0`Kc{S^rN6OA_8<7Mf91^sIy%}5U)_ygUXz<_8`<Rc
z=lFc<f4!bdHyCgmFHz=sw2M=Lo0TiVbob9`94{-Dndg)zURFrWG3C4DseS&{%-vIZ
zEZe75B!?{xY`#7J+m?QoZ)y{#1}(9@DOn$8HUDG5Is19uKfO9F#3mjJ{2ZNj{juet
z1W&1dX?gQX5AO3jsGjc>*kI>=zUGO$pWUCAEhR!vqBI^I*igQ@Q>)?6oZUUYXILyx
zl5AS?`%_ck^%T?BZ=DOn;`U7o3YKJDefJ!9(Mzj^sTUrvW42wVHT8H)v2>kzvCnVC
ziluy?Hm{$d|5{CL;ghw|oT{?MGtap#tWsXxUaDpMr}6HQ>CvywmM)Cbx&2QsHTl6d
z^Mn%(u7Z0~BKP=sb2ClY7g^VrYOg5w*E3VKu2Yj^e@kM^P0u$6s;)6M&QNfPbB~kn
zTxx$~Ctuw^Ax^;*gIZ;F?#M+CTkc%m<XPoET_w)!(65wt>0)tKGV32?ZJ&O(+j6H|
zHsgVcOUWmC?9aCyR}8JUOKx#%ZkTwJ(a}K2p+(j+NHFSdleJrB!Q{Nuw#f^=pY1r|
zVClE{aLCykYf_gP|HxBp{&hrU<x`p0y`5o4gao}<T^8+6RdZ04*uNpQMf94AO=6&l
zK!5d_SG~R~u6@!??kw?M&99|jpfrh{ZNa>am)q`NX8-z5D=tFecz$H%nRd;oab{9~
zO(U1ExNgb$>UeP_^Q~zKjSKDDW399jUR3MI>EC#~cI(!Vy0gmRhd%A-UChk)+3sOU
z*xsk}#UEwtSl2V{YDI{<OB2&XcB}0IB0E1F<~c6)#^g{!LH{h{va|j<A7B5z;G5xd
zyH10(lxIWXlk)o=+e9y0<*v%uFel^97CtrMZ1t$M&Ea0zn^xMNwmkA~s^o<5pJD1}
zI^TL}b(?4vEH>TKyI}c-12zeQIoqCZXe_pBQ?+<ArMYw-<C<eL8k=g(9NjipsC;?8
zAwj}5``UE}`@neTn{8}*uJKp$<^I-xmeo<mSPyJyU;<j>3tkXxXlP-GSP*Oh6SuL^
z_esr5FUe3aG_WuvW<l`P+S`{^w-?TzcfGFg(dpT*i~kh$9X6J^!?<~lSBkM%?&*yu
zdP7sA_`UUZ+B}NX)67yeT>0t#yu27TUZ3Q&efj&B&Ir2stE7yL*+i=L=U3MIcg{}U
zG5e$a&;9nbKcC#?zk9bkfBu>Bdj9|4ADuM!cd2=x_y78G{r7c$MC3P>Cvt^F)qel-
zS^Z^hVS3M;mOaJCeD2-1t^N7r@noC$2lXt9JU>5+`~QD<(v`iRKYq!~CXR>iUKUsU
zxt?w*DZIv_ws79^1!>mZm(!njZ_1jL*u#H5X_DLRf?ai0`#MfWDZkPDzp~dZ_G6@>
z=32iejn^$^@ErVodHp$Y>&*487Jr}R+)>%ewLHBr%Z|l0?ZEz)$%Y^J&t2ZWZ`FCb
z<C144Pg7j0_}6RRUorU$lc)FjO_YBV`hB%f(2CTzTy=F}oHfmjQ=Na!*=G~4az?Oy
z$FhfeHgl=R-|K$8W%Knylc#4)ti9zQ#GjtRkTgGT$<E61U+>;DK4DAy#>cbtu*&PM
zhw}>$e(3X-)<44H^V#2j-oLBI9ag6<oqyH#%z0_m7w4wgHi*_Ttqz`ip=zd7kN~H?
zY0d39c9zWHXPq8gNpSkCvh-zT_RlpzbzD&wWEFlpy||L^royN9@-F|<FJ~J!O#Zr=
z;aQvg7aif^`j*9~5?XxpIWynsyqWZgEq>GF=3<5SUrc^ietS8$-u|KYspzTklTKZl
z-oW#5sip0|M>*<GTeiIsKXu~g!+QJj<n7C?e7?QA<nt_l0)ykBYg2ZfIlJoWllKq)
zGw%G<^*>k9#9z%&(&pFnXG@<ue7q@jKKP^$Q%Y0r$|a6E94aQiC3|nbi`hQo{@jN=
zRX^-@i<xU$Y8O6#IP>Y$^@)}r-e2RYdH#2~f8Dnyv#k{;252xO)<o>zcA)CtxwB48
z!V7%<eq{H*_xHi_^8Np=zCJ&1&+pIHAD`Tv|KR`ckNf}V{<+RxU;cfu`uqBV@0%B{
znd((^NX*VevNFAyK}bFE_u?(~%W~>>&$kQKd;hOq=gt|Sw?_U7$67W{-TL8Y<+XXL
zGv<dhY-YVY>sjmL{}x?}`YjLCo~ZHqYu%`Oz`Wqw#>$g>czzsqxz?Xw%Mq=-=Hj9~
zSA}$a;#k+8j@rhlI$>r4=TnDc;V#B&_k3T#VREzTM|wz&S;lXR=<};1A0D3jb>iuc
zKG~o%2e0JB+3P(0a{s)4{Z26zHRGycw|@-%N<42YjSilE8PVvV->iT8x$ORGg?uI7
z#P2zG{`|N!f4=^T?G8H+zKO78uU1;@l54lkeE-%ZH|EFLeEa+5%af)@k*lr4Y_m(_
zIVyvGzWiUycFs_23RArUljyqz+?(_cwL1#9eKI$$Rrvbyla-QCs-xXLtA7f=9ygr*
z_<!<IE=igHJ0?$mHuwLn3;Zt4Zl*1-WVX+*Y<c>9=Jg%2!8g~~L@)cLIYD_w<c2RF
zCU^h7zGtEtn=f~n(<)KB`48tc_pbSLS!s*at##)g_D`5_?qG!u_btz3{3cAVvoCbo
zWxQOuZqvRl?SwBH&TE)o=hpEQUS0W0Y5fD|z~G&g7ekD+ax`Uk>#wp^sqguw5OA1t
zgG0pP1#i6S94}rxsL=JCWkuk*6W6xuD+&MGwCBTfkJ^`S&&={vlV5te_Q{!jMO$@)
zfAo3&|B{oiS#-vUdbT%Qr!S@{<O{tw)!)y4{LrtHO$Y1Pt1dSfCC-#>UB{iL!DMzr
zW}o0zAM=D2>6^VauZdpFZ>%48IHo?wzGh<3qj^msGakyY-j_f0M$7fS;mtRRZ0t(W
zpMu;L%RlJ~Z~JFm*?r^x(@14M{nMRVd6H)~edbBGSeE!Ev*XFPT#JgA*SWhmGFt<G
zE@rdym))8DcjgY=7Yt3Bx_=%;E;{{fmC&csuZsKE)!$opWP45H>VgM0k(*AP|9G6?
zl(SI%i|%8NArD?Ps5^Fq$R2Rvf57+2>~-+Be~LbD7X7uU{IJdaLc_NQI#I<{^6rLV
z*|8d;o-^lqzCFQkB(o>JVe^C5_E0A7=7en};hdG)XHPP8nm^uf`R60uTZZ4h*q=|B
z&pLsvq&YF<twWf3@z12EOovzO*}i0P>CFD~@e17<8+Lv@Fmp=e&NOA~eJ0x%<-dJz
z>c4n5`|gJyHL}=?{496n-Vf<%{BYHDq1LHDwjHKBn6!#tUf9ZZY4?eBQ?3>WZ}D=M
z_4#%3<P$|5g}}6p4%-*Xz1vg%fJ?`s(~P-ObyDa=&tI04u4FHc_;e$zK=$gly~&qu
zJ8b)YLe#^2K}ch`ldVFhZ0r0dHmfh^i`{=!(t0&orKP{3onbfIj4#{MSE@bT65Xf%
zCWP7Z=)yV83spX}=19zrpY61__1j{<dV$}8(kG?VPdK)msNa&i$CYQ{U49GWISa2y
zek*q2oswL-<;=H(OOJ=$d*<e~T;0N~qG!qR$w}9r<a)C1W^gZ<_vc0vH}4IF)`E+V
zMLz$rkXyddBRoNShNS7kmR*~TXIUMsGv2T*z)Vnw<5$=dp{)Il%FIiqq{wRcU9uAS
zqbTTdu=I?=W4WUuvg?>r_$5v`=*``mepPSj<i(6`fmc`D+bH||h0x*UiL;$+SDPzX
zyBWW@wdknlj>+5Se@T4p*|SFdn5K!@%%Iba=i)La&SIZ)si<SyoJ)#}Hb0%J7qrxT
zS8e?r9=YBCgHsc0CR)wQVsUx3+|DL`(UhV*_h$_yT|4wXy%AhF*|z!V$L-pMw-#25
zZ#>xfzCGxR%gvCU<A0hrS?RhxVA#CNsAQU=gA~)gNX}bl?n~O+PvVel$ma`vI(K6u
z$6?=pY@N>6Weo#cdLpzJHz>L1^17Fo`X_pASkuJ&J#fZZZT`gj)%gVvQzW{lp5S;d
zGU-@&wN7Gcz>yD&P8l4C*tW~!MIfX0_PfCfbGzoB+4X08dH`SEyrtiIPToJZy{yL|
zV5;CeI~CPMriT27%vWdds2=#c<h%#>nudqYQ498!`s+Hx7%pzyztr-t#QE8*>vbiM
zi+$Odr*ug5jzr31i+wjNuRd7tdKY)>g;nm0N^M;Fo%mf&m2yO0R%K88S+#6>q0T&>
zKJmVrADu&)VlDhtBDQ_pyD!l>VNqxE0WYNm9P_>?A9Zv)u*j+TX2$-GM{GY&Z~nY(
zZcIR7(XGTaKXm>0&S}0#uyD9MyK&x+E$$1r{iZBVd-^<g!*!;9fyvt$PIkZU=Z{Xk
z93SW5eV6N1NQMF1)8wEP{ZB=>GDSl(mtNQ?dh*2dzq>5juFs6&{ncs7#pm~D4`W)Q
zl}l;6;I<#l#hYYi%XIeWM}#U^3#ZL*=zbtvka&6G>rK(?jy}zs^O^NVMOfg;uK0)X
z36FP(g+w{5)~Lv}T9qIDp{++RHE!>;l}B}W*v?!1P5fIrH#}&PxyS{tQ)ZRTE&YKD
zyJqM$2!2;h_#)4}*6nn($dS_$d`wYX*EVScwy>#qw1@pZAQyGz#>a~-;dN!-CKulG
zG&yQeVrqTgxRk#?g>B+wJGKcOPgX=G==X%kdC%-P<b3hNggc%yFB~mZd~Z^hIPvc~
z!Szhdwhxxgl4LILSF+jlRoprzY0Wo3_MUi^mm8NiZ~jp6X7R>F+s?~>($;&V?4dZD
zoo%u1(QA2Ajo(x~`H^<Le~F5O==O&nw<SLiow?(+Rfp<l|F2u#3g=A9n5K2GxzP3h
zQjW-ZKAw(o2X3t}nyT95P!)LpLcPCFrtPeMQ+U{GjM$Exsc+<Z)_g&VuUO-skG!D1
zp8pAhJINcXHZG5GzP(`4{=eTcxyz)}j_)<hbyxhN@j+_SyCs|lt=~3YneBL=k3B<u
zex|muuF<a7R~}EAX20jdTqUnivm@`=pV}nIyChgfr&)i$wC9rYjJZd2cdEDDYSm7z
z&ik%pxN}bTt-q&rFD_2f6P#7tw`A2DN0uykr5Tf5h1-A6;N^0=?R9?g<+fYis~<%3
zv<vOt$adt`o~zwLMNYdXvzYB)H~+WQ(rZ#TU9O+ltRnU`x63qggRfza)a3l@jkiMQ
z<??PmbmYJk?hp1WT%+%+C%%+YSaa}6k|n$Izn`mTvHCdO5&oBDaI5t|FVp@&ljfub
zX<n`kdmpchYMeNG|Jen-@lEG6kNoufyZe~Meam#$xpSVT2%OrbSRDH>rashLpl^Zr
z{)U%P1qunjt$sKizSJXJYgJh)a4DYU?uw5Uv+O@GwF$B9QEGNRYTx=Mr@Xgv!oM$q
z50Adm-*~Wur=VHd!1~OAcOD}B2bZTO)aX7_bKLuE;^ZfvcA2Vd^ZCK}x0T^uU)%)K
zJ4>`nU+BF!zUc7j=S~w2X6<sF-*6z6-(==5m1(g|+iUMSTFp|?nfsdW)}3DFQugQt
z3w%56lt1LPE}WI)6?nYjo>5TZv9;2^hh|-6yM6djp*u&`H{m<hhSE<fPRbQsN#a~!
zQf9J8nsxua-BUgsn^>B%dvY58dzRiKb1q$Wf3@!XCVro=hczeeztX&OVH3N3x?NDg
zCf|i;Uq!1f{k!1PyQJ9eNAJR7KR=tXS0ZK3lnYs##Z`np_~~U7PIJ!^ySsv=@<C~B
z!yNgdJH}CowLbq33iJGNXREk+f&WiM>kp*@Yt4{b=F4YmWV*@qJgPm$^uF-KVVhI2
zcb(;&`fb*n34gMa%cevw{g~>v$q!nW@h#^vRA%(ZyO$;5m#DRH-r-3>yFQt}PpmDD
zS>L{n`S8z+`S+(dX@580wNEtSzyHQfXIbpFh!uT#^(e#akZu3FYfPUmrY^H9TIu`6
zQ!amgyWZB$6HGT>w!e*iA9UZnZer}4Q(hA+PhNi~9)AD&CGSSp`G?IPt#+NLaFuJ#
zr}^GjpC~w4Bu~osIUKGUw{y9mG1tpX1vBoQs`)7l>&s5ni12Gx-VQnNGjg}<fy#?q
zJ03YTciuTteMOmj3FG2JZV6kS@JfC?dnMc6bmkrJLyMO0f0lIrLF?HgI=72+zOGBY
zeZ{t}Axv&Z*o<WEcQZ|jW}MMBOyXE~cVkN2ERUE;m8u$T31<#Zs=R+tGU15lLT$$S
z#oLn>%~kB}t^d69_KyvXu6aB53$dzMl*BZZtetSw-n2kxnp5s|fdr+ll?U(q`>@vd
zr>9Wb;~%GH6pJ%5W*)G}kx75FN6;!ve$F(d<Z0`#e9(_uWBjDJ?7Qoa89_q9Rh#cr
zOta<8%$U=$#O=<!WV5BN{*BM)uzhbhXuzX(d0XX%yQ-zlo<I7&E~@-I(dL)u+{bGl
z%eH?A_{<`?_KZ(&M3J_pjC0TaL;4I?-JTgtvQO}ASu(F=dfWafM%mm=7464UQfHou
zKdS$6jjw)ClDg@n<5x3kQ}Q0(^Ai{Oy`ywx+<Za7d68?M?KqLYPP)9!$no``c!T8*
zzx5v5JPm&>Fm1^zw;X{mR?d{P2?`23%9tk4SZBuNQ>GF-Pr2q^sf<H_e|PK~-P57W
z>@VlJ3JHdA|Eeo872Oly(p+ZfaK`23$&VIy_RTSgnDprDyg4R}${+K)FM1V}PEBek
zSe)@tvr92e<Ba8}>?8-D#_Jo^;wF9Ab@-E1vDQ`5NuQj2Wq;>g{l4&YYFF@KHpy#~
zVxRvGxU)-9L~Q$txE!e&0uooN<q9vXzMRKq%iFcEqDHu;?Q``HmrMnv7w!G$ZL*ID
zUS*y*Vegfb@6BI-|I%%2o$WJWkz19P>ej>u#W&10JInY-GF7>sF53P4NZF=mL0eO{
z{poT~5Z@fe_gjwt?5>>bWzn-{&oSO@aDadAv)F0BZcmt4d(q^C;*3fY@uka;JxEqN
zwW}kxcgh>v8yrVW>LtELy>VF`+@x>NuWR*1^rDt((R6*5z5ag~xA0c{)J~nfFsO#1
zM<TNOZO}J~J#13WFPVRdg{wN3ZBAM9Qc`+RVe7ju{2IZ{Mo}B}9JwsNE;Ny;chily
zbbHICJ)Wm$ehut?HHZ1)twI)+|GOj1a;NC6lE_}Ue@SHJkqy^{YIOtmBwpFMQ0U^N
z5AK}L_lDnJb#y_E%+x<#k7ty=-;~0?D{#e<^9R#6=otK6T+Nat)$*_BOG~jibD^L4
zm2ioJ7QPZs%iJ~|7g@34#P+L;9)CIX%6~>?#9B$22|Lm%E=)L^R6e2qL~OC@W^UeS
z9Tm-&O&?y^Gq-y%ero!)s%351zqoZRZri3iKHKru^~B7sg?A6Eeay67Sim89YK(=g
zt<LdT58|X{(`PJA^qEsRL9>y|dq<Yq)!Uu^9}0IkU$~o=)71X1<yuF~-IELM<>?$e
zQd0WzYSW#)vY&F7vaGxHQOEFw?pdyMm$gBA?=kGY8^PFqcV8~shm|^CK1w8rq<k=x
zbC!6ZU@MpGJ~P318t+8ir;gD)KkqYdG5x(@?c<M8qV`^!TUK$p?FqQFx?g2i{i#DL
z??3QK%D8xLlGw(5diOH@>dMQ-CYS#G|Mpes#F~Q(d)<~@D`=28du!*W6=vD~ago7~
z-5wlM+sKh2KRc^$OJR!824_z;zj;d6A~)D7#+h5~VmPjU{?es6@<~nqc0G)8vAQmH
zkLlx0)j0{GZ$CAOt#?&k|8uL6$^A(}3&Vwz7!oq##XAHHCAhB{{`(cmrE$iM_ljk_
zUgP}BdhhaVy=Le>-yq(#Bw29H%u>O1CXWtDzT$gr#xuY5YWeH}Q*NC_|CMtp&nl(d
zzgYR<@<ch)$9r^?y2CU=-^Cr?={M)K$M1gvb9#2=iNCDPS^05UV9T}#s(q_`n!?j3
zupI1TymKY8L*=oc+>Wh*Qdg2+#MXsqdKNgobGZ2Qis`=ao)6cQSr$ufsWf>byjJ>t
zPmjw!7qhQnH<vH-IrgqUGrN7E<8-c`zBabt`ODQzI@B+={dT+&*s|l`we^<XOD06z
zTPJHA#4#sx;(Pu#jA?1Js~a-I+z*<Y9Q!^yynStV_m*42;{4xUCs%~sKfT^Rdc#)c
z6F#+!a<lqo?J8N)_`xrJL6C!^`7y@U3YWYshEivi&+YBx>bW_?PhE7E`GcCLm%`^T
z{3^|Jxa@Y~_m+=S3yx_lJ6`d@t@^db_BRn>OBGb+@=Wx9d+yQXS$Ti1mxlSaZwgy;
zWW~Bqx##8`J2XY$+abprtD=k&&l+A^`Rni9E%zliY<{_8`{$z)-z@po9%Fu5tJAeg
z*66oIqR^uAJJYfpEH)S&+;p=$T<fmN!FP*S@_5v!co)`+Jx;GInzc7V$oU-m60c|5
z^lN+0a~OP1xzDm;&el`^Y64mBr`U+HH3vJ$?|sVmx;V>7d_%-(9f4r+C>1pu$1A5w
zu3A(&up7^e{GjlJcQwCEht68ISM$s&UpKu<n6M+nezQli*@T%NbM!OwEneL}qLpKt
zeLeCt^J+ccxi@C+@bXz0koQp}Ct3Z9UzYFhE$3Q&<vn_tr&cwusLHgpC|Z3<{7~~%
z-3ZUZ<8lm(kNc=BPg;ASG?FXt`LwBFLcC?kr*%cvu}mweR{O8MslKs#szlV~<EziD
zXPKL@SdTec*X&OvhtWrI-}60F3pz8WKl`0KjVVb*$xAAYQ@ZVtQtxV6vvryk(~fQ6
zc%!&2n9;w0E&RcAjrlPXDyF5?81I}d)Tbr)O#gD=h6f@sN(#)|Hn;RTNUq&;Mt|mw
zH6mhiLEnXbsGJGe@ni9f^gFYjuAeU0*A%Sqa=pY01B1zy6XY*WG~(zyRzGhJleNrW
zbLKURpI<o>+GrrYu18BbAVAFN-Y?NPGa@xJAAK+g?0o7izSMDNh2&S(H8&Q>w_Qz9
zJhku>*W4mCz86dLN{b5uJsy~{2&uWpJ^GffSwC%)3CAB!&e{cw^?V*L-(I(oElcvQ
z$K|VvN0a^EIIY{VrZjQu#sjY(?>1euVQTbqtG)+E4Me)Q7>i$pDVe<7{^PvbvAtUk
z#>_FB=^^cM=T5}aqd$B9?>(w+weWUK^`eLQ{PWLeIbW37+!C()^tH*yiKgF7lk8n<
z#q;;K%&zNR{mI~U<0Iv!sc%fP^50Cp+_2e_`@#?N1n%628Tl={wsKD9Y6@R|L|=im
z@#<vnn$1SpO7|C}F>Bplx8%^qJmp!Q8~3iZFZ1#WP5CNgwpC__)MkF>WovIcb^YU*
zaYLd`VS__#gUd~Y0GU!(g`SW96i=_+Uc@eVYR)t}gHlQ1le6|*?siHD%)K*lvUp7M
z+7#=IuIPBztL>Xk_ATDP)-1$wz~b2JgD*9nZC;!{+jZlyiicVEJYr^L1vxI>r(9tt
z(rZ2^d+zK%@#{L@y$rK@d?m{C@|V3g1vkd)?k(uJc&Oyhwjv3OV=@-o%dYWzT8L%r
zoV3oJcg^gBPE|Wjluhn>@Otfmrwg=Ki_8tOnSJ79*X!#tT~)hI_%*)c`OxtB@wHnA
z+22gJ-SC_9llND(rwxgAs%!XigNvFf*Ze=t*1~$4!{+?9BHIe<+?4X>w+a`6pO>7G
zK5<Fy@07q`mF%>dz8sEif(kWGm$!cW_CPry?DWOA>E}-~S50IL>wB>7(_Jl@@X4-5
zwkexpi@f%jb6e{#j=s|wF1Wt=Q?IC#)U5TzSDv^Xeto}ue(07j$-Ejb3Y0ayYEArF
z_HEggQQOelUCS*!h2fj|nFWj`;kD8RtT6!!iyB$Q4O(4#Jraz0mkQlr>M=Vzt62KB
zz;i7JLG~YF2gPnoQZ3c4)Al{~D3>EUWx3bUeHm)p6Mo#|mbt-rGU$tXgYXLHi}SK}
zS{c|yv+Jdu>}`3#VOic~cS6Wokbk*EMO&J{pZ=#W1QPw%I0`-4ef5UW>}6@e%PVHB
zWP5)y<=2tZ{XxrS2?Ta0ESqJdm%b|U^zpl?mv_jg8rWER&iW}3R)6c}mXleBj`6iG
zJ>C{!Wpu<n{tDy1h>7dkdN@|`@+rDA8FDkpZV}la*1bc{h0$WBDsRP9pXl|$lTW)%
z<POaW^YBR)zBb!~KP2Tq%}lv%aa}j$%AK0Sk1qMA%eJ?Hqv-IgZnxmuVNc6^KV6)b
z9jx@-+_Q0q+`{K>S5MXHe(}F!bNfwkU3c9M%kv)vqHm@s|C@j6$4h_pfMfMx|M%U!
z<;VDUU-G^;Z{%z5Kh3!Ob)oF~yNVkU=gng}B<XSM0guep+O~&r>On8|T3xxlp#06<
z;#Z=@lcsR@|Ga$JnC;*}wVauymE9IQ!+luiF1?(sm18hNktb}?jU^w?SH1M?T{`vr
zm3wizHl7i$&L3@URx~kR{PE`o6RiX859)U|9K5ct%#}ZhseLPZQna0O2X}wjnl4uR
zBkzNcUQC`Izi5eq*C*9oW;2Ywc-}p*C0tL(^F`r>Q0WzGK5m@J<K*lu)tGl%FIR?9
z>q}3d#Omiugf6XEb!*$nkRyxlzAO8%t5v5&*GF~M6|QKbvxdKAmWb~u?@*r}KY#8<
znY%2->lvd~&g7hI{4{aJBu)L<|9qu;*SA?Om@RuCE_{`yUya-Mou4Pn&G=orP~g+b
zXdlVU@`Z1{YX^MURkGMrdXie+hLf6>AFrp2ELrWlQs}C|DUbE3eL?OX;m>pX=IB52
zKYq?MA!z^hNB^fB%zPHO<As!^Z^h&v-dQ<QN>7AD%uwF<*w4Q8s<gfJdI@1EUC(nK
zQa@H*zw_?6+=Tc4cfGm#_1o#AO$zJRUfX)|Tg$2l@dO*^8OgVU_~llM|C`CIeEsCa
z>|||oS8d7g>ZIrK=kGO&-bl^STl+EM_dJg4(t*40D{e4Nb}eq+qdd37=HJR^jL*vX
zmsZZ-F12!rVIA}GXY~*FA1}E-i7PpFvHZQ2=kNI!JUXrt@Jx2mjBD;|?z!-@ux0zL
zuoO7EEBNan(dgQ(GB1|8U4Jvz)73Nh-pXKQ_emAT`mYYHtaL32GBn?Ee|o)Tw2Ys@
zQoFC!n>Pd&?cK0=nM>vkzZTt(Cr`-4>oWfl(D~FAfA6@`K{2C__PQgtY+v7b5oT()
z`mgSHnT_)oPq?6`s-CQVF5rKK-&LvYYtNr|YP_ivx>nSBMfvo_J+E8(|4aMDvGKdl
zynltwVq=EAwc!3)oTdD6rx?VoX5L5<{#|&Wu{(;VWJVCPoZ6)IXN_F~KXfgKH)Ok@
z^xB1C%9~wNio;VXXU})qRlDZ)+AFfXoNEnrZ|a^DF<dT{%iH5r(<y&pW4hPvcdUi#
zcYEq<H(EJxFV}6WJfk(w^;Foow`!lRFM0ZLm2m#gEfzC)r2Z#%)Gn11N?foaAVX}^
z>V45(k@Aso^JS*mIUmcrxJ}P|r{WUR8xv1m+I;-|udS{!YsC!N`}K=59tLI?G6`Dy
z)Jt#d;uCR-d^6#(RNUX#T@H@c_Ag#KXKc{o)%?(Xwc^wp2c8dqE|q0%<vQBqH%o{&
z*6}E}-(9A~O@>}atQ#$)9m@Ca-JAALF6z8g&Wu#u_D}O8GQ@5ll3?lbWo`(5^E$~u
zBwzZ{hot#8RCz;UtqKLS{;J)~TX>r5%w$2?3t@G&1`%@U57;csZub0o|9->Pvl->*
zMeoO!6lsN@{(nR3#`^OHm7RP0<8-C|M9<k1sCh2$!o~oz>t5;2>__)GazBs?-6N*A
zSMKz(oAu9q7<6ZS%glIsVCKYo-(UO=3lDO7nH2j{)L3uslBCCT+8D)h*05O2jT8E`
zM7qP@NVM+q$?PAYI(|I6T(~}Lmfv_MYI$j{?m<^oVL7F{MeiQ33VnJ><Le3Kr)lv9
zGQp;)cO;s!>)9Wlsr$5cqR*3p`Ql2+5xEkxOlQd5=z9P5_e5Xixq0qig8m%S+0DD|
zw(#QIJXzVit5TBnH}pME{0mAsuD<lEq34aJ$A+E{f6SgXbC<jE;Ym|utCbflxR4dQ
zRIl{m4(atre%%u6mldhv+`MYqE2A}$6<opwGHEZ`+ui&;`(}Q+vB_5EjraPAY3F+P
z7$u2Z{C%I(qw??tIkR~|VV^F|ub8x__iA`*sn?%MKgOscxosiGTo*3YxLsWQn7h+(
zP2TSvzur%8KY3xnp(9sP4%=(|->_NRw17Qr-KGo7X^$SNT3B6(U#XP8T~(~>#)eDw
zH(%{|V5%cwq&O?#=+v7Nez)B9FS*Y&K}6)+x(o01JvH7*$Jr(y_!%MU^h94d@WAbZ
zzvVhD78pJFB~<KS_&vgOV!!FHm^rrhcEzaX2b${L+NYNw^FY@TbfqMp%k~e&Y(B59
zY~1!SPM~bbyEhLOuS(d!F;(!%@_BpL^%&Y4Xq<T|{pkO^QkTd_++p{wa)>KuJPs|M
zv0UB3@A!oU6DMcy&aVruU0J>AbHwGOj?g(%dip#~bGPjCZ1%i*&!*?Fx2^5OMa(yZ
zmpVO|ZKxl+e}*>~+udK=^BQJMzqj$ou}8tG*QA8~&i-Hf-;Tpvkl%hAmqAg7M9%G<
zo{Q6-Se4~WExWta(0f9(roHLoCv$$h-}P~6$BATB=9zx=k{<bX-~UbwYx*)xH*S87
zz@m_{_qK_XGk(VI4l9vb`adVxd%`xoj8OLGnP*KspH5%-WXbcJ`@)``y}4~RYw`AD
z33}_^&i;OXn!w=&HQ^JK68A1Yaw~pup_t0m`6@wY7JsT$*_AAM$Yf3M+gp5X{nI;J
zuRdLpd*kAQ(;lm>OLC{)zVvG9^8;c1-vzcT`(--YxnK|bP3CUS!!b)kcU=}L-hacd
zdg<gRCwkX3TTHoKkQ&tcPC~%<{-r(hw|A{^Yb{-~Na>o=Db=N-y(~VNz5AvMw5+(&
zqo8M-c=f#0?Z!Jxt}I<7kiBZsw=k~aBMWjpqaR7=Uaj~ZZ1OaPd9rcm;?Eknvpn|g
zN<QM3TW)gAEzADivWTcFEJ4?%ntJ@cK4(+J;*FZZYVU&{UtRdKl~Ydn!CHg4TTM!*
z-d%glB5Us>y$NTTf<44!lZqMSE~!0l77^K^k+SBE;MudOzFKO!KMzSSX)K?$A#kFW
zZ-|4ouys+;(UZz?wc-a|bl1#hik8!6|9Sm}#E}CkDv$q}Hr-En(lT*J^r?e>dzSv3
zRlOy#kH_%4!Owsxu3;B{PiI(TWW6dpkYVMuB^`F!C(E*(WmgImtiG|_QLw|qI&8`n
zZNFQ&o7Q@HG41%6`(JgbTI13g|C@eZJ-_IC<JDJ_=B+nZkm{9NlPsGp%q4O8id})=
zHoj9`lcwIf&M4fRt(|iB*BZfPf$g_uE^jyAlDac)Z{5SmZf$#Vn=MrpCAgNzaU`1t
zN!{L9ZGPj)qa)`xP5c+lQT@C<{K?v%Zo!oS3ul+QhSgNbu2g$9t!<%LhT&?B`B^_s
zs^3tV=D%~Z-3q>L?oC!{Ju%gr)}0ZYq<Dt;@#^bJe>bhRRi7-zExY%v$Wo@~=XY#;
zFTpL_tk6E0VNs{4;pL?p93p!253UYREC18Zcy+eo%YBjTX48f0N|J6@B<#_e+^MVY
z#i&1lan~fD=3g&XNVsxy%OxLsSdhL#b&pa(TXAp@`<X6}`?Hoi&5M1mQ?m0=?+*iw
z&1;uOD%Y&-SS)v2A)94=8f&P7(R?n>s|RxS>#e!G`XRHNbENA@xx&ZaVm7{y(DkXS
zxxU}VYnH)Art%BT!khW~wN@3aJbY(?<Xub6NCOVH50_@~Hz}G)N55;ei<7e69_YQx
zxA|uOoo9*RDW@H8&3OOl_)neF$A2vd$%(l8^2OTRoL1B7%TF&oY86$ksn(v!v?`xB
zEoHq^>@GRYNlSgR`X&5l_|_^&d&un8t_qNop3%oz{&B%KQRgKY`7MXngANy{=veo4
zukwt9mHt6r7IcJ8d?&)AGHLb)_g>F!&l=dIPkYXull5kG;_P{^QZiYzBU}Z;ua{2O
zf8u@a*@SF4Bfb4IkD9(XrEKL_Vr3(yKCQdx_G{U$b}jRm|2IA_611&RyB4?Ttbw}r
z%WT_{FW0WWKXIk;^@2CLcc0v<ULF<^8tIXz+&j1B*NUIT*E-JRo=ZDeKIhdfj^pyG
z^EK~p73@2HrMy<dE8W3vzBYSfPl$?{1IxL#<UWD(cV;||*HL@1>#0`W;|Bqc9r-3-
zuA85p_a{xJpiQhL|A?t`ghH2ix1rr;`Dr@ur>Ep!{@Q=^#;pfVc3B7X`B<|bmRX6<
zp36~dU(sFubCt$<-|tJpOcr;$vG+gGN#IF2eZS*i+%vs(xf|!tuKF<3VfGH$e91nk
z1Bq-K*B)3R?5k@sd+LF$$v62~*NFt)yE*C6o#PJG`U2$~xBDy1RZNqaC&XuKJ<DUW
zsLSr#8^`v$?}|{x#7yJcORJ7wI+*0{T(wYPa;f^$D~}j%+!384&~xL%&+^&t9zUwK
z+2Uw&#^dNC_fIcQ^>-fH`FPo%HzA8$8by?B*SG(!)SeSLV}@(lr-`9aI_1anS@J5|
z0)+B!ZGO2R`SrYOhvZYQEIYMoqwfSMWj$GCt23RUKVy!|XdhjfyW_&#_j4Og9<r=@
z;XKXS<>Wn8HQsxd<ST!uf7k!oxNEU=x%bOk!FPU~OPiJ;r0;vta#mXW+j)nK!;DrG
z-OM@9yIrYt%aXk=5&eJMUTLoD-jQ?poMguI8;Y{u%cOVDx$;}aM5*j&_JnJ`-d8St
zUuIu#eM<78Ktj%*NljPgJSyZ6)W2U)e!!Q{ji)T9rQYR@+p3LEWec@x^GmxlXRUMn
zn{;+o|8m~vw;0c*+;B_^P!B!8a`gKv0dM2!wa0x9#gtTMzjgLcIWyO?WOvrCxFy1}
z8?I+fIkR)N_qo=>j6;#x0^S!E)ZNoy^$YLoF}m>Exc{Sl1YhM0(+fAJ?)A~;Klt8Q
zY<Ju?mwDS)u3M|IYXA0QlZ<8<%wKeGWpl!V*?+>MdB1Ke+gPabaOV9`Es-mCZywwh
zcXL9h&cQ5J)mz682FD)f-;rLj@n+X~Z?>nkzP18>!C8fde&4#j?Xby-)MwgtTaI_n
z%I3Nr;b^(NQ^n>TIJ&*m#fGu^L*fR%TW==GsLyYfP3W`L=okI<MP=gt%u7FROg+o-
z@9;UUG=@a2hkkMT%Oqz6{NI+mbi)3F+tRX{HRtPD2FB}j2AHaH9X()j+fvE;>A|Y)
zkJ8ik%;Ds|l+7B{Gsnu}+oD?O`A78T+?IElE?a$&S^4U(B_UT-oWI<9G@;9XA}g<t
z@Rbh7Gmn;Tm*!kKS!(C8=7+zcr&I;Z)aN>1`f&AXwM+L3SN!1ncC?-0_N^Has#zhk
zXDmsR;y7{ov}w$AC%LAHmoA5`slVW`ME{n(()VTSn6>S9C~;~R=%<S>K42F&**85n
z^QhTH58q8`Z;sT=PtuyS`Nx`TFD5^^8k%_ZlB|%$$)tPnOK#tv|M79cKJk;PIoTF^
zwd!q!t6#_pKB{rDR?VFj{+#vr1a8fq#qXk@mdBk9IJnWG$VTA!v-}HP&(`g-ocgH$
zFjw|I^?i@F+VidmiRZuHel=?SN-e3<FKe#dU-35k)W)*rA2s*ysj|(;3x3C(V4M5&
zu+rYAY6|um%?~#2bbI-5ZJO<jL(7w0_H&sm$e;A_U3j#%?u-Y^9M^MoZ_7P%%Sdw1
z`t@yhX51-Uys`bN!uHp<7!|!&GJO;ZPks5aY&Y+ByZaAZj{RFV`CBbdd&;Aa4_`&!
z>P?Wo^57!3!sXJsWpCGAk%{Xx{m|?A`GA!}ob|@1pVs<l_8oKX7XEa%admQyN~!)<
zuMPe8mP&8kE%Z9<QHS?5A6{9ej_y0lemZ=U=6|+yUBrykNQT&Qg~@Z?-v1IO+mP|L
zG>&;2i$eRhg0{8OcYcY!o^DyAZ<}VeyH+mOc=M}Z)kN*=w^MHWEK!{mRp$G%BeKIR
zt>A0bT(+$*6oS7z+9Q+VA*@g`w<|0C@cau)OXfY}x8(~@VwuF!BzJ9fZ$wC?&eX70
zLD|Hpq&31nqEzozPSny_%eZ0k1qIG|oBiVh_pNZ;8&o@W?V`mu=kGL5TAjUd^@RE1
zX53{*w#QCsX*)kb-@S0gM2>Z7v0{NDj&)N#_bM*p_WSTVSjn>JWP@A#)of{%=Y{vS
zeGDjC$g*+HTLsoBJz<9Ga%GusmP#E~dtfVUep$MD@?v9tr#^v~N9DM5-<*-o|H#*S
z=h=&0cYZuzSA3?Ozd7KftInLb`Ii@8k-DR$aK@11)cQlqxdjayw|6<zy!Y5`BPy`+
z#v9A)<)@QbrP)|j%FbVz&B4dUFh^o~Y;xV&?4Ezxvz1zAH-B$YnPB27cTB8&$%@kI
z)(f)@OJ<$;l<D_<<GeYn*H%AL_<nopf&*V0C(TY%U3*<AIq-nhR5_LF#rrFC!d0&_
z{t){%rSqrDROZInE)uSxAAfr*x<+Tk{cf2mn^s*kanUyUj<=;-UY5OlfBoKu4eOqA
z_-ZedKhi58zCikq#D)jEH9KOjE<Dn6_hS04O)(dzE&i8L{pQ_Ed)J*xi_afS|9$sh
zj8|e_w9K8p)rPZ0-)qLs`#*bE{cT;2mcxGzsJg#<ocowVC1y`2pZN_H&Wt4;7iXBS
z@H9T~!O^5W^Uh`F_y2t=H`_#AEKxtu_}jZ;(iU-}Un`I0Kju+Om~HL8YhuuchEw7-
zVr9j7U2H!M%7wK}{f@EKga{T*w0UHlvm``9U`NG7Nx`tKqKv%lCavsCR=T{DH{^*B
z6JAv4zH{H}9+Ri9tJbG)*xEYpWaumR>IK^8L~HaV86)P&)T;5b_q<mRu9ul|MRoeh
z8KM@C)^(&D$VdwPqa>{nt@v=w@ArvpGXC}tj!ybK`I`L(JB^(mGTo!P1>OtD)-K!a
zzOyD>aI!~*akgT_*_JB%qnxKc=X9lJr|$j#<>dJX_W$`^zF&KdWu-KD@iSzlw27G!
ze5JIZnF;36$%ba8#H^G)TN~NG<anV%?*0?Wwo=(^9=6|84~<;YUn#$6OT)^os$ARn
zvJ#lRe>KihOZR#;Q_)h!OQq-UTj`0%rwjf}y>{`<Le{1?Nmt8L+>X`O)hUZrDu0;&
z>HEpg?(b_J<j>nzrIJ_2_TR4d%TMK*dOI}h=h^J9d~X={B=3>X+@fdCJ}&S7bobM-
zsI4BQkJrXJ?Wp|o=VH6{R{I10T{PeNt(X7*`J=v^tPfAcN5`A0rzG;_?jL%3T)cXt
zi)b>(?&Z}#bafoxzU%Y9yjRg}Z}qlz>y~Y0-&JE499}f_=G|?#?QY6Hc{FEZ+V_j%
zv)8XJ*{%Ne@$~Ag5z=$-$i{CA-*dox_1)uNW`A|u{_?o%fxAzpeOr)zxV(<BTyp=5
zgtGm);uF~KOx*tP=q<fnF{_tOs`_qPv(u%2``%mfUy_=po9(~OS&>sYv+ei%$3m(M
zCokszzasZRa$my4bDOyzY~_>V-f&xX{(IFqQ$O#Ddr-olq41)0>H6I4gTb}WnODB)
zZNB~@LC|zc8Mi`bT#Q`;=lQ9An)|t5PX20l|G43+fOpm&v)}*D*v|CB_D=ieu(l$n
zzyp!fkIr_m+k5Bq291VG@`)3f%$DfvZIxfuW}da<+w$Md5ivb}(GGk3zgKZKTo4J3
z<NNq1_s2DcIEly!cCiX(^3C^mZqa-A_ubvH%TwQ<eSLLblBSKBzFNid%XL#Cr)(FE
z;fuSdr|KSiP*u5Ad_nuS4U_h)-le=F*rX{>dehs}{okW>yfj%j=B=619qM%7=HGSq
z{{Mwf**X64W?b6NW2VL=vgY33co!qlwS7}G{$CK7B_O+8d7G(Z&&}GY@3?|a^;BF8
zIPy7lr_$oP>I^laj87-t%wV_BG}&`dFUW=AwCo?92EHqKH>GX#W!-PAY0y1%@LK!6
zyJlsU%WAg7e@wV3zv#f{jl1I?P7REFtf6&}aeYIszTK^<>kk|@+ryOki+hjAy@w|k
zZjX+8xV|j#&AW8o^L7XCH~wSnpJ(FssnEIokX(=Yd!IM*3=by0m1l7DX*+$ojdi}#
zKd%Q3FKxCmrlpqq-+te6a=*l;e??!mCDtZw`k>R<<NsEwac>^Kf{4pDV_~7M+iIRP
zeEM?cahLN3@dLccd!!#8>k{of%sZcb^;N?eRbSaZls%Z|_UfYZ-$zXXiM3zk4z4V)
z4hfRG{cytFeR&2M`}6w**T>BC(dhQSG4aQY_U+-3Gmc*WSpN2NSG+P8OG%NNhFfF7
zS}&0d-aSWCxTXkgFbZC<ZC}8GiO!Wwv%_2dn4B<FJ!`q`8K=IN$7+=iG1CjKt+P6<
z|Di^C!78m+-C}+`Gr8}`9-E{3_Vlz`&V{G<3Dln6S2N>{H;dxQYXRn+;f2%6Z~L~)
zy_3p&Ktp74-bA~uinE{pwiHV$WWU}yL-mgJVo$gI$J**XaK-bm@G>=Y=rwh_s8-z-
zc)M;@huS-{ALdW}eUDxaeWv!3tDortyLoDBsv&3SgSCwQZ6CJt?p&DUvGa0Ri6WDX
zz<!Yf`q#v@T|>POG2E7p+vKi#^>TI9_2<47LS6QCTesISK0UpuwfDYT8KXFZbi@tm
zeYXw=dMh%=>#Uk^DtPa+uK^YJ7m5U*W8NmoRJbWZ>0bPn!>%EmNgJ&u99Aw@^kQKT
zn%A{u`VZ9u&P=mZu1Xk`+zoE*<Y!TS-?#m>_QySe+cPhyTQ@zw*|F>NyYHTlW@N0K
zleF!GW20|NO~cEYs0s(y+l{j&#6&rAtyy~9Lqu6Qx=$439=UaLmGsB@Yx``}*@a&y
z$2{iEy5sz*ZWH@7R-apkx2MLYt(mU$L)k;<?aP<@a+d5q)NS{mFUzo#x$|C$*NufL
zsglaFnv>^F4ih)M79zXtl<(@N?|y3^Uf#~cbA(~{Cx+sr9U&)I_(*Kn!}s6))8S6x
zONZ}z>%U#n&gk>qDfZyq`?=<!jvO0o&3v=A2pafp?OmSou+04WsUKTbZC1LMYp%qe
zB*6Pnh0XLq8uOGrG0i7}1Prx1*)wyu<*!ux7{8%<{YTa4ogpXUnAxKvMUq*{ZyxEq
zX#9wIB6rpirG{$Tc^6dnowmNCy70HZ+b{i{+?Hw#^7~b_R9}T9=u52qu~n3-)#_}f
z<3&s54-5GW*d!k7K4#g`pb)a2-NIo~aEx>HMwX`>SL?4GIh^iN{lkjc&00^hL!A4j
zBm2Cmk{JPvN+;gOzhBDUw%KaRBu3{{+lQ-LX3BN1P0D4Qu&L<K59v)Macfr1o17oM
zJ3VLXk(9JQGiT~a`P{sFxpuwG!)wx$^UMCe;}9t2SjMo%USWOX<(N%e`i`@{m3+4o
zVtdiy*v4WiJgM;Sal`#->g?jo^S86CJF~L<`X9b28XpgctP<;y+ak)r{)@>eDtLbq
ztE;PJ?lC)M73Jnt9rp!0owq#QB^`0-!eNVRd!$88pB0v?9B~(UUCLRs%2{23VY$K-
zzc(RzQ}{c~ovc=+2<yHqRd!d}XnrK9rg62|p}PVM>s%XuUO4@++h=;G4Ex$k0y}>v
z_^G8mQhLvDY5ys|=G_VD2c$GN$!Rt>Yd^3(HQ}(@rg<56;!}=Z_1wC6T8fwygMZb&
z`}y;a$1Q2oanG6%ICuY|*SDvhN&KsLxw6Q9+KWSun)7!USw4McAlEK<p`q!y#&yeN
z(On@-mmhNOd>R{_aBF_)m9V!Hera4OF^$qG)5-c+ZlNL^IPE~tK_`Y7P5IIbyW=0R
zN?mAM`8wJC#qqyf*7E-i7F^J%Kk;Dc^zLwNyZSGzN&YM|W1E?5yN@^YXE~|ebiGyZ
zCh&x$<hPuVNf+)g?%4WRIISsvS|-m4*@f>^@2q-MHnYIki07_p^h38&r&Na!&1Xgx
zR);S2hr7OCopxi5k^jP-$s$@8tG+8H*03zTnA@$#c+%&n^)ovI2Mx9my+c3J-Yu-k
zS|Kjo-MwRe^$UB)$gde~%(efH+a35Fxam>S!4|hppB>DBFOT&!NW9p)|MmgNl}{wh
ztQKXty;tUXu=%X;FN2%MJkEHzZWC6Io3|uPYT}NJW{Zu1(izhHKU;orS~d3gDK-7>
z{GB}^>fXfX=I1VD&zrfP?_K)2c^i-3|F+*&`cSf!yHl{_yntiDB72`TuGHF>-c`>!
zKlR}0=Px3<Hl#i~khv~PNJ?7vRc_$#IrjzcF5UjeP)xAVqx1%E@3+{p{EihF1z8?P
zSlnDRN)$c$`HR;HdrM6z$u#LzmcQ+2w9#pci!!5)q2D6e<EMRjK3UH?!^F|y`ND7R
z;iJ1eB~}#{`o+1uVBJu+h-bknF`f?RvIdo1wM!!SwGCcezdcV&HB?O0j^U|}Qq`}w
zxtCS@pX@mv;lQ&?{buJ2rK_Bpx)b_a=6I`!nS8Vt+`MdK^T*TMG<iH9b1LZ0v3@>j
z^NIJDt}P9@{Mkp(^0d#pw0-8D1;@{HRh{yw)DBQHU%2gUamhO-e(R;D<yM|{3|;a~
zdC9vPov0N@kM~#$74x5qx_hFXWrawSo8Y?@>yv%0Jp3X;<~+<;e?jcH)Sbe|PxU_>
zDZX|#=P1LSiA+UT@4n|sE;X**eay4@y+ppMp;D3iH~Fb*E?e||GrqKyi@sT*vf#o8
zgToOVfwyu5Cr#8=nYD3l-?6S~o-^lXKFBmY`|0Rao`}BQtksU&H+afNt~=k`w>!h@
zgLR=o%#0~}?`UmM{OKqyx#8(*3HR?-K3nE43^^9=Ir&a%@Sa6ArP<N~MsIEHy{u<x
zKl#{sa@KK&cnz%&{~4TbcwbmiUccR)_1=n!X}mMu=G~~ZKY2=P&dG{crC6I{uhLAP
z$4fh>97=JLnJwMne(!UrYU}~#pr48y43`eSjefZ6?f1UjQ+yY)DJaBo@EM(1q&%%V
zbA_32&FX(gHmg*+y<ZY|z|?r*_d5m)J9_kwKlJftT6N0BsZ^=3t#1`)S<{QzQu)d%
z8_GIZym*s^HrzWqafyR+PVBnb8J?34yJ{UYQmX4K;RtfCHjYu#h%t(~Tl7vOR`Jek
zp0MI#2hV<s;yP)@j0n|rvFq}TGIl&_{?ahPL9Zb|cjspF9jQxBmzlFI4or}p{&j_`
z#f66U>K0`IyImEN`DWdj!V%Pyd1Oj+z|~#*nqEAdS@nl+?Tp(CE++1Ny7p?G9OHH?
zLswf}zb$vwtXADUFeU$>NcicKx?ePA`#0Woybv}gPJV{u>o9}OM=Tu}tHm-8-rFJ}
zD5LwuBzL2$k%6|ZRbT(CgS>9ZVRLF&H5m5qmf7{=`SJd`&o4epzjQj4;dbGkhL4!h
z!(%Q!CEPPq{@(lDf3NcY{k(mD9(`5szxT6W`sa(e^B>pW`~B7b;rZYHpFdmc{{PRv
zv-!(TUba2r_0442o<sTy)5QZfEnjbOm(zKbwU<xcT|o!wa*+m`qt0(K=J4^ocT`Jo
zSiW5=|HQ{L>$MAaKNg=g+3pj!<liarOS1iq_MR;=I^O-(cDMXn`TupVtG*|wZ&?yJ
ziAVjo;q$Mj?=f>M68L;NL`9>@$?;f0|Cj6?sl7Ifie5xc67YQ}Sv7T&$1#_cR|SjP
zPO3jS$g?~}EmZz@u2uV_c*TQZCdqetkLI76vF{OAXnUBFp!FkzovGemdgPl$H@~W|
zm45ewS*BP>Gf}X2`5)DL$$LeeMOUqRa^T%WOOprX_B!%9-kkqmKXbKx9^H0S_~3um
z6-@<3i6?l^p4jT+v}x{)S%;Q{YtPKt74lU=Hfx%h&)<US9=T`ij-?y^UCey6O@CL(
zq~=tUsORnZU2CqV9)3A(|0}-w&6^A?{`xS?nE5}IOFKI8*eh3tBM!eGT+!OSii5${
z=pA!Li_p^4T~FJ^7ne>JoW8hp_j8`8`u-i$&pqC{%RcV#>DW^q_jC44Ufq{!9^1H^
zGmgJ!_W^~ctvhDtN$Naid8g*Gi?6))TJB9j^E<YCJr3<z-u>oKX6NLWNA}#-P50aI
z*iKyduS|h7w=Hwy-OWsiIVRq_mh{J&EI)Ci?Z7GiO4cO@lz2nWY>htmQsmzrKSkq<
zYbSn)`Ecab#ZB4~*^#T>EV-23)wSf^hi5K-m$`~|^6S`h)Gohrxu!gNvrf))Cx`qc
z)A#zXllr$Mt<mCATcggROD5_^Zl9fR`LXGIaMq^9xl;E%Jma=5&^x~7O_cTKvkMg&
zH^;wg<n;=8ol!B#>gKN{o7WwCeIiL|^MtFrjNF6e)H<J>)K(Vh)hzj#C|t``pF3qn
z<~Q*)dttL0-Obx0UM@L&M?F>PS?=z}KQr}CcD$Lo<Nc%q$Bt%vxnUdcy~sx;;mQ8b
zD+;DRJoH-N)4LVL)25^d@?`Inxzbx7u61^cx`Y*9>ip9i-W#n~IrjIL*Nn{<4W<>C
zdYwBZ*tE7>VRv3$$;WjQf`Sah%05o9XXew6RA(>ytRgPP&wrq0W9p=Qj~zlMP1dhm
zXX$uW;cbMMm45Mst1sr=ysPbeB7yBv=Yg1CvL5BL6<OT>dH1Yj+8!QVU+*-<w=Uq<
zw}YRW88|n;ZcW*CMMY6~*|m9UCc8d9D^Hu3Bw3nY8vea+@zgp0f0ayVi1|5Lv{e7Y
z(t7@nj!Qq?zMtx-72MWtm{?d9w7l5eIHFRv#w&PYqSTyKCvDPSS63akTzV>3tM_7^
zpy9mLQ!FOk_tcU<zs}&8&b=30{8Jw-XA2RKe!R0lKh_~UEw$ts&m2M94HvZ2w@&%8
zOriY$lv<TTVfRm`ot%8*t+~z*_gAh#IoE!5&RNX;Yu7@~lc{SpkA5)u^;72de3koG
z=eM6MHx&@E-WbxK5z~ELz2{l}{BH~S{jP^4Y%(h}cw1**azHe@E%+<zDb9pm<-h~%
zUp8#mb70r2&c74aS8k6vJU_Tu?9rpU@e4UTXa2Z0``*9y4ey${1ZA6d*C)t*=e^Cp
z#>gX1l&7-1ztmLfvxV2MLWYOG9=Gw@AL9`|u(#2;;pa5nw1phpVYBnfen)$h-#hBL
z<%Dk6I@e7LX6HZDN?JU>%s#wtnNXKhm$FP+l)=ODb0Iv_XLJ=kU0Qp%XU%5Q$vHX}
zjxXQOD~`Q+JXBOQ+<L->f5Igzd*AQy&rX|m`e#Psr$ao!EXP)@jIMFgFFRgpH?dmR
zYhF}Hs>PeW*OL~kf37^;wzB7+-ciLjOJB(Af12{*RqR|5#@uM%8Ou6zy`Eh=;p3Ik
zR}_#jf&1YsCW~{I?xsX<;X0l9zq8tPr@rgNvg5N=BOlik-Tz>snXF<^ZGXL+dxw3)
zT?N;TQjD{nmE^3tyF>Jt8Sl|kuP+5`>RZ=&%(X86)b&+rsm9UEZfI_teJ)hmE+y-n
z=XSm~Z6d)j2ix_|Ilm|pSP^BtHtK?=mSpCmnBRL>E;!QTZY{Tsrzk6Q+T2+`n9o~!
z9<x<D7pm_&M@~rhgn`Fn&4Srm&rM?FGuV1g=~B6nOWL09kam&v>J$IwuS#T?w}M-J
zPG+TMVnxMv=gY6%t0(<jFgIf+zu21>0(nz<IJexl`{-y@+nmaNk8Re^gjBu7Qw8Vh
zS$=hV$5_g{&5!eI@YOl_Ha1Qkk$>d$+^>39Y><s-xNAJ~L>4F053zSQS)XVbEz~Pm
zIwRovBIeU7+xw2^@q9R^d?@75%j&ZFy`R?o^;uW5lU+D`@%u-t`!t!>yYdU&%X41S
z@2_h0)zSZ&|4(b-V8hHTu7@{{Pk#UL&G%or1<#*%)I_z-=;oAtaaC#A1m8H}ov(kt
z^v>6C$$M>g;KQ2tIk$gQ@SE-3!p6P&!dt1UTsxj99-UVbB=sexB2jF;?9ZQ~c2eBk
zF?W}GZ|Ps5V_Vd->)6?>$qfqLN7@&k-}d*<qI*pmo1ZOC;kW0wH-&}0=)>L?wHcfH
zT4PI_b63B8!I`y%Te^VTxoFxVH6i}jXG#vJr5$JwI^}U7rT@-0MJC5nA={-KcO~A{
zI^dkCepcYIV}amg{jCBFA2NINu21besJ`EQqlUqhPkPtRCizXiyO;m{_Q2&*U2i%0
zC%$`I_Wh>0(lN`I>+6!IeUvh7m*6-NFR-RzKC?$P?;(*2Nrm~{EZOt;&K0-Vzr9-1
z&bjQ@8@|`e`=v|n$KC(5yVUgkwfB=|HRW36^Qrj1I(#=jJfwP)|6ZNNYA@VR%#b<x
z_Sf&}+FsWWGe%kO{W3xPO^;iv;oW%#>uvTVnLNJUKJ~VhT;z&1R&l3R%?`YOq0wM>
znMiJW3(M{E^VcdU6jV0dQofU>`f&Zszr7RlPVmRC`Sam%o#_<UeW&&^mliy+I`!&v
z)B{6a^OJt@{P&!eaQ~d~Xa9n`E?s+B4DF)lm$+weSekfL?vQ>b8WnNQs`v5=L4#{E
z@4Qp|DzoCukDI$n?(j!U2x~cg^V{{GwvJIue^dGtoL%;^Ut|@1cIfhp*Qb)YkIp=~
z?C8(`JHiVOviNRV%XY$kP14H-_C;$w^veGgtQTSZoXciBO|f_BpBZBNkK8smo3X{U
z?2)fx#Wl|uk$=wjey42MzS+Ym?q_LJbNuypmd{KsY%P{4Oj)9BAmngguUvcLBqja5
zvnTkt%II`{VPN$?w?{G8GS>U$+tocME*i_t6W~x;Z0w>pO}+o(jEAB7CKo@sEtvgN
z`ogN%D;N8&9{cu``_TE>UF=HS-9K(T+;?i}mJZb?x7iNH<+|u7s{1KE-tfP7lTTch
zMU`w!uBd2Ca+2$ztP32{fm^N%vSgXhPn*x9acj}jdmpcagrvrt>bS5WF8QtH$A7ka
zghZ5n*uKtlI@nd;x>{IJKjTl|0@dly#9oK#g-_^mahVgj_UulL7~XSQY)4y@3`}xn
zN9kzYn%BHX#<1}^b85okeVY2gFOzw?uN9URM6*rl^y50dlwFN8v*PjcivCNE(S7n-
zOxj)(k2Dodc|3J)?esN*-+TEO4>jzIb7eUwdr0l`Yr%;0%H&)8FBW`%)ce{}o?HL$
znVqLj$34voUCy)luhs^sf9rQ^=IGkCY~FfC^@`8KgjcC<BB7Vou-(}Cu#ENLOxYGc
z_eZ~~`ncwYteP@W>dU;P9>PX$pE6yn75F@kbO>2k)h}Aj%^UIG;=woNG^;41v^$d=
z?(ceXan>#l=i@h9<MzxFU?}77YCE)1T)(5-pUvWmL3@|;gS7|t`z(;S!M9Vvw&?dR
z1I3-&7O{S-3pGB<|F>?VrN*2s%TJu2xz?%Y>J@I|)+HvI9R~`w++>-b^h@GfzCz5~
zn;r)H4{`IpSX#F`^^xbsS+_b`&Pl(HJfHQfa3j|h;dh0eGwU|6s&YmKDYNAXE!fVs
zs%&fNJ-!(I8=i8SroRlog{+GZZ}}`;_Il@83nQk>6<tO3UOI<8_m}1r?AVfgS0`wx
z%ZjS<!<<>Qu?eMt$9W^(cF6BcOt7u=5&T^Dac6Vc-*4hOnEP#Cn_atoYNFNk9<D8$
zOFo^xp)foC*!|1;&NpJN+BYtpA7*{W?QO&4y!ir0K4c`u=I2##o5*!?UTOHV%YJLt
z%>_HtWmJ3GJkP8;GRIT%(FD<eYKaeVOUw-BuW$PD^}(Sf?QL(K+?&;P-Z0<v`yJa}
zqn6&7Qwr`(n>QYsBl2`}1C!d4*~v+LJ~3eo!pnITHa3N?6l{{XcYJl?hXAIJUpn{=
zPR6mNyYrW&-ZXhGc9S>brv1w$E8iM~O`3CX^81MOzaFksKNh5`k)_wtY|C!3_T9}|
z83qRpmM|&d;{id-*KRoc^okMBJMTr8<_mH^o?n*haG<g&;U)L$Td%up>-R5}{(De!
z=~Asf(tA^%GXB()*7PajwY+&Jx+B`GO`_dki_PlH)_dpXG$rd~9DDe~I3hwME>QdX
z{o)O=*Zo%1Y+V^@Z=7+d=;6ez3!XJSos<*0>)5UTebPS0>9fmE=HK3TCWo!M?Te7k
zY=;8xn3e$NZ;_HQ2hLo{@+#Ji{uQ##y7)O?uj#f5;iM|Z-Rk=nu<+03jboKdzS3F9
zW}Grdy3c){^V^l%WR86)iDF$S|7nWWw4V7d?woOR?%&2c!;0_0k@BynCU>7aH$%h!
zD~DRuO3@n)89CfSv0IbcjaI(AsrJWwSMB4?y8K@2V{+ei=5xOD+&1UfzUjVq6Xq@d
zBkev<*yw_Z;)%b$>MaTD4}|GNPYttGUB)4!9$@_K^DEC9TdNm2(MetZFKk=#Eh(6t
zVVaoO!Wr>guPvCqrtn_1Sm|PXaYK0j^hp_c>%ZM#m2O`A_HyCXhX%DP*q%h?<Q-|)
zlEn7r@0s~NPpcl+sXa_dFXHr8n&1?w$0B9wYw+pd&#6;*oX@6fZ<b!^ubq{0EHyMW
z=IlZ{o)WV;nH#sfI`bv@a?i^SsT0;o@#_~}FLwHJ^P$9jmgL*>9A3$-5I?@7=97cb
znJ3Sz^X!)<E!ZzrJyrC6m)ULc!#8^c7Q1q+ENI&5!J~SI&*Y`sy|>nBLErCA7Ukmz
zFh6(fN*EKr<mHdz@=afNzHYd>^UwO4s@{I#Q^#zi@&)~txU^ZhaAb--Xj5F2JlBAs
zJy_ac|A}?+%xp7b-v1PocfFA6Zh3xH_&=Sfv+H`N1u0DxT-mUDy<!Mo^}9<_Mwh<o
zsv9lrEmPT9+`O-Fo^8_J+&Nk~KieGsN{IiMmv!8D<x<n9UPbH=!cHkZwJ1FxcI@B<
zm)++5!E(o$5+Z&Z&H2=Hb+i5Pr7Ip3v1zI8PW&bBUuJ)?)Fb*D&&(yKrm4N1vD#yG
z;C$0B58jsSK6K3JL2gLN%3WKf4fXy8or#=zK{V3(u){u?o;@9A671pM%zsaDNmltg
z>Fey++d<F#`ghi8nLm^l3E8#vyz&Jn?<Va@$MbjhZay~6?ZKY@%B8`ptgfuNl685O
z;Zp5Qk(Mh1wel}{nEfsZx#;}qNmli>s4a8+<gaVhX0^^R4xQWoIQZGrRj)HAq%XY9
zT74k;=6*%T!@m8-j)zaYeE)Upla*@>(>)e5J5N%c@tXg)p0V7AHwMZK)vI25$QQhe
zeal+gSt@O5vSy)D`{7?#rmLNv9LRCp>g16d+7p$^H<dI8+1znkb+A0i@K8u)bG4mk
z!~%^RqZNBY7M@<<7vsEP&#UWi6V;7YSpVqHm+G0wk$7xjR&cav(EZCM7Y-Zy8Hv<9
zP06gjRM`D6@&C_R#X7&ru6}<p>lSC|oN$h`xcDnK?N_VhM|)W=HMBW4b^p1S+k|@O
zSUp!cw^C>Ml-05E>~s3|-Mv!!;JmSi%|p3lEm@-*)|c*Vi`}55|6^&9h@+HyT>ldF
z^XVc%TP^c5-+9lncyjZ=ty>}K4llM#Z@7J3caok!`Qa~lbuSmlz83fwdpLVZMCQ3u
z_CW%_c=I34I=1RaAAfdoaL@BQ$@SJL@5}cz+2kI-l)YVfb@o-qD)EIcYOV>LIr-n~
zY2(FRf`)STX9Ep&w%9LIn9}|={m{081v}I0j!v)&RQYNWxRQC(R15F^v)dJ47^d9c
z+*JN0IMZ@sV)9n0S|7O==Pxv$x-8Qa=92fYH8Vq8T6<f<cGXT%{T8ze$!&A{N)n%|
zxm}2;-}g;SbMBF;i<cK(f1NeAb!ouWl*gIZIM?Wf=bTsHU}diJJmYa@LivJ5`6-^3
zKU^N$8GHMxIV7%iSbf`Tf|oJVGu<ei6$%!-leXANymmgURqS<gkABgsPl>hbZ?VLj
zb(w2%jZdp<TA)vkreExfm%&RfSlc#btAD>z7QU9@^P5G{O`mf1x~$)wI%na%6Vm4u
zdgrapk19QM|JxMvJLXE;w|se|8~xC>>_!Mjg+t7&DVeq<r<QHf$~ZeiU$D|N%+;-?
zm+OdMpL_hGtFM{8>g#!yPXDBQTz`STblDS!h5q->{Sw_FVUT8cv2MA=EY~c35B>Qc
z=CZLS@7;b~eM@xWrHU28RarAnn9BWjdj4lpcRWw(RjaR8i_Gr6WS+U{@&sn*lh2=K
z?Dx$G{GvL)^T~W`p9Xs-quIX&i&+<Mh?#nB_SLq)%N&Q<ou*A$&3oIv#I47}St#SB
zw7ll@^ew+m^BJCP;V7BJ@^an8m_Wf;-Nd<{CNWNLH}~*Tm^x$1{1@|irF<e*^VsD#
zu)O$kXXm@A?nx4TPRy^4US$_p(<J+P2lsi|oij3ayNJoYj>y=!FnHN*zN)$c%W(BA
z7m}`B(bZr(&$h$7{Ltn@P9ZfvvTkbD*H+sHg&N%T;%hs)eiw(p!)LoAXKOs#80#K6
zvxPa-L*Qvyhkc4L%j-J#9omWhx%nv(0)lyOTMp{|Vm`X=&9=ZblTW$F^IY}sQ)BPk
zX}aulh%Z-2@$~5qw=07T@Aws3?B8kIxuH!t-@xRST^Xn0I^Ts%XENu0^89F*nXLFr
zb9aT-X@U3&cK3FqUuT=TEdS-q^zFr0rLVQ5tvX({X215=tw*dMJw7#ma;jZH(7e)>
zJ<SqLsttdoM6BJP)s)EY;OW-<_h8BA$WOA1`{Xx;ntzsh@ILRI!Ir>fSN_Bq+df^d
zcB#^%WM<r)w^iP~Z1;Jeri6RmpWbVKzEeuEM0tXNqJWs`cM<p95dz$=1?HP+WUr1%
zkZUqeHZ47~jm<}WHrFxlIYLK&N}bzwUFb{C{q@hw{8Aa$njA@azRvaK?GH|y);7s#
zUrl*9*R{<%q%ArnHCFd$5!1Cx^AguA%X!<d^R2}zR<A8HZX24{MD1c-b)xV^w9>~2
z&%H<b6m%X}uABTxSUFSUlEsGxlc1DZohO}{CuPiImn<wY&+%4goqC`~<NKD$L9;Db
zw{0;<w23})ZQH%(d6r99H$S>~E$`fE{;cIIjd`yH76|(N_`Y0y`KEV=EhlxlF32oC
zGVzmKQqyKWo{n237YuS#=e;R(_Gp?>T(kAFC*L`v%nxjj@9W0YnEmVB+8uN*>0a*q
z!_zPGyxt_cKI{DRvk6^W4~9#%CA4X;;g#ci{Zv=(bL`vtHS7Cy``ng3{;@7ilRup0
zv;Lf=E=@n*_HFO(nZ5Jkbv1`qUXejRe8ZR)`9GcF!>{n9L`$c574w-}ZiSaObJcHu
zTer7-!TaQAQCzJ{Udkj}x~%vrq8*#7J=4iKI4tYIiJ;FhoU^>{ZMXCM5#CqO_%_(<
z;G+qr*?0QvdQo|EyI>T%-QTO3X+F31#u;(tH1GQ)@@rR}gRJD@g0>GY1tu5oS>CK+
zX6!ltjn%QIRUKt}_C7gMp1ftB?8@`UGqy&rn;lwYyWkz?yu$n~qE=^B<_hq5@7XV|
z<Nql3oQt$Co6W+hA0BqpbK5Xak>uBUD|y#*nUQU+Te(z!s`B<8>Ay?;0%zMzKe5H*
z+oYU>DMGG~+BcN_%8tpM>~0_>Q@8LgPnhJ^yy^+1%QobQE_m+ex+qO6{ruj3sp^F-
zy7LUIVr!+utWEO*S8uy{`rxHotKaXF<T6@!G$Ck8S=Z0E%XT$x>;5#c>ctGV3Ck)E
zzrUS%uOs2e|4*B0y`Q`b*y~d$nJ>2b@4NVKjD9gIHm;pHmH%O}_4d%c$9H}WdsKJq
z<NAq<ryi5Prx(mP=TX}0T?alFzc=S=zvHz&O8VQAlxh<<|1Z<zpG;8^Jy-qetNy)y
zkKW@l4({=_rDFM3yOJJF-ZSUstrhDREr=>87u_7%y*tfya@o4;7rvCXxxKsk^6L`u
z7fZsI@4a&F(XU&Kllgtt=j<0ey7qmUmFR*z3xUs1ZdhLQl~DAxWp6(4Y08R^2d=%0
zd6;JY&;0Gq>3`MCg|FW@x7JKAC0|olGPwA~R`tbwp6l*PBpC4<_imcKGG?~Xq3#EJ
zk11_h($^EOBDU1UR_t|vc8_DyX}2X!5gC@-t|iP^!z;62cK2&PqtJObPOZxS-rk_t
zGiPepH-4W}TmLfKU%G$t-$U08I-CA)+rg``ZE>)$mAT{>v1OTzxw{P=*G=Afqhe#<
zL?5;Jz9$><Pm6u`%&OC?S-@a!=kjJz`{VC>R!F&(?-LTf#IJcwaqa3CUVY_r=W2-=
z*<RIH|8dT}Kb4t{XPwR2r<sNG`TRcFxYFj$YS|m{CG6LVKOPFcQK_rClS`y`=W4sB
z9Iq~REY6PItz!JsD&E&GFGW*i{`M`iHhM4X|NLUgr)%a>`*bvJ)tIe${Nq}Bao#!4
zxu=%RUUj(WqM4+o?vE=ggZ{p_c5aW~)0sCmc~1O!XS(Og)z4n1&Ta1BRLzlDI)CNu
z<#$<YJx|p{JQv+9-($1K>G1A|u-8_u52XIKNd0);B(n6ueAAOEevNur8~rYx>s8UZ
z|3%3(-fX4emD#hcavkQgcuuoiW+y8lRjuv+<EuIIa{bTiuilgw@1J+9LP*xy_Dg%j
z$t3smzlxvM*t7J!xw8Gy!C0jm0Vbs?jPu-_Up~*!3w-gExkxZ4{g`upjFwzAzww!U
z`4!LWjE`6QJ^QibaeHZ1-t@ZG@*hcWa^;dXP0W9<s#l}Bb^g*{5kA3hN(EMaJs|y9
z`^NK+Zq-j(>*t+W+N)(%Ys2-nf3x%3xrs`Tbjkyt@9dUuT^{TjWD??g`-kM_MI}~G
za(-y6uVyXqtNPYCCw1RkndkXd3#@v@yi)io&PHS{Shz9N#XTr~OX~?|^BsR0?pc=S
z-Mpk%tan+uXzBj5Cma0N>zrLAvUXFFpY4r&p0jgbTYj!pvQjZFoaZ>dNp$n7Ms4A^
zSBLfdDl8*rH-BV5v)l1%@2TkY<14;>_%yBK`ms6ditX(77}Rwr#M#f^=3~D7O4Yp`
z`fX~b8}DBB{(Wz^OlAMdeAW7AF4k|?8K~bXJ3TwZ@tGH+T0_wCS(8p$E}l9y|H_RE
z4kic6h06b&o6^*N`HIw{-EA%TKEXSyDsQlh96q^Z@%f0zgHp}eQ$%Y!HJ>DxWUnbo
z;Zj^2F4nHNgWZ$8Nmu9MtZ#Qr8>jMTs74;qvDdyT#5wtN*p$$fW#-}u8P?K2YGl;w
z9t!aY{Mc$MB=YQHTPJ&d%=b%+rd-~0W#5XuOdgu^-f*w)U)g>!y*f(X#317NQ{()!
z6XNS`v>vrMd3o=}**q*4wtnz1b)6L!EpwY&YEMN;7^}%T&nKm`Z+GrEf0gIyhU;^d
z96g*J@as*>hq|JYi}hZInKG9t9(d#WHSzoDtpPJ*tn^I(R&*?n$b4b@fc<L1cGe@A
z&&$>dSC+^7*@_>0(!4y|)AjN;p??0yQsQy%nwZmD@0jqc$h?1ZD|h<G_rDwF*7L0Q
zjFmn8e~VsnOhbkHl*8){9phb+Ee?7-uwUAD$I|B7=M5iO%zmmlEM=Qm=%o>P(tIg*
z)0{2W7PQ-Csyh_jJl=2dk8ySLmh!DqJ(J$fd{wwPtbhOQE8pYSzPk2q-N$*;U+nyD
z_apRj|MPk8esifTxg66NGSy7(LSB2#!v}9-F7H@$IiyA5`f*MF51hL%_B!*ex#s^c
zasG+<Yh@mtYAT&{*vO;Oq5HvERofqnvNu@I3JKl4TiJ12y61rmXWliZ!WcaDvJ59b
zIHzrW{O=WyWfx=9pRRSi&dwRN`d;7PIqrSO0^Ut_`#<~l`H!5l9&_B-z{<W%l+k;0
z*P_p-gA5kmU815__@vwC?VXzLQvb?Zh6|Kh_TQgprpB~t%@eJt@3L1XGH+e-NWH0X
z?TmHZWm&hg+@$=oRz0(Law8%Bmqx3}oQ4fTJw;00dtV1#$ck>$QCzpy;CPt-MAcaz
zC$3jB^-XxNqk3mq=)xz_wVH;0A>x<5c34Jl&=q)P{J2V|$ZpBzQ(`5?-y3@hN@o0c
zkh#cn?zgH*mrojXKRJ*$@7rh1*oJdocSRT$y@_RV4DaqZ8#-@kxA7dWJ3s6s{lvRE
z0=!o4=<vvuY+PNu%!OxH>il1;9=S{|=46<p#$Yn{L4s`GnXctQT6=tb`Rca0f8Tel
zEXmn0akBV3*@eG0UNU>f<t!BOG4dcoGRNG)*27zSY%l8YeTfpBDPS|Z-7wl|y2^>U
z=`XJ7lxk{o*%kD~cHWI|Y`m_esrYlv*O@UF_44#1{r~$GY&fkVv>?{SCrTmzz>eCG
z?zZAT)iRt66`qqXFWGiw;xgF`9|mcKpC25QCtKeO-~3r-TT9FL6VE)Yr~X?yUGD?u
zwyD!a1^CLmgZ5@+-F$Uk^kosdk$o-Kf(d-ZM-28gwNELE$nnk=vEkkD_@rv=p`hha
zTwE<Si~rV0T{!7wy>_zo-n_r*4(|`B9`m|!K((whuRQmZew%Ay*AL4tyg5w;{rj4e
zgamrcOLH%`1O+UJbh&ZT=2`Rtw*PE}*DPEGuf;TP_%GZz?ar*(G5h#tZ}`!@Gv@iX
zQlZ$-dYn`3`B!gwA8~u$%$Nh_Eq6Ei>%SIZX<)il&i>MPca?!;o#V~Y_WD}6)vmcK
zH{IK$=QGVDuFp8!%j<pP-QwAM?o}miyk_(^wBpN}92vLFL(l%db^PsHIlcbSF~x&3
zXBkQVthU<Pb=B`0OXSWiAwoG5<Yxz@a=iM{GH>Rb8$rzPy?J|{H5iA^4HLFXP%iy-
z=5b$f_^OMt_vO~PG_srw+Fhu&Y04qp4Xq+4y_r`|RGHJGl=(2<@6gYVR$ik8MIWDQ
zJ-T&fj^B~5`&uu(J9<fE{(A?ZT#1GSi(c$XS!pM0`>7&hdT-sbY4$047qfnTzcPKw
zo{oF5H`Yn~J<@i~SGF>FPwwtsLut0s!%076uRfh}x_GTxb>_d^hlk&O;+4Nwve#g_
zkk^0S{BpPFi~_BBjh>r!2_CTbIocF@vVG#G#{%p9bYJEb?BM8|UGeY5;nT&nR@XX=
z<Wqf3(zzb1F58sh)g2ywJbwCecaf_;qG~)JWfs4*QY~pIyOGXWH7R4R`m0-4`hI`f
z$*R`<;q9F!<JN0BPb+0yuWb{ZJC9d!_RZPayQ~~1h#E?__SCIdG_mec%+avUUx#|9
z+|bcW&X#p$>z;pJ#rdqp=B`60y{0TW=b`*K#!Y#V+u~!NGGr%9>o0fgUEnog;yim*
z=0>yRZF3YCr}**v7U?|~`}}db1#6~keWriUeiN^qiY`iv?}o7TzM8y0>s8sRxySel
za^Gdld?vg_d-6j;m-vUPrUZ#FtVsFA;Xdbg@WTZK{%$uXK3}ra-tXpy#mXy#bn`l1
ze+XIaWHs;488g!tai7&Lw-~Ryx#Dv3#TlGWuNS7AT)1EM%jY$EN|uW+=I5GS);fRA
zF5CFztLaZgehRppyk+(5;PI-byXJJ%2qxa%*xQ?B@k)2yY?B}RuWP<jo)dLlF+k`?
zi^Su^kISD~HL>OXjy#uN;B9ZWb7{aWo;A|9{Z`7$)GP{;dAH_jK~Ko;rL{@U>kAcx
zwF1@MPCq=*GS5xp7{kt`CW2c6w=+L|W%%UjwU==vce1%`8JJHhGhI5q;K$+Zm)G5@
zl0N%PGUJ-3lTT{W#)~aWgtxj()c*aWW$(oUiAM6feIuoPUrG6XStNYRLH1~4%8Ch5
zf<fh<4KF=Ac((CfGtZ>FNek~zc5HckcivLVRExiFUr!Ykinw&~({i^fjQ;&nzw=ML
ziRagI6K?;s)aM4<;rcCc#qYeEqMZF~r1a-LUm2-ieplt;inU7@GfReVRXX&%uH>Va
zdu5bL)m=eHkxf%WZ_e5<#d&9!^2P1)N}aD3N}S)C{lLM*D=I)==++<a0~Y65E@w&_
zJW6Ji=5woOo$iu;Z;p4_=c44}D*wgv^xc*pzcn>&7t6EW21g0!_LPVm?rT2_7ToVB
z6!@heZ@yVyP@nrk@$c=1Z?opi&ED4DeLkg`_43qZhcB8q@0*_yRk%gR;<?#_l9hQL
zk27cG?aw>bkl*U|s3`fZs_VN0+m?F0*#9Q@dtTzUgyhF!)l=N2wN~bxTfXs%@Qh`G
zJqxz{)t+%DZ0CdO7wHUJ-@6%~yj{v3Gs8^m%E#ls8w6xF%gHn{^<O-k*;Bb|vGB^P
zTS5->`6wLvCG~V0)5P9vpJ(Uu<^I+ebDj6V+?@c~Z~)$&U}S7!2H%}vWQ1jRf{_tX
zyA$rlMo-ppFKqkJUAso%kXd5;UlW_mV;NDg-?e!9HZ(BYY-qF)tTU*45L2=xsZ>Q)
z#o^oh^0e4poAU13?%u3@bK!(Clgrartyy#C&!@2Yvd=nY)BdRctNr(Ja(R6&-}<`$
zDRzHY{?&ecvRVC1d_hP3y!x7o_nL7_`16WpWmi`GIykw&+*;$P`Z0dDl_zf<zT7|m
z&-01%&wa4(Gc28Q`uP8<U+ewPU5ecE<IL43Gm6`n>p%DuKj+Ain`fSWoGiTgL!j*c
z3aj&zXFjy9u6bS}R$yEA_h+ZSm*v?$`FYPyc1E6m^FydkysT)F?ELxXaxO&~^7bDR
zkA8mSqiNjfxtqWJP^#Z^l7IKhxE|)Z@7L!<TV=0S=e+#w@jr?C$JPqj#GKk;_2Q&t
z;?(^mMg}&u0+ac!e-@rSW18`MyGXwv3vK@APk))Kn{q0yeQ6ixckA5dyT2=pITb9_
z`~Tbd-6~Wy{VDNoZJ5+GmbPij&Q7@ZK})SKe%`s7qG^T;9-elnW;EIJHASrFu<HKy
z)#@{xQy7jO+I((~uhaRO%9JJcabF%U_pkf<WOMT@+m+7`NBVs`FoC_{;29lL0oj}1
z_I{tg=l8$!{PXw!eDrj3`TxfU=I!|%{O5f2{y&O;D*wB;=iB`J_`5wm_Qbglatag5
zvSy_|NDJiQ<IsLKX~Q>$$q$WupRE<<neqB&d|&w^E!)30ColgW@pswo`)2Vb-YXmQ
za^^jHZFeAh?G&|jvc*%pIewo#@P4z{vh!;<RBV=iS-Er0hTs^Xh>VJ;IAKlMHE%_)
zFPZgnlSa^?=|@-P_(!uH5)ba5KjqDPO(&KI`FHemH777y$S#>ZVd9C~`vTuC%L@7-
z_|)l+-~P6}hZ0<TO4?Hb+$4(|7J5oFO7vvB>l9+U^SvU6)B8yJL9bK!rwkr%u|DDP
zt+wdQ{--f_iaT{aC#jz{QgvL$UHa#&;Mc}^YkMA@c)ea@<{HaYf1c+1y$sU7JmcA9
z$E9h79y&HZw?F(8d2&He(>kSJ>MKq4`r@DDFWxcbS%veJYpb6o)}FepQ1@s_UDv6}
zXT2mW1AOiT%SN91>^Xg@)Y~UJ*Y9}B%TvbobNP*btPYxfE9I}gvtF*J{`w@#+M_J1
ztgj_LZ8Ow={?>i^2Iq%H6E=69*N8VYV4Lue@u|*@B83Fg8Nnx~RU24JM+kU4-2Rzw
z<un}$y@JN-H5cOVYJX_{a!qT0z?Prh`og)5H`lA(;@Z44?c>e-l=`n9tCugAH|00s
z(Y^7sF`6lepH(GY#_Y;W>;LCIY?;4sr$zzC@##0S{>!Lv<=8w8(G_vrk#*d9QP9Ed
z9E=hhG>fm?;Lk`hV|&;#<7P@Fv*Mwt753LBUlsZxdxQHx&$9Kq_MScTYwe?LCItqS
z54jQ)!_Pc7&R3A$V_|bnN_SFT0_VkwS!x1IQ)*&ooj3j<^mxj@s+}gmzkc{9_8f3J
zp057G!1&z-CvhILnI-N?3;t{JzrOrO&q&9JDe3h5!)l4AHea!nG)kWk7N{JvU`s+s
zS3&p`;{{u)_N?_*JM#6loyax4;?nHs&_A-<GpfFDHulc(S-d;@&5c^q5B*La*7yB0
zLv9%*o#?qGH<3ZNqHX@cu%xrkdTwus{k!qU!;D`u6}M(3O8J})Ro*dA+Fm65KSRa6
z10Oy;d%0QlMV-+G-RM)Ue?u1*ocnwEVVuc<);F*IR0O)46z|u$V|?XqkHE8c4F%H}
zzusITabDhkL3=CXVauQK4m<WmJqZ#qOYlq)ygv8MOilBJx0zY?#2h%aT}*J64`b{n
z=cN(<h1B0VNV>0TR!Z@DtnxKUy`jc@&H74V-71lIl_1}bNeqpz7A)SLdm!b<6pP!t
zEQ}7DxqnN4&2Tw|`!`d;%(GS7_N_m(rrUboZaakwFD6+`*cP$V`G&1o>G}MNOk7)D
zUwu^Zi|s<Y^#(7u73!DRC&W%uF%8syW@3AKeOkc&ReMq|MC$PC&fzhemCY)DrLV1M
zsg}L-<6}`9*}tFOyRkC*#J+>Kt~e*u9XKlUUWGGZTJ)p_fvR`8JDPm=b>=Wln|ST+
zQN}4!SAq|!N#`jT%yRg`xT4$Ke#VsbA48{n63nu4oTw(TBVozyW}|b}(ekHGpE?-z
zY5mO1BMB=eKYtK$@!}4}-2t0Y`eGGsxpi%S{p82BB(wPGj6ZXBpD9U`N!8(rskYhC
zKXaX8qJBZ2*o^wKmb1QIe`L%g^Gs!XY}T!eUp=YmpV>@b3YcrYyZL?ABulB27Yey9
zzTQ4HyTyI?)a;`2*hMkghV|`B*)=yg&r{jFH1gNQysT;eHkRf5op<-w%r{Z`rmm*<
ztDaBmPFH{G`qt>ae9pT_u7>@*MQk5B4PX5bxqmo4v$C9tM?os9Zz`wClg)Pj(hkO4
z*<W;2Q)Fk=^57FabDici=dkRaFTDO|^@|x7ybQbNaVJl#%b8w(C&D^%nP$mZ0h8M7
zzq#p)6P-@+);b<|HTfAU&$;(!=bzYM=l4kMNARKP+Kg%M{Uvv}KFitn{=<{<CpUg=
zi)nJ6sy_d$RNC6_zok{V-|e|{pF^eYc}bh-e3qki6A#_{`*qWW73q9`)-;KG>i+6u
z@w)eKx~lyHvwK=oStcb5HE#R$gJ*`D&lwHh*!+CIc|TJ(^2Hu^ldouuQ#70^RTP@$
z>)B<ZaQ0=xttTuCLepf5o*qhyZB@UsC1=0aS>7ATGn4{OO+704FWkXk`Ia|Uy+L0x
z1dEl^1EpVj-3!%JQ9L+%f`5bd%%z_5OBbJ%QUAYvhxLvUKgp6hqg?f~M?SvyldICu
zOf6q4^6u}Umq&Gfz1vYP7+KPDY2tyhMVdOc`{kpLSoADbHoiP<_T_&n_o7qkvMc!-
zLf;8a5S|=xuKN7mEB9Z|{?HxrLv7nyt1ADOQze>Ic2<1ZzOlrhU1-YPbZ6aNRR-Ib
zyx03KaLZYmEA%!y^J+Nb(!UX1mSzD`^EG}K%j~cUxwGP^QtjrrC5DsEc5jhCdGBU?
z<@zmCgbo`eiZE$#@>hEBoDL8;oUQZgwnmri$5z&~%Lg@!HkRw%-@>Z!=a*=CjI6_z
zMNggHSfo8*bC|;R)%1lan}GP5)04Ia`K$i^8{Ts1z}a~b$ur+IufJ{gz&vJqPNLb2
z{W05pwU?@@-)H@O?x?N!gVVEY+a~s#b%f}7T7KrblzYPW(Q@?%@8ttxEfxwI)xN(X
zEgEGTDBEB-S(tzOh8cH{B(-wJB^fUKab&CXk{fQu*8+chb`|G*%P*L<{=hVkJ96HR
zQmewfcy}rMiamH(<m0ITIpeu$TbKSeeA=hbXx+wdt@p+D+_sjpD?<+(F5o^AcfVP)
zJf%hC*SDNLum7%Wz0!<XXL6KSR!z!y^?l37%+$o`9!xLd(-S%wvp9`6_ND2%C~&Np
z*uXdGn}glG347YZe;D~#r?VWLv?1-#^fQ72;c3?2o8~rjTb`Y9W789D>&#ArcLvXI
zt86|hbx-hL&l>JuOY&#-MwA<#4p+LrxUod}{`bPoeD{Q(R_*)qyZdLqyf8;h_{tb1
zgU#1{{%4nM>AAU%)$!ZP%X_0ELpjw_wAFoHrEF|=y%w#Xc#1(i%_pVlwuOy%Lsx^o
zZqu!oDuy$?b}$M|fAOQc-$}o*p*7IvshEdzF?Ywd%4?T(j_?+4ewb`6ZQELNm#0Tg
zKJfEAkGuKCTX$4=r<MCGbDw-$CM>XE=S<B68@FFo4?Iq8Wv{S1{*$qA$q`OD6|sqL
z4oy7yVZVU4UQkg_?=QbekEWgOl9uD~(Yv@pH2;Ka;|c4W4S}0Zv@S^5p;ykPTK(AP
zb^!AlO}9x>+XdQg_kDZuAgq52<Fxif{hcdcTvumk?)Y;1Hkajs(-mdg<PR&F*Ts2m
z?b3Ei`#$x~%V^fx>l_m1YWp*kkL529Ii9w88ee^c@RNcfb))v?sX=TroRb9-%3K_b
z7IJZ}>|OtR(&m&1_Og1;$itIVluQ+jDjNzXt=h9Spl!v`32fC(szw<i+atDfY*BfY
zCCF<WmnV7sXYh`|Oy7JJx4cy;UEhDJTyk8)@!Bisl9NoVm!-OyUz@n{9M5c{WKFFP
z*Mg=TKKn0V-iJ-A<xhEAKArzX;QAyB{S)uce|j%zDJpowu{48S-;gJwc}e@-d6zeC
z+sd{7f|`UHf8248$I}~LJ^ggt_*~JSZUfHE2krFF^zdF@!d1Ivms?achsfe?rTE1v
zTp|&M^O?UUs7*gw@z^n=@#>3at^1cYt24K9-!5^FVX54v@Id)l;dkRdX^*o{$jv%Z
zQzrb!$#c)VC(nb84%BFA)HHrAaXb|;_y2|SC5)Trq%nNSouBHb;$yR=Hsf-${NkGM
zC@;zG7M+F{nr^4koy%&fWT!2D^7eVCaBz@i(DsYl=f)ksr1EyvnHH9{j!MaUCrmI=
zZF{2pWJ}$nFRyM!d|4JDpql0;BC~V<M>%a%fxIB)Kev=`uX?g%>67Ghy4;)Gex=y1
z(|@MqpRls@>G68M{@C>lEur7vwO)NPr|OSh>-$f#EgyrTd3Mj(9qPneTDEVEaQN&q
zOs&>iN`B>wn!3qeT`jXMR=<DkX0?2W=cgr)<w-rZ{r<UtZ=OeS1;_S_a&k*n@cDAy
z-qB@uAV0B*L92ag{l`?xjjLaWD6OgXJG$uj?b-L|S{O~^D>aa)G~4whbnaAU<=V32
z{nMU^Z%R0C-D;HRZhb^;TS`P@W$2&2W7n)bD$E<taBQ4;i^cn(<o^xfArbQ>`4f2`
z?f7?+Gtt7WonzvznN=&Dd<<OFR`z}Rwmo9rNgba(Z@yhB4{UB>;ItCgOuFZpu=`rb
zD%Ba;!Cg}FcSJMVG~Yje=(qZH#<9Surpz4tVJZ=^daI75>b?G?yVIw8R-^8Zd_nGy
zMwS0=uPB<}bS2<{vFXtzM_hL+nI5~RAJ8{N;+K;2=l2trs;zsbTW@>#!?X`Eg|_9j
zuG#JTBxh}(&sqD&(vMqY-%=CtZEuPe>n>_*U%qSGi{d3A(<{Yq_e!Me9N%$^DQ3C0
zx9lU&1@|g87fmno-hN}(vdk&35~dwvDBIpW<v`OO#d?lijvl7pXBvv$U3+7v_wx>>
zfI^+U*ZUPNUpVHP=_v7v>qy?G%YTD}lK4OAR$k;!JzbQ3d)jX0IPX<!y}Xrn8f?D#
zY16v6)kW^PFS3N#qr5u$9-o*Nd@Gu@j=$c)pycT;2L`Q!dKV%U67J1S(d^uw_gGNK
z^wPCX3;yXovyOU4tEu_#V7vLU=^4xX$=8<_o$9<|bnNzfH~mA)KAgO&l(tf7)5U@t
z%5N86Pi=hTtQ&XAQ9L|7p1Z-!se1iU{q{>H6QgCj7BpK-ZC=4K>)VUDwNIz+&p5pA
z_pFI5jeA56ZGT%4mAoyXZ22_RAe|4lPt+~*WZo}$H&wX)f)mSwS3I|iR$4o3n5d}#
z_Cw&-uL(h|znr_c%?||5U^L&=xjkf(ljz53yR-Ky-U`XJc=A~IdUK!XeD^u36>p^+
z16G{avRciwBKV^3Ghvo+yU_nX?*F{xXX{l^%c5}nH-AMav(_ckv=eOWr_a-mRr7ig
za%x|HLxE)F^W5)CZ&(RGu5e&D!($>5v+!i7_tf_1>XJV@5{?VLo4$c5W>VXNmb#F)
z$0V8l+P&PCrTMz%!N$)mGlS<pQ&r>G`!TMwb>U2D5&pYw8oFW0y;FBRIAOfI<kKcc
z2WD@U+NcSu1O@bNH9lpCu@%#sH%04w<ixL>k69+(I45yMOH`xs=gFSgJC1BfV814?
z_R#K`imi%mN7JT-I%OVl>r9P1-ezj>tgiRQ=bX)gZc%q89-gIR%P!NWcXz$}hGo1F
z5<Pah%btp<O<cG<>S2xg#o2mgPdSu0%R;ZYH~-AJ(VP^XYAA7L&de*<uOx3cUUi03
zQ$-}k(D^b;%hpc&Xl?1A3CXFg(@Ii#pD9h8A^3UYqV~AR3VyRoOSHAEZ@w0{P+c;)
zJnC_`mh!H?zstU<AGot9@Xc&t25*5Yc~feY%S|4fwwSi%uH3_jTMNIu6gZxAAy2IK
z@p65m)q05<@;4RqLZ0}}KX_+mLguNmyAK(i`eVOYILuJ1yvA!d%TDFt8r9@I^X0Bc
zTBNu7|8dRS{CM_3gM%7uZzSiZecZKU(bik}`JbN8PXGBRdQt7h%K40LI<epEc;=hL
ztvK7eZEA3d*!h)(vpmeQR=&Du!tqC=Xx&}$9oKy~=N(`;b!cLQ#z`xtLY8H{GnTF>
zsGH;yBla(7-QMX^2Hd;-`krYpbMnN^VC8;WxG1CRk*v$*D7~Pf5`mK`31@tAmZ&Bc
zJgU?5?CLUo^v`3<lx<6veu|9Yx%SX1Xy2qQ+?us)${ltKCNEc+w(@}7)2K4e70x?_
zeYGNYur6Dd=63to=bb*9j<IPU*VjIf*=nKd_DDi}$%?y^b;}H#%bLUYZ8&(qBJ6A0
z`O23i*>kEAPF!HC>sJVU_3C7TpD3??lyv2~9Jcu(ZKglE4R#gC+&<g9cgOFnTVIdI
zDS4NP@<%_+lCDWuApNeqDbA?gjLB<i?Y|GY%fnCQ|I%Gvz3Y?QuMhuy%U?R`h2M<X
zCBInn_W!(_+mbGC6P=;>VE)#tRr2|pFADw?RrqnW=1a$=M_2QoM{VJqaon|m>pRnj
zY1QY~Z{(j-b5ii$%M0Hh{WoZcZ+z$ZSa8Wbf1@kXbGLlro3L1R!Lu2&Rz31a$}XKf
zH&Jo-i!;0u=fgs7+TUrCnq%5(==!{*Z|#JJ)_bS+i@!biaAVahSzebZJ2USvFeNWL
zI@v;J(*F>5^#j||@9cL-_Uw(Unc1fH{^)hCd3$EE`RqM5yVL&u1h(hfEp&8Vq#d_c
zx4W`~qoB0@arXUBi*I~)<2h8ud|ozp^S{h_X>(>rEqmzcv~Fp{^a;;HJ1#D|y!%LR
zdRl5|woR0RyhOvqyZ5F9ge_1gm{!%PnU-4>{;(rchg;6(_hm<^d+UVKde5hZPE);h
z?CGor<-K#B25B>~^?Nb4tNJ}$DG+hmBKoqMg!#uQnJ?sjC;qFQxvMAk@8#{8M*CLp
zcYVEKMzYV1smCs@4JrTno$s5(B<Aj@tGRzKR!=xT_u#^<>KZO?F7gcXU5zX<q+amG
zUU~7(EV}OJs_?)0g<0p4B=cV_K3e-sNzR5r`Q0t%O&OKXeo7zZ=IE-EUaND(&3V>S
z*W4{e>Tfd^t46+<*UFk9w%hB?CX>}plWb4^V9rli&%IU4D*fWOLx;~rvP{ffc1)eS
z&@wsq$^y4?y%!N`+t$?X^#1(P_Sqv<-pyURq%IZLXHMIiZ5pDIy-`hCcfR0<X|FfV
z{rWVxqifCj6ZH+J%Nh?_tDaaZ+U)U$kBQ4S+R*;V!m3G&KUQ8~YuU2qd`C>_bMcw$
z8lTP-tTlSGYH95Tspk)s!kk#d3~PeQju-VwRQTr_PuTtY&oaH-xh}bhxAq-huYY)h
z#&W&P{r8K)=T4U4-#NXZ`-Eapxz)ae)V;I$PKQT+mbH!6TX4hn)Y7s&%OB6(5%S;U
z?8RH3`QKepczf~sTSmSwJMMFp-{yR>di!n83wJkM+P14~%JGb6T;UV8U9Fzc^zp%D
ztqjjMFWKCyjrZ7|FpRos=_4h$wf^3P8*#aYhbt%E-0e8)$!y`fnfl$8_fl6bmD%Ac
zy=U*c8``&>Cj{-BW8h+R$cQzpY0144V#ybt_GdpU4O+N=Q-8&D;{~b3UXh=K*66o)
zSZ3UrklbEA`@(mD<mNhF*3)rY9Fp!9yt;kq&d0OQHaDC6iTze$>VEUotGlj(NA7X|
zypp8wdeY5%_Ep(8{;#<FqN~lPXVFakAT6DpRvBV_=JgwXaUNK}Zkrv&+h(z^$k4QV
z`jkgI+7`8?8mXD@?uqd-y%pPeDeAr41zleao%)I($!7Hu^(0Z1Pp5n)gb9jruT`5U
z?5^;XLvQ6|nWLh9?;kGD{Ho^uVCSr>2Q8SdpNx4DoB!&>LiJVmFHQJu(G~YcOYwf{
zywvy&YP-aHCyDKpwAVBa%HNc=aSNyWw99?p7ahtAf6(q=tEf?5dgXFqn8@_&T+2m|
zEz5kdSF`8u2Dd{M>G?~3`&hGXHF!MnO}J`}>(Wi<Y%^Hrgs{z(K6UOz>Hd(u<LA!r
z&VDE(##Qn3c~Hgb{hv+WKNaXJud7b*PL@5bP~x#>>*e;V@*-N>iXYz!s@RxvshYj&
z>ZDMv1zihIzEj!#?(n<Y_gZfEgqY;GtT`<n`@DYF+FpaNzxNwyd&nql-OMvpR<>L8
zZ9;3VfXv<pk^2^83t#@gwvUHp_rqCw+4g>ob6r&o&g#6_y5}^L?;FQu2bgs~GBnTe
zossNW^T+<pbma?6j<+T<MNePrx|FAo?^f&;bD^UVLTY;FWaJn&wHd}wYB(YD`GC{>
zz>~Y8=6%jgtZ!1@H8;9wVr!(+0u`05OSwhA^V-;)IZ^#2&%KEEF7MsX&g~Q1N`l(e
z+%Cp1-&eg_fVJ4=x$45~)9O{esT=p-{&J&8{M4@$_11^4S3mj7`@}BI;IMhu!;g`*
zJMB+Bx~csAeae3GQ@b<vUNODjI=eRS|KZE0A1<_I-OHt=DqPojB<605__-f?$^8bQ
zyJwrex^m>nty!J(f8~dLU)x=IclUQ4$130bcaL*;@~%Ck{d<e};SDTBOtX38Cv&rH
z)PHE8Jj2MbbJ<M3b%&IUERH<+I`7_Vj$Jje`X6fYS!7q+gseO}Rnz{92*>{O(t(p7
zZhoJ2Mch1k4tx3Rfa|+%PC5MHQtJYF_bXnnH_XfO{iicwiLQLk;j6Rjyrd*<SeUK#
z5q$gX*v7oB7ZSU+JfCfHK{e}4OoEKj-3NTHp4F?XwJ+WDajjdV-R-4omhmpzesI?!
zO}pNmb#fvzdzMrNcrQ)Y_<2z^;KnO{>&Fi}rn~e`*`<<og_nC#DQ_6d<E)-ai&-Bh
z<v#yAkvnhy3(H@cmpn6j=6r4DbIl9$36VOkZZSi{?c~4r=8d1&rp;$KF0i~Y_VKH}
zs@v`Da~u`?%w+nC*?#khSD*1-@J~JY*BX}(b95s-lcZvFqCW=(hMf*l`aD6Y()r)=
zb<vaA!tCC#NC=uumeS2+J3jxK#)bD$PUmLJ2xwJ2(wX{A@R*;D-WorJ*>XCO^Wu3k
zs-Fi=N)V4+_GaP_gKd{%WSFb@+77l(&bq`9cK^61!<Xqw;wvW4<2<tT(pz2&z1PWd
zRccG0&3wOh(N_1^jRO1g_P-Q=v&MeuN@XUi-#*p?8!8=sTNQRMar%&?d+e&Op~2D@
znXR+0`pQ{;{3PPFUnR}&<IPv0yWXiCv3go^=C~@ysQ|m>T>T<DgDhkBfABdc_rmLC
z@2ZT1ZEhSNbR_4P)&&H;(w;lfLLw&P<jdZKrPj^W9p~PjFbvn3yk^$D!##VHBa@0g
zhZa41Rl9kCd*ij)BE?qmn{*Bxc5c7uVqC(c@0Y$IU4+?k>(MLw)OdeNy$j2((LHT(
zUq<5X!RPwv&3`jb{yF?)$ws}2PBZFkl_I{}6Fa))*ebQaodtg?RgYb|{?<G;amU9g
ziCuAl^KP^xwmt3KWZqoOzb|=8yFys-x*r{qt9Xo4Gg;<!zxG;{$TBbafm@SZ-<xf=
z-<NH9p>$)<@%rpbj0sIY8s(ZMwlk~^o@&vRJaN^Lz3P>hRvoE1uNvC<MWUxys#$i%
z<}Qbvq;ubn%$6!{;y5Mg{<zL}XWg<F*Ux;s(_O1^rJR3r-;Mqwb^2CLzh{ZPbO{!i
zvL=<YdcyhE(BI2typ_sqHkNvugl(&9^EY4W`hIoRsf3W?MFA~G_IZ~aGBn<0^scQ#
zcK#;oH?!jA)mm=0KcOsZl_>SB?8yI(>K}P`oZBW)(xH0#Fx#<&O<%lQHnUY-c<JjQ
zcO@+Tf(p;+-glwC(usi_1!9%mp*yb54_W+PIPdGmyLQ!#E9Rx=^uG6yZh5_2{_LUO
zJO@7r^1rs8lWMX5@T2*q_Y*HKxg-8fY~A72a&vmv#aqnRh*?ih59bWC_#bPN@hmDu
z#`-_wf*`GJRZq_8u4S9%xuR;>Tf22~D?OLB`0IJ91soKuvexvSom5vFs<3HYu75=4
zpWU-O_CDLtGo$CjpO(F=7}u)%_i^;8`z#Ik@bmGM=U4R$RQXQK-t}biuBMu;Z>B%o
zd81>aUCL6wYZX^ZI|bb%zw7yIWfVQSQ*Hlr_1O`|t%uXUBss(deLB-+b>8}#P5u>;
z3R9EQ)wwS&SjeaRnR@F_kJ*;|Ir=p@j{?oNtl>Yk=T+OcvpgB=lq1tFok{q6L?yRt
zQTtimyJm6ntU1TZHWzJhpZe;XrRuh#d-HbQF1(!{Hu<o}htRKyj-m5z`zB7BJN00(
z?WE(<tQ?sh6Ux<fpVZ5#Cp>A0@}2nSO_Sg<nQcl2(R}Y4TlXb8R3DOhzWeq?g#+?`
z63t_7oVs;9MtW_z)%{HK-SKU~8$=A8|8Q{s;Jzb%;NhH7C$_5&C%2p4)ZSnDeZmqu
zwX=%H&40FB$+PmyoITyfJYdejXU?HV#VhxGop)jRTduZ{xxOM&t3{K(Uo2s+{B&to
zZ@8pX+_b}KwF%0+s*f3O-&a*$>#DD9l5z2LY(|4?owi!Bx%%!e<zG%4l@wgIvk<&E
zYci{#`IbbEh>fyYuHt_4e79cu=J@tT=bo3%QMWrcOg1$ZUUBzBCEFFnJ?gH-3Yq(L
z>%)I8XgPAIdO~jfi6678T=L3I_!|WczDx_8_?OY{reBikjI}#w&PjHT?+c%8<vvGy
zY2jtj)fuP134Ye?6P|6XtGoSlo~_E1_!7ZIjbFl6rLHaf^Wsa{@rE9Y6piid&%eD9
zne6JZDz7%oZs!-nI*}hc1DU$^)gC??x$Np1`9(VqAC8>3>fM>Z^KCITf70Gpp0vMH
zlDbm3L2I_ztwY`niYAO#^9n4=uCj!z74P2tZldNrK83w49hGhh;rHtAss%5ZAJTIq
z-13d#8{1Qf?1ytz+hbp^dv-wPTV-6@f4>)<Pje<7y8mQj^+Cl9CF?uKYSW)iG!`sS
z;^`0-7vSEI?<-`Lq{KJx#j|5OrBYAz9NA}IJuBoVGw*|)OT1dTWG87m?s?i9^LEZ;
zrF3h})u$e@St>s$dA)d|PUKpK{hyb|v)G%?yX+xVbN6uFQg_oSk9Ouyk}yn-ySXLN
z`{lJ;(^Ct=T5_YW=+v->&MmvODsMsLPm8T9lFz<YH_~<gCi1;T{5g{X<217!4`L;)
zOI#PNOgf|<RrKamwQPE(eF(4qp}6HTliwx1z0PWKv(`&=A?MEa3oXI3dieTvn5tqG
zcDTDY>zXdk7XI9OXOhkD9LpB9%6$wm@4MnSTkRC=?i4HxJH?YE`9zc<Nc2HLqK;$g
zmNRSSC(npm7@8W-xw6Lp$LWCDJqZu?J$vHt_}16pm7A`;dTY1Y>ftKBtgE{AQucEh
zEPJly#$Rh+9JMi|_tyG{A_}>GqKbPit@Ws_V7|3-+4{;|#h>2ocQUVG&s1$G{+q^j
zOTD^dl}E|rBTrYEY_l+y>gEmIBw>)fRexu^Igj4ikM*D4+cRA~x1~tSaz5*uu7U!C
z{yV&C#>=+mR2KibC*@RsUhR^lfyS()Ju~+ITC;j`&|ak(uG43V?2KJ3&h5Et&h&Y$
zum4%sKY01zPL`J5ilFmef`yVN{zUE!s?Fy960_DPM%nHBn&izV{bpQR5j?|bTi6T>
zvsWvuf6T2|b9qlPYu7868M-TykDY3HUgG$0GxHqw`&?aTrL6UsY$SM2a6V@<yT9{<
zoaJVL7fRJz&kA+?n8D0Br^IA}li2r4W0{BN|Fn7jD$eo}U92nT8M@}n{`Bi-bEn;$
zFEVGHq1M8uttEbQ`1lPf{z<Q?tX9~){GYmq?TvP>;AxE)m|U~#-~ZF&4oOK%-g{qo
zvdN#8_Q;E|XPxWRr=>6L*AmaEv{BIOd$_IV<?^G87wRj0UbUFxb@S1LA3Po$-TN->
zn9^9ow)RQ%#H3)SmmM0hMi&b`?cS7pJ8B`#!&=!WR($`DYMy<finN7!R6iRZi{Qx(
z-ue1pTPMst@_N$>^*Mq|RD2!P*Zj_(S=wDQ_s9p`4J-RA)}NKRB)C!}{nXl!sOm<w
z_aT|K!Y{givn1Gk_%g58&7-55kJo)lZrU;9?kjvZ*=kG+li$s{7swX6_rv8c3?7@l
z%$_(+TIr~UhpS!h?z`T;JhQ*>-*TBMu5UKUZPDx*B{%gJO0~>8`eeo(o1`iC!t!br
z>?0-~U&pgcm1pPjr-ele(>C7W&2R5zo@1h5qQ`&u$!V=;y~(LX0gPK-a^B7QRB(Cf
zea*|0bfTBVJI}xNJ3ylEpG8J&l#x?Q@It-l?-h>M*RUlwPK<LXEpJ-SQJ<h3mHxiZ
zUV_d2=Z*EEQj^|HRJQXylPkVr;<SfHs%M;@yGn<*=Ks21ON?i43@=a>f0w54eY38Q
z$NXC_6*ev1Ud8C~+P%Tx{RxBCXwCQ-^+TddPwg~5e&y?id4j9k_(Z$6{xqJk_Zq_{
zhu7+&txHR1Xc$`mdiwlF$-0Ez300R4eM{1~I%(bEzYVV12NLTewj{0P+9>E*_k{aT
z>9M{x^ON`b*E3o!ooFj+wtvc^?^3SrUmkw?eL7&vatpbKv-Z^#Pf9!F=jM|5-0|7;
z=htf*bDCTA?(Lc4=X=P|NcKzpA$L3XQv2pd-Ni16|DS3uF=f-{JEP4x$!foP%}Ln}
z_rG78z&Gzj#+Rm&j?Or(g!s@GzRTzR(z(l;zD1LF{rMKzxn;et^23@Z?bV5~&-Gbj
zw)^z-_O9gf=Uw<c*J*Kmu9R-z`Os5gbW&RBb(VXXf?wE7X<y^^d%96t-O2_^OPZ3u
zNobs9oaA}4=uVY<pM6lxn`IyJc*120FP>&q|MDWNeco)RwvFF-_?({PzI1pRaN4pd
zW<%qpMzzfzi|ndCvc74b`Bhw?zWuG*sU?4ynhvtQ;9nlGG*L=k^VI&y!66;;A6f0R
zIyx4zeHQ=lF;Gk>r|O|atG0{&#Ob_A7oHYM&6|^SB<jkFzndI3Xx`m#p?`Dt^ZKt(
z>KR=WS5#mw<$|ov0xjjTG&MIxtmHB^P%uyc3ESA{`=sWjmt-gy8krg@7$^kkyJhB-
zq!uaYyX7R7q`IUg=clCF*>M$@6s0ESa#hT^Tl;#l%<+l$U4KX)Dfm$;{%^-a{q5O_
z?XmAyEj}kWt<UbGoRO=di+jiSMh1<9K4v{tp(UEX`^(e9Lc_yKui1!kPb!Lev0={4
zck9lbI`!x2Z~pMpezCeg>Yv_EUoW@!ci@hyk5?Bzef9ofy}sPvhZ7gc$4srCw|CdC
zpTd78?)TdLWb5{D|GNJg@oU%3xoo|3eN*vniS_gLRDIc<U0clkf8vy)>v?}a$Itt7
zcyaV>rGG!dcE<*3#@bf$+1FQXely8W^Vn<qdv|`#?KO+5FDqVMcF+3hdi$l-N2Z+l
z`rLeb)pVwRUslhKUi|o+d->lzcOSfSJ32ScX~(~B&&qE8oU*6zdi)moH+gw${dWso
z`O5x-`>|N|y8UglBlmNw#k~J`tn4Oh`nvDy^F-F%dsXpQ)#m1#De*iu$+7;i>%9uN
z_ZI6_hF+Iuwh@mjiR@X#F0q^YO?vqcnH@_v{^9-jvf_BbU!C9s2ijXD?j3n6yx8+i
z=WqQ9I%Ugi&xmlG7J8VdKat5T^XlE6cMqm#w7&PPvyD-D^Y%xuZ1elNsB5wb=Wj3H
z@!aceL;Sy&7bpM!wR_XKEf%-mo8&MVi3wERT|V8#YVV8J?|<2zKXOz2RmAnc_XR)r
z-Y+Xp3!D?uGn?<t`~19^8<~$~_q*RSk+pfw_3g>F=JmIWZhn3H`>*W&*S~I;=_j}?
zf9P|t-QO=S?7!8q*|J7qw|{-Iz0fi_<j!{8)DMhbwJdCU-&<c>bz1B9t1n5fuGtBn
z&#n%2EBzDjb1uJ^9q*g4<s3We^^B4$?bAgkNQnP_=YF#2VQanKsrb8T?_4y$JURBR
zr?tBwAaA*dO!S_myqV8KT3i`3bp*a#{(5`;hsF){2Q**vGwVq1i*G2qzTZ7Cx!f=#
z;?LUF)iQr7r?3CsS6|UxFEzXA^!MejZ+@S@PF%Jjsi00thMT!*9fv+UdmUrh&HE2N
z%XGA)f3TiA?da3%*R9G9Mem%uRbl_jtAz`9XXJkPd3^7J?_bmB$6UWF^ggppq3coA
z<^F{9DebxjmwcHy@)Ev%y=MM*?eDu%@BWy7Rb485eXj2QzY;5!G%?RhXwT|5I<RYt
z@xDDGvJ>J@xEK82@^|k%w#=CYN{yUOwO`VAFn@^lEjkie(WNWB@`1(EUK75h4Ey>+
z9joMd_jh%lGT&QQ^Z7}<{N1eXa<ylrtHrMRZqs{vMd$714XfN1nC-FCIbwSza`OVc
zMw<ifZ05%*^(6Oagd6sjt(#Ed=`RuS|AvIb35Gq(e(c^WBg&GvXnpvr^DWy=`%EO<
zg|tO)x3@2nYBuHJS&+pN^rq+8{=Zi1^F5{4+P~9aG;PgVIl158HI+Sy%`C}tmh)!u
zNwd;#?|I1g>$7FoX^z_~Qufv)OgGI{dY7_9ykzs-kXx~p5vx1(@>SnVJNS9a<|7Ox
z7n!sIDtBi@o|2ekbXW8Z??grC8%tGB-f5_wbLSl6o}V1^7C&UqI%=XOS*Q2?NAwfl
zy1KaTQ#O~+T3yYpN$t7r+xPWNSpF{wy&%Tx7EcAGABG$X<$3q^sQLuA%X+#Ke`u=y
zFzwhFmu6@aA-AGbl;ex$Du=}nS7bVEyT;UVEzxz`EjPcbwa?scWc@ISmzcAMvE$QP
zU+dJf&K+y_7-iqC-TQn`?e+O}iygk~KlpK7NAF*;_gQ5P{&9V`y5@DAHe&3vpOb8q
z!gTzl3~OG%JW++X@1Ig0NBGS-FJ+<cVN{q?f8$;C78%7R4Te8+!>w<%alHDL^K$;5
zjTiYipEWi<^iL7Luy2c?@4NW_%$rh;#I{`BCm4I_8Q01s)~S63t2B$xFNg|zc3_|D
zO#cI(%g@xeKlg2(!VtYUBmd6HrMb5@)xFsHZXL_*skY(2e(hJ52q}>JaWJKRQ}ayo
zBkYG6ZM$-KgN!wQKH-1FvR{n#{n||ouI<5bTQ(aj9r$@~i?N(l!z<~zF}zcY?CkE&
z%YM8mT;Z|8vES?$-@KN*`HJ<QbD_dfzu(<cH~1|2eB0<{Uz6AwwJq%X4*ymX&fCV8
z+R`(_;rHtslh3b`Q2oTXBWOqM)8qBs{T{a>BX1vC?<oE1=32-8{4Kd0OL84|&#Ji?
zUN9vlX3Gwl0G05&>*dAO`8rnDvYHtdI-Yg8zsh-v#&4rLo*TYTJ1o1c^Z#x|X`!UF
zk7su`JnHD&%@y5y>(;&>e~Y)&I!?(jpLO!d=}o~q5`6Bco_>Ey;+be2|AdRJj4cuq
z_|+zLA7S{fZ1q<?re|aK*PhZ8i-Q>xmhK5+QQ<vdxM1#^&kt`To&Vw${o}Fp#9kW@
zz9tR^+qeCk*Iy?b+)z9_+2DYOgP+Rh3q}XOFL+(w<-yvw^7_+|RY%r;EID^=@!|)z
zJ${L{mfq?ywh2i!6K@ys{1XqlZYI6oKI6q57Pr!dN2WQpKeIk)O|j!sSvV>F@TByx
z&70%n7dRxXZPsDqk-eyG;mk2Ryk&Wr=DBMg(ff`#O7v*UlxHl=-sOF-hjq(E_Zp7+
z!k9n2`~S%ui9gKnNcq+2Lyft|PI_E^sHzp1f7A7Pee=Dxvsp3fZ)g5@F`bzmb~5Q!
z``=CZTiy0L9=H8*N}nm@^o{+eVmVhWY-@FuKbY0G^Q}?X>3xnxdsrsEie5AAG26<d
zt<T~f*7qf>o%KsPIe}a1gtDn|gw+y8Z%*qHrMIi~885uhc3{8Llz3@p+{8N}tX#)$
zF7ldFv{g>Q!II&_H>S%v&z(De%Pcwe%$+}og-Pt>#dQk1Fa4B#wXfJlS;}m?GndY<
zBTk~d$vda+j&iO}^I3bN_{zPo*2Oa#_Sl^AJ9F)?xw*>s*mjSZRqq+PSl2OpUbu-}
zV$z#MYm4_E=ecd2c}T|L+1$&0%$u$G&V+ql{P^lF_GFp0Ehz;r^KS|VJ(f;6l=67{
z-bd3PFI+M=_2Y`FDF<gf>g)Quq1R^)@A3nhA)3Ez4jk$~^YXIj%sF?m4t{KyDsl2z
z11rOh$;@Jt{QojeR(AH4>pE7hlpYYfQo>F%kw4XC3d3>}1L0-Qv!xSSy@b1~HY~9G
zf7f(ASMuazQ-50@n-*E*QYOe+E3<0qPJZ6`d}jZxlV-gCu&4OI9WCdNr8iA}ItyE@
zcWvBUxLTIqEh?aDfyDd`H!AguSPT!@<<2v)bURn~OTu|ZLdTED2aLJ%7?$6AsmXp&
zR&0UF{|U0^^j!~55N1i3KQnZ@{NcGr1CQGTyB}WpI_T<N$<F+r0-E*r%*xK+3;A~3
zn0={_Y1ahi_lpZ&7pYi%++yYbvE>EB1LH#5@TE36U-D=8Z{0il1<%TfN){E1O=Rcz
zoH-gPpBgm%{D$Y!6Ki#j{b#6B+r4vdk#v4$XCjNPy!*1vOP7e>><Y}7v&#FBlypPL
zAt}R73qJ>se4ZCO)L%Xf^)u|dwcfFZ^~{#SXB`rU8D{(OKl=6l>Wz%BsVbenk7zFU
z3%fXD?#@qr6;7IA3paPvJ_ul8@E89Y*{SpN@|xEU$|B}-Bvg_X{HmN7IGZ8*->!Fs
zFFwqg5%-OEZ&b*t`#0}RQnLDaqE(@o^K{ap+VeI0oo{roTn}WOrmSZ3=wQo@Q*X+q
zIc(9t#(M1e&o<+Q8tlvW#qb_ow*1M1L;J*=H2%yevbwUiVePHwpVKDKnYxJCa!1?c
zPtPUI74E(H;gi(f*<L!;B&KkBvgjRKC(bQ9HwQSeNIVm1tzTQ3aYSTiMsMou_$%Kh
z32mNY(Ua7l<+w~=dcN$9)E_z*`W=r>)jXrJq(x9-`UUqFbv`u<7qcraUCp$ma8jn|
zrtse}=aaXuIBnBk-zwyAdrFJ|W8;3N;N@!EvYvSvdCz_oPkiVizm;jzB6f+n9Y1f?
zyQj^H?pgEc;r5%a-@iWmkL!wU$JC{JHh=ziYEccF*TjAO;mh{59Bx_dGw1t!n_piS
z+sCYA5MxYLQ|^z^?9Q-{i)>)FzOg@jz1-hF&F=5(KAaDa|Nrr8djGw@KfG+KzEA)0
zzwX~d{Ri{;|Gj&qFSqyq!K>?+dtP|_$y?0Ch9lw=S8R)wx?}y6&E1EEw!Zk8UcIJV
zk>Rh)uPbLY_WwIAeQHi$+!DKaSB|np_-+;b|JUKKuatLVN6qnfqI&MGY154#J)N$$
ze`Al;7D?STl5e*BK6X0rSw?;3HeHX?aZevd@$8zBlm5rplkJmMn#tyOZF3wIXE816
ztB6thclw3DnzZh@pm|4I?l5-f2nx)eTzffKydku%{n#1J{?gEn1-t(}*Sch3`s75e
z@#+6kUv*AQb9H^UF?+#h|3y#Ry<>P})Y9JG72UohNZ9n4gRc3V`QAB3QngBAvD#cE
zSu0i*F+7YC)U-=2x5yFwR^*pg?0j+mNj(#jC((7q#moLqJXCWqlj+I<{{!#EbYrCr
z4lbD&yXQrB*>dshuGi_38j@?hqqao)_|7T|^P8GE|DhdYkL$?~e#Ku+B`>Y3+!t4D
z!X2?NDza5g`-{Vy4GPC*8tCq0kK0}F`uUkTvtrbWI+v%<-f^S4E?!ZSG2@Ag*A9D0
z6Z>rU7wOCnFIFZv^zUd}F6tk*@9LB-r~h^xSw3UKy2B<hQ@NF7#8ozJ-&p&<Ps29C
zsIZjPPbq%u4adR<)`fXrJB^PqPV!i~<apyW-=xID&%W$ja{Yzp{5L&zmsG3EtCul_
zvPB#z-XF4b+2u_qUTt2#>O_*OM9xj4+on_QrAIGPNeW3{*qP-PWwh+#1B1TFb5Erw
zsXVVxKJ7hG^2jaqJEvQgEV!`5bK0b^7rse;35hlzgl!HnSnm<YmWt7<G&k5hdHSa{
zt4(9`)QvA~54tUKy^!h0IbPXq?r(P_CHa~toIT_cd1cdv2S52MxO|LTcd2-L&3f}{
z)h#*hr>2X9n==L0>CBk^gw;)2W|zdgd_Toc4Bu;e;-2`Gn8t^f=H8faxaMr@waS~<
zSI0fQG=s(Z!)jCSi5I(mFW6nAps40xppbOQ<G^M<34hm$58Hoqw0@f8YA^Py>k-rH
zFX?Z}V{?9Qu-vmOwCJgyvdoP=21UC4oMw$TRc+0~<Q~bMc5<vS?A!Ki+RbNsKF$i>
zH1~zui$}X7<r2!(y62`|vVCzdQs?Qxpr6W@5~A<ia5Cizy`%F?eQFBF!w33D9&f3?
zsPUmlbiKdpnd6U2b*63*-x|>(xM`z9YSY5irL3t>m?Offp1p|sTWhAiA&td0e6uS1
zgPtI}LmsO(*BGs13fR%<`E6=&j7oRa#_#&GTTXs?_$0RS#j<zR(-k9Uyxg<on_BWy
z6aTWSk%D2D9u;bovp6nJocjK;@ErD-z}z>A2HI?wzcojk32=_xFChA5`AxaD;B%^V
z+cfudpIKI+b4z5#wYRM-tFKm_U*-^GCAa;>)Z~u~V$N;zWm$S+@4rG;-=eSIR%V3T
z%;L12kaTnH{y#4}e{Y)qk0tNb)aXfC-`AJDFjKsmw*1_KuhE~)k2^%2GguR6f8%)O
z+Qeh~#BOK^{kWR(GxyV!YaTq6{(J5^*zf*w^5X5_R*ogjbt-!r&-y?95tMj`NAPB=
zm)-^oiI{U&RvlJ6yH+5v^qB1CeOE3$-JqeF9q@_gQ0bJ49eKB3D9YU3wYU9(O!3>c
z#L2r;Cf$EFm&NqZW~-UjPy8<QPL3*)dmt~Z-t%D1(N$HGPv|gSnfkug+->RIL$h^K
z!f!{F1?5Dh{aa(GuC^*(jG1AI&+jVj|ADW*cgCtcbJ^>+%`0gB$;4?V56$NP@+NA{
z;>+{4DBiO%dhtr<@A>01H$Q(eQTcewmPsOe&RlLXRr|OtqUGGL-ra7u;$Iw#5elg9
zyXf({{GC|aURS$2B9nL*2AQ}Y^l(@&_PgY9g^GYhSi1!Or`!pRJ`pDa@`Q8p+_rnw
znd~Z6`F`DOalwX8e-@GN&QG>ltUGGQegEEpgC+~h4Nsp9n>F==-**4fQ1&gh8{T@9
z++V)%%--Ku74IuL91FcVTWGq$N#R+`zAE^M1hdb`xv`{u&DYhO9vf2f`7(07xTj9`
z-KO?y6{qDd=~K<-wdrk744yEtPrAZtx?NiKhX2V##-$UCdOD|dE8c&%@88-tN7Dbh
z?wmPSCHgIY`y=OW=e1eAH%j`<S50C|_T6$i;>7QackiC=P~N?9?y*l&O;5LfP(ARh
z($d_9KVjy48P#J^6}RpRF$&DotBHRVakRzmVz<q+7X}v(%N^`dT^5`AUTtws{H>|k
zS3}!a#e9P1e*QOOarFylm8$T0r&jIr)K@Fqx7*P+|D>(Wt(;Y|8?I=G-d=uM;NRlE
zOvRQ{LypC-Ti0hQ8zRy+(@UacQgFPyc$nW#0cFNAp2B(SqFfJN+1a;G{VeO|H+g?$
z{zfMBt@*WR!TncKhnM&s(6ozKR?^L{c-7}z?xT;l(i0~AeK@T(;a}p0t2-~{8XCUa
zn{uddZNm!F-eVkI`4&^(tdV;%cgK?dmu~7d)+ugb$(macr?^>9ul3SP)yUIX-FBz{
zHcd(8ZERqjvaBe<f@|sAfXz$e*X_@4+?anYKRSJW+5YQ4{v9~#c=gBJuX<BX%=o^D
zl_7oJ)UERVU*dRAD_)tut7vt4w!nv{Qup&G{_|1omvxGAo+EbtcTTUsy|vQ~jJA5$
zIZcZ+>WsZKZ%#I&%nF5<bMqO!-W}q25Hahp{W?pV$r0@mi}W}6uGV{8S8zf}gK6f6
zkG@A%c%(DSOD%sE{P50#MTG|?xLq9=i#5m3S!1{P?cp`STR&d!msChl`e+zv^)Bje
zf&Q-Vz6XmM&rUGPG8S0EU}Wu_C%oeHGi9qc!CxH>6C#<zV@_~C-{X8~^>%Bs_3QUq
zIB^`{s3;a%Y;z@jM}f<PJpI-0*stH5ay2lCdA}bU=lt~PW+!Ia<)|j+3-Xsn)}|>2
zlm}M*iF3(+J-hYZ_iTY1t12sxFeh(*CCs%@?N`$FC81k8;$92$F16Wp(tP6gtAZvR
zftRng@r720T&UWV@!rYr=mUF=*_@|0GHkkYtNrTJuYT20Yo<L;`up{(zu3<A%;|28
z6Q*kWxL@x}wsmwqbM&Rp$49FV*SDUlHkR_e`M~b5@O)k&`S#kP?s@9^p^Hy0>0Nk#
zbz@j|hMI=Uz6{r^v$T~Y-z%Oua%zoap)|wv4>u~*)5}j6)EH|%^R?St`1qY}_o^N1
zk8P3ZnYR1fQ-xOF&UcedRFjQ`e}A9R#eG4s^`+me)=3(Cu0_?>+M3o=+H96}M{T<x
z#6R!E#k_BPzR4vi*|LeRld4;J9E9Qm`5$`r&J<BRVO^3}F4t=1=%F{uf`j>UoPTfa
zo6AeCTnOvp;0wE$8unW^q4}<myW@suVo&!e9}wOzXn1SIt%>Qn|JUB|2;*6oc#C~j
zLR!$KQ_gQU2W>wkQ{=U53&Xtm_l=hZdfckmrm-uZdB>`I{VG9MUhK+o?h3O#-8pN@
z#uVZD71c6bwHM0X1sz~3^}j9?rfl}*kcIT~!fPLj_Gl{=o{M^u|LlgimyY*e;j*p|
z&k{q9ck((fzOOTxYu(g>$$zeTo1a<cpx5x9dwS!74?DLdG2MRO{XC*7yw9sWlsW2Z
zWz@G)Pub)>Qy98tti5*U)|pB*p(5qYS>^g~A~;uM#wWJjR`Xk5djDwmv6yt8HvXwr
zX3tXmzdc_2=hZ>W+pEGWO}l4(V)b`ETC041ou~Ed-7TUwZ=SuP|NZ%u^%qOCHb~~x
z7d?4#BaQ!D@5+s_2i8qJ{it2}{e|1<e~!A_<+~@#vaMS#+JD9T^2&D0)R`5wGOGoi
ze0>&HbZ7xj!M3-FQNI4FhGtyRyHchq&hme`(pmh5@WNHUtKXhzZn`%2&W#+dpQn`i
zx4T(h{u^5#!0jPcx}>3H&a5j2GSw54G+f`E&}`ey_vU@%r5}5j=H{h{oxS78t0bH9
z<_4?V^46*c^W&FBRaZQEyF;}me3y@&r`vHOv8>Z`O|+6^1L|UAAJ4k>!sza=m^A^_
z>H;4=sXUY2shocHq_t!JVw0xl8>a@}eCBhiwzRn}>`dZ$fj410w`x6Ty7p-8omYFS
zT)uq$zk@MlQo>Q01sel?Ho8`CdpTwAk_mS%EU0`QyWd7&bJc78Hy2h#?v&ii9aDSi
zrIZzu!mrIb^UdDx_!O0wv)5G2>xPc{0hxo3p2U=0-|zZ-6SKt4zd|Y#moLc8=F@)m
z>BFX&uK#)xCtu`*9r(kU9m_qr!DfM-)0u$X3x3-q3#QF6H8`=u^^M%Qn430rR-H;g
z4EY~lr|G5VEjx73Xm4sBWACwK+u#-A7u*WX&dZy&UUJV_pWAu-VaWZmyystKU-a{2
zPn`QV=-0Fd8{gLI`|%p>W9R0pp0-18ddmIV7cCf4U(Pl$Z_B-~=JW9luUS{z-@})r
zr7g4S!TnWN7R=NuIOcDBORK|vuVF^uOQDq~XaAqkxbpjiY23T|tU?v6B91(;o^dSc
zM)Auky&8RI?Q>Hl!#EzF{+Vf4tf6slPTU{mBTUPK+MWHb)lT4B>h8X1L-Vzwp!ApP
zYJ8`cDmz$o-sN~=uq9n(SHrL6(K0tKoe1%&kX!ZC_Nc5#olEG4l9Tld3V9YBN`F6t
z``N|k4VJH*=9Ry7X?QBIR+w=`eYfTpMqv;6C4vVJ*e?}iv|;c2C+aYvMj&pktLfhE
z=Rs!$Uu_Cs_2-v8AB(iLRjL)E{tCAzk9q5KPkj**=*m`q8r++f`+Gya3HSETH(VI}
zgv+(KgTuYn&6H6S&8}JMBVnhX;k)niGmqa!Me%Dc1~2wrC^=)f*ZPSXw|A<~+a{l5
z#mZwi|DyVtS+^f9{`O{Fd`Y?L`B|L0e|6`^ES$r0PFCaY<xRyw)&J5gAFx}iUArcq
zxqQdXX@)C5Px+`@b?Jg=yD(qv^Ah36gcning>i>}1^ake%d8IhFF8r&cc1%D%M)oE
z&hPyCd469O!-4mSli%9LUfR29uXd{JC2oerlYi_@mx+9ET+gspc~{@H2%fVaKePRf
zzLkCTkK7JNnK#qsyg6$0&F+ii>FB9ST~}{kJ$+10+^Q`prtKmJ@0rOD1PnjAwi#-~
z+Wqg`o+I`4kud9W<we}KzEv*n9O3egC6l*oWPErj+VZS<-Q{-G#MzS!%#s`*Z91qb
z|Ll>uZmG!EW!c9zinGRY3f++Sxht;!k>Kk0-+cBw+#@Vr9(a7E&t(to37OG5V%1;e
zY<^$amAi3jY2V_q$y>I~y?W!{=4zYsy^%HI>(lQ>EmPW9a^}y5sbbUYA1>T~==DY8
zfSB?x`|=eGHMeN2n%B9T&*78S2fKwwj;8$4>T!E>>*4;Qu7b^Veal(i9K34A6Hzlm
zUT)H}?%k8W$X#w&l$fHf-jTED_uK^wrweW^_FjH|!o+g{g-0_)Jd)Q>&kW@~E3h+t
zddN)OZ%eydQg^Bc@AO;1m;6I}h4hi?)^k>$)Z*Aae^5?{66bK*Z~CU^sp79w&5zbi
z?y2v5%`BSR6jLpJ^rz_KIXxSXuiCrnI_ECwP^mB#w^z$U-~C8so!{fN?sZ98lEPu8
zeuY~%^ZisR?-+|6VC_wi`md<8R-z^;_2=rS&Zzk5nPCrSTo4i5vf+f4Gy|J*1EX?#
zWJFoyq3?&(J}6Ykq)#r+y{oqO3dg}ZjnmTM#v4Byab4jyKJ>5X#_old^ADM1=afgU
z_MUoS5r6RR<a=gooVJ>6fA-n#S9{`}!obqo1x1_%>$Y!oy?@I=pq$OKkCWr>r2BtQ
zB!}-W+idk?V=hnGn%>YCmJh7IWpCe{6a0Yln1*)HxoKj@a`R7B9nsYZZqCbGktC|@
zbxHY=_mz3w3wwUe+|xCGPnW%yVsV$#=G(jeZDZDKzy0mWoPw~BNQH{j`+Dh#2@Frq
z%{Pyhl*(DOGfPM{Z0^hE8%J{Y=(*0@^3l%l_2#WdXMEkc|5kwbw7{+_Q)~639dqK|
zL>sKTq{Jp0eCE=Jg9{fLWSux-{8n3R^{Q{7M?5AlXC)j@V19PB?(6CjHvi0?l-aja
zg9NQD%rh#=(z%~R#cya@5_SKe>Q?z>hqWwr{N3_U`Q+xRhox-scc)yeoacJ`_n*EP
z=GrBS0c}U8&q%#pA{S_Qxag$F{;Ou%$G9EVdy426UewPQ|01=<a!*m?pJU>S?-g!3
zz<I^{abn69?+xpjj|siHDiM&9!X;)sKW^s|`3@i98{9L5_AwR<8L|X=_HNi-egDEA
z)%>=5Y!TDEw)3}Kc|B$C<q5M6ef{2W<zT(OPlk9ASAp7}|02PYeakhMskOgQoiR)6
z`o|EKzhx8ocOLur<?W;S=07See9p=+K5vfyTW0Xp>&Hh%=D_x8(MG$<wrQ>CS(iMK
z_oU+by|!}Ru3v%{Ea|vszUbP{KPu-o6|VRewmVZu&M@}l8BdY7{)=C<e7t;U>Y26L
z&xN*T*-6%)4Bwb|wX`B|`qMvE&C|VC1<Y(vR6qMI@@0t13X#JL%CirwVA^0%CM;0K
zlvtsfubHx`+vc*z%w=8we}&9AlVerZ+5X?rx@;%c95)VC_K#+JcNd7)MF%fSTh$+}
zs~+XNmr?Y>!CHT<6;rt$zL=5d)L~{|B(h`G<avieo94RD-Qs+l;Z5J$K*<ePCcM{g
zX}^2sSR&W+_7BfIBW+sRCySKWSb8Rk9at=5zT;2$nyFs$sVfT=v+m_ikx8E%B=jVA
z`&|V?EuIr+WB%O^%wua@7SU|~t#9qyAKR0S>f>(PE&q@l!TI~>%^k)ISF=^tI{xW7
zD%brndfUq|)~&gIiejI-ZZ6vNaA!$y`Z1p!g(4@brii7e_HW(tI)1YAiQ|W5?l&@)
zn_oM`%Mo!*aM!iZn~Em=-v4g)_BLUz;>DRJDYJf=_V9=7_!{UNzp9i?#O+Dq^FwM*
zN9$HIP14$t_5J6<E0g^geyg5-5_#OFLTi>=lf>x@hgAwM7{pfG@sphJ?f$d4f~vsg
zjQvNKDeQGlW0SnLHevUtoKu?^Z4KR*Wds$)?AeelxZ&fuT^s#VPCR=1KEI%5dSmcE
z!GA(aJcQIe#mXiA9m-r)YS>v;JK5OY<$wIzm#Vj48UFg6@iXFI>9k|Z)bE<;zm_l;
z6`%R|QCaSSqpuIo>#}bDbu{72nbK6Pt23|3B>z^<weGc=)e?6nH%WYDq!Z&N&2w)x
z=WgtgHa0xLnxX#B<6E@beY>0L<_UAscRXz}S~;is#+kxHe!iurdsD6~$jN#pxQ;=g
z{aUHfF~PN;DxVt&oI0rY{``gQ^F_3LH%wU~U7{p^=5N`u!i_pvhNrd#pS(3cO0l+e
z)`~q&tYW(^_b{hiUS>3d@Ae&*J6HGRGVf(t{=-nyZPvnlT_<DPJM{9-nI3t)>x=jz
z|H!tkf@!ZkQ@@JUG~Ls=xj|^x?6TJHk7Car%5s<|SAX?s)WV3c?%f_biz9a&Fz=I(
z+W79t=QZL!9L=E}wQ9Fze);w!F7Z0+9+~>1B-qQl((Tao$NvnBXKw2%WaxJ~u-TyW
zR{R3h6)SCpLUwm1NHr-tCGX0e_%^~utNDVb@yY0JW3japcc1Q1J)b0LwEtCM_7Q_^
z!ZF@=429O4xd=_tXs_e?ENeaSwNAXr>T03i%Xvhl8uqy)XKS#myi)L4<^7yvbJXUP
zY*~0>f`%pA^`u+N)}6CBXnCVvdZ*v?%R37=A4i<N_OdRRb;8O-4X$P9G?@apEpJ{p
zm2lms_(i{7*mFZ?9_4D2_jfx#MlPuN@gc3GWrs`X(<`U1v(Dl+nYrOse@W8uONuWK
zweYvO?b;!E%Rlni!dAxl`}V6{d}r>lv3IUSfT(-!|K;xgvl>;S^a`R5U-`R`gY%2s
zsS`}m`VAdlKbF|93b#45{q0G&*Zjt6x4)!3&OC3d!n{btJ4o&Ln$DMT8Wt9NG^Sgz
zJ{4l))oJIS9sSU?CfH@;7fHR-4ExV--&J>h-q*Vil5g28Ser0`W8sxqU-jB;FKhWM
zdw)T5-j{P#cDn_48c*o1xM#xiX1PSu1BPr<#f^vO<a|19zEi+b+k$;tm2^{D_3P%l
z!b^10>}OdlU)+)Z$?N%z|2u5tUZu&t&`S8vS$2GRV`^7j-|x`RU(PA>{ZpN9yLiQ%
zSJqoTeX&?)@zT%YM6K;iritt~_uh+XTjVjV^vz$vBMVC6Y7+L%_T9Yo(1Y!9$y54g
zaG2$(U)`}^v|3i>tl#d-&wiB|%%2gXd)|;~G5eJ%--<WCIkIAP*tPvp70aX7U4NFF
zWU=ghR<M=8j84|0+qP=)?)`XqV(g1`_CJ?g)GyvNdx!sb_GLxt7QK_g+25yMNGeWH
zob2Fc6D0d#=7)YZj>Jd1!@rv~yl(%W$}64bf7j{h=A``OM;#ky%zGNbySDR&qy6?7
z_g3E7{W+IS>p`-?_RAX`SpVJ(y&U{Fx#Icp9(MW7mw(0We($ls@pnJVEsd%r0=-uX
zst#>j!*8;E&(W-{^|7h<{(b%`5pwUrJN<s+QYYCPrQLmB7IwetJmD7;%zj@xSKsl{
zo~H+<9p88;-*Q7}{L|j-%Vxn$R_rRt6ZzI~Sk2abC356Iv)snB%|f<&O>CR3TKaaC
z2t17p3g(<WfA{i;p1)%GS<?;quI^~qdh5ieo3DdEf47sJn)Pyic-y5fvP%jZ^g?g!
zop^iZ4>4u^7pGI>%q3gQ-s)I$?zr}{oBg$N1gGq0vAd>f(p?8%Pu_S~BTY|hYHXNl
z)YtqE=Ni6LTQB5^wc`xXK9aD{@ZSBU<&u{?RwY*bUE4WBKj-=f_O&6u@9BE|Y`L|q
zz|(wr=A$E$e|~l}I#%pGD|_nU>~)*=?74r3bMo=(mGaAsf~37xSgrrG^MF{Q*Zo(I
zGrM|yJ?5VIcHzcvg&XJOc0@`a-`{w9e%pat%5yLDHP2JxeqOcp&i^$FIL-RMMSs~W
zcxaP!dak|f&1u2Y_5OW1$R2k_?pn)#8D52w({Y88CwDG2e)O&?v2n82)XA>j%YM8n
zDTvQyJL7Gwuc=Y{K_Juq=mSTmCE8m1_sgtbU$(!(JI{CBwjD_?w(OmG)J>_d`c23C
z4PTR5CbO1Xzqx($u6Vc5Ug745B_DaEJ>4Gi8I~L?QcdCJx%}tYvL5>ljLU+Te44}l
z@l#4+RoXLwlPmhzXC9E)`?c?sVU@_W_lfVaPs^kWT{82Ye)M~i>#em*BWLdjUM8rj
z+?X#|l+3dB?%(+rr^-7TeOvLSxb1<~s^4KI4HeZpX4?d7M_5j&dvQtB?fbO&TO3yM
z>bn~5=C%lB-)DVw(s}cab2lE|IdGi!U82QBLEES~Du?q9r|mwNHTk^#^CR}17wt`q
zbgqf+@SWx&$-k`kSdRHc#;>#X*Ia(R*XZ~=scyIZd`op-*i2&Vt14+zxBT2E$-eQ!
z8vot^la#gl7|SZ{Gj|`I`L@kgwCT3joyT$sNBs5tibV9M^17to4NTcz${EJL?wnZR
z{cSVTvi!cKJkC42vt*ILiMQLgJ^MEM?Aw2Lt#U5=-dbub5&40qZTii^+OS(()p3;?
z^2ZEQ-7VfH>r@HtU)t2_8}@{M?X(s43vPa6f8*WmaA?Ajx39eIj+lEaIREs>^INi<
zW(zo`&%ZRo;==7mPhLhbZ)UTZ*uOS<HglQb-P>D})TXUc6T8Z~`&zg6rllo|QWd6s
zo$}|s$;n^K5~V+ArImWGh-C`0D$MOmt=Z0Wv@mn_w(xJOe*fJu_40yk)8F6E-}^c!
z%~D~eTi1?iw`758o}0e847|VYu-uo<3!3uw#*PV&KZ1?lTX6ipw4%yPNGQ9lCj8yS
z{-3Jsp)(SH{f-pyQTILTb}7aE(Aurvg&CzAOqcaPs@rFE^WBX6Zz>xkmCJl<HfJ*X
zyJ}ViKQk*0H9O;N-=tKSl=E-jt}CVKZ@bmz@l26eEBL#@eRF0CcbBBlS*dv{!CPyt
zmNwp*+0xQy$iMw-=Jq2;%(p(TZ(w-x_C<2UY>Q7TTi!U=bF?4X<5~W#tK!0Oqi+iy
z&E0wSWy$GFk5Aox+*@b7ESCMIlz^$$_C3q4WE8vgYhF9Pkkx-zS#WAfwaw*cnwAyW
zcK4FhWIkm^x6GJhy-U}yblvs^Zrg8XteNNaUv_rv`scwiUDwa=Ijk7$9>smdEl2(G
z(_4!xKIdB=IrOd}a#}^hp@a*cC0iC(+`iuZN9WL~zj}`@=uBg0m~nftocF$xV)^Y$
z&II^nJxY8%*JkR;l;d}{?<hL7dh2nPc{zc}Tf*<RJ%~OVRR4bJ+TC7FZ#nON&x{he
z{W<$~_qxWG6~0UD#H!W0uN%g=Z(uwcp!QTZc=5Kj*VfKGGF^Wh-^{7gY<t^oC2qsK
z@Q9(;jNr1;0`0VG4PkN0-QW0~ezatNdR<zTFugS<TjWXcNxQcp8!q<ASSkhcu!p$M
z5-xUfm)Y1AePh>+sC18youP9ct_c0dwYn;S{bb%jHvZO*XKb4@7>t8c<?k?Wym-8#
zz<J%8s1LjD{10jt3+u=(vi6i(#Hw(?dV=};I~OLH&YB*lZ+RzT)`0~^%t_0?dC2Q&
z3TUm0-|zHG!a^(R;_{!>Ts(&}JNs%qv_v*+U9^%tjeWP2k;K7QxsxRiuvPW)=NA-d
zoh#7qHh0|Yx{?3p+FPskWtboJGT8h^$Jc}Xwfdp3L-Q21RWDgYJkQXGamr_UcJax=
zx8LFyUgZ6xb+y~!Xvb%X@Z&}Wh1q{T)~#lluF87qeM@cU9m&ieJ{Q#6HBFYa>u!+9
z+G6Z{R&&|hjZMbY0#ft0oBZ26=O*VGN&k5!(?Wil+V#(w+Wd~WTB1+V%s$jY^k{iu
z#=N!FD(B<0j@&UTpDNV*)1bARP2h}mx))ztq}ZAV2@Jn`*ck4WO9UQD+xS}JwbRqJ
zA6_~9%{^2%zt;26=T9#cJ_`ALn&n=)t79gQ^t^I~5Qd6P*ZcO)lHrp6ad=t>-{-4-
z>Dxk<_N#OD^riBB?cBcm<X#Wq4fz4-CnG-I_^?TLk(XLv`0v8yURNCszY$8C;r>|Y
zTh0dK&F?22h@5Ix`zz${6}QMaQwr6JC$Dkc&tG#W@N-AU=8g06&;L++th?uJk9n(^
zX}~j~)o)+&%6)#4u`g(EqeHV>^|VEX6@fn+wH_S)-MMx{)at&eL7NXBn8T`n>+m<9
zsFIxE-apf>PSZP`#ci{?cbO5>`}hR+{NAHN*Oqafd3VBKUDD?NlY0M36}hbVv-(8X
z+KQm(kA=Q;r8n$h-RK^{P`UT|x}>`s%=ezJF7BAWP?Yn$j^no7Z#a9hZ#<J#R?7V%
zd)8u;*`~_<)8D8~eRw$UpX?&_`wu0=6l`bqo@+TcKdSXvNp!dC=MC%qd->lKxiQzC
ze!fhQ^+3-5<ECK>UmhJRN;<~OzU|K5oUrZws-5k7k4`(;pdnDP^V-8tebW`TX7gSC
z$QbB8BY8^Q1}z)mOh?5-i!T+~<)4+Z+4TEqKz)z!x11Tfro=y(xy6p%&^z~lWc2Bp
zyc5zlM5nHuKlQfEuAaqJS08`7-7Q<A&|NZLw)WuJ9|rrYCY_)BZ^{wP>Aj-iR+cL!
z7nxjs`sSI*d&L>fQ$84Eb<C0Ku=VRY%6}q9dHXjNi<;{vZ1>%msS>w7NzSZr*};AF
z@2WOmH#ul1b+yWIjo&$8m9(`dxguh6)}<dX*}T@c;%M)e+X5#fdz5R=XYr@;NZda7
zEyKckg<rb0`1Bi*rP@2Hx2<NHbEPmZSo*pd!<7pMuQo*7KeDjf=gQThq}261Td)28
zy7)i)+Xw2~uq>+vFO>$ZpEfi!HL!rMt2Q>Wz+6{tY-CByy6U&J-u)_`Mfc{FWaz0l
zJaH6oSg?S5^NDpcK5VxRuYM5VUBnTjR4#p*IlO(|yPNaotb8{w{C(Ds*Qw9?3ykYs
zQo=&@IUE(HO`a<%`S9Vpv~M@l`Tu`Qi#>9->;LrszhAxG>|ggX?_SOSoV`Dzf83v)
ze&0^`W7F(E^TYG=?P?pvZ_eJpqP=!s<;UCUFRwp3Cb5&F@^Me(p8b^{zunwF@5x))
zKgt}5er3OZ?2rHRceC}|ze;b;&NcBCP`tCJf_M7=vuh)IqMyF}bNB7s*e&K!bN21u
z8~h<~_htSMCr=-ZF0PvYZktr?FWs8#!%0&t_x9ZXC2-~CzkilB@^=<Jl()Zg>gbGw
zqc2b2F6A_0dG8;8=U(U0DCIYr_P*T>_qE<nyUPA4p-A)R4>7mb&4!sB=MGIiIr-k>
z$43_}S;Ajisr^SO{JG!$-BX#Cao6?sZ+Z3Q=i9j<-37~RoDZJ(?7sTXOWAuD^p52z
z7ccT@`L4(Be)>n+shO!)e|=eX?^SJVce#av>XHD1>a34`+O@v|_N#oi=dTx=F0lPT
zSGLBHMVFc86;8ON|KZu&C96gC`kakF=s)-W{=A|!HnEK@`{B#1Yt^+Yif^u&^=ZT8
z8|y#y+}gUQ=FhY{jOJ6ebsK-y4RV|P?4*RZyhGadJ6^Xxu8q5vsWV-x{MYj6hhoa5
zJ2iD4*Z!T6_ayW{<z2DoHQk&4pVVLa#fPie{blrJr-pzRN3-AN?3&@dMtAz(XH%vf
zc>U1!;ndI%yJG%&OSEi=s<7X+GI~vX`2M@Uw(Wa1`|Z?Evm#e_YaDp=hwmDvn&k4A
ze8+WtBOWWiTVlX{N49*%#MP%}^E^AM7j|&ZACBqkUoR?E_}!MX?0PAq-4)*-tAx{e
ztDgKW(HF?jJ6aXmZS?TVc7^!WmyaE^IWXOzOyKJM`}fv%^B!#aW_h{w{H9d}sgGqJ
zBz=n6B)@vrO0L#FKj+od1)E>|8G4l`<@16khYvq^yzq&z;{Szjn2J`HZ(lGg{AJFa
z^^S*aW~to&k@Vrp{ku}zJ)XY!d~(4LFE!DR{O9BT{M;YJsM7sOEKf;CW36vkz|Q@v
z#rL%3hfB0g3{EuF_7KkL{^+uQ^>x0`-`h*2mnl}Ii-sP1|7!bRv7k&%(-|_V>c3ht
zO)6rAx4X{$tN)t$-2KO|TUdRhV^2*l(Y#!fF;z4t=IXfvOTsT4Y+#8@(mQqj?T?>d
z*M9mmGh^vxu7Cf+9`#*o@{_OJxxTuw?fQ?G7rx!we@>0rZr*BM>&NSi>k1q1&CpT&
zcc$sZ>4IOOf2VQr{k&UVVccx4eEpw<`^(k`5{uVJZ~pS(Geg#~i6@no?fh%G>dmja
zOphll(0Dj;{=!`hlNU`sc;I`n)w<Gs-zvo(IOtj{$xJZKJ?gTm^Q9Wsw%bpBtbV?I
zt;IF-by{DTqqW|Cw7VH`M0<DiVkX^iE7$ayKFWf#Sl5ew_{R6#B`d=H?Taru^A8=Z
zVtkvjSo5Nuju6jN)}p0?WsQd%QkVYaO0yP8O+9;{=5dAH2Hho$wl|lXop0d(UmN+{
zXleh3b5bR-o6bqM<*(V?ZrT#>X8rP7=pj3+`}ZF!9sIC$Cxdi0`|Qv&Q|m%<9~fV;
z^_;e2)|E}xyrSW&^d$6j`mOxmvRkNkf0@?3vW(AR#fb<;xz+&117{u1)(3w-VSD`6
z#k3VGUL26qzjn5unp-p=aFYG!r;a!Gsn=ba{Y#D2X2BJq<n9*-o8GLD43UhwU=`^T
z82sgd14r)+txs>03vce(c_~%<e%O?M^ECe-T>3*N!pZis=21Zw|7YQ)TjTC}?aWZU
z81_h-%fSAoRM`K?-k0_p)&wYo?-I-_Oxkn)`})<a>sEV;FtRhGvRu`edwKmD1LfVk
zLGky#n0`MQc2mNgDJ?y3mJs9p*AE|+s83{JNIf55lEofyU*rF5|D4C0MPEqYalic4
zE8lURkHGCpuJ@15*H|!ZaY;Mr-oj>Z`cl=dT`t#7eiAbF`F5P;<o*9Udbe-AQF`dL
zsf+Rx|HfO-CQdxguHCuisB(zXp1m!xugWeuww?T#=w~#m%~qoP3fGT+LO&KHd~U9;
z_+{F$M<gLaqUy)%oO~OebiosR4NiP5Z!7#=MgM2jwrnWmSg<x;c;%X8nf&%&-{)C)
z2F(7X*6UNG=AF&pdT@Jmjc^FBfyl|J``r!s8)nZ8sH=PMa8LGD?jYs)kK{HzFpG5C
zEy&})q-V`v`Gc}4OdH%!{R)r_H}(w?(b@FbXp)uwiK4ob;cNjPnI2@VX#IGetF)pe
zV})+0WG?r^lRNgU+<c{9Z2jB32BE*ZVxRcN2)0XQJM<cA{#>2=_}=~U;Dyig{I6#0
zD2xrUEf(iou(hPa*}?r_G3(V@(I0_124<VyD_aCJy<N7k%#m5;_4;e?l<!=9nBT&h
z{m=Nvxr`bAjD&KTrz$w*TydOx{MV)zoM&%#y<PiZ?bKM2JJT{+zAIm@>C0C&sk!rK
z(GlaNQzwU-?H2F3zl(QM(5`L=EfHq{q1UGArk4Z`E}3`p#Oj}_r`A1noV+l9i^09V
z#*Hhhmxwrga^6?m^Xr0!=H5e0QCW{UG!&!TYG#{lEqxWx!?o^0(i!i7@7c3INIDu#
zKGB=ipT_wlxscy^kMpKqfAUtaB*r)CZ(FnBb6~#b2cO<ICV#(ew$PF*_^~)zHrCF1
zLs!?vC(oZaa%T6%Z79_&=<V<>{J-y_;O{4kTlNahn^rZ&Pya#x`IOq->7ofqG3jYr
z_{~cETGom1Y>nRcRnaIYl}~b$?TSP3{N_$aY*xp;VL4e;IQ8IR7Q=f@(W;VRS}gLD
zWBX=Yv1(zxE^&o<S<fc*{DQ0lNr$}!mM?G3?Om36boM0Pc%!*pcGC+c&hOvn{ycq|
zY|%RHFJ}v4t#sW_w8=ESZk_brx^s(L80!gv1472Pk`tQid!mw0FkNtU3Rc<6>Np`K
zbH&ZmQ~1ujczH)pzbDny$3^;>_DuOt-*;Kven0cP&()I`f_PZAFV4K{!z!%KUSr6q
z=a$fPRN3as^N+5d%GFMs@LZ>O%<Ny@;WW<g90d;CFV6~;Mr{f`v!nC5h06Yri!=Ul
z+)eC!bMfV$=sz7-_RO21G^J|l8TQEbvddGyPxjK&)w#DvWRc^?bssjp2tMP)6!iFe
zh(i0iPyCsRDKl8i*{oMheK_5+X5Amvi)^fi)}&rc;Mlk#^_fqa${%CzOy4{45_{VJ
z`_2*O>XV$`@kiiHOp)`omf8DO_8bl1zV840{OguG(|2<oy`s2tmi`njMI&`(-T>3r
zB8dmjDEXeWRjpxu->K|c*YZ+?*>LS+<q*c;&9`oNFbKbPVK#n#_O9Z(I}*Pq{q?uo
zmwqfrx?uB~+=|7A6#8{lBENk6#V>d*{?O8lna=*9+Y+6Z9DFO4dDm*YXt-cIPjcd|
zrd<M?f8@sId#TGezLM2j*{*RbgQ@YDQhV@PQHyKGeOL__Jn@~md#}D>g??(1OZ%VN
z$6hjf4@PjxZ#)#bLbIg4`8==TmWCsH1P$l>Z;9jIdg6bWe!?6k9!I7rhPS;h%{6Yh
zIEUew>c9E34V5oD8wROXa7wzSJvy_*;F;Zl#V_vu^WS>$e$N$~#y2iYP4#r1iN1K5
zl<C7aVN!O>BlQIxoRZ3S#ESywa41x&2zMFS-pl!X%_z|I<<1pf!mjW%y53%ycHxA?
z`cFaor)I@`Qj?u?GfiDjL6P}AcZ{*t(`5?jt5eQTS^jjNnqZQ}Jg)gWk7ymR)na`i
zbZWVx?xsRMXFK646{U!pO%c3P`{cFnz0LR}80CKZrp?+Ta&0TiP3Bz>HtAuMV|gIG
zi(`RL1heN>&SG^{Rh^feM^mg!(paMUlDMC&i0}LSB&m<B@936grjG=k&AF5tF1Im=
zb*rk|s>|VvpExs>bhz)bJstZjN<&<Xf0D1>J6X<kmM6__d^_gA<Z1KAMr`}%+P3LO
zGo9yiY`GFXJ5;s!^rh(T&HpR8-g3Iv*ReX6*4a*pc6x6<%`d5G`b>kLM`Yi9($MRf
z=y`|D(LSQ4XhlF!*n;4rGsTu0-jZaFsO3uf<Y9KJ_TjnatQ&`Bq)TziXI5XCJ#W^F
z2)FV%(oe!vQx@Ed5MXKFxAfMjsVYutRng7vk9P|=x|a%;99Mo9m2~OrodUJwrE1Uq
z`N+KRn=)&LuwnVneI4JVg#|?#x*aa7$)_u^iG-Pay=J$y)nnC%Ra;I3@_jY24T`$a
zsuS7!=B{3t^uq%xwXBhx&z1a(-`$lDw#_}d#^cz6TRj{Ze>_^I3twQH(w;Lt>eYrd
z^PZknie~)B|7owd+sEA}e(io2ea?E4tNvvLCR3}K`@gQvNmK0OVf&evQ6Eq}+w>C0
z6Ty@o(TK8@8?Ws7Gi8;?tmx$lKf^DosB3f2_N_iuGr`yS%;gyyYqsB<spuPdWp392
zBRlU+E{kl!^=2-y$TcjRXJnPAWp$tV`J`pl8@5a4Ts3AsrukI(-a=1N-P?S@x~37{
zwZCRZ_uD5|PPxCd{KF|<k7-)B_1!P@c6@A=oa+0O`I)_l&!IJLEl)LPy9?eniLj6V
z)M@c3?@}ihpW>{2Y=11xG;Zq0zVn}RL9$xbSk380$;GXe%5Bf}^1XY%i*_vVlk{vo
zaB}jb<$+7Pb`-}OI0qNS$UWQj{ofbyxrb(lZn$#ur=*Z|;z7&&+Bc_W9C+<{can@y
zed&v<`&^ef==jajtY+KJwDNLpQ0T+3wmRnMIFbC-lD%bVb1oQYD_I|&bkKCu;e9?b
z?Wu(-eoGz-Ts*D*{jJkNEsb*y+ozpiFM8?lK2FSTwd8b@nzA|ZGuOE_$$ne3hwHTb
z^KiFycioq=X-g+nyi>guF1@+<8`JeWGILH^*H{|xdfr&WedWW%XjRUyaYBDRj|eG0
zXn46t^3pYzi{Jh@eT!4c3%l|72)6<ctK)5(B{Sv~Y@Fq$ke>T``gx;wOsrqdoK2lH
zvE;$(iJzWX`ipH|<>+gl%EOh-#o)Jm6<5hull~|lMc-B1Q!f0Sr{np!I61;`<CNpy
zqnpmWFBFktm_Pqi<*bThcfMTel`o$hbNtuVgh>SgmrQ4!jGXPgQ}b`5?~>2F7s5Ob
zPB^C^l<Qj}ro1e$^W#ZX-8DCO*!RtPk`;NOy6Dw|^sO6$;@|watf+MFRr;I0G(YFr
zOCIIS2;qM^bIqe|SEB`UPE~9?an$F<I;TX*V?oWjhb@{TL=(e1R-bO3wDG~Q(<Ybw
z+|&zZaZG*qEm-je@An7AXEp4bj!4-m^GMwA(fqZ+@I{$K^89UKOMNeDL_4so+de5+
zaM|j65`mKp!Y4UJ@Tx}karNHY>a-(NA;D|$ME9_6Lw)9pZ(g@-j*gx*LHd?svgQH5
zEX!Svvvfah`|5PBD($$wUu5~}bkR%xk#SFCd%oQduMPAv*|TTYiX%@<j}_bG6;<3n
zQqP#z@b%&pwMs+3Pb+8Z_8Mhac^ORM^L3SbdODi<gh2a8+ka<HOxW}N(?{mMim7aW
z;-ADj{5(>i{3nC;V2|mX7ePl;FYaI#QCj>dz2#0p_1eQ3hj`w+GwSp1x@E9QcIPDB
z6SmhB?w3gK-<dE;QtqPM)xFW5w#;V!Eb(}+!|%f~2VO{?b^3C_U;4@QLaX(~a*dNi
z#2y_h*wM6M(H@Ss8XC4w?%VS`m&?9-K+n=MS-teX(%cmZ*QYh~_@=znabC#tx^h+h
zmqn^aw>WOREX<yG=WoJ}Mdvpk&pgx8|EvG@D#4V}cL!M3>oe873NQZ^Z?U8y^Um3>
zqnz9RHMz7)8t;!5khmWZbw#L4I<9jnQ}%*mEf$H+yDy~e`&p_!SMA87XqVjV35N9-
zZc141R;r(V;hDR{q)Do#kslsj6qd=6ZtV^hyO{S!<!tl&{le?zo==}p@MX22mBr<Z
zsL7KXx9+TpQ;_JkS$lIq2j6u+vl(Yyi`-UEDO)FN@phhfg~_Ie-kO{4JKnx}Y`=Ht
z;>5Y)&zB!R8==2x>qJSXOP4<eT|F}^_KooKO%01%UfCUFOB8o|x-{P9nFiNC$@IrP
zlb0Dke__QGv)Wa|R&ev(pm}!bjHhSvX)D|Dti5_e-uhIJn##8;pPoMB@IM%LuGn*#
z={&<=1O3_84W+Yoxfk7EqJFVr;)?0-3|Wl%!dZ;IR2rGZ^Uv9_cIo7lB<Au%87r4P
zE$p$;+|l4w`SBN5Xb6{c_j<cC1$O<Do8RruaGt*QvXaCp(Y#{Uq?Y8pe{80%Ht3tL
zVKVJ~%Ri~-{Y$TPfAW7|`(N@N&xZNaUIi}63=d=Cn>*>VkWt0b)KszcCtKVEm=4|9
zyC8I)ZryQ?PwpRoT<cTJeZ?dlHK|m(Fe3l`-@a~^bq^PnP1?@(@8F5MdgVf~SCp2g
z`Sqs$yBcymKT5Ina_VC~Q>FMt&4v>muui{WGR<=K#JMy2cTJeR;okL@^ixO8Y$C20
z%5Hfh^0swlUvI5za?i_8kF*-C`ctxlCt0iBy^(Una#`!~IEDDHQ421Gus{6!N9WkN
zEkQMNo=i=?sTGjxl5=I<)+L$NQ;r`mof788Yq~~gx4MwE_gRlZY5VsHih)Ug{F=f}
z`F*%4b402A^%=*$O^Xbfe4gHx&)t4&igI+zw9n#=w-2OACg+@r4|*)QJZx!Ofa<|T
zaSlc-$63>BmAbuUHPTs=eZ{xWIBuXRti0!e&GBE2I)&?=*9t{gdu_ib*Awc0>&TDS
z-DXjNr+tfxkJ^`ftM)uto$#&tu%CUYQq96o{NgW9x%`lsX(9eK>#X8@m#K`E$7bJN
z+tpQZ<;+5VMZ4uvrk%+N@%Q9^8oh6;Ud(;ud0UC$w8s^<*$%DrT@^Y*<me=x8T+p1
z<ZTH(J+0@4m(JxQt-*7@70CEnzL%TzP9SYbsIIy6^{F4OA8f3){a8^n!JK2(=0b+d
zw!N|MxfgOCmU3r%&wcmQlEOI^?qOBtt8<?%<(<IxtiaOe+tuST|1WQ8Ty*f`o%k82
z<aA?|_ory`U5phK_PF*X{(yVMef23n%=*G-{Rp~ksp+q|f0b9cPIHfF&p~_Bhcnzd
zC8uw4ZB4tsdWn17i(D<`)l1{|@SfZFzrZ!x{?o@?p_ui*Vs4#&$;vCY?(#|@t2XnT
z)2;lzw^T&r-%pcX<92iN<Y}tGZ`OQ`n#=TP*_6K9n#VIIsGeB#wDrM1smn)8)>O<6
zxjcEk>`%qFFUrKe9Mtobd~5St_gC9wv&NLE>8)=KPbv3JzM{9v@8B`d=*6qm*ZNgn
zGE=M7nZN4gHUmZWwB37Djn_RmC)T@oqt&G6JAY4}$Dz6UNSV{In%Qx-=GLstwt1o(
z6(1M;Z8zmPe2dpilP~x~#4X?7pEiGMa9Obb_^d};OU#Oxy7%8X+`-w`968gmcM{*F
zHO1vh0p}XdNnF2Dk~A$ba;>e-y|t4=KKIYJTCB!rc19`p`r!|EWGweT+#oaWc4qU*
z3(@zNb4;7<F{@{%$nyI&?h}L0_DI__9uc0__vvY?z2?U7jn9()bJ&~n9ck9g>T^nd
zaU|w~&71hVz0COz{_9jc7cZT|k@G*W*dTVlPcUPe&DN#4-Xbq1JX(Ed_5_v-clMvl
zG8EgevHaBO*TJT*{G2yh2)Di1cJ89?RE`AIp5!_IHWVL9%-%S4yIA*56JwjHzr>}U
z{py`Hx8$;w#_2@|B!V}VT#5d{qIhM7%(64F&Q2%xD*SMEHJ-+IW?J=(`~ys-nWn+l
z_k4=;E${Uy7x;YVs>=c!ep9FWIXO=_3|54yrQFz`@}|bDMaE3bxGQzVh60~Aj%(&^
z3T68F_x0_ylV9(gl6C8*?6N8QzpOHIxg8`}Y`nr-BYD!Z`Bw9MH-{CUJS`j%w&rB?
z*Iw54;~q(&pO-zH<E6Iw*;en1`s~cJMb|y7O*+omIF<3NXN}h-6XOHIx7I5$nIwis
z7X38fjX#yBC4VjT(Ns&zx6gkx%y?~F(-5JY8n&6`=G;~jbFs4RpV;(|?XaJren9a-
zMN(ekAKn#K6^o|i%~;D(cX8Db-rq;#-}J9MFxS1u^Mj%3%86Bs?QU9DD=weUi?6x5
z+%;)&>x0=n-m1(t3C0RqwOdwO?);Uzit9jjFq_H??$p_(b4nIVbbI_Qv&a-;)?S@3
znN7giSIswmb4P{c?q4xhvS)tTESmAGsNt63lw(Ic)6C7Bj)vW{xo@rM&28+Yu4u?s
z_1evkLnvnI$9^vH<OpV~ptUjiA5!-^c3xqW__e3*w1LMK#)i$+(hai}dk?hUdMdj=
z_p|?{+>?b8xeA+N93toBeSN=$m0ebpwODZ7UDihjcRxt&db^TsCT|kY<0;DvKVDzL
zdi>h2y}VDiac}P}*sZH)G;#fsQ?2Q98?9ObHoXn*o?W$gt$5qQaJ3GW9qD2Pnb&OF
z6kXm*EHbx#U($JO=Y`*ry>$tpQsogV+&-^WKbgGO_QAEs6Qx&N-mRup_HFX~=@WU6
zH;b^HPO5j>`poUHWd8YCZ1#L}F4jGMTsI?Fws~&mgWJCsI%S)$6~2`3Teef|PF7xU
z^Sp=z@1Khlx6ADQ%59VC`)#Jj+C!%oKEHIxo^SOJpP;8}>gP63;tE-P=5E}jx#v>u
zf8ToJ<~qiXC>FNAZPnAm#g@5n)r;mwi!{whpEBk4yH=lDElYfpC(cw%PTX`eyq<xh
zSk2_AykD31DSM*>FIbjq|G&W=Sk-#BXzqtK8<U<$C9uC=>GAj2!x`%~`Z?bfs(oMa
z<7Nz_dD&F`-jX$smc&X4zUX+%`{t)nX;I|bi-#9B{hst<&)ZMxai{-_U*Fhq^>a)h
zi(TD1jjUI0Wv^t8r>F3>N`F-fYuu#I`Pfm%+K`#$<AraAvDpjfOh`@1S$C4L^<cB1
zK}8o|=?BYAa*7OzOWz%T&^5>EGlz@P#+FDwAK6L+L*ZCG(>m+2kZU*O>o!$d#a|Qp
z|N6#s-te5$t7~uGke5BO?Z@(+9JyyK)%@6Fm?xQD{7|yP<o*-wo09BL{B~|(4Y+XU
zve#Cvw18W^=GAwj9?Ux0+PN$`=$yc%9D`N{zs~fRxo1~OJKUY<+p%{0AG5n+4PUcg
z=qT+wK4Y!&*QBQ6n7ul!-`_2cFA{Lt@bQOFXJWU(=WE{ow(_$GtE9ZUU9^3%oYr(1
z-8q&QwS#_f32T=Y*&4aa`A+0xFj3za&{Xj2&;K`%xI)Y|xou^?EPfezDf_!%eW?G8
zb5g<96L~ED9F8({yTD`mKECQ)&$h3PkIpZ14t%pVbER9&eS4>?Ze4!n9A(<GU#0au
zz7la#=8TT&5}7QMQ^tvc&rB9Y9)DQLE>h*dV!11|sKMczm`C%uZBE(l!aWlV?z*RJ
zx}S3WsK%oWE^3vFCM2!l`(hMU!FN4n!!=(1%dW0zGSR{;yUs}V`aCXOlJfVYdqLmp
zv-|}MpF3Ml?=;g<FrLJ>tX-`xeI?KJtqc{~yz5UafAeE~=Hw}t&P<)I?S68b`nj9W
zldF#Xd~`VH`ZB}vS9Ye~?<F&B+*7jt*@8J|k0(bweDd<Tgswr*=a$LUm)JkQj<(T1
z`Sf#Yax-h;8h_DVhobjQ`8FGN2%0g<d1QZVP-Ef$98*;{@r%5N`tcRc7oJNUdgZt5
zocr?mTkLaUtRoC>+*MF|@i5ixpZ&vV>6dHePE9zrg-iOtdFA~RLwa)NI7L1_@+5zM
z#m6`E=hs#@tM?x&xGp{Cfpl)+^WW0Rg%1CoUA>(?zwX<c$>;xleAfQnuIA&L$@M!0
z&)fa9{!>5y-{ttj^>)AI&Fw3{b)V0B;Kxw$xb{<h+}^!EzZ^|yx@2m;(RTk{!v`e{
zCAGKLyBXUzTzYu5Hjv>l1Lp#(YTt$<^6Va8HubM5|63|JBYoC1;n_83rWya*7o&U1
z&G++5mY0vKKJGWUz2;*=MU8LH`;gW$7u62ai$A5EKM03JpJOu&duMiRrP<GoPeng;
z82237!MRxf^6%{~E|b;%y}oU2b5&u6@AMpB_gRGsx+jm-+RXg=kblNWxBq9CU1GiN
zr~07vqqa$K=C+j~zYk6<(=wlIAQiInPh<0>-+F$x=9X$K^<b&#j91VyzH#=eRZzl-
zNBcA-C6<-OJWF{#mtpeDgqy10nzZ*$kiYfm*^OHvHe2#@KXrP~-J1EOJ2~*0{gDmw
z?(cb>?*42ozJ9RpRd$@kaZz>sJ3<Rw7Yhl6v`BJF$$qr{Hd$SLYv_)=ZESBG*yqoy
z@!8$udQjb(MVIX@gTehNDcx?4LT?hU?Rd-m&EP|RME;E*Gh+X;+*llVleJ1>O-n=j
z@#QXW6s70h&9Rnlc3@)ksC}vYt#-rD4F@#pjOxxD6&HWCIPb9b_6KtR|C&5b)W7{8
zJbJ_HgX?@w1i1A__#I-?U6fL3ThGbB{82eV_FLf!-3{|^h*}uOG#G#XdHYa%Z!%l%
zRJnQnZ_`=By-yy!G9`9(K)}_5zoKvaJXYa&$&K^1e{$FNBO32#$Mn=MG_XB(@b`bU
z?;q8|TSO<DvtQggb?=6QYZMKfB*ZjUCjH-;64<*_YO2_bzb<!<ovq7w^f7?zj%c{m
zA({O}s+*qw<LaE3y46u3vS9OB{(lw!^j`^7PWEGxwmQ(9>b`Q8=Bbp0pJuOHJAZSL
z_GG1fK@&gQ|C^zoIh*C?nrF(*YtG))U3FRP#g-P&=k*Jv9^QT;G@+5z`j@771(T7?
zvan5GpDG-7&0=Vn;xuLZ+LwBKnG)CfHAGJttSs<T4*T^Z=-~#-N6AZ^VwFYDs`<o3
zF4$fzQ*qLK7sr7WDwA5v>{#?OZ_77KfBX3SF$*`fx)kx_FS?SiCCdmuURr6k&R3&P
zeRoG7|C%eGcHha_QFALk-A<p+X2m4Kdq*70449s`^=0lq@#x*9y1BmnRSka^we=Re
zPUn94A?8i7kVpLVxeQF550BX}xHktlhoxqJe8h8JX5umCRUZ!*T-$b|$Vf!a-8VM+
znP>OLS~2anGRJS<dXRov?daSd)~}ac=0#>X+WC2ITGM&urrWzMe^1R6+M?IoV!K}@
zebMpIE30R?Jg@W&@_d-lUvT?~KIg2Y=%(k3yq7#*YBT2(yIS^!_NU1T$39MJxEgtV
z=eElN&sm*9{0g(AZuT!tkqMqx*uU}Zmsyt=Tn~M(-nmrj+sS*DlVyWn{XP0%$Gy7w
z$BJWH5_;Lnq~?6(o_{QLee92j#p@1>a_3)r`e@edBT0#0S^j+&kc}7nnHF>C{OcW?
zt-{lKb~&{P%KVR8buLmYAZIW8>A#N}tv|kK5iNT8IZFSU*-<f%Zll_YSpCksL3<Lp
zmlp<Kc_>(ubNYDDo(Kiw69HMm(QK0g>+E^gzyJH!hbw2ohDgT$?T=HY%$oMi=J`Hr
zOT&;9miKMD8?LsS<nS~!E}Y}p6L>4~-{a<0w{I<&^@{Vcee1)6_j3;weN>q@RkTAU
zdB?`^&l(?(@s=`NlT)~BS-LdNR%m{qR*Oql&@!XFXWjQ0Xg&xGd}8k#yKm!`@_P3p
zC6^-P3q!L4vnvjUO16Af7TJBpT=4ilPTjIMC0TmYH7oo4E=<mPF6q|rwOD^c&^P;>
z9Zrh(Hr$)GN~`LFUsY4caf`Akr_J)h4bDu}_W6E*ue+PONS~uHc9Gnz3%^zWU3FzD
z+<1b|;&NqE)jNd)(No`vM&<54<8g`GH1c-Iw^OZCSq$&LzU9OeQN6|IG0$1E;(gf>
z7fSq3q`okIJ?oR(*Ozq{ChhTTRQWdfTY*aW1evoRJ7$|XU7hoX`5u4T>TlEa+bt4b
z2i!dxYOpbYQ){b>&Fh#6%LLYxC+2N_x6Fr)EupFSPO{(K=XYi5j_eYw*0{H4mhRl0
zr(z!EXRkZD<F{NUpM%g!Z??sYPR&sL$9OI*j4Mi^d5ufJ#~D{Dy0Ritce^HC-lpuO
z#C3efX8~{3W5uc)6+cPz<!Sa`FTJP#oOR8kh^&l=cN;Dqc{j&=*0Y}xj?MPVgx?=K
z`7`ncH~#~*Ir7UlZ8)TwuDEUC?>S$sRjy7wzOMbBTh)5|v?p@eiU%ht=Rb;kGH;2>
zdfji6ZtSlSJ$xWEy=T(C=NtQ)&-jKro|=C^srme~1D`7zyLH0f9#3@_OkxSI`yu}=
zxghm^^FqPs1J9z{7M|XfadMGtMHau$)Rwai9KSg`ejgJNe-vjOQQQ2aHfEZ=qp0#4
ziP=wd8CcDjeLo8<D$|tUtVrH}x;H;ReP^W~qxc*1-P7cS`F<$>Q#!8OyFlQxLV)u1
zE%oc1HMH0n^?0w9{AMZZ@a_3$u;hA+zzs8b<${+%ho^fx?wHeDptyP7rs$dn>$iPU
zOWMR|ZFZ*nb}0vUS!KG9^PixNi)$;5S|S4*PyC(ko!xg+;KqqY(T01H%$GBs$E;-3
z=-~A#t`9uy&2RVRx>PZ%f7`D#w<*5Da;H|zoqhOLMMi*a)d!*D%@UUP4v3#VbD{S^
zTXoE(d)7{Cmi^r)_uPDAM^}2Id=TgC^F@Y*dzL;me6&Mlt6N^^vdgZVpVs+GpD?Ml
z)48*B->tZ}!t?eVNK`m#by$pVPdkU)^4!RePkz@PRa??jKV@a^)%<poZM@|n@8q8I
z&o<F0XZ%<vvTv2}B=h-49r>#*6wGr?r-hxH`=`Wh(ac?mPk*dY|G1)P^Bd<}l@(@P
z%ZoVYNBL$mBu{d^*Jj-)bLisMcYVFKS<my<bzH7Fn=MqRvt~J)?irQy_ix_ZlU!ZS
z62rc-xLYdVX-q8-m+7{7(p~0nZtl7wZ~Ev&)}4*U|9AX5<h@a2<IDFf5oa`vzrQb<
ztsvHJoA8^nv4!hkWA(E;Dm<61H6<kHl=yVUUS|A!<<s^{aUTA8=ey3a9lE!*<a(-a
zzr<$AyZyR*uej)BzJ9uB_S|J#S)W(!JAM7-hoZg3J{zZLge<h~Q1ar^zvb(7)viMH
zok@bK^6d$0;y$i9v~#hHJBPvJaOa&l)o$w-9G|;ToS&c1IwSaNO;Lk^z1HLXi=6mR
zox8=gE8^q!g-;J3lJ;HmyHwSOE&J)J^y*m2%WPbqmS;*%K9(f@X~x5qN9X6n@5@RL
zJAa~VcF4lc6|uZR^U_}4E`Osgks0+^aD{Pnbc*w@3MJ`p4@_#ef6nGTb<Mh@{qZTr
zb&1oNKV4a`-Re54=S=^Cj`V4HXN>}D9t%1gO#XWDOqi*}wU;9H3Kowv9{E+3HTkuM
zb{;?Cs&uA3!Gh28xU!#Aw##8YD=mrYPS#b0cMGl3*Q6L^rqAE!wJ!ek;WYKXT`A6Q
zzeRp~d~CYTrMMSU1o&P~IiSQ8e|Ooung#3mr*x*vn*I+6t=V)@r8>06V)^al3zOD<
zSm$JGVw<`{;MAr}i&;4ni~g+I)wkn-j9}^pkC5W>u!Xv<f~CJ3zZ?+TJ9*;WM}ALK
zCVY3bb74$)kYBgilQVN>$mZ4StPDTzUs!2oD7*IiU5kjso!lF%?mbK{ZvT2=R=MQ2
zj1QB_FU!R{c(7dE(w(#8_m7Aj`Fg(&e7eb9(Ko|z%dRyIA2`bGuitBavOuvZm+`?D
zk>sK)FW=3Ky)ygM-r2#63sNnW|F<b_EwPv;rQTz+BGBEE$>ZbWC#MQSZ9J2$O`lKF
zIk9&h=b@y9#)9z-A5U}H|9-#w*7`3p5#9^Rs%0v>D<%l4DSbS5&H3MRXLZ5Nb=oKO
z`8$M<e=8|#n$P%Pl}6AjzVPE~?QLGNw55E=;J=Yly?3S8_KFD&74HPz-{ws&{kenx
zk3?I<&k1iO+HK7*`F@zUx_M3XEBDQp_b4@HoIU<Jc1?5SnOj@WW!?FrJU#D**Y=Xz
z8|!#xzFwHOU)eR|WU15n6-Ldb;#GNaY<xFabQ5nFsqGYDm{;lQFm;35!Nr_C%kMS+
zv&;G{I4S+hgocZ157?&~ZuFk}aH`?f74JQ{z2z>JyJVbJ3N5=D@kd)l&9CN+hiFzz
zt?~x1oouVqR$qA1`eVujSE-3H0wRj6Q~j@`F3C;&aiymGI%E9wWpmbC^x#>0;78xL
znsqOB*PSmuP%%YRC9*i=(+uV%nki>Z*p5Cd{;G3bW@GpHRV(A}2x+IAaC}Qwxwx5o
zX_kHAdxNQcRRM=1Ww*ZErLpw&r?-oK{W#Gmf9(1@E&H4cGoE$+HIRrs;(3*SHv8E%
z?b)ukQv<o$8G5VrzC?I5xv$85ee<1}&bGM>l{|CH)~m3T&;J@Sx$Rcno#%$<w0obt
zWqs&;>ul=0ik9-^%(Ir)kFVdvI>TbA-@7k9J;#fT*3bMEWbv(H-S<SMzkL0%AAMO@
zEjj&&|4mCyRnx^|zWg6FJ?}}kJ1)CZ^s)DZnpS4sH^GO8uS|8AxPSk7+X}wuE3suU
zes{PYN8Fk@`CY08@6qtf7tCIKJb(V5ex>N|cbF?OA&V@*D>4mCO^gsLGEI%JtjIJq
zCT2zE)!NAQDaR+yOW41aMOtqChvve!(^r1_Am;y0-Ccq0S&xnL;Yscx$zL2kEj+nw
zmTH{dB#%rM=6`SdPCQL<NlTf#>h^X{p<^?`ucn`zEO}b|_xpF#Chv;=@PF$6x=%+p
zZ@<r9zW(2boSna`f9wxGU-#W-Dfhcm^>#lWy}SFoV&eYp<uA5wFF#-ZS?B)RcXKYQ
zFMZ!syu5U8^}nN=`T2fT@c&oVddiph`}5-G|6kwS8+(27r}FQ&<}T{``0l6ojz2#?
z)>*cuUM#b%DU0z7JicRHyMO=pTdyWZ^VeJ4n>{%;*J93o%R~Bg7k_=o-Tle6>ZH_S
z%O&;Y7grztx%%7d=^r#Ao-O+GFm*St-h~g2uNQrcef4B-GxxuS^;^|9TkYtLyB$}!
z{%n=ew}O9<Ry=sTCXPRTyLWy4p6@%NL?7yHo%coP(8GTBwF$H5c+F3pHaYms+MoBu
zw_cO?jofxn^w;6}r{vcDNKF+E<G#%*zs%3@81rAj>zml}x7mLA_TgdsPvL6;+w@{5
z*j?0E>+`SW&+~M5iv_MPD}ET;JP={73%73l{dli!=K49F?OiS#AFR|W-SpGr{QNEc
z%F920xc@-XyTN_;;p30{u1@ah-kh4sZS(WP$-vi>w|f7I+syFP&E5Zr`HyTHN!Ri(
z<+)GQ|9s!_x1FC~x^cxfhTH$HxYq}rTl?z6L&3b@)0`Z3`TP4XN{4T=w`H2XxG^lD
zSO3=Z+LIYO);$kR?h?Q4`NVy#n%ub_rZbED6MIX~Gv6su<5yVDc0aAxvQn7u{X?bR
z=$u6|Kb}v%CT4bg&b5TbnA_Q>Ush}u+EmH?-cX%2=Gwe|b{_su<>&u@-~9al-)82&
z-`>`o+u_6gg_A{DzGkuPCgptDk1zB0ukT&fbX3a1a{{lo+S2cZf6dmZ#q+dRJbxI|
zX#eq%s0N=L$B~7;`{Ee=wfO%>*Hl=%v@ZKuf5_GC?Hc{-ucvzMRPCI-Yes$Vl=lr<
zi*`s=M}<AOnCCiceMfg-^(M7-)AV04Z_b^&V^u-a{36%8mve9Z&zpbmW!RDZOiNsU
zb!}R4EcFrh1BaJa|MPh$F??ldUv;4Qz?bgH_ZGd;+_9t9%4kK~{f4#wSJ}JPy*jn9
zqo`b=$N7uv+nU%`^Lw8*KR;jh^G$hqp5@IY*As%TTeF(a{Zl1Ah4oxqVCcTz_cm|8
z|NG}%^Zoz7T~5#c|I5#|`nUXt|JC2+|BL<meDD6<zb|f{zqkAM(_Sr+d(Hj)+<L~V
z1DcagNI#g=-%!dkVeRFX#{D@$e^meNZdW!A7EN%7b&ZY`Ha#8gJ58W8^xu~Sx*cLd
zt*%$sW$H#=vvB|SS9{%eQH_Nzt*=s)>XhXgG`s_nEBQa^1o1k$c!sfgUui!-yQTi>
z7q?(F7w0ch`u1N_FRpLwT$}G2`tSJSW@m=DsTbR7E-$N#oiy=Q^Ny}n!LbWG98F)=
zSxa$f-M&~hXU^r*%Q)?FpI@1#z`gas2a~w?rVLpXJJvMMoMZ212<Ee;@pKBja@p|o
z;hu-r_4{_o`0djYW_oeo$u2bZ?rPDL4&Nisz68bHHwj?Oo!Hdd-oB~YEO>%zK=vG;
zMfwsOww!BT75DV9a3-tB+FlK2=jBRkdq0GAb1=)jPG}aa%(&3bc+GY~an<3&r+2Zi
z@-Tnl;ku)qktyr2=z&^{?*qY`mp9iK?qfD6WLQwWZvLCIy&^NeT{++C;?{3_CgY8d
z-K<1s&ipOE1OF)Q+-=$1=;9UayWph#_PalK1+Mlubj0GJSUcm>L`K24PUl*k&Q)nX
zusR^S;<i=9cBait%1@Rr%dHU?f6e$<dy`X<l8eILj5$ZQIv!hBwl0a`S(d`GdIpna
zqBF9-1fJz_%Hg?miq%)Qo#)F0*~w?8_eYq&i+&L|A%68omu;+$SqyDAHf&~bwbjVa
z=K556uK4T5+HdAR);!&kbtpwPjdfD1{))0YNjqf2SGMMSa5mK1dv!{p{rj`l(|s=P
zS-bkNQtPYbUM}&T&p&;5zQ?6^nJDAiDIX<VB}^_&cZdiGk$U2={cXwKP=h9&L;J5c
zeq&+M%!psS#!pBrH~jizA^wFged52zTBnr@MAruEzx@0l|3cZhGoghM{*Jagm#kQy
zx?{nGb!!foZe*xy{#CuztRnNX&G9D{FCM)tow3K-;oq6BDUxjb2}fAWC(FuS{Gfla
zPqO;&_7xs4kKLace6WwZ=FFo|k&o?e#)>Vwf4}|o{?p^mC%G}&yJOnUK0LjP{bjq@
z!M|!&>&-i)x9d!=IQ?jy#`&MzCH>57P8a7*<=^AG*7G+@$q|FO-->^*i7UO(KPBeU
zwb$u6!vUe~aRSAjd)Ktb%U@@>ov9waFKfS;Yl3*N31^`E7yld8i?ZTn&K6yAVBhQ4
z`S6LDtKs=G%F|UgecZJ1s%(Yb)9~B<^QX#wnS6WlH!eB7YvI3hjh<Z1c#!q1>GqfF
zSNeDE^y2JLviOnuJ3^%I*t&#0D=m9IsqNffcj@7lI3>FWi<LCiI;bR7Ygqo=R(QvL
zc8%|{?+i_~Y!k}&*=%@w@sjXTk;vGCx*I;9`5hMjdRfuB7g_%0b;qB&b+r5rv0igT
zM>J*u<KH#Rtw$EMzfEO!%TM*zp2cWUn7=zc;Ysu=t=8Qq1O<LHEL(T6A(Fj(_r{Z+
zJDx{~uT*?pBzj3aiy=j$?EF`?l7)3M?_6Wx+0naDcZPOhk;JCp78#$q7mqgS&bsS+
zBvjAq_xjC>&zhGXYL4+*vBtcX>%O~rh0&#-^%HBwx}^fVKF^<0tWw_jTw@ZCaj^E$
z8oh;al7Vw~?(nPLFV(nuv&A~=X&0s+dTQi6-9{%@^2J2aH%nF@SZCItd#5+SytOXj
zy}g7P`+KGK$hp@q8a-h=kaP3H!Q~&)_AWB8m(`V9#r5H9$MvakxAPaR7GCq8SN!1V
zdH=sfT7_R-+*o;p`GnYq!$<yv^qK|DVV1b;?(50ssx`;T<FDiGX3mYX-pAY)SATK#
zRvfd-iCcDp2i=#K6ggd3b#vRzd(4&!QBtgu8QQbur{?S36g;}r-8uP5Hs{RRJ0@om
zjxEm)EDvw1KN)vvhB2q|^2bk3Jh{!$UVF$wLDx<obGxGGO&ykqg!RqW3PdE_R$Mm{
zFWxj!ZA0emi=~fhmF^!(K3Ooi*W^^BOo!O?Gm>v-9oQJk(70vhYjcY|EfYEBmnxlO
zno_KFsdS&v&gM&eceWjwy!qs1#$!4XTcS8TtyiB|CUmJvVg5%}JDoWOmu|{v#GH?Q
z>hJwEg1bGj@!pn&T+?S9Tm0_K#3Ds2t;&j*8z1%Qcf7iGINyBBpSK0q94+~#2cFG~
zOK|(N;?-BD*w*w&>5~fFbIUl~YL>)Ve=&CLeyDj+aO=xEY#i(!vtBUSiOe-fI(6{y
z&c)7mM9p`s*L)cAzAE<S7oA4V0(Y0-ZFf};uh<hIUnIiS@>fVySms03hKpC{OgZKJ
zdZlQjnAs#Bohvg1HEowX$ei$Z|BWM7H<#E?oHMy>a?Q2$cOTB*>dtIYFBBJFT5*pt
zgMUXh+twff74uE5qCdJHFI)X!^36GORzG~S%}TA@sjFXfyEX&&a-NSo%N@=pybbxT
z%(3{JN?LuxqA<Y%QQLq=D=e<>-@Dx4+5eo6j}ALOUa^hYyh2>&sPv9mS8pATRw?^=
z`Ozk}8~<0^I?wSqV*J!%%X`Cb9j~Kge`USe^<e(=V+Fa9^QwLY|MK}F!X_$zp6U3<
z?JC<nz8Ft-mf@chZC0GUELc(XfZN$t*?fkbMPI_7)J&@8ZrQ3Q6LHe#FW2WZhjhKq
zI|8^C96fvMMQV`H7Kz=x`-)v7+WB0)Ip2j(e(_AqfB&N=Yq<-2UbRj3XIVK>_1>>1
zE5vwayLhpv2vxQ+yqhERMBs_;yt%clO0f#toMz5xS<(^f_N|78=TY0%r5%3HN`3G7
zGL$S#s`Z(}oSe1t+H|vdRe^UkMP4`ja{Yf;u#SD_EB^n2Ip$B-&bY{|o_5`}aQZ9j
z*#~y2oy|DU8<+g)h$x>^-XpH_@`v&yKNZhAC0plw&EIY7>7?+FEIR*YcRu2jSbT~z
zLtBlDRb7U$bH=J;O52QOF8BAkPO@F#SSRIw^0`x-!=-4`EiXh26;t<y?F}<KbtJa8
z_rM!#rb8TGUNv>E_#Sq)<iUEjBMsuhVRojuU*)2vsjt@c*0tF?yY>pV&0FS+oQvLg
z>Fo12Q$LY!rhX#zdb_P4f7g@^4cT9`EXz+UG~2jh>13C~`&&$N<b(AS9&X!^u}x>w
z!55|l9_a>U`$R7I==sbkJDJQA#MRi7GQ*@r%X@Dd_cOb8mi^Z~?tT^t-KVpXwQKK=
z^Fl8h->#b*!YtKzQPa@z)i>rv>tAZG(+h9hwxsj?k;baLnVS!<yz1clYmU#~AJ3<1
z<%#e5^2%Feq2bQ=U+&uOx)89*d(sx+%H$V%-PWtG`91uiCpLF(>zjM>slCkEb9Y3E
z=$)R=q>vxF_`}qs<(d;Ovfb#k?mnpS|Cy1J^1joH*e6dHnX;7E`oZb4-;0uu+<oWZ
zIN2y)jHk!_bNKNkK}-S9{g&xCEX<tqUo7Cl@`&ZHxbH4(k}s8Lt@kXQp*JN=$e*X`
zzK-p-gKJ_ZyzX8*=Y#kG8>zZ!j2;#<U8a72Gw*oe`3fiV0{@%cB|JT$H=?+fYiu@i
zyU6A2nm;etq)SKp16N1-#3j2z-rBBWI(jYm>a<cr#)@Ym!M|9a>ZazW=`uboog(^h
z)sz)+58`(Hysvg@Q=CsZL(~=7(6`FP-Zht!*I6m(e7xL{HlbtvKa+pA-d?_Swtaq*
z$cq1qe*0ct@zrY1>u-hc#DpfkE|lV%Dye0*@N0<FdTY1IXI0ByPqTTb-sjKMbZ`Bm
zbmzdf-6`iy&reuBiR<FzXImc_9IUu7#d+qWes%L_qMyGW?cS#EB*(})%X4LiSLN=x
z%c`aF-h6cy>vvWQjPU0&iG41he@)QVWLnMUhv(Ma@X^om>9jiU6mfQbeg0yv)~Mgh
zqL1EUSQTru_uAo~MRxPtmG<AOdB5p~+OprX6gt%-b2L`*g!xIWsyk_vo?<#_?HZ|R
z@7aVSdFs~936h&?vtnJjnoZw|qf1Y1<a?!}5-xJ-&LK^~lF&KNA}^n3ZIsKFZNAI-
zZMl$x?Xh3Nu9G`<c&~gmL#;KiKKn{0=e`#E@TCp%oWgc{Qi9G&P4R7?zwk|=++yzP
zbJ3e(s$RxVYu8MTJAF;WOOaVkVrGHjlzb~oWtE?T#-G>j+S;hv?3?^JMyPlzhe_q9
z>y}sFo!%OA>g<$4PTAJl{xuQ-Qs3r!_2zi18@|enyT;5vvtP7J+pS^!w%B!(J7ybi
zKK;6ux$jJMbEo$nr*`o&$qBqG4n|GbqaPrda!`-;x{C8O&t0mI&SdZDb>q$YvCvbI
z+v%3>PNCHtCT!~t)!FE0CyP&?qbZndm!`D1twWxnLF!}lp=T>MHJcZoj`#j*Wg^V`
zI+$rs=GJ1)8L~|}#*uw@N;~)O5X*huu;vQiNruP$E(PDNy07usbgW|X^6b?1)5Yml
zAD;dF`t5(|&X00;1AE$|7Hyny`Uk6?^bvvcop=5{i8SGOYVd#3R_%%ki?mv?M>F=j
z1xK%3ZF96V`GvFq!`wDkugF6!PjxS6PMc#UcI8U*!8>X8%bBKc_Ia}W)KmwR?C0la
zuH8CsX-2QoE!VsGYndPC%&YE^-w-!J;3YT5Uf;gr{Wr>YPq8SJ&yx7h_FPlPa!E<%
zGxhx~n|OCwh+X~IY-}|5`soWSksnxhp7+Rnr0_Ud@8Rq9n@uzxUfQ0O_uGY0IBF8N
zxVG-PG$*a1GTXxTV21C{Wzvim9IsQ7`+mCj3+JANd;HH_*is;$uei`JI$|pSgz#tY
zjtZollqhDNxjG}!SD`NWef^~0XXg~pW0|&MQoP}8;esDR&tDcu9a&r|?C)^T>3LLY
zb-?5hKg+M8`NausI=eorUfK0AyY<q7FI$hlQmV}s@)zZ@5nd$Ze^>uKyXu4@i^r=@
zYI$83wq;3bV{TubW^U9d^>^j_440eh-%c{Rbmz=9Z7tdUuqg+poV{>Z@Xtl#R}Vw&
zRw_Epc#<$_?qa>=hNeB;KhK_vcK?0sveGrf@W``A?v%y!eK1}9`k4RM@C1J+W_>j#
z7QxNCJR9D;P?#B{weNw$W3SSUPjB*6I!fD#YWp!xpZkD$W`U>6{Qew`bH`6VWR_3)
z-SoNs)bgv}G95I|zFHObLytveZjj3asr(PM6E#k`F6m0$|NYIUa)XClWtUaIyLsKe
zv}bluS>}^H8-Klb*)#Wcd)X?^YB!Cut=_H%EQx(SIg?H2@jOvcF+0DEC(t!H=Fo+I
zVXBTo7BXegjjDbO=bsh#{(I@gW;ONTU8R#<o3<HeP1diOS2?Zr>*_Z<6d!#4d@sDG
z-RmP?<U{82jfz3F7WtCmTi&yszHt7ozTS_w*{dEr=4I(lbSmB`k$l`?g}=phKP9{A
z%nHXpywi#ewtA<uLdpB(B#W-pc$NS2-u%f+?%dlltN6XC&)f@knnLGS&0KgVRq5a3
zK-QGfvuiweYAc+5ZFefoEkSU<_Sa*%y6f+?hcaB);#K0>I@#Ya{8gXRaWz%RZQs{g
zy9Tq)G~1JXPJE6335z>{j^>&BJJKIF2slW;n|ZrmLuXRZ^*OAYqR-wjDk?a0dV$yF
z+=D`EE}Afv@3U?`zx2pG^>^t)^%lY(Tb&NRoG^!Nf&Bx;?CZy#ZT_h0_x@T(-5u+z
zN9wwG_kS_9`fzmzqwMzZSO0e@PTOm>VBz*_VFk)lb}^(kc{PfctWbU)bbj@EZJS$P
zzt1mTtb6$N1o;y)4RgD1H*mClIWTeQq>OWa?tgn<KmCvc-<7{R-yV7%;*g};6IE`!
z^tji%vzksNUWfZ;A1iliWSVm|Y(aw^D}yH6i;jxG_}w;+Z!EuXC&l-CoIY#b_LwyW
zt4#CLj>=3jw7B`Ya%aKo+i{<-h%qhY4)B)Rv+w4yh0CI|>Ngf}rg9$docriy*IeGV
z8Efs|OfN|9Ulqf5X(r2ypK+CMIXbVuZMpj)R9nsa%;~8`OMi(hopUs#B}gP+<YAj`
zd+5cr>-PQ5uwYX(6`1K1vBrO$xX-^eQ_j54_kJytD|Tq=e^LJ%GbGmD2spZ&!~K5h
zm!#mS9WOmjYnfb7`8gw5EJ}fI?dhAdm;CO3DXgrYR=xLfZ0*MG<?9}NJT-6KP93|e
z4_dBnnzz%~TzXG}?b@a3ZM+=6=Eb@GxN!3A`VX;u>q14XE;al)-0k;d?au8ko0U@U
ztYB(rx&H1{32V-lRaUOw6O_H*ZBm$1!mf2>-%Q;fPL~SIY*u<2@Qb<~s4ID`D$=>L
zv-_-VNKk9ZtA9R<a{}5wI8A!i^JIqIGzIrfig_!vloJBqJZpK8&M4h&8ZcQ}ZIjgP
zs+X*uQJ$qAPb!~&ld}3l!t<r??;jV6EUA|=zG`{ME<RMLyMJr#|0|b%?N)GD9(J(U
zsQREUL%?y>r7Uk49X9H!t*z8m&1<YY(b*a6n!*vAeR*BLw)aXGlwK?qy&PAsa7iby
zXWQv>o?U#CxDz|w@?8(!I(a^eJ7KH$Tj%18Fi9=xC-asYo!=&&<Es=|rRZ4Ytmye|
zGM}hc^w-+1MOT-7ZI*X=BkC;W<azJUJ+m2>vtI}9n^3Xy{^c#Ivv(f&C3DJfo6z6g
z3#-@8S-Zx+%jDTT_Yh98k3D-*m*@Y!u>9SFr8O^F9p`fE9uyaI*c0>H;KAC=^fJNx
z*qf%Y^4_oK1lq^SKJ&lg^gI5n*3Eal%rkbGepeJN*($$&%H>p#iLbKfd|HyfMSk+V
z;*CA5d~7?D%<Qz>v>O&r+VL*Cx=`wa<k}6{m+w`rxAUz&T^IJuTyc(?_0beZuPD3I
zy$ddGeDq-UA026jJQL?%ANhEbt$dWsn~wW<z2SZ&ll#Nu*PV@?a<0eLpQ^fhM9cd6
zq@Po_X{lYa`#yI;%pTt(svVa)Eso^qNwL{4=dB8|7HN>!^gZsKwZh5dp9hRN49vbW
z9G_;JwL;)Pn}+wCCq;d^&jQ<hbq#BpPwMU#+@YnNJh}4pyQ52DMDwh4BjonnuH1L*
z+f^y+DOP6YI!W&{7iJsUN=ocx+Vx0>wQtfqhFzCRCS5skM%(IM!`3S&S1yk$tyMWK
zck<t=YfA!pUS9A~6kDJDSLi*jg5iG0O?oe!Ki@gp^ZeS$RA&?GOf$va^PZo@ZTRol
zJXxo=I`XFDw0AXSfuDV3z8I~aoOAB;wR`6amhF!*cGQ^V%b4Udojr7=r$?EHnk+}^
zJl_kuPD+1E%kjDNU$whEZC80%$C;~7u6M7yxR=FYQN~Z3mN!L8uipJhej}D3er`&U
z74KK?X94SGzj}GSyDR5xnwyASlv$~p%krm=!da$Ai^MLUDiK)QE><jdxy($gD2{Lb
z^+vw5jMsja74~u)4Rc>E%yHgv<HmlGg*o+gHCGnoFMeJ9C%X5p(49So_Exi|pXka<
zX}MBc^69=y;{yF1(#N|`U!L^8(s1*cl}l{DGrLXx<96Wub>-X!UB52@{u91+b<Pmx
z|9T}UXs6h#iDH*apPqRCq5J!rrDeJu4_Lo1G-k?^aAy+=Y@E=TZ}sQ=W3Kyb(k`Ag
z$y%ptZ^sI7Xn)bGPz~N<b??p8H*X7_ChPaF{Fh%C_|L_1#<j14XYAiCt+_shK`i(1
zj2-9Z9{KS1hJw<uwx=hi2HCqYe!Bmr_s#E&vI%<UE2=)V)s~h_snH6rSodyYbitXl
zxL1>T9Ns*e89rT|&x7;+%CnowznDDfYc%0}q`qjmac};q$LjWJ%F4m>pItB$=?`0+
zf9PIiduHWyEzR~o-{|apF*z6ZP3&=5vSG?$&8NXFo<0TjKgy>6_-wiR*4eYtKaRx9
z3ui74{P`i^_ustGotd^9|L%NdZ~JDQm(Y>*(JyW7-maY_x%aE?arw<xKB)C`o|SyC
z)!`8PHG{2;X=jVq?M$6FYkjom_n*@`ydJ2mOIi_pTKksYicM=cj4X22el6<XEd6rB
zoXAB+YWHF~CQq3*HPnDr`*O_hib=i}9V+p?lQ&)04blkzHh1?l_mxSPb56G3Q2Ki3
z-k<A}PtNcTx?cWW^YwbO4LjC!7<#m=i=3}@WxM3e7X71k_QxIznC@6>@~1NRt@i`l
zh!<Qkj0Ns*;*3mwdHy_bHFSpE^Y1qHl`}dfwcFjAylzLM;^K8HJ!+dZBO_i;t8eUP
za@chugIB&b{`J?TZrpb##YhHh*7dxo`qM10l)3P!zW9^egN9opA{S=|-S^#FWA|rL
zK#_3q<};kP7Vpk)y0rL!jpr2iCASy<JU82EQI7Ke)O(e0k4!MH`7V_7!mNJ%Qf>i@
zJh5cXOE;d{KhAS`JX?Ox?Hs$dE%#q7oXmaub-h!vShh@RgkDeJTshb2G9Tg}oMhlR
z((KSD70i69xtn3by&%qnz5Opj>Msj1wCH_vmr^-k!gDc_@yq6|XKO7wN+#@n_Mo+;
zt20YJ>Y2)3->Ox8E@#rs60f&47+F2p7Ib}svUqy9M>_i@N%OPI{if&pS?#{Eo9oEA
zm3+(Yik?rF-xm9Ej>qJ!O1DKXzSLcF@yfamy<{Kl{<|v6PF@PxZ*o5Oqi@;#{u|7U
zi%a+0vN^nW+>)8hIr(K!TUc_OdB>Fct&WpCKMU_x-7qoFGkmSy6#eJDA^Y=RHOaiV
z`l{)U@h{to|5lSrwaa)9`>%ZUDCjqLyb;6u*XnOy&FG%IE`M>md|wwQ!<Xyk`p4dM
z*>femF|<ls(7($23sab<&ZQUk-(Nf))%3V`MT+m$r>*a@RvBCli7qz}@L8+;QiVD5
z{CEAjDRGexebf%`IF-ifzu)8H6xN0VcVzR#WP%l}ryY6qJ#Uu#w)Du$O)<ZA8NFu`
z3v-|IWv^fF$1RgQir2H>cdld9pL%IVNA9bdJ-;@1rp{uBdU@uZch8R8toXkZ?swYF
zF7^GYw4I}9v&}@F_a6?aZT)xFwSy&HZr8n*W_gbPzY-?RetoO^(>=+{HD_=8D{(pe
zzo;9j^T^|Df7ZuukMxe*p45Nj+$(vzw7wfv2WMQHHb>*kYHt3xpgYNy(>%||Nj$GM
zT;3gghhfUKT(>{3-w1j3&JoJ@WwM>z5>Qt7sA_poB5#MtnjlFxy&fOmBeL%V@~#Q+
zd0jun{rYt0MwwOXA1Lv;#eLuwS@vqpB%}1|^|#{qIE~q>Ex*(~@H;haF3%my>0;Ii
zpT7qBIyKGZpYZNpz^?j(ogRF@msW@*@9l_x!8pnL|Ag|3)w=Qp=ASi|S}l<}`DeT4
zUGWcsZM6Y<rUgE0_zU0bCRmARmtL&AIbZXN^a&*kqs3o0$-FaAe3^MM>#&z)My=lR
zYurIxnFY05oab^Hs%*Pju98)hDSmV9nJ$N%uUjpq?&Y(*^36!+kbP}dO~=~M+dB?_
zZJMBYct+WL>2LF@ZEIHTRlB&mdTr&bz8it}#n(vOOLA~~k+y2t(W&tt1109({cONz
zVAALo8}-s=QN`2Q*BHJn-yrq;px@{A|K%(~P1PI3#Qzq3?%OYS&{VTC?8a5j9aCrL
z-`x3phx^lIeK+dsO%hah-4fVx`-?#XqeYm(qp6{<K0H=lcVx!QnbWjS-neUjd}$^3
zuVs7szMfv;Tl!PFz9~hp>Dv~6dl|iALDvmy4=gL%kn5iu{q;#y@9I?7)m%r!9&JvE
z`75{W;EaSPYJGaQADnUBlKkM>zt?YFtfk8jNs52)czg5Ro6eHl?KAf6vU|GDS0||Z
zp5LzYvxh5oJ619F`hIq7d;a^8&&9J>ug*>WF4ZkF^O08Z@!0wIW7ou$anEflXm-3b
z>;Jxajzx}XC&hMpPF(oyfNgip-Urt2ti>CjN^a_0XC8ietCz#(pMJl+99|sTmr}Iz
zX#GtQ=LD}8)ypN+>TJtzuD>q4!B?eT-mm|nj=YjYz>D1x-P2}9%vrkk@8hpNR>yCD
z@sU*8usVIs)sUoF5|`$1w^upr_q1KiRF-k*o0L~~)w1{7WsK%;GPv)zVcoB)nMJp*
znreC!>|R$GXaDw`Z%OarAen82{%dpI96djMitny3W~sr8TsAAzJrCz9J#aQOQt1Bs
z28+o7yXQTPI5F|w7I~#xSzD#npAk9mr1wc&WZ|uKcD4S6$7ViSvhK}~w3wR{x6aZ%
zbh)B>^@lHkC+|Kelv1DeX;XET{E91E7ky4TH^b=l%5ERc=X<X_6MZ@Dd;g1s&5nA%
z*UU8iE?sn>I&Rsry0q+5H}!R;SGO&yEDnsxVe~2UKgz!9IQyRhExV-e&-OK+JN16G
za{rItWlCl9l4sq1lqJciy1cESp={rVS8KfEE#5Bn&%4REe5=3KdzGd$Cp|wV%~@V5
zA$7-FcTZ3hx8SkAg;x(uuj$?C@9rtL<@V$$)o<VIeRIioNBa@^w5bu3ChyyMD5LLV
zz*ObQ_TdJ*-*G19Wbw;h)zL~XVtGI7q|Q>|8?C>lUON1~dSb!M*Ye)s+YYMhZ0AY7
z{MtQ8SoE~YFOldUoV^X+O)5nf3wpH$zlATIv)FA;(X_R9SoVDON@iSg?a7Uw8!iX_
zU#=Nv%2n6Qy>?}fW$m}9%c<Fu@9tf0x^YsQWq-%p(1kw_2@4y9-%9426D(0$TkO_*
zZ0_E}UZ&w2e!gbEWpz~U)Y6WbX7B&S$IO}(9;kJE!m1ycVtZe&)9z)uvFtlr2D@Xb
zz*qkRxd+zGn;Dp@actW175f)&W-30rd2v<k>?n&hHZv#7hM8a5VE%pm38g}Bx$jki
zRlC{tPM59;i}=+Q;WT++*WwA%-6xqMFUWD{OYUAG{pIWK`z}X!{GP>pt5m0Zx9<M$
zY)1L(C!DxrrQ4;FJZ<?*^<B!7KGo0bIrm#<OX(TyJ-Vmgetp`Ra9-!C{=_%4G_5OF
zo&R3p8Jm3Um-(c=t@nI+ZWL~AF$lh;Bf9rZ(m~xFCo5t%1#jjJN{xGaFT-1}HCN?u
zzg2S8rNxD_efK2$rKKPL_C<c5?%Vt=i~lO;W|;XWC&hkSZ&@=TG9xMVwCC#W>|d76
zKb<#o*4n+?`);hYUVhJ7_BiJX`ya0+>}9t<C-_0|gx&(h>9crKe_O4wI5A6o;h+Aq
zJZsKYZ@ImB_0g0I)3@?ZNPAoGBB$d{8k5h;zvsj=c5ScgUGgh1Z~2!=slGQ^|4k20
zk+qw@G~DsJ8@Gf0){9J13!d!Uy1w67rE@0JwxuiOj9yt@fBs0oF|IPI`tN-2<tI0&
zzVj)5a;Y%%kgD19QZwsJ>#ILSeo37awU|-5St#1=sx0r)M82}N4V#TF-(!#~I(LDg
zPp&Nd&3p4s$)yZ8ULTkgFY}(+tRzl--y<XQ*PC{|T{OG3H)84GbzDMTDRmNB8Sf5#
zwU_w**7Q`UL}Qi9b51|g*y!+$uPY*6r;6+>O3R$j9i6hQ=HrEy6{fSJWCZ6-*11x+
z!2iT#p8~FCgU(gY6C*j2pWF3D9?zR3v1@C)@$J)d7U{C>J9LTR221*@`GudGo3>RJ
zO;@!Ow+mk<c$|63%H>;j-+i|(&gYy#PSN|X@1Cu`Q)&Clu=d4=u7ulZtG<-gZsuou
zbMfYv-BWx&*XnoI8ywHH3izn|?j_?Jt942DH!r`=yf-?}duIOj37l7(KWeCMkI%G`
zI)AFKu5sQ^*WA02?Hdk$`|CgP)Lf}H_TL_TuYx~r{F^`jj!jYQ^w}|!FYldq)Lu`_
zKjQF(ck8Tsc;^2*-QCGGS9EQbZTr&)TIbb6ip(AKL`qpog~PlIQ>P_bEzX^>aPh{;
ze>w!r1?8ut3GOWRzC3Tq|M_0i*LyhFDav)7Dfi~o*lxE$ZMLRk%vtHx0i`cWzZvx%
zUL%;^*IW2(;{IE4z9;_5OMhJEX{Y`E^D*{5&x2d<{OJw*BjEe>Cfm2|f|gl}zP5yB
zU;EO*{PIg&{;n>|Y*C52TnTReuNU{8U;9Dn@sG$Nd$p5~5|*dQoV5I*efHq<R};&;
z=lA*P#qRP{ezKNn{yw#3hS3sI-Yfs5o{?WTVPSmQ^|qG__xWfVZBr}Hoi{`IiI4mX
z#`&JQH<)+IY1;8REmyaYKRtby>+2Zy=KG6vQ$MvE8Dxb170Ju-+I7w_t!|zC?Zl`2
z2emH=JUMZ4#TK(y6VG<5J>ECDE^w*n<<~9WcYAHg4>+~1pmkcP++_A2tPBjdwuIM4
zTS;xZ$2I%ePE*<3=#1M}HuCDcYMr<4AWOL6sU4b!Q)m0l>F8LiIYqKhV56S!tE28u
zu4K-6W0m?Q$oqJkc-LnBV%K0LmN!aEkNl{3eB4Dd<w5@W-mis5Vp7&E`5c)6wJtl)
z?UeW(HPav<v+9P5(mF%YFJ(fEi)#Kw+q8wqIDUC@{)1#fly2S}iyW`rHab@GGED;G
zHg%rbn)Y*#;pC;Ek5hjC$kE*U%Y=2BL}2N&seGG66c>GNnvwcqgB|0+DcoruvYP4|
zB1=v;v{f&;wB7pdN58!eZ#dO|>lRN=J6V4GqVlafg>!ohro8r5zifJH(#GKLe#e8~
z6oh+z`t)JRiN&@>8%^fxFikpeqK<i|(UjBkcwLLGOnxo${D#r>S5?0@^lQFcs_9*j
z<0>+9s@IXsd;V2gxe8k5@3Q~f`5f{+67e+Iq?%>Q#*GuRT#gC_*nO53-P=D!&850K
z;~B49fJe{mw}(#tnwkFnR^ivJQ4+`RNgV&J+QmL|)uv{@^>R~$w<o2ay8DAcKRI;O
z{#hqhzx|`JY5LW?qg4#C<;;vr>O)_uO6_uBnD@!7-E9rGf0@Z;zoXpS^md7JRpf4H
zx*7j-jnALSZ?&I!`D_+yENVL@AMX9uq}FPUai1_>)~Sm>RMIW47F79IF0Yyv<l$1|
z{*l$FTu80=MA>h@soiUDoK&0dxopjY;=(GW7cUF;8rABr>6!de#8|al_4u?Kr<M!c
zyRycV@9_iSZ!e@)Eona}`sC3$zn8*3C)MjG#-4Uuxl%f7$KJnf%s~d?>$n3Rsa3qP
zty^+HVN&@V`P-o<x6jQxZn!1!z}$6<)z|p4vHt5d+V-u6<COo;sj^{(rwSg%E(@OU
zPhgFp!@8d5#wo8h^sd{@^t}6*<dcI&=?iVAmn`pdSvYZ@tWllXABQDx%p|mZbVC-(
ziT>Stz46t#Zu4ws2bbE;>j_$~*R1TY>G6B^oU@uM{F){ET_30SlN#>NjxAWc?wf_>
z?Ii)d@eC^}RvGD6ng}hq`F8yR!@_r6H68CNw%uH^?6t(ixseY~zA)!M`EC1!{P%Cl
zW)$l)SKqt3Ygy&xWL*=*suhNNC%3fTJKk;hLPLGk4ZZ10{A4_*lq}rL@o3+x%zc+W
zOn8}f-DMx!esT4yxmO!Lw1#^z9{e37-SK93r-MW56HlA)MA67cr?w<}&9vKc`)10s
z(7orc@?77Ukkxx)U%qI3n{Y{ic-EQeOw+^X_AE)<^`u|1IqhZECn2lJ?@B8~CL4<V
zmi<{~B=?H<yp3R)-wsh%+hw1Y-D32gb7t~$8`ny^z~DnyUj1Cs6Iv9Tp<<i$`m^2p
zsr$KSsqbQ6>|PeTozt`6>5>Rt-ziL@32T?<3$q>DQnj_@-izr>6H~IR|Csx^KV?$X
zI&@{%wGy6#E3SRMwkq2HqK<}^-rPkWR)vHm$agO=-O#Y|9RJFjkIb$mN^^_dVbxcf
zckRsaS<9S~IK?vW9>2Y8BCllAiptql1)FbnWM(z@1*h10vOjE^Xpxzv;ks?l%GZ50
zueS?bwwb_Iz3EUMyWWq$=tUEvTFWv|ayoTXaJRQuy^OSU&799NCw1Pf*Mi?yrZ`L}
zHC(M&&DH#83HRM+0#V02di2<O{@<8VHt~eQE7tCRHjiHIdz|_1-*R=HV?k^5;&%Qt
zbpQWyYVmq=rHQ+j2o=rW9M9>s(e|B^CF{$n_tsRa>pV9S5Z=JX+4Nq;`z_zkBQN7j
z5}YM>rqwUaTvuwb<nm=jjTt@%CWTG<e=Etp`KxK{a?y(DA1)S^O$z#KP17ak%(6b*
z^*E;OwfU>BTHaQk6P{(AYgVt6PuC1BZCe@_T*7#<oFlnNE;aI*(Gg?M8;7he))yZ$
z_I~^&tvKvyr*BfzrACG1Jf@^Yo9CX`;4gipmZ{u}{f04@e)WQKWr34-I#=%g|Mj1Q
zsOdGA&mBP*l2Tjcz2#qsIDKlg{yahDq|L7{??g`+$F1MX-u!L3jo)*-sjL4>-MxOm
z@#4gfq4U402ZuNvvJUf~B6aawE8knIgDY8LOpSi8Iv`b__#pIG-v7TDauc3!VYOUU
zeX?Uw!Kz>Cg(+oI({`RO^t#49`QqNWTDohSj#ft3*p=@R$x&Y!|I1RDb!!AyK*T<_
z=DOxZPvW+(D(Q54u~OAOaan2hEJ4ZB<@XM@**N6|buC&I{9@XkNGW;g+hXU9jO6wS
zUc0OP=vd>Y6x)l>_00GA&XenDU_G1_cEn`S`K6f|8hZ^VpZQTWt<AUJd4YWB`)GA<
z6?Tosf1)0>C?`0*_$*V@p#L|^$!6x!0KciVVY#KuzDw)>M_duwE%h}2!SzcT8(5QF
zynjlq?Fn{yY&8F7)YFg3$D-|adOx*Vsj@R<&#NNOO^aRqP3NYiMNXD`qO$y%QrOHF
z7Dt18@^hR`D{mfs)*!6-cuufuw8()LK0VgV<;!KJvut9&H%tA~JV~DG68}HMzAoLn
zYnJl#s>1B=6%$u8mt~sI4LZ7f)y~S<_T9Ay?ajN3&p)r3wo%e=JrCm<zpE!X_UdU?
z)T%{BY)=)<%l<DNwSC$z<v*Wp{%5bYjQ7T}VjH{&8@yuM(9{y?3|&hTEGxDxO^I2t
zeYZAxy~@c#IoAEWoToQ&-emeya6tU)#%<Nw?`JN0*}gQRuvFc21H<Gd!#R=f%(j=O
z<vVv(ZTPoK`BRYO#ObTv89$%EeRzW9?d5urGbakhyVMB&JbJfCsGR%X{y+Qm?W@22
z^S^udc)V@&yMIFe-ak%{w-Nr>wEK^}zWwgs4=m$S-XGG8$ozWubG)5*dAD`)6VDUY
z>1R&<-u-;O?eCk8_v9biHwip@aJ~ND=g<4A%C6j--?G=*tC&lvW%u*-4?flJ`u=Xo
zT)UbQe(@EPuRZ)Q`}gCbqSH!S?dRx=|7hk_e}3fQ>EDZOGuOKwIDPbFl=7R0)4#uZ
zlE^Xb-(T07?fj0i=hlDZ{KvAte|>H6`oBE-r3IX|Z*Kp7Dw4u+@AB?_`=+ZWH;K0U
zKf3==F0^gwgTR87W#3e$E@`feU4M3eRr!uT-~MU%AGBP{7k^hiQEX51PwV>D#e(WP
zZy34l_%Z!Q412J~C4o1OzNT<IiL}`3H)l)9$BjQWmwjpaG11Gzu+k~UNu-hWdcc9j
zmze5;)Yb1V@74R9l5pze`u7i|x+kyZZ!?_pc*+V^xtfZ|a8dR(cRe$`um8H9x#&ag
z^YFXok44wNu9&raW<k)o3-LD(aSMbdyU6)hy*pkp+d}f~x=Av3*q;8hsLp>CR}s5>
z`nnIR^RBJ^v{&Z1`<1J9;h7K4Up+N<ngHLEjnDJ%XA9J>Jo1FseaBmswFX?%CB&|s
zaJ_5$e|Gx$|F_ToICAJ%?2_pQ6BbVr+Q0EGOQz`O8R8KiuUD+JTj^Tzdud0{q;F5w
z+STxRul73>>A8ICDbKz3{S|@j`<q=SGKsKGy}80Jha*g~=<@6`{$t<g-@ImXXv)F1
z(Du`oC!41gc-FF=Sl=W$O+nSw{pZ)qmvi>-X`gxVkmV24TB{hY`%C9^%?{v<=zaEY
z#bc2(>tbReC2tsfnZ4r9<Wv>^likZtpSs$qeEILPbv_dr;-7eVU2)!EE2`DGC)8G_
zW_@38^H0<E_$#8yzq@@*R%tQccFWv#-(GJ0k@7a_@2nHQXw)0%$1l!m5I<b={T6%v
zu9~>;Cnfb?l;((CcyaTZ#MUfl#oMhKTBl~mzO{;5xkTNhrs(dH$J+OI>r3lJ9o~{t
z8hPUT6;Y`fO7UhhdAd&TKI9oxwdeC9(F-45YGrbN%8pWBbo}16_wRGq*S(lsCp>e-
zjl|tICNtgr+JCrI>2=MiXzde+|3{gBZQo($)qF$V&tBzqiIT!&k@Sy$=W`W5KWKGu
zokPQ-f-JGXw6DxEuOEqeXze-SGF2}zV1c_1kKx%1n^;Uv6)faaTTsFsvTQ^Cd4nqT
zHJ=|Ato(mwf0t@fW5J{asr(5iMHfs}kojwUMzm(O>4(yv^Z86pN7pn*Ok+LDwS_Im
z=GXTxu`(5F*(A*3%nnpeY7!3=+Hy^uo$J}>iA&}jzxL5bZ{LKkinAB4GuwPj$d2Kv
z;?F{!Ljk!OrJFW9w(H$>hFkGQMTf{D)yof6d@{Cnx_x;tqc=~tCA=}CH(uawjis>g
zDM!DWxnHl$5i<2&SKF#}_RtiIMe_GVW;_U=n{mR|_=Sm^()yb=Q*^&&?PzSf^(eG$
z_o_hl1wS8jId9D=oo08mmF45~5aVmxC;vUKSg~iy%*aKFCtj_u_czjAntqSvO&I?_
zmpLLasRy(f=DL5%Kb>lCpJOM~>jygZIap%qhNvG8moa5ObKJP5f8TNb=D$2rFCI_i
zt1r~Ix$&xXcIpqeZj0-S_%7UPPV<bAPWa%-q);(&Iz!#E?}9DvEnkC<>UZ@UFsP<X
zk=tzL&yo?ls#oIF@z-xlE$7^fV`JqoxM22yljU}^(Qj{o1xFb<8ZvEXv4*TrJYD!h
zu`xb`k*D_;3wO#~ITLZ=ig&xbRv4y6hzUQ`IMcWBM*=gKXp8ihUK?Et`2`<LrBWWc
zdGjamiWN<r{QX1oqlQiL-N`Ypm~>zFo1J9PdHwyNIpaSGpX>bU3nr||{`=+i{nQh?
zHyL<*+1{!3llzB9Vs96Nv*w1D2bF)%S5L5+q14xV?vC!MeK#`>G1{GA_uC$rXmpo*
z)>Esya)w+Fd?Q&CU;c}HCT+6i;7>hs!4OB0jF2<~owlF)`PY2C|2D6BY^NIiN$$dx
zrgJ~69CmMaTlY`mYV(H&n)}?v{@FGy-xn_*ZK&zG>j>jkb;ie=C3WR=UkJ@{T*r|T
z%5wM3(fHLIjb+-_rjE<AW~ey4`gG(u%a`H_vU`hMRr)MM#W&5rZxUrB_2<>Dzov1L
zOD>wd4o*xhoVsQ4ti|gta_>5kva^qiMfL$}sB>n`EloAn%^x*8y`LTL{-E_Z+u+sR
z6_XuA+1KCmn^TjOc5;E}x;0%!%S@xv_NpgmsU&CG3bvg|I9A!Au_{Y_^Dpj2&H6VN
zNs0%qjhiMhr~Bd-)-|&?1W%9S=80OVcxA=+EA@rlOT}3)88yz)w_blDd)FbB`45ih
zF}{&#HL^UFkg{OKyVRpqH~D+H`R!LX9JpYT!0)y~W0F$;DupRLPybA6Jjl1s!(=VL
zlSAr5d1=PLnUflJS-<)CQDe%4BStLdPHt>ZIUaMTd46nVNM<?eo}^n@8eq?p?BF86
zwSmb|vc1)PkzIt);U_<ASRXC$Jg_=<f)!6<<Np`sPMxAhCYZf>BPFU(81^VffbkCZ
zXTd!cCns~vDpr5v@aUGwq&e>;7Z(ZnoKniXBH$94be@svfXPRJ2T~F&u309x(nK3K
zGHy+0Fxr#-r}4MlOWs|berrFZ_b~evu=-d={5^dC(CMD|IpM;4KMC%0ZY<n##8%;6
z(tBsKi%LR2&I_6^O)j`-al=-k>7Nz5X2Q7_F1>S3tJPI+Icv9fj`oSue7}XF>J8g6
zm)zlfuJrBlgTJdXx|3^8-bo17W1Yk0Kk>iC0zao%9j^&&r&$ty+}qV(;o{u5di@id
zN~Tww!G<MW|64US2kvN$vATEp>F%jdI%Sp~m~g;;eW%*=_`<1${%+TWoEI$!k2n4t
z9ahcp<@6RwRjZV%8K0BBGQM<Qt)IAihQ_|A84^ko`bn?lmk0RIeZP^}>e?QgmXLyb
zJQY)Z%Dp;}Q{&PUBhfR7XZgg=_1}d{Yb&QdXYjGV-6{32^B~i%qEO=r@!s?FRkY6>
z{_-`SCE`gv>#l~qmY>heS}68SOi$9iAfoLMmw?0N1-aaLD`&fwCMX!>FQ1gM%D%~i
z<@HK`w`qG0SE+EeW(Oa8<GQ)b;QqPHRa4HVbgPE@M|C}W8K<=Rcc$;gc^`Ad)D%xF
zT*C7yLDe!fhdJ!?pZ>#f^Nm>&9iA9u8O;te(K3^%YvDJ&*06eS`<;^k1<i||Mwc1d
z9Te9u4EVvqHi4b<RovtUzg!n*GH}e0X))^#o9vUm`}ggNaL#jXwO+w7NB<m*OI>xD
zVOdVlT$>cPkKXE2t};rtoZ+#kwqf{HxqDAw@TW+|kZL0>OOFR}bHuF6CmgVGXMg4P
zS2D2V(&>Zq_H5z*Hj&5T_o=E?bK=%0HpQ>sy{cwfX!4tb0scJAx(5FQ#Z<XEI8Lmt
z625t@d5c8h8~X#68yWil+{n6GuR52Zh)v5;cYz1{fhmi*c6>X&c#6?N<ACGOF8>b5
z>0Ft(r&r?IujFs{w;qcK*yQ@}+Jx2v3{ErJbsn*=JZyjGFpu;<+v%oU9p3H}zRhG=
zziQ$hMX_7&_DD6$=w0LfRk(Pn<^AR*dO~H&PUek5FU$|eS}6ElRCiK2P?OED?tsIY
z?T6Ff=+0W$y-bWJt}<pzQT^}6ziD~<Hbky0{=3G|x5H(=*4;*pi*byr4(xGZO1x%y
zCpK8jAm*i<{p&Bh{{6gVdS?T#>^8JsYw+~T4eQ-U`%}{Y*Y@5mHEXEmykhJ#r@`g-
z1opsqp;z{{oEIl<aoE|}AkL+(zqje+gT<$7EXs>)MELW)U1Yf35+`bk=(GHqVkokn
zA>&P&UB~^n3f-i?Qv!}E2}Eip{?HKfnt#Xdg`%ns)1Jsn3!WI*`c6}*+`7SK;r!1U
zVl}^}GB1B8=*0Q?hyRzE3<m#-Iki7AFr|jMn2SGd>-k<(dSL4kf!z(O?P`{H@iU(P
zBKskU_n+x8%RZs$vscYM|M9%prJMU!q`lES%Fx^(%x~~uo?6`P{bBoCj&gEs%G#lL
zt<g2|WzWZ3QzOiKoFsd!bw8C)kY#(kZrvHaX!V45_Zas@GIOiFjY&Vq*FB*jQ%P#0
zN4SI*Tk@lH&I)~=9UCi>f61-2jA~iWCZZD&G^>i`g=<ryl4tLZtFla|UHvo`iQEua
zZdkaxB_(kF^w2GO@>`S4I^|qWva*LA5jd|iH$>*n#b-6%*B3@*%IR+wdMsa<?Zz*)
zpiac{#^Qu!nNmCYUO!&tfAZO?`t_5oO&A>;F4YGKGc@;GeaT9h5IpIFq(P_V8;RIw
ztBoejQ@vm)D0i)M@+?m-Pt!ee-9l{2$|v)=*<1vk^8c3>k7aw?<|8Gz$<Ob!-^3Ty
zuPxSlg-y@b&g>IyzwYbO6PVbbWyt<TlJ%V}2jk{z&m2?QzFRT;zi{Q#Mdp3ZUC-Rq
zBqbMb_^m(X+||Szi{ebLNoD+0=$<t<jeA$gseoEjncMc01YD)hWjXD)a9f=$HS^{D
z#?q$?AO2W(VCD*+>*B|5M%?_)lE<{4eWt%@hv*BLJK_x?&d#&LxT{{IEjpIHW>aYC
z$MeZ)c0WsHKK|#r=shR-6u12Q>kHq>y?-7kwX3<tw5;`x+6SBS+QxVGS07uhuxwtq
z#zs50x1al7+mvgsua+|O{lCWLI9o$%+*0}H^<kV#pBg{DawE#suqBr7jj&V)=d{UL
z4|j08J-RcOJ$KuQoUnbYhbJWlI`Z9L@Y&YA?6Uv+i)IH~Tx)smaj#kRGGKnlw{uJr
z0`I9bckkfuG-D_h&^hM**YHNfjjIg_|BJb<^&A&e$_Oogb8oIV)47rd@9r=<?E4tY
zrzXm_>t4lS_frqQH)iv_w`nqJp1$hvc0s=bLDe7Z`y$pn?3G^L^KiHO{g_Pl>$RW1
zzJIQyeBm?;<K+hyYghkg*Dy->_~t??NADV+9X3lhq)A*<;}hXLW>Ois^TAW!qHT>+
zkF{q!Oy-cRspHg(KfPwo!NqL)cY6AYCOkR#LgNr0_jbiM90pH|<kf$&Ssl4~WK9#x
z+3c_<7gAgeHF)3IeY$Hd#H0Pwx_|4(b-l+0wx?OL9%_3Krx)I)S}|YPR7z%fuZ!>O
zc#G){KaG~HIAd)3A?oqh+?7((rU-~#E|Xrfl+!isSd>uMLXY~%8Qvczs)Z@q&e$O<
ztX;)-EMw9m4V$z(vwUrP((kq%p73X3v`m`Grk<<srP`Nnc^dp+L-uN^<bVDrX6EVD
z?{hStZ~4jS0aM3To3@QQ#~!|viODY7;NrWbvU-}XT+v$HWVhm7r6nJ(Hov%b<>2%x
z%gXKNx0dPDE_!IqTm0@rV8ZO?%d-^&Rz74i*L(OzX4}F^)1nk}9(TrfE~^Op)8iPw
z(zGG8c(E{BfRftG^|ya8tY<TM<9_3(P$lQCm3t<zov!53uD*4NDdN~2W|l>4VatNT
z?QGB7c(kO6dsVS-)!Bz%8h02@?{@ipafQoCgN2*4)bfHi_wMFevTog@s9vG{YFR%Q
zx@p$Sxrc0j^icR-^h{Hg*g}KAi}$Na7am*X_{IG2#E=J5nNCQpG2nLHFOl_WqrjDX
z$A?{x5sfSi%nyPiFSjIwB^*dd*~xvnNd0F0F_*WN4`2Uz@TG3rs_Kj9&L}0W+@tHW
zV@qv3!_l_*uw0-1>{p9!huTh0ikANN`g?}iE2+N1lZF$&nCLE2-L~Rd0&nG|!w1YW
z3k}w-zw~KV)qH8?GroKMPa3~-QBj}gSk*2z?b@%V&8rQ~>SDU<KE^T~TPpg=W#c39
zdD}W7Hnhz%IrUKTAD>+8nO2=22HGd~pX<EKwNCAfR?UKNtE0F4{Z>k3v+F4ADVjKi
zdqVI+hbQS?DQVej-t_uw{r@E;&N|0jw!6h}$#UkO#W62JEPdj>cvkI-%Tbz`#JTpc
z?WQ?Xrcdk(JLdE5m(c1Ni9T&SoZXUdiVjuuA6+PIA|tVwS8(<e=}(J8CoHN_&1m}J
z_|mfUNM_m=?k~&su6mlKJNr=T8kHkUZe4kMYTcRKf8Kje-xb)I)DxWa_7&@k2TH$+
zU%4IQvr%s=OwZCicVO`~iKpi*d465<&r%Yp7CqHj6u5fdU4c76u~A)1V*{TqRrd&a
z;C*A&<Gh)NlxIYEO@6ee>e`F+s97T1MrRu88=kDo+L+Zc|1X>V)d$YP>++5nSbYuG
z+<N(pboaWZc>$t{>Al`fN1Dvu&3+mCKSA{3!|c8f_tjIKnEQVxEXm>Wd$iS?^Xswl
z1BcF>3Vw05zUP!nR!L})Jx6B7l8g5m^IBe~?ut45>%jEi2HeWa=N@?X(^2$c?lFd(
zDKnVfpWv{mjg)BEzq7wpe%^PrMOiNnH9Wc)(JZp}@cH_<^*e)v6DK|mvs~8oRZe^7
zD@Lp5)vwntUEpf&AyD@AWW{d2`-@}6PE48f%iyu<vXIS!D;7)aT#)>8%jE0M5qDnR
zch+YKoxE_Rzz&B;d~Eky{N7!#$PqDG^)Hq$Hvgvw*LofKgKjS-TNm`CzMs@@CG5#A
z(eQGm;@9Uf2mjm<U#0B6{bV!uT8a1b%N3$uE`M=s_X{q5&xy=TcH8AOLyuWhFL7Ib
zEViBRr-qrZwsFFb?j^6Cn7HTaPgaWiASv~~`I)e!10xTwh5!3*%{cDet%_xGi~8kz
zw_2pGQsr(CPJeNKz4C(Sj-UTJ^C#Oea_hG|c_ZIxVwAt~x!ca}$}Ju&GHyKkmZf#5
zskOh*n`Wf@VZPh-tBQu(_Wkr!VO5-ccJ6`jy7pc9DuJJCZO?V*G;WGMeKq;%cAvLL
z9x(f)D#nNYl=VEZ$#Z7ITT4ah?0LqK+;hA;x9)7Rb-P~E>T<MEZ~l2Nmg^rn?|kpy
zAMDz&;`FNAoi`89P~P^@X-506?#b=i=2APe4Gs%!`?NmnO8v4r$FlX)8J|`)oA~Vg
zxusD|mCrfWJ(b7$^@09S=l9<xWxW2Qs`kh0Lh1aoi(mI!*1S&5)~ac6EM<J(X8mcl
zVR8Ca6+<D>twB8gs;)ww-7$Knwt0MOEN@MGcqBtra^cj>2NBWd7ALLm)|`EX#i*M1
z*OBB@(Z63sV@r4KTYaa#hq?Xi>S*3h`@EKg+|^IS^wKWZJow)|jd9oO&=BoI>TeeW
z)!*Q>-p=?fRYtqjp(x{ipOuS4{7E6%ipP!z&IgDtxO{n9gL#J2FRcZKw`IhuCMSPg
z!eG$F^X+Too5u@|1ih)!nk%zi=+#oK-**fa-12(fdn`+IUQ)E9W&gU%ZJQDvE<UzX
zsehB_+jwOWC64mw7N$Ra9KVmHEnV%I`Ds-OYbWRG>FXXD_Uzy~lW$wvy>!K!w+k+<
z%uaOiu2b5;`aVPG-1N9cy?zOGEvL+Tt`}XW<g9y<<f!&pLuAtNm3<GFn6U=+|2!V)
zV7RqRvv;21-Fw?)Ud$5uzEZVMrtR06w#k2%O*Ighr{~;PtF_%{N|^8lm$jB3eLa17
z|6NwhUw!h)GS*AQ!n10aep^Iku3a8EUtlSRLASPIYht<dBHd%TV!vwVCmmm6lD7Uf
z+oqhg%!Y}6&d29w7<)c8a{iPZ+rM#Xtj@I5+Q}@%Z}m4_eYEhShQ^lXQy*sp#Hw96
z`lNkJa;CFp`3-O9J2$RsmT_;~9eG~uir$7pF~L{2?%KO0Zql+|!Hxx%x;0N;%=fAK
zE!MnFy|VvwtE+r=-%O4l$5%Q9o1~f?UH>!p>s-&Lr_UbUkZb9q_kFKoa7OfXi6<NV
zrTS*y*?5>;;HmB+{jd4T?XhlOSA|^JzbVDo%tJVFaidh3NT#>YslQuR<(v_FlN0PX
zX=D7Es%?y3+7mCDvusIFlmE8t{qDe=k}`$K8@_c<e0VU#CMZ;mcU%6x&1|=K2G%cX
zpJMx3=JsD5u4!_+&)99<t#W6F`!$Elsx3>uP0~Ce+WI}_`>X@Uzog&p*W0ZW|F?ZZ
zonFu%zIrYurn1c!-pu~fmeQc+KY7yQlvCDzm#_BQ)%^eWbN#QQB0PN8H$L0+XoW>k
zul<?Ug~z9Vm@e<Qan6*bNhU9ET`Aw8sF$4QcWL)$#e)-ei8TBdRrr5V$MsX>+@+tr
z0{UwdUMihSoFa84_}a&3g*R;dl$fMHJbolP_fg;eYwZ*H-*PSbbiFz6NZBjpFxhpC
zMl(eu`X_xmZ@=i&ri_=H;-;-Dk?z|6jAQo)U*<_)o4&k^xKNaL_Dq#yQ0uH)iXq&E
zvL~J&TN=L7Wr1d)%u~M;OT>RXoVo4KqHT&w4?l^o?Rp|4?6~+_MsxZTMyX@3Teu6p
z?K*k+T-=v}-<?a18kBx)m{sPR*^;CqpEAqyWcFvnjjhs=pP3qZBc#u&Y?cX}`MH1h
zpXqF>*Yp^ER(H;_xc*zno9Ui!<82W?y&d1yI80cwqV0F*8>dUsNikyiNo}vKUc3w3
z8e+OXJzwnGi+xS*MZ!ue%l==Rckp6JVeI5B+f5SnpYHguLgdet4fpt8vE)a~7^L;N
zNDEfz8CG0Tyb`K<bSZC>me!_uXZF5v@0x${Rpm?X`~Al%3NKgQK6KY$=OlkU`Id8E
zV^Z@HyB5vORTY{d6nV>+;Ub6c_gG&2mip^`9Xl^OAMt+IDL%WYy(@gyE|2<ahr|AD
zUs>AlBCDI}@|ontZ2!KfW&Sd>i_u~8xlo|Tt@7|`i?{LG8ixh%E4MzFZ{qx_M_4xS
zZOCSWY+h&XHOC4WnT29vU*|8BDl_vD;+n?2Tx<S>|EYH><~l~ZcWl_#c4J1>B456}
ziUD4IFE5@BO5ZhWicB%vQt7)nIlgiczve#Ze70rNjgXVScZPN)GJblVII-yRP7(eW
zTxVL;MILYT+VEN~*z(89>Gx-Itvl)HdgRbA$tPiYv!cBFxI<EVA{WegV3o1Z`}_NK
z*F@I-eIk_dKH-e(f{mvFTMTbob}>XO{Q60K*<;TL$%tFF=KddUE&8)@T|sHN-L;;D
zN;wNdvhLQsd4HS#jr?6lvHh%($F4kW-D)a0Il@`F;jK^pamjfZkK`oMf8;%>OTN7F
z`S;@jH{Hy>e}65&)WKQ%d|v<BH0inr$?r{_6+c*ou9fh-+&i83>y)I_nEE^o@e+Tz
z_|0pcCAn|j;pFjDqKE%uhpbqVRj3-<owbYaUUS&aI^D%>m)UnGiOTtBb5h<fm_PYl
ze5B^z7e6=8xB30ZZ-v11G{;<)@6u~OE>U<R*Z%YB^!c{G9~@49U;kr!d3^oPZ;R94
z|Gzx9;@iLekN<x^kgwzT|M_A3o!Zwo`|bApKKbR#?QfSqecaA<$DoGaZQ|vZ+rw+;
zp9!e^)|<Sxw0(;1l^vF@=RTeCjc4sw6qa746(6nPb0th{{nuZ&_w2iSkY~ZeQe`QV
z$rS-FiZyz+zr6cu)zVNlTW$3U<Gj6YUE#*Jd{PZ1-MjqPn|mZJ^ZtA-ph3U(u9Q^e
z-2Ppr$Jm{dErKrhF3dBU^Vy@s_`0Q#?Tx@2PYnK@J`+>;#x}j_`R}abv!iDm-<lri
zX#L<}lFy5M-Sf8{S@Wd$$i1SAag$h`<HRqfT6wgu>{pN9ps?}i3-g?#yKeSdOw*0n
ze4h8(+zPv=+Z)Zy{v;)=S-Sg##+&zlzjQObKltZQvv_K;s@a;0|L$!p6cvr_Iy}Gs
zlm3fq&%7$z*{gnO8!ozcyu+mCP~SJ!M2pDG=ZQb(-8p0VJ7Qj*`kpDvT5nw0UR)9J
zFi9=(d!A;6^pb2xNAGl-8yBT?T;g3fiRA=M^8WwX$Jt$}&Wk77d}D`qP)2yy^%t|t
z%q!1dc(T|p)OwnGx^d_EPc}yalWcRBW+#h(m{laP{N*O$gF>k*i``}{Tam@3RD9*`
zy`?kvZ=3SW(0XUfzR%Lu*HUs>?U#L?yvbSVqs=krmH(BBmRa1i{MH}!`dsgM(db)k
z6-C7<m)Wc0if^kaolSY(WXk<<mC3Em?fZP=HU~Y~seOA^`sZyfmQvc)dly}Km*#1<
z;=O^>rh7ZCea(K?b8KIC8E37VW%?eY$8o>DhWvDmQ%{bYf9szM|5T%#6CJik&S_7b
zIqk#SP0lOS&zC0`Yn|9JTPgD9_S{wcN8bdwWz<d!TFN7M`Tf=3o_*<aZp6Iami5{_
zc824}tuLe4i`_pr_dK|z@_9-_YrxiSq4PHU(G$=6GcRKe-7oPjZ;Iy9<l3;}1GQ>l
znZD0|@=kYq^KJdC&1;gML`X#ink_51_~6TqN0sv)_c_X%2Cjd6JE~6n?1g@5L;jOr
zn-@OQ@(Zao6Z{;Kms!obRq5QO&CGLiuA43Tm^5#(-=#DuUp8aqS;pt9PO%+Y7PtDk
zGHbHg?2YD^W~Qt&GcBxJ6&m!c!R(=uzQX-~nZCSJ<o<Op?|q&5vij_+<#(#?Hzwp<
z(puUR9__ZRVcsN_2k#fSNp>jPemT)&WITEG!k3B#QyVuVUz`-15&2)jS9jU+vY^W1
z{1BV-pPueL7<|3L{k`&oc@;(RdmnC}5yoU=w&a>pnD+Y_>sGp7n(#uymQUAr@5-fn
z4#oDqQ?U|Am+a|_yz(x)bHl#e((IaOu?2Txo@p3V-ZR=-yk6=0e8bx%9FHc6Ope+%
zhrfC1hB<{6?{dAEE_<>hemm~CKBX*uZRkdq&@5w53G>ADf4A&cEBtNWlrR2ZZ_CLI
zPFZ5V4=g<T!f5w*v#y8gs;doT=4x6leeGtR*>XDXSaQUi<BjiI%6P<Hu$SAaH~Rhh
zI;SP`$MV@Z(fPY_`)<E~!}YAFnA^<%krorn&Qzc6E*ZDB?z>U&`K)<!-p<{ble~W|
z@Le4Ir}?h8#B5`ec@_O-&!0GNohEDb&NgJh1rwH2J?C$S)JggDU+O-UpP_X&F7U-g
zQLZ!V+ukUi+^KoJV}qf2S3wr<z17#g*rq18UC2H2t=j4C%>Ac~rTG4Tl{@`u>(;|D
z`Z0?=x#s1x`7j?`H!U_KJ81n*vz<@k#1FbxFaJH|k_K;@%-eaLbIa6XT$7gR=UQLo
zTeAMI`SXX9B<4k%)V}Mm+wS(LV#D$hhFGTB12a}{Z)13IfA_L@mOYETcDeWqO|aXQ
ztx`0lv2AAHlJhymE+HEQy0q6B{mNFpR&Z4Na1vLE(}sszcW=@ylox9=6uWqPqm}p6
zxAG}|>lQyXdtv=panH*if}$667v_b;ezE(UC(bn~dcS(}vAeE!zueq*_jCl~vhRlj
zo^al<5!gNRuy&DV&z9d`mcROW<gDyU=FJK`_PaE8CEgQwCZM=WGRt}653cj4*RpS%
zxGv@Sxzn%ad=5&wI`8+Cb5Bp}MT@_CklvfPz~T1EcT(CN`j@5W1mu42l)IT#_2w?`
zhGom@j__^XI_FZryAwRVIjx*OV)ayJe8}guUXokc#`)~VV}o^{RQmrZ=o~xSf7bTo
z4c!x&Q#?)z<r?j)RJPj85o5aSlGnBL>3^d#a-Yomt1s>Fv%U7Fn0m?C*XnQlKh<uY
znpKp-G9h1GFSKN?+2RAvMO^!~1qC-9o9yw<B**N`VS7naSA7YN=I@m?cdZM9zkS}c
z^M0)7&j)tD?44(nhn)R)W2@W6(@NWY<mX6gE`GaxsqwegElZ#9r))Xtc)BFzp@Z6b
z-#hn|rep-&^VKkQ&=EPdT-+<0P3Wh{&&&@}Gj0C8`A~nG^}#OogwPb8Eka*X8#@kP
zH)*Y~?qi;(vCYb|-TsEo;)LcOu|0nc7qR8OvOn_Kk>P{5_`aJOR+bN!o@w3T7FpT<
zQrt_QFV&;6XR5vIU#8zT4n)fY{nq^Z$m{f{6)^{%WvmgIAn<eF|A<X7i&H-c9`4w^
zSo_Joiz3NKW}eyLYIQXE+=m`V$=QoHSmt@hSD$kJBXjJ-O<im5J)fR(=^g9&bYI6c
za=%0B5BrZ_Uzp81U*j=X;`;VktF#}k?T#_6JpOKn?u<XNa_e$uc6iP;oclTdb{SvW
z{N&8p1`C4ctjYPX?drcg>7u+B({(;vS#f6HiO$o<rluyp{<>YFBld;%;uD2$E2WoC
zWnawtf?@fgZK2bYK7LPobM4yUtdlnNVX{+YJyfLLU0E{iLeWi$NeR6dLw3J>usEzb
z>v!Yvnwt|DfByaaeTk;Z(=Fl482>68X(iXI6tw-V+I1)|Vg8oXnXKPzE!RFYO#UsA
zcZ{81A!O?v*(N8s#kqICADb@c{_S&8Z1};G_qAPb9Zr_}yX45HU7PMMI{EtAY*WdO
z_LnCu)6XWH+|4~@v%$JQ%T0gvh=sqj`(QL-&x7YDA6Kv?3AFD&$gc5J+;P3CjEvOL
z#Yd$57<-OucwIg=Ys1^=FK*XO%rjqN&Af0=jGCeQt{<JL1}hKBu&aA+m_Fx(vw!Z3
zC|=X&=O(RqVUcr+v)8a~^&#e;Dmx1|mX&?7Z8lzi<NnQ$pR<={WZl+~2z)k4D)Lo{
zUXbKBy{`!sj^1;#c75Tpv@zu1WKL1F2=!_@8*<LCuS{az=X<R`yl)-(WwE&A>i*uj
za$7@^?DzHV?s2=`Zum~^nOyYqK7Q*ncO!#}?@p8Xz99A7+Dn?cOSb$eP4f!WTIu;F
zsjL0I$IbMkZfA}!n_8G#VQOc*O7z6fkBP~Xg@ueC&63mRwV4|<HL2PBs@di19T)$&
z+{-Z2TDp3PVRBc{tsHJkzBM`;`wpJ#oVZeIPTp?w?E4q)FPXyhL-Wf*Wv{Qd7beXr
zYDzwQ<l}Uo8++fG_^OqcT@upXclh^$%3GcdzYKTCOLZE&uDxFRVQWRx<cuFPKh9CQ
zH-DYAj6&4edvUu<lxlL0XRK2XYfjuM{q~gHq?7XE90g8CZ#^iSSKeo=qT`!$mBsLK
z)!)g-X7f}VNfr2&PG0SEcGjCYi(=cHqy>48O^V1jVoS9Q__<{BHD2!R8#344S9o%4
z@0+6CMKAsRa<&{l)3THO`=&0Q3`w;kVSTr_IH&peo3w6R`N!8nY4z&FW&6K%YTe(T
z<Jj#pVeRCj76MN;zdC)+Mo=f^)6z|WRkkrl6j>LTFl?T)p@a9>m70?q%va7<=yU5a
zJzyzVT`9+`u!8l?m$D7UC$>$zc=c<&R*C7o-ImLy?$~kf#<!LS?=@R9+vMKOv)XTw
zdE7Q<);ay^D2?9sy$vT0NAJ5_pjq?a2K(vbOE2t>YFcw^f5@|g6V|xu$$opeJ7wX-
zHw!*VcG|v{53jnKw>eM$ton1k$jQRjs(Df+U9)yGFFL*QMNQ%PrmQ`y4CA6s_x@Q^
zzdkC)=1AiDFWnobotpmsuE{cA6WyMT%Z_H;_wds>KC5!_V<*u)xidX7ibaan)ZR2$
z5;?hlrIl^{?h6T9yd0OuR@omkIC}h3Sy1IAuR>c!ThGF3sj5{wU+hS?oA@Spq5MR#
zLn|d$XD@ma-}i*^;O(a6GAnA2x9(eH@~*sCZts!egQicb`ZP<$`JSo1sQNJZ<O%DG
zH<HgU6Sybrv`6*W&6~2uEL{`+Y~$J<d2Gf!t53ZafvSRQ-rPC#UaU>8B1~KR=Is?{
zPrI{S<%qudI_hmGTlL{RD^@dI=U>5-r*I(m<eI(v!hb)08ME7L_ec9}#%47(OIW0x
zqnWsap0fQrliG2lbe?>-z}BP3R=FAE&knWalAaY@{cO4P(ZyLZqK8^8e7vwDZmN0X
z)Se5$)mN@K)z^qU+%Z2-vLU&!qp<QW@5TP_$Bri@C;uotJpb`c?Q7G5BR<4`d>|&F
z_cM3LpRTX^M@-p|@H{BYFXo)g;p!h*_I`KL)4ylGmRO$_H+ow2y#D^}$i=y>+sqg6
zm0f4$?H5`WwMC~!Y5SfV24Vi2nD=qGC~jDkV`1MulPmAD@blk$j{QAy%~PY~^x|@B
zE3Ttnf&3Ypc$Xb{bZz6}JM%fZ61x=t=(Zj|c)hULz0Ty#=MP&i7bJu;#BX$zew=Q4
z=3@lw%9-9pR}8(a`D>2MzF~Rc@ezjaYaerVpNs##YU}k%n{SRERy7AbH~w~a=HtfW
zUME_2{^aMGy@Xk79p~%|VaI)oiX%7hEqQbL|0ee*Umr8g{QGWQ9cOO&_3YX|rma;Q
zW}gh1S#x<+{|`l{iaW7+PXjq0KcB>PhoRu<g_(s<&+abc+`jPpvU2GIv-j1#Klvb+
zPw%~Gbd{K7#T~W_EsJ;GPTpgZrTjhSKF6(1*AiPCCi<;0ZDhTv&vNJr*Z%nB7nGTn
z-?d1sPRi92eB%DeRPW1<KKuC*+?zhf@o{Fxa&0Vi-nswNpIh%H%$ssoxcSY!Rk4eA
zXGgFv&-~8X>Auuzui)}Waa(pO9#&+Lll*pM9iM96g#$+~$W1UV|7c_P*#F*&Yj5?%
zn&nSTs7n3mZXj7G_cp=TEazBY!p4hJ_g?tScw?4q!`|v9L(8s$^{gJ33shyjR($t!
znB$iI>Fw{tYhNwyWzO%D2-xzwabEu?#Yf#KUdcR)mps4!+qKO3<&68QXYnb%shU&l
zvUpXo@Pw(U{s!ffTYlTgul=|n`ixdtOW_y6sozqTZOOFW@HkTO*G8#F8fza}OQg0u
zyL!+wu0`(sx?LKZdsLT6#S}>U^w0P#QWf*eOXtkayi_fnKL=83<|e2fNIn+fuJ5$&
zxW$u>Z^fazcBeX<NNkn1xYJcCVxKQ$aXZvL^b5zv?ij0cF+EqmN?lm29{B#^!DADD
zCKWskT#^}W8D21HQk1M!=6cP0db;aRaCkm^^U`km{9Cz3n*S~zOA61C3~pZZ*3psK
z+0{=@LhbMj%|lU_4;8PqdbqONZvB!^lUHr7I)3%<_E_0l@0a~It0?k_WO$l0Z`*&f
zBG-quGlJ@$yt^Iy;#^Ykj88q!KRdbfhTr<|!Rbh+#|s@(RTHx{_8G4;9Z%f&RGxZh
zvln}iT8#ILZ>wZ|GL`(^RrYL}b})V8>2jGvy}cj!HvFB{yCC)!ga1CkEr+YVrpep*
z-DS`(?`jN7yyW|z@wx1s*B>1ZEY*AZB3~!<$nJSNrhJr|87=kPek<36B^eL<e|#@L
z$oivY=`(%vo4?!>H`I!D^eTjkZ7%XuI(~hMx7C`qujS{C`#tgx)17%LCTH0pJJ-ES
z%J|n#|8o7B*DaOJOUv@Cj{ELS;V5jjza`?o`d9Ml1heD2zfSTs|I&WN>z&H%h~$oU
zJDNTBs=R!-FIHbNZ{3tVqH#}~Po#xTig+=3js4Av{(B*Dx39eX-??3L51Z)OgxUZ8
zt-j<D{&TBV?v2oU6>isVtaU5?dfl<{f&aX}_IDF6gkV`V3|<KgSvG8BXvvkDmjdRP
zn3`cO8#XaDCuZ63)!Mu3Q;rwTpLg9w#?nyWiQ<mRQ*$fcfA~^vp260c6d9DHD!6q+
zgNNIOCzI|hY}+kjui~x$^LlXT-P&Ed{J+kbdHSv>lk>fYcPyWOdHHMIuh6gW-%VQ#
zI_mk<{`oaOpZx7Vbocpvo5*){O#grXIr)B`#;=31Kc7$5e_!{7r~b+NONNzi-`?GP
ze%_PSSLYW0TJa^e;GM+dyPNgr|M?XsFZaNHQqViQwetU8-mI_wln{JG-aez;M{DWs
zbo~d<|36LWi_*PyuYO+rUW@AgbL@^yIrI1B)kI6R%|Bf4+S}Sl2>0E3`8%Kg*Nd1>
zul}X}{=NLi_X?kBcB>YD_xt&Kzr~GY6V0lBPt|`eZdBhAJ-4p@!mAZi%1gAjKj6M!
zUm37LXLWLH7|-|n2j=&i-TLEsJUK#Ww_x>!>+S6Q`$IVMSWXwa3qM$UP5QyPJ^v?~
z?YbTJy8qN+zRO~NrE797o%{9YaihrTi^pBB%Kv{R7yfX1#(UrGe?JJw{%jSDON~t0
z`$3<d|J#e6Ch?#A4#MKoc3Dh)_s5V`IJQ!5Ps$!+_xbuU4;s6}HMjU*vbtNysB~j@
z``1JFWnKj>eLf?3OSf71SF2r5*xT7_dF(WU^)B|sKklDZ7aixx_;kwksF;4+TYKic
zV?2>$CR^I`z23q`$Kkr_I-g}*m@d^8UHFv|%JD&0;EH^s`cM9O=8P{^{8=DW!_Ob`
zDq^15(?=40-ab8N{pOobtZ21oh|>M_uXOUv^9>n-EEl_vu*H>W6sM-!IVZViH&5So
zum6at<8=RXU9%%AR|<Z&jMv{Y+mG|x7uVQblJ{-@&)xew{OxTe=XEDdPrZFVQ9LMw
zi{*Q1^{w)^R(JM2=zkh~??it1$BavV3}c0w*<a1`|G>@Pzv17%{vES8wp@#epK|qp
z{yYD-dGk-%SM0T8St-^~m~-k<KR2`M;kq+<9~-`0jI(_7nf-m=%=|fVKKJhX&+4kI
z4G=6@@%ejXeWthyugL4^VmqF?-d?J#W2o!C_s8$_6QAr<^Y3^}oziz|R-tldUC$Ny
z?cKNhcHJnu^o4tR<&wM2FVj9AS6aXL8_UExmG$w9Pk0y_x|ZG7-jrzDcIN!5sdi0Q
zwev$`YwN!^+}e}*G|-)|P3gh?SxbMsK0VE;)GEPomDYtgL*tY)(?0KBc9LsjbI~00
z&5Jf3`!s*v$FvPn7vg=@;=X^2cdfBp_ur*X_j>layGLqUv;R7zq`OS|dCyA8Io4k@
z!1|e$SEKrZ!pZMuZc6+1-}2<kO<z{678hb|yRZ4I_<&qSMF!K>kBcUs*cJO+ZPM}P
z4AJJ3|E`@{KkJQ>LE&$ey$_nB&InH3Rg@C``RIP8PpcCSCv19ERF)!q@94RVZK7uw
zPG5_$aMWBcmig$)g!Y4ae{S2(ba;I}Wswk{E#nPK1NY+Kr-}6r7MuEK@t$DyzATcG
zpCuD<-9D|G;s4{PkH%k|4qx1L<lVPTcbhy@^;fGkOe@OzzAA0rj*D9MAJnA%K74d8
zxWi&3&VF`QeBX)t^31E1@(Xe&o)w=kv)lH~bhq`Vcdk9(b8Kbgnzh0SkKMw1rW;!_
zD&10TjJ|zGdEfr$#y9;~uPN@XKKgC$49j0K`HeLRKbq^^g=D(^x?E)!$-l)KbN;L1
zy4o*G7#+Mt_WIc$HI<s+`@u+JaY*kTm1ip+q^Z}Jyb#!T>&45f8qGq|duKn|&8L$-
zUDaA;{fFWf(;K$a9GlX-{vDp2{{Q23o2+aRC0}+WiLPbbS7%IKw%GkOOA^nWd)M~$
zo|`aZv8m)#tvCBvof)Dl|0n;sR=M56Z{GVENB;g}xU__KM{LgW^K-vB9lO$4eC=m{
zJ4f23sSF{C-NpTryzM6oPH|%GS^x3q=2QclmOravzlMs*#Qa#kXu`(tf7SBma_1dl
zS}y)JI;L5TJ%TGqdUHy-@SXz^C%o&N7Jl$?F>NvC^C|D0Y$EXQ=`ojw{pC4Lv3(z{
zCR-obWqnTL_SSFZclL7}6!6%Y<G(XE%{;s2#LK^ydCjbT-9865JU5zmR;0l1n~l&7
zoiA@s&$c}r{o<(GMT5g;IyusHdnYPBF<J7LX_mB;=CP2y_bwUAPJgoL5z|BVWkK52
zJC4=AYsl;D?)tg-`~NLo&I)4JH4nwVx#AbH?##Xg%<~r+bFKdRAzRMfI?}de4XX^_
z9_iH{lhqEbZdmQmGym~ggXPJ39Son2>Qpv||89JB|M0QHt4#J>TkkskQOI@PymKqn
zrp<ES6L`|{=GIx44{TL^%yO*X=jDd{oB2yW?0DIE`L(2Dwd+B%$J;HJiaEVkv5Uy=
zSDbz8Ph|PG&+qxfWG^RJ6`%d{>iV6T$9kJ8UO8Q2tYm5VvVZ+Kh0n+S7cd+%esPKK
zoB8D()icx1^0B2b`S9P&H_&dp^Kw_Z_w5y_e>bT<>1ypc@Fr%Fg9`J?$pLqA*!gR3
zzWl7aa9h2;CkJ=k^td}~#pYVu_j7#LUas$O;HdAHkDgOrubS=XGEw)z+`e0@cK+^t
zrE6<<qbZ%&k9Fo2h2=G~Mb1pJOXGZU^km{^wZ}c%U;W9is+tpf-fr8|+R5fp^R2jd
zUtbfrY~7l)?O8^JwYQu;%`{HXkudmC#u4Z6&9`i#hx5(9Dmx#1H0Qm#`_HD*drvw$
z?iOeCn2B6g<zL+$-1GKG<3`3ONgKC!x2*V+%TQPPST2(Pzu*<#b7#ye1O>QvxFuZ?
zpF82QcEh~fIos?mmrZmnttnh6aN%c;Z^BnI)k)J9{pi}9#T$6R%~`Oe;`i~+Ku+hA
zz7JTk4?b>Y<+so@&ua5EN|H88;QM)HwTyvL!sK>_fJ>H(9<w?A77D5;?)+*vbEgb%
zQPyd*cPb`6&!zP|7CBs*BXxYwY#Whe!^`_4GEa!y=nT{;?z=Q+L3+v}4!6BiPX)|Q
zt^2UBnCE=@AKgEVJxl={Jf#o#g=_l^o%xor$r*8cs}A~>a5cY&JFdjkt>bXQ{1WjS
zB|MBga*7+2-(RXy@R`2(-W6%z^L4ZLM)TaV*b%HSGp!`)RDfQ)$;RaHr%a+dY_^1a
zS?lm}!!Ct&Ru&OWtF{@JO+37MrgNaMi|?%S%k4`A-T!{<e)eGM4C?~b1CxE<-k!JQ
zj_OTq=7MO}H%~$u>{%?UkCa-jcAayhztWB2@-Dx2<*KR`Rdd=VoUDGg`d?6wvcImv
z6y4bBmCJu_JGuLn<D=KQv->x=EABQ`P&|`=<Tdk-$qV-07J6IC>ho*k+~?x5$L#xd
zi!Wbx&D>ArytGN_p>35Xc1KJ<@VRX3vI%z<Y;x?ED^<Sry=UJlMzP|?HF*{*+zUJ}
zI@He*oy+wnZ2BXSpvc%cLA=`AcfZbx7un0S>|@Z3B$?fFG_QY46<_+~&Z1{07ws%L
z8NszRxQ$VN@2uJUvt{0;6v@0iQFV9Kl<b|%V#b=~3&K0Ua$G%>nr^i(i|3P6GslDc
z2k|#&-U$m#T%8q~^=wgJTe9xrX(6ADBj3I1TXo`OS+?ygrMud1lut9w+jg(;>7J?b
zW+Al=OM_CEn6Lb8Dy@Gld(~#6EBcAY+3z@LCN@>>UKf*mAS=nObp|6huhogAP4E3*
z@qD{r#lAe^%LUJp+xs8?T0C)6xpn5oW4(ft{in>n6LPZJ#xq_aCU&J;?6O9``6j|=
zb;_qHE988Av3nP<`NiJa8Sy8~Iz=UB#9x0tMexhizY&~&jW)j0VO5)b`}u0qH#J*x
z9!y)(t#xK&eW1*(Gq#CJ25bH<*VgErIBDVeysekEygS~yfbWO3jh0~WCK<jv`Z}!p
znD4Nz*#BdjfE!cIo3+<I{f_4Uu%~rHa`+-W1M9o2DXpFj^KJeb7VP|;E|<B!NOf_`
z3`xn;fj^C|Fp1SZTz#sFpQ|EQveE6V>1!vRY5k21L5>&HehbEmb=GB0tModr%XlUJ
z)_2+8XFSS;4<AXLAly=Gn|LDm${in$kVesL>)TB(eKpta=HB{o`p+}X*_yMNG9}$K
zmL0kN_sqjo&U?`dz6Dh^ya=$dy>e#Hp3WH_7avTBGEZUET@)gIG<&zY;Hu#F6Q)i)
zYH+e_#nH57Z6CPgFS=*wZ?29l_Fc01=G<-TC-g?>{_E2`RvyZ7vh=g+2ZrD8`337I
z%#r!DO+WSe+me6<9Hk5I3xvLOo80?yVLtPAF444$GZi_`$}amV@oiU*2}|{C9Rb1R
z+&_yVtC_lAPTHickTvVj@mD3mS@*fu^{y_mS$Z+IGM<;?%&D&#ojcdhv0RqCFUo%E
z-a@wi<W+xcv|exv<jO7m%hIux<#t2EzQYxQhn6|a^31QV>TnlVx)B<X!ey4eP{}l@
z=ZZ<G$JMXz%<Ap5rDqv`Jbds_-geC&sk}~~{VW5r<-gskdDp*U#^H-=!<F{3J6$;0
zUhTe*<AsF(T8<RkX{{gFu4aFqC9S*6(7b8W61_7&7icyG+PKe<czk2I>r<t5sjf|@
zCa_&U=o`N3&Y}H<8xx=2Us3kMJjLuq-r=RbY=!v>=FN_xvg>3nGejPGaq9f$V>`nY
z-aU(+u`*d}#>`c7g0}kRFZI(uC2n}iUf1Gc%I*l6_cxckXsNPTU|besU(0p=LS|&l
z@4Q7GceMIHY)Oyz_{q9KgS%>WRpRdNO2-)v#7_Uos*`faUE#cdRQ0mYLFbL_>%Kh^
z_pd8ozE@r5RZ)A?L%+<q8yZh4xk&!|`{cB`{jZyozt?~JygPsYzjv3_-~WH*XIuGy
z`H%l~U-tjg{_}bB{@uS1PL}`w=AHQEvXz0(Q|mNcGw)gZh`hX`cQx+ErZ9%c?<*G8
zWOir1G+QU$Zn5-*>-mox?02m3K75<|q0YexU*~JK?5=p-cay7s!K}+Y?t7eX);HTI
zZNH-FA6q1Lkj3otiFanI_gFT#o5fa@uG>_s*UF%DO21Ow<@SaABU`3(XB)fqXV0(X
z6zQ0~c;VYc-v2H?y-}Ok)pPV+QFrLcfRwf09j{e2v#4AOb6P(yD{pahZ$M7`w^{{$
zsXti(9S<4~J<48kul<%}-}9^$HVP$?8SHJ2?G-%IyC?Hrmfm2UV5H$`-^=9XP#7$-
zVPAs$rq?ard&ESqFitLRi)CM9e<I^s^)#=i7yoXPJ65<Wso<Q9fTp^Bc-qa`9S0Sa
zO|xg$1_nHijcfgWwQkeNlpCIF+5fm6t=TnK%Kv`;kvWQje@oqtZnZEeo>P^Se^Mn@
zU#Y2WOLZQHjF87ywok=^_gP{ZT@OS))ypr~oiAUP*AXe0TymYyNPGE>?kAS2X(|y5
zG=FVfVl?MGpUd^St0@mEGmBra_`N9lka_!=1JChWGCT)cH)f}16dyRCn3G`5o7bvU
zWoZ72k*n_zTh+7!rz3*eUp)-C9mMjz&!%|EJo9{qXPQ>slez9Er^?;_GU=P~GwH$|
zL2DOe{=2@Y@5Nh2_n*qXbEJ$~oC4SC_H8Use{pNU^7ZbmYjr2C_xH(?JrF(TYuJgz
z-i~{s-CH-+CtTXNQ)&0ZS53OhsvjQDJ8>&W@2%PUC38id23k+ZbH1UNE3j5LLN~xi
z?{iSm$$hDd7am-9i|vU)Y{c0eGp8<fX9>Ts^X7z77LUlI>vl~4_$7>`R8(Th%%$ox
zO)Wnj(z+w^(5^1({R-=Vs>hEGIj-ceJaDf~vhLwBr+f2%l_}+z?+G}yuu)Xe=l{Ls
z8tlTMv*t`$SXbb5U@5l;+d<`(+68$M`Hfbcx!+#%%qsT0zd`c3Xzy#ab$3Gp<P4e=
zTlYRM+sEuUWx{>!4Oh)s=5i)^&U@N%eyOFy@9k+%G8;Y5Rqs!GvCz$HORzwfhWXd@
zv;f78x8Hxg_4asi{A=fDl7{DmnBHos88zmg(DJ;IopP}7(sYHj9vSrqFCQqH|2#E#
z<Et%<tCdeD8}dKDt8>@S_|uo%O3Ao4Y7Xmu#j4j$H1K})FMUU$Lhv@mqsgy~W{FFG
z*W1$`+x|vCH@m&({*tEXqEEbGSu0cx@7>z5vGrFhC-+&=$5CrP3acDZUS(SQFND#*
z&6NA|qlSf(l;ZieEaH`8&gq?;s<i0hfnyd0>Zjsuzx}($z3<>xOXs$&aU1H?)vlFD
zw-_+ic72GG{1IBreOBOoTjjikifTWi3b{^R*raaCGF5;6I^S#NmS6THZ2G8}bHC=e
zj>^W@lX~PB6D$s>&bTSH?tThuUGwFBpDlK2S1wu42{3v#d3XH#C%3D@UTrXvjPXoa
zlkC0Cq4dtLG!Axt;nSwx=JlRAg{!U_P1R-P(6U>7FhSz~DUS=<f5NgK8{QUD?0NFz
z?`)ZHZ{LX6hR{Ei`+GQhvxC%98CYf(R;$jl`7Z6F^+<+KY3rVDjr=xEk?6Kxi)5ts
zY0i>aesyN$Z2`*}RkxH1qOW*zOi!uc(Dv8)D0}|>i>SHk8+ELmw|)B~|8wdl^_h)V
zT}s}wPY5c#Q!Xpdm;O>WBX7pd&uwx#Ka|&fG%}sGG3&E)*9Un`o4i?4ryJ*3w-;Y!
zEOyX3l#;-Hz_&TR>3wNp#<gobQ?Di@ztNK`mU+3M^Kpdygew>KRkoXHHZ3@Q_`<HP
z2wjKuLP3vYW*%t1cir{xE5&HH^;1{I&c3+YI`)WYH)oU9+2x^gQfC~j;kcq_5xXZ*
zR%yq}9kY`!ZD;U*q+1fTh<R$#`Y%xhCiA9k$|`*$|4UxaN8(vbJI7CpjWV(Jk$I2b
ze6CzStH1f<y2b@Zepa$qPFr)XqVsOPPU|jTg{O?7Q|nW*6^sKme_3lkbxO10PM?EQ
z4x33|_E(dfU_5(Y_|5!HcWoxscf0r<JCxQP>0I!k*!JshrmarTcDytD%qQ_?!iLpb
zew|x+H%n1-r|lM<6QvSj=T6SOIX6D^Wamva7S{uN)ow1kcJm^y-<(D1z1=2XpH$}Z
zZM0c%+8}su#=XmTzGW9k#%A<fanNFtF!i6jsyET9L-J%N|8@S^St~zwS*D4t`gTe$
z^TG98&Tm~7mfvSbZapvk`(*8>xw{Nm_O3c1DgIk6#Pw*_{e~}lmTmp=?TFJ`b5+&+
z$4ieKTGshp=d6Tx_=HDXhPuUv@3qVb+qx(G`<y6_Inu9K&(~&{q?xwq*~WUuzwcal
zuX6IrJ*%YFZOpVkR~*aI{^HNJ)w={tcAUSV_GjLX_s>5iZ0%A0S8~8Z<K)2y+gjQm
z2j8lC@};S4wqbX6*~9b3Qo-!rtcz|xxXCl^;R)92oK7*u`W&O@zO^EUMbf#suiV+1
z@b$xgMbp0ArvkD4_FKy?SmrGLvUuaP?I$gkbY?Dm>HXm9?C4$Bb)J5%ExBH{{_m3p
z{=yGx^0FJEdK4Oe*-SH^@$7%<iq5xDw*Twjt4FgwaQ1Og?yt^@->UKZvO`^dyV7U7
z^~@3XnWo+SG1u<!!(F#)Do!kJ{-X0zIlFS@@w6HHB2Hh~>Ob{+_4^)|-w_(g#<j-N
z=B?Fc_KLneTSkAwgx$suRwS-j7U5|o8m-X6DI9%&m-+1kqi@gcq7DoF+jPeL%C*p~
z6PDc-seZfGzRiG}Z<oTRbDnqmV&!MYwq;JOvYeHAOy<q@-L`!~W{zv3`ZU#<%sDo@
z-0aY)UYW7&cE;+;?0<c7j!jFx+?aFp-+=`i93$T+#k@6p-uK>1c&+A<y#bkPCx5;7
zrsl|8+nz7SSGF6!QRLugxe^`{$fEJ*YVve7kB3=K8=L-bDO+%Rb!F{|{&+!|tMlho
zy6!CbKI_#ElgoE`%q|yQ;@A<k|F`ZzkvV0;J2m{n0)ua|MfdEPoiW3=FW6)5vrmU*
zZ0AIK9`03EUOoM$){EOKwOe8<u3Ql9;^>{%^J3~RK7F6eXESwgGS2RK5UXumnIU?O
zB}ruE=~}nKJi&OIgYr{$^Idq&<G9;j=eB`ril+S>|DtF4+&7mp22EEFh}=B8{n?Lg
z3%6g-xKOuI+v!QTk?fRm8S}lyJc~_cNbKM8O(=Z@GiP0oao>H1a?Xz5bDeEwbnn@F
zWaXWgGfcu*OKmrEGR4h4us+H@RQ(g*8_$R-j~-8#&tgsqROFXf9No>syy(S-g)-kd
zm(^K%tyAQaGvwn?iaTW3Uv>0tyaVTd8O?`tmouw!_&v`&!{2i1!1)seKfGO&CmX08
z;PmOZ<SaT_>9<gm?1oy4UW@d9I%j{btFLwaUS>G)YSDw=S;hbRZ_Z@Yt<K_4IsZ>-
zzuTFsD_PEEeu?Z)R-V)TcGdRy7XP}xEgatc%hVEXtG;b)PS|KC^OIYSbJc2_32qCX
zrB+<p%h-7NhLj(#eD~V!121Py7f-yn^LR2>mt*`T!7Haumzv*7j+5nS+jer3?s*YY
zwfD1JEkC|Fzn=er{EC<d4t<X4`Y*%gt?ACl|Ij2SGkJZ@!))W!eIh1va`(F3Ul;SK
zD3zC~D>>%Q#<1V1)vu1fHZ>~spL0^-3foj4<zO9+`ha~2dD_;~zy8kn)%`1X(@vvZ
zm$LpoeBH?1e0E!4@|+c?tR_m_Ut8~Hx>`Um<@7YesK{BLJT(t5FnRpuo6H`WMLb)*
zlr|OY{$06Qo`rGgm4(H9wx2E+^52?W$-~AY*SPSim*`o`ReM;roml*rU&DCT-A%a#
z%D2j2FP3gTpn4>>t5iMcFjIuN{L!m+53&ya{h0bkAhzp_=p_BH&9;BHE{WKerJYxw
zF0(z6C1oGy#m$F4$_DSzVtT6l`=y44u~5zAhX+<h*C>}>yw{ige#vgDr}2;a_eRc*
zpT1+Kfh$)wcS5c#>w4uzR=v8i{G^zTT(4hdCwLubES;pu_<zqfu}$m^+owKY<q=Qf
z`gO3dAoJJ@3uEqfiF(zI5w|y;pOrQB+wK6ni0hhrSFP=vy7H-{eT&Yg2L~+99^klb
zDRh&YnRU<0ztV2+X7j8vWlp)j>`l#^#67MZ8*a=#V&GS!l^yQX!Z7h%&gA1uYc>@g
zC@PA7o@h4XVNloqS7+o(vYZoN$2<=CY`?<i(`&~0S^M^UeV_DTnRtuMO1n_@YoR_Y
zT6ec@$!%M@cArAx@#y%32TOYvB_A{9jmw#&^kidK>xI$>m2W<a%!r8&dgH_y#{1A=
z_M|6`wdpT8wy`~%9VU@ykhA{uWiyV9Uys?c?oX<oX)|B`(*{@hpWCM|`yO=Vs$$OP
zx`x2lW&dB-r04HCwj#!kC(O5EqibYp-<<x;LkH74x0<aGsahD7o}_%$y6EMG4Y7B*
zGS=x@T6Vng7CYCpX{-5BN#nK5d;D57quB4S<Ng10RbaRB{F|>ID=eHg@8jN-HR79_
zj`kNU6ku5=%O<e()7rChvNG;iu%<7uF1S|8^8RsVoPmT?-K;myJXm+7$25A&KX}G=
zrspZ6Pv%A8Wowt)%`9bD(z$lwwQq~3En9ARWUJ37$Ai;;*L_o0He7s7JiGl$XL^u|
zg^V0ib_k!vv^h!p(|l`e4D!Bx+#qN0wK$@k`{Im9p=|{#-UnSXm0X&h_5VxUW2VT)
zdEQ|sB96wlt7YmfnAdn-GM{UA#Ph(9zF!pA&W<p;q98L{H>PQqiT7(Rrq7Z#=dH8%
zJ(w`dbF+;6jJmYmgE><o>Zb_&I`wnGgDjyyWqqIDDdy7Y|I;U^`BjIDYB$|BOndS<
z^lr=zqc6IJpVrJ>y`=Y(m4(`TZhqy%Wg1dlDR-wYslM&BJ(m4H|FON>m&Wky|6g&5
zr;+dQoPDJwcOQRtX1O7~$(bwJ>O8AzcJ7U1W-2$zR#h1PSy<6<!?o9WcE{fa@r_5h
z{$6<Ta=}vGIIZ_8hHPS&*6i+^EFoXA%t7ea^F`MZ-dqmcvwma2#pJk?Z1R1lpZYbb
zSRS=&6288)G}S3<PI^V+G0R5gGv6j`IVdk+%e;;I%u35rq3!Q9h3EEO_VGL49dwa-
zY5mNSFQ07R8kn%kUwyUq^40il5!X(JsOKefTsi!2>(-1u@2vVS2fVGBSIn9AQ%*J9
zW=0od$MOinS<DwImH$?63)#|XF*|L0f8kua4Yoen7wm-j1FvlO<nO&&Xr8!-`u~TG
zerji!xtju5Z#%~C*e6@L@l!qPr1MuY+v0L(#lD>WW?s*pwTmp3ve;kNPQHA6XVuzv
z%ciFZd;71}^ZLnc((DUeVJA1YtJhto<&LYH-lA{YEvB8BS`}rpci+v`;U9i-z6xWV
z|55R_;s3=s-cM4N&3nH`;y}Uo?(#2lRP2N<PAa}}^vj!!F4M~iTAyDANUn(Hn?K7?
zOm_04IcpxyJn}jG8FQjy9ZU3jU)$azXZx<(oSams_uhb8A--c(3eV;4DO-Ex?sD=<
ziGR6we9_S#+rl27wY#g9>=FJ~@x+%r&nTBm1`p->jvnFVch2d#oUr)y6jSRmFXx{A
z%&F0`c2y7WR(?4XuFLw_=2sV6c*{y*m4#6^o^5(jmUDZtv`n_{4YA%d$EBCPXgyG~
z*;=Iaj$?M9dDS-))1xdmRnA;WzkXu-oUk=@!oL}%<LjhMLVb@;P+BZi?Kkbq<)SBb
zuivfs+4)55GV3hy%9DroE&Vq)aqldKU0+YW{AXLJ?mu_Ad;Uw2|GE5*dK==@wWohB
zzgzk<Z{2ss3a+KU>XrR|O<H`&EGv6^<g!<1G*nkzGTxRP5z!zJyXA=DIYq<Ry2pmb
zeJf&5W@b&Q;pTLH{^G|*ovAanOma=U%oV-oHe<%-ufIMs@A{h8mn}ZW$ZE!2zdh~T
zp0<jo*6o*VozX9!8FxYc$eAf~?ENLB3qq}bG|0aewfnWNw!ZzviTUS#TKIXTz3F|X
zTV<A@?_bEHF2#Se*Ny*E$T3yc;GVysT*sPMeNFk6@N{BT>UXh^S2NZ*U5foNJ-kz_
zsdlGqLQF}XpDMph#2MGT=EL_+$Z3Ar+m{k!+*vh8HvXK#+^;EX?VRfEtWF=jqVhmR
z@yCi3(-&f!bNCnLoqWX<`{&-tS9X@aJ7zTXUHn#cXlc@_1!c$MjNdPo+3@Dm3mKOD
zpMUxO-s5DcRPJ9Xod1fge{*#2<cT3~{?(+-ul_wXdjIoA-KpBuA0Et}n3?^+_{aTp
zIkz=?Kd3d|s7U{tCp6jm#_yXvY$9g^)6OXbq|8|Md{z2)=cQ}9R&32ID?5`i=U(On
zl~oKE6u9GFspzIf&f9y{PeRkbNaKji?4rJVN$*!*S}wSxX{O%Fl{+$Ku6LVZ{-fmO
z#=bvp=IQ@5>e@pS^HP7WQPFz3G+x>|qv`ncQkB3N$M^R8uDEh>bFseg&n3l~r_Ri-
zV@;no<yH3HD@T&P=B4@Y6x_HUZ=$SsJE%<{A*|5U^;eKw&0IN^6N_hb->^NI94)><
zR%A=lo`d#j%BN=pRqa$WzVTCI_d)ai`Us^5UslcB_<ZYZkMi9gnl8r*oef``quuWO
zX8Rdl@y-4=XAK>gPhFA-owfb*+#MToPfPN8DcUcyWU)x%zwtU_y65MOb2hFl?AcT#
z^LegLHFN1H1>T9y@oVQk+uU;ACGeRhzig7*z8shH`6rGZnsWMSi|MSjyx&}<UTd~X
z>o2~rgW*i6Oi|nIl}WM%b7l3)obzAZmWmIZ)Ld5<b|Uf_Yh=LcKl+Y&p-)%#{X8qM
zcG4T0t|g5xJ-J#d8yREIb<Hiz+Fp0{&X%vLX%X^Wcc;3)c+b22uUdS|-=OVASDLvZ
zE6YD8%3tNmDYbh)_ok?sYPS06o01{RPTbU3D{)HPeU8eJ4QllV(zC5@_O1;&m)N)2
zp*?6xP2l^jVpkd3j1=mvjZ+k|U4Mq$`K@~HaK<fTYftyGEz897ZG~^I_>v^K&}T#H
zmzpm&l50FNc4lrUz7Zw5F#LLn_cSj@;b{lFX6>u+s&%?$oE|Z)iF=x$rRtHL8!j*7
zSur7Ziq$otoF!?qBqdocEJ?ob_w<aDj_r15tC`o`ep|G*kmVbT@yW8H@;I5@Ildkx
zk|!pG-4JUCf2O?j)lH7<$}Ka`)Fh?7+xPuj_PhsNnwL1g1)pD<Vf~5myqKhvQghh#
z8CNBH!c10&Z)%xy|HgXnDZ#dB`(Bl9TgK>NW-gItS+PI2GbM7$^*=R<Hp-_wJx?lX
zt-acwQ1pebi(}!F<y<Q{l0(m=C4A&fNURi?^;T%3^@?<k-I2x)?Y9oH9(BzXJRU8-
z-&tn*EN<`Hcbg7BF|FeE59mL;JXFB3VDpIr@wbL^V%LhzIelzu$YsGr`!5`CE@k+!
za>2u!I)@(CSbp2MQ^)l8w8>o24rkxp_ULFl$aeAK+Sn_-FKyf1SKni>(9ks5?ia2Z
zDWm4HAvMMMdr@`1MX2Au?vKHxTGt))U(Rrv`R07v>$JsEN50$FwfWASt!uH)%EzaZ
z<LAn?lA<CPvlD)a+5GoBHKo#i$1>OEPeJc5EnNHU$VY}9&eu+^YqOAD<xs|{|8naK
z-A^64uXCq8UhM62aQ%IyUCTcNt@fGTw=3nv#}64j^W|Tzcv@Fu?Wy;nr_%MrF1=Sb
z-|u3O3}0~i`Nh}MmdwAV_fK-4o647+whQ>n8~!oo@ZVx+t}0)APWJj!;qtW%*K*Gt
z7tS(Qk2hX)-e{NEB|{dYck&OLLuJ&Ks#%F9E<XJ{?riR^ITxm8IXrr{dF~gp^vL2w
zljmz0J_%09D7Q7Zccj#A%Evc#tA6@^dGhDp5z#fXnvAr++irZhW3p4gYz57$_La-x
zZ1ykn7O<0O>09%1ie=cc?3~+qzjmtLY2U6NZ027o@w)X?QLFHY2bb#J8O)V4p5gFn
zZpks<D~{fGbGpOpBol;EKcuC1N=(Wv4mp}tuz$k0n4V3)Y^1+(EHw!#n(Mp5cadTA
zZ`DhUQ)W+*Njh=Skh7R)r_Q#@Ka<X%vwt-2SH<!tGBIu<4?1_`O<O-L`byh^`S&V<
zcO>V}+_+b|drRhBooe%o4`1JYQQ&O%e-W?TGOr-d$A|7b<S{=h9B;*1llNnhx#7E1
z0p)K`^QE(%UoqG({%mi-+|EtPyfr6FGmNY^UbDaV|AbaO`}^+dh&I09Ior()AJ#8^
z>GDQw5Bs%<`l16uhaMT7;&Wcp5D`?d!?5h2;)05a#UArn^LZD2bokA9Zq4$|^QVhs
zls&9E`~IP~xM||`4NmeIMyyT;d7QYfd7ly%-T&>jkFoP!C5vr-)AjogDm<FH_S54s
z(R;zV+-u(Msmr=w+r1^K;DAD-twP7PoiFX)vuT-kvnyOaDO=&4YV`TQ`MS>gH!_my
zoukety;65)lm34ENX-h(M^io~{QM(y;Ps1-SF5K__uw-0st7fD+xgZoB;Q-)!KUYX
zWUfcdaxh5l&Re9by|8-IYa`Z-8Ln~%5;w9}=BBOd)>k&m$qUdsyvj?1yUenw=t!d6
zjauKm`=+i*WmFTrk)jyn-|zF?Euw7VlPT+#DlEAlb@BInUzy*F-1w@WeQ2*K3cRy^
zVZ7enD^-$j93!?d=Z1HCuX5*4yl~aS_gx~_<nAn10cO|bKb(&VPvT-qHrAc`$v<RP
zq4R#f{I_KvT5dDRecP6-(P%98$ZKo-qukO-=Ns2Aj+u5d^J%w<6R&@N`PYB{e}7uF
z%C_=_-l_CevrCu6)t8jaJ><u%|5``D+uc1|*T2cxMyN2S{H(q3;p%AZd4C_io^kwu
zWlbZ0=Koc@=I8K;%;S82TR}s3!+O<wFJA<@?(N+CqCNQGX%&rTjrrDxeoZMpw%%UK
z&iL7;8yb@~$yuz|5&lqrS8;M{vbfP^n=8G$7dhCd&CNfR{@+?bevMo5Z!@`FeKRM_
zU9xh*y=R~I^emNK)#9^KKxoEiT{($<-vf-CoNGdlSB7pBw-o-W8pL`fOZxFH=jt~i
zt`FBtS(^RNR*3z`nXXIk`}=iFLJplsu3j9ImQZq``&r2bF{Y&7d@mjpIOi{5-sYUl
zw{P*`>!w*E%YPhO)M9P>MSR7(4>vdqi(fkA%9PxRz5M>;h7F06*GFG+HW#hP_pJ;H
zC_i~rRZ*kotk|uG*Ip$~iT|H`Hqui@^t8f@^3$uNr$*-AS$SsvzBNW0)8=pA7t3<%
z%}w#yTPM`I{B)IJ<?WS=3(E*}S+1}(|M%C=!Av&~N*Fb``T1VIQ~IGuFxAc=@$CBx
zifjDjzTeSvx?Xi~O6+qczh@yQJo5#=tNpHhbb-aD=FDMPxwjWDZd9^3v_A07mS6!t
z!L9c~MIQ$InVp@wVDh^6neOs3(`G)H)my#8a{8v(YfH)<>J6<5|LuBz^o!Y_h&n~(
zdl6!<wzK(YuRNAHkHt}L;`Ak4DN@IG7u|UD?MKh8@<6}ps*)vvYD`~iX5L<KXwRAH
z3#T9Al%9Tc;(;E`GtnRQ*trFZA6#GYPO%_UU7)mbVP;YB+|-+ivQH=F`!Q-|84ISL
z;ouOrbPK$j$*}mbO+;?=@|N;+kJ>4--zomP`e*Z-y+6Lb_*K<ht$%Y~>(Tm%^s-MS
zIWjp+TBo&-7G|yY64dfvf17XF#Lt&>9Id95JP<qZq2TfT8e8WD0!94$a#@$uI}}N-
zo_whCCU;A=*}eZ-$}bL_p8w_Xyl)DLo4t-Vo8L5)Id3*6-O2lT=7ZGUjVjs4BnvD)
z3S6GsJzIYL<b@CCUfYq!akKT0)9mAEPfb=wyv^R)F-v$?h`46ttlA}^?{D$Fl724L
z{NtNu|9qwLRYx10HJ^zKofW?FV)1szZM)9v_soi)Tz#+Z-fgF+#u3Z8_gz~#(PnBw
z#UIH7RR_2q8U+9Oo_o}mt@!?f9c~p-o+=Xi%nts3Z}V>N<X98AFOiR@6(-fccd`ED
zYPv@C|F8A0N~#NGH~!gm-eSrEF&~ZF5$A<W1U70cI39gJd`{l%n(ganz1Q|DUFLZ&
zciG#&|4(vNJhp0-Iw*I1*~{wJ+fPn7DwP^{^59hCYQ2B6-JggQ%(6K3WRaO&_IZg8
z>7&dE?a8vIHcEsl9LS1xvw9q`aZl}~NYx9u^Eft?Dkm+zAj&D}?m1_}$!Sw%SMNE!
z>`Zij-*xL74E*nl61kHeZg|&Qe&cCTfPJ2(P31J539AL49#2!b>UuXcr_nEJ9`~B}
zGp?LnYOK8@&Pl)6e&tcM%*PWA_C~GwzShQh`k&R^y9{F|h6K1Pem*74xi7N5?Y@i<
zrxp`;^Ro+P=O6Cf5V$N$GS*~!PQUr_&qezyqFW?>w#|QBG_!Qd?yD;9Q$7Aytogd%
zb+U};Og{Hhg~^up8eHWf^RFxI{`0!N^YsO@lh1!WsR=q=AM0nZ{B_Igjmy?s%7)M0
zSLV6?^sAniefj_2r}{Q;y=J8}H}>my_BS~Jo@w_TXWpHrb~iNbhtRuOzUJFsZ@PGN
z_Ulb^tk!WR?t0QLzEdk9)1akqdrI#!#WyLJ_OHHrg>@}kqQkYUd6TQv8YL3K?mjy{
zXUCi_sh~&olb>g^E-$;2FL3l})Y+F@2VZx6Tk_`C)bdwp6GUehtNorOdPwQrZC&n#
z(o+gwp1tCmp7*n8OM<tl+?IbFPpw{UY1}Vdq!19Quj9X8`uKr1&93AZ&haer^LD(8
zdk~tw+V@+}{TuIkW5T!lOPhSJ`F+bv|LK#geVudpi?z+)y{gfD_1p2dQR{m7c<aCC
z+u1Le-MXPs{nqQ~x{jBPaqnB~<P3vlYi|VU3!PY-`t;oL^--C^EWF$tD{i*OX05rn
z^Y`lf)Dx%IS5J9keM?#A&F$3{6-Rc=;JNpHN%e;#=Dkr?zaMQ=+Ge+AvEQ`0vZXU5
zIU+xvU^{<~%U-y7`Es`P*O*InUbyVJZ}%yTWp`Kp;>RD`4mU{h=gM4Jcx~?0BhKY#
z`O8&y^$V?P$e7)K$<(6%-(ge1=zl%F4%62trMhG<DEc1~lB>ORlXS-Oi|f-3&p*DW
zmc8s<ZpVkOrE~6Sex9kid}HMF4N4)O{{0kWI@BL^YWw2$l(?k5+;<f=*%Tc8@lr$N
z+Aqxz;b*-|*i8KAZ+!mLJZsiQ3*ofw2b=vx1#Vr~zVquQ_n#F~+P!UOLz~$b95wv*
z{6u%I`0nMlYt$V+CH;6U8=I2U%v`(sTDi-%OnVzSIi+*GAK(28Z|_h&YP0kX+l{oR
za^|M5E*HrKaa6bFy|-rj_p))4h~b*4c?;gUc1slBYzQrRxU_$P*3n(=7Z)%5Hp?u=
z^?q{XYW+tYHD)CqZfE9Q_k0m_v7=mWd%k4Y+<t*n(X;#$_8%zj_|0qQ^T@k+&HTAP
zRQRfettXVZzd5mk&n)-d>TAXakI&p2wR~#n-82&e<<^C>k1;)N{ki)~uRxdu_e0-+
z>Cbp?uRFTqj@gZqf^T}PB1BleA3J(dFm<18_QTJoUrQS=Ipdn|6j*OA-{6;9T4gq4
z_SY3(cg?=_^1;!%o7<O`3+rxQTN>f%r}-{y($mdnKdkEb?CMgxTXvz}zgPP6{@8D-
zte$|mL>{v09lR>u(9+DD3%*3&60{l~ByMA)?~|IBUXr0;XkuxhV4x7B@0OWUl3Jvo
z@0OETlIoJ0oS%|vXUA1sQk0sQ%T+PwZSC#zDV`JM_bfDvs?6Qof9?B^tCvEHKh5Ke
z@;-fN*2Zh%3!Y9rnv|VZwQTu<Wz`LtXCAQsf8BTD^vM%vP86@&cY1?%WX6wGtIw(G
z7xu@y{QH(?*}0qb|MdTLpN@9(*S&jp@6W%ZMc?Hg?l;%3`|Wgu``xGc{`+?PzNo$D
z#J$$w4VPZ+4xhi*1Laih@c2DHp6<1hc_{D5QM`YReEru~_IoW}J^1)&vB`1;rybQ_
zrS$$kDG*W5?%nYH{iCOLET#XyZJ5)<bMW`?`|^FSmh3J29xwak<cx%)f8D=$RoqdU
z+d98rD`Usm3DqYapY#>~^s~HuaoiQnisJuwe_iu`T|51HMXSB!jvw>iot7wYlm8Rr
z<v(5Z#^jKLhc6x3`S(jfOKV(DkyWhTlAW8EKbT@(vD4mjzs^6txTRl}LU(0bc1+&z
zA^)4GRs5|xpPVJuepTnr{`a2$*OMl*Nwte3{J5sqeeQi5mOW>E@mucyFE_k9`m$gP
zpPtaCf1>BEw<S#7`F~HOx9$VpeQ(;Drq+a?RLR>W6tv>^^{<aD^R~zC*=L`A>O)`L
z@9LU0O?%D1&zHS&(t7Qe+Py`0ulrbh^vn#o7a3Y6aeUIrqX#2iZJ(IZ+QOb4p*N#;
z*3Z{zabA@RQp^8$|9ZP~QfA%yDO2Vo#CWZq9NafSQ}OTV-@n%UTJd>~Ws7a3@A}&5
z_Y@K=PgMV}u<%l7u{iQ4NjT++l;%Uucl%Pgx|M|+ZJ5H3Snfy?Ja9y5ZF_8f(n-+@
zVF{=B(}E9G8f>1<wL4kTykrUI_o^DH9F8+TrSclxZ@b>Gj@<U%cmdaqz_&Sd^$XT-
z|9X^L=Xui9$3HoyrFgEfmhG7I*5QQ0zSeBEBCqJUt|yNAlNGl+UksdaDmp@n{c_CT
z+6BA{OzA8-Kc3Zb1-E^@?|9)s-iO6T9}K2Q-C41u<j#s15#LR+H}4-fAv2-+n(BcY
zlN0A|;nwTrJ@RmMe1FlIxjGZidQNg*sIW?7)9N1zSvs87d#2QW56oyxl7F@;v8-FC
z$?3oW-3`&Z8|^E<K1$cGt5$bda$|+-$K%!sVF^z4>5gU1VGc+CEas1|`S7rQ-|tuD
z@9k?p9<;yLDK7s<<o|p3|8L(vINxr+@AtLt`85^aH?KVOE?gr!r$W%~{;h^4-K;m)
zCtm5DzW39FtV}sY|5FFJyk@M^yZlGb&+nG%B<>A|?DtfBy?%H5jzuT5@8tiHWwu;7
zxl2cIX;96zQl0RK&eYxKmI!8ko~Be`_ESN#iZ{7rV#eob(_3?9EPk^iNZqsS&dLV2
z%b(xxU{?HdKsNkj%#Y1)Dxw~om6d1dh?$aM{`VzIhv><iy+I8xW-@dx3S-puZf8Eb
z`q%zI<6Wr}7o4(}e-n`VW!2=`<&)ZXu29Xo=vUux?rG?}MJjWy%zM^qb+xMLp0N2*
z_G!G%X?H_^|9!gc8?&Zyc<pcJc+;}{qpw{2&gxn}+vD}jP4euvOxesh^<MG!yH3rB
z&wX9RZTPI7uSH=Eqw)0Z&z^p}-KMHB&v|dN#3z0JKXn~$`S%if&x9{rE?~)*GvDiu
z$K%&4stzWsaNN54b??uqWw9Tv8D_t0;(b#RZk+z*!K0;rmaX3NGOD8f^fLb*t+~t3
z<y48pe)cs_sVvXkyJU{J_`>_evf}TK*>0aKxOFn$%;W5ywYJmGf3H6E<g=_qWzCJo
z#Vr0o=JV2ujvr!LWM8?LdyUaY`<o{{F1jd`v3Ml%OpETed4Fb!YTPY9_9;4Np0Z4H
zyViQK^N!)d3tQd7Ke=5G5N*$XC)KyBb9x7x?!FbXeD*$OnX|)Xd%f~J#_Pu`E=>O#
zEfn=5!<4CGaqPRM=VAN*d%s&Iqq;GxR`eB9$t~U)6K>6_(B%u1k_xJfmv{T~-Cm|a
zZQ26U-ikfPo*#PDCLwc>!HFZG>45Rn=9AYnP8mvO9$He-vDt8e;K?g%3~hvjE$bP%
z-!(5QWcJ#Z>Uc%!(hJTxZ7&}zcHXop<>ZgZWgHU>%VOMR7}qUk{vB>Iaj(8X8OI*Y
z_x5bsfe*W91@O+io^58*ar%X0ZRCs}xBpl!(PZJ?c1h)niCg%mxan_KuD<7T<kPKF
z&u(r1y0diRkB*z}S5@}9teo89YjnJNQBSd|(TmAhok<V4JB~&Bmb|P>>1o;E(ev8h
zw<S!o(P=^Nhe@#w;)hRJ)c^m^&R@-b?1f5>>%O<wl-6GT$?z&=qEiz?Tl=iZEukxg
zR`1|`qI~B)-=X<W9?6J4SiWP*(U%#PkDaF|c(JSO**<rT#}mI938}K10`gy-w{_-C
z^r@>YjJJK$x@E&gnW>XqR~x!~V)*p?_?#WPv^+YM1xi}xCvK5T`6;B)c|G8x{tb_U
zDshi0tM@`LxB9AlKRxfA`^8mG4sT~{SB{S=vpD6eI9s*PXu`XaYxS-*65is|e&lJ$
z%we{^zUgPr_qhu^mlVEJ;k9!(RhPfH%5pNR`=Y`JYpZrGp3CH%xx#gJ-NBX3vdqEe
zAGA`>wroG={LhtR&bf;c3U!{T1`9*xG?`xXsM!3^&*jqZUEE*GmE<P}m?U-{GTRs0
zW)$}Pr1$55#Fy6>9$Pr2df%dN3a9qXvFB(D%BbU#@SkeDvdHTC+&_;BO1$RndFgql
zQUBfEg-M^>CEB-d2s+bISQyX0$2UWhvt~lf!C4KHPG@po)7rYr>F<l{&-Jw<{|m6Q
zis`MGHvfTlqPN4HxJx--ii*5^w(Fma3tq-x$0chKc*f=VocL+tr;NNR@>bk_cXE2^
zgh*>u&sicNa_iW<pE-%yOO`pBFI(zUxH>1Qj;mYWF?`01w;K}P=?JNDZqb;=dY0z`
z3)}afEpe@v&lO)&vMDLmOb8O1vNz&O%1h?WUn+z@d{Daku8wt8MxRl|o#h$H9tH=e
zd2|R(o;xvm@dBn>k6V9bh^p+fJ+vp`UYD2GA<IA+jvb%)RSHdn(zmG<MmQ}{44v^N
z`;X8xexB1Ff2}Nj{9S$^Q|L|h+_k>%RsHkw`93&EY}MtPbgfgW<A!LcC7-waepN3U
zuCj-YeS7}w@N&BHm+Oi9gxUPrrS&^k27M{{Z2Q!D1G67j*s}QM4L3UXerCH|&1mMC
zC*g96Y2)nQ|2Nr9T@u!r7VWNEVYjAvTj9zz{f*udTYFEQ^6V4kHG8eAzv;f&thp~<
zJEfGq)(_nyzOv?@@M`bVa~ws5UaxR-zwEa-+ga0mr=?ifr`OHm>Z#La?7DWqnoVc&
z&eh_&vGwO~-3#3v^!A76wz|ZX`!u_=PxNTNe7tRgmteYTNl5tmcG*L<zw`c1yYIA#
zUHAC%r_Ub8ar}*#bYA|Z`MY_|lGfKA9#=W3vU2C!Ytw!F=6mEMd*|A$YB8O*+GxwW
zEpa~u^}IeTh*4u)%<}PqWs#km-mxb+T=6oqqdOQCgEn1jvaG4SC)QD+`1$wk(1<_$
zOR^2--@GB3=IYV0jICRJXPxumJcW-AKjzD<*nMRA=|$>_zU*O-7j2t-G@*an&xLAU
z)piYYSl1;dhkXkRGEfox;XC1wPDqZmmcwE11i9NwYlHPX%1XVgR>xk<o7iTtLTllp
zBJTMd%>Rl~8ovo8K5O&Y6`z#mlkv#;d(xuWuQb#ynH&t-^Z)C?xnGi+ZgvUfUv?93
z%FBHGO7{5$9qAr<{r&$_qyEgBT)f4W|6#GnE{S7L!rPB0#_V*mORFnk|63L1Y0^@=
zo71Id&O7xF{O!s!jwHl?x*c-K=&bGRN$0j(EX^oA?BV#?D0udh2^V?P<BlIr`^FV!
z-jVP#e8Cn;byHF1=-vED3h(#LK2SL6!NNxm!gXAywS=9T`@cb0GALeK_f6fcIkyC^
zPD^{UTI6Mf!)}v{VnVgIPcCUbujsS%YHsYxf`crAyf!oZ*oBi-%#%XSGA#<^vMV=W
zVzV;-Y*We3$No8fU2o&sXa~7K-h^w<Y$m&~bRIhUse8kwRnrrjo(s>4+cUMJ)ko*%
zy{?&4SZg*ad|R-v^TPqw%PUesCO+2Dome6GG3-R02><c6*G6i#|8|;xtKQB~7M%6N
zF3l|OW0=F;M&XoQH>R?bmwrr>ayqixV8W;GAM}!&KWa=pxH-r%NhtaNSM=I<{|#+V
z9{el6+2q?vMv3TTji=^U<Esz<)Ght@K9arFMP2Bw=b85cFHZh{^Q1ic$3rL8iqlnx
z-=DHNr~0Ge{yh`d$g@}2HfLz<h;lUkC@O3Da)!gYjoAfTTKKK}f8JR#!&4@_N}BO*
z&9&|z|ElJkO$JA7eK)RDU3$0c{LKlGez$!CI6lnFKXjq-d5=Un&kT-|dw)%S1fA$L
zXZKkwP&fI3r}5{*L7yM*d9-Uelh)g6VF^3`Bm;{HM<vWc>MHO5_@2e+yj(5IhV!?}
zB^Jfnu0;|h2C14V3uEUQ3C?x@sr6=4=uwF^(I+>D8r|;-|8d7T+L7b#3bxZ4ix*yd
zz1^3iu|Hl@?YGi`ptL%zqsnpbm;YO~z+T<YJBmjx{ou|O*L~M*-r#Q#Q;^Esv99t>
z?rF1b#&x?Q?(Q~Ua(Jprs2BSz>uoFtMJ6||;D2Odm$l?}k&jNM?+(L$MTee1ufu9q
znTxh~Ehz6zT*0&J>F1P*-_)OaZpsysP&@W$cioZ&Nt13EDpmc=elmZ;$&3thNozY*
z-?tC7vRAJ>n!Wi~b?fXU3zmyJ@o3&yYt$v<bTG=IS?*Zxl!F;N)=pp&e{@4Y+ef8j
z@2>uZDlgKQo5g$YoPANQAjVY3ztQB8A9wqNN6!!MW1n8K!A(6t?L)O#eb5JCuW1gB
zy1|<_<~>{CA;h(XanjpcecDAOyJr6uv{IS1n6bJrGKXbi)fo%^#JhGCt0qN%Ik01<
zytcsY9WzhV89R%mih2hg+2nF`i<m3NosG}cd204emWe%cHEB+l&QjjpA8qEZ&*73-
zr?B*@+Rnx)%koa#iR%hC`gY0OaND(1`5v{Ml8>cA<b1!@?_cU{xcu-F7O|IGT-=p|
z7lt@Y{iL~a!uok_-w)WCxU4W!?#VcE^Gsdq&#CSrQ*UrC;%MHqc)idZ*1)#weG47z
zj1#1%r|VyP{w=w7mWW&-tAVeL&a<fAoCaf-Z5BV49<r=@x%4bg^MoxAZseu3DId9L
z&$@_RN1)T%@eNy6^PcBC-JA(uF5XzdW4`iacGirI40~dl_j@G0nb;n`s<VAI_nvLH
z?6&eBD1T+NnT1FAWzM7dau0qw>FPu*?`V}<R_9#wyz7T;@b8Q1YE^R;+?GH3ZGHGr
z%Z<>Jtq0rtPO@rlSt1n?t@S&hW}{4C;@$;yb~n{^Bw8M9U~WBhV&$9Dztr8LbJv}H
zkh0rnXXYlI@Bh2c`X7+;F)CY=t5tI#(dHr7nH&N61I5d<FU(YkHBGx2Y%tMAt^9Gz
zKU2LflkQnpR=Ta%RJ-HFCaJC3u=i)w8o#;kSVXxlEmAzIJuSjZdH%E$YTiAJ5Bg4-
zJuaA`@1Wvzz$^Xvwhphxza52>u1Qs~#7|lhzx(~RE5}bxxzfM=NR;MEX8xlEN0k+4
zpI@D`(`0H~wbpI_P_tWJk;&_?l&uX|FLv_&F_ET?X+bwskGFiu4XSnBm*dD(kz6Ed
zvD&9fsWCZe*-yXBm-DW_G`#WRvERbq$E|Iph0=X@+W9=n&|OwAJA0#<s@<)O*3~Mz
z`p=5at8d)fFKrp0U}x*Oh*$cNTI(cvoxEof&5n0e)J}gn*EzdP%Ki1_V=_}!@9a;$
zKBZ}2^wjnPT^2nDpC4m8e?redq;k0!PjLKky<h7b)&J}^wXpE~b;NdI=f0ocvX6b=
z*R*}xmY)-9FNC|~R9*9u`t#HLaI(X{V`q1`=FQwXWwzIPxrbL@az|PH(w|t|oq6#F
zXR2JR{)C`y>rQ^E$(Q~VU8Lb&ba{#O`AaFq-_A_fAaA)L<@NHD#a|w5oiTM<z!A2>
zPv%*1MP&<9`i}Z84Oyc1@RHj82a*=5f?wliUE02TL-g(styMqHiSCuiVrc#SOvIP}
z53A2rMJwZ+{VLORbcIiMg?`C+d2fx>8le}vJYP@zJU>t>@{3=ikze@A%AUe@DYki@
zTrG1IriMOF+imNwc|Tv}+WhM_)hE_@Mp#^tJ-;vegA&gczT4X#^8D-Ga?UN?V1L?q
z$q>!?+jU#-YPC+U)m)RjWtQ5a<85N@yx)|?7Jm|-kgvZaY8H!=b<B+@p7o9<oFAt+
zhCY;wlUeO(rh6{#FT)Hz#xt=e4isc@9Ql~!&fCFoDQbOG>2B|Hs~F>yY>fDF-ha&9
zQNKHS^1&bn&tK(B>U@<p><JHeCmQ4AX4)t-W$P)Cj&n*!d1`jEe#_B1voHTtfS7aR
zJ=+|GN$GF@S{`8AaPG(J!xs;VRV8L#k7P<%kow4dd8y7{xz&@i>lz(jTITp@Nb$VN
z*FG}o!>Q1tf3#x`&t$#XlwfjRr|pSu*uSLdlTO$dNPCt4H@Ui?ptOI&pZ`}EoR8;?
znk}~U<Kf9(kFEAcU1#N&OWe!1@M&hm*2lU{wI1e^x1Hq4^>T`u7;}#Idq(%fqik}2
z+hV5}KU^=!y8qd}B}+LEaqn}yIU~aL)>XD1DeL1-*^?hU(baC!Xo>7U+vusyT@!M8
z%dM;hKHqs8mi9*-l9JkcU4eVuy58-1FEjs!$X+yyF1k4Fn*U`HT~3K9bLX}wF7>bd
zJ#!)3PGi4Sfx$5@x9ZeR^PfDm>Q<dwaJ-<;YJr~JOKW>yvMgZHR_R)#^F{7{aC+a2
zchw#tjIJxH*SLi(RQ&&a4NLUtO)Ffzme+<}pJyum`0B|Po~CoL+uUT=-ahxmU06_T
zdsarXZRz2dIntb;?%lc)t7Z0PR(Z)mr<%(VJ6yJ2-S{cD#p5eqX1-hEgAYsFHl7e%
z+IgvM+e#@bztZb<z0+hO{(M-oin&UdMUgGnyJ6W!zHo_y-@IyP{)%B)e%(znPh9@e
zyG0=zw%(7?{eQ#OGimFT{9hCI9?pMzQr~y2Kqb>7iz&wog_{&!mAIa6;avUjNMQX<
zhrb8dBXit+zPCj(&p1%{-krVGZP}S`k%^T{n7443<?cOZryUx&yWEs5YUgV+X5P6r
z`ww1RS|6Fe;Nc(7*5d}Rc7|qJf1EaZ=eiVo<_zx--<mhiy)acuj<N4)?%(Ybf=Y7V
zm#6+;`$LaK$@HuLiMunJ&#Nhv{x5DnB%!6@YnOGs^MqDi<L>W#yf2m3u6(5$xk>V6
z>9VA69Tg6Ovx-jSazrJ#@YJciSoLjB+tImV2Vc%SD6aGUeP?3Rw&T1`OV$21U;H7o
zI*hlm<>TL&SC4<1_3jD0eX26+fBe;GJzd^;&P`1GPeQjQ2ly~et-fDkC2hT8;qMC^
z>y;xuC+z;ct&U;e){QfM9D5YodiUC#3N}%p>+icJ2W8pnojIu3w?y~F(a=LhoU4xS
zw-yM_`zz#s_+#65>mv5OOEYCm-x%b+nOgl>Lp1t?hCuX=4}T6igl_!&blZ~sFT7T7
zp4=L@J*DC7`7Nny8SGM8W;7l3Dbh*q&yM<grQAx+XyX>wCXcOVhjy=wy1B-F(!RD2
z+npQkYJ3lJd~2}2NAKRX-ktevcfV_FFv$|X9V%I0<Y%79x#&PvOH=)Cr#{Atfd7?(
zcgj*WJG|fN_vQRnt+$J#Pw6~(cV+LvqRhrt0hgQ$TAkHX7q1nZ<alR=gel{0(cAyG
z=sI_qnO~W~n0zrqcvtgMnH;q+o_radsZKioZIu2z{ju@&kw0g%KFwm@ctAPsfaf2-
zrFCYXRi-ygWtUkHRc-f7H^^>p@63?n3%0c<CkMn|aABIjeQsCr6E*dOHH|KT%$;=|
ztFBC`%k%l8xq5o%uHypoWuB9}m;Gv-(YEGg#k(GU9p~2d-zW5~oU%9ez3rOEx8`N+
z|5wucJ5N1lNw%Nwj@TVZ%Klk?C3QJUexItBcI7NP{Jcf%YQ#S2Y=%uNfA+ubTgL5I
zYxdQ8s@*!4$<MeL<+{#K+c+`KewF0;6@Sh+D=jjYx!~%xIq2F?jnmD?Qg?DD?~b$(
z+_dcF^rf$7Y}@kvNl+#i?=N!$N6t5gpD(GMcWC3BU!w1Ku4Cz6?=xRS<kgJQUB&-q
zPMj|#{^FckKr)kf%uU&x)r$%)Tvc3u;Og<Hse4ZzS+za)7Q6g)^VfM5M<>?qz2f<3
z-NKKyJ0|!EHnUZ1%HRF5@<sGHn^QkqovOAe+J0y}G<nj!B^?5c7pJ`0=FPEN_FlYd
z5WDTxf|;h?5niX)h%qO7DKX?M%i{fWTf=Tk>h2dUY=J*c#}=onF{f|y)0M04o6I4c
zbEt<;uz!<c{I+E_NovaXPW3#C;Av!-Ep5jVzyHbk#Ir9~-bj?`joPrIY?98C9h>LO
z{`9d-UOBqzb(ugwTUn>i#`qkMuZOGZ`(B>VbGf^0*`w`$dzQ3XUcD1?xp-d80k!kL
z?}Y4{(sFLr9g!xPrD2b^?7lqVc4hfV%_A&(Wc;4bNV$1iLB7*hi}||5E8~*4%^%92
z|EN&7{<YVA+SY^%e7@ze$usvZDR5=@d)CXzdY0%<@vjHp`0hRSa`u;+L+{?-zI6G>
z+UK@Au6P_>B|Ky46sJpEyEc@a?ymNAdUVru%chrCLvAgLxcRGgC8zn0<I@kyhG<@s
zIj*4l)9A7G8tsrrEk1hPjNOY<m$dOpNrZa1a-9tA4*a>q^hewShc9CD3KQ>MHs6`L
z_u`W!ic-2M3N9jFuN_Ng-_HE{{$6{|ij29HJZt?UwsXoZ&&rRCy74nL_xYxSA5%|x
zzYyjtWVc(Sw2^C(_e)o~V)3kt9}mp7lbNsguFqC##=q|`86_ScVh-J~Qc?22^E)hF
zTx)H+r62EKmn;55JiBJbhr>H1)sNX7FzXTF+SFiD?yZ^3+Quo-zx&tCSt2nzbmbJ=
zD_lx!W!V^{W<4vFvGi}b|I$1})i5V~7l+BF%_e(t_?HxH>eQb1*iu;R#-A;9UF{(i
zXO^$Kzwt9)?}@Wo^6j7JDNB1DQC)qp$DEPrVNib#gH2`7!HdWFzKVZb?8RWEzv7mZ
z$&J7prg{;+yNfRe=T*&lpt1MkT8`6mOxA2&+43Y}+6%_UtL!W_y>&Yt8(1$Yerq2Y
zKBd-OvetM_+}dx;m3A+Bd&1WI=Y*@vb{;%ju=M_=ii8ZU#rNL)wL98<HM;G4%+}JE
zlRx&~I1+SOfW`JgH0y=ZiUr%RzKT@lmy)=+n7`p~&m!g>`-RSSp6XYBR9I~!I@xPl
zJMSybZRrmf0!r1UmQFCQ%ePj%erxAxUY-Nr4{uY7T(MY0KITA%W#96P=@T8ab&q7t
z-#e>{+cN&pq3=pBL?3S|y0mruNA3qf2`jr^u28>_>Kc8k@0z=yuGiN~J57ZWmnJqp
zEAu&Y%PVW@gzsv%{VS&O8+`IIdwyWcFN1yAfqNab9z05#ptho`?S3G$Y5cV7-_Hsu
zJ1onc=CMn%FR)UkWsXH)?9$SG+q}1EuJ`9vX+H2Ld~Mz_59jMGo<~gPczVgoX(`A3
zPv-k<s8cuj$-?k;%l~)Q8ow@5`)^TxRi8_{XYPAjW%1M3&1{t4Z(#lyIxkRW`Ms|_
z@9bC1x%u_TmUmB5PqsyFcVxS=`+sorzLXoiHmx((#&~~A<i90%Am`af?w;NT+r9mq
zFJt&yd?Yr?2P|A8bMTwnmuFgbt3Jj@FY}+eYtzA~ua-f(O|Dr=UR6zQT|4(jlXAi8
z;v;RQ9VX5!;oUi>#SId~4@v%CH79ZJ?TW1xQu_|xb*<FhP+8bKNA0Uy3g@vK&ZjTb
zM67KMx9r)xyJ&@`hj>q?f&|Cy1L2eMPl-yL{IO}*?O=D8X6@`P_pkMw6m*=qwMAv~
z1qr7Bh4s=aJ}kG>-M@2&-*IQzgkwB2mZ%1bZ9mp>m+R5QB_7pZcU=3M>ho7h@50KP
zYmOyvejYXbN_hdpIX24)3JbC~MjbC*J7+4}H=7@oIXVYDOU0$Th0S`o{gM=O)}#oP
zM+&Z9C}X+pMXBSZ#tsRU;=`P)KmM#)F=N&2^Vi$2?KVryo~#hTxiNThlWW$xbTuLF
zT!WM%fz>sZB^B?PlIMR5F%&zh){@hDeCN#0@ac^muU<Q7O+0&E<<n0y_UB)8-gvZ@
zcE8YV>?wUQO^;(<u;7P;So?{pFF7?<`@KAKjy0^re9y*!l}=}JPdzq{DP1KRyl1QH
zy^9giTXmkkFwIgba*5XaewKT!ZpXQGQ_YJ%aCM5uz4F_4hJ9beOophPAF9q@sVgWE
z{<F8@${S^~*le36k)^ZO^>(GnuRbT4wwL#u+{ayZ7ryR!W|3(U;HxDOBJr_%+10ZO
zw<mEp%&yaolm8rh)mM^lXUWeV@44Ag7jJJ__HpwGJO4S${hl4^-;?`Ab9IjO?{lvr
zJicbEob0+uY~AzY?9I<q3L3XHuDas4^`Ya=sIBuRl>B@0Vy1L{q@mq3o+-k`ygw?n
zt$GdTrP|FaKQ^b3;n2o2Kj+zH%3izf*^)FbW8JaGF}3TDeT?l+NxPgD6wz8OmlJjM
z*3DE?so(q8DIPu-{99|D=anl9Cs-vPIy`;a!;PvPVUHw343CRW{WQf!bLqa!*gN8E
z8QZUM|1?-OYjetZ3!j(Ct9ZX>3kq*<l&HI^`yjJ@yWsWR>rB@q*RZLbGES^-alOw`
zxy!NYpox|3-5L6Bcda+nU4H#$+uw(A%ehu)rRsgY?criv>-s@3^pAPi<fAGZ1d>Ax
zh209LOp|LdIMqHg^w5SMp|z}w7@5_C-t%7EzA%w(6aR};FXay=8&t$^o~nGC_@>Hj
zpL3>N#GjgbTTid~F6pEwIKgXIThk}D%beeYX7_fuY)JTL)mpSlP2hg+|8uN@p&ol5
zeBRyh)lH0Nx^hBasDE0W<#uZs-z%<L?qx(3zhCav6Om&Wd86Gdy16wkO8U*J`@PRj
zY0Y3a?tVLQ!?Ou@&pyrTFPWHBI@7R!<FwTl{;6?ENiSpLwhJFS@m#1az-gC0+bjp6
ztPi1S6MfI<JQiNY_LF%{fuO;g!o{L~wTgm|)jlhCC0(wy7w6#O4~a5U>s7wu8}M<?
zqN;V%mi9i-k(w48uPnJabgGX}jI7dW&m)sf*X>G7o8VPi9my$T@?)*5mO%ka!rIpg
zT)EXMmsT`t>?vQ(9L%ixr>QiSA;syckYVA;yEP8}!Ak`nH*#-VFl9=M*7<m;!tL?V
z!p)7s9<sVE7GV!$ZuQ8o4d^tDyFL55>h2@j@ANz;ekn@kzw%i8Q_tk``L}ob?5(a@
zE%s&YAI%NEpE-1cf>-YK_;X_FkB?iXeK=n{Mey{pBg#!nH1-Ql|FT2jW!JCG3cti^
zvvsV}mVKDw`{>^%LoKKFpANoPkNN1$z2G4^Wxdzd#W|Mpi^YqapD(j$oyT&r`m=HO
z*11x-YCGmk=n3E8&0?-)zV)rLZHF5_&$_B7&($t;wRT;b{w-^-VOiwDY3rtX)d)>Y
z-Ws_`^ZQY&>8c!`e?-lisrxs5X>QZ~sW;hqB`=HRzZQwm@9yb7U14Na&V4Uft10%o
z!jYO=GZ()6_Tb_%i|*C0lImMRlBeB%8>OpeoV54G|KR%nh8Y@(f-duH*;F^Ci=Di8
z-0R?m^qGE1mOCp1jEibcE%EJNC2@Ibio6uV5%C=i2RqfYyCNfVR$n~Uv2T&qAF1;e
zX4^j`#*0nzNGVPK`RmHxA5mU;4N?-5v)@c~oH(%}%+;^=uX)MrADSm_Y8F4;oD;wK
z{=X)j`c!>0o1=$n)(2J@DKNe;+pzJO_KB_GZC0AAi)=!lJMQQ|D{`jm{`OVQ)^9>H
z?e=iqc|GylzN2p@if|V4o+wgn6Wz+r;?-BKoi=AywTtzHYZd8hTm?C};(srR4V>aw
z^6U7<Rfijt6kl9RIr<=z{inpyt75sE%r;uw*uIxdSZ&d=eG?`BMI1kU>W$}}O=mcK
zRDXTda^B5RBja=9`mZAk=WLto`1I8@USZ|Kre(^3Yfewfv9vkS`(tOMced8<^~}HG
z`D#9T9pq+iy%Kh6d+ElA*p=D8OgWA>@0#J1{W8JFVC`N$8NIptO)Ae`XkH?DCC)s5
z=B~5mu2bt<dDKnK<WgFh9CNeRITaa-D6d}I@mxo1g5QttKMgjSHK|N3zVTI|DdqN7
zEz$ZX1xGmxE}Iz@iSO_{^(gItZ`9Wv4@FY<e&yZ5s@u8z`WuEeiF3wU=XPdpE#pq+
zG6*#8l=Sb3>ah%|bnotE*Yeg+);D!xvDT>ka`tP%jRibKi!a?e<8^D6R(9a|P4{QI
zpHROwtLnHy!H>fWZRI>)d<sm77t{2)_~C5hD!183UMy(v^S|_P{`%Io?+VR}58sp1
zvbf6@ZGHQm!fmtHoXL;vwsiA2ruaKg5Zr0K^=`7$aT_(EN4C%2tm|pv`Bosmpl?RY
z?7&J+&z#_89L8CyoW?6&wG<!uZDlw~dd0>IZjT(V+-Hw*{c^w4<2R$tfhB#*)`%9z
z-F<)W@~$Agds4UeX&UT2wDR0mmI)TuW#;Y8o+9z+z>0|{c3r7%ke8Yj^;$!AWAlBn
z?`s+3_}dcOET<=Bh^5DWp6qPn^RlF5?RIsS2Ryv0Hx<|)O82cjmwZVh+5A#V&PVsu
zsF;Y0M+0}<&p!2Ps@1Kc_A9>(tvEN@h`lJxxO6}Jz`{#2zMoR|t_ixTng46D`iD#|
zu_M-w-?uiNu-R%^ulP{!y4ahzIs?Ne#o4PePON87`S&@)y?n2tfAq_@QlETn@9k53
z-}X-9x`uVpPt#*IY7HM%cDQygzxdHOIqq?0#0l+b#!qJk*PPloSDLr?*J94utn1#g
zeLHhfLc5{%%5qP`XG@Md?wj}B@`Hqv^_)}2-z`0~duN_k6k<v^{yalKb5%*~^@8m)
zk9_46dhW^aN>$m;`#{#4rAq2jdsJ3WV~hKId{((-an?Jj1-y1*qEYRhu5A|rC%tC9
zy8bmw<eszlC91A4`JY=@S+`B1Be3N93_(E$Wur^i6743uSig{A-{r17uCnL-z8QC(
zbQSE~dG!Aw=gr&s8Q#^1&5ZeWsr{|jd{^%RHHUeg&*!aZnEpNTf$aviiXW2ycAiVm
z^wX@<+Mk-U!>KQ3RwL8JKbQ5)5@#4I{?n7csJwW=3HgZ|Y`7#(Z}ePIc1q~QEakd{
z<xxSVS0_C!S%1PKLv$8f>4xhXg}bj8O<0=g)aGJz+^9+=j7dINZCdKz_CCvBd`w!c
z8$@k`A`NcEy>h$$`-Jd@J^m$0@$22gW8eF8`M;UGe5$#WP~Pbi-tl`bIVo-aCAfKm
z)djQ0s@$t>SJw6Rztvb;xhgJq^Unn5=>3NC*BN$Y_N)G0&3wj3V`}z`-qwYWe;(T4
zGO^KcuTX}1$Bmwz^_k|DEy|xYkF-8E?byrF<r)_7Av+^rUyY>`_Y2)$o6lSI|7h(A
z+qr7ryN-!_Z}_;Ze`~1KZT4I<qNl0x^Y7PNU0(Zqd|{ctX-8#*n%KHkzyI$l@_&A?
z_v@Bkb$c^YrA;N~f0wMdr|bG=yUl{!W7F;?PYGgsE0mi4Nam>mhsX2dX-1O8DF>Ds
zuUo5nlf}GTc3sDYds||EoC&^NsG+v=#;ng-p<6cuE@NoVx&6gsL5u2vV8t7gV)u!y
zc1=zEU-qs>d5-ABzxma(cYNG>+$GkA?b27#!lf3k9&(BEhc_R;^uSNJ&SUM~>Jy67
zmPx*s<7|JEeKkb*&F&mot}SiRH|Mb$99?Y6D0ihoeMz*WVw>6dR}-$?`usYN=Sb8I
z;SJm?c%5A@o%yxg_PFjmCdnszb~Z33YNa0U7dt<hx&E!$`om3@U03&Pf10cF!qms<
zZ;?gbs#eBtf}u*s|Mz*QiCwX6D2;w0-kx)H!O>}{ypKXMvRy8`jF|ZMV%OsRG8>-u
z80jsJG5(iiu`py2w+Fwk?sA#fTA7;#=i5BKXXG|{d0k6ed2HT9r#0!5iXY5m;mw>q
zIkn9on?-Zt+r0&n7F=Qvyie)f2$bgky-Rh)olfPVBYy-Nr^MQCWZSxI>w(87<coKC
zisWvelXt1WN-S=cjONK@BAqu<VrCmONqMnIA2ge=Fx$UO-7GWI?^5~12?CbMr-O62
zGc9I`Or9q!wBzP-)eEzJoizL0ny`eWYpRLPo0JaU$A?62e0W^Gbi<u9-@ISuSNXiv
zkJuV}`-X4#HwWv?#i_w@<*YwCWOnRgo3MON-?^=w)s1gEYj>mz9(nvxw02&@c0((_
zKKDtctXe7)olRKo?^<?InsxF?apAhkrE@(N1}<hvI(MP(grfiK)q75V@JXoT3o*aO
zY4p`8A|q*qb>Yq67k{KC|IIK;;Hr_!&(mYmKcAHSv2N;{yKe-vcTad$dgy4)-U}xj
z{U7m1m$nOpr`vpOf4t{`t<oW;Mb0|>|DJ4d*Vm}k==(Ug`M0>D5#Pat2_J8mobR8Q
zb3^ltX?@)Rz3pnHXAUw++iZJ(mT`C6<4oQ8O}nNq_@2CY)7L|vWY^@D6i;Y9B|F{u
zNSK1;n)&~>+zVX)`&GkjC7HeN?*4jxo8`#mjd!-zbS7lmT!^~3yO3$Y384d4ehk7D
zPiwz)rv6!f-T&*^kCo>Z#P2nfQg9L|e|k3Q@7=ZY52zk}Ja0{y=HmS=!8+C&-`AW!
zvpaRx-AzKbeMEv^9`{(1&}eZyH#cMP>=~=t);jF|cDl5#bnEM`BX>7nswg|hv5c)h
zPQ1*iD&S4mQthWgrX`h6ZkHPOc}Q_xS>|iVsjhtM#f=i-GtJu$Ec>(RadvIc>ZgaM
zue9LkW{At5lv4Xho{#G_`x1rgd;Lzb+e}^-_rr|Q@qpuk-+w;OxHhRGDK7THuXk4W
z{^V(vYU;G`GP>#R*FU4)F2%3&>S!uQN2l#3`@`;yMO|f*m3B(8(;^z|_sx6b@pn`5
z)4b`g%D?t~f4$z&Wp(jNlNG)nRwX^(nzy!a-_&XM)+?X3uNGxwVD=1RY%ozuJ=3mt
zG-7GUhQ8$&ew^NvZW%A0@A|0gx#p8+2UDZ9zdpDsw)@zjr7ZtL&1WZjU!C`D+RdPy
zmlj^$HBF!O>FNB3SGjKlb|pV5+H?Ar;Wi(sjD?bd70d4SDxBZCd-IgJ`&hT1cAeJv
zb@K_vhG)~xE9G)8{9Ns`;FbIO3+C?r+XFIYu8-}E?rojL`gqBPBW-Gvrnz~4y{yT;
z_{rMeW!4kliN5wxalL->8|&L;5m&CS%KNcFds%GEuA4Wi5B*GBTID<UcaHq&nQ~{=
z+}{48qhCebK23jKLinb}$7i|14@}tqiBGuc!`DwHVt&g%U3(*^cKZFC-pw(;KmW7L
zD88fWdH%*t+0Z4M(r+(q+_KeY1-n1{&%M4YHy_$GT{qk1`elQ9ho!myO_YOc4_rDO
zbj@K_=MIlr`|6MX8FqQEKZs=kGI&ifXrZy8p^>FAd;zkl8ECCBNE~SavZ<LRaSM>6
z*Q*?#IPZ_umBrV%Zyb2^W9@D0*i*lcGBJ8bMQXo4bs=>Ri_Ysri^G!NKAn;5Qraq|
z^WgrwjuU52omg{b-Mhoi>*aWyk~aH=#wkDk<@!Ya-4UhtEdM6||NH9hX8C`|?(hBk
z*tqa}@sInr)9WkLUbgQ3vp)R&ySh(I@kQl@oqm?Z-yfab{AKH&&0)GhcPq1}3%rZl
zQ~hmsv)#N0_KT)`Q@B2VfBnb%3wf3A#x}Uk;k$9-<dKH>`BP#S^?ZDHH2c>*9k=Yq
z{M<Eqhn1Gt|9Mtn)Ln9J=3&WydPzOMKD^S{V5oj`{pXKMdgGe7+wBi^D`qU_i$8q$
zXtwT^hfhDUDD&M~eR#Qr)!M1uOMO%Mzkl%Na@3s~A1^;OuEprt2S%w)c^}m_+1np*
z=FMh4oFZF0FUtIotleSpFOMFy#><92NM3PwWBZz^%cft7o2lIM=<LOZ?q)Lg<hRD8
zOnLX=s-PS9=S}V9$0tXWTnJqIR{QOW%O<yP)kNvAuHD>!Y28-qetXt8k3D~GiU0pr
zBH?$-0mTbt+}Q~{>dTKjN;KPV<+VQ|HS_K1`|mHmZ@A5IdUu36Q_frFcZ<6WStO!f
z#jZTCyWHaBi-sR7KAU@pAC!3SmK+=Z`#$@d!*1&By@#S+N%&O$HaFmUxn^S3l@;+Z
z4L8^M$|tT0(z|!+@NFy2n1-V)%E~^{9TA)h`Rfnab~t)1(3`O}dQS6P=0!z^^t?`Q
z5wY-5m|v=DcX;a;@1FMekDYa=UilGl=y|~;zVGWlvhJ3UJeAC={DZml*~ZrVSLOPz
zU#7gCSEk2OU$J8SKSA|piTu8C_Eq8Q*0U|Km7R0g^hEtJR_oRc7V>}Za!xy{weYgj
z#=HJ=ITkEt?vbsEo|0G{@`G)k)ayx)ys|aLZgAX_h|aXh5PHG5?NRMtz6_V{9T_S`
z77-s->Ay~SxMR;M``xJl2d($^3G|)*{qWzuyltztd=>r1wMFSs<3%gw52ep;=Ps`+
zG;&Zn_)&P$Zdbb>MY3;JdvT|-UP`Ko4)S2$GVT5TsQ-Fuzxj9bu|JiczxT)a{nm3n
zPl~p+tCWl2E&4aP%iCd=<h(4&_cA^4?6dv0Mut=cI_y8hcwR;}Wb2P3E3aKQ&v97Y
zozqZ}BT>}2LE;!=Ue?zoTjE=6Yxu*3c5IORr1xZ=--=H&qcSsg^od#6y?(MW=i|z2
z%q`3uh57vQ<;8E>c;B!dkKOl&al#t+m5KcNeakh(x{v%^{J22Kp~mY+nO2XpVC?Uy
z5wW#53bmJBStJ{%plf0JU0;J`FT+B4tFWH*QwG}(^ZzXn4RvT#Tp#6{GNVG~)9#Y0
z2i5$4Qq-hg?9je4K}GH=$D*g9wm*AzF1)s2(u|cg6aLOE)YO}sI8W==(I%Dm6{{w3
zXJuA1Cks8Tz030LOUsc}IV`-7WPOxe7E3u!vtkH(;v=r^X*;8I(vNpL+S_~Yq+~be
z6uXNE&6Qxxc@k3A@$Gr_jizJ9L1p($d$`1;&-1USd-=D%e#?gG3d=v1hF3g^KfLD5
zqn=Cc|0`TtEm|IKWQ~)V=pef3`nMnNIwVqmT>c*O)k`S!#YeM!Iq|KNnNFKdTU(t{
zkeK~(@x^Pa8gt^(f0S77w%mB4S?2lDmzy8TNzYhyVblHOxlisERIimY?wWD)?XLa#
zx93&2X?yN^8hGvGUPrday=KXM+8=j^u34hjVvuNL&3|ee%cl4qL9g=QmYoYjm-Wa-
zbIJL2?aJP__Kf(M-AC$8Pw+XbYoGtUyyvIcZN4|&8t>UsE>Fm+<KVJ+b?tyiAk)VF
zd&=I;z1(G9TTiL4tCqg1B@lUU2WR-*jQKaN6~EzLy5Q+4<=`9B{xsdvI&o#ydYSVJ
zo!I6CsR_!+Y|wIba$%jY)S%N)|DV<A*C$F&vDZ91;FII_d%3bft!7HXm$LIAr%tW<
zec8<__Zputv+tRFo0s{k8V{KKt(i78D%wAVQHO(PTL$;b<DJXwY)Tzu+g2)E*Rr%f
zbxCB}`!hQ<JaZV2$G$6$G5fk}-5bT(H%_PcaJ=Y^lz!fSA;Vnb;!MjMx1675TG<>j
z+f{e>UG*CWrQ)g};ZK(5!j!u$YNF=%akND=dP}K4XZ_3go+EMf?9|)dlKW>&t66n*
z<~K8`ecRc#9ylct&(uFzsP|j-7Q+qZ3DXq3m35T9gx1w|?N7MHW!0*un^W{FjN!V%
zf3FW>=MJy_bhKlg!`2HK>d*J-&*@B&x>mb-%?fLwQ-@Y;)zX_<^lRG_{RgvOZw+3z
z_PdZ}Z?9(Z3HP;%)q91!vL9*%Jf3J1zVK*gv*4w(LVJykV;48aoAuk6>EFG!X@-R7
z#Qn9iFGlnVFyGoeVQyXLog)i2O3eK5Lx|Vo!Dlc2JrWr+=j^w)5m~S8&pMMSDeI%-
z;<>DMI9hBt6v}3Jo!_viM&yp$3gxC;1FpW=vrh*{WCsYHHJv2*<7U$&c@6Phti8ff
zKP)>EALgD2>njwD>^3Ybyk?#+c35|cqRKDEmprFdPrSD{d0O1JG_R>M8>-Wfou42c
zneOv?<(kFoYdY6j_wuc&%&6L9_+tNQeVc<PpC2}w^yeD$T@7#c=2r<H=DP8pX35T6
zS2F$UF|l)QEk~J@*F2y6b8Q^|+!^r?!waU>WK0ow*Sgqr)1<djlU?GkJhj?<a8It1
zz-oJ=x9RR{Ugmt5>uf1xlIdryr5-(XkuBG!H|zezsfE3d=kG{Av)$paL8wM-na}Ar
z-lz5RWAx`vRPG2leS5F*D)|#eg_jz7xlfx-$x1j>8GZC<leJ9a?wg1E8$Go;r&yMS
z#(dcP?D3wPNkK_=GR;R!4OU0hdVX23DKGRUBmd*1#fhsfdixzcb?oSY1IyR_=q}>8
zVO`a{qv^A`yUC_CCdrM06>Az<Bkn0=Hq8<==bJIL=Q4}F@zf)4{+Dd2W4wIcjAvh<
ztNF6)Gkkm=@Bihmk-oLh(4X(h>526$YrTI>tlgEdi0Nv7s`1UqU*G1tKdpWI+Uxb~
zJ8R|3^S7TZ)7Mt<y|U}jL-if9=b|KURa|WN9~$>({nVF#WoO<O<7v^kZxZlKJjGjM
zS-h!W%fcnn#aSuwa%xO-=JcHC$i1;r@Z?v?&TWA&u1FsHW*6d=a!_H}n)Jig>+YSo
z=h|u2)3%s-dETPKTi6`ag&$sCQW9mIZ1LvmqTHCELK7d!FWp--kD1qPsuq)~xqp;7
zQ*?&#7x^%yvkRRg?$#d^*z)a`(W``>)pk#c1pdig*cHmV|IHQAP1jz3KjUM4|G9$d
zue#T5U!yKo)O&s4u)1&Ba#EhT$jIZK#P5?8qHR}GTArI|ZaA2D)gk>w^BHOLZ@!Lc
z0yh-O|8Gh<qxz{bw#QP?q0f+6vDV|bcu9tw=FhiJC;M<+cy)i3PSebcqX*b`J#Rd?
zRd=IZO5G}xh$|n>?;X%}b4mJh`0m`U`E6oHdJL58+qd-`>`Z^tdd;Ko=~*$pq{eMb
zSx+`xX4IX0K8)k!UoL~nSVQsG*TWN)HtkiK{XkIp-#;EVr-V5^F4`xH{No=rD<~cN
z7WB6?uf~JzN?1g9qWj_CgB7xTEI-=1_AbBQ;^B9>U9ms4#nP_)Fk@dU=i=SvJ9LUV
z)0B?vaCOPgQrzApv-Q{6HcqAYIdAt~-Zj1VMbe~~r?uAalX3H!@q6Y`?#W!Liyu#%
z^7~ke1LwMg<@+6K`d<jL=L>atupj=Z7%X^hw(hz|GVGIYHZm5T;}L$OtKs2l%xSju
z>ca~jN6HR$xPLlUFtth7X7Q!p{F+NvCj9JZoXrs2)w?#%^w;_JsBgFC@4a{^r7mGg
zO#XI-NfTxWzuEoXGIQg$+mk0fXU*~8;^zr#DrDZ{wIJ!@gIX)W+1q$ZbGU;G3s;53
zZ0k%gU3)C>)4>gwFB-nRqy5R0JDTg(qve^!wsV=eeWpE}acGHVS;eb~DO^6K&o=rd
zPC01ybia&0qgCjmsC1rw*_xXxSZ8PaxmKT;Bg~Q8TgJ(<ndQ2y<qhlhhrY+|<|Vzn
zpp~;;`bVPmROTJcf7T`Dp17RAZ0n}KgxOo9%s^Agt*wwnpmeQ5O8R17<%YW)5gZ%p
z_FPWBSi4Q|s<yTD+W2*suk5}YBA&M6Sib$C0ERbZ40|88Tv(HEyiQtDc){0`&uWhf
zSUvY<N#3^Z$cejW_6ls@=)|Nq$yZ@1<K#QO2Fx!1#lESot2t)6@1of)Rn>^uWfhZV
z9H~C568HFC+xxlklZwr@vich2nn&N>z#JpIBI)~Qm4%@>JqwO)wq%kHku&Gg)@<D{
z(R4#_lk1WusS>s49+Q_S$hghg;#$~LsI1%`y*i-3U-Bo5)Q|4^W4xi!)zv(Ud%mvp
z3Uf~5VA|;{U!&i4Q{qWQ{eQWw?4E^9mTalXOL~1juT_=&b41BTexdJ5mZOXrPZSun
z-PYZZeWRXuV8XnIM;??o9*nmM$TPYg{6m(9Ex<&0k>tMIq=ny~n{8qZ>*wyX>Af;#
z^KY?$*thpO&drm_ePy8H9QIk&etS}PT-dbi6_2m}|9$mkRh`7VWeZmx+?Ku~;lY>U
zH|hC5fBx|gJRHa#-7|B+RoR2n|IYh+{PUl=6L{KWUPp!Rh>zG_CA;9}@3al}F}Hu@
z#%_^%p7_f2GV7|(U6$J=x^oj+I@WG(Qe#guk@_if?;u}ZgnO2SqPP5nwX*-7@7jOn
z*{=<^V)TDMeA>J0vi6%BuXjx9&pqdPv){jOiPf>I-wvF0HsM?&qf!34NA330YwfQN
zUHq}!Yy0<;+clFs{I>Mwtjb7!$Kl=GV8<mfk@>ESc-@|3g$7Hy-m99%H&5idvu@YV
zeVGx94<D$0BC+)Q4}mEjw%=tRxeH|^^cG*cn^5)p*c*4=Kk?ViXVyqJ8Oph3ndVJr
zKKZ8c`26EcdCXT?wiYhwGnVd*o+UA9W79P|hP8~R?e;s~*PZ2&D7EK<Lz%<`i+r9t
zj3uoy2YWqFRXh>XpYV5b+=62>R<KPm__X<6apn0pQ;se8rf@8!%R0X2TZ4~#%IqCM
ze>dNJZ_s?p){B={_s_fge(ZO(w9<sHRAqP^kle^&?tIzy0k;OX+A;ayh#P`gsTN-o
zo^LC+oYueXY~s?!AL{>Rt@R4MBXU6Zk=?49hK&bLzFm+Iu2MZkX3?+jx857nu^(x+
zxH&aK#P!`2CC1iQJ@S*EYSvdwTJcjX*Yx(DF#gP!)*C8UfBxHa_O`rh%z~6QvG5Of
zp1ke9yXEl7jhhdZ)_%=<?htE|CU;>@yYfmQp|plKCp{#t+tl{Sgg4%sf5D_=Q`G#t
z<W+Bv+^FDTi#~Rtbz*SWJtbkut@CaxXv|wN!9htSWNDJb-Nc-n$4cSS`!8`8TN(PC
zxgo?JbM<KQ44<iiNBjz}_IVl}yRpNQJD#;`@wtl*E4h#F%8rmvmXYDL@_lql_YO<L
zHKrAcr#jEqG_$=mSQ4JkdHvmOagAGdekjepvpsOf>Z^WHQ<pfqvjxcI-jMLk_ESon
zf7s0^XM?D?TGUk&>8oDVVe1$cMqe&C^)gD$(K};*8_$2ErfICrcHRYhIP5KqJ=<6q
z&qyyjoXn&jF1y$AW@hQ_6O)*fIgPi-KfaY`5S75tAn<Tblk01V1<fb_tnK!EuHcZU
z^|taJ!^J9&>eoq3&yFhY5uM%Rr*@>C<E+9-(Q|u53O*e<xn<YddFi~;FaB1oe(5fm
zEOk7O$L)Ob!Gq4{OT*nhf6o<qc-ivijYW3)9XBn^Qdj57nQ1fJzw_d$M+sZV9rZcA
zwpIJ=*6w}Wk-Ol^>bvW0Qa>GfP#0qV>aJ|<zSGz4E{qD2d(C(9KI5uqRu0eCe=c8>
z-SuGQ+WpF@b94U49^7v8Yj;8U0#PNWn-=eOORV2ByCOmP#bJvx6OTLRB{*xYiAX(h
z?cu{o-?g{@(r9O|4A=eD@ci9f4a0H|KjsR-%{AE#o1U&cyx~Qc&8Z7hH5@K)F1xSt
zNZ_K>ggtLoODtO6eo3J6yIFUFX~Zv`(z&{f(^m3b*0k4CWc5G0{QlaWeN!0pd?)Mt
z2;UJD{6*#0V~KCU2RvDIPanVG8nU<F;Ow${hjS-bw(y@YINmv3dC$R%55M;_UuxW|
z)w=NUgTO+z-jw4v&#!v0$0m!V_<*3#xwDhcUvymN93pACBIn|qz4u~+8ghhAcr~tS
z^*G95!gwg^YPkBx311W2QZiRPE!f0#&BH(G<>56AJ$Vy-<Cwxz1-~=O2hK@((UoR>
ze~0%8iz}N#k8@~Tt=MJA&U)D3mZ50=3=2b@g&#K@`)4*`MNC*TgZH)moiWp=1wL9c
zeG*Ss{!2kO2l3p9SaTKLu0|Wz*h%#Y(HGR_PH}IPJ|XTW@P*~TUA4O#Snp{3SaN;q
zvH6Fk6xy;M=NEJ&IL@#T)ytH;YWBbR=MBAzjG1fx{r|VT_W$K&>+dm^9#*+pP`C2@
z)vJHx9gKU$x?hwm6*OB{HtXBvvsLvh(l6baU(^)tG!XfDMa3Yr{NnO5#^?*bA{|yo
zMm_iL-cmHfOO-opVpM9Tj;Ussby39jhybquHQs02(~jLxI?%YL@ycNq=S}ZflLa)N
z3+`XdzhC;-qK@T9pDd5B-(6`dlHi>1@04`$hm%4V%jO9Qm}=_g9RC+%$yXe%*7$5s
z-nD(NdoI~q*@<6y^j-80*IMaaK5p+;{0=nuJ+VSw>@@S<g3Ltr4co3&J-Ak<RTFk~
zLG!&(p8isWz$V)}{gb5%?_~7tFmM#fHQR9XfYOPJm8-nXKYL!hKUePd&#N&`uSHZe
z-*_jN<{YV<RJUcrFM}e7a!GT}bD7ew5?F0_9GSIBY-Q9Pi-qg>Cd_=heu8ZyQ<l`z
z9PYgrbuaIdw=Svr@m<4y?ho(a%T1yNN!`YumDbFyJ)0Z);Mk1(ZO<34{J}Y`;Y0Nw
zyQViyu5(1SEi8F`J+_rdDzzr`7xKK@R~lEUxnj?`D>L7xpX2x@U2FgLQ|;+q^G^a>
z)J%(6wRPQIzB|ye`o*7nf;%-L7AGIfFPL-h{@hvp>w?R6DJZda?iP47>(BL@i}_^N
zzurB4@=vb5_$fUTo!qahe0iJ2XBu|j*=>E`tQWHx&AzN;ZrLKe!eib2zq#AfW^XJ#
z%JWTuyOZnN#Lea}3PTv5ylmY3S#Znog&IX|*^~bB^)nX;nyYLL;Nmq~o|xfb)~Vat
zKE>y+S)e{+scS~#F5`LYo0m6;PCmXy<;WD??DYv2v1ixot(fE#cI)M8hdovc%r~t3
za=`aS@zx*F2j{yTI%?$PUE5M>9(&v({ANmBeRw99L1uujth?a<DK~d*UGF<rBkAw=
z=TC&({OV6iI{WLEvu3{)XF2t+|ElPoWlhgga@V`9TVyup)4plEvzm*yE}pZw-inRs
zdD(ik{HPgE-V~S1-uC-s-@PK#TRP&vIW_UnnfLp|&z9O{PSgCcS^Rw6-#7f_x0V`R
z)p+!7O<%@jkBO%O_g8&?qrSi5+u`^>pWeM*zwhUpoBZ}WC!eqT@%=}={m-lZ599a$
z*uDF`?eClV@9J!It90k?W3GF7&_>~2z^b^@N0tgybpDz8Do#5=JEGdFdCkfFT+KU~
zYtL|N7Q0m$z4NZT^ydHKONoNDVOg9B4<<}vwtm#>dX{;+NOxiFzJEWB9~7NB^zoVg
zKId82jgCzDsbR9~$*21(MHuRmmEJOnT`<Xxv_8$AnYe!TDu)?2MPm5&zkKm?m4(in
zmN)z-xSljd@7!=)#B77uKdDX!?X~W)uAiiuH(jdPb6c5nUK;1~zgu6g4|Z)R`y0Qu
z`)5(C*_s`>6C*7i*<Yyg`E&fyKk3tD56-)H=_!Y?Y(L(%BeJB1ckzuKfqqlx`+Z7_
zdoITu`ufP<!nQWXlC>V!U5zH(dy>B;?)O2d{>;x)H>89`JExw|l3eg!R-!#LaSQ(k
zw$qjGuI;yGKm67Ii~O66i;luRjlIvhAIe<+>i@}Kas4jqL_PPCjWS{zC04R{?5np)
zO0<sR*dX5!nNT^=Kj=>Q<nK!Jr|nw1zHh<dY-XL;-J7!W+1;0}i?*70FF~#PW~@-e
zf`SDp3l^_j5YECDykJdGK<)l5j;gWZ>CRsBwnc1ZY%YE}+u}#6$3`|YKi3V#_1@)8
zOP^L=j;J`j%9{PyrqJw2*OafC=~2ymEZ;tGt4IopEd4OY;F3mAs+Gv`7yl#et2#rU
z>Ry}mTWxPg-{bHdF-96f2VXyz52{;c@}eOq#8mNW%Hc)d<YL8Vl=Lce`oDJnzF~5l
zm8O#G2S*+4sTx*VhAkRb)?`QAHaRMve7@rj=bgWk0>r&OXtBwNnVl2ccRuLUS>@T)
zSB-<j^yPd)yCf`J)-2tZD8UkV;^g-E*Z1d#Y>2rzJIIzxq4%E8-=90Q<m60lA5+}8
za?Y~QGZ`uq*S@-ycWKilv4zJExr-URHY(V<L@6-msNAa^H#jDo@?A1Hko|&^_v|Iv
zmsg+9IlEFsa*lPXG`n2!QQn85i(i~8<|&R0VJPG}7QJbk`DWi2Jj+a<xfbnPS-<t8
z_9Lytvsx}<RkxQ+oO{!5%a^nm7qO@io7<O^l@)s2D<iZL)sIYQf40Ku;W7Ts=EHlc
z+C47DJUAQ3xNDbKuhPkVx7)7Hv`&sO__QZivw9})361qTwCwy8*55uhOE&whH{Zpk
zp48CC8OjFiEAp-^tGqSg*LUAmb*reQdh-I_XqT0oj%r$K6nVgxciES_Kc2qwOXHt7
zXXP!%Wx+oliImNg*VbCmw$U&*Lb*rBf<MXBVrPBfo&$$>{4{vjvbMmzMQmof;q~2{
zyYp|JzLuLOTe<KxPy98>YkybnkCJ0k*{WcpFuVN6A@vM4$@{W<ua_>Kke~3j@}|hF
z`#U5vS(cf{Z(#44?d2ODm-A@Z>z8WkB@)K*=la?rKdLUS&)_m=FGyYU_(L%JP1d4A
zlO~>J%Sc`+cgx2`jeD2r?B7q+W|c5`a>;Xh1Q`gv+Q&Qlas*e{sh5VCtC`FHX{3KF
zYPdG})p7I3Uqqb~H?L=Z<6+-t-LJ)X(}A&P`{Kwc3VdgZ1de=c=V!H_Tq*lDQ^NbB
z$a7|8a~`3xg5O;_BC-1-inKJ2-h3%xd(SA3*<Gf%NPA2F^Br4E|9c$Xvagl7Uo7SD
zU#rm8Q)d^msW?k-Ry<y3#On6eXkJ0xgI%{B)@)%?`5YV4v%yEoXY;Pgi1?nVwG*$H
zUj8ApQMI$vL}v2gY057PX6&&|QC>g0Htw;f`0Ljb*8Q?5{b3_vY4hxB)cHLRU7T-i
zX8f{BN8iNn^p?r};aOkP7oAPJn7=Vp^ti!`j%{JKb-7y|Gf%A9%PiV|D^=ib%ocm=
zl`2~&%ngw`YBoosU6gCy5pUCdvv~PABpR5y`O?`%rEkWuJYg@1oiRD>g$n<YuP3cH
zoHGvo5x?6(db(D1`gd<V4v*{K*D#ziGfMf)%gz=!J!$Qqsl{j1tmhnJTmEdeeem0L
zQvI3DUh`HhTV;J-_Fuf%+2;33ADEASGfeVLx#7N{v(al_f_(Lt)SD+(G#+?o;IR5r
zSX}(t(&~fF8Om9lx?6bvZOk}s_QRZ`JVq>e<J8LStqbj}lK3otb^h|J@|mc2;FR~#
zteiPtXI=1VzHxbrd%yYIoi{GM*mC%v-Sj@c{OGCgl^+TI)u=N*VRwW}%H7)O>fA-s
zG)`%1Ej_!Qqw(vN4c4MZPbzMH;91kJS9PhDb5Z=EOK#d~ODBB2bW~tw*Z!UIT`BCV
z{UfG+ebanK+~sCb|Ba|ix6jo&uatRlRN93tTq^Km@mjgo&xxnRq`tQ(?K!sA#r1$@
zkw@sAw=VHJ+}T;f$~x9A&bZIsr2X{ERy%<=hhm>Hovi(mrv3TPM%C4?EjEalI8O8z
z>*4h|XEphC{NuM}**kQ5L?`C&*f({9XKwFV_f=&Z(!}C+oV;@-xHvfB$nKQop5EUd
zEwI&{BlTN#r`vBc<+<0QxaOWtKI&t+PS`m7wQF(d8~qhtzwcOkUu&B3C&u@W|6<!c
z`8w0SKH27=UbM;6^it4er8y3^F&lU;<fN`(J=*=;;L*d+lG6HTK3bF{*?gHj{eAL-
zI0c=e4N8}{E9WTQ`pY1&?Y-#Je}-aNuXnQ*AGewIDf6b9{lv-MlD{g?Ty+<nWpuCl
zyYo7a2~%>KT`ygax2`l_Cn)~)Qopv(53YcnO3%}(=68s=R$5!EnQ?Ku+6>)CtqWyd
zN*NsApm%S%>XScf+<XLPSbURz|0-_xjUAJ$HjBqrGTyECUH#(p=e7fK)y(&IP12h3
zbCG`M;pubNSX!9w|MYRu;vbie-{Jbo+I~Ups@NT!(1PRh!o*xMxvqWOGDYf>r>)0*
zx5yJS>pSfqa?F|CQfSefH2bKH|ND072ET#;zoni2g7bGADr}EwyJ{~bZYL?`xPRrG
zecPHuYj&*CaGZQ%#azYt$3o^6Oh0p=V_QX~OZCns^THKhtoK+R`I@Thy86d=3$u-`
zYIQxEk7YYEZ<6d~oyIH9>KSzU!iLXQOaH~Wx8!l|-o7-sy>9ixY2qhTyE>{WyOY1S
zT&sC=+U9+H#Kcdr>*6oF$3z@lzj*i8LtU@uSj%tMe;*g#82RR{?t_(6l;5abU$IMP
z$CG)Fz3O*O(>bRc)_?oorSP4J$6B~2itZ9TT*Q?kv*@G2p#)Zmy23No()RjWy51zM
zQwUz~7MIREvBAjb?!3b?@10Gzl`flnRr2e0!IY>;VYPZTGA)NEyB{^3CN*hx%AHRW
z9T(n>5I#KN#f|y*<Bwl0T*&>e(#}Twj?KC*snVRJAn~o=W0I1lG|fBp)nIAk^p|;?
zcE3<srKVDTG}krtakX(0_k<U!$<kNOifd)rTk`BqJF;P#_o^%2TPtFOTizOMo01T?
zYK2C)OA*`Ah6>(j!}tV^?4Or)^QOni`8Sy!%$p=7{a{_uih_kbPg(69yv*O<VbJ{N
zmB%oD)2^4F)_BGRoz2ah!|-9Ea%<`|?SAvEmNOL$W_)=o{WNcnQnE#L`<$+Mr?$LX
zJvG@w>>tan11`S}&+E>pwA{6ky?tBYWXqC80#d0<xgGu1`>zguz4_$!+5<UfQjar!
z;g#`RD=<mVouTuZ;vvIjObLuVdrq#^tx>$+ccN>i!28Nf2^Re(t>A!{qNQi+l{|N|
zP4&CZ`LxLF_S!o=4RuC(_pS@)y#CR^+H1b|%;_I1xKnH9NT(ghIsIdb<(qRhK6^4>
z^a&SE_!7tHuqP^n;aiH8>E=^=7nV<dx@r3F(nDsOyq%@Jo}JA-6gy3E_m<@g`$OJD
zub9^qs!;gD;MR$+X2NgHB>TC}EW38~%*W;z^UaETJ1xt%w@sL8y7#S=wZ`i=rgnwB
z=i=`Fv$)Rxx$oksloan}2^RWK_P+e`TPV76PM!VR@)ZxRZ~t!cXNu}0wS6ZSN*#Z1
z=Q%|#G+O-a@fDto^1;3@=bw4MH*?4134&s|A>}ian|B$`ahSWEHR9KOrH@fU>_YpU
zt`sZppOh}qR{c@yHFpQovgzCMR+~uKyWKPt-G4D`a-ZbQr@MR~I>i0|R9d_9>zfx#
z_<5dQ>)5|7Tv{;8*iiY8{$icvoh`1hOZxW2$!Jczl~D88S92~Kvu5kleNJ^5dyl@q
z|1gWYJNPHt&%S^N)7567r!Us_8i$HK>$2o!(*C0uek!L<B8!Jxzr6kE5>Y0-)Lor(
zbqrTN@3Y8A6I3gCJx$MRi*Rbw@9Z66yO|Ajz87d;msM}g2ywj>ocNUSv~7@cZ^jKf
zJ>y5O7roC2YJ8}6D3^Uf@1;4XjQACA{ylp;yYgC*`;*Y?2FVkBHFp->$_iZBmt6ei
z^4#Tr(h{%zuig3dTx(3s)^h7@r4bt~mYNB7r{>fwQfv{N8^gWrhF;G!Gx3*C9RgP!
zI>q_)PD6F57sG66qowQD8RTy6KT*`y_5Q%WJGzpwhtitF<r8y?R-_rs>+{G-Io~FF
zZnkT^P(WQlU?ywmVtuFM8x5Qcwy>TuNK`r`w<`4hyy|4-7yiC}uCqV-zkMYl?AN@d
zINj=Q(K%W6GwOBcou>W1V%fRmZrOdwmk}G%t}o&|mZ0RiW5({uLfTpHKE!tyJ&rmu
zZIMU#Yx%!YZS9h7iEQn@D`U@^|9{S5!t(xwiv5Ck`y+SS!lv%zb^PpIBVBS~Qrwlr
zoi6;dE#)0oUagwzvHI4_MVV&zYeM;cZs<3N*|=|h-N7r@eB;G@-s#QoeK}1y{|nnT
zcOB={J@N0lw5OZC{(NQ6)x@e_for0-aZmeJv*)^>@cWI2d5)SrvwD5x*_R`3h3}<I
zx`mSrUUAORxU$^XVxmWC_GY1N;)?QGYL62tb3~S8_Xm~N{@EcC7`&ova@4VPKV2Fu
z%f%KiKFV@xqm=ixx2_A;{<||vZc38yvuny5zpgkoXNSJTu8%2SBF#k--|jWLk;(3H
zP<oN$8lH{bF&n;h8b&(w9D4frfvB2miCydY>H~SlXa0RqHgW2CnSVcD7$(^D$?ZI2
zHaq|3-Kzf%C8D`&Z(Rzla^@3U_hxtSx9zdZyIratAKTh-=vZ|KPfz&k!>5<dcb)vF
z&QH3(bM@3yw-<2z^xd=9G-1BLJK^JxZT%0fIrH%6jvv(%wsUM1eRhd+R^8j*zeP@N
zPi2|9W%hv?6&(A00?(Q*<9@bk>&k#br}|GltKDbCxZ3)|YULGi8%|ENT^+A-`s%7F
z7Z<G%kaxT|aYfgprWB?tZ-m~u+)>WEG%tLzc)lsi;l>9Auid|%mw5VZQrAWmV~K4|
z)p|GGAAkGbv*qd9Z_dwqH*4x?{7RYgweCS>6Wc-YJ@rf0Mn3vuxiFmD)-+77X(!Xv
zz-`uEtce@X=6bbe6@;0mCfderT+mbe<v`!lTLM3hw>sMWQ~MJC(DCuJdlFfP-?WEM
z-Mz*Ab&Gg%+rO$4?xGsA*d`gt{L*|^;n^r_-T8i!7NgP8QwHMyITo9J`oHnV{)U)+
zk-siWX`H{G@g~UamTcFyuV)|kzTj}afBNR3KgrqwtatX?|JJl&Ua7Tr{}d+e4f}3f
zUHLiU^R1PygPt!|eRb1);g(eCckz89m+x)tZb*>dZE->E+SOl4a*vz;e)0&dn&NF2
zF-bSnL^XYtvdBZ$bgg^$Zd(Q$-aTQu@uXje3rp*b<G;U{>eUzTzLEIW>|L|gG8Ko3
zw%N0eoaql()$~fO+;^p&$sO}~%(whygAx`V+9ZDF@h)eVMUJl5&;D<SVBQdBT7JYh
zHD!ft|I~@$nv-2z4}V#At4{5ZMC9x}3;jEJKJM!K-hAQh&X&B@>&$%QyubbQ*|5F)
z(#fy4j!LPgIq#LQ)?3+ST9)ImzbK1uslWT-_fwT$7)*?wS^Hw!-tEU5&dt<Mihumw
zaF_Pfx}Msw*7_PI`_mTZ)J#s8oLr@~jbX)Pp?#Mf^G^3^>93jKzc`)Cb9G~$4mTgy
zi?2Uxq)sgOFsESR?#ElT3dHWMGjm#+cI3O8^QCXc7B^`g^e+yPc)0#j?jx>Tq1l<d
zHq1-SR8orA4(G<53Q=C;eXH8)vB`0x>(`fCD87|l$)+zD{&?lABN0p`GWRduox8ch
zdC~q0UWVHqslW6!G7ir>cXe%-!h4s1pvmhSs*3U>j%E5y{VWsXIA!|bRjJ9kf0N#R
zGJCx*#jNuu)6@nZab5OjthX5JzuP#^(X@8!=XuT06KWB*F1_nnNm`(6P;bcJDQd?j
zxxMQ3+i~RUwuAZN@fWo|9-i(0=)iO{D^08E={fr<_B|_lr^sxXRuS@c@mB?f8G5%m
zuim;5s`=W)&uRJYXSWs?_h+=kZA)0XQe1iU#PCMv6G@lb@ALAzq)(W=W>@Yy!8d|+
zcfOy~UAVPvRZR%*)%)rf{F*r;TR;7=5)UeHm=?S0+2qR_n&<S-R6SK(Dx|bb__L-w
zqrd(!=0gkawqEWrk8kPZ-M_r4H#y;0LS_5@H9`&%4}D%9pU%KEu_N&P=PCs@h5vzT
zH78^V?M<0eP`)#M<D$}f!IJ{r`wqoFonjui_C*YzfoJ*eCzf0$Y_eJ`(?9KEJJ)I_
zS>x&<mYU4xyF7CT_syeU+NM^s9bL08Qn4edb(ikFXD2M4nf+c?6L9712f0_zOgejB
zH|<Y1UwieufLXS~RMVG>j02jiUudrr<x_nss(F0}`}^wIR+2CFv|WDU6|?r=r@nXF
zSKn(j-!OxR$Bp&sR=!O;h388o@Sk3{iRI&iqM*wg%GII|_Ww^#ZQRshV{l(7l(Xf&
zlEJqiBd=S(SKZunXZ~y3S#x%;J^W%*nyA+IdwvE@zh_<!uMpcfXVaA5?~YE>7Mv4s
zVqN5m62{VZuZkL<8E$0~HvUw#?MQNXzUPyGV)2q)yBd-?+OEfKO$>S4ILYVD+>Qd9
zHS;GMmWs-s_5Wzqbgts&+3v*WH4#G1mELKqJ{@sB>G52aUDEgSnPVB<k%z?7{sz6g
zrKEX9^m{Px-Tg5=lT)uAQRY&g-Fm+8w!o8BG1YFKdu~<EZ7wQ5oVWE!mYm7Md7gjl
zjs}?D%kG|9e9LP?zILXsqV1Lwj%P0}i#@UQ-g$!qZ}Q%?J!+Wq?viH8OvePS_Yw)#
z)@xc$#&T|1>kx8vC-2#(JR(P4L`UrL&AoeMWt@4-lw;}A3*MUS7rVImT0uhU?Sia>
zCjIk|G{(DG9)DYPM*P(i?pN;<&1V)B%sPL^bMvjo&hO4<ryD8mid)yyQ>4p&>){&i
zNe!#Z*1W#kG`)7CpRf4IH){RUvevHhWS=W}Wy-IY)h_S(8kTuJdzJfO*3PCZslFc@
z1K0WOJMqkSRm%l2>8ktj?+@``Q>ps1LCpN*Qp?z!5SwE^w|Rx_Jv>+ajVeRs%G$tH
z1+xsF|J}YibBU&B?E6c>>3jO_%8H+!DpsmCU3)KYUUO*bdi^3>w$maF8;o97<@Pnt
zysC3m=II_?3&mdwN{>1XZl!X|eC^7b$HJL!cWdo4&yNhjT`%5-ebPyI_2=JHt$D16
zURUmTI7@4uV}i*GzH8sC*FEYia&ol)w0rd<P2Oga{|`R#HtMlAeDIs`<=|bxxswj^
zX>0Ae_Ga%{kAKoPtRzktB(<_9Ma#YpyjFfMQ8eUkymHFD_`h?*ZnORt^V8aseXD5q
z^|YM4S8unuv^@R#;K0t9MPIt^1eUCi*7B2i)i~koj89dGHzw-NFzibE6ss?B&o(bF
zVnYzyl(h#<cvYV)S~GK#z0*07t&;OuywCJ(p5?Uu!aobYnb)`V9(wcj(e}g{-x5k@
z%N6~7?78a0(>v4r`(AAAON)^U)#-2XteZXg&Zjk(3J!1nx9V|Za{jHAKc8)zGyiVT
zW}{nnk$;j_-VB~-qaGl5#%k4F7QwJR$&(Z=X=vWLYP)^%Ma@fh!nfR8_+s9YCYDDR
zAIyJb=py^g>B~y72@lHOKAL2+zG0Q`Gw;{-`AMDIMYhMw{s<4rzf^Mk;GJDdO1Ccd
z*7=q2wC?G_<tsy07oOW?eyi-=BZ(c)S52#m4g5cMmtBaK(lNEb2c55d)@ianFFM~c
z=l0Z-k(U`t?PVjylg~$VpH<2(?)$Eg`0I80e{q?HuFIG!pdpKzK`WgN4NZ)U;47fb
zjIpeMHZvw}1$6Aq^D3T&?8<)(6u3XA-W1BZ&HrxO_H6C<J_2IT40PC1rcIo{Qx{P-
z?e4Mr^WHFJ|EqLQ2@7+JEB$ia)_Bvz)c4QltvaP`bS~bdrb2?fOyXnxvj6*jzMC8#
zZ{EJW{&R{=4gbIIZ`I}P68|+G{xaYEzHQBGO}i!hc?GkwD=U7jR)3gV7SP4tBi|F$
zytRG#d%K@M1LvIk@ZaLtm5Jx;|6RW<Z)545{_&x4cysbO*?D%&$M4%3R=DhXEdB6d
z;K|3w)$KHFi{$<V`E7n2z1&zDwBJ*H?zuxd4oW%3SG_mk^XsWfIiCKZVQRC~(U0Zo
zdTfbHI^_d=<mKhgE#EA&qm8|;ROo~1(k~xt|LeY<b3pKm!rBzRXYH4-hRNF>WZY4F
zO-}yMj%%~3+AJ9S9QvD6n(9n#fBF3qsqF6gwfl0V%o&TQiXWe(e@OkwOK@MloV6ym
zfnWMYKyJT%v#G)22ggruDGfU$k^a!+kNqEy`Xh~NFEZJyu8}-u!v5#gd;fGhi)Q0$
z<3Fohza3z&n=RSC)OYrYDF+^><}h6P@o@6;|6htXUE+@XUv2P+W6JX@TeSb(dB%L8
zf6p(g=hK8{B^VqQJb5<w^!<kuoGjE2U+!7m-1d`e^@mK`f`@Bt4&*GA*~y{b>yYH*
z{rZr#rRwZP`Ay6BHwG8SoU~9pXnacEHuD%~?Xrqpe|GfpcU8*IdL453MY`Q2&k4&v
zpBLl*yyfWn10N+VLXIw5{ji>u=@Fmb5s~kW)(S?6Oj|RbZwWYl`Y^Mc@EeKn<DH*A
z-FA+f^R99Ko6ZyWyjq++q?V`6UB3P0xnk*j_B+Z>Pvjpnh}o%~-2a~|KHS0P-H*#I
zO(}ocw_m>hvdYf;{IdMN$x>&G)tFV*&tct^*!<|R3rFF*o3g&vPB$GFmH#Qvd-&?y
zclP^L%KKSl*7sWf6Pnf{E}o|m=ax8e!i$6_MrJq9RA+LX-_$Luul-4JA-kgH{H9s~
zp<|+(PEY(3qmnImWsB~CuD_Fg_{99azx{dt<jeij&F1@b)hNsr7Lw&ZKD$muMkDaL
zs;_G8{>tS)7BHJP{1vO%_b;NpOa7^!;k|tuZ!z6I`)=XmORG-sxc%DFTKV9z&jT|*
z=0DH(Og$U<aK7?ohnz1<(>Lr3)IK+>hS$u^GMP_k=0l6UO2ym4c$5ow7tDAw_x}6`
zJJuwvJ9+!cmc+CP|Mvfz%CE%xK>L2}uP5sMb~Xm@*xrUR{IJofzryx(KU-Vhf7Z2+
zqSxD2e%&fBYxnQP<n8nJ{MyW1{pr>BkN<04+wbH3U-{O${k+Z3ciHXpOSbk-dg=Fy
zjfdrMCbznErnKsR-Lgi52M!A#Yvg{`_?po0!$HjBe9U3%`iJ@pQhQAI_oehiSDQ6|
z(EmN1PhCXt+=^u$4Xgq8{&pwtY0CXL-TrT=h27&NS(Dby>M*SPx#juk^@o?t3^R&Z
z`f|q3r%xsXZg`*=&HCoGSo@tY&6y5MpDy5C<KE`{Y<J3XdlR-J`L~$v@UXF3$hZjo
z(oSJ1YJ3>l>vHLe>#5>v=YRJ+UfFvmxYov;d3sR|-*dK88uyEH4*b`#ZGCL+?_dA+
zy!Z1x`Z|`6lj9xAUbf_HzH#Ds(LHgqFb)ZIAvZGtIU^yrbvC~yCh+c^*pq(drgq^1
zwV#pxvy5}s2*inqUA}DJtj~OSy6;*6li=BtWlo)btD<hTE3Ns_iS}YWDf>Bv7x&M(
zI%6s0xtrGi_w3Oxo1t!hviRYw_Eqf9@^k7|*f+6So0ffH>*irHo4cpzPt}66HLuc_
z**G_>zg={{UuWgwvTG5?z9jFPoPO@7!j^DH^@Gy64j1fJRFzeJX6g4z3&^zAUdzU(
zrXOf#+|6C0B~W?go64>itr`>dAIxtIY3Kj4#cAopQm<dF=}Xz9mfg61t*L9)%UZAO
z9jDiAZt<VQ=jn64o%^D0;3jFa1L{q>nvR=Q*H2WJUmZ|%WnR^`7hM1M|4wBw71v{0
zx<IAENO--P+6Iq3`x$r?HDf<mNF<z%N<IFI^@?2Lx?Ky;HNSGGpR3_-u;p0`<24qw
z%uibdc2Ah|b@vaA840z!S(cn$@#ACkiNGyEI-3pdXH1MTy76zqyL;sciVNOaxSBuM
z?=Q3V-bvF%Zg<MOijQ1d!}fJQTehdPWA1`eI_G>Bn9b$9pitR=E^B_fOzFvoP3N17
zFDofqzWjbuIyNb2^ZLFEm-!0~nf3?$d~hgJQ0=4N=kQNC1u6&2?|yuFl54`f<Y&#w
zYVUWeuRB<<Y@P+1lIXtgn!9u#M7ZCTe0npbQo8!j_Q|X-nan%wqJo9~-Fgx~UHDD+
zW|_HCP7*V$`)~Q3dvg4zd-LZfiw#p2_cvd6ndEA5|IYH<d;ROgA53%jd0anC&!wc-
z&gQVX!-Q97vOgvksnlG0bjY?|b}C;*_msz*yE~<K`M%5wXR+UD_OPb$%`Ls9CU%LZ
zQ+{j@H}UMOS$*Mu<Ye7w|8t-3{$i_|T99pWDtq051>r7TDRKOKYdq6}RqlnP%#3M{
zVluh&?fSl%|9DQb`bllSeVJ=w@cN2f7R}2nEaG-7JyE*aCd7d$S5UcG{A-U)-oA79
zn@juL)I#+x&$&?IHgA#*V|}SpsXNo<zuD*QQ!l$D9+=60vwEky=)b$KeP-$&-NZbP
zM{=&U<b`#OshSbiv;LbG7>R_4@JiY-dE06*f3d2R^qRb{h`D!Ozmds=#Myr*-D`Ay
z7Bp+yMRj$1;d#3I?v%+IOfUYmKqDpW><d|Ug`LayPs!QzXUFZGo*|LTcCJ+_di_}W
z73ZoKtUGRRSu`u{%8jtcj^(BYz7`j0@;o@@K6RzT^)s5w@AVlc9-ktYdg*H3${f~B
z#oVkJVTrOatDdciF**9;^zCh{&9;j3JWvh(9jCtIriOn12dS;II8Cbeh|kR5>fd?)
zqhWcKXXWk6$;Q&jhv#{3E}DGW`L1{7zen$P%t+YS%#)&j{-{ZU@5Xy-Q?m_ozUI~C
z8GGJ67r$7olw;`ypWD-8il*B2PyG3s;r7KHoP5fe1>cR{zfya-ZtsrJgy(lOS}sg}
zSI{AKOp<+P=#KWyyZm-kPfxnsxB3{Tp`6-D>-fg#BM+mt=Wm_)W_$6sbMi;Ogx*<j
zA!+&K?28*sTY9d(h@B`b+1#j}=Y1?U-MXjwo|DtjIp@|2uH-t<;q!9e;#Y=8FRcr-
z{o%K@dB2L5dx_-tkiM?Zw+fcOxcaxa{_erHoOMj=cB-%1TritOYNCW)!Gi-<H^eL|
zK7Kr*ow<41o~ebe-rj$6RWx?p1@3u^E}nI_UA4?wudT`ZEzjN5Fs;imeKQt`To!o0
zh`pKl;FgOFX}?Nt-8kC6Sme;{B8$cTRgu0YGpDS~+^!MyaMRs&b4|L+KCnnERXee6
z>j}=E8!u&k(wsB%sP-GtGGl9Nt(UX2Q;x*$59fb9VgK31m$Y4`J?VX^%z0~BbI0;o
zGkGUh6m{e)M~Pj2Va*t(V4zmBJ;K2Klf8#EUt2yGoBRG4wfy1$r|XCI+D(~dk+g5?
zJmoy|lRu994foj;z3GxMyX~~Ydm|QWH(%<}RTlT!bxGSq)#&Wq!u31v&s{dhY5N@|
z->F>j0#77;?;d2nWc6qED&@^9_b^WjaN96_t(*1B;H}X$F;}!5oqWt!oqgiC`{SZ?
z<;l-&)$H4kTPoY^6;?dI@X<-<cga<!7CW~xU1Vdfn{dyoKh8<PU(@Y=RTyu8gTZW%
z_e@r+8bT#1yBEBY*-*JyV%o7S%Xb`#^x)=VI-mH|GUU$TtC5ZGdYC779AjtPvg%k^
zfijCt;><FGX^+lbF0o?tw|&FkAkVI1De&1&Z-Tq$zV6onQC^m;`*nOOI1U=}+?g1l
z=FKQN``e_sCToJU#CNP^%uEcCzkHh4=3Hds%cpE+i#`W&wJ6?;{OnlN=cxaG<;BwE
z2mfY&So!q`Yeh(<gn1=H;uW^@=Sw#;9b&lo(JXTd@3J3j`xhC%zVvJPW`{`&H}vv+
zyvs2uzR0Alz1#OEEBC^)6BsY~sAV2EyPc)u{YBzXiq_3tvk#@Lp2ne<uIO{^k^rx#
z&5ew<6(?U7_DX)b#<|5Pnb&<)BFA|nj*S<a4RriANlfe1iA}z1V%U7_h4>oRC6#%%
z9s92}{64pc`+;ac_5=5)MLSNn-dnO+#_?M3n(Dm`oQJk`MF-f|bxmE#`|)C^+w33C
zr#7E#b>v*9FQn&TcVzj)Ni!H^=EUxh+_89OR;V*Wf}Khwd+<h<nx0RW=bJs0<JWAv
z&p2W4`-w8QR<W&Ol9yd=pO|0DxcbGa+jkcH>%W<<v_j>JnCI#1J(cU5Q@49?*FDwU
z^nJIh(b?kY9daRAb|#hr#c|bl1Xi${xy)VA!~JsYnTwllN3g`k?<?QN<s<eeH~rsf
zrhWR8d2@IrehB61hA+;DK4JBF<(rSrSC`xtWzfv%l#o(e{Cn*w_mcr8t68KLJLxjT
zicS$eR<`U?_0HGpZY*10<vy2n-=#l0WVTtqlsWXnU|R8Av5m*`FWSz0P%3x!-tm?0
zn{Ta2t622>+LX_wzc%f!y|gv5vGZog>O9|r>^raC5q<q^-Io+WyX)R%aaU4YE$muW
zBySVCUHPQuapC>>g)eM_dS7mM)t9ka)ob3>-J+Wha;x7oV$**0D1FyjeK&@q#T%~J
z{NPzL%Ua=m*`Jbg8fW5mxo@cqkNBRIe(Re@@r0}T_V1qjbV=Lav4{D~&5h5i_e4i*
zD=b+(InegP1+N%0<xl4yon>%aJ3H#>OwN$0dow3q*(u&GP%Ze7qs`N1*7}DR?o2VP
zc6NE0T$rIRSNSRCrz59J_J`)@%r2|-vVwT5W`)jp6ZX{W9jAoy<nIStL)0HU(+XNA
zc>hX?z;#Vei9I`moU2|=n*aNP+pMr%UCU>mI)0&iTk!;u?C7JHTQ>=oR=j&wvCHH@
z*t%_{Ub{b*C^p|ybKA`7uYS?Yh9mF&tUY{>6G9>zCWf#~|J`7<-#;>^QaNL#%H-Ir
z+y6YionE|c>CXHaXOg^XS8i&3?UMgiYl`24rdE}uC;r7Be(82&*V=?{LGddOyg9z!
z^dQ4x*X76Dey+V1{FJ-jjh*{Jx1`~$Co`P>st7qQ+OlL_pq!Pc(*lLKwX<CwO%DCQ
zQNN~$u~wy?OD@y(v}5SO%SKX{k4VKN&D5OUI(=0_=FA&=CW*?Qj!v}P<9~U(o(jX)
z4{Jmp=4#C^sC)6KD3E#PmvbRGnXd0c_KKVrI=w06kmf7XGZSoVt~@<(AZf$;vnyS4
z?ps!8n@&vF<oeROUjF3b!|cv#!FK01y%Sv>Zc^BO*2#>?@4QFAbg5_2Ygx3m-!1sc
z6Vu>vwDi3}%;s<}zwnGxhMtDMGXGfHTsbDCnZtYfc;KB`DROG3rUpy6?vl>){aF&E
z_woL^mFZiY!d|>OVo>p{=12R?*A-v5RG%`v>@Z-dQCQvDqM^EOdbUnqV7s#QU5*mN
z`U%f3S{Hpyng8dkC(j(l_3!Si<Ghpq=aj@<w$(=_O<v-deP*kvh1~0NDerT({3>Fq
z?b|q^bK21v534L=G|%wtFxM@9X0;{f_R(z)3qA@st7ZM)v@~Fc{j{qeo`ps(oOmer
z{&N1{ir4YmUU{eUy^-Op_#%Ji$6q$ZDu)I47A#2)oG&}OBEd!c!E<T86W=)Z30Rn{
z@QygL^wX}eGev8U#Am+tF`WHosVV=x+y~cmC-J;G@TW#kI;qqxflcI#{!aZF4D!b1
ztQpNK`HmTX;@HN!fcMbx)*yl3ULS4ST{sWdZalpE{mj6_m!>g>YZfVei(R~TmC~#*
zw~Y~NcXa={cd|hH7^Bbjl>MQdj~UueRG#2nbzanD1^e|K55iM8_q;S^pSEauYEp=U
zzfHdrXJ^zk^{d4$?>=t*^LCNd^Jk0hyqvqO`GL&QpOO|~L21`*Sbv4hV~W2v%Q|16
zFl4ppJ<k8j1NS)yh#57f|2Nf}@ksZ+_JSU{sW%uGE!+RkKwnuzRd`h+`_WzArDY6!
zzuKS7{~>tKbwk(Gx!%XTozt(bIId!PH+H|yjIGM7m;Qvm%~-=xbWQx3*<LA6!Aq}B
zmk5eGhZ@WmvFFlj3)tq>x#r1tlVd46+16x5CjOht(&~6-?SYii%YVPSwK`79{;1hh
z_Rw`k&0NVQ{yqKH1{QC^C;aa2vOmg`+w1y5rO9fi#lK6>3k=f!B*-|5%Dw8_&-GF&
zZq<X<Ly2ooUJCHg)PEG9rKRj8kP?(##U#JQ#-!vK#}Y9GUCY1U%P&PwFZuP-<fAI9
z6vOGDuvJ3OerQBW&dt?f7N2uy%X|l==ci}SSj`kY)A9|+r};A1^8F3u^+MHUA54DL
z(j8UI;e0Kj`sLEDq6i~Fxr*J3mM`j)@%?%7Q~Rst{!XWJ&)ywhYR4I|q%Ggur*!Ru
zJ0HKk&|jYM=@(nIo^^hYm*Sko-v8e{lYe`LV}D;YYrDm#*RQ`H&p-MpBj|U@51wP^
zE(eA;6#iemESM{$Pu9fY{A4xlv>y(AZ>E09aB?_a`e?q%yBOt5hM!Ly$T9q`eX`Hx
z>e+QnD}U6@Umt4lyZ>V#+pf0dk@Y`SeZTH}63;p{*5j+qt7U4YpOZy8oqBVvZ&gfg
zSnxc0jmmo)repGI&X<051~O<JJkfhxKKH`~^KzTjYhGKQ_~2)Hr{;L;(>UE1ZLE6)
zAD&nszh#xdHdQW8fhU!n9|F%<L>J%Wa?9%c$H9I%=+?4Jb893VJ}eX~zpcJWe%2<%
zXOTrK-A)LbPS|miwVz}5Os@@-z8tG~bB3Gg;f8{hxmgDM)1CYy)xH=9pYSPWbD12}
zeMOm7=D?y$FGCshGI&x?t)3DjQWZ5t)wfIalHOD1b%7#T$_jdJ<$o?OnQP{Mp*1P_
zC}$nd<7hjpi))_e3db4koz#ADiIcZ)S$CMe+fJjv9_f?3npU^I37yK_v)sYt%jVR>
zp0oJ2?@<sw#*%zBb<f1*wlPjuA5OeDpE<YDZjEYc*4vn5Cni_@wG+xqv+_DWBu<{G
zzvp@FC9ZR;J=u>qe`U+#(x_Utvsvzufql2`stw8=+-Bjib-&iGIAeH8{^g8W#i=~&
z(>g->Yl^vMa_wBOCQ)ija_!x?>^1T_ef#IVzm#<>KJD-i#x066sk^RK#pE|m{_^<D
zl0$#2VnvkZv2lGj56Jj@XU1jGXDWB%*4=))q2_LSt4%JCWyZ$~p2zNQo3(l0B@eHp
z>f`Ec4X!I^8~aW?w_595)$4szeQ$qm7BASgd#ZGm&(ehjnyP<_p9j5L^H40-_T|*M
z$~wANx9z*XyR%zT`%LSd-kyRC>*<pU{>)1i+_}c~M2xo1>DGAy9?AOef*5K%y|Qjc
z+zD4&IM=|&yVc)cY~hMC<v+RG+854~2)es)9&evOQKqiJhWnRRedGQ2*(=(vVW-dp
zrgRIw-4mmpdEBgOa_?GY+jr`=>GWxzU*%uEpntw4w%ey^?McZD-o-J>8HU@m&MO**
zo7{ew`FmZ3xWbKlw@M0rGaP>ZB=n~F#{WA{oHa4e4OLfAWIDY-z@%T%zImabk8|(8
z^39e09;=csX0M3#|2Jpvr``uzWk*;qaxO{ux9DVtOY-C^rAnMz`K4SNy|#(le)C;-
zec#L{9A-uLx$dsqbNsGs{l|-2uD|sY*(mX+i2YpG29=eXTf8EAIn@r$dba$=jlKy7
z5*E!!ur5<9HCw%PM(fL?I!`37sPQga`l#~Ap>yxvM0|5BC~1_Pz0LLZeXG|eZ7e)1
zR;XRpW(y9V{eoqZQ(+p<9hC)98Ce`f!b_E#wa-ObbKl;o)LOH$)syAXlZRVM!~D;$
z=rVb}aNUg6Da8dL^Ekua9-gD@8TZRj%0zkc+!%iIht1Q%;$3yUD~|44vZ%;y>D~LY
zE<R<klDpt1Eu^`ON$=;Huw$MUUZ;vrHJ(z)=TJZP_~ZI1oK>=0>gselZJMJQA_}du
zZ~9%zJkGdv^`W(j^Nr?2+_SCrJs5HS<;svRm;9!?pL+FV!?k4-<(-=Yg95f}aBue8
z;1a&nIdPTxti7AE+*741dtVv)zxwfdvgDJDs!WA->wfR9G+(7P`FhO8*Y2mo!!9ZH
zzlv*pc&TZ3)T)DSXX=GEvYk&`SRo={T#z6i@UBT-eDNf^lIE^S&t9x<Jj>p@th0cT
z)mz}er!~`4XS$!xinNwA)bjit*fo2f`Q!WoX-N-J=~=#+ZyFaHoljXOVDidgY5Z*^
z?$?REQ~D)XmoUx$J>500RktDa(tFR#tNT1(E<7e3D}C6aY2ofA_w+)_?%g|GyK3)V
zUH$1d>P$C3<^J=0vBZ=cjCUfl3s${);Gub>>&?xb0qNFTgrg(h2MeTyzhAc5bKb+L
z&6dT9N#;JKu65VUW-H9E(OD+-{o5Q>kvF~(+RVJ7Dsy=Dr&Vm8A+j*IKsbZ#4D;=)
zx03~r^D^-Lm?kH3qW@HAOV5&$XhHVUm-SVu)2>f3ZEjlM6k1&wk?58a(xE7OTO>Aj
z(Wj3`b6qlO_r=#tS(Bi3vs2G((>sA#n=c*FnDX+<t*2@N->+FtFLBqabZ?zAe?PnO
z#nM~vjg&j5O1%y`D5x;q^k|L#+<%)>r9YjSssGkTDXuy%Fi>!3NV?0$>Dh}KMHp&(
zVs0ETtu9`t|1WCod&A;6|0PcID$Q$L-+4PiAp3RPsTmf=wth3t{O0&vxbNh%<D1uc
zSU610ws_gT^_}|f+fkn4+D5YPzp?K=>ABar>i8m)zuw!M^RIkZXUu#3-TuymWjp6g
zkXy|CC2ISb^Y(eg+Pjy!$=4_gEKO)ywQ}K4EeW-(4VyIN_r5CJE%YdYL9#Y&)6y5d
zO)pjEYfS8^+%aQ;K+)Fw>V}_vVkWCRyZXQ|O=Q|WNqO5egO`0d8DC7j6P}peKE9%Z
zeP+tChx;FU%?OUIZ=3ad*LP+%HnSBcjSL*0wK*<w&sel~1AF1)YNx)^l}&eTDzElt
zRj&=@x^`vXAKrPNR_(jCrGLe<G~u7dGgc|qt~uRRxOwunRVTK%c6+{Gqd()Su6((h
zSoc;D#zfg)8BaDx6}RuGeK#SE`Lkq-&aP8+8Qp%H%KGj*Ch&f6($g&F<cON#^FaMj
zfQW1-XZ#Bnrm(Y>bCjJTT#qcM_PkVP8FPpsX63R2^AFuqe#G?XOYhm6BDd6UZ7F45
zW^ixA|1Q&%6H<#OeBL-cVcX8_Ol5uzPuFh@*3o;)9dJEkj-GvQVBZ_j^ZvYT&Xvzq
z_C*}Hw2J*wcB6!Qpu^cZOZn<1jcxr&hwdf3)iM8W_?s__Cuh#;^&$UCuIl^ovoN*T
z{JeJE`(WR}z?Ykk#yU0VR0lQA-5nrzWeMk$mG?sz{&!1W?-Up&m3;i1(Sv4x&rdI2
z+&z*d)iHNZec-l<0ZB~zp1rT(&Fu4Bm;2lQ&y>!6pI#iws1on8JSVuiws?-r=H1V4
zG{{V!`1`j4_p4-YttYyDy(g@mvge#$oAv$YErZkpiW;|zZ*E)fJFj5J>!b4(Hi<+$
zJ$;**>0qefOeZ0+Vz<4u&##@4?LK*JO3!zzT{_uI@^4Ikd46hbA>+RpZ%^~Y^6wJJ
zzq3uNEOJYt*w$G=FPuf!=RBEpZO^6L2UGXiBzUYi6?SP?f?V@~m#5Yx_M0pGmpv0`
zeEXlV!ST*{n;!2nT-v=d=Ig(gS1s;jsHHpH*>>#Zq+^!rvgUZ6C@-?GeQ@Jd@=6w^
zbN?<kNF)}2Ec%mvY5tO|C(XCqF8|BjHDR{-fe#BT&i-p!JIiVIiplpAm0i!D7oWat
zQEIib;;yOFjtk9QJ?GtpO}pLB-S3*W_}EpptDC~sxxTZ^`F$^U(-!r)lRuj|=ii>1
z&G`N1%q@qz-aWbzeC~3M$5i#;@L2)(I`Tioum%`te4V;D>)O}F#Vb9mPJhyynCug|
z-ALijxihC`c!z&s<7#+%L{#p9>juM%Y_+>nUCo5I=t(ZqdAe`jQkNZ`^ZxPPch7Hr
zBen0+fxN<5_MV4AO}2mOwcEauM=E}uw)c{)x%)rQP_<aIW9NpoB9*_?cf9tqzO1%5
z<8(>T^D4VlLaQvcZjA_7T73U!pY@gbSD!^~zni=CmhHrfxeFeJu3%T(Eav^1J72_5
zS1gXJU`;shpKHE0SN4Be!+A}C$!KDI@RX!i^GcY5*VL;|k#5<&^tQT+NO$z^TBlDR
z<<|3uolLYoW4AFZfBWI~*qrkrPv#vfO)%TRy0q5t%-i#h+*)Tpd@=dfa#<zt>t8!<
zGoxe9!rFOGwd$<7OLWaWRUXDpVdF|uHa_$IdEkx%H$EKc`W^jz>GgV!W{-tA(U~1j
zyFRUTmkM8eam{q$OAcG!ypGs?ICaA-NwF=vLL9ZHPPSHAGk<gWI?k)pAD8@|kdwSb
zPyb3qtk1l}M=WAb0^^iymCP<Xhitq2|2s>1mr<Ce#pWO*&1Wrdf;nAzf83GGh={5;
z_I+Qt;hWZ%rOSS0o{XNA<5{CRZQ|sfYu;0Pe&*F>rR>{%f3Me~pX+A+QII|SNN$PR
zt*;(0Ha*aH-;*4c^h(=x>jxoebHNf5&cD|8T`bflbm=Q^ec|18_f(O2-DkTad$*T7
zH@qEwzv#L5JBjUfUp6j`_7~g9!=0qoa(=Vd{NJBq%QX_Mb#_=O)QX1Gy}a~lTJ-yC
z+4&LcyDyYPw(WR7xmz%0lG4|!r%wG&&Gm_A&pRdfs-!A&>&uves)_O3%f*BDIlq{h
zed){B&kNbNJ>B(SO~QB6S#!m5E*eH@2yMH6-#2r~Uf<@fdv|4O9lf@6B+mMmx9-5A
zhzI#MTYaK$?$m41c=(QeLBYz%?duXHkFT-Q$=<ka$sUoV7T;o*={BgUhQ(Z!{i^NX
z5n=vVdRBmGNa(Lk&mt{j%N;|xCD{biHh&HJcyDQzM&~i}%N;Wx)gH?Huwj$TQL#fi
zv#yI@?&<hhsLOtTPLR3b^mfkMw;ZQ*TVAfZUbe1w>(oo7{corA-#oQiZA<;r-Dcmu
zRUOlE-O?TR-t)lnw1c{T9;cq0w0gGoyNL$bN^4Fm{`n`yGQU;P&~C{ix4Cg93thgM
zg++XSdA2!=qyFKN=^vP?t{j||GA%OJwBu%k&XL=m*8)D2R!yn+`YLOaioQ$Q#ocN9
z%8y@nUu9Y+^}!>lEb5Wpw0CD8<lPYYzxq$z;|Ws^er4mGr>3m1fk&e3P>kf<y{s<l
zc{a%NI2v3D<Nene+7P)X`{;&<J5zT|zAhc%Z~ArP^t@Tm!$PEvFM7zr`z-tPrg_cN
zE(qQH^1wYM?2PKFo@M{%`K{`gPM*fwCw}4O6PI<j{);@fn#ovE{^j1eE4D9gJo~(L
zvCs4Do3iK4&u)%Czr-TGq}jSSBh4`BWKTjyINzK-ljoIPsa58Abm!szbHBnA%Z)<>
z)~w=>C@3sa6fu2tJ5??^?9{O>59U9LEKra6tnrM`L|XfF$?M56tIzylXg!$GlC<k>
zTS%?OZzrMFN|Sq)GmpFU9Q+(#X}P{^)zhn|<9y^DpZrq}`*T+~&G>+Sp6S!9tlEw5
zFO;rLx%cJ5>b<e1*5SLq9lP{9x^(TX+<exV;fm+p?k_*>^FvaRh52Uho>XTcu9Z=t
zTkSP<Hg3)MyLD>6)a1kENqL?ki?z2-@CfVla(XKmsVb}{xiarp#7zI7T_&l?OtVed
z?y&^ytC3<pzc+}@`Pt&wbN-!o?^kIt^SSLhVPZRb=OG1FH!p|8fXB6>Z2bBY*cFfa
zBpWz&m8GZ8Q8QMl`m7qm`{95YlWKz8%{g-n?!J7na?P#VGfy_`m>0wM&&xpbwsT5M
zF>~gbtr13-Zp=BfNGb5m<kZ!-pVY4CzqxEBt5x{h?%NrS_wFvTbSl3q<{N4E{nm2#
zqWKpL1h)O2)z--C*Ze)_wcFH#!InS1dA&5Nt^D}ztVd`ObG6}op0yiRsb6{9xcgnE
zT~?0$14Ew8j|8R!^Hw##nrar}-R2y;=(s?t<`w6Q3%8z2yOw{DcWHIRfwY%$HiGpc
z>%QKr*e)&RabrdCdA(b%Gkay9SKYg#vFY;7JfWM1w*ME2xhJjBpfRcWy#9Ty&CAR9
zuAhE;YtEXAwP&L5?a$cAt9{`%m&(csj||fFZLeKeSAOjC((LkQ%O+KECFk6c?Cg2>
z^zO{))6Z7gmzS4kRpxy7+3{-EN{=*aCzVqEeXNCN_Fk9xJMm(!l7Qi)Src@w#@$F)
z&e!~U$M^Z$P`#7)Zkiuzvr78;{Qvo%hrPEJFSft)`uXKOzdsf6?g>8OeQs|j_pRT(
zx6-~pQ9aK0n!PW!<ICTiJ0X=jcLa)FY&nptzx<0O$LYMBYX7O%4}IUY>4{s_tK!K`
zPm6p*w#GktY8SOdG{Dh5EGZ~EC~H-!!--w8C$}FiTfA}It~kr-z6OW>e2<%b`uxNT
zR&J*5FDJjB_3_)P-(pq^4Zqkg(tL33(~%`-jW(IJ?T+5LQNQEs^a~MjA-``;Ul~{t
zo>e{j(t|AC63_X1c^8tToz8@`wr;+0@q1ZhMo?btn$z6+>s~u{|BhfWYBFCx_mz#Z
z-R7<p-8b_?Z9^^{Pg6`4UEh&>{QcaTLo-iYI$@W&(Bs*qIl;;)d!GKYGhV&=T+Mwo
z=IOGftIL-BpS;1~$$9Q&K8cwfI)7gs4q<#Z`PuQXDo(j%$MB2#FJ>Ju+2H$_p?lF?
zX8k9f?ddNkrt!LMx_p1WVra@XPN|~GjB7PZ_rBY-Wsz}~h0kZcXG=I)yn@$AJ^wZR
z)V&iEQ!oEJu;lhJ-dU&5dA=+T&7W0cd(J*>ZpvS4J+n!nTh>2kmV7?-=gBB1(W8e?
zxotYRNGtaS!(sac)6QnD>^L6cIfM7n^~6s;r~O*BrY9SIdufm=7kO1&`9xo(*6gaJ
z551cb3e~tJbF(FFw&vNXGNiv>$0Kn%;@s(*(`?1}=FAK?6cdOzxhN?s<Dta9x~xy-
zb~)~o^0T=NZtLCEDv!9}uuXcF>BmWyM+DxaY;pX2<b{}bG*igBkIUpzI9K=os`HK9
zyML3<tz|9CL+@04`;um*T;^ogbR+cPiq62B<>K#yPb{7ny3_RSmzk?Sb+31^Tf1!D
zv>EHS-S^uZ;~c+x{`OTtCmUZ&Y%QzrG*IC>Q@!-YvG>bkzH{%~8nWi`ic`~fuDN0u
zzpK_!_OsX7)|C6(Pl<eGDwT`#yLs(yaojciPb%8gZ&M!0p2+`P6qTGTSMJsIa?^aa
z=EZrFXR95*Q+M3?)Qx$v>mMKQzq~Tf<h6DB^*bh$OQl1n7Io*oxL*2uZTz&Y)!S0T
zcRl-6cx|Sw`3uSGe!HrBq)S301Aa^2+-eoScfy}Hi`4m~_nvsE5jr)!U~AeFx9SVp
zW<T?$m?chKuzdM~tobK9+)R(neit5CkX>GX<c2kK-qwu?yDWE?9o+emH&bl7t*Y{y
z2^{O#ey!JBtaIed=7NZQ(QjkQez>>vE+{OWT@bPSP&><7A->6(Iuow0`w-}Mcv+Lr
zB$p%qSndb5Z8xmlw<Y7+yFydrjZ;G}mD=2v?Ry?^=rh;x&vFcQhkCiniz7SASKe3f
zY6*C1xRAd~I?^iUkm|WpN7ilKac14keTVd<Yi@L}krUgoWt*Y;{0~!4{Qo08Ut43{
ztal<uRZ_0M{x)5{XwwCcYkz0>O#ZrRT|)KD-72mZgl3!m*S6F%o%x+r!%WM6C1;d-
zy6o;}C7tHES8@(&w1zOZeGIccu;%C5?iccVu4Er^I@da5-QkqmNy2Yce{s|wy0`M8
zq5k>S3C(3?igp3JAI^3!xmMGpe9+~Q>5X`?l#`dP?yfOPc2ZfpqSMuPgY}Jtdm1Av
z`mVkBHh1U5q==ozYZ7#?bK6H>iPk=^(tT~+%lw@eVgxsStrY&7+qv<~i6y>AUuj*h
zTYUfGVx14B-|GV8r_Y`jerrK|!ZiIouF_lN>Ps4G_h#=j?^adhi}Dv;l9g-FHshP9
zQB=?~F9y$Lr){~~K3l}*ZEf>sWQ@2fy{mQOpU(eJPX1?FsxQ=pxdsuktPs2g(ZI+Y
zX$_(&Xt^Os9O)ERGcyBXPGNmodvlWR@j{8r)-MHT6CyUH?$zv@XQTYcWY@PWV~NDz
zCAuC{QYM+NVL!pIpf_zII|C!rlEnXejI&>!T6ON#Qyu02uJ)dXJMUf%joi6@{`_N(
zbKL&azuf=6{?n_s@jEWN@2@nS_s{yzefRZt^{R)Mmw%c6-QM!=4^z7o|H}rEnO|Ri
zZD0TB_M?;@nHC$%WVZMI>+LJQzH6?sIsAV{i@}rg|G)mqkDL4T$;XGAO%AIpd->%T
zug$;R$3I)_D4cT3zUGew-{d)J@8#_(Y`PCd<$gIV-k)xrvHrPy?}i=sZtoYkH0O<h
z<x}1~uTIB@yRtSEzOAo1AU<Wg*P*y03TwVyK5TD$ZvU~=S&Ms{?dLu>-N*g@r>D34
z{Hb1H{IeZbon+QIbhy5UecqCbnax4JUS--^SfBdy#b54xmB8YeDRH+iJ^pd<KxT^N
zxyy^&*GsOxdGzXnHyS!Oe?9wksb6_cC{I*>&_?-{iHi?qeqC9W%uwK!$et|sFVXJ*
z;qa$=51D$eH&4BMc>U@19~s}TnUx>$fH{37+ru-5(-|xGl=JVeY%$J!&#;(*`3#GA
z($mA2^FQQUy!rCs>0+54*}Z)F2ba608f{wPY5V6};Gw7ehc3(8*Rt5iEZzL1bkp+h
z&(7Q1*YnP1+Hr6lvz))$9Ucb02Lg!!2A?1Pd^x$p=<?yq%XiF^dKh=9>M{q%+<oe)
z7Uy0(s6TUmc0&63^FNI3=Jv0X{d?&5)ALMA{7+xIe_*fwhQuF>m#WvaJN$mRz5f_*
zgU6T8iPdSFnEvl%l-U>m&BR9SNYNrSuBm~4_^)vu;x&Hx=cls3@g*VcD$Iu^vZp;v
z>~2ieIAH(v!<T=Hr!<S5JGh>~fj2x&X;#nW1!{sD_3h>~Fvzq$a_P<FUDmTH!Rr9?
z!y^w;9GI1l``FJvbn1i61$Ne3&yBf4KQz0)UC^+VarLPHan|5vMcU6U@*R@UpHTnQ
z{k+G+OMO{C>nb|;ynpfgL!_z24Q@x(CdQW>S(m<qe|jU=wUNnyd&TQ;W7qnI)4vi~
zJ_x@^tJ>(7+QexdGOe5A<yDt>W|i%y80Cu!`9G=_HTt(G*`3OMxYu>n-<zwi*Z<6W
z-u56)WKMkFx?=r(4oBH`WEo$quH+UA`1oW0x*rOU=3HcY5!Rr?vxam3t5$}r$0xt?
z=DG26Rd_7)QPQ+L^>itJfmEXFvPJtH?gVDdGSR-d?8vLbmkUl^|G!7!w4wgj#nVnn
zD_XLZO`reI?{mpsjYQ5>bJoN#SDWznFVyhXpC|XR+u?7d|BMxPHZw1nWahfAZ^O5Y
zqfd7HJ#ld6NlT@$$F}Ku8?HF9$)`O2vxjF^`;@-ByW~n5iX;EKi$vaj%b=`v{Zn3(
z_X3wl&FJ3_Pk2w~Gq;>@f5xod$3MrPPpfcW<mBqVFRmsm<J|ar%^i_|vSoGM7He%5
zC`@>%qiC-k?sG)QF7qnG?Y9&7A2PRS+ituhlzEZaKCE$ROKsr6A0hSABfojqa8Ges
zYxU-n<=>pC%lEwaxpxt#c-v1GS2G<RA#REIiw1J@>@-%}?q3->yLtA;zBS(p9~P#5
ze)HG+z$NZ?cAgS~@^;?30oHn5{DIjWn}Q#lE?%Um^=j%1^QKTs-`?$o_6IoBPHotq
zbu;mnz^PnCnb6D=^LzakJFeUyqHOPSj(eI@ufMIQoW#DnVn^5_?F&3AxgFyS7qK4Q
zogr{SFi}H^q5c<#*Pe^Q`A$0*WSkUUae?vGTFIkQLJs#IE|uKN;NX<;_NM=glxrf-
zgv745JuMe5I9j}QcI$@B0&m{mPaP7jTzwTN#t>OFduC-R_dL^^OR}17nf-E@D)M#N
zzsHLu9hOS|6lTuPF8fmahiyW~<u~S^R2M%K-*&8a$<$L;(sfUJ<=5P2`PcblI^VzT
zC(@6mxQT6<y6fY+!}3bgx&mJ{$O}zPxiG=Zj-yHK#Y3Cf$x|49$QA!wz_CT^Ak!n|
zW_H~x-zQvKmM35^rSAE|_BmQ?d(vHm;)A&#1VnzCAa6e7L}Y~p^92QoA4Yor%rokG
z#TXQBG%qqadiK?yL#IFWr+qAbpkSsQ{$EVLEU5DBv2!dsHYas%ZQBxcC?jg>w)|)B
zQay{rt%D}^X)d`Qc~Q&NY{F@k$guxR`EIW?7imj9{84+8{e4s3B0byYA4+albCOT4
zdSaUMs^RjQnk3QHXA-9G*_>2xa?jg^H)nm^Qa59+PC(v<{oibqqFg?Ae@?Wzv0gL#
z{=Ux&43Z4Zzb+qM&Dv6Frs?Bwb8k+NY~th-jfvO!7Ea#rTYsXd=Y^cq_CU5@mZ=SO
z+A~s@{M@{}de+6?535fY?UA;wvywl!`d?{A)|}rp-Hf+BWPClvs1^|ywV$JXdCTq9
zaX%Tgf?k{xkY?ewSW|wgW6ip<h6&p>kNf>_acfz5&+gbGJ3f{KR{lLYg){ytntT3c
z=9~F);l~v9^PykA<<{Kljotk~-*mw_ro9?QAEpa#`xKPr{_FIMnejbaHy>Ck5V~jb
zhfn(t#!9BU-4mRsDHQ2bsTuoNqvDv$`-y_Pxr;KsX$Hhg2re>n&SN>o6Se2f8^cTf
zdyn7c+PCD?UcDvC**7AUoUYGZ#Cy*C$?hBN>z-C+r(D@^v7>B5S!w%y*B=c}Ht%^i
z`~BXw^M;4^dVIHD!ydCDU+3qwh<Xq4m|xAMHS+_fA6T_`?u!lo_ulG!m#N-(cJ+%N
zhUT1GwzqB5pQG9&u5o^ikn3aK>+`Oc1y<_M`>?j4N;dpPXTaxI^=x+}%Pu`;;QagS
zxc;H*zoggp2^p@hdbn1ks>z#IJZ<?&Eoc2VFDnmUuHF{>;Q5BBnmV-}lC_oR<JI{O
zKdWIo_j|dm{L_qpBzJ|5?~Grso@#Y|)|Zva-*2^}YQkIH_0_!5%&B4i`&)kZrwW~@
zEI%qVTX#x@(&{&+3%4%LnrHUr<g}`Lkz729IS2W3u4Xo#+Ws-EZ0e4rPqoVf8KSH@
zte8)1*|=cNEZ5*2`!DY7e9F9_H?t&cU6qqHm;2Xq3vW*^joAA5(%Tc0ylZx@owamY
zK-`MRugh{SM1``Z#g$r!e{^=<6s^^AGemJ+&zDBFMT=!-^-lZEzTltD5B9yXm7dGl
z_eZmMw%yI&Y3g$25kqQo1^@diC&lb*|Gs*@-p)Q!dXvWa9g2okjeIJ~t@3M*A2}nx
z|MRQ2<^SG&c`6=X`{C8wdYjJh{Qsu^>h1r@*R%ewe6GIy{hnVht(VW2_qoyXeu4G<
z1+G(s%u-K_Wgj`4*>PZtm&nGg^TpmMuHKWpaklx|X-oT;Z(MNe_QQ%phAT@f=L&CL
zxA3z@%k*a<;xR{NNokj#ZEXIdd_uvtap}2VPme9!sP#=to89&HyQ!6WZ7+GN*UIm{
zZ?5ewFxO~?^HKBN_FZ3l4HjK9<QALGY@@nxn#B66P5mh|H%y-FbL6z~I@ej#)Sf-B
zdmc2~^IB5*`TWAo7LJOu)_UyBxVuQ!J0|nUjJYdb^etSp*->d#q}P6j84s4t$Vj_?
z-m4>_Y_3j?j3R4YddC7cPZyIPM>Ds#%6^zRWl`-B%lu8Yb;-~F96EWh;<^5(s`Wd(
z7uW53H!Z$+y3&o!i{{yN`h~o$csDQgpylhG)>q}yRaaTx@@^GXDG#om<NSSRS<#M#
z*EWBVG7h^~C#r1lBX-{7ML(vLzkB2u_hx1Oy%$ry?t0|<%$PU3Aa=pGAD-V&u}PFB
z?Y~u=_#o|x7~ATEIkAQQtCvhM?KiG$7Y{CSH!_$Q{BOscNlLqf;!idISZjE<@56?a
zU76NWJ9bsi&b!s~W4^fQT@SUoCo)c-pZ)I2PUkm&y}K;#UeD~irnSa-g+lhbvwt=H
zozY!%)w?u&@q43p+tWV(P48=utkzIXzr|O@D%hXB_nq6GDNI2^?;fsyuA}qluGZ7)
z^QDOoV`M{<3`;MHTzl!E{wiqI&xhte8PAJ<dQzJ?kxOi;;M`62W%2P3elwk&pW2$h
zaASFY%-oR3?hvO5ms*$4a9eM(cJq<%tPy1&l0)xbo#LOs>%6l3hsyLzdRd}TdPxS~
znxno3b*&Noq_>v+wc7Q9Y4HpqEv8W$e%M}J@}c=_!DY9e#g^Bmq+C*bc7yFepW(5$
zUu4xXET=Qr|M{%EqG|EWAD3@GIkhhCo}X6ip#}dP_o==05MkKz@04(K_ZgjY$sU<z
zUT)p@0(E=#_UdnQJ#$lwk%!e(+Rj{U^OD{Ov!qNfcfmf7FQun_mN(6vWLDC?;>FrY
zZ@0{~>d^YT;`X2UFWxdPyDm7*C_;aFO0&UJ@z3c$LUvE@@0}L0=oXJ!)18g%%0ib`
zuDEuuhpS?%*goMaQBEwOEA)zI_DsKiR7hpMNu8K*&=t-lQgcj&uZewM&)YiJD`PgN
zu)b|9!?K?ftr_%M#afx7_U8w9D88Bc`G@JTO(z_WzT)c>{IP4Y#r0L98)pZHimUla
ztL}GQ=RW({juktfZnC>o;GX?M{oxAE=YKEnyfvHM>6hPEzue7Djj7pNZmV91IpMco
zR<4wF*5N)5k%`+_qf7!<I{YrLP|577-gMDgs!~k(l-lzTdN1=%UfS$*)4L`Aj?jFT
z?JPNS`$czd`C@nd$Q*%+)+0ameyTnzF8b-`l6e(v4<~%?+q&rz=lLBkB%-%U9?dE5
zasLxnpnu8D{DR+6m19q}{C^uq%{$ejET5Ud#h@2B^R+(1`4bnrqZX!JeKDuK-1SeQ
zb!Ttmsj&Y_JJ<9^T<>uzI(6b={{+K-k%e9xn}f5qTxblA68u+f@3&HQ&gUgORuSce
zr*ves((k3M+naOe_5EW#Cz#!`*k>BOd$J?E;!$l(SXbQ^H8%5C9amigpMUe_4*#+#
z^O~z`=kXZ<EfY@7yq2rJenxEc-iz8^EPXnHlb^T*@cSvu;oG~~Y+dw$Rn=DycpZ~r
zz7#9!aPEMsVgA9ajYX>$cr7xzvE+>W8jpw#UncH8mw7=o>AINO8_xZ??jBA*_B~o{
z9h7-!8IP`*rG&(;Am;4J5)Wh)MKjLLjyYs;lHKyu0^d|dMsZ0WBh@^SH!nFj{^+fE
zb)!MWy?T{Mg3l5I#W2&^DSI}h)Lga6^^O#}%~v*=yL(5I;3W~&ub+&A4D)j4N<X~l
zSA1i4@3u?7e_iChQpB>hd&jNae!KqH#NNuExb=j1*ZE&B|3136>}>s|V@uwdbSla=
zeluY?WPFBq{Rvakt~U`|i-Wl~G=8yvv^1|orPan_`lknS|GZshy8hz`zx_*f&Jpj2
ztm|`Dh-|l8ar@fVtThq#&v)JY;PF^FZ>QAe&g7ye?<d;!H*B-1o;SfzGDv6V$~Vuo
z_B$WA7iGHf_-UR_z730QESPfKI(MA=S}9^bLs!22&cg1<{>~Q*cTR5c-Bs-nDBi1A
zcK=qM(euc++D!Xw6t2kKWZgC?bio@w3#Lz-)p(`yJbA7+)`SMKiRLr8$?RBm=e4BT
z$&J&$RNpe0BANSTQ6B5`hnrqrNo@>L^%PztW+<)|t-do#dV15IAgg7mN1e8Rb6mBS
ztx{ZTTdZ2S`5ISO_1LH3m4OwxUYc7@ZJFS4`9;Ci$@i7=IoY4{%`K>37X0kOI$`s`
zia?2#{c7jrUI{pyzOj6@ky2K~(}Io<Q$N|B3fR`9=kg`}zP?-&<5l4al4*^fXNIlr
zw4CjiZ++<V{RP_T_3`b?R6f+*T)*ABbBFJ<*Z+Jr?yPqTzOjAvgXO1cY-PUu3OmB+
zRBy-m?PQqi>b0}3#0FlRHEsRt@>EYp_4hHi)}~(ksHhir_eR-s_BN$`_ru;_*NNJm
zwDHk}6>JA*wQbuH{rtS2`{LNiA^(yKbCoi$Mf$Ca$dl4mKVO*k@*ey0+S8Yo?h*8U
zZ+YjqL5<TPPb2^P4=xqRR2%%i|LmOElYQlWl`mE+6+Cx*c)8p9{p{40XXP~i?Q;LV
z{A<d(V@}b5i=*1Q{=`ie70=w>y=$Y0+48=cu=xyI9fj^NFBPh-_<r2BpY4^_JHt8F
z%Z1-}uLyB^m$B*S+i0$LFP%4BKDkeA`>bh7(@pkftl7_+uv1S(JhXM~=gjVzpBw#u
zTYlSf^^J>bWmTixTEj`r=W^<2Yoz=4o2kE%*Zx{N<;4WkCdqvde_HYuY1gxSZW7FU
zzDncytXI=^FPk{wsOsvtn2GXxW?FqdJAY?qacjP)>+k;S>#NS4TeI%h@7(Iuv04#=
z$2H>K2C=?gs+&H)M796@_1!9pn;y+xe`k@`>um>j+}WC&Vk^}7SBh)*tjR{Nm{+Yf
zj=!;LTQE1z%aGfhvQxEGCtQ2GF_tOQN>5_i;<q>FWw5+nBl0Hj;)bx!-5(!Udik5j
zEo+VQTcUZIFFxmDy7^*<vb_ok`CR9951HuBd(U}wir?$l6=zP0J)Kf*b7gzO$=*3D
za(i8}B*JyC`t4ioKSlP`-P;+lb3ad9_px|gr1AoumMyk=`Aj!FPn*7rI(?{SeeR1@
zxdn5kW&A3CmpgUxoBy%XerhyLT9Fre?bg;a&d>HwSh}wCu$5Qrp7kf(?#oW~yl~I7
zF}a-U=GtZXG5HtPht0Yo`R=)<hMnD$<L~-f7OuBfO%i)^JAJXr7wN5g^4}ir_{TQ)
zl-;}JWibz)>z6$?-Fs2IuI``4cBzz2L62pFZ|Qx%J$a{x^!Ljuf^kt5n*zIPSA1}p
zJ^iG0OxR=gYxOI96)*40v7PuqC&l37d9TUK+`fN~Ju#u-`JIyMZHCH+-lYVp+&f=>
zaeYPRi{*w1<^2IR+g|4<3-1&YFwgu`_2S*GKig7nnQ4CNJ`hrP#pLGB>))rJjXkQr
zX<^w8E}!Bn(@RBlw3bUa$XOR<+3&ix?$2ynqxT=R&g{@!l(kXu{Nn|0l1_(SoLjs&
zn4MK1AmVzsrPi#Mr&F?0jZX?MY5rcqzdyw|X}-Ny{q&prQy9`_%<PVBeg1KmYS2Bk
z<Im*Z{_(S#F=?)$w}h-rXvu-|tl9R><qV-V@73oRztG+*^SR^fi!}+B!YlW_3NzN<
zC1=qUcRj^=O?gbrtlj3D9_n+R&bju@c;mm6t0()sJM!1=i@JM$7pssKvzD#R@im33
zS>$IgG48vy<;b^3T56jb*KMo&wdm2_)d#NZ>|Y&yVg0?fbncDoXWQL9k)>4D&y{ih
z-s{L87w$7ib{k#x{kCV$Ux^te!LKEh*>+wLd=v2KL104Zg2zXzQr}7a3k$4@Fi$%9
zc+-?r#m~?7rEaOHSbh5Brive@EGn{nmQGTfd)r&^`>VF53mt#TeA;*gKcD1wU{X?2
zDP>C7+g=p*v3j!R|GzPNHwWnUZ2jUKnZGh_l0$>k7GG}x_9>FH%opzAPE78Wb;?U>
z-n!sihw(ylmML8eP4;B>Tz3=94ie3>*#6VDV#OVeGD%INm5(=VII`;K>}e;Cg!W%v
z);0CbcP+8jV5?$NyG*CRU$NhBpAmEYdhT^Vn^o3%_YHUNT<Y6XJTZ^k>X7QL+(T-n
zR$abQ=UVvo-QK8pZxQ>!7US2t+h(tvR27(-va?`?M|a&b?%O|g?Kb3AtXs%wz9g5`
zb(ZE__hQ%XcN-7ydfqBOU3=A^hQsH#7rVZUP;}t6SdoAJf{Rs5LUSy~*0aIs$wBx2
z-${A6Std7Q-KsyA`u$9rjwMfdb<5;s;(z&PT8H~4&5$~2HA|wrGXA@meD3U*H)l`R
z4Q|=bb9vR1`e{a0Dn`fJbmmUJ>UMYY%2h=>CQc505uLEhUpI8~l%kN#Xz_|o-<KuD
zKi~Im)4XG~do|}wGZFo7RJS>O(vyw`&I4{0VUBzEHeELQGB4OJJ8`k;y|;HSa!ui2
zTfSmRrbt}vB;}K-zc1^anio`Geu{4&2V=EBf$e6!7skFmoAWPToRN0+jaX-f==R%p
z*n&H@?VbMWW0`f%s=9YVAujx(cf`!Dh&*TAvGhI<@88z@JbDKVlqJ&T<`>nhnsLHf
z)6=CrZ(~EZ!%F`BwI&UVPE|hos`NH^|02E(f8OUGyj{lhCTPh78?oKhe?Bt*C})0k
zuH|m@^Y6h?6OYed`IuL}jNxC5WdFUM)U{SljCEHQYMjdF^!}l+>Am6YyyNX(-uc`)
zp_Tsi9lxQ|Gj{IwdtOqWYc2JDm8l)Rx7~Qwx&5A7pNdR0dcJJkmZFy;EqQ&W7q{+T
z|4wCPuVe$$>$Zb}o>P~<aHw0m;dPJt<g_l$fb@sO&o3T1<9WKd>19Waa>A5DVrOrp
zM=;E)joqcbL{3P7F{Aq7lf-Rdm;H{lgmiHKa<*7n9+g?ecIh-@?3K$c^DBNVesnAC
ztn_+kncX|*6t3O4L|-}cv^2|+mDQW3_ElYAWRU7+ZHapBc=2ZMzHE7G$0zO+9W#V~
z8RzRMIB9nlM(HeY*l=ymf(q--<ax{g8-6)&^^C#p!hVg_TdqpqKAUZ`(%$+3+g<<8
zEX$jz+ZQr8^mDf723yH`Ejg57?_$5}_tmzY-0JVt<WI`p;Il4#{eI0<t0%W!ziNFu
zd-Cbow=eUp-mbo{<oBuM{E|CK3#<?9TrPNWdm!JG<D4OBiuah`DxNMnpxw*%&*HyS
z<-FO?{=M=$Fn^*w)4z-IoVV3hxy6aiV0#!Ke`x&;CdZjqc-T#LpAimV*Sh8SvzwnS
z=?34G!nZn=Q|!Znx_m?xRlEcLJ`GQ8O@H^`P3!#JFI8-!QRk|@r<GW^gr_$@p3T$t
zSZ$Nz-G?&Ew($ke*PD<xw~GJLir0@klgl%%h`KR8(W`p6_4@~v1sfRn6Xr%{o|vI<
z^3HCBE$d4j-DZ(1xqWr=4UU`!6Ni2#r*ui78CD0&LMqcQ1&OZu^6{6@w>P>Q7Hh@C
z|NCqFr~Jo+X`c-^#CIjG3~YKL{AKH>u%EAAE_OS-K$5j_+WiBY!j#{cy;}LDpzP_d
zKPqn%GTB<&rHws)WlA*eR`nHO@G!aPwwHIaR%hAo>^z=hYrkHZ;k9w;GN~ys$*cX=
zu3EXX)A8%E32S^FJo?WYXLe2d_lGa_Tpk)B_D<@$0d4$Yi!Lqvc>A!@a^*iiLw72F
za<E&l`SeFc-T&)@eLijOzE<4P{+3}%SS@e9CqKhdp*NdL*q-iaE4vzgGHw1N)u`#Y
z68(O!m;3Mh%%)=$9P;wj#<Q`r<-RTuJQA~Ue%;w~C7$QIJcXAZTAsSrJfn1B@2cPT
zCmmd~Wc8#R`JxN@AEO=2gPv_PJym`n_z(Y|wM>U@2C!#8yJ=fI?V``6hY4TSarOqy
zJNiOt{)3H<|6A6+GgvLLdc}u^x2z(Y8SYi4NZMC_{iT0@>66%nnw#cd40yX<?u2pt
zmHY`Vf|@JJJO2DOj+&IQ?a`Uz(_RZ~o1!SD*FI;`{^jOZTLpamr8(QSytg-aoga8`
z^05zn%Wm)&%~890VSCvMclKFL&8*WkMXlx+cGu34zbdM`-7{mwnQONSzASvZxgq_r
z&OM#NvXJC{rAW_z+p_ZH1@GntX(Xopf4Tph-rRJhHao|bSr-n5pH6?4RB?01iK11L
z(>8F1NKUVwy+`swPR3@5H@PbfGiCfdjRiFQawC*F42xVQxV$;IzgYN^=xWut`5z|U
zDB!+y^;_VhmOXP7zqHKzvPk2JnK8e8&6}tHG=kE8xdyi$pZ#;yJg&X3uFRjGD}67=
z`s?;>g*vHgG&649Ey<X#cYle*$Fu#HH|ML~J-=$*o+*5*uh<+lI>2su@c$0&!;>SL
z5+<AsoGWtUrUh5h1mV=3OK(S7AK2a_(p%X7x%>d%g86^<ywE#ZYw%#PgzUzUZ-R~P
z$GUIzy-^PP?!(_IT-W%x$6>}){VQ+tPi{BKt)D$#rb~b42S=OjlMcVxyW;qH)yQtI
z(B;bdPj^V#b?`B5cdCCPD|+5PHlAa_dxjS$Z|nJg-lr<+wN=_KFDYw>mBjP~-cntY
z{|GqLggsayw%zAd+ykTh8LDfp$`&3Hvg<l-wra0O<+5UBUGdWr#&7eM2VMGheYbY{
zl^*7mH;!umv+&({Gpv4&iR#SrvtOjF5UCHo%)8w1Pl&WY{^h4p%hR*wnArbcZ1uHq
zy<7C_`U1w5Fv()yy9pJ%E1rd4S*x?{%*q?DjPvCtsdMDk^tP?$={;Pz+K~5v%eB+5
zxNcP5>1&>LHTuZ0ze4*N*wh{fX~}(jsAcfk+w9%0H60n>|4D9gG?#kQKX0#4a$fG@
zOuk!Htt}0&J9>|(_g-<FBPd#ZZE+L#i`7dMC#3P3N^L%C^X*x)UG4gyhQ~td4u9$T
z7pJ#C*ziE#ip{@f{OG;BM?Ht9isPZism5pgYx+9oZ0{<0d6RiVCHE_b`H73e<!^7f
z#$!F}RmsYrSD&nFPCnAPaV#|G<I^8u(haUZA4y+ldOt_$<BjG2qa_u8o;Q!I6pOvn
za6ZvfD|A6qPU*B6FZOsYNV>3l@~16poHZ}cUnjzs>2o3Vkm9r2HP0Oj_T(EMo$Q}+
zOIPmM-WY8;pUwaJrR?^*+g;(C<ejj^-Qmdu(`Oq`)Kz${zOZ-cV>^|esXH<v|Az(%
zHlJt6^}KK;MwI)vPU@);)4Yi~XJyX%%KW-EPja1t{*n*k{E|h_T&6gj{A2OrR-sz&
zft>w)_67zzhF7;$h9#!DA79I(_=7=W-{klAWG6gLaAf;0`jhE>aNYkvFP^V{y~^?0
zAvb?^Xzn~8KQ-Cb+~5GC(uSi8=15D=TL0&rpu*}ot7d%qTzs}W@To3i(;>6$>AFw1
zZrD{kX~)ht8(j=@8?%0&i;uat>g`$a_ipSDyRtiD4j4<ztqWbYp;c2(z$YeRjsI3Z
zme!ZYHokjs_j7GLU+ER0T`J;V<;o}ae%!I5IQN3K%ZfiPYc6lfQvAajYQ|K<@haZW
z#IF6)v;)y~VoV)eOSD`6PuJv+KdJUee1lZo-z|!7*K~Vy9u_FMUU-&OdEPG{&)tqU
zSNeaFs^32QqFhni^INuy9Vc3d9sDWxRN46QN{QcDaa%t-cYdquXkocOb&tmGH4l`|
znF;u<U3T3-Ra}0f$e*~ByAIv^RVUh7Y+#*`P{QhNkojJ?uk{t{T@~fOOcTVfs`0Hd
zU1;-ok4k=k`SZ0LU4J)QeoDSGll6%3*K^?p{CdCtPp$uda<SXt6eEjcoJ*UTvftKU
zE||*HW_d1efvVoR<I3DqHqE^7W97<h^>+-FmycUsROidTq-?`7XWz+vjZ1x}uxgy0
za_`)h#FZ+Ci)XJ+pLjKeIm4n?DCGE$Rg2yj#CONNmT@t?ncKDhoOfuSMP1T0Vf8Qb
zDnBnjnQ|!LQ^?(e!sXj-M751JeYov-#NyHErj*^2It<ypSuTHm+Wh8ohS7ya_ca{v
zT=#CTShLE>`L(D~*^Uh#o;~1U>FwZSzk4EOO0rGi`Xj5(TAX^i#3aBdZ$@r$TF&Hn
z$&U255xwh8q(c^18>EChSNS9$yL#vJ<2<{o#T46O%HQ(GU2E(YxDY$VPB->y_BPGx
zoV^muJ|+EO)#3f0q|5#63Uk8_w(rxH|2ywqvc>AG-fZEd<Cdi-9{M;bSI?CBy5W$(
zDTavP%`={qUQjq?Jb9OL&3#qLHaoeXh|@uPHf<C*61i&P&F;0Yj~;E~yYVjg@~=g6
z?j1MD*7dBP`|atOBig!~y4UJDt~v2^mt^hPo2PpAZPhDgPyZov`{F5)-QHFQpM~sD
zo|`aT;l@qQGOfcO%f7p@C~;0b7b=+Ldv@n@_LVDH*F8V%6Z!T|to1IX>aP~c;>z3`
z8H#$#)BelLrvBEGel)$bqkePK;U{Tv*T0JHTC_NO`Q%>hpVLC!uWM%{Y@M2Ym0fE^
z{EZEPyDS9D?q7FZbzW6t``UeHcsE&fuGo1}d4|uH!yT7zB!64-q~iKKfe*4WXBGu~
zoLKYq`zntZS;?u{o2M(cG<fKGU;o3i^{(=1uhUjLr@issy)o{VTfTq)jcxt+(w<)w
z`J-_5-M;8X@8y|%FXeA5z4Y6x(NM4Xa;@n;ng5oj+(R?wlvuxc^C>XrR_wy(Sx<}8
zmV{<sWUif@rtvmol7w`5>`j%Ahun<5zu?}v>h7<&jMv|`d0zgS`$TNryR7Uzt#Nns
z<7IS?J^FM*r^Z}`Vb{Iuiq{zzpU!@Fx-{_Pqf%wDZEW7xS0A7G`0t^UX5o`EUsVM9
z?~|Ththf8v`fT2GTcz&a>#4UY*S*vT)+)OD&fNX?P7BfWwU))t(~A8Poy9YK4;$|e
zvWhd_c7I0Yv-v6YX7krgu+iC?vNL0one`jB&6{f@>aT6tecpBIwYTO`a;D$Q_LQ9Z
zUAFRT%!b{Y|IH4$Jk9){0CR}P_PXr)pW7^R%lw3*E~Z(Z+Yvc?>z34=W|zMx?O30i
zVYTT<ZQKu^m3KD3$}d}y{KjnC(!3+ts$bUjc*mTc(75#fzGd$Ff)ac$KGr(r+?mnJ
zu+c%xV(Nx{%}jx_W?d=yEq$S87waa;8{QJn|3xic5|Qch!nCM<jfqlHJ-hbCe^!$g
z#lMfcbcXZxmB1W-cg?evZkJx~oUXl4MXW<#`=d0w@<%VB<4=`X8LsOu{I}e-$7K2<
ztvTE(UyYo^HhtQkHC^{Ai%*r1d`slL>mtWDB`?2abGr68&l;y2g+?>B#MZj#KRxkI
z(0h{TjL#*JyYtU2d-|>5;vK`gcMIoPAJdw)hvEK=L&pwO^&9>9&GU5etKWUH@{Bk8
zIxB1gz8o%m+M6r0>bSq|wtKha7rp#iX<lwspY<otEVW$u?;00brf=6yb^hUN+O2jo
z^sKRTHR}!YYprKrrCHflpUTs_wDr5m@yO<M<J);$Ys=0rNG<P4EbDo=N%iB#6%jof
z&c5CvxUscJ$~N9sY|^o&bq0I24_+}b-Ib=Z=x`GI^6eavhi2}6?i;vbw^8NAFW=WF
z9y!jmWnNPq*X_&SWx{yxA5=<vxSVnO@v^sf1bI5Va<4to{`}~7?ny55vKhPQ{5z5O
zFRRGeb>>Na&#XhIgg5k<^O-Iel;QkdZ!Eibwo=I@!(V2qFIJzsx%orH=~MpBZ-fl3
z->-4|?-?@DAUWhf-ST6%6Y9%7nt30Kt)10wvgX&>qM5r4Y7$n5`#f6ta?i`JHX7Wa
zi`is9_`k`HOZRTxFYW(mPlW3GvK`TVN9VDbtvPmteX-7pcUj$A)$LvKJ>Iqz`_3?l
zDY?DV?5CGS%apd=liSTY4)Ro%wCT<;v2|MZe-q<{RyJWJl~9I~?>uw&-b#|wsMP1O
zOn$fK>sf`hy7_Z>g3oP>NS>{la95;a@iy~Q=`T|_BUlc5YM3wId`Ho{q4(ypgA+b)
z*&e4AVfr;KUfjAY=ZAOc#_TiKh4$?=QO+qp^6Qjw{KM_GCfD*8Zk%yNX?ENfz1B&m
zJ)$+H?y}i3Yt1xkms9f+%MTZ7aQ4=o7kxje|B3XTOWS%aZFBq+W*>TD#%gxz+)T|J
z)?ZhdoGa|B@(lM~?|=90_^*d<i~MwwJ<{ffZ|0cxSMJGP!Cb2?AN=a>eVlQ7^%j-8
zWz}!}>ooG#M?18Yp8rrXEyhIn`Jzlajb_Ok8-BhwyR3BUQh}%Eho?4LtBsjsF6^qe
zztrt0e|VmPqx@wR-oo2{x)+Zqm%Uoy9P;sA*{dbW!pS^WT}vXCD#mql&a>8T+_v`0
zQk7qu0}3=u^<S3w9o}JgcE`_v*UKiB8-#`%_iksK{!Ya&$xqD2X2ODtZ>w*=Y~1o_
z$J4id8;bsLFW7xe?qrwa_k9l~4ZJQDoXN5(cvrXh(wf^Jj=h`nc&<F-y{roj$7cLK
zC2=KsRx97X;>j<ktPWG$_PjcB_JpO{cKzk$&a<7X`{zA8SuR#<c>cq$h9_OxvPQvT
zi!W!n7c=+X{xNGd&*S7(ukyTK#{2F1w%yLT_VhjbgtKdx=Pr+AuU>0;fAcdY<G(*w
z|L3nQbLdFTODQfXN=?i~oJDA6pkSZ?S_f!oV2Hdv&;lloygtyvkeKy>S8H!xRykfM
zpW6Os!=cGv-u-y9T(Wxk#nN!W#sC2u7mbRB2eY`OpB#>h;4|Fq-N2wZ>Hi+%*JoCp
zoAvlM>sHX(!0mUhmOlA-dh@<L(c*>MAN@c5zxLOsgTLqR+AUsRvEkld?mzdt+2id5
zJ~r<DGk>}Md%LO@{+qiuuxPK{SN-K@^OtQqjNSB{?pY>_y?-yax8}o5zqkA!?3)DA
zmcKrK-{#kKc6M1CyP64UoJuXb-OoSxX#bY~^`mQ{S^KT)_D=6MJlJ(N|NCp9D_P-<
z>-YU%8It||@6lhSU(4AU_kYp49PxjLc(=)|wm*GezQ}IZ_@Px3{~|T?;PUc+$Nw!5
zU+Q$>rK;lDxv@>b_a1ncP5iK;ZMqom{lJ$?MeS79eEaGA_uh@8_e%Z$=ig~#;O@Dt
z@F8@@#@LuSel;rjx3V7T)ctsIP+zX5GX0wC@!B@YU)K4|?>0u?-F4v5gC};sejNNQ
z|Njf<CZ@`N5B}Eg7UsYA-|%0(eC?;&ALozT@A!SLS-!63d$+XzmEG3TGCuZmm%UNj
zX4$^Uwy1UIS|#0Q^V^aOn)V5`G5=VfS^nVX$(5Be!fQV5fB*GSli8%(rTcGKO#btx
z{kgkt%4OL@i~llSV>U^T2-5hn_(9F%&-?GaZPb}^{n*sA8^5q_?fBs|@6zeNj(S37
z0X}W<%AU`c*YADLc3wp>@zJJ>Edi^WuJ0>dBydW9$2Q)?9|9qfyWiZq;;_5yV=wnU
z<2ffPYP4<loqh55<II0A;~5hxelS~a>OQn=9+OPeG{ZM1wD^{+SF)V*uplW&$L;5#
zkHN1dPc$-<_vF49B+A7(#bHABgtSt%DLS1`Hbn`_m^<#Y5Lh6V*}7*^*@1O&@%x#*
z_TJ?Um^i)a+ismsWy6IkeZne}BD_wiByA1MNKu=}wPkYMY#*a_YQ>!)3TsM^tNwl0
z>!p*;WN|~yX8-2no@|McN!MK8i`I3%|MNFaH>iPYF2}Sj@v?#*yYi*qxr$yBK6_&C
zW3e?qHfT)wz-@DiLE3P3VA9FY#!<gp#UD!h6zJ{!RDL*)ck(I`XS3|@cmFQFpS$g=
zf>V<U`^Lmci<ks2bf`?*bG!AMyF&FLe|AmPQ(i7=yIxJ@DpXoGQL$ow^*(zIo2s>C
z{(;w`vs>=&T{kKJ`zqVtYYr{snbeT?<lPCoGw)lw)`an8JlXp25AzxZR`;5!^qsoV
z%V(7Zuw<+3|MaC&*I~-uEbrY4n`-r2-z6yXOqjQEj=<K)U7@P;SXLCRX<5&-<>jAR
z`{|9Fu3FSA%2IGHdu4U_h}pmP=10=3dCR}wIu;W&L;PC?%Z9mZ8Q%A7T_%N|SSGst
zH`ldRk*xBXUF^TEAF}+RZPU}?uKvh}-^PDQ-c)^iQJIgMza5Z&uvPTQoC&+vYxD0r
zX3ylr#8%1V#kTB$PpX3QBX5PrvKt;hKDGGmSLR8(w;Vch*HU3l=M1?ip{6c<l{|}&
zyxV&$@4R%jU2|aAftlJ7TI)Z(Kedr#VtKq`)0MdNwzV~JZa=v0GYLNXvu>u<hkarT
z7EZZY%hz<L+3;#-<EKgH!Vf>lurtK$(5kz#DY+o)XCUM5&pUd*s`Ndb8@fBVcG3OX
zIgOik=l?1`6&-hvbJo0<(>uzW4@>G<I7IZAb*8NiJSdd;YPQMN>fId4dpZi7nzh(>
z9r>##f6h!K;FZ6e&9C_RvAh3T{oVZ~%dqIiKbNSsc~@Tk5VE+=u3P)BLaO&ol=LFq
zSz9Y=Ha)(#ZtLS&4gY#x^&g+&l8~D4vV9`U6|N>-6|rrK5ep`6Dpd;5o)euU9p-MP
zv0r-UpKTL^f6n0F-9JHQ&Bmw;{kD1P|FfK<Z@v9@>)&7Y4T^`PB7DV+xKvJyS3Asc
ziZYcsq^R(4jgg_{2De)p=MFmb?@hO!v!wCoKgnf_udAID(%kdRBXLRp4n<dg=B1C@
zGW*M9YqzYME`Cqz;o;7Ac8@no6c$}}-aDzxB2e(In5f3ymDlQpr`GpgET6nA=au0p
zC26rG=jLCZ$t&e0`6K?A$Udi4^>;ZYavZ$8xoBSEb-tg)f0R$eEtuY|oMObx=(<8~
zIfIoJhkvQ|!>Q?WEo>N=d1iceo!oVQ!<2h=*J`J|vf^d(u$q@{W!27G8o1o%ruU5s
zMVU=K+Z19QeCH=T6zX^LK4lzl@^u1h&J+oQ!rX?`wNm>T!{!9c@+-PvaIDefw3Hh=
zJA>0TWx?F{OjiwBT_4u2Z*WbRE&uUE8-uvg{uA+&KW)>yF!`B$?Tk!;6z^bTmm|w`
z*+r&J?B-m3zDl2Q+LB+h_F3Dljq2Ne-e(F|tE}Dez`bT&rP4Qa_w6|r{6X`L=!taQ
zh_;fOMXLLn7Tt-@F|D}5bBK8vW5DO*6=&i)QvO8P)bfiwJId4}6}ZxEzq7zxFXd%n
zj!VV<&vKm8(c!OrP|9-Qs(h(fx&J%Ze@!|i<u!e|pZ=qWOE*2%R_4lfD4qN8mNRqr
znqO6t^(Vy-{cwM*eOFpOZ34&Z=+FKSW|?2T;;F*AA=5_GGqRqUTl_DthxP0H$tiJ<
z{_D=^-onuG-bhzvrQt%>)Q8)*e)+>5n%(##)#U&ei}<Rq_HP;GG_RjNa9Q&<uS2tO
zN?h4<Rk^wicFs?}+`OF79iY;hv_OM@dHH>Hr{#NHU+4#a==z|=6)CBtx6wmA?|XIF
zVw0&~T3+ZlZPpLG&bq<ruVshtxt0Yl!;O1l6NH}%|JW&Y=b)2&wxr@q;Tv2xKB=~x
zn9A0{<of7n^3U2sTer0*8~3J#eerU=GRyv$k*VWlm%#0NSz-m5Jn}bK*Khg0V}?QS
zOJ<E{CY=+du0>5-#q(1@@&)%C+laLaLGvzrK7Zzb2KytKAF8K0my5qOw-kAlm9;E%
zl7?gXxo*>+XEvRv;+sD?F_yQ>{=t6M^UpuZP5H+4idVy-X#uMX-|giS1w^E6n3dMA
z`_=Bbe0ONjpKW<{Zp=a@yPEd)R<TZOdU)_0+e-0!C!W3EXnSk6;n`ru$G4B}+<A1d
zY|wgTcdvW;SGu+KPFlbD$(8EEyFO1?;-9luQ>)~g#Vb?U1pcakE+L=QPnK@cv~Yd;
z`HWeYomj-V@14?<CkRd~_jFt97$&)NQ4iBL;nluITDG1`j%0t6Iq`5|kJERyHEC+C
z7aO)`D?C3FePsFZH6QXmr6?~eWKeo>i``1EH?DQjZnkr>g+9x7ANb^;#&<wkL29M{
z+Y_C9VwN5|&E`oqI-if78*jd<{$-)p5%I~jHyHQXTAk>ye<-vzr$4HCo}&5hIa_0w
zzJ9*LeuM5V>o4a&u2<Mqs=zTTc>9~qNt^#G>^8BUF4Nj)5gH)2ZDw<{dG{9ve}?uA
z`%ackkPS8IcZe;$Jyp>1$o1+c0{b~n+pFDKY1QcRXQ{EK>m1dP>*7<j^;X7Que38~
zU)8PUd3y&dceJud`OVIUQ$!sYS^4K|oc!U)ivO!*FRO&H{#kJ}fjjf~??eCHwoPC<
znW_Cpmi3CLkqYNcW1}Yvrt}6Bp3~1L$UEViD!AI<`LRjme(Noz>Mn8$IehEhoHRit
z_+_IV|AIZ2KZbrU_tKMcJ-B_v9nk}ZFRj_m$MhcgKTF2NC}tO@UUiJ=ypkR%)4RVO
z3oSgW+))v5Dq5y#(fU8S5iC!c7bOeEu*z<KIeBkE_r!#~ejzd+9fbZ_zl-Ezlgz$v
zIFI2jOL~Q>f5|__a37}w9vMPaJuNM(o5H@X=a0V7^!?GqlL9BtId8fje)d2SZ)g2i
zIr#;O`=7XM_Y=MTxTbNEvCiscQ9Cd4@k`c-PuY9$c0nqiOvW=i_II21OXN0}UrFr|
z+2WR$U$CIq<zMyWQ+s4@`aS#d+@!&viCsp6y|HcY)#yEfC)bq=9}nnzu+?Vj`_RKa
zk4-)<&T@JkJ)J-3E88uezC}&GCKt8eILh9cWz^Jhrbc?^%xI(TOsywVUq6zuEHAcR
z@Mx3ttIOgqrY#ALbKL&+rFRK;JF`cY+rpMre)oBlUhp{me*RZ+K|1e|7vEQzRi8@S
zm~X*lGuKLe?!|;p4ScJ^GV=o@8$C^gH}%Oa63w0Y>Oi5$nK>Q$&n)e@qAty_vrBHs
z56fKVcs${Ja^6Zwr_P(+SuO8nrtU4y-Xit?))MEU_N?VI3eucJZyk`DyYQGu{{Bh(
z;~Gxx;ca=&7@&0K&I5@U&H}#%lg{vy+tweO&~?cDcZy(hq5S*GY<64Cgdc2$v(G#<
z=J}=kJm%BWIe`p^H;G>_QqW*HChTsVu}k<;^CsT1*)_ucu{^VxUMTt)W%TXYYyJGB
z%(nN=7laNb<Y#|upTjIsH0f}GPeYlg^6$mPhb*qnPQA%%+-aKl<DJ~k#U5$57Px*k
z?>cyN@s?@rDM#Nke3&(dPny-!;p~wu=jB!iR$fplS-fJ2;ME^5G%u|<Hs#ye)0(yu
z{k2sb7oJ)4Yk^MbJE1m(YXbWAebMsnV)xj2jc&&9wfZcI*6z%^J1Lac<>7=Qj)&^a
zmU9_|iY?`x&wlOXkxx%T7ycDtGT$5DzKU&O;Qin$pVmA+_e}ZLlG;Q2>JP8%5WL-d
zcW>KHiy(!EPhPFGP%=8PeZJYz3n9<*I_zw>RHVPtPnx<t_l}E(QMT&)`+43~9>@1w
zpH<p9SL)ug$o1_9euSo`AG@nM)9~ZUUunGYpH`NI<$X3(@z=_cQx{FLo2xBZzl&u;
z$7UVR){AWkpX&IvBDf0lyfb!}ojkC8!{etB)~_v||7Cu4%T{huhrZ-wrE5%koi&eN
zyiu`v%HuSv*y%-ggkG9!9zU5Q72Ib#+w4G^41eaw>-iJSb@&p5`+}p+<u{~m<l~e0
zdH-9&wT$#hTcr&4U9GnE*D&Ak;}DxxZb!xYo(s(dc`x^rh+qEDIc44>-I8Mqq-XPs
zO;LH=wzYe)#xtAl$`0*c@n1_N^)%n#y0gSItw3%c&!fcIzJaWTpW41i%h?893;r0l
z=|G0c-ko!||NFlr_EFxemCx5*){mSl`RIGvqemJGmc}QGeRv|W`Q`?%u71us>4i~U
z_XCq>w%>Sr|9<lR?m*e}<TYO+7I`uFulEYN;m|j!m^b?Ki#1E$Ii@x4eI<3(J8t^5
z$Mbi;nY8TU=Tp}n{89+r68Gn*g6P6dyQ%Zt)_Iu8bUK=H<*u6cSm$!6(s_&3|Gp+Z
zR4kWmJ0-Vw`|C~OT*f+wt)Fc@f1&8nP0dFSp2n5EG@TuzIfcvpnvu5Imhves7L3o+
zPA<^6pCFa|cG?BQvpFBW_z0i;vdiu8lI<swrS4{N*j{6~;gGw-P1|Gff!B^F8%@0L
z9ybkGeQmLf_pgQC7qcyPMcgf@IkqWGs7%RVQ(l3My0*ZzHKh-9b)EJ;xqm--;{VNT
zG0~>IX|h%RvzI&++SGOWnbR^yzJn4gU+mwUR$11T;LzcAa5lSetM;Mr3yNnYyXHIX
zUU>ekeeT*mMqvTfkS69bp%2gava`~Jwl;n0jH*_9+LAj(W8%-&&IdkrZF3K+nBF+j
zKT#-=+r(yq?ShC?pEuar^y<49PZDCD{p+6PBetuxVnKp;TN9^sN5>k9$8(!}JU91f
zYsag;$3bRSjRm8R+;Nz(wtcUWu!TT3x4=nBbH^fS|LXoC^H0T(eN-o|o!S2_sn*}*
z*V`km)fYG44mS#@y(iDD_DYT2dRj5}d%eY9XCBg@ncjK0=cR1Ap+kDY^}UNfYKyf5
ze$SdN7;;L%;N3Fa1uK0ek3QS-bI&6i$uI8&Z?9fD_tQF&Ypb39c`PxWepA!tU%%c)
zVYdmo8-te}@l#y1nN8SwYN6%EVD5e5jYksps@1j3SgxxZA0qooKDFy}vxZvP!^5?o
z)+MO7o@+@KKF!7OIkw^1mCCTq^Lx+FO7-5`_vOp(6kfs0f<hi44yMnFn6x+Un-?-G
z``UHY)gKCfX}YLC>d<)<`eGRe$Ij{EQn#;6dv^Yp<m|ga2TME;ocP)lr_ZMG!fdtM
z&JAal=*zA5PL=uW<iT#RVfx}VT$XO%*n?dgb<!`l#);c&seOo8@^|&3_m<OBwOnn#
z)qngVbIb5T!?Ul4Y^OTr6;I?~aqV{OW-U26^Mrg`O3&?GT#q;!f1EM+8nxP^g}LXb
zUSI;phOe(`PxSm)Q7mPCbl=6JlhvLa-}FpI=j~?p%degtGT+ClUVAa(WJHho;RiYE
zUrjek*_rT__rlt*|K@p$hoo+ISl)5;vtIEV$Aq5J$xY_(Jq<;QzGVEG<fZyv*uQXj
z-0k`Mw@ygia{3Q1-^UPp&2>c`{A>Lp4BZ4oOj|a5^I<Z4?fLKh<}|jmPLrfO;+j%x
zCMK8(J{8R4Rh-Zqu;Fb~%o+{_sV#0QKP0-mV)xzKvm|#?ikR4L&2;P8Ym|dMf9#%`
zvP}2J#27PA?lb2$9mzkfcJRRRS-V$o*(9(kNc~&jcsF3~lDWN_KW?tQdh|m?J)h!*
znf|8}!WUHU+_Ek=b81Xf)RYZZRHuhszw54?A=~oOHcKq^cF;xZ8C<vC3iTv=PV9(t
zmi0dWk6BC1J95X@i}xNMmGyj8dHSh8``e8t7wj!xsiHa6`ST>*K*bv`JcTRO7hN+F
z;fUOucet>iW`*1_J_oxuKKGjw1GJ5frbNf&J=(fnaz$-V=XtU9dMvfPQ&o@em!2TH
zaZ$&1!(S6~o?lY3Y<rTj{T#z;4Ze4)qB1^}e*9?n&O>=S+b)6otMz<D&HRq<keyw1
zy;)LG$Z@s(`mWUSRV)F$$8vAQug&Z=6<=_!Q`hoI`4s2Fml;!9S)H$%m5HA{W*~9g
z^!S<bx9WKv8GY{(ncl7VQWyBg;Q9@_yx!J;{6KGy1?&EccqQHLdu+zrXc>O#Q^K4F
z&;5S&w!{Y*o^rA-n-|2m=HrIn;tO6~UD*0Z^IxEz*LU8gUHA5A8fsad+frhvaA0!O
z;`K+&ua)w6XLZDF*)P|*;KimUFNe>$v%K3gGIP4_2mes7RPy$53UX6#Y>s3o3*wnl
z^TKLZhryZEPT8UdLtH&|7f=47dp(4!=Q>~JT=tyAo$K<Wf;(4EP58vVxMGXtm+H(*
zu}Tj$k6P;%UgFZpnD8$>=;AK*^s=Dp`Coi3WPf&;M+>^Qq;A_>dHu$nbJNU3r+)f5
zH}<Ib{O_)*J4`l|?X>jm-u2ff%-qA+V9M2<CIaHuo^(tRTgzp?z_atN@{%3LwmSdb
z<+<E&YWnQ`lhaf<BU7~NZ$Ik(czA*F7b*9ie)SODgM5ig*7jU-TJ$KZk!9)1_a)ic
z-*>c?o=@%P5z9GmQ<VN!M5*!gRv~e-HP`03PFWgn`f<l`fx9zby`A&&<g}}Kd$&YR
zda}lUU(WZSAWd=I$IQ!O4zEgk`#~wcJGmgBX_v=Coo<iHsfV8JpEkjO$Mj^d-7|)b
z(T7!bE_;-9KHDH=qKi|Vq^j@Pz-=n_eP<2ioDRR}7f*IS(!k;7*VmM>=<+n3s^~_4
zK9+atB{kRXixu_1m=qr^6!-N-*crn%ZRMqV-K@_gwroD}drPC=^Ird}J2rkYvHZDq
zR=TR+<i(d1eRjLbK9HXD{me$W+sp2Ayvt_Uka<&a&WhfR=f0}G`5hHCS!&Y#JGY8*
zw$z8^F~;9~kbL1|jofVpC$qTMJGEPEy!KqXoVMn`q1Bvw9y-Tt`TjLn<xKv&`<FV8
zXz|tg+8#@1{h`9XUR>d*c)>>bBReM?nEhj>0B1sw>e-e#nUh0SELM|EYje4+ZBX>i
zPe+z3`_^k#$En^=qrYb_4(OYx66dqJ|HJFp^~Wc9JiG4ut$_RIQ?(zb)~#jT7x?j=
zzzj3HA7WMyxL3b>5Hi<zUfBV2C8>+$PDlS4{#?Wn(dHI?U`qT^>-y&j9ibgEVH;Nn
z@kyw!^?j&(yjt4jiP4YcqI~J)M`}eFRthIHGaH_pTwlNEIJcX@f2FFP4T7;t@(dn1
zeaU3xF)}Ngcp%>DL`Hk#l)%;ff7={bem*$Pe=vQ^)Gz7MuOeSDsa#~fe^2Z1sTo<l
z?fmZFC)=jUYwxczx*T5k&CmPO_AN?}nSaY{SkQelgTun+K!H!vU#|ZdL6d4CrI$q=
zvNqhT&|mHq-1AeBOPO73>8u?d9<$Fs)LyZ)=XmG)x-I>Gwq<=v_+9Y(_Ul9m`A;`p
zZ_1xN(vYdh*0IE9r_ufx7Tb(Vm9L5pz7^5?6cpvNZbxT-qwO+j*}t7j7nfC4ezOu4
z&uBGYFHtoie)*nrqO;}7T^N@gQo0}=&}Ox@KF`|mp5l|Mf&5MG>jmDX8vWFD7K~s1
zVS7(*r1|-y8vVUTh3@-vvvK-#zL{M$%l~_XafXdnkio9zPaC^=#AJ_kJ^mDPPeQWT
z`jml;?AEP&eBzcSq(qi^eK>7>RpV9Zb{&gt5^vcV)u%38bJgxrUFsuov!An!)Aujy
z>9@&heOYE%nPQZv@|;gw;!@$EO*hZJW;x)<9Jb9+)mYA>;Be;y`{Q2gjDDODJ3QfQ
zg5|VVDco{%KJ<!giZKmY*Ys?OVnk=!_gNqBC>-ULn!fQmhsM1GXU>C4o@<uHbfv_a
z+Z^h?VYzExkd@Y#PjkycCLC}-wehj2>4l^%Umn(Z+&*<Y<fcL%_ZO!iy<g9-Jh7a4
zD8f$2cX2p_>V|U>eUW^h`B%=8k?uREA>E?tHMy)q#&LgNk;G$@`a^=MInFK8dPU9Z
z&Ppt-h3k9HviBQpSjpv7B;6HS`btanhFnX@#s<+Di)1T*hrOAyVDXJ??|()8CE_V(
z1luNxDVBuh9~4Z~d$oRpI}6t?t*74-j01F^F3{Szk~zn1|Fttr=T9(oUSad$j{n-5
zDd2nZgm^S()BK03h35QzZ=PLT9hA!^s2Z2zVSUS4Rp+8`YG!<p?*rztwXxx+1D{PW
zZQ%6~Ogy;qkIq-Spkrk&;U^ybwEGrRx;p7(zlZ0Y?V>qbUfjDI6uP{L=SAO)?eXk~
zSpGHm`*;}1yXbAYu%m3r&MUnJzaLb+ZTdBnHER7UdwW$2zAeUYGB|ACCcSL#ZV<?c
z?&RpaE_V3mvhzKcrV4p(pDDpu$Z~(<tV#!|Ypad2Q%*4kuTk72BdU?fcy43Wl8u}f
zuTQ<G`ThCR-?|pw66^mga*tjhy)ErHhg{7s;gHJ*4m7E*o>(|R>KNnh{sNvRMy`gX
zDksz**lc;I`n}?K^gkW*4X-TU2cL--ySIt?_P)e4=DCtt$HH=%uhkgJb@xfh9Nir_
z<Ga*LuibKSS{Krs67O&NbpG#gv(*z~Cw}H#H8)P~`pR#0FJG*GId9*J9oNfU3Zo@i
z@3{*yac|jcp>i~7{r+q9{~Ti)4mF;zRK2n0;H^JN>kanjnu?a5HlEX;7LjDZqr2th
zAIqopv7N>}eczt)q&FlgIOUs)-G0}9H)n0fq7Q{$T$_*GV=i-NJMiO#!{6r@ejH0`
z>y2@`a5Sp(*-efelb58g6@AmuTRBg<_~?q>t&fuUUsX-GV%4X?Fx%^xokvCFocFOD
zf)6Z>Z~kyRq-vzO`1@&B(M+}r!ru>MD{ZM*dM|B?hrh?g$?RS%&r?ehtx8<VKdk=q
z>Fac_31_lQB`$NkG+6qiC$(k&xd^wDZ?tBHEl%80`Y=JfX8m@x5aUZ1MIL{NEsg52
zGU3ZS#JX9VIcI%Eu2)9#;^$l5*B!HNdXSjE-AwA=$NuV^ow}m$jT0BLwkoi*o_YWF
zi1Fn5LZgru4p(1P&au2R_14Vysm_+J=NgN-oY+4Emxm>NWMMaDV|lozG-bxp<Gjv$
zG~)iGyj#QAGH1Qm+|+K_CEGttcwD<->z4a`*FW%_EItx@I(++g$sF(8OL29R8iGzw
zS}FIyXvHMO-Fw#xnTjseQ3(_B`gie_;`Nk2fA+0i=wGw)@2lI-P9z9~E_=qQXt(+I
z*Y&q~euzcq+-@+uv@P=N<Zstyt`{(s{P>^azvPvEly(Gncb?{km#d6+TIAQQ-QD@&
z9;=<igsso^u{V76H&`B{8RfUtra<bQ|B<9m>tz3_&1K#1aO!Z>{Vn#(uW#)U{4c?N
z?Y6_KinJ{auYPpReVjZk>Q&&S8tqN9l5eL>QaBc7H_>Nf`^m!%rrqE5ynTNjD|_J{
z^vL}D4O6%4JRI!d&Q+_`RvuT?4g39Y=_YAamggA^7OHBQ{HHgV@HX{Wrv&zVX_kvz
zFkfN!)w+3qJUAAd*!*&Zt<#<SV|#PIIPW%g;d-`?MQY|3<89>}oiiqJUBC9GT_$_J
zd=FnSb9ee{_u9XU`y!`FNGpC_ynkhRH-}dKuM>7{j0P9HqZLYube7po+mLeS%P05a
zt&47d>zh;ZM!xTN;v3T<`*RmpuDsLld^PI%?4x`yUz%Telt0@l#j%8;WaEp{GSL^3
zi*^NE?U;N2t&O?Cy_@MzUDiK~*!^XrZP1>Qms)$f6!o9)+CR^4CCio772JAZKicv(
z1g*>4b$Z^vy@uD!HrWSw&VSv)9qz2o_ow*4rZ+oPq*lM^S?HXjH|_Q7cb6jzR+jI+
z6y)+vxAf#&quY0~xUWS^e70As%r4Z+-l(=yhQsXJ-PND39a#C~`?5>B|M_%mh%S26
zZtlwSFmRh%`WH6G$>;Xp3EZ7{@Dj_i&MiM9K0Z@w?zMRtA^vNIUsX<%&E&_X3;o(7
z_ul<7>%vdbqK}^Ip5@)@e!uT&+2vzJHTiFTeG#?2n;kawh<B{{cZca&AJ>IjosWv0
z7rH0RkH2=AXj$u9ha(9IN1}>fuY1uwDJ78O`_l@hKT7fIotypsOq;k-VvjrLsibRr
zXTF*dQd6IQn<;f^_%E-F*=5Yk{t+54yxgUFFRzQ&n8zMxRd6yWa8=^2E$@TPqUDT!
zzFv7RkIQJ&+F#$Fq@3Kh`L9@C^HgE(i+@A4G-J0}S@tDI9-pl^p-raK^46rJ)L9&2
z44M0Hhh$HQxmFPv^&%lRzQiVh%k2Cw7mLR(!gsUk<LtHXU%ydm!7|C`-12XqG@}Gd
z_e<7z32)dwX`AuNBSn+lea=NJjP?4wyxQZgyh6g%*vibQ&C3pXC{6n1aiY`Ayqw3#
zA~8vL{_1UuzW=!!AZZu(#o%hluWhg0k4TsHe63j>y3gRxD!bL2N^E|H<@<)OE${jq
z{PCW6TR&S(CTI9=jox{4FFjvtX1~U_Q)tRlQxVC8D2;a;POMwc$nvMymp36y@cLB-
zuH*5O&s=ACwlJAjAzr=i_umHB>t}rCzmUF=7&N!YYT0A4McT)fepmRy#K?VS>U+@(
z4?dkKt6t;Pub>=jnY7*Ye&B_Ri{5+d{tDi=LAYtva$)VV-IpH5%y>6r&+BDvmot9O
z^AeBH_YGI5+pk@^(eHQ{i)u3Kho{-)?{Z%jgnCroF<{#HPH*q+#;82A(#2-l<yJZG
z93~4FC0@*okBcZ;Ztl8to7ugRh1>jG{u@3{+q2_oihKXxZ`#~!A71JG7F5rT*!Fgt
zMPeV@(V4H+CoOk<)#*JqO5B!7TWG$7P|A6^@YmC>ZJctRlfmt%+Jq|~qi<)Ir8sZ@
zV0)@DKg;yXJk8pRx?4Z?a~qbc9{sy<y8m=J<=c_zO$WQD`?S<Oh+!AmuJr1EsPBc+
z_TP_ca$m|!UmE%45qItF-{LjD_cFGn_845}^wK>z`RWDDoUQ`FS$Q>qS2P}ImHa;R
zq4V>Gu--YjjS=~GR@Cxt3!T5_M}4O}gLbuO@RN|HycA>3Ezcy|_$Pn3kQKf5lAe>k
zQGC@Iu8sE>T~;s)UjKdC^Y>}8_L)4X9^Lb$yCNJv+5fuR93iki)AY`k(#*2Qf7Y&_
z-W7B`^VmcIdz-y;RH~egY=8Bj^J>qhFn0c9euww2eQ-Nzx@k$s<6YAQLb7!JY&*>B
z{d$7*>1A){ocY9}fBTWal&<m*-wrb6%vxdQB{f}j_qn-Km`)^q7Wy~ENqE!U%RbsY
ziP>i1S~-2sCb|9yowa**u;2UFE2DnxTRO3$qu}>FhFQt`nckjHSan0=il4yc`URE2
z7sJ2$`!ls1QTE=#%iU#sa@)W8ANzx6CpBDh@%(Q0J|k^Two=izMVU)9v}Y=1ElFG3
z?tM*p`UmrpUit3*5ua4u4Yw_`Q*Yb3q59?5`R|es&0lDi5U(njv6J<8TFs`XJ6WyQ
zy$Zitq4e)v>!*uOkG!{<&)nJk_Ta`#wcby6)U^u7?`7eBldKZ^IB@EbtUd{CcebOJ
zyY8O<E>(Q1=f+>1e}|6!u|E`^aO;5T{9`o%f?)^kesXZLKJ0n=uKEWz-+_hu()a!S
z{OjELZyOV*9Fk!uIlNXQ>ht6ot6cB>H~eH=#r5{x<h|Qh`uwbZd;jE{ZSkfjLmN&X
znffQC|Ae&bVg8RTK5x1|c}hPxUfT43JMY)iTZBCx{aLZ!$52%J<(6Cj78LXSo4sh+
z(@Cpq-0t75VPmg3vTohmzf+BmEj;n=x#VN3Tg)4u1syrPdWPju4jv9h-E#Y*d=DEY
zr+(6TE#T8~tEf<-{*LVTiu*IZYniR-KFA$BL9xeIBjmM8=&E3UCb>_h0z0yPZHRoa
zHKhGdVp&YlMTuWuWZq0kIbLG<aPFP-OTD*^uN358?Y7;Pep1)w^douZ$Lp*l&Kx`z
z{a+{T;!)m>Nxe;+hkrz=ePw&3^y~5|>x<kCh1X};_nghU9&w6Uzj9A=W6g{1+N^W)
zxMwiO*?PHUsb8+!TAcm3K;ch=qmTHVyNp|k&VA0i9yf<AVcW^gDiS?ym-)h0M3^5h
zEq--te#1)1gv8C+*UY_Ebq6gipZPC&@20a8sy-x7u7B?sGHdsa_yzYKw%^k{UwU_`
zxK75&xvyd#)LhB?FjuZ&x!7?N3n|@#OOHE!A15z<pHXnil<9^xPsz+JhtHHua69gF
zGFPWSVOjc8-`R2@wq?(^&-LEouXMyNWA&TK<$61|sAX<kTpB*-!{K8ZhGznj-~N}B
zcYULme!12se5r_A&kVu*eQy#Sn!ik_v~;MNVVA6HvPo9s#**WHDbmNkuQ@GTw=*z&
zXNY@y-;PIDxn_u;*uDJNxz<C)bGaYC-@KN4wc)hbYq@t$F3ypY*qP97Y8*M~fviW0
zUQI=ds_4C0E59AiczE%h+t&qB`9jR^USEpJE9yP;`5I@dM(gpGvnOpmH?EBP>bm>p
zUyYOnk6NS8vb0RDxn83^WnKKH=Krc|UAVjiCr3QLe9U{VX8bQEzr`yz8uq=sa<6kv
zobk&vxBep=Vvj%C9;kHq<Kzo&_n#YDg}uFL{i<-&mD3l`l-M20OFDSU`YOk^Z)S7c
ztIuZ#8F<zn-=J~xW7*LuT{?Sv>J~1X8-DALy0YvSra2Y85q0bLJX>~vZT20B)D?v`
zqPLCao!|Som&I9j!!hn&WhO0;Z5HqSwR~5EYgPWcWcP8pTdliOr@GRu%M-tES56EP
z-s!erzZ@q+Yv=Kr-(Nkp)O<_iTF-ECVm9~nZRfLZyT>MfzQLY;^!1^PRhs`NE&SxU
z_Qh_ar;97@A3MsZBg>%PAo_ee&x3m<3`Wgm$wB+XPyI~U_U*gHyqlhXlxGS`%;Ssj
zdT)0kPkjT|iL>Q4b6oxP;;OSXct6d1<bN^9<c45DvUDy3D`V`D_V2scGUc~v-rMui
zu>G&1pj67<|6PYn7#vsY^*NRZu77fiS>`i`PUBUZ_YIGjji2zmk2oDa)3@kk-c8<k
z%jeBSb7$!OJP>*8Pf35=>Z?B`EuQY4_S|j$wfUS<IqwsftlF*}E0O3qB_iUWP>7Gf
zjz@QHd%ceSa&296FYDCZ_d{3SzneGh;BzZ(mup{tT+)*7n7yhadE2q>1<O-Sd=;5K
zGiV>>KD;h&)^nAc>|4LhxPPzSq3BYOZxF+)s=K<!-M>7U%%(Majlx4-p?as4OeS(J
zV)Zkwu30x}{?auso4;NAe>it4LtIY$hA4IoBd_1a>ND?Nws%Yl=ITBESS~{8f#Ot6
zt8(u8t#>TGNOze&2)(fL`JO}1KK)c%u299#H&sPE*gyNu;@3Y;9B1mkW4c-W-X57<
zvd3*W?QTpk{&qv*Vo7ZD_X|?f%C*-U-hEIoEiFkcXh%-ahoC7(&PN#h=xW|-t9N$d
zoa$feKg7k$uK#*2c4N-R1YY0Z^LGO8sS9SDVSMwu#BJr`4GMEu1#<t`zxgbhR`=-R
zlh2}yxYIdmm)Tu-SEMo_@63zME3M_zO+QcA^h|Ab$i0`0IpxwBAK7&0znZfxYi`Sv
zQ)dM(#ivjEQaSH?&XcZ2^_A;4*XVBB^Xcx=o3k0d6v&<mf2sSYGW1@Hsg~G}NlnI&
z7Rj&w@3UAi%5u{(@%j6XJ+gW}?Pu@C@2#Z=s;4PfXB%9MiM?j?gfS_m#KOG%5r4P*
zjX5cIKA%(G_oQb2JMB%Mlz#YUoiF+ILSN?ihsb|li+Z&W1g0+yHST|N*x5-!eoNzL
zxsFv{?w^~>1Lqg*v5ILFR^G%Gvv$UjIXWz}{vT#G_R7tV+AVqE?~L+8@_OyuJ52Pi
znNFLXlswt_*V5}f5i1uLpJ{oR|LEGUZF&h}5&tvRC#c^Gdw<rgk^OO=^|c(8m#42>
zTA(BtA8zQo>~oEKx6iwVd5`sfu!ePQVO7u;NEbd_@aFz~ccYz)x2b(i|37W6XX-8S
z{-^-&jnQvz+h6$~{8f0q>RE2dCehATr)2?m>Nast_>-!CO=9EOB@HWgA9Y=_ei3uv
zONO_>v%6CCeoa~Nu=o9eU9-Qpe<@bKRU@q|dpP~>u2=q>jGr9&kuIO^eBqo$+Z<tK
zQ}!7XmM)WI>rT4NA$Pey$@pBgwi$cS=}*U3R&l)JN{%$%^<eE>rmP9Z%O|uP`6lw~
zigOt61nYNsB0R+&rW|dn=ccv={paO#zs5Sj!hk)$D$(a#5AU%<pXMHKJJodK<{I0p
z6YTcAn{$k>$vpH;&SuY3LO)Jqxj*Ogw)``r=Cw_kbm(;{GmDQ63+EfA-rm_D_dYY?
z{^L-+YjG3%W<5Xni+9KC$M<^`W?#LrIwFs|x;=>bZhGCte2>)3nT0<+_STDL9$Isb
zt8C$n+H3E!T-Q&VAhF?~jAio1{P}jT4K1PrvmNHFn{8~)#+~=9^gr9>AIZUoz0>)e
zPrlgyYEsV5M)kRF49(XzANG>o!#YdcGU4v!)${CprWsdVJfiTYZC1`6yO{I&ujMpF
z^YucW&iXC&=_h+chwt0abJOB4&oeeke<H1vFw4*(=67sglx60>b){1AE@!)VJ1$){
z`?&mlRs6?Ov;BS4)NL}#w|ahju(f(Q`}R-MbXl@*+S?et7YY`TD*61PMLlY%mgdwu
z7hWvOa5H-B8qfb_{@IuH{Zrl7>ugXIN{|1>KBqUeImhjUz}~~sHBY^ayFB8~ZF!RH
zb50_5&qgM%Ux_J`qON^fdE=XsFVEby+%i_BOQepi+n;RBD&@C(**A9X{Hqtv2(O-z
zB7Q;nZ`_Z*xV7hI#`M<aoSyI49ujNAy&*{6DpRX0Wn*dX6y@_*GoS5M?mKqr;w9d@
zZ!hWnxV_Bmy<(B#;_hp8eDB^@^e<YFQaZ=l-I}?kIQzw2$6qY2>~jxpoBnq9@%kCU
zMG5meSoU8y#Pxp7idDJa@0P@#YPe!}e2MA2=bJ>-{%$*<l(BB{f3u9Ug}RM@Pdv?2
z3-{e+nx^7-tHyt4c;kHgd!pC3{Hx!Y`mafNzGc3Bz>4<0uMFqLUjFuNWAfhOt*bvQ
ziI4g>?e*>R9$UX@NW8b_I=8g_|Hc&&a*Nlk{CQ^Km0fAp9AODtV;_4z4KjawduiUS
zgv}Q9>OF^F9E#p?HTQta&mi+3d<vb`Ir{Cs_v7MjysW!@YAb_=*Q>uqi*oMWIGVmk
zP2_6T_q6@mk9SU6?ZhAZe*X8iX4!LGw|_RouF?AcKe#^XaMLNpgEJP*{jj6&-j)E{
zxpm^=j1o~5-?%q92F99eU5S60pSUU2$=$3s<HX}*%A4yB7-frueaaJdTxQ^6_GV+B
z&7G*b556__YJ5)1;qqSpy6b?kd&cgG{P7=a_qV>QvXJ$j&u)8OThDgkPL2l`R!X}E
z<u9I8-;%Jxzj@L1TXCxn{S&(omG`5DaqU;j|LndVy3Fry8&zNBs(E>MZT`d3%ZrR>
z+}dor^Qe38jXC-o(*#5xuNPh6&hu?slykhF;T-op->vS5bMbl_Zv468?c_~X1v4g{
z@woNl^Pc8Jqoa1lu@BE?1%2h;vd*tGEZy+?1<l7iQ3C6Bul!@PtZ8Ln;F0p6n`*E4
zE3K~FdG}m$GiTNurE+%9J7zC;L<n1`{mry`)EOz5w?uBQo3H6aj#~SqIbEiAw`6{j
zIeS*2{&}_Zl@yMzY6`OX|2{a^w0tcu+4(lLdiS=OOY8RUHQtsjlbZ5r_kzu{w_Z8v
zI6v#qo|&cwOE|YY{nqrl%KrFi#Usaj?|3aQTJ>km|J2%Pe`MCpKM>StcX)Bl_oQG+
zyUVR^URf&-h`M&wp7q<i`A%fev4U-rmU6yLiMBtx(>*G7ah&;ApO&@D>`s-$|Fqiw
zWzhzM*JoeV@V_i;yCli?diKvt>Z@E|XRmwyr+96?!QY*C6My@ud>52W$=&1pCg%Rd
zYxABe9KF!iZv9+8NLgy`u8f5ByNk<HmiXxj|MBR4|0-eo&Sba3jO$9B8@1KEk``F{
z#4lW3cX6I<6+?1**^;T9Pb62rwkl`2%)Dc3?FzN~`f`8j7dKtOwm|^A=086vi_6f+
z$jA`BalqWn7`kx)X@h{dnTdjdLXf^&W==_Jk%GQkPGU)_OKNg{N~)b57j)}E#hkOX
zuh+|LpPIhmvu`rXjq7jfBHrA~FRs3RS8tyuJKLs{DU;5q-R#s=IbiWq;pM3y_3%lb
z1Jvd*e#^gK%y;sU;_D5o*Xyt|JBO{_-E~yy{O5AHKX=a-1(|dI3;$R5?bSv1`E9es
z>npb0`6KXePsNwr?p=C2H0y1vOF!>DUNLdM=kh08x10CxubA>a%>3NT$(PIz?hNiR
z?~k|r_2-&Q--rGsQ+AiWJ|1uXuif2U`myKF*^A4TFA3UJS;Id4|Eq5c{LiVb&)Z*b
zp|^a4&aGp&)l0H{PTr}jw8&yM*L(KOSFWJ&+qZZ=_tH=Iw)Ok{y#4v}x1ay);^mSL
z9IyY9x#^GS9DCO3N_*JOKDP96UY=UGz1~KqceDC)+cSseUYWFJ-`@85;?KovtF3MX
z^PF2^ld)e<YF$_Ns^&Tl=cNUk6z{zH=5+d5GSBvJ3m$pu7pUGzna+}(RGwe-_Ov?t
z<~dv97kvoWQIxs+Qr`Esr`3N{h|bO5{(J9j=KZqs*O}V<?LI8HJ<`4Q_iE<8RDaLi
zx6><=eWJ<*-&dCgd^mZi*1h8O<g(087i|ZvkIz<IIr(hrpHCYO7-$}?_$_8X>!?20
zwpEwTeRkt3Z(q#+?1^~&@AK>nWQ5=RvcANsy!Jj*=G>qIfuBE5JYl!M{pbVVz1-@x
z{fBRrY`S>&-u&Bp&etC~zB0II**;~vC%)Au-alm8ady=a`%Ro1muBjhq$%%NW*!zb
z^S1o~j&m2fE^XcLP)z<=?Gf?R_<e8U4zt$>ZCGk=J!5j%fuvHVdoB^n&Qx4nU3X>E
z#r3xXo~!46zO|*`bi(>Mac9mxo^Mn2$KHN_?Zt?xx<CF-{`PhAw$wLU=Re$iV=|MM
zPLF)d_Bpd{&9^uygos6inF-bF@JRhVdGm<+=Uo>=7D`UH@ZFoU|1lSnXI83uHOKFy
z54R_rG`?SYU+nXlZy#K5>IoR68dM~2yYp6W+l?HJeTJ=9tp8Qr-q!8=&7Xa(pTcRK
z`0Yk-8TfykTli+t+UOtWedNAp2Y!EB8oTY(iPGB4=F?NQww-KDU|G1VwXoppk*Dsf
z`nd0fb*wzGbK;Bw#eY6MGE;-L$EWgb>`t70=-nyfQa{m|POnSO?^t-3b&-LEfXg&F
z@5zk&s-sR8ZJH3Oz_7jcf|>08-fvqPLVm6CoNHXI=OJ<KS?Z28sScaUUWr%qnq=Ht
zaou7;S-08Kti|oC9jjlhn(|NVy3)aAR-Vn8Go*G$ti7%2$1>yGl8nz+x68}R{ZCsh
z<j?4`bv<*No4oo35xa(48}4xZ&|K5h?cH%V&e$nU=Nyahx*2`y@^9xH?PU{`fAlu}
zZM2_XPrih?;let%t1^u>S44MhTvZ&>WTsMeR$ui}qR|8H3FizW4liZ=y)#p`%zDps
z)=Z(RUQe&yll<nTf1p|IYVQwuix$I#wNF-0Ei;!paml4U{P*N-4guy0v7f&FYDig9
zI$^~#4)MdS?oU4*mER)DcBtHN&K|!Q6EijI&9+W<{tH%!34Q*@!ezeJ%jUu&1%5^T
zb>F9aEezY}ntZ!T-AiW2Y1ReG0-pTSh4vm`U&Qdu_F<esUHYegeJjt$@fy6YIQ>}A
zWb4}9QzP#jT5r_-JtjKhPNe>(9j?=2^skApeD+Xg-SyaCdvt{+7x$K(yma}1#zAeP
zZ+Bja8JHH`cWdNj<Fd0{z^`VwuRZ&5;(DdH1&L{AtPbq0x~bzfu~mxGvyZ83Me4@)
z_X9aJ4cre#wO_uw^(XW7R*jS`A0tmh2<SS5M|N14ODz<ODDh1Be@UrH>-Xh@2T#uw
znEm3xr)PKe&7CQK?ZBnwCnEUY)N@x0?3vbk@w0q^*2^VpQvFk7%&M3atS&B{G`De;
zxYBoCN%`W_k6#?n3#by^d@{7EGqBLI-qY`*NPNo6jT*(bXTEfQE?X5CtbD0ai9yxu
zqez_h`CRAHD&DuTylQM+;rz>l&vfb7EM?!nbYIeooFm1P*T+9R)N(m#a!%#EiHx!<
zY*X&#&7bSOIr&wwfu6gz>z!3;%3W>A?^zo^#rj>`c``1yH+FHV^xx|VRVq&#4DP)B
zA7{I$x<ELG=~6-3uEyIN=RNl2OPRFp&6BwaVI0g61)F<|nBTkHTJv(zvvkp|Q$#s$
zYj0zDb6e-jfkV%dcGx;>aZM3sdg3PhWwD=>Z&Quo<LGTidnG1lI~-x#(l)W#Nx}TJ
z{~3?8FGc$ce~B&b;AHAJuNi-_bz1)Gw52b+&XsA$Pn3V+xKhHsX0wpnyqs9?&bz`o
zHXhfX8Ex5{cI{b)_8Pkb(_YWpw%aZ3==`0v7jJh|#$GH^@{d%1))vAywRF{v>^U<7
zIS-!L;FH$){c7KRqlgE`giqGb*M0eSXXcu7zlDz|z3@zT{LsX4_wwYrtq1mB&Z~M*
z{JDmA^BPOBO;sZ6^rmn3y0)a}){Ux(vE0Td^S3?^GBKHYI9Gao?Dnnq*KpU~*6m^2
z#9&+W+u!4dRpVBpgU2NjPv_m7-J@{p)UFpj-OoglGI*8#E-SeHE9v@V&RYRiHzxDu
zy>mMBIl*pOe4mxm@`i)I*p?qZUBEc`u!gJPoMzP&g+r&09j{EB{4!zJ^;E6I1B|5%
zyplaCb`uNOZgU+GUYEOVFXx`aS9gnt7S^hoZa-_<q*|rSxA|%B_i6*nhC^jnxA$x`
zoWMU##6~ao{@DqWQvX}_=j*gfJSfY3%Q@$fqfrLC%JQ=z{?E&MWBiRPKh!kqf0-w!
z&YIR#w#@w1^(Q&`b{XqW9J%W(b<S3G!Gj5k`>IQrwlGe=XqC6);bxu<Hzwto$H~2O
zd&nxzwmv$d!eIB7PY#yzl#O$CzOU|F9GKU{eM0Zws)zNL+BR$MIkjbS(1W}qdo>>1
zy!2Is(XYSJ{PeF$X8(_$n0;(vucDLrj?!ZdzEY3Z8T}MFWBTPTcY@I(R#9HpQvLkA
zX%goQz8-jZD3;f7*9@&k0X)TwfsxZ6huDNan6-yZY@4Fl-J2`Bt@XUG_do9}-novq
zZArtmhNsJ>O*?2?J0rPtpKy7U*~0XH`Z;`OvNt^JWn}7gELktPd-L5?`FKS|g+^=1
zH7B$M9DBa$oXKrSn>#mh3TrH1sza02&BJdQD|fpz9lxNlU24rTJ-_1Ka28{xxkeAl
zqYpPqN?IIdW#iMb7hCpV`N1uk8`8y@osYyBM)ex{_ALxsb3!ezwAf)EOVV?vdxvH>
zN~Fo0+_B*XtM~ez+uuxQX>4?V5YZT|-@>xfa@tkHOMS|(KQTwn3YXr)tQR(ED}UFP
zIqh@fPgptB9FH&vsnULV=UT_whkwH*w}lrReShmj^z=&M<e8p5z21Me)SjMuT-eji
zL~;5(&sv+_s);>;iPF>WM0quxH0tzzRCh4%^V@``FqV3Yq<f!pcnjvN{t;TNvC8Yr
zv3WVAH-6<NJ<%wzxOBID!zP!Ot<ud;*m64<-)daslgwra6b-*3I#KY)a$coHd!2-Q
zmAjJ<b?~0~CnNH<DCoiFRQ?JXlQ}gk$<?yI4z#na4rpYwT5wJ0#a)+zu!R`~JVgf{
zAIsbl%QNHC3ay#nUfE1g-tg??GQOLCvcI%H$o*q7RpEKumV_XA+v%!5-hb39^*YTW
zwsOn+tsf%(+^`VN?>b>vIK@=(nofqAspQVPo6jdFxujM6xW@88OMd5_G{>vGG6&oZ
zl4`DXi_B8~e*5=>Y<WTPPoD4I+qdnFlM>OYunQI6);eYTuD#1L_87f2KX7ry=Y&v}
zj6M84hJRjketG(HpVHw<U)_Sum+Njg?p|>8xwW^MG|vO|Q2SM<-4d%N-n80uFE(_C
z&PVHpqfL)Dtm(LXY}qqTt-VIF-`GWeHh8W3eOlzreCesZyVX`?B&hmWJ=|ZeCL7f1
zRTdK?nk8{t$!+bIdH%)r79Lxw=G`~@-fzLw)BT?-znyc%5eBWBXIJD4s7tHnn|zOa
z*Oke+-uSR8dv=H86#J;g>TQl^H2$2GdTP1;rsi`Q{!7<<pU8KqcX!vhN*(-fc|}9}
zzT+}|$s?yrtc>&G<P8c|*ZTcp7CytAxWX*#R*g(B_p79u8+QzD{!j5+tResYqKNb3
z+iaJmPuehfw7s_cZF;S6;mx{t-^x!2M5|`r%@Z=Z$;5M%iRZA=$$!e%*9Se|*vfKZ
z<BN2Oi`8DIv;9P7?ssOId~n8^nbv++Ies&qJ5afOM_#qdwxrjm*Z;k~%v?Hs&inb>
z-bBvqzUap=@55ZTgt%ApR?g*p*>4y6j_n?6zM{AH;nwa|xBuGKOjMQXw|IBaG9hbq
z{{N2)E}gWxmHgwTVq7)9GW%0!pEusK4mTD3n^PZ_Fn`Z6OT7((ueTQj8~zqMtDc<9
zZduQ`*mcjYxSXFy5BxbZi=}Cc=1zsa?wy8brtoZ-6WH0z*0S6>dXxN)c$@pPSLzG!
zcd2DD?e|ld5E?tX#jwUZfAMLp7M+`hS@T*~9(0)$lE+xMV_gi(&gMsF4u=>uUhFa0
zz#3E=X>@YNf`k1ElQ=rwXFDx9-4eImyWVwjv!P*NSDMh`z^`Tsb&E`<tnD-Md)Un1
z5wJz}?Xm{5IGr`h=T0B&YW((($Cf!ir1Q}e@AmSu=69d=&-zdsv0#O<SdVwtwNrPi
zG$Vg79=#f<JHtfuv)`X74tZSycT8U$7HDIYd?xwPi|^>G9H!k<8UN>pDb5JFV_hmX
zf8UMM23im2iG5Swac;|vlr!gpU+lPhWYNkErYaMcTTKW$x8~K<nJmi<_bl)^{nF39
zV^N!=O1bJA`9CIhN-uVsU5R`2bHb!l+k&lJ#^zsdD6-8EbNS6NNhiV0clxmc{n;Hk
zis#vH`uaBCe%&*p)O^QYi$7oU^nb8Ev)W$n8(*U+bh)EAHD|@I?K9nMB`Ob?O!+M=
z8{zL5)_J!}R<~kN+QNgMWYi>`r*054KWK0xr;zR7oMV3~yEVHszh1ODwUy!d^FO;T
zF7WZ|X{$1L|DtAFeDwl`mQ>}YbJc1)#a5Ord>BxBt#RYTn!PIn9~z%H{YZJT$|A;I
z`8$XBvd>lsy<s?ge(g%v?s*LxJMwR`R9je0Si=5AG*aixs}${e|4;IHrG5M#jnZ9p
zXDw#r`5-UzU&+hv%w!i)&mEHM@}BGrxV%O!??RWsE{XC3JDIm0>`5)(vN`?wubIVv
zbEe9yeB<;n`;_=?am&4x2MV|o4y)-&@990YbKAs)U1si<w|<AHFr}5Jsjf(hy6!iV
zQ#o(#ugV>z=Qkbw$|0Bff0@>@w6}g6t1Lg%?(}k6ljiiBCAX1JP3Yq`#_9zOTQA;8
ze%H$=Wp>UvtMt-s52lS}zHJ}oUfxppkZoqs*;(TIRFoxigN^xTUh+OCqq=d&vg_Y=
zO({Qd<V%^_Rm;bpH9pNa9k)%w`Pc%xIhTC*mu$!lo+fP~SN~3hi>LMA-5>96MObgK
z{Cj7|V)csiJxea0_m9)qr=7z;@8C(vqLkAfpEsGzH3(R8UFT|?Sz*MElrIwJyHs{1
z+!lLr^rJJ2tkv23QWrSSooW_2wngfUWcB7_hYj!QGW<Qh_DKBCIDxjD>&JdXhVj3U
zXMV0}a72D{&Q`~xiv?otu<R6=_?vO&mlxN6=xsM#?Z1>m&*db0eU-q3g75b@9#yxz
zvU_sjyUADU>=~8oE??jD^ts^2Mq@)pxrqla*4}(0!(0>oed*=mMH+HSFQ+KaS6(bu
zoOVg{m_GZr7z@@1*YB@+*_Cg(`;&nK`^T-@kKWiGUu^%G?eM$#F|%%4URyBt-S_NC
zeGat`jBS>%HSp>u`OU7~qo%OW>7>u&t)I3AP4~NgYRAhLhjWAak7b?fwu?EEkuD{>
z^Yx?Y_va|LOL}a0@&4TjMTa?mcZB_Q;eN4Wf~%8zQ1jpSPuN={zbu*X_G{MO_fMHS
zIW}7e7abHi_DrY$<NC52pLxG$on=mEQC4=#Hd}bPcg2K-V$&XMm|ggB!(IcfEiJ*<
zS$|)Q<eHo^f9>?9pr4hD7cMV3&^(*Pa!38aI0yE;u!05&OE0c@7D{=)|C%Mowtbsf
z@n=)+Rol(0vLBo@33^dc^;u1YTf=2huKcCw>`Q7vdtJr#mlX5z$+WW^kmHDI7M*<U
z%9I_K76@3$zG3`h)?FZf=}2(W^mT<RxVsjr*uK4a$NJ`)#clg;b-eP)R^be=SL6^Z
zzCB&OV_ATw`qdRC7k$_l8F-6lth$#zBXyGz+q)$<U*sBl%jqY`m8^EYk>~aC;#a2o
zuf4ZwNKL7^6#k~6XIg2UA<wgoQVAz?j~fKexn7;gY}dzEo!QMa*W9Lc`-B%Wti^qQ
zm@ePs92L1QIlL+;xrfJnW*YCh;#2+?HgnXgwY!#nH#SbvV(~d<E3d|Cv{`aq`RBIP
zH$AWH<v26<gHG^eovA;kvlj(ibad>FOMKd+I^)ct*}FrSuNY)yJyKa0ze>?AHh7uE
z=JQ$yJ^T-rM765rFF!b;qdKnp>^G5vdtUf`JLDEpQKB!JweGz4wy^7qS6sK4&XuaS
zoIS{G$>rsJsjh!o{_Z<_Y_$!)^3l{dUk|>y)$$+H4+iKrM`dT{J%3d3ect91r@wFd
z@~&0m=hw+8%Qx3tpUG@$`})<413G5n41xu1`Y*osB+bbFAawBG$qLU2whJTgSx)8A
z&AZ;4CUEU<>{^pcn-1Ac|Kn2dP47W$%%OYhf9_WN+M}~U?e@<)<IOWIMIOeUne*bX
z%grA$YqAAG*+TxN&oMOiyIX9zTwoe+uohp9=CK3kOq{%Kuq~JSZ0%iJ>RWKLeP@EB
z@|ioDn$A0q_SZF)OMhXl7H5+&dGpZl$@k!E`vW(9?U$Z#$+J}8^6bzy<ug+sY~CaI
zJhb&lr|vn4mq8b}w{D)*tGMb+l(s>NQQyS(`z~$Ey~erwOT?ydwY0B0*WD4?dHA%&
zyR|B1+XEl%N!2Z%Vi-`{VkVQ8Kj+F-W#w~C;iqahdIfM?log!0)*<AIaQI3)$J7_w
z7KNoqR<v63*ViAYI`|~*Yfz8w@jLgNxM#d;i&Q*2<A!F{*0-mZXGdwa8{O-=m35|1
zmEp|2e|HZu6)t$G<8<8j9oMZli{jk(URIyKc2N>TrK4i=nm1Mf8#eavw;229ieI|^
zOLpQ<n_m~?lkF$DM0|YY7BTbQ68^JmHhfZJY*~7SPnR>|&$R35H4z)1RPL0q^ZwmC
z)mm+W$>r>j)HPL$-F_^7UE#+ObI*`D%|RrCL4O0I_VSZ2a?Z^+oVHX<<y_{PITLsl
zzsp<k|K3z}J^ATYqZjdelOJvkP2xJW?Sqy1i6Z`-386-|yL2ARxv8S|%zw!Tlhy65
zIsFNj=UAPraTU3@kRec7bw`p2-?VG->5N=8FSoF+E98Iby`1UmWap<(9A@3heYrJ7
z?`ru=UbW>LHq`e0dSZUXX8V?t6=8FBopX&{Ay|~aqU(@y-K1mI@uzLa0&XxIDeYYt
zQFixl*XO;K2?e|=^{UqjT+6R{B-*psN4#O!eZoa0=4qQ;$n3fGH+RJ7{n;`7x49qB
z*~k}ns&tHJYPzy09=N{Yom08wpS|vV$2#f^`<C3gw)64<)o}LH6ZUfP*+<(OZjL_k
z@!!_9@z>tW*c})2$1wEecGb$Dk2juL@BXX$%}}5F#8J86<@?pv)j0byy!?1><Dr|C
zH*BXXznpn{|62Fd6?a;rM6NVvbBXSW-&}OWcIqO72)}oN=R@}xPTrBeN%ZuUr>9>(
zR=Qo4p;KEI*KEId!<v`bk2h$qaXQ?#o^kaRt-I|i)>n2K$v^W{pON|?*3a{0zzoyp
zPa>CZ*Lrs9Lf|{U|EJToJZis?vEcoT75|PZ27TCS-0}Xsbz0ox1lCP~r|a5tw8c+%
z=;}|6JYXwj9T)XLINsh<EkNb(lKj5cy&1dpR4P-r7J4{0$uFvlFynsYb8Xx2z18lX
zdvg~rW!`MEX>Q7;Or3(aic(i<tMWt^9*9ob^_N{l{p5|SpJfW}TVD)H>}!{hPn^Cj
zZLZGtBE97Y*KFBm`s|}@`S+RIZg0BnxJ-O$(O#eX-mWSxygv?qvoxx4mY!xmrNB&o
z)vH;jcd=~$$=)yj_s_-mc?m05F11h7ykl|Wr$qjhNw<I5SATs`ZD050Vt;+r=i~SH
z*ZzC4IR4%Wclo~@|G)38|6}*(>*M{qe_mTG|L4cE=a&yNA9%j6P(v{GjURu&l=B6`
zg3}HpEet<W`mx38FvIn!{#&2E^ldN{Tbj|MdcSzhUH4AA`mh$3&^1vkdpY<Hevb|E
z+uJHFY-#)T^z;b6Eft^YZs~?RZ8!SZb9(84jx#&55AAc_cyHb5y9ZyD7IZIIWS#l^
zWYh|0rStP*KB#W#3lB1_`73*sYejDI$rjzk|7~+tvj%3Gd^OPjoYA~**>Y>GX{+w<
zjj;dtx-a2t_LeOk7Kz595ifszR;t<bdiin@mP=--@n>}w%rA`<&;Pk8phC!l`|gA3
zukYMidY<oCW4yF%;dG;;J{F4_id3EyJoM=kVp}7$e23+R#)}fmGnDrVUVFeFxwWFX
zi@(#Yd4A&cl9@(JjGr2Au-`ewKEAZ&fBTc}CDprwTyI)<tG+Lde{Yn>Uo5*#;`WSo
zjY;C31rIc4pVD6G@x#-9d6(18)c?1c4Fe`P9G2+$c11kT-uTsy*Vh)G`Ez)UVaSy5
zb$(~n-FCk{wEcDK-QrI|E@$O#rd>IfIlJt-t$?i3tDd;{*%v-K_@31}|LAm~-Obd6
zf}V<31>^JXT_|mduAdtB;Ixwy-)32<tf2ZlbNPwucy5>_Npr3`5`Ex8!HweWW*ch#
z^$tYrX^CZ+G>=vM$vtQB+B0Ey7wtVc^~Fx-{`HE<i-XzPnlIL-wA?+mFEzsPr&z!K
z4Cli<=8xn*s-12>)YqZ+bW7ptqW1Ng`zFXPSa<eqgW8m-e;)tp)4zRt%SN@{>1|KA
z^Kw0}MO;5CZp!?P_lfG~+1msUi*;S(+!-kPQ*7zQ8|jy{Kf2H1TRLCB)WUg+SM%+A
z^+zmbUcVc(sW<)UC)vF&2JF-N^q%aCHWHn;`O|?pbABdwzy7{?qc1~TmHIx*-4Apx
zE?)j@PLpsA?+(v`i{)Ml7gz4NWn*VuB;)^gg3^v8b6=ak$r*lp+cOub=sZ~9T9&{Q
z^k<?&Y)<TU_E$|u-%GCWeqX@q-nW-CV|)Ev<(ckUFMJCNG>-^p?&^|vba*F{UMiz*
z<ZhdCa#!vRjrW1~ryI6=Fi&RB*;YG+PjGF9_nwR?b;*$;yrpU9rTmmu9tx97nk(`C
z>%k{Xvz<dN8>buODj!<<$gJ5jrz_vfSZMN-oI}4iZeAg=ZQWDhJ}&+VD+E+CEsSO#
z$t&Mh87nWxJgIHpjIFBoO$3)Im>mr-Eei`R+s+ui>DQ?wJ;`l0n_OPcDoj72_9gz%
zZkEuEHBo<aPszjvXo>fl?X<b@Xkwa9f7r=aulK02z1++Gew)OSJrmPgd2;VBo_73_
zabGjj@6?5Q>z`iRao$R5Lc#<?<^|a+Z%+L4>(562jc)uCUDdn~t?zQ;e01Q=S;y_B
zixX2mnesO;-dLCAec{&63pf4zUCZ`fnZ2nXbLokiOa`v?XX|q&9J;mXsL~_RPfLR*
zdg}6AIV`ZwO5@veec84Dj6Bavcpsj%gZFP<4~y7_xw#qdF6RHNiZMF;xi;E(PRQXq
zJjb=Z)unuVyX|Y&eV-qUfm<(C3f$byyp=7|dq={ZMUP+amRxd2>P(8~>K!T1FY)m^
zyYf%o%EGhDcJjYzAHT=E7J9e+;<Yp94j7pmPkgxP?5WvrJQ?hyA0*XYVYwA6+x_~D
zY-?=lvxf=4V*O8TZ%cV{cJ>|d&$eZ@>c!5^*JAPu+@wq&NNe~%e9^ltqjh)d+H2FM
zba7w(#pM@Z@%WgDR<(AZX7HS^k>^UAo}BUQ<6+(WqFpe*^3aluMY{5@*)3aVtiD%L
z%e-H2`?3uN=QE~APu*<PX1lm{@&%vuot+h0>rZ^YIm`Fyy=!rIuguAJHFKRKe)`5n
zm8e^DjQ#dC7zHm4tWGjoTzn!y>&mh4mD93Y#cacZ>r2lpzIV-W#+B4B#mqYPCjyKw
z&ayjoZ`JyTXHU-CUHkI)kw(WwIyVpY+<2O;{UY2pB4FD0b?n_t2H`WqOU2?3Z>bkA
zz1&l>^T$Fp6HPDSb8I$ZH)gCg{jKMlcdbzJo-;>}uff{8%--{O4wW<+m-c8pn{&{l
zWX>Vshz6T>^*uG41lCM?cEiPSMcKj56K7xFa%g=hvS#XEeM6bt;uQ;?Ea$(qI7qMA
z`1*#uWkxG=vaU6Tc&!k%zT&y@8uz+a&97KBR1cTCi~aao-me*`=n}W_vXH^yseZDm
zwJle7^BA79mD4)-vA!^WcG$VRQubeNL1*rKO*`$jG^1$a=Eu2K8;a(JuMN??`t;6c
z!PA>}c$#JNi+%2__&+TwSw2$r$<*8rfu>RQ+OHmJu8MB0jSusyEs@;1@pduaj7@KL
zxe50yyLEQa_5Z(}Gfmf2ms`tgKVW|tAg5A2`%FxNpVeiFqr3DUyb)~v(44Vj$?U0O
zUTd?JZM7IAF6V4qbW^w?@O*2^<9sJi=BJMiz3?z?xm<Hz?tt8R%UC8gNs*vmf?ZNu
zUo2T$QL^&nU5V;hZF?t_oOih7`*Y1LR*kaXciXLZsc+oI7d-p$ql<NQvvsZ84rKl9
znd@kmeD%`_VW0Y|VTz|&zP~p88rXOs?$NiJec7g76A##)@k$MU>D3#^7e4vzc{9mt
zk5W$L%U9<mJmojN@uegyw{G?M0-qU~Z+Ww8>d$RFbu)ScSIL9Iyf2(46YeOPUu$4J
z9J68eyFUMdU9TtZesCe8!fV08n~t}Zs=9jaV(f33b#~eo=?l$M@*nrOHaxL?a+l|`
zUZ(ksH}CUh<ZKpZpW~e^qZfGG{jT7F`S<_Xi#&F?bn5!*>2<;;FWL5nZ2GlamT^H=
zyG!%T@YL%DO8YB<rQ`WlR;_!pMYp!}rP%HH0k$@5tulh{<>%*5yt#P$r;Vrhq!%2V
z%|6NM^~=qyjE}8X3V&tNv(B78$Lqz0l5_j}=gOR~){E{;e8oDS`Q6I%)j!wv37DT|
zIJE7nXq&d9tiIcw6JGlwBsLgbu3wQJ?8|okb;+A|H|>tUfA{o$L$JUU!&l$-2c&KH
z{`7i@k>|eE+wY%U9+E$AGUw*!U%om{zP$dk?Oojkiw*PzR9=<yKav*w{=I+aAF-*2
zj~)NAs$dD@)tQafzx%{E<-T6$TpF$-r5q8fH2r9B!Glbna}Ded=L)~y6h3=-_Ti+8
zxP?sq4V@OVO-{Z4uJMR1a;uSB(cBj4)@yF_Zb-k1h<oWDKSee4*i50PQ@&?cxM|H=
zw)pc$OIz++hx{up$mg-#{Ul#4CX-Tg;`W_l1@FBHahvk4t<Sn|*1SmNc;=1tfR!K4
zEmpo5_2=fhHCFEqm260UH*x*$YYo?DaEX6)KOolk*5bE(((CsRit_HKRf=g{Tywo{
z(_!PkS8r-udY#s57kK^A-^t8#kIsCuRCNvG?>7xUFTaw>iYk|oSun}qe&f9QyuR0a
z)@)M9s$HR7Zr!n$d#beRtD?AF*XBw0tvUbR?_I-=9(R+E;<sfV{>wj-c~p(rAxGNk
zg{tmMqu0h7?t%}u$aby{R5yS1Q+i49+3J7aA00F|+?{?RMfKt<UOUON=CucFev3@x
zoV_UL)~j{dvdN`=XHPF!%u{mrzP!tQohM)3<_k%j>0NWkw6f)m%af|`l^!n_YA#e#
zowCh1-2SYGWss^X*B5oEqP^SwZx$J<UUyH?T@jYLr$>06x9NheRiC!JexhByQgKsq
ztkujbKTD^d%RDUdV8S8hiyC1XHeVNJ%56TgRB)-{law4qkBQB8A0lRF&MS}c%t_t4
zCjV=<)a)tT4OVQ@j-98CUhhAA!of+&c6ZW5gU+W0+DvADCo^wd!+*=LY4Xv4Oo#sk
zh9)=E{@!_Wk|)$Z{`p?^iJ`trJ2P*eZ#k!E7VBF6Iv{k_zC|-5cWjg>+IP?LM)KUm
z__wyR#NROPlsr6P+jizMv5h~xUw_X29-o>oFTcSs;FP-mY=$!j7{dOXdaURp^G108
zlw$pBekSM69xAqwFq=7(#rWIfILo>TO;?;}%$A?K_Hbe;yP2m1LwF3wU9B?qV2^Wi
zB!rp`gHxwTn<u1jr04Q`)JynH6HfjWyXe%;$ez;g9i6{~HXq)%?D(rdW&zvN*%O5|
zTAnv?DzJGxY0&$9gM)SPzn>?L_|}DY3r!7{yZ<$^<kQ5<g;LWWI^NvNm&t#-SSx0W
z_@dk^4GpVSdhx`b5I;FNa{I4E!tL^+d~d|w+-zn}K3#NsqsgS%+pi=%^Ar@lwLjZ}
zMN&|se3QD)f}@j!ZeDuxBHre&=^CyCeXRzWYdt6Z`L5Xd=yydY$e%j6<<6_34Ldd!
z87=CZvq5IXOT%vl)-xV98^845d;jJ-nXPr{ei9-reUp~ji93IE<`v*Pu}@sndxE9t
z%6BaR2D-x8FHZ#jh&K2!i)EUw4|`GjRLwUEP2Z*j?rPh4?%@GO;pVwJUcUQtJ2oOG
zk#T7~fBu>|MMY~EtUL7FVy(CPzUaE}_T9bqn?CRJcJrPV(danZyZwLF#UoN-FV|0y
zI`HbPvC8t5RT@QaG}^<i*=Mn|J~6m5D`26eW&He?W^-hMXLX<Ywbk%S#jjMe_E`<j
zHRX$Ma|+A+)o~2;$rOHk{f<&nqur_B;fH_nT`|7MJ}*CFvf&|{^BcW8pH5|4vuw`G
ztCfCXp0zvgh?J~Kf2ne2H6PQ$7WrKHYtoCi7)@ti`_RY0Y}YK7SyP_f^n0@`O|<_i
z<CV9DAAP3@w^<l$UwHrE)>N~*Y-SU>bEDquEc2h{|K+ZUiQFYKLu)&iEK~b~S-;;@
zq-XB%<^R4*fNzC}H1{c&>*^uNE+UiDehINp=S-Q_>&>q*i|gYQ*FqjgJ(&#tgvFcg
z>(2=cJ%1#(Qq82%pgFt!OJCmSF!9Gt%9}6#pZk(Cd0~2;>+|+p5v`Q;^qb~QY$;40
zN8De1wRT*5BroR&UxH}Rt0^k1Gb?@yO>W_p^-x~^@FNpbMbq^J{j#m~)tx_V>>n?k
zpuZ>FZ&D<;pwG>nNutZ;Pfyc0F(>%a^#@KH7$OX>Fur;oC3GouM(5Jfo@wgY8!u+P
zZOM@Kzjt=mnfF_hj)<r{f4Dbj|5=vQSdZw1K}vt$&5UNu$zRaO@6vciXo`j``}yTP
zc^kr4Y@U_1`i}O+<*O$>v&^fV>XvO``DID$?`^)jY(HvQSj`aaUpOb~`_AfVZz|O^
z&kN7KA^Jb*UDy8eLE5t)WGz>JCcs=L>25dw<}{Trsbz<@9GW_JU$2^Wn9Z%zCl(jQ
zGNhPvA5VV~b1`OJ+gD~@hrkB^TX(*%DchQ9X=;31c-PJu2MtVbo1c5jCZ(%b|KMTd
ziTPVDnmn2R_=3%o_XbAFcKgyeUQBWiC}aAa^N=&^=<0H{6U7I;q+;&Ae3kPkiFw8^
z0rP6%Oq1zFoZl~Vib?D}d&kCL(f5A=zY2Y$1QxyzoVEXoY@UMjhS`h#H=UDsb?xBe
z<9GIbJz%rf)NXZ2-weOR)Q9(_U-HEq6*&~*ze9D-2GP%<nbR$ttsD2xvc36xRozL$
zyAMt7v%9Wb|KxyN%8gC8)Fd-BEj!;XlU*KH{w%J0riZTXllG)%?`)VeCszrsuNJFY
zwCB}|y!wg*X7`t=&x&7j`}QI0CBJ3l9>r9Di{9_M`(D|e#HU}Hd1p>usP4*>!qLFL
z?$@IbOA*D@PAg}m6|B5InYnuUuNS&*=kG4-{8)W>ees#3{Shgx>%Xt+YM&HvaQ~^^
z-?KA=tplfc=^JvWOk;khq_?$v$E>T@PTx(u!K$;(bZgS5L(y>>H)ipayuVR2Pw(1S
zud7OTzO7T=Emh}o;j$Y~F88jmCwIPGO_;-c_T-T(ncY<e?|a_7`0!xgl<&WO-8(mP
z*~C578FLin>upSZ6DLNqhdWNb@-u$1XU0{X{F8Q$tghz^cwFAHx~)4|D8IIK(&tRa
zDeHLOJx~?Cc2<+s`mun(xrVI2pCW(%aF@C35~22LPs?5#;R-9Z-zQVqH^gWzdRCEe
zlXuTr@!;3&Q<Gx+vaYtYuHbCDpYEx3<I!xr%0IKuTI6T%m|f_X_I~5;bo0k^d=9p!
z&r$E6`OHdpg~k4pJ)d39JMPTipLgu%4EM>7stfZLrENdaDlB$aM#r+_{p!S(F&2&O
z8(C`?H$P7m*7^MG^;O>#rpw-DtJZmK*SEBIKO^sc$EVm!Z(rYiZ+f@xMC1B%i*_r$
zv<q3b&+h%bX%;vB%$#ogA$NMz*7=S8YQLC`Kj`m%%zy4cdBSeR{yp|_GgBT|pP99_
zH}YON+rGD(-|N4b#i0Gbu7szcRIaZ2(S&yU3&#Rk`~TV<oP07*?C$6HdfA(}J}B7V
zt~y`;%5U%8LlRorGvCQg^?%K?{eO15TJk)Z3n{_d?<@Fv2?+Y`fBopshrLst2USO}
zc3CODdKJrMS<3^gf9G{=ZgXAxs>$hq`K_dN#c55oG0&Cwzs%XzWPR6`|EX~?r@a&N
z$;-bsF-@_Z734ALqrOM5bKgdnAb#&HKlIp^`E9uKQAn51TU0Z1s_N@9ewnx%0cX2*
z`s}zCxoNJ}!(B<wY96<|Hk|aol%w3F$Gm0s$8+C3cPtJTFs@j0>gxZWi$qK_1s3cU
z4SsVw@@UA4>f4p)rd*wMNi1EqdWO-LC9NON2{owP4)RW)^M^q;GX437g-H<)>YF(a
z>fbw^CgqlN^TK=f3wI0*?_RmveDb2I<q}o*^1X6lUvdw8%37CfsdDj#B7^7t-H}Gh
zhdGYR+>H9LOg5jz=xue7!NNALGXcFmYK4~?qOvBcur~<l7^#VVY4~dTkTq?|JJ+Ql
z=el0Ms}%V5C%mJ&Qegh%HFj4geyR)TOK*PXI&;Of12ehvd)%cI1fyIGLw0BETw=L;
z`I6f|=fA&lJcz9^h<#7~+9fLD^Jba-%vW6BvS9BXt$pW<-kwtGTNrW9AT~`bCWh}+
z-PNUY_OU(JDO+FG^}TSq_p%6w2g^5<=($`z=i+|mM`Y&CL}`QfXKm&#V3{Gk<G4fS
zG}(_KYZfk14UjUmV1IB_#)R)3-^txwzwV#0`Vf0$eU8<}1K&*M?BdLgKkeXsJ>}_a
zf%hG;rPohK+D6M<)t}s!Vl9(g6RxsnG4J$s7KQ%O-%KZmU%TRcy7c6dyIIcHe!YqD
zKe+Dh+=)AUrdM2_dTy#;@jQ2{bNAyG3r{{)qkV0j<$>d~q7=UBR8PJs-Cs3vHrJ*b
zm%m&&Gs`~YbN#aCH!r?_*m%|8+U?2jx}6_byNB{7h0Hkk@3zo)#qtk%+J!Z9Y;yG9
zdiG_UT)KVt#;JNfN(PsXi~kZ06F&ahFK_C*qW2k>>P#b^EtZwG&NL}_chshI&DjIO
zYm-Hk&rMo)W!26U{@{t?e_sS>vtK*7yTEMiszZ5xXW!n)`*q=3wf?G@tBdEcYVItO
zI`edr$GzJp^tfm5T~=2++s5wAv9wg>f<0~XUDHA$HZ(8!^s3f!?_bNLqt9Ifxy0rf
z)qSm8>f9KYd_{YvhwRkSLn-<{H!Lc%xsaVWql|rSsEAV9+vmldJumw+P90BCwVyLt
z<YKtr<i&lj9;`3g&hFfpFl$Hgk^BcXnupKN%X+S{)jywaL6C@<pWgARi<vx^K6>gK
zBuL%x7g5}%p1#HAZK7kcUH!he9kyRr>0SA??1AHRme)0l!faK1A~#zGYFk)U?Ua@&
z)7_@L^~cN1n)C^3FaIo`dQyL$eb}D*UH>8$-eF?MIr&I$J5NJ>N6WWH5Br2$Noy)M
zz5N;f>gin$q3;4~pW4ed*f;LcneA&WxOT6^eC<g+i@0KDXiI5$&B>NjlRAIw<oV(d
z#T~W}d*azwZ?HHTr*KvH!v`<F>d(qgm1H;eyv|&C&*EZZ(eyrp&t-R+rbahE7BpWu
zr@xzFM*8|6);nx7eXZ)O+yAV)c1q^!9)X|~(O#yT;-40-uKM&cf}^<DXT}_z2)kLW
z=YwtR^@Bw<L??Zp@oT@v#5KR11#6wQ+AX#h7Wn;C_*YQG+Ut^c3(V?jPg)8D>sx%(
zIdI_UCHYO$yu9B`UtecwEw#>TwwC2Sl`KO`<H~A<JFG_^Zu%*EH#4&2sptD`HaCqg
zPYx9`ZGODc;o{?iZ6&q!8xr^PKjk>4{`AS-6!Rnr{^XqdrkxklYNmV7Tk}-ia-U!e
zkFrar|E}6qDQDjOyqY-I&Gwu@OQN#quEleT?s1%2kef1hSMj0BX>Ns<E`JjaY=5?1
zE%R)kQR4Pn_t#xYwyh0*E3^Nl!E~87n(05PlP4uR9Be$EEPNw#PCEbeADgB(&YTjT
zQWeDVLA<I;bEcI3_AB!}weMH?n3@DDO!(N~8>z%AtoC`i+`Y`5SN<uLFT1oYnDcgU
zAp730dhLr|2^i#koe&(j`q%*%4_P7EKR+4nIxkNzbJ`&I%x%~580OjhXZMJnKQm=p
zOihCSE4y%Quj+fnD)0Cve*IDqedp<-w=WoM!sNqN*8MlEoa2;g;<cW4>GS>P((T$T
zl54H%6AN>1*L>R`ekAKmpIp+f9GlZ3qAMyga?3+>w!P#j(bBCs!X`CQ(@pKeeS=r4
zx{W!?7xAfy*dHr$j!-@8pEvcLpsCO94RflRA8l0TpY=<ryCrU;nvDIs$?kC_R@!Se
zdHpq7!v29j=!BQVTaD^%I~Pt<xwg_fsy)THVtV4Un-Ky$2S2l>^iNdlydviC={fVR
zwe3%%c#OGj761Fi&}X!3QFQXI<qOYMEjVbt?|#PO91(+e-^1ApDjFUahw2xcNt&#o
zFWI_P(K^eqL|<>7b=-N@+dd}gQoT<$7q2b;^W|;+cE$M9zu5Ow9N$|ZB2u@tXP*Ou
zlBU54?LDX0ul0;y`=MR(!Q%tV*emUh$^<@*s^_T7b<K=sb4b4_9h@3zd@QbKwo9An
zt{lEUGwcO3)pD)QO9^tF>HVjrzVLD2nV+&^ynnvlJo8CXC-vml$4BP)mgJ`G%l`XQ
zU80|{iz_D2X6l<{w;Pk%@4fqH@Lk6s^Sm3^W5K5x72mD}$rZ6qulx7nKeL}&$c$8s
zYZ=VJ8z~^WE=<jg;JYp?j4UvBU04`d60_^#X>Ii8)a`}ylJ@sT`i1KG#l4vmB)7@`
z(B7Q|>}w2Cy{D;Kg?KGmz9huOc7pMhg6`QeUMjki)}6}tFK3R(NHG2O^o-)#Ag|QV
zXDqW5A6|NK`ntT-{=LzBuksH5pZeeK_m7j(?^||@&$o?ySI6@I`=gWj^EIj-to!r)
z=JE3T^<Dfwcb9m?Rabxia^3&a?N{e4YXg4iS(JBteE0IWf89>w@6|utgHFBu^Xu{Y
zdH)Vi-s>wUe=ob-Lu={o<>w!MJpb<dvxLRGyVJi{mwvdXxxczUu19m`-IvXOvR~_%
zeL7|x<$g~%!^b&%#oF!fzyEu%XY1383(vn2__N9Gk6N8_rgUuP^&9UpYdh4A{`&HN
z@BP<@7tQrd(!X=C?CrCC|3BQ5*;1_6ahLPMl|?tQ%~W43y!mo#>n-EEy%jIx{!F&v
zOW*rLv|@+d%Bb_x9tvyS{prl5w(HX+p`abc?DOyc;p?+w$=GbOPPYD@yot|ME9P%;
zvQxHqPqUix?pyX|`NPeIk+S9Q@7>Ri*r|H!?&}MtGo&X>xcmIIzWtu~gdV|k_9q9~
zN;g=&i938>YU$LQfBB~0bDJQn7C8U#VuhKfc4)=09s9S5Go$kKq3sdO@>|kRXWw(V
zHZwU-@z{pnEc+kuE57S{o$h&UYNKUOd9{GmZ1!lo-4?rlo7%j(e9&?KiqPqMPC1)&
z$BUF5U@4E7^DO`Bxnp;WXZ21=y0i7}K{n;?71@(M817rT*f=WYe228_&u#x^tzTg;
z@$2>F?elH^uHS#>?~gkETSs&aq(1Kcu)|yN&dW<0razv4w{R3(X1bp*pFMJ0f_&DG
z4@>lCufN%>8kpns?U}->y%vXbiZ9ldhhKNjxjVrxV*WqwH@n+%qsxEn(0{h~-PE(&
zt}osv8Rb^H*)IFsTk{O5e@PLSE7xx{{Ps#!hDYOhsPDhypI@==zf<xm_wx4GUw+(6
zn-}#(1bpz}{<-9gX_UvsH5qfiCp+{$bNqRL+m}cD-<f5*4J_KrR!zQRetqx%_wRLk
zkDo5;?h-GHoL6fWw=MYB&Nb3YtCwrKebhEs{N;^8`s)t2$bv7dYTUc`{rt=wcBQSn
zD1Ftf9R{z~)-Bk+Yx=!C<zma6-_|u<e!F&Ngk0+8KVRqnd1<?5`^E0APt*AO?at4(
zo#Ih)+vUINiku&d*IO@se<@Bn{A}yx?uXxImDo$TR)`%-Dc^tmC(mi7dESQI#?Bl5
z3B_ndMp}vNys9-vJmYxS^p;0bGs7M*+%47LWBFq8#kZR(&+qNJU3zer<NQZU19@I^
zuGe`{RH`3)q35rI-j9;f*D=p8ADm@$J!Gv^=F301Cs!YK<cYg`_E*XD7wY0EH^U_a
zb?!W<d44IQrL(K(v0&_d)i_)KJx}v%=Ox+uOaF|xuwHOaqEW=HhUk|&nLFjwjtH^e
zcxb#{FsawMLH~cl%Z}+a$q&S3R$TR;ZGZPq)VC+<H>Ne}3Od}+C}t3rRnQ9lxM2Fx
zH~(J79lo$7*yr$?iBkXmcn16EN3Gs-yL!3skGQ`2uh)NsUYMLE^WfD_Yk3WqUxsdB
zT*tOs?~9oJ)wTFd;VOsSH=ktbc%J)p>&j=-q6y7jM@>$%3bPnWckGrjIaMhfGWVA8
zEI}3qsS`{Ou4Pm{PWXDOc*Awq>RST(ndfDmzc_kIDX&nYEthk8>^Y6qPiG4IEqmj>
zp~So4>P#P={$1|jUnhlzId4z+x9fOt@TLn(m+znGwyS`3@o%=@=iFi>(tjo1VqN6$
zHgbdR?`iwol6UVvC;RgDwY`oz66_8gyuUz9JZfHcKx41>ZEd$u=KdrhHAN1cRUhZB
z`YmX)kA?eI>&u?`kDoO5Gg~o+&UIb9+Dx#BnK2<b<Hr|&;}^`ws>_AG|Jq!=mOo6l
z?7Ltcqg%dkv)nCf)h7PPdJ&$73}>z9Y}`>DwIwU&tDYmj{2B?zzCR1&mj&NhYiM>W
z{cL=)q21-#=LH3t-cAs5KQ?1qPF~#4laZ=52TQuX-_Wj<R`e-MJtW*#C*8Vd0oTRZ
zsVn@{SKMH>Q7-jSWn6h+UaW(bNQB%6@BB`yIkR^>Q*zqaxjSR^OCfO^1%qGG5&}1L
zOU|EHkUqSwL*)LqRqq}$o|tOjAu?A`kacI-2lE9AWj(XjIXkYI)v6*bk|Oo<lm>@%
z^7=sG6Y7^&Jg@zmw%T;xvN%SbjR&u<NM&(8!Ni~75wVCzpwlmNV=_nEg$DvWnM(WT
zY<<bYleyktv){qRv1@dgwWTiInfu?DdE3d|A#DEk@o)8Fzwy4fDao|m(XFV!T0!~x
zx_eU_UM*b_?B>U=ztP<-XU-W5XE(FFm9rWbE_5=iU-0>l!HEyIj<i0CeXnr%tlrE6
z=hMqLXC9lh&?s<DeZ}nbvbe%$<_kCP=A3+pA=E|kf-+Y}-V4)nF8wc#Tv9u`JSlVP
z<?!!<G0Mzwr(VD4P|Y}0;J)g}bVY|6&ePMFcJaDDJGu9PSq{H*tFAeV$Jy(@7VVTf
z%FH8DeyHoQ!p_xKf4aQR|9;_QbK6UQ0lmZ7JLdPiIcD&_qjuWgzkkg-%*@YdpJv?p
ziSPFH2M!P3%q#yLb&jik&)N6UyMIX5@!lz(T_xkNo8!{c<&qW~TG)@s`2Em1xBTJ!
z+V!lD)PL+g+Om{6T}Z_&B6(-PmYW%JmfP|-K6Wg*{CR=Hx9g%&CqAF!EBEu-+W39P
z3PY|ZTerEjbz43PHkXvy-P|Uxd6NAw=eZB9|6HQ(rq32VD1Xzc_LfwJeA>+S-*4Zy
z+)}jT_`zjDr@vkLzg=6WX|5TEM7G_v;7I=;YZZ=9^k#c~!p)ESL-Lm63%fWjhW|+a
zP_X;p-ZR`AmM9!|xv{MCMY``{-e1-k6TaCAZ}V$eQGW7i<~^0pXs+*nzm=~$WOppz
zQYK6`{_v`#t9o0WEPw9naPNGVlEpL^wbY~6S4&*Wi#zb(kX6?OTk$Ev(PDwCo@69k
zeN^8!^Qp6kK*&E)iyXyB^=R&=yI!PxsdwMJ{N#jx+)JltfBAOdi_y0~zrK7DaNiSE
z^;7D{J4MR}-FNFMUR4Q4@ES^2=vHSZ3Tqrb{QvQ_2*uS&$!h}EH!t6?U25}GzPI)!
z?2EX(79L&N8r5Qb@qYD<0>-)|6`>D-O<y1Uym@+s@3kszi9O*<%-PRcJ<YWE5#Avj
zeKzOF^0!+rZ)`u#dv4ly<_}2%`>(y~;XHCLhbK1h1)DLWCeJBxdzNqCTVMDVRLI|5
zzd|IVCgVWz=83CI^4RBh7w=kF`cVJo@jln!sKql@xm-AXgCknXWM$jg#U+d0AKJcU
zTX4C`dMAx@N$<|QJ?D6FPxvo3*7c`X$?yAXW|v)HTyWcRcGgMB<nwYz)m?mZ4Ug`+
zu9&<=Wlg?w{K4~|HrIq+GpbFgIKt}97A9rKvG(BQ7ylm4SX4SWWd437U8`AKvy)}w
zFRA@!VmllZ@xAxM#JV3}PM)9l=i9jzE^CfF<x4TRcW|EfiT;v%$D8|4?E3RB+W%g~
zYxVN^|KD}<&)f5{+xqL1UiruWfB*BZXZT<F`u)3opP#hn-~F3&>X^*tXRUoJ9iHoc
z<J;V_>w@8W1EpOmp{~wJ(-^m?7zRImS<mdBeM7A1L)=Q2-?QGx)K1X(cseOP(&%0D
zpY7aDp({LmHk8#XKdXq5eBZqB%1e$@pI*BLmo3+^e|5z@?qA}I)Sq9QQX=;Kntrxs
z`w!_b@BKfxkMg~K^glYP=Jn(iGT*Wo?{Z#FySuilvE|u+?V|}XPXErEuaoF-{$kOU
zIQje+OY<2&p7@sk(ug{GJxH<H@5`_9YP(A>BA@SjyE|Nj$Llat-qfQX_D-1U%DQug
zQTC@h{RKzQuL|4EJ0a!0jaYvni|T1(*DE29v^)g2{g}~Y7U;-Td~xoAy?fO%o-WmJ
zS?QHMJ>;~3^Xk~h452?glec>qPIxH%eSWo|G+StR|LGelvHX4#?s?G*7D?M|44VBz
zveS;=^-}jtmAN-^Y^G|~KWVL&Xm}NL<joP5@2Rt!tD|hQjxTQ0mws_-&uiu8g?(o^
z*UjIS#&`9{oCD`~%rCyXu}|+^^Sy>^+vD<9IWIbJwO{0#=`H_uwQq_(EA}1}V7ryR
zu%+e7hlr()wz8{2<{$ZJeW72c;t4zVxuc4fE6$j`ynKsWpSg&4y>P+P6N*mTF1=ma
zrQLqu<E}&}$47gf9=5T&UB>FN=Bx+jyO>M2i$$;KIIr1Y*u3rT%GKw8Jy>taoXle5
zz2u`<9`}X?fv#4s1clb>6iPDXoal?3_}EjnRQzsNLtJfqen;6PhbaDSOS(_8H@UPF
zR$T9$>{{isEMk&FpJ<_;u0{c~uzvep*Lf3o4oiu3=FevTlz&rf#oY47wST)F`F9jA
ziCZmqMq=^A$+6zwBu*{<<Kz1__u;{thdYY>FV1M<6OZ)!v~GqPyTTN{54W$oTsrl#
zQeBay{>Qrw6B{0u*T~H)U3h)1{CA~3Q@<m93w{5tTf)-wR>R`;zHfIg9c1S@^4XCs
zC@kdoiuT3NLOW#wLJo?1lzs31EpcFbSsKGpOSQ|n>!-1uxyg1ZPVC|j*G}U)o4Eq2
zCG77HscigS>83jU%0V5aiK2q;%#)`l?Vqy5fhkfj`_IA?a}w+%cYjmiK0G6K;<>3)
z^|oxe>7DoKz|6*jb1aqJtCGII+x^;mO?Xn>w!fb&w`Z0b-uSWa^ydw)C${dH@Ym3M
zw}p}3<`VzAwX8c9*ZxtOtkK&)J4f&NXUFMwE%xfCmM1@dsk-6$)lI+kPMUJf=(^_T
zbMSppv}VeO%Ekq@w^#mZz4`6VFTR|r{aH^A-#<O!%SLI*y6a1iOl#FuxIOPtRN1b%
zPs%R(gj`_O>9))};+vHFLF3l_?O8(Mo2=YUADex9POgaT>Tg2s-Sb7uiz0nx^z?7v
zn-rFyciGb?o$no6iF8`a>GR$%b*JoNc+FxbeX9K<w_shm^hC`)xmQFSdqcQ8ZnMf{
zNgt`Wo}b*E&0+lBAzmRXJkaF^+dYG2d8_Je7oNRubZ2jzj_i*-z1!ad-|Z>ZI@M6^
z@2jEx>wK>0zjtz(z7OVJJ=-+pbpNg;CS2hkg!5R6eV($rxK7<3;QrZS^?~5`#j>{^
zt}V+`)DGhakNh<!w>f8q*wweZ+YZLNUu_R7-6ZscMPEYxx8L0q@6J2Yuj35agbvMI
zz39TJgBF{foV4%S)nZzH;5*Ziz^d<`OZkc!9*A)`@w>Qw(yV-3*6uc4|Kefk_ZsEw
z`xN=Q%T8vkuWKmInqn@s|KWkgkOvO`CJ4!EI;!t;>1bGC|Nh}gR(3sxGM>40zVk#f
znR)+RPyZ49R&#RuilvPSk6D<xPicR!-gm%kx=8J{K$cVQ`rf{OyVU=K=hg%n??N-F
z1vBjP5AHr!e_r=upG#_sG54?23W*P!=ls8T_xWx8|C;?8FRT_l`JrCua`B@2X^XXH
zm+w97SX-Rqu||3A>B>2VP1%w6t~c(#5_Rfys^XR8*Q~P}&$Ui*4gSt?YPQdL_Ee_X
z#tUL}UaXpM^2&wW2yuynO=~BZGR$Q7FaBiLpB1&IO!&F`S^iy9|H;Vh#-lDFnXL8U
z{=OxAH{R%6i+{&i%p!i}vPiO4^xU`H`;OGb{BBwoSo`JlM%7%K>`no}JN}%@1O!W*
z8y()><^1||)0g>2$`cx8bPg2$t*&!#KjJ=RcFTb%Be`ssb%wVCh5EDkrmQ@F-q59!
zgRy9G&m`V&2Up)qT>nl@Ls#~);*n0*^jFefIaXLrP1{*M#lvRV1^0)}LUT=CxV>C|
z#-dYfS@M!cLba1>ITiZmtqyr+WxOqjzcI6bb;6h9d<#v!R{vV`vwCtx;$Q2aUqUuQ
zGWo0bs{ZPJdtP$gr&GC=-fvSrIV32YsEu@<`ea67`bUNn+rt#@>)O0;NqO{ruCm$B
znhU=i<*sa<^7xIT<!ToZ=MM`CdT!ayNNJRbWbgZ=xH@t7vGdc4ozEXV-MVOJh1J$8
z*M6(8b0pnqXJq0iT97Jyr$lp=#M8nrobAEWt7T-hO6!h^mWMh-Iqo{8-Vkcx(DOyi
z$nBsm>*=$O2M^zWw6AE%9)0D?ukY6<izo2!K6m<XE^FJ3MY@OIN<FAvFeO#t^W;05
zkKR(0y2`lc_2!EOj0zb-K{wU~+un<kvIx?6p3o!krkf}F-4Vz2A5?y`{9pMuIFHTh
zidm$$a7sY|Px?ZI3h#<(wL;!Xn<qWHSnhErf40@%q|MW8*H@jZ+V-u1XZkX3t))Ek
zbI(-k@owI*pU){NtM+8s&M)6D@2b01R2$1wGQ;oMo0$!gnZ?bIRQk5L#j|iSs(m<b
zq&|P9*tg_ziP&T8Gt%rgmL^0TJpH!s!$$1{$A=uZeyUa$uHKMpf9~1*r&<S`Rloia
zt~hX1)#dWdRbra^V!nQOANk+{+jqfe^EqBW+8;`Xvs|uvvnP7N8ik{*HG9u7>_`^B
z@YVI8{W|Wq?ZNx<AGrrCvYGekYT`m40k=-8Lm`DT&n&c-OMN_R=jIoZg?=$C7goA>
z#P_zYQ@Cc5wW;>vG0m8wef*bm<fRNO7X-H*7Vuc<FlV=YmY1gb4VyC^GPj+4A}0&X
z`epL?d7_4cPCw(L^*aorUp#Z=l@xz9UF+D|19i#!3-rGS*7MC24Hr;i`Vqh=VzMnJ
zdCjxwTVB4sy6Up!<MM=^O`F?-&F8E+k#pYLG9~RpT+V&}*wsDO)hlnV{-iNucHGfj
z&jMdCr*o|Q(&)F?-)~od*YR?0yIbb_PNn?QZ)Irz9hiMyg2m{!$VO%16aNJ`S!Tpt
zuynj7_UwpOVa*QKGk!YRm(&s-$BJ0+O}4f2iMX09Il1S9ocX#N2I016EtZF0S^DJ^
zbFaF|dV%*lWX{c9${zFh<ct}`^X5jrz4&U9^2E!p*K~e6y?)lu?9F=v<+AU%eLlTP
zV9S?7@76E8AC{~Tt9iF;*75wPR5zCe7r5Gj>o*)e*fHaz+RBNOE`H)<Y}&f`oEU$3
zNz($w&n&M_=<mF__3+(^JC1#q*d9H7$DK`9eYyevw4TcfFpJhc`Ci4{z3T+a%|BC?
z8MsF+*>>Fe#=nHg=jvSkoOD{U^3t)>r?<3TJT2URYNAvB^roCv`7Yz|G>tn#uU0<n
z%lIe$oo}1OjAM7}7p!TRH*Jb%+={Kv7QMIsYQD2yA2Mr0kaM_6nRoIVt1R>7ch<j2
z(OMGzO>ai3(k$O|*1FoJXPV`+7mHc5%spFjko{cDlvN@Nk8f?@(Wz+{J-&3pjXT>)
z0^f@@y={ogV!7pg^4>WK-j{nm9#N|Qvj2+l8slB(*cS;Veq-Azx*|J8<72{t@I^mw
z7_4kRV~{GRZ7rv>Ol9WxLl$--KO<Ax*e{+j5Uof_Yf<l6y7{7H^Cbn*!qexZuH4G#
z_&o7$+KLF*wfFoMPP#31XN_vq0iD_Je;VcAG@hHi_t;~@)AI6m(l0v;S+~8*n5)z4
z#-QX|cWT<~AJbxvaCDv)zTP3RTrK5{4Od>Y^ory!bv+ld*2jO%Zdz~HlKbSrE6Wh?
z=t(pGXz^~gy8D2+XJ%gdktp5!Vt&!RFAw`4*5qF};n6IIXUwsM|E#|slRP#}_E3z{
z^4!Dw4xUWC)yUblV{!kP{?vw$?#)ky|4M(@B==prXWQosiZ|K!KWVn*iJK8(YWr=e
zw88yH&mx>yCs`RVUOREvD|Ktcr2r$AGuxuhD=v<`9(rS5TlXCKx#=tIr*Z{q+7-$Q
zGPqZ;3N|==uvp$Sll4ugk8t*csc#;|%(oM;J38fDSJgL(Nj`0Hze9D8n_a*Bb0JUu
zjH3Gg|Ktj5pD=$Fy>!rN;=M`cO3`o9epLvZj9YzR{aZz+n;TbrSY~YGX2Gh{>T^BA
z$Na`)HH*&&?=<i}em%pY`{=HOFy*x$Otx+Pn*QrmMY5NA|3u##rcV@hHnARl-NkFR
z>JaCxHPJ374;;B}%g^gOIdG|>OYP3Ig`0R!Jhrm0baE5Y=1<yG`SeE0_O+Xs;}y#e
zIo#!)a@S{}k9pJo^vHBhCau5iuGWW7^}o0gQ@>_$xySd2O{FgdUMH>TRh(E}v5%uC
zs(Wv0hwYP$k6O!}X4WW7n!2D(G(@f4O<`r=b0)Ts*VlftAAi~t!fVEy%~<sA@++eg
z?K4)an!dZprS@;AmgSm{n|dR46s<Q1-EOe{T)kZ8?Nl?%Z)_{pzU}9UeLuC?F|+ik
zX5+-?vTxRArI(29pVqK-<*ms7fty$quAfQ1dBlFz={WhD-n!OCD)vbSj62QM>;*oB
z*rxsE@N8S7b9$u=(^Sv!q{gS&H}tND6wXLk{32JfnBiu6>BJAsQvQk7+g6zBKfV$f
z=c+hkk@?l79e%cDx-$y5*~F(-@l|o9cZg=4vzjE+Icw&uRF$@5zsfAjnDf0ByZ)zl
z=ROF@-2a<BW>(6ayK+glG+2JF2|RBq^(fFy)NYf-=fw}FB;C7uhVzf{oCFv9XVYKL
zX>Y#4e4_ZkUJ=>*3$^9jPc!H=It8V5nY43r^60NSb7@xL+{)djZhXJxJ?H&lf%Q@R
zt|@PgvS(hu8X<5g*FQ-^R`IRuwfI+Cl|`hI)xv-OQ{Z5=DZKb+b5BlL>wA0451%*9
zcboJi=;!iJ&F2pYT=e^sG1G8bKjZ&I!(*>X>}5I~7X5uxzCY!H_+^pLNBsY-%=@);
z`R6Hj_7<F&JZ;)ap^x8mr?t)(JiJQlrNpbXtUF_Z>o10d+)SK3vo0mYN<v!s!IInt
z=UI#2S82Lj{~$55#>(lO^7FOVlDalm^?edN_}KO9`Aw-i>da(K&foUo_em^W&G#{q
z-`MZbw#EokUd9gwr?0-5^6#EToc}Aszdm)F;-=nak8U^+Vzu9(IkPm<FJj6`nf=P@
z>r9X6_S=<)T7EcYQTCqC=yPe5*z}usB9z7Vva?4^?P<RIQtmG64BZbII;R#1zPz#F
z7`L^5w`y3e70U*uHzr3m{S-{oDR5`KoGNj_==rDc2cE8XoDF#W^_>)p=5F89TjNm^
z_|$#lbIy5XGLAWo@4_^v<fd(ud!uZ)!kal|i&B{IH@(C&KEc|L7tI$reO25f`GIh7
zPOi!PREeAHrf)p{sLG12*{UA7c=_dpGUdHlD}Hu<Gg7y<`nJn_*X-oVXUEq_?+dx4
zCinJ0_oUy=vA?2z>(1W!{O$HVBDcHGBxvoDbx-@DZkLl^I-|_)(4J49+uZ}*lO37g
zSGp)I+qrG$>U}pDC$93HvBTi)+kFv*%$EeqkE90u68fZiIrHXy`*S<3@06*^mDSqb
zef)V+H;?A#rGgt7_FKfSY@D9HXR`c<W8WX`Ja^~wH?ge&QNOp?ZZv(ncZpAeYE3-v
zy3h+rr7s1;n~v_iw>8M|oQ!8m&0Ob3@kQ58sy7yXaN0Xz!)yPO@4gBhtPFV^*&!6v
zHkD)h*T$DI{8}oUj}NHE#ybc1J-@Rj>EHU~jZ(MQ%|Bz3Sii{nwC~rCQ_k`(mfjF`
z;q5h{Z^GX<u`g|muCmqh=3l>+?M==1pp9&`7fsge*rHRq^UuQf1}QJ*_-&dgqgVDq
zKX%pDj$KkIU9&$$#bhQPo!S$;BI8|+i^)sFF71=kbsszGFDYkfj$e4o>v3-8V^;sz
zuQ%)6*-z|=%HQ+imGaeJVO1;tUHt#@($S!Uw*KZbLM5ieRrTHLGIv{N&Thvm8o%ng
z&PDCVYZa1z?sfY2^4`MWnHQsXR&89&{pn5YgK(R=Q<`r}Wfhlw%~gH7DPX3Kyz<p)
z^*vQNQBht#(hb3mnVa`adaPPGJE&{*iAj14OSjB8X?1INgxJ0*(#`n?*L|A&=t60o
z^3@EJ>l(MNWIyGeDw(}(xy|47?;gVK`*ZC!?LE}ADzB8g{#(=KUHR3KJJ(jPU--Mz
zOgZP5`GnO|PKxH7o4oo?OJvyd4b?vniLY*a-Ddv(L51OC1O4akQ)QO5UNyWO@T{#V
z@7FrvrS+w8{{lAceDijnx@g4h@YrkDe`nu2yzN4i)06Al?oV^6`Dk*@D_d7?j)Azt
zt%BKc;ai!-_?eDH^Vc7WzR*2$e;5<{8sCqbde_Xn>f5WA_2BZl?rNSSep$Q2n(@gc
zE*noytX<3BAK+5xrT6<o&atOajKOA1-It`k{d9f*X+{U5ga64;53#skQ5W9-^Ycpi
zGEs1A>i&zWFHV?MKAOm~!si3~(qEP`Mf|EalbFP=L@7RK6WpA0=9N@Xu<|=C&YvAp
z*Anv9%UEq|yu6BA=e;g}#LV+I&$1Xs8(eleUX#SG#+&MT;$m-)xU&0dR;H~VUVL0!
zy~k0+#{J8zsheL3Seb6fsXOBO`R(@ifkzpp-+A}-`|Uf)Hx|gSxK@4lp7^H4zDY&i
zM}DTKwYSEEBhNn7ujATryYY{Rl=6R`r@z&LU;MbZ$SpaAtNZA_^FO!UZ_a*`yy#|+
z#Ja=6t9tcw>&|RGDJ1bjOvw1<m)MSF^A*gR&+lB4d`#wFxP3S8iTS;6H&0xy{YuSc
zj+bhT#rCJ+yc(Zv)}ILZE_z3MzLIRFWmi?{<V7#|pA`N5@RdXB>x%0eFHfxAV#M)o
zL+6y_Z;Wjp#r{TlTAnNY{_M6|`f@Kfjlv(PXRbdFi>$Xh9A(kTr6r#oJ?-L*zW8mt
zc3fv}2DHqc_BnEH)vO1ON2Wzx6gV22m?)O3=Xkev6?<dDymH^k5!Z_*zqQ!7sK%#s
z1M|A@9K&^eZU(b7qItX24WwH9g>xR(u5@g>eo$jkd(gXEtxRs!`f=P$S?<OvyOj9F
zzn2PqD|LG>I@Rxf$bS_k9uA>5YnW?Nb<#FyR#nc)TlpeDk>{LCON2D1f-#SB6NdwL
z&7+wN`G0L|9u(K`zP5>D)7v~}#f_aF>fb&`TIKI;=$=xU9v*k_Yw}9-nFrN(@AJ7j
zS1)lv!s$teK5<=s)Xw>uajs_F44p}Sddjoro7sEKsn6l^Zq-jauuW*sv!EGktmSo%
zckXn)dH5CQMkD+7$CHjlUHP}EPPdHr(8P=D=C0=JSZCU$T2bB69ABTq(#jXO{z2u!
zLu(xmEZY$@dG7A)HU2Eqd6U=f%-*(aqDt=a7dzgD-CTQ%CoK81b>Q0X;wg=jyaf+`
zK9YQC+H6g^-Pawjoe|*Nvpvt!Fg-&)*4g>{>(mz|*Lw2q-oCTq#;R%ge=`3pRpyZW
z8ImEmkx%%~j|&Qn7tP=5SM9jFb@K5xdGm!YQ`t73EmJIreJI(qVjZXOjO6I!U$x}*
zd~FQucCMefn)|fiuBQj8tsH+W$y@A~`)l5FM{ZYzGt(Q3*q5!_6vh2C;Q!}aY!xvP
zX`c@97X24Xy5a1<aqa2Nk8b7Pj}M-`-Q<CFlkgdy7o8TJ->UPA3-o3RAA3G^dZy@&
z&++C*kJ$WGzI^0}<caIbaeW_)WY5eIJy$uUN@>yQdvp4tH>G)QjMwe|c*!lH_($gD
zq8#O%V{!&tbds0P_g`+8A~$vZwbO~6_osC4x?1;5>#F#UYIlhTNu9^T_ryM1Z2V28
z*zM+-+AY_9PdxVi^Vj#6IUR~l)G&1!7cA|sI~w+6j;q$Gm1Xws=N4TKlL%qU_B$TE
zPq5lbX_~8lu@L9fT*-~Qr*dCB`Fz*$?X2h6KlH8K!sr%RX!_xC@tZ5rXTBd575gh1
z7O*}1;M0Ut|C0>ZJOgIT{XgSUl8=W5b9%RTV#~#(f@}7I4`nv*uME-P*|})8&6Oz8
z)QfkVXK4t1+j`kM&|N<DyWYm+W%qqFxCIq;e)h60_qJIPqxK-^9^+*`iJ2z*-m4y&
zW_errUGjvPC9al}c+I^M?koO~Z<;6N|HAUbL8JazwwwH;KJHQcBg<PD`98ZTxM|w7
z64y8;In(wH&-k9Pbj)Kuq_yCyY3+?Y8~1OYni~BsJp1i46V7SNE0vl{ci&mVcO`^1
zWc%+JA*N!1iuETd&KPVF_At-tOn<7-bxW?ZTH+IfZBOE1qs|3Y&G$-r{&Zy?KgDcp
za51i3r7qj_=Epx9%lP+y=D2QlW8OYBG2XRTFPo?HnEhN@q~ElUiD~DFA1>Mw6RVPq
z%sKlV=RM?I%5u4V&r0trZi4<33MV(#cd=e7eN*`|sNTp-a?{86dl^=q2z8G=xAfcM
zc?!lxMTb5w&R$zLQSfY;_;LH+hovk1Z+bcvKB;@e>fQO8!BD*FjEec|DSH@l>aQv9
z*m$ii$|LyE*`#MZ3>W?iPLt+}^veG1_f^np>Z0PV?n7S=t=lSgk8S4r%~H=bU)r>t
zo|^LPL8@(peo*~(Mdx}kGvVUxkuASsS4}x~NjKt@*z4okrY}NsH=gMF9j1^~Cd(;*
z%I#d3<*8|lPTVx|j4mxIQ(I6kkQ)B2arslOdn><7esaxx6~l7!$GW$BExSFEH*CLS
z8$M(CI`4@mGK_u;a^F;KeQ`+n8DGFbtGTN+&u-fh?XWybb@i-cM}OFS=jZ-;x=71X
zZ_(;XwS|WJ8)V(JuZhQS2S(g{JgwjFtCajh4)M_N#f;hvjpzEcFDc0}x%6IfN>wYU
z73%u7w>0+O^wKvc=Dd&E!D9F4`}Y_5lChfHN3GMR&bnEh6K|aQ_udXWyDuz~G8;dK
z9DjU5EBlY(?h3`AtDo3+S14XEG)*(v^;kvV<%iGL?sD>P>uFjX@Fv4!npf4sstf1C
zJ{rWO)tq45`(mr%$Aom3WrAr-*W2$s-gI8m%I#^o)Ail+Doo!dJ&rPI*qy6AH{M2l
z_O<w1eDTL`>D=RYh_8L=?D_rVm%qua$86HyZ@9R*_2=1Ln<br&iuY}j*^qij)FS%D
zfxAX?($@4TCrqoiIeEkTh{n^82dAfQ<f&gdcTeZckiPtuhYSxCY_}X<c4;!VZ~5~r
zDLHY=(qeX$Iom1xzgf#-EX?!Niz&!`&OVzW^@)ooNV86^xv*93TSwEW5A6k8qCVYY
zy7zhQHrK8=PTPd`Ubg9P4f}quUYMuRxoGy?_LKzo7X{aS@0?8Fx!dF}C0rjiFWYCD
z&E${i%RX4VnW@>h>cg#9H<!kAz2i{{|2frO!t>1Yus_0q;+?h`?pI&EkGn6jaNi71
zIidLpNfT#yMuylJef_n$x;4xwZG&XzwF~jnvhNjX{O;&UzwNcjccrd+sfp3{Czj?H
zWGyxIKVJ<w_qmH_yXNy4b^AXX)9<Z&CcELu?a$RZYO@!F8~C4l75(|{>YAt9^=m37
z&p)1gagKe@+=7adrOJn<y?T)xa>Ohyc=A=*3okdZf9bB~Vix#hZ|bXcEx^L>qu#0u
zwu_$|o?gU0yKDEXnbzC>`ziAo?f7lfw~_D9nZJ`;YcAw5+RUrlysn^{n^!HaVq?rv
z-iZ3&b<<SKqnQ(xgtZx;RIlB*Ey3r%T%|*&%NvPE@pTG*emVORtasm@vG>^S&u-P>
zQ<q5el-xXStI^QxU&Z8_Fpt%ae_7bNDC4x1Cifm)<7B@bzWmmGzTBF~xajq<X(#kF
z)0e%GDmYMgGJn&ly;}>rymJ)g-%KeAk^3_7=TzY!tJA_;zoor<oW;_wG<|Q}sfMf=
zy=_V{rzcoB?6jZAocQHnNzKja6{4osY-G8U%j#UuZ7Sw5zt1qyZObOJYSz#R>{B8t
zeO4O(o4EBs%<ITR7D3<0{LURST-K}#y638tT6yAO@{5Z{xqGxt)?S`k>9~BchT81p
zN3~+b-2tk*oVUzz+UaprpmBFyc#`*BPBufe2Y+r}wp>!WLec8o4l@t8^A_{Cx{`z+
zvORDS;yUbCyutR%(X{p{I$TTVUj3pcXj8)YE9M@<dXch3wK)5-OV<_$SpU88DyL~(
zoM7G6TQxFI9;Av@3sk$rq?Kle^LJg3On9=dUgYb;!ev}iyIP;!PC9xo>h!}d=gdT*
zO~DhzXTMt8ma$9A@pDmPYx~u*7o7ajFGQlF&fMJ>=2d%i68G)Lho3&$v~JY_(WM-p
zd?%StRZ=M2vsQ#LRDZ`(5l5Arz`IuuKe|3m$>8GSjW4a=PJb$`>zdGUq|AN8t!6L5
zHP;tTX?(K!@hu0Z1*_vs-aL1gI<eu$Yljcpu2}mNAF9Yud9EF&VPnLysOOdHk_qi!
z)GbuR?<jdoU2D2k{#10E`?pg4Ke0&<4&AAnyi};I@8njYyw~^TgV(k!{hu&ThPlu7
zT}9PT|IHa0>T0F0j@s-kxf53XC_Y*5RAzwM?*A=PS0m<zbZ#}*;EG_Ia?4kCsi!In
z+j?Iu#S+&NwX1x~7BUu>Za=y4sX@n<=!}@39I9c$x0OYni){=Od2{)S{MN#I!c3No
zoab(F1#IryI&Jx#6{$(POz!WM7TABxwPN><zUiF3LI2ivduoWi{h<}nB>lQzm!(8W
z*`BY{o*K32gsb^2i;}%|Q112g$2M}ul0R%<jr?kO?YRDu!tD}&=7--r^KwT<+ZP_^
zGFO54wu?7RGq-ZZP3Z0}wmKeRZ#2JS^}Ynn4VhQ|WHr}3Ui|!|sGs!uH_Hs|t*heW
zy(OGis;sMJmz=wbfA!tom4&;CjYL+h+8(m(-`?s~!K)s9`?P(wY&~P?tV5Npf9>Xm
zJ*v`_JTITLt0?@Mr<(n@skx3)IvLyYE4RMLv$@+C^~kWfKa5W%yGj2TgX>gNk=@<(
z<q?}=*1gwA|Ns1{V4st~)a|oGTzC_fC#G-k*8OGs$;-!%H;jLBhvknjlj`QuYr9Lm
zHXIQvEqfEr#1-jd`Cw9Mqr#KE6*k3*ZzoN#T=(?vmm0<uPxed=6rR}{@%&oc(X{pI
zDeD*(wH2ud?e5GqGgFrhj5sWGW1Ydmh`fF3dmf!+f1Cf*&|6blf<bgzTHN{F@AEb#
zZrgwTolxuyL(!RHvZuENG2hR1atu`~On4S3kdbxj*gB)-J60XxK3vV8UOMB3!t>ja
zD(0ucFU4Qm?IZh*LGmvD){1+xW^gUK{ote7>V)n5U#{#w)z$q?tJKR}?x*(G%)A}V
zw`b&R@Rw0vclXpv+4V*D-o&1K{F-ydhr^D#wT^c;PiMQIrL|h~{qqA_HmgOSKY#Nv
ziGOcVerLnQ%SJEkmXyiWt&N)Wd13rQv&czvMXQohUG<+i%sgb@Rg>~9D)qZ{vG>%4
zzozYaq`R_>^QzjR#it&e{gxo7z94U%xuDD<tGCzV&#AYkth5fSQe=qctLnO!JHetZ
z{@u?PT4EgQOnZ%*-z9i&-yfG(80f^fZ_|^fAJ!iGb>?TpDI@FKir2kw$xK?eYgXR(
zqR&iMO1O8;{r^|#QkVP&zq$SQKDxK3Zqmrg+n(B)%C0f(Q;YTv#;p4FhR4sx8tzY9
zWX6)Z(ctRl&rQ#2+?M^@kSBe3vd*n}g)ZkrTixUZ&N4Fza__U>ctKPm;?2?>^CLHi
z?F%qszjts|*?AY)%8v|J0<4cVNxJ2{R5PEVy`t8Dqp^H>_{G4JH!nxq{x8{Z@<z=A
zuGsSY{7-+ri#-lCKe_6Z=BuB6$5}ouS{|LX`h`i>`nIf#x!e)=AMNMoDsp)1!yFNz
zwc_5j2WO{7olDbO!DC^_IpM0pc^5Cy2`(j>9?vz;yz0NXXPKfIU+|gK=Ly~l{AnvT
zm*y?g{k5Z*cae~L?ccc%x9%4AVmz3ZXYaXsli2jPasSe$Uf8)T_^|i?<B^3@c?u~)
zr5dcAOsjd6x;kvOG4zEN&9-T|!S1V|SuUUy=e}fxb=Rt*vdB0l-sNh$gkMIPEL-1n
zibFzBjzRFzcKMJ`R;$uk<MxN$DL=P~`!TbwVyr{Wwq5$Mvlr+t7x2;N4evacmZz5@
z#?06Acny#5ri9;B+D_t=AFma&UH?pFSC`H)`*MeT&IONme+qlweNUv#UQMp&Wyfh-
zZ5?|7IYqlwj*o6m@Ys{-uhVCBOlq|V&u6EPeg~TsVpJSXXs>!`rs^&@ZD(A1P^3+T
z*ws(m3-1eaPb-@Cq(EnS)QgNKk55iaa*B9jwRXLmL~2lalb%iBYkhG)hi#f=y030}
z-p%#twU68J(QxvwYMoP&yX@Ak?s7=uJz8JAWLDMpsP0wswi<6QTIQ|fvG?ADt}?Cl
zf(=iUcc0CjcW=Wac4Nm+RTugl*dFiXwXe33G`Fy~UU^&A<>!uA3DKnm$ET;3e6XLO
z9Vg>*S##ejQT?ySR%g7r$@<9n&zqC~nV$u|_DscCmkwEK4qlgTXklc*m713V=2#jU
zVXjNJGz47{K=3wzr?s~?$s8|SFi&w`h4~)o*UN=>^Uu3^H1pbDrB)@KQ=5EG#|5e!
zs$1}ffl;Ay$-!0=1<7B(&YoHI>eQ-ruVz|WEfC%KaDw5R%dykXtl5)(ZM%8WM02M9
z`u~5wdAhjY{=0en|KG}mpTB?Dzh1ufx5p)J^Plt6_4Dm2oAh_i-r=%*&d$nDR~LWT
zx@TjUZqVI|?CAn|^Y+wydFm*i|ImKXly48N&;S4JiM;&XSrQ+fMyF2KNZwQVNha?9
z_s47Fd<_15_*JobOXQxb?c3eAMo7=KsVNrmzH*4OvVyUGds?BB>^#~0r;p}LeOFNB
zHMvEiRPuDz$+o@8`kTxB4Q6q98@#z{rCa^cd<T<gGDrLF%d&eO6>KP|;AfWL)o0x|
z=la*f;a?9w&*`x`8T;8NM~)%q?Zef|JzN5@?A-r8$o{*jck9SuaTdXqOWG=@M)icT
z9bj<~4LW*QzRyelR(ABa3H!=6I6pu0us?I<E~nGXi!M2w605lUqI~&tgVimDd%OZX
z&ij`>*wt|V;A-zL8=PIXPT`(#(%!b})BgQF%FFg{{yQ&jNvp(c0frSH81@;ii+jkO
z7N~c~ib0_Ji=U!xhHOGkbw!|kwd;g{d$RYgb_#1XmG3&!z_4Sr^h%FJXWQePcNQ(R
z&FMT-ap%SH`OJc*?9Rtrtt_Nn?!?RH^G=xYQE#u#<6dTsmkA$Z%NL7Jj}tN2Um(RW
zx9+A<P4%0EbSt*v;@x#WUOPwrEU<L&{NfmQ{y76XXS27h)Lnf&4#88W_uG{@XCJ-a
zmK<>Jk9P~-gM&LRZV1v5<IAm#T;mYmcSLN7qsqNIOcyPf-(QUW-;!}*M_J#*?F_#c
zG%Pi_;o8F@;apYsEKWW(V#)`(z9VbDr3v!RyZQZRg@k11C7TH)0dpd5mv8O&ZdiOI
zV-cVC{y7=b=Vl1;zyI>#b%NMw`}(<RK?h~+tiAR}q~7SX`?`cX!|u-Br1tL?YUdwJ
zH&}d5ELXcsxbxv6J#|B6VPy;dB+i8lH`lwrd6nt3=tBGb^*qlCx?hKxam{Lq5Ygd$
zd3;@xs&Uo=g@h}N9w)g}c0|8+WQ#2Q@ufn0!dy1Vun*eiVm9SH2afTq>Jmut@?&Pc
z#j)|sKS}LX)_TG(+Ez)#E=$}QQe8QvfUk$E-MsXRu<|aam5z^=WVSQ7z7}6vYf+%)
zci%!*XrVgOs!h+`KX^0pG5_ZXf7DR5C0&R;{AJ^%#-BzHoh+s>KDj9`@Ivmx{0J^D
z_Ly0n4UrWeyLSny$x0kytY<5beDHj^My+Ft<jn;|KUq#5iR9id|Gd=N+U+R!oSS-L
zUpjBzXAhdI_|#U9U1Zv{RuiTa**A9sm^PL(CLGIF$UdI1NYeSovc3kE%th?~R{Y5D
zU;XT=z><#&eT;!$6`u26Tz&tc-h&B0omE#}U%dH8(p=5%A0@XYO{w3Ux}29~erU@*
zL(|@eKU*HK1Ty?TX#eML;7M05$*4B2^-NE`Iz*rHFj_J5Q01!GQl7sT-bs(IH&JQ7
z{JD$UrFC-mq|RNjJ$zxM*B|ztyD~%BI^6P;Fw0yag}Sz;lBo;rBU$y1+dFGbX4zZS
zJt?WOXLa9#?C3g;o!`DMDr(g&Jbd|KTAu2L>qolIx>}!dnX=urWbI$2M^~5(7O-lc
z4?Gceydu5&1W$p+Qd4z7k-7u2f7+ghKbx>z>L&Z+&vEyU^e#BFeU<8MLDP*J_pN(<
z_%egcIjgN#H3c-Id6d`Rm5GrNU8?hk`&(naC=at(`_xY#z8AQ)u+M&0T(is}!Yss4
z^;zhXZJWd|GBEI;^3z$&wVd~~;%x=tO$_S}C>R+$2@rM)Tj41%*YxnYh^nh4E9%`8
zncS8$n0)wrR<+8g$zg5V^6g?Fri>OVrFZ|{C3iYy8E3Z;XB=zux!YkYqFVP@ZE@Nf
z@ag3gwT=ZVMVve07{a)A^*z6K_s5?wv5T`aJNug)-u%=!)s_%#y*EMqy^&aC)}qY7
zu216s|J9sv|2TuiBGn+&G=<NnEk7sXj>|vJv@>DdnG@$%_?hU6i?-h1)1Vp3QZpej
z@#7Z7%*YAm8yFRI4US$YVLW<x!Gw#2M~*Q3R^o_ctDVDn=~Z(~xVSd2%eM^?8uohk
zS8S@hu;6&mj5AW44B37f%9GN2XS^%#f3;p{S0jVZLM;}briLjcI|P_+{o-L%Zco#6
zI^aH^jg`UXr*6hmx3y80ejb-kdRc7@id^IG%q+zChEwj}UBL{N3nouy#oU*8eXe}&
z(R)lsUS=J)ld#qB<JrM|VD}sIGxbbsL=~?c4BY)ldGn#wQLk61?S3G}{rug@zb)0z
z*v=jI3zpf_wVHKV>S8BHMs0WgcK=N=O{y&Nb<w%zX^D4opF}OY8SPNM*yWAqgQilY
z`G>MUmKSywI<E;AdwJ9<C~4P$J!(_F$kZL0_T|We3>l{F=NeY>CMie1FW9p4`^IuP
z0f~1r*36RpV5Jjx_jJ?#bDkxwtnp=4J6YrJtXQyrpZkm^-&ek;F9uw*oE~G?Q#5}a
z%X}W@rzQTjmzs`cTFp&a<{y>KI4|a8wUt=@HHO6vTT{4i-E7>}S@SYB|MSK3(=8?+
zdc0R~NvGV6-Ny2Q;mK<@F4?)&uH(y=z~=?m46Z+W@P2_y%JoUCCe_v(HJ({X|NR-#
zDtfv6-K5pWJXd!gwEudnc@uNgls^hlGFEkqA|^D{ap^dCGDh3+8h(_BRb6m$#>&_Q
z%quDs<^BnN7c(`m*PC8v9QEQDo5E#7X7)Zev0qkAAJ3ojD_!+jIY9BRbIBo=gfDe(
z)GIC~7iC>kZp<nXW;uSB<$qPnUa6iF2Ccs<V^2MPd_dGd?9)O!)0h+4!s2U_X0G};
z``+HD%8J+D=g;!H)o`L}j$5na@kf{WQ}im8bU%d6mlY|<OIYzR)BbK^%7GTw<8Pvi
zlNghWx>#~qPagSgS(I-&<H#w|g*jU!lZ&6cw76^dxS)37^}pXs-ut;28SIe`{B>cw
z@ul4jp{~-0+ry4>mMxgIVprbApPUU`UlWB48@?P)E}J25yzk3n8@&@>;zRs-n0*yv
z40cFPkyvNhc2l$F>Wu5sr(Ib@a-6T;wdCr#=U)2!)T*{r?M$v62{M5@D_g^O-yAyF
zqO0<Bvc`Uv(gQhLELSj}a-H=cJ(5RLnC%_Il9{28^6oNzslG2eLDe&Gp1jK?wfYbb
zzewJ6=5sZd(wP}%EuOC1G;??K_mJu<^Hbl8+^GJ3b$-|Uj2FfkH*I~FS}_0g)$hNy
zgDa?WLf$HmtzYamy`SjoX5cc%FGr~U@I1-giF)<NjI<Z*xICM2tJgVwv-poMJ{{AX
zUaz>+UBvv~npV}Y#L}bglTJ^qGRl+XVEXcIgT%ktzlwEs?o_od`!@eVY2Qa>Wu9`j
zef})WLd_@J*18?rdPgc_X{h$mxw<Z^SE#Hw^kB==Wfvk0?w9^kNxu;J&meuW%zLf5
zXB8Sw=gJ(vI@_C@Kf3shlVXm8;D=9&Ee1Nb7Z=)c-rZu9P&!}5b8ppOnVTvG0&er$
z_U-ol<$TVialM0EfR^jT!1sYa+0D|QI;@zSc;4-YRWw(boY~^ioyRJxd&TzzZvAIb
z^vg)c)RCX-2j^?aynTnBaw$!oSv76iYJUGdNBsqp3(S9Iwgk9IzAb#@bya_I8Uw?V
zgB#5`8_(_L^_b+li`OCOjE*kzmra~!wA}xQhb&q9F6PyK?`xZ;{?WX_FDJr&vF%k=
zzVG?T%Po2CF-A)44W0Fp$L72~L#)ra3E$_*JbIoZSvKpz%Hs#hW@z7!=FT|Hw7RbP
zc*D6bLJ$5fFbq8KmEWgRvW0Pv%4Vr^GlVvEJh{4dL)0q<MU&fY7f=5@$;zPVd@I@N
zsGZG}`!cqbGm4rLm9{VZ%5vtpB`<ft7yi|vXD!6LD^>m;sS0foSb1Sb7W=Q4k$-~>
zxC;{!H}&%MPU!Vm^us96-+R`)nPzWZY^+&tZ_Bc<@wvogv$@57=WZ(0U6rbv^GDR+
zV(Pb}YKHIYzPTz)|J&To7S-Kj#`a>@u_Fqx%sQXf&Ry6Nx#jV>M`oLs`yPzBTgU3(
zV>hF!b9wB6cRM)`a;)Y3A<1c7qp^M7wI|G(b56}YY~0x(^ile^>#Y#Zs3e)qvBw@t
zo>W-xcznUMV84cDFU9gt+5tA{0i4F2b~gDOLg&rW*O$i}+`(JWW5Aj9>=bXHeujGQ
zXS?^ul6dzspEWeIRR13szc*+%Z=Alz^7e^Sr|_*csNp{2d}`(IN@m@tg%|JSB*fj}
zdV4L4<DlL>-%HGXJ^33Lj=UDT9mBh~e|v_+lEjq`CnmA7ow?hly54F1h9_}P9w?~`
zsW0++JX8DooV{XF%KEj%ebL>E4>K=1Dc!Q~^{eAYALusgJ0H+^GF4@A<KwjRr((?x
z8tkoJ>?+KhYx67AfLCSps)!pov*uO3+x_*}!pUF6Loe^W$A0Za=GsbwNr56#e-79k
z-m~`eqpDX%J{9@7^__;1wLkW2OB$Qah}g~ZS5Pm*cKPjj+in$pEmydEa2-?NjP)gx
z|CAK`aT3mnz03H<C9K>b>4nlN$DnLOe$BNVOIK{!v@$Fp<Y|T0t`m>Nt{gT<e;_<%
z;?)f)=d!x$->>t&@veA1Tkw)(4`U0{(<`HMSxR!2-rO^D7vraAsm*t*YO?r}1m}v%
z%&25O6(iE(`fKHzIGa_$3*OIoES(;%P!;PO9j;|*z*OLE=(+8-ipJM8fnt@O)1EV2
z>boaP_C#%bx=&Ja)0r=c0%?~vbWP`B)(=W*W@^j{o!oN#k3cHxoyXOWN-d8rKAp2z
z&7GBB`32|gD>}>8ZMuB(v2Lcz@=0BKfBN<wRt}#XQz|3z!Hhd~)BLNpfkKC+b=g_x
zcyD`Md3Bp_$^CgbDIIs-UiOUQxx-pp7?<-+X-fI=m0HfiSx)wqyw7b~nIBpQ=WIQ(
z@x-hD=^V0Gmp^?|A}Xr-*gSLn&4&hOSPFOS(BigFs5<%7)T7{rOoL~k+JzOCxiu||
zjACcT30&Xd`Agt=Ta4L}oy(ldcX4glV|U~yBTts@i#KzOS2)*3XdCU=^=XFeOh*U)
z49)bbSFXHUsLXRP`GNkiW%qY(d0+Y6tLcGSv08=sg~TYg4O&MYN*ztmdD-@rRU{y=
z@sEhe&QoS5OjKE33phT#Qx!YG@{fD(VTET~BV&A5y!~;0v!4L(oI9^YIE`(5!kyQC
z{<X8iQ@i$y+!5Xz2Yfg3^6%dE)%PIt$#bt}UpuJw>zMJrSqtyZeAE)h%ca$&y}(7(
z-1FpG=}kIerGXb_ecALiHs^A_K>kvP(*^cLy0>?)vnmscoGX4xsM2%)UA<5Ldw;oB
z{kn5JB+1HKkI_&^b(KtPxc|o7O}8r&wl+%MT3_*KwR82FD~a<2#f;w1QT3Yka98j)
zWrH0bXBAdY`?p*)OY_cLlLv;ejkhoONm)5uvk|&4A~&aRZ+c7i+1|s=FC4rVHOCm+
z9XCt!yUkvt(X@2`iwl_yA55AAHd+Q=XgKjxCi}JOOl6;-bNmaKc-gaMF7Dcp$jLw3
z^n}1Qktz+&jIim~ZMMpZzl+WcVtKjVvffHX-BG+Och02cK}AVA;cIS}IL(;jbJ8rq
z`)k`NTb{g?MT?HVoma;0Q@z~muf6+DW5FX+Caifjar(B9Pb&_6nEhu_LGX4Dt=Ci5
zs@&+hs<(NO$OfO9f;+NR+NLr+$8wEA?<t$H6wKb!>|%Ua>XRAooH^auUjMdT*qF0$
zR)X)JIrAL^!mBpklHWJyX0ht_sr(lOw689yw!g4^x!uWMADBv`ycN7e(>)?&7oHKl
z7jbX3o8h;Md#t@$gKW~iKX<h|zf5DP%D>vS$A_2s3adXWNanb^)`9U~=9lkNI4d1R
zj7oNTZ)vWNE@I<36D|AEQ|k1rs%w`nyKQ~9XVwml6wiCcs?|ZC{xC#tvAB9GE_K#{
z%WCX*7A;;LV)4$x!+*~T$;p3P*@Cb5?{s1mOuMJ?!&y6P<vITcx4!(n^l;_|IWAEi
zg;P5$EZ5g<Jrum@Uc|MsyX>1@oz9teEWfMxrtc%S)DtXvYb)<sE_=&y#qiD4Q(x;&
zOEPCnSrB8_q2~M4*L3El5K(WD;?JKNr@XCvKaF|ibk@`*4PHAfMAKSVCeQ!TJuz>p
z+2j_335&C>CYEfP>b3Im)=i=h?KmC%`Q^jcuD2}VSt{Bad?2Ee^?c!iJ^3fja0Qg!
zJ;PqBwfvY}z^jd-g%|zKF|&k87<o#v%@BUlSKL-|B;=6cn;OrP8Lv-1+IQ7+`;y#S
zSC)MCSQ&4!?t9Q;&b{Gx_$Aoa{$>upmT<{0K610;v#2QJ^BQ;USN0a$XvUcpF`I_F
zvoEyx*Y#WF4U71R*2^g&1(UmcH$GWoIyE~ZvA0=_F**H9u*i=|dvwIB-W{8&@FF?e
z*-_%!A%|1nR(3y}l$>EAW_`leEPsQgm$%IARU0<8KRWyC*>97ny}f#dW^4Dvyi1R)
z-LTJ#?eX5A|0hFPlNZL;KP&3@So?R?v?Dw%MRS~!e{acDXwEn`q5WMtyF|plsE&K9
zFNG*Aejk3m_u`IyUe9K|%2`%F|M!W!HN7i}g4S>HZTtSR<oJ2kUnNSP!;XH|EX)09
zQT)CB&(4r(-&Y-8$C-WElJ$_pmO5AG1$*CbPE201n^CO)mTML}GmrdcZj+14b>gMJ
zw9UNI&poZ7)^p#1(3uUt{#*Z9xpkR?bw-5L0p9dex<(n^QQe2;%S{$!@tY<R)q6|8
z(vw%~T*MNF{VqpNd|z#{M3AqK`CMK{_F8`b4*^_`FQZ((UE8$twS|XU_w}eH2QRDZ
zXNWqKy<Br(<KZtH+kDJ^e@<%uuyEhXdiD5a3xwucG5+57?#I_%{nMv>kl0XsWp<gj
zQk78X4_}raQ#^G`c{P>yKDs=;owG}A^{E>g?o%v9ZT@H-b?1>tp7BZHNtgJ^v^e>V
zmG7_Z->2jiydie)v;}MH&*}tf`1y-H&b%06w|W}G;oF}!WyYKJTt4K)<6&<vGkt4=
zgV}4xq!kZmypVahcyi61dH<$5a&qMaDrlcsICFjYuk|X&Ry_UgekOhSr69L*t-YK*
zGykn>`?u9}-2#J$i%ssnh`Jj%JMh8l^xbPi|LuMfx3WO%U#jW9=~8A9CN)pR6ZE-u
z@>{hpzWV3xd|6Jh*l_=O)y}7xPOXw(S{i+3ddv)|<7ydu_`JBegpJo9uy}QO=>?Tg
z&cjEfe0W5695{VdDxsS{cH-eD3rh8c|3A4Q_WH?73#Tp9MH}b6Ed1n?DVA>Gb$pj_
zbad$CV{#p@@?^G{oH0CnWwBlf+oq`w*A{Tw7bNoti+_H;v{7{ZF<VoEO<yM4Y-ckO
zJ*?a0d$aYk@0p)p_I>QSlQeth3cbPzapfNATaTUemaXRHK63HH^12BPj|!Pr6zvPS
zBUM!U_{qkl*S}UOn>)+DGdiTlacQNy+WQ~AXT#Slua)ph^1OYx#&6#L>m@O_e{Fdm
zHCc}N)G|)r_(ySxYnrWnXT<f2O=GAodp%=ShkxHn-4njEC!c-IRJ<$jjcxETrB&yC
z9ynJh_AXwcyneTapWC-B_cNP<j115J+#}U*RBZA&>dqbBlf2Pu=WVl0wJd)zschEX
znIWJ5a7~L_=2m}#J8SQ+n{4g3PhM~}^3mM)LZEN9Zrb)2e}5H<CDq3q61Z$|_tgOx
z_O?&mhQ{({&d=8GPwvPKDq!%Kr1eNItK-LK_5QlAFK$b}4SHWA;$*&H%K}~&<De5C
zZk~3ZU-Rq5WB>m@pS>-AA7}IHM|}R1#r^*o|KC@i|Ci_A&oBA;bst_lpMUR9)~(KX
ztJ-8kp(N+aUGbB4?CQLc#&J7ize=>W&J4>gU;j_*FP-_#CSn%wDmCw-?>ET~9{(zK
z&kp^7{bCM_8hE<rW(KE+`PA_)$!L_hKI4A>+F2XA1CpjQNaYLhA3c-2h1cOiP+H=b
z_W9}QrA7y?zkm1Ye7K43w352mv=eG8H`iRern^S+nC`ao%-&OScoSSD3f+U{zZmGA
zywa~wuKCtAv2c}%v%`XKdKK<GXBN6VTyX7f*FpVqmy=pWqUUvIcrdW^+`Om6&#-%H
z&hjts$}Q(xJ$)+F!SiZS>UGf@5yIS$BhDWD{ClzT#7s%1dqNee-`08R2Q5DEDLmv?
za>SOD^9I~1hb()i)&Aj)X8v<CDeky?bLre`o&h&`4S1Hmm~LNRy~M&!wC=(28|(H)
zujW7Je=Ta+=_yNCEmQLx`!94z2K4f3Mzt&`b7ly275%oL{G<SLbnx9L0xQnHa9!VZ
z^SZz+GvD(ioU^0jb5<O`uve^W<#d;?j~xRS6+E5f*R^?Zp={pXw7h`zN{nhdSE;w;
zzJ4hv#xtd3nTpaO^X0GK3hrHA5q#u#i*=@f_fm(wk2>c*;X3xbbBaSm$(N~}4|4An
zs;TCmI<BU*?MRQ3kA$<{L$QahDeez!b#1iHzF4?Ur*`dzSVz@`>93`v_q9At?OJkB
zEI_nks^85UrPtT@NeTNgEmjigTySr3_!7RqX|Zo~{g`g;=KlFi_=c|A#Kwx+lACj?
zH-EZrsGM`4uTJ&xDWM6Ilg!voI4xlLSKGFHavhhDyX{_s=iW)N9LFrG-*tDaeqqsj
zt;MrmY^Gka^m_JywB-MVe=D9Jn0;i)XLILv9W~b#(&-z|tY|1ok<2}F^HO2^b>F34
zx3=+fyE3#$iDj5D8@y)l-os*g?7=+ll66nTsy#Cg#HD-kGVffXv0&1zZ@r&SRenm6
zO}O%PQ9gqUFZbU2WuYp`L7!i~I`ID0si@~1YYKlbHk(D?+Z?w&)_2meore_etv(vN
z>V%5wgf%hGPZpM}`*^lgEOgbkz}rCvYo+#|H9NZ^U>;MHL9?IvNuL*|^Jm-StN+Sz
z)3S(q|7GQ?Y)8?n;hh%C47bJfG%Bs%*7cir-nGov3_CBKH+Oz27P!-F;ps_Fo(WE4
zbQ1_P+Qw#Jd*$<$y;I6Ask|y$oE<eU*ht%aVF5$U4zbdgb}Yu1ehOy<Ke_u`b5Evp
zn{xfL4W5zhHp;DrbH6O(se1Ed<>t?OH;7jpU;R(TuQzr<^k3U}<EyOiHnK*BGtIYQ
ztBjmk`mOJVZr#S4Q)Eo__y6Kq^sqC$-=ubXRkG3A)gcGCY*qWO^l-7fUf}P3O!~%J
ziMJ29<7ON2%doA<eBS&l`P~%rM0WQy?b;Qe)L3?Zf4AzB+L}W5#k%GNDjV$6lvIve
z3mS5p<#tSIzH`O#LaNTP>?8galgqS&FK;zT<~&!oNL&2#uRku*2}=zB{LXu$u=wRQ
zRs#*!$FF78f0g($+*aAQ&2E{%62oN6Us<6upPf}P3w`}!4WshCcD9)0zi&&f&&_$W
zEGI30y2ylOwt?$CFBYb|FL=Mgefq^05n8@cK4zAcuUG5$pDL8?Dn7U6y2Zi7+tq^p
zCG#&^br~m$wiN`2OU%)<C{F+FzsKjOJkyb)v*)ERc~)M&c8I^0vu4UsHbEQpjMqQk
zPr19h-$LT^+5V-|+!$xv+$bS@knh#^kj9DAyrmSUJ+-)Q^knN4HTKOh&V}mVcDsIv
z5Qr~oobB&gS0C1>*IIi^Ugbioh_v&bHH}OYzxN5bS?$r8D->3o9V9v}?#9XZ(^`(R
zuC>k+kdb3D-Tuj=Ra{uIuyd;W=UE#B?T&oe>bvz=^Q1$)WrbCfC%-jkJ;!z1MnX^T
z+L4;%TTfiec0SrQ>+Y>98`K#7iioPbu{K!!<W;X(NOg3?lxq@`*Kw(quRW>mf8F-%
z4%T$WIRVzQ-J<rC^eMh9z4mPqgXdcRAAco#ws`~|I5ER~j#~S#Uz-h!tAg!kU-CS)
zeu`}Ev(xKdJu|Oldz&gfx3%v6I>{8@7H{iCDY*^IbE~r@w)#DEw@ti$YyHa7-RXua
zLN+=}B@`<NUgzt1ZlG~gwQjz4+@chz6Cd{M-|1ArJN?$t@9uL|+_uT;aW43Nafbc^
zr?%^_wrW02o?X59K<57qw_JDkE-+%doisV)SnJNsi@&^lIlJKt`{MZvqb75-7u|jC
z!KrSM``YC9N})qG3>KGHPS@(;FX@Zf^<vrYM-z{D>wH~Rv)oSa)2zIj*XoyxwBN`o
zpMAxc{phjy&cGFFHT&*v{mCQ!=AWJPtT&1}e=j+!@qJ;Ezn&I;^ooCNuF8E?>pRkG
z^M#+>-*`&xspR3w;a=*F?f>7dI@~`uLpnD3LZf0Pd-~&NF`IXBY*>+SASXWW&d!@}
zvffJTd^^H&bI!qz3+sQ#8hf8R*Y~=VZNF^iW7!Ej+b$kF@^VAtNtUOtEuY=xOq<|e
zyGiF|tX6{Jvdnj%1Mf9;^xV0BcoDBp+54vUC7RO?aV=e8Ip@=X`HhOFerfIAbS~6k
zhh4f1zeZ?#km0QR_bjeu9*Eqr?0(*A@tl^Vm&-(V&2H;%uY1K9&=<w<@f;IR@?FEQ
zIGuwx!)_S+W=6{vN1A1XI^QdhbBRs3V7BvF&^D%22j{&r+KujiWcs@7_BXT7TdlL+
zJV{zFo!IdzB2t9ee_zps$&qdDS#s$M++@z#3V0t6QM0|gRqw&el~FYpw)eT+*mXqx
zYNuBCS$|d4Z_l~*s7$K%d3JA;n)3|PqDOi=wr~9(n!P$Pu8Z~PuAM9U*WI2Iz3ofy
z>s-ww<ElKj<=>K<*L8?1Z?cIiN?dTISAPD)sO*>(8ZYD;zukF!_}JN?jk`s+>)0Hf
zq0Ibr+wu8xN)|j%ugf*GSj-u<H1vCy)vq?^IMLFjM;2{ZY^6SZL7q)vu0&aK2yc<E
zc~P}=du@Y**zBC@u-nnki~rBhT&iQ(q}Sd5Iz&{tb^fKpXO>O2&|9m%EJwkd(Yn0+
z8CT;*eZJeD7k!rtDcx&TWFYQrF?WWd+V+(}UoTzFJo@I8@y?*7Yp-jabX`^YLi0>W
z%KQJWUfzd=+T<UIt@!`vhOA^zSeWl&;~ACd*PmD&7f;{xdc({&%XcX9ZkT?Uw@_Yf
zpG1RCTXXVOW$%5z`c4FJinbko_2x%H+?liw*PgE|zU9Zg>{`<81IH#E+o1R2?W!Yw
zVo%B@UaKq<=bz(S#{J9w_ld5z^Nct3bQq^xoHtw2j?t>+@l&-OuRdLQ*J}9I-r!ir
z!Pusa@B1RepPy#ATh(@?hAorPZ`;4g6UxebqvyO`$N6{36NWhlUVeBTJ~h=(%h~XB
za{ak|XEWSv=70I1yvMAn+3jwt!I!9OUOAzKr&DU9d?%N<vup~wUU<c=S*<^~`fKL(
zF3Gz|Mlp}N4E1yzO&LwTG38I+^l{}hmS1mbXSE4kIIg+(_KBcRcD|{ZMMsy#SwG3l
zJu~+lqnoF~s}C0glr7dyjQ;oK_No`}e{i0!<d}9zZKc?TDRl-B=3)9F`!@YQ|Kq^w
zWnVANcQ-lf<$c7Wf7wJ`vyNpyWqgc(ZkiindhAZ%nfQ|$%d~Wo*Y+=*pw5*LreNm6
zxzS9tQ@Ck?SN;Y5gTK^Y1fJEgKhc;MT=3(&C`;8dS&cwu(Hobi{1&*pc2TZG&evz}
zr~G&_t#FU{lf21`^|o?qyKXR@^{&}ZZ)vqjt#a|M6X!m1&v>)@+VO`=w;W#9b>`sR
zr3Du_%BC3>#kuBwmhd|)acYTfZm_w`nplIs%ikJWZMvpsc=1<;4C}p$S(iI|KUj$~
zES*ual2uD#ZtSGUT8208d+QBKuLbPP&|vI{&yHWDk$v@Xd*`RbnUgOEhe#=l3EtiN
zIN|5#Os*&El&)5up7-G16obSy>`Lz@upj!<CZb}s<v*{9tp3LASM|sJIQ%57lNQ`)
z=2kv^cDudjM}{8ed5PB!WT^b&F#7*j`%c~!zf%uW=81HKI_~i+{r#qcSF3042}V8U
zZ((;dSH9N>y~nAqzTvA`m3{Nu6gJl%8Fo9b+w7k4`RCbZ-Np)27sZADkrY@XI3?U=
zk&w&63x|(3cD*_mFum7#roZGFhBwb{7r9T6d$RIPrT?#zQ*rqRUe8*kTiYh$Y-h5l
z%VJl#<JqNLrr&!et$%lQr>XJtpT9*UE+>iA-jC_t8K>HF^|_MICZ1WVXJ_eM5OCv)
zo%nH+awv~5n_`xS!RPmex(PCs(%%10oi%TK824t8Uz=W(effpARU(UW^+YV{Rpxdq
z+xGUQUoE??P2~31yG5fWPgy1!mF6!n&8E`Wt3^7UZ=PG-8z*HibFDljy*Iz6<f(1Q
zzC1bef5b|Sm5<kymWjQ8z9~LBw6%4TS%&V?-bLTP{!O{-QhUvkVb`0?Sns6gN4Ztk
z{4!~cXyF%@ez<N|uC$iiFGerv+m6#$Y<S*yAe;Nd!<}^&eXBRUxTGo>)Ai2AWbQpz
zL4o^`OAXeo;#GQf)p+Jq#^<^34puw}nduXs{7t>P*dkzM=EntTcdZ_)7Hz3G<n>%Y
z%*8Lk?VabeYpP!+#~Ez*OIe^CHQ_YV<b5ya9uJ=CE*7ytsfyLd;i^&9TcxTyd0X6-
z>N~7{_3;!-+Ma1X+^os<##r>?Y2}?0{zN`Kvi#KVMaOHedlxKq<$kf`q~@-jcb2dJ
z$2~`MPU4NObv1?2A{TYPw7sh}Ja)YKNBi~U+dta4g_@Oh(p97yj~?gmJR-*`**#<V
z%P5_)p3Tid4;oxnpFTI+`$6m3G=clPXXm#|&0QJ0g7IL%CG!e@_aAl((hgl>di&nN
zlI@qQ_VEQqB@EoZoA?$VKV$sOe!}OZQ1N9u8YG{4zB<LQ*?V@Wwdp?3hEE+?GcW9H
zwsg9}-}u@}M>f5oye(K;L!bXlky^p=SqcirW3zHC+;4guw)~fU+Va<7UZv9le@@>1
z_juy=z1`2|mhRkaJu7<p@3e2x21mu`vrJ$5PNnl(qa$1H+(6}vqDDJy*1QO^TDoYu
zz^$uH9L14`+r=HEwmf<7|8LF7pa1Jm%x6FRQ1WN+#2xFm_b)mB)MxFbkL^?J<Ym%4
ze}zo=tIjpw_?-Bg4T(pV);SyrIiz<uM7eI;^D`f}#ywB}!|_&-^V-a(?2HZBJ2DQN
zoO{o>QcSzP?40BANh#|z^CB*}Hl0;jXe5@is`Yu~K`}k?9EDDS3EQKVoDg<iCmP5X
zxhRBtf7)mLa})aWO6Ia0*lK#pMBCA~sNTv|sZ_B^wDs$|1OGc&Z+(b=tnnhsQ00_J
zm4eOM2TztYPgc3Iq)Yxv#bIspyS!!3E=Eo?+FKyBwxBEBcLSenvgC}4sfMcVi#8vW
zJnhTXV=5CBRFdQsnY5FiZJp%lqteD9%<KDJetRA~LAfUU;~R}l4V=<4!5t44y;=69
zGens!LRJ3pzgJrC?!WyMRT6o8!qSb+$G<n~C`<bo7H-wotmQgpdhPttQ>@G%+XM7s
ze7J71r|}$HJ@0}!%jLjbK1Qk2jlaywTUL@e>A?A)@(cDRUl*zL`_C%7KRC0<sViKj
zW!~%+LbrqK_>ZJ-%>HXSN9o;%4knGMXHBaf*H66iF->Oj7gc}W6_xipLQg*}vWruG
z9?YD&cIJ{ZtHd&bjV<*fSzeuwIhQ}_%c=$IGmFJfSRP9aOWtdGn_Hh@R%*`{4bD^T
zKO9Sg_Ox*<bF`iv{At%pxo$~))!NTY*Uc{f&^9PJT+miEX=1|sRqZSXTVx;2<6%E2
znb$GnZn1Dq>5?h)Y%WYJYkk*N_U)^R=;QBBhBsJl<Y=b(dmjqkmVPv6>k<~jsiIT4
z`L>>1D0|x8^0?b&^*OzDo#JOTda@fkq%3=9U0x7+>vF4&F8lXc%?9ByQIi~uIayCs
zZrU)*SV((KZNw&t`AXeaB+C3RKK0U=8QgQ!$7V}LPS}fn);a5#{LZl4nI+PDS3g{8
zZb{~jc&qNbOZw+N+_<o(rf=1)?f==XsTh2{6i^-aAotX!8<qbyZ_#@G$ZLIj8v8eu
z!~;j$<_Uh0t*j_I!gWAGW4VC_^R$0D+uz5e#`qrJot=D}ad+8|8&Bu5pZOO0&42w~
z?~U1t*L^zw1qtf^lvSVo>XhTkP5lvGX}7&}`hV@ojXIcPJ@x6cc*b-5s`*W7%&U?f
zoOHYXMB}5^mfiMz+E<okPO&?odTiZUxi?H#cV*f+2rw?sc$pM?$l!6&Ea{`!x9WCI
zvOVu|QgZdV-Db~Ie6uCX{r5_T-7?&;(Oc)z*Q8zd4mYTL*ga+L=4;)L4$CWfO1+tX
zu9AQK&wr`A>?Gn=nEy=hDnD?dzjtZt5`#T9AATAXXU+Ij<0zQIu=92FA?fRCcji{y
zGO>4_{U%w`E1EAZ=+}gm@)0uK+fTiA<gJa%%k&kLno~Y?!<F4lcNgxnt$P{p^qchN
zFqhdmQkuWN6<-l_yqU?hY1@n`FVBB>OMa2uUVDu(H+cQTvyY3vN*Q0yi&$?sS+Kc^
zH&^Cf?y;TWhv%@dO2<~IoKSm{a<-_eXrHt~vF~ml(-nGO&+b}u_j#WCo;$agcP~j^
zKRxqW%)VK><Nof=Oz-wgTFU3@S+~P5_L|EZ-cwVj_zIt2v;M<r{)2K?&P|i`(mp=-
z)-m2m1<|wCe4fi^vSoc5+p*1&YIo!WR<=De{VHRsmZLZA{{Fg&dQt6rqxknH{)!I~
z4461^>HZMk{ilLIAM#-NGJV>%ztPQ^LHF0cxz80L=XUIYZW*(B+8(!@V^xgrBFzrw
zhvl}HO8&g~(JZLiwEV~IIh*emn1`)CroI1`oqY8x%X?oAe%U|WVhh*m-J3VxaN4KE
z`uWuApI^(?dL7*+xxvH7e?7nYM4#!}60a<-e_V6-!KRxV)|5T*6BgH;_}<7@rlm*S
zc+sYH=kmAipLXh4O8@M<$W146cZ91QjGA_D*38*1P4Y4?<>qJ{zsj<1@6P5ucic{I
z<k3>y|N24tDr>7F>%z`td^k5JM0M`<c~2idK6bt~UAsireb0vDiN;5_Ddeot{8Rew
zW6SnRo0QZSH)8oVNxXl$*LPOxx6~3<#%OinZ#=Q<AKW;rw#hQ9=5|eyo?w`X>eA;N
zTfg?iOgUMtHfhD|A70-kc)r>FUs1N}#>Dq*rwiNWO<<aGthGwE`?fE8%g3WnUpB~=
zTTFhPIPs%NE&I2yyCLblwHAJQw#;*^3nHA?l|8!{njBTt_%3;6PwkA13s2S=W|^{o
zR;g#&ovD-X&gEC2pL_XviMdz4&D-ejm~>->@2;+h#*FVz)fRpWTUB+N|K2R7><vm&
zvXf;jc~AW{I?pC<@4N2UB2HaX$wR+lXTQ&1(4|r*d*Q>PMOJCMUY&lB>-B!JYWsEZ
zz3<jZ9LnE!c<bYpA*pWzKmN6oz0=!l{HtTC$?Wc)4NvcX-otxb-)B|va_#MF9+!*8
zvWW+qEz{N9nUi;?S#%Tou3$5nTd!*`9eQoNMlWs;zuDc-OF|aC_?oo-Qc^ApTZ2yO
z#vo69jhurKWp9JnJa^gcezR)lrI*(#CZt{CdmlafP~U@)`=_s@CrL~?#P9gAIN>($
zx}xAyGQX;q9`KP%ddw9g7~r#Sy21_#-gtg{ua}{#ExzuF_;~Dv;9ft8DIJ9!i8{@F
zH_9fge^+{pvo!4Kaq~b2%W$_(H(#5%Z>X82$9bJ?>zOkq*Iz%M^l{F=YxlUn_uMsU
zJuYSuTFx53Z?4waPV@S!mhR<!SEFCA*t}q=caGcqE7`AS<!>`D3^dj=_|^0}Z=-Pr
z=Pq3nmN^IB&)-te8*#IYF;jETi&H1r6?EUM%8zl6s`%`1CHRukk`nX1f^R!^gnYbv
z|7Y6D{P^nU(rcCO|4d7ot3NSXYTe$GYaJJ`bws{z7vkx@v1YL}vqbz_@0BH2JU1AN
zt0^(+|B0AT^<lO9fBwg|jO#I%Y(rLIgI8%Anp#>SmTX&qR%e66ZEW;?QuESFG87Cg
zElh|xO8jbU^k$Xgfnql6L<Jg|IUc0`F=Mt~yRLfbLH=om5iJL|o7QcRZQP>0{<u|C
z?3$@Mb+$80U!GdC?$tcY>ayG>1G)Kcy-P#Go=u+_pH^EoL%ndu$N!(|?f?F`Xl-BG
z{(OJEiTpp=f1m$cOz(Hu^I*dN*DsH^m(PFT`b}V2!qThl>ia9Fyc1(jexmZ^prmnS
zeZ{Abi{s_4zU29@%#qkv_w(m#_5UAVtZ6>peg2Y<V@pBBCmy~3DzV1WwKavamM=)N
z?ta|9eDkKPSq~Nc{nHI2vs-NU$*=#asIfy#Z-%;Vzy3!($)@ke?;n;|f4jB&yS4Gz
zTMy0`{ZC)Mc}~;g>3%;{3^kYb@3)%wB*kaLBaPRqPxzN_nrv{a`|*0eg4rJ@7ti9)
zmONuD(==zx*5Bv9-hE!zSbp<n_8gU`hgAL=vEP%mx1Xz9)3kNgzdbdTlagjNUn>-v
z(*AMAzs0ZQ>!sV@&J8_%MzXMG-yW^=3q$SnCrxmgx?k%DgHglhmuu8B54|b8*gC@@
zq3*|vllK3N_-*yR-c{9a2wY_2e)xXjC6znx?tDD?(#Ah;-qLT!<>#_=^zl9WalfLG
z<=}+o*4jw>rG8h%PydOxd#M*D={w<g{``VF@Bf5&omY`_dz#L8DO-JY`phNYkE@$T
zCc1ch?<m+{!1t8*-Xpd83zy$Kzqx#My2P=Zt-j))WmDBEyc+HveD{N|&+LH63>yvA
zn+u+KKJ=S)`D(stxOuhMvF7*$b@BTm`GTiQ9_Ze$|MWt=-_F{DlS!!DqUTt%+6-o%
zR|(B+`QKNV+^c<m(fa-0=MTHj$JhOMF*jc3$l~(4hX3#H%GdM%d%d^bcF)%rzu(K&
z6)iSu{C?mC|265F=nypn8_v^j`~FX{J3HlMcKC7ML+3X699eJY{*cq_@buE<hy1@O
zh@5hn_hOgp?(^Z3!w<gx^k@J5x;?W^_Ex38`B5ykEoQFksqgY{ru*AmWPILgT%~qe
z&2g>mi%nZ6$6e#y*7D%>x1T2$xP4vsT~x}gS;+2w`m5RM=F*3JH{Ik}w*T%d&*?eR
zYmPC<yB+^vm?g)#%llcbKJVS{3-&(V{7{K^mebPN`wq;Wa{X8%pP0hBAgfQu*UdP$
zV*b-c+jjk$bheN?cg_5x_dGwp{kfCc(F50%Z?Q(^?u?qE`7>FHJMNb3>Bxvb0T*V<
zO`Y|E-)+^*^*w!;7`e*hzPyP)*yH)*#lDUy`F5MD^CFg71%HoJm0bSoz`VoX_Xv2}
zHols=`PAnH`IC0;cRtKsY;e1b+vGm0Q*z-t$L=N8p?~;hOnaAYa%xg>`{yFtP=})m
zKP<E6Es9*jCdxjGb&dX`eb<*q%IxuzUsLG0_Rnq4#~0ST>XLpSH#Kc$N8M_+TjpQG
zo=G$CJTNU@u<L4;6>Cx1tHk9C@`aziS<I(ztZ>@w$i%7qsq!(~-#f3kJTvRn?-f^`
zp1htBlKtgv^;NB%_f~Iv^J}4-s`0i<NyYicW)%HQ3-P$s*61m&-CFYJ`Q^#?ZLOFK
z*aEw?0(JcY{?)v7;dh_5{{DeUXKNzwoaQW9ujcuCgSn^HxpR(b9=9A974`iuv!2Fs
zUGdcBPoGMiPA+)FC8OiBxi&-R<_Y#Q)mIi6sMi@5^&Wh*_{-$ZQ_pzXUZ1_qT)Egb
z<3L_y_+oY6gUdYC9v&1cOA!+33E0${yM}3gcEr>j%rpD$OlFv&@P%haN%7(f`;HYo
z-Ts-$UibA6vpm-WLB?B6gEI2+d#i<avz^hMeM3|$Z;$`%DKFQ4D>L1?-uw6Sn<58&
zrp?Oxcwn=oKxk*4@%)Rv`#HYot!fT8e4g*(5#AIaR?HxL?7Z%-tIq@;T4_9b(I9^>
zVDbJFJzut8^jKfQq4n)rqO7$?))R%skJCSVlyF)#?UA@T|E$YL3+A#;&|I=?;!1ym
zFRU4tW%oDLn{VJb^}HhX&-d@s>-!t+Z&(>FVEa`&i<h%zVsz04zix-*jHh2ETB7y#
z)-ac7pIi0T<#&(Rm-YI7LOCKcjHU8c8}6`{`Nv~@<MQlVCt|yF_Qj`fVAJ$|!8gyf
zX@X_Z^9PrXFW=1k`oXk-qTg%!9mQ%k_+4yxcK7;efk#rJ64ibSz2z2aaQ7MdgerF`
z9n0U!dBpno!y6K&CBOM6d|^yCNd0g&OD4jM?E~+bI{OW4Uib?|EMsOC3@K7BiM{th
zx`1u3@i95i2VYbtt47Q{xx(Rkzt4a7(#DhVlS2+qs+qcYkKD1ZO8do*O^sVURnF#X
zX6*jiEK7Jj_b-sn{JBp>eO7M2o6ohb8ygf(l|N)&GGpnzUj9QX7M+UBT;_Uz&qfEf
z8)}!?j5<05Iag?<uq+gp{jaxfLwHp8y6Z12*Q6#{ISGjEoqYSyQiab_bC_lvS$Jmp
z{JYzmc#liO2s6mt)^&V)t;DLDw<-7Rq^loXRrObj-1swj(>{**EKj{%rvKR^@UV{W
z`@&5hp8d%D`?^&lVpH&|_{EEa)hZVmEKK|8@^S91rX6QjnaX*m@!h$i+1KwAe{aLV
zFH2i$L}&gxc&&BihTNpL%r|N+nm0>nEYdHyv(Eh8m-ne{%?pfuCUvK5m>)9PG41R2
zi~Bew`{KWU>UbJy@zSExs$pf^6}6fh`2{U(>6tSsy^UXA+r0J3h67^elG~m<nXa$4
zbIbXU-Ks0<{fk%p{d4_xY2*BG=C7N&C2z65d2;ofR86qC^{*E3uio=FrYdp^9Oth3
zK50Ws(|n$*Q@mfVnJj3tUirqUKZUOuqAy#P-1+;__Rg$RXQFhCBIGVaYxM>`Ppw~h
zU;^7|m*d_`vs@gzPqqfM&+-kv)pgRUc2>(h$=hdwW4Ly`Jh5r=)?>Dc2iO~18J6rl
z^Yiqs8{(TpRw$WPcpdv*9uUHN%9p7i^^a~)(>$KsR<V!$DQzdRmXx|qy&(~)Tgqae
zV)^;#C9OX5^Htvhzt=i!PpfKBadKE!!|-C}JW-YC^E}~EH5Y}iy!)rw(mu2C==;Y(
z(yO=H{mbawFIyjWy=BJfL&*jWw&%D~qWHd9&3wPaGhk)iEmo($vGH3kx9?s0bkQo4
zsF?wFM;kso@efp}w?A#dm#W#?VDoL=%~OSz9973T*_J-sBlYfzQ@X;cJ^$Bj-FdaI
z%kBHRbK92w3%<MNwQS?=t$xy{?CQEwCU=(bnq*gP(Buqk+p}Q*trXLf&rYpBdiBNY
zr*^)Nm<~Itxg4;49{BDV*UhG9g}lu_AM&*6tx%S+;<^0k^<m+<?>w6V|9`XicWKdl
z`w7MDtgq~NM2a6tpVgUU+Y|6{wfTIX&mYZ?X67C4H|=WJeaB;mkl5qhotiA$CN4a@
z%ewQx{jE3j6TVE_u_O8i@83WD7cCC>ZJT7YP0ae)ZQ03Bp1$-v<+*s$f8DsweLFKE
zVmd^0?(DzDzrkUJ{G(j0*)lAlW|J0d5xnRlBAq#Nm-0QSo94R(_zmZ<Wrl99knnCy
zzRrBwUu^BY`-iJ*-i9q|)mr{g(e#u4jO<;HMArV%uKMb};?Q!*JI765FP)rOaPX?n
z;b?=%v~3$YlecYpaeU{Kg})Z9=ilU!+Nfg2&XvOvHq-5Y>6Pfe+4aWDI9^XUd$}h3
zX78NyhM!Hm><=G)*CEv7aP-8+ex^e@Ulm-gI}2ZJ+3x4e?DFxc#|Eu^dXGPtp0Rs$
zHNcdA0)HI$uV=M<OF38dfB*i}t4%9-#_o_+(ybgeGir{mJ~tzIj%{dq{=*2yYx)KT
ztF+U4LK$L{zQrz<<(O_G`cmg-x|`lsu_Kau&Z*Zj#!dM0Msn3X!3lQS(}WW~GG9G#
zb4eB36DDJ3p>Gm4F$*^x6;E7s%vx;W?mKrMUQIN*6%gaUCDZ;>*~@Mjeq~dGti7j8
zW1WSnkL`bCbAAS&?Z0r&J%QF!mpiy!TJh;*`^$3%%+J%$2vqK8+-s9I=}>b{cno*b
z`VY&QZJ$0-)9LQEytVFB^@e>#4;Jq`!IJtx&t9WX?WV+$e}5O=+W)&TW7CtG*Fo_w
zo0yrdu4##@7M_)R->UovpRGH8^JAf<4paVC$TP;Z`b#n1T^+EQ<-<{>cJoDPb3*i8
z=3k!n`ObAgzuL5{g1M2RkzunctIT6mmvp~Y{c}hu^lq;A{PRJ!3+@=cJ@&Ws*DAi^
zJ)h2&C%sK)3@8axJgR4yDrNus`Ht-eqRVRa9gcVy&tI&e+dYTxP1vGIcbIjqX#7%p
zqWQ(O?6{oQY+?6wlU1)PH)_8UGTvY5cUGZa@Woc)rgVn-OV_`!vnyotHy%kk*;m=e
z)Dp_G@1vMQp-cRXKU1r2yX>yLz*H*d<gjG@gw%yE^Arx<I4b*9IIC$@QgzYyGKTM$
zwoVs3wc|ytR99-pl1W^Wch1U9OOp#Zu;sGk0oVHtqDLp~-OKfJ(bA>UbR=C3yvq&0
z>g>7JA?Of!fLVq$a7C+aPJnsaZdujn<$Q9j>(({btABX-I?rjN-)E~`_h&3UZXrFR
zi2t~MRkx3mTk>Jf;PuT?5+`$>w7zt0w~IY%z|U8BL@&svU`Cf`#)KoM-3u+&ZHQje
zyut5~MRNsfbH}^ZzMq;E5(%-FH$J|5)J&}_;!AJLV;yeuo4rv>Ef_Z}jq@+a7q~F#
z#EXX?btKaJVjr%TIN#(y;cGtgq5jAjZOt|xBC{+Dtq!f5Timj5$NRUREpFX(-=cr1
zH}EZw$NNcl+>@^5AC)nd+GLmM<HlSpyL89KqNxeDSoSGzWV!J7!0}t$LSG{J{(6hQ
z-FR!tRaarn`dxg!ie_2L!D}C`oNm^*vgdSr<E9M0Z6#p`elxNEHqq!vZ8s?Qb=$Fe
z$v&l{m0z2@=T6jXsGqp{_nw_{b&c&p0dvk@;^kOry&^^Q-P0w8DJ|}on*Ba}=qeKS
zy1!QCnBUEo#WH@2H*9*k;KAZVwm4<SYYBH>Gj`i-^;>gTB;PQuES=$*b{*ei{rbu0
z9hi%zH%ZUDDP37zl(ccv7dh9H?HjZLZ<?OJn!A_r82{Y2#_lnRTHKYgtFJ2u?p`==
z(}%jm`&wQ(e0uAyA6|RAp_<!kY2>ygo?l~B!}Ba^%|+8WW|hXBopSamx7dTizPM$t
zT0=L49p5xFyK`cdPtTO1ATuN7#UH!+m3>-HPY=y5lVuIj_~FfQ_4Izz5Z8Ii$D5M4
zcm03o6!5@Zb3+5yyXIBL?U$G@Qt!X{Nycn-VV}?Pn8Pa?n^&r<@_&x%jd^<LTc^(t
z-oM*h=RK|nRpQdo4cowBY_9f5Tz$?wnYyUQAwn}Aw#XVE-jm5yx%s5Yq?<9DVy0)U
z+8@{H5@WH%rEzIVay)y8mx|84hFSVD;tekk7RhpHb+)RnDC(c{W5=@36(39`42;Th
z&XhLf&(E}OuzpwirD9EN@V)Y-iA8gLW{MZ-ek|No)4=^*LdI*G_~F(9t~O)uUpkLu
z*UGBiIm&C}mF*Xv<+8q``J$|vRPov3V@21d%)M^#PUb-U<1cj#b1K$Of1SBXc7Ea8
zj+au=#@+QXdz`*qFOmK<=RiLD|2_fFAIXLvHQPfb{!8}u3tOG2q&n%4>EnM(?70pq
zIjWjy`F>G#G+Fgd<6+AbtGnu{xdtHx6IbrAIa~fRF-$wPaH-_S+G}@ML|2FX_Ia?)
z)rIS)W|wDBraVK_Jh#4o3y!2r_bfbF!TowsQP_iy?gj0E%&n{(Vc(UDY^x-12K&$S
z@L+KD+v+&q(kE-r>*O1`lb_ruRp6S>!87CPH!rWpO+psQTSBG6mwY-nm)&rBwGID6
z&&tzkoO`A$nr6VH*LHx{;n4%<N6}G<r#thvbUCs(?B2$yeCkX|jB1)xP|)qk=_|P!
z7Wy|Ff5{pe)3(O1^EdaOr`H3*Cnbklta~uSt)_LFfv4hgj^=)sr6RJMJFB*vaUBtQ
zu&f~BL+TFK>0%cjmD#e?s8n6M#K4j=mACnbuAs{~rf0WhP1_`;il#}&7W?SetW~YM
z<fHs>O6lPTcN?U1RIOfU-sF`#yW~rQYRyai#GeYXZ446gx(gpSn6cJX^SEF9-h0M<
zmWFS*<wHiDsVl#{-?i>;n$Q2+yjIKD75is0b?@%FW-g`vajxjkx~@$Qw|97_n_gW1
zB>Mlg(%@Uif3bKSNvyC>pS)PTZHnu;AO-%_$txblTS<MIJ*mM{mD%6)(5?o>J)Qj*
zlw$(bj$dkiEhcs&_NB_TFSm`hvfr|jIn{X2|KgKZ53Vk_<o?~$V_$q*b6`>l;|<;0
zg?E>oin)IFzl7-Q?o2_czqeB|OLj)oFilB+_^R5^VSa0C<atqM?&_Hmmd{ESd^<Mf
z@^p3P@7mT*_9^E#)Tr4oJh{jt=P>thl2+5LhG{k1n10ROEP3XdR@8xC5?3DZ+~kli
z)4hKFhQjG}%F;Q9vJ(>%4!mD@kLBz#*|iI1+&g+V>EPLIQ})gJq?!IO@qV)LRxW=p
zfu&3#@6D_JCraFGTfOp{WrFj{YZ7-1`&Jsi5--TAV>`3hhS6=_ns~-{t2QaGcgl%;
zpxwlO=8TK<L~H)JkuSFWpX9Ht5@C8LD<sI{>?}6lr^iaWc3wJvrpO`a;nceIm%e51
zUKnwfH_>!$i*NIX^!D$(4E~e2_WwV)y4Se4JpW<Q1oOUSF)nTW_kUj#nz?Uh*_VFf
zZXssQ1hvZj(@U+@;*5T(&0<e|Jgw|hSn}d!H4oO_kz&iay^T?*qcQEWsS`sEdzi&q
ziQTEY)4e0Pu6=ZWw?{SI`PyIQ*EV^#eyOTEG<{co7Z@t=_sD^piYl8Iaf-ZG<v5eq
z)F9Q9?bs2YJR$9M`>W0Q?|-|s_pY$K{qf%cE}vVk-i6M)TlVO$OuXwZuACEl8@_$M
z))y0fE>h}d9!qRq+YOPPihu^Ef-5qT-a)2!LY}-kRDEyVdKIqe4Kvd%@AIxmkx<^K
zxH9&f(wjpaQ?+k7^>Ihm`*=wT?_9_)EfN~meCb2(4qj{hnFeg~dQ)ZIOnGbSc=3|m
z%<9mI{YU425I>#V*<7Z$VWYd+-`Zai>t!bL71i$#YA@!T_$~W*Ojz9f>nl&}(RwEN
z-HfxhP|YJpbAj8c7l%&IPjW0&`?=fYc2?HbOS$D+wEi9n)b254JMep>nb4=0$+^K#
z{;gR%e~(07m!CHKmRsSB9S05`i<>K}&h%FDNQ$-P>TPD*Dmu9{a##Jc&;Pn@^Ga!{
z>T}_Tm+{C}uBm@pJXw`(h4k+2vGYvBIrg6aB^z94u6woIAg$+~b;DHGb%yIY=iT`D
zTy|I9>@@dYv2Q=WZ1;GUYJKC0&h?TV#%rZZWF}T!HF)Y<GC79(vi8^ecbuQhz4yW8
zb!?I8mic${gcd3uaoe?Tf#cgZE4<^>t$Z}!R__QuKI62Xv`GVF>ylvgvgsBbu@YP3
zKKqDOeVunE^{l7=v+FNg8~3w1xSfb?eHGOH>vh4?GY&86oLwecU7l$2bRGBOCf;1>
zM{o8`Iag!+URy@z+X{P*l&|O3PtH#Ln0sTf%eJ|EoSvB?8_x1J*T(+;?W+4d#<IwJ
zzrO5>lvj!GE5pm?*Ddw*n<>a@R9&)IGeB)`+3I&~F)_BQH7ne%-Ay)iy)$*^EBTWA
z*UQYs+aKJBnDs`L=WUdS>hs!V_3J%m&pmd~sr<zymbG#%W+KZETx2hKy_##L$}V$G
zM&T&g!fBOXwS?|8=VY?Z+`T)UIjZAs+U;zS($>G0ms2E`dpr8upM0$$Rw(|m^P={z
zM2*NZM~c2`ulyz*ptCLYoJLsm=Jb{#->BQiq<ob29NxOoPgmIYa-i&%ymz-sO#N2f
z3vSaFDoSmz@2O&6{&3Ds-|MZre!YFg_~=nmc14=v(o2@zNBs-W^#rcAj1HGO;yHQC
z+OOKrX0!DM+|>Q9{Oq1cOSJR7G*j+BiQJ#lcg*_0mc7!Gt<_&=)0G>1j~>|cy(*Pc
zY?9`C;I!WRU6r`1=IghMayuiY-tT$v+raYDoA0q7X9myAS}s<y{J+`mr?+&MEYir$
zTRds!j{jzd9?xugeEWr+(Yf;ncDbE+uP?s+C`U<C#oI<XRo4wF>enI)uP(_@`?2Qk
z;<bnO-F>~oclTMrIAIsN7qM&Bx3=f8@ca5rJ8(dKrS#<6nrjZvXE}3a-EQ9gFgDxP
zz})!t8RD{`jj;-u#pX`TapH_-j7MZHZ{D1EM6RZx^|#j<<$rbagkv}LIGl7??|Q(v
z*`Y=BL1b?NXKcVW4<{SHB^g<2LD#f@%Qt*s>W|es`fkCk6o)-iTDDl+&1ly1E69;K
zysw>4p!eJLn~NQT+`q)lO=U_Bx+m~A(v>N%>tBeeql8-RFY}q@*SM8gciD&<Dk;e?
zmFukPTpwv1_f4Xn+oa=O{N_B3$>t$!D(ltFe>)`_&UyA_(%v0+!kj+2@x*OBwQz~<
z_5C|uet7KTb?$S>*##W(H`8ZCN|f#F*!u1tqZZ>Q-xbs6biJ<7Wc@U4>%Ckp!^bD5
zR(a;C&Wk*idr^nI@}v67YxlahC70ENy_|9B6zgNt<I5&U<h}0ZSjGKm%B22TrqR0d
z`isnjs!s-QTfC)H(mrd_-G#@pgJqkaY?s{Y-kmRcGB<PSjXxEOUAw*&ti8${y*=oc
z#vJXX@h`$YM#crWR^R`->H1-pt0qNOdaf+D=a-6q{&xLrm8HZ&IkCx(ZIfylU+g-a
zC$M?1(MxB8*B-&^`D?7CIhm%dx+6NzeYJrh(`!z(n?lBSt}d*7@Xq?@nx~hqv6lxW
z{MP+)<iLCRkIg*V+w#+OzpPXioyDwBaOvAw#m^gJUnkx-IlJJD$h8gguIKchVcQb*
z#q#pk{uJZ4TPArqKbR}I#q;VTZvE9?5<8~cyJ5<BuXU=i(xi6BZHYhcmd$3f$)Bck
z?Xl12snaT$il<Jl{JD7fiQt1Si{DS&X!<H5=b7dmkpn4VHh<T=`&#-p;>sD_-IYsU
zzke6x9k%qSQB(upbSJS0BctA(D}FBib-Pzj&*zKRrW~HT8E4O3Q{TSASG#xekK>o5
ze0JKmg&b^HTgMzUb#lR`sj9z(YsJ;VBP^O?ertvQ-DA=u6mX^ZQc&%ZJ95_I%7Sx~
zpHI8BMf%*_-F9<NDRHl#;#Zri)70nqGX3QQgAN(xYg&)g%94$)M}4<8ydm@XW$TQr
zx=!i&M!avPy=GeYI6Ox7s8sZCHGwlf`mXrgm1loqyl48qO{=%0SBvCo1O`i;TN-#d
z@$Au=cS{~GU;XX!M^E#*Us}In?XA~sZEU<>ytdu({YS%s*^CEQonLoT;OT}lJMTBV
z_bPLLv0`y)_KX$%r#g?!T~L{B^kfp#%G3XCO-vY`{(fFPZ9<NG@$?;gp0Q_YtxvKS
zT75Zk&wB0fb&01Va~|YP4>sw3yYcqvYYBI*y^VOek<UIk`ecIZQ$?{OOOCz_p4jTM
zoawWMM$^ntku9d{?ku^cvs2mZ%hespy-DZTwUVT#R5itF+ss~T|J_1qr=^7TyB{|-
zw<n*=PO<go&^&gLVQ2So$yo;N*JlYei9h_@+pq93+3ehr<;AsqW)<FszkYBX*I4#k
z|Kl-HpM^zxo#$qT+&$a-zt}7M?YcGoc8{K&dUp4EeB|2Pn2Xo<ZIVi!w`u>Tvwt2;
zOfft*%lfHl{M8uSA9~tfr6)%8&fRCOTBZ`Hra5Kakv?TjpLJ&Q@1J;(J?+NYK<QO$
z**LYkZ!TMUq%b_bedE4!%X8bNZ0PC#ooMp&)O9ya)hE3tHB_bj4a?4$Zwp>EpYKUX
z#01OJ$@68e*j7z?HiK(_MyAv4j~kW$pD^9{$f!W<b+2I350+cn-N)A}F?z0i&Ajc9
zQi`0?`mOs{xEU-<{%AZu`GNj7hFe_c+_%s9+3kBmI=ocQ-9RWi_bO+q=$YI}sW;Y~
zebx5lE?dp)8^v|f-%=%?=x+H^ae<Bd_YphED6Ng%8eXBDo$`JEr)@UxyLy^`viZvg
zjc#T||F1e$Ei~aRN_<)RGUI6VbBSrU>W;JSd?H^Uzy0`zBRiv>Uk-Er?`-$+^ptap
zcWmEySMX5z>I0uDFO+STX)nsGJW-asN6r1e{%k+L%TZhV-broQ^E<;i>Fld%6^C?H
z8%_7^OsNXbiHO=;-#UMB>}mzJ-adgl*Y_N<Tennr(~Z0D7D!LN%2#DtyXMMw>(H(h
zrTxDB8|=0j9;snV$+6x$tI^eU-5gIV*7tup{SUG+XwEr1)%Slr+p(W3Zj1fy*>Qha
zN!XRmPfuB1x5~=fz2o`IprXlX``aZ?Wn6x8I7Q>Jq5*HBr04BZ?f)2l95hO*4b86F
zsdc=m@@>`go*tojTT(hx-MH>o3p+mYm*+n@&snR)zy0Ba%@svkGo^lX=XpIle5a$v
z^6nbnb2i?~-EJ*iv|cAyH6?%As}l;!x2vx_UKaJQ)#6{$$`92ikH>ue{^QEc*!ws5
zvX7em$oc!_;Oyq+Rg>)^yuVGgX}F>0mir+$NqqN*hCA!y%c{>-&r_?~^<-Y1@MQ06
z)8syXSp7cw+Llmf-41Eqe%`r{Id}h-K6<G)Nbm30DOI~pL{8!Q+tpd`;FlcbSEC+#
zvCBYx=X}=HI%+fb9N&3-cYyMToP^E0WmQs`jh(+cIWgC<S}Uiq?~yF~D5n>)CjR}s
z#Xl<^uj*YeJFVg&*NbOww;o7U6xO?5&%JwZ))qyEjoWn=2d&}dKCj+9U*LR`Os-e=
zQ<pb9z1nvzdGt4yx%@sClXd+4jfJ`E4|)0KCoH)Vsxh;ot^c!Q&ZaMCdW#RltUe^M
z_+!I9{?M+)ZhsC58oV?JP03yAxVS&Pot-=KK5Kuh<fKU(t!B>&m1fD0Jf}S6+T-{4
z?S-%D-^~d=e0#-2nJ@;fZNdVxJNG%gSh}<~M%5+p953T>wN$Y!reXetskM_&UwG0T
z-uLO&eU(oiSdNMunE!sZ&T*5=xeI@PySV!CPNU?v(^5m9>YTs2>0EQLpN#E^g!;(r
z%(^U@LlJr{9Dg|(uRop7&F_9o`&-^R`RUHQyV|brzVj&Tl~(W;%XeIhZG6{Ds7SDi
zY2;enPPtYr>*p`3x+&<__wCU~B?H5p)sH1_dp=Wi+vYZjl^3~m7o`_&3p3sBI^X~G
zl-OFoh?gBkHeq#pkIOhemRQqlZ*kLf^*6^ak0V}(*;rUG&zb+EII{VAa&?B#zqcR7
zw&c#LSZlOVdtuz#m?^y-w$B&bR^}_zPFg>8UDMmu9`d0_zaCq9zBKau=8Ov=+ZQy;
zu4Y|)yxE1#mBG6zC9nBL#U?Yil_d|fmi-s%-Rl?RxA@DCmsJ~F9{t{{{{Ga%Lz^XJ
zp1S`2cRXP8+S(P;dkcj_jSg!#8XHvGMsJ+Il{5V9#AT;_ZJDYXZgs>go9Xn`<KGPH
zjI$xl#cnGPU-sGKnVy)N*It*f^ysm&V?mqk%-+2+*|dgriPrwtZ=O1T?Rn8Y_0?>S
zMeASfjI-p3vB@dCP`Xp|im&hG{r6g~Us2HXUmSVpk|OV&rfj9amv_?r?^eEZJ-TF>
zu=H2W7u-8SYrRS;p5%Vj42hq2bj|XxhhJvyeA}pJHt&)NU!~QI^q1fEnDux>h2NHl
zy%}Ar>(`iSYv%m#hWyuENnGZY^FDMOzi}gEMuV`y_5?nAw{wYe=5$~Fq+qzpsP)W+
z<^R&tdelxcXz2Z!B(k;CBye?I+T|~`cMhlcGDw$hy_2=!&IR-5amB|9JB+is1D#d}
z>V048`uvvp%>KEj_eGueh}*SltIVZEI@=31LXKHaOU@PbS^vhn*>gkQgS-cGn7;%#
zHYFZ0ezJvksceGCvZ=eWdp>vH(ds{{bZhClu8C%w^&K3T_le8=Hkfr-vcKD5L0PoZ
z(`~`2t9ai$zjEutv7V_vl3pG<&VRnRHT2A!3;Qh<3q3Ro|J)X?6V{nv^^bX;DWlQr
zGauLcN8A*tu@93_Qk}bdYyWA%b6fP4&nG`w!xgw%KU(Fn_HT#JQ#@iX{_}15;Ph(x
z?$i~pjpuvlv78ory?fOho#o|xNi92H1pm6RQP9{d=H<I7HznPxRF|oW`ju|AjR?D*
zu`O`+d&Tb0Q8zPhJT>n+yX%(KDPPmjdaF&*Mv|dr(|!1|<Ig|jE88SKNpeY^<Ym=M
zkq<H>J|Ec_==1PJ(TVmg%tz+_lYLO4_jX#Y?T@0%C9h@)G+w&2dZI;}F27Nk;5zPa
zwoDh_{fhT36W3Rp%uttBCh{xccfphP2`hWeCp9~TUFc`}W1;YAnzh}z7t5_L+g_ix
zcsEDj<C8qGO)~86Pd83iHA;T5X#4lI4wkD<-7t$RSS@XTljB#e>f6;>>b|E%Wj?b8
z-<<o#ew)3-qnv+bfva2QxVG$hFM4Ng)H0F6%fC-@9h<51dt<h9`~}xlJ&Ui*DJf%C
za~3muo>d-uyu8lQ_B!L7TPJi6U7N`&aq?QuBKBiPA3K$KwatDa`1Ee1VE?DA1-8c;
zug(yQGPriw@%Ns6Urc71eLCk{<-20TS)a|q7k7J|+^nbQ{6%#C7XIJG?ynXcUT~9b
z`s<<#@&BV%iT(;q^V9b{&a}yW!k()C9SiO*s7P6mapV5MKBigXd_e&pUd{}uJz5fe
z&hUz|T<YVBL=n!FSuFEQX7AoC5F5B5etAc$*rbCeF8$eC&GKu<X}2>ak>(sc->PpJ
zy$y0s>lDyA{yWRstj+zbHLqT?^}k0?1l?zOP3C%R;<j`Ck;CuI8*Fti@6rC=v1fkX
zs-#P+>aH!1UzY4z?tfoN{6g6D8vSFzpT3B?-`AbXw{xmzbKxC}sZaNxyyv=x-OTjH
zz09zRud<hAW%*UP<9IR;Z8q4P|J&~Ms_*IUu1gM!>qaX%%}~}fc=lt-<8?<&b#<lQ
z+TYlDLptP&fz9InwLk7<iyq_<n)*)mWr#uW{o~oarXNn)N3GC1KL6^o#UYw;FVwtv
znM@vP^VTen(A&9aQ`}ibDZ8DD4ety}f4rP;t+F6{rmM|KHw%ZEi&c592{rpoZ!q(|
zkvvr+qAYpK^x9)r@5WyJmg6aPH8+5{H1(;`hbzJv$#bso>^9W8xIHgEW%0}J%|X>U
zL9fzl0&_pUpZ3-{E;_K%G3S_lLR|Wa?#RvCUik}tKCbk6?itQQjCTUxe$={gFnm_5
z_x<fV_m)Y8?60qOa5-%oeJ)|`rsiMMqtDo!zxiVKqubx*!j4aSa6Be#10yHnjvZb{
zgv;bw7#aO18$8+=+t=!lro2wRf9JAoDW@~fF%$?`c~6Yx7JKwM#^W&4dI_~KP5Y<=
zW^-FU&Rm)jRw<s*tD0JDwMOAxX|*f+i9NfMs-%JywR=CEdg^x3RO6ZZtz*AjUaa}k
z_VuJi&G}yuca0Xy9sAL8r{$rQwc=$?u5hCOSDBMn`?vj7Jp9efTk!DS(y$cGp!H2A
zZR)ejU#|(f_pG03*Q0G8^n7BCFRD+D-(+^RMNw=0M%jqs4Hwf*+K;#&Tkp@Nx%cb)
ztkf6R_pV5`l)cfJc&MfM-!c1s(T1|+vmbT&Ov+ST`mFGJtwQ1Kx{!j>B{%!N+x<St
zVt!(h`BLf5Oqc(^IBQ*>96V#Q=*Xgd%@@wEYDitMnA_T|J$C=b=Ev-^S}X49EQ|l4
zExzb!{1@rJ@f-P0s~ZS;i>uG+et7&w%N|*c370bq{~pvoB>9qEl<iC7(j94gm$beU
z@@J9$F86l#_mwM`tW9tJXrnHbn67r(_~nz#n^Ln9mz9WqJhfo+*K^(ri)8#4^B?#$
zYlZ5!O@FsLzF8*GH7{MTaT0HH0mDVxtImq&-__r}cTvi>B>eCe>%G#BnlTpkepcnS
zf#21g@Au5>6L|FF^mpSYvoo!;Hcg0sxPN&w$M2JE|9)NWe9NYNVwu-Dt#40LID<A_
z^_brJFHYrm)t)Dw6AZkVe)#R|6<Jua(b{G5S7Rx&rwUr;XSh6P+<B1HDre((EJtah
z)6SI(S9BJ)tY$efY5%&D!Dr?aY~HZwNz(G@q87v4tPIAq)(sc06u6w6dRgh>44o^+
zan;rChdaVDCPrGC%k0nLQS>Z)b>LO$E$0_Y%9J(F@$b2#xB6>so@1t=uiu}m?8pE3
zY2H*|ShjxM@3th%X_q&=@Q8iy@4r`0(Kq}3o#!p9%YMu`dG6tl$HHRq9;f39u5W*A
zQhV+Bj(~cD*XD0`<vFjuzfR{{#!PnIg?Y6#a%N`n^P6Y;)V+Caq&<z})Vqy-3(rUT
zC*{3h{kTR&{(AV!jFy)@_e;gO>N{VQZGXKWpz8QrGpmE_S_-kn)=j}560MRnx3)0J
ztGx?a@MN{h*UXwl8t<RIE?}CPEI55#{kEcAZeE{eG$&ok4PA1?VXM?{CNAUjRlK4{
zn~Qs;bY%Xv+4=7+{iIaqe5~7KBGWI&z1gLG5{}__GwykBtGc*i@4u_w``$lJVPgJX
zdqF|E+hvxa`_71q`&{?+ol0g%$f*2N^gvWU-f)$sSF^z`5&pAQ&t^Dq|0oa^&$wv5
zx<ab-$*fe5TWJrnHav*DRCT!HPRGXMwm<f*jxBSsHGHs;qdIWytLPPnYd6oj5}(Jr
z{EbhPB$s$}Mw6F0|78ikh*E}`MdyBG{P)s!o}*a*!N^qOgu36alMiopDgM{+`o-XJ
z`K;3voj{v~F=@*RukP7Uyx0Bap|ZPdPu?~OE2d~|JXpLa^vs`mkDXj@tVk^UQ1fwl
z!>c8MTCUqZX7o-7YMoqY<|p@W_th`rVIm6`8YETLm;_sVSGu@x3v>Ok$%1?9gDPCQ
zoGK5T``~r-@ZXY#r89%wjoaUcy_H^TVz;ZF(RiNK{+Nsi-)~bb9w?~(jhz2Qr?pGa
z@cQfz3;EUruiBu~TyO5TqT#>dNt4>X;`BM;)BfcwGvpI}8P4YX=}CON&gBm}p|OjK
z|20opAKGTO{C8>moGC}!dIJ}8=!E-d{{3=ZLz~fbMeLO3n0e;q^@?e2J9~I0f4VDN
z8+S+1zVb`G{NywGsTgM)L)N~67Q`AFSen2W${HCMfY!u<#1RW+jSLJ-iCZWexmk95
z;knI^y#6sgUS1r$XYxV2#ai|%eUEke9-mmVBxsVno~NhHGeOVD*-!ucEJ@B~=$&cV
zzGO{^*3;F8BMlg;e*b!XY<mAQPn%gE|3CU~_xn-v{@*8TfBjj_|IB@V%m4p>n)U4k
z{x!LOte;o=@rC@n2d>{PTCEL>`upN!x_ry-qspLVvdZaaw&?WFtND2FxO!<h|No6#
ziGJDtK9~Fd6P>3xbqW8@>)dy8<?nhMuT6@Tx2@#+{=albrkT~9ko^^{*MFU!cjxZ;
z$+Oc}PQTo}yE5wOF1^z)FYm5idqyR^wCb(=mNg%quP!?Hw0eirtCJGdRT|+nrRD3@
z_GY;M`?c)O*Q0YA3^RAmxi>|A|Gvo|W?b#MJhT3K_zx}Pvjwh|4mB?y`JMkewR^J`
zf3@Lq`#X1|EB0@dsu!KSm22Lw%6+dFp2^=6(k(i#bp7*GqYn)BI@bDD=e)l%rTgzc
zu)D`}v*llQyX>iMw=d^^WU{<DweLe{WrO@0p&*SIF-5hAzWCY?Px9^6E<d=xJk6TB
zW`3YSh4XT;WpRG5m0V`=C%-sz<h<#jN%<Z3Gfd7H&FudXu=&(wmi^}p6n>cO*L<@p
zDmB5t;;U20YmdBY9_5nLQ{uwx6!MpRVf@o|#N9HYJ^$04IePJjYY+LHnv_`+yzC?I
z&MiOXloNxlI_;A!pL!_$LVK)Uc_C}hoY1J2EuyO;|Ll2ls(5BW5o6uqHR?Z#Hcgeg
zvDat5>$aoMf3UEBUgJOi?#j$UjqoRlE(ZG=yqC^;@YsKUoA*+Nn@fd%$wuzkq%t?<
z=k<A=B72&ib6I+-zFHZ)q2}|h3$3rViLQJ3x@vd(QN{bAF8z1D6sS-0Jh$1Z_O<!e
z!<JTuKkL@;c3l2m-aTVVqq=Y1&UdYqCHgWx7hW|n{T8j;8T5M5>t6of2YjQ<c3;cy
zi@YpaDckly=G>gd{c8^{Js7+Gi`TLVHuKi-1g1Q>o~E&5a=76XfnEJg9p95K+iVS8
zUuUWRkhMGN<o@)XaVzIlNgat=clF4Az1xi($(7es*R)4$onF0Iea`mla~5e^Us^AH
zYo26ph?qspp7f{9C)iZI%PRY_w>7=<4`1NgeDVHl(PNCipM8&u`I2=>+VoF#&AP8y
z3U6DYB=$HN?DpyouX@R}_T>)y!{Lzv(|BW7h@Mc(nN=;2_>gDj?$h5>70Xz9GWLHq
zz7zM_WSe`XtJ<DRzN^E&+{%CNppww66Vg7V)Fx%=iBmPfb$|E#`K1);I^}IO?_`6+
z^E0kbJ#2sS*uP|B?zJ!Wz7k{k_H^fOu01BdHOi7@FRL$pdcCS>R#w8M9rXw5=l^{q
z<Xe$vGb>}#q}d7Kak-Pe$LaBh7#^DJuuRABxdEF%L+MrRLb*%A1?}-CwB^zlKa)MU
zA??qca4my+wYV-W`ECE0|Lttra%+d@5=l+RIT@^4)nd%0u00Q*#$4;&QFs2s?Spd;
zuCc!#*mwSh;hfIu3%jSpS*BjsS+gN5WW^_@`+L&PpAvPMD3twU@+pI3>;ivl`Oh~=
zMm%3Cy8F>|8<CY=$&-r?7wWk=tp9NK)|`Kq*1QKl9TeEV+qwM^>+Z?Rrip4A-S5B1
zZ}_k7-`j%OMjzty7HUgv|7>)+tWc4SX`}pm@1<{_`26nr!m{X7<@-s0BG<;<vtOYn
z@`m9{L)?_9RVV&APH9TGGbJkEsM)?r2RQ|q!?(Y&`jotL%EUXTQZmyY$Q3?1@_b=X
z$jQs@iRBw^ZMc?x=kIBr_wiC|!<^*vq6({{Z%o<zh>dx(p6ZP-<4+lf_Mcyn75~U~
z!=Zwg<)IY^?{0glan$oN_nNNg<B7MJCbN9@-@+@O^<XQX3-6!IMe*n7?m9U4sFmxJ
zjZ<wUXI}U>`9iAV>9*b3vFeO=r<Yz@xIr+n_(^X@jJA`3`s+I_avyXye7$uswf@vg
zj<_@X_ZsI-O5k`AeDd#fn<y*w=jS7*esEy5(ls<ZyZ7UPNcN|!|BW>}?$^mZ>{{Al
zvh}uS+lA=UTT0VdxlVNR-_YUZve$BW8Y=m3bI~%f?{P8yN8^)K%vWAHmE?4WGdo4?
zgJGPQ`SM=ZKSK5H1(Gq&0<stG%KQmbD-v1d@Z#Zi*7v!Sum5l94gUExaeC2VzDA))
zg<1dmbQA(NJzt=~l5tb~WA@iuuV1bRNG#oRQ1!Lb9XFxNLftW6TCRUq(Cj@jnb&;V
z;n{v1ECK$_$@!-rEXwfuU?UPU@sZxs?fe$0-Vz&K9zQGT<5{yL`^r(ax^0y;4J=Du
zgm{`BJ~n0c!^ZtToMl)fIzlgg45`b|&pUEHvn<6e?ved;_Md?V?b@%;w|?7vS-v@c
zIsZ{d!IKBtvvyPo+MJkv{|JZn$CYtYe>}B(cdN4NQroiFlr0;t-cz}zxc}3<Q*8pO
z?w75_lOAwQj6dwQHHkww#=^Gn-!_I0=kz<f^ST!sl_}PT3x4C1Vu=&Y$bVfXc8q<+
zW=HXtU;N9t|NYL&VwV*^*toCm)RFV7zcs3sipC4AaN5B4Ds5Buz23~#zOR}^e2>m=
z-JdNV!rig&+0!rL74|-VU#1&wYkFz?^IONe(@ULRT}+QEJ@mT%T1@QWUm9kwC+UZ!
zru2V2yW#a*$(`|@tkI7TmvUY|@WSIjL{Ew+*TRD>`hu%2y?uU6zdOtBXhOGyb)I1S
z`T!@nD4*yRM`y|82}y2PHb>y64zugl|EnE1t+lnfPy2KW-!pQYvigcqNkH%c=Q|Um
zp1y6~=ly>7?}C<&<i}4Pcf5R6>t0f4qTtr|DE|{*57)un#R3oi*Y<IFTDAT<?7HV%
zO@a5quMEOkAL<OeuDn*6o*JHU_(|3(>!KqquXjyVNfZoWeRntMtK<Imrm+0y-|wuh
zWYa&#GsT7NR_Z(<?avhtbJ;J5sp_oR_&~Y*eHvHII%x}woC0U_c$pbtO<dMdE-P!R
zdjD8C2po2AGI+a+RgM30s@aF#D_X?fG;3sSTJpT=&{oFsw6#H&S7%*|>`0JI7CWS)
z$<271S>@Q;TirkY-_hkemct{PbW^Bb`B9Sp{++`AoFW${ta)jFS${|JTgDqzGp;Uq
zc(Kd3``WppX9t#@wzFIszTtdJV$kM~f;>(Ux=sm~?L>0bbkgd+$ez>t;r8qrPk%cf
zZ^YN8ev#NBx02xKK!J{98+jrX*`<|L#7iW^CQm#0aB9KTh^&6STjebFhPerBeWKZ4
zD&HFQ%{J``U-Mq@!;%~OgR6?P)c?$8coQ7PKOz3`qloQ6%jfME*}l)M;>0IMX2VZ5
zDPF<{!`055Khjv=IdRcZnWDGfHJiD;i&I>#hR03#{=apX>AP?DR{btMa+h_nQPHBs
z=j=rjRkgp*F@FA}QNMXryzA;$dz<Y$j^8gaEM#6XXLrSHw)Dbx+Ap~U7tP5GdcV5i
zp4IN>Cyy>Ys%UL3kbjLO_^a%}{FN2q8=_PTavZ+g+bY|@Q2TG<&BhONx6fjHfBD6P
z#at&Fyl(xuth+<*X#bPOf9qeG-{W5WVE>BD1(Q#Ar`;>c&#Jw9A!~_FCxi6!Yxynp
z2mH4j<It+y!!y~T;j!P;>20bF4ik>GEx2=L*7OI#5)CoWZ~nMxG~>q+-|T=SLGQNu
zd4)F;cumwSuAW+}ed5HPGfK81vK1ZwpJ@4S;;DZ3uSGxRR6l=t);txRLoW?=rhniO
zs;=_6V*6(LmfONxlj9yNp1ndhDYVKk^860H?D>ZoSi5bnbFQ>K$9nPdo<EcBIyo&C
zxxVIcfI(mCjLL5t7p>i3ZQ_?;sTlNLZnjQ(#hSX~B25O<480_hjBk9XNn8COK=!6G
z*WKx<DJf3pbnbK6?z22{k)O5iynN2=r`|!Km%i0T1suKdE$89JM_*3LpOWZcnKxhj
zL9$5fb~8y~GsB5opTD~c*^8{YG41TRJF8t67fLK!=6$Zo-Irz831x?B^Lxs-8zU6^
zE=^VXcx>sciG9H$>a&-=`?EyteQQBW&}3Hg?woyUi*2e8JIETnzpO2^#MbZOdx_<V
z+xUN$x-cZ_9W6h5FLXtLDbwnG9TPWX79UOeI^|lJ(XJlR({3v&d1F?bwf?T7vwdpc
zy{F5y7>~K^I_2=G#r;={LCVUX8tqmdsTZXuwAOu=n=?~j=E6;V0fK_(pRY09G3BeA
zM^;e3%V(2G5-S$1k#;_^*=Eb4Z@*reMedDQzNy((yG~_mnOqQ$*6j9wU)ONUpJ+|#
zWt**@b56U0QQvCLno?&)hU@FDF(^k%KX`cW$n+mE))!2E-Fo|MXRMpdtvorV303{7
zB^pyD?cDpnZu>7IsvA_n6v+I%@P~KU17E=thVL3(WQC^A-94jB`clusOTpI|CdvB9
zecL2)cn+hPsdz^~{$_#cCFX@I|F4x``P6pe^4T|EIwS>tybxXeG^_a9uB%KwAGNgC
zOUbEqhp%l8*ENur*prnS^JP`yL;k9(d}fd4?9HmU5+l>}D8zbJ;?b8*bFW*UH|XZw
zUe^3P)OD-izO@UlZ7MHVvU;|O&ZX(8w)-VJ*7Kj1J?eOVZc}FQ#2-~5msi{oW3QKg
zYSX@BjYrrw>7y5#)U{X)m&iVQ_}psg)+=wb<W5?w+O%0&EAmg)HKmZskJmVrGoKrK
zb5(^3RG-;fsV_I>`FzE&*aI7b7e`!GDi66Uvij6^?vVLui|Qw=Y`Oc}-7?A`Nc7{8
znO`b5GE{Q}uP>Q;-!0~pOyq+(%*uZ9m2X}@c@uOyIG>wi@x!ybI2T7gUt4s^IVZ(h
zdhXvn0*NbD^Xj{N{n4V_ww;$jyf~}D<jmePuMdip)qK{N<fnL<e*yQTs9hJIE1!Iu
zIPucbpqD3ZGAl<JNAD@>D?4-cUU$mf9SueyGqdfSFD_v_nDgptpU^Gm=LQG$+2<S<
zP`Ry8+RZZk?v*>XYJ30L>=O32{oUz&j9IECpzN8xU;c)&^yZvh_kBZJ4;ycC*GihD
zymxco*8AE)7k4#@%12oGe0rVz*ZD~0($zxzy}>s$E&YW*O?8*vsbgO|jq6JAxr&dG
z>pdz>uOusOk3SW=)_>pZmx(vG-A&7m<h4nNb!HJ_l1VvnEn79QF5T09rf*oR)Xb@A
zbGQ6rG!ECDsbZ*hmhn4hQxm5Qlb3_ywa=wbjPza$e&((_+LEY$p5;Ezl9MqLLwzQ!
z7y5fk`Onm?!RgC)#U8Les=*sk&%Nu>Nm+|Xwws67H!rtN(VCd=6n{K;lDmxaq8`4f
zuPbG3SAQ(h=swn|R<3m_@XFFI{+X|P1ZFiPs094y$y4k;8}+vD_*(AH-wdi}@+H$N
zSMOo2F8|oOh5JUp`U;g<FH#j3^2~j~9rxfsvFZDbF{kRIVr~9N{_EPL-aeW4*PY#m
zO&?FcxY^}PWJA@AwH`wI!zcOpm=~U{(o{RLc$tnOM`G~ohnZ2j418RkFa7Rx*&f$f
zxXkOpZz);HjP$M3y7DzW1g>9_C_i1Xf$#RY?Bs2x8ZJw>?_u4j)uuQ3a-iJbucxjv
z-|Ev3+EK@BGG&5UeCvAA#a$<E|NPD3`8qe`!y;#gxu44_nKdF7&hv>W$+*LiQhS2$
z!AqyTEK6$|VrsPh_`F!~c$cO8Jfk^n`{t=GeZX!j&a}D2Y_GleBbBagiBI=CC7cW~
zEMe;KSa!+!gH^~JwMh=q-{YtDKVR`JKEU4j&AyJ-wDy||p8tN3qZM&ed&g}~&JM-)
zNCSSyV(ZGXV+Y;c{Iu7l`|Nlp^11Zsa*G#V0&XuYwvg^jzQ?eDIeBN$#+*YxG!KSL
z-(4ar;aqqk{ZY{2?bd!L&duUg?dfS<5NkD0-S=3L+P=4&ch5Pu{;K*eqbh-2LVO2!
zLv3%rtXj=?^|!Js<FaDyfJ1^>2Sdz`RUK<vTEMGmy*z8(DYoP)*E5S79#8tYD0Hp-
z?T8mn(>F9uH|XCwKSjzR)J5{UOWk@d_s*#EdMg%ukP7>fspT2^?5WV24@s{c?Yts#
z((+qk`|3F-*8izH^DJy8UzWtvIZdA@xVbLVt2me7__D=+qgm=i-{%YUoNrh0M|kFK
z%}I?t6a0KD8+)#E$lls%`HR^F{nuQZraMV#l3VWb^<GoD*BhSJ?bUjBEUctx*?iMg
zK`-Y7KI)$HU#PIGRcGxz>kNfCGi1Z2_FtK-e00~QXT3U!M|Y=se6gJ{p{77oYwl0e
zcQdA0EYJORa{4BL_S7SrUEE#%ov4_m;IeI%de!P_UZ<J(Gh<fIpL}*Jd#dY=IR~|C
zCjJYXF5BVBvxa&7@{84%v}>AHRk@ZJmOlUTX1elWx2DEOdH<P_{;MUM*{e*2FLjk2
z_^<!Li_u?cwg05u-V;kF?fv`V-Myn0^0Ge7G3Ji5#d_u}+qk&-RQ@`F-=E`Eqr~24
zC2ls|zcl9Y-2{j9V}7Dr1z4u|r24pbT(pSTdH4N7{nuSB%64ZRG>mGJ+wSV=zKE>a
zbs=Hl&l!_lZsbSs`XBQU5eN*3c|Fh1`Sr~AR|0&+m%ir_*}~qRRrP!K1nvHK){RXX
z`Lm9HxzQjLX?F3bH21Ev9j6VRS+4kNWV&fhKl8n<dZGX2vlMTL8Lw%Y{%OI{h?*dq
zXr?LEJI^HS=BN<*A<L!W8q6E;DzbB`N?&Ytz)UyC59^Mazgw}Ohr@i+UN_TctX^XO
zmG?+I%HJj-S;lnstoyY)Vw<aCCv)b+X<yWycXi?QMdEHV%+5@?)E|DeL$7vH(AqAw
z`X4oI?5Y!wELb^HVV>OnZnr?E2r<j9omKL#8JEsqZTfn>JLP%Wx(E-K$ycug?@UtU
zZLOHyWZl{O<Q7+U-1G#AR}M1QyUweg?wkEyXU$<Qsl5vm5~7^)6tcKi7)%ITrF7!g
zUIkqlW3HlxNAf4r_cjMB2+xnnsrB#XVccxUDRx&+T+MO4--(6g6E1)5`S#KE`~86I
zt5J(v1g(~A>ANK?yP@gjd9!y9tP=$O|B(?|apK6s-BUNNJ<9QN@vNIsvR9?=pJKRo
zefIrxZRJZ2F4Wv(_eLva>G^Gcc9|+}_^NsIiJ`od2D6jV>Dl+@{W4s$h>^|sPe^h0
z76ZB0w;uoBTq$6tbhNjpc6QI|FFZO;2bX#5&cEfo&t!Mus$CmgkB4#0yy~H*x2^Mi
zqEgAiKil8$o%K9W)hz4bW%U=VIuE|-mCoMuxm94lrs1;5UVZwHuVzlwsGVGMrp--p
z;sX{T2PP$>r6#l55~Bhv-g(J~CUr&VJ?7q|)vK~7vRrRLc}!%v*3Da5mE|(}JWH={
z7oGS+t*1=J^Vw3*w-HMgee3XL+0YU^X-c9?$^6HCA=Voe<19F{?rK;bd-?to)5@(g
z=d<o?cQjp~Qf9-RYWqw-=uhU2`36sgUe7E2x!dzI$2YTSQkRYSs?^kMLe3^BoPS)h
zLdeeBwoQ(y>)SNNpji94!R3eDGI*pzR`|R~w%E0=VVC0KhdnZRyAOVmNL7A6#~|<w
z)5`;jUsoQh%oMv}E^yyD?&rOK>|Jkaf6q%UlHcF5W9Aa(bLTsE*?ZiRGG<+!>N9uS
zX{8u0j_J2o^!;cL-jh(~-mo;H+4syP=I8eeH_f>jXr|v~vi9sJrNX11=4l7^ym>b9
zt?X$nvmJZ|xoP%${@=Y~9#t3TT~w0!Z`tX9Y&%<7?R#~V?O#JYcKm;FPT2a|8RPuj
zH*EULL+=Nhct7P=n3fi1+;GIR>A~s=&$n+=N{)+o#rg5o_gfY7Zr06Ana9Cl;N$k&
z$i{Tu{}`{G+Ks<YTBPaz4*P1kL)LI<@WzPSZ5mFiEn_vaC$PSYmfq|7Y*$o7e7(7r
zt8DpOSN{ViE*0fI{?j<+osELAwB7Mgr)J(v1+{nwUA{?|SALfH!+zhQ*R(bH)%gal
z^A(eOe-_()tXR-=C|up6xOlQ=ywdWd%eL`$Oa5vLP2KGJezJYn^M48H`KS10u1B3U
zoO{S5Ftxa04f9V$n|o0o{vQ{8$v7`^8$;Ze6zK-@)+Nt%w|~yqewJ-|!qqTe&5yN*
zil&D>jI3IjTN=DPEAe~R-N{b7L}Hs|;+mL~_CC^+ZpmkOZe5t)u`$0gH=kEFVZL{4
z<9*)cD^GWQ|Ejn0{?hy#rfcS%I)Cc8=$o*a`OmD~*2@0Y{&+>GMep`gl`SSaShqP`
z-MlZK&F{pKr;JVS8n>C4+I8Mo#P&PtP+_!++FJW#&x3MRT^FCL-gohLl6xi3CCkn0
zXXO@$p6QU@{m%M8;?MStUrcvw61wU7YocjI56eoI+YM8r&OX)G-M#(h<{P4iXI!-7
zR!vCqsq^l)S}s*O@x>Lf^WnE#+*0cF3yr44Y@YRY)d8-@^Ip&RwP=sI;F+gEuWmf)
zjGxc*I8;34+Js59W;*4+xbnRpPxM`VtinmmOZBGB`j_hMTQ)}J<)sM(AKl&iedYbI
zt^d5<ZVKx8$~)7wDXcZna?VAW=IwLe)J$2Jd1AM!$wS%OPLIo-KWBZ}W1RK;efCMu
zf7`^b>haVSUV3xmbED1HJ6F`b|FZV)oP4gYRR6=X3m?~sap}%G^yExM{f~1K%Fd)G
zm!~BhJUCx|^VFyxaW)$m?QUp$YtQjXJ+tVF$t_FW&gjjWU-swCeH5^_E0?dKQtq@l
z`-X-6Pj^^0Y|V*Ur<r{11J|FL$Yq<dc^}xfwETOpvElPhDe)^CODzsp`${vj?eAJv
zuC{BAN6u7bnVlYTFSit|yl$|?PiAA&dW+!Z{+o5v{WeeH*=>5NzUbcd8b8h$AH4^u
z)BoJsxzB5z^5P2ycbneWYwtN!oYknfct?w&$t#h|Q)ZUF*H?(%aZ%+*_SfXqQi&X%
zjq`)=GI3<59KU#U_f(nX*R|&V`9D|oxmWhntnvw8y)?E(zj*iJ^-eGDjgMpl*wuEj
zT$BmX@3yG?+TeZvoz0EAX^Xc+TWl_WYV{$fN~z|Zso=V`&abMMSO(-CT+LxuIM=ss
zZV}H`W9fxUrZ3D^_N)mkZE$enUn(hmOJnWP3qrdC^Q1DFk2rmFX`H{o_^gBCzbnmB
zb|E_!yVhFe&sX`NT98zEJeT1wr_|x*XMLp;x##;%Nx1vmPs`?Sw&ZJv%(ORwmoEw}
zIy|-Ccj4`yrR6IkWb}`ytoZi*{<j{{=tnO@|2586&;FTPa_&^6%e@-zKFekKYnOxz
z{Ekdf{QX5l&3nb96#+}dbTbysycovM%jx_2gkHt57L~r^ZI)}@q&(g*ItTZOADFJV
z;nJ?VQ!}2<T_abJXrA}(^kG@yDSIcDabK59Y|}he8qV_8ezL|&&E4N@xwOOE?R||x
z+16B<pUe85w>rnJ_u7G$%@#pLiTdw4Vm1DpFD>8nWA3zlGgma$EpI=?dw$czX_+2u
zimw&c<o!ym`gO!g#wyZa8N-*bYh1R4%MZnr-4HoaRWD!RClK{DAST%|QbW%{w0%pw
z#g3!BTj#sAZJ)q%{*3h$aV6fZpC|CO*ViX_KFYZAOEt~6PuJ?Q>mM&4k=<Mm3SEu|
zNxN?U<kEWMdIERB_N<3jQ(jFD%N1QOx#6&_%j@|yhXTwxq>lQ$jnV)AOeSdWuUT6=
zo-*3=8ZZ4M$lIg#QCH>5+CEXv2y3k*@t99~59ghfDN$;)D0VCm_KCDqetzoEx})FO
zB8-0N9JjVe{PCO3Bw?M`r~axHPi6F{Hhb?rb1<+*^N#2_fzKbdu1=bKBhh1b%mn#r
z<sy|uyta3C{>^-SI`o&Cz0KjN*B3wcTcT7WXHj+bVQFLE@j0$nZ&_|>nYT6fsou2<
z&0S??y-!$=?aJLUKgMSvPm$BJ-%q-tTYZuiPM-Yuh3fUAALPx}gxFmAe$JeK^%Uig
zyc!OkPkx+v^)|ce!kqZ2-R+yZI?rtN|C+ndk#`eMe)JT%AE#uBjyMN%I$c^EQD^St
z{oE>a)0CXa`9TjFzf?Xi362XmnNwacqy43@*uu<>vOh!OTsKQDO#3l!`V+J4N5vw~
zf2XeK@(~f#obyv&z=Q4aueib|7x+GFNm$Og-C(jPVo68vq*pEnJI>rv7V$W`_FVdj
z-dmd|Pm$sl*tuFN(rD&W?#ABZlIr{u&Cc$b5*i{sIsM<tH<RrJk58LneoKBrPTl#V
z7m}Agu(p=jba~$lXC9@g?f)L%IpCMhV!3Dr(~`|zk0%(nN}uUlZZh=?_w4(X^Qxj}
zo;uH!+ObI>`8Y$y8s{}u_rpc|CuZ+|)0SGRzFca``=6YJ8WCw3-rJX@c*rWv%WgW9
zz4_kv!VisHoQvF+J`&rwn~kSDNQUvSa#%eNkNATXGAxIeGVgx1>PzZr&riQITH3q~
zVzX`BY%Nt67fh--ZaeL)cUNU0qlB-)lued)EbcE4*wvk4J=@D$FwL;n&aQF2R8v6f
zmA7|hZC&9lvb)tPO!B3$*vH-9`XYWaU2FBWyM8aWdveI#Lz~_^?hY+{b+(-KmTNd0
zv+LKD>HOTaHhznbI5+Yi`6STjyY`b*uuJXv)2Ak@@LZhL)G<9tT+L~XSY^4{kt~<4
zuQq(||7N#7n!h#dyqEl+-66;J%=;(pKlzH@0k3^iuFSgSXR=q{S?Lb*Mc%K;=8~>8
z$6J;~A3k2^<F%20%I?^SX~}X5-E*2!I};wq2)M5KA>>h{<t8m!X0zp0)2E}hGv^)W
z_z{`FE2=(sl37u(v%AvKwYzy!u36nWqyJD?TBK?3oSz4jx3}Hq;Jds)$i?nSN+P$)
z=E8r)It`B|tL!O!aQNS@8-_O9^;Y${H{9MnTT1tV_mLu<*Ux90-DFIgZ{_kbi&Otf
zpf}s^-(JhN@*bOeZoZBt*A3G&X_;Lfm;F)|JxzUYzdFCY-Y)9umZ*588JA6~6q0m4
zP1d}5rDRFl_UM(dDJLVZXYIFWUmx+-MeSXrZPS$9d$%*4KA)oX&B4npFXY`lJN|FK
z|1{`{cdkG6z5l9uWue7BVNn-lw|^O8=bboeOEN>V!}Bh2#2ho9v;W%mCyN;GotE(S
zl=`yYFZvln`J<wL!Kx?hzRco(IB%ij2et&Uz?bFH>?dyey*)W6yq)p)y`_!U<v!{?
zmiZvPfm3AZm59u%Au0S^8He=NYsA%RY2|L5AtQPGYjjrww~FRT)&8ZL<)4?yxOse1
zc|Y;q?hEr$bWd$xK5bp|y}uI;w|cJM^ZJ^^eBtXJ*T3lt_-B^8C#~7+{xIxSUO(3*
z=i9b{%eB7GR=ap>--$K1yxsR7H~mt4<zn&Smu=Nc7WS>bv+nfSx}<%%k7l`)zSZ_g
zZTGwzyYR@zt5r+1&+#2zn0xPN<*OOJ5!b$3=<;wjM0jqJpA{2e(U3poDhuznib=k2
z<IbF8uG`u^)ku&3%?7@TsgJ8nnWmWf&iXr3QrdOZM#FV-yB_?zpIT~>^_fwwHP`W4
zgu%DIh|W1n_p3Z{=x&TZApKNL`oYG9*KCjU_#1`2-?*oF;`yk@S(mP6ESCS=+rnBu
z?VMHI&l>>=$sWlDFRs06zVJ(9+Xc5Zt5Y2wuTZSp_2E_H{p8NvoqEiy!7p6S8a+&m
zS#|5!&U%x(z0zkC<#N^5UaCy0*p%?@!c8%`svEaeedStZo<GR9GB6gkzdJuz>_+3Q
z;->pd3_SrXm)n$Vbj{q#L%W()j{N*!So&^;_P_Kuao&DrIW1MjH{M>9cV8PdccaJL
z-1~=4cN$g9cv~Z?Z(L?@gS&6h_N8uxA~z+sch>r6>v<lYk$g0-QlhE(OR{f~s8m6^
zgKb}~ws{R-|D07zzsN|H9%|J7_+`z#^NEW*>Q_p+Ph9!={_ICmd)7_$o_$aM_C$;P
z6xo;I;!Dpr_dl-+J<RELdg|)7lA_|h%2RdkDIB&4@c((_h?KyG-Ugq?B}eR3T-dsW
zZ|{<s>vgZh(#bTc$?UC$$(^<RFIx6FpG$5#J}0i6Nn?6%f%>i3x|lmbOYX>i+NXVM
z=5i*9i&C~%zK2?DZROv#e2(ec_ctG{ZJQ>1>v(|bkLa-EN#;J~oyR}KM+PlBbYyl&
zocA9eS%alU)B1`p2$>fxSHEkex<mG(#wF>!leS%sk!CZIZC7@?zePscLUL`yq*UwA
z$$utr%befIpfu;*T)+8A+_@D3cGr{F#JQ<{`|_ZlVVB;`(*g_KLe9?kkR3edlKAr8
zj}I1Yoh|uQM}AY}j4YnluhkwL72sGgk>O(~>ur~XlRUOCw|Db)@48{gzEHZ+jpzK$
zw3DJ4G9A;ZHtYJ=NbdLKcynOZ(mQ8w_GDRluBdG&6lVJ2n6-1`Tf=Mim-p}In$NSH
zkL6ntUx3vmCg~upChjD;oZY=g(#tt+-Z1`SIdd`lxkJaK-bEf)+Yuq*-#5LY`;&5N
z&DN0H>IyO@%AwtT6_4NkuzJsZ(5^2)o=0uR5xf5j4>B#9Jlj(FwOwDi>({q8JU&@I
zUnX|RJTIf^W2kS~3F*i6_m3<pn=bW8JMCoFhq<=|lMFN3^79u7|I#&$Jh|#YJIj0n
zwkMMB(_eKpr34rK^oq(mwtT{kCzkhJ78@yjT-o!orrq^Q)=H^q|1G*!T+V!uUwFi$
z#5Q>S<Xd0Yod3SBbH}6AE8JYUw+n@HT&m08cz9i;X8jD2m2+4AQmj(CR^1RRBAtK7
zxn_5O)}48-b^?1IonTWh2-65M$o%KHZ`#4W{<mu`=be#U`GRG~(}?p@^IZ*^tzO*|
z&QY1pJ#%Glswi{h^H1;R9-s7O`*WkdAD%~U-{4$){MY<#>9t}jC5~<SdQ0c$R{MxG
zVLDqM%S5PdD&0P_E&6+u^pBo<`ZiB8-brN@Y3}o8O)m3umJ#Jp-8Aj?`j*vitFPWN
zNc<aR6@Rv%X8x4(PDh#Snk5fE+<M-(_mIBV&w~#bD%VYX|FmQEgj192g5w;^CGO`v
z{Il%)lSikn951}%V&=`&7=LkHiu$U~PcNo)&UR1y_$(~*!wlwV)uS3m_C7XzwlU!I
zo7OP*EgyJZo(cGuqt(><<*EP9=;xaP%y{Ro*zLj?yqGKAi0x5!e!#(6-?HS(uN`W-
zv(LN}`LZTJ>S*XB|Jq9jzl4RXcUoh8sN;cup8RKP=byVz<r-bO>e{-<_2B1MU)}EK
z@{6x|J!7-nF0YKP&Z&FvWPKB>dUCUqL%qQ$=HadS_Uzv1DXSu^Y_?ULY*&1FET22x
z(&a`?`udVGr#UU*g*-+E-)or#!Yf1f$SB)KA2$8)i0QB3th+8=TYtGt+ASDxf6u12
zwn`D>;F&Ls_VK+nn3B8UwZJ{wBlV?MHLrzV)kxeO+Mdpo8*nq}!k4~HpI5&4D4YCf
z?NqNR`y`Ib^6YElE3xVMBayiK((l85+j$?awU*E;zbGMdY)-rBp^x`jzaCf|x-NH`
zK&JQhZ$@2j1^T}laZQm5a=)1(H6i@zv3K7Xj^D8@ns|Jrt$b+qrQ)@AD(2I6UyA75
zaeLx?=JmR3-ZOHihq5nIpKNe9LANb8H^-v1ynk=iYo_C?o*Y}ncI?RqwKp9b1Dov1
z`qn!OS*<po;Gy=$bvkoDUvRiw^P|j{X$E&~X1GqNI2v=peO1pgO_@^VRqJG3^uyyS
zU#WdCGVNQr#c1Qx8kcXEKV@5eI>lS~t@za*BmK|-!?MoPIoBdK$%n*Rof0oJYh07x
zobzMG4A<4Komh6T+GVFOo#5~gDUf_}=2O8nw(Dxvnj&7C7|K<{A1Xu_ZZ_jnfB9-*
zwe<Y_eElzLy8n8bCH1?Wu=bk1Xt(E^!e=w?>@j?!e0kSh`Sol;VbR<78jD1P<sK95
zeeW?-Zu7Ljjq**Gn8b?>HbgJjvUqBl>ifxSbY^ed)8ohFtu7mTu+mECQ<YhRXw9O;
zDH;oAx*gfi^Y&S>q;A&HD#`Q@Ml++f>Sk#$E6aT<_Pe_Muvoi_@Ydt^Z!g(u_`qM+
z(O1g;P~4Yrq3Z817bsUe$=F-_-{5=P&WHC{^!t7-+1mK!`Lq{?=cebF%)Tgph4ZP%
zoiK6P_($s3w?+OFoau9PV#>CBH!1GR7v(+NJu3G&Y;0NlU-$pN{&K16+VyIh2CSRD
zPV#D7A0_$d==(J<KbmDO37l<tGgSKe`qS$V{}udh;2KuxdY~|W)spow%(mJ3#wES>
z-iH5MzJ&#bWPCp&|Ney3^F=&2+}5k|q;RXR*!Vd5srroDFK!)tx?{o0pryH2&RmWA
z!25O8+X?+Kc1e>iuU~uNo!HrFN^55Q=!lhgd+gQw`CY9(hjvw8+wi<G-#Y5G>m|jE
zkL`xhnjYG3weDGbKIA=PzwbG{YrXrsS9l#gyno%Asm(8=FAH|1wM+?;db=$0F1Jf?
zdidqy?&$MfTRKzq&xTeXi<LZetW&Fy^Sq<Xx02-9zDwq4Xx|IpF5o-&z`AAsmGzz;
zQMh&Y@C`F7kG!O!>+_qtW4yGbZ1+n9tv{B+u;-Vx+rOPl>*FsK9o7)~)0i2@-dFc=
z$L)?hizSH$*E`-QOq?>CuXBRc2U)TD9pBcoxiHU_usf8xI7n<c%i7(K9v(P#^iQj!
zSt<*wSeku`&M}3S?3srPrT5G&?cH!!!!7vrj3mFbHTmhO4#nGJC;h7_eZy9)aq8cU
zImd5^`5zVvtn*K_4q3jWe|Poo6W!DP%srVa9p_r|Rhs3@dz0OT6@ES0863eAuO4>1
zru|jGV^d$QqR(C?tML0F#aFjFxa2PWDc2D(;Ss0q_3sW#+$Y)eT}difSN>aJSI)PZ
zfQI9FR;5pP=EmFnd|?0Z|3Ch|r#p=>mY^CzR+WO5ni?9ITNuO6YBe%2Hc~K90Eyec
z&uTR?Fa{mq8l>-*nNyNlq@eGXlUS1KlA4^Kl4@tiRa{b(nwZN~G3RM*<a(KtQ|IyQ
zzu5F3_ul*Dsb^1}yP@nhjWKuHt!XAf-Es#fv@p(ov-HYUm8;z*Z^ZwX&KLGR*4ZJv
zH72f1*nmwcR@7KI+46MxwI8qV?&{br`d|P5_s!?!_kM5O{rkyj_t$szAK1^g`Sn^^
zP=3eh|6kvH-aX&uVEdcch^DDw_icav2&{^}BdIK|_<oLI_xEytyZSH3=iZZlP|u=x
zChzXQKc6T6|M_A;^YM26OFE7%1>c`o+Waf2zi>z=>cn03mmjabxa<DAIbzM#56`>*
z?qZQ_`u^p*{x|mB8Tnfd2!432xZ*A+TlC?iDfeyHub16_M_$Bc&E0pAQjP~V#~)|k
zvpFmL|K5M4HIePLjfa07Juv^t_5P3Hn<H{h=WO9f?Q^?vceNGkzs6stpB{JHzB$ju
zU$=F7x8XrE?H>DES6}Bg-MjkJbJw*$)0>++vO}G?Lie>;e^AZa8x@vW<}Ty3j{A&)
zJagadbY5$|V1c@cuUD1T-<E$O6m#c>iR*f&nM!*~8YYTmwgy(baME!w*kASK$^JhR
zbynQHlRJH07*oUKkPZAoYVq;EP4tqtu3jMRc1$UxFy;Ht^QYy~zusd%bf;1weYMS`
z%|+c`S8E9Wy&0!}N_%5;LWc5#*Gb>GWs<+1^7_*iGpDKZK+i+>&0g%c7m4fZ<XjL;
zd)ZQIC;zZZI!1oY{-^9mr4o3PCdO5ErfZ6AeB^h$yu?89U0Zo~6Z5~{afcQ=Ua0rG
z|4qB7BWBB`pkt=d`y;N_sQ2w-%a6Uqw$p1DKhp}2>IZL5%#uHxASWI)@9LMx2RA=G
zm|wO-*^1>b|7x*lxxWn0nOL5(TCZr<jk})9R)4FUdHeCShv!3clIu6+CfO+}pW4SB
z%y+_bmwbT)<GqVT-*^2f{uQA8j_-igfik8P@inf8Up->4Z<@c+K~^r#ensfvgOXks
z^o6fmupejpuP4@j{GaF_-G=KE!uI*RXDqZ|{iRB2%kL>gi+R{OE`HT<+^O!}`Gqy}
zr@Q^3^@sRc?>^s<ZkO?LWx|U00y|4<+L{lkc{(l$sN?2SS!>NHsZ<r$_gQ^^Ezj}C
zvH>~E*j`HOK6YGj(yLD)V$Zd6MeZq_hR;rJOg{8I<io5>i#JH^JHjh<)XBRqHGci{
zNuCO`HXQSpQ4x5f*y$=GoVtS5j8&4$B&C7Twqr*6nhNh#iC4R>^SV1#hCZ=vW8V@J
zwsi57cE#xeFS1>NgO*xeHeowqn&B1k<NN{fI^N(c<JHV-WmYIXx*DwdU3g#W1S^h-
z*Xq^QU*9?}>aCmH1;!)lJ`I0<t*YCa*K_;ir_MF|d|I?T4Fy_)EDkSs7XR^Th1BV9
zJ-hh&Tz@e<($n)g_^(05di$kS7Z=a_Fa3&9u~*@Y%>x-F2PK=TTPseT=vCm)pP=@Y
zdw$rDFGjfyPKxZ4L?zhTehD3)9#}f*ac!%!=YuvD%SZPWtnLXE`FNDhR#06fH>JTY
zw7W>q{aUe4^=qpQYP@H7OSJuDRai8pC4M$5QJU+nTD-WSH@{IX-*5Yw1{>?6D}@+-
z-ty}0FWh8t>&cSz29vc7@ANE-H_e!S=b>z8l7=;VdRS}mEthn0#V22cGr7{f-`>mc
zQ_<A+q;bdOO*)KoTYmR_=wf^+XHtJ->h5%FUrEXKqNe+?S3X3wyJnPX*Jtfz3fo-D
zksV#&Xc>~tVAbgL;rhhvJpxUup6$w=YSe#3rz+~K`IcoS5*B^$tP@v1|M9-6upx8a
zb^bjr$J*bo+qB)3A$7gtg_C>M$p7xj%00E9M>O=B9P7u`r^=4h{aBL6_tUiA#jEPt
zf~%+3dvB9pdh4&mQmr+IXa4TG>OU)<`}wyZ-Ff_h+xD(4zZs`BZGFjx{hK&UQfK+Q
zN~!y}`q|4zTxgVg>@NBCCEJp`ir(dmFMrfj=8;%;<}rg#`uQ)#Pc(nXZ_leW{I|&^
z;-#FKnpyMYC}W{%!bgAiwr70gp7?c3)BZ-a$w#`4e=zGrSxiw;x6liy)#m8)t!v;_
z+IE(Es^On+i*KyyblT*g|D(zwz?;={jcfE)iF~QKe>5F!&VLiq(S9iNb1Lf@p@ny?
zTMwSRz`pY6A{Evv+Y`4`BusM3UsA@Lbbd|mlpoo({S|!-Z3l09rusThZMJ3?kyUgR
zFiyIf$9bhm<<O+%U)Ni%a?R0Y3b@s=_cF`rES1)M&3oRPyb`xq6(iCmw@Ehq@rPvP
zf>X=o+&{Fw=~pu_vdG%PKK=ca+ug4Y8o!Xu%w+SNlKJJ6$vg*#RSrK6oj8{4{!ix?
z|B-{5iU|+8dHud+EP7G&ZNiGO)|EGo{<M5^Nlj<3;^bw!q;};n9oV+=*Rd~c3nx9W
zkhNd=>DgtE4I5f^dZ}6eTQrZa?kE#~rei<9ee%Vg+b7g7e2;wm?1)p4jr);}_wL58
zV!k&eXntUwjLJ1X-AxzIJPA&@dgS{r3+eTClH4CTEliS%g4XyLh(0{?c=fN(opaRs
zcnd5vZoho}$>DXuj7N!&eAStjJE;_T$zKb$6HRCk<DONZ&GFu#B6Ib8&0Rfr@<Ohx
z@L2hCvdhY_g~v^A`luCjn64`Lez0x()q^2x<~KYxbGxkmH}YHAqqKchO_e8RhT8p-
zvDX%R>2vycX0p!Qhx@~1oirYX2yD(S_%iXqle2d3EH~<PX0+?@A5ePWD|O9rrs&M>
z=j&t-)IAld*r2#TeCBqEi97ys{TAL=x<@)!*kZm`k$Qu<*O{_n&h0$=d=@p{u21K^
zt0doZyYPm2-Th99`;Tnn>~Cc3d>U;NcWAo%p>;CLEEeuuo}i(eR;cP`6Qm!1YqP1N
z;L0!o>7wt)R|aZ3E?(j5Z{^_k<id@PTkR~<<{15Oa_&4cr`+M;b&&&tA}%kpjeXng
zSX&<$<_Ir-_bi!j-N^&HH_X3&{k1pCJI0I&2H9Iri7_6%DfmynD16<jf>$>yQcll5
z?i(mq`AFVlQ^dSD#S6bT$encWO*nszvpX<q-ZZ%nJT|{l`kj^X_W52Ed$+#rhW-1!
z%w3y!=SY1$w{2O6>#>O~fxGXAKbvWxH_yzO!CN=#c6(t;>ilO%6rFT6wU*a2s_(LD
z`6;iWvux?oWe@)!df3GB!}<Kr%f090^Zm3+#F!t%&z;FE#JX*H)7Jlt-(#%zDoZU3
zH)AfGXj{KeJTOUJUA!xLLvc!NiR{0YzXfxrN?re+ZcrI>VZomX%PP9JRP6NGv3}vg
zsf_nT%%iM|^^YEFXH|{5xbVoE3U#?j!Uy*~3F#<OS=hM#<;Kv57UdrmM7X}4Ihk%!
zrn4j~J)z^2GLyuK!^=0>$-A*9z23a|*P5%fMh7CZ?`|sZEECy%GUCzJN6r=+m3w=&
zI#VxKUOUL~y7*tmrK~~)KMv`CCX<(4nJ1X>BC^VFZ6Nov$6P{h4L8Z;XrH)u`p(9`
zGi(eTj_sCz_Wj_Og?5XMe@zdJ=l*(rXZDI6l3RGWCtaB=cOq1M{wHsNeRs2;MQ~Oe
ziZGwCIc4%B%atNB3-cY0PJbDA{Yb@+8HSeM)i_F4Pp^Nq^!N|!jtlKY7BTFR^7(Z)
zyKPS2p1)?L_mW#VY@V&zQ_qSgN9}*P(o5%+qD`6ArZ)G>I$uLN#XKE(q~kOK*ku;7
z7<JEUj?O=narW+E(;R_E8!t9!AMkC8{P%BP;>+u+{~T&f%76N=!p1x7=7vz=-rX<t
z4GVoj-qjsF_5akRSRJ!t>HRDxCPv&>`T1B;>Fslg&ELc3cF!$XmLlDy`|4`oGmFVN
zljkZ-zter?-tRiuhmo=myEgbfTyc4x|EfZ{E$6JCUTA;I?!wdY#hsH)I#)foJu%$!
zcTdQ-b4;Nc`7g>1e(TuvFV7E4XWbokW9sh1-*kEx^>UcB${CdQxXHbGc}_4+$u8?m
zGn;`!t<iH)hNNf%E$1hP*B9QaD~<DI5k1)F5>$KHA%5wEuA`}oA2Od=)XdL)Z(jYW
zzY%Bmq`c5DJ#Fcmr>6XJpV_OpwJ%zYE}qT|OnNbEqO(v}Ive{N)f0OnuXGn2pD~ep
zzu5lMIxCf%R0EX4D>rpkPMXB6#Bcs?=4uo1S=BRAYFaPvYS?*ASXMYQ+&xvu*C%BT
zW3P6HW2(i9fQf#dU&^;!_~38EG%;9{-~0)SUr1Gv_v#v_fC_E*t;Yk``-!}tl(x=u
z@v#Tq1#{0XX|zB5OSZxyxvOiZ%%$ZE^|;^MUUvQCN5w~v&g@#o?;y}DxwrckW7vV>
zbqnTBz0_W{%5}N0Z}ODgPM06Z#jej}xV}=`)Ys?vy-Vi#T|(|J+7@02U9ofVrXya<
zJFVE5KhK(IFUz3dUMlm$kX<41A$QR2=LW7?1(P#Zsx*~E7|GO4whlGCr82R+gW;Ry
z0*fWzToPw`-`l#v$grE6vq|IZ<%z8izXaU+kXJKl#noRbm9}m-9x9)EU)T4aZ*t68
zjcc2>Z(dTj=|k@vxu05stUHb>^o3g=uV<UG-c&exjp4HdjqNWy-DGSJet9tS&dx8s
zGn30TFNLtL5cwp@xAhPo`zlS&GW*_N8@Klaon*T?uPR8`v3<^_HrKB+yAD`!@0(V@
za?4SE$>)vxc->v2HIGI}cmKI^#<!ip=ya*x#~FqPXO}NOcH7=t`>xT9%Tg|{**&uj
zo(I`a{J!go{~`7N_n$q;c$<7@V#EDsXYvyQ&b%*RxNvrkc5;m0ukMrIuB$(OwBQzF
z&$Y=4KH^tc|MEDryQy)UkYY69N)Ji8#ni?oJDJ(_+Dh58q84Qx3hnCpT_Q!xijQl~
zws-iWo%80^jmkr!b)PrwP;n|-^F7Omzq(!WuJ@eKlkY$EK2c3SAsm>kn0U?Av&W&0
zMXX-nq15!*!CO<5Jd3`yBt7$cclo2S$|chb-|tL`($8E>LQC|ESu$r;iQWv^!FFy_
zV*jzE6*_-w?!W$jE-p9F@1soE(;K^Pcm2Km+$v>9)MbfaOGo93N_EdeyPqp{gm?U#
zk-f<IIg@+shN+wG#mQc&Jb3Go!i8^wyM<o<xXqHc<=z{Ag=KECLcV))6NElG1`G1<
zxbgZ`^g$;l$!n%=aZ|Q#jC%W0Zh_o|87z-kLS*>3J-i>UTzTLnuZ48P*=3XDo`1<&
ztbfeYM*PBo?;8cypFAlywcJ(VxsUFYp4VLyFLeITF}Q5K{oq6cd*6pnJNG52xJ;5^
zx!3njN%v*#r_MDlYqHNYo{A6rYsH&jTd}I%e$8nc!9R1J3I&`<U*U3X#;x<&mxL$2
zJGv@ncGSk{mcAZso$IoFmQ0er`QnnAp?Y>#eft-d(;LrBTd1PGKaF>7##2|5kjJNP
zmFNg9zQ5@s$7|tEAD8!?0&XWaZ!11>R>t7x)@2hnGWwYLZ_{N-Jw17ghvvi?TU*5#
z#od#>elzKFS;D?l`OmZv!!J&s-v5yLu53H2IjrNUb-~nAXV>nywDOa|(RlW!yjssr
z%T3+1Hb-O9s!8UWHTD_@cCQkAp`tj)ATOU+c#ctSLcrB8uG8PYSKrr_d+kex^b(g(
z&QsXZ*b)o$Pxc+u;y2m)o424-WOdG^1}XhkBZEle@8(D9%ln?!Iq^)5ShdM*he~2u
z(=?0goiRoH$5YzRo;m(%+Ql>e0;a0QKC9So>wKN`?Lf5V*FD1iNqIt|kDuhvYBI8#
zCtRQKGl7BmP5m1~c{_>yzeVjh8C<k_c-C+n{qm0ALif$1g>K;vE?ZqX;ux1MiBCS?
z7s<5L<xisYd^N|*o42pp<+Jg)=))?{|J8dvr*c=?FRqqXm3s92>Rp+oHO}=LxMrLy
z-PkqR|L9}sqy<sITo>jpJhacZvggz7J{F1oUFrvVcA0y<xT*86N~L4f)bkshHg~Zz
z_{Hq0I&kaycD0)f_V4pkx;=IuK7H^{-E5ABY3Uy{wsG^tT)lHUFv=^Y%aQ+Cu5YZ3
zxQ*prwIg>H-OccQRhf0-<{z(17LR##S3dH(^v$Mx{=}V@o(eBh&GT(1m-uWBRoPyz
z^=0a|?%;QcJ=14|r|MrX3E%6Wm2+a{oEr)9f?Hk956`#1x8?Kaz7iv;S*i5~hoq9d
z<U+gq+U7EGGoOBO??BPDD>?hhy-r-K<5;-J#OB)~vD2cTWWu%|O1N_T;O}`GX0UAT
zp0fB+#Uuf*HU~W>S@!>mM_joM?7q@s_bB*p$BzZa6}Br$%sks_uh{UV%5g=NW^IS~
z@hg>O(~`HZ`JW-;#jAax@#>}Cf<9B8PkRoC88_bDsiPWk&MfBL)QzGFJ}iapZ$(Z>
zu2jFVt|(8vK=sr_fpsf<4rR4IcoSXhvgByf#=2JJEw=Z2BiDbjSI|11CsjXx8QT?|
zhMa3Ju4H(={PAe1?7IVkb?b^}DsgZ<7usO7zHa{1Lq~5-x;|}6zZP%n(!^l(DSPKw
zEnE{7=6C-7Gnp4pXElHR>id%aRbF#nN4|Z$QkwVc+n-b?NrmRmnHOUke_G+>k#bF6
zf%4UyI_I39nsh2ve@)9s>HEFB_rs3~3UA`XQ~vaAHtl-*Tlr70n`c;YqWZ+3gxU)-
zl@sKz>RSFUOf1;H{ptUSLSpk*9bDY_#!;Zxx+m*wpH+Zbh>S(ZY}JofCD*-V?z`p~
z*u7e}&S~e<uKx7X_w||D&i+ylzOy8Dk>}N?Up|Ps@c#PrLP_YAn7p{+y(!Dp*7Wdx
zarw0W+}}tc2E_xP=1-dO@nwWzxblTg5$E{%U8yp5VasCliZ)$5w*6kh+cx*#><!2K
zJufBx)X{pbB{fTBR>ilhM=NgaDPEN`{pyxiJtr2hc^-S~#JOU_a;=EBS7++Hj^oen
z+CS@8cG->RS;fN2Jk!}%>~`|r|A`@;Z{44hMJ62#{d+CnPyYMi8q4IP9NYHH*ue8;
zMO(|$l^jA_7eA}Fwb!ftqFI#vL1LBn<LNGQzuPg?cndF@DD11ic~NMGbcOdOqq<-R
zAHOdqHxjpWIWCo6)!Db!MP+5`(}{DemL(qW`?sg{lJ2}ckLUM&Vt=N2cvV?H=cb;&
zih)V-WjntcpTE>qe%CZ<Tg7?L(i^3&={KKg?X1n^UuZF9^W8$Ddkx(umpHrb{J^Vb
zHP?C5brr_x+d{4{xgEar&aW9<0lj|9@=tE<Q&oF*tKvF~$bG5zUGl9D^Bs?@+;BAJ
z%;%{q`tGlFn&cT4B`WdV&*${PPszFL&QkIp<bv<LQfCa7IX!#n`d5jyhcv@|4L*h~
zc1`~L{pF8ayf--$xcpW<yzS?5<Hq4GZ~tjN)+?j=^Ull?7um8Qs<AY7%f>6~coX!x
z<5ine3b&qLmFOK?rLM&G<IJYtp#mjgb?ct(Svp0>zvkpiUB{lUyQVLR?+lrC>)(^g
ziEcd;H|ga#$80<Q>cjmy_pnzVcHfw?b&LAX2~Rg}`5|hOTx#w6<eh+D=jH5DGlnG*
zUyYyI9^<{TWJT_!t*TRBSf8F-;C=tvOmq1K50Y;8m8_k6{YYk#`BYCK#rw0@zRhsX
zDqpny>Z?e{m^Vz1_1$itPtg;S`<J$&?gVSm#+&QD`aZtP`7PT;SKL%tUQx8@ig(c}
zM{m7gzAKBJCC;XuI%p`F{eG(Eb|LNOg;D7{=J+`}XeL<Ks9xpUzW#jH^Is`FYl|e3
z4;_gAeCnaZWb-LfH_rT2d|jF|U&K?xXZN9ICijU~G>fi@i-pc}uHNWbo$d79kS$$A
zUUbDernrCcQ_p2xHCeo;^L}csY1-+ux{zZ!=gu?NTwJWJm%dx5{@EIp8%$HGwoka@
zn0SEo+mj$qgADdZ?_b+rjy&+u`c@<Bn+HpCGCPu37hm0*B<-Qi937~0t<AH3!|@|e
z?^vbjsK-72#ea7Dx(sQN*In1u<`&;Nl=Aswn)m6QzTqC;2mL3`=1shQ;C*l63!P@^
z+GF3{-~N5PdE*<Kzt&~>lP15rwd2;EWq-D1&DPj=C;F7}PPOWqn_MT|4|7RI-;a!`
zP-^fmEN&H@rRpspe6!)0-0OWYIvd$ft`m{CUw_lu!8z~IQ_m|m_f&O0zcwQ<?#6=I
zG1hf6Z|`k67Jj1t)S6jer%#Md4M^ayxOnx_6}Ga?0!6IPR|&6qcR78*g1M2tX?4ke
z=el{ztnnzid4_RvWb@f74(T!-hp&Dc;)Bc2UVgrRLGlZydn->~_#5|9!?;l_*HMXG
z=AP6%pAxZ6-xVh-{k#=^l9w+!+GxJv&ZAFc4+%?7-ffWdso`dN=gOEBFOz>{^Cw>3
zaK5-)njy+C@S^5~GR?q1?+x?37A-pNa`eX0yU#z}_+r=GHg$PbQP`c(TT2aeiw(Yh
zz5G@<a6+|(-5Z7q0kun|msOMQ&EeUvEO_L?wZ$gO&h5D6@n`wDxvJ8a*-otbKI3`Z
z%@<F%AK$BTseC0f$H9Al-&mK*FXw-?Z|RS%U#prmZ$6maq3)pIwZv_D+|Tb8+AEpQ
zKVf{49{T9r1C90dtVbTWo(OpI++XhRyNmJfb2?7Py%$KjoB8G_6ZetZhc4{=`{uK|
zedYg))$jlRdbe7C-@g|ZtLt|N_uu=i`fvaIKi`&rh=2e8&AaOUx_|%fzF)Te%hv|g
z_{;3_P8@FoicXjK##`G?ah-NbX~8X1FR$#=>m=_?cpGyo)_B2&FwRToCdB^cPcP?H
zS$RgHvn2gu)BAHx+k0gnoqPAM@c$G2e!h&>g+fg8RL*>@k3PKiz0ZbahmTrwJT{Gc
z#l`#VQEKa?{xb<r1kw{VPaJ-If$84IXIK5^&b@G~t)sbM^%|XORZD}J^Z&&iSE+fB
zrt3Jb*x2Ch3HujQ(yceeshzv#bGK^i$4;Mn2@4jS+qpT;^Ur&Bh4+3^DWAgR);_m>
zEmEg8`Mc#q<y;|U#n%BUtLq&%NqM^I@Vo0i{<+=#tK=`PHCmS9%_hc$8FSyCc<fYh
z_ea&m!h7w{=4LN>)*!rY$}G0>kR{>&lHaH-(Ouu+AXX_dQ|px9B14CUfQg(@Q@VT>
zFE0IZEtAWRh5h)2keT;3<gd6`a9(TaocqR;JGp|xk`^b_Jhk6iZFXZlr{ba~Yvx<}
zGe6DXbIRM~W^tqD{kh4THuP@wE-JWH9eZ5Y#C5xRr0t4-TQ}Y`UbSMYv*588TuhzM
zwYp`e@_d;wb!EWB9cCFPwoD6U>-`$JH{bL4h1l-Qt6_6Pvh~t^xi6}_Ow-w)?5WJJ
z+OQ~PM#7ntU0n0`u?inOJ(*+4VUML|7rD-zR7mPpv{3A}=Hw{O`8)THo#wvXu@91C
zXFPZ)7i+fjPMK+sB=`MaiD&QEg|^#Hy#7ioC;j1V)n}C(r%I-GaarY;`ur>nk7;7r
z|7w}rmerYOcCI<@{gONPU_oBjx!upUpZ|7nuaUz?w;hqfInyS1wKy$RIV=%c(6~v|
z*GDN>`(NSBD|xlS?*Enr-Iy2<{joos@q*Qfr7qbUKlWG4%g)?5>CTbY>byq&J^vTf
z$4E~9`}o=>^9@Xk)0gh5miZ`uOf_Xbe^KxD-A~kW)s8PQFpqt_bbGg;+SAM<hcCzF
zNp{}~JH4-7>CAP(fSg-vtlk|@+P!vvN_y6{L(aZ4`_&ykWuN`|zvFRbSdeedrVU>h
zio6|XF?n3NH^qWy)-K10Y3)x>b)UAI=%#U1#{VGm`rB%~+3fAn3+^&*`d@QUYO3J3
z$y=xYS^mFFY~kW;>9tG#%-b!u@H1EFHot9hALnmWE&Jal&3|7lZGXZJt;3TIb{+RE
zU0cgPb?WAYDicaFjxj|G++O_aq4S^9J~4qtsjsf>F*&5&GDYj6z#{v736k$C-~CD7
z?sMBTY}wIi<<Z?AEF=OC_(#6KI-^fBckjQO+g3F1+TxWZG2N|;Yq#DC{k2}sOMK2d
zZ_s@HLG9#?C!3GyeO73evzl+3_I%dnpKI>Ubtqx(cDiqs70o5y9(pv{@ay$S7qzy}
zE>8>-XW!tPe{qT7tkW}!>YBK%uTAU_y8A1Fr%<Wy(68&A9fnGGPH^_mZSqv!wk^fz
zdwl)n>bzy<{Jonz!}af33z_x2oSxF^Y%dt2-Ce}_&2Ha{Hx|KmE7?pgY<gxlU;nae
zJd0mS5O?qSYd+JoBZD7bUD$fmqj}}sHM@?=-;WLDyX0T;R_f*+g>6+2S-GeGo^sxB
zw)vz4U6a(yo<BCuFT1tUb?FVQ&HlF+Y`Ahv?yqsgD%RCK0@K#5R$Fk4DKcZ>InFy3
zuY8{!WlXNM+hY3ZY+}?N`wK^eSuRSRzRe*RZaMSfvOr;mikvI{fu-?Nd&*41{lnPz
z>~Hs*XyeVGTiLK7#y?8S(v~ArHv9fX?-{d$oc3PG%zjsOzRqvG#*Y-`9V>6HG?%qu
z@7d+?c3){=f=Shd_NwihUuk?>F1oT<dz<X}<1bRqs49wSykE7WX8VKMRUVJuPBHj<
zrR>ORp|intYcJZgUbHDWJ+pf0w%)l?$>z!%f7^YGm?IG&ameQ0^t5?DjP5FCseLLt
zVW~2c$wKV^`y&euuW7YNP1TnVcI_4468Apu=VkFy>yv8o-nVsD&gRxlzc+Krx;xL7
zJ-ehb$+vddv~BJ$HlJB4+ERR9@~UScFH7L0?dg#mN;2`BCmjT2k1$Ppee{;X#F(d(
z&&QO{Jb1I<=C?PS>??YE(%tx9ZoB;P#5HXfhozB9U)G=Qw0!LAb8Xi_oo*Ixv*{Lz
zPwh^=h?{AC>2O?B+~x^4e)s0Zo8;|TI8AA$*vVpvo{MYu%4~bdp7@JxUb0T=v~AyI
z+*do?zhB(5o!#Sana%MvvWshdlIC-XZ{Br7udC#v%;o9Di`AYSeYRnDScBswy|BBr
ztToLC#KevYhB*d)*;tu0J2}U`zgMx;>nGd0*rvc>W@WwLa=F`Y8#g|6%Ql!?XL8(2
zm3ehfg!1Xi@^jYyQ~#O%)bZK-_vW;(8)Lf!{<zjAudMT&anx?ty={4SX1Gc-{fxV{
z|6BFO`~10Qf@QlzisnY?`6OHaW7+*8=-;6$vwBYMDf@o<><7hSRiUX3-NKc<<sZ*k
zKe_Ph^m_JvbJWzjUToCXdOdxGH%o-4U-7#Glf*tRd*^U(;+#XrLXSV?Ye~2ixbuQ^
z*O#WFXAd?W*9cxHbdNJ)*Xh(7t|{dUMP65Adj8mVDzr(wf9E#;-D~&pSo2K%{l)F#
z+~&IJF#>C*NvK`^`a+vWIODf`PRS-eg$U&>{8I9fzuOpE6x-iC(tYRXqq9n-OWJT+
zV;QeR@OM%BP|lZ0^Ncr6J1gb$YVZ9F%_Qlzmu|-&J}noGzge-!Uw9V7ouaSOCr*9e
zKBslZ_J|4l;x_U*ZFX6I`Pz;@)i>F7|9I*CJ{6JkUDM2X*W^bP;m@zFc$Kr(xtM)Y
z=iDzlIPRYbp8A>Lkn6&IUyF@}cmIEy)*bwLqr!y?5mt{wJ9qZxDKA%Qo8Nx8%i_Vy
zi8XI4x=%k`bJTy^KUMc%#}Aelt_%0$N$&Pr-M_X>?)`SVrI&YW7mMo|cCP#`WSsO+
zJUUkM=9FuXl>*=Ne%Di}ofE0rSIT-JtLf-Rrb2gzGVPVB_j1<UburrfY5vj2HQ%>B
zep#b$o8vhD^@3#XUoG*;%+H@`<t$2?tg@}>!>w~!O5N%iU%Nk^WlcJKcXF)Q7x$IX
zn`6E{bGjltx8kJpA?rk~ntfZIuUXBxWaHKb)0x#4#@0!S7U!b*OLy*_dH2qt?p%>2
zVbT2IFQYD;+;eop2k$oB<JzB(Nd=zyG-2OvridigMYFds*$O$ypIw?XY3ZM-$M&gh
zJG1&=tHsh%HCMM_omMH9#jdk+Bz<+%K3&uF*)!9<E#~lS`-4%Z?iTWG+BfCap+gx<
zCaCL$?fP&}!sx)`+Vgje<vm{3$=#H(xYSiy9=@j}_S(M5vd8649=OrZAKbFhx;*;>
zw>a<i=equLzF+(9)fRYR_MNwRcMs}Z-5M8tp=wvreRlJ0yEm>i-rI5DTKdVyi_Tw4
z6~5KY_=D%toIP$0M{g(?Tb=k-{HEe$BH!}o%_(>PEMa|R`fDF=xwrrHpsF{{-49fD
ziRW(qvwx{}cGIge)3Vof4VOC~=j_cAj$B%>;d0WZ$7eYv30z$A>&ir*?d6C6&Utrf
z?(V5sXD0OW`|;X!Zf^|^@jtZnc#`u;&-j0j*{V&i{ynn)a;%)xdbR1dtJm$k(RtxR
zdQA7ivt4s4OkY-=H0$XTsObHsej@g4%`4IHOV`_Wr?s!G+ju|fa_w!!Lo;3q{kf`m
z=%V89MBAg@vu8TY&og-Vf?MulzRkm}+N-T|d2N5s$uTKTGT*sNK<!1X&DVtOyUucX
z{XbrGJZti_t(BUy_daQ5$xoPCtrGTb-uZ10jpn;dI~lcIAx(OJ%qwm6v{!}2_Phmh
z8<%<XGM`X1S$5HpwfEkXD4D-S$Cmx{uM)k~`JjDSZfZzFRoPp<+2M6hlz%pN?opLH
z(mj36>>aQD*RPg()-0i-`fJ}oeZKj2`q%HSIL*4c@Hlh(m7g6~a>H}4EPHp8J^P(a
zfv}I!t9iVEe~j&RRekZ?*MF%b(5vE4aC4=a?;EcCkTa5Z{>s(2_8OFZ-yazL@&Uuc
z|G%!=uS>4kaNJA2ak}eY`7cq)iIeV3WUt$N+|KC5&fk(n7Hy2lYAVZi?YL{7`(J8)
zaoo#K{Xee8zum~Yv+Zs7eRCm={b#spT`O-zNF3;$GLI!%ZP&)seH^;^EHfWZGWJP$
zmU1%wv0<0!M!~ZD_$Gr}7wqT1OFi)J=S06Jk3`aT>~WJ}N;zcpY1<c#&UdRP*xr%O
zG+C;<e3{P7ghew#SH#@@zw(L9)~y0J91|}cu3fX`#*+V6(hr?l<N3pm=liU>>mM|q
z&$+*1g|J5L+{BXXpgh~Ji?&SHh{>J2uk_WF^Fiy1x=dM|O73Mz#vC!bGDSCW|1}>A
zj*ta)8A`RURb_Rw?&LL^KfC8D#QHq;vTMePp0|5+Ew0>}!Myy~jRTTW_Z)O?P70de
z-72&H{G#2uzv_*5X}dIUoBVBF(<$YHJ$sC@4WrWqww?PdBfeL_X6H#k5!p{++sbM@
z9n|LCXj&R_`QlU|`}_%?8ou$&STk{5g>QfMW#ygzA5N^9Wd7drS@LgLp3b!fvo8EQ
z{bpZ&Uj0K^pOi;a9?kpud~c%Fw(IgUKW!|XCREw?G^^^ZU*IvW+m*jubLKA2DCV-0
z?mw^lyn!=b`fX6d$Jk4JPffgen_m9yWV`(6&y{a}v43_=yL<JBf`5sSy_}~=+{btP
z>6PlqZwe(%C(OTSZkpLKxtI5cs%X=_P5b`d^0hr~rhBoi<gx6LMVsFieG<)A-k>_m
zSYFNdT$in7X>LUDF30(uOH8JvoZOYp>}M&w<w#iN&dcf35=<K9Y=8cKW1HC<d;i!*
z`<$Z>ES+uJtBZoHPYL)n#;5Me4^Y^qx3%t7x6I!Y`k$vRU1$8E`>V%OZSR$9FXY~_
zXcnLO{mhigwUZ34=y0+0?~?eK#N7FZecyqnH!5;}ltzjzpJmz9sJzCaXo*~tA@_QZ
zNm}7*8^zgp9k*^PjG8Vhc6)2))s;Nji<W<#bn3<WDUa@4*g8L7Z<$?M_&ck@vMC?8
zR(v?&Ipvt;bcJh$Kil|kZV;Y7W0uP1gDnptMat!x*Ituqzqm`HDsSqo4Kt6_@xR+<
z_fE2UN<nVc=JM$6CpTq>)i2M`$x3}`9V)y1h|jr2{)(p`Em^p3hjR8w6&H5K{AC6o
zvOlczPu>(=bjjwr-Qn-sd5&*z7TqcTZ|;h3+N%}5i=SDYz1i^VfeC+fQ`!X0KYWx9
z`+xt!Oy!?H`OXE%Gpsxy``7y7eCxFfE+y5~hOYAC?7hFEg*UytUFE4nzOL5So%P4#
zuUlODViNqWGjFMr@Af38=6IFo1s|R%Sy}OU$Aw+onxgRY!s2l41;-1bZW`YC^~l5c
zY_y{j*V%>dlSIFCv@Zym*5etWIO(X2rm{m_xpdgB<8cqo&#Y*A67@-7&uIazpV}+^
zcYa}ZKC^kF-cF}QY)8UgWeY#}dwo`Ub?mwvpF63KFE2k98|-v9r!9B0&YiF~HAT{8
zDwPX&9^h;ATkt*H{H9n9Tb)__tY<48w{E>VCsTZmpO*`N_nfG>l^=dQtmZv>NY=J{
zyV#{^|2COkYx}l))|?cjS<&73kKSmg@*L&O%(|j@?)jsfXqhtgO|0T2ny<_!&H2wC
zeYd(^J4C%c<jp6uYZs26f61_C$M3UYQ$7e4-!w?eDXYKv;n>7e=cKmS-e*7b{vYRm
z+iS;7{jR;s(MS(9*OJ<Q?U$|qSJ~5}aeT98ol^Dv&|bMO@%!z)1rfG3+SSVY>n3N)
z{Cl!`RR@>)Q)cy9K2gGf^YYI9o@2}Vx$|w}Eu$T)tt*abu!SvL|0PMH$2L>^?&hhp
zZw5I}confD@U_{$#QY7b6IGVp2)(#=UT-w#RP}v(PfhzW`Suz0Hs>IZI8!x|`E7p_
z4+qp<+%M`|`>*-yA|Z*X%H^gBRz-WAa{QXNzWU$(Rd-%n)f?vpmAl;xwA5pHAEk;s
z-z9ZM{6@T6;aeuz$b@5R>t3hXmnpvvIninC<*=!s`*=2={Jy2kk(E1t{gL{n%^rR4
zr)@Sr-`&uH$2XdJ4;(grR6BXI>fYsTqH(3$HlDG(_wx$-lLHDpYXz3cen^^G$ZXPa
zNWEyYjn?ftlUQlag`Z+MCz&ulyQ8YU&6Hu$QPJLj&kfIt&pw|Yn`v~f@TS};-?9&n
zW2RoPn5lk)d57TkUH)aa?g-qOdO$3?YOlBB4Bf*YyW$=memZ;0fw*};{q862l)kNd
zS?<Z*d0Tj&-pfgEODp|%FLvSoT%QC%r5m2QX}eS(UiiYWFJRKlc{%qoesBFIx=1VS
z)(UIq-wn&P0@ZcvyB)(-e^svO5I(p;B$Dszg_?&>!D$I`;=50o39jeA+{PHZ*R}on
z_NoK7=PF+IJ9L<Fx!n6Nz1#SIRQz|1Ym~I!YkhkAIt|^cw~c3uRn0ApT9j#U&2Lc`
z+Y+AL!ok}%I5SLRo)RzoO{@G>-u|SwUk@hPGak75|L>c?hDXcRE(>U_s>+Ns$#GkJ
zDs48G?z4N#4ozK?E|bKc9in=dE6O$aK^Y^{%3sO5<iz<Fo7n~!&J#75p_3jy-JDOj
z_iuRXj+LH1I|DbbzWHWP_|CL5hs7j*s(qBX;i#kkR9keH*TfqcPCj$^)a}$Rv1)y^
z^1ENT;d8VPPa?;}{+Fp6U-X#e9GUYv$m`mSKB?RNtrz6j3d41thWS^->a2dZo~gCC
zIQnVU^oy<O3zN$<djIcTaAT(SlB2#y<vyJAn``4^GbeY)m0$J8xDJ_}o2$KAzj>|E
z-m>4O8PiLznIw6<x|HnEQ4xIMrkJ(E3(sF^wcR4;Ho9L=^*Lh3ep0$^uZ4q|VDP+x
z{P?I_Uq3y$EZq0z;)KKXy_-&WO_Z^@5&36U-u!iijT$^3GV5I{*-jS<pWk=D;`46S
z_RGGNkK)Xq`YslF>szjy)Fp2G=iSBs%qD63&!nQCjtgCF3|fM0XlQI`iCCI!X^3TM
zvL$G}GQp+ES8F{ds~#^@JFhEIdg(<}@vQL0>s*e>DM}vqnV`XC9JSKya^r=C7kwAZ
z|4_xq;?c51UjKW9(H&*mxP4g;497B3#8(?BCx5(a|NY0Oyx1#uyZ*2Izpvu&lf&`t
zyU+iBda~-f_K)|^{rA-@`ovuRb-wue_jXln{6BYZQCYutZ}qpElRs_SRqUtlb)WV5
zG>P}~_SSuxJ$Y|^!~e-siqyCM{o#N9pMKB6(k0C{H$*<ZWq&(uNzkt9Z$kI}H&^d=
z*?p_v*H>Gg%eN!q!fxIDsmdxGJFhX4XW!=qV%g!jr%u1#dusiXPki&Y#LkJIx<5Jp
z&$G#w_r}ffj(b?MwcESo)fab*uS;^LEMNCF>CdV}{!a?2%g$*jpEK35Q<?wn%%jtv
zcli`wee_`4x%Y|H|HLbmlf9n32=>xv-0u4C3iBTB`l}nB%azrccI8ITKEEUP+LDa-
z3DbW`&%d)hcJ*bC60x+-pHp+i?3?GtIyDHs?&@8B{<rJ%=da85HJa`+t$2F-@+?0M
zz1JJ;?X{ObT{B&5!L?Lt&8y{~=D(BoVbJP&_$B}Q24g$b{5voIe0AerpCISCTx4;D
z-!VPAb*s)xU0b31=jRvo@BF8ZA7$qM!&r0lkl3!v|94t>GS4s4+;%W*PE6F9mz6UO
zd_MWk^X0iWC+<<d+e<eV<x;mLUmC5}b{VO+o)QyM&y-zq@|f%K(%w0f?OMOic4aO9
zrK?l_@!kQo`S){zZENGMEqQo7e|u<c8UGQXH78p>F1WshWe!(QjGL_A;WY-~e;NW6
z)Jj$;FTHy6a`<<Lt7f+%zNyQ{%<k5$zkc#ymTc{6p97Zqc}tDG6^?(J?xB%YsuoeG
zAN+Kc=5N<K`oAT<6_>7;{H^<)|Jnifk`~RGuB$_%cfBpucJO(!H>&Yx5|dFobJNQ9
zx6?Z>SWKAJ)Ew(<@%Q!KHp$HC_pfEfHgP^tx#hOH#Oiv#)zif54?`MQ6SRIt?sx09
z&b_vQp>gZS@XN=(PZ2oxVOQS*fgG#7FSILfU*%L>THhF$$i`S#{qD?#vIDbEJUfxO
zp+<jxJHKz|iaonii(fz3;QOA-(|Rv&@9Ub2p0EBm-naX)we-Ly&$)4j8;`MYS9agt
zu5xFKt?#1<@gFl-HJ8lIU(>hgrEmQYRle7a+A{Y0|L7)cd(6B=Y+9z0?Ed+w_L@ek
zjq2rj-W=Fg`czin&6EoTWeP7BJ#x?68yQnFxp_~_2@d^VGi!TS7j3w|alWu^a8V!s
zhZl<+52SHM961_qTlsB&z4P>otW1%=o@xfA+?y+Xo|FGqkll+*Qrfm#FHiK_da3vM
ze%qS2XKf>#v;*E;KjFDx;+EwlKJ(tF{PLB5d8vQFzq_inhn{N9=@GjUQ}<))k?reu
zZM(T-E&DDe+38GmZ+-aG_+=ct4*t8kHF~i|@%5!I_n6HMaP-}GP4wQk=T%4aZg)JL
zlAe{g-_hbXOVQ2Who|2w(^6#ma;AOj>#jpHCyCfA8)zIjwaBK8XQ9lDz`Wo|1`e}l
zJf568KdFQ<zIWzAt)oqM-p|&qiMw2zGr4b~q2?*BA3wG~U4L!a%a_GsYV%p{C6qL9
zGYZbzVsCZZ{7lorKiZ$=CvI-(l@iRZwGyAWec2zW4r`OGuh=)wd#-e~fpxv}oDJfl
z;?L`>{<@skFW}%m|3Ubq6H8f<-ka9}r)}3sU#&6RD^<Gq-_PUK7EaQeT(*4>XZ`&(
z#;Dkeb>h*zcc&cK|8V}p=Z{?{y)-LIc;m!TF~#O*%xO7`<tOrN<U3VAU)pcXbbfQY
zV|q*b>g%h;+-<|xeb82RcUpJE<Hxe>KJV+vCnOZ49P<P(y-VBnX3Hhx)n>2KS4b~n
zT^(TbpvG8k_j1kM!dEkA{g_g7p<&(eT{o9L=(Ck5h-D5q`&?*c%4G%(9RoqW=!YLo
zKHOLw)x%uLv21BD<2Hpk|H?i`1h6z7-W{QKJ<d>zJvk+E?!14sda3M(-drhA`^Nm#
z^UKNuzb<x7czlGfCTfq(>JsDmK4k$s0XJ6vJ9e&QRn>XXME@19%4`336qX34DjQE(
zaiF?Ewruv(orQJ}Kb>YhX?;+B?waj8I`2PGxmb3VEhVb;jm6Df+ZR2(xn$?YFK5>M
z_V#?5;kfwpDM_;qyZ8J@CCk446tNfA?BAtYu_aLRXk_y5xAKP>?xlad<tk+PL@#Q^
zZ^w=wnV)a_)tC3HFsOx3&zOGj%Sq<I=TCduxmPLP6%nflP>>ZC4w=1o_j9wgGv}z;
z`I&AFKh|WQue?{VQl`bjsdeM7%k~}oCb?_Xj-1?iw~B}R09(l{Rk3&GkHiCZxR=Z`
z*H00!OL_LBB}IIa9Mg9-$NdXDeZTD!^0|>SRW0#WXX&MdOB}a|26Q@mANoC6=gKZ)
zr5VQ-{dum`^e!;0q0!yt!S)kwx)w>3Z}XepSfRg?b<^8Ia~`Ru(&|~C4=SFuFFe)o
z+;Q)clZir7749}luT}}Zd!O><%f1s6QX-FBNOoA(IpO}H9+NXdq0&4HWh*us^nN?d
z%6yHn%x98Y)Mkl?8;@nO&6n^^-e>TJqoVkl-xT5R6XZi$CT}T9=@mGx@Nae93FDZ_
z53jx1zM}2=8}mt*)or|1%$Df3mU~vmFUhqyMo))P<-PHvU3_WmvwmsundMBrkz#w^
zeUpsk2g}ZY2Rj(I_rH5Ly|%p5k#jfm<SS|cRm%kVlosw>peg4v<@_!!g$;XW+*O*y
zB>G!}X&a;M)7N@0XCKf1@;H>q?nC1JQ;UvYJLn+o?0a<9;(53C=Ge_}y)C!%U*-&c
zU6IfKo;hDSE%nDI^ZMqF<^2T=@ArgOhgx(tFunid{{Q#<W{sw$jXT;dGhIwRc-FSo
z@hJC?J>C{2U)*mpN*`GKDd~#r)5go)k)r%wMjNFYp6p#LV%1%lqiiBPFIu75UcTg8
zWcn((#r~_8p7ZARTxnpg(4+6k_KZ`S|4!avfm50J4^s}l*>H5z>GOyBeU9)uR+Wg{
zx)!+8iHGUarD^(!cDeqk8x3@%1RIZbrTI^?(d81*eD;y|?uWCynNMnEVv{e~U0!%=
zZ^`1#7A;S<^mntq^pyB=M(Kgdgk_Bk*Ii2cGuCa<TqpR${gPU~`L^W;{k6VzzC5<*
zrj!jwO5rT#=KiSyZ+nc3g^p#)UCn;-(eIMH&N{mzt<IL2Qe}_7#n1G6Eckd%j&6sW
z;!@cNoexXTg%#iZb@`l~gmPX{%GTYAi&{0L^yXBVJaas7uPWZsPf6vh@&C)!ygYGN
zWY(NdGnz9maapCizh4oT*`>ugRbqe7E}voKy<z3&{%h{6_74MX`igE>_^Doh#Gs~I
zcj1wJS%uCT$(tYVMeTWM#v~xXd*gKa3Z{^A#^=8#T-7-esrc$aZs#>gu{G72t6ojl
zHCVo)^gyvO8%OZkJEf}EYNz|HH`>iS{~1rn-3`Xu_2pwuC`_6?=}X3gX)gSy_FM_R
z(52S)eRe{7f}_3A&F8OIpN#AL)XkKo%D+d@{C#<C!YflbH;ux};S2UZQ8&tQm(aCl
zGX9)6;V)YYXU=>6q<<G<{+(reut0vs(dBDT+WA~=x^+ypMeTC)nJXJRmYiDtU)Vm|
z$IEEfq4ehmQkHm4V?F+YbHcguH!tHCl(bqZ9$MD0cbVJM(hvN3j^%Iq)8{S!Ae(;f
zgEO-hS567nubq6IT&LBf&u*)dWMF<ZzvFH^kAHuJ=(i2;q<5EW-mz?ZjG{;S=KN9_
ziHl+xr_^303%hn5TetD1%dfhF%1^c@S6p4gEz>9xr+Vhl8pSUv6K!{H4E^yxphL(=
z^-!1V?r(=WTCc4;@-y6mZE0TrXYE$bYyao}Et$r+dEf7sebsJmjg73cuQ!|Ix34{F
z@OSmBpl^jv^>g`-iPUjg^y-<P61Ohgd6H?r?y{DRZ;w>3+bwY6ne^tA9Vx#j?yb_E
z6t$6$=Yl!s20`mbtxuQ}tOPB}S(knj|DGYDdR)-t%BTGz%F(WSe_kweSbKNcw#iri
zR4;kcm6`hKo|uK&$%_-Fmt`!?DqQ?1=Y)9L`aQ?u)#iUu5%?6!DeJO%vS>nW<aD#?
z{4s7t5kVPW|72eOFnyPKt+#bJPx>nXqZLn298a`++OVg?v)ImKyLQ2}x#90sGo(sh
zm^ohlxY0cQ)_(ClJXTC+HtwHvp}VYcroh60Gd4X%Zw{-!STKG6dWZD*1r1%6TMI;1
zSSo*wWZ74gzrugwgeyOTQdgXvssBnjx}ABRo!e=Fx=dd;!G;89gGbBaRxl_m+U)-+
zv-fDUW$~8AXZzl2FWFQlKl^=9bjq{NnSKeUst<gf#k|B`SIM>b1zV)&k*m$e)E_Z;
z?T}ifYq^;HgGmD0ECaiR$6uXYbzn}*x3Gek6A``F7Rnu3&3jnuQ2&F#_8mp#zn=H5
zIuX*j!>MIu;DX*a9|9*EbQ%h--rX?yX40t+Kczsaq&bU}xt_gyWR`S%!P`=;Jvkp5
z?9{lqx3J%QwA)SEh1<9AQpEfYIo(B0tW&sDw`LqlFnSVG*eLcaxJWqowS)50xq(ui
zJ*WQfeQ46BZT<N0N2P1ZN1R!2p5MYQ_CKxVQvZ!>hADO(uZ=%nH7~i<%JQD$&9}_6
zdF#5WR9X^Uziwncns(zCN0;s8EpcTELZ+wG8n3f`x!Yuyd}y2hygl23*>d@ke0Ch1
zc=+7Imy&n)9{#*CCHln0`{F)sPrpVev&YN}e{C0YSVf`zox>;7+UES~*=_f?Eq<je
z$n$Msxt062`cI-K=NGMVPwc<;#Dr_}%e&=^p88sJH^*#W@NC+;d(|wj+}atYZ0;|6
zkjwn&MsZWslH#Ckxg~yw7!qeF=DPfF-?(`n`;X(zhc2v^GkLZ7cZS&Xpg>!`y-J4#
zX7TQD&#Bkx&-@iMt@-`Cr8O#+ev6j7d~9Xne6xMUpMcDuQhjat6F*$qZ!Bl5_1U7f
zhm%Wr+3gCh*0)POJUO`N`9{7{*UINPOP+fcEt<Rd_W~EYVveaTuihq}Ym3Tb@OGJV
zW9CWQDRHSKT)|7Gv*{JiIv)LC`;3`eiw|~WToI^OXvy8WGymwFw}v^X6T`c_J{2)7
z>?{BK{z~BdhLUGr?mVuEd{z-S)o#%$mE}2Sd8*46KR(TpcX~~fR)OJEUY)!O*2mv@
zR$S7^ORHFAY?<Vv*Hk>~z{RNx`NB6|pDMHE^Nh9~D=kDGf3o3MOTWxHc`~C%RZa=t
z&WZcBw?_u8+W69ZE|XrwtQRIS*JG|^Dx{Sd{|wvuVOxir!X8f{O(XAkj_i`_GsWs3
z{%dVbj=6VDrhVq=DK>|{E^uQh3p!^vY5TlswqDLp1t+r4oRy>%!Enb<ZRvfl{H?uT
z*QiZ7(U7?)_d~7R;iu^n7oI<IJ+bl<PoV)%{3*#;tMg8Q!p?K{7%eydvr3Bl)F+`C
z9y?ZgspqR6z5Zu6he=M(hF?W(1@p4`w8hV*&Z>B>IsKNs<8xuTXCF@Z%<_sAzBg^o
z$|;F?XYRaOdhmsM#h0*Ul1mC21MX@6^f67z&EX6==w+&WT5{KlkdQt$1`p2UazU%U
z(ygy9R&}rmePfJR)?qdy;2ei9gXfib&7QA)ip^V|t}d?Z$z7Is{@}^E*S_UDT>a!L
zdgw%fl}_f`Pwe&EisenxrT1C~wugz`O$s#?JQK4at9h;Nog?3~_z&zmFDcJ)cg-`e
zyASo|cJ4aJ)ZV9<**k~newDkw-z4@Y+waa$lNVSV>f2GVxp>uczY`~}U(a6q@rktX
z`ZaFzQx7b;p0Rdou-^1blfw)?NBv>3%JVYI<Lzb^-PFEpf$P@h!ZO*oOU9elC48HE
z_(p5L&4Pzv6Hd)iJpJpwWYHP5?Ke{DFDT!4HAzXeIq&!U)zg4Am%n}PIJ$pRcKiGZ
z%)a7A5&7lKt5~LOf1ns=xahRW)c~>P9I5LUJM@m;)ZuV(a@I%`mhf8>^d>0j)y1DZ
z@4M`_8^1_QJNB&1)Zm}ti|3|xTylGFvs+1<&Df-Np4;Sfvrg{xvb{muZ|peY<4}4v
zPRZcXbLqP0%W{$pkCmCp9NPaodaic48T+~IGsH5#3V*y?((`SykLdSkmFy_?8xIXM
z=ig^NXw)cB-l6n!)^VqcdbMF!_U`Kvy32G@rOA=oQ|0EaXq)gpCZDB8Wdvr;n_;@`
zaq&veBZ9kFS4YhBsTXNT^I7oRD&4#EZ6q7d+e<SgzMo=noiRc7aO6(&Af1TjB}GTx
zuHZfuc<1M);?ioz`y72bcTOHU6`jvon4Z4l{*Lwk{}wLXA5z3Vd+q9|+Sh5hHYrI<
z-<j3(^XuH~{2<JI{@z<rU*4HdbY@GL?1_y%XL4fWxoNvk*UXP@U2@zsuqt1Fp}4Su
z-i?ISYcf5p4}UYORkV7nRQJw+@A_ZuS$ne@moDh6n0}da{YP$zjq@C1+yunyy8p~%
zYPWP-&05~k`g5hqS*v-EyZ!9v_wVvJ!OHz`gH-az5U(qnvfX0EjTly1&tJkJwdUpB
zzbxBB`geHq9~AGpa!yF}v}oeKR`sP<ddpvMWlY=c`TAAXyJPEHqa)t2@sw@MU69NX
zujXNNkU8|}t++|XFV5cB_Rq>z?x4WipE6sfny+U)-8L<^H$Csg&28I{JrP;SvwV8f
z<xSsDKP<9TN?{H7b2TDX@4nX8g-3UE+r0K;;!an4`RO^+Ya_SRm2Ym8<fn-H$yX#y
zmv|M_>*T@tS7?>mjukTZwzAbNlXgCw>%O}tuY<c@wJ4!6Xv4J$T=qNp1?^3;-wK)h
z-ZG<SZTA7a5F6h18<I=aHnQ*PlA6)kljESx{@Qq6pW@-_Ya2uDyFX0l{+Tn~&t1TL
z<C!J5-JF<uZEqSaogr;eAK3j^(yw!IcagcxLA|!69r^a}Gav5zA8mX{^4HTUW2ZPv
zwMElcoY41WZ<aeF(7x@)k*OleKmII9Ui;(cWi@ry{>Q<d@pEokPW8!@m{mO0BPHS4
z;c20zS0|s4U{!i`jz{UH+>Ng`f(0|5{{8oa_s?eex^@k(y}#1tru?jneqFI<Ia}kL
zwz+2e4xPz3kdPt&y+7LbUqD2Y$5T;59=q+;x<VhmZ?~OR@;vNf@PYYa(_#hc1$7MT
zm%cu*Zhyw|{GH*O{%d}dcJlYT{XQn6D@pBO%AGwgr}e63w+8(>+VW)S?cV&Qx7aUT
z{Ph3f<fRv{e?FLJxWyxMO^oWaS393gU!1n{E@L+1B?D9UgMGT;znz}0xU(!gI#f+;
z8C(1di)mj@th=aVe);^Su$+SW3G35?4prVLN=RQRw%6s(pU<UVHZZN6zwAZgy~x|&
zuN``AJMHdjkzf9kXRTQn{jFaA!wmkjuAVEt=45Ao{a3Iy*F4BQzdd#(?`uz|BQ5Ei
z``_gr$*T#uV8eEX{rB6yFLiGhzUI}m=z1`Nb*0fF?KL{y9naTqyn8iaPvqmG*Kg`2
zj-S1?_;i_^@TMCJ?i;qe)cYd8d;e?i?)f=hvlhv$(S7^m#Ev4{vkUcv-qy!GI`H`P
z+JZKP-%n3G2r^!;{dt4u`tKL&O}@*O9dX_I{YBZAUk#z>J_d5VU!Q2Jr}BfLx5F!A
zf%4U~E1!h5HwaJQ>(6NkKCHmPZ!0!`{Z65x-&gq7SyfCrTl?knyRB>AHr;UR<oVUQ
zLdt%E@haUti_Ws#o15C-`_!y$@w(_esc!H3YJ5LFxm5g(VV~GRbK}o_T5A*Q{$JD6
zd+Bkw{PcpwXWCCFuUwt6L!0qfv3Tg>%XcRzE;ZeowC#IXf&Zf0N^@M^-BLfymfmV`
zS>|b*6>o^uX}zD~8rF}EdJmmgXV))1jq#Do(U@)On~pM-CA{9IaJ%cOqD<GZGHI1(
z)tR}R--Qip64ZGOtEHKK25(ufv~XJP8d;eIm3n(3ue{GKKla8pInL)=lEA%-?*E0C
zF(#e=&8eVLe=X^C%i+2=?r}Wr)z6$Z*NW6I{K>fV(7j|+W?%ja_N=)Z)OS8yw(<8%
z!TS@$eN%ESB~C7Ato?Vp*l(kBm%X5Cq%|Y&%U3Ht2cB7#Z@Y_8I7%X=RyO{a%e8(j
zJx0qV3jGr-gjRoPyZwEt(;lJ6FMS2BbWFZ5dD-13A78fpeVr<)8XfY!MrqZ@%9U(^
zd#uljX-OERtzDHleY5<L57`C|OU}gd++Tdv{FyNKh4^!I^5u>!o|8Sor_5*b{k`D9
zkA2SKF7F?BeEs*X%f~jd>F}RFE>nv|R`ut7)S9$;sp7gtx7k~o`z5Z;FugMML*{xH
z=VeD`$j9gusyppFqM&f&quAA}QD(}^PD#ZF?b-Y)Z}PYBzaM_QJ9VpT4ySEgR_!)l
z_g&pnJNTk<3?8-BxWs)6s7hbUbXhO(`qrN_68g{dzD-M=pnB?V#Bx=;7lA6Z&ku4G
z&ARa@oNG~pIQP;=T+c2SUTOTjlW$2?M@UBB$qEDesmu7MwB-COmE;z?xy)i;`viyi
zMTg?gm2b6Fsq9)59CvV{wA0ZSN4lbm3pW=hM%F4kOUip0s%hrmCzoW~8>O-Rc*P{G
zKG_|q{U2q1y*jnt)05A~Jk<8i<AmgUVMkYd`=_M0xXj6Kv&{9&*S<I8-Cey;Ioc(4
zb%V6rjhQzeSLPXN*eYr{*-j5LnX#?9(%}3tpGLFxPY)MtDL60m*2M0bba(4}%TJt}
zX5JKkn<R7Ssmi1yZ`p+fS6n{Re)U^G{(=&}jNU^VIqJ7~KX+OZ9WA~8W|+_P@&@Pl
zTcM?o`FhpkPQ)L*cTa5D4(GK$qw;lpV%+Ws9IL))nC`5<Zy}S@meaCgH<}VZWzSG=
zi~8Bha%IMDeewDmhi|h+{eLdOCRO@i@#9G+wsS;wmd<#x;y~WfZQrwZSEb$gV!k-y
z%~w(7$s4MQp9`oh_&%fQ)Fjd11slI<<sUq?$Tj$ylwZ>>8zrgtXHs(4E}JLjo_5~9
z?Ao%K-(vdnB&<qwv_+rz78{+6h%fs$q4YJM#*{x+nE^YlEMcgLFx#%IQ*gF6Hz{wj
zyYBm{;QRlWPI<h&EK|~(-C^!<h4biSgLwO;^YiB!ut!aEveaI@G3%q5M&!bs5jULX
zXL2Mxd*!j#{W))<?md}PtFzZ^+%BOd<HLJo;m1|YX>+)aT-+rZ&Y!OQB8mM3Q}>x?
zdmN4O_#6a64<$P}tjIIms&w<|ZSCh1DqE(!$y=@E|F359jgVimGwi3YWnMEg!eY0!
z@1~p1%dW1GuvKyJ%4h2h-}tm(NoTdzF-;v)**B)|t>;|Nx--$%P>W~fmrqh*OTw&^
zW<>IC5a9hc<5b30y+qCPf|(n4cN^#XW~cD%dU(ff(P_`*U^|vW0*j=aB)=wRIlhnC
zy-dNREN;dsro!7#_va_?G<qzv<+{;9(fz#+4D7;5)t(zRRvZ+w(7)kSEO+f>=)&gn
zOAp?QS%0NoBt&=hy&Ag!7hbl-JTCr^?`G_6xpG@_k<ttk)ue4ff_0AfUOxYwD#@ny
z=Wp%`t&5vGFTQGhd}r6cIF?xqEC2H~t+fp(Tsk98b4SpFj}x3O7S`W3l-k<b+qXGw
za`pT@re?|O;&K)5<vBmK=#TpEsiv!5aa`!*9`F0p7_aO)uNK1JT%A@qJ(a!ujOg_H
zdATjmX02A)bHg_M@5Q~LkHgL9`s`fDob4Tb<{ryB_lYbu9`66Hths(-YPRj`vgzG&
z+h>P3&g$5%5r1U1TEKCY`Hy{tFYo&^_xhSMYrb^K=*`_;<!ZI_fYHgKjor)_O$E3v
z*<SC}&z`J%RQ1=)NiMmEr)pZpC#`&Q#5OzNzyuGy2!WGE@)LTkyTy%kY@Zx!Sf}fJ
z*l(KTMA@4Y=bL`cR$6skf!#0ld+-N^ZGP!HnkB9<-VU8vAag{>|L3I%Gq1_-QrMKF
zxW=X2t?bOUb^4xtxt-tYZBrAB^jXZ89XvRzbIvD`Tcx|FX>7lDYa{oLjsNC8`EcBK
zivRx8D-Lt)mYF7Vs9l5gt?#YfChFE^E4TeV@@L8=lc^W?*kwv@Of8+V`|xl6#GX0-
z9GF}_WLe(r{~&X%<GzziB;T>um-Rnx{vZ;ey5D)W@6T27IbJ{Id`+A$Bvv=`Yi;P<
z+}$YN8p*!7!IQyu#T={9imwTddndW~9xt)&viz~fS8wb7_1U==Jo5`?{o7V!+OG28
zyqwNSApzcsIek7{ye<VS0Syy8ue#?NJ-I0Uqg=Ff>9S3GjQ&dWGMOE|%4~h5+`(kJ
zlUIr2=|@avY_Be_S!esk;AY9wSpTF<2|=@+wiz#**QFQOTRt@U)N{npcYg#+afHLg
zi&BLb7}#yp(q0~z<6v{Xzjoi+jXA6PW<L6GC7^i<uh+FpvCV5;R_nyCiv4es$u*sE
zKEHy9^6pPNHCpbtJXqEyCHePs(WmP<TNwWuu|9ko)UN2M@Or^j-M_ijH=eiEEa56z
zx`JhsUx9;Wkbcn__c-1Y2Z|*eXH=D&Om4j`b5&r^#+6IHURcNQSjXb<mbA9O*LTA2
zHRXz?&pW5fSU<}mJR_}FmbIU0+uG|Zg6^E!o>5q`eX8=-CF^SMtkC&zwW(M`x8XVC
z*-00^tW{!Q4hfpm8lLuSpW2nEMA!9qBKM2+=DfaMm$cL5!fM&a$)erfKBuM~-01l&
zx8tGFp4Qc=vR}()8pOqPpKO_-W@CF#Oh@6?t+!W?>oR17Ou5@R!CP>OrkBv+7m4wY
zSF~zt<)4`<$^W=|`|erQk>O`~yBz<CRxh#Dl&U(jVCCFDn+0R^o_=om)A2LH>a+6V
z0{b-kdc`;A8G~m`Gj&`g8q(G3QMERKkLjArbkQh%K2_W1#Fxc0URv$#h}^F$F!Qzi
zn}omZLRkX6)zhp`iVFJeT|P%z`f>iu??q3`9$mj^d{}&Q^1R+?q4ti#J!g{zZcdzb
zKwv>wcg}}*yf?yZj>cM~OgXaY=vjWN+1G@Z#5z0tQn|p+bv6ITwUj9$2YqKfED$Vk
zEnV@3?F5gH?39Df`2zP=9-dxpv$^9Q@25R?HXdT_(n$Sv<#~lmUF)(dN!3m7GjvOf
z4AQvg*cb(~`-uL%aY4+@^xqck_(wX$b(Pl3KlUiMO{n=%w`lv+TLBv%#dh54@st0i
z6ZPCLes<5BmmfFzeXvRjNILLVYFdj+N}tp8qJyvg&DySbu4?Oizw@_QUGzc)-#0zW
z+G_HLf9tyE%a&YfVXapA{`;)VCU&EQNdNOm@pq<$UGo0D{Grv9?nP&+ck^A5xqicN
zb;M&!mxx_{IY*or^wxy!Jh|PCVZpZTvof*{PyS&2GTSfZ?G0z~n|d;fwiK_P+!DHK
zBgaOcXJta-Q=Ii$?wxQ8TfBGICKtY^HgN{Rn_u1b?K-{W`=;}ST7j!hy}Ye+T5MjM
z?oqwqs(DJ;Rh|vAJjA_hQ<j<p+?|!Oz04r(P5zxtyAKp@+3d=@%Fw&#OuD$Q`@%SB
z-W&H0#kBM7T<283T=d16i_5lFs7|lHzvSGsmv#0HT+UM4N=sL6Eu6aG^ZKt=QUO-U
zu2T6i)@i@pUIym4<>-BmG2<}HuqhWiQ=$2NUVdfsAE9R=MV|K!r+vB65-+)hHN@t$
z?wjc8kEK*DSBJ?&{mNZc`Ak9o!np^%mwu$5{QSu(zWB|x8D}>svIzv|U9c$hu%2Cf
zCsFpHm$c-qn{AWso_WPn(Z8Z@$;wQ@pK@tuA9KE(wtLfsHB*%Ai|3ec)6t3ibj@_d
zy<Jb2y|kGYb%(vtq9(u8lBeiR{j_&NWgVAG@B10}ow=01QRXd2u8r<qcQ-Bf8MhNc
zV*lH}ldTF>DE+_T-ahT{&uTgW&C_q3ZjWcteR6s3$<QUg9yB{=o)S7B7Z~x)KknFD
zm#=Tma;Vl`cp>*HcIB!mDQEWGUQ$&v&rF-$&8m=J{BUAdY%pWBL0$Ity_0U={3d&8
z)m*;A$u{=QGN<O+^Y|6K+jqA5*0E;AxcuJ}gI|1!{JBkv$+)6ipl#PJ#TOb6H5arW
zU38<jU>$44<me6ACj&$E^i5;7u{HhP(yS-m>n|0^6Ru-!U7uaN@blYKQQdKj-&#(b
z*<-6Gf7LO~Wj*Vv;>|3D4|x7<5NgRk)qBY~@`#}OCfm8E%FL&v8uzIEnSCoR@>ENU
zY>Ly<U5hlW<-$%x&evY1bkNGKVPflcqprF3Difl!C-(N5)l@B+mV2f5tLlwu5_NOT
znV;BlR0X?zI=yh&k~op?dtJiT9<<`oRkz|>9oDzt`)$!~;Xka#X`gum6)#<hSluh#
z=<+0GyI!Jo{mWOLyr$013)IEuxNy3MxWrZ}O@H6Tn&A9{J2~vE?~!dTF#^UJ#|4_t
z3mX=vbF8WEVV{`sLm)!nQ^wom%^mG5Jg>Cgcgs0jE#{B-#AxzK;cUZ?d1oH&iwX)k
zTlm;y?}XVQS*7onxk)7zd^tY-QRfD=yC&K<lq9N>zir)rbvIw@**ouL`&MXvR+c^X
z|JGLf$~74e?yT78q<t!T$0WN`_x_7L+Q};HvZ#9d6@!zBcWOf0^sY_Xw(V+LW>3$P
zXAQsoZtl4zK2dh(5``G$XAk?XY2RDSwzK{0t)iRzJyitM4@~&Xsyt7lGnT!NCr>T*
zx7*>(eokgFx8^O`_$=i)fB3VH=gwY8e^eR2wtklP#iI6wwtq$YQhc769a^%(?SnGM
z=Qm{u*2ii#JMDY_r|r~wBV+r{##3tC{Q=YbR_PpYTqp5p;s&O<4=(@Q<9()*hvCka
zx4#}~+k9K5|AN_Yllq4rC;Iv~H+WgP*qBW`XKJ(Il)&W88T^X2&DHO{PV8p6X!F+5
zu9xeHyLWn<jBNY%wj+6b-|D07Hk@0tW}(u;Yt=qCr4OIV6AReiIHS#0=5>*!-sYBl
ze~%nec>JzZKk-&(sOPrl$Es&v@G;ZQwz^=Im{>81>&op07Y@PHw@y(rKU;qkIF|SK
zx6;>JJ(sxOzHV2MNVGYmxLt(pN%y9QbE=QMayLGcuzkwMLtopnZvVS+y!gliN3jnV
z3vauf+q3p2=ikn|CG#&={_{$GcH`F+$2oE(4pVOGzT-MupImV)^WBaax9-iT)_Zzu
zv$j~RZpcJtZ}BFJi9ctn|6I?g&nCZgnd8xti+gHU_exmLR2KN2FsaS|R;=dn0%PVE
zjZ?SIDgSA&DLcLYiA8%+w`xv+V}qdQkE-XDCpeDIyxzFIDkJxoZsRs9*&|mM*gsM<
z*uFS!%W}0vf1lQ_56Ti1Z;O;QQtO(p7ydix_e<~MGdj#>rt)jz^RHeh`^L2{CO@=9
z^YYUa7RAiDjIW$lzG0Yk_MGzLDaTtD=sBCI-{#9ZaxAp1-u?iqVpf#1m+&WZ3Ee$@
znK{uFe_tJ&<C1o)YTw*lZC9U$CA4U7pS|X)=(;t^IjNF1Io*Ym<mQ>^rgcYg9-i#D
zFU<Bu(b)^lMQ^>nMuyMp5i~Vf?rQv!=iAqWm^0#ncfww3R4hMcDRIE}krVIYm3J2#
zL?~xWdBM88IDK-Y@4d7wCsJ*AJ<Pa&^S)xrzqm16Aa<)e=j?ZETPwT+OslW$)phr}
z=C;08!N~2*+u{Q`!4r}KudCgznRE4PmQOLuZvCmxJ!aN^cQ<+XR7Yh++s4L+{XG-1
z7QL_)4C2V&{B>WU3;UsS#y9Fk^Iz^3O?+>xQm{$y@0M+oc>Xf%s!Wu;_I+!F_sls<
z3j;0LE*ad-D&qC{e!L}b>9Tm&g%w)=pU*z3k<_9d@@_-d3-wZq&<Fd?=jQKUv-U`#
z^89HWJ1;JJVZJoh<zF7pZf~(|>BZHPEe=PX^(kh}D=ErsP?ihbR1|K*uDAD=_P)Y$
zz2|%7a>Wn6&y#*OU;Chc^_{&BE~$y6oio_^+^41eqtPQFqqIcHqOPK@c}Gk-q;fxA
zeX+xJ#oF`VnS7a@xAtCm-0<Fc#Z|duk?eCVB|b}Bb`&@wwPUH#ag(j9zZ9|V<-5~<
zdcR5ByP2*U$uE-Ftqyz=Vo1|3sM3(Wp|<V|&l3xu8g8-ao#M{Bc?(12?OGQ-TfyId
zqF-{EcBydF%DP}i*=I|mEy~5?WqB6mmD;nId^)K2+V|$S)lZ+jUD|r?lF9*1t&E`L
z?YipUWvA%G7NuDioEPohx;1>u=ObP>mu-2kW!Zg*@9&JfjzjMf)+tBJ#qHI+|FDW@
z@vU1G7gle`tXp#DpQPrF#t*i-?mOnBZuEP%_NT)gGq22wrCMQYnqU4E|9(+7^D1-j
zl+(-aCT}`=*`VCIF|4HMsN}(I%Ci!=);CTJ$@w66Zx-MAPuE|t-MBJ8fk8UQwy$7b
zPHP8;bnaXWv&PR~ruW;MxqiyIe^aq?%H#<)hu8AVd|s@1YD!hHd*b%>0{2Q2GPbUJ
z=j9=sVwho7?p(BLnS9^VEN`96=P8_}V%bNx8NG04Na~nlc||<=hltPOgGZ-+zVi4l
zt9gS~;&ICrn-b5;v#we*fg{SaW<sUZtf$vzbv^!d_fFxwtK26}@<;OIMErVea%bNv
znag*b<SmVp_Iqbrpa1-{`f@?^*9$e1r%d|u>E`79^`D-~{zxwWAzxDeu7~Tv$)na4
z68e+(R)73;(p}#E=ZDAp_x=90I=}Aslf(6Ug8l9Oc>kH-|L@)T2lM;?|9O}0U-$E)
zEYBC0sfDlX_2cf>e&IQseeX^pV{yS!X7|cxde0>elwNvTbtip&@dn<q`))lJ)8%Jf
z*vV~hU{#1*g6jpP0G&C-edn%J=M_)5{AAs4HrJlB=XluCW#8F+V3YX4*LOSNhc4@<
z-Rn2}>^SUT6)-zUs`}U=1F^#;TrZ=VS>K-0U8wL|?2GWN-G4XcZ#%A6vBPWnE3OL)
zH+H(zEbZ^PW*v9AMcjA7_TTL%V}b*I?%MeLw#8q^Kbk5xa*cfcbIq8`dAm1V+Wf!B
z1W|b-GrPwuw{HKPYxjQr`-v%{*BbMaFK<0?q~TnVrNi&1=|3d5Ke<p`{qyR#iF>rx
z$Lh2yn^_;en)LIk?X>K+JFI#850~yfv+M7R#$ErDt3N4=SP9mhdb0oiyHCRRt_74`
zd-Co&zuvl?N;BWdR&7vw#C!7If;k&foaPq%l0JX(`G>og1lQ^9bDLAUKxA&t&TTu}
z80%WOnd<MfbN-ZWa{R|?w?}RH?546e54Emr&tUnr^nh)yRF843tAg>qOFhEvo!jfo
z=7`pt`E{P%FIzl!Qtob5-}`!1Mx_t#C%$4mz9(sm;*YaRj!(OfTGdA!uszjv-?N}7
zV%CBC``%8@dHI>2&w9Dmq(2GI?@XO*J?CDS^rf{s?>on`%wo$~#ov(dab4kq*U{TK
zO_n*Hw3g`D?$fOM`QqjTmM;s8tr)_Vc@{tO_nTewbMu+sayH@q75|GJxxVa=`}XGc
zx!&BykKNn8n0;s8!@KoK#b?&JinFVBFfaI+7!l$XF>lX<i%nnGtT}Pz2LD#?hUKdF
z+QO4x=60?AFxkDd^>)5rebBv)-@cfKh}v01h|ggDf2XxZJT$b%^|5i!wU(n1dIxqz
zofLEmzo0VJqw|&|>oT)8kD5hyx{8j?`LO@qbK#h7;o93(vGMQKzu*4g{rgASl|O$c
z|7TKV_@0ktWixoOGIV9Lg%NyZv!Q{x0>+`sh6WZ21_}gMHlMBa-W+qhaM^W<*7D6W
zZ{A70Z<zP_%I-di%@cB}&TPzi-T1*J;u{l7#)hM8juV^O=KTD8Zq4zPXI8Dbd{=zB
znzJHjM#+5l)UapMXU3=f{g`LDYB%fu;D7(G-cFbQYj$Vv&u=%2zVCmqKY!lek2AgE
zcWD3r{_5>r{rCsd|J<#L+57F=yQBN<Pwx*aKlgI+rSgM2lY7eb@7ewSd+?t9f%vec
zcO3KU|7;ik|NCZhta9B?$K8)tUHkg(X!eg^^WS~Fxby1j!{Xmh7n*j*UwQcXH~ZrU
z`HFJ)?rHC6iRFL)>8Myb|NTSu^0`|W>;5M6*tV(4#oe`EvG}{+&%@^5`Q`q{u5JHb
z5x95V#M*~njAC`xt+t%=Q0RlptrdsoznA|~*z2|Ot+b(xo%i&PgR>96tZ91w)jfZz
zWevammeYaR<rZ7jwd#vjFZ=#)&t2*L3m#u|kB-x{J-YvK_l(7j{`Ix%4_(Zx&gd`5
zt3UHv^lX(y?Nl+J%!+B3ZP$Hp-+$H0$nfY_30)5@UDG><55?zx_<1^J$-cU`@%$Cs
z`(3o-F3UW8_IA<!*7kr6a)w^wydUPB7TWH8U%XQGUXFf9%TwEZ8@k;0>MZk6dT?o~
z==W=nyQce3wtJ~6)4RVq;8jL-YSU8F59hfv9)=titL4d#y}cx2{kyGpQE#t2^xhE~
zW5xN>RK|40qt|LT-p@W&bJb4uRp^)S!`&jRCLdmIuQ04wlMvYRL1RP5>i6=cm*;+3
zk$)?-v+MinX<w(Wk7Ag)COh;T!|G3!)e@g#e0SgTWUA_0y-99*!i%N%%x%wbuW)J*
z*T_%pTyxrYZzubrJx>Bp?3D|M-Wok!C1=9M%iTMxKdw&K|9AX7zf0Ql%m1@yck9$d
zpB6ThjW-oNVE$o)qQk8tCIX$4|5n%W#`As1ns>MP&pZFp%Twm7Ry&q``1!lWn)&^|
z)(nYr@zbkac+J>-E-ec22vhr^{O9|J(rBYie!c;|SMS9di06NZ445uj`A+{<@#0gg
z6%E@=H0G3_-84D-WK+#m6<dx=VVZnOUfo^454zpBx#8)78!Wqb`QBA7WzN4iW5;62
zZ56l8k9JPD>y%e=EPqBt%-UHq9!>wVlIMhD_AkxAiSJK5vkqo=&Wnp}<8GhNd%7)q
z>KC5;<c@?3(;AzvW+~~ul6mm!pM;Ns)`q?Q2l5|H4GHZjQC;MnqCUTSBk#2<f2Y@!
zO}mr8IC-Vo?ANNI!5<$i4}avw%AR8ybMLvS<oBc5e-0J3n4evz$@yz~MfCeQT~Geb
z41LowWm?vU%VrazQ~9?=J#!L$H~G~8yY}C&OCw{VviQZy4t{M{jZJubaCOEFle&xT
zk8LBSJvgIP>AGR!uDFktmA^wpceK3UxMl9P9QkA463zJ8_OMr6(K`P4ud~B_u0#K0
zCqGV@bFgx8;W_PB@|klw6CdCH?KtymhHmL8`K0-b8m+BwUp;zz;P9WHa@TwpZa!AK
zW|QiFo-2oBLO;w}CGa!(?(qi_sjL0(R9v2TIXg{ew`gJ5MgKzn?1;$=HWeSg-FTtn
z(?72LJj>YQ)+%lHdwr*hXI7@{nr(hj&viKNq^%9!F?I7bNdv9O*9ZRlZOP-zR_IFS
zd9iKxii(A`Gs5CsZ>;wDxamo=(}tfLW^(O0t$&~;duxXG^{FRz&rsa3YH{!uJxTQ+
z&%YdU>9}t?`|_0z&d5oL#+?eH&mDYwUh?c`ZeJ++amoDeH#pwAoZ;D+X~fhn`|^uF
zcVqL#mh?~k#~z$}@cbQD`jb74`4{;2=iPt9+kX8@R!ywgrsUn>1*^}5@5$R8{pWkQ
z@8%i17FfpiC>hy(e>m4$AjU=N%&J_uA0drAGrs+={?G8NEY`L`^wZ(sgQxGQ?&*o=
zOBUJSxTz(LDblxT(=3A>^U^g$CH^SSc<1xyaQ4Ml`R~s?&}saC`)xpvtVKKfhQh}B
z(#dasmu~)^-o@{?!nWJ9?X!~A|5*%Qg>U}O|L|@D<F(Fcji|RuC)oc<{>hwC)mwG(
zq@MYPvp?EcmM1LXT`BNTe^uR2Rl#d&IW9H=a_dg{e6(EfXmRw4m6M8C-d?|xeUoFh
z&ASB`-X<%($a?O$UzB^dz3W>uu><-}?d)rrZC1=)V7h5lZnv4aL(SnzhKU7@ork{^
z_&&Nbk8indx2l}*6TWY|t$acbr~XL(G(&Vr4bOf??M;Vn_hlzklpNS3E^Q@O#A%nX
zk6nOYW6Skm)>9h}d%RQ;JmGoq@%HZtul6<?Y}sec5-fhvsrvg8eZfDXS~l!#DW>-l
zjh^f%vzw!my^X`^lB}n+4#zpYsB3L4^ZzW~!Z`0<@Pl`ZOB;iCEa5AR7Ao0a#`<Ra
zip&dHi3fEmT4erO9ba?r=N~<1gY22XmVyr#-()`idb)IM>sN(@38jW@$0p8imfXO&
zV9xG20t#Y}U3fgpzQ^rM5tZNLyO6_Fc~PoD!~~YP_Vb@ui@R7a$YR(ZE|9VB-TMzh
zRi$3uNwF7Y%p1Pgf1De}yI|j)gF1I*FC}YFeiQod?EaV!d>@#8hQ92NTYRl@dFVf0
z7Nc^xIg2{^>X~<O&U*ho;pC_5x^EaAD!aw<8?}1l>u>D)FT2Xf#U;Cz_iW%o#@K7+
zihIwp?d)PbFu&&0qnn`W((mB8FPb;|Pl*0oC9~%G-0lUxHe{^7XZQQ*^7D4TzR17(
z_vP&G^Yd%J)W5s3x&I&E|L4>9|I7Zd-~a!!clz^cKfS!0zpS+N-NCFx$E7_7=5lAR
z)B58o*1g&24Bv6z2Fa^UH~SVbFwS0T-d<7YxNyn+Kij32c8K?T)(G6Z5-Pm0M%`g{
zmJCPcOCfDN*L9s6lpn;Ok^Svjyy*IICgT@|$C#d6a(%Gir@J=`pMFPES%O5s2YJ1M
zofDQE&|+>Xa#Y^tp_CtHs=DAn)1o~!l@GtL)wjlRZqPi?bbs}y^bK<LTi5F>xb$E`
zOl;f#E^F3xFZDY`)^aED=mpJn;hK@Ibm@z);}ZLjityau`%kJFd7Ib%49`fJTYft2
zl}&AI#LFdpe@gE!x_@oM$|*bcu5xrVZp@xq_xXPL_Ulz4smr(Ma^84&RNgI>adn4l
zgQAbx)MG*QF7ub(YR`==ddeZfs_o7Y(!1JCVdv!y2a>%ce@*I<a5^=!P4oT-_sERw
zw>b+p*9IPCxX>CFbw*TU>iYwAMXOYKWuIvlI<Q5E&OXljL)vilC*O5aF3H|Zr}eH)
zo`3#Sa8Oon&Gsj!xO+4{?w<SbR+qY3p#+PswA1cmPS%%ocR#wlQ+TRl#KLXXH9hB7
ztoatWr#Y`W_qx}SCEurU2e-U7<!0Eif4h<lV|GC5l{aFkQXCqF$$!31GylUTdXKfe
z^Jwr{nY1}<2V)9SSL+;~Gvnk}^F6nAmvEjDoa)UG!~0dpaZB*2X7QJc?}^;p>ibpF
zvu8`ggeMWpU8hD>cz#V4Hw?Ud!Prwoz*nkkUb1A@Qvv2Tmo6;l_H9Y!tlD=oNYJ;L
zm!092!EyiY11yu0ZNv|zSozEMi0Ga8{qN_!M9)K-hL6;L%B(Ygy6Drs$mx%T<ewJy
zec)ka5~`31DxHxsJE~9dwHU*rjHgU>;j5pAWiREr5|X+h>S#vtS?x6wpM7l0`7&+q
z=~vFDzCBsJ{9x9z8E<~q#L7O(J*hRRxbkjL>6%aO943ozG}-=g_vD@YzwGFuL!qsI
zrp(xKIYy+P-FkAVlKxKB$HhvTNs-N6^LIVCEIHFs?oLm)^`k>6tBr35m3cnO4Ykhl
z&|2=N#pWcjO5%G{N?X2$;>qb}XG`jQt;>94b$`Zv({;D4-1fLcAOCP7>wag%s=iAO
zKP+N9BhG!Flw13&=Z~aI=32&z>1(7CPJ}F6&@ydV470RXg20p}L-Xrm1v4ka-xtys
zW45XOk#hKGyZttG^<zJ#EKS>!oYtT-?@h)BIgf}2@qeYe*<&+q=FH>x%=|uStLGhF
zriPVAPCnCNWm|lD+T8`hOA}*`*LjMbb$D%*B$=<V`bDeMv&#wQh3Yr=70k|%wEnGq
zHT%sHwd0pkV+%cAZppXY@0RSO>vuN#Sx3MxUdJ`emwe}M^U=MTzB#34;yxMAgfow?
z3as`rlba*Mx;(j6EXm+U+5FC0!`^D4D@%Cz0w1NCADDM{YvL9;)_#>VbMtuFdD|@R
zi?;GaNv+N=tku71U7&O!x7DKP@}}t*I3_%|3wA!lJg<H05&0wOLNoW|vx&aRj4@a^
z<<x{i#vi>epYQED^LUlu=Se(5tiIfi^K>}<A9p<ekvH>MWvwsU;+8EI3-l+)m`Bt^
z><%^KTyrE=-^5t1uye<@D<@B7e%>e3C%Et3wpZ;3dm}Ei#joj^Z!O=oO?}<M;zd%$
zuOB)em~8f{>RPIn+99!d%zM7@9{n1sEO^Q|?A!s#gBhLC@4slrCc9^^>B%_S(5CbE
zbI@n$xka3PGg?nx4SM!FTXFARp_@04tXUZP@$^N#DJkEVd4A)5q+XmLtaEx#0avJ}
zPCyxV;^zGOFMOQUCb3CfKXH-qpv!v|Z6$4yn>x?cdfSpYTNbpc3+<n~bNe~IWsAdq
z`MmkZzGFRev(VXx^S8--N{l-4O5nZcGySHns@6ZJ58LOZXnZ<v^6cg52Y<iWZA`hv
zyn^|MV(Aa*4KoCOu@>vf+Dhj7xqs)@=}vU5t~9;n{p9v8)1~1LWkYY-uuPf6J?C7$
z%Nds=w+${A*U0o9b=!KfGB>{Gc6-~cl1aRaUrd|GZM>H0+VnR<T^^D82c|hGL_7;!
zdEU*{>`%+}Tc)*7-pjq05A*43PMhR9w^ilHv|Xu|Qo?*mZydktT%O2PJbPENs`;)X
z{}N;px&KwA9!ZdLf3QA`qyJ3r3iY+y7hcO(C@|74Y<zwHT4DBw5793UtV~j2{SwOf
z@52XsmFJsH3IkqkdeN_*VsNu`l7D?%=Ox49(;uc*h}`(5wr9@w4Lb_D?Q`zEak=`$
zZo94Fq=qvJ6MY}9bV)o{_%v(F1~-+K<#7+3Z`}C%?uzdY<}B~|x4va6&Trbb^;GI6
zQHE;_@<FbS&C8g6SRcFQKAH3U8RL`B6|--6Mw%@-qGq7~N}M_4NTK{o-nO~3j3l0%
z{heBu_xA9S;!~Vb&-gC09=JGNB7FT9=bg+eI5)f(zbT=bxA=$WAGTL)-ZziVET~Sj
z>00pLU8BeTK$2{3fwKG(|AU*n?z6tSU(~aQ=~DFk>$%bOo?E>Zs0i)3+P<AjN&mGP
zo1SW{$PKn>b}yOg-}Ybhp7T~O<K^WiM@>AA9xYzDrj@g~!{vd=-K*PmAMUn1920Js
zzw@}svQ?(M6XYX}8J<7-y&{SAX|MS0FJ-H3JMVPG`yN_4f6{^UHQ&xm(*D%nF{|dz
zJ6CI7&NHVC&Iu^Je|U$7%k;5o@V3W>L6a`X{@YjCb4-1H%dM+2Tlx2^9Qj;5+2pFo
z^}?yA4c=b9q`_>*b?u;@_MW1~rHl>*OA15p<##8Ew#hiYY}oUCm#nMF-%Tr)^;=t8
zuk};;W%xU5e%6VVXP!S5joOra?BEtAJ--&$*M0Z=n1hAR7Nr`!zV)Wn#qC&&$uFLn
zPWPBL$QJA?jn^nV9<=mD1q+|gnz`nTRy;pSLRZK5OfVLcd2Y?Yb$HF;mNn<2_q5t+
zZ7-WS>5|W<O*TmdBCFm;`SCP)T$v^Gl<&;}rtG50Uqy^NMeUBxNqT+f`_T<;%HrMY
z`KqgWYA;S$cF#74;lUT*XUB^8LX20NzG?fHuDa=<#lM4Xq8Fw<{l_PFM*UBDXIk}I
z*1D9vwz<2nE)kvav^mIEU11mJ)wjhf+|AS`<~^7CE;y@}#pZRS;q-@*zmM|soY%?m
z`{E-0U}l`r_dmDJ@uV!es=s}nz@m>5?9w+nw7XyYYMYiLao$DI|7^*pD-&GXYJCo!
z(K^liyKmCf_yse$7m52?e$0G3>x87v{nU-jXO5kYnH;q7%Im(j?6=d>(pE}N?)&#P
zBlv)u&Ll415>d}<Y4?0$e(UCOe7&v3e^PiZ*D?NEiSt4OulPD0X`6Fm!-UTY>MUIH
z(*?O24hB3~P{nyZE_$Zp<4d2Ncg?c+sAGAIeeS-F8}n9qKgpVK?6l$5^t@C5HFJOU
zYd4$-{d2d-mUCN{aE#QgM^^Ij>a1IS?^}L-(bOYXuFZdtxXRw|m%9GNOtVj&bEj(d
zG;+K6Z`>MDX*Yl7nvV+)a9+s&@;dC!Ig6Ri2ilF7mR=CjDO{I-ah1l7+hQU&BzLTO
z5ENawd*Ay)r*mOO!n<o9KYrB7%c|}2WzH?3iH4h(uuNuU5D@eAR^NSfedXqwx2@l6
z7QSv_u0OhmH*k#+_rfJFc(hX%`8Qb9TwJGb>Dy4LE#DWghUK)>Ok>58i$?EWZY_D!
z+_t5!HY~^{k@Nfl>3PqUP0H9C7&81;1-F06J5uExJbS{bPEn!u35_d{WjgGg>o3FR
zULv{Wmr$Z=+FT<g&KBizi$|9a$TdfNn7{qb+l>_r{JS5mc;&QCrD59Fp7e{m4P}*k
zZQq{K5i$vsnYQFs{)L~ZUYyf@tk}P|e?wctNwrF!PcN-cexCD=F-JG*<+X^4oxOS`
zD-+iCE?@Z|xwAj9Gu|io%`Jxy{EH;hYp0%+VwrY5F@8hnwoRt`vz{dVxNM*-eA&v)
z@7`-YpYN+=wrp%nzxj7XNE)BqlN>$qyOHkO&fGZO{?%})d;N=Jua5E@c{2CSD#Z`A
zv)T?$jkuOArNFXoTHA_?iN*i7XF5nYEYpa7;<EdS;u3|a75+&lmw#PaGC3^C@!!M{
z?ZxKr9+-OkvQP}0fA2!BN{WlR%8%ri<*n{Ntb@`H)pq2bShV2(o~Kt*-v8SpvhbK@
z?qLpf$#=#(rf<4-G%eP$;^0iSvrgJ7UCdj4u!*F-ZJc`T)wE~AsYkU=Eb(T^RO$}g
z!}V!}-b~Z)8}5Br;=DI)`+U~jhU)&7rQs*{w9Weva{0e0pFjx1!t4Wm`)+#hT@oq1
zTCyOczies2<QZS?)a;d77XCwd&h2ZWe?P1&*<!odv@NAQ)y?|nmbV#Zol9qX-~3dQ
zHoJf78~#Q)7I&fFF4+ft?{+RdbXGEflc79zj!)^#wu5a=IZCPwOTS%aK9^H`-@^Qg
z(}T@x3g=zYX35j^5S=9TFw5coOx?ta$b#z;D}3(s#qwmX^_p@$vrTocSg-#&#W)8a
zIWcoH&u705sJWK%?_l7W^U9m`=(W=Y<<r@(GPO<SG2C`CPG`x4{ob<<&APGwtYg84
z>ppDG>nG@y{7u==z0!8)wQcsX>y|}N_&0yaBT=Ol?)g{d?2bHZvpx8SH0PSbyLNe>
zl(l?db2pnOt*MTuwz+@bib#`lC%qbl6<+^ki-}t>^HW-uhE{jL8*zyl^Od#t)|JkZ
zy(GpWt#&bh*IJ}M;c1d2Cs*9_7X^`No9$C|P6$P>Wo4enXb_k-Yg)q8a}0~Ws(pGM
z9-dbfXTAFIkG8JfzF9jr8+P8>=~yT-+hhZ`c*4fxcJ10%Cu+U9^10`*o$%{PvnH&!
z%m4bFv72uuqvoyGNz7}Ee&4)vZOX9#&C4Huyh(c0wxQ*p_es4k%N*uxzgGS`!a%ie
z<9W`rpOP}Xj{a+SZ8O=Kjmvs&+{wS~+LG%$*68lqub|v&Se)f7esjU5oOU*bd4Bg*
zy^>!QIMr?AiYuHsC4JY4X%CFNHl)a|b6y>$cSz--E_c(Nbsol>9+q)x%cd87br-qc
z`Tp^Y-TSRhICQ)?;a-q>L@w^oy?eKcVi{d!&Pf(<+x;!@yLUb5T0zT<H>(PxxwwT_
z_BHXS>Kf;qI`c*MRMtkxFrFz!MPe^EJ96kS`>Pzk)!(rvo5Mc$rxz=CwW#$bqw8|!
z`xeD%d_R0KZIxKjzsq5P@0c2|G}pN@>6UsYMYlbh$n;z<nf=q3Eb~tjFNg5GE3->+
zS`|`wVBOCHljpaTnJ<%=U~MdW<fF2z%>n6zJh|$q(|NI1pE$1NQ+M&db)$7ju;+<o
zv)b<oOU<oMoV@Ju11Wy90xQkgVmd-<y*+*or>+})OuH0(;PU}d-OG;-EWLEr_h5G3
z%Uu&ScP)H#?!fg=oKM&N7vFMJ?EIezmiaQT%HF==J*l*!&yMl;JU0^&hia+7>7{dp
zEWhqr!pXj5#&<?th1uPAcLi!K{UH9crhDo}GmgpIXGc$zJH5%EW5xO#Tz9#-*C#xC
z+V}QP$Mn|9*OABHHTYZWpOap#88kQeYL@xka|%lnRX8KFKU#2n%xL!b*p(Gu@U}mD
z`izx#`DRQ$9Qn_@S7e#KO7FY7vn%G#Vmwl>-=}zKt*e>3=D|9(GAr|9)jk6wsY6!<
z(`wtBT4e?A7_8R#-}Jj!Mx`f*b@^%2u-VoJ89v=8nc*#)_T{JTGW9)vPb(_)Rr;>X
zd-}cNva9vt+jACIO|@a<c+a#dk#FtApV2j;>C<BFJ73tl?8BaYoRwYSFYleZ@vXQp
z;;E94gZHdJ4jVszg?<}(N39CeRx$V0vu?A$jccyE*~sA${Oz02m)JC&=Z2*_FY`x*
ztGZeoTfTASW=<RaQ@-b<U*$NzoWJAA?P>=zm7~YsBwB_h+>ZSJtG8p;@?efrs!vi_
zTUUR%(e}<TsNL(y=k%9BPfVUSUXVzsJ9Q$9ar)=~xA$*n3pP65BA60<+;z^Em+^jO
zDt-M%s&X%kqMWB*KAE#L=*g4Vy}VnuuDm$iGHELNXO>dVhgW*%R$7`!T=4c;?lfoO
z`~|vy6uh2iJ=j!t|GN*5<%?PAb2v3(@89lB&JWkkxT@cl7HlcbT)A_zagm=5-@X|;
z76mf=oT2o4jfvF^>wrL;CyFy$_V4wVopo$;tX0ryfg2OJr1>0-5*gWJ=a`<G{kgB8
z&PDWDg{J?mSLx?jmOfrM`{?7|xZ?%<W>=>z%99OOJkMD@^Rdrf!R4Q(3r|`Wo%BX7
zQ_^7WU6y^z?<xuOoP2VB8?P~&c8kYWS0Tw&B3{CKU;KL`vTkdU&FafH9?TDOSS@<V
zKwkR1+3o4>{D&?*wfwh^r-#9Fx!%X%hiWrhdv#>2zK1Rme)aRgCL1r84vEQ1br-*^
z%**@nr6%kCgs;szCVjj5{cTdL!qx-vJvGr~OFup96MnbF=~!^Q$2$M3zWI&e7fN?k
zF5b@V##%o+FL@&CJwYzvK+Tw|3zs^xgx{Gf#isbmOmeCHtL{5l5yxg8a+B$`I1|oW
z+Vb<CUW4fVI`I_=YG)>SE`E1S+ThF+ua@2oUcVJoFPKVfE!A$mwyyO^ez9_t=PRX$
zN%N1NeAlL}tNo`-t=G_|F}mZxjg4DA<ecWHE|Qoq>)xN|s`su>uDvkRXKNB`<x;iJ
z&F8si2QNsR-=MeS_|mRPQxE+(AH+SumSfX|PW_s@byvj_rKM6<R!{yeU2J$&?~l))
zt2>hvj?alnyXMZL<ayvu{*gE5y8`|iF`g;CBe1z?lV_^ti>lSNR`!*9Iyqh_t9mWz
zlr`wy$^LX#p+`c>l-Sls7V?|Ecun&;xKi@W!ayFLPbH@(1!emf+&4Yg<N9Gu`|P8N
zRhQ(OEGk5cN=|Ekv-&9!@l3z)WRoZF(&_X5uq`&XZ~JU=<X_Ksi<Mj-&eiQ!TXpi>
z%4w=w-F|p1x7zQu@uu&V!xI%7V%#^~4U!a}v~-?s=()>RXYJ*G9kXGjlYsiKLyAs$
z5wqU!sJec0?~}WGc{x>HIl26CWxH@>cG>Q&f)N{ydWE0dm?AGUVNUkT8FS}%a%y(`
zi&^3}<H9^QF|Tv#Q$NgjV&TUt+@-NrK1cfFj6DjwZ%^qzY*-Z?R~nOF6S?=s@#+&>
zB&<$d4E~oDVftA)+SjJoPp7XmXxh&yTMTyD@2s+5{w`?JyX(Rqh6_*b<oZ2p=Ip$6
zKjhnsrma?Y*)IsF#n15kvrG5AkM_3r`*N)Oo?o1HvAj{?$SmU^>2i(rUux}EU;4GP
z?MkxQe^%X2HsN`FmB*L07uAR=ZP{@tSg~zp(n~>E>piRgyee0DlDkTm{lfXBIg>0-
z<~-ebChXYp#co^npG$r=b6c5JJo8V7vbhQMmD3XKZ*i(les)af+X^xBK*_ERpU*5W
zefu+K=d#Jn2d(%QPf%=D<Fx;z{qb=5_odxI?=xI>*3I0yM$>Wfrn?=XzrM+>iT{v2
zqeynWYEr_&X-1pWY@Mz=%(G8=aWcauGr2ZIB)m8v)AiMtIR=JBxsn<Ss<zf97Cmyi
z@BTr#y}6P%RQz13V97t#_cF(O7S1@gYfics=l@bU=7K{F#WVEYoDPwnad4foaQq3g
z#m)K={#&=a-DuQTV=pD_zxwjB`1A9g`5bCVle0hnmhZHc=Qob?TZCt*U7F4>yhShT
z{pm^jVqS)(UcWwXm(T@~)0`#Dg&z|5<&-~samcQmk(T4Xw!T{EqtbD~GX?f50$ca(
zuMRqXHn}q5Se-@H)^NTggR~<HczX&J=FRt(a-DxStuShqjQzc@Tb}v7H;DiCi`9}>
z(|(tXN8giaS<0R}*FX03YcvVFcDBaJ&5qS=W2TMoqb>P+Pw$z&a?7J@^Y?|#%9lRe
z%Qb(pO2v%s%@(UC_D))(G0kh*6+Jbk^a`bNkIM6`^A;^}wePjj=FYRr^;#y}>slnK
z{Fbl$_zzdtJgZ=bglAjV%WTfbvVPk6MP$tux##|75yetrT5GO^PApxd<)*cE?X^m)
z=?a%#8(fqz@#(f-_m54sI_}q!M=B|P%xQupRpuAl8t0mxjEFt5bMqOuZJyWs_N3K1
zEVtHt9I5J6y0JX5_4KDdyM8OL4g2DlHu?F5;1Gq<x;I<T{f-H$n9=d=-bqP&w*Q+Z
zf4IBqwaJE_+>QJ1w0QEblUmf)78-aYA&_ZVsINq$=j0k|k&GP4Jw~h-S!dszeko$}
z6H(Q)FD^d8=O%l(Zn1UPpEyh8gs;Kb%-LF-?LNNB|2|hTY?k}1HIH|iUhxr(T(tAY
zNxi*O+{C}>@z?yB74>#`p6EhV`CUb_yIu;vn5(JZ_sS{#E8C36Hkw=KCuVYbR{lK^
zK7YE@+Ii|bv@Xn>uDGhd>XQ-6C$8;l4okFOzVUq88S!szk#m;GEb1xEU*nq+us$VX
zUt*R0fjwWOqSxtPdb{DMd#-?+n(>l5ueIJAZnROgdabqP=!fb@t0e5#XJ7Gnd91c`
z{U)hG2G0HM8;aMT3R!yRQ`Om(T1&2PTCg=mXs71C(`W78&pu)@f2q^7NUq>V(@zwh
z*d8goA^EFI)56TOT{727lT{VgPhGY%@Re0W=mO>=rm1ty`h%}Gt;kJ|>zT3Yew6y-
zN2{_sWEK1*tsh&2ta7itXtOoqnQ*?Uy>{ToN%Hy;ON_idt;#KaayCuQ)#!L@>^38)
z$A2EjdCfbA{v0}1ww$Ya*ZIk391_l!c0Clf^jCY@6z->edW+s~i;OGh=k7^pKE1S#
z?|+}Q)Sox!+gv}_Nqn33Bz*6Jxgwh+*Z5wO+2`qz_I}%@7Y3f)Z4-`N@;z?uKg(p(
zr6i?|&mKRlt+uZDop&nAt@a4B(5_2rwsB?iS6!U>Sbf{vs@~3}CqLe7GL5%Ap58k9
zcgKqAc_mNXjGBL`pOWX;(Ji90tI(j0FXsdIZJG2>#(dmG(SLjc@7uK(YdpOk!;(B_
zTZr%Et8oYNP7A9X*kUKB<*)JiqUG_o>GI|`bZ;H%Ugc18_*&|2;YT77e|Id|%(FG+
z65G!vmx`Stx=$62zPvHA6g;F6KKnriljZqmSKeKF?D|kp;llE?A4@ad`<<=mIwN-^
z>zpdz`K1R|-SxWCx;dg%MS0HdFMdBm4n+Ro3YJQfYJ8V=a+UVs2d^)N+t!xNyinS<
zFxxbD;-f8>Oy)P;@$6b0o2|p**DnxX_;Y&QpPT)$JUTv~-HV;2PbwMLt(h&Zo@Mk~
z=)!!Jvh7ZX8Y~0D4*KW$bX|YUIZ5{akD`N`q5iw8E=M$o^&hW&Wx`{B_tXnc@$J5$
zyE-OURZe{qdOzu6Rgd?J_=jJ!s><iB-gldY)x1sn@8x|$YybSb^E{?Z%0z3H{X@CW
zdZx1q^XESoy}a?sb&<Y|nr`REZ@(O9dO2xX<Oe%Hh5Nw|HhRX0pJwTvE3=t*#`9;#
zFI@RM|MiP)J`0=e-Jh!Y$K5Zw8l3pt@}IWx-#z^sil2OvwESv(X!p&RQ}vW}^i{9^
zn6cvSTJ2qoSH2dVJA1idw$qsxO!JLG_bRq_Ul+PAb+PB5XsiE!h1MJsM)vZpnQF4y
zOP(nAU*k+sXLNWQ!2Qq4e!uLJx(fA<`5h^<Cp=RB-Q_!dZTh~iG7HwOim5L>GfVD4
zR0_-8CoEN0L{sh`D`k71m9dHU)Qgvl$C8+;*)!G4-fQvf_6b*bIib#=c(1&twCT=$
z;#;@y3hW7CQ`~=F*ZNZCoVyn*HTNH4JCWyH@z}52U+>9l>9rM>_sZ@$7i!M#pB#5B
z^4;cBC(oB{e{*8j1S{U-4_$8V@yK(x<y!b_<HF5TX5HMf?(r0H=Zo(nEJcs)oY8T0
z*<J3W<@01_3+~ZtyDu;FEO(k=0~f!*p4p{KpD6O|oO{1|$r+ycotJmYTF12W?5I-B
z?muE=eNs<cSVm4}N4mRIhowu>=C;81qNTinnp(lu#@W^1LZ$dMOqjKJ<G0D)??1Of
z*SK}%)5l^ehMr&6-rGCx)Hjh+Gx~d8+z!!t`dagkNzvV!IjRL#HuEg_b5jz^`3-H9
zCfR>&-D~9B-<tfSD#RdW+ni+wx+<jF6IluaBtK8v`9DBQu3}o@+hexjH#hXezKZ(t
zhUeXUk)>ArN4|gk<8)}jvU(T6*1B!(x(}u#o<3Z__V($TeKVMpxGtUe)$+1j@yg%x
z8dFqC4*8!yp%CxSSw1H*@>O{8GtPUC=eZa4>!wbP_;c7ha(n8X-M79x+tR*qcF(NM
zC41IdZU1(RS(;_?_48hDmT7e6)IQs?orh!RiiqC%8fJN79E%ISMOm(OEtfoH<8|%+
zBje>3tC)1Z^uC-D|1IKkr}b}HRi*uNB&P3u^CNYVqwS-aZ(^2Z-d<6!s8KyPx>?Nr
z<Gf9`I;T$a%>QDVTbyaN<<;r7t(9M{*_2t8EeW60ote|i9)7HH_nW5^7Js{Se$}SM
zNnd8q`Eg8}$H#I`=k|%|iC#<eImN6em%dHfUO%g8>aM@n?<9Y2NIo=0kiGpuqSF(D
zkI~k3myEuzwOumf^x@T@lWwIWrT%X@_=oLBtAYc|A2#`UeP4?dmo3)tFMaP?)z>$j
zv+$Dze-`_8W0CyOnC*);*VOQTZQgYH#);q}VF7n@xpzxE&T0C)ss6fotflOi{o!o_
z_iNT2+3K;_>C{v~<tnzR^TpRQAMCo5A*q+V$4la03iC{*j@z@QHuDsvs7~q(e*3`7
za6{VDz~(J~54>e(?(9(9GXKJfYKy@4@qA9R%DJBuu{z7y2W-9-_O_zLxOCQ~Gmkse
z4^CqickVN6y(Y$}(BYm{>U-_wk^{BBZ?`fkEqMPun)~skKgQx2N3JbVlV>{6{6{3M
z>O0H3@>w6fm21APQTv=W;dUrnh4t4$v&!dl7$ZzH?_GRQXsuaqYW(Kwu_q^={r#S9
zCAI18UaOghHRsiP-#Ddy*6;GvEy*)wESFAtKH<WWyM8r>8E3A3zEk0*(|YTfk!7u&
zF~^-xn>6zFX!R)^{b;n$D|o&okH(75&3F9kEB&08H|}WYTHLx`#XEj&g?HZG>37yz
z%=B0_x8QfsZ_V`u&t`Z$y#1}~RFu`U+dG%9T=O(<m0e<Z->j-hEwXYFZ@%^xRwZ(N
zG;IFF-OaBk@u{+-KZi{?b>GL}IV(1o{=ELg=ibh*HmpAno><Q7pZE0e+;zKmC8v1k
z9C!FF@L-Xvedn>~5l-w+-zgPU`1+*C-dN1>qdVlE)cW4`rsUw2j`Nmf&2P*-&RMOs
z&>}@!w{k}UL-YE}9t&B`_OyTCRM%hraTVkDqu=fZ|7O~GXm(6YRE-@Mm;VgD%0)&J
zv1^5^4m(D69$S1pS>y4w*XH|=n42Hd(_Am95VYBE-r<;Z&sRl#wzgJG=O<L2-=f_r
z<tDgU#ca*h!>^|sNI#qC{;Qn1%XHJ6rYlm{1GDrud0l3VRSW;WrMq)=Rpyh$J<m?W
zrt2OQl5F7(^S<D5nWNS8&y$rVQJt2nYyP~Nw|VC>?WVIlxr+C!Pwu|ZmDgyNl@z(G
zSmEK^hx**}=Wi=N$F^sId}O)(x0p*s=WZ;HEPoJ@G*fhzP>gxG#53myySR#jGK81=
z^tG5RPU=7UKH&I^iFY?n)}Jf<bs00eoD!dt`eiXq&m~z$I+>=vJu<&dSCY%u)}gR{
z-Q1|7caCzT*L~wL>t&R&<}X_|EpMXhxxJRkE$=s{?V8t;d-utqc-ufN@ut@o13tGE
z=R7W|ww=6{J3CI`^md6fzL<9&`Am}!`&&M|yiwe%yOpEdIxW`ATf#nAWb*;Pd#|5q
z<eYTxnpoPhoJa7^YtHTp0Wk&bvoU`}C4YauvF2jf%!%{1_UlKAt*~COrN_Zv@J~TR
zG*fPpiqgClMkW)kX|ZlQA#q)?%|>Fz#gnIa_J7K7cC=mkQ+9dm6^-EY$2Lt&o&45W
zm-BGarwTpUACKO!1ii5cc;9EyoPFx-k%gzc&g=Qq9G;oFkR@AL$THJY@$8JdiAk!N
zKF4dGI5Vp)KRr2qVr*P(`U|&?w|>XgdvN=lo9utbt$wFP)V3+VO`<HKy#FK|{A}{c
z>)e?IPWPw%_GWI}9WmMAK3_x6yWQS>{@Z?tPIasEm@-pp)3)yTp!)e+!+e*8n@n)n
zwr@p_Y3-%wtQ-$>bKbmIe(%4_v)cE49=h7++Ivf{nZNcuJHIGx|AL6EcQ0gH@>zWi
zt5&ef>vuZWBHEandH+Llp{I<OBh!gV<;>sfX7t@$SFE7Xz2fmkg_PNI4NvF9xJ9oC
za9yf+xa{W9Z4XR7GC4f#ozJWvWx2Cx(a+004<nd!=3Dx1J-2YGzQes|v$k!x@-%SP
z+vZo3xk?Wn?R+EMzwGm$t*rl(PI;e66~4u@U+bFQ^~(Km&wS4&<*hPYzA>wb@5h}C
z)uh+oA2bE|Tu%!>wPeyiiGbQKm9zgQF)w?b$Io-qMoD-YBLhEMzqJ16|8wFmAJ{6%
zof^&jDe3H$H>v59a;IFBxN|0Qj+14&UH@V`*=v96qs}p`;|UM%_cMK<q*Hpd{4dML
zzx)*p1qtjYYt(i=(0g^@;=RISpZ93K*Ezyc%J6AV=4xrFIect9Yi2K2bMWv!deltE
zttEY7rsB2utnUk?=S|vRUA6sa+pBZ({d1=2Z#(aD+)4k|ngh=c1#X+ar{bIRkMs2m
zA$yXuQ!x%rhO8FOPs-vlG&C|bMJz2g#kREA)Pk6$#cyLhH_IF^+^1Yq{G)Gnx=h8{
zb$f4_XDv0Gv`FF9wk6CC6CN1LF?NV}Ox%BO=GN4((r;h(9Ax%rb7f)fo%ilm(eI*_
zulC=auU=Yz%>L<n|9v~YpL2is@ACS0XTR5T{<q)zeS5W*ZNdIOUr&mEum2<<|LObm
z%#XKj|K_*fJ^g;z_qmrRU;5r$9NhC=zOL~7dG_i(P4zlnJDW47*Vq1dT^(N5`QyXX
zvdfF6J^goB{lgFQ<EtyVKCj8OiTVF`h5B=`^?dW?*DqL|$+xfi(dWlDx>b=%Hh)eA
zzCO9?g6$urQpxE@W#(PpJpU1M-KR9mn!*qRmDLLym;byev4BzHvW;}<4{JNlv$NK%
zcXt<6w{0)@@oR;s&!Lr9mbE^-#afp)ci)ofH=a&Eu5Eww#hO*jEq*tnE4AEi-&q+L
zCHcm|_g=NcDd88V4}3bza#`r7<uvzFo_jLu_BXLVve|i4{-0~k!)Kg#>lpak4bJ+V
zT)XvZSNr+Cw623v(eB)j|FuNru2-&|I;+9FuKNAM`aeGpaCZJZR~NRlGqp@?`puTg
zE&~>cU5#5eKK#%nwr26#kH#^tH(qp$lIabWeS5kodaKO3o5DB54Y<mFd(=qGGtG0e
zOYd<~S-kO5MBcu$y;8TQrAhE4AGzef@Nh?+lF%x7p5%r-T-?emW^A91pJ3RlwAkr&
zX@FYJC5hW+1~#+eUf!<09mZ>&zgaJ&tjcWag)K@wYWf`))_43l&=h{{xMtSz=`Fff
z?tg4#XiDSjpZHi^v_Zf?NP400ZBG4CpYWbb{wtbaR)}s4P3Gedocbg6<1t>FDODY-
z4E7YyGv-jQmRi_!w94~I@@u#5pHsd(n6<1e$~CURd&a#bIy!$oZ}M8O+ALKz<m3|Z
z@@Z@O7g=^V&%1tl(;b8SZ`FzE+$DR`4plen@H27tJosE;x+ZH<R-}XOmwuPMH)Ddg
z`fS$vd~&_2tF^w{b+&@D`=8$0-WN12B}@Lw+_}?FE<E$_mgeMNw-(<|{`FUI;-tH|
zs|{wqGc{3_GWmLa!?FdNCa<k>)ZMd4tiZ%LOFB3%xXSUQ?)uO|?`=lH>nG37n!KZt
zC9PcRfbqi*dK)%{6-?jX+NIKv^>v+jYN_E(uDaP*yBROmZoQO{cX7^i&zv~H<@Xlw
z1qq+H)qA3(q%<fpDV#ql`2Go{n2Qa@CzEbi%)AhJc`E05uMJt%H{ab8+4<q%=bP7D
zdFBel8+X?GosFH$yO*iT|JGpz_l0}@xjcFPymw|*b#qMfuL&*Z-*Cw<eptNdqVUB@
zT}3XkHbN(l&f1l>eg30@vne(1&(42XH+#?5_Wd$ZhjT>pW?Wbsp{8qoSTRL7|6fsy
zyBPQ0-G_ruZW48C5PitRHTm<3S2i1JUEEGvXlnBnvnh+-6G-{CaYeMf>fK*^40257
zE?Dzb>e2D%DFN2S<*Y9XFDb75JJqnxXoFj{&BPscE)#dGck5EKb4*Qm&Kc_CepKn3
z#oKbbOIBrmOgbw+K2TR#&@VE7(bk1FcdSL;8a`s%=-b?8c<a{}cLOKZW$uzIFB<%`
zIKR=fcTM6Ok+|uG4kx3M)%d->g|FyKuv}|-rSyJN%yrTAXJzG$_kP-A%zKFW=B#+l
z><f2yoswc%uJ$NbWlQJfq^t8pF8dyv#<ERfaba(W*yMT2hADHJ7dNQ(IL<#lEA`0T
zLu$8I{CF_4jj8U6L&*c@bxkv7PL-LKHK}mJ`R)%_S|vE$FTeUT*K~h#{pz=_fA-y6
zcH(_lYQYD#AGWhKwx3zqtX-h0_TurXl_ojcPqY|HD!-VqAu=hS_50-Y83Gqo1*SN<
zO*rH2^Zu~)sl9y17~VB(G<>EJCorS*+P~C$%GnNIjBlh)V~%%VT-U-qH+z~mE87Jf
zC*i&mvAM@~ab|@d{k{K^uuq`Dvp8!u$?aQqUp}S(gQIQz+^^jWn8n`h7XCU<R`y3I
zpN{VDpN5}*Y&sRv?Yr%YRm{p*r!V&=nLc>cvf=Ie$IKmps-oq!#lfLlZ!tLJRQ{WI
zL_uq5#hYi(j%vEEvv__jV}h-z#q(A@eaoHM>5GD#+8Ih?6Zl*oa|haIWLW-N5W<)J
z%PU%8zucAM)7IV+b2(xwoj6BaHh$Iy73a;zldgY_3<!Jk&EA85olcTj-Qq5$yw^OQ
z$*a%(HDUaqU*E2|LFy&f$$ZE4hj?Q|E>uL_G+FBu%xW;>K~PP8>S5kW(araa+9wr+
z%vZ0L4eeK$YW}$P%&hgv3%4nsxE1dAMLx&r(n`OuBWFr)%oYtgqH=WWbKk1zE0`WI
zn4X!|KkZ_3e2T!?5;y0Lp1dAWtwpawENAgHPn=*egEuDf!k!ef8JX$d79P1`I7cOV
zMh@q_pB_7ZUr^FovV>*Y$?(%3^wxcs;k^+Y!PHZCu)^`@VG*7`?XN_{+|CwrwJ^xc
zFr4(4_g~&#er}1El4(z!UAA^M<}p9|)e=|LwM>0hhhzAQtiTmspC^Z9-?Q;Mrq}KL
zhfn2;V|Ny(emd&`SMi2950|jMl?(2X?^&m}z_t0^ImSF*7yh~Lrr$LToKSsx0b}Eh
z2UY=0wv45Jtv>KGed@_MZ*`1W_<7GM_oD*ugR{is8RT!YT&R3%l9yI{Eh6c|W_HP}
z{w!YYRX*JIt|mL0r!8t>wy^VFe(RWmOWl{b-*$^k^K)Bzaoc9Cq8ED~PA}W|DfPl(
z1+9lilusPob7jIDuB)G!MH^Nnb2{8C_@QgYa)HO@FlRhd8vDBC3!>j$+^Ng`$>q``
z^DTC!zZg`0S?V=>&MVuqdcMNx2D^|uA76c_U7j3PP`K1>qIB2RrcBwo-i##1K-0D1
z2ktEmXJ9E>KQ}pSlHeTYDE40;+Jg(eEZ13a^Xc^>hjm9|CcpgOC-A!b%qe4q>f*yY
z9yyjtF<8sm*|Zt3vM-)_LhH|)48cz=YZpkajd><`L7TaMN?RSH&4WLWlCtk^uD)K|
zw#jv0-nxyPyBpk3E#48luT$xJck+>y`hI+|_m@l!zgXHPDjll!GppW8&3e;}TPxb`
z-_N$)8+F@DzWCFUfQ=WspEq$Gj=1pnjC_J8i`&NILQ^IkK48&eX*qFba#Wc5MS%@P
zZ^Kvfs{4i9T`@)JM{+_|MbwII+&RCcYjPducWkddyYbY6l92ARl52VPrkgBr?r?3N
z;c@cfoMaE1yxvC)Z=SXNU0k$bQ~P&oHqCt-?igIYud;i7zxi?Z?TfGR_h0nMi=4vq
zYM%wuZeyqWOFEjPX1MvL6iDp*s9YK><*XZXKJI&@<H1Ck<S0qjB>6DrC#8E`nw(l+
zy4_>-f0CkQVIQ!??CNXxoa~u@AC?<%ia!_Nt(xDH;uDmuJk5P))U#v8lk8S$eR=&P
zYxahPuU$<q6xG{E*>(s>89S_#PYGiW&*pf1T5MBSw$gK<u4$exo;n(e9^l&FvUOfF
z>jtxlH~%!WymIr}7|zYD{4!Mjj?3Fq$MoBbejiBK`+LXiDGN@_pBRvS&!so~In#}w
zd(Uo6QB<6=w=3f7Rbdf_zuOmo{jhtrl+gVhc3EqZ8(IH{KfG=wch~!`#<a&mKP4SZ
zikIHZGW>1UQst(5NBhZ<l?=Hvx{fT^5wG?k#NN&=LjLWY2WmGh4%^!-)}Ae`EOvbR
z{ZA$v8WzcQOlnVNR7zU%_wluxU**0fuKC>X<vd$buIDcvu}x1maI^WpV!FY1bL|z4
z>8EBtDr{PPJW|kGyzBG#fOSoW7$O2V*Vh)a)TTP+yWgBMFOfrU*`|4lg3k-Cl$kWQ
z&YJs>DY4D*g=6;;b!KUY{DR=j=8ZDdMlQc5#fPznuklpuwPU$2q*^lHdAr=RO`>Ki
zS1)s3o;~~P>%|X>5-)G<39FdfvLkNKibdW`eg0EEY$|Q|=^&|kW;??ls}qbuH@8mU
zebgPNclp=N+i4wZw{!aBsfb_W;^(&2xe%`SCQr`y(wbt9(+~GcYyMMM*njxWtuHQG
zyH?%`ol>`Kwdba8`Eo9~k2Cdu*czM>tL4wNes9Z@QX%_(uF~9<>-;k<UtE|fZI+{Q
z+P-bN2#<23QBf}ALMGYt{gNi8r~C@NgF05u@aV27Fh1}jG_P;^9NT!?#A$jmHz)a4
z=`S(xDkxmG_HD{L&A`xt(*X`g|6C1tk+9($kJ^l4&AdQn-Rp_ok~>q5%@X%Ls$*Au
zq_wjwl;N`Cb@QW7!>R)Q980b_Xc})_rMmvvgd4f{oMx^6th0E+PL)pM#YWr-H7#q>
zWfWZRWqXCX%@s;~esS~q4JW$pf2et~SjNIN_pp+xD2v7A)>SjpPr1ChzyH+P%7(=H
zDXUhl+du6=XM}C=q-A;;QYm|q-2$x&<B#3dn|JAWhN@@T_T&Q$|1=#dMAZbWVi)g_
z+VU{{!t_wb=(6|TG4B!*QX_XvXDy5rm>H+_F(%&Ib3weBNW{|v9RKwEe55M`@0u(&
z6qvJsq2Y0cP<~X7`O$g23RfjHBG!dy?4LDh4&$8Vj=g{M9$Lg`hkPqOWy;*2w00Li
zr@%{A6GH>xX<RyNZ#{B%nKiG{?RC8Ujm@p`{`tpOPfleqF<E^1%YJwM)d>aySEPOk
zRh(|>I9zebx4XgSXhNFLj_DI`w=_n(N67AL;O4#H@a|uFhVx!7?z^nz(l&;-ujy!+
zbv-|E)hcSb(^K6Cd_FrB>go$kB7(LpImF1{!fCLPeQ9EX>s_&WzwmP}i(0?O>^}a?
z^|j9zC8?n6B~v4(B^@-rwQff8!TrZ)?v>if_;PMq+A~Y>U(LepeScgY|9E<_K*~lc
z{na#|(k0%BAv=y+UR|2YrmMKB@gU=Gw$ODBVlHgQKQ_+~i$A=S@dd}E)`Of9{Cp;I
zKFa&E!|ztCV_2=7!!CX#YKO<!x2H}oS2$)M_M&OYliA8@TQ_ruTz_AjB);qCjJ#zY
z|L1VkY_egT_u{Ebb2ztK&XbS^y$5#2b_#y!Ulg8IT%6I&d8qWdpq^`2Z+-{Q89wK5
z`6L1EJ=0Ws5C7n7cHZyEx9V}%wmz}tH{7Im#E9kv7fTD+dB6E((J3<RX<aqXjb(m+
z;&0pQ8cpo>nRk7zM~|s}MrWb8S5KD6^e3ru)1=<NjGI+pcz*ISe*x}>ive$5?ee_9
zeUK~lQ!<Z;u+0U=s&#9QuG|}2zdcJpEPKPNLkk?g1($4o?(=U;?A}GwCvZ+Enq}K@
zR-fzi5{7v*Gry_ICd@rl|7Dr}-JWHucyc~pma&-8cpyh1a^eC<2l+b@0*29N=X)D)
z*7wI1Uv_$Z<l2*q8V@z1{Wm4QKM-BpFO{3UXvVcl*Q6hBG7@VN?nEw*2{)K@`q9E!
z7CLJiQ+I?vbYTeaR<oZRvZ46OfAJL$<{GY;l=-uZS1<a~u2!a3CnvGYdHQ(GDvv)b
zg-eQzzpP%RF;!bczdC4-gJGoOHjln(vC&JO88|Nf8)Ouw9_)PRaLI*a&RG){CV92T
zUV5+Do~E7?XXe@*^r_2Ve!K9drGG?NId&Mm4KtLJ*(7r1s6<^%&=U6S+ckZ1EIeJ=
zs`{_z1gGVsa%aDAbp9HiqF}}8cZY34_HC(%r!#+CzB(oT7*F8xKeJQai-V`uKk?Df
zs8>+3;L3j5-*YGPis^Z+183J7=^Cr6ZJ2gy+4EO*+<SFIW52b9Y^`2+_x0C3Z09u@
zm}9QC{Xe;?{NSqolTikulb-XYJy!i|^UL-Oucxa?=JBS|z!r-hb4lZU8C&*wd2$u(
zt$i!R`PDLVYB}4ogW9?e3~s-ZY&`3<`?_)XmYcnH&it1|4c!g-rDEOqPD_36)Vss{
z>0f}y@~iyb&a$3v!g~C(c5gp>qu`awegDKQKco*%F};+g$?1LJiM0Oh0GkDKqpY5t
zkDj7@EJ4|gmwU2_uW|#kkZ+*iMT7ZVJKp@-;dYT<L!dxvfpGGb@B}k?wGh!@UPU9L
zcN6|hYx^A9^f;5dGB~9<%t&Is<bm{KQDvDCTvbvF%#0?i$qAfoym#iG={J+-R%I|G
z+V$>A<~y>+R9}-}cjtc34ZoiMs%&0ye%qpV+cgXr4yf_4tz%L9%djp*-5_pd%c1)%
z2U>3Ws(rI7d3WLW`$&a9n|ROKGVDwE`apL#Yt99kUm92Rp1fNW9C7@XhONTmHxq?6
zXkJ|T;&sUCR^MZ%-%02{3KmSSy<xLd>9Sqe%(BxB>n<#Eu3uDKVqLSu&wGts@6<9C
zvFEQ?4?knEb^mU3sozqje(9RokG4(!)Apn^aEGPwx~HWx|1M!OC>5Q?dZkP1$nsWQ
zmeVCpHFpj@+We%5|59?XCF^75fZHo)#LGzbf4O?w;l-kl&hIbV<t|ZpDEj3Tmw>3D
zU$*&i-$1>)ImaXJzx{igDPCS~vHQd1mXy_Jo=mNi57S?Jb4B$Gkwu4#)^VKvA$+s-
z_sy8_rIkxq<|%A3vHSKU?$2u(LH1_xT;>nUEFB*@sdvc8b;$%haLToC)Kaht$dBy_
z7V+Y?F#Wqhb&dq*CJD~3dkqppnXI^)4H6l=8DAS5+Vn%>qe5&hN3ij0Cz-b<9xBg`
zMRga3Z!kzJnago)rpxiC`)xhDmbtz;6kG9lldjp>D>~bGPnOAa@+7j|J5v26yFGsW
zD)wC`CuYw(-1b@OjN9zP<({pJ_txF|RiWD0CI0xl?)(cu1st#6Zkl;r!|y7)X>r59
zD>9KeQ#0Ir)Y2@CQjS<ojcNRNM^w||)b6EUnT3C_?vdwR!FzPBx|B|4{WCrLM>;ca
zeNVis5~BY$ak_A9>5&|fvk`A5v)iq_oG#>GtL(N~n)Nt`{k_jYJ<|$>9L>{~xKyTF
zWhjMst~+=^=%{L#?#3U-pYvWmmGLQs$(8Y8O!vZ@rT<#qolJUtsn1{WmNd&}ukUO;
zD>nM&-p+iy$t$dRW<1+BPbu?B-z?kTvg_J+Dccw<ku+SWtR@+MZOe)zmS5`_54=BN
ztGrY}vDwf$a-w&5N`SJ=%6Sd`52J)6$~<ohFMGaTTQcIr>U9oxKJWz2VO-hxp|@-C
zinU9QRg`%z&Q2FO&k)aFd{*%BH)G@3nwJs{riae#;osU_>0ocj*LdUdOL5)Kva%~p
zan}w`pSn2A<%g-P>5Cca@iUfR6Vi26%74EyaEVLqsl>CpbiDgM?vZu$xxw6Xdzpfo
z$YbXC*cP1~OU2syCb+hgznR3+Ia6$9McdbFw@+M=-oTQvg5z_V?xY9brtRnuJ37OC
z^^_-TOJA5T<>8m-m~v1z&+Tm3B+aGsB2*pcsk9koOtPGAsqP&0F?QXR7j7GK4W#?5
zat)k!zk0kdR^iFoQ`2wv$Hr;Jr`&yX^2Sn;$1-y?4t!mn^tW8QruBAtYrX*cgMAAg
ztz}u%Ag=Ugvz@@DDj!j9^_p#Qa&290=9>Je8K-Z?Ma5qWIW1JS_*Y2YX6?r6jen*U
zc(a&sFe*KkY75zYYtG~Z!NX$Hj;weZ+4wpB_}15|X?x1!w(=Tie|fl#*|%KV#+7SZ
zt9oRwW66~{ez6tGi-LV#E_?Byu3F$(T*;-lE$6hWg%?e3E8F)%pkR&u;T?6Y+LAnS
z(<6;`|2)GT7CvE`xZ1yLiMKo|*4|w!3dH*(E(C94=@DM`=KPG1*X8T3TIo9P;GWIH
zY3v%3{#f6{HOs*I(p9VDGLNE-EcqmkHiU1~H2vDBtJlUlZ^QqC3=7IinT6A%HdOSm
z{NfU3-+K1QQTAdzzf<cLAFsW)fA!Xq1-i~3wg>*w%{m$Gv8L*E#DA497qb#A6~eAv
zov|inWlQR*tCFd)(Kpi;e&}_%fAXSL@6m>jb{bwj8O3TxglyZo%7gfv1GFL?u5%Tw
zc1=-jt(CO9wcV1ZqB^$D+>KlK&Uu^sU0p6}>et^s7gG`}TIjmy!-Z`(Uq{8|e9}~O
zJyAc|#I4u&x}{h0x^M2*@BZ?r9y6#B-|p3O`dCX~>1EN5u!q08J{D$ej#9Vod|fDX
z<#UL5n)s^{$2Xrh?vL3nkdUJ58nkZPkAHJ?G^YNEICxHQlHuDpc}DBV?FJl-kIM~L
z94?RM;5pW{amU&-ZF;YAzs5Xm4s!9H%`0lK(vKzoJfG^%wb$+BC(3@mQu<n*#mqNF
zQQ57u_|}eDd;TmJO0Em|p}`^&Bc(Lk&%a7}Z*NMiXG-eVR1wY`<N7<_u6~)#5F}GD
z;op?pjy=+eyDygg6Z4<SqkDhqlXcs;m|sTa)+VZU&)k~STlP$AZqc-DPt@J?=SUZ1
zm&;BJx9(Ca=~8<d@b|5ScB-Zn!$t2Wk1Z18w%_D2VE*-HZ{^Xu+57mHs^6`$nqn8`
zn|{|ij7`jUrq8;qoAwur_gsDNDV_6BEnSp%<H^W`=WC@USI^kcxG^ZSp*r@MR_^^{
zO;a@twjRFb&oj4Nj&oi`%Whe>kQ?7KuDxo~l*ml+de*!weAn6D9c@XyuV>7V(>dP!
z>fMYk+nV{|@;bTkK0RHNZl2sXqoPpr`t+{Oi@nm>onP08ZB`X;l>D$?Cc~=bXQXSM
z)nb`FYnI-wI_ePL*};--Q_u8W@Os<KCd;!{aY=I<xg!71S!JT;$$62*=-9VS%i@B9
zRV`OMl6>L4O0RQ9U}P$LZg8e`s#<c{gxPM(4p!_uAm#q$-KseUmwI^>F|OFrS=b)&
z{lw;zrhA;NlQw^nUSyqM)AnehQ2hca!;Ahu{<Ii7Z;do93u4>!RO7}?fA1JK-MNRX
z689e0)^~ON6|esOx<ut1(+<=2+YwJidZuQ{`bRw7Qed`E?cU^AcEPv1ue<#Y*{r*;
zR@dhG;zK2R2iCB?*8OPUJ@eC~L%%+6aNe6XZIx`@e)E;p*P_30o$}4&zjb!X%e$Ao
zQ#9tQD!<*)E7#Ni=B!%Di|hv>mOpEw7;S9${B5t_d2c&Wbh=y6mjBDT``C?i3JWft
z{?N+$=9$X3^B-N-zEe+${I-yxDR)<~+}*CLY}ro)%+{(u;*fZ#dOYvUtnlOOX6&->
z`Lk0Z`9=&!n$2{Joqu(>O)U#{oj0AsxV-h$l&R|Om%QiQVc2qFGV>C9H!s!BvuBq3
zZr{GQ-+St-cS6&pK5o9bZnwsdNVcbcJ$XY}YaAXf3KdjsTRhLa!C=ny39eP8am;!N
z$uqqROgY{ARy@pH=c8<TdSj!9(z}S&E^}Ge&8VKT>22P_pL%=e=}+}e4r#Yg&9ct=
zbkp~-Tz;pv%Z-CYI+vFHPGgN!c=}v-mQ5*_{lag#`#c$sUYLIW>PxO!dy@?}{_2-_
z;bJOy)-drRJ4<#w&%YUh9rkRW!v0BECFVE%6OG8du-|EG-vQBy-&ouVZir6}unqNO
zecV_pE_7qs=Xc))veT7{(@YFn54ia&%&uCV@Y^>(lf^qO{9Vkn*ORBSHe5cj;;{SM
z)S&4yH|A9)9lL$cL|1O+!b{(tpDyF^h;G~_{@X=ov9(dN){lD~7E7fz6=)Z(n)KOO
zNPV+}!OwR*g{zorZ$B~#IrN}r!P)v#mo2RePAru<ePYR;&zY4~n?IzSw^^GdwqO7A
z6s~eJCw+Ua&r@pEg+Kp1y3@`ro}+J@s@JMaiLd42v!ZtfO?mtN?ZKr7ZOmpC@ys-g
zo%=(pgZEwiJ+W&l+4{MKyIeYhw)6D&vj^Sbn-a94f3Nepe-HDY6dS&evMNeiGgbLL
z>rM9{QE9KoJPf-}+3$A!_IakecG@iSZO&KAmlPb~xYu5AWbLNLo2|8XO*S7__-1w1
zM&@4ox|cg29($)@)S2ON$#GG{p_{&|dAD1$h;FrK&D^zCQPh(6B3r@fk8j@U{_Q_?
z>B}?4)m0It*Mz=?D1GX_w2eEAqp)b%LutnS%9)i8Ts8czUw`vln)B(}rSPC9OXjs%
z<ZFCaJT|TAQ`ONcC0C~lZdm%y@XDotUB63sZ@zZFes#h9b8DCGbe3EpT~IA~qIKPD
z#aU5K`^wGk9{+o@WNB5H-NwGVQzu8J)O#(f`Bpn?|FmWE(@yIt1gF=pmhpG8TtEBq
zOS_1ZGtPf)jd}k1mZ9uUE5mlN!<;^q>=DoYTi%}Qw)Zpt?6-fGs?~MBW%*H?x6Cl-
z#i4f$eZ|gN$_>5;dSvXwR1fiQ$=l$!;=p}v*}|8XgX8pMJ)d8g+3n?i?f3=J?Ba7X
zV@w%h7yOgfKf0o$Bw~N=u_LiNvI<M9ntA<hPMG_-)~q-s?}1Ly?`xI<qDmGEPao}C
zFH^kqre-(~Tlc)?61gcd&J$zW*ZJ+AH2vu*$veq;;y*vF@%U<#qxMtq1s7*&%M*8<
z-WAKgx97~+_o`i0@fMdzX<{z-{_v)_DK{rA>S?)epM87Qk;g6b%NrLzNjP>pv|04n
zE|qJMecDEvTOu!QU(Jv%m&#QjrO#$@H?KkXdRe=v=^iE3M`tq^n;$bT_ugM|_h;nM
z`10d3TTdQ2G~M^y8@tsC1!*f6*=?Q8GSkUty^#JIK66j``m7!o{%Z$1i<D+8KjAn(
zcJGoNtJy29*DPwYV~Ch{rS8=styfcR7auK@zQzABPIKK(m6lKba?+0^?4{(4(+@4<
zm6JZ-^)7kCY@2WXwq??Cix;%~3j8GTmaTL8hZ%M|Rc_mqrEjpww|HftGxzb<9HR)^
zXW5?(6t^>MiK<m+wP#J<&Cw!}nrhLu;O^#iVQcvw#Jo|HdsHKR%q#i&`n}D$fom8-
z)}-8POjsR}9m~1$&{>Ye>4o+Gtd92lo_{Fzv0>-&OM#{TiqtmO8Qt6OsHWW>KlgOX
z;r9MZJ^SV5l(z>zF|3Z3)8;lj_EK}*rOz``Ot0IBy^reO8yIbwldApob*-&m;f09W
zcX6%1%-{aKyp-*X%sjWuWx*v!V@12Kzt=g_cz;&5-^1ORGn4-wJ0rP~H^Kb;+DBQ{
z@*f2j{%%}<!p<rC-6xZav7bWk<?K8j_P4P5sp`Zye%7$Wg(v=QnsVzxCflQreU9h9
ze2jH)tT>Ro@Q(A7yctzporfOydM#92X8Kb4zLl=VywC>u*CrgAe^Wl*;re!L`peDV
z?mf1&`g-s5m$j27`2AcVuW>NnO{uuOL2%(M<Gr6neVjD+NBATjSQ>jNz2Nov@C{S$
zHHK*~pQ^0)dhtsgxxbHI$ka{YHJ^V~;9F^T;9(CLIqNxmG7A&T>NrJD``g(h>2RM{
zcARGX(s;(K{qv?L8&>Suap9M@qQgC<my0ZZUU+-sNwl_qy>g%7=?W&pxm=SY)^e|C
zWIdLjX;`Xcs?vHSDzf95)Mxo6O+_Z>rQ_D?U0?H|cHZi$oe|qpJ*5`*P7s$UyQ-%;
z>t=3&+|^A|_NyXK_qX)j;F;kiu-$3%yPfWbw*_7Prx~TBwYWmDMa8qSW2vyN-mXm*
zOWoVHtz&imx^+Y5?>~1_be8OiywUhO^-aNy`l}b7?x{?#S~{=4@zUM0nRVZ%%Cw01
zKb_EjcgNAl`?ZOeE0=Rz&GWlbHD~j}qIrJI&gI?-JMP6fKXYbk6PonyY3RzOvg-=H
zVm|M4mcMpt)%x7nxzldTZZ;F!=2^DS<5Qg3W3!vb->=<t)~dk3ujoKcG+)HjUjaI^
z?)a~~R(bOg!=HwkH~nn6+V8FZ`sACZd3EIS@87n_O+NPjV1LBn^Kt91WKHjkQP;0N
z^VI6ykALT`e{9P=GWp!~owW~>6Z=2%G}!f7U0EA+&S=%u@)W=5kY7Bfewq9{xQ*L&
z?dKiE>w4<GYIf;vN)mq@=;Z9TOQw27?=72e0r!eyw%wd4{o!ZA+(~OiCko9zHMg?1
zFzrSB+%F$wGQLz!^Ab81{DdV}fbm;j`lFbJRaL2imjx%@KKj^oX3i_FBYPe!=RFr~
z$z6Ftv{L$cK+&nL$jV5arxRE`)N0D!?I}pVS${C?^o$RO&;0h@uIy)%((|BVH6NeR
z8~qM$6HEPVH*`;adb63eP<G9&hnxO3d#(!1+|{zi=xR!@^v!d+tb2Nd6W_f2Y!W?Z
zMxFgfK|b-13wl!@xQHKE8B<@u`+nW(`S~ZiGF`s?IZ-Vy^3`wYXV1LkJC}C!Rym8-
zi@Up)bNep!jlb0Hv{aaVyY|0#6Ta{9p0BxU#&@yVd<t?E{36VGi=-;}-%mSRx&C1F
z3EQmqU!)%GtxFD__g=S>|G4dMdG7a|SC>7nJDvYJX7=8!%iOvJg);hfrG9G!wO2Gb
zF(-wz_C(8fYbEwyKBMaNHTQH@z|*$dk=K~Myt}aJoU!#M?+@R~KV7>m&oYVc!W}J5
z)==Ztw-@#tac|AA`}AR&$nF@?RpxeDGu||xEspe?KJ{DU>~qG#%;vM_-HZ)WX*j^X
zwq;Ta+k_i8HN{1z-D_L-;Ga|Y<8r3^7Kx`lwsZat_B7?$?f&z4)#QZ8!<&oG9DejH
z^LN8asn#c+2aAI5Bpke#&z@O&|EW&m{Jp_T+1;0vXv!)4t&_hWas70_|I*+*_oeK2
zY^}e(-1<3b;cum_eXV8jm-d$2kN#&jdH3yt7stx}|FyB~jC}v^*?RMx+jV1hM-`vf
z>t=m8WsQKUgWQd2ThHZv&Gi%CH`}@W$in~PoT93(5v?cdx6Kavc~(OBZHZ2Eu1(2|
z{>igX#_HLNdRVOAZ}la;k@<+l&#cSbr?Nb!?|ATYlOgNR>(~BlyI-SMCt?|~ZEE&n
zhFdN9i9$|aYkPJat+>hVsc~C*?xcfNyI$<5KNZw@(MoXDx+g3%m$a_>=67FcwbQ-n
zIzq4K<Q@_W+7%rjEG6VOJ-6`jUgZ$8a(zk10yF=D!~TzRoP8fj?&NYgVNi0;`_@a2
zc?tPmuNj@AI~V;@eYDsAaH-&nuMe$+=O%nr_px_yKDcf7s;fE6ZcYC3@Wzh7H)<-+
zUmLvr)y+_Q%*nXTDppk}$nfDEzpob!%<iQ9colK{--@fL99tE?NQ4#bVEwaXT}Ip0
zmJ57`gLDL^GjK<*b`SF9sCeXk(r9ge-J4TJ>kiyuTKp<1zNwvg`9YUI$84?^)y%Cb
z<(@aaajL>*|M}atS>$(1@GNIp&6p+p+M~#7kw|I4TaNp(ox$$TN81jsitr1sKXN1Y
zVq|!|0(YTvH+%FUr%wiVvsP;uaeKE0*B)H%AvC$m<o}LeYh2?MC%k5wbKl}c=qmpc
zzk70jy)!J>ewb<E=~F(N4(#exRag_)6SKweqetu+xth6Anj&A-Rj$@7J;iZ-s@8M1
z8LQh5`DG-s`+v^NnY$o3Aojh))Y-2^!mYHF`2?qZ`qFyt%(2dCSJRfQIdy8LX5YLS
zp^|fE)_e{-=QA(;j`g=GIejytb_xWGxk=b+HhE6EZnEg;zcXqpFU)qTUOfBbwTkuI
zlMlbF*1qTM-^{H(?`pZ^`>T($zWH%V&&aPWx#^-~To7-$=x^DZ@_UVM3cq@7fB9`v
zaQV}&<z<(+y$@WpE&dgqls<o7^`jHL^X>P1um175{@T2wwOH1&ftRO&*0Nbz7$cpM
zX=bK?c}k|4IdMzbA}8NDHnA@KP5*=2-*O5Ru5cd6|F-VhrnO&H-w7uEbQDp&B&Hd(
zNOkR>*XEnoozY5ReDO}PT{_G_<dvg&K<g@-{Wh;=w?AGW*Y`vJ@Bh!!`R#r@{_^4G
zZ1%^8;}6xJm#g{g&?;}^^Z)msr-$Qhj>-RQKfR&i?c2l0<Lx@iSGS*g>G-mJa`9ms
z`<g$W4$k-c_Dt+w#FU~pkLSz(mzuZG{dYlIdxi01=e)N@kMC~3#oHY<t-XK#p}+fg
zY;2Z1esO->-8)&f606U??3Ql*zVqi7nfaONi_g4#diJe_#p3CyUiJm2U*4A9Vb;f%
zS5;D+y;oM}&e!$k7A^DdWHxlCNi8e1`}^tGf%$0>cPy-beSMi+vrg8X*L>Oh-#6#j
z?b`XZ*-T2EZNG8Y&&%9<?jG9zL(^u3&(qfyp}hSy%=Zti*<$yXH!f?#=|`XDs8>9Q
zKXvw{obhTS#Tj4HQyspYS#Du!>=QQkpKM%}nVW9c{`=}*)_jtB_2u>tsSSA#R~@@L
zZ&i8UdiLn*s-oiTFALUQdbwzx*sSTcFN+FwzV|%6b!5JC{?s^8PbST*kbe)?HXVGs
zLYeiCT%FOOT{;_XM)BUVuKp#MZmYS3A<BEk{*7f4y|#Y^_s@UJlplKS|L+QZy$=W6
zS)D@i9!|-y)j9j3VaZ{Zf4uhu(jFxCFOya%Nba%z`QfCW*OFAz!yXQYUUK#qq!~P!
z6wdZNPj7zCPZKlkj_WZ$LwtXi6*Ye}IK3e%ZRYhqP2UfSFbgyER(AhRyRsmy_SeD<
z2jZ_S`DJ;B;r%1!tCprc-FAQX2-KWa^)Oogzu{nlwV3=0jx?6@Y*up;4OGr`$zKjp
z%3f8trE|f@tvA1$=-+zeex%-7c@ul*8>jU@B=tJw#1Ct>u+@h>bF=ZiUl;a~ah-@y
zuii4ot2<c!$=F_Ku=~r!nPrq`(wH_qv%n$xf2ncgp1H>2yg#+h1!-1Jn}0v!K~Zj_
z`vi+ESDP=p)Xm9D;AX#WG*j!yrYQ%f7oDBv?{V_7g^z=|hQ6mjeXQs71MRm|?MfEU
zpIM=-d9tq4fAzODH$}F)Y&!fqWnFB6^YKrYtc){~LKC89hBk8D%<T!ST__!F=WA;G
z?B*S<r4Qa7US#!MSpVOV?)+Zy^iJ`U3n~?L*xyF3)wydT5wXbrfY6+Mi{Cz|X5kXo
zsCZV!buaVSLFr<4pVh}QH&o_^Bu19&oj$ZW!qm_=tEz{qdh-irugTN8q^FtoDlR>2
zr=Dk0b?(iINAJ!Y5Zj=>>P)I2%gHlxH)p8EeY`&J0N*V4sqw!J^G;g4W?h@`qebP9
ztI9*x7auj_Hh)fPG|FGjxJGd8gQW>>rw$+8f43sSFn_|?gIO)IS3kB_$s|sm|KK+B
zUw;RQ4a*g-o9=G?`yo{BS9T0PGfOMWl=gp8d1YCK7i~hTW;|@&uXWz<e53q^_`1M-
zb)9=w&M`By6Ke0AJfmri&ib#FJD>W-Ffb=ipIO^^r;qLC9JfZ+)Wt`{OS00=|NF+q
z;dOrAvD(Hzj7DC!9o+66uxe@yzZ`h8T|WQN>Qy_qD^%?+>S+WXux(lxIOnP5g`5IO
z(+_=*yJN0h+az0~n_Dnz$Hg4sxCg%v^B-_pF1ULA<=Gc+|I_bb+Rx11boLSVzEdl*
zrgV49$OVU0GQErM7g~8{R-}sDt!DFyYajf*`R@4rnHzd$M#N9gPQ4nx)?9n7S<y@5
z&Np_)zXoLmUG<CR<>CLvDd=+Ng5<p)rgj$&e_8!i;HijL`DVqRz4r=AXIM^EttxP_
z(Ylpl>AJBe=v1Nqj*N;)iL$J6YxHjzUiAB|y=O0z)!fG9?pcd(&pei}YYyA5e{5lb
zWtC#OeLrNLKC5syVE=ut;Gfi&l7a`)M?bIHs#S2;MgLc1p;Pq!JyEYVxZaVS+OunF
zWOG)t?c2=V$`}34+2wp%mMD1R`kR?4Z!RQlSTDczUfvDcw7`0m+Z_+HFT9u(w8($f
z>zxT2I^4Q9vv1{J^yty&%xR8hGgFdEI)7^OW8KYds=JP|A5>Pa|J9b!^X4G`sj`Wh
zOHP|!tvGG^$>IL3BHdd|n~ioHZ2f9i_u)tUzd*BVd-h9bvt00Kno?%|O+MZH?(f~R
z{cfCfz2SSk=J&n#YP&if{5IL$xy<gxihFr%{s)@lJ>!peCtSK(kh|lR?dO#<7yVuJ
zBlL_z#Lp`)9=R1HGCFtuTv4g^;hgRM8)uYfO}e?<b4S6PRSzYM4j$sMQD`?zK6+5#
zd56=lr3*T4Zm*5lapTtQxJ?uHJmFQ@X*8{?Jv;UA3yVoS%+=2}8LHeAQ>ol1;Hh@f
z!C`7%3X7gs@)ey9sqeB6Z2x(!-ZJ5OY<qB&U|NoO4C9g3k5k(w3T^oicvSPGPb!<i
z%vQm?LNDg>1xGVQ5ATq>D6Hz~rS0yuRG`O~<+0dgPPS)1l5@G6Tjto#ui&!vIj}>#
zMefR*1A?m<1ykIejC1#?P3~q6+;oP?L`gDWowLdV=~j;zwy0kwpS%`LT<^&?c~j@?
z<Px{@&knh3G~KlO%l1$sCV<s%)@#SPk@jVs+;cM~d=fR8+5V%Y?$kOVN&DsRRqwa<
zx*R_K{qy9r`Vt8SuLHMS-w-I5Zyn?IYx6$KTy^Em@3Y?Zh(umai#g?SZgY9|&+C&u
zulw=W)S~@?UT}z)uWd`dfltHMqW3jD>v_GeT-+q}wt4Ejw>Ng(%%45U`N-A_g$z%7
z-zI(gk$hGCiOiL?hTp!NnKdE#OWD4r2@~%KDc;VUKB1WBr-ov9;eDZ={Ij7ZE;BSY
z7=`z`SBq*S8ca@QliuC_=BgcIy>s+6sZAa%Z~wfE%8lEyu1jE}?iCIHCu>h%P5CIg
zv+LAadFMmx52n22zLuhJt;tk!ZEwQSi4R^`3$HopW$V=+nxT99t7MecLjy%6(+jIE
z?VdQ(yQ!pEpxflpL)Kg0#8oG3P>vT|mGUW6^yjK`Q`etdx8#JUIs3wZEujhdsy}xz
zPu%!Lw(9iyj-daZMRzhpXT%>5d2wD_TX5@~`F{Uvi)TBFnWnnyMyURO!mir1Y1y*s
z<`vc+SC-Gob6njp^=U|j{|z(a!luMq7OYH;rzhQ?_B^rlKCAaK@5vP@Zp^20rs>Y=
z&nnmbJ0({2r=Q><@vE;|)OX50`}p+M|J!F|t4p8pRq_Ts<9pe-^VzJ!Gp+9nuH77A
zwC;hE*OVy@vv#CKFe<Fpv9R@3>{Mvo*UN7hyXV#=8FhXY%^wlo6>oWkDuidAVE)5r
z%9lJhZ0cbZ%V+*yK6r7cJU${mMQyH1({hV-k{_0r`q-aK%e<)>pEluGagy^R-?XV0
z{z&c*pIMMNHNp1eY?T1-q61}0`y^C89i9361KZaJHhvFY)p;teiJp+2uy&>8t~`a5
z<<}nkHDcvRZ`tZ};Iy@vNiNgwkL@Byek*n9$mc{XH{7tTa&wrDj)&lN^N)s)wYFrs
z*|+GhRBS0y&`mN4h!(5s?JvBw`J;x>U!hht1JPxIk!Lbzq!|i%y+88Ii@(RwE`6(x
zq=S>LUH-A<>Pj(g`HfHN<yU6U<SE`cBd)?p<*SnNT;CSGS^VdvZ*kkFoO*P#>svyh
z>sl4ty=H!Smw#V%>SUErz5V2}^sjxJg3EGaBae9o^+Zgp^$$)6JR@Z+<kQmp<Cls@
zX&cu>rnsZBn;*`eax=eG=Aqi;G+Akl%tZTpJ|632CYZ=fUphDCd{1?rnyul<D=N>g
zYIv{|FD~4sktXu~MHKJ0iSf#z>l8vC@AL>|&EZ-xCC*`4X`rTC;F&inPKv8H@im&S
zUU+7u-y_bh^OJs0xv|FV@FmyG!{(C@T|Req*QJ)!sM-%A7Bvyau1WQX<t<(un0@Gu
z-2F3hf1UL@wO;J&5S5&G-v7RtfavAi>w<5y*Uf0&nGnmrZddi3RVfQL`d8gv{K{$l
z!A}N1mc`sN@tB&<>B<zO8oXU&-s?q;ZWik%U-{M$(jC_R-bLT@=9BKnM>2wHG=5iD
zT=4WP`f@^N(m^E~=9_!87t}HCnkDU?%v9X-<o*`j|GWCw4$cZOa`dPb{;c+L#Tx_p
z!0qXi{NE<5JE>l~zx}ZJljcP%OB{XeUIsp&=s#()`^o2?&NYQ6zkg0w4Y7T4{*_k!
zv_~6vIN$wqQ^T|0(f78OL|){bO$*!l7uv60l5)LEscZYJHoK2fjZ12c1DHA_V$ECw
zC+etbba+fXs<2w-j+2+;uiHDnrcREzCtT^fFLu!ue(!*QDa~IlsO_(t$|$e9HgjeL
zQ}n!hD<mcun9a|+Sr8`o<L;%x$?SEkil;dy<ps?Ce9=dD!rIJrYfp+fhT6_@n{(+^
zP{y1Slfn(3<ezkmPW~QPXJyWRYE|jih0LdB9eB6KMMdHT^O~4u_ghDKqJCffBc=3&
zm1mAhl2qEf?$^%$%lPC<dv~>I3bL5!nyBu4<DzwU!PdtUe{W!M$ULrivf}iU%E-s%
zDK{<|m~_^y`79(;938Ryph9SGB-cGDA1S8QsaCgdU1@uz7Pie<*Z4(LZqcDU_6=WT
zl+x>d@|!cxo%Hb6Df|A90c~%dc}W|vY3*)kcip&c(d@LNDxcF0FJ{gRI#f9O-^6Z{
zU5Df}L{EsBRhmfz#+-W7pgr@S$91g(1yeWJRO>#MU4LootRpLzKXU&3W%VBs&cHdA
z{4E9r6^nOsf6qVgDaLx%sq2b|5~Tj-^Cn$c&+BwG%X7tf-VFu&^c18gK8kF)IC;uS
z-t7F3mFo`5s+d*E7T^10Vl4giz3a0h{uvfqQtNE*t<;fa-?BeIw*1Sx=vGGlRYg2^
zIX1V4uP^5LxN5yq;-W(dQEo1~v?66oj$caPul!NAKrQZm*0PLZj+uWfE-Yb7ub7)8
zYg^1EXnI-2;8^DwmZlDleJztd9W1}uvZmKed2h5^wPTP{f65jQp|0Lj9=Ff=>*Rd;
ztPp6pB#&$U#IIXp->wr>T&#0^>Q~jNVjNQ|B|^9MzWUpFwk~ON@y(u^i&oZ4&Q&}5
zPjq#t?|;*3xGZz(rHeVor!Uo6^~0|%wQF6l+=V4}J*(Q8Qk(>rmwM_<Jvpy)_2f&h
zBU`vEZf@!R`!3SJH11_#!nql%C%=4rXzO18pm}#>ixN!IcIyRcX|KPjB(?dM*ES8)
zx8l!kFSRo$PY@IPxF=mKFI{itjIMoC*KC}8q(mXoS&Os$EE5;&<D-9y7f*Rq!tW#a
zV%=%sgQpAIxqK$&7f-ioT%6Cqe)IUGZm)GuyN*0|4{QqM(l%mk?aYYec&2gbugsgQ
zoHgoyT&{21JipO2#Q6s2W);)x$L_SunAF9~{4RE$vI~pKRn@pD-|JR&nyVY1KD*}K
zq>9DcZl2zsr&5(QrBwH=-{l5PEqCkmt6REHzY2TF(Yv<Hq3i!N9i^%xVe^~>e&o(;
zdbuRF<LtR@UE5c0>d`uGD;bhkk}eTqwl6bD^>WK|j$-Tk3zYULt2*D~eRy`OQ(zTK
z-j4cZE?n34ot|=WLC|i^yX_0pw(ZXTxz_sNzEanupxjKk>!0GCu5bI<&o%k8ZWy0D
zx52mTs-=wGIm-pUPtL1V{=${Tv}a9tz(Q%ZmP_|G|M_p~t~9-S;WlNRnMq%#8<=am
z)x~YHPhF5KEE*Cq``Q!PuMy(eFOLN##jZ@*H2ulCDe||rEG|F4-cW1Dm!GCbrifea
zjV;PdEsb0r{zgSHv1(7=@A{<=%3Nm}rpmcJx**E<u*glw@m1(k|7Av<JNd(}m(B|0
zvgGi5u5jC6!as(TI?r#v&8qgzFkWD5t*G(*+K+j0kE?B;pUT&={WSO1m6Ka9&9=#U
zc<sXuc0I3D>sURj8N8v|i%TnwCfT$dfAFeR@j}e{`3%e6rZi~%oBWwwPkYVjUWFy?
zmrWJ9I}2r4SD$$MYKHTTyAS0~D2P^<o>W*{rF%oD;YQA8*7Jd!O}ynDTk{egZ8PLk
zyDpwRWm#AA`Q1mqJZgFE*R$HL|4d|s^jwM0I@?%3#k`TX{eF2;nC#|rW?4eHR}bD;
zX1M&puL6ODyF3qMezS%-AO5xe_7uHvcT@h51&6|36z-~j&ips-zWCwYt`{FTD`x47
zx!(7Dd~wxL7Sp4dD{O0`XZjpBxMdaB&v4|7^s8ORn(vobRcLv4{*^y{;#T|S6OXoL
z3%p)*D5&eg70H(AY6*AqHIz*5<i<P^>3p!2VSCxZq|KdQudMDqS&_fYA%ti4oo-VT
zUxuJZK9l#%*i#ud>AKm;<UTF^likz4u2RvzsV@1;wrgLU?Bo~HchZ;7%V|+7xw^eQ
zHA`?>_PWzolmvA}<xFQr%}Wyao@x7>>5QCpOHqL7R#uG-Onh?nrp_&s&hAwG@#n`f
zHq)5BhlQ@VyuZcRo2fqAKVmxb>HRvoF*51JrZIEG8;qk3W}B>e7IKJH=>Eqz_Nk#u
z#du8jT;G?SV&DFfP51X(X+PcHOD(t}eRCrU&ej>X=^qPIyw_~xbUW!)_F|nUPb=aR
zSf>@soz^SVo#*{Wk!gEU@E)y7+i0!og$K6nbj;dw?uOdeqY~oV?Oa+*e|4XIckN!s
zjg{5b-J6b8PF6kIRXut4GwC3^u$r(1tr?rE^0~L9$edq&Hd1v%b@`K`9jPC5nhr9(
zwSHJCd_R@jZfcR1^t;CL1IzDh|76AWx8nle?#{Qif<Gs>wN`zdm&2>yG((Fu=;M7w
z)}k}w>T5r4*>r8wn>+08muvX9$lUI%l2{WP`^Q;=*GD1kdFadj4#D^-|8Lx=)b&`^
zRJ}L&sCwg)E&HM-7>6j|UNVctc60i(rMGSz(CiaG<Mxl?_I-n8f_@?sr4Dq&>Z}r8
zyhF0d?1GlcI^G@1Zl#|dbH1s+R3X1`CF55|j>~f#HWxRir{=1%E?6tylfPL&I{WlY
z-Qv?CoBL-?Jiqa@z^vV`tI~h5$ed<)zar|a&H2h_6)z(1*xvB@)-`|X?#zT=CQt6E
zd`#(66#7+u^g?m#gCDC}m~<b9Z<)XQ1)KBwtN!JI4KK9#l=j`s+`Kt>L+EDChpfvE
zTU~PxdAlz%{m>K>uhPhkd@r^gTziLky~vtH_fllF;^w9qzunvy|10OQ`-VS0x1X4w
ze-yQCrknYUmllt&c&Xj@)j#~;mRZe2sYPqfZn~zn_>8Tg@vr)>bx)s*i^%<ml<dCp
z^va%K-A9?1RWJ0fX4>HGvtq)($qehdZF!4dJ3X0pzO&$ejGE;W*{JfQo$l8%g#5zR
zOnkk%%-TPGZRjTVE6M#Y7VjuiQ+#?P_N?6AIg{n8Lw05*@}9kAsIZx9<)R?9i|<6w
zC2{ZEb@Sh+ZJYLQx)s6w=k}E;UMHM8c?C35@5bL?SZI5l@%#3-U!&w%E@aBquYSH_
z?zY4y<q3gnqu+7dz4~kU)Jz4-?W?wR%#A&BRpe&on;_wo+A9t(?ia|(x_#K--1boH
z^&7dbnl?|@`%11~sW(HR>f&X`Ro!86(zllR|M+yNQ6zV7!nExP4vOY?x9`Z+Y7J9)
zo}fBo_w3J6&Zgft&UwSzRg~b7RDN$>OYhVtTIqkxn$0!$Yr0R<$qZ~Y)_xRv)7&g;
zDPvOM-(8#bs5d8{JuhM0bLec@L(^wpKFEL4`7L%LcFPB^xn=8KCq91g@Jv~G@A>L|
zZ}X(Ct!ypPouyv>UT2Zai8Uw7B3*7C<-5AD-c(e(r+kOos>7iX;jA)KPEM_8dAjrO
z)&LR1%i#+--%7lh^``TvR`sh5!OQH<HD6e})&0QJ+_SRM*Or97zqdh+Jz&LIF+;KQ
zJ#W9C*syN{o3VS?t}y2dx8I(;xAW)w=tt@*A)8ibYpbiw`^ol=FLq{hzq!9rVrA7z
z6%*eXeBUeLDmyPOcoqFY(a`jJi9u-pzWV|zoNliAB(!Y8qIJ8<H%;u=Jb%fzJ;JYV
z{m4)@DloBiIkTkddTiaKlKalxAIwGDIiAhFv?g2Xsol=p*=tu9+>)vN^Mqyf+SprL
zuPzHXBlkgAFZHQab@ka(o(s#Xn~s0k=W^lRhbQkY%{0<IrJfz^xN~*p&JX7$wbZ{`
zL>xcZawF`1=?%4&tij#aIrg1Znfhs}nN*!Ohh63*vF*pV=QPN%ZQ7N1XSL{#rk+<N
zOGHJFK0X-gt7fUYZjSq;5ACyjiX3lWO}QlFd&wrw=uyAsQie5?*OtU+AB}NVOjiD_
z6!Bm?lk@CJZ@p`?-DIX~Fs*u;R(W@NXT8m}$GY1ptd;)!jJ*GA#r}Q8*UEJ-pVe#s
z^m+gNwzFc7?LOzdS(9{8z$)2&%ai@ta;Fk?uVwarHM4GaKRo%_zUq00vs8FaeK_mr
za>(a)3QzFI(o?StM4sfgt+%@5$?2ax_p#;f<GedG-d%fssXDj!Ma|TGj*4c*3uo&+
zT(;_=;=#oB(%AVj71Pavti+d|w&GCub&TVbNKnM`bAo5qOy;YO*nDp1t6Xy>*>ej%
z=myO`R<G{ycGb<?Z!>>r7O)%M7CCy4HTQgGkHVsD)6Kl|Cf<x&(=csKaYlit_6zf0
zJDT=AoVhS+Q}>Ca=bCrh<}yv$wIVy%{qO^C`)5yeZm=tEIui4Y=kYbY;(bw@Bj!E7
z%9g^g?r&kvx4^C#{c^tCjbU<?2CJl}URt_jg}&fo;f{@#b3#MxtW`7)9o_3Z&xxlv
zEA~j}#n-!HKWVJ)_2WL3vnp>%{o2P<7~fv{y=j?DsA{vjbZ3Hep=x`q9Jh$yUbU;O
zCt3toT<5-WJ7W30gBh=EK7W}jc;Mn>d6x@a`C>0EpV@9vztdteJ-yKN<I3YNoqnm_
zT(o<N0e`XKwr!hd{QAp!%h-qO%#*^_ewHQopY!Iu>3T9DR-?A~VBy<CZW}jrb(v=A
zCw@;e`C6#>^f5b=#EoU*6JpjsJZvVgF)4gy+0U-E&R^Vm*S?%({Mb5L{C3mT!Yei1
zZ#0aiCBISLp0J|VKT(a<_f^EUpelpk9x9(pU4ta`UL~1D{4&%36!PTjV$QsI^}**?
z*-nZ(RK)S(cAESq>we7>Uk|F5@-O3V-uKbt*SC%%w<P4x`z(x*ew^}EK*d>7WlMmq
zg`HgR{_C^<NTqS_WYZQgVOZfk{btb3BL1b@&E~AVJ|T4#N1EH0S0#=z^GvS1T4Vm_
zS7hYzQ2oN1fXk+PE{Ct#w(#ZcJqm6XpX&~%aI-t;f1YY-%c0|`{_@A-hYP34X|L}q
z^%Z(kxzfH>c*gWM|86Bz{}!v>lqqGSoLcwwOQloLt7e1Zkk7(?_6sZb#Rc8#n*VB=
zibTy(l|}2NjCChu_HphEJ@>3iVORHq9aq-ZKVd5O|9YKE({;(N2p<dOwZ$Q~?`p02
zbIRy&tBQBXm7~EACZxKq+wo}bzZ%tx8drAzX-EoR{At3eGkS0T=`ZS^_I33P^TJvC
z9CM@|>ThXLTq3yVXHb5nNN443x1!A+Ume%ViCOIbB5qz{@@nlzW3eA|PdP5rFYtK3
zmru^y>TsxDjIXZ1ji|Dy=&M0{{jRLpbw=JtqHm|@b<VFR!;io0Ogq+>Uwhz;g4v`q
zJ$lQ0-%0osAI-CFnZ`1CzID@c!KYC*5fue1o`i9o^ls>ya`ni!jqlz~yVfk(a)vw2
zXr`+1#VJplY>x@O(G%KTZD`j$XX~qT;^wvqwbrGMcb!FIH%EM3W^TaM=5y}y$@f{|
zy<1l2te)X`b4ksz6n(3@9??0xQ)-S*Ija5AwUWWlPb%@>#cZdfZwbQon@*WjUzuvr
zF#qDMo%hQ8Z@hp0_es)k{%!ZCKUx}lpy%yd);)JDPnnf#K4@QEXrKT1!cxzBx9;dU
zSpD_fCYg3^#-s2Zoe6Jl)m+-ie?vmfr_YUfrpWz!37fiR$NZWbIVrPIK;rHOt1el8
z9l>`Mf|ujPq%(?+oI9ttC1~@D<9gF<jpi-4Yu!-0Z?DZnw#v?~xX9JZYEJFuO+Wj1
z<>$pFCO_o<pKR0Xf3t__O|N8={gk?JzTET9`Ux`knHnpW*KSe|mT#Wb5qICBJyO7G
z?}dyT)&G~?NP9V>a`~g(iUt#-cC|<Q{QF?6^Y6<`hKbQW#aB-I^!L5rDq&;4#Kvmf
z%Gv5K%eQ=)KlS_j_XW55qs{$3w5N*iKT_1q>N545aIx_3S@&kHy|2B`H)H)d?t9GK
z&yEXzUSVvzDf5VJ+uHT!H+y$%=MZ?dasKr6`!%*-Xqb5DwYkc#`eNa8Gd7-E%-r(s
zV29C+ztg6z=xKHdXxP=yob%gyPVaFundRzl9#(3qwEf-}qkXJKCVQ65a`8m%onQNx
z>YK?Wwl{Qd%sYDUvdi|4q>@8-{-5&d>TERr?0;J=-Z6J8`?aU>Y!6PY)KcMA@@>^o
z6g-<%V9e5#7Rp+A>&-lo^C!hUi!OiJcl3F*&dMKOT#T1?Y+CW)M)$U}&4*tvwKHGr
zyYBp=<x;w<W6p2c^yp=|=p(PDeXZ=TZcX;jx4NsLw_5&(-IWf8hnv=CZg`&Jd&P2s
z=R(uDjn6K0E-TWC(&cbD_;!9#UUKisCG4Rmgx>DEFnd8UQ|7r{YXo~69;|<)v{GjJ
z&7hVAM!_q$zMJ)`a$5SV<JbT0a9+oAZ}xrH{PSn#z3yU*sCjru?m!;Tr6;rG4z#@S
zKeV;iOX}b$VW~I4yLx5bi*I^=HSgQrl=oZT7nU-l@4CE))pk*3jJcQb;`DXjiwp$!
zU0y!n-u?12|HOuU@9U<Xt*%^bd+3sJzx;YDA#=%)E$2(8f8X*)>C4Rp7f<@H4iI{G
zT-NF8Dw)gG&Q~A!Z@a6sBJG_($Zfrbyxp-APMbY#mQno@R&;Vv*yXZ3)%4rBy>q8e
zT-kW_{nq0$CXW*5PG`F2>+7iK{qONA^VnwT?W^<;2J@b6Wy`DC{5i5=U;2iCmX@3)
z@1;&Fo!|`PJ9tSxBPg}=pWec{evfE#ckSh7*Jo_FQ#OawIN@yil91ja8G+OKFJ5m^
zQs2euzmWUZl^lPk6sJw=L;f7tBGbJl&*106=4nM-m#1>-1#RQxl!z`4uIOQ@_1*oa
zJYx1eW9DTFse2Ev6m*-<Dy*Y+?8_5_C)KA~4W+B~%Oa;H9JxBtZ~JnU+Xoh0dhs_&
zrCO(PX?2>HP~-JBMeinWZ`a<Ej<XVb0#$@orKA|vru%Q~GY(#J`f9<lDY?s7bG1&k
zxXn(A+x0e`XH$;ArpoyjvaY&JU-muX+mF7djMo%<w1sBAyTs@A!go{i>6>{vEL&^u
zMIYyT$8;r4lQs4I(Qh55&DZDVciJoOSh+)R%JjqQa>Z5O%H~9VK5~cqN5dPFzjbGx
zudUp~Q<be(6RTHu$HXwMyz-H6Po`eay4l;<9M!*Ze@@u!bm(fGG3zG_jRuujT7q)M
zVv}o%?D)F>i1~gJwbZO!RCo8={%x7Bl0J9^$&}1;n!hr8w%bXzi7#xY%2|kS*SW3d
zyy(8Hrt_pbnJ3?*O8=g!QhfB*l9<Afxyz!&RhAk*(2mv)|L@^dCEL7u;xn$-+|A!#
zPdxPVlcGbqo3E(b=T&xGzatuBwD(V$Bm67mgnO8AYGB{@=i2Kpor=)0OD(p2F7VK4
zNwVg*oK3}tx4unTqr54Mb4ujmD_0c{<<FEWZvL%xS~dCl)ot4)KdicMr95Bs%8uQf
z$Hh*hO$|Bbr+i0gj>YfNXs2Hx;>(^#+vIl_xJ`fX<B|7W)gKxxXT`qpdHqg(q`P*r
z=G5<xbOeg*(i$sfPY$~I&~Z|2!Ez;$)*xZ$lj_FbHOh8>jVm^7$mCuuuyWr%f%G*?
zeC|5+mpxSGR`gH4yI<LNagqCDS7E<t9xOl3x7IA~=h}AS%CR%AbP}pMH_giC-ac(_
z*T#VJ%X9mTEMLq}VScxZi~F^9k(lwVw>!&@c@=#(zMj3lIOj>#w`jHFv(9q&osKo~
zv@>6kG^rpW;52KGchcFKXpeq#MoyD(=iuJcGgP+yUlXCgv+3MUf9LDIhKEjk<BL>S
zH#Pf8s6;xe@pH|SCu1hvdT=u#Ddh`;*B17hW-nK8hU>+y66z0pC3>`0@9G}g<2%Hp
z+p_Py>7C;I{nnB?v#)!rE^%4!-{#pD&-QS`ug%g+R4X@{d|I^4Rcd`zT*Iti9+OKh
zshhgRwr;<kq>z6(^aI<;y>@Q(ZU?GkEL`?qRS^0ZyVLOrJJZdd>onFe9>|-RsWx%f
zi7&OcnI$>zy$?{Gu~~74*{trfH|Kn>Q};Qs+voM-jaS!6-hS3|ZDVM7e$CWtIk!WW
zeD4)GvZSNfYRcZ}zu(KOPP(x5YFVR5SyRIdmc3WZnm@c|?!UkNul@G7?&g}$P95QB
zeeS&S?3s?2ug-Lst=%v7^vG@5z<&=Pv)4D&|7YKlw!;I<svYo39Pp|g0~2G!0aWIO
zSXS+r8xgl^=k~Tc+a}gt4}Y<-dYa$t9YQCfAKg(qSurWXQ?2k%LiENrH>S<$p6a=;
zZj}Q=C<FJKwE5FYO+H@wR3u+EnWZtdb=MoMe@{P_1of-`ng0L($?*PrKfnI@@$<f%
zZ+|`0f7|*m)7`cHJ}CTmUp?OT-@)KN6YFLCFJ|Y<+yDJ?v1nV>n>luxe=Ew~i5z;o
zJl^)#gM|L_5AGqSWMlsRczAjKLDMfO^6Wc0%o+8I(vuHte!s=qRrK-W<>w##DewO=
zeg55trx#ngnzNSwsQJ0%+2Q5x^+5-B6#V%8(Qp18lg#pp$}Q^IUu5|8KlGVNr1JSc
z_+4qIDaz;nTGjvSq#s+&)#V>QTwJm%bl;qHYprdX-}l-bUBPGHT<vGZV)5HAyST_q
zrmkYoX7%-Zx?isN_#xuq2j(4<`YxV%GppX#PhEQP_F45cl_p&BN96tmvQKX}@qf7B
z^~=d0PF{V!^!9_3g;qNc>pv7!m)~PuQ+DOmlD(VT>*e16$qd{4t$qK&>jv)+USB@*
z@5AdqYBv;rX}6aZwc)b4rfs$STvVLfQ>A!!(T8S?A0}MWKYQlM^9;Vvf)^6sta(uR
zL3qtZ4i?b|ZX5pn<jRo?slD{{C1XCjvdrvPhT;8718*<jx%b(RdER@GGyCU$IotRw
zkuB+p@`9h13}J@^GU{ge8#gpDpKT8C(OzIVLBe?DZ|1XyGma}{tABd@XN}`j<L?PP
z?Q5EMsvi?rnHaR4MRIq%Q0eolO#;G)Kh0*XEqH4aYN5MKZuTz!x7(LDEh(uDnLGK@
zdj7_=d49zklv$*>FSANWC|<CLFucxSFxTj;EW`B0<`+sb56o6L;=j*MZ{DM4lNoDu
zeQ&#eZD-lX)>g5<;D@NqnTOJcKD&!P(HA(uCa-(ejOX6jmo~<8_ZYU%m+`IAikOvo
zsIz7HCE*A8>}|Y<_AzW&B<e6(Q0KAOyO)fH(mQ-N6s<cD7A|niZ`Q{dyMz|$7w)!@
zOuqAQ@?y5ur)u>-9<5M!;Cb`4+o#&$wXoC4_kHC%OeIn+%Op-&xFnXYopoGbYk~Uv
z=pH4dCc8i4bDB9~!)_f4m7cL@&GbJ#dXZBFcKb^1(z@L8{0Lv~4^5LDE*j?}s}k&N
z#pR`>9H%Ji@O${G#42b`e|4SlT*#(lMhTCWg_Ufu*`Sv5TKBU1jhU+_Tqvu_O5|wP
zxv=t9aLYO4OHnN|^jDu-?60rwGyloi3+LP4KbFZzE>ZaK=zD6kOyY6IGNz34sr*b2
z)V^5E$c@<^FIQ^Ax>z}}>E(L=2gxmS)2_YwblUN~=zpt~dEEamO_*wRkpJ6@?N2oi
z@4G8n()Ce1qTpxd--qJItt-s#_&EK`{4mRT)5UsgktkNF+>_sfGFnuEGPdwfmU><O
z<lF7NUhC$3-&0rRc$>A>*WvF9##QW%P0c%^x2P=$=4`b0%6`4b(_2Vqhx<g?n463r
zUdD@Nx9r!~zB2Et6z}xey-#X?$-TE&J-PYw{b&}>I<8Hbk2AXp?f&ePk|`-x<Ivr6
z`DyJ=8$Z9jd$i3C%e-9n?!)~Z-|ZIPzwCSI-fCu^iHZFQ|AKC17xJhrxad^%l~pr%
z7ymlz__AB-_tj%dl#c#qzq9$l@nu)p66z##cj%rut}l~v`@zzCGMfuu>1|Ii)(D*{
z-|=ISVw!B~&YlHa0Tr8Ce6Ko{y%c`+aOLJ%4`*nsS#cx!`kFWVUl_b9Rs=J83t6*%
zbGmZh^X~rjS0)<OD+H-miS1uA;e@sRn`4#FOS{t><7PZtCS|P2!D*eOp0T<#Zf$$%
zjMYo#edG&UI62JjBct=y`)|@-w7l74R<h_pU~Wb3rPH=+j;%7zvdg?3{e7|}>kjRI
zvs5NeYfIcIe5Zv!Q0T_qwv7ikGS~vPHuVacb2n?g=#^pd>Dd0EyXbS}%=acDHHQ*r
ztX0+()76@N=)ViY*<-$H-rsqcuKwCAAw0L~-JGd4-d%DvZpv!P6Px(!ZIz4?4*6|!
zSpS*hK;PzV!hd(=uH}s`Vct=bdwcG?lrJf#=H^bFT3M_gEjceVtm(m<)`M|rjtOtK
zJbiN~Sf)rNU6=2Lg8$=!(!vSR9by?V9Dz37+vbShJ@|XYjVCJ6hDWv>et0u%*=GBl
zyY}7pzn$2SZhqDHW?7r#%qm9NFEUXVmc$;|>DADsr)tjiDvxKfP+06uo6P(7Ilfx9
zN>6|3D^gLmkN-Z4S~usSa|f1mE){vaCW<kB^0btP+wXPF>~*(&ZW42fHEqs@;(yDd
z;!DhKuh<`6YOwOQ!it2T(<X1HOzQYr-ZE>~`o7*p{I8Vi-JS`udhA=)T>e9Fnro(<
zSXz2*gnsGT*WMkA1^;}uXf8U&+UUwvY$Lh&cEOpuZ<y46p9;+Ty<~EY)OSe(3AQ%B
zYkRY5WH#KG@$mCuk<6Bd))K4iSSyw=-0&#d?(Xfl_*&<;529JDsf*n&|H`vFXlmkC
zD6@=9xa5@n{+9K%4V-SPCC)J}-0<@epGsrjU)hjZp%R|Igx@7Fww=%aY`)_hPnP=1
zyx!UCPAYeMJLG&5jxm1Xn30~K`|14)wbQI~*-pmoYqgbbe_?QH$;SoF{g<CO%%9?@
z)6Bd0OLl{%OZtx1NAmnEtLHEN>~QR|xux4WzW)}7{`Ec7b>avX%4tuy**v{B;Msg5
z_byr0tD9S9<qGkLd|5G@;i`OpbHdfRI_W}p_8)4PVJtOw<J%c2yV;YR7?&+N+5h3K
z)qA;ci~sotcrRAXJ(T-bpf=zBNd7NHk!ZEc+rB$rVZD{jt9PYKe(f{KoCoFXCpYC}
z<gULHv;Kz4L+`lN_YYXLtT)^6q*c24*v`niu3ek9SPS%C&0n<Upkr^_-$xfO|F6*4
zd{T#JnrKz;Wla@RBZugA2hQfV%ZnSIInVN&Ha{W#zV;rDYa(u+!!90;?9jVa?JlmK
zsQK%KQr^wE%kqVMA8a`&%viO<ke6MZXZpsOX{SH)&h=mDkXF+veLLKpx0plh{qghw
zujw^S6CE6M-fUw&e6s1doSBpGHUE<jo-e;2*<km>?vp{JMU&8j^HtB49~<`i?KFPK
zap`Tw5&weon(w?)BH8PXzj@~=Jh3;X(EhgDvz>o=T4(NQ-YHjnS7&S2;_itJyF2Gh
z(|s`O<iTz0q8>;+4eog0%e?)F7~26~L(?6;%x6ThnC2I9&)9Wrdf}xRogSSvWj_N|
zr1C0eEnjuxz@f#z+tqlhPKh&Dhk0E$mj9I6YH92wU8q@HRQaXP(a9{z)xKb_RhHiD
z`KDWbM~ayxJTEy{Q1m!HRQPjssidm;+`gBln{FB=3AmKKIoI&IZPLGk4SSgVA4!S%
zIjd>yKhxp%P05&3V*lgARX@wNXB0K=3l!v*$=o+%UdqXiITDSA0t-8HKIy+wxwL7@
z0zI2B;nR98XA}I=wr!j&XT$s__1ue97o*K$I*)&1)$|dH{luMdXUmT>ei^AY{K*m$
z{BmXTmsRIqvQSR$?41#HI!QlnUgOK;!so5gPtv{nBbM6DnYe!D$?$o<Plz&J7GYVk
zk!9b6oUQu1XSy=h2CgW{(!O!mvXE!)YuU4Ir}$T9h5g*y_%6q7a)H!AwLDf<nVBM~
z;@>VQX`FcDy#1#r>qpM~GYb|hR}J3rSU=6aY|GS``JVEdS#KW+d>xkleBNi)+p#Z$
z_9cYHT>rqDXlM9-+avCIACI(0@)ea#c~BbsWK(zY`MTU#^Iz=qBGsLL9Y4;{uwY4r
zw7X)h$D5VYOlR26uTD(JGbk{7S>QP#HP|lHOJ-d$-?me)O3q#Q(zM{*p~aPne|K#)
znlVSp`_1-!Vb6;~bF<9tfBUyO*n0OGRBvc`cR*oU<%umlXN*>a&9ZfF%rBoPdU~=6
z_gN>`tEx+dF3&PN-uLrt%+v=~&tES77`&^iXZtzUz!?W~GXrJg(rRZVo_*gfZt&~Q
zg`=_iLS<!`{yp3;YOy3b_kgL-j*BNBS68tJd-yN>DlB$vHD8T%ja!&|{?>;ZjV5e3
zeRJD}3PGKJ)enQd&0hUXsk&K~yV}{B*DiYBGU*!%8#4W}#Vb?)DxEmeyf%B<)S$x-
zSxVogYwGS)YWgPZH1mi<;xnd)GyPUN?kdg<E?j(DS}pd{vfMc(E<dlm_D!GqV~Lc+
zpV%o|`Pkf#UR@M<!$&)_zKpZ;zw~a-Y*U-rR+B`xy?XPwv#i(l=ggW@lR~4X&CO`o
zzkYs%Quc=81c&vvB-gzY|LAp!J5!>%Y<hs%oG+?I6}wqg)MKVOe$t7Q^tgH?lqc+7
zMaH!+O5P1jva(6*{4VES{L=luz<JibE~$SjwiYi;KK!OYWfR-<RYt1M7d?N>9Xj*D
zEbH2db^q(TbuTSUQu<iB;0;grsiGYlg1ql9t<qcneDAy|QtT%JFE%VT?R)f=$&c?G
zZ{y?_6U#W}2r*|jOy05ZUM%~Z66bQmf?abmxhBR+{y0&7FJ2?kY4UcBDRT<;M;^6Z
zw)d4*aO+wIt4;H)t{E5iG90Z{_;BCbxKr(!^aXd}jXg&X<$s^GRgiO*T;^f{?wi3p
zdkX%~$V$(?Fy(3Qrx@48tQ}W4@?P6s?261h8la^4<9y8XO)j~qDu1WEioKzKp4E(-
zKTA2K?dh~q*Rx+8--;ggDh<+|x#@DI@(j)OlVcw1=tfNaGJl;`=<NeH$|?)9^Y%H0
z&4^zvm$g^IQt?yO&Sf0AQ(H35I(6mFYP1UryLw~UmJ*@*sVlB}U*b!)Ss%60`=ze^
z8lAYZ!urf#tG_g#Oy7I_P^`DP)XEz(wmn}bu-5-fV9wj(ME7*fkG6YiY*;t^mQy{x
zZ{Y-yyA#{O=H<uBPcW9Y^NMIZ#h(zO{&d0;KdX5bf6A=&vNAR&m^Fw5NVB<ql#&ko
z@_ItrR$IxWpDCBV2>tBQ7Ry}u!~3GG>9P59YhKx0c2PU+*}2b~YuBVQRqY9VohKiE
zVwnANdRUEgnDnQK&obk4t7px=z3Wia(%LFslkH`>97W;`YY+BcnUWmu`fKk+v*R4r
z4*nPYYrE3SU2e<7uul-n{k$YW(MpWjjAfVZC8jjhGdndb6xZekOp&|0DpcpoCLtmD
z!zZ=wUlbAZDVsAzRQ-jJ7USX%8y5AJ?^2ijYO1hk=3Be1X@}Xw>!g$C@SLx7EnRZ{
zwXMX(9-hUf<tkeu=SLZz%-&RetNU)oscGDXPkFa%e(_^(zIk!=iu?}~%kG-Ke513s
z+iBIAfIC-b=;m)Q&zQCKrKRt0o8^tuluP_&wQkRg@N+Pcy?vp3(%$c{GHk`ZTR$`P
z<~*r>#W!!|)ZLf!4yBnmhim_}skVCaJoo5F%T-D*`O7}Uw`iTq)T-rbpV6*vTDxtJ
zjfmuw+(zGPe!d#Z76hGfyxKU2@%xd3dr#bWD%*YO#K!1Fw|B0ce?B@$qTuFrT_63`
zynJ)-8~MbPv86mt*>*#ADu*=lY16NglU>af71u03ur+XpqN`T%_orVT@AWXwy`k`X
z_Rbl1ew@-SWnOo=%zIs_-kv3wi#(DKZ@e4+@3rY;Z$VM_yX*g4FP*ifSBUrS)rOU?
z^G>UBtchgYaZ1`+?@{7a_6^!ndMr%hR_9FFntq)s;1jaR{FW53D4i!RXqM#cEB}LK
zzKWFa?AYfW`*^<CYrCwFtnyBSm7-JK^+c!MJMy$Aq)+o&SXug+&P%sKOZ}GqyR0iZ
zxvZ&qvuuy{)y8vOUIzcUzRzX68WF)YPgG{EZS8N(IR5P?8E$tTer<WU?G%@ZyYtn_
zT@lx~_cI^#+Bn6!M{S+9as1WO)6#h+`i8EpmTkPfiEY-NQ<H^Qw@lV!W!&+0?rM$%
zkGi;xO|P^6J~R*Vn=5?IaMQDjt#`WCEaqBnGWX+mWs8Nk+}7l_S|>Pa@b`48E}7Jq
z`f5vkl~(%!^@zX&*7q9&t4<iL^EcM>znU1xt^D^u#Rc2*J92w3+XNT>sVwGCyD??G
z<>Q)<n-0ciEk3e(W{kPlnR`Dc=r(g&?a04ftiMufM`4kKWaq2elXIeyHb~q}Dbc;f
zcS=}t=CN11Yj=HEYS6>@I7@oL63-6n-KJ@=)vGmT<b28#wmJ4!`ZrtUlj&RDC1;mu
z??^bPDjCw^eQV*8HR89o?&`DYUbZm4%R2Vs`ah@kdOu}}dMC4Mr})8h&u89JKHIZJ
zJvF#(ujWtvSHD8G3*Pj);%nA)xmsdMWFU+6DZ3)pz&Gz>RldvYO<l?>{gBHzJ8tb4
z)0Z>OXX$TPcyV6sl&M*g<=Zy(NW9&>B1-tuUX%I_Pqt<<b+Btrak(C_PEz{Or2QIE
zaZ6VO{tk@I`&G5{T~O%a_!!SHw}8-9H{9R3u72aOTe-4g@#gNii8c#n&FWHootxDe
z<oevFr#ZJ`k9f??d(+nKD(UU4ez7Y2YTL5(8=^cDOEZfsdA(c`c6DfKeA{@jJ1A#q
zpiZcF{M@4|k9VI>-*)W#&s{+~7R*~_*QmHK?ofSOOeyQyRgIG;9r$g?z%HXLTFg~h
z*}(R5FL#w=a{9(j<D>6p{5)ErIa_v>Lzv3+W$(YK3d!jC1a9$susVK0LWH9&_m!`%
zD!(=Pg2H(<{dVecf2dveRf=Kht*^Ik=LfbQEMd^vxlpiS(vN1d?BbZ8OR^a!m7WTi
z9(Cv4t-QxCr}@^Nn)JNm@&egs#eD0R_QY=qS-imRv}E1<Wk(e6ZD`xK_?oWi7m?uG
z?_{g_rY;Uw=h-!t=hf5u7CQP(9a1SKCsNl5+<fsRf#;jkD;7omI&T4i9vwdw&Zd^r
z3NqCaJ4C9j1@z8OyEFHws%=%g*M>u?Gg8za%O5_h(B7CRv^;HLKw`M%%990;Pg~u}
z=)QQ3(MUe^aztdt(Je)W1?v|-VAi`ZXKRf1j$*!i|0f}V(>L&jtymH|C$asJ{gNHN
zhTnVQUmutG8Iu#HKkIDqLbF|MfnMgZJQ2c9AJu&?_de{NqBtu{{l>OuduFY#YpuPd
z=lCh?&l@R5-8c4<Gm5rW9^bcH$u#1epqAH%IBPGj4Vto(nYkwKKKJH^<Hu7?SGFHt
z;;;Dg+8pc7!UUPNCD*=p1$?@A=kJk>%;U*bjhTv)al%TQIrxvNe*Lx5_qoZ=3Ol}(
z7q=&U@NQk9m|dgpI^8qyepW_wS4U~dR1s10^}Q3G?YZZXrT4np`A=q8;NIygj9ufl
zR5*T~(YE67tm6sXXVo~u?Dqwy@07Q;m9z{f;W=N>q+pWW`n7+H!QaWtIM4D1=IFe6
z?73EJb?1xu)}QsO4wUoui`}|+$JFK(?}3oxXAZmFT$OYFRPIrcdPc`I9?6^?Ui=&Q
zW<6&~-8FmeaVfss7~xdu@6S)(@NRy1QYw?7_Cyw6f~5ZBmC3n}Chy4labrP&MBS%7
zi+CnU)jNevW?^Mwcz(T4B<8yC-`hQA2gHsz2Po-h%ud#pxUl+^!=w_cYv%6CpJ(-C
zZGLfc_e@nKmDLZXZkW1Bc9AJ}k@p+7g-gFH?%cU`TBU>ejVU^>RTTCXXqMSUSXtbD
z^ey$IwtcGm?{|(JtMzwE`IeieX~><Py~fA$;ml{>-iK*iemS4}`_E02g;;WpyS_aQ
zRi0!1)bZt%j2Q<Hn5<s$c!{}44{zh!TO|t>xr{AqmQVaxzF498&nksOcmID|mB^JX
zJCE<uZ|S39Mdz<&38wuC_l}#g`uQD+!Yj}G__&_jXs!5ATX=eL>tfYYRTrB4lJ=k3
ztzLFfxpUFOTAyEKS2H%vZhp2`ynC_M`^_x7mPOYHcP6kXU0S%qZ^`x3Wh-7ETbBI!
zh4hk7i;n5@`WO^hUOgKm<&&FrgOPJ>_|oW59wW})TRS?qokScBpI&C^+puyc8~fw!
zF)u&9-zZ;mK|DCs`h8V%JWJUG<>sGvTaQncS$j!h@B7*FPB^XJ_fqj(^S+nm8{`kY
zOR$*D@$8`T%F~H#;<vZYj*xI$y1Bait?EXb<wX~ql)PNzm)q{kN#%QxvFgO8OZul;
zFEclYOHB`a-hJonWbc0u{U2mA3$?K)vRFx+ZMz`Y$`E}ob&-J3ge?Bwj?q8%oi_VE
zkxllY^L;_Pi6IQlW>;B^yGu4EEzbOAvC{C|sWsl_D#{gSJ96UswX<(EUY=KV#{b(P
zxzA6EJH_tuy5=lQnzgWFYFyg%u83%jz@BZq!X-=X#Dz;@BRs@3^2E|bmR*`B+R(+z
z7Gx(H{^(Ur`2SPSu9;3Yn|Y0)l|AzFZTSzkx+ZPR&I~>ka=$wF=jrt0uI%A!);=kV
zJ{YKec>Q{&Wm{QmFRJd4yL0K1*#1}i`=hh+w`_@MD>!I<<NelcwbKuW<(;?g)7T#D
zKezTkxAyBNrytMD>;HLL%`58ufmy;r{@znfZNDeoPdvK)N!L$D1>w}<t6mQeuAN^m
z-Fo?6b@1EJg4Gqr--_SUd-x^2<?}-cpYQR}n)~+V8hp+Cu>Ewxtov>UznX7pOHVBP
z{&p3Axc2${g%5T~NBL~oW*fid=z)L&%}14|xB9YNC@9O-JaMW=`q-Sb61zR@Q)gYi
zD|PH{(fve?+J|#rnN5kyJ6&{8`r>VoCo#Sb(!RA$;!}g3Y}AX4d8sU6qkFhYXhnrV
zZ*%WFAx0AmrtNbK79Tic!BM}tPXC?S-@AHVR;70`%4fay=8Ze9w^WTiqsV!~YR-@*
z>Gsc$mjnl1tp4+7w}5HS?%t^H;T{SLn&*3NEdS;$b~N5X_s6{|L%V6KA3l3#`)11i
zQ(Gn`eD-!a9JF?W&5K{IveK3+rj-qsUY}OH`)cb3lZ;c=x%<VYHJsF4Wi9Me<$965
zi7DAR<^8Uo+;78lCjCm3O<8?Y-lw7HN8hp~&FS+dB~`wgD)jDNaF}_@u0Q511-BTt
zDc%qZN%cE5Z_1@y9aaIy-LmGlWuqlu9H036n!Eb7X-)I)tP=cEo*|{ZrM+j_-LmHo
zz6vR~f868mm~pG`kdcse>O2Y8_QnOPC-`yHIL&;&yy$J*vIE;s7M&56)-DOJjXOA*
zcjbzbgO+}byG^B2_WEYb7MWU<vhy2*=ijtTSqXnP_WO6tF<lb&lGDaF`b4j+z0af0
zZTd}T&a6HC@&B|*^S8zCDe6oKVCeK=@HBF(+NNmV`K~N+y{TIGLVNRH{lT+@La&$n
zDqLyR8Dk%0Ef>Y~ONH}h$AsJsiF4$fjV}M+8GE{IO11RVYpZSfXTEVz(h*MC*{YS}
z<14%6;*HQI`9E$(rK<T{^DnUq%ss8TxYI`T)3rX^B%OfoZ^W00ojT#$n*7-G!QO%#
zG4*RKjo#XOqb<Co*H0{1@;*0SeR5T3<h7L9->u!)k`5;?2p9Wipksb;S*({v`$;h#
zv(WB_!(mRB6?#tH4)+dCwfI}CG{^U#@g@277B6-g&w6+CviIcH;y<gecJKQ9Ecn*`
z_lBh#tnQ!vzP0pR`Oe#!uL?FS)hl1O{OWu5&o4~bHZ8ujKj-w^{Fh~M;?v8$3ys^Q
zukW1g8QnHF-pP?U>h2z9!;1o8a}P#aef=EfG)d}zOu$Y56|QFuCOzLMykK4GtDVbx
zQZCxO*SpB-d!zJrxckzb#_3%#hq5l%ZHSPuRhR5m;h(Pg<L~>_7x5mI{ojo&_`?^m
zyf3@`w=iAm+zL6NqSY;DUWsH~eP1qAWY4K+uxX+9tLg7PFJhPep1W7(irT~rlRU13
z1)p5-+JpCI>NGajwj0wr?mS{uS(o|F(KNO!zoY7LZuBx%o7NS!+4mJ&BJ((YEWL8E
zpJD%n)zxB^x~uN6{|FJOv_7(YA$Q`Jbpb}^8?P+eb@hef|8Ew`hF3E###Tf!-+H7V
zzH7y{+Qi^*k=rKQ^x8~`v#5S_cjcoyT0S>YXKbCAzaipE*X^>z5J}bMEtjoDJudD3
ztFr5EnOB*7`L}2n%evg(V!yVk9+7sf{P^O&*^Fq;XVasdxKEfSFD_l*%e?x|7r6({
zM!gxw1H#`)1g$)7P~dXx5|4mbmt9uQL>Ct==CoJKSzNE|VpLgF`>|whd2EjXyYOwH
zD^FF$AA1SfczcJwUwTB7RqyeGRZDN!n{Q8PV}9v-X~U$0u}RAd?|N)%Esd_3!u_V4
z^?UGTpNl(w&iXU)w0D1rm)ddD^x|F9Hs9=)T(H7f_~q}5*(cona$OVuJMGFlSzW$1
zHG8Y$`=IIfCb@r#p7G-#Q|qksT|d4G_4F0?8c+ARWiWHef}*dVynJ=}r(K!yanY=z
z^s6F^-pU*;|Mo_AQ<d+>yPkVD$ckkg7w_1csP|G%J!9E+M&Y83QKd`PIlD`(*()bo
zd3Xn_)q!h<zt~=!a8~lYxIH*axl`6psp?Pu_D?(3Jb87<_Hodx%uo^YHMya3@z!^@
z?%dPRV{k=cZ~BEKr=(f@nkyshc4o1wOT7s)u`6!~=!&jXJ)NJEpR?r7{~6axBY#g`
zCir#UH}&jImw(NDyKr}@H?u0wWr3B-lU<lH)1<4Xb;KO8zphnor0n|b`FnTc>7KH;
zd0!kkW_W#h|N3X4K7#kH_V}5-s4m|6J2mrh#^owSam52}pPU$arZs3T=og=T?`(75
zzSnV4U1wga-utxsv8-9wvAELLS2jIaAtr41U2R(M`O~4#EuyWmZtas?YAU)lTX6Ok
zgTMC*8oiTsPwrE1UaI(h%AK$4-Z9NoE{qGG9%i()tkU1VV&Tavs#!C{i@e_#yx%o(
zy3(b6Web)Yp7LY(k+aSqS5v4pL+Q=Nx?iQUwrSX8<yCIH(|+c@xozAe{}t7-adA=~
zxIePGv^@C374e~Ax4;R@dA$238y=Y!5%<GoO>5vs_O-8$D)CQvbu0B3zvKJIQ9JHE
z+0*U6r+HJ@o?F>DH#gVJZx>l~@jKru@7@=`r>#tPGWlk`vtmb)qFeR9-X}@d?<ob<
z_H2mvXseyiwc2I}cS>u|v^!ZlHE*62Ijd=PTqjd(rOY?uGZ&A3Z!<j3ePpZp8qpUo
z3;$aSs~MEkgioDvbfNI1Z+9(K8)vQL`Ytx9=%=mIq?2pR^&S{x-#goS_l@hnrD9vY
zx(RPMR+jm!$o5O9^V%g=(JUet|DHXec*?P}hataWO8fpW{|#GCzR8b2GHcFzLtbIF
ziD$xYKL5)c_58sh$<sOsW`b+HCA7<KxA~st-qEI3Kl#yZ!SXZlug|UBk(|sS9P?Xm
zQ7+@{4tC2l`x^F3w;QhP(N*Bx&babI&c~n$e)%j*Dm~j2jvn#upY9WVs-iG1|Itzw
zR^vPM+HtGHGB>37+lGn%i4R#{F1V9XFoJg?@5U2shb^<jJC)Y|pX#<L&2Crmq(j*+
z*skflUHpYjS96MfsLYhg+Rbf63BHnFzczjdEn2d@`8Ma<N41j=hO_2&1<zxUk9ode
z>dpzKFZ|tuN&*|E6&=)x{grmB-#6$mYm`B8YQwhr-bZQcgwM^aUc2iR^BqwIuZ3R%
z#gAN(i^-1ku8ZPkjHo@i;e6r0I*FaUEBB|wFWA=7Jk$Bm{i1;I?uC<%E)3`MT)81;
z(TQ{qiQEZdyDiRJM;}l-bUpjll)JpE`0BoVxw!tp{r`;9@5Rr-vhczjw3q_4@WR5x
z+yH6eg&DSm7v{t*yolT`V>z+z`}!UE!KTN}t+zfsByGT(HdAha?`5733EK~T`%<)<
z@vzDMI;AO-lvG-aRz_bhJ1isbCmw2UJoVD@i2WS3#h1%pEjwQSaR2<;pD&u@d(HL#
ze_FBsr{SOXPZ#IQY5r$7e`r6yw(@iH@*nPp&)zxPEcfQ@WqaGGbz$b`Ui!V9eQ{^r
zth{-3KVOuqSMO{6Z>;^)&-vGn_T~1i)i3Vd^C_5o(5GT@w6*VCsl2?cuhUG=oBPKf
z`1<%}*)<94c|HG^9Jj1F^nTaomuc5m3%;-DR(|!7Z`J!XZ@(6`t3SWJ@ba-2FTWh$
zeCYYkmtVM!C#f5+yexj&R;|3MX5Urg7^~Np`_I*yOD;}hJ^$hUuFLu7wy(N8IdIy%
z?&~w|m0W(|cmB_YHBx@@y5-le&5b*7_3{PFWIua5>0LML=j7*_uQ+)2-|oUURTXc}
zKe%mhDv*D<{rp0c&k0|Rytx1St-oAxGdXTq`s0Qx9r`svFHc+6N?l&Ac{Y8Q%Wp%y
z^X-kTzgO4wJ>E9i_Al4-;!TfjF2rAwX`3E+>ONOI!?Km{b<gxQ-h7>2{7d>?LdcJ%
z*gbj*PCI8hJ8AcK)J2~7$@8K~b*AeNi-=kK=0B3(Tq=2~TkkT125)fl{Z!{2S8p+t
zh_TG9+{NISwrOtD{bH7%`Rxl2O^6TNlO<=Je)Z+@=L=saDlf@CCZu(G`{9@N=PTUV
zSAUSS;rw9K|Le<P<9Blz^^z`luKv=~eB_Y!IlsAfEs0+~toAf-7d)EiH;cbT&Qn4}
z;lt0!?>~fiJYVuYRw#HTxhL*{vjf-J&o8&1PO*0GZ?mp-xvytFm#y}fxqb6wqc^+t
z&u_PVw=Hqb6L;HZuXVk7ran0x<G{YZ_@(f^t2fG(ea`Ct(dnyVi^-U=>)_4H+qus@
z{Q941|E_)4PixQIC+%~`eVx48w#WOI>HZDB;klzFPi4i4+bLV-IyXu#SpU~<<Km`;
zkJOW8a=v|-yQ5s>M5>GRZR@-@IvwUhiZ>+^_We4SVV{34c8mWTp35oTp4oF>RYknN
zW>;vN!`l1VcILUBvS;G8MQt-*s9Vo@w?ktaGmntnrrIeDKhyU}Ezj>+eBEcwMXr4d
zN*^xRrtoT+f?1&gvyIq2OPkC&u~Kq-<b>b-JLze1Y0rgyzuv4l{`BJf$vaXmU%Tb@
zFO@MiZo+}T?DkAD%Tj-DzkQEI-m}}&;oFNN{e6GWwD2XJIFxlD;MChGs~0K;JJ(s8
zesf!9e#p$|&C+)X9=kp(r=7mq+IWELzf$L}4W19beNv0Po9D$pS2E;|u37GO%{=qU
z$p;Vd80^lO99ePB#`tub$dpVCjnu>>wX4?x)=$n9YDjdj+qa<Kk^gY-|9Ml6zV>Nc
zcuVHk<?k=&ZQaRS|BG2-;k<NXwZ{ns9~Y%|?ollGrQh=R{v{LRo;`xCv0Dx~MCV0@
zv<ix@`*pVR$*y<ZOH|`7_?_gLY;ifJe2KW}nXm;<6^|M$c|YUnR)yRq&Xrdf4~Z{K
zd!8wEX~V&9li#fRyDVs1r?B21maiMk-IsBnvGP%`P|y@+3l3j#AV#-Ow>#@q+sg3V
z#eeu1S3a}rjGm$re}#>0vPR0Y5|ceVJWGtaBAaVZ_a1wY)iV9Bau>sd=gN;R@(6PX
zA8B{XPII&5{UO=rxHxE+?8TUio19pgPrSUxF?ofsUiHJtr&<(WBrs2ZBOaaE#CPKS
zeB~FqT%S5;2IkmLD?7o(cG<=6Vo3Yjjad~YsY+*CM0>tz)`oky3-Hu3%+8p;N73=e
zjAsj8-fTT+<E`<(YmMZVNZB{Z<-a(U@?CZwe7n2fGsQMqfsb3~<Q=c8yB|DJeXhWe
zC~Lii(b)R_>JR~a_kbypE2ev?m>y!zjk%@J=~nS?hRCxGuP$;<(%9_vG4wYJ%kE!u
zPck;YN?_!f5&YQe$b)z${qrwR=1kHTv;NL_CgEzSpm5j{@h@9jX2c0tt0ryP{%;oB
zjr-@_%9&S)O0wx2e-~6=H@_(RuKxWc#=6JfZa%Z-++yqEjpuwb9lopide?h&&(=4N
z;aT<Pi}#in_X>7Qn#ty2_`_}HH4o|MT!xCKi}HHCZRC16LtnLiSP*ro>B?!2zM|-e
zJ^9-4Z(je_YBDWOsy)e5!4<r5{YAB{C)KXLPID@b&rX!hWD3caom;u%uk_c0x^c|G
zOILl>dHUs7)ucITe4olI{_|OA7ixwYiM(xXOPVQm;Hp|k&)K;)3q*dNYe@KYouP5}
zqU{@;c?3BA)ZVw{h+^zdu&{f0aq12k`K9`ruYPJx|C5;WTHrKu;q86tq9=At616y}
z8fCyFY}T~GB9FyOW8wC9(i#_S&wTdsdNH3@^>tix-T6Qxk(2$ucW^~@9J4wYbH%b~
z(&_^fC%-xR;7?}7rPC$tMt7zjzoogvn`3eO%=le$o3`?>Xj;9VEabZ33jY&5-gntM
z8rx1kh>QHz<oe6-4X5+D#rq|$e_3g0n>?xI@wB7QPZlpt_kPvm8m|3^{kzn&EwdR9
z+ME}>^fpl-@=?pn4K~MxnD<9b;BDbE((PlZ6O_1>_3V(yCAMX^rY7Fm5T3Sp_1;Hm
zQLn;;WdB^<cSk#;uK(m8IXxauZAYhwgTk81bHYTe|6EHvwL@RmXj|mFO{Ls7s&x-c
zZ8fOLxxC<SP+o`6wTE?+j%h{R%VdmL6(%#$eDRkT#nQ)m?3_JMq)xAyRmS_4HR|sB
zrP5x^lf@PYuhVF~rF1I)Y|1Xdo`d(7ddGR)R$ifI&bK_D;|%xv1c@sz`Fs8y6f-@!
zcfNhqulLjS(-stN5jXbO9(F}Ht=nkhguA9K`zHsa{L|Y!p)=WeK8q4dwQ|r_PmegM
zqhH03YnJTo{2=9%xU^d9;*!q?oP5r&RrN01_UOosmmXZ%a}O`(y?o{Vch6ZTXFT|*
z{r+&i#;ZmZf9H^(HS;HhEZN-Y?Dle%?U{|<jM7ZHxd+(9bCiANJf3=g%7<MM3H+@$
z49;;sK9P82=>eTf>!%(tIXtP>cwVI9s@G0QzgEwD`(y8vkE(lPyUwt2`fT|ZbK#cl
zBxz=m;2oL{8{e;b^7{RyS(Et>ESq)n_kESj{U<`UEYY61OMF#|<feAPD=deu%{$}v
zBeqDfy^TAvQjTY)-OJTiJI*ki7YqI|SKLmmJLdw^=QlR4isBazH0+e{(a1Zh%ouH2
z+q`I^eZ#~Ot|e<SJ5@q&ICocsUHUzFiBIr<_dQ8%-{oEG0$lwZ1U6l-cE0q;dyes$
z;MbSm`_G%ye1&(J+KZQuVkM;*A~$e3E2d0swQqQNdZDi2leRB+UzB#wTmJFOZ{v?G
zVFfypHPatT=<ct(cjm&{#}Ouf_#Q?atYb5Nx3KU{mdN?<4uvyhqSw6ClIJX$s+F9P
zQhlLnV#;ps`?ky9XstE-duGd{#}4b7XVz$`yW5=R+t(9fvt;`r2Co0xTxZ5vR5fKw
zI%$iEiGSYebN*O+#MIA$YqrfZcY5{vHmlSE&!u<$tWA2Ia|`-3YDD!Vk2%j#ws-sS
zsnOD1CGa`7tdEe^5zARK7EE;1EbjX!Kb61R>$|MuQteHB#{)B2LMD05xo4~8xV^-g
zd-6YbQ`5kwX|DsPZq`0{_!Un>D}&4R(>WWbI!(2C_VaCJi});YUS97fyo)crTyViB
z@5p0S<A#(??Hk(GGr#&aFT(lxHlLj5fiIeOcKQC_=CAE{(KFg*<EMDfn0JLL9DVCK
z3Y3=52;1~6nK|}U`@>}?at`J1Gz@dm<xW$Rh}FrOX>6>1wfAq0rg8CxN<PCIFJH&y
z&1>MT>_45<_#rDoCE%WQ{k(+y(3JKX<t;i}0u%Qv@JYC6)!oglZ>ePA$Wx=GDmvry
zFPC4oaqp$}#E1nxQT5;8QI}USr8(`RuiE23e}h{Vh$T16?#`5m*wBzRiTD5hi@^<*
zGo~|Uv_~y6WT;v7Q7c*5e8R*-e^uXIayXHYYrgyn|Gha+B!suUaVvlM(B$-6tN!(w
z7jO3cUr=Ft=T1uZ)IZ*rs+I_AiUv3bg<U+Oap?Aji%(AJ=G|CyC~q!XT!HcIlb4P5
ziFvu#_%gB{Um<0zb8yMkm-P%MvMxm#Z_it+r1sq|_G9eB+Mul5)SqWp9JeVHU!EJ-
zF}d{Zo}3w1wM_3`sjWR95qspJf#>(HuXnAFEHUG%K5e>yrAqnNd~J_UzfaD}_^frj
zuGe&Sf`iW12@yxzg_~Hr69Rw#nmVVweZNQL367;V6TXHgPCGvJjMw#~yXgnQyH1|o
z>XY=V<FDNDXRl`D=Gmq0^v*9^oxE&Uz2uCI+F|?|riZ=Me(AgFFPZbt?GnT4it9aE
zp)5LE6mFG;&fKnWd}<cY8w0(c;!bYyR}Q<dYuxcGSRW#P>HE&(naA?ZOj-3`O}S+9
zs)hb4m)@yFOm}_Am{%w>|HGO6>>>6iw*;Ol)cbU4M`xzaw`oC=RTcXaAEidSGA=Q^
z%VE80#X*<(5$cm{@BQbE{U$0t<>hUY2Jxp01RnQWUUd#z`}U0ytNw?}o4p>W&wBS)
zyX(8P@#5RwA{OT^>vFp2E^0_=5obJpuWYL6?`h@nXLeoPt$%F(=D!LmFTcHMueCO~
zS95rs<}8kiML$coJ2x!6?K``2-ucY7--|2LBQ^GK-y_+no6Hq#@O;sXV`V2Qj6FY9
zBp5NzdgOAZJ<05dP@|-Hwg<ll*F?{*e&vO$B4=4Ix;BqnOQPq}j)bQioziJ4EpIx^
zG!>4y)HM7tYAUUt8`D3>T`)twovS3#jxAzKwUJnQ>$K-t8#4AD_T*ijs<dR5>dI}N
ztEOsjb{p^bllt??-UA}iW+n%o^nBvHpVm?>RXankd2)XGgLSQH%ePsqH<`KfL|3!D
z$m3%h`7fKzI20du^^jRbWz&P0-8sKAzUx*;y;>0TN$<q5b8nTp65nmx=9#+r#*bpp
zvy<ie{dSyN{Mge#yf@#*x8O{a?37b>*^`u1Cm)^lZq0fB6~AtEtTEnZwm49JLEQT8
z<&G0iZ+REP8CsgCRI>5L&MTU4b|f-b$6bovl6NLexw$-3zh&WroXF{7QL99A?!D7|
znD+jnT_nHwvn{(WZ0nx-PVeZ>V<~T{=6zD{@3wsB`n!8ULEn|^1#!hIGugj+-jY{O
z`W9EEd9SeZg;Ge>A1(2}ieGj}8a1t+tYGN*Z^aVE>#r?ePq?^<ajDdXw7iJfvl8AG
zs!RQ2ar2zR@zB=vl<8cXH-}R_ZXEaheD|B3f~?SqK)+g@B=t-oCdsFhU!RLOdU?k0
zP2uv(yr<k*`1-v?QtzpaGo~m+tamdCReSvG?skoc+`}Ae3@>v3^)i~W@7!Cq9oycg
zzniDBT5bCrP7Ss99w92HpOtMo^VLA|a7pB*oQOHy1@~JMw>k7OPPn+xX=O*~nTJW$
zEseP^e;G-t_$7KPM=(n$UDA}uZ~T)W^k3$f%AqB@rcTck+<(-vy;R=v(Wai0Yv)?G
zhIAk0d@mf$AL!#!zU{hLTJ)rwd;-0%lJEXh{Wv8$Fd|%TuSJ*FrXsnGAH$B`)?M&T
zi`70NUDmMZ$eD>(Yo8@7JyzM%P{8#1O~LY=Q-g$roGZWY^en&ezM%N`(PK{kz1N?=
zl0A98tZ(Q2u$gD?i2bnGd}7h$--hfv71H91UcP+I`^!vRIZE|T91mC2mkslOB^^l=
zaBjU?&}75KYt6sJM7%iJ?wQ+T0miNThj&P<KeIz&cF3cUDJ%<YiX95?-`&UaHvUuA
zKerXCwR&7kyR3FeJTNl9VgEbCMsj-P4;6`D_n)3BzTpx4^o2}m<7J;4NmmP-1;Sf0
zib|hWhD!dL$NcbLY}2|czAW07r}qU_MwBHRmQVQ?)V%TQrTdHavy^gf3O;<g;=Y*0
z^Ii5Sr+4;-Zk-ylKkbz!f4^7vtsJRCVpp&HRa&=i#X_GATUY$poV$5m5^u>h7KLd^
z|JO{|bEaWRRHxyjX*ut@*<2$<#Y5b4<oEgcoLJkV@a^_3wdKxFd0GP|pWDjI*WV<m
zo4fglNLa~PH{NpIyq&9}#Xr5OcpPD5;^pvsnP*<xk!Mp@AL?8rtF!2r#TWTD(~~QV
z=CSZ+&vx~f%t#hmAo-Nvw|jHf@f$vt+c$OQ+cWO_y^=9qGk+F)cGBx-WfOG6UrEn(
zxtb8U`qy%f6?K=4zwN&!@%_LIA)De)cb@T|m$)*sszhnt(fj{-_$3%W&9Z)RUr+q(
zV#~i$cc-2_=a+01mFWGNaiz?IgRkQ%6Wq4XXJR<*d$(f}JKKu3o0rxr-O8J~Id-N$
z&(_qqD8uzrwu;s%ayDH0`rx43j<%EHXP%bWPMg2<>7wq_?<7|EB~9|2CLH9<Jt@0h
zNa(FmSseGLHtT=8Gkd+~O0<cpa7Fn9pDp%e<CLB&%p1YpEL(WEsrgy4yq}M0#}gyX
z9Vg_blq+)jwCrV5O*RiIm~d^vpW7+DTdbJQP1)r!$9Y=V+ir*A$)?Lzb?r!a>eb5r
zMX7ZEf>T}(HnQz|Clx0cc)sOL)%NK+&kZfE`dWpF8#YSUXH2W`iBK{*zGBntHTvGC
zK1mopQ+=ew_ABk0z~XbBO4??JH$N}Gty`9q#&V=;g7Z<?#h-pXu@=fQC@o~)Il)C(
zxwg(AH|u)fkI+mR(KoNP3eTmOXKip5&7MAy;Zlvh#P$WcGnh}lwUA%Jd~mzRmy;J>
zs%&^AKX++D#e&aUKgvq(u;e`*oc#Q9|2bisO(&Nx)z@CyYO-RDR6?TFx!s!n6Zh}9
z)mVCT#nI;r0}F4gNWE}*@y^CpN1?gwM@`SYEc8x|77g9GW#wYwl!FRq()B8JqgrYu
z!zOZym|XStyUaKt($84XH?(k)+k;D+Y_iYp3sqLX=K5{r#i@-!TefOUmS9yZbDS6X
ziMP8{XAZMaRfo>fg`K&19W%I#KBmXbI4ae?<9e52b;fcnhq+VlZ%Ef&#p!QT_3r7X
zHJ8KU&NNm0F6zIaeq-y-$PGV)_0CLx`}kvc@FceiPTQGwseHS0`en;G)=SitFyG1C
z=k{mgs;krawrj0Y3sPZb{^xvDYR@}A&P7?-%UK%uma)8uZh3Z1E$a5!j&oD*=EO8-
zD!zO6)z-+X`iTA&jtdWG?%%ZL%zK%Y$ss#^JHD0&DsSKq+ZylrIZv=P>aR$6&n&L3
zmo_TiG@2&UQ)jd2sPgNFhn~4ba%$Y2qsB6Q_j>dEsZEFWYioZvscLwdDf#o(?WW$B
zozGoT$>CBx6Lj-{%KWpJ3bW5#%6|FOd`83B!*BPP#~C#rvi<Be^_S<81yAH08@(1D
zP88IbATj@6gGcA-P}lz_ug(fimOIL&(!1{P|0h|I>7RRbc79lAT=n+_yT6%(WZn5C
zd^>$Dbxtk1#-*@5Yumg-cc<A)rX^k8%a%6HVDkZW9fpT5e|-3Tw85cza^U^wQ+bK+
z_<dF{Yd`<Aa>YWYhV8;V=Bdkq<xYJ%-gT8_rkLF8ZsFW|c_Z;z$1D6(^4J;Ml6Rc>
z@hzym{c-#4EuTVf|N0~(DW1D|$No=;cW5;o(7t(T-Kmw!zRhe4ta`>PxLJMS1>yZQ
zQ+4+5sXlP%>YDDUQ3W+|y%A^X>~}2rQt_r-W>T@d%e3XUJ$wbP`=8%=r=^->>ulz9
z{XFRdCvUaBDN6tBoK(K(sQt5jS*F%$3uO=Oaaiqj>yy)3tD7Ml69mfRT|~^TW*zT{
zjndhi5$<RB?dmkO@I@O9f*!P{KPywyGTgS{_oWr9`}R&e5dL+Qr`eA}d&9DIc6lw+
z*~<I6H$|UaCOGeWaj1%1FUu;?)k=I51vlI~x+eYf-dP`I6NEPz%hhk3clodO8e4|T
z<xM?vvJ2)U&of(6v%K=lS;t<k@5OBAFMhL3v9?lq_#!Xp+$+`j+_w_?G!slrU$)gp
zhQ<Bn;psc}W8TFXW@g+$ftQ*We-)midp%p;ncx1uT%n;AYf*db-aSnF#Ht^~))wz-
z+I0TDQkm=t8Ig^4=I<UWedO1){HvNLllt6o^Zc7{?#z{~c~kx5;<0ky$x7;5?rzxd
z_;Zhp`eyryS+O_nMfClUusy%);-ci6KO%Qzb9SFO_CbWpx_R1Ck0qZLoG&=lmN$<l
zSjI=(u)D>{cT2bD>^)lBy2Y7XSMPtSKXXSyQm2Z*(KRz_{<PQo8v9PJsn#r+T`l)9
zd1~bJvuuH$djy|N&3wJghhzU{A4TCCIYKv*+FHXOoC$c+Z5KK>?)OborhlQA)%*@m
zu8KLr_OR;3hQv@Eu2t>YRf%64#WS2+0?&CxSGLN{pS|?&PBDSkP4{+PRGvK}eC77I
z#Ukr&A9gX;(OOsOe}d)Bq<N123KVCAy^!1?yh&{yx9#GFsynl^<pN(v_-s42=~$Zg
zv0iSOyB3mfy56aayx+R>5ohD2_(?x*Z)%_W%BQd_Mf>R`Jz;I{Lz5J{PtM)GaS}Is
zUe3CdGsk6eCJGCg1sO*Q|13MVVT<_fV?mpm_uhScK_JY+cdlKil1j*d#Z#2eP7+^z
z>|SW}29Nq3Qx6}WesWr<-s1UPQ7>ilwg<S*-+6bNPt5e?Yo3>7&8~7=sKQw*@~2+W
zHEqTMja|1l+~I%wF{<gy;*5mJ*A>z@!fx2|ixypDUhSIps`1zLUh!YYf)&5LT&o`2
z^IEJeYW<(o*UuuimHKaZTl#rUT<DMGb)RqEDd6f|@VsrQ<LoU{zW>ud>~LYhc^+-W
zl|JkL)+o-JsdIT|<eJkjmM`15WkPqT!j*Q1#FYO+;xEp&eGHlI?>_IGk&skul4o?_
z4MCxb#m9Yb9a{LVW@~6Q<A2^c{Nd&fr?#I+<X-hk#PQJqvHP4`SOZR#ZdT6R9`H8*
zXrA`IJ*SUM%xBRQ(E7{o#}L``+sF3TmroyUT>l8>o2JZRyEN0gnEUwtN2{(DKUF&&
zW5o2}xr&}~-a(@;%2noN`)pEn{cfA!)W3OkO7w~gJNA2RYuy%lGh2H-U)I(4C!<4{
zl5!vMc6Oh8lAOD?UC-2h%C0LZg+2#o-|cEopEJAS;_*p8R6pz$tbKU?#Lx4N&*yeJ
zpM3t|P>_k)_MeOXrOT=xIk5Icz_L3Uf{j5N18&-;GJcPmoGLZvd&aCc#$48^yYC$r
zbO_(@;$WKi#-2=1-H@Q0f7y=jy;~aos!p*~Ps3vR53}7eH(td^?}>c6FsYz+@w`Ir
zyG2v}KbCUN68yq*^S?sMd#-MlGwTlTIiDcM6USy+=HIq7iN7jwVx{AjndROuOSije
zhDqASzmVCSsn;LgU1zi{$1L>p25v=R4{zNQCpzaxJ#v*4uzI`3X^{crQ;$dkmIDjZ
z`gPX4{Bb1y@^+s?9eVn<(;_ebiM+aT?@E`$_q$lLFDKkibW2T``!q&Oc%SIcOOMSn
z>&+Ui&)oU?BDn0$@zNWq-(RnuzdhPh-d@0L{}fK$^B+zWXSQzMKhb4>4)f8vmbIU|
z51l_7FzM(uMd!@#$2dYB+P3B2m%KOqz)dlB&FmZEwmX%#eF%D__+|gTE?u98*~O{P
zCWbVshMw}S|6ah+d#NhiaZiG1g<_i4c^#SJ*~%rFQ_SB7D6vm1I8wkTRH^GD_4{j1
zo9AQsIBlP-XLmw;4V$Zvc=pyvrTSS*ack~+c$iaS>Y)$%JHE>0|L$KDVzln`qhOPl
zR~maS9Lmjk@*!Gq!K27)GiL|8uUN7|^l(n%cY!H2&D#XU9LuujUrpG<vhVx%y-W|w
zcD)HR5zc+Q<ki|Xy)UkRxpKoY=e+WeG|YY+@+M8*RGH&>n6NYV`p&}{mid>&PTZP)
zw7pJi>GhdYLrg+-h1rfj5?vYkUgJm84l{k>OW)j-e7*%;PxSG;oomm*FEP!n!nA9_
zs}fhw`t>}gMOOUS`8;v2t4z*`LsxfPjgygCVqmjcL2y&Muk3DP=ee41e!sd=_a?$U
zzc^FRsMoW|?u4mi>YX2HEBv-MJIwy^@o2+>H+o0>ZSF38xwNG?=yTNJfIr)X?Y%EP
zoTiYuwX0vh!qYWdW9ppRr&-f4&Mjg#xw3xN!k(r!=VfvR-`B32^LyGMhFu4qecbS8
zn@n`hHh<UIuRB@JF;9!p+uL-O?L~9vtnZx${sni7_+q{}CC10M?5_B@bjR(SC0nIS
z4Gtf<eQ{@RiOVV7)6rsqT#8<{hkVQnL$+PlyH?YDqjP1I`On~>sB?|))!y7{oA^30
z^-hRUg_GR=4qGLChMGSY=4Q`v&)X#+bK}<3JAwHLmrWOW%iLeJ&_(0w3QN1`ofgN0
zzSyv<mdNb!syO=Y>cZI%Ma{dHCr$7=>s!3td4=bdd5<`@GfhkSGwJc9tIG?PZ_?Q*
zaDvBjZTt3Ze&u({WgHV(>V0Q$%dWY)#Z^+bZ+hgyzcVI&&Ae=SUA?5+>cRo58*NJ;
zyJl-`sGE~{O!m{a%+pg0dmU^R%!wC|j7~aaVe;(o;=Hb<x~nTQGGFR0ll9(xet+eS
zrCV17UG7`rtQz#xptigqckKehkmB6*n%T0a9^d%&Xb=D5m~Gc$?gy~U%Q8EB|MbZV
z%hzNDJy^EkqetaDlVfF_8}%n`NR`}^&mH^p*r6FSE@{1%_^@zE{Suv(2F;tru3pw?
zW8&KJ^s9Z8vb|Q*)8hp*8-E@!cAR6sS!){OLgRXFV{3*t%cd~sKJL4+XJTo|l0^$c
z0#&XF-aQ&09Pc4`pG|Yal1&w?JRcu;J)M^}Q_{rM^>Fy}kbg>Y>jSowoOydjq(Cx-
z&FfT2cI5=6YZA_`t2$10Sw4DN8h<>4mr3NS)bWLOYs}MU*ZK)MrA^wdCDH7mw~aa5
zF(mh#P3olYUku({$WC-_bDFfsTV>YC4;%Vh6n`Ynj?*?g67ya7W|qUmYHh_&-}bde
zrtH6TCGd9h+1Xw}FJ3ubUz4qWu~TK6i1p@R2i9VhICn$qtI_=JhYt9pPwrZpv*l!j
zW&P#&Jd;V0-a;|EJ4*BS&;69L^3Qv&d08w0PM(tPXIHVaZk;8+T<Tus;!8heh1KK?
z*69kWseJa%Qk*q2<)_jH0XE??IhQ;9%58kyikVDL`_(ITy;ch}&OUoTYES*HH7-A6
z_nnu%__RG{@6#u<S4P<0zsJ^gEy`A2V9xC+%@u5U>q7s=I?CG$&Yyba)wIlDvHk3#
zlFe%8Rr?rstGlvo+V>(wRbRhcrERi2+m_9i{qrj#ySFD<xZm0zTV}WF+=;EuzUypP
z+`oSJRhWph-ZHagO*?1iGQKrVHVghgW#+fF$Ex%EPK(v3{Efc)O#8?E@Eh9~KF#y2
z`64PR$y&{QO=P;-{63xCGu{<Oo2=V2#bAn|oL1(CR$*%cDQ}%0t1mx`ZhYibVsv`*
zndxqOq$|ZX$uD*5SvBFhc*(a&cip3!r_cS{WWtpHX>yyc<m|<wPNMx%n~N{T=>EwJ
zt!}G7IYsim;?=~po6kL(-oNr}#OAfL><_M8;^emRe{JC%cCMfAh3-Wj3e?#yrrkPC
zt7E2bTD-Z($<%tc^#0|$-kjGzdN{bGYjdfnPj6j+^|y8Mfz@wHE-t*0Rhm`HVmTp+
z-)T$4ov@_uN;CJK>shhu{3Wi9c7Jr-H8r@dtXk#rDv;k!Np^eWXWgp%bB-NiW6eCF
zB;X?!a8~f(y3*4EeHm>|P7_`pUZR*JVicNqRIONX!-tcVTQY(_SBpIhovkyA{Xki(
zS4H%4U%9`j>1v4@-|psZJ2~a}g!eE0-ZVL&(te+F(i)o!YtM0L8x%d?)P7<2{kCY<
z`iLid-{Nn$ODMf_ng8{K+b!phI_LYJ{Qi}3|H$f+L(W=<s?_&1=loJ(ySCa=rN{J;
z+x88i0lIRV7OZRB$lLTcRf5~)+xDi7i!9S`{AqW1=6uh{@t?%0Hd*&$GLAQ$A}8(&
z_g2uJz2dY&_V?Kp8a=vmdN;Oi{82plfH+^rX+yEyfiZ0xJ(PE@P&7=7((gGE+1^+3
z_(FsK((uI2uJ=pzRj<0;pSV-+=%&-o+0!TR9eR9td4C<}|9||;HWf}v%}XgRDN0Su
zMOv@|TAKo1$6{e%iV(Ii#<GsZ!i30mESv9an_3tCujSsd>Qmc&by!Xw*Ewf&(xThs
zTuSwZr4dDYPWZWbR@VKMX;3)V#H?2vJ^T1lubqc)`!-qJzbRhxdBg4*?XiER|Ns5u
zH2eGic@;n2$n)=Nw{QM$Tm9iI^W=RW4E{eqIi0`$i$$HL%^bbp4F~OO{=97ddHq@9
z{oCCe`P=vH?|BTm2I$A-lk?v{`0sP<%kqUae@;LC-%x$yoW0CLwS&DM)ynH+^wn(k
zZ2p^SbotANkHJ6w&Oi6g=<8fbKl%B8k6J%(zij^?>VE09dH<f*q+dS%@5}e%@{gBA
z_So*#xWA{nf6k$VH!olRxY&Pg$K~QbKc*M`_WtwaVSLP;*qWVsddCjL)}}u{`bYiF
zjTV7FFIDe7>Mr8mBo*^!`t#lIE?Haqei5~^zu$T~!O4D}o%a6v_chOB$~n)?m7D)q
zt!3f->sQN@=l^^2cWJTR{S&hber3gVeEs`U^UvKK-LiLIia)ommz=}>aqojy1sgwn
zT>K;8bxy=QPV>J>m2WTKKld=nja~cD?#ZGzi#7(^@xGiayX><1js;s1cKkJ&TgTl0
z(#ihl+3jp$mw#X0{#lM^!#s~b``%=Y)2v4S^#0X;IV|E=Z!4|fVL$g@=YCD;$rn?8
zbsjqDv*Dd!!c2|tlXob_N+d8ImUQ4UF<3sqj`2!}%`8DV7K1b83egv*PUn3od_b;X
zU(D-MrqSzW7Uj0x%!p~4`F2_Ne8*?Y0-N64-uzZ?F8j5a_w5(89+0`2;OJ(qH`~l|
z_BNxq*1f+zPAz!VsPp%wJ%gldLHf>Q^Ev-2_8E&mn83N7>5cru^MXk;nHhSL(|kXw
zY^n+VXE)V<@edJmlYdL(_0~CL^Zb>|cq+b6e~TN#iogv|xwai!eB)G4(~OU-#(q1G
zO{+-vZJ0fK*$%6gCFdHyd}H!7vk=hO*SX}(W?hw=2V)b&C8y{VtYF_%sIhdl!l89-
zmuhZrU|ibisJTw=-skl6_KFkbrgx`IGvyIa4tY=$I4ykI`^#$|@iiyB-*qC9Z^2DQ
zmv4v9NJ(GKIMxx%z^XsZahWssJV^#dmZ*sfoc&Wwx^#oraXLgkm=$UC^{>)QyE$Lm
zH+Oe+?En4e&BIy-cc14szqq=8RXHeK_t{qSU3Ee#Yt(|hX(rz<pE(gJ@_)|?6BoHf
zKX)DoxK!NjRQ4hCNWi7L8}`&Gh<Bg)F4E_+*iGwkv!zwzgS0Kn>qXlXWBP8p2Z*ui
zy}5m1=4E}yB~zY%SuTGrpR@bfjHneqBDco7CKmTD$z1nc<6-IU=j|Rp{%#AeGd7pH
zBK^2XTl&e|XM5Mb6Z!r%`_AvkBh2%}1o{88n<tsYoDDc^(rmf8P5)5Uzb7&CkCsi|
zexR<jqS-6w_|aXTI-{p7d#$g>5qsW3iz)5ZA|<9isfXuU{7>v#F?;U@%LJp_bqNJ}
zH7RUb*JmqLF+E~#6?^0Ad9C@Z1;ax(`5*5uO>fklFvmY3azo%jfkO*ZbPfe&DT!?9
zRu!1e>5*}Jw%|V7#(Y6Gcb!I+<?7YHLZ3v+2iiOn?QK+?RC8z2^@KAs1I{$bA3Wsn
zymZ5cfC+6uch*U91pWz{akglI=33c;M~nW&^X}O6@Cr+K+WTdyFB@Min9`kay5@4j
z^-o{J8P@xjyLlbAHZPf;cp}YUkAdm(!p5VAGjH~YZMoxgY25*ag^kzmSeZ0TI#kBu
zeS=xn%Josd?umxwFP6;tFJ~C8oK}(BAt`bshhwsA$HuPfw_JL%g!XCdU!2&tV`ss{
zAF``%&#GA=aMn6Y$He#0kMf9ryE^;xgg=Uz#*68Cw}=S-KELy&`1W<dN>Uq6Xy*t$
zKHi=5`1fM7IyH@~jzCV|1rd*zw3@EvY8H2py^wqH#Ssm`V{1D&9vob=XNCI<mK90|
z#P(z?R6T!UhQ;a0KO_v#OjP-A%H1MZ*Y|1Bhw{|QzH0%+qGw;87jH7_NM{#HzVzlK
z|Kgo|=e-`DH=Pu9|50Gg|COG0%o15z|Fu`L$DLWq&c4jmHsM*fZsE<ShVPU2A7N1W
zKF6UbMrH$l`j5IV(>YxptzW#MepThac+tc23)F-@wSHOun`OE{IUCRN(wlEj?W^<I
zD0aZcCMoDxc=y5Uzged*dcL+*_wd$*OK$~;^yG2<j@+pFF)H3pa-q(ntxX+PS#{1D
z??hErR9vxG_Tk~?xa*<k*G}AVMDW_-7b`ZoNZ95dFx_}=c9q4n6V{I&d|{o_ydmei
zmBmli-)S~nSH8VXz0=gFwqeqJ)2)qDKkG6@UTpmubWHdAF3U}u?(gr@xuRsV`|u}Y
z>&B__70wBaUV5*0%;H+N%z4Kt7PGDm^0OkC7o981+cDShiF)xt9?w=2d!7c#%U71&
zJN~0sz~i%?ltNHj<%KFiwe4<EyWVeD=4*M$&T%rAd4lS(dGGiS+~V1!AHT<Sf^419
zSJ&8Gw+!#6H-<-vy*s&7bXBBe$MdW**QNUyZ~vJazH&w2yP3v&R_<Wl_H}imllmpw
z>Zh^Op1<A0SI~FH;y#0~<<TonmnTimUYP00Uu3a#j&cVN-|`aCyy|R=vy%G?nf)3M
zY93$3&pI#hC!<EmeUXwykE2SP?PoO3d;Ir>Xd(mS{m9cQi5mOX<x1qe=gxU~kzqAw
z?)oni<XTrZ@7(*qEBj8+;uR`0f@j6syN5bvJTc`tSjcFyUhaq<n__on!Va;zKn)M$
z8R8*7BowswuY8=mS?K;5)uccsh6A^}xhC5zy>ce#R?0T1HzAv^P85({a7J*&`u1y8
z3hElGmwEIqF?8B_<)ocLff0XL)6(lFZ|<44?Akf59V@pM*F~OB+pkuy`uz9%@PK0h
zwZ2RRk!)_y3>$pUT=Ew#-8IqnxuDdx3{C;(lK!)jVjZosXU>^)b=TDkzUp=hb^hCJ
zC@$6(d1$kIX<Oz2pNlV8=M=|1VwiKix7D!q`|hAK4;ODL&QMHHTbZiOq8iqm#;CS`
zO~a(1Ro8e0|CoPIe<yh|a+Ulymm;z3Z)aVK1iburrtER!*f%TSTuOND?6@aJ{i2R1
z6uxFnlg@ki=6llXsEw_^Pc3c>%<>gmdvJYVqL8V^b&DNS!b=lolr0X9<=vB(_0!SG
zdxybVpJ|N?F8mAUm;3)a+q38BlFMGYIm(7&!3ho%wrd);l{{Ry$MUOqU+VEkvlAMB
z^=?jfp4+e^yo^VAe}>w^2M0IIO>^O0f4k#W5!bd!61##wh^ZM)c-<;`G|TATE}gbz
zKi8c~dhk1W=ea1>?SJiZYU<CbuUWH)aedHN%~&~?orw<8p-+}HFSt~Gdi%4fW#@JY
zRY~%$eerL3&<@uolP9xT<}KOQC7ONqk*4UUv*q1qJYMB;xO{kD#VEFLe%K#V4X>UM
z-n)x`*sL=apMThBmQ(9Hm$K((F`M~nwS(Q6%ohFka;ysFXfup<@!LEpgUkE2yK`1T
zXvW>ZmbnvttX#**I_;RmgQY@xceg|eX)STrWBc=9Pe}d5wk`MPxPM?^v%e^GN&ev9
zgZGP>8>JWi-TbK{r_ZJC*wMcVUKOtw^Q~I*c%!j2uf&NTOA@|>dWo*~5Ov|S`urla
zQYmzksx7;*w)d<pKLz%=rTocXc~tdLQ_0krP{}oi8)9k~3J7(szPC^7Z}$z2PUp?m
zUww;uCoTJE_&f7gOkVmHzYd>MvgiIT@I3RQ^?SHzk51F$tkmEH5lcg5rIoMhwYU7)
z`9^$kuH%~GsJBv43m8N)GQ`wgN6lim8Spi6Ytw_jTlcD3$Aox0pKHGJCif-p%k^g*
zdzeb*6gW-WEpT)~f%&~6p|w-@zFq9TjnCty1y|*>bTQe$Y6hGAr3V;a{PsR@EJ1tC
z-``V;^QY@JI<aPle`B~m=bm?cUh}=30t;@Yn6=G_SJC=mlzz|gqOD#3N8T>8PWzv;
zYD+dMADXa3_~Nalrxx7jHJfzs|AvS*{g1in?1vg2&R9G5+>#}!1%`Z`oyvRdXNp+r
zrX^oZ;aZ&$8g;D5;FWh&J>#a_R`V*`)%`|Jo7u9DZ=4?3#iGo@E}In?U6Ho#%r1pK
z?dlosdf&o6tYG@XmAKd4B1QS>v_l6O;>8{|u=c(_<sis+bp^xP`O;e}F0<$?l~Rki
zP`zqZ#bcBG``vE%ekuKQ(^K*nLtA*-$%tbK*EMg-{8}LS?$X2i;U&p`0@xfAcs~0E
z6(u|}vwpPRWnumV{W8Y2LHW)6*{{}`T+F<3xgt2|d|0nd{-m<U*3P@XK3iqG<?^qm
zeLbHPw|rjT{@!faw+|QC{rgW_WEoaouoZLMzUNTs9v`W=u7wuTK8p?6s}dXy6Q4ST
z-@g3hmfPGneR2_7Hh!G7VPm5A-ct*siw!dp6mL!v=3QH4UB=m<;i{;ttlhoooz&AM
zO-(xw7-lt|^gX@yS`uUEgPHBcQ~G!Ce9H2_S{<esE0;e*#M4VDP5x1a$eebkcYbFo
zg-SFRPMP+VSFhr(&<5+1H)Mo2#d)rtl4X6<bpv;fM$Eja{;z(>3jH}=J?TWaZ3J6}
zKl?|I>-quV@{2|H3Wz1Wo3uv1w_j}O3U8~R*YD5kEqVCVdXJRZ&o<{2h7FJ1p0CY1
zYkb@&IrW|dbIh-kZyMVsUgO#qqP+F|wma71?y_kOH6dD?>I^?KJ*Zq<Bkj`BdvI>m
zDd8x&6&J6??A5w6zx>2S#kQ92eJhsmT~ONfdEM(>4z4Huww>!tNth;3SvW1rUP$kN
zg+Av2In5X8e-*=bh=*VQ%-?vfZ>Oi@|5@b=Z(6ub+;ZsH%$hkK$5zi;e~?=_@A8(+
zW&M#~GB|Gq?U=alSoGu6rSo5GeVi()_uAO;+kw>DT}#(!#<g~<#a;Mw(0_i$fy}df
zC%M#bo7B#HePwkrTV`EA*4C+Qg0@LB-+RhPmzH=eEt!5J^jezxvDma&&$NSyuOe+W
zy}y&-+4C_%s5-Od*4!i8Vh<FFnoQ4${kG|P%&A>HZ1*p`&-(thsc0RK8gG7!j)^;`
zjzPn8W1-Sz|JZu9zPv5i_uwDP$1=I-u5-TpJ=vSJZN7zHcq4J>=*_PiGvXSaJ-EW4
zTYhs@ch}Jm%~LZc@lFYlx9i*XhS#@JSb0uOPGz~AoK5BFmHjPcd!};cFn#)W&@k+0
zw#r?J)g=#h%6V8XyC*N5dS67D{{zd03As`WSbc1Lw^`P*nOxj(=lgl}C3=z1PTxH#
zq2%;g!RPr+g^kwiM$%@>v-Wo?xMfb6+mQEa<;mVzjO%T+TmGAE+xPRd$)#T*Nwf5)
z<{#jz*FJ08QCOnQapZqZ+P_u(CncoK{)9$7bQHAc5x?%Q?YrZ~hwEi2OMhIdJb$$O
zWsA0Spxsn|>B}jzS>0Y-S}63`x4@QT#!}9_?KWY1Bjz5wA#(G|DvMv2{U3fWC^weW
zvkNv?*)BMp&GX6|jisKonoLZ46W4aJ<a*lHpR9SglXZ*i;m;2qTs3{<S;EkLx-peW
zOM*jj!}>+?kzdaDgy~HcyR{*3{}sWK>5V+>Tm`A^8fn@m9%N=p2G=h%HIe+rE9l>J
z)X_oCE;dy%nNL#vTfuP$HTyj#3*Y^k;%j$8YQ>6;D&IME*Sun9uA7-T_4?Pp6`hGZ
zV$5%>3y%DF@{QLce*;^j`)0;P%;|Dshbq3VGhh3m*N7#hQa0bL#bEZ6nPO>~_M2~g
zo+)O`a8j37KWVy2zs^!wlbkG1$$x*|R(43;>e{q2+%9$Il=SC%ulK!<Jd$%Y<@MS*
zo*l)<-z_%I={D>-Cy}%|v0FPO!gvzz`ph>AukDy1bR^~3E)UPOeW`cWB_Aw!^2p+)
zrq~meNQ>LE+%<~XRlO$GE>@no`;AqcvHZ_}?FBwT68BffFW>Y3-kR0Z?yY1GZL#9o
zbw<wN)q+i~jxIlh6OSJjQRa}o>9P389+v~gtbwwe37KVP=Gn^gt94%HtNrwN;N^Ec
zRXE(cRVGp@DNy(6@$QagM}>7aA8*}pbcfu`tU#G0y|vFf1r-!cuQnf&SwHcE%}J@Z
z`e)Z2F`ejr_N9nTNGSVXlgrPhUX^XV@#pT>JtrB0mj`Yr3-{YQeP;YS-V<UhN5eJP
zE?!~oOq_T}=ufVTdf^sxC5x#4jP_Yd<`No7^QX_tF0_<fDC{^bY-ah?|7TP0*{=QM
zR^RleWlC9nvxMTa>%R|udbs+^n$Sq5btTfeNru;og?A`Dw_CdH=%$@sOt*hN(+r!*
z<IdIoPC8@%z8@?P>~DVEwf^u_XVL#HpFFv@E{@B7X;4wM%I29;*F}F9+YbxYFI8M~
zitn}ibWU%r*P2-zCs(9yHw`&`ch15smlL*G?R|ClkxSs=-%TcS6rw7pzgZu7^1Jy@
z-|q}NVorNCFH7uCxmx6Wwye-&-?8Ymr|xu~3UaJd4xJOPA?9K$yzk<J^3$6SeA@Ls
z`=MW!^RC_Z4xD{`$?xx_qT(X2{~UUG(R@?F*Z3RgygRpPrRC!f*@?<|8-5Aioq5u&
zSN2J^6U){+FK+HxB9UnkaA9qosNqi6y!manPPUzG&b2u^ZSKDKWyY%>8hkOh@WL@X
zVr!qv!mF<|8;?g<Opv{LZToDMdF$3~pD!%(^@egLV>0hQuUnZSSIt73`@-_|S8`Wf
zU-u%Tch3$_A2&Tum21wHtNjF?6wAImHz(*#q>}#eVz0X#bvG+={Z0yPe^~lt%7d?O
zk0=>Db<1*mG<mbEo^$>s&%(Tx_;TiLik<gQ{p>JO7ty?w->MvW{k@M%d92rb)_)pj
z4&0xeRLIw#uCet9@3xmWwzvelpEaCR7wTX2dQSf_o@R@mwVU`G`2tOXrgcjF-h7lx
zP15F$vt09upuRU|oJJZt&aT}Fk`3FAt1u@^DtMgIQk~X0k>{l0Hshstc51!ip11v1
z$m7$d0lq=sj=7mKuG-nOktvi<wlIKKdF2`-A*=553+Jp)Pk$0RvF*!AzYUJ<=dUME
zOuo0m&bs5kvrYRZelguy5y$wv<@JThlaiA4FBqTiHD$kOY;f=dYo5W)5c@v4pv`MI
zZfj_G@L6(4Z=Vv*>mb_2sTAjBrp$d?C42Fku33(KhkU+2tV`XeEW9m~XZ_di4R7cE
zdaaYU{D-e*p0e$Y0JWL3dJZInc}i`RUzgnTMtWBso0x*_Rquk(xX{R>3-_2yi$41E
zXGK;{#`f!1Gm63m?raS+mf0n_*Lp@5&qjsl!;>mjPGag0Pra4%bNAe1OY<uecTZtY
zZ%`3BQ@+5k?WlL}xd-B@o>S|1Bjg0!^dH^tZu*z{>GdSvT`{axie)bkGGFa_R@ZOv
zV^!19RE_0^mrpI+P-s5y*>_3rrUOZu4YF5UQ%<;AHt|n7TrYHB`f~B@y{jj$G!R;=
ztt>Q6^@F$Thf{+5-9q<l9wq*K#M@WF@zHZd*hcMoXGv4({H<$?QdjTbl4`g7buVT5
zoXZ9WFX!=;I&fUG*eeobo_F6SIkjuKUV5hKuZ>x2JGA(gZ#1a4=e_pct?t66QigqX
zPpbM2UfA^R=e=hUtlu>KtI^WgZI8Y)H_tA*IWuM{^YzlJCZA_)ZL<xLZ0g(Z=IFnT
zO}=?gVCY4cu4#KWx?l0NGpt#9En!;OTb|2(kC>OviqW+T@SC*n(p8PG-}+ay8a$Uf
z_`Rx0<IV=L$09zrE#qc~t!kaTwZcOG>I|Qrf0bt!ur1k~$#UkN-oF?fwmN|-*X!I@
zb&E@P3$AVXxhP@(&!P(HoB4HL<7&S?ZHP?Y;GYw-=wjQf?N)z3=yJ5aIJRB8?8iF4
z!%M$UUXkT>^S^+HmQVLKA#YFLiKjQ`h<BSs`=8zN>q$_i&}NxSU2TmLuJY%*-ycYG
zT67|*okQafXP(xz3!jR$Hbou`X8m|^Z;pbGxz580h0e#mU1fW6EHh@(gz$-aiEEhm
z+t!+@i5yw5Ia<c}XmgI2|4T<{7ird8T-v`g6w5Xpdir)s;m@xYi$5Q6)_t<6L}21v
zopb+Y$NS#*RS6ZHqs1(sw)_4USH?A3Stfo?nvqp5b97Fe%-2fs*(VjxCGQxua>w^o
z($Y^}OT2fHZan9d)ci5Re7RCnP+s8$ev1VM>mCUuPu+H{fA-h&7xw%8oy^m%`+5DU
zh!1nG>?w9xd#XEOmeC`b>D>)i!@Lu$<%5Mb@%dO*u0Njk#85St*_Y@0;YL^Kr}KSh
zF6Ax1uC;NSHTS`^*NflY*mA3*;1|osj)j~|K}nIdR|<-LY_vN2Y3u#@?~}4)byCz6
z^i|8e4lJMWYWeevM;ap5|9<JBHT~&|JdI;6QyF(m{kdQN+gDSz*5c0#B)31<Wt}Ed
z&E7ow)eOTbM(M+!XT>!L?>?j~#S~!X`X!HTMM$AG!_pJxTMhp?e|67ruv^}D{gAwi
zSdFUcPpcV4OiP{~IL~w^t$_dXgO#TqPTcr(mD=aL)(;ySKm1-|d+V3r<qzvkcXS(S
zm2{i;{mt9dD4w(7n#{?j-O@P?(-fvDESS3@^PTvlghH>Dte2jL6_TecGv)Ad%}TiW
zNBPvObMbyzpI&d1o%3^Ugv?ilG~IUzKbI}Py`X2)(`vT_*^?~QYF<b0N%*chG(XYX
z`c%f@Gmnl`hd(`(?!^#&miyf@!%r%=LR_+Pe3wZ5Nfi=a>Gi6WeXZG>CAPvVQ#iK@
z?VB~F`J#O0wm)}z@6GnRRvTs~_fV0^_}OaxbD@);{q&h=Ul2R3*|^_?_Z#Q5`jE?|
zr(UucPgd6G_+HM!RjPU5s^upc@7?=Tj|wMbi(Pg|TU5!~D4nd4?K`nt;ApRo#WkK~
zMSD(Iy%7lW*StDa;8fqCkGko_(@g9`cvslFF|(Zz()qZHW8bG6+V_9|U9qZ--Bmb6
zJ4U26lk;x$)y>Wv7rT@v+WYJ|A<|s7??{DY!8(Ci*UKDFUv*CZ?b~zYRz!Gj)Q|t|
zLZ*5J8f+65E^0OS-^qRJ)ARO<cQ=0ZtgMq2+nw%n)IV<H71Q}WjuH;czm23O28B5`
zPb}F|_F=vM(n*nqMYGOo+88XH8ZSKQUxn$hevzkJ&NlA5zexRSQ1OFF2RXS+PVgvj
z{>$~ATbd}Cv0csV-!ARc)-N_YEOlP}4anko_9(UXB=5`lzmCOD{#QJ`X5}`CWj{;y
z-FTu~lz+P4WB#?^RY$$^Z4;wQ6n@NVILMw^p>MC=#KnBE*zH8`<A`>(NsfwHw^QEu
zOS5m(QQ5MXac}3O4)rO|_Hvr!IZksqqpDkRPe<Kx^P>}%Rx^dy+qf^EpM9%O-beGi
z%F`L*eer^&RY8HRR;J8$m#4&f&-(b-(<N)k6f5J&CTDl#gz_Y^wKFg$%g<lDVdiQ6
zBwO~tDLapzVAa~SMMF|EXOh2vfSOalX@@#LzMKG-ht(^BXBX;!NH}Ej>6A&#outhR
zb<}4Z7hSmgQ>9mQiRR`FYhJ{s-*_$HvTvrt6REZrrfn8iBualvCLI3Ncpxo(O?cn`
zU5n&Sm(&_Hl~w3DeM&W)bT{OAkCcDqv9fsfioP^M-oq7P^}2Sy^IFfWzq;bfGouV)
zxw73-zO#emq7I#9pZG@2^!{C=%VN#jd4H*OuS%}7`hL*s=XV>s2;LXVRG%*t*>g&l
zzw?Puirt&ERa>j}Tos-uDsJF%^1MmLyf7h`r*eLWo@ih4RuqfLKHU3w^Zbm?!g-s{
zU7VYy`9Q$ZzT?T)Jw7E(Q@yixWce{mi#0oaUU6#TnMGftW?J3xT6S;!O_7*ZgGU<d
zSDU%bzdQ)&IOXiVbEWc`S)SUJsX8<KCT<bdIPi;S=}v!zSr5)SKC!Gheyml7-=n)E
zmyhAko=r*9=fo*J+&JO$Y~j<1J=*oE`}X;q|Ga0jO!KxhhS`M&luw(a+9V(R*=c0b
zbu8y;uU}Y6r^dE>pO&UsMltPs^*x7QTKGu#@#_Wdh3}^CU8d8b78>$6;#NlX!-X^E
z=k|13KKlE7?WJFrqh6L9&)OB3&COn7u|mpTWbgUP7!!H9xHfT>{VFmUkGc9vcYjoK
z*w9r~A1Xe*yWMV0>DhZbCTiz(OG_Pfy4@RdZpW44>Qd$FUaRCU9$L<JN4;8EdS}~?
zyL&s#_FapypT}AM-%U^7CD2yhDgXX1)74jZh44<_+LAjp`^L7DMMcwRuw?l@aGS`r
zUb$}JqwkwKzA11=FMU&cuC=D^Eu-dsxwUg0`g%g;3f^mUO=YRt?6GR|*OL?8E0vVZ
z-CLXc^0<cF-GZ>If3K|woLXlSG}kC*zMScw8GDP3Eaq?&=~tiUc|5m~)1-FKww<%D
zt-185(78Bs?!;f6Dp&5t`DeM`a+X`QPQtD*>adrb?Bl#!A5Qvv&k59JQEBW9JDIqx
z(`D~fp|?L?*c_SseNL!ztcr$PFvsa97uFgutj{@rx9G&Rj_1b~?&{j9v`A^E$zuom
zlR?`nj|j~V-^cvub*OCNu`{c7r}gd3_9?J-Em$vawW{;%u_Xtr_a+3n8U}s6Y}D#^
zc$!S~lG4@`-fg08dvjBshyHy1vgSv)%#Ddgvz9+A-|^a3qW{yKCig30VY_aea1H${
zJa^y3C!xo#U1yFvb3$g%+*{cq6%j`quf^pnt+{tx<J+y6o!N)YXH^~g&>P}E@!_p=
zhjx2^^gOsXN~P=E!DB1A&udGo?&2^v4r)?tetsuz?S-Cm5sKUs-e1o)KA;e77`~6Y
z!r;A$9N+b?p}L<ZJG3c@u5)CJT9I{h%Bv?QH+oebxVvDwYPfxf-=ZU5KlC`g>zv2F
zBI=s!_uro{NaTN9^X7c@kFROAjvld}@4ON9W-pE@yK*MrvUB~Cu7@5oU)^b`l@<6p
zX{vM>SHp34>7`eT7~jk*TV1&6Y!Tzz2Is;6?*q+ISF&6}cdXRi|BBJ}{nJmH_jVp}
zSMc5Vaa;P;bwB?s_;|u=Rfd?Duquzx^Uma)xCbh~E?wectN-QvQE=<0R3(;;BF|P%
z`6M~>rSIBHX*+qGn9dh6NuHX`b?K(FL)cvRRaffLu2+Wl^GIi0UD>Iu9QXV~qWlbt
z{N26o$N0m2HQpvWREq5o+_X#jS7p>Ax!OWie&50)jv4-%vwm@IyUq2a=h(5|S|>Wa
z1G}A0ZLT<a=*6-SclSlpHht>m_Yn-P4*rs~bNhUcTFIT2dz0s^%{%xyld<{I_2$rk
zjZ-$CWvTj{<?V6i&xTZmPZv_ReO%|kCsXwL`IalTdv{n|{48qy^^*eoyDQnn#;w8c
zm(Os^Fj5b4vG4h~`j*^FsmF32`K<YBr#XMx*4>(|o+;1Iy(;t7dfqFVU-LGV%(xsP
z@z}1cbj!=-z4BL@cX(vJ3wb)@h1>OA9;!>aOqTO$6~6M>;<ZKp*()E@tpyc^pPxGh
z+(_KF`%$duysrW^x5YX%|JxSjZqQj@A$+>V#Jzpe70XRi;*Nyh%fD>yBiwUzpU~x$
zr)w6iKKtKb<H=JN#VTu_ncuEkd(C^b=)|o1kDH9<NynVJW#Z?|FaCPc7w7EYzuOI$
z{8_td!TRodn@<1H-fLR7_+Nehwk>DQ$F{t2u@-rGW<x6f{l<OE3>U3>m;EVR?MF(v
z&iRM4rY-POZ#8jVd7t%5&7s`J>VxX-!S{rI@OVYvN&K<q%+j0dvbV=>&stt9{=s?H
zEwMiv{=5sFD)}O7;{6E?x6L_Ng8UZF{c56d-Gte<FZtH0M-G=1XU<|bf7Y`%ZbQVR
z_rG_CU(c4&UG4VgtmUjp$>RMdw6^xvw@33F$P0Yj&ha7S>|Pn(Ls<&R{-H5{{DT@h
zyBBMoG_P+^ol<XqT=8e|!-GX{wHqAs?@W;w&exQG++M<!P<f6$bMM~nJs*5`UOfHT
z=tM?bG)v<S^$$fIYc~DaY4cltbIQleN6o%}l0U4!DEH>q6^EY|UdlJFn;2`~f4YA2
zN~vnq&RCzgMRz)Mn8L%hCH46nihV8kMP7hw;-cU?NA(xmnC>mzck9;4v+gTe1zECu
zw%u<GVc2+K^Q~*GN6w4y+Gp|IwquuK*vm81Ln<|NtfOvtz3QDXeJf|D#l;yJ$wGw(
z^8ac7vwb%qFqz*)XhK_E)XY<@?+qTZ_-;MqxORWy-h|UDF4<=&uCih^JMXRT_sNKJ
ze!1?M<Oj98vlVU2j@C!Eo&K!3>vY54smpp-oSzuAGqbt8VUwY5=AnH`Gk1g^zV!Z2
z$j`YizgxWhy3g-lnc=yEPkuKh$>?ml=+|Tu*0VWLBSg5=<xZ$|WVomOQsc=Uc}W|K
zrL?l<2R3NE+Wm48&z60U|1B2VGH*`Z<z*~&cOOsKBW)pg&VAp{az>5qb51Ta{Uqu7
zC(J?9*m57Y5$o@q?)eX|w|8tV_P*tOq<nt#ruHv?JAP&xvVV$Ga?+X>daAvmc=Pd3
zmF6D*Lqvu1d;2BBehRNwlwZ%&S<`;fMf;RE+ulX?pZ10BRL<-S;XTM}S+hc`eDB>T
zxf89SI}LsQuX|nSb7R%Fd(wHmrNV)ScB-8$ZM>o~HQ~Xr#1EU)R(5eJS)1S5U{~?y
z!S)aD|1<n}D<F?$xe#~>5NNrOrJ<P#(sCgS1p@_;u#JtrPikIzNrr-vp@k(e%Z0AS
zMsJqcURam@)P2tJyCUZ+3fMoXscsUz|A<>PROor5l4_8m>!oR`uK&KiJC<;P*C)B`
z{5)H}NFA~1n~M)F*#GX|FQzy1^PhR%J@aGvpWkn8yW9VE-ckAS?&6=%#6NsLy4c=6
z=x599Pv<x1=iAjassEg9qPl+X-pWs37eCD^eLQF0lzp7%d=2l}{QP#YUjEHTv44}N
z6tzd#|2sc9{*djLoP4D_M`m}J@7${S=<4=czMe}<K0mRH`R~5xgxlgX58qz&yY^xN
zU%l<US0|S}IrMP$;+d0Xhg$r3YVp`G-_&|XOmdDzjlX$S%^uT>ep){cPgb@&!(Kk)
zl;eB;{nl>AGZTbm&X{+ti+lXY@p*OBQ~u2#G_M5K?X(Gu-m~k@@;y60b?vV*3O3O^
zB=fBNAFoaJCcjM9$L%{y7?1t`vts$pV<`{c<{f4cW{LlQInbA{Er%~&R#wL3*ul>2
zYN|WzWbLe)9QKqy`@qBYK#7O@**Sj$zsWyp?>(E%Ua`~sXCLRg&$9Q_eU7yszFx6x
z-op<?%VzWXl>f7;sQ$saXH%z|iv`Ex3m4_*ty}&#K>iQ!-4sdZhRFY%=eo6+tp2g4
zoqlyPlG%yz<GH})6%{-0rB~XEipV$4Y%2V!S77P)UYA3^O(ZW*l;P01s+m`;7MYix
zOITLIVCcfEG=KTc-v-M!*j#4X@o?em2QL@>`jOwiy`lZ@=S_R!l==32za>^!wVY4?
zmFnpSwH=GX4*ak%k$XIW*^iIs=79;aKF__Gq!_>5FQ|xXow9JPsolAvvx(ugtc(2$
zv?o~3F+0C&RY1ub3A;Oo=VXUpHClCe|KsMSi*6qmKV3XauyuRgrDHRn@+pXhZ2EPk
zyhLr4!HTyw(ck`<yRTJ~?K$6kJ)tZ}>sMRUwinV7^O{#3e^%A=?C`bxmy=gMKU$UZ
zXjPST;xBQ9g#vO{lo<Cpc3O3(_}1N>=(?$FR<CX1#20rzOfv9Sym9u6GS9ZhOJA1%
z=sKqG<;=5tZ$IBD)9cRp5dG`P?rihT@n64R@1OVQbG7A1|JT}k7G}CI=WMpLtl8%f
z|NH5@0zsZ9&yTM-aPi>G5=&`A*_zw;Wkp}lPLr|tw&Wd4LyhOIfd4(sg-x>+I*+b$
zE;+;b%l+0$Yu_WEF9|T7TlmOUgK1BY@Tt9y4a}Jf@33<m$Ud|tit~B)pHS5~$Jt)U
zD4u1!q$K&|DEpPhKffxt{aGLLDlNXvWN27*NzXw0jLZKmUa8hwYXbT_i^KvPrb+5E
zhME7aSa~zvt#N|GElchDmEU)EnUy3jO8$|#D&fK*(QR_lKbxPu<bNlWmSD8;@KQg6
zNac`6)6HHgMm5axJvW0-_k_k3&NWA_B&9Mx6%6ZPy7v6=%{4RM?TCBBx1VJn#~kmU
zrA%weTmQTK_+sRI)S5enYm4CuhF2Y1Se3e7yp~>7@#DJHWR>OSEJxNqwA4Dcv64^O
z^fZr4LJiL*UWW;{cOT)D`JnWpKZ<h>`?lpg8}b??>NYuc?%~&+&t4LK?|2}`H@1DD
zvRs_+_pUvf{AI1!zO_{wT`R9{WOv#*yK(s}zNca=Y;P)BKG*QxDQ+p2evl%N(Ovxd
zVa|^K%!+qcT1-rxIN@H@QGL#c*V>HNB%{+#q`Yf9^Evz2#m}czh2Jd_`@Q3;UGf@+
z3n6!2iEe)?EHhc~&8`zm-8XENOz3Vt9vtM_@p8qHy$YuuxNYRAt%{nzK}yD8!hXwV
zAr0GS?pP?xcBdvtd7bB`0_Vlt7b|8xe#o!U`r-ojI`h(njunRQ;$;%A<Qv|Y*>iDX
zeT`qa*h<#l`(~Zr;;2%2d|K;6)ikzT6M@UpLCkDNtUiU@JKlCAgT-;u+>Y;AKUinD
z*sA;Rg~ZHDb={uu<-6&kxxBriJnx)1?9{i^wlcBKVLorgdS?H@F9$a4ef6NjnB#(w
z%!2fDJ&9A~pGfGMTeV(nJNJzJ;M{eR8y;A^(R5+socJY;Wz+JnLYuOCAIF<0$kp+)
zZ8}$;>|%W0#CVVO=GVeYBiAv+%{0-wCTv_*_P0c?BfB6=E2L)nC5Z|5Sicw8+s-y@
zt=(?nBp<fzUF?%jb%FUl@%z{1{VV*q`QkcFjV;_SYJCs9wE8p6v1bC~e4RfNKQEU1
zd~$R2@`g*f^+(%Zs&2pj{MNEr_e7S9KALE?yxwZUi~Sb&ni?GSYYLh8-b5FkQv3NR
zzS*zcUiRgx<F9|uoiA4x6VdlvZ~lSP7j_&t&mueHV}*M{oJ{SOyc6|nw+WxCNOoTn
ze0k2SHFv+Kytw%{a>cQ?)?GSU%E|xCX7?~{?zwMsc~z6$75~q6f2yS>8cT$=@?JSv
z#Ic~fx^j=r^%HC|#`|0OqozunyMMveU)B1Y&z<GI@0QE_vFtFCDv0%ZAW$Z=<KSM$
zL(e`K*6?q;#gcbtQ%G*ln=Co^d<jOIbonLonoG9sFYnwQR<0b_^7-vDrvJgL^Lsfp
z<Rb0`NUpe>zCdu^WTEzRLjGPiwQv7i7^t`SpsmDZmTM(voLo~3qrHCpQH^ymye!?h
zYhRR_z{4Mx1({^+&(Gt2wV18q&_TP2ocsDWZCdFqz0Gb`>V(R_ijNN-7v=X=UC4LH
ztTFs3vvEl;`@MFyFez>MKN8$&Ts})0AFjU<uzbTps~nN_UMo**@l8%!s6B(RHoW+g
z9M@mId0C=Wrl#{l%smQ!zrSGS{>3GH>XyVa_Hn2Ftgg^BcZ$ray6ShqAtmgsonl5O
z*G2VTWpnE+erP{gBCPJ09qAZ)Wr?56;VQnP*%=X%f8)6M4cx>UF0EW2{_5!Y7|;CF
zAF?k?Q<qt!zCM!n;I-BN%<zZ<N0c5Eo+!AzXp$u7=_N01ylZx@d3E4M?{*=X8<#h%
zj}pHT9JrwT!}<eUYv0PODR11kML23(=>}<KuP8GSnV8^3%BNUQPSTz!u-rsASib*C
z*0G$Dv=p&-bLM2VZrf7ql6FZ-dggk@z^MfXT;hal@7A5V<$Pa=`>+_}gZ10|{}n{f
zVcJ(ZU#4s4)&^IFl3+u&^lu@jZV6ac$22us8Zw<e=dw;Ry=V3&!5ODG)@H5Dwml_r
zZ%b0;*(r+QHG40qnq}tZAGFeA<Fwp-DcZH@;*|A~pVd-jvhOTY4pwMe-Wz-@Ggb7X
zP^4t3m+*FlNuhkp%)T!Z>D?$h*>$S%Z!L44_7hJ`mPtOl;Q!BNo0DeMGY6OI6Q371
zG2c!XyS`}hchh>V>cVR?|FB4M7c8}yo%A(8qAFg3v3jY>Z}&qA;%<U%Qi9$Evx;p_
zx93ji4*D&2|DYs?K=T>(_$!JXGiB8dRv+d5W-GYi<K;W-6JFf+nO?nPcm3<^3=Qu^
z8i^|L>EAC2sB?+xun4sN-s9^$MMA;2uzB9X?>6bKjBY|t_s(ixvd_3|e)Jy>_GWpL
z)qj09D7#7QR8dm;-+W_TS6Ze;Wl_%p*5VjR1B+GjJ-D7+)L4|gRde}`2XlA(tT^X6
zM^XL2>MLuGUG=qnzU|C3<CN{|{)AdE+pT!{JKB5sq<h{m>(d(V#;ImXZknT(rRDj$
zGkm?uRUtLisqaEPAI&^>RckU=An&}2(|*1yZ*_1vZ@R_P_S@C>ro#kANy{cx>l`=H
zAAd><l6#u8xexHq{*)%BeB<jcJC|Mi#C17;YdC(1TsMnx{vyHO8xCqb{dsGif7?Yf
z{drf7^F&r=msi|$lHC0Ny7oSPhphF%@7COL%4&MG`a?O}$`eYFF4I1T>urp>IO}kp
zws6&p-DTabd@uBpPh8g$lXPRL*xRvnh5^t1=x+933Z|0{c=o$WFH_1m%J0q{CLqDa
zBk0hP%{0qzZI$xHS@zah4hn9^^gr5u{&=t8O19v?RvoD|pT90$6EnR_{nu|P-&1e3
zb2oqgxmD-WPs#X&{*U)4AKv;Rbc5Tr2A!WL1&?0X9cq>=E+YPLm(=8?>zu0h&N!32
zVq((t&nqrvo%nm{_ePyJ0y>rX;@8({IZR~~RZ_lY7LeGSu_br!eYF`;Z+Cgv%a^`!
z<9W7TtG@o`^=sDCHyn^L)|%pU#x|Jo$Cn-NScB#U9Lk-g$j@o=ESM=;)^7d8PT#d>
zG;Gy{&n+u7y_3yoaMNz%l=nXt-3$En?cPrwqkTH_9gjZmt*`ts%lm@U-c~2g(67hd
zi<KPQ5UIFmlaov)+pEQC8;(c+-+WCmLoUMQ>;9eFFPj{^ygH}w`GKE*``w$fm;G6o
zdqlJMo3Hc3QZKFl@`WFL_VVlK@O}6DJ*jxXjMeX-W<NH_vdiXPeadZ({1&Otj2#g=
z=l1j~*$KYC6MbZP_Vbt{|0Q(e7T=iIaeYSm+HY$<o=U&!ZI{0{_~#GbwM<*?ib;sP
z(Y+VZyhLxp@k`7yZzuCxo;fQr(R}_MtE`x85uL}u>$mGK^_yUs)v{pUlHDaWYh>NN
zzy2{nxm)%R-|jZQ2jYwu*E28CtDLoDTi*4w&m}Am&#mhIZNGR@v%`&9bsooDA`ba!
za4XNAqpWWvk}Wc8-jiM1yz>gulNIhNJ-*bE`Z|aA_e7a>0q<6aJ>@-iU~7!HpHg|`
z%;oPloyk!3nr_;C=&1OXE+d~833)}SXY><xxa~WotFb#@Z^7!7+bsjUV*9;>#Z;|s
zpHr-NV~L3o{TM8^@nX(9?;Dot$5jt~xF7I$YsHCu^3!y;p4a|#OKfM6;OoK^ckigM
z%{Qu6es2>w6}9D0$xOZLhPjtc{m6W|khwPTLu{nW{mz{sSI_xan7-ezR4iq2;EnD@
zkJqtwTl7k^9F$_(D0T4NbcN$@rS=7f6zK%s-dF4wymoceuk-x}lMcn0^Q~Le71Ef0
z`}FBIMLZ_)->=S|ysp4hLtJlqu9(mE&J#QRcr2BeY%*7ho_jt0wAjX^laGpnJTrHR
zEzVBg>hff-;Uurm>pA?o`#*TUiJPT)-K=rarym{1pVYkTKIf?_Q8hO#Tq>E*t-Vy(
zX6<Gtf#(VFJwJ0cS<V*=-(mQwTkxdY-pF*XUr+sJ70j6?ylbgan#}v#+@h>6cQ+QT
z<d_#+{!%qa@8o?isjW{$4BZmFPIMi4D<{0VrQX`fVWCd>39W6F{1ZFBh2@#{%x387
zSW$Yn#`ELkq`ynoeBa@A%v*brpVb_1hwi2etG}%_3+UUcp4XenY{IcX=-uYayPohn
zp9-5)<bLbimCrsxZ=Y7hU3o24^)A`_a+dTb3AOYKTW&ZqsV{!LRQV`>;qDc04>z<_
z?-#Y7qkYj>WdHqcHq~3tL(hf&;rBU}wB?(f*Ufm1ryuRq*G_rvxB9%v`*@kc<Eum}
zeyfEl9f{?A^2udt(e;Co5?`LHFVVTUqwaNY=qbzEh3|w`O*#0oy4&($Uvkr&t92i8
z)NYG@F$>$-Zt1ms@za#4h0<oLt?bk~H}xwQ1m5qzs@uiL{`Jd6s{?voy3O}PTr|%n
zy-wqDN|<YI%r*7J^xdU@4?I;1a_d+>=l$=-v$OP19OqzOUFvarneMNa;&a(rvJ$uU
zG0bp`+3Fl|KuRf3DX_d>d-wL4A!gmiZ}swX_U}nQomX;glX1NM+{<c7{ti3&@BXsx
zc{|mATTb2fH<{bFsZCk_faRJncahdab?F0Tm#UkM`O^+DRj!)-?5ggo7YpB*zS_R#
zui|^}=g)8Eep}kzd{-(qgGb?ghk}%Q<>#fmCs@yZ^eB||=g-{ZqPoxa7~A&_scGll
z+=^n(D7$>=Le^sbDce=QYi252`i5!7Dc`pXz4}&mqvp={tOqt0i*`SK^QlR9&hB2u
zO#Wka#!h!mPwdmRHmRC#_2kf!GhA=ip4RyEW>VAS8BDv|0%9(7L_aN=ZL7D-Dc$V0
zNnW`Xi-ARzVxPvev^zOE4FNwC)lKJ=`~2fEP6@5>;@`a|$7xRUlbm}MlkPmfUUA`R
zSh>?n@0T~d`Db;O{?x5}vLZ5T_l}b8px0k!zTlTG*{q&Cf6cl$Q_kXM1=a5grIkjD
z&j~Gl<5S3OV5Y=iY_@Gz-mwE654xnLF+K8i6XL%)(|yj~jY6lVDtUHBrytW+Fqxif
zSE0Da>0W_-d8wbz?&yvR{p6@S8@3!<{_0+$?nO0yi_d*#mHT}K=L>w~c4OCyeEQWu
zNawYQ{LD9tl8s#7^@*)=W_thE<N20pLZ!M>(iUIcxH#(932T1qjTr$_Ila%D{_`{O
zF=k(Gb(fkUzhz0=+)2GJlAE5UJ@VGSniRanW=Ywbr+%BhE_{CZ!HvmXcNo6c=8J|V
zn!n9hG3`z6yl(!qWeN6Ob5%q4Uow-^n%7lpEw^9z{~5t|dvkM4R)3lo^}lG*#)(W-
zidCj%yFLC1J=M+l^mkqK*`UpzCwciQR6X+(^PN&tsK6!oG-s*96d}G}>p0sTozH1J
zyrAzq!DZR94SCucDKf9R>y<5!`}?Qx__a<i>fCnHOmy~hzW=QkrE5M^t$sN-R!J*t
zx_+0WS=XahF+D$>`@N4RC9N!CyfFJScY~8z`Q*%u&)iXBiee1qPq*^$nf`zCE^L`a
zZ%2z;@82a8(zf5>%~hHprQT|G_uD78Tk&#_1-LBzSakAVUvH35;CNwt)6`UcLb&U1
zp36e%yASBy>)g!CdP~Bgm-%gAM9VVe3Qa8~bBA{=nas=B{#?>kGcy%9tdKMLv1Y1^
z!WX?#w?BMcf3|h~IonYs{`x~hqR(|V$Nb-SKUKW05kDTWrTL${{P8*I#rjts9*SzW
z+B5maTkrF8BX7L?8C{dCdi==d?bT81+U&n?h+Vth)$*uV<?qvvr}KV%S+o4SeXY@{
z5A$B^dB0@3rBddrpyeCg3cseslx}&R+!^;xRjX{b!TQro=UH!^l*qGLcfYG;^#kAi
z*AASScWaW^ty!T7^^N}$)-txv+c%qCk)!kjQ!QJVfR6HnT;XKFOPW<Go}N}}>@sK4
z%BufQv3;~oZO)k#_Uxs4C)hn=`La~F1fH8cp8P$%Q0o)x%-Pp$@2uU|)#a<m|7Uey
z|0|WJ&l}tR@$X$*c6Z;Jr5zvLPoDVOb*LnbfA-WG<vi&Ifs4|6m9kGi`cgZ~+qi%F
zlVw+L9N$pg*=*N#R@q9qO?T?v&CNGbm0#&T`m@wA=W?sZ?|{i=->ZG!{&8Uad_U_Z
z_mg!ird;CByK!L0N2ldk9M7-Z*zTx*-<oNes_Q(FTah-~#2J5|j6S#`*z00g<1X)>
zT~j7~Q1))xaxpH?OU@yqJhxtw>+QaoT*v3=dxy-ZR@drLSdjSY`i;!Xx#w6+?sTtS
zSEZ@_TRM4;_{;N!Q{Kf+w|&p;W$5@e{Dsgp$=B<STJO)ACe$r9eZJ}Gr$!ar9b%y}
zElaMw)NGvlU*&(rOydWdeE-=O7hh}?+Piw8+WLQM?PnfqN(ifYm))+WyZRZU+r^KI
z<l0X2oeQm!o+tfR;p5L`CjN<EgRc1=xNP=2O5gsC*z*Z@GiR2q)VUw>{koxke6()+
zvmI5hQ+R8FZ*8mFzU6M{?8;2*>A!fdUX@=bmsK3uIq_Iv;->r)YZBX^8?y91a_@<F
z-17DLf018TZzM}Bm2^L!5LxE^bGQAX0>8or!IGUECF|dm+~x^ilzH>zrY%nKucLp6
z%+C9GJ@Uww<5w3k<;XAivu(naebq}BMvC8?6k+^HDlp&r*}20vZ~d~kWwWUC>6fj0
z=DP)JoiCod<Ga;txi2R#PhD%D;vT!y_<BnH!RKr{e9OOds{OKV?G-s#e)D5mWXruZ
zH&TwW6kff!GAiljLD$cvCKgvVu~%(YNc$Ptxv#o!@xq)7_hP5kcOK?>S85ckye?(&
zn<rKg4<^P2$Nvlz+~=3~({u74?VVN!cXsXGvF~%m`rZ2fv-$*lrzd^-)UC2*&kCN_
zzqeLIJP~9LIT^e+mFsBE?HAjvzMa{zKX2m4OGhsY7#Hlbyl3#A>7CxoXn`Qk<-2D&
zt~qvC<2L6#?H8p_o40w)Da>xm+wme{_A||ZN#UNsm;O|*>{Fcf=T*{<f9~@(-D7e-
ze&WKJsEH9rYxshX1ZQ1*HaYCKLs!%bJ{Oxg=RD@BP4X&9KDDZ9RnD!vyr3#YePxNF
zz$Z(}zEpB=d(QhW?Y`^mdkfNT?Yw;==Bezu_q+ewEX{l|L-5S$1=p&(XJ3vFoLqKG
zH)8pf4hd1KKaM*8F66x`x7~m4R)2A{;V((SQ=SI%vn@T9v=(LD&wFz7{lrqoXt&*S
z_KEyTy}WZXN5=ZYi!9D~TkEjx_qbyh7?pJQzmSXdrhnoIk?pLLnb)3uF+EiB*2d{?
z*9A(w?3ybz>A<scg<BIEHf22Wy6L}rg>|%@(YLvK*I3oJTO<WK9&?erI3?>nvucdl
z-}kRKmB$GC3SSAH;9KzH<Yf2#?e_KTIcmp5vCS`7LMIZ;3{4DS^9!JD$I!`zkjjEo
z{eZ;uRDIvnl*~k@{0fC=0|f&GGeaW<b4#OGF8!eVlEji!1q1zn#G=%^5(Q(>Bm|d!
zP-=00X;E@&v5k#>Kv8~jaB4}ket?Ucg1%>NVtT5Rf__M9MM*4|zH3E^dob7t3nPeD
zxBR>k1@MOGATB#QE`7(my!?{lXbZ5c5y-(oT*e?r1aTP~f(4BsI*lQA8-v^*#AR#>
zkptZj5X5B++IJnqWehRJ7-EVE#1s>VDJBq8OdzJ1Kuj@#m|_Ak#ROuC3B(i=h$*HJ
zQ%oVIm_kf3g_vRrF~t;OiYdetQ-~?15L3(``ph8u%pm&AAo|Q8`ph8u%pm&Ap!y)T
zn?r0jhnQjxF~uBWiaEp-bBHPC5PjwleHIXX7GQm``p)@zC8>EO#R?F$c6PAD0H1-f
zvC*ezYA`f|xKkgT91Nk}L{1No(6E5`3Nrb{WeM?>CD>P7mXOe}goK7ABor+n`Ya*(
zEFrcS8bCA}8bEX!8bGuf8bI_K8bE^5&;SxXh6WJB3=JTr85%&0Gc<sjX9zXV5Ne(w
z)I39|d4^E)458*3Ld`RTnr8?#&k$;!5!5^*sCh<E^NgV889~i6g6cPd>WAhRLuiIE
zgytASXqGXA<{3k1rZI%(8bf2Kd!YHo5Snoep*hD8nsp4JdB+f%c?_Ys#}Jx*459hQ
z5SoDup*hG9nuQFZdB_l&i438+$Pk*1459hR5Soz;p*hJAnw1QpdC3r(nG8*#;bjI5
zFKF&Egk&$IbZ!9&ctk=s1ZSZEDEEw@VGBv=M$iyOO6i8sd~68K$cE<7$T5dTHZ*4&
zLbJ9ZG;bS1GB=kYv}84e7OIBeJRQVk2n_>63#fS(Q1hU93Ob|AWeCkxhR|$f2+dc9
z(2Qkh2~B*KkT5lb<}^cSRx^a=HA84-GlFI|BWPwbf@UToXl62kW+o$OW-@|iCL?HO
zGJ<9%BWPwaf@UToXl62kW+o$OW-@|iCL?HOGJ<9%BWPwaf@UToXl62kW+o#eh<}WX
zAmL*K$y`W@$PilIB2tkNIAaV%DuSkbXexrHf234o1kIX8(5z_$&6-BgtZ4+znnuv9
zX#~xhM$oKj1kIX8(5z_$&6-BgtZ4+znnuv9X#~xhMv$zD6lzA$LIWw(z}a*FLd_VO
z1R<ej3@!DMLk(IJ8$qjLBWPW01g(sXptZ3Pw7N2aR#ZmND%c2`ca5NV*9e+-ji7ng
z2%2||pn2B_ns<$$dDjS<ca5NV*9e+-ji7ng2%2||pn2B_ns<$$6`~O|?;1h#t`Riv
z8bR}}5j5`_LG!K=H18Tg^R5vz?;1h#t}!I<BF84AXazOZQu9(kacB&#G(jvnw;7C~
z85J6vkn9R_7_1Fx3@vGlp(Twmw4^bHmNdrDlExTX(ilTa8e?clV+<{6jG-lsF|?#H
zhL$wO(2~X&TGALpOB!QnNn;ExX^f#IjWM*OF@}^hNTF&BZEzs+h%vZIABa$eCN*fN
zLK7TP9x;YCDvY6x3S(%a!Wi19ForfNjG>JRV`!to7+UceL#sSvaM>BeWehDJjG>JR
zV`#}`3@y2gp(U3wwB#~|mR!crlFJxcav4KQE@NoPWehF3jG-l$F|_0|hL&8$(2~m-
zT5=gfN-i#AXwhm6EmV!crBx7@F*M~HLmTbJ(6Yi9T2>fC%L-#?Sz!z<D~zFKg)y|O
zFb20gKz$TQqs|ywb{Ip;4r6H9VGJ!hjG<+RF|_P3hL#=1(6YlAT6P#i%MN2`*<lPR
zJCIWuw0Ve>%E0Bw0HiV#XjX)zG81TqL{4SUlFS%dk{LrwGGk~-W(+OKjG-l&F|;Hz
zhL&6=kdlkb1X|>qKnr^laA_69WdhA{CeS9n3AC&*fs_@<p$08u5us)RE;j}u)Sy`c
z8fwstffQ;c(2~mpT5_2{OD+>=No4{psZ5|Hl?k+@GJ%#<CeV_~1X@y=KuRhu6KGLu
z0xe`sz@<|VmkBgQnLs-nCeX6M1X?zjK+6UbXxU%_EgMXrWrGQ{Y%qbA4JOdC!30`1
zm_W-06KL6B0x27iV#fqpb|b|OxSSY>*nwtbXzW0<Gji-eODYp+No4{psZ5|Hl?k+@
zGJ%#<CeV_~1X@y=KuanUXh~%PEvZbPC6x)Zq%wh)R3^}p$^=?cnLtY_6KF|g0xhXb
zpe2<Fw4^eDmQ*ItlF9_q?u|tZ8<;@LV5Cq7ms$f6>d*`i33XFwwnq+iXt`+uEjLY|
z<)#U=+%$ofn<mh5(*#m(a+yFYLKA2eXaX)PgSbqf<$(#b&1C{DsZ5|Hl?k+@GJ%#<
zCeV_~1X@y=KuanUXq(Ff(&j=AU1-UV2whWfDK-G1YYI(L(9ne@ETqsig_fhH&~nri
zT8^4R%26&;XhClZE#ghVWoHnVDKy`jLfc%X(2~m(T5_2}OD<Dro68j1<}!trWTw!P
z%oJLZnL<l4Q)o$M3N6V@p(U9qv?McymSm>TlFSrZl9@tFGE-<tW(qCIOra&2DYPUr
zg_dNd(2~p)T9TPUOEObvNoEQy$xNXonJKg+GliC9rjU}1%M@Cqn?eh7Q*h}O#AOQ2
zVW!Yljw!V4Fol*KrqHs(6k2weLdy<QXxU*3Ejvu1Wrr!W>@bCv9j4H-!xU0>Af-N2
zXibTf`oQJLK%_pDylsY=w@slXl_|8OGKG{>T&B>X*c4g_n}SQHATCpA&N79zsZ60|
zgDJFZFol*4rqHs%6k0ZzLdynIXxU&2EgMXsWrHcSY%qnE4W`ht!4z6Hm_o}2Q)t;>
z3N0H<p=E<9v}`bimJO!RvcVLiY%qnE<%rlZ8>q6u44O3{WrG<sgCLa+X3(<13|cmr
zLCXd+XxU%}EgQ_BWrG>CY%qhC4WMZU1BD<iGicdh1}z)Rpk;#@v}`bgmJMdmvcU{m
zHkd*4vKb^VBc*XOj5KZr&esEw#?8Q)D~Jmkiiqfi^<vGSC5sufWHE!5EN0M>#SB`q
zm_bVxGib?T1}$04pe2hLv}7@ZmMmt_lEn;KvY0_j7BgtcVg@Z)%%CNU8MI_EgO)62
z(2~UrTC$iyOBOR|$zld6S-8xgRfrj+@<5ISXc>x>mccEQfrtfYMux@$G&>`wWoR48
z4BAFAgO)sI(2~atTJo4dOCB?5$zujBdCZ_Cj~TS&F@u&oX3&zy3|jJ-K}#MpXvt#+
zDS41X4cdA`3N>)4GXSAx4vj!asF_2nLgY|`mV0K<a?cD}?wLW$Ju_&zX9g|z%%J6-
z8Km6fGJ{qC=Fp<w99-4~ahXH&uQ{|gXAUiC%%LTXIkcoPhn6(v(2~X+TGE(9OB!=%
zNn;Leg_uK28gpn#V-788%%LTXIkcoPhn6(v(2~X++6pm;wnEIItq^l)E5sby3NeSa
zLd>D95OZiN#2nfRF^9H7%%LThIi%#`GKUtm=Fmdc99&ujA*Tvxje|%P=HPN;08)ho
zG%z5k!U7s3NU6dcT5_2~OD=P0$z={Lxy+#@mpQcLGKZF2=FpPM99nXjLrX4mXvt*`
zExF90C6_t0<T8hrT;|Y{%N$yAnL|r1b7;wB4lTLNp(U3&wB#~}lw4fq(4yKLT1cCN
zORFF*b7+n<hxVt;p=E_Rw5%|PmKEmEvceo%R+vM}3Ug>#VGb=T%%Nq4Ikc=Whn5xQ
z(6YiDT2`1t%L;R7Sz!(-E4a*|trT-;E5#gIxS2zXHFI!z5yWK<O*7`uR*E?^x0*w9
zt2s2cnnQD|IW)JLLvyP+G`E^VbE`Qtw^~4Rs|7T-T0nEF1vIx>Ky#}FG`CtnbE^e3
zw^~4Rs|7T-T0nEF1vIx>Ky#}FG`CtnbE^e3w^~4Rs|7T-T0nEF1thm3<r;Hnor=gc
z7T}yqyIg~@4#E<eI3c;k5}HJja*GAD%&>r#85Yno!vb1nSU}4R3uu{P0WC8upk;;y
zw9K%8lo?zW&_de+T3lOz%ZVT^3ustaK-(7<&|GQ(&7~I5TxtQ$r54a!Y5~oq7SLR3
z0nMcr&|GQ(&7~I5TxtQ$r54a!Y5~oq7SMpOfChmDG?!XHbEyS1ms&t`sRcBbT0nED
z1vHmhKy#@DG?!XHbEyS1ms&t`sRcBbT0nED1vHmhKy#@DG?!XHbEyS1ms&t`sRcBb
zT0nED1vHmhKy#@DG?!XHbEyS1ms&t`sRcBbT0nED1vHmhKy#@DG?!XHbEyS1ms&t`
zsRcBbT0nED1vHmhKy#@DG?!XHbEyS1ms&t`sU<X*T0(QFB{Y{>LUXAlG?!XJbEzdX
zms&z|sU<X*T0(QFB{Y{>LUXAlG?!XJbEzdXms&z|sU<X*T0(QFB{Y{>LUJjWCA1o`
zgjOJy;G7x6WeKfQEunR)B{Y9nLi2|uG=Eq^^M@rge^^5Ehb1(BSVHrMB{Y9nLi2|u
zG=Eq^^M@rge^^5Ehb1(BSVHrMB{Y9nLi2|uG=Eq^^M@rge^^5Ehb1(BSVHrMB{Y9n
zLi2|uG=Eq^^M@rQe;}1w7SIqtlv<YHyh6uP%g_KCI*?+^&;S}pNadC#G@n{R^Qk2?
zpISomsU<X@T0--wB{ZK}Li4F5G@n{R^Qk2?pISomsU<X@T0--wB{ZK}Li4F5G@n{R
z^Qk2?pISomsU<X@T0--wB{ZK}Li4F5G@n{R^Qk2?pISomsU<X@T0--wB{ZK}Li4F5
zG@n{R^Qk2?pISomsU<X@T0--wB{ZK}Li4F5G@lw8Kr^bL0W_x?8bGtEp#e0n8X7<|
ztDyljw;CEiv#X&2G`|`eKr^hN0W`-N8bGtGp#e0{8X7<|t)T%l*BTl?v#p^4G~XH;
zKr^nP0W{|t8bGtIp#e1S8X7<|ub}}n_Zk{Nv#+56H1!%9Kr^tR0W=328bGtKp#d}x
z8yY|}v7rGp7aJNtv$3H8G#?upKr^zT0W>EY8bGtMp#dZ>Bjp`SXl;VXJB9|}j7_`D
zgL4U_p#d~W!ZHywWg=xFLj!2(VrT#@UJMPO<%^*Kw16=*fR-?Z2GAnL&;VM-7#cte
z8AAhTDPw2=EoKZ2pyiCA0kohoG=P*eT!seFs@Tu~S{EA{fD4!)kQ8*)kO8zhHZ*|d
zb3+4YMmIEo=5#{?XjV5gfaY~W188P9G=S!ILj!1bH#C6ecS8echBq{T=6FK`XqGoL
zfaZBa18Al<G=S!MLj!2GH#C6edqV?A#z%^LLj!2pjU4;nVqhR*-w+y1(AbAAT0>sI
zU}yj>iwq5*g^{5Fv@|j_fEGuF2GH`z&;VK>85%%KBtrvekz{B9Et3olpoNm50kl*y
zG=LUMh6d1b$<P2=Fc}&^OD01DXwhV704<vg4Pb>6d?_V-EhT(0C44m{d^sh2JtcfW
zC45CCd`Tr@O(m>wGK3XQhOolP5LP%D!U`utSm9&{E1V2rg_9wya597yPKL0;$q-gJ
z8Nv!DLs;Qt2rHZnVTF?+tZ*`f6;6h*!pRU;I2pnUC-}-s_|i-G+DrK2OZe(b`0`6b
zXf0|8Uw{c;feBxN315Q=UxW!?g$ZAV315c^Ux*1`i3wkd315o|UyKP~jR{|l315#1
zUyuo3kqKXt315>5Uz7=7m1zhm5KuB8w6aCYfQI0*VIVRfY(*e61Hu*tA{W1gu+qs8
zRyrBNN+;NoWkc9%WkblC(jYEF*g`==Ls;nqU(^X-)d^qLX$Y+Z3=N^hzae~OCwyrq
zd~GLuaVLCrCwzG)e0?W;fu|v?Krn<A2=FzY@I{{RRi5x=p73>^@P(d+umS<T)Dyne
z6Ta9Jw%XGWw%pSYw%*gw2-aFLg0)tRV67D+SZf8gDAW+PD%23REYuLTF4PdVFw_vX
zGSm>ZG}I8bHq;QdIMfifI@A!hJk$`jKGYDlK-3VnLevntL=-up8bT{7q=X7tFghR!
z6<VFc5-PM(M^31)RjY>3Wvg6<MzGS!2v#~7!Ad71SkuV})^sw0HJyxLO(!Er(}~N_
z2-?y&G=h~*uqDifu+__kkae&@T!yg4o`y!S<_c^fsv&G8sv&GCsv&eODsr&H7ULoZ
zJGkXC5Wx;zrw5&yF@&u*L<x3S+X=Ql))2Np))2Nr))2Nt))2Nv))2Z#mdnrx)^;+2
z6qQ_tM$krqp%JX@WCSiBL17C`l7_I=sfMuSsfMuisfMrxs)n!?s)n#7s)k0ewv!R8
z?F3u3Y6x4lY6x4mY6x4nY6x4oY6x4pY6x4qY6x4rY6x4sY6x4tY6x4uY6x4vY6x4w
zY6x4xY6x4yY6x4zY6x4!Y6x4#Y6x4$Y6x4%Y6x4&Y6x4(Y6x4)Y6x4*Y6x4+Y6x4-
zY6x4;Y6xA>%4G;!3Ty~l1#Ade#~K8Zf-Z13hLujRg`|eCm86ESrKE<iwWNly#iWL?
z)ue{7<)ntN^`wTd1*L|t6{Uu-C8dV2HKm5IMWu$YRi%coWu=C&b)|-|g{6kDm8FKz
zrKKoY3EI#{%1XxImdk)-C2%H&&2k#T)@mYWC1Y6W1Y2Ng2wP!l2wP%m2wP)n2wP-o
z2wP=p2wP@q2wP`r2wP}s2wQ1t2wQ4u2wQ7v2wQAw2wQDx2wQGy2wQJz2wQM!2wicC
z9LSJmy5OB_(B;sEkoBhn63EcTJ+zvDEty0KWLVD*whGn|whYz~whq=1wh-13wi4D5
zwiMP7wieb9wiwnBwi?zDwj9<FwjS0HwjkCJwj$OLwj|aNwkFmPwkXyRwkp=p7*;yL
z*2Nma7RDOFR>m5_mc|;w*2Wsb7RMUGR>vB`md6^x*2fyc7RVaHR>&Gcm&kG%8pAqM
z#<0$mF|6%m3~M_X!#Y#Okj@lJGJsYC$axLiuNsJC09!@~O$M;lgeb`X*0VE)_3Vsc
zJv-O}T0__hT0__pT0__xT0__(T0__>T0__}T0_`6T0`hUS}sG_QeQ*ZDqlm$`q>~Z
zL)hX?Llaof4z_^R5VnHV5VnNX&;-`AGlBK&V5?dUVar+#Ve48AVGCOgVJlk=VM|*L
zVQX6rVT)T0VXIpWVar<$Ve4BBVGCRhVJln>VM|;MVQX9sVT)W1VXIsXVar?%Ve4EC
zVGCUiVJlq?VM|>NVQXCtVT)Z2VXIvYq03#l3{7A|JtnZB9uwG54{Rx>p$W8AXlMd0
zYYk!RObuZRO%0(dO;M6AwA+uAbRp|b2PEl29Ro|c(2fUk(uFO4HH58xHH0mHH8g>>
zonQ-K4Ph%_4Pi@Q4Pk3w4PlF54PmQb4Pnb*4PonG4Pgsm4Ph%`4WUb6xeQHUJv$TF
zxRVKN+{pwo?gUZ;9V;_|_3U74Pz_;=Pz_<LPz_<rPz_=0Pz_-VQ4L`$Q4L{BQ4L{h
zQ4L{>Q4L|MQ4L|sQ4L}1Q4L`WQVpRiQezS8cnx7oi;-g=Ts90u?3+Tz1fj8S3hjHN
z#6E1?3AWJJ5VABjh|3VRZqd*b*3E>iO*MoqPBnzBPBnxrPc?+CPc?)sP&I_DP&I@t
zQ8k3EQ8k1uQZ<CFQZ<AvQ#FLGQ#FJwR5gUHR5gSxRW*dIRW*byRyBmJRyBkzS2cvK
zS2ct!ST%&LST%$#Sv7>MSv7<$S~Y~NS~Y|%TQ!8OTQ!6&Ts4HPTs4F(T{VQQT{VO)
zUNwZRUNwX*Up0iSUp0g+U^RrTU^Rp-VKs!UVKsy;Vl{-VVl{*<V>N`WV>N^=WHp4X
zWHp2>Wi^DYWi^B?W;KMZW;KK@XElVaXElT^Xf=ebXf=c_X*GndY2`A6tzI@Xg><G+
zQa-fiLrVFk;4z+oNcm>a&NejVn?bwW$SEJT)YTBS*3}TU*wqlW+SL%Y+|>}a-qjGc
z;MEYe;?)qg<kb+i=G73k=+zLm>eUdo?9~vq?$r>s@YN8u^3@Qw^wkiy_SF!!_|*`$
z`qdD&{M8V){?!n+0M-z;0@e_=1lAC?2G$U^2-Xm`3f2(143^8#6qfyAYk>_Rt6zh-
z3}H(;4b5QLAGZ9|5Vro*5Vio-5Viu<5Vi!>5Vi)@5Vi=_5Vi`{5Vj1}5Vj805VjE2
z5VjK45VjQ65VjW85VjcA5VjiC&<r;0Yz7;4HiHd2o56;i&0xdMX0TyrGuW`R8MyNX
z@+oX!#|$>G16$~72wmyQWe8iFYY1DGYY183io9gZ&=fk9iIfE(i%kb43qWU>U|9e$
zPX}8FYY1EMY6x5MY6x5NY6x5OY6x5PY6x5QY6x5RY6x5SY6x5TY6x5UY6x5VY6x5W
zY6x5XY6x5YY6x5ZY6x8bi(Ht%*5)FIBzS&oKtd8apbQI1XyXI9FoCVfHH0q8<uZgV
zLpC&njWU@*Yhyz*XgzFb1}+~#DG-`)3}LHb4Pnb+4PonH4Pgsn4Ph%{4Pi@S4Pk3y
z4WWx-Q9=?rB8D8212#hkTL=gZN!WTol#qnY&_NgKav7SzX6Vddok}xUr_v18sWgLi
zD$QV>N;62OlFQHx+KD%Wt(i51Et)lit(rB2Et@rjt(!H3Eu1xkt(-N4EuA%lt(`T5
zEuJ-mt)4Z6EuS@nt)Df7Eub}ot)Ml8Eul4pt)Vr9EuuAqt)exAEu%Grt)n%BEu=Ms
zt)w-CEu}Stt)(@DEv7Yut)?}EEvGevt*14FEvPkwt*AAGEvYqxt*JGHEvhwyt*SMI
zEvq$zt*bSJEvz+!t*kYKEv+?#t*teLEv_|$uCC=WgspEjge`40ge<BJ0!cxSTrr1E
zDI3C8wHm^fwHm_KwHm?}wi?1#wi?2gwi?3Lwi?0~w;IA$w;IBhw;ICMw;IA0xEjJ%
zxEjKixEjLNxEjJ1xf;S&xf;Tjxf;UOxf((jx}xMe%!xV3ve$tq!C*@sq4^HB@)0@T
z!Pedy!WQ2e!dBlJ!j|6}!q(p!!WQ5f!dBoK!j|9~!q(s#!WQ8g!dBrL!j|D0!q(v$
z!WQBh!dBuM!j|G1!q(y%!WQEi!dBxN!j|J2!q(#&!WQHj!dB!O!j|M3!q(&(!WQKk
z!dB%P!j|P4!q(*)!WQNl!dB)Q!j|S5!q(;*!WQQm!dB-R!j|V6!q(>+!WQTn!dB=S
z!j|Y7!q(^-!WQWo!dB@T!j|b8!q({;!WQZp!dB`U!j|e9!q(~<!WQcq!dB}V!j|hA
z!q)2=!WQfrLRaj9&a{D^@B>>;ZU|YZ3p&;Y)^@Uhw4IPsHEhK;Qf&fRK06Sp8n#dp
znyO*zC6QA#Yz?m=Y!R;^Y!$B|Y#Fa1Y#py5Y$2~9Y$dNDY$>lHY%Q-LY%#APY&EYT
zY&owXY(1|bY(cLfY(=jjY)P*nY)!8rY*DWvY*nuzY+0`%Y+bJ*Y+<h<Y-O(@Y-z6{
zY;CV0Y;mt4Y;~_8Y<aICY<;gGY=N&KY=y5OY>BTSY>lrWY>}@aY?ZGeY?-eiY@M$m
zY@x3qY^ARuY^kpyY^|>$Y_YE)Y_+c;Y`L!?Y`w1`Y{9P~Y{jo3Y{{=7Y|XDBY|*bF
zY}KzJY}v0NY~8ORY~imVY~`;ZZ0WBdZ0)ZhZ1JxlZ1t}pZ27MtZ2hkxYyq$#Yz43(
zYzeR-Yz?p>Y!R>_Y!$E}Y#Fd2Y#p#6Y$32AY$dQEY$>oIY%Q=MY%#DQY&EbUY&ozY
zY(20cY(cOgbVV?7281nAN6LVZ^}z#@0iksqECWIpd?IH+*dk>^*eYd1*fM29*g9oH
z*g|DP*h*zX*ivOf*ji;n*kWZv*lJ}%*m7k<*m`9{*n(w4*otLC*pg*K*qUWS*rH`a
z*s5hi*s^6q*t%sy*urH)*ve%?*wSS~*xF@7*y3eF*y?3N*z#pV*!pEd*aBul*a~Jt
z*b-(#*cxU-*dk^_*eYg2*fM5A*g9rI*g|GQ*h*$Y*ivRg=vrnjL)fkdL)eA~L&y^5
zAdnPv)YKB(g93{{k9mVFB{qbuB{qaDCN_kvCN_jECpLtwCpLsFC^m$xC^m#GDK><y
zDK>;HDmH|zDmH{ID>j6!D>j5JEH;F#EH;EKEjEO$EjENLE;fX&E=JA^um$nRc>&ye
z7=XNB1Y1iC$qPoX6~!od0oH$kt#~$sEqOMCt$8+tEqXSDt$H?uEqgYEt$Q|vEqpeF
zt$a3wEqykGt$j9xEq*qHt$sFyEq^wGE`LS|N$6@wL`WJzRzlM*Br*2w7{OK~!$J@`
zeT@`?MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5
zMzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5MzA&5M$k3bND*KJTW*dV
z0pK-7w2J_otEi1&%Uxj+0qs(wL<DqIlM!@5IF}J@|AG;0=YkPr8F&y#3R2t{89;Y<
z7{L}{8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~8^IP~
z8^IP~8^IP~8^IP~8yP?c$BbZ$u#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#I4g
zu#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#I4gu#KRLu(^z2Yu$|upyN?S
z2H<fWP=G`0Wg`P<jcf#4_iO}P_iO}P_iO}P_iO}P_iO}R_l%N0q3ha^(<gX<WgyZg
zZ22=ZeZm$&qohypVgXQ4Kqo+rV2iMgV2iMgV2iMgV2iMgV2iMgV2iMgV2iMgV2iMg
zpo_3k0tY(6gcLZC_1FUvIM4+tu)u+CI6w{@*otr?L+FZdBiM>?BiM>?BiM>?BiM>?
zBiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?
zBiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?
zBiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?BiM>?Bj}27
z<m3cf!jGJsz+?HeOHP=TF=P=rY<-y#(&}BrWVaD)sXDSt!GqlNbtz=v5SHMfdt5*X
z9)2pf5p3BxvP;2xVCd>n=n@B*OQ8!L&|C^#Rf^(L&_TL%bt$w0fw>e~jeuMVJx<;T
zwz%F1y0{)C1w$8XAp3#F4Rb6h7~0x~`vGzaF~|={=>oIi3t8k(*U$#nq=>wRs7{dc
z8gzyO5vHJ{%OTEG03R){0KRFUSV7-AGo@G|nhUb%7B+bTO;)gl<*;SZutmDCb(gSZ
zdaxyBuw_xO#W=9lA*Rqp)UfGd=xit#Y?2E$Ap;xVhm9`6d!?|}p&_i*VhAg83?cgh
zKnt{C3$GySY(YzjVSDUg$5t9b)>eVmzJZt7fYz<RXVqZq>tQG97{U&RF@y}og9kfd
zonzRhDA;yYXb%X~h5)z3K@4a_89}P|ATA@=t{o#oaJdH(0T(M^1}N8p7~rH2W<czU
zRnT|NFU>1aFtGq_PJ^v;g<d5AJ@i*W-#M`)F(*GA7OkM@4&u^xNi8lZR)939^?g%I
z5>paO5*3VKE7uXp17sH@d4N*~;-&~Leg6Po1w%VKsKub-6ImfRhjZzB=zDVMJLMOp
zq!vLgtuTz`(sv5BvEkAWS1{z#cTtEoQZS3<(hpY9cLDiB-x;LNPywVaC^fl6A==nn
z&&)^xv?kxsSkKf*!PLS?&m@*h-_gcKKUhCB$de01Xk?U>6j<r&Cl*y?mg(gerRygq
z73&*V7?|pTW}wPUG(mYbxHPE*beo1xW?nYj>EQW#GTa`lpdSo#GU!GC1JF$zU?&?{
z8tZ|EZA~mJ^gt70MwXU(1||w7mgahf;0rrI;jdqunp~2ZpQoi~#HEkbVc@<iZ5(E9
zp$8i8ggMN@T+i4Pbdw0G!;En`4CGzfILypa57bP6In3N#&&(LpVJ5g720FZ#HV!kj
z)B`Q&hdIp5Tn}>h3TlX%;&K=$<I%=pCI%>J%)}CF8Z*P?Fi-(c8;2PiprkQlORQ<k
z9GAmD1s`o3W@Lzx#*8enrZEd#4g)m-XyY(LLzFaTXo)qAS>kdSdSOju8B9buW?-lX
zTDJvD{Dua42IiQ#($D~x%gC%9@VgAu^)t3K)B_#-WNcsrsvArU4D^h!loy7ExLgLR
z1F0UFV3(O0>wy-XKwV~RZlq_3rHD1eRrrHPxoG1uQ)4~Qcs$HyW=47@*uo4~=?^~p
zfHp2OG0_8u9V9l5O^x(SvDBA_xQc)9?nc_U%-BQ^v}+C)W+p~@=GbBrSNRV<9fCG4
zGcwTw9X|?lnX$2+0k+u0RRMtaFwn+j2Bs+K%+LgTI>S{1fHzgp#AQa7W+>^*zyy0b
z!&L=<cX`mpWfo?7pzS-**fg><(X+r-(&DNEz*~}O<1%wI<aB0aVTv`K8R4n}!24im
z<1#Zda0>_)X6B|?TR=v*>Hu*6kTxzeHP-`8%D`M^W~yg`B{q$4)dAqWqO@_Du?0#x
zGcm)O&Wv!?0pK1qZCqw#fs)RQ&9SF5Ty+3=&mV1EW@rKK)xl!Z$Xw6Z5VI9zgsTn!
zpW{Otml;^1q%%Wv?CA_w9RMEfr-{o9EiIAjO(O$yto5c5t~vlb@jx4wSy<|UHt<1X
z)6mjf&k|c~;;I8M2Ggn1+6J|L49zXUt!<dgEG)3LwvBMr0pMv!+Ju>z0dlEfXl8-6
z)G)?X2Y{E3(8gt^2FRs`p{XU-Qo|Tm9RS{=NL81anwo)onWhGo;8MfX%v8_ROu^L9
z0&A&ZjH?a+?~$U3%S<dS^*|fjU@kK-*R#aZ+BU{j2Y?4}Y2z|;18@$2y3EAf5^D}H
z##IM^H%rjQWo8E8@(kuOGYhQcnK7<906f4;8<&|F=z;d8!dzxzp=XJuhhmJY4ghZ_
zp^eLoQNzp_N0{NN1HdEkv~iiCCAfzI3o|1NtUVNCTy+3=!wqd*1{%n)Fj0WH%m7E2
z;i?0`^OrPnnXv^*m>FAQ4>J>7bpUu~gElTRhty8cFf#^?absz1o8YPgz>{0FaT%!8
zFo4IVv6+RQ88(;Ussq4>Z_vhNCYInqT3DEwT3{WdHNjN}fG4AA<1%AQaE%UgnTZ9~
z8r=j}9RQver;W>u48WrYFqeTkELiGI6I^uw_(THQxXb|33WB)|)Gfd=7G#2}4gjwK
zqtImr3Wf@ZnJ^PWV{p&J%tFrqG+Aq6YN=<YU~ZvjVrBxG_5;tJBxjbS>ZPWnWai-*
zr3EiZqprKmOu#J+xVtP&^~_0k7<h#Pbsc7Dpa<G53v-yMp|PHc1=bKNPp!<s5n$k@
z7F2Z?sND*h0)V^A*b-NO;d2+#{9KSZ7ihvF2r=0VUPb|Rb&!!E7i2@WevqLh7vzvo
z{UAegF334E`ay=KT#(~M^@9wJxgckc>IWGbazW<c^@GgKxFAbN^n*+-xga}O^@EJe
zxgcA%^@EH|xgh(w^@EIzxgZ;s^n(lyxF9RqkQ@ebDAZvgp!s7m`g*AO!pOh~+><f|
zHEk_S6u={rW(uYjmU^ZppxJFi#t1FRtW3;Jv;wWFFUFNa!0S4w>Oxac#x*uqFf}s=
z&tsUI=oy+Rn3`MY8It8dDonJX1);eir27KxXn}&z$U?!?%uLVB$TSwR$Uz@mwgi`?
z=H#SWfp!L@C*#O6;8hv42|*JRJ<uE#Gz3je^^A;AqnIf7QDM#<EdUM8z|)PUh6Z37
z6o4iQrbY&O<`$^oS6G^uSAwf?0zR^sCIM$+X`u(&paTs!14}()k{m{bId{|$17%jw
znNcu@8Je1c)^&io_*h+rtECBEWJJ{<GX%9TEkH|5AVFqmVW?+fqCmRKs9w?;T0l}6
zEX<6Ijr7bcaJvjwOA~w&8dby0$k-g*!i2lb6tr5043|;8Xfp&&$(oobn3zDuK|rIZ
z1{Mk?riOY3W@tr6az<`uN{JO{S4&n2j<OB15}mq%X8=n22qzjDnduo(;zFtyZ>DB?
z7NE>(Y+$ShI@;LK0MwySFg7&SGc!Xi--1gLi}I5)^NO=8tqd(K3`$aQ1|(7ghB_?)
zLqpiuJ=B>d2B3<TLT6IF=rb}l)C2AIFtRiRHwQqKg{hGOXpGv>1T{3BiW2iuQuC5h
zi_%kztUx=?iYsx3Cl!_-p_b9Gc8ie(WYh^#c^Fw5=$TXEPAaTMLUpGlXc3aJxdP0c
zhK5FZ#zqQ6In+3}9A|)1VRaI!Lk*3fE8n02YG?`?Xe7>|rWq+X9ZLP0#>^Z%0tyRJ
z(0R_p1!rm+PFGT4<q~Re8kw8wflg(GyVBAOv~r1Jhf=)~f@dVq7`K^;f}w@Eo`Hpe
zk-4Rw5nB7&w=_E=F)zOil-UidaP?6j8-=J`3mJmTb|a`8jf{-+jLj%=Bh~96BV#j2
zvV^(O(oD|;s}qAW5;HPWbb}LfQj3d0VQG+<n20N7g3o59YGA@6+|(SLLZKz6nYo??
zT6~k{P^#BO7RGwuWABZi4mC6})w48GFv8-}kfQvQl+-*>U>c|7;tWfw*FvD40qAIb
zxD(C6kxsq~sb2qp>Ko8NlZ64OnPj10Xa*{m6f6z(j1AC+<{XPlGE<8{O-$3mLY!ep
z{ffsN($s*v(9%fH!h`}BQoqKrw9o^c$pdqtkr{ZMKejM*%`8sMD=taR%masGaVgGl
zq*;vvcO|68q0E&ut8UCd%QB2D6bubOD|;2pE%hwX(_>I3sC)!%ch4)r6^!6h9jRJ8
z8XA~`C-UJAG_oY$byTlq42_`!+OXh*WEO0}7hC{pndgAgp;-pbmO1zkOzH+8bT|hV
zfJR0Jpaum6PNaIx0vay?E!Z;y4X1!6>>z^`W}x*5XdUnJ#2lP$Tkw%rR1G^*V{`Br
z9o%827NBVXk{w3%A`rCV9<-Cl)EHDLn<$uomm@2fni%Vuq7Bx$mzHFJyVq4XD`M~&
zs#Fa)6JrDL;49pHriP%l0=e#^da-9>Y7Uuzg@&K0F}NFu&3&19X*swCVIdpZsTy*o
z&?Ta<kTW#}kDrk4GOCw##)f8kpc6h!jSL|Re@#F$0Scg?Gek>spfJNV3JcltPt`Cp
zHZcdg2<|e_3ONfhTt@Yh&Dg{U+*1M#c7mELCWdC9`8!a7XM{Ey1`0FW>5S@4WfLPq
z@KhMwWhO@8g>nX#dZf9G>P=)56Ht#AGN=v?GjqHy!=28k-ZVBbhg1jfFaxc^fefl+
z3p3m<qk4T{Y5<xyM1&cr^e{IA52~ZP%r~<*4?I9<W?qW3IgD`&EX7l=uyPF+cCc~{
zOL`;Dg;cK-VC9>Mg*kY!p|Pn2sG$VfK8!wwS)Q5+9%#kY45r2|GSu-aV>1&-c7-|4
z0=%x3EXPs3W-tW}qMDf~n3$P>hcG~K3z|nUH^CUgfR9;$w&+*j98aajmNK*egw|dr
zrbgh!hsMU{pqUdhV?7hJVHRSYNd3yf5V9)F7`i&l*xXppLc!R~K+hO`4861{C$$*V
zl`yEv#+eAIUS}ACmdKl!D8L*DZiQ0dK<ZZ=24;|~3k^X~J!^v1fzF9VMfo}4-k4!h
z8O|W2dKF@7XbN7L1q(t`V>9r)6P8FO(uq{BON>oHi?U1<K%={$h3du@=6ayPT?;)+
zv}RsZd1f+r?#|da9cNWSjU8xcS=rJEKC}yRAZWFl8E9;mTo+QmDls+&FQEX9LxT2}
zfLv%{0Ujzv@1A)lX5@wE<62P$Iem(%jb#%<3-D4mxZ8{^^~iG?)$0)xb5ro<4I>j%
zNPFG@T*(=MmKvcYJ*WI)@Zv0UT#LjZr*u&@<V+0>!JS69^FW(^O%%v<9@VQ4Q_xWl
zpnL!eJyX!26jtZC=Hz68s}G|>oTDk!*qw%!Z=qGN5olMpfr$d73N|t^!B`nUl>4Y&
zdw@D?ptA$u?gKA%Q^4jx-~9ZdR8akEn1*X*8{~K)swO~Vb8|iL^ad;dLH!T%-ADDB
z!^FTCl0l&EGch&OGcv*Iz<|`E;>={w1d(YG&Z>hN8`n^ipoy6gWIYAUg%-w?xsd8r
z2k7u3&>=>!L<nt5V@rfVrAe82I6Il(OO&ab{9yUl$Ot_D0?oh1#uy_81YAb-iUX8$
z!OLV|F0%wJlTt9k<uu56D9)mf8k_&n(j9bT5oo3yJf;B}eK8^5fk?>?b3wNu@@5~D
z1>0ukT!!F%T|xRmhGwQ*(38(V9AnTuSqcUUAQ>Z5&~4lhj-?3~<QP_zmEG9Za3dCO
z8&YEz2x<Ttnwo?Azh*|J;3CG*!cx!BNWsk5OwSl?VKh>^*&q$)L<=>xgP=JPbo`iw
zi2}@t(1{iboJjTFhmjF<x(XVKMxa&OCRjr;96H1S$|@Gg1-N=h;On)hTFMxKYh9#Z
zv;?nQ#TJajx{>O0yJi-8#-Q8bObpGzB_VWimWh#to)OxFl@q9=Sss#EkdumY)|C1i
zZ45!nFhOVE!5nCAu4iecK&}I+zv0Hv0<^KgL;)6pMxgbfSlySLSX7c)gtMBX{+=5n
z&@c>A*cq7^;0ilJZln6LRU-ov@O*+XsDd*9HLbwy7ZU?hJrlI~gy7QR;_S@46i_SG
zI2-3k8}jZS>MX4_GBp6t6T#hRZU`D_qriz&AIJjb4)7vn(6N1>MRta!pw;olplxz!
zqk&F|8Oez`IiQxRWd+VPcHr}Bsagyg8bP*)fCh>{M>86l7=osrDR3gyYZK4{FwhPg
zm=lc*EcHwju({AVF(;)w6%vZ(nVGmM6AP;MNQ?|kAZZaA(MHCmdPWpEk?M7ck+CIs
zGz%Vz;Ov4u6d_}lpnE~8a0en%+mK2b8oG8C?n1~)Ci0y~yG>u9E(vIPouR1(cv#iM
zLeJ0ub)CF_aY<2THh2ci(iHcCFz`Xn)XmYLxd!O42iT1kpd;iIj45y<)$12fvl@In
z59s(`6VRBd0cd3}Ha7;OrY3<VAwU=5q~e@}0N>?6)nJ6J<c38xY)b@|U?kFs)URGZ
zld;C;3dW$_IVL6whT!2~1!H3~J#)0w7?fC21lnY3VP1rDd5$I3N4gA648Q|Pa0i+h
zf=X_3-ADbJ1$54@kqJBijX-CBSzryo@Wi}yaOIqabImsRa&zjYK_k$>G?M#FKxg5R
z?LO+)DWFMC<nXfu&5L1oUusE7YEfn~c#W8O8tz0$^=bvS@ZH$Z1U%XgS@>>jWU6O~
zHrO9doEwb{K=)!&HKIYwvq3|`u*H*xmPUH!Mhc+blp*{KI`C#^q)`XMieels93um&
z4}BS0nt=yIU@ippUX0Bsa3R$*vxzxm)4hqg8F+Poi6v+nMZv_v3}babd1g*dQhq+J
z+Qi6!>J3ED0t(Q+AeiGo2QHWzk>@z7XJcbfPZYGh*wh$uXr38pW>&$(%vjG7tsZeo
zElST#%mZz?FtaGbwUN@ufa<vzbiy)dpQj1Tjh4os76S!t1Rn!I)m&_BX$jsv33DST
zMOt7F#-hYL&>kQ&!{Q2Dc^G`q1y$V#I%y4@2%%wU3OZ26h<pc9y;*2#0NT}Sq5um(
zQ)5HWo)B!2?2?(B4Lb9|%rLzQX9&_@?h|sbD%^pPRkLI}km^lB_~J4XBS?o7JV>Gd
zT8(6imX*sAb5e^k^YN8~;1gJ=ngl_MK0qgJo50)$I?2F-Z1+*U5;3+g1D_lObDxQ^
z5oqELTlo3q7p0VxrKXgCP98BR#kIJ{2z;UqRRhrk)N2Bb96|%p1a!248P-4~+L2VR
zR6vXLK$|UKAqiSK3d-3=dguu;JTW~VvQ*UEpbXdGwGsG?AgTtVsR3k#3fzT8pcN|E
zqMA4tQh!sDiHR9_6_<&DIV4qDnu1fKp@p6S+Ayq3Sz=BmXbjdM17{F|Ph6sM5E_Cf
zCSVRUH3F@AQ~<60A<KbOuThLGjKIxSV^Gfolx2)e^ehxi49qarg7_waCIIrl%T<g^
zaE)U_?wz7)7=re&fW~RyPBb;7(23NqRY0d2S(qpoTbMu^I0nX`(+of(?-<8Jq-G=S
zgfz*+*+c}N%|+dS1f9i;>`Ks~7A6Xmxsv)d479NgT6GJq3BiLm3dR=37)MxmB_`)5
z73YKZlp0jvnj19&A9zOHkTeEO0+=Yk-Dqm0X9kLXvfYTh&>wRpfsrv%e<8@o*nrCj
zd^=W<evpxo1(y+c;~0ozV8R9J1b~+h7#SFG85w{|4A5Evq~qeuNL*uJY{q3|42oxv
z4aO#1Mv#k(LC3}!aT!5wwFPmYXUHMe9~e>N-Ve0NePhV^_@>a)yFjOfgKkALGQ&8w
zD?C3xC9w!R?`D>V>uey<GA;uJswNK5lq#saf;rL1z*Nsd!IXR#;uv;xR)_|TVt`JY
zBy`Ul{3apDopOdoki&LNj3GP83_(W}8=EPZn3(998p02zOf4);1YOalXQ+qkm{B8Y
z+y#Of!|*vl&^1e-L0c13a9L_(fYC7W%g@Rz0$1wBML0V-)VLD_)rFu{2B3r4jA1SW
zUDKvuOtu55-n29}HG~}PWe&Mf3*7oJQ82ME#K<JMxNCB1TnvI5a3+SP;B5gWFn58@
z1|iv9)VLM|&0QwOkme)IU1p%2M_9uP&%S3PYTOEf<}lFC9Z;(b<}gdpokFBL3{(kF
zwTv@10xkP8Q7|z8EeZnFeBh%WK<n$#8$4;LMQKHedC5honR&RT28^h2IS6Xd8Cx1d
z@&MF@Cg9O+1@c`;{YE2f6*1`M0VB{79MH5qXo>~>G)1S<<cyTW4A9~S3*#!BB^@<x
z3qcJ;&~|pveN3Q>OF$)_i3w=FMS&7Gg4z+(O^VR=q9JH|DmWNHNm9Yk!U$uZOmKcl
zW>IE-DX1H0mWyk-vk^6J5J3+|$R=O78%;o4c_?ur)$0rs6Uae)a3`9Yf)3^)=*B`^
zYjHqV*1}s>SemrR>!MLxvB*ao6R`vqwRs9}ks>uisc|6&YJ^&VmVX(WE0`NVTTtfU
zL}zYjhNqEYR)lM@h!Hg|#z1wUA?SuO0~5FljSNAnzsPqW)$=W^oo5C<&kA(F8t4cO
z1v5~&jW+M-oLG=wRh5~Vlamk1y5_04_IenB7gbZWcmd5cg1S^NXMz?;8k<q-OsZ#J
zP$vU)C<N?;6wqQx6AJ}wC!`>kg19anF`~u|8U`q5;e&Q-fsas!9xh{KZlq^KfeVor
z*CVg5qM%!32{|*<%mA`$5OgV)p{1FE8E9LzCAMx6uG4yrsBtj_YVetXPP_rFWic}a
zU%y~z2s$ZW!Pwjs<D?lPn+r798~|Fr3EGzobEB~tXyY^mPNYHC7qVv+v{MC?twG0o
zni`rZ7=v!mGR2HzBRyQVMHqok*T+)Uke>jJK=<5$#*v_>l^7YC>X}>Oa~!TqHjJph
zAHdKMw8R;-R|e8h097cU6I)FzF_t_BWK<RhrIxwqf%<#qrnpX1F{1v38=w%g0IioZ
zhB^{-#4IH)L>hNPE@X%vaB)_MM$N}YCWhcXFlf0cX!^&<%owyn(g=$qBlC;0L33wD
z#aXy!aH+o`0CbEbXr&F@eHNf=9~H=TA83S%s(Hi$G{FptRnR6l(0PcadM3tZ#tNV<
zHKtfHu%RB#LfV4r-C{G)RR_lA3a~{$hK3fPbLg=wQ*tlOE6ISIDrtoClv5+>ZwfFp
zG6Gj0a2Fa|f(`^D--T4~78^nbW8f|XuZhI(Kx3Sz?i$fxM}V0rc<%??ffmNtmU$t?
zut^5a;b#k~x2r)n4uG~c!kh=%27+~^TySD$N`4urL2ZV6?t}(g0ZdK6bGC5znS-YD
zu*5HM?xTK7+T0Yp4*>2yOJh(wm4E|r&M8~qs6ohYCBRmr!FnX1#lx0{pe~7_o+*}Q
zDxM|`4K@H6L1P!%%7<>7Cc7U({pJ6#6+mVtkke~HEkSc51v6931J{V^DdD;RhWrRN
zF@tQ}0&QRg?dvfyGuJaPH&ZYJZI(ACsf~(j**^u2GY6d@X`)~Xz1-UbbkCr%8ThJ3
zV=VPAzSM`K?jYZBpaTd&eN50oL(o2SV^b47Gtk7Afw>;G#(|L@u47A#a4q&H-*Kj<
zkTVF4O+btGKp|+U2bxy}bv+ER=3Cs3!%=IH?>J-7L7bqCjG&{#Kr7bGO!O?kXUQAs
znVFN8=5Q<yCf{+OVQA3aJ5bvhG#qVWY^Vq7n1dRn=2+7lu8Tp9aNVOrzT=ERSJr{<
zFaxcQ0<EsFG}kjXG*d7#23;meTFBw3E6DF{fKHbLEuydlT?}As0iNNtG*d7%Fv48(
zjr&AjW9l#H2Msraaw^<m=AeUWNp~1h{{nN2*%-X~0owh*vupzShCSqU5=0%$fOOBE
zk+~t45%?Ze@Jb2fWfRDE?ZJnru`Zf0HlTXu2JONFU5;#SWC1>N544-Y*wReF+}Iq{
zd4gRQ2cPf9U1l3of91cCDdf&Bb3@2|RG@uiCJG>@8lY_f_Rh~N%PcMdj{%!j;@X^G
zY(VuUA#8^XY_uPA2Z#c;p>$$hh$EkqUkDk2j^QvfQ7{8--v^C<Sek)LNHb7(56g-U
zJTZ)G*+2P?18t!;1s{lI1aA2o8XJL@nJ9pICMH<x7DHS^M#i`n{ZrsNLu2r^C(wo+
zP@BOJv{1*?Ou@*=T+b2_bj7L3ptUesdWN{h%#EpkCyAjcWT6hcFJfp0+I)_sFXCI8
zQ<9jQm<?VHV_u$wW5CE5d{HR0M5NMymJw(m+5|r40jl>*OtAHciFPB^+l3~Ep!Ip6
z+Z|2yKyeIeP=M-a(DA(3+l7X>MvaVVu;$+!GN1rzN`sp>kfD9>2~=pSn2~!VW*NA)
zw;3Das6r@fNPwDPa5tKOu7gmZ#Em$bi4?fe#1gWx4RpaWXw{4<=!_!5ZY;*tc{ets
zdR1a#2D<OcL;)6#p#HHjXrG&fo&~<R#yQPyO#OBLupTnF-wE0%Zvx(I2|9J#1npEE
zl=O((jnrTHZ)|A}K0OoEnF0-?n^+ovMp{8D-%Q90N9r&BHvwIB1r9$$aJ^@0WDGjU
zni4lseZ<<t$Q-f{%D@b=TncperiFsBp}8J<^9v=eapxKEMbcEQVL<5+)K@TuxzW-D
zG$Kcd8*$Vy<d;3hrjUIUhGrJv!C}yLOk*<zLvss^jT8hn*BVoQ;XmlSN^>I<1-Rot
z7dKgu=QyOA1xtqud8s|EI$StT!lO#x%NVIYNuA~qD9k}8dB7KD7+Hb}0c-=Jpd-o>
zlk-8RC|IQ8x@pW9yxyLw`3rPBBPf5tooEW0#=^RGgh(e+eP5}ODQJDEi2~e-kfU#~
zg(8uCFz_A*ss<yhmk1kJ2KN%N4J#AtLL7@9$S<UfpvPsHfzI3q4Oy9hkLNT4UE6|o
zvOS?f3cMeLs=;Su3fWTwcN}O*orwZjj-z_h(j0Vdhq1YWi6!J}088)z0N|_R(N4W2
z7;sc?QW_e7u1p5qIRbH;p%G}+zXDl~qx!&vCFr<NP{5g)f{#uBjRk;K&X|~+=oumU
z{_x(lF|Oq{#<=eCprGe(VgPQJnZVoz8iNF#&WOuxxJH$YO>k5j6u1p^**WO$4$yT#
z;Huk5&l2P|Qv(o<WylV9j}_M?9^|_YbR_}k+A||dWAI!l=qxDE6r{0%A!ybBi|cR>
zn&8?ZMuFo%$0vc0yM}ZTj7%&*Qy2<Hrlz=p4%ad&V-u=36b+#p*dXgzEEEhO9T(8)
zG3G{wu#f{EWkXzLYeMyE!Vq+*rG<$C%!x*Zpth|71x`e2G*YKkWn^fs2bvm%JJH+(
z)T+Yj#QdWC^2}858Ry10x7!+1f18*QXlB#|DHtuyK$}D<aU<314l~fzaiDeVpfPx3
z3($?8#zqPj=6c4KsK+WfA%&t@b~>)%Me6Sv1KqD=gycd)@S0LAE_6#RDoQNM1f3dV
zX_SKN)EHyx?;Zm!SON_}m_x(R(9A&30$Ugo>p~or3Hj|lLqpK{|A--4Lv!%p9hPBa
zm(*hDqO>AhOO}jHsXhn++GGN{o&`3{ZD@&WQ5sS1qkiuLdfG3{eMX=y>DWfN5zfoP
zIXy-F`#eB16`<}t+<C^vdRPbG;m$KI#kE=9nEIQ@jEo@@dvNEOg0I@fm-@`ha1L#o
z;;2i=Z!Z`dn}CnNfX(h1o0x$bF$(5}*mpx4=^5f$m|=`->lpd218unjHML-?y}&o7
zf;XVxTJ43$byTlEj6uWMpm|5=axW7j&_oN?p#$7Ijg3ulbUVl|@jwTxBM)hSmK%Up
zP+_^r7>~P<x2RF4-C_bx`-pK2(1~LPCRoD@&rV}wGpbh+CKixP02^Qdois*{!>C?2
zfCl<O6Hlflkc}HApxc#<6hMoqEYZ5&#O-?lEf$CGOQce)LibL>-DnQ#kyGSGs`ooU
zDGih(U~Ys?JYf&VqLO^j35J&DICmZxQ-8-IY}yHQs2ymM7PK(a$V9;ubiJ_&>e<mw
zrNp=pM@>O~sbUOTnr>pE0C%A&B%blRumIN)KgQJGtq5Dj2Xmo`1$YV+TNt`lWEN$n
zK@UhVPr<b{-`I@mm4*p;MKvNAO$|*zb9WRulIk@G><(*KNP_YUDC)7qbzo^~QEE;O
z==f+$i)@^+jcdaq1?dsA2L|LQL(tviu#4PGjSVp7?ud0F)$0{dCI)3@Q>YV742%@8
zIWRaQF(WfYH#jjTwHVZev%ooEWKQ)e26WmPsEGx4qmhN40VsK5h9e2i#L)|(pd|=e
zD+xN_0JK9IR4^Kt=z&)8nSuu05JRa*tN3uY1gXFG)5H*RFr+bPITh#*Vsp?!2L)pz
z6Fnoeb$mqjgQ<Trl!=8A_?#D*8$m}dnwwGNMjUkv`LPT-jSX}Lt&ydH9%v^c=<FWQ
zdLAQ7OVElw*Z?6?EF0mvlgF6)n?OxKn|DC#3(d^I7ps~Y8iVfS0S$GbA6i0eEK|LD
z0UaF;3OUeDM$n-prX~golsFJa)k1z0gU_G=4N#k!f$vf?F){`3?=S+bxyPE3jSO%N
zxKV!ts3~*@4`>hu-0+58Uus~fXNH!MQC5WDUX4cmtD#^`MMDe7Ffgc=F*i~$w6wq|
zY>0Iuj#`C+ST+W2>@`s^GzXn)VWI%)$Qv4(DHwuI^u-#>xQlD*?*lcqfD|vV0dx~X
zL#zY*$iauRO17YWZv}di0Ni=T7NBbev5lP*=R%}O5-iJBkauAcxom}^TN_c1tRZ1*
z0IvOd<fl^j(69yMtY1ST3s5zqU}kBCYqAXI;1{mFdK9?M$V3lxv$&}VWF0hU@ZZGT
zOu-a%z#Z0&Ke$Uu>hIGtG_wRxLYaVE1Dd0?FxE2w?KT5lB9Cw#d~O@}s&?vc(=!B}
z?F!n@1-fCzz(m2&#7NH)w5lC48H%kLfpg{^eD5fhwH_42D>URlr__K?;Q*aX2--7+
z+jTe#AL?(^gC8OR4Lk7ox}}){bRro`*x@d@Eveo>v;>_XjXWV{V5|qq6BcHmMuagI
z*BRm5O<_s(whd?(1<LMoV*@=<^A*$^ur$N!I$SI5O>pfxBR}1lnwWrFT%g@WmS&(W
zm}cOx!@Us-XL(|R>k1k2T?bmj44Tx24fUHE7=d>Znpxr+>Nmnw7K6IkSO+=DcO7Vy
z2HZ=wGytC<0XonYRHB%IE<eZGp268MF)^Ti=hy_)X9t}n3R<fUI!E6URDUUeF1axv
z)pa<UGvtSz326Bu=mHrd(8MNa^}ivcrZBe9Ls|ue+^NGIvq()D<l$=yTnFk}g1YPm
z=HT^EriO-kpq47=xK`|2y78nts+V`54lroo8h$edXkRVpP$V-GkSk&39lVw`#vO7v
zmIYD}a^|2L<`7FfOe~DSJKHQxLEFu-mUg&Zhtv_qY@(VV-xx$>6BT(YE6RoAxX%AZ
z+RAEdY0hN~zOXGwKgiUQ3p_;!+SN*pW!5It--U*8nxF}&ZHD!jKI9IA8O}W`CWbgl
z0rH1y4Pldi@DmR~chFGeMyi(upoLYS7PpzXA!JviktMi>G_x=OH7{Vf4XLEUx$e+}
z`n#t<SGj|>vxDj)5DnTZ3_ktc1mkXijMR)A9D^n%)Za1%Tl)>FvO$$3<PJU1=$J9u
zBqcs~QGc71p($wNzlj29Q!D6HFVF}HX#c;lxgPpC%^s=X1BNY4N^#9#m{5O<6zCpp
zP;(LHKF|tv3fzZd5QqFM3%cACl+a+C(~Zq6^eil}?oJ2YL7te0Yb@4;`rD#FmrsDx
z8g%14Xyh1l;45hM0&Sp<klUzU)PW9Q0mUmU+)RwXcejJu-RRrOAa29eMKPiNZYa=j
zD`<Qe?lu#1JQ0escVdL2r9*yV1C1jfN2rOV1?UPtY=H*NtmbCfxQ+%iLEegm+)gCl
zeW2+QP)iIJaG;T5b2F@AM~wTB+B;NopOGbav<U7#Q%gN#BdqT8&P+<mfn1N5glp#8
z#0W?4nEVigja$Q)nt?XrU_VKM7zcvyfWa~_LxBT9+YQW2;HO3#o11{vEMq(CA~-oS
zF&8xFZDvxAYptjW_4m_(2ChMuw!nhW!~k?<GWia~QDsojConSwU-<>w#{}9oZEk9&
zU}j>fhyAc3V_dU4CdN4W$rMDesRj7>QPA09pt8oq7&OAFU}kKlM@mbD`n%^$j3LLd
z!5wC537T0X*<m<Z#N>w<Y{$Ntp$YhO0nkDaV<QDK&_!uz)htTS0_Xh#Ce+_M2P;?1
z3_yc}CJLbWFeAumFeXMOutqz0Qwgzd#L-tKKOA9;r{HdcES>_LScBJ%xO-^GcV<zi
z1_6y0fmTw3_A`NKQzLWm;k*`R7<XYKha;}BX%pmYyQt$rQ)AFx91{h&3r#^we-w<!
zbs?@@bri%ibWsv$HXAgyZ(;yBKp0e$kaaSH39j9B<hv0x0}qN{xEoCj^gv;1g0Wd2
zIhyed7EphS9q6V=@S#bDphh5QH4@|~L(tv>3#^Ag8spl<W<vcvcA)jtpaFD4&<Wq5
zflV_*&|ygmpqs_aNOc`j?*q%g7xMl#d;?!NZVE9mG~+S>pNA8qAA~f(WrQ*ZYYab=
z4RLLV3H3KK8Je1bPltfD4Gb+Uux@Y;PRvV5N-atUo&If_g6l9R6YB3}GBPj*uR4M`
z(8$P?A_r1^Jt2IY4_X@=LdW?C)yBAM5gKe~0yz@2cpm0P3(ziE!Yu|oZp6_JB)^qv
z2)f}Fv~<+S7(9m!I;k9TB9;;8P*PZv0co5McPkawjwbS5X9T)m2g!AyaX!$2pP<^$
z2z&8@b6lPJ8=4G_Ou@?tEzR{TER5k>ctJsGY>K*V65nVauANNeS8IlrkR~e3VW5q>
zpcO|3W_lz!jOuMa&}9OkMUAj6l165ro;tQYlF0Qf&SsS<)rSs@K>LS5r`AFDaDoz?
zDb|g!#5s`aBL}dJy0A@jhTs+pmOXUH?!(hyq5jq;Llel|$8Z;#f!od$I1xwXL4L6U
z8ifRpN<z;;1zlcm0UE)=c@C-x&T&aIst+6(n;C+SG=mLafyQ@1MY6e(DX49QrAWr(
zI;vL~rY4{}F+tmLAXC_&ZZPQdYEx4S&?<CnuEVvU$b|a$v4M_(1D$Yd3R*V^I{FWE
zR669+UG#g_iOnF?A4o8^1TQ{;yV1-HbY=l)9R;~=#4!X-ehvZ6Z-CnMplhW-ImOrl
zvQPnZu{rjI3MRN?nd;RDY$yhN%!mbO`3`u1*BEp^mkH_)F=Atx>NN>$C<e5CA5`Um
zhGNW(6pRfF^epfV#o%uIQU5A7*bNd!p!=RdJ4!&uqgp5!nVR6gG84BOslT_$1Ujn)
zccY1k9(c_>`EJBfpOD|)GBGd(?}7lYr3Rg@4mwxQM8VQf&)C2Oe)2o!up6Fm#8In|
z??zJt$eqhDH-h%FS(;JgMx?q0OMe}CYZ1Qwx+NEQ8a_xr$k2?a)hS5l{^9D>qpVs%
z?co!@%G!hm*OHk*M(yC;YS77`SUc9m$r*{+sW?|Im{YxB30t`U8+V7ST);N$PQYo@
z--%*wsb^>gx=qUnw29S3!O#HbTt#q6ejaE#&(bm-*Bz@S)Zd0;XaHJdWTF5IJ40gw
z&}CZK0*@#MQa$s7F3124B7!b!0UfXc>ed*7?rJf|xHOW88C&Y_LV+bdQxiy!8j|=-
zP0jSsTSUY-4{02cI)m-zpkAu6xdP02pu3TcL1zzOx{t{A1`Tc_19h-KyFsBr2wG7C
z+8{x`6RF;)gpaaA*O?lbo9P*vnkkqXn1gQT!Pa%ab<&;*uKUQyZ}P&%noOX3$-sF8
zbkZK^3I)XZ|41WYhByb>EpRj^$#)(2Xn4^1iJ%iGL5GQ%>lvAw87qL!>o6zPbvP;y
z@?B>L8sP*rAVE79O(4t6Ag4PTgLV;NiCLUGB}{0rx5?BPJQHsMbDbG@242Agv?CAe
zg-du`hokXGe%OHq=Rh3<6JrB#w-9uJC1|Gvcp@D8igld1f(Cn=j0_-QX9&4S6*S%i
zx`PaKUN};^gRi>AIsA%iYZLh`T3DrKWDGjJ)<gj`m<ZnKWQuY3I)TGjO>pgOqQG&W
zvqM2g>%tso2|D*w0d)DbsR3#im7wErj6jf|<P1$94Jp|8u%Q{`A{IkX9|4i%h=^3G
z*AbwD(m{7$z(x;2)fjka4ty3Dd?h{HX}DMUgBPt+by1XwxdHf;Q_#_!;0@)V>&J`~
zKvPfXo8FO|0p?YuxE3Jex`mAVbZ2U8u4fF|gJ=vI!3GVDfbI*Y$c;#~1!gzT6nS%2
zkdcuEmyr>u@&k3}koO(n+G>E*nImFS7VAY>rUq1R@EL+mcLD7SGX|aS4BESGqGzUH
zYGS5mgf?~qI-51W+{)0>!lD9KkHgdeM-C=GnnBqFv_;Gm=0M0viR8NwM@A;!g`gQ^
z&<G;Tg`nmXXo)_7FwDS_RZOXW;TXKr0XmulH0NUiTH|ACY@%n5Rzf33GHwTgl08++
z8*|VV5}<Ae)PaVUMxdcDY%UB*tt>81%uC5kEdr%Q<Ekp0;fR!-sna_$v;-ZB4!Tqc
zG%{zR0NOeNnzO|cki<I^*X?5zBuFF3x$>aZ%Akd#pmXLeEEKSXW_V&=3h3}5OXE^p
zMYk!g3&<#NpsAT2_@E7FbQ_t2igNNDNcB+!bI`UxP<jNN0}X2BLvA$(U1wvAmSfy<
z67v$%6Z1f~N*iaE<4TOw-~R<(cm$dffVt7cL=VI@GS(y4jnuDQ%t7aznJAb--DqTB
zu7E8Nol}$ZOG+|98QQ!U*Xndr>fb{K>yg0SXKbtoD!Q?RA(2j`e(eG}JsmXK0SiJi
zP;&=sC=!*KsXj#oT1WueFa!@nNc$gKG!x}Os#h+cHb3Y-8WYf^(x8JOEG$7+3W8Rt
zqhIdjoROK72+7H~Zb&l)kKt3b_5+<h51M*}Inc<^473oOTnAErPo0sG5qQ=I?m*C$
z$z}@J9Ee;Tnk3<@n`yAG4%B4<T^|9BWl$>&w8PunTn{~#iFG5@s})!~40I+gXzm_#
z){lt-=rRuUgI$q(Rk&|GG^PF)J4?`oZJ^ONQ&UI}&=54>PmvpO)GFk6>OqSQO^nSI
zj4jN-J9f>C^(;UmgrMz!*sm4GHGFA`Yp)&oj<Yb=voJ6=S1>YwjMZ3zZxuIIFfs&h
zl*ckah}&^guS`J0`QW|ImU<>8#uf@jX6D!qb@xq7&r8e$U(02jl!B{CL;dY`M&^d#
zb|HL7!~%4CGX*ZBdR<~-X%5~JV`d53B?jsVfR1BRFgGyOGc-Wmc0x>LXGHZb3aF6}
zn*V}3(9~4V+=y%kQh&c4XdOMMQvy5k#l+GGbk3O>=!j1X)Zs#Zb&tfn9Pqi!=0=q`
zn}yWhaR<8d%FM(>0p>=~f+f%fC<@$2^|}PMq6K#Mnz5M?=!!^ex34+orKA=WL&DK8
zB^OtIroq-bGssR3xEn1%(~Am}xDiKXLVjNqRB3?fVwf9EK$l?~VRfTZVo?(0t`Or)
zT$f##8dH4)47_F&w7A{`vR}}|6np|HwooL_g;cLrK!^Q+hKXTe2wJpmV1YFZT@sUu
z^2>`Mw|1LW=HX0?RPU#l8e4#8o#2jy>?6Y#j6^$<>h%k3Egfvx4Cr)o6YM)?ToTJN
zQ$V@e$iToP1Lt5J^*7`hgC-S0do4j*xh+h<%`gj!+(?5hd7uluKzRo0M$kHF&=n$B
z?tO$@5o2g+Zh-SVS5q47$1}2kwp}5Mj6u~Ru0RCeP(;9iRIgu5OfA4iW5H4)==yFm
z?6K@tnw1G2yD`eeb%~8Bt_^wQ7u=xL3!rfam;+4>EI?=KW4k?*C<ju#W-&E{TrdrH
zAmmtKYz{<e>ELYWAnyyL&VV+&xPh)W11;SJ=WNWq@kBb2>U9g~?r_j?`mhyeCZJ>Q
zEU<3hM{y#qErh1jzxEDvK@m75LPHUhRY0vrEGG;Q=|t++E0&;j<0cBGphK-dqa?=0
zpo2n8Ee$YM5R@h6q!wl7C*|kkY~xUWn<!`r2xu}F?mjc{!bdXQhijK8`MrAhUJx@2
z@PRAvy&&e;4-GcfGd020v@xan!Wv^!OYrtQP|FZ><`w9UDl_o0yhfm9XIRD@aBX2Q
z#kDt-{Gc;7hOBf1t@;6-zhP`*u4iU$rU1Iu2;0s^V?9%xBO<0q3$c+)K=NG&%B!HR
z9?W&%6G;upbRCW=gnZY*lAW;;^aN5<OVD0b1!E%%&>3|Y5sNq3QN3dV>w>~&0E|t*
zx2S`b7n+-(b>(w%^Fib4W~n$Es?^^c3aUClg$mq#=Aa9;6v%ZSjvfj5u?xBp8q{rq
zxzEJH3^b6bU<A6f1IwOY(A*TxLIp>aLB8uir<Z`%CxK><L96zRO%3!w2f2VQrbk*2
z2VW&>sE6y|FjMeRnpmbxC~%y)IrvCkxZ^A=^+1dDa5)Y%_KGX$aBU2wz;(u!dZ2RH
z(A-cD)OG<SL{NEb2wGlk3g0FJ4?29=7Wv{kEQ^wmH)RsJ_XK&d63R9dQ!YdB9cQ2w
zO=hGmW1{wXsixH5UIn_e7Buh(x+u{CbfJr}sh$P67DAscCu$LlIgVPK{0@zgi6Qt_
zPPhZjj6s(&f$B-}TuAjkA$Z*>Xs@Xe=ztp&1<)KDw5~*VVR%MnNeO5^-=qNN1cEt^
z+MN6#gio*;n(Kk4d?C9lKr47H(Uxrx<vyy{=b#nOpi_82+vq^<Gcq>R1D%uxI-SQ7
z>)LjlO(9%&MUh`>8JR#25;p)X;57knjx+~t3otasx*Ho`sb!9%A4q}gpa*2YgATM=
z0k7-KaMnlEza`2L)B*>Mg_(d>vY99t85n|QHH=LyFwR#Za`u@9Tk=3_o{`;X3|c0p
zK#3cvK79pR;SQRhG=_yED3;Bzx)FJb9QVRwQ|fQhgB3EypnKUt$IpUSQ-ZoRMtDy9
z!skTlS0$iJi9u`f&CI~F_@MnrhDHjYZAg}AEpz1LXk3JI)Wm`&l?k{WhPlxae0?4z
zZlqa#Vq|IxZpeXdkq6D1o9daO1*1Q-gJYV7v$~`HolzFXdPbmy5HRO~c4t}|DHxfN
z=RT@;5J6|98GxEv(BLx!bs?~aA98NSv)~2!+A8D$0P>p*pd;$R$q?p73nS1HKx|=1
ztQ&E36e(~c=zwd`YzA!EhJgvFb^+~!G(<gp$t|%cF+VR8+|^F2z}4fywP}xh7aD;E
z-;rHtWTt0?ZQ%xy4#ZKhkl%a&?H&XrMc7d@CZLMN5OkC?_M>L-HEyWCZ_fm@5ZVH<
z;K0P#3_Q+*`yL#e`}Rz!e<zu#p*i@N9@q^Drl3=&EzJ~g-;iL0v)M}heS4soMHzj!
z1fBh5reFp-5C_XBijkfXu4A@Lac$kBAl-q^gaS>efcA}o*CRp(D$I<G^spUjX{=|4
zJM5_59|2vF4&J%~+SU)+)oN)3zNH6rp(wVMbjEsSI7g1De=8X%kAfS6mXKqjz%zWH
zkz)e`<a=<ChEdFL$1K%5B*vhtH%&m(-v)Z%aRoyI&<<b)V+#vCQ!IOJjrH)j4o8(i
ze!4RToor)dq5!-27c?aR+FfXDWP~H^OmS^!HN~}ek9^mG4uk?#x-i#)P8|kyHF3KR
zPr5^@D=-Jh%usjj85?jJf!DNwF7`p$!iRJ?3-SON(lD5*nFW_A_-^<h{UAf+!&gns
z%(zU=Kq)LpKM2P@KisznAx>h&y6F#e{{WRQHiK=qf}JQ2y5G#y%vizP&;)du6DiXQ
zX1I3zk)Jp~7dL_io?)&tG&RvPHZ{ZNI$TAjnE@zLs5<g&2wN8cyVA(a5`4`huBzHt
z&lFdoWQJ>}9|d7&3>q^uQGhLS0_}e`G&EB%Gd0IL6NqQB&CG!6QwoL#M&NOA*eoyT
zFa^-?m#GEz6ZP;^H)hDUgCX|>C<r?<(3lNkjvRE2F=$Q!kLz&8EUry`<hu^EejGHX
zU<#dq2HhJ3no}^vIRkBm>+l3KTs!(Ga2@n47TCElMyBSV``{EzLAR$P_Sq9tRht>&
z7;2!vb<nXxxa&ZTe@oDrF(#l{BP`_|p0L9)$Uwg93@srC5`&g*gN}~}?HmA|f@uo6
znFPyh5onz+j-H(v^{;S)ZMFdIQUMKFo11|aj+mI6>Y)#*6FA+$jQZR6EDRxgEnsc~
zl`o(nVR9Tt^@_sS%pAPl6c(+<=9b`U40p8RJa5{}kOu8TNUIfe^ChVF1X?~0K5yF4
z66*;?_=;j&x89MTB|sa^z-?+!#Q^O!fm{db5n$^z;px+v;o7f9zUz!Zt4Kj@YYWIh
zgP^uHs3<nJG)4})w9NF<qEtOx_oJDC+o4$6CghL87=vbREKC#(jg7$_c4N>T@@5L4
znNLFl3s^CSc{(G`g|BAR-&+A%VhCFF0C%Gqc<(nQZbYgtuyg>Bw>6+1+hJy8!DR+J
z!^6nHgbP&q8Yl$m2bmd}ahZXyI|KC-42-yp3_zBE+Wm;mftisBmzfc$PY%{$#ARj#
zRb*ylz-0#Bh6&Pv+*3e0`2*$TM&$W(g4Z;FP6))>BOpKJSb}y5fi}Dw8G>&^0A1T)
zY^DHO$d5j=i#!U7ds4%U`d8H$f=-Jz0PVSgy3xW&&zv$hB6S^++mIB5qp_Z)5ol{7
zX#5j&aDb5|=t4WtR1x}78_3~^d&Jv}`fKA2LB~~qiZ7TO%|Q2wQQ|}#^H=1Tu%P)W
z&@MJ3BV+J}K+uvcQ27s<FSkUDt-#MlGQzdk(hS!%HRMMzXw1w2v<SigbXX_oni^22
zM!^JBaiZOh<(iR`S_C>?!^|uZ*R+rs^;gEjPDV0;xzH4RG7|YN1eI~rt*9)_!5hkr
zLF+U?m+4p->6s`P8=32&Pft4MBo<|ZcDWc@T3S}(y86+K`b*<M+Y7*hk5DIq1|Q8V
zC~_l?CMNkw5p>%w=->cYFoIVlV|AiyPEIB$AzB#Y+Ff8q{dMuM-37)5X5iUVP}L7A
zcR>3h(56p`aUYK12=apuw89az_80Cx$o*^}XQNN=BHV{-hTM$$i{cUMYa!#`#^x4!
zX5iJKhG?sqf=lvK)4>NKS(+5$+Jj?;Ygs%6A!q?P-vzXB8x)eD#W@tY5Jycyz6(Ly
zIYHf4&>0&b+SJezG<6E<W25(9eG?OlN>cMc*~HSM0B1boS|Lxq8(}*W;ckTNOr*q(
zI0h-mcOxiMfaXsPEll)4H0X{yGX>D~JLrczh9p+z<b%%UvNTPp#5GQV>jEY69cW?*
zJ-`m;Kw~q|$<*Y#km{=;Ks5+x0|e|421sdbXkmnL1wl||K|zj{p{1p1Qaa8Mq<U=v
zk76^(I4Jlga0SpBW>d6{`9!%7$B+g2F>GuOTCWB<au+lb3YsJbHL<bW><(`=7#SEC
z7AE5iL#kIPCML$<b?LC%-9ZQO8d)e9Qs73a_fbHHdx9pF;BK@u1ofi`xzV@;XT^eR
z1wHw3ZDMS$2b!3+G}1E$btO$f*Ss1jfCl(1&>Go9#x?Rfdg}D`OrewJa5owo=vi1$
z<VMi=0aY8?u&w~yjgYPYp>V_(*GN?hmeCgEi;nQ^M?egtpv<J=m^>vsBm$n7rE1U_
znwx?L(O}b%pu-*wEU;c(PTU$wGwNS!13H)sw7~@KMiUEAR>pQWIFW9o!M+Ov18|E0
zw4@ib8w)gnYGeUk(rb=ZuLKvQ7Nw`=fLE_&;A}fkf9D10gg9_N%ESV4q_73}gbmQj
zXfmBh^^6QUrUX=I!;YjeF*5+~cE@rg4RV2Ko`kdVqyFv-&@>FFVurgBw4cpH0o&0&
z#JUm3$OHK!OQ7xJpq`4EnE|*@3Ob4nv>Vk7G_8ttvJKaQCo}5rzyM8qfVPK#X751(
z2^wkwJI>S`v@8oYfDfNVHPJK2wZ{RZjml%hu<j_R-UHRmpcXgiP75OgJ@o6$UGj6%
z^UFZ_*th`KDpWJ-@4^6$aDiL~ccBUBoLL1^vRz31_Mxc(WCetQCAfV9TD)imy0s58
z43SsL7UM1qsoy-bfF2b9bs}i37Whn5a-E242L}0>7*v&jsy!1+(2*Y|3ZSW0&<Y{Y
z^(shr_92FcaV>2#!*xRv1#UAo1IMs2XeADGw+(2G3+TQ^Q!E9HiJm#m)l0ZGU6AiO
z_=a+*>%e_bV>1P^T!+*WL~c=&?>b`>Xj8$+5E6!_hI*EkW(vl}2Dr*U++l~*KgQBd
zMZQ%BwVi5aVZsF}e8CfesK@*x)(E1^78;>U5E8R<7T0ZVIHv)Lzst>x`s=?zvoE08
zcys6_vfyo>mSzg(I4+Sj(X+rg>5XgsH~C#fLt`WG4fCKIzd#4Mfwm$TSSXm9fhH4B
zk7RUCEXc2_%1q740Ut(ST!QO_6Ej>3!O3?f=%{IM-DGMG*^*@p-ortmGjX(!$akip
zsUf(vZUVh69dx+?XvwvqxgO@Ab7E0`Qf6Lpb|q+|uR%#Fu5lJzOT)=`CMc3Y%{aI-
zjVwW%xhZocQi*|Fo{{fLLt|5Lf5O<@2uwq-H82KET%&b;oD++R@^iplALDYIwLSH3
zdI4Q&02-8pInl__0<`Iz0w+?v%>-M41{#k9In~e*v|dgD)Ce#}n?@os6sg{3GBmUR
zZ{3GG5nPdx??iLtRqNDAix!}}%0cH6n;St^c$gT1CzCL53m_^G%?+qNRbyxZI`-T|
z!3gF;GYjxkjRo0G#L){Uzky<Iq-P3RePd(@IUO4msK#c-3ZQigmRK8iIBP<41FAQl
zOhC)`%}f-`%s@MmO%y<LU!ZkqW*}!{Jzc;M*JbbK)W2y6ygCkaK?Uf30MPmgBXd2_
zfr196dKPH=rU@TGW{zvy0r`cs3Ha^@69rS4`%EoCCnuYc={~AgCZHv^pp}}S*+S3^
zoT;%fXt>$b!~)|8H|NBn9Oy1k(@b1<HJRhueL#K?f}950xdEcVPBgXD1C0=n??kFs
zCa_5^(2>sI281DKsiXpEoE*J<<Ck9sYbjb3;aWCfj%yzR`JrfH2t8xY$P7FH4LSe@
zG)4fLLqePPC(en~-;4ko3Id(10*Y{BV?)qxMg<elC0$s{L7bgjbLwwKFa}Lvf>sS1
zK~`WJn;V1nypiWR9CZl!(Q9l0DpyPtK!-ws2Qkb{LHG869F4x}q_8wGuLM_D%AERF
z3c(H}gFDR<v~Wj(45v}OUt($iYQG>t4YUUtwE5D^5aTF@;F8pw9MIL+<`(6+?qf2i
z{$>PFp$E<jpdJ*co`V#A*aD9@7gD_jft7v6#-L)^L;=)VHBtbb>t=v9r;2c(Svsx>
z1an-Q5-7+Tpeyr0V`eZ1T7stFaJaB2KQ}WEvgpaeBn8(&;^w$ECy?(-69dpiTcF^B
z1fz)&=ztmnJ<LEP)`?W_kATWy&|-F2Oq+ra?7|w5p(UA>iMfeZhL&bV#W+I|yqKM;
z)2s080*!0XNTezDfF#n1RPT_$^NW!Mcoi~ej|?c<E%eOL@(Z}2#x)gV4&D|()xZPo
z<_4{11Dyj3x=7F1!dwqDOiHrLaP&ba$Q<UNMfsq8=a9w=Xa@l(T8%KrkK9s=iV}+;
z%Tg_HUgHRw52Nx#7Ch-0Lfr^0sVQ(H)fbDw(;n#1E>J~h4!TN1!5Fm44XqLAk(rm0
zSPnXX-O@A}*Da3b;N2|LO@tOE;0v=syN*D^!=S~Vpuu|bok;a1V<v`1;L%LD6CsNN
zv4tY+04Llh)S8303Q;u(Vavtf?lUt1UE)Hn`*74F<d1h4o122i)<K((LHjX4XIq$<
zn<;?Sofu=;hk<)M0oP_X^4$hHsTtIRgSid77#^S7a7`7N(_)jGfgY%@4&Hum209}I
zbZwM^p{cQ+nK9~#O~HwICHcjmsdDoqTnp^Xjj7)Y0WBOcGf{xK(8SOXv{8wC7gD_@
zF*Ps%U$q6hx*gO&Fas^G10C;!8ioO>MX6OzsYU5InTcs>;0qkh@^FrO7*oA-Vr&Fi
z1`oQ=&%oG10lLw_5_Fuiks)l^26*2kiB3hTS1>0r&5e<|2&j{oxaKVl&4@bWmzV=h
zP}bxTKR;<s{S9qKMuw2PRLntX*hIm|476)Z!3?xL9Ic^7+$uP8>fiTbWCmK9XQBW)
zLko18wh?HQ5p>{}p&t5zR$|>q^)kWIT+aY>oFM2*B+yhPXl503`4H%4O|;A4eZWV|
zStRA+92cYhwl+g!$m%?}^Fa5hSSXm0=RB$x0_LE5d5z5#%nU&jyP%TQ5;Q(*W@Ms=
zzJA^@Cnq%*bcZ>p*f&YW9fnBRpE|QZpwkXPEo!(U&CMuwBvK(nB}amG1A<P&gN7t{
zve!a^U`U$c-1=lr{mpGgAjg3wTR^lC{48v&j?7Igs!A`-%r6D!8q=ym924c{CR88q
zh8<RGW&k<d8FC`FnW3?sA=(VIBk``p(at2l*JuISH37;yP*;MIDd;vVEY9>z%}WPm
z8{;Hgi#N=vzt7Fk408S}EEEkb%=EyA`e6nmG47-KNCjx;7-+l)<~~r3NFe-7D${VK
zLhA2uGXiam09}a$jb9^EBL!?}5EghQ<+%1end7<whWx~5WM%+fiwO@rOEWzatj<H;
zvTvG<Ye%;^^*6V{a<QqUA-F$gZmDOaU}j*bXJ&@F!iiWHQoUlaFwipx9ee<Dp#^y5
zEkP${;2f`@{&g^xhI%HTo0(xwGz6V>fi)Dv@^f-Ble59aOd`%H1XHRHR~Q<BT410l
zXh<|0f=)rF#DzGj6Y@LV=7xHfpal@1$!E}Z1kh$n&;kfk6GPA`c(ASx@(OjFOAM%g
zD~vhlBnI#)CPv`J{jlX3rp5-K)5x&74(FgPu03t!hn=CJ8F=N5sUc(yxFP5YNYE){
zhL%`Yw;Ji;Jml9L*KRfnTxV(lKE@R8I&;Wzrl1Ye23U{L#p61vcTGSGY(RrOpqrUN
z1Kyw|s3r=ab^ho>@vtfcPy4`(`ePNwdIq4P1$1bHxtWOqq?H9)o^FKJ0VT$H)bE;D
zLOOOZ=Yh^$G_g>?=021P1b68Sz9)#PL!pL-mf&@<a5tKOnp_mQ5l6>_{5%30Sb&Ul
zL)NJqnVW)-`~_`>H^sWZ%E$m$Bg+g&?LmR-3@yO70D=Z-L3st#=mKp6GPcBiN1=(H
z1+IM&=D4;~Qs6r18H}LYgCPSTX5g>`EzZDpofux%;pl)+;5q}yg+WGUM&PMFBST9)
zV@opyBXa}fBi-Qj8feKmu9&647D__{@Ljw{hM>b2K|>3m8+sIsKv$Kc_2P)kzckoG
z3A)<>bk_sSjpk;cg~XJ&5l1aTK`fh^fXf*07F3X1L069$n<*HYndy<5261hlq`-9s
zM&L!n76y72CdL*Dpb-WOV>1QNek?;XV~o}d-ZY4#4xzwx;5rSon^VsO>^e{jA9R6&
zxt_Tt7T1~RS>i1FaP6EVzYhm$7l0;QK$k09n1IfR1Kq%<U}kEehkkw?agBRi7g&++
zM9?{)pgA<S6HP&9?or}Is@EW(!$3jJ7f{z6w3Nxz$QZn=&kWR4!g7i)-Z-Xu-vcyR
z3aU9w%`L&Ld(hTh(1nzy7UrOfDKYW~Uf1EMLCB9@_>xFV$jKGPmPUGJpeCw?9{TQB
zBHDns_DoXXK1*{wP~4h8-3MA_YH6eZI+TVS_fdTa%ftwDbfSp@+<l;(vUr_`X9Nq^
z#!2#n50uzI9bUNe%*{Y2E#M12JcC#kRPTY9Sbz?3K?EP@&KB&ki_${CJ%~m9+p0{B
zAiJPoK?q*CPMI62K8$5*3TfHH-DnEh=z%pEqJ$&vo)YzMtTF+$T0k2pOpU;24S{;-
zhDHh|W=0qjO~EBZZqYMG-VaNiSsYU%$TCS2m@`exD0L%_DusevZDFPds*_EOEWzWd
zpfv_2Cg4k9(MMKcg*LuYhX$1js1a?VU;?^<3A8X4d_|`M=!RHBw5@MMxDVI8Rpf^s
zXb&EE4Li(z7N9$-vAPc>yWlQ%aP3~Ez>T1*p+VUN>PFD96-E>}5l6p-d?$jk3g}2#
zW6)MNP@@4fvu&aP+A)Q`IDpt-q<RGdUyukM0ycrIaRF@<H9;HWBG!#K`Y05Hqk$Q?
ze+L?u0nKuQva^wb5vZqv)=hRSF3C(S0uAt+7UG<ZrT(^MSRjJVHwMkuK~~^{?teE!
z+X6?N196OSkspG_CZ^yuop1+QT7X)y*jxy@B|8(maLqUccM#&}qmb`H69aSbC>P9y
zpt2CO>d)K+<ECBWTuA*&#Tc~M53~%)1X8JhuFC@rC1JYIEi)&xpdd9bJ0En~qeV#>
zt}!J`s#h(rMbNNt1mzV|%3Ntd{awrO3}b2pPM4sC@1Top&5ZTXFWdFb%P#<BXyZ&=
z+vhE)zh@aVdI{<&8^PRXX#(2u2p%X#%hANRkLopxi2>xyOqlyXn@9~nH?U%cUqEV6
zPHt&Q3FH`I^D11+11xZDT&5sTTY!#v1l>3eiDgp*a5Dm1C=%~V>enuYpd;6iTxklL
zg~#T|pv=@_@G-&`$+(UYwxIq7W_VsPF$6C@hE^`7hI-~`ZAGHoN0Yh*bn}N1%zb9&
zdZ4t3&w-XD890hW3+iuQ2Ca4n9Rmn=AZX&mOu-1J1C0y}O!A6wI*|G`3urI8fr$dl
zfhK04F&(T93{K9-%}gl)S1Xmc)|Fe(VDmEQIx;gPCt5-daljIW#5oby=4J9r8&d<w
zJUlEEK{cNd)<6u&&nv0~*C|!F)+1Tq+P+M_`{4N)bfyic(`Rh1XQW_cVxWh9+zC<c
zqkf%YYyoc9fNu8&jk%i|gO*<_7#f*k6f{nWxk=#V_!e2X7P(qbe;YHbX#;m4WPcag
z4y1Zb0*hfo1JFq}CJLY(r6vlXS$Xv30)F{fnML4LqvnY?b20VzGJ|do0Zk#p9cT=i
zc%;CERIf}-Obo#zH*gn1ibDKhXpx6&&8P+SH#3`<LGFivyAX7qumzzoOvcrfvY^36
zW^;4YFtjix<h)Yc&ZBw{1#~thXvP8_fS|>XgaXha4QCW1?_tK=Ok-h$G^K&MnTFC6
z0STXVjq5x>Ba}@xh>L>l?6^|%Qb6l(ER3i=1`giV30g&GZlVXe0SCGm+tk8D&(Z>Q
zxv5i8etvdZW@=6fsFpO##hE&&zxxz)ivs90FjJT-EkPGkC{X4~s*hF}LD%}hTnSpY
z1{&bQ5|++6nQ0~Yd7ywaO~iH4kp=blpu*P{n}HUwnJ9qQ7Mq$I>zSafEhf@|R4)fC
zO(BcxOrZ`mGy#pTC}4A<Ygu9*cu2}T8E3x%*G^RO8*GMVpzf-P0^EV1b*C2OI}oWL
zqRv!|k%0kt%nas0P%1RR>OSv0(Ag>Afl-sJDqKAq>TgGdCqh$0uuH*<O%zPcjPwjJ
zhEa%eA=SsfEes(y`<X&rXb9TuiPeQZiMdIciN&d)oNR`3Xw-uG+fYGgIf5JHP$z<J
zEC8*A!4itZx{>OY3+UQv(8xC|7(q$V&<txh`Xy#3=9U(L`wymtxi}Le)!UZv#0WaY
z(E_%b7c@0&YJyt-5$i;%*DIh)=Rw;oj4h#S$xT2T&J{qzeTHa*J&w7cra}%l7|qIY
zozZGRgZny74Zx?K!rf?Yre|tIksGOAw-}m3FCv76Bltoy!fwpQS-ntydo$<?E6}<p
zSU4J)fmeTGi)*6WV>H;{Y;FqPt`B#mCC=C;-j!4zyMSeF&}H19q7t+R!@@!Vd?p)O
zzCk-I+AIZUn~WA)oh`vlZ@4qfOhHGXQs_*ok7IzY$N}{bV9o@Mh2scK#6X5wI_|tf
z{p!XXbfAif0^Eg=ZTHv$k~kMqy|Mw_@&`(Z#^3=A(CN1Zprf43E%eaGf}9hJ$`W%j
zz(<!`B;u?OX|UB9mbGC{gk){db(G|~k?KR^@QiJ01}=syO+dH*fu;-5S5UYmf`@d?
z({T>zQvW7TLj%ak6vj~3fr=di(7hFAn5RDwbRG@1H-nB)0FN{q>w%6H10C-J;+h!i
zp<j|oOb^SH`W+Y}3-FR((4`t+2bx%d_Fsc8a3#xuRIgVIO&~|a!RA?wj6g>)gHIws
zpQlEvS4^{UZGp9*!B%Hu6L6CZ?o2a7O5I5HN(Hp#20Tp&ol*z&5KN7TaVDNB+LY=w
z3#`C_%_4z1UnZc*Va(~)l+>I==c3Xom;BtMqRc9Azc3AFYl8Y4pFwvxfYvU<oC->u
zpd~X{=Hy6pD%JZnpbOrSr(i*mZ-{*g)-AC#Cp!<ah|8=L=RCV9&8iwB==>aHtODEo
z9I;NMdbb8V00lbiAL>N#Ri9X=5Mk9#Db7VRxHdvlFkS|_H^#z50TzIu@iQ|Ea-B!@
z$_94W2i$q);F}V#%)i0{4|h|-jQTYVY^@A5YC)?LK*b{#=XsQZiW>6*oJ9@wH$ubr
zPr_Vh0Y0`8Tjn6_I_g&~prf}zixXh3vor%8w}{7exF-y$zXKXxqZoq146@79*hs+$
zbapS=3R~aOoRY-c#BA`)uxS;}nPD@kcUKHS+j2m87v@OF0a6q>lIpdHA?V~cBu9dp
z6rdxTu!JO0y*^yKp~)`-K`WF&V>+PgcEB{GONA{MiE|;<s}Oi<G=SX7Vh-L=2_8~L
zON>YkOu{+5Nc~OG7N9dyKy@6{ffk^{d=&^duo!1!oBBJVEsgbzL1VN=PzM^C7=X5n
zVRK<{KIBj<vs9dAwK?@`5);VuKiqwwBMObMh9EKSqxy`CIcRZ=vAKewi6wYW2((Mv
zz(T<gbaN}(q!6*?p*hv76hm`kh~r?6v;<v5Mv)t--c>O&04=lxRVa{vG=gku!{*4~
z{OtUk{PJQ*&0=1J>x?T4>hF&RH66ffj-VlF1lsp*gf+T}cO})U79&g0?tG-Mgft<D
z2+IPT3scN#)<ppwnF*S0Gc*A2H3yASn4x7I<Sl|m1_tIhcQRU-Q@xHcG=!YC0e7Y`
zsK`{H%$YRUIt?zkL5H=1jwyr;+kwtS1s$P`wy(%JKPMGDyl9+@vn0oL=PdcH31f2;
z@cAIHi?>0Sg&Ue-zj&J%2U5MNF)=U#4=lnQXac&}1FQSO6EpM5i!#$Qz)P3S6LBsZ
zrT!Lb(5?f}E<BhcLA&yBgd*{-q<Vz|i)&NR-N&G9jb@hMi{K3`Fs@NcNe#{~tpZQ{
zny2Ahnq@)t`UZ535NMPZ?nFpzlkY;R_hL-U4D>+Tc1+Dd+q*%#=1ufW6ih8l^(@h5
z_>pemHZ8+-6^;e<cTa;3G(mPD=)N-0t+wPlk?NHU?8FPuRZQR+EK38>puDNECB`~%
z_!<O5OG~3toKsg8RIgz`y9Gi0E0`NWy9Gg)nUn8E>TjYpF)@WCM$jg7(8W<kp#3`v
z*uoKc?!eH}(zpWGg*_J3-$xBwRSyeF(6$NC<$hR#k_2Z`y{dt&tp^=|0a`t5Y;FLW
z2?X7MWQ2Bzxo>Gs4tTelg=J9zuH{A4zX{sd95m`=q5yZHCFtxi1@c`;^*RPrT^k!A
zTnIY+!~k@t5@=Eybp;f1^U=`K0{11*7S!KO4JyS!he5&u5_ATNu@TmQB*B?fuWVrD
zq=_Z;Knz1rV@Sc&z!c+bD$tJQ{BqE3+Ln1ZXEdmP2{h;|AW&X`yU^GYoM*^(A=T>|
z6VT0Ypp!XZVQ6L!s<81n(9$pi=L|pfw^N&d)?9)dXbjn&4%!rDX{KOeVxeb%wvO5{
zDJ3<hJTW6N2|PTXg{$bXr2cklSQ%~tb0uVF6lJcY`UDKD2nXF?3_4xJ*aCDQw~4VC
z##N8-c7>6F0q(VpmIl<XWk6?ygQD9AbVDZSs%7wLUzE6!>f>i7;57&!w?W-#3|cFy
zK+ugi*EU*G|59iZV^CR$>_&6YeG~-Un2Ku+nI-l2RhyWYgU=p-B}Y)h2Nd-L(xZ7^
z363^}r2!4<7}!BU&}&k`dqz!+O!e?B2gc__s*ju*n;L@;m<HWaZe{^G(+Iq66q_5J
z5%*V{r{Ws1w=|%BEd#pf(Fo);NGO_^f|koDP~b%BcWBHZw_?FU5tJB>LB|<k#xznW
zn&sl!rEW?6{nhZ|+rSv<90C(VV~lPgkuIcu1p__h#sum@(EeLPGX(-pG|9$UQyWsf
zf&sb35R?>QPBaEBWTnK3)URJmAm`P>L(vSp0}teK^aCf5BHBC&cT%K&M+S5w0H~~n
zh9ao%3gTi<i$(c4IiMz)NeZrMOiSu-wT3szU`~WK$;fvi%_<jTOUN0M#wO-^pzLB`
zgt<l;v5C<v3uhfo{ms_KpaDJ5HK{NsLS}<O9a)Se%EUR5>XnPJC1?g6bgCO96itjk
zGf4^roM@hjI~1v3xfny{5nvGwI$07_Q{#_l(?pyN9po+7)Y-}ix=$Fi?HBGuXm%mr
ziPW!M3?XeXV+%-C4azQ{Xg9!E>+PCYTnyRqYl3rp-jW8lM}v+*2W1wR13@PfD1bKZ
zps$rD&Vf{~SwM#hf~JCDAqeWpm|0+TA#4dA&h?9+rNmUeKN{3&f%Hou5o`jwI)!ZK
zQGfcy6k5<gqZf2utP$S8!?}LZlKT7hO`r=VU~y||Y>3ru?)e$1kj1^`<v6<lMpW;m
zz^Y@o^C0C5w#-4C3#ng^z={_$3-EP9kYm0;8=TNjx<__k1+KoR5!GuE&>51TLv@W|
z4zx7aGd2Qm!9sVTPikUv2B^tphPzcr{r&nT2G9Z;>Od1C&;d)>LXar;QN02&F*el$
z^^jo!XkrRFunK<wniu0*1ZqkB-TEeGrr>QPFb9I}*8**4GPlGS(S}?UYmRfG%F>wX
zwFf*4L!%eeMK(3V9(>>hwD?>{^)3mlcWi75n)QL5{RG<mhrW{uv98h>=VjKG#?-Gq
z3@pLZk#GkZgN6?k$af*t`y(bMkP92(F0`-!4H{x|VQ^wDIEqcHaLwIY8dJRv0ZpTT
z7Lvf+XKH8)>MxP&KC0Is;A_(iOcY=TD}geI5!RERyz}xaz{PVK&R&Qy_3IC41!oC5
z6cluuI(RJ85Og~Z+R9@hoJalb_{N~AC<_w>xbrMP>r@r6x-UPoEVH--ykpla6X&1;
z^*7^#E*}Bi;0<%5iJ>Lv7-ve{Nc|Bm&}w`WL^y)RW{hwIV`XA4co~yvHm(J!mek*b
z535IDfe6Ybre+klkY;rW?8Yciqt)C@!O~FA*ucaLb|Fr3W=X0Z!Ft$)>J^Ex1!R3W
z%ypn!^309MbRG385kpfwP#+WSIy3MQhq%MetSl2(8=CrC?m@jI6AKdsxa%xUKpB`k
z*U_K?fgHXFa~&vWV2{|~)Wn=L=nzLbuJfcUslVYK*2)4ej)d1C=9YSv=oy1J7gB%E
zJ!m=%)JTB2(8SOXbo3gg`!X_%5=$VZUnS0=bLwxo2X%@-i)-NSGqC{m;;;rGaZaRu
z4Ps^jo>7E5(ZW;@e109iKr}DJwGQ8s`upuo4M3Ze5SQjbG78o(%+4=Lfn29xT7lbz
zNL2{t5tf$7yWCNaurxBV;4%WA9T=n^WJvfxN^>(V@D7h4{UE|;P+H=;$(j5W?XcZv
z=0+CayV)Uotj&!rF)mXJCMw{lzlj;NCdI<oTmj}nLt|q-3k9q$B)GZD64!Ok<OiUk
zi5Ylb65M&<vs=h^AJy}&p@jkXL=TwzK)Zh|jj+3~Brz#9FA=<%*{lR-1CR!rnW5+2
zz}*Phq=_|-iF6}U{-xG@2;^`~b3;gD3v|1m5jasApmml)ic7OHvlGj~Rf%~z?r@}f
zL(tF=)IT>-fVmO05z@efGDlLqJqX&t1)5lbInu}!bown;M}}u)mVi%pG|a|1^M&hr
zXYzA2Y|Aj*fzZ?lIvNKps)=$S^;?CY^J76JB6N7w5Of<8DAvvNObtv?dLvO8iI5Gi
z<~TRlTbfaQU;%U<Jg7-y4s#&nRC9Af@*GJ0EzO|K^`LdvupLN7W`=r}*!OWEuYAO_
zjEnlanqkQh?nX#5G{dqPj#xKRy>fxI9?Z-^OUyu<H6h_>VWek>wqeh)pdcqT3A|;`
zybRZpYfD_0J(HiCL03?NoBuE;nuAV@S1=>riBzvz3@uH;RWvLVjZBR}cN<}IBJ%p4
zN?ey%SyKPnXCpI9@EjQ2iO|G|B@~HtBGu~^cv>_wfZUp41lseeU<SHa9&KSb^h6Zg
zMWQ*?hpIsb(OH<7D44-qXKD&Mqm?|@QN2bn1ebpZ*MTmRx4;^71c$e%zj@in7_y!f
z7IdHng9&+#qyCm<BQwzABBYSBGy_dRV2f8+(3RsF-J<?}Wq6)2u>h~E1|K<Z2D(lQ
zZF4$dw^6<BurSp#0`=?6pl&m?Fan+0fz5RR`RVz^nTg;d`^}4Shac5vI1NEpnp&7B
zz}yJBWx&Wpff6@Tz4kCNG=psUhK3`ks0Qt(#uCfOo3rp9L10P!y~^<B49uC(8iX=u
z(ykT(&4qy`pFqb}E0~#>W2~u0?dDbBTslMjEz6+UCD6JLGpHL4jg0lojVN;@^{W&k
z3&@xu%#oI$!?uWUWC^a#WR}$5wG2A2(Fjy4Lmde^uo0Bo3B@*UH&TDsGU%u((Aqj!
zY=cf}#O}uMRPYqMMH$W#k`|klA;ThOMy7h;UOo6YRx?nC4{d`#5w4?p9b;*zXJ7)l
zVaEh=-Y)1y6H7A%Q&Y_IcAXQ8V9V0YvT*J8wxs?hWzeNRpb02bm=n#x$7@mGM5@;?
zh8D)))&tCmpcDwYN&-tLVma2-A{pmy4(jhzhBbIVtCtN-;5SN`7-5WzkmypXS2X6J
zgXcj>)7VH4<WkVdp`bGfusD_Qp<tHO->PhAYy`fu3>K1xrr=7(luY+gzkY#U(P?5~
z2I=mBcfBc?SeogXp>_9&2|wzOfq@z}pkrfT?gK9pCewX}2Dr8;J1azkmPH!Ga_JL2
zMiP{oT%r(dXb8G!$3y{ihz#f?V9?o6mY|)~7RGv}hVVrV#i_|9nfZBIdd3Dg`YnbA
z)W7Z-)T9A9${2Lbvyq8{p}8UG$P>{1F-x?8CBm_5Xh8ja$%f`;dZ1z(?m$a((7FM#
z9Z3DIi?K0ebs^|bUC<gd&{3TVpauWv7d<(pLV8warML=eL(l*kmDlzgT9|@Il#HS7
zGcqtI-*r@<NdYee2Az3nX$bCIS%6096pRfFG0y2n8ezw^?#$4D`umVAL9=>D4g}?9
zBNGZ-Nc9mf3qw6KQ2*Y@9JJHiL;-ZW4(Li{&_Ts$H^7io7aJN-e?PL30m!kSJ3%0B
zh2G0xL<P4}zhW^0jShouv4yN_2HmV=Xry3hWR5Rw;#%ooXh8ja$)J%O&{<H1h7cEm
zdReBFxDZssf$re6vC*f_WUi4RsGEXV5(#b5f;!gdJF^^f6N{?SOEdFJ!JRA9DqQEg
z85&T3b26+s3tRsMS)GAxaT+Pkq<UQgD#}4w9p+3!6C*t{3#<zeiRxw<8W>W)6Ju(k
z2ReEO?nZM{(9t{C!jf1wQoYtOv;Z|C5Q`B(cla4%U+?El)QV?A14F8JT#Sq%=TyT2
z5_A`pnF-d&CfboyuY6#mjc`XoMjNrkHnJnli}B=cs&`>vxf`~u4%EmsG{U+#5!sQZ
zmAJN87#bK-zq+w70ylJFjsz9vX4n`15$j0mZ&o$}ZTtWY%!7{TG`3Ix-ELxp-H|@2
z;1wn2dAK%O7#bj7P)()!26Tc0Xq*w|J{%!PjN_<2NCwL*@EC^V6>N(qq3*Lt#oe4R
zqI&HDTVf1b9cF9_y5kG$3O2|zmRTaMA!I`XBdS*{#%6}#_3d!yff|k27uXTuJgV0z
z#+HzAc$o7*=cj=N#;~mL3{6SNgv_y}<2qB>(0~RTmCYcFN8m2B03CONHGYY6A=PUW
z(7tm}gBG?T477s=w1yJPiZG9I=z=RloXejL4Z!PzsoJ20ZJ~j?5VD&Z6r||O6Nz&n
z)$0*>E{3iNGXWiefql^$vGoWIHY^)k>VXDhVGGwl2VWW~U|Y9Fv>U13cQLU5RU#$|
zFgJn+Xf3ch(x(($*BNKyx^v3VfckruO^rdj(2?9{YN2OBzWZ=gC*+TNnphg@few6v
zZ^|?<0gZPmfX>J_wZt6vG&I6F?uqMWaq=B!3fdu$yjRcIQqRy5v=`1m&m1u*n_5_!
z2pW~uGuAUT!R<U8l?nOIgPpJnYgQW@8|qmYn<;>9kT5hehAllsa-NwPZs#F&O)&RZ
z7#bk&7Y;(*S7FHoZs-OPwZ+23(2UCj+z$%U4<c#5g`oki9i!w2p^>2xWL_M+(ac1_
z$k-Gdgysgudd8+$lAkfo05rkT6eQnqhK8VX_z)K`fF`Ak%s~rd4fT-n22%XuNq)FC
zijwa<*j5nODn!u9{KjU+3TB`^4(9N%Lw24i?$E>05+vVwh6bQHJ;YitLnCmgDVUjA
z=$T=69`3RQ*EUfKoM&zUuG~yajKDJkpv6t#2_I7fJ#$3LLk>MWX%8v$BKMKVcOK|=
zB+%uV#-Oow&;_4{7J8<j<0L=}p0N~trh1l!xFZ)w8;}C$ftECwf$k(R0#_eKCdPWk
zmY~xv46tSmBRvb;uEQ~uK)&lhH@SeW1^^9YgXYaZ7lxaI?(;M>&@(fJ=M4B{o)PY1
znfiM~K^Jj>)`r0LcSCQ9!#3LLoROIX-Zx{0^R#9|1M2S)g>`}9E`)S}$#)^uTYa#x
zB3R9930^FTZ9K~h(uXt4Ov9P}OmS2kM9&~QD?}S87%G5fogtISmgbPfoG|Bsb|QhA
zF<3Up6XQM{jXv_-XJ}-kXKsWTSp_Ww!oGjsKPMM*j0Db;j|~k>aa0`?xX;uOynG5C
ze&)t{2G|ExiE<#-TYjddM&M-@pdKaYzzgsOTVpc?bI=vDhyn&)dEhJlsDJS?=pYzS
z^qQKQgQFSjIt5cR3yf_j#N8BZXkdz?0wF(&VI5#o(6J_<L!3Zs4i!vIG1sdQ?M58c
z2nB95G13DaxCeJ5=oSF1ZX|jsv7rI=H!Z_X_=GtVdcr5Ruq45q)Ze;nY5-|Yo0yn@
zGY=$Lf)2YzU!p|J4Jn2O)Ze`fOO&9K7D4R>$QgGgCdPV3Xp5+bbRpGi78670q435=
z;6;d_)~lI?0yZZSQ!-M2^D^kvdQhH$1)+%<Xuy?x2U5LmfpywVj10l;e$bs178VL7
zpuRiWHW0tWGSD(u@JUp;xK<Gx8c_dAW^i<Z4vdDm(F}A?7$r``(LW)-Yy<@xsEz>*
zsDoC1nSxe4gN~K6(6dBa&*E2_ms$l1M3XFBN7)z}P=Dhx=yX7E4+_*T2CXGE1s#B_
z06GqcJQq^EelY=UBeXD4Fg7=ZEG{(#jb$nrTbSvg4^yMu2ZwvQiTazDVMU@b_>^@M
z1xS$yx(yJ0b2X7p#I=2y{NA34A><-6m=i%|qKP@EFKVP`ff#6j_xA8C-K74$Wssvl
zo4<_>%)oIBIzZY;!Pw9oBZ}djJ>yJV=j|98Q2#n+W6(8VpavM!fuKv7K;sN#yO8R=
z70@YiphmVK^n6ki6VQ;gf}x3to}sA`Y?Kvz+*oi)YEDk7m7%4%MLF&QoBG!=gYMD;
zEvJDy(G0XIjS?r~=(12yV4IkMM`~d6+MuQ3MhfQUdX|Q$Vd$8goSC0fX=P|>X^HC^
zR6_&sF+J3sv@<Y3Sz2LgXrX6hL4gaA`YhN6)RC`0#&>EF(&)OGDVHI*wg(Nhn;CN%
zg4<6Zj*%&sp%Ey~g7kwdO}H#U%@(xrb#p^5BXIeGak!Bw7fh>>u@RRMcoGV%hzq=Y
zAjr;+D>W|#6xfCa7F2Iif_6xPc72(cL9P%3t^PBzP%r_FkD@h*h$^CJa6>Nigb&bx
z#Gtk%WZfU=d~s8>T~)+65EMC}(4^V|O4#~nV`I=dWD^C@;&KxOV-o|6o5Nf(le0nP
zlbIpTW9bYHsK4FR0@Q0THdlZ-(9i&Mz7+*7q<VW2G}i(?d>R^rpbPFTEU>x|*3dAt
zw6rM1b-=ix0S$JVf))XR2ECzf1Pw168d2m%s<$aY^9B~6OBP^m1l<^i*NLDz?9%WA
zBh}YFzy@!P4K2XujYG1tv5_UlrD3p`Cg4Qs?=l75l?oc8hb<rh9gPke-ovuQg}CaH
z`ddv+Od;D4;Z8I+0Ug={8j(crJP_$bs@E(gmd1LZwlB<ykO3cTE_6yv&nQaF1$7e5
zQ*e*eQ-8lHta}4nJ_709U|ZrstP`nTxfq**?zc99uW$jSMRV-SaG>|N8W|Xvrr_GN
zYiL0IeWoTRmf*G}EEG-54Zuw|EGJwM=|rm6FD4eo;JX80PK2gKEG|U8MH*D_WZ_=@
zNBw=Ku=HpKT@PVw0-C8&FgGyOGc-WG0+|$dQoWinHZ#@(Z^MVV)6ziCj2LH{XW}{m
z(9nST*W-c?BnPc-f(NH1=(s|n+?k8(Vhck<T)R&x=$si^>Vb9@!rTeETH3&Z7<ZZ`
z;W}!=(2)8YQDF-!;qHVktR$Q~@w$`hH4i)+Sr~&0CKJ%1Neb8wi$lvrxbOWmG&G?8
z$cC9AB-&xl1RWp-T3=+WXNtD3mlStWy$S-|+yH7+!Vcd96`rOz+?kr2RFs&PUks|t
zP1A4=_!?6G!d!TyL(jH@)a6*ujU(ETRIi7OO(BzCuti&-OGQBE6M<qLJ<1U`2AU?~
ztb_~=kj6QX*B((&8kvGFS_B;`23d*@t~<@J9unwGq#LPT0ht;=E<uBZqbX>0nGqp3
znq}kMEM#avgN}}co+)S_4m3f6vW+ozH-g3mKsm-Z1?RA(A@#SW!gCDt7(Qr@!E#0*
zQSPJqG9P18$Ylwzv+j&7%(0$yN6dYJhKAJNkZNLJ3f>P7b06rcZZk?;Nc|ed#1y>B
z5#~Zu@RC-nP9$^;q@f}8x1oYo>x25)aOXkV6WGoRB*J;1@mH#j>%sE}^prMG{s8S;
z10809HZ<y)Uz7=6DP^9D^WXzR@Um;_x)8Mc3sl6wTxbs3pNREHKH^+R^~wY^n+e)2
z1UobkG_GuBfz^e+r8y;uxry1}t>tD_xQ@j&G&H1obz))(Sx*6TCFlxT6G~l4g9^nM
zGDQN7ZBT_mOjw#{;hZuyr2h6(c&-60=>py3YYgfuVm<2)X@!MpI?gSqhScAJ3Tk$N
zJ6td~ni+x*D#dcLA+c_xdM5@nAp`Eb!rW*9o)9x5;Kmf3lXiyS=_IO_KcJ<C$Zj+>
zw8R?Gu*FEGRXFFiLB>$|R2|Tw6wrhb?65#nQ$x_W6t)l~%7Ij`U_k3gK?}_g4z$z*
zwGgpHG2DS!I0sM+slOW)o|i$(dq7K7%s>YlDquU&FeouAu_!SYa(a?+F|I2L3=OG&
zdoJkIByetqxzZAH*fnUA0@@5A@vfwL9Rpfv0os)SI~>vkat0dKuq;ha&rB@>Hz>>s
zah+^#Xh{8AbWK2)8G+9Dg$AXm0r&t$N*qc3jj5)FkoDoPkOb9(MpzSNa7H3H5KYT*
zr$=Mz_gkP>Nt%IL+u#X9&`rN)MkW|nu@mJ!s@E)_QDtzk19cy0O2ODn0jmS^ON)!a
zdr*vva5rqJf1567k&lsqi2^JLP0T>oa#G?%s*j3+>SxfpB)AhT&Gd}0x{#Pt(G017
zr7q|iFz_HfG@4C~jP(pGC~zUwN5f3a&A<bopuGv8krGhGHZf5!HMh{Sv_PHi2+l9b
zEXvFWU&mxxfhQ?ay$53oJyIO*NYJ(b3LQ!H%EiRU7_z9|0J^OaJZq=`T117uP?MNN
zGKSQ@Ul+7`2b3C3VJ-wMFtQ-uh19=d7t|>Ltz`z?f(csN49Y)d3MLjN82e_NQj1FR
zOG>~URpX*uTwBWwac!6;e{9y&0JM|`bWSPg09q3TQ}9i7lsS^>^$Tci0;t_>YzaAN
z8q~Wsu~0BEz&vO=JTW~#FSQ7?WYeGwci#Zl?rHJ^(gbu83~1de)QzAXzp)ubZlrn*
zV{B}q2Wl~b?)(6Ck4%gW^o$fhdu`FDhrBcLON+qQ2^kmRocTAzwTqg9P&76LPpiXS
zXl4ky$b|wYQooKd18p7z9W4Nz3pBF?-6urAiHSImJ~O1jwY!Fp$qdlNGvIhOG0`(N
z10VB?9?{54qB3x<+A=huegy+v;{kW0xv8E7MNXvp@EE8=1-c0W=0r%h0CbKVdMJ7)
zX6BXVBxdHNLQZ%}!reQd{`P8EpW4vG5`0%Cs5K5c)Y;5H5B)G=Qrt=PUJPh~tqJI?
zWT-nqQ*I^-pbHDpor#nv%`0&iKh)o7ZE66zHwtvq8YCz|^9e>2Ig#o!FvjMPljA|R
z0D{VL&?tb3iGrb#DaIWt#0>FJf3r2HRtBxogE`Q|2z0p_`3|J|AQ@<<0@#5D#^5tc
zq1oEdM9&EA0!r7S%;fCk)NIg9s#zJ%b%ci0-*OGh)375GKr=-~3fN9eAli*o@5h*c
zws09BcKw6G5y!c-F8Mj>`DLJBG%mnh$(T~Tl7R&yY?BJKXaudhM!!IvNGDRgk})=c
zY?FXH5p=RQ)>BH6N=36`oM(<1Qh%ehv4uIfF9>s@iJ>u$3(ARgB2wLgWh;%L8Bz}d
zbt{dTg$WmES-*h-XhRFiZQzJ~HKt}3T&8BA#1y0-WQe?##?;J=%hU|iBt+d;L%|_d
zhG65UItc>X{sCL(3_9=`bf_ej)#5}ge>J53W>{ET1MWm~1JLzy*w<ng73G(M@;;tL
z#D?JLqG~7_nwvwm13<5o2A!mAiv3P$B3B(ze>W`XtR53k)WX~dx?ctRmC{7I5!ZHD
z^1EcP?G><<&XDaD*p{>-IT7E&DDb8=sz$Yifu0%YKs%Td4MAlp)-xNU60<WBiy&2z
zSt;&58TI$Y8k(Ab&j*0J5xhy8GDlLqaS1w03bgMOwjLLhK0#+@V_T0)#92~?)ZZBk
zJ4*`gLdaQCSQoSt<wB}AFJbuwwzw5?mK3(N!i3LiGNk^tSWD1aOk;BenDanqNr9$_
zLFd4sEf^)neN=B%g3gixukV4bVFu-8(1Ii^?t}Gj%y1tjWr(~hmpZFi4NV~jeZT_{
z+#$od7@Q~vQoTiKVGJn^VQY^-o5(@euVYzd1|Pb|b0C}{^{@2>H)ueUanN-~hLG*;
z*e-r0&V@+rNh(FMnI-txaab4{8CdFJznPYZOhSV_)`q5f;Hg4r02&#a>lqqhT?9vr
z`>0=!fQ~pqieMu%3-C-KmLy0_9<iYMNVt(XWF#COzm}ktw^##^C<ju#76EnjK~o-P
z21ekR1~nf*TO>eTFC)~MOyaT#sMAB$MwcOYZLNs{+=Uhf;Cph(b|Lkv66m2;rl13C
zL1Sd5pdNvOsigtNeU(H-GN?yM-5@kG2A@j^cOdw1R`MN4^{T`SbgPfCxdP~pQc!9H
zow;jlq+n=isAr0HR0?tXSq-Vbw;DY12^#OV0Ify<joli9ri>_YBlW8j6VOH1CWvq}
zGXs@}*xX3evT94D0TL=zc;?V4BUmU}Sb!F=lJ7#Q*C~dUplh!XVF>Ea8=7HFi-<6+
zs=_&!4n9+bs@d7d473{*$%Pi+nL+$vh|h&ouT_jdS2kN9xzN%KG;D+4g+;g*ds|Yy
zRsqlVf=V27P%9REhn%^Y0_e^=19Q}Kg@Thaax+s(Km$t_g}C<xQh!gir8(r<YtWG*
zpabDRM~#5P)JTt9H&VT30nJ8(29^v>Ou<Jc7=cQ1BL&bk!)C^);Ydu?NBy1DpcWx$
zrw-hK7G|JJ?Z|YX5%srFgI1D(E;lzcFbCf#U}y+Fg8($EWsY{j72zhf5%srDgB${$
zO@+A+yd@bVN{;iWUY~$gWq~HykauDkVc#c~Uzr2GNW~x-=fY$o>hG0?PYpr4P>>lm
zY+X<fq8v!|E(++lC(s11DfE(DV@qQNGw>C;sLg-mGk6UxEeuL<u4Oc$!5(Q#3&?^?
zs3SpV>w&f(Q|L|{)e8A%IvSf9fR9TwHG(uEjLpr#*B_V~8|oQixt+mO&(IX-^$eiP
zl(FtCp}>76pwh)e!NkM@JSS~zYOV*m8pH&&bsFpS42Fg{Zwxo0{uREUGnS2wOcabP
zOu(g~sWGVMqF`icqGxVkigIQm(j1^^8P2AI5pA|dgGxlW8^Ik^O58}h9nwbTpmSJE
z6hH?_SQ;r9fd)I#MqiQkiJ9R(E!fDA>YWwPd8eSF8}3Fk&`~!OxsmGCi-|ep=5UxB
zL2C~{x0+xJM<R|3HZr7ocLi3z7?~M@S2RNE7bDQtee{SX%7HYfUm&N^!yRY_x_MRs
zn+u6(A{rS|y|V(^g#{YqggX#){Ff2=4y1miVr~wu{6P1kg4TJ1mM2?Unkg6=8G|mJ
zf|ZK!TN_OE3=MH!s$*nG_3<xb(B?YOxEHjEXkrMSq{r4qBxVfJhz8rF4Nbw-9juWJ
zDh^G}6v%fW)knaL%?%)DZh(%`HnvbOv9JKGeZf5D7OC1Z&&J&ZqyF}2&|-Mdk{H<P
z98*KkxwqKPxh2+#NHq$U)j38+NToR$t8)y^%();dQb4P7h&uuo*SZ~~`{qn7xxiOp
zfYt?3<!D?ZT)SV%Z{-;on?O!EGc*M+O))Yt)UyPQ>KlQMo`&Be1urm+^l)AzWrS<j
zEBUSiANUA5)YZfY>`F_p<BSzRHv$_W&OL{_&Q#CP2zMJ4*Db8%yANEvg6^G$E|vim
zXO@O$3g$+j%gQiA4|K$xIj-S9BV1cu$#)-U^EGITA#6<)s7+!7KIId;`|!ms_4l}f
zE|Ubc>P$f!xj;LwLDR%03Z`ZT80&_Kstjnb%hdwX_kp?4#K2O|(ue{VB9&9fgXHAL
zFzE6;GtfO6mZp%~QVfhh_rEECZlb}_i!{V}fv6F#O|BHU&m6LQ2DHTtG;{zuuF%-f
zOaW9yV7r45l!I~Jqi00@`&U8dc!Kw%fNtpoo#bI*rUz;;fo>Q=x<?PWguxenI9i+(
zgdgZe00YpiBcO(oiGs1I5$N_o1yD*f!g384DE#omFV!2Ipxebk7bqKnW~)K&1Wl_O
zn<*HBR<dIs#W28K0wUi4i=02mUn*!~V5nyS>V_FwLh^?hX!2UY2(--%?R+C5cRU&y
zQ+;S0w9OjSS~r3@(!xT|478ogK+lL=M^e4n3EHj>o^Z7=0iU-8y7tHrH1TSJF?9_u
zt?}IRVMK$?t>(tyksw2u3oSu+3K?3G>p-MNC$$oz3AlG=2wI<IWTF7tFAUlQXJMpg
ziPi&$2O*wiP)4}!1EwImn3;mt)x%wAVFuo&N45*8KZs!gxnd2r0}fmeV%?-i%n*SI
z)yFVk*O$TFXAHiF0NWNlq8x~$Mj=0nVYh=B8e4#)8g#vtsgVNcLRmAk!iM<0c}6BU
zY8LX{X<}dwJ_!uwPEbeO%z|QfA`NL^>q#Q-DkY~UNzB#`q%NWn?tUTSo)o0ZQH-d+
z!4Nbr3qC0Ydd@ZIauiS(hRg-lMy6EH^61N#A<O--Eng<8)TI9YLeRQ1&{PC$>7Jpb
zC1@=TwwXI3CT2~kp5=`|jWN)QW$47B5$Kp6>_`6*<36fqb=dAAQ!_L0ZLXj#Ckm$K
z<`{=k5aT+e3{IU|+t2`V#{<lDhDM+oh-~*!z4ZvHt3lmp&;$f%Z@7`6A*hpTVqt`F
z0UI&lNA-pyXa@(V>j!tAv4tL}$4Z|2sK1vGQ~-iTD~%06_jsBpfC@kp1<=(k=<|pq
z%xhEs=2loK2yz~%M*}GZjSbB8jM1h$NpU8Q0SWS}ZCGA5GBW~iE;2L)UtA8F6|+EZ
zUJ!GlhY|P!GO8|$Gc*I;BV(cfccLZuWK0U2NcC1EY-J(BiI$*aQOu3>@B||613iqu
zSGrL(5RFXCz#VGPW*E?!N1$X0YDSt`=ozE;Wr#eB-iQYKR-yN*85)~`QzInP7=ql6
zmKdFhb|lp+7z@ztH=qTEP)CBUeKZHP$jvZfo5-8OjcBlU)fALTOcY=t395BK>#nf`
zCDD$gdR1d+4mpk<=15SY1TDYD3`ioEGSF`CDrk*3=s-_siZnLWGeJv{#5$4c!xZrJ
zXk-c*t}q6VnSnNKp}P^esxdM!FwekwRf`b~_OBXSf=8lYK?ypy#YlltXHvcUVhGxP
z0$Pm=qb-c}KwKkZjC-UVb3wOY=70~QG%LqFWlQ}{tf2MQpyUX1EV$98U`UA@so#wO
z-KGaRtp^&AMn<5~Zo-bt#(C^EXgwR&Wpm`We~gUGz#C}b0cmWc2P!8Cg(U6`qekXb
zuW^iwE%iV<TH%hgGy`v~z~V?}(Eac^IiNM|#^pGV_%NdWrdC*c7q;yTT2LAqVca-M
ztP`nT-58rdMoVEE=s{zVW)@gC&=XrHQh#TwiJ^%eXxtv|NMlny@RYR~#<)Gvj-+~(
z1DXK=B}mvFdeE7VCfIKWBX*jG`deI0jZMHScHxdRH3e-i#J16&Xh%}LwlOvb?KLw|
z0393+9u+V)*R!xtFaymaqMap0baYd_djnd#3)%|;cchuAo*89sq<U=w8z(n4G1LPc
zKw%7;cra4{FR4J=?n-n(Qhnsi*uoM#Vg_?0XaS0a1!az;dTj#>NzmLsXqwa564c>Q
zFahl&HbGsfO>6_mg6gAaplJ|L2?TSbi4iEXQ|3sjS2&>Cmq2AX+>ypcdY}VcjqtZ5
z@ic&_zxma~7<96yi2}lnmU^IraS6B)Py2@kHw&9Uju?iy5wtD}G$ctNMVjZ~JVeuo
z`uksD%e9Ry48avRWVyC6XrnWpT!Yt*)URz!48fChFgJp(3$rv+z~)F|3rXs4f&~?d
zpk0x0M;e1lbjln__3FmN&=h<SvatbVTabx~nI32q+7M$9AL&dhi!7YyMHx|lBdm$3
z0eFol+==F(wKWRHhUB}EW_68`sWCV>K?%|VG}LRXXO5O@kirqq<&#F1RIh4GKmi7F
z6wHm_+m94LyT{3OBlT+<0~7GIvPOoW<qM!)LEv74k&&gI30gA}DID>nM`P;mhXoyG
z52~`^ZUpbtR-nX<RPWfp+CGLxpv}afTG0SJ_yal}2Q581=H#U2Cg!DpkK8vcNyoKL
z*w}#TlQt#>7T_I0Fjtxwn<^Mm<V331G$y7--~<VCBB;s+?aLtKO0y)KcNZ8NP`zUV
ztFuAdML=_&kUASQK#88SQDPgfBdK217@L50N}7Q8w16B5YO#Tit-x|#Gw3kS#ANXO
zLIx=nxKkw6J2s%a4cci13rNuAIH1*r6u6P<bq#0*BxvOf%#ENV30k3q&5fnSC8;^!
za5Tex?Yc4bcgeyNBxnf;{GKMz`4H$QOFI$iM5<Rcpc9Zmt7ky#EI=J?6VNgIpdDA3
zr(e6|=Vs=mm!?*Mh9gZ<aNb{UO#N-LCZJobLBsaYfHW}&AJ2s?B#Cz=)vFu${Qyu`
zf|8_>0yamYt?e@_$9XJ`G4*d1hNVjQS>h(3y~kJ&6DP%;RIhZ5O%1@64$Pe<Mn<5)
zG|-T=1zIb}H#ILElq!vjaTk-+zg-w~T?*({DYyeoK`W@R1|(4qq<UQgJCPmkKnn|8
zAqZOzi{}DO(9RJm&)0yC-bW5W&~Xf)$#(-IjGOF;av;@f8B-(3`3A5MG&Kh81i>1`
za0lYPK+~A|J7!Hm>$wcT=OP)K8G{BNA!khC2|+x^qZ%7hzk-3@RcHZfdK+6P7@L}b
zX1gp6^^DPv+z&#!mC`&5=VeXC)Za5}YzA3R19zl_xt^t&0!5Cbdi4StBn6G&!W?O0
zVF<cth>#=k-0x|Oymgm4>oq}J%RrkRVU9F4GzRTqpvaL_uUSC38Z_Syccdw3H#gSk
zCh}T9P!o#EWh1PbhVA1vHZcV4OTu<n1<{T~s$sCKzc)tS;Y`N*d%E7UV2o=^Ecx60
z3=J*8OK!|ShjM^UkTkZ?GX|ZMY+;~hg4pg?oSIycnV+YnhjXi>F|N(96u8aO5<H{^
znzRF*lLp#DXJ8JRwle{3Nras(0e71*9>-CA1Ot581LzEK&=9_vi2`UP80aEU&{7e!
z**c<o-ne$dlD{~_&;m4yhB%<s$N)6RYetbHsXm5b1agiEk|QDK*<*7ha&?KXkf*`L
zuh4~^u%pNzt3$9IMn<$7sXm5bZlGsqW^AqiYq^2W7`McJWfC!sbLwx71?~9)<z%=6
z%}qi3R><w%P=8}AD1U%zNtgpc>p6`qu(o}P9I2xIrLVAcO0b$7k`l4CHi&d04K~Ia
zKrU!A1MM#cZE`mTEeJ8tGe)~Pp4dv9`ggv94)_A4M7RshEc8q$bR^a57!%OpMFu7c
zrWU5)bwHr5qmhECrJ0@q+F(FfeojtiGWe1<<HT~D!=}`~@)dNSFR1Mcb0VlWYivf5
z8*$Vx<hLW>)36pM;B$;XoeEGp0@QA|z<#I;o~8t@3t!21AME~NV<RJQdk1uFuDPk1
zg0Zmy=x7aCI|qIwgpnTZGiQu(?TaPfd7#;BBhZNkrl1Q9OcYFv%=JKLx)_<6AvY1>
z&NJ0BG%>=R1aXX4P~twwh37`bkaK=bK&!_=N06Bq>zQIdH_`;>5oE^5`*D%GhZMNa
z5^~2P=rS(Q=soCgDp2$qTA1nKI8z8;_#ur}VC&By->r(;pE1I5RUFFgaF!-q;Pnte
z`a#IMhOzDqHpaEFmHe<WG=?<!Vdn=Knu5a!-}y#(!V1^MRtnr_W(dAt*38@hd^ZZH
z)o%*wE}2_^PI1A=s-V1p^L!{{>ff0OYrnwU2W`KYSs3aW8law;OJw7~6i0p~zfS^d
zzkqftgHFPMv|r3XS4gAn<096HR9`RwIwBr)@U@w-8TiNo(B(W93T7r|dS+&*p-4<S
z8hj=jRrkUfnnAJ&+<l<KaL9Kc^|!bh8bEeDg6<gst(X9nedb0AW(EcrgWSY~AoVx5
zf=<&1ZEA%%5Olc_=&~Mi9Z2=IpP``<_|$sPDZ`*#0$LpbY6^lXHMDF3ABC^NJ$_7s
zO|2$I;MNq}fo2w<#p$NxIuJ**kNk4R&>Xbt*F*vCKy&a#4|pAjXC8z4J6b_$5Y(`O
zIS{l3%FIFmn*)jMC{ceyE9f9s(6WBGBf+P0Q|3sjS1I80FHB4nOpOe|tJ6V;Oqy6I
zfUYh#M9VBFA(@<lvz<!)4Xs8dkkyQEM}j6`D0C!JV-UHqN`9sR-AMsDKpgH!bMW3l
zf+1OfbMK%rt}U$;w8Eg*+JcuvfcEEEnt{&{1)upx(x5f2dsxYL8>kloUQ_~Fu3=!J
zU<6wEZEU7sVqvU@?fgL_JtN$mC0tur$#)*;N*Peg#@O5fyqn$<+{H9j0Nrnm<M>7s
zQ=FN^9LF>j`R)U)wgYcCFg1njYBaV0T~452Y-R%LbYe8H@%DwOziZXpM9%^ge4r(t
zpy4A+&~6w7P|h|sLETtFOr>m&G&e<^>}zNM*&qmWpP{j#9w-fhhTh0<AJs>w4MBZ#
z&>ad!meA-0&qCr2Ks<Fa^*5@*P7{F*09$}66s+UF@Ce4|KC1UjEX?&xKnW1$KF~@l
z&@x3lYadMUIgsiVhzV#i#{zPHH)uU2cr?aL!Q2?MjvKY_RGyiWla!y2^L`9t8thF4
zt$YVvHf{u6Wo`;S%A736;aKcIe%S|F>;(!kP@e>}eZ<7r5?rmBf=>6sK2B+Z^Kfiq
zT-#A8aGx1u(Kg(D7N&Zj1yW?X4@ccWe%l3fv@WPU4c_htIvUmzyj|bKz(5cEph03X
zFZFL+H8n5*Ut|h%psA5LXn6zK4#ZJ?kRQXQCPv@`O^rdtw3&$lcr_>Ja9tBaP)uXg
zzM$bP+>`DWII0iw-DhkJTIpq?U~B}r`UJGF$^_&-BTGF?97DZ$+(-3(h>3+Icv}PL
zsyXnih!N=WPzBIUyXYwpr5}Q)^-TSZr=azGpb-VQBO$xWDRLx^YJ~ilhNVQ%fF`(1
z1YMhKY^DIZXT+G~n8vl~lzjJrZYBeDiw!{|ZziB)vdzKmRM5$Xq^CsW4X4-!^^x~_
zQgKk<j0-f6W1s-KF9Q1rKdwD}<OiIgC1fuM?CN;X(U4}KMLm$K7GOmTVo{GJ&fW+0
zueAg%m;fDa4;rTgEpG#*J~I;qGti|mXyXXZi8;xM>3QJ2Q)ZR8d%x7*%?Da813Eqs
z?nq-$r-U*`;>f?`*TtY~JwU6R;f^%304?0a8j=~AN#FyBO!IJV2{57lW<Dd(MFF75
zH86mb*|1ed272b`aZQv9akK}?4@1~QiK&GJ_%agET0KM1+`1*kiFYokZmBt$$>2LA
z%?fbt<TIiEPCi4>22Ie=8_bcQJ-Z5^CL#K%d_=pE>J3BCIbEQ{2n$Ff15kisb!2dU
zc79HNd2u#4W1Hi?nHV%kM&;G7plzk#ISFV`8kv~tfrk7oG2@#AXX0oilAkO=2Qh+<
zeT9c6D4kjm6PiUhhg(eyaI_UEaHc7!SOhJe0Yx@wM>gnsNn)H?fU`$xVnFpKqmj9R
z9_VBmcxYOJR%l|&KjDdx4L_zyIB$A3q5gh8P~;jIn}bgu2Bmq(Y^|w<ImS_uM7fXZ
z6^)^pIe5t56m*dQXpg&@v7U*7skte}_IsE7ob>!M@Rq3poLi<$sK1fV2sBv>Dj{Jm
z1UDHeaU%6=8Z*eSCTP<usNZ4;K4n9}#M}sD!W%RvpI;6NMbko@cNLpZe+M7v*jG?K
zfjbdAl1+&dsb9^QTY}FffjJQr@uo&torp+_ro}khjwaOKz6Wdcz?}$b^k9o<BArO}
z>IGKdfDZovEtj$|S1>U%)H6a`c!6}0pGi^@u0Dc^A=T>@OVC*^#^wqz_Zb>OP8X-Z
zja08xKrKa3uNm$}BU3#Sg29-QhdUUlK9Fr_YydtW8SX?=GtkLW_(Rb&6HjKLLDgai
z9u0#z(FoMEwICFXcrJW4q5dvDBU9+oU{eF|e4Y_#k%JLMZlrqcVh%c>6qIA2i~GP;
zwwVHG+dcXr70}wn(9*)V2zMP#{VjZ;!=*v<d7vS8&<PcwJDflx$R?H;%?Ki$Nd4Ny
z64H)^IT3W=kOkI2^exTFNiDK6w6w4+D!`egji|oh#>f<MJTlycpmUumaUs>~79#^w
z@R}tP=<+lpGjq^RP0&$T7>5kyr|0EE4n{Uj!CmSgZy%)26fV4qhPe@1MH`x89)v`s
z8>wEu!0Kqwb)=w18KhHSVqmOiiFP%FGs21HWjN0cGr@IJD*4?%3j;lKBhXE*md4=z
z6=*e>1?X5nylylt#yxg|>$X(#-3VG02^z_R1*4&*1?a3M0^x|yjkq?5lJ7=PmI0NB
zFgJo02$^9I$AH9A@UhLN<+$5pxORzB;6Ug&9^8S@{DLJh66HXuujGVh7SR1Opt)xg
z&|v_elORpeG7H>&Nw`NKsJ}<l0@P~(<rEWh@Y;4mb4xvQGX-PNb`P{00+4dE1@5!C
zO>o_sN`538T9|{k#u!802pYiy&$?LX8Ib8ls#h+sr6b0MkdpunjX*1S6^xBAPXctx
zPtC|pEduqT%}a1D+6B#QQhA6Gw7d#bV8h*LYOH5yM3Eb*Ub%oS@Bz<Hg7#E^ZY4Fe
z0A&~>P&!51S?!)*T%MQ<9;&rS!+AK92@Up%8X1FoFGesont%`QrNoWY@4gtAgU=EI
zT?}asT5|<jBcuRo>7uWRMRfIz@r;a7f14;M7lS8J%|NTHK=;prPV%M1iB#{qfELh!
z0?*JCI!k0^pl752novNWB=XD8$}9pWMdLJ_r}mmq{{~gi1S;r=6u1i^y;KUENcFCZ
z5p*aX?nKZjE(Aj{5BD%P^>0xHT|5G6ih+*S19b!qEi6GzF;IDlzOvIPF+HOwF&A8T
zr=;QRU*Xy(N<k$Ex-b*8+}RMaHWsuN!rV-O5;szPbPTqq0Tjcavzd$x%|MqwSc0ww
zG%<tC?k8uKr0OA!;F%TUyy(Nkgz6QHkr8BE2ku4_(4tDvsR;%~WV#W@@EG~aBw(li
znVDEZdaP#P6<7*prsjIs_ADFWKAFYD1V`0EzUx4%UqGD#&{km3Vs~Rxb3M@2HYT9`
za)<@^$XkL<ajqgaLEf@Tojx?|5I92%3vd+(TE_-DDAUqH&lGKLpSZful<E}=?5HC{
z@PM6(0_adm(D^$Sn3s?e=|mhI7xH7-1k@b`l{dx);KkaehNgPvmSzf|O}fUW@XU-7
z%Q)Agnjl}(i)D?I3G!xQBG)*Xav6eJ@j?1Qxb`rc7@BcG<^a$(G?RD@vWY3xb2w-~
z0yIVsI(Z4S+85Ntu`o7MFtaewGr+#u*A!3aQaz7@rujiTF+g_=gK9?5Y2lz#6F?;p
zj-4WS@;LRkm|B9anE@TZ1Umf|bO4j3F?fX$s0czk9fP<GM1xJHmXN|5bbuA8m;~J)
z2HFKnz7uieaSGZLCg$MPPo}2k;B&x0#gUPPf~lFgo(bBFTX1S-T53@VxZRV6yVFX8
zou(GXC~h<|Fae#_LWvuxKK5;4sAmLTCSeG@wGz}{FavK$G($^`!HMOW$<XyhCAiy<
zG}v!yY6_m8Hify-+zhn*9JJMsTsKm^{Rq2%)&yEDf(|e+Q82+$D<U-?%`0)wT$)k6
z`3M`&1D(zTS}b91sRtSmH8;grD?zLisb05Of;y|9Aw4r=$oU1JOPdYN6pYOc^-OWp
z+{QS2GG;jH7V=9S*iaeh5=ijz04AX00u+o43^9%e@GH%Op1z%hyFZ9)iz)doG&BMA
z|4bC%E;Ki!z<E?}J%SE|0?lq%Sm>D;7+WZSZkRT*P_Q)9voJR@MCoSvmgbZs<|aZ4
z9MdY?qhz=?n^F*nW{?wu;I6bZ03G*6nJcM2IsuyN1&uetTnXy3f)2vP5|)TD9+MQD
zr)-%}f7_{%5$FhJ69u>vjlrv_u>~ZNP6V}^u^dT4erExERI34E-ydlDz{DK1@y}cj
z=^#;*&I0Zt$DHaFi-{rRa4p!al%RvljLooKo#|LmkdvBJ32NwAl;B?DMuW|#2BzRs
zh2U-kUF}Md6LHim<Y#G9W60fLa3`9Ac4T37qgzpa4rINhMJeuPjycsU7g*04c55c&
zN)&9DW)kN@>hD5@<rTOKEzI;xjTEpsF{HROD>FN>9K1ooyaMNK*CrNJuVX-Ws)0u5
zVXg$_AY)2hN%anlsUhT0KbR{)Lp`8LRs&Ov6R(I5ORCo~@HA-wnr|~vfTT$?P?r^L
zJc@Wn;^@PWUxb71b^z~wf}RC!0-9_kFd~7w2)Dpd#gJe27+ZkO;5AV&18w34ohoVw
zx(iUj%)}gHkrt6Tn+CNEWN04lL}PQ%77hxWh@<;LK`fhrCfSfe(ZWy<bP}DJi7D0t
zN=)?(P4UDs)oU0NLo@I)1XIwCF(VTNQ&6R7p<oJ{X|+H-K!C`K+Jfp;4Cn|)(EdQU
z8$rixP~=8jJ5<TfEhc8r)p(}H;7b%uEX_fc3}|TF&;<1?5aMzR@+MX44AX<!V4$5u
zCQv7W4v#elEnYRzBh!gEsuv1!i-8gNE>zf!1SX*K@<Gj7bI?$@F|4PB+^jXjdEldo
zC60=P0{0m~W;o#PGcnaOG&EB%C(nIIbqcmIdP}4-oyakIGh;48@Q@%Gqx7bhT;Q`4
z!TXbuH!GWR8G&2^7B}KDG6qFEn8RfR3gI9-JFe8c6j1-h(8QAJx!=NA&%^>W@(eoa
z1T;SaDw>QG%#4gN_C%$m2IrSnK^kvqIF~<~Qh#@=p@lJcJvjIfeb6yf;MJrQxsmD(
zOwa-;(9DOaxg|J{8Jb$^nJJiBSn8RgofGbqSd@~Qng?3aY><s}afK-jcDI^YfD2E!
z6Cuk2C~+ewfr3(|jg3BaN>R|NQP2bp%#EOPnL$JNSi;dYCnvKQ6pEHvctR1W5TK3=
zVN06fE`%)6#1@Lgxe%23sTzi`F<nzLbMQ&)mY`#SKur$xgVtg0vouJ@IUH$9{mrbP
zs|rDVF_`-djZE~6jlhi}@?40cSxJ6#!_deA+H8Y_AZP&9+zhV^EiAKe_GeA0zmwI-
z%oMz44;F@ysReA2>`@NdYHMg|X;6f7<-e%`)$0{_A_QL-W};wjsb{2MYG$T~K08B{
z`>4N>6}F__6zV?Enp_hC4$R8HHLYN3Nc9Q@awwX)0?dJihQ^>KFWw+DOG?J=LQuPc
zs^tuLvmj_sKQstIODRmv@Q0y!DIOP6zcvA{WCb1l1iG`%L;*A!Zb%>*npNP5W$M=^
z(B)gOST-^-0`2(5mrw9Ikm{8Qte`P6f}F7lDQJv9yWh~(suP!ysXj^pD`-Fm4uh6)
zfeRWVBg|nG;@n5|x&&6xz}yEZXz)7_UqM6lF$!2g19Kp>puy`xyaf%_>k?Q&19u_#
z<TM4mF2q;RP=DvDA+(@@xe!{=;B_Isd~8JZ>IAk<6z)QBK|{U+sa~5PrqLlodX}L3
zMioHIW6&=PMp}u0XScj5xc5xe3eVCMa<T+yk`+ADZv;9uo+39=y+SbrU1$TkY1<MK
zjE1J54n83_;@OLC3Lc%HYB(C2TIhkp59&tnvC;&cScY>SnJEo6u9_M_j;Vq<(cA<y
z+fN`l;@K{5YDD##1(bO~_q!RILk^HMGPO`Jv@pcjwn|jRNBvE!pw&;HZXVou7NA(C
zz=c$=S3o<QKua0nF0?e$16`1ZHw^LA&D7tp3TxbeHozEwW&*+6EkUbo(YIT|BN<=S
zO#Kb3=AcC}#^wqz2ZC-n1>GNNpoi0e_-bbG;3sv<8UthS)gv$m8k(DcZuY<*gm}6D
z)ZelSx^@Y?OUKMW4;05n1|V92d>7)VQ^+5e2i;}_x{4EYJ~wEQAZUi))XZ1`H0FtG
z1s=|mE={R_ovAVOW=3=9LD<Hopkq0)9@9-^+rgOX-4tWcQC^@N40EHU0cf)-wxh&}
zbtBa)6k|)!>QBV7Cle#k1Tdj+#MgG9{$^DZV^i?@X;@r?t^&8PAm~OsjR#s>Y6{vw
ziwH+k$f3jp;u>G$0oQg_^7FK*F=TlbVyTG{=z>87bI=vgmRR@0nBkl`H^p_QDf#X*
zHn9M&_62P>0F{cyW~O?Epv&ouabARIj`Jc!Q(QY$$#);<x)xB|!OXx2yekWI|0d`n
zM9`tIrr5*J98dV+82TdLeXuj9LDLkVG8?p%2y{R)=&(aG>^pLB&-I$(+M`Oo`#`(y
zz{i-HnS<x{K)dctK?lN`n}N=rCT%X-6xaS#^4(`*WDM>AfR-45=JiZW3_z!{E0~xY
z<J!@LFMerIpO}J=-#0O|&;zAI6GKpcPr<~<QqKr|j|S>7u(%H{HKqRcRL~Lw(0XLJ
zGfhnOEGTs)jv+7#BHIMC;{~*D(Ol2M#6-cw)B;@CfR5zHaX>r1$i~r8A>VzVHI|^u
zAdH|R?V$C@pv(+9^&ZEquz1`@{Vl4n1{mm|Y;a;U0C)9_OhFeyp)SusEa}E`vVbY|
zx2S^hhb8FX2ounehb9UpCWfH)7X?nF`Un_!i6ZFKSC|vc!C9Js6LFs`V2Zp;l{%B(
zu!siT6aWfM&~4Oa3ZRqa(GSQ*I$a0Pkz=OF8)d2FL<=);g$#3|i2>-e9g5sY^+^>I
zLql*Q7Vbu4BhV&50^x|~%rR5y-@XfSBdFnEXkh}LX*L0ExKjWPeOjPR{5Yi+mE`Au
zj;=AZv@kEv!Z`&={p)u@hpB?k3xPS(!U(hrkTO@|s9wllPGD>fyEGfJ=GVl)2s{P>
zT6={Smc;E#H3hFEqv|*bIGdP&hHjv4Gy<&}0j<0;A<v1pHc69T3xaB8Q0;7J2)QF2
z)D#0He9&<xI5u(PsRgOOLmITl0Mw*4Gyv^@Fi`-V#Au`d8Z@!AG=eo~!KZ};C8p#<
z4$Ml&y^hX|`W1{J=!QQN1-Ju^!K-M=cOg>2h-HPPDe?ubL58NF)svuMBj_D123$tq
z0aMUgM_jkLo0)SNf;YVe=?58t^kZFpX=-N11+gqhKM4D!@6=d*X^LxSCizL)$if7C
zDzCYLA-FXUnq3F=a?K45u-;K+q-Tip3Mf<R-~VZDre^@UpwG+_a;`t<1QO5!SToS^
ztynHD!tXpB>6!A-gE<ctdbpiuWPr1BqQUi_;FW<U3Z|f25J2rZ&<Y+yGX*mP6Fm#;
z2g{h_JQTx}78^0mz(eDvAoqZl)tVWCmaH0@>KUOI`S~T8MVa}fpk0J!#W?rBnNt4_
zP|*5MPz4WnqoomOgF5K+7P1{l^}aZ0M=NNi%h()J@PpH#nS!x}nVu!uj;O-Y#Jm#R
z<5V=*h6$?9!Mo>8!DnJXPPa7%UFeGz$%LFn^=6TUsh&A#S^+e)2bsqNA3l%GZO-{A
zsX00M;PjV?^LzwT>hHfa1nu$$9nNV62|go3Lp>t}3Y<v&4VXqope$jc01HOY**2!w
z-ROdJvl5=`fJ~{s{}Q%p8tzDN*@!hDiFPE8`h@&;I&8KTG=Bsd^8+13018Pn6O4md
zQ5}i95odv8V3&MH8k$3n{f0Zz(hO80g6@<?KRuRcN8*?<B;S!n29Sl*Fh?308-bR1
zV{>G1Nor0`s+FOoxkWk7V+c&CzX8+81ag)(+=*r;dS>9OxzU4>NEcGST7ew~4cbu#
zs-K~G21{~8IMFN}_X1lBs?Qk0bBqaOXPKda5$FthV^bqNQ?z|~!6ilcxtV$Cki+~<
zaNo~iO8r|x4UG)JXAywTr2`!U2D%#2LV-e8;uz&6KhqeRK>`uxO3-x}=0;eZ8CsHA
znV6esWoT(;RE)bmr2a-scsUM@a8OeRR77HlaAMs^^`(yRL}_dQ-tPpua?VTvG=`48
z5fj|x!96R7d{ZfP1}6<cXBU})w#-AE2HI!>3O>+aG+KTk<Tk2TEU*QbMrMZKnJ@75
z_GSu3=0+GdG=klRyA^9m_4)*qVL>fyxZBJ?r>K$THl#5ND#fWe<S-VP+dy@lfdy8#
zxuq5rB^E(;ty$o{j?om?O||5gEufhh(2aL+N17Rd4j9B1xkNjX>a~dx=tM8j91S!D
zf(jQS>>-J$@bI-7sDEEAtZV^Yp9Bg|NO#J}%m8DzERimxdM#pMtY-uovw^wL5Olzx
z0)7|bX*8J8U^}m&F?e?!+=XUFdX{E5oJeG&!OVc_)d=`-dC-ylrjX0M3@ssL4%WCP
z+L=`Ev=|wH7NMIcz(Nz0X$-N4CUG^gnE~~y7U&=ZXxk8|rw`3FCYE~WlMBQ;k?J*!
zg^8X8=*&x)6G3O?gMtx@8^N_7&Q^n&0rhJb6GQMC8Mxb^8HNnEQN5F52-=8hVglZb
z0~)9URWOD|3P#4}dX{J{8lq0FHKX0Fw4n9!U?+ll%%BSz$aW&thr;013TSG}!bHKs
zT*1i545JT)v@#UWDf4F3-^~j;+X*yO2in&J?m&TNlFTS^BlUOm8k$*xJ9(hpB^IC*
zX<(!Wn$R?})H6oAn<ywVH63*Nuc4)dNe0g0Y%}U_>NPTiOr*fwXbc*12f3VFCsMyY
z0rf&b;bv?K?goJB6VRpz6Elo%fOCFsYEBOLnh?_xoV`#pLz>kmppyd-tuRAl6O2|E
zu}-9VeF8cL1k?<JInmJ4OwZCt0h=5B63Y^ciok>0rYVWICaBE7$HP-~&L4C{Eoc=F
z%#B7y#-L43l(>=l^$VyXF*8wsoe5-UW~^rcIuXdy5Oq#HJTWf?bR3AKaVgG&7|aZ*
z-e)m1gRWDy)H4Cy&17f+KCg&8*HOJ*0bNT9S~v(gmmgFng6>APG*U3LFv2Jk%M){O
z-e_-TNcC=ti3R9bXA=dO%Rt9xnOKnSGV1T;1>L6!3M*4{b8vkEx(CEU0d%Fkp#kcV
zZGQQQ*{Ps3XJK4{JM5^xm)FF^7`$2l?n2Pocq2-jh@%!Ee`?;;1hnc7a-ari{V#m^
zxw(lRw&n50dZs2gOFruF<TWuh(*s={XJQGuGu1@F)EK;D$kf0b<IHa7{N!xV^n{rO
z?xLCc*Uy?7gAT(sQGh!Tax^X34y1aY1a=6hi3MaGy0M9cf(dA$1KO>2MCK8y*Bh{D
z9k}~I`~J)*aU#{L4r6o3H5DeHJYfb}F9uo!qyTa;`Z-9!i8<+sDUc>Y2F|;r&8WYL
z*Tm2qybTBLMq}{GZc5xp{i?*oSPyiq9n6iU2B77Zgu>AR_a;v>@VYdrHnmI*Ko^sm
zD8StanwtRK1!1a(C$90jk?I3pu*Ka*CKll81vC$3Vxa)K3EKoMR|n_kWafcaV<h4(
z6{)|O7k*<Z%!Ov4%`X(Vkm@}XV>8HhFbmM>6~-0{#+K%wCbgxZp0NSib!<fDY3koU
z3tD~*s{CMX1Z{OPQ=r6&NVN-=b)aU*yJ?9$X%p!-ES$?ekyd)*x*E&a(wxiK5>#@7
zR+$=;dF-YcuI-oP&&R+f+suqCp+{ku>X|8+8CznsKYSAN5;GF>LW)vzlX4Ql2l<=h
zzS!Fg*G^3GoeJ8I4q6QZb1LX08FT8mmFmq-@QxW{a|O^Lyr46UL5Ui)<QTM1z#RLo
zObeXzm}VwaFCHw+AScL}7+HW<<AD|?SSXl)8hdD~@rW!PaBa*aKe|CTaDq<Yggem$
zv?q=tHzE}e)R}TM0@d)K3kJ;~OW%x)EcGlD49$%(j#>^%EzJQfld!ZX!FemEnF-Zf
zpGL-};H9;oB^{u^1Z~_iHlo0VpdyT_4HD2eJ?OY<xC<eRi?D?uu}P8YqZhDIaYIwc
zJ!Ft+BhVGl=!ZxW>qM%zJwf*yf~JjNP6VB83c8#Vw3Hfc8!p}f7V7WGG&BI+d~c!v
zcbTyPcmR@Qm(j4DX#yT#F$UkLtN>c>WQaCUPh`BB;;2Z-F9nTFAzNjPOrUNAHI_ha
zVbDz+s5@GTbtBa)6JziKY7+&R8%;oc4A4X{rW^66J*p3WgErfO3KzJ`j7>os-mt|m
zewX2>ImjQEG69{eX=0)Pxp31$!NkH?57a&dZHdBu4Xlv?&OIY$$h$7FHGGjbJQCUP
zH8SNg1fRGTq#uN`ugTnu3w)6js3A+@g|B9~_PUWDj+Q2nok6gxlMD?F^$fsQP?>;^
z5rOS?L%vGD66dAKX1KPxk?%f3Bhc+^CJJ!(f$lB=U3CDuVF%03CD7p_c-)60?~?C6
zbI|fD(6RfVYtT(h6hP;jgBq%Mj$g6Bxi`qn3`Y(o-+iEF0VoH9hUY<JD~9HlpqtO|
zUFeH1eyN_1L6>2J=JH|gGcqvM1KrSu=fYup?!(alBtQI&j4i+oKw|?V=vpVx)iY)a
z#)bxZmRK*X#8=LMw?I<0`3E{)2h=cy9is%gj>yae>oH11)^BE1Z~hruSb(pKhq)0{
zznNh_>WNr4;%NVoAI~PnpxzN^j~{3=6X@g+6Fqb29zR2@<&2Rb?)rrK8%#~i%)#l;
z)Dr4G3-J64cn=~O?!(a*BtQI24b8yg%b@up&@oS-i5SoZSkRGK*iSaW8-6(2ffTsU
z#0b1W7w$e&OFhuZEBM@pdubT;_n5+uc`^hYDF8a@9O^zJLtMuc;i*S(?J*@k{EWf9
z4$#F{kP|OJBe<5JW1b8w^{^j9Wn_qZB9Qv~OF_rSf$9+x&|N6tv+P0h_zI>52AG>*
ziJOA~H`1tER)ZFWflehdhs+5=?%Ol5u)tXDLS!+Byvr0@v(+4_C`WC!npv1|fvOG2
z7Jgj2_G!|FwV-<52JI~dP4t_Yfi^9fC>VjR83J7qXl{UOe>R@HgKMWB`FRI)7mkI2
ziGmquun@GM&CnEdPnUw3v6-GR*1=38L!8HMLSl`o=@K@EZE9fzF2fBC%@s^R`?JkZ
zmq{R{N_-Pq)ZgL<Iv4~r(E)cLs54KI6RF-#G_(MnDGr+FHvqSF3@yQTohg`rPFTPa
z$HsbQc%m4`C?WYt5VW-gG`wYEZV5hA$-)wJE}Aj;4to=GY^OxxO@c_}3i3cO`R)Uq
zKnq&m1X|AlKCH;t5`1GE=+r(OC)47~!c=b_g1Swh?vshJu^#Ah3eXMgX69z#)5pxP
z907qhdU5UMBR}|H$B&qRjvE1Ob+9x8#jgVRv_34YS0g<m+_NRPu2iJJc_xt6vc?wX
z;MF>ynP^bs+8A_BHzM^FrzV$V=I3eY;XE3}jQTtIKxcJ<7B+#lG=mQP0aYdjCJM&p
zCKzWvAZ@6!G)lp}dIQ&misX-C!ZuXF9SJI(Ehuv&j-dwf9cc;L{R29o!W43yFlbLC
z=rjXkJyW#9GlG$iA;~Dlxn2zUW=G_5hI}^~8XN0@78-+A6@g+Me44n00_ad@vK>kF
zy2Qc^vhxen<^~mpmKLBhgp3u8jV<)B6^8f=8>-hO;JHo<$lh0w^9+qGKzH=wbe^dm
zzPf}4Tl=7Mv!FeZpk^T`9h#egTZQP0^Zj#j!E3QB@^Eh+p#D{zpmo`x#0PhvsVV5X
z0#LJ+3<sLy+So^ad2MK73|`Ct+GqpX=4EJV3QB<rpxIDttp$7u&>Yu>J_?*?4w;mN
zJI~Sxbks0T=iyC&<}|pU(-d;#up#JZZqRvA=7ykIZ4(ncLsQhX?xd{=F{l29KF~1$
zpl&nVsg|JjjRNQzBud?iqkbVj+ATo~%|TaGfDQr$ZEP_x1y5Cgj=dwf8)Z)Y-F>h<
zLEwvbjV-`i=S(aVEX?(c(T)uyYAvlf^)KuMT}lTk5#cU0GXR~kNxlnl)Gg%K&&I}(
zn+ss4*@G%(&}@_eXet!7H;Qk<(VY4hbsB>=u7LKhKqrzd4fM<u%t>|_)w?DppfhJp
zAR92iT@({baAA#m2F1t_=M0%SuI+r}XIs!#6;PK6Hp2rNp)&%lI|D7bKs5f5W*ChO
z&2cpe&2eqzBj0_d2B7Aai2~@JchKO9DQJe#*i6CH*bsRJ6y7;8#@TN-H^ectML~Xm
z-iQKPVh*}#%NRWTuK?;uq2H$FoLG=wRh0=lUd^NwXS>>*`WyL742;3U9x!*B7@2?%
zv$DXl4}%1E;;2K&4^L2L0kv7-?lc9Rj!R5%X6NEglQ?EYDR8ElDfq-2xHByc^(-ui
ziFUKnGTiRO(Nm$oouF%?KwSZI==K{UQ_%U>M1-eV0nXc5&8fe+&(zpR4|FvXEIdKG
zm`p(jI}%KurX@Ig2Ihu1hQY`WPuON0(CK=hiW+pe2IvGpGmKq+Xt~|IG6{FI<EU~d
zaHff=9%%PC%$cAiriNw;pkp)9J20O4MVa6(7M^1Y&1tar&)67z2N&Fhpy@u)s19aG
z66Zo36Q<;cp^2G+9_We%xC_ld8|?^$VG+)&6U~jNUiW}1Ztz%%8DwZ1Jf(|0mc24E
z^U@Q+8%ZoGaTk=--~R{OUIz<BSjINTjAvrqNcB1go~cbuz@wj_eW^yEF((s@8y<ZV
zi%K%{ia{H4%u8_>Jm7U@RGk6>4IEp7&NG9#(HOM-1$>I4CE8L>V%<pn$_6z2h2%z4
zBk)dq(3mK?8xfb2Smfc!GF0!rfU*dvI}KV13!bnt1$Aez1|yM9q+Jzb0=XE~!~nD=
zTLCm6ihlJ+aAI0oViEXQ2=fY@r%{?4QN4aKF#sJP47$b#>P90=(2<^|#uz785a~qf
z?*jyFCN~3}CkzWlOYo{}Y{3|nkqE8<ElO~1u`{Rsg`S{^M{petb)c!CrJj)q)_5k$
zfz+>FOdz9p#s(IUl}(0bptZ%I&5P&<w>st|mnLPV78Rv}N=Cy}JmH9AfhYO(w5bua
ztpjtWsUc{vmO^Jzy^=9CH3A<k1rJSAOYlLxhL#vd9;1e)QECa!mLn~0_ypZVV4`3I
z-cD(vU}9jZU<^8A810BDr_`dn#2ip;n<eAChsGRvKO%MJhd@gcL4y@=_ZdSvG~_#x
z>U9jL<N@_%;7$ace@rkCGjT^U)vFj2XwHVa&=fROMj)Cq@gzg)S1_QRDxi^hXfiZ4
z23_AlAP`M6a2{)IPJ@l5puL3P!=gbOk0A>JL0wk7DG{#|sosTwHEfM6Afpwa%mZ59
z1X_H6mY<zdi^>x7N>YoR^Ggyz*&5H~(dM`=`6Ry(2k(pq#W&2QCYGS_6wr}a=tl{Y
z=2EIxHzuZr;0bDYn3|e{c6$-$(n{Pze$?Mz3hEw$kMf0vDX8mZY@~qArM`(J`QT2C
zK^D$c6Xv+C{v<!v;pr2+-w-rmZLVje09q@9zU`1W2U5L9V{B>wKA^z}>OfG>5Oh|h
zg^3<c7aA7eiDc?mHij19^-gdX8iSYB;tfN*E~I{CV`>auv<Pz{C>eqZA$(zIP>d%G
zsb1N@lcAXrWW>i9oD9v4F)nyTBttw7r2Y<5V^9kMRMo&7Xa>6WTEPgP3(c#laJRy#
zf9t2QIb^iV2<k-8fUXf%7Y6006lJEDrdIi;R)K38lM38JqtxGT3LB7uJJi$?ay~a^
zY?J0vs@F8|WNB&$UhH9FXryPM0NPHDKC^`3P}54Br=*!v{~}P(B1X`b5+j&HjV(dN
zxS1iw5gVjAl=`zaCMMuvakxXxOhH|4qJq@C08fxoz2Y%3fV9{^$H0OPjs%TcnHqu5
z{zV@I@=eW4$%o`5Gu%t{%#nA<Ql~2h&q;=$VLo^R7_{hzTsKm^@`2|e1IS%I(7`k#
zLsN{!qePBW(c(f-Gf0aP=0+pXl|Bj-xDokAP%PU{%#n8~qi#Df!m-oD$iRdPG%X9+
zj$&ZMWdvT86{H_zh<tz$QI|*}ohC%wR%=r(@OV0CKen+Eml621D=>!(JYNxHXU7G~
z14&t2hUR8eFEq@|Am^3CHb;VP$iT5V5^c^8-wZ$Ujh)oVj)o?vn>ayd9aF)bRBy3@
zuGIpK;K0HYbT+OD_RXf~;fZI8pZc3(LF>*fOiUEu?gY<RV%@ll=1zQ5{AN^dy@EDC
zgVx2v-Dze58m2V|bp+53lS6kWo+*A@8)V7v?19$pgBI1o-Dz$Bx)+`ZcjB8n$8{Ae
z`R+6{Fa`Hl%q*a*<SjwhmnoQmPG(12CQsx{n>p2o=0PWgf!6)P+z2`;473-T0yk2<
z`D$*iX9+sV-ptGZ9G;*x%OE$J8|ay#?OSuoPtC|ph1}Deje7tB*QQwt;u>_ZgN2C#
z+>Pd-W|x8)1#YBz{R7+lXJ%*u?goJBAJA$-BNL3~wG-%c^K#JWohj~H-^{7MZ`RPn
z5<Ei$cOtkms9;9E6KPQEn1dH=!JG)ayAzueopUnNO7g*LB}@}>&ut*@-K9<qZe$MG
zg#~vb<oXOs+(`A>26j@InE_}sk%<C$U`)Zx&{z-s<Wi(yG|R?4IZgd*T0xt)K^FqR
zoM>ob3c8*Gn;WANvojKl^2<P3#;g?Q<)Y@)zoymD6mo11+>z#npspxIj--Ay1BzA?
z69rSyN?_2K9pvabQ%eIqQ?x}VL@m<7wR4;N0vwhcP0gT<U(m>dDQNk;1?pmS;@n5|
zSzikSJ#!;ta|M|DEX+Z%jNgHH){s$u=QgZ%0UdGxTE7gsiwktVxCKV#;*pq=m6@BF
zoROMlWoT(>mWaEewxIfWh@m;?{9({B&Y)AVO%x0*EkUy`pfwcegJGn&6Gt^e{#tc&
z&>a<^EtZCs;8Te#4fKr6&5RX{jm$x(pJANVWu#|_^AHnr>R-<aI&d1a1pzd23_7*d
z2y~|gc;lTpTGO^XGbbl0KOgtnEDNevEuaYkP{$DNI7@K34cc`_vg>f|;3mJMF*Ji-
zIS)D`1T<4=0BYZ2znCc}F)tCi+S0fP_uw|Jeca?b(#X&lyvPJJYzSIgWCYsRZ9$nM
zsa~sqT8p4W2)gDEJU?k*4qB5AI%*buQq40xC$%^;5j-_%o`-wkJPkH<8=8PKFx-*G
zrl93I6giUWwTroho-wF)F*G*-pPd9c6V*t;5LD@)RnPE!w3Vqi*O|~@GdJk$A<#xZ
znEQ+kK>IAobszO>6(i6hS`!7(=1R~gyCLXuWg`VcEH`k4<>%yNCTD{hipH6^TeIL3
z(5brc*U;1)k`SS{gn?>8&;iF3xRL6k?1s=OUQoNs$k;*wbY`Ft){T{J#1@TIuU!l+
zjr2fO9?XqKh9-KHIMD*vu5R*6ZxbUka32*mLS|xSfop^eIUG%rs&M6L3tW4<DR87Y
z<Vqx%BS8mv8Jb}o7A4w|II0-(n_-|`WT5)b+z>RCVxj<A@CG`x(%i@l)E<L1!{A#6
z4UKSzAk_!POw2%Qn@kj7j)N|U00k)e4JF9eP^RH*Z-b7mGEksusRNrggPrOMISI|&
z&<vyFN30X6J}w5jGzA>T29Oo2pvyMQjTErC5&1Y1^D3N|)>%-0L$?XIm1qJ#9oNJN
zbi5N~j>OSvAwNqSgL)~T<IfC?^guHnCZ?u(Cg3q0^vz;UiA9N}#l_%N-sZR$vsqAo
zcQ<G^7HF0OG+qLBBd8}$nHzCbG31vz#^4=dpd(75M=+X0kBGFi1RW;_D|O%-sg3o_
zaGo@5foq>P`OyqZizcAEIzYEznVEprSc2{YMDIg8g9egwz{|Uh%W+=kV1a9|HwA7q
zH`D`VYPcIML8pQ$P~t`$l?w%Kw6s8Rqp6VvsQ-e^jmWLWM4XG0EvUcU8?;^;bgDEg
z96_h3nj2vaM`GQGqxV8tb^-0s0aebRtZi&=3A(Wme5H&9mU9R2XBQmx3;E6iEw=)7
zPhrjj7u}|2IGtyvXN3FAHVa%^yD4y=0cc6QiGqo-3HXK^6GJobu@WXGMxX<_v6VJB
z4@R)SwWFJS=NVf-ax!S+CurK&*wPq$7>u#GF({TvbRLc_3kA+IGl#DAGysp7fD#}0
z#5>TrhFFdb$DjCcR3#LYF{WnV-ijggC>;~f$)6SqhM<E<(XQh~%D*P%IG4>@&|nL<
zg&DXUgt-xP8=wVcZlwMW2s6+{%ZOVjj4eT@#VbHAp+G(A3Awj|XVlJu2K%@TK-W<s
z90@v`12k%4V5Vn`b{-Ycj--08#TayvD`=`5w7%RJbd?r(;}vL@A1y&5x3<j+ao$#L
zLH)a2O+beef#$|xZUo;Ei0uw*qTPs8tzcP6XJLdiCPmeibjDnUW}r9>(ho93KIIw5
z;yIKH_l!-rjKG%}f)>e<uz1b_*DhT0i&@x8TkyOlcm=yLxRNq6GSo9CwV1`V2bX;3
z85&sVfd>9SyX!$W?-?3ff-e;?F$7=20js3o;{>>m7P0`ZO2pC!C*N_PL$X2h*r1y%
zK+CH^qr0Y-pqni$^pM&|aL3_1lgYvul#;0GHbdxT@kW-Ac~{VRbe15u8JOu=VmVFO
zNDp^U2b@%?>pBAya7Pw&cpiAB!O##CV&I)c23T5_MtZngM!2@vk{_=|(6ergOh6lz
zO%#lbE%iVr^&6R3V$BnH!w#wZL0*JHzUvG@2l88(C>UCRE*>&b0M+iGdm_N&r&wba
zPuNj?r~-66EU3=_$_t>wSwN%XpwVzc6O6q&_>P~mFviiKB)`Q5y2l5!LK^Ne3u8TF
zGX>DuhejmaPiJ9F^|quT=!`E=jDqfR1f4x?1fDy`>ax_#yrk5kbeyB1)Za#HWDGip
z43y4{!3}cI)ny>ZVvA9NuA_SU5w<)6e6}EHX2TeC`-g(LrJg1FEyHMwYt1up?iaD3
z{{C4|#RZx>hr81ZbXh#b?!-}Vke^FnxBY=`T7Yz}L5ms{%#1BCHdG=lW-P=x^J_ta
zZL?;O?N)FnT7c#dC~+cE8xpyUCO;HGi*-PU0l}RJS}9>cz=>wKx7k@x|6W$m@f)B+
z5X=nCz*kR#PK+^AFf%gOGc-V5ndO~RTAZB<T2f?MhI6&0g$dQG640(SP!$4qA*dQQ
zqQr?*uTxAwEdnFZP&_mc%|SCqSe@vbn3@8*e%Hdh0_U+*7A91$TR>-pf~KEffoKZ4
zbq#ww6Xil0?47lQEVMMWG}Z&P1;N94W{_*S(AGS`U1))O(T)Z6x6Yb?PT#NqO&dU6
z2s(}0gaQ}RWW*aZnhc()gx=j`q+kk~$3(kK+c7C6F((JIt+yEWfVV02D;ChQEYMO_
z&?VZS124gQxJ^wh^o&hV%Nt^yh-18){8HQ4)DS$q54zzDR5XHav;$qxg~g3Xbsz49
z{1&FvuUJe$$C#QZz@2CgI;BwoTQCyoL>&DS@<Y)CR2>^3oM>uj0XiZZn-h^&pl9Jc
z&D4SxJ7bOYK&Q;Xf)SK&%q*}5Be8Czdfft>;Wsrl1G^P6!*6P0re}$kVUV0?o{1+I
zsb0AlgXW<@#SPSnCMKYknF0YfnkM2rsK^3&V=R@LV&LNgOcY?jXac?)gd#UmzY}8s
zIxYg?M$n0Apvge|agArwh6S!`gvrm=u=XP8nm|y~7PNxL5_HD5Ddxr!)bpt=l5wX=
z@DM7Np(XO&X<`D|M+A4LnS~yx?gkx0hJUvuUUyQxvM~V-KY)r!BNOlmHlQNNNWqk_
zGtJ9!u5PrT{^n|UDP(A@2Wnv$n;3#ib0ZTy^tDjv{cC*gq<XDmYy#P%ZwhrMXt5C}
zd17&=Z+=Q5c%7(e1@3iu)W2sK)WHI+oPfK~$P&EOglrd5y~Y7eRD))M;Vv`--4~(&
z%1P*P9hR7#nFBu8)B^Wek`~n8OKoBXTIFq`0C%DVsB)yhiPYalZDJ1DmTYQZ1U^6;
zbPEEgFgG;9SeoaYSd^2W2M$KlOq}NnT2OxrHRy&0&{|u#8$pNoTPT=P;702AX+Y;X
zfI14G`yb8Vr<Z__$U_^i^-WAHDoM>N28~ge6yV&?VS($?Ve)GmSn&utuOD<=F{F`Z
zY-x_=U}_@WNcEZq)U5#xe8b!bn!Pqs!0N{QjN;V1%;3b7ti%*>vNSKmxxvVS`d1K}
zz|N<J-g0PSY6&_ifeKEgdVK@R<)G0DSfGLnNfWH08kAX3kONAZrb)QR?U64crcT2b
zcKQ$8h2VxT1ump|eFM)t=CB3A7NA3_Eil(Gha^_!<QIX%Fa`H&M{}xoa7>`f(?Rz#
zfM$3>3Dn$3!I*3(QhzfwXh{WVumW_5J7|#}s2vG9<rK^9n@&afd3l-Hkloa#*+n=f
zk*L3$8Xncqn=L_W!$D_hn_*sUNxUnmUgdy}@dHg>g3cfZHH1K?OM-6YAn3{}JYh-w
zku+0C!vf(-@b)~=MPKMQaH52zSvKx|m<9D~9W&6vV90Ulps+Ln$GieoSC$r+q~?H6
zcsI+%y+Drod#g=M%^`O#f!$`JU}A0ozH<p%d=u$L>Q^+-ej+TkLHXMVYcQhszwpd&
zT2Otm2A;t|{X@|0zb4>$SYuFHMH_-9#huizb3iAdn1C)uFa)27Vhq~rXr_SGorq&b
z%<zm(Qh%Sdv4sV==K$_&8<;4VfTr3(Imt*5{ak;fp+9_Xr2cMe6GKz*v?1J$pq-k8
z!?6^13yAugtw9UI!HsfgngsR4K$Q-bH0hg}o|l@N32I>&mg78@)q?t$XTw`*FgHS5
zX%x7T`V|gz>IQb3GH4{j*h~R*wU!xL-u5lcDM`#t%m#NJ%&KsA#Vn~_;egs|prwLv
zSDKiBT9YQA)2vKk3k8!iOH%cScO(twZy*=j!X0S=K4XnwP?~4q?uS{@pw2Ob)QiTD
zlfgjC8Ng*ap|GsPd2^Ko^*3IdSek<;jA3C3>Vko;_`?$8;Tf4FC02%(7N*&_hgoQF
zkG3&nTp#X2Q&Vt%mTVVNy@LblT7%YDz%J4T?Qk{+o$zjqabI3=YGzt$Q3+^+y?GkW
z_O2xjc3m4oR^P+j2yU%`4@E)W{z$AFsXl{aYyxV7BNk;En}hDSRWP(P!5H)-CM{Zm
z4{xRFya=eF13Hlqwrmu7&@TBdq<S@D0^KJJI(`JS)*CcKVq~IVXl8)X?D4HkEdq`9
zSy)uzJTAl1fcjO8g(YM|4X6<bn)fsW9qU1X3#neem>NQE8ia+RDd@Iud;w^gjdL>A
z64!2P^4Bh#g62Fxi${$?$1s7`2!OZygAepD#j@J~v}F(HP0N-B)bGU@8-aTTplw{B
z)tcbdkY);oMy7h^Ca8@F;<7RI`!8l@kR)hm3cgkXG`a`MBxJh~sY=1Jf5sAdmostu
zXOPdE#<4NR#L$e(1iaxgNIwYqh-uurWDw^{BONAfX^10>lb=E@K-<rZ%@sfgw}OjH
z(Ah`EW(sDOhM<inuy!PTPlpArK{QK4s%LJ{DL9~68#80*i8GeqHN<A18E>>15zykF
z#N>QXf5sve=dp>PO$}5&m%_*ZazzKsjYdYG2Co7oZlroHH!?N=AJhtWBj~y%Gwg26
zFUl{^Oicy_q**r3&Z{N$FEWN5oM>hQ>1adG@iaEWSfA@etQ(QCI(4QP%q{iI!6yhq
z-3VIbZfd4rhQ*O?sYOMJMVX*V+tMfn=SeA+)ZYaQI$abrs0#~7&^d9SrP!DONwgcO
z-h2cd>Ik|h816>UInjgz(j*b*QesQ$?}7!jzd`LXQ_%4gMxYxA%|Q1!ni&}CVI2RL
zn1ge3g(dh-0IIfaVR^+AwEWrtcIGYU6jUR$@d<o;jzEJ4R4xt8L5EC&P8Wqb%+SbC
z&qx8Q!w77hu>{|+K-Ew)G%^F<rVI-;Lr^_JrsJqS1OeOE13H%#lrumfXKADWI+)c0
zElyF+yeYuBo!Qce>J^D0XtxAtX@Z#r_<|77F>A(VlsS^>Ek;A=O^xu7G&9sQA?!xn
zhX+|w|GHvBGh^@>dI&dyW`YStwnZM!;U-I5JEh5A>S1UOS^W=lqmii*X#XHKM|vk_
z=9T6oX6B`W4=Fb*$GOhT64#b#^4)1<3K@!kyVC-6P$t$0C&isqpKJx~V+HLnGc^I-
z@dWMXgVtc1>Y1Y*jv1Vhn30*H8=RPvS`2PM7$hd*9Hh6zwV9gyAT=~I1)o6zcdCV%
z9%ykPXgH5Dr{d_pP~cQcBS@hR4OP&Avt|n5(}f7R)DUl=QolE24%)V7qF`ca2_9@V
zG6SF2YieMrXNh(;IIK5gWME)`r|n4n%Zx$$(?N%B!`%oyU!4LsQoRy_HGaT@^adsh
zplduVASZ;Ipx2Z{O=4TpVDGi5A$Ud;?nZMXJtGCs;o#&tk?MUJLvzR#889arnOcCB
z=VEgs3B@K2wqt_^fIySNph;rTfgP4cpfwAWx|8Z%8dw7kwC=+UG~{OjK3U(y%tX%+
zZ72<vy$vlbEi!N}ZnvbtrfgHtA_WuhiD6(jnj3=-+@r*eR38-wrAs3dgd0IO3z;b3
zb0UFKlKLC6jSNh|Cj-Eu8gzj%^!P%Is3xuiqW(?B@KVym2;9<y45yfw8ewj0C(?;j
z@A81JvobbU0G$s9Y8V-s8S0sXj<dsbBU%Y$o`ic4pZfc<4Pi$>LW9!K(i}7nfGsRZ
zaVPaVK9&~XRvRolLCMtENP!4<;%l%|e~Y#u=pa7Ok|ayWk#a^RW}s80LDOOA<0`~<
zb*aBg8+1+-Xgu5)=16nU70eX5k?K{B5$FyQ&;lQr8!bRR3k8CX#M9NK{`JO27Utm7
zAmITCZm<({B)+~b^*3vSZf^lCCI;P#0$M=@D$yagzgwd9B9K$0MFq}dKrE?$sWGfX
zH#Rf{9}xyA(T$DF^w2N2CEATt@8g(T>KQ;z2!puM(AY%JL;;%{1Bw%KN-`n$Xe8s@
zmv3oG^;!osW)B)3hXo^Oy4`{zCsMzMW2R>T3PmGO6B5*vGy=^rDS!q#&}U`65|i_j
ziu3b8^EJk}Pb;xBrG9N=WUdEVhYxq82`KI<b0qaUIi{f5I1>f9Bh5|q3@ivb(zF!!
z6e9I^Y=c_7pdH3AM;aM|rt7de66t7F^E8~R+bxl=Q>M<$7wGP1(7*uPjmDtMhbVF*
zjsZ6Er?M?U2@<sa12jzsT_a!uI`PcHLJw)N1$-*o2<Q2PmbkWQlkYe~BMb22Jy2wW
z_ECW@M>aGxQvlseg3WQpIB($sB^9jGHWWC{3{pqK9cN*wXJL-VaX8OTw50xyY)ex;
zGXrCD1q;xe1Ng)<P&_MGn(0}X8yUhDD1aBby5?l&rGpminc+U$+>#a-T^oY;io;!K
zY6%)CC*OrsuTfx!8Gu%KfHtQXTYxs<W4%Hcx$$6*XLgDD_gfoVg0|Y5fS00x90^+B
z3_jl%%bqFZYaj4AlIk@I=pa_m@B}O*O+X8gK+9zaI1*2rn+995jUfAc;Epr~-Hl2x
zy79HSslO-N*xXzX6wRP{8&LNjv_R9s0z7Yne(PFhaZzGwPF87NGVXpq_3yL>^`k(G
z;@}Q6G6!AT3Yq{T%YitC%E&LaO%2V!JpmIl(82^01<<_@pkmtuv>4ae3|2J4ulF$0
zGs3-mi~4t2gN~>GwGct$C7>z~bi9<2g@TcRg`OeWL1(ZLQ36AGG}wV{Vg#OyfxFSn
z7&N*}i5scjV*%Z|1v=6W=0?ztI5QmKNZeQ+^*3L`w!;~MP8$MkodBP9W(c}3n!Gs~
z>R)DUY+?dFR|@7t6C=>M6$;qgh&GIeZ+MIbd$2)w5`ubt(4Yiw+BBoooyZ%pv8{VW
z-U3bBx>q9u6E4s(3kC|HQ{4@WxQxJy_=EI=49!fr48aXSFo%ef<B3}!OTx+Vmbf<0
zl3&^y8XJOJ@StnaKy7eP3m$Yqhq<x2o(Y!H7POWdcMk*Cjl>kV&)gh5{0n!VrHP)o
zCFmkNvfPKG4NAWIU=w7fmS*6)K|ym*#%9LgV<k<ooa1e#XJl-MbG0$9tBA>WAEfne
zt^jkNp@FHMu_feSPF(K8c}t%qu3fU^yU)-Vbh#?%R8C0v8Je0xZY}^FriLT@aJvuJ
z4q5Wu2f8g8)Q&R(onr&Oo81_cFBCv)3d|5^+{3%yxSJx>-x*7T{txxH#)59W0}VdI
zTkYVJiV3#b@paOue+@C{APdmBXlCY+(hziqn;EFjW`wO#hq#*$PbZBQTVsvDW0P=4
z8iV#RDVSMM;7A-}<>coVP%9m@yTR1R7~BK}-;4%2eigL+4@Z8+lV@-=JIQw+=m1Gj
zvmJCu7Py~gY7E*DqF`!dfb}{rP<f4eT!;qSVa*J{GuxnhAV4V+bciHqm9~K~#z}p|
zj%m<fN30QKu@~Htpe1xh3ZPrN(T|uT+L6>B)3AVCvkAM27}~+GFxNA-M7@%VsD2u#
z6Q_W6gp&Mae#S;7;AMWW>jXf>kdX<ti<F3UBGPOuW_#Gk0Nj>^E<Y!(J#1)3L_-(%
z<}V{IBk+wqpvJT@7kJM=5Mt|>kpZsFiR6bV=pq%+P?m|Mu^xEIxjE=UY6bAEY3Q9c
zqQ={d45+_D(Gb3B65>cu&M`Nm%#l=|3j?jR05yGJA!%d?I#`>qBXJH28W|W+J(q)4
z#)8U8gd;5px)Aq>ppgOcPD$!aG8uyI6a+2(G6HQTH&HM$GXO77Gd9&TM4N_3>!IUb
z5M*RP{X1bnEnLuP+Mt64K~u>_&?Si!x)aBQ82K3-v>D$Bw7?3qV+k}N20303e2*yR
z034#Nh9_B4|6*7}Gtg9oi2`W&7u4J^1kVB}P~=D)tIWx73xVzc0yWLyH)NTa>zNvw
zDd4^#3+G6ykpZravgA7td?-F><`Z=7iiwE=Xm$rQhY2byEe){_1RLP!SsNLE_bEeb
zKID8&zVnO>LDLT=3WiYU85x;^Z(haYJX{T3BLnJR3~L11?Eo5ZgKp9{0$m|#YKC)@
zKAvH8BLnJhj5RSa2Jg{_-F$Cq06w%0+qLp2O-OvXnCg`a=o|)6TLSJ#6GJ^qBdpiT
z6YEIo?~FAuF#zAfXKH2!-VbeR09vJ_U}|orhkoBUiX(CMU5yNkkeZRmnT7m9+tkny
z+^vB-(%2j{nM{!*anvm2=V;J55#X({h8EzEG&VQXGXpitjLh^bu#AO*`rSAS9B^Bg
zss#?{Qe9954Z4a0v}y%(o2IF$nSv=<&ZBy50=n86)ZhkPCjpuu15GqqfDRZlGXeFm
zVe@wIkusbMRg4U9?UE%wYE41I*`VP&=w*<mphM9?Rh_AUo*|+xfjiC^SD)X=0QoLj
z<jg_7<3J|^f~Ufur-6WvZvqw7M#g$(SkoPzdYJnAV@*s=z&$BgFBMcOg0^R4xttIA
zzF+gIQrww?>YWu+BSY}KJKT{bpb8D^&3r^V5~)7H)|p1$oEl_gWWi-*1oBppeh{wP
zgW<hl<SsC-ds)dZYz@sJW9g=#1Gqs=088+JWu~C>%+W5LDbLKwNy^X1bu68c0j_&l
z$#)&-Y!Ohm66QM4*&@cE?eyjtSK<(M9gguq@?B>Rx_|=Iy8xZa0_t6uS%8-Dn}RM0
zN9$d9CuUTFui!GT!gZRp5on1Ql?ROs%}w+`Gn6JU7h0Nvt5ULE2uieADk=)X&_vG=
z+(QGk;6ZyC4M5jjDS%D_GciNGCCoX$C<PLR8Mu!0GcusTU9ARY;GuNT`R}0p5QfG^
zdL|a+yO8=D1VJ}HgDZJh7=kAnvAU38E-|5ca}Knr2{c;_4?pm(Co)}!qa8<n`ZF{I
zT}%(!YzMiM&=5QXtYBhhpl3>I`DcP-eG>()16?={+WKh<ah;I?XsCcp*WqZzQQ$fQ
z3-HNgCeTAMjEq62`YV7|IiW8P^G(f5$*%(EUb75b2YwqFP=6Pok%=*?8_i6>n|zJU
z^~iN2_3IHMJyX!3O2**zI3^09Lq;r(6pW2AS5y+UX~f8Y23r7)jlrcL+>NHDdf-(~
z<hzmjbqVMg3}bTzBMZnjKv3;xY^GpjX{m>PDiCt-7WXD5BLf=j{WG@&FT#R3612M)
zbOSgAj->wHKMNB*V^FOOIspY#vlyB|?k5KoM_A6C%P$8lIXA_5FQ$<J^{;3Jt<<+L
zF;Rdy(a6A1!H|6SQN3aT?O}oKFb4%8XhWSD=(t#8jG-2!Bi&6Cvv78VsK4nCwxJGI
zMVnjd87Y8ICPRy4VqHk}Dh9Ly5VR2t=0ebn9VpI?^h|I&5%)ETMh4WspcUNM0u4Qz
z8h|HgEkK8mgZ9*+Z=6K5UrTVE4rF9N{q24hpi?f8+y^@8)Ix!L2jW;3M?o{f&>Y-J
zF@y%7p^*{j!a@8l#M1?!!A?I@Bk+I$+=ZaS-3WzY9<CF!jSNhYMhlRKg(wI^3ls2x
z3@{gh=3haDqnQE5wPc87h{uK0-{WTqT47;qu3!l|LkqNt$qcj|Ou^8=2(vsyy-n1-
z3U_v){yslYeF7TChr81fQuR^jPU_b$1}5N!EzF&uDJ9St1QG5m!*x=lkpZr4f8?i3
zP){DT$ji(GGUx_cT4SVOW@@O1esvN0Eiw3<N%e{bwtU~r2vl4`cD@@an3-UnL{5q`
zaV(jmAT*&z(wP}TkJAQiv@=pLGqTV#LmMsuEdwIlFr)rnKzK+Rn1SzBHwJHnFf%mQ
zGeql96X`;#S2(a6Y|Nl81odA{Ocby=k;sM*^|u0=K-b#C-DqkKnogv|ja096Ow2&b
zrA!pyZnOa1u}&x)@wLvVzY);b$PzN+30m4^2D+{he1N|xXu%&^3(_$!F%LSxSb=M2
zxsd@4wgFmNfTy=jp-u#CumsH{lJ7*SS2m!l20@pG7{X3<Gc^W{qJUcErfBPu{PMFh
zi@=uw8Ry|1rltP9tR|+Q!FLk{xDzc*^gvBCLyYS<h;$*<s~8hdOB^)C0u4k^O$eH~
zGsARZKx$EHl~Za_dQN6yS{h{73}0wcy`F&;;-Iraz{kRX3vtjL6P9Q*8>Bjw>Z51I
z=BD6!2If=~Q}AI**xc%vl#-fLo|uuC1RAd}&nm##*QWmdK=6n%sDWk-Sr2Vu0bU_V
zp);vIhGt>`n*TFVfQ6>1G3b0r&;gyOmti=iCPGfSEyWXvRIhPhcc;N!2e~^9TObnS
zK;$if)ai%8^NkUtGy>fUWNM@U+PQ?;+$G{Fa3cfcZHZKJqlF=)zYTSxi2<lfMv)t-
zUg3Z)oCA-Z!Q2QcC_#5cqm@3v`OxDoQgM%)Sx|ji2GsCDaUE#f5tL^vFgi6vIgt8Q
z4fMc1Ljz;*umGs40SyO$u9ZY<^&r)TX}Hc7FfzcknUwsV3@oR>`mfOa4A{m4h;$<L
zYZgn$+!1V@h>3}*o(1-0A|;7M`AM01#o3kMnk57Gau(`e#A*U<Pr#iCK5Ew-+mag+
zoQYJkU|Z0Fyt|XQ-642(OPg|mR|E&?2br2#aG8R8Q$hMchRBx*nVOk#nSy((coxl=
zaT$S+ga&UR!McJ5*M30qS7aF)8tQ=tI6$*a2B7Ahkp*~HDrhY~wq4PtdWPn>jy5tf
zp#D}sW6%k7ps7007y;<eNptWT5MyIYj6DV6`S~e{MJb>pY?g<+FtDV4bJGHJDJJNg
zJPYt0v!JE$MivT`xRL6mfvExHpbR5WzYKI0oT(-FpbSf6jM>Hf;*z3#oNY_$Zv=#u
zrAFq4df;W1;MTg4g`pn$%^3t-hLq{4)7Aj51pu8{ZE6XgJ_g;lZEB`qWNx5mjCLk8
zv5AlBjY`l6C3tHC)QzSFpcx$UooGn?3o${ba)KHhup%CGwWAr<&414M>3R7%kRD?y
zuG_1O3=OEh%m;j+mXV19%!!~@rMVHd{fWdnkp_)Q$RTfVCt4VR)-ZrJI~bzw@<g;a
zOtbI=BJ~@V7LWshVJ-wEMMJECNTdsqT9#O9aYF;7k{oqes-Y#9At<MTYEs<CoFFQ0
zLo;(OLo?7&EvVuq`S=s0U7^O7=3K_$G7@Ar%Kd=EAAe$GNd4`DpaTp++rVL`6Bt?=
z>lqsnKAiyfHWWh|>>#wX1XlqtM;aM{ZjYqQkyI}$Kx<w=Ya(E$6BrqThH$W+PT&I`
zN;I#)bwI9>p&`}F2_q8&@Tp>O=b3@dX(QKpR4*jVK-W}&F03>%1=p#d<)7w|tK*E(
zXIN5;O7e3Ob0LA4j_a^yBST!*YLef-GX(E{GEo3sa0lAr0lM(X0CEc-`L0ANuBg*K
zF@&D`33DZ=1!YEzE6Z^9@IYspQh6CS=l~gTeu2g~Xf2Vc5%|_c{9%dDm7ubks!O?H
ztBK4EO~6~C3_)|03T8$o7!&+X`KcMXsYRfE2JS<AjSQ*3lh6?47|@BDFejRTSFBRv
zMo=Y5)nJ63_G)5o0A45vI!DaJ!T@8#gA=iNoBG=bL0w(Y-HC7~T7oMX%3MkPTE@r%
zd?>96cv&)NGd=jkW)l-Lj42`C%$)S1{9G$TOAF&<T=$F_8Pej0O%w2?&Tuz^HwY_G
z;zp|1H=v^+4M2wy7=n%qgxmsZYNP-<JrI3N8__B?Ny0h#2Wmr6xqyTfJ)m&|&=z{|
zLPl&G=!tY7)$18hiwCp`!q^<LG#ONagJz>GFqbB~<maU4mx0Pg<22l@9$Y&M$*-_s
zVQ6dyy4=MCG|p*ep#VCg7X8S5B3(%J3I=q!hlR1Z0?dV=gDVZNJJGi^J3pf`F&Eqs
zHqOHnj#MA=Ffssb{5FBR60~QHVpmeVmH{0y0Zx!chTv7JumlM@dJAnvAGM;v)1*M&
z<Vc<789YrI8h~$;gWdRHfKh@I??@c=4EY1VMy8-cT1*r`_q>40Hqhw_pv}xipiOtC
z@Uti2`-P1xaSaU`g3mvqYHPyKzz}@aB&Z1qDj7jH%7e}bvoOOrt<Ej6C^0_|(p4zN
zb*ZkAAq_6u1Pw)l_CT0J=bp{LBh*F|xDjdGgE}eE$k-U%s70KAVxb4RM#E4Ky>vw0
zGHj88b0Lu-4R*_dc6(ZY?)oqUH!4605VViolmbWM7)GZcx0peO`i(#fvp|jo9fA(p
zT@N~Y1j`0?&>e!f4nZ|CG^Tnb13JkHG=^>jJ=g(MFq#@E7#Ue$bYoCrIuqx7i6QlG
z*MyaeMh2j3X<^r&8yT8oY>Ob;jnuDUKzlbpJ9^Eb^CqUIdY}t6jP%f#5TTacct$Cx
zzjf9KbTu|;W*p{73nPjhN%acG5Pa2)i2`Wn2Ix3`(52&`vzH8UocUm?XK0GMj-kP&
znkJA`2wQDnWB{7%Q82`^+8`jcs3^arBoTC5lVu{V%e;*YslS!h$j}V3>IJ$a!U%Gz
z3`LHldM#sO0$F`-W&-IZm>L-BnJJi=V)hc8QgcAPRa4x1BMhm(nHF?h5NIq9?mQ!N
z&;$y(?!!^HP|}5gtZah254t)YOZWw6=0ffaGswhs|E!TA^|#T&W@^nqGqe_nZ3gC;
z%?P3#NcG-}3G}o{m;<3Jhs;bcUFeePl9~_dr<zydZY@%O11&rVp@X5uprFJ$7D|)@
zslR#F!~k;5f-z`$Jm^+j(4?N3g0VT~PAB4Ah@(OwKcARb8i1FD!CVMBaSOEJoNO0T
zeF_G&ZUD3k%h<pae0QdanUMnMzC!fN!-Gpwb8=Fx3@y#g(sAcw>hGKd-ADpj>;rcn
zXduUg5+@?nCD>+ak@v0QTW^IlBa6Ix3fCz^1Q$#hBJT*p<}fp4hohWqgtFkv5aBSS
zxn3hfGea&Ap#Zr<1JrIYG6ZjrL_Yf05WFG`+AqfH2&C3)5Q@EIScbee0h?vW_XJUH
z8P!X0BXiINJ|+sFk{mQh59+{}D42lGvbL~*ova4FEDmz1RBBOCVo53PrWp0_cQFGU
zh6y@1$qaO0gNXv@&|3u)b2B|l6LK7gyowuJd?Bx(rZ~Qk7s6t-45?8=v1Q0tRA93V
z`I-m{Ei*Jl&gf2w#i?%jc_sSZVNuSG?%K}2t`QdcAQ6|;;^d;tf|C3q1w+tT%AkA;
z9$^7Va_PHe78RE`XCxLW80h;XLYap8;h8BV8O70DCKhH2CKjL}G1t80{FKbRbOj?L
zBT(iI(hn|8Dyb|;)d!hoh;--~L>`*?L6Z6~z4{<$!a3oYd5(F-nQ*>KW?EWmQEFat
zYH>7|fqp?^QEFaJYFbHBW;%pZl$o9Z;>99ahCGA`G9BbA{qP9Kz{ntQAQ&2;hk}tY
zsCo_pI~y#AD-aA#5y4<;p<n{ShGq&T;L~Oe6p*1Yc#O?J!GO!u5_BDlxq`Vd=o%Z)
z`HkiZrr=}yAnMIc4HQ5a!ZYA9w=`4$VN(lZ1rUacD_9tqf-#H_G8>7FVmnlv3rb^?
z1Br1NLJm_f0pB|ZQ)~!YNoSy73a+o9f*2-&w16;F9%`C_fr6m{G7-xKk7@-YBXHE<
zNhV-<8YUC{q@u*+?9>ui8iI0Rsff$aNWUz#q9iphr8qM$JtvjR&<v8!KpLD-5*?fe
zl1j=<M@x|DXjZ}bFuT&ZjLg7lQsD-GT$75BH#S1C8`%OUkbNNKP`@Da!3KZ?xJ(QX
z7JvjGJcPW3fqrpmZf;^pW`15tYDEc`g^_+{UP)?tQDP2+Z-G#dl384klUT`RX#iIP
z6EZX~0UM2Q42%o2i_6f^NWUmCB{MlO2b6cAOi&m?ncxtFvO#V|&d{LD2~8C6{2b)t
z?d2Y<?d%&I>}d(kvq+^Hc#aoGb~dy?D%6bN#hQXC_)u`9)C@||FpQS^jleYsL@kJI
zY+|GUq7Aq}rogZP)Jy~)q612D87P=pm?@Z9m@1f=nk$%thf7SsH$s6_fQnfVZ2`W{
z!+;B{2HdJL1@Evm2VbQCQegnvIu3KGf&rI-f{CTEf~m2Af(hufSSW35XaaT*NZbfK
ztYB(jqyS=BfUj!-yOs+iYoK6kYN%jrX{=yuZU`|4+?+B{Fflhq%g>;w!Iz&w^3bRw
zx7atd&`&Q)EKB7ww$v{y%`buE5ajd$xpD$(jaz0;NotY4TTWt0s!M8eeoCsoPikIz
zNrr-<xq+QsaY<2XVlG$3oLK+ee9Z<tcRq{$Y;K4Y<c^hy3f*EaAj6)j(CH-c>-*Wo
zAz8XVRp!?&-z>5Gbc*kjM{+WD8b!HlxVG$8R`}Q&mK@0)BiS>5r9$2%W5c+m_4{l-
zmN@J>XTEdd48~ojwuZL)U3{k+G@(rOn)%AMxaCq3kzcpBX+?cGU+UT**5*^%dWyrB
z{pd51l;biV&K&;8(U_wXKV^#L?2TV)uUO9ywK1(`4*M9%zy&IdAdUu|zm}B61zJQ5
zpL>UAi146bKX-pnhKMvp&kvw92Cn4uL-R60K>{j@LH#`(c?7B6H?e@%c!mbxU09GL
zhm}OjCKzf6%A1%Npd~QSN(g)j3?vVYd2$n&fqrggUTHCxiG_YaQD$yxEK*y-2>G;D
z+)2yW&;&VYO*)v@Y{1j@-p2JFLz2gfC0f(pT{^rh^EP)&f*K!h$ECyf>VA};Ugr8}
z`sc*sWsg3U)Y&~RG<|y8Xeoc(S%YVF4_}u=3(fA^e=H`#=<keczxihA73!V3>^;YR
zf4bRhX8v9Ez2bWJJ72M#$qJcOweOtaN1@N+;>WY1A6n#Si_H05zklVm6?s2O-#2OG
zN0pl~@IG8P%~~OwHL@vu^$Nx!hrmGY5{6fzwv4WhD}z*aYHf0m>k!~rTg@KgeIm9~
zbYV!SS69%F)ef~crn0%7*s*%SGOlvfRUU#>Ied<}3QO_@Ze;ZHHS)1q=bl)2JeIYx
zqI1&Ltx7WQ1NUBkY}@t4;@<1ptwl#eUpL)yIB|8+y0g>LYxm6Gvw`PKvYpQ^UGC?i
z!L2JNMoJpLZ#MVe>@xGMb{)f6sSOh`lRD&tU1<Emle)9ByNfrdE$8crr7Z_-iiRMk
zbx{8nM_M;DM6M6aV5wcf%-B-F)XY@D)X-c3)E+W1Fa?*aW(p=|pvJB#czZwS;y)vB
zc?&w>3RE(K)I$=!sii4s<s_GxsiA@yxJrVE8z`8Wf*b_nfoZH+!^qrR0ff!X%@s@y
z3=}}L0l16?wHM7zEfmZRL0vCU+tNb8%*0s1+`>%3!WdNQnwo-cP_R@mvoKJwG&fMN
zFfdjy;4(8YQZTm!wKpvl%nU*8OYp5{;C7~^3CLBZ;I0_hO`tl33)HqXHL_4JF|t%J
z0iD}xWT0STW~yLfVF~K*fzF**Fb1zIG6Y?!rC^|7VQ!&d2HHOX_LGUJp@Io$5sI0i
zf+@I}X>Mq$U<y8h0cMM-0eZFvE#ASG?LqR;WI=AWH#F2w%qhr7)K5w+Nz_kI%*{>I
zPf5)wNz_j*D9+5u&oksQG}i~om1LxrByt%U=w~Mu6eQ~BB<3ciB<kmu>gSc}S7hoJ
zWa<}X<Z~Gt=oe&U>L+Jp>K7De>gVUCrYC~xtb&Y8LoQPb{esk@%={Gn<ow*+L@qN!
z{o<U&;tVb`6Hp_sBr`E5B{MCJ%hF6g2hus?GBh&NFH21>$uB}JkdQj3xC<mBLu2Fu
zX@Vo)Aq4@~?{k`@x5zHq+L;(^9-Glq#kk~ho2%x+(uZ$b8GEfb^=F>{WAJCuTfVub
z+WP0}u7$_^Ovrg(I8#1OdH>@Koz)HB-PZ3^e&uNyw#EHvo`1Uy&w~lSCePZigP}t=
zGqmXC&f`Zld*f~j-rUEd`rTRM<b`kb*LSDv;<vxt$sp=6spSk$&|DQ=W5!u+DvrlI
zG+d3kywcc|Cv9Q;c~;|U%9_jFTAsaUT7<l!{_IWq<J|LPF2i;H_ZQbqk$x(4*+9(x
z;;x&n;{5G<88X@mmSdI`;H?hOGyyLvJVPB_gZ;p@qB(l42wqbeq>oZifC3jsL4i~$
z8Y0?_To&Lf6b%$ik=lf?bPbaOwaH*&SZQ!h!72mFg9-**#zvM3hLA~UoXQ9q0@7&-
z9!UYQuwa5FSc0d)QFWRcp*IRa^ZEEPFGwC5QRHS`Se<RGpI8iP5f*3XCYEG?`ftgZ
zMaem-DfuPv`dmLVFD)}Kv!oKa7s3UK!<5AI^i<^RWd=Uc9qKlCB61CL@^Fp-CnAil
zh8e870S$YAMjDWZ4opoDb&IJ9ylO!&>_EeZ_`(Y$4|Nl{;bm%~pO=~r?&*Qc9poa#
z095Ql&4>HhIm#>41ysidVR+dHyyJ+NTw)CKGPvGBO*Rmosima?xYh*sX-Lf{pgxze
zrKJK0gUkc-p?xt^Lt~WQ7_1kDjRxrh={L6o)$AZwn423Ym>Yq5Wkw3-pdOl~rGgo_
z7By1<$r+m)fG(<60O<hLsg@>&U~zLxOD;1@OR%^(sP_dj2UO>RXmiluh$+MXkRhPd
z2C*7Kf-D9*&)fjgbpzAp3h=I*xdFJF3Fbq+X#uqa>|KzfOpFvv3_#cv94z3#1v$XP
zNWm0}!QDbb^jr(_I=)m0l82@ea#Nv!zB{Oz<uWwXPfOEJ%hXTH0o9O*ULBXAk+FVi
zUP@wd22u(|zAOozKz&_9Lp{SlnKBr&5eVLOfFp&Pm?1Kyp`ke}iGmwipcnup1e_S9
zgfs;=1ku!TnL*1)(C`_k@nxW32Hx_HuFgQg1m4sFH84T)pcNrTQ2ij<+!EAj2VE2h
zahb7+p@Ol6v4SzEF$KQH1U^)XK6Hv>DAo*l(J?$QLwzFxf&;;$qZrxU3_MhcBQTK$
zQ!L>j3C`4(mZ&{B@VXy7=?g4RVfwNFk2}Ez)F2%25L8lTI#POqT=5RI3myg@p@Bic
zQQFSFzE}p7K#gYw9ARK=gp{BRkjgwrnFguBv5_c=2^9Sh3@r>mI&i3fsDq9Fnwy&|
zKq3h)4$=$5C}x;gS}2%UqE$fP`vUMq4X8f>4K8xCK4>trIFrlN64C%hiVg6w5m3|N
zk>MWU>*E0#-gAn;lE3k^(+rWL!w4Q73Z@ojU~B=JaX|?bEWw6H-q_4c!5CBp;!y)K
z(bUkA%Rs^0*cgHhj1@q++04XH!OYMQB4!C%JOWZ{ZU*X#fjVmDU{&UpCS2wQpst#U
z0*Hp|FoT$8XaFuGK!$^~LopYqPBK+6H8WH&v9JKsriO+J#>Qp}rltm9z7cp#A2iAb
zVp*7(fkjPC4Y)wM3_uGU6ikc^6+o*eK_cK@r-=!;_X%QyW(Ckw4`d(-M|oppgt1l)
zUSxq{8_q#5zfh)r42>YQg??IECiXhQ%m`a6CeqQ@CCE`bBGM_uGr$mI-p34l@f411
zZD@*=tql<a1CWv!8sxA{hD;Mk7lTMYS_usrOT$+TfaIYWmE2;$&{RJKw2Z(~KgH0J
z%h*gm#n_C?#7IBI#E8qnSU<(Wn9I=6Og{y5M;G!i9C&B~YB!!<uYoB_uh*Ba$v~j>
zyRB<}gREnc)2@TO+`WPN0jC^xEy(54*|YaA<08LH)6ZP5JURR1t7n%oOfSEA*HiPz
zr+TS%`{c+uF1H>nFiCW<R(-y;TgyGsGc3NfcCT)beM9Z5{G=mq7$-cRxbexPWrt64
zb^5(v^ep{wboD)P^%cAKzc-qB>tDK+CIhpaKypoJgRu9C2dk?>Tv!UVG&U3)Ih_pu
zs@X62RPe1-0OOx%=To}=95UbTUt3yK$oEyIU!-3kEL`flbyRY5_b+$54VQ9Mu=IAp
z`}Cn90?J6BzK6bNaDZ<lWDpp0su#Qf1GT>k4ptoLAF01<VFat&xh%l#2mGlYp$5T1
z(ZL032%CY*4VW+%g(PMpGw|FY%sem+Ho?*WZK@hP_kk~&Q(<fg);$FcAQhHomL=wZ
z=CHYp4E58CQWHy3i&6_q6LYwXjr9|Yit@|BZ4^*TxHvO6Gba%$i>J>9o~uHSd~YWY
zZ=V2dXWt-0BlNKj@ZNA75p9AL(<X=sF=Gn@1!D{3!d@S}jK)#sLk2t1o#*T87vSrx
z9TDk>qbvp$FF2ftGDwSD7Q@P2a8!dM9VUWG4;^{5G8xj)!4c3#MkXM6Xh@S?CL4mv
zTP|qPj9Mm}o9d^Sn_?@IL0g(JXQ7<J{9S`UYfVBtu@pcc$Kr@#)Lt2U(n$d{@I{Xr
z)6@hs$^x1=g-oBqNU;411`0;zCJGkd6GdUJF)_AKFa}@sU}A~fmnJrsAm8W>FTjHX
zy?uj0dDzzzOC|=Dm^i}E0=d;|057i<%)!MSj+}v#D@-gv=jY&TkKssyX5dj&XbOaT
zBQV(8DJ)DoBGSb%*aKU;3)G{);S+PDK{G=G_<|d76BO<bB$q>)rEnQozDH64lf#&1
z0Iv<lR~1lUq|)3(KgHaH%feJY#ljS{-bO#g(7+VA|ATeWR*1X5PlPw9FgL>}%fZVv
zafBXnVQz{T+%T~)Q~+UEP=NZ5piTu57^y%aHfcjn|HDWWfxb?jpg{&-PmCFA$WRIn
zKN%raP=<yEu(pVTg%K!zki3K^?om`>NgMQ$hm81Gpwy}gMn>SW2VXh_l}*s#B)61@
zO<y6WJaG31YA!tQ`Zzhe1h{}w9>$D`A-M5}BbJaO$q3$E;zC}hf*i<ZkirxcWh6(3
ziHRBLcm?oWBRmOkfzl8$7~%@l!W<-K4sKE#C|H13;($b;m<uKY<%8^nsxby%`wSsr
z6@#e($W0Iuqys7o@~Hx-m1=4R8W;e{7=V2N5(Cedf>l7oLA`bK0W{D6EWShnl7~hn
zxrqd2fEGLhS(2HPg1jOEa(pM$8hDxs4~}wkbONOrEIAt#8aUDnN@<0dATc#DQ~+UE
zSb$3_3($Hg1ctN7D4&oI=!E+r&@ap<%2V6fHw4S70`PH}I6Q&UI5k34z2NzEGb064
z3v&ev(6k%L=^W;NV*@h<V^ebl5DiLYpivzdhN%J3V0l<70u4TaQz>Y^-9W+298`#a
zR6#I&#E=UnV`>Jv>K@elfv7+sL1RmXpqYHo>_2F&7=#V7(ZmeG2eBct;ISn`a|Muz
zriO-GAh&{4K}ME9XM!3jm>Qdb?!Z(q1MRLcGgdIMFjX)y0IeN|H9-`NjKCXv@T7UL
zJTx(qo92-wBS6DTNaZ7F=>ujH*TXr)FAy|N92|@>R&D~Gs=$>_keg_T8D#L-95}4W
zP9Fveh!u#SxG+`#Pa}cWcYu3}VAEmg0zxC%Wd@2V3k&c{M1)G@b%&rS4A7bl1MpxZ
zDCe0eSc2DbAk>5MD5TL08eIfWF_FCT5Tq0P+Cvj_W6afu;0p=yr4CRllhV`y8hJ!Y
z6Xu{k4Ae|`(cv5E72pC|We|kf)&*B{I8p>kl?iXGae;;<Ex^mi&A=rUc(D(70g<^8
z=padR1rQBd8V;Ic0%4G93u9wwq(WN6AQFU8q6ifET%g_zWI+)~4x|?%Vr*fd0K$-k
zMxcd9phfH;+SI^+3uG2C7^EJAA*O&9jT(W9BG4jt0}HUrL8INEnK3g{(B!HKc=0=A
zM#~ty#0lhoOG7iTxVgDG7f3B=k^{7W9^_k)@4;bW3K~ZOHv&OiP+JycG02ffG^pe<
z0F7Ilg4c0@3;<2HfrjuwDnWdZYB1jjvfc_5Bp`9Hw@ppKtM!d7L2F`7zySo71I-Q_
z8G+?MtNB4@g3JRie>VX4RxtV-rjQOCj;@rE5m+9YxX3NepjEiO3uq}5m$AMNc(oFj
zseVAFesE@bZX%b3en3X1en4@izCUP<5_~EaRQl<srR8uLTIwezmzJc0#;cNwQp-~H
za}$$`^7FWiO&}|9Q<8GvLsm$Wx0Xh5Y0#Q>E=v=A&}xj*+_aq33jLJ)lEmcX)VvZd
z#3ZkNYA$H57tzwtPsvOzN-fSTM#^%KgG8ah0?%`9UY;)C>e|;6qlaV+UNem&(;-*a
z=I~6XU||3{_ZC`5LNgL5dw>!hICU9;N)wO>93!cMi-9s24C9f9P7=daSb|-QYKozu
znITf+22>qFhRATIACNpWpvX->D9hqNDFAu78+_dwQuG)Zfmbs^t;Ib!Z)jnGJUAb4
zny*<wV9#gKKaD$X%}{IW-dmAzdCOnMma7E<9IqDE$IIPXa<|2^Y{t!0ja~mPN$<V%
z=-t|yM_%r^Q;r|ai&K&<xYRbqVd}Kk_f)5BE?Dwn-J!kr_%a0^%=kTf#>NVUIj@dP
zy{WqP&{59LxEY+Dr=32Q@f_up`dS{Fe%avP3S*`z2ZTdE$}(S7S>?5=<G`vlS?6lp
z6AoP3l$>)%I$37@vZBv&XJ>6%reoM>_Tw*KdThzXf)nidR}<D?j>Usl<wN}sPoKX2
zfnHG_p!Ern80iyyGb8FqJU9$-q*#<{0zN>?WeFWYho&W1szavX=?gVw!FdGbjm>bh
z2Vu4lGy!fGOb04WhJI6X6SQmrawEQW07xDhKjdZ$*oZ#bf-~5faqP><z*Q5}VtB&v
z40ZO20*&lAVQ$9*FF(VP3UJM9gK9@`Ad?Z4V13{SF*boT;1D8MSX>4QmPSSj7G{<T
zpd%zKjm;G-3_x`nNUaGt8-Q3KY-t4Qs2C_%8k&NaAVb7pYC$|G2360Xh0+!V3Z|e7
z{6Mssp@OkF=rTVeuwJm+6wFM_6hJIP10zri)Ih<^&<NZ#07;k{m?@Z8fZB+l9W@4E
z#ULj_SYWkiX$I7e!<S}2^3bRwH_d=&t&wUw<U$j?{uydMJZboc_yqZTYx@Q}`eHUD
zjld0V9Ek%|&qH@=B33+@o13F~8qyWVU4MY&p^hTg)5iM6g{6r_$YTc3&EZgk;l2%V
zj|u^gb%$VCaAOEA+;I37xe5oZ<AiQaRRAr<GzG1O0Wa5qBtU2~11EAcHl7S)YzA3&
z2Qve7e;P<Pj5Yu-$^(gjF{ptHcCfiI=tO^01v5)C@OnYek`Ds~WAN|+NTnrsxZK>r
zoC~DF+yb=1&_V&^X0T4M86b5i7?eefK%2ph6hJ#JL2dxipk;s{8pH>&!A)%iBQqlf
z3((#L(4GM!6E2V}NEK-9zKNlw0%!>tXf+5(%*+C0qOpRBC3?Rb)DFUzJ3#W#_#`)>
zAoaVEGY0tX7pT$jq!Jty6zJsxUYmt6C<(gb9=y2;+X`Hil!CO_&)fubF|0XwpMoi9
z<v1vep?mMlK!-<zQW0qJ9XQj0L`*G>6wILU1KPJ|z-4Y~s$dS%i!E(I#IU9?V`EFu
zttblcHRD_c3Kpi83Krmr09edhg3p!%@ysoZ6$}k5EEOz4D|Nv}T7X*+X5do{AS6g3
z5(aH9G_+IzZSgZTG*B=Fc?Gok)6`tS)D)D<K?{7qNx%Sf7N?<tp@E^X0(h*J3$h0h
z)E7532JQJUR4_9KT^xrzE@KHk>;ZQ{0+NSDA_eIK`~D2*whZhWGPsOPp&K&vi^07e
z$hHhF$oezrt_)neF_6<C<OB<-AK(cwz$q#?5H!E(6oE1LV`K=96&z)j3DQzY3&ila
zsimO;F&H&&K^qG!KsC04r2%L?F{rWvsQ?X(gJ=*2of`owzCe5f1q(}ZX82IHz`+B;
zF)}jJ&rjPo*a=%z1x~v-0s^$J1#zqZVx~aB6n*m_G&pglGO#=}hR9B3MrQg2If;46
z+4*IuMMedghRBJ)2>EVu++7<ZGh^hg%_PUX!=T+ZcC6+b4t7rVxR^7^S8VO7ZQ=(W
zD<%o{bZma{_O&EaZ`Tv`XEP6Wy#H2W8Q&Bi@_S<1pGB^g^2=Pl|C~7CibuG-RPL20
zg_U7Wdv4y?vfNyHf4$PmQpTMz`)^BcoqvocYR<V>3;&XSG0mF=OP}3X%iNbIdm&)P
zzrELf-!a{_|0y4rY3~8A`~@52bHmsJr-_zD3W|KQ=rEGvs<!EPwezW`b7XHorh#@#
zc-O22mv*dq(mi#JS<w}*K<f(C)w#!yUUQh&J!zU(So55HL01%x%6*ENGH1o4tA1wd
zo>c3LpAjrrr0USxKSe`FX!ns*iN74ap6@7rqPNxVtp3vVv+rZ}lCVxT1qKHPg}Z_a
zc8v7`u*oK*jeOwfz?H60*6SfA6HJT{(=BG;izXns!3<O`f)_x6_-3F@bD&ZaoTxw|
zSTVTtMVB$MG*tj$&>|*NV?zZHjmUWx;HI7dw%JN9Gjn4F3uDl+4j?nlz{}P_EHn(N
zoWPU55OHvcZeR*(07I%71p@_3V^EO`vDL&JZR!YIZQ-fT!Sa-5BvZt`IoMnyqA-T;
zjsvZDf^3W<rU*6ySBOw|;m&==28OtDpQN?oL?yGAYTaR>x4CZ^^zGr;2FiWh^&MBm
zPWnHZDakhDS54*4mdwzv)pPEuug{v()L%1S{^CZdA6BhilRr(4KFw3Iy>8{J&)NHH
zYW3G#Vv<Y!ckTX;e+sv@7ep<(^XBKiFMY}K>tg24GI^8fb2v=q&;I)^LZ&_S)3`fL
zA~iNi?-ks-U7B4tYfI~u2`pK;+`%(9d6frPukgEaP)um6-<6AELZ$41e5aH*v@0z+
zuTncj_T-I2A~(96*7;o8x5jDZ%$GfKt6bNKEzN54`naF7Rmm)E>*1|AXR`XU1!p;m
zyb_YSX(*etcw!7&dH$1kPkY!pjXR~9&1>w!>dxJfJ)aivPEfgBRJTR!WUnFXy<Iso
zr^_t86#kcCkJ`$4Sn??H;l=Q>KGHipC=4_s92|+ITLK=aMjgxm#~Y4piaeNM2+yTl
zpz&SMFf53Mq;doc!UvI{0a@6%GK7Yy0?{B0QUxA@1rv}yEsP1xED&Xwg5Xt&pna=Q
zbs(eAFf{v{f{P|pIWzEWiVzDybI71Z7ODz34{8d84;nKDVGs`#03aHSxj>`P1_~C&
z$cu{<jEukq0lv(Pv=ExyS`j+h0o}6-8njI<N=?zvEzK#(EXb+k0@azN#gJ|DhNk*S
zr8zmNCE#`$@@hu|{hZX|V(?N&)OC+WCi>8oj{1oO1x5K4U^QGu7GMpzrO6pE^&mE=
z(7>}y(!>z5h!Q?1ZDOupP?TSgUj#bWBr%7}#1gRs5PeN0m!W|XWS<CV#2Uha3~d`4
znCT}a7NPDLG&IrAOH9g1L~bJ>jk&^ejJK1YQ)nb;J{+@F14R#xyn)n2G&DjCO@o#n
zfa??mGf<n}64ahIP_O`PI7LZH;ADfEc){|ZIteBRs;5j0jTJx`R418%Yc69`(3KFT
zpu>ucK}UWN#vpS*7-9x!zQYi_HrU+KRKXlHuVZGeU;*0aU<AHh3zUo%Kyt<wpnYhj
z3KmAD3T9@;;AupVxP_4!7ieC`K*8Js)FL)e0Qnju1Hy&|piLWK1I$b;!A=Hw3gQ4z
zr3d1fT0(ljFdB5BCrliq63jO<0P6+?9!Q<3u^|_jHZxE#F*H#C^^ie90}}%|!W1;W
z4U#tp&02%HO5pm^K*7`)ZG0X)Sc)%eQehwxK6`__iw-n(L+b1dwpkc+Z1XS37o5RU
zct~b$YO!umer{qO^08Ss+Un3_#-LR>xKskIS4SM#1773imzbN1d0Ls1Q+`FXfr74~
zp{a?2321wxX)Ne?m-J!<6E1znVo>R%U}DOp@0?iRkqSBw49o+Wotjqy(Z{9lS(2EO
znd}HU)JegBOFy_IH8)Jb%#2IlH?tUY))ROL2{dcRr4Ks#EI7491GF(8$8lqtVE4LZ
z=A;@c7#V_hfTNss2o{0*7PH}kxH<q75{AyO18Pi+kq@W|?LX@;>?qTge#2EP!rtH@
z^E4y5u3RUsii1LzGo<!z{rLJpY3#DMYH!@PE%xq}V9|X0@77YLq(z+){c(FwbTV^x
zmM4F+pXu4woSh$cZ_oRuCqE}G;ZyAS*c$Zn-{#x@qugSSE19Y+6ZJT0zUWi2L<wuj
z*KUotr)N3O=@q}{k~(%HGskVd_qyv})<(^pxMrquck7``GCQ|!2vGQ*^D27T!wH)X
zzPe%-VH9>!`1%%&>`8CtS|#86^ruFErSfpzli2-XXU<MMkW~6<hS`e$lh#dOUw7E!
z=mt&68&BCIi*nzyF1FL$t$n53=J4`!T5C5w56iv4Zg$dvL-o7>pP>S4@>Ltbx89FJ
zKfTQM%9TyrC!(EXsJdP4w{_qTxh?<N-zDnb;jK3I_fKt0ckF4tVDWHs`u;_7E&`eD
z`McMiU0crReR|HEUD~S^t~;zde(8y1rSETk`D3Tv%THc=x2#-x%k>R{+ZJBFKhLuE
zNdAf01$Io&XQ>o@OH_SRa%;ol)(szDCe*)w5k2eqk1O(Vtozt%_MSNFqLwJ%fAsN7
z!>uo0Ek1s~)b`(sc$XLYVq%+Ev9+W?(}mC^0E%XCiUB1`$jN(Pt{*7DW1dV0OYugQ
zW(J@u-OUwD46r151C%6hz@-l|9h~Gr8gV3fBLfS(X+EhaF&Vsp5_AX`q&@`IjNs$B
zz;fW)5g`fY!euc}00U`;tA<L0P5=X$h2W-xZOTq90UHN877Qv6<D)7-G61XqY(MPe
zGU%yf@Kee_Cz&C#GRSQBF@j)+!FeE4kvV7wu0hNI+lSBx=E60?c<K6xlgyBqaAA-J
zs0y&t;is^{+zuB2J09goI<%q()cQazdO#x3bVq#AV`O1rj?{_D4XX|bc`9b#-Z+z4
z>-u$-Yl$-g*56us>5_<i<>A?Zor@kFRp&g%A)&y-d?LHz*qJ%D#tOzKyjvW%Y^qUN
z+PZ#es^{s{Y16Jdo!(Q*tvmf?>HNh0b-#O~yk7q^G)|wNKmYUZzu*47eJ?%l^Y_OU
z^TN;eRo0z6!nyDC#!t$7bbg&&$R&`U(#5#GjO~B}E6<nvYJ67aS0<YuF@CH+@4~@3
z(`-+yeO$D|>)gqmJMZ36d}mQUZTE@4rz(Fi)EUU1vOnhkH2%TkO4<Ae-WAsOPwYRq
z|G50){SWp(u77A-*SPt5>NDw}$-zCh3RfS`R(Esr>%3rRn&`CT+s=}`ilwDVZDwj0
zXDssfH`%1%yF26VtB}2h@z!~6T^DCqzCEe_`O~L)9zN&mlIAM@y!lb^)}D~$uCj%8
z(fKE?zTQ%NEmdOcXQ9hqZ|#0GZ^v)r>e#BZzQFto$JSha$t$^1(yexrqM`5fS#xJj
zn=wDdBj)d_doz~BC-->y?i0Veu)_X}uG-Q~?Im_$o_{aD)8D{e^!0V`FP_-4EVrUr
z|LW?B(iS<+FXVq*_wDZO{mp+TPQH?VRQ&7nkLf?GH~u^5`d8kYpXq!1>-OvWx&B`K
zA2RuOM&REIHGyS*yVjSk;a|hIU;I}2-{Xh&t}2!h-=(8^RX=#5=>-Fe>Jt|d4`1cC
zUsOAV`?-6swEXS@&g0%TAIzR9vd5pj{z3Xj)V-6te^}Ki$DcPhNH_g>_K(`W*869+
zf6Co6JOBCi53+y4>ZF%{l)O6s_KDI$@ru6rN7Xkz&D-DpC#LSc)+3R-|IYtX{~6Be
z!(p+w#`WgvuE5ll`+~l5Ml(NWd&fIVU`zNmmecL7F)!}j(q5HSwSCu5{`D1cdlv1`
zOX~ck`&-Stgd<;iR`1QWMN?GSh5M6_xMv*N8=vv7b-CYzm&!k$=K0+1)h=7G>mS4K
zTg<l?Cf9DQT)S0)o#)W4zC+)1Wqqytb?yn9XA6GZqUD#Ysd`a+;{CNBbgFEcm#tsA
z;m?YxBG$Z<6nDomDMt7S+xC}ro-*HEaprAMf*$wP8P{DezL9e)51h9t{+!XY%|2g_
ztkSGveb%WZ`gHAqjA_Q6Oa7eO_j<04T8WlHqia^r>m?ogUQ1l`EIjpKpVGu@+dKa~
z3yYg~Q19yPgK4X8>%15KTkM=AeSnWIF}Zd1krX}swU;WS^W>L@?3{FHi*IYZ3}=Oa
zLKowjuZ$i4c5CFBy4~65C%8J)j-`K_Z%Ex~fs#e(>u1G%of0hJo2mEfjkL~=t>1Gu
zG!~!s_{khtxn~*Ys)J^i+9OiTW}caqu;<0zOKSBuPCcHnmrLgH+dy%ryxG!G=9y1~
zSEXf~KHIp5sh9uRvyWzm1zgRM%8Q(JH8t0scTv_@xk+Y?LN80P^Ge@eZ_+r#?%91a
zvq(66ZDP@M35l%rTX!#b#+R}1Xh_aQmecl|ZyB8vm&o}N*&3r?rF5n2WM~@m!L=n8
zx$Cl4-+jg5eQ)cJ44z+t?LGz!VNEjK&Km{OAAja!Z{EONIyE3^lauRCHKic$#A1y~
z(N>8}qYEYrHtoIACcH9Zc3!!VN2zLW>p8E3>QCL$W?L+nwea@QeLJ(b7PhT2ddVm#
zaVVst)_vPywiSs+e4Wfo8mgJNbfngM|9St3!Skm734fmxOQOTCHq5<P(K9W{ukiCM
z+nc#lrPm}dEnFjW>de)&-KIJ2rzY;m`{dj=Ba~r<(4OK9g{=W5dvmr%=_UxCiV3)$
zz`or3a`iv8wz-F%)JnWMmd>EgeNb+3#pc;tA4#&U+P&bzkuG!p)errSUVGDLCwVr`
zM$+8vq2&Zg$?tl5x+Ye<$mX%Hue)y-W;XwM#LcemwE-bZ7J8TH+?maA&*MYezXw;7
zbY=5Q_f7tiS5(_6E9IE6rghf_cE_hTxVb93&!16f_nWdcq`Up|t*`IZ-fFGf?qtZJ
zTJLdpW{uG=mF)W|w<_AsHHPy(@msc9#Irpu;K!Afot<H)-#5LMetY4{l7rqAZ`$TC
z6sgR<tjqIdg+`3^sl|_1Fv;qKB!3RPw6S`Hwb$8Gb(U<?k_9FPPuAm`ee^*13QNAy
zQwjb*|8~WuJW=ng^<TA+d*7Vfi>-HjXtum<`0x4lLX#Sm6X_urcr9f9SKf>~t94an
zOQUXk=qeR&<Gh<cBzKDBoNO-Y5ZmLa<<VTRa*IvPJ(i$zx;oQUG+LNuUx_FzI{WnI
zT9YNWPOvQw`S5QAlT@)O6Z`R9-Z!-!Gd4Hwj@%S_rA2k?q+c$2ecQ|qx&3hYQSXz!
zQH`y(h*#b&Had5+qjAopoTbtlzltRLTFqHz?v*{>^LFV$`R6$)vaE{XlZv_zyjsO|
zdv^EX_^hRY-;y+1e>PoT+9dkn&hpFObpB>MU1`!)U!&XG*4i|^v#*_%dy$Zs?&+wh
z(V1+<Gg@M1UpW>Pv_JIo>&Ezfd506+wRb#FdHiEqg>v`V{^mlRy^B6X9F=a(x^J*A
z?6<kdvd14Hcoqx(D75+3D8u?`Gy4+-nReUb1vesjewi1Qwcq8tYR4}o8hJ45sz=b7
zKQo`W2ddcm#&VWu%vKA(5VAn?0q?6%d`CU6{AP9i67*vI;uul0Okob+^4QAxU2_Ut
z5Bf=&ol{_6JE8rO%A3FJZY~KgcD#P-cQTB@sj&6@^w2Wz8>vG37Cw{@mgrm1&mSyb
zvG~C6H%9pay^H6un&gPF+Pcn3**c^4UWrrkWZ5@my=SleJ!$#nu*MX<#OuE+GPwQ9
z9)%pxJhOV=-T807gs#yNTrTp-Wun$Q->0XT^}nb*5_#PJbpJvBhO_e@#mIE<?~FN<
zki)*3q4?sXpRQ_WC8WLxxiY6Rx0YY<I+mLjd$Kc9S0Ti@HtT8rj9Yny2fpOV#lH`G
z@LDJ2abup*#_Eh$%a~8qnRxkYewguH`Puve=5;B$Gb6+PU%FW%uu5yKXxi?jw}iIY
z|2wj!{N>AUoa-)rVEMDP#^+jvZD#Uv{m77ax38{sa$UQ1*~=Fnk5!#Dl__Cb%(%I=
z&SgyxNAUqY)0s&h8Y~jzWjh>&XYb^HxBH1&w(lN|`RP7?(jNMB?P|GW7?PY|dv1F!
z$HzS@nm%86RI~i)?7#aTZCF3Y^vrYJrsz#ipF}S-2zGXpN?TMpLFrD^x~7{3y8lj2
zo!C7&ELG%p+d76%xsx`(+U;s@_jH+NpUkn{E<29yv3sj<_Q28PTfSvxrcJlginn{1
zZMMz1Y9{ruRLyPX_DyUi9QDh(%#Y4~d_{osr|7RgFHavgwhjp~oKtf!qxqZfo7CGT
z8AlR%E%?j0<c_^C`6Bc0{J!G$d$<3GEk1o*R%*eqHxVDzY)cfmr$^o4SswSnz{}RV
zkWF`ATFwsRm2R9ptqChl+aEe{Wh{8PKse9xX5Pc{X=zDUE+5fVFlC)~q2}e*2@m$2
zyY1@!+sV4p^3v{D-xswz50z)kbf30sf$QU+F_nUE8QGRTe1GxtyptMhW=-}@cKmQI
z<WcC)ol(>8GG0|)7`18dvqi<94hclAc2P}meEQrZ{zZVFTkwIk=cmq`H04;&w6fou
zcJDo2ymk59zwx^j`gbfi(0BV^mawm{U&IN&%_Z)6r=_o+E6WhMcOo-l{`6$8_&S59
zlkfe#|Np@?6PbIhzvryD(erJB+nn8tAJ?vEejE1v7f*4kU{@>8_RQkdyC0tY>s@}X
z|AMXAYKLH<=|0w{Gbae>u$6SwPJ8eAKl^v(#sB7IYmYfrw4J=vTlIxCXzBB?-t&tr
zmc3pTbWh=b%<Gh0S#H11Z8>H2Uh4b=fuFUic0BfCyVtmD?bH8JmFfO4ozr@mVXFy8
zIZMZsB_>TOk#UoCHpqEBUAsNVX^-!{*Qu%jN6-DYUdnSWJ9Lv~R%j_}DencApU>Az
zOWcUGE>QT*^JvF^#uLAer()?8g4RDl+va%tgqWur!~28=X5bA<=7wgNT|#q1Gvq!Y
zn2YEX8kphe6B-&}9S4bkji#6xA`OZ->O1K>>$~W?>3iw>>Idit>IdtG>PP7(>L=+Z
zLk@S*Pti}+Pt#A!FD=qfhaBFkpP`>oS&)&Mr=O{xt)HWxtDmQzub-cns$T#dWQHsq
z2KS)!i}Z{2i&M)|^Yn`|EA&hBOUm>0OZCh2EA^{Vi}KNWK;ZFIq_ZLn!E5HBp-g-a
z$k^Bvc@noZEHgqReAl`~E1WfNxcQ{MFnsCe%IFxP!t|(3BT$)X(-Btjmb758Xfa0-
z!Bp!D9ZYYV1Ooy^Ot?C;OZEhcWH?AL=PB$sBH+IHRruV?JI~KKwzK&CTzO;vzc1b`
z_n-TDZu!rB(^GwXC8njG-BZKFB(_U>f8TVsjhEWhF1gF7z5dewHM=tBU?TVBS^TNX
zbr$BcJmG17`rc6H^fC3fU%LD~LfzfnRHJUU-i-DyEH5wJQZ~=#=G|MyVN3h?xO+E$
z<MizbI@+doNnUyl^P|IyLOWMpD>GgsBrLqlf7X;qlOBmk?LMg)Cu@27-bE`_E5lP&
zE3+nh&0WK_{aatZ_m(&zsnwh6!slMz&A<M~jg}=YQ*Yf;w~JZYmn?DYqH$i{p729m
zm09n7J3UW!J6&Je_OoTR(jTS2ix)9pW6$lF`z$N-wZ+BEPa^5!ZIXw77$r;EA8Y%V
zZZo6Mhaveii;<&`!Dq?G2hODKnIU?{=2+*<^A*PP4T5K|_84!T5P4*WLHEqe9{$ZO
zKZTQzE-_{@?wM$Kc&1>Fs_`VjnVlkD$EFk}Z!<oBqcg|qc4AWQrgKY9JW(@mJpCZA
zC?P99D)X21`}6W{GEtr9W*eq`K3gZgsI~aeVa0{c-}ov`SlU*#?K9hM`rWAC;C^;o
z_CN9Nk7C-oQf(W9*7?|rhc}cjeo{1J>Z>o^F6t>WejQi($H-J1aq{r>6@6=-#48J}
zNI&BJWPfE)M@o?Cx(OAs+Gnc|c`hw*zLH_eUf3G2e{trP=m$lmO^+Pd?YS)_ntsNW
zNCvH{+g-6)_Vn&=Zbwp|ygze$WsJ|dOZ6#L{&zU0TAj#CS=#Pzd1Co<Ve2X@8TSu{
zH7svtzuRfP{7v{i%U`Qx?M17WZ<)w1qS6>6zTU}<|NUb5-PeEowm7fy&Fhi-ybkjP
zlh~ubEUKTn+}beGp-n3_=;gPviiOG6zaP9(_OoI=?&4s)f2-oRC+CkeY8)>+%hD#7
z$~^7C8io0jc^94ERJ=Fg(qFL|-ETYjlAj3}CoP)t@_6bt@4Mv@8>&ve6#g1~bZMyf
z7VixXK_|F2HRdP@*C{F|URr<LTYpc0nCwLvT^pm?%7A6+v56Z$h#RynHQ;>K<a~SU
zmk-)o)@2FBFkUXXaQ~cF;$N9FyEW#8#NMi5<u(wx*B)r_IWeR^ddc^5=hHO2^*_sX
z^!z$JX%X9;5LGjinyvp$#Qs&KolH99BlCWS)S^tkrKVgvoOj(j_Nw;lqKKd_Zqr*$
zhZe1BQaU)Hd7It?_5k~L`frXO3QV~mVYPWvLEO2p%DkvXHFe(!d`e!kWs8mlf10yV
z!2RdVCh4WSd)L(6;^zDG&-0uii}s7nGLsJGeu*{;^JMz#QsAVp`?ZtX1pm%CIx5{$
zk8qxR5WY$zU2E;nOJ0RJ^VZjgTzP(etquFqj{;W@y!aI7`*P#F<7=5&n|xj^4%)Mz
zdCqQ~DUPc-bTj7nsq4Owdh&7kMdm*W?-|9adP1d|1ULSDEc{PZ^s)Qx+Yj2)zAa}r
zcxI>m({o;u$JA9Rnn&-JYyZ@E`nd7z)tjfHCBH^mgq%2D%ptuu<$U<TE{pZn+3%i(
zCs>|Y$9TFp{qm~Ge44_m%tY7f#l{J36`wE4Re1Y#zSOqdHQ^^zj8`rC?VHcPxxitQ
z$U(NZ*^fGTSG7&tqwb}k{Bvc-Z2tT0M$^?N2;Q#Q9I`XhB5=mvRKKSukKNrW+cjrd
zskCyrYGS3&w~32WE4HW24`jM6t=fI~&FVV8Rnz~tm_Kn|_a;JmQ;F6z_T^J$?=RLo
z+<MBd;@oaU{ZFxRVR=mFCRJ~HaO&5-N!qeqX9T(y`gAQ7xE<87e_8Yymyk7#`yO8w
z779yKJ^5KM&x=vdUz#&}?VXFt&GP?kYn639mzyuopCkXpT97AR?PkyUyFE`QS}f7|
z_2`#mSo)+q_41?%kFTY(zYk0^+Wy+1P*!I4&1>udKW0pR^l;LOoBiLD))u6Po<8F6
zKlk-t(a6vG*JD;+N&NY>IdN6b8r8_3r+ntj-p_pe$@z01y$T}dZ;@Ir67tmhUG2rq
z+aGRI@^;l1;A%|rD=I7U^V+rk`LqBXm$kR9f8bCuVP_M(bkJD#$mOKNzb!HrvIZ+l
zgx=`((x2D0V?t4@kVQ{bIA>n0q5s^y;>V7!3(K3WC^l7GBxCFHRp(__96q$udgZs2
z6D87z)&yL?l6I*#+4F_&%CGV(&N>KpT()>LYnQ_bcUIROJ$7d^_eRfNeDK~W-oH5?
zbnbMOul;uJ)P(k*OCOcYX-(!*;(zyH+p2Tx&e^u~Km7bdZ${u8rxiZ)wr>7jZJF8s
zMCs9?8C|`qovNI!i6MQ#C##Q4)HqglhGpCOk13UFH|^jP7n|GX^R0hwE30_v@2&G@
ze@L(RKl_%f;Pfe*?%N*_{dKYZ=KZ}r*QDDrrYpKAIA%_?jC9Ldzshmv-);PRHYtg{
zcX;WTp!)Zm_<}znXO|hhw^gim`nGPDFWZ`TiXDs#99rL42Zku=J3L`#UU>Sy{-L{5
zu8B7@=&Man@@JEe?0V|rCh&I3w{zm@HkP*+?Y*_=&OgakI}VYgb7FJ0+bY}U#<~cI
zG1;wt&G_$Lv_Y=LM5)kqCQ1vLzq?7SN`7DJ_|@01tGQz1kBW<&HBJqQ#eUV3`A>Qz
zdAs%J7c*aeFBf|!c7eu~H+dIA&c?r<z4A~~wM+Ktx|k)J;dS>k=Dp1O_sL2uF8R32
zQl48G^M5Snoc1z8!+h67=@Mn9;|^g}FN?m0>gXTd`lIAlqn~!@O}06mZ#SHtlX85@
z$*|%cy|+%6d8fI(esTO_@2S}f8n;<I<7BUXu!dt@$G4Y(35<u?Z1$<X*Yvz;of99F
z^YyT+M04G)ZAp#Gx7$iCS4q}rTAFfKSK@B%W3iUINn2w}?;l!~=Qm5Mvg6gN7n8n5
zNF?XyPmh(TbXd#7eU|4ar^Q;0-27eTN1i#z=>I5TKfqxnoAaOP&fNu7NlObHH8<|q
z7Ze@0$Gx)R^vT@xjUR5W4qxw|YdvpwbYzFg&-iSw0!_PS|0fSlHLYqoRj{Yx`tqzs
zABEdTO$*)iW7k(-iH@JW<B)yQwDut9rX%Zjm+8enlzRF|E}(ds&+SXj?5t|a+H%{y
z*WZqm__lY;$7(+-PdBNFC2ZmxO@hl0irY_Z{v9FV^)uf6+9a1vy=NHv3=FpYi^=?`
z=*rj9(YK;G;&}Sf2eA=$SC@*uc@eUqm0`x0&#~c2rd6tQH#~cH>OUt>v)#Yxdkjw3
zPpw+KNOacEda2*{RoG5Q=aeOUp7geHt<09!&pY@ujy7&`Uc_7b$k{~U=f$}xLD84C
zU;6AP7Bl~FTlyTAFN=>d^)8bTPwZV~<g<IB$|{Yj3zMIvSUe1q=URVv!J1y{Ie&{T
zi_a{-^noYwo=pG8iGJ0)Y(xu-KYuPZF5GAH`=!%{MXxrn2)b=KGUsmKDh~VUL2n8z
z3hF<-yYh)A_myHz)Qdg$jXvy9G<(G(EB*7m43GVxK*2+aeD;D9orHdwXR6x&zFYcU
zYWaiJ?g?I3YV4<`6a+1<W2tri$-MmdmEOD)=L9C^Jh$tdk+Adro?Z9-L_|bu*Zm3X
zdLTPtt)i0pR4y%lKR2E;OFDB+e2vl!UbQ3%Xg<DZyJ2SYv;S{ryWPBBA%6eMLVt_D
zJOBH)cb^X`ouu^o+bXX3H*L(*)mQMBMErfO@jYK-ve)Di2CIUMB=)L@3cfwQRnmpI
zl|5>5!p1h0RUiHs9<iE!X7P89OKftTD>?saJ=MxPw!QzARn>lN2JSua7oHq6G0M4n
zhv)sxE-Q(DA`uS?W$mW^Jt}rkL87hW*8F#OclWox|9GV5i|jWo`=wSkAy3;|HGfQB
z?7G9LIK_Z7%wuirnlEnlZYF2kqMv=(z>~Rgn}fIU^#T{?(<zG-R)<emd#LydkL(84
zOZjojV)uqv1u;&WGG*<Cj^_9!%8U4JHnPi}HnPxG4c+rHJyG;eXS3PM-ij6d|0R~z
zosoAwXd+gV8soIrZF)(Q=ygxuGP%%r>#y-gZ{1bhQE>j`qgj8}Jd%1Szy8Dnc8-js
z^^Uge`U@gdt{!V+y?QLR!2b8IaK39_x|_Ry-*?o0S@Py{Tt?LaPxGa|kB;UPC```1
zv$r#IgVLE)+nHVI+<nV)6Q6XuUvJ#K(&BzN`{ly<4tmmJ9ezLFZhUvyVCgE)pGRLG
zYje}tb0pcEb)7o*HJ>22^RZ%L9lh6&`(B#1jQh&&(_izFgl6qLA$I&hu3gyFAJR3e
zCmFOQX@B~cu#h>!{_T-P8%^%0UcHbZ{eMpL(Fa;W#mCpq|8PmAWJ9-lod$FIlk|Z9
zGZ)Cq-`RDc^zHNgc6o;r^#0@qs?W99^W5fnXjjz#*9L#ezVhni?_D*^^jzw{<)?de
zF3q!zQ;)p1d6ITThrOinBHb!I-{<NIpAH#Rx~rW#z3gJT__^DX$_}DkN^*aaU9L>f
zb28lW#&+deajuEhvW%OSc%57?)1<{8s<g>3dztjF8!?7gu6*5abi%PDZtk|9*3~<e
zFJbm+A$N;FyIXiWwHP;)K>M@?3YJF33Z|x(m>pVE&>hH#d3`V!)}b}P)tfcOKf?)L
zwFJ581Fa_sTAhJ9mj)7ndX1Exq$Sc+T5?K4Vp2j%N=orJ-aZr7jUja&#{VWH{!%=B
z=k8zc|Hl)r<;gwElbhCh-=DkIU+j<E@&C474UMf64cG5jdDn9Pf=wF6wu@aHl_P@>
zUbu8A#{J-l0|$Z*8k%p_Ft#-GKWM&DMcLGRBg=`CfgI=j&-v)C47sr3q=u&EhD+D=
z_4TiNpV7T`THkB?<tu?2=XFj7aCqtZ>1uiV1{Rz?uO0Zo`;2cW!){-GAFJoj#imSK
zBBuG{+43b~PenyipDi;oFfcHbFfh<bev_1tmXdPO>(|AD-(UavzUXkzec!ro#{ZLk
z#;I6UM}GhGl=be_PxZPtS8?z9{CRrm`DxF8Kiph+uz%9e9{qjmQ~v#X?!GF+|NNB7
zyPGYprR$&a%{s9%bMo)C-;ZzIyKnd6-QJt3vXjqGxyN}~{nSTM{ePMJC%oPMspQ+?
znD(9g`cED*CdIL_F&HG(VmbNW2z&-RG@kG#LCl*&z-ds|&{#nibl8NUfr$lZ+c{=R
zG&e<=ZU=K=DG{U<S7J0Z$2;8)8%=T5chh&*_t5v!_ty8(_tp0UkE{gg2kVFEhw6vv
zhwDe`C&KQl&`$#0N|6k{Y65(ngnkO_<_h>4T=2yeY5M8Vi!GqX4(ey<XX<C^XQSR^
z0a~R8yLLi97kse==xU36@b2(}#3I=36tIyR&@~sJTP;8vEkIXY6oKx)01erIZnOXm
z*MRQJ01eoHZ?DiV*RRm8$VAI)W}pouD5EwY5ojC|pVurbjgUue=0=q#h@{@SpPDEu
z(3ESKJ(E*`iHjqNSu==b;=O9lmwR(hEz7+>_ilRi{Vivgr8{%A2w6G3P*8|H-?ZYy
z%a=Fb&HeH0-M(_+FMF)_TJN`KI+>PU_N=n*{CXQ<yY>0<a`Vsc&%bu4^|M+Jf9-FR
z?-ui`7x8~zvOr>X{hez|->@^Y8f?gaES#(*_ee|biA(dvR`!aAHFZ(jZapfQ9u{(y
zZFc#aTh%K*A6fZXJiq40%Qag{GSi%5_NXL<TzS#KIazJ5joPE1A0Ml`p7H2B>C@5W
z(;Fe7+1c;eIc0+UB;{$#T~&{GED>D1?1;C@%gOVr^~}x7V^X}X?bvc=N9N+=E>F}v
z9w|>dnsPMd*%24_GoId4U39v9Iy+zNeNwph|5-0@&-2rcq`2w$boZU~@$Ek|Ma4zU
zUH!<hWlN77aeX#X{?cRR%bSI^9rI9H{786F@+8%XFF$e?PSn(#XlQ%i&!fx7zu%|N
z=cbhG%vp2&?56ISCplltxzEebd+vleqEly1&^y`LIcZ7ir;0r{jf2wH%{Be~^^9d?
zv1)$G{+ZI2_W7@yR<vI1PD+}7M7KA7+6J3K*Gs2DHCHe9sV@C=MR7eZ?|%Cv1z|V-
zs)8rVi`<X$+nQB)8}^&`Y@cC1$9(2@k$jf-nfHqBdEDc=r*Y5gUdBDGdz<%|?wPsA
zaL?8~k$X1oxw)rs&-KdlAD?}A_DSu-y$81EXCI$^qI&XorhL2iuJ@SkdGDEC*<G>z
z!@MVkdmQ&1+{0cGx37`EM*02`^Uu09+V_ub|14Xhe*b9sXWJV6`^WVkPXBcJ$J0Mt
z_g=Gb?Af<R>t9w~`26A~*QVFC<zHv3)r7p*mw&oee5Lf?n~b&WF+1#Y7bIQy++5bC
z%W>QE#?J#!*!NWy+-<(&ysll{=Fe5-RHe5Q+}q~Vl{i*J{CNK8)bV+>H8&pr=ro`I
z!RF&X;U6c(=k4)bZqUSGwJ0~^<A&73|7>i&uKee}(%r^-(dU<kmfK7IJa*#s;${7}
zY@<wey_Hlv-d3uq*kQ)D^ZMT!6Y;z1T~*4vGK{s2H5fl>^oG7(@LC~bU3>0@LuLmL
zHXhE6TT!6ho8^{ts>p%2A}6o?y;YTpOk~S48TmRUk&shaX4^d&cNX!_crkaw?LCwC
zeB_C~T)c<<Padm?K1((8X`NTEmVa+nl|RC|AUIn@<lO6d>Q31g*?oUB*CpPW{)xfd
z?0~!dJRM8z9kotJ#IjTtEL~!k+PVDB!|j*dCa2F|tM(ythi(FQ#A=<?KDNb6RVtor
zwr9Hfu*WxM2cLb=hSoqY9-|4t(ov7T-_3RQw~p~j5IrE4_43Zn&ePW!r>-vxy=t*~
zF5|LCC-kncTdmx_earb-8}jz4%)cggTj~ynw4#2LqOONV6qA+LL#D~6Gk9*i*i`=K
zcXZ>Y-QB{)5tSda)YhDK@T#(FC}a6~=lgu_3*6?eT^W0`xPDFu@SPKIZh@X+l^m}F
z^S_eHmmkyboGBN*AKz*p6#jhfQRd7)od)Z__lhp#x-i}FY1MMZF30qQNXgJP-$j>C
zyvQ+}S>7zs*|J@Gdd|Ebk0fM{J$U+K+X{{^3k<b-)(FZZuub0jM=6WT-MckD<jf7D
zS3lD~FsSwHW<028w{y?#JCzg9U%#<q?a!vrH)d9hr!?EIEm~x(Fx9u+rNdmkb=ES?
zHk+NN6SkVaDE_1>X{FoDy;1(VBfF`cL1SP{Eklf*_{%js5mvl$>6aCR#bz15mz|?s
z-uQiq>&%xa7ZU#Ln`nBvQIuJ_HU5fMceuojaNdx4tHcd_Y-5xfR=1zdseMsU&0*km
z;_~xG&G{z{GkqQ~?%sSf>Sj}0TeNmhTKi<K*SDs~zLAoCBLB<hLh74Y`bMwcdR<GH
zaQfx-<(jq9>k}C}3dPPHlYDYYeIetF{$q7Ddu!hdKKuOrv>mhY)1Zd9#aCB<*<uuG
zRDJG}<!SLJ>)EmnT{xUkldf9zGW*JW%dh9|HqU4HdbTrjMpqK=f&`Jg4HXAN@|GUn
zrT0Z_Yxe2mOeP=YZKpfW>)A5NQJyQ%#Ia1q%h@^JsrI9>&x*@?_kXKC&CA9gylVSK
zh5grGe&=0uPcOJ$@ZZbkP>Y&ay}GBWciKIB=NifKvvGYF{#U)-Q?rQUpC8-BZE1Da
zr9xDUBF~l?1iBTRoKn^6=D)ww{ph~N<&%YN{%Wi5XvjLeU#O17a%R?qmBA8wuN`3W
z&eWA!emF;W<Au2^cFgz94xK#tWQ0}vu8>bM0m-fE6OY|Y+VVzmfsB?*V(-eyn;h1A
zr#mDEOrCgk)>Xgl7sC=4{mp3G>F51H@tqlG@q5L+Yvq<$UC3U_!}osO+qH9lJik@A
z^pKW;)Z3*Y65FHVI{j)NsV@0&^!a`-PBm}iszX8VZiLmH3`_rb?fq&#i#NPmcP|w4
zN^$eJn3nFy7W&}a>eZ{)XXSck#e9DDtTeN7%PQq{na<~DXfM6g^62Q3W&d-}oUU0l
zWB#!}fkDq|9k*<s+26Nt_9Fe(>oTk>?XUOT;aR%rWsaVKaEXkoW}5j-k<B-jlxvBw
z<u>-6o2fN%AIp`Bhmk4&R~9{VGTEV3IE$qu$7->@+S$bVy+ud=J3qBaNRxW7YG>ny
z@9b~3T`;h;4S1*^oRSi;SWaaE?~{^cA;#H^OvxJ}y*yeUKW$XresP8NZ;#%ib2Cbo
zH&oA&R`4=@lICm{`b39^W!34jlAN2CvhBzFZrFUyN^EYkTVtWqE*jGIB-Lg^hLp_2
z3%9qL_6GQeidGaE1r?d;zV6x88h5Lat#r$?t0!zqs%lr2ZZ<wAnA*;_YT>UdZ)Y{X
zdLd-wUV76pMC6IvpZ>!(f}9^}Uo5qiJvS-r*@FFxHr;uDW=(G?W2))Q-ky_BZso0A
zvqLaXbMv&wQ+H(Df|pO+w5wON%&DY@W!eTIkG7T1o&?lRF$xM{XX)Wxus$g(Qro*D
zT=V{t4&TGI9|S6G0?zZjc1dp5GkIBU(o*^Q(Ddc|e(Ab7)T_Qy<y#b4_wS}L)0U~#
zUM1l#%D=vtKV_yyj_ctybsGXxjl%6_r*(v1x>%94f8)Y)&rZrbNYCR=e`pqK=dp6?
z?c{sEmKm$WXkF0cT@&M-FS$=kn{kCqYkBn6lX;rT9eaEPDy=$ZadJlP$ag&#Hu*JI
zz}6=rd55<9NS#sIGly&Q*_8{cLr>O+rhLiym~^J?@#90n9?x=2ck4C(D4*A~LA-9w
zZp%M%tX@<1o{9V4C;4io7l*_Nah5Mr9W38Xtj>{|a@!|taqrHCSHBiMKICB&Y2+5Z
z!sC>&4$G<!-{&ay?5;R(`r+Izf36GLkGs5Et1G#CA?vDDUb9a{?Oo0x`^|!(d0ofS
z?rG1@_P)_gIk5Ts#Y0z==j}YQ^=^>Twy>SsCbLZyK9g<C!>MJJ|18bMd)ui6-BqP(
z0jou2bC18ezjp753aPbrD;8Kyx^=Cu^QiKay+;zYwq7!o&(FWjH)Zpc2~$-4uZkFL
zTwEk}$SUj1(KFl6Z7*Xv^}^s?K-mL{SBIan{|pb1XWTybclU{nXP?+`g{+j;nj^Kj
z>tu^-j+)?;lh2OCKiIPE6zeakWwW+!4q%bm8@2w>_tJd6^Hpi@R$ZOIxH^Wl{Vdy|
ze-3X~<mTmgl|S{qe)5@~&8CNUt?$qMzp5=E?epHKkLNA@>x#v6cWOV_w#Zs3`@q$*
z_vccBLf6eoyDI&msI<+>Ri9P!qQ>4p?Z~N<WO%QvF4(%}<gR3SsWUsIbL~C^%Xa3z
z{<oB;bpCseZC|D-2G3h|F5T=g<ECB#=iYkje^EE>c3knhes2GY%$Dp8&wbvWd^X$n
zh2af<SzrB==g*uup|>q_j@B*R^(Py?PMBb2mF#<L)sKotx6PKAmtDKvEGC~>?fZW1
zmi@{PeibJwWkzS+RZ}YZ`;oaqrLOAD#Y*$P?7Hvgq{vLv?fhNO&HFRoYkCf=*4(vU
z*?suF%N^T$`bkk<zN_HFZ&g7a-sg9uiKeA*cJZ)PS}XFU_2=yH99<9QtlWziW!YzQ
zw7ySmQn$KwtI_KDY!{XA<O`F6>Z{I|-rNzW)Ep^(DLQ%Q`L_<6FFbx&uK#X>$t+p7
z=@TmqxU<7A-kfkU%~8f>_G2gA@X6CwuU&KZ0LvFY-OTMKu8S^~*|+t#>~CN9?cA;%
zZ4sQyPc8X*-7!@B|Fp9|o-X*eL~6fLTG@O1V`uWXXLw88Pkb-<KG8%f@L|UxM*pf4
zo*lv4B&HPow0(V_Z}*wEPk8b-HePUz*lVk^C}o>e_uN)pmrT7A%=i2QQasK|zgw{V
zJ;#OPFIJogi!OaG6tPfBtNZenoiis~U3{%^*{5%Zy=yqVABTIUlsx-6bzR7UHvPkk
z&Ip{5Nt=B6h{^wgeaj?QbcsE^^yH6uQXxz51_Qey<BX1LPb;$5G<q%aD81QtXv&$M
zCB5v$-{<7-O)<Va@5Z$klO1Yrce<D=YG{15+B(m(XU6QQEFmS1!N#28EL@3qdgMA5
z-iZBEt3L71CWe)}mUVY*)|z%E<fU=ORL4Ap9AB;2P4}0Ct(eMrOQuSwE__>9IK#(B
zhVEi<s_W_vG;amZU%Ttat7B_dp42RPXEITjL2dc(13UXBMJ<SW9rR4!^T>D4<QYfI
z&5ljv^!8Y@JBm?sX*x&8vOCNd8Qw`deMtKryFf}d;NisPX`U^fIZ8_o_!OV=@A&!t
z&7We8hl^USCa^@`+^u1GN2o~qn1H}kuSa25N)8pz-Y9UM!*XxD@!UH(l?<l$^Y}lM
z$GNVY&%J}=9b+J)V`gBW<3c<6D<NS!_bghtZr9%fZQE}CDAYN2_~Ql6<I8K>+v<Nb
zA78dn`19KE%om!A4dhcCbUo|~ikAOB{p_;OhR-kFExy2WySw&f$c_HlRoovQfBr7=
zPAVYuoSg4jbv}<7jBFF0mVVxSpKt!DxrwX4w6Gohaq@q{mXC+;ZYyvNsk@Z&Xloa5
z(9+&g1K$ft_uTBZY`t!Nw|U*H$h0ZH7jnIETYa;4-h;AM>DKN4P8px<Vfm0`e&bG<
zwfU-Sfl5jK_xrxA&s!s>HzC7W$Z+@PxM}|?SLiIX5^9<Hw`YSuf93mws|$L9=KDWb
zdeQ0Q`45Y3-Z>g^(YyH3fBUmvceVfAci%a+`dzB*wB2e&Tc@+%Hx3T#->6iwlBM+{
zODm^}^*4{HZr6nW%lIrmIM<m+eYL*Hh8_9eFBQx=7`oyVuN&viU&mW^o{HNNbzY#2
zgK^7t)ui4#6P9m#Rku}DZ)xB;9n+Oe5B6W5RIpC%&LYOWp^ZLww;y`@Gi|T%9foIe
z6OIW?SjK)~HRHc~r&r|6X3%wGRZ5!Z%dV|&8s*>6e@l3CF`w9j^!W!jyUm&LY59GI
z=OItqedUrjJP}Fe?kHPec)#sgS$u5Pp@Kh5IjXTbhbA_5-Hxde=>4(8=74<>d+ZM7
z2P{Vz@BKQ-_{?}chxWt^K`*P1KNGapKINr#(8<WFwPdrOAb;zWB{5-vw*_wOD^I?9
zt%dbcpyn2}_Ry4v?JF$p7w&Ab)UR1Pd!pTB`#RH(QWeQ3Q{S6fM=xwyHL2>8QPAdO
zv$rR2Rc`rv<Xh3Mmp-CWDO)BtShV~&@^<SBp3Da;&a<lQjS*Rx>14uVcz@wO^JlR~
z`;C4atDiOF{(8y1*LZA?mHrXQ+AmO7pi=8s@~-=0;h9^$-J!EPL-<A83STZMnb)7k
zx+9VC-_+AgdY#fLMw1R7ytjByS4rudzG>TzUU!?w+`{rj@W;x)<<ny9Hs;U2eN=+i
z^8D#-O>t|2)q143Dko(46q{My-5TIF^_2Fd&6Ae|M&B;l@4z3ouX0n%Ip@``vv@qy
z%HsM=BE7z(<UV}(?JsYJ!(GK??+(2C7V9wgyYICu&Nrnj-yHY6I-PBrQP7aR;-UPW
zzqJk0MbQWLW(qHS?zdoK2H%3IB2|SNj~-sMkX-&aCZ<Jw@jm~>%d=+bzLVXOr?~K3
zk{0K(x`uc6`=9N8o3+_*>Geqg^GvHV(`-EFx0ZIj7KwW$;LEFar^WwalCD&l?8kLA
z#pU`RKgGw-?2?z>$tM0-Gg&gX`w>^+!qwN-#?H;2+}voXD=w;f@ZGn!Z+Dl4rs!&!
zNQhXeInP_9_F3jw?9Z8z7uH^|;@$dR{jJiICijx~i(e<~jd*n3%G=x4PCK^H_Cx0T
zb-p>9EVoJKrlo&~D2`oV65%*&*X_9i+l|;hZx%Du>YV2DZ~fXkT;Zx`<366A8vXJe
zUx~fU@^h|lt8x$ideXa5h1IF7VZj#<23fVF>mTBbCr<gjQ{Hu3*5=iR-k6w8>|B1&
zkx61|fPuQztdl1qrkXS|ELtycRHXZ#jKlZ%Ci~#+YIBbEU#j?h{>i8PtW)QQ2fY8X
zZoxm><T>t7|6cfe==`ba$HiAoG8J;0yR1jGyt^_(p~61v=jMKnO^z$WSAQ*e)}#AV
zXo1kxMp?((ir&J>pC+FEaIn|B>7||)&)0Vr7bp1tct7`!?<cS5aQlh-SA<NOH*ey+
z=cm`N%UYAQWO+HiNTpQA>~+OI>ieXUlmFdJzMq?~^6YpZo2TU~nYm4YsX2#24vM+D
z6)HUmke>DU`((eKf`5yJFR^xZU%T_V<!pFqmqB=V*@o;ITluqlTe$Q&cOCiuX#2GU
zjY$_@PfvXl9s61B;p_H~4mI*}CO=Ocb8bBof9ci~ckaYV6^E8=T>L!Qk-;_~cdgm2
zjKxPYcuw}+@^I@2nSJf$w8u6Hn!Tavo27c~_-hvwf4{`-dfc&Rp29Vc9=RPeF2uY@
zRtasL_I&lG+(Nyjns;YjU~peyzvuf!d3%ektlxbvc{(~vJG?BEJew*ev|yg{oQJ<=
z7=I7h_=C^OR{25OB%?5qsi~epDw;d@HLcpU>z0*N{-4*U7wviZdb+Oqv<(7F&be7H
z%&X@&O<DHri0jt$_xr#6oVY&gg>{U)(7D<Kv2wR<Yh*XRiCa3?ExEOMo#oc=BA)5{
ziei_vOnv>y^X@+eN51VJcfPz+u2jAE=rcoW-`fov9?Z8c3Fa=nxQpl5g3G6!zRTTu
zK0`)TZ5Q8J715%J=Q&<7-mQ(8!OGTbm2WstHt$0A$rr6*AIhd*jLKSk-|76-X^R6@
zPIA6>Tz+YT5wrBAlM9TdO?7Xu@N@2%VKHG>mGBio7IO(_j&<f&S_SSf^!}<^5TmHD
zT0wcUgpZ`ps>sx~proH`Y_sJb*<3j3Z@ZUg<L|eR=l{=Z`!LPI*6h}+HxAsnrf1*$
zW;NiyvLIQsYNp+my7)_Sr8_pR+oJ1m{Y|0#Uv>LQ*1?<FG#uhK?%sMPC{;66C)I^F
zwjj^(u=l%!%HZJ8um6;*%jFrQcg9UVxLEyOaI#Uu!6otMwH7;G6Bg`<d6zLI=k}Cs
zfnQ(gSShMmX)T-Z;;u>4OZVnK+~zE?&CYG9>6MT7OHE@*ib(q3oH(;#_aWgA$v^gq
zyD^!TKb;q?mZ8-7z}v4zzw+-o(M~tHl@n9^dBWY+ANMY;Y?;s9`QY(}^Kt*>Y+K|U
z{s#OoV|x94llJa5p^3|Od|t$CUOw}-kKE#oJvTnp-@2&&C&~T2$&Hy-wXIA=3pN-?
z^ZZCDPy7+HZd-ih)bjP`?@IG6-nL=G)M-xh3`L%P_W9{BafQI8Uzd{IQkTuF-2Qw0
zvl#Bztc98pYxwjF@77jrF1`NX|NG_{KBcp?T0IYkyeo-aXT-SW(S?nU(Y}+LzsV{y
zJ-n0nP0o>7aDTY#G}olWcUo>UmrnlQuN72SA%3y>oSbN7?%8Ld8@C)hZMHl#Jxndq
zIFV`1?D_f^%iPTJeq|n)j^Fd-dfA?(s`l?I>gU|O&B&L>StoOLuISY_EAwoVODD}#
z70J0camqZ_%$#TX2QJ@cl@89$2%M;)c70Wd>yA~{nl{sdrT_f8rR`QIY1p8*Gw`^J
zql&caq?baQpNR8&)l|QkWh0zCyDj%Fcd`X{#e!G60^byUw~4#>U1qE3BgJ!b1gyMn
zOTYEzmztWXwrsJq<Wje({6~&VzBxxVLq459|Fzl7BA=*90ecdPBc1!bPc7EonP&f=
znU8Z<+_No8{b%!7&7X!@JzXPr<!H%w#W%|0>se<?r0}hcK0Q(V(B3Rz&zdQ>UzY5?
z8aA`{C7(j_{(4K<Q^Gsf@@enP>p!Kny-eO|--o2#auExjcrA^|y!zt`kNAOOd7na;
zT+4FMoMt^WZ!_ncI4d60M^mT1*ed@cBhI10OxpFiak-27v$SPPe;aSB+#|NU+iZ4^
zON7SaivcFeb%jYv%G1BEIpyiMVb}fLjlbH@G1-5}|Eu7j-Pa+tX;pCW=1oDtt2awY
zty(R8B4gu?n4gb}?Eg!AU(qo8{#HkqM=h;BVJjH2Ojjpn{`q=eY|^b)2QCyB#%<nv
z#*Oa}mwNajR>pUh_VS_&-n(4$x?Z;7Us8Mb{8#(VO|lc@k9sj}YG~D|vud{<eUZD@
zcg%EY`HMdVoMj~;*R9RBE`9qmep|r*T=kud`qS1<b>GCb(Q$X(pOi<5o44(~ny`NR
zb>YZWr`J7CV>x%fZhhPRy5#G!OZKTfSad;l;-fFul7kZk_e2_$zS3U5;<%&H)&l-z
z0W3jv?RJibFCHn3e|)gwh?|Yd+7lBm?^wHO<0@52t{1l9_cxj{ls>(brPFn7&B>W(
z5?J@C9;$s19UjZub)#}p=6jn9B~ltk%pdOCx%t`S9Gkw1=XRe?zsRrKx1BRJ&Si7w
z+}~}BU1TrKdeieor}L0jx#r7Fhdz~bw5-^ZdQv)g+Yz;#hSUjnR@I!2jV={?rP+Ti
zbj_sK+@V`+!oR5<QO)bPwS{3trKNh`LiYVX<@WSMKb;`Hx_hcr)!8128vCB*&qB^t
z{GVIP-oNeAxuw=-bJ}Ka_#g6m>nrBl7ljLEb=<RgB(vj5gMNe1N&Dk}|GaYk`o8u~
zL~TgJv4z4)XXa0}6?>FW8#}8r*Q?~!x}^&pr4M;usWV*?B$Vm(>DiI2_Bq!gc-&+I
zwDv}+TML!H`LgaY`?urMPOtTuXnHU@=WOW{tD-mEs}Gw`U2bwf@5au@kNL~Diki3m
zaeOSvaV^Ktb@CU*?o^|!(%TD|`nKNNaV>0KENiI4)j6#RZ_|=X3dJ&vC9bX9?kxFZ
z&C~?0$l$f1x~;uA>(*Xau~<3i**>nz3fpXo;;mZU7PAFvR?eT@lGeR2W_6P2t+OgZ
zf|_MP!G&vAoDx%TzIEyI=?Nh(MRxVJ^i5GH73iwiG5u3{oa^s<Vg-^OdQQT}WM?$a
zKk{(l-LpF;U*2z7yz|wS(p$T;qKnuA+?(9J-%4$EJG&`s+QfC;%Ek_=htFmeE!E>M
z7Ux~zA|h!x`Jke@h~C?c^Dmq0EWB6YYf^a2#PVcucd*qtxfQN^mN}o<r=1_Vh2g8{
z1NY^}4h0E+jELpwTjOF}b*D&Ca{s>PYt=6<+|8u7JbTZH48xlzWZKp&JG5Z>s|=f;
z>lZJ#PQLYE&y1ATTiXL#jwb7K=Pv(W>ly$3__wy|bC%8%BW2F7InM9M_T=!4+0pwi
ztT-`OWNp&Zos&6_w&bXDE*2A3RE+Muxm~uGFTeSA!FPS@?_uu>&8@PT<PXceirDr3
zzWDXe;r?Cyvw!@lVbWmQd$}T1waT#JpPbWt(*ysj=O2{+aE{~Oz4Tl6D_uUUUu$7o
znHlBiX0ul*>!@+%<&Q`9^YNL#SR>`0@jA_Dmj1%F4_!yAlhz*)-Er;G#`OR9mTfK&
z)jKZNx7u>w+Rr92%RWd~Y+4baeLdY#@QIX2*yPor@6}cmH-&o(F5Vczvi|s)sJV0A
zoibg@Fm>~t87Cwz@y$NHkk_lHci!8=YblT2E?-)6{nDbv;rj%)^Q?Gjc>I2$W9QZ;
z%kG@U=;;?-ges35kDeqxneQui@8#=^cHia9gPy#reB^nv#B8eD^3d!IouhpkUpB0A
zD{|3Uf6C56aK%!|)!k02rL%Ivgo8INKAF_)mN6%8+s;fc;bk3Z5)SKw9@f0!+VB2J
zYIa-4)VoOwCyMNx)mFV|_4Mw&nvGlMGnDRmx8eG#?V23jS`kTdM%<qgc+a@rdLzB$
zk#|btI!@m|vCH?b`~7PX!_>mhE<X-VN&g^lpm|05`E$Fvf7LgrDg4^JqM1{+B<A>}
z>?M;K>r1^C@87Xv(znxpj;f}}d9U(jW_@PCzWG)x3#)@~@9j+$sfRy3P&zhQch$`s
zJA~2#KPP=y{WvV=Zs}hi>8K{TeAQEh>Mi$X*1g+#N}!5=&f^!wOnGtFKPwr`yqlue
z^I(c5PtLx+xGwGwF1m7^M;qn~9G>AF955ql>KeZw)zfAgNlwd-=52`LWIMCvq>EA^
zKi9?XFcT(Qz88iS<yU3T?9ljA@%{Cpqt7CBKbS6P+|IGH|69;j=XI~G%n!L7V2)EM
z{?pSVa;$x_*3RJRKVRgVHqAYucdPN8bIsz}1wS_D*<_zm%H3x*{p7rvPEwN`Pp-{s
zzb<&=-LlnoC8beKYU@vCe>AHt73<Bbzy9tc%YjRuuZyf<yP~tV%IC_770Y=Y4}X23
zzuC`Kc80UlujciS4Nr2Z@91z?**ULhhC<r6NXGCEDc5U7o5f#M#oU>4b@k)TFX}(#
z{QtVsW@YSpbJ73H%>VZ8Z53P6rNPF%d;1@!ea+w4w$J2yE!7sReR0v_7ndLZY2G?#
zd0fM?hnY&T8y)>)3d&lKrSi^L-C<Z5vHj}8#3OCer#!x@2@B3_n73cD_LHeil3`qH
zxPF?!`Tc(+V%mObU3vb*wSDrLj?PU2XO{UMR-PwYUH2^B=w&}&N5~VQ5I3(hgIT_*
z^JjX`P^fzHOq}JB`0KEB$Nz5NXm3q1-E!4YzV48Fd~CrT!8tb+Uv(zGl1sjqv0Clf
zt*fg}-tJvibE0kzfBqzkWmmOJSlKLBR6U9a&aK=$f8EWemjC?!Dd+d49928SUX<_M
zx%5`hu^DrgXy@(d&iq|;dE2LDyLPSGYb~|v_USKCLAtuCo4uQS8{4FouQSWLIBDy~
z*)Ml`Z{~WOlD7T%f~{x5Uf=w_*|W(aRpYiucv<h~&;12njIW$z7tKBV?eWH?lP=|m
zUtts#nDp&d$5oTpzH3|`UK2QaG<wJ9hnB~~tIQc(duGNwy&yd^S8DgNw0F~YsL7Z=
zu$t+!xG|}4pMO}?tCHO^Pl`nZ9vt#mFtuRwzr)Q^H`z+9_Hw)~ZB^-hd9-NyLAT#6
z(``ETKfbLWU?COb{-<g4bG8tn*i~Kg`innG+!5zaKKWyh?s}Jc`*ZH|Wds%!t=rG>
zRaos&;3?e?Y$r=!_OV<~D`Ix|seSsdnL%ca&#P1m_d`Dge@DMNEF#3UckP9kxy+S3
z`*hE=N!-|@XlIqIteM>*C9Bqb*iC*%q0N?0uSC=yI%<DhaN^^tL-X98PhGXAx9^u3
z|J&Q#YVRG3EIC<(!e?EW%20p3@=8tIfwj*gE>>zLxh1gmAJ&bq+Q!Ij=j?n@;!2;2
ziCyP>k*RaP?!W%e?{4F^WS3L?H=gN7FOQmR+7+nQ`9!)nu4|^Ky?NSQu?0fKQg-)K
zt>b>Hs~wTr8#ZGGOWw28gJw3)SFA0s*!Qfzdb34twX;oqNboN^Bf-BDJ8Is&kbhQs
zt|sk<hs?A?3)l;KUVLr(K1Xcz{Wq#^+t;r)y|C~1se=vzE4D4WVyPWec>hbO&!eWV
zo`#BdWqkAWH9OkafBs&_c|mcCvX*YU(R`gRf1ax*esw?ISI-s_5E14Tr=zBSjQgX&
zpBo-FV&8X~J#8<3e(P>pbM(sV&2A@Eo*#R5Tu3x(_v^Cm<lQ%&-@Rg064Gb;F@L`E
z$*WD5*1J?qOLcV5%+;EGHD}%W<+5e<t%o1Zx@7Q}Ym2jYXlm#At@-RbG>l*K{GHk5
z<#|3{AbJMZm1Rwb&2yLSP18;`YCie?|6%zH1}35xibEvlM14BNW8=AK!S&=iqj&s2
z>R#Qstu(pX{L~wlzpwAD%E@P1CHaW!!|DpId0XprcbZK59441<|L}S7**mg<frUv@
z2R9sAT41@hZ1&V|Q$nu3=e(i2F5pYi%C%Y9Wu1FsLf4kR+T-dVn%NZ^<sOvD*K9BP
z%v;fX`jlSI(|iS+@8s!wadH$c`MvK!!|CsrnSbqjBY$K6F|z`N{_ph*ch6J6Tz3aP
zNEo_a2Jf0D&rnC#V9@0x!I6-&bHPiV3>0)NO~Gdw87i0?m|$7(WMIODbfk_si0hIH
zIc*1|73YE{OS}u7g7g!MOHzw6i?eeROEUD6GmDaQQd9Cv^ivYk(^HG!Cw1u~Ez^S?
zp@Fu92z0_4>T*4h2sB9CGIL5&i}c-c5=&BDQj_yjQn~a|4kvPkow{RaWNKz-S6ot*
znwZN~F-JD2+9x<%V*hld-C4&kEaCRKc3ZVuSh2%zIZr%y-bojOkEXGUE*)%*TiAa$
z%*%V>mu)tA{`uUw3zv#;Z9B}^^x5>Wo7vq-tj{OuMlUitJ}q&X-n;(Plb`Mu&A55h
z{#^OF?<d|{-+%voqDvZ^<D`_Z%BKgDqv!9t=9TTCY42PW**GsmC(c_ws%;9_k~1=A
z&&NdZc7{HvXSA_oah=3wtpA0t*LRw<uUX&P>yaj}v$#y8y}h@KWtvT$G9~NYC1aWB
z#ikirTg7A-Uyn*z9$0)K;;@m}?6kXObB`uf6(43>eKl&$)!E&>F@MiBDfLd>`oe@=
z!uYVM;nrE@J#5{}yjG{1oUe=cb7q?K*JYQ*+AfDkWlNqrkeNMSX>*&^wF6N(QJd!^
zo#icZj^#al)x>D4TX$#jR~|=!D~yNIZmkHICUE5S5s5^ly(&tzOFVvcJ~a|{Q7i2I
z(aSSw!o$Ed;VPovm%Mx9dd*7v?Ab|~?<P8B`K7OT@Fe|K`RQ-s4`t_;OupXfqpPd8
zn|WtIdpt+w`l@p?_8mOZd;Og3U$MXsN^9EY2+lXZan9H#d%<m)s&58XJ+Jn!|JVBS
zpxrGqhWB^&uuHyBWVPJE^6+p)spzHLpvQZZf1O>?TExEBcB6FX%MPn5%__NVEwc)<
z%-7j9e7<X@qM-lurC`(I@Su-%TVJ%tc=R1SAM!1U&*ba`hb7xJFY#pr@u~$Hr8<^X
zy$lTNmYliMSi>*fo3kd%W!8RfUQVGi<)Q{^dlz<b*4``pt}_3Pgxi&)2P!PCm<Ha?
zdG|m%WAE*!r5uk+K6ssXQ4svc<Qx2WZF9`zwXx+|C2OXKcE5f2{is#@i%&0|c@vBC
zjTdF@{<6pVLPep)P3d_{jyu=xo1sxKukGBjZC+0t-=7rbPhNZf)#Iamj3Una;tCml
zI&nANocFu&_Y1q$eJ%&DMLXHodwQH~ep?e{xT(Ux@!!m8BA5RCuM2&+I4CYXzI?s(
z)6$bIJMPS~-MQB0mCM}__kL>`fk2B@@AzxybhI4Uu|?hdg+ME#h}+*4`4LXtw~L(v
zRTjx*ZP2~*?!}Y2vajC!@i|xO7**Lg$9ngUmusAM@g}cQHjjRECgSSVt{;jn59jo*
zPf(5fXRVeXdZFI&+SkutzMgXY&3gIG$>?wEQyv!o`yoDMLk+h;h3K;DkJl)F{gN{G
z)unRodS|mm|9);<vZ3JkJKm$B<qcX(yjO>sR-3OsTJ-FyEx(-oyxo64TwEJFqe`dS
z#NJeCuL`$GK`>*vL&(|r|5Fr1CHY#JGiG#cKbj-Q_|ebwoPOs)t3nTtmx1#(->jX*
z|DskeY76^mSMIpa3fHgRe*0W7HM{u6+KJ~1#CcnPd%b=gWtkqgdG>p!vr}weNpPL2
zalJC({{q(h$g-*%vJ<U)+jbw@Tbrf$?x&{(^QldD`qvbRE^1q}vEtCp!|WNA4?lEi
zb~rJ*EI+YRv*SQjhmYo^_~v-ls2H}}A2?%ry$dDn`nCqNZ9mAlqAf_H`SGizsTGc`
zs|y%K4#ur$a*|A&UnBlNX-{~c_#>u0{rh;iS82c5$?s?ODr;--a=rMuGxn`G*Y@+Y
z@}+jpPsJP>4}w<)igx{W((v$=nB3d5dE?UH-s0)^zH!Coo|yf7PC;vvouODr`s~Rs
zV^`|<xX+s%X}GyaZDGi%=ao%A<gb6tTZvhpfX>c0P=J=6cq<gwFeeY^2=L7&kTbAh
z6^aq)t_Sd;=p^q=HZ;XipIBPptxob%(-TWF^Ye;x5{om?>Icvn^{Dj&NCfIb;_C-v
zL*(OSQI>OWVc8f`4`0sx*ZTMJPv=>n>$#`i59h2sFY;&JvH!M_u=U*c>9d~O+7Dwr
z_tT}zn9rU&uYJx_=UhTULV`(h!keUoq?DA6KQA8qZe4v)f8WoZ`%~+E68~xby&O~W
z>CC%(@9g?C*BY;SeLMP9^wWPTfBxQ$xqbKMUB#OgJL{f(`R9qeRQrs{x7?W9JD%={
zICAM#rN#EM51~u8nVoW7FjJe60n*ZXys6DO$}7|*2y~PtQex9JwuCL%HU{4lhNb;N
z?t*Poya^6<!M1y1Zf>H!hrTD$!fk(yrP~quk<bnD&{NGohoYgJcn01%pOc@5w0}Mo
zbdsTdYF<iWafUwld{oeu`ZWEtO#QUXvQ+)F9Q`!N2Kx-e)_Ty=Zph~Pyv)2*#18w!
zBFI68`UM~sWRrbCYEfo>ihd#PjrZV81zyixl$xp!+k{`PUjf>PuV00^72i_9Kmj$!
zfka5oapq>G$XRY~6?=rp^KbvwXj==r_Dt$bm=q~;^j`A&jS25rT?1UYF3m29`1NjH
zY?b@3OJRZ`4oB9hY>V+t+GF_YYDQ90r`nO2^AFrV{n>vvbaHimQSpEK>+FK%Y5R)L
zRp0w=n?BXx?ruY&&LcVZKA8sd-oMfL-s4F5?#}m~<rA)mr_TMDmY~P_`Q6v|w^F}}
zihnz}>)wu+zRPyIJQ7~uG3)trdAS{z4;$Y|Tk+apc46>xKe<ffx;HmgnibdHVJhFX
z>&Gpfa?Wohp9?vc)qmU;`TF^;%eoeK(q8bKe~|D$Gx=CcTU%e*M^34?;x7!dZ+OhU
zF!$g*v+O%fcbLj|zuge|;<<Fr=0iu1pFLKv<6@is=RY-noSW`4<xczkwt)M~*7A=Z
z3lk;Mj>g2d^ZzkB`}w|&eS+hILkhnixGHv+>vNVyN^Pr+-0}KThphIUuwCmvMZDda
z_WV}t>pj=1^FQ3QD7^GUGkEz~8KaUJi+`So^INRs-Y;pL_owCi%y~S<6CzLgq~^>F
zJ!6t4uzA+Zb3AF+49d<#rEzTTlRUL1z0FX1#=|piX)KQq)EwwZF*E!;Bk)XGnw{~i
z!W1!s<Qc7JB96_IJg$>;%(#0d=NX}AwP~8h6C;oLBuz7(JX7?H$g|vK^2tXdjQ`Fo
zmuP%A!+eI^8J=V9FOU8(+AP6+tpDZNJtw~;{xX_&CYnb-(7Vb&JM-X-cRs6*M16`i
z@6Quo%6EzTZg|Oh)9TAQH{a|$<673r`?RV^duRQ=jW2s^ZF8zszQ<hoysk1%zd!DN
zgwN(3cd9Gif6nKt*u3lf0=v%IeJ`wczqdQRVSC%2t0&k$hTrR}{GGSI^zXc=-0fOh
z-=){?uK#NN`Tow2@1~Ud@8AA!@0IU%f@@kF9wtAW7^9oN{brJI;^ef&n=`lnOm#TY
zu$lQd|DGJ{6J|vhbOJLk&g8Btxzhb@>7-xhOoIwTo(I`k#?KVxoVdWtt4k#=_I}jS
zcU<4*EPb};CiBXx7dU<|jHwMPy>ln*{JM)SFBY<F+WPX=7qcg84gAYy^>}n&)=<28
zD_xg`<6choD^CliwG+6uPi^Z~y76?uiN4hjPo%`07jEULe&B1&{n6-!t8wj?b^2xd
z+umLO6}jyZ*O|xve}11VZhz|jo*;#ZYbG;^UAEqq>22cvP~*vJ|CxOc85$Q{E8fx9
zdOP6tcKaR2bnAtC+H$!U|Fzh9=F_k5I+AM)KBuiuQO}z;`I7zKi%G096Qw6#(!A)s
z%4)m!(aDcw_kF$O>nmCC#nG#rqfJ&|*~aUaxcA&lD=k!Laol5M=;&BANiuAS{krgF
zs_9N`rcXqsZ^?QQdV8vNf^-h6sE?m%%+~h5ESr+NYYR;;Mox@WxtV#=r_>;#db4^E
zzmuiR0?vOoN)*&{OL#?`@~YCR)cBnFwdc5qL>7Jt^UChv?JO{zvefje$k`8x7Y@yx
zE?L%cV9VXANB!Yzb*%PgblP7_T)a>J*1d!0<@76Voew$^Ao#N?H*I!9{^@xpXJah0
zFCGdkGV*KFV*S76%jNEZ-rrS6bdyv|3h#+-dL7led(Y}QrQw=soCoh2ot}Tx(WvJ6
zLv#Lj`~O=`e0H*vdFR3Wz|?D}HwuMsJ|Qc!E$P~+o6S$elKK|8$*h}v<=)Y@-9d&t
z<)3bx|0em;SLbcciRdNgH!r*)ty}*`u$o(Cip7W72VBK#3>HM@cB~S-Rq9)+-Y0J6
zU~N)4_1&6+ixv&sI}X1(u(r<6Z=v3Sy?PRMyVOP1AB)agbLiR<nN+JK(cxxUUk<I7
zvS<`qwr9;jOAQZ=Z_f3fZgk~T$VNoJDl~9tsxy6NG-K}CGr1EUyNQ`UK6+{IuQq9^
zY}?l>zqHPMz^OQEtD1tz6c@JRT9bv7G;5TczRX?xWzsi3!<|uDWgYuJ#r-l(f7_re
zeL}=&qQ&I57QH>kOD*22*YMvz(fH<tghx;KY2gzdNp|G|1(Q!a3f{s0{n4c0?eqWH
zwEL`@lAUaF^5+3j$Euk!$v12#$j)97a!j3bOX&$V+rBHE`LC6;e%bABds_ZGGVkEg
zAH4DZAI`j#_F$ild7ptxntkG|&Cyr?DOCDsvU+o--`}gXpziwphQsr2yfyrGc;DeV
z1>0-+TsPmTZNF1KQPr8(_j9D%C9}%u&*M#b*}pzoUv)CQs&HwXR^64G^Ut4J?0@pX
zHx-8&7oI8wPY~EF6{!{_x36dMOJntuyV%N0)s6%is7JM@JFQgsb@E%n%9-<Z8aWb`
zPioEDc+;r++^XqUWh?x*)N1X$k$L#Pw2Z4?TXCTR-_g(=Z6^w4X6i5BFg5XyzL2oS
zQMPLw-=1%J|8S1;*5ePawth~~$Z2nUEta!o{`P7~*NGJ$Ql;3hdc1m{^wV^u1;_l)
z(Rpi5ep{mc(osd(!#?Szp~(FVyTFQNu71z{f1lHl&K#+J>72905|^LsdBq=ZG2FS6
z8oyYwX#U-O|DI0Ne4TMG?9w-z<;QEk3T@fhADz7<Dg8OmzSpl_uhXuSeHOk+?99@a
zoGQso&nDjd5@2Q&e157;!u%(d{!^|eY@DBywC1}(qKVoGpTBqG+maWi)e3HWn3W>7
z=&ts>+J84cujkd-EpYhfvKW~rBgeC=u1wr0aOCH7*N`cpBG=x2U0EFW^3f)n2!jhR
zjHmJZVV1I8diMI92Iqj4`!ag$ru=o7dE3KT+TS_*@?*i^jM<qP{k#inf6QNaGAdaA
zLY_U#{X=!h_bWFh2Y-@!x?<P)y7{k7Pm0`7X}w;MD6?!o&zki-?u~i5f`UDbyumMy
zY<xQDm#{>!Q`i0O%N5T3DytRD+yYiUdOUg3-qU-H%Py^neEaLb!PN>2lw9K8*D8E;
z`O~?>_SC12IV`afI|_y0C{z_32w$Gen%ZZjEVd)VgJb&S?Ke0&&Y!-J;nmf;rRUC{
zFJGR$b)RC@_4uA{xc>IGu=bD><?lY9m=i59;h&@3mf~vdS^HhpioF(uT{z+-lzW%y
zgwDdqOzw-xJ#jKADIC9lUpi+w_wvvCw{9l(b?UB(-+a_;j?X>!_V#e;zN;s`|1ht3
z#xR}xrfboh!*X8U`+Z*Kb_Ov@uQ2ds@mJpaHdTJfv0bO9Z#>e}(=uaa%2mUhKelr@
z_AeLazBsLD%Tl@JQ@s9F^8UW=@zJ|bV7+>C;Y|6}^WIoy?3l#8$2}|Z(%-NTD^LH{
zuT|Ufdu{sjs_F`zruE&dYm$A#9yQ6m{(3AceviJWwCgl=al@!<E6(oK3we=x?$p*P
z&2tlUEu{M+5B}S|Vau|4OD!yz(ieVJ{eLbfP$!WwPKCAptKP;rf4kKK*M+=Tl*w%J
zKh4-hdd|82`&&xxO?fiyGSj`plN`(^);AaJnZuKw$hkx2;~L&vFB=y1hY_xCEzcSG
z7`wJP7oYvIrncspq2;5~**(39il^d)rk$<TbnCGH#CvPc>?S|`+v~P0SK7k+CUN)2
z0IP4y%&r|4*w?OAwoBlJZnoE6CfzTkth0I=SvOq{t>pbOja@V~sebR0kPy#8L8bL)
z0#Y5+!ml!@ZuxUN<lw8dA$>Im4_72_>)o}<seFra##F(XOV70BoVb+s?qK=HX`wee
z|5pCy-FL+OrO(dm{CiC6)C5<DzU^#c=m=gNB(hEA?kT4$tuJm(6g>Q8(qfH+h9Pme
zEAun7T0VbS**$gR2DzBTL*5szZtmw<@VY4Fc+Q;-7q4!7;;^8=VCf>MFEOzmOQ)A#
z$UDz(7yI#U`29IGF$x)*RwS=nbW8T5(WY}(FP*ci=-0QuKP4>9V&3W?*4+nq7ahDR
z64JfvfV`8U-_#{OGR{G3-)xxWWFZ=~cJ-HAT2%__Ps?6K@6D9j;}ia-HK;VNWSi3c
zsa*TDA{k$;R5_BR@=RScDAQ~6I=c*?`NF>QwQI$$mRv5Kax%2idZPOOEnfY;z1mB}
zbac&imotBl{Oj^<>CvT{TnBdv1QlN@vS>bdvGtuhf9%`Ce|PQEjkmHp@bdb)YhN~(
zggjWhx@MR6T6gY(UEQtbPt*Ti+sJj}$wNl>Zk9R6gZzWv-+8j{{Kf*|g301LbiV3!
zuUMt0xi;(Otaa1E!)4E|V}0kc`!>r@y=$AgBG=EFyyryryz~=p1y7gNy|0g4aDE3b
z`#F&-1s~^sIQ;xa&fQI0|NXds%l>GfWRvUjh4%|I?8Npz)2}OW+<bgORQyx54&xmf
zy_;8lGJSPO;#IQn6wZ^KPxLJFTj&1?)&9%xYdzbQTdPdl({q}VHJ8Y>ebx$dxQ-=e
zZHijhb?GnX<KH(^1?IjjZ8`EFT%?%2mq}Gqpm^yI#kLQfHy13_e>=T@)21(9zfOJb
zEBNDb(aylkTFySF&^jho_mn+KmYFYkR?qYo-W(crVoTeeJA1eei{`Cj*vj}mJE8q$
zm%qbmt4*)e4@I}K<V45_?Z|v8bv186-L7eUmRmQ7e_Qo^))gCr(4Fi>8ke}Zy0yQC
zmhRdmT^6RQ_$AGAK}R>I(Topixl5O|Hm#E7o0U|=D$lX<p-)e++N~EC_Rh@Gd$q#y
zw)@$eq4U12P}{!Z--(Tjn72ITXARvMl6!d_lm3lKTNDqN9?9PQovnav`>6%TUKq`4
z5YnrYU4Oso&igO<ZEMe8kni02SIqyvf@NvV^mr>XW!_TT6$_XA`IgP`pf>BYT%z84
z_23(>llL8w+wtA^o8y{9>C2z?iGF*PI`7oREsN(S{G2Zuy=JQ9oJrm5Ui3-$-2SGm
zsdupclPBv0zNmGp<W6Nc=Z3Yeip@B^_gty=log-;6xN7mi|)`$X<q+VXaiqMN6k_*
z@8HR-Ut>Ze0t*r<mh3Oy{QG2ow4F_`=7Xfds=Uy`%c{CxZ^wD%cl@*sl?`lUU(%qY
zs;7Fe??~{CoWLsyhqrHad%x{#V@S%8??3KpF1+~QH0zYMu+XV*FUCg{BrsKGxA4An
z{*iw8#U0K2-Fr8E7IC;5EILtzML$OR0mGe3E7ey{m8stRHs)VusDi1H{<D2&9wqF(
zQQ&>+<sHorQd=XhKfNwnp!e12X$Q{^Hu3)v6Hf5l%=2hDQXq7v^kf%H_j4hyt5Nl<
zJ{iaDUYK%CUWWbhKa0h>7i1QfZ3?Kp#d6?a!Imh!cd4dQA^#68IlkoR^TtxWCF#pk
zgBx-ir7k+DXI^|<8TIJkBHj6Ovlp1JGvHHV`NaQf&+>rhb1w$o=|~f?zMGm-FD~w%
zyezmX#Vp`&okQ<;saHCWJ4}u>epx8@lJ}<e+M3%PF|$JNri<)cWI9V)X01`y_U)U4
zXJ}6~zJ99VS%cVB_bsWnjQm1nweH_uV$XWEAftS1bezfx#U5|l^Xlmq^JjVH-?^P8
z@z8U={F@EWpRd(TJu0%pJ5uIjl+V%h{q7(0H_z>jo3nWOqD93_^Cv7{l5+Iom8&QE
zn)CvhW5N%|tLV=cO)s-O-?h|OF+$uitTQGjdG*5#_SV-`p;K-NnmM0Yow<%#=I_(k
z&5_&}I~SeWER-(!Jp8HXVGn_G)0aEn^v{;R`0#4Y6y3_nUw&6|s9JR=pVu~;Z2ai)
zlupg8pXUxf4h?+3aeH<1>vGxP`ORs5!6(xnzxeHHTEKR0XU2)>kiUGbSIYWUn_3)v
zz?YeBQFr{YnNgeHPwki4JTrZ^O<HR)jjvn#MYc}g@wH5qF7G~+x%@MIwn!*9zvjQ~
zt#b-qlf0h@zj-2-5w&DNn7ZTU^Kv!HM}yt;uM3~Ok>9^{+mk0Nf{I#ph`jpDyt83a
zL2PNE=T*k-wXf6sVohBX-tfGae$u^v!?%iFQ(iq@(~64*Gw&WRmc1hVAXP5c>YZ(!
z)eE_ar#XK%pFKD~(^Y5nk;lt=k0eX_v0gfRb7r05<tHfutx0@0<9bi)-CJ|)NS5c@
z$evws^<iDL7v^1eeYLoc;rokMQ>Bmpd6mrdq+RNk0{^6yQyeXppWs=op>ax6yYt%a
zUsl>SHmv_Y$+GGl=$(^pe|X`!#Ts7gf__#89lIU*BvAI9z{^*B(K~+nUw;sN<M;F6
z>$4B>?GES4{=U9#Vo2;B1;^L31;czN#!ZQvG537wk`Ip`dRA`TR_DKT&xS3#Hn8pZ
zZD3;|(bhj%UUBn}y*Hw5bI<BL4?O&A+g#04KX1o&y>L!(KEB-ahO_#sES0zZg-v|t
zZKif@o%!eUVc8qf1zO+J6>iik7;g^Jkc;~9kNLs8sfquEZ%z=OJY&+7HPh7h<j)uJ
z<h}WB+Jnt9g(si4o1gp3d10P2@2U6p)oq_Xx_GaNVfTsAZISzKx0_|hSvl)DO+|-I
zvMl}1JgHq=rp9_f{+Oxw)v4EIZ9<=I(u>cFIwNW6khJMcP|U5JE&umk68ZbxQeygs
z|KD}*DcyMUa__X@(>hjD6|I)a`M>zkvQM9HPy0@Lo%a=s-lt18J}mJ&E+e*T%T3kH
zo457`u-%E>!eW&3=vwNNSWB-(Kisdz*RjMG`FpO9Zh7?Qm3+cy`|0*-Im<Rp`<kJ*
zo2&ZnrJz@L6uF*VF3z=mb?sRlUs2=k;EMG|%%2t|E7&>e`o}$!ed4=tk%sRL;dr@v
z)s?0Xo&KaM-8~=qfYCYMY_X+LZN7r>bfH(wF>31`oK$c&(@#~uxO3N=(6*?psk06T
zxXk=A<7AMIr>DKf_CJQ9HV3Y=hW@HxXaDspjOEp9E$!Dl(F+7>pGR=5@UD10NyPc6
z=btZ^8oUc;?5_EBN%o0<-v(`gpu;97E01|@@#%YgGw4K@Z^-Io;no=+=KP73R`xQN
zlTTIne=?c<d`_{C|FrFSx_-yz)onktDfD+))|IdCHgs*iZ<GE;$7ySER?~uItHhJ%
zOmu#lVk^zXSvgb6H*VR4cp34{@1L|zHGk9>cyi;8uZKT>yW8IU>dEbM7SHuGm#p03
zW7|@3cS^S`|2ZY&`Du^SznG>ZuThkam)NM9UK`wYLz`Ja-{Zz?X446dd!1J9&#zeV
z{}}(@Tlq16epny;<oNu=ySAPmEUZ6&gs@$mX>>`_akH<KYH!t<z5SL|hnLt+{ogvZ
zRmwb&)ne-wvG!o`FmB6Lk3@WBR9(8-<_eew+<2&)?Qt~kSYpq=iwQah_{tPSu1SZ;
zt}?l~G}H1{mIhl@chG$%qpLew3}%E!%Cebw&#PBE+WO*fH{%=mZ>JL1`d#MnT@bwe
z-@5R+6#cpX=6%uTI@#5l@!BGF&2~YKsk55hyrZ(24(V}Rs*q7-F5G){^7=lRJ(EsJ
zhE38cSU%6#Ve>teq}Eq^T&(z7U5_16mnd5zBKNn)Z^EkPOufI_?f08i%Wh;da9KRz
z+xNY>AvQ;L%io<zljI{lz1!gF945T^?+y=xLwkcS<y=tI)cc*kq>$xSLjSKD`|}<;
zpR!_?U~`Vwtm?G?AhJVp!NXU64!X9Dn=duayTQ81<g>5(51FE1E*rz0t1oLQYng8B
zF!RfDt73HPEMIfV&s1~^<M*um-Mmhwvwg#5gQv4!o@n0Kx2G^AH+;ub*XQ5&|5rG4
z_`~k`PYoZZ3!bQ{{BvjKBU$c$(!F~Z?fL)m?Ec4lsslE!E-YV~Jx};d^I5$*=_LE2
z+!;KV6F(oj>o@1A?pNWP|IfEe=+E+bsa?5nYS}U6(~~um)>!$@^gJF{YaJpTyrc7+
z`0EwAv3W%=)mM0*?>*6{8SCOZJ4$kS*hI!y<25Hz47>PlMOkJ1zd7}70N2mF7niQ4
zPL-QGZwh<lgr#RS4$e$!6Fv9J>ukpbHL-?Lxh2wGn;iFKhTe!;`}>5!^h)i$2OOr?
z&APg5QcOtr4+jI4)j=VhZ7;2su&MeNbn^YaJ8jO5_%+9O{Jxa_qlKT{)iEq9s;n*G
zdd-$kDh1~od%k^Wds=s{s9t>f2H6c<Vy0}dmmS))gm+xJ^@pw2W8?q4{SntU#`idC
ze*5*3b6@9PH9J+I<7X$z%`3Wd<l52KlfSkty>~VL)8@&SCWT&6K7M+8i>2z0fEyO+
zmQ#-`U7b<3Bch{wg0#Q-snYHHtzFdr=U;q&a8my7$g;%xJ%^p$^Qym|ytFJ?K5p?z
z%Sk~G5AJkt`^hfSe(lN>k?V6yZB3{Bdcb&O(uJFESy#GryYdJAI?TMq>9k>g=gfqg
zTZOh&{#yIwgYPHR{cL4hk6vrrx+>pUuspK=%;QDL8*0`EJaW5zVd6fs_MO%1Z_awb
ze{9awPVqdiTVMHKDu^iCne(!w%3M6<5g+hO+uOqarrsmBNQ1RXuXF0+(vI<JEJ)ma
zn#cOx_Rd<JnLOERL?6^F;pKbIeLUiT;?omzcV(^eNY9sg|FU6mM6t<(68qDyE!^*%
z`8|at+*$ei$K~w*%l;nv#mXIKwUdo|m&d<~r_YZ+6#HIqWo9As@^g}p!yW{_)PBQx
z+T-Vixtsr_HJx518vL98N2Q?A3EQ9SM)%L#N=2w>Y^v!_Hr{#gcEua(%}TF!h_Bf&
z&+u;HvETABJ8HlF*y%6L^4L*o|L(=Y>=KjqKVkfJ;fcL?^<z=HmZfbGyK;RuIN#dG
zpy)eosnrbD_8qG}1ljN3P%!`K@@;qB=j~f_!GA+d<J2R6@*i_pS8Pc<`2Q})l9ToS
zEM=@h?;H}Wvy=A>ep9OWhC#;oX7eWIQgyy(<_APq#LW;3e=u(w)3!qSH=ATrm)J<P
ziyKW^KXKxs<{RDhsy_RsHipb7*~;{DQFZQwzJEFwzLzJJa_B}EBy}&@TimzhawF4<
z1uUmdIV*VG`x+xA%A~kEv-{*x@f7L!2)?JOi2}Ose}#$(bM1CMwQz#ef96NksTS>a
zQqx~Ad7)Q#G@dJ?>?6<T@89)5-k(2z{<OK;8C#`zWv6eMAhQ2Pdh252(*0hlD#a%y
zJ7-$P|CK$P8I{|)?ak3yK_~mgm;RV=<nx4eKE9_^Y`)!S>}Gh**tha<s0G9C<x4Yz
z73ZGz@$>GHHShPh#@(mf#K!oN^Yf<8H#{#t3cmdNfH}*;=<;Qwr~B_pCcj+kpCHBm
zzvF10bl@(o>i&N=VmmBCn~Wk?pYfSeze8~M#PUWNh9qeRnUe{h`n+aNa_V1oMeWIx
zyZgH)T|RX2_|z*8XG!;ndgfLpURQGbET$<oDP&*j3+~;^byFU!4}7!w{Ired4_nDz
zO}*p#^u@Xz6Z%6g$1ez4tuSkr9QPZw>Td=0)khnbD9qiUta?&9$#VXwj;>dmCe8X*
zy7qFrz~`@KOoqRwbH41q%Dw+UXHK-+nKDbw|L@<6?B3XRd3}B4PSq_%-dz<pScB8g
zdwaHt1W0F3u6}Lx?T5;O!sDxpUU6}o9(sLZ%lbz`>80nMPhD_LWl7cZota9RF-C{h
zY?=Ij{qcKW!`}<mCwdA?9<|?j_e*BvOs$nM9ezFLf9e}woH?<mqR&s;?#=sG7rU<|
zbFDqztzlGf`*Qr-w!Fpve{oEYpYSAUs|f#tqJK;)<NUg(G|#l+?63?vT)t<Ww)zCq
zt(Q-SS)Ki#e*MBugRO6l-U{;EouMsiUS{=a<;`0rhhHh18QU4T3eHxV&=;Ss`8ZT_
zLXzy%=`&)dOq)GD?FnCOdi>lc7h-jGXp7c<D3;UHeqZ&k_VwYLQ&%Udp5eP?btpUW
zlgSKT?=6R;)3*5jGWx_(!*e}r*8bJI=X@;RaZ)h<ljeKo&s>Kt=)6<j!TolMVBV9t
zntz`K723))bT3q0TzvhYPXycP#G*T^?z)(n>s>f;eoI#GmG0KK=}FbgRo4e+Gq*nV
zJ|3X>WY0|@3;yM+cdTQ&7At8T^}#6OV*ZNYoTlIUy(`46qh?;um>|ESQ}(>omr26s
zFTA#1xkFa`L!D8m&!JT_PAvJ+T9WeggwxH-?G~);^Xyq=ubt@I<5?wK_Uy*S*-?`=
zpMKpX^{Q-owR-T0B^*=d$KI-z+R^t{S)6a4>CwW)b97W^i?-PYZrGZkX)L5C8(okf
z`t8R<Ce_#}50<ePTmOpu*Cqex{GaB(?e^{dJ6=ydck|Y{7}M(T%81<D$jG<<795)E
z6#DsRkQL`0y{J7$)lV8;@O}68&B{-qtU-;w4Cg*guPAMbx@fP){f#4cQ#HF-k4pZ{
zYKs<L|NYN&@;%mFbhO>Bzu}De1@%*@f0|oQB+h65Zq0H!{^7kt*~+JUERX)Hy4bqu
z^v~=|Q6&%dZp>2hU6|A-@JM&}j9;25PF69sI~Q^%K9?|)EVusBeDrLIz$u>Y(AA3{
zvu;{{dak=bYFez(<$oc6w*LG2@5`o#pHJWV|M#<ZVEV5+l9H0Q9B-~t`qWqGQ}Jhg
z?(YxMD=Y5qSZe5Q{O#XG<+Up-CxrZXA3e*h|JT)nex7pc4&}{#J#XuQn?hx85B&Ge
z{{J(s-Q*#|zvH{v?ar+ZcfZE@@zer~u2Va%T;Q_maj;qHa!AU`W=YJP?d-M1#-~zK
zs^wO{FI>C)!s6dgf<Bv<NIrXZz3WW1;hF!;b7u?A##|l%z6cpQZ;W?!fUj$4sArhA
zvu|)P^lDo8ViY3<b3<bVb3^!A6hmV}L(nQl=#_!ycn`}r!m%F3(13)q^4;_Uz$dtc
z=_l%^g3n%qOwQ-SPEsq<FV-*7FGX3nVg$Z|7I_*SA_5H#;uo$M8XH?6Eo@8;;RY>i
zwA;RYo2Yl`1nmcRa&IaxFx>OZMNn*mjhpC^z=IzRL{<dE9gT8nYjZPHat|>R?a&iF
zsJ<wVCqhKDGE&qfqve6bxlXH8KGSpm&DbZ!mdr}^_A5G9Kk5CS``_ojm*L`M?O3F-
z(MZYa*6r-9pPb+Aj-C}QkiTGYep-h2thS{l)3{zg_q+X!;puzFYd#Ui+!sZbp4Se0
zRm{z^YfH)EL$;~&4ppBNy3fibufJZkYeCLh$LWhs2D)VQyu6juJ5hg=$i-hGbFW1#
zDERJgE>-;3#`g2)&$cEvrER{nZ8`s3H{i+Zo|j$vTcx+O_1+3`U14{8MaPwtY|;D^
zm3wAR`Ss?G&EjhdIxZ~F;<e;ZY?s-qSki3hzqr@yy6fuANt<j1qB<7^m=rl@ZIL><
zAXP)8a&f^DC+>^s8caVId6)=We!4YLK-W#JMCR@?Ck^4Riw}5C&|M*Jv%s}PG1fhP
zq2<G(M5b`1$66l~^LDjL$u;dzoW<Sj?Q{NFyUR0K@ol-*x7W|<kZhX!Xx^=f2RFtZ
zoT-y3Cv<v;&}CkU?E&iT4|Mu3I_fbO--(+jnewbgNx|>P&z;sj>@R;9&p10NX44eT
z&~44OH~6=ee2+}-l-<bP%{A%t1H=2bkNf;Ja%eVBF{rqcRU4(YQ}df<=<!rlFS$0K
zBRn78R((jc$Zx#6_sZkIS=tS8$DD2@@LP0h7r17!PID;u?(!k!hQ^n!lsSuETJ3qU
z$nU$ei#>00jDT?T<UenvbPNT;edav!OSzUeY5u9z_b#ScMc;{RNmg0-uVQojmz`Zq
z+ceg!+u&>86T9zl?v9o3Le4H^yVG*}+ST`W=2od~|FgRG6?5nB!tN)tM8mIbeRrXB
zgVBs9XLnrxdCF(+hD!^cq!~ZB<r#C(aEgUqOzHF)uG*`e^1jBdTDvBdd-t{cGdib^
z=)K-HCui#Cd$Vuth<sLluQ<?$AybIeZMi<bp53h@hwd^I#jmjuvcGhze#6Sv-uXs{
zGd3MKzV^XQSJP<6!-wsf+@Ag1WaoeN)}cEr+id=P+Sxr-_r}v2XRir1o<7gstMp0z
zS*h}J#{K-z{?m1@QZBO{VSI4rf$xn4x2FUz&^1l;{BujWw|2ve*~^UPg^Ao(TEHu#
zb7dyu0a=sh%vEgHr}Hg|^W7&_sle;a@%F8k#3P$;iXQ9BugLs&+_$&dHRlJPa#>{8
z^zYMcroPEd=HuHI_vXO#!rkjG1uJc~{II=Zhw!Z1D>qgr$S!-R>MxV__p3n5`aAOl
z!u(FDg)Y9J!6Y`%Sm8x)%#-~}b2^^xnR#~6c1Kp*_tzOz{#maU{1|z1rp_IXIU#@T
z*KC-2eCN!Axl@i`e31P)y{5*^_2`ja&N&@Y5BT@ZDesnkzwp-k1K-Ot{IWkMTv>j#
zecDH@r`*qXs)uGunS467^{i`bblu$@`=9JM_@}g#&2Li6>ce{{?fw4!_omr@->t5{
zS0uZ;;q&5jg%{^`O$b-^-!Wt3`Oha-tvY0T)4lujSM`F;OJ1M4>Rzs&k}@|r)vSKr
z)%kx#wtVPJ%W+Bz`C@juc$a$Is)TbPd%M@m`*69tt`EHtb9TLI#mx{N{i)0IK38mx
zPAy)L%T;IX;1Y9U@}VaVo2s%Gd9Tcfb{68;c5Q-!-`h8eO^YY5%IvSWF|$11t}g4s
zHkW&+X1DTp{5=)%_f_eeUk4|A@>z3)^W@G<q1X2H4(~TUyuJT@Xy)>qzy2q8*9i3o
z)c0KYaFk<n#m5ehY2jyGWt(oiYQCy8DMoSI4c@Z}Z(H`Iy(~GMx3c6#!xg!O`x(uQ
zw=BY}oy?4o7MkO&o<e;i0)hjzoqb&+kXEl5D1a`rHCHgPFi|iuiq&_^NkqNO)`$yf
z<-Lg!(#@WRhM)sQJ+WP8Yi@*h;aU>xV$Y;Z$Yq+T;ALP*ndxY?k0IJ3E+Yew2+6gN
zDQe}@|2|u&Q0DmiD^IVNu9e^7KJ#}F3tw9vtFCfa!B>S%3tZQ*yPDg6{c!wb<x`g>
zm!~eTd$vb+uF-6_35J;g39mh)9jmvg+kWKN$nvkcve??9LvQ}KCud*(eet(ya?44F
z2`W3!zujr{_?P?gE6Gc;OjjK5O}HBL>dtS*1w9TkXJ!5Fm}IktgMI1^#iRz6#UI}!
z9X@+>l8rP6*Nu0wM}_sSKasGrwR?AHx-!rCs+StyE;vo-ywDVPsAAUVO+6EieB*X>
z?3i0_CEVH4+;>D)Mt+BdRh#e{fg{^zSRA%bs`;TMF8YDj>d=FIa~IFg(-W%JFtGVn
zVAs}v?$eg(oW^yD(|Et^%wH_tq`-5+X@aW|$Krnz4Fp9$Etw@BRR3~+T!imVv6UuO
zZcmq+neyCUc<J4m{F<2RpKCUTL^Wuw^4RpF#7J;o_UDSFzbClenkKm{&*<F@ji+1_
z7&+&Ks2(+AE`MNl>DieA*+sGcmsfLXPGMX-<*8Sw)>-|&mN2z@9lKktwk&L&61sWI
z^2mF3D>R>POB64=P;b|3|HvT5>S2F+@XkGUEtf(kh>QGwy*~E#=h79<;+nq3HNQ7*
zygS8vsp^D<Jg0ANO1s^p|3Ol7mlwCy(NllgFRV_<{dISyDQAEl^UI!?h;#iVNA?E1
zje2QVFu~#0s+~38w&$xK?Yb2hf3dU8jJ^7IZu2q~_ee8qk*lkN**PBRPrUSGH)iHC
zGB8#kZXL2mXkbuql(w_4uP18e0xd2zH#b!<H^6dJw7CJwRncHBd|!(ZND^!AG6c02
zeR1Cv9i$%&UA&p5pRQj}jC$U!kpbxDC)73_NQC5EWoTrC+@_PASnDHPE^++5#<bv#
zU6IB;6?-jQ&jwu7wVLr!RY!V8f?Ai~vNKJ(Q?@tn6Ss<rzICbEE52`=m{;cN<v}Sz
z3R?Tl99>|{9cgxV#?3hwE$^Q3c{c6u$KB7irChC_XLH{EevRFE@#C8|8^|0#nmTo=
zsH*;Ur#j1X;wc}sT@+4SzF6|r=7gwYUfC*z->;W;oO3Si4m>NQBYpg~iJ80P-MpaH
zQc_#5-1=2|W!a=jYhABAd-O;sD}1%n+EvrH2Tm=@UA!oC-B}skD|Wl$mR^{(V(V?G
zt+&2i>XqhYJIq$OI*oa4-i>|hI*e9q=?$6cv^e0k=<yZbUz+J|b-%Z2LEOdM3e(ds
zu9eLVTewW?WinT3^lrD-#2FDc1Gc`8<vMJ4;MB(L8@6wBwP=2ta%Mx0PM3J<+H+NU
zS|YZOs#W&{Pbj{qZe!aOX4_fxqc=U{-OP^o1M4T*i5_<r=$2t$oYQSlQ~kj4iCe*^
zD-JSD1($4740qh}x!|&*eeL1&b870#>>u)7zh-v*rRUv?^OCC)6$91Gq7Gb<ZJY5%
z+E8~*o(SLTdmG-ozxB~@#z6s#d*^@dU|GU(PQq;4WvinTPtW46k9S<U-^G*j{@jC3
zPi5i{JS?{F_@P(VYH~}~u=JJgmdRIqP1IjE2#9fZw@zi+`tNkt@5{k4Sw7eH?q7W;
zuP91-n^+U$EZeNI9rYTVoJuz>7hE@+{VFR>=ljHxygW0ntc!{(PaoN_yGQ=*)Z4rc
zS7xm9^PlH*b7l0V%i(&ldw7n#xxhF3c5eC{BTuVk-iI`Hom=>Nv4#B4;$J&E&Og3<
ziQzf#(LIjmB~%)IaHcvgytHTYs}(+%OIIv5X|{;(xpg)uq~PB}+X@F8y;-8uCLVI#
z`0{Cb(}WL456DjC-5F^faq#4hs<nqc)gS+y%bR!GPoXEwAoBO!9FwOXc}@z=vzyUU
ze1Tn4?Oeeb1A&|;p^jD4Ie+a+vC@CstWdG=y!>p}g*96u{(O1j=*s`aqQvN|+lI!O
zH@=*x`1|okeBiZ*?>8Fxb$7q9S&<XMw6I{go5i<j?Nh(H{tY(ZFqc;QevH%8%H4dH
zo?Z9iPrFZ)hEIu`sW-Liuq226!$hYr^}{t;iuR`SJ7iXdoqHo|Gof%Amyn|SiM8D;
z{4Q^r7<TUC+>Z<G{?930!@8>DZ1lDDKLa8poY%7^8cb07T{BaM|6%cFG4982N+z<m
zOsnMEKly954YQ!pfxe#k9W{afc5Ab;C<W?GTC_Cdq}96CsiO0<UfmaNtv>zk?*Fex
zuPm8r=k2Fqd-VdNub%b|&fVuFPfg(a?a4VyV3lx&`k{g?vxOJl4b(JoJh|?>3}3<l
z*Do8+IsAAofAP=ylIeY`cw|jv-~Y%dxFF9ranhGG$9WFBE$VpN&lJiCmj9Sz@3KdE
zuk)+MfO587r(L<;|JlAvC&HTTzFu>Sd8w%GOMf=D#2Gu5*~EWN+q>aXQgZdp4eA0P
zCw9JHzAlzQ>D_CyjOs6CbJw_?C|=>fn|fXA;_Gcu3ytPCKAtEnmw(Bh?+nj5m%P5i
z_8*v@#_qNKQu)UGzsIt<0)_4`H?Oq5we{J8xup}*uN-{Vvt!P^xVVkE(XRQ-0z$Eq
z^tsy)cldR&R$8Q&9K7RH<oNAc#k(543A4Ks|1;O7_@-c11cpclg5zyuxkvc=cm#vT
z0GuMwM*$4X6buavO_0X{Ot|!k8Ug_I^s(0kruds$j`~jepeyoVhq`;h4|T`f8vr`i
z9dvOX=*m3kV*fP#H1HyS&=UW2>=)-DU7D9#4BG#q4;@L+F9RR9UWwMG168T0wGT*y
z<l4u?%m8_-<kASvh~V;V`wc6Kw{~p(dh5cim^ItHvJ3BL-Cp^6$Ca)IuDp(ph7)3&
zI5x3yc=~xb8MK6&F=pS4>0-SzeOvO?aPQ;cx9iq!+a^2r`!cI-w&s67pZ)$%F(CEW
z%*yxGAD((U>HV)h_w(<$pMU*Sdaet&DNW>w-lAnuk@#ZE%6I1a9p^ocY;-=7zSLpc
z->jlsS+09QAHHSDX@9SBn$mM<(nN`W7RpmSCI$0$3r!B1y78i+)_%{4|LQJ3J3HI>
zX8x}$D?k4cJL0aHtgI~bC(Lz4(xOMoAz#kw?SF9O#0`zmRri;KCx@(B628pmV%Anh
z!H=4Zou^)0|EvBxGda|-&M{Ck(98Eq+5V-SoLc+0D?M8LhwTx!M8!r8Lp#s4T|vLr
zdfky*>XRUmcCD$UwKK7Ml9+y=p6}1SSu?A4x=C*=`o7IPSUEhmUOVe+-+>pVhK?H#
zDi&s!ukDWiZ~b0S|2^l2#2L?LTs>2vHleb0=7BYd^U~uInr3$Ta2R(+p8jF{dWQJS
zuRa=^C(Jz4V%R-n`b^$4Nooy|hkO#J83oV0Z+v-1>Y0)>OXKFqgJ)9G4D*dP&kQ{y
z^Gr8Q@A2^?#+*I;lTY+au{m~T+19i@5~9VCpJu7}7p0%LrTBblQRcEQ&ie7|4?8or
zh4K8I8GCfu#_$x!P5nDo#+=@8@o*U5Zj+jSAH4g|R-buzwqpIqcXA(pbgZv=RIArF
z$JFTc$HM;iHGd`tK6YpA%c@H{Cw$+2rs1vnlH)J*E84!x8wZ;F*fD7#+wnUh)5E=w
zuuMO&yj-P0Y=`6;F(HLo?ap_5wXdf)34V#WRHqTVWn*Z8z^OhNx0N#Y)1u>wj@{UL
z_d#`=?rr{FGmR_Lx%T$_V2ZC>^Ch5AIz25{GeIZpuA**{(D`2-;tSlqyqj3lko+-J
zMq8A(V($O!9~Ym`zx`?V5}($WEWiEYj+(jZNY9<R*ZIZQNv_jVwrclnXqQ>KmPzgO
zzMTbMLbf}Lu2S&bWbu36VrKcB!aF;6+Dg<0f3od6d|AUIuwd;2+vj&a&S~y_BmePi
zP)y(Bj)2{ZJ$@{F_C<5YxratV+=5)6j4Tf(oA6DRbvyULDDh<Q0uc^(yGMrN^CxUw
z#LzPT!SwBc9|U)ATK{;h+)2k-9&@ZG7KMDaDF5ec)PAPE)@r8fvpX>zmkVy0+ggM>
za-ArdXYk>!`22%w<0mvquHVZQ{P)+Pb%njFrzME{P1qH-TV&7GwA<We>-=~nyLi{I
zl{p4YvHv*vc*|QquWmp46}Ag<m7EK=#avyZ*T<G;IeQ^n=sef>DcT8<?>8(|IXgMW
z{C3o<3~>YBXOFqg{R}L*H?^i?@{)BIE#~Q;+bp(3WetOopQBj2Vzd6D|B}B<zK4bP
z><ZMl6wUP}fpzxToVCk5X0KJtUZ=X@+uBXn8<g3Mx@_D^j&%47iE-!6DckpbWk8Pc
zEk+A2gUIma&D9@Pzy4B|Y}j#)?J(cx_pNhVjUE`V89X^sc)&EJ^1-etH!>F59u{1E
z<6{5!myQ+PY3qgDi(}afzMn~{s8E@3F=d6;){6XT6M{I+Ry?YSSz8c%=lQW3rhh)(
zKRC{4N1EI@Aa3yG^O^r#|6D2_`yaWzvuWAKtoQzVcJRBOF1Q{i<gn+&g&d=KM}mAR
z7A)o1->Y4>@VVcVMSPl!S~r@fep7xsvrnQi<iV=PZ%TjMDUjW9&FY0%S8DB+x3$~s
z`{ixEi>X%&X-+O(o$&lufbyDfjl?F+t1jF}FP__7-7a=Ayz8|=Z@cw;`F$B{jl`Ku
z3Su{9ZCI|RcSiAyTI<V6%e5b|mAh8ke|24=F1x2U@jLq=+oQ?9oF6Vrj$p6m{dc*5
zcgM8$!?K1JcP2BlpIdzA-#cN?-?ejoiLZRo{<y+I{Qj&c!JA^iB7riGI&|6&-?{kg
z(c$o0Q(m#PDleZf=_q4s_1SBOl8#$)`5xW1DJMI{bB?9t4&5i23XjdN95Y|Wv9_@N
z^SN~S3-hlyT5Qj(zW43JgG<G;MXF{WoWyULaAoGFUdc$uFR8EOL(?wb+_E@;^NwfD
zp{~hy?oRqF{$+QwuD#d424O?N%S+dJipZ=^T<_<obmNXq^0W;R)AF@7f@*x-Ht+hA
z`txPp3g@~*4E%?m-?3Q5SsA}ULPw3e_i~!<o#;~kylpePOSb*!Vm({;<<qL?CyZS@
z8Rjbmo%!+e__JMVQByp(XxQ3ntesZVoxEg*Lf^yujpxiVvb)=K5`Tru^^{e5S%s^f
zzQ=g+V(tTxRi1*soo-+2|1Q_u72M@@yH)E3yVzpe{ciEOI+q&de3t$B^X869DNBLo
z%c;{@&DUmc_-yuWb(wQlxaOL53fC{!+}CxwxnhnF*Xq6)*STx{`!`$M=T~`mcy-GB
zbiaRXZ(HB+yH<X6W{%+bAR~RVKBq6I(&xgX2Y)tQ=6W;bYyFjSo6PAyV>|ZW|G|0Z
zMUYDMIavk8x~GyU_B$kJ{8qT)e)Orb)C#UMtEQQB91Jpan{(*)sRaT$F_VQZiAtF<
zZMt0AIr&87PZgWl;giF63)TeRC{b0BI*@T%;KRmy3sVKz7jo6ue|>RrcZtxF>T_$#
z*G}1`bhLHPLd~gs=Y1!no`_gqXFJEomw#68@~1zyR+i3Ilnt4%@Y2%u$*hJcH)?Vw
zKi`rvJ%`!v^gA|Q38DITvby?r?=bvs%ud?9V8@;(9(TiYr?f9WlU5mc!O&=LNwDXZ
z-0z$Z{x!d4Xuo{Xsd|^$Zua+a%N7~1J>T8ETh{(rq1DVBzS|;U6L$D4y!euL0&k^j
z_L-f}YG&W_)67_CFZ+J(ioeVS=~`uMT!xz@g7Q>^r_YK0kbBzn`0?1LvVfH*Z_NMM
za5AC8Bg^{BeT^Hl&v404zZ(4ay{7Te%0>3F;T-3LG?-TB_fFF~8J#0_wX}CyjPmoR
z6%J+|slP8~zDz&6+GxtZ7OkRPPQiXNU;So`4rXJQTM(wdZt^3^GY>yj#=I)nReET9
znD@lnr<OU1r7U^<RXc6j$}~k~|J5hWRyS~`8(&>;Zt)@~(^smSdVJJhfBww%Wy0&#
z>z1xt)STPq<emH3S4MZgyV{h@xdF`kj^EfMwL({K!?U+<ALsI4jqX`dr=b0sEn{19
zfs*?TuL|ii?be6=oLH~UiP-+EgqdyPfy%_$#U)LuQ}j#s#a`#U6FcM6F{T+ldz7a9
zKE3H>u3hu)M^|6{bF7*!e!n)Q`C<ROsJBzE&is}icHz>54(UfXvpi?-*fam)(kU0s
z)){gdiDs4YuTYFly|CYD($~`#!mI7~z4ed&Kc~WQy$#Qf6f<YeldRMBIPGo7u1bHF
z#dEVw=Kh+wnbFq{`2|c(z5P{e@lA#~cGo9Njoxx4Na4*{tK>BdH8OpVKRl{BwWq{t
z?usYdc1Ldi$-=M7I`>%6xulXOA`*(~?h~i&%e-y#;Mn22{rk4m*1ivVJnx6u!I^*g
zo2&EZnXau!&fSyDDckao(ffqbr&DLmKP)}Qe?~XFWm(Z?Ntrq4*9S7!NNbio@>p5H
zwf}+XLhEHuj$L?Dl6(8#B1>Pl$HzZySzI`Q>&~5nPqW`#|8BH-P0HzNmniuT8B3M*
zx1#uUzigLVWmRAjH_`gl`3Diz%<1oRlYd7gJdl515is+xmSd*R?PIn+{83CX-malK
z6%PF8Q!by{R?>2_{Nj;AjV(Dhcv5upDz+cKc~kL?#_3GS4YDb3(ruPB>N&2yv)Cw&
z@jKI>g11t4+}1PqTF#0(Um|xR&S~@U;&sm}&Q7e@Ud&ffvTSRbq}kVfvBE#iLYm*t
zXInn;N$2|Q*Hk_Wc4sQ-&p);?FZ<-<vMF9iU3W}ge>=a9|L0ZnPWzcZUzr%qJhRtW
zez~kwe)c|{E7NZ1K497Xuwmtn2MbQFX=ZwLV{<W+bNKV4jFMcD+j-;*pIzSb^zf_f
z`v=4W_8t2)>$dgE{Q~yIx3_dY;@Eyj<)N&cx&9H>C3E)3dNiH%+Vo2(vZ*wpNH$%;
z^u+y1W%JfB_Wb%6eJfa^BfEjccQ&8OES4bN9j@#xOW4J~dgSej^;MdB;vKt?WS7u3
z#=e-U<x$&rM<t%$Dv^6&YSUt;7gHSfo|MV<*SK`y<e9yWdoG{oK2$SPt<5Wg`wG{S
z-v_517j^k6Xm@<m?Al)uFUx*gt$A2z)O|TGep%WF)&Jfq4hqxUxfgG*n0I`+SGa!U
zw7rvTbOq#f7Vq{Hzj>|saKNRT&8w?b^0=bjc@|#guQ5q+Xxn^XRu~^|g1Pvt?p>4a
zFIVoW7Efn5w|ha})u|j)FL1eUUhB5|B2&!9wI}kfUYC}2a<moM)vBSR?X~sggR0kI
z50p;uD127(KE(G{WK!9IvR4dc;&0b@dYzA-&!wFh{_|Hi=kv+yXY6XImTzX9e|Tkz
z%!Kq7CYf{khB8*w*NT3;3iS^0=t%r6^pNM`r}%xd1^4!B5D<UK9=@B;Y3}SLkF)gR
z#O=!;TRYZV+8fs+d3^e{i=A0IXVwUX)%5z;r5&%l@c6gK8SU2xzV#iN`N~JvcWvip
ziCLMqbq-(NQ+@kHUAp(wpbamygAW{#{O-WGFfeb2tEFJ)K?$am+h5ERYd(0no=~?`
zW!<7%!!BlD-u&<IJM+TNmyYnXcIKt`&wKX2?q~7kg^Ss*&U0Nb>yqP@N6Y^l{bb$#
zV!{)Ho+F3FSWimV6qWx!DXKB`VNB5youw>U2fx>DoAs*wg0*!0v%uculoMBT;^by*
zoYu2MM*p4gLHUn2?Vi`2-#V%P_GEd@oM}fbjc$uBzmd1%<)Z%HLxDvZ6Ralg|GPIg
ze6h=#-`ck6BC78-G_Q58uGpFzDm&+S-W`n`%W|dS$Azx0yKbf|b;{cuaq9H`iQ;0r
z=L(6;K6C2Q(Y1}+0v;@ztSPmrs_^%-+Ng(5eyyAHdgXJY?5|s+-2Hml7VVgxE?IUi
z^2VpQ8A_)!mrPca|H9^6^~-0c;dDPv=8Sjlw|l}((tCJAwBq;FvMyh6{my#zYn9W2
zKQhZG9rW8SQ`Qy#d2epBlxNOlS>`WBGK=+A{#$tT(H8ZmF*lD@Wi0x1<Avl5`NsyD
zamW7Jls<kuS5<6Q`|){e7M@EqUtyBMR2kJ*|8349$)2#O&!>G)jg_@%+Y`5P*=N3*
z-8VNyt<Ytu_S59Ov1*^@zegX>sB0dMF=kg;aR1J?a}$56uTijTx&8HDyy&Al2Orr5
zyDj=SHTQ?grX3qtAB)yz>}LM1lllKh-WK~GT#Mc(g)ev=dGFN{FVC;>o||v`UH`#y
zL)dTL%c&=?PiB~`y4&>c3jLY7Z0}!sEGfHOzV<eg%1g~lkxZ+q-cNUzDR_N^KZn=E
z@u;EI>iWX%=cn$wS9$jHgk8IS{Z21Daqj8GF5CKfxt$9_dm41D%U5nGtbBQA|6i-8
zyZQNL-|JmmQ(S)K|0m`7@vm(%|E*g7b;Gnk=EP@wDi=*m*N6!zYS+Z9cbX@->h?<R
za_hNn8a_X#87$gw^LxX!X%GG#a=Ki8ljqaY7)#CS;Ji77{p&l=+D`qHd+TWAkCis7
zl^d5GJi1BJb3#HBlXmH!;_CO)TugSxK76`wmW6e_(EN$h=WjH(++}I}Iwp9@nyA9{
z<t=w=Lrn{8Ys05r*z2&w?Bz;t(?@6IIQ5P$pOg2vLPpo-&zF-suN`AH<<<S5=<fS6
zgd<e9eT8b*nLQ@5FAlJ<MTcEw+iAKwVE^=Q@reu1*6mom`jbV$^zN&#&0m#BZ8i8<
zS;3dI^5xZ8yw~n1eP35KC)Z@QG>g$3okzc4U3;}MdUboYp`6mMj`**cPh(|XU-POt
zoEwo9d!8pL`^f@L_j&JZkK6CzcyK?Z`OR6SIcLp9&E#_mS8VPQX=R;OvpYK8TdQTV
z(TZlL)QOkoJ-v4QqoZO<hr#>#r?l(p<G#(#TA#+A^!EDKeG$L6{Qbk68{ez*df#_z
zzubAgiA%%wzi8a{fBw5#$34a;wqDee-jdPfT#(y;q;qai$%CkW+c`WWW{ck4Ul^?E
z{$gUo4NcKr4t~8?wLg^hILuW1$u@t{=|8pm4yO2p?K!75+vnt=*PBu{uXOw<dHX@z
zrRUctHgAZ!5YHTb{=fYCZ;O5%E1#1!_bp@GmbB$7<e7>$`KI1xwmk5&l|{Jo!tB50
z3UjL&f)u>(xog&6xOC@c(8Othi#ABGDLUK@ZL-~&VV=Tdp7$~Bk?x*P`WNI&HuUcb
zyA#yexmD-pvnhAw`jX{?dA`pIerwBfd|E}nLG^EgGyfU9xDRc`9IrDoBKAm+NJn3n
zAV=+pNT(3b0OSEXT~iYy1zi&}GX)b<0|iq<Y&U`$S|U%5nu56S=^GO>GaSoy%+Rl4
zGy)$Fl95;xoLZuxpJHferk`SHs-I$Lsh?tOrk`SBq@QA8j5dsBf-yA;5+QjQ&CI|M
zX<d%#gwy`Qfg;DAmuc~daxDrK4oPziV9|A6xF@88mqke4B_t<C;_;7|0OliH+zaNu
zw5fV#yHr5%Cv(h<0O9RxIy&=Wb{H8pao^pwD>+Zx&+wVb^C#9nKh2#izo?0kOEIL@
zy7J|*8y43C1$E<;KlQQi5iY6R{O7{%r)%FfOG#xlt*&R{t@xqvZtY>&uOX&RbN@Pb
zPTY9<x|-0+^y16@a<=nQ{neu)*R9vT7x&Wk&DSeuc&b&W&Z;|bZ}y{`Dc+mr%Ff<Z
z|L*_Z`pM6CRj%vrKl*c>-#+tW#W8ahtys0o`E0scn&uSu29qVq%rmdl{g2o3;0-qW
z%6fIN^$T9JLoaz<geoTav4_W$FU^$ezjwsBP$qP4k80Da>5I6!rnGiV@cF5od0&b7
z^^--@3R{&7su|yZRIjSkOOo8itd~(KyJhu{Kan!3TYt<*Ik}6)sH1C<$0V(0mPvZA
zjrb;>@V~Upw@O0!xrgi8Nv+b}EB;)n_TC@WHA79J?q-l;_T(4lMmt>H;*7bQHtcx8
zb=tS$1FPJOBe{Q<?MZKL%Dmxoqptnb?0aT=3t74r&AyoQI%Xkr(goEc&o{5qIMlT7
zMaSw5ySD}Z;M=`n@?XRAYj)*r)Z~%Y=(WEz^Q(v7v?2wExM0QqjWIu57wwoPvsJ}=
z>j9SI20W)P`EEE6<a<>`QKs|Jw!%AyPlTO|JM})$v)cdVbH}^iXS2Qg*Ard;xT@xc
zN$KtQ$Szf@u4O+`YRp!xnPiZuaCW)J^A!uclu{&4G_TR#^}yq_=&7Zvf>x9~NYN<R
zzHHW_e@qM?g<>!>sG*q!ku$5F!2!OJ{-6={NDF<p{Jat;r~Ha&0|i|pLsJDq0|U^q
zI&4#`pi`Wj6AL`RXV)m0gSha#X$0co7*039yK=!@KS)2Zs3^Z2ykG%z7EWeaVoqva
za;koMQEFmIY7yjk9LR}*C?`Vc7iZ>X<|INCpk-!IX%&QY11V_M7(Ve#!YVsMlp9Dx
zgK~YMLnZc2-&FN8Lw0i7q>Z<;|45t`JFwFE!kPY=x(8O}oW3KrxTtaWrNF3b_b&0?
z3VI>_wAG1wO-ap`o`sLjsBGL-I{W6b21AKE?kY(}hK2Sff&b4`ynE{KNS0;hNz3<^
z`Jd)|ublVYR%PNGmkBDG_t#ohd^yU#J-x+u$%MHoInx-|MP>-yk7s{r<l!%O&Troi
z#@_S=FBY#Tw{@Jj<lr5lj-HyT((N1HP4Qg5_Swuir`Dd?+}g@|d#3EqpRH%Ix6bhl
zKPe@_dpf*$tB$^E)w2Z~gN}b(K4Z@G)s_3!Y3QHN+WKtM)@Lz`J$GlnE<3jB@#>k(
zb7mS}Ee<^+x41F=UP`uQT4dt8qC2^3)^7eVr}Lu3YKzH^*^eSLANxf_>=h~bdMR<m
zlZeSDGh)Tku3dfg<qg+?1DUFdZq1SBXRYRJTJTLyAw<$Y=ccEC<&oke>?zWmDb_a~
z**Zj4nz|SnI`2BUamg8#;7fCSls|K<^)eJ)?ziZSXJW#nJvII}%KX(r7SGjsy)Ssp
z&ZgSCS5~nqi<G~UP2YQ`u%My%QOc3>oBt%g9L#SJF@Lw9>BdzL8xtqq^L+PO^t4`Z
zSIiNc{#Ye9^Go$zvE$WJb9&7gS~<_!OsY4ns4t7F{X5&*d3z$yu|4TE&G(A)E*$*0
z`1jwn>(b`)+k`~#UcOyhOhRg@eNSDr_@gUZotayANN8`klef4~%CGdn@dq5OqQ*Zx
zEDg;~ezUKQS@2rDHD1lLu>VQo{2hL+r-a{6d#6<`C0=p$Yp&ml?3|o!HxIa0GXG<c
zE&sm#U&rTt75^rGl6F|=v&2F2;soxRZ^>oNu6HwR7uqwqJJ^Ss9#{Wyq|@-r6;YRa
z>?(^dRK;-o2%WR2@sy2}HviSVEM})JKjlBRuBWf$^27?2z9MI{m_>(E{U4Q;Gygc~
zzjL>uz~7n_4WII_3wmEX;`lWysLS}oEQR--vr`^LpIG%uzHM{5?u8X`dsOqcFr4Ri
z-XF#EFqSh!LipKY?F&U;Hfzbe;q(fAk<DqwD*k>EcmHi?yUz9^6YJSBw(~Z)>&6^)
z?w<Z3q51Sv=IUvSx9`-yz_`#ZYR17fQLTTBSHFL1YhUq8bs2m293lSGN2C_Im~PO@
z(##FL(h%hns}nW#_JTOC$kmF=6yMI8xYa!9YwKzA<cwmbi-AEglis}Y`6ab^+nytl
zTz03#8s}ZMy&%58ePT|PoaUpuvUeF@wBDQ6uwFJj_SXOEzw7U5u&i;|dgI`;_qzKc
z*8J<(yTHDDQk2w>`28xvsh8{hCkH=2+WR~;$-`pBuNyaCZrvU!bt@x3GtyIV%7KSJ
ztRF9p-zQt|{A<pWd%Cx?4(&U4d2Tw}t*dkG&-(mfxPNeKm-g{x{c-De@LsXs{_l_X
z-YNT61lgv9{EKIvvO{g#f{sZV?h;cwt&fO@+^xO9IQPoSX&d&Qe4JHux%-&v!KV}4
zo}4cFX5xD2;Jbp3uvzX$!jp=8+T}f$s9h3je);lJn81<!v9q0nu$1dajS##OrQS{+
z-aY}KqtpzIP>Xd_Lj_|aQ{<bk%}h<rED#f=;MNkNWCw8(CA+C1j#ih61>S-kd>9${
zEHp3+T)d+d(x5qD)Iu60LUN1C#K;J##f5x^pOFa@${BvU|NlNa-*?Sjn=^N9bh7I^
zxNG}`|Hz&EZyVCkICG-m`W+|fbA%t3E7=VV3=A?ej0_5l3L57e5!(9Go&7$4<Nd$f
zb**R8YpN&w{C)QR+eLS4@9qsPzGBZ(zx~a>c^CfL=3Fm-{a)t&&Sict-@SeJc*c!u
zx8u@Zu8~v~Ul_LN!r$5ZZ)ZHqfA^Q`c-`kaUuRuAd(nPj`68P`SKf;{Bww$6FZy=h
zy&tg(Kdjvkl*^qq=DjQPHh1n?*}HR#S3SAETJ~S=&A-+Qf0sv`$$x!cX8%s9*}JTF
zTU$h_mwY?Fqx$Dtxt+E0;<f27{+&B~FnrsC_RnkH{|r{wPxw98qPLdyx@4ZEp4jJ~
zHgi5N|L|eX%(I72A7Eg(m%Y*yGntziA<bFiP3OM8egVGD+7XeC==}>&w*uV10ChB|
z*}t$bL`&%y{R^Z%2CRQ!Zi<%L%`y5HAQ6&NyP1JGQffDyaNk=bP~`Y?tJ`L~{_$)*
zB=0+M(#{?0)~%k_n&>9f_IFcFSH^GG2W?#4Ulrb+xi|BsarwJH0nuI?_bWEXRU0-{
zz1S;vNzSP$?)?$bEVa(ld!NtYzF%zjyt~C?W`ls%e$&!-zizl}vevovSM7=U^q;zq
z-aUC&`+w{IBKeT607=cid3FcfUf*!weZ5Zfl;A5%Q=6j1oSH|sJieX$b7nC+|MMrp
z%Cbd81qQPG_v?OUm6e6boli@Dcd~q$@u!gAAu)2Z_uc+le=qKg%5S5+FMU?2Pxe{X
zJp1K)VHU-x;y+Jf-b`xf;+W9Mu}MJm8~Yw77YqF<EwUv%XBYXVg+9L)*mqZ?c%tYB
zo8rpexwXgr>JtmS4ze-n#Rciil}Kn{s?1rDId8|o_W7T>FEuS+v!$)--{il7@j50E
zQz9Bq7_M;qnJD(OV=K?b9S=3PF}YrFF#oh`U4zsTwu}2d#i@N-yr$D#b-6?0`yKN{
zzTKJoMZSBzRHEc=u7|esD{t$^9eri8NKocPXzX=EGZPN3paoK^pMG7lxc6&s&|J0~
zmyC9pePoj3S{CwlkE7-Py)&|TW_Yi?AHIFswujO=Pq)vXdZ6@VvBt`GN}lVN?GY()
zHkv<cx|nF{!xQtY<y~#BCp1Nx9ArMe?3|kPkAqf`Jy(UjoaW~=Cq-`$(PlZsc5F|V
z{F_Ier~mY@99<-sv;M}a#okv1ZhW0qE421&o07=c2l7{%`qqDFWO@I@FfKpi|F%Oe
zn>Q}qU3Fug(CxI)Hy8N4YZ9D=W~enbEPaq5HDjyb-4!=FwuVi)yG}>EWxs!u0yAbd
zH8eviq48!@r!arlAa`wN-w;o<UWS2*f~A3pf|(_}lVNNGuZzqqQ5JB5xrn+5w7~~^
zFT)t?!JZM&&WeeNA(y^0Y&;-QKUqIjKV3glAGBeo0CG|$Xsb>cT8;(vs8H)CkO;{+
z*3iTfIm@O_uJ#E|mpJCHc~n`+YPz1$*Ev<Qr9}6n6#G0k6I8c4SY4Xj+|??kv3BV<
zFK&^jTl*XqMtFH=M?1V)%E2QbAbOZh@W@%;v`s$g&q_|FZQ7r<uQ@%k%;DdRNWY?U
z<^O)pd;W9p`O}A#lnunXMW=3gUvO%7@bc{|Ty?SvS+=(DmOSe|I=R|X;BecF6Wra4
zjl>n+W@}{2Sy{;^Z;oJXJ*KkKM_K%Nhsd6*k=Yf}!ou6vJkGtfL2=^ui7p!A>6}~@
zzgf5@1}Fs>*#F$)d`V|xz`}=X@2Lf8q`X&ESrM|TqH&2qoYwi9`_g3nRl_<e*jrnj
zb_P{U+U^~-;K5QZ6{mY!cK&!-J}E@Wdab~z%HK=WTR$=J9DXLEHKj=>vCkr2s6VlN
zqq2nj?Z&r9$`W^Pw7p@cBRaeNsDa`}k2Ny0Q%*+wci~Xlmn5HT-{bRe&-tHCn~nrk
zdpTd1U$FK2E@z!BnIgK9slnPSBV#5Csw5mWeV4R;FL#^Ux9xIE#GhW&dAPDF)4`kN
z>ep+6&Kn-3ampN4U2eBTdCKqAzo)vy%a%Bq)`h(fJM~2C;KGH%`xo`z)u?)KGA({x
z^9c*(G6!?HEXjW#gQ7k6b$7UiWOmGwceDPZv*iJwv}y3^9s6A?V+*du@>mslhge4?
zes>VPa>R6HR!?QB(Bi2Up6Uf=Zkb(<Yx5cSe`;vW<eMFu&~$0X-@QAp|C4gF+3w9R
z>T1?~&?jY$Pxw=2z4aVyvJcjjP23owsqAIcD7@eC&;6TI`n#U=dCqb5TIsc_e9HA%
z9Q!XRvP$Ybxy&|eGEcc}xJ`4ef5)z8zXX1KTqvw~@RqR2`GkyyTgOgi&7b?Bx2?U3
z@%v3)Dc6~oRw$@;e!9yu+f;Z{bjE9eUoY7Ny}zD4QKWVwMAme6bYyTWziGwdgG;Z@
zH}g8%@~Oztfx$x7_x#fE%crl`?fw4m#MXPy7%J7Q=h!p6y&&@?j;F+w$655=0`|>f
zIz_?@@2xvCl~J$Nd);)#%T+s47fo6Fo6%o?*TvGWHeGoy)px5^{Z%}0{MCI;Ro$v{
zCM+cn6RjVoU#nHAKC`SZxOnGGw-apK>sDXiwq?%e@>u_T|7G_Vh#Q_?HMP9V-dS7D
zrue#~)G1%H?3EKOCT;SqllZWB(YgHfrnadrzvO#=-9Eq?zQ)e*Uyzb@i<yyBah*e7
zoY^NO)9u_#8KVkp7e7vxT6}%&^2x$%=Jxep(~6!wi`})m*0)c)k2@u{L)z`Le7od{
z>4#sfF)gu4@%No{j%VRq#V%{n$NwWjZz)ZksqxYK_79%0IR|%5iQD$-T4S}W?7af@
zm3M-a3`E7A9OX1Ja$t5X;7Td=eYdKZCw~9E+9<v7XP=JyE`IU#z4|d}PTo_Gq>8`g
zq#sCIRsFmAye<E?$>PV?Z7XN8yR~8Kjzei%rA|hCDX2R4;_Up$jEisk49%*nPCna~
zG3VB0qp4diL_gx*_RIN5;V<jF*bDFGXkOVB&izz!kA<B<@QR|XjxK7KSBfruDs|yV
zt=zeNAKlHPUd>w7a4u}2sqie@oi)oWvbt|y4|$#YCedfhv^KTmUlH|2-lf$=w%aeo
zJ!P=2DA^`-yXdi#?Po^bb>)rK3_fm~mmWz|dhxS<`q?*uS@m`G4;CdaX#KEtcl*J<
z^BFI-IBer*Px`zmZ)<@4R)75n{chWz2Xobx#U0k(@!HYpA;MU(Ji2ZX&y`f6Pr|qI
zl1mQAEYH^X7Pl(*osF|a)SSDf|7J0ST>Wm+r@zMTvem8MOV0~`D`&p<_KdK+zy+DF
zhMQuNFB#@7Z~m@u>F@jp)y4g3=UCQrTl`t_Kh6A5g2aDS-3pbN`cJq!H&wIOy!>ER
zQx>q+;A{H!TCOCGkku|yg@IBtK1x10yR{|#i1`h+3Jw>yy`kX?)ypr`hAlqJH0{6T
zv6+g@Nt-Xk97$9@Ec=eN)qUc8Wl^st*R#|0=D$}+n#!nkvQuR0JqMAwFXxE%&70xu
z;-2^M_!+*dM~)=i*x!;Sv<ypSiL?m-Z(SK2=<OQ}>bm)QqW9elOccyb43IDJK;P&J
zsuK~za%L9BNE?cbK$6%iOhfcGt*L<lQXLtjpN3W$T4FR`K_VnqhGs@4NX=K({(KMN
zLYZUl@7U-|r!~4n?7lzS>)^BbOo2KpIz<h+U$;74@+;pNdHd|=J8!QY%FVLc_wVkl
zBN^q(CuKCwQ24f}CeTHnCw_@O7wbn~eWj+V&(=HRwg|{o%xiys_Ol{qF`wh4lzDd_
z?ud*0YCrE<x98uKzPeK^ZN>IG>ea<{)Hciz|8h5ZhHck-xr1k0TRK&K&a1P2Kb_UT
zJ=#U}?a~#SmMz=G6B-(FWx?q<zYkkB+dWBeHGiIZG^es7@AF$ZzbS#9bE8H6ZhiW6
zlFH49{O!HsR(eyXDV|i`6)1fDEGOf+R;h~l9a53{?R@8M@|`(X{nu7WU4i}mBNll_
z0n6{RIUZ>h&NE1j<S<@1agklf0(PF|tMXnitgOj%4?MXwcF*4IOS8WiyJiVZ36VeH
zqr3Fa%wLmgObu6`-NV4UB|__&)SIu49n<E0)p~X4^L6bvXKdAfA5e`<E#Km7(s%j#
ziUg4-Cs<aTu~NN#tEZvEN&HZFR02nhf_8TD2Cl<fq~`H>-4l2o^EUF|-lqIL-qFVK
z_mfg<8uf0}%Unp1s}K12yE170?WlXkFVpU7RP8b`+r;xlZR_@Xr5ksiw#eRM<fhkp
z^PW<S#rI<AZ!hvoXR{@nrfF)j9n4^w;(tNB^YDR$8HQc|^^V>7n87?p;P>WaDL3O=
z92z|5mK!ZNYV4qXIr5W4i?rfQskS2?lWrckyz_?B-xGJ<@VLkRjrCbls=?&A>tFKo
zW9J^NUwLHm#m0RVVb|XMGK*x0s+dw|Z2hygVvb~dlcC3<Yip<9QHd3}P*SZm_gG!8
z(VUfgUj8}XzV_#{tgA&CR*4%0j@a*?%Qpuzi<%i35;<xf80_s77N#8$>EamdVQ8Qa
zA2`=FHdoL!vNTaJu`p0DG{Z8hWoTxJJgWufBHFZ;COF1dFt+@m_c{$s^;67E^iwR*
zdYXm?=vfskLUL9$HnT*^s;0f(-iIATTGMA~<?8O+5L6>5u(Wki*p{tHjw?I3@<a~q
z3OEw=_Sh<2k?qS2XWsF-G(%z6rQRRRy9E9i{_B<W5LdI?QSjcf;9R*O7n{H_i<*F#
z_}jOA&i_p7>QAy0d+^xl=HDl!)803&V7T}|SY9e+GqcXc<7&SH&5wOPy}Gsct<%?6
z-<B2C1&Rx|E}3!esgY)V`q8^tYt`O`tTs=7bTZXb$4@-?(Y2>9&-`D1Kl+s3lxbq#
zFL%1OOxUnD-ZA2EL#fCSiyfbT9PNo)w`>0TH*Z;||D1Th{Z9W3N1wAS+;TjZ7q#Uz
zG4iicojsSQx_@=ZMbQZhS85prnzGs?o9L=OY5ufc=V9|a*18w#j;u&yV3mF&R$9XK
z&*J+x*|#y9Q|7#2;keVNBJBBjX}ZoyHM<ob4^66{V<g>Yxh1vv@pn@%nU$)Qk)j>f
zc9u;p>^w24{o^mIg_CsuKWTWi@SfZ5-LjeAeO#E1Uo>#KKV{dFcFeSDXh!T%V2HcF
zPlPvUD9{X%PC*kqpm|pd1F}Z~4REAX3v;yb5!AW_JYfXA*8p^>0p#|Ayi~}21!zNr
z`o*bbsd@UvnHBma8L*oPFm59-G6dyYl)f2Qgyb}CXlibOl*oOj)Q3#IE_wX^lh!9k
zml>^jziMmk<jB+)8XQ{oIo)AVGEWueuC$F<raDO?z$r;6z@_e~g!88(0Z*nUA7e30
zG2}egbMoS<2uH`6myO?ORe4>UmKRk2Wy`terQ7d{eVPBa`261Q{m*Om&40c#+`*MY
zv(Z6d=FHuCsa3+K&kKLh=l&U<p}_a=m~gO)N5%vfmUyv~=?~XQgt#pJlP;nwkg@H0
zYF6pgUqYoD1I5C(cubozZ=RICcibkG*l*L^mg;K;O*vU4dMs(GTOyCVS87piVCSg_
z&F<>OH!`lQ_3*i~G1<MzDcR$~tE-aTk5a9@dX8=?)oS*NUl??1)0R}Xn^CQ9s<YF)
zXT%w8m5SXNxODo{tf^YHlCFW1o@%bld|B8%O+{5d)-BL}dEAm`0mUn)uh7V16Lmhj
zC~iSou+G;S3l&kvQtnHvdWmyBw0y8H5qrB>-gSktocptnyvCJlERGr1_553QSM`9n
z^NTu<WVZX~*?erLDU=*yh<RsuqiUu2oimM9?Mn}`O|$Zgog4pGuZH7ww3+Oh{4H-b
zGX(RNh6WY+?cvUvtJ`<%+21>Y_3;Hf5<P62DrRqT+*i7JOUTxZs{}SFyx#HfP-b;7
z$E}&~y4D3vPI}*V#M--1Y+utE+aAZjNBk|d<<6~n(%*XwZrPiOa&YL?_a8Kf*Qz^t
z>--z(_dBnA|0#N3K&EZ-G`+WCn=7qD3~$eUYIlF3vwOSwyhslrPn((UULCB;j|=@?
zWL-X*c<w#_U(S6^3sO_wCT#q_c%DcF`=_g_?+te}#3Y~8X9#c2<F7Nk`F{0{YpP$h
z5`}9RBCk!Fq|}@i9m;5M*(2}Yn<rZ~eyTR9pZdQqH?y_&L8`~>3}cBmUdP+}qJH1g
zOY8RV-7>LW#PZHsaqC;NX6HG(-|%Q%v97ANZ()vMXO#0Z=FW7VfDb1#Eh-y6cQM|7
zzqdZEqf+e8@`4wFb0ij2iq$9CbMwq;3w-wP&%bcbCyPus?%c~-f30}!vvsq=inrN0
z@@?elJT&9JLUVCo1^3JBu6uW7@Ay4uTYu~5gg5MKuFiYkI{8d|-Y<LU-GMu_lyf(4
zn-%>pd)wJR7VCH4iY<;~em%on$b7kq&i|66N7oKiUf;}D@&4|Y&xVOJ+9m$Xd-k+q
zYU|YMu$7;`oND6DZxXy_y+!W-ziECJM=G?eO=r!u_749OTg)yT&}9^|u=PUu$(%z%
zY7@^yJ`I%#F0O5zpR=E@{K1t4)<-5Bwan3b(HFLJ>+xLm1OYuKjSH`N+2;IBO#a-k
zM#rn_{nw?JX4Y61?)b0Ezk9x^*XPfktllm0YKcY(ya`vsckn2y9e9_~(mzwpyEs?X
zaI(rL-I<4MRelCkCl_Bn&fA;t{NH-N^BTSV7Y{xXx!HWuI$PSO`fS<k&0Vw4{7~;?
zPGSoBBNpkU^mui4j+udRwd}Go^;w3T`)jj~|95#I&g1)Vr{*mC*2Qm19r!m2X$zcx
z<)e_dWs&Fw+f%Lj?UAf&3MG%N);mzUgQdPzdjIb)C!RcKuX>;oqxnAO=Eufb(-a53
zBkv|<Pfxv;Q)`tk@F;fSK7-ZI&3d1Bn!MiJ(02M<Bu7@llqCL`Mn(P4kL^B&t%y7z
zs^$7z`uHLLa)x6M_B`!*ay4LK1)~gy$8vAqNA?qbS*b|4az*c7{8R2s^7f83SHIre
z{rcOCa0gQZ75|pa^&DmOwnbOWuRnin%Uz#r(B=}St}ke&`E=_a;b+^F>kH&wulZPi
zMApu_=8u#?Kij>SkKgjc_fJ+<{pu1NFK-rVH9cOr%F1qfV9zB6F1fkf9LxT-ZuPia
z!KHqq^I$1=r@`)ot$B`@TYWDDJbrI`;VcVp`}S8RyG05$rab1B_@40UVChfZPjmWr
zzm$}0)SnT(o>!2w(<^R%oWzRK%3X79-A~Wm<@PS*zxf5GGdBgDZ~b1n|JTyUsLace
zz5)5GHy_Mfwu+ap$Uim7r{jD%XGPYWXYGc)yc0F**8VVfb3HstI?Gq4^2g(29;$tN
z<i17DJ~dU-RquDKyZo1fciE=r-b$ZoA$p7XQuHGeyJ@QbRpUOM`7nRN&Bj~T(zbVK
z+&Z#Q^6~jXW2K<jNgDs_I#d2Ecv9K*OI~n|-UiIt+0+cFJA}8l7Z~X4<Ow=9!q?Lj
zrFu3rR4}(RR4}tNiN!cI!VJ_*MC#^&xbQY4s4s`3mxq6jE<3THAW=U@KM%F9X9()J
zqE@aT5t1ucb0g#ir0fJwAK^raw)C8%g4uz}UQK?_9h4+=GECUSg@VJAR2fB;C#LCK
zR=sevEFx-K=F-cFbqf*_7f3JU5Z&0yA#wBtD|41jfkVHZ%#&s8LVu%AAG~yW`giNS
z=YKEgsE}@2l+ot2a!*;7_S2)q7k@0w{didEfXY18Q`?w3IXsR`?mSf+uvvW7rU!Rz
zJ0x6t!<I)U8r{~ZTHB}g=_>1ykCP@{ZavcZ=#kK)rp8S#t}dAvFlkGl(S(v$E7i4p
zvus^&cl;@~nq@X$Q!6VgYtm%4)pt@ZP7@Om@~w(;4+#i6b;;wZ&~#t7Svwr1G?dP&
z`Ny}OOvqcH$-U6zYLHm6Y^K>{j;4;DufGMC$OJB`sS;3fdv<a0i>Nu1{|Osk{Bcl&
zi+$hW)%RUCyb9lT`p^o7Zqt@q?tc>B?`SCh&b#;B{EmY$7cM`R>|5i+<i+?c?Mh6r
z<FkvRM%$Wm*~`|vT3hz>y^@W=yUono=a!rA{_yNmb?8-w#n#LZ1J6Hjh!C3--5{AD
z_`B$LXyV7Ov$bT;)!9m4VR+MFSh;4kF2k=T+rNk9X4YrsyktF))c;EAw#<~*jcYEy
z*>T=1;gZGNM|W%5|NT^K%I@5g)6f5<!A>BDRkz0I^vvYvyDP4}P20)$;Lsb!2eZEw
z<uS7JSGK+Ocz16}vBk2}oVPZ7N<Di#<A{81kN>&f_nYf-x^ErZ9Tl->>6xflZi8U=
z3a=MpRqUykj&KRLu3CAO*Tipm*Y$@9WjbF}Oe{BjGBW#A)A785&miLN4rLSBnN?CR
z<^*Vaz0c74;B7j~Z4zhgxtH?Nb9_r#ZaZH~v%dW3NaXSwVdlOqsqsgoWe?ca?W<;t
zlYD$Qp(nn)c0;4qgD1Bt=4G?4yE3DD{uXcP%?AD+uiqx+>b$!kef~a^#M61)tTuHQ
zv_G>1o3VVb_N?&#mUyYHAV!gc$)weI(vtk+KF`j_RxH~Qv#I!)_C$pf^;e5ruua(;
z5j#oZ<K*lT-~wu>qh8)>WNM&bVL;`(&y4Ud#B$Y#-FFtC9|60+4BR*e9WIldS^}QI
z2Tz?q8uXBLS!tk4%gR#q!Pk{#>gVZ0TKD?-xZ3vxIi<zOjeJ-$KQku<aSa)k20v(i
z7`03SiI7|-85^QB_*=ud1A?FLx~n*0ucM1dIqU6rM{YfiW|99IxmJ9sZda&|Mufbe
z69cECoSPsMV@r!Z;}hMcJ)9i^8eOb`+PN2B6<oQT#XT+gb>`l<Q=$IZ=eIvz|NNeB
z&iOCrX6~G8JNe|ipYpH&U;A}!|F(`z+ZVeiO>FM3KX7TIz44Ffu79-4{;W<?*m+GZ
zdl$1s_raU{zKV+9_q<^%I9V-WgLbOE(8_PiWj_WUm+R^daZ@>w)_QJQrGEUrl6g4`
zr(Z9+88uZ&&nQGr`SWyj7mbilEDu$qwuQ<{t@N-^nY~p@Nl~%vXcMbc@3G)@UEf2F
zYlfenr+(Q*&E*7>$j7c7%v}aE*ITJMZu49hbmG{7%D%rpR)lWs<m|GTx!=l1Q2g_@
zn5C0~MO1rlu8W)h!S7LHz|m(XRP%LWxBc;byXL0#vv*%U#qG#2H0@h-Z}GI?*()VO
z6ijDxE!r0NS|k3{>`#m17A*^SH-+7F>Z27QrzRFH3JW}UB`ZtGw6kcjTJRbT_a`nV
zTciTNg>=1$4ctBVjGoUMjeDy9y7x}6o!ERs@y0=|laqQbb@t4NJTEcB@%YZZ_f}%o
zWmbiLzvt|e5;uG|>9ff5#JKlKrA*xR_jH`fIQaQGe+K<&*}MIDQ%>cDb-7u3=^;*O
z%Pcis+KZ>Pd3b8>b!V@eGs*1W**(S=_{_h!T0Wn<JUYW(w#4(J?5~sY)$Dm<d-u;(
zX8-?xqu#aMhmK_ke!N|2E++n9-8=1g>9Y?K7asol(DLC1>9Uz+vs*a5cHItG(q`gu
z)@ssBzdI+m%0F4<`RcO?KdEwvd~4V}apQ$Z2bY^%HyBrc?mKW}i`FiAEu+;*fqqhV
zI^{jDzX@+S$I7pIci!#1oc7`Zb!+*YjwfolvQwP(M5fCec9nS5_u8Y&bN+nJn{pGX
z3@lCB120uJe5-tWfw}pnd+ueEFS{p1)vV|%e8^s+yXTC~uMc){JN2JQ8%#RdX|#mH
z-9mEV371D*Wt%^wKHON{u};Qt!rB}QmT7KZkIlOl-;(#j=-c+vtLAf8?qv8|;1(;K
z%XgYrjBm5EyvSzru#LgOOg-IO1#~JdHhrC|6l2n~Dr}>vRR89Qlm4dU9g=#)&l9Qf
zQ(^gsB_gNgF87}f?OwVzLRvF&&YD>V&mIst>6x6!-(IY;gJ%|#c4trK)D;FNA4+Py
zR*9coB6unN_zMr`TUmN>nM+mmY8nc3+`08u3oSe?a4PEPj>*$Ey+~Dz+hG_q>G9t3
zYcaNq>m0H&lj_YMPPQ+vw>t9GmF-ggdv5;Et-Ghr=}p^{a?q`t_w!!CjitQ*C*+z=
ztvP!&QsrP9FPm!1VYc86y|1lqwKdBqeg7cvmwoZP(0^@VMfXb1rU<%}oh`U$aLm_c
z@2!A4YDbm!xOe@_m~w%|%J}`A&(XpUivQW)xNow*Ely-ZW^Z`ebymLi%tw~jc(*(5
z5Ab?+Vc&yJ?d*LmyPsP;4&pqgS+?QA`xKEcULW6Y;kIA3`k6X6Q~$yD5uc}iKK5AQ
zgvq%L_XXHD3gq>i-P-xPhjEbuf28HEGa`>14#ZyYvX$tc;?U@xs~u7xc8lTlrteK$
zhk6Y4pM7y$xzI*PeA4lEKUcb6)_%b9MD*!&4yQAhw?1h9emdIa?svmPmowELF5h&P
z+;w<CVv>Kxncl0Sy7z@OSDcjbcj7+3r2fniO^e;UbG^K`PFQ>P;_{Tj&VP;<XE%KO
zy02mV;@i*7<)_STPU-$~^i{QV!A#$mSIv+9akDuQChl<dz7xyF^J>9qe(J&<(p~>s
z<bHgrT$1&P=jh3(!-8|;r1mEHZW6L<h`qY1@58(~+8-2?a}vA@Zt-uGZ4g%I_vkI$
zpS5QrtG)1-O;7CZ{cn$W@IkA)PUw%Y*E_p9k2m|(jhCK}`LBA@UaZkvUuVOnihtAY
zHn~su8nlVUf6oh6@jqTS-evMzDe4~5+<tV$llhx{KR)va&8eBPN%P{JO9Ay=%AZeE
zHz}+WlNDqM{8pX(y2Wh6lPxcE%{IBRr!V<o&-9gf*0lZhhf32*cB>yM6w{Fre9W}3
zfA4}^Hb=G>c0ZgeJ=5~09c1{GlUY+WAx(FM;)y5W>rb0I@EJsTSnH@hf1%=G8<%1-
zRjfF+Hk|AB10$1nC(f_vv0Bxj+oWW+y6m{-_ap5M@_UjyrC(f_zoOl3nf9K5>>G@Y
z_YU8C(KGpC9gF(H!;|KBzJ8aR*>!ggul)I0?|ZhGcIw$4IVFG8g8lslgP4NVkG)<m
z^?rMOfuxo3s-(v}?2{DQI#+w-<gHti^~<NOP^@z98I^Y_@|v#G%`fuB)>SHKoX9;^
zFL-?F?&dPpq90s4&#^g2TyETa@~q_ZhepP~Zoaj?tIpqgy||QXaSVeT!>1b?est8b
zACK{62tND0Hd<?j&x!>%#QqsZ$7oelGdrJBT{s~v<XPTnW04oyGdw(5I*T%<&N$W0
z-X|_D_t))14qLLy?<cqa@~=24@+nL!l4bTxlN&dS`RueFTV)<taPIwXy_;p38@pN`
z#~qWF?-u-MX?>$`AA6p`Vq?8?ie>lgKHIJ6Tyv#hDm&Mv-^$yLo#$$~E}`UhOJ4QG
zx6kGtye+kxmQKAa<`%M4#3<z@$L{?xcRAjkxvGDAzr-HFO?eN$#IiLXoH706&mWt9
zyjs=v<TI1AT)yt_gp*C7e-Cf}W%u{dmF`>Hduo!OE$2w6J94T$=^yW&147C(7gXpQ
zo+vSzW<7WMZ7x@z+Mr&qQV-$J-<E$0oRhcPcF_foH}3?GYusP6mN6zJBtxRY_{iIj
zH6?p4fBopbRc7Y4dA!XZj7rO$tmib^{ot{hZT0$=Uub*__k}(0fBbW+d{@<xaKbx3
z_x6dMHlm7`yR)lY&DU}!Wee7wpLX4;Hr6I%>G|g#TRsZNhjTv-dYvP5dfHXT*jgqP
z@A>B^si-@|)W}ZZTxM|KevL}ik=xxrzpwSaG2_LI6w^2Cp_Oj?Ha&6(RC?3;<gm1P
zNamf{er8i=FJzoGnR~O2=hc^{1yZN_<M*mf5O(mn>d(x=df_^2-kO&>oC?9so-7l7
zIxL&3n8hQQxB5_!hV3fzR56cEcB}RWSq}CGZq2_?`y(taE>G`?@zRwO4*t#C`|0%~
z`Ie_f!L45=thS$}`8V%s|C3Y&RR@u}6vc&U>Z(tlIEYQ2Iy*AP%BVq@eaGhdTqmvz
zf(5f=uBx!4_B;?)+5Y|Il{mqDm$Z-RO*;K;-?x%ilj9!!Jf9M^LaA`ovGr9SUuy~O
z-w=ML{Sl+sZ`J)_I<8*7K5kmV^Xk!K1;tk7=_gZvUB4wadC>>8i%vDMwpZjH*KNPN
z`jFr3V_6R+KRuZr9MA3Oe{x3EnXqFzyDH>ww=4;4i{H>tc5C5W^ToUWT8DFSDoA=X
z_w!HC@;R1rV3qz7m6<Wg<%gEJoh|UP=Q*tVLujAY`_*#0!fK`T4jx@`O7}Q(uiXZT
zYlouVy7gYa-MMhvJ`tv<y-(K!9Bs-!^22<!_U#OVRXcg5_ZEF?66ko9!0_wLnaxaA
zTw9DSTZ4i!k8tjMTOd?0Y2PuiZz5lOG^|aR3H=arudhrHjQz`M>~?ey=iinGi~O(T
zUVCNKx28>m@t51l$?Un$PTOw(m0!cB%+oi&tlLLzowvCDjeAo=W3GoJt~`@-``Fw+
zr@zjUOOT7LDL$H1f4|mC)6(fu>B|I$t?chpR|lT<6?tr8e98W+Y3IJboL3K-UTXM$
z<DfrN>XEDJHQp~4O{&|u<#<RD*Q%M*e%#8~YL)r^&wTTT6;uBGcyRGSn`2V=Y1@}C
zcJPMJP+VW9r1r?1DctRvOpaY-Xm;ME5ck<Twrw`|y4CpeMb@LF%2Vh5Uc98ydP`tU
zzi^DLcDrGU#HFCF1&7Kixc#<$P;}Ci=jnTTICV{H$4`b`Qd~m8n-yJ;PuzX}n}x>4
zbW2&zmD)RQ)bBr=^ink7mX_?Y`%lt0oPXoN`ZkGINaNSdX={#zO)ORY{pNGMf02;#
z0_V8)3po~k@p;LrP4n!Jan(1~P2@Q4T_ATQf33ot2^_I&PP6Vf(!};~^?|QuQu+4(
z{0-}qbbk15nlSxB+^56GW93CfrN11F@p3zsXrbfM-Q3%&?q^c=HnT2%r?qa>N!Lg-
zd0t@+(TU;Boy}8j=myrg=l!`qdo%N`VyiFvf7k3#+;MyVu_uSW?zwz{HJvxMO+2$&
zcghy8ld^w0T?K7_-Iu?o^{VOc@*P{=sH{z}(ERBcYSqlQWkGU>?b}5wAJv{RT()C{
zm(vr~Ek`pmWS*z&-*W2a#h4dwY)bA_+PMDJe;p(hfo;IZoXDxi@ZcynM<-A(5p}!>
z)JrroFr@l)jwSw%BKU%8oZUNu6E~nqEYyA+NQC5moS~r!%EV1jwNG%l$iC@LJ6oGx
zyg9RI_g)W`DHbeh&N8z!gUv<E9n{Y$zCIPoHN{J_<kK3fH;)|zlUIi>un}=FI8hTa
z$8SpG49l5*bBnDWHyu7w-ef)f@3-T6|F+I~^2AzQJ$~Q&InKfR>_mJo*LiAY7EV@(
znc>O3xu#{is)Nj-%bjoQ6s9-a`Tj!ZephCMfvEBFgenfzg_*GnEj{<Au6EpQdHjTH
zMo5g0lhdCVJu@q-#^^<ld82xFHFyU~7gx-^r6Kk+W>?(er@hfTJC4XKE<Amx^0SXx
z@RX=<k)`H2acgFsp1I|ij9#z)BVN@Sv+XhQ2~WaSm)e-G)Xg$deOVga)w`$B`(pa%
zHm0scGj@De3b|;w@qN&h*;jbH+*kvGS7u(3zEa|)CbhU`WnL90@0WbLPP;OBrIn&<
z4hnZ3RsZJ_A9JObu|IRp>!Xj?tISZWS^i?Z4X>U=WAQxaciZ+VFJI7lGk@LITR9sp
zpZPRZQ&iqrYE5C?wTyL}8+m7Nt<VadRQEq<MNZMxE4#jJ*n98aG(m|Ly|ufSgznB(
z&SBW9YHMAcoHlE##H7Sb_kR~W+jk2`&0M!=+n%J{)Mc+eGR<k!;;HLXd?9Y>H)XZa
zsiOTU@vlXg`ulpef4{U}xwm=IsjC&?ftSOJmp?!CkUN}B&QW;Iwo<XFkzA)8Pe0i@
zRVMGn&EjWF^_?se`8{+vRi!pDr#_VU_vXyTzQu3)|Nd@!Aj32J+`8ANt>)ddlMhmi
zT<@1;&=wOmLE}KHdVYM3#lPC{rO!Gx6$kf9T{<dg=fC*;*_*TYd^TM0mO1->Np(ig
z9$mp8wIb1g$19p+edeBx%v16+ns1|&{6eL0-rud~cHI?gKYDOds>H1J$ObM4>0gO=
zy0ibM@6s|l>(b72yhHf0PijEwX6Mpc)9#5XAA};go+x){*1FH$(C87q_GgT;T#9;x
zgmj4PhXumVA1}Us`qjJ-FPFWyIUapp^-%Dhg+Ev~%-zu`?NL4H#Koq(66S4p5{^Dg
zJ*w7mKfNNb@L-+nyMw+zejeawe}6yELiJGHz0GIlGIBo%j$q_IZLir=vp+^TYQ6`{
z`Ujt?T#q^@3nhMY=~#4`Yv-GG?M@b-15?sWJ)$3WC4W%(y#A`a{F#Mse(AhCx-0Ob
zJX@lOUevjhhxfex>wK`(#q#7g3HgKry83^`Pi^>{-}!;zy4IDT*Vk_co!a(xMPGYS
zf=Anz<(tjf^<?WSe*RO~lT={Exy$d+i8CFpt4i;^efMqMF=5-*c{S{}3#&GK)-v#a
zw`|p;;BY;^Fd^-WIk)rJf1BsOWV!eMtM%7pflaacf!D5kFShq8G(V;CgZ*B35ASl<
zGm%@(uK6%MtZDn?^7o$dg<~?8w?BRM((6j1#0JLnhfUMZ&$|;{)$75(QRDx%*WnTg
z@6Jl9T|P0Tqtr0|OPHzbyNq|4YhT@nIX~}}bg2n*@#8<sL|4{)d6TvDUfxFWTW6CT
zEQ4RQxS8$P;p&lffGNDTdrHmL>-VJ%q)xE?I9B~+Q{MC#yITtUi&p$+IOSz4fLXFz
zf;JyQ3pD&Q0e)dVQJ&y6(uT+@N{mbubU_;yEe*}cI@-__$2`5EG5(2qM}22~SA8FS
z$h`)M`k<o=lk;=(^Pq>{f{rl+onJ`!2t#o70J{gFP#<!BA!0ti6n2uKew8M83dAil
zC)HTN$jA^Bbf~ohNCX;~#P8cQH8DkAa=jLGmSOrXzn&wH-J&zET)9`gW@}jV)>~y+
zTeq&|-g;FlN}NSBl9k1Y!<$L*_dNY-g*BcW0@F5dba8ZbL<wZ)U(GAK!dEua?{?%n
zpXomj%e?=@Ub5x%-tBW|wzsS6SX$oyU;F;MUi--z7L5l}jMUfO-t+kC)6-7&dK~8x
z+2rR4{4t-_;P>P9p^HBZW*lqE6rL?#bHSFmwnYBYz2>BMsT*dTc~kRsS5DnR1zS_y
z{C9_zxE4=eAG0&*;~n+sy3v;9zF}PowwjIR<;6~MQC?wAa{p9|-+g<t<ja&jhjwz$
z_dk95@%pMqoC^bXm?&zOXKqvY+UnZ<oa^%EOV9Srn>1TV!^3ml?;<n({CCq@)=b&?
z_^PgKedP4HN6(-47Cduz&fGal4-6%Gj$i+<>H5cFCDxslKUoj41U|}c^>jU{$-Zsb
zvZeX=Cr+HXHS5-+m)_I#>OZYq`H<(BjhjfacCuZv^yAWFOvlQO@g4I!rsrmoY@V#E
z+_tfAV~gPFi1RlNcckn&bK^k7xr)}0TFJ_fGmov8SZ`=%yv^X5!6u2zk~VG@kL8Z>
zxUoF0dnWQM<XF-j_hT+?{X6I0w0Ss@^LoUk&O+h!ZEtyZpV3RJH(xpZhH>S$CvBSk
zem`?wwXOVby0+TNa<8_H(Vx%NtKP@f$v@tAP;y>J_51Yu`zIRrPc||xTUML)e2wbn
ze-^h7uB}y&xYFL=rPz?fd@y{^nS~c$>TF?dEqoN;bA74g6SrhR3C_KqFO^;|Jo%`d
zVatoz51(vl&wcu!aHT`)B9mny#{a52*REOeE7m00OlV{5msJLd>vZDum?y5`(Me&K
z*;wLaEpusmtKPQhjk{x5A7$*loWJ0a`%Sm`7nRu7Nt9&u&N;Cpa!%B*D2cg;`1tuw
z)*e)~Q}dE_o82C{f@AID8#UjgX0P8P?{n2xwA5BUhVju1%XJB#>#A0%bWU3KdTM~f
zn|vSJkFL^DDcYfpQCw|FvMV2b7SCl~bRZ%!F#c8fwZMCgdM1Kwo&9A$lEUA03VC{#
z##a^FENL?EpQGwEDUX$Tp$2R8&XZ3zPkeWJ-aZC_x(6qZR!#Kt+3UhDVdAFyVrNnM
z#_elvJuIB?(DC`&F7+6<)aj9q)?5YqZdJX^{1rFL`TSz>Gxf!v^Dpe}XnwZP-Sd`T
zwdF~6ruXx{D2JWST$TL8<#VFKFRAbOz31o87j*qt_NK3!RjH<=zAmA}v!PS&cZ=yQ
z`(3k=H_dvJpnAq_`Jn}@J15oT`u<s(8)|r9sqjl4tNGI|p8r>Brxa+Cw5VC#OLW22
z6^=`nmt9`{^0%2S_mQsU=N45ye|_;&b_P@F$MXHJ{|a=x=d=A+(r3o}CFI2oz3!E_
zq^tz@YBz}W&()InYW8~jm%lQh%e?02s7$Filr{UBqiI5gi4*shm(0n+$3AETH>8-~
z@P5m;e`}Xji<m{%D`9^|@$1H-x-Q-Sq^^pKO3$BlZgEO;VQSO-i>16BS8rYkkUM^}
z?B6R%g(|Q3^BxZ_2UpJ4n5ke_WG--9#C(p}<fCtv9BTepzRInqd(8r)AKHE|;uF-o
zLeloynCeFRoSId1>pO$v<`<e@lBy0G@0}=LQu;$$YGq2*PMdoxZl^r)da4j~>nq<X
z)?2!3FLVXo`E=OW>Wtasxkd`wd1t0QFJsskZhEE0s6lOaf6&*%d)0Rz;N0p~Ubb?_
z6n3Qx(xq&?a<8=ZR6b`~v9;H7*T!bkUrLh-ebT%+XK+mC`BL%s)08J>vwUuQ*tcf$
zq^CC>P24`^QFN?RZ{qw7`c_A3wr-3#y7)lCg@$<(rZ(M8HQc@SiR2M^d!6k*Y*v~t
zxJ{O1?A53j6<B@a@QD{Wr8A;F8oWzZcB{Qswa;<Y`K3Kki;cc$>TL*{u_n(rvRg^F
zj#q@?dz#j6560FY_6l~#r6x^L;XW7n@8pCo%?^?N@a~b`Nv{Q6T+cS`O)#?5>iqD)
ztCDwD$yTAmX%{)TcLs>dIq*NK;W5i#S+C-|?mUC8qORc2yNz9kmz(Y4+c!sQvcB3=
z=9BZ9|38p2vz|34jpx?UqWjX<FI?(YuQgtGCt$v-@x2?r@2%<BujpVnC%H?G^^J<r
zkMn2G-%oojKKZYiMOWd&iPOZNq>3NSmGr4)x4qVRsM<dAt)Gsf^1jpCmRs$XU$J^;
z#oC3=6W=HqmuT5(aO~W>V%@FyYj<Z?{0OZodi3~W%8~mITDPn8R_uDgrpA=Vu=aD(
zf%(Y`KRu{9$6L0Qd$Aj5(ksg{_Na`t48}Khn7W#^Is`UYYR#<EdLvnO@oidM^7_U7
z5~Ws#9y<)zdM^KWr@s4QN`g+v#MbIbaaFP$c2~kJ7o57-5qQ6<yLO(0+v)bmgO?u2
z^xe$c)Yw|EQmZvGYu+h`bxW(av?c_2?Oc=-cdbt0(Ujv+?a}qo^%IM(-OxJVJjX_&
zBYu{f{*|8XcViM&=Qg&jXKO6j`NeW4*FKe*r#jC>GG9D$xp~iJ=G?PqOP5rqZ$HK?
z8xR~XSx`QW_fcEl)GU){*&Zj$E@r=Uc;euE^li}N{HeQgc0AIFx_6vQtLd`E+f5Am
z{u8FFm#%o5wMp;zq{fpr)%v+h)!$B;pCg;|bIHTlOJS+&|I7?cvs3PA+IwUZ_a4PB
zHTu8&?IrDY{kYaUoqzGt!y3%@f5v^Wai5#3!@#L{zNRc(WlwzFt^aiolrKHp`1g+W
z(F^=ed><6=&U|-1_vE{a;mLM6`uXqH+Z43evpj#05&qfwtT_MTr3Mavt{5t6CdUOP
z)s?tCvQtPp66@~mQ@SqsO5m40cf+e#*4(+kQki8p@4=2!XFf{R7#nO~DBhm#TGR2*
z=t$wwGLbF+-w4LId@W}*aGtx)bdsR$-9<gCdMwM0l|(;2RI~^yUea&TD>G;B7qie~
z&qA#mek)H>?z`%)F3}U!%+_!2`EK=&wxV^RKV~p1zj(r-eS+KWm}k%d#y6UI?`!^V
zGrHH;yitjDX1(4uO@>Do=YCnUXQN*8%2RHpH8rn32rA67sr1~rDdH)k*Sw4?C%<=^
zi`j^?R-I^F)RmU*X&WN+k7;*^f`-M68k6<kU9!`QO<&gT^?%3y=ylzfhVNnGN20p^
zub%OQMWN--rr^?bdFj$mt)eRL-Ha++_3%vL1_#>^&yL$ST-f`JE-o<__@66gWxeaq
z`%eouuK2>WIM81&<YZ5ga>tHOK`Sg0!?eFtX-b@IHP>7mH<3g0j;Oo&o_4iGCtnzT
z$?*6Pbcx&OlIP#E1$_?^&axl(x;0y1cF~o_otJKxEZMyF^Kuv6ni3%vx0#I3em)S;
zwlMy|yL`#rxGLF>ONC|=oBO(&_x`G#z`;3f$po{^B{Ll6Jm55Om?+0%#p!x}XXO+3
zkiSB=+gIL-t7T0+!#4S9Yb*Qe*0{7Q-B(hMP5x-&sL%cKsO()%ez8lOQ<<+<)gJsA
zw=@6P{Jals+UL)8{ow2UWvTh)l<Du}h8xN+x6ItYGGj%<+BJ-;I;1wP4w$y)rrh1B
zb<bv>-~TVz_UCbh%uTZmbqn7wTlzRraR2j_lNW6}_cL9RGq_Bj<<+Uv$J0Bl)_?1X
z-qa$!=0V$o62Bg{^3x6-v5#)GS;eQv*BoDVn=kj_h1K&H{jUEkKh<oi_flgiQLUo0
zlhjLH9o~q1;o&o>d2R0~TlG4nnt#WF;{h{0T8=zxI^BM%W*v8h2X{n<i0o4y-g!Hi
zR2TleobcqN$&-WEmqr<iG%X5wGCfrEY8t~vwYtuLmj)K6eV!RfKmB5QwY)+6j@JA|
zTW_#V4TxDXrTgfY&0o51-Y$O=*(~ZF*d%%{r7YrP*Q~aAejgfx--(5AYP&`V|1Xd_
zyGC1f{(=y9(PM8s``HycWDiYRQ#3P_BPyWr+KYl~SIo_Xwy%99aq4(Pi>S?C?tp#0
z)5O?+@N(WLy5}m^-gotj?7})b!O&Z;SFA1Ff5N=icglO`^A9I((pSt?=UzEs#$}%T
zXupbe+YUrOP^jXUxo6T}SHUQ|^Uo3E_`hE)%un67yc2oramIo-c7Enn-?F_m1>CcK
zzU05C{ZK))uk8iP{O3^tA`aelv5%9v+%8nUNuITFLj93-da~Sxu2-_kj{X)af0~-!
zp8Y^z-S%Svdgm^A6*+o5*)1CS_3OQF?~dF$;>uK&wriHo0`-=?r;cfB967sY$+^wf
z@6FM<y~g8;NI~e!OD{qK8cry!&)F7wrE&TP(P>?*Oo>r3<&MYAV_zIllrcCKle}Dh
zuVg~sxj$1{@3~F4c)@8ltMS<%R$sZB1&wJzUl^)$PXG7kDrjtd)uMMg(Sj-V*I~tb
z1uc_iO10cR5Shffd25r?odo{nPbM(`j(e2+?diWczK0&UYW`li<%vX~h}lx(8;Z;4
zKG6RC!8_jIPCIL6LQ8#N*pcloJ~R3q<cjQBreHmH_7-!_E=R7J2g)nwrkV!$PSLit
zY@Ipj$&$W96Z6;q`7O%dIpbjOHLo@9*9>hZJzZI0W%OvZ8s~n)IzHQp^IY_o$X7l4
z!M4Wz{x|3H@JPvzVyhk;xhNef86B2vdn<FtBdd!&YS(3!zw(!VebDh$%t<cMueNjU
zTfCP0mzv_IzvpM?#fILEjoSK}->ysv->tJ`>n7H-B_@6D7biKZZQgzK_NBkip4PjH
z)T-+0YEM4$LVEqI>RPs4|KEHx=9E9%#j!~6i^21C=O2EQKR$o)q#06wp00f=dxiB&
zQl_xo^!94CrT-30Dyf?IjW2Q9mS6iNlznpJ*3DTi78rTni~rOI@$gBD4tJ<bdM)H%
zd$UV!^CZFfna!1Rsul(Z9S~3B-m{7;fAMn8-+hX6oTr-_U7XjQ@!$2@iz)Bj1J_>c
zSe$X^+mr3rXSd7{f46YvkLsW;`PUWZZ+cxj%PV$%%D0tC%lGZNpj!CUS!-j?*Tw$(
zzFb<EpOwoiCeE2QS(5+g(j!YUIp!M7@-tk~Tb1+9)NJnEM5F0ep5Zh1FWs^y`FZQ3
zV26Y|n=deDxJ}-ry}VV3C1u*tUZv=?&TDhxBCjyT9&wkiD|>wU7;kn_Pgbm5=9HGZ
zqPgzhofSOF4cwo~u1Sa&D3m$txB2oD6LSYsf%{jy%pNzazTqYLB;i1oBJb8qIfc<D
z(zYB-Icj+96z|N+PidOb9dA396=?5G+!ki_Ev-^AVolhF2#?J-Q?$OyyYrh~Q{WTG
zeG_$I<yAJ-ZJrj6TQx6F>0185ukZFhqYZ(74H90q2Ny)$m%nvtlF^4<A^|?4n~zS&
zyym>kHM^DTP1uLFdyAao4nKYU^s#__UE+&l_N*V%+><+JzH$F;y+xcWL0bIEg3I0p
z$*VRpthLsAVeu^c>kg0j^rHsnM9V8;cSUbuT+X>~;kD@3874P1qIqX5kkNB9+Y=TP
z9T<FBz{0d-$9I*A1B&L7!dGsY1oTEa#xLG|IsS&&c5ORF&AByyLpNHi<xtnyvwiWL
z#b@--|2_2hPPwplYZ%ATJF)G2b6$KgyE1+9)wiPJd7-PXHiY@FVs)Lks3qsYy^9M!
zTs&yqKYJU`;@JE3kFKyk+caz0<h#w&8(y^DJz8UWe!&v6OHb{qxJp=TZR>cyyNmyQ
ze8*tZ+1=(wY5)J}1eI#u5@rt+s5Yp*zyHBRQK_c)0pH4v10<3z`E2PvwtlnHzaEzS
zqMApu-t;s_vKQZR{kP2_+gQ@DM)vQlVC`>d%hS_Ro`rHs-)7Qn6fo?`d|I76@%zJU
z-{h>HM|U!=neH2*fAQY#NjVuBvZh}fy*~XvuMvJhI@#^wnbMUDJC=mzd>6lWfBOE;
zLyfmNj(`2y^w-N{-&74JgI^8vn3!foO!l!qqRu_NC3nx{W#>1?FLM{&_$eY%Cw#8*
z-KkyQO~jYHlka$YFL}|o`*P0Q7nFM!-n(F(&2?dAdzRDN#HT-;Rb--1YSt;HUB0Ix
zxlXF2<=&#Q9T#mgtY+QP`k1c5d8tBjYnN31)YDmq*GleOZR)+Q%6ToPpT%)0Uin%r
zk#lPwZxES$^bM1Nl&MnctsG@(uimdGuQG+Vweo){R;V&*j`Oa0Z!qyoz4rH$-%mc?
zvFgl(;tNjuJj4DTKK!NQmfdSd{>7ENPb$B}Nu2u6&hEH;!RtAj%(d%-Z$5ozA6h74
zJy&jp_|p|je=0~7Titv0DM&gq>G<W>hYxLJ?Xx=lN8)DW3to|<9~0JXnKJWjnS5B6
z;i)By4O68Y)J-$CEV>Y^puXey!V^3XCw!g!;&4zOr?qv%jJPy|yeY-Ah2}`Dc1t!9
zJAFd@nft2Bs@x8-E)Jh%*G}10|1O*~uW0h}QvsS`%;Bc@oW&zn=DpZha@g?2Re9-R
z`^WxYj!fy&ZB?3lWlH|V83yNXomExKKB4zKzN{t2&Z<W;Db;w^GiUz&hn>3bKcDmG
z$KG`f(z<`2eE!^E!7^*huP<3u5527N7GIFNU;I^L*0q;m+q_Mq*0OmwpLDpD8m4)I
z<6dL?wi6=Tj%~Mdhz_i{UifeG7iItT5j&>#JXU|A=Hk9?f_qX%`?sBEa*k~~eDj6f
z6&~FS8f)}FiL-qwG;y0;busGt+nUvjRXR_u-@|ls!W)t3;JGJNXDYBSJ(wV~`u_K`
zrY7nIa<5zZe}+ET`^>*)`u(qSxqDw^`w2c%ZWUg&(rsJ%g$=6$b{bf9o$|Y{-q9@4
zk!iN){#xz#2OM{M#ZBFQTOf4DLzgSOI{S?Gxn8!}^*t^}eSfC>ADMLm=4Rj4E?cfQ
z<GatS_Ujif-mbf(%zwg3{rYSkG2Togt0e(GOVU$5w@CH>e)T;5-@?Z(53M#f-Sb+1
zgjsIy<DK?jdN-bUto&l5;Fg3I(HeH+lV3kxke0g4{pOY6+B>#ERcEf&v#eeyzl!Vg
z79~NBV;>@(f0uc6FJ5~7gbAe%E@CRHf;Y0NXK?NoU8}#cD9lnTYL@?_30IeV7dicP
zPtpmQ-D?(JyIy2-YxmqbgXD`*oSJj`|5i<W^gep~w`U?RwJ&ANZCQPCs>|}f??s9h
zi=TD!H<^6+#a#oH#QX*Or>)VvrE>mhmgvgpvd0l>Tg1Yz+_I5dA-}tC{`C19s{`&-
zW)`eC?S5_k3K<Pqg+u?v+I~OWSJxeGzjo){iC>j7QafUsuRFh)^-Vu1Tzj|d(J6Br
ziw$1gXR0r2x>PYc+O~1ky6-Pv9=QFbE9<nJk#^)<r3LTRGh}!3u4O6qT)Tb!`ac|L
zt&8ucw+2|BUsw8e;d7NeA37%J#Ms<B=ak8j_59}Re4{Carz|36!e^@W`W{x(l2@_M
zdA=|2;X?oF3o&0Zl=GfjCwd&OoBD6Bj#qrdmgdz$D?b1H)68D%e36so+asg?tIylo
ztbJvL<oDJ+yW17CsrW{J+Uz$j75nseoNFyQ8)|1Z_rWZY8AXL!mZ^`p-fua%Z&K!E
ziJt$AY>R{cV-9(n7!o^~>ERsW7YMr7EjSqcUN<uZ3kw6X2E1_{3~C5ES;QCPUN`u$
zAZCV0Tb>~o`uOSx=!33%3(*hL57&o`fkVf=Ga-vy)Acj-Gb#%*QuFjP^|Qfeh~(+#
zLl(T^AM&oyuS6T}1}zju9qtB+kUZRNWMO8Cw2Lh_EHfndy4b$!6J~R}$>hsN<_d2S
zD>%S7B{H=@Nx)IyNYe=o1!n^nw!p?LR|`K8_N>qqVQSs2Rv{}ElrkJt;9}Aea$GB%
zHTT!IUiCF!{Ytj3j;*bqRDEt&`TV{6^Xu>1nWUPuEXthqG2q8<YpHoUKl(HOO;-G~
zoT)|mp5)6zEgm`!NsCwcA6dBg!7q;!a(s=-8jQZ`OKV;(^f?!B^yraQXV)sJ&+soV
z*)l&T&p3D1;+@e+TeS3yY)-}quIuad;|ZVa+O%`Ok&#~1+{C=6LaW2nt$pXtnl{Z$
z)y6QjD@fG1`cTT}Ef%F~cE*=@ZP7BdI#sjJ$TN4JhK=E^Kea`{_x@LD2v5GgVsYp*
zuGEk%TAhnDR;#3bdR4jVrzZE6?4ZM!m5r1{121aVCMW%U^k@1Jbrv-}(P;mfdCAtz
zi)u9DvkafQM+W?xqPn$Z(;}u74q2K{{d5=Gtk7Sv^NL88oay{12jAslLGz~QsxD6p
zFxJfXa=aPbt--D}(P(K~@ZuF0uSj$)Rug!mp}c9XbL`UN7f-*)`PHs?XTlOiQRgaF
zWme55F2;P5>l)WzOe~nTA>hU_p7e8udrmlusP0lb^v31dRNqAD-sO_dCEgqA8Sl$9
zy13-P6R!P7r|7$??g?<df6-}0*a3D2+v_vS#QBRk<L0fHw(a~i_N>J26<<C4zrWAO
zn<O&-QkT!qyEk(`csPe=Jhb?!#yiRKN53l1!Nngt&KtI>-gvWCl&4v6ef%N!pgCP{
zci!Zl?Z9y?HvN{BRg=NVjCu2S_sH}ydmr#){+qicjJq<5(c)^+)s0`X&nbO-`d9pe
zVaMKs8H+CE79Xg&sei6{@fM|j69O+bzIxT&@iuE_wr%FT<7<A*SY+(^pXb}--wAu{
z<<D5^Cm8Xy%`0?V)4EplpG5x~gZhO#LjnU;5ATecXng1Sg{m!PVKZk<oHM!ShGo|}
zcYUjMW!uAadlU@W1I^!Da5%>M>t#cOeyf~cv%F(k?+d<HXLmQ>`1ktPii50sR^6Vo
z(d}C0wT@P%iJE&97u*uLd`ph;hO<ojy>D@qJEp!BsC-g=%;m=>{<~iqZCQ@ng)l8Q
zo$y<+%5KY~7vT!)y-K9-p4;6U@wT+~!Gk8oj8vbW{+rhyx-7P96}MO^=L7zGy}?s-
z?+Z3Ym~L~qp|iuL(0|*Sw5t=(=1TX~l^RO3ZY)yYa`5{49ZEjC4(`?bR}{uPDdXOh
z0~eBC_a6;A@#vH=w@7vJzPN4NS2y;)&A8ti{OU~6%9ZDIe@j(tIds@;S7}4~JFW`b
zIZq3k)Mq@*^!YJ8(NbHWdu?u_kw@Yi<_%4nvezdo`<>pmcl(|*TaU1L7BEap3}17=
z&f%ZpgR<L=r^=d^c9fi5`|Q8i<@`LZ1C!;C9{iDJBj>jJ;l*uTc6+)%>dq>C{CxB7
zQ+giPx2^H(KI`Q$X$9}`b5bkL<~=!jwBA(n{b|bwlY2IoZ|Xn3%z62e1*HeRyOxD+
zd^<hwt$n0AuUW%v4~q>t%YKSJ$rV4wy51vtSJ9(qQzzM|<^P}7?43~aXs-SNll2Xy
zDGBTDh5wk*FlX{w#+Q{dt~mX#5ngm6@bUwd?}z@jO|_}WE!wapA+Pr9%-ZJ@pE!lC
zh!N8}v~FjFMAw`f6TF^RAN{`V>Q;}%)h>Jq=N5)6>GBL+8$ES)+l>Vq4j;dr`0|_5
z&G<-1&Xj@&+#e4~@??5d+lak6sm$`ALZ-*K<-5cN7Wo-1wJqNzo&QQzEMQ!^aA|_}
z#Lm5b=Pdb8Z7ub=_^VBHZb$9q|3WGTXM|aVC)t{@>rKf0{_NY-KNUSMmb^@}kn7wz
zb7J?NN$1|)%JE=oH~+Y{KGB%{^z?+2&nly{4#%fYb>9;eJ@vx5TgC#5zQ<;6zGXj`
z!(~!uQn`wl=o$0d^Wyie<eIuDc!gZsre!r8iC-HX3z_Z-YUovjCbaP<z5R20{=GGo
zf9_9P99j5v)1ue^+=ahYO}HkJ-hQ+~L++!*<qsFX7OO5@p1SP4os;UWjYq$%j{E1a
zzF~di_B*dy86#$WWu1Ng$(#tj!<Xt03RNUcD~#$m+WaXlZvWJq(j}b!Hx{cbD?YQv
z;O&D=O<!}&ovl8--S_HrLU4%s%~jXGzj_k!hyP25e$HFPeF+Zy*A4%b#<hMtB9Yd6
zIN6~5^XBKGy7BQDlXR~N@f|PHkbRoE-oLN&bdTejJB#^_7%Y45;{EpG)z$o`cv`a$
zY!vh{`LfaP#$}ZU&l@H=PyKl}(D$KkT=n8kuNy0$scg9UxzOO#bnoib`X~48dM5j7
zx1pG)%!KQ`y8Snr+}_>RPOr;#yt*Rytt0m}k#$1e5;<)OynkoSXrJz=+LU&N;dDs`
z*Xgpq4cF#P*w(#i+i~$p%xb%KMxV-w6^;EBxa4u^{K@&>%@23F{koa_VwXCDT$Y8z
z?^lu+>LY9pKTfH5zo3R8OJc&oY(5t${q%Hw{WGUNSXej~-0D@Hm5}rOs2WH1!e}eU
zdpq|BA4nGx_I2l;82x9Lt+uz5fc4e8SHnU#Y|`<Xw(gXti`SAnYwt|oR}vZ~5wz*u
zdC>!m-yao;3+}(XP4v>rGi?DS+bY}-o^y)KbPFvLO_IO+Vpsgs;AxRsr|))dTeSAg
zIpY;8Hb_04=KV2I=8!JG?)yEL3tm*beW_x;T%mNy8Zq_)RRyPc+INKKq@UGXf4eOz
z@6^9Jv2022zc~E3e|&npLs3SL$T|s=PwRg!-K^$tHFLoS+ko=-oIidRbXSL7yVzKD
z^ZJav-S(3o&29d4`~sWH<hmWc76)GZ{UInL(zKN0hFLxTPbF44J>%9r->cd_GMDH-
z%-(ix>THwDhMOJ7i_cZvmt%T$)pYKk{I_3@+WlDR&k$X~u9uO2p|GTLZ^ge$hx>kA
z5lvru|6cUB+7Ayi*(!auZwh(avnEP!_1BAQtS5f<&HKFT(4JdgziLlt`uZjKhQ-;H
zIUlB_ovYaQ;^8qXl}7*hdzctGmY3|3n=td$9}gq{U70%^mYqzu>dJP${^?c+V~o7W
z+1+O*Ts7MywS=w1`dR&jnE34seuuux>}XnDVAOoLuw?@OOk<7xjE`MdLZa6QeKUT4
z+GJ1Oii_`>zfQPS@=m_2)cC|SW@jI_$#ZkMC!7E9>L@tB(_z9Y*4a*rXR<PfHWx81
zTKVqL{dLl8#@AQ=TXM!uMMKeb*Gh}6KZ~C<HBDbFeDi<#-yh<$-ygC|`Iu*TGRe%C
z^S;mLn6~uXC>=+Q?M8Ap1U4AY=9=F6tw;8sX6{0LzMo!-C(qxnP!-q{^v)yg5a+`X
zwy;So?~T?cJP?VHe|I~wv&>_g5v%vPWY?2_+;^OOV}2<0E_<QXH{n7j3ByUDR{D9*
z&eWxGm;E_lzRpY|>`qU6GiUMAU$YOh^F3XsJ@KAE?wxg7K1MP6&!SG`{0q^sVf~+0
z#Xp5>0o$LQX)&u5W}B{<Uw2WT!S(;|8!ppV%siiC=ew+J)|P<H=Ni3J#ZIX&j5wm@
zlDdL%uKkf$`;R4yd{`pcZ+Pc?fOz~xx6f+dSp#kzO<lO=k4}=i^Ng-f*ZsBn_q@IS
zr)%Cug`$d1d&$>(PiQ$t?f$_bG5_yENl&?$hzAyDvp3FO-s4li|B$IJYr5hiDc+E6
zPEp33Rtgdi%8Tvqzy7yOY9sGgulG||8XHbk_CA05jQ{!cr?HFDr|Q}1DcTjwJfHK=
zG-{in(9@^uEFa&Nz39HqeX*QfeRXx=>g1Jge)X%HzL2_|UtYTB?;V5p1uGRl3T?RX
zL2SvDW6?}?JQl_Kvvn$$ck<j@TrPC#p+VU`?L+quTfO`AUX*wJL0MCeFG&+$&U#;Q
z|F6J@yN&N9WHyE`F}%n(b(X|U@$Oz}?juRL6DuTK|MHte8e3y_XUvK1&G<%o1-STu
zmS&<X;4y(7wqa;sV2Qju(*%Cbp}8sOv?ZKp?i%1)!2>#t7qdeHKiUv>IjKu(PD!FZ
zq(|ePn46oZ@1gIh?*+c9)F&}FDJ4<gSKm+HU*A7BH9b*3KtCWOQ$HY6KcF~MKM>si
z3C>K<P1Fz34+ZywBK4#66ZI35OG{Gqlk}k*0x>rSCKaWYrRpc^CubHVm*%GBq*myo
zt{+OtOf5<+&MekX$uCJvPEO4$(NEQfZYRu5Ni5FLhhCEk*<6@fk(`s5tB+W7l$N8P
zmI*ydBnL}(EDPEp%S}u!%FjdFjfnlck%H7BusfjVK!Ud?7U~z4rWTiE=I7}bmgbkF
zrX=NnJqzPNwnBn=5GH7WQ*ml;Cd9XhBTR~OKz=I0y2r6xze2xKze*p=UPn;!L+uuV
zL`d!yTAG-dA$1G4R&hoIU%&RPbK;!GE>pjR1XMSDwmBd6+UEQtovt&VeNx&CSSGDe
zIrCY7DbYYlp^2F<<6_p<YYVfkMy<ZKYWvo$w{F!IT)tPY-f;c*-FvtHegC;n{ru$i
z3B^U<qF%?oueyFK+M)EV6DJGP#Y0!6)%*<pn)bZcf52Yy@V>ZJ^4sjn>^-bsM4ZmA
z`_1n2W#gmQzZa;#SBT7C)$Z^>TxR|nual=VuSkpiVsBxu+*RFjqpv_N)4K54nU~2q
z>b^4!E|=|FpFLsu=Ed{hW*ryc505`C@af?3Yv=CYylkp+r|d{h|AYw*k&lnJx3%>Z
zf8mvTF8}1;!xM(v7S2<Y+a?{;9NYYD$F3WCAHQ>NjD7s#byjxV6N}Hko$Bv1WOigv
zc$-x(eqCX|>pDBdzSlN3)2)8}vRYU4rL?Fp=6UAxm+xNhxOV;O-NM)n>aKz7KK~W_
zksmFwp*HZrqXnu5y`86dPJbUM_-cpInat1~pI>oIH(i%~_u9_&-)}s~e7^N!_2lzu
z_jQBWeP`Ph96J*!&m;PNma)yTx+B%a?wk0m-Hv~gxt#s{#)-nm>OMWQOe(t?7Pg2j
zdUv-fVxMzh^NOuk60&4XyQQ4gF1K6I79_nQaf+<zoLe5f3(NwQSDwA1k;QE~>z0@9
zf@1-<SF~P<$g<wrA?5ydfmrb4m8w@*vNTO6M!ESenif2HrRWurELGE~QLes=!-6lb
zG`+&}%2sR2EAPnQSPkh_@>l0eIdrbb&}w_6(bl!pW@X-#o=r=41s8_cn9hFXsT!~^
zME_L(uL+x${8?GP;$DdSsji@)q*t+BqAOSw0=P|>)+)G8(DD#25&t6aWyu{5ixump
zL|yQop#NiUchn8v2!)!frRmpyi_O+K*O}Ha?}FDaBjH1LUYISKz3%q?-SV$D?oEF`
zFTDEgi>nDcFKzla_v-tQFY_+#-g$n7-No8@5xFAgML)kkwqf(lH{Y-A3%_3;asTtR
z?zNBC#^2uZrTex0%KsY~wb`%mR{X6~N<X~zX_m@Dp}k9vUOQCQoO|!ULFQz(G@e(s
zC$a+`E_mGhjz`X_;<!M!;_CJq`z^Nv@?Jby__}>nTW8x^`DbQtPCpDhoZmO0$HI8i
z{S#jTuV`$)80)sZC$P^~PW-U8PW0o09or;-KD9cy@7hnNx`5YOW}4wM<v1rUn4s>O
z{CwN{HHWubx#tEM+Lf&QHDQ@p&xJL2mRnsc-Z1f=Sc=B=RhzF!oeaEkovHDKh}>$w
zYbO+M9=p!RWFfyRtXh=sfTG2!tdLoGoXf8}mF!wG>tK~#x2xEXZLHI}bbh88d=l#o
z+AI31h;?V&OKrQRT?^86^cI$%OpyG!Q0l9vFYA=a>F@LFzZpr&Ok5E9<^1(1y|@$i
zwlp5T`2X82T>+L=dwDi3e#j_Mo3)sGZ^`RK#vAXy#h>lS|LgR)(TH0<s^&?S+oQ71
z)YoB;rg~R}<Zp4BRQ=-3X4dn+yDCMFlqXK?T6b-UdEtufFCx!wIjg<h|G3l1#}(fq
zKTho~Xs)#Qr~OCn`n99WeM-EQi>Ggydht>GovEAncP7Z!HE`Ul`TZiFKmFd3Loz3`
zYTA$1x_mqJC5uzb{q+lZ>EpW5TT-71bgHhOAo+u{%JHe~mhbZ>e0Ph}sVe`WeTVzI
zWGm|q{<M0z-dzjh?Ef|#k>NY??M+^R2B(EoiNrZ)-7AM*ZaOULKHH1$P@;v3?)}((
z($|``cN|t**<3Qc`Mz1gnTh$L609#?vpf9@|Chb(-Jj!{zZ(oM*?FahGW<AD<-1^3
z#rgI;4G!+9CzB^V6|xbY{^040h$OKLg{#YsOektGzVxn(^#N1ghTyj=4DSZG#JBN8
zIw}+$z90Emx1{~=qNul~o3>T$VB5+S9O3kWUo`To(3Z|^Ii-`OqK`|hjf(qp&(yJP
z-=pQaFRaC^7iU%|MKv$`-=NZQvgwP2<cY^2F-&qf*23Hkk<HuRxvQ%_njc_%Ytw%l
zA)8qZ?Jq5SO*B3=Xfot>vK+nGIzi9duk8j)-tC(0x7Mn=HTV9|jO$+h=wyX?VY%_W
z9GB!Tdwi289DH?EG^Akt`X7?Bj(<<lzgW@1DS7?UQ$C@Ocg_0!I^KqxXP;Wg<foN=
zukCS;)nvckoI77w4OSdKZ?7QM>HfE4x7U&L&l(mxub6W2QH>bu<xuth@VP9{e*HXo
zgXw#eP3^wTtJf(y2*omGT`-(x)AaYxd$)t4%=>RCJmKHYmvDLW$?%sxjWSL<xAiJX
zPK%Ood3hq~eXL2dP0pefXP5D+pK@U3G!tAIaOh*-BBv#rIfPUbJa0tok&>`+PPsYj
zl3>|8M*TXyHJNiy|C(}fZp2%cEOEhEy%r`+Yn`PF>P-aCPkm5czd7}6!c+b&%MTP^
zR4;I?D!RC^bY^fOUqa%IsPAtVGD=_LSN`zmv{jAODS=g+Z`JdQPMEXr^mn`SkCy(w
z+5SgT^R3lEr$1|qj=em@{@2hrL!^%Xd!-qVp$b#@!iN*~bzM}F7vo=Y(E3iil#K9O
z*#!PGO{V<<y;U)L%O9UUra9YF?7UiJ&AE<M-?=X|xM%EU>@~~abuxKic02PqZ=mui
zH9f9FkDbIGR333PljU6bds^MJx3<1X4z7-iRvOI@yyG%OBg?-wtmT-~(PK<Hi9Aa6
zDqAzGug`oxt>(X<Qg!LetIhi!MZaJ!neQ5#p=0>)#2NiZ%KsN^tty?oOo-1(SjOb}
z5xJ^;M!UnBjtN>-d~w~y79!=hkgK=V;n;o^ulSS`H@BZ(o@K7SZ!5!{>8|h9I&-|w
z<QOel{5CDmWWhleqw=Wq&AIOPF9e*Nt+M9gJvGf64E@%VE_BN=?=%%!Qsq!T|7zxk
zFBa=B-U*p<EwR8~P>PjpH`5uxX5C7^WzUz3Mu$o_^(`!LKCyA%Bli=mxoKZd#=9PJ
zN?YCjdCtps>F?SLyJAAUWDE=^Na!8BR>Go^wtUsqqethsG0$4`=y0EVh$_qOFBi|-
z*+1QFZsz`I>v`3~hRp_>V!v&=v-xk<DQUR{dMkx%P3BnHO%C9j%)RpHr1@t!=Pqfv
zA>lVsMtuI7g0&@08bY?-*Hg>nSpSIzb^f@x?||3O=NFIIv#m6YYj5iL6JWgGr}|0Y
z<#3s!_0^4Mr^=O_V^b40`lOn{7(0K`FU^I<=2zX8>RTK(DY!oCMUMR6wPDZHB0alj
z7liBdeUES4etp5@mcnhJ^M8N+=wkE7Ua0T;KHuf;4ZLy9%O85)5VT&TSz&ZbLC`(6
zUH|m=dY_`BQE3i`OHbVINPEFzAMf~=!|VBH=LnM<9qfxk9hI*7#NVEHvgeE4x<wzY
z{gboThsNzbF_-g}hp^|%Z9H<~MQ@k>5mvsHZ}ND-&xsTApT=+4I_phz%*?<i3upLy
zHE5q<=HDDD>)D@NVBEFv|C3eq0n7)_^9EhuKj6E<@Ui-ge;0Ue)LiNL{Qr%X(^jLs
zTPCWUm~AD0?EC)1eoHP+$l+GrYoYkp!jr!x!{(3gt_P}LrpS7W`}pT&J-hI?FF&t2
zX%b8SqUQ%#OxlFow;p(SYL&l)_m^n){k#<_E<uz3-g;vlv-9Mpn@9A-XWUJUw5)Z%
zojB9UY&N&a+Mj%pg|>HIMieX9MkmG<&s@{;K3zoQ^F^mRuBroR)5PR<Em50l<nnSk
zS7XABm7N*ur<AUGBf!yIky^AVN8{XvW3d<QD)kuG9b2|Xu8U(wO=#IE0S<=rt?PG&
zT@qJto%g!AEg@yD*jmq1tuY=aeNHN^I5Fwf`9<sg$Sq#LSn8@Q&vDT`gT=aT_T99f
zK^CvinLdA`yZ-C-pWe2MWuL`I|9)}w>uU4Os;_uH?fA>Hzc24ZGxw8DKCkepwkyv~
zK6o{!LiaE8kqUvTl5F$UCzkyF*C)5pRlR4YsoLfxM|3oQ9MtoT*d4i5tJdPD4tr|Q
z8J0PjwoGrm&jrpDad5SLal-gdNc7Z$54h{*hFx`RG}2ZJo%eROoSCS4WWVFCB{G{f
zOgU$L>+b}f*;n7aEuYgM<JxDw>CpbD<!;%+K6MwCEPeL3C2MW`gIyvsU&fp5T#);{
z*J)Y5fl_|$&+WqVWv)h>-n;dY#dm+vTn_g8!7mPq=X4dfCJP&=KL7mAE2`<ui?5DF
zGs8bk4B@+Z`2xq+ccpq?Z*!F~7#DZ`EsBqIsZ5=?&PIJ@)$*vIz+#)(FBUvbk5Tiy
zlkst3aI|Q*=<1s1m2A0;>}l6FFW{D`JfUh)wP8o6r;G88hhJv2&fC4s`s$n?D?ZB2
zn&}p_@rAs?llBjnBe(FJJ%7TY^wYXq$2{1z_HZ)XNo1~=#q1;>vb5E~#^u;iRh38H
zJ8nwF{*L!J(Q1;^(H7U|ed&>Lvck1v*IPZ<mHN(h?P239(I~1Ce&hMkHb?8`vP-EV
zPd;QRT6HAd+{?}<qpxj#&FqQ!%ml#|UqV?YDdb-}vgPn1mzjdjzgkZ0n4$9XmF2bK
zx-RpRhfJhToIihM=KBEMaJNHp8^YPQu>aIr5$c;=e`L+qh&##0f0drHO?d1)J-g>s
z(TXOw)X3d@6S9Ph73IH#UVU!=KWRs4n~wRU27Nm_tpitD--K?@_~K%AW%ai*DS>sI
zE0fMVaWb%t=)WUnof;!Dv2brh$yVp%GdY*OUD+76+W3>!EQyaFC;T~<YyPXeYwJY&
zB*DaImK$!{8O`a~$|PoaF@WdQo2FmW`i)LK;JCszZRa%WO!Efe9h%pFy}kAL@vE(z
zWsTL51+o|OqcoIEk2e);+}!v4*3KXMRw^vcG4oK7mhye_Td8Sx+1!KgmwtD?S01x9
z@X5Lv4t1AWHCEOOXYTVznH1XhYti~j&4r8CxBf|)wC$<5-zx40ywa`Bd);oy$uC}|
z&}3p)sFfP@#$e5+V@^x_&jl@;prf<CIcc4(gJAyVi-t+r^Vp@Xs%`M=>ijn8xQF>K
z{YXwvhm5r+W=vYx&a}*Cje<&u)Z^W&FaAB!+Gd=7%EG%&c4fj<|5rR}OSeDu+;Z@W
zUa51P&a8i-k5``I*7`1W&QtMwtAyGHjV+sE!gqZCbmtd;;rx#?4(+x4sQ=@xyt}}T
zZ@1g4(o&B$HW{plIr+0UTJSYn&y4#vKLuuKZLG0fq`W>y`{$<JPAd7bCy%`rO)2D=
z_u1{W#tViG@=1Bj{n@J)O7)e$I<0siMDbzvRg+2ouc?}<O?_}xO?r!@=1q^Qw@ydh
zE%UuHGqm*9>1T0IjaO7#ul}*=+?gZAE{zPUjugDPUv_R*1q08Y-Bpf@8Ec&u-R+k@
zm6kS}qyMCDLjhmBdRMJh;G0bSuGazLN>wgOd)BWF-@`LyLW=NQzeA1h1P|_;w&G&N
zo!Wlpw2r{Lu5(2%ALDt&Co6mO`@fD@zr_##ub6rK=luI^7T*^B%_^UsZ}j)rf{8PZ
zK9YA+5Z<JJXyV_tS{|*JU9y=>VoP-nl^@r8nJ3(Ex|yHFOyitDVZ?IF@X{qmDi-`Q
zQS3UV@p#=Ej!ox2Y~OW^aq6ElUW#2=bB`Q*zT!&a6G!=9A)TKbm!Arss&z$+Bl%X>
ze-)wDlB`KlQ<a_{-(tJ@Tu<ogON}R+za(+i&so>7Y&y$Axm9ny^glGcmFh1G*w6Bt
z!Si;^F4^LJsu_*<y1tzJIKAo2g4bO^H%&}FWgo6fh)a9;Pfti@f4l2%mnz*Ue|Ef-
zJZYEqN8paTlfm`((*u_zZm?-;IU311Ye~gY8^@ECJTo~8H}KB+-gf1uT(ft8_Zq!P
z)3*ERiwk^x@geBOtFCz)GR)<CXI&Pp(3I<5o}jMu`q)Fx49=)Vx5Xzj#M|FL&cAVS
z$9;1R{-+BPr@yy#X%>Iz6Vq~kzFk~W=eb!Y#e9ESIqN&b>f2UoxN!e$)k%7h-zRIm
z=4|_s8a*>h8@8qy6Phk`t*VKQoE!c1+0n~p{7(#QZ$IbT_ch)2h_8y#rMI~k8jDH}
zUio6{<g4GRArhN-QAY4p=Zf9u>m@$&*2Oo)?={`@WAdd%4y`&`x%o`;oflFhcHEWo
zQ1UnP)!PuPd8^>t>mZh;VN=g8G{4w1+w?47`tPp#sS6cM`sXs8_tw7h`xEb^o;jCJ
zH6O5Pd8o*!^?rqdr&CVHeq%<V$A_G_rii_I^;cTt=mDF(MNh+GQ(^;FE-9<e&6=3`
zg&}IHj-@BtMjw~F9LKQ2s?5YUcGCmccTQG*9`Sa?R3_uRlau&mzpQJsoit-bf&Pbt
zBWp!|JlQ4XeBG_$JzIL(!+z<Bs;~ZiK6%^pqWbo*qS@Nl4@(`IzFRTy?c7brIaGYx
z9%#SWpsMaKYa37=q5U)B3qxt^%GqMM(w<*}1@Ha&)Wx`W@$=O@VY=r%H+Q$0@2QbX
zd87T$x;0O1!|akBuS*>Sc}}@*E1z%U%)IPTkLAXS2L~+YY&rV-h*iS2UvJ8|PVfe6
zt7g=Qy_S47*C%YB>BEe=P|wo8nR_4q%JFoT=-xGdSN}a$lUYB-Z@hI{>}kI7P{ibE
zkw-i0r}v&bFa3YZ|L&xeVk7QNsUKIhSWI=<ck*Jn`3>g_{~mPv{9beRjCxa<pq@+Y
zzJ&kpkL6rGn3&t5-5j^iH(=UY#UNY8XPUNIW>Jdo7=skMck1ugf3IEF>vTa|?CFI7
zF3YOiY0J1u4%Bq-QhU76yD9yl;H2k<Z#Hkb{rsWXXIrt_-uB`jo9!Lm|Ccc@<yvgw
za{1AHt`43xA8j7+*=^tnYbb8cZvO55Y43qMdVf|K@oq{^5t#20v;Bm!4aYX;LnmJ>
zH;j*JkG~VQcjJsLlGSH(?OuI7_3GK`qtkzN&0lo%kCfQ$Sv-GCg8d{S?!R1C`|9#6
zqeF{L=jKJtn-irk_<zbF`GoJRQ-A#SU}j?e(s<0v`J`Qt*X*Uou5nHc(|y_~e(`Dd
z>`v!(i^cbtcHcK$cdp!$H$8XVJiB`7+6Bjr%a#^qS)SNz{VQq9<vSH>t3oz*&N<F@
zUu$`r=aP>ie)DY#j;&<f&a86tq<ZptH-ksZMLVm7weNZ{ZRXf&)V)o2&O3ASuRqfA
z{$?I^4PC3H%_uTAcK6<$+5X|#n=V@hWN*E?yl0;HUHOSj*WR9%4-oJCVPzBl?`nx`
z;mJrPU#@)*o6p7-)?NB@y32c6!mgQrjE+5-9z9d-W2*Q2uKBx+G+Bz6cm5HHl?yR=
z`p~NW|Az|)banrw=hYQ`G!$f6`*>Fv>-3*LS=oR8oXQ#=I(2HOVC-ABJ$9Q}&aM}}
zA{B5<c}k+dw!ZASC$}jE&ZtzF*1qgn_~MHJE(tT2>UgqAwivJo&l9liDE=mBnh}2>
z@KY5hZ<>$A<z|Ka{VUf9_dFF{nj-8VKG~(YX1$HgRhzdN;YT$#1b%om>BH68E-TfR
zM6*^uT<~haC;84#llJ|%xVEvkOdwBKY@&?Yy44}|Ycv%fZSxAfS~pkP<KR~jvBgWT
zY54|83HE4SKbM*sV{vnZreSBAy(`a;$=?#Ts_okQNObk46anUi7dI}kmFUo2`*TA5
zxg`}%Gxojp+I%%5Xx2m>Ig?k-hTnGVX3Tx?!><08@0Ud%9gZY?67Kl-O;bp;C`vZv
zkRw~{^3@MJRtoH1U8Z4skhv`5&V8*T&s;J@1=IxNgccoLt9@g8X_?~RW0A{E*bFB8
zivKRQdPZ2>C94S@H?PSa3S;~)Iy*c(ur%_nVYAs+sr<AHXID*fSoB#)q-d$k`kdRz
zy>BaeZO-3`3ZKi^T*<SyWyUt<vhsBwf+x=?bq&m2zxMLsAkm!x9J8)mu?ae#|L1dF
zbEQDxpZem%59_;47t5bJfA4GB;z#dh_jWygyRd%l<#z`bT|ao}I&&v;_c@tUtISQA
z_j$>SzC50ox}4cQ_~jl2o+n)_j}8Rp`dzEwl3(l<xNM?c-TO!lbL)bYlCrx^{oa0`
z(<pSJ@VfrCW0SW1tkBXA&g^u#{O|Vbd?&A<KIu*Q*;}t2%YIzcctqV+Rs8Ie;I$Xm
zY}@j!{??ZN*RLG))()I5e?iOkRrUE-NBXUMG~Ngba{W=;GTGHO&F=V>zPl6U-pSl@
zdi~^T=MruA_c66|W-s&b4bgO*sKVKMUv3xAoW%59wVq93o+ett?3@#YYUc2@x9lnD
zHPdZ9t+&FuR(#gM4aUlQ4){K1x-IcByXnc+gMA0}@*1r>tIg+h{fO}HQTB<7&Ct;9
zHmGo|R(Ut4Dpll_mf-)c8RGYqH+tUvFlmzQipmGttFx{IuiBqj^;-L%Z0}R~4bPkU
z-+bfX=it%dS#kAg>QceHYb&m1C71}zeKU7Q!PP9!9G%F8O`bl!erNZ6XMJ^U;o0|p
z&9~3AJ<hMS_xq0p2UmTJe)1{h==R#9xhJIVrk>6SdQf$Jo=*0Z>Q_58(r-Ks7F()+
zV|HZyxraA+{^-5)-__{Q`NQ;@V%o)El|S$DpV)m|@_yq4;qAJt+t)6%mbk)vKP9~J
zy=7%xg>a2$)UDgU=ha6Sh=fV+R5HKe#r25qhS<Y*yUWxSi;7jefB5HfM)BOY75v2b
zN89YO$y?3Df=wLJO-ANBXK)HtCaODKyw!Aud#B~g%<YQPk6eya>7LWe8nnK1$A0l?
z2Lgl+#Jcw%nyB+mg;ze){*=YspjqD^d{BQj>-VcXPWh#qt3G7CjGKHzzB}e-)xCR*
ztQKe(7%1H7UY&n?VPBB?lLlY0jNq%SKDP4?{L7X#WPZQdc*TT@_bw+AL+UJ^v}7Jn
zx7t7X?oRVcdl94O_PKk?{yv)4Djid{=Ietmfp4Cd9-sYC=yS@YnVg5y&&rFhyLmO^
zeCqLQtdbs%wL9<Sue#e&#~iQon>Dhg{QdQ)n}XNf^wy{tWj}RH+o9ZjZ)ULMwI|%!
zInU1DHY$E~$p78kyX7D2f`5Bu&98|)#c#-3bX54sr?r}lEia^A`#zp=(E7T2&ZRf}
z5BSnUM5UTPFP*sWquyyh>$~nc6W1|MFz-~pl>F<{lHS{g%ilhmQ`Ty6$cF9v&oq@+
zr#kCx`FVSnrc2)W?QAAg)^xu0gOvs2@rNcRQ?G>1v6v9;oRzpW{oy*9_ftYQOrH7B
zGRr8v%;ZzOYQ+by4zo|w{=agl`OV*De5>1h>VnE;)}9TAJmUU*IbPm9zilgLWYFVh
zYv#<K@qs_1{-0{nsww7XrD@Kq*sf&h#m-%O(!;!P+g!Os+ZPkV{s-u1{A9^BSP;3a
zJn{9Puxc~i;Ki*bYSwnaV$-M0(0IO0H&$!|gV^D$!^fU&IAr_t-hnf*CbH#+_u9=b
z{rqdD`-*Hiled}EYF?EotrXkWF!|UPk*%k8<zCJgew?hpImK+#njdR)e7(xp(jOe(
zxbSrGMV&7Pm+w?v?srbUWu-3nc8?!ha}WRjz%4X?sm`M7wlQDq=VfwP&hNX%IYBr|
z`APMbZz;x?jW;Q_YjWvx^-nta<fP2I&f{Wj(KFVq(cXDm$ARY(=frCvF~1)&x;|{_
z6R_Q~;zZLIg%i&dq{;&>T(Szgu}h%#<TLSRKXJB;leWEgy_hH<6~*&Y=%4kTnP;>A
zt9f1eW*!*w+q`nwufJ`V<hE><?4R?`+ss(^$LHm{`y%c-^Z)94|2a5{ebdCBVp`$V
z?GqOKS;L{XK*7egNu<Z%W!UZ}jqI<D%MLGXTd~7wozf<ajT1~}9sM;~SIz9<&T!_y
z;uYt*OhSXMd~SPr_Q+<odwsh7D+>5~`zD{ZoEo$=h;ebto+-62=g0qWnUt&~t2=q#
zlu0VH4aLjjqqn^d@C|g`*_r--_HCWY>@~WTxyyzBRD^ZxJJzWam_4h*=?;5j<>Idm
z$C#oD7<3)pFR<GwYd>kt)Z@M}T}NN<Si8epM{JUlox1e*UmVeM4!^gFn8@lA)n#@!
z#yhH~N&AJl;{JyG#NHp~^0y{^Hw={7_36i^d#j#$o?I>3mj3-$mtmKyl-Pu;o3l-y
zitd^em63AJ>i!{R!>v^>xz1mD5p?;>uMTCG;$y+-pQSn1awV)hz3aq>4+SSbwO;zT
zq3xzC*CHEraieaFkNNB$uh=IY^-B&^*|<$GGjfNn^IkKh?yWE8uAG02QQ6;bnzlov
zjNZ@0Ba$|f8?+zn%&QQ5*Sj|9)<p$>PruW@z8MMCpPB0tTQosnpBej>9}Ge-S<ash
z@R~W{z3YNCb2i<nlU>skdVK14$(0_>D_?8pAIRPDYvwa?;p?BD$8o-!&AFm?Er;g!
zuRLG*xion1?2Zr5G??7`?ZIn9cGeZY9TiU<i2C+m#r5QQvPa(kmvf!GWkz6ApNxxp
zDbu}23ns{SEBPod*mLgAf!_gJHTb)nofUOv9lp9_R^Pib94>a9ixhp9H$Sp5UZQU+
zzNhBjmz@HZAL`RjJDslmyELf2e(#o|_3QTZIM2SfddjQ6wa(1V&83ai+FyTpt$S?I
zeet=#BKfPcwl!T`rM@ih1<S7E{E7X`j$3#ZysQ^HzGuR*u#Xe9gu`-=d=K$bb@_h$
z?!?v?$JyEKZ$?XtFM2#@N>P1B%AQlnUEbc@-|F^kEc|D2Cs|vpAmWR^@FM#<mR+vf
zH*eGY@9pugJo|h-yJ@xIj)Oam|8f^yGTLO(d(3HVnCtp4@sAVqC!RjJYSP)2^NXMJ
zExI4kGpW>Q^WJwyZl&*;5%D{H^@IB5cb|$q+I@0Ckb3r>&vQJ^ALBX1wEN(s{aLI<
z=9_MG?|Al7+&w=f%%MhAe7=k%d!xWS!BCC#drjW_Ow&)U{isuS|L4v3$!?a5zq?L*
z!5CE?HleqxWd+yT)bo!PeN_<^)o|8lu!}sQzL+QM{xqGXXQyu5t26JHbL7Q|4!Sk*
ziu;>HmR^YwPMpylR8kZ(r|EG0?^?$op3L>0r6+sNpYuL>>e8&xhJ9C~^jGX}H+skU
z^X>~P?s&D@mxamCzZ-MQB<kvLlt?|_tCGoA!|*vs&FqY=$?K{WE4%6gi+=2`4G+pc
zEX%h0@#{6*Ym8g!^{v_cA0+SKm~P}JzF5xOm^XlT`k`+3l$!@*CKY{7SecW0Wd`rQ
z-DfWKvaCB-F=I*X0ba$dtlH_i%)T7ktDdGPs9tWrHgSHIUiz(1o%j0Zo~WFCtcm}j
zLZ$5+3GS-P!lE}zmq>RS?S50b<U{F_ld1dNy?pChqF+ppuQQ68`-9ceCU5?wuKbPb
z;}&stSeHx9yRC5Xi2g>^Z8PlaCf(({Aa?DE$&~i#)hZf}OCNaI+s2lQ%{bnkcJ@!g
z?Ki!vRV$RgO`3V^*+H{M@fA@aonjFzos(*WWgjgP5}r2s-LAcxcetH;HX-QB-{t-t
zTbyE-?{$#3nfZIt2F+H!h4DAmYn_Wz&HJ5IboxbN@%3|GFSUnCmi}5L{7vAfWPkjr
zwXDk?D!)7u@${Did*^#Tf7c0Gj-qRPT3A9CaXpeKob5A>uk}vi#qd&Z_eYH0e`Lze
zYyY|795gxQ%3;Q3W)9EA-^ji-c=)nN#bH{%{Qd_g7C&4ax}AOcmTK9r#-I9*y!GAQ
zar>fASyyI}>HOQtvw}>Vl`H4Inh{jOQzCC?&iA~0Lc<c*W7<CL+#hzD`CsByVs6~;
z)FM)2&K;cp+f{q1u*ueUf}gUZu5akvdFl#B2SaL55>MTq+d8k8R6Mc~ojie!HRd%}
zprcgE3dhM)G&46poxjQBepvd&Fl{6L=sLZpyQl3l;fk8KSo8aZHP4;u3|^gI^s(jo
z{6qd9jKyq^B^S+@w%u&wv1Z}Q-q#k^fxh+Ww{o^E{&+*<_D2JzHid^OCPrNwjeAp$
z6~rwwyepicuzvaf8imwjvSR#NeD#d;9g4+Xb-BHqQJp1LIC1J@&W`JDHy>Sm_*Odi
z&-=IP@$W)8eokJNtnXU?_Xc<TMZ05lnoi9NQ(_t4<<I)LWgSEE>xjz}PvkkpUD-8h
zs`zPBqYjqTq9B%gH@+RQI%j?*b)%;BDpU2VGXq$cPdQfRcWVjX$_As$Emo%dy^rp$
zxwynEGRvfJ=cQxivMjU86V}h<my!v*w*9`bxJc&4(zm;{=U&?~|Nf7SpZ^@oFaCdF
zh5elKpQi^F-+pRu+wI77=fwXkku6=PTWy-(ZI~H3AxUbT`f{zH4a!z|y-Kbbd~*u)
z4^Fo7w=(T+nkt~=DD}s>?|5qAGM5m6r93}n?)wx4x)mA9)Ne3h@MmEQpPBeY^S`y=
z8~yx{g}I^Taa_^qi!yai-Z=1N!jA__JX{Y|CD;i(-6qj5yYouP+J{^xy;KhV4Ggzo
zKY!RPqUHYlyBn5d3YJ&=+$X!U?8&XK3r={P^4IXy@;92WZ<Cb&W{2Q2);8g_`#5)M
z+$_HKpYKk}1(7RHKRtdQuX{xJ8S9y^vroEOR{6K6o{`g?Qk1dj#2)|ui<-p4{v?Pj
zu={?Yp*ln0;r*R|{NK!H*p(~W`}>;8!om+LxxN-@lrbFh6%l3Mq>>vn%PVMZPDj||
zcLIy%*5*Y1UG}+d`s4pHA9cSxpZWazHFNX$;QNh-0~XYkSlRl{UDxKLX3eN%89tFa
z$3NuZLajSTvlW&xarV~Sj4KWP$`n+5SI@Rq<B9n!KE8`?N}>`M7bp9=|0~d5c`bSW
zT`TtMPgKsWKc{EPFvD=h&8C(6qY5Y9p8w8Hu=i`1tJs&#>!s{%<0RR#{9N5NoP9U@
z?zCE=6er01QQ&mKtalQ}XI{ND`4!*S3yL%RPW_nw-(F;LcT#l`(;JU%g7v<CLywwN
zHW!CjhzC7hahvT-#GT#~%lE%w`@UbnZ(4cA<mdda?e$iBep>$^X3EEd0$i8ooLIEv
zT;h}4r%vk3tILu7c>U<*z1xpoPP(B|`uXnVgz0Zt&UonD%K2TNbbj;h-ua^M!d<2n
z7oIv$@u6wO7LMAcLnf=H8M+j7{@biF`PI+X))V^HzWRs!EVpd@JykB|`?|}ew!2>%
zSAW~H==II+MgQc5xC(i=Qu9)ZONvqxb3rW7Dk@`3q>Fs<9?|9I<>>-GqRZD4^DZqz
zLrW?z?=!c=dy|%nzOQ~_PC-VZeo|^lqJ9o!C0}l-eqO0Qc&QoM_9BokQP+`yL_i^6
zW1~;}X<CLR2FMqA<W8>62@aJx{yx@wXL2divP*|@-n$42NbrcbJ$X7I<pi4((~O45
zo2SeocCXuAU6Or$>+8qg{{6ajYu);(W&9CtCmR;B7)njxIexf-k@=X5NUxBIi_e!k
zh07`$>;D|Cud`JD`Lss<r_3aQbU_tQuP$$I?|U^xRlW0_KUGHl@m4yp&*tMt&f6jr
zx*W9R&dn|=Rx3K|;Cp`Yt(QkaCS5VT5pzLQXWeCKUenO4JhuCj827GOk?~Y%SHa6m
zN>$Ba$tzX{ynYd68oc)6D#?dI-tSkeUUAXDt?FO&Ri4H1u>lwE+}Y!@Ha8+DeMQvn
z1i`y8heIykHszIap1f?*y^!U}FO0T^Iop@+c=A$b-Q`!(lD&<3Ygb>9D0vlCyR~Y5
zTj2FoTYqa^-R0J#u%dTqcHEhXr_uzEtUe-?WF@F-DdfTbQgu`7k(L<+6Y7d=PAkq*
z{uQ|=w5Bz^SbpmvjsFEx=KOfr$dS2k^37FuzJ0yGkyo(MZ~AIk8M|VRAcv1ZoLNph
zRq`({7Ww>b4PU7iKfz@7!GtbnBTJ5NTe#LdDA*eKoq1CN+n(i(PFq+~?e8>BWxw^Y
z>-y)=-S?t*ai=r4KKG7d;q2}|byj%ye9MZG&UyuIxzB9-S+yja4^~)9g#JkF<cnC>
zJ9CNp`V$*F<jds>9c(o|9QuFt*k$##MX&7^*O_KNdlP0*86%f1!}efNJ%iozC!QXg
z_c|=Kec8~}8+nka+V*Uq1y8Kp{`KsdKN5GkHx;S<{~%p^jYZ>;08jb%53|)aJ(1(P
zJXw6+*Tp~b9nY%-U3e~>^{TnfU!Ec6IfLEQbG`=|W;f}*V5{GL{ds@G{N9@lf+fE5
z`1&tqv%g^6zd&|bk$PHE{I83BB9;C3bsxE_Z9Bb7_yMcE=w_EQYyG-!E}S#xv;V@q
zZ#%aglG%8qig{whbffY^ZT!nFPUEpRcl{Kq5&ul&l&MkgFWYLb#wfn)!R@sd9~g#u
zXqcBMl{n2f&h+<TAV&bR?!#?=x4kM0(`=D0E-%vAz~#N-<q3}r3)uiRp^e_o^>r&`
z#bfR@^`GbAmAzH7b~At9;fGfiE^c0)lzd1!PA|!1=i6Mp)ab~|@4Oad-FW<Q#d`Mu
zp7|{KFOFzL>3nx((o8f@@_rp1ZGEO}>FK=nrQ0}Go{up8vxcYg^}3Gz$`$S`lfEpD
z`4D6%yg}{U%|{_duGQYJvhV)A@cdoAyRlfWu82TX&+~^jBfg$8e;xR3=lmq|y6~f?
z-A^5F+*R=@r~VAjIzI91??P_!Sal2fTwp3Q>5W=DSvMj&<0ki&XZ(J5B|QIpy6Ad!
z=IZcYeuu*gYSMFjH_W+xX{&ERXj}QRi_(%M`j_WA_VN6*$Znm#L%V9u)Eb`;@u&9P
zE8*<k!k(M9cT<A@$v?-O_PojWIv2G#N5YB8=iY?l#d24_&5_jGy=K2w4U1}2y}an0
zd^v6FwY!S-jM=7Zt~n~561M$duIP=m?7Q_J`c?=DG-`-H*D&GVtKHoDH2T|%(!{m?
z+*1<gZcq9zdjG)z%X*cyQd#e=9}MGqE_%V@|JzHOw>t}bVVipW!hr+%`;{z(njdxh
ze^Fg^hx6E^c_+?K_+y<B(pFTk<+jYmN{5L#{7ynErl?3ZMu@*I{~02ySbawDDCfUr
zdy+Ri6*<Rr>JHc1YYR4a2dCax^7%!Y%F(?=HH^p4ibbnSh_;2eFWRmy#KR>qX~Hwr
z`4clH#H&C46Z3;}#qBwB7bM>ecyCrDW^OP=ldJPyhqTS9xb4?@%?cv4Wql4SRkFq%
zjbbf|bd8o_Iu*w`Yp&b**k2#F38ZDo&tkmmpSkslHQ$XXw+mF`jK#Z6=dQW)WY(nH
zQ=WAnwzc(`KkdP%4_78;-hZyKyfb{+lAFqPE2k*@V?FZVGL{Qx%nXP;N!Zsv&@0MA
z+u1ib60J5fG*z%LHb=f^7-_9K=oVqb-BacuF8uB(BSW00O&Xcvt;`aOOHzw6i?eeR
zOEUCR64TRDi}Z6d^Gb{L3yLyxQ_-q2ON={BK_VnqW#)#+*AL73pY^|7z>q7M&}`9~
z!ueyPsF09C3xBeS#AA046T^ee3P~o0r!!u#MY~6@czvv)baBr9zC*kCw~5|jZEIuT
za_QG`6aISWpfqRrKL-D|bJYC!-ap-2UitoDKq@QC;eyim{|CBf{}1i1W4*RM?8SAS
z1twuOdVFDxQOqmWo)Kk#WxC9-IQGg1?*LJr-75|(y5hdWc1f+s@{3{7(zh<(u3pW&
z_uk#R-F5{@OYWwXF8muNb$m|PuAE~R84sl$&)~mR#lAfA``dMTZHZQE{Z>s@aDTt8
zbV1MDV;7f8v`!4Z!SQQC!NnKCtA(A<Un`wgDF3j;|B^)KH(_Oomz#o8bC(}G#k*tn
z7HdO}CN0JOh0;xCismwnj3J?Q5$A3#Ot#>Zf60C9zOz(p!`5Aow4FaTyUpGttuSA`
z@%pFj%Wio$b$0Sj*edaL{!+tGd&`S&xYoG(@!U%P+vdr6x<*gq^X|sd2APiA8$({m
znwiS+1c{Yj*!_T)d(#B}8o}#A@dvA)Os+ope$L!E8`Rlc56!7i+rV_zC9=@ySXady
zrjFinmh@?{)vv;Iw&mUINfqCG(cq;2x!`^7335D*m%NvLv3ezJp*VrHTY-0xXJK(@
zF~eI!3zkX$*@bTKrysIB60zof;Mdb!Ym%cTYrgMnl5lvE;}%$RdQOI9So_uI+57GG
z`L6Mr8BxWl(edc)hM11|&(AD<Ca0+Tj%($y6-u?tMoPcKY}Q;q-}cy+DPJtj)#t<X
zS^m;HmQFaq*z)z4gqrZAiqj9TJPdj0+dXy0=Yo9?zStxPsJ))7YN@&OOlGF~cA@)W
z!INfn`FyTONn5wK@$9dsSI>0mu=pu^Kl7M$zk7{>o9w;tQm@AS*^<p=ORRl1`j~J|
zo2aYwe#6-Zm-p;!`L|P^Pq&~UKZV~yQSX@Q#hfMAy1$#P^7dU>+&b&f&!(v8=wqxL
zzu396Tx>z@TGSS<5mG}BZv)pe)Y&J>Tie;!DZ&DL6swa{enqqa=m1(H1xriN)#HY+
z>*&l7+gA)gJLeJGS3q1ukziniYx{~B)}zJY`|(XJxb!jhvbgGd>ig>l=?CkFA??S9
z?h^ssKBW)Zk&nC;zW{w3KIFVvw9WTMpi&d1bqp3ExkxcKu`op1WwAD#GbAK@TWxCK
z*LfYS&hr@CwWLhC49_`*^aRcca7+`J>Zrjeddflbgn+}cRaOBCO&m@VQvzL6N*K6Y
zU3(1;@4kG0yl3u{?qKz0m*=_b{k^_FbjFdA=j*>-kKg+)YHQYx((^mh=kGmVr*tew
zL|LeF$+>l_|K2y*SM57PNoZN0(6Y`(mVY9~PZSxs4I^f3^^q;FWr~yT_nh{^x=*m%
z<>JQnIibJ#j=8kCugFbny>(kBV%L?zzO#pZex817O;^w{m$o*S+dJA;C{GDg%=(qM
zzIVEoNzh8W4CB+9PHXRN&$+i}$BrF46$3XGhZ;W2zj=ORXLpGEjS8*gsfO%R63t$R
zT+EW*K0#w?ujbC3%fiz`uk8DqmD<z0TFXaL_^iR1FQFG#ho1X=ZO>*iwXnVSpE|^x
zIM=)|@s#fFL&`SFd%wN;+PleP&S`^fXT*;66{asUmOI09Y;tAq$D}=y^2esnJp04&
z-<hmqGdUBk8D!5aJyVlryScG2QOr<!=Fu~0$EFsh+?k=_b~M7sIAgDbvD!>Yk)54h
zZjrrOGGAM7_})o4HZyc)t#+iI=foQ2tDA(vPTD=Hu{iu<=3;L5#XA$v%rPw2T^1Q5
z|JqvYnBC;3(S94|WbTZ+aH4J&H(Q8AORuPsV*QDU{%bv(m^a8zQurzxWc25Xma^ya
z?yGwiUu=@v5n-R%zfVr@far-<M&IqNa~tonS1ar?*neadyCvr~uY7^lly&pBME(!Y
zXfG~c&zt$}=H?cT-IX%lex4rFLd>4HF!OKi4sZ)MId$aF@*Bq&=cJx>GP;)j^PkAh
zcQdD0EcgC%<29?mGKIZ*b#GE@g>5&no;#3wd7<8pX4j98KfgB*RbMk<@}>K?51ndj
z%UJQOOvj|7K+f;zZwv39&uuAxJ}@NyX;BdixBK(y=JRv&1!e~wy?^?Dh3vaR{&;x>
zzfTWy>w>OKaFXLTZ1}q{ZSDTa?bG)*tx;jNF-x}SPWIFL67lM-t+%3ZOHcQq7iAYE
z=QM4#aMk%Exwvx927#j~!Z-JH%$WEw<;?Z^17}}+yIO2Aee&cKS^s4R`Rjl3>^q)m
z!JDQN&2#yrN$VSRy_*U)<{frNjyk<H{dnQ(Le@Xk0ek*WV7nCbR8P*aclNBe2WDNF
zV3{Jwsqinue_8@_-qDX1Y^mx&ii&QtWfuph+_<Ty9_HY7aMiU9eFxU<=zoxZVP^N@
zygNUC-0No*e<1l_#aZ>vwRY<mRyD3Ze>yWDAfsbF<MJ)sle(2m7Jmr2{5nB@<I~uJ
zy;l~zIhDi2cmK~v!M!hkwAxQlofqd>y-ibZQ_5n&b>A1rbeX0~d9+sKS$vK+EEM$n
zoI3Sxt~|5(h24!FC!d(wt!CaHTKaZbcswIp;sKT^b2qR&-^UZe&^__X@9==mz!b))
zi5y2igmDGj`@o>j^B_sAyCJ8#)=a=Z$YZ_X&+FM+E{43GD9pW`)xK`ENrG#@_iMXK
zx3u&brwMBtJ^gK75ciY)LUpv`o%-#a9PQ65EjVs=zDnS~KjrQL%iZ^n6lVPO{O&&g
z>zWVCA6jKhzba|)eU@Qmb<9n5IjtjB_q?UN-yE7gx%a@t)QIc)wGm<)V=lJ)#$9^K
zDVTp^dxD;oSD{r2>lESWb^g1gH>>{N@YOl(hyRyr&fQCm9R2&RJ(PAcu@G52RpN1>
zIX`o+M&%mz*d(PDJ1+bxpEdh+cJ#W6xt|Jd><pW!a{Z~tyv->`^EFF+<5~U|O#SqI
z-pefS$e9AuFY5W^h;6;=eAjlPfq#KfY4k2OA*H8^skapwcX&MFNGVG2{c^Ixb@eLc
z$7NaNztlA!oLw8c<gT^yuUAK1D#K=)mD?9+d4y{(+x&4tQ0NTq<62KmQ||`u4dA@i
zyF;WPEIp=qSCHV9XXP%H6?H4i6-$b)&v#Ir_4N0OqNh7MRRefpa{Uf+dabOL6#wYX
zyl#!a!axn3Uq@zW_&hD#*LcQVUw>uZwEt&jM(I7#4m#@hzvTY({}-<tE4=^6m2h2C
z_^RBldr_9T&w9#4e#KvsluqRSU+ijgbLzf-r>AAEs($jLL-pPMYp)c%&&bKuRQ=++
zvsWkn^rK@;osFgE8^l=oE>B|pduiFXq&;5IBC2dJ^?G?(F1t$HSi1b^S7*+*F;yv>
z|5=t?Xyq}Py~<A|WSUxfD3=)9#0y#*{!D!Q>(A^1k`bz*w-Qb;#CI6U9=ztzxJ<))
zIcx4U#U#&$GVL%gJ;^0`vqC;Be<aOxaM|4L5hb$IMAV)vH*5M@Xu+piDl>J`L<Q$w
z6A#D8ynCU^6F8()Cj2wy`qsl@n77{NdfKZ^TW`9!d|KOKdCjYe=aR!&J}Z8q1HWCZ
z!Xs;sP5kl4B)83P@!2S+ZP9{kpH=R%t!!5l+;;ioLsr3MbFW9lSm<bmO?BjqFn5Sc
zR6HutAGJ`@GO9x1eE@UB^h+y_ns`2BeEYss*J5w%6_>y+(?v@T>-~#<-rteTu(3JP
zF+ItD`?ag{twqDvot`Lva_#wi#&>nW6E-W&Qr%p7B;Q;>^7#h~Ay@m7n3Wc4{Z^}L
zl-^I>7tUpB+BxA3m+Mt7CF2jq9jqz8bMyC<ly6{Gf9d|q*&zS8?_cFNtIV@v|6FjZ
zb2;O4*5J>A{=EfHYc?qUvx<1!^?skT+}gMDlUehBx~Lz~;M@K2sd{zP`=G#@smmVj
zl04y(v|a0oSL7<s*0L?!(|HyNTg2rw?V7OY!|#CSTbyROO<s9+*~&>iMv|vh#Cuz9
z85~P~{c?D5-h!RS|L)5P^QKKqTg$_7&a1_F!raMIqXT0i7(-*SL$1!d8~D5YR~hTR
z|4aUN-xAvCld*X7$s89pbLsTUi77unxp;J5KX8y|=c&}g3vEN@y<vQ7_3Nuh(@ECa
zTRC(6R$tV(6ufD&!c6YmJLTVEoPB@CpX9mWxhGtRTS@WpzO6^EKHuFxCuj2ad3tZ#
z4&OQb)x>SJS(0UD##jBG+lPLc{Fc4vx_Ipj)5#y6Tvh+J<Awj-ucD@0tKPrczrp86
zpX#QEzyFkpf8XM<t6J#6j(^b&!WZ8iI{M>*afs}?z|xA{tg>!tc^`u}PUsS>d1|=g
zy~po_?CFPA=Qm#5GNF{u#ple)CGVF#wu&j{n>pze^Mr{L*7|yczlnT3VIh+d_ofM#
zzZL4HS+1@8^6znm$qDsomWflGiYM)E`M)n?*0F^<B5b}e$bZ<;>~r|&6ONP0W+{xE
zYSth4Q}|x344l!$eIee?rZwiNZDQok`_~uBXURM9^T_@EP*Z<)=D&0K5Bdw#cb)xx
z>DV6C4V-T##g<pM=SB(d<kAp5qbbV9yQAG|@y8RkCRw%10zaj&eL5BVa_Xzu^8*>L
zzj9c9^;B@M#<$LxfXn}mwQUZaEAFIkvCqxzy-M<v&2#^-op|tH={pnW8;9Hb@4h>5
zg74x?$1@J=-b|FZTK{mdg50FOrJ{SIxzrbU)SK*Ipu0|c^-QyE&eyM->$#hyKGV+f
z*7~BlbCyr6R7&Bht{t~-o$A`fR(ko{h6668TWt0urGHF|Drs+U&67)CbV^vXaO3-T
zjdum&qymM7CrPbn%ANE6>-Lu#-+%1+|5!cWT+Tx2`^uu`p9fNv51()3kGlQv+hX?z
zLQ+i9&o%NUaqMF}-jtrwVL#Jt&9-=}>*dm3qW0Dv!o~luy4<ST{nl3D`1+gEEARaJ
z|80W(S)aUc$ql<?SMv(@JY)G?@Nu>9<Q7MnC-rOIzi;1t=YHqY<wxA@a%SCiJFb*_
z(Z11dmz?wIjyJ{;XZ_wB3SaVkf#%w<s{+19OKo!+4ty^!JytWPa$?x6HE(9WTIEuE
zs_~5TNh{ZBug`5^xxw@D{qnk#zCK?2C)eHGH&fY9y~3z-(&?zKKGxN-cQ=O#skid5
zXS&LLsc-D|J*(`t*WpKB$Fl<uVkcUcnYfqD$<KN>LAd;r+0x{AMh(#?n^wB_Iq7e4
zv@MyrsYLwEi;|*6a#Jp>`!6S7tAEVu;N)_>-X+r?T1o$&AAbL0+qYA{oBDS>JNoKz
z@g~205;u1=nntyY%=KG4?S1d9!dt70EK4J`uiZMwr^jh2yv$(7eXo}`Ez=Cc;$_!-
zZB)q1-=tibdizzAn*Psc)80t$3f}d&^NMBP4USC*pD1?~7p+?Tl=o|Sxy=cK0M>g2
z!e{3{(r7=Q9wxzB)?zqMnMqG<NyO>JXE#q;q}=|#;p>SFx49CJDViy5Ub^7=lT;!5
zq;yx?r}p37`}a+3y3bd7;qxMUl{as_j|*RzWA#$!b&rb2bm{Ccw&yQXcC#+`+5PCI
z!HFx&rxd6Ov^4$`=ScZ?StYaf;7Pk(T@P;Qzcn>qTjb$$yrkLSh`ioO?FILCoKoPu
z`lF$XYroi>Iy2_w3%?1xFbZ~bS88Kk<FRIg|EGAj*NOhU2cjqNtoE^HkIa$(cYI^*
zQn$yUzQVfe7J5zle>+`IIJIt8{*s=fuXa@`PwD)7o>%pCV-M^6r<%Wa)?aqM@&B#m
z*_YvOjr)?e3ZC_BGN12zujYu|k7e)vb!z1nt+i2m8f$90$NF{X+T7BwYya*ue_`CB
zTG*i={AB%potpicMtqC-t3MgIXq?!3|95P~S&iO`9kDD;3TFEr-)?UexW=KOdS!da
z&%pZm?|JN{MMUJ}L`ux|Z2tV_rr%DToh}9TU5-y(RfB{oT1;mw&gr>x=gh`KNhQ@2
zTUk$K=^lF)aYEu*Jp-3!_&+RNWOJlT&GGh;{X=|${Jph(gB^X5k9h#~AI*&n70fKm
zVLfETpqZJ4IhQ_S&<xCVNi9xJ%_~vBdAfsv1>O;};=<CzqEys@F(X6tfibWM>AhG3
zW28=Oa!NvCQbI~f%6HzfFQz68hM{#H#{VWH{!%=B=k8zQugi_I&H0PX`A@%k&)u@m
zowJVr`F}a30|ySBm=Pa!^}(F@fXFE`=LIfWFmcVwgpAD0b&C^H5)xKEm@zwQ%FH=4
zmOq#sF=^tg*%3@no@lT<S5IFyEkrBhM#_{aA`vfNPoF;hwdymm*H6Wl-p+ibF(rLk
ziU!M4vE^b@moC%T@$~srjUTGdmT5W2EN5RB<6Ruo-No%K+#Mt-At5nSQewBn3<=3d
znfj6sf9KrZ`}6qovpwzR|99-3Dfyy`^<t>(-<w7C^EN--Ql4`9|Ifqo?q1*L_U?G_
zHq+YL)ldI#`u9We*W-8d&)2`(^l_@*pN%E2%8%a6**|&N=KN>3&gdRLnq)V>z4)Y#
zoSee5)C2~GLqGDCU`bkrX2hng5cjB%-~erB-w;ov^AL4mR{$9r7+R2ZBqGjHSyLmt
zX$*7+kPGzW5KnzyeSiG`eaML*ptC?A=OIE)xqzOE2p)k+%K;C<U^y1C0Cg+|d_5fW
zI1I?B491~|MxdZW9hU)#kes4T&CQU<diO@MhfIEcuijAVzSWA{-buIi>2Hm4pSyPZ
zwryn(S43++a9~Y2!KEy~#JI`%n7y^4fKVAj=NsL3f!o7!bMsekt&XU+ewX{Z<#*A!
z@3xFl)_b=9efRU6t&D|0#b=xI|NsB~f6SS|u!u!aK;Qshr1-8^lK;#5e=cMBAt&{)
zddAW8MgKG3^h>cmjxfkeIqV#A{_l&;zbE{P6R~SdU}ag7cFOtErQ)BR)k2$^(vO|t
ziu-ZKxcfPa{l<iY#s~F3KKjvVcyZ;y*NZj_J*v1E`J;WxgR_~2orRG*4;s(+K5@z`
z-l%?GfW{p0v!~}wKX(7~pEZ^T4;@+4@*w=N(c>RC3pXCrz7({%>AL&pM@{VJ=J_A8
zJ*4zwCx{;BkDD$gecWG_Bk7;_%1p(Vr;Vn44o_KkMrh3`F}LS$&h<u$OK(@KdpysV
zbG=#~pD&;HL))z>cYf^rJWs}3Ah?tFh+C4>#?Bdjd%SGia@5iU79R0Y>fumN6OQg!
zd*t*HGo_Xremcs}1W$L09$`vS-8iA5wW2A))y8v;nwVg{;x!?E!PgyMkEA4V9aIkL
zba)h(lypEMiBV6(aMB7+4*m=o!|WruVP{SVD%;D7o}72?ThBe?Uu>GH`}eC?pSffx
ze*9U#wCTFKKQ}(gv%O-f-&6j0Z@jO-ee;j|xW9|r2z))jFZ{jOWwM#ytNAkGB7!B8
zPe1+l_@Mr>3&C-7ihe(2n6I|sK1bY^%dey31RJ(3s<zlY&29CitwD2r*ejP@TC*ug
zZH2iUi@r(Lw?hjH`)ADw2-CTm{i4LVPB6r2<Hewu+)btX18=)4S?+GBloRnfm?j&p
z({{&c@uC@djb+K&CeEvueOzv?F|kP{CVTDWOSgY}#?Cx8hdsvfgoBpK%q5LaWwuD(
zU6Y#E$Mq$4a#fA7jfB_ox#AHTD|#2}G3bg++UXbh(ysXEN1;<O?`*P4Zb_Y97xBtR
z^{abUmY27*bU)+GG=HyqB1d}!-!4-1j1o<moS2(AH-6h9$!kf5E4WK$<%p`@p1e(k
z$D=hOK0J8O`7qb%vM*e8EIi}7GUMfh1ZU21Jjs9bx|_4mht{2im7J`z9eulG6Es<a
zTW7A?5qB?&f5~c(d6U+jy0G%4L;TYV(*$4pKB=4hRNMLM9DVaWhVv^MW}dM*WMlSz
z>-7AEo*7EB`s5Z$us?pH;&Say#`+)o{xaRI`1E0)o<jAk?`wQcB;ME^cH!jhaus)G
z$s6azD}Fz(V!rTLe&etB_w{{?&0n5PP?Hr32-Mf>+O_N2R?!`2<l2sN%wT%f`Cd|N
zR^{v2i|@xQll~oZ{D7C(X@`{|O-|0aNoGa|t-~39Uil;ZVq<q{#zl7fOX2oE*L;?m
za9^e(Eo+e#f5;Y=`4?B3Po1SvqoQ`F`x#GZ(reLc>1UW_TsH;DaxaN#+MN?%@gnMj
z)a!+UvrOXZr=L}Ajy-pqF>Lo@Ze64B3sVbu7o{l(O82^MzK|T>I+v5PzuVt)8F!!i
zv?YIEGR;5#?1q%q>eX7`D_^f&>L6#nPvPFALlX{p%#z=xtt7>wP}HIQIorfHfuZ@{
zGV@2Db{@Db|A6;Je?@=mwEZV1s;`)`o?)hXYs{W0-EPlsWN>picWMZ;?rm^04$gdL
z6m9b7^>qi$;O4Mchy9D6--ynskUH`H=Ka{1qZ<xinwdWR{IbLGahr1OCh&CY9{Mmv
zav{eVHFe1s-aCUWO&)QbX5UvSliYca!R?MfbJ)BC-lrCF?aBPD^vB=$@l44xXWaeU
zV=cDrKc2MEarPmffahW@ueM~DE@8PI#T}%+mw#68j!PGeOak|>*~-bIroPrGt>(y9
z{e+bK@Hu%eR=O|F?z?!ky^24vWbS6YD=$ofE?jE-oBi?2{BMhnEo=DqRbzUx=0VlV
zlT|BhxJ(xW21m(eES))fMtick0rv+!_5ZJGrU%wuc>d<}wLLtl9icO~gslv1XcG}{
zUU_1TzIm{Fppaa-t;9~%X5r=Mbe9yxoe{I+eiDBpeZskGDb2M9Tpe>v)|vbh)lJDT
z%9tC~{eQ-p@6HbSh0-gswiHegp5HI!k^20hR7dw8-9XR3x+j;<WM`k%e(U7lopblu
zl!@APZsjRYn7QTBcZ*|h7tPjr;v_56yp{d#Z^4KKa$27&Hy!esFyT;;XJu~b)a}{s
zr8nAU*mlmGvc>%1=HLFwMlCO89;vRIKYh+qvGu)NZ|a%Ex1aC+X3o06{DSoy{~OcK
zR!XwIlJRZ)-(w%jb$-Ta7g_hrs?7&$mIuw4T@-)rOr_w7<u{)Pe)OL@t3f+-OZ8l?
zAFZBS{ES}Zg?9aWtaWm2mh@e|yT|xmwA%Uh%e!4ml(@)M#&N^zjD+XX8Rx{jZI7>8
zTq(|<#B#o#*VpdoC)+2<#gC>=V2TRLJGpY@s*>&Bj+L|-e0Mp=9b2_>furZwlU1o3
zT7AyeOyfLpBj@eu#lOy6=v){&J$2$LB~xj0`MZDRX5H>%s(zii^^lj=VzbkGPM_QS
zZljZV<g;DB0-d{67IKJhjC|mlv_Aiq!PnSV@ux0Ie+{#-KYV5T^OB6aSw6L$K1P$z
zJ~95hFV$`F&gFJm*42}?JqbH9twHvS*yh{!l2&f3T3fnKdzw)8OyQ_6OAhC3kG>Kn
zIhUu}#8ZHEchALtUK&RaTWs1K`{Sk2TKD8jO%hKmPha`@=jIuYgJufP^{m>P&R<(N
zJ#Vq#m$UlzE3KHGY_IjV|7HEnW%~vNpHGVfbT&Rdw>e;DzSMK)ZMPd&>mI&ZH?3Ec
z)4!9^CuaMNiPQB&JFbN2Y)-fm?99^g+hhOfxMN$I*BOX^+PQm=wSR53jIVxChokbf
zOs<fSTc2JS_$UNTTzEHc&7m0S7q6wm7PgANNsrjab^q_2gQjOvA{_(kHYvHTTRP29
z_SBcV+2#!8tABMo&-nUunSMs~){~5)PYxbA7F+yi=F1{a!x?j{iZ^y{x_0gFTagK_
ze7S7#r-Gkdu%20+x?6G5oYK%8`&Vz>v$<2NH|Jz_%in;TiN({mPMh;(vW#2tKEJt(
zm$|Gi+OEPlb8$&!-7RHXms9&R_sLsst6jFpyg^65$!PbbB@2=jqlB4vE8dcLobQ=<
zFhF(IYsV$bQ{^uPvqgz|di~UTz?Cv#^~KX(ZGv|>V`uUGcb=B$vYvT$a)*SWBLDTL
zo!r}uGcG3DE8jnCIWcb1^ttoSPM74$Ejp#BCw_o$lK8<FGcLa7_P-{#V$Y45*_*=u
zzP!|8WUMHB-rep^&ZEl9yRJ-)_&!a>ZTl|6=XU=u^XWyMuPI_&`oOjzki$KEg%7hG
zhv=a>C4p&uE(|FgF@@i!$>sf@sJF^g^zX^7<%W+_4F#Op>ZepMSiEu3?rE#IZI^yH
z6u<EC*H3@%nMYj=v2eWi_K3jjBO5*mb59C3&tWNA`^@KRT=w3reR=NOXF^?b6CVEB
zIC=VNkI<m<oWA(0BKr)TKNwA{<LGAXGRax1Wfb*cj)C&VRlezR^Xs&}JbF2gdFs<G
z%A021|G7MI)3Q0r{xQF8rfmv1yY<px-VB#a>DcOb2PVoXoWCKi&F#2+;=^N~+P)RP
zQM2lu`S1M;qvL<8f|G@}tw`ls-L-xKhvIX-i|(QBIli~f>Mv+vUv&CW;~cS5KIf!X
ztvZ>xX!SZ-yBq8&$(dO}+qAr8ywnZ&JHtLaN^YF3SH$#oqvfgtzF|*9pQn9l_1w+J
zv766q+tr;K;W^pI>fZ46Dds($a5|*>YRRob7hLvuB-PaxFFpCP>TkNtq95-VOn&j4
z+H=Th{nzu)B<5DFnHHdA-m#_sRP(35b}=qV4|e}{P(1!=RcMegn_OsWR>g$lv3EAV
zS%0`J>sa{0<<r~WcLix_yme4WZ~u`J9UYkcv-DO>;FTnUZ*gx|9$WTQ#b)iTS!X6Z
z60v&t@~vm*jfh`dGc)+3etB=w_&(Y7WrF!%Uh&Q+nO?6_mql-@zFwANv|Utg)$jh3
zk0#EZbnH{w<9%XUoio1{y-4$DFIk?HKR@z*W8#DL%QZZA>F&|~$RhR8Qfc3cWo+K9
zv(}gMMZRkJ9=Y#LzU3>Sovy5{3$AKCUB7RS%Ld^Sxth7+yS4UZTKd1Yt=aKfK*V|b
zHCgG%6}^Wa&5c^VZCbT=_3uTu!i|JydY%bM`!(5pdfn%r$J@_s3vB#9$JoX7f6bBa
zwq+G!w_O$L(=yVSq8YL#JTbV>6T=hr-g@oIi!Y5gJn`Ap?VO^<C-QXd&4pdp3$F^z
z^+?p)a+&u+%ANM7yDLvf^Sf)P%BE?oX)-csJo?1R(awLuyxPJC+0N_YUNYrr&gj-D
zyB~3%p>8IpoW<AZpK_-{b1y8+{5kW@hcffVqlv~3`sXh`p>X0)a@D>54UV6Gt`}JL
zX?|nXR6#yo{qOrt_xux6ufC9UC;5}srP56ScH0)`9~6x4{_M5)FH6Xzy@hkNmm6<>
zZnS#F#OGnP23L0MK9I2V&D*p$Q)8ZIcDHYq*Zp<t#gWccla9|mX2ZGK@c%V#sbAvP
z*caTK|BFR_!>`{puPrkEJ=S1o-z=fVXw6~x`N{Un7Y}EcdpS6%EM<H4*yGosV)YAa
z%(E{%Hoxfc>rC(WUmGG~>&um$jUWEl+<4Q0eUW#?lsoT#6z$EpXPxKI@Lz3L*UA;F
zumApbu6kb{etzTW`VCv9yt}KqznMQ)T+J4KPj03fYsiuds+y};9Zt(iPknRkNXE=b
zr#v(w*sK_htumgTk63(u<8*$3Nu~?V#vTk^Cf=gjz}7yGDcpPFMeb<_6@`{`KT_V!
zBD=lnLXOErXI{&{)2d4N(ia@JOIx`5g%JDM)WtJjFdlJYe7|<jk)CBUCzmsSnbP>}
zz7v1*xf^_MFRaXz=219jeZiRbmfMl9U;j**lDAQRu8>Z!MtUy)(xs1L1OLe!O#QuB
zP;Fkg&A#@6%kD`fr|NZ;4(<6f$H^;b?!&L{%1xXp8fjr4T01Vwt_}UlTk<XG<Tt0p
zA|-QOOV?QqTg?vZm`Q$>Q-7nX{aMy>=bok=FV^jm?x=nH>UEwLyK92Vy6Q}U&irZL
z-n#0PTi^Xq6<@9G=dx}26$_zE(Yg|Yhw*!&`;S%B$l1Hy`+w<ia_xanmS<!{{yn^Z
z!OWrf<nBXD7hX(Sz1(DGt3~6ai>|ZRFEYHFvH0jRla(S;s@tL$t(|DS-HD0g&MSY9
zw5gLf?=bzJU%+$j+5*Y^#S_Kz>Pw#FDy**+ICrMfsBNNwxBSA;{H0afnRl8dMbC)Q
zH(ixsa{HKOz&p(j=Ab!jZ{MDkl|8QT>}q`fFY)Gb)p{NEX1lJWWxRVVCE~8!sd>Y^
zN6f!@s@6L;=fLHQcR%S^d-G!C#cLNn{4ZN6Bz3ai|3JeOu2lvq{M8o{-!PQM%lw)0
zbhXp`;tMBkt<O7f{K?tn`bNSU%Rc!lZ4y=9lq)cC?S9q6iY{>us*43?|E+uZEM=o#
z<KN_eX^}QdCSU%yQ1AbR-_46}<S*MQ)!B9`a{i=gTq)D8+>A|oWi;i|jFVLhnc}>2
z?uNOZ(|*dbS%1ML#e!n}&EFlX6Zfv@?LWMTqwM(}0ZDnm?UDPqy|s6lT$#+io_&Gm
za_jROE>!>3>GOVc?%bI(&z6U-mYKKemDH*Vh3?|(w|44Y<<ozg!`i%i^~<mcdv9H2
zcv`<;+f1*88SHZn{HM+qUpui_^yViYfqO3n!!Bnt<^N~mc{^7;;1+Ax|0ULqUi_{?
zOa0V?1FYkHt>nTs34i|2vW6j9vgj529wF1-W9p%+sx~RMSU+EB>Az>gmY3~W#Zxc3
zHZmSQV^DEe<yuDZ)hl6Yr|kU}Jk>heYPR}d#`Yl7uc@YLr~h4jFPh}%@Lf^J*G1U-
zp+l1T+=pjP^;bp(i-|-lWgPtZ{;#xr?Vr-On<kjdb(`$^@cYGwOF9F)WB2?IQ`|70
zKTiI#)C236&N8p#R$pAVUFutss%pNuc37H5`74nv>jEY}=YQ*GAU2!lsoN^KwG7RS
z>5l7y*_5&tOq$zU89a4&W2GubNfze|w#Pd-(+iYSO&Siy6?53WTIs;=v~&IvQ-!bU
zne`L+CaG&I<!;nTc>Z&;Qe2ZAi+gYTLj#%1GM^rwH|w#tnm?D{sdk^;=@l26x!Hm_
zESHo&UpJlS?CXD<ujlcdf4yJy`R;S8SMOMH!f9sCwOw&rp6&RgAipiiHYA(tic&zs
zoS4f~ckExfY}LX!tMasMTR-2I-Kuv(Cq}%rQ|0`XsMh}5KC}NwmmG-p56|6LdFN{A
z^YsyHe)G#8&=<|rF^XGgQGCN`y1B*fSwBk+r57n}d$V9$`*X1ruagJrl-sVQ$XqGk
zfArP#pX&-^o?E}2%XTShP5Eq7Gs&~fE^CTUPRQ_)JX5lxLa6<m-}g+}oe>8^b~&vr
zQv7W1XruOFVx(~c&;2VuQup4>)?2*)n{CqV^o{Whd6L%x7q9d1Iquk_CRX5Ma_r}Q
zAJu=lzGozNtT%{0+n%Fm{Og$a{lp!;$2LfB7FYiiv~v0XfA1Qipa17i-JkDZD|0}3
z)}p@eVOyr%Ub$)7q~QHV4w0XWjehLs+WGf-dy(h=#dTrdF8;qO{YLcmV<jPtquGI9
zXDf(oOLc2M-GAioaq;N=_tzbKWqI#jRQ&CbI}9n#GYit!buAbC{nR7i{bJkg`CAeT
z<^Nl4icePL+;wzk)2x7kO64g|%dg4FFTCdZaO33YP2Z-OiOatC&5E)tK304=EbzP$
zzsC$#iz9i(1~Eq@_vp><N-IlMn#6f$hjLlEQRwlSGo3!UcE1mMigc-!ynnpD)AOL9
z-mG)JeNp?1Ce$(tYDfxNBq)k;&;926EaX}EXQ9c#lP+ny%v)C58<)lT*=%`K$joi+
z(@&f(O259{#KiQ6WzmHbvC@0C&HR@4cEQx&zkenlPUCy~=V)$^JkM`!>pNzz`tN>-
zezD?Sl0oCdXq|SOu8SLF)4lKMzF%i?;qktf&!;jo9%yepDdeHD*?Z|z(dt;)>oYbU
zsP2?pn=nl!*wWbT?<ux6o}P($ENe4N!zb$T{TDYg*rmMr_vgPa3QZ($JKQ(_k+QD5
z-Ons1sP^%>&A*m^(LZ98uz~ktg`Dc4iSEm_&jc=;eP@+V(D7@s(QhO8gB4ZOnjb#1
z5&N>cH|M~U9gV9WbZ-A+ZGWrV{8NE$DO;>$Ys>#cNlCe?_Q#I=v%TJIy{7g3;rYUs
zw@ONXI;A@D%@f?;y{>H68a1!;eJRuWxxQ??u<J6T{30PStLAHkS_hbxB{g3S>b-d(
z|D<M`b#w>wyj>2fb<P}Htf|K+ZpyMC@k7e|{n9>Ktn=RAa}C~;ZmV%hxZwBUP0RRg
zuCJRq_xt+K<$WG(mJy3%zr=0(tfX^oWqNM3>+(1ECT(OcbEsJRYb|qCF#Edm_ev%g
zaj%)S=3Vq>%VU<$<umRqoiT5Q(W~3bjOQP?{p9Oc^?51pW()37*=VzK@mGh-53@eT
zb$YD~%KDnsJk99z*`Ns%Iz9h<(aGKVdHwv_Utb%|?k&r?x%r}Ch)aY-%Fq9`CFc|F
z*Gu}&+tDd@$E7%bQ_cJTW(#)YhyF<@m(*Qn#V^((Rq#AjV+oT_=f6wWDzv2d+om7&
zJ)0os5fsSOX4^G!!|IC`#dG(bk3D$xeXiBJZy86XPH~$a!*J5x{>tvXT<VVZeua3c
zP2s-Mq?7h0KhVT(-pyG{&#=6^%Xmfi#gA3&w!KWN4IA!Bw5q%bpYc8=(JI$bB7Bec
zRQ)qTPg9;Pd6do?wsP;c>*Xf5{W_}j=388haosv^m2>ddG^2okr`&}LboQ?9I_qNX
zR((81(z{o3=Z>U1wsNO;6taBW-?^yJ49h%$G19rtc&DI(gMtFRe6*c?eLc+)%QSTj
z6?BbE4HOIwO$-#wO${)oq0GrVXWZP7z$}52zK6b#zOTNYevm%suB1fR#w5trq-6c%
ze9*DuDf%hkqsUYBQ%e%{)AZBz)4|7)XX<C^XX|Gt78E4v=fF2I>4Ua1fi^Sc=YozU
zhtC}pWMt|WWa<|bXX+Q}7iHw@7wZ>irspQ=gEu|tm*|(GO^O*S7$~4lA%H|kpF*%O
zHA0#dn;XelGC6gZA5V*X>#B?`fq(u#YI>n?+M<Jd_MrvIsqs1|rcKK$@xHvp_p({_
z=Djz+FUg&z=NZnFsyQuJ!a-nbv%(IBxV=_~Upz1}uG+u9?rYWlE$2??lpmWpxwvRn
z@u%n2)1Oz~d;a&-)1IA;ho2Vx?4GXs`{<o3@%)?0i*KGZ-|+pznHy%6JtZE-Vrm}}
z4$U}s^7|d5&e{)QUw)lk@l)*F+L*k|)?*19cQf~1yw*2&_pfifI(ov_J-9w|FOj@l
zBzJ1Y-y_1s%hUgqTw9}VG*9p3RFP*LUdGcpm$2?sRnq(!FlXa3o#h7MQIidG;~GP>
z>WZG7dG+d*<f2JklBtvau=4w!U!gZeEM?8PwI`;AJk2{F5f!F&HbPJ9<XMT%(qkun
zKiVWzxYQ(k(#AD8)$5jQS)*beuc9R;-f={<_2$l?i{I`ft@MZqn4zzwDLC=GtJ21Z
z5FM?P_w=;Ziimr0ozmj^?Cm1M_k7}V@A-n>T1(D{c5RA35xK3lGB57mt3$Hc-CftG
z+kAcU$9mbFDTa!@^D17yZL)4HzkBxKozsyAclK}Y+T6Bz+UCB`0_nETCC??DQ=X$b
zM{>^m;<Tb^Mf0B89Iu@6*+zY`ar<YcbjftRbjx(5=V|A3=P+D9!@90D`{}J6W$T(>
zKiRb-Z(aNAr@wa8o#VMAcuvAk+kE!#x4geAXYTngHQ97qlYMV})}6M(_<-!=`ZE8I
z_HLZ5cIS#|;>#n?)%MNZ_A~9_+4=V-m7cyDeR0WrzbNCAMYk{Aj@w&1yFsv~r2R#o
z{yQD-`IGA6Ec|a&Uw^cl?cKh1(`CH1jGkM}PTI*nT$E$t7_ed8ikhX4xnT?;!CL(X
z9k)C8+w$GraQy;jyZW8y9F95*Hb_XURlUzu_@R2X%slTG(@L%!&p+xfb%l4Uw&RL5
z?Ox5kvM(&s+xeDBMx8l(A*XNFtVXUKcN!-MWrfeYv)1id;J4`HD^Dgh2C(r;`P#Nl
zJ<QFb!5=GiVEVCTylcbNBh(J2KA*Qe?!m$>#!StN9GTo!ZHl~m<Br4!i;VW;ci(nc
z9ojd2Ztl4m#?LZ7zTLXZ`kUG}9+|xyS3JF^<s3CTvs%<}l~FU>lPkae$-3`*;a;M#
zfFXJBPRG;*OZ{_CpJQBgN}y+(1=Cq}iTdmJ)<3i;&2_x|>-hDQr&BKM+N_;?a|7>^
zqg<J(aeuQe1a~RiXcCLQ<Jum_DgTOj)!k6dX_=o&lHAn8(qC(@+_KPq;;VT+3)ZQW
zXIz|av*lN8<FX4&Vi~5yFou@aWu)D({+S^sw4iYQ{OW&SMC6;*j_s?Fwp(&9?gQJt
zX1Qk{Qn^;F`R;r~h%MMy*fi320h{m(-qH}6*DT8?Uc8&S@h!9BtaJaJPZ#g>KR2uM
zeNqAAzkq<8Z528XHnh*!tYIf6`oZ2)FWNNsm5j|q&t&@puP0~R$|yap|5@*mN#nXR
zOH@+>t~iIT`g$hgb#>zQh3Z$U`p=8;U2EPH#8cP4dhVY!|EC{J-dFqY)w;LK8=Nv<
z<bA5*=&k?s;Zo{r*VH7px+LEPEZdx2E7$JWwV{mFBqo0A<cEjvhx?`m&5)ka&2{i(
zIbZv(##gU(Yt43lYMd0>lk)i3^i2&>L7)4s=aojjQTedLs*5j{chZLXZ`E=^i*%W~
zH$OEGW6%8c@Lkw^Yq^{JaT&($BCb-Yl2-zz`j+bI+CHpxzwWj<?oQCwMD5t(s-4@J
zJ~=3@)t#KTKK|?VyEd|NKiKc;9NNA-o_$}y5#hqiVawOwzv;Ggqi5-&|604=2N@l7
zH9ohXb$aESq_U<3dlqi%67ZC|$g*emT=%$mndrXssSgW}R$lB{Fez_+p4psGH{SJ{
ziOeTLcPgFycB*$li%i7ZiQm55NY0(G;8xb3(4|W+t<{b@y}K>$h3n*B>-=)h6<?HE
zedJ!k+2X4%ifp=PKSmhb+j999OQ1zokLaWsV#4oyd={lE-SOA^G+|~cOZ|g(W&v(3
zhjTv9-#cB_;ako8=FqcW30s%=#jRUhI_bc{wLc_ZHQFCuH}mI|{X(myRA$u#aD>a9
zvu~_O4{%dBD!cTi%JoaB`YCH8y>|r5dsMv*Ts__M_cP6=U&)>#>MQmis?+=MX45Wx
z2GP&XXY#&idCfO;&{S?`nh?E8S2RpAfVcEN!{f9JgDVp^U;gO+XYz`3m$OUvGap)Z
zVE=b*WuJqG9=hzBW|03+<MS20y~`ihc+HxXpl&i#`I%X;goeAai*we5Yf=ZI4u{-2
z;MI`AxZL&&8`sjs{Xfnp|9`Qb<Nw|G!drX9)CF61F0N{OxBEcye5ZcSFIQ*9OpXkj
zvpG*P!299XXW>H6h4KyGbr`esUb(n-ZzO--!S7f47F~Y0`QqB}U*82v%yx!~2IWqT
zI<@Ao$&@CECmSlm1KnNcm#NQbymxQjyNG8CPWs=tEywx&$gd{#gKn&^g1gcMUS~X2
zyU8UO@O0O-Z))Y2uAbZR=-%GGh||Yko->QLw^-q^Hh$i6ZQV<kGT)RhcAT%apl;G!
zl@+fvbLu%YYOMD$`yc#n|L4~w{(jjvuWlc137-?P-C5{X(%IOJ`wnn!2wp5@UG&I%
z(^O^kV~?)Sm#DP9d-I*Vg8H$nJzI-bZd%iL?nvAs*Qr;h8ugkj&yWtN{Q35I-Oa|l
zjGKq|)V%c2V7xN>VXIcNXS$h?qd|X5`zHP(_WLgDPTO2DF^Nssc#A1vp$uF9reB3?
zJ)N@8eob4k=vDIrdk(9$eseD?EM01B+L~QB(^K(EcmvavD_5=?-FM%vq&TZ*Sue-U
z?r87R-Y-6UkT`g3)8F-PK7CQU5OGYBE!$$-?*9%tm3t#XbM8zKTD@gqn8&6S?WfNr
z*$Y=pGJ7AoVAmdj%`=#{25meUbI{|AszRfdK=i5;)varP#V`8){u$ec+Xs>g+xLF#
z&amB~Is0Vza+8<Y(l743j5g#?pTyVu^uGbqrHJWPjkng7sqR?6uV1R}eDeJCeBmeN
zSEf3us`jm#oop@5|F5d9LbguAc*e0abAtOPd7Y_$|9L_1<I83<e4=!1>(%7=O&xUg
ztiEKq3l#RxOD&VPnq|S`Xpxbnz4+3;ofEulPyRjjllkLfMkfx{D+U!t`$f*AwdVZj
zdwB3m<{Qmg>j*E0j`xql`%n3<xj65XUC~^o2cC!1Ce_A140iKcZ4f?Fw@cwN=kGUn
zFL0^zuDw1}h<9>kYnf2@+>|>VEjjMHTL0T0j=!0;W|ja)^Mh|YYu-F|-c!;o=`U&b
z*>-yNlz>b&*W?{X*#y;?bf<BsJebpXpl5@DScucs$Z3x@UE$g$zvIlmZ~8mD4If{(
zXDeC8Hn}aXH+8Xy(7)#*T+z1M7(SO=-hXg%zFPmbv=>U%eh=>6y-|G9%hGAuis1KQ
z#?}hw12{xCoQj*MwPIdFprAqZ494PMS;tk^)|js{DF3mu<W17-Exu}>LKXKtKOd|l
z)jN|nknO(dowX;YPCsMLRr>W=*3{b%lByD>@BQBHSGl+E*n&%olHzvk3*NqYUP(#9
zkKppPci*rkDmR?H=%aPVU10Wfht0xw4r;F`x99hq=rf_=`<mm2#BVjTFP!}A>aBT8
zE12qX)Z#3@o;iQv$A9+q+C|@D_?(XX*FH8^;EgN4!o2w+%j?5a-yN>7%Taz}(Y9Un
zPx#G0Dzl2N&VMj(e_LI3@9}>vJZI1Un0Rqv<l!?9wlBDSM}N1q%*Kc<Q+wJhTBhFQ
zO13jJ)0{5&KIi7&Psg^cSu3q7eWavxUYWP(vK5t!U+@WBi+eCzI_|(>QORFkKMzgk
zIH2wD?7s8{)q|c#pD3=};WBG?>ViKXvj65E`BPG~f%R_A*Wkq$E$w$rN?_%Dx7FKb
zTeGb8hV}!F2c}K(UFoA{eBo0?;`8p7uiGD4e~kUH@Av(fx~EV7O<OnD=V{JV5A}1p
zB6(+TyUp4uDY8wfdiMRRT#l<k#a5{O4tdwbfA;vrHwV4dn@TiqsTf>o^o)yDs9I?w
zzG6++U-#dSGkmJ;H@`pI=#kGA)_q0IKr+<l)`jU;Idg?%Jr?|XqEhzZwQc>L&)clZ
z%&b)kRM%{q(OcE~-`a%l-T7&IH)zg3sTUQtd&&`w2g<=~8SYN`@yn*hr}oEz^&go{
z?7sS+d1o*6aB&N-bNf<Bj@+{sMGh^xkk<2Wb7UQx<>h?q7PZgzcedtEb_!lG-RRU=
zm3T|j_iG<<hkviRHfK^$tLJjFOJAcuZwl_2{IhSXW&f?mJRc9oefs2F9=Tjci!WrC
zXZf;TuEq!DF(%Jqu2;%crDv>J5GbiFJbl{qQ_P_s`zn<D9_JqB+qCb+)F(@PtBdNt
zmRp~=_U5fa=xgSUV&ON0llK(H-?{!S)A!%CciSs->plcATkgK@ce_XZbo~eBxANcA
z%Neh}xY)Inw{%h}%c-Nv35i>k1rNTT_(!S#tcswi=AuVIg)?_ti=Ww1zNP%ajt94o
zvwT|mI()6qS-aJz?!7DD?v%kIeDvv~MR)8@t_;qo5n5V$alhmJ8#Q74EiL<RUD?j`
z*~l<>e%GP=jjb^yw@)r!KaXYAS!Mm8nXk@PF?ApBxK*=r{^?UU?Kxs(SvbSmQ`Ivs
zXCC@(_O`JqTl0ytu11OetdN&WX5X7|^>W72#~EiM7VR+oV(`q{<8^7M{)73;XY;0%
zUJhnkZ6&h7>X6?rm0ywl;=b%z^7}6*U7HaskXZ1mpj++yihbfOKc!ZfM1?MNS<Wlu
z!(^q)x#;EI2?oc{&Ru2^@NUYc)e9rSayOos;WYcC->g?mt8G1`eyK0A{(Yir;-#`L
z2X`-D_wj<Xebl|+$*%FvPUf7i|9pzD5$LqcTwQA)mBc^q^4tlBx)-qT_4HL(&Mvz3
zNy^28*>f{?rHXJ>&72pOC#-*yV@kwrv3#c0o9Ax4@y7Q-bN|Pd1t+du+_QSQX33KW
z4;vq=JZZSN_TI9~B2IU|bBWx(9=tL8?<?`m=BXDK&5=ENvq+1#cC{Z*ul)&I=Wh*j
z|7!@|jTibDJN<<2VX4Kp)-Y`~`0VoW;5EPRjb&E5w11qM-#%&O!eb8FW+#kJz7TwU
zE9zuj#^<F`@v^eJx_M@;eUo``UGm-B<8SJ^&ofP&;vRTOG$3b!gJ8!SRn2`_A#O93
zGPW7tRqGdewIFVJ*wsg;4{!Psx#sp0#XVcOA0IzB)##rlv+MLjLe82KH$E*pIe)(Y
z(b_wg0^TJEl>gAKp1M?#=a7L#%sqjPD$4?YTWwJ;Z9ky5caG8BRu<p?U-%O3Ba~zB
zw)4%e5MS|l+gZ{7FJ+lb4(;2+SGmAs2WQ&hTT@+?-m-g3ZGKP~F*$Tn@!zdXUz6X9
z{!0`7d-1x0(BegPyp!A3J^C8>#YF13>rYO(Q~4qXqDr4_p2^mH(WCGB&eC%a*r#9c
zT_47ib1yJ3F6K(mzRg=V3hJ0tiUjrdIzFyg@vB84Qb_pygbwdd*4mG4b3giR(uz5_
z?S*-^(w*{~t~S?9w!}T)Sz_g3s%4|KGj8RD%ZDHTFVAakx^P%w4R1z`FJJuu$K|}X
z{pBu!X-%~Thiu!PbGV&Ilsl>a@?GYp%VF+Mf?lV`hE{L!{2|b{KXYr_^m(Rj|IX$<
zUjJQss*ir~#ba!_6Zh?U_3=wm&FVgnJ~u_3d%H@1XDyi5P<;07Hir)qkKb<JwWs#r
z<ClFa%FQh`wi-Uq=9=OrRN42-_DgBY?#=vHYa7D;beeCO@RZw1w0g7l5!Feu$4frw
z%$?c!{&;fSsh2O;FK6C(ZSw`cRujd_X^h2OFE;(*jh@Gz6?<->qs!lqQY{kuZ!Hfp
ze_?7B6}WswNSOGV2{vrqE0^zj9xH2evtGxuJ^ah_y=)>;MN+a=^9B6ux(Xh>))!d&
z-aVKl-2QHB%Y(&CUKb`WT_5Cr{ZG>IqKj6=CrmOvU8&voVk`Sek-7;p&Q}*4J9AK7
zp!DnC+TZ=gy60sA%Y=5Q@Vowf64-k3LPFB3;%@0F0sdh=w!3D|ir1)kvGTad5%E7t
z>+3)K)_w3aSbbL6A=Qk?2XW8tq(wc7@V}<Oe9x`H%t-pRa*WB>+_F#eE8g5&IFo7i
zbPId#r|N%KF+2CpJ662^Y{jA7rRqFfiY%RnUx<~Txys`Ezle3(O0OBb6+#}JXAeKV
zaAZ?ATWqCX9ShHtL;T+sT)mjF{QKhNzaMDTe4RRh=h57=e-F-kAzCrBs(kX%h&VO9
z>D61yl<!8|*J@mQCB}wN{~)(#@_WCJDSk|~Ge4+K&^-9}UE6a0;&Y$(?RNYo+it7;
zBje#j_m8&0AJ?oDk~;tIo7?1btIL}%Fz0n&wd_!OdGRd!_E@#pQx5ijg={}{{Rj!;
zFJAHbt8l^0L((5@9OnkQx2zG<(y`ioeddM<54jABFE}hL*%HI>`t);s?Fp8t>r5R)
za}1t(@8WT<vX-5vw`}t&!`Uuf@-x~jEpiXuYW%)OZ2eW|{f&p#&aZ2E=PJSxe=~Z^
zoQg)b)TE4CdGB6sw|nXMSnuNn$8V90br$7%Vh8qKnR43O-d)&Uk>6+Uw@00i;;i!T
zFA9leI@q^&Z)a3$&$kzoLlqZ9%}$<Z)>=BZKQPL?y1OAt<<_p6+V7v{YR^#HsIXCW
zXV-zxoxMNa?aaQedcQu|JaBqXT+qSvAclw=2mM|;Y!!SrJAY&M{YM*DE&SOeqVxJp
z)y_s8XVV|gqy7ljNI%%!(s2CW$H*hb8QrC>x00T!`N|1erZVIxcI&=c@O@!r#zOA1
zZj%{&#SVoV>pwDKZ+$O2Pd_3deiOf4qy9a&;0uS`vYyMnmpI>@V3qJrCaFz+wR-Sh
zsfiNbUR1}F@tzWR;V-7dJdayjarKHdH9w<LpM6(n)wwpIxo=;QqNPWbxq8=gn+*q7
z7_E?axk%_tvyfM6I7^J3#VwEDzYmGudH&YAfAQ|c?9H(k8yo*`vs_cQh+i{7x-;4E
z(y3LgKlbTb^m^UhG3oRF84osTIbC|ZqE{lNTQ+Lld;z71WmR?a-aXp9@R59B?yvbg
zt^4O@Crx(KPyTS@Vd>&Y+A<Sk{PQok{W9<Vv0!`M@zj^)G4nqK7#DGt9pzJ-`)#v(
zbn{)i$p_b{GA~}Vao^J2rh@sad8gQa&k6fhRrOD6qt~L({1JD*rG>xlxU-BUSZ#f{
z*@dd7JrAWFzhA#pxAZOdD~(0G+-K5y15Zk1duqHA%>EL2JU&wS>bFm>k=LV@le{`*
zm+w2~y<mpRpB5vlFCHz`jkPn6`#IM(9iCCoWd9(zMSGU#+?5>mKKtGp-0}%?dl|f4
z!sf<_eN)$Eud_2?)kw9yqP;h*eP*ZB;bYsbzEHa}xsU(RhM=`qn_?ma1KAJ%Yv`TQ
zW}Dr+=`q`m6X(teMZ6JHKY5X<G3s-c?Td_=E05_IU!678e#c=p-{yU{7A!D-pgW2E
z>(!KBSKANxnSZk9TXdW4-}7J-N#C9Y)(5PDRx!m!&TKn(@Vn3(yC(6R1wnf|7OiLB
z`Nmeg;)UrK*_(5Jlxl0GAGA49*fDo%uQU_eqy+EmEmw0lnO8{OTsKR&fc4M@^@={H
z?Vn~J<h3imke#ivuxv{69JzTX&bJwz6${*1^4sddk_-9YBiG2O*FHHLuE=&Jv(9i|
zqU^qnDXz^<v8g6Ac-5F+#;o1HEw%ssf&3^>NxOe_Im`cbE9^b<d-uh=H{UL5b{Fn=
zfA{Um*Y`@M1-vSo^eV;V>uc3?xmphYInB#O3^Jt73E9L}DkhX3%c)x?eD_Vx%NPFt
zJ{267Tk!4MRK0sKeU(S0XPosmyCSw+?}nV(fj>19exIr|anQLd8q}xuVZs+CyJ&%!
z5T&Vd-#&ai|AFOCuubBzoAduO`Z|4AwyRnq$TvkMVS`w`TEuqM%5|G1bKSf9WTxt_
zxp?N@4;kgC-OFb6Y}@jRWA}~MUzH16`nOjeFTG#!Q|;F=!(wIOW97HieI6A2<A0OB
zydTTdgdx$V$^<w?1qZr=kB~sx!eF4FYiOikVPU9XZUCQ{Ff%nZvp_mU!T@=XjJbgU
zmp*KdjIJThLnMp|?O<@y2kl_+)c4a5gI+G0mRXhxxh^y>GcQ#?KQC1uaY<)MMp0_2
zeo1*gma908OfY5=Kq4g1Bp4YOBhMuGhH?i4hfD37KA~E_OXSLHuh(jU4sua~@}V_X
zxV+kTMYy;~u`?P<iFmX)IOr%S&HmtA!J*j1<x#28#m}VSCbFee^loPM)~{QaUemRX
z+IqL|bG*&VH*t@0(x0E1v$Oo!ocF)~y|0&<RaCYpV^*4zvQtv?@qINd<r#^yCVxoh
ze6oL9pPSdgP^NX~(w7%r6&AD!_$!uIuw2Dt?zBLORTrNvQO^&5EmG(CuWP}B2d<k%
zKR-Li8@9$Lbg8<!>M~6wq0+3-tVMo*JOkHUS5aMEV#&2XHEXWlZWV)o_1DjP`kbAy
z*z^9segAV>?IM?lxvVq_c^SECZI^-XEWeFrhM`LfGG;%%;cU9{md{+RSiyxiS9$p_
z);N`%dScbphuO(u`?hBkez>!s^0Ror6`oVwpBAPCF@`8??U?2Cw{w<PWl(;w+!dEB
zA=8<UR(2*`nPR+kc9om{a@{ZXbBgA?^E8^1ncn-EJ9F6=!N=#XZ2p(CETN$KEuYz!
zO`O?M8H)KOit!hAu@@cL%FeZA$)$faS%G>}mPnULZ}u)@p1w3?-IPc#{lk$j8eX?`
zuZuGa<372-kpIz@l@&cZ-S#YbuQk)}vVKBqo<y5*pEIM*&rpwt7hC5{m{fBt_shZ)
zS#O=Xdyg@EITHOs`CvmJ|2;b&jin0`3y<>q*VXO$l>I1D-F>;T^Yw>(=0aZ@SWds0
z=*9M3n7d!BC#kSz=XN`noyWrc#3r}fL=_rG^G|=667>7qDcuc|xxJ%&HD=z<mb}rD
z$UZyf!?DQ!=eJEe>MPMAY#@5|i1_k}xkc429!%d7<0OvVd{et)@;&LhyZ2>@vJ^2o
zEaE(I$Bn;JvE;^vtOA}Z?9;z^yA^Mo+n;K5@`;bV5VOq8e%blP=d&L<KlxjsHH}lV
z=lkTfhqdM$e^6r~7v^uXqfU+Wzt-Qo&Ye^K?pu*o!uD9r<*#DcmZwb`B1_HOauq~W
zy1FkcFzZ~W6{y9g5V~ou+7g$|yBRZIl>G2rvgY>do&TM8YK6p2eXw=oo2Z@%s$8dK
z7w<mgkmlKWY(k<zlh}?}uV>3v@>VSnk9s(bIc@rk80C~1Cd(!TWjtz$3R|(EKK-0_
zd-H>ve9zQ&7R+v4cIlE?@aC01dyZ|rF{7VH%A=t|(CE&>O|7}DMj2*XB)z;9CT~73
zvUI1oS)W(#mld80HA|Q7`Ndbzo_mI^nQu~pZOW899qHXCw>hY95fRv0`#WTk))H^`
zV=*6Ebr*4ZC$46$Z8<vm+y5(B{D%ZT*eJbPmHYHgi~Q&Fv97FIyW}3LNWIh#Fn;#L
zi1Ekd->(-6-b&zj7nfu8V<&Iaj-nOkO{Es@a1fg<9J@nMNnxAWLcR5eG>)Bn+qlQJ
zsHpL5qyKE()TLsZ&)hPvc%W18zlrs<)4~1<m;9`k9@ERGn{Pd=d2ZX<!t_(u-ppX-
z7k}&$^YM#jpL5#DU?Xe2#QW=9W;#pm+fb(bKT=%ROwR40Nav2f=a{Q%u7wt_`1|MS
zHAV{_*<)$3L5Xo%ONu*XcL}de=ZoF5@2Og$nw?68o@VGQrYfh@z1sVN{<FxOtN6)r
zU-E{vM5U+P?cE#In65Qw>6uS;?&A44ae-}kiN<<nxrWZ)Yo9+0Kd*45T&<<T`icqH
zQ;V5yOEsK#==FTK`s|X|#~ACAX`34~w77kKbxqP*JhMCX$`ZF*=V!FP*79Ds?o)Jz
zz|83ec1KuyA~g>lv28c_pt!y2Ld4~&9s3qJg<a<mEfAfs{wSyU{>sUs4;v-E*?+ua
z+iBpP@Z<K}<9Y`~-`!kPXVh8IuJ`%=g?;a?nML+IYgU<YQn0)vtn2c_z4C1nD@E^!
z7yGygUFg&|TPd}0^6t{}Hb0I`lh{}Ie4Fk}qeJH(Sr^M4k-uj>p-M~ItgyJ_blufG
z2Cw^{_s9IY_3PL#wkOqVe!SQFW#@M=V~(C+%?A<whpzP}{m$H;DzaJTTj$o<mntsh
zWD068u6}+|HtOm-f4evRE__cVzOZQPN!E4mRrlVu_Vrg`>65p!HD|inv^8JYzkPY;
zgB^1=WYvk)e14Q((eb5s@oR41Pq$<Rcu&T}@D<K{I^m)!Px-~?g;r^cmb<(-cKgqI
zwlnIgM>foV(K&f~=ZlRjyi-@WcJ@q}7#GK#xV2LGx87lY0}k^CznN=G`TynRH3}Cf
zU*GiSfLa7c;0Bo!KklrZdFrgCb;6n4jeogw_wt&EEuQVNz)iJAc*f;Vy#XN_)%ISD
zRS&+LVp}H3<`d3WSY|9}{jP^o{ea~QW*PQt=8KQC%N{;-(xSoGIwwj0XR<|=XG_@`
zk@mSCFCPl6?)uaf-t@ypK>u0M`K|l9=iaaXc$dNE`32X)aGi+n4JQut#!AkWz3Z-T
zDmt%k{nXNJbG5}!KfkziYqzuTp=7fYo@^JzL>xF@*ls@B_{QU!Cr{1QV&T1h<rn)e
zNIy@Wz!DuG^Xc4!|0mNv1U_k>I=5r;{Owofv@VXh-`BUJ<!$E1_xt`x+&^Y|f1k|G
z{~xEj+|v2I^z)nPAI#sqV|P9>f6rEvnv>7?e8c^J7ryR%^KD7i%|@-)8x<eO9d@_A
zo~|1ap<{l4FWJ#^ogmkOj?1$jZaDMssrGCEwW^;YmYo|auguIh4_T5X(OX%a>at<|
zM6HjHN)Gj%eKh^i>GW3hf?J96->;r-7C)`P;>cvhpo6=fUgw&4RpNd?@aYLVw62-)
z#U49-%u+wAp!DUcvQpRSX4g5FuFDho8vmEku@g({%Gi|1Bl{d9BP0F%w0(n}d<_i{
zD?dQ3D?<fS6Eg)fOB2jxA7+*&$So@{7tyjZ<kI&nNzBPicFar9Nd;|34lYT}4O6hd
zzv!bNCowNMJHITo$fzLG5N*W;$UmqnE<hqAx06iF4UiUGAa6tdguV^=L-K8Z{cCx0
z&+_D^iQ3O;-KWl3*Z=&#obrJKkZs5h>AVe@t4Qecq|KjC2X*&w8SzR=NJzYvfNn>A
z_vgif-y0VuKIFgKdS7zdog1fq{C!yX?EU2WH$s2qj+v!Leg7i)^{(ir{k1pMbYH%k
zyCdb$9nIIfsx6mo`DPk^!=zm7v}w6%Nojb2iO<`4J9lqix^b!I>a{U?GuG}|xO-il
z*LRzr%sKmA|M_ICfBEiB-c+5rm#u2=otbI;>uHs`&uzoPlZ(`aYBw*-do$ZK@!OJ6
z+uF&`W&V8HH#_<Fl`lH?Z``k$y7AN6tGQbpE+003@}^?%yWPi*tn|Gr+k02mG`Fa7
zRpC<ByE39{FN^EU+*b2Q=BMTD@|x!_?amacmd%astM87UAQS)d&-}j6H|o@V)9;_z
zIy1Vj`)G|F|MOj(HZ~4tP9I=kaIM}QjwLgg5t$bPgM)*@UBQc>(9WteHBhiLFsJSk
zC}T6cOQ2lz-Sq>&Tcbnt6ZIjhol*;mGjsCu3?U1hic%9xQj7F6V9T6Ri;MMh^`T3f
zQj0S4Q}m$=o1lxDauSO((6SXMXi&2iNF+Zgi_6AFpZF7;jg1V=kn+{kFwT<T=Toma
zN7yhMdK!D>Oxp8&!W4$X0t=QfI&ttNY-8wL_#kO^gxRMi@spEuBDd*8&i=Y&b?mjI
z$Vug=6C@4p9T1pgrC7n$$m8R6B1kA>R*Ay$$)5cGi|e)<^ItBTW<0m}*$bPw+yDOG
z{k`sf`F`&YY3CjYvMAozQT%+{)$ixUHu(#@nQVMx`HzOV_7^6%smwUtzSFqhX6C2M
z@(YXm6|UPXshKg|M__7E^U-IYOkB;pmSja{7IrGt20ncBMKt@`o*gE&Pd`1)zGSR*
zWYZ<5z|>!U6BoI}C<YaXKYdxP(z-OM)vEU5E}>SZUEh8_57oMA6xdob(<N+A-N#EM
zp(_`u*m~=TpPur_`Q^+>Uar6N0$VL=t&XH#{x7X6dMT?lV%omoA`hL_Q$jkrT`x_#
zWHd2EYtpn+UMfi|_iTv?+SzpcvF$$3ZLT3-sy<4qMpkQITU(#`_OyR+{dBW>x&H6T
z_vG#=-CMm!caP|vwR@)S$=x&mL)?S6k8F=FuH^st?4z7o4vRq9Ax8^Nas8><BKd0m
z?lxX`<|RJRf7E~ejPI=ZC7}jZs~e_Feth!tr0uHH)ymJr8UDT_b2a8*%+)*nk!q<z
z&P{)ln`Wf!d$f4EouJf_uw=FgrdBIf@;kP;m9wsp5M9{p(f9A+@%jVZnSb(`woa>-
zYVlYk{z}J8dhybH!$ZsJb{BJae3`(YTE9tjxy-ub`s)rEzcl~8X9M$jHX(g62^pRS
z@fyDQhn<&gD5{mNdi^?JPC}=3%@<=APG;ps!T&4nK76}%_gvpt=ex1Bd;h-EU{T1*
zzV=l5jBA3zYUNqq<|)5zK7P7CHTR^oMrhEg>}Uu6qYA-SrfTz<r7$~7?GcMV@$S{P
zpo5z)es6Dl^X<f{tG%Yj4sW@-qVjG~e9QDDQ6_1U5gx8*B&?qGe*e8<%1P~0EUUaX
zlr&X5=c_MDDC)iNuBhUGZ`Ikn$(@NjZdspy?diU~dz*vQwMSJkeOG^|elhTKdM)_=
z@?>T87YUKekMQdiSj*`7FZpbpzbEs8^!FdLnhbvnD%?%%_~o0o*z@=Sp(wVc3pQrI
zX)WWOkj5K+ouOnqZ^OdL+oIp5ZE#q;bJoRKtEF7TYHwas-Q=Snp7<&E%cJ$bFK*uc
z{zCaa_dO?W$J`CR_xE?}S25EU8Mz!WitXC376skltevy;@sSg}cE44AcU%xyDRc8^
zq9MC|U*?_{Gf(ff-)B*`&eY4@czr~3fs_?n&BSYu&ptosTBQ>=_gvPrnJa(oHT})c
zxYFRrqlwGv{KenC<ccqFjb6Wemo@X@m_n<pny6l%_<J6?2k#!5pZ+d<8sp665_Q#U
zp2z*xxNBWl_QPbt^rZE#bT%D*rWG}tJFM2uol*Z>e|!GsRL(6A$}IeP?mN!E_i%In
zChnH|98t{z+1H$O_Xb_~H1)sjf6eeCk{s;LjPsQl5;GE=j=8O#nVFKsYh}8^!*$EP
zz1x?+z7gS<?)Ngg^!)TdHr9xx7IW_?1pIA1AI>VhJSbZ%t8N$nC5Zqh-w!1WZ3q3z
zR?J?#bSl@z43|&Wj(j+}PN4KpGvAkv!~V;B_Azi?DQEF5FuGYcy?@;TZ>KG>4f9;R
z>-y8`KVA~mS@JQQKSZ!;+W!#NdG=THH8x3^InG+dn5E-at8wk+hT|`~o2)OKt!VsW
zVt-;{VDsW>VODGWG9Gn2-niS-WWMd!@W8VIHUGRT+qM-xows+3+hpaqGl@GwCLFTb
z@oS-PVVH#ax?+LZH&hmC^UVAGvtWY8m8_+$Ms3<|W&X+kB>WC@8@_*a-p<PQ%GKEm
zR)?E(_)Kl*Ti)4qRN--5(e68U<-TlpY<UyXK4nu;XyP^A)2v$_y!zT{5ZYSQqUO2P
zD>B)jQ=6+nXN^yc#5*UK^On2b@7;JrVZ!vql5De9`g_gX)A#-F>#d75G|wID6M9}(
z{y*iRdCj&f+AgQ>yPm$N-LT1Xixl?-o;_WcC(2weJZ^O4@X3r=|NX`W9*yU;*pwp~
z?0@RcGVU{T-J7;P@cau&>7{qRwYjjUD)3*uuT<#RU2ylJ^YsUMF)tnZYunOdc9oX@
zF`H1oV`k(0d&>`n=^Rp7TkZe#TA9M;O`A9K@-<)fSiDtk;iZ5z;>;_x+a@3Pn<FFJ
z>#_aTOOa`Fr|}BSSGw?Be%Jbs7gwHK>a_c?<Rh)u+e}{SJnac}e7i9u`m0&M@~h^~
zA9!Z)@<d2q6^S$W+UUxhwqfa2v+KvBX8l!^fBNOeuRCjH_j{JM{bfE^@WaO9*6&~E
z`+DQpK2^*%DqqjRoyB+I*5Nx=x-(7HB!8B1EN%bew%jw_^rfWNKDUyN?k(qDynpdw
z>+jt!J{-`P#rl5I{#*4mkLT5Xs;!LqEfsXkm$O8z@0gH%lKQ?kf4_ZnH_g$q{wc0h
ztM=nh^3z-9qO(8qUA9~r$(vuWXNJ1NEi1)Y<zLRNf583e+9U57%RbE9@A^Em-edQB
z{>vrr3T{NdtQV<a-rMv1|Dw;TS0?>>5&31tgVhy&j(a^Xtyt1K^_Nq?<k$8Ve=e?F
zn4he7Y<+Hm#rb8cj6YAE>L3>RsIw*g%G3q1?iOCZA0Aqm{QK69WgpegZF<Kmlw<aL
z?uM5;?jC$v8vCL4!-w;!&uXHTb8|OH9`MSVE#ZIQX{Y5%xi3{goB6I>xiXzeGUDKp
zJFUh+YkPYH&n&r^{f$-TT}OKr|Jql)i<Uaf6Oq|?yQjxBb@K&_(p7gA(xm1!ZZWdG
za>GIT<<AS8wqL}XEdB@!vtJT_R+PuE@(xFz)~+*|g^bth-|DGfx2&sp>iBzZjJ5Bg
zm@QF180wbazx?up^_@=d#hw4&we;V9?vh<P@6MVG3y;~WvbN7!I_vJr-mS~HGUj|+
zo?#*J<(_)r{@riat7QFSy<siX`QL3(q^aeWeO-o*Xa9RGx~lZ?zDi(P*vE6tQ$Ajn
zz4&(m`|elY@=Rh+bUrUKnyi`a{dDIq=9tL;`;YyKXMP^_@~Ld@o3mk$%qRPQQ2%^$
zg29W-PYxYCFaJihIlFoL-aT@>B#l|U$>f6B%;vOdyC+H+Ssvg_Iq{yql}B!F`#h`e
zB+viJ)**kNzfJfxcjfFC5v#6cv$A=tjaxtWUT@m@M>j;u|NNAW+Hd!yq`}-}=>p@5
zc<ECPHB4{&K3{ydL15eU^tX316W4_Cu`WLUhWFnu;VCtNcE8d(y_BXNQBk)#eD>RK
z?Z)V@rjI^foc;Jvo#*Z?K5?OuQtRKneEsI#(-@1sxw-alGF9)TPyZbGF=g8XVXo;H
zN^X^k&AsQ8_-A?Pv#P#1XG%PD*DaX8`Ta@PU(zq)v;{32SJ^v9*Pov+vdOr`op(8(
z=js$8-va^{f)jmraCMznJG0_o@$c^bc^3n9|K>gxP**+{aMscI+4MlwMNLe8FRiuC
z?X?$^%Cq(SKF{8gK{w^VgX|R-Lsm(z_~ZNZbb{&5edUMW>YuNZ$X|Y_y8V;-gJOxQ
z^cRQsm9q)3?tgM&cJt@k7qs`jX_8x#sd{hUF}?k#(z(^*#n`0Z^hV9zdCn=d@biT<
z<vO<IjCDG^^LBqVnsqrt$9$^f>C&BTN_i%m9i1&w%8%c<Vi47CX1<X1MWMr;-5J*o
zd7t0mF*)SN#GgfqI?YRG{;=G$aGK6$&eJk8G8n%I-1#kH+Zxt-@}*p_-LF{=|LgAl
zwYJN0iA!8mx@EtyS>dwV@?Rr$&6L|`t=hS5_4eJLGgj*b?R>nI*>&fY*OgDNF8cLg
z#^L8(Ro2YQcYIvB_FQ~+h>6yhDOb0YWbwU_?`he$IHqU$#dovM#LDJ)Gw<DcFl(FS
z+R_-I-R`c>*>^vFdp6{H=QQpIit-s})@%#7b!XMuoep6$Z&y2gTd=#ij7`>8pyl=q
z`N-7gO#6?Y-TU26;ldRQ`MC+4inCM$^up5}*k&l$2gnHh><v`7ZJjhXZua3zF53Rt
z=L!N!4ix;D|Ni`S-8(jKzOypVk*++kgC|S#k9(ugkphL~J0d2rtNAVIIsd-km(7)%
z+3$<FPkwGXwfy_T_O3Y7%r9DbZDDR-beaD(p1*BT#P@KM*_T@-^OL^ce=z@mK8J4U
zg%g>v*Rq~H+FstSQNG~o>&GuvF4(j_;nBY}o%0+%Ulf|M<)QfN`NubhKThw?oYJ?s
zb>`LUvtsYwx7_nZbIZ^8q?l;y%aiwSkN6sMRBxA2cKtub2cOPAXwddq@P*~$we*^j
z-pRS%B1*bZ0hcYD1>~gvu-WpY>{qzObg{s;e0xBH{K4+<2U9D)t>x|5QIxykW?uHi
z$TeoioK{PJQn~5y?wr)0wbGCN30k?{JeK!`oyp^t+JT?{B5OD2pIMl8zGh=-UeO)X
za=rfV@|r7zPGIQ~8Y6Aj2&pVc1rL0H1~7^;3rg~fz+At?+*JKY@9>~77j4ju28O7^
zBbH_c3YI1&Wb_Fw%?xl1kQkcaA0ctp_t6j1Pb?@X%CAT*EKSVOPb@0RFHcFzDauUG
zD1q=G%%sF3{iLGA<kXzhv=RslDp8t~lUkymT3DJ{mY9>8mz=7f4(UlkOoVcBOOrG7
zGxO3i^D;{+^>b2-iy_h=7FZ5)l|pW5PDy4#PNjZcVp2|`eqL&NVo7Fx9%SE40k{(i
zI+8B6C^bdDAg8n#qN|`NzaYN|q%bi@zbG*!GdVFwzc@2DGbgbKMuV+G>#c%zGokiY
zK_VpgR*fu-kw<}+hGka>hf2-Myj9}m?RaxdZ$?lo>*|=b+D&h?m_(mETKe>o^o(g+
zczyL%GQF$3Gt{o@PtKmaWs7Pi_tI^7+FLqAs}}R?RXB#ZUgv&ssA+@t>s?*xhcXM*
zdl&qEv$_6GdeOX@#?R;E-}`R;zH<KrmlPJqNhx1Gm9BirE#4xRzR}q8+d7VKd2)9=
zcJEV)5N9p4>FBO`xo%~4e!A-Rjm670US2M|z4&#9(4w9Noa`5U-l+2lF(2V5ob*Gu
zuy2P?jOx0HERybA)2B~aCA#SkQ|Ke+ot~ZC;`(tW>K`Ana*L_!X;0Eh**WRaky4@1
z#w{L;9$9@la%ED?%#fviH3^xGUZJ~E{{89d>Z+Wi^mLDq>%aGtpQ(hM2x0Bi_m~>w
zy0auY$;)%2R^i?y9<wBl+3VLt#|4E%Et{kzbbV^hWUa2xqCuS3C%@B}e8O8)b*U=X
z)HO>Yl%B_(IJGmna9v2yDc(18<}92ddh&@-tJ5Z377x8pE%o@*U7u5q8cm%gt-12X
zH0AkEOm5Ds(VF(;gzCbRuBkg&?duG_{7Bw%QsC&N8qXJ}y>_}pItUz@d;0o50mly~
z_q@IQiS={7u-cS=S&5fyyLP{u_gBO5j{6zaNu7R+n!VRGolx4uDY~(B%LIog&$cZS
z%Pu)ud5XVOd+o{pQnfaP+0b~4`oxyb7|(wKfx;KX3Y*m*$v&t(vs>_Gk4%47=b;+;
z|Fd88UQE6s_A2SjEQ#kL7pF|Sv2vq!WU$TcWj4qD74&?mZQS>}>G-9Lg$FV>NNG*I
znjjc@MJm&GsZI9kH<Am)^eUxoD>jNB?W<9;`*ZEZhy4v!7vd&|PuT7htavT^AWvFX
zS;OW3UfGlVkKE{wZ&iGCL#*6xpZxK2o@d1#M%2t_JKydrGOsj^bJ2zTi2}Mew7dA%
z=~$nvtDThcz2>O%YCUc@`~14qiA&f!`4;S$yu6n8-LJd_e#V-nS<bu?N45yB@s+(d
zZSSIK$Ex_h1TR+oyR!A<F7`<-{rcw)tuC`$>38vD_q?U1*4wUKnWj~?@}R>^$;GGT
zHkiK`Hm#Oewzl@drQq+&s#c_}sN%3|-mJch|F`v=>Vs}Oza*>-$}*k0=#tmwxcJN!
zmtOZ&%{|6+bpq$h-QnA(?6^GZ(n7H;ovmtGb`=ZXNc?_kXk;<jJ3eTF(1I-o*Ia#V
zTqqN_Mm&8+D(ix!U&=Og@m>7am1vXt;9l*`e1_I#i!w~sUR}yOIW5|^aOV!MP_^?7
zXBF!GzZL#m@Jlq5eOLXHSLGjcTk{TkGuoS2i+&RC{4n?YN_l2k@k?)Vva(BdxHh`Y
zzPxk!#{7EzU3W7h;?4cr(x*N;VI#BA^rFBmac<Y$jUVN+?mrea<TGLZTC$Me;)(88
z#<IEdT{hq3lGApHWt!7!WNK%;nEBzl*wUz3hSgh>rnGK0yuKxBvt-7?Yr)S8jeE|k
zJI%Z^wYyld`}6~rh38}6ryj^F>d@u!bK}0;enD!B+QEl+?mj4plH4sDGbKEH{YA;%
zDBbNZbysZaw>hp9S75eE#AJKJ{q=2LAAc~`EtS&JidqnP#<$6C%X)s^AD(8b`j4M;
zea{gf{{LFaomQ)#z5**&FqBT^D1ZF!MRa$d`Mvht^<2l|e*Uzov#H`-8n67nsJH#n
z1m6oQbM*DXw7R=*Pn|pW?c2GFDz3HUGMcTQJGD@A()>pY<I0>EYJcBzT5>w^=?e=>
zs|9oSCVV#P=6K)JmK!i*_ud5&S$dl#blj9*Bu*E$nO5H8{%Nn|whL}gf-RJ#R01ko
zsy4ikee1YjPu_>B9i3qxqpID?-%eO5C-GuwK%5EBi&@;ePct8#C-nX1wtI{geuWb(
zJ+22^+H9<~nIdyXDWh?kK>5}e$CNK-1^oVd;gV33otQ)X?~{h#_~d@e9Dnz_{rvsz
zPItL|-{*Zk+41Au`se%ipIonS;1pA0U6G7(!yVad1JCx4!BP5G>PvsVa1RrF^h37g
z-M;D7R{REQuNl<OaM^cj-p$pvS)bY(i~sOBmOpE}vreR+XN8q+hWciOy2}+?HY9Fd
zt2c+OFMiwZO}h;O?(NLppSMxVUV0wCrqKPn?ax?m$kj(k_Aj#MmYVA)ex>>Ni#0{P
z@{YWmrh3ZaEtg)r+9I|6V79>KwGzkvN@%^(vAV#$^=oOIH1j$(!Q0K751-O%&-z%Q
zzkk;s_0&x3o05N@L}>3aJH`F1l)EP&)$Cx<jUO9xD#D91_ix)-`$c3{Uy|aN%JrPz
zBG;s~rL9_9+K_(0NM^my@*@8$Tb`A!mG>;xXgIXT)I!Mp@rlVZ`jsy97;DsRh`qCY
z-^MqhKRbJm^Hd*X_w})Let0-zwZqOt(RqEzja3G}Z!N9wnQQ<3<carYe;wbfd~@Ps
zSX<G>(@T}UC?9Vst~|K>#?q!|w&wgNr*2sH_kv2Ae!qH)=R2O>nv?5S?O0l|<zqVg
z>r?eIYc_7&oXoyctZ&}&JTaCRRktG2Ln2*{O_^$W{=nx6_qMJ~cYfa%ckb_V-Dt!8
zXVw;1y{Ueabo_aGyj0s`0}XjSiL>%&>!nwmPQUj%s3%+5+O+3pM7qXrSI2+f{>|i8
z%<-^jdz7!_{G4@dRsXpKi_41~<)h|q6T0T~Y_;V2Jh>YtA55l~ezKI=xL^b0nz-5b
z)wV6};OC#;VE*t#w|l(IDY<iX(?3Uj;uR_E?5=s{cI(N{p9&HWWbz-qXWG*wddZi~
zpz#6|+l5!pbo^J`JzDBJ<>0b%%h}R*<0f9-c>8tf;x8Yka<0>2S8uzUP`pd(X3uMX
zwH;Ci`FNgQtTeH@6|hwJ@AeMyjni4;+HW)N^ZajoMe?lM#UBcJYp%@9xWKvaoTvG#
zn~rxTTyQW>cpS5E-@WMklCWJzAJ?UHCe3{;`rrB3_0?PNuGuhqvSIb{%x`^Ra<3iU
zHu1jCDm(ps*}iGFHqAWke@57X>G*>e#xssjo%5o2x}B|-T<xv!yGtc*8!eN2bV>NL
zp!#(Qk-a=0Eq=P$Z+q~O=cC=s1^@pV|91&=h?V|(_Rx}0?@9CT7ik3Og_W$>b*<iM
z=^l*}k^6GQo*jFC^TXSttC!pDF8E{WS?RE6`xf82B+a9a&WAjIvTa}N&)WW}y=+g+
z-1w;*m6tcnnsIFXoyy=P;y-5IoIPpbv`c0Um)|mNj}@`lQ2*rZ<K_NyUP;`$`({g&
zWZTA~%0#E>t%io2X{(R!y4;!m?d-lOzxH0s-*}B->3Y`Ow-=P%Hy?Q{e#q;-@VS5$
z=Xzr2AL6b%adoDNXJ+5JGViWD-Ec8ey8`p*nPR(FynQ7-fAI>&`L-!C4=&w4b8YR}
zidPFnbWMNiZ1Y-BB6VTL>+5n+s^7#*#r8yb_=bGE`tb7=p`dHu91K3$8cA@daZ1cS
z%UX6Sb>k`*Va=MUN1dc|O_GHccMEsNY&EMj=9uj)l(pc)y@V+ZvJW2jeZ0QdV$Evi
zH>~Tf{XM|OVmJLZU)-v|*J~EP^gOxcaUHMkYzJkQ-qTMO-!!{3{lVhgIZP|rrXPQN
z^`@!b#~rMtF0B0v`u^)5(lu~odi%s_XU?4J!eG;NAIq-HPe{qImi<&-+j}kd%f+N?
zhYBCeYP%-ssQqNpdm+~S4(tCPTAKL3I_u5sXtu3R7k*84wB2U(TCzgSsM_pnuFaN>
z^`ZfunkS39rF0U73u69mDHr+2;m*}o?5?70xx8Ul)vrUMA6<0PSnWT%|I@wSbNthR
zubDBaqMO~~3cLz79=Lnrr0$pc4GZ0pFI~T|=p(PN@Ghx!UuLveO<#5}z1XbCV(Qz2
z>QO%{mYMI$_ljSW;q_$wXOlw1THnILnAu(e|Jh397xH82D<Q2%!`oHzcJgxyjnsDb
z4MLhc(=|4O9wA_0Za_v~$q0150M^N5Lr^cuH?z1nGcP?nGo>U$!4$N<56ksVZu;)}
z9{Qg8Ui#k9BL)2R1M~wjGW7$BGr<=>fsP&y(+}5=)Q{3n)K4tYPXhOtvQtaoy{GKd
z5=j3Ebn-w>ejap2E=4~jGqotSII~zk6}lEMH8&-(I71(LfmABEo0g`Z211$oX&?kz
zE0_aWE(p3>Dx<O>BQ;MSa%4e{ey)C=K4cXkcpYJZenDbUY981jU>3v~kiL~Zs86L|
zs9#u`S`6w==@*vfm!zg7<$#sLI1n9R9)wv0I^ZBRHxqKuGSW&#eZ*Qt`02^|RoK=o
zg6{u9?TUd!NbZW6TcUKu)>g4ch&=!HZ_R4!Wao=LjLB&myEm$rDSx}it;E&Ab*cLO
z+`G1?H+|8Y%NirFyJ7E9v9E5u8&!{GC;42N5pnK;`@6sOyAvLr_06mM{{K#T4a3c!
z$BNH=pZ9&wdvmWDeX<grE|)UDT?(DdW6vXae{#oPtB&{H+Xc_Q7S=7CyI{7+uF^HH
z({HYyo{`?QyZS-fJRkMWBbUw9>@v4)_g^vpwb^ur?!;&v-D7_9YzkYB?l4SNi$3$E
z<Wuq8M=w%0UNJmy^yFp3hJQy7CvE*M7QVb8pgZw$3=>n$vK~2E85x^X7cbXO*?xc9
z%W29wO|i@|I$@SSt$(sw=5C$w{H<uh#xoZ$pFAXRSL5*XoA>6~H8T3uiFxncZuPTr
zZ9!q|!}q5Q&fJ<Aw|UR?^WQekeQbR_f8PH;4Xlma&0?(9dVDwcsFa+(v|;V(In%7y
z-*~p^RO!~+Qs1}AU7Pp%82=1|!b?vygYD&Z70#IYw1-#TrCj>r-Mo|^D-4sBkJbJV
zyuNca=V6|NX~xVmMbC(&32dG;^At~7n4$BGt7ihzc#V4^Pe&MCJ5!J*`<XHM@R=kx
zgV!@}p7A&~ZRX*gBr}8JnHSI4r12QfmprYLAZ8?Q)IFnr#?dnsX`IH5k*9o8rWsD2
zVdrD;Sugq64CC6F-)GeI94P3~zC3ed!Y+fqGc$e6)#iOn*<~DersP=5$FwSgWj^|D
zC%>fKORVVhVw$8kX<d)$UH4_mizj)gKAco7TVwqv_LWZVD~komdFtyXyDyL4R1tPA
z@1e!HzU&t^D~f%l7si&Am%cRH6P>wT{O;r3_l-M^cHT>_>|bqr{CmjPKPRs&ynZ5X
z>)yN7^7ZMrt(X5O{PVn4?0evs%*yiRGy8v9KMSn&{mu66@6)|IzR&vo_09HG^Ow#4
z@o&<1dqFl1`_t8@%uig_Jr-5*CH*)5JNu>oKmEJ+w_d^^@xUX-cJ^~JGmJAnEl_VR
z=hqY$RnxV0>^G|_^xNn%=hmhM|5KqUZH^imk0vX1*1x`<w$aXUwi@&EWA84=G%MX;
zG%fHb+;Q8%_Vt2qx@}n=?IO8;!n0;2w!Tr3T-Mu`5-_WJ9drJ{-o48`8-)ud>DlDQ
zh#b>vym97*tjtaIXCH1f-+AZakfwBxeeaE6^@HckFMMtb;W<3{Pq^Q4cAm}i-^%N*
zsGBhHpyAv*H%?1(ZYv5paLfI0(ytGHXE6u3D&JuLeOoC?hL`>6jtRAezc1X}{B!m+
z4wWzV_p>iea=2{2`mohr7Txy`!~2(>)eYMdt@+#4t7r3`tsSLd$9%+@?j8{|5}Ehs
z?{DkN`GS{iEWJ*htLK`&lifLg@;;`GYSSxx5?%*gl4hN9dY;^zeM$d5y>wAi7y8t&
zJ$TvmlN%*uZyaB4H_t5f;GKg-!hzz^+TX5wX30G`$Q~5fxXxx4pHtfm!Oe~>ip!3C
znX0<4`Oj(f46O+no7&>J`=&O2t*aJoe_-&Y$v^9R__g=ic}<Hq++TlY>8ZfIV%r+#
z7WHmld|vE#0Q-ZUYVChc#??O^ZYgza|M}<AEavZ5=FIyVa>Ie6qCx#eR)*=F8*^9v
zG59rmMazvN7Dm%WW=<@vP|&os<h^wE^f%{~3(}8kPuU=Kt-*ec={n7ne#gS3jp}U^
z+|yFd&h|RV6I~~z=fHKxD9mcYUx}hGMOzYmql}uq=sJI$WPJYU7pu(EyQXQ@Fs8Vw
zt_TS%Y&v@;cel9QFNQOnvNPR|U0(mqVrq{&`<yn}3o^c&6pU@$CW@?{bbNB)lIL&!
z9q?6H-It_0?NO8ezWSCsOh$`?*7b#}KVb~#czHW>?t9^E+qwn9zpr`)R554Edu(jz
zd479>(ahXUmO}fPE#CCX&bv@FoA2kulKZ=i%I5a|k@42yo$=de_6v>t(qF<dk)2O#
zZq7T*`@He@qem>e?!I~B865NG6aVhhi@6<nZ@<*r!*6}`dR1q|=A%95Pc(*HD01B>
zptYsy^dirK<x!Dre7i4oq?z=r+;pvQt^VW1iky?qI2$GIR&YDnwPDNTcAa@AnB6B$
zJuq>n(d221-&$LLX|#AZbIZqm!`s1a+yw@F$CvJy#&hsu%Dy=~KU_1Im+V+9yME0Z
zwU`q74gZ=%BN}vXG(4R&Q*X9-zO1{T%Di7|YrgUqu;=>L7izxOE&g}n?TxlwswJC!
zJlh|(s4uhUKPne4{r$?6(<kTrzf-c=V0L?fN6&}SxHQ>^Tz9Uh@=tKQ`PF*+I}`s%
z=h>HLnmyIDz4m6xg9q&|VzhH38+Pt#KQo<&f0m!v1*wQrw|1?1VEEhQ{AcA#U9svD
zc3od&)Oe0dL`Ekur&zFhO%tEEFJ|o-?q=()_sX@WZWY!1e_hFT@f+j5u*sGVj77Xl
zMHIXZTH4QNPyDH<YG`RD$7Ip}>BOT?lbT*tmCrq_#D4p#W7DhF9-be}ez(?IGCnP6
zTl9aC;nRe&X-3uRXEPPgzHE^DzWwQw0BzC#H;sDp_x^gXC~5sd$mF1@MMh1VwYAWv
zS5Ierk^QZ5Jh>)%lklRux~+jTF3nrBlSlo~H`UfBv9s26S{R0@^R1n5MgDlp;~<fv
zp2yt0gB&V$EC@MzRMUag%fpBF{I^rvmVe#yVZ*Hr`wn_9p78#oj`u#1yCUCRRn9!$
z_Ul%!+@sRZ5mP42S-t4YxmM?zjyYda4lA0O`>wqgr;@St=FX_M2haMR@^Y4!-SI7R
z^Y!~4*Mll+PQ6-_^1<VN1XJ~nS(j?>C%eB*c`xE9JAa)A`?>=+=IdT>{vxqX{Ha?|
z#Q%U>NzL2-%nNyYU*qu&jXjB?IZc`yuAZ>?`sVwrjP##LVoiygw_dM$f7QWR%13O@
zVIiI4N0-b0>yS;Kcv7^ebdA+VUiJi&-)1LsvSN1R>l}US_G#n96tf2^Mx5L0K9=5`
zY5Pg(z14P|2Sp0j^NWs0oVs}TtHsKQCfU4%{ZX2F!t5V1R;o|iam0C<)aJ?~8m!O%
z@~%wre4g(lt^fAtlj4U<jz^WvYu|jC>BlaI4C(dhUm{kU=l%ZL&Zbm%%6v&mz2cNt
zslpn|^_EW;Qj;*wd7micwk}!Xw|M#AYcJi7)Htmd*>U~c&dXD8@)n&r_FCol`ge;|
zJTG2)d|>v=?(at<|41jCPddIn+9<i^)4#(^btfkYvYoikaMZ$5^4z($z#kVE&kZ-;
z+EmrWqr2Ja<;|ZTU$#H_(PS!Ey*2pCgZ7}FrIzn6rQ8)d^>x!qli54J1RV-VHhcO;
z*LTfiMQL@{Hzo(~`<Bf<_S3v->4DtjIse|6xL(tfdcN|8(8t(QOHO~}i?7?HxBZ~O
z>6jOv&75U&So*g`hOIxt(_+vOs-}AUV&E!M<=722hT@kLj_yfP7YRzq4a!+^S&zf4
zq5Af$%?o_blplTgWMyQPi_~2C$_eupo?XbZL*JuZ#JZ!git}&V<Ch!cl>Z%(Khwzl
zmLryzFM)M-@A;L<@{$6#vJUsf?Y>tvIkqsjVL|Y9kwbdx?k&GzeZsWp@|kRHIoq0V
zoMj6hoX9x6JXNCZWcoBwIg8{I$9tb`=Dc(8xo-~pl$-lPCc0`1P32Vf=(?$}#^)3(
z?~+;J?*gV@*4U=CMp29@Q`F{u%H&B~?pB#FZcd!B*vt3avhQJUo0O8DeKYwS;Pp8!
z_q$x%nkPB=Z@lAXEOpIz#I-;mX!F*c`Ww%^QC)f2ZRs(Qrb@;oX-m_J*={a!-mmrd
zu-Dut2V%eMD(wAqL&fHhy<}m<nI$vdaoc)3X_wyaUVTcLi+QV)^U*>r{+*N6xBE@2
z-k>eYEmFMKu7oR^Gw;ri^nKy$Wbf==9&*7d)Jm2??{(a(?Vp6@vTvLfeCT-Y!VKLA
z*@x}^-|lWYw{YLj%f-_Rd!~iGxqRP2HL6qoV@9*Fy=}2i>@qX+D~_D6Gt#&sZcK~b
zxJsk1$aRmBmP${JtJK*Km;XBk`=(BGmt3cOG%_%=P$2i+Tc_ofv#;6uJiqI?B7b(-
z?E|8FzDX?8=#6q(Y}XyQXWhPC>)h6_U%%ca|3<F!nQtX`)>ky&dwc3iMn}_%B`;o_
zP&Gcg%(m;Cu}4m^hyUsI25W9Cir_UoCYy8r?db(!va#Qc4Naw!A3lG(=cZTYyJKb<
zmtNlRZQQ(JvF?l&Q)ZNC9qumrWOA!()~Z>jUhSTic9hZNKTC&y$CvQJw#r(8ZI@^F
zIr!dQv{YdA*R@Y?NjR-@UcOB+GF@VlZubwf))bYlYx&tX=RQ9bJ9~~^^G|8ZtJxQV
zlZ?)m1!v5N**s%;zu!syRe2d&mL9IJ^ZJv{JI%KdpTWv#kbe7E?l<YhcQTywR(`lE
zyLWG_RqcmsW&ba0FfL+un;@5BSg`n(NJGTAYtHwS6Wim`*3WSDOgK3I{fZs&X#pm)
zOCF_Hd7iu;bV@n?ljw4(O<(dWj!di)e{DWDaP1lH<r`I32~Aq0>oH04p@F^P{A(sx
z_v{JFop9t^m+zLh_ZCfDJYl&`$)Un0TW8kRpWj*B_?i1WV`Y_Bq*+Mut_6P%JZRA1
zZ~uGlxV*{!Q(mGzF8w#6?tDF4ws=obrHZI^*Wb$bJDxCfJgeEp{#whsE9>0Z^^%@X
zlsl)CsP3K5e>m>Oe!1OGp13qBDSC>o77%LMvz(VT@8ym(nYQM2^82S%@;JSIs<z&I
z>-7AJxfO5LiCm6u`}pywR<F72kIQveWk0Ub&yjHYSRHVgW$Kr#tm(3E1Txl5>9z`6
z>z1qSxj1A3`?H-3&R%?$;MRS`XYH#iRqw8s?ObZO;O(2}UH5P3C0(37O<DeQjl)V0
z4pqUm;%72m1!xytVe0(5^ilgF*7@^hPGXXbaWrY+eqz0<cX?3moNs%!$XN%aDo&pG
zcde|@qbXh;#{8$3ne?4sX%gqXv{2`v(;E-|S)t)KZwD+@UAtTD=x(;sJ9g)`ZPeRs
zCboX@_E|zJ9k+k`QE2eZs@NlZ{dE1r!XxXIeg1TA&Dwk9vYmGy$G3Y)&-V+yN$}oT
z-+cbv66Y;0%Z<NJyE@%m=89}%TE@5ak>97?m5Nc<TQfPS=(L2Ln*UP1W&dx5n9p6q
zVYDD3a%I43g_gxd@9n4C&J}&W&F*ZEUtmgOrDBTc$)n9VswVcvkMfj%T*_9yvHjsY
z$(#>Uw?}Qvt+*A`Il1SW(ceuWGTujXGNq>2Zm9MAHF@4)_KEXa+|x8#1K%HBe=0~c
zGSKi;i_6lQ+aEr51)Op%Q=Qj4ulLG<s|ByT?1XjSO*LmIYYVv)FYB;*kBjY`)U}T5
zRPCp4Tk_ah?(K>85ZB1bUsH5u`b@p5Hpk=G1FbE``U_-kaX(Src{aHC%KvDeqZKkm
zztdNJXZKmM&1^2uuY!g<Ec*?NRJ2Nk-W0uU&tJ0R)`Bg&UV8GsQQ2Mp;z486nUv5~
z0#egO*aGLg|2E;&szq<7{+3<6HoYf0TX90)<h$=CW!GyS;ysq+&O6W4N`24A7_Y@U
zPdrwV{B~g7_BflD{~LHFZTG5w+q++ejqA+gjXTbI+D>06D$u!?c>>>&Qx86NCY$Q*
zsMsu(yh_zH-QZu?T}jPzdk$4+{8^QtK4p38vh;VKZ_f?kyK^}^JntRX?T7K2=TBdp
zE)%4#J!z7{9PYEdTBo#^+)`L|PBF)M)8e@g!nbTKP%b!}cJ_Bg@=|Zl4K^3_@6Da{
z>FiOtrHQYV%=1~T^S+&5eUZm^<Kc<X$M1gMDaxgtm3vTV$CvOw8b20pag3fBucNPX
z`DqB_ci9?&7jvFSJIX(KJ5PWsMtJ7I@Q1q%O5c|3PIO)?)jwTi&Q9(6VwYqY#{Jey
ze_qJjTD@YyA@@z&*`40~|1@KniO2K>$J1oZURFzPd-vwEeD=M!vZ_@N%m18xB=2|d
z`kmlQzxg(boLFmrbMIw0hd-}1*tdNbe51OXuj=`iA6ezAdY&B?y0PVa<^Innmt;NI
zr?W45GTY9F69pzOn53>-$oZvh>x3H;U3+)l3*=m$w0;6#sZ1ib#>9kKJX%+8KAq+B
zl~051o%E|0Cj*q`?mElxA#L%|BY7I83Nc-;kA&^BT5#&@Y4Zbjms+jZv~S6-Aceyx
zjl4p|jf6ErMgO%un>>Mkr%27)T}gqP%C^U(WNg2`e6PhGx1wh@c9!}_Jqm61Thu=m
zv^X7WRr}BGoQ|^aoGngXJywd_?-nfVy~uM^Thx%V>GZ3w>SE8=FHBqUx;>da`fd3g
zIi>qMedYUm?q5InlWVVcm`|(rjiS$M(tDRom?rC7xoE+n^PM%xEY~G_6WXj)wPQVe
zz0Y2GYrX$h)fM$A>wNcD{d)Cp6?^k(-m|$9JL|K(>uxWW&-ixG<agA5E`ERedj9LH
z9Omv@<E0+($spx_<uXRwXKVaFO{f%XTzN}FQFp0|cu7pC$HwjP2{YQydcH5-t{+#S
z(($lOSvBfLc(uxp-h<ZLd>+*crW`yLJk{pUjx|i~L01F0B~QIQ`6}YW<0$S(@eUac
zi=8K>OimoAtGbxad+d<aMrK~SXq}XWJVjnX#=)yzX8r0g+Hdn|<Hd04DR=bU1XYec
zjyQOK_n(&+Yj1Hi|N0W{62zLvJu$0&ika$iuihpX4lcfKf0bsAbhTd_>Tf9QHa))b
zm7ZD0qU{d<XY8$sVV<hTs`%`uBkMudgOvwW_X!+qZPi%RYPQy`mNoWTAD26a@7-%D
z63!wbdwUjnzFBGh<81by^~Hzh-Qv>EinupV`U$7^FWz}36}pBij~;Eh@mAloD192w
zk$GYk48Qjs==-tnLR-FbBF~Muzt)*Eew$6=?UegJ-Gx_h`WB8W?6nH_o~^dCUBB$^
z;`F^e=~EO--fUy9USM-UJ#MK-*F@pl*90D^WKG^YWo1ZjsC+ZmthtI&*{hD)99))r
zP(6T))o(?n>*k&bJg#P;+h+A_u{rmo^!fe1*?W2Fm*_5?a{AqlIZBf*mU-_v)Oum{
z>Mrqv1si6IKRx{S`}6bL`R4AQk-Pbse&^f$JFh?a+PlqY?>6!LkCneyY4wy{jD5%@
zcWm|Bh-tQQZ(mPlIkiN?^5=$9<C$u0f!k*=NqxSxIN)xansmXUsO@{#9be!uQ+A$Y
z=oY4s1zvruq8oGOCcA~VNrx|+ab3=Moy`B=Q<rB}Ke1X^{94;MH%04fU*&{pGiP-d
zAK@{cb9vT0smW5Y2_^kAZ`m|g^Q@};DDwQ}g#FWlbt+w-|8>@k>PY`_=ZWpc-#lvy
zAHV;3lXI4e)~892o<u9ZS#&)pJ!SU$iNdQxFTL2I(ZM-&vfH#<51V*=v)aN=oV;K9
zMDA-$XxU7~*4sgE60|K=U#qfismS}dq0MzeMg9TTUaej!F2C@oklPQYO3S>G+nxF5
ztl^18FHax8A-uEGezM+c^S0eql5N{E?zK4cn&hrK{L@NvR(F5phC6A`A9$#5Vww^Y
zleWn0{XN|`MaTYMaNF)+?|)wC{;ySM-fS^p-2Ua~{(D(#+A`Md{#@X{^vQu_pIQ}H
z#{G{Tp8k?;eg2w^-KOt0Z>PAq&g|Z6bW=3R;{2u!pBBA(6FdKgyp;Eokkc~-`GflQ
zirM7Z&D#Bc!G`qmyLLOyKiqv-PUz(u-?D9tOrM?<-;=r{rBuSmK6QGc`1dbAzUuQ`
z|FJ7a+-uItYnvBNcm7}&Z!P|qn^`KTv*MZFUFjIly&Y~fC)3k{S*8@J#6Dw}%i2Gs
zbmb}^SH|ax#j3Y8PA+?r9)I%miEDL!>LTrWn;cyfjEoM=?`h6_wlU$lOK5K2g)>Zi
zTF3R;^|m!GSjz4DQ)Hf<&e7^0-1VDYeM;PMvey33j}`wOr}vheD_#3Rh^skh>ho=r
z=4IEU9n9)0ad;^-C82+L{63rayY%-2aA*gtJTCwI#0&R5;S1|cuM|ID|K{hLXRNPx
zYQN15uiy;x{u!cr>Y3Ovkt4FD?N9G~(Uex}-)vR={qyAXb#F4X>)$@!ZM9Lp_o-l3
z{e-T+8)m9=9kN`<6SaKhS3$ldSzjg`y~-l;tG()|#aa8EKNa`&*KUyCm8h4P&!ZIk
zt6%NC(7%r!Z@%38*X(|Z^-{TAK6{*MBQGQG6$zPzvy$Vl-s_rc-8K7xP>B8&m8myY
z*|#O+-C8F2xMxdeP|2c<>W&~ytB%;8R`Y}MuRF-+AC6d~ZQ64*TlW9k@)E_3dIx8|
z?auW6dopQ%m?nRBQ<&8n|DNzw3MV^G+<9HTVYS`QS5n&@;`N!8xG$UBDrxkpesixQ
zSV}cL>Y8Wto{!mf`z21D`lIOd&pSP`#h!&l#ChMIrPhTHKc9Z7ez48oCspv^m&rxH
zIC;HI%-d8ChMFu1{qOo(!n*&Nad%U`Q}pw-Ld}&Gn>K$uV7FGxWWu4;V@p+C{bsoB
zTBET&_tNyRD_2-Tcl|hWR7Fk7`n`YtT3!9i;ca2oTkmEm^{LL9bbWQVs(t*FN7r4F
zE3_w1UKQm2^wi1UCw4zFI&iU}dZYHf@+F4);cMA+m;3tl^Ty{3i~E0{5m7Oj)nOMS
zXN8Mc!hU{@HB(E}^QS-9>7HIX$+%zd>c1}zUT66(u=vIAEZd>*+ktn^bHBWuzG?z_
z7n@qYSx??{`V@E8=E<+$1h-83b$IIYOy*Lr$W1q`R4kO7?2=qQX+#{W-1O=M&tb_Z
zyCtHhzfa&ird!7S;p4XzA6Bnjsj<FRTQ=lE&AEkb?e7l<ZWGyk!%n8SUF%nbt5cAX
zM)9Jj8IEVlCmeNfW4!6SYf_zASzw?Rv)&{V&Pdkw{**M18{)bpI~X?1KKSP7tAItq
z_YG^N&RJ=?$4PsC<E5xfZ}&pwct*{8P2FeyJ?eVfHl1VB!^58Zmp*@F*RZ}AvbB7<
zP5INKH@sH0c-Jq|Iyn2x0mqbu7ghSy%~B-!)WWt*R!hF0>{|VFrRK^u^JGgy0mUOH
zl~z3C=vI%-)e*XONqxO)Z6VLmt4XKMI2V|0ohrPtv0PTjvT~*Sr+G#@LxugPHW?Wm
zIe+rrUA7&T-R}Z4JoWGFta{SW9^7hUKf_MH#du5avX5I`7qe8Gd2O7NSNnLvb+PkO
zCoj~y1n5>~CUDNnKf--fXk-53keG&pHfAS3d1+o@Rt)l+wIOmE`%*?m0SV0sX_wBp
zu?4-D?lf<X-Oflc&c@W#fLZA*pN~Eldh_9r`YXe`Q4)3S@f-Wo7tHVXUm5Qk>iUt7
z(fs>Lt~DRNeB>@GU(c~_mFC(NLbrUxz8+NT*DgIa*(_dbd7a4fkA_-SmqNcVt=j7;
zKjp-{y6Xk&mZ>Q&aSF)mz5gaoGHzD*^qt>t?0UvIZAt&yhj)wH?^iyuzZ6%&o4(=q
zrNy#OQ-0U)3!buJ|HeL+>6ib-%sU^v(e!3kpOfQM$0X_PHI>4<=W^KXddRzd%Cn~#
zCi_#D{V~<Q*njGXZs*AbLF&tA?0#w`5%)}>tz^5J?7#B|fB(B``@~@1lfXlD)t?`{
zoy&T%D@V~tPm@dOz-kLK*P|0ZzIpFpxL37L-TCdjzlW1LWcjAfe4rgu6F8~)Yf#Ri
zqkmk3_IF6>%Vw1d39Md{B$`zjn?2S1w%fC}E_ILYue@PUSfU$SGHEaWhBu8NJx5mC
z?CIM1qU_+q_rYG*8D6rMDJ$>Yem01&xpYH-@si4{$7fzE9)BV6)9U|+%WbP?u@_8K
zW_+Ubp6fGLQ{0g`P3~8WV;c9T&e!<)GA)et%E74{9vNC@C$N3psGX4W<<$bl&q{ZD
zCeNK#-~Nw5wev-E(4H$vr@}R_+8uhPd+nbx&;Q+vyRN-05xqX^sFn62cMiS0O?zjp
zf2gqc-Ql=o+t?d|U31v9oM-p!+@Ci|s_s$g|BO#&A}sG7_3O`jp?W+n;lTHxHOGBx
z9RJzXI^NqEobGpEyG)tvFV?p=^DZCj*?f2Igz%u*`(MAP>JVGCK6aG_%boJGm(}>@
zq`K~!@UG}m_m|GTg|e^H^-iT;wb(zo-A7Pnznzte;XSTHnqJRN_I&;=mHR2ye*U^C
zG5<NuFS~gk{{3g|VQqGS%a-S^Wv7YA7f*b@M&t5(4vpgPANg(@JzBn0!};@jxqm;N
z9+GbMe!9IRUGH%2yKgswnRS<~*;2HQWBnRky|sA-=ea|;fBV%e)MQ%s$?eaAopF5=
z9~SxdGd$h&L?Cnz*P<OKd^ALQLXVbzU1Y2K`s(?mi!OYUi|3JaoD!s*%v!Xy)LY$r
z&3qScDdSj<4C^)v*Y)Pd1sLCyxRy2lIX(T?zc)M^h40_$T(Uj#R{GW-o4(DAD|#k*
zZg0EyJkO(=H~NpKw))RMVE*Cnf%hj5F}?c{?S9{Q#mAcrVQ){>u>a;zihYtDVPx9m
z;U27PEU}Zn(1~UHu?O|;T<`KWHP1TF>ps2Uar}KF{~we7Yh=HPa|k}rH($1T=Ha`q
zKYwqL-^TE;agTA;=NA=+BN+aEj;dMuf8MP#-`_pFP;K#PUdR@~`5)>917F8X<GC@h
zWm>_^-S3JM`yOa@ceI>%A+yx&pJ!7Q&ymAjB1zqecJ;C^ImOJUUwM@BHGM<)->WNo
zcuJ>9745LOb+<(0EYttgRf4Mm<wE+)zAu*jaQ?pFg~$0Ctdf3`yI*_yztQ;p?886i
zSu!4{elHGod+r+;m)CUrov4)jgSJWcUVAS8Z{PRpaI>dZ(0N{!uRs31J3Vu^!k(xP
zy`d~lI!BhXOgpNzNO6i^#-)k5#_RIWv)e0A-S*|DzI)5zJr=uDKV3Mr_9}OywBL{a
zX>mXP`loxnZq9Ii=D$DJB0gAHKFZJ8w}9tFr;f)0lLNB??2WAD_ii@wN;zUU`)c{l
zi=i(r6($vKKWCM@J<ptLS84i;|Ln)ECU53S%}XgRDN0Su1+hT0=$42*%LR$)sd|PA
z(V&GGK??d2kx>e!MtYWJ7M2D^W(wvOMtTOuhGvFl3VEeDIk8;&#i_}lwE$Y^dW`if
zjg3qdObspcOifKqO^jd~(u(r)N^%oRN>Ym)(CmTgF*G#NGd43cH#Nnk#|YJJP(9`*
zdIqKzW~L?<Fg<XGp=vNTG}p5<wXiTVQZO<%(6cl&FgCWt&|{2Z39=p&3q3;<QzJ_g
zm>zI|87V|tkQ`zrXqup2F|;(&Gd4G~G&P1<k(Qrdl9ykS3JNb|YmnS!Xl|%yXkut=
zY7WzsT38BR9j|8yiW(GcmX>;kCPs!9h6;v8mU@N;CdLNvAOL&ESRvZb9DEl$5h(!f
zIwN#lFb^4l5|E*>89YAWabt?61<6OIrY3qu1{UV<fJX8Vx=qFwW_lK;W=3X43dRPO
zddB7k@UTPDh3+emE@N{O6AMEHBV$876Jtw5MDhWLgNZ`4k%<B5&@3Xt0m&u|eHMC_
zmWCz@W~Qckh89LfriQRsf`^0|npMalVQ8vnY+!6`0uMj1<4hHzjm(IRB)C21=(?bh
zWM*utXK86-WQG}XMtbO0S(xY<nwgrI8Y-BYo9Y=G8CxI{D?AvC^gw<>aiOW6p|QDw
zsez%Mv6;E41!mM5>7l#N(AZ4R#Kged%v8a|#9YtZ%p55l!IPdb4qsWA>KPbXnpzrR
z^OXgfCS!9WJqrsH14|PHQxj7?BSYjQi{vd!bbXd4dd5a3h87kIpjfjoFtjj4%}-_u
z(Z&X#T|mT?s7N*$8lY*kG}f~;GPE=>HB~URFw-+LF*7uTmw3n;4be0j8XD-CnVFcF
zm?)T780%RY7#W*j3w}c*G>zuQdPW8&rV7U9mU<@UMuwJf>)=Vs0!@o4G)Wm+Sn8P@
znHwNdJ3PKjaA?6BUxvnLx{OT>^^6Qm%?&LT%!~~6j0{bUjS=+>tk5(?*M+D7EKT%G
zjZF<r&EUGgIm=uj+Stf~)NF60X9)5ZvPMG#OFaWi3o`>F1rq~MNo!<j0MEq8(FJlN
zvPMf|Jwr=NP|8&>HZ##PH#avn#Fm5&(Vc2&WTa<eW?^b#qF`iXqGxGrVqu6io<Wg@
zVxy^^iG{hjiMf#is4g+EG&Zw<Ct`TKff6#ZE_hTMfa+fZb9gu+dCmxwh><lJTUhED
zTbP=g7%7;To9Y=EfqV)p5Ro;45;2NKOJh9?6C)D?a|L5_V?9%I14ARY8<91F5;3wy
z69ZE{BMVbQBQpg<6C*uC3sZA=Xu|!59+aTG3~edkNGG5$v;b`iBQaYWff6#ZMngk$
zJqt@i6BA1Xb3;o#BQrx&OU#PgNY4nAz>qas80Z<88yK1z87r8X8tNHXn1QMpXwwWi
zL_i4)S)-Yep1F~!v5BRLf|-G#p1FaMu_Zi6kTrs097Usvo`t2ciHW(Tf{CH2o`Hdh
zCDww(2o#*i8ZAJLEn{N^V`DQtLqh{YORO=69;Bcm*~Hk;)WlN3$Pkp<jZIDAi3}cf
z=(>nXmX-?9#>fsd29=AT79^<EYOZH)Vu7fj;AI_#CPZOkY;2%sYHVz1i0M8&x<DD$
z(hRw#0T)4*3ehHpB)2?_^o$MAG@6;}8Jn9LnHpLsn3<aBSr{3Bn!eB!0{0fEqCvF}
zT85h$n&?>?nwlD6OOD2%_B*mG4UH`H42>+!6-+EZ`Pv-R1AtnEl%|Y9EpilX#uj=O
zCYI))=9`(Ro`snqsQAUA5!5V4(P(0>XJTLoYVH|X80(oLTII;rnV<!Up^2%UxuGd2
z!5bNy>lqpt7+Js@WXKv#(KH%cf_guuW`-sTrluBpM(~J6)?|i7lc}M(iK&@_iKU62
zxrvd5DYm3<Y>uYU#K=g`)WFij(on&~#7NKFz`_Jkd4LlMIMz%+XDE?a02x~-M4KRM
zG&BNrAB@cuOij)7Obm^U3^1#CLr`oZYl7u66LWJt0|NtNgzJ#Q1C)}Hb%9EJQzJuD
zLsJD417kfC6GKo%fEn2)pp=ZF(NfRS#L`^B*u+%N(!$)p5?h>^pgYpcOwYj5+|tw-
z)HpNLGc&cYz*=6JfD$FLb)d{*X=VWGh8Y<f>6x3E7$Ax)c*%nq1<;IRh^Iz00VOPC
zyG#rX^ej!xj4Uh_%ngk6jLa=S?PM%r0!m!S8j<QKGgD(wPB*cD#~e~Dn4rf3s1CNY
zuuw2HFw!$IHAJ-fAqfi<isqm*?}$lQh`_+mhAS`-1rI3Lk!?cpk*S`6k*P5vq9Kkm
zQiwJ+Ai3iMYCWQAgF4R4&{)sd#L^72gfrGNH9)h=9F&|)jTMZ|EcGmm&5RI*Jv_9H
z^-K-Xbs6dz7@L_W7#o=D8CV#a8^MQ9kaeN^3)J<oFfao3M~py47Pu{q(M~efGc`uD
z4xXD0Ee!Qc&5bO~vD#;Xrp?Si57go`Ft$)IG&a{WG6A&^VD=#*8Qqz%VgOIu-B{1m
z6wNYF02&xsnt?l8MtYV;Miz*Q9XV9Y(KVV|>RDPEm>C-?m>7bZ$rhl24D`HWtY>P0
zp%K)2G&i#_S1>d-1+}luOt6NFCAvmSGd)9N14~mw1q&lRV<RI23nO?d9+D(MF<?e=
z2hUi~43xf*HJX{~nHicHnpj#Yn3)^vnHd@yAX*_v!D0qVV#pc|jScn8jEu}p%@xcH
zP4!GoO$?1OO9Ep(Gf?!QXfy%^qM?zg3Ai(FX=G+-f-NhUq5ILyRL|1f9Mo7c)Uz-#
zGdF>k$B5hwN@B>C!O{w7l*Rx{gVR{g3|))4nVzw+8MqH>WN4~qWNBexgw<o96ozb<
znW3JMxh1Il#+RDWeFbwN-qdVnrVwq4Y?rZ-g`R=AnVF@bf+?u!V_;xmfGusAfl@Q7
zMl(H2P?(!4m{=I<nOGVdV-I~$qD0ncVql_Y0T~oBHZ=nc;#na2Ye)&j96f~@8<~R|
zN|uHSMxfMeVQGS8T+R?ZFp-L7Lo*9KGZPDAL$o|#q7ZFHbg`V4nO<519%x3<V_~Xi
zY-VX`Vri^kXlkryYGiB*4@N|)GDEisT9R9WGL*TcIigU8<W5tCXftDyhi5^3YgBDe
zYYYty^~}soO%SCj!f6(0Rw0F(iKV%og|UU9F+AMh(PW}$ZiueY$W+h3%+$nK!N}M^
z&)m?=#2B8xAie^Hf*G-OG{S|J3ejdL+MvEN1EmHtb5PKu7p5k9=0<3`%#8HR3`{Hy
zOpFxFjEwax%uJ1pF~=E9^vsRXG=c{AL3z>yG{j+!S<rx5$mm)?gK@^jpf0hofrXx_
zk-4E6JS>pI5EReIUNZ*u9w7sIW}rYcHn6aSCnsc$=4dt=n;7U>n3x!wDVP`;>KR*D
zSQugT9C}z9gTm0#(#*(0!N?NSaWXSD!sb#7P;8^P)W}HBz|;iPDF)Tq#>R$-{y(DT
z1?4alU5L)7p&_U#ZE9fvw+@m>Kt8h|c_<6iPgICDL)K_$VyI_qZfR&~reJ1ns%LI)
zX=siuAzOeV97Us%nVyA#iMffTf~m2ko}q<>g$d?JgNdF6$ag3jjg9n7EzFEfEEP;F
z%=HY6O$<yi3w{$l3sAJ9Xf&|UGdDH|jj|gXT7r6(CRiF=CVCd29E7aV6go@~8n`qu
zz#enx0cvidX9lXR4ULWUEG<n95aksj-q0P0R45pl8tR!MI$MxPvrvdOHzsym37)e-
z<7}wfpgG&z*h0_561g#ll=dyqEwePyGcYkS1{F6ZX2yD^CT2#KSR>jJ&6S|ezp=T2
znSrT-p`{rp*BD}Hx|rx$8lY=5G|)3KGB!0eRxmUIwL2{>u}sMs8KP-J3PsRBu!X6q
z33@<UDnwft84)><>sgYT3!W-N(E$%b13gm<W2A`$uyWA6A6DfCpiw*%BMbNt0a&>)
zx_h9en}HfR7KSE>X*jTQ&;%hi(?Qcn24;rlX7KC)R&I*RbYo-CumfoH6I!w((hRx>
zkOS4oQqRKBz!)*80#2QvWM*kf?4Sd}CS!$Y6m3X0nVOmF8CaTGAbOz)Z6>(2f#z?`
z%q&gJ;AJyHn<;K>py3}A149!;D-z-_LxpHVP~XQuftXG&JPVoXSz_q4G}AM)G%_+Z
zHdHV(GSf3RH3L<Y(7;F537W`6u@ls`urRZ*G%->z1vh}OR6M47mY}Ij6nz#3dZ1xa
z1ru`%JtGrCMB5D6HWPFof~J4XEKN;K%@qvI4D^gljg7FhPE7SILG!dI_JM|Oj7`lg
zO$-&xEDiNcO)U(u4F8zwS(>5S39eBMObtLo*2b2478a(4h)Ek{*P5g2GzJaBo0%Gz
z87r88)*)DeY=!ktk#$;N=ro6S{XmUgLlbO6aG?2542_7cpOKM;p0R<s38I;UDBv+X
ziIliO6{n@8kqN?+2z{7dM5@uz2aq7C6r5trK?^oWOr?ef1|Z)dYc)3jwPOuHLq_JH
zIaxy!Q!I75sh*($IE5o?1&vJ@T3T9|DVQ0U>sgqX8Y3nKk)p!T0Gv{hb%Mre&5Vr{
zObyKSj4cfe5Upqwec-f;tk2NE7}Uiwumm;AO!W+njIfOxf*cD@tSDMdO!N$lEJ5RU
zMwS+OW~K(%#y5??v52e>))zE1H3KyV4H3;%NL+yY1{yjexx_Fu0NI72)zAPm0&8Ju
z07~2zdX{E}Mp&9jAn$<^4T@F^P-s{hm>L=>m>65=85$cJBi1pX1S%+FplCHTFw(Oy
zHU+gdjg5`<Ow0^GqxYBvm7#&9LbM^OR*-rlOH%_A1tUvCJp(gCOL%36NZ}YZ!o$?k
zQqRD`)Z7$acq24n*ag>Q4w_=IG(;4Na800U3DtpcO(uq*E;dpIL=F?s04}ONV>44w
zTin7#!PL-5&(zG)7||9-(Fw{FC_!RuVXg=2y&8ie!c@=5!~n~398*2e3=vvjniv@A
znHifJ85t`WTbSyZ8=IP9>8XIUVx&1^OH(})0}D|13p4{|Vq$4vjM>QnX$55|RQH-1
z=$RWC8d(@C7@C2qDRWZ;c#jMbvY7rvDy6XZJ3teah9KXNo;5&252#v^hPKQN4fTu-
z4Y7=LfIJAwR4A4jnwWvg40BT>@Z^`Ji6PP=8kD#MWhxY{ppjEUQ&STQbMT0c1(p>>
zAS*%X8%3X)p`M|srKy6cfw7*ErHKV*R|ljGl)_Q8S(xcr8k<@un1GkNm>M9OcF4{I
zCvp^hhK8WNjtMBW7@J$@85o(FBid^yT0yahrqx8x+|<(CRKeK5P|wuF&;ZMDD5z)w
zRXG?s&5SKU6F#6xSxX}`r1BKSQc!9|(+XM<VQOh&u3%^aYH?VYB9=9wXa%KKRIMfk
zdWPmEW){W@7RGu8CfLh3BT(s&qR-gGT+i6V0yNTWW?`vkYG`1By{-aR0H|8cL0S#W
zjUWq5EU}EJf&vI55f~dAf||}|#uf^upkAz*iGc+?W1;vGBO!o>5X?*rOpT2dOiYdR
z3=ND;5!DW|R?ti@YCZwA$xJOREDX&QKy%p^1{T=e3!1h?*J-L}VPS4;sQ_}hiJ=i_
z1OrPg0Ghc)*J+|>Vq&CVWM&2$xidpdZ9=L@aBP^6(_AqIryXRihK81UCZ^^_mWB#u
z24;GuMh3<fSW7x%aN0rD3Sa(&C+!$xxYpRzNYB8;%*f1C!OYB9&(hq~0DIao2A4g^
zRvH^y>KPcDgF@02w4&3%+!(Rw1kq6e7d$BXkP25z(1fLl5u!YY1S-fbV<Tb*2v8CY
z$T}3QCZNF*a|=T=3w%pYKnwRksT@tKsh**kiJ7^vf~lE>p0Tkx_R`K6l*mzZ8XK8`
z8)T-&;03})#s;Q{Nj_xvf+m3t(X<-rSy-Bb7VVmtndw;?T38^O5GYzf1s;l4P|w2v
zl()<jjLktSzl_bXOyQe?*2XGCquFX^s%L6!W@c)nU}OneXkZ9(0G1qL0!p>0wi<xe
zu^Jj!C>R=<>KPdr8JVMw(ScUV7#f=rJE4i<M^HjX(F$7LWNrYO!N;81MbQaL>L@zR
zjP(pG%*+)`Obql)O$@Lt4+I4bIPD=j7Bu?+T6l}U2VnwEJt+E2jP%S*4GqEbP9}PW
zhL*+_nBz>QdWN7mSk&+VE!;ITGzG2RF)=p)tw%CPlys0R0=CYQ*cmxQcEr>N8=^4<
zElfdL=Zeq+PTnYXLG>7!f@V~WED_@x$WdSls#igaP~dGOV@q>AQ*$$8BNGL4BT$3T
z#0as_9z`oSl_6URYP4Ednp;{Zn1R-cn44OdV=giQ1tvJfpy)I*(=#(RG_o*PFaxz&
z%#bEGQS1b#7!;kxpa~7o!bB4b3q4ayOQZ!;C_2Gu21Tb4XnY+s<!)jK8g2wfFP7Y7
z3NEftbebCKnOT@v8ki{<8k*@Dm{=GfMl2vv4~h;GQ(`AZP#g-1eH5*rnRH7FGtgE9
z6C)En69WU#(p#uY5iMj;Orq$6^*ul%7N`qM;mHPEf1_wZ8Z-d4Sqx204H4sqDDK4Y
zqA@7Bn3|aw8!H%DnCY2Vn3!W(iwP>OL4yFOwi<(`E=@q421Af@EkIiXV52JF5QVtZ
zlGq_XWS4>_jSWqZwHg{3=owllm>ZaZYEyH>h%JgXP+CLLW&uhjrV6IU#-RBhL<x$b
z3zS+=beVy=Qf8)>rbY^&)l}w&#^%^tn`YpcM|P*B5onu;u>xog$=J*kwA=t1?Z{Sw
zW>?YtXJ`moI%sNOs$c{fbpkEEgLiRJw1Vm<bl1Y>{_!+YKr?EnRvKGc>X{lCo0=$?
zfl5OY19L<x48=xJ-bb+!G>L3!WNdC`t^iuwW@u;$S`~)PpBNEhY-ykeTAN^GiLvDZ
zkuN~S6pDpNNgTBB(a6{WM+yK<IHLK|!d%b7(9*)fRKdbR&%oHg0;zcmNvEI?H8mr)
zU4+PqnEIdvIG&jkQ$0g-P`QR;pP`Y7o~fZ3XgI~p)KU*=OblTesH{NI1S=~{OhE%_
z7UtLnH$X9mRTJhi1%yqY&_~gP6#4{w2FgjOT8-e%E;Az&J!2Dd9KA(zP)<VC3K|_U
zHv-M4fktpGEG&^`DN)iVs8~bQYGkHoWM*k;YM}t?=$e?C8z2UmAaM=~PBWq>%aE<J
z02PI(TFvxKK{LH(;B}ssmWEjSY@o?oLlk}HW}v+X=B9>b3Z|B(dd7wpW(HXEJZN$h
zRjUPPY|0!oDgj!|guT}fni)ma1=@>YW^SoqY;K@uZfR+Ob?Ds?G{1?e&kQu+Yi@2}
zY^h*mW};^bn%aZUA)$l~C;_1O5i~w&X=!9&ssLJLVPXQ>SOBXfP;`RgA4MmqZi2Sh
zL5tgsK}(Ra>I6kUs!mHIJqvRSa|;s%GZPa~+?XNu5h7a(no>mdDR?N%!W6XF%hb|9
z&(gxk7|WUg&?+!c=0~*^G|pgTXl`IaV2s)llq*rS8iS_s4MDpvK%H?*$fPEg@)SIw
zf~M6%&&=G+$XvnL)Kt&R$QaaPz@`&3d_n7mjLkspAka283j+hBQ9P7T!V<vn2B#rt
z7RTHGv2h7WrxAGS0M)sm%_SzL3ZVIGV`EEf+gd=K9n8Q*lp_`fdd8L}@K!1$JA=wB
zGgFcmEP(6+mjuXKLDhtzrG=@Xxq_J)Xmf-Kmfa#CouJAM#Zog9JtIp)BL!1)1JF(t
zW2|!&M&Lnw6n*BPCZeT+sgb#!g_#-lfg2<6h%<^dQ*%9I&@L%Z2i3^T!WglV4mlD)
zTeA#N^jUybxS4=v#1xDy4fM<n43Ks*p=iYjR&z^G8E#@~09t5e23m1!jAacxXcHVb
zks}AIv5|?Mk&%%RXs-&W48bwBWdt6`MRBjO31~&5iMffHg0ZQw9%zpdmK7Z!OTont
zs->VkkY>ilrr>=|rsl?=XocnvNYVj26lMAbwCxnvzGal)0cQ*pt*{1wp|PI1k%0wb
zoC(pm0jC;lnlNYl5Op$!Ba!N46H5y{V@L}J>M?{q49k%9fmUK-9|tkhGXjqpgDML|
zH`5q2`eJ5m2AcH+6<C&*#_*aB5|$wAK-)3kdWhQt4ju(V)dvko&{(Fai3OteMua1%
z6@^s~X4?iHX&`@r$`%xTpiw156H61&np6`5J@5)W_)rUqR!~uarqw{t(8$cv0yLS0
zo|7O!0&=DW>4R<{mx6L1idIW=(A<Ejf~mQ&o`JC`(pVBA#z9#CMH8%@2$~?WFtjv7
zloAL{pvnQeCNpEuu$ehxC=n$<K*<tCA7~ud$iTwb+(ZF1Xl`L{Xn|!7707d-q=Kr|
z$U@K3(9*(K!N?S}AQQBv99G{$f)eC4OG9D@yb!(vWm8mr(9~rF8czV7OMp282_9X;
zstMHDMeUoT1PLg<QS=#`fU>8Nk%gIpsez@QnYjgG;Vg<y4DW%4f{n~AOpQ$xjLpsU
z%q>i@t<^QtGXjsyqgrZdp=V?XUT0}&YNBUqX=H$icSIfn#XG7#q)}w73kg75fDA1y
zh+Q0o>_KBt_Ce8VVWwwlZejvj5sPOS5adBnLPOCCTJdFQW@e}W>Km9ES%4-Jprs#*
zouFifqS4G$&j@tfgOQ1`9%yw1Vo5%VK5#T5dlPxhi;0<@g#~E14V#VNXhhbDv~$VA
z2(<Xx!WeUQ59CR3Y#{42HZs+-GypA@Fa_;lG{-ih4AKZr;3yi+O!Uman|KvWL4^ir
z`UBozM?^oSK1B3mmZFeM2-?MNK=h_`upZE8ype%1$r%@mK4``Tl`Tfb#-Kr9EKz`|
z5488o#K_RZ+yYCn1TQE+o4`=riBwyH)(RRL8=1iyo(OG53emW=f%fGZ8ki%-s3AdO
z2-0Io>`qODU7!;S43PC9Infl<PBO4GM6CFRM>S|H&Ip%2%n}XaMv%WiOHPQZ&EeSx
zv=kHMJru2=1Ziqy3fhQgYGJNtX>N$vn2zur=l~29ZAiW|G6Z$AK?`(IY6Z~DiIE}c
z3kyM;>Cp5+6PKwuXe*tW5n{*>;Xu&Q6sVR#H5prgcC(n6Beu~cXO^VuIVPnf=Hw(=
z85tOu6qhSRW4F=R%s|h;#2C~{g(hd1=G2_>#Eirwkbd*50-XAdK`Va{)9?`8$;p}d
zIh9t1mX?-@ICUCY=ouK8fkyFBY|cq8P0CCyDoO>}Y?z8uzmcW6o`H$ECE~ahh}|gq
zjZ#Z+*$*CdHnA{4l)_N`IjOmcc`2D7>rIkzTW=0pDrkwci~v)+X<;!=+f6~|e1J|`
zfF&s`+Dp=LYBx5~GcYwWLoB$$)NYoPi&MLyk)EZwu?1qD9-=)rv8XD&G&8>x?0eIy
zLR<!bPW&+dok9Vh|AHEjnwOHFlL(4=qf(sKgO6)4H8)1=dO_7~WME)co{H0M6H7fy
za|@)tDyHu244k@+EcFbG42%#<a4~hK;?`|ou4idtXoA>!iJ{v(4`-4CEt#<}1|9l=
z8tHk7c`4wGYF>e1Gg2{xIRXl?JTE1+s5n2*%Fxo>Fa;yfkqt03*E2P?K$>WS7*J4<
zlbTcsO7P}oN$3HGtRJ))6tw;Z-iScgZ&6Z)N57e+8EC<tA!0i-M1OHfW@-`0decIT
z6o+KJnFVMYHN1ZW*6Wm*o>7#T3({<!l7`Q2&>A@-(Ah31Vegcfk(`*514^)#6?ypd
zn;7dMof`qQJU0m(Zx&e?<pi?3L8nPsn3^G$)<Ja_C6*Q!gUdOK3cTS4TGeM@23nkr
zTvR$GA`CDu!0UJeBRvBnbEFw^3>TPJVw6=#UN8lng<)c0hM4@qFu)=YU(z!*1@D1H
z+8hTnAPExn#+li8LLamb$H3Ug0Ij@pN-RoAO$DWV3xjNoY=`WABhaC4Miz*@E->qh
z5|i^mv2T%zFX@?rTc^gxnEr?B&q&7OeiKX3rb*Po(kZbBtl7xGz#ydppJvb&Zpcy&
zwCFF&EC!`~;}m>uH!(HQvotkF8WDo~J-^%vG<s8!iO+Tu6FpGl0<pOWS-X*efoTf9
zq-O%&Wn^iFSdECR9c(+kG7mJz09qV^IFSiWyJa4}5(~6S74^IZRPC0A85ngeQnE3&
zG}N;+GcrXqp^>$N{9cGJ--23ZCKkpfh{;Vf?PeAD9B*uH2s*6>bPgAKyh9?+xCmde
z0X6MF$Ect+&Opg7zdR(fASbm5PqZ7Gf*OYK#cB|TrzYls(wkW+MtcxB&_JUpX68nS
z!w{jGvs3emOHwnzMwsMb)bGef7=YS_;5{WMK2HS|)E1^yRd^f@Y8RRsff@*?1$}B!
zdTwGKsH`xvD8pyD5oqh4sR7c$K&bnR@)C2v-cQcLXTP}_=zI#Kc?k^d__CXksi~fc
zr4eXb9IDshwrAoi=!}d(%fw7f5G%~kY&Xro=nEhPyb)+|w5cg*A0?XYCHXmtxtXBi
z!n_=>_YFWzOEaWleV7BFCKwqQn5W~*HK4YoiKV$QVq*su6Us{QL;<LM2|9!WF)xiU
zp`--dwlyxoS6dmH8h{!qpjC0m!BAM5m{$Vsnj&}lkb=+9*iz5Z!q5n@rxjvxeriT8
zq?$9&#+PLcL7Rn5Kua)D(=L+!G<>C{g}I)InTaK63IpnHNOv0CxkcWGi+6Aw!_6h&
zf&xW9wC{<dN$QkelwY2inhdH~jUhQ5t8VP=QDog_+2HaSn{FJfNvHhcTu=uDG_7xB
zh*hJxsh+8UA=1!3#K%R6c`2!RNvTEYsYM`{8x>cA5*bz_u(bx!^&97cvl>?Ypsgro
zCP)YSV0VIPMhZ?R;AmB1xFQwYEXL{z9PP@Y#JplFLrXKmVsK)`rqvWQ`D$WeggDC)
z>Vf>cyv*$UGEg~bnvFBv;A&46A#1O~tsO^e5?Q+$qz{PI@!*Bdn61g8{QT^+%+#C|
zkn7EI!Hp`c`mwhL!Nmi3_z9aPtWChu<cyTW3~;Sx45`(yY6Y$3H8nRyZ@rcl<)nfe
zfCg3I#xqvEI9h+DMJ3=aqosK<xH!kE7f0I-p|=2Bkz&<r1X}lIfV5K_l0Zs}OHy<4
zAps2TabVR9I^zlDm@Tko=fs@k#PmFH0d7`_(`p>eF6YFYl=4(aU(Y-fTnA&b8%MLr
zIk6zWswy)z2jX~>Qk;$l&7GK-m?6zhLmiK5KsLAn!s-G;3q2DH3#4`X*bFeu23LXD
z48YL@Li2)IDYzEKY5?{&47vdY;JOH_0oYqHXa*RU;7qnS+A(MbnB&efI9f7j23REH
z^a74%2$})rWjG6HL(q<2L!`CI*kaK<72Iva7KVnP6(FX_Gu_w>FfGAZyyIw%p!vWo
z1!w*TZC^1kGO|D$Sw=R%(9+TvGH!y+3zneKG802n#Kv`OUNFnT=>l^zJxdGFDF*N<
zBy0wlmtzDXQlrcqbkdQbg(2cVNUUaLVnige8Q4d@kV690uFb_L6p+loHhhI<fN2s&
zo<=qR`w$kI8RnJXJ|%K=Ae#Z2k~IPCgGXs$qMMP5*B#g!FV2ZYIr)&n*&M%q?9C1&
z{bsosRX>s+aI`&;^qXXZJE%Cq07v5kNxvy(^?+<Y_SOfIe)CF<q7_*`_T~q&{v^Eq
z$KL#KPAn?Qhg5GCRT$M9lKt3PA~4OM!KgHhW-qd4(9F3ZC`+OxAc*Bg1_p)|_;P^>
z_Q5P9`;E)-+K;_0grwgv318rwU?0vx(r=ap9?!y&cucUjYmoGtq+qm6ki!pq(<V8w
zs3b8Dqw$EO5yw~*L?gIUio?Y?nnMtcph;bnP7<<>*vFqh8dHn#I@QcT56j4tb7E0h
zVonCQ@n?~U(fmQS8Al5!H8~&De>b$WFfRs=xa06Lt_DzQZc<TVUOu?ZY?_8IkKh;t
za!xHOOUx@tEq2Z?0gwEfm*T5>jBvE0Fie3AzT@%@j>c3*CS>-(I1^uKfvY72(`}ju
z9!<k#w-IQf(bNdBhZItI!gQNKriO9p#y*_noRe6T4Vtk6)tO270uWat3}ygmhPe`>
z^?;O;a0~?@yTGszuM4mb1tA+?T!OE_1FhZx9p8aAoaLO8nFi{Cf#y21FdCuAKEOUE
zgsi_5V~hkzKdv?y!hZ8ieD-6GDM3;ILcc{8Mo$^Ze#|BuWK0TlLx-U`vCB}<?KDjU
z$2y9B{9{r`0cM&A9zw;c8AoFg;ajt8aB{(_8AmHIKRG)UG@fDsF0-)d#M(B@Pl5F|
z%`(AN5>}nq2eX{>)AK+R@t`>hNPUD=Gmh3ELbF*aIBj9ojH4Nd&}?1?P8e7<<7fjS
zG@BOVv>8_e5TV%u(uTlhGp^QOeoiWQ3fwpsXUf7ciRql5o0^jY9+faH!5L9FrZAoJ
zi=cD=CE#)xtCO+MULv&Sfhz#4T5+@$;kIUgYeB494b1gS%uNi@CjL@Va}u44N~>J*
zbCZfPtH2{UX*h!nTU!&02^PuV20J!q;Ak+qBqkN*mltP4g1r)Fu;ZBhbV)4BOo3KG
zCK=%J53A+aN5EWC-BNQhlfhH>&@l+Cy0NzvQFY_YA~>c#k#(CD;LIa9W<Fg~T~fgf
zFmv2NhNHpgl3ENN7dJP^0M~cee2int5~9_}z`&>oXUU6W+zp{M3p`ka)mAKXm2iE=
zkjYA{`iw30u#D8fwVIdV_9*sAPM6H&Y*3CcP5}@7W3?1}+ZLn~TuB(F<17b2XUQ5E
zU`&g;<maSAN8F3ST@P&5;%E{h^coj{2m7(=#Xcj7q&E$xca1<>J<JU)(dOb@@^dru
z(o0jp<%dZM&Ts}DBX3{`I%fzvp#^RTxRfPA%3FgBoFyOVG9d#~jFziwVlgb+r{T<c
zM%X7YQ&UoKSHw7)s;(J1sYT$~6thI|2otsd#?eZ3%`8TmGB+&-56WQGkG+xVnv<EA
z4oZ$@i8$j2#~`6=PEIDs)fSdnICCtH;X#;IOM`TrbqkJ(PMB5;%PgFJ#nB#xYc<Ab
zWFa?3F%FgmrzeDF@Yor05F=~GK3xgX3@Y3TF(MdAH;(B_*P_hi?BrB%sbN+I9?QjH
zJ+?NYYZ+*&4%Cf;3}oZdihbnJwIZ`9GcB<QJl|!Wf-m6AuuOQCCFZ0SW#%X4=VO%2
z$o|GYPwAFeln5OyG)cl2>Soy2t|9A(EI`8HcN~pHB>kqD7^NnX`*E}vk@c5h^azmk
zn}gO8SehUX#sDWdB>iTPd1hSh$3EJKtUm*z<VLpN1ayL!p&?@X0J{C=#Tcz8Wc}Dj
zE0OHS(v(2fkG=5<(+@h5vk<TQvA1Ah`ax+w8(;ikYk?wZHZ8-KcyTm7k@TCT;d8tR
z_R&hW#L}GXJjjX=vr>GiA4l`mEfL&TF)sxVmEuS_IF{bQ^rmC99g$)UN8{5iwWuf&
zwCWJFa1S#1hQo3k!<A{NMQKHedC5honR)oi8ypQuB>OFmAd4n(*^i}7h^*Tr5novg
zx*fw3a}AqYW=>{7L26z$WXULGu`@0QU|+-LmXny5m=0M-XPk*qEh9w%jv+{715A=I
z+KR{qU>|)%Ho&+DU*f~jc5^Gr&w;czElTkPB95hOZlzh7;DuyHkm)iU;fKBD7m!g|
z9F$t-q6fNI1$0VgH0ay|#Chq+-p9Ta&OJXP6_WGJ%P|@m$l9@wT_S78m-BHn2i^0F
z%R%etj0_Ac(lA=RNY>+M61tb>m1IDiZ<L5H1L0W0hNR!P3SY60W7rZ&zexs0%MjW9
z*oQ6MOG`39g@-{Ec>Etn+~a8Dc_gM}W#(okXQZZq)@PX|;)?)W<Bs5cRLJ*t5nc<I
zk(!YMT84$93pUz_eZbHo6}+m)(xenpHz6PH1=ESWISJKiZk7!hRKcPXM^n-xGcP5v
z9F(;zO_L!>8=GeA1BM>?l{w(?41;9w^cgn4g05pU#hg6$C<XN~%nNY47fa(2swodr
z`(kq^_Tfd3^2EG!Q0yBN;S5<b>`hLDR>*)mRxe^7mxOCIgG^Uo)r!5L3fBsqD#E4}
zM;jHc)eN#P2&-1?J2N0!L9?-iI71k8R)~oiM$6PQJtws|GZ8#VW}b&LG2j>s^~^8I
zgbXmH;*1|0L!k(*(3S<3RAGv}HHpw#gxkB=$1^jFixN|FvP$!kA;lRMOHHuPc|&x9
zT0|v~y>8gz2S*FgD=|4g2{aG^T0m2VGw0xF{vqo&ErkqYU~@P2(Mz~)&}4rFWZ)H>
zZbQ(S#mEO8f;$dg8JT&|_KQU&q!7oV8AtQa3$ps(EECdhz@`y&HW22X3Gc*=yzqRS
zr7(`cL+`|lO2{;A6{Mkz%|a{<MeoGSywaS+%)C_aW(D&koJj*mLlMmYvvNo~4V(4Y
zn~B~T`K3kRHokEYq?*Q}7e@;bNpB*~w1H!4+B-8TDF-qRnFMKGV6zwdgtT`~X)$=B
z%hD8gipJio^Uh1n$$>O$OtNr>6^^NF@4Wm1Pz_|9i8GRM3<i4V<yU}onn708W6Qrd
zh626wGs`lIOTZ<aX(i4w2m2a8WX)#K!3QkCjH3yNtlPX8X9VL|K8UQ_v=TCKfz590
zBZ`@MX*uAvCfI@sN0ZSzzcMiwoC{5}Ap>OC?8Dw%^hwN3%1ngpku-zsa>HgbjyZ0h
z#Jt3e#JrHA)ZC;TXpb2>tBA!3m<>j7dFPXwn4AGlB#=c}$o3<(cX6yTgzGjhhP3vP
zEJoIiedgFF72G5<&x1@*Vb_aoTo9_!A{8TLB3TN$6%ETi2p{m2nmJ@uCl245VINS0
zX@zuaaX1(IoHInLSt4Xm0*6-YO+u*FGRSB%4z1YRbr7u<Nx2wh9dbBfZ`gtI0(cb^
zjxfT}sPicW$Ek5PMq!0yC61<<Z(?FmNopRrX=Yr4FO*HOkNUw4FtoHZDS-6-u?HBA
zHkxl@Y6@s~jfHsyMiq|ie(ZyGaNQQraR(fBV{fVXCZ^{l=7EP^jFT`*5+vJkwAXwS
zi%K#ffoBdKxWH~djy9WbVhLpFm_Zh#<B3Bz_7#S3-G&ADN&*~%c5vMWc*_wS!*+1p
z=2cbrQaX-Sn=j~8hbnLpZU&wE#qM<+qjtWjkZCC6Bz(mYwjHN%osgYKIC2_}9Tzao
zCYAV-DvlN$Tyr_T5(&qQtZ!y|UMhIEq@`gwz5vHDE9;w?lU|gc3mPafh8#hH!{<0!
zalV<wpwVSROEdFQjDY~8jDll;FBfmof@4_EH$Np2Jd0&ofzg0Nwi5fOoNs<cacW*>
zaAHbUBIN89bIgt_vN704=X~??p$EsLVKi-!bz`63^)1cLNX&x_Z5mhLD_(Jo?!gT(
zw6rvY4zFR)DcBo^zNOju8L-xpaUNb5VBa0$TMBMR8(Lae7Gd=4kU{{*w6AYzPDx^J
zB4kyKc{#oc0>|txiV3Dw_=-9ltu_=B%&PFY0mnEYiV5b>btBm00khEuS)FJO8t+3s
z*NpHeA&RYLkghR`39xZL>?4N0m5_A;78X_DffKA+u@4!-wOT?B!N95&dkfPqF*`B0
zv<O_bn-+q*^VoFb7;*GVECX#i0JV-y)4^?2teUZpI3jC?%spe(jJ>6aq}dFz%@(U>
z>}^fI{KV|kVsPnN0d7ZN)r)1&(l0+Nvk2TgHi0bg!Kx8^D;1&FI1N0UfK@N{kxL}K
zMc~2}t6uEQRD@oWBybBEn_e7kRfJySJluM*k3b^ynr4BkP^|W1pWH_1HN%~(a5Qm|
z^cLZEGxkYsB)v&EGa-(%V371e7V2R0FSf~Oghum3aB+!MBlaOkgkB5CNIF)%*tgsu
z^qMDwM-i~<#Xf<Jq!%*$h*dB4hA={}MH;w0h*dB4p-aE~qLh-d)RYp?VOIu_4XjwT
zV_$jcmtO{3Qf*NLZkJ)zjD6tKuQU(3TrCS{y27#Q(qG*pF)t?{bohw55l(w?w7yX^
zSK`)<ec%*DH@Ggv=4BiWcmJGR$Oso?D?V18*!TLtb!Oo#V6nCLVcN_fN3dbF5c{G{
zm`)4GzHqEMv9H;L>&ydp6R_&UzGl<ExTGjE8@wpi61qAMt8VN=y!pi?Mfn)b3}_<(
zN5>!_u@rm+jVYvQhRrq{gTio~kUkhzo!Hk41f-@WfzBBK?Ye@DCt=l$eVu1OYEf#H
zQ)*FqPG(|S8n~HZhPx`k(X|LjEy~F)Eh&M7w0RZIc)~uo9FSU6lwVQ;8n&>sgzP)R
z>I3XsodQyeiZj6{nV1%V`%+l-V((A{<frEsXF?Wxm_rWX#HJg2XCR<BF{cD_z?XS4
zxGR8FueqTfma}dGOH+$dLC1fB)>lE+M`6{CeV8{WF(n^-AfI_U&YA&74<aZrE3qgs
z7vg8*Vw^1<9D~I{i6up#h_Wz;9MFT+(T1QS95J?~2c?!mPM)+V0S~QV)rx(XIVdwV
zJ+%l_saTj~;7naO`YS=1sl}kiq@_hN&hiyUM+L6cvIL{`jMQ1famo%vH|Ts<$o>yx
z4<qZw-roqyEGPgSJYs2@gwZ@h){VX25R{)%lnGkD?VAc27&3tzWro8I*v6<aj4-Xl
zs4I{hf@8=T!xZxZyry7poClRAWkPn};_?9Y#x+<Us3T!eh0j(T&Fi4j^z_WsB5)OJ
zo&{dXj>CE!<H5)Vm_d%B!({;WhITNhP=@qq%qzenCb;xtA5RWW%uIodmzY5&l5uIr
z-rh#mj@SFxXZ?c{bJ7!2z`<t<Sp$p9dhEl|Nct@xD=cv7$37q(3|+}(T7@s@aEwL=
zC+4Mq&YA+XWKB~rN)Duyk7GDGI57`89&Mh4(QiQ3j{O9n;KcIGWavN-<O~rUp2smF
zU7Vben4Joqk;kPGdm}tJIU_d{+=92Xfb4t5r5}4c9Ht+<a~7k1LGn0`_B4`yi$aW+
zJhFc5E$ZOpOwfEL=st^byw+piJ|CQ#n3I+dURPiO+3JJC`#9D#1gB=Ef$A#I!sj%6
znFhzGcyLByMrMj`aAFRm+OohH>Ou|z>`i8LGb{}fA&U`lc?Em>8N(Pu0>)r(NC#&m
zLdpQV(Sf5y9h{L_lnB|&Z(4~jIB^WMBk6~ZSmOu-9Btd+%v^B4(9$3iUm=2H=|gaK
zeo+dfjc8hd(V0eyNE{0wg7dTUbKu)3p<5Yoc>sGG7tM$weDxrXVRJMi3h;RZds{g;
zKL@(92yZ&Xv7#b4A2L5>mI_{og~R_iR@4UPmt+=Y=7ZNjnkM7*y%FfvOCtlclK_wn
zfKIRBasl>+FR}rq6&T}INT~qFwku=<%!=`40vt_XWCKhyFnUQyF2K<cMmE5#7^4M_
zWB{%Kdkb(+n%J8(!7DqEErk?<$l9SDaU5-LWW5$Ckj6VU-Pi~0QFKGjbG5*x8++Ru
zS+{u=B($;U#xZ7(tlKOXw{Gl%_9(gw!7J0Sxg5tz;o$tz;$rY1fH7qCE>^wRo9HR2
z!TF_-zJ@tu=O$Lo*w=Xk7l2On1P`5<Wk7m|SV9a(Gd;K@F)1}K5uC%#N+3BLn{MnI
zy@E>;i}I5)^NO=U7h+f#lt3~lHUn_9(UA-QRr=8Uh0OpQjr0=G;yO?})1n+Qj(|-s
zjutvxuUR^ze!`{~NAtWSAJnY|E!H-H+=PKG#&8U$2bbjMfz}~fT0(Y_V$+IkG(EVa
z2)wlzJXU030@)gfRWtSx_2AOt;_S>k@Rms9Y@ES`V`ErIVr5P~`0!ZM6r9NnM|(ab
zwX(Pvbn^(r>Cp2)u{s_5z<Nl29(2iQ6{JUxC8}^7Ulmf6pOOMTNZ-;Ja)ks|d$FHg
z6;fQ9m6@Gb4$j!-={Pe8j&lW2wO8OQk#LMrqiTm-nS#ynIGWR;pgrB72~6{JNac?u
z&~UV*LrXHjbM=OnW=4=Ll*slX*IC#{V8Rl!Ga=j9Eg;w2;L?u05&<7K3qHRKmp<&(
zM_7JN4(yl$$i8qK`f*es$oipeR-`aP@;0_XA0*8t<&a)04$au>A0++ekVU(=9FKk8
zI6N^uAF?#Y+@K87(!pUr_Nn9W#LT?%qRjLR&|smZIkdHj!w4)h$mNMS82JM^$gt1<
zh9~BwfQJ~3A<KDi`5F5lRd^y~$BbnfWbz2RYjIS5V9lUYgrJkhI5cCg`@&PfljRm=
z809FEpK)v?DNoG=pT&*du0z&|y}k>F>I99;K@XO}5nwoWlZ2;&<{C1S!8_H=(;%xN
zaCjX1$WnP~C1hj-hc4{nN#PlpCE&%OhR}5!*mYy8_CQ)eNz%duI{b-4t2yW{5F;}K
z)QcV9x=pho10pzdn}MzZF*Y?sy@RJbGbaaj2mp?NHUV7)YH5OWaUr+`9-g0{0zH1f
z403G}F8#)!Ye&rt%;DE%g7rt{7iELmHAav#tZ`{JGSUOxX@GVoLR4aQMq&|k^b$IY
zjl<uDhM*f%jL||ZDg%_UKut2}+&gyN#-Q80E#a5<fgO&d6{9(bl)yo^r5l(Sn4zA2
z8wDNjuqeTopN&mHhuat$qTNLh1se4OwM31L(=n=AWUEa;7rPl+!mgsTvjZ&xP0Hdj
zGBPt$Fi^-(%Hp!I(GRICNY(dEElEsCEJ@_j4=znA0f|KT`sn+l=B1ZpC>WZW7~9zu
zmlUNY=5pECR}>^BXQ!4ZB&DWj=Gm&h-@RX5Av48RJ>1mSz_-9TH6zobswg$M$}c3j
zDm&RSMcv+x%f>!2B|j-uw<57XH!U-#B(<nmA+<Q!R>?WY$4v>Opu(ymw;(sQBvGLv
zHz%*ys=`(sti>v?*a{@9udV=AQj%?}9^o6HP?DdYlbu<jV5DcMXQ*pvtfP=tl$e`Z
zo?n!$V5n!NZpUR)l#*r@<l+W3uqY+XRz0Jnq`*pFzr4I$uiRKKzbIWFbpD{efswwE
zk#12+nr?ArUP)qwZeFpnI#gd~1YBEQu^!k>ddc~@`k4{>hI$72FpFGLi<65o3raHc
z^Atc9Cnn{Wme{JB8kweArWl#%CR(PN>KYoRCh8g(7#Qd#o0%pXB^sxsnHreFY$`x<
zA&ON6DQWtKddB+db~XhmX;uM6`6;EzsYP}vWtj!V3fc<p0X_=u8TrK}5GN=EhxsW4
z1i9)4x%#*|2D>U)=$RYY=%Z-m0-NNWT3Mc7lu~S`p$U<P3vk)!gM5MHD`<csiID5h
zirfP1L0XYm01Z={irfM#-~5!!v`Ux6l2kh*149E{12bI%vk)T#D+3EFLvvjN6DtD)
z8+|mDTwtxvMX8A;sl;eSQi-HBzbGU>KgZ4|F(frYp**uBLm{KG0Cc5cngS^GC#I)D
zEC%a_DyC(KB^LPl;t#XjTu=@Hsk3s)PcF?(%`5SAAu|2xQ!j2)lHtxQC@snXXR(xI
z{nVUPkc*1-4fPE5)fG~bt<v&~auZ8z)e{Q}ax#+>LHP!hLe=eTQj)DoGD~t&?Z6q>
zF{cE=$jJm{NUNO0ymVXj3f+{{w8YY!5_NFW1try-Ogl&nfOY62Oi4+$N(Lo|{33`!
z!KsB1MouQCX0RkkGh9nbvQ-KqZ$or~RY5HUWgRFJVn0|CWCV&fEZGSx6y)M&$7Q1r
zF55umoE?_}l>qe&LX`Qbc`3H)<)9KhH7^BPBfx4EM3n+7pfpG+pftJk!MQ0jKM#~|
zHC(Jfncl$6zzlTK0yw{`8yKi-a_Rf#rw~v9HYmSH15f_d<kAlTr7{goaGjTxnp^^6
zI+m7X<QIWhu%b{y6JBvv6s4wd87LSTnVEBeN^uBQFf%nZHdRPd0E?NL7#SE?DuAUF
z^1xz-2FAt)#%3sD2Bs#4rY7iOhGrI^su`pisu#pGFf>KgYhYku4!XYxBneXoveyFD
zUISATBST{YRK1oKCYI=WEzFHgP0-X?m>Gla0tQ)O0JFo=(A>np9MwDvGb2MYG%-s<
zW6;$+D0(f-42+G8QT19Hn3;fXw+AVN*<oR7X>5$4&Iojo6G$1{Ef%Kc7RG4dVqs~B
z5q=h?rbg&tZ((k3i5|`t=0+9<MriIcH#0^LQwwuL15-mZb!L_(=y7CWW?^K6ZXW1b
zFf=!tniv@yqJ^KSiIEBDTn&(iVc}wGVq}IMex@cy=H}>W$i&Ff2qPUB8-OMxP|Y(o
zLJvPv6Juiw3sk>>PKz)>^RKCiv6&@?Ka4F*Fzht}-}a4auZf{4hJQ_r4KeI6F#(-P
zji%Sk5YrBGbF}ngY61#qbbpu{SYX&;iX{w8G2-0R#MIOT!wyq3OALRQTA-&5Qxh`-
z1B|dTGc?8U2Png#yV(qMPc0}2;OXAf#LUbH!yjhmpzTE<g|PHuVP<Y-fo3o0pa^5M
zG-+yLh9$k28(3iY*WAb$!@uUnmKbg^H#I@C*VM$^%o4-D<`$+Hc32pomoKI!7KUaR
zc32pr=QmRm3llR8J1nr|84GiB41ZWyf^L{c4nI>9O9S-qvoJF=M9*86#%4yC>B`c`
z7{e`=Si;KE)Wifm&MnO>G4iyfg$YK!w6ris7c<0+4^Ul!UPc%g85pCNb*82U1{h&r
zYG7!I9!I7I#-`|QHZ?HCh!0Z(GxRiRYHDC%gzjcj155PqvoJF?K(8Aujm$y!zks3$
zkrzx24Kd0vQ$r*4GTYSD&;%p@ni`s7<X=-mbBugxYG{d(-%O1RFv>|&BhY=BXznvI
zF~SHdBU4NCJZNfUj*-SqjV#gYZc|fZ1B|p`YHWm2PMR8<pr=z%8wE2i!50;xx!D*q
zFPNGbSYr6Y#0b3|VQOk(Vu%sHCZ-l>Z3|OV6La+VH8nM{G{guOQv-~$9aNvAmj|Y%
z#+dFiHN~iBOij%V(cEHTW@3b%&n=BWLqcfz($v(#3?na?8DP}Ore=m1Wv8i`F-F;G
zYG#5_cAA=*VU(SwX66`Wr>U7GM%fAS8hW{AYHoy?uFNsoDyF99pu5=7(t)`-Mj2*m
zZh@KpEDSK+Vqt{QrZKfJ#!LqmrWkDtQwwv<vdO~23?uzn8lblwO-(HgG4rLRu_;=d
zo0?jh8lac4rj}-yVP$DygsIok9KCEeGcZJNKbx8v7#pDLH8U{5umjY=K~K+S2Id%P
z$jksVl7|{cW`>5Cb{HCAl+R{{7;$c4W^9JuR<Sg+G(c~&T7arIG=Eqcnwp}wPc6(0
zLD!?BxX;qi$QUENm>HU)*GHyihGrP`zM+L7db=G|Z=si`2F8YF80o;w&>USaC|hFW
zBQqldGxRdY%*e<HJ#Cm78C#--fvK61DSG&snt>`Qv~t7D$O658WNK!NS#Fpa8-hl^
zK>-MB!-0wojI?WJY-)&J4w)I7VTP%(1xEfgGcmx(TV^JP7<tRg1f#!YYG#62UYVJg
znWDG#%uFmW>Hsqnj5^-b%+$~XBkWBv+a+eECYW(#YKERpP0dWrF~iT)5;Km>4AH~S
z!qn2z2+bds1|}BheI^T23p4cgfrX`sp#gf?WM*cB(e^O|1uA;lFf+wytC*RYW0a?6
zW|kP`shPO}MmyHb+{hTc{xvf<#!UC-re+xF+1wnXtTQvWz$mlLEDSK}C^HKq^m^6Q
z%);0lBYrJRjWNQ?0<$k^W?_NRwlK2<UC0f}9*FjznWZ6m9GRL~8e_DT%`8m~G3>Q8
zLvKG@n3|cR=T!>}BNO!gn}w-~5k@*NH!(&p+bzruEz!$yOLJob^tiMzH^AuUS(;gx
zp@$VHq|nobCFFid^l-7j%v+Wg7;Py-3v=|m3Mx<0%Nzp}BXf+ll(~TcMjV+N7-96!
z%?&{JsG_>h+`tqgothh%W7K8l1{UaH3Toz{=U-EEL+}k~AWIY=V{Qhf=7z@Tels;U
zG%-i7Yt0SK(8rrh%?-^l#y89jEltt$mbsB3Mmc0|WMqL}f0!GYV2q7`nr7(bxVe!T
zMt=}gC!^U5iVyUBX<&+_4lp+|$0+~IjVv+4&)C2mJ%5-R8)3A~%#BS9(A;8bZj8|u
zFf}(eM;~XfFtad6FLNwSjSbP$nyI<51xA@@Zi3myG&eCa#0X~-V~jLzZeohjk1{vG
zEOX3FEHKl!DMns3H8(ZHD0j_GjnVU}skx~MM%%~S6m+pWD48P4FmqE2%sgXiiC#9D
znwuG7<{2~4wQgwUnVF!MO{V5%W|(1RW{$-UON@4`xw!#GKiS+IvyEwPZh|p}XKrq4
zhLK)Cn$hY(b90Qk*3{g>0Hgh4ZefVgcQywdHHmJXg)v5Z$k5URy$uJ-Gw5}rftiUR
zW*WD^>`R(km}Ar_<`x#1X~PnWKP(L~(}pGHxQe-@DMr0&ZfS;@S1m0t(}txbh8-3L
zhUj_F)WQI?rUNw%S%4ZpXklt$U}lP5pIaDMV5BS1t=H&n3kyR-jB?Gw&=@0}EeuUC
z+6)$kW*B1`7KY{+Wvqpv1$w<|3aWn5+zg6e^l>f&b5kP&^m@SpV;;xA6x6LnGtbn*
z$QWY`%EHJ5Jzbev7-9A=EsQYR$`(eJ7;Q%j%()m-3u7aUzOIF_31&DOn_<+e7RKfn
zb(w{+CB_(@g$d^Pi-ifse2S@s31%D9!o(C~yu`x99HXyhVS-uSTYv@>(bJ!)5k|db
zVTxJaTbP<+)aMqaW*Fs$1(vaT3o`?ZG7QwQMepxhm|^yhEX+(W#sw_Q%+S-CsfC%j
z1$td;VP=UjJ_MR*!bp?mm}7kw<`{EmrWWRy{R#_n%(j4qxg}=)1!ZdVu(vS6X!BcG
zV73J;EKD);uLb5fl7)o@MxA0|X@Jqzv#>Nm@0XccSQ?|ZsZA{`O-<0pzAP-wG0PWA
zjQK%RO9KOp_5rA?fgVSe2F4iWpQQn4B^_$nX=z}F(FU<JFvsX48X1_NkAZ^9A&l`2
z3sZB9G-PRDff3G@hFJVzh&di+X=sd5Mpzn}VvGw|8k%9$6_$n=<&}k*xdHmPt)+>X
z2}T>v($Es4PPQ~M#Ar8J8W~~aRZAlijCP`>kr_t(S{j+7&+D368i8&uLyIFU^P!f;
zn0;qUW6bd@OJmIZ2HFvZ))qCe0JQ*7^O1q2sX0bnW@&7O-c~lXG&aYmyDg0^(c{Cy
z%oJk|!_wFobBxE*#1Nw|WNBiA(HF8bF~Jzmwlp!t$ZwV=<{0xSmL?V$b)KcE0mk@{
zrKu4{8Ea{3j4=jfX=;j|7fdZp%`nPNOH&K<d}L~AhB=RDX$HDL2`wF%8Dr*sGZTz@
z)zZuiqc3D>W{xrEU}=WgN3=A@>?2y5WA+g(%}p@IEiBE=Fxr2X=H?jfKTC7W`oq$~
z0HY6UX<>vueqd^8VT2K;Muy;feL;Z*>raEyE_z?m(7?<XeeT56(!vB|Y~2zxvVxiy
zOf5kxE-=I}){U52T4IhfSXvrkw7o4YF~^%MEln}%4@=B(A5%+9jImNPkmu3bv1SGa
zhUjCFW(Eev=ysSH7?_~v88ZV=%M;bVpj3*UXUq%?EYaIdpjHWbyUEPJ5M$m7G!211
z&R}L>XolWyGBYs5m;*O6FtkKZ<7Ng%hUjBoW(Gz^==1ELSul(?rja4W+_s^C8AhAI
z5H#hAHuh>}U}S=xx6BNT%rO0CWPx6<ni&{bqR)q#85kR)kLiP!Bcb;p%nXc8(Azm?
z2F7M+>$wcf42;du>t8biV~qJ)GXoQhd15mI6C?EU%FMvT1k)cTrkH8X1Y?ZW%)rC~
zy}w{)U}}I~r<fU-8lu<9W(KAhZ2>a_&`JRGbPAf7#1O-n%QrJHwZIsAFfz12k4r;C
zb2Ie%$k50fL!FrcDEFh=Yi5XE4w)HXuAMP6Ff+jn7c(>Tc_A|cGYbQ>aX2#rGfVXO
zEi(hqfFinE%rV+3W(MXa=;NYh2IgkyW9w!H=H}>QcxDFXmgx1WnSlky{DPT*1x7!>
z%)r6~GmTrAqR)w#fz}S9^()K_EHL_hW(Jl9=;K3X29`$X<H}|RmKc3MGXqOg%rLMt
zNAF*n8CYVBmzWtE7@&`3m>C)vVw97H2F4iWq@jT+MmcF{V1_==Zf0m;f!;0wO{Job
zAD9^$8lv~<K(j~a?PoJXLsN`0!q5<-A7Ex^Xo23(GcyF8?}e7G42>|>hnX1~8Dpd&
zLn9OPwKHahm}AIhhDH|X^Q)khOc-h0(AW^Y?`&phY=pjU#LUpx1ic+$W@v1N-mWt<
zG&V;c|1&c*w!}!Mh9(B+Z4fg<6U?+`XkvoiPcbvZQci+~k<jaILlZ1%4YZgEJ?u>}
z);yURni^rWMU9M1(aTsvBXf*-IzwY~jC$3=%mibtq@|H5#yFRSnXv_W9bjo>V2M%p
zfT~&y|C*Yik7<FY-qFiCLsN|Y5okIdGd|2P<^#+O%`o%6p&7<lshOdfIr<tZGegiM
zA9~oE8(`G&hM-9n40RaeyJm*w7;Bi#3^CUoni-m7)KO-J78vvKW}vPv+L!`pWe=wN
zEHK7s%|OeL(Z;>a3@t1$)4hcyW;k17%!`{DT4JmvF#~Pv!mtC>$w3b*ON{=48R*I?
zv~f((Dtq+taWf+WL-cqvH8Qe9Z@+-jIC@!ZXkw1hXEHM~z*x6wW@KQ3K3)P^mVrLz
zVP<4tj?sQGGO$D+_c1dv#B8$~85*Ix&&<fs1l@0DMuw&s<-L)iIYyZcYSW;%S&fV^
z)`f$XlAw=Km>C%vqmNOT85v>pb<K>7%+TkyEzFFK(Z>%g4K0k(>r2q8SM)xKrJ;!#
z`Z%=(sFFwXhozw*#$2=oXl)d_Is+2}^zgGVwZL3w1e%V=NNYwIYxm8Jj4Uzgcq3y&
z%y=_4L~l=;g0=^s*#Sy_=z0x7YtYd1w2?8!{Jxoyu_;C$$H>?mqi!@Z#u&#mGcqwi
zAEz-h!knu#Gcqy8XkQtbV3uK^tpMm{wvh?Onj$kJQv;0h#mLkUqmN@`YK)$LK}(r1
z)2XQ$M*G0X)B=6H&ddnZdqyjBj4;=?n;DrIqo)@$BhX?Y482&&4KoXjeyEX|C1xC%
zW42$6%#F~;n$3*NG1lRk8JU}*=NXU~dOH@hn*_a1HUy=6wEEW&v_umvO_~{*W9-*3
zGcw1Ra|JKCLmPiKGqNy3Uz=iPWMP6ner0B4VTztV%#1)20_fq4rOj_-i80?}W@L%6
zN5ag=(ik&LEiu*<nHgD{qmL(oW~?#FSYrbNj55~Pzz}`>%EHvl0KE-tVPR;F9v^1L
z2F4ieQ)2^T^t#s6$QYw71&TNHzJZ~Ip(#cm(b&KYqb+J|fU(BG%-FyZqfcUNh_Rm9
z3^YW6-Y+vY#29NfGd48EsHcq$G1iQk85?5E?U)%G8DNIJ5oWv2*a&kx!Wh&*MN31*
zMwsIfplM08yZ{<yMPF9{s>(3K)EKjFG&VLxuk*}|jWOo)%#4jK(B}xuj7<zM$~9vX
z%sR!`1Y@m`nX!opM*rN{#0;bVYixo!eqd~ZSvG-|ZK9V4Ag`g-t7gWgCg^jsX2zyw
z=yNP)#-LRl=<#8SIR*t9zCtfcjLnSD*SeS)o0*{JEzlBS%rG!B$BauejCJ8=#^wg-
z^JQkn<{0C)X2#~2ZFysJjQKn>V{?qPY9KN6_P8l%st9c^29$r%>qbLM%=NZr#^zYU
z&jL$cwJ^erBMTFZ@dINEjJ3{Y#unxn<E+M@$xrmSv@}4UpD{DG#F(QpGq%K%S1nD^
z=Tpo;MIA;uu(Uug6G2OaG2CZjV1zL~X<~qxS4|8s^QsA!@fQ;VjJ;o=Wj7e(2PTFX
zb2ersh8T12W+sLv=<^WZWzFdRH8I4@t0sn)81*V>-z<7rY+{75ugJ{A$ONPRVPa&4
z(N-}rGDmNVnt}FdqPIm&j14fxsz67spshbJGcm^4hihhHY>F}NZDMSWzTe8s#MlDU
z4in6Nw~2`n#+Z?bi7{qanP85&nV6Viv^z~e8}!i9xQQwHUTFg}6H`Ns{-B8|#{L;I
z6H`;nG-+yvG2UciiaAbgVrq##$7f~&8s$NEAE>s)5W`sKVP*na+>N0Qb8f=K40CS6
z1an`TnTa`;v}SIC-YzjSF~`^oYGz_?jxi=^f;k2SYI$SEuZ0n2*jt!j^m|M|yR^~$
zYhjMQ?*z080AtM81k1Rxi6v$m#Kh7BWBdxVbsZyLTAHJ;!3AwMz?gqCH88*!w>32|
zLZ7QNGc_>ANJFLu7;8w)ObyI1#v@D(F!ukNnHpfOZ3GP+qK(}cS{h@lp*J!xwy;D~
zXJ%?>fRWEl4UI6yOH2(h+vui-m~C`Z&;T1+T$+LgtI)-a3^3*<OhJPl80s*~2vZ|0
z;b&xq(N8fovcRZUL0dx5<J{EP5Tm>YEx|=ECrv?(E_C-9n_;wpO^q!u=KV}fFxIu0
znVMkE2bh`|W7L<XCYb#N(8g`Fc8Qs(i3LXg&C~?5YyxdyMXxJBn?W(s252`ox_?bE
z=e$f!Ezsv{K}$(6%63!CHOFS4%}W^JY=$|8XNqO64YZdLy-vomm(dKgpdTa7%`xYl
zO)=NLnVFiKVx|pqbBw-$sX6AHm#GEDo*FaI0#6M8T9{ylpM@#<`ZY6C3(RqEQws}>
z^4Zi9W52VRsU=2vU<O(kgpr0UO)>f;rkHEr%s>k+(EA#og$n3>5>OW#eY^=Y3636b
zW?0&KpovpVJ23OKnIT3$-V8K3hT#^_L=#$iHp4R42AW{NaI>KWMn45K$c>(lK<AgB
z$FG@@F-Cc6W@Lg<7MmHFVU)$7ff`IZEHUZ|P}2gvpKNAqjJ_Vz%*@yXeH<8+voOjl
zGh+*kIY>~WA0u2$3^B%9%uI|i>RK}s6O2BDnF+>TOEb{2R}6ocVC+veGcz^BXbYH`
z8exoqnt?WvqsO_a8Ae;r%oJm<mKi96V7LV|Lyc~p8OGjqGtd$*jC26X{TO=9F~i=>
z5~CeqW^RB{o|>6s>@77jGsjp%1=<3LQP-N8W9*AIGc(877j0%{VSq7?X=Z^r4s2$D
zISy=QVT#cv1RY6)k*6&zFvj)Fu*_wdfo2`h!_N|Q3L|876?CtbnVF>t#+-<mCFXdn
znI*>BX)`lROZ0Vfpe3mo<0a+>m~C5g0~7Q)5i@fGQ;hj;a|4XE(`M!dmKgcX+z>O)
zLCgQp)0Md)##ta{=7t#iiOtLnG4`04nHyT5ucI|H2elN@!r9!&0DXMi)W{5D|D}<E
zF~<28MusLB``JM=xEN)axsfr(S{!pD%=u7rBh0x3b0f^T1al)xj55|7w80zQZ^oEo
z0OrOR>o(2IjWO4ZnHyW6uc-uWk;NEmF*m_DTg1%V#0X=K%G?BFf3lgm31-?gH!;WP
zbDEoA>`yi`H#NjeSEiU_|K^}mqR_*|)D)v_VQz}C{@x6<JpesVn}b$cp_>Pqt;7(+
z*b8rFj%Ci@9F$@(^jcty3z(Z@&YPN>8)4KH=Acc5=;oQ5V${>-=9v8ob90QneP-qs
z1{h-_p#5d&ZEDalW0+#5=<C-&MKMNQW^RG8FU!o_!V-O6!wl3EMQ_)cTVk9G23m29
zzQ4@O+!AA6*Ua1!WBoYj6cLQRm4yMu`Ea1sa2WF%76zDY0Sf~&^f6U43(x{Kv^cUb
zu*7H=TNoN*)KM0g=k}Oc7@A;=DS(cHLN8B2`@zuLrxu_Mf9P&8GDKfD3_7L_eLc0A
zg^>wHy0S1b#TYlUFv9FtSQuf}3l_$hW4RW_Mi}EN7RJUHX~V)8b3F}cYdv~f*}@nz
zZ&{dN_A4w*FvmPBOfc8dS(un&jH_6fm|>JJ7AEHC>x)f|%#G3K<Un-_`WUE@5$M!H
z^f)rX?2B8NV(e)!voOUt7tGAU6myN7g(>EEorS3x`kDzd3sZB9IZX>wON=o$3o}EE
zwuJ>~Mj727W+oVGO+m*;pqINAX69Jz!0ek^m>Xc!`xfR#81wO<?N;dJ73jD~jPzoT
zu@}Y6!W?rwgN20w`kG!d3kxHRxqMJjhhc{W#<_WB79fwHhZRT=UCa`54YP$M#@Y`v
z3rl0nat*Y}1j9Ux^BzD=R`fl_W|js97=0m21B^3L%s|dV@8^LJ4MDTl(!dO3?7`9i
zV{H$pCxpJP50pR9$1IJE%`7qcgO&!E{Qyft%=I9ah8Snen1S|#p{Ey1L(Ddur6I<?
zW6<#%82QN32ut`GVF^Fbq8;?GGQ!xSZDt8-v|^~k*mn#%#Smj$&k{6&j;`0(7^8h<
zX>5W~uUZ;ooW)>fX>5U!_brVrG3H1uK@(Ew_L^X>eX}&d+$RFsJcnMtS(;d2)LWJ&
z7-s~4k2yilgO;Y4{VhvVj5S_nmY~y%(A|uArjD7VsU`ZHtC=NeMK!u!Gt4%tC1}<Q
zLmg(lYH5aX-Uw*54@RF8G|Yt&R^}LcoXjlEG3RD2K?g6Oy9M*iGc!wbON_BTOACy>
zs-RqnvCadutq6Vm#nQqQqr3v`g~C*4fiZ_+X^A-oZ)u5HpIcfQqxb#HEI|nY-M^NY
z>nJQOG1|)J1_l`Cf|(l_7^2S|n;RHlj46PQi9zpgnHyl94QXy*fUyV5+yJy00M*Ur
z2AF5Pm>U=xqqpVF4Gb~Pt1>qLEl$QT4`WZOxq+c2`WQ0kXdCo3Mdk*e1&ZkA8DX?H
z%t3pX(8i_A4U8<%>lt$_dzZ{XdzaACxVeEb#=aAC17nQ&L30CRjD0rd2F4ikgWw~2
z(9)l&k%c*W8Zt5l#T=@CK|8fD!`|2uy`N`pU}A_~Zh(eg(92VE0}~VUb`I!xB=oUd
za|6tEH=xzy=woi6-X;1vebCAj^tmT<15=EBJLU$aX6XG;a|2V1vv$ElMri#va|1Js
zb5qO>K&vHD!_ORa1~%GUhq-|n#+jL*(L~HJ03C{jZXU=M3^9!T3+4vq#+Y%0x$XvZ
z${6|@DsuyKjQ!{41{N4+oSPe17^08ofKC=hUmt63V1d!s03H2=S-x0c?DYi=!=cyb
z<_4A+YY5B@EHTdLF*mR@LGN#w8(3nTX=e^Pq86=xX>MSNaZZQ1p#jF3h324b`RMU$
zXn=86F=*%zeVv=RA?BKQb3+4+v2}Ap&_*S+I5#xJIG5NQbPNkx{{wV%7W$a4IcS3(
zTAR?^&=BLCXmdj&1N60spy5vR_O7|1kqJgVH#9Ou?{|Y%LZJ7V%t6Bf=;fcG5#|}S
zMwS?71c1sW^fhRpUOf7`L(tAX^u8%*B{6y*$K22uW51QTp)tmKWpmJm2n;tHV~m5C
z8=4rRw`t4`O^nd%eRD$-jPr}l4Nc52{b7Q!&dA)*#1hjE(4qwN^a7fs#}LC<&kq`=
z#wec+L8o?M=*4I^nH!p6tc^D}G{fjif{tWEA8R%TRo!U)Esz+xI#VOiCU;b~fZ`l|
ztjfsT0OKrRb5IutBi_s`(buJ!8=8aeu|k={FgG+e!l-9J=W(O8$IT7RO)>L_ITp8=
zTcEGMHwP_WLvKeIS{R~_TbLVKV4SC5ZfJqAPRrcT!VEM2T3Ddx8FNER1N8Aub3@S1
z6Vz}vHw10=z!1YYuhbm0<PN>QGz2x4(exS_V4UM%Ze(DHQEnI+7^C;&&5b~tpfSwD
zSRZC?WMF|l4rguzD%{ca8e*KCWo~4MvG*Ue!WAP-jX;SP!#s?$h0Tqyv^$NAFxyQ=
zM#kv<L31N4?M@@iy`Z4u2{GzRBO^=nbzkO2#u)R&=0?UC=d*%FpwQ>;%#DmO&OHL%
z9)NzPiMf%nCHmNsIjE{YYm1s2nHZt(V+I|mh(7mZZUkDyhaS!*=IG-B=HQ9}U7ab$
zxo_r1rbd`)&C~=lt$|K^#xM_Ke%jo~6r<iUHv%2(jIP(r2&0W;WQMW78*~~J`dlSw
zsttX-9kg-=eJt192-Ffow-*$u7-AUvqd><>V#c{S#@SxxpgsNQ<)4v-0s7i=b0f^V
zQb5y#m~jre%>~_k7Ut;duFZ`s%+dQApivO?b$y^Z0Db(_$ifigoF~v~Ow91ZT*nAH
z4FG*U+1v<o9izFCr733kSz?^?WNu_>fzduS#yoe`+}Hr)ymfQXei!t1r?COXnH=WE
z2IlB%7tD<fEYRme&5aEW(8J2y*buXQZ)}J$9&2uFXo?X>#)f9-V{YcgnET_+jSVd^
z>NjH}1N64Csj(r(x(85PqPJB*w<=)Nzs5$GWt}moP(({>#zrO>Y1h~YV-2pku@S~P
z1#@E~OZ2f^b7NzSy{hKM#^CE2L5&O8**oUOm}gFz8ylOV&nKH38)Kw<b7NymjPV!H
z@^SQjfU$`YM*q^-1T*g&n_!&xYHn;|j*;$-O)%D(n;V-NV1~UZ#yU51V^fUrD|2I0
zjJ*Zs#-<o+aLtWPG4=tO8=DzmhJl$OW*Rrc*k21;LV(dvHa0Uu-$Q9`Y-WL(kIXRk
z7ML4@dNk<i${gb?M{{G$^PoUGWzgr^%#F=4&T%yd?PEdjzk!yAVTxhQ|ALO>MNg-o
zJcC{j8XJHvfkO9(g%L)bY>atMAZW!CMtj59!W?}r!5p+N2EDy&Y>9DZzqzrc5&GDx
zxiRK_JLblg7-O&IpnWkIdBGCn94d1Y1B`hvbI=xO^!|d0fiXsV!vu8Q8(LVIV4ewR
zZeoD3uh-lJG=PAv*AU~33h;6j^ftALp(*-$LUR*CGxYfia}z@g^z~-upnL2v%rn9`
z7tGwm2y<M;#K;7r%r-H?I8V^r1XS^(`^^aBOayZiV?*>cUgjpo#u#G?CdL?N{(z2U
z$7rva7-Q@MGB+`{L|^Y{ZeoJ5PQly+^S&5!6BCT{y+O-@F!HL23C6iw<|ZZ>=YyD=
zm}1roCZ-tcpUq87G1e)7c8Oq&ZJL;3+!ttWVrq$g?zFiH=wu=E_%Opbugcs6v|9^9
z9p-qB321R6hB}PBg61ZmkydndpxzLMm@)d?r@0AeAryu>47ZpX8yTUeaZnkC-hMVV
z#GJP`H!;UJ&m6Rz3;mo*a}x`UJ&)!l78q-p%uOsX_Wpy8A4gxuZEj+L*)}u5oGUjs
zvBYefnSc)5L=P8BV~l=<iKQv}zE5)#ON{wxa}!Go^nDKIrdaytpd-`K`){TO#u(#z
zrUn>iB%7NWVBD`^4!Sc8(>%=i1ye)JezK_{#=U~(riK`Ez2>H%NJk4RQ$vjP)aIs!
zmgx1MIp|no^s!;kAt~r%Ri;KJ7-4T}gmEsIIcOmOrg<1^TtO?}Fvg`!jWPSHrp6{1
z?RHaRj57kvO^q?ubAgOQpYsCc4|IQkn!D)jadT5+%=VC}F~+%S=B6eXXTXATG)Dbl
zYJzcQgE{DG7>u-GVvaF)XKI3RcapiOsUgO=w<(q~7IgI^dK<*l6k`v*Ip`8C^!^s;
zLMjaRnHiv;OJ{CshH<x|xv7~k#@vZ1XqOIpIyE!LD926BFz#(JH#IlFC|^v?G4}O>
zmWyKaO-(_m65U>N%&|jLa|`tKdgi7Um}7^gpu^hH&BHv$AGDJPecivgsf8J)`z$c_
zc!HL=qK^%mn}QBHMz_}zvmIdyI^Y&V9mahu=BAeBm~mujiN5yD9CTPGdRq!~P$hc0
zGBdzf?`UpjV1_Z)2Rb|uy^H{DbHEV8JZHk(4D)_4bI|=@n0hhR5}TVDnxpS`Ha9c0
z#K=dW1Dw#yKhRQQ4F4J#qu0NnQ&`Z?TrmgTtA*aqHZ#IlA7O50Y=G%LV<U`qBIr6k
z^u7@2;05%tD)1o&Xz2iSCL4Nx!OR3>t(AqTF~+!s1*jv65iTYeXLOsJnHZth$)?7}
z7<X)f%3X}|+1L_eO}@DqsL_h<4-<^DA<fM&?`1SMGqFV9&u$Ld{E86<ph^$j4$ONQ
zK}*Fk#sJJr&9T^FfxiC0+zfPTE4m$KnDZZ?4N@3!3EFIgp%-KQi@BK@#@UeOpbaG$
z@dlcWK{pRH5`rOyIsXB=W(w0h%=Q&%(Kbf8VPS|dKVxQrahHa<nFYq0ZF4gVj57w!
z%`7m^u{Jleu*4YW0!@Qq<Uvc!Ic77^qBis}u*6(PVP=UrE)UwvgC1|@1_l^qthoWk
z{WIpE1t#cWYHonJj>6mk<NOlP6*n053}`|gy^Ju&+-GeL+RKBU7eJGwn0hhxse?{5
z!5CWtRmtdaZf=BGPlNW}VAx?~ic!{qCIryScF^EDMpzkP+!tdG8o0$!XN+-HjyWjV
zW4Hy&ytuhB#yMV~6?Yi<95k4L-fjZzy}@vc3C3MV=AgYd=<P62XAL8cOfcKjpiT~2
z9R<2d7d?)QjV+DQ+i=Dvm}gyqZrs2a=Q77UbJ-l!7{!Ql&}DRJ`N-T9bB&xi=mc_f
zb!HgrZOzTijM3-7&B28`hF&xDI>p=^w6g<49p-ulb92n`5_8b(3A$c$%=HZBpw<+I
zI*fIo=AhwDv~mb^q8<7;7brf^+XBX>mKb|)%+1X)?tTQF%#6{8Ft@<C1I66j0&{%a
z+ydhq7IV;YDU9@IVS#CfCB``{Am?F>BY}?l$H*U+828?on_HS;w6Dx9G0xsGw=gik
zu*1Rta}AY+0meBj<`xE~=<8!aV(4ojOpQ%2&J6|KOoZNdF$PUMqvr(+1B`tq<`xE+
z^`(U&#@cgp3qy=E`^_z|%-dTSnqaIqvoOS118#0%h;gn9XxkXZ`XLL<y8+EDj4<{)
zgOU~cxRkjC=G`Xd7DgCn&YN2pVch#*Zh?76xVZ)B@HVu(Wnql5CK|NW4Sf%rxdrHe
zE)2aG`$Rxl0eybe+ycv-l7$Jz*$L*LyQ0wReb8M|==GL`3C5lG<`$+H_tu+Rm>Qz*
z)iSpL9R`B#573SD7-ATA>6(KMHpOrY=vD@Fy=EBagP4P^@kFn;EX*+4^5zz1m}71h
zW)|pkF`!jJ81qaP=7yMI51L6tcOPhE4?_%dT;2kdDlybqV$8=|fDT4PS7(8_HpRjM
zbIi>Gbh<T$UW~iW%`Ge}G5Y%!mKf)Jnp<F=kqo*~0DY_qbb~p@dN>P9%rPSiON_IH
z%`FWKG3F6L*N~%^#g+z`^&9AVD@=75_k5dMV&3y@ZfR(U5$BeMMi_B!X^3$iC}?Xb
z#yGVl=6R9kmYC;7np+wfVAN5dE4k3?GSIaE==sAEwAckLenIy$VT6GZ#`&0_Q}{6Q
zucfgO`aU^xOJfuC`U50}J_l)PjCpP?sGdQe?>4r;+*4z2X^gRV-5hiU8G3uy(!>BW
zj!ZDus#%&CV~oRDf+l>>!^#9>znZzF3C6v?=9Z>d>@~%lrvo()FyhD*bDj>gGzF~<
zY;I|4fqwqIxh3WqYUZGB9(vo`(hTEF6LU+@>0{{r#XLjJ+!C}K8ABcBJe?(I1uwcf
z&|v}?Vi;#@nuG3G!bs2N<{0gE&>c${ac*IVu?E-D0!zNcJVOoC48v%fSz2J6<7#ec
zfpMpRxuvB6`aWE9OVA~0=>E0DxNpbY($W;uZ<d&I@0OTrk1Px@=fEvMTZ7Q*ZVS*A
z9%yx*g@J)7`nZLKfq^-CyWPUT0AuXh!oU#Y4pj>SLnHLC2W@9Z-~VA@V2E)>0O%T2
z^mSFBQEK$DYYPJ-1N5<13(!(4v@#5IdjNWS*8+5h5n5ibFfhW{TL3zR0KE*eFu<Gx
zw=giqnBM|5$I;vE76zDm87&NqG43ZZH8#UI3l4OGF8bboV@u4lZ7d9oG467)FaRBF
zikki`3`{WEW)=n}7<*7H3`~sC&(s0kGLIR*CKz|9g08B?3_lZ$^{f^KriSQiL_o8(
z==GZgXo(y~{F-9iZ30@wh`!DPv{M?rYzOTWL?7D(ADw_!mRJ~o4q-wMKQoN8Xe>Zm
z=g`V43(yg(82QZ{<E&>31JLSPbUVy3&X2V)FgL}_N9N|}XVqDNwx?i(6)0rT?ZDhG
zZed`7aUQpYfrTmhIu8rbQbdgM#RB6D918<bqYK?$ON_C93j@&QiWurJ&KtHcurx<s
zCk?vV7=6tcsLP2yziI)xuLwOpK=&1)mj|HxiqPW{bYBr#{c8cbuL!N~wlFj_K(CW6
z3=J{QOgA(%Mjy+yFf=s9$TNn97=3IDLqm-IhlQaL##%ZHLnA}<b(R)}Mi}iJ3qvDQ
z^u1&jhDK)S``$rEfuOG!09_Z2Q63l?W31t`Ff_)vkJ-Y|7-Ox0g`u$-dY|3G(AWZ_
zj4(8|L~n~)7@8PjhN+1$`Wj&iLlcZMi7X6F%rNR1Llcbs>=uTYZBYwDQ;fS|EDS*_
zo6*v<p{WUa-@w8UbZ{evI&<{CfrX)|C8qm8w_c&^HN!Yh3p8AUz7EvF&<x{_QVT;f
zjClxCV{?qPwV=8Oz03hEk;5oY4b9Ba`=%C#W*B#=Sr~$L)S>&s9OE8T3q#PVF${GW
z_h?%fnwz7a|7T%nj<HV;G-QOnCd<Om!U&_R107k2QAS|y7q>99z^s1_Eil_nhL#2x
z^{OH01}SvESz_FyZDD9>ioV_lw9^QqOf<B_wAaW0<4h+DBLj?mUKXHZ%h1a|BLh?P
zwfh!Epv(8r+-zikSqB&yVw~{{8iqrk6R`j-_eL9I1g+9S?+=2md&ekqj0`c>Xj&K<
zVcfk8s`1e0tt_zI{bK>TM-07e2VJp=HpXpXWMqL+UKtr<oMB~QWQ?&k6nsTJdVOSM
zY>K|W(Za|W<9=NWBV!BnadZnK%(HPVj7$vC*YkspQNm~sVL6}Q!pH=pj}6Kl7-cc&
z2u_T!GBw0Vr=a78(c2|PrY0D9)d)+OXk==R(Kj#x-6)Kn{y+;UFvKwK^|b(P!NLf8
zGc)wD0?_R)===RFjLa-C+7?Ej-N@+nnj4|-`LQqpO_*V*!z_zI_uinTHB(~?jP*#M
zau<D#7wG7GjJm=IG-8ZlFXmbZBMZzr)W`zk%rgrk%&|iYP*%VQQwwwS{<MXW1;%~M
z7DkpBdu}a^EHT#KTY&ZxW27NVjJtF#j4Uz63M`B)Ez#GqTNr~nv1s99Y=E)X!@}6W
z1U;NVV(9T}YK(cOGAKUK$L~#y4NTF`d$j=FU4vf!85@{mv~7(IEHT<)#)gLI=T=yN
z?yf-(D`P{9waFHsyKB(W8Ysrm*Iio}W9~J#FgC)tOV<LlrWZXOfbOor@S73FoScQR
z5oUkJ7?fbp;|LU37-B}~=hs;n8)NoojEynQzp^j}9io9@9>$p~7RDw97-J*GCWh$a
zJ{F+mof!Vbyj#rF*uoNh`~{RY(9@NPiJ>L>`YQ`#%=PV{(__)seOVZrV77;hO)$oH
zEsRYK(AVZ!7@K139kDP5Ee=HwD^pX<bZUxmmYD@;dlW|604=aXH_yxnqfKKBx|Ie)
z9hQ6qS{Q_(&H{bD!onDIiVM0rbBwdhKvQiP<*Bhb##xgVplemp`-sNo7<)J@j6oxD
z==OqI=@?=dYXd;NbM*aX7RDABXPJSH9Yo(7ZUMTs03%IW8e;klbm;-QTP!jAOvaXG
z=wtd8#+DWsV_%>pcj$3$Vu0B`FflO3=tF>xN<<%%F#%mHjpjZR%rh=6Objsdj0xxf
z4s^YS80W`Ym>6Q5eQW``q6)n{1zkOW-Zuc{RrIkD6C*>6aszaC4SISpF*3oZqf9`T
z`JuZR)Ih)x!&ox`x`_^>FKJ?IgucJq!o=7Jy+3VgY-xr*mH{e<(Dx~sfY!2O#1ZD6
zAMkOO==};4V~n{)3(%e)jBqwF#7NI3CPo-z6rdwH(9<|*ITCvP20G3NBaTe4grBJa
zMjzJ1)Ci+5WMYc3<_@&f6uk@sg%$cbWE0R??HK;Wyzd<}9gopgHZjGxtHJ_wj}C@^
z%`o<AS(un%%n5^5C!)u%1?V0fj4(CBICIa!#0=x?9q=)v7;XXWj7Cqp=9pt6pkq@o
z;s~^Q2175#c?A|Gpb;^2bru+BxLBB2m|*n9O+bf<V(7)#BW7V@fjO38Vu^8HfrSa^
zutaq8EHT@YCYG4v$|jZ=YppCyEG;p{v`h^Q(Dz_jm>L*i^bt)BOwjkISeP1M+=m7_
zaUP@pW@=!G(Z&SbdxM@fu-toN0lN1Fy{t1e#5i-s!qm_lV_d-0&;osK%)->j0Aozc
z)W{J1EDH-$BaD6T7N$lRd#fx=jWG6KT9|?^@<fX_&;e{{Wtgc6=2|Ng&{Qf~oo8Zh
zVvf;1H3v;*q1s_-W@d!ZzBjYL=&M<p8e_~$T9{(47qtN0)q_?(o0=G4^zA|JLm&Gx
z0W~hr{9$2gY>3epGBw6H_tzA3eLPy6gUmxehXr)a6o!9IjWO=j105rb-WNADF~k`6
z2APLmznK~s8e@zjf$k>4^c%*UoP{aoS_2DHV~l$rOic_i&U^&fi#|RC$}$+^SEj}o
z>#i+KjV;jgDyZd+KBf;c4}A@(si7HWyVKOz0;BC{YHW$VrvbF%8>37#2NgP~>C^(W
zfDOHT1|2Pj7U!T{Kp1@&OCv+{{l6BL#^xA(7fTaU^gfBD0chX{)h(6=CKz`=S{j&Q
zoC$4dV1{w;x}~8Z#+(v(84sG@EJ5djp`{l~LlX=1@ij|B(B(vE?gL$ii<Sp14Kc?G
zEJ1h5quXHwI^+$_JkXdW+L)WAktxRhcuOO5jI|Y(##rtvH#Wl<Q?LZ>6GkiBK}%iG
z*I0v2>qD=5K+9Ut#}6z)1p>Nxp#4_p{smo1gI2~`nps$&=V?nbON@IsEJ17D(c{hB
z%n~E5nVJ})?{@(mNsd{+nPQxWVqt1(j?qRkHNzZZ1RZCN-mWt>$GFqS!qgmd4TdS^
zU8WYM7N+QJM+;NXVldRSVPR^CId5fVfN>Usg_!}yS*I4D;ZwA9Y5}@#3@uD8KzBBw
z_j}BYFz%PM0PWwxFb^~$hUR9_9w)Row=gp`#fT3xGmNu#EkKv`V7L!-S`NA$nD>%d
zm{}O0-yLEBx?2Z5-pnj4G3H1?_v4_40q9U(bbpu|m|@K8g3h@^4;ORL;elvwHaEn$
zW7xvn2;=TY3(&zcsCml}v@`{IolHqlVrEWi5togPf_`vjRjPs!=qPCYp#1z21w#b`
zg&+le&%CsJ1tSofOW)H)A=<{&&CJ={#n{ly)zr<v$<f8s!pz*v$i>mo$<n~c#l_r?
iu!>kNJ3Fr8lEk8tilWpsE<*#*Q98z4s;aL3Zd?G<f+D>D

literal 0
HcmV?d00001

diff --git a/References/PhysRevD.85.064041.pdf b/References/PhysRevD.85.064041.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..2d4d7235adf90820226bc9832923caf0c6ccda0a
GIT binary patch
literal 451547
zcmY!laB<T$)HC5#ef0SJWnL~bBU1$fh5V!}1sfZEpUk|}#G=fq)D#6neIErAQ$te|
zbA5jWGb2lVR|QiOOJhrYKLsNL{SXBcV+%`5OMMT8Xaz%4OEU#S152Y=J3HRgyp;T;
zEM5f!;N_|)N=<{<WM<0CWdH?+W(r`ILLN-a$jrh5T?}kEx;k?UOuZIHhUj{Y4b3sd
zj17!2)R`EYVu+cVnPZ5V8)LZ7*uvZZU7d*mrX41R#u#okF*38n&}(9V;bs$4V+=Q&
zn3<Vi=ry;*w8PQ}!yl#wrWp2`8d@5mn`dflgkhek38uZKW|(d^#S&JgmWG&avBV5N
zGh;)Ha5l3r#n5YRV1%L0+}IK$tjtY}F#Ky_V1^Or7AEExc32u%qN_7BFf>CC7efOR
z3-okgXlQAP?mj~!V^j2aGc+>ANT-HImS*VjVQ6k-j_wabb2Cc}do2tMFzmH3F-A{U
zMkbaRZZR@7HbFPf$kfaf-7Q9DMkW~MnOR_@aU*k6j5Ka!VQzvRM@E)r=IC}98(3JN
z$A__z0Y+FE8ygy-n`dlnWQHCF#wI2v=y7RmYGR2VrX~hP80CS9nYjhJ9j1n6Cg^c#
zYGQ1NMGPYhOij#9kla^Nl$e>5TExp`W1}COS(U0_W@(@wP?TB*E@v&w^@H;BOBBpN
z*-;@#-!m^QU%|}CM8N>Waf!A`GfXowGc~g?v@|w0G*2>3OiDIQOG!&IPc=zPv$Qa_
zvoSDDG)+!5PBAkyOfgF|NwP2oNu;Hjn<W|>B^syNfy!>K;*!Lo5=d!nz{{no>gw;t
z%LOaRK_$33q^<x}6{&gYB^e5a1_lQDZkahHsYUv3If*5yE~&}+DXIFd3WmmJmij&l
zhQ=1A`oRi@h87lfcEu${sfoF~Tot#H5)vMyBqYo}e&E=F1>fd5PGDqYX-s;<qr)Q;
z9@XbzVDdpl?$VAUdIw@;r<~ex<-@w>!;ISe$CPCfd3bu_d}s9*OV&vF@Urj~ynQe^
zL3DoEy9GIu8=Y=uP2DDGd3x2A=bl-<T_Gt4SXo5+uDYb{Tr+2nT0-W9XG{5?@)Y^m
zKI8~_C-OH~^23qaO2y|(_C>^Q_tU$^&2>Dg?q-QkkNs7#&>c7DrnmW?S-mz+(W=gP
ztBv{TD6v)VydpKX-B>#H<xzFj>s7iZpP0y7?!B~PX;jiHf#5&lE+=*V&sg&Of>z3|
zpp0#ShtxNGljNWNIrYt_nX5`vlMgjTD88M~cwYa-8Q-j{v#f5bJ$>-#Uu)i39_#g=
z_uYv6<bV8Y%K@eBYrPcJ*JrY<?WxhZQXHY4zpD7Q%;{8pv&I-%(?IQ~TRYND%<4b;
zYR{#&v+9)`Zq3ZuwXEd)+%I1WLgTi(-}h4!?9cYzlNOa1_V_wq<g1b$xv3mJs*h(z
zR&GiXPVJ5`QCs(QMpnqJqt>UDo<6v|Mss>tQ%qS^-pcngU+(GeyK>NHqtz+VRk@Qz
zER?r?|KYMcO27Qxg`;)%-d0VX=JJ)Rvq0aDk>`Zy(pgD%3G!!6R$J`Y@%7HRp!<iX
z-fHZgBjv5dI`y0X)96(tU$<`YJb3b1aJVV6S=7=sAvZU^x%tpleBP~c?n8HiczDil
zm>ReC?Ve3l<^2BTbJsn%qFK7sIKnn*;q^;j<UG53c87+CS^EE6{y0=^^Wv0c(_VLV
zck%5GIb^T9XOqgKXDQ!Su5J=j3$=aDJNx~IO*THyJ}qju-n?%ePiN+npp$$-tri9I
z9M7FRD%^05>um1z$*!CBZt+eD-7ziali}N$Vv^G3a^Lq&{QkjY6|<w)A+IvKw9k7}
zCT^_=jqBOTm!+XPhed5e@YkfS?%zpgyd75d2MRD5SxE_a3TdoZvSi7$YmGV_%*P}a
zHN8-BU=*=iJYka1uEeGlT?hIYRyzr@S~=g8IO{fH^2IBSxdCp%%xQ18@aV)j1Rq<{
z_O9H~hu<;BMKI+^$T0>JuB)6rUQ#EN9Ew{^tfV|NTpNlW^5jS{Ih-wXkl{3Qo7p(M
z@!<Odie`+>YOHdtDrt<JYy#~YTiX={PgoZ8=^mVMvhn1_N&g#!E{m`^&b_8C=U-t_
zCMKKp$nVCJFHZ9VXSwV4WX?}mpmDshV0zNa{#P>l->A>vzPCcZ%l7W(+*2lQ?WR7g
zv$Q&S)Za+0RWXa$Qe%)2ac<U&Q#+cK6RID}tF>mH;XlK#`jk7weBXqqh}=&MrV0|>
z5;qS0Xy}pW;gMV4_;3QNPI`S46U!691_ow^y;BxR@^Yo-r9d-1v|$J-!}61|Y;5!c
z64O(Q70iqbzy(=IWkIUGb7DziPJX(+Ut%s;$^t9}Qs|SIl$uklU<PU$C<N*Irj{h8
zB$gy9n1RZEg&;)J(+t!o0JUgsZ1i1Hi%W_Xj6qEdR3(=1g3K{5FTbQX+RPa23I#Jz
zHK`D!U}kItvRc6m)bs-L!NskD8K`Oi^Ua|0pfVAp9_&;FGh>j^K?-J|Y80dnR84|u
zsCl5O56p*}2da|5e5iRQQ1d|5gF;ZOzH@$FNopR*g`h?oNToTb#U7+!W)9T>YP5jG
zp)LS55<q+lLx>A4z&6L~g98{8l==aQMX7lu3TB`tvqF%5P<}~bNveW@zHe$uW};Jm
zMKmZZ%nXeb%q@*#^_`3I3orzOQj7CTi;_W+WCHdvQUrj55)#E=JHbJ$AC#J05^ZE)
zpl4!c25KOiS(@q@TbddeDHs`;>X}&>85o!=m>ZbtSy&hwn3~7xJLMOpq!xkQVh{_C
zN{y1#+ybl2ypp2CoXosz-8@50{ovB15>U$V$;`_}b_2-sINV@isb^>mZloi*!O~dI
zz{JeJ$dFVw7~ysUDB!WX!PwkH&&1T+z}Qd$;Ra)K3q4~q3j;%v-C&H{4aV@4jvg0=
zMrL}3mKFvEW(p=ICVGYzmIg*<3Pwhjdd5b^28PB8CZ<MuX2xa)h8U579O(LvHa7a9
zL7o~JB_#z``uZsqdMWvtdih1^`i2I2hK2^l`T-f0#X+fME_xQGdIn}D1}30*1L?7|
zLyj^~j=&yVhL#q37Dh%Ory3d?=~);X8W>nA7#W!885mm_7%CW=80#4uT3UjVE8%35
z46+_avH|5S>~1hJu+%d$HAZ)Xp^2V}nI*_MBsv05oPjbnc1IXn80i@rSXx?`Di|A@
z=^2}tf!g}U7Up`!MrH<vmI}s3W_sr476yi<#AG0RApt6fa5=(K&(hcglvj`)VQH#o
zXkuw;X+o+a@Pq`YNW<<3QzJ_~BMValV-p2q0~0+%Q*%&~H8nQTGc_<YFt$)IHZ;*Q
z1*K`C0>T7$4gwW#INV@t4vGy><RiPm#7NKB$i%?dj6^q>;&cPJGQsW!V<SsFGf)CF
zQ!p|!*E6*=1Qo8v#wL0e7N!P<3P$D@dIsi}28Kih1MZvwuE%gV!Ps2S#L^g4ZXr9t
z#7NKFz|z3bltee+P7Wsc3sh4xOG|Te1w#uXJyTOd149L4b4xu76C+RoVQHjiX<=+&
zU_?|fnBk5I+~p}KZ<?4`T3Q$(JHf(S&&<rsz|c&=kTf@#<8}k?g3{Q`K+oLL1YAfN
zSn8RXm>3wCDj1uY=@}SUf)a+Ik%69}v5|p+2~h!If!h(dOG;yNLp>uSQ*=jI80wip
zaw&<9FvOE8aTk@Q7J8Nj;9B0&T+h_d$iTo*!OR#O83rZ_h6ZMOmgbh0mS)6+Lt<%3
zMq*kTz6J-l-G)7Xm>K99fa1hR!NOb*G{9nDg5(lQb3FqCP~(Rrhv05?fE$j49Aa*+
zXKHE&YH=Zg#KK(9z{rHiECLS^Jh>H7a60Gb<QD}OBqpcY*yuYKn<<!?f|5^=ot?g0
zeqM=<jlP?qf|)5OGK2Kpj1<gFK?Q%1zMHXv8ED*3AxPiNL;*ZR1Y(*hn3;p}VUWI?
znSz-)C_4n{yO}GPfyUrK4SoH9qWt9G)RJiZ02ep?kkpEjSbf)u68B(GL)XSe-#r*)
z9jKKXgwg~t1qmUA9bAuou%kj+Voq_Yez32Cfu4a8QoF?zt*Hs}kxOcEa#3bMNq!O7
zgKn8Qsm2OspdloX`}6ZkoIovVUC=<Hu91O-f}w$-fr7b_Wh_`ZsQ07q;o;-%?WFCP
zQWjw5X5a)GUP&)jFgDQ-E=kP|Q!vnXPAu?9%}mcIQ7|(#){lU)O-u~+9gCB}?RyJj
zP_r4#)-^IP)%Pq(%*jl4%uCM!wf3De5{rUUOEmOL^po>*a})J_^{Y~g^7Xy-{q;lj
zOEQX5Q}r|TEA@T!1N2k$^Yc>mEA*4~i!&?qbM=e$^YvZyBlMH>GxUS?!}aqr^HTK_
z_0#oB^$SvqGV@dPL-f=13-t5!!7kKy)OXiU)pye`(l66@*7wx+&=1ltPAyB#)6db*
zs4U1x&C_?)57ST1&&kizL=IcD5+6_4LQ?^@ur<IMwvMo{HNYFTW=4pxH8sE<wua_J
zhOIv|Ttnd@3-z>qihdR}j0-@$vz*kl68*#y{glM?^wgr1q#XU?oW$Y`{Yd@7()^Ot
zB2c^|#RfDC3-!yv5tEi*T7(%lX_@*Z<@ulp0woDVR6*>}Pt8jK+293_I<P|^HdP_T
zV^UFKa&~G7*oCeT=YZLu_>Iy}%PdRPFVase201c@w>TRb<Hf1Dnc(Qv&(?R+_t5u4
zN&!$4Ay%d3=tt-$CYP3^>U--4>ZfF;7Nr(v7V8(}loq2T4NwVyoLBRb^HVbO()FDZ
zi&I@;obb#%$GqZ9INv2REiJVuH7_}}INH!s-v<(^IS?v0Gq1E*KdmS+xg;|`Pd}+B
zwJcRXIk6}|Pd_EUBqz1FI1|K3Oa_NvMrmGpVo_;sPGV_^etvp>UTU^}5y$~)nfhrt
zpaE6bn1?ASZ6Y}pPbvl%i{L^4ql5sZVp9XO62dD0mWmDWrebq5c*-?5BdJsX6$YSU
zAVohJobjPa4V3>uxgV72v1WNthKD8wNS+79J1Ew3^gZ-l^&Rzt^}Y2Y^~3dj^~3ai
z^xgE!_0ux-3-wDOrGS2beuRD?I7@&MEu=UCr)y9N1TJsDr4_goK}i>&Ak0t7iq`jZ
zb_S(|6a_O2aLp16o1KKzH2L5`C~&VB6e0TXG~%0>9F(7%m<JaCnF3Y<Dw9z{JhP~{
z1XPYHn3(AMBtqFnMn>>q36SxI;P^yT2?}Q51QDbko|#gTQ5<b#YM@|jY^(sH4HQfb
zh{GTqpy~>S%?&LS%*@ObKr{%0*k*<%3g#AuU~Fsw3K$R%Bx7k}4pC`gr~p@GXrW+g
zYJ_46Xn-H05Ipb(vkXLo9cpT%U}9np)&`<Mj)I9Bfd`;K27*`?#>QY(Fj<f|SO=&p
zizEkfIwSx<b_@q>YKlBF4r$NeOnd0%6-v@WX%1jbdWJ@ZgpwYpwL&22A;KRVTSy5K
z6u-!E0!lgt@B{<mfiNfzK^USMl-xkE4N3t9;Isr%V*pNeVDn9l;G!Tk5LskfAnpOF
z1*I4m4N6rYHVA{*ARQnYWHU$%h7A-zNgsqkvLI2ADF)zlYhq%KQc#1Mow(u#)XV~n
zsDdjPcyZv3+>C(7iLrq`yf`qlFd!5spjHk%PC#J=!XW=ZFep?&EKqoYFvt(4W=7xw
z1H=av95BCu<&a_w8y}<=gh6J4u%#iS*Z{>82!lcp6bm3%fY=}mvIi7~AT~(O!on0B
zYal*M9Y`;T4Uz|mgD||H0ToY%Cg6e&Qrv-ThQtEMji5Mz(IC4(Y!C*y6NF)GPyq&F
zBV&+yklSGDKyo0vK{N=1%!b&8PJ(1X7+oCVLXf!-8SH8xatIQk9-<#11LmWoG(_jf
z2k%rWV%F57b4u9FyxVRfwb#Qx6h@qQd~>?He(9wpZcP!6T~f6P8n@ECC$f2}e&ye?
z|8B8mNHXKJxeje6#p&;g&cz-(zJ6UwnYE5zc=u!OnJ05fH&5u2ULC6T;pW=K56+#M
zQK`E#$SgWn?09<f=~IfrF<JbAbyK(0{o1OQ=6qAnWt-N^*RLPV+WYFW@@ZS`qNO*c
zSLqzvmEEmoAJlfFcH=sAK~9<eH_P6CI>CH<iS)#&cc1OkaKFX&?#A<7y1&{>GH!k_
z=((EaajNg?Tfgi*t216cObX_4{+oI)tL&Ee+k%p~>Gh#M<yV_?uiSavDcyaNw`B4*
zEB7k_@746Xn%?A<rR7&2I;g5xIpa#d{*^QH9~|SH|6}&`AmvpLVxBE}c1y~YCvLO(
z?Zi1wyeWT|NWS`3W*Pa}Mj~5HTH)~O87DI=UX&UZG-@n7|HLT%@6RRnsu>Se)=A4T
zU26P&!biX=sLd(BfUo-0EzRIJ>PBC4^mg)_rMOR!TrO;FpWjs$ZR(Oa<;0=PtNmXU
z8BR5SmG~mZvh~X8o1YKfP%#&r$NDqnzf6ma?DRwL4gbi@%PzZi#eC<a6&q)-ix+0A
zNS$u8*5vn;#kW*f&weJL@|J14-wj)jXRZzlE_qoq|N1VVAj=SQ^aFE8*R%wdRqw8c
zZoV0`*@ZP=zxa0Fjcb1~TlBPRE1s3(^KPuvOA7cLtE-g8GIejs0U4fhuh}78B|m>S
zEf?!>NVv1aR9{e4N@0Nl^MjQJ<_9WE<G(y!mL<3{%wlGgkFsXh-u=}QuZkj;O+I0_
zE#qF@g1Y7-w!5@%?%qG~P|W46UzaRMc#wN4{_9MxkkcJvzb}YhwlpgX3u>D(N%;7^
zr?;G*n|m_xHvaoy<?8V7c-CASw{K!=cfB+Fz4kv#bcV~zi~8pdM@>)+{p+2>c}A)E
zj5SBo=KH>4xw@O|MV%JCO_BJ0$75Dp?)J(PYug^NoZNKv?vbAAw&<gJ**(60?%uy%
ztoP>e?`d<+e3Oe+-OZ?OW%2&`6qauvUp;X>X2Wx7Nugh(;oPpk{YPdTFWDj|n!~KY
z-MMiylkUB*xv@)1q`rA~cUtEiZ;}33dwA!mT8EBMy@;8Q4L7`5_jcC1vPC}c751IC
z74<O`dA&+^n)UALc}v<=yfh#6Gn5N7YAZNw>M6;bv8O>g#ZopfuHw=glj)q_Q!DRn
z&An=}Tgk%t;)37H6O?*)$MXA}Pi`t`y<VCpl5=WT)@iL$`Hh?7Yu?@T`#UAsWC2IJ
zwaG~jf2&Fk|FGVkH(5_Kjn3D--S#!b{SwdOqF38$=dQYCw0x=9=_xzkFACv2livS7
ze$K%&y@qwtIsc1i{Z&7}@Yz`Y8@5?fGf+{2Rxu$Ol;HLybd13aQon=hCrA&%%t%4k
z(%4+V(8Rz@!NSx8tpnlX3hqFd7#Nuw!Uh?zjWNJ`z6S8#g8{Biud@ND-CkIlSOi)Z
z;%sE1?`)(Wl96AOr(XglQ%f@Roej<PosBH@osBF&sxuOE()67TjV<(3E0S{(b0K39
z&c^!AhWc6h*&rp5zGe})>zkpUsqbuLs$Zb*Y-FJCY^GnN?`*E`Y-ptKY-obq9RP<1
zB;;TPt%<P_wlyoTNiA@b-5I&u?Fr8H2@aRoxBbhu(nohq<fd)CRo(6<AmOyqxm)Gc
z+%Dc_!E9OHXJ52CES$D=!2~~}l3hA(kHu#mU=U<`q~#Kr#@^+}JNazy%QuhSY|An9
z-eS=-YtQ$psLi)mc1Hf$DF1xV`QLNC*VtCZO`71vF-c|l(<e{Xors;b=g797vbnR=
zjB7Ker2bHu<lomD{netHEmZr?(gzPtU--{8XXdW_wlg-pGrT4l8XZlk(yIEpRr1X1
z&Ckx{+MiomD5bmn;U#0svrc}S8@$g)97rvAIVa6-x##11kBoMf6o#JOsg-qS=~30G
zIf;w57U<31SCA;R`^d9RH*W5c@?U!QWny^Vrd@YL^~wX6-ko+xPg6hrx{G<m4b!sz
zyL)fud7oXoY1*x>8$tZhM|QnEy7ZCV_PfWzc6H~JrBB@5Q<|GHeVW+q)3MPvEOYu+
z-^u*G#O}L$lZpz<LWLvq1+<epuCh#Y7w~1d=p*FLv8Y?Yei>&|f=efdrs4b_6K?po
zoU|yC+u0H095(6elRzVfdlM&2GVz>tMCqpPN6)&>N=-M}%aX-@Uf$v!y_eQr64Y#Y
zoOw@w%OPKp%%?5a{8RY+mo7cG$U^&bteniRb-ow%u5XuYmzgg5I`!)`WwH70j?S^_
zBFcUIG1DLKozVVi*9x)SUq4i@y17kMQ{Iqy6L+<B?evi4emN^&rt0ll@k+RM_V3W|
z{{ITf?UN@xeZQt)O<?4kwP%m=oNb!OuP{eKPVNW8r=P|mXV*VFy-@sWom=cHxjnV9
zrMU?k>$axe<JznFLO=0?Uc!a#;lVxe29@VZU*@l#Hp|W3y(*u5hV2i15ve_ui|0Q)
zS39%Rzmzd)f76?fbFA}IB#fr#r>qlQ_uJI9HTla7uNi+Y&n}mY;&+Z{FJR1XVY(M`
zttI<#YJhZEz?Oen*OXU0mEAE-U;DF@<Bb;XLvCI*dWtn&a_TYlQxuk~&+|?wyAv$t
zrq`aoi0|}w^@Dwtuh#H5^~YR^l9a2ok<D)qa6RmtICp{T;fX2DGJ39Cu9zF`iT7~X
z6W&(d^83hZ_C?pPe@|>SU~IFC(O>-4eeo1Fk?jhiTvG#Puzub!W7YlX%u`Fa{13&c
zev8_`6zrMx%Y224(<=K(TGa}*LYZ}G;-8$^OMYy$m|4jF&cM07!XQSdOmWS@E*%?w
zajn9Kx^uXaR{e|VTWQFxabPved(9avS7yu-^C^(~dANSo(=YM`47Ifjx0_e|PyDn)
zt6*F52PI>rdh`7|BFwGrrYwlsb1(Nyaz-5YUk<*9$L2lWAt<##kZ<aj2hKY@&&-lh
zy`b^P?al-3r5OvSop=1_u_#hc<<Yrxjx;;REdus3E>@QE4gU%l{DPIPBuP*0eyg8w
z^p(3@ojTX4!;E*%vwz6+YKhtqsGLyGsLfTVq~)?#lxHGm&W5HHzgXTp+#N8rJX`ef
zi(5wCH<#bE%nG|2lKXXv%-yo3eIMUigx%e=x2n2wYjS&1=-p+xs$TxLuciIJcX8kC
zS5LaSf}T!Od;jpTukYGdk45JyF8%uL-qX6!;%MjU^UIo7zmhz@@6)tb%)0D-TYr4h
zTz5s@_Qv9z^;s(n-^b)#T_Inx_1Bc#du>`<f0)V2IPH6vH~;+2w*?k+`P{c(KJLQ0
zdC?@^%4?|~Pj3Gpa<ypl>21?aPX9h<=Z)`=4+n_(1or;g?Z;>6dFg+!>;H4!6DKr@
z2i8^oNT1>ScG~BQ52m{>TC$@^&Nb+aQ<u*d$Lqq<9n&^-96ME)v?j;+TwRvV!6W^4
z+MNDw7QgqqCavZ<=(6Rvae<6mM7Oa5-*HE_490`|1(gLV)%Lh|B~L!4AeMA|(dQ@C
zo)%)q&-osjEGcZV_(_0=%^E(pN_MX+FNK7fcI`jjeDGsotU=?!zd_BJ1r-$zGR<zy
z2Qy4M4&9w`?)c(*Him8Q{x9OfT2F#{QYfXpk%bwS!XCMF4+-3zcSJ$p&Cf1feXmCO
zN&4!F;vbJr>b9A(d&&01LY<=$iMv1CPiK6-NaVnq4V#tO;!K|(<Kg~bZhn$mZvp#a
znRAz4sW`R&O;9-Nz*}^4^@h_Mw;u4Ux%rIs_^}t9EeU_->ODW2Td<=0_Y=M!tAk&#
zT|WG9R$YxyVdUDs#{|zZaZXXyxY84Ter;{0JIlM&`a7kYIU-kFzFQGwaXV~Lwr{_}
zrY$TBH?o+#`Y&tk=DPf8`0I!_K0;PAEYuh;J6d#GDA#<dnYKjz5EpZOozj}*`nSJJ
zpJYEeSv-H<|0>t)iPesBvc>DQ<T%7*6*!D9dLEj~btHM~`L3-0BJ<ztite;>Z*2AF
z*!jbSt$BO>rpaF!e;lo2kzi=b=uyBP#<&JvQN~t5Rlc)<KDhEns_DTsJfv0!Ro~Fc
z8&P#D7#l+y0174+kTyVmUaEqjfr&n-%FoizRxmU)(l1ajG&IpKQZO_zL24B!7+Qea
z60nv>eqJi5S)l+LkOMbA6pTy^^ixYR6pTzwAWaeEJ{f3bJ9Oa~s0{#aRpDr4friq8
zzzPtJEXX{LnUR9IIr=EAj|-%cW#MXOZVVl##n#9&Gc$q>(-P6l0*`+}21dic?IY00
zXs*7CK6scEG-~Rlp9&d}2aUagM@sce^HNfaij(t;QlUfo;7HPU*Z0+Twgk-$fF^Hp
z^z-x+i<2`mOEPm(QuPD${XoqyZ+%zr)Qz*D0Yo-AvnaVVS3d+AWBRV8Mfv*9#`?+n
z`TE8Bnfiz^fADy1L240r;5<k_N#9vNQQuKNRNqIxM88PC5~alk3S5*tY+__=h$R!F
zj;f%v*iu3(14P25-ZSo!7GO)so$_u;wN2A8VF6b?=AzRPrxh1zD4i&X=VRvUIbmzS
z!`$>xVhW?>lQ5eO_QI*EyS8#&tXLDiNV>Fl-O7-i$7;^*^L%S|^RCwFZE;t>AAeta
z{Qd8H@As-7I^$z7(IZ7%Mu&IOuk{~%&+r%D71(eu_pQ#UPu(tmlC*#8YJ8k8o<6Iv
zV?$$9^orTHKTNzUWPQd-#ptLfw|4Yylh*l@=XcNFJ%983&A|@yY;NbTjW6?Sv@x}G
zRlK=1=lwc=)pPHpudSW4HE)09_sG}pR6hEi@tfeO#9bu1=}e5L$F+Mom44f7;uO7O
zbSM5uOYu-jD}Lgol(N&Pa$iH;0RiDeH3_$b8N6+0w;r%Nw81s)hLKS5F@wb7xt!l-
za@<a7Vokb{#xr?V;zYFwp0=Zji?kHkip8alpE2NnBmHJ;#!8K#CE|Nc3k`0j8zp|a
zWO8N8;V(OHx@{KT!7=@ja|`c8HxuD<5Bp6WHA(v}?K$;lYwKdyg-4ehjn}O>?Q@#D
z_=BZl@vF5uYi!o6i`3uNxAmQPbm!qC$&bp-%FH6o?%)1%x@>!H@7tU4sY#ESIN0l7
z+5ESz`BiXIK50hFq`RHF*#kqI8NOQ{`rxLrbQk+q_20$SMw^O6B{wa6<mbneW~^N?
z$w{sI;-1z<X2<mhehKQZU#`!|@_80@d8IM)NyFF70?(yZ&3z*=yWxcV&Waz>Q$13a
zsh_wr;{{Xg>aNSHyP}dMQ+CSK?z!^O?^NXixdXGx=U(*<ty;Hf?b25!#uu+&yLI%X
z$&0t^m1^ePU_8IlrS)OIzuciynTH*xzOuT$V2!rsl8H0bH+@MtdaPtdv{&go3nQx?
z>&=aW_57#z%FI|AZGJe&z`y-f^B$8GOlO@xn*@A&>nnTZu+6&bJf4p))}?f=IUb<r
z;b_ISGl6&7#|`qHtr_0cFY=XZzM1zI|LITJ$;WE_(Dlhi&$ZiHB`>}^{k+H8<GzaT
zjyBQHH$NDbeh|>}4GB{>Trr11|HJX~u{FOw+482HGoO2H-L1~BludK9Y98G<@OL^-
z#J4p!-)%mAv(&VmDbOPB%;hB#VF!g@O<U()8<bh6y!L3g-*1(QwP}Y_CU5NV3Y@t2
z@627&a}K_e)M;XU?SEu@@#T1#|4B`Dvp-7(9@LY}_!qZrE!X>O>FOVoc9s|2{$^@t
zJ$I9Z;e1A|SHgBSeGc)`hd%~LIL_lg@L9LBDL-IEQ-e`O>uV0fmJj`!H~dWGuhqq!
zpIa4ptwUZzQ~Ty|1<6L26(Z|btXrLvz_7ZhA@;;nx1{?g&gO)io9{ex@2xeLo^*G)
zKVVX`Z$8{T>7VWNog1uI_f@?*d$i_A4}a^Gry0t(dLCs=`BEkt;q<_>U?=yM?|)k-
z{ydr)9m(8L&&0;``%EB{mG55ph+QlXH(m^y|DgK8*X7IJEmK>!`}vcHf^KKr&+07i
zVOiL9d-IbF%eu-Pd+WOzeVC3))E`*R;W0C^qg#=6nTEpM<3_bF8)82O_1{>@u7BL0
z|Ldj`oRtChF3Tlw%N<Ur`uY0L>W;d@eqZe6emCyhpDOk6waj7}+jC3ozNW@D2^qz_
zJpM=h%8v_E_uE(qZY|ACndEa$t$b(A*9l_rr<X7I$YH@XU9*+#yl8{6bjtfqgC`H_
z7-urqzV!P2!ZK|6$|?DxOP2YSG-MwLX1#ip-TUUDKR=pG(h}t&?)+c(`f6~&g+(t6
z{BoxJYf`yVaC-5|=r5NyO#3rw?$zkYY+dbA{8z7C+qm^>=~k;{8v|pPg}mkKeD3#g
zWz(nrx&<{;7yNlOGnY+k-MST)fAubX4CekOtZ^}7P0#5YOD0&0XmFdZk}6g`B5~qR
z?5&N@to|+xd&d;<;DXzn*hX`at;<%vSh8i7N*HIm=VQkVAvVt1guY(|AFnMo{=D-2
zsxL?PZ87ZmqOVtSnIrGK$Aof*>R0LK3$K^?xzEe5tK;#>jA;JzWu1<cngZM21^0MX
zdb{s9y-NS`olF<y*PAAMX!;d6?fUGkFTcp<Oy0L`^3K10ozKqb`I>Ft<hH`R`Qyb9
z$tMqgx<pmZ3Y)vV@<ywp-3jhUW!6iL@4X_}FTFn)7JgcE%j21nb^lJZIhJLdGj?S5
zK6lrmw#(YOZ0lnoX0vh|@vj`0EtB{cv&2-h+&;)ClA+rXz}miR%8}+%&o15n#ibEe
z8+O!*rM~&q1u4CzyD8`96@I%mEsx(^YOb^CtqXIH_A0N5IJBQFUu$+j&+Unw&x~FK
z=e~{P%kqp^TN!jY?8>8;7g*UvTIxMB*Ev*~p6Hw?maERq!?<j()^xLV?JL@j?%3$>
z853R}UUl}`y%ieVYm=t_(a@apnD0lcQ#*IZ>{orWcuk`G)!4O~F3dXG;LKri;L_`Q
z_LEOj>yF>lTO>2-qm9yTBj4D0a@KE7ED%ZQw`sLJE6=f8=v?j|-er;Yh6zl3@h>eq
zRP(>TI(K#RqpW6I9x0CZ&P&@erGyfMTqoOwR^~CWGOGV?{+#&a?X+vZdDk%VYMrc}
zT9xRNAw8=l_kX`M^FL|*KSpoA6`XYV@v3OH+_`5JcP>|K_xrGSiOT#Mg@s=a33tUE
zP^j<RwLHJB!sCO*VwL@&+eLm}KDIaIOXH%Luxp=9I!<bx2@x}0(I--%de)Zx_>9LJ
zHt;QK5q>(CHMDM}VMfu5D{Ew?^goK|Q2#$YC&cq!i2Ujg^Oin~t2t1;ZL6?T_Sd8C
z`xZX@o|6Ckx9bm&SF=?mOX3pGZi{q`H=Q6j>&j)t?HBjoTz74O#yXujSKsc-(Q*vG
zY_rS!ZrGKGkDYnfo_8%>#3-ub!pL~Ap+})daE4^t%)~Zx<1;1(dn6MiW^f$7EY9(0
zRl`R?!$4tC`IWbN*@AaZy;Zt+>g8*)tH1T_+Fc*?_wm0M)#rA8x4v(Af9KACckF@!
z|IYfl|9t9IZ@o?Ny`_Oul)$_HQ`dZ5Y`mfK)RK+)N4^E^nGiiU*;3P^sO10WRj*lc
zBmVwbdE8{$G08l^Y}JW}46}Zftz0}oCSUPT{)!T5uM><sWm{IpT>WOOeO6Sk<6Urw
zGH>Xm@F_3u`L4gXf0xU8+1&L3SMGdGsJ@@MH_G$UPn%PZ?=MiB@>1tW$5DRY6SmPo
zK^4uj>~4l^N_Qw|{}&|_=5mSeyTDbQtrtJ+p4YWHR7LysY>o}vyI%1)%6%}KExNiZ
z{wS}A>9%N{9A~xVd(WJ-ot+_Rp=x5z%X=p|(QKY&SEZc!WdX4xU#>;&YI{&CJg-|k
z`I=5}YP5@~KUa0*Tu+hBQB!0s1lQC(&pLRVQ-|C8qttOOx!qU3oK=cGm~FT6S{2{z
zRQK0fpWeoA-oPF!u#h2s;RF9I)?vTq6<!VL<!e|k_<OPix9{pxHb*6M)5E4pzquZ{
zvWn;6mUA*TXB918CUGpe6aFGe#=|o6hi`Pd?6Sh-JmtL?S8#lIVD(1Rw*ORutflM9
zVB_|qZ!>cLIqsd*Z!I!$+q}cG&nWnC6r4W%|F_&f`Ow8DCmpj162E@I&$y3;`^xOZ
z=ge|a7dNNfzMJKr=VWVVAA0$?@84rCVM~8r2|4qa_1((~L7QbF&x_b{a{6QUJXk5X
zTdH?P6c00Fz%#jTn=ek#ti5P@^G3z8JNIwzWl>wg#r9wBTHr#Hd7ak-Yfbk2HLf_n
zc+XvZolCxIy94iCzj*K3&4n5EH38H87>>&p2&EYmEmn*@K3!zV>#1|z1bpXsd9Aio
zJmF&Gypq=y%M|?QuYbfhGggmr(S_8{`#-SX(ALxNjQ$__U9fs~^LovVH*dUqth+Z>
zxpMYTgO>2z{|2Ru(l!4M-1zaL^ImdIz|(|C?(0`_EsZrQ(q>to5x*W?B_}_3yNOG;
zW{**`)UThRQEuOK9_zHkH9Za9@4|2>KfmKoMBtg(33K!WlT8hGZmg=;-4v01HZ1SN
znn~PGm@ZWd9B^5F>Rax!u-v&Si?%#C{w{g(RLf6U2Ul&;nr+<I@h>)M^4__*7r&o~
z{`u_8k7LX-6O-3ptuT%Ic={Xr{a9(1sy9p5AKfr(qUN{SElu2!)(p`+Og<ML%oZ=H
z<J``7p6BqwAA3)3HIRK4%d&2F*a7|o!_O;Tx*WGC-*0BI?bPBcE*_t9zg+8@ly=FA
zaq2Ypm5Z+iO4Z8>NlP7ZTX!-}OfNw;YP}|(>8E%veTmZKTNl@DGYen7DR$l>Z{^ID
zpBVS{p4%3{?wb0Qfm?COoytAUtFB)W5!qO^cjJWc*AFK2+UdMo-!<=mx5B0KR~--P
zJg_>ucn<IT)2_`|TPs;x+2+Q1cyZpZRk*A2%Ts<)kYSMUOzF=;$6iT!GnXG))hm8S
zYs>BnB6HktedcTDe{%Ch|7p{!;*l@kujf^Ym%8%*z5?^xQy1GO*VX;}z2ER)QE-st
z`eq+#uZ=Py{|`CYud=Z%dtCGRpMc!yi)O8c_dNb-=V)A<6lZtRN%d9sYvmQS*_{1i
z9~ig9X5R|-DXU3ymQ<P=koPiMc~^7ZbGx~}pKq8Osa0p7Ut1u(-P%ysE@nq_*O9%m
zEMn)}i*G*i>Q?xINgw|l6cJu``FN$%(i;IGm3hJX+_f)me0+CJ?_JR8MgvCm#k`WL
zM(6wfnu!D_Zs^@Gp*g`V;P|}{Pp0fO{PXwvxySKV>sS1qUu@v{TjI<*#o+fmXME4H
zvx(hj`8VI7{-pC8ZIj)HCH_ofD!Wr>Rrl{z|ML^uW>(}C6q!71x&I`7rvH{>u|HLE
zCi1#=uM{<p2v{_4;by;kk+UzIx0HT6|9hHs(B$CF&5u|v^S8V+yjfk8w1uT?<Fa@A
zw|vxiRQh9<W^4IMn_X8Tf<hK}=KDSnd&m7V<?)U;r$rt<a$Kdp+*G@_x8w4%x&?I>
zSr4{WL^8+buGLuoTxag`qPCr#@7d(y{0fimVEJ>5MKxQyZ0ja>8TDiBZK0oU+lVw|
zX-=w?-}54?I8{);`-<k|@70=9PbD#Di}WT*+IJm)!OAT8+^_%3oT5*^ti0w=U+nXE
z(b?&{SS>!XOgzs2vB6UIZgS?S@Xf5hw){E#r)o~8V1#CJXkak&?Th)D+dr7inb9rf
z<L>p!xbawOUGK~EX)hykh3d?^t}ov%^X%KKN!`Y`E}y$6`HSmDF_X?zv72mBN7*jk
zkN$P|bEMBCHS_-l%Y&~*@H&OrhOQ5Y3XR!dqqH!f;Nsb9R@V#H?OV8HM_k7F#YM4w
zfAZeNo!(w+%5?E{wOy?Cyz`ASUwjNv`?g+qj=(!Rz5fr7&JiuT^_%k!tMX@#rvEos
z`F<A3*r*=oW64j{X6Agr9i5==lCbF!%cq}@bS;?Pvutu|dhka#ZYIm;6B?4$LeCC)
zMO04W2+-;CJM{U3my>FJC!=Ze^6gLJPdD|(*}vR+ylJPx(Q5_^C)?>>vyR^Rtt%&T
z>4O7|hkwZ4So85v<LRdccectf3FhR<wUx^VJSbhWY0=iX*=x_=(iS?b-6idKFzTk0
z?fh2rXZeRO7w=gzW2K&r&U~kPx|g;*H)=ccXL;NSjhCFg{}pQwAJE(0RrGs8_&obR
zPlVa>-59x}PqfrE_DtHG_>J|_tmzMR1849a&i@qP5#J`@<#(D{L&n3t>dS-s3KRZT
zT&w>U`(nGg02kxJ*ZDthuj=o8+Q3ybpYf{P|F<W(vOXuSuHEO}op{ZodY`{o^vcu!
z?*2cXl<@!a?%VT^u5p;ZK01@#N7ml9q4(zfz4f*cvJHk`7CS#lU!}otLul$=?1N{Z
zm1rn~8^$Ks#x_s}C@1;mHyiM@z5l}{Z~c~`MIek*G54<8*A4t@-@X&^X*Y2ad9m<+
zUD+9{w+^3<d_0~#r($#Mom+KnKkoLQ<x782b-QZLvCa7ceHE{CmvG(MH*<P$#O#G-
z0>K~N8J)Gr$u)P1bo<C2>$iFTfmfFMee)FRKI{IvH!oqUKmYuc8*}IWKF0W#hciTU
z%MI6$&z6?0|Joo>d}DrYeIbX|oXbl;+<5fl6<cktKgUupZH?DUn6|wAzgr{LsW0|(
z=x>jh$t`A&Vl2|#9;!cjBVkdkaBlK}ErQyKt~n~#3f4q&ukYl3sI=jUj)nSa?a-qA
zE0u(HuGsnes#?_Pp1DRRCltD#&DuKUl1`*}&V)TjmUs$3cWcQs`;dCCvr$|6T%ys$
z6P7&N(~lf3=x6;NnjyGatWl}6Uc>*V)$C_)Y<qQWS`B39dFOxp6?NxD1<xN>dnO)+
zvJ*?sVUHTL9Z&G(e`w>Hpg~R0Sedh-K4>J&*%)ce(%2j{ga#VrQZO+CF*Ea1kOwls
z3veMrcHlue@B&HDupMM@4zgGpG+3r!YKa&=Q!q2tchq;%ch+~&cU3Sq)OXkS(D&5$
z()ZT)(f8H&Q?M}54^Xf$(hpLwFwqau57iG-ur$#JkKjSa=n%tx3YO;jiTX+U$)H8&
z`k<jzQ~gW@Lj!aDZ2cVlT>U)#e8}LcezAUu0%$>5rGlZ68N@X3c%XuznE`mL4`uKa
z%hD+vgQu3@RaA%>Y7;{R@FIBdQX$N-Q)lqlsj;hzqa$pME7q}7$`-*x)+VPGmL}#v
z7rHtd8R}=ihBiTqfA!OgQWHy3i}cg<gY+}?1N5DZj6n0wMh5yWh{ysDdAsWe>!;{f
z=sO!5=%?#D8yV~8fTyc{^;03^)!-G=iQvia5dBhpXG7$1Y<+*w(r;%&Pyz!@YFp@+
z>F4Q}fTqXwlk~InL-n1F%=8QNeW0nrRX<xlOy5htO5amIN<Un`P~X|eT;JIkq~BD(
z9A$776!<9RkC}<FIf;X-A(;Up=~C|$OTJfJcyRGRiTd4Ub~%p30F|ycP0EWFEvi`9
zba-Whj8PAt0nc|C10LhUiYE$IR5Ubw?CLsJ?7Jt~WL@XUH1BfTQ@%S3O?T%%HeY!w
zP21k*?fmuos$Q*pZaY7`Y3J@lq0W>yi(I{vr)e=Sx>UYqhU8uaEic2KqC-5L0v5Nd
zMVIdHmb}&JyiI*eh2v|9<Ly1AI%a-Kh3f8A6}_LQ)t>O5VPmS`VYqsQm*k>=wiXTN
zrm2dXrx+hCUuL8dBKfH^$k2ObfQD$ISL+Y)gEvo2FnH=C$Qk-9Upp*4_vDom%a{31
zc3=8@dD@9^QSmIJBJQW%pD%s7di&E=%~?HPB#VyDu{`MbX~i6wpZ|Zf7L~dswpF>i
zRb8l_nJjdM_wW*lW4n^;EX+g?FZ15uz$vD4Fzr!<MVo8j4KK}Yf|F<LG2n^TC}Su-
zp0#27q=}OlPCA{8@@#yv>$b}FvhC01&-{JRv3q&-n(FS~@gKfcur~^_9_e2qAL$i0
zt<9@=DZkqp*^5?>Zco&9FYEs#v9)~5^Ng!6KFbB$T(WIj;qq!<`hw->KCio8qQCq4
zZ9~^&)#UI#Ta&y)J2rjn`Y8KY{vubD^Z(1%$A51-pCaFWp8I~l{mJ{@*YPf&$M1R|
zN=k|SY5eLNv$8gCoMt}t--Nj>N=piN`JS+C^3}Dd*)=s^)~0UV-&J2CypP^9G4ow~
za>Wzx$G6R<se6V#UA1;)j*In<_~K8^0w06-uZ_*xE+v%}Av$Z1fUDX^;ZN-LZ06ri
z?fmzd`OmLq``&2l?D+fT(e!4UtK8ys3z}tK@4NYZ)8}uUldqrK_BJPPi<wvM*R<6W
zO`lGAs`mNhPVcbnLqP!_wog28TWq1l{r4Sp9nA09K2(><sGVkbAN}3jQhL9W`Th=j
zi{`qj1?#_aReyfe_TlZHZ6_~ZYnNPFs=6!6)_doox;0D6<qPF(LpIo(hp)Xi%P?Tq
zZ1F^EDgSue9}k|%KAW=3e6`il8HZM$yOL@=J3L=c>#+uh)T$p-<WyqUA5_@WCiO?>
z=WCuTt;;8fbXj&zyCBYS@NKNfJco`e#}C!NPzkE&<ym)q1)IN0dzypzKS@u{mk$=j
z=eGXL2+F$Cx8&{HU2^Xxy*ya@Ey+8f;nb2<VIQ};*nUh6Jhd@GthdKKWW)dPi{}-d
zh>0}W+cOuIM3{Zzi&?s_M7qY`wyq%G|4va~5U2l~FJ8M7(|_)Dc(^Q|vC(hmnc|6i
zF74UrwXFH6pV7&%wEO4Z6mEHIbs&~irajli{L{g;Ro(mgJhcth7#CWtP>waqSe_`g
z<x$w8K8xO{La)mYdEGfA_~q|5^vAh=Uwij-^vUV5{eHH|4LlMvPAr^j^=Qq`^Lu7$
z8s?d2SUh<d6}M^4l|2i+*bL(@#fmGg`YTqxJ#Rzae7{@aS0>Lq;L|(5{m-XO(*1=7
zjxQG6&gIPwztQf#{m6m@lZ!GJ4g~u;7b!N|aY=uaby<2bVBYe`dy7*74ZGY}GkCpN
z{<kWy{$HN&FaOlL>|v+$VsV8zu8YI|i`FEZ+JAtf(_o{d;m@#nRebXNy$khce3RZR
zkz3lg^U+_C(gz9;by^M?-S~3ah{ILY#>&Ov4Oi9lv)AgTw!UC|@^Zh8bgX;1Ft_aA
zbK5ST{cE#Sa+c8(_uV{JNfG9gSFZ3g4*%yDzG0$y!nSps^LHs&GOtbKo+Qn;^_EqB
zV_&<$;-i}yFU~Ao7PRhmg}7ID?$q0>yH<VK^wzRXOC+kA{mZ_)e5)Tzi-noInGtvP
z{ko$oe>-zJUw#=Ry>9)L?91HKc+aE-nnkr<Tm0xr+!S6}{<wE`h28&U9$DqdZiwA<
za?T2G_c*g}Gd@e)6*IB-Kb-mLiYTYfuft&<s#xalVd7S~``=Rfr^)BJX>**?k4Da(
z>#`~KZo!O~8_TVCS$+_CWR+*NcD{Lck(g}dsfq)0PKro#^WOS?dTGF(3u<L7rms4T
zmmOAejh?F?)?O1Mx#L>E)Tu{TX_vo!9Q|sx?3sOUtGPaTnOL4)FB-!%|8f4myQlXG
zo;VksdyU)INXxrJM(oyl<#V(7I+TC!kFYxESjT7>#oqTv{Jg0$zggYZ)B^SUH8~bH
z&sjfz<1UpVvSi<9xoe#27lfzFnG3IGwe1so-Jx9?t7<)CRo9#@lXK@)&$<QWo?RwY
zC}?JJa_zN}-<-=XUQ2%es6pgVp>*NdtNQnn9JS^gm*y}zH+5C~a?MWDjz53>jP9-5
zDwn$JZEWA&{iUm}R;`Rwle_ApIH#@h#9u|J-lPD*Q^McP<Yt)mJ2G<y@OsX9Ensx%
z!CzyW7T*6qOspgV8DG5jXx*c0P^j;o`Jn&NwYs!7qP<Jkdq|sI^9Xk-%!$l(+A6W<
zn&-OgE0OFo__~*VH7V!3_TZT9?la#bJoa#1nXkyudVO_8i2s46sU_LYi#Pl4*-@(*
zn87zG^4avM(b8KUiE;bS{UWvcoyX0I3M;<0cCzc;|2?nKQ{&R6R_Cva*7MqKed$vf
z`YeB$W?WR<Y=a!B&68s;uh=e^JWFTWHRC(;6&`OBw7FPr;iDR``a{#ZoGn}DB(A@A
zp~Wq)&tdYm(CfFkD!o>S7`+r;wA$3AurhRO+tq2-Qr#8qg$t8~rA_iLeo_6#_27cY
zKKsuZema}&iv1QOUH$Gq`_<d8zH_e4YQ0jSelackjg>`#;^%C!l<)WU>{)Cp_+<`%
zZP2#wI-jq${?mSN(LizEyv0myHf_4Myq7Fk;3v#CFMiJU2J>#Uo!><D{mgQWI#cHq
zP5Pg@+pBrjsY@$v?Gw*gbvgE$4g0;z-;d=jEzMafkn1XY{o=J_j;?}C9Sus|YZO%`
zw5nEfG_p7;a0*;wNEE&)DzZfIXenFZvS{7(n5f$;i`EoAv-=%nTAY0S&&*l---pfp
zeD}Te_c`z1ns{|rd1iO6T{Dx7XZ5jl4~+jFI<M+;wOu{EC|kp+sXY6(srtz|XA2@G
z`utwfdf0WsGN$rvw$jzC??U(tuWsMvr7vOo#$)>&&aKYk=c5_fYdt!e`<?DJZLR;M
z{lU)Pp6zbzgUv#xc~_f%fAahO?uE@N6}@>5lf9O?zMtfsA;Ee-DeF&k+5V(GYoBc5
zw6&VrV!Tc#%=*D{|7UOFOf7bI{FT%;zq)0YhTe_O#&6wzHnYfIxbo`U1f{|~ZjOhW
zKiv2DxctV`RoQ1#oAcBscw0<veP$CprE<Rb9lrR*$-b{Mr!C&~N@wSjWhbW>EEB2P
zE33EDF1#~?VgA!Zx0;l`cFO{Tb9L|c#3a7kR8j1FuX@*Stz-TU^QBD7wlB`(ShMs1
zUyWYzJ6^S9-Z_RFbazWc3)Vf;x#M%N*Frn#zC!uWXF?qcS<+J3v)^j;av!x+iMg};
z-`BVAq&N4P+;3`4=Pr|3Hp%GK{XWU%r`l$A`lXzbK5+a=K}^2Hmq_;G3zj$ao%cKC
z;r)@p=0o<Q#7z4YKg6%5p6=mph%0#8m!V=P8R0OeN9g0yDNd<crGGi%M8geEJyKX2
z7F{58`Qh1HOO|DDRUO{?LEw+k)*JuNKFQ#IV3)>Y<s-D@oX~_M+x_eJFD_1-H1D&C
z@cH@8B^y>OwX{z9nl)pOjqS>+DbF_5B}}^UMYN~=w9;4KrSIbwABi*wm7C<_EMDQ}
zBQk9j>k^-X;Y%(Syqv>#xnNUTu-n0?4We&YUcYaRzw^4hAT~p2t@bO18v-1ws-LVi
zYZGhHtX#z(_v)wrqmY`EH;P&ssRiG@#%>VTSy{GXX-~weQwpqRk;%!irJK9$H*v0O
zGTC*q=*3@)&(C&u&fMm<Wwnf*JIl-ctE)Z=d$4iqzwqaJkiI(cLpYDbTt%fM7bd~b
z1sYp#9#ntxt!~5YK<UGu4o^wU$~Sy|O21Y6ZmYX<{an7)mo;wpFG_J;#MzSVl)b;!
z#wd@Sd)eK$K`I$6OhFOTD);?;cHwQERA`@;snB`r|34CXvUJXiX<a$-KPg#a!p^Ra
zr$<%V0t^>^Ethd?-#9H(@8E&!U)Rgk`SYomw=C3N(|-GbIQ#8w`>Q`cYQ5WZA*_-2
zO@7Do9slpBy_urKT*SQ6CN)wr+3@x16UTbIA{FN@xO_bGr0}wNG2*OZwe3xRgw>6C
z-z6s4<z*dyVDo3vPSH2DE}_%1MSSWS?YhsHFWr7M+**e3<O8`KGuWB;om)^_sJA*P
zT-b3(P@Y-0WHH};8E;mHe&vFP`~IEL<D9I~;peNiIk!@@s4CbaD9oTT=ZnS+{%L=I
z-V&D5Y3`g9xM|b5%%$3EXL-GP>EE9w6V<+|P4eKw>BSFO^leW0b3LEBXU%o%YU@nr
z!uHE9Q~&D5#htx!V)v22C6jqo%syX}=@8n^e^0K$`gXdvZEwjmZZSc@!kH(PycTM#
zO~{gGDps%j?2<X{zSoYv={~P{9weIyWU9a4VI#6sX!%NxY<;cC&n5<W7S!?Z?w#=K
z-QwKJjbBe)knMjqOPxV_;hU+fNowW{-%=*LoNAf7{nz@~cTRun`o);$SP0G5I<@%8
zsZE!<y5<RKe-^oOUCK|}-1|`p$A7PxQ74w<HoHzt>9hNF=*NK@S3j3<uU2_=<gMq-
zrZ+7uRfWmB?>=>?DBBS2o^$?Ly`bC4&)uhHc6rt6Mrv>Bd}PWw>jPuv@6DaR5A2`*
zkNx%Qv=5Vy?2@$V+Q7FqP*bh@^OeY*iE;_5Gk(>-IGCd_!~a7NchRO5J#Q2@B=a+8
z9C({2Yo;L2H>F_C*<Wu`eylb<zDV+ln*X%tdBHF0Z(mt{UZFHHa`%&u8dqK8zJKga
zsE?1X^x9tEdf<0KcImWksf?Gi-lg5CHEi_nY<_si#7^~UwC^;d<p<9+n7(QL?<#U=
zYO$%4(OQ+v2fu!DZ=Rm9h0A53pxd$3IcJxB+Hy3s=d0q1w+huP=YB9p|5<oE&cx}=
zt>FJRyuNY1er&e3Vc$c|7q=}su1NJgm)Gaeba-&sEF_EJ%@mo0caNVlTrXUmerfUX
zpAX(QPuUqXf8Jhxv9v#8vRfI}WW9RC+@E;;%jLLLht^CmT6F*5wvwP_{%@q^cNVSe
zHk+0dV|G0DvgE%=!KITWb9`R&JKXpG#wq2O^R4yFI*%ju%ttbL6@M!3|Ik16xp(XD
z#5|)T0^a%&S#Ra{yf&<R_bXm6$W$$ouQ*HmO4_8AZC4g<Ja_Q6vWa=iS(fb_FJ7`Y
zD@;GX-DK{2MsMkh{SKFpTwr~bc5z|}n_Y$974gKcuBMfiOA4OKsLSdtIj<G+^0+2v
z$HqdVM_+RL(l#*Y-ud~JuT;79*ltD^hWjt4tbWbhRIZ+~Xs1<t(zK+tj^2*<bxJn!
z8qDy}wF!&3$Zodz`<}ALM%$m8pDezswv8pP<zT^0b6@xL`M!S)th;P-lx@_zA7%IL
z+|DS<zO6Zu>2E|ugR_3D?x7V|3*>zM*f_o@s-7+NL+2&yy=w>GW%5VgRQYk@szUGk
z<vOvyPRrKJevrU$<oi-%u8HRic$BuZX*_*+$3XQ{Nb}L4oP{xNoj&WlbSw_%G&XDS
zUcKJHuh{h3&^pg>>WsCzww7zJ{5Z{KFu#&%=lNwP9-0;3J=>;y(Ct>AHAC~sg4U=|
z1wX-1*TB=M(UWJsJy3j>(a2M%u%!FRamJ_Z->nb7Q`z?D?Ei&3q888EwP{1>`={5k
zx-Q3Y%d{(ptlnzX_jvKurj86&*ODt<jw~rp1PvTGSUxHFe_{}Fy4Ny+gQauN(_Brh
zj9TLtE7mUcyL#)=D~s4`g*Gp()|eLmPX2F^J-1Y@y8id?Z{MBruSJIJN@$H+d|?H5
z5#RD>T&-P9p{-7<*9C=#2b7<bxZ{=KlFIpL!k@66&tu*zFkdSYo)|u5au8Qa*5;!D
zOV^tjoc-TXabUvY35-5bevW>U6GCtGoZF?inB8w-v5QG%j;Ci$k;&8(eerYoe%un~
zW1i#o|MIKJOFX&U&Z;o}eYdJ6LZY=dQ!z8o^Lu}Jpn{T`GjGbrWtaF_6_aYeeaPr8
z{}rW?-Mn8icKQB-ko(>&dxQcTg{G;0Ew-GoVB3es|AZLJGOOh0w=io=skkz!QcdoN
zyvMmI&ZSHJ@|e;#UrlQcn|=5h+uXFeHlAk*vm(M0Zgt#a(D<fkTzWpcdCk4L|3$Zg
zZC99w-Pq0+%@<`Rk(7On)pM2hXPE<;pBAh=|KLN&X9s8NrRudm)D+jPn{=b$>_vl1
z?B{zHnreLfEinH@O4vRp1)j6AA?fWZd67H$_KVGGH(0oSjnOKH*09CboQ}=xHNKEN
zVX-~ey!O76TYqsa@DR}ae)#@MZLYHmEnAmH)&#8jbS*ofb$YLuc}s}zBG!Eu+$L|3
zG>N{;dsg+^rXy2Yd^-co{A|QJR(m<b$@m9yWFKkSx%XTGqk6W=aor73cRQO!6@Sd#
z8nZ1xp<sH0&`gIT#avdm-h^%EF8jvQ)9W+m(C218%Q;W&E<9Q7bi{r}`-=bF>n@2)
z`AhgQf0654f0iXeq~+|xHKliV?fs}-P`2TDN%X|PK%J=^iu?W4xHZKymwwu`iZ3tY
zQOgC{@OHL~n-!$raa!~-b6gAiBC~hF*A(kA0ne@Ho@gg5IDhkagmG<eENjRuu29yH
zl}}d%1+2-N73MV8zh|20o+Z0PG&NFr16Gw3$zECc>h#<_)4t5A?S22~+svts=RL1&
zx&OX@$@NLU3(XpzKi$}Wq-pNb<n-4PEAy4iCdk+<uW<fX^=?{1o`}BREWfuxuez%p
z=P!QQ#%*T1DR%w-BU6mey|b<p^x>&~-|t|%Gd#FFMd;7w*SDTl-N;?L<+McW)b1+<
z@tVsGc$ci&b!_g0p8;1Eoxk`^_?X-3<AQ&f`_#DRs4rzsxU+V<)Pm6X%qfjBD;ImR
zg)iV)bg%ejR`=O;TN}THMQ;}^i&Wt~?%<|o{oCS?%A<mFeTzQ7D7X+MG}(9}OEzcL
z_xB6@@BGgCk^T7ku{O2E?W@)YTCm=X)O2TDzGB^7CSP4UXJ6aYYvB@073}Ap4m<Ga
z@Z&>ux=Xols2$wg|4I2r^s!HBQ_om=$xJ)*cR|6+o3$DN#ooVjb0c}Cs`(1b+>W&S
zVXiP$`>50mt-Z=`Sc3WeZNEBsx39BaZ+Urp;GA1?-d_BAn{8#jpAT=$-Um~!HH%H(
zdzEE&cIekVOnl|+H}s{XRyVK7d~ztWM7vUSsep#e+PWSG^EZwH=Vu+@Ui*&oyXp1N
ztRo9Qr!?nezI<4uaYwmN{P@H2Cl#47Vr?R9H}$VCEC{Hcbga0i(m(p&-CwWouAFXq
zWv;8fNv<I4=^gL$<61RMkEXOgj`wOm+ajnn*D;sv`Gwpq!f$`b%v-(sjU88o>m?`A
zkZ0GQo;2RM+VHi%eCnS^^JQBmU-jZU`08)(+xwp9WmK-`^d8t;oS<E~{<Y6*)(^Uo
zQd?!#Cm2muH5dKXz?i@OJkM+W>^Ap{aa^vGa{jd2KAhyzwf4di{zk>}-wMXXzMgd-
z_b$5dTZMbQv(&Q(Q#IM`blR+1{gyopj{CG|^U{2gJxZHDK6+a*?~lY(MdQNX4)MX>
z_J=+8YMHE;)?F6Ba`VfB?_v*s$zR&D^?d&v|9GXNNAAV!nGiL}z9oHOLc^hXK8r1v
zC#Y9d-+s*dxZ>d6Pi&j}vkXnm`5LvAE#LT^c(>uxn*$-qCa)GAui&X|IP8#9Q|6=T
z!jOK+-0It7^WukTb+2Y!O)&qhwCL7@?`IF&|L2KF`_KQ+cT339bHPTXf=lFmmt2Us
zxc`HbjW~PD;{$gBd^Vr2=}Bvh4)=@Q#VDMe8#(>Ji>LqClucfnx=mfQVg@(g)w|Lw
z+sfs>%+0R!vdq@XPGP8a`7)tfcxCG?+gU7c(?dQTeB#qKx7)2gw>6{g_mj<<&&sxB
zU+jNUx<sk&Q(w#+hWK4KURMYN8{g*a+Z1+*^VgbniPkRbe})UZSbNSn{XX+W&Y7H<
z0q%8~&%VEB-92gYw+@By(39I4CtrMEbSTa}`8kKh<AnA4Z8}plmPjU6GP^E5k$A#I
z@Kzf$BVWpz(`GU=xn_QNlp(@#!R||o*jv>Pt9t%E+^DealWNq}^9>Cf<}JIsy>t57
z$NzV7=7sH(j$=5T#1VF@JY$mBimyW28)o=?i>f$v^NBV89^a=*)_X)04}V@;kyrQZ
zUH_5!L9JTM>v_MJ{PMG2kbT8CQU1?w6XPv4mwt6+ZC?>vGeKY1DuSh0X>yoa?&1=a
zsP(~0$96T%*e}<i*}TR-aL@E-rsb!9Ge&*+!pW7<oKg9{@%RtjhLu-$8_Z>veD`C9
z#!7>g)sEY5-iYA7I6qKJcHy2ru`&mdE2bs2Tz9s=Ip%ogTI<f0yUm%Wz29ETlkw4C
zC9Wa<e#`U}Cz)xL>BdnE7nr{Msud}l^>gp9?n`o9t`mRE-u$Kf+Sdv*_D7a;{<Gg>
zQ2ZZkVj*qO_~<+HO8M_hD-S=qC(T##L;SnA=<&VZJ-$24KFu+;uV+@hbVFlvQ;U3{
zlZCpeLuZdf>31d8bBzs$Or@)QI!apP8#^a-&Xqngz3I2weEE656@sIF2mH1!vz4rA
z?`@hTJ!AUZCG+LK^L|%fwe0kfS--g@ehbf@pMObu%f>0Q`{gJ1wN1#C&aRvOtWKWq
zxABkWA3>r$m4!Xk(!b+XbbbqG%KsM2IH~d7K>FbJ{{D6HvktJfq@{MGOB?wdd9_CV
zdkNdTtE|6E*j{XSxZ?i&d0q3R`F`vX`DrbB=J=K^Smzhb5qmhHI}wcy&9Kb8*x5mk
z%;oav3<*4)cUVDS&u7tUpR3IqlaF_{=!C9RdU~OKmPt9&>nlOMf@OR^f4^&*y^1|S
z;+x@_wA+6_-zybPd7o&&K4-z(IlLBp*AoQJRlJmW!g}MJ&u86t%dX2AdD-1L#`$}1
zHhX|qiu@M~zlUtyu|GBB6{@+#oS*A$uy{6KU5PLJ{r-*a=8Y}O7`xY=*rtDL|0_Ag
z$6M^*Rea`f-SfQo@xezgwjNw?m(@|Uk~vFR+9Cb_{!XLRInke&HhWAAx}+Eq>F(1W
zFtu+-l~Rm)jPSCm;%Cpc`)RG7CbQ*;#Lg#cCf!=S$xBsLSXwPe_mGQ(T8`2-pDiug
zGdpBgYs~Q2#KFBaY3J%IsYhpJ_pQ6`sZbud{qyxu#m`^YSY)OcS2&f&pEYIKWYcG8
zb$VVI-}}kmn$x)}JLMVK7*w~+n2$XMKzm~$lV9Ks9=K+BjSRt4d(NPprJ&8L#-J%*
zWAFqXXtye8vJQE2&e;$oXNElKhBPH?Y5_garWk$#5_mEZGSvv3QdBTA0ZsX#PVy?4
z8-r$f70k^*)4U4imiqqCX<q$c$SkjZxPqmDeiVF4S3d=`;X^+iwpRu+p{oGiF{59o
zUj&-c)i2dA(=XSrP%tzy(yvl5G%-e+kt{5Q9WI4Dw+lL&AAMttJ}mGQ%*;W-8iaZ*
zh7anjE&N~%L!@&tOiWOBaOj8RhvsF1&W~3x17{Y<4jaTQvVs}tP=5vZNf~AaCZNqW
z3Lx6l9K7*H0ZfAqvN19Mi<?=PD}XTgTnb}T1<-{j<^~oDpfi9>!ADPnvL!BT4t57F
zS?uEA(>P2G6hNnTm>NK61Mt~5pu?j<_JZ64G8x1+P%sCdItMzx!o&hJJ8NcQssK7&
z!vNwp@Tqtpl^`FOS{Q@XgG{mjpCV)c_7Sp6!0Jqm6hNkd*kIb&5bOdF-`L1V!NkxE
zEDvIXTmlk@m;_>(7@I4AFh~}}H?=edpY;JU$p9>aY#%;0$p7XB7AT1cZTlE#9RN~d
z0$sbJfS#CKz)Jv3pxdXgCMGlVLspOy6X?1Q1uTgPbSxJlF&UaDSQr_Bw#X}(8(TtX
zGNK<89EgKJK#2e(f{Z~41aYJdD2VW30|n5rCJ6nYgH1pOt$;9?4Z3gw96cZ&$YxMd
z0<l5Iuz(U0hz&`AkfVAaNAG|{K^S2&h-GYO1lnw;fO;?sga?v`xd!B7kh_qNV*$y-
z><7t#_#g~Y3!*_7nGNEThmDPmQIZrWB9Y2<^dtpJap*}3_1FV!NeZ+_5amn&<nqZ3
zw9ynxk^=b$o}@sLkBkisOhKV*YNP-PCQwj-Xk-;2wwa|l^q6^&VfZj;!3;imBTGXC
z3-E#S_*79>4&);c2H6erA<T48nF}lHU}B`wpi+-iJ;bR8g*(XA#Hq%uia0aytFk~#
z+!)&-!Dp&tUb=$ZZtMy3?SEn-u=jkw!^39_UOrfF@vUisgxhXy6$=C1!UW45)-N-i
z)iWo3>G^g4^C`djjXe&<8OO^)_lAF6WwY*r+w7jl=a()O*(4Bk`;11gMBm)h>hIFO
z>*ll-WPEO&WRWg^>+1398jfg*G~Mt%KbM6!e(!nGn(UnMN^wnbg>jB`-rr>}PdI!!
zw2A-hg<tPx{NMNI<Ga`2jf8I&6>k@4y?QJ4$J3?LZhjI>wBHy%t5mpX$F(<0S86Uv
z3%Z!k>fdjX8-CVdUTL7w$<`mwTC(dS-X7Y~8|LtK#u~pe`=5z>m*%n>8BCi0sUt0s
zJC)Pvsf*Kx>^M)0yn>xU1ySbCEy)b+-#X53>GfW8|4-?M;1|0mnt2_0W4>io#O=%9
zYHv+bpUkCJUGc>u|Nc_h!^d)O_<UTIvTt>8M!D>>$`ATG19W^0XWhTp$U5cVb;Z1;
zvu9o1cenkW<=p8xm-#z2HtDQUT6IZd`VOYw64w$V<jdqVr(RNcwJZO7o$W<+(K1o1
z{zpyoMc6!?+_l@MF4u0^{Pl5%OkkRZ`yo!1pQ`QVrxRZ9*8I86&@yPwXT{_=dA9q#
z-N!fl+wAGcI``Y*iTg~LV%KQ!CR#l^CMK$#vHj4yr72(D&bZ%O%k=Vwh3u;*8f{BL
zboMiSUB32yd*iyuM@FsF&glMJIeV_Uu=mZ5rxU`|1Gb3l_*86vMVRXl<KmT_^VV`4
zRO_F4)5Ng8?A$cpmctcKJ6}k){#A-Q^33_%O~cw5AuWp6CdO!glUk;`*76WfM$?So
z?7$Core@3=1R6G5a4c&UQ>&M^{2cLP(=6`)Txu`sgdQ{Ym1Hs`T$SHdwPbzQowAbF
zSHhK-g;e6It;!ehR_x1NmZre1{QOZ?@jL$5bERxo%Qffh`&JtK?Md-n`ER>DW(lnH
z?x`$#VPYvVD>g(mP2$7`{m)P3EwnF7rp?fCl_~ff6fB<+o2vTjFsJwDURxWr)s<p9
z&mUV<HlfLFpVyW}tkW~xvKsC>H7_l^nrp6_*VJXTuJ(<_*@t@Hj_WcvS0<nJS)e+7
z{$nu{ojD?rop*L@@;Pw){{h_v6HaMPp6an_tJl)PH~}$k&zP##4U*qjUq%-*FxB}-
zJ-E8FX`=V-{><4ICtt92f2o?3e)Pd=m9uWjobj_4=1<l?ShwKgh1Oy-DSNrLWv%i?
zqBHh-S~;CF)<36hvgy$`v%}AqEq%3PXJ)3Zzwc^UQ;yQP+rF7NZB>@=uhrtbb!)@&
z#}=k<PgbP8^LTsw!W#`$zsp}1{l3C$ZIbS<%s1C#J^#^_LjP}{^72tz{C~NLs4rW$
zxqz3pOz7LF*}v9GX@7Vq%Cc6GN7H4?uXk$K{w(`6#r&+{)ZWxNpKqH>6fZZq`ci7I
z=*0I^8)Bz0Xx;eZe29Cg@RQYCdo@!zIu|e9Ec8FQV9yJ2&Hvp^u5ZG-PkVS}#_sv^
zcJ`MUdpyNooxl3>#ob;}eU-)z_nY^bco>dswwQ$Npat;dBakW=+L^U5wItA)T@!jX
zPug6-t?G-j$ZTf@t`!pJCLEr>=&d3rlS=y%kDfRl`D>R>-E+C+8>Vetx!ultzM{WC
z$&Nd@z9);C7MTkfe=e-sm#>jg_Uqk~kHygrg}bZ*FD?Aos^vF-ZU_5Gmy;|(6AxZw
z(c<2GNr~}xh@srUCY}T*M>Z9y<9V}%KRUOqSaO}q%|%9_+2q;{#tfUL;!9SGnzl@C
ztdVF~WiKS;w{zk(HO0A|o43tAyS4OE$MUz&obQ``lv3%K{i%x0uPSiu>Svqw-#T~B
zKi;TEGI0veygP3{@oPVxvh@4GLZ>h--ZYPl*<T-T;92|QrhtO}<MSe>w)&1gR~`=E
zpVkrieSb=#R~Aq5$E0GF%(qLquic;cMRupu6oEbGieujh9%Y&F>1VdSywZ$gzi!*L
zubH)oZwC9n-80MGTkm=2t~tla?jEtUd3u=T{OLdHHXqmeBA^yF_y3fL6qozQCa2l4
zRvmF?59)Tk{b$FTS+1&+XAA4kYK$%J6}p&Ym~OM$*(ut<@btQS+jtKz;_JB(m$Uj^
zRokrj8ozhtZoBAosjE!XKWfp7^{bxvJqo?8TfNNK+%M#`UFC!oVa6R9tFtaHuMpUs
zdpG7-x9IEG;IfnAM|M3C7oH~=do!jlkNMnkNrnA?7ruJsd-aR6QC!Ws)nARmdCLWO
zeHT~H=zUk<cWjbMw+@Sm(1f7p^KDLRlvo%X&USDY6PUzvaF^nnhS=?ui$cuK?o3?R
zP`>@SLf9UyB2FppZ*{tiQ7>hg1<g6ulzq?StoU`y@?LX7L`56h^Z35!z12}h2Yr{#
z|GrIKJ-I*gW&N#3eM^#69xYuNYw*9all|U>Q@8hUvwO>|nSbS&)**qNzpYj_S-$-r
z${MY)QprV5J+$S-qiwra{4SDR@3X#f?^~mLI;+!9ZkJ@*JS%mXP=bv`p)BK`sSoq6
z^zSZ;)_;|^F`EAs=ZS;n;ic#0qFk3e^}V_Fndb)`&nsF_n(|l0-siO!bgj($&9UTU
zXZI}8pO*7<?SK8gZN7NdvPQ!hTOW%F={qu}IVbmO&C2-j^~ajd`UPw5p7H*D{=uX*
z`NsOj_1;%rR4Qj4{rog-0n;zLz~k#fl#TX_cs&iM55D4&wV&hO_r+fW&a})q^;ceb
zV#=x+I-eiqGqN$9Q}`c^HG?8nvqLkeA?UCS{LO}%P~ZI976M1V&5+;tVPez~o&EM*
zN10rkcrQ5%sodLZVtc}9a)!3Io~rfP{qK1+RX6U=ED|`Wc>m0vN@KO!jX&O>2u__c
z)9{D<^h*X=drgebvZRKcxS3Sz^6$v$_y4aM+eP1zEj+bF=tEjzm5aq`v&p$_QVT1c
zWTsy-)LJsVVa3WvVJb(;t2=tEPX6f7xFNl;(%1IS+jg;kXFZa-e7RS<FNvO%oApVl
zb$-tNg)g6Hh<*<-N;}Bea(0KG-#rCyPSzAzw=dWAPgr%h8(Yq_lMzswVkWFu&Es6#
zQnY^akI=+_>ducfw*S8R;7>2h+QnW)TjxKx{+03Rp~Crl>(sWh>OKpKUUlO5qtlNr
zUyL!#;t46|6Yu@<^Va)~@?Dlwx~hbJEsUG)d|+>T?f$*{+c(R7Z?iJ8neuX-;_1BG
z>n`nFIxXaGRq(N*n=Lh$CoMcYbqUkG7M}Gd&pPj1nLIt-lWE_v-?P>@1=~GzYrI_=
zXO$&j>2th%V|2QP=dM)wN9!KUh_$>DYkh2yXZiF=shZxo$90l-uDZNeb6V)mdsp7t
z<~522Ek1bTc|~u#^}<z7)<<@o>KCc3Sz&B>K`rHL#IfC#(%YQRY~YcUJ~hMmc}nE=
zRG*m~2lnpT>DOqR?NV{dv?N*Vr20A0`;(_HXv?&obzk<>=?$K7ZrZg9%<repO)2PM
zEZ|A+-g=o&@^pG%&FyJ#1Naa4Fuq-OLN8^hhpVG!UA*ROiLlbCo>Q1ye3E`_Tbul%
z@VrrRkjDYe``mmVCo69GTOq$aV0KC4<UHxi$_mdmcE=Z<ot*K2JAM6(^9`{v*PQ)>
zOC~fHDwQ7J@#KP&Sj?FzMi-dX&Ualt{rSr2o}%LloPVqqK3Ki>Le;f!-3e=U6bgr5
zSb58#WJ<Bx{dilOuh$t(pPhU+#VR&~?-KJn(dH=CseyWo+zVNcCmjsep1;s?>#dKR
zzgHC)ZC!MLYtEg7{49^Hch^l<{3f4}uX4aRR6~cgN99X8r);Y6sYAgB?>6cjIsKu|
z^Vvg*Sd9gLC4*iFetPt~a31gaKPOM#fB7kW@$4S;s}g+jM~^LFIkPOwC!0^x=<!0C
zI{`;)q{8N(v^=ByQ1I!Wq{3JZk*7~z+N*beKHV)?;*-J`y2a|``J%)kyYz*;8*{pL
zGR-r|Sns*XG$owhzoN_d(X=_S_r)sHJ;Ot9`}Y0{VVf;ivVIH0;pB{2l^V&?VHw32
zxMnX~<M!3L+VBHc{JJIQ?nO^A*=B1pQApxIfB{p}QJLIp`-G&}9d>IeA1d;`Cd;#J
zON-Hz+FebTSM&Z1ST-%-j^hhSrdtBHo^3qs?Q2$gd5YoQkjpvIe;64ROOBlTq;ZNj
zW9z!AIX~i<ZX9R3<Hepd(@piutTT&+ET_mV@p8EHqB4BFQ*`T}1JBJ$B#vwS6?<@g
zZ_E9rvwx2MUe^6G{a|AB{Mg4_M`M;5vvx@yubcPKur2F^nE$F}Zxq9NnD|xV-afMU
zSgYi+By4AY>cK*<x0hO8-Flp&=sicbDW~!O!XHMz6%R0+o~bX2wfI78CxI7VhQ<UM
z7&&3S{g2If_P+0rI1{KRba>LA%KY6o;<!Y1irQ*yR13VmZPTVn3V**oUHrx;&0u+e
zlB%uUr1LlbeoXy-dis7>o0|!n*Io*}$1(Yg)%8aY^n+#I*x1(?-uft0x%P9{wGAq*
z-^_wp|Hc`wEK+^*;C!ByTE6-jf!rBBB{Scg*v+;y+j`IY?Kkarv-%ZGi_^Gmmfu?6
zdiCj23%1Fgp3&jr?;~R`vs%{p>K)a~p0eYo$f{}1s_#@6YahwDGi95bzk-N!hK1sD
z^*W!+XV=?(=(Vu8ZSL^RbaLn?<?@?TPjK3tT(@+|PuZKMXAZwPv}u*=7tLLVE`Btc
zabjIx3|m{%b0eN|JB7NqGa`5E)9iK3xA^$(FrM-#Rl9g)^v_Mdr#dKlE}igB{Y=h-
z)s0235}WeeR)%=S{M&Owa%phSy~C4QUK+{PXq{c`)XE|Ay{2kQ`{bE-Y|gz*aAvQT
z-sZ329jiL!@Z8%D!cA6p9hbfE{V~xjI#FHPsI$8N`<C#o;txj-cBmFCte9o}{K4~!
z{PUEuMReR*Ui|fQSS}LBb@@AA>D@h{1`F5Ea=&Z&w{5fG|6dG`GJ4Ze;-tN1XgD?H
zIy%07wtfG#<c~+r-Y@y`>tu}avxCcIRli;H+raoKfvL1)KihBbnnO>6*-Qh4ayQ++
z5*77wip6f>Qr5N)X=nT2hFgD`J!OMf^YUrS?n|55rJLMXES=jn@z$CpZ-Xatp8wR*
zt=*becetW>uWS1%tyD9M?wpmL7ArSB=1eft+M-h&vejhT;)lti(>H9FiDN!%7r=MY
z_3VR%TtRmZM1)SB`YucJ!;`)xzW$Rtu2>bSv>y2IIpgi6Daw16-?VmF({TQMy7W5F
z=@l0)ce;k$sFIWAGh~jDN}04=;Ys-KzV3=s+qO1Y{Y!JQ$=&$sn&WCwzjNuu8*cBN
zIk8|Z_q0}z12r=Qn^*4Nnb>f5lI<sxD_mY}R`zkPc`Y=#4bIF+?Vf&O!5kIS8bz_2
zd)HQ*&ERE{yyVd9=$=)@>)i1;C`O@NsJG>rHfQgXO6E>hrhBJ3k1kSKGhb%6(jNu)
zzqLk-t!FgOd;j9~#V$)Wd)b}A8(YH`@0%u}{w1l;*H`@CyN@xP3tyH@ZRxr)U5r=O
zz?k#PGviFpSL?LvUR}C>S?O%nN%26n724&07w_05cJNDHE(cf4rpqrDT>Sn{`&F2b
z+0-Z3ZOa+78Nc@ZJ25%y;N_DJ#w!}FW=(09&n+sr8WJA3mA|Zu(IbR=+g+RZ4(>bp
zpBDvu{jKtUPL7b;){G0z?uvR{A2v<8`eVtQzccL&8yAZ`%+ETNS@yWHVot?xvCn7X
zAFi1FeP*70bJKUz=^ve+MU{FQop_WLATGe;aLdj5?2lDhy7%{`eN}SG2->c(UGK=-
zCw%JDHt<jWc~W|D?XSZPS(|pKwC++@y_EFcaP5UD(|)f1;2U=#v08DZo`d(N@Fdqc
zEEyLgcc}d17o7NaRpv$c+?2|ypYaWh3~6pf8+fr?V+p=w5vBiQX@TujQ9Go`ye*;L
zlWv;{+&!-t6xF23t+r3)nx9%|q}8q7y$zZkPCi0Lj=hVzpHx^n_f5##VzIdJ=+hga
zk&L`1zdrveP5%7)?z7{&*~N}$=|&$^{k$PlCg+&Rx!^S_a&~U_FYiojmOpN=FlA@b
z=R~jNe;JQXixxP%$<|M?eIxghml3xXav%N5E$%Gycvsc_oyQCp$Ulv`w?S`iU#-k{
z4Q;&}GRqc5y^cB{+qQbn!Qhe=G0c25=Ep<yOjg*4EH)L-U3-V?dRSJ3uX1nX)4V;x
zv#v*-3f+6_PswqYtv_Y2ir!hgOJtem>Wk}ET#wm(EpF@oJz4b^e{ko1)!in4qk7+x
zEeqf99FY6hQOP%T1>>!zRYiRPM{Q)cZ;kdm9sO7*^5oq2wpTo}nG0n8nmFGyIu)?B
zWwrKK=HMtth8+8!$1TF08rY8nW;5)vF^D*m`{vmO-Qy3;#aNF<Kl?pzn^e*q^@{U0
zp<CkCvWj2x;L4D0H%QY6T)A=56I)-yC*c(htzRFDZU3fOwN&cDZ^bXSdzh*$zx{Li
z)#~N7RlwDJ?k<nEi8;Zq4jZrb+Hk1puVU`u5Eag-*i+80F8>RPJkv6HTI&9Z#VH@F
z+GYqJ(h#}0mZitY=!QSXd<V5M&Pk`uW7?)0tEeqyvu6L_vG$6=8}^3VQ}h_Pyvq1$
z_uDP&dEnK#weGS1-G@z+4qx(p=`7!tv}()w2odQGT)JgEcYTsF&vGSQeDg_$b=zD+
zzDwFm&BSV-pEhWjDRfY{aPha((SGeN_8QMwQ+K9huQ~AI_Z$!3q-VQL9AAGkuRFY4
zn5SQg$LSHr-1m(9t7dDkgsfsq-;wpL&y~Z$bN3m6C+^kO%qgeO71{}K>MXH3Z_zsC
z$V?GqNj+uN^L2Yv7Zkpo+E90E-)aH(@Qm47jjDFy>;-I+^DhYWNVp4LJ2A;X=68vr
zXZ+&T*$JuNoFk?@yC8e)$4ik<iz>8OL$^L!djH>2#iCd8+6(7tI$jP=ivKU8*dK7r
z=*jIVd<t9H7JjvOWu(cxW#&4S*TE;3erWUC`15?mwrwZ2n$)VqdK=3psO|S}-ThI=
zaP!@eOGgZ@)X!Ko&6$7eebbQm+S(OfZ?Amk4{iEp*Vnr0z~gCC*B$EI$ZsH*?7k@K
zS^sWX#vmovd2S3!8{71@c<o)2{rsbNmhA6>zq46Rw}*KCnRf1J^C7`#j<A0QL5DZ%
zoAqwKV)Eki*S&F_SJT?%X9)Sfcq`C<{rj|c3}(vHjsEzCSM6*%7ah0v@0+QnX_a5a
zV^2O^H8D&t!|uG}Q<au)rEwbXvNYE%`}+R`_h;R0;r}@d7)oqyK4B{xz_(CA$_DT>
zGum_n=u&g^87^PQbcC6uxwF0-w#f)W*E)b_4&f6I=9Y%Y^CK3Z30jDQ;EgE*LQ4<k
zg!$$_HWOgI6<z1@P&xES%*WtI8|5Q%xW8Q4GF^o|DotkFrWB77ySih~#J}@uR!?5k
zUDhq*Q`EM2W@Wxy@!7n}tzmvehxe_{TVJ;?!uz1K>f0>c9UI)%t*hI!BW-u#ov`ec
zD&=R&?^ehN<won>sBqUlD?RNUvo3FVj{UL-&y#Xm7Y{rNmTBMlLvkDE_renob;^pL
zSKEj7MQ`&<oN;{R56v#~b;Uv9_m$c;+kOh2^lFYSeDUkC8K1RPK+NRgBfd*nroXW}
zmpMmCY4T22w%Y*@;||L?*@rDkYp<0E>T{b}UbkSW^Bms=Q(eu<R}}qz`B_kJ)7B6B
z&b5O}yso<Fl^?UEGS6haYvVpxx^`Bm@7d%<yM8tA5k2!nw>9(A`ipwipz==d-t_M8
z>B-k)vX+bGe|6p1XnKcnjj7h-)l)Tp{F}Axj`zyKS<?2lm(MY^{oHZ8)l#q~YF^?s
z(`gSmd--0d-!d)v`NN0Pf@9nF&obH%J2-?6v<PiUoW03D%v4z|vz7mAVflP6&g^$F
z%J+*36usJZq~33-v%b9S=(D!kHByi6y8n0asa`2{IxbIZlkk*&!@HNG5`8sWYc6j%
z-0{WiZ!u@q%y^|Jv-h?BPfofVDRi@Wo*WbX>13@!{!u#_^V##tRxCc*nKt?Gv$m(Z
z-`~4EH6r$ItjV1lQTh!vz7>0_^Sf3)Tf0#`#WgnPdA66(kss01q8h%1t(Y3pu~Kx`
zmi-Cwe{C1#_{#^+)H&dFd)LW{e%WguWauhszGIo;Jn_(b)hRj)#Z+De{q{ZTzx98K
zd#U%g8LyY?<+(>?9_TmZPptm*Mv?QYw%UaLQ^iXi#5lYU&N~yeYx@J{_)GKpKX<NJ
zr<gFWBWA{};0u|2)2Aw4_TKrS>49nCulD$T%a<xu<vla76|vPg<>C~O&2pnL$={`Y
z*SRz8(zC8?`rz}WylYd9F4yk|4@EqDo(1hY^(K4<Ge_+E-S(NuAFlr1Xy6j`z**+m
zB?e|EyZPq|LoeO9)4DQ3)@@C9=cEg3R@^Q6<t4$N*fqs5%zDe=4Ic|6mY2vRb<KR`
zw7AVgY;#Jn$CjLe8w-D#{EYZCJ><1T%Hu=%iPL8)8ZYdYIUnD4TE=fv#Ixd;m+J#P
z53jZMocy<3(fIkspGLho|N7me-tnkC?)9kS5Eji|>Dj+C=VXmt){C!B{0|vymn>f^
z>Y!;ad0}bU#WT~=7G?OoNmgpj?O=@5kFGj;u0Y`0{Ln)(XET&?9NDHO_?|fuq;%@z
zh4gI`f@eQI{B-`69TsyI8b8ooruj?g@+M|2rmc34b%&kgcbW87@0WJ!l3lqb<jDCy
zwVKjZ*8MMMST~!8J~)^6sdAD^w`TvG_t*RP2{B!rKY3+j=h79br+Y3*{0fhW|2HvU
zXLRMI1GcYj|9fDav~_WLrZBtzf4vVm>HB##zdfCl68s`Sz~ug=B^RHhM_g!pcjI?)
zO?bi1*uSa=7&iR(*1%d)f@V=s3MNYn69S#QmawyvZkzGUi~A~K6=ZFA`2T$8bhFH|
z<tM*PP@9)#wcB!q(e*H;$mqbn&H5MiInLY8plMxryVqaM;lW{cfrdRbp*s3q(wpR7
zcNM=nvAk^6^0FJ(Vz&l(1^OPVx~e9sC7}^kT7N(9x<=6}&)Iq^KaMSX_iE#(D-({2
zY%7%b=+<nJd&pp$V%YoX>$$@8ES}!lUG$U5>HZ`MCW$IGfyQ;3^HfEjs6_|AoAE{U
zpVh(#;n53AC1>X@T(PB~+2Tm(Y5okIhhn{~*UkQBJ)La0_>{GAbp6b=@~w6opZ&4f
z@jWc%v-GEb+fI2}Y+7j_+7#>^)YW!}_pDx<C|A=L=Q+FBZHiBrhu+98XewHIXMWu2
zNz+g7Zt`B$JI#3RzP^pzhDs}!Ussx~vtxOj)%33HEhl_tS+QxX*uW?Et}-KwgKyE}
zkVy~u{3opv(Z4BCaaOZO(XXPle{Rnj<=EZ#d~ODx=a&r>DQ4&BJ~CVJo3r^Ed7-~o
zBEO1F5@p++z%0?df%k?|SA*aSS(Uo|l^wal^B25nys;(o@j>>TJ-L&A`$srhPBD45
zSfRdU!&!~4HOC(Qlhdm1>Di(Z!ur~V%_ez+p-H0k!X*bX?R(@G+65_mC_QSrEXL4i
zQD3v;51wX5j_<J+D{ei>HR2CAtD~}=LEhZ?s9|SqP-ex?%wYe{t5-Mu*!&<hT1<+~
z{nI4witv@E_6ghzI(9YivaD%9_-Yo7wE2twth*yuID?rdeWhvS3$EuH!41cCO3$US
zn(1osOkOT_Nh(C<k0QVFem9#yiPZgtjI5jfa{cOc<*P0a{1aspFZSV)+e4d;MRr;4
zwtn(YPU>!dy6OKrhe_R^jaRfjeackA_Aw#I?#-hsd6{=zBO<07=DheY^BV8nS{DP2
z4dqIOMj=M$y$?GqEqR$R&Emkk$6v$`{V_LXp8UR5U$(?RL~pUpso!i;8FOxVOEh~`
zzi_rHS(u-^Byp>E?`Mm^Zs+=aW%c#*(_gK8ENtU7#pLh5qWy;pmsYRHna;svWFF%D
z;nJa3jeDnspMO2SzW(>8<>~vMyqxsp?A3hz_4l3{etB|q&x0R(9wgk?D!#GZ&))K8
z?uFE2s}Gl@x)~ldp3ro@Jt5}6Ay*rRV@=6jpAEknY+fpIh4W6A?V94XHxE_4FA|vA
zeBiiCl&$fPk1BS}@3wvBb+i5`JSDO5-+lke_5GfAg_v#pYj-wItv&aBg7LGi`C@$f
z$%^0C#D3U0&8*tX<L1Z1#~-!VhfYckKC?n|dh3)Oee=IEe#_~N=C-@pwa3p}@;{qH
zq(hyxN$w0ezV0=D+#47f7X5h{inVkAt=m8;9Zbwj4X_js`Y6jZoRRxnB_Y)T!R2E6
z9N+QoW6IK>B>hb-jB#!MtCEd&(FfVJ7M*YoiBsZ~Vqx-RaOTK&ayr31VTGfEK}e<M
zYmM0MSot3*5y#hFy;^E*Rc2M{{`TFAbDXv>&)thye)-?U`g8L8kN@0Pyzjk?+{4$-
zA1d}V^h$4cadkh}KSAuM-rWrrm#W3yh<&_sFqo;3)vNwW|MN)`p7ZNoesj>6&sV*s
zVvpMMDA#>%n)kQI>&~2Q>AxxE=cW&=_kMi5z2lDbbp2^A9-`H$lPY?>bWewRnmtX`
zn(~t?wJl05R%N2glP4aJ_DF_IvY6?$Oy`lG@ROZJQ(e|gO7XaIif5&cxpSq%q7##H
zCO+4^GOK2$ijvo)iRym?7EU>_vwqc~y;?g%<}I9ZI;6Yqq5p@Dm3Bu=<UYzdp82AB
zPrbuZWaEMMh%?G|i#j~)m5xpC_^w*^v7=xeV~f6^la6XqN7W;-{->Iix_kcr%=v!t
zr_CGzBS+(hOY=9qH~1;IQXxKAdxhdF_d2QnefPcg7wvZ!J}Nw0jZ=N9f0d18MbYUe
z`O9<Wf4Y0+$I95?`5auV_21_|TmOB(xPkcss|P=~gkE0f%l}i;=Rst~;qNado_}{&
zF8Q3c|Ebl+UnFyWJ^y;sC(P;EL8GvS{se|u86g3?bXA@N-|4RpyClne&e)c9-JO`F
zpBmQe-{P#(z`0>Y-N&iXJfG*yaw;m!wYcZ}%)v?e$HsRKFP6kVJIo}qXhv{>e%U!W
z&Pv|Z3KFLh%(W%>TJ9~rvhG*yG`VAyKYG^AZM~VN{&LIBTdQ5KYMfi^Cpi6+`<ax_
zo|hY6S<PMO)U#&!A|2h!0@2zc2iU%A+^s8la47fUgAG~ALK=Sjmpi4mJn24`9;uO7
z@XKlEoZj>MCTg8pbwy-ptmbY$!}|wy`nH^J3ufip*!usOzc{;`!TmM1;)2`NYG+Rp
z-4T6UIde~$K=OsIYRQ;yS}zT2K1qcAmA=PsE520M^xD)-OWEeeg$Jkez1qdW6v6x2
z>hA_w*)Pq-Cr?jTc_g*u*~|mipW3j59_V6y_wS=+$y>!s#xtWD54x{9vH9=az44t6
zo-=vpan5`GB-X2dYubgKvKlQK3I9I6d3pHE?Cf`&!}}QDf8l1UnegKFmJj{ApR4Q)
z%F9a&HU06@k0<e+M8*upf8jB{Z@M=Kv(BFRbG5P1;qp5bM-Hi!3;ex)aN)({>v&I|
zP7>v0ebcmjnVh)tiz}B3DjP04uxIj|iT(LiW=_XHiH7<ECzGY;^YCund2Ul!@=-aS
zW3f9d-8p)GJOBEvufTF5Tuo)k&szdZr`%oKp?^}a_3GZ2qQ!AP_0xO*EpFb+s{W~H
z3ajND)4uNbgWu!!^L*3tfAT~t^ya1Qb)LodOD^5c-KzVvTzpqPyJ$egz2u0-Nm|Wo
zyjHZX^{ZR8^~|%RzT5orFVox`zRX%Ln?5ORu4nl96tOF6S2sqjcwXI7Fr}^Xfx_7k
zThkW4pbHjyg{NN_Pw){7ocin5C!4R=)@@a~@}NrRfQwJ#1>Ohj3-9lfvr^WxbXume
zKE8bkhq`(Vv$5hE`vvVHGw$~E9MTbsX+Q8W^UL&7y}ffZ*PSyA+3@21%_yPZERS!W
zwtRfZ)Z)yuWN&9<fsSA@KkLPfUj$cwebK>j?fc^T7uRz3be0E&e6xH0aN#q%b>9jP
z{?NG<yn5-L%J0UaS7)}Jy8om!`p5Q!mD@V!?9S`w5q4#**0JS#y)p1Y*Tdw!C%4SL
zD79tI|65<n7lb6Q)mdW|u~b;>*_E)w9fdq4j&I90&ovHPv-CxCR$=?ZCkCx?K6|JA
z^1jQNEVg*%$+egF9=+l+U9vo^I=k@G(`P)NBbOb0v_U>Szp-mgzIC>Y*w$~7m%6`X
zHT&IJRnL$r75z$RF=x1Bi;U3Cn>Uhn>Nf3MetO%Bo?TUUqqn?%Y<=8*f%n=a>w>~{
zbUR+gYaPnzdET?+X0g!bg<tP|?%TZhQR0njR=0BZrifZ?^gX?Q&3mIKhPP@ZW-d>=
zT6wB#uF{_;3@kP+srm<5R@VPklukG6?w8!d;2UF^aVhBe*Sl?hd)(Hq(oG94l<aK2
zlIme)_N_Jdz@eq3nLou}@3Q<@SNBo+V~<~5Q1ZN|AFdi2upCs_DyeO9F|u^!);n`g
zpY-4IcC*Z0Hph2|7F@gS_qkxR{PPd9999$uRp)ql>t9aI-d?==)cw70pI7spTk`b(
ztPATOScIolYHDx2BD(i(z#$F$-afCiLcfgM!_x(-bKWdk`~EvezNY!R4?=kbpUQ9W
z&tjjcZ0269U(GDy`}M%_yGs_In7Sr~tGlOj>z#m_XHSmb(v}uEEWsJx{6I*=^cGu8
zt=U3{M|_`)3NlyT&+fW?Y(HDz(J~=t^R)&KLIPu&UY^%|^vp4T=KEb*4JSU%-%}YD
z^yA86W!{jcX!l2I>o)z`Hc4sODy8L0ljlDDc-n3Mqgh|1`hM!E|8I!QvOaARwL2$Q
z=fhoXPwmpfm)*Ao<=KCCz2x+e=X_l3q+Ke%Vt+r*Ir_}lXZPB(_dc#W&i8p~nxgt&
zv+rI~VGG~a&S?s)5cs@fV;{5HN6r<A>LJcruU|Ua@;2HZsJ-!b{pHu<ixceZ4wvwl
z9DL&!Hi2#7oq+k5=bNM$?mBfw%Cvj3&FXr|mhJm4%=$euZ1PFNBXLbGLG^z+9<JjE
za&!1#dgl04-j_)^3li>@-AdeQ?caIed59Z}p8G=0O>6GtXnxb%5vV>l;~L)-ULB@n
zfiv&+)qEFZE-vWJl<($^dgYWmJ@C|&@VE8bgH7g~+Pz2Xdf~O~D}`F-GuQN;zq$JV
z@{OmOXL)>n@#2Q8%xMGD&|JsuWv_dlR|LE|qws2n#qKC2o<0i>MwftzhYMOKI9N%X
zkexhX@&o~eA~w$UA~qJ6fR7BN;eppeugAVGT%ERc%f2@?A#cm(+^YY*`q$p?udDWd
zm-Cn%(&S*#+;CN6&6mALvd*+|=@-6~`hWYw<NJr7RvOJ+*uXiRC!X!v*%@;3y3;&T
zYn(I;XLf4@7dC3nys@G7{PpVIr422sS8VIqe8*$XWWjB9j~m&~>sT#5=fw4O=7jbu
z3(A^zUb|~Isc<&K!TP%IRbCfFKTZ1etaC}Cz<$e1W^7{9>LnK|-}L^!`NDfO-3+Ze
z0gIg+9z0Fdjc_^ebaU@fLCsYuqMP03PZrG+d0kb|zVOr|HO8mGO35!u=0EVBwd&ss
zLACvDLYZIY?D8#@(7(sjo)S}(n#UyUq9Q2yuCnZ->5f$S1zF3i&Nd%w=-*x#`SQ||
z;%UzBy<`?WxO`)K!r%CRoK3q=9Dfj_{^L%<?uQ&{XWse$yLizgYW2(Trw?{&S}!%>
zocu7_rSsj_w-bA-dBlCrY}CxSwqsAs%ce&Ew7HI3SLE+|Z@%PENcFO*2`>MnU(Wxe
z-1}{{pYb$Jk)^9sRC=2Jr;5~H+3r(#HTUDMwccKv)%+q=m!-UZr?7*0U*f#b^uC`F
zUD{{c1nqq^&+gK@oHe)L;?_uOX66bzz9g6SbjuEI*2nwU&x&iUooi<Qas8hO$1}Eg
zhb}*J*fn*M5hrK(fn58>(2hHr*_$5DbNk#dvE)$JtWwvfIxGEtGR$=>5bo*f6zMAF
zR_(HJW#BcMyJk*F?C#62)|3P!=yL4mJS<?GtD$$$n040tzc)|biJ0QL=KTJROgEZl
zd@A~IEY?5O+tuK9InSA+eCphlNlwcQW=6+1U4J@t${w4jbz#$G-Aq<Q&%HXu$sjk+
z_6~da(<%A?N|Uy*ZjcYI;&pP@=Ki_E<Mivd+3#n}Q%Dz&*!cXsquh-9kMz7^HnSB?
zf0}x=$B0#%!zW?k>jbNqNlS8#_SYYN^6t)S(Ty=e+nUmEJPl4$mDiv6>B&x&7@O6O
zA!`oJd=t1qE{FMH!sWXypLd(N<#wD_GTl|yz|-(zm-|7l<e11ka}I|%&0xG&d!TQb
zy6jDNm-OoNdw1A&A6O(cJ;<l?NLS6A_|Qu?BElc%J>_jbbag_CStMJtytvQ4{Wfni
zRc<PL(Ggp_H{|al@dK=%*|xU-{P5Y-AWfFlZTZF{A&T)HQ%;@<_1kb^`(pk-4w}6m
zmwx<Ik-DM7^qX~|rT;YVWe3hm@dhoQv|Tpg7wh6)j~!<3zT7*0__3eC_rCw-CyhdC
z?DRH>lx+3oyYoi*@0sh2%HQ6+Sv#}aCE0bN!?Ki|cOF`-Tw%%X7At3NbjgbOt2_N-
zs*UeXUXCB@{(U{nUSYpoab9Gi@EyMWU7y}m{D0jo?k9b6UTXP|X-VfVp546gL|~*{
zio2lD&ZAB@*WAk5V|YKVsLSVi#^ozN6ob#73}a&HG0sg}IC~fKJEa7^tWOFbgiDT8
zvAwBsxuG3mv}%h_bjS2rpKQLG>P_$d_D`_xU}NI_r;`;mZXf@;_TZwxoma9%1Ft2`
z`^q86#{BJY<?i2HR+(Cp=TAC(w0o7x)F2}hv(*M{|0};R%wV4O=j$tBA)UsVUo`U8
zXO~SVYd_^@^Y`h+E#7Z~t^^&{h%uerP$)FXyz8NQTlm*o&*t$3#oxP^qoniSYx=c-
zt(W`)jqbhaKC-Rgnwv`Ztv%+y@1Oe;_EaW0Wg6SF<jzdi7)8a&GqqP<=5O4}Jl`fo
z@6HaUyaxrIz4J6rPV6aBVP9J4^KHYd5|7)Or#(6KmL+=ydrBPXcrSO0ZQly1&-b_r
zcK_p>ka#FlUpP?xa6-A=ymb9<K3`+^UU>QcZUcKj&i{!r3tJ|f(tUR7R9<s)71z6!
zUynbDeqq9ETz_VfNWjk93-vhluPx*0`yRjNlIyk~Pa@{7&|TdSKV@Q|epXKLwq17T
zw3!+sLYfq&yLW8mn|$`tn(ap4-|T*`F7v(q(B4}$j4_7M+6RhxBmZ9C#g^{oaV(+S
zaJBl<r}H(GR9=0`I`vUtPTuj|KhM4tj5a^q5PRlT$Ku`pHZs2#y|TPjuU(Pz=9%q<
z6P8?)*RhQdi$2C9zv_~RSldB9tEOG;^H_7PhkSQ&DF6JozM6A&?CkI@((_LJpH-Q~
z=<)UI=kLsIQSWWuDr&7YGF1H|SM}+GP;T1$A0KXbsArle=fro-zg&2aQ*oi@#qhxN
ze{5T7EA;n2yf96`<E>B9hx`VUt#;c?zLo#!7G0WjP_AMUw;<b6cAahCdGGK^yx;S$
z|Fg^5l}lz=?Gj$a{XwSo+<~Kf@6RSaD_dS`pH!e)eC__B(C9tC?F{B^WO>8b7<|Xw
zpkWgChR>z#kEi9eyDOeL`EC!3T{WZ7K^rwk=7S<^;yEoBC!BqJbJnh12Ok}iezJDi
zY3Al5OY-XFSl`<pe^u(ScU@Re4|mv^O`jgxd}{HTSUzEaqnD_*z3=P7od;u<J)M4S
z_mo~1g@fh_JS}%l?%SlP^Q^sx$!l?bUF!`Vt-Z4v6k9o@&6-=gs~k2Qu72m|Fg2B_
z=GH9*zxT>Hb8m6K-J?}^MgGB`4jnJGD=*p|7Ddh1`TsIy&zz5vd(VdDDM$5|bcRff
zESqzSYwy3zxe2OjEwcsGvy3Iz^i6yB$oR;Q)ocdsRZKU}uY2q)mwh+o@IMJPrvUK<
z6NEyRg-q$()Oz*gkxi3wW3t#IHkdJ;UnI<*vo!wOY5T5%6XJcj&UfE`5$g?I$2sj)
zXwXz6b7ezIZ<R^UPKgF>4f?&G;SQtnzqX!Mj;n0Wzn8PNS6BGeNaZbWoWFn5wj2B8
z>L#&f7iGkhOE<Jlp3>Ld+tVli`1?cF`)qta62Ehb#%JVbR7f{;O`9-l#`cNx<!^o8
z&+5pQqEPA+<;W49>7$z<UDmN+MxXq%@Bce`BkLoZB3mVE*|*H=&XX^&|2-jIDt=z=
z`lnaF3w&oiFW1LbVp(opDOJ;(zGLswCC^UD@%_$N@Izhn>ZIQ4*@hfb184j;bC#;^
zuA4Gz?z~H9<<_kGuKC^VxzvW@rCH_GwKZ~~Tc@Q+MOy#n4hoRV$!_^B+j=+myM*L|
zwyv&5>9(la1}AyG-x)vDzB7yF7L=!zNtd@QncXhmx+L?v%v`DN^WS+_$Ss^ywOD%b
z)Om9kmrkz;kMXk%mv1=4`na;DyHq;cv$&~1zQ2Zb^6Hs=Q>2&m*XB%-?`d26Te3;&
zx42<pW>sb7yi)11`pW9!*_EqTO`ke%j{MpUTMzC&yYe@WMA(d3bt|M7t?2&FdI{u^
zSwB=n`=(FonI(N>MuNdI`8lCme><m26(&X%<;f*y)-_dE)-BJKF0ZO8OWfKq`8)Ub
zH9u0nbFVL7npW6QRx2NSa9Wa7n9XnL1XsE8?;Lg40=~P~bxBs*RyRk>^Zn=$`Kc}%
zpjosW>vmBK#I_>nw3(TS8MaA&eB)13G6O=w#g6Z8{61@|<5R^w?e9$sy<J!ZO?8a6
zY|4smYLJSN-gR?H<_kBLXa_OJ9I42ZOpy?=i5-hH4A~YN^+jpzXtC((n<e2s*Kn$2
z@3TGU4z9}ll&BRtd1Z8|-JD(D?^M@)|8MWqIJMP5L&VC}<;0=s-nL7-=B#K<ym#-h
zW%)e8Pw&3zz3A_XFP{;@l49ZXvqh@>`-x5_?u8rj{s)z&%~LbARE_>r_(*+HW!-$e
z8Mbobf5rYDTReZe%c=l%4OPR+TRBU;v^&pugk&3Cm8#qpWEieAaoKY3u-@<sUSXPB
zy?pyDrDv}S%2Hh!)fqEs?L_S<T07IaUFNDxT$;9G^Jk-}LYX^U<}LgXl&!MzS@Es4
zoVP+;SH(<Tb>-aO_rF=47&QeVthsF@949y^EM?WwcHHL>pd_%ytXyY<&>Qg>@fj`h
z+|{k-Eqhv*vgR6|RyvwA|EROK{OO9*cG}#lXNFA;yD#|dh}R=gNvCh!IWC2Z>awd}
z>%30PzIW{Uvdhn`qgUo`ecN$2X1CSu_&3RKv){&Bohi0Z<`a-UT7L9@(Ux+af;Xjq
z9*8`=^7>2Jp+B7F>gVRJm|KxK>Hm@~o)2VR$2|QrZBiibl#{9#mY#b0^2w2ti`O}>
zle%8NYi&vN>$1)`_t!6!GlV|RRP&E>S$H(0<QvCpzIs+Z{zS2eeX&8a&zR;e^eb0C
zuFvCou6*aePY3@wcKn<;`S5*B)|Iy=Er>a?=A^ONON+&N`!kuFw{0#sbw*NIGoI-y
z!=5_3ExY&KIq^0tPv?Cy+wNJjZ&^6A?)#~r!gk{P19q>8cYi%sUu;mlW2?jR-3PBe
z3443TZ*eHYEw&9wZ>#O5yjoXp^N07Z$}Y|5$=i~Plkx-8b4ycGMWc6aUv=rgm21;P
zpT9D5J7u|1jLm0$(2J)}TQ?ibaNCyt@~6PJkTV4@rhYm0cbx=_lWoeLg$uuZeX)1-
zvscRvTA0>P*MBI?v8>Tox>G)J>U8DzZuN01idz*#UIp6DJtlSj=p~J?n)dlFZ`YiD
znX`JG<;}xoB`?2<_k~Z}^)7m*%yhr(s89SQ61Ssn=9OOdFIl^y%zR?$UfmZum#Y?R
z{F_y<>p$zdC9^85OML4lzq@ozR4uhtT{qeLbf@3Nqsq+gFP2R@w<c(6+`+t88XuN(
zyNIWS^W~)&m8VW~tFQm@Ep6SxDG?%X?<+4ps=&_tC2&O_i)k94v)YRGK;D@XmqdJG
zQQiM=*Kg~XqyNRj<*x)A-6(cenRcK>>D7hKzv}kqUxlnRnWcN`u{B@eBm0Ay#uqq*
zitSs3wtE<c%#7fg!@I-WW&@M=Maj9^3x4Ep=iMMaXQ!X`l#_+hw-!0uXF0NMs=Ls{
zeB)H2^eGF&8@mo%Of#y8KFo0ZzlN4!LW}uCeXE+t_4z4%uQwO%*m&OM(vq$hTw!Nc
zCvt@b_?{5ixqGsNj-sM~Q^)3b+uD!w*j86=-~0T0Wcxg=Zvm2q6+3?a<7UgT-gAvD
zf8KNJ>4yz^)VM06RN5>*wCqZLq4E0c)_pUtX<WT<kh8J)rpD8!yghomL-u})jI=((
z{5$=F;0`?-#r%hD`z<~lRj5__Ebrm^W69$uF57m_d6D%_zV_gq*RgxAX;;iGXH$Q6
z+0oti`C{{l71=toBKVFQK44_oBba!^m&@Bzqb<DU;2G^n^)3gaHYLulix(|_RavOJ
zF**I?IUTmCDqI^oH15W3UERj$XxXyPJznbQr5UL?G0(m}^;u-MSmWpFH|-CY#oixy
z`}5r5+4@C+%Ef#v5^InC(F!(bO;wd>Ib9&!>zV(oLAT{=)A{WV`upAsP7a<Sc6wXW
z5A_6vHK(P7H}qHCw=I?ulD>ALN%@`QgRQ^5{i<5Gck%Xj7Rt{a`)poeIO$66Et|Iv
zoP`^gKYby<tR?jLc$|>4%90s29EM8{2(T*cubVoBFIIp0&wPoh4@nE&N2qt-d*QDu
z_l;fs!+XZl-P?=SDg2!!Yx8Txf7ROhqXt6UX-Cd}u%G)Y<kYVg^(DVA_5XNz<-kVo
z`q}~|y|Ox=NkNCzw*UN-Iz=r0?7{_Q_GcP0JQgY*5auXxna&`xVD^2>Eo{GDd+Vy7
z-_+I>J1b)Il~W>l1)>#N`Q?d@g1c?q=S@FWk;6LscmM4;TUK-1b)8b-8?FD`Uh|H5
zfAIEq0`2>w{x&|UH?&@{{Nuw5vcEDzlFywh-JLvn7kB^Pjm>@^SN@L<I}`ux{fA)9
zFB%boO6fsY-d;cO@aGAK^5AWAn6qm<QrAXpzS@3J^;y}n10fe0Hvjzm?7*k;7oAU<
zDz<#RA5pw-XP0zSlv0mQkkDJ!*4Sq|PpvtyAV4KgyezaRJnP)t?2L_O6IiQnEpC_G
zu$%Q=euAN2bEn4P3Z4TmXY`p&*df)kczeIh-o$VB*)P8e%L)#yJ3KA_;sO4hdCGx?
zVKa7X)_QI`rmJ6G-I~{5s&{02SJAcCzol38T=l(Uxj}KkOq<7^SDu(JefeU^7F*98
zy(^u^xXv7AcDaz6xAL@3-)nZC$t#aPJ?5loE2he&d1v2>LwnxO<S=1xwEe1=aA13@
zamT)#9}f*8E<I@V?%k*JZGu4m`IXm?pX%x>7B78%`A^1@iwiA`tn%M`PBV`(mF{7`
zS(W@$@!9P8#TWBxLRaj(S$$03g!6}Kh+&Ru(TOdSOloglOSMf~bx@*%Z$>ZMgmZ1I
z3cuy%@Jx+~<6h_$FV)n?<L9zFJx$Z!x_a|_k@98#PaRw@Ss=stV@0yeg*x#c{C7j8
zM2^mETfF4A@z&k%cCCE)!mo6<qw7VbCc}pEDMz&9G!(Kzu1sCP#C7<>oWqs|;?s-H
zFr4i*D$>+oaSXh&L+G(!{@pjnZn-=Tdpqs*$8Ep+LVug4Z8zI`b5^}=y#4*pHSa&$
zzP~+JXU=}^*9V!mSTMUK_H}#}s<z&)Q|xln{nwPAl}s$!hi6G`zQev>_SWvNEd{Br
zhjr@tsxPF(?F)>*q}J0K^pt(Z>dsX4T+aSug*JYM(YstX2z)TCOWw46>iKUg+Cy}u
zr%aUe&;0Emb2}_=ooGY)!KIo<&+D0O`uX6b1;5uDS7+yUGNqp@Z>@P+*|enOQU-VM
zqfCxKj!g>2nuZgOcZw`px@1FOL-{}bBkn2z^LI5kIjr_+;u1QYUnJn2u;}Bmm5Q6s
z+;{%!VX^1JgMTXDHZ43Ra^NAm%BSSFNj2w%B_g<vJ}CWY*kf;68Mry%e44Y$<O9c^
zy)#OA|8GmFQ2+de+FS3*lw?QR?r@t^&Kr~T@7Upt4;I<N4}*)=p1c+8asJuVH(Y!(
z=SEM_jDM6M&66k*Ibr&P^+Lrbo_sA%HQgB&SGYQ2!bQc2(mTzf7<i5<a{RsjJmkjf
z@5hgY?>^LUrY@sbfA3<aJJ~ur;~b{*c|4i@zvwypmg6!k?M4fBCTi~vb`dY}e6nw$
zjc!MAo_gZS%#VlOOaI?8qu;Y{+NG{wt;t7vHXZwtTx0xa9fMQIYK?tYKKymNxnp{F
z*UfILJ4y~LKh2|-yXZ;3Dth*>;z@C6>f4aWh5J5fv9I<Be*3w6=C&34{capqRhjK{
zb$5}U+QDPz`*eOwU0!fNwkh%J*40~C<3%b@WGw%x*J>wq>Bc|fvJ7?g1V!QFi=sb#
zvib6id6G`-A|c;*X47Jp9bap*uV&T0T@#Pi`e`rI2xBw%c+<P*R?eyOvmZ$By7H6l
zl!N}{R@Pm+>I=G-Pi?qbIcMX>fJHG$Yt9Ln8T{SKl{M#S>n-N(R}b&K9Z<8;W9{?P
z2Bpk<U3`lTq&eI9dyf3vHtE2Fn$EYYOj^pj&xzV^7fe?@rG8Fsnb*qXhiebFihGAx
zR7_pBFl{!=Isw*`FZ_+w8vgw$<WWl&@o@@|(Au`YQ&0H6({Xvun0NM-OnRFG4(%2G
zd!coj`kF~$&#U}q+Ig%!ptSj#{dd#vmDf^!m-0;$Om5D}dN7|iyj)&<wN~}6_XQu!
z{-p`9GOmt@kX(|fyLro(11ic@k4&DNu`cZtTWz9L#``Pt-e$J#Ij?-Swaz=WN{Tsu
zO7r>P8>j!ayosLSa+1rg|559{(w_UW1$S9x;scYn-EgV-@@Y+4OR<owq2_Zz-Hj8L
zWC>m^`8>(=_L`4ZInVCk?YiqftqHV<^+!U&+W8IbD&MmDY+t)Sf1S2+`7Nc%H(O_Z
z3YTe_tf-yxkd-ZM)4ASL+h;kmd$H|4s4H)~LMngpe$N2r6kXYOB{^*u7xeaWXGS0W
z?HAwu=E*}{erMMYvmzx$&$Q<7&+GkDRq%E)i|*~Fi9WK~`fFE-M*S+k`{>~3Pmk@p
z1seIY4$S_2*z@>-&58F9Xf2!=`Z#~@nvePyPEWT?{h!ISm|yMTi>Qr_XIm?KJ~Pek
z{yc+C%<Zb_X@gnzZ_lLLpSkWA&U?-KigB2_kk3-B&r*|)7f1M~rM~m>7ce`@@_wFo
z^>WE0iGu4^dlrQIHt}`dF}h)t;Z)-pHZ$|`W`~`UVRwZOxXlZ_ng3p1^A4A&iBnR)
z#O=@93wJ%?NM6?v=O;dg>%Q@=$)0!1-fhT{4f^af&13$?sQb3EKIh`ft+@+N-JBL}
zcDs|Qf8(j<dbSlFUxc<k-TwUTgOZyUZ(1=Pf9PD&E<fYS;$OS8);%s>-OO~=BjrNM
z`CQ%%-V*u#w-$~+Rg+hoSi7mv*YxP#uw92VCT?bnKJ&0aInICMXB9tb=k1>Z(`1ha
z)*qSsR@mmvo63lC{<7G{soNG$-S+Qqa){yl6(XB7ScBU$`PEg`vyxd-0y-?t>r~FU
z5_Nd1NrYdd#y`o<ImTC{<}WbMO@F_8v3}c`kLNt%r$1M8oaIv%Q7$I)EamvcTWXAT
zjFaUbS1b#<EjQ`N+nd>Z=a-90PVkHfT$FoUGKT%^yDw3CyMHZMnXsW?N$i@?%p+cF
z9(NS_NA=mMJ1-Ht{4k{>d6U+rr$+A*7C$WxO<V0!_4&<DEnf4O=Y8BK|J1w{G5vY&
z^pWe6;=Y=?FP2qnes}8gwL^TOdqZ}zInHY3yku1Jc;l4NrYX;R?ne3x71~`sQWqLn
z$7xe}<G9sytNF$&PqAKd*e~>={K3lUk4<_de!h}%F*~OseJ1wlqtlW{((+y|m0iRe
zYg#Dq^OKC*v0Cq6XK#Ofv|3W-tjyk-|2R9p1i7TM>G3{dI=A$?`L<jA<*w7-oi?1|
z^Rr1)|9;Ao;-W6T6I1t2@9Rw7->mmztD05(e)Uj;l((M#56X{O{CctAa+n!QFguIY
zi=1mIsY}vd{gC*)&{?TvqW+os<C+#}!56+w`4r(kIVN0N#^A==IgdR`v%TYwDJ7~p
z{(t)3y|U2T&vl-iamALc!5msvX{(-T%T5z6@wd{tcV&*Q%sRU>_4f@Are|{LT6J=-
z$`Jn>Y+^nCt#pIv^Ml`aiyw6O5dPWudPXs;@|;B8YrQ9>FPSZ?ULxRKxN_%=_lB<*
ztz>!{J7Zm>{MO>vO85RhjxJgBx$4CW86B^#d-`JPBI+S;vo}?3iO_ypwa)6UV61k?
zvD|I$pGp+u7cZN0zx(O;clDJ#H!e@Pu~>c9i8rzz1^--fbv9tVxATtumFxSf3p+W2
zH%4wglCbXOvnh$6W_kYLnEdyDV$<c53u7;CTWhn=l9zMW!>|ui`tH4Wld-J%vDUZv
zobb#N;p>vVw>-}0HhD(1-7r=+zUkrI$h?DBw?&mvIEU*P%Lk=svj@K0-c(FZ(N&Jz
zw6%B1#FW$BHrsT(&F-1^7;cQr<zqR;>3wR_q!tmbr4F-~o$X&<EN8pif5Ni*U;pR*
zzE^(#`@3@c{=Xp!yZ&al+wA)o^dovvz{YZKrm1_<g!0y<K43MhxjCbvNb;**l_6`c
z`}+G4%=J9?ZJ1XcOk=BMoGw(KH~+=l#d&7xsiu$4iqGp`BA8*<BiLW<f9|63z3+U%
z2RH1mSJ_@J?p3tt?Cu#?Kdryu`mriEcGKLnh4BohD~~r8tL))Oc6@VRxTDeG`U4Bw
zWG+kj8_DYmkMEE%%JtSWt1Y~^(6P#FQ|Ar~LAl*``%V-s{rXq;wbuK4OCF|QK60dL
z!Q~HjqRLM+YmKrFPty7F=bYfnn_g;(YcDTQJ<WgRo74-Q$ZvH%6}I2!e}6FRa=?}4
z`+u#P?&i|G;>^^ie3K74Pj;M_C$V{3(DMJLjPotyu4i&RzU!<mFw<8}e_lc4g9*%b
z{m<S{IANUXZ+$@as_pa6ckkp&>UG$qeV^H;#iXocP>I|6y;vyfz{QiC3+K<`eyVQh
z!E|l)S|M$>6Ao|K=1lZ$`oY}4l{wv<Bj;U7X`5B7^m(Rx@1NgZ@y*X&t2ttWU-r$s
z<>%f1`L4MAB$;_(K>d897`5c56&-mE=bs6!o-3br$#t3kx4<mX)f#ic{GF3NMN1rZ
zS#sc&-+IsMOJ0A7t$fHHrfc)D{)CjcQ?tUl!cMP>rTLRuPFn1_kTH8j=<SenHD0!A
z+qG#A-J5naozFkBqhZ>?Ej#|j3I35>@@vj=4aT=un-A}+N{-z-@v3p<(UrTqy)5nY
zK4m97zPu%~>f~j=+@hZ=JK19SK1Z;AyHf1w7UOo^DMRFl_1&oZl185%RM*@Ru6h0c
z!_<WB$0l?g&P;jx)?UyvHD(@jcBCr9%+)RSZifON%$>KlW|Ol0Ot;j8)raN@=UTQh
zeB14H*WBX;tMWp@JA3O3mZll3;P~TrJT=N-Q4GV>JsR6DnhG4!l#01r|NYplDY93!
zer?$J<wIE3`MOF!tzy|3l`G9=pEWy@&G<gMZq-vWwQt?kE?U_q`s7rF9d<?ExAQq9
zXi!&RVBs*AS7fQd3Wl5&Tg2Q1f9^1~*?NeF)0E+y|C_1H#7-;``t|Jl6HEUSwz~Ec
zob@(McX*QZMQ2w3it26!#_4g5U(5?GZnA!ny6kZwS7Thjf!yo+W?TRK{afAOjq4Y;
zAV)UgYT4bN<7R8!^vYgn%3$^~>cfI~#wUksmpO~1*fsNfTk(T8UUkiMuT!Bs$Gg`t
zanE0R?o!&uz`L_&&Go&qB6{}mnp|~0vpMgi7bmO{UmLWbSNp2!?#;_Tm^bz-zwQXw
zcWA!j!s%j*<rSrLckcW7Zm0HSX4xL`T=Dc*qVI2hWbMgSSRVP<(#!21SB~7~*e!y0
zm1K&R>&40@U(2wZ=5?aJLjK(By}zD1hbLK<O_Pon-d*zTuG*TJkqnYG8=o6-PEB}m
z;$z;f-H~QqrQ1ut@mwzv6&Ja#l4g7-Hs{QwSw6i_JXf1<{j>e*$Fd^MIF+0aq7wsi
zHb<W=y>%%;@9XKkCwJeQuWh5Bd~Qldo5{f}%b$tc)>Ul$b#7%;RQt5wNB6Py@19!p
z)i={_nO==$<#XZ4`6&&K=VJs!+jRaqesZ{e<j%zY&~B%T@h=XW{SYg2oPRlc8TaLg
zRL8oWpp{#$Oe(u~&iX}gM%bV3lc$6)8#@Qz-LlX%#UN`+k=EhLvI&jC_nU5bd@W33
zKi+!W;|GUo#zE0@i%%&B>S`Fye)TFd)ph2+9<O!Q{nz);exYkC@t|#otjedR>;G2F
z;F0+%GiSl_WiG23&!62QpEEo6@WWL`S!a2)-xapJ5=jYEiVED*62~&zrEI=yhHACb
zyS#Z~0c_k&eG6PQq`hleZoGSI`1@96wD8p%BCm22A23y{{hgEiyTf``pwe^$RqkDD
z9ivSnvsW5~UDOV|x_bkQx~aE!!<+Yo{MCl3dfaMjb)OZgL^W=Dw4}gM>(5V(o8sSE
z7PG5uT+semvMF+c6aQncTYHwdtvY!7Qnz<C->m;lJxY<%`QHNV{68NoW4rW0I`Pi!
zJ69#-@7{a1PDn00Ti1KltDL15@9T>;Tnl}uWzj5lpl3()2iE!Z2??h}^%t;+l~^3&
z6V2RmW$B-;u<!5f#T9l}{b1PVEXUmzyY}44DeN!KTBx|Kei~#Op4gxMQ0dI_A~uU<
zOV_Sm*tw7Md3TcX(?CtlFq<b?<||KHHQxzwT<;vpae!^&-ivqMsaLzlCW@=wThCti
zu3_s|uC9s7>(+jGQ8ew!(}m%eGMzIQG)*dEopx%&pC4b9=R193X}<hYh>>5xUS9V2
zY6aH}n?<Eo-Y>I779BMZiPRCgVBaA7H$+6>yjhjox}XVSi_abJF7%k){?tRhXN{8H
z!t+OGn|__NLPnIyqo|m<-J^oL<ly`QK6~SwQfY3FD~x3Yvs7*e`?R@Vujy=IdQs@R
zt1V-8bc*K9Z0#i%yf!{wRJ^QIVcGuDl#*w&-kL98aqe5+gOgJpgnfB+Ec8XL_GiX>
zUYFWG?3{ja`J>P*_hoNao_zPY=E+>;hqW`h-Zi{c-S%k3{gbR4F6X|Sp{87axYG5>
zim73*wX>_X1^&L^ofYyZLFnj*gHBVl_8l)Ycy>zi@UqV#lW#vROD-<7SMR*h|4@td
zi`m0N{EW$ko^yr2?9+U{IP+4`?QlC^)<eFFo4dk#x9n@FZZAAg`S?a^)s%&=yryo_
z%D(f=;d92nxxW%Mmj+&$cIr@RV`lvQdb5uUYjU=iB{kidGsShkWp(}MuYaCRfAIU^
zcV!omylFBY)0TdhQg1nx>;3kE-=tX?xAw@W+@CUW^9nhQ{mZ^DtT~@QZ_Brgm5W%H
zdW-AF>_{n(sy|;YxAR>4<joH6=I_gjJt?wa?$5Q$K1JV>e|JMye0%+&%U?bIF`I5t
zssGYlcfI<sRq3NYlHE&w?Vgr?eOt-&DGa+~_nS88e%)!W*EQ|@nb_Sq7Y{u>?Ik9f
za`j2biQ0a#!vc?gUsU|`cew_G)von<*ym(0PQx-WH#gPCJk|o=oD5`5u-}9`@d7)T
zs$%yR<^=^@WEH)lwZ-nhDjS}T2h8F%3M^d$Oy(z~MMZ>EI2G<La=Erj@IF7w)704e
zVu7m{z1S8NzdHMR;_F*;ZKuzBbLL)&OuE%(>+)xRKA!zsyZ^oQ{`WE~kKFWBn(AeH
z=<wCViH3CxH7gB`#n@P^HW)TJY4sFJcg{~ZrLWrj)aZm18{7F^hRS@Eo^zI5s(PKi
z>y4A0?c2{WS6iNRt~&5wLH}Rb(r4>UZv-|ohb+|GRVo!4v(PSl@zvEzn<kakZ0qws
zb#;kP*h(j3<Is(KY<soB7GM8RskF-^cJ;;8m%gr23DuiFWzj{okCIxktGwpUTY6ge
z%(WFxheJFgHG@m`XvNwrzrVq6{=7-^jx5jqGTHvcbPv^cenRIL3gz!SGJo2c$=+A;
zCfR$aM0KXDdlB(SXQt9j<w&)gsyp?*PEqrGy@Y>`nnkPSTp1;4A%m316Q-ZLJg0lk
z`xD1baHag6Vm#GfR{dRy<i<(!pK3pm)w`#+I_6fpS6g1$)LrY!-WEzf6nnev_S>bu
zUB3I>n##A>|Kj&{UFoud8^!$!{aXF6=Ox=ruQIFr_hRac(&Qgs{{Oi2&2ze8k7Yea
ziur-be~ZJ;?+MMkCHm^zB<2|BwL8N$CRg8Fw!=TEl+{aWe{)zy>V<|PgMddTx9#?M
z)Vbx|x@nK^&Ycz9$(ea_wWZWMrt>aS^jDpE{7Kt<`BJSgk*`htLR=^LuRbVU{d=|Q
zi{pvnyNq^ZG1MloteEF0&~iAegn8%piZ7oIM)ip;`fezEYIeS6YqTp%cA(a2Me9D<
z>>DdBLie_X-;xwc^>N(Ud6|1%i&%w6@|Tbq>-M}+X8jdtz^rz<fhqHAbF<Em#~U68
z{s`pxb?jL&`wDgS>Q~>i?nTy?T8P{&6ghVwAa$L=+za6?chBrQ_V{|9_B+{FVPSzY
z>QgkjPc+MX@Huob=RwyR7CkR(gW!n^&&ICbxB7Qn$XmU-RsXiuZsyavJ=_1L+@|&R
z)^FRLpR=sm>>|t<aGrzPPBr*~@1FE;Az!8~=JBx*J9hBKYlD^tyC$w!s35s3C9SKi
z(@CAVeWkHMOxxcp?+X{K|K#{o_w9?%JH^A?HXjs}zGPYY=5uS;R#wSfH)h{z7x-!H
z@vxlP@Ot>|DGzl6OBuHoMMc<K%s==!>dUdE5+@&p1svPk@<D7yEu+(govDdV53d>7
zUgyhNp#Nt}bl<)*ZsXNava+F<n6>+_#T(7s(WYNMb4}OnYdbB%Jh?5K9eZl6wz5^u
z?5*1M{PnB9Tpr5|F4j4HD-Zmtvv7W<^{uLJb&vo2IQpn2wJ3G#i?XMt)(n0;e*E(d
zEmxTDviFpnCqAVqNNn!CV@)hI|Go*>#Ov?+{L%7V(&fd%{x?sb)W0y_S^PKSvwPv~
z{G|o=*X`SAHskC{z8O+0_uf2yvEAIT;GaUp;h>I`qkA;;*^_p#J=ZxbP;l)|UY1Fu
z)K0h0=WZSQRT0yq_i^9Pq7R}vXUeZ$-~TeR=g`!hq92bX<(=O4=2X(rLyy=Eu1$P(
z{J-+Cg5#DSTilNLbwzY{EbX|s&uYhkV=5t{^3i|uuW(npztnj0R`%9}OJ7o>-9B$P
z=62~U=QOcvS-I91jvr*pN<TL7LQYxj!)+_P`r6x%<h7hV)1Oe$%_g~5w(OwvGl9~>
zKNhjn-gwa)d{J}dg<A(X)t>KFyZo=X%e^{DtmpQGmNi1YW#VkVG(A@DH2%=Sdg}M<
znbwxZmV22~ekXEpGw#@?)^}KL-Yb)N>$(!&vZ`1e76^YRV9WPs=1E7zTQ|GTME2Ht
zp1N|c%lvx8j9M<WgB1(rEjaz<@f=>WwBVY^%DA#~b2c|}`5fIS(U4tWSn<$DqgAl}
z<<E!nChgl*ta4}Bf^Bg%2N(i28(1<tdl<;K{=*eb=ju?CY<=aGKO?jFR<%T*nU{Mz
zXD=7W&F+_sJ5p~cmH27oXN6w6y|&rwS@We8KFK+($GQ7GwU?YYvhLT)<4=7;T*OSa
zXfK@f=kXjdTj?pkABOUUHpzXotW&d`GQrr_RNS#}y8HXRi++WE`z^BfmgDWzoZq~<
zH*!-NRd3czZVh6JyH<HHUMu%Q*K#j=-I@Jz&%Vbz$}w48`>o)&%c?lTD_<5I-1z3+
zhby^<C$4f`V;&j3W^S9e)`1#vr>KMRG7tY>-tF_`$lOgr&l`=;v7asuFp+;9cBtS}
z#r&n|*3TcT+h%xrdwpDSuPE1vUcS?k-06p}+hm%Tb=@+Q)K-{z=Z(pB>krdyEORY_
zMPGgpnH;#YX7!7gOM7+Jd$0Z3)~dAPfRfPMtcZ6Xe$BdYLnpv2Ez@_?((4ER<!)bj
zT4&Rq$DYeKzOGFV;yEqTS>rAf^)Dm&lkd`JlhpPoU09qT)>1P6Z}{9hZObb!rQZmg
zcv@`A^z`)N6-RX>*QlTGo2h@Tqi4NLPp<r-ZCf7gT^C>LXp_0kQRUg`HLPD}n{7JU
zdhCVP$M*d~RlgUAKQWFJITd!4b>V!a8t2;WK_^u7`DVYf`15bFx~zP~)?*eI*I&@r
z%Ke=>skie-QuEX5unx8JeKYheL#_xF@~0*(nxJ{uYTmBsn<2ZJw!S_wsaJKg?A%)!
z%8pxGf4|$%bj;^KQoUOCvI9zcrp|n;rloXx#|_2bnhV!QxjXIa<yw3Gcd)#6kEw8C
z=U&$`hYGLK>u=xwcG{!atlqCBbxl9*W02^<`7Jw*d>*fq4SRgZ+pAiv^FnUyo~s{s
z9C~r^BhL!IM>R6`dzs81#>|OkoIUUGkI4q|A*cQa#VvIVjE%HVd%4d?t=a0AK>YFV
z8tTH+dxASv7d3Zs?(mtAC@#PlcwpJYy_t><ky5+jKkvGkD|T~MTIOuoRN;#Zd7J`;
z-n~+qsu@>`&WGGh<1;q>-g)l)%2`$R_xg+PTi*Y9&hmTB`lq!wIKOS+NlLJfb1gd<
z_i4=``Nw}P*xr0Jx^Z%n-?oFnUmxYFp4>G*<4xO!wcmQmw%mPHHveCi^vu|Tl?5pe
zj<bB+u4Vk(;ruSe_lMmtZJv=cRn6QXv$a^)T(f!Gnl+(C%WY+jY*4UZt6QGjT6DZY
zbZW7Irh43?S9gl+=Nz41w(p2Y*`oVy_04*sV*h2s5`R0e%~_XJAEz%Vt&_Rq(4o&W
z*ZrS5?<;H0CYyz4SgrnUc=GM!1pfoa{29HAB2V+}@LRe(b2Z;)ffj35=c((@RM_>J
zJGy+lcKzg>;Mu0%oQ&!{A8ph2jFr2xcxO}cf43Ir#F&=vU2EU!oSYWH<?g;XWvZ60
zq1uL{flP6MA0|c%<oBEBr_@_0NOfDO{@1Q`**Yobp6k4bFG`)AjWLsdMASK^uHC8s
zX(P+-zDNA^$3C0QpB}nt!=qg%7FyplaOvljx9_&!!I6<InjD*=c=%&!V@&z<Z4wt-
zeobA)b}e$|5h)p!S+z>f6g*Odu0JSU&$aGJ^jWEi%`uNvzFg*cxm?nJlc}PfV~u~T
zR`KG8Hn$cwnzn51uRJp+`NNb8A0Ag0H=9hlyr6JFBG*A{UP0T3J>PFEo)dTS=*m?K
z9k=aXU-OHpcm2YTR(}f&KVRG2^Wo^sD~TmRZZ%;_%-s+8bPftHI`eDEyR2QC`~JsC
z^uJ`eGCB63>5j*fZXVyZ<m+VJ$!!xiy?VH4>9rph?Ngi7r?V8UUZz_vUmGy@V5-pv
zIUAA8BV|A4X)KS*)L9zsd+WORl?W!O3ondMiR8||btwOVjU~(eqyL3gew`ENUvBd9
zR%`I`6Qxs&O*R*q_syuyx~+0dPi*B1j~?^0Uac3ox7g^uHITUdY1$;0Z5$6j3mw@T
z6Pza^d;If~(CbF4KV}71iH1kG&CdG4?Id=-!{0a6DOZHAAuhV0ts--Rk81G5wX?(f
zl|D6ny8R-n_O41@|4W<COxL>mmc4px{BlP`ue|!5uCE$l(^q}o%dEHKuGspcoL77K
zyVi0rd^b0>I$D}>=*13ZyPJ|u|LT>aOnjHvOpA(lG@mNwC%|E^zQA~n;SvSz_YJ$Z
zZD7iskiCsl{7mttxGs@ho>IG&-t@X>&+`3wRmIx-i^kNMnvX2>!gT{bTy53SbML?Q
zP2f9s%-xvn{2!O5Yg?_JvF^pAs9zDWzQ21v{r%S?-1Jm&gT@#BFVEgDV($s(ayvfb
z#-T^G;VQMVrMkX4KjtnD;#WU*QsvT?vd>qHgJT)9bHgo@-M6NPuV#LEGkocbYa25B
z|2yo8Y%-5K)_r30k(aCsaxZ;w*3{8sjc=(<Y%-b>Qu4)n8CT=ChV#mQ?$-9r$y6%R
zXzI9D88XMl?wI$d*4zF!)~)9_zd!Qg1kt^d`6V>>o#>A%esN<H+qB&idCmXdE86qp
zTE+DUd&We=?*VaEy(=efi)m&qGFh|k?AN7<>{$~|-@2=s9hS$S{^QAX-pTf6re)hU
zTVE(Y?zN@Du~n4ik5lTK?;J%>HlF>d{`C9$K8ZU;l1#0C#J2>_$TTh4GF4TBYv!Yj
zd;Zd?U$txeRMp(ye4Oyd^W!JI<Bym=3Y53J5K!k_aQ@l>uN!|Zy*&E1_*wgOmRfg}
z?wcBA7nh3oU-;3!@?Pl;Dbp-=cCXbPVm`r3j$QPey6K&8X>YD@{LH%#X2(SAn)UHk
zG2gq+T4BqXvtImYp7!+0_JroX)>B+dg(9}qPG0=^z&Yu{HEgX*>SdpK{ocOh>rx}B
zCu=9UwO_htuJnOvkHBrSN!NEb^s!|~im!c<ox5k-RJ(hD!GBwxd;6T(x@+3z=`Xr3
zE<3aM%=FFHD>wUQUef(gZD*3YGw(`3(6xZm*B;gf-xrVBXL9Z~dv)Qtb#gbw)g>CU
zltmAG57`va{bBd)Gj?@~T<`Dl<gv<Iz6zRFyhN}oz@aN@*4Yz<eS)l_1<S0Yt}mE0
z@3MN^7Q2l+D=z#ytT|C;<8tNKk=ZdhOAdXS%4VD!sZjCq%(@eN%N~l{ntRA|^9fB=
zCi~MoqL*}Dzt7Bl`F7&gRu*@!?_3#uQQv|DW@^ZtxRyOBBh~66H;+!+QKfF<9j7lc
z$j>+^WK*=%B%~n4Wq0=#)x9pq7Fj(`Uf}v`%cdthR;JUeea^V|c+6a@dp_l$_;s@x
z?QA@u-m_n=`s^<fxwmy@rrE}6nI9%CzP!tPo$<36;h7IijB}QhWmXp3_I`eT<0DVs
zSB|t<mxbEwCtJKJoGzbcdi_AOp4m!i3wy=m46Ry5?KSgrT@ruZY+*hW^0D*ayu^F|
z8xDjh$#0!K`>@!&>8TlYx$ouP$UXYIh-LSjey$4w)nZCHTPELnQL*{s{)gAwCrmgK
zb3)iM_0;t(|KyJzjDP4XA|`ILyKv<t=6^ihQ(kYk{Ivg3xkN-Fvsv&5yR?t)m!J3-
zXr^8N!#s^)H=jVj5)%s{`^BeryZu@xe!zx3pHD3BOJK~SnX@mrvc6j6m3Q$5pX)ZW
zqx~Ln_vRmy{`hOEFkj!rgA+B^q{SS#JwJGknBV!LjQF&)2@TsDmvqS6FD=oWw{KE@
zl78~+lR<wTrqt(VXmr=6TWe+p7TsgWt(?%d?}M1B_u*H6RW|(cj^L0#@GSHB^JSNR
z-J7gqknvjaociQD^G!Wwd|_06I&FHKBg<O#UH7tAB+M$dJ?G7K+TTp#a@)4uEW6!h
zQ%tuX2-dS(XSS-0ljmK~3VsgP)nX?4bshPEKl-_rJh}4ne`Kobr9%>#wfzjqKkrxF
zpRM-F`{}f$?*G#C{%u+ls`r2UQK4;>!RmhV%%0Z#i+d@)yno-M|9KyGuY0oi%BrW{
z*X3`{e6Wcj;>Vp|bs{rXmF~YSwsB|n(WC803q{`iuWjDDX8HX`*3Dloe|^4PcY^+`
zV^P-vrcPF$duMa%wm;vS^&KznFPoha<A3;$Z_xe!fBJOO;<?w{a#~WiK7IWP4K1&!
zd@pZpi~0Ba^L@snZ=$2ruB&@9N^j81zH2}4_Rh+aT$cIYl#A29)jXen@Zk5wLQ__5
z>ApFwWbK=C(^h4#&s;gF_}|;q&$jcnW(JnW@4vF>r)~DHCu0BKX{W_svRhbPb@Irs
zsr$H{_kaF#Pj};#x4TdB|NL2<{!Nc9e9J?H!%MnvPAfn2{>(J3-XCXU6ZEg2468K$
zxcdgvN>=Xb>ED=qS81ok-!WWU?RB%|SLf4U<Gb~@y<O_2pW3s}A?xL%dovY8U5~!;
zzOA-J=j*R^AKQbI3~!h3d*2?RzG3hG+Ky7e+vR`dwTic$e>3+w|C+yE0dwLnhh2|S
zeg4n-$j{yS*_RKsEe&2OrvI8Ty6feiSfQzjYnJM|{+oH}Ywl(B6W_o4&QLPlp6ENL
zKHDYt+ol`F`r<M_^>&88+x?8cwX*v87d@7$z=y|Y9bL52miO~@@4pig^SM9ga83_P
z`K@=W`sKlInWDZ$Z+*WW4Kl2bO7pY0Sp4T^{_1zP?pwayuWPe=fog3<q<fXLf#KHX
zP08XK)^<P7?Ax?|ozK7Tir*fs+jFDLBks>d#ZSSpA`I1!CHk=sewis4K<{DkNzF?y
z$xtvd#Xk7ur(mq_m{XEkl$ThNs_&9omYJLy<nDyLGk(sr%8=l4vE%jmC+AI=y5Vp#
zZ*;>3wh5*=i4$d60y#W67=@fXZm>GKu!^|4w5*zHbS<~U&EIvd-n!(qeAjAUU1I)f
z@al!d7P0GnbHy#(=lZ2DyZm1M{dddn<?r9$y}$SS+|LXP)R(T>dewlNq4(N?^Ikni
z#Y9DtmT)pKb15(hG8k2^)zh_BWPdQ}nD>ULJDh*I=f$y4$lR;sbLxP>hyR_r*I)87
zI7nKsYfRZ%G{?Gd-751JKHntgR4$#W))pxI`Xfu>Hj|B6^Y%Wkd1iU*2v=`d<7UnD
zxlW4>K4#7dzb-k|LV2Y{`PG$Ezgol}y}9(%ionNz?ue`oJe9@h@KSBJqo)4xoBZj!
z?9{!RJ~J_#D7k7K^NUY<3NPE`r7Bl<x$TV#%{y@CsoV?=laL-&&DX1^ur(VvtF52%
zQgp_WsKt{rr5R`J|2)TH*{!6CiOsGH4<2-?m%nJ;`fL5{{Q=AFox42w%+7g^f4K8=
z?VpF+ay3+ltv~x~`?gEE3_a^v4t#nRJ^S=;27{0LWcU3zSNmgGrKY(=N#eeJU%!5}
z%UXKpc*q6wU-S9)JG|d>{&>lq*`E>$PZ`bJc&cIME4B6OR++up7&X^t-H{f1*+=oR
zKR#Dhq-&m@Qngg9|HR?tK5IiCzP+Y(g{^d}SaA0LVBz}I8~!Ht*LUnlUeCDx2KxrR
zPYj>7b2B`>#1OQF_kQEOFS=7Fu^W9bz5npupF8I{e|-;rXm@#W*xFg$lT)516fNGD
zS9ktPBoosDCbb8Q+6nw~8m$GG>IIk%Ihu5^pHz^2(!jJq<b<Q;1qRy{?79nNOB&@i
z$mK8{POz3>-hHsHK%l3&{~+fF_X4>Z&UKB^2|_;2?Fno)tm_pxlpJ|FxFa3;CTKrl
z{pp;fA=K3#v`}XSgH~h61TiBg-3weR*k84`EtI{G_u~77z!xkfe7jg`S$!S(7rb9E
z-GJ$GqFfI9?t}X_Nc1%ZKai>5T+@{OKy8O`96SHP#UJc`7}PM?@y9o-KWzV?!z3Ve
z$X!NIQOQlk!z!p_iel9g(U)#)69ZH1i+C)%V;t2cx}V^l(oq!1Bf98ehS03;Qx~PS
zh`x1gzZm->@ry|n>s+Vw3)flL4o-XE%AxGR+0CKlWV^82z~hGJkB)-2f?fmP3NIC*
zpDv7sEi+tn6v6~%ckVs1_6YNl$49)6>^>4H)S2S?Ny&A>B~PPCjaOW6Io)#q)l)Ll
z#J9?C*+khB|DLcEDMos~Q{bQUeS*DeyxM)`{fjneteaxsW##Iax#UaWF^%II;+mJI
zgol`gI`l4h7NEW2?G?pWb+05}<-QV@>V4+Iy)^aGl`T)VDBgOXG5_+i4E+}}yVPTy
z^cP9LeEmZHQvc=si|i8(B=UMP+!PNVh&X=Zti{nEvp(MG$$plsW*R(W>&)I6vSzz;
zzRmDV++~zJ!+WOh8OLXe&s?7=i?u#IHfcl3ny_meuQgt?WluYs+I{0?4)5;id)sUK
zYUevY+EMt(lFLv1IrBNqbFq4dN}qY{D0;{BPU1UH`7HM*oE1TFtn1sqN8e+~KQ<>>
zE@NK$y#%|Yf1N*7<R9+-xb%-!o&0}=|5pE(w$63!X}y%xd$g|mwAgu_T%E<bQ>WdX
z#;&tIa^IFiYaXrDT5A^38+~`9+gjVT#%o`%-5xoAV_nMO&79jO-Y&T<vt?%{_wA}%
zX*bPo*CkXREW38@p58^j^zBFAO}VRFy{~plZR_8LzstYz%k1Er$d}d5*nVE-U)RiJ
z!w6Bcmbu5$WO8LE%k=hH%c#r5TXN1Rnrk(O&*E<3GOO;nr{}QG@wYm^!(zvhom+Oi
zDc$+ft59_JwB31Swy%Gk@qIAu{kBuNci!$h5Tqb#!ugFWZ@2NC#dosrxZho0C186*
zZmL|g?Y=K9w#_!DZQX73s}9B;jLTZTHg5VJ&U*{*MZFJvFYUC;z%4@kj`o~S4}UND
zRq~_fx6QZGkGfy(KB&I-eQW%L_^J12+}9O!pQ7_hKvuZ+`TLjp-{n8<mpZ`V!I8mj
zA@m`4LHGirg6IeHn|C;7I<9W=WBaRYp%Nj#$Nq<7hqs64iE2gjBQ}L?JHr1|YABkR
zZPESm_=0%i!Nj%=&58B=;%(t=?>YDHci7;tGa={TU5@1(kw^MEPI~BUQu*}v#7T|g
z8j)8ru9#mucd_fm+>76nY?8E+z8$sc``Uf=c%8^^A0f3!HA}hnBdW(rkNX}eepLLp
z{qcUk0<QqoH@-7GdAxG`Z05OmczNEMP~x1WKGnP2JAIP#r0J^j{T41yS<bV(X7a0<
ztNd-Ju`O3!p6j!F?}gHZWe+Q?Jf<(p_t`&L@x+RgKb+MJjg^a4KI=y=S~G3U=9_ok
zJbGh$)4w>W_*YTh(_PP{iv6D%e(w5I_T2V#|LOPV=f^zRopE!~XVz=1ubPxwmmJ!2
zXm0D~?#JT!Q8uw6Ay-06YC97=4^JxgUOPQZ_wSM!kviITAx;`6^=}4$YSxK0)0(Y2
zb=tmgE9L1Y%umZ}EfQt!Vn4-^y8lyLq)TM|&DzkGti`V!D?@%J{8ZlRV!P(wHl>wG
z)kim<`f`e2yME27^;QcMv%O5*x60%${Z_KIw$%Bn>fGt;yv-wp!#1x>bDO{DekAu*
zy_L2}4<6bFi}$=cHuc!bT_<);-1Yox<=1wp8@#vLxO?aIW=p*{RW<p$Ofq+x`TU&1
zoXq^0QDU2O+_kSn-KyGjcIVp7xmA^qKE=Mh^6k_&`_dn!U&?FtE7c#}=(qda)4Ap0
zYU}RYPQAAD{jQB#HCMk~eUbI`Ri`Oq_O>;Zch|o7x9Ir#^bOD3<0{{aXS-&%U;DRX
zUCv#X_=5Y}z8?8{>+5xMm)sjy&%eumwSTu^?&F7yISZ;E{PsOM`y4MDU*3J6yE%7k
zET{bPXIR1*{cpyOnJP0U%=|MeW7gH#PP5m~k(tvu=lk50xtHcS%v(2Kc7FH#Ukfr9
z+*s(oaN8oaMbj3uEiPO9Y)ROX<4Y};u3RRytb5tt<$22=tO#0hWTpAam8)b{^{-}H
zUAp?^nwT{g*1D|Su}*j0!u4Y7yEiawDBbXCW5UL3o4hw2+HA3T-4@j?bG8a^?b^n;
zt#aFk?HSu2?1<cPai`bLL%XbZZQZT6d-)#4J+t?U?(N^lwXbF0|NT|_zaA(!@aACp
z!N-T<58XZ-arnxSz$535dLKP;%<b6W<BrGopRhf#=cLuiou@2LZ9i>xdfOS(Gh5G^
zp51!R?A*5V=I3`@u)MJAqRqv9m+UVcyzFxM*cHz!r?2{5y?8D3+KuZm*B{(Sx$)v=
z&drav%5MF>-EfEXPS;(5yVLH;+*@>C^Zxn=W)Jp0ba{B@QShVNkCPw2ep3A8&(oG?
zyw9dRmw&$Uh0%*WFWp{VcoqHX>Fa{mzu&aI6?{AAoyNN@?;YNs`4I8p>Bpjv|3CG7
zmi)Z@i^-QmUjx40`<DCd_xG+Jl0R1bwD@`aSNN~zzsvuy|C#Yu^Y5;I-v93W&;9?O
ziHG5P%je(NTbqa*1i;5wy5=S4r)1`(>$_y8rKJ|7<|U^VM;q!p8yTV=Hi>a^w~-~b
zGu`k^&?coMBqk-Kq=<a@@S*T~>D4kHO>TqDCgp6Mp8qE#{!u)w{O$JF@89B|*Kgfe
zXa4wqp5~3ef4c;jjg^(NOEztuxNu={onvZXT9sR8liQ|cO$(Q{uH@@5VV^ur;nF3C
zgNCa1nxTq2HtkR`-5zn!Sl@F03Wfa|8&ynQ{T&Y)s=G7hIBj$a%qq+ZlnfAg$H&HY
ztc*>~&23p`jeYq4h#$$*GTd{0qf_foiR|9GY~TJ$U$MV>f7Z?X6l?JMM(a~;sb^kS
z%#SU7YWnk==f7ujCw#v9`PS)DYrgX~A)D4FIi}Pb9<SN<?Y+{PdZ~K$j(>dr)_sru
zUTq-os+Rro{;v&62OU<hw;U{*eRSXLn(3@g(gJ^@zisCgIFvbIhm5>K10#dpx2CDs
zV+?eCAmqR-aE!U-=anFCPt*r--7<4hjTOu+K#>HwzRbxfzam=K(A-=>7j$Qrp@D_5
zf}w$-K`dCkUt(^mzK4g8yD#zyr8$Y|#R_H?`oSfsxnT+h`p$_39;un>86^q^`i{lP
zsd*p<$Yu!3vm`MmGubgOJtq~UI3uwrIJHCroN_en?08f2Qu33scn#s58^^r7{F35m
z(BXhV3ZO&4f)qeoF@qF9lm9^qW(o!hK?<PM8KeOAhXTmoK?;TjU<pHzK|!(l&iQ#I
zsd**E3Wi`K^ua+AkeHsTACOoCa+sMBSfzeYeo0~p$Ys8%DVd3&-~bt9W@w~fZfO*&
z?_88$fFT%^TAW{6l$=_uU<h_5!W$qiQXGK&q92r+ToP?)X{={pX=Y$xp<rfdqGxVs
zYG7opU}RvdXKG{)5;Zq4)iW|MHZU`Z)pyD-N=Yq>2D!u_R^KJHxJ08QHMhVjGq0p5
zF()%GTQ}LzNE4okd@}R05pDo^7`q#c49xTljZF;<QJi3Cre|hkLXH!RaXA4LVc4Bu
zZmefuZf;;;tYB(ku4iawVPLFaVXS9rU<nqpG}kjTFfcGSCngM13=MHP0F+j+JHW`?
zK+n*`(9+UE!PL}H&&a~az{FU=$lO%V*woy>$W+19%uvtV(AdDxm>4%C;|v2(LdEU`
zQ&T+?6El#1O)L$;(Qj<2U}mak0SXv%1ych<Jxfzd14C1y9AIdID-b}L1iK3?&GZZ`
zO$-c-6im!5^-Rr74U9qg-b~Nb$jrdN5_CJLo~5O^fq^A)PB6vg1W*pe?gT?KBRw-y
zBT%w4F)`LNGq*G_G*d7Hr4I{Zu&Akto}rn!fe~@>U}%QR4WRM?yBjRb^~_AbiP6N+
zQqSDf#K6cx!O{YpM?hg?Y@lakVq{=UWJH+basjw(!tMkU6H7fqBSTR58=F{wW5vi+
z!Nk-=&)C@9z}QT|*wg|XE5?SzL`53T904vEak#<QNWsX$LeI#;802dcBRvyiLjz+4
zBTEZCb8{mD10rL<0;m5G#iDb5PJU5vL1J>Mjg7u@v6+IIDJZW7+1Y_>92*;bH$(9C
zyau2<Ta6UVOhHK~NZ-v^!ORqtpo8??Occz(ml6l*yO}DOnS;u^AbmG81v7I{xf7)C
zW}#pVzW6do-_26N*c7V3&_Kc11ZtY0p@K2^Ze5VY0Y&-A!Ko$D`T;I(`XQ+mC9(Rh
z6(#P$po+o9M&CUc<RVa69AsyQC}zPG3nW0H<8c<|rq~V$KpuCS67F06c!yxk&R_06
zB`TlYOg=hJIHSA!WX`7JN4C$j3=qjF4p-XBlDhu0epy}NDybzZ*7Lre`&=#N!PM)v
zc-O99zuNz=xEj0T*Slx0el^Ffyn6QS)KkW<KNU@VoG&S^wVJoiJK1RN^{Ud%`*;1b
z+Yu@qR=Lb)CHKFq&?%pyZ&Zoi`ll6tcgvse6<-Y{YbAayn}2V4cJvJ&^@kN79^c5Z
z-qZ8`)RFtkqEgj%etj$Q<I;oF>-qg_?|(8p{`gs^^4yy#*YDn)|Mu-{fn6cD*LcX)
z{QCLK{mq`RnVXhH-2Edf*Rt)Vsq&eu&@|C!hbNqqZEG)lAoeFI@%#2IS0d;B`SyI_
z%w7Nb)_+csFuyCZZ^_crF`rUr{;GIi9knt+_08<NeezvPWWTj9n|q{t_Wp$TiJyaQ
zCLNn7(<j1r_eR0CwGXSW`yc+4E3+&$I$Cvh?B#zt^C$gIe17<M>dABFnZ2>{kFGQ&
zW?NjC>9sAkq4Q>=1Y7V*OP;&2_kE5}JieA!t=z`(slct>8!KNd3(?%cC|?l&Wy3X&
zm&ucvc=akhrXG7|cUE}bGQACNkMHnZw(8Cm7KhNx?)ywTG*~!JrEJ?Ks=z8PwDj`q
z`RnS$Eh1y5SIzrZH}7xg>&mtXGmh@4JiX)8r<mQ9zn=G8zP{tkC9Tgg2KCHayt<hm
zS$%ijulymVHG2Pd>qCMXh9{4`w>lseuaoR~Wtu9J*<JJCnD;`FrzK+R4T`7j^a-yN
zocm+Oo89rO50?6x#oq6k%m4Y0rS|oPHS2n+-aS~p<a7<2$BaEz`Z3aXLRd5S4t}28
z9ACZvenry#Ck6Wt>RRn|{h8A+Jvz;=^N6(V<%>^_+{mu5aFqI;tNcytg7c$l`(=}a
z%l+pE?YruEn`2AI?BcGeri+{f%HBtL*2aoeTz=D@tS{O0)79wCCudXjx0Tml1Wh)2
z=*OWeFvn#@%X*`I3s26j*4NNau;ttEEKum|!N(WP7pS~@(Xil2nM5+zwH>?lIz+vt
zpP#+o+xSmP_xl>&o1Nd!EHSApdb53=SxN7Nwv{ippWX4a_~ad)hdb;q>^JbgU&fwN
z@+WTo-F`L}ujReZUmToq+VSAYZ!avL?44lIHH*FCMcdp6j*rp0jy>GVs^!}|UYPLh
zG4t{KqwgM|cJb4MtRlzFpKD+1o3r(nu<weDWYZOj3w?Gm<>{-OV{e4#w{(cF30>FH
z>>};4SLN1@cQ=x+OM2+9$W*-d;P(aJN0Jik%KVQ?U7k$ef37kyInLq(SJ?3wKA)$r
z`Cb3CEXX!u`1fof(~-4jUxx->pSij6sMWL;J68Rw`Wft&${MgMDa1QCGV=TK9eHIe
z#{=qb@OSSBIa+L967$76G@|jb_Jjw<=5}h5!t+|01E#jP@4A)3xo{PW<Ygb8Su<^Z
zS+Ml|**$N?BdIV&&UaFrQ4MS62cEUBduX@gIMbTXYWH93u)o#oS+lS8-N7tPN#D(V
zimfkXUdufAcBGKe{W0ejM=s`%MGTEx#f_WO_Z$!28+D~eFQIOsf#uedMWIvA`|B<V
zYrc5k><L3{$yDvxKbGx%{zB+)*d~KT_N@IPd!(YL-gptOG5xPmeM7ObyvM=*!#h+J
zKLqa$IHdVk&$BV1b5C&iiDkyBFJ_r$g(;OPZgrnwtIliNdh-4LB?>Om+GZ!0v7Y1(
zJvgN+hWqo<j1?IhDvsIDXk=LZ#H>Ow=f_>&?=q2GyP3D}%2y}|8mT6$#=V&IrTEtR
zIpxI-MjxIXUzwf6YH%R*gWat!H)F-p_pjCUh(FOGnUf#(e@@Rsu{E_~8!q0r;&f(V
z63zH1#JO>fcE-X<SEaNx65oWbRqA_o>GX4@Lt&vkEAlJ9ZOs1J>r!pFJt?(Lrf+wp
z8PCt7OIZ33OX(kOoirzax3k6iUW?NMFV3Az#bE+kwlDTBTokOTeKW>xXM$~`P{iXY
zvyD?0$V)E2<sn}v>hL%*WA~Y!(ob&~4Oc8^zVk-K<NuQ2sf*|An7(V7Oi27C{@1^k
zNk0}6-Tw9W_Zl_HzymsFi*`=huy<*dSau%gUTuSYH{6cr#s%*<{LbRKqtv!V1sm^%
zFG_rL?Qo5@tL)EKX+1m9Gq*3id0N_8D4fpKvG}e0Ki#~u8vpixV|J(uJ}R|&MNsPg
zUL$+uyS}!Umpbx4bUm@v>DRQijF!jC|1O_mlGpWQck=e`PiG~9L^Y2|#I4GA)3_D5
zY~us|$LBBpQp<{v;qw0S`OA-uneDzEk6M%7yxr0obYWH8x#*h5l{2?odi7VhHqw}N
zlVSW03FfttclTNMmA{A*(qEz$?|!~y$)xLxJo%WT^c4fou95CDynJnik;lI48V9aS
zQrxW=n)1#4mXYc0i>^++{)X!gi5fro;PUkgU$3)(^v1s?lU@hzn7HY6jc2X0&0dxB
zmcRX93TsD5ED@NusU>xD(<P^y>;3mitq<E>{H>sI>YK><_ogi0(!2D_qS+UgTKo>`
z*|g6{R7^5^3d@g}jS;I?+h3A-v~ZL9)(86pxfa#m*gNUK6t8)Ub~u{7QL*~Lrf$nU
z!?HESTxQX`#E4lHQ*JPI_(h!eV4oTO%2oA-`EI>8$@g5|r7l`<XW}wLwaIq_Ehc>a
z8L{t_^|2M{dzz;(&FN1(=UFQz_WXc+`ND-8uCXrsT9#6H_S7xa4Ns#RLnG(CZfz0>
z_lZBRHt*x>c16+NlTGuC&%HT#CFYZ+W9hkuGk>rC{;@G-MroWUd(j;u=FdX>O6)~u
zTmo5Jq662>Yne6e+t(oWr>QAlW_BNWDlRU<)bd{PzhT0wtJxP^<ybG*@aFKQ&rDr;
z;(~&25<}(9x3-(^PBdTPr*pF?tjt9C_pu!pRN9|C&=>kH=$7NB=GK2>qv9dU+7yQJ
znV%xA^0qAV*xY^c$?Qp7W><CQJU@JM&eXUlr(pf61J7)(AF?yMp5wUG=7{FUAL}`N
zll(m+jh$xdD@skBe=$c#N^*}_;Xb><`3`gMOm|(Ssi!ES+nTq3pTn<p*}FSuzM0Z;
z&SKNMw-@AIwx6Ef^>oIST=Q+mcT5fzzvDWs<jS$xFRlre9~CK$+BHK>r!19SxoD5_
z49mrKR|`L8FrQLr4LSLExd@}_=6zeWx(uIKS3KNb%(M2P;?l?qBAkaOPH$-Lim`jQ
z?0}_`4Vz@_D;MoK8(-=@+E`%t^slGUtFATfCs$~fu>>Cbyr<m5maFKcX2A5n9k)VU
zzMRPnHD+5=`yu^Qih9ao-8Eb0tO#AYF5IQG^IUnV&Y_lDN^@6jDPC{7qGMKTU+l&k
zQ=(qpm>;*P)z~|Kne1fwI;My5L8pt3ezp{1Ka#E$U@f|#FRIPuQAL24<T6SBFB&H^
zH~#SxIvkU>H~GNqxU%HHl$*ax|J`v?S{Ag>k2}ujRAhkM_v*}#N`Z4Vz28k0Y2D`^
zQeI<wzff%E29JI0yk*gu4J{1*J~#M&H*3V+vM8TqWzK#0>G_>+nO=2eGJm}+c*$#m
zq_OZ?&bNHF3`gCS@3lTib}s*Wa9zQ=+uAbwR-A5q|9#KZ{~P0St@D)KMdn#l-stC0
z%MVE?{9V_%vC?498#`9UYx!mZ7lhQ+!luUtB`4P@-+!EcGyjCRPSL8_A~$8co*dbh
z7$J1??$yxcesh^c6*4Ry<o^zwuq<#wb&C4hYkCd~7ERy(cXx*QtOHF9?>06bw$c#t
z{U|J<#9AoylviVgl9}>Xrc>*WeRTADF2~LnT4F4#>Jfc8aiO41%9l+F2gPO;>nNu`
z+sSkKUTR^i^wEH6+pTB4>-@Its^ZP(KRmX#Kb=$FH$^>h$+yq0E*&Ra1fDeoE_OK1
zqOx+&Qwc{+8-6yX<C8WveE0Zqr@dcIz<18+X4})Xtk3e!%AT#tb<a{Sm|?be>Jjrx
zYZgxM%HAaQRwL9aX4WIEGnf2bJHpakQoXvb&1@{mP+~RXEw<{Ltnl8RPvb{utjw&h
zud_Y}OLF!s4qG25EX#erYEE*7{D*l<CH=hre`8zPUc32Kn8q1n&Z6R5)*A8|Ma%PF
zf115JKW?w2NIsM1oLwiJ;v6}iw0X)c__UryGy6@(2bTZbGwufbsb@RusyUS{>-C?@
z3@-C3L?_+0^gO@uM$%ih3A+}WYt~s<B-V=CS597VXP!{~jYA9dJ?D5_uz8gJP~y9V
z%UxNXf9Y>(435p`@G7p^u&b!xj*}{Ty7})Vv2x}n<`Zh?a6XBC#<N#oTBpkW%f}Nn
zDh}qezWh*@aCLM0L$5<kZ<d@kEnDcC^-o8;z|^3D;ln~UWz&Co?+m!_efu!Y$+5b*
z?$^vJwxdrn`NW%!`1@Nsvm9!e;}xxGpq~Dxb81)giIrZ7%DO2BI-HdS-JVVI`qR2=
zwaUsOvz1J}X$I+PldMeVFzA(}%sPGjqd<MGg`$1dlvDE0^;q^E^SnCYL&3FAtrJ8p
zG&OOkTfR*-5_KqbJ5`pj=d^`I?-_9kS?65dWx+aS&z3K!z4VhM?E4p?lnI>rXB`C!
z+K;hZQxFR**eKAL;kisl>DvYCX-BJT{3h|5ZC)c?bN_q`qeJl{yLXBc_lh5`DJrw%
zJM*K!W>5OMRF-R-pXm6c={6NKu!t0Lb$_XAW~?=idL0_hX?&{0e%I#b%3{YY_tk#6
zoe{eK{^!CeVK2X3+??4WTwC<|>*UEt3`3TN8hW2HoO!9$?Nxwrh0o%ny1S0A&`jEI
z7I;XkM@sgdL$v9^S)RxKnRxf8i1hAM<vly)!r|3%%5DN$<+qkL-igsU^ybA!mw8uq
z2p5+8zBpm~x!ZA5;{2zvidg3IeX#oabf?pM4XNjIYGkgQ4~pOrOWWa-Xy`8CX#VPl
zeR9o&i7$<90$SG!FWMn#%9A!TEC2WX!00bc(Px&exPSg+-u{`l{O|Z*Ub9KrEhlZE
zy2+O9!fJb8uFsTwVaK!nOU#!Vk^9P<sw8j9`%mHf)1T5g@0R)>{+@Mh9*@`_-*4_@
zD=y$%{J42(oSZ?Gf4lACZo!-Ur#}9D;TL9YonkwI?<t4oqhrqxN-zcYTc&HB*&wh;
zVrpa5G{e)Ib(#Junp`@jtJ5x+q&fFOh~mV_bH1^bC>7W=SIp{CUMhTX^U0DFu}Rl{
zJM3L``N-zV2LakwUfglmZ(w_Q&x{iebG;Qmt|(vl^3uIf&TISY+Jzc#8L+o=%zqz{
z*J!l3q-uV=KKtBPMmfwckFKnoDYDi|c%@adVaNv$<<e`{oS)3go_=rFZD})y?bqwP
z^GerhxD{>u!SUhdoAyl+6F;7@3-jIDYoA{Jz5VP;E4et9>f7G_8O3j{Ed$lv6%YD+
zexkt>eNQemMsM@7KRZ`&-!jkH-PRlsCcQ{?-I6}-{_@pZpQx>yY!R69ezkL;{gHgF
z+tYu4PrcjY^!db}nY?<UH#p8H^F8p)VcBh^vtdV2!Uj$^VK0_SK6ZgyruPDa)cKR|
ziu(%dHJtybrBl1`rpWF^%kr(vZ_1y(TQ(;pfXU{-+GQ)|$_gEbj4-;I__FvFFWaQz
zJ`)w4wr?4w+J}uc2P`_g^l8D8Eqogi*T($G6=A=8OqZ9X_BgLvsZhrZ-ENkflFuuo
zJPL30IT?oC++w{iOK#ykhcF-CXCJ%LgAYBA>%U}CEzzTwd?74&=dLn|pH91Si*A+w
z7L3-oFL?6y8iunC^#^hV_c>|&s<08Y{>8*7UDVqzpb;6H_ul;Jw%i=f!nTjoOw3B%
zI`0XbYv5jC&N5{}j(PbN_p{E$THj;sf2`Xq8L?CMSikbV`X|+DTsO`<6A^M<uvhnc
z$Mw~%!E=gMG5uqaijK51JUZEJ1}}>cx73j(jUR5h1-Lm&UfSiTkbnD?!=C65mAxj{
ze=BFrns8RCkN?&@HJ)TA|66{`XUdmxrc5ijAv#$sSjdWduE%kwbWPob+r=uaIpaGj
zSic$UZ0~xd&wayTtyfb&OJCcj4>D6!XNouPa<VNx#Of@{C)R1!*HUoXZ+)D8MqCCf
zr*9@hjQZ`ms+k$rO)Cy6$!4FLc-5Knw(x{EY0o@_`5DjX-~Y>X>sacQW98CzVj*do
zE{0oG>>RH(^NJL6x3fJxo%wF#xhJ!P%xz6}L`iWNw6ld|DtONdn-mb3sbIeN4*#W!
zqjKktbzIPSUS<?|{Q&FMC(Wf&Ef&=hSML0uDllu2&^{B(+_=5l8rOJEHp~j^u;pCq
zx!y+FxFh_L_JTi2l?OaJ7-d?bHJV@li1wY5vFI!FyK1jp)4p$DXIXhML5|fedP;@f
z0S2+BLHp#HxmWS@zF0f)Wv2HPwoAH~FN;l)ta4oaF*97Mz)XPG>tmG7&s$LwJ%jvx
zjNYse3GfcSzOPJb-P<{g{>}O`%J%ph%~@q^vZY7(V$@&NnOm~?N|RU^rT?9B6a3u&
zxbsTa_Jb~>>O~9;A0w}F_giev{rb63{GRgdVDZ~pyXJkk!SdLlKPT+n>dTy~ICpCp
z@wDG{p5i*K=3Zl6`!P<T&SPfYqM=`0|3_v<dAD^(w-l|pAMUuAamLNq*ndUwa%QU&
z=E}+4w0stm{am6=WX-eLyvv@&>q}@X5mCN(JKFbqhGko;>1VyJ2;X9f*u#h3gfLHa
znz-FdU?0!)8)4<zek=Dh-?q&;^xkZ>)#DWkuX=qpU!2mu%qmoy@gt{k^(qB3Va1h2
z{CXa(OJ27wc|GBOj!)o%+1~`EBje77s85e~NnIVdL+i>tLAP@|3U<_dJ6*eR?R!q?
z`|tYOA9r22sKk2Sa>AxQ@hv;AEs<&a{@RfxuUOFKhf1};#qg_*9@2Y697HBBIB#km
z_xk3;Z5(`IE)UnNJ*O*ka`J<O*uHlm5jn-j+cN}Q1S3nkwg*IR%<lWav;WoR{*d@0
zxzNuGbw5bWIx^wkk`m9XLa*z0H}>^%#nf6ITleYa@7Rq$JNHds|JiV5e)PxKYaxso
zhq7e?WFKYC-STr;h8vSqI`ipn(MIRhMXf!Oo!-vj`cwSpwb&N1E`1+qy;wi`+D-$L
z<_aYvpF=a`m1gigsZcw-!{*}hC6~)jE^<^Z4V)8wrb_AMhmHdiGx$5a-XGcEE9cGs
zXXaG7$J^d9*UsJ>{dC2?#GAAEuM`<=iHSA)Ztc{nRxVn<Jgsl9y6Mkb&qBgy2mj&g
zFK~Oe?pE1tffGyAF7aJ)e_gU|^*5GU&zRY=?_Z>QTwBu-Auck<Yv#kpTtY4>slA&;
z*x1g0bG;m*aN)CZmBa2mr-ObR`dM{*=|iX4%=Zk8obF}4d~9Ir|0XlJy(o)&gO*l*
zm-2SG)z<5Fcm1ym5$DvOt@Oev@kNk{PM>z$-;b?bA1x$zzq&8)_py7f2SdrSJ@Xh?
z-459AH(=yCJTbUfch7(MeP8~)oxmtoJ8iqc!K0>WxlNPh`?OcMdvq7EzCBr8u;pd5
z(;2hlyY$RWGCTqd7M*`vD><KO+3^|fy>UJLwhlE~uWLOYcN)B@b&$7R+Lw{Mc)`6t
zGdb$MudMhX|Mlvo$2$sL6O~v0<5;|z;{e|-)-ci45hhIxGkxCN=>Di;d{XC)&JCff
zzC5m4Do?-txcw>D@!U?=pe4&p?{e-r=_L}`AHDruWy~bKuFVg8DqWV^Px)J0@lB9Z
zyz_W)=o8uh8ve2qwqG=h|L*jzfaOR#+qxPDf$+Cwm7yPXKW;vMyC%F~_R+Q3dy6*8
zR!@qbyUNPC?ZeAi^Yb|Fm{@+5KGABZ;F6=ulMr*|u6cWw^7)GT(={9XQ=c4LV9#6_
z5>U9L-fN#gOX8|`v)q<_y7RN{zM1{h-HxAn6EnM)eB3=xX5o{P>Iuxk<r@UP-hE=H
zVqGA1^UVB7tQC%~;$E!R)V;rc%DB%HX4?Dd>@pcAhWZT628Hg~i(0P-schS{kK3>G
ziJ{G`#r#iw#NQgud(QnyYqRKNlS@i-XD=((ZVJ<0X|4GzvSacdV}VwI%`euSefX_t
zhNcLk)6;1UUoMtio_SR7%3hn77Xy#n*`Qm&)0|wAWSL|hD!i{cqi(BR$WI1N*~vR5
z-f;g@VX@~~>;9eRzo(w&y13@fzB?zE^RTb~#Q$(Bf8KG4Eeee<zHTXvcp7>+uS&&5
zQF3ojPgib78TW)!T^7A3IQHpwDS0$3Tjb$oyZ$}vsl~f1BiG#*cdrgMdEj+CWX+Et
z_j(4!l84JmzBJg&%(3FB&~RRw>GP)Rk(JIQo|m5_<K8dqeRN~FM}>*R{Db$>KPqim
zY?tbDIAVFH`zonjn~xMb+?{Z6ufyV1v$Q`jF5+Bo^3c@h{p~q9{7Y<}ynQC&yz_SW
zQN9*qhEvhz4-Ow@;$7QbE}XdK>G_f?_db35=6n7A9;cZB4sySi>3#mS;|u@A*Vos3
z9J{q~(?(N{6>rLX(oU_}w?MX>(|hI3#M;L0GM$EJ4nE5a%A1$IIJW=bzEf)^+?n#-
zJSpo|jmy-Ne}q@;dZw^l<803v0k6qUMxyHfmpCV@ZIOTV!E0iAx3ByemZ<3qV<&pJ
z&D*=taJBOO)2C-$IlEudZ@b&4pZ%tn?v%OyP8L{Pb7YNZ^QM!(|IDhNQNbj3PJsQs
z{GlL^#9HIS_l~d^eK!4^zDGhm>CkIN-?)j5Zn_T^m@F<-c(F&C+k%I?;m4%pOIMQ`
zH(D5~X54WK7E39(=KU}#>G2iSw{uI+$*(=4zFRf<z!tk}GumI5bk5!C?U{DW;^<19
zz<D02Yi1wbH|Y?!gXQ9Gu2qan_#b_Lz5EtOOhVJU%*q+!`txmiTWyZL`8#cSq@k7A
z`SSL%4TgJ?N|TcFW;^dy46xy!z5VEl+PjI{PqROn)U#<}_hpX*;ZN_bC_i;vZTFM)
z*FPj^&(6x$-(6bEsQ2kjRr)jT!#<~y*G~yEn;Jhm#i-`u#WhDX6Id5d7PhP{pL$7c
zL!VIBD{-gaW@7gyJ~Q%U5^fj#@ZR@&yW-3*f)~C-9Sf{E_W84Xe%O+uMvS+&-E93{
zCe%FpILkj}2BWzr7vxmTS`wpf(j}al5pk<z0gue&X9fXm|5r?Sm-6UxVv+Ei_J;@W
z)x7wXWd2xxjhAsqUPWf7lJ@;cO;@G}+O2xgf2C)a%2$Kd-9q)9A6*PN?F%x@dF;|O
z0&Pw>Upyr~>*}6a!C@2gcZ45PkvCIy-tcIJB-0z?gs)K=rqRA_y~{JdZK(7um%Y(j
zwy6E%?%n*8b4v90h`P7y>3H5d)Bn5d(!`FB-Y*Tzo=(f+Xm0m-Ixjen<E-@CcrW&^
ze=mRSw*Hp)W!)+J*aJaQ&dwkEFT6_17p@i6((F~w^LaUYSv1ETjZ~LNk3|#0uI>MH
zOlRj$4Y!~SEn#g%w(hQ5cfKunrz*I#=hse~ln0KNB=$H>ezZ57Th8m;XMxv;GoKp>
z261eh-nrlY<?*D~e`YLJar@IZPr2{0;*-V~1(W@H6@&MQ?_PgkqW{*JJ5tY^6&Ln=
z&Q;UXDvr`^{(sl~;OdR%uXJ~aJ^A`HDQu5Z>ypFj)wg!Ms!%y`{@nYekB)9RzD3z}
zU%^qSf9F=J$b9=e*<#PP;4dF{x<m+wd;NYQ*1capHKR3KT6&*<N$DHyp3i}4^@rJK
zMMw1Mn{C<B#P{iRIdiSh>*P>o?SuYHj@xnc|4aTX5~ttu$A!0D&m?%|Tr0+na#t7f
zoofz?f7){QLpyK$4CQ^xIST%C9xD((apdx?S`F?@pS_dPLVUg+alZVG-}PVIG_^%c
zy`TCkw!PJK5}tZ9UCD&;LhPf)01gis?cX&mO+R0VXlNHsduhxuS2RvWUr$bHYT7Ry
zowc)1{q&4Dmt4=L^IY)%|ARue=KgZ|FSKEf`lH|tF>~9WCU;z}`tspcfNk^h3twuJ
z=eOvG%-iUFNlk9I%9<z7V<#<|C%ZeaZ%hCBy?VF5Hcm@(;N=m^;#(dm?C?D`{!Y$?
zn!Nm1k1lM_2;VjD!d5$pspb0laeEVYXV~`s$mLA9oVz6R3TttT{v(@ve@Y$hOelXN
zT0H$lw5ayp9UcK0HnE@fpMMpe;yY*Fg2R^Piy|x*MNd)A>)ZOrXNvO54d;Ia9k*EB
zbh1M4)WqaeVZS4$2j<%>JS^BYXHiXAUw`1c-YTZ28?v=O^u!;l6MJe_ru}QS>w)<U
zKkFH7avmDn{9!sUoBg{z)BCj%1<t-JPsQGBm%9|ey8Y)a_hnC4w?7x1o_k~R)L04T
z_KF#7PqwFqe*1F!#Xlp#s2Yj8_YE@ci@n~&J=c3r$;91C@A+~a1C@VFmD(*j=Mpc&
z(kK_}8CRUz0tDn`o0etXzoOJH)pp<g$O<1pYkhytD;rj&P4uyRST4M~v4)2`?LwC8
z1HUK9N$*T2@u#u8a-2N*%u4sy$>o7DM+?+rG_oF89I{iZiobT0FZp_+wcG;NWodiQ
zyl`5Qy61eWR&b`J?&00KT~#&bu4i*p$9o8$>Q;?g)0>f>BlTBO(IkA<-IvUA-445w
zYu-*xTwX4F?Aya@y-Sa3q}Ka(x#&Di6N|n0Z2P765f&yT+l@{Z#+o!($65TlBsx_n
z)k^isq{8m6QsGxmy_8*@rQ&-oP&l{ksQhAI12vgvmB;@4vAJxq;3bPi<TT&E3`Nr(
zeBiT~xX7I&jZ0%=-`RwFz5SJ;3-5lt^f%{_kLu0i%KTlg&fWe#N$cgZg3A}0Qa|=`
zEc8BlS2s}bUawim`P>&9wdT$bUz%)b>n!9PyX?}2hv&<}s+<IOm{=bd^-o#6pw?!u
zWI?6w{6%xl36&gux~-<kfA;z#KR)&SlH9~qx<`Ne->-$YWB=Lxh&$WsWflAOgmHzy
zKCY#vJs*E;I=1Yo+WYPghuW?b@0&j9ZM4C~EozejzPd&~H}BslSeV_(t&>(5vT*t`
zT~C{9HxJr;IO$TJ`%n2%u*oO+b#s!gM(kX<|0>7A_U-Sv4;@zGZodBD%$pY+L5C(z
z{lX!8^@D_I&HnCp2`^6H_F5(^DO_-3chIamk)M8-1~N|x{keILd5%s>t}b(S_q%|v
z5975eA04Z&s{VMMyEHN`F5<v}72d5b(M$Eq#ieAK8BO=CTxOn;dZ|Uf&GPd9^66i<
z@MY<G+g|&aVRPrBYw5$kT7E*64;Oy;<a9G6PC%wxP(f**#X83Gb$2R19#Vao!xa}X
z`Ha}yUXI&&_0=DzcZ=sM-YtB#l|!$~>f9C8AlY=z6UuIiy>r)W@MUxKo6{pJCtJ-q
zH&G{H`JNp;?-!ScuRJ!lqbcRYcjrjK6>SZBrfv^8)4ohrD{e{9ic1^(_)Bk=Gr!a{
zy&&?;%AD&@y87KF|4AE<|G3^6suavO|Jrifw&IsNBR9&Y*Y2IcYShZ3mwwYdZ6)hT
zB`4!DN0k}h?B`6s>vh;cp!J~o$4#u-FH<&qepr=p(Md4VQE*SE)UAZuQ_Q{=*0RYT
zEKW1G53727_gT96<eQuC&(Y-XPOV%K6BJVz;G`70vhlg3z^yl7A`>NFTuf(n-pide
z=SyCB<-dd6MLQVS?_E(^prB@VcM-?E{LQ?_j~vd9)HO7-xw|7?bY{J;%s!W&v7)c<
zoPF`5tM>Fth9knK51U^RbW}g9@y310=cUmVH)c=G<~{J~&ep;xuf*~T>M5G1IC4*`
z{|m0aP*KiY>pC|=_jRqhM(p)D97`O%6DD0q-E?OSht8AMXAX<{f>d*Z+tpd#SMPkv
z_wYnTN2^d)=cldF+NbwLFqCUV#%<W@x8?4aq#t(H)53%M*Y}xZGR(PO+n=eb^6kl*
zFY%ji<=6f#yxcow?`$y*d4-;b!MeY=>?D1kPp+=FJGASd*W(*kyv}d!+E|pn+Izmj
zf6f>8gp&T9ZQuR;=aVXvr@!y)yZNKgsP2*I+8e&U&D)+E`BqPH5qCf6ZkFrBv4-=(
z)D68Mr?`LhEL;%#v}!~6wYDx}dyx(1e7RM8!8161aV|Q)*5Cr4sOV$&21W)ZwHsB~
zmU$Y2mbgGxorF{tr0U~Xms^^bX=G^NhI9|SA!wNmL?d*$ijg6<mAS~PRYC#`^9~#E
z-1*AYr)hNJQ%;4a-~s2!3;Z@~3%%v)&}^K>{(s-3N6TIuV6J%buy0EHyS>Wdj&V0;
z%PI5p={$ZTZpKkABip#@pq23Ubqi*eFw8vi*UEj4m6VN1?}Yi87VdG0<sn(|dmC*w
zyOx<8dbes{UgwMH0&*6Lt}7Pg9(<(m<e_u><aq)q7ynMYZmMu)Y544|+b!60Cz$qf
z_%6Mru5k1J=J=zv2KQ$jE#4e<b)#rzdGcm0`OjVnV$Vd@#l$G36ubYZ^7^1y{Zz=F
ziHAXUPsT2+VTxF)2Mrn%OJmYbm4Yo=p7P<theG}j7s`AzKl6KTG%)u!GxND-X2fz5
zws`s4kKO)lOFumqzb1e7kNqu{-St`=h6c=~#svm`i7`R5re~&PJa{%IJ|J?+%z1%}
z7ED~TG9e`)VFkC!8PQ2vqFzQpqD{^=qD)?sMdo}i<`(*F6x>}ZGU@Z@F5_-*qtBN_
zKV3f1B~u*SZ8TZ<v&bCdpyI|Jnbrq?o}9Td$xAjQ^SsT1ZIdod3Yl=Mq36`2Gf$FC
zRQGi{<mDxC$^|P(O<WpV+!cJ<D7d?%!A#}#OAVE0OEp>;wl28weAeVyF+nWXI3~3h
zeEw`SSv2PJCF9RQ!QEYozeJfnb$b~#&SUu{VwuCEtE=mfn9Rc^egDjpMSmI=T}hgu
zX0waOK`P+xiUkj5OkT_o7P^MPM0M*59aC3+Wg|%miQAGhBqV1p`}B9mhvcK>eisj{
zxU@{`<+5*{!RdZ6Hi><I_Pu|%X7co}y7Tl)P3o7{H`E@<FD~Axx2^mB^4jp5_O-wB
zr*4q6UcP4Lo|;oeC!gKBa;wMcv(`zeZ&OcOosQlmef#xO?LS+MW(mcu`>Xp$eezek
z+uz=^aevRZKV10yLgU}nOT&HE>8!~(oxgsf|G%||Zp{dj4%3@zwm<1?+uzgkWu`x7
z<}hHmIsMI9tO*FTFb$Hoz?sqw*V1c4P)b8td2OJeYh-GmU}$J!s$c<H`U}zvUw0kg
zq3xJb<{y$`VQ!vmY?!QVWT@{(o%Pqy5(0S%HfU`e#24Uo%f-=#mI|Q7)<y;p3cO%i
z!3eaNFG#@%ysA#Y2vi;gDHwrDmmmcru>TZ{K;aRjU<5KSNWlnViZR3#V~8on5L1jH
zrWiv^F$SB0w0PSXY!Iy$ZySSMi?pH-<WNWefTIx{3Xs*?M&?F(#-_%gCEMWDszyej
zWwJ)*mU_lUW(J0q;1!z&rp5-ut(Yywxp*5K*4W)(Xkn>m3R<XbqySp3YG!F+U}ULa
zXlbcuX$o1jYiyurXkkX=devf_E0@75<FUKJ$ihs|z|hRV$VkD&z+BH9w3ysX!N}5F
z&%hA8gxti?LeI#^gt#T6#U{8`jDiyx4ks8}=vkT>8W@@=7+ad^nVTCM7%CW<nCY3A
zm>3wEDVP|T=^26KiCRNmjC1KSIDzAEf}yFNr3rYIvaz|Lo~3~)C?<@I%=9cxj0_CT
z6^t#6!0UGn%!paETWp3i7(n>~yBiG64D~Dwj6iF+jZH1V&M`7kFf=#QGd45@i<%qg
z8Jn9L7!$Q{xESZ+WpLKU;RXXsJri>i0|RpfV<Qti15<Ml)6mEqvcBD1!PwYD&(y?}
z$hGvv7C6HJlvA<0!N|y1&&0wQ9O{NfdZ1<PMy3iz#wL0u7Dfh!3dTl8dZyqN<wQk=
zB~B-RiXt3N0A);LLjwad1!DsPJwsz7P>Fz)DU1yb^vnz`EiH*!NM3<+4L7(z#qI`6
zOFbhqO9KN_1tT*PJ!441Fa%`<6C(oy69pr46FqZd6C%r}3f$!r?lRKSOwYv95bOjK
zP|~vi1&E=6v7U*UDcA|726`4|W<(~23Y^6gxFW$G3Wnx}dd8r{V5ned04gR-K+XYW
z3R6o9aN0Dq)H4C?Ixr?CH6-Iqkl<Pjmm4hgj10g9GO`;iEcMJR!3C5dX>KsYnIyq=
zD0WAff~o>g;jCb2Vy0(dYzp$csWE7ii=ly`v4Wwgxt_5R(VJXwrbux8jok?*7DjsJ
z#+H_r3Kph%2F8{K28IeI7Utl}%E&~)(p1mX$il$Df~bhV?Eu^*q=}`0o~fCMfsq-q
z3&2%|C8z=;%>}rVBdF1WJqQd<P4vt_S<zI%)YMqd#28dJD;S!Y=oy$<DwvuX=~)_>
z7?={577cMHMnvg2ShiOfDHy|cYZw}X_OO6jkal+Z#Ba6GcMk>`0xE8xdo&7Ci%K$6
zi*0Q5eVq*zOhCbovLOT9ScF6bv>Rt(YH47Br6Y&j$DI=%UG#W|=-=;3YQI{7bZ1ov
zuuRtfe%RP=mwIUKb)QM^elF0AN}Hu5I_Z;g_UWiJ-bhES=L}19EbngAdaA{(px4m-
z+v5A3%kTA{=3Je>XP=d&ZMd=J?p>A>3sZ9DoJ;!S``E>8=CSpjk3H1f&aS(rzC6Fm
zTKkvez84{?e?pBs|K=xcii|f=|M+IrgZ;lJ`zP(tea@}p61L@Tsp%8b<(Vl*mc3b3
zc5>#yoX(puCr@<l-g#-F$j^YYsZyF}mLBq#RGBLg)u-c@8aU<bg-}-e9U6kyLnoJq
z-fWkiy5i4?&YFLxugWjD=;U_kMM~LMu~}cQu3EWI`%~Hs{SdXqAvI#xZ(GXcv)Ws-
z>%P04x1;ut&GL>WkGS=xUh6%ddMb5C(QSv%ivNR5SD(1AwAdo-+lN)!`7Bc%>Vlv1
z9*+=v%j=%G#9dp{wNa++p~|t+e~hP`l-@TxsO8<-mG|7Jnep9kjhfI$i)NnNrPIBD
zGv-m!+>55?G@I|U$a(MSE~v_x+q`+<f*m_%#Q%N!q<*K!t2D3vN8eSCito9eRsQ2j
z>P_+3(zDMkb}8h)cx2N2=(U($=)HxSzLph=+|S#eTeHsI^X}8K_&sa8^#4sR|B-vM
ztl#lK$M38iPj4j3{HgjHeP{Q%-*SwT-?ny7<z%a!c-@jGE4lq<dFtMt9Y>lojqA1@
zzv-i-Bb-}iW_>8b>|D--|1PT^nz@<C)LbshUL|OJNj=m&*Is9j6!(kiQMDPj<WKM1
z(sOcQu9n-xi(<PTuWr+oGc$;}`s+OBGakL<8iUKb{=E3}x%~IPeXf05d6Q3MG@n>#
zduZC@Bo9|B-?u6K^W%(;C*3*_o~b_n%p#uP%t#>_5hF|Ky=x{si@Xre*dtU}IXi#V
zx~E=T-aJ=#@g%q3E&XS)UC6)xhp(~bvyB-$%#Rr!|0&_V^rpxQeLK$QQIp?QTiB#t
z-s&2u=N`Z7gk<px@1_~&gf7PMS6=<`@k`KLLAJ7c58F#vxaSHg%yiE+=4^Y<vw9A*
ztiuOGo#l(_-?SH<mGtElxtV&VHuCTtwbnAZSf8wnAbFjY$HJIO?(xs<Uuh!vH@DQ-
zCDBxc-~E%vVYP|Av1XFrI_`K*x%_*Ysit97<kzFyzQ0<wc-O%b8yx1?ou9ESny=hL
zKyz9{$=nYupV~^@x@T{CkX^!b_D^=nqJBPMpQN>A>n$HyYR=j6UnZA<Kgrdl#mIk!
zYwd!(&K)a$FPOsT_f1u=#UrU^U&&P#@f$fIWj}t&p8J&%*eM&>xOn3egM&*VN`J~~
zeV#MXA#r{ir}L`Q)34sEQ=Rs+syRsf+S_}D9Cjkifm>et#_{+Enz=6ant3hQWYv`2
z)1y~CcoK0X)T?9G2dR7NW}9kOToLcw^fFp6;+p6Sp6!$L96ryzB;eC@sasuihnM@}
z6qcUL`(DUA&6x7WqOR-KblF}hG3(L?8SK+8OjoR~UHe&hirJ0rZ?=DZP;B!o%33#P
zoAZT;&evix%}RWQ7g*|-uhID=x#Y*0vq=UWdhyepZyI_V1+m3*2lSntd?6xaZIk>W
zh3P&Ok}mz;EI;gKGeyVz`Ps3>?AZbpspkPdv^E*MI6C7N-|i{rdM>s<Wis8geqHvp
zptB`=Z}QzfcRs>vdDMvr&Ig%aStd<sVBP+N>D2WZ+kQLgEm&%CJLgndq^(Tw=b)9#
zXO)-voc#QWecmDN*Q*qLO)pLM;(5e#O3~7+`}J|w`k%dwyZw8<f1bH|p;k-a2c5Re
z2Z9OQ^PK#05~uS$J=~@uzQFzyYx-kDH<?LQYn=2HZ~2^jG2vFDwFUnqJKedebLvXv
z5AkoYnWa~|DSyLt^RwI$&2Qaa@2j(%ae!-+=8S-1=F0u6r|n}c*vNiT&_h^#rrkVO
zwM7b<>t`uEWjVAyrj$j5yX*bZt;bK)^c+?3y8QgA>hZ-Hb5x8E$+vz8Ri5rD+xD_6
z*S4xVoAKDmip}aPH!<Emf8^BX=%|n8x7$yAjxOYTu_pU`=A4SJ^*4f4Zyxz@U*=#+
z%%07u7tKug1CKZBtZdCc_AA=NWrjk`LEUYyOBYBPO<_8_YsYHF8Iw}`MH5UGJ9XHd
zZhO7&%{z%TQExQ*)y$MmPrdiG*@dG<zPt6>kqxI#UwWxHv-0H2ojkg0yOJ^)C(TN*
zj4LY?Y|Yab47cBtJaysO_<Eb)AB#SIdvsR*e(OHJ!ms}F&u4A@p?~M#y|>T1SIh74
zTUYb!{iO}tefaKwe)#6or$_2?Qw+E0-Ji49{`ZT1(dXjt@9pQE<{%LDoV!fxqTa8$
z>47_9+uICR>`ZF;QD>a&(I>gmlR<3vq!%miT~Xgy?90^rEOf$|N$F<kTg&#{S~TN&
z>IKv4ReL2TJ`Pu_*|363EOtTugiG1I>x`whru|lEo~Lt&?e8jK*SXcxmPMYm@ml$2
z<*xJ(H~gyC%~(+T)KPGqEc1n6-gT=tUO#-caLv4jFW(7XdTUxUqj$zqfp$gLsVbc(
zr=QMJF`d+Ma5DdXArHY_C+4Q678RVZow+IKN!H&Dv0=)``9q#xeBXK{`<Y4H?x^Ry
z`GG8L4yh`=pFi6?P5ikk^;@#6hnn5qn4E+1DyQl^GQSsj%|7G1^wm}G0!GoZ>po7r
zdHTldzXp$v>IYWrnln%A42Qn>PV)wlqq-TMjA2247xVbvOMic&fLp5Y!8K-Wy@Cz*
zwnwV*JI$*o34fYsap{S{p3K)$QybOqvcGy2p&zNjc|P^O_4>nc32#pvOINf%&v<N}
z<&QZ&0xxH;%j(Js{=HHvvS3lri8qrJK3<I5!l1uR)6#0?vIlGi{MsDR7Mxn)*)Ib1
z;%lvUycR0Cw)(AiM}O#&-7?NwKJ5|bKRYk#SVOaib7s%1%n5B0CRsHTA9ZK!&2f=*
zXFV?QJ^anqc_yL~?%`}4XZUV<yogBJIEN*FSD7r|_1|(0w^vWxId9%<2351JwTwlJ
zes*pR_lq%l=660<fT8Ts++>@7#yTf0)*Q4G$`nY=d}FKn?^n(0%W2zg2>%EdIHAV4
z_i@4d!(KvR4_uCR9KUbDBISC_NjTu5#%8Xh*TNtF9&DYYRQPJUZ}Q^CLo1)!?U_1t
z#_xZ%3)uhkY89+eN(lS3Q%*ka+TlfQH=oRu+uv6EZ2#MhHJ-fB%HP~?{Zpp*B9ZUh
z?^SXc47oaI7s~PP=a;@JA{w^xq{94Gw>3#Kb)?QN{d{rKqv@-^Z&y83bbr<YwlKNZ
zVZ3tLF+J%5+e&i2-(9uuFHf$cx`>sH^Mz*(zdPQx_my6IksRu{?}m?E@YBQHt7b&F
zZ){Th9{N*c(^ZX0i!KN+DDeDf7hhVrIZ3@iUsFi(O+ClgYuA@Z$9Fl~&Plkr@ZOE|
z6+Ow%<_X^mZEo*maB$fl@X$s)^7&zdgC#2#{9Vn!-sby$8H);odznVi@31SKD<8Y~
zujG5rdvQZR+mp2Qr&O}!&uBh4IPuI~{XX0EPFFkwx1Y^&wEm&LuRdpYlN-l#p_8Fb
zT34PdTpyzL@rP~Hlk8c4+rMR<EL65!w1KC$(XPeuy~YC9r~jD`N@wRVGiQiRD?g+Y
z^(Ls>%--nawgtO;*FQ2o!^yM%M2Ak8YUC@q>Mg5Qh5zjA>8bdbbouVO4W)^WL95=|
zg}aIIl^k7Adp%U<D~Dq4^ZC0DZ@jkn@NuPpN%QyLmTjqF-l}|b<(vD=BIU;~`Ocp;
zS;=n4!hj_f3ujMvH~4t=?l$X5MJY2h?`g+!Pbe~VsW_0g``?-OFBWca;q36KTegz>
zpKB=d=HIn}^Sma?O<}(D<X+(Pj_C{7a#d7ix2BZeX%OqbvG2D^VSa$~u6JUoDIvN7
zhmNu6bABzEBNd=}F-$e+PU^+}W1IGVuU-0Nz0JLOr`N?F*krQqZ^}eH-IT2_cAn!*
zJTZNhhi&m}Yco^*5U)U;y~^JD1sY{Od`xF{b%+$7S?Is7(&FjL73{3%7=Bi*RbF1>
z$>X}u_RxQ8v-1y^v_Gx;x=#6Ywt?2EO}EeAo_#i}QschNms34oB$5ssQToz*`PacS
z&lzU=#kz|{=}tO4OKa82l_kyx6T3z9MA9z)E)4eE?)H+0WwH5g=a;&Uet+bH@BF#2
zFm;D+{O8+Ot1ne|s0K_}#%w?T+`YVN9jPw0ci%3UpV!G;{5mQBrFH&K(~azfjmsOH
zx($EaZ{L~d7<$f`X`}u5vh8;ltgfs(HUI3{s=M4bp1zaY^y!;wvC}lR>9Iam9|E@C
zudTeihRsp9(8F{uhw3~Hp76~p*ZbX?<@8!}<%b<osS}kYwGJ)lS>AD>b`IC3bB-?@
zx6W|M>PcI8u|wmbx6Hre^A-9p|2b*Ve1K`mY%exVsS}wd6Uy&>S9*A#Us6uFR6m8`
z#kp!f)4M0+{iUXe|M{EY_-bLzQ`yfS3JY@^y*|C%@wtAkr*5e0srHw}e@$#(XBum_
z$sD`4L*ezmOIlAN%72}Y*yT9eammN^rN*3{+50Bd2K#WT9Y6c@<5$DrxUk)VT9^6$
z{x3;-`eLKPt(HKS{WV5Ajk0#1KV_SiDOBROH0@=+9FM%#hCct>?+fc}Yma|eeeB|d
z>xrML<ch8LXL4oxgnduC!+WG+<<y%g$7Q0nEY^HFyYhs^l|`q&9*XLbS`|1e{HsRD
z0`*s>8Bvox{%jOr(B1W8>gD5es^9L4Jg=I(zi847?#=6dvMn%DzSZq0Yh9{PyTIjk
zxx)U61twx_$^J}hRy^}L^fK*#Ug@3tZ>nwo{HxnN#pyijIuCx$(p0IF$D-U`wsW)=
z@=VeDxJXPUa%V#N!%a1LtextPj{>*0?`=^(&R5OZU%<UYd9Rw|&%*t;^ukwMFqy(6
z{cLmUw&^Riu6=OH-EV&{_)N90))tZPSHJl!`y!kFN}t*8@`im=j=jEWY@~l?yH0Gz
z{*K*}86iiN?Q0`+?E}vJ)C%MgeI3l5wqp70a~3=uPd_Jb*X3faFEmb_^U7H2R_=uJ
zItf>9tWFM`v6^L3L_<%M-okY+eiW^rpr;%twBTUr!>Lb#>*i=2Jax*|_Oe0@d%5VL
zn!g28&vCd3owsVfEW1<YbKR3l_1-1g-)&RcoqIA@e4L-%ZoI^I!ct{x73E-Sey5=3
z$X_QXtki1$;5K<W|IDm~-L(yYlC4**=6&6;q43<Llb2kB_wVB1$oN0yTk_)l3QQ9&
zs7`h}wlAl3?z-5=f3B~!_;k=u>bCsHryW%n3TA4F%#7C)^VZDj-<9-wLx$6BZf|k3
z7Mnef^p9@eKEW)&adG8-AH%MHE?=+Au_#!k+NI;kpjxoszD^_F`PcIEUjKe*osIOL
zH}%?ErB@c!9oOzpvMb0qwBpf6rhVUd@3EQh3yN%bchLP^rC-a|_jd1gGfO$lIo$kJ
zrdZam<NDLQz3&n}7*CN7ko!7unF#0Ws;sXHQO9kzKd5AreYZ--{Z4IpJ@X~ovbztj
zd|2pfyN2(D!u0b6@tOZ-{x(@LSJbla#-(d{eWxxz+;Ly@noe*0_x|5kjTd*hE{(do
zW@FIt{eL$&37$UoGg|FctKX?-lD5K6Rw$(}SZk@XJv`z}d&J!^DP^9`6PspQsmq@h
z&J1Y_cAk<|@aMwx2+<%Z>+ip1Z)QH9f8nQ9R^Iiy6XRB@F8wz39*@n>@*7#UCtHg$
zI>dTfC$Gp|8s#+k;)_H5?Mzbzq}cglWPg>VH8~4Ny(sHE@Zwxf88hF{O=|7Aw_ImQ
zOzb_OHS5Q2_cQ}7`;Yx<j&J7HinvERzwA~En%%-}-2XJgyVOSA`rh0Bf)&$uBpup+
z%~4C!-Q875agp0U(|9HA6ZRexCSFxN$=h~h(zA-CDlxf|KA&&PYIEj3YnPp;#eC<D
zhUY{{k-w)BeoXxLkgKcBI3PVuBGOHj;r(~>*-8aUYvZ?wg-WMt%;~*6>u_X<m?yiZ
z|ME8usiMAts{DUX8BBW6;&}V+ME4G^H|h7+eS0wDYr5QvK#O~Kg>_qgPHcOjbmYVD
zrdv_DzfU$kxnsJN%ks_q)w5^0O$yxdewp>VaPOeKUrtZ@b0~U6`@@f+m6uar70sCb
zW5doDpRYEiKe60DQQzEIQDc+HuI)E?yp;akDu2KG@4myTN^KoUnaQp~pWCJduG$`4
zxu=eOYJ^GFOr7b;qM|+RJ9z>Z1-$>KuD5&I#mU{y+`D5^8~<8n?^j)<^W6KhePHdI
zZ?o_2+x;xVIXiKZ>Eqi=lQ!&LzT#rmzI(DKLTA0}wNhIh7_}>R`~FCAM*sRVe}pZ$
zO3OUoC3EDxuiO3h)N+fNvzA}Boqp$q^&0zsUtb;FzWeE4Hr2v!kG^W#{yw~Y{kph4
zRxLMIo2zDCeRFp8`@*~TAHL1E$ak4l<D_*y?)<%f3(~fS>;L<6?94m9@TzUI6z>{O
zeG<8(iOcSGOlD61gI5zxl^u^A@#%0hdVNL7%t(lXVP^DIrgMf5coa{xGN|PV%uJTp
z@M7h;2|C9#!Uc}x<Or_Mb<Fw1%J@|=L&_y=+d_pEN+mN4o3>37{L<61;LvTc0;7`#
zNt#O0D%ox!A6Jxji}*Bu(3&9fboQqwJRfs<9GzV`s)Xl9x$vdd6pF8i?!M0M@n|n^
zi;`mH!bRB=b&|ITw^+?&E8H{v+|k%Zt|_^KH@%Mwu{!E|d^6+7_v7?pNSU)ySLjCL
z0s}{*OS>FjJ=<lWbKtF}xraeg(a$n&-HjppFYca_KUGU;a{dIBYbyg}r2ZT_X6$lj
z`5aM|>yghp64Mp?*5(U-><tp-d~~7fNUQ!zkLUeO1?PGu=yW9KFMJkxTS-;&<mO0$
z7rkPho5Zb|OSO+0CQQ+HcqQ1;CuX=Oxa(-V;H!|iif+b_)+(6I)I4J4xX9X>iFubx
zG)wFCv;G~A*Cws&;NIq%vRY!Yf()CuVEi4?PHCrZmNNemCX0_BIR*ON7PEFnntKR2
zY}_uud(*t*+MCiYakn{r!5#%oE<4*9mA(teD6ez5$CA{f;O4WhVMSMke3Z&3D?3-m
zNpI{Neni+U;c5|^5V5|){aqW|MK1yUhTbZs4N(&=)Op{l%w_RBxYgs)go2q98>%nr
zDmgC_J@Ct<wWCs_plFG(&=a9KyiF>e9~qT2{lxt}SY%&{J#5t#|L<{2-B&T@PvZ_5
zsUz8D?%&)VC*NUtutgz~M@}JW!_!yt!SmNJyKD;!V|e|QC25lIk>5701t0re>NB|#
zeVJ8$TeKE@?Vma8vKVJm!B_UA+zdfa{<B}@JIvENlGR`DDiBGZ!=SCaM@;23YrMmb
zU+NR`ZJb*YOv39G+|CvBX{`I_Fvr&UNr+aM%8DyWZfQRiJkCt+=xyp~{J(Vfy-g|X
zjv5Vqo|PPD>XX8sPVl<8{hw8JsjI8tC#IZhCtkgO{%U?~-elK`MYnfc6~5n=UjH!l
z>3yX`v3b(lQ?IVS_C&Ae|H)JPkLC&fm{h$sSFw>LTf8;p>G!>S-_<^UyR%#5XVZj|
z9nWh{Ydx$s-S5h9Q#vPL%^&+odk;<%y>&#5Z9ao~b^-U3xca{;I&}_ZY;{)qZmP0x
z%i%G*@JNsE<go+(AEWoDXt^A%Kf%?kGvBwU_xWd~`Lc->oX>NnS*cXN)Q_~B{rO>0
z%JiEZ@lFhfUjAm_yDz2MGhu(q(?3@vm7c{iP3k>3&GhB;6UwJ&&p4rfa#?xz>hg^}
zeSFO=XZ0kxKJq+R`SDV#k<})zj41Io4~I<^HJtxiKkA%#&aW^x)vx1`#D0}ex-wt2
zo&Ur&Ej}0aXi2PqeOM!lySU2~OXaG4syn+AzpRms-sJVyUn9CvcZYI(L#;x}hrBqa
zSsZ?vnVo#^n^rSjzyC6S2jkNg&D)Q3kG-D$V8i@n8D%Fs{ML)J{}nt^k*5A&x3`na
zf8`(}!N=1jRBk`gRk_G&IPWHBPNK-n{YIOFZzyHO>V!A4+?1X9_rK-u23~ISbKU~8
z8y98#wEW7t^Od3G1C3z)jlz3lCpaq<+E@M4e!*1pec`32_Z}|4q<><M;s5muct6xG
zS<?N`_OhbRy{GRE-H;b%Jo)IqYPtBfEB#aUHa^nb(O-N2?j6^UVw#4Z^qRg4IDd-%
z?9K9ClBx5h{gDg2NA9WqQa$ZuGb?4b;k!KwH)i)=XqYg4#{Ws22|3r;H-u|@xhy(;
zYWte!;aZncAKH3NIQr51!dEt_8UMMgnr>X|m0$Gn#M#B$kDU0vB6JVa@|UXHH%ojM
z$?YuseP6B3Jl%gos!{1d&eN@V3Y*xPzV~q^zPabEk**xK|Ivr|O%h5c{{Hv4*A*>d
z{Y&T$o0BTH^)Goz?xZjE3F|W=*ThfaJs=kTPH1P*w5|*V`S?vA=H=8S->*M$Vfq8M
zhnzFs7Cu|0x#CFJ^b>!Vt@&T*_3Ta3gf;&Q?NZlpm(AJqFJJJ@4{wdf?!{9R>g^X9
z-?!QP+qUU%t>=^3%PmtrzL|7-R@6bG7(@Mqb3Uyxm3TLYz2?Ez5XI6d&C?&8nz`6X
zDtLE+USdV7Nz=Y3HO^`&->Vr!A1fC>>26;m^yG(kky$g3g9VGeW2od~L77|qA0nCO
zYAbvBU8?U^y^{ZA%1nKW^hXZY{_9qqJF;CsMY=&byUcR$yNQvTDoQWT+2HPaTCMzH
z&E|CWf+Kr7`(vhNyIyhKJ;(16$8?sndOxN|9^}}pH!<lZ1Iv3okKGyj*q>L`&pLNg
zAv`l%Oy~V0N!`=G_P4g|UUMgIvCzDWt%}Xw8&*tr(R)}@rMc+N(IVdE_C6N{V+&?X
zyW&*3R<Cd4ibGoqX2mJ(TxTlRnUQ21zL5V#R)XcEsH0Z|zfUjdTN3rL=yk*6WidkD
zyDQ%9cqBGy?#|8KOFX9iSAG^-u<M9e%A=CKEX%zE{%vP5UC5cJKk-GAvbwQ?O_=zh
zhzy2p7N(Z<vWX@P(FIT97FmidW}F}^{`SyLOC3=|(^o<g-C9Y{FPI4Sn94b7)gEzM
z*S%*^mPL`iW6{M`9g=(x-D{pjsPsP&*>^-?>xBcFe;D`_Lp=()?9R_)KL4i7IX^K&
zNno*%%&C5#Q;lj?47Q=09sSBaG0!;TzT%&H^<8C)N%|Y72y!3V!5lv+QR3z+xrmFb
zH!UVysfymO*0eCIu1Wb<!=skIuI5J#bqvpod$^Y0lDGUi?b~zVRr}vHsl~qAx-<3a
zjn~hfMZcMMLpSK4)%*}&ndCs$)Be&Qbz3gFyPg&=wUp<NzT=(bHvMv>Or+>VgSSEx
z<~+F7+i&t9X6NFGcavldKBXK`d9AcFuiHIl_8tFI%4(`Eu`1VdqdqHl>oF!aZ^#lq
z9PwH3&2#sZWoteNb?Rv+@6qwv)2)<{9eN;S%jr`a^fe=!cQLGB3fup)A?eLWj|kz}
zJB43~1}DE=^fS$sd4p=2@O*)l6_$%W3(fg|+0J2)_k%yLS5&Zy{Sul}R?~me_g?;i
zm&Y$iUy+Jf7aj0_`-3<2DUUvI7k37UAHJ~SfAk_oMMVoa!PlFL3fz9)e{`vZ-6dO4
z=Su3+5{akv-Q^B;A9Mt_>CL*hGPLXD_u`a&6Z|`rtm7tWTkX|mSovXMYlwxce#<|O
zNzE&gw$7O?v5rehRD1DF)o_EqjJ<l(gy*b2^z!m91?y!YYh-SI6uP4}`IQaZrpKx)
z_?}N@RH|p$ezJorLLuJkTfB04)(vH)*sycy8q*b;?V8d>{u^KB+u_5O^<Qks1@Anr
zx0#E+z5j9l(ofaxCAa=QX}a_6y|<F1?19Jqcl;;l%BX%9e&Q{2*|B-+<RTC8rXKf}
z-FKGU`u$2Y@FU+u;V+?#S7(RBFS2x;-nDX8S?8R-;G@~TuMW*Px1vJ#ud?Ni%A==`
z$uFGKx7K}H*~gw%&!bn^OBc%A+41P<CwGG@YbtiSPCvo9Zbb#_dc9e~F<~FMChJWU
zj>%vs%QjD+9&`0ksKUim$AJIacbLyqR$sB=f3(ML55EszW(q7<Gbw6{Y8Kv_e(t13
z*MG6Edec4zFPaqLTai?y@jrS(ufC%h*Qx*0X83N{ze#IBQ%+6ilM<IK!KObooPDhU
zt|9GZ3+F88>6*q>8mZ~=hxf!W_G@Q;7Va%8WIy|JQ<#JJq|d55?#<9%V78PyS#NVw
zs>iwMPXa_lbv|c2Qhx3pcCcuZ-lWS5pU?R*NssR#SJ;CO`&o|nrnPdjKWFv0{<qxo
zhj&KL+%(IBw_Rc!{?#$Ow9cPj&HD29q!TaC-e!=Qxq~6TiM!w)+k>vMh#B`T2)%dO
zA#^;KVci3-8qQ1Qci0}BdZg#^LQ&P`A4h{$RL_(;&Y-FgjT=^Xw2SU)>$$!=wEv0N
z9o=syd_U?NcGwjK|Iy`oz_sh%qCKf$J*AQ2{vTKTSi3M*L;XeA#>hjlVSVqS+@I$?
zmo^Xx|B~Y-e(e91Nj}zh*wPLQCvxXLGG3m2e*M3Rv3WPwEjAFC8>s)K?Wg}5&ZUo@
zO*sEX^!Dx)l@BJ>Cx2?)P|;s0eqi04rBTeCUOQ!`U-Oo!GmY3Y_2VSY{c|+ty%B!M
zANV8HPiXq|2Z1lU7hLlW6V6sJl251=7o5~o@P+Aa%1`HzfD0P;+<oINZRb=!@pTgC
z><u|di{lmv@a#PDSe4T;eoe10N7Y6VyDzG-$^G7cSQ%57Zw$9ha6CVC>(30^BMNVt
zw|3?g%--WaWnYS^=OmFz&-=%k4_x=&#qYawTanWRHqT!9OZool-hr`m^o<r4=f~{5
zr8nd5L#ddU%L$8*Jvx*3QU8+dzsMBdUB~}Vyc+yvv&rm|{`!gUKAvyN3o@9tAW>TQ
zMcz@hvd(kUEv78pe$v+{-bm4+YV*~--Hrtx^cU$DaP;4c`kJ$e|D~M#Iu-6Z=e3<)
zdzY}kPQPH%S#$E`?;DRbJ<lE6=V`R_B){eDCu(&kZ?^xNaQWG6jmf_<Kl@6Y{>qv@
z;aL6Tr=NS+=NRsC+$d!D!055i)aez%$+=4L0T<>Tx^$!|c5TL_N&1FALO0e({+s0V
zQ!An)CO|KFjZkH$=|pe8>HifupG)Z^_*y(q`C|D=mFu}r+I+s}U%W5H89khH>em`Y
zeL;z53Exr;dQPTpeAKS<!{vS9HvXUwo%b%88CH9m7&c8}U&FTd<jp*{AC>u;vtRHR
z{;2$DH)+Mn?|j=%_O!of*cd%w#oi-<j_+l2Cbv9%zUM~Dz68e$T}KUH{{Ntt_O+p5
zo@H}%`OcTBr{y2reLCN`aPqsNxjL=o)9VFoq9<$Cu4_Niu)%7z=-u!0lWT<kE8cx!
z711Rl@TW$>B(RoKZ_*PZ&oy<N$Ie9QM}GKSv$i4R`%aGJX@4iY`@C_+s#Tt`mll7K
zpLzGW@{Hnd@jZssxwVZg9|e}pS$_I&&F#iDm!H<3c=^d!?*rS(8LvZL^IMwD{$lsI
zdbxnWUYGcSeG|-H`le29xIf1+$Ufy@MVgsl<AX1rNf%~TdH$KedeG8CWPyLp@9pc@
z=ZM{3(4w+1{9u69XGOCG;d@ha7ERFHdE~1q=cMj~xrg+-5B~kD`{A_R{G6l@-pL;P
zKb9Iy4d0XUb?)zSj=JM1?+j`^59m$W`8&4FIB3C~g+5arw`atg=oS9>wZ!)s|4feu
zC-0aBB<}ZK6cYc)U|-$U@2M&>0p$<HPfn@oe5j;-Y#yT|_q}qlQ|ZS7ieEZUGZAcy
zVzZ5%{-etCQERs0m07;O7N?Z|Zz#^+CY@ooKsu&+N&Y3?b+(txU$Ra2RJwaUeu=cl
zr1E#A%6}_AO3wSNdiTL4=9<ZQ1(GUS3X6|_RePrYl1={PgD3%+nki++`IG&AGv58=
zEOE;3{Cm#rJx{*;Q9C-L&gu_;AUmhsox2V_EB}=IP&>p^XZ2_HgMGz@!E>4~sg-sf
z%>T5lQ0k9#$o-=;HO1a6GYa;ae2^vc!`e#E7v5a^ruxjhp#A)Cwn?Cy)?EEUkuAqm
zIiJqyi4<;%tO+gtBhXrOOqK7T3ESM8E)q#j>epDaZBsn|FP~8?Ic2f>TeaA48@#!i
zE*6`fUscuNsQyEG=icL4^Pbjt#9cb{zk}yQh5sg-vn3wiE9SLXr+f&UbYZidf4<RM
zMXOm)RJjsg8_xRw)$4zWUvtBzi~iYm364MFl9=M(YR*bGk`p?U(#T#LwcqogU+c`A
zlg?F)Cz2S#Z`3~X6V4avd2;vRA@!d%4qv*3ezloNOt+{xp3>y;qi@glmu>QXlkPr<
zUm{)erQyuxz4As9is!E_P5)(XdEc$7jAMe8?!Wd3;pf#Wj9tFIvGw)quHSb-FOvPt
z(FMgOnrw5IAN?<oFH~b_ywIk1<Fl4e>62L_nXR_2*t6v%>+=U+elAk=sAQNIbB-bV
z;Pzh%QM>hL^C(;XU0cmy>3P7s`dV(#hqH2JrF~!OJ2}4CJ)fm^ZAp9VT>dWpPPww#
z4;~h-pLs&S_QtE4cQQ$57Rc$JR6E3D6=)l;VwUi@wDZuhX2~<NC2D#2%M)2%yC!xE
z=3I4-DVX|E$^1v;r5ns&jrT7}$T?;HnERMnh76PaTob<5KDFM%^&X3sy_)W$vHFq$
z`;@7v{;iwVc*`^eg`CR~n(m{~9k`QiitCOUtEN8?H=M9hVl~sL#VcZ1pB7H{($(mX
zewO(`@{qaV?$h@3GknhldX}xfP^s6j<kQSGMRsh`bJV7P-h1Q8o5%GYW|C(%oO?cT
zj{ZgdnYWc3em&TBGV_z~AEEa6{!6@@9Q&90s<Etoeo2j6a#h7tjw#x6j?DVvSTnhy
zh?8}x!VKG1vq=5G#v-w)R}*f;uastCnSB0Q)`Bw&V!z6mY-8L%W6vp(x``%c?Y<WB
zsp;AGU1lCko9vhz{^RG8jn*}D#48<+H#f!k_PBmybrhc@z;SC)k;J{7qEnS0sj@nD
zdyBE0mC#<=Y2dQx)vg(evQ1V0Cw{n`(l*C;&N0&m%TH~Ze#rlQw?_MXpI@Q&G4G_;
zaoX<`ox`jux>Vu6k)DCXe`d!0fnR2~cJ=K@Iand_ciMppj@A3ly|epP=Ki>p@55}7
z-f&Y+sr8qi&;If!Vz;!o$N7HWb7}iH>*wpq?_S=TV&<8xwEVRB%i^<YT>EccPMU1&
zZT>QIqvxSz&r~Z)RKE%=m}8`MLDw#lSI^awx8aTF#*>zIxu4!IV!g}rYL<g}@2<29
zz6<BDmMr$4J^Mjm;1$ywt{1Mm3)`I#6?E2o!?#yL<Xg);f3Dvx^VHu9FYXN17dcwA
zG|r->_JaNgjoIQNe{?csxSO^MWY$i+Xu({k_T_X_?>g_W$q#D10s>5bO+D!UROn8G
z*k7$gW!L?$j;edkwVd@sl`A#y)t~dlJD+;+9CG;Jru?VvcYMx)x96^Bc?<6<FqrW6
z!o;r=Th86md3n!y(y4UE0!!9@zCfvSHrE$DsQkU^&VKm{-hT(SyPePe;C|s#k$gSx
zKMtus6R$s*{^s+<@(uP)Z1qn}e<){saF1)YZ(`f;lG0J*qWI(Q`ycx+Jm}xE%6`(9
z$-IvbxxY}|)u!?HN@7fR-K-C%|4!tcU9v3M?_{E{!el2&;}b^~_ONnEeVy3k!;<=D
z!GgxpnojO7P8yHf3hd=MIjT1<h!ZH|vpHI{G=7cZYh|wF+jBxKdUP#)RC><7{I197
zJH_n%q6;Y()kIw`uIsnxnR<ASwHI?@;XT`Df|ge*x6fB|ox4f#V4;?RhTB}NDJ8P|
zc3WMDblsH7A%Cm!mu`CLJ>LzTK?V67>s$|hj*5C$xmB|w&fETx%+I@_vo%(KUbop-
zY;|#*_i5`u={w9{Y6WcrSk^C;KcM?UkY`gNXVn7fUvUftSL}kMQ>;GDeJ`+1L9j8-
zS3NGtxy4NA!r~s0f9IF<$oyD#Iju%G`Zn|DGmGY0)g)hb72fx-<Rb6=fL%A78uwex
zaJtUF_-vq*ep<BBoyW@3hxD#g)_&}eePvOXbhNVi!1<=SxDAGj=gYsiu_%F~q$JpY
z$7<G<&XpVd{>KGf2wa*VBXHB_d@Glik!@*5{gH<{Zu5PvgtXZ0e7L9UrRnNy*2~%V
z?i)>8zRb?s?vtKZk^TCvmwOpjpP$9}zW9Zp+TOqW8ZV`l_s4IFnERLSlXqF2|5btX
zZ`Sp*H11z}DYrjmW8Cov-}hb+X0|xp{NmTFS2;h#-U)o#7p^$xa>(?O^YKQ<XMekR
zCuNq`?;m+eDwlNQ_Wx*bQd_oK@1U`vZz*GwlcsWT!g2P4%Eqkzr(W1R{U_Kw&p$j?
zsAJRNoVAKa3v5>`XT9v3kaMWyu>Y40W|Nm3&GD9aZJvMIAdKy2(+0g$JCY=B-p{W&
zVbb$$?&i**W9B(27uCdCt}pX@psHgh-1dF1#c_@wdJBEN*lNCy`dN4R`x5Uaqno>5
zsUB<G>^-@Bu94O6uoBOWLN{gWIBT>2g{Oso|E}8Is?qM7n-<RJnRdM`UX%SEciq;E
z&7yTXGdIiDN&4KkJYu&gafXxp4_CwACH3(_XYAPa8>G!|m@l6;ziEE`g4@5FGWmAv
zvmCNJThQrve)?pVFFKQ1Zkp{)*w306%oHgw@7@lFk3C|Gk3L*otiMm?;p#&fHwC6y
z_P*6i=kN}66Fro4=2AmnL4t0>R>^hjb=p6rg*o)ncSy2aPnz;oOsd@evCUfkkKP{y
zf1i*%)U->Z!Qf6cd++YF{rA6U)_K+}vHm0U_{?5wn|II7e~55?rM$N@?vQ26;T=;R
zUX-mn`RGjYVT;NBPn(LY4hJus6R&$|fy`{<^9@BR@h)O4hiA-7Kk+@!Yr&iO#gaU>
zGvXMX#nVC$Uf|pO>cEAr6#fFY+}2IC-L>i^CB`-RFJ5fFao&kDRI*N_X_rK)Ow%U&
zNdi;yOXu4jneeVW@nFH(SNmKNcBGZYCuzKz<@{k%!^2s#pQ_${evi|6*TucM4lZqH
z#OG{xpM13BW$m4O-mWFz&w0;zdC7fexvt}u=)1pJc`hm*EqVL*>hG(3o)*&!mhDQM
zakM1b;7r0UO`iRkGo1~tyKiz-S)IfBxFGGe<fa)<nC$QSe3CpKDWm^lXW^{61?lZK
z6)$W~s*w0|#=<Y*UjA;$2^#|4j<@w}GTQlI(WwPj6uTW?N`!x^)>72@H<33nvS$_R
z!}S77Kg1r4Jhx@~hN`Q(U&o%mziRD1`^fnY&b!X8_1B!B>-?kse&(9<`xI-dcO9`@
ze%JTkuW2`T&%X0ZhfT47?W^}jyT|MnZ$3rOSARI^ezsNhi8beM$8y(MZr|iBqLNnY
zCNJs>A`N^?8gv-$%O9LmbM5(U{s+%bsc_!-k+bdM^1I4r(b-=*Z?qg<;c)EPjGadU
zxYoWmZ!F;T3+ArV>IvEttEqNV>QMX)C;us)&z!|3--~@Xaq65Yxg7ebKWh%=>rOjg
zom?v}-n7p)vp$LE<@&|t%1MsDzh>2+;jwUTI;QB{;(77<^756B4_v(cYWI)A2O2k~
z6op;v_Wm8rufp0i^Ng4DBAo=bDaExZht<0xw>}WQ&!p4pU&FmY#_pf)fm4ddDzCOJ
z<lg+PslV3vE|+|9TCV&j-GjXacYAK_?T&kN{{Z``_|m=yik5S(ZdANqWxe-r?5DNM
zf(_#Cd)u=g%idT1o|mU8TkH-i*KE_<|8{S)EwVR#F7$a_nRJR+%r|!L$*xL!H{W}I
zkH2Jce1c5GuZ-!tmr8o_X}WpJznv~|{9@R&-7gFHv;^jKKVmgIAi0$BaZJx8=KV9C
zmae~X_t|ud#b*`>>-4cUTzBWH%af_tR4aCU_q*l@!;_+BX(nave|;=8{eQenoAO@q
z+=>W;Ye$P(odPBmbF?q8aPM<rbhY>-k}i5$l>O9ci_R%Odkcha*6w?!l^jwwKi+Bf
zo7<OJ??;{5XS=rAtdQ^Oe9!3?i&x$LGbvv;bo<X;z9%h3Hl4O;eRcY>>Y){Pr!T)M
z<SgR9w2<$%qQw2ETbu_U_@8Tvw^-bFNPpid`S$thi~SsqPtE@!(qZ^g=Eu!7>vnBz
zo$uQoa{a&HT<(LahAAxini8*d=6dr@N%vm&ds(8+xyGXjI>rCO*Y~?$OPlgU;Qz6k
z0dXeRu0MJG#n1Rj=}+ZjjbGoco&Lr-xi<EnN8y9*CuU1LPslzo{cG4!)~P+4w&&=d
zJe#<t?T7i9#ssePf4@FWw2(Q@+ax$=C;KL+6>r$B;$$q@EdDwPzUyXgZ;mK>u>GdV
z%-+wFco)rPe%`d8?zNI=)33GNB_RQPtLJdeFFz>RRPb|}>(~F;#W#fhB-O5dl)K4S
ztbOhEOWF7L&Y!wMYSEgiy}vK1{w{d(x9Zo#1kJMjd%ath-iSR=dwlVSb&B=#PV00w
z3a~6P_d2=A;`{!HhGl=fo?d0p?K))5vb}5932T;k(b7qu{T%l?`rh;WC&P7q(X;ms
z5ADAEx#|+al9#8yv!T9UL*@6L4W2SgwSBHaE}JY*aN51tY$;~`nZI`1iwK@DtK&*1
z+wA5hPgGH84}Sl4ZQiDrk*rLvFCuxF!Y^z-^wG%bn%2Wm&4tpd|E=gKnj7}_;;Ju~
zdrNuM3x91~_wYq@naAEMtNA!=tFIUAxoFbaG$(=W_(#KamtQ~A*)(r<!vWj3$+<!-
zc}owhx}sF~vf}#H$RjT+^F7KIKF<>BE?D97$x)&Gl#MIXBKhfYZ__9Ho<BY@#BXA$
z-NHyc+v81gg;jh<Z>3%=wh&pj{rFWQbHS><eOj+=6N47Zy;jPfyuRU1KUco5lk2^0
z_h+?qX^4i+j#tsMy>D0SIVbXO%85nK*H<kG?Y9@LtE~<@?O-qO^mhB}#TEYlgU!zg
z{0o2a_2%bYOCKD0K11#0X%p#nnTD_PnyqFtK774#WyiU@Q(W48Ue^EBGMl;SUmeqN
zp^_NoXyIei_<vnnDlYmW`dt2%Hl1A;_xWz-wZF1_?&qxME6@LWw??vI-rD!)RNQK>
zm8bWq$bSyMoIUxw=k=d;!eM*873OT1r13;%sYCgRn^&G+<rBSeWxM#5iVJ7MRy<6Y
z!s0fk`&DMEP4TLmjHcV>&9+muUhlfflF8J|{5XS3h1R(iq2z1+3iUEolWGF?^!#FK
zy1wY~wvXlyRaWG!=m?4{ajg!!@cEK|`K0aT+q3W7cbM$bo>R52_HpH^NB8co`>1kf
zcQw1l^q-th-h4lMoptV$w|BQY{t0>@F7P7%^FIC}p4#RxZFbAHXUjVjcP*^d+2km4
zG-8SI43_1qIap3Dl~#1r6$_m3wLy7l_T}yp&*)b+D&@^Nt1i~9Tw83kBtGl3%ccHr
zu32;cDc+Tj%!`^3!|*1qao^N6=eavL_gU&&UNg<DjcCu|xD%3N=<xD}oyNS63Z2|v
zc3$e0{&MrFRV}~aslp@I`cHr1KAKgsIX(1~q2=v~L6%cC^Rt|Kq<BM|>H0&Zb5363
zy?)|5pUtc~!q^j6_1<Lu#OF)0V{Tp*e<^jn?udg^f~cSQMb~we{uljoT4rtA=fN}a
z`SR|V&&w9h*AB4ptr5(AFgq_Vd}mp-(G!PFbDuwRDl&CdxZjjw`{lFdlNZ+B^OFUI
z?tFT$u<OR>V#Ug{ah~xWz87r8X8NbC7Am>x&BigQ?!@FZ&($3C<~>omYoIFlYhv9t
z)nae^OQG{zUbyc%rD{H{?uqoGFN<TJO=|C|3t3oD%=>D>;}@H{<|uA9_1tx)b#95!
zYoqh=OXY(-u6f%(o3JMMnI~UI%&CpsCzHM~?|;2mT%04$&GcUAJZll3*6*idfB)K3
zGE?8|r0cFTuR|`Le`mD*u;+#H?711cZpJ<hl|1vp?M-rw<Nmpv&)&Z*-@`R~caex%
zb>OMO6Q$`^=NUKlPdwimbKA#7=fu_ijZE`>mPaQXd6D#iL!eMk!H#2!t9iIWf#u&2
z{o;L96D0nmJv6%+bL8yjpeJ=_T)w*a-qWkODQ;d_^=xv**N>?el%5;?nC^P-$=gHI
zk1stjFZM#-tyyQxR8BgF9a$c;HF~ewi>xjgf!WRr?<$zhoO^;>p?goqrL#JYy&I1%
zh_I`g$a^&DyvBn3Sk<2sE-l@%s?F?nPt09KL-xvpt9kW`nzJti2vml}H*@G6^q6w+
z?BbJ_F)gwz^Pg=xao5+ZaXq7x`PDn(AJ5*HdRyt6VMQ;C?=wg5qIR8iGIduaGr3u~
zr^ilqZ$5jWI+^vgYAySnHPgRX$^C3eb&}kbHb+hW<?%Hq_wvL|4irxN;qt#f;f>WS
z-?&rBch%C3%U(=yU0v|wW_#b`oC!y7n4T6bJhhwqfSuG;h8ssD_MBSX!Pb1A`9aKg
zUX5wx7qYMAEV{Gee8SeIu+ZDSEz6fIyYczyn_qlKud~is@;{t?(ck}m6IBf}g^Jfq
z&S9u`d!AkNY@2tH{)v#tt@amF&TsTv#O}f=)A!eAF>~oYiD<nqH{}AtlNq;VdWtk%
z%~--#D-^Ou`j?Aj40Fod=RceGZC!C=*P-H?nn`EPIs!I*Jv!_0<0TfJ;T668J#p)u
zCQnacx6nU+&out9Qtzum%}vb*_xhJj62GI*@@v_Xy$Tn^x2KhNUN7)iU8@kFulk<b
z)~hz1(c?l!j?0Q45+eK8TE#xHymI%sDqn|DfRst)#Kqb+jTba_9m-y|`0)#_^)vf+
zb_z_GenD@>oa=h!pVuksFAQIJzIo+NJC}J^8<VPcSL%xxU)ZkTA8%#PI?;LddBup9
ziTjujX4|j6byw=>j$(PveJAo+ANbi#j%e_)JAFS-=(3Lb%Sqd>f2`P^<l7T=$u<7A
z-v(9(NiTtu=_xBO3THj*JH?_?lN2mtx^AADlu1y#jp(V%%#}s+uD06De6AY2S0Uf>
zYh>fDa~kJ&HB91gzWHy~owEVgMAxma^!(&HxuEUSx(_u<e9o2O6}GlpKCSyubx7j$
z?$T4!KURmyi|o3T<-9<)?G{(#HjM)7j=X0j@*dNsAFNf3jAJ|Bbl|H|g$UF2(+^(G
zntr`Q#Ztk1Ug-6j(*7-7|Kx4VFRrgD-E^kvi*A(cM`KQjx8?s9<zLLYo*BwGOG3Pq
zH%TX>^!tRbYkrAMy`HMlD6`Y#*ENBK7ncj{Fzel?_i>KSzVxfAeJhJju<i^#u$%pm
z(qetb>lICv_a~L~KEESy{sqs>)#fL2H~f|Ssy(my@Y0DK`wACMl(=%E<dvsc$GPBL
z)$ekRj_aOeKU$Qrl<DMG6MjRE7`N3{l{aOdGM9TSI{0^9;L^P(Vt9W}xUy-|k%bdO
zAF5mWOb?wZz9GHDvFyT$*GjsdE<NQk{rBmq!6s+ZeG8Ap?Xq#WvZLVt2DZwVx0q@-
zX{3iwRgd&r9c%vb?7hFbN#Rq)C#Hvn&U+#yUg$FGh_xoW+r}Mj!J&1lgO|@Kb|@<l
zT)xVtvwn*3>jsInPKp=!%GclORO>E!<gh^N>5*0kPQ6EZ6TW`riIdP>Iw#uy_t|Z~
z3k0`o{SUkCYiZtgWAmz0{z9|E;zR2uectr>YD>ry**oiB*_<rXd$c-Flk@(|Hz(M9
z?oW0Qyz|V{`fr%X#os-APhQ;V^3?0_Df8QJ>3Z!>*HwjS2j2AWcMfWedr}*eU)fZx
zu{`TX*zp?n14=DXCHpMCsqenCNtWAD!D?~bK7l#^kIZ6PsdDf98yV4w?t#1cwiGqn
z=tZ~16g8K)%d<u<&a+gQKj*_OVb8oDi*sfg^B<o$-Q(8n@LU^H&&@?=dvy5y)gvZ8
z`I#`?CG$kUj+D15^FwD$;Mo}UJ!azfnXH~mR0Va5Q+ibPu2ao;FZQ#(ahc_0yXlit
zF1*~mym9gMW7W$nV^7VIwd`d&pTD3_C)!=8)ynA0lB&X^9w|59>P=+%!_<5GLd9u2
z7UqsOQON>6)1n?uS}}X2lU`>Rdu?#S^2%m$bMMbq`gKvWuBY!keA0i`mEZGDya<>p
z?&9Qp?%F=~wRh|u85J|QtXDRORJ*yo%bHW%dgc9$Cv2)ayIh){+Z3PlG|Fem;7FZN
zm?i%tV?y*4lP9Jg`&DmuE;W5S?ai65xt34kgnsfYT;aMXYnM*U*3TWQUT!M5eolGS
zvTldR=U&`V*jqNww)4!c>vP0X-hR5?GpFoqdg*#e%ePDT=BxY4ZI)>>V!yQ1EY8?B
zFHBnBlR0{I@516UqVnc_+a7=NdlhtPQpoxuq0}p$tG!R&P3te3?jl**s=jrji`VXX
zldY=VwadSTvAr*JTz$Aa<l?z=PgK6Y4NA}V{XOg2&EHFE*IvCT#mMn7O!~D?($?N2
zhN6Jn6P`;fmPFl5pZG|ZXTM6&ovpW4cqhIqK9I5b#jOjef0Tk`cCC3=qI7ib7OUSq
zChPmHey_Q+!*KP5w7;L`O)mY|EK{DeeRkvyg%e*jZk0C7cK&B=e$%{9#zEV1qO`l%
zJl4o#uFoeen_luIr}dDOYuY=Tyw62So>q*fRyA+)obdS7qn9xT6CN?_edF9?vEiJ*
zz$U+vsg=x@@0T1iRzFdxUUbU1!*D|Bt2dT<E2Ym&bw3+;ZuYcif@^-<+}aauo0}PR
zZEdBe_G_`M6<X2l!YSLccr2zX>=j+KLPp0U-}TS*%BC-2Dq(jWQdCxYJ83bkiDNtd
zc+s;dwYya%SKBo{VtM)Ho?Df6R?*Gv6Wh9?&gTpKP+0rsGRNAp=N_=gMqgw*?GWp^
z?TW03(Mit5{JJs0f-w!VxGufoyY_kZ$!w>r=AOvgGgMx#{$}XgefyE!iHg=8YpUf^
z_AJZU%Oc5t=)27%7wP?uZQ3ri_bw~TNUoDmD4RGjCAW?_c8P#?5X&wP!`P3~-rT=e
z=2v-hzwWlXG^@;d<>U?rkEy{flWsiGdzc!ob|_!zXzZ*vx6&7MXf5%qZGOm^a(CZL
zm7qJVCmxztc|NwA_;{UfUd)pSwoC6@UZ${ReE%uqGHLgR8-G}Co$SobYc4#|nKg5>
z0iWf~<#+a7xZxOO$&;+yVN%EZ@kz>8t8CYMyT3g6?Af&MRl%3y32Iw6y3E_%cHz?|
z2T99~yRP;vDdSB1da`f!?gWkhZ!J!KWs0wH59+TEy7qQ*LhmmZ<(08|1`MT344eJe
zO}w&BTx|bM&#YaxiPPo3zrUiZTXgGb<F)LlE06na3WO}*CLK5xxoxt+jtdJI#O@ze
zS~>Sate;Bh^BJ#L4);&K_|sQq>uSb(uQH;}WGH7mT~}PdF3!9yZc=Pb)%2qcER!t%
zy1skBB{X$GtJV+IS&ukfgwFis{`N@k0=q)8or}>nhc}ZxPO^Su^>W4@hZLKXthKKK
zi=$qgZol$=>bG87xl3!;UHGngTkaBHcx2U=vYz})+4C8HZvW`?ZBpQNsTUFoZ&i<N
zcXDGk`OCWfG{b^>jbEnc*qw1;WqGMTF?74s^GP2k9o;@_#UzEts*@Aq4lLI)+QK(~
z(sYSWlg=$as34MZwtdUl&F554*Kw$XSu&UEb@a90SXmpUXH?55pSI8`|I6!-6LMo(
zX7NsX`gXQK=QLHpHa^ewwJdK-oYii6|1g>G#POE5+I+Ww-;TGu*_z$U?v*TI`l~co
zU#slo=iMJuFXT7%e05fMlPw<N*-%*5$XV{F%|7$BqSn*S-fhfA=bgVj($c7!pvW(%
zW?Gdt;b+6q_P~xhfk^(DQSI8t7$*E}NW9~gHfgWiB}w&FFT2l`YhK#&Zh^Y(ttZoW
zXsq?V`S+}h)`eFY(&`;=|4s@!CK0t<IQ6S);)Dd-6I12xw`eA3toIWL;Lj{=y*x=r
zO^|c-&Cagpzovhk-g5Pg%b{ILX<m~z+?qG{o`la#rMa9%>yBS&lq-6BQ2+Xcm7K4`
z&x?Ps>)|}vIoJM4*#Wst`X1Gt_pX#SUE?o`f9m|Lwpnf=W6{>j=09%~>s8jR58Pc+
zQa3@3f9B$IZAHA7<PFkd87E3FIqm%GiP@|NVunp+v*$8<r*B<mf8=SctjUG%jK3;6
z&PK7km0hymMLaxFj!{zo=IS$&Fa9WeaS?oYl-=rooZ)4=C1&$3{;)Kw5oSBubFAOd
zNzSO^M~tm!tCHvZuXBvwU--=|70-B7`@|1MyBZ!j+1mS@^A~m)vV_^poBVImq-MWI
z1w0zxCLIk`@|?lz+H!NlqL0ZP8{2j66(_zcGWyA<a)#}tC!2gz3%}yT%YHuuT&?Uq
zf6tipb#{M)WKsV7-oAZH>fA3MUt<z?sJPsuw#WaQ(6N7g%ic3jT{rzpRV#1rYnLl=
zmv&^WS2+F5TY}m8*1rDOGC3o^w~KRC1ZzE(pD+EQ@|*GOt5;T+W0!vEDtWa_Zk9sF
zz9SM$QnmYoZ`5|YD_S_u`&!M3dru9xC%$%(3otr&a*9gNKc(*W=#H3_gOw-#ypidZ
zU%6K<Xc4dY8&8Qzu2%l~2OjKS@Nw3{DY6?F*fOT%@J&-qyeDdSt7w~A;zRvKlUL`c
zzkIG}D*h|j{eJt7JNhqK7rot`WLNL;e9_eDGt9s4JMmyuz&yKqcb@!K>iz9<`*^}~
z{!H_$HVvP**ZdXZsaamP_-peU_8EnoR`w?*wP(z|Z9A3eM8%0Py-z2#I$k)ZOl`J~
zvOf{Qzw%?A%Xhv@zn!1034QU?ahFZXnO#2%qMN@=|8lhUlh9nf{R@2O<-S~Zt-dob
zuF}xyGyB5po>6yej-9jHom+Xr>|OIS{zd!~g4vYan_twO*kn|&=zH^<j}vxgUv>J-
zF8OVOVyY3_UWJnCiFz?x^(6T-c$Tp?avRlgKHK!^y3=p=pKppexo)Ut{8u=$S;<S^
zxuhwF&D>La`67#^6WrGxn!Q-2!1GRNv!32Ap*Q~~B*wHPu{muQf4N3o`mB7)xpot`
zPxGdKiGSoQs$A*(vdLgdw?wj}so;a3Yir_Lluo2QRLb1y5xq``t!Uy=hp;d86Kds*
zB6o=Vm3Mif$m8kyn?2&O;#|4VE%g(=PC6Eqs=N2<GyRVXJ0JY}_cxR0riX%j>kSDm
zg9Kl{32Q$qno3&+dLKIE<@8@lYX9V|&z)y*viHh2=trkqn91HNzvQ*^uSZ%Zy-Umv
zDCHK2x~!{Nwopl;?v*CL%R1p?Cee%1*?K<JP5)D_2Tsz_<Y2uZyEnk$!r%OyJzD0w
zXRPnD37osEqbcsd{k)qBuTQOJnV-_U`RKeoQ~n;gH*w3+=To=W+np>+JKdvg)aAj~
zI;&toc&2vyD~-PsBJ4Ni>l%ZY0_%;`??3jBJ5?t%QT|5YujA#Le;$zx-g$n`;aa&#
zk58=pd+OQK{x34@tRjm9LqAFCzN?#-e@DIc*>=vTn2z&GH+MZ?Gg-&;SMX#S>vgr=
z2e$gmJaqrX)ETR}ru((aeGE-4Ff{!o`Yflb(9mBc;J_bolTY<)Y##<K<9MF1{8PT>
z`MKQb%Rihxc}hv<1mpeGCzDTV-joSn<aI`d>-&1;xTD6ZZ7*1l8K)XZwtrRL7AAVK
zl5hW_`wujA?LVYk+86rcSL?na-eXbWZX%h+?w{nsed<%<m3K(~nez8r|3~i`cer<F
z$Z)z%IaKPv%u{$wKegav%}vp0*B<xiIh*#kD*6Vp8GP})taOOsnC9;tCTo;>6?>$+
zj~!-B_&w>smE&nvNkJ)9=du=^Y(1eR)T6LX^T^Jnnmr2dWG5Va>TT#&u;_!c8{^Z$
zChoI>YzD3FN1gh)C&a1TZr6QLsMzyj>dx{gzSg76JpWry{?NTr$02N>+Vj3wJ?QAv
z|E;(96J3IjWwVukb^O@Ar=xDs`!9E!9`SF~x@nXn=^t14cZqPoZ${s)E#fIt+*`80
ze<~I|`R~9t)h+Rzfhy81x>b%(#A80~mE9_TX;sg;iGR9U!%wD%)H$o`yFOX^D~~DQ
zm*TdrFB6qJd$g^(O!Rsrgi_0226vx1xiMy450l`}lTD}i1N9$GbIz<*ic<N_xW%5`
zV&(TWJyRF$b1V@Pbn|wP`N>vw$n`?SfmW|f+w_&(jCXY_Tqar;Ym{iZ$8@(mpY8j#
zOYFnE&6^5SkF2`%BVN({jJx33_s-&_4of?FWU?0gaQ>y!<oB`jjCSsy6L}kz!;2$g
z0(G0Bj|pF?_gF7<$o#ze+3te-mZ$dL+<E?Am#ZI>XXz1cjebUR%R_f(U8v+*P-uIo
z#yeBy#healpE?%zymig%)$a%Rt1T9-mFqNJ^<?w0%CfZRQxE=egw%VyckPK3EOfoT
z=8&^+Jfq-tCEIx8i_e+d^e@eb`TQn4X6dv3H}7V&A9wlKzC)Z-?Rt+oPk2}H{qw>9
zwtvxTKDpKJ=k&`d|GL)A`Q@~p`{B-+lm31b`?5=bO=qdG;k16`v-PRwN6y?Xef3{#
z+KwsZ{s*^)>F+uGdUD0hEl;ofzx!{W-^a-xH)V3qiaqf`DXnI6e8yw(EuZ(QZ!iBY
z9kgWs+U-xT)Nk3p+N1jB7XL~AT>iM1ZC-5|X8(2nMveMOsuia<XonrR|Lk_rtNLW#
ze=6A@EUe`wnf?$y8_8J}%dmK=(y{v)`wuM)syfd<<ub#9>tFXT+C4e7BxU&-K}lD&
z#mb+(bTl7n?{|-mdFZu-=e+r28=FH@Jq*v9Yez9~Fi%rDX#T#d{KyiI=Rq&*cJ_T?
z>V0Uqg~2K^#s1{A((afIAGs5M8n($X9GV!!cKJ#{escw5at@CzL(4|bz+=ZQFy~B6
zb+x*lxPZN(qVbu?R&61BA)OV`7nn76h3E^-n{Rx9*<ps2=DF(&*l!rju+-dERPf&a
zn9iaa{#$pHWwcypEZzOl?$XZoV5#pLs$&Fy3fi;3pKRH8CR9P<TZX@zNFkqSQuvXs
zl+!z(rU+O0X)e0sX3@~+!I-%0h|PucKTgRiOtuUyk`<}tGdMG*@EMqBZhrdRZ?1b%
z*vAvCGhdV|%4nr->0!yUny{vKz6SsA&TN$y%bAn57S?Ci2hFQK?V+&vZ^-nY${FgP
z_j21Zxa>WVQ&TL%F>f}1&6BG66?qS=Y)`Cy$yc}g)431)Us@Bnt71=BAGe!$T`6ay
z^_DMzOZMjFa-Xt4^2U9NX+HNU`z7I>Qx}(CsXr0ndgpWXE}P1qKTbY~_`BrmJD%xc
z7kS*i|IYa<zT~60#{W~>J~WHTRG!topWT1L?{!bhf?v+JG$wt`?Y2w25?u4-h0!rl
z&4hUeCvDIUbDi3}_*ec!)74vQHqT=&EU$Uzdh0~NO1qcely^UV{WI;0iS(vDf`^KO
zUcKg;Y?7+eSKDQOYj@<486ss}_34(sU1sK$b=BJ&{+uc&slWMm>)gzVldfiWD=*tU
zclPEJGBUNVM2{({M%8`JC^{n9J4Mj)SH*&F+{eE6S#K%Qx0^8YzLDR@{N<9rrylDy
z_xqUtf7XB2pH}Af+(j*o9y4v1KhgLXt>h+n{(b3{x(3gQ2gR+k{)^QWG!;Fsw0Zc?
zL+~79Ih#j%L-4H=kw=@~)hC)~PVz2@>z4DaSNyc}#aX@&KRgTNWKUFZ1X~>JVfNpD
zDNHa@@@(fO{)cOVcRhXXJEhiRvy$%qe5qv{ey^XPG@1SVo#$sJ#vQG^myj&~@Juk<
z`PrrOdS{l+FMW1=?Z1{r55cqRqgVWD3On8PVMCn8FNS4Tr~aMpewu6lA&%uNk9S_%
zap<f6$LZnKJ?q?$aUW6trnfsfWZfQ-A1?P9H>Ac)+<x5d=f9Ur9=C~iPl<h(erVVE
zW%~_O>o4B65nA2g-go(F=Q<_lBCj2995!|TQrW%2LiBM*pHl5J73*Ko9hDQmeacv0
z>wM~+TxRA(9kpnebrDk^%q~o|z7#fbjehin2TpDxhR43JBs*`8KVg>1{7c{CyV6|l
zb$|bbKW>V@=^NPQeO3QUoXU<zR`Yg<6rR@9kc#0@pO>U;9}xIMu~zKjwEM}ieI4!-
z*IDX1KfFKbsY>d1o5}kn{m*py=vhfgdVF)8ZxMVw;FqGBYtAzrHZS{>FG{Qa@Ote(
z5xFG(rSW6qH=Spde2c}HYu9}#_WE;b&d*lnrSgY%F0V+bky$FgC@#fgU%I`lVct@a
zr=Bf-EC)V6YAoojU8DTJ`I(HAxD`kL1nn0E8apOB{L&KgndjiI8{hu<q=aRwgFnZ^
znbVW*m=~U^PwxHUVsXAhd#<{hSMn!?jeQ@ESX?USo@_reqlD49i$&ckRkl#hRr9d1
zP4V+Hf-9436qdzboZ;HSetu5jQrC&cYI|lM6>R%(>RpnA(;at($?7g%1@g)HPBoE&
z>wevm{mxjIz~#Janaqzar>;G-tj-75|9)(@_4@0D-jU(=IA?51|95VB<-2J2V_K8k
z|4%D?YQO8XT;wESHim+KejC*b7TT*MJ@=E@HOF$x`}tB6T)t=Q%5Gl!^PZ16#{`%D
zJq4XdSPy*j&Ew7#?Av6XdiB5Nm1@D3KYR@Nj8~O<KgVjv=VktNPP;7fGw;-@|K2WL
zDfULGrVPQm3MamCU&h0J$bZ2+f5-ovinUDJYS`8ZnX|HVn^@hC<UKHnO<t*5y?qT^
z0%xBRmn3HlFT;tGpQoSblwZr1;JI1pX3mXy=O&$bH9aM4{wApg)iti4w5(IN?mDpB
z{*TCON#3Zn?<Q@Yr}=uC;HIbsRVP=A^8f4hMMrcA%y~Z{@8IU*U_XxV$om&wIKQ|P
zynKyV!pX=>Q}!(PlicH~J!h@*>YH;XY`@}tF6!i}|J>*Hc{rY4(Y^m?&Ve611^YI1
z{hw0S_Gr_rjyYQ+PTUmHtYn@0GN*L6_c=xXiFGVjS=Vy()`X`Q3hFkgM}B$7ls-$-
zw|LR(2YHs+&y8kxOnbekciWAdBAPSj<SuW~z0!SxbJefrpHJ2?SXn!Se~m9Pt3Ty=
z!FZaYkL$T#>)vf~o~_>2ePia7wU6vw&nE|cVzNvX{jV9`=VzIncZe^2`SJx%H*OF8
zJzYSQ(c=Eit@UNhbKhM$w$tcV-r?zU*wtfxR%|_!Ys&nCQ@yo6@|M}0rfE*<cYAjV
zZ#NLzDfG!;da;90R8GUjZ11u^KTn?XEjV>&g||u8XH{FXuQx=qy$>r1U7x18x;}TC
ze$4-We||FWzxC()^Y`_C{%oD}Oy-~slSTT^^50+2^RGF1-tZh>R+#Y5ulM=iY@6Kw
z=e5!FjMMY@Kb-0OEFd<MJ?XSxgmL@%_{51{|EcEg=-J!eb!5HG&W1C_hoX)?3jh7o
z$hhMR)8Xe2cvU;pFDZ#^N@g|EUmUwS!loksrQ}4}*Zz^O7p`7@yHtM3d#k9F{)${V
zPRWqQcJALQX`h+nonAHVO5GYRx@+f~yW3K>wz%%<zaiAtXI*i8mm_nANWv${nGPKX
zr+e&4-)?>3xnj6plfeC(nR%U0ChG^zZ+y4=j!^JgBb#TtteIaJYxV`QDA#Cd3Vqz&
z$sh2&wWM*DSY+?fX>&I&STEHSnznkQs$K9tEBn>{o1z;e>JRNXXZ7aSz9SF3lg^iX
zE4Y-mwA&@&*E(D83#$Z<ou1vY=G;P#ogH5Va${O+uf^@3&htxX{*Dd)C1!3Mp^tW2
zFnv-KKXRmY_1CN04yr$S_^?qic45c!#aD9zI}F1<R&26ZlP0qI$cGsgs`aHT8^T}4
z99@;LM2yYzAy<|wN0sQx{azo{vN)MT5?2ekKNRX*Tp;}AtLoJ$ey&x`S}CDVydRyJ
z9MN&iZKr3-9Pgy~8s=V>Yg!Z6>Pvcr?yyV$BH+`(BC_FKdX&PZ1FXtvR}@&1cHed3
zO4zKm@pj&!f7)AWM33d|Zh53|Z^?d#<t;0?r>7+D@LckKc8`|OZT^|Tk2>NnC2zjV
zvcDxcOhdCxe$%T}$5*>5%}@$bJ$7eGFq_!R!gu*XN54C&++SzdJ=;ZXhiA`C=@Y7A
z?$6XrRvlri6!4IoD3hlYqPps)Z<%TI|KFOk>JJB|n)}OddfoHx-67UlAvf2aXqO0)
z{HW)7aIT)6%Tr&AhO%utniCj%!>j*qKjJ3%zQ%sZ>Dd+i7Ds>g@V`8tFm3U~L|3cK
zseeN47sa?Rt`-QHD3EVDeTJyvoBT(2pHDjH>UP*Xb7$bSMWT|wlwR3p#c$VMx#)|U
z6hnaBXN?QB_p~^d&2KotY7r-tS>yHQmG>)ijz@bPG#7=o?eXZ>-F>TImC)=Tj*A56
zP2Xp>YQw(Hl#C-wI=-*y7rOgtN}OWf=Vphlu8@oRlKc3Kini*0`|6t%@BL3h>~oFW
zTBkReoodxw-lB`mKW>Y@?K2@jwd`keh4Ma?vY)C9d%fONXU<UyNqx}0!ILAX^~Nv$
zM|XdVWbNhh68+YiXqObBvhN}9-(ND%AF36~$+0l082w@`l**9ll&PP*B9(v9P6OGs
zUUS-JyX;jy+4}MKg~b;Hk7?~~s?y*nlH^(A6~gpoU$tjQ)9fRiJ3W{1Ux{fG6x`!E
zX9oL6<4r27lDPg{o7FF{S2|9p^pjekv>Xew!l@^$6a6ko-&ExZy%NWwGrxI3=!wUy
z_nPzs*9l#HtX9}{K>C~}OT3WkQ^!55u|ikB3iUO!u3diQ;4V*@HM2|P6ODN%u2{!^
z$@rbq;;tVRQGD)6(QyLR&mGzudVKqJzVJ@q7H(bPF#o9Sbl2}oKRbW3oW1C0%-!0j
zu{qzT%5U0yTjZqc2EKeJOZD5WF9H>u?M|%f=s)h(R`X)|o1{|Ca|%B=e05WwuX2CM
zX=cYbtN)l1yWhiqY86L*_)4`UxO`B1^D!vje)<=#SC232X&&wp_@X6p$lYbt3jP4Y
z<>wgkFBzTCIe$Ud`OGrcB|kH&=JaX)T%A9WXMx0C&ZQ+S=8Zf>(*s>=TZ}YPzbJ9p
z$zAN3E)*^(-|unETXZ##e18DjnSBhk4NQ^--Nx0EEjHT(xy`x2Zh0VN!S4?{(s#J^
zsHxTo@QR)_P7QsurD%(Pu*>QrnNKsOE#s*a?7G*HCf$~QsoLwwcJ@xcj<lOn`AzN-
zt4rjKw@yq7YMFJMoj-x~o8V$6uO~-lADQTOaz>C$=8_)1=CDrX-U63>F11GtjGAm-
z_?jqdu;dH9Ju$`ZUQ5xtq_8FC^I4y`R6p6ytu)!`^ouX&LLc2Q_rBPcf9dndiFfxk
z8b?WWK2&>UoH66#B@dqI5h`uhjH0#)H=o%&rTXL(?{6n(T{5oQCOzN%VbA>=Gam+i
zTG2aK>)i(9qbw(G^u*rPe`r~DGwCtMuMXW;f2a86E4lM@H`MoK+1oewUthG%UvagP
zT~e=?ool>nKaXb9gW`zSQcfYRHAhZyN;ODw$$U@?+)=r_Md`)msM)41TfM%wMnu~j
zsS%oMoN(uduL1KhkI)<LH*Qb-rzTWdc}gPxl5ql4SZht(BxaG1nVhKyT%P(WFsn6p
zmwd?lc%q^7)6s{UV`AeT^ep=xc+^S5dEr_0qZ5R~-{?CjtFO}u-E}@O^@{-a$?(X-
z;t%F*R}ATFPheB>`(VDMr+H<l<UYR)O=hPmzO=1R^$)o#&Ah8JNivBo+vU|Ejj5aR
zRn9Y&wP?8*G5dC;umx%@KXOLCMT6zm^abZ%)$e+(V?9Zvjp;?-uLXh||MzZXQ?V|5
z8vj(6{X;_l!yW&p{cC<FPT3P{SHyj9m;5n_tke!=f6jI5ovt<M-;vs}U~=-+1OKL8
zJ-7U-mCCd77xNeCPWk%Y`32W^mjJoQ*bVAUpZ*-FtlCrLb;e4lo>}(9d!gqizk02E
zYR_tIx_aLv){9T;R`0P}b85qRj<7b1ocNQ$;?EoZbR9BZ=%;5ohj;I;U+3>vSuJt0
zU0B`nO}l9Rq`tMgl`_AtUM_UjD0hX!E;o+-9TDuef*M`izllG1R~4;0IU#*Z>iv{b
zwZmEMYmFsen_m=MJLAspQ$70_zFwLaswrvp{b0UR`jb5OTe5%lN!L48shwLlQ{mOc
zImz;m+-+9eDS3Ud|H0mpofGycZN2w{eM{nH=I2a@wL8KY9!&kM-fhR2cd+~c7w0Y8
z##`nO1y@gKkd>ZZH~Ffjp!c=4&-7xX6V5tEF~?joyqKjceo^~^V#Y!3kLq>nY(E{4
zTM(=y+x02;|MGzT{!g`qjeQO~^JCuSx7GhQd+jnu^}1{IObhRI+~scfOydsw9f>T8
zoo2IX?Q!jT2JI);{&MvfwBEVlEVg#SZg-t9$uC<n;`n3C_9`hySWdNSE_xdBf@js#
zU_buIY?DpjnJ?Y;@OKr+x|wi)$?}TJtycxNg?O3OxLO~&C)%}B`AzUb3G1eV;gPbZ
zRy0li%HXSI@v<^?*3GSRHh(;;Wx;6EwA^@3>iUGGhay)Az6@#4ZY;F2k2)#%MbKie
z(Qz&HJDcBri%x#JhyQO=^tPA{NlbkPHIt*a$7I#KzNXtAdvf|IZJW9CXLXlmU;4%s
zdGh*NPu&-hR?I0o%VxH3vasgZ<8))wP8PRKHjC$PtUkdJvFWMkOGRZz&eHc0v645`
z-&|%sw&&cAh<^UFULx@i=LJTI7C-jbzUPPFRyo6uqHhH!hZUt(vsSmHObrg_UVloH
zJ?^G$+PZd^ss<m?kdF99IR$Ud`4eL=R=y8Ud2%JiptK{ykoBCh$z`1q*XkCftuK!J
z;rdpQ5+7;XTBKza)$gvq!uEiz)LOT+k5jbGWolB--_Ll;_VVJ&tMAw+g+CL$w>oHD
zrJ~t2ruDh&OAgP@uF1alvetc%SRKcY)z_KtRF)TA%sc+-`<_eRzrR{2F-K&xT-Vde
z+o}662>R+de9w*!{`OP3+O23w%Dt<TQ}3nTyDB!f{BuC+oK~C2r?Mh(Gq>98Ugo&`
z&s;A}^X8vAaXa5X)Zf|eb$ZiuCf=9=^NadB=6i~-y;Eavr5CnS@`>QByXI?7`F?LL
zI>_akvi?i{x(OM!HY?Tzer&8}D_ZgNxM_ix!*^|Ap@mLP-+Mydu4`WZMsQ_Mx0UI;
zQ#%~&Q+_@wc|ODRzN?jKYHRsJ@vw5&$WP&MrRz?JP7B{)y<F$l>G+xN=4?8$J45~X
zR&S2D#&>f+`|SI~Rn@9J?Ua0D-_a<g>R+3>^nNjw=|qagru}5m7F)gNkgWGA^|-r}
zJye(fJ(N>&Q*?4dm6hs_@7l&mt+TjV-g#|4u>QZ=_XBSNr*?5}_AH&grZUp~S?bl`
z;Efx0-zqGRK5j0&Psz6Nq7Or9c%fD4hRbi?t@xn0nbCdOO^pwXtJ6<EQhBgxYTUuT
zgoxOcrH2c{J!gvNrkI7_DR4^p-f?!_nP*ZnzrR|;b#C)czrUQuHXEvrv}>uI^|K1H
z<ovFjarxc4ITqH>=V%A(Mm-4IJ$d^X5i8x0lh=PLmoNUYf61{u?|v6-y7lI%?Va9F
z-tXS^i*bjU^MvO-*1m9-A?nn<yF4xn`DZG+ANARJ`+<8%b%Vh5eG_(XuZ?=7^FXO8
z?q$1xX5)E|a4oUA7C(N0)#|S-kHs$Jcqn+Kuk$%qnKp~4%$q$<cliQKxBB(BJ>h!G
z-+BJsmdWd9aev<ueC5}Kqy0D5$Q_<qeYZf-=caMI@`bkrBGuwkE48|6IqVedlfuLN
z`(4(SCvFX2pzge(>5@)w0juhZr4v?s)qW@YeCk!jBVG-=zgz5X(b*inr24wXx6|(@
zZVug)*dE!*ZQtv%mVd@}kH-e@H-*N}obI;x+U^x!O5U#cs#o+x^wqvHk!ta6m0npE
zHu^5yA8n?FM%9*=otb;}RO=JL8RAzSoO-oy&8)~X`yHPxdL_XAM_@+!rW@VU>nl^{
z%f-)`5}d~7A67ln`fmT3uK7Cu`3(4v&OEU6eSlsR^PArn^=H~vZo1Je-XPPrb`M{R
z!`034Men5*clyUX^M7<}y9N74&9GKY7oDf`UOI2OwfjJw%j?5JLd$EWSFbB$)JU{m
z@6gZQ5zJvFma;XS->d(C|LMXr<&na+ddA(KCV%E!eSEsH<Il!@4PVv2_k8!B@+|*G
zP)btLwW?40tL%cRO%%HAzy3VYy6MVf^#=EADT{V+=$+9%Gu1{k;ogdMM^dk)O4}^D
zr9F9m@t0<2fBCsW(>`+)^3Pnz!v5&h_D5B#`|qqT@VHj>!av93+OHkFr<7Oi4XUwl
zO;h&1_G^dbNoAAYVVkZUFHN0yD(e0Au9;7T_A5NF*(zMt@4xBFamHHvqVE0Odfp3f
zMt5E1*|%ZM?7;iHb){cF-EI#2f1@quvHO%|vj6uB%scr}ccPQ=Qr+(-L>@i9@K}BJ
z%&xb)jZ@B7?>BY4&g{b+_sV&K`=6H+RKF?y6P$N8b%CZ;^~n_}+k%+SX$za0ra1by
zzU5fAKkk^=%yVxOxX!+=WC*(Eli3;mcBNdqP>R@l52kZLu@RfMCdqwuDV*(=v)tf>
z^7lvC``(5fS+dW#ErD~f?WT8sb{2f;tCi#k^gH;O@xt*d0*6KR%|3m<NpxrOiw`Gk
zH?>q847RS^xBpSJM$4LZX1m*VBKLWo3+}k6xPMDl-5N{fxRk4Zd>DQ^|2bW;U+clu
zYt2&M9j%UN@0}%neXabX)Dv!ha+YuWHkqkb%*5~W>)<`#f6uPj^?3W4m?NE!1mhc~
z<hA^H^ntNZ?<dRAdgt$_>kj?>8@-3`?`QKbcTPQYUnF9q6u#p5TfV>Se-8ZRdTl;Y
z&hN@Xf5Ri;i~3sL#ARJ(=ldhLYUP#7+4WEQW&Q~K?_${F#QEJoe!+9Wi2s*k^F8wp
zIWV}EPjPzn{hzs*q?B}g@BT@asfS&~oLExhmUqPkPhSxfr0`i{%4+>}yx+LjXow0(
z)_&S?kR{+T`<H1Mwo}ss?`Zxt{&M=lr0b8l7CF7-{5@gMxp|-8Rr=a=9Myj*d*0@_
z{3YR^ir1d+inEFjYPhah=W$9mZ^En2PZKIVWxt<~w4Eq_DZSp~>GU<JRWa%Nzw>+h
zXm0fUdh>VX_Oi<4pq>lGzZGvj;w`p1@RZ$U+n#UU0)H95ws~}Xv;8;Wvs{01OVqiE
zm8X7I*B`XpJpF`h&htZmRG*)z>yp=9w%upx9OK{KMGlXC?JhsKKDI6>=eN(6D}Nt9
z3+Os4Z*)v|J+EPkn(O-F-rrBAeq*sUzg6FSP1jB%bpMk1E34kUR9rYE>*d}<Rr1nK
zhE4IyXYE}Zy}r~v=t}*`8gDL_=SyO0H-Dd7weOyTmZI6Okh=brU(eKea4d}~+V*3H
zh`*Qr+us_6H@@GmWqrT@uT}RQ_Kta%^G|f{f4VDa;_vN#-d>VRj;UQr-}d`@{oZD$
zSKM*GpHHjXcJrqe_e)LP($f}G7EQi1`IqAL(7U%kZk;XfIMMgbslbcTRetp@Rets^
z>tsxKsxnmlnR0KFe&OOJPH$cWU)|x#ew4G2clX@~woC03zA^t2P4@JE(cjV&zv%mV
zf!gwVmFl(sobTkn%=|mi>X`n??O(3cd8|LX`$ys5iq}UsEdS>0Q+IMobe4mg{Z6?{
z{(9H9S2(1df7|}0>2Fos)-RJ^E7qphx>W7@9<^t|@(1jP7;HE1UFBMxX1_%K0zaoy
zoUUQsMoE#oOWyyUV11l_;g>UY9`z?5wZ*Nq7dmu)&(iyf@z&X`DeKSHd)%G8;QCVb
z6sJ}1U&`dae16wCM)U8JU8!${f9d&8jINqk=aCb1y>;I=vFSX4Ugw{*e_6a*{>1A{
zlMmak@xLhVz0Q0_@zU@0?O$g7oiOkE)%Q~CTX$&eWv=#ke;{u6;%Rj;wMVKP|2hAP
zP4;BiBk#xmvNPuIx{tej=U%$}Ncp1q2l+|g`DOS{?5o$@`Rvf&-_Lfc)t}s{X20}Y
z=5N*Kv-YIi+g~v^`;&Xze7{qbFJIrUyI%44yoTlk!{hoNw?{ZV`)Tq^=w-3%-J*R~
zHJ-d3C-`54Phyo5u<cp&=bCQv4_!+IGfuJnE_ojpPWf#ifAW`Vny%sGM|>xpH8<;P
ze-WEIh2_c(m!_oJPrIHatWAHj<i>(K)3=_KS)BT1O-+Y%ik#C$d4>FrmJ=LZAET|<
zQp+~pUC`2#zaf)hdVawl%a7Z?Xzt15Y<KbB(muoC(}TjG=1FWT=Y<)6p0@Mk+&>dn
zEx+>d{e&egj>iPN7@i$G>{IHc<x(}VietaZQRdg*Bzfg-u<_@d)BfIkyzptEjk=1N
z0h^mGzs+;0Z|fCpm(E*0Yg60b><Ru89Ssj%51l({%Ezyl=NL6FvibD;-#-tdpS8#9
zQ~XYSQ%!zQE%?JDFvY^v%y6D}Q)7^btk1Q#%BNCF*|LJ(JkYqEvPpCD{nZ!TCp}_U
zZ~H8DulurlPoo^qm!t$9zh(io{nNMfvs5pdF-O`*ZU6Oy{T9skwI4@k?e@-^-Lm!X
zv8Qh|MINm$JuK!rDar3=99LY>l*XkAojzR~(^(WHE%@2aoy@OYe|xzFv--5AkN$jW
zr&Bg*Om1C1DPfby<kH;%cl#C}OW|e9GQ4n1?e_Y8vNz_OoaXbb`J~;<H>Z?$7f-RR
z6f88bRGaJ^A#v;whnQPn(FV)bvza;P5)#F@%O8|Z+q7d&?bQ3V#e3r<S-lSm>9Bfl
zn5B0x$l!l&eX?Oh)6s-ZR@DfbuA{{{N;>n7JvteDHf4bf&y=^(i+DuR`&8OP_}N~i
zEO@1M&hcu(X0h41IZ8QZ$(vbcuf6f6xm9nr#O%4wFHRn?_%U;a4_|7L#bo7~bJ&@S
zndMY_o97&Sq$74cp^&rtbj3O@F>$fPpY40kGQHuR_CoDOzwXI~p2M0EJkt^kBOc9G
z;jZK?-jIJv?bstpop}*FDY?y&I-5E-Ml>Cb?vtDC^K3;C!&P%nwc7_BX7iY&F8HY?
zqpz*@J7E(y^IbDewQ564w))2te0xsb=9fD8#HJ$BQgX(r10`%}L9ZTYTu=E_HaC@L
z%?+0B#&yxxK$hN61KWJzYlN&wT_(f{lb;`aVkv3yv1r>7NsGyiMLCD`I}HMQ8ii(y
zOfEHuY(2bqo971i?vrI3E~EubX?>=%Wyz0&j$cnYg^TUle4)8DZi++>Ut+NYx3ZaL
zUol^tYu^4MsoBP6o@Un%KAV-JmzrqF&CT7k_Uwj$4GKC3o%S5zl=z_<A&_%-+w26#
zh$J4Fg9ieqSkAC%JsBKnvC($J=lc6f?6Xrp-EzIDbI!?A?A1Z1yLL)GVaW^Fn72w~
zG#}16lwzzFz2SJ*NjtNdIc2Gvt!LXtN*q_4e0F1Rghh3edVf+vpKr^3ujC>&=FJij
z$-)l}rW;o7E)00{df8nT?vFw`N4z)4=o~D1kZr9qWhZA_ZKrTk<6;R5cIM?dNj~!q
zK8fTJIde*N6DPmUxfD;e*9RTu?kNeCi=2CMme024<SgkA8fkAfC(IZ9U9;hQt9x1U
z{Nrjz6?=Jq%nj%(wCGljoWtH-yvbtfbFb$NX+{%FP0a-R3MIR>BVuky9l6EB%^KaT
zx{b4~#FLS&jLrL*S_Id$1pjR+Gi^4iM;l36lnSSRnr7TBuGl<ZFmb^RwSy^|eVh2$
zRv8533a2kr<9_>K!L5{qFV)Vad7J${m^NRh<eyod&$on4;**mN3|bl!d3tUvnK7sN
zq-ErcQ-{9zPC8q<VS}3c;u7KX;zaLnwa;R<=LCK`4^0gxwhD%EZDaM`Afa<GX+uln
z<oQ4R%Wf*)oU}OLM*Zp)q9Gm~@`?TSezS!iZ@sy>zI+1Tle3G~torTR#mv#@a^>&h
zYuu0Q-^yKnC%68hZQK>xxI4CSzq;SNd-zF?<@`J2_3w<mzt3Fz`^>%CX*X-9UHv;T
z&uxpf#%^KRyQxdxZ7SNn2BdgX@4HQZZ>9X+>anXiZGT7k^zUyh@2<Aqu{1mPHDBKQ
z-S0N<ep5TKxctJ_^b672A9k>3tE<fYlf(M%<NezQ_y6lz|I>8ezhBq)|NoQjawt7S
z<){d6zeU>bin_n$HGlu6^YyQ~xV~b(i~Wc7|NnM!f7))d|Np`FFGQwaV9ah=E?aP`
zBmIG*wqLQjNbEtj`+lV-Dr?FFCQU!$VBzwfd-22>`O^(NT<pTsr>J}?@3_D1!U?en
zGin?wT)a2=$*lf%_N}7a)1PX_Qre4dyz<-<W_!e_tM=&3MZ34$-^O^&=h2t$f=QK^
zkG`J0wb>*&aH4|VYGL<(XY#hqSlnBw>~o^UbK==Moy(qT%y(AVbZ)LjQS#+U8h@2|
z>aUaw`L7kf8L_mj=a_M3wsQA|`KvfhjDIlptmsqfNN3&WA*HzF$~>VT0;kSi-Z-gX
z=XU`~4lgtHjXDR!Pcls@DX?GqMM?W@f#9QfmkqT}(^|HhDk)z*?ib|xOL1D^$8Re0
zj=yj%a+YkfZTp|4(EogATho-A{00_hx+i(G{Z#5Y`#AE*Ci6WV4`x4|qr&}@dCsI8
zwwXfiyZ+Dn*(##A(C?HUmo-OvS{%zuoAP>w!Ymi#@aIPvl1|Ni^C#`R%I$LHeE}BF
zOJs#?H8y`$s<i6}7kafneBDANZRUDG=UwL>bGB^Guy<ignvs#_SQ4e)6e`>*dt{SO
zoXTXG)M-c9OPzLhP0;UBUOab=%3==@C-s@@*#pcr^Pf<*?U}U3#z6j1<W1)=A<285
zW(zl}bf&%B!?FCDPLkx|?h}g3tFtH7mcM2<WZ2Ad?$*h>`;5gVToPSZrM~?^(;B7E
ze0$9o&U|#ad&)28YaXR{82AFSTJq<|82YX3h*UOu_*v4zv&ZV=mS$}SfzVu)JY|I)
zOfri$3%BfRSG%D$*J4uQ?MV;ZJ~b;WUv?rqM<rUF>+rF8DMF=(G9}6zobO02Y_;Ic
z4fH#_&`)7$Ttj=Q)6d?uO0%UVPE?Uj7PvXr;?BjK9z&7h-*Hdwc{ZI<GP71l3Aodh
zlba%J=Cr10*XDh8Dr=`iif13Vq@~9o^!@5itH{i$a+~%}^z>+X;8x=?ZwvoHQ&X*)
z^-5p5Q(QNBO)_0Oc`A!}gY&1FeI3hF?=UoNDB1APs9(vbZeq;Vg4?`{BANA_3M#KE
zJ^g0Qe{~f@!Nm$@&kb7P&#s*Cn;N<D)*kCXm9{+{>7n~Olnh&Tzf;WI$-&jM$>ob(
zv(!ngMLdQb-pa*FDzo@cD*YFb+F(=si~Xcg)x@0S%FYWl+x8qdr8LW`+n{t(+DxvL
z_Fn??e){tLSD4u)elpFX_(%4av{xyLXC@xD?<k#cJUt^d#MAoZMbjOdmd=*mxaO$i
zRPNJlKb0)+xh*}kNlJdhd)}sf^QXMOt#|)`Sc7eLUgf^d=juT}zf`~c;rOnFXVV1j
z-*V2@54TKiw(n@l(KmX3=8vP=mTj36Z_lU~X#ORp{pb=$oSEY^aluzAOEv1(Ph3#9
z`R|{#0UP)1JC>bUpxz>(`@B+Msh`;*vvo0^Zn+_q6H@1L7}ccJ3q5x$(CyE@u`Xt%
zgZEaW#n&2mRU&o@B~Q6O<@mIT^#|Ivoa3qyE^YEZl6}$4Mf01${oabOH6BloslHv)
zb!l@)_mym855K#gZ|!NQ6~A!TQ_L`WqNhOmN2N1!b3C5jJ38Amdq!~+TjV{@YX;9*
zcpu$3yR~}_=f|a~m8rb@I~;2YUFQXLYZWZJ>pAV?smL9lpBBfliSF!Ci7NDxyDxsy
zY1t(=mMvOdXSJ3^8m^2`XIuDEbn>&CbHmDV9ji_`Z|aIqan4@HRs8(r+|5n5c=+4H
zIjmp*aJJ!2z2W?crQc|dwdsyWU)DUHc=^cUe*(`>+<f@6<hSFyvubj6zZJKCWjpzM
zLi>BqA_Eq|hB-`(R~$dpJ`ZfT#o73V{mwb-{pB-{&Mvq&UHpXC2CZdV6}F`R+?{v7
z_xalC`%haxWNp{oT`JJH&9if}<LNNg((UF4blO`L@+@yRX)GzRPf_-|+U3Zp8MaPg
z%H#mnh0;-0r&4cBjpe(&H|fmk87`ls_1e!0KKm$~^4!mJXS@5`p0?n3xy>fgJGToy
z^%QIn-cmWW{M?0Sk^de(w9fz3{9=b|8K>1vMV^nU{DB?GcJdD<M7;=deAaTsX}Xn*
zg6oc}@{>Y+qFOekaoWC|uts%J`xCay8q+hKYu_nlJJe?F+#~TyxcQ|(>#sRa75OuG
z_3LLWFkPdR>Ntyi-QISIE625zcGf0OvoF%FymNWplXG(mrJR`NGsI|KiQewGLMFt|
z=#=B$$r&~8V_$BpZaSVD;hCq(zOd-H$fN2h)@A1l{^)K{U*dCW?p}q|)pu@w=V71u
z^julT>hOIvjxkG*#44<NtvDgbB)azqufV~dHZ2Nz7W3ORj<m{enwWAhlgEfNsONJ9
zhqB+b_5%iwKgdpaSCDzR>5}9OPnJZzIa{4&64%)Xecrd9Pf>rV>W#!rUB<k@YadQr
z&@w~8<h!$kqhGC9u804s4XF-QeUrp$jJ8a16?pQ1D_Z7Oa@ZZISSQ=6mhdT3ALEo%
zmrhHWI_2mu=d!XXmuE4~(?8VBJ&z|^=8m^p>rVD9zTTO}XC$WImEBr!a>a@ohv?VB
z$HldlK4Hq8D>_+v3u`!Auc7qu?~`mEIVOecpX9PtmYepIkuUSu4i2Nmi}Vg&v1?J>
zTIPAS*Wh|`JKK?Pxw8r_2RQpzIg3PXIc21{>Sb!hS(Tu+>rFqF7;WYWDz-Ty`1}G_
zllUW<kZF;96)`bosqNdF3wG)xH=o(0vu1jZ=5$xdlxeaz71Ew=7HYhrl-hAygZ-+)
z(qA=?*(SZ!yJzC9H!-%&S3&jW=_ZRMH%@<==Q+>lMvuc!&E~ZM@&A|aJ~JuCJ5gcR
zVlIcz|IDumP4?Y&KYXfxj8Lbd>K7HM+_Qd<UmS_p+`l_v;g%B?Ru8k+UEQp)lsRuh
z)heYeYWdaulTXar^VZf+D0}Mddx57Og-w2L?B4G;zue-aS-Z+-o#)J1@zSS^_BhxZ
zCHHQ8Th4h!?4^6^nZ+^vM<z4##x0q<vvYdii;Ie}#opG%>kVrrJ&_X*n4_qZoi*uq
z@7k5_b5<^0-^n(gr$y{#om=iqyK}EP*RPy4*RixkEiyNIVr8po?UN&`KVMP1xqt22
z`{&dXX19kef1kUEdrsw<B&NNuU)R<u6+SDx^+adc?O7dPS)My~-&xBW6)Ze=rIVUO
z8C&c6o?lg`wVuC>H2%7`!n2|`>vr$tGq<(ttB+dxrs!<Q7x7=L`KWs3q&0@m+_#@U
zJ$s4lT|55`XYQp>bj+UeW~--C_XgRAg4soR?lZ65G3hfnyIZ?bsn6i$tUd3SK9JFy
z{N{V~#Er|c-liP=e4yywD`U&*`A71f8J*X8UV70vL-4Bbf-{e&*MF@u-mdob+!L$o
z+RVL^TTab-wWj6PFWYy&BBO=B)~RjUsAhFGLujq(xw-p2XP#EMcTVy{<>Qyz$~-H4
zl*&)v70*cjYa_PMVzT>o&$hWb&exvAo_}I^zHrv{b&Wf3U9LR-M%H}h@0oSGyTgTg
zJ+Hi9A$fjBt4(=X)yEyF)+aA`Mp#dZ4V?5rX^S-P%)Ma~gB$mI*bA1$FF7q~dh67p
z!|%6AUsL(qmcqU1yu;jctiOK$4mryrG<lAc=H}URQWyg4UK^yju1SB{*}H7-73R&%
zmRI#ou9<ap$uY%EhZgP*Ywy_|X0m(ln?>)VF7BE0b(NK8L44)*-TK{EvS0Mfn!4zo
zsk%&B{1R4y-N#!>1*dA;++7<d#O!H(%INR9vkGQ2Rd?^IWHr*e!FX+7{-W+J)k^v=
z)Awree9f7j|13&(_3=G%`WtsIi>iBMxc;}=Pcdz!Wezvqn{PVl8?ySUuao&jXSe<L
zr*Kzp?Npc3mj0B*_*L=hy}5hVtXdszT>i;Oa`FuY1*>=Fsqvmq?kRP<?wIfUjrE1v
zM#p~P`Qe{uFS)DzFm#D+w2ZpKy72H+q21x9YX$etlvjGI;VxRfJ^Q5RDUHcIvJO`B
zcP^4**#2|FjU`qU=hYs%Rh%$g|LM}7wSVU{b<Ak7Pc~b4SNO%AK-XVpFIBF7tDc%y
z?a_DdqKc-!U(#+}?;wBX^^?sTHpm6!x3VP5f1k4@$J+C~{=@77&r>HRN5m)zXD}Zq
zIrKX9t0!Chqiz$+lq=nbGxJ`1U+MdxvD*Jo)g$erO3q9kkG)U5sy)-Sqf=i=(cy(&
zQDn-*-E|>x?=zpeIc%9*&>^n4Z*fUe+Be=?HEVMM)+SG?YRL`Cd;hj<*X)R@o_T?H
z#3#o3m+F;I++EK7WUAf%)2}{%@9jPPQh3Y9Nqh9`rtOIfcKsE5Zk5GO)t$ObOYXmT
z)tZ!=scy0InXYGY6~}oOGtKwryRJH<?+iX|ro^|>Ic&*ndll{(^0I4#litR?P?<9`
zTk3&twxG4Cxua!mY}an?D8Kk#qrFR(MIA|tUo@$_Zhogq<$}hLuQeXJ+ybt$tGC1*
zT9H$_p*x4&r#wg2^Xppum0cevyy#kD_CfWd*7cQ~Dp?Ly!Ya)ZKB$#+@~H?quvrQT
zD_oK6Twr9W_1QqB>(nKKv_O_dMy-V#q}VcKnN41L$V{z$@MhhLn0!`+rj_n{1fTUP
zIwr9!DQA)KkZC=hpt9lh&8H9Y9jC5(q@Q>wFh^p(Nsqt8)T4nrcX26nDFobLN!2kZ
zROk61wDSmq%Ww6Y|0b}=D5u$f<=^xw@K&0%>`6-v`J~qz>%z7ku(K5Z@>W4Ufn%G#
zmF%Xq54m%q|0q=}*4Ua(zF>Ar|4`2n_6dKFuKM<MH~Xa88+I;MeUoZ$e3M>&!fb~A
zrryuat7_Rc^?si2VtqtP`C;P`rjGYaU+q&qDBj*}r&6{oK4td>@tenf+P8?GT$djG
zQvBw=FN(F%FU24BrO0pB-*i5DP22WY_5T$QIb`g9Eq*iXtLwJibsX=7zquaU6|s@O
zSV&c2)8B91Z-V}~`ZQ*^r;3Ke9r?EYW!`u8-{19XW7c+P3&^*)SWmisZPJnG+U^^x
zZ9b_wd)#{!of}iE(qna3@`S_+n}Q1*B5H^7PXx@k9~9=o;NdL!^Y1Z3J6Vl2`5$$K
zR>b^gG>ma{PfR~!BgH1s!^rmHLRH7UC%XGx?|quR<g!E33Y&YMqMxi?;`t(XLzjWp
z<b{0YJrh``K5u@e=p?aFLo3@kwbpt~)pnDf3w3seF(L1FwCGu!Vs1@NXkaY2y|26B
zt>=_~u1_ZP?LY7Pf5P{_6H-dtit>K7vuIs*NDX2=#5*-IuwA)<Be5lk$;CQto&9_Z
zuG<F~9&%1QBE9UL#R=xe+=osczV|~#KgIn}AIq~zHTj%Eu1_xpRCXwGhNvZ}v|0UO
zu5(H|&XAhWuxLf|!4-cd9Qe?~CUoYKbldZuL+>QwctqNcUb<uBtkk5!;qjmGm4n;i
zm2AdB@(wT9Ik<}56UBJi9|mQ=i&Y3b6C<6ruIH3}Wz>JgrbG7(i^YAe$TIgdS}}$t
zyj<GC(pM(LtsrY=+qvM=3+9vO)!#Y1crMK(ziEpf&je296z9~JD|DJxYIA8X-e8rM
z$INWvn#gmEGxUy#N68i58^!1Ea;xNc9B8wdD_r`(O@)Kqh-1IxF^3h44LsQo@iM2l
z$+9Vb+EcqixoM^Mf=xop*0r6w7I;&n_<P$<>&1Q6&*bbK3=S|@_wILVIl?x9Z}&Ww
zH5!*}SveP<Gq|GoVUbFcU{FGf&x$jkY~|G0Et@%i#h>4ui4E5b5B%cyNNDIY-npp2
zM5OO~T=nVS<`edWg*@4N)ALuht1C;X)v2D3&i8!%op@VcZr!5v{;c1j7OR{U%Cf=Y
zj;Vz`0qk0<7i}^P`4_3rJ*Dta{vXrDDi;k89N78TwD^7f+qcc#d(sU&>tFj%+<sg`
zXoWFH>9OjKlLZ#@?R_@4h5glrMSM0glR6S?gjOtWvFbXV%*$-zmRKzEt?^J_^P>L(
z2hTj-d(`gVgBL0lwd$VrwaZUL=XF`U;+d1l!6h8?NTtc>OW8!viUoZ8{ST{L3Wx+{
z_(*H5)d{bz8J7O;f3wMblIr$@3;z2Vs#iEZlHXQinXUC??ap2MwM(><oP8>cC6BJ3
zlpySCRXoX1wP)pmg!NN1k_(h0D@%V&*j~!N^Zmp}&T|$>=-fE!d|_8<m1^_U_t(BB
z8?%JB^G6<A@q!__M?Bd{LfFw>Ond6inKf+U?fiw$z9s&>HRJLNXS2CMo*&jqHrb^V
zzvmV*$(!BHJh@dr{L4bcV+p#)B({AOSiZn?a_rACf3@SOMJ&ai4Agsr&nIzqAAHKQ
zF0DYD)%t$I^Q#Y?FLc(-T0U`4`w4zchJ)+m9`Q^|+o07v)o_Pp4Tsc3|Mw|9(&_I`
z&OE*}!D8}b+i!fHsYPs)3yXhDNbr+?w#8`q#?8sImQQ~0+nDA4{28m`C$mguU2Vs*
zH^al&eX8XwlP%uP#Zpm*H(O8k#b<qZ^+EBq;F~u;y?^?sEsvWXtbcA**FoKyWrba5
zN=qf0=Gw9>KQZUu$vNF=Q#LbluJP<TsKs+_!GhRl5`7ZR7kY|*sTW^cV8O$;I6<U2
z*y8h(1-o=IEt6MCUOvTTW>$9glW3<U=ROD1+wUh?6tkSo;5aAYJj?P_xaPM~-~US%
zNV-QFN*r%xJojM7mu^$7E>WL{XN)aATlwfE7a1;luk?fAYl*+2qq-E+(|J$5g=!kB
zb}gSI!FX<}?Q~AI)x}d{xn>1k=(5xk`LaNvTlmx+54*#wj|ima$v&HMaeY_a-d9%-
z9)0!w^X2q)O|GBn>e}vn|NL2zQ=#4PQ`sW^O8p(qU+!L$Kje6eXWQ2v)#krOH=2$6
z56>}pcBHyTW)imr>*t@pI(%-<pHz3Uc!KcUP4=$;CM};^*C}kX`PU?+o#!vroZKwC
z|HzC#c^C9Gwf0AU^PV^R(DXHqeh15=>pdsGxO`{7i+JHa@5xQKRLWN7ycS%%iIsJ&
z$Da+S^g_xOf4ZHzZ;8jF5AA|;4&UzDcSKXd^I!(ov!~}3rk=`Y{yk}lzuDAm#)Y45
zf8D2|@#EV;{+C<5tNwCSuPtP+m1_HuZ<aGTV`9aGJ!>C0&w8>*lqXQJ@Yfv`4X#rQ
z7jU@mt^MuY)YKGKQ2%=2Ca$ShSFEX-sy21&%AD*)+ltPt%<**0=K2+zvi29(w*{NT
zr#=p_Y&n(a)0Z%Hu|=m%h~L5@E#AwSGdvIHOxjhVx3t)Du6AaG?_pkx^JY@z7uLW2
zI(cV~1!vSjfh|pnFP1r9;Ck}?m;BiTj#&o<{3k8>m@9QU)+JNNFZto>B^oQ*n|8Ua
z3=C+tiqcsr%QY+DLe9j5K;4%)zUlkBHRj%Z`NlIn-|G0%#1~3_&l5NoYs_drza+r2
z_mpJFxkW{?T-TU<G}9+)XU6zG-e;1xw9xwgRnNz6!q@Iw+~zs3GoeGb>GO>VUK6UD
zSilaL5V0iVgyxB*^Is_WC3{M7&uTnpIOEu=Zi`;i%snM<bd;_bCNt`aX=?pmxPY7W
zuEvXv9Iv1HKHU+*w>060lIPP5t>;grmg_wViQ}H-`qXMp7$@s#jR?nsT9fS76md_z
zZgX4n#!ik|jc2Fv3Yj!3?gRPRgn9P)SE>&ebf+1ph-qq_Ubu;am38`NMMp<Xu2+#Q
z%^{jA{2b4^&N@}LGUwE%8TymHY+SZUUTT*}=fw-nZE-4v5myAH+AbP2wM{hXQ9J4V
zJj81GWrO00X>(r}iERzrIp^HeZjrgaFYIhRmuvE7LE>V?A2MxIS$GpUq&`kiaCq3h
zK=DV;ZPyC|Z5FKgK_ARIW3;-1B754J9v_^bbkR9o^jvK3IVqDXix$dC-Kug~nd9f^
z%@q}VLI3m{uhep_>PyFGpDGj=v}(U-*>o<@<jm%d3zp$Wjb2QysWfAKt+z-f)bFVm
zS6J|d_e!UXwg*?{%19i~x#fDHqkVxOzoWH8Q<*@qOqft4ORBsOi|4`HB2&B_FS^b-
zH7R7;vIURAEnUPDH?U3Jx+15&No~$9$;rAaa$HmG*R0e(AX5IT^3wU)b%ig*PdzF4
z<*Ii{CsXf$Vdk1bw%*MdG401xP4ph`)`~cw#dT@fd!<uS+b{2!e5`k|<GI8L&jJ&P
zN8JmSI7>Zvlw#l_=BO>vWPEeNqD>Ec%v>}yws{0pzVs*-s`}ZZ#d=lTQ!9J(sWQzB
zFUQZWO>JQ&Uk)$Yb>Twp#08th=RUq*+0u4!E9deem8pwY&Y9k{Qp9I@!ZRh`r@KP*
z7A8vaYKv)FeP5W!z53!dj|)2sRjTjDY)+k>V*j{%fh3Qk@d`^0Y0f@Y=L<Y-3nY0K
zF8IJH_=~gZ;DiMmMS8zph-f{QWpXWINydt^o;Q|m)|`9xWsYZhw$<;Yo3(4_7|Mx!
zQR;MlDxlSFXqhx|QIVY1^Qb2=&2yS&cAHFny=mD}5uN9|wKOBnhQ9ZH`fPz2SJ{T9
z-mnYBe0)NMleUYNoIn5jKkNS=rFG}d|NZ$`{{Nq^>y26Wf9{_0v#amo{`2SO?|=95
z=iDRbb&h`j@^gOt_4Dt4fB#?q_x=ByJ@H2S&nP}D-k~=^+tH}@kE+pG`4rnpJl9Sq
zl=f|^_Uy4V6Rqp?w{=`Lai0p`WapVOC!g#w@p*ow`(SF%%0&s>tkyFw|6O-2rq#sr
zlH)s3Av>kz9yzwbY>SFKn-;uGKb7Fk`tfvv`8gZD`=V|KSCl_1&e`eu$nTPjXq9J^
zCFgv_8>+=x7H2ebh5kHw)?GjI&N`L9YUjU4&r%V3BB#!&nE8xj+sO$jeMz%<3e~a=
zZ??3F`FvZf;&?%XC$&I@^>dKHT-UQnMV$BJ4nDE-$$Nffcjgas$?yC#^AFX(T(><Z
zGE{<Vf$gp4J(K^Hze$p0nf|@zN_+8(RSSd?edp?Czp~kscCO8|c$*5_=d5ed*Q!5o
z{F^AT%p<W<t70nKwRGm!#z#}Ueaepgx+BQdeAqyZi+x@bYu&rB-hK_X@O^G_$>-di
zHab<>f6`2u;e1q~XZeRLzy1>iBB4``B&g~H@N%0Rk}*EB@z6r+<kojHWSA#A8~%(^
z*r&=l`EtRVuPb-*Xs@YJzg*MM_=wBNIbceFlH&}6nY@!*C0sW;dHRHzi5%z3P1wY#
z7H!cXthPI`=)nc&jR!n<{Ep2iIdk$5lefXn1u6feRWv@VI`{RnhsaSGFV@6kDaX2Z
z7(}p~pLiglcKc^<o&#*hZhW6}<kuX-8w;g<HGTLFGAV!HQ)65H=tOox<I;!($G$Vi
zr)ym3UAD*GG1x;w)nMlR`3t=7#ZT5`GOq4Q+QjlqBe6AW#vcybAf}|(tG68GK5{)h
z^YknK{v)$qN82r5^X-erx|REmepsc$qj!wy^nKP>_a)jMF*#M}bPCNly+q@fM(fE#
zGj!f5SQ$jh7H{D?!lJ$9z(nhZC;k?DB^4NmN%XNkJFrkaZc6LdsSoCd?|Hr1QjybD
znDyW3e;vF>4QH~eZD#dK+|;p%<=G2%JJsx@#$yo+ET1J9=E-a7=(hwGOtIXsCxqwR
zkxyNQ5_!|kw~K3}X<TUk)Blh0y4uEt*XKp=un%bea_jSixaz!#{1R;1i5sM*Ew(+q
zJ>vUP=Uw`_AK!VmYpB&9ll&rh_<@Q{r4*luFt^UJIiJcK4Wm~s&{*iwD8Sm4Xe7M2
z#_uG{#PgPqxE3*Uha6-wHMq$!`E0?9zJu!|-gGMSA7eUfDADbCa0(B*=Ak=H>GM9n
z6zyX3s_%K0eeFW;E5=uu`x)0Qh-<Msz?5FFo?R~DcOUQG&?<-OyBi%9op(FhCh$mJ
z>psuRx=_y`f}ex8=|X`-E}ulMR!YjD4DNp3SF5U0uiY15<fvorW%^LT%+DNf;z0w?
zLKXuJA1<!o#(+|et&FWRU)v}6?ToH5U8Fld_}Y>>m20zi9sRH>;{2nDN9w(fKai4$
z`L|2!_?()aO}{QoD-ejP&FD_#OXT_Ner<ET3me<%SLxAOjv)r_%*8zgFVbe@bc$Lf
zZ?aZ9e&EUZzg>rB#PHYdyQBMQ;?;h+m8NI6OB{OjR`-kfjldYk41rToMLC*h5)aD6
zef}#LcxIxBK<b&m<8!udyph!QH6pQ(`<cbPc@hx`8f@-K1x9S@aa$7f7UXOEIuTWn
z6Dhp6_5ZcoTN6uHxo2!$rTf}=i>hJ!$N4u5B2EPGB&V!3k`Fv4Q_8-v@#L}@Ih`l{
zX1r;0=0CKsJ<;!oyH!PAVg3oz&)e6`{O_?geRJws>+KGkY<BlMhwZO#xppeKTTzAW
z^Q;%qF%BsS8y?i3{^ex*DaUMEjh2~HK+nb_GgPl<y%T#MR^YL{Nw@L%B#p-BYt9~5
zY}<J?d$O}g@v7O^h338u4fr*=)I*e`b8$<PL88&)`KLXm)a9=iE%x5N*?E_E&c!^o
z_7Y=@CHr?ruerXookh($ag+74BM0WZ_*d#--mKesFjHbq>p|6s1Xi~7?WXeoSiijq
z;CtD&?P=9Y$Ev$k9!v$>o1A%?cN#>nG_xjO+xKL`ySV6_gr3sxRw@NgvWtx@qWA1R
ztoS$5ddc<s(M}vo_h(06oA*@U_#CMj!A+K;?`PG1OK>)H)MQfBo03=5{)H(yfO)<6
z<HoBO<RbL%FbSTR5O>aQ!D>^R3xCU<omLpO+^T99Uvu{~o6W=TW*<x)rRsDaHvHJS
zRk$wpZNs0h&B8o=!baT>dp?DyeNlVH;@$Ace1Zep-+BKzFA7{a)Uu#;5}(o<jdKcK
zGZybpJ?nkS!N=fv@kD-}edZ>?J=0e#UgQ4BW5a?6uAZGq5|djERa+i?oixYaJn+gt
z)kWSx4jH!lbzhrSwww&~3FInf`R`@pP?FHNs$%Lo@#Y*)p^k@|+vI*J`*nTVd1|vm
zlkibl6?V1dNuMUYzI=NUgR8t@z316^hc(<ZY&&$X<bPMpQ?PjwFSO4^P|2}{>F5V7
zRi~GIg&s+LrTeX23~%o7-j-2lGtG(9M*Wws<q-pO_Ge4jyv%$43$C0N^}WP<|GV~(
zxj~QfJr=bz3UGQcd^j+}y~1((LEe@56W+;7Kj6|l5n|)aY}ETgena1G*>%bC|Lo${
zAG7kSlVz7FJ6_%QT6TKL{kz#)YdOz)x+&D!+&}O;;@3IZOOxM49lig^b}s+RbMiU5
zH;dm)*d_mDtNo6a=Pcn<@)pm#r*!u%-_GPaiw{;Q7JKZkT6cBQ8;!pcUlyKgov2X4
zU9d<j?rHAJ>-Vx^m)gGM>-_yJ=Jv|yJN8BQb&YdR<V|S5^LXF3Oz|_dD}=i4J~sO#
z_Kv;S!+dQvb453w(@WK!V?wXbKba<XXzS)Zioe2SiuhOEpOn4(7=x|H)8BRHd_|2<
z{S_!FU_S0%rK+^kW%p~jOTpeT(Q8gyFL~a-Vrz?<mp)s|-lZRQ<j?E*T{@?_KQ2h-
z67%yjVz1<Or`DdhvD$SPv+SkSo93kyFTS9EsqJ4vy#68Gd#_(ROLa&uT7F2;R{U9T
z_Q`#M?O&w53jhC%S@C_X#S(kQ6z>)J=M-(9dhTi6%_@88?;MTjun%o{Opoue_-uR^
z-F|1Mve=HgCEwMP|CWAHxqU(ZlBs<D$$PmnL4U97=w2<)KDpIopZt4?TTT@<trzx`
zF#b<F?!DybTGzVlgVX=)`x$H!_3r6w@4C;`T<P7O3;u{z1-otCA$Y1baNXk{wx@(Y
z{d*nre-7XA{om{!-jnxP88Btnd!JLa#?Ol`ajU-nJz<INldehSes@lv)XeD=`aa=N
z+<xDQ2~&2xcfOOoLi1JMC1&1}V#RJJ&n?U<<eswQ{fj?aUF=((-*wxFtJJ%^mnhHE
zOq;Sh>H7Z@>$bnyl_<cq!1$F=zRCa2P$Tx^iuHS|mx?7!coH2P_ucKgJ5PUNtH7>r
z%0VB07Qc&sC>p$DUe5WQ|2giR?LX0E!~S1+VsM%5O%ugZhyRlrKD6Db=XF$;W|UF>
z%sfNlE)VCeU;}5V*!8!=_p2ISHuv-JIZ(WG^;W}Bc~6_xRZ%Uk59zNIx-TRu@Kj_^
zLT8J?Ns&E%8^aB<?3F4GF5;cBSN?#Vf{(ye&aleUNhkJR<C(aMW%-r_EBmIqO?!`)
z`hWClysB`}j8)KRyUM*E?kwjcV=wW{Z<1S(bMsj6qAs5})xGTQeh2sY?TWtCc43v#
z<N)qp-;{3@c1j$2al1d^eSCD(HXgw(r?_$*lmB!qGMrY~{Y#|e`y{dCSxxWaM09U(
z+kJY&nr>DWerA5&Pu26T&pk?xKKj}5Tb1eM(Z`w7^i{$xt;^ix8@T33?B%@~r!M=u
zhg~m;_PhD@$(dJ{2Wvl1mpBrC)1)PA?bKJga=}8`g$^@PyNXWU(zQ&y9&}Mbh<S}z
z*Mezlou_2I+z{Tg?7_}M4AGXYAI(*CS31{R4cfQWRlUNoWNpp!2?~FDOV={p{Wh_|
z!+X(xyQTyU=^B4W=5Lpz-+uph?N{#2skbV!PXC<cVm+(4`;BJU>lynt)p7`4JH+~c
z<JL#z4EMvV4{DZwnztx4;3(?@4yiB7k*n{&4(nXtXy3#Z8pF`1!n<<%0*im=^G#m3
z^Jtgu6yg2V6nJnik5kL?1<CJ4g*LHUJPRuLBOf@w>7DS)CM&hC?o75iS6F$MYJQct
z7rT1N45c5lUqq><eO1m#+P3bR+Po&;FS(7qzF*jd0;X=bJi)L*@N^Yx@lU}oU-#ac
ze&La3%*H$XOdQ*8_Pgl%{o=Cv>n_3UXYsFp!DV})h}uf-s{if*vsy3zXNdZ*obk8y
z^8It3S;0HHHWvJnFPztO?Ra6*|C~QZIJa~}UHBny8Lv=h&;RZB{&PBi#MC`XHvX9t
z<a}=JbHUe1b8Fw4A8GQqu66FE(UY8C{TH-XIu}iS@~%nk^b}*ceiw0*zx`Jp-8_HS
z#8GR;m37zbzDf&mu=T!OzRkvU!<Q=7qdz$o?R+`yLYHRDYW8z~m9v8PJlfgXvV_Od
z-HmhqBH=YmJyUfj2A8qE*s17b=c?uKp1u2J!-@o%=llL2Uj3UP+(0i@_p1FP4z}n2
zCeA79U#z`t_o8F<F53I7#RaBoMhZ&h?W}urLNjdj?2<*_^$b&zOJ7Z5Q+ul%v}m`t
zlv?njM;E`_zrDX-c=GalPrZEZxr;1{T~{)HlIVt_>Dh~?+BHR9`O2mCUU}=3l<<=G
zf4v|12(t7Rv0VNk=(AYiqVkQic1?GEcC;GImlx#F+v(o3?8>7*|Bmh1cR<4Ln5_A{
z{<DgF2Or9xZ-1LVG4!AT-+yJFU;`ze^*>m?FuYy2A|a;U#c<vCik5^J`=-jh?OH6%
zzbD2jPA)O*$>2)+A$MKiuX3E}(yv@;Kiq3V&v1)3D9?D<pW(V=Pxq^T?wgY0Zi!mo
zpRIc5E9aL7?kr7@|8+c_vcvFs=BMy&{3oCPIrID;%SL;lm_@ON?=YK*?(y9*f8#&Z
zu8bAhJO1{k9G$*fYlgb?>_ejQZCf&qPG6?`&wZ1U&&Fwc+XX_;bTa?z_#?P_1~dDg
zi5oPfo0#p+o173?$-x|cQ#nk~t^JH4V=Di<s1v6&dwzt4yI)ymqh37kT(#<QjqsXx
zdv|5EKECxe=yovEp;+#_mPb}7efiq;LuB;~-Q96wq6_!dZ~AF&!B`L_Kan%);mneq
zcZ$87R;Y%xF5lfPoD;m|(B&6FEMfmW!Wy#f`s`e_L~E|g|C9V4t!u7K^*F6Lqxk0f
zgmd*N!L2pr$sHjl9>vbfwPBrHZ(pW3<IA+&>Y*)%E-eyWsFQtgNxh1<g!RR{k-1#q
zEpOImh)ykRws~Z-R4iR))pLzm`&Tlh$*lZtvpV4g>uiD0fJ2;B{kOTMui;i)61-vO
zq>@Y)=YN80Tw*2neAp^o@>eito%Sw+RigJdoeR3VEaAlTlCW+6IF8koa<#3DUoC7t
z{{zq8yL;j*+y3Q!_$yKG_Gh|{a$P@bZl&8FIoY|(-)nx%S>hg+E_Yu2to};&^fLFB
zaEq7gZSH=b8YA#FNG1Hl&3vs;_6pX?S31+D9m%`dz05#mm&ggDHS&9M{X4nzmuPP+
zZxt^!xo9OGI$P;$%KF7GyFwe}*4rrm^Dbk3QEDQq*p$Kio{?*X_7zc)yQ`<JTf+Y^
zG%56w_KJ-^wa*1_TC~xstS`jx*xc;_uF0#5g-&XQiC(ozTIb@r_+I7dZHiu^_jhmc
z(p`6{bM?n5D;lO+v4(h;HLtZlB)ZY%`i(70Vy};$)lQmt?oLqqk5vq<R>jYS?#-R5
z?Z1+}cu#|3efFCfh1dLyHI{L-{O)akcyRS*uAbNKWk=m_R;n$Vw<p|x^`uGr9#wmV
zwH*1|X5Ka@Z24BhC-w`>4y<0JZMC{rF@EcL;kkP^yxN`>zQ0NFKZjiKeOK{$iu>c|
zTobZ<`ZLHXNcyi}RofqryVdJBT;eL*{!C|C!nZ~H{MVNpb@m^Bt&Dtr#K=+m-k0z_
zk9^;%SZd#UaxQ3|p#3H*=ET{bc=pbZ{VBTs>f(Kl>r#$N-x7SiNb`qq-9asfJ-e6#
zFaD@Yy)Ce~>)7JYCMz@USou4*##;GzcO6@Kf9_k&eXE+b{oZTgyy$bu+6ialKCW8n
zx%_FSb5iJ;e0R3E`D^{O17y$oDeYkjd9QMzUjByY{48&we{I&Qr*!$>|2{M9qh}eP
zWPM8bkw<e6FXM{*bue1XZsNH_=@u*hGsoFCDW&BsscG8`qTF}vYIrNU{)fcvXA{@_
zkhrZj-?w>rLdJ@`o8hnQ1-G4L-YWDpnNwBm%|!PJOo{zZHaGYm?6~}DN#2X_ycrW3
zc5Hp4_2N=o><Xs1JDLkN+XrahUBoy~aeMvl;7RGn_+6GSINx*o^IwL_v_Bnt774s+
z_<A#<{^aJ3w=PSo{@<y$UB%K#g5%x^#;W4~-I5`z$|~&4%cWGAI6tf_eE-+jg<;O2
zd*4&v=UN;|jG0~hp{1y9@&{pi6*HF27Hb1uq!b8E?3j0~w1fGeh}QE4*T*6pZiSMU
z76>~&?NM}ly5@)CRs{*Cr=arx^n>U3^^+WmxI#Y^KNm@O?sb3jM7#gjo@%^#Q^0oo
z@pP3pI+n|eH|#T;>+}95d;H~ojXxh|)ErotetEl|W6s+5>H^nx^1oWk#qru?rFV+m
zEVZSz+8IW^uO>BYcrf#W$4&l;tcjdl-3}4YF6=z=Q2EM4nGKmb>`m{_uwLXnI5#A$
z^+B1|YUcv&siq4ze|P6QVHL8C_uy0!6IZYOGiN&%7;f|J)K9#Wn^mJLRlUCX>(g|P
z@{8V0$L^W_lYc3-|A@q$-N*C=rQE+?^%k2fb2t3$yU=rryH4o;w0kABeIGlYC&#oP
z%X1TapWX>LcX;J;CxgkSUJBHhUsdEh7~*!G`QV)py#@;ty~dB*i?tGj9Up7mXu0@a
zN5x>@*%FqzkGj_ke^g%l!Scr@qbBQw3IA?xPRIGr3Qx8@Q2D^*>h<<_>*4dCetRA|
zzpOH*=s|k1;HKS{?Ps<=7i!%&uixTN$-1r6RsNLx`lZThANuP=(*vCktVRv>(m^_3
z|0*fyeEhp?fx25_>;>V4^SHjG)E-%|z57ttoj3Z?vp(GIS(1Jr?N`p>eA!<&c{Wdq
zk35ub`S;C%e9hdN!}+;tr*|KFe@I@h!n~jR6Z2oYT}LwC#6HP)=k2gNet+5G!V?o*
z9~<z*xITU%RWJQVdU^IAp~Zz|z44n?OlEq#raxf@&#$G2E%pcg`t+r1npvem>z_?=
z(klBRryjD{S9nTLYtHIO&iw&tTloGYUCwW)uTP#N=X1^Q#m>O@EGaQ7%GI9Ref<-q
z^Cjoi&#ey?gU_!IcD|wG$z^7if4f>kM__LI8Pyq+pRtQHS$*G9e#^oA`OIH_Dr<J+
zalK=fwG^4cE9=SCr6l=CM8v&hrucJJPRGbEf@|LEF~vGJHE9XladX_N=;X+&@!r)@
zS7ZHxK3xvI<b6H{ovI=x&7W?4*;uEzcQsFKRp<TOcB`^BjnW$an`ipI|9yFHFJI}N
z=+~;AvhUy4cLpD?Zr<yCx8VhAt+?Z@mZp?Ib(v$5_rqD|nxv_Vmjr3dV4AD(YKf!z
zBW1%U(#sx*pDMZ9<d?%W&Efdu_^G^wZ2Cva{yLNgy>#KTG}z``WVUZp!iUAqZ<Oyc
z-%oC_QeT+U{j*B@cZc8CyVLpqlz8b@HJi)~s^(v%_<91%BprDTiPJLc-@j$EpZV<T
zz48x}HMhQq{ddA{%T2>0D>ri=i}p;J@;$BOra($g;Gexs8;>gPd85o;=bf=wT6>>Z
z?v~Rv_xFjZ*d3W6^ERyN<n(U7eg9={-C$aglJmN`raW2hQfS>tlVvaRet5_o+a@)s
z=kKm8;q)BwAFAwS&2f5c-}OG-U4BjAhD(jStVFwk@W$un-DV37zCGI2a`=3+*~Rb6
zy(KjHT563gcPjqz`>V*6T-@f>zVW5Iz-_bS^n($TH)bFF@p~DI{7S<z$uA{_WvqXe
z%;?(uK>c8dOyhixX8Gp%I(lacU%Xj#?xf<mQVaH`YA%)Eb(d58zQ3`)pq%~dq^eyC
z*ON&tpJ#<XQ@!hXy|<w4P2SS!AJlj22Z&2Fzt{V8)%=5^VM^_i>esJ!+jf*pjZcz^
z+;vKSVt+|~Z2crNp%14mSL$oNSYk9~o#Joh8BQ|GoJ8v$_AKGsAJBG5W|M>$f6rcv
z&*jDWLO#1SdtxO{%UrDe_Ft8~Nv!7`bI-w8fjbuKq#NXpeQW4__I<Y0q8<_Mx?MBB
z3jFXiDw7D(y6?^?ZRlqs5G|&h`hRaX=egeaoW}|)KT9V*DY>yW>B$+z`~G|-*SD|F
zcFwE){mV9L@wv5JYCmjqW?M9e^Zoo*x>srcl6|=~aTD!7y<Pix)t`y^$@8t}svUaq
zeD5T^lSykn$9eYqEM8yD!83DPUFQMI>+U>lhQEIZwRCBI;^t#Xj%zRV7Hq1sTlC}9
z@+JC(9J`FJ_`Ud%w4&BwjYo>}g=Z_vJDo1HY-C~1Hk`szv}$v&zNW@`&yejRiECz0
z3`x*AS-I+<+mwl4M1LyJ*1Xzu->+>G>;AWMmY)=Oc*6KY+!e$2k6eD2g_=%F+~H%n
zo}^JPzGBtxZ#+-eZ?`+t|7Y%7{+zZ?<=f(e+86!_{i}R#eG-4*Ipce*uO`{>h^~Jp
z|FiCsoEN`D@GNe#of2B{6XS)B24o8GJhqS&;CX1XdBNw@FOeoczNNfXyw5fL(D{8a
zQ=BjCvyJ3*3~pP+?8r60cmLPh6WtZp9P>D?xTZVUf<xtgpG^ErvtMF`C*JJ$X4zN$
z>qT@G&*tZ=K5k<dt2sZh$n#+S+087oS9Ka+o2K|DL%QX9(u#W?>pN@gE8Tx9Z~m+I
za#j7?&WTG_|J$}9LFJ<2xya7sC%1T1=YGDPY`JM)*sl)bU1i#}cV}<h68$pw$H@pO
z1D<3ZU5Pe>X}SXXeK}0>^WT26;;xC2IDM~m<-JUg00EQd2lgps{1R+jAm?}5u*>Rr
zY5T@=vtLYVnJ?4!shP*C;KB9O*&NRWxHfeccXV!T-l(*2Ppk6r#!psf!Vgu{-p<|^
zc}nxiZu_gduNelFP27K4;rR!?Icg&7*8M6!ow7h^!mn-NrR+Wb&QDnPtNi8D1EJ3Q
z-j<q`1X+H1snkF3j)43lnV%{wk8k@tKXAP8*(vLz51X5#3NDyW@O`AvrhZI$?t$;;
ze(r0UpQs(Xp<UzMnf?<3Z<f0AXkI<rSbiWPK&fA(=c(`%*5sRWnmJhhH|DLan8?Q|
zk-w$MeZpE%lWENRRZZ${Z{;*z82hwN__Sum{I}CJj$dV2>74lXTvg}g^Sj>ZKQy@J
zzWcuI2SItEIZcXXT*tTWbNFc+WYM~BkzLZ9rthUMC!KAyeenF}^cO}a`V?3iU-UlH
zRJiqhe?-Hg6MCO7J9R2K9DeS2KQQW>*C*lk45GUo&dKaZ?k&8{XTR;mas4eT&a2Cp
zEhzSUcTB7DOR?yymgn{SGAHj$tajYgnf1x>U6@pzbkX(W4mK_|mghf7F52GG7XR(a
z`Bk+!pY%E|eh9Zs6qxmM)w<}f+kIa}@)~{rv-+9liD&Efohs<wd!XP<^;H{IM@PR)
z^S``3>@nlWM<=dh$CPB($>=)r#hp-*7n#3L*m9B6xtm+|@Yh7%?^F;k^2w~MSNIjU
zDWr?ta*GaAtJW4BHrr1bk$XBXZn9zV5z~F`6tMmBCN7irXZNml{Jd++;(IPT%h!JM
ze0+1U?BV?7cB@7Bm9}J0eJqvkzdLNIO~=J`p?&O;$={owR%iYU>0=Lk_vgy#RdXsQ
z%e;6!)0}h8?`02H&5?TUxqIJ&9};hOB}}wEcAmHEY{vDyC+F<6*SKc+dG~^d=V$co
zCiYA3*L8n(;(e}>d!0SUo#H3?&JX5g{}L&x`ruRaAp5Lot$5KjkGgoF&ga)>)tIWV
z&QyNyU$w#~pi=Hg#<SHn{F^jBthSk6k)s%(Bs=>{wCEDAoi2CmCTTrA^wXfT`HRVn
zCyxI9&5mWNRTI{QIc{i|`zxfO5-ndif%)XEOxY(+3#6XD@%o}*qAb1O`7RZ%+Dlip
z{#jkvuK)F9>m1wp4rk)FtoE%+@lF!hEcP_>uKAH&o~e~`0&j0HRmy*jv|Tp)@^l3j
z&v)*%VUhc)e|de7;y8O?&H2Q6ujWnA@O`D(`=)A2xz^_ilYI5w+&G>)kN?w~3)|nT
z&0hY1>)@*`kJ*2PWE_9!^~~U};{uMecUT*fzk4+wwl3sN`!?rFsYYD;?p^%9#GF6B
zN_Az-3ewLOGiuW|Ry|qG6K=XoV<xZG>%hv{HNJdTYq~=J70!+~^>*ZYTO(dnbMD=5
zh38+Mp86v`A+M%MgC%Ntl7Pg!g({8CeRavp(p0__DC{n(DP;3hnxIo#;m9*B_2RiQ
zjyIjkCz}uK&2SexvFnO5)5+DV9VhsF>Q>w9sa7c@Yc2l7_SMPdJ321*<xTj#LjC@G
zB{%C?{jdL8=%}33@h>{&ckO$(CC?G5FS%R_6V6;@U{&ipn;9ARuDfva$>sx{zauX!
z_cD$=J?X^KnU621dl^SEPR?2N@#=w$W!KlNyTfR8?DUJ<#%JIEK0C4coCoKWb(?L}
zE9KALIrB-y>we^w?hob9D*o&%*15?c5}Eu|`$4hRO<R$L|I`J_p9Rcoym8#Xraf+U
z@JY9&Cl<}kcbt1}WzD4&LxK5@8!euu1c#*b&kawI&wHqRbAs^RYix<}bMK0)toM7V
zF!S5@wr1x^ne$U@C;9wVsO`M?LiELTT@N#F$9FUH^&IRcF&Z6j-r(%!ADMEoC#8?w
z@|<modQ?laK)cQBVu#;RDaG8o7WngTU%>n0vO;)`hnc^pnC<J<d%1TU%dWecl_yA7
zU4O{8=F{!hCbL57*bVa(t$!+Izj-o2q$M`z+ke(~i$4edly%vu(cY%=@8Zvs&onzf
ziTIiMJE{rnTkxKv{2f#6w~S-FzkJfBHotf(_s4O8--U-Bda=(>iZ8rZy&&&A>j}=)
zCs_Vo6Ml6$Gf7W-)5~9>b@Nw5i2UI@F?+%ODyQZ%>hXW~G4H$TqVeOjmfR8bXYr{O
z0!!boH~JIu|KbzVm)rH*uIW5>TyvQ(IcMU&7mhr?w#e^SxVMBmRN%zKcL~fj6ZZW6
z*uCFu-%YRQ(TeG|>uxRYyzukfvzO1(Ueu(2o{|#0=}Ak8;4QVO&SrPxv~DYy#Q3ND
ziTk1}TDE#7yGwR>rQuHBwR89veOb$AYS#AE^yZgb?q4NMIZUQjj%GTOIycImxcT@_
zp77F?-y1qhHGk%C#LQmpr&_u1R7|Pg<ia|wlbgLhWcaC8UX$|rw%2jWYMJgoL7T!S
zrT?7c%6CXjNB<3L<dmA};u||(igH}(d};dQlI?04rqlz?b~9u5vTjme#-Dwy<%{N*
zwVW?kA35JP>HD|4YQmSoJLlik5v`y4<EC11=r%^zmeu>bKIhze`Fgb<=h^y6H5ObO
zg1Hn5>VD07md%`G)-6+XCH-plrkz>(98>fTI<hd8FZU2=cKGJ_^OqyPwBr9<i}>z!
zMV@Dp{_MZPZrK$$H$?J$U{BqXhM48@EAMHZm=$`}`sk9>n59#n7>3ufaNSS8yfdut
zd4y?q-elMCs7N{I5c7yYOEHzxE$3O7ZXRGU<haw$bXKvz_s5z~cJ3<ctiJ9z=JF(_
z)Wt!qZuzR}9v7?Cul5~fDA~FGv+2z*Pp@t~vcuT@>C|V2cg_U<Z2YdgdDSJGWwQ@w
zKa}q{$9RvobyY}(DA&=QuMSOJ6Zu47M{9er{E1yWpQ9)2v1)C8lKkp_ve!0|uqS&X
zr}q0yI_kT}=aItqg4gkBz4cpXs{J@}Jam^w5nIYE_5@`?mDkmiIIn+qoL{yhFVkPC
zc6W2ijmcjgPk1XTvblJN=^oXSYjQ3zO)t25?)ugHUpTiX&3y8eb+@U8*h_9PmCrUO
z-d_7~ZKle{<Dru(=eg|k`egWZ4&MvyezVR}f1xLi{hZ|!59bP*zH>6~uz9DX?>o`=
zbk%~&`H`gyD=&uL+sjltcax>x$?Z|I)NZ;}mVLd`lDba)=H^#oJG@LId;f&la}<P4
zb~RL=e_bKnE>qiV<H>J!oqjpznr-G5e_*Y&WH1q&Afqzt$?I7um&2vwPQ_M<ReZl+
z@yX{8OLtb@-2-Q2>xxC6oYUQFDN?CszP-};?BoxVr$@f~`RhW#K6}qInHI|rvdrFH
z!&kZL&eQ4(>g|UAjZWLXW-0&4`Q`1=+&Z??*?B2;6W*nF<xM#C>A#-k`r~Xb6BXDG
zGi}fJWQh2<Pla()`=>W)e4eS5Wv=ok*^~TsTX*kFSAMR-b=vE2B)d?@xkWY6w$>3`
z_vF8<J)WPE%$*%rcz04p>htbhn{S>B+7NQ-`47i~L7w@+I?AfrFN>`nnQJLL57;Ob
zbMxu4ElzVLD}_te`8VV`_ui;ksIa?whQikgZig)uw{h2I+pT2jue+@ABc#cF|4W{0
zD_O4ZTIt)@ki%scd8T>8i@ou(`DN3;yyZ?|saD-_ZStihMls6|u&#8uQYAjyM&q8}
z{c^{TiymrE*naH8T9$shLZ0;I$xkeuCoZ);Ft_%8Rp?^YKR-_1{&6h*{(2*uDu=2n
z_5(E@)1D}t>i(+rI8`e&WEyYfrkB5iPn_Pj{v>0h+x_^|3X_Vt!SS*8RMzv`td=<O
zw)@M~UrM&eSWlK|cAQ_doYl{MZ=iwp{Kes~E0sL_JUxGDv9A0rem8pmgZh-~w%4Ai
z@vuIq3p4a~=(ulHJ4>_p(o&ySIrh66*0EY%KJ&Zg+tyyjlWL{jVf!6l{+_n?$(gH<
zoGOCicCXl)c=)~kdaJzL8TL+b+BO^a&G@1lTX81p;fq6mBumy7yx!R*zxmnLtuc4y
z9j^;*XIsrLUg9tCzt?|B+rLxqw=b#P|EPV+p7%$ykH^esUK?e6wD^LhWRKgyCi9nd
z`J&NTb9F@2es>&mU$f$cX#IzYhqiMrN!kCu%Wh>|?WGublL;|@XDs`jx8$etmg2Q0
z6+G9<w_2LdG~Qkzx}o|wQ+ta2vgFoq9S?af5f+bNxy#!^_{8n5C@lSH$gF+G#WHS%
z$%HdI?Kd3JHmg2=@KW27gL5{%xBU2)cg@FJ*SYQ(Z9JxZYJ<G-$EhiYGC>?E&ix`?
z%1b_N)QJC}<9+H%cuB0+#fI0DHotejDb2_d&8)J2Qu)@_H{H+wG`yL`obmf$YWPWo
zOn;se7K=U$WmnCbulmEO`3;j$3QxV(K{b}lzZ32LO0x8_FL|xJ_V-^8>!9b_C+B-#
zV3>7f;d+(*Rc_u9A44tT1nspKx6OF*XTHYyTL&xm9Vl;omhD;RYUKZ_dXLIk_er1D
zR6g0gU-hc?tj?szEl=3pJ|7IUo%C9H?s~V4JDpBdED7DeW6{E<jLIdSt|mN~Hiez*
zxu4_B<|)5A%=TB@RL|U7pM2Q9!B#rxweq9S{I#E(l=_z(n|w@g-9p`K3|0wDx(}3!
zB=06`S!H?T_Lu0r+;z$^Qul;%XZl*M#9Zb3-QG``4vNGF#as3+@r+JgvL@_<n5>=u
zHM7hMawlTsc$dmvdZv8n=CxOHdJkt8dd^M%Y8$sQW<lH=#nlNfe+leN{ZM9Q$E09t
zf9a=^l^wT2jiBC~sJ*Y)_OVYt75LsZ|6x(7=G^qPUKxk3K3EjP`?$ewLgm|u&!;Ww
z=XhT+#Wp7BnR4gizIjQU-KWG%_S<BKMhNG5>owp0;p4s|cUMWCcX4io+MQ`Jvp%ia
znsn2cedQfB^;v}+>TTYh|K1em1orLrzNb5BUi{x*TmR=vKabg;dO|s~WcpSAnOmaQ
z9G+*BJ+<!3onI$bma(n=Bt3=w*UU?s>`qL35<aVW&93|fpFBeMPs+Hb^mk&=pM!xP
zr>oSuoS$O$Qu-3J(O<!otF?a?+7->xo;>GU!cw*A4_tpnR$i_3Y5aKN#hHWbTrRJb
z_kLOv`rY>wbFcEO@SDfy-G~?5KV{vf`Fm8k7hTq0y86xRJrjO5Z9OsV8&`bKJM|C$
zx+ko<zy8}!*Xk)rxk=CNE_^Zl<Tb4mnR0JjA3vS><)6dn)J?z6s+QUX{WR;odqc=C
zYWk%Lu`WB6{fiD|KeS%+pnA>zNq?d$6a^l>Dfc`)SzFAcMR`Z+n!G<AcNg&YJYtTx
z_}J-_cFl^eP5cj9N>=XM9KriG`V{lM+cOrtaW1NKsr0zHy`BGZv{C!|n^T%N;+K0%
zopHR{z9st2>bBYL{*@;m_$)8z`=;YvHNW4)?`z*Ke$BrVqiXkT@R|O>GnPv{(EVY%
z&3@zW_w4!$igt3Cv(+rteOR$`$s7N^+$EyF9UfNf<ax)#EUUM~?t<m^4feVd!?oDc
z7rb${u+VGWe9iF{ua=!j#$;Y2?W>Fr7af1Mv*miBXAS4(ue$eJr``DOnDimTn=O3r
z>6Lk5+<~7N)6f4|GLJR4X;%Ecd;cdFiEZJ`vQzo)9#WzEW$w~VP4z{`*p5b-%`rQ=
zbc0KD=l%Vw<My-X`vv?^{M5DmzM94#*0<klmW0)-tgP++;_mh7;G}!gGPL_s?6xiV
zGJVs(BJZqulb?F%O^=vArzU69t4SB1PK^7@S9~^llg*_cZ!}J@+J4xvFeFZTtGv?N
zi7_=L7kqR)|4uadd-AKw@>_Z*bt=_X{8dZ7;%+rRIPj0+s{SoUk^}zuY8}7gx}3Xe
ziRv6{J<HD$A^)4)HrY)2!*;Po_ks4kq}z@BnU2-m8lOC#|JGUkXR+!Ocdhii$fx(S
zUQKY{v*L#E>1k({7d@P{ZuKAT>@M#l)|1(foY~^%ch?`E^<|UlOXWF@rEk+R4t)`P
zYMsCOm%3Q9e@p(3m(#9Pi@5H7qR*tv{;~Jp<aIX7^fPMj1#CWlvh7oT(2s91M*god
z=TF^f7b}#W>HfFfV<*es&ilM}g3}62cbVKPbZ1_W;eJfHwRrhrMuWh2@p?voXEd@g
z9J1VT^cLH_hc^s<{Ngj|(-0GMcz6HK{EhFKN}jm42xorT=z3c<YzsH*(fcW9*rPr^
z=)ARF<HTFRrvbiK>OATkEH0{N?ccURJ9nei$=wH^%P%SR+Y!QaE5<>qf6m?`-)tlI
zKmC%+&LthuY%{$_ye8N{Gy2s}lix1>)d`o5O}g`R;*^;-2J=q&Z}zYHv{_}VYH#|^
zClABLuhe-+O~3J3yx!08?Q!dz#}lX36c}htnDt9}CbNddKaCkX<CSuLzO}pd{@n6g
z`?vc1?|sz2{&1B3!F$Jf?i!WY1hu9wJZ`EfqdWac^VEw^(rz#Gsy$NeA$+B7@}cmj
zN_<(TH>dtS_ww_^pg%#YqNjY{&Kl2PbBv2=$@WhjYHGK09hPkK&biB5&n>~#yz2XV
z6}ccGme<SemG%fo9iEo^&b!{_=YtBH4wbzwKNA!GXGd>}nXt2VcF(RO=Go#8*;Zv=
zb!s`TBdD!*b^h+CgH2N^yL+pa-*|Rw$$DKCt}@N~FSoWWxu>_$J^a~?5TWRbweAy4
zkMsFR2W?#RGgf-iu}J;>bxY>|`2KqP{rVd^TXmn^pI`rHX5GK9hvN>d`)+aV-Mjhn
zl~J09v#dXv_rH80lx6XxK{oOH-4D43M7ow-wW~jF(3(&hc<n&f-rWz)_a(>do1q-v
z<J_@vR>*D9VwEE~oQCZCBy<YbT+~1IwA=F2QHvId+kZDaZkwU3nC9JKDUft3>Wkqs
zkB*x{Nqj95zk80(lS%4pnW3xr%%NlB<@JJg0#0HrJ%6oTBA$o7>rqxr@%FI%aCAzd
z{EF+$J8KNx_er$tFN?DExgK5gGpVn}kWca0wkw5qd%eLX))?yEl&kLTJuP1Rq`Q#A
za97n638<@_e74p-kdmG*uvztp42R*hgD*|Z^q_7!w$51*;U=LK*QY%dO4`;kgE`)3
zdz)>%p<eu%iTcMLc1wocd{Pw*;VB;Z^0iki8RGT>;>K@{^WrX_hxz$SO8J?IFsroB
zWaq><otY+3tZ-z@)z)M1uvl|-SN0T$%UdK~tKHfv0a4aqcr7D(wN$c3PvOr~+YgH;
z|8+Z8*cuECYsqc$apjL;4&3(7I@Y!m=HVCf-@{E`_4Ua08#|z3`|_LmUU)z|UN%_|
zSN6vHiT%0LX~+9+cN{uVHt&&Ms>J1I|Ic45+howA^T=_}hRq%+tOWw6J6aE{pYI$d
zy84E3ZMs0l!qxuE_or=MeKP6n?6%H}0)|p-s}AZ<-zKi-V(Js3>|mO?W%q3n?m%AQ
zs~iTi+P)UdPEvGpK9V7^LhbSXKVjxhA%|T|nR?P>N?$EYOfqrlX=}XrMEPfKUW){;
z;Nrvt6N}?h5uC+^w@&$YKx}bb{peO$9Zdh9TXJ4diItq~Cv&@6SG09zu}GY?$je<U
z2r)QI%5PrgY-z<+iHoEd-I|>r#2t0&Y3sOXU@)s^@>?@=7^my-O9bblMebAeBN-hM
zyv$b@ggQ2Fkgb}zqOH^Ni;=;sKIOCD0wB6BgdO;*e0;61(4)f-lguP@Sy^1p1fE+z
zXZf^ezihUel>d6PbmzP7>CgP?H=A7l+ne$3ZSbO<oBegq&i$H}x$gSxr8|Soy^CYb
zv-9-gE#gboZwYhhR*{o!W$FIz-c=~LICAEN*Mi=rl3x>QYA^dF=*|h?RKL<#q*XUr
zV58W{6>dhSh5t;v`_0FvCp~pqdg_(t&1-HSJA9-{WwG4J73^#C?jCoBadID?gt3>)
z7`{F43X{;ku>34kM#rDWoqu+F=f^c?KCS7g;@Y&kz2mEgo9(1PeyMvi%=rahPwc5u
z*=%!CcBR<s#3UQ-%{JPL<@!Z4tM$~bDNBNsTFhPYcIS+U{*)`ql3y2;`~5B!+$eW)
zg}c!!$J9lY+vJp>>Yjecm4}=6;!t${wZlg$!qO_k+-!ex6iV|8gRNRTud6xyu8qqY
zccWJmd#bEvoxKZlD*v`E`>JP1oIj;={?rQf1lAkRW_E%cFe%XAMfDBbo`}rb-(n4*
zPB@uy>f1*F2<LS0-HY2Y)e>|jMF@GWU|w8&J7PvecS?w|<ku<5^(su)4slK`aFTuN
zaeJHV0V|7ze10pKV`tu%;!(S%Bze^%t@2o4`egwFF;AUNl`D;2Z*KoPc_d0@vDC>G
z?AqD)*rCo`q5g2shJI)${yaD1g46r;U7e<$ZoZQu=gDo{mZzKq3q~2%&)b|~E<O1F
z3(Ti0*xL{8I|~hv%~qxD>*`*Iw9GKRf2zaX_|-?_Y+G3H1k8?R<%Ia|)j{bJM9?4X
z`MIaE0~{$cpB_AT>UpjWEX7RjlR5QFG0ApPV1LS$X1QI6kSmodT?=)1p#O0xxGy5-
zJqX||J1qorcgV8aui!y%5rar_%jLFiMWn1FVw<k>3qOvW`7~1U>k;K#*;N9ND3<$j
zVPif#zMf_j!qUa!d2ONzaE@GxKU7g#WdYmg>c0kt^QK15n;O_}e`i~d;07_j6)nQq
z=MSzD6Iy%rMa;%~T!z)>PO-eHU0E_YQZ6L*!^tXWYS~kAE9v~*%VO2@=5O=aerDe8
zyGGUX%1<x*op}E4yLMac&zJ7G&ih?0UKw{|_nBLV=k3nsub#KwHp+U<&R}buiAT!$
z-+64mpRX@^v9rP?-*n6D{)ZVqIO={ItUq?oZr$-sRZFhrHX0g!|MltR!*2VZ1)sMs
zueS@iQrT<XZvW@<V&4y<e-q!`IG*)t`|^0XeLr3W@7(*}r1;&pmw%79m*1=X_GNv0
z&oi^<o<Em=ub2_we)sVNV=;x8|L+Wc2-ZI=i!hDO$lQH*Yfa5&KKFT(@5G+ywy$#O
z|7B+Bm-^5q@4o&OS<wd@d-r<EKH$-9*}P}34!?%J{2l4zvWuJ_|E_uR)oI>E_C*@^
zHT2(|IQM<?o|qGbIbD*wU*3LlSN7=d&#%Ay%sN*%%}a3UO}FlQn*UB8y?rEodW`(T
znlBp@dp<1hPF(yVc7^)q{`Yo&z8*h+OtgQqdC$u>iFt3nefc`qNUFBXd&`IEQBv1m
zoGyR&@&(`SY|e<8yYjzlm*~WsUf+3c`W5Z-*ITU?@As4Jwp_I`L2&1Kzjp1ZX3auO
zyiXqOKD2vn-W$#r7033+3xB_pp?|`*_}5g$?H}iU|8h(*x%|Y^OWwO@r5i5RiTS*K
z4NH>TZ&$y*V}kl;GjiRY-wlx2@oTI3jor&@)qi`u{L*E4EpYDoy$*)SEB)90m^m;0
zl91iH>MdPAk4nqfX0H!%zyI&o@Amt7|9^blFJHgw@2`*F9`7#H-PWZM?V5Yz`W>Br
z_8<O#G~49%aR*zQ|83Kn|E!{NG4q=1S&AdB&AVs6=l7@Azn!Iz-+S|GjkEdsA2xM@
zFN*&>7QP^HsyzPh&xh?B|31v#-)kyt?y@s<`@gT|<-cDlK3J`H_uXozGy7gV&+&Wg
z-4(?*eNU*tO_9gvZ^-RE?(#rcOQWmpua@bTFA;VdK5sWDduy0pWS=wRhgJRlzXtD1
z_I;UtJ#`uD2Mg0jZyy^UTQ=d@O`Qj;ZeA9AD96ywY$F?f;g4liSI~wNq9w01mpTRS
zFZ;9p-@lia&&$^@yZ)`?(8m`-ZiY3@@&7hHney}Lo%yFskId-1u}M~GvN?}oPpDSl
z!@9?F`R6}>@#=rDOtyuD%dPgqPjnAUen0s~w)VHU-0^xjsjS6)QjYRH`-5M(JKOi@
z^6kD{Q-1%x-8s*1`hDL`obK?2-xL&@X}e_Q@>iEuspqUd5%l#)<)kjj#a*Qn>xEa&
zJYjR#?al9V+l?o#4w}nSTFF+y?cz0W$!k}y4KhAP>gHi3nKAd;L{6!Qt2?HC*vq5Y
z>A^91O5_9eAf|~f;fWL9eRSFL+~?!uk`mRYK1TPm=cGNVSg$zGA<27waF?Hkjrvai
zNw$J>M5AmbK6$a~;&=W@2A9gzY^*JXPqN=X#W3$%%=0N`KCS)fLO)mev3Td(H9INm
z*%`h3$s=`l<q^x55mD~H_cQM*K3Qy4*wL93sq!(xYi`OL`J?kapC8<EE~VzIx==>e
zs@eL>s%^?`h4l^;PEoqFGly5uf0l7qo&Cqt#!Ehjx^irL(CaeAzEMo_$%Jz)tG5NF
zCLf<8``xeNM6Z^#%105clM`)E8o#uh!`Ztdb(Vh3hP87&ihQJ+kHybxI<kG)Avb#o
zy^|SPol~B-*guea{^{by=S#dN84Jh1cKhI2eeTPNBcIiiPy9*Q@S{R8vt+6C$$1W6
zcy7(P*z3{8CH{8F`j=f(&Z&GYbDcH8Z2#|GmR-BclZ}M<JnQy#ihBw;JzdAL+D}#J
zS(cf{nU6kNcWtj6Tk@mMb=QPxw`P7Y=?~;-;!n7?QuW^DyN_eevvr=F@0r+CI^APk
zy2Ijweg_tOoV?#5O>)V_>&uHAC-M6@)w%uXUG`$;k}^-D=1Yh9R;3%PPM9F4=ebzY
z^|8QT){`-;KRON@J2jtlWY}NGEOa*Bua$Fp1LH(xRl}DLB?WyKpVZQ@saKnLYRQfh
zD!b~`O!f)cG{5;Xv*7Q?y^N1Ir@Si<cxt!PIP-0N$@S=_W(6MB3%ZggivLSXtC&w)
z_IP>vGNE;XjrWcOU7OXsfzR*{ztr6ih5!9~L=GLvH)2&<=lkW<MPDx--pY=r-l-X1
zzlt7n`q1xU*S^)Ss{KU89JQ1aFD8{2n*7?kb5^WDv3SFRJ^U<ni}^P0dhh;0X_xeo
zjUII>8voTVyvW|^@?Un*1jPxBOTWq|w)s5Nt9a?`{bZ9K^Vf>bMe6)J#aER&?O4b7
zv0Cv*{Dn8=vX@*Hi_2B-{#L9NX1#O%)$3V-J(4M}-aOJ!^J>{~`b<*Ct8-QL-2bMZ
z6xbcVHNSIB`w|t8T@N~3w^dJiw|854pm(Rxs*Q3dBYBl#{Lj3aFf+2}7w6`^4D2pb
zb|pMns48{oNY<O2x2kon;%D0}*H3zIk#+I;oLs5O3BRYE*qFBMo6x5WqXOx<4V7p0
zn46#P+LtolaG&d@lzkjZPO+cdWA+Dr`O0q7Ue{%uf1OdFz2b~oV}s@Of+*>Ur+4vq
zXtWp{ceZ#fE_6bma&n|my@I=t$ycjqn&k(#9A$IaP$bi&q2eWC{9n{H`ux=S=7lK>
zKMVH!o4BLs*{P}F3g0LFUNGr=^i>6yE3D?{{+@0MY_3mvlKV#Jgp9rcmxQx?Q|X}!
zr<5bJp9t-9$$rys@UD5=v%SW@_+@<0W;0ILd%?JzOWWX^{UqnpuRJmvqGWpameoII
z-B5SBYWhy^t3s-itrko<@Tqn_^Hbjo*Rq9guIDVD7}&J*y>i#5Ls^rw7JFZq&Em-8
z{ZH|GT-KU?$AkB7{pDVKse7+XZRbP17e%qZ4_-W4AYbzH*5gfOfp>0tvz-@L{POb_
z`+JuCPwv^?HxfBya-Su8$+MT=yq_GZEt#^z<YIU5AHo0fY(}xwIVwN;ujI$PU|r^%
zlp%gB_QK0-@xE7ll0Q@0GCeDVl{{>c?x+T-UHh_iwtH)PhMLvJ%8g%tPSN9<$e9>Y
z!SVQ9#MSGP4PSgO+}?Kmdw!r-Vik+1T$A1dK>_Ep?F-VLd0k~MJy{`fHn;lWk7)`W
z;R%VGy_ayzx?Q~apYFVVZ#HKRRry7c{Ry$(?_8+oR#W`dQ7LY6dT+A#%oRW7I~xp+
zcR#R=dOlZCzv0`rud6Q3?wC4bFXye>-w$r=OtF$u^}C{~o*J_8e)^jHPVM}h%}M-6
z{`GqtE1iElj$yB?#o{?mFUoSxh~3B#uxzZJJjY1jr(#6DtoBc<gS>UZbw}KV|FBD0
zf19_dGu5c?Sl?dp9HY;6g;O>5GTf?SymrlbgA@BLt83?y%MyE*i0=IUdQMUW>$?|=
z^h&3yuY2zGPVu^>(s$k852W&q)~3vl+jm59XU+Ze&9(D>3bm$~-+#Wa&R0Tn$B{3t
z9cn86W${Xt>9bV#*iZQHl^2(Ha1Gzh{)|pRm$J#VoX>t9S^7V=?^pR$z8U8wzH%R~
z`6sw;$(hBSk2QH~TefyTt8v@*Y45>ZJ5Hb2_$;)Oeco+F$-6R=YH!^tCffYED|DxY
z!#UOb{-*D7|GTF1_<Wf#QTXYuW68gFs<l6{E?|0RApe1HhDo>6jUC<z3fh7;JDor1
zE3#Hhkq_LmEa0reM-Bdii>E|t-Z0(WbH?w9;M)Ytin^9}p?!N8<(|Z<v3#~uDazRE
z)l|n~@aovYi>#g*>#l##?pLqocvgGfzIEM2*3V(rg*x@7eKs-q`qwRM`pjg>T~(aR
z>NuXI`b@A~$(^^De~0-)?ci;*)RUjdKiG4+`0eM{Q3B1Em3?9bnv?Iw30-sHRO-L+
zrpa@6Xo%YtR>KOLCic3H=Mj#~k7j&RoKb$J>rSl+=Na22pL#wj8@u<<a#_G^*Pz2x
zYkOVkSnRj&Mep*JQu5>d6dmS0$eUrmsocW*$3)qqnva`aDBJ9QqcJVv=e+ER%k+Ng
zw`_}3xR~m0_`RF?ru5F>843~mroY+yV!Fh!RliswYZ4N2R&Qz9+x_ear+?bIP?udj
zYtj~MpRQ5<QKsgM)ZKL#TQ|*9?C&Ubv^uP%?`$Psc<9AP4y&gEC8w55ig&On4qLMD
z7VBK2i?{Yf`S0%0Nx!9RwR=Ii+N^3%7hxxx@1Ix%-zWVnsIU==Wpj-15;(6oEptPW
zXOCLN#2fMnubbXY%$~NxB=O7S9`_l$Gx+pk8a?;BS!7IMy)3<8`Ucjxh7`GgFTF>U
zi_0diad|m0qv1u#wG(E0xF-dzT*9-qw8MGLk&7Pf2CF)~PJMO%@Jur7qiV+5ewNf$
zGkL+cNfTa8bf{y9Ts~#Z`85ou@3OOO-QoP=lb*-v^}j?F*E&y_mMj?m=uS$^&o^^c
z?`zz`cQE(DWp15a3Oe5>b#CBuTz_}I9mgZ<BSk`nUNh3fpNM9>R^@mjaK~-YfyJE)
zmp7aWIo5xrc9D_jo|*C&Yvm%n1#LH-SB~HG-PAkn>AGLa)!X;EXc^r8Jxl-Q?0>4?
zIwHiKZC~U@YX5y<6x^Y;!FH|wiQkt#3xCh=s9mvh`t_!Tyb|9poU#eoRgvZzaiFwT
zsxBpE>*Gs8oqBAN{R-#%1wP5Vc%vG;%fl~e!Pe;t=be?b_iQ)PWagA_YEcjSpz0KB
zl0EOn#uvY4mrF)|UUP7H5i`5T)1w|A1XL_8-t^wVELC*uv$9JShf?Y)kJc@x&ootr
zEm69|I&qVY(Be*|pl!2O_`RCs-@iC0T&1dGIY;QCvPf~0byu1Vr?GMTU3u=pHvS(|
zk9LMFu&ZM+FVuFBmQR|wAx^cih2Qb=s}%>G>yB))tCg~zP|&&dsU~-b$+t;AmFI}A
zIxqBBP)D>a^v<>CuiV|jGBVz%zBu4)lD$n*^<HX>CHG`^fzOIN4EHVP7Wk~#@$;Uj
z^PyQjEbl}1&-(0s;g+5DhRns>VcgTX<_Z2${2{)2&y2m?Mc*q}cGkNXd|lze+WUtw
zMds^=BhngDmODOO`KWB1%~|WR>E4Gf|FgT^D0jTsTi^B8_S^I~k5}6~Kd1UhdH43|
z1y^%+Z}-2s+w!J6$ALE+gySAf?S0)}5$5ABe_S<|?Fr+#g)cI1U66OIRk`W8Pe~&7
zTU;&Yv=^#(66^m=UywQdM!(B7^AC~VLfQULjLnPO^jJaQ&PADS^WXPxcqly#yFFj_
zc&<8Q(M<D;Tpkj)eE&FaQkrbGkoD1>mPfuzx)gjKs6ERUa;-2;4Eg1pF!T2@p40ys
zRE(FE2z#Vui+`%|h<u*0^w3AO2{mR00{;biwgm{seo~8JbhX;#wEKp@a&ygkA>KDX
z1+*6V-!?k)jlc2hW`?GOZBu9e_^dc#%`Kxl*Jiu8hUG7x_fx4c@Y>8%4bL|FG`(oA
zcxsr}+8FuIU1-+%L!5`?7froT(-AIeX54Xtw`l(HuE)$Tc$ZAEN)`4flVm#i|HL8g
zBOgOIaGsp)u>0}m1mTSTiW2V*@I0#zO_}iJ{)B(d3bqD~vlF(}b1Z2uoy+o4(6{2_
zY==TS=LJ97U7nu2s>iZ;jt$GCdJdiCWlxj7sReQhGf%Jn;JE3n#>d%r=H|TTT>W=N
zt%t~iYm3VR&M{p&61Io4`OJzNv0DEGt}9(^z4h1U#_6M%m(<DrpRhY5$4L1(my+(|
zeY5{HtXVb9v{U_F%ZK=jY|dInXKPw(PyAhQH$_cnzE)GqtOK9;8&fxlO`Dg`bT&lz
z*!g#!smr3=_#X0K6grm8VPfnqobk{78q-C^3xAxq7!~{8P~;2xT;lPhTfpYD6w~=2
z=28xu{{pMeEQ+;0xVb{O?YX?u)W}^WZ56d`H>5*smg-IZ?8|a%>#>&;_Vu1M{iPW9
z(PUS_Nv(r&j2B(=gG!~ha_UB^F)#QbZ>V9GE$B8i?a+)D+ztidDS?@_$BxNY3BM?P
z_rK^z>D!3~XU#u)JvTPvJ3KG;YouBnOItGU#ZBVIDi7tG4)*=Jds`*ZBF*F1q<V&8
z+1T``s}uZhpX#trc{~4@*Bld;bHQsmYdS(7ndCNYJeRS_;F|rDs{7W@4*RZQ2yE8=
z$?qu;sZbKXG`&*x(2oA}$=W~pKPr8;k4(Jw>QH4Z$9g53C31VWWIuZSgTIq&&z?>j
z(fmZMYkw!$v|JPTDX{v$k+n|ma`G3&w%C193z>Mb{ejs<wUEcY33KNwzI0s?o%cf2
zd$++f^Mji!jvd;gR9q6t_Wpmz`Ys(~u^;LS8N(P|Z?(4X^*FHUOazOL|2~0A#>100
zar0YTlWeNdnpY$~^^0Q6&yeWwth23E(`Uwcl`d1b{7>MPeb3YzS&X(UUc9pRj=c2U
z^y!ND0XA;8wcqAB|8QQS^xK$a@f(xxjVZ?uF8{0jBHu~$!o|<N2B+e@&njM!@fY`U
z)Nj&W(VY~dz`Wy8YnrgcUqu6{doBjsCdMvH$SE$Jx#*8t!JIp(Tr$he0vX<O{nGo-
zAd<d~WAFUfjlb{wz4}4vPU)?`ckV8!mD+nSw#0nHx=ZUG_%7R97T$Fu|KYlm^Z9q)
zXP)hIc&_8Jz3Zmt-xT;iVa=+rlBb2T$L0Fg8E-MV{KdFtucz3IGPQLx^3+1@X5}pt
zdH6E+P=@fm{pP9@E}r#W@yYPst=SwLyS8)A`6pnJ`lWdCniEZRpXyhi5|LwAddWY^
z;1|Ecd>8h0@jGs;|E?I5IAs^hCH}^Mxz@rgt4cZlge3GTh8&sacP1c<`Aocm*R?xg
z2{$fS?R)>u+h!JrM_FLfYu|($%gdP#+wHx~y6A67Ytr|3-G?@&yI;E^zA@DG$d_{p
zmcPuFiK;I-ZDhgsdefRqE+!wII~#2MS;DI~Rexpl(+cAyC82UtE!I9h68y7>iLLfT
zt@)FAKd(NCy4TXi!ciVssGD!}_cW`~U+-_`J9j(X3uY(^-*U&^AvRNuBRqD~{n{9p
z_JY*77x&eoIK_8u?X34;U9y$oTCBX;L&cWt56$~KLj+sGm*1IwO*K*BONhg<m$zH&
zT(tNWH_o2IJ&kc{+uCj=k7pT&R$n@Cxl?jdYN_2dA&uPEYu45~hFM))7Zi3?#g3&*
zb+=bzQf%zxh^Ln`r?PaECAB7h^;`2KUr97zd1zK>^I6pic6mJKe0Sw7_R6`e*<9T1
zmm`r|Z?&;f_1nwtRMoPV>6UB$3#>b0S1Ggj?Zt_<+C@I=lR^)@Fk+t6Y+d9~l;Pf2
zRraGn?eff)$1$<ahYJ1Dh5G6_WR{oBX?fz3Ub0`rVbj5%lkQeOG!ExrFt@nBk^RIU
ze~|;%pRuKfTd=5meE+DwX`W(wp%qK*%_kCeEX8ZS|A<fe`(d-eU)3!Iz9o+~%gH(g
zGhbbtQJS==%O~Qo8K*#QQQtS!dlS#UD)!`?*mZbyw?+3k)jNz&S6cL#<uDz$$rbQ;
zCKJ>@>E~_j`2p7zIF;r`i2uu!TF4_b_r1&==P#Kj)8#8Ct~ui6d+u9dXGv(=?FjMK
zU8T1Y3UV&9H7C!u`w{%J$9m)8jhWVEE3I#TIk;9Rx-2w(qs5VMb-sx2FP#})H0<iG
zo-QyWr~jPz2D$SBJ!JvW{t^5yrG%~>wkpiB)n3NmdC_l<_HO9|swOPcPcW=(;Cx+n
z{*J1lN&#=*mb=F3)jMmh2{0Y}aoe_d`h%@oIvX8+t6hJf7UB1H-UjDuuUcFbY?kD0
z-Z1-?ZQ}GVlV7aiXMYkisg%=p?u>9%HL0Te^0Phex4+NGPntVJR>jIN{ptaK;gtt$
zuAS%H?Gp9UGI4qYy9je;z0lP4?^hM*1uqSHDk`U>5MlXd-ZJlFJKaJR9^Xlb*!fs8
zT;i%?z?y5@bhP_>1LMDzEI#)*X6+`!R|Z+v{O#MHPI_@>-qhpi6PO#U__7KzYZ({X
zIWarkwT?fq;=GLdoMRTgJmEg_Ld7z-*e<_%X~-tbC>$JpdHRQ!|7}B+;`Hk5yYxS>
zU6@_rpHt*M<J<X{6SQlDb&~h-cZy9^Oy6yBq)mf^?b=6SkKY2tleKGvUmYm1)8T)4
z`$DaM&I8%!b2`13adatdne`!<v2%Bknt*K4v`*)mj>Z)CXDb@+)V;s{M)e2Z_ur<~
zouy6>wVF1n{QO&G>oU);;@nYH6BX@+9?vg^9y-$Iu({_-aS-3d<)ZWQuX?+!3UkO^
z-p1{=QgGb~z8b!Bie_GC9d_hDo{)1dagNr!)Yn$?7q<U+QDk#>>HL587oSd&G2~&o
zDD4|5bpLm}jstUK%EWNFj9U>*xsywSo|XqC{N2o+bYJEC!p$elmTq0V%{TMyikl}s
z-jQwkVP3RH_G{_s+kwkf->&%V@hvarz3h=k#V5`GJW89SxZU%6!UQ8z5B>JA`QC!D
zNj#UtqH6R)o_x`hSdvp$Ey%huj!$Xv^C@Q?b2=OEygR7yw0MH`6S<6iCbQl*KfArX
zNPw;Ke#&|M6({T-P54t4zTsCx*M~{hQ*>*18cWnFpD!!@ASrU$$|GJ_c7MkM&7UU}
z8}077-%42)I9c9XaQ5}%EVY};3Zu2M{puWDQ<OFzc8J`)MEB}e?_D~3y(Owj?h3Xx
zuUhPWEBLEol|xRnpZux~TitI5U%t5bR?6F#N;SVv@0$KscjtsRx8twr{gz65YIJnE
zL0e?+(k<fcS34qH)OOxi%bsyv!ujI&$#<8Yl&s!k!v65$<9kbPpM1PKc*4HFO$H+O
zHZM8Xqi|O$?tbh<vop%CSwE`sKiQh>DDdN=iv5YdzpQu?E`0ZyeWz&VqUOvKtx}5u
zi&u8)WKKWnb~bnV&buFf7zHx#R~7G?ss1~AdZhb9XD!RgueP52XnrJc+6R^8%}Pg(
zb5#kfxUaH&TkLzGR)^UACjwh;op{LH`0ecJN7tY9&Ev~4Iw|?<jF`k1-)Dbjz5c(|
z?N-wBi%Pj0*PAA7IA3d&EqhAF*DNoSceCR)>7{B`SzC@V{L8(c5h?S)ujp%C%QN4|
zuR#LR%4>9<y;v}DvT@Qx>mnb;52sFSeDy|Q@~PDunSWGV^xtE?Q?~QowqEWhd%qsz
zZP~E?QaHPV;2m~Py(fZtYgAfJwCptQbTFtlJEG8DxRBjaUS#u&31xG0H_5jMT1;$s
zxbeb?lg5iWdgeTypksIPeWQb|x5UJ+zMobL+-NTmYIpcL@iQOGtyv#GC_iRBks|zU
z>+yYld%oRxZ{sX4Q`*z!c`G?yeT5iD=Xb-f2_})+E3B+fL>-J5p8JNU;GD|yS;v~z
z2*>owrp!&q-Q-tLsbd)Eqovv3oD+Q_+o-X1;g7ZALCe^G)-P+@s9?16i^HdA{a@}|
z!Za4LEjqcDsrGhmmPTVu)s<6UBT}z(?G`v=v){;3>zZfkTf^T1{})7T)0F8yVfAoD
zbk3`?wuD&q7{!RpsspmWw(Nd%#bVZxT^|(qC-Po)7ivp7{AHqx;_(vC>YTrgbM7-1
ztYPL9I9gdG-&Fr@@^6o80@6=s-dP^D{f@Kro%M}Ai>g<iI2bdrW!4?ltvgvKdX{G2
z;!Sdn`&+;LP5b-@MkoKvAGxdhD>R(_<H^sbKHcEn{wmx(MPQyq$*hDpk53DxZ_5c<
zp*$<*iEj!A^9S>lKb#cqtFkoic|V(#sq%Ch^Ta@9`70+lrkO>QoDyj=-_+WDz^-<(
z=dFahhrVWSdLPX%a(m{JTWYsk0^4jhdoJzb`=A@Mm(w>PyTA7S_Nm8rw)Y+nV|ymI
zZOJXG?dur({%<ch?tf0QGOjsaV4jQLkBb*qp3Lq%{WMc(r|H4|ycJEmZpX?#F*|r*
z@)EJW8-=@+n<bvu%(Qr(-SkrbWTQ;fhXpeX9;!T4i%pvlb))Hriap<<{GhwcjcbH|
z+Hs_usq&O?dG}-&SEG~n0{?C2zBj&zE#hra`>E^^Hald!@3#C-#|60yujtM8OW7rm
z5v?Iub>RLEAEuN0T7{ncIO3a~WPC$uXWKmmll;l2zbHhjUUv~I{=d&R?1<%-BeUP!
zo?>L1_RDzZ5+D9g&z^eTJ?^;elvQZ5mA!C;Jx5LSl6z`a-!vVKYA1WKPRisCZI+qj
znJUlmy;1gwlS2MxX-9?APmEaZDO|n&@xSE%Gl5MX1nhllygsyR>`JYwUSspGvU*K$
zqxF}l`?K`l$*tJD?|J;$53augxDE-tkk~N!z#7X&CW$YV<uAJPjdjj#+<O1+>XrLE
z_U~5MnWJ*iv$W{u3C=G*tLA*}{!;KE>zuw(V&1x9%e=f$^YUJm=&P>Fw0|qN&)V*~
z_m0k_3n`~g?muy)mdEh?@)gS!wz%$%k)D(jxRYDup>f&8X1jZfio`XPge}+aQ~9K8
z=pi;M=8xlo6HgxLh3r3hv?aad^dqy#(pQhnBDd@Pe6TV%cBhlbMMIx}Y4bVfNV`ll
zk5%YWs#%<p{hVd%d#_?O?@ggEvy+0GjZWNLWg@<7)+)8B)80FlWSyusJ9*dd<krO;
z{qdm{4Z2$S_f+!Zr-iFO|6{!JkJGu$nuj<GU-%u~X>v1s@@kKXdfi!~6QxqmO^A6g
z>B|SnmRVa`9VNuP{9_%rc!moeSr|}LG`Csni|@M63j$J$WZ5?6E6KMyy<TYLaXY8h
zEBFR?@Zac93vOl>#Wp!zKRI=>OWdn;ru(nnDcHE~k*S;fgQZUVNsi$99)6|d^Q*V<
zT+(mPvhgT-KgBg(Sh9LW&-vFCO2UWsn0KwL*>C#Qtk7ebZWI40rFjSbC`_nfGH(7b
zbJLC(KBvjuvP?JKHpy^IvEKQ_^rlkFf`IKD6V>w12sAt0)%wD`ajlcS$gO=`xwCUu
zU)WYD?ZfN(V_&C?UssM`nBMWyjjmVB1s&8TPd#1u?)?9q$xr_OmOC>$hc(XKW6sNT
zp~{_dEyt73KU{O}Z|59gze(llo2n=OOWPT?S>?)h7lD?A`+hMAumsl&#GH;2dbhg&
z@tr1_cigroT2tNy_GAlqDdh(}{S~%k`4j~<OYV2<N4<o9m~H5+mj7~d?vCk+3r=e6
z<2t(d`?jP1)ZSRHI8gfNnTcxUl{uZiPbICYT-a$g^MHPMmyK&x_)~e)37y_QPR1Tz
z$#c#)<w?-G($W+jgNE|9g1NGe6+(rkrdPXewFEHkt(>mo;b+!#)1jjHB>T}lT~Ea(
zgzE5jrHVdR2|sd7D$wKF)HUo(pEqTHnh;Z~^t@{3k$Xo1TV-ZjT~$23pEIZ8(Dv1<
z)z-aU?s)FU)ziY)mYif;Iol}eLyy(}Ss#vkz4K_&50)~gRlkpMPFFLUxc5t;>^sjT
z+pa0qYI*oh^jz_Nh5|p+N>%oi+xRXe_g+z(-BQiK@#w;twUJqubS}+mw$Yfg)Hmy{
zZj$iND>o082AMTFOyw*NY+n1Qdf|<*kGZ$g<++tEnE#HLa7S#?3;Bzw(^4&Y4qcGF
z+Ns|5H-8O-;=TCmZzZ^oo)^@qIhDF{_e#&d9ZS|NQhQpo;#Y*E{6U53r2(y%!~Vo_
zDwYb(Ve3zQpKa8%-fQA#jUUsFI?gG*cPMPmlBPLoMo$*Dnzz~I8ueY9?x;13iDTY`
z!&;jb`cKi1(faH4XUYnHmabABQD(zmE9IZueER#^w>!uE_ZHmH=gvO;F@A2yVq+%H
zr>~Vx8EyM;ChE;?zsc^kVK2k~o4uZ8HsgD4>aJ^<j32vpNiA<}{cAeYJZ}4*uy2_R
zmD}}w*Up&t<g2QDig{*b)WN+T^^wgSUp)7JP++UQ^lQ=HPZ6hYs!9L4bX-mR$ge)0
zAUSr)*0=M&u9Z9BxX1o))X)7KSKrKfy{0Pj)2yC-vCM6)TCZ;3OZhUFb(8yj&FgDl
znN~6^UjN-rdA*&O*<qI(@ynuPa&?N##qLfl*FSN)hIhLUzfmgBtCTBy*PmQbUD~C)
z&sOJifUErM8m`)J7xz8CaD1UdcDIt-<|hmK;<st?`xUToEb_EjS5&5&S}2hERAgF;
z?6r%#G;NreZm){I_xfE<Lfn&@H>XZrQn+)nj5%F&chD2NX@-rnUcWiTlOp%=RQ$j1
zHzw!5n0j{ZE>**<LPzFZHz#QySrOD@ZMEUwtz#!+CZy;3PH5h@_c_Pviz_|iSBJTs
z`u(c>j>_}xDz$5)c!NE!9k<dJ4j0OsXTRXj?(~4w54BF#)u_a~3#Q+d**<BGx9M*)
z!)rG)3nx_HylVC$dCoSelas!Pt2xApaL$=6A2RW<7Q1w(zo4tPSLx43+&$B7$KFc2
zS^Z$1WcbsE9!90>ld{95YEC~8UEiJ*$0z7HW%WJA$TiWakMk3!PH&E$u=nOy?bFRY
zhMyYeFjo4i1bkBwZ?#;=rg^-%N8)6Pz?0m4>VGdB622CwGbwN}|F4w3iCP`&G#^h`
z?B)E~LVe@JWOk;t?z0r$w&qtQa#`9Ht+BaR*cjYD{kUUK>7Rx*7ay0d`OeelX!Mlr
zW_xUfpOEJVj~G{ZhUG5nA8zfioy1-A+vwY`Qc=Suqsrs6)g$G<*rv|h>bN96V*>Yq
zwbz~5Z@FJtJzYsT&9Wo5>n8W7h}8N2es4HccjLs|(6Y+9v}xRvid`ps-PjyFkA0`f
z>nVrT^_bt)o_eTo=hc*h>26zh#O+t>pMAgR$B~t(GiNW3nzZo|*NNHYrM#2oZ#ef`
zA>i3wn=cBdjQB%K)>QE8zSuKu`Gw;%PrrVone@g{Oyu`dEzQaAc_JN)x;%<Fw>0|C
z{Pg3Thv@tk)=kH`?(!Lhy<kne!mY%mbjO?bN!~o&-wGeJc(?HEbi6lXV)}}X&3&94
z?TZ!ITCJWRI{i&ydTC8_fdtp2$u5(QTg5FqHlwRs(>^dY>&$}o1@C^!c=ax^>FpHO
zwDI&ybNsg5qo(o0#IKeNcIlo0Pi@{!akn~|Ix+OQMZ+1X=3VWJ=g!~f@6aRrhWDWD
zLY1AqHDR1AuXFbC9@$}e<z`N;nAC^Nmvhwio6gLLKhx44C!1>&J%5f=+_~){HR31I
zW>)hZNS*oH;oNZ}bM>t%Myp@RJU?>%!PKV`;<Ixml;8NK-Mw^kNYk9taeg^DF-8aW
z$sFI|Q6_w9GIym}ZMQ>@<=t1kHMjhdrzmRv*K01GP^n@$b+1g&j?H#!qBeUletWZ~
zbcvy5L&V(|mZBH5w405;Y|dTnt;K9>Zq8acyXmaL2hH%G>`Lu?zuV@W`{t=PE8y45
zPh2<Tl6(a!jkeY(+}qz88h=-5$M#827JM^mu$#oQ)A8CYE4GAt4E%3St7bp!Z1!IC
zXkycz$lyw`$hDp3f!A(6Eo{?iVlKU;ZgwJD>2r@$UtU?{^UJT+GR@&X!gqQO?@>G7
zdE7_!wmf?h@oj?CtSLt&Id{Cew(*=|du`ezk4@s=ccmKIo$)>O=*J?y6)ewsu1h|6
z_5Sws<Ug@u*V8u~%v^Bgx7?RgGhJ^T$@Hz`o3x@pIr2jG<)tz&OdrR6a`;oI?|GS3
zymqq9^-qRc=@n;+g;R2?7E7m`e|?7ES8!&i<qB3ymT#s7d8wAJ9Pc)(i5JQJHkop^
zdPU<y&Yhc&DZ0)1RMYrE#^Zdl&X1Mml`CxavxcAeTzJL!(W#^(XESC8DtKB;J!#PK
zN%V|s{KIK-!qTZ=-)x3Cr%hMO9MjC%H2ce2p(l$9j$c=~bR<2rvTr-rCVPRmuT@X9
zCC%PjHgjIwc`eNgFSl&6Q2Cv+_4L=XC9@K18rR%>HRbj0eV2WUHgRl{zipNJDNW++
zfjG6t^|PMH2tGL%_jA2U{<mE>UftALRV;I|c3YMFyo)zqg)VkXTV3wx_VM%t=>z6_
zE3O@R(OR?8VzSltNxYlHzJ|_ZI5%0jvYh4S<tZyfUkXG9yHB>vpY=F;f^~G}OqrS0
zg;S@UbWGC^eWPczT863g+a^}0{5KBs_bN&jHUCI_tmd1x{LEv+`_~q-e=M?P`nvS^
zyv?o?{uWNXuXbv$je4iTndZd2nKd)nncuM0UT0g`EED<j+#(s(rY~zn92WLJd><m_
zy=ZgrzAY-(zQ<1R+3UEc-q<m2^2$9$QzrDBnzC6YMR(n;r-cGfSM|Dod%7rA-MZ<+
zvN^G8?1oLBESf$jTR#0bTV;B>N7sqta(>6|sT?}j-|*tb)aN>#x~F!^vl#7Uy(w_w
zg_z1|mlb!X6rcXeu~nY?{wCXwpmU|Vn~tvwcegfr^Jvv{<`|*JtG;g#Z;q7v6xwo7
zhwo?BqnN48!3=?Vleio06&QRH9eIBJNsj%yAm6Vqjbn1higb^;k2#iPi(S1Z8JO8O
z?f68G*1jmdY{zpAcMt45vElO7N|pBQ3jMMXZuc2BX&#etS<W0kVfm?DbpbczxPLb%
zJohfhHLy3<KdqcqR?;1B&2aeg-_^mwCpW!c!tk_W!amJUZ5Nc5@89mo(~_w9u4mI7
ziD^u4*!~LT_0IKlc|KFdtSRHX_jb06D%&C}9t*zb{Ce$3fJ<b>^urSc(?7?G{eH3_
z`f>K8zZ=g7i?JJq*|~Q;F}bls=bO}<SsEvPNBo>}-0tA=cY9fsrW6~?v0prV=)2P<
z-EWnwOueP+9ecT7@B0$5UrJ%tlbw8<#CU7AcW(aRJ-ON73X9={Vomna_gCJk=AZJK
zH817VDdw5Rid|Y&E5nO!aU{(yEj29^yEf-V(~eCA_uftHdbV3cWpe(6(x2~if+HsE
zy%}7`*k$oG;#rSEy4LK5Kc}7)2tMHbxXB{vrpPy5OQY7mO)u=Pr%p+U<YKxg>l+g&
z_-+42#e+{ue_jn-zPG`qWeIQfv+RH_mJMAu-v4fxEs$_M!$*$8U_!RY<`pM)NPADH
zopj=EU(+0=&u!8yyIm(-opxL!{<Yn1g_((&y@Dy?7q{6M9bRZEk$=UX>9Khbd(DNd
z9&-zpXP<02pCdj!W8%VGHrLuTyGKgGo6Jwhl-L?Sp8QFXVVfnx;)g3;%cSSc{5Uf;
z@=0BZ+S_$LhO>4|e$&;Tq<G?{YtOlGv5%+bFFtYXmsm>9yqlXlIOgVOG%H+Tb3CW&
z_g-Qz<F!Pug$xe2CMRv>Sg`t}R*{vZ0H=c4i|DmV-yH9&7x!#h@_w>qA5)N3yX%C7
zTWYp+_)HU8;@Dt0^Xp^RYwpj@y597k<6R~G<igIxh1`qUGq?Nv{<l6jG4jU8{OP;;
zmF_Kl7xBVx#ms|0Y&Od+@s^FXXGpJN@K-4R*&wz``LmecgwT|`ow6#$GFGX4lg@1X
z#-q>5dPq{vMQdNNeC34DBXi2y!j8nGdY8ZCTv_DmE}(yCrtHP^NzOBT=1ue|dLa<!
zZFGF0vt67Mn6eVzf26W==F-|K?W=#*I{L9&lnVyOefjmRk6+6mY)M8|Prl<fwucUU
zO0G+oV<KKOec%e{`?>u)=Nc(TvEDa2Zv-SyNx$*g_4HiXNv)!?`8P%9<=#t3|IXp7
zsM9oes_ZN$i9RP;mWOM2C)L`D9C=}U<DNs0pq5#;!sQuV#$9U;8><(~a6S64NS*s;
zH8&5_P3e})rX8XikIs%#vlKb}B%gKS8nLd0+~WLPDJ2hQi9OWeZ8B*tdFT|??DJeV
zrb{Q;OomtG#JlCKrDqoi{Nl*6=1@-;SYp|6x7+P*KiAFmDY_TenH4$j0VSfstpx%i
z<pMAJCwylJ{-zr6OCkKp16$D>i~FZcjJEpt{p9|QelZEIZypQ&)GM4fG4x@PK~lYg
zj^W$2=M%g+jCu~9IkRC&(O#FXGtSnV?V`MlXG*-(lu!_snOwVls!xH>x3k9CSHibd
zq$O5zKgv}X?LI44bt64Zh;Ofgp68OcZvs=wx-J?xUVCGFLyw0$d48bxqD$#(PP~i{
zHa@+%Jx14G;a-`@sq0Ar+?N+e-i&a)<rh}Q^U5(^{c~S#Lzy3A$r|oc@5Ju?arnh{
z(a}HRvctI-#xrcTeexCC7<sY4cWtO%TPgnrg_)@<EN*Q)^XZ(G_M^ooa;)Rz*P1<^
znW7=e#9`Qc=!J6FlRI90X}mA9XFTvya;^C?^NrlBbp4A{Q#|IMl*!JYa`B7t@fmt7
zU%&72j$6A}VY>(O8>U~zlQjFbm8*M9c%y%7x6-s5N_G`)MlW9|PF9&*S0%)HGG2y%
z`n{vwXQH<mHXrlYbc;`A{=#`PJ2^AcRyfa^IkWVN_w0>I*TiFImi|fEvUyYA#K>jY
znG-ku<}tHyej%Q)g4ri^U)kITQ#dDB_SN%W-nzLjIV@`aK|b*(5%WJP-MOJtFC<XD
z%xSaX(Ud<DeapVjXqJD!GV-P&`|e#=+$Xsjr;FS;WG(aJzQU;tKd~~OgE!rcj-R{A
zy-@tYE767RhXVQ)cT}>5@Ni6DtFXF5V?9G9vr%ujf%c)RT0s-)^V811{_k(kcl?-O
zOI_`CaXX3G$xA=a$c^oN=Xzs{Q<KBbUmm^XoR_3i?iq0vbrqPgd}R3@CRpOlv{&iy
zXV!*0T$~MDd<oaww={kH{hIwC({sa}Y=<ZN<ooC)R!n+1HLkAdNI%b}UtE)3PK}wO
z*T`0Ua$PNFOa27s=bQI!+;?bB>7lj#4&Q(ISk`$it0+7FU1W+v@ulxluGbblow_f{
zZ>`<t?icTjBVIPiq_RyHH(dPvZ=_Ip)%}^@uG-ppJd=H`to#1V?^C~Hn_87m?3$!5
z$GRn7;LLgNB^^?ynY1LH$W&b~N<F7sAfo(Y@$2ThN+(`0Z|*zsWbTFY4$l@{ZQduC
zl3731^4PWG#%y<`mrPFG+^{wOw8;B+_Z^Ln8WyPWN~f$(p1vq?z4E20e4_kLTf5Q<
zCcWuzlf89d<AIN1d9Hp}SJcfE5m+t7I&tQa)ozZPHYFdBa9n2d%zLZ5fVNS6`lb!Z
zvp9JB15@&)<Ys<5EXt4~Zs~TK`O*>o*~T8rY}<}6NIkhF`PrpSDVfPamo}wLORkcM
zns&yBjd!x)ex)c~S(ekSi}STlY9)0~TOMW;ezw`+mz9;6?)vp73XbhDI_vk5uj%Qb
zk2;l?m%4si_O!-z#ZR+2ncx2ZIN3I@T!iQByMPPN55K>aUN&*z9<^;o0+xH8_01Pc
z`83UnD<@G$%98D(o?5RGlVz-r@2xW@_rI-fsLwU4o2H^v@4++Sp!6J#%__n2Mb%~<
zbChIxI!jXLZ|$BU_M`nve!&-}@9jG8`yUlguzjNV%h3GWS*1^tE{mH^RC>+0ZT1@P
zbKZO8C%)83`qu98>YBIC!5?uK&hzl|x$OGlnHGQfxN5OY3g`Y$m0fH8PPp5Dd9zaU
zkIIg3#a}m1np5}9_ZMSzSgz0cx)7B(>xM;LdXe=9o^&x8xli0HXOtz-_=f3vIrGYc
zEDPqP{EL}fQLVM%U3Tt<pPXOPnuPrS3y89rAL*KM=1=>bnH-z6_FP`)dFJ-?tV!%T
zetrV8UF**2OYYfLv--f7_B$`Rlop?u)}C;9hsx`!r)?jn>m)a1yjQ6H;ap<iU^(5V
z^2Ee%Q>V(NymZd_sJ-Hs$}ge&Jq72y`~E2^n%cQpeAl~l&(meb{7St@{hhC+Ji@;D
znf{o*X5Bo~B^~w&+VvNwPL-YXbT+?b^SZE~cApu|ZU=^yP58|4zDIBOk!$iohuYoC
zrj;>lZx6`qxiiOM33p#gT}fZ7Y3B=PvD*At);`-O@A?$VPM-g%dh7d@d=<-DPNClt
z3(~~-H_1J?TevR&ecR**DaUs>2>0w$ar`cAtKNB{qVv0ZT*|qx6V`1pKK0?%BE_3?
z_ZsVGK3BQ*_i0LK`;^!B+>-u^om-iGtE$tx{^|5DyS0;I%9?LTxbC_?vFGsmoVZJG
zdtG`AmH8&zeB0Zyh-dP42m6oQ8kaUi$9?)-(kYeyG=Aa>G5x}4hg>I@Oyb-#d-i(o
zT@%GP-`>o<ym^{a^}m>jAN=O|+HAY{Zn4VeU0iQJcuu_SUY`={DeR&bSbHMwZ|Ki^
z;X-B?ZdEXDYG?oWRp57}Rana2BiXZAPhL89?X$jwVypRKX^q?oWv)g&AA2jb6+X>v
zKXco-dBGOPTb3tp?YYLGIr+$Q=WW~8--vYl^8EFr%lj_;oYY}+gl+#Mqnx*YnBMOX
zyw31;*NKc?36&#!CnkIp_-VPxdzoFzC7xeJO=Yf|rbN0g_q%k?^V`q)@2b2f$gnJA
z*tJyS{oni?k*8^0uYRq$oEzZ8v2wTj8BMD#-dET>`z1^ZT7TF)+UyxIx2rt0zjNXT
z`_8DN?8kciXKd!1y8Cu#u0xCJBX^(K27O!Z2Sh*NEpbi1>&s_*=*p25m((9~`9(eo
zOBb@Tc6lq_60R{(w}tb=)Q@eacEvR%PxV=y?0N0$yy=TM6|eoviaan`%4O}v;z-A@
zu>m3T(<1d9pG=baHZ3Jmzfw8=qxqz4uRRNcuIcndRC9Q2WMf{K6IYmLq+LBNbrakD
zkE$<%mKnER?D2lW`}FY%=~rEgzW*u?lT30HIL&`$13QOFvi)uDssA0r(vMHld99lN
zMBDWETcbTryf1jCgzEkbsps;RRcMphsAqapcj0D7*AGI6_j2zv+S<8TzU{2CkS~+0
zMv{6h@781!$?~*2^XIX@W9Ho<TlaU_=il>$9Lirr9H={zCcJMl!&9FPuJ;avf7$nA
z`j5z^`75;BB9u>8aVAZ*NP4?Dr_<ezrT%$slj%dHqLUI43&T^)X7;>JG1UvqbqWl(
z+n?RC`o2@?Jlk(e6#P1s&Mnc_^L<m-7j$pl6!TA_{A-MSIcLdlYP)V87E_rVD_PoN
zJ6+XfdZqjwRTa&a09DhCx)Uo~c5__ccw$|I$wl)p6^UN|0+&a&6Y~>ug*uL0?pL@p
z(ezxDYtlZUD@)wWPW>!CJ?B=7TGCI^yaODn{Yy^Fh~0BZZ*s86LNA_$D%#bZF2c)q
z9iH@lo2r{{mP_=b@Ov+!pEV2S?tOkP-^FUb`lC1MwycF-9<NvJnm0wa$ByyisUz?B
zqo4HFEPb~5?>XCxqLz9a&97A%ZTlg;n&te|x0m9CJ~Lli(-oHZI?>N@#U!Z<8qyJ5
zvqDaW#N0eK(fo&~(V8x0n;o4B)8ZXgaCdpwJ?<zsTpjXe{cPPn4*`}-%!YrRzby~H
zn|Ocf-q!TVjRCv;mp_=OH?u?Zw|3IIn|Ed#BpsD&-mVbV8Sqr;%Nn7{YFbmjePI6h
zbGMtxx%fK!u5;^mFkWLYJ6C`F??25*{ms$|{kert<lawR7@<1LX#P#r4X669?D)pT
zzlO{1liPl!j;-<4(IOia!ouZDf?t{b>QcT|7rE?0hR}9b-HqDieOi&fnNmF8AFh~O
zDE(e4a=yn*j!-B6+=6#(`&yTBhOd}udUnRcxSR9E!pr{O6WZLV6}EH9jm5Eh!Y<0q
znO5T%@V5V%=xli<%fQ%^v*I4zO4$>B?{D?V8n@{OwEP!bY+%3UB2$?hFSypjX5EjB
zMPc6?PxdL4b+U$?6r6u=$+8`)YVI@aTnta@o_rLibS)*~=p;w?MW<c-TKfbRO%I9e
z==nT*Pbbfx{@95(T?+j^S}eMCWJlP`V%A8#k1HaqbXD1EPs}Qw-?em&d)jnELGPy=
z<ufyiUWL2N7P!@8TXRHe!}V#p-POGNIrutnEl4d~|8V-2&W8)89nF<sj9)2PVBgMu
zfm`ni%Lz-X<uBMR*baPsk)|ELSl`L{!YSMAYTm;yoK;)Cy}EfyR{5cJ&+&`B{Q=^R
zhriAV|8_vex8$0oa&|SRRG#PAmO1e(nikcbXIs2C?V7%TcUsGJPvzCsyeH02UtsPU
zR-Tae$N$lqNo#KCnp*F3DnAox^z}sUq4ghf-!IQzreP|0sC3h==`&0N4{Gf%`u$0J
z+19KS^Z26b6WZ&xW}Q*KSnoc!cukQ>)innP-@NF!1<%cm3KQ*iocPt|IrB~no7hp&
zS3#SfRz<EUujMieR*E@3uVhhomhe-nZ+XI+cC%(Yu-ZK}-!S)4)9W{3`;JPnY;%5n
z)1&a`1k-upGvDN2YUxlrydh)yw@IBb4r|UiNNIkF+xdidpWXCr9}dT63EGz_?CQ9x
zbZ_cj)m;)z#-}G{`u<tTvMFw6{3o|^zs`@U9eTT`UY_-ez4W8ktAAFvjpVY8<kvjX
zzQND(Td-3^>Y8eStpAFY-&v1`9twJL*SGU}Xvv(=Up1U%izDy6PEN>}zT$z_q(>Dg
ziZ}XioeWQ~pHOc9y5@Co(bs)9UA0dCR-MswFVbj9SHXU<-~fMB;k}oibd@W9@jLw~
z?oq6S?~y-TyD~c$Os~H7UFgeop_W_k-?H?nnHA2|d9Ui@yXVu>D#qW<E_dy}PhKw(
zFI4(Jsl4dc{G#|Ko?~;|FU<8~>zn$v%WwtrvIkm`x4kd0d2{3%yy1!p<n)h8uiujQ
zP_HOnxH{{a@^{mZ^Y6IrZRyMSFFRq)TT@-$cSZN7%@Pjr>QSrvzFoy{Tg+BZpIt`B
zEDp^NQa|M%BvixyN4@d?#FoalVi9k1Q$pX1CpA~b8++gBOW3U1a`v3<rkscRox48G
zQMcfKpS1Pi$?&Gx9NTQB_E(tPWd0|*f6=8Q8`7(e3ChK8NT1~{Q{CqAwEbMGZ2Jy@
zrq{0+fB)b9=yb|KxeMDLFbEtE-Q2$ZiTxc{ZGnF6dkI0YGd%k|#HFT6irG1B?tXmA
zte)esfJ}ISxL3-xX{z17{5S66c4D7!fV(T0bAHK6kIBFMq9#rKyZiyqqx7lv*I1Wd
zdj8}};i^d$TFqAHb@}FSH3e(V-^1Qlno_&T>u%E7Q*lXGQhIio&(f{oJjZ&mEA_lh
z)8uJqBA;*K*5TcwbdxjoewjYUqbCMQk^ANc$ya;7;fj)ES-wRl_jJ`yk(Koy-`wY3
z(j0C#*U#?jMZFlwvWN0X{!feRC6=AhKX}sinBeP27L`5PM`Azx;`k+<6!PYQg_CT-
zhk*aVHv6U5rwGS4H9NoKjZgiaacalPAO7#AY*d;3V}8-|MXEmT?`D6QS{c02rQS<n
z*Ljg&OuGy=wdy~3@kq4#%>KsrJ5npBi7eAQaaQ2JqElSbH}46v=S~)RvdqQ(ZF-;f
z3Em@Gzs_7g7oRkBt>%7*Z1dlf-{*g1-`)AsdxHM1?k&ulTtBCn1Vm2={NDE?#bkng
z$CZCC!pdgUd8|3PV$;_Auly5l@!Nm$&a$@onJ*!H$lf)(eopD%>1URIJ8swK^Xkx6
z`;%h(T=pN)US8C2%RePz)4Km6DG^8NJVRJJUh*f}%oeg|wY*+fbne>1Z_7)HzV^Sf
za-Vja?GVG9*CJMpT?|#dbFBkk6g|7JuRcqsKKX>)qA50YQj=b=a{v4_Nh(&UMx^s&
z=RB7((Icll%VI?wB+Ej#{PIky@M8F`67?<L#eWm`;*8hg7db9pxb`YC$De=oTb11v
zZUTCdkDjW1m8}s!|3<^~-KX!b?<)66f2-lz&{3eHpzjoZ|ALa!^Tk&*?nI<4yD;4&
z<=|fp3+Wp%9m{s8YPve#3cNMVaN&K{=fCx;L`oWZMc;~Q?c+Qq_(0=_*M^-hWLa!4
zEe(IGAm}96;JV98|MrBk$Z1lJy<0ykY*{Mjs`SZf){od8r>e~Rt?N9_M>O*XIp6wi
z>Y8<IRm}vB1q=K4Cz?kmTb|6@zpP3?FM5vOrrZ6e0xdpyuAS$yy}-KD{ha4%#}sqT
zpNwVQpHkI3!;N?SU~Y+bnV?hDaQASI`o+6fi#~dOdm~Wt#y2C?zns5g%j7o_NBA~W
zM}01hOxnFzbniE%-OEMymI>?3+_pRFqPxBjW5h$|H|xxFYV|kmzV%18Mt@VC?9!vV
zWxcO;znNFICP06Y_F}v3vs6m2p8Qz)ym+;z(e+uEw)aRSN#2?Mz<Z^<S@+zQ?Pr2)
zT`D`-&g{CA@P=LZjMEO8B{9)wCT+>?-I4I~+fEPp76~J<>&+fZro3Pf<CN{bxBH5=
z(Ww(>eM@YYUpq1FOzNA^M|YF{vAEuuYMZj{k~2^KC4tqZ+-=V%26PK->+zGh<Ry~-
z<%;i@S#J%O8ZL>M)%rn(Z)M1)7gg2KbMG!SOzqrW-CA%}XVbeyK?+eS+>fHv3*OEx
zzsgc^;#bEDhpj0OL)+&~)7&~gNvHeK)z3DkbLXu5p|-z%%KY&E-+%Yp*Z*-X-gmvu
zMBD!VzPf*(7xy+7#HTFH)bIND=e@h|%j&NDpXHwRx_ptYnYW%LKG$4)c-a}&6)V3i
z_V9ILSjJhqKU0;v?XtY(5w~1hZ~oj<Ydkj_o!9nEv8}wignwyx&?bQ;x|zvxY7Tl~
zp}!uky8ghsgf~4jwIlen(uAE%rjPgaMu|n8f0+I3^po(j*ID<kP`s5T7T0Kec1qNG
zWv2a{YhSJ9KdYz|`Q=b?&eGaBbM~|BoUqzSqWrE(o$v(xaE49Co_+rDo8_SX4aJ^k
zzdIKETf`-4oib^cklyOGwKWz2VoQq8yik4I@=L@`uw<Q`v&hNaoNg;tudmHXko+LR
zD{=X)rtUqH?>7~D4&7yWzisD5KFQ}(mf!H|yE;>EeXX~CWC8!<T}8W&ZIM}hRLChd
zziDUEGJ($Bc1<f^uU@`e;@z&!b-VYh+rHgym;S-YbETGC<B@nUqsn_lO2_jkj^wky
zI?nXHn?FCiQRBJ}*Gfe@;a?MWs+DAFKfhw#FnLPTZkB-OlM2`;vaVjc`^!;1PSN;B
zh2qCM>^Ic~aWNm!=)6`MoT+%tgnPXJmwCr)<{jyri$sIgO=Erkt>M%p)|0EUzrMR9
z-mg;P_~>qrc`bwC)vXo$f&NOan@vtO?a-dJzk9pNEibW;lV>>ayxhfED3<Lh)3`00
zJJn%<d0}<Om&?DZDp!j%IpjYw_0){Nq;N!$<BPIr<Gm$CVlDR!l7G)++Wb+igkd$K
z;7>8FX|11Q6<Z?jv8w*#sAo)fxFga()mup67(Yi`PwK+_m*HnG*>FdT#d4~Jo%mtr
zD<oLsqPXj*x6pa}!i$p=j$Yiy=OMO8=hCJdTywoW9NF)%oZP`VsZdy@`F7UiePT%$
zFLpa`@Y;96Dwg*n%hFq(8gZc;GU}HkRqya@UDJF~V5R4+-&?2d$eZT+RH3X@K&Vi-
z<*(9F=QEQH9@S0U=4#QYAgq5#tjXsN3;#8bT|3k-POD$Mr|Lirx7pPG2$jdmxl3<y
zw-%gy#Gb(zXUaY6k?V%?s`<uKSfy|H7OX3Hv+N(Y@LRTs7xqCL7<REIbpLL+B>kmb
z)InGGV9eL|2EwLnvivKJ4a+l&&wr~t(tJgKW@n{nAV=(!rQ38`7?bXo)Tr7Wd8@#B
z+Uftl8P6BApK1NC$aQepjs1ZW*3VW*Y~5DCrt-#BrE6vArU_{ir_M`KEW6tLCc853
zRaK#Gp!H{+drwq!S3Nj!#<wPQ*}2$`b*r}roOG(2WO;CT#I&Y&tM)C;5__bh;XM0u
zrH5-)UeI-p=-Y?pu}WsgIA8FVkGx+Y|8jm*^6Eu)T)Z!sXFq5#`}UE&$F%F1fo{wG
zl$ymnE2EDcvuj~-iofvurAX&NflRT;!>ipCr?swEeS6F3+wSETq>5Hg<eWC^=rs=M
z+(LgPRw2g|H#p@EXt#;Y6qw4g&*+X#(3%rJEv%d-e3|`0N`LE#-mH_G*xb)B?Cx6>
zeZudN?vWn~F;36IUj_%T<xR9(K8rOqK~J$GX-;1I7Q4i^D%+N3ip5n<&+e|{^im8}
zSi0s2cc#bc$N(-uzKe?^JapeL2<Kigjdf~(Nv8NiofR!X9?q&EULLvXf!q^|g!*e1
z-pp^1Oj6BLn)1vwN@aq9dtA$6fyJ_u7ep*$NfbG4Q*`RBcLnQ1)l1Fcwa(p7HmFa?
zZrw0nOJk}#gHsVhw@t^z)l=$3xG%o;KDIFDL|&lki9C<F%yk{QH~y~R+xS9PdiLSf
zQ|{KAJ-@K}&A-i&E82T>%Q;;Cxvg7XVA8jJ@r!AZyV_51ZK+stJlFGRpPO+hd!|f~
zDfikPTKN-0ySmC=C)Eh8>Aqqdx_Lpv+MG!Kyo~jHL7QH1t^Oz`vLR7$iR1&v3yCJ@
z9X$gab}88^&(VCbL9b4v>w>gbm9WSJm7p78Wha!1dY*Cr=rTC&FyCo~+;#nhx>GkV
zn0IEPjL;vq?Fqm3cDNTweBHzON^|%A8DT${xbB*e{O|<t;(7X;W_JcY?B{r;xqId@
z?Y4|ght{7eyJx#xZ@Hq;Q(=4HovLp9rLY;hsyU7Cuj`05v|sC%C-T*#EBxkC^@$vp
zUvXVt(<UH$WWDYu)oo1Q?^^d&{dy<jZaY_5=gY45+X~jKH$TYqdbjShD|IHF8*1d%
z+8_F>@9|sc3+ws+-iNlhM4wobF1}uI-;ya4j9y=7jXm&rz2?VHo9=}a+<F$j`R+Xi
z(dR#}Pw1NT`Oj;GQt#OORU(F=R$VSrLc{J{-4<c%@q7L|tCK}4t&9v+i>nxCy|3Ts
zw)pUl;?Sq_%@h=uEnnQSe2JWa`?p`-2`u>wctkRms7Wl@%slNSWA;HW3BNw~1<XfZ
zy;hyFQ2C&)(fyU0^_{5;GF}VKQd&^zyv^yh-T}rf(H6|#>-8_rOT5H0dA=WOxagn$
zH-3EYC#__1`{TV#?@ztrt-!+2gX>RRX$^@zA*b2E=dIv8eP;1WtqC)WC(3M!U{?%f
zwJKh>bwf#7MT*$gL;Y7mR=kN$Yumc&z_pIG`<HxvTF-TW?@$?A*5(Uq)9$9Z{mt)r
z-udOvi8J$GZZD{@Uh?d{s*TY3L(03NlHSgD53cWXUub`9jjCBuea~MG&y!VQT|IB?
zk5(PgzGw1J>amzsquj>-b}ePyQ$0?{Ngm!-%E{w!@STELsusgmSEG^#au2r27-_^8
z@y!&f&`Ir2DHC|e^p27Fm9FW*72Cf=)bM<)RAbAo;;d`2Qd`5R{*t36qQ0ZIfNOmp
zr)lxw56Z@dA+855MSkDdcIJq{k`w%I<ctE@^o$Kv>bbs8IB66xbLFF{Coi<;&0P6t
zmekyxNm?^kO1?a2YuA3xD%|(RFTof0JwiLrPMR2N^x43O+vUPxoBX*m*&o`oRvi$U
zTGV27a$b|b&xvxI+!p>&&QiIz>tDyD=rp-0-f40n;a!hZtEcrmeSX(+duWqv)6sJU
zE!TDLZVfzU+v`yqSH=D1fz4(`Q*I&gBNJw|PQRif)2U>sKc&i5ZlTbRiKjNWtaH8+
zW#kog{W+JX(s#uh&5^rX>RqZUR(G{%?-!bWVgm2>khcDeHcQ_3t2nNec7J84Jr$GE
z8{*0FQFrpiSXZTM%y&YCtR!U{U*0tem|NpGwe#B(Mv)t=W}2<5gl11^N(nhu(*5m+
zg4yKat@TwkJG{R2C-n0#_UkKoE>Z4KuXsZ>`)fhcr$3Db37jtC5#N3MPsQ2J+_HHp
zul=R90Wy|#o8Moo^xb(tdHWkVo=na%>pv+I4pea3-L-u0!~1TcMwjyBHG*;v&+z)~
z+?cXp%aduI;ccFib@k6q@SN^Y*RCF`9GnxkPx0<V7vCSLVfqti#%-MBx#@Z_$6;M7
zCdnOsyS8*Wsaq;vX<Zzoq&#co2F;~{FIH|`B{KQl-Bo&L_C1Yx74|(ZqUrAR^;0Kk
z&YO6$Kl9Y8M;A9&87$?yKK+XB^Aq<Jcgu0RZ%DZxaMD6(>LYQp+=~n=$`7z7C~TXo
z{I%oqX13SX*KBo994Nf43sP`>{<~^VHdp@pO?Q895_%W%X6m8y`%=rb%u?p~+?{^E
z$@x{-U%{Cdvh7%{F3g?SeSlSXM?RyTRpa4vPc%;JS~bn&x_wu;fb(BRS%5%4yM6j@
z{Ti<a?n{EZb{}zDq;t-Zt)ROk#_$01wYkY}<m)E9)D_l<>MRT2_kYKMcQU{K2_O0`
zG{<RKMS{%CpG$5y{SlcEofEZ<XNsE6{q0UK+|~5jMCNfmx#3h3J~diR@7#uzXXndz
z3&d@YFxT<#I+t_uTv^E>shJy=EIXv8^N{CCN^R$RAzRBuGn#bwWw-eV=w>gv5Ni||
zV(h)&{yl%eAs2zf-(Cyz8zlEfo$R?EwynuO{n!GQr_&_&3$|W(H_f-G;)r=f|8<?<
zqZ4><NBT*cT>tk?aHV(SQDMcDI+1ej^9%0=MPC=xyO_D7DADxM^pIn3V^UR@w&fJ+
z8O(bxbT{elIVY}2<0nUFD2cyGm%1kOuC07Z%iLVvyn}KN?x`9dn0xlYk}ZzQrpoBA
zm76Q?p!iwX`@wT}wS^ltNmlNXv|s9!R-$}On0d<Li@SbC%t=w4yl)zR1Y72vvkSyo
zZJ*y+8oi^wv@g4TYqg1;Hs7DWmGuwqa674mR`_v>N4%bPj>nesM~U$h&a%WkEonL-
zb1y%cvq!1#15bL&HKxpCDtCM2cQfitfAKDDhl91ox93L%nRmPH>Y5RAEi!v<!Z)SD
zjW6$5q%4fvq%K}Jue~6=(}C;Hfi>w1MOye`QkLIfHL3k=dZ2ZAeynP+knW~kb3I<n
z3ctsA#z6GJw4c1{H@>V56!|?x`QD<ry44mbj{i@YEtQDfWG&prxncL`9UFIP#5PS%
zx-9EdX|QIq*1SnIyZ5zxj(s&rA<}{`UA8?XTt9H0{KU2!%e6H({tOLao%4R3_qBKN
zKfN!dK976OG-HvtgPyH;lR(U8WzCZ(t2hh!(_I%HxOu9|qI#`BWKnnNY3td6@7lJ@
z8@ltn^!}hyB=v1|XLqSUbnvtXs@0pA12u1aH<`YI`_1$h(aTaDcobhMHpjd4edyVF
zbiJW!pw<unYKxm5dyl;`{<`{<{d<<Tb%G{K<ec?yUV3@thVP3v|7^`f_*RN{c6)Lt
z#vQtFf8o@_E8QEtbL77GKWy4{cK46VO+W5meyr>n(XDs0x@was(`BCZB6q~Eh+aP$
zuX3cewzPBa<2``_dVw!kjFwCIp04X({Ml>9tlY@WAD%3np!-*L|NmV++oWE+lwb+2
z2wQ#RWr5zY;96a)x!vm~XqwueJD>bcML_T7=1P~?x!I~;GekaVTQKLXl)bH5CcHn*
zyo2S1`y!2VxvwXBUt`HDd=WAKvEIh=IhU)ag>au`&@B^QefX;4szcwaE4b(X&DJ`;
z$FFbAs>j84^SoDh&&$_8koDt)-@`qXyDCCAJfEn)aZmB?A8Ci4?})uTHT>wrTIQni
zt$Td>zL?dgEPqilZ`0#tv5(4^E3Yp5ryM8hzCi7f@{-Ga*G~%0eE-DU=l*;}vj@NS
zn6S(j^mw>cZ)N)|?n)&Cy`QR+Hhup0C`rU=w%*6t&Rjq84(;1nYW+{A=;oQ}UzF@0
z-99;S*X3Ou$Iot#v1giGx?xJyOPPZj-J9PO)}D;KbmQ#<KgD-D{%}59H2Lt9&0iL5
z?wR9cRIAx~<B7r1{Exc(ymx#!^3>mQTDsr*{tGUSGm?y-mt^%H)z5z|RQ)VGPIFWI
zXTN=oG8;RUSRWmld+7AjGrPaMsW6Lua!`L^__Ld<UC+I_P;>nJJmp<h=ih8q+^1jH
z{cpCAu)f&F>z6*UYrYodZ`i)(#zpTM|BHX~jWpsUyZ)L<ST4WlqN?ummGkYBAG@cW
z-Tq9^$(Hq0**d|^K7V3=>pt`TA6@h7%zEX!oA#IJUz~Ky`uq3gpA{}d+Z@!J`arpD
z`VY@S&M8lr54&E|&6@t^mshMm--0`z<nMl+rmD!n%vj=HtnmI#eR8u@&hDi8Z?f*r
zf+Bry3)a;}{+i~HxF|j-e}ZbdNqkYsligR`Q%bi;bzQ&w{lrtB=ZvSmFlRI$e*foR
z?qWTO?H!9ECO`hLd5K@!=NrF;yQbXGZJY4XJEdPEBv5Ob)pEH>Jd<qdPu>uoE~fF5
zwI)xL@8hk_dV<ayC*9K4=VY8Y^<4K0w&weC45Gc)Zx_zZ*P121^8Lq2Su^`Ts7&cP
z_DRgWV^Y-a<L%o$T|X=BVpqIsA%D?PL$vp!?$xdQD@)dhy`NMfknDU>o9C?U!LYfX
z1=m+x`5t1a9Pw|`-z6(b>>StvPWz<#$Ay^bJ4J8WRN0{r5@GetB&GD+wAXXXJC5jz
zo^{^i8OMJ=e!<tqgqG}ppx+Z%r=D?Nv8Zxl)EaM>fHiWaN!|h+{~7wEO#*BJKb>mJ
zUb{|TkK1dl@jd4WUC-F|P7}F)$!6Q+&ZK|d&!#<YV0QA=(phzNm&!B!kG8>n98Cd<
z6W=*juHD%0;%o77-iiRXm8>q8w?APy>9zdy8C%21mo_T<QgcseuaERD_FVc|smgop
z=6;_)wM$L2Ghh8wpYUssZ2mXz3@)zt!n0AG-dgM0pIG<YI1qazP-{(~ckuO17vh7o
z3p)+E1iiLiQqaFRbAQU4&WpD?Y?gegI<c|%T=MDNN6)eBe`4XhxBKnMO`G@5d&Ig+
z{j_GlxdU;n+m8f@tYUi3XV(&t^l!omThU6kZ>lmHRab@gEmsQOmm(XgwPD5kGldn3
zQ@oUaOk<fLdcOM#Q*6*j8<lkxd!{X3YrcEI9NBML<}82w7}jm55kLO?+E3oB(p&R=
z+#YI6tiQU`Wwy(|Nm28*#l7iMn!e`pEwNyM)hTgDzNJKMz2uy;DCXvjHw%CN(cGeb
zYV~BfM_obP7mxMXY8`5S@kdc==TfHM9$~v*)`d)B42hA=D*RQI&A}z;^>lenx4M_<
z^lOj4ls?E=^vijP*z)z|w*MzZ&GFWn(;l%XBxX_cj$f}8gZ$I)Cus!z+;gHw*C@~=
zaGimL`3n;fy_NcJCUrem^i(kO&T(G)xsj{AbsI}pxP`t`^`<?CDm^$ndRC>~QR0}&
zdvxBzf+=(Qf*wwIo4C~2tIm7P^&eANJM#luyxLz(<CqZ1{n|C_sGcF?!c&V*uQA=z
zBJ4W*N9g%G{Li!I@^4^z5qf5g>7FH*eszRA-otTO%ySCYbJwiU<5iQjy;?7)E}3>?
zhQ`}TO!q%$zf*|2xu@e^P^8V0X;<ABS*3qCx5e%h|BC!$&WldXtbVs?QH4kCGWjCD
z?0LseI~VPp!nrgysNlcd>?e$$WxfgT_;>V~n7V+K`(LfENfAZgj!d6(xQ=W7={Mdh
z=J{=(qkeJu1JSS5C;px7eAG3GZPDjlYEIiNns5AJd?uZBg`bo4<HeR&o<*nkeb#N<
z|8x0;d8Z55Pikt|)t|J8?mw2b#bu%cC-cm!HT)}YewFUo$5?-Dg585}%r(;rct0wd
zF6ckOAyPPH){g!R-#M>!s~zNTD(^b_!Q8s*vFW*<rvD<Q>imLxd|AZiw3wd@D|q&O
z?(?6om<kzZ`e;~xi_Um3*Ym?U7Sr>^w;4W}21sw6`BTWfgXQC07J0=#`r@t|)f5#B
zC0aRLXG!oWZ8+dDWsa`|`^2uwrO79+FMFY!-IXppPopcLv&o=+alitOdlj=5vRrd_
z4&cyM>!`iv_sV;ZXHu)pM!9EdU5gX)FBR?I79M}8DF36!=~yP$=nvQV-gvXHFKk<w
zwIHT?lfI&i%WmJ<0mW<13muJqb1&(;*lugPJHo1JeTq?U6lY{6G+tDRe&ZQYwC%>`
zr&BMyFM0o8&dHaB@z&gTwhx^Z%6Dz=<WJo5x#doOGut#9VeTb2S^jsjc&i<rq#020
zKw(CKfQ|*nHnm1puhX$o4`N+5+GTEh@B7ky%h7eZWmna7%W^j!-k!$zuYc>6wM+9F
zzy8d)6!d*spY*lojjV3odwqQ#)Gl5sr~5Ty<?|zM=cZL{yK;HsoHOqYKitnaz#*iu
zVQQpM#o3lC(+{k!?R>C#nQ5cP&-H)jbsq8+d98f>mqy^b+TZRH#}9OU-C%yOC?)BY
zQ^bNTH;!&_;1sbCka4o$$lbU)(N;?1hf4NF>Exr=lD3QORt<ZjTV_!sv&dIQ``fiQ
zxdDzA9RhFOX55w2{g$)w@Wy8X2lt)0_IAU{-{%~!CGm>9SgX2WYuqDWq4zcqS(PiQ
ztXyVS2%m`g&{E3rP~*Xw(vHNl1zgdGKCBY5nJ%jop(q`8B7#qSn$Bj<<dchhWxS_}
z?eWuz+}W9Q@|7=>_7<@{f?*j=hO-mTUTgZ^xcGzEp6w6zvc8wtv;D#1(wZ$G!a_`<
zv-yNr&9=VtVl~?y2sd5d%E>2kqafq=3cbb$(^*cn^u;^*rYw4JczN<k<G>6nuE(_=
zvn{6iT==+a->Q~Fz9Q@g+eC{JT8uWNWghHKXuZ@l{lKhJ6U8+F(H~YtY)(2kD`J!H
zo?}rTmPKr`6wBzG`w-;VdrjZP_H6I#7pn=FELOASf%1k!IkNLx&R(+8iGFv}%I;xs
z_Up%48h2Ql;+YQWH%{(d+yC0-VHxke3a5A8ha58=D0F<VQ}N~TUgq$yQPtQq^M6a>
z#^l;L7Hl(pCA7tkx_2fwTuQnwW}PD?&LOr!w~TksF}7(rEzaA;c5l6*yFpIgqQmUm
zwfuDv^S9sFdsJ@i?ZrpsbiWm>u@G`TCszH)erdvq%!neV?Z1Dmlj17*Eo5<9XQNud
zk}qFl=W4tax{;yZcxSrBG#g>>Wj9%_T@=cF6rrFRcA|n)c-omJ)y<}yIst6UbXr)u
zOfq+RC$w4>2;5rmbX}L`>g1ERinez)8ysWuon0~ch~t)(AE)j17C!7)aoRTOonwUG
zmOB2!9E-nNhh47Hl)SAJy*=IAR`F}Z{Se28Y6j1}_jod$(YwOpH`RL$=bMemwZR)5
z7O746C1i0&hg0N_{JaQ5=QrLW%BjZ<3zBLtC5a#NaNQ_ZxF%wQgKWftZ8tv7-gTrv
zKuW``Kxxg<yr$+K>bvhvlzW-0(eUiQRvPO%wU2Rarx%`{>1_S&o3D`gl$LYPtd#}%
zopQEi={r?_xTh<vUs-xLF4nyI<m%UURh)jdw)MQb_wRbQckxH5Z!`9GRPa`3_^aRA
zaJ*_s(e$z-I+?NYm)dGO%QN(+Y}7mW*Ld+=@#!bL*DSYLwA{wszcR?b(#wBmX+h(6
zmX|MGFT9REVw-wtp3&Z4=luO=#@9ZNQ{R8<+%@4RFI-Q&(B$6x<ZAgwx!Abc>*4pm
zUi}`ff2B(B)n1P3uXoe@FVsDYeGz&1v+Qg6`oDkIr>{Ly|L^<r`M>42s1>c7DP8~L
zkHDw<|EvD}`K`YwqW|nwi^%-^&*$s^D=jQ-^Ey~B#Id2TTetev){{5VuZdYMGM=Bh
zUuZ(<lAMQMb>A=Q5Y^nYE5+B(KV^UHsfo2~pXtrpc+9F}+neRzeoXwDQ)~2V0%vFY
z?l&**B>h}_qI|miMs^|TH<8YHylG*k#~UY3Z<Ke~{*32DrQRQ|qM0>TS;qa-;wQd2
z8^ix+it()dN&@zGjebdg`g>q!s?I`pMWeOc&eyIjKk`}VoKlCsb8ooR#gz3GF6>K!
z{!RKd?fUjZE4YtoC!ekg+%SJXXL8ShP4kX^7XNZm@S)6W)jr4n9tjsLkKg*Ha7M4O
zv}n!SmJElT#WFmBTh-b!rvwT;R=weUa^<$K&z3IsPWh~|{MNVCe&WZzb@6s2ZQIAf
zJB7hw*%Rg)d2ep-`;x_cP~G6_?@23TO;(45aqzzldY!Q9`&q478d*U-U-zA<5I%nD
z+Y}ae@i`7=n-~AyGCS5N^>LHrl@_<Wo|i2KTz`dR^qw)S{iDaRPngkA=0SW@OYN2I
zk7mX)Sl;-z#<*cuigJvI!AI}ELdT}BY0=mvvFYT&xI;f`Yg`1h-8^OM<D25+F0@EQ
ziZ^<6KECnaBSc60K);N^C#@ZdY)klV>03^GW8)I^Y~Sa9r#knhOcRKnUh8`6km~bo
zpS6E)+w97!^gHaIcH@h66N>l#m{`0w!bq;|hjZ+?4E>WA?`_Htvln7HIr;MS#kB#`
zb+Vu6*B_j5&2@9foRh4ZH|;zy(?{3qaQ**jF^PQ5A7;dIIBi|!^Y)Oy%KVqcyB8Q<
zUUFp5$;zX*nhwS_<^JqYzp#MmyV}PTE0^$)U019oy^Y~7l#4YmPib(x^k9w}H&a2J
zc%6f>b)6T-+uuUxLMyadF7DGm=>DV0W%`MChHX``h7;~hkC=8gZjs5ZjCDE^Sy9io
zlq8;*BT(-)o%5t}4R_feWy4L9L9Q%?%%{UTQg>I_inxm(+x2k5#|ZH&3m$g`iJy<~
z;+iQEs}ml!Q|MNUfqGVq&|*%04-d{&KZO1q;$3`p_3k^Zo4FPTK3dEfHu1Ols$W7f
z$I}?3FF6PtU;Vo6@lWMG=1cQmtvEkD!|hX~Hv73<`i{Q8?N~0xA2c_(zKQR`i>9tS
zD_PqAxwCckJm->gif__No_6MC?1u<0In@&%l)pSV_cZ%Pn<wvw2Zv7RePFXV_n0{)
zHitb<{Al6Rp6A<7SYG=6_LA4RjbD`~DqQuq&9AmES{0WR9<tlwQs=9wb2rtu7|%6a
z_v3}o%<~6AUC-IB?o3$|c<}q*7wn(@?O(9!%<KQ=DW1&AYb#F1PJeaW>zTI+v;UlH
z-g{107+pHTp#Siqt74SV@B7N1XP;Bm_~or*-Z+nQ;Y8i#m8`-aRCgLA#(nQzXnwMM
zj%v`^M7I@t;_@A}?Uek#&3SZcPHcchf7Z$hX4j`aS1;DgJryq55jedeqH|%<u^%rj
zS!ORNkqq5sukZLWD84A9E_wH5eU?{ZYyYvjIlSA^>N@?zg<mNTUpsXj5}lrKIQn6K
z!WYrQTlHF%7q1TLEV;n5&Q4Ld^mcJ-miW2SoIauR4=S$Rlsp=LfZf28dxMso`ERCF
z-%qM#o*@%;cAlx@Y)xRA<HeF%&uOQ0Rq~?FrTnT#7hM9kxldiIVePin-;gmd;e5t~
zoi46sJ(U?#Q>LZ1hu`emwEu~T_O**8M=esXovOR%KmE>M`~5AfQL3#a7VGzVf2jE)
zoOt>`n*L15>V(bHHA)LP^bXejd*2abX+A;qMx6bBtERWHLYl(2ck@|3(qmH8b9^fN
zd-u7SJa%hOo!WlFLcTR)nR6(!{jG#Fg;lOIHrF2s6|Qzu)19d9JUM)7)2^R8m1gps
zKNYT&Y#i=uWh9pE8op4EZRhTE$(VP~9ts!zw`-PH*X&5o*eU%qqa`A@+jv^1*9}wd
z>w%M8U)>dX(|L;Zp!>UJEZ^dlqxU^4NICtMX`B50$b_BiHco%CX&IY@@T0F24@Pda
z4_YL7EB$26ribT5vy%SDu3wOKJagxf&5u8Z95XShy5i39yZ`!4)@grvSN`F!KeJ&~
zqo%TJ%+1^D&u0au?pgMMLG%Rk#4g?4A9Tx7?_ZzRb1MAX-qgc99p`#Xew^C3F8AW8
zi1NG9dp>Rc{QZb>_WOvod$BDXcE#2?6E{A8yZk+4M9}<#lP5~-6C`J>n8Y38yM3;q
zv59M`n#Jm8fhSo`J(IZ+VOyo}v*!MxnLN)e@-Fu1i7PdG+qET|iyaDAY4-MeA$B@o
z*5@55i}L1*)&zyEt5LnZ+=|<1k{bg@>+Ky)hrZ`Im?X~*&8aim_B8vXm`_9hZ%L7N
z+bwe>@2<TxaU$nC-o^yBM`i8-l?7j&l#<`_dR`3vX(7#Y^ZQoa?c%%SuSahwJ0#Z;
zZnsT7#{1aYwz;>a2e_KI-^u&2vexrTf<^ilPtm)&$!Bl#@_V#))$WdS@SiF-Y2mkN
z4&QonyO*tb;y!KPc9u!;k17?fr;6+o(mg1lGgEWY`ub>#XvLo`cOFG9i#R&ZKW%a4
z?wd`ALba|<(FuO*m7-IvCC1CKt)erf<Z_qaw2gnRom_EeXIR>)7j@dHXJ3S>zxV$A
zZ}uuSNBu)tu@7?+j!ZRXDV{q!bh+J>AkNqOw&_c3*RX9pf7zp>vMW5WjBEb#i2|nr
zK8vL;|DYP?8nNWUU7hneW!D*Ya=EI$nKyAp*4+w)P^UQ$=Py?lIO}j|YJtL}Cw~>g
z*uSmK?R@6_Xxg7i&)z05zq+<(OKxXR?v1vq!lxdz<whv&?CX!JaA|Y;{m;MbrgrwG
zTLC8Xm(LLYu#&B%F6p`X&PL|x#@1U_zxmFu!?<X+ugT}Nm-lX6DyFbUB~>ie)cNYn
z@+F%X&fi$JGWxjPg}QlDa+UMhZx=}Ku8=kp?_7D-^JbgovTX{}tgb98ID07|z9D#q
z+r6{SX<W8#+Z5*He=W>1=bvyWR_rF*&NC0TXrKB#@m|mj_eXx)?5|1IxKBz~J2xxy
zlvm6)`-d}kyy0J`T{w4f&4iyFUb8Mv-LX|?*Qt`^NqIVXIzIcB2_3m3mJojW*g@ZY
zmP@5KyOtcwvrm?tbp4J{&(EVLiypVAXRbE;cXpm+_5P4oJ-$=)Mduy*dsF{q&)w^t
zkM3{fJK#TS<znVJC7w#glg?-=b?9!=dN{vMb)D(kEp}5wjVq!%Z}Zui-Fl}U$F_Xp
zj>%hXtvfrfdS?D!I^#}rM%ydp&+mTwM)mz^+A_CNUjBxsSo?g*IZ^wL<g%%sp1#BX
zk}B^fiMzYri%7<t;?eUDbN|JoIw#+CZqtjtb;diQ_AM!GGxAH6-I@^p`1jI@mcN&u
zkGgSV`5cdZsmjIYyb}fHEm_N)x9?)u*FE9KpB#&OId92%i@8~o4EJwX9~rx3%F4sq
z%<9Q?59eE+VV}TRA}i;YrV{<U$^6HOs5{R4MD7<%*!tR9a`Em8^W~4tHi`ZBK9-kU
zHF5s7gEj3@&#t%~J^Fpsna(!pk8US!Y`K?o_J+wPvGbar)n>b>&VQME%<NqHuM7s+
z<}XTS4w*BV?5#ZR_U$~E9`)+ei<+;d8|4F~mZ(p#V*VI5@#D|GRnf+idX79c+C6`x
z<n3+Jvca>T@@k!!aqC%Y;lzs;pN%X!r<!?8{<F_aNIrZE>#{t)KO3*8pA6jF|BY{v
zcA>h-{F8|{J$slQUFVBc2y<wd6E^n(!`gT56%0|fZxqr(XKwzXQfjO0KWk;}B$?xL
zPVmfK94i0%1p7h520fv<?^9%N@FgV`Pgv}oV{PT(r?~I5&EySBd5&(;Qgv^(3sdR#
zm-2sh!TnzGx(Jo11D@4J75&!TM|`FnvVB&zvNFS}gKt7*h2J5=Bdiy>T&lySBv)E&
zl%2EKd&yhfSE^4#`!4$5vU@k@$W`}8F@g$fmpf}tev<f1<yq3q*?&EaCVlyOdsBna
zzUKG)*&HhOFPSW{+_qP2>J3&_kDI!yN+<0SzAmvN^_`3Q!n?0dP5v@TGoxpb&}~P%
z<nt<(b80%?rYFTr-N_){DRunSCE+KY4;8j4bj~}!#z!r4{VAm_(l^}}pV8w!l)Rkp
zP<BVn$*3?sxA|w7bc}W-&H5qqzdU#G=X%GkETPrSTb45|oOIB8=8|Bo{^S#!>kmIv
z-PviaD1F4s(@5%Y|J+-RQ}*4L%D&MrdwTn;44#|UuT1|ktuCwQv)_-}ZncZw*Sh9x
zmFZu6c72rn`Dv1KAF;Eg9*p8K@SDXkA@1_06L-$DpS_WLDr>d+iPf#m7d7^M-ma@X
zImA@qNVIubm3qu2IZ;`cZAC(_BOhDLi>#Gi|I=1e&&O{Sr@*aR$BUYN73IP=RlL+S
z?fu!_7v3%ixEw#9Kft#B^S^5O{lzK80=x@Ld7i7U-0fPmrDO7pK=p?bm$$yNe5tx^
zZ9&YvE89Iz78RMa96OQYFk@TMmJZ?CsmaGef8AW|Jdbk)m%uh2y^S+9dXMh+xWjN|
zdsl3?%6qNJGkWG`oPY2r_k`494d#>UZJ+V=RvMI=>h-<K_OYI@@A4J1PTR;7+4)}f
ze`mDB8&w_orubGRPu|b!;`AGv*UN8|zv7rte<4Ge{n~BuirYEI4f%hqeWxjTD=Dvg
z^(!+Q&)e1Oh3C42ch)}cT-V`QIMu?_N5RxHM>To1j_0Fw(p9gS)h8C##;QE4|7^Pd
zS+M#=^=I6M@|tmsl}QaR**~hN@K$C1@%bd1y8nsqL*|zKB|`ssOqGv5(>xj;df(`t
zNYI`_m;FnAEjTz+^tYw<lf#!*Jea@#-*4@(P3pQ=jw>l{GMxTrX-T)}pZ)cJf8Bon
z|4&t&{r=PM?f?HezJCAl0P*hQ?yB>J{(b!O@A>*`IadzomnKjC{oPtx_mgCepHTHd
z&qcg^Mr{)(8))@gK2m8p^>~Xtry|4Y*Bo}75pn6y9gpp-5ORC^YeA7}h}`jWo*V~L
zD`nW!U;Yqtocdg?w(0c88*%<cmU6ovcuKwMx%*lnIp6B!)ATo*>^qAjb|3UCnYdSN
zp3fsy7YDCte^qB5*|=@r5%w-8k1E$B2Cq<+GY+qs4;2R6cpkpbTl!e9QfL>?<<uD>
zvfob^KId!EKVD;*=A63IrhCDrxOrQ}RWxL(Ed(?+RmKZUdMy~Nu=Js^YrwK;Z7ee9
zf4)~)o3y4Za@px3pI!&O^LsgkR(zUc+8EOxGi~W2$3&AA{;o~>D;I8v4c&Iw(AF+<
zN>d9@r;?_7GS8tEG5n{SORlVRpW3{oNb9%8Z0WY#B%UQ(+g!8+v^Y3gJp*@yI~~$E
zb96#UNZM<MC!2Jd_`W)(s=6*(kuyD=`TSY?-AXTeSZua`uc+%(SjozmxMG#Yoh;`=
zE1ajNHW^v()cM|a>bkd~D6`_4)_C`ZA2l5;sap~>_I9ml`}am`)5n`^PiC)EVm$4)
z;8Yza^JzbpsoE7~mjZW6F=p~kl|FSLb*A3wB^r11PuH$ZmNK927$&5Dvht_%wGTfP
zvwzfho;xjnXvLh*pW4@GzHr{cxUp+vj;Z&gciNLCmN+HxdN7_Zlw=H$7dcn?(|HS1
zrfBQ!)S2rdt_05HnQHy)f@JH@O=nuRJ~+K8#vwrM`BVO#Z=US=Bec4$<@}k-{^RmY
zp=C_H54TINFna&-hw9b^eyzs}l2%+c2-&T3Idvw-eWewf;`8Nru3rD?ZkMNXNpDhS
z?xCCS^-ubLoaB=&ymEz3&#7M}Dj^d!v~Ei+vS+dR-MhR*<w4}9WuKaY^bcvo$cwB?
zxXBqI_W#(5J1nK2)_qcxE#*k9a&4X~$zeakGJaZQK%|t`>C{MWt=FlMqEp{~%Bj(M
zy>E35N5wyZ`=`VL8B`}%oZPi{&ys1~B_ijJ-B8fim!DL6zh%=q{hczC7Zl~Mm^^*@
z^a4lObG!DtTwEBU(`I0G=Jx6Kgi^iO-7?Z5H}$7Ixbf}jQ)h>p>t{`!XrOhSed_D4
z9SaLi>-w5y%6h78<V+RPKRDfk)nmQHDr2tC&4=blAM@rZ1*HS4s>pNIC);D@tzGmf
zZsBB+{aN$oH9y(&ebVL4lP_^}nkZ~t;HT<bR8@9K%PObm)a)N6W}FY-+eF7DF)c~I
z8xL})ar<-ut<Sp-?{m@mCFquF$h_#S()9G~6*&)f{t!1+d2o}nLT{g&wUFD>*X7Q4
zvsO%6Qmv|<nH}^?K+_@P=?6s>50R<Wu20XcxWhYj=R%|Sd8x76?VfyEligk08C%Em
zXU?ks%Xi<~^nxW(qv6~N?-SMkgtf2F;W+l~@?Me20)o%xbBo%l>^LcLWvP}It7y!@
zH`hbYvag!K+9G^~EjKwJbW=lN-razW;v8EYm$ohpXU{8KxjkkrdzLQO;rz#p;y?L4
z82f7ZS^R3H3tE^i{Cc&9F}wLye^cN@`wR0VF2)(%Z`A8BQ`^fNd*RR{IrZ-rH(&A=
zZM9g+bX{ZOi>9sF-H!xHJ*NH?{N3=a@$W0<>aQon-akH~{^UoCOlTg*`onDHoi|f1
z)E|&vAtN_)>S3{GdKMgc3;8?B56-XR4nLjKY1el~Zb1frz<Rq)bxvV2GxmL|wqo7C
znt8$z#f-VSea`n4FS7Hg6n5-8KJn|sEOC{>j^N3L)*dD+4<ENrnQNdh^~kgghxnB;
za*1<d_#fICgx{2(c+p+#rSfa_l%t%lCcIF#Kg47xvx;w}j@-vnN!)y)?G^HtTHU&z
z<RY&Nw(dUhMu^vqyOML-QD-eq)e}cvew#3>OZQ%bR=e(x{Je)3+aI1v?EYSu@{NJ@
z_Fv}@^RI8+wIoAz<I=RGZu1QvC(i0{-!th()8)5{Q;#S&7GG1m<;?fT^R3s$uZi_6
zo-#=nQxv+LH$>&lJn={%rLg1sM9$#Cj&Bp?XEGm}dQ@!AQNE9CO|gd+FR_Q|B({6V
zM`(AtubK3NOFV>+wQuhsw!G`6+^mMTW;FUT9JnrSE9J5KTE>GFlUPy~tmO;LGt&O1
zYcWYSsWwHbHf0ry+{)g6_D9yVEcQ<Q*zsUOnMdl!j=06ApNnl)3-ioT+@rN;$)&0z
z*-6{JwBK3ld8W=kq+vqD{LgPbHP#$!7fVRn#-mcoQ6?X)7G%NlxqzeShSTQ#e+8>t
zR(kGlz8Kp+!(`$|!Pk!;C46Jexgj3n7i|z6&C`C>+3s=0{$>3Ow*FK6VU=9_@eb?r
z&=Y&Y*j>ce)U@v~lbpQ!f%yYN?=7dF@7i>$$@r<*Dw%B|e9?;-<1Gt#v=U!8b>39+
zcqOo8gX?e8uZ8lJ43@SDF1)vd`z&uB$mKZxKEXLvxxrz2?ur<>4vWM;JGDNs_ei@m
zH_k6xG5x`Z5{_rtr`P=1cI8XX$`-kWH}AW499!!k{eZppz<b;MrRxv8lmG8+k{C8g
zQTE;a2l<&kGc8u^c@n2OUBlVK>WYD%z{-Se2@fXjo~i1#nEUa(J9avq)uQz$TQ2-f
zp0h=5`Ysl?X_M}x?muGa_iz8S54PO;f*${zr*%XN@7*M2EdEW^?IP=B(@sT>4-K8|
zMWS=|obrwp_+-*_Mlp86kt0HfEco{w`K&3`VDoCOgXQy(!>i7+RWva_5HFu8pxY@`
z)}7KX^egJqg3?1fJ}K_=Qe(4gF}86_Kh1Sz_k++gJc+L#{46?m_`Hzg%555-QuGZk
z>CMP@Og}BpQ_S#g#cP{Qa~@d!ZCV#L$1P51<`R#S99c&0)7;J|R$i*$eEc+m?|R@w
z>x{BBeL@G17j`&axcXY8!_1OJHB8g+sh&sd#jCF`w3}vl_vq|8rqTIR=&)wOTQ9C-
zsk~`weTlr%zl7C}CFpZzJ9Qkr;$^@ay(8&kmDh!%?FmwUggPF*ZBHot7?~8o%y&@g
zK}_V27ZX12w0m$%Wy6M@=O;<AJ-Si4{_YJ^uQR(ItQY=z;lQKs2V8QSxHqKa9(XSF
zNZ`<`3XVnGI`?0jw3t2+sF@+C>U70*+KXG-i`LgaU;M&IF(hevSz?d!)a9-w9~n2g
z`|SSn>igssUH7W*Z+~K-yuQ9ZKYKxg<b>+Szr|Q=cBFjEZn54_*m>vKKGuhPIu9n^
zzO%ie&se{8LzejY!n*F-Q+t<JbUR(RzMoZl){74!b5+%1m5k@dB^m8bVa$%0|8|x!
z<Er0}7qM~7UvWy3L(FME-{}O+-M`e8Vg>AGI=!3wDw^f}sjsu^TEFU@XkeedqU2+a
z&@v$>vG$ZlIxGn)g&ub&bHDfR*~Jnks+uHw!7OM&uyjG1!sb<}*WVZ^{^@WLKP{qi
z{k^K)8tzF#>sMLd%JA-~nI0GV^}rdKML)~tMy@NhaExkSuzQO9!819M85U=^{p&1q
zi2AuvZ^!q3eTN{aK%vc?iki~>9_&w2LYR%O9d}lnC!`(t?$ON2GaXX;^eQyAFht4;
zSytM;Qal>mzCd~Iss(0l;&+tzcbFAEc^T$f{!Fi{a8=Cy`A?-Mq{j3waOXeRCGz4;
z<^TD!64IL19!Z;iVE2}ko_>KNOIeI-PQ-R!of&>|uYdjNzqS9Y=6Kho&zc?(w|M>Y
zy;f#BjpG+FA9CI;aBnX65C5F9oyPI=S=TL%O;cfx-RrQmJ6)xDRgl$E?&sC*8J+!V
zWsYmKQok$x5^8b@Jr&UItfV|=@sYrGXO+h@L%x<s$8LHO%vGm*wM8-F;LCZ>)G`|G
zB>icy&Jdfar{9@jWE3}xzoT^Hnb{HEi@evB?%(=S@XQCr6)X!^Pj?aDW#q7L2g_0m
z7h|V+{TAklQ@Sgs8I)eEvCf`4<*%}aM6_t=1<m#aNizK{CKo3Po?5X=%dW#YKz^b7
zqQ-?bN}&eHubcQi*Kp<Q`TjYT<PmbPrjBL)G(IiIN<PQRDXUf(+Br!s^b$37*&X4w
z;zeHEY28xABh9TfoL&_iUKuamt6ofqv8*>+%c5$-@;4>MC~$*wfI+b4!;7k)O>!c|
z7Q{toJUK1<c5jQFQl#whX|3<iW=uX&FlTjK&opZm(UMvg*)oo><@aNjb8wZNIK#2}
z)uCVeuJxF^iN*$8(Cuns3so&Sr>BwOAsVZ@%f(GR?5a`77Xhc5j~z8n?kWDS`z-wE
z`=uX3O#z{I-}BXUs(Of?wihaQtl!<*l*#+9Nv}f6dQQC3>-Gso7jAk#dvQph<lCg`
z<)0_<q$Oy^3tUU#>98xxuZ>fZ{B$5_-;;Y6_Oh7Hdyx~lpZ8Uh)Oky<CCzCkCd+@+
zD@i>OyeiIQE4Q*twaZe@cn<YdaXnh{O<I>%>`MN{w}EHEi%N}MCk_M$nTr1ENZEU0
zRb0{?Rih{OyCy7ptZd1%c&oSvyGUhjoA;jXSV{TQ%Ab{cCTjZz=RM#!wmPbBk^Cfu
z`jdLw-$WHkbevluzU|)U`4Q6Lp5}`6C*x#dZiy+_|5di*Gs~Tm^G3eqobT@clji>I
z7nwVof1>@79bwz{CZ(Hy{M}b^@^_f>MEwAkn)qTBx%f$Y+&IN}|1*ocdGpBm#!)%v
zKl}^#e^2GyH2<sWo7WM}U$}YPn)6>cEA4Bkm7U}M$A<NvYE89EN#vn@eOa+W^&G#g
z!e2is{?459!&`FEPt}|^Z%k(Wla^Szy!_#@@_;mH)4$F#AG>T{ZMUrxUjF#j+S980
zTPAs1_XijKobZXiv(@H(d6UZ*?{!bUYh3htJnz=M#V*a(6aF)t{Qon_)?wcRscFAc
z6+hZP(Xvyym0_!LHSg87+xm+X-al_Y^3+?RU?U^*f61)A|MUK`en0SAE~_n~&hvxW
z*4ZMD-d#<JeYn3vLB@R(^BeA_hWz8sFRH62zL^`p$Yak>Gn*rSy)`1_vMlNq=jUW^
z`Y+Hr_q(&lBb9qITbuq1)_QExz8)H{w8Ck=;+8eLv#)>9*HoEfu}#5eZR(6aift#P
zE~;Fct}s9BcTr5@>d+tS^aD*APYS5dO#8HjpEGNFM(oCkH<rzG`Y-V8<5jJuTgR(H
z{<58PE6WwmJn{UpmFH1=4$<muv!i~gmdKnJu<Fa4yXdie%UYS5{HK-Y6HYhBuXp|?
z?{xa0|4YT3cW?f`-0?r2|C8G7X97}ny%RQUy!<TO<WKX3f@1<&=ZYrn{p9_lO><u(
z-@>nx)@8QWdMXx2hHJig({<P7pMdkBRf_L}p8MRMdU~#S9YZZgmF(WdEAG8)e$rRf
z{$s))q1}D_C)Zti_t2;R@4eXFv46T_j<>&2Y_#yU?!Wu-f%-?+N6rz?PU)TI<@|nG
z&E|`D*Ahparp)dMe^uK~+}?G8V^SvfwGGSJKb_RS>7lb)+rLU&(&@dC?Sz%`LHu*P
zcy6l9-68UG%iSsUjLiEF3wTb{$Xaz-{-bKh8k>u<LK==YS=vPoNo?P9F1(<gQ}(u8
zleBdCABHu5`FvP%9@nP?Z+tqT*W_HBeM{H>za4FJH}NfeSnrZ?V{Nxk**14^y^uGi
zNA@@L-Ir6=3=zGQswHim({W?^g(?^Eg^dmGRoo68JIA(df_`~;>ZkSx`&Kdw=<j{K
z&1KJ-dm8lxzP7Pbf<N**9e=;YZPJJE&HE2-cRzdXh}*tdQcnLTSS#H4nZ>hn5`Sc@
zi^%$k>y+}1WsQE%4F9B`#AjqZ=lk12kJ7i5(YO7a%VSHUZ@-IhSBh_#dMzj2^3&Rz
z=e&gG2!FBss`&BP_J69<Kkr@acX{hA)4APkvdf%a_HPruDtxr&nH2NBtld%Qj+?>c
zeFt87Gflkza>5dU$UP_HI5g(wOXtVLKIeOK*>uSS|E1Xzw(e`O-?Y!LJb1CTfYmiA
zr{isVtzG0LOkXaV(s%aOu2prMvim<Pdn#=#<#apxk4NzaGmBGg*{K^h?W|Kjwg+rX
z4}TgW;~)OCL~wJc-|L0W8Gq+$cyjeE?q!p<PFwwBcFbIhE&Gm4)K5R&eC_^nZk0^i
z<P&a>)~r*M&A$33^itv3xU0=a-e2)N<h@5&{M9_JS7jUTPn`T@-ov_y)oq`xTlS^Q
z73b#M{z@QFV7uCPfpQM{RnAHAn+#I+KGFJS-O;4OWaq^GK(G6DQG=RCh_E~FYODKR
zPpXdxO!zy&L;YU#eizR***E%*ShuM#<>j6E#sBl(#wq_Ft1HDeay;rR<xJ9W+~Y0a
zHC?9Y{=~X@C-fY}Prf_g_4551FQJa*n|ZyC&XT>skW+ThjOo_96K==NZYT6LT+@ye
zI%D>u*(A()#f^07n8f4myR2D$d6a8?n<&SB(xboigyF5`Y0kHbB!vF$_Fcff=sKTS
zS<lxck86I-TJl)twP&N{waLA6lWhgnHa{*Df0em#>%?_#Rho4nw?wBX$A5J?x=+vR
z{&P*&JxTB7i<Ta*bX$DVwm?Sd-V-gmBU4grRSchK^;z$pbmyk|yEk4*D#a&l56T{h
zvtQz|NBMnggSPc2F_t_2?)Tg_wX-ngZB;w5eXsCo=Si~eWpPUW#|2%JZaS}f;{434
zvnFY7g#4t5YovdcYz^8wSGGJvwNT~S#5Ep^A4_CyxwTw3CNcTOi#tm`&r)3f)ynPp
zv$^M9+&Q-4^3MLm<;C}78>O{A2)_F8^0BeplkVl8S$U8D;E|fA)ZCO@!^Z1gvTw=5
z73Zd#%t^M$v^ZYy=$PbO{hQY<-8Kg}_g+kj_m7_bz-;N<^(%H9%eYvW`h4|o)w7=&
zl;+Q2&ud;`wzH4FFtg~sY-M`Dq#X$xo%wgX?{hXgxa$)Cfyg(ivyZgh`Fu?AYUVZD
z{3o&&o|9ax?$-qz-liyR`sPJV^u&tr=Qks~!qo4zS}c-v7h5GHGb>I><tF1%0eANW
zEGOSt1PQEI93rliT_z*Svc+)4l$_#D=a*Afb{;Wf>iwOdd?8|aze8}$W917PH`kU*
zs#bq_^v@x)NB{l`t+Ms+G_*{lExbAeUo=W7wTpQ4t&8ZGvsk+&#mb;3g~cu5t5l=o
zTT|KTZ{BY5o8cs++cPzM>-s&)PIqq#EXmWBH;N9v{z>s-_jTJtSLgD2%B1wJ-=#lc
z*X9S_Uu@c#oD$pbD97B5oZ#YU)+$@H{JwJqkA;dyMUwTB2_NSEak%CrdWiX!VpEIK
z+;qv#(s`mD8W$_W8a1qa&L7_8xa4z=W7^hpn?*Udir?RmbH2gF?)F?axhn~`GF$HD
zzTw#W`*P-y#GA*bt9<%-<6?Wt8;!lyrE*7elS(wVwtsyT)ghyNT<lcWD+{-imPI|2
zil0cRrkBWQv#h!Jn42;Ci-qd-7lmHy-dz1#+kT{2D)+?gd-^x$s>=zzzxvqr_}(Sc
zxl~suu7B!0?aQM=JHF{Y@1I!D-K$dd@s2|E*Lx~?o0rBeQT!+;E_q^mw5wQy&%Ua7
zMSV$8RS%te+0zy0r>u{C&rs9R*QF&iPvK3C+{B2Rn(YtFPPth+OuSJMXYr(_Q9p6{
zjh|9VeSt?6r6<k}exdkZI5sa*s6~P2?!`Gl6OaEhH*@0nd-HpV<D^X?ERin~S1*0B
zw7kQ)&uaI3{z-48FFD+(k>@Z;{aib7L8(~3gv#$_pYLk!-taTh;Nh1_K9OpkmlGCG
zKdO8!Ws?OXe`3x&>p5$8b(vT&q&uYk>A1A?NyhY)NdoMVv-jrbDR{OV%U}D({n(GS
zSFWF)`2L~RuJ^u=ug|{FR2Q(P_iU-SMfcvX4j(N)UnrgMaV^_X^&7XvzMNdcX#K)g
z?2Xfgo<idlJLP9bJDi)le9!+yZ|+Vj$=U5NuP^ty+Vr`16#aYkZR`Z3A8%ZE{#eDA
z*INwbWH<JH%xJuK>}zhMuiinYMfYC6pUB*J@tFKh50hVdA3f4#YKtpWp7WemoRaeN
zs}84pl<2Q@leeAB70TI~_5DO=uqV@lO+IhScAvYzR>`_eM(t&h_vD}5PItq0-LW*d
zvF@?Jlbjc}vv0~cu3r46R;20tk9Elx%4ACwRwyM0i5=;<xI|`xwc1lN%Qw1gwdFZp
z>T8lemmNB_|IX!voO|5duX5^mkC@GlSIG%>`z@awWc^V7#OwSf=jp31ynY;H{V?K7
ziu{wKiSw?_JicQ~)HO>-!6~!Y&1|nO`_-^%^3%81i>wx@#{W1!tNi8i&P&bD-(D~J
zl&HO3?ep}mKaHpFO$@)QaxkpW@!X=7w;uVwy~V5W{)_Ild+tnzMhWIGyx%A{X<gEP
zC)m2{_Vzw^nNNA~k#AKM6waN>cAocX`<M5J{Z=!F&HnGuvvo21qLYd@xj(H*pY6`q
z@qJ=ut(=|GmJPh0Vs2)!d(^C{37c$KYV|o_)~f6iHWOl(Y+K95Xi&H0(X?BOXXV&z
z;hWuIvM_Arj{Ce-e>`GWf4X+||DE-nd@G;M-kx)6w?=V`V{G%ji`C4Z{5DM16PWq`
zg`=cl)P-opD{2>x%!+xogt2z|ryR$5eVVHamhO9@wl($1+-YlhF5XziS{$(<^1wYo
zY1ZFtA52{m4(i|U)_ziXp{e{x;SDXj7qi2~rNs_qF7(;=`{A<Y6{2&^k5#Vt*0aa(
zQ>}aLl<oW4RsNO9u)chKTzTsjxlTp#y=C%;`$JxApH?<m=BbW;+47TC7m9x!wNZLe
zH)pDN)XB7mPbcW)9=h+vvQwV>J@3i#%SWcE>1-D5%D=BBU-;tk#{xSLk#+sVY+-Ks
zDTZB^FOtt~I-YRyx2cWLh1aJxUD8XIIpJ7iSih53Z?d5CYYFxs&gZ_ZS$Vu7mHLSf
zs~xT-JqwM{{>5f`EK~LF5~J&<L|yi)J$B4~UBUkUct%LT&ol8_pV@m_x8`wHiYFxg
zexUf*?4YyInr!i3?-sIdRy%b_EMT#G@b{==l`g@3@-KqZE$&51MDKL$^?h|uGI~Qn
z$uYZ??&)tPS8=c$TO!xRketNd{^Z4E-Ft;IRQwNm2MN2*t8`LQSe;zI<Xuw#mxq5m
zmd-gYs=YqyW~If(bGLkZN?+|cS)48y@~(f&6L%h_^B!@GO0!$PH#xk_zM{<jq;Aa~
z{i?f%Pu)&<B&Genfm8Nmy5pza1(P{M{y8lDbHKxnukqO}7pqkHlb1Ai8*vMAq=;Vp
zSF7nS)1>@kU0&*(-Kwvz^=fQ)JEeU)-+T7`sRen>HKp5y&e`UjYHQ;7e8tPc+@OiM
zK<sN4uSkDS+*Y;4;mn_&Tq=E6<Qj3z?91KE)Jras%QZz_yWf81JH_sAvqRU%UWGS2
zf+vg@+k^|me|gJSX;<myE+;Q~JWpwjjA_u5=WexulFygBJPwq6-ah$3-Fu!rtk<N1
zr0eTMyn-a3H`%M0Zh89Yp2|jtf_=7|_GuKgl!~2_dEu>aL49^=nC|PCw(cW}A0Ey7
zcH-ZIhkXb3D*j|+&0{<mILl#S#9X`W%{S5#Pi&r8E++Hig!OVx>-pU5hOhk6<)*Lo
zKj6s1?cMfHQs?0AsbVv}JZV~UHf&OI%%qFc+1)4YmArQL%;XOXcQc-on#8FtS!;gW
z%s+I?Ozk}#0e$b(gy(ay#3jmxp4fSA`-Qbrnt1JdO>-RQ_F7q29Lbrtv*MJv?<~{6
zRht`{e?%M?|8i`_=dOyqi`z?W%GavoJiVsy!^n31-u^X*jXs)kwux5SR-{}m?O?Vz
z-EvPU-Cr{Qk;dd*4k-?<{~V5QeP!%dbY1mib-vK-<rj9_&tEQVKh^Y;wSSUqXjOAv
z@U;jw&40dAGm0Y9^;djOm|MF*Z{38F1A=QdXY;;)p7M&NVe^@v4q|?dDwYv8o7~Tx
ztX1apyQ*TjTb0wTSnJ_myU1%3qptS%$ecX+Nbu$wWzmnyi`_*gz275YsIljq)r%$V
z%ic95nTG9TKjP;5F3#2Mtf|2LVD$wz=B_JoEcCIeT43>GLfEV4Zy!5reRX&1ySB^j
z{oTt`t{$pv@w~xyWAU+~OCCm9MXP;^)TIB<`mpehwJ-<Y0Tm`wp&0ePUA9Nn3jRE`
zx?17T%cXmSX=8utBC$^oduBaZw8_^Z@xpcG%t?E`*$LI|*t>Oyf@Rcs<*6I@<X`dB
zbC|Es|0Lt%iCe+T8o#{{<vjhns3*nz<yk#(+gI}rU-O=Q#(C<_J*M89_N$${R_**g
z^=|A;?({<{Q48D;v9Rrx3RYD(|Kg(#!~Yw<LY^FI)IZsJ@4#AHPgb2d@8u?P{n)qQ
zW=zpKkEEP`alR8PwZEQ>@5|%N;=TX8_t(4j|8F=SO*<R?yi7P#=uPeCW4}9mqOLnW
z`}>;xV0fgPc}Jevd#zVr)^f3%?fv{f+i0(;L)D=wmHtCY2cMNa&}uoi*67-HnaJZ=
zk=ec;zOV8YnEq|}k(E?)O1t#wnkg#!dp(=<VjQbXydK55*k$#d`YZS}c;mtkd=uC%
z+Z3&-aH)2$xqX?v@zyo@n+n&i$qRaX%lmht^?+RFBncL`_o@9?{yv!a?%%eZQzzZu
zVR<(^u6pu^g{6#QdN(|aHdUm2pEh}Ss_@b$v6|7flD;3N%ef0(xn$O-?5Xu+j`Yjo
z@Du$S^R47XUN3tT+<p7s6n@#pq}lh}XS0YtZ&mK}FaD`uVD|b%+kpbJ^@q+`DmgCw
z=V73?@=EQowmT2javX2lKL7foZ<0cCCmY{QRL&{YuUfiB%`!?QF)@~*Jh0F&fV1iR
zpW@g&&uJ|R0(UREtUQtYUs_toN9|c%>7C139*QbjZ|}GGZ*BDLxO&@mw&?{Ig)6^3
z%d8(Cj8%JU@U(W4k=#`?xs?*`Ut81yf)ujXz1)5B-;UK?d~U05wp8kIZmpgav@cNg
z>%<JB=We}XmRz-WM3(a}({WGE?w{%@_|3tfQ0bO!HLGQGEOY%_O~>~imlp|#oGCtc
z@#f-}u}>m4r%$&3<dXZ%oyGR#t~;$0*;CAPm&i9<x^ig6L>9^WERO_S?B3nl>(VpZ
z%p_t`bw=iW_of54Y-PQzXWh{La<fzLp~{{EmT&d87786P_mrtBe<LW>#CF!o+{t2h
zIrA%a&A_N5mC6Sb1TS3u;-_^$vrJsqafjH#rN2!D9xm%%;#YM1%2fAbSJpB(`<&Cu
zPfA{O-c+i}y5`M`%<{*!%T>Nle6V)m1k(k}r?4z`6Y{!zMgFzma?KSP6V~2I-F|YW
zwWN#wi5o>68yY4(SpJ2p(Cm+ARt5i}`)@9}&-vaa#lG;|lv&n}H6Pz?ye%&u9q>jW
zWU8lD(u<<a+`Gh|*j|m^f6d#ULrs6v{H)!opB&Fcsa&7+;>{+tPhBoTXGA^UJzKZ+
z)-}_2QKFA^CQsjeEjKB>Eb_OvV}+reNQLTyM}o|I{!QMm{lw@N|F5&NY|a+Gp4+Um
z(0KPIsr*^zWIFDtJYQ_Q+^KK7Te`uthJc%@7uBY}o7-ivY4+@Ua&x6US|i+!J8EvL
z-}izyXw`{3j*C1s`1eWNRch9^`8iK*4<p-xU%5SJx2jdkxZUTCxh8*MeP_*`B@)^W
zbJ$m#?3{jXMV8<yeU9tVN9^J*YaRJ{z0&vg+YQ?OW|{1dFUU8)>7BBuTiscL;fIWj
z@3c<|@xI#(>iDkCexf7SGjZ*SCzHaj1eZ(Q{pgjWJN3RwnD8mJ9lK_;{O!E0H~ZrJ
zjK_7A1ul&h{-LigrtS8*Smp6#VtB!VV_Q#DeU?os=-y*;PGCW|nnm%4Rr^vG*H1d3
z{61HyVD*W;#eB=Qt5_*W-MHpncGP0({a~33f8TDDw!OFAw$Ho2{OFDUH8vIQ&8FoR
zQ*YP>sd={ESUuOSXtvDbwWrFutR61qd$v=h+-BPP>l){${&n~ebI@Y?k(_H8zn`D-
z?%ZClxaZ2+Gi@o0KSl@kuWIf;p`0(}8I-T@)|T<rd&1&9SJz(Y(~|Pt^2Bk<x7sDI
zs#fXBt-1E@NrzL@PNh!E>o>9<O+WT_OLJjm>FJWK{6*czbZ0Yggt`jlAF|cB`_;Ol
z@V;-~#ck=283dQsuk&4Z#!@mx!1jy2k*q_`MY9%$j(VPIkLovmuPs+Ho{{Ei-mf_&
zC+x|8hilbyem<HedegruVa;WwDa@Wmiyc$WO6_)iclm9_&gGrIm9yU}y|Q87#B$_b
zvd^XCKdOx?-m%6xeBREy<e1>3zowCQHo0=YnXWQJ!+)ajz1-<apFXlJSDN$b>El_O
z<qhvW_@ZVS_h5_a<;Xz6dzUw_RT1`xSvRpYcKM<oCw97unLDm!cw_7RM#S=qUy}HQ
zqYihjrr4=Yk!Yyf?6QbMzxL|ya)Xc`F$!`vuG;%nTFuEWdCWA!KCRbdVyaD~_DVyR
zGqb#2O%XX|8m8F(;h9wSforoCoWFWH`}S8QwJ*okbe>+rsV!986W*}!`Ho}St-*3<
zEaL>*S{{Xe;3|C8e7HEtbmC8*i?iR!2#Y42V2R^e#d_qQ>|<Yx|Ecajws`C*o)j|S
zB4@g9Xx|&R^lK|bD(@cle$6z;GA*<x@HXc!^WCvc!meLT`Sp8wl8myoj=gxeS?!js
znfdzXY4LV7PiMsjo;Uw3=RB#a%5MMnB^R!i34Yt8a?xd8*OyC=6=uwmvt%`?IIA3Y
zr0JrSXzA+0M-#iOlzumaT&VpeBDF%KaYLQUY?+1ik9KqH4l=u$FS>JjcAoyjC$kqc
z%~>0o`6o>2H;<|3n!BAl53f~7zx_udWi8Xp+~SLlYZr+aZ>_Qw6S%o$-PBu#vTVNf
zq8B}xqkVg3=TtLpo2)YRmZ7lvy2*;MH-*IW^X{ee7oLB`T%<P9cC}PTPvLa6@}lF$
z0SY-{o_jibzpl8yu|iYj+^KhFJNXoOH_c#bJma@P{q~_XCq7!5&e{{in5fM9C1%p?
zX*mt12{-*OwLR+8?pVn3`@FR7=kI+?zbj|6Sk8H}$8X}2L$hPG(!#|O1*UyD)54Yi
zZNcH#-G^q|zPKbg#bm;Vo1qVF>nq-U3*G;Hrmdjsxyzc3*O(Qy6#K2ea8!EEYS)N4
zi=Vj*%=azicDW#GVi0}P+RRxsRkOPNlI>1ki*+u&nhM|Vugfs{ckev+jhtPg#WPPb
z>oa9vkZ4+xG_O}tqVx6k6EkCfc?ufFd6x^vo{_p5+TtqGwWZ;_n#3t4f9q{~4$M+<
zI?izOp!LmMr=|VhSGh*WOb+Q-m|2-0zq~^`|G|m{r`@(VbH7(QEm5*wz*+Jm8{gjD
z3jP&-UxfZv_$<g$NnGfy6s97!Ui1Rn>Fg!dM`pi~3ouRnetk)`+5tP(yww2$nT!7N
zIBGqMTlHHoUudm?qt^Pz=N~QGDmAB{eLYw82D`>PYPTMXa7;Pb6(rvua$_-z!{pu#
z`8+(`EHmdmxhgNfV%f=&o6BO^sdvjNUih=3g!UwxR^}#+_o1mz1zjvp{>=F6@I`In
zy!Vq%Tz6^x$8l)Rk@EsQqSm72=86Kjo02-jD=zUd1o{=}$L<UG<e9VYY-^RD(C3RA
zZ<U2D&F6U5rLw}U-=Q#filR`gZ;4%N*o?r^wuD)?H6!0nU*lT;;REBd+cpLJA_M2M
z35C^luw0i|<u|GNN&AZPv+k<j-e<3(rW<J9b>?{1q^U2HeSGCFes(^m(tp+6zvw*w
z&f>oM<(=>3KZ%HOEL*5z_I$#T{jp4o{{KI9-1z_cBPXlA9p$(Df9?a*rbqP!y_s(=
zx@`Y1P`u93ukptf{z)_TaN2yHYZ~yS{msc+D|*gI?KsCT`20KXl&0Q?S$_q3Z-z!@
z*DnhZJo2u4c}`^i9ud{TX{%TyUI@LJKJkCY7axWqX`9Q;U!K0vYUE4$&F<1IJb^u`
zPtak}p8MR+iVipUE&cq(q8x<;e=16uY|&c2xu@&@1PkX)zBhh)wg2`1cKn16kDbD<
zx{jE*;>9;qcUsqVtW}I$)!p)E!t%Ke6RxL+ZvQ#orj>zd;Y=61pNhMFByO`!vOkb}
z$1zF0v--bsWc5@Qf7z7NzZ8w;zn`NP{*J$}s`wI%gHN8R<s5UzH7Dn}C{DCqHsOZn
zyPft&rfg$zei47_beehJovuR;)BcLgjpc4Ub#%X0SVPXS&&@n@7=<)%-iXuKHpgOv
z>fuib_sq^4_zOIluxI-B4XRsBFF4(epZ}}Nb<+v&33t|KvAiz6w)?ozX2+Os?kZmc
z^@CXxB=<kFo9@LfvgxS7ge&0+;om2E{raKhS^I2>(RRmaJ7gy6e(BLKcegZuuKeit
z>KTuMI%Ui{*0`N&6jpg|ArO)_?PTwdd*)t2@Aog2@p8O&lb0oR`t{`zr?~hY{SoZg
zd-&Df)0w5I8!n!XxPNr5xSZ^fe|zUJI<21NzDakl>eCCN-lfy}J>KXaj#^ea=Ou5}
z5}hf(7_u{teC=GPa<y>hjkCW$m4E!RT=q^xa^21SHMZ~Xzblw^FmKBD({r*<ekq)O
zDCYUTN&L3KHG;OelBy?;Y|3N%RPyLlm#9YaJU=Jve1*vc42Oh#<y4;uI?1U%IoR=d
z$uT*_Cz&m_PG^G6)~0^YFzgrjq@n0<9lXh%qf#odU*OY%Whb5OwH5u9-v~O%?TK7*
z^@ehbP45PGj>=n}Ew)Z4E^}13%t+ULK4YP+*BRv&8?O_==PV9aXo7Vl&FgtpCZi9v
z&++c0w&y`k^W1JIAF-LedbWJ!lo{?El~X3DU#Xf7HEII8^--%Yn}t4^9FkLf;yBgP
zC!H~6WrHg31m(pQ1<fuTky44h6W(=xj(IKmx#W_q*O|+ll>z*G$@e(H?)_|$^Xc%c
zTb-3H6Wlo~PhB&!nGP}Q*~b-GKc)sGOk?v<YLHpcv0?Qlh+zVs9{6nIt6c;2Re<e}
zi!dJs$UNCt+%jRg;5QCK|Fw77`-MJpDE13|dJrsS!aHFp(=?NWK8ftLUP7vAf=*JZ
zPY!0uw;$7h`n;to?Ts|l=bRQ%JnyGM9P-3b)y5|k>Z#<pZAI>kmRbq!%uj9v2=8`O
zYSHQ4;MP$YuvI4$9vzl9`D7P^-Pcih&E)K3t5rvAoK7rmv59!;?#m1go*BxEm&yHh
z>x^uf;Ko^5uub}Uk}5c2Pi#&|m%qmf<M_>%KIR1ps!tDIZ0>t22#t^1J$>>v&=_nk
z4wH$~foR#KewK5$b$_+`-Nh~E+`UdTPqkaq3{4!LEyB<DKM72dQ+yKWG|!?n(f1wL
zl^m5~IUk(=Lqfu7o{gnATfYD#MsF5u`T*CypkU_X3((Z~?BKaKZHrb4gF|?A;YUsV
znb|R_=lt{HG@MP>P1@k+{Vm=yz4Ux%@w6(xtEXOBhH96e@2py0?RUlcZgJB4SM!9c
z!@tjosNePc$gjoof<L?4E`R1Pzux_L?0PHH<2uQkRUck?+|9m!Z8rOomlK~9^6*YH
zihXQ2AvdeTjUlsYNp{sSlSC)ov$NPD77Jd^IA)S@|53zchHR50sk1ZE)=t&VluGDz
z^I0r;`N7ho`b#n!Or;Ea({{1l%zb=~L&3Md#P|G+WBzr%YoIbd&3@(0%NVa^95I>o
za#qK;r#@1QOI}V~_fqn*iVx$wqfAh1Di3KnP5U)hRmh-SWtY;zTy6Ua43oZiZ2!`e
zX~R*zo&jutq3@BIozHuq9Ntq$5;w4Ja8q7(u_yDI<~iqVnA4sV>8X1EJtxFD!&xYH
z<APkf3C;|jRZF6)mSu0?U3TE~REA4mJg$G~$z)o^JFgt(gr$couL>WK>Yd?cyiC(n
zB>GkPG>-!^lMGn<@@9tHFzQ_Fh%~uuYN7k{#QRAw1O800+3p4n9X8p0A2c|@p)+&c
z%?tYy&%pvj?JCz)6JDrG3)Ve7n0G%?iLuyY(REqlThB75hy*C!R?gbklgZ?f;>*0|
zVn?P)@+^zgd#a*PJ*OH~HbMi@koVO#lPxfg@4Rat7ec%}lUsOdvDkSjR+U#1^<K?f
z=lF12T9v5Cgk|o#mZkd$FFVT*kJF{Me=cN!8Xcg^-@6jxoI`z~7GkWo!bB!4ao@Ex
z-KSZr_OZDa)OW`oC)F*6X}a*R&l>7&n*t8evwJ^t&98PT{=X;b`Md}-2kSuFig%ie
zWn@z2R>dDJ-qav^{x8$DF2Rd)R=Bwot(RIj*HuM*yV%7$x1%a%X3V?%+U0Y^vxS1<
z=T9n%`=5__^Gx$y{muCnYqScb`x<_{E7*AW(TAT>;r~m`-=DsJ^z-~O{rL00x9^sC
z)FO4khAF2m=FPsHcNPZuSYFM3ntY(7Pcpmcme`bu5uy6_@6LTZboN5bzMHalYRZ1j
zk3IA<t?#STPl<wK5rry8Y}4nIUUZ46u=u|2i2RQ8k50RZwEecx(^p+E|M13|I+uM9
z75}`Muhw6%PH(63&f9X+9<!J%Ev;T;Es|;z_T2r-$~CGFSH3&y`+3smjWx9{eN4I0
z2H*TAPiM;Ne7&)zGGboL%)T3`^HluhHWw5gFFv~Tc$Lk9rbDTg{<r6>u3k6!<74IC
z@3*%kW*$F!<5x`fnY+qGK0l837tMRWp6~kqiqf!kw&jA^l4f%D4;lad`*d4ac-y*a
z%d6%EyxH5#=G%Xoa!`HFv{T$I*OL9#`PY5^wfBSK`nsjnM}@!NI;Co{ORb&t_4Yg2
z+$-0ejE>9HId}N_yVlRACOuoeUgK|^<+OQ`FXH}ftk#Wq8lxR~o%QsM$?rv%Pe_b-
zzE(zN2fuvu!9QI3c^jwQG_(HyrTU@su{ZIjeZ$?07sp+EUvMv9>Q3A9SsPa$HEET2
zT`c?W-^<HipZ~Sbuisa>d;i{>)3fK-zCR?ly*^x8#&(_V<uBz=x4+k0ShmYI;p}YY
zGQ<A6C*M8}aa&QlPTJ#;Z14kF7tVaebKB<rW)t~t`6+H$ipiAyyUopSSP5Ud8kCsa
zepsciGOFo*^0y@-r|iD>m07--u9$p0XZPKYOXc_LX-DTt_H252O!VxkuL<9_YWdAz
z&V1`)=KW=Der>nmhwMp)Yvm6MZ4mo?L9O|A%D*Z5KjoNc&x^l%cklkn`)t4N_?|l&
zacqTegZ#&<b04quF-lrq6(QZX{8Zu7HtvaS^Rw2S{;}c8cX{*UI{%otrhPT{7tiH-
zc0x?X-1S88ET;MQZ^eChbo73ew3oJA#^H+i5OZgKlYn=>?#9o1KkskB!*Bn0WiQrf
z?r<&Z^v><7@!|758k!lo%yjG82RA?OPW}HZFTTs7B>U%k*}Q;%%XeJ8SX=qy-+6nV
z^yjGux!B9g-gPrrAD?}jfBXE8rKQ1Eckb0x)EEDK#d9$Cwpw{b;oo=OC)HByWADb)
z|49DXwoNAP&b+C*??0UW`n-$ptE|3!_?-vep1t|{w7+7)QrnL8)}@oe|6bq5bL89Y
z9xr3ppD(|^U4Er5YQx*5W_zD3J|3Vm<9%jl@VT2;C;oVLyX@+xi1mpA8~?hPm)w3>
ze|T@eiW^BHeNi)>EwKNaxr0mp=eAe=bs5JBuGZi7-}k@8GN`_?a>p+1y<+P1JF*^6
z;D2AYuk!O#TdR+IY~GjcsJ*`HuKd0~zjqxh`O&d`OYh?S@&~Lcc2pOCefVlKPm4{L
zv-^`5OG3Ar?Yw_d(D=&IDaYgXNy|N~Q+Gcz$#SPn$*0qYcc0(>KY#D5s>j<J6#|~L
zZ^;)CkXH#>q_IV#pzzYSh9hQr>zWl#Hopm$U0AN}Jn8nY`{ixkr*^G=xbKPYlp{~;
z&YaOJe>8DswY=#u_nfQijv6g^)*>##Qyy2vHQRHR+1HLg5<G=1Z!hHD?$uel>)ti<
z`l3cpU%`X+MU8?HcmFt^Nk8*aJzsiGfr7@)hca$jAxu*=ZQOU*>O03y;W===P-}70
ztcYX!^CwR)3R`;N^R2#j3)g3CJ*egQXzefUizOT7qV1+cI5W@5N{YGr^}?5m$U|Re
zF-Sb|e#h-|d*-f+{d}su2ewXN31-{A*Gm3@z~<zr8<o>*r9KB<TrTvQb<&KZKkODW
z9lm}{eQv_r*%Rs)yO^lliMd++^Esz~VVv2{M@#?gpLfh*USj%`|LV3&7vHUTv^;Tz
zs?<(fwjhqft8eArH>uWZ_$$D1`bDPt#E7-qzE=xy_Gf5iMf3aW-=5f7Re$?k{^LzQ
z*_ZkoUE6lo^!LQC%?e?Uu4o+3;=lRZZ63F2<~l}Ct<u)NOS67$WUc=w^xf<2f5{`v
zYj6E!yYFVGu;kIlW8O`F+9H`Q-TQvF;QGV-_lgm3uiWq~nR)-Y=EKX$r5@*h6sWUj
zyC45ub$Qa#P^o|u*CP`)DF?K-C+3tfTQ?{BCl((xiCL8z^kL5ZoyTgvo``y@Rl~RD
z>9VXQfpRvEk0+X&cm3NXd(^mH|Dy5!$DZep?YGX4kKMi^{`8rG)$<Z(wo4q`RQBvc
z#-WT~{MWbWG_|_9WUyU(YuG7#?AqJ6;bwl$6285c1AhE*Im5a;BWKo(N1u)_o9SP2
zP(#Y`|DzSnJFZM+*FADXtm)?7S=$BP&X~u1S<Jlikj;J8J?*Jnw(j5kawT5;U(fv_
z=5tf~=~dS*EIs5Q9?=mWwb%99k2yk?j}KoHKN_(r>Ar`E*_8_cx7(}4<I*=9+}^8l
z_DucVQyUIx&wNs&xL^F$8tG=iycNeY3bsl1$KGc-ck!xIm+^^Hn)AKl&wI=f&Zr1`
z_H4r!^SgiVhH)&HJRN&ixn<+aliv4?YZtV)w$0tb@$2YmhMb~H{~kV9uJkDuzY^^B
z@qJ&KVEgH(+h-)mIWD`LG2zIJ*)3ac6+J6@X<PO2^2D6oN^76#$<H_Voc+*L`f?qs
z-)Ffce~(V~{9C%$XH$>zk*lwa3XiSkPW@C=S~u;5m+pO|-7}1?R{gBn>Z7IA^1mbO
zNx+%-Yn>Ng{h2FraOLIC<>DqOi6=H_E%#id_jGmO`mprQhZVbH)TjOW{c*$O%x=pA
zPYwT^k%~8bATwigmf*j65l#1|p564pGxpE7kAGi<>~Z@Z^x8apwYfZt@zg5WZ|TBz
zMLyw*zUwL~Cph!G+jeTPNW%(EHU{}pzJ-@FHVK5?a!#u3Rf;^U+`7i)`p<g}TXtQT
z_b}<<k(SeE_lL~p*XH8oO3h0tE-6Y)%;inZOUX~l;x)EVFi^-(%CfQ1_esr5FUe3a
zGB-2UcgxHvNiEWM%SkLrbxBRmPf67eE=?+_EJ)Q4sVqn}bhfjDn#1MM=@Y^oBAhNZ
zPccO;KuUFUb6%41M^Sl&riMM;2^CA2cG-xmT*P@q_w;2ImcVVUZ@X4x#NK6UI-eK&
zx@*yb9}Bd$t}g554-@H}bt>ty@7YC5Z&-hPbd&F$<z3t2bLP+Q?EG(j|NGsU-a_y4
zSUe})^YlFFIZNffiu1yw3FppV?G>|(bNux9&QH!bJBh|reeL+RuEfI<7LV^5J?ynL
zI@GJe|F^WxGqct3|MvGYLoXMnuV6ZS*y)d(;TO}k{-lZn**u{~pG|$iyXp(q<eLF0
zL7Cmf-aSiI-R9n$@O*vHQ8BSqm)t6SR+%)POxVJ4HU7$qPrh1nPvu;BD%n+Xj4AY_
zR%lUOVdu_8R}8!}v_g)mttvTMx!JpCRZZi8kY(mipFe%w^ONoJe-Dl(5xqmrDtkDb
zyabYMJ5T1d=sTWK>QHE!;Vo3CBIqylUchBlhlhISQI?6W0$GX*PA(mt8i!o22%kM-
z`pLJ5Z|B+GGVbErZ@x{==z7tyd;0F1f4gP~uy=}g+&<ELrDD~@Dp&ob{g=&EF01UE
zlq@&p_-(m%n|&YW%u_u(>D_^l)2Az+KGALGxVAfNv&VvZEkCDT8S#5g@8u00DyMd}
z959*Sv_r;j&yO#LEZX&!Y=(RngU_TkGW>sSz-dwxF@xjYWJQOa9aRmD@ry(bKmCz7
z?R|_$-@$dvVj6E06U+NK$_{6Wbw66b!Ck!|Kw~jO;gk~gkUH;e&b=Idhi%2OnHIK9
zO1l~rGyC+(trt|AxYrqlc|V*MKKrP-=1VE<`nz7+EFSD}KH`4(yH3_L|B%(w_cQQj
zoZDOR@6R2VD;lzP3(hq&ojEwiM#sT)m471R6Nht}8Vp;5stz0qFK>=1*b?r+6#FuV
zDYWU!CaooAUXK)WmfUjm-hS)H<glB|n+2IKyh(U>xT22p_QqQEp4NEnHouHZ>FHwU
zqfh=!@0wYE_S6Npe5b7~`kQ-CtdMQzule|;$p7_^huYgtD@;DTLo#fN*393A5}C)i
z{0tbYs}CeiHNBnuJ8{45$%8fgX*<qeGtXHa9`k!6m#y+7V<yWqj^k^qi;|7S9p3g>
z2wYq~J;Y@D{(4Ww&T>bVEy};09yzX?mNrNIwcgyHVgG_%<oyna$QlJt`5SV)FV?<c
zd(w~doVyfqGn1a~%Dt^+dC>C6mrtizp7*o6{Hg0mtX}@%^rMVD=9AR;8nY#g84ODl
z&TrgW!LIA{VDE+8R>{9A@@g)k=lM4kY^-ltAlAR<X0)zd@tZs9;-dfe%w5Rm)y>`E
zW&1IsSwW0>_JQK7<y;!Jd>3mCL~Z31rtZ0vq*wL!ueNr^nkSytF<ZKStgW%-o@}mg
zS8m~fQ16Q!|2DsN^2^@&;{5yBR-(<z`L}N^5Z8OVyTqL@P~*SS5%b@%&NDYH3#<9g
zv7~9!_R7jr$GvQtrbpiXnWsMCxKq#{qpb^ri{$QA+rBthx2ZK=J4<lN=f@f$2@3zX
z?2Qta9r289nJvKj?48`nzZ189S+UJ|Z$Qq}xg|$#C(gD#c+ldfR-OEBjZy(-11<Kw
zkG34Yzc($+$a$lyrKIAgKWh!kFHO;2cPF;qi&3z=f#u`VPj>sm`U>T8_f&n^86%O%
zn6`mG@5P@BZ*xC0O_^3xy!3U<^#vC;E}b5`Va3~LH=Seq7VclNCT7B1S>-2}nWMD-
z-1VBb?eIlKL6bx5IpN>a=gu$MYMNBDTu1v*xMBSDfBn8O0#k4F#R>4ue)aI3?SfMe
zY)u}2$q?aY3;mYxA@ExCP1l9K3kpi={=TS;u2Cr});Vpdd1L#n2g=%Oww-)uwebAR
zHz{q3$4uK;d5?Z@*djTp>5|tU%Q^mMWo8~e6h7sH&5Mn~84|)}IXCV49<J5(H9vRy
z|J(%UokID+=LFkYOBSB}wIoJ%=G3Ln45m-|l)v`nbNO$R-=23_xATvf*q*xg+$PI3
zE;Ja;X<hx1gT=q)f}h6PX8)+2ks@yY_)acLVO7&%k?&}`&tuOz|MuauDYDO4tR7B(
zvtc6t+&!;mzF5e=B`Dx3Z>0d!PLIPXF((qOpYkL-dLOKaX2=SZwv$bj(Oa}cVDqtO
zvqJpLZXSFhVtUXj%vpWw0&5qmgKu?QG=DN1yYpTCc<jspmA@D3o<2Xs^rF0S>g2tC
zf=70Jd2=SbD$e}Z)BaZ(Et}15<V@zZcxZpl@_b80&;u)O`JQ9yE4?E^cFCS>6P4L>
z(L>ZU_txg6U-=&x&y!qNx9tAv{7G}H?^M2OmHBgFGq3H`A3vtv^W1rC$6>WshYs^<
z%(7VTbU5*5{paGsr%SG$yzD1<UvGuP$z_HKv+Ddd+?Pyz{VCGe-N)oqu7#LU;>+?w
zd9#*13BR~lxbEQRr%&p{b(<Q+b9h^==7}pi9-J3m^>IQ$@ynwgL6=U=JCaxD*8iqO
z_MgdtIjtvc4sLswv*VvnVz%z7h@?9iD<2kQwMtwSeeWNu$iHXmuP^PV#iM3TJu~ah
z+tQu2U4Oq?m%n+qZ&~)W@T)l?At7(=PB^Ob7JXTLSy6gg@4c&DJKDJ;p5@d$c~p>F
z_<6c{-u3x6SF&t+_+VXIzv`t^_hPvBAL8<Sx@kY}0YmFxPT|@aee0rjRpfhL6J}M3
zY4Z5cmKo@vczkJIWRgjWN7e$xjwG%4mznour6QLxznqhB|H}ih2Xf{Iq7P`W&f~0i
zG3)&O-&|(<;ggKZn%9dR;yKi8dL@0@oz-<*PZoVh*IRAAWTi%z`Llbc?R)Ng)-5Qz
zt|FV=b?lH&r)HAiteIX%9aMFN9fRz5aL!^?^vV+adr|Y8eP)wX=OnjjwE|L>y^+6M
zOfHKnD^9Sxva?M7TCJqW!M_D|bE?n%y?ftsf3ZZ8%E8Ghf_?jI?wXme$zSv^*lxp}
zmM8wgXYMh|9csu{{r#xpUqRqD%Y4}gmt^Nj;z`p*l%);aSl?<K`7HiAH}m7J6QA=N
z^o*t0{8XI<3@1NHZc#5hvd3>qLX2$D)~^d@Zk+e?S^Ms#4i`S3zRZ34e)}Y$Jms%-
zS}}Uo8)kP!267tSI2x@o{ltUZ{l483LmwaWll0#j`&e+HkDX%TolWlAhYXk>K03hd
z|NCZ*%Qn}F<5lW=K6A%z6LG0g%GsP?@+DneB!1h|#qL*^24CFuVo#4YUoG=t-!sQI
zzp8&^)_q559qXB9%_M_|6MA<kzB03u_n*&nSVy+AXw}wxcOqQGT*6|NA22sH)qR-a
z|5IX)%|*^54l}()4lr0<h&<>Z<hf|7L<ir`E%)MXJ(9ZcMJP8b%kpB7=Y=WF*SfEi
z+-;CyZ1-QT`*&qW>aN_F=j9c56~F4=e$g@IWcP!dq^@1_r&j#ep1$JHnM+=h_rxXd
z>2~QCFTQ1$a9yWs&g`z|BKkgl>lZk-Wq;f_XZK6D*vF=KPu^+jN%|S|e;3cRZ<Du1
z9T03vdZc{i;?9}9%s=j}ZaDFhIq*5h>`!}M)QbL!S{POE<$4T<?c~sje&4Q~>$$er
zLT&F&PuE=m?2PkmHe|oM#1Z)ArEcsh;kT*Z=e1Rdz5mwu$<fbqag2v#UQELEJ)#R8
zpUCWR>y8yOI#u-envif{+SBjr6>n_uaMa=a7qexDmED87rWXMZWWvI(seI^Odqj<6
zN9Oe{c}okAeqf&cL+#n@l%Ssy9f$Np-%b~67FnE?pj6Ov>WIs~ZM|2_j1#8CT=9SV
z;)d1>1yw(b7by#V@4Is0(4uowR_(QK{?p1}D6pTaQS{$+2FL1y@3FRzE#d8BP{UW>
zEkCcsCAB!YD6^m>zX;5A%gjkNRsc7ogTMk#PWctlx`t+E3c5x{rV54z1_lb2#)h$A
zNx#J0RDBN*9}gD~ZI9HPvec5y<U~+IJH1%J*hoLPBsDio!NLN}@BlHK6AL_2Gt)Cl
z6wD1R^dq2bQzK)2$KvGFJcuyJNg%eak%76sXGvmCX0l^mdQPf>fxdG_Vo`8viH3ev
zYEiy^Nk&m>s=kkYn0|g<s(wLYQEFaJYFdeYK~8D0esNA>afW_IWkE)2o_=v=g??Io
zX_3B*ev*EQey)CAW?rg(NqN40aY15os(!wHF+_h6$Z`5$C+g?vr|OsLm+PlxmZj<!
z={xBcr<SGW={xHu>SyYE=?CeD>KAC**}-}rCI+aX>zbFGpOTrEuJ4kWmX=zSnwOkf
z9BrtdpPQPVs9%v8i=@*Kt`pX8F*3u_Z9(p*giP?wKdivh_Wlo-eDqfb5C5r3e5cJc
z+t*&b^w#g-$q7;pe3nn{^G96CWY_ug@y7bIx8Ln7He=d9;kvDx#2Vw4&G8<}cM7)f
zx$qu)wWIRrD^J!3obRq%KDx5=pz~#ee-kGaFA*(U|EOZcw*%)>CajT8EEk<0uX#aV
z@lK(W_(CSlgAWc={9blw_bh>mhyR+cn<`v6Dt<d7zktt6S<_s}Wa@;ISA;Ii{BIfd
zUue5yy>?Rc(~Y*CVGUpEt0w9cM!UY7AYQ%VB6pxr)HeO1O#-h!6fSt+Ja4xAZ@~nH
zNov^!*pjb_5qdD0nOflN$}uvqFflMPGV+1ar>lo{aAj^%ehx@P@rNwq4{??say(+c
zJ$~=}b?sLh>vu=~@2&#hJp^a`ln`QIVPs_ENX`UDRYj(AenBNTT_|WIYbqF8TA1p9
zNOLf02_h{Gz@)i?V@iHfszPvOaY<@!v4Uq_a(+=keo<mcYKoqMV@{3&*qCC4qSWHl
zqO#N!J*cA?7#Z6c85qkMn3)(D8CV$hGamci$M@5zYWt6vIgDFBeYgDj-SR#2_q{(l
zL^C=ACWR&YL}z+8o3uDjidz^qH(_Ja+M4Bc`|9?rST}$6tYy2F#muf*SH352-;Cum
zIM&YExMl9Pg$E|>Xt~_{DD$+>?y$`PEg8KWRqUsW7gsLGIAGHHo4wwnF}%L4vZ}nI
zv@L(K=e)MNZS&^tpMR?MHplkn+C_!Zg|#K|&GNO@^L^%qw^g)RdRF8&mrf|3S2?GC
zLF4}VbFJUm4?J41Zt>jHi#hmyH2yAm`d#Gx_d}0_mhEggP`UQ|#y!HXzT5wtAeucn
zxwNLbq^PH0S{aA%x7j(%+7~pJlr~m&WV9#sm+TMV5dP#E)YMRsP!!x0J1ux}%8HQX
zWgG?Tw$~h$Ub(rucdh*L-aYLT0w)9~mZtT4PL`<dt?90-uB++ETUfcYY+u*n$%p36
zUpHyW`aOMndS>?TDc+j5uyB5MUqa7s_I`<&p2)c+M=N$sThTjp{);Q?SI(W)v8Lww
z<Td^4XH1<tWp?MBim8=T<9hPiIE25Ywx(8QR;R8kpVzm(fA5B6bEa?YpWCr#(fT<v
z=l4&aytr|0L0?v1c71XVhw!V2<dWXv>232R>$e@4F=HYJU&Xwirn7#>&R~1a^?(~|
zk~W4XY5XNJIPIg9$QA|)x<;193Wf%j1`37-h6ZRwGCavc%VQI8DIBI?VG3q=C|DZl
zBZ^}KSOILH4=a8RaFxCJ&=L%}>@$J;16qO^T9}&~fX7$#eN#&kQxZ!O;aN4p*9TFQ
z+1OVUBqnF4mMA2prf25aD!t#mUr8Y|#a1cY)Yrhbz&SM|)1#^=HMq(zB)KX(*)m1R
z-j2(r!m1*-AUCxnQK2F?C$HG5!d58}l=-akimgDx`br95B_-LmO2&GIdWO1&hK5RZ
zTnY*bHbp6ERzWUqP@P37X|_rkB_#z``ugSN<$C4Ddih1^`i7R4mih)p`bI{&MJZ{z
z#g%y_i50qe#mW#vVCH~A3siq*=I1GZ%uP(nFD<cEQUY0|00R&wrX<7dDJU(<0o#(2
zte={bnwy$eQmk*NXQ&T19Ath<vQ=7sQEp<1U1C8&PG)jqNoIbYenEb538c=p(MPC2
z*k_ZHY*mt3l9LMdEX)ZIUpwZMpo)U50XaJ-6BHU&If;4cwn`PcDXD3Rr8y-^cIidA
zNhx|MWtlem5M`*^A)=_Jf?b8;0EjB2kb)TkjtL}jLLpd@SO5>gykb3YgzF{e=jvA^
z7U&!58R%mR_KL&;chB5({2J5sGjr2XL%$-iz{<HOHL)bWC?r2W#|~1qd*<Yn7MB!(
zL=~Kajch<xqbNg)2)GHUE{P?nc18w<M!E*Zx`sv}2If|#Mph<f+6Jap#s)}+Kvbfc
z;hUe5nO2F-3{xu;OJp;URHB;!&4fgmf~*$JoREyt+@!q3%$#CaBtlXcI4V&S0+K{d
zCOB#f5{rscK?R+yQc!AferZv1DsqB{XaFTiXq;J<XQq^7*cq9cfrAJXjZh(kt1vZX
zfSYf2mXOE+Yk~^l(*@0GUIDJ|2+N>?`1EDwCZ?y_>04&$n>acK24_ck1*JPWIi|Zh
z20J==Iy$=On+G};hq`B!rMO#GCAwRdd%F0R`Z_wA1ZL;>Icgg?f`OBxV=$QE>Zqn%
z;b`p`2-586=oskeq_1t_=#uT0on+*d<LDj&R_2(dpXBHn=;)Ll=<4Jc>gtpp>gJT5
z?d}v9>E&FW?(USH?&IQ^@9kWk?+rH4#mUjv#jzZO16>?V0$d#}{9T-UL)@GKLtHD$
zliVwclRYXd(%`t<)x)Vg+0Vt%Akx*zG15IFG{`L|A1n_x5Uvne6On9v3r9!Sz;wq5
zM^{J3a@QcRfsT%zL5_jGL5^wqu8xVGAa8m&f_xX~3SvWXpqpd4r@LdIqldF&wzqS+
ztD|GOrwh6|h=GBQ&W`1QZcgdRp3Z^!KCX_A&W?e;E{^Ge&Q9scE>4b~?v8oBPLAom
zK~9d2Zk|D&6@g){?yg3znaPo^p}qy~8BP`96@i%nPGAE=OFS}sE21(joP#RU%Up8;
ztAawZ3%x5NjRTzhLId-%&HStUGEzdLJVIOyN<BTj@_oIWGt#3nyn@_<3WE*8O8mmS
zor)?=^aEVM1{(T@7(_*cyX7Q?8&;%5<XDDB8D$hC=9UyEg`1W|8V4Ds<fWLTMiiK*
zc^GP^8T-3tL?(J<dggj(npFB_<!d`<n+AvF6r@JxMu811Ov>{zO3gF%&MNQ@&n+;^
zEGR52EiOtlE6WdZbo6v~4D@ty3Ji613XF7hcJy^g0)=gctBaGfYp`#qt6ON0UxsIT
zR7HA}YbDsg{3MTZH(!q+lVCq*w=l2F<TBSPFP9*f^o+#d(8}=4NOK=&C*y!%zf>>R
z^oo?w?DBN5m%Xy0+}tx$vQykbjV%iOtI8|W3%~{%Xa`hfcm-#d_=bd<1_b4#M23eI
zBt^IxrbZYB<wWJC<R^v~6eYPEmL?ey@;=x=ZI>Lc@bDbd%&6Rg(&W4-v$X6&|LlUq
z#Joc9+`>Y$%95f&?K1sDN5^s($3RDCS5Ojjv2e5uH7P6)_oz%WEh!7|FDWPt$aRMp
zm|kY-Xi#QWm68~iR2ZCX5N7F>65?!}?OhRAo{`}Z8Jy{3QsC~EsP7zNk?LI-kP{GI
z5?Gez6P^>1o1a)!<YHWG;hJ1xV33*%Hqa?MDmS>mB*(|mC%C|<AhR&CEG5Fp(b>$j
zC^$PML_0G$(cCf3!qLaYBt6e9+{CBSB;3)*ugJf+%-h4uH`6RM&^gaHCn&@$%Mfg!
zNvKmrm_d%IPlcCzX=0VTx1p(DL3p`aa7ty8t4n@RnR#SkNrs`fQC4_VQdw1ok9)Y6
zuWNB-c&MYZMVMQFaZYJrc1B@dkwHZm*g*I2f{@UN>?{NGsuZte|5DR%N3%5FP^W_6
z{BTEYCvAPVFn`nHG+)1>LjSx9KhyNmf=HiA6HB)YGr#O2N1vn!*P;}kv{Hk_v@EcJ
znT3&gK`G(+j(%xnj;Wqb0R`a^;TdjemZtiy>H0yLg}J$zi6$jR9!XU$DP>8ic@@49
z1>u27hTfT3P8ms-E@dT|g@q~ZhQS$-WK(2l;u2KoVPNi47-He2Z=9zerSIVu=4$3q
zWL#8UT$bx??(3arsqY?{<Xz-r7Uf={U1Xl-5mX$OXy_7B5}r}w6%}cjTACf{77TV_
zQGiF3MWA<~vrDkCxw)x(P`+QOvuBR4W2RwFRe^h1P^L?UX=bTeZm?g3X`oS<dqiHC
zS!ju6W~h<7b8=ykaj9Q+PFQMGsCiI{8mPpMC`t2=ERISE&MWhAjtDU>b#n19DfRa)
z49U+4^Y!)hNsCG<t*A_jtPF7r&9kUTO)7D;DD`sGE{<?9GBfr{NlGqq3Gk~*aWhQ?
z8<<;`U*HuUlwp|>P!gbB>5^IG;pb~%keE|wXzAsX9AfOAQ&AQbZdes%mX_$37~x&!
z7La1>8k%Bg8JV3Cl^7D_<!bC&>hEbDRs=RMv(Pi$FxA^MC)l{8%(tY<&)>wkz{A5Q
zzpAt<G$1Ijz$+ll%r`8!Frca|-y+o5+tk9?*f%sX$snN6(kR8Nq#z<EJHR}<!pp}4
zY@oYEdYXZ;vzud}rAtLoh+C++L7`=?VXC2<X+d~Ngr#|6m{F-uvRR0iyRoN_r@v2;
zdzhz*uU~npws(G}fq{N_K~cGnex|#AhymEZaL-bo)Nqdw?I5S%{QSyra~I2!5X&OZ
z<cPwe%1AI7WS;0(7*!M!QDm5yo3Ec@6kcv(P*9eX>aQIVRTyfNk!VyASdkiO4mQxx
zJJ=~Vv?AQgCCJb%RNpw)!rQ>#J3lS3C?MR&JkZj=EUF}>EFiozDcm?Wr@$l1G1)lK
z-_pr4TtBfWv#>1L%%v!+ywb<XG`kFJU}QnCyQN>1Tcod>mq)pwQ%OmAK}DE%QbdSl
zs$oQERDOtQmZ7tEd9jI4N>qrOM^sR7a71XKdw8I4T3~X%YgVFHdSRYrzM+>9q<~Eg
z4D(D+G0SlCs0=F%ayQN`3wKN@(M~Baa@W`QC^N2fF3qsWP0THhaF3`8DKxK4&P<I=
zHFOIzbuIKx3)44E$;vFua54=x^bZHSFws0j-_a?m(9km~J<}<?q_EJ%wa6meG~CcR
zEz3NmFvZN&-OJb~B|Fo}-Osrw%R)cQN4v_z(<R)`%g`mb%tyN*G0(@e$S|>_7;K<d
zNRpp^zPY2HyT5aWp<8icMuD5Ld6J25a*;<xfN`l$W?qG}zOQ~{uzR>!h-tb(Sy+~@
zkC&;tZ-8rwS+T2uhgU>VMRt~Dl&3z}z|gFu%v7I(un;5vkR*4%aN|6es=QR~q)1Db
zOp6lzP;+<RkPze4BIA$<rwm_LH*=pP?`$tu=b+rgL~lQ@oY2Z7Z{xr$lgz>_h=GpI
zenlk($=abQZrS0+Wu8G^Nr4rG*#@o^iG}(3g;kFJjs-=<!HH2GSso@XDJHIkr6&62
z&be9IW#+CH5n(=&7KvT~7LKmQj*#-O#I&NU#IP{8+*sQnr8w0$E#1w_z@k(;KpU*b
zKPksB*eJj~GejSx1&ivC0@D<WG)q4Z%QUc;jgpOW4AVlYDvCVAd;-iOUGmL5a!g!(
zokEI?D@@7@3=Fi*t4uS(ONuHDO0%QP!&CiJT$9qPg8YlpeH~pYyh8I*Gu&N+olJdw
z!3O4fC%c5EM{4Uw1sl2qS$Y|IIe8TN<s=yw`ji$Ly9NiRdl<Q-n}nBSg_oH5r6ne%
zCHnZ}=aicpltp-(C8Y+Jc_kGGMMbz*1_yu*G|MgyD9_3)bIoxxvvA2Q^78XG3^y|L
zHck!p^z-m>Hq9tCPYh1aNzV;+Eb;Jk4E7Inam>u{j0$!S%?Wl63ysPwDh^A@EOa%D
z1REG;pdFDCWSN(uU#y?#5#d>7>ZhHnU*=d8;pA!Qo$gfRneUfsT<V*ZZI)_TZc$*G
zYUyQMYM544;gqPI<(*ZLn3NoxT3F#x;14Ojs>&UmynWL$odPWi3;m74{R&e}3N!pd
z4AO#A!b<cDwF`{G%F>MVD_jhca=pB=^UZSHwcX0gwY}WE^Njp_!-D-yOANCtDvhHc
zl~k6czn@P)aK3@Jfpei#YL!8#r;|}dn15tIQB-zNcxhf*dWB_hu~VS0vtLG~XF*9w
zp>JW9cU8E4rH_wAMOJpOlWUfKNLpc90Hi$3b*aoKvNTLKD@*mt_cIPKOVLk@D0VF~
z^9^!K4)iTEj0`t(_YXG-&d#>T$~O(mHBHubH1SU^iOf$6GbyX`N;fn!H_)%N^eBSV
zDOm*;26_3J-jxPs+QmhQUS3I2k--L0K|wD1`Q}DuerB1zE}r3D9<IshVG(7<IsW1L
zxg}LTg??ogj$uWn`AK0#g+AF){;pL<kODR;JIl1Vu-Mos!_Yr0%dE=0%&;U-zs#k?
zz{4!f&`UojE79C7w9ukJ-@?(`+sseD+_BuRM87gB!Y#DCw7|t9u`1ZPBs3^j+cg;+
z%eh8Q{^dr6$vKV@o=(9z5jo)j`i`!t+NIuEminnx1%XM9X<^>sf%*Q1L5YS1S)NA0
zVIf7Hh30OdUQr(U!6|{pp$2&oQ9*%OmS6)b+$_r?!vZY4quc|0^|SJgP16c8^uzRx
z4N4<SOben+3$s#_DpQJ_bNoY6Gm`T%vmBGW!#({%D$Sh>JPeYeJUmj;T=i2;QavH9
zuM%ww{nT*xGz$~U#E3MrB-2nsf5Wnp;7mjRM4wR8$lUCVT-Wl<RBvxDFQ1fBA78gb
z??B(Oq#Vn9=PbwEijt^;08?{|yuidfNE<sb)TlVTIJY1%!`HGTF+ABfJvS#Y*ss7f
z+0C;wD$vuyHPg2$G}N~sG%u$lv(U{VJFzU^#G)WE$ipSY(<HOFDA_G1va}>T%MH@k
zb9YX6&CM|K$S{v|N=xz4cXTb#4>e5nb2l^A4$=?J^E5OL&T{n%@^{WKG4Kp4)c2?~
z$<6WBcPsbv4GwlnbMes+uG9~$(Dw~01c#xezJ()5#8^AG#M3gwK))#4Gd17M*~F|Q
zA~T@CBsVWByVTV<%)`_pztSSn&oEKjC#=LfH#ER4H89vS+}SBRCn%#bGR)Z!((y6N
zb}n`I4e<<jO7eCO_RUBRc6Rkj%PcQ73^yzBGEcMgDlbec46CXP$_g{|adHj{&GB-J
zFv&1U%1U-jkMeabO>wU<^^Yj9(02j5&@3v+#5655z(Cs~CBQH|t0-8zB&pOmv(zUw
zC?YdAD9W?ar8F!hHP}4Wq$1xiDa79?%d;ZDH_6i@JWbm_D?h-(vC1Pr-_bA74{Tsn
zdSsz{v8SJ}p|?jwzJ5kVQbwX#seeVfkB31)mWjJ_kfo8CvtM3Oc&0&ENR?YeBsd8c
z8tZ!m<Y-rESLvswMQI!Omj>lQ>g6O$Kg&q{z@i8bZL_j0@3b;EvlRVu7caA{qU_|n
zkkk@mmr6@NGvnYCqmo<;b0gE>F!$VukfMyJ$Z``OZ>Ipqpvpk!Lc=1%B1p@@(mmX-
zu%t-e(W}&=I5na?&n(d}*r?beCoC@`GdDXlxY9evu_7x=+sM+n+@n0*JUi9jyCA~U
z+``z*(ln(cBRMh5G&R@IG9(FNpif0fZmy4ZVM#?&d67qXMtZ4>MR0^mWtfF$RY`D>
zcVWJfUrAwAYE+V0d6`d+Pp(B`WpPnKkwv+7PI+iVPNiA7k84Iic~MBFGdK*RQX`TL
z{Y}H7982>e%!=LJ3`znM%`;6rwGAuH+)WA$^<9z*va7Pa%*(P}L(9!W0xHu=iaf%L
zT*4y^Q%%Z}jDt<1qEZ5U%{<+}24=b%B$k(WRAg9sWT$6kg#}d=rj(Wj23KVnScd7F
zCVB=~IA#ax>pQxISA<1H8W|Y)8K;!_`DPbYY3G`TxtTa6Iu;oC_@|VYLh5BuiIt(9
zQ|MusmzE!3kZ<hcZfN9P5M~;pZyFR4RHhy2ZlquC9O7+Kn3WRf;a!!TWvri;92pXn
zn&RYL9$e;{o#c{JmXqsamJW7ds(G4eQogsNMZRHDWmSP;xv`~bN_kOguw{_8MQNF_
zMP5Xjd2&W&iFc9-IKf1D=sUXRh58x#c^MjohI;BJ2c;z$xrOLELrR;Vtf~MLGe7MJ
zv&b~VGz-VHVAHg$+-&_^Z4*nE%BVt%^uP#j?VRMo%F<x(<lLx~LT}4dCx7Eg^C%Cu
zN^LJ~i&Bpa?Yz8Hi!w-gXb|qKpHu1=X;@@YRpzUo>*kdd?h#m&Xj1Cq?racbkX>r(
z91vs@;S%6lP~_xQo{}A8tnHee?Nb(N<X2?iU15=<9bV)TQQ((W0`_u}Z-rTrmzz&g
zS%6t_m5*7nWx1iTx08ESuCH4`fqPQ6Tai&wg;7OVlBr9kYeaTgkY~A@V|Zn{QD}Nr
ziepNtzma!=IjFJ^gt*Yu*~P=GGP}UXMccx~Cp662JSV)sFf5}a#4I)6J=8QZDLK%{
z(^%ipJ=NSI*(fW(B`MRrBCAZhTsufVsmd{|JTyDd*V{MC(G}A1adI+t53k5cHAzYj
z42leN&knaN)y_7`EY1v0j?6bqws3Te$ntP6@lMI~EB5zKE_64~PRvg$i%Lofbt($a
z4G%0UaSnI)3^&y-1$)^yKh?$3pxoIgtg_rKtf1J%$lusF&nL}2$Iwq(Kc&Jf#5>i;
zFvBM@qOvF;$~e={y}+}eGAze4)jQCoC@eACHKi~!y&x<-(AfuUpoed=zM+1Wc137_
zPgqp|sO%3jFwHLW@yjbVFAOTlO$|1VtjG<`Dly9s4R$e#j0(^3^M$mIlJv9kD)poE
zqx8!HKrJJ%fzalWc5zyMSW#}Cd67x5v3W&mUXpR8e@KBjxU4BH3<(Z$OilAi4bL=8
z3O3Cy3QaD{DD})L^)Cs?G^(s93HGok&$9p<Smk4yXHn==kW%22Y?kJgl4hPAo}QJN
zlvPpclbj#r<(1^GZ{nGqR#=&qm{C+=l;dLI78RD4>s=6#RHR>3>ZWZNpq-Nzm6a0$
zZDV_um6jA*q-pz=<yVCHgFI7I92OdCq8|~J=whNDl2vG&=^tX?5n*asT;!G<Wm&Et
zY*0~D;bLszsjVHHlVWUIVxH;lmXr$VfG1ZLd7AnL1s4{1R1^jm`4;(E7N<oOrX_g=
z=L97iyJeW<XB#<%C7YWWo2EvD=lK+t6qko)_+*(FMpc9xl{yudBpMdxR%m-fg@C<W
zno^h&lvR;s;aHdw;F%H$YvHFxRC<S{hFXS{lv(&DdgnQ(78Ls=r|XBAnx(n8dYfB#
zrxly01|${wf*Sfh+7UTn#$W?I^h1L5!!z{#w2OlL@(nDKy+blngN;kwON<hY@*FKg
zD@t6P3%ml8-4nxuQvFg(!^`tRgVQp!1G3Xiydv}+9reu;1I!G}GRh#mQFm{5cW-a+
zl*sZN&m8Td2=~f@l0d_dq=J$N?@~}FBfvB@A`Mi+7^E2%85#x~C1nJ8>1P#H6eU$<
z6_^-?n4}d{m{e#xhWUeCn3wHioK>P9oTXh-X;zTrSDv4(UtwrsSYldXV3Am05ny0q
z5vlL!oflH+W?o^WUl61po^Ban7;cnmRu<@*qwR0v7@kw&U*P8H2{y3Iygb)8G@#Tt
zF*h*FH#{xPI5i|K&%h$XJ;28-&D0>x)Sxt6-#8_-%)-&PL_euAHMAr&Ffb%PDl#eG
zyC~ekSUWT|BrMZ2)E!dVBo+r07!{>g1iK|?`c+x#n?*QRM0z=UnL1~tndIwNWto~A
zR~ZE-S>zNYg-4e8l$d)Jh3EMdXy;c&6b1N4WTcl=c~@j)`DSH8yzE|SV36({T3S|7
z<Q1ObU0LZFmgJM|ZQ+sQQI(dOnrt4fZ&7Y+;ig~i98uz{T^tdfV^o=EV481kYF-!_
zZjs>{>gyR5S>zlU1nHW&d6s(_d*_s8RfPHLdj^$enfe-p6%__nR+U7R=i~;sXa|Nm
zS_YV;=6V-cf{MMA%)+dwFztf!uu$)`kPwrg;B;-*q@<*%hzxKTYNw}~_=US@n`fD)
zr>FQEy89(1dV6H}`S^qfx@DJ`x`vpzCze&Xg+-Kv7*}NZL>YyrIfi)VmOGW`y9O9$
z=ZAz9>E{&sr+b(|!qDH_I6Et;AUMaz+sw_S%rGFyD>)+Dz{4fNA~Y>G*VVGhBe^`&
zJJ=xCyV51wKQzrKJkTO1AR;QgGQB9IEW|6YGS{m(JliC|EEMd*wA}2{%*4`4Gvl<N
zfTZ9;LvuH`RR8>loM4korxKrZ$Gpr`?@Z&&f)Z^*bCcv;gOc<_{UC#g@&L2YwA{Q(
zvy4iUG&4Vc|CCfngEPfD)n7Z%q|7TM-Bi0UpengEKe^OHJ1ZnBFQPCnI4`R#t0FZx
z&#B5XG%YvXGStw$G_OQIzqqWzz$iP!Bq%7uvM4RdsM6Im3EHjD4>1Wa&NFl|@u&<l
zO$kiVFVuH8&I`%&c1#UT3v{V4GboC1@((g9DoYOVOZO}+2r}|CD+qH+HcmFq%k;=G
zD>N!I^UF*0c89baA`QJuqf7!Vz0*7b(|s(9lF9=jd;*iAqCAtmOw+YZ(<4kP!&5W7
zv?KGf-OWq0)7|qUQcQA6oI)%OQ$pOmElZ*z%d@M(!^}O(!C{zDXzu3X<7gU|8|IO3
zUKngxY-nMY7@{4SVwzm;XBui)=n)d>;!$3jZ)%VknNi_g;F=wkXq;zk;#QhiQe5sB
zmg*Ex=v`=RngZ#XRi*{&`-PcD=7knj>SwxTx%fx<7#iecM-`Y?T4d)(ID4o1Mkb|a
zW~Mu*ySRmigBq|Ak%a}`UI9g+83C3?p@BXY<q<{tF5VCqx>R_S=BE`Tmb+Bsff)Lc
z`6XqAm0>1nrRFKx0T%k@j!8ukW&!E$!TOoW#c9St7N%(~ksg+bK9wPXIT1Ml7LKr1
z71+y0`lh}`nT5`V=|w4(M&2%&mBvQ-;bwuAS=os}MgiWIUim3ynb{?|;e}brZXpo`
z!Ny+2P9CP(`WBAGMdqPS+2LVcDWEJAm;*L2N53qj(8DOr+%m1$GR-{G$2_e}-#Hhx
z4P|NRlcVjQ7^0o*65wI#YnYO6nwgd9ZKCbvm{C~dTkf5gUF4FV2sY58EIT>P$0X0Z
z(j?V23DgY?chN6*@%IZb^9{(()c4N|@bGi?3-nFSsc<y)_0290D@ZEvG)N4HN{sSx
z_bv*`@NuuoDJ(X~g1E3WJlwCy+g;x`+_*H&-!(1AzoMidG9@(FBqb@QsKCwFD?L3d
z%FD&wAh{s1D5%mYCn+;5)F3=0y(-_iFt;q*+bpBB%qusuDli}HLbD*hsPYU)lc3;4
zPp9zAG#A5)umI4w38*qn^3iwn$V%7t$<sCuF{vtxFbOI%42Uo_jmXeWPf1BPj0`X@
z^|v&43I|p8kWrEFGz-V9d@~pQa>t4)eGA7>mt>Q|+*0r2)H1_FBMalih-Al{ij>rn
zM2p~ZZP(!P)M9h*vhZ~Oy!?P%qwrwk%mAMx%K$S2-wa5{r^Kf?EHJmoxiqiR98@y~
zyJzYrdW0If2jx{lJ4J;NK_Qk^l}-WXhN*r59%-IYiAH5*$v%GJhWb_M+2#?+KH8}!
zNlB14wpmq0VwAtRZ(yEVc514tcUYurnPFH-u6CABxT&e7c5-O8YlLZrcA$Qdp{bW!
zl5v<(wp*T4QbACbZ;548m7ir~vROt{p+!g;q+8+a=;Gw<W~}X&7v=9=WaQ!&nqg3A
zUR<PK?pPIJX&Pzl>SvgwA6k^?VVLg`9F!KCS?W^~5t5znZ{}MNmQiWsZ|H4Om}lf&
z3Z4Ei^3G2+@C{ARE{&`VE;bJf%_}X;%5?TC%_s;>3-B%ub2oL-_R24J4K9t;&(ts0
zjtGl%i3l@tbk562Dyj@Hk2Eb!4KVOXPtJojmYn=k^s~z>%q>04Lqn^)GjohR!@`_=
zd_w{qT?&JfbDfd`EA%T%l7k~6a*~20lR^!$+;Wl%d{UC!0)w2(ydur?6C+c+^`o31
z&ADLb((p{rtTLZG<Fq1uH+_Et&y2ug<J=NYgM7~tpW+llv-GmmU`MZza^J-8th7Mw
zFju1-|77RViZCPZ{NPG`;{rn$^8icjG9z$0Of9o;1a)03^-V%6eN&_KJ%Y+A^+Q~=
zi}cG1lFKTpf{m-(+>7&aT*BS5+=9&9j1v6<lhRAW%`&u2^o@!$G73vdE%Z|(oXa5v
zY`J+_RY970ezB{*X+=qCk-LdSmT{V4uxV~-XnI*tlD}nTab&hrda-$`uS;%@aiLds
zM0#OPcw(SSai*8MYlKg@saaTIc!^mAWX7l1G9$^j*tj6rEH61N%*QR&r^GC~BB;RM
zEzHF!Ej=sJFfqL%%vn1mQa{9^AkjC^BO|ynUE8BvKP5}wJIylHyPyJ8)}&+>LegPL
zVW>%_f0#j5sH=~=W1eeRQAlBdzj0EUcScrGcCeFiQd(hRPzH>d<my`HmSGv0?Uj_D
z7-Se>n&zZk=2GsVot#z-iRI9|a?>R3e0_5d%iu7x3KuW!>@**JbIYoVGUKA+yoxk4
zm*kYR49imEEQ{g*$5adbDD8p($CR?rv|{}*Z6C|Z#7y_#A`i0)&p=3|q!)OUSd?Yx
zN2Hs$==%p4r4<I5MCs>wm<Jg8rdpT;1($~#fl@%Fhgn%_U}}MPSXO|uZ<V(}afWAT
zs7XbBxskhNYHoN?MK;*La!->igMbj@6vLFXV(mzO|FE!%V11(iv)n-KEUzll)Kbd;
zQ*W;j{Y<~Kib@a1q|z$OJhR*g$E31MknM?XW!|pd`r%Q|&<UE<?35q_{Yvk&jO;WQ
zzpx6h%hH^4!jePFEVJ}0yxj~Fodb=0^vfy({r$qy49YXKJ<}2cT+`B%T}|9eqqM6m
zL$VW7oh$+&eZ9hn@}g4x!a@TJzj9~il5+iW$Ix`6fC7DImk9HKa{Z#B^gQQ?;2=}&
z2(vub%D^0h?360gq*U`HbMs)+qLge4W25XWUxSRK5J-8L6A&8d?VRds;Z$JZ<zZoL
zQD%@=lH}@|l9Xgp;c1$ypQD|bmtAJ69T5_uom%E)S(I23tY7TqX_}v%o)#2QX6jyQ
zZe$$pm*fu_)D2C_@X9xJ^DC}OEiCr&DRxaVaq+6iu1w9+PD%6BE=Y|ujf^NsNi9wB
z&am_`@ToKmG4#mD3o&#{GchsD$qLSo$Sn)ZC`|YFfDAi31?7Yp7UcUCxR@H0xfSPR
z7yE?yI2&ZU`sIhXI7UU3nwJI{C3>Y9M@1R=g?oh;n47qy1sYnE8Kf6`m3x`GW*LWR
zXS-#4CngqxW4Y4Xq|_%pBiPxq%DW=ez%RwjJg>;aB-K02LccgmyCBOXs#M!k+dRoK
zIM1WNF)J+4r_#*FCpfFbJKVpb&^tXn-BLT>*xa(v5i*Do<(3?wU6G+*;o}-v5EkL)
zqaUeX7~vA^lUnFznv@xm?&jzcQfUz2US^cz;^=2tlv);H=Id3QTUBP^WLfT(R%qsB
z;p%D>9HI?rw3{Tkg}Y@rd+WRTlvM<PMn&?>{SwnkQnmH7j4P`uTujqE{YpH&jfzbo
z4E-%qf{mU1B0Yo4b8}2BOv){C+_eJ=D)K@N%q=Y-dD%C^B&$+8FgeT9yQ0Ef+cM82
z$wfak$E~QKB;764-O0lwBhWqD!>`b*v?M&S$UVc@%+%Mkz|uU+Aic~x!&y7b&%?{l
z(Z|`y%L^QaW{#<urC|l(sbS>?mU#h%MVVQNWxj?+>G~%5-bEfsNomD~B_;+@8Ag$L
zZlR{2Qnj=q%sJe%AlWR#GB4F6RNpx<Pd_!)$2<aTV0s#&V694n7OY+Yrd1iaITpEz
zr3Jp}*{-4HK4u}MMah9xp~ivf1|}&%2IZ0FMQLRL#-(1FrQo6K#7M{(tbVzpNvT<s
zOF=+(K&YR0reUy8SXyCjfxmmHr&nZ@NlsKzqElvOaA0tRYfz|rnR|9ls-J&wzF}y1
zQe;(HP+6t1fk$wFU$${Bq_Jd>QyNfIY*?0TR26RS?qlFsVw@I`R$1&=oLHG$7M|nh
zT^5{|lw%PN8ikA~aW6^panCfeEJ_J7^7bh(%nvLGPYw4iHp%vJg^V8>=cRji8n^`q
zCp%?38bw-!7Fguu<@tmrl?9jinB+u+2f3w|rFuCQ7Y7*TdRn+SrG|xNWv6OKRTg?y
z<z;4gg}ORA>bttS8-!GV!!Xw`!Z0$qEYG|uEYUdBvZ^SzEYU5|EU2I|u+l6uDaq15
zwK%iLJ-;+3pfEi>z%nw$$+^rZH!#m6HO$$$JgO=xHBH|$yg0bZ2(q*zGqKDk*(|p>
z#UwI6-O$WCATlq*FSOFp%fhADzd+lk&^ya5JO$LU4lOjy(+9V!9DOUQ^vhjf?W%$R
z)AC~TObbZ8T#}fP6kcgzo*V8Q?Ct6lTv6m*kmcv^<&qYaY@St+ZIKqPZIbUD6`o?~
zmSU9bX6%|+5#gE`T#={ml@eHPmReEi9G2u3>Q!hAsZ$)Cs!Y=|!pe&EolW!0j4}-U
z!t^7uqbzduL(+`X!;<o{w9QQYD)du*LW)Y$T#`IZ{qxF_1AM}b^us)>q5^~Tb6wn0
zyxcP@t01u)=AE6DndepNR^b{{=?EHyD=iK8EAlK33$6-F^VQEW4tB0I%P9;iNvzDz
ztkll%^32cmF4Zr{56vv9O3L%HaCQm|u1a(E&PxJEid$%&L0Lq8QCU?|ns#1Pglm$1
zs7a(@aH^lDSFWpDMM_bXb4ak4XQZ*WVW5S#dr3;MQ$V&+V7jx9Z+bwUcDh@(vvEmf
zs$WV#9@sz+PuJX{z%=Ke@N_?~)PjPN5T^={Qf<@R<j^!zi!{p|{R*Fqw1|N6G*FK^
zIXyTnvqV3mAR<z~ELFcG3#>NHDNEnc#RL+D=05tF;W=eR`4)+0Dak&SMd3x^`sI#(
z0q)raX4*ypuBqncIsWbe7TN*YmHH+*iBW!$IicR!u3^O<Vd)0N*%{d>?)j-+u8D<^
z24`|uL4>7=uUn;$Pew(MX?CS$d7*w*s<C#Cw`Z|=xW8d~xR*<1KzMLqx>H`Vd9itN
zpi^a}d0vuNkegFsrKyX5Se|xyig9^ZF=YHOyu8#P&C)wH+|tdWBrwg@CoiNZtRyno
zL))x4H#5{X!_zDvIn+1NG9bgW*u}!%tjN#N(J3&=F~teeq$w&63(Uz5u=Fy7%%?;J
zg{Pz#`UR&MyG9sURt4&pJK~r?i!ja0F3H#Tb}!N{@^dfrb4f|}^Rvt@4c0H$cdIZi
zDuzr4r&UzC`{Y=JSehpLI7PUW==<mBmuBW^hnG}2m$+G!>gT#?=SAdLlqc$2Mj9l#
zn3#Jz8=3?KmwD!thiCa!l$V$!>X)WvWPA8RIzGleQEuMJd0{E0{)WM!i7o|65f&E7
zDHT2iDY=Q|x&D5EjuDPVd6C)XX{MIGAugF_76B%f6_FvCA(dVpmHNRMWmT?*Ng?{>
zE)XvpxE5y{TKX5KlotiK6cptfR#jU12L@&9hea0U20BHh`XuL<`+MaFCpu<%WE3T8
z`&gu!cx5^}l_u#sI+=R8nFbk{C53zBl_o((=OW5{{nPV8ib_p0N=%Bf!aNId%8F9M
z1A_~E%|ZgxoE-zwgMtF{OAQmvO^UNk4XP@W3c@puvit-5-HXktypqa;i`?7_!wb{G
zA;~5?Dksmwyu!^nH9yVLv%n%Ot++tnC$q@F2Q>YZ6JD%u;ph=$;Gv)EpQc~vRGJ(X
z65$r+tQ}h7obPN=WmfE!A7+~373P;125E|f6h)L6R#v$u29yUFdwNG`hX$2f6q_YE
zrj-~KJBMeN>AMFTdE{57WM~_^ry7M7grtFrmP(6~fE+isBy<0&l8OlPK(pLJeMn=e
z(pNhqtspBr(A%&o!qPA(HNw0i%_Yg$*a>;qIk+SsHLuFp#mO_WD$%DP+af!_E!;Id
z%G4y#Br+$nz|Gao+c659mm`e|^fL>CQzO&7(sJ^u+<cO%5-Xz8!V7#teT!XE3w+$e
z!i>W5A}oz6!@{&3!_rf7!wd6F!aco<!pht{^c_8o%S=nkLiK}kAWe}xbHCI8!%VY)
ztV(_7T<-$Y%)-h<ll1hEya3PQ;IM+ql=S=}lQ4hpLJzZW1JLYRQe=R3P+^*3MVL#7
zc4B}}s7sEQWq5IZ9wbt{3oR>L3yjT@+)A~*3!^NIQzODXw6h}8%Q9U8iz2<eQj7h}
z(p*c5iwisqObQG9(kvWvJwkJQQ}c|H5~G}rD$2}FyrcZR^b;Y&eI?mZnIR!bmKLEV
zd1;yDMipVf7U_v$QHd$0K?WsBQO+KvKH<)(rn!+h1zu4R86nx`#VM7Ej*clgp-y3r
zp^i>r+5X<(ei~%90@SPs(6;o?Pjk-KFL&~cNC^qe(+@H!F*5dZF)~kr_t&7!3P&Ha
z;85)(lk8lJ9J9*o!VEV{cN0Hnw*m_v$Xb!W6m3W2f(Y$`O8)>zmJV>KGz}|FEA#OT
zF|bHW@^LpzPs`D_FwEEYEiJAvi^>nrh{!g{aLe;4a;r)X4$t-uPj=H!%r(md$8uCo
zcw%^PkbZG~XjqzSx`De{VNz;%QCYZ;N2O&!N=|a3OKL$tl955EuUUq<b7paNq)Vtt
zgqyQ}U_nV{p<hyjUxcHRM~;zpB%}%`3<xWB3W@Y6OV+mZ4NFQlEDAHqa0xbZO7-##
z_q6m44iCyN^UVl}FslkN_t*9=O$)aS3-!n{O)JawOAK|*$@DACOG`Di%&^o3yU@EN
z(9F2V#mC#AEJxci%ezF|EW|L$H7Ca;-O$e`H(lF1zalJIyCgBc%qJ_~&BD?@$IHhx
z%q-Qf$~@1!I4s!Ayv#DKv?R#D4AM2zjwq`1cdjZ82v5n)DGm;HFDc6OG<P-)2r6*Z
z)^`i7@GnU$2y{(!N^>=E^0W-DFf;Hf&@T%ycT5Y(EcD1TObRbB4b2G1F|vRx({fDB
z^EN0di!8H94E8j3^|4I!2z1nUGYZJcHVMwxchpZV%*rn@FY?Qa3a$uAbV;=^DlIZf
zNem7TDl9fM^z!l0udvWB@$wAFf%Ns<f`SZ<!^^@mg3^3S%*{ePEG<2wk~~a;%Dv2-
zO$*bq@=Lu-5;F?@3q!)Qi-QxLQYw9e^TQ&ti^~h#!n^{?jXnL1g0g*FQqmy?dR94k
z6+|VQRTULwx)_xCl$g1gW%_xAhgTRy<OS(#2jmr(RYZDKcomjfRwQQ!Cl-}Ogc}=b
zn^{x^MP%pZM!4lUxkOc!m-zWZmaP^BRt5MtS9+J_S5{W0xF(s08ylPY6^9tRg?pu@
z1XOt$<W*)RmxpWThliOb`z2Rs7bKM=7CBdzriF!jR-{)3SA-_J2PHZhm_o)JoC_+G
zEt10mbIOt;v<nie0t&;+v_qVuynLd3QeEA{D@x1L(@TqrvO+6^D-3+ILn<nhd`c=!
z3=3T{3w`}_%|ZfQQ-jJw0$sBpW3VMY;Al(JE(hg(!$hN!B99dB%G6+&q(axo+(@s2
z^hm!@N5|wSGxKy%N;WMj(Jyy2EAlH1b}1>)E;n@y(=T^23vfw;ls4fee&L3}Uita?
zX+CboPLAOLg|5Njj?P(`A)($SRfayH?%w%1B~gaHVFmeqW`-_-X=Oe>$;pX^#-(W<
zNp7H(g(*p)`JQDykO4_E%P7Yp->4*4r%1ERB7JiMZMQ@hx6pw6Fw-Kpto+ox@KB?S
zh`ge3!=j|}N`vg;O#ehr*VGK{V*O%+im-^%lvKkC&nWkFixOjSPAM+VcS+67$SHPn
zadk0C%r^Efk2ERF3@OykcPt7C@-axy%?R+XG;;GV)3$W?F7z_23M+RGGEFJVOv^B`
z3@<m&EYL4^4#+DpfHc~}N?pQBA`)HweDd8)vNIyH3@W^$+%qjI-Tcyu`~r&2O$swi
z{K5<~-4iX+^j&gHgTo{JGs43w3oA3dLQVZDOA8(Kos7&w%?%*~lD<Ku;pSeR?!JkB
zh90J=g%Orz6@j@05ox*376vY1K3*k`WohB1u6bD{>0U*iVXlR)1(lHzp81Yd$sy)0
zPFYTl#^zO)=9wnxki6`t4O$TtX6jcQX=-X{pkGy#VwCNn?dBJpX`pQuSm~S`lHu=~
z>F1v6;g*|Tn(9*I>1I+=;hkCF<EdR~QdnwHk{aUYV~}W)3rX0a6*-n^hHin{MaIU3
z#;%!FA;sB=mA;uF!NJac0mj}LuHornfsTH~VL=hOnFbaW#^Je60X`*`9+8RJ#l=aP
z;VEv}nTfuB!9kFUKD5x((>psmIn}Gs$s*7#IV?D!(oj1hCC|wxGSSjBGcZCw&)d<d
zC@ZugIi%93D#Fk((7Vh$*E_SqIHbtJ*V{WaKPb>GEG#@2(hJZ}GAm0?^h+r>3rKOU
zG7QSEvJ5GWa4ycQ%t}d(jPeSq@bmVw@Jmebv$P0{tSTtW_D%~mi7d*hGBOA+GAoNR
zj><F8PIV6s_lNZ8z5V^8yi5XJv)oG40}6w@D?A*{okCLz`~&=Q!Xu3HvlFZG!u=zS
zEHbi^z5Me-OWaev@=aX4%?u-oN((%SlfzQI5`#?hE%H+#Er$Sa{{piD?MS0CBkdA1
z7bpKDf3N)fByGcB@5pec+|sZ_r%0dR;G)26i{P+i^OB0>Wc}c<FtaSv5DV?p5Pe4%
z|12-l)Ut|HFG%~)Ju4}wDkv+n($mBwH_X-4Eyy!J*(Jp})h9G5$t|>?B+WY@w<<Ix
z!qD5JDy`7fzc4l2E6O9sz^Ee2D>KE}C#S$CIXE@TEy>UloKw7gG6OQRlU*}Hg2DsK
zJPWHlLd>1349v<)N&<=_!%ED(4KjnBjnYG+LbI|$y)(0noHKL1i-QgGDh*AI3<Iis
zJlp~bLw)nIb0K42;U@aQ;W^pbdA^p#mU%87ZjSC*8DW(HMZuM&mQfjD;rXe-ptUi9
z+7V?w;hCusNlqmJ28l-6g+^Ib!Nxv8$);Wb#wF#Z**TD|S&nB_iA6|pNN`Dji(6>6
zg`ru1cBGqmp<!`~i(#U>fkBjMk!NB?l7C=!MoD&}iFTQ@cTi+Rwo7G!m$O@eXMu-n
zPI#bsabcc2q-~QLmf~pO9;}^hkZIsnXp~=B6p$L48kBC4neS=n=~7%Cp6Trr1S)_)
z&7M+|f`X**L~rM?e6Ipeqj2vO$ATz#PtUM&k1#{XP*s7kwpVaKq)B19M@T@WzD2oN
zSsG|4I@cqm+^oVS%Go_6$fPJdG2GqX-_$oWJIv72z}GjW(4{i0yihyepg`N8Qajh(
z#3{@Sl2bB^9FvkNgG>tz!}W7Y^!-Z<g3QWH(=t;1O$@Y+GE&SF1C8Cvl5@k2v-8|a
zJQ6dsy`6$hqH=?BO$@RkGAdKTa&xoIA|ew*3Lph+Q9){6MQT>0QD|^rcyWMNo=H$e
zp<7sLNKUSwqkn<FcX6PhOJ#+rxuHjuYh)5Ae%wtha;mCA^usOv3q1>rOQJlzeH=|Q
z(;<~qo@1WBp;xxHqicX!nRjMkae;wPpr5CKM@UA2QFeJ+SdnjVaFw%9u0@`CWol4C
zluKoHl##ZVv6q>?k6T2Zex7laUtxAYUJ-01hO>F3cBG+!rH@faNM5PAlZjV_etuR+
zglm{#d8tWKa9E^Ko=;$Yp0`P0Mn-X^YgTq)Mw(BVX<k~kWqy%?fwOm_cSM+zi&q+?
z#I7i;uyo7!2{&>s@Qo_)cT9Az%y!Lk_AIe*4b2NP%nu8X&`!1V)Ax0^C@D|#GAb-j
zOi9*Gw}=WibxsZl_p3-M&dv!hG0)d`fh=guHZv#)E^<k-EC>rVFvzOR%XiN<wyY@h
z%Sm+d3o11+F)1oEk1Fu;@^Z`a@%1k8tjbHt^YKkIj5IF^H7U&3PVw=mibzd#@o_T+
zXT4BE=YWuuL>F%ZSBuJggCKX4s0h=F2zNu5(9rObK!3x)uuwPCD2wdC@M6QPqTCYC
z5<}C{jEvmOJVURjD38LDa+9bWe*@nneaKK%rcb4-w~I+yMvz;6eppCRgn3$+d0tRa
zsYg&zet39ciF;aMN@aOic6gwBp+&h_a8|k@q=5AHNOKGKH48Fz%q@!yN!Ct*%%@}-
zCWU*N8$^T^C6`wQ=NASUSrjLi6z7LIIp#YD2RW7Jxu=`?M!A~?`xjOvf%<>uNJMy^
zNwT}Cfk|ipXv_`l<<yeou+%8yGJWq{eFNjj<g&s%GapNT3se2DvLOAy0K+V^(y~JR
zh_YaPgEX@W%TUwgfN*`|h)T=iu&4;rH2rc%XZ-^I5PcVYNF^0uR%I5N=VO*tVd;@&
z8I@+J9Z;ZOnwn;qSyq&smSvipnr80rU7QIW+62#zVJC_q)u@GKnu)J=L1Kn>c4~lG
zq;{cCg?^BJL0UmxhFQL)hgpGssd=86zK20+fO!gN{aj87sIgQSsvnq=Wf`IG=o(=e
zY-*Hen3MrYhuX#3MV1jE1_7Za`eq?j+Jy#|A$etH0X}&a9zJdn`LJFR)P?%`mf5y8
zpbfa-J)W81jhN_LHEl@Pw+z~^i@CoQVgk}GW!T17@RnC3aqt#bJo~>Z5(|8N@oz)U
z&DB>z@d0G#cyUQkDq@p5)}7DApl!AKuwAu5scDFP>d+0fzP?s2`N^fAz2=@ScBQ46
zDOOHyhK6P)#uly?W=^h#hK7!AM#fIAP6if+2Cio2rY7LPMb(FJoekJOR-SpqC5d^-
zsW3C0jfpc8NgsxpE~!PCWvMA{MfthlKqb6y*ajR#Rw+;qf)1v!GfhcLHBU4()U`B8
zO4T(qOik7`FfcICwJ^0vO-wQ~N;EY|v(d+*5#b(C(4i{ubRo-JPZwCK0T~HOv!Gx_
zcoQazJ+VPVgIwI~xNP*n#~Of+IDqL<peaBJ3|iSVY6(dpI~rW0!9`LCkfeAtb&UoW
zNg+Uz;?dMawcz4HoSl@Kmtw0_u4He=%Z2rvDO33QOt90K6ih&8HU%M_LT3h7<CvG1
zUs4=xVy<AI5TsxNI#xSK!31=AV32|-=$N}81yj(ObwLWIpflNm6ih+qSOqDVf{j!#
z1=$v)U<xuYC|2J&Kd&S;ucTPP6l@UWP^f^!^i=%-(2;#53T8%N!}NplOA<>!$Nc%G
zrer394ju&AWoBrkU~Xv?tM6QtUw|P9Yw;E<n1Wr4<R1_}AAA}(xNQvflzvcZa!It2
zfw7)}xru>+se-Awp`MYkg@LiTf{~%Io~eN;Sk%H$&)mq&z|c5W-zmQ+CABCT<P?Kg
z(CJtu8YQW@1y-4PB}IujnR(f|$wmg6@WZWqGV`*L90Bq&4o8?8>Y1Ax8yG5>8k_2w
z7+4q>DHxd<=@}WA8W@@@n3|aCSr}Uym=fgzLqnV{07V-P7nqsoSr{4{7+NAb!Q52O
z$ixIJNRktba5@2;WN<ja!a&c|(9FQd2-yji26~nz76wL^B!+^K39e88Cs*uFFf=gK
zGd43fFfdUtF*4ILw=gj<GFLD(G}JS<v;d15o9h`Fni&|I5ET`;69YK2;BbVInVyA_
zk%57kg0Yc_o}rngrG>GAA;@M^W3Z^PiJqB(k%19$ZZO3e5TKlj-3>;@=6aUKmX;Rg
z3WgR2dS>R9mX^i}MkW?|#^y!_29^qjmWFzUW)=p9#HC3*0Rbu}a5%!qRL|1f!obi-
z!O~pMz`)4Bz+Az|*i6sF%nXz!4GqloOe`!dEiH%(2s4}k0V<@hyTQcJM9<RF$iUcC
z!O+A+&%(sg($Y}D#K=_7#K^?J&``n9)Kt&N!idP?A;r)Lrz1c`Bz8v_8yo8xK@y<3
zv7WJ+p@OlAk)FAksez%Xf`yTug^`7U0g=U%IZpc#Wu$X{PJU4^=rmLt8-3?uGX*n9
zF>YrEKI+xRM&Hd)!3<KS>$@2#m_bW(H)91eNYShBW};wb4z3XN-AonC%t1*lNZ-v&
z!OR>K;X(RtmI}s@szTq*&_KZ$QnT3E=?4_$CkLmNMC%8*xao(aR+Pl*yH=FA2ZQPZ
z8ykK1V35_I5;(}t4pF#*T>uF^AIN<VmPUq_1P)G}6MlM<^mfs;CpHF~%0FCGp5WE;
zAx}Xo_l?KI;BRV=)Mj2><Z9NQJMnI^*~*Jg)Pue$#ZS(^X#Rsc#!~!++D)0DD=U_%
zEc&>E;hpXGJI(6#)vD~*&mP_WxLaNSiUZ%V&D@$h3YDZe{*>lwS6=vWcFQv_7E=j*
z{dqOlcN|<I$)Q)eOy{pw=H?&Sz7i&rUpes{6aMx7+oMUQvrpDo7#%A(dhK(KZH?_e
z>oU{K@Gn`ev-|#69ej59qrXH^rbj{c)cp23Z|7ywm!fu*y*S+*I+OeDga=yOZRZZz
z)m%1K*m?Zn?Z`r>Y}dQni%we1jsM)!``k77Li^*!wfWguUU#xXeY)4LE{eSt>Rda`
z`-|_Vw7L6??(FFhm#@rY+G92;Mk;sm-x??Fc4bkOWz(+i^2?Q;-aCaq<J_yOo8DU=
zY%QrWxOAr@rE9O%hgNZ~ZF#@sd2Qw6Q%b%!exAoY$2rYrg7OZ&bGHw!+A%{l<i_O{
zCv2uiZeSJ{IlpB?3zyo-KOP0M8ct`jdtBIdN!CTL<=n?N{+S+KdKyl@3?|%(%zxBU
zf05<Rq3mYmRS#0%{5#xuvO_p$)tqonq5m&_GKx**eY>nb%HE@QM@r&r&ZRp~oDuY&
zad}=wuFQ@{vnMzFv60x!zc-XcHrwa?=|aPGD`i!c)-6f?Zd#fiqkSs)&sN`;GRN(A
zRXcQP$oBtzu{z_)4O8ReyfsYw3(`wEF7LNVye*x#)pW+1ou+y>>wdjhl3Q_(>COC<
z7)}=JU%S))tghSA|Ay()BcZ~#??3%!ROb-2()#sLLCP_r(x`2|+#$YKxlg_;{63z1
zXM6w4`*N~#!mMtqUizB(D91eS^3M+MgY0_2%lcU>XCykkzV=}AJjWmA5x4nP{^RUF
z%2+u0pTdpH#qKU`Y&!4eUYK)VJ3)V8N&V*Uw&A@Zs=}2~2f2-oWdEt_pJu`;@1psn
zZ`!;)9JY6QzN!5wc;;pyCeCK_V$D-Ch0K>3_VZddvh=hHaZEeAgIjIqBNGMxr~AJg
znA#$#zVi6o)AdhpZ@GQ{+e<}(mN!99x(^$r%$1XQyh)CE-r>eAPm<RDI&R0$!l~|k
zXJ`GN@BY=I@mhILzD)@~6U&?I8r&spV{%>XMaa7R=c=Akk3^0?t8_lAvr1a)TF_$i
z`F@L~PKcYV*y(<L_rgV==7qohW94_G&r@*X%CfB=0{u*8AKkTP-O9rW*K#NBmp%GO
ze^Jqel>%{_)^{H*vAD!kyXHsb<n3H8tj&BHZTk`qyxm;DCoR>*kYiq8!S!G#dvCv&
zE9cq_kqK`uOulJmQE6(Mu=Y$&=NA2)6WsJpTb(r3Rr~rZ%~6lDFWW5o>S>iOlhvzl
z@QO11HvO|rDyq3|o`~3=RZ{~e+VtkgnyS6eiaELY^&+jXr!4b>CSQMjRd#D(P1sfE
zPN#!;!S2V@Oc#Yt@_u<+{p|9k&K>4gw?v4qPK^{5Ve%}TmAmR>-JES)`p2H?&k*yF
zDogrsl6!CH!DW}#C+~{9*8OYO90r@;d`(vrBt_IOx&<1)vlizP{bs+s!PcSW4U5s8
z3$ERVWZqA^yI=as%F9L7mMl{n_U31^%xAwUesp;rN9$$T7mh}+jrCqkxqs***Qz-N
z*Io6~A`-gy?7Fukhp)hJb$X`D=F=@qBG!$EocG5~+_9y?=;jZ%Pcj8>ez<imDY5^w
z<d*Qc>2JPXop3p9MHJ_)6%IG{&k#JW5Z!gsD%EdW`LegtE>V5qo-dqBq-P1n>?!{5
z5xr>VjUuyUM?R^kf4(Jnd9UVb8#Mto+1d9(e{Px+u+QT1MrBje>R^$phFsa#W@kzU
zbLd@JQ?XyKZIWDQXfWTwebe@8i<LXOFR$o{{Af6Zfqmu6NKbdpDRU<8>3W<K_~f#Q
z@Rq3M(-xP9GN$?NS!HYcaKb&`LX*V$dm>ktC}@Sc*sEFwG77($p15qor|HkyRxH$d
z#p`>>_|yhA$=T~q)w_%RE1e<O_{Xc6v3<4r<g;40lyBMd^FLBd+_h)oC&eEP^Dn)b
ze2rD`oLCLN@xS|@kF9;t;Wd-}X5HD{i(d2IW7#`lkINU00yD8A4^MD3eP1&#fQ6?k
z$3w$4(Idird4I!Q<&ZC&TD`h^<b&C@YQit`p2`&q^!_OMf98tneOd{pm5xl){X9P)
z<fG%)Qv2Idua?~HP|w(5+jO+7TDARI%eog9r{d-<)Bd(7#`N{^kFO7$_@+_4>j1<4
zRl5JxcBQQUBkkYyIPRx=Vu;n|^jG$ssW$2CB}I*!zO7_(aBSh=SIl`BuyWC@eLXib
z_avHk|IwRw#{FXOk+_)pQ2iup<-VCqcUGPb`rxIsGFI~a@u2KS$zDk*k7fn4pIjb(
zf$!>+9Zr*PdI-#FiU|o8sd%+pHR{qX;oL2L+keiUmRT0P?)mW_Su@Q;P6l2{s_@!1
z)mibNL+H5!`d1hia%!xZon-iWncnNR8b-6LIZSO)jaLj*8nw90Z)Rk3uicg-=6TIR
zxLYgak>IqfS4Wri?ljwSa_<ag$#b)Xo4mc!cXc^wCmwkypnB%nYmbvZwyoKjeeI~x
zJI9hcSxUc5e*AeJz_sY#+1oO@58j!{>z>-4yYgUFe$Dz#lQXiaSfwfztY04Qifi4+
zA8_E9K)VDtoB0OWkCg!*_Lj*m)yX`;^wY`JI9GV9;H1z)JaGwH-Uj)7&sii?9jd-<
zkC|Je%UR{k)&G)%bLWg@_R+E@x)*F-TURxwOS0wp9FKM4j+gxJy^Vi%<MfF_e^2hh
zv!W7}<+J;{%d{>%S@n0ZQs(Tw^x!fU(Ut2ngYNpwoRyU~>%r#OPb^L*f|nng^-h$I
zob=fG!M2j_?yVon;{vU6!#4WH)XA>ipZ31Z=-In~2Tl^sJ1(uOIIUnR#2Qr2P<Vt*
zqki7{33d-+ru^po`sh#&>(;UdF&DIcpI@jF68)y;V)ewP`wpjKUF{s^aNbt1wH8!e
zA@HzAR-*N~Qo)x_$EHo6!`O6~OBIf7dG)D=_g>~b_HJ*3m7Ff_`U>yFRQ73H=@<4d
zR}npun93`%Zf=1}Q+UJK*h7qu7JYH_Y*&fCdiiV%*HY!k(5s>*8Yec!Okc8Z%~IZE
zOP0=U(a`}*?@pd|tu5?%(CPR7S%EjhE^vs=lhLz&)u<rd!%*<t+3L#n_ES-AU)D3K
z*Ho?&sjPOD;`Z!$wDH1I?z0=;II}G4+PQi4S<c$q?fjEWB|deAuDbiLz3J7|<<DQJ
zsmX+D+W3f0)V1}oUFv*FM7D6Q%DS6k#%oG%GhhC-#?~P8M32_xihZlhuYa!E>}RVb
zx@pS#7>=jE3U{5%U!<$M_|qjNf$*u_5zQ|-PXE#Us=a?Hi|adv)SPMNZ>^n{UYfr?
zIC`Vay6`1u?_aqrk^k$H;k^x~U!BcTuL}}YV&rx6iITTiw)IJoC)@SaN>_DfDM#K@
z`N;b<kU8_qM1h+ou7@Wt*#4%H^Jl;m71pUNy_?>zj!ap<;??Eg<m!&;4l`9s4V<?g
z=S)#BEj&7}{{N?}4$(t(lXkGLc<Wd9fBx63o4Lxnn<N+|Rep6ePV+r*<xB1NvkJ2r
zKI)xNauPUlZ_9~oR}A76G_8O2%zXcG`x)~e!a=3)ayQLZa+TuS60rHV-T9Tlp~q{J
zD~se0b1|rzDaU^EDB2ct@~@(!=*tPr6X&M=-ZAIX7M?Z@TmMzvPi?2h@GR|$eaFHo
z>i6QV0IO|#rp{@HlmkL<KBxL^GJSNCQ|$Pzm6Lr9c7G|{^XhC(#Pyu-s~!dKUR#`>
zmbpYV-C9}k;{DXVbtjYpzj)b6zABr0N2IHGYn1-$laFVotkT)lwCr=n_p{DMnrnZg
z9OwJ^Z|CNWy#*1|dw<n^ziBk{oI{74O!dwec01R2Xsj+d?a*Vy)A-<4La9~UzHKdk
zi)SrkRBE(!yZQIS$)bHv?8JUQh;V=NqP^5M|6c#SCA<2MUQU{I%5Jji^^1p{&ampY
zM!cMR>hytsos)PQ-kb|w%9gZOyPa8m*NL{U>|?o`t5Ws{pD&skdenXf^V-^5xr(Y$
z3jULq&CClr=%#42*0}nje1X%6C97r@IV_4iEm@xFs5YZ{;sJB@rdLyUE%yDzczV-=
zS7y8V)HD+`ANGC;(CM9%B+Z-l<eAo|AD3pi++IE5h^OW3Ytwe;L>-=VI`aX$|Aw_v
zi4Wp`%q`D)zWS+};@JsPZfN%0Jb7TFNw=rg^Lx7UZ<k2s<~*-oAkiT?qdkA-uejPz
z(W{L7ICk3QUuK`%dN!cYyurV!%w7D3c)VU=@3PY=|EA`))<2E-T~Jh&x9~%+@6lzo
z5nJpNZ-pf!dGKvcQw~pRkrr6(9sBy5ua&^7gtGfvZvT~J*`!uBBO$zf(kk`rHD~U3
zl=+0J|Gk%HIX!U8n%CbL*Q9W4HeXq6a@3aNi)Cs3z8lx%g@4a53a`5^<`iZ&yKu9E
zQ>(RHRi)!5vqQ_<u1sc-3G&z?5p<6)q<71@+rO6wp3(5VQKsoSX>z9V?Q1I=uAFnt
z-4&qLzc8|~yYFz?kt>B^E5vy=6?pFck$Exi=roIGjSjEhB~^;oBxEk#=2PS2acO3p
zz1b!aOXh7klf}8jSID#&g{=C;C%$T_rqcP#!AH-XyJ*<6Il3{V#p1~#J@sQdr<{B$
zB^Jh`<9brO|Aci$sE^O3fJGZGU-;?~k#26q%eW)M^|`-v(gi`~%WfX`H*yGF*}3@S
zjg2w;=K0<B@v=VAa5>y~LULQ97gJdN<j9l%IQvh;Y`(YcPIL1vzMin-={6nlf_^be
z5_NbL-exk@-&n#}6>zjPU7`PFo-0o|SHcI~=sgoY?939o{H1%=ERn<CZJ#?R+V@W4
zoNe2=<H@cwo3^B1xMTLpDCL;nvesp*_U3jpZn`6xz0tH%JXUL&&jqdOf(3r8t%a-X
zQ{DB}NNk&0bwBLT&lgXe1vuMS4%+(MT))_1-Jhu}ds$om9=pHo$J@UiRjsRjh_71d
zBf2U1f`?AWvgvc~cn7EO-}VlcI^fsYy>amj0p5umyVk4Ae`lY#@6?aEZIQ0dvu8@O
zUhtfH^YolOQ<hZiTcRx#HQV&73HO906JKfk`Lr_j+%E5cGoL0cN@>2c*WEave#!f-
zm-aZ?-I}=Kuip0wo8Ih|xw0?T=hoFVJAM6lukDWWSDf#1y0|F$nNZZh!p4VvVSg;6
zPV%0;XM6c}<2CtKrUgNZ{_AzEyLS7Gc1MfuYQ@!$zCE#D9KnBJO4?q5U=y!PjXu--
zlm3YuF4M0SFb?tmkf^w}GjQGK2Qp8O)Je5&YE_+a(s<$4%Ba-lf+IPp+b&pdQjAt9
zp2HKO$DI4C<kHs&8HP;Jx(j|Hi#Esdi?B7WP&@cF)MI0{^tw}%6B$zv^L~oAOuh7R
z*Q{-~yj+EgqP9HmTy`$&ZmZP!-H(n<h`r3E@NC-D^IA8XzGy5u_4LoWr4Q_8KIUWE
z`d)F<y0=XtqIIgm!kn&wIr3fSUyHfl*xSZebaVdwTha*+4x27a|8rL2x^A;5!@tQt
ze*awS&3r*R>ybeH&x;2fwBmP3^LI;X?b$gyUcBCabImMQ&2Om_GVg9?T{z{|O6mT|
zA)zZR_+^Aw&E9>o^y5>lwF^$|Ig-0Ywd>KgPmT|wPHm`P9{BCbOM%_dqI(X$EVzFu
z(lWMo!?%r(CrUDDsWj|4bt=s0qkZ$+fJ(80OjDXB_lOkN*%xuK{|mUtpBys3e<JsG
zG4JorAvLmd7Vc?Xc=~GmpTrGHQcm)_{rB&makX~lzmG>2YM+?mx*=Zf*Ne!92_dXX
zQZnDBZ&~Yi`%w5)yJxlc#ToB(oloWx(|Di86U3{hmQ(N6eYM0kXO)5rvq|(}6Q48}
z%gmX*PuJ|rPdikkkmPzyvO&t^$!V=8xvvj)I_&Wam#yTw&RuPHZN5kS!i-DOSBtgp
z94%XFb|Z65gW39={a*fwhZ@qo9t*~G-%|>E=Hw&MF@u|{aNCM&CkkryHNJ2M?D76)
z(7`VqBlu*km2mVN2fnkSa)&Oiei^>*m{hMJ-@0$>GBoWcO?`5dMR4`kB3CWb0}OUs
zE^$^)+VjKU;w?Tc_JRW~Mn{ATI#!kZyu4?n`3L>rgBm6mL+|na+&)kDr9q76!fegS
z3nXmn;?|{KmJ~3)vvXHz+V)@d{volQliM@$0|Yoqr&c^?H)LEgE8u9slLzkFLK#a|
ze#nSxHdJ)|Jgwa&Jn)X;jK15YZ*O~~{MFp;ytCWtrd(g*<jQGwSBldwwJ$n$ZPo72
zcRBYgxO-vSqBDyY7uy-0z1shr@v-kZ)&LKVQ%kj%J!9NvzGTUUom@xDV*UAqm=3Ra
z`=Fp!C4-}GUEA@LFFVvutoS!$zIAob#Tds!&)G{FuBQeC3qM{h*wC#zQA_;dteX}*
z2eMNV9!?ZU@L`!<@%r4vgPd0+(=W`KR#wp<f9`$%rZs!ybM&R;R-Aj^b$@@2>_hQI
z^`#!lp;rTof<Cn~&${)wXwk~#bIfxVthMa8bznWihJ=nieO4XZ%SulEKYdVV%9fWh
zKUmWm?}qn0C@M?iST^U$8uLW!*K76_zKBrV^snc@rfSDS?K|zBS}<tDFLW;0kbd#^
ztDxhJW*pCM%wfK=^wFp7yR%P~MG7ri;1*#qWmRWRrO%hCyCco7%dh)ib^Y;kVK<KK
zhSN9NrYXige|hAtBIm+QXW9~fU6m7ezy2-5^W*<TOPhUXO6mN4{Br5pwPuP6hdtc4
zr0xHv-FNF3NBWs0mh~NdMPZg(=DEvC@Mwk>PuOig_cm{DGwVyf)hFh;b4hc!{j^?r
z-1Ej&^Wc8%!gnU?xBtJo(6M}<)n@ye8O}@k-_(Z`#9L2lOL1S??q2nBPr0JxuH+-Z
zulHK7n`C`&HK%m^q%$`*J-kqR@z&M&kaf`yPdjQ%3Ho{Zu%@8H^57<2*){HO3d&1`
z?k4TkVmPp>C7jP*wcyAWrKki>=j-jUiwYjNt$nEfYxkbRPmf)g`smf`#&rvt15)4I
z->k2xasRq%>)Rx*gAZo3Pg=A(Z?3cF%a_L%F8OlhnULp39sMKR_g0uldZml9mK~Th
z^?|YB?yl-<;!15N9a!d=u9+kKiZhw@bn2aX9sQs6mrIFsy6PX1duRHV@wMi~)Ehr8
z{q|mZ{ILz+QL`J5|6hE2XpxhH(ps$tD$IHh9|UY#=DT42NAcnfth1+G-Jo%<$iO8^
z<`+ZR^nwk0*EX3QzU#O8t0$M)mrr#&{<4bnv^V7NZ?E?}cxv8F`EB;omRW83ZyvlM
zFoR{0tlUdg)^fq0pBb4C|0>D*SSu*Z-2X7b<krU7h6S+;H787akh@on{bBG&Mt?2|
z?P<mPn3%fWX1w|Mv@k?0N5IM9@s@-A={-keFNT_aO6mG3U6;PRH0vCT^38;66>iaD
zhFj!%wRxrr-*{wfx8=uy^)ZRZu5)ev-1XJ{Uw`J+4smavh!gy0v@LZuTz)LwH(%%S
z58idn2UaCnPG%3*x%f8hXoSV~DcAa$6h3CC|IGN=@l$8VhNEv~_)pv~ezX12%f)k&
z4j=sgc<-&U+ZN{x9xcmU*luuT_tHe&XEiGX6*vM|c4lyI*{6|oKR_u}aDnDj@5qbM
zDwXqWyyq$U3w-(ge`e%6z3J?#g}f3<)2)sF|7m}}Kw##Iv@dELTYec#oN{&3#lLgH
z+Fq&t^@~0e)THury{O&&AfKPBK9@~DecaAC;1=VO+BY}sCt7GqG;>~_aVBB+<N5;=
zW-)N_*<9RqwLO2;tR|-X23giu-8sdEJY9mTzRub09)3D=SHZqhkIJS-FWKoC8FlC5
zRJ{|q77jvB<(=%G{x@2#xxVg%=OOJmv2R!(cAe9XHPh#RwsQJ9^+`3iN;{urO<ok~
zQy?SS`n`Cb)koQV3%=Kw{@rlnLeXripycvA*R17tQWlzMo4Podt(^bzx9<NNIX`T2
zHoQ9ezvzLuqEPZh{rIo193-9?KjmIgymZp{8q2vBLi`+uDt8^yN#!@<iV)s?Q#kWz
z+a#tB%YNpxuk*Pxt8UTCih0(#*1enS*6?k)m9^HMkHPKNq4@k$9wu8h--xqiW>8J`
zU1@ankCbhnQAXZ0kz>(vm2!>TvMVP{`A~gIvpq}TMyS>)U&%>oZ)Gxi1zRl7CTFeX
zlUtghlV3hJ=vm{+OW%LLop*Zr`VE;3Q<)XjdU*df?VKj$AuAKS^0=GGKCWk6r#j9g
zZZMkXanWH-RJHC#y=xme{+(}c4a%4oq;Y2bb-vagR#%zBzq@@}@yW*6?A%M$HxYO5
zmPy?X5&!>y|BB(Hg!hVD|1Xn$?>g^y+4ZMo9ru>^2jvw$Os&#=B6yy)=n@Y@;=i}C
za;L85L`d)6?`XOvcW3#$JEt$%fA7?}a4+}aZLzl6Rm*tye*Izh@b}$i8{B?Q5Rbih
zdskV@myES~4iC=PW(8?D?%BAPQH~|1Ds004pIvDzr&0~f=kT9UQdu&;f7;nyJV$4g
zUss$`x=V@oTCL+w?_YVVGP^r!Vh(MOOA^e=Fnv*e_=uC+v?FHUGvBPcVB<HFPbc|u
zCgY)d_t;d!niu7=pW1QX#@{9Khy3~8Ya8nK9j|Oxnck2)<yxZblYN`cR9@Bp9r~c$
z`Ny=mmc^59{d;{T!oxQwcyor)-=nuA4I37(&YU-?jj``YlW^)a4wGDsh7~iiPvqTr
zmALo8q3xGl*IP0D^G#pJ%U^#{_3fm+bJAl@RMhy!i|oI0DbLEX{9+dS8}rKbdwx$6
z6L8!&|59;4@ZrWr(OGrvd+Ih`pOndJqh^`3At+(eu6b`7=3RWEY%8*FA@^kYLsoAT
zYSeDBf7t(g-`mTjx=C*S&#uW%5%d$C%X{I)OjDCxTr*-*&Q`5^w=i1s4T}f6xm4w<
z%STk4j31QB*5sC4*?%w7Y1)L_3$*{4$k<94Up{+qU$h0w`bU%X8QY~~UgW<KD!cwt
zC%pOhPlZ!1b*6jfUu~U#(`uob(F+gLiHf(B9g5$~o59ZfsqT~Q+?8v$9k+QGc$49m
zIhXK-?#C8q0xQ=zCx3f%;#^Qy-1UaH3&kzw__MKY3}ba#_l?!^%w8c^v$shrwCznF
zTbenXmzXQ>Tf|v(WygWXQ8@=!X)&Cud}ti?WBc{=Pc?;gX%$%-`4(s9@3%KzQnp2(
zf7)DjffaF=CzttF7X5wn=JfS;)>(`%JhDV8BAz=-aj5lj_ekq#J>|dq#DB4AZnk{0
z-SumSoFy)={eE!DhuoMq%b)NkKizerXyPMHOXWk3ZnsxIF7RyHaqZ$k|8>vPuWJf_
zbKuD2zv|Cg-t$7$k#|wikMeVA8lT>?Z&>?MSN5d5rCs*QwgrBwXFATf8MLSyvKH4Y
z^F6>miDz$Q)wXye6Zfs$OW2Ja%{{)(Zc>RAzN2t#dH<5uBPQ2wE`K!dsLQbxeTR4#
zpWX0tP1>)_+5Sca{U-Mt4Yx?G&@cHh_t}M{IW{-fEkC!=bi!hxZ^b!$-{sR4u1;l-
zSzP~7rNsJ?z?s87PAevVDLfI`as1T3^NF4jG6B9Xd{%jCcJT#NF0nFMb}K(SDd3)P
zHdA$=_px#nS7D=`Ye&3GrNrGPN5w4k^|9EhWaZ`~t<&x{$u#k`rl{c|h0P*XF1DFo
zQA_*}BnlcueDV8T!lSEaRat*^`W%Ul0F&plU+D&job%f=SH*wfhs~S2MEt&(<b1hw
z*jMP;=O<FvJXdM+ENkBE5nmt~dDqAOLb}jt*=8$&9~);~w61$?ns-W0!0qaH;R`EP
z?yH|S=ix5T_Ph+<ofmW1!?tv4y17pZ-nq*+vG328tV?+}b5xcqE!>cpc4Nzi!zUl=
zbTJEw%EtYjp!92@{#)1U<!_m7dHd5ucLli4jC$&_pK-53>H#C(H-Ry)%yX{4Xxdz-
zqA^qSn~T(Cv2Cs=JJ!a&-TL8orcWv7qks(!T(76Ran%;$-)MPjfq_;~aExD2nr2<Y
zjE!yON(E^Pg<m<$SgiD9QtO0ey*G@%Xy(|Y>Rs$=@-Dg2rN3>x-UC+0N8ynoCpaos
zaa{LFT360dIsZW5zZ*_-4(Co3D45phT2t@F;heV7Ci2@njw{JGW2eZ?Ss-{>%5gQ*
zjB_t?PwkV)Pz<}XNW0nUoyQitbyITBXxuF5>Sx}woR9gX)l)w+iz|v^K3Dg8CH|6O
zNjNDfT-EaX;`^PCxqAC!!*3|t9(cEN73+4lM7eqDPoI7}`C5GcGiT|?5-VTaa$LD!
zq3AKIr+fUX1Eixg;-=V3G5VD7olTzT|KTNvSdWolf$fB%mwt>9cP@%f+z{@*b&KN!
zq0*3Z%Q$YWv+Z+f|6+2$SE{na#<0;;=xU$Ti4)0f^Hdx!$+cYkt(L!^siC1;&QbGC
zqtXmv)0vzeMxMv-wbWcm+~#yGP~+>B#BGaQAOAhPCY#al$l*EOdyG#Xo4t4QpFp?D
z{S%J0Wcpv`-NjuQc7=13Y?rq0vh506=XCxT*NYHRNLZ`>uqjk5nI-j?OANz@L$_uy
zvi{$yuOKj;pZTX|^iR)ij34^WeNZWQIrqBx65hp4H9Pjj>vd0=5tl2rUBHE_WbtZO
z=kunVhi`W_1-BSH6;J)D*J&%{C$Hw9_kusJEn@ZQ<NKyK*(Oa`QrEkA;_FZE9Z$2g
zOp1PX{Lr^sOqLfUGpZWfCYjvR+U;|{QMkI{uR_GlE1I6U*^?Geym|40bnLmwc^6(x
z<bQJipUI1pPdHX^GQa-$O8VViD;5*gU;TPM{q~YMCvCjk4kcgO;r#!qe09La^TrWd
zPiRf}lyN&mW7QH#&!dVdzSS%0wEh{%#BQ2yn_;k<BO<Cc=PE;w!n3u8dv!i1&5MgU
zu<*m5FLy11q;|;Vi|%m0ApA<s<?kEgd&zI6Y3%s$V?oERgG{$C$|(E%h-GzL({TL2
zgejB4&wtCyJ83U)aNZ_Mj|i)G_uoC6FZ*1X|CdPMcmJQM$0zJsbo`&)3OASRe{!aG
zUg;;b`kk(`I;MVi-oKwW6{7rFZirRIM98UfzvVblvS0GagFdxeNw@9fH%Q-bdp^G}
zT0YxpZ9sFKY})apEg^dyJD&YWG)w8dYWwDP+&VpxAejR%mt3E_IlAM<LDdHnCTHIH
zSKM;?#I7vH(;ZTc(=u+a6|;0XD5a(!6n{D)`qjU*<-UTv5A8J_xzgwFZS?G2z`$Xs
z(0pO}uGtH+S6`@|l+wT%`!a3U-QO;EUiqGSbG}+l#_4{wz^}XukAK}$*uTQd{2F6#
zvwO3)E|*mJf`Ug{A@|r%sXS>jPz(Gqy?-*dk|!%0oAQaQU3D>Q?p<__&F#3a7<k}r
z>*bfRov}0LII=lroG|&r+hujEs`X&zy0CNsbH6E-Q?&$VUzxYgzkyR>`TlDzb$d@w
z7LXUV(hTG8KFix4v^&c-|J}3j*&<GB%(lOr{L*db%=NQwo7NidxL9K9eakiNx0g@S
z7T<J}@XJp{-fKy&dj9$8n#z;&H<sFE8U}8<s(Si(XY<xoFH}_~x%8~?`0EjWH!g1(
zw~$`f6oK}|DLRulM2l+}?2n3l{(sM3b0#l4`^q27cJ1}sr2gz`MoReJ+3TOZJ}TO&
z8d+@kFT8T=8#7*)i>$kAT&J;3J@NTNh1zZ|t&R}I3{|C&2#e0uE;HC3ZCUaE*zv-1
zJ#TyFwkDeIn|FM!@%O@W|2~|l?3j@feC_q&ywJQT=Z&}aAF=iK;re&>FXxND`_;Je
zEV>sQRi6Cm-;4*9X)6ooE`6nAw?&2L?V@uV=Ge_C^U^I#d=@RZZv(>`lhPZ)t*4tp
zSh__nMe{7$ZO^{uZuBkNA`d@N**n{xtn3LtI4M&6z06t8<@fi`s!>{bvTzZvi_{d8
z(xg=qZ&rK?ZdVU<n`hGOye#wab2DdE-YyZ1$)^LtSeM^ZJ^l9Gi5<*~Lry*`FWj;I
z=hB~T=k3cm)^)8^-Jo()%tNm+;4Al!C{w1=;~dTtJ?0r`y|%lns%f?;H_KFZ@u|<g
zGpB!W<`v6b@Z`X{;&|!vukQX#-Eug!r(1vWo)=%0#bWNJ=H0se{!Tm3ysU{cS33U)
zx?GuO`eNobUH4t#tIq9RyzeBdR1VKqR|j7e{-=*WHfV{ka4x!&alU!)e#MpjM;oh@
z)4TGxmo<6Ln-S#J+x$*r(;1Fu3(ntanz1<hiQhlv7ax?LOWirO!tl&xW1~x&9X}Z&
zDz5y}uD)<=wM|ot%a2JN3y&0pioSl&(w3UOd;O_~Xqh$61uZg+?dRD)F8aqk$LHZh
z9Si4{bMqOkH1uO#_>Kmwx)txdN{rFmMLo)t|E^#=_YDcZU7|ZmPxgHMSY&?d<B>C(
zchlCKIc_C)PVsnl+>7Xr!V=#5`wh+nJiZvNHLYTog3y&IUz0_vj_ar}PVIGBd3t59
z2YbPnr(fSbI=s6eUi97S19Mk=Jrw!W@J$C_<k?y7c@2RVLi{?*o*n-lpC_KLx85?I
zsb%)+^WCde_eVUxXO?}mGum;33B!#yi~PM0u*W=i;;LH3s-Gp8887@o`jW`I_5zc6
z`<7fzJ8_O9^g%#JdRW@Ruy)zF*KT+Jv3BUX=V4nOYl>JS30@^y9Bl?(Y@}cYUYM$2
z242*pU<O{$q+kYK%%orjT0j=0U}gqhBx?p*Nfo4E23qeKq+kXzFi621Vv0G~lvu<<
zSm??q@Um3uFN8G*yB4ub3hWoiGAXc)U@z)J7Q&hv=~)_r*BY8y8tEAunHw0HDHxes
z=owlXfmWfK85rrAn_3ze6SvX~=MqqGKw@`;si~fciJ5_cv4W|AF=TC@f|;ov=>Av(
za|KgFV?9eFLjxm2qSpK2UIz<~L+mavv(PiKFf{<J#D%-S+(OUN+!(a@kVF^YUIq(J
zKG<DgVWMYfVTl?BmL_^;hL)C=rlf`e?p3hhl#AU3M#jc^1_l<O)r}@*=6YrZ#-LTO
zMkdC3CYENPlwe|Rp=V%hYC!BNSlmegly9&*0+AGqElu?-EX)mzOpwxoiGi7(v7v>5
z5s?dVEpRP+1m{`oP5>=}H8wOeFjO$IG}1E#<pKpG6LURt6AJ@FGX-Pt%5l&dS)!67
z?j^9`@&daP%+0}T&kf8J42_NSEG#S(EG+a44GaxHA|}Rq#-LO|)H>i4Lo=K~04k`k
z+iz%TtY=_pW?*0ecK~R?yotFXScpUy7~^ySsEow!0wW_!J#%w2P=LdNz{tcv&(PEm
zEJUIUa4rf57th#T04j=%&CLvqEx>E?Ex?Oy!5PuQz{0@9M8U}1SkK7R($d_Ln1p~Q
zBEXdcc1IXnn&=rCSsEBwC>R-A=vf+=fXX8i0~0+{Gegie1tSwnJ!4Q3B`QOt;7*O;
zDg)vOvey9<T>Ohz@vHA<Xrf>Yt`maDUi}NML?Ld5t^PH)Ahh~-OZe?R>EnW|A}9F1
zDa*Xdm6)-1UwjVBgdERK<`+jF&VItKXSsTAh2<2>CD%WtKT(XI<X+po&oN%$NyvAe
z>9*D?<xeBHJB%;iy?Qltx!>HnKiBI!F3x`TX7<aQkHxE0+%9(;ADp@EPOrtkUFpg*
z4bJt<+2Z5z((Uron~(FQt!J4lpKB?)bYcCGB|oxDBuqd5>giur{OkR%H9zWX{yv|X
z>~$&R&({89n-g}nrk=I9m$;+igXG!TKZoSXPH?9AewgWelsW2KP1Q41w#+lehrgaM
z`0@1NbTh8HwWl|Cmn0P5s54S@_tR9XoN#fU!tWXrL7zyOl3#DuOgMSjtYl8)pTmCF
zszs0A=b3LMv8+{$dAVGXTft$OYfqQ|wc{2_zxS}G@UkA?31)7;f6E+Hq!0aj=3#T@
z&R$ueg_hh0Cv0!DRL(Qn^_f3?O5FB#k(+hR>!c4>8CKuyj(l)K<L2)hpW`)e_u0JB
zEix-{me13DboWBz8E*X<Wxw`Sh&viD-+7|{vmJMT0)yA~z3(gCe)=oVpMQ#Fjj>{j
z{XEXpr*n-JMSYkL?)-lFA&2MM8GPT<STYl$e$H9k_5ayE!za7D4=+BP`L{m#Vak!_
z^h;c&*E_avRr~R<K%;NgbRo|W#&sS$^NXJ^=DQap>fJrl+CSfV#gc?`zbB|Zea+s^
z;eF9?&z4F(zME_odxCbpy!<olmeK1u5_ycLET%Dhe|hEltshg=6rRY=YACwl(W$5>
zQF5F)&uYeQ)~nUeoL;EDF%|!`;3vcCcYeoAulsn-J6xLn$3kzbz!{blmBUZvf2FGK
zJYP_`yD#_pTR+k1VH$d=M{T7~3%<yF8)#{3Y2qMN`Io;U&GPY`Q*ohlkJ(9a7%Sai
ze8XRSmyzWagGlkDVCER@zL$=Ce^qPz>toaScrt8t!Z{C`-`;D<;!$ya&-FxxN#E5T
ztpBX+yT!$x>9gjEs5Q$qm(Srp(y%~4T0we_)jR7f&MBIPk%sSnY<S(cMRI?mxu)4e
zB^O;zmrG6^!YN5hbQONIZR<NZFNL|{dB9t#OS#)Cue9_@HZNGz*2}FdU>$0-NK|K5
z`u4*O1vhoKoOxZc$aUTF1vx#Icbro#uDHyd)@(T^;7p;)A1>B&3naVS)lWCK$bX+O
zKa%Csr1Pg1`#;#IyKLcoS3^IZt;Z|$l6&rLPs@uAc7Af=d*(%+3y&rm-}U|}BVhP*
z;iHu-+)kZ;kA2_AI+rC)#N0Y!acOlvTSDy;Y4^~qgO~b>clE5Ao!4W~wxIOd<b3wC
zr<xsia|_g|@4WH#RGI#q7O(R1?%T{qbk|;+{-gR_ot^Dci&%y)42~8@ayV9M|NAH~
z-!os*{X((R>m$>6_~i2=xM!VCez!M5`zFJN&0q9Bt>7+-`){`5o{|Kg*gbbYB?-=h
zGgj|t{v>*IP0uN*!-Y#*x%sZ&<1J}t{Cp&J%6y%`a*^m$4l5!!!j*DgR;q2|i)Xr(
zrx|^Cg|+9x)&*NMUDk6ijO$N+xo}Ezh_b<~AkBdFU9V3U#rCO3wLh9wr@LzZjyb(6
z7mC|o7Qb^fW~0Xb6{nB>Xn%R%IKyK@+3YpJ8e-QLd~&P|V^{MCm2=%#(6K#S>N2l!
z*s_Ry?@y{J9(nLhp!3+OvKMk^Th_@}Z&*?#*ciBZ>#dCou5#o%ZZFB``<l>^CnGHC
z_B?c&I_p=JUzUy2wkUoR$?y_3ulZzf{z<@H&5X+APZQ3(a`k84cBM{zDT~a*h#lS$
z46)H`^S4|o43`Ose6qwgK29`rvci+Dv#F97jT$o;@6TAly~T*L^z&P(8%oJXlWZoc
z<aR%Mn-h1bJ8e<KpVu!#ciQM*pPdy}-??6H`ysy83T9=o=kKFz%G9s#IIH;j2Iu$4
z+U1|Q<s|y}-2^73OucRY-|(iAM<nCi6~ewd4j5^%i#(NiUj4tYCtX2bTjIl%*H+TY
zJNNclT&!8nX~$FC!!XN<XU~W2>xA9cc~lF8$0q)H8g|_%ZG!=ua)RvTD=gof18giG
zn68Rkl<>)5{yrPd_EpUj&VKvxV`F`F)8p71ey%0ucN(J_n0RAaZMOXV@s@R^{QkWc
z=Jm}#GVy@I-XF3%{<s<ix;RH(v$tNsC?Y5l@-=pnvZz!a*IucL0wc>wd1)cPZmPNG
zmBpuSVRF&9_fcfml)T*{9ET%?fA86TQ2kJa*Aa$gjI23nS3}*I7~j9n>QT)IOYYQ8
zGQ1tKdX}55Te$e$%g-k5@MPo6i<*A+Tb8r(j#|;rk#jXTdNw_t-+gskUv<Wr6|c4g
ziL6g@R2H9C;Ix093143Nk<(}Qxb1hS^9Z;rBER%p;0Z&eMb{4T$Uge=ciLy>?9M$`
ztqoFDOF2)PJXd6W6m2$-<Ar|Yo;jwzuCh@Mxh;=oe_fNOc7D~*{*S>O>3ZR>%i}Mu
zKJ@y_CfUHF?Vqw7&r8ieJ%5{F8gFfbU6*WYU#D-yt{-;<%zeUM>q%XI`sTQ&k!$0m
zqoG^ZnCU*>8aa<4`r|v5)as_?zO&XXey~6$BPGRdch+XFNWJvet5?PJPfgj@@g@J`
z)GDtSt*%c^lh$>07wyZuq;)+_x^~TsrIp(%g0C^0usO?dv}S8<b?DXnpzKBOv~%kY
zbm!Xoa|E@Sy_)BAD|RNwuJW%rk!Pi=!rvbI;v%hc@tD~ct;Um|SIt|ydXp!2uG*R@
z-z*MPMqc9#xyb+2_0!^;IpU#Q9gB<4t@?V^n#*SSl)sxCzqfGdykdJXz2ofpRGDur
z??0Evw#+{}ZS`9#NkPMnYxh1sdpk5ZH*B(a%5kyHrCHY}Z8342sxAIG^pCn@MCDue
z$$Q`X&Riurn?2-ZoIs!|=U4Xbl>fI>-vuZu?(j>itGu=CN}~H=_1^6g9+&^u-uiLx
zsPC)a75}<kRV!UIb^f@0#ZJ|&pF&vriY&Y3b@ft?-Y(tBQjp}Od(|N{f5WnyE-ne%
zJeEB1a9p~nA@RO;H%Ae#q;64<`wlDT%;oG~&M%6)x_{bh(YS^8QZ}+|zaTJk|IE2s
z4Dz)X7sRD!&yxG_jn$%I>B4}T@a5_|?d=Vn@Azyh@AHxJ{a+KN(|&t$?}E?DZ$Ccp
zxpeXD$#*Tq3-md4m_se69{IHRUMPe46+hVzYb@WY{}MG6keHF=cy!5uNfyPnyBDSJ
zzaC(+T(4+j)bgLJdL0(b(O<QFwa6xizZ%z+&Wf}CDBpN**~J+~TMVCAoWD7L+x`Si
z^=19M-i5DXuWS%eFU!&kPj<Xg7h68xY>J<s%H}z_&!&G|TJcX<wQKUMy4V{V6$=*b
zUGV+U>aG=D*?!xtV$7!AxcmQIc-D%x5*cRmpeZ|){KLOyUD{;4M<7EgQbJ(qjm4s3
z=fc0H#m?<-)!LSO*_`kA%NB=N)9I;`EjFL!+FHr7A?o~gL-8+seev_dXFvNo<7jXD
zu0!Q5u_a;&<y)85u{#LuoqT^D*Rs|AuXKO77<4@B&z-pAPwX$9<dck(HoZOfa<l%r
z)n`+sF794dy2(?J$+RisWr_Ey8v;cP^VTPrtv0#Bex*n~QU2?bO`8`k-rm2xCC2>I
zhYySR_i8ykEOp-9{mO4!^)A6B2dCRkZj>&(!2gf4@6De3tJ56Xg*Nt1_5PHgU*Nm-
zO+km#=Ksq3q9)yTJ6A9@xUy%mu|<rN=ET-IbDODWRc@-TUZKUE>O677Q6tw|EEawF
z51D`J*mY^&zkXNYrhrD!C5wx0Di?d-{r_s~HSw}>$dR0jbzK#)qT4wytaP$d%P?Q@
zvgo8JTl&Jt*{nyh{>a^Gh<@B$wkzxV{mCu|%eSun@_J84>ap$LyI!0rE^?QTe)+(E
zf8EQeXFQkk^XBla_<m6OLb~daJ!;DioDgiO|MfcaK6{`N%cQlgMn-pjsIJxw?^w4?
zv3q*pU4@;#>HJLINlvlqa*@+>H$Qz+kn3;$ep-={^H*JA<#~GfOX{0EK3wT?To;@%
zTlV&;1&`z3ihPgT^FG&a@2d}m!RNPc=3@~3sPS!r$5og2(X+V2Z%W+A4SUm=RF$Fq
z-kmFo`R0V`<5m%eh1P$I>RTbGBBh}7etT?aXJ6y~j~DN+i{s+Fa70y8Oy|n7<`%|@
z)4wcZSm*oq)7jJW*BQC&uCJ(Rmk?Yr^=nnVg?~WB(j#XTG!3-B<lMSv{h*HN+wUt&
zMD)}W<|T_?nPPa{P^6_S=ii!>8@1m$y|!HL#O@{1!~JZ(ovq^nr`U&EbQtxkel0iI
zc6#5N*sl&R{y9B(Q}uCabdT>FzF98GB@qjMRj1A@J-OJ~qBWRl@3X0{nVBCxl<NhZ
zG&1QwxBHKGmI-H5;g0z0r=%|Huv^`<DPYiz+%a==N#e$re?A7(S5J-oRktRHyJ-{0
z+jypqL(=urpO?N+Gn8o4Qcr!Vr1Af}x9ZkoUlT3ay}vT3c`$!{Q#*C~t5P?u4_skt
zZOulaY=<mv#PBS1eaSFgAVzEDp@f4rUy@b6DcsZey=1X-MfCQEm0uzsgcw}b4G9R?
z(6>+V!M4>x=B-nAHXpXmT#|9H;=;jQH+Suf*1w)FzMyTz7302FCC<}Ccv&vK`oDOG
z%%Sq5lQbW?PcpD$t&DL#s9gBJQr>3bXOZ`cLC-y&m6v)O%82bws@i;SS@{8%Qkk`D
zUwS^N*9m)n&2Xyx>~iiCyB_rAE!$k4Z~j`>@73x@n}lNX>g?aRw7NcL^=UQNEIssJ
zeE-SRlL8Wtw@JjC1__;6U;1Lt>nDtvi<9>3S#)>eUa>XBD%H9tA6))>^!N<dhoK8t
z&lCqO<=)oA?3eN7U1GbA{n7irhU*hU-ifWQ@;lA$)90q;8IZQ;mHNsv#=k$aiWVBi
z=DoIQe^GZJ<DQ25@*B)w*NQ58iE6Nl21U+0qcUZp+p~>leOzY!ecd#RGhspZex2*S
zXA>-6%T?9wjEPrR{UzKnNcx!c@e@T+7h|@+uDl_)oaeWQNL<Hn#!htu?^U-JM*j4e
zST4CIYYW%3rE{;Z5BqxVyH()IJNYK%mmjDuc(UqI?cU7ovu7*(nYD-QjrYq-TkXD|
zjR>D}`d)+d+;w8A4;-FL+kQ;Y;asnEAU56HZm-|UfHa@2Yqs=#-Nkdr>`VRn<^qTE
z-}W*)y_T+w_`CQ$Q`{^LzQnreY1X^nmXuXn=YE#%jm!vUD_H3?`yR97r&%vF7Qdff
zCie7+!-7q6mx7{rN}is1Xk(*b|6sk!>m*T=*3O16Ys=eh-^Pj0uXkC)v|6^sT3Oa(
zL)&x4eb2&Q3jJB|ghj2|<LVo;<HkiisR#4-wJ_Fx`6;?}`wG9*<nT4hXV1A!^x~as
zuhVVQqP^%;-(SNMY>5|4&35QKES>Q*W5&DrTzlW`z2tbW#mv??%RPsU)A>R|-`~qc
zd=YCuOmmm_>rd~weDkG#-?#gL6^iD@#mvw7cUyOG9u#`pzqE+?K<wEGzmqR8t|*;1
z)yiTSPxQIYtC|fJndi=Y*%)wf$#Ey!M3V=$Q;WX`%ht3VbT(_86R?1xG&VsecZ%ip
zj3ebA((;m~_I-+DNmKr#$?Ye7>77`;#i>QL$xqy8`DpdBczyhFVK+B#$xMyS2ag?z
zdU@EiZ0Es<W1EiNVR;(D`{bG8>jd3`YqM<38{>})yts5z$9egNxTFm2<O7LZ;%2GK
z>dFLp?=nlRQz`Xi=6L>~@bUV#Ggp2nh#u#9)EKi!M(4zXm!cCS-^{$K_}$;)>f%Gm
zRbfx8c4|~VSY)&6NNAsfr`NCQ4W21qA8@L$xj4j{eF>a5%l0$7q_wb7Z)MlQ%BJ}n
zpR~9v=9V(g*KDp#?mD%aJ0m^V$6ojPY`v~!_jFz@o1A-bR|+G;u|1y`e->eKlX@h6
zM5ACq8O!d?CdRXmWeDtQh;lfeQu?}tkEgBp-e!}6gh$mWBF&Eqst>)rZkK1(;2b3?
zW^;P3+*yT6w*RafWWG75t+HFYsfA^8^wTD@l}mUepWOM(%d=eHC}$^kmBJjwv#ih4
z6@Rr(zwzeJzof%n-by)7H~+TLHay_5zWGO0Owt;4&98c&zW#8v`~JG?@#V$&oa<Sa
z>|i;>^`biT)kLPvGgz+wvYW~qs1u)%<FRbA)3=T_I%_2rHYIv;GA=*0=Y#rcO>gGD
z@4Ld!E`B=Y2SaXB{l+3M2HjhpcH8FMu>Ke}`}nlaKU_r&g2L6#x7aj)OuX1)vbV8$
z?v^>rvrSIla9ApC|L24AeJ3g9%{Qy>9{%X{?uo{Vld=JmT^D)yhOOrK{C`)0)R|!B
zgS-c8nY9k_cJoIEP0|&c{b2>qwU15*>O_JkNgmsL>+htp=uZ+&iv6)1Cpwc%`PY9w
zI!C*~;OOeAO2r2+9_h<{3Hq#|H*XvFzH{QQLv3bnNivaCk73&7B4TX!M0z&s|I>>y
zAODxypZ!PfrMge!g;Pf~4o_u`YdIXaH0k8}Js+x!k3V$X+Zkwn(8}md_oj%YTb3&=
z%Ac~<Px;IF`gu=}&X>@)W;-vPo3P=c@2wCAY2kPBUr)VKVdOe7wQE+ig0~cV(fv|G
zM;ndZn*Ta0wrz|s|8c{BcUOkEuJK#$31t=ABK98b6Y|fSSjhOx{OIujr)Z!1y~&kv
zS2a6z5?36pe%9}ryM6YLL$hC6q~!bjT$&o!Teh)peT?ZtlPyR0cSo4LxE2(+lk0u+
zE^|Mpe<qtnZ^cDlej0zHp;UOGjIf2^ign!od2QsT8_ORm&tg+<n7k_Fx<Gb!zes|^
zrXNoi%=DIj6mzU0dCp$9)E%!S7~CKBFbEiREO}h9aGn^WsFIyQZMrJ&%ksMuf6a8C
zH8)`Hy;u%mDK$0SQ0d5(S{|#{+*!Di!D8deHEGYLt!!Ubyd+3`_4eexhjmiNuWi_P
zYfDb?^%CptoHEZ6r(SDUNMSV8@V{K(8JhEchxFT<dP(~ktq(<ic<H<2!`1m5d}q~J
zg754-F0f$PU5zt($8H@=6|0}KZ6kk}z^;fJF`qi0COoird>ML*>C%$D7CFl_?Y^;W
zTp(B&>$|U?>&b=oM_rqm`mXgWxcBM?Ol06yj}dBoH)F}$s;4%b9+y6BX=2)|+*``;
z?eN85xB33Fn>QuhUBVJ?Z>GIr)1gD3zHYu0{Oj3_OZwGcWX@#o`J`gB*~vRZPky$o
zu`~PTsY31_*<T(uNG!72SI6w#_WI_#kDKZa$K~#v-TR|(;;bLj&TA)?vQ>WU;lJ&2
z=kr+;z2`47_LN=I&FuU-L#)m{|Gr;k_g%xUS#t3k_9X-yJ?>yu?G_fN!lxjXp?l)N
z=8_jeijT}U{Zu@j;p=9}!?0hZ{BoQ5;cuQXn?5hkuKS+yc~<(0y?&7<f!YNPiS8_$
zt`xCyY<TF;(w!!~^W(D2WG8Xm#Q6bJdJC5s?AzVnlDUH8ToKDwj`eP*754hgJ2>aD
z<fA&nqN_(<7;&`RnCHKVcj{b?=c@z-F1<9FrLL>6;@ah{54cWEebkaJa3qK8)nVg#
zj~SNE;dt?SqVuN<RnMgyIs;lytpCV!nBm*p4lbs@2Hc-`TG@a0)V5#WaqnaP?qxB-
z6E3rtXxN<8l-KuQ6}on?;%M&Ic8&SlRjhqZS?x<LJ;`b?`{;7lD*bOAwjcNV1}j<>
zH|b5f)O+AaU+>ADKhu9?-7I{(V^M?5k+uo>0yAR!6@<RlMOYtpobde6Oy7jmi%QiN
zEgoiP+f)C}-tRg;>B*f{ukynDC!g&UyLrasci{Khcb5IiOT?FSu(|p6xa35+>Tch2
zMO>(hU*qA&T}SO61{Qv8U#V<#wENzzq+L_pXHQJh+@jOg=FhXhOZdP2>acc}8L{kt
zmI?DO=3Uysk+o;u&w6X0nBJb%(#sn!oU2y<yrjRsSxNHQ!#g{_*Y+{&V2V^X>^|~v
z;e3rn?}aK<FaBb#FwNlNzK{_4kjM2^TltKqRX44oSH|D(KQQ4Fm+h&S5$qzWEbdS4
zKk=?PF;`-u!;=-}#UHJ2vKMx=KRKCi8&`0x{L!ZW^)lLX)Wwnm7#P1>cEA06_xs`r
zYY$c}xx9B@^=w7{vTfpvL>XAixBOOMVcL7VAUazu_{yY(Gak<E?`M&bTQaw0azdjR
z_sa&&2W(B(-kx7FEk_{i)PtnJy<AK7D@7`Hs?BK(t66&cT}eB`Dz?cL3*=kkZFh><
zS)N&JpmF`_T=q$CUoy6Ri#eVuedmnDVK!$I#_;?`=9fGV4)|{oH)cyKl;l0qo1m~#
z(z0w(*#e!CiN{X1+Wo)Voi>Nz;h71kbNJruu<#F;a%fz{na0A$xS7qT{If}y*d^iQ
z_SteO6Eth*?o!WBJjtq<^v{1W)0$6PW}24iJ~#L0`gf+~b7i30%U&Zn2QHa2yB-_u
zSFE_aC;uroN1s!<(L;^bE|GWEcJxhq#P;*tpNdljQs(>43NQ=2mEI{Va5&z9=UlFK
zjtwK533K!Ogm0ZaYdmLtaJchWLtVGH<FenHJ@@2a3Vu1OZo?hEmgQudwAh*qjS7j^
zjWwJx89L>;7Yal2x&9b<9i7r*@R_UCj6pv=^-&Ug(exuX^5k8EP2*WLvL1E%v41RG
zwnyM$-;udT{}u%cMjAV&J&g5j*f#rE$|Z58#nVq7i4DE9JfO+tq=w?@-7B3_)<r1h
zNB?TH4g4d`R$2IKg2SYLD;3UrU2<7AL(cx_`Et?PMGw!|WO-fhI`h*oY*lJ|`;;%s
zb~haMIW^_$`YPEcOR}O?NJ*-mUGSXa{+45T4?9)%zmS&@2?$U8p)-@?`4aD57OwVV
zmme(llDZdKaX_Pd;`CIv?~C6qaAX&e5ZT9kgHv{QqeSJIn()^aLOIL!ey<e$A9>f)
zaq|SDnEb;5I~KVxss?UNnmJ2r>bvwQdV!ykD|<?_UI$&$NMt{q6n?x(es%7QNuiR`
zxqsWvsn$jZ-EK-Kyme=x=phBITc;n+>~Rb^JMn9sqw+lshOF4EK7YkMzpr<s39Ef-
z=oekg>|8y$`DvS6$njM-FGQ#sOqL2w(*0V#Tj^5JpIq6?L2I2vF5A0LJ~`Q{#(Q0;
z{oF;@H2YU)Y`k~uM|z3Klk|`JR)<7B7nmJ4udHnP&m7|9wd*6-KGRE_)46w@Z~Cnm
zs9|qg_T$O)SW(-V%M)J43cAVXU;lXc`$LPEu7*PCq86?*U8U(yd@ICRo+npHOFFI%
zdmZ9Ym6MPlEysRnYmfSo6%mI0skUbM=ltI<&R<>GF|##pO5gD~o$b2%)jqP@YJ4uf
z(KK8%;~L|7ixn~#bv}6Z@^#z2H$QSyK}%(;2ivIv=T&8M|1NfCS74MrAQ#^x+i9?`
z@{6T(XwS^cn<9ODry6Q4Xl*izXpftCv`WzVL$0^{_tGPWj%La|&WlXj8L{M!>4Kh{
zQ(~Sx_PM+KkOX^4X^3j0<mQE5nJU|3r#@mh(sXf+LTL%h&H!1Z{-<-xOCRS;oSO0K
z@Scq!%Zyz5|2mu(T6ivPY5S|qH$*4IY!km8zs<z7>BhIr&6?lmzvD@~INRdI4R!4&
zmb|64x6GBz>eqx9KG691)w%e@9=o^KR=+jsTi-X=eSU$BRnDs^j}-l{eJwIopJ6QZ
zX={Z=?(^fJdu{hDv<_J@L0b4uGeg9M++A*0QY$9PP2zvjdvS}yWAR%Pe^@B|p4ZaN
zaWsG8!`-zzZGHB~pS2Ho7HbruEck=<S9@sWw-h$!{m0dqS&go-T@3kSu&3ce`xb_Y
z)waQXojbnP+3P8FOz>F8wD{t+UwN@kRvxXYCsgE`L^Az%U*ys`H}jHE*0#xfzq(p0
z*!b@ppK;{BWhBQ7#fgU;x8<2A2Orxh@#~Y*ixmx}=lEOgUi23(x%a7|eg}sJgX`Iv
z0IU6GnGYvleX{fmL$LQRHumH$bA8b?-p|+WMV6Nb{kwKI{O#QK>yI^g<TYn6HCVNN
zpMlXmbB`Y`5+}t}_Pa=UI=LqnD5lNYQNO&0O;Z1GLxa3xQp3irA8Si*HU_S2D%P3X
zo~k*kXmeqrTE|S!nZE^l95W0Wjzq4`JyvtUMbWaVPt4r-VrN{Kx`RBorz^YMv85sh
zItq78{QA^*+sy52H1p4uZ9dh{?HG~n^yG3$w-C$!fHP0u)yr*WyLD_u^7<!*H>6%n
z2sheZ#;9O&LR#3zR$AJ$Q#tA1%&GT<I5G@M5<{#{9;jY@_VWhAxeJSON~X6z&aP_N
zCnPrQ{6S;Wq8ml&y*2fUs$56zoN_#~XP@4j?qHV*M`jpBdc9aysG+?!??(^k)&u93
zYwirXRngXzeMVu<lrMoHOs69H*Rj?oOlU}7P_lQTgW8^>MU$@VH#%x;rJ`WX^CZ)0
zle5Ib^S7sM)_!JD#hMZ+X!#&3Vs=~6;%yc;O1H{7C4I<DJy|}%bdF#9-r7RJj!sUi
zqn|IuT18)MNNi6{@BiL@$f&I4+suh+`C4n@bb6NAPOx5g_p_Rs+(DOna_KpTiax65
zI9W0&>2E%uKbf=1wzfEE<yOb`PfPYC$HZ90DSP-k-YeSk?0}`L8hgvdpZ9)Vw+?Q0
zXp&sH$8`TGE<0X<_Oq5pCkQ%bMIO8P##_43V1iE0T*;=RZ*O;b|B-EOb#B<xc6!~8
zTvf)pn5@4df6j$3Jg__@d)668-x<0W6Z;;@uuVO&Xv4JSH+Lm6D6F*jy1!NO9UGfX
z^zrGt0+@SsR3F``OP&|cY;st!^1`d<d^Tx(JTngO4*L+d<8-%gzTwVWFV48_XS?=8
z?c{v@W&d+)lpYCp1g@Rs{+{dLy}M5t{VgX7>#k&+YO1!!LQLkUinAMwiq?;_UmvWf
z-+RDrI@6-{GZ(4LJ`?=Lx@oEJ=Zq<CNdcl8<v5!JIsQ$*?4i)+Hf85;W#$iW4!DUg
z`SL;O{10B4AkPw8vBNvxA1U3#74`h{`nPfiD<-_Ssv+8FP`0c_?Mj4z9%l{1;$y9E
zM6Q~CE1iGTpyh*u+a*?^nsqaK^7YOIaxka378x^t4|u-yl7IHq>s4VJmMQpei3?w?
zf3fPGlFXTzPq;#qMK>)By*|VEg~W~S6Uwh2J8YgP>{UOzv2ljwnkjrd72IsRVj4_V
z($gjyG;02hsIlKYn@c@?-;Vk<FD{A5ul{uSOYzpY3;y<-k5+AslzsoN`2Y2DH$u)g
zRLz^lCAP3X{qJ6@d%mKRjpOF<l?O)^aD|J;&YG#+m*Uu@uOhv^iMMmk&!q6T{mcLU
z{<LG&_V$X&%3TSf+-D3ux6H6s*I>QHm9yn=&2J%w_EO!T8+TaZnp@LX8W{8KOF3L0
z_4$h(?;79r|05J!4Op8(WZp*vPX2DOXT^Q_(^t)I%qw~%sP^IX0?|X|hC&Gww1NZ{
zOk1|1&T1<oN3*mAOMgU_yh=pML~n)kGw*cd)Vu8eZqnY~eYMQfT;t~#P0OPHQf1e#
z9xnXVA+FKSH%~6CdqS{R{$GcK1u=Ign7?6Ne7i6GzxOSNW!+D@nl4^V3zuK?SZ=-f
z)on+Uciz8p`|6xJ#;0AWl~KoLEaNzM;`0@;&r%nI`8Hp3KhCyNBJSs51J(&_5+`=d
z<5={w*T~aH#NVdB`=C2l3A6e18Qgj^XD&G0c<#UI-k7r6W{V8=Xf%m^wB8cO*X;4&
zPWrS}leaNVvIyv9X$;$R<_KGk`Gl*_Oq=Zd=dC?a|IDdSC1}#csi|GFPVfBl{CBO%
z?EBlMG=Dy$R(i4j#%bZuqZ4WuKKnG~{d~bqH@qu74tIKTda$q;$v(f9^PrC@?~-Nx
zDbD<<#qPHQT&>asWt5Js(Z8AI!F%;ci0F&h-k$<BZN7HSvgY!aq-44oI+xtpCMjvV
z{c32m(As7*X79%VrSH$SuW)gm(e?Y>w&#uJW@;K&?D!wQiO$~V!Tsld_o=jAGmXLw
zKKC~Mwr2`c51l_T_mzd@oMkg_c1!S<Ojokq{Nrk}w!f!@G}EM{={Zdd))Bs24cl&I
zy{%5#)BoVM>75&y!oUB$p5T9hA@Pp~!*89kS2w2I+xk#@&4P|3muH9NTP%4WF4Hbv
zv2p!YJF({s_rj#^UtTh|?IYJRW3F>252((Svkp3RFXpYO^Nh=L4!4V_TZEJ!5Mq&w
z*cM%WW8FPx+b@j;aSgsp{9c~;yFBomTh6b3?lT+RueCi}(Hk{wl}HxzW(SV!E<T$n
z5xO1Q3zzIW@@}t2+HU2qT6({n<ue}HFsa;l{B1(jI_m~?r3bwaBm+(+)>*8t`0?v>
z>E^6cHOb#jobhDWU2x1W^HZVL$v2z*x*mU7wJtEz?%)e6ZKuCyZt^y8q%uZv1vD_R
zN&npx(JyDGKkdr_VaeFP);n|G=`l8$cmIC=Me3A=P+QT5+Qhab$+G)BN_HAOpJ%mC
zI632x<?oW)I@ftOYOiTcQ`odxbV1LH#cH2;USCvUn{lVcX@;AqAAeO;tf}^|V}d27
zt9P?2B`2)#PLVMvy?e+0k7yk8GWT!XOF|zdK67Bo;K|t*bHP0(X!Gl5b&?j+49E0d
zPUa1dzPn~)8ACzC`$vk3O!>h}SOR!7uig6icp2k5@48;*i90v^I$+QsXSMuAY5y?=
zo}0!z7rKrusC2mZqGn~k9Gk&{bGMR&KdoM8Txp&0G_-A>iOJb*V%q{v)&0qQu!c?f
zXyncEYjyKquiP3c*|AC3)GVy#a%a(Y;k^%%b_?HjW080k&p#(hi~sHAKO#>T=w|(i
zIA^TFbVI7No#&?B#<ZDl1YS>0Iyf(R!Fz`n-$ec@c{W=!dp=jOxX7n6Z;GkSqWyNF
z*|Bm9-#@u=s8zb$ug*|F)+BS!)5nVzKR95ru&liQ|F%WJ*^_H8R&}%nFbD;{yj|CC
zrImSX$HMn{_US2qO*Ak6KBeWsxKqvb-21AJ{;r~;^BSTp&Ron5Ghdlg6j3pK@)=d%
zCE8VqUV%BP7bd0lE<3v_j&aJmzE9$D2X7xd9K~YuHocJZo21s?@2`w@-aT|qAoLPr
z636~&fs)tHsr!rcO;p>v^0?`xOr0t@(c<qRN#C?1uK#%==AW@e!lp6Kt5tn={8M%L
z`EUPh*gVBB`OL(3LA(8Tc{l3X2rc*VNcz>`Q`s34Rr6roH^cV*=hZ}Cwx+yaCN7$@
zIJF`my3EkFKA7{o+Ij&?$KX7(O2fG!8VPdyWjqzS()OR#(!B9AyQ=rty_-K@Z{ITE
zpwpzH`mn1R?H|^r?DxALQn0hnH%)Yr!j1MR%~z&0l-?^--P5c1DKco|!dpCEdi&;X
za(Wi_q3^=Eo44)l{#e>}FL!&r`R3{J%hTV#v}ftsd*X6t@at1Ari3k@pZ_#QdVZf#
z`qsd$k3L@O+9E93Qgx|n#*||x1m1j^xGbF^Npg##S7A)zlHj*B@(eYqrCQk5jf0Q1
zge*Y=FRCt%HU}+k4N@?NEDAS=EDATb051_Y2Q7FEQm_Co3P)NEZeawHrq!{?7U0F_
zh}Ga=7ed^Oz8c)b$WYJ1)X2a{!OYxD4|M#ig@u9%Xbq}~rKP!<f|-T6o{@!xfsrXO
zYaWYnue$_=4h|<+nCU@}UNr-qPHb#pU}&shVrimhVr~jLq}j~eRL|JRjJRWwi*X)<
z3yvA=PB1nz(=#vwtpGMNHPW*%H#IObR4_I-*E29P0j-WVGXovRYGPnW)S}B`oGWm_
zsRD-+ObqnQEx-$Y&5SI;>#|MF6^u<y!ADgam@AkWTk4q@TN)Ud5fu~WxYpo;lO%RG
zn3|aB85$WIn3yY=7#Qi9m>Gj&!qn7E&(zcev<%n8&`8e`v?7<N6|i{D$OdN!?2a%t
zx70H<Gcqu=P%ySM&@%-sf;Lw$wlLE(2c3m%reI=Vpl4}eNn~VH;9Qgr&Lt2xki7ub
zn1q9HEfkDRz`IHGkq*Mur^d2aaA^YZ33OSkg@v(&zFTHaNotY4TTWt0s!M8eeoCsH
zU2#cKYGN)gmq+KG@aR10lcKC|EILKkA58eybznox`}VKK-y-H|G<!4)PV`K8-aIYJ
z$k=4%heY49g{)_z_OwMdPAp!%>*Twz$y1sY3=+2OdR;jG`Ml3>ZX4g+9VN3zM$V=>
zw`!C59-9eG(&{z-58}V(sP;?kkIP=?60-MUdvp4IotXDE7lmW8*6aM$%B=mhRqdPD
z^UKT^rRQC)H)nt2S^wia^ZBidmi`F0i#ose3Y)sO-qMm1qv{XQQGecSy_Gj{`kjos
z1}}J}{ikpK=b(Lf+IwyrkCURiXZ73lO|P}FHjC;@zkIRfT7=%sBujm<Zbw7iXSFgi
zH?Hn~Ir&jrtbW(kqdAd2;+re~%OAGSf3%oIyhQm<Rq26gck@;z?BH;$+ZeAUmDdu?
zdtPFBE%VZyUoL)UEAUpnwBtW-HRt5io;#cSAO9>0eX^fvcI>6ehkuK3OHOnuGmVNB
z{kb>!`R12LXD~VGGv&@Svz^Me(sbFE5^tud8}96C;5oGChw419)6NBA(yZZ(Cw(mc
ztSWl2Oh01N)uOZa`t80gbvC;!%^&WyK7ln_x9jv(m78`47M{!YHk`z^U(@Zxr>sqH
z_(NP+HWqKmv69-^%T*Y9C+bPhp1-x*w;Nr}F0mC4a0r|+Yx@ch!PI<(9sF9dMG<ZX
zbNidV%##*o;+xWu?Dt*2a<=aFK*p(_0zbVo&ChiloH~D=xsu$DE$61qzh{(s?^`ji
z=exO~PqGW9=yaWbExENlaq`JE>t8%fv)Svkqr|1e{Y!%2$D=<ER~XHDZm+s~-uZLg
z-B<T45bujFv-G|%vT4dB=hG(9bNWyDhAj5)KIs~#ANg^8=&R%FgN$5^Q_V{pLUwHX
z@zcuuc}7*>GT&+cq~C4fTRQo@^um`Ob30-x^sD`T$7~dNwR+0Vbw@nT%1+=ptz51*
z{p;ei&|;G;P8Jrs4Hj#p{VKoc-;wxhqA{0G!?-MVf#>u0lOA_J*R5ycQ&ow{U$ApS
z(B0Fz?Y74bXn$F_+3EeaQ`~a3NAw!4%<Qi1Ey`Z+6B?YV=oPr$WkG+iVr~5ejVqgE
z*tfE7Dm1ZTjz6{8{_^t04;!a^I5KPAWE0Dz^F<2GlTP(sl~Dft=z-CB_1%lRKS@fp
zOUP~6cyfJ7<tpvBMlnWLU&*`AJnGL;#avWcy*GDuw#l8CXl>Eyie(YIlV^D`Kl!X=
zvUacUUrvpXd!{*cS2&8q)fg>%CfIU|n1^z9guUAJW&_K#gWqKYETZO{+ugbD&UaSA
zP%LLj+ohdt{{mW%3w}CLRU<MrSljMyfW{79#XL@Kwj<)MN0VbXGOZVH;-1j#G<DHW
zDcw&C1VudG?o8LaB(T{j(DP7Myi)Z%k&elSqF*0Y^NYxRe=YF)gC%R{JxXa5zm)Un
zis8J%4FYVIZ1XZ3T%u|s{MP6uOZs+QX1#Q=sblTMFo}OrO0Mw|xhbOjLFF#9n^JhT
zO9X{Z2zj!MTe9p+RAtLsja7X57d$&BG5pwhT`#)$N0`S}(-^a&)VaIw|76HsE~Bb^
zU{%KZVml3PUQ4fbw^#3{^RchsYwMD*37K+qxtGn7f4Z6H{_!*#MJC-6tKDe!^Yh%Y
zf~yjCxymcLubTYa%DOMA`_<*iwRhKO7(du&77#t#rmysJ&$_%YKASscYut4$B|T?u
zIK20}Q1C}T^LM_hmYI6(DwMPH3d#EW&HT+bfg@K1x9-w?{+}<y{itwy=8oF_*|I0P
z!<Wt6YJJ%Eme3Imm1`5D^KU#p{+F?!)t2qyv6_VWQHvOiH$RH86v%z_k~QtntcqK^
zj|k6Nky4qyy1e^o#m=a-eVt-TFU{gE7=OG_zWDR}Pt~Da)~w>%b)G!AhxIRRTK8!B
z%LQHW%cjl@P!s%7QgzYO(!C@%NP6+hq8ht>a=P4We3tl43wN5^$f57(>i)U=kLITL
zYDX)qew3N*_n7YLxMu4v8}{`*I~SKt5Mf^1_-*U539+#or(epNvAAHtQqP3c8$FNi
z8lO|(6ze+PWF8qj?f6~E?Rl^Gf8S!M5Dv(;?KW|~)Y4}qTAI4$M!s^FzFWkF4IeL;
zaqP?uHDB>!*Dle>mY}~&JtI{6kL{|`^}fDK!7X0!+Won*W?Hflde;u|Onvt*%<74!
z&et=)l{8iLCuyxX!uv8R>U>v>#iUpf|K&%c^q#Ep?(e>tRTsBqR^VZWSi^~%+bSJ?
zzB-(7@k5rwVy{I}lQ_P7-TV55WzPXqvlBf$`zsk{Y6NWLy~4yO=6JRFMO6CDgwnaL
z*IArhvZu}W(f$+`^6Y<M{8vG>10Kn?{Vm@@H1*@(>Kk6T*T8x4aQtk|pPAhAgW32e
zFt=^kD)l9oQRIr%i%)VaGJj`FtXJHqvG(<g!+e3Jdz4qXTwRe{o%J!-dw$898wHt4
z@9nno#;`cBZsMQ9_IszB@-5pZbJ?1mh2}h0TGhi4&+q+B&tcW8H-BHd=caZl95y*2
zFmvX~!`ABp)Zbm2w$&(F*n`3DYsOQ76}rAhw>evHefq3tR`T}=)22<RYu{30b!*$s
zgu^V)U;hYyv?=$U-l5gGa({WN|7RDj<Pnp8c`-)AMDR}S(WOl%OdVIG<=W@4Fq(9*
z^Rq|^^hw_3Xk&M6+xTE!Mvz6%Jv9xrPx<d>?s9l6SbXh;%l5l!r5vofE8LURznK4B
zYMJJ|H|qPhH)c~cn2MS>8d?{4E?Kwo$T>6RhY1QzJ#6-us;1wXz$JXe*-r9>+6Ug)
z>2<ps1CPgi+Ujk$eeq_;Y3{wuyCZZe`h6=`Snp)FVt=|?CES2Jt0-0dGplm(A=8}t
zEvgRp(#)kl-duVtWx=s2->qaW%bfPP{POF|-H+v+-);S6`&MYRYJ$9N@C)On3CnbU
zzlcl^Pfm%tQ)A9#{b_y3gL4la{-03a8rHAk@Xq9f--PB}pOzWhSYKMA^Pu_2!?`Ac
z)2yYW(|Y5lIb5ihtecvCf{)?0dG(gn=jZKZeZ*VZ`&VA1qdz9<Hp>e2?Qb*JuerWg
z%4XX$CJn=1ftO<pj(o_zvT^l4|JyAmj&|Mpvn$rX=BBWShvSB1hs{ftna`Ac^_N3M
zXr@aj!)@DErr#ZmN7p#=eZQ;C>a?OXBWBLbt+(o}EutS;e7${t!|lWW7*4Fv6y^PP
zPgToyy4#6m_rLFu^kK9*o&U8uUfgSo@RgqTAEMv4`<#)OxuWFlx7ebOmCibik0o~%
z>OQLxD_(JP4}(jrvqDCeNBX8^)^>K!mYg$4yZL>2`eD0e%_+^37t6QTuDtQ`<j3yG
zYwqz_|GNFX)?{XizTde%fB#Ll4$r#&^W>(7^ZSC*9_%XYoatebyzhm+{<(8~|Es1<
zXZ!YvUB;-Q^v~IH_n#H6yZ!55EUr}jT|F})^sCTzuA4_1=WX$``ry9l=!6$j1ow2^
z?NJw&X*GO!qvTrqm5p!O;w0wO#-7nn|IGi>|FGNZ@0*Vn6$E`T6tdYJd2ZR`i(8^X
z{?y!^p7J_lm&Ex?*~inSe_1_wg{m~WbkP2frG<90dY=7l<l~#I|AH}Vs&4noq-k;N
zGXJ;Ch|#h5tEyS@{y2Blw}|Ps3vF-M%{=o<!Kbfg;rYI`znYeAeIc~%5C7+@n{J=z
zb-mboF3m3K!Of}7TO2-pnz=@Zg*nA|Hp@YVyOAftZt6Kqvzau<^Z)G{?|q8#0%vxr
zoYp#}Dta|fCGusU>!(k4=a}uU{ZW2!a?#zA=?7%*|LJ-3F!T2Mmxup8EN=P!_wJvC
zw-ZF2)waEO7rl-#irZS}x%?&OZn0nc_Rc$6%G7(Z=g54!UHp$lG!m-!{)#SHSL<E(
zJ=vv<XaD1qGftk75Gb-*ay|Xfi8GVl&-y++{zKu5?-I#>vSxp?@Bb`YwC|~Xz@I5)
z&u9Pssy9_>-Ge*FlswuJC&UM`UfDA{zg)U*{?(4$ZRK~*@^!PGEmCDI|NZsXzr;FO
z`3R9`tD?`E$L{v+FD;eYAl5SRv%yR@lQ|~rnFnqJ`!V}{JG=kd?4x{3S$><nO`86m
zE2G)Br#w|w{Q7qDnDVT=TNV8b8)rTGmt>Szvh05Q-@C`B=+C(Fj4N{5Uj?>xw?*%(
z8l>d}T+X|EY&*}qJ0DaIXe1R~?)@0%A$w+~3%mBAO_l4+=Lt>MS;mmydTYwnzS$KA
z*B3s#-u-2@Ojq4$Z<RpawwC)x9`=7+?Od|kwEpqIJ$KLOr^eiUn`H1gwd$nV?4OIg
zKR&(qDq3~vhm2zvL&W?Rov&~`b#is>u|`RqLZ{EZ-6~2c5z%*k?f=u;8ufWYWc>EG
zOj9pP{WiI)w>Ds>$)9O`OCLU$`n!LZ%DS-m6GE@AdnBc&9wa!qZ|+v^)Jx)T?}zso
zHVT|8tCipHexl~j(&)0!XW9Q9UMl%`=P763iFyU^^6stObv3u`_q>^h&)DAG@$)##
zQz;Aih=}sUiENiQKQq5S?T&@h_74j#6kJMHJaBnJA9s2A=h!LlGG;2gJ=nUvd}3rw
z$}|NfF?$sz?u?J^W&5(lz1=Q22$q?@K7M=mS7rXxlxvRbn^o4yPd8MJpT?Q+E&PFh
z>joF0)%ko+7Md@5zrZ|lZT8beq9!>XE?8Y~P$>y|{UdVewZ?=Q`6{Ao4$k+Fl8rQ2
z^W073cibi?uIDqn7Fr+aIa#F?6?6L*_u~csWSgX}eQv3^EYN;P^N>@>;a?%=*LT?+
zki0Z&ugj;sE~kF)W4)G?^Y&=8tuSYd^o`i!g3Ai6k|*sXQ|4dr+2&EVHuO~Vi5oLd
zY`V34|A|c>+&Aa^m5k&&_(^0z^ps_e)BKOST{wL1wqX6wm&u10Hm(l1&v1kxVM6WI
z;}tg;W`yp|Z!oyTkRe!>Yv=Jw`oV`q2eZDfVN9?#+-lWg(Kahl?p<D6*{7|t4Iekl
z>}Yf;3|zv`cEQk}pM8Sb<$SkG@wXJ_$n06WuBSE1!PVqL<A?Ct%mp8|9(M8&eynlz
z%jxDz94dR(^K^zt9!pGruwQ~VH$VE{&mD}D^4=Y+_bHx~>JlO%^@y?PW8vfsL6zd|
z@75`MZhDb+ad}|UWt(-o?oO+p5!aZpjB&!HZ*_ZP?w2*BGgOB7JM(4is-D62V#dR%
zJF^xZe|%nTlE<`-B5HopFN9TtCLUFZpUA4eq;x{L(Wg7R+j5yF^O|m-U^(OI-Zg@}
z+Un=MesbB{O;KT9u=!j;)Kur&S6t5RyK;Mho{7VOXltH7E$g4k{1ynPS<#cAsrc(Z
z+ks3GdlO^bM|T*0o|B%vh4tE|dnbDq{{QiiL+46>{0lWjC*CE?Ry4}&d*5uIxa{|a
zg?)2_zSg`pn0YWb@><cdi!01d{0%r=x1!K+wU68@opp74Sk`X(oqThJEdR5wLYues
z*hj9sw`RIG#|D*DMd^>*U+GRRTT}b~_FdWR|6l$sx*M0jOS??=)+XjRVJ`zS?)ge7
zGxXnB9@v@bF5dK-^@9J)SrSHH92FJso8LCea@bPw`Rifl-BBg`eb|x<3-m4bt^1Hs
zdwGwv)LK{Wy?gI0V*A+tL{emd%z=udK{joTGrtrhh#xWG3FR@FXxHQOr1Kubiv+QS
zj=Y=vDn*p`>~URiaEgsttM!D_w-W3)ZY<cOHMdQc^Z&Am0W6LB2j2yzD|jz?v)foZ
zNAs7YkzaAu-cnEYf4d`o*?6t2;CUe7;jQPTbiA_7vQu$mKyULJsl0W~Yx?3;^jaTi
zY^ppj-S5K4v4xFOZ9@wq`@6*w_h&Cv>zET!Jj>?qY~^a^8#M*nG>+8l61a7)>6@!;
zowiq>j={#IPICnItheW4-0q(DxIkKP$J&Mlo|LKAKPE)i7R-<5?~}i?T(?Z7vpM~;
z*18!7m#Aib`ITV5zGi(?@<YZ(m5@7X^`R4b%*5Dbuiajz93IZZ{H{l{?~crE^9{U9
zlkUIN(NwF=_no*@c-x1wENmJ)j8k^&IfXqv(|4?KUT9ZDS>lqly_+(Nrise5DBPL3
z{G^rjo-OrE9I{oyA6{*UnX&TE3oYgbBOd<h2-a@T?=dfW?j1~NTFc15TB*5Y9V<gB
zZ~T!fZ+ZJn6<dnluU=g3{2;4n9aoIVIsP|1^BPZA+~{zrh~93xBc5y8g~MytFRQ-6
z`elxk>$;7e_GY;WHy9?C=v~nGAos(&uXlo^<U(hTlv6S+WlT*RhqEGA^0a$TxgFcE
zQ}%*=o`tN<x1-_}t%)D>54;a<^9nXvtbF0a#*5j<kL0&s?4CL4!$SKQ=C|>(43d+k
zFBbjSs(D7e`<&3Z{Q{p)9`-tRZq~7yPZA<ws-iRe*Kjs-rYG4oo-EmQHNNZR&6_K3
zbRTA%Gq1iZBQE3j${BIO8REWQ4y|&oKBMq+<+4{7&L&7Zn}%L*$mYCib4NT`ndRT3
zW$PS#G&wz17s$xSS<YlrU-xgX_#v<2FM<j(Ootzy+%I#ByZF(JE$k;mL@ymvUnzUr
zQ{>#E4dDr9k;T#HZ37lssk~<JuMvotJ#&3fSwlnmsmgt7QRk$?Rjrq#txq*@5Qx2X
zdyVzJSEem4tuijo^LHDYxI}d|iD+7<Dd`*$W7gtRDAQeT+j4YM`c;c<Ta6`^+p6WK
z3S8PylYI2x+^N#9R@lEhJdJ_JeWBT#S!-ootehP-mLGMf(BL~Qlwl#T#zT1Wo?mYn
zUNG#fI-yc8;->XZb-iWf35%o^S2Qy6)h+d#fA3{cUL5!RjN{?XYPLz$wY6vX7=O6*
z8@tUcxWw<6u-jpq&6gR9P2WUMohW+V6(U(sx9g@t==ql)7vI<z#?p63cF9{4=EDm<
zh~Bb@*z@*D$iwW{eopE2<(uAJp5$?BW^Y4aVELql?2BLS`rLL=LDbqmy=%(+%9ph>
zSAI%6`eC2u%hs1(tPOj%8*RKL(mTQI#FSEYlTS*&y*5nEbGV%z;2#%toWD9X=BVwH
z1zC%k*4>m&@X0)ry`%ksq3B7gCWQ^1n^z>t{+!^fp;Q!l^xnB=H#NSk%dmZa(dL?u
z<GJ|@PVD?2V=+0`<Q1Ex+x(tflZ}^poqs7^xj4h3$T55&-|KSL#)wv{TN~6qB(~(b
z8MDk>uhhjS^yOxV*o7AxEQ(CH(^R-O`rdoC|A%oy>W{`1<s7G?7c>>=i@W$oeEn_g
zQ@iNscc)d&truCAEU$0uY<P2AL8Euii<zcwVcchWrXQ}^m!gvL!C<9DJgbc3x!NZl
z8ZH{F8@w1>nwCyB3-x53{mQrUg&`wbm%DV}#?Ld|LKA20;rtgVEhW1B$Jf$lwyue3
zkE;{a4!i1Iip(?3eW;`7E-^KQ@!Q^*ml2ALZbunAuDTR5=!PltMeLI@$}ri$Wn{}B
zvTvPhp6u7_p*%e6x}JXaGTrmkP>Jo)=OgJKCHL6zW}T|Mq9J1aKZfW22|<a)0zB=H
z8)naXw5s`yQJLj6p8NA`WQ`QIbvetrURb_DYLZ0l(V2(E9agP2W%qEoB6U=vUa9y4
zQ$&)Rfa6c0Y0KUpE;^&Nq>O3Ws<(^>^D>gv12Qj(O)A^`AXQXDP-ls;T}Y#l<TAg7
zr{`)5r7})l=M&s-tMDQ6)l<3ZB_E$B`rmUB+x*!x;W%3*-<u60qD)UETV)STh+6x5
zwv+OLkFU<Sau_iDSKl91^u(f1gX5&Zf#5GeMh2ZdCr-%kP~@pz+bb4Vkjykq!Qs}4
zmIsGVhCh@nX=;qWvR-@jW~0s3Zr={w*$@~!b$*BVd*zio9{lFB>~O6LynR!l{a4y)
z!-Fgw!l%>b@7m3J)q5^0PjE!RkyO{!X?&|BzLuPGx@+R}?xG@#M!stDgX8y}ZG2Yx
zOf-kHZ(VAbn}FSwcZ{ds967S$m@0e0l&Q;7%Wj<h9g<g-Hj}k@b=&fYpLdLuLr$o;
zRoB@E>hba{;#~9Kdp+Nmpab)xwk?_-FOyNDlyXM3-F0f5C!?ACABPa{2^pvU#jy$)
zNLANoZRksroyuQ5|Nq&Kb%}qg7i%mGJO9(4*ZWW2KjHQ6o?gGa^M0KA*uK8oe|}4E
zC{y*J3lruypZ_k)r!afj$vp~lW@>EkjB>S}G~M8y%P++Umz=m)5>smfmc{p<J?8Lv
z>CEY7b8PINh*V`x3Mq18yX$Db{Ycehwe>-JmwMKkEIsM++vKK{Hj~xfVCL2bv%^Zh
z9q~9Uc8RTvD_ZgOiS<b=8>CmWs7qF`YTc;VyI1hXvu#pm=QH)KDQj4qzbk=TZSIaE
z%*C25X8wXVbXJvKwAje-@Jd@$hBfOShQhXkovGZR+=}7>t9fS2E?Drm<o$xL2ZiMA
zcr<rjzA1O}U8t?T`<|&U3|2FL?ar`s)q8#Y!Q6RQR>glfWwO<C*WoWl0WVMN<h&Sm
z+0!}8^6-jOtDg5WUx&`wc&z#FDdu(Iyf;cVPr7PWYGL+e1>f;?t4{S_oLsEI*0$f-
zKm7k8ZQGZNtzVw(G>;Q35x2DzIjX(jfS<&)nJ)kSy?dNB%{FW9-DCc1wmwm;n`M8s
zj`zc4?u!>{ehAiGS|OMu_1KPmz35MeT6zEJd<znGtW|usTW<H0ecxufi@6mg3f<EE
zv$4PAhWzO-_KKl#v1hb*o)9ls<zZr`DSr3(N~Ri?PYaK)Ts)=A^<d1OBrj10_A<XV
zjnGB+EO#h+iL!LtJYDo#Beb?^R$f`~O7#{od862QH#9V+xE_?z^9}j+Y`gQ~*se=u
z6QWD=1b3?ThEMsKyE~lMEGLjRaHpEUiWGZ`i#Zz|n*OGBwUstbKV|dn{EzZPwl9mm
zm-@tszVvx!sq|fGLPOqztdr)c_ZYh-tKZ14YVu@jxL~6dE~g>damnBO_EfG5i|4$X
z^fNSxQL)MJcq8-Cl_Iv9M>i;LvAS~P(92-2-<e*st0%}zzqQYDc~fZp)#pD=rd#?%
z?YbPF`Re_rmEXJ=1gFpX$?#480QZAbH+iP*TYG{JSsn{>o8oYPY0S@%I>{+1TVMC6
zm%09l{Bpr%nkiGF-zTfE-e7j;Q&Gy^>8Z?HmmR&ttke@IF3+d@`+czJ%PNmau2-~$
zqq}#^Zoi|X*R}uigteO&&v$5=lKwxI$EAP89DjzCGJRF8_J*g6jwmiFx+wX{Ydf>c
zQn9nDmI7BD<UF&uzoe-K8tS@~Do={k`7htGWWm!Z@2`0@Cicrby=oHlcbahPnbQl@
zA6&WF&gbAism*NaUd9)mO|ikYcXfL_w=10ERA4q~{WVLXIC86GTz9|lWL@j8g_9=y
zDSNx_?3d}ba>`3C&6ue-WusB#y3aSZuG;cxhTW<UGv>tiF*OOW2vrMm^aic|#M1Ub
z^C|bjRZE&I&5pCwwmKI)RoibXBhFFK$rQR)^abAyK`ZX$^{r)YVFzt@*Z8#wmY?=L
zzh<VYGEaBtnmg;Kcx7-jc6qHdJsc`haQ^%9ru*uac{5iw9BTN^vMqN3vxuC3pUi_}
zNv|9i&X&2##C1|a#Nyl+>z0-!9tUc_ao<1b(A{p6^eExF`8vy6U-i3>U9S;7upn;d
z4*v4~ry;d_{P%9$CaYsv#^%`YeyQjh9-Y>r-_MT+-un`vW%}ln(9|zkQ>&6^{j7iR
zC9YVpxblxUPv+{w3~SEsyZ4a2pPx@HH`nrndohcVbisl08Or%fd)1D3F5!CpE>+F(
z#i^6WuP3P$T6Ml#Dy8~pgXTRcMK!@AW?V)`e3Wh$sIAKg*=iTJ{ENe#yGjRESiOF_
z^ovel@e1GM(2ksf114duE7&r2T|fMX=Q{ggF+LvK+P}wdDmpD;(&BA@!SZPPVVj#p
zSA4k)RDK=0-=!7G(^;{@@Pz$OhPO;b+yDLjdV718((>(0yUx61>SKMJP&?iE)AafO
zKYrW2z5d^}yz9^W7q)U#N<Nq^_V48pF~^2TUkgR<C3;;NE?=H)_@XcSYmvr_eOw_u
z$Jpf-umAP!MZ>-MHD-yv4)*h7br0OIu8;}XD&FzRZ~C@<SIaKmnKj49zC*zN%VBf&
ztS@r8l}rgr7E7Hc^skgET4TRvW=+A<SywxX(rQ><TOZ7F^f@u-_Sv+9f6huOr@d~M
zaPD2&s}p=<!ex(}<|T{;TMT`f8zT99o!ejkSmKwq|K-fZvlZ54+*xn);H~H<iG7>o
z&Y#|66twp1p0nC!%JcJ{eeG&o<$uLgWBO&&gQv7E#RN=Rk&qUaDLkp{i~j87I{}ZK
zmo2^H-ngGDDgJ(T!0U$x4Skl0t?q4K*Y{|Sntx*|1OK^H;kD9-n}tvK`aF!YN$5+H
z5UKbPbLsS>`Q<u=Z+v_9B}{xi{Z$upMa8KF=DUK-n^HUuXdN~6yK-oy`s^u19S$-k
zmETVM-kN_w^630Um+eyQ+kMLqf4_TY!&}7$|Du&`ZR%{Q5wrFE`L4`J`~4y9YNev?
z#a5B~E3{MO3|YIYo`2t>$h%Xh)Xu_i8rQ}1KWgt^PATo@;@hgIcO&59lV53DwoF;P
zF!c2O`d7Kj8P6zxR4Sgah0B~j!_c9J@z@>iPho7nIe!*jZI<6KXWdorHj{)qQ`TSH
zncD08SIXnbx^ve%KAovgWy{+#?}3hd^1e?|UpL%bT_MX?oz%c!rEKQC^IOBE$QS!O
zw9G3b&F)N1Io%ek|8Nhdxy0UhYl#bmak1KJs!K0?6LQc}44*oCUL|LXmU-lvzo(c*
z+mvIMy^l(q;diJd<IRtnC0i0c2fenOZc_1<C1cJ9<~z0=CLs(-E5Zs{G8~r9UlYih
zp?lal>u8IY(aXDQ9gTTDZ97>sH7(2Y@t=QwvUA!l{JnVYU4OR!N{_RA!tdALS2AyB
zoZDXSpBI0n%~RKj;qukUH0hQ3TJIKVuYLI8;<^X(`S<R)b+r6*e1)Zp*`zzWuD7qB
z^ZP^T$Ctt})4Ur_2yarjbo<M_@3vPrtVsXxZc^b27vnW=cy0ddde49Npt4g?M}hT%
zSozKI&-BhEe}7&0W>dtvp1W6fMZBE8eLi<~RUl{mLC&eQmN$G#J4M=Klw5y^KK;S+
zcVda_npIjw9!x7!PcYP|Xdl0*v}#Xh*490rr)%i*>^QcdZTgZmQ#h}lyU6nG&bCPj
zZpv>~M*N&^e7CuDb5sAC;79YP|4Td>c>Q61&avVf2TJcWP1<}@UFLr9BJV?S4nI~f
z2|Q%)dC%7|du`$|=eXDJ(^pzt+kbY=uBJ_Y_r>g1k?i~)_pEEN=arKgDN+uC)-k)7
z7QLFNpt8m;yZ*89#-MVkU>&yqHK{8;s3`xQ`u~Elc%y;ttp<j)sfVI-g6G6M_$y+s
z+yCYNoM$#^zxVbv-MjheSvEsL!Wm_~HHVL_ik_NgZnHDX^h$VF+IJ=f=Iw<>uD=yu
zvNt^4V|4b|wwuep|F`n&Sy0e(ob}+vTQk;8z7gp5M`4qRr-RSVSAW#z-r|0Ivg6RV
z89l~#8dlykJ?<g*D)n1z^}fzov%kpYo(`3Ec<TO;gY)DkAIpEYCtgpiSzBI|-xy>d
z#}g;=;`1uS>GFE{vDYLI$5bh=xa^;=+EiWg>>0a#ocx&=|3CgZ`Rl=M`_hm5Yl2t#
z>Bm@{spWg8AoRVRd*jKLHI)Y+i5LcH$8>Dkw=X!SN=Pq2QP|<p(^G%<aXh}GIW_3!
zhaPnq9fPemTVq~)UKuaOvOpkM(?b0-$8AQ>;C*&l^}plpNlRay{$^VS50fm<ievIK
zujso<b_pLk`J{(=8Oy!?j}J{0FL)L)NPA4q{pbHY^n8;6k4t%dYcfl8mFFz8<iLwv
z9V;}H`1tZlKmUKcyXH#P!sh6zCwhB#@0ng*wZV$($eT9)9|BYFzTyd7);?)=mEDw|
z?b9+|U%xD*mUUra=J)c9zs^1i?+dk6wulQYm?E=&j?#rbKg;gt9!!VMY`S>KqWkR3
zSq0L%(NW7Y80P=^RjM56@J>76`~^;yq)j$QC9ijEC{bS|Ul9|mWqiLqt9ZqB@A*r+
zB5y6?kl538JbRJ`LwHy9WWT)QrORbnghh|e-F@|G!1-0Y@7tFN{XV)fZq85cDVom?
zPPY?xoxP&}RL!row=Uhe@lD)lv9T|Qi^SHzs?K!oqt7cE8XGen=^PGX5@OxleCU9X
z;TvTYHIp~IpEp}5U|U~j0a_vhS<3=lUuOY1d({H6%+3O|kSs{S0<z4`0<z4`0<z4`
z61>b#!4kau4QaKVCCJPmTCKLT1h3_@v*S(8OUX~l;sv`mKPk(`24W-F8_=^?jV<(y
zjm<%)I+~f8=~)_^8kkxtfKJ>rGq40*w{B)`u4fFsn4XwLUdfiY7I}dK3%eT(Ee-T6
zO&}+|nwo%5JT)>>FfuUIGd4E{E%GumGu1OOFf}kDYLQop5zdun7NDrg#~KiZ29|n8
zCguhPMhZq|7J9}OCZK~*4Gk?pSI~owoCKXmYhez$f}W^=Ffzay5}<^F!x2W7U_XNn
z{xmhyGchu>v@};RG`7^U0G+i6ItJ2A&(hGqz<{V_f60axI2{2>rq~@}WMQmlXk=nw
zWUOFes%Kzq2|AP3$kJHP)YMGD(p1kBbPS~hF@ca`jPu-0aQ?t<zqzrVsRcMinj7mG
z8iV7(!bH!&+|0nhM8U#X&(zG+z<{`;M~!i=y#(h>><%z7GS@RUH3Y3RG&45_FGe*r
zR4_3%*E6>;2CYlAFwrvtv4{%;oN)jy6|g(O)Yw$d%+k=nL;-xdrm-pL%uS@lkVdAK
zdgf+kmX^fDg9*-6u;8Ks;s&yp9FlhCrm2Fl8MyQ#`^-&n;R$gwbaA1jsWG85H;;s$
zE|NYjs(bp{p+6j=o3fX*gzc9<cWT=cmvu+NTub66i78kJ9amyZV-s1b^C|V0Se^4e
zhpEN8(>rD!Y*3i$dPHks<GX$9?Y`eDmjC;2=bSw&`S)4dRD5ZkdE(^5*UXwb3J>|S
z{JXU^G$txvJ&rZ6m2dLl&CTxjujg%Aq2A>EcIs09R_B+OXIZQiKh11t8FQh2I{TZm
zUp`z1EiPRABYWDl&jMQ-Q;zo*Oj6nWDctJM3-;}|m7ebiXYRgnyk>1_i??Rs(+?jR
ze^<p+8{CmheZR(5OK#3P?f+BqZ-(vMpl5O`^t|4Qj)SJr->Y|R)17juSh8nUMXx!B
z;_F@4FRNBu@H1sn%{@D7{tIKanPx8b7Rqs+Pj?z#`}+5mpw&v#?^bU*=8BlFxH!=|
zcY#}V-qQY;&+b<}>wRH7Yqr4OBc~6vhFjg8b$P9NJNu=q19}ci9td8X#Kph5(N$J9
zXH8f0b(T+o#g{^xCT-jCWV3R*^`5dxt8;cgbJ%$^!cgxv!#xq@lUs$&=B_L2*fvp`
z|7)Dvx;b3Z7tNCbt@g|kU-&=kzoddo_I1`1TU{DWgmnGh^L|>+{BXL{s)MfLAvtCL
z#dGJjOiXh>6mjw0mB$BzpHy#H*njNr!QfeP@vG`StYdp+{!XO&QmEw3l%pQI;!bmG
zZTY7%Co;inh05|st%ge#lRvy!dNQf(XP#_$*s*=*vZg02@Ugr<y{6m2ve%%c?x1MQ
zNr@H5Hm~+)eq$jxd%;q*19fst2e<xKej)gFn&h2Z42i#c*Xh?z-X3yqmZ#iBEj8n#
zy>81rGtzGDo3qTT^UN2<1BbV5FwEVb;6MHH%#Q_A*7|crDJkE~tPESXd_7<NofTUT
z%z9`0G=jBUWP?TFgrt`5v$yZDTt9W$Ijcg)NBhoBeP-S~$MH|}*G11u)kE}eI2SQ0
zysR>|kMdopwV^y%#QW&1-UF)^?X!rz{^jc9@2f2KMO;V|P)V5Tn%NO`)wSywPvNB%
zxf~{4Th3~QyT7j7snfUISd^)Mjf;!utz~D-RtN~**<2YrU#xWQc9Y-hX6e7a`MBug
zwhVv$XQffip&P_KWy2Z|dCqq{=$_|jpYupMW16GeeHWD=m%JtFvNn4kaq>-y<K43G
z`I*n%i>qSS>0f*LiMMBBn{<(KB-@`IzGtQ|oqC{il=Ibwuan+xm-?t~b@7Vb{`+q@
zT(<Xf%Q%bfz4J6=!=kMZ4^B#2|Kj2^k?Im(n@_(#|9N4sLofXFpSln1zu4{e$AyZN
ztN4FE`s%9dR*g1Kfd^5^e?K#F9X91~7u=xpEHuvh+xn}UDrW4LV2bkhWSDtb_xR5}
zQATg#qqn-eU8lNit!kgOevu)kS843M6I->utd-1Ed4If{wQA?K40pe!MYAXW>)yNd
zkZ@B#hfKkPHD)_4yjNXcX;Gh(5!6u8p6t-kksuY58@NPTGHI8;DQE08_vv1ddhey{
z3S_GULk~?UJCOgJF)ELP?V;oDfV)CZz8M|x*rM@@(~3J>j^|g}D^-U%yag9~Prj4t
z{nj!0!QyM*q8|0Sh)r^o67)B@r?FVNaxEJlM>A9WF6GEmT-$dF6~@^9^jW2{)^+*j
zqAPc2{}P<h+`HoQ-iA2d`&0Hz<gJ%AwCT0me6CS<{!*jZ<(+queKrTi9u~`2P5fq7
z^p^Kpy5uJIyK7>48cT%z<yU5@Z}R^AzKXB6#oX#l%&{-Q6$(??jQtPuc<y2SDb#g)
zO8MOj+aEI4vM%Mm{%~Pg6X#REhYRCaeO6BVkkb`kcPDSdyZ4-IU*$h&7|C##Y)}b%
z<F6a@ER69<17{kWPs#R~f>XO<esgqmF-*$+EK+dgnCIe7i~GHkd2bg=$qT<&)&2Lw
z8x1uMJBC*$%MQo($Z8);U0iPM-^#`2shBS%G?nrDh6i`{HptyoS|HZ3dBMSu)lJF<
zj~`99eQ~y9gGb1XnGd7V^v>Aveo73k+$Xhc-`8V)R;_vE@66fTc246f>AKF_JWa*!
z@qyd9DmGcyUBm3pUeVp$!%==EB4Uf>b+Z|_!|&z3E*Ixq9C&Bzn`rwemAu@&jNe2<
zkFWbW-|qG=!Nsy2dk!ASU@lm+cX#gN4{aX75}n!6cO0#B18ZIu6@H%|cxR<xa)a}|
z(>s>$$XA%Xhwb>*1%FB&oIbPHIOwD1toz?X<s?@=SkZYjN5tUmS8o0l93H2Sxz;SO
zxwGoSlhw@U%S7c)#cT0pl+0dKxn=*}1zx8!LgP>VpSeuK`AL^km3z9*GD)rFw(0AB
z&Gos+JzLJCOf+Whmh3$_50<h1eV3HS9OV3cVceUQsi$6^QLeuF;GRN~<L<J5p6~lz
zE;^}No(-z(&YLa7tE*~KQxabDu-_=-tnJdPd?y`~?g{SF|7n)XzSK#*OGicA=~>;^
zs|(&PSf|mwt=V9P4R_7P&97_ruHVAN`>a9ml$FcjwAQrxiB5|uUk0?#Vab`rx8HVu
zr!BM0C+WkT(`~>0X1Cz<OZv5|{r!H<gL+qIEi;}lMfYlXo@&Ab!&Uoi!*?ft^kr^&
zX8VyrPT%*uC$pU2o&^8@Mn^49nLfTev#ZPY|KaWD=l!efnx=j8{148<t;y~F|G%(g
zC!E=Q-2dN?w<4^UH}Ch4m;J}_ag`u{kr1b@5dX3mvH#w&diQ<OR|E=dw$seuoOk$K
z_}8j$!G@tKFN*d?P5Z3+)^&w$f}r`Ezdvgtr?399`T4}PanDb$n(7=jU-b2=7@H;Q
zHT2(X@-REgaapTSs^rVD%dVFiPPmrEgggyVY?~p~G1Yj|^MF4QR>_k^-=AO3QIilF
zXrA_9UCR1!QQ1O)$!`z5JTY(nne(T!rXEdLZlnE4lQVVsXa1ktPWnA)J61e-Y5V@x
z)a6fSPd0tD`oy*_zRN)yKUdB@?9QvQA=PkwMz2@fZHwfal5=M?ox9bizNK)B)jtE)
zJ0Vr!o@IYZUnSjI7TKyB{(6g>WeWeQs=KdZ=AXI#)5qgqtn|+}H~kIn244_t+Wa#!
za{fbh5ry-oW`#AiT$1E>zd!Z!;>&7mjj{7YL>#gXb+Erv3#hQE-D$UQ_X(q*?W;~L
z^0N}QXD~{w+jC6kwPM1?sCCbuZu&bbSs~e+>BfdPj)he*lYgIVS$=v?)6dUGe<{`;
zd~<-KS*U%z;R>Cbn^rXl{z^KzVUgAAs8ZgQm9D2u_Wro}YDZ0gOt8enw{KoJ-^)1Q
z#T=0Gydh{~%#!y@W*=~{&bq>`8znFIEV<*e(aHCxS`O^`>}Ba^*>9D(>FLsI8cZh+
zm2Qlg{yF&9K_LzC|9dnNQ^f>1(@HKWTwkh?uXpcUaahc`^yN=)D=jZOGCL&LlhgF}
zjUdtPQZJd-zW1BAD{iTDzIsGW!!&it(}@yiWma`Ol6tE&bz?pM@z~b-5G%$v6a4-d
zCD_Rs&62vYg)6iCYnR^7g=W*YvG^`Y=<a6zw)<<q4mascKTZF~5`M9@IhC7L9*L?w
zm=MG2dwC7d$G$z0Qhn!y)z}>SU%U=^;d)8AeWSv!>rcJEfB%}eN?y#?y?KsxViof(
z-zkiyvX_^uEanl{o&L}LwVA19<=e0InflZ3?wF{}!_0idVb2L=iKw81D+0ft=Go-Y
za58TW!$$?~O0l(Ksuwd%Q#VzcoKy0jmj2QBjIhK{f6?x<Nt@43I~Hd;d-^J?@9*8s
z)53fr*4k}m4DvIa9Uc28lV_{bsmBXtUBB({aZU7g$~HPypskkj>WSn<6N!a2Vv;J{
zAK&<FI%2c%x%iQFI{mkIZ#0~7tn8AM&a28#2hD$`OVmi27A_Lzc`1}EuyvhImAcO@
zzPXy650)5npLX$SD4%O|dDfxaIUf$+n6n`0L1)PW|DFF6x&5=A=sr%GcKu+NS5?Y<
z_y7LiY?`kd{@oF3mSU{T{&mm4op&3%dQ=j({Z5RSd(r*SD&0BelGol``I#<!-2JpU
zlT}~Q6w8nt`D>b%$CJb@Y`!kZ3lP%c<KQyapK~dV&vAYFEy3RCvolY8pT2m_ypR$H
zuS=dcJ)Z@|Nn9-5|FG<HseZ@Oo`*m4WaGQ1tY7g}WXbkcll=3^8<{8atYQx3-?~)E
zYES3k$YhzY@B9jrzT|i8Y+SvB^N5h(^|C*joNr&n?pRW|=awn2TV)OBl8xC8H&Sb|
zy7FXWwqAX^tg6(I)%d~Vx8*ZVPjeSr?9H+}BJOJ86aE`4a~*hJI!3U}4dY<pNNu{l
z{ty>SF!O@_d>ttr4$NmBSVw6ny-B{gr9?lWh>cZ}w=YfMRoha%kJHt<IigG!$<2=y
zTOuU#l2=CgSE+(WSZU?wtk8oC%$$O|SQv}=%Z(K7K0k8WxptyT$D&DRWA6N1-TPtL
z@`}8w+$DMXWgNVo8ZJLXSXNwoJ?RPOgB^F3CJ9P;3dbJZ@b+BfM%kvMpNa=>-~A+h
z$XPmNLXhK}67jc(H$8UF@aHY7*AR3zc%yVL=;-UJ;G~VFAwdNjTK3BwcAC~FY_r%z
z?Ecd^Qdijb${djp>AIyZp{?O<adheSnd~#xEuQ80F1}QX;YwyxPWOBHQ)Y}aiZ<qC
z2pZqnU9&%0Xz{k+lUaSP3cj?i;q~0S-~X1k<e}%gr5Kgm+5KC#2z4Eiz1ih0t1)Ml
z{yo0q?d?zg{W!J!u{PJogCBnvAKewcm(eiy`>x<iY=PNQm#n*|y!~&tT}$L)Ys)R+
z2{EtxzEAv`UDElr{fb%MtFKZ={cgQC3~Q9mYm2yZ_4;q+*y(Rqtz4Jn*&TApO?>*s
z{R}lTRlYnu$2moV*JADYTUXhFy(8yWElrrHcwoYnwT=5^0$lb-{rq5c=Us06348rV
zZM%MC?`hy!^=|doO`Y|um-6=BT01@Vk4fh8<Eheo?aAw=@s^}nY~{%<k-oY>;ig!Z
z_|1&oQ{CU^EBb53#Ll~RV?*7F@(+r-u72~(Wm*oU7|q#jdHA4%&y0H?-XC^z^+<5;
z?04DSm$q`k^o54;;pSHY47E>Lh`iY8ydy4m)j8F+PZ~?MY@F-C+xED4+1(Ad<JbzN
zT<7%7uXx3?vCC$uFLycn{baLW3Xv<-_MD66f9Jp@x>3fUR`uzRyuG=PCtta+hp(vU
za@bolxqIzl5xMV|EfX^`x-x6J;$K0fgYBEOwh74yTOXG0-r)B9YR<y_*HsciFCLL~
z=3l~nZ>ptc7&Cv)?5C9;O+~S}c`x-Mx5ixm$p5wV-|4e`UcME5@AFPeeGOW>@2%Qw
zuZ~AMo|T9^_wneuof+`>g@}NTgP_|2#l=ZKpB*iXQZMD&BF1xgy55VwcPAd@ZCuyG
zadwY*b<w;S>EyZ5%Kp)}qh#(p_uhZPBDaWtxp>s;i$DKQf2i{4xOJ&%l7-Hr*rW?G
zmkV@u)bwY56SzFXZ%SES;PdC=UBO{y65^rJxfAodE^b&aopPsg#<9g4oK&Uer<}Dv
z)^+?x$rk6CS0-<ks5Lcs@wlU?s!&wHU9mse^YJ7hdtb|6`nz{6*S_0taa87$8BccW
z$5Wj5l#V($POv)R^>pLPZ7a@Bxp{iq=DpTh$JS1s^XEkCcV|mu)u8z*?7!E)d$vS3
zZF<lTp-+bjq?f*0xVd_7>5H7T#p&hou?ZI3;%>~wen+n)f4<rCYAc^@J9GD%N7MLP
zn4WGq!nN$5*``pd+m5>2`hPw~6ejMlc)n3jO`1o|dUg5d=No6dRS9c<{xg>E`xg7O
zFVjEou==vYsrHhzdW6P|D2ENbIyNDzRxax+(SPJ}zNIC02H%Wn7Y`q|Qa-ryt5N^w
zi(6SG+HPfR`^LG9^TgyrBir?+b@NMwE=)*yslCOm{Dze3WFwopC55wednDH_wKa^N
z<2>zyF<-FB8_BfpStq8Q)rdae{w-tMgzTVeE$==nZ7$j*H$hioO~JeghW&*LPB%rk
z1}lASG1)S0WyzkOeD)Iy+08N^o?9lpXY#7|9|~W@WSncdlRc|QboP!k$NVcLtrI2H
z8`74A_jT`E?!8{=N#<4GUG=t8v^n;^vS-XnSzr*=wXWhqvs{({|8*61o6Ozc7&QYL
z|28#n1l*|G;os!j^s->_J=4`jx*Z3L8wv#VKiddhQ*rrc$S>Prb@rWiO2(9!Fwxnc
z%w8=kEsc)7C|NlDn?B>D=mP7DfAz0^V>XiN_c*Jw{o_&<j*EhZQqnc@Dsxp|$=Fn`
zxc%0(L}AYAwPzK7mR8EKJy#Cc$hGMDM72A|m#eCO&~v!-Gw!(M?e3UeXO-E#pLd;}
zy=>od?-LUrwSRxB6z45rx7zqZl*Qwd-9dJ)iJ~jts5YGKO$jKmY|8exI@T1ac3JaF
z@Do12kHz!EBhDlnYS{Q4el*2QnU!a<-~7k`sk=X{WES{8WzgL1m(R+ya?h-cyA~VY
z?%rT=Z})$L^xbToj3FDvmo#t9<Nw;ccg~w^-32#X%e(6?KK#b~q}^QqXJqNOASa(i
z7u!QQ<KM-5asSl(CH?v@Z-A;tf$a~qyE}h=KD~dh<c4EY)*o^YunAlA=z`hHANI#Y
zgl0Gu*v4&q*m8CUW48OuREI^yb8OiH4!6!?2{_`qG^DQkmR9;7{{Y>sv%l5vPdl+_
z#|vBAOD4^(5zBXnoJd?Si|d|qcK_=wmwgrnsGj4RnSbkyn%X2G<`buM3|EF|Za+9*
z{&>Yg1(CJ}t)zqxmVEpho*I_^vz~XZVcvw8m%KNQ8R}$q&S&b4DF~R@zh&Xd^<Sdr
z#J!o(a;EZgs6+^Ny;k$P)pHL{-PQbPee7F_e}0@lzhw1qUbFt&z6{BT<K2!6%gwJH
zmgcy*;lgigf2|U>WQppyrR9m0aZCGGf7&_K?&0tBP^&xYy_1)R{wlb<Jmi;wW<U30
z<x|4EGn<so^^|LH<@-;a=jC~ZL3h7P;2)FIcYj@2&}@?M?Q}}x@}I}kCndx;xKC<0
zaId&HN+{z*u=DYnB%zGF%q5?8sw5akHmqtr`=dsQTkZQ%jpthTzwVxR<Kv+n#(nqr
zYu>i3@OSAFIDE=jVTb9ll1r)OSMyfC&68frEzWXH*U;qqf`3`U9nyV5%LP`)M=ZT0
zGU1)(9Uj-Bf4aG;lS&qN2Tyrlep=(=hxsl7b)I~8ufNp0v1P}~*?#j2udvVZY`YuS
z=^+2&(ZhB3E~PU?If&2xHD_{Gg^HHC=Zz_+UvIm-N|X7*9p8uxFa1iNHa8xdRp|ce
zFxND>TC0Dd_Wxf#RX_8;S?b%o^6X2eU92Vk&aabx%X4!{+mDadd~+Eatnb<Pott>V
zMp(Ax+oM;Sx-QP)jZWu!lmg7$ClqdL*H|oeO3}4<6Zf2VpHE~QvbMYbrNuGHbDd`M
zdy^x}E*INAF~0jN+1$M1eZF(Ez1^K&>1`pIW_wOAGPycAagxKTlx>|q|8X>x#5`Tr
zD>y@W@~+|y6R*x%y5afVUVWR*nRoW+ig@?(ny%l=t*SNg|H5bYTf`Pkcyl!GbAZ|H
z*y7N*%et#RUw>-3i<?XS?1HEu>4{g^x1IeIyYtqyv+PxY3x!+TnirnlJ<sLy_I#zF
zR?}5qt;&w=dA;T8-@{VenZ0YY*PU9owj?d7aP=g^{eJ4xw>U_3wq+R<_I$MA>!>W*
zmT>0(<v88lh0>8C#xr{V3bsuPNidCgua#ncK&Q!vjd4-Vv6}%|x02S>`Iw8|{ApI-
zy+3i^ff>cCJj^0rP0#5uQ@VNd(cbOvZ22=UOksHUV5>y-&)TzB(|i{#naJF;fbp1G
znuNc(gYTce4t!EBZ%*d=7i(~)o@-y?`}(qRaML86it<U<rmL?oRJihK!jHonFLK#!
zULz$YB<49^>-EA_QneB<+h*KmHe|ljGet*v*PYuYA?a7nG`J|A>q-7MXJwn>Gjmpp
z8yb6JZ0=p1J?pM^@ayI+j>l_Xe=gko)<XQ%$-oGXsJMyWR*L)HE_$$KYsUZWv#&0a
zZjf8X(|NT=Jz>R(d4V5_(&h?_vpE^gS{wW8(+L$8$0LVX7V>&OUu<2)9C>&LkH~>N
zHxnMLRQdE^iF`xR%!2_hr@VL_y7i7$z!sD4oMTscjxY0*$#LMH6=Z8{$YJBKNhC69
z^OWg&|00j?u=(&ZakdiA6zd@6m&f1Tkx>girJ1#MweQvyw|zgWpNp9;l`hvm-;DRf
z_FLP+8T_+O%2pK3)W{2;y>D8@qaTmD!b7s}ig9JkG5Ds{R`6H$YGg~ahsUBP$M-Y^
z^ezuD`n0d<$M+ST)6;Cu*{TX<DTFV6rCay!dM3x#8Rp6t^7%}kJh98ara1q1XPs5f
z(~4USmv?7QcKdpD(y_0qPbCUx&JhqXkTN|caO{@mzO6pjw^dx9aKGl`@ud?g*6!2k
zzVa|UqiSi1O|et}TgM{*ha88?7Cqsr4NMB-`K49%e&&%SR?kx|EK#icAKjr@BW$ec
zVII(Ud$P-MpHDtXL3|u56qwXAZB>^!o|98hW93h36+5q&&2TB>z2DTY|DAjsCQg#c
z(}@btD%CS|+<Nfn56?3ux_cfieD-wnp*hOtE3UTOC|?oJ&!%!;VZrwOyK?&%9%Nu+
z$X~&&@KT@O{Pwm?`CDl}`_41C&dBq#vSvB5n`M(4$MGWeu7?)EOz+>UGjjR!ij8mk
z941BscSU|qDGly*TUwrmdv_&kFS?|<Qu9NZ`(Le~Qw@KEAIePc-57t+{^X)=gUd%a
zZ`LF@C2KfGExQqxySX+r-&kwgi?<CTjb+zf87jWtxc4aczc2l-r*l0!dgz$cg9T#W
znBJycn4?j#K`$of)%5)Me}Aj4Bve1|s<y~Elr~jq;%A%k=nGDNuiMYr6w<`VqR`5*
zIcU|9&{}Re&Q_7vTiM<-U(?J;Qn_r${2`M$(P*<=#E}BK(xVp+WV3HH5NWo%V7Ff4
zuAGwgv35_6-)urPAyFGPn=qtJW&2cXH=#jFQ~h&=j!1>YT1~e8@WmxXA-qOx>2eP~
zzFa?3ns<X{a>>M-Ij<k&p0`$=*w9@!_g3%|O>e_{ta71G<V1sCtns=0;qazbe$k`5
zeW$v`RtfW_R!>iJ5}jSO``DBZW{VDJ#dfYRi(eiZz+bq^A^qs9Wou_W4RLv>!qEBg
z^1;@^`EoX<Uyh!MNZ8-TdUWOKV*j@*YBw9Zp7(ZFs8G9q=<l}0|6Y0qZSmawT*dWf
zKC?jLbM|nz<w1Xbw|rjEEELjo%hCGy=J=9>jcy`S^46@mzIy@VI<0TPl^0{PRv2|v
z=PmnH<TmL}wB~^gLLK=bD`W5P)vTKv&oyh~HtXky53_$<W$QPQ?Wl#Uc~`2YKmSbi
z<qKv!etgPWZl8Y1@z%8I{<CFg9bcNZ-*3&8?|SPqm2SPVO<kST*tLB%ufFROYrV$j
zBF)d=)I}`Sc4ym}BI$Og%>K=nEBRdZpRf6xIWjTXJYt<m&Ahg>(t!KVrHn5r-{&&E
z|M2(hz%#c)(}mVI9Bh(GIn=McWUr@%!)De+=O;D1<FiYi?dV-`yIS=}&?n1<heXY<
zzWv=IvS`IULAgi19`_hG2y#WV-|kSfk(<G;*=Q^LxglJ`H?QDw^_E74r56i1LOd(n
z6Y5VdyOo*Amw7&+`r}Vc=G3OJU#@BTZy)UVVVj=(WX{}=A7(M%_HBK4K{~m#Zk1_4
z)aFZEtS-$uTOH?VS6&ouatocF^{ivv+$W)m=bpTe-^9ewcva%`7xUzqi`^O+E?7if
zWIVKaBhT!J60a??i8d0|lgrA)PI3HyyktMynHvqKHoU12vN~R%H>>eNOx$mtb0$6O
z-~ARTSmt*~vgM_t%q2I$wMth$-s*Mz)H1)-!TJ0B+KYaQY=$T6mObacYwqkK5?9I<
z>mKv>>AEQM*`dGYX*~N{`*q`IPN9Ie%OZpi-&_}d`scL#7QSfHBX#WiZyowBa{E`A
ztAV2S!^2<GCaw#047hgDwr5)Ytn%`=S7WEfDW>JjuC(ngjHz#b|1T!L;dA$sTosO0
zhpSp8GIJF=MLu;c%GkOjI&e>YPxgz{Nuhze7ISkhk<B*@QOw=9nrYv>L-OX`O+tQ;
zJbwF~-gBaLiO$u`o=fbi$sdEi1-%UUf9<c){LJUxZwx0-SX+2BzKXYhoq6hx0Hy}n
z3pWCUmR<gEugBz1Am=gL4N;y`rmU*j&-R-6{)g$cdThE)2g6I4mTrIkNPZf7_s+RB
ze@_RiY^(e8cd^GCAqIPMp|yn^YO4=-FF&?!{$BOI%hML=UwXc$j&o|i*afHH4V-F)
z>-~?v^+}rGd8c~En?GDm92HS3pSua!xa{Ck*Vg!Zkn3B_pGu*}qCsEGUMa1e6#Qzl
z0sH0+TPnq#bLxD(wp7PRxSX+zd+Eo*<FjAhcpF;OpqRgPpF&?n8Mpb_rM_oAWSOkL
z@Bcx1gUm6Z$oCILUOPKIaqqBSWw0QvJws^1Dt5*>bsejCXUX_%&bYO0-ty?J;h&lA
z%_(|r#=I|0HfZ`iCb4F#;Ln%hB&5t={yn29J?T}i)8$!7_k1$*m#6NPZz!0VdGl_=
zUd_1WR}Kp=+k2lcDoX0Wt&aOAQX`Gq9z2;jRpH{43@6U>>9WU?O+?+f7B;w_YCQeW
z-|)c|u5QO}?(V~{x9qsUVW0K!da!On`h@hqC;m+FWK?v0ku9{_q2x>d^P`Jy9dmzj
z>S}Zx@0C;S+jc~rwO?kCQy6WVqs;hu`4%lPp`)da$Lrc=_{YDxBPDUaETv2O*`Y0)
z9(V@0PxL>ScSC5d>c;u{v6m9fmupKuc=e(EyU6k##$jukHi?9LGC1shu_$uQ>f6)G
z*Bsb&E2MkZ(zRav5i+f1v-Vu>jnHA*5c&Gd3|q6eu|Xo67G$k@%zi=DYNmB6o2;^|
z-uBh)XLUpTW0WUFJyE(pS2#@cYE^9b>?O@2TSeK~UN;IG3P>Fh5;*-o?$F#bJUuIR
z-nge1&t!jU?tu$|H3@Tzbj+n&-NgU%9%z4k{H}jn_}pLr-fr5tWZx!NdoLkrY5Q~g
ze7vV?FX=Hpa!V^tq<hybyPQ?CtG~@y^5ge;=dC%jzdin5^I+nS$FZXKg=`Csay_b$
zTlKqo+u|oN%X^h3dCHy1OT9lc(DGkJXMAYj`uDGWg9T%4QZv?M*ty<Yx%XAJzc<^G
zH+y#^<S`nHMt?efStP<~P2|b%Hh+5j*Z#@Oay_t8ZE_<s^P=ABFTdZb9NWkuyt933
zDnEbxCjZ`y|J#F3tmL`X{EbcK5a*N(yW?)sot=&MZSE%ADk(g`?{tQxOX$wQGi_VW
ze{1+u=)<_E^3%n$lBe9yo1`9Fa$~;nr2v(Mf|(0!U5>As{Exv+YNF?oL}B%wcjh<m
zt(ALsbDCaLdHbZMlIgcsig`b*xpd@qi&2+OXl^xk@KWyBJx#8E3Ow(N-%Z+LTqH5C
zMTD=>e7o$63WfK(`uubkay(_2cuc%}wfB)`liz3i`+Jm*e^(Ikjqed@Gc5U$`a)kg
zQiFMafXy+Uf|mlUydj&{Jl|aRl>c<e(nZ_5v@L(!C=Du_wSMyCj)<jO-Z?o;o#u7>
zql(<p*w%R$nBF_)J5E$9T97=YaYIRXESJ}E`%QKYN-bR5&llH!Nb+JowT(OA>;H=N
z)9x;7)X);pwqr`Qbh|O@J9F4VU4c$JkyVRU<t$)o6yaj(RGojzf2GBBV?Ud9!q&VS
zx*vbMW1ara_WPVu8T_U^msIqZ^*ViAvuDQ52_|j=?vj2ji;F@6<NC@b+P<*#G4J0b
z##ie3FQ+pu|4#**%b{9UY1iBKOQfG_8pH)NN)?80Q`|Ofj*BcyOF^FU?G+6#oto6R
zXYKB+%W{`J`aVZhDn~4QXC{NyyyUZ9zwdj0W#nzYnLYihqQwfcmU&D!T`Iq-?Qqi)
zNDp1IXWh-1z<W`fJJ$*Q*td>5BKTt1*V&JnkM}GO-tzeV9kba^{%*gxc_mIP%bneM
z@Ga}h&pz9XXZOxdxE{+g@q|EALVZEc>CgY{=4=l)d2CgAe}C_SugQWujM0ZD=gsVN
zWUN|xR*%C>?~~Q(jV1xhw}qY7khpJmG-{dB{uNm<C+>L(i%viDJ~ikXm*y4gx)avx
zzjti9$F0udq7`+W{idQ9<9o-q;Ylh*A6`wm6rK{mc`?K2rsD$Fqq|RR4OMZU+kJ3q
z!0)+_xxVT#1m28doMn19J22|YJ?~>YhlOq|JIH->krC$||Namclm8+UwgmBASRA~~
zxqk<T^TmLvrj}YlCq*xPNYk;rBxd4ga>aV*+`1x}CvF_Nels0TaoEq3QoY-EYVr4g
z$3Ko;yHLbeRB_vfM`iNym@`H{=U;ho!no7sz2TLPN;wzx_pvK37JS-~_S%Q1J!jGc
zHfsfoCaJYD?!6z}_Z@4EX(_Jnlu|ThEmU6B6Sd}Oua$Me%~#jbcfMnDe6jRi@~u7E
zFKRUtANzbzS=gJqCtyp=hj_7X4^M|qd8qV@`{l`!KYuEIzU}In+U}IZZNX&}X_Zy>
zJ|Wp||Nqbn&(?%}OmLpj?`|OHc~G6Du-uESYh8~Bv(2f4f3qu0I1bG0uF+k1x=?sU
zNX+5u?Y9&;_+M6DtW!I^F{57K|Bo*f7g(3%pJ|cl|B~g=^1R71I6m3M;v%cLmw%Je
zuadt?bGk|wb6gjbsCcigax64pw#g1PUZ2B@WQ$r@@*4^{ShwB3H}?*&#0vJOJ8p<d
zEOJ%8tC4U^v3||moqU`{4sTPR26Nk=wG!EzHYd7tMXziWw_Ei4sdZ9;tgX7TbsXoj
zi;EA&om<{2;L$qwtRHvKI-dH1<9_MK-CKEbe(lm&$g6eo+2y}Cw{XbWM()>{x<Iea
zP=89w@%AleLgu}dm7jOPO-x#|K=HP=g>`SfXtkZS)|5k=Uhdf-vwPn2xw<F+n&b)i
z=6GI?Rl2xJ%j@*2EmpE}bC`tuyC3hG9R55%t=cfVL~FMEoU?rQE(!Z6-uA!W9m@IW
zlTg(?o0k*jZ&X}bba2PjnC^-!-X)3dsvDO5tr69kBi1;#PUv7`;9-_Y2hD@b-v#VC
zVp7k>;J>AR3AUB7mL>`Y3i;sWl;9<$#nG0KC9#&Eb(TR2mY|i6K?;_jwT3|omXIZ}
zh6dm@u}F(y4GqBSRUvCr0}|6y^#c-%Qu9g_%!~{b3>1R&gYrufOHvgK^nFuPG83Kh
zE22S0m>C)=m|Ggf>N^+Z7hnhmr55Lx7A2<^D;OGpO+hS&1v?VrZ1lq?5qH0vnOf*s
zSeP0ZB3=D%W@f2pY-mQ@;>#2h+-na(!GqlamL_^eMkb)uer6_SdX`4U2F9ieh6W~j
zW~QbF24)Iorl7TnCd4iP#k~p@95>kAU}$8nXJKLlTK{ThXsBmkY-V6+s9<PnqGxJi
z3SJdyWT<CqWMW`K)at`xizHmDP{An!ha(Kl^vn#+K}$YOOpL*ca1G5A3_*v38XJSw
z<C>V7=oy-s8yFcAwG0#InqY9U#O?;rl1~#8@WNzsLkm4KV@uFg>?S7WdX~n92F42J
zMwWVpM&?AG`-tc8Nl2c+?g(R3OFauCOG^uL1v3jHJqrU%10&E;payzIW`+ia<_cz(
z#(G93h6Y9!L<NK)&V|X4i~?~5*^5ERJb%(s!PpeMDpVi!C`!s#i$Y2lh_9f_MJ>z?
z%=Ph~MY$yWbkQ9%v9(@TbG`_!JjXXD=yHY7fsj<i{X%C`Qu^1baG&O0<?8vR#9VaJ
zrZs14BKIA=|3H7ntYXGZSC{O%`e{c@=LHpxn3y@$=XUznRcWh<pS^ea@m_WPr!GEy
z=fAV~mmYiD@;Kh!OzA6E{o0_FPvZRg#H;=1nchsf=2M|HWop|$uf&`m*<0qDY<?;?
zU*`Oadh_b{Hy#?z%vu?I^ww!6=ZBYj&VFh;b}1odZvKo9+h#pCwGCgHmY+X+Tg02o
z*3)+xy#4#}zTmERPUb7mYP6jE_}Mm0{kZ(QzN5kEMxyb1lYd?fop}A}C#9T|rvzsE
z9L+kr^28;dQzt`~IB5&-x6<AhKP@*haa)MqSCJx~14n#)w2W6yWIET&=lDmR?INp%
zYf($l<d?U4g!Rr?1Zi)!yYy_+u6gq>wrQEZ*|K2bu@#z8QfU&~M0<4}2^K2caBR}P
z{N{RXRl<h_n$tHgntv^Bnr}?t28&O3FCNZ0IxEud{ig{_W4Z$6J}q0BmU>T2Wcsv~
zsphHGl7}VN6o+kb-K#OZa{d;bsSoG9<k>cRrDfZHk3(n0!#^+5`<yEOk}3MA<|=<P
z{*4;yNjizVPj#xR_xfbIZ1;!=)^ldtFy+F5Q@XYaJi1-m^wPhqwk{5BFK3#pVbpWO
zb#A>*bXATn)4rWLuQqhPD;IWn_WHVe_Qy3v#c@}=YvRnfTXIDY&1=1!BKNxe_Gz7k
z`EhMeQu(w6e=T_`l3TMR^76IH%EFsTTW9ZCHZ!cHL}$9|Tn(?Eb$>k8Dpdao&xxPA
zt#ap*ty7olcez|xX&-yl^>T}MfE>eOgJixhQEd93S8rPPqW$pIv!5qOu(t?$JSu-0
zxiQE4fbzZ|mVJ4}WrsM9H|%(PN|@h5yz5|toX?Zykd=HleP-u<EBofLcl##&mdP!C
zI-I|+7WG|7QD|(~<0$y*iucF2raO*_nI_CUf2g&wUB{Yt_xd7t$CnN4Jgf}GQ?LJQ
zT429Oy)(q({@nWG^VC;-P|6d|*A7|C;x*-i^9j-UpIBe9nIAH(7I*x4K=s9x*Ll)v
zKd;9g`aQX&i$_)U=KId2#h3Rrol;?lWz3s&DM*}SR|o%r&sUi|HQU5nYc$rsHIJWq
z-S0c&ys4#z*_?7-9i<gMjbb4SC70>li|5#AmD}|zS!v}Grg*_)OBei}6M8ye!s%%z
zI1;lRKHR%&rFX=+{B*7Slgd~@TaLQ$qJYp-(K|JkZTysUhT}}niSocFXG>#sx&(SJ
zDTzG{X)G)a|NljMadFGUrP04kW~)CmxGu~4U?cM;;Y$@|7j27|aGb8&c!H<vl+0FJ
z3;lw1HP^0x;{Uke?%rD=o=(F5N}V}hmByq`=J}eu!#G9Z#^vYDGPy=_mza}mCjSr+
zYfM+F*<tU(c}?Wn?XM;qS$%iPd$6f!zE+bAnph|rmR;sHap8-lOV$_2OQp7+@0f6C
zt6{<6O&%}pJP&$QsccV)?TXyBSweBfrS(VtZ9jbYFw3>Wo0tEc9?dN*HDPT+eRH=^
zLNWh=^Wi&eS38C9Jh9iFtu#r^JtKwT+hhLQSJe(2TqgT!f{IMeip>YL1)rYg6O+qf
zo4Vq(OVGkvp8zJIoCA^Sc9IU|t{;?Ue0?M=_TpvET+The-Q)x~qSn7K4r%%PaLwF3
zysKs~g?wKnF|RLs@7j)o?^b@TI<jx$4AUhMYp(0hyCBN5dg{EFroGoBMHNqWw!JBD
z^Ehl~@r~!)@|bDbg|Sl<TQyx<78h9@ag=Zmm0qF4T{?UF-V&B##ZCWiDP2E%+V$pH
zgSmSpH%W$xEnELicdJUmhBa(#yjR;V7VVw2>FrgOJ&Ran_8Bj5efYw9o>%uSm)!^I
z1e({Jo)UfUZuSfHU!Tlvw@SVK`=5JWj;d1A?B1NV=qa~K*B|M)${RoRLERbSAI7~o
z3#vXSo_(|2TwC<ipB?KR-bUQ1v)jMyriPBF@22nClX>L6%stAnbnDrqjw>2J8;+h(
zkf=Q(vQ)j$!sVjgW3{Z>{c>va_WWU+;h<YmZ+bgGN%zU5>IE#aonQM|JGZQGWj|%i
zcJ+b7#4mT5%@4nys$~^sd&YR<l1o?QW1q=)Zp$gqpLHpwNv7*h&Ixa^IZYGx%SIpL
z-?-F#&I8AQpxPs!etbTy!5P(^v)ATGhM>vhx%J8aW#69by&&zlf8ni05q*a`wzG>S
z-{V#JvvBs47Yb`82{W&LwDju3!{?hlR_H&lz5B<aE57>r{$EC`{_M_kx@T=t9?d^@
zr@LGflg=#VkMXq`j~h6g{<b-vu71e=EnwCai%sl_L2In6H~o!SXkO7^>TqmcL~_6a
zgXpjsZ*vOT*Ov!s9I#!K%;0`&Lj%`Y#e258wrfA98rR01`xm?B?7COCRf=`qnu)J|
zWDs_^z&k6)O8TSpufSJvmnAkO>i_$io#Y|PFI3Q%dc1vo-@Qw>o&?A3?NL7b@26Ja
zqH5pX_37;H=MUFS^2(nw>$?6u8M!^Sb(0TBRf+9q__(S0dFP^Jg|37szP@>TUo^ez
zbPf(;vX5r$<vlHXrTfAk$u5-=k>Hh@_YH$N?r&JVDs#Cz>sS71ceh;Kr1DvI`Pv$R
zN#Z#IUGr|;_`Ks;!rb@WKPC4>igfc@$y?~mXtmiAF3I_ClNSr)vo<*iod`F#<1W*_
zpBG5H=_cNG-zaKHPt2WFnFn^QGxm`*WzgrVU#7UKQM5j$eO<?%;AJc0t={kDteUin
z_nyj&wiNy3`sR%<rQ2oYZmis=^7dWZmp*|LE$`VIUoCoeWv}k1X)S{Nnm_kH5odVo
zx~GpJY14eipI25LdiR2HZ_68N(<gZ<-`#diJ-nx<TcRv#?%j2-LIkg{n{V5=VOI1B
zUe%L=LZ<=}Hn?US5%M%#ck`v+Ojhfo{kH?9r%ig3VEvpa?56(g&>M=)GdBtQo?X3t
z<Ns6Tmu5K2FJ5~jeTP^6qKf~PkAe$M=q>N4^We<*5uT@?kS<emxZuD3?WK?PlSNPb
zy4O|v@6%n4yu+^RyTx}O@o%2BM@qKg^Idg=2g15<KCs;H6{+!^_~b=F_M`2_9^5-F
ziyc;YubWZjsNt-?Q8SDEp~6~um%oM4(hYj27iVAku<g=E3(GZUPfA2Se_Lf}dqdJe
zkZ0Bo-<!9V+!v3wQC}6Ixww6%hJB8;{#Qp0myatxKeDe$ef#*_?m}zVvOwD+>(+a|
zm8UpAt*P9iARl(y^6^*Y%i1RsB5au+Kc6edF=gGA4?B{qSJlasr^l@9eQ@v1Y@b<{
z#yubM7uN+?X;=9l-eT+d!Zz>D!l^D<TMLbh-WMiy&i8zNp*2N$ZnFZ<4iRhiRxWP+
z<7d{tU3Gaj+o9vLQldXau3!1!lxeBm`e&aPoO<Usb+KDy5mR`nsrI>b)tu*VL>l%=
zF`1eqJxLe%Hb<r-?8>yK&mHe=QS1KlsDH}5;P$dZ2d2+cmakZ_OU>w9)%M_)k1L->
z-skn$=iO$Ve`)EHTJe_j{pw-Lx~zZIvM<HVH_N>lx81d8X>iu8H;Xb~?cs}2EGaL@
z*%bVwGpx+(fB(-_H+vsj9NLg{phND^jmMu3IEH_%uQ8TkIiV^p$KztTChT=bgNvk!
ztMdD0d%ET|`YSwHJ#XgSm-k-Ijl0D6#9QL6kALXb@caB6P5foA#LjKmuJWn*WvlFO
zyIB&epRD}8`}ghFx&NDwu01WYc*nurZ=c;&+bbAYVHEdwMv!PjaJ*~3l;nQ3nW;_!
z5@{t~Gh`myl`Gw;`&;n$;p5o<E8_3Jbt`#L`ELJO&u5=M=3TdUxg6ZrvuMxrzMQ?Y
z`c|s#lDa3purZ7;hwp2yXzbazpytEX3RZ_!**ceW>lSr=o8Y<agsG&<p}hVe-|iDF
z3;X8rvjyg8PAlf}J=Qhr>-X*D-zV{i$RwXK&Z}RU^H*xy$A`b_iYM9_<|TjD+q>h~
zr@i9)p9zT+eScy7^qY6c$0RYCbkj38?i~Hl+09sx<goc%_Jo)!-fPvx#eYw~d-qRP
z;-rGu-M`QO%6<5;Uq1hy$~q3Vql-Shjjl+%xnJR@x*$v4tv%J(|4)wmzia2dsjXZ#
zhy0#;|9t)I+rO&r0F8;JYCpIF7^gM<n{b^+!dq=sbI!H)*$?Mmp7=?~Ztv}!``_vp
zKkNT{U+e6)db4%^_wK%VH}BoX3g>eZ3dO@5N`5@qVEQR8WQJT#PP)nQYl+#FG24zG
zSjT<i@|NHm5@M1@EPZ=_|EN2&LSF8dNLyq23Wju6Dbo#dng;VZ9^QIneD^A=lUR$k
zd$@RvjQlkA>;G4*zn83dII4gDj7Lj5kJ@ZqU$k8)`M?zO{7;AUJXf&I-<P7uR=i_^
z@II%_9ip$N3NM=Ubn5JhM|PeFC^8pJF5ZxoVtJQ$*>h*9Q_Bw;Op-b-#+$>Pado2o
znRm~5yp6wFHr+SUZr}RZr-b2LjxV1<W0H^eDkI~V&ckNU=jL~<dTu8)K}q(``pXM1
z_hqX2@_g@{n%XX?dP*noP?pJsmv{Ha?KR=L^)_{pLVa%7Hs-aD7V>T9vM$?Q{qyu`
z`SofuQ<v@f$79K2&3@Xdu&dMQLF1pCV}(EX=NBoy`11QOQ_&I5$!k=kTJDDZ{nHg(
zt$nWd+KmUdl0ww>@BdrEV3B&~^Rmh37_#+!)oseH#F8YM&n-_DTVBjn!De_({p2jB
z_x{B@W-+}#ZDG$bE#Up;XXf)RvaQ=Fohf{sOZ?{SrAybEGlptD+wyG#Z{Dui4=1oa
zT48-(<hrQAyobxLC;xsFwe{Y1eF5R-pe^>dORKi#>^`I&w(yC9yc3s_^E;E&NY-@b
z%~#9JECc0Fov(|vmv)yD`_}SV>if%WVcVVcL?0=%Fj@atc>S~$L#7&2?X3(x)7s!o
z`!}gDB=ED&xf5|l<VVq`1NWy*VGQ6Y(iAIN(bIR9m3_@bb36SX-rFuX@3n0z34G<U
zsy>EkQ`cUPb0U`ACR{%@={(=E&2>{^qs)~1Uat=AyRy>aSD4<lB=f}X&0c*jv3hYP
zcY|*yNoT0bd^~liG<x#6J7U?r{kLvK6-(%+PL4fg6C0&@=BezTEg=hwJq+Df-0IU|
zN()l4w{}sknQJYcEZzOa)0gpCqJhj*Uvowged%oFYuXjH5}|K%T8|rqvvczPy0T0;
zyQFVQOp{==oxzoFJ)!Py$;n2Q*Z8KeH0R11b$s9qvrIi~{3O+ax&4RYoq5;9!zVvK
zo|MYJuX<(}(-TJ4X!RFm%jSk{c(o?iY)*1m;o_IY=MzL%BpHc6zm_q>I^Vgj(fQ5-
zPmjQ4RetZOFH%gB0zH{`v*bwrUNgaddaF#(%_2oMBPn0QNyS&Zouh7EvRPK@GW*xe
z8D_f<XQwe<{>X7zB44^FcexP5))duxwjxs_v6y7D=HuxHoVY95ST^pN^3*HI!RO1-
z+%pf9dfvTDD-7LG!g%oWorNBI3NPN?Gv&N{aADt%p47q#FZN7p3)-MF&E=l>vQ77=
z9bKs~*TVbZpOq0hOof(HFTGV?!C}nv@Y!vr<KNTrYaX=!W0d1o3tG%xvDNJ1)z&|C
zCt28;qsvap`owJN{2%lGTUq(;-8)h=*w)ui-rw~8%&)i49y-m7KfT{&&4XWO-~FC_
zcXoGu>|a}H>Bsh#6SrLTJ$!l1Qz_;W5qYC)rtfDS>%P?;<vv6HZuDP&<?9V{O^GeM
zuas=8yXVZ1T(>Yd<+6NIPzs}ddo#bqRlyU&^QY!ZcgPpN-la5QQ_G4s+4^1yT)N-O
zcSdw@d+a#i7v^zQ_pn0g2K^s(3`)lu!(#fk734f(I;ve*m%F*Wx?|1tDfh4OOM1rN
zI_IYQ;^UhYy-UBp*!aLI&tJFtgTsR>FFx9*{$pDFt@^#sQdckbQ~JTB!C`(^=4zw`
zZMQt4yF%KBcUjkJ<^2nC*_k*Zwsmf+jTXt?EBX6J{>4WwZGBNHa*rB4-o47|j+5tR
zpY|#BzfaYIx?>zqBxR<*_1SYf_Goc)w}8i|===}aVtH{h|6H=S7i<0MxA5t;*}FEL
z(lJr?WpO;WWH#GJhI2ZPlRo8jt(RZ(OV7G+8IS%NS(VL>M>8DmcUPtPL~?7mb9q1K
zsh9d8ud-$aSISL8%jMUsnZ%YDKa=0PcCO6F+UJ`m>u)sl`uZVf;+=`n%Y$EU{C)T0
zi*Ks~KZyK1_fw!{rH*!%mn8eLOBJVg7TARzjJ0U@op;sptu?FQ@f9Zy?MSfQlAAhr
z?-@ytJ*uld_Srp}Dv@5a$d>JXr)d4s6JpP+4lBpkTHe}h`|s3Kn>m^_tjWsLfBigd
zp%GKF==pOVt+|R{Y$UI={P>i)a}q~a=3o0rt9dFf)i*>jyGQ>KyqL}RgDtK(`SPv<
zzaw@2vUl>ugq**8xh+aVozG>iX-N8P)n(hX6j}p40^5|^E0<l%>j@HF#`eCfagRvb
z55>6WEWy!kmoFCmyT}zBt&w~F%H+xCQ?j&!{rU=xwn+txyPU1okPr^%Y2lXr@=<--
z$KxdjmwnlM@6I00j(eSrZK_vgUGLj}xy*D?_>#g;j$_|HY>w)8*&q96hRiW_A;xX&
zPbbebT&i*<?BL#X(PcZ>Uk7eEVXMtMd7a1l1u6nRw4R?enS8Ik`66Rq_8ArSP0n!}
zj9;7Fmc7PcdF9z%+g_HPw|1%oNdA=Jef7Y7)tsjXi|QtaAN-a0HRREOxrefrRL@mP
z66Dw6JAd$2y0CRSr+=BtvP%~iCA;d!a@<(6W+9vQ;x7%$)+|(y4)gU`lhn&HcgCk+
z-PIMw`XP&JSu}4<o)&66X?;fhw~JhYS;rbHG^~I6C>^Oe7+@7I^I%TX&s_z2%paG0
z-Dz>1gE6P+e{;dVo<5ayt8G)tx14!0$z-pVbk(j$-7HRicbP7Ti{6)zh`7p8lH9O+
z@!M6Y#@(SRjE=l7c!M`DG~O4`(fKGo>9dln*u%oWqs|TjOS$FdY&pacu(z`5($ep#
zsRwu6o3L7QZf1a$RE6{r{^KWums%@s-M3jpLp0%U0E50CFJsA#T`#Yn^AL#NT@ke=
zVZyfp$78$FKDO`{cL?5$*vA%>_%XzB_MXLJUqyt~CC*z_?W$68vv|vOV6MN`tdF6U
zv1R=_Lf1UMwoEm9)VExI?W*O>?=-A`<a|7`L9k@g!rG~iUOF%D{Ik>IdgJaDC7oT#
zbA-bS_w9dZ?32`75hP%@vC>`l5hqvpHJyilc)o_jrhMaeh~LtAOu_ROQ-A4KmJfZ~
zRxg`3A<8{qi`FISON+||444E0)FL)B{F;7W^hI^V45R&THy=*^dnoG&M_vNA-8Hs5
zy(%}nzV3)uI`MhQ=X>HZDOFLQ?=r>R;CaXUU%F+*Q=6&VHy?WY<G{;3ZCnrgE<~Ks
zswoV4IM42#*dC_c7x*=_C(aLD#J)p0{X=B^znDdCn*VAKr!gA~y%DLNeRxshFV3{<
zg?3-oA7sezUeLDUbK5j?89%Y+2~R9@U%cG2V(!b3^Af@$wg(v$WLQ7_I4lvub<R4K
zVL`E3)H(YoV+Id7#)InCKW{Led9AeXajDswc`w9{3kk{v@l@W6=xJh73Cfq~Zj@}^
z&h49Qc!T4x*Y)F<7HoQQ{G!<BpX**}{J-@7(BYLHiCR6`AF^_<uI?7OEMTPk`v1iE
zT<szi_bH-G8$S!C$yN6(KXIZu%3mzIMSSyyH3{-dYG=f5UDLR;VtKUKYxeq?f3!dI
z{$hG4JT>&{%*gM7+|p~rzm|l%y1C7<cz)!irI}OQ(GRarpDo{>o+E7j{`|RAf!V9y
z&a+P_zPac2)%j+-_vhE|+_PiXpXX-(7McH!{>S3TQu{Ib$A<d)>VKc#zP|rq`*F?L
zck_4u{Wj~r({}Us`rq>(PtMw0f4Z>d!1et(`QL8umN=c8cmK%o!_R&tZSOw+pry9P
z&_tiDw|{&2^!nX<DsQ!||9o&G-}#t#w<>PWzW&GbmqmfLOWoeTch7!%vt0cCqM|DT
z9tYZ1@`iV$bX32Ib+og4Ar>$H$p6Yl{zhh(U)O#Fy<{ruWvJp8<2!t^)mybPIML&$
zZU5V#_7b*?4z}k;FRxwE5k6&FP_Xx?&4xyQW5>H|x&!K~=Ek}`)OB6C{%636Hw!DS
zZ`SIb!Ye25Rax}4<)f-^<;P!bOIF{_QR>m-D%;Q<y!El6(FTUSw><UEo<4hd{dtvt
zt5kwIIC9sqCKf#MNDXnjT9&2CGWF;Ie&!E~rXe#}POjM}RDX&&DAhRlk8M=be*66v
z7rV4F58jkuIk=alG}-cyp_?P$`)%s^e)IOu@KZaM;C(n)Q6s8h=jy}R40c`p&-_+w
z`0y&~v02;SgR3q-$m{v2XrC*$X3o-S*RHKF%{~75vO$|r7sqC{RG9!JkL7JrWlk=g
z0-OpgHrld#V%ECY&%3$d=C-Dy!mY_+$9Zm?{k{8i?ddCuZpZd+%~t$Y)0d-ab$Val
z-Yw6~u9n6f*w)qQ_PKk4toEaIH+*7V_}}>)(;i%1%V>HkzSwK~(n_;(#v8hd8xOAC
z$B;eGsOlx_yj1aq8;)#`{q@a5MIxKsG_Rd^yPT?fcI%sKQMYflcK?0));C8z<ISV5
z-}v9kcTUQ$uMM}~-W@e>XTxnZhqt17@1!zjoSl8UJn)vOcHMK=I=!QR=G>iefR({`
z^;Y?a9R<#N?rdP%@Iu+xCTm6Gh96pK9<mQ?KJwMHHojaHvf-Z2;x@gui=sK751xyC
zzNmNWv6(TOXRk1raO`039APGly=UT22;5!85-wrJbEo2}jOH?h^WP>fWSeCk=92ew
zRm?e?>7wh-WQ9Nfyq+iMN2|l~KP)GXE!lig)UHDC+4f6T$#a%FeDU0H^YMe7s&_=M
z|NOam+w6v^CGB}tGAdtA<sFkSx#XvEXiJ-0<m0xti$m;G&xmCOwP+mkExMtxp^;A|
z{n+H!Nis#<SxTFxq)eQ2bic{ce%H;9Ew#J$ue&}sIHQ_(;-SJBrwubCXS95N(wUyx
zYklq3o$qC87xjGq&nTTK6~kRNfz5ovCH*h%mlj^@Xb3xWfOYPgm3PwhE4x11{hnIe
zXLx0zlq_4<=d*LNo7)BAKB)S#vfmMDf9AVGse5nZTbHPL{;WDF23bNZ54KKdOfXAk
zHFpZLS4iH%rE#_L*mqy&h3lrSu76|V^lGZq#Um#oQtw$rS1`8bhDyntjM;y|LYm($
z)qKgpNpDMw<|XYu_-@Jh;8Ty&+?M_*E$VPl{~(=wB3UrB>Hg9WSKoZyy3ta?<D9>F
zSl=mYd-iz#z4KbuJ8isnAY7Y!-cj$@#%_z$Is|`YH5})jeQ0`31p9rpwiwp<JvTo%
zaNTEp-EnZ1#+F)!n)Xz8F^x+Hw;P-i=YG;%&mZ74<t9VHrfV(j)%_C9PGQg7y>pK5
zd~`0^=V41LXRq_59M>DWYEH4Q+&J^1h&#9Gy638&P9IvteuLZYyq(2iLB6VUaeUni
z9VP`SNvj6>3-#$PGCQU7wJ4T{*{Q^CWqR1@V>el!8hxAjng59>%W-8Jw^OW}FW3pJ
zx6W9n!vENB%5L_9aW~4Yzl%w#eCs(q;`oH0d&Mv6pVXXRu^`^oI>>vC;=x*3S&N)!
zGOxqg=cEaQGpHX+_#4$U=gTJ67Q1QM3HRs8y*o5Vy#Cj&8eZ-=>k{+S%PwJ!n)_ep
zipE@MZkQV-nYw_Z#C5~H4NL#rdu&vzvt6V2$g_$Eyx)X7lxnZ@-LuO~wNBy)WZ1Q4
z@8*ST?}ywxU3)g^`i%8eH+6bV_4R*;^v~YC(8f=CmEaMUIZKT5m{JcMZkU}C&t$pg
z{kmtfk1e|<EjD>ecD$%^Z{Afs>j>LzJ!^0LRomj!YwWh~?#3<cY?meriQRg3#w+5!
z^aQ=IOXsH>tbUq#&gIQ%jTh&W7D+4?YjO3tqO?eoeO1#&!-vNuMWhRsGygWRQ;1fn
zVhVZO8<*QtQ+jOw{Okgb1^n|9T{=|0|9kr_Z}xNvy%xjn5007k;XyYp)_Go3yQ=zO
zVF+JV{lZQBK|i*<UBe*|)p)mCCeQm-Na&jrNzx_pLF^ry`4}uFPHy0uQ?Iwe$;5P?
z`SuOv9v2m+e2sW_f~RQZ#)W(D?{_z?`14Fc`p}_M!5?2F2kyM|^X%39OF^$2Gw+>U
zC6E|>Q1`^GQ<_gNuPr-d=9#bcyf$#>?@No1h!zQ&v`IcRUbpN*jL^OvxArK9%*cI{
zS2AUF?J2_<Wow^xG;ZPb+v<AlYb^WZtwy)5>D&wo-I{gs`@R+Fi~4TAS=x9+CMvIW
z<@0kBOxZtqGgZATt#Z5)#2I-!(~jwLhBCjbghNIqpSg^MNkYvWuAd9bKl}2m;(D53
zFS-BE<u$vXuMza|ULgF|A?)y!%!IHH`+4TIExp`+ZCXu+_(}mS-gHm4JFPe4&(;|>
zJmlCV)ObbW_sXA=VqKZ@oj<Cks9gFt>!N68l0-bG5$lURs?+@sUTB!UxwzwG+2Iqj
z#NJ2$*6Lkl)Bnu*v^aBu&E-$3cV=I|a8A3UaEATk&r)*nj!}=l?q9CZWpHi}--K@l
z?rypv0?X39_pP{dQRIn6xbcSY4ZnY071QWw{bW!o|2V6bbzx6JyG3yLHnsgGZwom&
z<(MAE%*%~;vRd%XG-YK=M$&f1>%J0)C)|1-%C%^zlg+*biH}zwn$nb!naKPqP3GJj
zae-c6ezxT=65}1Y7$<tVh{#!RoZGrCR&-tL$I?Y5F?aTyyRcA8hh<W)t*7lKR?oJy
zRrdGKJg~fRiYsTDO4jA)kCvRObP%><$>Cd}JmG4_xx?EV679eIcbOG*<=ujuqf94{
zad@o%<X2O9JGUjS%D8uV_6im8+3qv0>?(>nd9!<>%-$Kf^-=yaFIDF3+aM5mYw?uM
zi!H^auG`{Uj8Y9A2<Yro`Ov%h)xver8>ShmGCDbW*uLDwdV-&8n*6Q<rNSMSA|HHe
z?o7UR{9uTZu8UI`OI~j6oK>;kndGmtEU<DuJK5yv<1cIagSj3lRQ7vW|Ef5ru!6yS
zW!Ezu0}hAX8x|h$pa1ko;F|Ld+vgSi6mH(yWEeJK;WJwmry5boEWN7S^ZPg?<(i*w
zohGs5Ye|Rb#!ojg`--;O$(DsnFLeG<`DSmB?h@y>rLM<BS6x|t*x*!K(#B?<9}R2L
zUIdg*kX`7^+$MZ$hHFViLiFA>yEk_6C9c(a?6;Ry*zuN>UXIVn<@(89U*4SIpIXaz
zJjIqrq2P_<WTw<;vxQH5S~b6BaxQzYWA;ls*19_vR`Lt*$Up9^(YPV_`<kG>hhT$I
z%kj%1zxAey{g(Go;Jjkv8)!CZi<YtHx=A@km(IL<?|p+q@qc#Qc?DyCOD(Yq+it@G
zJ^i15??i@$`W;;O^_5lev~I4s^R9~Tf2y-9NWqOGtWiVN?E0Fb#eZ&9ZvP?_-x4=f
z<i(2f>~8`C*R{m{HaAZ@)~?0e^0DTJ*Q8~h(yKo7w6}Y2j(p%`8hUWz*;8Lrt~CBP
z{HHX#Vc#dQ-p>7dZ%O=pwZ?Gm{&^Q(K7HBgSmL@h`{IUO*VTnYlnngdnup&t=lY+$
z;aBMIOAou{{qy<at1<+yPRy~bduty4)tpi4kiL{_<&qyqXW##R&)UVSxNG9C`zZ_e
zr9YMp@W_3=$V~oqaA0&h{}b00*}s<W|My|~`+3Jdt&FfcaC58Cx1!B==g&1>^5og0
zRaU=W9^Kw<rTy!CgD&fWr2$hJ<t84ScdpM);j3HKF)7D&iSyPyRG8N}Z)qEM$a+Pk
zOTK3kIL{smVK-&_>T_1-p`U?)F=HFY1%-qovlt#<K5^gzhs0uq&kdooX3jLcF+E_J
zph4g)>Di3GmE8_--4}`4-{5;;Yr`@ohJZ(Qtk{;jftLIjC_q+{K-as0PG~bw2vRUK
zfGm77GypB_0`VbB-wX{PYu^kFpo`xOK`YmS6buc)Ytj@94UIr6+>jT;8G;to1?huV
zrUfKYeKDLNc$E!eF&xAP5Kn>a1p5qnIHZ}So~5~wfuX5_nWc%IxuL0nk-37Ag@K-l
zsimc*p@O-Ash*L6v4NQhF-wo|E`S1sA9hz58d>U@niyGHS}GtG<$=ybv^0k-i6doI
z9$q(q;tsnTjEoKSj19~U49pcw%|U)PGcYw(FfuXJGdBj^`>SATVX9|lOw<Z2yiNcm
z8|+RnF|pLMFfcSQGF3ocjAmw_XJl+_U~ELq)o7qZi^COWMtT+|h6ctaD6TL!)-y6U
z0*jKkCe9Mq+CWH_!R`uULkm3<6B7kfLsLCtOH%_Q1!E%%Jqys~+=dFKMy7fepcQjw
zlqO1WX2szGV?#X?3uDl6p-7G}F@)t8QXPRi7{Db34o8@n=$V>Z8W<u6gsG{XfgyNd
zAc<};#=S5QTuNbggQ>Bxo|%cIrJ1pUiK(fc8E7G*k%Fm-iJpOlk%6(Hf(hs*b8{mD
zBST`MBgF*gahZnTq6^{*vX>_kJgXAvPHY;kNdy=25U;@2BwCsfUX%DX@6It%R;Dei
zUj&YRyPvag>GSFnPv$3kdvGst+~g5>!_6^pv1qQ|$_X(itG3&D&tK>-@a2x=q}?$m
zr#*^jC_f>2Zg27XozLf07XF(Yk+W;^^w*Qc(~A_vUauBDD4e@9y5LW5vbM19rJRRT
zyj0FVN!n{$`7t+L+;#hd&Hz8DUsDh5_>f()?M2tG7X53if6L21wf!w#>7o>IGhRR3
ztNX~tf443NB)+J>`Ly=tm5-4do@L48&i-3{{FK2X&tvO8|N1mVu4K|CYx(b6)||*}
zZJ7OL+ZXSNs<ZAMO*N9J+5YeLNiUT--n$R1zi>+D+WH6geJ_7q{r+!I(T$z2XYX3F
zHfEXd(XM5=wT^uyU%U>j-*>a(&Gk#08|=#;CKOg$%s3sA6cPR;^d8&l*ZU8h+CQzS
zc*myS6OvulJzu@*kHf!W-uUYKdDc|{H;nm}xwFmpy)A$1YPVy-j!wl#Z84mMM=osK
zudizPAYbb~+ka92joFvurqmWRwL7m4IpVC`ae8VQ)4X4AeXriREUa#y;r~|SS@fLE
zJ7v^Qtl7r*e)hT>p&wS<yC7}!SbP81()$;q&farr?)2DsibE_@%e0R7LK2gWz^jne
zA`Z>QKA)cc`g`*E1Cu4XI_fEDO&`9t?R`DHLgB`dFJ6tcYc0>{_iNAYwo~VMsk8J)
z+eEgUKgVa!=(|=PdtmlCoqO@7y1cS!PA)vlUCl-Atjj-M+V^z&c5lxa=UyK=?t584
zOL&tllfJ`)MQc8PvpdGau=9P@e%}`pdFsOZAL`E9m7l0;m(C#5%VXEM^WgQa+|TP)
zKPZ}0^d@!o^}DY^BWo-SBA&z++)bLkeNBGtz2DwdiW?<e4>RPRKRKP5JLT8SmrgU&
z{Ej{KxODqzrpZ*<W1H4g@6Vjx)MdVY*8{O<pXa$LE;2Wl6Kzp%XXZb7xNB4QNwyCy
zrS4m60`yieI_oePEeNjL<Jhw7dK<^$ysD~86}uLA1@(C>*8P32J++KuvJszz_Nrxz
zKWI8LvO8>B{yU)DW73wCz748tEsk8vh=`Kq^HXNNr#MaM!G>*%%{A>5pIkW3{A!6R
z!>>gSg<DetzkNUWsN2{!z%1#&*$LwQnKN(5q@+!eDh^=d7VF44xFfZ@*u}1eSuOOl
zg3yDWi4itoy%+m5%vcg!)%n+dn<(40-1||`!E;hxYtl}*@m>i1ZsIsq{1w;i&1vNh
zeMk9BqJ<yLU1)TBt3v91*S4U>r&}K`xV1{^zG-QxeCMg2^s1Ia4{oe`_1HY}$b`qt
zeDaA$|E*i7=Ja-z*7npT7DqQ<h;MTC+Tn4)V@=|AZ^y(>Ay>7IEYdQ+UYimx?K!PY
za(8dGMXvAGXr=F$pI=-iUB$L&M|rN7*8_HucNc6;PkFKm1gQrtkQI-e$E@O;^6c25
zyFv~D-jhy=)gKPX5SUqf^U#tLo4j>RE3aLAbX=v;z+}P}o5SU18BEvQKHTK2In<N(
zUt;+ghDeE0<<H&9Cl(!e%W*T<>WSUlhkM%ptTxh`m;8@cFzattgZZYs)*0@fioyfb
zQqxu>2j5**#<SX|Q|j9jt&5+o_QV|4He~c(=5o{Dc!fh~#`Aq0PB(W)vV@;tSr+!8
zXL)AChxa=YJbrblXL<dKPwRA4zUtg^vp(b5*IzCR43<vhX5RNWN<ZL$R6oaF#;dwf
z^+lqki+*nL6M3NXxMY`s*twTySORX$jBbCKTF;f>5;te^q)&^3B-K7CD>Q1mZTXWg
z#wH^ql*zZm_K%AE{$E+oSeO!WtkTaU9(LDKX3aAa(AhL8MaW@M@X1OS`EEC^jHPTB
z9Woj9Gk?6>?|#vu;D5Wt)ZXBgDuq)l)-7&hEE7=Wko<P|=b2y5^Os&|5M-I;c==Gi
z#(9ONV;(d1P7OK#c)5M8n&+>egSyEfNpB05<)^Xc2))s0)4gw$d{57L+DeDDoD;6z
zS!Gbm&iOVyO!dTZUfJxHgZpL%TC{6!cxAKnTITj2F2Zvf7|wd@I<1=c-%y3^#h-0=
zp1ohG?>SR&at+U2qrT3AOBek<v4%T3OK-XRS&660JLfGgDN^yhY7tsysI@?gd)AEa
z_Z~>Ru;EU*ej${7iHJ<+HMR*iSXQ~%W%&rqPuYBJzF>9Usii7bvv2XGtGHegN#A+k
z@ZUR!xWakZqm&jY?z1;A+1OcfQ*pM>{X?u*Zfe}vX(YJ!xqkn?<FT1H6r8?XpE!Af
zYL0JFRFfd1j^j`NkhIIsgMw}_9hFwue{rKf>w@-ct8~t}&AYw$(dHlQ!Dh1OYW|6M
zXS{Ia>t0|RFz4jF(?Sy>4r%@3Yx4i_<8F8|3xnaQNAI~DZ!p_Fid0lstTOpb%H$XQ
z8jl*!p8w!-gQ<M+&a-cW4NDXv{zP9`t7Urao$cM^SAol}s@(6J^yigkw#EEQUgy>}
z-k*O)@&=15BiHPkzrQ+m3mTvODjB|n#oJrCFQ)R-gCNH^;oE<fHGA`Js!8zm_-XR@
z@dLLA7Ae8)*KXEEnaU`-ZeKrReR_$@7eiC264u`vv^^Zx^%$9Fy*|*=HQV#Xqei`8
z$J)oHTjFb`o=vUTamP+=<4)CW{6fDwb{yO$S>AnqRmu*J9M+h}QmIb@p3V<B8I<%O
zNW}c^>m^41E1%fg#H%j9Gjrly{zWFS<_mq@|8nO<s6N+KyXV@wWOneLK2O_iF3Or!
z?MAb&Ej?~@+hdpCLovyvCTjzC#Fp+oum8Bt?4FY9)66|Nt*h^a?$cdul)sqa`kO!Q
zQXgNg`}TE$v~gU*6sMkf0=sYK2kf5U`eOEl;DC~w(>r6`rJ02f)Fw@>i+MB4lS?Ke
z_R87mS$Fj(?Gom<)hyLyWty|T@$(e^?Yq)V3<EN|E<CjEP}$}B&u*o4+3lCX?a?nk
zyqpuJQx&ZCeaj=IwR<dtADeP&&pGmx-+|rR?Zf{+u|oNkO|}2~<>S}Z*Zs}%Wnj_Y
zbUi(N{r*_~AJS{qlq4C+xy%wSQdl`(sdK@Go2$N;y1On}yZH5!t@*bmWjR^1mIy~)
z>`9(&7XQd<)~4u7{WG4G%y;FS>M9?;IAvY2RP-l3BMGgO8=~z)iVyAF@;PZ=hF-Jf
z5{BygQ~#QV%4+VK6Q?yLGd%Crr}M6H-@mjq^M20V-0h$C;i5+6ljM8NYM;86DSTcq
zY4z%>`?_l1-cCJc_T6xX<nEkffp@={sASe&4GCoyQ#<c8b#rgNUTwJ863^fd83uk_
zB~zZ<IJBXA&yNk64<Dz-v}IHT-MjxrR>RRZ>Yz*9m*plR{hRI7mPssp>~DDKVaW8S
zqC3@Zis~tg2=-pc>|$1OShyjli+N4rE8#+p-`>fG|A~e<+Z}wnm|?<$>WpA1lig<Z
z@4M|1+C}y=dT!v#iMlrX$3ngqtzN$9EfIUZKiZbF>Vdjgfnbu>g$J=cD^GCDY&>WF
z#bv^${cjlbvcxz<4;rtpNhq7x`0w^6y;HMKsVCak?Af<0x~1WYfKK0vhczptZynyS
z`~T#)+}*iP(j;;(#w~fj;ltA%9jtQgDqV3o+Z?w$m_;b;(|GXasE3?&^NR;wpLX3`
z{^D8XrySS){W5*+oA~@*OMA~!{Q23wru}KM4zI9c3IFdOC+6&rUAumJMsnwk%H)Il
zvhzJOH5A`B>CT+|WV?&(d%1F<m-h;fmhL{f`)tX*WyYs$lVTLh+^TFp^LcWxU0l&Q
zVb$@*^3|136jrV(pMM~l`<`gY%GL5=(rp}p2{%q#@Rs$@Op5K$3}s(05`WQohS#^A
z<K`mi{n9I5^&KzS|KyR!rNo@dm+p*RMa$|V)=ry$e(mZ<Q+8x+omW=4EW>JcqF#)c
zXP45Bs=I4$-k4((9lNxaabgo2_y4_%CbXxroX$-<EiNJOp1pISiwWz6OMQDBm^rf#
z{BJn-!>%Mu;?J|w|K2w5=KjS#*PK6o^Uu()!Jqb=cyYKr&+HB-$FzqDx0aQ>$l4Z_
zwzm0B)=uXB7r&N8Z#yyln@q=VUm1<JmVZD0R;_lZX8O4+^4_=e9ZOz>e!IS3qg71e
z^4S)Drn;)jd6)C#c7L4wENu1F<A1U@%ZiGsFZHlnBQ)c?!;W6zrA&$2Wmt+Py3O3}
zdt{13qja^^io_L4UekC4KQCMrzT^0_N9*stNuE9FsgU}@cF{b`m%o*k?LKiObxM6x
zOW?6&*5s5e0VX#d)fL}AV<`M_^_q9HN`)`}6i>U!rL{A&=9Gwfpybr@Lk!DAZ|?Q8
z+*Kjvd2d6kxD!KL?ggWIn}w++9N`!5ToK5+WhHBR^0t%ho6AO0Dm`u2BHC}=)_A?{
z(G6zDvln_Aw|k!L=vOpNPH^q;f9?9peAVq;?pbNtwfiI2i)GH0UiSY`(EJ^nWbFU_
zDEnYE@%N9jslSDJgC^Ua)&0QH%g|{f5dVHrN#LL9neOug#Hwb^-Fh}Jt9pOjrunW8
zIjeu?-m-NGdAzCQ;+EHGTO~Yy`EK8#tdi|MW6oN!%Xv4I=dE+@lITyV*F3(rP3!o<
zF8f;fn=aw}y0_2UP1@0re<`Of?m*!yPorB`T{;3~<QK&8X!h>uPjURU<xC5s2}_pl
zvlA0_-<z|P&ULu!QKsc+yU+T=vWairM{a&;zkA8ECFgd`j=Q05_2_n{i2UKx&MR|o
zHIz2`2{eDZc*V!i-D~s1gmYqN_uSUGlx@ei@REp_XG*5lioov7dz*Leo?UJ{>B*Ci
zInSm|=`C^P(k|luwa8A8Csxxe@>QPi<mrt94pJ96?N4dhg)RK`)h6s+xDwmR&W?*8
zS?ui|e%|?bs(tZRhqGl98=`r23peuHbh14;V`Fc0+1ie+Yvzr-***{Zd3Hy9Jg8E?
z*JaODt$YE~)jWl(^NcV2-g8&YEnM)y)TA>HX8M-*8hrau%H<MhuqK+z@Y{OHugnfB
zv(h$~-CMU=D8Q^c{-}w`%cZ-QMK71?k^lC~^yj3UcXwQzW`6JZk=vM?F*Pdf@{vgW
z*u+@=Z7;8$+jT3-ep$tgl?NN8!rS+xZ+slguubaZx@Mc^^4V9;T^DTFUt4;~H|kZ~
zTV64y)|mHB`==~a(EgBeOk_==mde@}`4dIE<4QJ}X)c*8m?^=uBDS?uf@kKmzuR~?
z_MN%*Z|2U6$C^?~B#*DYd?$sm_t30DnTfL#{4QqOR{a#%<i^o-`M0n2{%7e|7l(Hg
z?R&^BUbs9uetEp^?KhYGCSMh<Sf=xM-|bwn_odTv^dH|m87&&^(B)rtVr|!%ed@*%
zuH24wX^m&jNqxPu?xF&FuT6sDlG#)3^!^<7yPa*i;;u8J!tr|#_oXu2pR4ERyZ1q;
z<bio7KVO^2!T4x%+wa@*hc?O_n7wn#o<NTOdQ1$LJqnc=oZ}bF)n=|JwPI%rQ00_=
z%&<<&N&ocZFH0}g^$We3neWcloN*xhZq2;uYj2<ZyXSguh@#t@j=w7=^)C19n!h7+
zb4;UixZnxih5vT#W{hN>o`0)!)1Du-TTB{vDhl=}&VIf2P?b;M#Ro6)B}>k|5?1(T
zwfdUvTY*<L(W(pr59eIA=8|>N$=cJ-W*mKl;UWLJntL;(ybl*_kGs3}+MWpG=lMt2
zxooExF>};UslIeHyu?Rh`>CjtlQx-^zg_b?ZJHO0y5ba_^#!}zTqcLG-`#d{`QnoW
z7naSvAG5{VK*xI3F4e~m1AQ$1Wfv3}3BO>C&y^4RsL6Eube}=L)6TuFjyCJ2v3Cod
z&^fQ`ReIGrn*Y9o`|G`jUUjx!+`4!3)d?5>wt0P7@BATZAD`@_NA(g7|GvIxcN3|p
zDgKg|rzq-|%QsJG)xY^>*W*QhhJF<et-W&f{jM9PR$8AU4u1K)taZVnh%Y~y%5E&2
z$KVofDL9)sqIFquV}fU6{NkHRZ|1dWDTMTLC(m{F+Ts%sYNgGgGgZUTN>%)*dA{JJ
z6N`^uwg@lG6H+_4xJ|(8>8;$2Ja;$k|Ju7O>t62PIbAyX8@za?{`kvTo5-`Kx!9xY
z0E^MQbhV?0d?ds-tee;IAScHB?-pY@x9iJSF~zI7%6?-jXgS!^zOhTkj&H&By5>tv
zjaSc~X=yc@G%4t{r$Y5s^;I#_?@xXHzv)K3H;3qkl^^40r*X53?9uh#x$2&}!&S~F
zN!Az34CXL7$lrSQ*j1=h>eZTc&+aa|z0bb><og*jZ4zs)9NN6_soZW!J+5b+UN=I{
z?z&xaI@(TY-lH#9ikp|Q&O5#EiaM+PWQLU$X-!SLT5BY{w<o_$NGR<sT`_f=RqEqk
z``meiJw4r-q=XJvGqs&MVslaCRsffCaDrRydQFWFPU|&GmTcGLHwqC~RW2$`a>-3q
zvy@#qxo3rs$!=TatOpZLYVP?Xyy)bEWggKIKir$RG{vU{%yIt}Ybf0`^UeI4n=|b+
zpMHFJ*-_YnvC!`8zZ0=CvuzKq`@(pb`^I#op4@W<zfL@rnN@2tuk_%Q=k?W6H3q(X
zx3=5VA1W1JvA1C1nr}~c28)U^a538646?ZODsgvI*_1l5%Il(5OcPdRHphK3x88E$
z@!SGU^DBuv7tdJ}YA1ZlbrI7$oz>>N7iubR&sR0rTX;J;hilqrqyEVs;}0*p;l{|W
zmwu%4^E;XQ9#Xbm52~C*G!!qb-X1%tTY{_gW9DS%ka^w9e{6dF)!@CuV(t!^ZpXA4
z`CM=AUe3AYn8v8WljgIzHe&1b`v3p7L~ry+UJ+PvX8*@h7sn7eKHiPt@xRVZP6|kE
z+hG53>*T|ttLx`Ds6M!GgoC-H@#fJNJ07z*ykBa=Wx%(}s^Nd(1&)ZLcW2Mt@m<Q4
zeX{1CnT)~~tM61?$;q=7t}!uR^=+kC5xepnp-QpGx2{juw{WSs%b>t~i+}sX56J-w
z7>|9<xw~&i<;Pb=F3Z^2Hhwe6XPX?ldO}W$O^ktD?Bc-1x9${9GyQii!z`rZe7)U8
zYd2^9tmMa?mrhQ3GdK3UUO}Mzof*x2Pp@SJIP>c175(0=zH)Ww#M}R$urM8W&i%ii
zWtr`jV&NI<4|hBLPT-on(c<duWo<%N<vh4$1EcRf+4%oYLxNh0@R!+hn|``0nxFmt
zea;4hJMobrZniuB*L@V5e(KXL_O#;+%}mGS^;dHqaFd<yy<<Y>#&40)(TzM@*{9Yn
zXW#zKv`uhv+K29C4G&+xW=>>35ifpID8tX8E73nV>9F8L<rl$w^ctV$FE<fwIBM%U
zqq$sBTuZIA=EQvOS4RUlZioM^P5t}(v&Y7i`0gWd89@`hd#>xO_Y_|zK9x1{MQ2la
zm0j*C1&w3>D&^;%SGz1AD{kMKweb;i9ru^`*Jf)sUTxRd=#|@LFxTDccuc9+!l18g
zT0BAi7jD^Ko|-X1H!Un#_KTIt%fe+%zqTH%vki7^y0-O*CfkC`)|aw&S)aW&)A=&b
zBdP3CpUrGe5gv}Yw(FX{xfB-mKld@7{%`vCtkV-;n=NX1YqP+W<@3#C7v4#sH9!4>
z_I;9kao(??^U5|h3EK<CZ4+Zt9M6SqVO#5PLi5wN+)2gqdlql}x_I90+LK8iuT--1
zPgHK7Zu8q!^$S~0qH>*1-l^A5CrY2TlC7MxLv{JXglEjB6Cb2bQu0~t+Tr+IZ%w~y
zWrA-^MdjAj$(}PfUhtSY{3@RttloM*abBU|CfV5&{Qs?Iv{%p2-Xfr^^?&ick|~d8
zi5%Ed{cz98u4ys$Z`SvAy=I&9mPNwkh@d^gGXG^|ljlw_O_?a<QJcl_^li9v^Xd{e
z`)7X)radY-Kl{0R+*i3@w~Xz3qPdU#JooctYGa}~uYmGTt&iKJ*)ujVwezo%oSiQ<
zIrS*dleW67J-QR6_eC0SP0yKnbMw}DC$;sDU*b3@roDOMpM!i!%CWUq`rkHg`u;c8
zKSk4FRdVfuubta-0(8xV{~OL^m|^!Rtb0|FL0Xc}lC)Z>$(E)Y1i7t!76~fLeB#^w
zIje!Mx<m8eM(qQYCmSXnX7>$QZ_6Jd!+th!UEH65(#)<0g?=|%5{%beOSPN*sQU`X
z20qQn(<JSJj+|WLrsQ)cb4~iX$%|UU%g-)5zH{osxjklAPbo=wy?kP3b;Kj6IdD$&
z;d3g*GxwfqQQFzt)DpWz{cg4YnnDGo`1_a3x0YVr5E4>xJ)+_|LkQEhin*KL*8Fti
zQMn~te*7@6&vVtfV;oDRWN$Bhe<UVuZ&m3IOPTd-?>#R(edDR9o>u<-baf@i=e^C{
zd+qLAle4(_xzKOEshY*l{f+?%OI{lmInLczb8laJz53^xzk2eA)R^b3>e{_uCNFNe
zQ%b@@UB8kL<C}lZ-3*GKoAdqd?AMQ9=dAsz_w(Z`8NXj;TF+gB`&JxWIqS9zdsE2g
zck@)QGYL;tV%g*}UH!X~tBR#C*Xo$CP3h;uBXw@<b-G}9L2)(PyWd;gbfXp>|F?e1
z!h@f}67R0+`)Xujx8lWYr+r!6niX|hg&sRZY<ufb?#z&I{^C4oCh5ic>-6V!e07O4
zW|`emSo7QEaQ2NyCw;%VB$wr%n*OO-e*f9F{DZ;I%fGZH&XAf=J$>o5uJ7lfD!C8K
ztbNJabge=#B=+sMl?$_kSR=0JWbRITa<A(D*SC(>&OLa3_22yWna?Wz7ymvyxiaYN
zKiT8#UQ=e=&HCSe_1_HlZTHkS%ldfU-y9cs>)^`>3;AbCXR42$+5R|Gm!q#uxKHdz
z!imK<`{cF%X3S{nU`t4JoY;5w0q3HiuNUTQ>hG)4@1DQGf05k-;V+YNX4Z<iB}OE_
z)^T~G;koSCp>E5!CR&HqtxRJ}YhdHwv)zdA>Z8rs-nxE9^ELS29WHa_z0tL|Fz5Hf
z&wq|;)ol21?^$$R%#RZn1(qlA&JT9w{$RM_l2u_T=YsRh4LmhF`&8?K<Zd<1-^0?k
znbV%lWL@ue-sxu_A7@^A@0Q)49~wHBy5(0Mo%mh)<KqNh-yZ1~%bD#R7dc-#k@_cR
z%PzMzn~n#eZ#MJE2W4z`x#amnVdleV^GEFG;-7u6s}t*+bA7|UeK$n{LMJh|zwi38
zGIVOX>5HhM6Zg-p(I|^s*(CbVUC{Ym_)+fArKUGZAND5fd-&Ll+c?oom-YA3Lq1Fi
z&p2b}-4Xr!A&Hsw-8AnV{yJw9JP#`WI=D5<cimg26*H1}r{}NoJJ3>Pr@F-dsz->P
zhk1VGV!zrStK^n!ay`q?WODqCv2d1Za@4a6XO6vkYq%-yU2^5M{<obIgwMX|oHNr_
zaMPn^|04|gLW#;^uhp9l8n1Qye<R0#OH#0;7?<9XLaXh?6A~qqyUSn2@`r8|o~<y&
zlFz6pqTOJH>k7$iU*k{_?mDH^OIC;7`FK_)D7v)-F2A$$MyKz=a|X6w=N+HfIx$mo
z(rPiWQ(+t%_2cKRz2A9Wty-Ab%;y#t-{zH*wf6okZ8mzn;c9SU5yPfA-%pz!*1A!a
zY%YDxFj{lJ`7M(^QU1NlpRnhqyqs3B|I4XXzoQb@4%lWWF5j_6V$({upalE8uIrOd
zXMT^lz`Wu2gYZ+f>CIAK4lF)v@$a5SZup;Uz4I!{ubX*e|2a!<U=e5wR<y3%`oO+P
z@6YQPCl`<2uXFD%e*1(sJ>&QHwA{C%pF%`t+>EJCm-xCNS4?oT)hm|l-S>aHuvH}q
zXPpu*wWw)S>*Nbn-{pQgt95&CV_C76+tGiU_vD`7C^qYzvr+KSTf?8XUTu4(YbkO@
z#XC-KpBfk2FID5-X$;@iJldi$<A8YgqK1f$KB>tZ&2zfF7b#dOWL2)dQ{pDd6R`To
z2T|_ni!KNo)=K;_ib`JlF+DKiLCwnqe?Ja3o+EEVN*fGr*-BrJxiLdHVWY*2SziyE
zT|1xs;=<WqOH!q^BJY1TyEa|bVB(#lzfvAl`|!+NGyk-(+U-NXINB{-l{)>d)tkjL
zDw;(+61`TxAo73i8ePj6wMRj`7y4E_O-y3CnD6p?v-+m4>HJ5cj?LdT$&T6f+A;m7
zHPdFi-t+oNjoO!kQrD0E^eOY#3=a)A<#tb-{rH92x%AaX=GGZL-z;n?J?Ev=^Ua4l
z=e&JfQ<gZtEoauJ`D=si4sUjO{nC744PVldod2e-yoDjWZ2L~{p0S7fkLkiYcRt9M
z`TZ@>yl<a6=kSH2!MA=(2;0`~|9$-7^2fjD+s9;W-Cg(n^3&kv2T#h&+aKSK{?mA*
z)&Ac9k{#8>7N@3fS$_9wJOA<T@_pCC%iCxFKhZzOrsjLpzV^De>+<sJ>t>5{huy0$
zE-n9getNzA_JbQ7jQK>*G0aFfvBiNYe6KpE%v?^7DGHC|<Gwgu+PSoTjUH2zYf2bb
z!erI;dJkN$zCOv6&=SKSu!`y5ts-HS;-w5ct{u00#5Z_sFOx5R-Np3pwg|)REny4?
z7Kob4R_wdS81^Hfq?YymVpgV!clD=p9hr3D=<e|F_fIs>e1BK5!)4W?yZXmp?{;>Z
z%vQB7|NIH50uw$N4ih1@Pnz!)e;Ud@%SwH+<p$Tr9w`S!_l4pSQet<1%@9_zUePCT
zP;Q#R#DnYO=Q6FIpmfBqF8{%<`*w~ptztJnp7i~A<Z<6(8_D}twm(1K4(&GC*JANN
zMEuH^veums8C)lAG&|JTDCrsd<Fl4@mb>RKl`Ty!u~oT^?6q$mIWlss5S8~xxh-C9
zRGY^xJx|a0O=!#cHyiVBy|ne7Zc^~9^vmaOyvG!8ZlC8NeYD~jm+0c}*9=eIuUMVr
zcQg0%Ju9yGq+h3^?JQN~qWzv|ssC%=n&;voDZgPK8&l7z*3}QSt~%Wc`0y$2mIvdp
zGq*Rtczi_Z)Xw8Sk2KgEPRuR(cUbCdXL`&OPl1MRt%a8-K5=RFIFZYGGA_4y)4|S%
zHY?gbtyv^pVjoeGAv}dw;7m>h^AzhOmDLZEyfym8v%lH}RIX3z+IDxfj-uk)*KxXR
z+8qA*yThL+EODuo{~c#rCzI7yWmmtpGk)>?inR&hf7btA|8>c+Zf5Sun#K`lUtbUA
z<o=TwW3b7n<!nIMw)6k9&jx>JUU)v~bHvJ0#m74@hx2=^Z7@~M)nwg&*iBK0_3^C2
ziiE7cceZS>xXAOb(Yt3yY3a?)FDEcPO$i9Ke*WgjP3gzd{8uhc?s)lK%fvSGoy!u9
z`MIVJTI`c$Sw0l5pZI1Ov&xzeM~fPcOkrGqGr%&x!q6dU#{r&g_e%5}oYc=eIPJ&n
zuX>_&nd5Fp&&=LK7R$E(|FY6Dt8v-RS2F`VG72{4g-AT<*4!Zc#;*7D&cBWu4w~M!
zkG_9z_TE!ht|_rUI`rXiTj^7&WjU9cc05rHnZLte(Mr#oS(A5cV40c|EPwT1k&A!Q
zrmME|8kv=6oLrMHD1PSVJ=e`g|E)`|=5aMx>HLs;BF7uYoGup=8w>VD90jcbPZoYW
zIL%^7f$u~)k@hK5KmEOC(IT51@@?befEG5F<<*Y`GGd=6e{WY*5qYm;n<Zw|{4h>P
z>RmC9Q_jgeKBuF9?UDq9`~p5QT6#G8ZY`c{nPKr>qWRY6vZD(=?a4M=(Q;;*#FnN9
z?8g^y9eQn;!Q66O;0o_UUda^=1(O@jna^UrFil#PIpBQnzx`jcZstm`G|69>|DtfB
zR7%7FH`|?_w{~U86|D&gyk!64|9oqSITo3hk7VUZ9A>gUY;;+2L1V`|-V195ec4v*
zpR3JtLBPTKcd_n*<~#oXr_C$3*9a8<^6PGEutSUY6%hf~<V5+;_WhIp$X|+L)XUv*
zeottUT((WlwSUWJlqjxCluKsZaF{1WZu7)@EB-t?<6Ju_Ztk6y&s$m2_-8iu$~xG#
zWt?&PD;efp7b~Z=<iO-R?4JzXE@@V3^yXO2-LJg7Oi8hq>0#u<b&@iSPM*v~-KxRI
z!*4(QxasAbi8&>2(wF4FSTfo3uZD)^y#7Of-dM6Qt(;JJJ<oKv|JgFfIoj^dqBHr~
z?_BbZ<yyKYB`UnPLGo-OSHbfYE5(Wz+D?6+bY#ViS+9zMrZTNx*JbbC(-Kj&jx{^#
z%pn79ZYlk=(*h?H1)_Q6x_f5*nErC*EbfjEO{bzPJp68ToPYL~VdF8?E3KWD=az8o
z67VYU4(ghyJkw3xWzUv^*31H#?KOATtSY>-^;px_l2~8+L*fyBlTG4f*Et(Z61;fG
zPUf-h+RvHV(WhiergtqjbBIs(V*W3{Z&KcOJ7xK@wv6*PD<??lw_gpMvqjL&uJD=k
z=5w-{Sl3`0A{Gid=H=y=6h|8xg4XSU)>MKP&w*&r@-+|*U2|y!U2_RJO;Ewm$OyFN
zQo+y&ycANw&<MQZQo+y&WOR^%p%K(PBd~d~`p)@zC8>EO#R`T-U=wM!Hq!{~aHO@F
zV4p#j38AmeG&k0R-jZx)ZlGsjVs2n!reFcTCfUrwP|wKR(!kW1m{nK!mLwX2LIJxQ
z3=K{649v{Hi{Q*a>q9LJ3@sE4O$_wR4UIsj6(ZJ3661<ui)5UO0S!SxgToajrh1m3
zJE<)dOiWDl42_Kp3@sH5P0jR-O)WuJn1fCVG&8icv@|8g6?nq}6#uwfVWDRXx|rHj
z!Pv+Md~&0KiGrc2g`T;kxq+dPg0Zo&o(X7S9&zj7jEr%H1voupcLi)=B+?2|q?M88
zq^->~HpJ}&L-@&`=n2!r7<5RcF(?j9O%3&ojV%pK6_6IMnwlBvnVVT!ni92GHpL9*
z!Htl7j6EDo3@r7`%#1;cWlc;i^`Ljzn;04B8CaTtMa>QL3``6S42fDKiq{pOQUtpz
zj4dtn%#92|r&StT8tEBWSQr=@D}dZ)WMBzeRc&Hmq-SbwW?)F%#rCFnA_P>1VRr?{
zK4@4N8(Zp`8k-mxnJXZLg|UgHo~0RRZ8tIbBgNDRcd`JLpg3G%0$Lku0kYcI&=ejc
zrbc=upc5_46^xC{NQn`1+^bc=<u?vjm>cU^ni?Az8!H%r$_j9)pkQKQqGxPj0v0tj
z(K9o!FfcSHCM=ST@q`8Laub$I4UNt8EDQ`l2dyIIQbQASJtI&dMvMzm%<+^Hh%%Gx
z^|HpG6K6ryrM?@%rL#0#FAJ`CAyEolFKcLEU~Z`ImYGwMTBPrmlUS1KlA4^Kl4@sH
zTvC*pn9IxM(YYr4ZQkt@qO4+f#R`7&H2%sDaXC|SUZDG5!JL$biwe73ZrGn&v_SRL
zvvodFD!EtRUrWE4{z6#9w!CeM%dJgfxycGjmht89Y`@<rzF+g-)o0!8$=g3qHkW_m
z;`3}Zc*X4Of<Ir+yQ!=^v_4pCqRrIFKi{65z4@4**x43!C(Fzi;araot-ttkN#qpu
z8l(6N^|L2?Z`*nDb&b{JQ>uMi&A+U$l#9RWD{U`*?b%mdTkRTssVXnwi@srMfp3)N
zb9MXA-lo;PX36<4vvkFNTCLx_ZN;wqS+P&ws+~Xmvj6k`11&Q>TEfzd>e+)IwZ*8-
z+d5mz&Z;a_w|h^e@A_FeH+{1{xrXY!^t~`CLuFp7$)wvy_`c~(yIEx=oOwztH1>J-
zIh{2J_7u!(Y~0e+Gy6ZMTIknM$Gi=E%2&1QPUeMcf81D^b88OYHnH@Y)Wo;5`K{c}
z9)7*j?L>iNnbq9?Tevm+*IZg8T_xLIVxOWCe)q!dk6Ot!GP_dZm#<$e+m?Dz_*%|;
z9%tL?&`VR7hNhI12)voH;q$t6?^ex<X^>3$tiw7ZNZM)99**?G+7CZ$Ih=5)_bp#~
z{G$nP-+Gnif3#<xez0uO{xoN0y}(Hgo%`QiT+aFYoPSQ1(92e3neX4XwLhG%bRaB4
z=dc}L-m=vDJ$%pIUQG8FcT&65QBv{8AmY5NK8r)+>bLU#ii+~pEemH9xmlFt*(;q+
zG8NTy+Te6=D)+B<7H8Eoteh?G`rh+juwklO7-JiAkK*SZqfe0&&Z-1yxZZlN8r5*>
zf~VgP<_zzLi{x@0n70MzOupJ;s@{HVoB7dq)|<W+&f!}5R=Lp3?&y+L_NkTfHA+cd
zhs<|b9}(=(UsZL}&ZqT|<j+lS?Vqn+DPoY@x~4C~Eui;sD?88Usk&h&OP0-H-5BG>
z=hgCDOSSGx+#v^@$;VjcP2nuRZ8K#~PhDpiqnTcAeZTyEzn2;gj+;ME;=B87*`c*%
zUtF0dt?i!VX0mBQ?jf1p_2xI3W6x~-;F_>nY6a76p#Zbei`y!1R7rR3DCKee(0oWX
z#Y*Yc0hR+i=alYfKCZG;XJ+}aagJ8fRQ4SGLwyr93_=gj3KcbXcyeRax^3rY&rT|I
z)@ReN{(W@C!JLEB-uA`5-(<D>Y$ETo!v5fn?V{=v?wfzVS@qXrJy)5|=kU~hfBNEB
zuS(vU$?m=KmWJPkBbBK!>mq{h+&g-eY4vLxW&2{S&=Yc<3pQRo*Tb<s<nXgv8PS%q
zlMH6RID>i2s=FL6OuxDNG{e^$A&NU6)SceS<M6ANWq+seyvNE{;x(Tf;kwYlt|}}a
zE3?#@F)HxX?9QXCbITq1_Bb5dFDbaA@K%ZQf2kQKHtN1FIC~^x>f}Ao`|9l%-pk#%
z!`5N10^hqYAC@&Po4;3K!&@J#J@K}i+=KPnjq4@vA9{5EV|0yigz1h}nb6F+RlkdJ
zCvLcF^~QF`!<!c)ye8~oS<CnS*Xb93_HKC6tUKS(<<*hw3aR~362E=cy3F!k|DBmF
z&MB)kcbEI6f@4ct3@5aURSQ->^Eu%XaQelCUjY?M*}^kdwwM3Q3(yj&@mnLE^XJqW
zmz_s{^jKV4#1=HKQtqgC$hP0+EZ$Z(?{AR1s*peT#m?Ck9^OeygiQNWp10Wr{Mvr=
zyo+(vq!~+vmM&#pAOG~rly5x!J6C-1o!!di&ul03bVm{Qq?q%fuBWc-i;H_Fd*yWS
zimNKVy|PBX!+O~~ZNe671v>o^&kA9FvEQp#O=Z2OR(wdV-+3z&(Ma#}^ICpt*_B>x
zRMY<UbYD;W!)G^oSSGFiyt{PUiRmV8LH}ME>J{j8^K0%t)G~juHIJsP;g@5+TbJEk
zQuT<_VAuP@wE<I=4hH3^9b0I%Eav~ID_<LWn`XGqdLSTl$y&_JKQcn**%bT!AKCdH
zeTNcu+;eTLV!BwGadEE7M6;`ZXFZuIA{+Bi+-B;MO&u~fey_>PPm^DLL4@<rt;?Hi
znUhS<N$rqyHGUzeHH&kqr!)(HXb6jWyo!74w1wA{-{yZf{PU-!QqIXeo9o^>UTs}+
zEp4@&d7#au+HTXWc8u!Xuf)FY)P9&1@?rb7e(rw;;fjV&%)<Mx7I1zj$a{KZf%4=_
zr~gX*bMjZ@v}K!hIpP-Q(Y|X(&3d-%xmq{nV_<6JtC;-HYj&>JOq}xcp;E_&gqy$Y
zd=z^<bk}S$)PA{GapzB$i$~smyE-%Uih*BiD*sWV{!5eIZ||C}XuEa6-)rAf!-V4l
zC9XwI&X0e!W{=*f>{%YSjQ<~x4VhjUd*@lIbj0-X6!n!?cV-z2t*|=qan&yU=_c+1
zg3QaTwSQe>tF+UbSbO4Mg-Xh_tnRrI1zWxLcG<qzy;!i>=lRORR;q`pqRgK8FaG`R
zO#|Pj7xP<!4<DYrIDNUm_Lx-%Z@L^xocqGcVd4^#bhp0&ueM3Lb-wEC*#Ez#>%!!O
z{|{^IzAoA3zr1nB^XK#R{E{2~dHrnqbkJ`8KI`KKg*LqIUuSRPpYIte{q1Ek2UnQ&
z+qNGTzrTFU4|bQZo-6e#<=lmnXENhMs=s~v)5M^0<K^?u-{W^J`F>36R?Dr+8;)lR
zeZH2wkX>}+o}5*)_6bJ4%85+5vZ7?>?Ml8msTD68dR){+%(!?Z5BSFj%;Iw{U8*Rw
z;?M-%qaDA*7o9$#YH~8?<-)oi&sMpVSkuZEW`{O~ZjEy`6}Xs_q&4er+zTuH&r)kc
z-UKC|wm6aT<c_ba=NiWN61%gD^wv3rX=_bfn0Wb0u55mSVEq26-p8dQf<*lCq;IIm
zt-SGP*=LrB1=pP$#Y_&W?6Q^0U}KBBE}6x?=xe~1n>zO-GCunMy0~tq$}flL*@Djw
zm{gu9WjZ=ZqQ}F*wWy(hsk!vv^(8Ien))AJ@Sb+N({Uo_t4sHq8fV?yo%FHT?!|wt
zE;YxStZ&6P*2!`;-4bOvw`-Hy4beC`>p7)Uni{xGBs@%(Oy<)2|GR-Btz&uU1r3Gt
zMCK(oe+Md0YT{2~FyPcm+SgFQVfFX#pO#Bk60*-elt045$N7;dJ>pAkY27BPO6&Wp
zBhQ-#3Otp0<y?Hj`v}XW2M=eQKmIGI*U58l&$AY7$)9d=Z>}|MyyPpA(G@Mee03uK
z)ra;>U&;mN-_v&5_|-7-=Jw-nn2NQFr1vl+E>)`j)W`ahd!0k?)rU?DD;cjGK6Kwr
zJ7L#y56yd1r+wb|FrzWU>D8{f$NcP7F&}1Mcw)N3AbGKL*Zj6yeV-baD_t<2ecs*O
zab+pf^8EH~vjVcNdl%cqe4Vq);mk#bB_BkN?066uE3;vCRQP(s=k<m$o&US<Dg@_m
zmAtiACO31->+0G0?FZj$alR>>z#P5eZTJg;w|hAsZws!t*v^o<Tx$E=2keV;)g2eV
z3Um5;S7Ddl2lg%J|ITWe_~?j#xM|h&IVSy&Li{eiyHd$4>hig;@JzpdS1Nx<tZ0^B
z+1|T5yVh)R_e;!Pl^Hto{g#O?H@n(Gzlv5=$g&viZhp2%OL^^a&(jNUwAxnPUMO?u
ztJ!{CkFe-k3Hi9C%r$!yGF#e2jNB5!e@uJKUADJpNl$Ug^1HI7Cb|<Vcl@u<SU*YT
zWUn^Y7pDzUcFl9|ZERWRa;BM;d7Id@y%WTE^?9c5Nl4$gI^vwCPuldT;}<GRrr9<3
zJ@~FH;loy(FfH-BQ<9<N6Z!iI0kdLDyQRCcBHzA9^j`A8)~+)wa8lrfZJjL@A?nkP
zmN|<*pM3gb=jor){YsYR%-1HXKZ^V{oke+z>EjuxD;QblElYOX6uAD%jYE?H0-G`f
zm29~(rRE)I3X)^lw1CBX*GWZ(S)mJpJ(IWG*7+{0&o+B{pIaDDzs~E@P_wW8b2r$p
z^tu(7B`IVk;pvyP;&aH3ABp!b=6|UTcoh8VNb>YpCq~8iWqym!ehpm8>2H)8zJ8m^
zVGWm6P8)V7d`c;kczYplbG}$|zWd@dp^87xc;uW4q&jjqgO|?XZ;ssaD`(UF3%lf`
z?IxQn_nB#N;e6@uiem0-$ELKs=u!Q6F(miqgoB6tRW|R-Tb1?qbFWwd^A6PyCw~9k
z6}<9G2k*2#zR&M$D^&IC;<s(zox5{IpY5gC!vCM+r(Jy&dv!~x<S*B(8fFKL=n{+7
zJTtBqHJN+#?Km9Y&%#}@?>*P|*OBk9_VLN`TwHCqI_t5YoE4+PgvvHE&wy`HyA|KZ
z2RWp;_CB;|KX|nM&`!P&mHz5o-#I>*b+b5XrG5Hwd81BanieDP6EUB;9uHFPNWFet
zB4*a<vc9S2_ZRP=&ag9{U%9y}JJwyCl5vE4%fw$%Qzh;(o)e#8d05o`#F6vvdwbmd
zzt5j5-!N}=zk0)JZFL6&otE@M^VaW=iWpfdu5k&}P7_(Vdd22=+uqrnJ=f++$$LHd
z|5bs5^^2Ha-0XI>v!<sOSNsz3Xc3vmsiNeo^6ycm&8<V+zyHhTD(bvim3f@yP1^-w
zNx{Q{%Y*_?Z<*wOGbKS`r|>}ui%O@(f@fBV$eYZvx|R_%(~rybhv+;BMJ=ugVm>Kb
zZ|mO{v^-;5cgEmDkJ5pCmI5rQi}!qxbe!>d_cM>ni#qq7T3Rf=;S0w~oy0FI%bdPn
z%K2Va#38cR#kq2aG~Z6C?)2vR&5aj->e)Rw|42$_nX5L7CX1wM%*R|Ob)NNXPaHRJ
zOi*NtW1Xj75ER}NT*2BT7<6Xuv%-JpFPL3dn-!{f@cyNa?AuQ70wyt>-S;UzQAT;;
z;&VwokER<wJLL2&z;fq=7p(jNmO6)jwm!*N=zb>hlmFr;>=s3xcIwHK9hGKgCr=J=
zo77Pt5$$CE^rpzKolBJB!(P8W*ndzUvtLqtqN7>_XF=ncz~UD(xBPd%@w~H>??(Cj
zw;wdU8a*Z)d!C`<9yynbecO?UwZ#^*d?atVSk0@?jq2*$Fz4KJ`QOQHuanO8dL;A3
zT%TU>H$OD^sozD0?cG&(!_4Q{Ja%?I=OGc6^B}>)G+g=Q>*pV|JumrX1%zlP*j@hM
z6T|;`-;<)P?_Nwy4BC0|qKM73gU=?()U)69zrHDAif`~_<pc5_37hi^S2oUb-5VA9
zz4T_7fo<EGgR`IH&2`l@J{!O8C9jv-Zbgxb#SN|v><gMS7VTf-Gk0dN&5cRYTze}P
zRBw!u{q;EW<!|5rWk*g#Ep6SUops7L=%~5*2B$?o9LlDZ&ER)dQun$pb=^Mq+SNUq
zmvs0S&R73h9wGmMVV;Vx#zW`WjavU@*VQJKwX|P3bvJMStz&ak?kG)NnDcn6tlf{@
zT{+2n_TF8f^pRio(e!z2tK%-GGk$m|)B3$%U%)pw$oP@C$j?Bo|Ga-6cHgc0=n<|~
zv&Kg#*}-0`_m1jTvzHnQ^Y<`)Eoyd3wosR8eLCU2fcXrEgbCkI2HiN|;y=GP$#L}^
zRmU?Pi&on37tT2r>ln(|Ioo1dh}e9o<t4M&ukcRa{qz}|#j5V-x9fz~JTmfOa`dZs
zm~~k+F6iOux7%+1iCFJs?!?ZppwLalv><TZ<LNnq&tgUG^O9AJe4XF;^G_+`vw9d_
z)>!6dF-h)0jKx-MM@Nklss}%|OxqElHD~wwZC8Koi_%}!P<2F5?(fNO37_q_ZY)Wi
zyS!3XulPotd$PQ~?ZKnP!P`Um>H;eHl%^k9H+}jRy(1H!udq|+G4+dIz3M@UZu*Id
z$&cprSgJkm+A;UohedbdKFmBAFSmrdWud;zmWQmrnig$8qsVZkr*SsN`*2CYyPGVF
z3md8?ekfa0xwqYep`n#a{QsO=)@sksEYOWfnBsZjQu@yyo81!H@;++B1XjGy+G2NY
zm5OiCL_e>6_jRT%DT!dce7##aZgKys(xT6g1t(sAsgZDU$+=fsq+C;b{kvZBYp#m4
ztv;*xUNY;9;d-HONnfQdcSU_QpVlsI_~YpVpIx8-b!X};WGq;6M)>DvNqq%R`B@iK
z7nX|jt={}X;!$Jq10KW4_c_+*o!>i~W!u7+t+P!1WaH{)te!ldk<YOE;DZYe7s><w
z`c>&1Sgw5agycSN&x<Sb)kMX&i0txwU=nkn_#S8UyC0{g&xvMV#xdLG#|iE=ldW#t
z4PP7_r@Hauw-dz`=ht6*@gnHXjl?|hKNIFe%bYR(_2sn%Q*uSrgRd3aclvSv`8hH2
z(EinDC%H1X#Y<bbh)TruGM(?L>N=RB&eJAuxm)vzWZ!Dz%s_=E)66Mvl&?pK@OCeH
zs<Hg!AxQxh;ZH6P^{Pc?aOU@%-~a8Y$4f4yx%U>&NbXPCV)pR)bN5dg%CS#R{+=^W
zI{mWGf1__p8fM)&v5GnRM9C}veD{S(d{-Sh7P4O8a1^_c`kddyVa9wTmRXZa6b#n{
z^2e?*zvyOreEySwyU+a?-+%jitloIt{B4=c_l{gTX}P^lrDUFb_N9wmEI}QPnVVD<
zla{)Q7j9lHW*EU5oz-j;H0wLRm(}MznI12kbtZ@2+0UJC@Wju}zx_H}xYJ99#XC0{
zFIaIo=GY34=gQTc)350sx?E5&SLAY(c=y?=>(f$HUa)uEt`e<N)c^3Ku)E;<+22Km
zK}iohb!&wFy=9RNc-fjzl$I*d-NUD+V4Cvmj^x8azSy)lnJ+gKCt0Tdk_pPb`u*+I
z7b1r(o<6==`dcg{m-krJh1-w%<PsO~sy%G^P_JH4wN5u7X<PJ~;zJYmRL4YV9ht-3
z@%BSKuR~`)JLmPYKleWq_?}YKwLi&j<xbwa279k_?9csvwrn$Z{i!^mC7i-v*6F@3
z-CMUn`fo-_`vZTGpOaTrFV&egTXv?a^W@_F{Qgec#NRF}Hh2*^@2~7z@uN?>_)DeD
z*2Y}g(@@H{Z_+f;hbtbWyf9z!b6HpN((b>TRF4Pi+8;aabEh@ydf4}up#|%9-jUz6
zqBtm?OG%&a?YRpfX>T3a7Km+_W$fYld?r`^&mtAU#OzBV{?!VcWrrC~Ncx<MiIP9?
zZQX)*txENwx~FPiOjy9<+|FW}vU&L{?l2uW^RG%a4u0=H9B|%QFR^~ckvFGJ7Vn?C
zK>Mjen@F3HHgodhmFh3e1No<4e|)LVDCMl8ZTnY?d*|n|pW7m^O{mOwXCQa~kv$hH
zQ*7ra@W$VI>K*AgC4+fwjn-=6H`C7Z#yzUuBs-y%Ynq;bXT(Z}OpetRYp!)SJh57n
zxx@4I-esYI*Tj9l9^RLCh+j%uqVRr_Ro7jy+3u@5mNA|Pk9PRG>+aKH7K`Lv`LA}0
zH3XS7zcMg!w_4TzE3-&>OWVEVg31}%4tqLJ)J^#&=+5PSldWcfcbv@?^QIp^ou52^
z)#jM>z??ni$Gi=k*C!Mn-NbZH;1cKgj&rkruWFpbS^w+N-Q$8y2b3f|ncStHFHbn)
zt;KLfNqL=A*n>k`JboA~+<DxQH`{uF#tvW2yD^NvdN&nkH%hNq>#ki8yy%4Q*I%_?
zCWwDoGDS|_!C^vHv5D2Rh*a%{o9SWITBZs2`66{^TIaAIe^=~bD?a_n?v3RKfBkL$
zo^><#$&N(_Bn%Q1<PA@YB?x}4OEJ5rx|`u6gW&^52Cqf#Q#6CrG&85T?o*XFx^Hy<
zfxbbJU#RKPtkTWVClqdZDD7VT>Ymki8w=N$=JFCJVng_3boT5Ey&x$fv?^@xnb>&i
zGFEfby%Hb#6+6SG@-7o+kY9Xsw&kklrxR?GI}cwt<)*SF>pN%X;S)l;`pz3hX&>{=
zTD|<5*TG3~Uk}~MaKH1{-@yDr*bSBN!!dgsDkuC>JyXfX%r5`sAy39Kw>huoEiBJ|
zoTm5UT+3gBve=p%ANPF7^!q+{d%f{I;rG@eGLri*rTxBmmq(>NDBI%D(_JC9kN5tz
zH1V~FkzrNKzPaV3eW{ej#NKn|2aMOP^;luN*h=~HB&H+RpEYPiGs?{7)^1E)c;(2>
z4IWO0Gg~Li6li3WRI_%^e7<J)--}IJGJ7r*eMpI#+Fj489pSU-Y_du2@7V|6@|N7G
z49~T9YZR;8Zt&{0#)Tva!BdA`cO8AgHn-0rBIkdapw+T0f&V-CCT<88eD-(G1fA%w
z3k&7KR3nuwKQsOm?mx=0%;(yR_1!7$N*&ri9du`Eu6xd(UbDyZzH0xD*mvK%P30RB
zrfgupvg=vd=6iQ?!(P_U5&eJv5dX5NGfZDq2s$cn+Ix&~<@QsL8s-!;zP>s2SMa`o
z!&ek{SY9-1aLhb+N3+(d=+rC?p96aG&-cuiW^oO3h{}ENZkmq#$<IA?n;IY5Hs4v9
zzPRHD*Zz5%r=-3*!+TKn=(Fv=e_s8zZ_ANQ8{4N{*s(8%t1U9J_Rf^xjH8cdU2k9A
z_J}of<Aas&0(?YuHnwJmb}=MW@AE&NrT3tA{txw*MUgdD`fG)ZB|mySUG_d~_EWpt
ziD%1}UK0J(?Jg7XUhFpeu2(14<zD+KeRIvT{<*6z#xt{53vpdpd!*a!!AFkGGo5a2
z&-|C}wrk1(o7o2#zP-&5?zwF2zPq_#(o7}O#Qi^aI7miM6DhoP{OP<(##QOwl?~JK
z%2x9hT(Ft;E+J%6WkPwA&fT4Nr);tfKJw>X-tM1U_W16d@iACs?z6w8^L8=JF`NE*
zisg-c-Cq=+XP<r3DACsTZu{wO<CU|2Z_+dB&#$|gmv>pwrPloChI!sGy2dP1%PSVP
zD*T_Uui#;6D9o4<uuUb}xXtpy!4QT+kI&i6VAoGd>M`E={qz-`wln;`dYpGfq)sU8
zJS3icVNcWSTe0g3Ut0b6w&Yx~zs)k+ev8RFc<0we3!i@Mv|>?{y}9P5O6FQ|-&18m
zxn7Cu-m&p+%bWOfd!OWoeM{Hh@8)bNQTgnicKy_TR`wru@>y)|R{9FT?t2Y0jb`6&
zkCC<T{5VN*^*4*;xdt|3GH=&T30)rDydX}h<p@(wdrsNuuTK~4oxq&hw0-NeP9sCk
ze>04xDi!r>3j4eiPHkenW1L!~xGb2TcLLuk?%*`$ss|U;w|KjYt8LX@pRltfao?Al
zXX;M96*_qB?XN`pTl%s}QzvVCWfi@<ZoXBGS!9#zJ?G_9H!NM1tGYa9qQ$-Cku6&{
zO;u@V?pJB-KQ?_*!}q(HSzDw|xlBzF-=m>c-Q^`^q<$tY^iA5{s;pQh8Miaxx+Uvg
z3N2sSW5s319=5wd`&j<@(|hCUe4cdHw7mc9l6lRwurOuM&tF=5Th^}^=S-BE=$Ur<
z;fX0P86x~2Onm!j`|qb^6XVU;CCYZ>ZJiPC*mmx7-GO|E<<%U<LG^qsKkp=e@s}{4
z`qg0842^SPEHD0~+%$dBxlD55asRxJCw6QVG(N`@#d|+Z<VDu0${Q7j6%7R2c;$V0
zouz&$S^i|J<ve!!%cJLqQl(Z`%3M1TqtUZ?>7mwnFKrULKT9b%2@9GfGtTgNd{Ual
zOQ?B^<0pr;eD*g^v5L;;{I)@qbM;=`o2sd*w^n>T{^3fUz@@V7SKOxM@4vEfTaG#R
zx#tzXg0~j%J8fAm?3ldp>9N&ox<4;mk(BUwuJh8Xws-h`D16v4UFtj2glgfpCvJ&7
zJH`^f{_kChBXdt0u4$Sg=Q`!#pRDUEpM1Bn->cOxHDij#juO^)2a7WKO1DqVw_@b;
zC|GEB;6p6a&S}TKr|$RX)}QSDT_N7e@!JZ)(z?r=({DH45$h|Oof;Ro^K9pzx;^`E
zyq*60chZq&Psx;>%J&~yPWWOMDYI)Y=RU5$D{^ibcfvW(Y_->j`xLrDf>Y>R*2I2>
zz}+{_FBBDhInQ}xvQJ3+?GwrWme-xh&QIeLlWk_L_Np$?DNyD~w^?Oq^7g2o;->>s
z_U>o7dUXqvp-bP1r5#@mtUmFSVWsDjOYM#O`+1w&<a_U3tF5^F@YsTA_DSdY^~~9(
z_g@k+Y@Du8p(XgH!SHRm=KQPYBwqARn|XS@+fktavsw8|m7i=6xx44y-BXX*)@h#7
znHv84;@t&7Z2AX_ECPQm&N6%dTz6OJ9K+lb7mKDmIXKZUYUUvy73KMANh?Y|Tnh`3
zQK@|4#`E%6VX$sB&w5!M8PDENJ~_2DYBMr@(x-K)aK8#`I`<(><xzv0?`_?tqzlT<
z_XEECf41SKV<3CEccaF`2Nm1(BCB5Z-!S^NVQJve{r@Vq?}#}Ue!4z&+m>yfZ!!c`
z3c8A)mTa!SGbcW0-Mk+g8(-eBefzCDx{kdqLvH%-?7GL^T94+RRh6kJn&)TW@o$nm
z-`Te{+g}^6F*)<(WW=<DR}Il|bxRh9HEw)a7yiS>@A2D)ImuC6n~Hk2OLkvT{8DT2
z+b;j<B>v}|KBsTB9*!3L`1Hg?tI2PE=IzusJ@V*B_M-2`OFx-LMBBU-xR|}fd%5Es
zIp#Gfb9}yR2-xBL=V69P;`P3s_LVs?x9b0|d+lkn?ak7}1tBjlg?qJop8D{#*xhPR
z&V0}N<-BV<7vBB-|557Vzg$JkudaGnea-DTc{Veuox$?tY`cBS%}t#b7l;>XWlZ79
zd}uybDaibMzg&fc(P@uqLcxKLGjHfHAKFrJ^<~?&GCj#XSuYEh1hKa?<$Ni9(4ZzM
zvpl9dspsF^{r#znEN(bWa^&~_v-Gl3ezX4dqUe|g(IZB0Mea3sPYB@6joZ;sCzTh!
z)mX5_>gdm~hLv+494<I>?$u@A_M1muoHEGG<<#RhP`rA}{BX8(LBFzYg2t3>=d<S*
z2--|!UtuaDr`~=1;qxio8!n~(UNF%qB-?(U<l%R_z0Nf7Y2KRs`$EOXpfeBHyJpzN
z>2F&Q$D13{xnnEqNwe#p+l}YAn!Xg~{=4J8?z&Ig*Pmwy+iS;M5YC}#bfE2j0+*s_
z`Rbof7iBnS?o+*#>C(DE?d`Yut72VtU10h3uu*aOL&Xz(_xgh#{55{YH}`G1pFl-(
zkg3mF6QjNDLX&P~uGpU+*8MXyDCt_trUMIIrWN+7ot6k)`}S$jimBTo_4UMe->vyw
z!j@-vcFh*MudAzG%cswaW7d~qPrkOsJpIE|G0Rnd6Ao&d@YPw(J!jFAU%dV99UZ;z
zf2K#~AG+)HZdFuE<;P#AP5Y*$Y(BR<V6F0l`5P<$+sQ|m%Rm1vfBN{QofTTLm+yF$
z-MMi0?yHv*;{I+_*ZP{f%`~q-<BnB$r`F*|x7U>gIsIb2?r?$A@~v^{zs=v6j>z1a
z<8a+>(>ty;8O=%V3Dq{fUPcMo*VJy^*|Mkd`|GSb*A|qYll(m`q3K47+s`{6nS!>R
zd%Bx3T9l(9!^-_fX@{BVoB0lFR&JM#vdNmkWl*^F$JvTPw-awzSH<4jGEvm$y~=K}
zv}rtc#f=PCC+?pw{JKEQhr8p4nPl)&<L{>@*=E$oHr=0M;AO-*XW5p+8dDz!KHtS|
z+s?(Xr1P@ab+$U~hYvG8ayl5XZF#un)yvXUtyu40uN5yhv${TC*Zx=JgjeQ-!mY0#
zTndm?wNj8hvf^Wc(84QQ_EkRV%6R(PQ0hf^?(<jwGYq8;_i%pWSbXC_sDiIH$A3|W
ztX3wE#dEIYM9Byy>{@0zdz-h_+huEY6LUNlT)nmW;MV`%Ra@6?D{M*BXbE~@%o4xO
zd+(Wt^Mh+dqb^H1advuY<Y^uX%ene#m4}zl{j=vUxoiIXH}me*b78Avmxo)eP5bw_
zJb)ovf0=GWqw2&r3Ey(AC#taSe#Df+m$JQ;<Gj>L+b3L!(-!owrrf+NJ=2dtQ{x7s
zQgV6ko*#K$zfICO{+V*;FF0V;pc2Sw!^3%??&$-uR}UII{QRw?PxIzam~Yb)duY++
zIVInpER>zX!`2gfck}Xu=}E^~B=>DEU1D1Iw(MP}iQxb98$P%8D(8A1e^e4wsc77J
zye#Uq0RR8|TM-i)MLZgPvgEF;?d|lp+<oxxn)1Ut{7skpT1w45Tx@1vEudGn<G!u+
z_W&{b1DspryuR6rq$De3J^A(M)wHK-r(d4U*?q%ietywb&X`XNryc0MAakvH0gw1m
zv4scT<W*Ijmzm}w(kkw<`16!W(z_?JtZ_Z?A>I6*uK()aAD>>jA(~uM_c&QD(><~8
zSkfc8RsU1&A1OM~lPJ{jd(zRONa-n#&dn?{1cPdRd8Ua@7B{#m9zLV_{`TWP818Rc
zHT(W4B@512`}6%`_xTF7D*O*QX<ccExKYOV&f%V0(8|>Htooar=5NTpeBgs{LSn(m
zPdrBs3Y^ne;KV8W%BU^JCg6%#oO&_yX)`OeOH&m4IDJ;C&oWb;d`6<~_x-drg`1P(
zdQMEY6DZ)B^N1n%XWqNxMlUK4zqxs`X2qvB)jK~;_~KW3^yk0A<Bdx8KV12bpJ@Ib
zB@<j-aK?G6tIX~lbB((k<walreD=7g+kZparid>W&Lm6{kWurLo_^)2{Lc-E+-s)A
z6sxAr+PXRJEVEEv`H7!9#QS^8nSUmI?^g-g?%K45z4Eb_QNt`gP5GqI#$)UfVw?+?
zxAt31y7u1J%<=a#`FEn<J+3IR%oTIsU9H?F%H`z7I&qr+_Y8Tf7*pmyrA!k1@@-Re
z;vQc=e{7M{^pgp)OP!fR?&b&j@3v5>Ptd#YOqsJp>HX6_;f5x*4d?#~S(Sd;vwiX*
zB~=>%hpEDhb1piswmCOZv~cMm*B{*XuBggH2`)F-Y`4I=D|0`$Kj+jYpT>FL8k{C(
zpIIp(p30YHC6?>tF~cBd^}nVGJ%*Q^oqo@`rpNtqS9#K#<uCX`jHPB+Fi%zyRJ^fO
z_Q<zWX<}CVPZAbYcFZndRNKX`7O>3k6^q*Yen!6#gGCL#D^`RZpAjEyvqaxy-;GD^
zk~tgq&dt5N{g2&0=c)T5LQn56zT>F4rX?~#B|J^!&1?5nI-DVlVG62+kum50&kDc(
z`PHg@p`zVg&0MK3+BU5a(B9quD9v{Dy4mUB@<}y5YhPFuzEruI{U!RN%GHNof<um{
zHeQ;q!OYP1Mf@n6d`I%WsL<Ot7tJc}h;Wv_9QZ&-{PM|FFTGDX`iG=0u+9y%VBuJ)
z7!p5OE-3YbxrEF={gh=1YxcWyrFNYWTmSqu|LU)Q7wz)2G!14jR8D@Gf9<%&M%}d2
zGsM13ee$V(*81DOq}wk(yU41%lxwMRO@i;fD7|%)9r%x~*%kRo-|RsLd!0Cg#?j&}
zrc;-<1~Igm)@WQkVb0O(cOvuDJco61K@7}lP63ZktVo>A6sKBZTXyvQ{mQK0KXk;C
ze6I9vsm$3an#_7#t@5G4+7(NU%Wiyp_uR(Lxp^Tgx0qtN$jyVoTy~H5eDioVyFt<^
zcdIY2_L7&a>*j2mC?9%b_3tfteA73Tf6NQ+%4buMPI%(PQK{bccf~VNcZEp#wsXh2
zB&O}UyZL`ipLdGU((8Y{_r2nmJyJJUn)iCOhRL<*2Y20LkQ18GRr_$s7F)H8v;Vx=
z&6%0(p6HWOcXEI2-;_1>b7l(~*iV>Unb$l!wL!}9cBZcBrRGBC^-Iea@03in*#4)l
zzAE?ig#(#<%N%Z{RUh2Gr9FS^GL~}w?VnAXB~3DTvjx_N+&O0_`}y<4j>^pL{@Ew^
z7;G;eJ;54Lu=|GEF;<`GO@@<yt$moJsMv14V2glo<<D1df9l&Wolv@1uqpe%i%m0{
zuWx<Sk#>4h+jTb|h6~Mkoj<;w-@niH|HG%+b@L+Mp1ryI^XBh=IvLK{n_bwm+Qhkd
zRgd}o@2k>sGMojbv3Sa~@CmJ2(UKy3<hkR6$PCtVo9b5Y(Y?5-V9CK>3l=Te@R(CQ
z=*o|ul?>1Fw@71Mly3}LVV|FrWn-i72wjwK3|b)^q+n=l1X?|)U}y|lCJW+&7OH}1
z&{9zl4P9(+3|cM;;)50~f@siE>mbl#a)^EtuzARf@lC)cVq1(4wo*SRza+6FRlz{t
zH#H?Q(J8+o8sthdLn8%qOQTqQ=c4=q48fq(;{4L0<kVsXLldwmNQ?2oK7x1>ea*9>
zrKz5Up}Bz}=r(pEJyQb{10xFsBLg!%BNI!|@?UcUBRxxFQv*{=N*8s4!xOtJj4Vv`
z%#Dq}%bP6>^(-tbEiFtGj4TcGEKMv7j4TyQERFPxjSPvsuig^pI$v;P;&6nyv7Q-d
zO{<xLk+HF!nT3Ucfr)~VxrLsEp_zdp(z07(LLwQD8$byOhZ~Fy^o%Ub!J84x%=9b`
zObiUn6^uap5<o{rTPhfuo9h`{8W9^1M!44+8-tQDc2^jhSm+sAnu4shFx4}#G&3+T
z1aAm1Gcq?YG*PfL)iVWcTOe*7ypb91*Z^fA>~1hIHrBH+Hw3M0HZw8TGcq#<?~yPz
zFan(zZDwk&XJ%<)U~EWKTo~hCY7EZ3*qvZ%Vy0(kWNct!u3%<ts%LBfKEm46)J)IR
z)WpEhOu@{=RL|VP(!hWySES$z2vFI9-4!MV7J8Nz;B&H#O(03a$VkD&&{EID&;%3~
z#-@-YVMJUGwZIb=pppxRD@+ab3`{Hy3=I_wL3?$KObrYy6->+w^-RnyEiDubElu=H
zOwEbim0)3lGfkL)$~qj5u&~fGFtY@m&5Y~_OA9?yQ*#4jbCO+QirW>SLL0j)j6o+v
zLtSBPre_G+1)*SUYNBUq09x9uU}$2dX9n6&LtK2|*%|>Z$RUm(dl@|0Yu`;2jLkrS
z5Tx&BXsTdr2C1{$49ygb%|O{U$j(kbpeR2%IJG2NKfuLJKP0uHBv#+GqQpHIRDIdl
z=(`6SDwvsq;xow34yir@*MAUy!Pmr_TM}9m|0Mi&p7eE5)*i98&N}A<dt}9~ecT!U
zX8E$h-Y*veFS4t0xLxs>)uMD&Qft-k3;Lh8|B(K~>U!NSz3mB4`=Tdb7P{&lkSRKs
z8h<UW`fd38eN!*5PWyEA<&&%Pm&`cz^5s((uDm%Pf*be0yICohIw5#HuejN-moLvg
zxhgMhKG!_>;L>lWE-jyQZMlE;qb)P_)sw2Mmj8dJ{$}>gm;F1AZkb;2aLTNC9CCXP
z=*Rotm?T!QPIPYT{%?j7a!ZPW*V}BrxO8>oRQ}CB4NgxL)5^_~Z&qKt;rKy`soziR
zV^ofFJGghV)NPYHQ}uGK6T(XF%=%!mI_bed?aSugPkrBQhzycgmlI&STOc)Ewsrd6
zijPSG(Zab07(24O4k*e`P=Cj?^s8o^hv<YoE8Om8_%=K>+>yf+ePMOr@h#78dEDp!
z;rhPr;M&l&#&5R&jZi#(YWsS-ORKjp7k()cv+<+_uZYq!Gna-Sckwq{^wg(IzWdhL
z@Z9*pLN-6n(<##}-#q**ZhP2GNmix&*pgp`j;~7|=r=QO4cln@A%m~!v73d1sA9;u
zUWS@89VgaGMHPNorBNwz?c2H__iRtM)4ks}$sZPf>=5GgX+gt&^~hxb;+MQ`ZuXJq
zY!Z^o=G^PQTdOGD)&AbIjHg<e2l88v%~e=XBq%oJsianUn}(v+{rUeYx7V$mkhQ&z
zztz`TW`4j2k@%7)x2irnIDJ1|{#Y$xRZg}{wVB4%1-{!~OGr$0by3p#ow+TVH>7si
z%Val}b>Dh^luTG3z!lZ(x~JrY$inbrWzokL?XJ(5CHl-EVC~DKU+eD`vPg^nGAvb|
zS7()TWP1F!H5VQ@e^FqpcQoJfptNqi*^BO7#-FX9y)8Gcs$ZmH>b@oC=-#Vcaq~Ck
zzdtv-bnCw8@YAbrb~-U%&8dwwt#ISMwnlIE?xVBrW$4|kH2kl*e$tw#b>UmMbXm49
zVLEW$G2>B|<fcxsU5C^Z6;1QDt_`&l{n@;$`S^?59rFw;F5D`!7hbbOzsr4_RlNAs
zO>6g>6{!amE?lZ=KG)&N%YE`yj4f#wuXue}xx^&%=xxWeMc;CNY~)z05&H3XdThTC
z<6DkZrxs3LbV>D!XyobMrPH>)4dnm0nk6+#Tk-4!0ZF0FOS12MUtn;FE#&~)oyRt&
zf_rrr6@C;9dOgSLO4mgr{p-#t`G?QWd;X+lf$^yoKHK*G-Vmu^thv}ZgduS4<~0Jb
zCwM+7-8D;TaoR4vDUknC*z0oTuMVkp?{9jZ>{FO09J24Q<Vv2m4s9Ci@2*>Yy}dh-
z&q`g~sq}qaxx-RL-;4=j``lj~m=U@D*GAsWE~1A|3AnaBntkx;sULmzM?S8TWtzU^
zyX=(2>2I9N7A|x4Fp%5q9r4v=w_Mf|heYl^*~9bR1}=TG=|@9^^#i_N-0KPs8>r`3
z^@TY59|-z*Q7}v@)y3<Pp<-Kv^Zm>JIVa0;t!uq=RJ3;TD%;XqtQ+p@ix^2h-4?&&
zZ(XADhxs#p@L%Ef*tRvcDP&Q~cI^`8s>WyM-W@!D$^B1Fysp?6?K3H7b1m0*xqjuZ
zk{0B3d)quuN&5w($f;+cw)>++O7|V!5Lz3zHvUp{h`{ds>z-Zz!Wt}bcTyCe=r)sE
zX`gRNUzF9^t^4ZHvY6{Hy<W*R&aHpJZF;cv&=)5DrPp_Ud9AFIF5CXYWyQh@+g=Il
zLw_4Z5*02kIVkHSvSo7S?c<8<)fb;GlzYUuF*p8f_}PYiCT#uRp8oUL6e!rt_dK?Q
z-8}b2o^6QEZRYvBYt84jzGt63=k2n{Z!a$=Oh3H;58qRHk7)~-_gPM3<&=E6<@;Wf
zC+}AFJ#&iEa$EHvetr+zuVjNuR@D}gk2Y`m7(b6Em8mn+coNTFj(0{e?3S~*ttW9C
z8dTo?e*a4Z@9Z`2G(^@sGhUtRs_??sonxXfN3_0B{f7Dd6<u1>0zD@<FgR!byz%J!
zi)F|B*SdG?{qR;Gv*1x!*gKD|Efwiie<}s|p6~r@^XISsq=OsRc$kFe9(cSvv(iMe
zf_ce-TX&!IOgNZUcGKTY{M~={B)e(ctuYZEU;c*JG;!H%VX3s3#$`RJOHuqy#t}P7
z2W5`O9$FHaIqsZ^@h>=}KfnI{dXrxD@#HyMoW2$>`_^lftkSLUeX@(vQ$>*}?m<Sb
zLC$@#*Ph;gcj{?Po8W~F{KoBueT7x&ipBdPpZQJ_6&Js{D@r#$%~s^*qL}ovPj19c
zuD`No=kC3+rjdM&XXYH5a#`5*^=qcvKC5pfO!7;5y(~lOSLDOW(wX(4ySZmoPTV4)
zd-0^MGt2o?T-{kwu1f27?*5Y$H}&+_N6z<NNWN8)UVm!O%|n0JMg_Z_%8AI=-uWh?
zI5_2O#w1<W)mpNr{4%*bV?{+Ksr_Gf;*-wHU5ZR`Tnqw7m7IJ|{z~@?yTjAMFjM8{
z-pG%6GyJX#evphlYp_b|&V0L5GZQ@L1)bumIeGHdS^W*C^G@%IihVNWz@m<e#yi)2
zW~n;%jMYra<@AQ)t{?^1Jv!^tCY8KeG-v&3Za;0Eee>d`pKhF<QS%~y|1s}~<kUBN
z&K$bwa`x4yM|pl~u0<1Fc5zB4Ot4i`Ob=wTy=kA|)WlLf<M%4PX=hJfzxqeLX)^ch
zKf3Q;v^#8)U(4;E#=MK+Nr?GXD_fxqjwy=lR)3$|U=oZ!EAsH;KNaQ~+e$r-W|d8w
zcq~=m%Kwj&A}UP2AuBGX?VEF<OxsGRv+~Z=Tf&nISE>}b%)fSI%bw%f_xGQf(l~3`
z!j;cIcj*+cu{s1^?rWHDTP(7*{Qb+$3dV><Mw!VEJLH3O+N^hFSV%1hGP(3pgg5)M
zCFkU??Rz4Zoe43P++N`8o||<uXya#*g_rLiezO0ZiDXODytxinpS?b)svah^b<O+m
zFE2C;w{QRY>it#U@LI9V>pR{rs+l=`$wVIiOgWv`r$cKe#~*oe>DehJ4+f3I(uqG9
zW8NR{K2za&Wy_M#1s*p;Mfa&{=<0uxQg~Vu8^Dq|GjHOn6Ib=8g-kvs7<e_cczeWi
z*J-iuf+nf3-YR;^_H;YLtb?bjAMJ|aRsGa>XvrjpYHv^Di5c0kdeUC|IYa)2mpWeI
zyU;AG5$C#2*D2Rg^j(>4?k=PCMsv5Q$My5=*t=_yrFr15RsTNh@)ww9op~wcbqhD=
zF8eQE^@|=fsWt@!&D!$lt%ID)+vq#V6T|b|*Y2~OtB~>HQjyo3_dTAuGQ9HtqYo5E
zO`m-FWcYI1bGO3d*-V}^&tE2&yy9nBmEsbo!$&z}jxt#I-8s4BEf2#i*_8P7hC&+_
z>m-Mo3^AYd7xNfpgY6br1Zt^B@&0PKp!PnfR?@yq`qgz;(cjx`t;=SI-;vhXu>9UL
zO@$Y&dvE9U-DPv@Q#_)6pUrRjgo3}f`?AUv;<^8qTvy=?Y2eRIG&Yly4$)LN#m0K1
z!E}mGvzGDkR?QUtD{PLkOlKAAx4fU;XmFRSz*53GAaUdDpx-Ck^jd@R;&&b{`expI
zY75`l<)ZJ{*}Jdrty{nIqqO#dy2tx|l`07zl>E*8?9}R;os)HETRHw(q9@*Y?%&y(
zn{Q6!#so?TPPlQ=ndPmldV%oQ|H22Q9h)ZUFgY4NYF)y5_3Xufc`v8Uww?7ux5>tT
zp6mGu>IOx5qTOd7ZJ53GNZX=bi?j1r?J9jW=Y3h&<+E&l9bsngBlzx4T;92e;j`Km
z+mC-{KVSUHa^8;FuA3FAe^h)>%uzd3p*T_H!&BCbi<wd(RlmO3%Fhx~tZj_j`tVTS
zu4xYr_RPE?HRocmkY}}?c!Z4EjFX;wC2qX-$y7P-_4&)}<?h~-O9~QhT=}Y4bbCiL
zTcq2Jbf+Eib-t0CpRmpCF}GaxZ|S}VQ}&hre!EODXKKusM6HQWnTmGZiHm195O(mK
z)c54d>6mxh%uC*Ks5+ZJS=s;d0>k6=kDc|{B5Ij!FHN5KYw@8;E7~P%m6isrpV7lS
zx501wKH0rbH7p;ko$r=!_+sbouiHOH)Xo=QV!`FI&~auJqqMf~l!xjo4fd>C;FRj^
z=5lxS1o_a1n*A)d47<!$UeI7{PQG!*$|y}=#BKVN<ywBqyy|{D%Tr&@D7{&rpUf;+
z5-5BwZ&mHwe7!&SH>EVnyD43}*RkZ$`js<Pg!VD33ob3p66*M{qBf-I%eBS?k<EI#
z(wUZrwyLe!eJ6DFk+cl<4@HN(Tg3a0?}`gOa&^{%8d(on){hh4nyR1Tmk&NNjlsF$
zdztY3?}FDv4U^p4gf-Z`RP6Q?l(6jT<Y-x;TXuDqrG&0#ca_H*mAltAsOR*2d$(hU
z+IRN$3sHGuOd8z&T}2j&R<a^?@3&qTzHwuLrLuTa#1^|UlNDkS7BL$|Ca`_e+7>x~
zQ^OD5*8T;HKX&Y#Bl_7=PC+m($H#sX%bX7@iz|hM4x3k)eUhB8LfMpqf3oPK9JiKV
z3*OdjVE=rhZ60g;gZ&b{f<m0fC(iSk!x>aye#*2l(6acM&xAz_rV6DV_j5Sp-t_Um
z%#sjJd+UZN$=@AMX(>Kd{QvIIk44NH;ajSoq;<rW=(v70Gg-@ab)(_e0_Rqnycdck
z9jo}Gs$4~V|9>iTUe|v9ka24ZYv}c}R&_n%A2-{iy$+e}9oEyoDj}~t{Oh}Un%r|A
z8EWJ^F<+d#K<0*$)S?xQWp?TY(KC3y^nRAfuzA9=mggVi`<(pn@Eu_jeOBeoT9MRz
z^v$PAs}=qwbDE9#zkmDJ!#aJUJnNg=mdR~*!}q`SvoMXZ^ipI_+2~r{nXecj%4e43
zthkL|d%i@-jZ0MrKRcFxwrvkNa!gA*_+!^n<%_T9eO5`Z<2v8`Cb^>RMz+Ab*%5II
zZiO~S9pBQzukpTJFm%nTZL2fW`<RyNh(3?pcUiS~AN#r3z58OX>ONFdlUEL2(PvWV
z8MJTZt#4Ly*mgbbI=(yWvfg}?)$d;lx*fTpZM`JF;#F!$@k!aqb&mh7t-2Z18$V=*
z&u;IqT$XdGh5sbO)971bCMyifHe|k#c=2(M&-(p+moFbJTVi5$uWg!z&V@OTCP-^^
z^D2EfImJG<;Dyqh3o14$+k@Usxp(2<3<0adiqD^>6;4{CzSF5}Q*-lrx1hskQ#QWY
za;-(&Gjqq1XNnrRo|Ow1uS+VmPL#a#%P{e)g`L2(4+bw3bRPO7ZESEqx>@|=w#K@K
z4zm}_-yC~<H*eJ>&Kj{e-Y4(&{3?`8&+gj4Zq@57_xg|37T3<_WKP&@F<qcV?9lQ2
z8t=~mJg+tHU7KCy9<Y2zV^D(Ksvp0rxf&R{4EPoWyy%fr2;y0PD74Z%X>Z^5n2&YU
z2RV)3zxrTeWG=L_={UPmue-$EMgz-~ZGXK~=Gm-C@#M^L4miSlsxSVJ=9g6aON+1Q
zndScJvU$!El~p}ipVO?IWB1JC$K%siDfe8@P|sM+^LoY?maR^1mwgur9G5nKGyRcJ
zOXm^O2`YVkqO!`j7?tNSX|n7QpY}_=d-0MtjehZGE{c4U*x1sq>@OpGZ{FQy?u%|N
zijmQI9W$M$=t$M!t~$Zj@8>MZHPY+a`r~U)b)k#E@)u2Wyh`}0GU9F5TF#8xBH?iQ
zo%*l)?)N<M3cGkjH*{ICtcy6=abfw%2}?~^KJNK`HD)jG)|M`=j$XgC?>|odQCZuy
zWU}w4<&grW!js=*Ox~Q6J7b3GqvOo`J7+K3S`gxWa@U!kmn-I<eDbkjyN=jzd3Ohv
zgC|V)=tX~B9N1deRGRlu-NZlfAm`IfRWj1?htzE^8$Z^5eNJ9J{!o{T-M^|YCj%VK
zLjEj#@xt-Xh8OWYA)>48D;@-j`8`l%=6)T`Xm^o|BW;nW`<b{y%0e6mJ67=C*t54+
zF4u73qqFOp*x#Sb)fGIyZrPa?=GDIrPP%(M{NN^6Rwt*kTu;v2{&)EVSL1!VfH025
zPU{VBvgDNK&$49|xw%*O-u2ySyZan1MOE*|CfIe&lH4-$$E#I~M3i;3ZoM_#6n3oo
zN`uYcg-c34X`IT5aF}*)xe}K#e~#UZ;yEH*a&1$NN<TQ(pBQlE#kO3t{KxWpxWg6(
zo~qp%eLUjp(ao{3`Tr^xvIb~9Q(rvuM$Ogf+h>P*`TUCD$a%zMpTgI4lTFh1gyYfW
z(rp6Y*6n)0=z3`Jmh|W=J8yljI5~MAZ@|X(*Q*2XS0^kGv`Z^1Hcqa&vYw;A?fS1E
zw%s0<#S?5IJD2)Y7Wo;s$7)X9^1!`!+4S}c+W#ih1}a~g5+yN5^z@wxAF85VqL%&r
z|NRAn*G!&b`)`*HuQd#;R#lJR6))I%Lr^Fr|KbXX+cPii`K(~;b^gPSrEvnauP>bW
z5fZo8f=eaySNnCo&-c%sm3O~nVQKpRWaeRq1+f!-XY<Xz+!$i_Ph0TfqDY%58(38{
zdd2>>$K0_ADbPsq_<y?eTepzdexCbX`(ysqO`ErC`UXA&-W_f7FJ5k6e29_hY~aQX
z@gcegqaVx*bGmZp)8(UK8F6dBYQ+bitc<wUT>f*N@T3WsSzTn49-m($!TO_d>+E9j
z#FWe>mu@O`l{dy+aFIOS9Pib<^YVxH$Bdn~-H89fq2XYy&b+ZhNq6SFNCCe+SEYWj
zJl$PVba>0feoYf8mlJ+`%S{bevoGHIz+}hyC0@O16D%+Mtdwg|aa3RM=LU1%=}9Lq
zZ`$&#{=RF2*e6AalabvH?;=`RPXF0HS+%t1&WfW!m)1&H?tj(eYk0)?&%FwpmRSq?
zn?4F;27F(5{`J>K?k65glup(;cJHjocdb3DoI$<pFC!%9<@TQv-hG(mllkv2^V6Gb
z3;0gvSg_51n|@;9k_&e7Z(8d5bp?ADDNo+9{Rnfm|9scpX&P4q9Tq)!UGXvX<I{=t
z;@*C1On(VJQS8>Yp5?WQ=kD^2e~JxSjoA2@tG4+}i_5ltzF{AWWpCM^$9MXo1Fe2U
z*mcafU$jN0Npo`Vx0}wMk56cwy*pF&@Z<w=6RN^Cl^d&GKEb|4xMov|da9Nz&(YaF
z%Z~oe@$KVL48D8(&tdO9UcqX6uAMvj>`{8K)%N+WFS+8*&Wx8}ms!SRx3+}Wc4C_2
znx#+T<}WYVRHd0~cS6$3d`*hmkDM*%*OfdiJSZ5GKJ84iMWNoNuCrXSAD?jAEY~Uv
zdciblqu61_<EmHxEV*EPvG&XtW{JxzFBYnm{0_Y5GVM@@i`RNC^|;uUGskXj;j?`w
z6#V@z=dRtW%D=vNoFOXgcdm6&i`87_b<%GaD(JSYtXQ;s>a7Dx8+Wp;c(de#;nZ2*
zk~Ae{PyY?|o&KVt`*`W?YuCSsyF|s@%M1IRw!5=DbmQKh@R}c|-j}_dw=VZ(_xssr
zf4%;(O?%bZUDmffCyS}PazDOhy>fz0=%UPI-at8Jk&hPPLGIn0%G`Wi`u`%r#dioC
zZC{pq?P2<xX9?Go?$m~EDc!MhL(B9;FAK9i&;1Mj%eo~jWvh7Uy8D*R6PN!7PFjd+
zW@=pty5$gR5MvegBmS{u)x3*r<?1g}Kh9$N6!G_InfvsH_lvrkyOUzyuYR^G?)d)y
zhik7s*-@CBc;o;>C%@r~n^V~W8=pMZ-y@kKuRlqL>9+JyUF%mbr&X!kl>H%MIpO>x
z<0mYR``p7;b}wC(R64=0>Ep4im0dM8f9`!({`kFa^8|yOtG`*-bgv0pzH8_8n3q9J
zJH-r_UT4{7`}D`vzrQ}b`}HF$@U!>^->aYRHWkL-U8*l)*O4_>Zu`~OqWKRF-nx3X
zuK3A&TfaMBt|~c)<X^x2wXSrooblDf^1tg=awl=`c=JQ}keF5U8?|=<ESLE@Hu1kq
zyLwKjMqejyIrG(56V3*T9Qt;u?w#=5_HsY_+Bf@IzrERGVo*Fo)^SF1x6+<(osRpo
zCYctVc@mKH@Hw+ndd>Um_r5XRT)JUD`+t|Jx9{qM=T-K5DxBI@ADL+4SjNl0^kPm{
zWK+aV*T!{o8n@5a>h#@qc#>K{$jtjfEQ;zAIvz+BO!W0$cIfHmeL9iFPC@Z!-+k6v
ze0sJ<<$SxeDO%ZQ)0Qvpw7M?9a9uiSU3%#8;0de;>l)_QepIrRar-G*zI4GZ@eR&f
zr%SMiz4-C&v)bCg15=W1nI%o++Qt6pnJr29duGG5YadRyB}5*rIaT{-+jagY=eLCh
z>*}qvHr{h^Ld3H2o17b4ZC)nw)t>OS*?rDWvG?qR$5R{BdYhbhLX1*p`8jTiKDm5z
z-<Hyvi`k1sbrb%T=w~rJdGPYjfx}@Uf(jAS=YGyl;M+L)nsGlvO!bjTe^#w~6x%qj
zMSPxW!x~Ssx2xjCSFAM^=r56ZoW&e={72JW&!C4625-9FPUBo4=oq{HHUraiu}bc!
zgWGsaW5o7uaORr8!#zPxTX?<K-rurkW=z;EP~*41xJf7F__NznB^!j-PIUR1H(m9D
zG;24<w~7yCEtNKxr=_2?ZQxnk+}+ZB;h4YoY^IYEcO;%fSGmV-ovWIAjbWFS&7v)e
zXH_z*Cn>UCVqR~vHdn9Z{@UDz4gBZgBqSCkJlVM=^I#{tc%JQ<8%NIuH)nn<&^s%B
zeXf4YTakyef0y6NzxQYNiu#wTtwD2EZT<A>-=sDcp13(XkL-BH^yA^-7blbqBwRMt
zymh}6mYSW(>cAhb*Dz=2Bd!gVt=cED<|wXvJXPSG$jPDwlMXU*JZs&mrkxNI?7cHg
z`MMJS$v=H5k+*plO?=6m7_;oSLQ`aVp_TiIzaMz=-kWS_nrVE(-->0X&9~>u|HV#A
z{H%&satr)g`S@sbLu`V{-qKHr9KRRWu*d9G*M8olSg|9^wxg9(aI%8nkHb0qp?eC&
z?4Q>1{oQ}(sl?jsw|nN^G+Z3H=)tee(_*Jav01OMSjf9IM`+oDFz(M6T{BB(%bwg^
zddlIuW_-EkP0rgtdW`LUt@m8gtniOxiM`&1wP{yf(**@vG-p}vQH%8GIk?s|Zyies
zuU{eGq`A34Y`c!BdM7$>yB*J8vO-yMZQ8b;y~zo6Z_3tm6eqYpuxOT@eZ<nmNBiVG
z-p3M4q!@l(+Q@1m?#;peyTa~EdZgpsG8@USiS>4x+ySjmH5L}KO0lI%tvPh9%ekpB
z#5(iqeI`4pt<n$A-f_-2!*Knct;=L~Yu_zhx0t+ca=zPtZBnh@_6EtDoNL=(7FXJz
ze$JY@;-U9!vkI|!SC58VzPWbBTm?tdPqJro^ydh_;db;+jX7W{p*TI@(rIy_Yq9AH
znoqk|&CuNAR&R2<al*4n+;wqp_zy1hxG`nTr%zA2*^axNjN<4EG}e!w5q0GCi@fkX
zHFHi{vRusB{qZ)#p*c*MnJ2b9JpA$T{IAh6?Qho{UhFC$<{WfLvWCHI&1<XI&rSp+
zTw1{}XGK%brFo}ZmMQOX`&b&0a$=v#D%p>!!5bu={QdQEc2b;ocLe|Hjt9p+9dw=I
z#K^iMJJm_&u9UU8h`^r}sR60GeLs9{H{Qp0R{weDvoDvLg&x+VTD+8wIC~^=)33y|
z?1fi5&Sp(tweA-W-{<Q*-;xFQf8~)7-^}`JHP?~%6-f!Do3(W$+53_Y-Ky!g^y7ZP
z<CZpi?vhW}<7atZVEp`2B9x;rVh;b23<>F$hcT`a$9^0v$a&iPNKdfIroBzqO#a@i
z-$$|(&O04lI;(%q&J)gkTefc%w(DLq`J?BxOHxzKx5-?4FuC^5w>_IL_w_^^ueozQ
zd-AD2@n-TJPCcjf?B;)Myf$<9Cg-gRtCrnPU9$0}iQ|idZF3Isr(6x#C87NF|3M3>
zAI#fCZH#WLRqz#fW~H&_T%uag>otWf*SYTPsF^JJnd7@((C?h>jg=)HTaWk$o(*A4
zZttJrE_3e8Z1?`K%`YD?E#Cg`?`Mum6~F9Tvu<rVILEx-X5XRL6Uw*E&{XW$P?5D^
z^W@JOwpV7y*jVYb$j@-M(dOZ6_%9=(vFjE8S(jC3I1lN!L>S3chE`T>?TBr@T__iP
zsLaW7^0KEt9#?H_S-mp1bVsbL`ReRHoFZ*mn{C&LcT8PXwfi{#Zr%S4uU4H^v|Y6N
zu2a(5SGB+L_X;pn{P8q>Eft)5eRb_E$58pQ+oi?@y<exiS>Bv;>~ZCL6BQTZeErq>
zm6oBWv$pQ-$^KBO@;mB)gYXU=yKRm$#b*BuVbl;+-yJ90_b2l6^Rv_TtD7v|)$M=d
z)$yxNS$jUs`|q~x;?=XSjOyBwU+R@qd_VkfhvmNRw;t@7dF)3YC@3F0>bZFKe7m&r
zT_FX(9A8(krGBxU!k#nzkj=!Y7gJWJX+>%HH+DOGn`Zv-ji=tye$RO=6ZrnvI841~
zwyosQ(XV@_9xQm`bCbzt;*Sf_%y$hu3eN2ok=w(+)PvQd;`B37?g+#Dc_*2kI?bw?
zY!obX+-2T@cX<y?Sff(JsxJkLom?1DCLE)uZzS|`!LEYKIoSo>pPHC@kDfS_J?q)a
z<@XFvePUV|E|Re!bFxL~HqI#7Ibqu+)i*pi98$V4+`Y)z=c|j2dr<J<-21w7R)zh)
zn{&U(+Q8(k2KS8lujapg?fq|7<;ybmO^@w6=HL9Nyy;gXClCAf&fpKek4!9VV&8^O
zpFK_Fv9WqqGPB^ES7A&-@6I};+sGvu*)VG?WO-07s2TqM#af2GFP1aBHav*jBoo7V
zNjGYv^nBIsySAA&eIFCtULA0nEB`o^l`+aqtm{c{|Aml%oL!PZIj58IJuSa{E7%)t
zpdVI#dUot9!~YLfUw!+w?)&9uYG(gVU&#&F6{NVod|BzqdHbsN-uiUBA@sWaUA+RP
z`Cbp^Uv5<knyhYdIRA{Sx*WH9lKX~PFMTfWZR72o8jv9RLww7+HdC(7e*Np)U%!1?
z_1h{eKk(%{-(OFH%0=#d-l?;E@dx3#!FS)9A7|_4Q2tOES$rv|ul4QQs@?ZCKhUno
zS;e>ewMNc_a#m$!$!&YMbmoa4nJNCyvvEQ8W04C*6?<!MS)9D0?_X19<JKn~>aF_I
z{15-n{(ke#7o99Pk{XO0!npq&b$zm_Yv(j3{ll9pxE{(~w(svyDY>igJ$AyA-JT+!
zLT7H^Y|#yr+^8tX`?V%VMptsnabb?G^wV(<@(wUD_g(XO!|;DWhtkQP3YvKfij5i4
zpQk=CU^rDO`M_nirplw9&WL^bidULE1$QLHPuZyX{N%rFVV0E}Q>rf-UXJ~rwD#oR
z)17N=Zkm1X*cQtmUcGQztkBa>zxS5$mYvjoAsOtw-8cQKkoc|K%f9Qi(w$GQ|DUy*
zX(zi%Q*h`5_ItHD(|D#GS5m5){$qZk${}+GleUdVnUgOcHebAC)~Um{K3tmi)NWm^
zOtj4OrA&uql3q9Oj^86<vSC;0x28yQiK%fl6XSRuPvT>nDj+)POoY<W$?JcAd{Sec
zG<Vz2kl1N|m~ToQyX|^-wdU8}s&(lZ#=X_w`##<6n&vS(syOKNJGE2l&PEeB=KoB)
z|84C$%gmEI9p%0sf9o*!_T$Nye?Pl9legr`u@#SI9(<=5QC|1#;Nmv62{!}n|6cm8
zEB1dD)3)?|s$0^3E&3m|+<ob;-Y;7(e_r*k_nX%3!o?AXo3xKOFW9NG_{OSQ#YagT
zw--1I@hS_P?lpd=qI>gQ=iPG?Y*_h^Y@U;D;oorXdwA&WyKmRJJLnm`ja&8a*YteD
zNiL=f1Jqynx$(bINMt@4we`D&)n>PkF7<P5<-Yr@5%7(zOOA8qDm}pC&eh^9VARLF
z<;C9QJ8V*1EYB`EHD$@&a<0GByTDrIy7(o<y9buMaf>lhuCKeHu!MbuMU}5#Q})F<
zObhvzTCRD>8L!~4eyzJhq;uo<ljmk?+?mq+?7#X6zEg9u8zz782su&qR9@BkrF8wR
z39(y3@@5-9vXc8&RCXpd^1Z8i=<kP2PhHi$nRobkGmCCnt+GRpYg3(~KckGucAlv6
z#n#74y`J(pKby*MdfuGbB617?QLG9+yp?laPf?5Ru!-Cuyz))Ly310Z#Qz0XrL3I!
zY;#PzrtqByI$~XGC0{Ydv|sOK{JUlO8=ISnQ$$rG{Zop!D8{rO%6gt#zIpSG{vfyf
z8#museAsPJ$nfr*T=j<gn>PIydoww{sa-;1+ru>ZcjuJtzgOH`@lK8Tfauf>QtLe2
zTF(YguD#%Hl*b~u{DIN5zeQrF6Dl%Zsm$qIDw)^Ve3LWL_e!H3t6py4%aYlXbXX6T
z9-6!N{vyc?{sWxLoo=vL98PHd)&6Mavgu3PJWSkdVuU_Eo^`_X!0$x+t$wVNJ|4`P
zF7wX4{a<f_m-?*QD_f`kN!s&!)5H0X4`&rP1>F@|6sR!yW6P(U{tV_y2dT|-CH-Qj
zN&Hy<-}I&X`%FJcmTtCEM-%?wS)1N}YyAD8qj-yy>kWp&MfW3;vLut0=Ra60HorkZ
zWP0J!nw7OF8Cf~q$u~-FeEoU&(4opr1#``Qyx)1HN+MM8&A}`4SSru7Z(`)-y<>Lk
z)sKg>{jwb|SDNJSzS94@Vo589^V4DuVPVddvadO9njS9cw4Tt<T=rnM@l2zp6Fg;;
zCOAqizkQ-$ksgD>636e4Eb_eXeRmV+Jm;VECYk?e_m|$!4BOalz0p^z>b5*-%q1hk
z+}y`~LcgS`wTE%TiM1=F%-AOE$w(*=PvK$NaeF><hLmXr-+|Xn$}XHM`8Xey6&Ga0
z^IGy7Oe<h93qJq#=gf@>QGMJ`m{#Px-7vGTB2wZ^&lUr=mlK>Ha7ZjXk^1g^S%$&E
z#}jLA&wjJLH)mI}zu)e)^Z&lyG3T8*#|+P{x8Ht<oBv&`#WHKjZky9B3QAi<U)@}I
z=zP^X-erq8S-zcB`EAy=vqa8-TUv3+i9Me$cRZLax_Dzt(WIPRr>0NST`ef(wBh%&
zNXthPyniIB&GVhTyZq{|HK(=g8e|enukP7&Z%@Sa)V(VoPs$UD_&ZB)@3B=s*2vlG
zx~&k{wqkXvWvtu0$5$RWsW1Mlt)$$Qw*UUxuCG?P${ix{VcNTn_&f=9O?aKPd6(|4
zoKACw6kn^l7b&aWI@hH>HEQeQSGhDTsqxE`7R4X0RXY_QtDM@pFSgD{_}Of|j~6u_
znR;j&>3VD^{J5U6>f-AIA0MP_7WZnJtMU2r(;mHt(e1feTQatEm_IjT4Jyd&&*R#Y
zc(uDKYT24iF^z^oIVKLTeH23uSS)eUkpG|~=5)|6@>`avY+~*Cd(*y7xs`0?FRxM7
zuO6~(yE3ET2`-%tFRq?pjPx-!sQ=P#+_hUdD@Xg-w-c8R_B?C9zE{+CVP$&3Q@a<z
z%}bh>^>xoY<Wo3v&pW+f{pH$Lv(g{?cl~@LXm=^(-q$@+o+1<O_KSzkl31E4^6crN
zHR@lwh4#$$s9JR+Y4f_5Qr{-mZpvD>@lI@EwBPfmzm@K8Ec}$A-TH9Ji#$75gRixw
zb%AH^^&U&9P>tRnef?-tU1QYE+Q|LOvTyeY@-^Pxesq&w*ca^$uTpnu-%Q#Sw>-Nf
zz&D()JbHfU>QA9NYqs33*{nBxy^sOV9L@Ihog!{FCCk)!ci8BMT?wr${tzNvY4CjG
zbXC(#H$DEqDa#K9Uth;HtLw|&@Dm!BHbyL;rG25fTgl1k)RMjC<${eFY#h!iy$)Mv
zDYnl&c5Q>ux|grh|L(h&B$(~e>ZHxFT#x0TU6I?lwzwv-pkq9OqLr+Tsuy+~Q`3ss
z^LE08eGLIqG?{m5Oi?++nLEpF<IMJTtoB@<-}EMbsnlF(BXyFENA}2M^SEtGkCch@
z-aMomy2^Q~u=jlabF1BIN;FQbX0_C@yJn%@^Z47jJ;m)s_U~(^zT5NX%baD0)zAI7
z;QfE*o9rBhEk^vO>$uL}j{COz+=ByYT{e@KG&2c?T<db5>*&`l6}6gWcBaxcm%S^d
zU5z#E-(PTrO)9GW@uJ4Yb!N=>@-F^A?<d8Y`Rq^2_d^#CmPZB%%?lJa)mXQ*=<dY2
z%`?x1%@$cI)Kd9Zqfs*9@qWQ&Ho|JBxOBQMIO`~tu&s;}5#spSaIf9G;8HBd98bm5
zi9&PgIhH(O{UEdIsOG&kk$?>wjiN;I&N6PYUGrA;qphySLzg91H-fGe+)Ydpl=>Ff
z^dmd$S(4|ywrm;Ui)CHjQ{Qm2=lyq6JbKb8=&i`spS4R~o#2fub=+{|TYSjovvXcZ
z%kXZ}5<j{l=3LiqrvJK~pF(YNY(oEVSp7D&u-N*Z<@V7f+#Tz;WMBEn<#cM(*+~-o
ztJbp3KWcY~J!e<n`Cy+HI)}}Q-&n8h{<-_g2QHl-X~FA$HAy`RF#G%Mcp`J!4#oTo
z{XMSAD_R8mtB<*7J?B67+VOF-0P{_$_X~F~Jh>t1GP{-+zf$z7+D8vUs&0sPu3LDf
zV&c`CZ%gWS&-7oc$!Q(Zw9Yukbnes&CnJRu89{E7f{NqU81!#Z)3|r6?Sc5uOB`Qx
zluFvl9xA$iJNs4jOTL3p{hnQtm8-P!3XbQkn`bL~@_^od=ZlNfZ+?9`J$(A&hT^5|
z7J@%ltY7c$wJH7n<!qI8^K5?qv(!!5I6-OWCzi4|YPO+ox>qk(cJ17;M=r9+!2bEF
zrzMlm-m(hM(BNj-zteSraEIDywV!We7@s(uzH`TB@Ap5q=hyG3nzU%zjSs(8%dg+}
ztFvyQ!JE^6_TC5$xP9ze)#nxI0lmDpBcFv8>t0&PnXD>qq<-7KX{(l+b$rvc3$+{A
z5)}1)v({`m6w%RB@L!&xYOiV%);%63Ch#NQeNyw%OEMIUjEwa$4`9|0E=?+_EJy`!
z%rJCDK94ymB_S~-AtgoR(}xcqi?}Y7`Dk(*7@C+B6)|;s{hyHbNAa-ov)|{#+P1!X
zu6^zO#6S0wS$6NA&S_|1XcV^H>bZD`Sn9I$DH=yIRE}q8Nkm0SX;>_KqP|p%C0uO!
zl4oMt70*<ki;F%HSDm(G*$WMeXHPU(8cjsBS(b_|7n{0t*^8f3)Y6x!Xr+j0t7wTV
zU6#)DRdnexjVU6k%a%M-6HC>8vRu<5b=mS~Po`_H(5!g!{K+!0*NT=R94wCK5`~`r
z-uJiqN`LmE{igq9?#F(%{c@Zy%&vifnW3oOYYp}=Glhp4c*}@eeqM=7YH@N=W<g1Q
zkv@p)mYI`ktY8QZ-5{`t6KGe8u9=a7uBEX#XakIyf`zF`ELhGjF*jA;!^6kRDL~sX
zr7Xb2(AdbyN#89eF}+y9(o8?NBsDio!9d?RvA`oWGd-h3!9d@!I5{;B!~oe0VR@D$
z=42*2=B4L=_QyD9Bo+mymT2f#r55FDBCjw8tx$%nFm{A)>oI|D(=h=pwFhm_0WEe9
zQZO_%fNaw-1uu41Ff;}4o>4F~HHM0VQcn=__8n7@;X&Y3q92f$o~j>^SOjvN8RU8n
zO1JNrf`UE>*)t%QLp%eH3$Ty$gHn@AqD>7fVW+~InVRca7+4sXm?)SU8Ng13H#4))
zGqN-@Fd}Y?f(7oq8sKol;R+MPMhPTWAZ?T&(G}*n*X4s^4ZAChEe-Wd%`G51MojfA
zOw2(0mp~U47#LWBML`#97@HWFm=d#TB*g;v4jyot!R`uE6JtG7LsJ7oQw1{v3q1p4
zLjwad1yfUFJxdca0~1pPGeZkK6EkB2L!$0CNioMA7T^?%-4&pl6U>baK>Kz~4Gi?m
z%`6Oz%@j;Pw@4UU7#Nu<m>L@Df#r>e3JX)*w*`Rn3l3L+u5vLmGXU*ZF*VY&G_<s|
zFjg=D#gl~zD1=PRjP*<mEDVTqgoPo_WC6~s*d1YNWT|Ih3eFcMCI)(zpq(Oy3Z|gD
zKFrMwj4c#QObzu+Ow5SfQk7zkd(((1sHnj13S$#fJp&6%OG`5aLlX-<0}CTi+!&i0
z=^2310_fHk3q4aaOH0rOKd1bnl++^drayyNeV5eY5{;77+ybl2ypp2CoXosz-3mPM
z0V+Nqjv#x}h_Qm1DX7p18rZuNzy&SDE6|GD(#*sNOU;d3Ri6pJJ?V~zAa4(|{$Ifs
zIa8L{b*EOX;pU4Ii#Tjo^_+8d`@zfm1m=CbWPGDh{s)`gi9e_6n)fF(PgY$Sy)?`_
zE52c7$IQNITE^O+pPZchUA``T)pPUJ>(7UO-(NU&<+=H5d&17W4#@mdHh<=nhX+Cx
zmfzU4_T2ig@AcJ>S1&i88g`5=>8F2%=Ku8Rt7b31t{pqqeyV+b_}BgC&i&uTb!yU{
zuKVAV)sIfmom^yAu`#Az_x-*9$K?4>u#3j%JX(3*eEAOBr9Flgh5vSk`ktNqt;t~G
zqI`MVi*0hE@A#5^0t<UM?=4cg)Vtlf)qL%uuUBrFwC>*cp|?+KQ`uA2sL5{SX3hQ_
zUK9JL@cvJEFnMOuR=b*m<@y!Q>v&%|XV;Y9xTVK_y*YSdPLBNFnu;#Vvg<X*7S9Co
ze!pl}x^TEhD($G0t45I5=2Y`}Q<i18fBN?O^HfeTe`dL=sZDDm7$@xL+;q}?-L~0R
zH?zI8d8l~%gF#a7Cq=V{Gon`~WxZznD7$Pz;-3S|ToZnY7AT8W7*C(#a?1MA<jIpJ
z8O^E`@%f$C5hR;hn#1%r{j-hf`RkXC-U@krPnw@SgImVAdTM8M+}5KCucw%9(Qdoi
z)g-NX?8sRu>9l~J^KB`w=H<3~usQ0u7*+0^==Mohx%5Qg`V3(nhrX$OVmt{=M)Nf1
z-#%Aa%vpJ2shjPjr!}X}IjN|mI?iI~>RVyNw@^yWYT@%==h_)Va(Hr0jqCXpIF2vb
z{pF6P{wkB%d>rNM%PlPAd{>DC{1%FI-+5z!xsLbb>>$VEYRtQm8M^g(pEa57*s)TH
z=@OGw`@R>=d0n%mrP<tUw3xL7_``j7OUrYMNhmF6lzG7*qx#cX{&9C|<iE&BHy_Qr
zdkeZ|26sJuEUqh-xMKE%J02U|s+s<X&eblswc~uvB2k%ouhh+)eub5(w*~j;XY8H1
zdsFd(-JcGXv*p~J%yrZ9*_5kO)^3sSwC&q``uft8Ss{0NyfvEIie`HK^4sq1sW_p_
zaMs0z7qio~p1CeuxKDajpN;VU^i|30=NpAoe|qt5fdKojmyVyAwtnBPRdrkSfv4=>
z$(s)yn#HqB>D1n1vrn3E%oN-e=O7V#D>*;vg;TYfz*ctcnI3nF%$H@o`}X~Cm+JD&
z7CyVMUtIx5|9q9mySV+;ABUeoZ;G}!{G7!xH-E>D3wu7v{yKAAB5+@F*OUI@U8fa=
zOd=y^{alzer=2nU+OmJ&8K2lDS$6$&Ic~WBvO4<=_w_oVw+?Dwvb?`nNKas@;M>Pr
zB$@hMRx*TtFI!~oxWA?2`y8gVwNsv*Q*&zK4G?;`<HxByyY3J3m>DEn@+RvtCZrX!
zur75HE|+I$cBuMXl*g>lA<ZsYpS6+W-(Jn^(EF2<vtxRjw_cUf;eTs#$)}a?#}u<e
zD?S-b-g|Dw_P=JYtg5&Ck(yrmMmyi8Y`xmAhpS#Q?-0K2`6$KzcKn@r!7+wqtb14v
zNLILUI6QRM)m+P4GQ&?RbJ6+TOWv^Ee>myUu1jYoF&LLjVhk|66!Bq4j;EpDFGj(F
zLq)>LQCpTscqqtk+_&k4g>Z(UK#JQby{qhp0%oSkyy^V^Kc_!(O;6$BIm-N+TCI0D
zA7`>=Pf`-hj$0zPopt6@^Gyybwx*`f`q?DFdeo|~Bu(szSklz;y_<ud9KJU*<Vn)u
zpPR~;m9O3F@!?j7hlkFu9}9xAnJ;)>5J+EZ_WMX_&*MDV-$pa6_w`ktnCyRa&X(z}
zmn@%b6kR^u@bSdR=ExI`Q~gA~-;OZ6WA%RX<AcfGiDnzzwHBs%J7zFhXdmQ1z9Ogn
zCts^tzF~y~liTv&EB0>K%6O>j?Y^i56aKtN;*hgS)HgY~uz0Wj=K2ki@0Nbqcs9UW
zJ!s$ht7d+BZ36EVmxlbhqxYiP`NE8tw3@b#<snD^yxSoz^ZRb$v}-X99!}}v9Z?IW
zNu0>LbjkVKjJ)sh1>t+k52QWv`*d^Fmic|Td9Uwr@7J3aYI9M{vf+ZU-I2Uh-m|A>
znP2Ug*>-%I=I5u6fAP<L`z*(o@zB~j?fF7Nk^6U46sxVj{!_Zdp?2rbqhFtWdUO8y
z{ckhbdtbK1G_%xsIGhN&#kp=bbAiO=k256?y=qXX?zqL9`s$XvFt78Hq7Gpv8LRdt
z`&_oSz8eZ^Zk1nIa-)=i@zPtNwCt{<9&<~?LO+>Jxwr1wo|z1aPucE?=@hCI@dxPc
z`CAe5`V8A655{}{o@86!&+%HWD%m@$^z@Cb%lACICHP`ZjLYs9cJre>L^q`O?~oU9
zZ20c;Vu7V~fMdUBwx-&`pH4Gou8?4iD4t+5r`YPI-P*d4^d8UlolAtSO`RhwZo4V_
z(4|yy?M#Ie6O?{&-nEhTSeN%HRpIm1rF+gaBzHTUGFrEA^4wC#7k-oTza3n-;PSe~
z-*+Fad3F84Lx)_);`Y`T9T9alVXWc@TCROGv1s7sJsM;wA0X#nd~@y%FS{BEmb=m^
z^ABv>8#qPu+9D<I$G1C5ton5w!#YzljCu4WW&YO4gwHqMe9K&mW2Zq-Z|$O0ThHj+
zSzG>mr9`2s?8cv8lHa^#vp@HiO<gouW0_a%h7C_k0yw`!hb1>AHOZNrJGwLL#nPt=
zO*I}qr%!KeSa3p-#acQ={Bg6Bon=p|dbP8UX2~N>zN5k>HCbD(KK}LS*QP+9h5Kq1
zgE)E5e|?))U3yt-={3#MFE-Z(TAMw*sP4JgXhHh7D;YOmSMn%L>@@J7+uHH?O4iNC
zQ!CA$@Gj$vknfwnOLoqtBXc*sZqX?{FLXQXiQT&Gv)^x@J^Sp}wJE0@J--=!{q(D>
zIBm_MUq8P+x~h=wCdOaFtZ1)WD}QoMsnWldTy3e+3tBr57X<i3Br<IYeN{H+f6^m4
z?`I44I{)3bw`x0ALdr%3L)N*aRezVy%-iIlJMC@+D^pj@>T(}T!H2hB+6bf`7ume)
z@`bCXv!0qX^fYqt1u_2mlEpgdxWbm*`EjE69e(ZC;(Mw;?{869-uCn(UPqQCN%L80
z?mj;0^zPEf=Ms(|Wxa4Us>;UX<o~QU>;*ihuEtM|IOB3<?i%^C1#6h)m=8p-mZW&7
z={|{gzTmXbhuh~*A2e~?Il)?V>y7Es&gmvc3QL|#a$c-H5tHTQ^Y+duzk8{>nl-<<
zmHDo<eJ{?e6CM`4?MhvVU1!3y1q;{sYLxuFlFH2af3^^d{h6g^4PLynl61E2j_Tjp
zJpIAM6A6oz%FZ6#FPfM%zx$fV(s>dE_s_Lz-MaGo&cqXmQ5w}L6F*p$hv@4I|M`@6
zfoa|2dul&Q1LC%=ExpaSx9*W(_HkCu1`mm~ssggkQHv%n<kLwK(-U7<$t1AwQ`3nF
z4VxDpu4#0Uzigy(%8YSwD1)bJV4t;0-%n8`VTDY|-MO>m&rWC8G73Djk!6a3uJc;;
zz&f+|Nt2&0ZE4U;6$-QeV0KMP>Nn4-Pzy^IzS0jn{+(?+^hSk?*Kq2L-wS3fDZeIh
zm{GoKXVuSjA<-QdXXuG=ti2)}rId8d=t5KWieGQL&xVCCM`><jVhTE+%J{LSI!&SG
zRrl@b>(@VZ4BA##%jOdFciGSFmY2VlEzoON{eazei?G4((wBvQA3btg<5uzS__J-F
zYko)Bwf@qdeQfE<{r7X`@4Xk7t5-jjIrpgI74H@C_tKtcAIY4%l_~A9j`_FvLwi2n
z@O`yEK0a@o`S$hkj~8&dEqT)2efwGQ>e>GeS8aW=V`7Zs3ugUi0?i-SSqOCgsb4Tv
zyzRl(Ez**1rmmi*&(5nvCs#f+{=s2)V$RtDmo(AYo)h2bY}q2XdzI1Wr_~=Hxq5tx
zFMbi${j&XNStIM~f6W(O`~6v%E;#d{e(Uk~vr8<llnE?h`y(%MwDl`j=-u<zr$q6I
zt@U>+IK#H@@;r{&o~mp8|4%miY0F{sYjKC;!vc|Kp8Jg61r;w-ieL+1wSRUZt)XjP
zXGF^8pR7g2H_z?<x}0g5z}t5k;rqKUTrg_eq}=yl<E@*D<|}yw&qjx`z0vB|>`Y$$
zA^d=^fM)J1(S`kcl{%V#rft2urcpde<<rw=j}@$|xjH0P9{kSu=3Momu12|t=Qf4?
zcN!Zlm%KWC(`irVaY3aGEKmM<8~?uCa`9H${jc`dc6y5N&M4AZ&BVN<w9<25&%py3
z&)yc*?U#wV*HSb4OHqNuv5(J__TGQ<L;T7yXRbJ2|2psZOVhUe{`*(!@6*d-Zx{Oe
z)w{C#it}<WcRf+|<o?e^A2rr574x){*<TU7geiw1&G6xuteyWG87747zWdJX|C_M4
zi5vgSlD9gt=brqnl=(VtKV8#iYpI`T_|g1w!=9gM<=16zss3+Sr)XXJL^N*^n}J<{
zy+Bry)SX4|mq<^4y}u&(oIc-tMy7flvB%pq0{_1{D`~aIR_Wc}C!z1M4_rNvCt@=5
zrO8DfEvdSlY5QZ(>@K_cS3A<n@tBH!vkLR3MtOlNXZPF|)ZYE4^W4mb-W&(hZoj*A
z_0fjIV)CDiZ{IQenGhI$G<iXsu}RJ2<3cyz{OY~$Yr~Uu`QO}}X{T2BE$ltPAFF5J
z{M6^f3trx19J9KNAD(VmHD`07(qGM-4P8I%gAN#oojs#iTU+tpa<yp561g90<$f*=
z_KS>;ss+zmD0-o3vu^2)4cA#8bJ<8Sb3{}~onEXd7B`<WBqsYne?^FC<_b05qfNRO
z9k|4rqyN>Zl`WBZHrGnIR`_tk<L^$Zf`sFCIDYBze`KM-@8u=;{m&aV$Ai@(Le_En
z8wEYOrY_ubaQ0@4z1FktUNz6V{;FfsS%$}R{-vjXj9|_+wf*TJ8u*ae@W}6NcXo%n
zN4#qClDCn+!=UhLtK${MKKK7Bi8Vbt-?8bv&VJVz=Fpyc_}J?8>pkKw%-c9oKKO|B
ze7ko)KBii(U8ouOJ?Z`3t$P*Ydc(F>9~RGGKNIa;pDDks?ufWcw^o#TVMNqo`Eu3;
zYMN8DE`Ho|<*C5uyo{OqLo7li4T`$uLeeMfdK7x`xsOK7#E+3L?WG?GY+PHRBy&k_
z!(7vX4O48i+D=W1w6I^V^)O-OUDYksZ|`j|tWuGYm=GrZuwXTp*b?2De-?4+$BQ`3
zIwX?yGGn!hn9Y~mhyVK~7@j}J*;;dQUVE5cmE5gM(hlyIU%P(z*&|dI()(G=W3A_}
z7iFipeKH~<x+PaAHSfGRb<Hg1!=bsooSMZl>ec_NO7l5F{rl|h{yIH%ZDx$J)M}#~
z2`~9WH}75V@RDA%%qk}{P@{WqVy5cN4P7fkq$E%5X4_C}8}2wkJ3?^H<`uK|91AUy
zFzYW8bunbI{&v}T@s_o@LOq=`FHVf)I-x5P;TW0_#3}e)MC7?{i0qX;C+0?VvK!Pr
za9Dp^dXWx$P-}Zb=Azg&hYJ@RDO_fjcZOYc&-%lKEV9cRqs7fn_*Fl4e`JyH$m+r!
zRhj!Lk&GrD!d`#&)O`HJbIPw_|8n(5FG?3K6m{s>*Jd}_Zug4sz9R3{Z?Y<=bbn;+
z+ZH$@F1>zU!~NvVHyjJHBSPmd*?uhG>)GdJO~-sT-FxhBcf5k@?B97-_f5W-+)CUn
zr7mpAz~-76+B%W*98VcT_<@`IEDtp2RjfF)aQD$NrA+5(x{n)Y#!lHMtSfB0Sm4mJ
znP2WJ&EGIvsmlF!<)24VH3`!ewfk-mIPa98BD=8i%)it>%1a%OERmaFd$x3kf6*i<
zreL$vuGXDfLS^%lrEVGamVMtaNnY*JLNnpK<0>Djf;D89KAkyNn|o!+=D0JFW+9pV
zMVWiD%H!2n#OI{_QF?UT`j@S)a?$t4de=+pADn(ta9#e>=?iamiu>i7y_`AeY~sY=
zebH}!IxLj1JfT~Ef%~2K>&`8_+b{1C^Zssm-(dR7yXQHocYG;3EFn9I@jm<96OStu
zm$dR{`28=u|B1uq=EvUbcRNo!Q@!B0Y-av7%QJ`da$nEd-E*gUPVEWyQcg$9i$8Yy
z?_T_B(M$ae$Is{X=l_}Wd8PNoa$(*OIp23i=?`9K%bgclXU=ZN<-70j%ih}}2R>eF
zR}`#Gjb!zao4F|2sh54<b=w=f65AtlgX{vDa?f2!vsBp}Z~g0A1iR~ui5ZT3XHs?r
zonH0D!KXc4;SmqZoTkgZ+vUP!_pN=k=k-Oy^WS%;w;P>4pvRfoZ179z-qItddM2#g
zvT)}1-!acw3%LA_{LFv<S-kwW^S;RP9qH*ZR&hIj9%*fP<9Y12kJsv7_SX(8YOY*R
zawO0(`hv0Iq}f8&ESB@Of0}w*#;N~>%)4n{)f;Q?JZR4ki)E7*vNy4MG%<Ct{gP^~
zMkbqiv3#aHXP3v$-u>Z1?u><|_HF-CK3>&ayqT|pH95>IWB+%%#XOwp(pj7Gx?c#L
z3A)e8^xxZjLCvb3IWN1T6WjkJ)GCPWIvl<yFyZPfEsaYnH`a>ok&SK*x9RTr9_^;t
zzHp<`k}IziK9|qleJ84Y+v(EC>7QA)H%|_paX?|k1ow>3+dofaa#yenno@G}%%7bX
zHgfRR%yd5NE}{AUnZ3#W?~6?NCfgm_{zZN%|2-QeTcvgU-5-TZ?wo1Si3wdPr`NNb
zqj3F3jf6YLXRN*ZYT{%So~e8@RzL2Wv|)bO&QEKe_s?x@+c;;I^7%;?&P?1#6ZO4i
z-D((v)RSKE?~R-Opz=(mOxJWNWBIKuOMixKxGk+H^PS<xO6&fK+)aGU_m&%%29}rD
z|9hy?B69in_Wo3kS!WOYi#c^c_vp+H)25gPV~$xX<X;`+iBOPvYnZ|idF4(*PwGUm
ziH=vMY3^9GUPWz1fYgT$35&R0w=dZrZ@=gG{?Lk}0jlQ%U1Ai3#Kf{pR(Q?k^fu!5
zJKBB2cH_(!->qhACN2tcD{0U^xOeqxHcQPWo}F3eM9qQ^*|Db24>S4D!KrX$)uM;e
zjOW(rMs@M)ny<@vvLf4c_srEEEr(amd-m#SH{+wO%@T+HXx?PfWq7npE0W9DM?+hC
z^40eAW2)Yc>kc1n-N+Fh@@J=sxuBk}>Y=HPP2Lt#odu~Knz?#PF_9m?%yRrWQ=m5X
z;(`gsMRbpwZ_5y9cJr{7dbmYaO#8e*T$r>F^A;;x$>RUgn<O7_J!L*w9PKeZFxijQ
zuT=VU4%<8j&J=@izvXj%PVvq<y-?qO*`3X&UtZraed@1AKlV?R;9dK0P0#f9*=^gp
zPubj&K6E2q>b-fumG^<ye@Ru{yuq?lN+i>4<J5GSKTl8HdlA$9ds_AXs@nV;7Ls=@
zTCxhJPY;>?IKwqt?$Mv}#iF@0JpJYbN3F~d?LEh`e`oiWMHioL5aJZz3(ET1{H?%6
zO>VwUw>rz&O%YS)*ZlcecxQ?0rK=Cw&KX+8_DV0G_+-KBg2#q^CX)O4%sGx~+7^{9
zexEK7`#8OPer|PYS+)k}`!2q;oX1ucZx_CP*079YquG@(B_)N&udQxy+%@-%RTbcB
zJ9>k!O`<5$p#N2ZvXc3aI@uf%qs%)$_{_8tSY}jgZ0<FilkdOi%bxc2*}jVp>s$%m
zW%yuXhL5a5&-|lRUg;WTCQGFk2X6Z~>u`YGT;Z29pUuePk!1bh&ls9sv(V~6g3j70
zj~TvZ-Y-}gWbWebP<nF*UvS*(iCxTpDx3>FOcwLZ*{cxzQnGrfvG5JW(1WXIs)x?;
z;`>?uXm#24-p5@^D;wFWI-LG(XE}AWrvA!{{$-p@Pr@H^a0u+ykeIkl!efcUrNY<g
zr#HWl{KVpRe(ufKcRD+FZ!QwzG;rzOUHtw|^*hVwMG}%p=YL)6KagJ9=JoFG_L+eU
ziOOfa-?@nyOYr5lc=)|zR2P4-wp`0{r}%7{vcp#0%eQvyQ_g-WJjX6!&chzr)w2xz
z!eW>vP4du_Nai?Fxrr(8$wblPDn)+LJ=+}iZr&Mu$WZl$tdf+BxK*Nd-{l!!=C`#~
zw4HHcew5)IohT;NbBO)$<_ihh(No*moZqZD<6?5aWyga4^a}<zSh$^@hb{B9*v0Yg
z@uAP2xgF_GcvW}EH%*V$(b&dj{d|j~L1>iH>OE|S9cM&b(9CU+;C!dXzqFzGL(so6
z=gxWqhpb-#Tn`_*ojg59+KWNBvQEl1JUwNhqer~f=@>aFmXlkBw77Y><|>(;XJlS_
zu=(Z;CN{6*-weMb@H>fA8cnYE<7FuiNR;tsJ0zI0Z&$;%#j@eo#gFQLWw7?#)T%3d
z=!A$&lBCJL+XnUzR8mxHgxco*Z15Fpsxb~?l<<9SdoN^7$t5+rL<YrsAzW9vBKV#E
zzcAElo-Na39L}X4D)lx`N6I9+t#Ph|?}KL1xf$o144pUXR5>5(xx>)=Q{%pY@8w>T
z2NnsrhcmUBzq%gaW8m#c%Ko_Wi`T0ic?OFQW)^f!ev@9>=A$pgbwucW<XPuddkxjP
zCid3<OW*H5y+K~?A9JHY-mK4M>TNXwZ9Ny?E=hTE@p1KjwTlJG8i6S>^X8l|xVc8{
zvB)e=|K%MH8Sh^)*Gue{n8xQG7x|#+*vdQAjyaJZ_|xAl^?UzyQ*pBMHk-Pyi)P!@
zty=%CDq?D~B7@{o&-c}pQ|GLop1F=Eo8u41$J5=<UzRpTK2By!u)2^^@#<l+yE^aZ
zt8bNjYwg{xJV<x@W3%xJQ_|T?|Jq4G){e(~pG=d=_+${)uW4%gVO2%NjI#@8EImB!
z*ZbA^of-;rmLBAa7G~{_D-;U!cw;D_J6p*0->RsKF6UQC@$uUI<+0}Zuq8xBz9MSf
z3strTm4mKs8&AflY~+l5T`#Zq$aKQ47#G>oi<K;LW+a{sUekL!>Sax4@0Nb~32H|#
zGk(mga1ap>ocWo}rLlX9z}%Sl5~H9kTD?KPKj+o^ID0s6Ir>%PT2O-g`aSb*iR6f<
zO!+Z+gP56MPo7?;X2#6)C!5-;5B=3R@;ln;$TSJHPYN+HLb?k%z8u;7ZsV++^4E=8
zs)F(g$q!e@iLK{8AAg={u4eO6&Jwi@{?adRS3mlDHfuZ6#zR`allCt3H~4?_VcWls
zj~9>DmF~T(^RoU%Y4`1~ZTk!r?mhaeW%sUo_R;gkA6Dodig$Q@^l#SpwB5U-bsyi{
zR;y&&!zaG_?xS4cYU{&$I09mRY@KB|!@q{rR)3qKij{iz+jqymCKgIRj_TTUPw(;0
zZ4pOIUhZ6YW!mcfITOS)J!UsAZ7o?~wq>g6l9FR$iQ7N3?VhngK{fxe-Zshau3|m!
zUYc^BcQpQSeBr$6P^bNqda51I+lmSCZpuxcmD}av%Cy_&HAkap(AJkvt9HMi!+cTb
zs;%GaLsEIwH!FQPW8?oX+&<_38$-j4u7#x;Nye?FAGjg}=P#Ols5+<TPU^Q{qsT)Q
zFDKVEZ9Vpz(?lif;+M_YMc-fhexH*tv2K1{-Sy<{Iy=s1*>0UL^w(t0PxY6}UF;QI
z?KaQn`WtfS2IpU&*1h{zDSqD>uv9&<@qonnMSK6&_3&&x%oRNIIcG}71dGk}D_B>Y
z+%UJ0O>&#jS#{?%q7!-Qy)LnMTwGV?|LcdRm61YSR&6Vjn@ZU9<r)Ux<^~mO8hh*L
zEEcj~c4*@c`(BAqBlbJST@7nbbl+L)QPH!wEo<paP7_s@e>2QPnU;lIx?(r!kyTTD
zl)tKt@Z=a<Pk&X0qmmt#>z50KUDm9&GP@~bdMzZgBy+Ao`s`I~t1>oh<(QWiCM?h8
zW6{XTvV5oF;{p}C9JVk+yQx1?BKYnG3&dML=6RHz`YS^`V!hc`-j)LaOr_iFJ<eIV
zH{ZCXk-Bih7Y=pjcQ%^mWJ-fQ=E&H*EnUI<da29-<A@1Mczcy?)1-AYoumXWeyH63
z;vVbV9Jv*DeQH_CG#5@#<jSwSvt!?jpEJ)|>bl3DvG}Ige813fWwn3eE9Y0M<+pnt
z%!;XbbFVSeVP|#w`t^D$#~YhIEI9crwrEZH7Sm~7-WNXRm41Bo==AD|nTw`xVb%4J
z(iY8p=sZKs?cA(Q$5z~O%v)F;%{@_g)0M?1rc`iEUwHiB`O?o;rR&{TyO%!Om{KpL
zEHcH>YdQ0=0HeEVQ<lwoe&ET6M#r~Pjx+8$+M^<`VW2o!yYfs^7e7l@na;k0DGtw;
zi_W*`n09T+kNbUhH*Y*4q2+G3$<$j}EVAHg=QaOWc`Jd?<LjFk=XysenlQ3#%Dk1`
zWH;~H8qU8R`P!e>msY-<G)E!nv_mb6q)ez+{)3Z#r>fWaY)fHV%)LvqSLorciEE`Q
ztj}xK9_z7tB>i`aPs`#}{UuWh`KB^oSX-{!GN;o!!)cXMLP{=A^d6b_eV1LTOOjci
z_O7?>aXe_L!6?!9ZpEvF$HzRXHl#&3_&0wQzaqVApKo*Szk89|Gqa{0D>Mw}2?%jp
zYP0W8z)8!V#>bz8JeWCuEZn<sV(}#pw&|vU=PdP(OICAP`Wwkj|6I0g|I#_xe<du_
zcQh3#XT95bcFN}^yuZILo2|S3%Z249Ew9Xca))!S_H(`?m2u}*JD-~{du98Bo;k^^
z7V6Juuu4m>O${h^o-87vAAOeh$H`_Fi65UfCi$&8B*1#T?AC5WL-mcV)z2R&`THdW
zoSAAiGfD5H)QtuM_dBz-pNUO5!E$8|ch@Ol)9?`HpyKydS?j!3&%R}zWViHNTMxs!
z>+AmRm=<jGAdxLcnE#pA&ZhGQnQJt?-tBfex6sD%#M=_t^$YptJ@hLrwTYWh-BPOe
z!eVvqq*Ip*Z|rhtXyCv6YfjH(w<jld=+!1jsweXP*wDi+V_79362AM8jO_H3Q=v23
z(`;qMi%v|x{BfGt>)dS<gfD*He2}drCUM&ypXRw-JEsYk$h>mdJXheyr^ELj&0bU`
zEG56Gt$3Z!-`9t_uW!EK(fUr{{TbiPj$_Q0@n_d)Y}>rkWZRRYx34zZy$TX-pDk*~
z6uZtMhrj#w2am%2M?bZ)-(O$$g?)wB#%P`E-G{S0|Cj$z`lFXy_&u+_<9XMkx~<il
z@7_Hc?(+N1*Jm4M31)O}-+lD0-9DWU&nseTj8sZ??~9h#>Rq9w8t9T;@k(~q!H*fo
z0vF_(95`PYWazkV_a;HcFY9Mrc%Ogmy1C)w3CI6`h-}{11uD-cY|=fXYH<1J*SBT+
zqs|=`)pWG+_@=_c`)!sN`}f<o%iF(}ZPrgOX0%!Ps4GwXfvD-ZCb^$X>fTez3xDT1
z_Fvj=vFOIW&h-^uDe-%c_;<V4Pdhrx&T@s%#+di(@4x+iWzLUZRl)mz_y7KVHErj=
zd=Ck`;~O1LFziy;zexAYg{S|jiW!YhwXBN0F+If2rtPoe<;Mvr(skJaGPZoX43<6G
z6z(c{Nc4Z#-}wA{K}u2&`9HqWdNSqCqxByzsX276TiErszn#^{|Ifh~2D<>s3EJJF
zdjBT(2%enK_<FW*?ko-Wcz!1pr6<#G=@+b+!nDgmabCA~tKHns+;s>39#ftmc<Yr#
z<jGkv`y~@~@@$kWt3*{fHq}i(EW#0##h;ng-qT|%a(3aPtSW;qm#i*we)}0=(BHmv
zj?9_EBGLCa#dyr0or#ovJ6*ZECGNf3dYy#n3uYwvzOS+HN&O+;rky;~MJ!_No=%@X
zk*$&kA6`2mX#7RYpn^-vR-jS)jPT4C-)v)5k2zJ&yy3I1x%9{~p$nOFI=b(qKQ9&c
z>OI5rw13UN^Hp2ln(?v(u9R;&HM@Jo*6BB;h4@870yr0TaS1euul7|8y0yq;%KoRp
z0_kOY&+RIk!&XtOlb%-oY>sidPesDVjYmIJwR9&|ZBhG@=iMs$@sPsTh*c+r4(mj*
z<{cLjp5xlCrDxcBYjW)6NvsLSxsD4wlbe*0bKP^*_ln!Tx*^e<c%>V^wCoK~ur%p%
z`{|s$SfP6MyDN?hK3!X!Bz#9mr!yg!r{cD`>f-d2`R^r92dK;w`X8mUt&{8W#*}-`
z35`2hr_Hw0*`{lCAW)YnIB@2Yqp`aJ537f)6*1c*^rHIvv9@rl^M^T=*KeDaVcXtx
zhOzzZ_I)}3I_|Q}YMpS#*CI2W`?l@dTwbZyx&4<fh_gyQWc>QNJkF3Ih&gxyC;RsK
zZU6atvXfs-bd)%)QZ;GW<(tmi@3^^doVIQA+PwJdEl-m)Y-(irC8Dp#x*ygs++TLf
zHJRu2?>%?fYI+&nF7-|>UKH4(Dk5zA$9$^7(p$M1;!`E;rS>f0z9Qb9+p2KVg1c@7
z!(z(^4tvuJ?{-cyaXP8^e$K5EyX!37^Bz|0u->ly{=~<c@O9<$<7@vu4pwHFvF!1p
zX*qs{n#ohr&y~o3F?T#XX|A~Pn+B`*4cqvbcG!k&-P}0Iv%X%s*YX2D|Gk>n=-k=O
zj!9Sk?RXHGaosLD$8)xiMMP;tP2sOUTjG@yqNbSLQT-b!UAQJzBUoUogGOxe0he(5
zkokg(#sBL)vD?O_9HMBuYqFf;8co;gMYWfTek*82_{O;Xi4Rd-ul82_`1yYGFxAD*
zyo!H!R-Kyr*ml*<eHp*q?iRg{ZTsi9x?ib7DQy0J-OAtfwmLiS1QhvY@x;xVBl6_K
znU{{&HW+5}IONH@HR|-8pIcelZ*i_-dgb2hdYdzp=X+!YEQ^p`)+254#-uO2Az@A5
zf+@>|cAdKH*LsFgF6#KpjZ@G1a^BsWYZkXyIHl>abH-f0iIZ1$rp(wYmbdoA)B{~N
zGgr-LUo^|G$oK8)&(EwHZ-i_<`X{UI?wYh(jp}<Ho8<1_O=hkUO*J#%6yVysLT;(M
z$lhIhBA2o3i>mF;6fKI?oBjFfpJ%%wm%R7+TDxt|eHAg;q=z4y7M<|Aq}ICs06TjO
zzYNpih_JI+bq$$WtF2o?Kgh1y^+QlTaBo&=v-*=sSKn4{&Y1S+p7QxkJ7<{B`4xGF
zb%_M0o0pGUMe>=)t2tzqS5$BA$Y*LZ+pqY@{OJ5k-KW)?|BFr(`PIHK+C^%grZeL#
z#=R=izi-(co0GBraPt?X#1}8l-aL7GTBg-j)@es~uG8Ht>a}Kv_Sr>w(YL?(d#_kJ
z?dR#s*XN(}i<8;=@V%(lk9R)~pZw_l@2J%GO@G(NJnmbQS@`hmWjn3xWao00M9&E>
z3NJ72)1N97l&Do?6VIMqx+nGb3Y)BBO6xZkySVp6FXL!8;=VSYkzsqF;}fi_j=_u0
zAPc_0i(HGN4NalTbxlDFKZ6tu%?u#Ra?PO2b<Lp5bs^^yD;S!YK;=Qp;6UoZi**$Y
z&A{u~6b#Lv=9xjwGl!aI4mHmlYMwcG`7iRaUvsdDG+Xv-4t6-wvR|;zA%TIu?AH*q
zoYdUHz|cqmwCvZ?+`_=f9OQRB6Eiad17iiyvR@MeO9NBlj%c^QeM~$!+;O<V&{WUF
z!q~vTNWsj+OwYj3%)r!0!O+M+&&<-&z`#_&%+yTJ#Khdd$dIT-riM6|cY-4wha=2Q
z^-MuG0~jiRPG&bYGB+?XQ!unJ&@(qS2dyzRH8TSr;BP{V8`AK&0hB<nyTQU(&&(Wj
z47`Ggg@K-#i4o|^0t*X0OH)J86#}3IuLkBO2F7N@I3Wd(6F_MbyAuqJ4fRYdOcYFv
zjr7bdO+ago4NZ)|abjSmU}9pdXJlbS<eKATBXis_0m>FQoM2|GXKDbtnn1zW+*r@R
z*wVn*NWswDK+gnpM7ptpv4ydoiMgSH0a1yv0{1!f;5?4q5k?lqdWJ?O21dpT#wM0}
zhK8mFMurMTmd1Lfre+Gprj~kU2F3<P=ETHAvN7&c>diof0d^-Cnp)}^SQvn^g|V@@
zo}sBRC>a`>S?ZaZS%8+L8=IKxnVA?G7!kGXIoa40cWi(PH|(ykFwrwKHUcF-BU4bY
zn}9EFFwrwJw6wG|RWLF$*0VG-GB6-2P2vp+P{E4B4WI;J2`Z0_3{3URKx>}O6)cVQ
zER7*<Ff`LMG&D9aATl=agafEh$L<CrV@vQw35KBZ(NfRc($v7v7<`w9nUSTXCAg$8
z0u^G!Z3@7XIYAW)b~jjB>RA|@f%Bx1A$T8vfw_XAfvKK>sSzld7#bVtnHYl{MohBA
zQ$T<#Gwg0KH89aLwlp^|Hc>FOFxE2$Ej2e)0PP<!Gc+<VRxq_R*0V6RFfb-6QQ~t0
z?sC$^0F?gBL5b4T)KU+$=-$Ls!Nkx=&(OdS6fLG^mU@=PCPY>k#kdm$xE9A15axP@
zh8CckEI=2`n1QmYk%FnAk)APlZ-|1ifg$A16QYVKJT(Tm34y~AMxebarl1Pk(85^H
zz`zt#Uz!?2wgZ@0Di~TC>zP;@8yFH*btdB}vBB*Mh%3n64?y-M637=vm@61V8eimJ
z906{ELHq*S5MW?nMqoq0n((_tw~tBARoi*Vxn#y}SNE2U|98I&6*(^V)9G7CR&`>k
zkpQP>j;9l&hxWV8Pa{9^)HeB@-_G5@;=&m;`(qC))9(BC>z>!7$JfTsKDlOIistmN
zj9=P2wmn=QRu^>sn)~{Db3dQ-tv%A}lbWU;F`Y|WO|A5nwa(Og7Pc$97QbFRxqESV
z{?`_Ny><N+)3lnuO8(n=KIX=h^eF!|BAVsreD%WIZ$3$K`+rw{<NQh8^#_`|#FlNy
zRhj=_{eu`^y?Zhn`?n~~_OY~6yzuVo>g~%4x!GqrMED)#-<Q0(^hwj-U!rUOJbcuV
z&5~~uWVmv>Q471hzPIWv0gu+@$E+?dJ+z0@ahX%)&F+xx|8x&MUiP^^X~7@%Kfl%g
zuuB{4c|U(|_tuO@+g6H{tom`?rs#FhYSy=xEPSstly%14<gY4LDxG(F-}d!k$?x`f
z?-l=3U)a7sFUeBsScc%Y(BykEV%7f7XDz+vEnBv7*$XA(m4RvhFZh1j@S^=tXY|&W
z>Hpb{{upo_Or4eaj{nJ@8M(7LC4;8grJZ6|_1bBAW&SZvd8?PRf6PrUbexv;_-D)V
zLmc8_Th{8SZ0O0ky+*WYvi|EY$6WSbPLABovGK}dXR(@k>molUM~!?wv(`!_zNf+K
z|1Mx<Z*_VaDts)WnCtOn9g~}n&(0M58KK^Ea98?=f)1sxe*C|_{nr$YaBE4sm7jUh
z{%`Zdh?!kJLZ5Q7rfy1nd_DP{13%ZEp4dtEW=y=t>a%ql*Tt0~-n!rWk8F8qr5HQ;
z-Tvx-7h5%|KW7Gf4@qAYzxdp|?|ZhIm;K^5o^t4M<15VrKh4x4`oGO{u{D~#Gj5s5
zv>F-R{aY(0Us-Z9Z_5E$wU?(E#B(i*6SkOyeqxV$d3QlWnDy;xnj+1|R+wt}sH8u(
zkX;;-DRRSeb>07yaU$%&1s3Xl68GQtd^XHiD0t2qdUGk$+uvsj8E>(y{^%%QcUi9U
zyF<eb-)M`6{QXZhB;Gp3e#D+FYAR!qqvW2B`y$~hpWOME$FiK`h}va+<sF9?3SL;*
z_Ir<66uYCcS<fBCO4$-6PVHlRrubgz^JUxe>vup~(UL76J~*8V@H2J2eg64&cE@s&
zA69ijA1AAoJv_VI``Oi0p@20Pj?OHcywYp$$HZIpN%yC(UVXG`<37)2ObHuuig&NL
z{rvaQXVd0A<ay6sbtEoK^lRD9h4DsD-|SlRV&db&_h$KSTz8m#`o`H>|M%QbkvV(v
z)7eEa&rd%&-u*qWw^+55XX&Zu-5)GxYN-bwPkUMwth-J~@8-73eA|2Rn|8>GH~LiV
zDz;GPm@XC0Bl}LyVZPhlB;FXY)US`jMdzfc&C04vntrmdMD<3k<3WeuP4-H!o=*P}
zxA9ZfWPK+GvDHrZ3Y~+cyYf$Udar$-{`2#;J0hPWLQkJyyE<#Le4XFQsDG9>C3{5f
zn#s$1=gohkx$~RLX_e&bANSmPTxxf<BQtpF=eIpx^V%X7NX+V<>cx7uei>7}Zok<7
zvZ|_CZq{>ZEp~d$Ie55ydHVA7_ltZF`q};Y`sQrq3*m1M*BIV%a%kLQ@U!X$%WT^>
zpV{XA;cV;>d^&fIgyVOHUB4JD)$@Ou@oNd`c4YFDDajnLJC~Vv;J1nW|34hZS`Q{(
zC@s66EVJ{mgSuj7#-BIVxsCT0RGzx{Nm9*d*NGybu#nHeuWa8jJ>yu<bx(G6cVx4$
zV+8lvZhkqBsJl-?f6Uxi6n!zRdvV`gsc)w_Qf}R3h&;GCvD|g5#&ch1_ZeS)RrbB-
zG(T|Uxr=~2!y(SAO|@;joW)I3uYXBlS|WIY=Z>P`DhuYXPp&Rn(f^oRT-G}=@!cP@
z{m~(+e_OV-%uoHN`maDI{(L6;GM5{U2V?(m9-K4vY7O)LIh!p7MXWAvdSvA&a$^0A
z)^aJ%XXXw0cXb}FIJ_pJJ$_1UWvIC5CdCO`YDDcK&CZ)w-f2;qy0*P?s_<^hvi;mk
zf23}^bM2u?%Q2aR^3#*FbQOABj_m#B`=_Fl@u1oFrzQI$8ZD#exAh6CPha2V>zI>e
z6t=h_v3u#RvVV(YU2i_vxMrV98{fkn{iaj3OfD`?-r#&o`R+MO&v3hoJ7O)?KgnAl
zo0Z?ky|#JEWvSj<p7&*!97|!?HMgYq_0H}aS&DyIcI;5Odac;5;ac6X`4WLMiZpKC
zK6-YWmYb)9kf-+V8lkpHSJtjC_*0Pfy+3z;`NuvN-qqVzhuY;{5P#>RbijXCTg~dD
z`@5{p#mi0feSBndsD%Haoq2KBnf0bmP&u*B{ptOqk}dn}HMhU6l+~3ei&YH?3tJZ@
zeRrYeuKWesOL$s;tn}YnQp%t`DJ&<vCMT>!$lLq=YVVGn%3QNTtrun7DZkUfJTc(6
zMyJ@0IjqX+M|JLBTexP@F`2U#E6cVn+gaT{OXPKf@>02IllU0*Ierg!t(bN6QfqTo
z?)8??N7kM-?aS2;G5dHH@2zLOz4F}Wg|9-^mi#PLu(Hf=jkRTxyD-&AENPO9RJh(3
zdwEx0y`XvTDo#!A5vh8kWhlmWUd4b}@JhGymx2m`y(OZDS{I6Ygy=^(E_T@cKx9h}
zM~HUP)t`^n#fUxp>Ss5p#D^nmOI+*3#<Qw_AGqvF+`VMwCi_<f?<XGOcfYICqrm*a
z#(kOR9o?^=Ii1p1Eq5qn&VHuI)|wv9dRDt?TTUC}jsrT2`r9`D^4_Z%W?H+{<*>r^
z1@$}4XEq&Ke!=!|%@Upr2h%G}#*>;;9>2KMmUX2^Pu558P`2cApZZ-lL>_I(y{o?L
zw8lqm-&2yY9F0e6msK12*<Li25b4tD)?|+=J|9|m=fNM(j<?n|>$)C`9g&GDJ^!*f
zu=%Izt;c(#pS@NR6AxOFC1)C~Tj#kWp~Uurqs*2q)60Yzex3Qs|LT4Ivh;v!lY)~=
zY$T^l?>wfuC2oS??4vom&#X?p5Xd3*ICbO6_0tl0RjzI8D2usZW>gTr_yo)0V=YO$
zZeEV&mz?w_pxtBEUs-#nm0i>1KX$fwHqZZi%Ialw=BLv2&L22suPbT3o_nJ4aLI#@
zJl~a<I)-vxs_Z{pCdN47*dnQP<$jhe&xDsgIMT4=q{_+*am7onl^pq@z<g14I`4#y
zyXS4Z-W=;xS|N0}?a`vyvjsnD>~ym>QT?X4?}qt|s7tHs?$4P!`Hk3)t&{$(egEPe
z!$Ka({<9fQuY?jaf7MH+T73}@&*eMRS3LLoHs{0r(>YJ_ac?}XC#2mmyY*`Ctb^Hy
z|LxTC?8`3Ouk+0OXkm?fo2hAqk5ayTrdo(=&Sg!Z2hJz1+`g$hajD1mox<*~XM1Hi
zJ^uSvNl*Fs&zx;*l^$kg-4C63J)l$I^=zws!fR#T_x0z=YK3?;Bz${1@zoW<S(>XB
zmmNJ`XY3{`$bI|E?J4Ur@)j^F`&f#uUb5<lTtQCnY~R@DqK<aTOUkx)S~Yz&`|opI
zIcBm_AP3JZC59Qtj%m#ow?5()wqUo&*?Fg*l;-rzJM**R-}HTI4C$UX7d@&?D~)eC
zP}Fwi@$>&*%D%O*%{tHL^>}Z-xg3AN;?}&SKda{zeiWMiKXtEH*%PyK21%?O3zkpd
zXS6uD;$T!{sxrHEAJ2WJ)V#$q7I$TM8}GSnvJJX-s7}tld%mN;z?0wqlQu@a$yJH8
z;+ehXYy7^{A1s-bJC@3M{IZ(iWccOgi&Gk<)^GH`Je=BIU0YgJ&%Lzx(<u$f0F~e?
zZ*~WWX{3j%n4A+Sla67T?vS{`;oVEk_mVRG)4IyDs-oqNOh4Q#*Pp8u&=%6bwerWm
zyZ^k;v%H<B;uP<6tn$RWvr`q8?osGdUVdqHX5Fv6-D?+Q--~aNKCo%4TH8zc=?{-R
zinp&iw($_xgmU4CADrqJS?^}tzVf<qZ>-Rz3~qVJiEiRcj8FgIV5z!uL7;ubTC;~+
z8<V60Tqj!`c(ZA7BD2rM6miDK9nlKfEpoh*)-QPX_@1`Mc0)ZaZ!i8CEg9dF6%xwN
zmR$~eYyM^KEZMU&!j?5`2+E6}^`mf?$@wjA>!x^l37@*K%i`m<^CwQS^quX$G~Y@5
zX1&u|=jdwl#4Q1<W?d>RD0~s;aK0da`uxTgV_i=5Ma#cmbE-YHmtAztnWf$R7v*g%
z7vG+^=9ip+|9Q5hN6)UQw)9&!ooT_cEoM$X0}2CHN$pns_<Ltk&jgigw?cQuJZirb
zv1ZnJ?N33)VFf9^2^)?$Oz5g&YB@1sVM+Yk6%!6z_~LQ3GwYu2ZiAZ#eD=z0JboaV
z_lQ!?kp)f(S2b3yh!*#apD^vNv#dnVAJ3h<J?_4&`7Zq`G4EDclwJ?(HgHJW?~tsZ
zvOlLRR>4)iN#o57*Y{@c*RNl5%(I^NaXs&!6^TnNehIt^P-SPS;69aFpdDe$uG=iU
zXYIAnV7=G>!yNZ?Y}_|<x_8hs*=jwh_wL5+FD`d8vESOwRF}xPgKZ0M_zBKq&r@&P
zw@Z8Zi#=Rms<5P|Bwg{LW=<soXM4^|&6-pjp@=0ZCp)Lxv+sN<!}ugF>*<utkZY&+
z{ulgtWyLq69<A-^+n-cr2zmN``KiRy?ppcndxgf$n1ktV3spGho&M<@%c^gp8Jiht
z{WVnCa<MP-%$c|3V|=aaPuZ++^jq;~{bY^9J9bs<G7rE0&_!uC_wgGKC1N?`m3S3q
znbfWj_t)8~b$c4`tl-8uA6&lkILo|9+k7kUn&P#-9c$itU7Og)G+)DW%GT3%A+a+~
zJb7A^<LMrh=&1DN>Ar&Sud{x;32uztCZo`BXr+4b3B@U1t}e9~cpbD>zKL8^(N$*c
zBog$NS2}Teh}|i9*N6AbuI|ZmR$if$q%IqrI$O76@4HnC`MK<URqWnNIClK)cD(&`
z&7<E(ZYdcZi}-hOg5uV{29}=7Z(O&w=l4CibFti#DED_U9^3e2<F?H%t=yi%$H6q=
zU59gAySd)(WRYns*HdE__Pfk6`4rVY#qql5W`<nV9d{=#7k>NBC*ynF5y#z&n<v#x
zXWc3^eRB(2_l|kR0f*9Sd6>j_E{YtHUZ%|{EBlXY*ZW<}OY;~@yEn|@yn0}T{G{`<
z*RJ05(z;^W>ZC<c@5}G%Y2@@yv0GV~AUto4W6(#@E5^DDL#leD?ba`w^ll}eJ#Xsf
zJ5JxGFA*tdk+617*s$~UsjArZ_b+j?p1QkMJa<Ohq<DXUO9wspgx)1jy5bUEJNJq+
z<3j)N!~g#UI$aQ#o2w;Y$Qe{qxVdUx?SJP@N<2;5Di3~sWIS=Ln@DT>A*X2>a!#q-
zN6p^c7F}DAV$U#N`%{U1Sz6@mgwq#o_s)_`j@gv?tvYDK@v9%!Jw5Ph&XLoG<?iuJ
zQWt`!WX*e`^dw|&<OTMlL2DCdl{G(n9kH}`MW6exi%HryEF5J8zVBS^ULp8}`>MGp
zM|sO*u}9^0yYK5vpRMhA^^-&jU+9t5yE3gW3HBX$y0PokONWBOLR+(z=@L2yUwzAN
zhCF%{bnKYG^xsa^>EHKA^DS8H@pkr(tgydNuiSgPaKh36_lyYctcNqSBewQzm>i_~
zLP)?z^ypo_N(HrRmV#<`t$Vn%Kb}rtdLe$1b5?hVQLWOg%<Wg_XeDm*KfU_wRD}Zd
z*jEwW*Lh!FQacjEdusCJ1xjv$W%BmYYm2@(2?;USOKj&l6&BIe{`k!4z_lN~MNK}`
zVYBRExk*vf`sb(bDoxpWu6=j5V;xKK;cN?jt)FtfN%fBnyuPl|t2S3;Fy?qPA!==E
z!Stxt8Xbqs76zx)rY+2#^Ks?k%2>zta>geN4F5E@a@=NY`PCHkMWnat?A-^fx7M4t
zUpg(!`H;W=ufTohVy)h|S2MqI88k24IeGe)60ddNCd6#MZ#Q>mzkZ$2>y=rxd2tmL
zQEz3MpZBjntTJ(aTde;U^`qR3>oZwflzsmM&v-sr%W>V(x6L1ui>@BN+!1r0i*c(S
zhc375xzAS{Z)`Vos5(@1Yqm#2{rodVAL1uod3o7B|AFQgopxs7mJ^pgK3(y|F^TK7
z$<@!lpWnYf=lPyGUKb{bMJtnEoH(!7604Dva^{?3+|-LUov(kqk$YgZFn58)#8-JP
zl3zMEN3&nGj|kkgR4=VB;^!sZvooWmsv2zk^G@FCSmj&omYsUBV$0U;E5jPt42o*D
zU0v$5fv@N6N=flU$35*iUMoADJiopr@O^LE-@2WgEV~XIm|7(6(DI{pXV4wn2Zy_A
z?|eLd!@tLRJ>%19NB(|TCwO<${v%TqnmoP!O^s_$Sax8OalXq2&hvUpSbBKe7)(0v
z9F7uuRFU7b$S);D<XfhjTVnX~Sq@rv+MFgWF5PnVvBwYPi9f!pPW6^~nH!b(a%R6A
z^WBt<^;Lc8>QmMpytTyh_=jJIpB|bd_QkbacJb@^%RjP6tGxJ?>vXAOT9Ban{gitR
z-&dHO*kpB3WoZx3&ia}a3rvoEWV-Ogt$v!f%~?~8#F?+fKjciikaNcLlMnxsq-oX{
zv_zDDtY1*M-BFmCfANW?c7vPSR*IQ+n^iUEZvLINnM-8-hU=vgFE($#@LI)^y;jad
z)B1?@pC1#1tXmpfFT_bi@aRpoZ>e4w-oUXz?;6u7pZU)uCK}Ikca&K)hs!6#II~Ey
zN32C{_Okm*OcN)CI;dtB*2(mhs9Q!mDR?YaR}6?aoH(&b<8<GdnI9&XEwn33R=B0D
zoUs3snxl%a|H?Bu?JS+kkNCgsm-*xqJgIAGo#cGO>g~G(>V5C7G~|54_32LVE%8ey
zE((8AWt6^l;QJ1nkpIU|PO|tNak;N!<%G(fH~-Zf&-Zpr_?>5zt$$g0?p(e$SKrDD
zD_bp1b{Z$!*tCaAh3fE{%x=AY<(N1p=PM@P{JRrkw#@!|d{gy0mP+0Yp_A^}cd&F`
z;Pd!UGUdSWsLIa83Dbn*<BZc+-Fi~?Y|jMG+3ELH8aVl+v)B~!`5o_ZzHItfS;`um
zzKQn(Z(pEi(Wcc^J0t22=s$eGy!z*!sB&N1<>x!j-8kPSemkwW_4C1_*SfPDKihnm
ztSG^FOFy7o{*YMHgjsK8cH4b%wD8%jHQk#>Q=<O*?7O$wZyot{FO@O<V`AL8!xGc?
zuC=OC*&UTv*z^7Csy7u0^X}%By>^ujzr8g_Ei-4sqAh>V-rtZJymfb~`<aI+?;pGn
zx?~yCYbkJkg5}M>%NDvz@6`$6J!iUp_RqXXv&MiAyK`1c)}N`1I-a^{;*lpze4F2%
z`g-~==QG7=Vv}rQgq^la#1~%=Q{-9KuO-Evx$0Ee^@0Q36LVKD)4RP+aaQn)=-FHO
zzt&DK5)(=;j{LH<@I;s^OYi#0O-xrJ?uTE=HJdYa+Z~;CmEF@LZdEV8+%he@Yl(pK
ziI($Wson?Oa&NBDJb3!A;MWWBDieg?SXK3$wOzaD8+UPR-HuHTlY5L5bS{0|<>X{_
z&bBkOyNzQi`?b@ejeP}vlU5kEx^!>*{I&QF3sW}FE{Rqj2`SxH%^&L-LoU8BJas4S
zg=x-`!iT%A^INdZT9_49^P0)N;FEw+i-NftZ)Cid*HevS|2N0!TIMOIOEB&+nA4gs
zkRsf`b%*73tm!>oHGLKdmW>m2-soJ(y7kOOH`8Nl^)oR?G0R@)^%3j4mPF)iy^?o>
zd%KJ1>VLoF?=N0`yPx~a46SL?U+?nnzu$MZNB{2>Mjrm&p64t4a>7;leHW+1Z{Fyu
zlD%QitSw4@&2kQR!+f+<I`r%I+<f=gLE=TIiT?cAk3#oqomaaw{aD|n|M|~_U(S{P
zG{cI0Qn*-s+<{lC7TsI>`rCc(USIBIms%_$e5J)tCGB03xA~~<{zbYI{^drcbywYu
zS#15S^j^03!Yd)Kbs9b;y>fcm==s)RdXMJv$mNF&eBQ1J{d(edZ7|EUk79v_n;n&Y
zu$XP;WL;tH+OsXFQ(yR|S@H&vYs-6b3_ALRznF^Jv@Tzy&v1XbR?7s<Yr$HMtlgf$
z3Z|?zPuchV><(Pv#OW*}*-`YK=@0*x-1R~i;@PJP_;H4Au}@=|z2nl4gYk2eOMF%)
zhkOZilrx-q{Cw9(ttXC?E>GTg+PnCTjwADt?F`{wUClwWJXqGh3Ak{aliTuD*2zD;
zo~a);EGVB`<rT5qwq)Lw&03z0J|E_N@V#|gMOAsnz4Erklg?2J#Z9lLpN<J$?8z*6
zylOq4(TwX$G@bR9Uq51UckeUJR?a=#pRXA<cU^Hz)e5>1c;`{L!?B7jdWY{$?)Q#*
zvwZ7m|C)v+Tc>U~uJYF6%Tyk93;Q!3_A&`aZf2In&lNqi>WiB}>Z~1h7oYg}aLnlU
zOuFFeSC{zusBMhJrK<A73q#i3u!=lgJN@~y6-UCZC>XupJM;BHpDY*O*$K+U;{Iu^
zU3RaV1RkZvd@xGph}2SMpUXV;otoBN7Js&ai`O1JzpdfCys%k7TXm;Lwa80tMN1vm
zFN>v)<g@vkD*WVB?#_9*E9#M}htAUEV+95;{(R+<F_EwrT~Sf<W$K&A)?ES@9a;V@
z432bsbs@6o+#C_XxvMLB_SFZ~ok{$m#5b$M_;IY)x%%`6mY2$zR&wsPisbEjP;YE&
zAjoZh?w(PV$o2W>&kDLkANZ1yAuhk<{Be(+lU|jaQ2Y{gbZ)w*%`EF)qsHV-cSQHO
z3+Asn(4%l}iFM1&z>1ezj_W=IeSP=w<z?2CUd?&Wl$Isk=3UJeoPGRQ$yBq+xm|bv
z$o!D>@zf0MPj~*Gaf2`W`0C(yt;v6jxg2HGgF9^4f2I_q#Y}2dUNW!wp{9`qqp3@Z
zfab*Xl^3Nu(#}3m@%J%YX*o~kMvdPWVP1vz$sxgv7X*XM7V~dt`0kdg#e9(I;;~f@
z4eiX1c7F5btdV{?@#C?l59^JaL$-X_psH}yU*Re<bK|rZmb0V2zvn(-9cc2Kf5Ky{
z1)Y;8nlRNRUcVN8wriXE>+JZju-6*%*V?o1`rEbtOpT+!RLPoyxwqeZH<g{b(6sm7
zsRk?e-5on(jCL*S%2RiHk?{4J=^UvyQcJaZPTINhrH35vH`*(nt7dq8)yk8V!EdI$
z{j}?t;a%=sg7<!weNjDaR%h}<!ugPM#G#Z#myNf}&hEQ;Ox~pLW`4Ws>bGC@_P&03
zc2;fFA~kO#@7Xo!qRN*~Ejh8H^t;eAktfy`;aC2-_+D`T)w8tmo3&F*`z(eVMvqr6
zxb;Oq$0y0qUX+1lO5K%}-w!iHURh*a@-&lGh)1F0&P2JXu5;A>9A(yYR_QTc*~7(~
z6gboOdP&CC+Nwv9lS&pUCOo;ZQ(@Ur4YTu~7ke9T(<}RPHFR&}(X7MY7uwur?c09z
z_%p7Xhk{Q(`?2B9clNJ8@)yiqt&!hSn(0zEgR$B4*nG)Nid%n9xVt{*#+eTy0a{!W
zt^~iDaZC78+tv>zji(rwIH&ggFfLfe@i0*E_MdaXszy#Lf~Lw|`o}U^Q76T*Q1)`w
zl5Ue{cb$aO!fOw>`i3kq+x=qpqtE;rs`GX{nqGO>BcQ-^N7vcUF?W*UT4yU1?$FM2
z^<N{LYyHk<*VM}Yo-6Jtit;iDeH4o05GrA56eziwbEE#p${mjN+kU5RzWM(Qd%$OA
z4Y@4#9lXyUJmxOllIW)`!Qp!4UFS!|;xn%$xV=IjG<!u|=l`U3@A#3*Rl+O0{dS#Q
z_LX6R@$v<0E3dFVz5A>tc!K_oBu%ZAqMPPrRWvqSm@(1aBy!E~4SOTwm*#WLDUFSf
zzoxr?HVe;>6!)mZ?tyEjD;zP44Qzfs_5967*XaxfwJUVxGu{-H9*%ACebAQRk=4$Z
z@#@DaC!xpIAD@?OQuvv6revqzYF(>mxfk!Q(GYTZuy(h^o!9r3Bp6;*?LE@^faT-0
zubW=~m}Ryn&&U5)V)*v6-(J04bcESpm(IT}5B>N2+O~JqZ(b*!+4{}9^e>;?qWD<v
z_tSMdZod8X<_Lq{cJqxKp((3<?G|YCNVt7Cxn{vRd9GjE)~ASe@!Kxoe%99F|3Uj&
z_bP^M%WrKfRDEYK&(~nq{9fLk^5)&P%T-DPCVYtdD|I<GY@gSW?{CYWKWBZ-{O_S_
zM&O0;S>g@8Z#ZM$B){Mga@)-D%)F-0PQ6<7W1-@TmrnOmm^W%3wb^rf+aHd5NnRHw
z?#SPLXOBPkBCFspDX!b2j^#brzEC>ugZAylt54K+{iyxC&*#u`k$pi=cpvUnVUtup
zxZ!TrXP!h&Yc&I_0G;5zPVH8eicjk=D(bb*JT#?$lTlk+y6g3r_t)&do4a1sdYEQa
zu=l7$ljKYtzUFI6Pt*7BO-xq$q2gnzx6b{~%plGw6LwDD^~SlnVJF)T?{<U2jcZu_
zep>1#+Ff{Y>G0alE7l&pq8V*hH$Qr6y4|8k?%A27f=$e;f1GmOG3n_<CF?CeY~+ok
zk4<`W?KJP^?rRRxrFYA&>U3WD$jLCpOy%@z*5B7>^89-z?iJs=Ys!_S=4+UJW$kT3
zG&a88`>30-=du6kCHhy-2+s_8S-jV5g$mPwS}jk@_RPzA`=2xCNpk0X{W2?f;up<u
z@tGczHaC=hI9y^gfBQLupQ%%P=dDsWzT*1CoqHB5X1~r0c$D{{Tkg^N9a&|!OKbez
zU)5WGq2%PwhtFF)J(tCs+v~RIOv?LS!63LbM>w@AD6RbSK6W3CSr1a=&ivkW+kJNy
z+sXQbZ|nS;4xW8-Aa!nBK=7~qN8DZ-E|JMtx%1GJBXeU9CB93ks>(5Y&mUsJxc;@S
z`NhK2?fDyZe#t4hdThD6H2>RyXy=ouFApgg`g45zT#$D0h}>uW#_X<1?-o`(n~=b(
zHknIwi%fG%`h?5sAA3Z%YT17{Skbm`<%jsP7qT|iG4ks(jZScN>i^%7u*$K8JJ(Zi
z``_<U_gBua)0@F_^!>-m-52J`{8{u;{!Kf7tba)P+>EK`cHP}}z|$jf)#<Ngzx}s4
zgdCGQ>+>@u#B?jO^VXGro$t?dn{+UIrT9iU#kg<!9s4#LuqP+)&E9@JLp=Owyt>rH
z$w%CZwESfLB^_P1@8)&^@w;_5|E2$G<z`qL5Pg6Dt{?wIRZck`{kl0!E%nbT&&@nb
zU;Mgh(6lxte;3=%Ng=D{XUAR0I$rtU$mMLG^vwF*vT?22w{p!3xhxzuCAetb4qeAS
z?aD_tK`ZmGn_@4UyB1z>5PmDIA(PhitN%fwh-!&R(hIA`iEl5x-jQY>k+>!DS~nwS
z{Mi884EqJY_NR%6yO?%#XI<-O|5FoOGueqDYmatv%!&)MH*0ZUj$^eyu-SU~CYQ*A
zQ+VC~J%0Ph)yC8~_1qVsY?k9yiXBJo1()rXtGzj!^L&%U>SxSeQ};Oidd4+_StMpb
zzMUS+#@dr?6AD)~ggWHp9lX}^eRt&1J`TZ_?UsV9UD`KX_bkrvkayk3=y6&7_2oG?
z=Zf_weG_gHIMx*Buwb@!tZQ!kpNH#f-j=VQpLuxog54Lsxw)x)zT%`6@gO4FzWV!{
z+t<?<nB^|qz<y+}iRaP3`#)txW~y{7>MneG%Kt^`)ENQq*If$rKV!k0wS>3pL73qJ
zgB1(nUz`76ZGL|3@Dgi@!s%C5@6MlFEw_JPwSI-Yck2W(UjD27yB9g%|0Cec%98Z>
z(>`&A7#TT!txq0~A#?xAT~l0I`m!lot(Bp6f<A-MgId+t)vecDcKF8spI9JdIBDDK
z8CsK1-Pd2STsY~KkZtIRump(*S;AiX`5rI+-=n6PBd~y%vy5p=s(yd>a}M86vYm<<
zyb+&Q_MaA<ap(1n{Y_IpS--LPUz{+BGd}Nb!o=V0^}Gxmt(T959aIdsx_ZYQolP78
z8XfDI4mEG!G=I;$D|(|u(T9m!g<4nr<G-N1Mmsp#`mZ?S2H%<0zm4X~e$kUC(&~vk
zI6LOJbfL2E{yTRajDq}6Wd-I&ckG?8Y87h+_s1uR(cVYm?i5PyJl-KGTzTE;ps#k1
zPWjY{x9@K4J-v9snq#-xrY^qbUgh4%&9v^|jtbSE>RSvm?(kU5c2QC>uD@a$<F%u@
z?Bcn~lKm0_rn9$i4qnHU-S^WYSTo|f%r;*BC$W#7cz7Glt+!eyI(zN~qfKg)Z=RHt
zeNr%CTZGNSrn8sVr0u^Q%y;`~<mJMm-Zxnj6cwJWdZBFTxOVgBrc0J8EnA{Q7j1WY
z`s~cQmv7!*t+e*c@13+Euj-<o{!4kTqkNz1cDk%9Y|Yto_q8JP-nUJfYxU;{x-DC;
zb~1d&!JM2w78c8sH-7eCq+qeNp~Lc9YtCg(<(0-wb_|^<Z*F5<lx>b!WC&Z7Z4O%V
z7o=cl4qA5yqCsolf<SBOAd9ap452h=!74}`v}zPYgV#7K7+Qc<PlEU$qd_#(JPW9K
z7Etpnp^LLEq2^ga&9j7>X9+dW5^NswVr@&Xi8NcRZ3%X`ogHs#UP^va7Ox>VMDmle
zY-}KQf<p>&MzfKrxt@_BWLdVMsh**^sey^5f{~fIp1FaEfuVw#k*S`Ufti6JQR~f8
zEG=;^2L(q5c1M6t;x#b@EiyAUH`KE*u{1DNur$;&H?jn+#xu46t$s5ndNnBSQ=-j5
zF^Am=hGu4Z=Aa{RjTMY64D}2xK?}nb49(5;jEsyxOJt2K4fV{7EQnnFmu!rCm9hmW
z-QaMAiKU*Axe;Vhs)?SNfhlMuprM(8o{_mBh-qYKs%HRNc}G-q6yshZ49*1D9bsy!
z2U`4SV60$h3R<0R42lFZQ#}iFa|6)QP&0EqBNGz?1EP+IPByf_nIbGe83wx>3=IwR
zOh7BeQ5<1tWC&h&XkY@`GC_hX@C5`Yx8iUF=x}CGngE>?4_S3-s9<Pp2|mahlte*`
z`$3DQiCP$If;(MWfJzGNZa_qaxv`$1F(}v-%t1>)!8;o)jP*>-Obv)UqT0{^_nK62
zp@-cG#^&aFmgeA0U}j;aXKZ0;U}6MbFK=jJ4q7B?W(i6rMh1pNt<Fs|#GN2O1s8Tl
zfR?~Qc55ggIl|P)NYBFD(!j_<fiy?pO_re28HX!Oz&ke-OwA1S%uLM<OpFywO%3&o
zj7$xT%@s_|jr0snOo@w)WMe!T160#scY%q8p`NjkF=!8msga4E3Fz2va|O^Q4s%lz
zP&k+xo9J0sS{M+uG&jWz_fg&8Y7V<2OifMn%q`6<EzK1`hooB?T7cGQn;GaCm{}Sa
z8!DKXgIs1t<em~d2?AWjVt0cvXxE6LrGb$tI4N2hnSjbiV-pKK6H7x-Kp0z^=$RNA
z8yFF{b{==`1lR949AROpXKr8)^0Setk)8=?H-&|QiGhKhp|J&6)XYfF!orle*hn_U
zU3-EX7uX$PVqmIgVhE`okQ`wMx@Ew~z)-=6BsZAg&Ys|g4R$w}8XD^vo0@=X3ZzQI
z)W}%R+`<eLF@_}88hD}ucVTH_ZlPyjX$aaz0NUtfX#{T9m{?fonVMS~fXZ$|@OBF#
zqr(Ju<^Z?pum=SwFG34OBuAJU7=m`U7#LbA7#fr23fx<bzzsc!E683wZw%U`2Wk-O
zyAfPSZ)l)kYyv8qg2-Pb4{rNH-0YK@mtK;gU~Xw{N??`zlJL8Iw~tA>PQF)CebJ_I
zVVsDBsF>}4`<J0}O&DtgC2q17B}%h~KdO3}u~JvFa(C@E8}E4w{S&^_7^}Dj-I{8?
zH8I;l=3I^abL;yv#qZDWzWMvvo2N%_cEA7Pb4G97IhONVp5`6<xLvw>y5!P7XFPiw
z12=ci-YkCKq-<MGnvL)&Pv`wX65{o}e4EoE=YG6-bke`w*2(c__3a)A%;tL-84&cS
zr91!p4gD{#<i#y+rZX<L%-sAyWNw~G?wY2rX<_2&;U|MWZ&><PF6r5n6Kg(C^GV&m
zSU9Fl**E4cU#r1PA+JP3wmWS*A}&2*|GtfjjVnhWB}O-;$mheg6+RYx`kNQ@_P(pV
zxRZUmiQn5hm$e?h>b$p9_sI?GxjGkOGkCA(ru?6CZ;Q1YX9L&F%l|t5*DmXuwJ=xh
zsLHYUo;3oJ=GV5T-I-%_I7n`dWtRK%YdHsvpQqm0Aemcn#ic@Rs`t)A*FI$|DQWmP
zUs6k1FhX>K-3`GhlDBTC|DU01mU2s?Ynt<ht=;l<m9H$83r6{^3^YmhcewoX%;yE}
zqPLbVS#PNyI(^drzH{sxg5SPPwP9Ue%gcW8ZTXDah3z-(zX<#{dMqfWX}mV3XoF>^
zttNA={WB##3pW3h!*y>@`7$jz)V1%9&$UaJg<t8uZ9Ks<QO>hh(u!??$jnVQrpato
zek|_P$XU5Sbs_V+<$c^P48AjG@+vw{N|e4+sU*HcH^3xjp@9$A0t*vw-%V*B+1(@G
zUu6z>F+o8sp6S=*n%T-%?T(&baAMYE*JpuBF$#JO_UtWH^X1f4v@Ztq94j|-_Hq65
z?)u8~lb@IGzUKV%f1&OVA0ghJ80)iJCwVVm(v;k7W|%U6^ZLuuGw<Cv6LIzH&Fww~
zKg;~M#S{!*?wq5WQO+Xs{{Dvf&k|(McKvi>+fumgjJ8zQnGH2}a}3J5?p}R5Ev#a;
z<+i<j-KAnTo^8^6)nB~O_<WbBu7lpq+`#Fxf3)}=4y%~O{l(y0p<bYz&i!e{SN5mM
zKc1#FSttM5d%ZYb=aYLcwPaj3yHejb$2~eA#DrUkkxM&l&%d61=}RUUuMVuAq`s?#
zefh++3tKy<uXS9`{`X@0ejkCwbHz3{TDtRuJ<4RWRypWlZuaB1y#MXjsX14ji{&5w
zb3gUy^5MUK`GeaYF1r08alyY_mJsK?cX=CDSuNmV5G~<fP_$O4`(CVgso|}NMXHBS
zPqf^WAAD;&>z}r%XKNOkJjrQV*Thl$X4Sdrw~K<GX3x4PxS}|uBT4@BoVW`nx9o4n
zTs+age;(6(u@!O;UdIZ4+;bpEl;>eYMi76>+0eZ^8Q)!u*%hS3=u)}Vvn*PCwNccx
zL?^3n-*4akS{u1{`Sm@Uo2-%&PWx`vn!I+)d?$g&J69z8Z)&ZpePhU$b=Re`k1uKI
zyA!%CH>~9*e)h1MzKvT|NaXB>9P8&jHylr1TlT_$DP!WLiHCnaP2<b>74hE7bKBnA
zC51Zwwss%P3);fGyIaxiaq9V1p{INfeET`gj+f(|0%z_Df&YS)2iVRnyt48N!*$`K
zH`Z0y9`!FM>XG++829Gxl^xDKe{xQxMTe|i*mig7?bjPGb{Sk!QWtpc$Fp34b*aC^
zy^Hs5d~h!@3t80u%;-T$`cBEq^J;qB9IC}qQkzcg`RM7FZ!Y|ZIpxsHu%F967Or?L
z7tHZ`b7-J$_qs=U*$ixN7shNAjCycRZDrxx!*dM`mniVB&TRd@GP!1kgmUflz;C}l
z9u;|#n{>gi<CgQO?33KHtzBlQJZiW1JCtmjZ>g1e;&_tDGWY2VPyKC>``RGqc~yr^
z{9N*v7ryBa9DlTKP_AnE=j0gLVSVsxpIV5{o~E`dSEkRNeR`A9y2V?&-cHz1HGBHi
zZ}XO!d`xjF7Ps0Uwe@z&f$+<JqHkUgk2@Osw#7qaroU$RzN=b~Z$)bOJ#pC5>u0ne
z*XQ=MG|?$j7`EHZztI-??hEtY<ol=YZP0o9@Mh&qfnELGkFMxWo4rd<DZan|L*$2J
zvR~!iB!z?<r%o;6a$K@k*4WGD*aM>#>?&66A17_qcRDk#^K6UMR7Tn45a*K8%ez;(
zbm`Q7ne&XnQf0<+S(h&hqSlqK{^9diXXDz54|vOV-V9x>a!&7`RQA_r+ipx-^1x;N
z0}eUe+nhI#u{E9FG~3s?L_;Kdn`u-;k~?GIom`*zfd0KIDo5um`k*}JxAOgMD@&UE
zdUo%YXv+VzOmnqR|DC|5b)Rnwow;bYuB)`ppTFdm??m(6yLL1(o-LlmqhhuC>c1&(
zzb-p??%IR^U%?G(Z2S5yGkz5M^5^|+rEM~2ByH4guTkWkyF6cI_37`kt2Sp}s*_WH
z`ug{>oL#NCD<33$`}OCzVB&#|53F+bG=<2lHeS$j`}~eA4`hs2?hvpt^31*CusYyV
z`D;;Ii7O|UMcu!ALvi7BSE)|NqMj*h53~JZuJipR{>@?j58uD5O((xPV5xe%)WAdj
zu8qdx=u2{qCb9Fh3@6A$O!EzLKB)e5+MCU_SEZlteo$u_cqFc^Z_SUxGJn55(O%j7
zYM)U3%$7UMulWT%jS35<N4;}UDcF!*agdpPu|bSjh@Z>xw3Zhx^O)K4)*gO)T5$5;
zZzTcqpV^AX<vM6drE1*Zf8H&B?q!U#N?=%JteEd6-=&iry$@`-<<jlB=AQW6e2x`i
zWj=3Dm#(qDAsj4SzkczDrn-&4@7OJ$8K-gU%1o<&LD#<haeds^qZ68S-oh+4>2nI7
z{P7=pSDT-yY+cC~B5|F;R=cdyfAI^QtKaGu*)8v9$u9FwI^>XU_I*N&c}d0s=jF4%
zzqvf+{pwFQjn;1qY4BU|BH^F$#vQ_XfkCd1@2x!2*qJ!@f^*x__xvlXA2cnC=GvGe
zmaq3_x8;YnD#!2@yHESgPF%Y3<(t19Ou9^tnchJUceU(JmSWhsNb?L^_+9sc>+38I
z+<kDVaPD^XXqL4rqC^@S*6_G@Hr0HYvW!EuU)n!~)90q5w}!v?dgf^YGX<S&j|i<2
zUiW6foxA&P-7hofNO${fyL94<IuV^KJ9+M^eiJP}RjYSjI8^G<mxWqwHk`_<Q<lZP
zKQsH=rtc4)3Umg>?ln%GUuItOy{zxmm21atU1|GXQSNg7@ITMfOrZ~#RnNZQ>A%1?
zY;mP}@51VX&Qll4-u=D8NQk4Mc%Awp&4=?UnyNfQbSme@uUk27X&!$l%cXTMwLNvr
zR`gfog(w!@>GoWywD(Bn$%4{Y9`B0CYp3s8t?#_xS@HKv?iz(HqFKw2O#HrN+KKnf
z5(ivm=e+%GC;o|ny|(y&$%XIL9S-+)vj4WL3aC+yVp#ZM=aM*Xg~%^QCH75^G`hKI
zx^Cj61B(SF{BxPSbD?C`p1uDjHBL6t&hK(vz3YVc(XgM}f;nod*{hs%qB1(a9qC?C
zWV+6}nm3&%_vSk`-RAZaOvhdvVVt3|c9(udg3x&u#pD$CNn1E}=V@qnnhGVkH(2&R
z5z{Vlka)4S@^5kXY>h(x8Ommj5!XuhX_;rrG6g<AJwMqwK+)-U*FBY3%LjjIf3VyQ
zpLM$?Qs?!btl4QkUtHbJ>L;4?7QT1pJ-+U%hv4JM7vilVm8KkDC2_j>wSMyZf9_Q~
z-yZ9gNtDReVLI}$H~v6?9#a8B<{`Us>)njksu_56dR(vFjJaWcrDK}pc}KZ(N3QwK
zJ9GX~`Uhc_pR0Gxb`CO@y2%~e@nplzyH`W&YwhRmUtm;y>a%v#SFLU3CsTUsyr&+r
zo+5a^Q#!e3V*Z2e6Sb0;f8M2P$Km48|H@K)1)qp(&AhIF;&ZC)?(fzoSi3jdT()v{
zePFQ2Ka4x&x!S)OB`x*=Z<%ZsxGg?0!KM4j?k@@1Ur+0we=*5QLG$RMdskjdhnZ<i
zJ$vVL(2R}AAyHo(`t6=gynb<ZAlI=cp(6X@xSJnuJtv=)Xe2P%_(hd;XUzt!InpT|
zZtS^lGBQ17F0iP|TK~JGI>D23&YqU<!i=-4_U*X;G%3Dl#jV_z6*>F(Ht-ypCCr(e
z@SwEfL;FM-&WXkOFJe!voSZsI>D3>(x%F(OzfGk2CwX~=f8zeso$=?xoukc%fBj4?
zUU@NQcVLCD)XCdFeq7Cnie|fgf4K(x{GF907J34ELl1A>ZLTKrvUst9JAcR_3xkF~
z?}X3BdcI$D%XE!>pWD|p*P0J6ma~&9H8NOy(zGK(a!14-2Hsg-*}3}#;zaIGEU@Th
z+LdwZ=C<6|-5vakI%Xs;G}wP_^UFX>S9R^(mGl3Vv71ia_V~c%6Xu;#O8X|r9LsJy
zzh%`s)(hX(B=ubITQ*H>`s~~6mKrm?>Yp!ovH7e^3*U@IAA^ogF5Q}QzAhsz|J57Y
zh)e4i$8%@otiFD>Qn**;+?E^LF79t-u}k^PGEZ%~^Ed7FsVVa#yr(90Z&>ln_w<b?
zLFR|~S8_iJIu>RWc*XJ4tm#XBUY*0n>a%mjH1Cd$DrOeF{LC`qhO?5MNz|-zPu~2i
zYgTiC;i0B&o#s(lvL*g+4rE`wqFcV}{xQer*$QcUjy=)~6ZYi&DLc1iK{E5b>mp}v
zEPwV^>wJy*k#{mJ|Igg}Q{;4a=H$lRn-@<jU#{aOyvgmJW%t5Emr5gjZ2UJ1O<XH^
z`mf&UQ;(F^xh(!Uja9$<SIqI>*<0$CslA-B^rVef`lpYcPyY1%vDoi9`3;AXQKXdU
zK@Z_cNBK7h-ktm}AnuQW$NxNurTdq@n0u_<Y}wQ+TrUs&X7zvc;<bAY=Mu(^?;bSW
zkYBlLryR#prB)|@hU8f<vi@6t+iNgwUQPb@V{$V%CT!FDv|f7C#7om%4{MxDbZcFs
z7ap=yvu}09)D$*ehTqS=EL;9d;hMrZzvoMC>=qKXI=I#>F!!lQq;h+^G5eOB6+*I$
zq_y|Th(2Gota#(m-@exvpCzgOzOjDEasHYs0_A_S+P>PY{&9PjVVAq}y~d}rkIdir
z?dC^U<#f+CVSm4RJo+k|a&fQgIgd*ZviAAvUA+9N?O;=BOZraLh_Kx?IW|kL@NBtw
zebVtIle@dmZ8e;oe}2-E*(-(3cvNkt_AV`N-2Z03-ecqB;Oq%%OT4;HzkT5tHS_0_
z%N<!|Tw4~zf1A+8^?*6ok14Rx+=o?n?{0pj3G63W5BMAiS|j?!Ea>hbc7f}E-kx`#
z5F#ObbFq1}%OZ7q8C8iyT?ubqHGR9jbH`dXS<hZwxpj@F8?Wl??{jo6o{pH<%UJi?
zTUJPQw{&wZZ}I-Rdeg+|*Ivq`7GBv|p_2JH;`#gQY?mFMpMIpbcG(&AwQmd0wx8W%
z=@U~wsq1^}=1N&})neY0bE|t*tv^Ifd7Tx{n3>2gCcxRvZS|$O`nYY`+bt%?zjIuE
zSzfL3^?Qhe&d<gZX|en7nq}`3?eP-WchGHti-Na>W{J46>#>?cA0_jB>Vn_vYxioI
zPY7Y}Gu+3s+vT~H$%0)$pBhS5POLw~*(_M6<t1I#y5srl3kEC~c<kcWynHG@|Nixg
z6%BX4sG7VGzA}ejB$#)5mfy9nf5X4ew|O7<e_qsOsjS$n>PHH<51wAZy}e>td-CoD
zscJ8)%eQi;bGbgB!8YY+;Ww7EcSKBnTCy$OTx-tT_33bF-LgoT{5vO%uD=bK9iZtn
zK`-KcXnJnW{aXiW<}Q3$m0Nz+)yrvR!oNe)uf)s8UO6rKde)bt#bSn2G)*$C@4Hk^
zZt;A+`t7Ht1CBw)jZwVWB9l7aFP&OvD<m(T6BPLF<l&5{+m*YLtMV@#Sjuqi)`R5=
zYG*U2Y>ksUXTMmsCjW!_Iu*^HsQ$3|2VGd~g`ThenYB5w;d9-r6Bnaj{PREiv@m1a
z<)E%T+J$qj#tLX<pZ-}oWm>?N)s=^}4R%=058rIQL^s9y+1X8bk9!a7JRj%#Q_YG?
zZf$}_-&&!F(5SimZ$I0(ZV?f&i%@yLMzZaFyfFLKv}t9GpZ<49&YXYuifcyL%lEUG
zPwmzS6N~3I;t6uNujFV^`JSh@*g`hD^1*$6v6tOW(<d7zZrrg*=k%6GQ<4P?pO(~Z
zO!rx}C$Xaaw3XF#jx`0YuGXucUA3Aeck&qXatn^5l93aN1kO0GSi0cWQl{+@UnVDP
zd>0+*?Rd;PS0~QA<V|4H{+~({t89V-Bj)J@J=@SzS6ZPL$k+DvrjC!wt7&H3^2?mp
z{Hb1CS|KrG&#zAj3QhAC75+?Acy+%`iHYm%y6>!!wp{TVW*=6r&T)=#dAU>WghmwC
zJezvoZQ7go;~#2XO7_)~nt5TeuEff|8FM6k>r%I}xnAP6l=qTn4%y~0^K|Own{f)8
zdzAifj1Vl4@D*EkSD??x<D&bHOVd6|pS&;0`}d63y_@s2B{UedFUL%{CuuMvL9i)v
zq3&mgEp1mTqt`zye_)>Q^1y0c+xB(GzIqnLOn;rFG^1uV@BZMkkHr~xUUfa(UnU$M
z(yjf@AnJ0$rHJ0#LyJsLXVv<aPfPi*>+Y5AGOzC+f{q5)=|_pz9d+avKbyvJ_JxPn
z??$%w{?GFHuZVA8a#9X3xRLUbF*LUJ?kjB#p$B~pg^WDUl4AcQPWi)?r>EDz!(YXk
z!1w&WtY6caBlgFug4@=ZPyFrIuGSE<;_|BZO#RxK>Iw_Id&<h+E}L^&@q)t+SN824
zjrv`ZsnJRIU-`;Pr)k_MEwW!d?anO=d$lb|UsmTHN^dm_+bX&Axi%aByX31LO0Bc3
zqMupWZ}aT^#(SXPw|S-aegoADEVjiPPTtXfBgea2(ar0*NbvTQ`xznc)h!pTxaYs}
z`@gU16VJ=P<L^1MN8Bf9^84kMZT?1kD$QnOf0~=&&0Y1VAnx<qNxy~o{6#*mT6_JY
z3d{G69*t)l16hK8@&`?+(YVlLB#^c65towRG?SZ2SDj|K9C+zi_$u=9wUX>Mz6tkw
zo79;^&93j@P~ktnpmX;BD;K6eYTECj8M=Sgf;%A}SIt|RKFMG@tJy=Z^(r1kX0b`<
z!n%0^`3xUsu>6wn_iD5jktj4a`1)I$YnA@1(#hKn6_m|6<e_(>cxi~GSE7g21Mg)U
z7V>bciL}hq;<Guo{?E%9JQBPH1xyoq!qQ?{7SFH$$FBc`CGp6ln~oyq`?}^AspQJN
z>YVmu(nV&430zKF?P{b>E>LTHdot>$>xD#q=i|+XFC^~EShvytPVb@YOB*JL%O78p
zeA?i~^S}oe-F#2};^liPcJHElzgx8Q&gJzcN82Y#3oHF@j9&A$`Qn1O0C_vP6=JLA
zO1a*Y3^6xbapFqDsg9<tQ8A&fLqY}ZW|?J$Oq<8K%cx67(%3vpCFXig@y*qLf0$`0
zq}k=QC2TsC_c^StPqK>9v5$5AjR(s_^<VF}b=vYuXW7wBDsQf^&$;a|y=u~By;VPL
zr1x%%+je%@LSLbUx$BDCQ@tBGTK-*#-+uaX2Fv}cJEyLDz5RCD+$QB;?@p(Ef4aAG
zlH$~7cmG$1NZ#;cTe;pnGI5UC%jN!y--N6>^HqgU{KbF1=a(1_E?a1M^Gcc}NM*d;
zE+x+!7!sitr`{L5apL;pscSYd)yw4W+ur*t;-Z$N>60Tow`K?*`no#o{mQ6&iZaWz
zRO{7ag`PjM*ITi0;(~JPJH{*hDy(Ld)W+~HFj(5I!~3Y{{r@%LrzhP$CK{VMdCezg
zz4Ug^PMt5@{inPpKCM{wr0`VHqa`Z(4t!}XGgKs)WIBHe)UQ9k^DZxw%(;Mdr}$W;
z9lr1VzGq(EaZSaPl~zXa=RDaq{(a8B{7m?gtTQ#|kDRjiTfrRYy1K|k_Ne5m6Q6Y$
zI2LTzXyD%HbLXJI>9`O6D|{zZ{+q2XZ*Ov%|4;M6riO<?pM2syMJC37UH-IdqMQ2f
zzK5*aZC9nu3tVQf@B2oN$%(4x8}wL8zKRsjh@N{>Gw&Sl9bpcGN<;t5O*v`Lw=pQ&
zb~EJgPZeS;P<omzZ{?MFB3|zq%K;z3w8!gzrn$-gy)$Fu9@jjz`TYvgd)8{t>5SPG
z8#;T|k+%}u35qX8wg#V>>y)zN{iNH=4j*dPXk7epQc-l)q3dV={xQ1mJS%32UTNps
zbg9_m^>4PB9*o!LGrW0cTW$P(H}kz5Ng)@E&1UbK-TrQML{jd>q>9q%ZZCKL3paSJ
zRr&Sq+12L%E2{tAJ$qZYd+tL=<x>+^E7_<!PwUJUU0X8eS?*TR<+CpOc8fhQyV|nv
zis+0qhsCeUCBDSTHF5k{@Ju7-^{UqkEXC3*SNye5c0Ta2Z1ehAPtSi<uD6}?r1sLI
z-P=w~-k-#*dNe;a*KD)=`Xc5Zq2J#wyBDZq=>CH@Vax6|y*rOy+{n5tJhAoht=|2s
zCuiNPe&KkKE70!VcIGv8KaBU)Tz}V)v%2%s`3co$S**A9pU>Xg-FVr1@6{<)H{Ytv
zPV%^uQ2wt(t19wKL%M?e|DSg!^G{4!TRwgHvfj%Ei*9%~Y`ax?$UMhs<rW8{q)7Yb
zROYzF$>uLwjHBdgrca19y>+GZ_tqKatBp;9*R)OH3M}4i^<h@oibt#}F~@W&lp>_K
zt1Z8}Y%RIsz#-JPZNF358<qITvo{5nnYqqji}{r8EOGeAuak`ir=R%jVwF!Unbv-)
zzB=fqQRyoqXZu&-a+Xi0Jo<EouWaM3t<}F=vU$E;RqSZ9YA^~abuvD^EqeRvZ~Gz-
zNi6C*CM0*Z>UP-^ndF(qi9N+aDl5~gJbFKFDBE>+xjS>nq)P=70qqfzeQs5iMjK+D
z&OBD^5SBJ~evjpL_G@12)?Z3FEYE7eDz`s>+V9Y<kLRw~$7bjDaKr1!6|7#9lYgjh
zz45L!T~}l+hwO2l^n|&tm&3LHUD4pXu|9LBp1S{?N7qGjw#!~(lHIy&@jj=@lA!8y
z7gYq$$Nj$>9=kcGEOGjudA?$2-<&X?-F2ju`B~TRe^EWIdikowAH9yBQOXINcw~p`
zjCh%yuP2IZ%RL;(R(J4RZ_Gl8vtD5r*Xg_Q9PfMoLB!HV^k4FYK%Musyisez&i+4f
zjbXCaE!&^-^RvtCPctum`n8CY<LxZf`~aW(?Kc*AoSLzEU1Y+gHvRJ3X`2~0wf-vF
z^lQ<_=ik3x7kus7#r7`zlH!V(qKvGcjQg2(Y~Our@{VIKB|qEraVv>dnP|O>m=&>m
zu}LX|qigEPNs;{pN7@Q|rMINK`?|(wo$H$$`SF2S3bQu9ipp2#S*`tOrGs+9>|N49
zv)(kZp7z?8pfF|X9L7t6t3~Q`JD&Gl=Zb$;_IZl3RoJD(Yo9{qTOXISue{<u-RfkO
z&Sr1hpd}YJ2vk^p+ZTT_ev9(Gr@N-GJuyA-E%8~rz$Hy_#q_+@skYG}Dia?sXJ2yn
zz1FXLO)HIi-n~gaYCL7}Vuj-qBM#5F{Pk3n8DIO930(ViHXM7NQe^BnNnU>0)sUXM
ztLBFMn~|BhK;?1~PuqpxwYBQKdM97M*IQM4uG!Vh{Auc5@$|>j{|klL|NJ!3+T)F@
zx@F~e|6)%QhxV;$QU9kWxFk+n$7XiobI)Flug;g>-JHqOCT~7dpY2EZJq^hZo$IFs
z&Rou<cZNyw!(Ow7rte<`YtwyWua~@-GjWcJ?t~v(R)=3zpIH5G@!@oX-ks%4w+%Sd
zMC~4JyQI^i7_({qz0EVHEc-dpqWR&bJ2p?3vd#Rfd#lDIVfmvuGmZ955RlwIsdBT9
zn(EK`%GTxIjU}AcFI2tzd;1~VWfvxXIC<ahlpi<WsZUcfS>*Qm2bigP-+OC*I#G6K
z*F-O?{tc;DPYUF{O1)cpm2aK%)N|!M)2D?T>Ynp(`8w6y6_f5T$gL??$}^I#IdkgD
z3Zuh*tUuZJN2qRZ_uZN|ZSH^b#j|G@HF%!XlsLcd-<98yml8Kr&MK|GU8AU`vGh=n
z<?9FRs~^m&QZ1JFd0B%)%sg=lm(i)`XFHy)-Y{9%PA=NeW=UlG@h8XoUaoL(n=Y7j
ztMie>+y1H$nLCTNopj5nW^1}@THap#<j+Uv-cJ{1XiRKPi#@-AbrRF6*S0%^<}TCo
zJoxf3>x=EaFYM=UHByg>X0vYfWy_Va`q<jBWBG&9Qi(;mv3IMuzC~YWmA0`I*Sy1H
z`+R-PmEwJB|9QSGvp(hX#OJGI;akI_$I5+9{aB{7vGB`+2i0+6CKqRiy}PvPQBSOV
zNY{fz`M-1Wzhx_Jm?T}2{KWZ}SKpNR_VxR-ul)`Uajnrdx*NI5_EpNXULUa_E?xWB
zfO8GS*H}|$vR7NzwS73I8X7g><$LcuqY^Xz2(9&!jO%yuTQ!+X)v>U4vx%;4wG2G|
zP-K5@OW%a_ZLu*w<h-;0D|^5C`S%X{+&9HhZ=bEZvaviYK5Of&<tzJCem&Y0lpXEn
zx$)WdGZ%M1S^hozp@QB{$yx6gb5$JEsul_@du!Wpfs?i6ouu=Lg?&c_pS*o_u(&}{
z*=>zPvYW@p|3A%_7<f0_Xgl0i_hO>-Vdp2tJqK3IEtEPjr#EKe!#0DDhpe;Nc^}q`
z^ep?n?S@<bN?CW7$xB|&l7FSOBhz~^-(xdwp2ld`p!=~4yIqUI_4hWa8*_i0rx>zO
zc=?IBOWfKkk_ygcdEWi_?N(>B;z0}7e+?hsrJH}9x@1Lv?e5GO+vhxyc+~K|z^CDF
z-S!DePaiAUCS7L9jd5$?io8&H!{<}(4wop6g=+E7b{wdf>a+diY4iN``Tw4^-mZ9P
z_Sxus?wlD>FXnHFUi<9eU6xk!1+R>(E|s6WzyIg=+poj*?-$s<{PO$y|2=ho7l+R<
z`l)5Jy2+S{`G(G|sfYH?s9^sP62=$pVLbcL<Sykc3~CiV%11xesvJ3ULi4aH=beSu
z<CAW2z1=eB(*DF{I{QEUYQO*Ais9Y5S2wXPkF^BN)<b67!HYhNqYW)Viy(s(j0`}_
z5J5C#`KpltXf+;)4_XihqCx8{Ks0#ys)CULXmJ*Z4_Y1tqCrN3XsCIHQ1c9-<{5&`
zLt6G~WC%79vII3CF+Ej3Ah9SluSCJj2&_~;D8D4JBvrvc-#0ZSGtnu(A{u0*nW2$_
zxusF8zH?E20ft~uYH@yPQF3arf{`KE;YiC~!9Im}9{r4BBU4j7BV$7YLkk5n69YZ)
zS|-p+8B;yb>PyhNS5reh69Yp71ESVZB^%*fH3JD}?5;301+DQk0xf(su`ty$1+Akp
zQ!q3$)iW?Q28&vn=@}T95xKH1#Te&;70@~$0|gweFo!R4MRtXSxt<wlJ(H<|35l*S
z)zl9zO)9A@NY(er%*#f^2qcZ+aD}Ofo`sPGXz8noIru<a&;nF5Q$1rtGXp~f6AKeP
z0}~SiW8#iuHNtsjH0U@{oFM@^m)6o0w93`Q%uvtN(gd`;%+S(A&&<dibVRL*xsjfM
zg^__VQK=#YpDRFl0eeUo85!xB85@IEO(D6$$k<rVzzn>|jZ|0QNt>X&jl&g4XB8WR
zmXd)MWy6muHZjvPHYRpSb_%}S0V-9nyTH)ILeIk73=|uN;3e6Hpe0<Om6xE5YouTZ
zT9FM}*G1GR!6}J&G6$$g!|n(pb3;8tGb2zzVFAjP;DfY{EDZI`Oe`%eO%yCiS_6zP
zL4b-=>~1hIG}f~)Fa)JVGfN9S0|R5wQRXH_W_qTe63Se`+`t05>XE3G$ce_dGbpGq
z$L<Qy(n=#U6VMsaW=2MOMrMWvCZJPOL8Ye&=#+J1BRw-qV*^tY;v9jylmOQx*d1YN
zVy0(kWDK&|#MDU7)X3NXa<sassfmH1nSzO#k)9=pNt7G#L<hJQ!|n!SGebRdQ*+Q#
zK4VKmJp)5S14DBKV{;QdQ$u6WqE8b8Lp>7{BLhRC%Bqw^Gn~-@u0wIS!qi;P%+M0#
z3PWR4Jp&W)fzifh7J3FImX;P43Wg@8dM4(eleH-h3sA)hafNe!PJU5vL1J>Mjg7u@
zv6+IIDX0hmtp{|=&nvO9(RVXcFf#>Z>L7hL&;<aXWF17(+CqIdL+YN)3u$;jJOEvD
zXklq;L14|{mhjtox80=Jc4?G7Y|q$Qe%STQnVECGc$Gdma`%W?($>t0Uz(;#%<fgu
zQV~6#zwyOUyR&xQ^B4MWxbc3zqHf?;<>lQ+98Bh1uK%|`U(U`_xVgLP{q2wU4m%qP
zG=H3JdoVe-(&)jD*T<Z0+?eUYFSIo2<XoAa=hgiDS=KYIFw1dI^>E%FG~>vBskdxj
zQ#KxFf6V!}eCzivUS;K^vwZ(5YlJdowZDD3`Qqc`=ZhbIjQsNXhjoTRGuv;qX*-HG
z=s$Atu$Hht_HugQqC%_wZ%Zd`Oo()K?$v#>=+vw~XS3YAw=CDpR6Tl%-!bLllu(QG
z8;)VVr+3vj+_%~GX8DQCH)q72S2`XSx>Y<=U#{i0P}#Jzn_r*F=4iEOclse3HFLp@
z!oce{ALaHjds)c*s0$OF>|Nveqie42=T}DA({<O>^&PF5cG>FXH)oX{jdC}0!mf1h
z(UNPK%%|o1k|*+u$^5<gd$=CgSHx>%Fl_#`{o=ljVovubv>sa~V4(Zz<f?VuMS;gn
zju&3PRlVgd%lnHLHl~J|9!)Vlz3OJ^jLXt;reP1gD!#b=*t{oZ0{`OLwU+CuHl0fI
z6%<)M^GfuLr<*^_+^{^gbe`$gCzH%HnqTipjj}A8HPv{Rhn0-=StZ4Xok!c2-qV>m
zq50L-qpor0DPq18^Z(i!3Fgc)k2E~JJW(-ma*^G6ao^p68;b<prkPHkV&>WP&?b7#
zE6-4!+3ax&-wQ)mauo7<b*aqg7u;EyJF6i3@QcYpx3ayZd7XRI^Sh6-)=KM}XCE><
zekxQn&#dF>rk3aCPwqbno$%h{a{20<sI`aud?tFuueY19J!sl>lT?FQ>Am5suQ{dn
zc4vA#iZhm$EXrB)^R>pE&L@#S1gk|;jw?Mq75H}9$}2xiH8LM(OL(rGx~z?1?+lTP
zKc?^PzgiQmVl(5Tapy*kYocAN))wErw$r6L@P(Fi*=EaFes0yfef!Hgbe?H>vWu-u
za(T3ZapSCSb~ane&Gk|?i$?M2a2?}H{=0F1d-5_{F>jOZYgTg8Zn?F1$5bVA%4h|5
zy)749&Yvj!qfo*w<(0tH)jdIaz6p7Iqx4R%`e->b=+&I~%O}38&u_L!xUqS$y1Gf&
z47=a|jwarivne%n5!>^HuQe>p1*2~^<^&y6*u$=|zotm?vU$4l`WcOT^8fazoSz)#
z6}&M&V`)#u)}UD-mUh-WlPB4(+~itp9Dm96MfbG1c7HkVdTsh!+E{eFauLs$vQygw
zH(ft@F3$bwyZmW=drA#z45jui(C=Lz=C`~1$pzhAQzs{E>3^2N5<YREQrGn&{#y(d
z-~JqXG(FHu{AWf$ea>RV2j|absD$Xm?LM+~*U~H7ta3B1y`Cf#m-FJ#TvMmoReEZL
z1(|`DPdKdZz1JmryDabiwwk0FEt{ThS~J~s^4YFuRx(@G)Ch|meYS5gYgE$atZTP?
z>SeF_hU)3BfBon#m-N=9yO-CwoT!vqs4U1LVp^JV|3l!M7LHpx!~`=MH+8pUIj_7N
zGl_SL>^$Ao+fC+gv#j_2JtrkJw4&bnll#uBN85fy&ujeqB0g-(4?7!MSy_9#UxMrv
zT!n|-O_bhP*;-1wYi91Nx2dvpyPd3l-2HHJ)N&W;zZG6D+JbECtgSv?=K3~Qrm9jY
z?8=O)qsDbsT&b^a+&uW<<_2GnvwZz-=jDVyOg?xxS<0&K#ax-Ti8pP2)tJ;3mTYj1
zwK(E=b-AAZ-u$UcZFVf0n15a4qesNIeKUS(dfi}1F8vX5@4JbY^MR?0YvwRzDtk_T
zuY7?;K(Xn_hKqOWQX;RN{pZf%!)L3p!gr^J(JrsRLr>(VdDPsQqWg+rmzQM2NxwY|
z)3_^aOhQ!453)MF5xSXIFZ)+o=uqcwMoqWgQuPbfc8&+MJr<NL(<r{aq+?%j$RnN{
z7Xk5|ub$l#KIJtn{QALvC)cbg7FhbgS8}&Y{!U{HxtXhP*yQVZXKg(Z?5k>^Ew)fa
zD8`q=N4c1vr_JxwExx9o>P`hRB2IOOZItF--KC=)^?6QaXlP}|@p)qFw4V6-={8OI
zGE=(8%}-(dFSqmIrgME(re1l<6Bj&h74!S5Ij>jOnDJijd%D2XyhQJ#ORBjzWB<ip
z_v&u&)e6krX7F_4Lpdi!W6vvlf1ZzZk~U~H>X<6azF?c^B|o8<n9@|PYtGldS*=Q+
ze5F-j8&~dvx+}|rISRPiT8#aQUrzlS-ml<jm}$N2^Yjf%tc8x8J$vcowUtM9>3ywx
zAE^Fh$0PH|ou#KfnE7QaIJESOK+68V<=(5F-o5&7=?`_+*K32buN|v<&ABA_E!T%5
zO(7F6<m*+3|DRaH^+0XGecl%fA6fje&PWNE@p-OHh{}PTjcm-NKb}jzNH70)i}{0{
z+`jn-fB*0QeA9f3Q|7!CS3cLj-tk#`cT(a7tKg;Vvwj%`R)12zFO;(5)vK*L&PyvY
zYRddDpCfScdFO;(t8MZ=3hmc+&-e6AQSpzx^x3^5?c?cpS3<62T+k`Iq4#C}#@h0t
zx+7)ZR(uyx?rr>)vE`bj;0`8fu99#sl@E%^oE-<*Ex$^=ny#<>+GYngfBexLxAziC
zVV8{#?9TPn4f&d}#^mGKHHZHl&8nLxY^PPVt0HUZ3&{}kpOXp#Gq<ollMny5DKpN0
z)uTK1>kJaj-YqHHuXfUW!_Jcy7w&DBF!G4>a^U7m4;J_9ut;b~O~0UIqpT_{E27Z!
zPh-(aj%j-q*YVC1G5^T2p!~y?3KykAZw*slONlOzxxG7yf6=}Ey+5{GyW+b4@wtj=
z7J0UFjf_Hd!~2CiH)PIv7qPZb(}E{)naY_nomCRo7bUsWPP1JgS@m=ayU1$wn>wri
zxXJL@9I+^hJMR2qcEzn)3C1})%pPCXV0>K^c2RcMe1TBASl>^(7N>Xkad^D8JrgOy
zXyjxe`|IiZt9l=r6dv!8)Yy}xn)A_A@BKw-3$6HzmN5-2-=6Q=v0MLKx#pr+ou1vH
z{p%QcJ~Vi(n0vAHYo2Ux*Tgg1)-U#7eX+v-L2XvcAtfR1cgy)aZ^~$=2OF>WwAZ})
zexLc8oxV-3Z+Zlnw|FjUWX!i&-?S>|=kj@*)H41&^;1d=Jgp^pp*YxTX5OOf?wT!3
zj1O1kKd-O4G{G&vxJBu1)@o_f@7J%#oY1cp`oChi$cNQa{sz=;y!zmy(#xQzE&o0Q
ze|gQ6d6((gZJ)^={=N<OjC1#RJE|;Kuz8XBWBc7pA>GBcnYAkz)x}Sh96i-m#GGOx
zs`G2(!Plq6-@G_1)X(XER&>s?+t24K^x5k#KN>E_Tk$G!@u}BU_VG`yx~5z_^TN~9
z-{abo?p<qs<-|Q`eU*2hbh$lGsmhbdJ{OmtFqHl`LH=XAzF@~hPLrSmm2<dPIC!nD
zo6egrEUqpkaOZXO!mo?6HTO?9XuXwFc`t?G;J(C-tbP}?S#K8UKNb?so_wnD3g^SX
zPxiM~t8VXA=4C#`(-f1mAeFmA>g$i!sq6Qg$zr(O&1fWja+&Heqn905j_f=tbD~&u
zzM?wEv)`+ComiE&|AorE86vw^|9k%3;+ff$N$%Ah0i2KAl(r^?E?H5w^lM<8VoQDK
z<YFl%3HJo~4eveXUAl6o$5lZx|AuOaVvU4g!Hii6B2kQ{2g_yp=DD$)VgDI1<xyW{
zdw|E2H80DQ8yh|5D%R#D=(I+(hc(82S+HsW@6XUzA9hDBQPpr2eYNo7=ZDerza^|#
zSLAS~?$zo=3Y)*~SaE;Vrhg{J1wuwgmsy-!xlibgWX_7i|0ms<ma}pF0eueshfe8y
zbNkaCes)#!b)3K*A-}?~QHL=g;ErtOt|pVSE`pL)9tmtp5h~FWeLT~+Rs@F!s{00n
z?cJj!>9Am9<d)q+3}QE)6cjp`m!(xZ>dsRT7g?UyGv`j68JCWONSyhxi<fj23s{dh
zmmZhA9UYRMQ``IW*vieyn-$zvY|+}ZKIVR9E|+A=)T4L2Zfm`JWt6+B#b;f)#;Nre
zmw7q*GqkZYuROXkYK8CAB;jSXvdPz$d9lvBzbEw+Q+E5doFL1G99+w88A;r;eCo1R
z_(h;dT+Hvwml7GLEZ<bZ78Jgs!tcAF*Dh5iJ4Z3se~*&g(gGcSZl1GdU5$+8^%W5<
zzaCu74V_gg6dtg_>&2=+7GmrZ8Y~$f`G;#8F6(XK2r=JqtxG82;pSIuVON$%U6j0^
zc{JRA`|iJ0|F`%T37%`>eOq;WeyR5CuWGOKPP3IYa=QAiJ#F>1b=Kzv0ZSsbfBDgG
zu<-tIfkhFIUzdLFKYP1m_ZycruCBB1eq&_JH~*2x#8g+V6cSnaEb(XldMl=BD}QtD
zoN8Rg8?vqCl8Du&pXu{`_<x>Fe!QZgV@Vq?qrB&dloKUtrY{fA^b^qM)US03JGegF
zPk`x{jkboY8?#o(D~4t2yRUFDY4x~W5IV#r6aDfw^B38*5AOeZ(z(+-@R!&29=p!1
z>mNGgO7G}uU;FTs)C-aBuB4-L`=>swbl=dn)otCI1htQ$YZjYK+44r@Vv@vMmgG|%
z{D;m=ut=LKqOwlqi&}Uli`a}$OvQ4WcRnedZFf6SfTbtzYNO?ysplT%OleCGSRv3>
z7#?lfyZZoR0^iZ5=$!8&?@lpnX1%j^oy@`5Wl8<>uCnW2;NIXi(SKEz&zkIb1B+6R
zpCM@{cyyj~E2OkWx<@R#8tT71GFp1e$$+`%S_D`AWcU`4a)4PjU=j10c=oDEQKAVP
z>lU8d%g5P$b*kao+*_-&MMFMk?f=!`FZbczigej)N#TzfEAF1|>HNNRzr-xdGhJJE
z$W)zt;j+{zM3MKK$n@I>oY@xHBm}d4km*jD#2Krjeqyc5wK(QynIgOU*M0F04cC)d
z7H51!ierArj_VVbF(|if?&?`J+x#}a{Px*b)6UyFGMnEn@7!JDp6wug`Azt2*%>;Y
zWLM;WJ#eSp>_ytw&zH|m{E)#Z>|D=iU*wfEud_8Emh}dw<k@Q-mX-BWlWtrSIbEa_
zvCw;+PuVMd#WT)VSuZ%h){%@@vEqQ&!@OG7Z`aP&uVeVmbwPa=Z@<oj1v`&UkAM9^
zv8C1drB1|kM}g0-`sptOPe}&x>OA}Lmaq4SjcwMCxb9_-Y`Z6^|FlRb-kMt7vb<)F
zWy1m!yNhDGww!o+Ou1&mbiR#Rf+6Rhc6srC>CXGe|2?we=8xZVLNCQNsjPK8(b#&p
z!BLXu5_43<)+t|4oG`4D>}YQJ{5))ai`Vp!?X~X?{tBG)qcG(Ew)N3UiyV$bJ@wwS
z;{IMexeD9KDw*v2TyLNA6*?nOF?*Ft{d>0V2T~T3Y$9g}u6=qS#n(i4ZsS2s_0`k+
z8@8D_3x{dgN;7<FP`ff){zn?e;`P5(pUT)&uwD7>zHPC!^EJyqtlf@^4t?DQTO@Xh
zIWtNXNN?d2<6??=ykfC}GiT2SnMVs*cuG>vXD>d;Uf>qn*qnIbm(Ko#CApl}9$$Lc
zeE#w-1>e>vr;2Ntb;jFmYG<$Bd-@DdY_iwv)i<9``et|W2)_?&LMZ>%R{mW#*V?a<
z&y)Mfz4_?w*>`J~g#YteqxIpWj`1EBGxv{9`i6V9-hV3XTe64CL~(Y!-1Xm~yXNKU
z+Bu}EOr6kl`>lNV?z>;JHdpO=lx9}md25~OdCg;s6rRZQ&vIfcwp=(vYRQyrxozQh
zOk?)mc3+gUtv^4!e?^k(6pv}?d{3`T3gJvz&LVF-opq(?yYt+yTrw6dwp6*oX2k!y
zfYbU~)}<oD+mC)a@LlOUC75_h>GnLAGKmX%Tbh6Sd^{U@fw?m>!(6dxo>_*J($NUj
z)hmwmsG8JmvJQQ>IDIn1v+u@v`(_{3IKa+&e0s%$GLPvmDpyT3TRHR9HciLBEBlwl
zrFPa`tk-2&{QA0^HN(rZTi&v*GC4hU+8i56f&8TB`)kfkX)d1o=(FTqk;iL|d$wCe
z*zE2p`miogLF@GmRfY{&j%-)1iY=VJ!P{2BMruMZqma%V|LjNG&Y#oy$&u)tK22es
zVQb>eGi*EyH@~`*C()=AB;M`)jAPo$3k*uH9>yNpkg=%u(EXh)`l5%uPG|&Vy|ak8
z(^(LAoOjN2e{&h@d9!Lw{O_=@I{B?|$GU=P7j6iq^E}?A_1emJ6Q9(Pl~$LHJ-3zQ
zKZvM4v@wj`%jff}mu1`I-_QT{`t04STY0oDiAkGC3RD(<-r#G$;p*Siz5D(7cOJ<#
zQn=6dhgtf#P3(;w+f5ZcALun~=YDl0=hlS8=RDgh?`+t2^T@khXRfdImlu9)#OS_L
zf%%xhrxMXerpHdO#v2u0ia2^uae?X0qj^HQ$<5O;_>LZ)%>Cg|P3tp`xsN{ZH6>N=
z-XFR7o1?kY8@H)E7vze*`RkS^uKe|N+ZxB+5#_hpeS)W?2I&0Sa_&mg{#{z<ez{xp
zT{DP@%9&EU>04M<)xyS$4y+YM^EW<=+<W1L#lkgvgaSkLIXotJDI_;GFg$(A#D0on
z77qh+y0q@iEek^*w|#qmHI-S>s(;Iacpa6t(nGQrH@(;r&VKIP9I^jL{<F`oxyKaF
zu$3>9VJ+v&%UsF9&1t0)%dR<0j*+U_@Mb69j}sz&LY`r6hZF?Qisb##Y~^3Q>W7x1
z%)Mm>o^=&2nmKz|^*K47S{__>`+%&8gPVU>-yCxlwu{W|H+WT+D1Y)!?Mr!j@Y7P6
z$^U!vSH5|_jY)F({JQs@l_l!`zvL_aex1Ab`sW1(g?C-^r**$pYpXO5vR`KZHfL`-
z_p9eS|3_W>`uo!E{T>;nn|(wkEV-6fFq4nH>c{kV2P|@yg+_tu@rw#_NfM71PV332
zIp^_>?feRjveVx3$NioKe%@wR+1PeC>gANkz*YJFUQ@M0vw5a<8}akFw0SErCrsQp
zRbXE8ora9o0{<rq*7KCD%M{L^_3UchS3|+ptS_7U)D^U?7aee(dH9|CGnN9MJ-d!o
zJlN}BmH9VV^z?%T5>rz)ZTurHeV=*Z^6z&TCrmx<Id8)XlMwwg3;Ls0MeRt?>&Vb*
zU{JLC^sDY_bkg(MX=RqD7h5sjNRg`B{P#oQ?#SG48tWeg<=_9PF8ft>HOB=dQ~m4t
z_tsn%_t<qcjeXNG^N^P8Ky3?NSEHzI`{=+0bKMtieLTa)?FpZiaC7*pGrp%znQi~^
z>GjG*pD(P43DUpBW2WEE?wQS8)u?A^!MnXZYr?XQxfK@zD?0o%zL|JR6fMs&>6yRT
z_u>Yx0{e=-o5$jnUU(eTeYl?4ELGuH2~)i2hiNZ&1|6*AN<8bZkzKi+dosgKtxwOk
zTZ%7_Js_}Jq%}=QKSstk=J`a!=%cT8P278}fhAzS<$l=>D$`c%d$MS|3#;kbm$rwZ
z+|<KaC$ZjVRCE6D^T>1VMJy?fxvg=!Y8=%f{}$}i$=LMj=<hr!foTSu9{2RSP9?3D
z`Exq*sI=1i176q8x^1odSLYb=#(e4j#g3AV8(o>xn}5Ch`TMI)rIy;?h#yL;g6A6g
z%<K8EPr-lwiO*3F*)Q!mwxDqCh4<_ae&p@lnLMjUL-wMy(0#LVbN})`su%uO>QBFG
zHc6X@*@#EEuA_0<S%sV{e~qG2C%T3)s__XOxOpMOTTN%OnP+eMy+iy@DyLSm*&kH+
zzw%XDx#(}Vn;mA8PQ2SS=k))2cI6jU+xOmWIjDWnA=*e?)YqcG(@;#|WoCepgGMjs
z+Id^nMI{z)^1OAm<lKx_w*xDuB%9QBmKi>(e&>}dvae-%#v_ToJx?m`FG|r@zbrJV
z;ryZRB~M<5u`Rv0P285ZZe8{*S?xrV6$S+lS7yZA^%3uGa(%HOOkE;=(@m{2b&0{(
zADOV8zL1+EtRo@c&M}ug+of{qLdhe)Od{sLUdeyC&C}^yjh7JbmYLCwcJ6y`?V6l+
zrt8$H8%<nGk8wo4Jen@NS?R{MEmIiJ1V4zDJuH6so;{PthYh}qYbSq^KjyWv_IAD9
zYkQ~CWy$|*xi+-;cYW15z@~5a*8KPfO?TlSdo|f~1N{$aQZvqHXf&M2SdlYz;|>0+
zhjnWoJLX?Kempee^M@tJJ|6xyqfB;kh{PRB$B2b%8I)wM-JYJ3=wn``?6mB|oGl_5
z3VQC3UTzPwv+*xWn=Ng!aH8sG$5|Fh;`=f)c8Vq@zYS*i$XS!olJjn}Rmyrp#@CK~
zt=l)ct9QChj%s`+`YA`cf4-whhHnyY>yd&(cMKO8ia9vf@@S+6oqHyk{ov$+Whs;O
zPxej_{t++BH=Q%iI)6`vo$2eONhV$?g*#4tx;nG8QdjYz@~^iWC2J3=CA%}d<80pj
z-RYf4$b^n>SLe62T22U7@0-~8oT1NYX8T#|jW)~m?z!Z=;8`Jl=skC^r;*Ofx|836
zk9sPdUU+ZsQOkAPW@K3OEmt`cpSa1#M&gx(O{WQekt_35Bk^Bd!VIDf;#|^ld9JUt
zgW}S(`L4E4bCPs={%XUyLeWQu1s1%sou8U3uqEZ@$Lmv0B=}S;DrGqr<(=^1{R7TR
zJ2me7?{Z)>W}5K#ZL(**RK{l>-8PZildb<;_3<?1JF_>7hdKR_-;TUO_h$$8<~Ilg
z>(x9exD(!fc+;)0->ioocm0lk9R4ju<IZA^?yKL-<mQXFA2)A*{Om`?677pGr!z#I
z_X&R$f7~}<cf`wWxAMg}y0z=#0<MZ&Z4%wSlAY;g%ccM7`UO|IOIud4w*MC2U$el0
zW%?Bk7XFW?Vxlsys{AQ-dwzFD{<aT0RTIP#U%M>)_0*ZCaC0Dstov!r<(F=(z4zwP
z;<*)nTMOhQLTe7$H$J@Rb@biY!mWzw?8{%y`tos#9^dZv<F~$i+;6j=FR#}wyCj<<
zOVQz0l=vBs#pi{e3MB_AdFeU|2)#(Rxz!kF^S!>|d~ngZwn_J@!smTH=WVaHJfi4>
zc&CxnwCHqqb-9%bzy08~D?ih5bKV-2F1}vfsfxm%WBu)1n=9(BxN*qqsID#lKk;Gv
zrF6>{y_@#)ORQv#Q~wC1Jy`2lXWI0xtw)|YBk#|bK!dvDyN}r~yMAf$K^2d{EUC2$
zcedQDS6jxwxiLxZ7H_A*<1VfJS$BFg7v-_A++El-JG1;<+TX=md%LnGNjZ0}@_qBy
zfju#?d-b7X-s|_|@n76;5_0U~V<D&9U2XTbn@D+htn%vC4E<5|wr~}L&w`INQ9S#3
z%_YxA2XAm=Uw<y(#2lN6ANN@I7V|dufBEvIY*+g3iAi=mN6xeEF3mJQ+cDqyAM3Jx
zDs}tQf0yfp_y(HDh~+-4p8ax5Li-};wFeDVg%jug^7m2E;8^AqSiJ6$74!D%Jd+;8
zUOV`^ajNsm%IWKDWVIR!UmiNUYhhKP*eaiy{@YgVeXS(c-@&>yV@dS1FwMHXF3M7=
zi>p_$=BacURiu18pZryE)&h+y{ae|S?r?K!9J%{r9s8r*iT6SdxK5I9X^Au8EVy;8
z*>CbQHOstw!^|Ch!UDo8x?0>-+-~Ze;`}nJc%EhIZTa}i+A5(M&p%xh^4u(!#;A6&
zDTTFvPgQj4-t@J(_tFpV-F`ABLi=LDrK<1$4(CPZ_IvQF>)pG1G2YbV;l88(v%gje
z|5KT=s#4^9P)*T{hsz>=X8y3Swkcu1edu1JpNmE<|1sBE5&LkK*fS#eb-w&Nk0di4
z@-8gZ3CsR?`ACnlXwBiGV%>y?r=sqy-RXBgdO<Fe9h>q7B~MlL18EC78A@MBB-~qV
zx?+js50z&g$$z&poHpcJsBu#A{PVpJH@CA2xFs4oO}Kr@EphUKk3C8UXI!+^xL#c_
z%ir*WD!cx^cgvk#_+(D$J1#I`irkNv$N6T7T!=ndmcP90a7_A%sr%y(iIl_^KD*r9
z6Y>6vq$pRY#)5SQB@xNX&;8Kzn`_0xBTyvk`f%C5JBGSUS0Y2}4Ic*yTu$IUx%A(R
z9U<pqO*}j~W~Y6Rjg6msc;D`mRrgO_{<}}t_Qs9ZYv!w6zTD1OqBb-2>D^_0hNW*J
z-bgPvw_Y=#<)!Iyp4kWQ&lGqW>vlt}G^b)_o|*Dtv5OlPPGCqCT^4g*wg1x3@)Q3P
zH}6$1Z+l#_{QB<Ww*QnjF1K8~Bi{C2`+FI===a;U&o;QF_Dah;B2(g#O8cFD-ojf6
zJQx2+Wi(IEl0Kg%Zl#re<eTl&i-kXCua?}@x+ki_$V{Jg*|IYGph$M}1)oICR_Mw-
zl$zQ!IdPxG^qco&4@qfAD7vl`>7H>lOQ$8`i_@lq=S$B%O&0vj)!`vpC$`ZfAUyM<
z;_E+8PF+6Q-khA|TwBh3HQC22$vdbopCfW_o1fFP>dUEx(!w#SD~m<@cqVpb%@&`U
zAGv*b>)k&ZP6DBFN8KVUy}xu!Kg4mpFH9t6#v0RH+oDIo_l55WK0i|EXmx7I*B_Q1
zjCsnbLU*1AA1vNfA|tA{V`1|08)x169_qA6PE}mueBRBrc3Mkqf`qW%J2vJ1-M-zc
zBm_fO9(*q$F}Y`g-KiLP*1ZcC+sWN$+i^rSW#jrh`Rk&8xhGFZ|D&C7cEW#!I<GS<
z-r-WG1o`)ICj8_}czNN&tZ6JO64PXuygRH8-#Du47NEJJer>?vl$-jMiM%d%71J*5
zy7$lY*0&8$EC2f`sjyrSPALf4wmt5=n}^0MM(c8AqqSlZtg@>f{!Vo(Y$^}&DC)C+
zRrBHX*{|NJB66MPPb7Zbdo0X<QE0ipoYnjzM{G;(W!dfg{dvo`w&@Lj@80QMvi9Xi
ztNetHg64G@o)NpQE>A9a6n!~3FnN)xVQNuEaM7xmEwdK;c1>H<)yP%sylARgVaOH{
z4xa~gGFuk&8h;M))}EF6xa?Sz;gYDC{Wcrt@aVOxEO~mxisSB%v#fDUpJK1vO;KnQ
zdAr9+L;S)E6-k@dM<z)-d^EW};aYW-N#^U6vI6GK%~paBLR5YmMlZHn<HbB<^Omna
z7PV%YriuNJiwIrCG^J<dvL{EYwl1~jP570&HTLrJ1oQBkTlswt6}#Izb}a7SvNPe{
zjf1l-CtvHZFkQCw>(Y4U3yj}xXH_rBozR_B?q08WMet*zpvBdVx8%yIfAQPI{t2+X
z)3#X0Qr*0OQG4o|{P5bE7}h8J#trTkhYs^(98x*RIZM@|V;j>&`!(D3Lr<>B>(h>q
znYLp~2;-FmljRS#v$<b-d?bFGTWH9P^htZ3lzzN_v{2C2d~-~kRQ@Zej(wl|&!p(c
zt@!?b)>Qtet^eH8^h=ZeRLdn7uG)E3u`)N)knPa--G|Sg%;~H>(YQlT(~WW3+txJc
z>j#vW6vgKGb9~!*p3DAxdZ6m0$%hNN|6F}waX3BjoYzGDgD;j`&YO1Li@BcF;GwRF
ztk#O_8P<pI@vv-KWb$GA7lrsuD?8@@y2ZQwM)&iRd9^bZXu6s4hM65#dhT~s+w7O5
z-J<*VKF)J{&(85eq|EpI*Q`@4ilLXRf66kiQF&P}_n<9h$|1XZwZR*Yn{uc<6aCF&
z<ru2{WUJ-X%q6>8{1&`Amr&y2SGq{JF<<YH@L_M+3dS`jFIsK>cqF4^@3I#RCMMrM
ze>f7fwNP-|=8~6jHW$^O|1q;E6i81y;?P^MMdPFAWZpeb@3fjeTDi$3zBlHW`c^%@
z51r4RWT;I({692KZ!IsAqs)IT+jCB$*K2pk<xbk>^!b37*NL?uP76!~oE7iy`(GFy
z?Odc0S9bSq;hee0^WADD-G3lldU?w9hh<a!gEq8I&dWJyIA6hQl47Lc{2AIcNj?0n
zQmyrKn2Y-w{wKMmRo!);u~5|RY9d>?#<^s+bS~ewFK=wgy;5W9t|-}1mcIW98x!N)
zPj3z^-+bfJb4QQUE3Rx&Kd+)8EOks?@#MoFj1wPB<gwY5|NCOzd;WUvca8^=Ia#w#
zzL1?<tZvvobEo}5;Wmb)F$X_M3QzuQzIW;JRRTea^cR*!axYh4(Vx`ws%R&}^ni~{
zO-%=bS9N7ZcF3%q72h+(<>IpAUMr?dE5658zx-s;z9dJnCXwbxEM8aZLN7Y+6!1!n
z4&>x^Uv_o|zu@Ph73v4nS2L*{-PoaXG_icgdK<G94D|w;-m9OV&9?j)#T>R`*4ooI
zrO#goykIhC`u>USHJ7J*71uwkKlW_b_qHRiT)h8ZmwGot&8XFWlMTb-w;sAXxes4y
z?A~eFe1FH4mQ7bYJC<-(K4LeYFA#)nDY20uXrT{e5shPBUVce&w2>irosWW%A!z+v
zkb;q+1?V6#1tUYyDzYF2BO}oIT@Vdj5^Mxs=c{031X@r85(h1U1koU)K{V7nBdB>s
zVDpfd5F3L{q}dW;Be27f7OaAO2=R0XXgw>~=a7?g4ULWUEX_;}42={_LCe6vOVJEX
z4fQOI%|U`@28Md3hDHWPCPb~jN;EXZy$lQ#9ynZKYM^IgW(>Zc-oRMT(!|)n$V9==
z%tFt^*c2>kXrgCqPTU!Yc-;Vs3mk4RF##WaXkZLJh|<ymysjFwxY+`9^r3>Ofsvkx
z8R)1+qC&zL=c%=jgoVQq2B7t^pwn0tOpML+j7*I{3w8|+jrB|{EkTPGO-#)6%#AHA
zEs1i3A?`(a;8cyn5oU&Z24<iGSrv@U%=HW`Kucs549yMoOihgq3@jBuXQ`T+gAxr<
zuE4W!)(DiRu)D(CNY5O!IM-YOab~Qgfu6a6C1@?Jg)u2-#wOxfBMHvV*qvZ%V4-JV
zWC}`)W}wBgkcEn-My7g}mgb;<Ftaq$Gc+(aFeP^JF75^0;L-%UGeB`}VQOq(WUgRp
zX{={rU<x`o)x^w1&%y{42?}Ng#(EaUro^TSyrBUq%&<Gd*xX3Z(!$ul*hs<D!a&c|
z*c5a`rLl#vo{6CeSkw}<iq_n~gt&F(c-HwFfr?V>t^l13Yh(zrM8VY9T+a-0)VHaL
z31}^|fr*8Jsfh(Cae^;pfC_T#t}wAQ2iXT&J8f)X2|H-p)X+fB*aWo1+}P4m&&<Nq
zz{rBA9Fk~>v(yCFBG?^aYHXorYGDj27LXlbYNiKWM@*_K3~?{123KO(ondThsb_2s
zS>bMJss}pC*4$jr*u=uX$VkD+z!X$o85j~-e;DDeKfu)*#0g|C;3e;zP<=N;69r>4
zP+1j3{dK+I)&Rs`&~?3rhQ<a&EbQ%*J}&5*!tVHEiay7T?U4#OrQzjYkG3^xh_jz`
zj@!e}wxu#b<5bd`yQUs_Q_g>2e;NIS_ZO4$@?Dm9UMi+rWLpd56j|DaUM;nJe&zH2
zy3}X)-=x*=nP>a|(%G|retkWY@pKPgac}+Ga=)&{iz^k@^90U_zkhDt|IFvlSKp1%
zPG;U%GwI<3`<qLD=9QXX{``9CpZ9my?A*8O-*+7i?;?@^eDQn3Q<_?zE@6^3yp!|f
z#b^DUM>b#ZYJc$TM~~<3pI_&v_v)$tDL8Ua<I^@S3-&CPMbG|jPCD?SnN@V_<O_?<
z9c`W*n7#h=O6MfMX8*9IPn73u{B$y)uTE2cF89fd9h@Btq(h3U?eyK$r)n7RSug!~
zct_^r53NDDzwDWpc`Dy>S#EiK(h~vA=M^_3H!8iZdHd#i=*4ptTiptGURWGny|M4u
zCN7taW#2vq>}xh(yXLA~zUQ6)YjYm060FqhpZ7K1``opB-f6cgg4A5gqxwI7xOo5I
zt%^$>6N}qxEA-X=71<gKo=rSb6Vjt+-lFo*>(s`h2D#TaUr+U_JQA65^h`n8TBW%~
z_S5{#9<d$WDs!kNamv>@zxNbg-J7U!)NJDZRp~5;7oI#5=z6YSpSRu9bKyOkLMspU
z)S?f<%a|RSKc4$*muPij!DFwtdj9PHf;C%AQmx#){lm1)wjEoLR-Nc`!p&s!`n$pW
zYtK~{FOd)n_|3u`vgz-e3$ag{xb)<9YcmFw)<l(0^gi{xs%+P4lWQBfCnyLT2H)ko
z&G%%cXW$l%u8&&Rm`$q!j};0h*Ix8LxAmiw1;Yi!z?v|=3x%KdKB%oLxxB~V-!m<L
z4#}k--_<y3Z8|4jar4jHcUg%akC=YH9sYXlA4dMO|Ndn;YHH-&%QgSK_0O9r`QP%d
zh5z64?{~6^M`e<o#qT<X$#Z$QckcA(JIT7^)LOgsvs|^O7|OlLh>d+=^G)G!kJzV^
z+N-^n#hLy7`fc0ZLvDF(FBiy|)-8GV)mCo$kJ{Tye!cjX^xJB=55vc%gpf_McK@|j
zGB~mD?Zg(XYtPL0E~-4p9^3Wlx6sbad$BLoj<1`2yZx@+@qGt`-8IdXCQLo8y?<|Y
zYuCd^EpE{qT0frcep<Fa(soa5-c#}APMdev|K4!_&i#}316?(Xr}8Op5&UzcWky4l
z)7~E)Zk%aZc0L`aBrm#O<no@GXV-US+8e{Z?^``nO}6)6yBeLIwM;gKL3WkI{I6<S
zLJV6Z&MeT8atPj5{KHEkMcy<^p0VPM7jL;UM<18rfh|S5WLpY0owD#QwcB^&+wxyC
zCQR?0#H1vkalWCce)rDb%l<f>&Dt4z`g_2#9VI+Wmpz(FdN#NBMc#ia_hdyW+uV)y
zo9{f{J$0S-XQhO@Ywq27f6d6F;ep@p5Q&5}mySQPeffIInT_kscjv6UX}jiL2m3TJ
zoj$|p7|VV4^RBPn_SmuI(zMV&`R3cD_jn2(o}rtp_Tkar{ohWXy&JVm(ak3E-LDQ+
zpZl8MEDvnba(n;0p^_ssS+3hwuOlMD@S!b#Y<^PW(fgsnEH~KXwm4ireRZ+JNePD+
zrg?@9E??y@?3i`aHQ?THp4U2ijS~wRomF-`&vmevxJ+o{#em3j$&X~0$WLD1A(6cD
z#^T<<>nuC?Bi6(`Obj@p%-`?mY{)3h*Wsa{U09HLf;aB_J;s0wt`4^<>Q1a({!y`g
zLST{khsBo*a}K5Y8YnH%>c6eH`GED@s%h#kvb$$?7+yX3V<CInfkPDw=iYQ$Z1v-K
z%E5%^Y0q~{yl*|S^)}<u<UNgxO!jTFO)Y2mt5CRga{AuDi#bs-?=lTfS{Z3Yy-|qD
z*Pkdl>3yo%Lfge{cY`;ra`{kDcj338WI$ua{ep(q3;!4_5&hY4_`rq(d8<UG)E>{+
z^mRq;CFPS1b2qPMx!voX!T-{>Pf3aQ(iH!hN1J)SZ;5QFU<*#v{L{JF<HC}A>a$Gx
z8bY4NEbx5Xk;@t-|DeXI@42{+Pk%;{=JwLZPsKu2YZR}l9iLui9%)vj{*b$yX~N^J
zv$ktVWVJh7sj&$CY&Rps<FWkr-%6}5tISSsx1RWs&o&@q+aq2MDV^ltrE<%Tr98Q=
z^lb6_zVjMwjg#j(ZeqPTS@(VIo2|`TcX2(r^Cjt$<IxStj+5scGtPc;uI1s1J9QVM
zE#+QrE1&#MS>qMMlAUp9XYto6N}Z7NTKu_j;RD4A;filQA0B)2eMz`Dac;CoDnqN2
zd+LPly-{7Oj;~6TT47bvo*Qm%nbW;ZNqte__PD#ru^N}SRw+iTTYA+<U$}FV-kqFy
z(W$AQs#Kl0H<>;8>vc|IOX{|z8~ZY5Kl>!PG(Az$`c}>MUCu#^7MDGVmzcKu@f_Ys
znyDO1CfiG9PnzSN7k#sXNrfZ-$@kRa;;nlQ#qaR*zp86c&bZu##Zp+_`_r=;PZyue
zHAONEi#8qhaNTz{kdss8Y~`X^`M<NX3a(vyb=LM9&*z61pFK)&QD3dV^dZ7gb}B>E
z4?hhJi)Pzz9UV8FomAJF{k*}NFK0Htp-^zefryI^s;-^CW;v(6+q7(39G}9Q_&6s<
z--hiCD;5emEMmR?MdV>ewA!SK3k?jde;!>AwRv6|>%=spG1Tq{x3Rvo?$J1}b`!w^
zHe8$=>~%UGZ_~|?kqEi{?{GuzimV*QjobE09@Em{KD2rHHutAI)0PVb9zQuHD8cjM
zA~(ydl{JcU<F`o7i{zA%iQ;$m-&8tp%e@(G`f4$EtDAobZev}+DC%`QW7h?XOZSz6
zn%6{~nNX}bccJo`RWEEarhBB$_^riKbLrftUbDa3HwJI@xBup_;Bfe|?_$ekGLOs7
zFLYPGP?)kvu`_u=yNmW5vo{*&CLCPnF6m=+_v^x|oh``+o;vSrcAfAs^Qqme7h%5_
zc^&z8<bmoQ(Ivg-yIs20evlOE+_c}wWx@fjB)-K;hUX(Wrk+>q)%e3@wu;yPgxQbn
zXNt_F?Rmc6Ww4p}+_}2^cv69?qUQYR&t@1Dsf3>UP?GlK*gLTYD(zQ38eV#=E<HP~
zqj}Fp&ij55Hy5yNc*wG$t-a}?!KTei4fbsjbZ(M7FR5=+ayz5#L0{>Yna>_<TlG(3
zn^4DXC$=j$er2xz^Tz33Od!Yn#sBtf+oRA?XZc`nZ@))Vp{qsMjq6P>OQgiulplA!
zPUddqEwR`>`_lKy#SIsPHq>`1ILx*>q$^=PRWM+VhtrGjZ%k5rS0~JTqqDuaNMXxe
zhV&iIo_X=}9SgQ8y?K5yU5r71&+B<@{e;-tZ{}Ys7kl~I<)+)4w4VoD*Dju`z#heZ
zVTRTbOZ_sQUy@GSyYfBW%vciSx4pD=_cC7_F@F_a-9SrA)x(Z@J$IfxPk-uk_{H6f
zGn3yl3m8bU?E3!GU{4Ppr%ga++u~FIHyk+J$C&iu>Z?TuxL+_IoOkM^NF)0j!-aBd
z#T*)LH^kSwOptf}ag^=2l#`y}zJu4Ewd6F^ZOXh<d20K<SfO@}_^=5)mI4QE$UWA0
zn%#D7>cUr6vX5$dWiQ>j^+BZ3bw>CyD_Q%dPiu9iM+vFyc3Z$brGH()k!5ApE*To-
zpKe{>w)}*o#mQf*UO)MN`saaF50=#HIyP1R<DA1U*DE+R)oUs5u^^YgoeY&{ZtzUr
zR%rCRIdJXCTH_O`>;b~(jvGx{{BMoSg2(F~tx#P)`&nzJdHBr9CpF%FR9kt%>i+lC
z&sPus&saZAcKbx_t{!902`Ps02^PDB5;(us9XX-ou*btJ@<=yBnOKqeTd@neH$|$e
zK8ZKi^zT1<-yq)L#LiHi&ZBCsUUMrRznd1Zr}X{K=O63t=gj(@w)yXl2rs#a;^4R1
zzXXfUnB7iuw|_nLcwl$^-k;Ka?3x-yT!*UfOnk!W^fRe`>t9`;xg3>s^<r&t-S0Ks
zzbgDw%sl$PaPN;=#^hI*uixKP-aY+`R>*O=6%1UOIp6n1=5PB_?!v#Sx9&*Z#=q~x
zT;FedDR|oM&8vue6Z2U1Zdm&?jZ5>0hKG|rkNOm?yQ(J^-+ZJMpBKEP=7Nl4i0HrL
z8wDih2dVD5X)DBBsCE6v_k%|)CrN%*U-dn}{lmU*0g0*W{^|bS5$Ulr=*@3d3HPP~
z%f)_G`-^r&{Zc(3xas=*@GsvD(tmX%{z^!iGEd5Gn(dA=7v77lF0<W~AM44#yZL|b
z(r1BJ(-Ifd<%o7C|Ib+EztQZ^$v+!q?WWn<t^c@#_wB>~ntg7UQw!d@S1SD6$uY~o
zOfa#;Qqa&q$hKU?n=vKhUFP)ODIX`j`N}{4+U@LH$G$MleV=^x;ZyVAfBbu%pH#_M
zG;z);yS^%}2;-*@8%+&f7fJoz=wdOeY{uJU5%#z9n;zZNW$xOzQ1WQTm86vyT+hCG
zl~r3U?djt=ufvIxJ88$ddHLp@nlDz*duunvWg|=Q34ujhJg&A)z0YrK?KD|9fqkuN
z<KC+q;(aGIE|yC?G;7Z!&W(rjZ$4XO8Z6*6`=j<7%j{{MW;0wi-dk9zdvx3H$+MFl
z1s49FGNaY%HRs|-t;d$8iro&pa8UQqG0B=}wGS7!@7Ikz()F6BS>N_!%lBhe@~Ru&
zE6Zi3*!x?Y@TmTF{^kWPuSp?72~M2pt$aL^QN@QYEHf72JIH@&sos(4pI^l0aBrv!
z+W4bAeBqq}mIoi?WM8%J+;U+}jJ}m-jm71L?EbTT!LP4Km&@<-@JjDqwSO*`lt=Ki
zl91w3las|wY-XpO=Rb(aI2wBWM@Qjv<C85BHqV<h9e?h=<G`-ZF7(PIK<H5wuMD4_
z!G6E~Exh8EtFv!7`yJ&ieH+5Y`@+oql;*S-v+XPo=WIVAnP}R{oVbc}i<p?<3BI)p
zeTBjtqf2vy*X77P&beWBd9h2)q{&_{lIOSO7^ig4vCy&hIISjIHT9K*-Q9H>9vKy(
zo=&$OPAFX6zCpPu{JGiePu-Wo_)TV4r6f$>Y4e36{G#)f!X(klf`@n#vL1+qG2J+H
zEG|>>(%tyIkDdC;PCJTe@Se50Z`oq<%c!Z}Ann{wF+txSCVYM7XQkUGa~92zU!mNQ
z?ACqp4Ey{i%S|3PvsS#=%e87wfMj1$P0KpY=5J4XM64t^b(~*IFY%l8Q*9aFlCb07
z3M5}k?blTC{<de=-evv?_anakth@V6u-ERqV9~1RlWUxUe3q-8OVwslkn~mjqLo#(
z*~9fsm0(6{Q&#!>%jN&yzdK`*yXoqVs9<A}XJ_(Oy$yY%7}meH|6!le9p}B7v$P`n
zmmc6Np4GEpt;xq9U-zYR#2l!wp7&&V6;qtti$mA;1>E@M@W6h->nEF<Crl0H>u1z=
zTFIEyy536S(QeHq^`@eGywfJ0SKhKa?E1IMcg{PDELe1CJ-a&dhNeeTx{7Sna+c3!
z+~VNnm;a$cuVuNXj9B*<+5HXDw>k`+AFAB&m5z@4?9IRG;7qa7GvCv$9DKFDbB|ZM
zWx#URuBE5NCcoP4y*`I;-J)ENKfzD5*QI}&T9Ed1?TfP?&W5x$Y*ACy)%tUmr(5);
zpz;ARrMzDUXUocp)g~S=k5=3~+ag1LM)V2h8;f$wp5J^{(ZaEf<u=dl9Gg96H`5l>
zo-m8Pa$7(AsKM>nzRkJD5BS$!%S*95xAm-w`W;8Lwrh{C_;^lL5m_YjYV#saZ^vui
z3Gt$4N9C1|e0*^v^{<7iOHzXIfvsFD%Mvp5x+FfBdSw4=UF6hLm33r;%VdxGNq6$i
zRu?O={qgLOVBXA`-rZBE<Tyb^y7&6asXV#u@n5g8O`0d!aX!Jczs<e!p^)mwlGaG$
zm!}KNd9JqCUir}W%+tA9ME&;n{gP4!T+un_<YygO6SSJG&Fr7m8o@)dWicFYEV^pf
zY)@`<vb-zp^HO0Vlg+oe>8~{^k6T4~zdK?jIElUL@8RWNzg2-s{#OqYB&9!1vO4f`
z^X|J}pH-In?q6h?bN|ZKy8Uamh3<8*omcy({MWMd4<5f`efKMtY)W&t|M@PkbgNI^
z=GXJ?Z94yb_N+Js+nrZqYhx#t9%T`!RuE>JzWC<nx25+@oiv@Ur}}zMQs(5#u%4se
z@VLLr<Vwo(mHrJ)o7_+Ry41{M$R_am;;D#3_UhL}rW;8;nx?Eccc<KHhk`GH>-D{N
zNc%b6%m~c8!t(I&Md6ZWl@o%M7e$XmeKPp+K)=d6r>7^;*(%jN$KpKOvh}sH`J3fe
z${HQzeUZ50M=%SkE!Uy%X(3gt3+~>KiTkDZFhWW|QDd%BP0e4+)m_e!lR~Z}?{qEV
z`Db%{!nqBeOu7#_RhLaL&Xcy<cHmZqbjplZRsXa2;+DSFXp=7bw?<`!)~<ub>8?DU
zwc6=lw|@V3u65sh75~|PoHm|oPE=j;&QF|^smYa@Pto&UN5K){gN>I}CUG9I(fio{
zlH<&j7B!a19nrRIPWGq$m>(+1aM(66AO4ytap9HZ9j3buZOqHh#zsmwJUBm1w~nW|
zX70YgGP4_>tlahbcGSIbVRLf+-KzOzevf(5(~1&>j25jqA6g#>-&^1Fw2Yy4y6*dx
zPaUsvu`Sp5pSjzaTTl6N>FM(^T-w_v6>ipxn^(fZ^Xtl|6Z@Qddj(e~xCFgSZ|`uO
zrCAgxE*YSEDYbi%p80}XOSd{PIJAjw{=2-f(WJ3TI6<>i>V^LA=)2(`FBu)m?KouA
zb$r^zf|)+I<F^;2IWbCjXUX?Ge3n<dd)?#pZw^=0Z@!s(Io+trQS$DieJkyju75H8
zOMQl~oYa1<H;J3~d(OWk{KfpB+$-PUr^iqFOw$vXCRn#w_t$a3vzyp7k3JG)KO1m}
zr(OB&r?jU9D*h#R4ys??!`icGf@1Hgm9KW+F%oX+cDvqv?M2=S#d~S>x_giPwR`iy
zW7p)f*Y0x9H2=B0N-Kk_!Yi2}p4()0*o3DhcRf_p(lu5}Ju%SRRkE1f<Wb%#ft<+`
zqWHyvCUwa?xRJQkf#ZPI6w`SIy!S<mn-hY}o~-<>AN-lu`N~51jXUPn1cn>7EqUL;
zk==8AlmF{oH)HOqr&Krhf7^Zg_mt#m4D)@oRi}u*H1$1XyH21m-Y0BQ-OHVmd5^d=
zFwGDWQ9FF*ARB+`B(8o<3)9?rHsOp*giHCZ7CwyGC^v7((iMewSZl5qGcvYrm9Kpn
ztHZYGho`CP!?vymtM*(s->bA|)27=R8q*&c&Aa?hLuZcd%9#cU;z0sd>1WI%HyvDM
zex=HUNog}zYRSzN_E&B19h*0U=kwpcqJ<hcRv*eY=e<a`_&TjfNjCoNt6jUSYKpj@
z<y}gjmivwK)&%3VQ~Pc#yZrd(?(b)-Hm`m3OF?+!*L^9;2Gb|I?rwX~@-tKZ<)P1E
zE7Kg@CKw6rb|_??Ze{nqeV+BCAbE>D?yT<RU#6`sXjHg4yLEEU5>1Ci7ZvW<ZfZ;l
zUBaQWz*~gz*T=O&qTIZmJX1J7?hj1TOJrv9TF5M*U&oi|9l`6$E}^3Tdj6gpD<@}d
znBdJh+ey;LKk)JOeTv;ZzHW1p9>iM-p3b<ir|0mu6S^S_0@KshRJ3i_81J@XiqEp-
zz~#;C?Y5qZ7wU4Ex!fc~55D%+R0(LgYLYDCuVL@1*pS+>>q2d2=dOdtB7UStDLiVh
znI$Zllv8ipvt+@dowic*|88+t_3qxym?z}oY`c(s{#W+LKBqEtP4=a%?^}D(O?H9e
zL!Jlh=Zs&!<Oz04&N?w^kIc^wb-qZg)+vft)+l<nx>mKU`F|-+*E&x*T%<#o<%By+
z+%z`9!2am<GktkfX6G=S`I5v?EmpMs&e{XhY$n~B_s7-l#QjJ4AH-QKw|6axFj1YP
zn|_sl($^i|?|imcE&PKew6R`y*6jH8Yg`sIh;toW^7(Iof%1VRv6qX>{_cAGi?RLE
zxAlHUer&jR&&a$gY}T=*o6|Gz=uTQ{u_nL#c9ee3w&N9?dxcM`s$RceS-XE{y@j59
zR(smVTZzTfueqK)^3FFYKC<i5{ra_^xLY1S7k@B&$wQUpP7Of}8{!VXl*`+$;m+fG
zta9OGj}1qv^z0wZ30`?=TGHQL;il3FF3NWfoz?wTvo%8ZgZTXQVl8Yx-{j2sc0Q5o
z#14_oD)pC(<~V+r<$G$#8g@yulxgOT5}^sb-yGN%Jdq4G`WB?#V5?pt)y!9Yg?mjT
zYwq$kzaPeaT4Ku`dXl}bNoH8>mVW8Q_UP_|296SA!=Bg)vKA^420<EH#gqJ&F?A>O
zURmcKFZM(B^MvZseL@_iVt>C`ZF=gvddaii)teooCj8iEame(Q&!q)^=gRnt=UPl|
zVQ4AYdrnY)$;$iROK(>_GUW72P5EncDck8-$t0PoTy61Cw-c{qx&_^ugiLm^+bnjT
zp;w`&!L(w_B-5<$$F2>_C&YdG^<^ph{@^bX=6q!fcGgBdb)3H3jQ7s5*K@Mc?y)tf
zvhO#&bm^H{y)1KVgWKtZ?&K3fN1Tr{h&D-ApOCuC({>=WrGD#8)q5L*)MjaAEMFMT
z9j+uSoKoew+qs1KOVvTmr=}O4H^u$87rXSSq}gVJ_zjaum5X+7*rA~+Wd3H)(w$HA
zbOM(OUo173-9F)m%5Sv}r5xwG&wt7ZMRL072Q9P^)>)$3uUYtU(xWTC%Wa>0Z+&=B
zc)jJ#tUVWZ$z3kBol>NK!Y{SEaI$Qd|Gl)$`%jm-p8aAhA$0$Tq>bsD^ht(Y#kM{P
zCgvQopC{ee{baL5;qFJq?iMZ|t=Mm?azuaJ-Fo=edU1_zPqp_u^7dD%_U*0_jlWa*
z_x0nn{p<4A9LcNSes8&N;)^vAUuA`*#A<E@vc>E$_J5b-{=IjmQ3&e=Q68=5=MMSY
z>|A+3;>4n2uI_}5RRvM{OZU!BU)Iqnv*`)Xt|xCx%vp21<r1DdEW6dFx9xm>dTHtj
zK|X%V6s~tZPh5|)FjTcCCq?@to)h=IVI=3?@HPJwSKrAAucm)x3cr#)W6_#U=lp%I
z=L_f^EM&7xoudDHV>ffQ)Rexbjx|9SuXMX}zcO64=ZC4C@58F7qX(O(xas~{>F0aY
zOKbgU=el>dH>O;*3ci@3peT1Bw{*GF<k{w;DKi`%eF!+iBcUKPVP(<g^d^VTo$u4n
zvP@h%g?0P+Ih+@4gIY?PFJ$!3JX*Wr)w$;GJE1Wy5>jXD-pwu$^opIHpLdse-2+|T
zYkzID`}uN<YODlLuUWWtPODOxq~xt@rM<jsuV(nEEzdXG;vi%F*1~E_voUv1$fefR
z7m^pIuo(U|d$BP^i&fh|+$QJJme#fMO#Tx)^r}qSYi}<0l+Jy9DdWJ>nRgaWf3*Dg
z^>)xY?mIc}ADSiPhQ9R<h*l0;U(P+pu!Eml&E+6}NAB5IZ}sXKiZ$)>`uLw7KeCNi
zEbXw`iqBg`%C}C=j1tmX+^~}8VEwnpP2IiP|EzLPJqwH%_doctI8ebRv2DHX-Cx_k
z|IGURHSwmDW!I^xZtphS%;oQ1+W2?-qqBMO^X@Agu8hwAKL1|XzI#4@mfk;c!)<cA
z;aN6$NjDCj;*cqgim4kfFGyoon3&zNcR{zM{+=VA1;Xud8}{nuG5L$^PL~RLThbCS
zFZJ{Ki<>8yiKd+Va&FVjP2y$&a`s0LGCMAFJypXzKacOfvfa9$=I2y*Uq5~|?e?Fk
z6Hc$!Xgl)wb}}35ny!nL?|Musw^l!p`ugfo)$HU>@!7xnIgC~rdvyfAV_)ol<<9vR
z8((h>{=(Z8r@Lxaiq#Ef!3h7a6YnyqtaP>F6N&p%60`sOOK0xywZi%}|71MPcSI<K
z#D3tLQOKUQaY4Y<2^GzOr6+AND)c7IY<+p5E995Jf)nz;+?GuFmM-ZOsU_)jb6wUG
zcatTDoJ9`a<-5bWMY>AdI`CRV|E7mw-j9O>?(D7Je|z0__d1qNzmq1eEmEFlPj7ww
z#&GUH{07lS=U;Cx|5>g);YXNzfp=YTRNK+6b*kGxa=vh4aep@H{+(rs7J5H~;@)`i
zCG>XuDQ#y|t^e$jHZP`piG<mSuN(6CZ0y-wt&B4SEri#9Jih<;^YvS{crqO<iriE$
zqa2Z=u(K%4$szjew8tw?WN>I2>&yx3a{nP<{LFdPjpfIdO8B($&*0;%Wr+$lU@>gW
zkDVdK^I7WE&eW5e*4%sl>fDkF4eseiVj}Lvi@K-s-teh1t13J2f_HiNx@KcnM>P%^
zv&py4the96eQy2syY=es{GFXwR^@tU%l*#XDPpVgru)jSjMJhwn_0zr*v|WZ-o&0W
zC1}#ahpQwu9r*U<@qw}lsf%-ulzq5p_>Ae_1?lt&{*Uw3Oj?t**91vqa9x+Vc6h?h
zERk2HRi^d7M7AtDGx@#ey`OHDQzYNc?T!32Bl%VTiG7;>3F{xOZ&tZ-*L%<3UIk9+
zWE+iKj!Dz?q?lVmz7<?xGnZT~a5vQAL^i|T_{R^P?f&?#Uh_8pyblNca`v0f2u^;s
z{r(}%%GcFz|Jz7u1=rqDkdIgLa1l!`b&Gv-KB-7C?4jbeleQ=9nsn@DX?bVz>IenB
zkeTgjb-g!mVu8XA6Z>6U#U@NIH8;75t4dt8Pf^eJe7u^WlQU}-0~^1GQ+n53xA$zz
zCp(yYFJcj3&CS^vyE;E7^<ai?eYDZb@85-HYViN--}mPI<&!L7+J{0WJ3l#GzpSW}
zZTbtAtCGGd%)x#K&*v%$E>TEuOE;YudUBV<bLB0C6Fsjhg+1W67rlM3C;6C>dFwru
zQk}2z{{!BbnYfCTa0>`*TEHXX-|&*7?!v-OiB<1Peu@9@i8;34_mhfE)iK2;!AHFP
zzc0kS{Ni1f?l`~f%`=`K+kP3Wo!_@HXr4D;#Eb(6u044sWiGJ&(Z0yw$TDHp4ZSnl
zvp;O|V=%Q7uh^6yESec{Bd>Sf-*wj?i9Finx=V7dal9+5R1)KavvYh6^A}E9$9{C0
zzedrKoYVhI-cP$0kb3j^3)UOW^Y8adnY3ztIV`%Pg<D15JtXYGvK*DZ#0f{N{#JyA
zlyN#(Ej2JG;GDSW0Phi@Js0~`=bqd!sp$Oc=kfe(XF~H0CM*#-#@cbH{L7Mq29BZA
z^!;Yte7|aAg5{OW69SWSHq^a}n9;FuLXH(L*U_d~&mW20wRx4kewW5UyP!+2Uh8{t
z?a^Aeu~^?ri)miwr(NQ*XLCaoUj*)Io;I<qSh^(NFRysRcZK9>H9L%6JvEc?ms`H;
z!Ab2)cW(M;ugE(%|AEMH_4&V#t1<h2%+;Tj7Bi=I!~D{{LN-07hj&Nq-~Icp|BKoO
zFUwM2N4F>+jTGL+QST(g6TrA+jbh9B^Nj~$5?&jKKjLVLtA6G9CvyE+_1@J#*R^dv
zr=L;A)vH~p8kg}qYvQ^^8&^1go&Lwo>4f*kkBNKZ^{3r>Jnxb6|26^XqlaG|W?El8
z@n5pGwjBTK-G8ohJ!bxI9kBGs-&Y^){x(kTzJ2#wUh$nb+t}-b_jJD%-+$*1b9$Jg
z)VoeDMc!uDx=rW#x8JsBbhz?snz-S@Jwa;EwK)_{9k<t&iKvn_iHv`@^uW<eANNG$
zzP{{xOL!6Ut##W&(rWzIOVwp$WnNftq^4_v)}_q8-A9EUdcV0|-oIU=>!ZN67#-#(
z*&@L+yN=|)|Ni<gW9p;p2fZGh&70p>)3kz#BeeLCy!&4h4Lc8B>6hC4=L35-?rSjb
zUbm4o*_5ZjuKq_*&bF6oIp>aQ#W(NR&VBgo{|)!_HaG~({`zgke5-v2cWd2E{Aqt{
zb?))r$6SXd{S`PUfAILi39=>MU#|YDa-?bP0gk4M$u}l^+AvMB^FS7B@%2rA^Z$v}
zH}5~-G56if#P1tU&U~nKp?Sv>pZHf-RtC3fKjPWc^313y;lj+bchkO`)$-lQ<o*40
z*7s~V@3XsKf4@EZ`VYZvomLNcs#fmYn|wsi%zXCU*ISR?+y6oT1<RVUV(u>=#1CZ)
zD;||rtgqZ&`}f&9r9!27U6Ty!8K=2ltEl^0_Ph3pVVlq9-ao1}ReNKV+XL$loQ*Ou
z|05mzKUK$K|HEH>9DD9QYnR`?`-+Z2;OD&Wf77OSoMQj?Zu+Jx9O9RRzN=V%+N`6!
z&{(uaYRYcWTQ`1w<W!pWZ}Q&xGJhttX?(cFvYE4HQF7_&WntUfjwtO5y*KOs^yH^W
z-ZGoG4rm@ubF_Nv#Ch=P30=0#U*~>rb#LFQ7xzZ)#S+uB#gij5mgwJz7p`9UGcD;v
z&;w4k#m+O@&;2r)wf@K2UE7^!&o)?eG`en2+C2$5L#KZ~Zb^KeHDBx6zso5~&G#my
z>%F?B{mrPNds*&GC;7`W9_%mA;EU_O(XiyxKbv!$2Y1=1zlncs<ni%V;cVucg&!5z
zHRkSPXj;3;ajN)_T%Y!eMxDS~6F+CRZ4Z>HAGpX!`Dj04kE!(hu(Z*1?LzOS%ZdlT
zy8PZhU!g<LK)dEtlY(+!<iVYm@|XH9-;h3{(y18laDQ>~lKiEMtGCu~KepoU*`g9V
z-FJr`o23czOmJAGp><HwGeW|tyZv+4EnUVW26^qXAtD=(`~Cghu_RKwZ+W9&?c%#~
z!HSoKerL1p_gVMZ+V~gu;+V#zJ9zdLYMsul7O=SX<*s3#%#T<9E=*mgGpmS0{X?40
zsg*40uEMfW-jhxV&5`#rur91;|4<M!sjAGP(JHg)xoTO(n)8NpYGVBEE}6XZS54TB
zfEy2VX5R2J+Nh>d{_Xtj3^vh}*4Pr0)E_=)uYTSA!#TnF=jCtje4nq#nO{F)XGlqi
z+sPyQ?k-u}aC@`Ho<r>EbJlryZME-Vj$c^Gl^615N|o`}*{U84EiR3+2Q$rYAGBn<
zF=h8(v#qn6xy!E3o_p)m;X;-rOOn<f6gVimnKg97$21k)ymebX2u(6C@bo`FW!lPH
zSq~p>{QKxu*0w)Fo@s%(rk`>yIE9sU8=q{SV)txHwDugEPb&5Yo16QjS+YMBNZkuq
zcyOAK|Kf86YWr+Xs(cd5I%k}(`ALk;%WJzp<#DdHrGJZ-Z!4BiE-KlszEtVcoTUu>
z2QG=_Z!+(ETGMfB`5&FENe2%L$tygbp>XdVqtoP*SIfS3h`Mow_}sjfvAODZhmMh!
zx8L`(r5}3_%-E@S&+Go5?;oEmQPkMO_)XjOBKPm2O9Hx5CKUpe?aQ}ZS^LcUoQ%oc
zTm`)pLlbAFrw@ImD)$KV&ejjLWNq_W_)6>gLW>h~%sLi$r|Pkrp1Sk&vGAi~>&hnX
zkTu9in#2EU+G3j<Vk>4W>nV{6Ja%frM7{rNfjZThX3w|qtnK$%Ta>qPw<FsXxzrf1
zT_w`T3OQezunREBaAz*x`bJ~k<vfP_8%l37pPYJWo73*#9Yt)skC?w2aqkohas7J5
zRQFBX0p6}`zaXi(I<Xf@16@iLFR8JsN4`>hP!V!E;`2g}=Ynq^g{(bL{7S-cyONhP
z-}%Xh^o7r`tZNOBnj>AaS^9TcQvu7&n$Mf%>-Oxry>EBoZXVww+!y7!AE<OpWIAj3
zq{2j7r}p=&XA{{DuIM-O5A|BQR^_<((Yrynj-H*M_Or6{aoN1buFabdbRYh0x_(_n
z@Dr}fHQOJ)t$jV~Zdz}0(C5o})#ckI<#z0P8&l2xy7l4gpe=8&z0NW^^Xa-e>rbu6
z4A(d-^Ht~O&V766RC6H5*OcETO1mE&U(Yq$EIDCfd&1(SDix|t-YtKZS=2mjk-9cB
zdCHa#VQy`;U2FN%YZ4kK^(Am=?wqpyPsQ2r2j4zqS43<%D7`=a_ZJHn13{*!;2fiu
zNgF!9FK}c0)+6b1ZUG|)ceNOoD3_$ld8ebRrTkh~GcfI%#WQc#z7-u$V%Xm~ha{YC
ze`!7CS(CNX^rjuwO{>%Qx*wRzaH_Y!wlY{gXrE5ruMdlvBDZ~tur{Ail)^tpXz%s^
z$r4xhr7nD**yLHbaj*D+Dc2SV`jnV-^U7Lo(|)hcuJ%fCXQ)=l%kZcFitU!jF85r0
zv92-L&G8naoa~3yyX0*Oc{9B#&M4YcG0pQo{<K7GecG{wQ(hUV*{sM+^qYFyDs`*5
zZim)%uSPzu<IWvg0dK1>b9}fT*!L<a{mxoN?Y)tzvHiZ~<u}=sC%f6d@mDo;d9&}@
za|!k4umu8cYYWyD8gVJllXX;-Fiz___$P=-c|L1%$#Zvmy;EfeV_!E##wOHpZ{weD
zpY*%QZeI<nm+z}>-#&ce<68aJV7p7r_VQ?hl^?b?cyFG2C4Hx^(YCLr7M#maPWD-`
zTUY(+nHbK`Vn2LbG$w2@KC2PKD)IP-URUg_yQhz&+&`Mh()W0`T<7LZ2~o~dJyLq!
z8_t+?^RZRXDHrp=OaA%Gwn%>T-SEbX*SK9-Eg`*Cz4y$KRe3(yQ%`N4Y^xP9*|I@~
ztIg`^mpjiHd~?6ZRHy0jdqzZ5igjrj?~a@A?USpLqwGE@^~jZ+Yl}9Y?&y50x;x>^
zqvn?fo;=W;V|nek@X^nkT7OP={n)0#^>w4$-PQk1_w*+e)lB&I{K69!>)%|b)Za_m
za4`Q4QG8kWS8Ug3ZH;xO&Ysd-8rb+)qEF*sAlK6uDre33Dm*9fGs(BMJQijB=KQ%u
zWo=`!rrfK!(`4o6esl1+(Rl8KqsUHEuH-N$8G|z=N7r99l^2khx5$zun5!i@`Ibx0
zvE7|UQ_fDPu3!*u(e(e|ezu@{<p#^jcMXrLwmAoF<Fks=c)s$Q_>K)C3vHgH?0=l-
zdP_%_i`&Na@YW?7Q47!ad_1k+&bCxSi|^Kg6%Ai2StCj=WV>X&nBZ7)Ot$FNI<`7(
zv%GtX?5m8gAJ6<SvqF^9kzxJUnB47i%x|pK(=yQ6-Xpbr!vPzPMMreCHnblMPZ1NZ
zxL|ohDk(o?vgLb)>s9NEyx#<^FX~W=V%aRd^YrnlAp%=<y;%=?_9T^Gn*YRxyZiIz
z=V$zj%x0cwnl$assl*uV#n1c<rnz5WsyMJ+_}_W88Fss7CL2Gm)L&h@>f+=_4Lcgk
zYWdG;?ry*OX_3zFg&X9yZ9U+*p!EBSW-+eK+=(xmuQ1NNH0hwER;k6+%R+_R>gU$m
z-@NFxwW;(#F~`K2lM@m|di37hmYea^ZyHOqdoX)iVn(ZUip`Utm<J~m74_KNHvDo`
z|MgnM<wWVRgpM=;QMGSZzUtnPP0;;3%jeZR=CF-w63Y*p9{rLwuX2sozxru$!7oi$
zuy)6~{7(HG@^gCjKidSxbvpk_<qcmlCHl7WU+R9+JHPJh*U$TFCyFiEqR^<Yu2@Td
z*4ewinhdUo6qnvz_rLh(^}pv-7+KtEzCXFY|IfGA&+99HiQ2D^%KG>5P5k-!e`o)9
zO3Jo-e{bsV(@6=X&%Zr8e{^n2c8)}!!WyxtB*o4TP1ah9qIxG^FRZy1v?ukupd@!P
z&r`*#zZhTcIMli&R{T#sL%{j9m#}VwGB#8&fF7g|-V9V6ZDec&+4f`%-PU9b+6fS(
zU}Owhiw~kftKmVkIaD2JD-DPb-fg5{WCGsQq+nzMGCBx(yORmnM1AnqBO2V8U;=hH
z(sn1XPaq4b!FGau2;J^vV5nzoU}<S-p<r%opl4=aXkcipU}$KmXJi4s!NA<aP|v`^
z($b8`9UX?|I9Kk20}_WbEG_g*EI`*8n1MEQ7#f0($u}~v(6clI9R+R<+RtHWX<$O!
z?g3-m%l5&Mh{Fv=mU?EO1Hg?H%*-tHOf1X{jEofwO$_u5EG$5wVrFisXK8Lq<YfgZ
z_*?->LO5JuVX9|n01kRnGebR76JyYY383@nEi5f9%@j<{4M}l?CGK5U#-Q|z-4T{1
zdX@$z1_tH|;4LMPZ9awurh3MfMg|6E;4LMP^T>(X&0%STJ57Kx4|Ycwni%O>8W|fH
zm?)T-8|qn@nt~FAp{cQ+v8f4I)WS&5*u>btkhoNV&lRAoi`^9_rj~kUW@eyM=*`Sb
z^h_Z8oRA!3W^STq2~I0Sg+&scumBYt*j-_2V610uXa?F}WM*KZXKrF_U}B_TYG|rw
z3EBK)W(d3agi=?4i!JP~Ft#w)voJOTZMHHtGtsj&HUcFPV@nG?BQp!o#U{q)rh3Mp
z+bm3oaYeET?!*Z$G;z4X%tFr$bOOGif}w?ho(1T}215m75Yx;U<RH)u5}?w{(3luk
zq~M7Wa7hYr1=%}nOccz_!3DCuo2i1CIi%=!GgB}#2iGV1ZiWU5#wMTyNQ133;F<>F
z0oYa=19MYDeYeb<lGGx7x17Y1RF~A`{FGEXyW*0f)Wlp~E|1P5;kWao-Gx}cX+F4I
z=jgEiEJNDv_tPbQD@1P!Z&Z{PlGO=2$*dY^#@rclV&c;$+TWT#>HcG@KbYiSdVa!X
zk@iKK@8$5cEPnZN-Kxu>%l&LCE0un|7u%bD_}*mkP5QqMpPu)?C;Htlng6rWl_LUv
zlzJJSY<|PPzS@7De$M}zi_d*D)Or7UCC2<QwfZ9d{IcA8{_`*E%lBS>^ft+;Hk@zD
zk(oyi>hts;G79_?F~y#D|NF$*&$TX;y<d84{lS%La*Jn9mJ$1P_;1`s^%%=PJGY-*
zli>H`%g@Y@$)3|>dcsuo)4sSTY?|@7zfhAk_~_l5px)WvuU1!0sgO9oUb<ZUve3lt
zN6wlm`)0=0E{HhsR$ae@cXmtQ+HCdzu6kB&#Xc;X>ZYhY(AHyIlHkPQ?I7m=^0B(U
zk5z~9%GkHH2P>m)7nxu3Ol$sf^XZ&Pr`L9zxXRch8uOj~$HzlQKI^A*7)5P3*_3if
zZ|!;G<L}xZt6t_(w_G_h(CuhO%B>~4ZNG_?cl*w%JiK`K(fG{<mYa|1=zl2WJg*t-
zcDeh@i|(UuZ!Ve@vOV;Srlt+IVN%rE_W@l2F+I<PcO~Dyb4Ox(UE%vjYg(l>pIn!e
znqw)Qv-eBo+gVc{ot+eOJGEjm$NXzd#<yOoZTNV6w$O|pNp^8MYMWmw#R@kS>K(}r
ziZi)BW$`JU>%FJn%kNNKUg*6e_;}--GQsz<pSY%Luf1@Ct)O)8`@&~z?@m@<EqlE0
zYr=$Fztn5$_VyXE1qXM8@BBG~JF4=E&Qqtd-bs?Lop=9<T4BA;S9@-l`-4Ek-8vJW
zX3p|_84~Vi@wve3#a3UdirW)~SIap2O>t^0u)BA~(oycv%o&U`+fRIckQ2T~N%z2-
zNsS&7h4-iaU@qO1#QeDOjPc5V{x6lkips)zlME}5`^5U#JrK0J8yA{+Q1r>8im2X|
z8hhCm6#6qXt5i*&x8QE$z1Flj?BT~3U2*<$E|SA<-H*Ad|8ojWRxesF78v&4J+!E2
z-to^?9RWShOc@RxSmWEeY^vw-(DD}ov$R`^?PiC4J}IfUgyDQZC11#bBP$=N?>VSe
zJNH(r+pS%FWsR;k-vk~!IQ6K6ncgKPzZo&==PP!9^B3-Hyl!%Ca><(&Oe-6=cJXfv
zjkIyy7M^x9QZ)7g--X4xTI>E9e7ZkzB?H@R-;<)OP8kWxC%g<I1#K@!?3i<Y-SrjI
ztL6$xPnLMPe)`c8t`o)oF1yWI_vudOru_@-re=lJEt<-x*T}y9^AXRpoHySKNrWh8
zIiF!Wsu^0p+DG8U?Ev<D`MvF$iu;><1cat9Y~-0GtJ>6`zG;j9l3M1H$mH01g_-=j
z{PyoP&*$s=#{b{(;=zoMZ+3qX>1vjra9@n^{obnRtoS!m8NJp@$nCSs>U#UN`^!d6
zzWz3L{r>N9bFUO|gx^;Azb2zO(&j!-x9hUSvR`zyt}8ccHe{Cd&Soml_;1AW#_6Qw
zOqKAt61~EaX)@Qdy%)^Q`mtqa^VNN!%lE%~QQybOzVLckmE-)pcU4z{)}Ed7ROO^d
zVDZN<fpU694kjV;_CKcFRp*<$>g3kFi~ruK>@eReBB(AqGehOE$m8jWeD@SISIM*d
z<xjk)b(QY|>k;lhAFLPkwJ9$763<&Iyd&GA=>3lmPd>az)nOKK)Z&Tf`Ck`Mt{AXb
zKudk{-{!}MQwyiwSnw`<YWs$+;}24@9P&3j|7!QQb@Da86|X<F|1cE0ulD$XQgTjS
zmB*xzrjXZRb)Rb9U%gkjB}V4`Tlq%@Gv|1g#sr^pFg|}Uf_c_n4o9ok6IdF}0xf&a
z-B(|`?&Mw-Et8eM@|Q1O{pHr3;3Hq`E@@ohm%Ey!uFhzr-Ko*N`=gEQgRYNXmw0u#
zyuKnPeB#BIBHar|f4<0S>Af|nwfytNcF#~QjqF$JH@}!tW|DozU3~J7uDFUVH)2(I
ze>G%HTEOw^VW+9pj+`|rL35ivS_?_EDeUQ%a<dkH_~&Vv(Q*sZmDNEintrUCvvg-F
zXlB}E9XWjUZAZu?x6~7E2YzTot<tblO)T7cVz<~ckBupl_^QO7sJUlK9S)DpX5ZxC
z{7CBUv4)&!b6<YGwWM(Vg6T0ErNpGyMZCN8psRfa(+Y(`<K^3fSoLhbmr92wINxv(
z)n2-8x>cKqi(b*5z_Us0_TCy*PbU2fI<wSCpZC)LdV}d|4oewl+;x~PraV#bVLjuo
zqZJcOWFOABes=rihy=w22R!1H*Tj0o8y~E_yu0borBmrC9k2cx%wk!)$V0t5L+;L&
z@?zt8aXxlx<x18S@q4<N8?)H>s-$(24$G8p^)Pgp7B`LgaAoY*iTW3uSQzR$^n`?u
z?{jMRcz-!ytAu%M(}~A-_bfZVnzj3Qe$w5^C%@FpiJI2&PTRymxZTKR(&rM97xtSh
zbk#mg4G`q~)w4KX&~u_?e8aZsEpzwf3vOE^bL$pc6i<cZZN}w%zokw7JpOV|Z3=6v
z<?Oh>v)JqceU2O2R%EC-RV?Nx=4qOoX*1>7#%n(pA6<Xl{OX!nbJicTNm=CAH>dZ0
zzugqWn=5W7{#m^9m64rkf_Bg5BH5fO-h*<pQ|#hA#aj3(S@qfHH3Y5cZt-Ma>oWC|
zN6J#BkI!d)G?;cN)A91s#TkBi=f$orIW(tz+di{L4LhU~D|e@fMeT|FwRf8Do@oL>
z2Q+hzcqFV@WqQP1_WxAoFLlDxy&v){__6HUqK6t*$D_rM&v079-#O`b>X)FUFaH0n
z>}?PYOzHNh`yD;~)b}&NsoCvDTb?b{JEUrS<krUOXvs&<UyEN^bi-frcb=5QM1~7R
zwL%(ByGs_F`FQt9r{al^t1q(l2I;-qeX{6)k@A+j=1MO~3-6wUvV|^5xqGcumCTzb
zYkT=9FVTAE6?dgaxa+3miQHN0_Y?$XnVnm2xOn@SNd<SS7?vHh6#G@ZeP5?wNWhdC
zb7mOXm25ftZrx59@%?+UoqlmYcY0Tp-p8ntANuS?pRRCD!%5w5XYXHsb<lI^?XMS>
zt`zZ7fA-yP9apLX!_t$1w&ylapTV5kb!UN%`iy@wTQ^je@y?kf%|GvU$P}gBLMdA>
zU15BfexT*%BCfl0S($D&pD!-y?)E5UKRmC%<Z|Gb8T**tC|@^7I~cNH%IyB?>3h=;
zPZgH-U1H2K=Xjo;aLe<}M{n)bd^u~&OTWYJ$G2zSZu-p2U4LpDBZqd%9EB<6Rjv=E
zKd3r7T#8JV+I%SY(mb1wF`K?j-<tK|lDYSyHovAT!I5e&WM<r2!FwTh=iH}~xli`h
zH#jc6a;DNfoJ;88t!<N2XHS@R!Rf;0om=0nei3w}Az*n=*39=|M^0EjT(ReN*mW&7
z^Nf|1#{5=yFZg(~Iz^QE-hDUgYumEQ^2KSU7j0enH9apot$v^5-1}~-+tD-sZR{1U
zU8uPAbEA!rr<6y+8kt^Q?qH^!7x*4ro^|Acg~%7%6}w-n1$b2dFJF+bVxp98fc6R|
z;XCUVNIcmyRipBUf@11^E)CsKwY5F9b52Kz*yg&)FJJqDU*u%c-rPG!?uhMaXkStl
zYp}b_*P|veaN>kDw<dnHFTC-kZ{`8tcg5wmSvI>XUM>21{`G93;#s#Z1}~iO{#b|1
z)&Cdba<%hR(k0APxT~Lwb8IeO`am$Wey;hGV~q~)oFX`m?3-vhOR~{TswCoeWrY1<
zyMvS7uYZ+Sx;5(Vr1WdzZkJ<Yzh1BZ!MFavtOLAndUFGFjDCHM5Wf3(azz&Voh0A0
zb33;eRIS*4ENh*v-b%$4`YFEm4u4c@v~`i&d$;KBS}E@@#cMS8_nNH@n`xRk!Gu{x
zRa^Px^0?b}cRA0QT%7;d=j|(wzBw-g`qc7yQ_DV^dCc6?8j^bNn5A&3k3;);-HH2W
z7&mTQSbXE_l$Ew0PL=w}FYxh`TfOPqO4}(j&u}m}#~$VT$}S$D_NZaLQA4cJ!=$2u
zAM+OL9oj!nW|oC@&rKWoB%jPW^<yo!y2S#LmmKYx`mJ<=VIiZ~JU5|V+nvsYr~1fq
zAN!-JzaXnQt2jqx@7d@Yf%hUh*-Bv<(q@|?#MZ9*_0nEg{N~YBFCHe@>xOGvM3rn1
zE<b(u&xYF%{kOCU{&xSit4rK@cGkz!E{sM;a!O~soj%)i|K^H4JN1qEMI5e}y8Zb(
zr{sH&XvyM>VHafA@j9DKDBzsRb9B9|#Hm?Je%$XqTlF>d(UywY`HPO^C>_;fjlajd
zR=SY?(w=4e*xl<_KPXcPF$rSjoivlnTsv~gmNoB7-R3j=F3>Jttmv*ORs3*k%@dW1
znzmY{l{IUhzfId0ap$3u)XPguIz`zkeh+3Z_;}>`&6@t%%iFc?2QOdsF3tbX?azz+
zji0dTsxA9-?ZMmg!v0Bz>l+^)aeu<~TXIds1K}Slo#Nlf-+y*RhBtEV%<oBCZ}{i!
zHGkCbVh?xHza2N<i2b?!=*(TV=i;$~%Nq@q)!+NhoS?bz|L4`;lgek<e=>{NeskX)
z7Q?Fd?g2Axe(-Ks*2~r=+`C{?nB=uBjt^M&`LFo1?C|bm%YuL0u`gQ|J(>S$iTwMg
zQrrH0*%6~_)zixwbaT<ux;6fG+@W$SWDjhcb@TY8r61l#UVNxr((<|T*1wXMt_<hQ
zUhQ(&{8iS9Pxk52ca>XR<RwlUmsdQCzf-$X@aJ;Z)9=LjZ*zW`cKE=@;CT)<cR#%E
z5H-%ra=+1Vy(oTi#f@!h!m_JXroJuTf7fPVuxyKN(%!2a4&Am=mBFSxYo*=1efQqz
z{^5D;``@+3FD~s0`1a~%m4;K*r4!B}8rOcVZQ|(+jPv8-IH94N+t#(e^orOS*R@V7
zf+sTw>17>y@US?`$}_<0cD|>Rb9Az&LMM|4#~<y<4nGoA>-N}iGU;Buctc8P{r>sP
zHQsY~XP%n#Lw#5KMSkCv+8SF6dLNy?eRtoYjs}lCTGoc<KXQZ^=4(HbcQA~qo&NLc
z^SL2S?<JoxOc&&DUw*XeygzR+kKID4y`K;LWNTCW%eqo;TBd&Y-fP`Ar#*~wZO?r+
z`)i*4X=&Dvnvd7|T>N-6xTJWVo`uT1&FL3TK7V>S=e}cF2D91phMxi^yi$=OrybV{
zCfnR@a7^K~sd>OF*2nxVfc5fYzVrRk>e{Ri-*#G;9PeBC`u59LhxSj2&CRZwZhqCD
zwf3=OHAByirc&G3yTXdUR2UYW=J2oH)oGAh!R_h9Q_S=JS&*|gqgF@F%*Trtnl{9q
z|JrpRfcvT4)*UQsd`k|-Wn^5IoA#Nv)y2qP!)l9hj_xOm{3Yu?Z}w|^J$d2Rv<nxT
zf~UB@o^&}le&urUs3=i|j^xRfCw3_$`#)>zIvmX+6P1#8=8_gqwt?aU?WAByy)9dM
z1Pm);=aofqS*B&FW>{|x`TghfC(n&q-{yLMn-R4#+U)s}0~>2<XErwXC~KEWT|MF=
zE@iPoV||Hw?sB$srBg0$XtdsS>sjUe)ve3C)?I76uc`SV`-1(QV;|aY?eLz=RR2VF
zyS-ZWfva)Tr$iskGch>CxOvm;zY3zI+d@~Vz0GHvxvoq-`t^+U`^((!KfJ%g=-0bF
zHZpV5J2oAen(|}!1kd2U^Tu1&er2;@kX{_r{pH-}6Bf+kieXE%`t7aHow6>N9{O~p
zdLGB=S4y>iZ*i`idU3zls?*J{bN}9C|JY~e6BNDSQ@5R=e9EeGiw}G&F3K)#VemS2
zVpFl;|L7d^pR8rVv)|rLI$ghkw_^K^w_>Y*UHzMAo3C?ZV-eq<3nqsnUU~@6V))~m
zP;x$KZ>W`&guL?_u^U}#wUa0Ph_lgAx3KSsSL2e=7mLh~l1V!1{^z4={H5-vb=Nuk
zf=+lSTBPsR_doypY@KC#YP;A2-pI^zVeNgJnrlMY{ssA`K6$u*NvvwfY$L(B30jZ#
zu8CC@nRL~xbOPr$>6`AFAJ!^s_1oWH#}mR+@HUuzSE$l_hXwPWzqoBbrNO6X$}hGg
z^`;k<y87NTY(BmzH5S@zQoxYrGll6g%NMI3li1%_g+85O7AP!gaxCVn=ILlVwx9{3
z6E;hF?0>(3<Ctz%$(<1A?@L5?M;&n3nc;j~<K}{|nllb+RPsMPtx=s2`8vuzmOtR)
zfg^>FSrooz9DLZZhHqQXizSb&+HQ&RIeh=VRL$L0YJaxhAD71t{+%+RLFt_}k9gYl
z_8;3Tbvdy?<_KHndN=jP56mZ)1)p6}FLc4fQTxt5yI(s`^d5b{{8(USOMwS>oz{lF
z2(IfVnHydQGn5-X<N1?p%y?ItvBK<#!c>Pl8Y$jy#5Sxe|08bUrgQ!G(ZkcitsQRM
z-lOp|^3S21RQ_y+xvM^Gcv*b;-u5Jhb6awfpH1Ysb^U7aa_N<ZY~2Fag;WEio?l^e
z?iFIJ4qYPTdXdjH(eQ}N2SJbi{mTp$Z5`$`>nGSs?6Ki~oe{#Ww4du*AhUFU4TCtx
zzDYa9cW@a6%TG{KHC-itMPgn3J3hY^qS70t>&!hGw?QR&{pG_qPG@m#iu61%^KC-@
z4uPu*S+bUY9L{?#Kf}Gjd{y0>)^it@bqc+@-Byu0C6izFl*WF+>fNCqOYhIm`o+dn
znr^QB+I)TU>=T_IuN*zgX}&`4(CJTle`1^-&pBvvg880JV${|JB1_rkEPm0Exs3nv
zmeotd7mK;BaQe6-;=K6J{uzcH>bKNPW;4w2u*peZy=Os_L08w*xG1TL4gCqnZnO1h
zIXmyGFqUet<-AumOZ%-<)yp%j$L6@D=h+CxOg|JeV}Yginv;4d)xDcjzKG4PxZ=`(
zmi2jVg`QKZ-^%od4w4=>_P0%VRlDTmrmL5vUcMEu&1%-Jk}%<)m@`A2{bgYE)VDq9
z3MpTw{n#jMnd8DSXX~>s&t)uS*yd?XKm0HMVx#TGoef(jq|RgVko<9<Df)Jbr!-63
zKd1N~am-nZwuYwvyC!+;K%de6s^B--irT76Ggi%aQ0K{b;KO+O<oBstpYt_J*emT@
zq_g1X>Y@+b9H)7!vm5?R=h_={<-xmv#$}9$B|iCbA6_4o@H|v^&i8_SIS;iRH$U7Y
z|G)M{jd<+>p>saXX?$raXI(F4MHIexA9Gl&J$7lj`75V)eWlC4UHc^!y#KX|t%F?1
z`Ve0W^V75Cdk)s|Fg9>0Ji5$(P0GOib3$p&1mitcbwTz!{&PRyVZQb2rErfoGiS2N
zI>bgU5RX(j@ay4BvwMEYSr^NE=FUv}H*J=?m0P{ixrOKY4Q??m$l7bs<Dq@#fXSo%
z((4blIR5-r!|S2Vy+~O;MzU`Ejf*eJ*7omV7n)?aMQ_?huBB-+vf>|<oG$2l99{C)
zN+o~i`g60D*EO^X)Mv6X<V@laPBlIh6UBIfX>Em2WsWwV<jMmtKZ-4PTJrPLk14l;
zP2AosKc;f8Na4_`=rb8>)EM}Jr!(5rUa`Cu^rm9YI_|Z>zs%XxdxI91J3I>Umb*RG
zrhvoDdinQ9@!fC#rv2U$WABr<Hl_1W&@r#*%(=&Qs@9ige{A<+JMQ$`>Z8r=O-DBx
zJ^J|QbIu}<GvBrA)@vo2#Q&N9IqPQO?GuX}(jFd=;F(~*p?u0iwFvz%QJZ<L4Lk`6
zVUo<uOXjlP_1(?7LbX?}%<BHL{FCNq#94~{M7xs$r(D@4p4YYJc<sFEbBp2~l}c6a
zuWK}(?YleH*@Vsd0ZZqVto?g(%`Ch!eH(A)z5A)tyzGf^5&Qo~jY|urDzP3{nWFLJ
z5<|+F&2P_s(!4P%_(YV?r~ZX`8~h@d?GzE3rToYB$KxuV^2-bFlzz<n)>S@Jq40UM
z-Q;IS)gyJncV{fn-}d`#mGS*J*5-8vJ$sKwEM0u6vqIudb?4Jb3vZrdKHOr|bn5RJ
z_11X~0@oj$sM+!G<bxa`ar1{aTc2+bX^2xu`|bK8VM5p2yIK2p`0ig6dm~VM``cZy
zW%4PFI({h%bF^Z3ciWvc@OPQAG<?&e#MS(jzh7PAoT>1zeGQvnMdV76JwoanN*`uN
zhE7mgd?>*CblS%c)gGqj-rp#7eLm~^>KA|1MTF|g<?nQq?e96>w$}TfgKn3Av)xID
z<IX}8OjT>&y%J(S*!bwNl1s!Sj)T!fmB+i1<|^*Iw5YzDjkC9{EnnVjb#<MW+v1z9
z8zauDod0nr@5kB0hXwNIE$IHrwe9%#RXg5I>f70Hc~-)c+u{bV4$ouDFzM`lcyrSM
zlSTadpFNbeI&XB+_~2x_<5yR$=CyNQ+@dG9W7b2-cRUX-AI<m8@z?thTYXG*-TQM1
zf#Phbjp^+M8mF^*6CIcjUXAGQlh_!)UXm%*my5A%Il~Hp^A~nZYqMEa7#rE>TU-42
zU(_cfwwLysAGpmvlVO&7ed&X9Q$;IVH{7@o9k}hLm4f1A-JsuwwWS*~W_N@?xRW#E
z?cu*w+i#uCPuix*`hJ$baew#o)xLM0-texGk}HY%S}XQx7rT(;*#(=g^e$4L>-RL9
z)8WVax_zAXtM%qb9E)y0CV5myR<eEi%CqWv_uLk)Ui7u^=xtL6jos~~vzb|Dn27MO
zPh360VcGk$9U)iZZt880x0<%vAwGM90JFu@2Bw&!BHHo0k9XavXgi?jq03&l{w&jz
zmA7svo|OFLQPbFe?ex6kXWlg0U2@>CkMF$a;1RO?Ot@5rr<cQZW9H)0R>6M8b;i~6
zduE6$b9mJoSO{fChUp0zJrB8}$*whR;=v8eHa(L`UcRKctMq(Cz|@tmKlj8oYK6xY
zSuQjAH#_M~!6~cbE52@Dzxb(R;=!*{n_Jh{pY%%e$~-x#=#a#Mwrk%eys~5dAZT-N
zlhDdleU)ZqVOoL*?A=Q$7aXZO(Kq)&t<a^_tDYKfTgntX$K!Pi`vkV8sEZmCL?T^#
zKU5tFU>7^JF4QD%<J6bhf=0_fRV@<wDtW5YH{n5~?7er&p)IFAn7-yWdb{VA>oU`d
zybsb+2~lsd=2!ilbVIh}$&!-}QE9VSmrdo>l-KTipFYVs%d6<esgC2GeYd8|?U=W-
zG_o+mhx@5^-sGOQ8}A9^D3`|-WH{u;a!-w|^U9ZKu>3X2fPeAR<fm<pe{TdTxEDD$
z9(Wa#zeQanh_yG}NmtUOTz$(wGq;*~LbCtwueiwMy}E7Y%vE#kH^olw@^6U0mdsE!
z)i6Y%@r?)5)j-=Y_m1`#cmCF}%T0)n(%RI!@Q_v6=J(f<&0hz{N!=864c+wS-n|2N
z^%t*R>ydrv`_J=>o%g&BJ@@f!=&q{Dg<nKDHoCbvOMW`VxN08f-bED!=aQwLHg+z4
zRQXQBbe&(@AIqZr3lh_FShQQtIm~G@JJoHLr6H}o^lYw;;qNU@N7f46l)deq5b{Ff
zlEkKRdBfV4K;zT{v(*GoeO`84VM<$q(#4B%bJu@O7VP?SB5Gp$1Bt~)I78Hy7WXY#
zv%O?)>?($ajt>V!L$-X-oA#xA@to^Z*KeM+Z$@SO^f-;uIX^vZRy67BeGluM#VqJ!
z`t!+G4Iu+tSEu>+rYZAGbXgkPAYt7mAtKhL>~yB4eEM8&rsa1RS5GxyU)6h%xz_nt
z;hi;-^%bU4`-5&@DW0C)e&?1~fmxrWj8v2Vp01OBKV1)eW3%jx!A_;_O9l<sT|Et1
z=4jn>iw$wETr>Nu-afxgE5+wr3YwLolxiNYyI3sv=-I5D(QjAod^M}+WnNveIIH}*
zt6B!x4_%gjw>y_U>Cv+3@u7|f7q9&DD7Ql7=-XFy`*K#K3YyM2<!$!)yTO7R<<qmz
zv?s}#HQS49*KJWTV^v(KdHtS!Ps=3z*h6m~J3hMf#G3i}a&^yH(`)zieto$vt#Y>4
zrQHD&oh$_p3&ym)V`#s%h5JaU+AHUrbq;wSQ?38+y;~%CB3Y<!ZzF@s?fym27vJL$
zPYvVwpztN5)NhhNoT1BwO9_7u?62xL{Ygeg`Rlr4jBI@x>y>n-e>tdR{6DMw3vZ(S
zw}Tt4R5nC@SeqocG5B!x#a0cGXYW31g^4{%<}mG98n$tF{;b^HvRk*W3(C+kns~$d
z{Qp9)M#TecjF%sjANs}cdE;!o-D^&`Iq%OZ)AT(1H{`<FORsJ$+CSfmp>4(Wdo`0i
zqXM^Io9TMp<*)XWWm}Hs?T?%mYuFj5uO(hFbK?f%GfOr}du@}CIMvb29W|eSm0801
zh$XBH^Fp3yH)-*5E^4{K`lRbb>H6;ab!knt8zsM*vt;GUbw6`s(d%dA`n%NlS*h5x
z*p8PM7BFh{yT6l|s{h%s$M4h3Gdh))0p|jlc-Lyh^%b01IghtawD+Ibm(PcOnB=~b
z+G25wYwev6j3J9|ygS5^X~zFi_}Td^zb((x!%cPvrcKP{Int7%Y(3|TXYv!Be_WG~
zRmiGMn07;6;nUZSuxStYKP)cU`qts+@5S{qtTXO<3eDW6`o{LKyn)Ty#7UwJJ6Fk{
zR1!TlJCyIY&V!YcvQ8*1=lJ_q)j2EN$|dzw-@^25!m<4i9(pw?NI!H|loI;cc;xLW
zrkEY8-WsG_XOv%m<LRa!K2yS7e$GxiIbBZn-kR&(?Efxw_An%W{I~D!-L-j-wS<3k
zO_KT9yo;;&(3EpQPIAYNlx}o$e54@zt|~m|_J?NE8`I>y?TVRV+nEi%#w-mu_2ab)
zm%usCB?Z-+Yr1BJz7DCd5(v`?o_0{LRpeOP{wW(`{QB}zv%2E%pWU_E=i~dIpVV$F
z=)OAX-6fNgX^oLbzwL|ES=7oWlXz@Gv+G2r(${9IZ4XKO*}B2=#hv?lIY!x5s;*g<
zHB!QB4w$Lv-&yN+vESvx<2H^M@w1Oq<CDxp8)aTS+HP886<^2mZBOmQchmbiUtM1_
zE%!lL#p*Ubo`~MSW6yc-FYZ3<<Jo9)P+e9tagXGT7u~M6FRWU9_1QMn(A1e??{Du`
zi~5qePl|W4c0^e6xxnU1dC6n54Rf^SA3GcW<K^=0{!=Gy-0l(^wzaCP-<;3?Z}-uM
zt(?pmhBqePtEu?-<@k2yGW)BAnUh)EZuiY>{TXWbcf(!2)+>x}4~e^+sk*uNF3%gS
zh0=2wp0Yjo%C_+FoTO0gc;<Gqx0m^+zrF0x5;gnI0hv?=)<s2Do4<SJy%*K&5oc~z
zmT}x^smL@VVO{HY_6>GUM&Xggea|QTxO(bPmgCx_tBue7ifxb9#_)NR7vA}2V<hwW
zkR{vN{WWv5j!cx`@oF*I{V6Fxx!t^W;u7D-QWuvOFVHr45cSK3{VnIbu$w|(IAgfq
z_GJo*%Nw)KW;tpYJYjL0tpV%X$-90j&ySuQ(>5=xVBe(`{ChZkez`oGqnqo&dS?4M
zmqS}@YX6ttEKt#2CEV71y4Wv#hSw@F#m_T#SP5M+jAmH#+jG+cZRIvWE6c^EpLDV`
zi}veHX63!IPIgM5*q%F?lUNtF`}yBlzu>ZsfW_|kLc_MLt5PEF*k;{%S~=aRqNn}C
z)1=y)5m(e%W}R9zGs4-cIZft(U!ZW{gg>9^AFa;a-usw``J-#JeQT|G^o(vx`J^ok
zPb_*H)c7(K9TmPdExIPe*cGyKitO{7pLA;5>>MY&pZ{=@_35P^H?yjg-|Cg8|NF^*
zUom?7`GOahSp6<^#7uawD75}|(Bap+{;Nh$*m2p>oAJle>u=}X{F(dyW<p8tHm$=Q
zr+3{Fw=t1anb#R1(BkFs<-XtLZEn6LNzI3|mi)PI6@Sp(tVDG;^QND#>~|lxVsCzH
zcR*_f-y!KnL&XovA6UN6H*7xlDCYLP#dTt<QsS>hid8kat-149iTf8rq~EWOH*>#K
zBstBRu#RuS3U!eaZtN!f%Vx7LF{tro&zWcA!0y4Y@TvC0yNj7q>_X>6uq@YZ7EHSQ
zWa1xR&$}18WRkeT7Km1UPLTciYqrg&dkwt2wrn13-5=k$UpT%gW}3RzWX50jstYr6
z*S22Ru66#^wx>~xU&Nh$>Ui70V{hY=dD=UgeZwbz^;MGo5Oe&+g#|4sCj4uAOi!P>
zG+}P$)`OFC8s|-Bxh2BmArzfuF{@ojZ(){v+1p3AS8Um&czbC=i(aYECicvXxpDJ&
z(yIj+?oScBA$t3|)jM<JE$+M;+;e$ymam#Mb>FEf$vj@(E4h#CcIAd;wg0P$e=v*7
z=ea90%k9f|Y^^hUe{#-MxqG<4{CAVVjX4Q>)VtPfew;u1+`jN5KQ3`T+_a}GO4`J8
z3S$TJG?nBHt992f%1d0$?A{yua6*i3PJZ|sy(P|7z6C$i>Tj(Sx^V5-Y`^;YnLlHh
z116j`nY%f;KJLPM<{)#Xd+d+bx-z*enaM3=lf32O_0LHRqL~rLZ$63$TI)99^6H#z
z{Cf|C@LhX9)5K$U@uIn1zY|0lo-RH5lIO~r%bq>|ZZ&EsO1W<|=i_DzVz{frH#2p$
z{JD(|>RsY<`?kw0eK*<iNoCFCf4QZHX0Ly@OCV#(`Kz5V`Y)tQi;ktOnADWSn`1RU
zHkA8LW`f*qxvO88OAMvY+Fc6nVOl+X@zWGLY28P{@myur^Uq8x-ORRYR+eo;#q+33
zB^+ygZe>=+iZUPaXuLk{>eZx>AD4`y`sXn>+<5vY&1B}@1<_e^q&7}mC~$T=V}#jS
zx9O8_UQO7yV@ZbT$>_4c*#3Ls7yNUK;+L4q&c0$e<MRHb&p(d}X@^fg${@saeD@EJ
zaEUXaI;{@on*+Jr*nZV~KJ_+Z;~MW>#c$rGn5}yeWSXdXF8s8Jp_oig*-f1y)Adn-
zI+{06DV&L4<+|tCn}qOPi?&~`TC(EC-M6_qY<ViHGaQ%ZocfkEXVx+HcDBn4p5`mP
zcT-Bce&v_ztyt6F6*1@1FZX9kpFZ~aW|85}1BN$Z&$z5n)l$=)ps4+<{bY$(W!Z^C
z6?MT&Cq;hCGu-d#dO7mqv(_m$-a6~dbSYnEe340Ou2xv=X8!AwKbFQc2C`pz&NzQ*
zIPYR3?@OtnJbGC^0@FPLWBp!zjExPRsW@NY*4fy-OR}}XzJ6XIFsXNXNy6idtsgm#
z&bcJZqIz!2o@LoLL#ACTu(+2Lcy;?{$*r;3*L{=2yQOC_sGM3a#BiB)g^&L9L&dF?
zhwJqls}n>n*?g^F%MkT4%X(tL#2FXdm#|zUh+)P{`zt;*va@e3yOjQBk4C04*GH3U
zlet`v?wA{Py5fA{eMxcA)h>^n&aS%o+d}_K$mXBBWmd3@Ro%Y%E%D~+y1v8mM<nNQ
za=+n-``)psj-UCI+G*y04YpgXWg?gh5BE*ke9T1P`=-x=DQ?SptDV@+SWdEuJo8m=
znTp1hl*>^I7nxmK>5-^E|9QLX#@vkJ81d%0eGiX#&Fj6SBhYkh^6Zl(TO9h+wmKN^
z-kMjt+d0D_sxbYG^J<2v3~J94{Y8JMPgVT!`?Q16@hVw9o#wK(6<;QHZLqu|`8zzg
zvHWvi0%L*c)<Z6y7qr%X{qx@1FXe>TOFzj=|GvhpOz?<gnS4DdNd2IyViKdc<d2x}
z&VHqkSYM$t`_^|H-NPUkTO!pdBGsenGTYee-Rw-)rJ@rKPh<J{(D`li0Y%YUGCH3-
z{w^sAzHm30H_(yIy!+R@jcm16s+$rfDl6@|H|>$#ie=&jZ-e4(PxdJYEEjuwO!~a_
zI_87Bo=w=z`2OdH&!P^_`S1U^9@kp-mNjE`)z(hMeP4flSvhTC&*gOox|(vbB_H^C
z{9k<Myx7&t<^KKt<x+m{SfiYdORd&DJTpf9N!9gYH~we2pEzaHZ}O)uaFc0DQCIig
z_*D1zLZ0;E6FMFum*&5YE0<gnu=m}j^LrjHxc2SX#GR)jdU|)qTwioOE{Ji@*-bY#
zPG@jE$=ka!<iXXjbF-!z&RL=8r5@xp|4nJzf@1a;Etjqw*?IdiPv#=$WYc{we3mYc
z^s?`~TPCD_xnX+Fm+NQmX9aMa3v12`<=7%vdi+=G!#*)_Hk<uL^JL!m^xn%oZeM<S
z>rWluWBc+<EPC6j4sU!QyJiY|newxhCP7age6qaj@kXKY!rsOwZ#DSex-q|1KXBlM
z+Yi2|IoJM}*K$}k=6W_2t*@T7X1SlfaPUF1NfojUXL=@l@0@0OnnhrSg5rOJNt_MU
zw_g1}WcYT*_h29GE63AkR9*6nI<0+Y`i%dAM-_tE_7}G_s>-<-zQ|e0sHk#mPM7Y#
z1uySiIFopJ?Zxk>G8L5hmwxn<KV!P?%DIc0zLGm?Sk@V?%&2XwvATIAs6%IdJ;Tim
z1%@Z9AMh<n`n~4F;tjnQwT?G@mC1=Refnkd2{*y$|Bfllr3ZSK>rF^WK6)^P`Q(v<
zhHrCf#IAQ-YW-(mH#18_qRoV3-kR3)%Y)8NpE>i8e&e2rD%LaNEYgoZ+_PZ&qDLDI
zr(IR$6BltRYKu|2QXsPFzl5Bq(}ArU<^BA)*DEA{Y_Kk?`t)qK6I<Dr^GOVmQC?;?
zzg|6A;jqs2SK)#decs<y5gI4&)p)O$ys<t!f8XDEVw)m3vK$WN6qe1Z3w`tB$!;dC
zJDV3LCO*`?>92ip&nhktKC?95;|6&bU(DOMNr!FP)YaR=H5X(~$PKbczF+_O^6kmt
znps9|hp*eu+4FDWyAv<#w*HFC@nYkN`r2-;U$i|+N;+)e9K$@*>q>K@lrK->?u@xy
zwU6i8su^#tF8v~A#jz~RG0|hPg2q|{fxM%V`}rAEl~!NFx;w%Iv{V(cj1;_gpg7vd
z1hj-bNWsViw2B-=gBEgwXz)r_<lPRY;C&FZ+wA~aH64Vs+X3t{h-1-rI~W;R=ouOt
zffkROnOo?YTbLM_S|}KSt_=XKS~gTLv#``NGB+|XrhEZ2C|t0+0%;+=v8lP9fvJ&!
zfsultk&&J`Xmz<M_>vJ5@Wm3uEnqgpeT#+(C|Ynh!_rjG(%8_z&{V<5!c@=L*c5U<
zfrXx-p{1pzse+NEsh+u+xq%UJcdOuAM-568I9y?7pl5DmVqj>ZU}$0jTg`1~W~ygt
zVgL>oQ&aF>6yjEMr{P{+Zvsjv5J!-`n49eD63i8h%|L+=WM`)zP?Vn>oLUmCAK>Dq
zACg*8607f8QQ{t4l30>zW25gLY^Y!c%{1=8MheEJAcsRW7Ni!HWTqC|*y#H@8z~r>
zf>)N?*&!u=uuh0KVN1R(%nS+Lp0FnTbl;t0qO4nt*c|N~U%a`|xI5;3yQ)Nou!e(J
z<c+x*hM$@)pPiX_$G6O*FY1?ht@l2~c!4K(v?kqMvdlJFRqVk!&1;YC&e?vyVqX6*
zQ0LvP)$gx|-`^w1y)oi`9Ot<$PxB6b%$ML^JkvBzZ%&ZUCk64>f3KR?=e$k2tY;y7
z%F}s&kc4=BFJE_AaO_%($H#6Qttvh${`zsK+RdWB{JYL9y=}pLFDqv2KjC9eA9k4i
zzWdsCZLyE1mE`|l3pwUgz7*9FjL_4GJoI>;*<2m{-HED~54E=n_jx{leD8HmZM;tS
zB<W|Heea2#o`0?WprMuQ;u(*3EZOew^>Y3O|H3rY>pKn`Jgod-`i(Pnrr@<RJUY>v
z&Ku3%`gLD~*F@R(pY?9$Y_7fQ@|*chzI@)U*n^jfrvKd<=XEZmYzb$p<Mf!XK56>1
zw{@>uXY=@8*HNyIS58e>eEsIOj8jWD_@uv|9%MN2Y3$A^Lf7{m=kyBL@alHv3ZBb`
zVipR&b3a|>^W1i6_rJ^gFRR<u1a*D?cvdcLcaP(a%ggJ1o7$OsU)skiXN&IPYLblT
zKCx40{i$zqWrwQgUcLHGxmPf#CzC~DNkGDkslWfMTk}b6ogqiizlAxGT)oL^Ck%Mc
z-d@Tp*?RFo_O|*AP2pwzdBJy<mCR_cHY>e4jYIYC+IH)W{NJAL?vLH+x%|bO3s>3~
zy*$-ql&fL;`GHr3c*|~yxTXL4AI2&^wW+WzwOPN7W8%Uec3VVjEOLKY9I`#K=*7F&
zJJ@cYXx^cck{d44-t=e*PZ!gJEOXbZOV2Cq?weP%N=&rFcF*(#mNW+~wM`riFSbtG
zyEba_#{EaE6sA6S!q7iI!sx;>uW+|VK}HKsmTR6p&~sgB=juHkw<qkFqp*<i>+DDS
zdhT8J+TkO*k|p%ci_IT)D4cV@P+A(L_)u42qx`k`3E`zjV>gR1-42N1oT1d1HdV=p
zw?5pS!NbckXKDNt=~uPR2G^OsKjFM-X8nvMm3P~r+#|wXtQ9fGCLVc{yZ83h(;4R`
z@`R=QTDPX_NBg2lJA2I&XDQryY8V+Iw(0O+hl#K6A6`-Z*v@Ze-*1bjKXjhY$yjp!
z=kBN1GnajD@_yrG`0z-`_Z7@iyF1oo*r*#k-Mwqq?6u|=OSIV9q<x!?YKBY-&Z#~%
zxu8twlkC|nmt_Bki?&K-E)x`0>APxCwqWvI=X;{JOZv`z`u6zWg{v#>*RW@8+#)0)
z+^F<x8Oz4HTBGM4>0V8~{-PVi4NlbeeP()>^XY`drN<In3tYZ_b(lCQ<FVQOIc7lt
zYG)K2Y(4%=H#qE?biptFL9DaZ0{t~NrmMJaTeZ0HO5eE^yvN#Sq<u0@RhlXtVYVak
z_{}T753l>taCBP7uMMYHGeu0)d!+UBVT2IJ5@C^!S#D`PQ<Me1Pb^}tSaSLK{M+?*
zOCqeZmifxAEt~RwokM4z<!xo_4`&PIS05|v`m?QW$IZmeUl&X_P7#TA^X>?_rziV#
zbzWUx+pZ3)RXG_PJ)bP5mL9LVdQY5HF>BAK_DwgQiyl2Cl(~hUw?;8|>%m+>7c<Q%
zb-c4`!{2cn4Ga7#&v)hNh85*Eb{UsV3i}>9cae42^Uid)d#|;pz6!B^<>P%q_)F~v
z#gB8gHTMNrxfrQedCy;Aas1QaygxhFDqCl)`q3e@R9MSwcYE$fiSweWUjrXW+m=i`
z5%to~RdH|TCoQ4*JR9BwEZ%VY%EP}Nm0g>PEkrD3TW?)j`F(Pot^F#^4$c<}lG63F
z)V=0~Nly9_IkQ6Y$qJrWp|<&Tlf`E4vxvNqHle?;afaxWwtuo*Tn?8ESJ*4r83cN7
znl@=Y?|G$?t!g(!<##nz_@rGmbMnoee00TSry3=p{{<^n-$*lEl;80;ORD;fytm+U
zYf))=CFS&~E0```4(OcqI)!V)nku8q6JIZ$a%4ujzWtJ&^A?wi%yr(jK|$4oHS9y&
z%>s`cj;bTVvDPy`T>V+^y~S#Bt?5~IhvHiXDa-hOJzphbb70ByqQnbay5UP!8(Vrl
zPp*=Qp24k{AYD^*>u9Zhn&dM#o*Ydz_jLjM9Is~1ZC`oDiJLDl&GXn-fq!xb<{j|)
z7<O;T6>a|mH5n5N#Fh&_E1je?@75*5OO2nb3UwFW{jA~8areTq%%%%dAG|+WSzW(G
zAb9or)2sAf$KAgX$J6xjspq9Pug<PWS@9?7tylHBs#`U??}}zNzR{kp`t<Q48)?pu
zS5iE0&sI6~>AUx(tEqRFcpiAU?DRva!k7hiGPivTnhlnEuK21|_dQ~MlZ*DGD9_zy
zPogGX)0o7#SaL#bg4dsZu1>Mnn{(5{bKbo+`cx`m<L@o><E5*Z2ixA<Q+-@zw+`BF
zS$AE0*2m7&P5zVl`eHaQ)?1!4W3?^$`~S?hISaSe*a!a=TJNuV?xw;sOFgO6qU&uq
zk0mjx+eWPodD<WPdc(t$Szjw^CDvTcID0Sa^O-ExZM`41@b(^Ntz8(g_W#o)*|R-I
zyK)}AD1NQ4{xJWu3d=+Nv_zA|e}1cQ|4^%uuyP7<@O<zoM}+bAqtsBIpoeSj%1eFe
z{Uoq;ZK?9dM=gzI;S>M8d6Qb$^l`-mo2dcoC)kL(UWslD@r##J_h^XjW$RwJ<S?sG
zOwxxRe${+xEL*0C_~~v@Darot6Trduu)Y1Mlk<Ab#QEJ_2h9&0V%HT*UnZwET`MhD
zKsescx8FnHpe5JbmVLi})GgJ`(9C?byO8VEHxuVok3S!LUAK|p-rS#GfA61b%hF_!
z$T;)t(jP@K@xl|r8}vTj|0vpaVGf^_<vwncJpY^Tlldg1O+QG@mn^yDa#Q=)mZqA=
zHm5{P3Vu$Rs6Q`L#Yb30A$?iqv#o;uv)E>BKA>!JxAYrVp46*z>zBJTZob!9{PX*i
z)#`RkO{^|Ycb?Zzn{8Y2_41w1l@@J$7uuVZgP(1jvv=O}9`C<rrp*0Qp;8|I?D$hZ
zv#-e>uU}V2Sw8&Jed*WT{}Zm|r+>-oWs=l*SNrFW-tV{%<)=A{Jwq6?q8%+G?!P`*
zdd1K0V)yz69_71FJ<5C6D=eRMrKm=vyf1DI^Gxla{kAicv&B>wznz*ebzgGn&VGN7
zr%!&^&CoowYRBT^3UQlacZz(OP_tj;i&^*I#o^yK#<TpG>X*RurhCKV>%vtErArLE
z%YqsGom_S;vryogc=&@*smos<5AZ&<BVRk_hB8at(~azznRu?#VC!dJ-+tw}rp9xR
z>SX@dvcJl!<v{}D&2=VK;(Hla<ol=|PX5a#d+BAu#<Pafb9!&<dABWJBXER?Eh#Ul
zZI08cjoZ{Gd{Q`kq)$a%q1IH@LW$Ym==y%WN1NBJYCjpcGWp&YFWb&{Dw{;5ivFKj
z%=^lx#${pS^-fXag&&<G-+b;elYXF({l0rqv*(l9XQOsSwS9Tkc$G>0+U%w!d%OCt
zCEpahWhz?f*X)p1<{NkKZu$1o;xn^zZ@o%*_-e_+-H+D2lvlen@x%U~9?CYkpVjQ_
zmuzSFD1XA<pX>j#{adD=?s{@UvNiF5!Hi=D`UW9yLoS4Byc6t>ywS$keDFc$hedk=
zQ&+AQN?$r@&yMszIiGd@^3*jQd+wq!h3o0o+&i<wJh@V1{{5fxe#;LT<Mlm>T%FpB
z_KGuqe!TBM|A*5$TkZHK&Jw9&dg%7xoDBD!o?jdjwck4PR46`K?<lr$$=$50>wdO7
zG#@>(Xv0mt+}ijPwGR^?9!gdHr_`0@Fr{Scsa-ef?U&6>eUtZRT32SCZT&9cRkyx&
z>K2^a{BG_1kG5e?_Y^;6tcxknuLytAd40}<MY|{ed9mE0*3rf1^7@s`g}>fk-fd}i
zjQzGq?Bi1T*vKsxgccUC*_&_9om0^JfpcMYyZE-pGb~<TdtJ7<NyjMcAxnfv`)Ti2
zQ<mv7pZ~~Jd&p*vX=K4a1^w5PH@NwI;gsjpm|i45d6~4)w>3AnEcHob2>7JUvglgr
zj)^545-+D(sVdyp5a};`5hC{Nc0Omn-L0GJgVQ)}-Pm|PcFr_6i4|+LmY25XN&eWi
zz079q@sx<Rs?Cm#_dEk@t9oryZsh03UeQmEJh1+3(nY=a03QB5$M1Yxp4w-3>t}(^
zFN>5GB^yh#Ckw(ZP3+nfRhXu<YD$UN<9+>e->;Cq?H~IuYTEfP2^0L^w7IIkb9G$2
z?|86aP2#_639M&l8L4XQKYRWTlce<Go70{$?UPDSIlh8%zKzd<`jT5M^ST_}`7YmL
z7tbnIUbuGaipiXNAFo)P-jO?z?T6CB3k_QgR<11<&&sa*?JT)K<+EyB<%ess-P1Lb
zxmb@{Nf~|K@anD8Rj-%wD(T9BIet3}FZS8L5Skr2yE|8H>aw;KN&4pmDod*~yV(A!
z2zd1S6mrZtuGVyGqELF0jfnRzi@eY;%3H2-8{gY-yz7}p2lM{@tF=q!tns|2aW!ts
zJI7n=+U|?|o7NrQawDSlWAm~P3nQNG33+TJ-sm#>)ExfFJJ&Jp$y}29P~SSqyJn`)
z{+nid4gIV#zk2!ZEpK|^r~jfX`=95%r8zrpeLT46_JKDA@yqA+e4o7c$VP`})3O+*
zE-5~`^Wi^7=B8VB<G$;cDl8Ip@O%An%IZz3T@E7I-!|~+ba*I8ot!1IHaIrdZ>!1|
zAJ)^`H#$j#)l^?fy}9?_`&c%nji(lgNU9ns$-gz)@t`!9ZJH3<!*vn&|6fSG5qV>J
znfvpKb!Qu<Ut`;{yMZn3wsnSay6eVd=ShLWem{y&&)ckXU6z+&q3`ia^X)eaE-~Gi
z@N<$qlkh{ujvd=pCmd?DohjwAptgN=BGWW+4Xus6yiXQ{{Lw%9UQVmdbHk5}4`#wT
zq9?K<{<o)G?U{eK%I{&s68B9kAAiTq5D?xoZK=Um1C28g5=$OjTU&lQW8<`sWfxs%
zJW=ecwS3t)WsdW<l>XNzre@y$Eak{ndhEkVzD1i-=dS#8`lZs}caua91ocdP<fgEX
zW%-kdZdO^W8wAoP$hU;^cLdk1VSDz0N9{)2OXZ2*`nTOp$yB(mQ$9JN>2RS{a_*{%
zXDZ@ql8^Jt%|h-J9qs9G;Ob_~|Hw9BLsgoY@=<NJX(bjyp>|gOM+?M^=Ox)yz6>&H
z*tz;)hA3yg!Nh;JPg=C)Y@DH=DG+pfhDPPn&CMT|t(f;b+ag3ut0m&@{-rb8;+}5~
z|L1r@p7&+8hw&uC`eol^uht%!x-!{7D(+k)$IoT4emU&HYwFBz)^@YpdjDa+`m{wM
zbI%uN1s*#Q(>I^L&+7ZbV(Y_K7AI?6>2+_owdF~kzTsi{=MUa`S8_dZERqtvy3-`|
z6vN{ydzm6vy;`ojO;>K^CxMwVUUT0&uUyVEW#N^JHzd6#n*?0mD?dH9Y04s2mF+(N
z&1G}`PL<Wkn$x{aVpYK7xDIXWh$|eTa*qSITHRRx_Ws9x`}}8h^)fwhZ4|w8DeoZf
zlHD6VGDz>*FmvBkH9zL?^AjKSi+f6E^6hC<T@cx%Kj)c`UCQd}qJtSP`>!tl`OVb#
za$i-&49PhPGiubfvp1=JS}Y_Xw4!yBkKe_JzX6LG@&k@GSZSZXJi~Rr`}UT9l1nH3
zt24J;qEIYpd+EM_j%k4Z(&P)Ktt(a(@*0(2&EEXuMD{n&?}mFdK1rOqw5B>*_tyN2
z!h#3GyVGv&^Iz<F<9ud8$eJlZ?^U&`npAIJFWp{!aGLVdr{|^Jr`AN7pN_0KaKrj`
z?&oGby@LzPs~f$Y8Gp#uU$M~o`fRJ}hk_0Lm!JRkv}F(c_j*rl_OvOH%Pmv3|GRM}
zDu_vO`>)eRu^ZzSJ6cb)KW){Yx~H$y&pH2+sw9)!<@;w|vTnJWKK=XeDI3!}w?y)J
zFMj!e>GVzMuChA~cAX#iH=1j_mGGH$HS4aavCGPRQN{_48ZEr)sdwgSJn@)(oJ(?R
zi;}Ip`jT#zxA`^~R&0A!!{|LHc1cpdi~Cl2(GT}RpB%8C?_Yh9|ER{dm<6x;s^5JP
zoAb&|bZKMz%B?r_pXwZTvQf$U)YiJ9wR`ctIromgd}l3fbji-)TJDou=ijT{Td<}u
z`NLfQeT!U9B$=cpt?!jI+{l&k=!{oDz$2f{KK#GFxoUT_xOoR~$p<<-yM5=6XUMBF
z>U$(t{fu_r7WZFhwa}ZTJVBgm4n(Z|b*lfxY8Bt9GmdIA80v{+re1aE<z{3%b;X%u
zX9_QuNwl|M-juePQMt#KRUDHNG3sV5Nsu`)Ax35|W6#w+TW^2;6aTh&)~ZKK)IWb#
zd@}j2-)o7x)i+-~mtXcPH$-CQnywzH-c>&`H5$J!`t$Ok^feycmWoX(pIvg&7M_rs
z?OY=xnPHRPnRRWa|G5nhu9iit`R4Li^FZ@TMzxsSvlGh0+(fE)JulzW5WO8+x3^Db
z`oyNXb2|Ty7~K%wc$I&8VVKj4IgZ^YtInzHxvW&g@F-x@!Z|m#uS%P>vQSZB=E<H4
z{WrENRv7E}cEqI1FKgF(b!YB=&0WG>s&_SArIJ-dJuleUe~GK*7iyX?J8+_%8+*+8
z`2tz1V!eE4h%8yGUh$Cqc9>JT>OoV>FZ0WNx+7lHe3o+VC@{I`yVHkp<wmF281<s&
z!-rNJ-2QY|gSDP`jL6HAj|w<1sZQGZy>?DRY1Rqe@T@I<-nEhDf4P?4vfl6X`d8eX
zsatH*A2aX!WfIG|WVhJ$u4Qg9TjEwqvwEz_o<1WeR>U{=fZaZ~mDl-}zKaz)n|ASN
zjjHLiS!WziO*DPrALVJ%w1qvvTjbx54eTCQR-OCEIIVAKn#Yw>>MlOpg_S<t>bw81
zZtu-y<;uqe!>0Bq*wox#;(Iq(s_xSA$dnnEXZg$slKZ!S+vN62?g)F4-@$=a?o0F*
zsLMujJP=>wdF0Dk&6SInbR?);;0!!?s>4U;P)PHBzpZ93qQn*y+}576g1y%LGvlug
zt(X_v+5cZiV`}-6yVL8<`MQX&Wh>Y5Xxx3ge2F_V%fddDD?eP>OCGVW5AbZB;Wk4u
z|ET5WoqJ8(=QJ1#Y)>ve^SiV}jq6Na%>joOdx|+l!(A^cBzp)StDbf;K6v3a%O=y;
z&xIaeY;#Os_&;q@PN3B;cE=UoUrIV=Gbi*~zc?Nzru$@lzixy<ovD({;<Wynri0&C
z`kJSjMwiUyus+0_dvyJaTJ80_&em8zzq4{p)BmsW+pq4*6${+XQOf!C(Sv!jlDMQ*
zPdVRl-m~>u+{&0!O_CWWFKM*IO)v0|KW59lU{Ra5bDW9oyT7u_nZH)OESqiPsIz~@
zyh@IcQ`)Vet?cSqfqw6edb1odR`kyEd*8P?N$So%v)eU$qjMIny<PT^`@O}RuhF0T
z%O=Z7yIoe<w8CU%YNkoBe{DiRs^>qG_;X2JYd6pPw6E{n*G>DH_umLPc`2xH`9H0h
zi}?PEYId%hXO?f?yTB;;%e{E{)wlJ_MLhW%Jnm20>C<AGw5DiIY7Se6--mS>ZFjS-
zUUGbxzbH%jor;^sq&}`g@^{_u-BXu3SoWZ4qwS7cvy0aJh`3dH;CAetRV>P9y^a6#
zzrMQZ_KiZ9MxCFc*RA;`Wc>Pj!>z1|rJ$jLr^4`r)3bs!i3yKdrmXq#ym?OW)$jMz
zTzfMPa67Kq^>@X(<12$>k}U4o+{-VE|Hgjz-*UbGjvG9<AMD!k=k&aLJl?b1+3x6_
zfAe+q?#I98bRJD{OW0Ar)=Fy!<Hku#b8Z`CuTNhzWATBik~y{a@*a7=eU=^4f7mDG
zlg(a3CaIMRPHPCLK6^L)aNSn1KPTNj`CdCwGvnp5$7$Pd-jj{;Q+8U{HaVbvk9D2f
zj2kaEyXP#?*(844C{6KksrM8fLk{C39(qNt6YSR5zvH)#JAYRAGnb@D_U5~<-Z5RV
zlB>4JjyWW{);G*MF|Fs%!G-sqPs>>@+ITGQw8Z)A8O{X>l0C}L=FOfH{KCCu{lQN6
ztszTzJ&yREjGMh|8{e9bX)^4!A@cvesBN~I^>muVqYhR7#g9JAYR&tTuy#G0#0Beh
zDhcebPfWd(5&D_y*!jc14yV=rcc{>KG57THt^c@AS9e;7r_J=Q;5)xf#?vk5rXAB0
zlXr7WHd`zAGzGeJO`dd@Ystq4f|pc!Rn{C?cj>6i?dLOgANf>&qdsbLbx@jm?X7|p
z1uIP==1fYczcJz7CC-H<%U#kww(o67TJh*K`zl$TCdb>y`LjhCr+?39@JjuuE&9f`
z`pOA++r``1-IR`aG!_a+Yg~Ty<M>UHkE<7M4GQN|EIa+U`N?`?8P|9FY7!$YjF;{|
z{N?$y?dAQe&wp}E+HSw5yy^<aH@9zc-~LbSb9T+^FuhyHY0y2H=i){M|CtX@zj=Ro
zlLNQbzL?vooEkTO9#lHNnf*pgXYqqcVz$SNSU#Nmdi6@6r}Vn5%r_n^JyT_U=XKcu
zTh(75W+}dmYIkWqWS}}v>QTI@iqWi_$L^mO;Hk2_T9tL;^%tF_%CC0wB|gP1ILNGW
zr|AFYZNVxEVzVl^ST8j>&)m3Is$gP#dA!^={@GJcXsnojeg69yD-wU6PV=82euAlD
z?lL8vjqAQ{e|rC1l(a|GV+9rK<#kQ$$IkqG*z+pn{k*`rPtBLtUQXO|u>0A*UveG1
zmu0!$xmSuV5LWnN^2xe^JL*NJdRY7Mt8NA>H!&u$Eoh%UKVYi++rY4kyV!za8JYg9
zu~iexydXSp<7b`sd}~dQ)Lkx<NoUc!n6)ZkEvKZ^O{Sky4m#DFmPt1DzBH0pFtI9s
z{aVM8rKhf}FYw#AwY_P5nTN^dp6CNJiq-{w_BGINvw1dA%F^ts#G^9`yWL%l8I?G@
zd>>9(z+iP#lkbV@RD<=&K@Epx)Fu?~OYf1E|1V|#funh&A+N{ZDJ7Hs9)6wgF0LVw
z!2TrI&n;Wzp}qHWk<(lE7+ZYF70Jp!E?V&B_L|E#FK#^d|F7FMO&-U$wco_f2d{q;
zvp~sl&8+)HtdCb^=yLA((&c~o%9FUynJ!7y6RzBUcDci&g6T}^e7p2dhOx(=7<S+5
zxg5s%Po!+$@75hr0e>~xj~Px;Y@c=fnLMxK4&DV4cJ~*&+|Ff`5+~39Teg0(Myd3&
zSHjOOuF}79q_St~=ezyg+wZ>%@3%HM`|$1e?Rh^wZ{Oa%efx2fJNtz1&v<zEt^J1s
z`yYq?mupCzAv*uT#)rQj+PWR@c#&|zEAz*6Njsf;|Gv(Zwv!bvyTQX9e^6Gixn;=)
zkNtO>e3hq0ZjRj}Y;S1(b^g@XGV6?YyxS|oHLXCn=cry!=Zo#u84eQ*N}Z}#uX`}3
zvN!9O>8|eblZV5OKm2p<@hiF47w<Sp3i*BV<g*CeuxzjVfn^UrzGy!zrTwAjQK9R@
zC+gLkCM*fuJlE8KeZOn-skNRaX7jU)W|T1styr0PMWi_J^4(C2o%<GiEcmnS=9{<+
zFV^*Qmz{oL-OpaKe^S!(kC`W5e5gG6rohQ;uIhUC`kSRv%`biUnE1r^yx4TC<NUAK
z^jR-ubG~Wb@Sc??{?et+(fFR-d#md&w6~qVw>7q=jnCOdH`Z)J-CoVP>FQ^v@NPQ2
zOHaD0H?8^2D<%J(w~9P3-wjdGn{K+eKBKVC(fHY+da--Uq&1AAcDT+i_|ab@cu6QG
zP4$n-9sRT|8-$}$LXKZ<xU%8X9XU=n-WkzqtJ!xl7W>XAe`CPd+NI6uxGnRS-@Ylk
z-%eg5zDCSY?SYV=hepIb30XlV^CMgn{4cFCGLUFwz4^`gK*j41_K|G2A9Ea3oAo|7
z(fr`cz&(4a*>cZ(t=H3gxU}lQ-aiEkzI{;86OGyZU}{fU=-&yJH-9M|zcjO}nKA#k
zi&e^kJ!^w}ST&`zO`a_i@tpTO+aR5_$2%rDVya+p6L;LYqc6O!E9|@JZmRNW#tQ@U
z9ZO~<9j&dX&b+F+Z109;T51ydmf{7O7bi1@?v6b8kJWm&YC>NP_q7TY<893sl=r`R
zYI;yH>gy#b%g8;ILV;|WM+$@k)?G=dtm^pF=H9@(pm*;cwa+pxs>Qx08vKWEPwYL{
z&3#ejh?79U@!d){-ee@oPCu}-rdgP!b|2I6v?>!N-!FkK>K~?0F|0{pOi~Kh3F5fw
zeYQx5xq2a+nwiQvlN}S%ew@ypaIo#={K;$Xo_kq$Z|Tk-TlS>oyUXbu>zCqLm*Do+
zL6f8G`b+H@^#z{S7Plnrw|fx2ZEu@SR?7rq;RkCa@;@xEoU<uLVzR5loL61*!$MD<
z%y|)fRb#G(2G8DSsX|6YavRrgI#_vmZ{tU%{4KXcj;s0_>t|MP(JcDlQK2sA*?h}{
zPxs1_YY9dU(`I$)Pf6y|T72?^PD{=sNi{1+k1b0UERRyWn!&fY=aCo->s-myqgNW-
zF0WTuIN7-Ivyb2*yY)Pq<UBg}2xzaJ`hMlAtDR5wPqsY&qA$?dN?Bc@Qd3w#L)^jr
z83#*A$ZUhdoy&G8m{~3oe<CyIgy2grOVRsfC#+W*Zu_Y>LuXdT;vZa<>YM!iQp7}4
zxiz9Y|F5l>ojb*vAvg5tlRKSnl5Q{PQYlqsKOxF+TjoiZlA9v`VTpMXdoy}0_#bXE
z5jrd4pv%vlH|cBQy`Pgs-R5+96`ZXM+`qYL_U^TD53k&wceinqOu}tOPmPs%5~fEr
ze?EAyBu(wEP`8|5G(&gxCfU2^QzlNY-g>F~vm*0@=jAKcSbO!}<*HDc`plYldj5Hj
zYkvEJefxGPo4&smU@iI3@#l-aK;e?+C9;Pyx6Dw9kof#ZLMGp2pUS)`zJ0U!4Kv@W
zoDDX%z1^L>Kyztj-xse<t1`a2RH|({r`qe58Ts;9L1E2=JKJ>aBEzp-IvpC7*ByR&
zf>co1HWLwzs^y(Z+l!J;YWW-q^PBWyLhywb43g?QyU%TDs$8|`@~w|ARu(0!wr5)&
zd(li_Gwa>1YnOV;c8dD<*L%%->0X*1;*rC3sqd0TUJh&Vx`RRU&zsnN%xkeX+hP!!
zazAOxWGfABe<{HZqtn3xr#|iV*=ci9d*KPiw#lOBwEk(7aa^6KJtxoM@3JdQ^IKLw
zTjRFliM8a(XGOOc&eG`IAlkcGT%;heZ<}Vy`C{IMTYfBC*qKxn>b-g2)z(G&om$)3
z4$cbu!S~B(gSg=0i_@o1Qj6UCvS>fk#}gY%Sp<uP*Yf8&pMCW&Xy%1rDVKVsSu5sQ
zdJ3ocsa*d0YM)R`TiL8*FSXuqo;SJVF7V$cKIEZIQ_G~SFA75wbxyJf@&3+g)}11d
zdOzXJW0q5v{)_TfsFrgFyxaOvhO2Q?et1hn3j2rZLt$P=HC`P(#U0!HR3|%hlO~7a
z-0M<D<`m_mZ@%(G?~=Y+fYf`b)tsFw$GpO_H&49&W2f!b@6-1sGBz)obvhy-PxeB3
zujrzj(<z_-zg#y-#=A^<$NS(t!ZjHSmVGu!s0e)9`<~yT$#LnF*r%=w1!{tVWSW}a
z&yRJTw)tZ3Zw<j%&jUS5qLHE7`!7r|6<&J9>F5blttTJCpC?VM-?Zxb#|H+#f5{qW
z^#AtNlQ-RQ_txWQFQ?7h<5b$X{@=Mh_viKgoasMln)dV;L18I5tL#jsX!QH!89rF^
z*X6Q$Sm>g)8+L`<OkvkHT9x(u$Yu9Au4kSe?<t6$l)N|lfb?qj<&$nl+nfFQmo~NH
zc&h&XigJ~tNbjrBf8r-ylD{XoeTMl7>qi&kwjADY?U}1}x6;<g)C`~3N3GXne)OE1
z!I8GFqWzL&=kChuTe@t{WJef3KWek2#(L%&>F7<874JG4|D^4c;8^=jNnzeo{`)*f
zHh*??_`Q6s`2P#0xiRbpkDh$`(7$8N?1nSvMO8b`tIgYK&$4GDM}>;gg8GH$+Z)#<
z$FO|)&|4%ZaB-IS{ta)}9yX8Mc<bziwlDGG%p2#N{h9Qj>}#6h<~1=ocPci2cz@>3
z&8*Zt6`r0uJ36OdsT16MG@`2Gre09eT$#U*WOQTo!-|$?T<6@e?45o}YSkOvMN6$W
zul4m_-gUNp+9JQoi=T3*@Ekp1Z1Qm9qyLsdWgqX@gbSXVRX?TROUc1~Uwj*$oP4dy
zSgL*h^h51u-^46_#b4m56x$R1tM=L5{~7YLtLi_ze;qpM&igyf7j~Aa1WfL4+3_qR
zMA`bB?|Z$_%=`Y!<9rMsq&Uv0N)$?u?@-J?`^GCX<ZocnoIUxqlPfm-dVA%+a_3C-
z#d6VW5>GvgQ7TvYxl4sR=Y!DHn{P$F8O90K?VcAc_3Y`#GjDVLs_YCgyjm}0^8IzV
zO~oILo74Y&U2S-7ftUQ@={@$-m;9dh>FK1VH49TVseJ7AF2AsvlYLXK!S7{mp56V^
z)(9_s?UHzlQC+81`ZL>(9*KFvEB0jAu50Ry)@sxJtlsnTCxho@ZQi>L6HY4@I{mhm
zP)$3#LxJ-Yhw(Z439^?zEpA#J)b0LKP~-RN+H=a4#c^pIrwb&j{7wiS*c`j=koe)A
zx876KO!^*YPgxgar!K{jZ?=D<>Iz@w_dir>w{Cj#akle)jTL<Bw$6GS6P>a3Y10+a
zd8>Y}JaO*o@#d$UM!!lI{aW!#YE?}n^LGx7TQj_0IPY7z;LEAod#7`o&p%P>EcB&Z
z?DcbQj>@R%d`lwN3SJbPbj<AQ9wBRg`RTHU1m$=0nY>r%>;7Pn8k=vuAo~?t^^!x2
zh0W4hmb27K1O##Imt>yuZ{|_$*6ou&dhFBVoaDz;v%o#+hOWZe&&94Y1AcRzd}Ghq
zCpAU(cVxivu;jc?{z9?8uIu}RO88As<kjZV`2SqhbH$r@y@UQDA`$sET(blxmmQf?
z(3xvgGi3+=4{je7KWBBT>7vnd&Y2xy<v8``I^zuK8yB8-R9~9Csh@vJNSdAf(Ty?|
zlXDN0-jQH-d|#OCZIL=ppJ)4@i;QQkEs*}l<q@Pm|M}EoZkOeanNH<xFP6Vir*N#~
zYekoQPT|2=PDeAH)Q6b|9?k0wV3^JS!F`dTV$<P0rrW|<)47VI7am*n`Ody2n{*@(
z79PK!vuTl@q~$SY(b*>J?;H9b{W<T+u{Sexoe#<^vX1AS{b7A%`Tk;;{U2ZG>UnIM
zv*kSdow=V^EHJeDVb`B==h>Uh_c`J>@Z?D|xg~s<_MCxv@~X#ML{^CHU#)kl-&@M2
z<fb|QBgu(c6CWM!ZZ^HL#`S#h(ii7cirID^@nFu4KGHmoA+1#<&-dWQg1pbU-8-JY
zve+&?yWeWpMpfOHEf3WS6Dw8-@4VK#yG7^n3!jr8dLAx#v*G(I1Jh~)eUbZW=Q*bo
zpSK7zY0s_K-@YT@_M|008*Mfnp1Emvp6|f`0jBPmXY#KoDbEl%a4PciGMAirOLP`$
zhkO$gntbkMAB$dMXpP}?sl0^9J^o*!=I0BYS8=}<wC(X7{%73l+RHhbdG+@+-HUGe
z5L#R8+I8j9(#0B#CQE*6-zoLr+{AlhRbI*S;;;I-GSm8tAHANm;I7rPj-O3puA1#P
z3wNC4b^L!xe)VD-p1JXXU!r#8J`SAs=T_=PZl4;4uZgonN~Yf3lXH8{bgukMoTpbc
zecf1T7hzT`X{j#oR?6H*^48*W*XBHKJF4APuCgRU>X57CwBS9f-uB#@lxO*8*ZZC&
z`8O`@ZkxHK??AHf@|C;#RsEM}JU2dFUU{qeY1g(}uUTHtu2=N;-?)Z<+b-iXhxoM&
zeDge3%XVDo*?QXhOWU%RtzujEy?$*v%lqW+T~n5{O{-c`6KETC>i))}DSLw1q>VKs
zpU=0~cU)=BY<Vr<kl^XR2Y&J2`BmVqr{?g;W#)X9>zx-x^yJU2P+6&9kR!c%SxMRV
z=Pa*GSBvb=e8sT(WoXXDRX=1ObE|4Tf5CaB@%!yP265?P=G&G;{hXtpk`w&;(!{-Q
z-G6@zPw`v*d}4;)=GZh2_j|h*K5vnkxYtQ8{Nv$?j-OK7VwHrGy>ntyf=m|ddOwBR
z@ziHd{<99NU(c?;`EkPf=X3bBzWlK`CjArVsm@I$3wZ@qCqHO>%D(zL=ZY@r<g6nm
zKNs3G2Yq7xGDA)O6U#jPH&x<&H*ADNrVA#Y3pzH%tdA|3e=^fvhNV_l&sQpXmF7+7
zJ#_JD%wfxmJGV1U&#0cmEVDdTa&JYj``wKf#Vtzrta#j_I(LVwR?W8duD%1?w#K}@
zZuiM|!~2@QzqWVpk$2iw&~ZPJQNI7l>xp;dlN2NEy>|59czvz><bmne{~pS3Dn7nP
z<ey68JIV58vG0%CwHe1K{LYGdzOnydK<W*rrlsubHD!K_?|ryiBu8UT!8+rL8NJg}
zezDZwcXBd}c<z(VHTAmgo~iDa?4x#k5MB0N)xkK?Hnygs_j%=iTlWOD%P%<Yx&6BK
zZ1<U8J-ZCPNFP2~D7Uq?z~z;k);6OTJ5(=g-!!m^dC1}|#`V3l&GgK_T`vAPq4D>p
ze0KctpuPU*=ll2n|788Nc=6#Cho0s<tlYjt?U{<|F^zzxBBvfVAC7mHXEfaVJX^Wy
zb;Kk&HoUIuI4SCM!}ms7{RX`sJ@s=vv<?1rUKPE%)3f=ypI6$8HKFQlp6;IcbF%uS
zC!O%@^R#`?8F+C22`NUKJ*Rhs@$pV5*)A-d`@rll-@-eGyX=-WDzBG$zEnUcEb`H*
zrNR<g9JQ?sXCnJfNXWg&OsU*)ZMxqBM&rC3yZF08dU0~L&k7G-vn*}qbh&eV-^AT2
zH5T)2KNsX|T2*8sG$nG*zjgN~ALkOtDc?V_?nv_QwaW#${y3DnGnZM~z5Xq8t>hl-
zocAxbt~4p0yvgpuo$kZigIxXiqaM3xsVuE|r@ndJZr@^Ci=?Z+ULVP^+GsGX>PgUx
zHP$9KMP|LRa$qW#_715{JguCU<N10~uZ(@ow*uKl%QW`Fs=||76d#4mjd)?TX>r9N
zmG{AUD~maWq#y3hv}&F+=`#zrl;p<HrMYu&SEg!d&gLtSE|t5n!(hgf$<K6GhBB@_
z==$ka=&T!7ztUbyB-wnA{3tzd<&XF$e~<OaMwIcM+kU<CXy!BvFF&EZ*Kb6|PFp3G
z-T%Bc!{<}!`Kr%bWY6#Zu<>iym0wB5b4>S06y>bzZ?WKeGE?@N2;)WLB!=W8Zl9S?
zwj7_Of9K4jW79%B{&0InPF|ijMXPDKpm>c+`l^5Z@3pQ^)YV*6SAX<x<HVxwm>e4(
z6%)2&9IGEnuE<h3FysF7Bhw~sUnQ5d*y>#GnVwq3sg1MRH^mtoyYXfFimA^|HahNl
zCEV$K|50qS4)aMr9{y*`)R$!*w0!?WByj3|hG}0Dr^)1d+z5NyYiDU95glG_-IO$O
z+1%Mbg%8ZkEGe(`4$WON@9Vl-SChiOrC$0Jpsw1jEu>>Med?Y)E$_;jGPhPretmG@
z!>&DTTDHsfS(<n@Ojx3|XUgh=Es3R7J<`5nR*e~+hbGKAk>r~>GfSnon>~8t8CflJ
zRa2{cxkukOot!;eqGHa073EdBmiAq0y=_U8zpd%a{~ntCN9c`j)dZ2Iw6e8ZGN<m?
zF73RT+cSpU_;&eg)j6`?oC2-SFJ0`ubY<E4Ur8_X%H5BJ$aag!dVX1_dGhy+DQwkS
z#I!~422a`~I)8~e+w`v3o>h7Z?mM$?Z8BrmxgN^(RrMO%<;CHlJgeKdLYIoWsI3WI
zSDmI~UGS{y*?AGwqc)qga+WNT;d{BvW=gTzK4o{WpSJHgzTe66cz-R}cy`=#IbUO;
zTSZ;Fju}6?7L_I3rnuI$sN?p7U8y%Gl<HVaunzUVkmL0IqVDo5U1x5t<>YprdD!ZW
z=i+Bm(%5AZ*^jbvd~`i7?CrH^UV!2QFHTFbO*2<}uSndo>fr3$f*p!GBByQ;(UUo=
z<EnPVpe--+!c?2Re{|=yi#u&hXK-F-IB{0Eu-*f$61^xBZ{_V@FU^`?ae~SB=^Mcv
zE2cz?Pi$0@Sim}0+@aGb-{0Zg1O+B9))K22VUP947II$fzkSvJR9vn4ieLM-7B8wf
zv3^UIPuSTxi`SIJJTU80ztf?1c-ziX<;9HEOP4AM`#*W?R`zXc%F}1EH*bo6-=jRQ
zzvqkC&l4rl6Z?Ixzsc<vo-{G$x8I3rMqCN^ULGrXpYCK-^yT2RNnec4yDzi8II+Ly
z%GS>lPhL`%Z!ViXm*aVI%mTj-bsKqSj<fC)H@g1I)h)AIHIKb{w&P_(o~J)0mR+gg
z3HG+zR~2bHKP9QZg~x?C?#Vi9<;WFtPEFKXbmGR(BPy!5ejfYclkU`|bi8~;;7f~m
zm9lf}UA$gujxAHTUX)m<3-nd&O{lVa!Ts7}#stS;FBPB4<#S#MXs+;DJ?&uNu|me^
zmG|Z)7;l@<xYmYWu(^-J+V-<RzG+0lTbY`DiZ|S=nr-%*M4tWk*}uS{W!>eFw^eEr
zOr}3k5lX%iencoK#;13Ub&9vj7cDWCm0eq6TBcPAa$H`Uacb?9Rynf@qqFME-lQHp
zSas_`<gyEACsp`bU&y`Xzm@Z_&bAwAbwb_q@|nZfWE?Xm&eS@`u=9&s?W9*1)Yq=l
zsWzN_VeQJG<2!V%zDD1CIQ{fNhRvGxy?QB|Us+6_Hn;Dfu}fR-$A+lA+b5?vUOCs;
zv&=sw`&3l<2e;VmyO<TDEMM`RDP3({vHJe0b5~y07$49oerI*~%Z7~&Y`NB}1yXxn
z^K7tuQN`=1Ym?FA%{*^{p}(_<bHzqct4zP8EAOpb7A2{dv3-qdaewA1>s49X%+~U)
znvyRw?|Buoc}tSN&-Quig;sL7pZ9K^vgf&tW_0g+^P?*H#T$cfvCe02Dzx&<VDePD
zZQazQKRbQSua*Me@RS=yhh62L%sE}f6mllQ=ZwZR(}pQ!Uqmn5N!$M4IA5^D&EuJ^
ziM))4(_;?93ybF&awMExv15XWruEwDY0|k@^OdhPe&@Zl;BV{Q1KT;SJ&JYlcMVsX
z6nf>2IiG2>ujK83YQCGxo_MClBxcS|iQA)-$Y;6Y(#?2&7cF~lzf^O!3EL|JO+JQB
zispVYD=#)^*0Htb8`YBUSxmBw$k&)O?YZ;?m9G;RyG}GbRbqSluJB0JhkXvwTlQQy
zFQ;cD6WnxSM-rESZc@*6;o>dLhu=Oh->~r0+g`QEJ*^4O-<{o-J9qCcHVF+>N}JNL
zTp`m%^5Cu3V{0znJ0-9yTJlsd^U~;}bBx-#=XTvRzMnDuh~Tu+*h1#jkMd`1aw$s+
zGiRTlpt<;9o80b)OfS=lo=5!L!^nHn*yn0P#oal(x(q@#oiw=Y*e=z0KxX<qhqR6g
zMV_ZhJ2Ycm%)j21yuZA8$&ZlY3o?x-R-0A(&pZ3s<oIXZl%jJvyxr-&XFjc*v**;@
zl7nrF)u-k5-hDU6Oi<KVF0}uCu5GkY#+hvIov(c@PG}3AJD0rgM6Lg&DrfP`bLIxT
zTPi&qCuq%{@^pc7ze7my{)4&?^IO*bnpbjlmfF*8-|ou4QvPr*v36B=|GSPeE3fNo
z9ITkKJmkOJ<hR^O>O!X~Jgshut@~+Zu%UJy`=;;bg9H=jGt607$R44qwp_BM-D|?)
z8!j7EdK)fm3Y@=M`^B@_4p)UOJ?sL$^`1JAd#H_X-MR(QSGm_tVAPDY6bd)GP$}bQ
z{bJeVS8fZ^#nx`{UG|If#^S?vpE(aEC3<XqcG*y(b4}Q5xA2oypKo56s;k}Bd8qXN
ziL*(i_3qrtwRbG1@oEGudvH1Du<P|p>`Qjdh_swl>JaA_cgTrJDDA`&$K8|Kx)jAG
ztkGt&ygpx{<<*}ZbE{k{QtDl`o~10D{#MiZrO}pa>1)q8WW6@CNO`DGd~cRhpVizy
zc29&J6f&Q=U6{gbD#|{?M@}y0mSKtCWBDa{iqi9TPsv!8$){~vvN$r|)^XaSJZYZ7
z&&Ce~#na;iK3=)?EhgWiBKTLCZh%hOl;^w?HQBc4O|g2?pko$$TZH9^^xiX`D{M9&
zO*v|^wa_mrX7;UJg-dGAWC;}9dh#@1#pO4T;-xtGkYfwhF3mf#Y({M(pXH}R7Rwc;
zEj%*gh*FSG;G)Ae&vh<-dQzbMgEeP)QFSA)<l%eUHhWimZ+UY6n$z_u%M}h6bz6(R
zzBtwKn#i?7+pj$=npP7cb|J{DmXq=BbF1qj9Fs0@JhAD{Su4qv50vkI6Hz$5WP<I|
zMOBf-6KtO@xNF;YW8S9x3%05D8^x#Uw&-dprF1WQpLHZcq3fJ<yVN1Esky86uE<Hg
zwP;grZucp{;IJ0+O~02&tgUrgqiFx=iuI=J7v+-{DGGXOod0@iQGJu2&BsOk|9^Oi
z|Nr}I`Ths{?c;y`61OXtc-sGZ`=P68j|8IBV(a~{+wXgo)SB4Q$!$7A?b*3V^G`p1
zedXp~b0oR>Ps+}{55BeBuD@KZrqs!65hyM0KdH2E&EW)LXNN~cA~s!fY^q*ej{g7m
zpKQ$x<^x9`+CIJGnLdMMjYK-f*4&MfuMTM(<77`Qy1HDzROE!Rz>J3DliKIZx?|S3
z<!U~M`X{@qA}d#N8C{URuKuKg+q84>Q|6`w|C{%MX5JUHZ{;{}y<|p@?6xiMbDY`x
zrL8IsUC_~gAGanqzi6`ZgJ+*wXNzsywY9D(WKx8k-(ID4oj2O7@3O1-eT;~zYx?oJ
z@D;0}u3UbVr+f4D8})+xymqH{%5S@SqObkfxB0I-+8u1<o`hKKJ%1wO3#aA1M=v+m
zx*T%SDgNK#V)N(s>ZHyCJiY8G+nnPaPsHsP={Qxbu<2p`_4n?PCwA);wEukk>(CQj
zQKn_bwr<iFc;}G3<kkhR#BF?AFD?z(^FV4H?+U5SZ=^o1t>jKEjD7mFr#Q{*jH7SS
z`?wUjeAj21)86K%9#>5{X|PRz|FehAhVMOw>lq$0hVpQ<+;xwUYLB@o_-_Nl=aj7Z
zl^mulwiEN;y;@VA9r7j6E|sG~O5g1DlT4M}I^VQTZ2f1?e=jET(95UKD!O~kk6Be#
zyv(@u&QM!t8{0P3SMw{QjtR`*pLf{#x1iUi4RTtCHkwTNyI#yVrs1)*|C+;cCtjSY
za;k}Xc)3K$-p*|<_s2&co{KBK64Q4IR*Rn2Xl3oJtgg)5+u1I4#q8tmd09cXGBSH(
zRw&HazOwYD-8^#_+a1#)<}mi~iZ8$aOa5-?BpFY>!|y(KRXMh=h<*RE!?N;Uy==pR
zAg}GeQ<_zm?r7xpQY~z5JW~7eyV;(#&OwP{s(XJluK7IoGk-$UJL&&oFE=*K5$=e(
z{C8W|<2$=eGL-X{WG+<ENm@N~S7J<=JWrY5{Ed2^-^E(=uRPq5x;OE{ydAf$X{~=L
z#CP>gh^zdGIU5_Ezv)|h-N1VH^I83y0#_QG+8$NEQSiXzIkz~LXLE+%F7R>tTNZC#
zw6*B^nz}{X-&qv?swwzb=xe@BMf~oAYt8Eyym`%*?)B*2wplqGQ$q9~bxf;f5=}m7
zy!k5oY2i6??}SzNMOr+(R32)6O5)+$oxAP@SVYKhMrZYTi{ER@=R6a@_(;~Di^pJD
zeu0X*pXWdG=zqMI!n3rB6RTd=Es7T0wmmV}SWh|av6W${p4@Z8txH3-em=FyFrD%z
z+w-*1HSY4Yy3<qomI+5H`uV<-clJyuzW*TXnP-9$k2YiBRxKu9$F~|LC7zd}`pjl+
zURSbB*vg;%m{gbh`-#)F|HRMUWT_t9vZ`oj-`7K%-w1eLstx?CzeXt4A-_j+mVdR!
z>9EM;XG&+&OLIQm{rtc0?4Ej8E!~G=sms~>-XGrl>(>mgKS3>fefDb0em^{oOGeGf
zEP1odB$><dCt9?AZD!fN?_p=}$-+tcmqp~9TUD%CH51F;Bss_Yy{h(!>2?hNGhXL!
zYhJUgs$KcZ>A|g{BkPa$+Bk8i@o(^5dL%)1cfm~MJP#-D)zQcHX8qGhEIgxkbNjz3
z3kv!Krsz1%4svbGw|leGQ0r*%YPqSU6W4nRt0+&uQ4!R4p7Zp4<?F9mer5&!J6ot%
z#dv%9eT~2`vp#=2ve!1g!bmy#&W_@zr$473*)6(_|NMMqPrDrp?k&7~v;1U_(m78>
z&9pe@HCF55ZU!U=ec!&YJTPV2|9xFve-b49?!G>9%!Z$D+E**XS$+lgRN`#49$)Bv
zsJwBN=4Z~WSBk~vrSP(TyAZhi!|`bgmhnG5wy!xSZS_<0>V&YOeNwT>PXdach}ODf
zZ56o@c<-fzpF~+*?!<dPEbh);#h+mm`8@D<PRpsA{smPEc{+9cZV%7e=H+xwul?UN
zsY&(teSzayKP0{0*d*5(`n^q2^WE^%E5y&DT&sWbig~XJ61iqw|5#)^Z`HS*!a2{r
zRW5(fBV8W!&c#&U;*I3Q<zZ8&#w}gxaoM<&+2d7I_9~s81l5(h7Du-4xwxif?cal+
z&b@hRb#aTHO?<*U_p_^R&lO`9xh#5P(K;)Si|X0&*6G^=YhBsm(sn&<yCt+%U!%&?
zOwn-q(~q&2^x76p=h-dM6=!t2d!fYcq@sv_zhlJz>nKh=em1}(YSwyT<>`k59-RG{
zpmAl}jD>&1A4i$<IXBKOZ)jiG|0MB6vAV>o`)k@4)?EGN8|d-t9mB$K+1XR_!fV#I
zi2t$?iQQkcSEB1%&ex+CI`7OAcfR<jc%Q_skBKiPb}aniw8hnM%Hx~e3uWrh-+3ez
zH)RQH7{B7-M|0xUuid)4a@YA!8Ro9?_Ux`R6J8s9IiT=j`;<GGS(&jcrH<AttbW({
z9T#3(^HWVjwEt@|`{rqtFWiHpYXwCzt3DV1WGer0QfL3mopNp6^At{M@Y^@)nf<G~
ztx~sd?UaWZXVuD$zy8~;l2N?xj@jXlSN<t|<i9(8ALos2`@L&stMDEAp~o3hbGq<8
z!&Mb63ss#WBMwiSw^yCy=c@dy@=Pk(lPBx>vcJKAHC=o4+*DtKJ5yFkaQ=!2Vf)AW
z&hnOw@$W+>G3F`@^Uug1RobroQGU|fN5!vqw=AsM{UzPAUm*GYs-nY9&4Q2S)aBk!
z`~O8y<m`lFnst9&g{CWLRy&u(C-QbRnDI+~Te8kFTeOwqY4WO?DcAlSS+P-VV+iB<
zW%u2$@|rQ3UOsxg_p3|i^Up#BV(v4ncLh{!@zmdVAh4lot-ejzee-EzlS6j<Ros59
zwXSB<iKV8w#$n}-uOq`UUc4}AbG!C4Vea{}aq2<5bDr#2$sQGWEa62&m&wf6^R6{7
zHE*BRQXEmMvf2LNOR1CLHH(S^A6h*N`*c=MCUs)e(L?UJv9HhH`+sN6CHr*e67wfD
za~C}Ra#YQ~-ECFbf#P)q(shaF3I&Vor*pp-{XXr@jkQZNe$Vlk6DsgI=6A2y-xDII
zCx(jb{m!^u=x=t<j==U=j@xBxRby;sb}hJ?`!!?Mk-wS==Tjee?cBVU&A;OD{rU?V
zLmz!AF#B8Xxr@I$e!_xz1>DUkjiE>8KDD1*&Uad9%eg&EkNoCT+4-4e+cwph1kR0<
zwG8qXv>RTWC;TG9d4{0+Gc7OCW!q)E_Ha7|eYBb+sC}epjzOPHPlw91<I0Km&&by<
zwARZzUdQa3cuY8mX>;6f8QF(^N4`WT>S(7tx7+wPV2<7K;G?n{{wJrhy5!D(oYhhw
z^gbcv|L@;i{P#}ym&l}lIK6+y(xr+o{yn?!)8tiO-~1EvHm@t?zjJoud(p<H9hRp`
zl`_{pkyfsmzr?xREimY=@YR{#b8a4Kus-$tV0nqk%XgbUv+Aw*S;Z`A=$@gf8(_a_
z%cN-@pEv1Qw<z1K2|CYN;lzGy*27h*bIO&z>v%2?dY65-;6#MY9l`k)6a4fg58rI*
zT(RarytrG#>YXimtNerROnP;4f4=F`EM3LSd28yuzIm&-{S$nC>5=T|$NEC|8f{IZ
z`05(xZh0|L<k{Wn+!4zwTMo-x^@LX?@$nt8li~SvW;64oLvv)WF80rfQS3Nbb|q7O
z1@q@)0dK4Q7Ko_ceelcWjj51V<?AI2E+jX{t*vYL{a8W!TBGH!TgnFV;pa-7*XmyX
zZn!L}o4Y%fJJLL+d2QmSRRuW$)2?nRntvlMVdl=iE&6?L)hj2>{A=0w?7)6Ib)g&9
zK4CeWWhcs-9yiVEO1iwnIj+ix)#UcVPUf&BAyG!g2RG+Uo64?jGVN6<lkb*SCzFci
z<}WwVZn`-q{@t0AEsoF9EN^pvZkC)YX|CcpG5TxqzJNW2^UWtDS-Mv&VeQ(h{`A_U
z%TYVu2uyq0`T2HnQdW$zp4aPhKSgJlCbYZzpAmg{QFw0XN9oc%HYOI0pF`7GANd7K
zd+~JpdF+du^hntv|EJa0#VPllIBw3hI^%Fz{o7RD9R~!DbUO=uFeuM5{xH#ef%zMS
zyg8E^xUDm~{~hz1^S$@rL;gwYnC(&-{T42L?EO@%ZHdSImWgdQl&*hj^^z^LGMavN
zTDk3`lg|t4YPC9-{Zc61sNg*9Q)G<C>4m{3C;BZnJ$JsKP4jV3xy7bQH7mbfu8v%#
zUzYbk=+09P*PPjZ7u{1nczUy|O9^{jn$ySGs_woUD?&|HY(8!t7NR(B$+c-IA)jZ=
z`gZxirq$<5=PtPIw#QJmIxJxIrNd`?lNbN?HLr?(m{I-E$otL>Au-P5t_!_<Z!Aw+
zcJNkXexG~j4enBwye3QcSzrG)@Wy`V+Stor_Vnq4eJy8VU&+r~d0KU^*4GG+j?bq)
z<?t4T2=*Vg+kAOLpQ`#jWyaX<au2beFPkDmcC5;m)?f(MRoOi4k#J`C(xZvIOtY7*
zIwHtA<Ih9A0J#&Ne|*?gw|*o0qiUZ@zE5|)eYn@LtR?T+WP86)zmG~g8|SVy?=$>0
zQNbln{X6@E;`b82IeAxI^7J~eG}g=0z5Cjp-VL@ZY{TXW|KA*^yE9kDQRIXgo46(O
zW@)Bnwtwfoa~12;xy?04VM8ZN;~ZAy-V`<w&4Lvc`(~e?Wc-B1?cVEGYUvr;LQOZg
zH)icx{W^aA5pK(;WqC<n&%$)-LWI^nN}GD^POZ!hd!Ky)7ROcyNh%c<>^QGF(QV7R
zy(a=ra*0fsBDB@3s`+r&^F_zz1jsBka`gFP9cA;d`Tg96^*t+MkH4u^t@5^3KYrzq
z=LU%_UM839&(3i&w$r;W(C0h1P@gfs`gS$5rsC2qmzjhwc+|Lft8b`CZ@-XaDSqN#
zXNKx$>7_<r1g-QHzbw1@sqK8iD#4j%o-eNZtz5om-Jxi<S=@R#L3vj<`4zfceN-sA
z^zPDBkBRcdyS<rLxIH!~I<$em;ajBB!rs!SZjV@Io|LJIng43SG`Uv-jny8~nNJ=p
zN#yFwVsYMRJ9*vYwG!=T*7%$bDL3TvyHTUSq3|eRiA`)mv#{u;drk=tpEAxB;$Ph?
zUTDSKYpd>2W}dlHb@9cQZc<B3PE|S{zsa&owRy{*HWA%_Ry!XWg(zOp+Ooq@@Word
z4L^U)JtN|$oo{mOnRIUqhog<O#TkL_U7gHU$Cn*1Y!UW!@F}^>@pjLJz-ca8f=jb5
zD=eJk5_3i(RIF2W=G(kSeVb(pI?7svn`8?VrU{;!GxzN(zY1&3u<jnW2JXpf%d-lS
zYGz%@VJ(%p5GDGU`?y+8yvmBX#xc5E`mI;IThhupwRiiaJSV^14<7Z2z4m^rt3F3`
z=Au-O7Xd2AHWfZ`)3WwDp~`8+E1<V;QS*0I^VY?a&mWmzw7f^)*;XN|=kqu(eJRn=
zZpjup{Diw#bmB1&tK++FUc4!~tej!r=g38Z`R<h)wk^%q2$wOurx^dss*Q23_PXOM
z*D4qu^L?Z}SIa~H^Tw34Gn@}LajjgM)NLfRy7qJNN=2qx#d#OhZkhC~7g9fFo6gBs
z=B8&ealv&pzO1>2mzA@L&OG<VGVt5szq<UcmIdF^_jqkscK#ug`8LMsQ_m*xDCEv>
zzEF6)TkWRqtAe+0=YKRRubQ)P;b{|IsRTv~jf}o;+LBHkkqvtS)GR)h^f&q>^K-L_
zE-s#%)wZ>~ZDKy#9EHaLa#3>od{X=N+e_Kj{fp|=-+giWX2EIV`G0pD`~T;%ii5jG
zmO%ZwoXx8*K3>eX^G5H>t!z6a>L)7s{yKf`#@w}T%dc*p{JdW+IN4yEw(ZQS-t$*y
zzslJglkeeFur*FseD$}pEbPfHf#LqQyT3kLW&4~_;b_*zTib-yvP*Z)%ol$>mE)4Y
z=3DFX%_hgE-|v;P-<)hZFSch(qWiXh`fnv6vc75iAJ3kgKjX4g@8oSy=l9h;yVcd(
zt9<F=Hm{Sq`rGZkb|^EMGd!*B50QTwb}gCfZuax96{l2LTnpt(6(%nbSQqB;m+fy;
z(^uJ75@#1Ia#-smyyZpa{8i0fWfG^qf9_&jcPML7Th@%-S3Ek}=6?Mjbh!GRdg6+<
zsnNf}Or>JNWvp#Y{Z{`h+Pll;*@C)|qdl)Z7OYtHm9>5$XZYQ1x$AG|aZ8;&9Qr)B
z{Mx#0pDaT>PA9H&)b-JyfA(kA19?90oWf5p-!}^Hcz$fsLUZ=*GP~B*ICYsP+E`16
z*4J8i=;|oC%-VZp)#ZanS2JgRn6=lJ{qd>g>)XAS<Zi6_{m7thpWesakCvZr;hh^?
z-OF%AgOM+@ZLP57s(q$;G3hg9rdixtw0Y?c+ZX?5D_r*dnjq0yW%Kk>)6AQnpTG6I
z8qpWs9l6Bx*!{g+ItqHTZY=-i;%#{MSJH<|3Y*(`Q&w#ZG+0%wyS|cP?j4rP*XLPX
zjPLoG_^_h&XUO*?+lqOXt)439XEz7jz9DjU-=Aj=*=tWPPfXNQ%bei9d}VsRS#J5>
zxVicf?gte-u9n&Iuy%Dkh<md3-K)JBJ59saI?lUuvzqtObBp`c8xvMqe7xP>&(7u+
z-M;Vsl><I3+suwK^V`3CaBo&f+5!Jpac+`+YTuGV1Sag?_WjL+dDX55bo1s{1otRi
z@^zDa7PZA;%m1V+c8@ylwkYp-xMJ=VgM_XFi)QEE-}Yp=!M^CzQ~E-`Z_C}D(R)m3
zaZvV=iT`efcYn*;w@9QpGPKlucK6T7UtGegDzC3SFZNk?nYnN>*ODs?SH7h`*nRZd
z+YRCpR$Oa^jMXhJRz`fi;8VZt)#=vVtL@%y^bm8-SrWS^KBD2SNQ1~K5e|>P*H_)o
zthDVAI(7fiyDj<V4gpPRSG&tDpL*}m@@3xsVi|__tMcmV_WA7BRlD)E>Y(ORsfKf1
zKQt5%6h(!u{w8!FGpS?WzYJ9)z5}c`_D#RN{OY5ux}6bc&EL;dHa-0FdDBjY5Fw#k
zw{+@uD~f!+y6vr8r@~oLj_Qtwd<-wVo#*eVsr_`gc;hvZ?BvTgCQW`DHt)iW)BQyW
z-O)QfNrw9U`|)V{b#-_DxKB1>^Il#3=&yd<ezH<U&8+vUWcX6{eO=1S_Wi?xrIzyL
zT37B}3v(1mXmV|KzM3_K>nS5w(f(w$C-bcst{dm_FfEE*bzUcN6;r(ByxxD33{NI-
zXkk6A%+yf90D6}@>;xoZQ*%?u31q&hC5b7CC5igMrAZ}~1*!TGzCL#FyKimmD+&^m
zvr|hHl2X$%^K6yg@7}MZkeOnu6mIHk;9KCFnvv;IRg@ZB<rk7%m7Q#vqGWH!Wm92Q
zkz0_PT9T+xk(-lOY*k^al$esAlxme%Yy}e5S5g2gDap1~GS)NHGt@OSG*q(VQczH^
zDN0GR3UYCS>MTl0vsKC{DJihh*Do(G*DE*H%P&gT2OY?zZ(yWvWTab^lBQc+nOBln
zp_^B%3^4>|j!SBBa#3bMNoIbY0?6FNr2NtnTO}osMG7zgabij`+@6Bcq8zX-Darb&
zIjOm+c_qdAhI)qjaKl07rzBgY<rn29me?g06y#(kCxUFzFUT)0f!JxIk5GZI&n6|=
zswA@{Cl%~jm=hqrcFZY36$M!Xa&}H8C^W2c67$k+l`3>oQqvMkb4rx#(u;DFQuI>F
zGHvuB%22gKL{Uuzy9&ht5LHMa1v3O36G-BOLa-vS03L*S#d_cf*GtaN)vrh_&^OdG
z(8m_+6^RAzp1JAxHKyxl=BA^Dennz|m2**QVo82cNPd2fog*lDDR}1Olopp1fkYLY
zgN<xJR--6GiU_y~sV<2nsdh#NhDN#u#=3?^AqM7FrlwX#X4(d(R>lTMhCo!Jnc<tC
zl9^UXj2TEO(anHnLZVDTR*Pm%NJeRHQeI+aPBAPJAt?+Tm8b~;Ng^i`9JK|BMa8M0
z69R3Of>Mj~ON)|IkrO;b11L#C<IJi&Go>WM&dAUV97LdKgbE>Cg{dhcH8VY<#LmbR
zNf%TMpEhV#^9pcvN7x1x#HTMaH!(fcPTw+1-^9@|FgQEPD=6L3$uZs4G1$?`)6vmI
z-#pN<IMh9(EXCcjD$(7t+|$Lk)Ys9`BrrS2&r#dJ5e%Fh9fQFPS4TDF3P)?lK#*of
zN5?=%Cw*-bN0)53>?9+v97p#MurkLq{Uk@vKu4$aKvyTnP*<n)P&cRaY<H)?NH6E|
zba$upbRQSTd~fISd~dLUE>4cVE{^3O9O&X`65#4+;qT()8{*~^7~)z{p5$Ipoa|9y
zkp{=*t{zV1$$l=529d5#j*;#ep+Rmz`CxglfpCS$nuuiUTR1wp2BteXI=VzUmb(Ul
z4Rmz$3~~(g4RTD=cXdqk1bNfL5#+l-R}dSD1Kk|UJ>4Ax9X*^Kv%Q_mT^$|MJzdb%
zK@1FZbapHcbaP5i_H+)+_i=S}bao8%b#Y7&baqNlc5!m_ba%}2b#hGi4RUgHbn^`I
ztOyKqb$2y#%}kDT4fQQ>&v2>;uL#TxZ~_|`TH=x6TM?CM;T%+%Ugnw;SQQkKUFcmI
zX&m6}7aEwCZRTI)myr@0<q_gyQ0nRFmGA52oRJ=t;T7Z-R2Xa!R^k`t?Nn50q95Q2
zHqg*N#2_jn+$|?D+^`}gBF8d3$|$2CF}I{RDcrOy(m2R4B`?J!HKM>g&BIVT&Dh^H
zBQnt=(=*pQ)1=ZbD_`3=+cY>Vryw;lHwtWEVN#x#QEHy4cUFOScy57NW<g<LX>n1a
zSy_INqob#@W1y#tQ(&m8Q(&a4v!ky|5-4mlTwR=;U4wl?UEM;1{4zY#qbky)Tr0r_
z<|lcSyZL$qnFRYeyM=jWCYQNZdAS6+q-P`shgODXMw<ILI~fNA`=xrhrdOndW|yaf
zz3i10<>sE5lAYofYHU&HUsYb2UH~@GKs%r+!z(zu#5W|=G$1G^B{Dp$ASuGlFg3z3
zC?_g6B|kB|peV`Rur$etkoUm`YP;lkg@@;uW=7=}lqTmznWbeH`ezp;Cgv4-=N1;4
zRhASLYM1FJIy#oSI0ia8yMmIKi-n_Qs7ax@TSO!>0X7g-tRkc`yDYanH8IW4Jh8OU
zr@%GGJgFo<GCa^f$lWK{-#^qX&B!~)Ej2H*q9V*SHKfcZx5&&-J3GK2uh0c-V1#~Q
zNNP?&PI#ntPJxA2q>)9EMOjI3ky%!<v3{bFg>P7tM`lrRSPBsY*g&l63f+p!EX|Vi
z%Uw*Wiu5ZZGb_T};GPThD00saC@{)4&e8Ws3XaG!D)y-?NDOo?1{+vh5ELAk=~7yi
z;*?qBRFq_4uJ7ZKACX+5?-Y=f7MAPmWtQmYU0jqNUY?y5Tv$=;6=~{Y=$7c0<Kj|g
z>=+gj5u{%gY*A`fWtt8)Fv}n!*d(dcG$+c`Ag44S$T!(Hs-&tSDLcx!K-;LuC(yYh
zsMOmnI4soMqQuO?FR9o((?q+dB(WqZBF8W)ILN;|(xNChDnC525Nx1%nrmoLW?>>`
zoS{Y+a*T%hM5UP<80$L*ROChIXIHpo7J65N89~a!QV^>!r7F?L&^W2m$k5O=+p@&B
zAUM%EEYQq9%Q+(~Co$jC)7--?)H%&3Ag9=<pt!2QFV8a6+rlMDKg^^o#9O~qKf@$B
z)er2#0At@&W9{Iwbl<RuK<$VC9|N~4%ft+WQiIIWv`|;$q5>z^BJKP_ci(_YXG2pb
zckgs<r-IDFk^=3V#E638<m}YE@MO0<4?j->uz?1Z;TDNO-WElUP6h7Hj$x4oZow%Q
zVL{>EV7C)TI2%Q1Tl(pP4b(4pj55?W^$m(F%!H=4z|_2mP>U+#>|{&-l#*mWS7%of
z$NaGHpa7%1A`91aCx62bBaaZb&?vMt2R0B*3>P=BBuBq2B+bH6-#sNwJH$2IJHH4L
zYvDddxn<!NX?eL27aA0LSC$4BTO@mBm*r#x20EK&1?Ct=r3d*Mn-}C~m}LZ3r0Y9X
znWnj97J2*P&oE#YA}I+h*3K^vif|2ex5%mtcJ|VC3f0aH4=pb9bxSXIaY`w4@rg9a
z3=A=iFxOAcGziNHhLsH&Nk00iP#5Z#JNugHTR3`U`nZLLL3~^oW|rew>|UH0;#-vw
z<ZEG=R}qzOSQr(lAMWNKY+>Y=l$4+4QsL?6mlIl*ot>2xSms$C<Yo+ZVN|Z4V?b_5
zhNG8}bH2Z!VX9$iK~jpRe`t1!p`&4io4<d6OJ+u(TS!@@OIn$ec2!QXg=>DgaaCqw
zk*R)RpmSDoK`=DcgAI&`EX+2}a|!ngG)Ss6Pf09_49|+Nu*{7th$!(iNDK}Rb`0^d
zjC2k5vIq%I&8qTt(N4_u&UdjWD@n32OspvIs|qm9DfYDVFEa-lm}u%(VCEYf>{(Qj
zR1s7V;GI|KYwDY1?3rWfX=$SEWo%|rm}g#LmK_mU5a8@unCj{4lbxPYm>ry1W*k{)
zXqH;2Z&Bjvq3@XiiDm6VBkxknfUq>}@Jtu|>_Gi;7sK$1FyjKVB7H|+sLFDe!jjCQ
zpiIN0lH~F<i%buFv!cjCV`RfX=73#@#jq$Jmm;Uk<RIfv=SsI=*CYdXBR{{aGH+wE
zV&BBFlu$p90;7@uCr6)3^OB@YlMLUi%uu7MEK5_cfn{bP>CTa%Ci*2VWd?=*rQyMq
zp&{i-j`;<ysaZv3`i{;<;bq!p`q}}BA;kg4W%?c!+6G2u`jwV0m1d@)ImY>B=KAH1
zB{@a<rC<ZA^s|hz&9f{G^(!pWic3n3EsO(`Q%k)|UHwZ8j7!ZE%gU4V!wS5^JS<K1
zOZ6>_Ec3J@$|@_uQq01OEi&{A!pbU&yh78$jEgG3272nJIF}V!h6WgAX&V}uSSE)B
zhXk7ERk@@j=9p%t`xz$sSO%4uB&GV56&hrih8buZ<Yh-@nN=A3Ryb#sn41*l1>~C<
zSL&BLnSl*7Ps*yy_6sO9$Vqi_wDb(KOe-uXsthoXi1ab62&>32EXxe^DK#=p4s{GL
zObpKR^)RUlG1Sg-G50JgG0AfatH?CW%TDz(Ov*?F8<?CC>TaBz9h99`YUpK|oaS1f
zZD0&F&a=$lB{ixjB+x6#%(yf%%FD;iJkc~e+}kk6CpFI{+0)XXJTSt^C(EqVqrk(^
z3v8gdNnut_sb5g3myf??iDhJQu7QzxWUireMRHDFR!(4vvum1RNL8d`a%ph3Q-+b7
zpSfpcR(ZB-YEgcumsdfaS*l@PXpxbLK~*T&z@%U!gR&40eMi@{$dC%7sBG7atkAS@
ze;4<}JSVRJ<8Wj1V2|>04=>O3^t`;%60Z{N%rgH7eMdK6R}cMQ#{lg@qrl+&h}_K7
zG_ZjMp`qc%xv9n_#!iJ*9wBbog#pePdG6i?Zpo>kX;mpn5k>xH5mg0AC6N{7RbJld
z1|~rnQSRP3;lAEg$x(&ru3;%<>E@1xer^yKnw0oC>idTKN8}`@CMBh&`e*2;WCdr3
zq*WC9q?;6G1sH^xR_dGOI=ko>IC|)ZCAo!`8R}PBYDcD+=UW;knkAVQWE2;fg?Wct
zf?a6f<LFpX66%qopIW9}<Q7_Ck(U@?T5M1jq915cnHuS2no;Ig7!g=(QskYNW#JkW
z>ERZt52`9Ls~fO^M)1lgt1Kr;KdUq~IY8T}%uT=C$sn`5A}kwGTV<q{SvZ;oYlm8f
zXO|SXhMN?-Bt-<41r%BqB!^Ul7iWPD^b3m$%Pt8^iF7fm^sg)p%#Sqm*EV$ui%Ls0
zDk(|~HwY_A3@k`8GH}lHcX##*%ue*o&o3-2Om_-&GH|R23j;Z}*xxXs%B2WwpnG<r
zaiO7Qp>K*wii?4^v1O`JdP$^bUPexdiAj)GfS-@QX=ss;yS}G$KyFExdu4G*abcAQ
zq=JG~0cZs*l#7rJ_ty?9)AlztE!Q_sw207m^a%EGaSIQEH^2}|Ljwxk^Aghv{qlSw
zAz3dYDJUW*$KT)AvMAZJxHzOJyu>4@JS;NIBRR6LD5#>MBB;p2JwMpb(Jjc$(YY|+
z&CwC;S1b)iu$Pf)J%o}-bJK8r6Z5=07kx(`kQ-Axi+#hQ+#q!rqWM{vk!F?=nV6PX
z8Ihx(3@L5Ga|&GjLrW_B%_@TOos6T5Jwww%G7E$B%booq&5P3$-3n4HiyZwDBYZ<6
zOUxsTA|u=kB3-j1j5AD43Qc^pBg0Gr!?O*_f=nP)fKk3-cv@(Ib3jyOl9OwazN5QK
zmZ?dhQGmBmVP$$+M4GR5L6xI^Qf8)GUQ&>uer1SDQju?fc2Gt|SaN`;c6M^Qxp8Wd
zzqVz#KiJDfX1V!(Df-1;$=-R!KAA<H1X>56Aad6CGziFb3-Hy?^EJyzHZmy5FD>-+
z%mEvik&)^jl<S`t9u$`6<8R{O?vY;N7?7EiZB(A09~PKmTx3+L9cEsdXl|J49c=Dr
zS(s>4>{6Ce;NfUkk`fUVY#44(lJ4c<Yv3CKHZb2Su(F^sz^gRKD8JCs5tK~9c`835
z)H2M#IJn5m+&Hu-*WaMT)6B`VAl$hqEGsC?Ew#uuCEcksq}VqsGN&k8KQEvv4APSd
zweZL>^0IU+i3lxmDm2tLEA}%o&rc0b%}Vq%NUA8Ta5s-|@+fmQGbzl?%}Ncj^eqW5
zDKZZW)-Fl3bS=!W3@yvGjLOL|F-U>rlvLmJpl}nfq7vs!P}(J>sg0igQ@~zEOJKn+
z;Q@XwfySl=NkK(PmR@ESVPVE4<;Kp=hC%wpmB!iSE~(iC1s2}vZpQkK?qQxTuHGey
zA*R9M{+5t13@b@04JmRj^@%Vr&kag-D@zJ9D~d9*3=ek=_45x4&yGw>Og1U3ba6xE
zHyo@CunS8<N(;=x%kxS-JwuX1f{H4G-2yA3vP>Mkos&z-%Uui7T@73e1A{9{BdWrR
zEHZ<OobnATTq{eQ3xg|zg7wWy!YU2j!rY50Odx%|)DowN<Sf4|k3f_3pwwV5Q_CQO
zqAGolpo|KS(oh2n1MMh7-(qvK0AGusY!fd>&w{{EkAk4G&^!a}5QA)=g0L{pqEhel
zC{HsVunV1voqQuA{40#}s*H^C&Gj8UiYh!nX-GS&B(%gbuq-Lj(4fM+(BIG`%P`cn
zz{9i1RlnRZ!r9NvJUA~Zv7{t4Ggmt_vcw|`lCYh93qnj%eT-An@=Q}w$}+Pny>m;;
zEF5zqOv;UNiZh*)3#y{LA|kykBg2AIoqbB3oDBm5Qw>urvQvCA^z$qOe6*8H^U5MJ
zy#v55EKUh8%QeijC^j#3F(``iaxN)KE_M$Lu<&;E_7Bd8@Ci%IbIP*JHZ+e4$}SIb
z_xH`uH4Q5b$g?QT3n&YADNQf)&PcOxtZ*_d2OC&qnPur6m~H6j2CAE*qSDh{eGP-k
zojvmXDw8WrGyR;i$_({AO!ULUgH6M8z*SI|dx4o@p?^_gPC$M@PGy8aluv4=Ss5f@
zr@2MB7FPzknE84aJ7<>|ROXhrSolVIMwO>!1Q~{!7(@hG`Wb{*xaAdCL=;ryWO?~`
zR`^s_R+d<nh9?GPMr3Cv=2iGsc=>zhgI%akIDMg25e8vlg~{nIfrf6W6&A^Ug%#$N
zCHfV{0sbBk1Ct^$^~;^jf+8c`AVqSdVUc!$Sw@;!dYVsoMx}OEs&8gxVo71JL4cvV
zQFftIxkXZLc!s5?M^sRlQK4gDX<=S?wpmDl5!k@&#1xkTqrAXOXM=PnXHVzg;NajY
z-zwkWs#0^;;ws<Za4#>fqRc`ccsT?vjIa`51F@(pj>xhojz}`AC<-%;GP5jn&vUjc
zH8G7UN;M9yNDas>$xAA?$gqqoi86Kz%?vNAh%8Jm^YzGvbbP9^QY*qkQ?g8pN+XR+
z%uBt~%nbcplAOa_g9}pA(=#%IgK|T212W5<4H65Af-}NGA}k%Xqsp`ka`W`dowLIY
z^vw!P3bV?5j38qUMn;)NP9^yT9;IHU1@5IjW|lbxW+fHL!D+_X1{scyg^7-iE>U5Q
zVTs=P?%oAC=oKHL3M?uHdl^(m6yqRZqb-gB@X?m6yxb_iq~ek!|59gXQ$v?vAMYxc
z3Zt-`<OpX-@#PcXYLHc#XI9|sTw-ii>F(zmR%j6(QBrB@6y{&%tzF_*l$TQ$Y#Ehm
zlvtG(niTGCmTHieQ<<3<=4c+2U0NKKlo=9|Q{k3c3K_&G$iwFe98QP%Gq5Dr*(X!m
z%gr&$(9;r9(VMwOA`ctkC_B;8HU>A`T|3kT(vvDGD+#tR3(w0<tW0zXiSi3c3<xsv
zEe^>rcPmQt_s-1pGD`II$S})s&rd8fF{}vl&<;xT(JnFbD+n!4EsZEQ^a%4ZO{_F_
zE`}HwSP@uJkW?P(Vqj8i5b9kS?C6|V=xga$VnM<v8Z^|vv5XqSh2g=*p*aOfW>qOc
zfqp5$M&^FrIVB#Jr9s&x`9{t@5v7LSE^eWP7DcHkJ^`U7Nx|M`Wkum>p+3ghkwIVs
zqr7}0y^Gwv+|zxFEV3;VeUnRrbJ7i+A~OBT-NHk$GzoDBGuS{39pz;aX;tn9A(fV1
zMUFY?Wl5!GB}J9SB}SPgMc(GwS(d4$86_32SrN`b0nP;hMV=uRVJVjB;rY&x!L&@D
zM01P6#4^*0;vy4g{Y=ABqY^KJ;(YT`!!mP!&vLhH%e3^8DmORRD#Ivm18whgkI2Zv
z$|`K79@vH0B(REw`)WrNr8=7!CROD*B?lGxIr$VCBvu9md%Fka_-BVZdP2srLqc6W
z+`>Yt!orOW11gOR{Q`@V-3!vf%rnfAv~yC!ElNs3<z;1QL<UM916&uN5nvahiD7Vy
zQ!I+oEK;hfGW3lMP0F-EC2?V4YN~l~s)<EGVs=uLi&u(KcA~Lmo;%n;|Dp)LOf%z9
zXZ;W#=Th&2szl>ZH{--|<FHbb?DSIC@NlmRgD4NjsNjHHm(0Q<Xp(c(FLx{lVaq^^
z;s~?wl7ghb2(W=J!QpO(DHWbog$7ks<$;xzK^5BRMFrljk>&cv>0vqMzM)25VZl|Q
zWmN{nCH|#8m4>A$uBC>hMQ-lCW)|7b$p&Qsg-NcyiLQ`pG{Y>rGCefkuOh-NG{R3i
z(a*#<Tie`F+uNYTJTcYVLc7o?EGxjzEGxvKBHYQ{H^nV8H6pvL!nYzQtkBdeG_ugr
z6;|qlT?p^$VT2x{+Q1r)l|F9a{;7e5;o6x2`2`+smX457k*E}3=d{Z5z-+(7w6v(o
zz!FP;@8T?&oy1s&uo&z@Ft<3#qR>Ap(b%-qyV%*?FwrZ=(=Rd0(ls%yG@z^^EIZe`
z*w@gf$|=7rC(oih(laHf%+oyBqbe-XprpdHA}l1;EVVo=6Kr6JflElBv9oi5Ux0C-
zM|e(HsF9(0m5*P6QK4B{K}tzdP?fQpxm$9CS7NG(TZwzIU!j3_WpcQ8aI$HDrKeL^
zqGOVKkxyn}k`bgyY#L=;QsR+flx&ewm00DH;}+m-RvA=UmRaN->>QAj2^#c5Es<cw
zHKHd6V}V_WtT@ueG_*LtJ0K@5Oy55@KiMZK#M8(y(cP^mqteyGt;E0BG%O>qI0ZD%
zR9Wa#5^C<^7M@~cS>co%7-Z~L1~$;MxY)I_$ji+;!^OMO*SoMXJIU46Bgrk?PdnAm
zIjhviGto3EJhLj%GQX<A*f7(~F}1|YGR&vgvbZSJOFyl=va%x0+`rVjpd1p0i9SU+
z8Bq}hndxQb{$Y{kl@&QDZaLvu-X2*wS*DH#elDS|k%fl&{#ikZeg)a7c@-g*#@<0?
zo+i0@mH~#&QBm$WiDd;|u4P7fU>EuYWK@Lt64Aj!4jWjYITwWl=37P>MpOls8RjN}
z4Xi9p3W&(}DKscGPY%j4F%2_FtPC!5kMfE%ataR0@$|N|Ec8fo3pKPT0o7#2hCX5X
z21Utb$%&~3*?|VdRqj59iQWaSMZTVprifd<d1z!>l!d>uL187RFB(~88fuytQRrTf
z8t&!o<CYj;nPQNo@913QZWdW$7HOVl77$RCWs+s?otkH2QdpS;FFwI8#HeC%R~ew%
z0;4;I=!r!_26as<(@T9)-3=`&!b3wsB1$ug4T{PuGK;E=Lem{fO&tAAy}i9cBg(wo
z(<{OPio#7x%u9_jON$c2qKXnz+;Y-$12eKyJUqO@Lm}ffk?HA%?%svDMCaOqv=p<9
z<UnJ?0$0z>V&CG5%$%rfAB!B{Bww(Xi##iRQypE>y;Bn{Eh>FeJ>7k?Qcc|SlT0lv
zOHG};BcrkkV3F#P=54I+k!)d-X5k2GNt+kAWn>n4LgPOY(hD$63ovsuEKRB`^Re*H
zGxjKqD9bUevdj*0D>Qb?^|mzeNXv5%uy9NZaSC(utja9%N-7Kwb~nz>$;wQOG6>Cy
z%r>#e4JfJf&awczFgeHB)63DTAUNG8B+REY+@i#@AV0*hq$<hJ+akm>H8I$`GTpJ#
zyUHsl$0szRsKnAe%00xzH7GkUsW2?nBGo*%!YL%gH!R!S4QwDRQgh036AcZ6%`D2y
zGMoy0%kmQo4P0`|b4-&ReKLY7GfiF7igU^xjY~2M1JiOU3Ow?%Ld=8BJ#x*owM!!+
zy#4(RA=PM<e`2n$W0k+9w@apRVO5Eneqm5iW|3D_K}l(Fa712Vie*t|vWt1Tws)z1
zP)><{K!CoZpO>qCxl2_<W>J|zR8m@1mA<8yt3G7h#?b{yxZEW;D8Rze!qBA9P&>;f
zNjo(yNk7LVPv5ktBCO2PJ>1yBLf^vCAUj0gF~BbsVFgIU0<zA*FV(v+SvxB{+rTy3
zr!1g6Cp6z!J3A!B-Oa@?Im;_3r##y=#VtHsJ3ZXjtu)&?I3l1RKdYihzaXq4BFi%|
zFF80RC?cvf-#oGk9EQ13uGyAh&Xy(aCGL^MQ9ii^mcF?;#>wevr5P0wk-;hYMrEd@
zMPZfRC3!*Sf!Q90K6z0E?nb3W*-4d|S!w3QW-gZ5DQ@~v1(4#a(7?<q%ECRw(5EP~
z(#Ji-GP$(SA}rF^+1)ZcKQZ4pGATRB)u19QHN~qW#5*e3vZB&Auh78FFxe?JBBR1J
z&m&9U(aX<2pd_;p?85NGFw;bXQsdH+a9^*|oJ7-7$0#E|)0E;W-=st*|F976kV=z^
zLPz6J$H>CmK!a2RCojujQ{zOx67xb+e~ZBUGHrAJ4E;opAV`UAR0xWIjG~YvOVecY
z)O;uXf|M%#QiISW{gk}KGEj4)%-qj6EZHd2C@Cn%#VaK_JSeg<D8)F?&($v|D8nn%
z&!ogKAhpyR;zGYF(?o+@vr?Z_lTx?b?A(&1Y~!5bstCUdZS&ly;EX6Ivm8f%AKx+$
zb3f;xkYtm>l7O7NkdV|s<1~L$-(uIu%q*|cs9bGVH%O#d1Vv?5d03jIR3=)M<|LQ6
zM`k)@7zCK;dst?A2c?<$mXw*A>RUJ#c;@Ll`X^cx1{*^Yl!c>Nu$R7eqD5E=R0JG`
z`XH6%&Pc+T3h}843@=Fyv-B~{3NnY3hrvD-Md?PV`9>Bc1<4snnTZ8id4UyW!9}iV
zQAy<$VZjy!sUd#O76oQW+F2#;;U>X`M%vCMrA3)$#vUnY5!u<!VdfT~u7L%lCl!XL
zkyKg{2A!9+aI`?5l7*FN(83GE1$&u5Zw{m`EF}}vFST$?&DGa;^!GK>FLyznsDw8q
zzy?BFq)7G<up-bfKdUG?q97{R(W2ZtJF74tD9bI#(z7BAvYLg^fT4c5i@s5yt*s4c
z)f{*=7i94i`tmBsg29|jv?XTXC5WhN%)lmDVJ=F8n1Hmj5M~s3of?ujcwHKvMVl3g
z1-`!c*AC|9VqJGwToROuSXqj7xngk$XgMrwDO^x$8e(xNbQPShua!%Faw%wmsHclv
zX=!GPm9wFtp_z%Xg{y^`ldGYjp`)9Tv6HKlfrX)gtC_i}2{=el^&!I72J9az&%EN2
z#JuEGxS2-8nTezi!%UadqRg_?6t|-MTyUTgUhHQB4kD`*s0aNLb5re1Q_@n+6HN_u
zElrYAbqx(ulXVRY3=DKFOf6Cqlgx|~O-<5l^s#6}xCaz;s0ut?$THW{1(s?+MuO5T
zC|D8Rgvnx0Y!J~P7dJaD8-4IvWYD@~m>&4DMVc^B0)r+tC@3h5T0&CDjt19gaFG-O
zBq<(EU8BK8QV5Wwcr<lUEx5Q48=g}0Qf!sVmF(?!xv=l50$nwqpOgi<dLFtZL%|5V
z)hfu&jyE+gB|j;P*T~cuzW2&8FE78OINHe6M8QBINWsX|6iS;xX>%xT0i`V=w3z{v
z25sXCQZO<DSq!2<MuTXmd1g@a%%J9(LCrIRnr8+z&m3x=In+FJuz9ii&iQ#Ipsh{{
zM&@7>A^XDu64O)l0}_i;^GX!VjKE6ugYrufOHvgK^nFuPG83KhE22S0ni(1?m|Ggf
z>N^+Z7hnj&+R?=dM&@9LBL@=5K1fi4+uY!g(ho{aE{QfYveYv+H#RUZR4_NR&@(f(
zG%&VMFf_K*voJ6<FtAWCH?q_-G%`0ZG>O%B$}dVuEdo2nAXeWcwYWs1BsI6dDl@O7
zC^089FIzXo(nu4&)6FL{FB{nvpzy=)3L_&^Jwpo<0|PS!GfNXab3;=DBXb2KV{@?E
z49yhG4NUcn42%uTh;u~}9#?>354$T&P4!Gn%nS^S6^xAx^el`_4GfJG%uMwx%*_o9
z%oU7{4fTu-jSUPfi3y2h6I0wF0ZKX8-C%C6XJ%#z3J7BZ3q1=nW01`jhOp2vHnh|;
zHZ?RbG$zIkC5E`207|sjonT~Ppl51mW?*EbfaC@vO9MSi6AJ?)O9j##k!)gy+ZCWJ
zgWVN~$S|@n(X+HPH83(miVP!5Q#}(Sa{~h-Vge%B#2lv^z}X+W8;lIh^el}m4Ghgd
znM%*V*x0~G!N|~D&)CcmlsAkljP*>+KxvgYN8k<!Gf-K9!x4rSdKQ+3pd?{rW~gUi
zZfIa=qF`iXq-SDa1{O6p)H5|OA~J{KNfY3L4~HYnO!Q2REJ0}k*%9WZdIpAOmX;O@
zMkF~R#S%|YfJ!gyt}rn-)HAa%H88SJFgG^PGcy2X1O*dIPym@57@H`Vn;7aDSXf$`
znGq8q#TJRUQw8oK)5O$J&(Ofsz|c^^+`vrF%-r0-%viz1)J)IV2pl)&hUR*PW~K(l
zL=_ZixHBoZ#=#yG#)cMpCMG5drj{0Z#+D`qCZIygLeIk7)WFzK!3<P(fXgpp!Xeqj
z0(UszE-p=sO!Z96L6L82YM^IoVrpPwqF`cds%L3vWMF8aU<yjDpe#e28!U0V0e5j}
zYGkZuZe(d-V4`4TVWwwcU}<1vs9<VrqGxDoX=!e(U}R~oXJlz%U_eyGk!)&!+ZDJ=
zOk)#6JquF{15oK;W~66fVQOHgU~FQcXJKq;U}OR=JV2GKAyLV)1b5{HZen0h5GLm4
zdgi8vpxWCA?gkSJ3q3;%V{n0CZVatViHZ(W+^G`WzQN@PGd&X%b5I-@nHuO>8i8s{
z1rt!rm|KFfEvWD?F*GzVG^E%SxJyh!Lqk1t6C+TfFf_B!GqD606NW~HdWNRPpmN*L
z++5Gn)Y8Dvlqgr2;4ZAdZ9D8?VQg-qXKrk1X{lgnZmDN!0=C)M!bH!=zyj<D3rjsJ
z1qGtSbk5JoFA6S5Ois12(RVHe)tI1GSCE~ZzFU4?iH(iEo1uc4DJWA1>AQhiH=tA<
zr0-^|U}g%+W<mOHCJJU?Zw2YQnJSn;8k72NW(sD|W~-Z_0Vr{U8qNA{hNcR}W+3}P
zRs<B~CkLmNMC%8*xao(aR+Pl*yH=FA2ZLI(Ha7b1!63UqP1ztjJEVpo*jz{;LeEdI
zG&Hl&cgxHvNiEWM%SkLrbxBRmPf10bo8ZxTB>Z%d^l{O(9^DsortfFG!@H^}Y`^@{
z6y@iE=YpPTO%YeHR8enb=XF>#HUIPW57J*)*Uh<Y%k0CS#^6yVv&u_i!SdbbYv)$K
zTU}qH@Am!mXY=XL*Z<RVPb#S_*R!}hZMWd@{m*W4h>6(E4f6S<;6DBH=kWXM-o8k)
zedME|&Rgr181u)(s^^+{cd^~BJq!QOJGZ{;>+jdMpYDnB5ua_}tM0|UtUJs2-@{My
zcSJAUt-JXeS4_>%>z^N$MXozO{r^41$vzAYQG2!Ct=_odjJW(UC!@$I7QvM@_iZjL
z4m%@y`RnnYkJEOp%*!w|2#lG|f0_TWL%4o;X1m_B@<Qi3o&{<aZmhPmIMlWnz1;P5
z)h_lQH!GBS7ya$_wG=CGFWf)t+_fK()nZ-ct~N}5A7WUG+P()pzI?!4&FZM(*{N%K
zc_#VTyl@t4n%sN!{V^5?BPZ*-7uJexx10K9^|8yV{(P+6suh2kt9JLyb4n=(a}4*+
z595w1IAe0Va7v!^I?MMGb(>>y!mfV(?YmW`+Co%aVkP5)ysdN0&tH7$<|Shj-KYAn
zS}Xj^<U{^XA5D|vEwk5qxZ}%ijd@y3?%Zq>7pgagpPIkSoMWPn+2;O}GX*DnTEu1&
zduPgKA$Kd)#7|${ZBFLCczMxeh2X-b3HmR}y&70<dDcd)nUHwwl-2VtbN6P}IoGx{
z9hI`Vf3!q!iq7n;!ufY}Wr{D|ymNnc`_)f>|1t+n`h0Bj%R<||d*>d_XHr-5U-s$Z
z?MtFzKcwE4YRS#MCKEi#;c@(5jWua97u>IDFLN;nxq9?^<jJoS8M`J}u9o>GxvW)q
z%llO`&Q05pt>k=ao$jkFyQPOBYnPbzZ}6*MbuBYcBsj&bh*c;g`g)n`M~hhB=c<Q(
z$bX7x36;*8v0dXr%Jbi6{Lby+@h$y3=k1}3ixj7?+U$8!E$8U+9N}pq+n4VWxvH_Y
zIeSjRDT}Send{Yi9S`g|_IiQHWTp?^?8fHXI$tc~j%rDJX~`|!xXo9rDR-&6oVb6o
zp9$x8g`d-}OD8q!)N63Dz3eDWtg-pNTUkuHd(}jPh{GR`-8#$`eRxOshVaK+i<9Lw
z<1XE<-)&QF!Ihe^HIYlu#7Br@hR}qJ#i5mT(|=8o^gCO@61T0*ST3e$MTe{R%%wV~
zrmnekQtP0!y7uX-9BZDg*go;{xpU`^^)>gNThz^<&%mj4@qqKRY(0DaxQ1%W8!FA}
zn=AYSMDM)jc`IMMrQ&FtLR3Nb4RzI;?mx#i9gqL>cg@e!!B+bY$FACBx%TT4qg`1C
zg5_?0P0(uA)SaQo|MoUt(S_aLkIcD!TmJQf=JpGB%inF?aPHgAaCrr_wU1x#tUt~8
z+a$zc!R!m?9G~0m`{TR((3+B@31TTPma?j>TXg2Y{$GI+Uqlvbewd);wq*Cc!bG+W
z3;nk6C?5YdN7#8j^CDr{Z<<T=OqFhx+ZJ%%;}pA+HkIw?ha;igeashb#N<Bh-jcG-
zMw(e<y34liqU*B-Hv24I^s@KZjj)Sfg_NFjlo_Q7?wO`kaqaKxG-HoT>{t0(B~vn*
z#YAFnZ;N^s_Fd`y(QH|c_Kvl0KimnFZ0>H1SiqcpXY%5pFGc=ljv0%h4||?!;CyBB
zJ}4@`_Cbs7`+pwNriCXv7I4Wn{?q>a(Jra;n=bPt_ESP9N^M@Pw&4v>mb$)Z?g@n$
z>-KG~PnPE2`VsEzH?3*a@zPz#-Y(PX|DwkEl-1K+m-WdKC)v6Fb3Zs3t+eUi{z0HK
z?WO+QH`fo&sPZh!PTT&va)!x1ODCx%&vjo2yikl`_Sbv1$G%zR>DEJUrri9cZQ<=C
zd(6zaM`zX*xo0|=%q5%4EE|}=<r}qsV<?yv;&bBd`P$lm<bsnj(*@a!Lbd!4XMFtR
zdbiL+=wYs0{C}mb7v~79Snb-^_c?F=g9(+TMYD<%nJ-0llqKGXt@>#p?x9`l=6prl
z($Xbo<KnlL@2fV*t1z472!`%C@FL~Fr@*7{3*Sn*X>7deD9f8T_eN%i^P28TZ!X>w
zOfJtmBEL`Zx4HQ9L0Q+cggGngEn8P?W4@p`W7dVBL$NZ<D__cFRy)d-r1r4C*z)$&
zlAI_HABP|z@gUA4f=`s}ql{h~KHfIz(NjSou{OQ176~1h^MB8X?OS|*&abv-c5g4v
zzBM&eMme#=Ds55tPT$2>>Sh?}e*DJL&VIV)f|c8;tI1*0b|))_n5R~6$UUE#JX>B_
zZAN}ahQ*?{t<q;wyZ`N&f4X+BNUhAK4=LiYGR_(@z9!qmA1$2p>B5o1n%tjTC!gpl
zZ2V@nGL`pW<=nILq<*fRb?wKx3gsia4fh&M%-DKCFN8U2rHb)9xl^Gt=k{Njv}ayy
zzu$bhEYF6dUgv%%_j|tcqb>Fp&u9v7IAG!4<gw(-&d7CPPk$Be+!5Qae&t-v#>i)y
zET>GOH*T;vrv74q%p@Ck^*;B52e(_jyM54^y?ABg-#?}9`&n|c>bKrHf9>C{sUJ+P
z8AY^h3=^HsuWB2mmiYZoVOZXya-Z0vYv$Yw>;CO&QrqP7p^Kes$Awc%lBcb{U1U0s
zL()P2Xz5P_S>bds`BkZ(i#4W|@BExF|4>U*_50fkFCO1?;Nae4S{>%s&8PBM@^;Dg
z%KVjIBgXc{e{y8LwNFNGrpd3@=hS-lS7q8USY-q;Nj~}d;Ece6D?F?A_D)$We%Y<%
z{a4pKoxUv#W$!<?+3zTO$K>PQS$cVz4EGfEUT4LfUAFq>aT`A2k~((TyL_1+Yxk!f
zGgMy@r11IW@63Z6UKC03-b|=DYWVJZPpkQtm&Qk$H!|EWoOC01fe4pio0H<10*xrM
zSW){0bC^PJ$$BY$-rtfTTq-%i;HlEQ(vQy<zA;)LYqQnY>-zeBqqz<mHl2sJwT8R8
z^014A9DTMh=E2S6AW$W(!t}#Hj6=c7T0evLq^^P9ha~;}fIo8gm={{F<_|S3>3SsN
zxbU;<-G09l%2RjEYpl6qv*NyK{{iQw(=wkDlvsE1MqYNSvY5Edls8dEXtVwPHwM;I
za*w?+Ki#Lp7IJ-t#hdBf+vmn+=vDpyCNBGM>bm>A3Y^ZycAP!w5*HH;H+s%-6qz(D
z)8zkMo=fYEShkw(2vcrc^Y#Dblgz4m&6|}EEc*0Um#sfx!uvUWE!xiWqgEfim|4uu
zrhFsWRsKk`){ahx)4kQf?agKx{Ib=??TY_?_RMs?q@ixPF7!p&uKGs?>sGFNEPPzi
z-`S`r>y?y@$R1DEAMJ_Z^0IDI4j*W_zOZw~(#9>}nePqe8TCjs7cvN)cGz2d_WR|Z
zM-rD<svj=PkzhP(u!HmHk&g+zf39BUI2kr`PTdLj<^IY{pUf@ZRw>GL?fZ5`v-a7I
zDG!d=CkVEh94Y9IWZ&D=A%1C&=8<xDhj#T_6>OcpJtcQeUP)NhXx5W>xKLpE!5z;u
z4p#@uSF{DyKi~9tW&bLd+Z)xI-Lf2Ax9!ua``MD#`>!M0>Xnn%%{-}4_JvA^{0-*y
zU$qj9S@TujbZ79}z0)2Y6n4(;2)iy)Iq%>MT_#o0%`<M7@zyHY{NUc+{P4n>tB$JC
z-U7U?E@%IL7U^)SlGJ_k-??#%puDI;?t=Y$86v~G-&uy7cV=ptzsx};@X&M(ffD_Q
zRhcO+jT2ZJFTFK#sDI7l6MX#o|EGJS${(ApGngf!aiLw~jy!8yWBI|I#XZ{^ax6Q0
zu8FA})l6V#bq$PDsy05kbwT;*%}*phvAFFwKD=<+>ZxU^yMJ!=F4BAcX>Rd8edjxK
z9{-Q$VlrH2kSZ#*@JUdeAm1W`?-R^YJsHv-@d+JLK2|naz^B;0cAG?{J@?1R3(Wy_
zT)d3gH3GZ~vt@5;A8gun?XTq8On)V&u4z(w`(*?t-n^l;c%O=3AXn4G8$X^4O)S0r
zO-;$GFzL=OZlQ_Q$zM2KQf7Dl7MS?;z&$l3kCjF5K6i8kX-o>4xwoSuNa|g%>t8vS
zl)GC>l|Eg4@9AQ9^C`QaV4`8==HHbb*H6rAd9U<qjmwvpy49zS-d?i$_J`Ud2c1H`
zWwgBOedhD}-iGGKkDu%F_y3#R!?J8g!ufd*<kQ*`*Uy`0XYW~ZDo$O-%(HC5g7?v7
zWnW%Bb#!{Rss5r~r++)=O7}Gl52n7+VXR)TT(C|1-yW}^Z<n5@yBuiYSDv!^jFs@b
zy}!N}CTVuEce<^(X}rdsn=SI&mlvr{j~iv@$k^JeK33ql!N2@Ge<o|!ltjjRR&VTo
z|9fFFW4@t`<^$Q71>J$w52H?RF3^^5m*%myvweABaq<Gg2}vsPC5CS{YZ{C0|2T!8
zyMnju&EtZ{3!JlO-g12B_GHntE}tuly!9ow^{EsTiu>1Ze401;oACF?Y}0qW&vQI_
zVd7HrHCdA;iZEE6e#!5bYULPgmZS5Mb!n1Y_KxJ!SGSye{UOZof^k)M&lhV;qm>#f
zZ}jfBk~28ieBb?L-TqVVjIw=4+WHxfui^e?5*m2*Xx6Luj8D(qs5CwQI=gDo-Ls{a
zrx{l%Nv~g3=Jdar_s*din(v|(cr(lhUmSVQBvC!xUan1;S6ggzs@;0A;{0Pb&Fj<h
zHJlb~ko@ZU>uiE}*BznYjIN&z720>#PMc=M?yHphSAUk%_FI<PNgef4?7}S8v#0!+
zJt@4@Qdd~<W;;t*^tAKQznGpLo>n>c{Hbkg_CD>3)qAy}b933F%dP+4sR?L?X2wmo
z;}dD%lGl5|+`5>{Pw7~YmtoIW$*Vqfe9jpsYu|CdirV%0f5!ITwHxjktg`kLeKl9y
zYu#>%xRj2j<DPc0Q++Gco4uU`Rr5a2KW%9nP`z`-t4$fpuRm0N6s({2aJHLVc_q_<
zWmc~kmz{AA@|>xn%2ANY^`!X1wQEJvf$o3ToV%SRxTz)LynfQJRX<%_HCo?aJ*qYT
zQZ*OvTiw|cY>%(=nt%Pu!R_2!H`dH*zcVYK@!s99YwQG0eQOM;o71yp*}eC%jgMNw
zbu0U}Z&<!|wWXFtjpJdB*I9*v+dM1+4yW#$_HLV3&Dlj996MFLuE#Ifus!0+l;@Z7
zmsh%!7N}3*7eD><%HxxQe5bs3aa0#LeYPm6JG$<Zn$CvigiG%4ZqGcRu=#g`N3Zd{
z#g8sKJUM@$L~6%JW|#N7EmCV^GN0{q^k<mq!jU|cJAK0y>HhDtvS!tNTa`8Afysy6
z<&n;RZgQ~lGdx_OYg=#6*QO;faqf1er$I-(@1DDnIAiIe_iFjV^L^hoKfdTtDVD~}
zw{i8N`3XChZrs0PNxjKZrx?#uUm2FFZ{>IRd#XqG^`}K#4@ANg?>)cL#}j(ET>atP
zPm4n%PTvbnlv%s5MlL7tjST;FXRAwrd>Rp%OVjn=>}O8$SaZrj;z4*p0K<7%HkJow
zE0-3TtmF*3R`%)H?#Xj|?j+?bbxWErCB2$S{`;BMh;RDwrMr$O{y5RdQ0P)#>vB+e
zNzc@2FSeR*a=Bj{Y~fV#EB9o`u2c69-JKxOY}Ck8%JA#*fx?y}9?Lm-E-`q_V{m<Y
z<gCQY7rj$f7(NQ$-m}Nwn)689?#794{^q!U*crlL@lIgD*#ObR+4lsdTTR_m{7PQB
z%gIu<ef^!a3eEFnqz<z!bl?7WTj7(lJQAmjSSH*)A#0yE<HeS4wSD`Sw&%#K+W(G=
zy+m|lPzsa#qpQ1qJbY<8FVjo^fJcqeWX2<cO)|!8!8`r+v(74A;y;vNp?tdSr>Jyb
zfS&Q|7oSTrHZi{FYri*PzCg8%;FEd!8`hVzcK+g78NfJaRY>mfGg1a-hMU=z+Zr?<
zoSr%TZuIl)UrNHU%<r|nyyLLFY2dv=&T006=-Z{{QAg*_&d3m$mT-Q3{f!ObOY<@c
ztSp|D{qQ`Q#-YeGX<<jpo`bh$Mb0$Y$X{ssCNR25hv!DCakIklA02T!Z|bCd(XBpq
zU+qh*lS<m7iA@y`FY&HmQWAEb_2rI~Nurao@2V@s>z1upU3^|L)$E$%)`ydmm!}%u
z>sE@Ge)Qw-UoT#0NESZ6;drO&`2#lw-uLX^r<zZg^6=4~v(2LOZXLJmOPi{>Zz0=x
zac%#Zy{U7fUMut1=~ln{blg$o;oMUp{*qR=a$kP(wA4R!wmBjFO>F($z-e3s54axR
zbn+;8>LfH@j&Ji0)t_7!-KWS$e&AksVeZEM7d{3&Exaxb8T*%(JbS3S<!n~m7L|~X
zK0MPrc>X?)J+?7w!?F|0E1w*j<FHfk=mK{awZbn~muRVdnZQ;zNpR+#6|<h2?B^>v
zR#hr=^27G4yKMuMj?XwzwRhcn^+^ns{hI!B*C;P{Z99~3HYsYN>dZFP_pdH_@9&Yg
zBGOVTGmW!MWU6k!dn3z`WQ8-ip=&hsCY`JCIe6;9dC^C2l%Ie2rY|QUxpISzi|`RC
zZn4G<u@e_8IKPbf5req~Z{n4E2N>@POV!-BuoVm7XMS+!vZ=_S18bM|TAV8D`2F0i
z*?ViJvvi>!dx475%cS{AqFWu8P3by&Rd}ZE6G7%^E_0K;3%B0pxi*VM>Q#Qihx_d|
zy%{TlndiLAI~CMmH}Rd(OzGuZ4{qO@;<~0*?b7a^DO{f7C6nwgO;^^A&o@cV+tOj6
zdWUn>6=Qw*76z&GQ0XsHcM9Ja>ECjdoo8a@`}TUNm4m<uvDNQ3H#w|c7V3SWJ$Qm~
zcflXuYM$j!7#|;DH8bTi@dz~C!MyVL+rUi~Cl~L%w=|~TB<ZQs?h6`a&A0MiXWa{7
z-D|Lyg=wpEVD40hCanj~KWCU#Xo^<9xM{xOalytIzm-8NrWb_8U8*~&cY4v+EK#$~
zp8p!}MXg^T^L72_fNTHi<3u#p`<=VQqkMR4+T(Q(D)>1(9J!h{A8J$RV3`x}<B7$=
zK7aqVD6b%{#}g_p7H(R2j_ZEV>h=<rt6E8CYh?14WW8o*o3%)GLEA4u@nheWeR3sV
zJa~DMVQEua_!CF{Z83S5{<ZagpYrS3Q-^7dHZK*t4+Ohdt=O%}EOs#MY6;f`5$;zt
zrvkEL)-B_`r7}+@Oz2BNTf5vpflWRUnKze68}*q?kTturXqEGB*`L4CpI^0Ezy2lX
z-e%M5zR~Aicy3(1YHrK-eXlRc&pLfM>#4ZMoga@C|88Crac0`jJ+IvAtzL-b@6s%O
z9-wq>#<6qDHr;hT$rxr>V&8js!C9xB-YiaEmoiP`pS*n<S47VN<0I`Kl8;^Bnf=7%
zrr^Cb&3jGQY;^O(N^i=y^9d}F&fF!fy)q~L|Ml%N((iBC`R}$s!<D5crt02hTDU~Z
zPxa`(O-om`Dm1>ePu_IyfrDV2M9aQoe2?UKa|7=6&Q`iMhb`rU+j6$}^q;Pl`(AS0
zPj1VawLO)|_Edh-B%_{`Mst%%Ti<r{EK@5DJhVu%;c}py^T+Q~jxSEiRW+P-iG8Xc
zmv_Ud9WIRfd}m*;Yvrj~wtdaqfY=K<g0^}~AH+^;S?Kb=|7+Im!pA$B8sxq!&KEG?
zXG~*$yX^hl$u^Ob5;Zzl6oVeH=Oz?PSMD^^KQ*CekNxZX59&)^efd(*c1JXP)4}O8
z)4rE{w=8`Xvh{Vb?=tB*Rnz{vEOJqJ(0a7^?n%y7yRvrXJ>7Xu-6*8sa%iOa{hYE8
z{hG~J%`2ieRepK?>s`Ep;fkN@BqJ{UH~o2ut8u%v(1wjmK1}}{cjVTg-qP6bleXV{
z=D+ZRc&p3Vd6hoL1>&QezlvWAuxnXYCcUssBjNNUHq$5N-QT}{U6$FXJ!@)aTeRRN
zyB@_k&0f9JF6Ssc`u*$hm&bdi)?9e&aP*U*;C-ccDraARtJ*hL??vMR+wY}0k7`Tr
zY~3^IX72m~gXc%>(r4$+-rIAFIYjWAt%K;(EpucZS6Q?^*%oKII(OdGsw0bT<lGB1
zObS`nHQ}Xq#Ip~Jl@A3tJK3r6T=sTY`>$p}@uaJnD~e4Pe|ax@>qA+4R*u;A=PO*#
zPdfYmEaUIcx|f?03&IY+$eBIA)6RAC!D{KF3hy^Xo6b^7-moCu(bK9)?h9jn=}sd>
z+m6CsgRLPGEY#+#P&wJLG-_S?XM3)HP3O}iw-+xv)pEm9M|kGn?{B}voKCxvdC0Z@
z`^@F@O=oH@UwyS|_ItM1$97Ho-yya#(`M<L6>JYDoixbHnKkoWPuir^`rP)-M$=UE
zTLh#p$u+z_x-Ocp`f{MV(22Se|N6`YUY!i~N&oHBImzc<pu5u=hg-UNpIxrYGWI`Q
zrzN_4#><)KjQro9zdC&>|CKYbiA@m<^Vaeh*Ec_@*y4WwWJu<$pV!`mO%h+3=6C7m
z2D=?Gg|iQ?Tl#8_ckGF|$*T|B*}n@jw+uK}xO|P%obIQK3LGt>%L6?ljitLi=ju&W
zvR4ZB)Oy)Iaq2FIk|x$VcH=l%D=w`Y>n=&K%N<Lbd)Z9(^TB1inzaO`+<Uf2ldEe-
z((0_V&v%yZKBdd&y7}dT$+7x39`*#BDM)1(IJ@YCKg-#Y=zr%`tutn)tdnS%X8Zh@
z#yrK%c_|D1#UGgLQL%op==02i#1zj7=avX~pWU`8?A=wL`bU=-4Yn~qy`JscxLZlD
z-6!Znl1S;AJ0(Z@6_S$wGJlz3^}yXEN&444E*Vo@-CNsEyU(qiHgUDt<=Ol@8@}H$
zw|MgH@~-^+Wo319p6*jNn7VD<>gg4SU%766cr-^>QzdMw*p)Y8As@Re+5I0$c<-|^
zdaQN+`Q?(r-81vq<}lvZ@|yeQ(ng2lKEL0bSLv0|-_CvfUDx!2Roe}tGCzl!9lOme
zy?A9>pY^5k7gh>?OeRb|G&}9gsy)%ZO!};>Cj->Y`@Y)sI{k~2vQyZyZ>Imz&Z^As
zb0ZDIjy#P?+f<qU(4)+#=MKBV+$$|l0&4HCE!#Lr_?L}?r13xd`j&HU_mcA5gDcBe
z&GjZ7Sa*H*)tq3PTfb(pKUe&@e&xNbuT%dytT3}?y5P#xqEN8l&M!WJno|!pPITXq
zx9M0PyKAPm=c(nJ7j)(A39FLNzTeAjcfFda_d{o%;&GwiN`u53xBph&dmD9U`_e57
zKg?Zk_W8T~HkZ9YduIf1+0f*EuFLh*=>l%mjqjGsxY76S<zbWeu7>TCoVCKv{w_ZF
zo2gNpdD*5FcaASV{XW%gsUAzx$$JfgE_r7RHa(Zi(HB^Iwy<@<N!In=jV1A~J&&t}
zdpTq;=g&GmL+OTGulT02Uz@n@{oMGMdBqmaY0p_!y}r{{up#j$<3z2Q`wIHa<wf2t
z{>}Y8qj-s=+ZvH|D#zRUzUWqOS}QAm(`?!&eaHWW+iy(hUsHNTeYMTIZ>tyFoMrYp
zVC9QnL07*rR+^ccC!CwccP(mH$c>(r2O>iL-Fw-(ulbVtj6K{F|JbhjI`fD5#ommQ
zt97>V27WdxUvz$ks)55>@8*xMxX%h{-rp3~z0djdf$u$%@ta-E8-AoNbo*s}tNnpz
zT!6sk)Xljs6r0ljED3T7sNMX$;FU9DijnD;H3zR>&Dr;}!|hzt1N%kue|@Sc?&JD?
zRV3+AicG+MMbYk`e}1mCU<kDOI^$&PyQg_;FHBmLJL{jzs_pYm6_~XP-U?d&Y3~Jj
z^=temg-(Z0e_Z)jH1ktRx?tqB$+xRFKX-N7_xg5UdxEU@^gGLhL|=SA?;-U@tSEi*
z0sX6|ugip7dLEsqQ#McX@~$&e@+T?p$p4%!SCX7?@SDz;RP$%8hJP2;B)1$jpIO%{
z*>Fl~?(2Ig-?uL5WXV|~P&)BPMDwD18;W13L~X9z9$he}RfDG?%jow>ffjMgHFsYg
z`?MqRHkat!<-9ki-0*l%b0>HEBb(d=*C}>c%_&)?VI4VKrCLwEz4o}%y!N8nuKoW^
z7P&k*YcS<UY5zIJf2WppGJZdB?#9X4Pb0rRx%r~|##vU;)Y!^04I5dWYmNt4CVii@
zl1ngthvn*j`<{ruyTPA#>bS){|C5u>cHDS>NBG~Vg7puVUDa2PlfU;*cWV#t#`mWh
zy<&>gnigDtchoLs!~bOx$1P{;HM|r(^JFK7?zZ$l)90SEnZ2W6W~#}&Ro``gSwz09
zFXqbsWpz1HWM*bnzgK0L&8lLRo=?4x0`}Jyf4jbXwn62us-k$=J$1i6`S|~9y#2o;
zy54Dnn!Z~8|HW#?Jm=NZPXzO>Uf!s@Wy{G=XB=`ir%#)BG=XKwY#p~>uI|jKXD9Ff
za#~^MBI6%L<}0h;i(l-lG`{h?V!@gN;lJlDP<vffa?fUyMDL9d{{C>bw&TvPw<H$q
z`Lj=APy560)7Ew$pPZGn$`LrcRPF9!9cHOgr%4OlIh?l5bqV|b?4<qvvx^+U&mTNs
zz|L@M^}2_SZ*F_-id*#HwCtr0F7rt1P3~?NE3(f8xyH1+ywY-F3^fzr`g23JOD{T5
z{>$Ha?ynCCAD?$zG|u*u%>=(4)!*OW?pyr+X^GepeXg^u?E$+sCwsA%FVOeZJF_%M
zD{bbDEuX)>`Pi{+fm(3K-Am!@YXXix;L?r>-Td<HvsZs)o|$>qyB5l5cX)Q#HQ9tJ
zO4)77b<aJ$_<Q)&qh5*J9c$Ob`Cd2vys~KV#TTu*HVS_^E}izD<h14Vz1H1c#}znZ
zM7=KT%SsD>-p_w$_0AFt%||T-tUK@VFP^>l>VoV8=6q>;q*6sLUGqo|o%}BF@XL%?
zW*&tV5^DvGj#}<`C-If-kg+CLbqUY(J!ihL_p;Ajvfx?%;<tr*&$+K%;b>bNx?gTh
z(;?jp7vr~1-(9~xp6~mu!y*0s6*4x?=BrOw9DZPH^&@H1$~n%v1?B7yYh~neZBy8M
z>N<0lUpr%VRk8T2klrGvIU%)NzNyDNO<I2ixnJmPGj6Ck#rROsZQ>s0@E!SHUw=F*
zce&J3UGU%=*9Q*veb3G78=4QUQa;05@S*zs*V_i-?>RmeE}8N#>CC|eKbKga+1ucL
z;@7ryQKu$1&DY~$n6<WB`{(-%?xf%aQ(p>%f657&uHYN*A>4Z|TDpCUr}n|WYko{#
z{MKVr<@TqXB8zUaUE3GNcfoaqgkr4{S5)N%rd?CR7<*To<Jhx`&-LrPuDCfTL>{kP
z!Q=M)$KjR58;)H}b$jlxIcc_0oa4tZsq4E}^=NMFdBMHoox+qYSv;wGtf$;l|9&7M
zi*?G<7iwD@EmnV)J##YR5Vz%ly=_5#7yo<<VA8wzyQ-w?^2C;$ubCxXLLMg$UwR+R
znxQ!7cg7|*wu67ZJzJ*OdoSQbwb!oZhF{(io$u7nHa_ss64ec2`VgAhuN<$nVznpN
z^tkBqRj&@Od@#W_X^nbF@05qXAH2Aw(h<m#pkMUBL8r>Q*Ke7l!^zG`e6NBWRi;lo
zn!&RD@QH$}A3fq+ciz{1<Lff>YIRfHf*oyjCodj2;P%Gcd6K}fhYLTS_;BHY$#Qph
z9p%HyV#*iiudwJm*bvcvu<LwO=N>+;i0dA19M$@Qe0y2WwzU0W&5ED9xb=GIbIl`u
z5(bXjgso(5aUMRIq#oftckYCP_xvR6w+J6PqW+fU$J+~jE8@y}KU!`Q4iNkIeUot9
z{7u5Mrak<BX8LJAX+x1V`GxBzyt4^v&5@6vuIOMLq?pmQLLf&VHCn~NqxSc|^d$9U
zwaJo~barv4==Gg{U%W5Be(nVMtDO&SKYJ9R7V;%~<_05amo0|%ORN`K=_T%!n#j2}
z?2Wqc@2#x0$*+QS=0_^aSt>Z@h;wH0>j<?muR7$j(D_;0B-<qRACe~NFMqDtD)H#}
zj`MGhCQa%}6)C)-D1D3X{x^M|^hj|Y<CyZzWri}nTR!`8->kS<cXMV6PkRsVv}fLp
zvmS8IzENWH<-^9n|Cu>uub<g%)T}YyX#b;h#^1~de|x!pUSHHJ8L;2zMgE;))BN?<
zY+oIp-L_)>?T02Is>c(0tZ&-u-1NNR&$mW-;;VIkb5cXCCx&V!yh{Eu<+Vg}DAyf3
z!*yQV*~dA#xZXTH`(<umW2Aoa{9lE?6~4Y+d8I#@=hgF=lB=mazYXhl-g{TT<+>pF
z{DlvSt&0R0{;i8~SF2wxF{wbUbmMf#TaM4%*KIT0e>x<<$i7eHrH|2e>Ej=?k{vjf
zJ(lM363@+lc7OjKJNv)Snl^p9`@ib(wOoc`{{HvBjF@DupSb$|#J%Tt|HZ5mz8mvQ
zZAQ0A1ZVTwBlo8M`?#{>;xxUp#z%Kvn9B3<dF7i>uBXNp--JWc-*ia7;MtV?d)4FQ
z4;pKIm$+H@mmhj^C?MrI%Q@qUSs}C5pWV}>xG*;MIz!2k;0N-Tx>r|K24+6^RX%U~
zilrIP)W7cOV$9Fj@1l8g^|@JHTO#ItP8A5*7%?yYQ?rcR6{mlTCMEp;7A<uAtE+3v
z>1V#Ib1ytvrnB!^OM6J7!g}Rdv9<{d-3?gP`z~F5efD6Y*Kf7(>#=pae+KG@t!8WP
ze)eUT-QSb-i6$MBOZI!sJov;!ul!KL{ypAPN(;{(z9h+MnNh#h@jyV+oSz3)F4*Sw
za`CgMZ0Ym^jT0tss$$~f*w4!LE4+b`!6SK-C>JkRYF<ilNl|KIE-!3pzd2~-5@cBr
zc)@ycw2?V@;gW)pIe4j(f|0oeXcdxzkvV7`agc(M1$c3hf{_JiaTthi1d+D@uTWAj
zvH-2>1c`%;2GLOSETHCDK+Us&nr8_$&k|~$CDc4isCkx9^DLp}SwhXTgqmjwHO~@a
zp0NSMJYxfhd7$OQpsfnV1`zX%4It(j8$ir6Hh`FCYydIO*Z^Xlu>sUPL#TO%Q1c8S
z?lU%onr8?#&k$;!A=ErWsCkA^^9-Tp89~i6f|>`}kDy>|1U1hHYMv3)JR_)iMo{yN
zpynAt%`=9YXACvZ80tP_sCmXv^NgY98AHu8hMH##HP0Aoo(b4Iq^%UjCSVh3wUxry
z1nh9+wQ3+2LJ}qVRth5nb3Jo&OVEOSq;<hYh8B88pcRiM3Z$(IPR6$c6BIt!U14Zx
ztY>5fUKnm>WTa<lX<=Yuu3%_sp=V-YWMHUZW^AlyVqs=rMAQy~6g<m7L2-lK4aUZ1
zdgi8PpzRY#Az^G{u4iOoVqj=VVo0P|;$EK&&iU9~VPXbaU}<h(WUOFjY@%mrW@uoh
zU}9;eXJ%w+X>OumW&+ypVQFAY)T&&3i^ajk4t7VF8XAK4DHt0mAVr6%p_!hUi4kZs
z1!?htXR$cA%){;ob5lJFQ&R&2&?<FvJ!2D4Isk3)F*61&R5md)gD#v#UkwYpvI?}3
zN8i!LMn5#jQv-TgRANy?W|<!7uBgPMVtqqH12a7%6LZi?S&%A}^_>==Jc`|AhL&b}
zMxY%Hh6*MoW_rdZ#-NqsMwaG!28Je}Rk9|grg|2Jh6ctMOLg%%E~P>*B|j7FIzt0J
zkaqo`)H2`vlz@!NVm%8ZJri)|!gML9T*B^Bq%br#)iW_L1g*0-Gyv^40I%#dF)`7z
zFtfz6JBTI@1r?mw9cpA?2;M3MifscUJySzVOAAZzI(S%+8XD?ZT9_MP6aXYT6cm<0
zsbwyD7RGu8CME_(*drfQv}1QEB1nxb4fRaTEewo}6_A4z6uKs621Xc*#cAVG+(o;g
zg@vB6v55g_wKHgUl)0sWp@NaAk)DAmWNVnEft~?q-Ma-vS;#`q(AW&LZ45JE;wkWr
zLHWiElv#|;EcMKcEkG&L$i!UF&<LD`jLj{f`&CGB9F{Buk8ndhV<Q95eho}_;;s}x
zVQ6M<Vqj>fU~FokXJ%<;0NTf7X`%<(?`B}6U~FcgXJ}?(V2rV)i-hPlurSj%G_x=;
z#GV*I?Fj6N(a0RWe+N`inVXt`_bVVuB4bl?JtHF{ESm;MaGs%ou|7N)O)Vk$2DCQ~
zBP791PwY-b$~TCL7PP0q(7@8bz*523#7xh~$b@<s9KS<BO(g6N1#RmzH8L?UG*>V-
z0+r*SLISxcGB!5VGXgbBs8$x4TId;owtj%xEtp}7yCOmgQ$rIy3v(k-KpGkw!FG=r
z8=2@CgLZRZG#1E?eY`HkT@e`?n(7%?n1grzSsLkC8XJLHoJOXm;H`0n#tOy;MtUHZ
zT4HQ@BG0KlsU;<Ph6bR<8>k(tsUM6Puz0E?Lt{N?x-_yd)U&iS1m`PrGd&9n3k4%f
zLp>AF&MArtPD3L-V`J<!I=E+sJ#`vd8t55;HaQz97?~UBSz3a33>ldk>sf;KJDY>L
zlX@nmmX?+z)jt>wBT$)aWP&x=@YFa)X5a?9fsuld8K`oxv;+m0sga(gfw_U9v4WAA
zrJkvwg@FO34I^lA1de43P~X84Ysn7o(&7q8P~J8NWpg7FP+bEqg;1Prp=WAtMq=9t
zJs?3XX#?!l4!EC9*m1_73I<$Z8<|?_nVJ}YGC8QG1hqX3DN2F{=6c4a7Fg?UaOWR~
z<4i#tjLkre2_w*+Q43HD1C&iH%t1Tu6^x9{^vsOS3=GYwRdrh!f*LBO2H46+$nXRX
zmx6ZIni_$(I2wYg7jpvxQw1Y4(6)R_u&a$s^~@|y3^4aNl2Gax7?|rjxfvLknORsE
zfjWKYB@JZc1iKSKTcRxu%|N@g4K0lIj7>}pKmm)W!3`~q^ehaGvFrsU#fcUc`UXa3
zCc2i!7KZwk`j+|zhS;JVGPZ-=rHIPL&>Xal+ZYsphGw90-O|$1Ou^8?P|w2L5X<Iv
znm819T>~1tFgF74bvHCK)H4C?dNx6>zzxj}pp_+c5-7M7GB*G>w6K(zkO4A+fof`?
zXJTdyDkTk#jP(pa&0r%1LsLsVOJhT-wciLj6?ezS$k0g7$iN8H6b5y}O+nkn4N-#C
z#6r)~!V=4tei9M@YFpD-&(zced#=Y_3n3*`BMUuK&~{$r4w|8{Ik-Z{JdJ`D&cxjX
zLJm(ub3IcFLvX>4l=F?u^$biv+r+7pOkMO$P4o;+%(2z#kU?64X%uvFfUza0*M`*N
zH8eB>wX`V9_^9!Y$DMdOL&oNM=Ad&OEEOz4#kvKgwFw`UF*Gm*pKxG+al!%d5pQH{
zV6JayX=Y(=h&33&W7~v+(E`+av;<W}hK9y^W}w2|T*1;r&(I81&66M51RaOF(_?6C
zqGx7e2Fl###(L(U#;q~v;37Q(OYq<psEuW0YG6P~M*`f-wJ<a{!5(tByE(=dmY{;g
z(o(_H&`8hFz|7LpRKe81RL|G|RCOzu8i594KnLHDA9jXd*O?od8e{9&Lgps0$E%64
zk)Dx}xq*>_sevIlff-vWn1Tu!10w?v)6hWA%-Gn#h?1~F${wH*5<N>JtkpMo>IAzp
zjV(=}1EvZlpgshstF2&aXsKsz25NDbSb|#orUoSS8qkJY3_z_617j0i6AKGdeG^lC
zGkpUC(76y84I=Q=4q<niTk07ZnHm_IgJav!(g4(w104@xW@&6-M5Ugho}n42`EQ6l
z-f>qmCT13Tre@#{1c+&50ct#%g1S9smY~5b#Mu@Uq)McC2N&Na7KX;yni$}@F&qJE
zY@ugiY79D?%ES~lkZx>dqGw=X1a>D`Bk5>SPqaI654C|#W-&J~2RR98WYq+8-~@Q)
zN5O=wkyW$~nSp_so`IPO_Ed?xZZR=3)-yB(Pf!`d$5Ks=E%Z#xEDcOe6^zLmOGOJr
zNd7S}(KRzRkI*+aG}JfJH#fstT7u_1vB$TGfu){_u^Fg(F-8ong7UYCfdy#9k}4ys
zMrQiO$(gBn$*FpVhQ>z523X4@@RTeLXM&n(M#iAoB&3m5r2IpjkyT?0{k+7I(xOxY
zLrY7nSsXlFjNOgKh^&J&ylQL#I#LbP|E0?4ssRyB#NF93H8#|<Gy%;ADj-c@f`ie}
z2y~1OHO5s9Obzu748RG~%uwG5bb^(snJKmr7h~{bJK@ko46K@%80x`>Td6UyN{U-?
zcXmKW-dKYA;^qp*h@n+e0|Px13sX>Mod!dzptHeDv5p^rS1e!;R1-@RJri?q9cgS}
ztY=|v0-8Do$3LVRGByN_Di~2zv7?mk=AhX_69eoG5b&A`>@G#hOh$+yU}H;DJyY;>
z8P$h?UG(rf6;D-UVWDSa4C={(R^@<ui$<WM!3^{aAc0EW2r#zd9zG~zWTbCsp&x93
zJptgZnUI4OF(7PWYz%81gHA>yeL$Few}O|?5KaP!F;^2aV?7HqLr}UkG9_os70s=v
zsnuN15Y$UBz}9L4ukgX)R7(pz=pd32Vg%O2%t+7Fzz{rlVPX!R{iSRK7BmT9iG9!z
zyzB_O<4g<<^$Z~68i=7d6LU}l-xxHAK;BRsYD>w$(!fH`zzFN;urYWk6n3|nf=(f|
z1fT6^h#1mBDv+o$q-9`Yrk@3#c-FNrH#F1(trq~D>S%1DSAjLAanJQ2Wgw(+El{F_
zoLQ=1NR4qVk{yh@ZZZX(tqEz+8^Q;;kOLUh_XHmwM?uE}(j7K4!QOuZFL}cr|H#3K
z7}f$cN-aU-3nmJN)EL$x;5^);ZYBnx1MUn#3wA)Oe?UhE8(1iq8iDeTnSrqaRR*&_
zt~0STH^e&cV+>v&h&}L33=Cl1GQ<#;siCQ!iK!9jC|PO@VSz_Fj1A2V4Y2kk!K)T=
zxX#i@&&&*T4x$2L2n#9UQDF!Ryy^)$x#yy14p|O@y=x9$R*BuANNEr;nuXNTpvGtx
zMlAzgGJvh@0WZgdIF!yO9opIH2at8TA!LOr#Ldvt4b6=$O$nTCxFq~_-|b_fY?GKw
zzX-7YUVK0!;$rdq#D;$vZ!8MBwz%%q3%KFt=y@mhn8?Zrldj)Rf4%vM<S!Q2{l>;q
zTq@s|M(He&J@@v`zRzbZ`{(nRMe|CYZ!NlXp<c6x`+u+Aro^k~<Sx%s*SFjC{ODx+
zvo7Ci)i%i+&%2w}ly0B0{@#Zi+v-1exhKZ*N37dCbDEubRNAo_F@@7}(+;hUk*=SS
zsb;+Fz>${=`PClH%-=Vww%D@zkB?LH>D4nI?A#Xd;D_{aw<oN*WnNDwi5u;{bEcwf
z=c4(yZ)#urdb%py>~rgrX}PQSy}S0gRU;<vrc`{fX3_b3XIoFpYM1|*7IAR<8P(M<
zM7E@rdZ%~oNw^*w{WW#+`TH?-{6~F)e4gKm=HBm_SX=h9<k&yM{eJ|dOYUrVuyd1F
zO7~>h`cCUfxi;UAX-Tv#4S%yt#$#JU(CJlK?zU#3mT!K)N;tTVyGlo4e?jYcF(vV+
znHBEwxu^c+?#wyCv-;+?^<iHF%HOi?<CWZe>wE3hce8e<^!i>qap(1-j$Iq{7teaO
zVA&-z-JAD)eFSz+I@hlj!?JQh(6(%;Lq*$muWT=raW~r$Iic|V_N!U!w->ppJ$G8Q
z($&B`BQJ9A&2M*QW(!ywoiC_(m39Ap-l}<aqGFSZ`O<#g(ON3M&1+tC>K<*k)zivL
z_MR4XE>Y<%&AYK$fiv>)PA!e<J<}&lkye??Ig_o`L^WbU0*mL5kfcw0H0H>(?mO8W
zP*y4IbTYDhOYo*`QK5$)Jur)ZpjR~elaieLDY+<V-+lL{)$Uwb7HWT?r$KxDE;~Ne
z*WXM+#LnG*_dC}-<gjauFh{Jbb8qhKq61zL9S2=6wS9fil6gYo@u|e?<+{0#b9Ss;
zUskg6Q^PUepM63X0+&gKGO(l?mlR%Advg4z@~4lo4GgxCU+Y58a<8~za-eWR{ZCO(
z+s0jwr7kXtmYqI9lBe(vTMJ8CLCnV5-K&1ZMsDA|dxPN;o4$E@^6%PWw=UH8n`0pJ
zbg$bc(<5?+l2cRqpS}AkQ{{ExcA}n(lgN^b%W@7VM=V#^mm}DIcb{&#h1m8NQ}o=5
zZp~|vP894d4WHYQzgxD^@zBKOa!Vx--m+ZIbJ^g*u9fRwpI~o$6uUO8AUb}1Rz$9-
zA8XcyoCA`lOnui#*f_BBtdaS~d-4+NQ|SrDOC2Y43B3Ei_+XQ?A=Cesh3-iW#wJeo
zu9BM+3%0ggZpt=LTh4mCgXuh%^a;O3yEdHNG<#j-^DP;L&nl&tv(D=-J)z_GPjQCp
zt@!eZMIYUIVrsVL&#KtzC&E5)+EncgT8k=r{BBM=d)Hy&lHC(h!vohyzZ7`x)AgQJ
zS2C%r$jURseR(nC0^1WN4}z3kiWGnIEW6mceeq$=4JnfnX8+yLEyb;(<aW>D@s~eW
z|M%oiu)n0U*Kv+`p45y`^FxAuSNZb43YM5Wytygw^uBd$N1USBzuPdc=l)?Lqfo@V
z?!vXhqO<dyE9LSgz1h~K?Ecek32UeDQ%+&o2mwdVB`a0ZSJ&-dcSzv6%;UvQzk+I}
zY|ymgT41+qpODC$+b!D#=H0Fk%=l5&x9G@bw(}Ccog&AoBMK)~wCOlM*s2!)KIzrP
z_N4uaF_|d~-E*4+f82ZUZ<5nuQ$a`1%~O7yp7g+@ns?%#+ZO!g{JX21D}26BF1^(e
zBVWR7&-vEq!7<Ln%f{E=-ZouR-o!CE#ri^sU{9&g3yt@O8kBz5Nx$Vwv-Y%Gc%<;)
z&byO5Oy9K@Y{=Q8r6R<e<FllCPDxL<o9siUgAN}>zpQAeHoI!opFL}@%&Tv+?A~}p
z+zR9k&}&qy`hJg<r}eP9{(@~Gjsf4~HhsN4zhLDjvAjP$DU&U~x5sGzaXzUwLFtpq
zO+Ak(((&P}xi7vpgbUnA^ADbPLtWw0Z4qOuq7^AGcl=r7HLWb_)Ra=$Q#w8ZAEs^m
z5v>ui=#NS2zTeu7bJXv9`&;bc6JP!KsDs_xOGku%?3iuG`Jh<SNiw{_vF_&N3F{aZ
zq-e~onAYa?sPqa)E2|7w!o04!OJ*{g<@3cvyd;+fo{en(H7RdF9wVdE)81)~e_wO&
zdUX5r%uONv$+Mjk`72)-axkpgFyrm&o1t&K&#1dJ&e-!!Z?oKr&&On?gqNxFS*Rv_
zyL^PDg4g1(e$w*8zxJO$6}I$^=0$nGN2-sKVt$>UxrfPbPq^F!-c!Eb_Vywy4wt3Y
zJy6len8W2bVKMW^F3ogzex^%v^6Wl8sO`JF;`)-=zj|BGL<RU%IPx{lQks>!Xx0m#
z;H~d0M9=LMk8>BXuQF*jVy!M|^J%)XqkHAb$BmVRMVz<ic~6XcJTE3o@T){4v(Lev
zgl+ADvuB2#$PboDn{|>W=JK3*ocF_5zP>8&KAr7sR^7X$nfC(R4mLE%dt1+2_Tdiy
z-gtjs6@G~~r@1Hl{Q1P_prBm5mSxkW<|@@&ftNgM6)yJVUU+~00FS}SjqHn;R`a^Q
zf4bn3O7r`LQ<!_|e^0n3rl!T}Z#Dn%*Dmo{|6^bK3kigpToeCxnWaQU?8d5~_mVpw
zJD1Bb{rEaFN#m0H(Jjw{ubxntFJ^yE^Hq<mU(4S=2NmlQ7Oh;vAL}POm-k5FqmTOM
z^uC<f@bS>fi{F1<U0`&nwIn#A#x_%T0{e<PsoM@Lej8-BC(U0aD^5w=X8tmUQh}F6
zua(M|>~bostytom+{pAu&1V0`rz_e*<Mj_OK9!px8~VaDK4kTuhfT6adqa~0KWu+~
ze*WSu+d?G&CffYI*yJR1{`JQ<u2Wv$%zg3mgJbKph^C9v?L%t0uW+8qvR%8=>8`n1
zUF>WLV@o;KguoplQ{v}t&5hHl*T@NSPFWGKW95n$vtwFhCT#j~hh^!mV;mn;<pd9}
z>~P4~UuiY5K7ZZAn`TYTS^*EE@>peibp5X6#PZ)>wr6$Is*r<|rY~XBxVib)uZIT~
zUb*&5+$8GU3g;QquXJQd&zicRFTwfxm6a!5&nHd^N#DpRs#v;gmT779(~XWMZ_Y1V
z)izJ!e%Qu^C09C>W-QEKGLMzDIOqADEx$R$#SVVC@k&nWPVW8O)g>GgoQ~$NoV0Jp
z`kh^SCxsnd7|irEp?H?9rps^ZsNjQb+e3x-v6NO``Jy5JG|0J8+0-<%<j(S0alyB@
zzfAhQ_y&XWt?aBn?=t0&iMh2+TXCmk%84%vBQmCHT+o_wP2`V~*Mznb$?Bk6DNby>
zq5t#x7ESI=DCD?4Lp?mzp8rSZgo9?Qa~qPR79IZlBF3mW<oZ2zg?&Q#&$y@Td-J}a
z_u#`;N7uZYoB#Hg`pR2<Rg(~s{$uz?LA6d}b!p|qBCn-94)>z-+-hPcnI4ml_?#4K
zmbzbI{-IN=WH~t5-nJ}{m1S*N$GflNh4bvBPz{^bjmi2KroVqB`-_XkeZxe_pkE8G
z1t&|py!^l9j?V9@T3*>Ts!mlmuN5<y{xbLy+hjHMzfipH=|W}q5AW7r*eIxY@J0Fe
zdm8&v)^2h1{&Z^N6ILa6l_uu~MxLF|>VGoNy~^9rJWr5)(aR5+1`dlaP7R$pRkG{6
z#HS_dZx_9eyKHau=toh{2jBgcbB}fWGim?&ROo`h!$Kz(RsHju_SoAmTQ+yzzmP8x
z^1;^`($4YizP)U9*xA|2t9(RUr6ak{?^x)jFXGW2_51$DtxG3&nLIA|Kc&<{scf^w
z7s0NzdpKvGX1w7Ooc^@1Getd|Kla|^WA3*e1@((09hq{);L@5n<??q5PbEaSW2?3t
zl4N>b!xM9%%t>|OX}d4_GYdc3+zP6GtH1jF>Sf3F-I}o3+Od^mO0nGWex8U-?~>vz
z8Mj@pPTO)#D5CoD;>n*DMd_XH>3I5eL+P3*o8#dbOBY_L-<KB^@b2|p=E5`gXT0C^
zSDlOF+c)uZ+><ktOgLn+%ltf;_bz2yIl0}Ff6~j+k5XP)%u6{ANoi@B{Cu7kx;3;|
zJaf(afTb&!)XPg*uH$KCb;>=xY+YK*T7z|eEL`k$jU3k&&!2hnyS<rsN$<_X?Ndc+
z8ZR}A6lXe$zL>nVsmuD&huXgaPbO4kpEx3<y~yp>LYFfuCMutMlGQR#?Ni8ii(uA+
z&lu-3KZ=!}k-u@xxx@C&r@EvL1+A~+>&{$I^YTF7^{4Ygx|mW=-)z?sHu?FkIY@Y#
zSFW)2FOlPaRV8?QTCOgb&sh*4F2_49<DBjZ#vKd9RToY$na!fe`Kp0&o4UryHHwOd
z1@0Z5AZYZ3f5kT`XNMybWhQ)B=H8^TB7wd9zQa+K5ASxrZa*WI<JLLRLhnxi<Hni|
z#?LN`op}*3N7g6tkjut2fyQ^oHNIv|DbrZM+9El%SJ>j9Tj$5=+J?88f9v%>KDaU7
z*s<hh!=lp@7ILf<Ny`;HR?rxEKQ^?~nAz*e$wEUGX%4Ry9szp6DwP6V7tbqdgiJ6|
z(-gn%{#7$zva^Nq-3Nc(WV0o;o!gm{)nVpolvXa#_wM8p85Q%5GKbzrSw7H~KALbP
zgR}Axhse&ATcZxVcDN_}=E<^i5?8bZPwO=V6yCbY=`clKKZxtQt<&!-Vm1LgmL2>(
zaUDzG$Ll_V9-?n98gZ8^uq;f<{BzwyeqQVa-d6SZ8#>}bu9U?a`%iKCuj;wf-pDWF
zc(}n|7S7-kpFhZd_#OEn_<ND{t7Uup?zLab-6-!|e0hGf%ww%hhnV%Ot-e(V9K9F3
zrtN8F+>T3obybcY3QUMU_y5omqm_pY?%1pozI0)ihS?TXEADu+wyeG+>*Sl#Nh$a2
zKj!V2G0`*UL1=uQt3^Qkd#msh$(N4pSy03EODZ*>@YI3Z-`2&g2@~bj&k`<^kh>^z
zGymLq?OEJi{=1wDy`BgDoI6F^Y_<5~(}iWtq95n{I=*)8{$|@*2bnqIZf>kk=5C!~
zv3H8e$2H5G-mWTiemi;HC*`J%s|AuDgnL&{tX;J4Q}HIo&ny3KS$jcn-}brvxkrD_
zXgB5Tl-u}*VcV;|J1n=d0%|{Gn0dK-zIz;)HvK{PweFk+2e^xPqC>XLU-3p^)8m8+
zCj+UxV5!Roee#sniSFFaQat%|(u7++yXVjRn|x4g#mXlCOApd6&Mw!wxIDmC>1>n4
zW`i)Z3c-bMroVN)Y^t(v>kHMUYbie8*PnX5?N8XYh4EX|^rgS9k&ZJjQC@MyYTd%<
z_R5&t8@G>sSSNeSH9PA&|HMKUy*;yJrpn%*dOCD##_GA5!AFArs4qLuUQ#zt?VM=V
z9EaB0TMif1oD!YZFI{<Eu6UR0r<XIHiR|^t^zQ5YmAgpSg1NMG{o;QS-pp$sd<axz
zoD|GeT^h8ex8hGv=RM2t2fTY`dQ84&U3jrtU9<Y)|B^FdYLmsM_FwZ~suLcqk#yKz
z@K^skPOXIKIgCAvAI$7nr#t)koF%5wOJ}@aI^*E;d8$V*{9WcTmF;@;qop72O@DrN
z`?{6o^KUv?c}^6o4|otg<wwt>`zw#G{MP$@<ENj0EFFJ&-{1}DTG^!@awa9gUHQwp
z%>7eWzx&gbH$h8w>i0U19<}eccYiCom@0R$Z1bkKz4xQ;W>m;zhsAdH+T3p1y=D5_
z|CUMuQTNy1vOVvWV3s7bY-Uk%jC|6~jlu?H$6g-zes)t%riR9~J7(pl)BIRm-)-^l
zeH#4q&y>jpHRYP(r(U%jdp@Hx*JRy=M>Wh!_D);e5+`2nQ&v<~J9FH7k><g?Q&n!)
zoA2DY;Jy4!{?}FaJvV%>eXH^9Y1YLpGoRV6ZV*?VBfLlEoDSQ;Nmlx?C$3a-R<O(N
zf8g|bw&g9Cz}NmqIfFF2m2yQsuDJTW`MnW`<_|sJmH%gXI`7NgS#!5t(OmM)6eV@*
z#gUioCVbxHTzqk9Li_(+t#6&oTY_3e(#*MeIJ+`jR~|gsv~~5%%@dx!k*E(i$;a&#
zb1yhhI&7`iFRr*%vnm3or!Y@dGG$qj>3wk3=XLhk{ja4L9OSlLJK5ML)hMg$ZcX+}
zCg#_VCY3$NVa#6gqU8UI)jmN6-!ER)y`{&kwm8amLhT|`^?+kL)Fa%58sGigP|8tU
zoE^1T<Je&XHQC)Q+)taXihpsL@SkPx<>*-_H|vC*pY6NTZRhP}@25Ju_y3BsT=oCO
zG@07B7CIZ3h`QJMzi?9K<C1@yxcA<w4^NFn_L;@;mTuawvwNM@@->?5n&<x2g<o5}
zd$xqiKAvNbUyGjVyZve20lr$JUpiO*2HaVBwy9vw7J*#>B5{6g%V${H2y?owa^skq
z=9n{CWZotF6vtlyClhZ~ENVaCJa5Xs{!I^xQ=RHX*Z=bVkP>H+A78k*qvy<Oee?gR
zSs^DrPx)y(^|jcu?`rq8Qgh-sjA!UX|LI|rHWYCZaSZ3<oU~cvoVBH|z^?nZO5`|p
zs@gM|C?EU7aap@Or!Vz*V&m~s^4~b@@|?Rp_U?6U`@Q*-f@ry?T#MQs^SdGSA4=G?
zZBGa+D?j1c)nmL?^!-ZK8pesXFLzB~X;wM1_`d;rLh9nLD(nt!zptcq<eEJ`TJ%B5
z<m)EOfa0QthbzpAFD(A%WEnC0OaHa>eyOO747O`t<!xP&mE@&rP}H<4gjM9+_oI{C
zCQaFwuE%**WS&s--t2vs9gN@nw)xA_xQfe;t8MSDbBCv?TsVC-bY4?rfn|r+%lWQa
zZ6T8<?9G}~95R_@X@zB@P|*p`xzj!`j<-@+nbO^P-a_Yg_tPekh9v%tS!K*m6#jjQ
zXso`wDmRba(C_yC`wb^fBsFlXGC1hbdT&P0LH=9E&nhW}ouAco=T&E)i+6;2yyj%@
zEAJUjBy4A?HurjC@8vOjx9e<9d*!+-leYhv`O$m+q&O-2DO(Dy@}AYZv5Ht_>V<47
zK6-3Qp)%7!pG6-M)NXHjw`jK1*|dXpz32H?eSUqk=bqq?N!wp8;ajuipr7yrg`Vz0
zi{go!E=^PVn8Y;c;b#Y<8ZMzjhx0U<e+n*+Kd$w2ZKi(M_bWQnboIiDrCfUq=PLcX
zE$7FndN1bL;g{PZ^k3wsvT?8clD9fbC7%88*>w`etjr$bdZF((RaBa^UE+9@>wLsE
zP)hA-gvG@z^%V!-?&_JB>f-6fz5AlWv8B8!KbJJ_DBLR;I>|?>CquAT<E~(({gf#x
zP4~I=c{Vk^oB6RduaVJo@$r&(d;J?jCjF=hW;`OCqrve0iVvfJd4uZY#S8}LR{vkg
zF*(V_;=w9U-&!4g{ng9fM!s0@ZX|c(ptOzO;*3M5La$y)UE_PIX<5_XS(dJg-qZ<x
zxMUJrcU-FVewt+7#K}+hKk)k7{!J?~?{-Ji_nOwe1l6RocFlKG-1}s_y_7V&lb<t8
z?r1e~UBz%=<6qaGXTHp4G+=S)-mtocS^UhU_3``jjOw<R|6KOR;r?eg5nBc}(}#P7
z)zjb0f7-O;{PohS%)y5rmfoqE`sdF-c@y4_%*s!<cg<*wv#Ojv{c2C}gQXuj?i=VW
z;I9l7oVk`|@uBK}%4YuOuFVL0oqFJ*#hZ=Mya#90nr2H?=>?g-O22vVH#ftAbDy{P
zaHiU1rg8lAjePp!K%{qKPc1{09lyU-<*e}X^_!30U7)0}V)8|Y*k@nwrbS-#7MtEE
z{aJcPgZ_^BPf9nQ2zzK1b8hPv+vX>laXP;)IJwT9BzXHYtJnYcAA9b+vaCAK&$%M9
zh&6Yi^dIS@**<X(PMO`Dl0SRD#e{HgrZopIN0@I340`L_v*cOkOz{mrBTgo4&MS&*
zop1YA=j@d~e_PHin{(PqFa7EK2OP70R-c<OGgFD}*>oZHrDqnnPJQhyxh3HB!pqZk
z?Y>^Bo@!r`UO#KPcgCd+54UW(+j0JNLHWd#)nVIb3w2r+uX_8fc_-WXT#cVO!Ks$^
z8LKw5nQHNQ9<=y<Nb%*)>3o_=RkK9@eEn>+yM67OhwV4}_FO;SU(00wdLPUFCuxCC
zUc1T}Jj^}p@X6)1(@(`_)~w~m({9Z0QP56fO1Kd4_DVqySFU@qiPgu;FPuMbx_71Y
z;+Hh3AUX4so81IhZ|82l(6cS~*zK8$5AP-P8qL0tpO)vlJUBdZFYjC(8%I5}*H6>#
z-l@1gGxMUQvEi09!DF_K>t9=Q+|d)9Ij3cH(K37M!kXi5n~iV%Uan#rw^C*~pY8oW
z&3SD{Ez0iY{e4p3xYtW>dtE(;!1Fl{Nijcq|8Z{#jybjX@w?a4Pi9S>T#|h8{jICD
zfd-NvD;|pbt=#1Lwe0tV{c~07?tHrTtdcRp{BPS|$@gDxuXA`aDQ05Dc9rW+GHO3r
zJ=QV*K2s99ptj}3WSQ15jSmh9m;Eb_F5thY&DL;fr%{*0$-Y_c8fR@<<t-;UOq=uO
z;@iKAE#x*`v$O8~vw(4D)QuZ0I}UE){%j)gCdAj|MqbK>#I`n(FvI*g7aNy;+9lwk
zcvRQ#&vuht{@V?zUVlCIpQS-6bAs{?Ro;h+cltkFJiFFpu|{|B+s;iTvuqc*{oHn#
zQPlCSvWTpR!~&foF<xSE+Fw+bT;9@doKVoq+jA#m5Buf`BGaQ5wEE26p|s>?Ya~Ot
zWP+Gi$sRG@3qQ;Se)=q!xpnUA%1x(Mo%-##CUxV9^|y0k^WRHXbFjZ!@-ox$!ykFJ
z%X|;E1ZON^u9m2stR<OtDt$pu%&qNgG6oTrCH<@9)0ZroQ#g6;y%cZ%7*`>mb=}dM
ztfqf{ymYxp;NM*w^@^Xx<Lx4Kx2^Bqv&7`d{vzIwQ@OtR27X<)?e(9>51HPa=5Xef
zyfpXy$tl)SNpBgCEOabz6o`&Gz4cC+aDaKhM7x~_IW1-{{Ip7<s4nYGtJk^DIbRp%
zAHSe|k-0|Je0TB_OYz=`(^nS6r#un-F(b&iYo-5LN%!80S?i}u+~An7t#eaF$VuPN
z;i4i}g&x-Ft?s`$yKu>7tG7o!r2N!t-oGSN=D79r$lB@m)Bj2=?~yZcn$FTF^r9ue
zyWgZ@Z{phSRe5zecUWwH?TKFVdC!_(tOsYZWSMp~JU@CSsZ^ekQRSKwOUvnn95=E$
z>Ng%2_iC+~z_s>u(8GOll`E5~KABxza^ne?!URjnS#=MWyuNs5dIta59R^w3LwP=^
zYPYCo9b4`DHrw^)w_Ekz5!>oG<vX97&pxW4e=u(8vQnK3E11u5%#M@zo?Bd*wC!E@
zy7|9mefW4-`_SggjfR4@-zPV!ir+lGMrWF<sf+u|9rg>A{~VBB*zCRIoRd$6Q|eNQ
zaz*c%*}EoiE>|y6R9Uq8<mmuj#z`-hNikhJ{40yY(Rs^Sw*}HH)=!t6myK7@_mT>@
zHv3xRzH_yA82jb6tq*rCovt5$_FvtU7DKmIlPA3P?BYws?H0bA<G<;u)?tq2^9)Q<
zUhLQFsQj^B{$7Uo>_0Q6zRq#0Gph{Oc~>Jn^TwnnKkH_+pYxsk+}P2sesZ`ei`$Kq
zLwgQ3x?Jbxowe(rkwcrR;lE$zd*3-Fsq9{VaK@VnzSq)BChj_{>0ltuEZJe3D)7?s
z@-3dNl3}%1*bOJT9#owwCMLTvR{#E#o%%gXJqj-UY>>FmvTLq-{ZsyY<Nx+tD;7#s
zJlS{VPKDyU_V+%YQiAn9X9XFmyq^<f9~LMpQEq$eV%lyu?g^RK_pSS)7<=$exXs%{
z+p}4{8`=&g-r||9cx>&9<$r#-R|PFOTNz(jHsjOQW&in>{k!$g!TGgHWVN;O)x>>^
zl9ZmUKUr5gWq-im5YvUqLSe`MeErSye*4Ogm0`9b&VMYf|J~W9{f^yW*}_bQPk%XP
zIdf#0HnvXaJK@A|V%f$E1$Wse{Lp9DxndX*dvRj$EWYLCk-pW-cfAaja0vKhq8)Z+
z`45ec&KuGy6z{%#B^x_k^DJ9P>rEAXLB>^8L5D7_VqUQIn`Y);x$OBuYRbj$b+Yds
zR(|$xqYn2uqrB?KvRP;NHt8@eONo+o6c+Tqv>;mC{QSB)p5v2pnS9oU3eV`Y$qu?X
z@$K}_;^yb)&53FGpgj5Y=KJ&K{uS)AJ=A(Q>A-Wd=f%HvGa4lnmb0XZ1lO3qFSvN;
z{=|a{95(|$YseJ!Ib4{ivFF007vKKPPGc?TE3@4F_t}3&hDo|?E3h5-WNd=AHWPGX
zoxW>ca(+r?Ub=#@31}ThkiJu5aVl8G!^6kj&rRDgr7XbM)zHw*QQs}IsJO&ABe6)q
zP~RsJ%Cxl9hiys$o!DcjACe!MmkGK~4zy7obUu_m$T*kO;^d;tf|C3q1!EJ?qK6>;
z@XVBwjN)hu@Dd%+$wNaKn;DwKBF-@~HbJc7fzC=B8kieknUzKjJZI!9_<SbC`iP{9
zwC%q+f9Awj4W}4(Tfb3Kcp)^A^{2M@23dim&IOki>1tlw)iN!jS8BUS5^JJhOrq-(
z_XDm+wsvgQxp3^tEw^T;Ea9bVMY}RHwr0-C%675XJg2dw>iX*9Pjl4s&mHv^?ClB=
z*{Y<jZf>n_eQek7fI6pZZA-2j{a>u6IcJj6G`5?qH}hF?H@<HaGx;YV%8)&6{;dDG
ztdUNEQpfTm51djsoON-M*0E?8?=A^>^{7WjD^fkTzPq>k^tb&!PJ*(EY)(#`hJs0I
zDpMzzIBg49(h#s-VAV9WmNg-9N>W08Yf|i2E-(wq3!RZQ`P8~sp|#7Z7R?GjzRLJ&
z<*U6}(`^p_EaUm`BI}TY&w<}nb7oJ~;i*t~CicTzYU=AlWpaO|4bxbvzD`ONJ!fRW
z*SLc*#@CJSU3F#Ul!H9S1yg#h&zNT<#JU?CR_Q<MHIpYK-1j-Jq<j19<qM<qJ9*go
zKUmj^#jROnslP_BCj7_UYOnjnGqzdf$^N*+aFjn$V$m+&xf|AS@6e0jTJ`Vv`P&VN
zbI+bLUi+)w%)W1DPEO+kv4kka8<odyzRI!Wm+!kPo0nRCHSXSfQ=V_Jf3KuU6^h1a
z7$rPhZPD<Id0GEu?K4wf@<o?+9&UTJ>BtMNlpDWJ{W`Vy*NclS%TtdP)vUI<JTY|c
zO6!*6Mcd!4O0mzsb2;1iK;V7Hy4y=HZM^*W?DuuOci$!-ymR3Gp98a_rv^{`>lc?N
zdD=7m`F<gThV^Z8Cx(7)&;EYxX6e&XQ+2yl$>Ks8FXxm9Dk}<KKbY3jq%-%5Z~67F
za|*8SjN_lV(u#NXmhMF}+gx;7Omv!3?&z7H%vH>mJZG)<Bd4bB>~;3_(rWMS&fJq&
z#a8(I;4S`lljrijn;e^W;ssMS`;slr5$tPn+n>%AxM6px{`Z@u^XAP9Ui0?H(c0#=
z)y%cbdY50UJTz}R@9WK<b@OL!bDjR^mC&AZRx@Wk>g9e_o?2_Ewl7iB>P(gNx5}Kh
zOOtF>`Gm{a-NbhPe4qKFw9aj|&+&&dB<nj4=U?RVcQVNRDjq4Dt~cjx-qph350f8M
zAG2TbFuhUlqT0oepQe5Nbgp72L-NwciW$!T6F=5O-?#K{@B1A)F@5>Z=O%Z={_trW
z^yDs;7MnF$Y)-}}-nIl@H@*n_mojg5KDt&|q_ao<3-_&H3B4ST2Kh>XgB)cuCO!Ld
zN#@o=!7hO;pELyt<pWKVH%063zStzZf<ZZ);Z?3p1<Oh%+t(_+2bP_dn#DaiXM3fH
zp~%}G9`i1rE>1YEDR41kPMU#)l7XO_%J#S-XC<E|rYS0#@tM2b8fH&==KqD`jNyk1
zGJn>ZRI$amT<E&+<muteDdO!8aWdETExE`)FR5Y4LDdgao^q|@{J{Qy5?f`R#M7UO
zxfZ;2Kg55WmP*xXTCWu_>*0S{20uB$KiJEAP=O9v83QVr;YGc^OJ-VHY7uBhL~*pC
zzO#{$k%FbAelkk=h1g95Ex(KmO|cYT$mLZ?z{b8q20V8^i^@5gFL}B|*!gO!a1i?g
zmquHaJbj^3C3D$d-&K}2NaUP8UsrX0+U!@`m82d1ZM<yCmZ2kg>>lqL!F4yHnrc{&
zy)q~dzBc!hg7Qwe-wm;@z0HdRK1sCKJ`fbU{WW|WOJzcH&dS!Kn)dNZ0sQywZ*b<C
z;27C-(Cx%ozn^<w38XCAyYcc1!LZ=@=MSArct6!G?23|z{r#uPiZjpOoLrduWq;Dg
z8)r5}xZIh0@rc**Jv=WOEvsg~o2#Qz=>4Orv)nFosX#d+8^fdv8F|<P7F2&B1uSa)
z2CnYhGILUm6^u<m`xt}3B2G^E716pz1`4`H1{Mm21_lNS=H>>mU^&0U+*Exm^=(dK
zda;6uesD=@ZkU3BzH?%MM`~tzMu~!fzGHE6Y95FIs#qZ`&yvKP%w)&B^qf?X;*7+i
z;M5WgaQx~gYa&-pXzR&A?uVxi1!EJ?5^l7HfWJGmAz)(W<bu5+U}$KHTA3lY1WZA7
zJ0u`L4u-V^OhHK$-V!i11?@~UP%t$xPyn&bO(8UhZ3sRf17r%VFvvCo1xymtJ~MDr
z2~!*<VrU3Hz>$zLm~sehW@e^f20kd$%+eesD}tf}DYd~`Y#7<tK;PNWLf_fYQs3Fg
zP~X|mNZ;AWLf_fQQa>#%Q^C|sACh)VE%cM~bMo^P%nbB%Qj3cf%#8HYi&7IyQi~MK
zjrBbhEG+aR6f6z&qZAAcjr0rj3l%_7Ta4@`aCAc41S=ja3<(tv6Hn(IRuFLgUUO6@
zxRmk8)=M5If?k_V60cq1xl7%kY+_c=hP@x|Pj8>SirbhyZQYKT%eyMG*34|!_uEmn
zu<2UF+d`SN^#Xb~B)Mz2Z>`9@yEOFcB}U#ykB$6pm~WGH;Bc~cDxUL)X*P5E_BU)V
zW?z5N`!=EY(ev{K1#{;9J|_2;g=ZC)$+nhj`j_^el514Ed;ei(A;;}4&tG3{K6cTw
zHSQLl<A&c{N7k)iSo`n3^6xb}w!HGLnxxL(zh*^;hLW+ESHjGniknWwxF0)nzVZFH
zPG`kMXKoo~onE86*lZSu3>RnIwdkMg+jBhML~J?zStVM%Sl>?JSrxDI*?aACf_`ZB
z&S>6P@z*}D;N#7Y%Jxh=3@)ji3|I>oaIt|ByvC;HsF@3?rO3#@!o<MH$S8zSf`CM2
ze#kKXkmV68|DE!y=I1ol@7nx50^bb;yTAVsVqj)uWc3aO)d0@<1(ikMvL!|%IYv{#
z(9+UC!7(L2DODl3vbZEQw^+e5FFC)cAipTFBsE1(LBTO6M<EELqgWv*wK%n?EHy<B
z(OF<%U|?`zYzNuE)P0EW$FJ{qIz+#VPI!0iyR6jF$}J^Z<$8Nr+b2%zoG!g+=G=wL
z%H|XYRY$nA%6G)|MRj<z>BZ&Rb#U~5*PQV~cbC-sidm(l6*c8CGydrI|JIbV>x*02
z_M+ol-=2;g9G6<F_XSB8msJ&%&a7NCeOhn-METxM){?}^q(G_PvhN(ei?+#4{GGtM
zmW}V{)$bD<M0c{i`d-BP{o>Bw``8YDmtg(gw)1xp+w<?atg&qRzjIlCUyJ>Ih%NZH
z1ncjv*ze_ReAuH2Z6i3S97U9F;F29y4}iJ@km3(g511P%=z@;XH3V%?urM`2s|Wm{
z{Vo?*3s(buH*h^*Y(!y25UlU6@1yUe@1h@|@2BsJTqBs`>l*5ZXXZKP6=%W=9+WO3
znp5FjL^Cr)AJM`XHSvOj1`$#U#-^Z<gx3QW;B$5@!Do*eD42s!yM+{z7Dh%2hDK%v
z3Wf&YGl$K<1*U<5nUN_<@dOHPl>B38WMYY>d_r{=Ql9eY^qExc6U;7hEdOHl!Q-n|
zT-`SPOPs5qpx{I=*R?@%ixvr;WOJ<yiJG`I;L@UXB2QJPIOSJracS6T*g3MMK5}qQ
z=_uZ{;`Wsp5{nD%%+6le7+ic~)3^O|?fuW4{8@YdXT^~U{-)!PeY<;mqjy`TCAL(R
z|GBgxBeG<}?$?i(RQk<7X{@~QaQl?HI(Mf}A{VM|*B*Opa;W*Z@pRW$#lCH8&djY`
zQ-6%9?Bu7X2Xk7Y_QxJpo6%D_D@S>^p1O1XiL25fl~Sb&(hDzdjK1^Ot*ral3d1+o
zRy0SL<%PRVi#nPn87Z25Ati068LyP-?DT+@rZ=^kr(J!YAR0MSYHl6>>*L2>mEM#}
zzVP28_Nn(7<v*RSE&>~8L^!nw3CFDB;D5xCZ}r~by*&Tz9h#4Q9{>Ea{9HkW%8J4X
z?HU|AH)Y)3GhxPpDz@q7nX5g|efG+}{`1?qbJC^E?CpCth*&mWlT&SXS5--Q*FN(B
zr`)6Ko8CXk6*~7h_V<a+fgd-la<6l_v?3;cwg>y;l;TNqCaP;X>vZ4$&i&Tl@%d<j
zjc#UQS~015Zil9~Sykxl;G8R-Bd#N>x+t1e{i^kmY^9n&m50t#i&OVA%yct9vGLvJ
zw|8a#mYVbP*|pTSUf0x+<vASrL$xZI^_|U`2ZxRGc3iy>&z1PpV6*74z2d$5c5*V!
z&}I9%YkP&brpQz^c2B3^N8%A;I~rCc9y{*%Vb%0rUEx#QT@z+_f7VX;UUP7og;9FK
zhJqPwkq;~xZtEG_ACMLLdF78xb%;gqk|%4P9C%y2)&HfU7Vp<5`?gG(BqGJyHC-<_
ztdS#U!%L|NZ95iq?VXnNOz0|e@d@RNg1lT(vklo!7x1&~Kf<XXz3=J;n<Ek2CskQ@
zi@flxpL(N8ZSKSUO|Jc{fko+A|JYA&H0ICi=8M@}l>K;ePS9+Q*_P9l*SDXy_G|vH
z>LGII%H-$o>=x#itQ6Mmx$03C$T!1R?r+rf1<MMx{BAV7ygjqz%B0huxc^RY7oUD(
zr%>DboZo8-$~dNM=rjrZw=Z>es?V09)oYSozP}#3{?otT)eEu?9b4kmb2et;#)*Dm
z^WK>nUJ5Z<Sg!FrUFyX}|A4E<zckH!vLa8Ud_lVOC+&~i7q_xiyjb&KjYZ}g-7DX(
zmQQ@@)_l|<|7`xNVw0Na%jbG5vYWj=9E{-1T>5SQjjwk;oayGDuOOh|n4vYZq_p69
zt<<xg9;ZD1%j~A>nBQ`4kc{7ZsMkEIu6Wr*{it(I`V+pa{Fd~Y^VuQWO?uY5quhU=
z^*=B}wukBep@bbBn;$6s<Q3ge5PwHYP0w@dC8>9ljy0MK<mCo!-}d5+M=8%*pTaNi
z5`U~*@FP@UCtF+hyZgt#mg-G!{I#<1h02G!Ghc6+xW7RDOk>i|sxR&{V<%1anYZkK
z2~%;b{P)AWyg3YhnjSpKVfnrMTUh@;^!xLrzdS)nU7A~Xor(C_k4w4F%50ziaI*pD
z7pB`+w>`U66g^W-AvN(xx5tCsn<g`eTv*Rs6<%VrYT5*E|0B<%t@`Ds&Uy7`<Epm2
zSKDUk8LM~6x@IPYZ_zrfI`x{Dck7Nl*P?1K6fW2qTC`x_&W-MO*5_Z6n<V2Kc=J=H
z$l^2ddza*2VXi!*{Py#eg2He2mXyqOnJ*YT$MO8sd%M%uXIYmtJ*+<``p29hP|~Fj
zdwm9KjYEn}aEB3heFh%hLaxsYjTLl_Of8KR3=Pao6pW3G(JM66{sXu|qqt)OZ|Q<s
zxd!@C`VsI}uP3bC3u?dW7wdzYzOZI4xY-M71fx`fh(0ge`-pClA*fD4>lFoffO<v#
zAt@H-=E=r}$=XJsMlhB^QbW{=2B~KRK3@b9l1LSzA*hE5uMbVljZkVgkR)0(!QF|s
zvi5NC(Dq2pDN8NMOio1V#TgqR>S{wn^Z{MeWS{`vb_I7E<c<JH?F=D7EgBFuP%s7G
z2LNG%)R~%^DG-Ap<{(HjGjj!VBO@?Ih=O{Fp#C8!)?lI_RUkHq2I&H^(J{;g5WOHC
zL<MLV1i}K1NQ1;-*gyf~2W0!qjZk9*Z-*MZ{R=hac({6K2Uq4M<>w&90@9$m5zh1i
z-lBz(Ucf{9@HjEEFjFwGG)74?=$*)l68GSe#FA9~U`K_LqS93TU|$6TJp&`8VFEKy
zXrQGtL>dLR;h@c1Gf49dlu*FUTLT4MLvwQl(81W|#+Il>fk%KVDANQOySkW~8B?om
zn}M8>%|N3rXbvYbgP=JM-kLQuFhR;91}13n1M)c{XcUaWK?jcy3uBbH0EZUDdC<<Y
zp}8?>jnkx*gv6ADloXLqA3l8KD7aeYqseVhR%&Q!%+~4kcS719#ly<i{@(r?{_uR!
zwf9<o?q6lyy?-~Sp@E^%E_SQu;vr(G%hIQ49LZ2Qo}ncX6(yx%vFwTZQZ1HnvFS^m
ziD_3nQ++Nj`b1oH+LC22G&L-qJ<(ukED_OWSt_<%Y$~Jc#5XKV{u3_x1l8ED|My1x
z_sg&195=WB4-xqL@#XpL_VaK2U|`~5ko2&6g0-SCBfGod>E;4XJtk((#?D4ana9Ke
zDSnI$2*nSmrh~^1C}$JGpu7Mo1wb?mn}dr&$cPb444nq`SkT2_e296V(Jhz=I&B8N
zu>>S)0-iK8P%tw#RWJefjL>QYGf@46ma2@*NJ~~eA=LrF<zo97i}bgdh`s(=`1sE3
zrm)>RL<9wQ?dV#u$H^t3`-E{@hoJM5dmlvP6(%?^wH!R<?I1M4J@AR5orc)1UD2yH
z?dvKl-FCOE?6uvS!*g#I-<>@7=7!(r&*eY+{dkV$earjh=l-a)v`Z^a^qA)2s=2uQ
z?Fa7jdOiGHeK#ZocL+@FF6!KIDmzjz?f>dGS0yz$x*s~fKNk9A|8#*op_A>gf^EvG
zd-R?!2%NahZ}PWwNzNH3mVM>k@pHe#u7-t-T_17|*R56B=wgudwMog!KlwqwM8(#?
z*>Beew8-17@rZaJAi^2tcv^hdB2TNmVF52#TB8!5T)i2!ch>n(2|kS}yKI^_KIsS(
zlv^3_JavEi15vB+xd9vEFQmS{vd2&R$N%{(PEHloLaR9rO;@-kaKx?YhMT}`&Lne3
z6`>>SLQ1U)8Pn?yHFv0bb!48LJt=om*2(0P_IHi$?z(&TuJT>>JLxuc?+Py^NA2?X
z)mU<_(wU9FVfkY1q}ALv7rmNn$^PWz((MPQHw(Su7mF}5ugv5BwXs4re!1aa)?bH$
z0{#d(DR60B<hH53cTja-Msn(+Q;zFbTi74(EM6*dD?sV&@+iHSjJ&D+QAU;LJcA3L
z<$T$)sp*H6s&M6rg{(%G0s{YSllkkx!B($1L1ClKyYvKGy?qkx`NtpMYEjzO|L4`E
zoW-&KHr1|Wj6ZB%z{-|vkuK7#aZ`6=ciEQMKW}Y+E?#)%M?-+!)*kJpa?hK$ONARr
zPx>5m)8cRU*-tThKTi16_;6+REAtqC!}(tg*392sRJY|h=VzNoo8<R>JI#B_W_kxh
z#-gKh_b<5TtRFsKxADc}&Y%sCvLcvQ+q0K*eb;x^<&@f?w^ljz!@7#zHpe2Sdy^j7
z{4}olxZzjf*Ew}hw-l<m9&K?Ge-V*-$b9#c$fG;kT6X_Z7x>IS;lL;HkMq;N6a*?4
z_A;9J&#ZWHl}~E<*B8y65{DC13p(qYRtVlOV!nMLIVC*HGj->II7ZbIX>~6?9oc%W
z%IeIbkfT%2I-Lr*ynb!iwx4Grvv>cA`yCc@_T-U2;fh;~JI=Vo-EywGYn%FVYIEBW
zljj@0tY5eC@R7=@nv6G(^>3BEx%+n4qr*8ndH3eorpGl%_c{h1{HM4*^mCTpDgza1
zRi0gcXE3n*sQb>cXa4bf_e+}pZh3t3!}T-1XSeT|chvQq-LH!~4>qoT^WNxPN~_V&
zX$=P?{@!h0!}EDz@tl7u`DN8reRh?nnZ0dq$ExS%+Ef~S{LA8OSia1`%9i1h^@Fnu
zgz6StZreKfy1Sll+~vL{OP{5rZ!qd;w)`P&>u~SqHkR7Z<IER*V=vWB6<#a%ZPz{N
z^Sd6GuhR@rKD_Aa&W^T9p`v&Hzlct-3!WXl)9O_bw@3BCxs42GvOH1>r>U=>sej$Y
z_*|0L)NHRcMWr{ack#TNm{6?AQ)u}{p5b<3$Khxj%dA~Ni<9O&z0$bIMwQ$2k<8uL
z%f-^$ZU%}sEH^v0$UV#T_>AtyGG{vKm$T=VrrS-mmpxy_K3!G(!KWy{o}=zxIu}nn
z_gH4x;f|7LZ%#W#oN<tl%ei&(k&XX76W(h%NprMb{Z%S{qB*VI{(Hd1<=n648*TV*
z!z#5$o7MDX(Wj+9Y|oZwsp)<F8ZUE=UnWF6vmz`^Iqd$j)2ElFZQglJMSnwyS<wZr
zzp4dHcR%_r^^&wq&iuC|cS*DCRr9&Yx8BAcj^848<8<Eg3+mkWFa0ozPX9W&@AtOb
z<q^)wm;e3#w0im*=UN%H`%C)ejO8w#EI!r7zW?XG`+1L3f*);Yz89V@Sz>U(p)vYK
zLQuiAyoVCep9O?ji`J}q8p76meP!*^Wplj38noD_<{5v#E%{=RpMQ;wS+cLuh6rC-
zi?FH_Z%)l$kis>i<ie_7!nyMeH?&ukEZyDvcZJ!%X*H`#_goJ&6PBF3@ppk@_~+_7
z$`hE?+)Ga})q6E+Za)=z-}B_W&iykN7_U*cc9Sef+T{>y@cpWqp@omA_~$)g^FpjI
z9zR$vp&#&gs;{~U&#e`*;!5?icAH(heEwLFxpmaq4LgnoZ}Zg=ylV1`GsXXHgX(n4
zJgwC_smcawJVr}J%e-rulizRRySkZgjra<=$!9O+<k%PrT>q>6;m}FZy(%o7G1o(~
z=Ps^Wy2d%D<ic@jzpLR}9$0C_eN@(YxxsqYZ>caV1D^$MXU}eJJ!9CdT4Ni1ZRU@s
zk=Ns-Wd0}H<!7z3n9c8Pn98bmeC@MaXR`bmw^^(RdadZqfBEap>2u4<3hv)LbUAh2
z*`vMgt7j~B3wC_lbbFou)jc759RH^?^gXsdfW4gos^%eeBD_b3Xr`gGU_rGfq*)Da
z!4jCLLvMzF`?EL(Xd|F=b|z+qB+S}X=$Go}=@;pj=_l$3fd_3%^HNfaij(t;QuRy9
z^YyDzi}LkLGKx}D_0#f8i}Z_Ab2Gv7I{Nu}srqS|WvTkbsb#5o(5`QBW(7(U8Psb+
z3mM{?$X-qXkQSJsv5}LLK4MJ}atqAF0)GR{5IlnhZ-5zD8X|XA%&>HDaYP%aTZ0^J
zW}tC(0}Dvk1AThc%iSO1bW=+w17~V=Jp%M|K?4jG$vKI+NU=~@nqQI%o>9^F*U!+;
z)X&m)*3Z)q(ho)%hCqoFeBDUA9eZ@2!TT-7#z@U#6Epm=Vhj#=c&y-Sx`LXd*s&34
z($*Z*Av6V(5LK{&dI%4hG&i&WH);(OK+S1HgBMv1cDAXdv4XLwiGm6EIza;k3sV!Q
zNf7lW;OqDxY;s6Y*A=-t3`%Q|ECcJdnVEpbdvZ!ri$IB~B-JG~IX@*8HIPvz6>@^I
z14P25-m+EA@O`=Dii!5!yz=BlorX+;ofBr9=ulE(Vm#wC;W)$O!~=<PwuhzJ*k&Z&
zWBzo^<szqnz~XL>eMt(lrytzf6WZyfHLF1?*fZB`_NDbFpC0eKY5zO9{!VcG+~2j&
zYnHz|x^V#m&+(5_J3CK$?hZEh>ejxr&E@#Jj-L86mza9Fv!}JbaXz{~TYNX?gZV9e
zqHnWZoV7PH$h@}_T7NC%^^`6l+wuoH7cook5Km5C6kpL3{r|v?;}X&*J-e^A7U?aX
zb^Uax&GzMcJl0-bQEIezkHwtFOW65~UiO<-=*6BpT`F2<7QAxO=Q)#}r_6~{*PgaI
zWtWlPU$N<Hbi!Y+HZAhoHGA?@arYIab1vB*m*%QW-59hi_|(r2|2rEVMliH>8s_l!
zZIt-N)8_gpLZt64=YgOC9pS@aKMp55-UzI*l<RzdSo8<WKLZ8(2T=(X3FQy&F4(bP
z^%1s1TfR6ji8{@1WqEW_R-kv&1ncHQcD_rp&!lztZk@S1%Ib9+f61FmYlQbFX?XfB
z{H%R{?}gLf=KQ`rbDrnN)_boe>R7E_W3#-`R7_@?Wbsi;Uawrcxk>+W@+Qds`ub+N
z@pJy~-%BlQlC~dywsN8HL=)bp@6so}cpx6#xM2VMd4GNz+_v@DF*mQj{o9SRV%O3X
zjBXv{dX~w#Cs$E8K&~*_gtc<Qo2JrmJ*OZImS0!w7pIz3nMtKCIw4cG+rRYTkGqe*
zzdO6@_tClQ!luu(Ygm$D8Ks^6G~?~zn23u?`~Gsje5LI0=I_Vt@-MT6e{zPt>HcHf
z^>s_w>ypd}&R^+zx17K2R{UqSX4$h#Y$mO*j3g)5oQ?HJ%{j3uD@kQfK~Y~!l7rR{
z{*3~Ao;ccUw2k<nAglP${rL&qe^Mn!c>nW$a0%IPKtWS+=YEOZ8mgg-ZY_Jp#ysCp
z$XA)WO7f#e`?mwP-U=`&eqVoo&yiJZogK2(TW`Op5=m;myMg;3i>-idect`gy=IHI
zPL$17RZ$QO5{vv~e*Chi$DYhiN6ySj^}3&laW_~_z6rV#B=z%8=@zay#^v?@IQB4F
z2fPSvQ8qp0{`JHuk7KQ&hipG(?EZbj;_qDBb&K`{Mn#>F%BrZ9xqIP7!IjM#LTV>Z
zpS^p{Xw|x%S8knIpg#TE^*5Kdi*9Xs^<a;=#p%e4g-x$M^i=T~8&7bK@cVjOEn`8#
z)zAvAu%g9@I##-qIP`z?vfaMTet&U#t?J5^w<I*rN4*j~n}6wrs)ggZSys8JA<n^#
zfBD;Qec=jrTz&uHBJ&@-;ZyG~TweR+g289OH|lOK{TF1JKJ8f~<G=NCfht?h>WAmu
z?e`ZqH<e~Ax1H*!taNfAf40Z`j18wRKbHOH^3#-8uy}jI*XcjypZjhU<gTvH54zho
zzm7FfpX)?MdYjI2#pwZ^TimwZT~u{<x}S2^^J8Ciy4bSSxE5+j9}1YzBi*ngY}p-8
zk6SF-YgE5(bzK>{<>rlhXUp!kpDTP7)^>Tq++}XB%?-kiJ1g3((_8#=>$Cvh57mD2
z_qG^CW$Aw9;fkN7ny~Z4?hkf0hJ}$fmNhT0N&b>8k2PN1>(mv#@{;4(C)?B4pZ7Bm
zN@)w@P!64XDra7vY2~hCcI-zjY|g%0cQ-{VOE|m9UB)hY=D*M<r<VW7yQv;O_veq<
z-aK3aJxjjH-uziO|NWDd&5J+n;gUS>VWA;nHc33DR!uhaa!}s76r~Hwk5rvw*EQuC
zl~vq0_wQTsmCVX?<@4cFR`&1tdH3#m{lnWd*<741t=ko)J;|hviSgurcj;a4e{B6N
z`}kbZDii*VFFnrvaOS$f%<-k{f~@T`t<uaZ*(XjOGP=kvaJl^3l{FP93041iYztOg
zJn<>eV`uX%>s))A@^{a^Xe7T--C~-0Gqfao@#=Qj{oJho7cBen-8lL3wtaJs-k9U^
zeB(ah$5*b3?5-@nw0U-X`mH(h9le~^o|8)B`da^Hd!t(SmMT}(yBROvq_{s@_=KzU
z^LoF!)Bk2{`0>9?`0DL>#*!JnA1+LYU47bVW28p&SAAZ7v43A1r@wofX|$<LW63?w
zw{ti0*A)Ldc4o$ZPoan9j&9Ssvu54WDP4N(V2+ih<3`KW9Ul&dl)YK|*fq*4eCedw
zkKPJI9nXki6Y=KhWV3OPd6#@|m1fnq-;?b(|97j8{L%F3hQ42Ym5JhS0pk=^mF}tj
zoct&L^Dz8UV-LpK7B&Y}fspFUJ2Ry?+SnX4N*bhK46da?G-yx`M1z~c$n7z(N{Cj_
zO10u>jgr*d0;|ltlA^?%%)D&f#L|+C#I!WsJVQ-WQ?PcNDvUHuA&b6nsxa0Bjk_Bt
z1fi=)2AK|O8e)+#&@?p#wVtp@fpmeYZY)wpnx>GET1=~qHBG_8$XIllXqtkDaIr|4
zYMO$_HnB*VX_|tE=&(qcYnqyYdMa3?EHq8cKuvWlQkI&gkoFpe<3ZlS9vDUjnx<yh
z1H;Hr(-fRWFs(8&(liC90W4C+nviB57AX@=Q*&^d!gQdirl~pBbdqdjrfCYknHr0M
z=9;FE8>%r4w9qt#Tw0AOWvOWjxyKqq3gmX|fnjW*X$rn|7Sk2RhMJ}p;H-mbo{^?0
z_%c>3x{NhV!7Em<NSSCtCd#l#nQEF^U{4vwW}2oJ*i(kFxuz+2T?`fjEi_FbmvCb`
z-cr*P+>pl9Wuj>czAh1qjDe;p<nnF|^GpmiLG!`b^0A4LCaCR>Rmxb?6msh~rhy=5
zU=IuvQ%zII-QbwI%rs5GOGmLd-dxiZe6txADGN<g@V#PKq%1YfAoq-8*k!5-I%*x8
zw@eK*%?v<&B24p44K+chd1BLLrU~f|VQMnhG&8^+6c(ChkXy|$TnBPD*3vTt<N~ba
zMT#NF-B`0oilKplrWyDW84Ty87#bLAnn5m2M|Vbwp@EU68F+ygHhspLW`<bHj1)ry
z6HPP7Bs>-~O*PFRGwE35%rwowJwa^tnQNLs=GtTReKK=1OYqihSj;xpM5!o2QJkNY
zWn-g{y`oGpG_cS#!Je5?3=K6+uxF+eLnBQSOOWAM{9vqUVu>TjOf*ffXQmWGQ%w`_
z-HlibG}AP}o|#e%%{5K1XQmWGkiT#wB1=sZ?3pRWNE0;gh9&K%fNClOti@~!sHVc6
znNmPCl>zp^Ff!IO1<$5o`q;=s(-eDlN-;9kG{v5uQb0A80rm`KWUgsyfITpbEHq6G
zu;(ZvOHET88Om7G6i0Rf)l@ig6R4)bk(rE*G)-~jC1a3XSj(0aV-rnN968C@RMQla
zkuWj|sHQT+9vGmS$`E^C7+YwXg0Bw2j4oqKO;aQ6Ny9|b6nserrX~{uO;aQ6DFakf
zfiHu=qRU9r6ug!ni<GgZDfqSnEK(q6U{4vKn#u@!V3?R`nu3?QVlmKM(-eGIJr*eo
zO;hmU@K~fQHBG@svtvq`YMO#~U1E_j&@?s1+B8csHPkdU#-1`vjWkWcCv9Uf&{)&d
z7<*utnrNDWkC?`y3*<uVDZ|uE(-g9#1|zANnroUu7RX>qS!kM?U@t*UEj3Lc3urKO
zfvmzF7-j~VrjS8wOihNGrY2aMW+`Synx^21d`usk8EcxFU{4ulCYq*@O*xo$nQEGX
zH)CKi&`i@5ypaHll({Bk)d3bM3r$n-YVaVOH6pkY!*q!SYE=lzYj~?dGfPbq92v-5
z(*%4y2d4AP4Kz(~<R5cGO%ojX$J|KM1V{ccH`X-4k$=ohG)-{iA9GVp6C4@H+)UF1
zM+P!C*EGSAfy^y5O>kr&b4yJV92p3t344;UFwissuTH@XLJLDp6CC-+!bsBuNB*%e
z)-=J9e=JNiO>pEN3sX%K6YLqt!c5ZyM+UMm*EGSAfh;UEAuD09_{&n$1V;t}$zU%`
zEDbbGaO59LLroJL`Nz^o(*&|*0V5k&8f%(B@(-qziKdAu_Q0?-)il9AERterrfFh|
zy)>~j*EBK3UbI?TXqsRj5J|DL)HE^09vX>;nkLu>L{btB4Kz)#kBFosf?BTFheT2m
zK}}ceV<IVuhQ^vE*at;Y5)Dl>O|XxOq$Gk`uh@r0QW6c#G)=INi=-ri+OKBVGfX0=
z0gHWTBqh<%Qqu(c*hosEk){duv5}NSBLhtn$mkkIT1Yf9)HK09I+BuT1TqtQLP<0-
z)-=IBK9Z7XWTI(;eSjn-(a2QO1p5d{N}`dOrU~{Tl9WUvb4|!{Gt3N^Xk?*jf_;=E
zCDB;Z1p6pSN}`FT3HDKvltfca6YQfTDT!v9CgA17SlnT*X@Y%}Bqb5#LhP9*(Nfa{
z`zT3DlA)#v_ED0QBv3Yh43prlAI&T^F(MqK5v8jLieJ3-W0IkvrZJAFPBJvoG{zCt
zNgyfgr9zUirZJ9)PBPIn1}`hb4BsSEO=BF<oMfhHj3b(p%r%X1M01jbrZJ9aPO{WA
z#u3fQhMLAWqB+?})7S!QG^c?yVGWElkRGgMK^{mC)&ermNYfa5=RMC@(-?c-z1UFG
z7<<>f7-Sl#nS>GK#YTym#@KuA#YRb*#@KuA#YV}R#@KuA#YQQb#@KuA#UPhs4ToYA
zO=Il+_F_{_6YOJP#b%l&*t_k;=9(thd+o*MiJB(Zd+o*MNt!0ud+o&*nkLvg?Zp-#
z^ROm|VhfOYSkptXMY5&|_D*}TrKSn?K6{CwrU~{gdx?>z3HB~~1xOFpo=AmZqNWM<
z9(#phlBNmv9(#phvZe|4!LJI#6ivt~2#h3FVVJ6Eg1yIHVVI_Ag1yIH0rC~rtWjZ<
zsA+<|!(L&Oq-lb^!(L&mX@b4OUSSL}4{PqIFb0_iDnBuOWt^;O0_m{hE}lUJD|-1{
zVVsQGeF61z^T8u|F40Di2AzIHWR!xbk%F1IsX|_9P7X?O4oYq~)SH@`W2y(GLAZKI
z2Lxumv7rH`dQc9<q29>I3{yQQl5nUuG_}M~4=&%asW&z>Q!qEd^Z>Zj$E5)@gM%JI
z;JN^(1|wrkCxId#mj+`~Oh1F`4O|)wu|yiUHi2tEjbtM;LrfQ;L^7mm21gnwkjyNx
zger0@Lvj>Yy{VCcxd|2zphPmH-vm}~Y-oyI19B{zK{~%+4W^)tcqSMg0M}hG52LBK
z#G)KD$c96?1s3I?LJfy<P|qAaMSw@GVd_ys$Iucpbinl?4&`Q8lq2V0NN*ArG@v38
z!!gKl3+W!gl!NB<Fq9+5ERu3iOc@(s2^-|7g-m^djR&bWH^!nKIc6bkC9rzX2`QMl
z5mFh$!Uh~rL2%^;7zr6tL&KCCLaJVvdQb}j&9{(x8?GKw*TB?+2D&lSBWGPhRP~_Q
z4-EC7!W?csWTXaWzL6<LX$z_M;p!n>V3>L{QzP_rZvq~{$DtlHMuy=Y<k&TYw6kI6
z8=F{QnvWd2$m&7S3!0C^umCxF(KUcZOwcue8yPSkpw&l)mY6;UH$AYa2f4_|0Hd@u
z0nZ`8G#EmrMPXhB4eeq$2qlV9)q^?`80t}?7*)NYF-Fk|Y0zME56A<cxqb`_kTWo{
z2S6H(F{?;O;|FGg5qcuUOmyH93Y&V61)!A<7%oDNWFyo%9y9}rt{&Waf?I&39%KP%
z2oOU9a`|k8R9|4PUmz_lxCN;79jF10VLoykqa`{}R}4cvavUS82YJ8@v&M$B)UY`S
zq`}x2GY-Jx#V`%X1q-MKHZjA@nc!h$m<FU;0Hod=v(W(=TZXB}umDTG0av=XG#DFV
zG@Kyg(6}@hVK&VmqtiGw7-6&(A!F9KG#Hv-R5p;2Y`6y0;ulNX4>G)sOFfqA20Z4C
zLp^965PCWS4}{}TZ)SqU!zjfys{28Mu^8qf7uP6>!c+k?-G`wbIU^gQnh#olj;<a&
zx{kyBpn?WNJ#s!qHXocyu~hfqfp}~dfHasHV^;X!;d$&DOcjibF;gkHFu|_DOu-nl
zZ44R8higCzRB($0GtR&&aHuyo!K~20vt~HdgQiU}!W21<4Z*fSnna)=!j`DP6KpUG
z(A1k@sXoB71~B#L7J$|Pp}Pn?mw-)!sgVMx=Zv8qxjBt&fvJ&#u_0z0gUfRq<{O$}
z=6di{1YA98BMMspf#)Z1s5iutE5VZ%*wlk#zyLFf!A`)X0ki-SBZN@m7_1!;$Dkzw
z7#dJAGMWa^)Ev47@MH+wNvN$B&?E|mdX$`uq#opF6BEp44tUlCn*|^ZpwV9p8<6W{
z)Mk#Ef{`U=4G5lJ!DR!s`UX7df>VP57C+!_d6|K(B*$njgQsU;Hh>C50|iLDf!i&Z
zg%Nnl28VhxEGZj2je|=)mO30fwSz-FXj%?E4#4w0F!jiB0LqzI+Ops|AeeeI|6*$^
zgXe{Cs5i2}i~w+d5{G(2bIgne9=X7#9+c>?WqoiD2$u#d!(ot_CR`do>q{_#6gev+
z2NB3g#%5UjfSi@lH5gf7YCs*~LTc`VY%nsw7(jqbU%~u<7RyE!m^B*802i8iLrW~`
z@#SP}v4AqZg=_)H2WFO-H3G``7KR2R%#3D%FDHZ6nV?4-cmgdSI!uag18B(_h6a>)
zM(X2$DnV?qh7!%-RtdbQFfqgI#-faHp?0jz6if{<i%0OJ4a^5<)xI&7wk&um2Zwqi
zEO{SgkPB&`2uD!|9=m}VkE+}ZbHos`gcG}R(Ch<x=z}MRuq!vh9RGtX^~9kZOFaOt
z?yx8aCr@+C3;>>6!lm8_qw@z@DGE~$s%YUU!3eV#WD1^zf~iIdNpRQF5F@*rg6F2N
zsy9;rEhs<>OH=Tu84mSEn9U)`+EX0r4Ke%1kOiqQ_23d7?p<@t2?EF>RqV>mOfZTD
zQ}Du7?8-rF;V?XloNZAZ16s0-p&U8aA}I%jJ(hMEWYsGc*ML(FW=aDUECvcN_26+C
zNZ5eXgH~gpy9Z@(3&lNV3RuRHOu=(-F!RyWn_#xFAWLas>QP5)%`iu@O~I89OgWPA
zpyq=)MiB*Ba*JKLkvT>Y2w8@UT{-AnYK*W!j#^Z=gF5;c%8{cMRXLX853+<8<``7v
zSn5Pj+CW4sl5$YQVyO}#i+y3nqa_4m%q|9G1u#rKn)#sf;?R8yUKWf)J!ttShI-^l
z2Q>3ROYt$(BUiZS>Wwku7G*dKO+A)@X;bi0NgVDs#GJ4Kb)<2IKWH=z-TmOP5SaPk
zx(kvKLA5#N@Ev5KG8W~a=ruFNETzD!FL9^`B`pl+pfssK2^-=ZkoiVf%6#xTO)Tbv
zG9s4HK^ezF^{p|M`U+(j3spIm1}bEcG<L@rVM)s1h11xT8)A;1n1UCB!jz*;`Iwqx
z^eG@KtZ}KwY)3(sUE@#>TFi+aRj5N);K~#cSD+=H7#dLG7EJ?aMGS@p<k4uPmK~_&
zg*oyI%FT$Rj}}0nle#gCN6xxv>J2elrjTXd@Bji=0T2&^Ruo`193gALai|Baj>d2g
za={GBt4N({EHjdz);yAbQQc!?iZNUSnkK`k9(0@wx_iLuW3jm(lo`#;u~>i-!AK4Q
zX~34-Q3kNkX0y!=FnTwTeaA2t5u+YChKW&+JPd6F?qtJb7_?OcBZNQ&6wEzn>alcr
zO~H*=T<Wp3I8g?#(9Oq^g~6+PahPv}r5S@Vc7<lXkp*V^9lQz{m-$!{1j@)2y7^dg
z7|OsEx_Zo6VaUd6T<*crW=0*hLXBS|V~qZdDeABls(R3tJ@oW|I&6ii-pCNMh(;Z@
zLRAmCE(P6ulwm8h@WHY?2C}akNB9_;Vm3}thpo`ugE=Vyn)yMLDCq9N(&`7Bh{HV=
zn9XL?K`XFkNOpwuLNI%P;N{WS%m-^Q#7xlOrL;ITV6FlI)w4K#3|bS79%HCuR%l+p
zmV{7OWua@p9A5z~ZNcs$ke@+&0Wh3|TuLKH8dwA7m=a`bJFY+it>nP40l5v0ZUbml
zEQSW;avDQ}1!h7;8MVUDfTc?XUJQ=Q51>n)Fr0*38DrRBgqfF7#;uSwfLhXKm}Lvf
zuobd;P&620Dcn)Ut<W`KE8S5Bt}rxUDXzgSTwH-<gr)oiuVTij0ZRdlGJJ*MBm>MM
z0KDQEmkov%m_-1}5Ei-(SSHaRhXmlX0ka(rIXVER2F!6R&`cus912Pq#u$Ev95aB^
z0?c9+a`*r)4Vb+k$dLrt)Po#^*~x+&RDeT0mh22#E``&>plt(adCd%EC<{5xK)pE3
z%xnf;;|+5U>M)`iMx)UTyzU#O8mSinYLtQ&Nu#?4WucZK+7zP^=6VpwF$pjW&@~uh
zaX-pn7V;1`sAGe<SO9XK0^9;{tq7?HK^+gwRk4sW7I3Hsoe+ZIW90H0%{`#2dN9-@
z7uU$@K|zXTkOy)=12zYNG=R>)!LR|*u=Xp>Esi!&FoWzeM_REB5rLQ*tnY$2=g$mj
z8J2T?X<mtfk%2z=#3VDw8g>OU$cpt?eejv00g36U#mL%0NeW^vM7tqeJE&3!QUJ*Z
zDL@9R6d)-|0o=3?Qh<yFDnJHy6u<>)kOH)C3A%(0bek@+wfX^xMX7lu3J^C3A-e*x
zcmUNE(B&lx&;<nw&=jWtjR*zkB#r`fN=*T}ZcPEYyi5VQtV;o!(TH>nqR{|7I?>q3
z!W<HQzNsaNDTyVC@KX~be0>nNO4`_06eK2Rr<N!rrKV@**{Z+ay<c4+GsRXt+|<{=
zx4=0yBh#a*C^fjsFC@7tJJ~Wt-QJGN#y$~rbD3^MVu5a2Cg^;|VujS=WLqWYARjj+
zdplk(n+mIn+=ATHl0=1y+?>2(s|s6nupX<tVk?lazPbWfNlCV?dW3I)LP>spPIhLA
zf{~u3o}sRxv5rDoQDSatd45s0f}x(7I>^kTlr*a#7dNPhMJZ{v>KP>^1y=g{<>lpi
z<;HsXMd|v6mX?<K21fcuM!H2QX}ZOgc_oPzx_QOQ>QH@|5pZpJ#d=^z=_Tjq>Sspi
z8|oS8!)=0{h?<$7rvS1!F)6>a#8$nuG&992F(oZA#oQo8H`UnGSl7fX)m%5x$Sh6Q
z%)-#zB-zv~(bzBrW?uo4J5ekwNJ-N-)HBvsS13qHvkEB6Pbp1KEwWX2OfJe#N-R-u
z$t*6(%*jbDQZUmq&@)uf2+zz*$uBR~RJXIy2e}Bzg|Og35~9e_6^RAdL#ZOM01`|J
z6^R8_zWFJcX_YRCC8@URMh1pPx(3F&MrI)fmR2U_R>l^(1}0Vp2I^p?&fqH$2`RO+
z0T~Ncn_m=?pPysrSd^4sRFYazqTrZPmYA2EnxYU;l$lqe5Kx+wlUbaRTBKm9XQ*dl
zV5%Rk0KFO8Mjzc2dIXrSFa99Q%>^a;!~$PmE0_G_(%jU%5>FRsf-*@mGO|ocGSD?j
zF-+7oNlP}<O)^hR(lszNOHNBpF-<bDG*H*4b}XkP!(CiZT9gCMKPk!jsX3`2#}(@v
z>KW>*E2Jb_rR5jpCYIQ$Cl(asWF{w;Waj7T7o?=A+u5WfTa{#%<fPi!fKsGmP6>pO
zlL^XgRym1z>9*<>x+$q?iKRIu>UO1hVAUy*_{hnGrev@_eS}%qk~df^$i)p52>Rf%
z15}RK@p3890gPHgQXr28*JyB&6apkE9!*`N!9`LCkfeAtbq%fH;zIOcQu9)5)yvgE
z9gx(#l;V=2)Wlrg)V!4Zq%2-Dq_qaV`6-}=sD_IbsL^U*Y-DC&X<`m;uc{jusB7wj
z8=#r_dH7X@fEqp;uqF*uSALNOIZakgeOL!T16TV$2G#+H(L}n{prR->jh732MK3Rx
z0URipnSu@z14)6zOie67Gt?laLLO9|si`4ok{eCT2sG`1CI;Tnh$aR;Fbz%23^c`s
zCT0#AN<|a11oiMy#mo#q(~W3ihM*;xXkws236PKh!XIYf^Oit@NMdH7_4+7cW~Shi
zUC_k9N4TMhS%79oQN_%RK_k3qV&G$2(Zno3J1Nk_EI}uKpo*Crg0>K%i5Y=r?a{=H
zLDN2HV&KJVXkuodGpx|W%t2FLXkwP2gC$VKEDS&kLD0lNbL=1?L^zvSfEF>Li-FG=
z0|~;z-pm3#m5L^21{#7#6SDvf8=;9=f;Nhvidh<9hM%P|dRQ5nni_*fkdXBnnpzm5
zhk>D~g(<qdATiMN6q;TO(8_XDF-ud>usWKUIfj_Ig&Am15Q;i;3o~?o7@AvHfM!cj
z)ma*V#>mjb3_%-W(8NINCO|^)I5IT11n)Ej3BuyT(A*Nd_ySGL48y<XmKLDVRWx;$
z7~yPTU;vu=LQ!X70NV5l5<<Ae!oV0b$pI3CyT!uN4783LP0SK>1PO|mrGWuxc@LVH
zA?Q#lG%?WJ3P=cHucZM-nl!XDz(|vZmIfGU($Lbt0wWDs8epVJLrX)9G-+sQXapL~
z1~~@qUrR&GbZTjcQ4See8k&Lj{~+r%GB5-$d_)s70}WfEiCKV-<UkX%1nmz(6*DqG
zPisa7MxdE*kTQ7q85tOX?~4Zs!u(-mU<5uL3Qf$+!b|}qgwShf2tHmKBna1Q2ukG`
z>MYUIxRIfe0eYEjWM~AMMgkd!WQUP4dj2&sGy<(@LRSYq&Kx9&aElRW<qAj$**pvM
zy3xqc*Z{*0BO^1=dOwh6xOqlK7U<=;k&%%lXon)II%5O$vc$;9*a&pM4w^b+^m5$D
z$k+tE3^Ot^2G1*@>9qhIID;Z)Y=lu>85tW{faYk>)M4avBV%I&(11CrIxKEBHa5lx
zKVxI?>1$|uG2LuzY>uAKjf{;gKubGN^_m!f7LcQfVTPZHv5}E6T3RzP22Hesv?Ai%
z#29>dI!F*6mnO#Mp#9HiViurfK4@Z=7<tgd1hn=SqzuUp6C=<OfgnMI9VQs<2qO~{
z(CQ_SGGx7GnD&~OW3kr~BTbr^8erOM3OaBF)ecir@X=2oLAd)&P0c{(ZlZ~qgO=u?
ziD9%Oj7-fi+7U*kW*B9*k*OJIA05azgnv!VKqr`>i-9kD00|=8XJ!VPbVd`i0Iicn
z6SD*@Z$cF_H^9_uZVXzCj-n1Uh>u>bnOR_#e`Xe-tyv(g2!EJaSb!FlfCS-gHnTJU
zoh*eWW(Yb<6HN@XY!xJgWS%AHFcow$@Zv&{Ad($spjj<6G0gJ7%+eCQ9bsf{09tJX
z(u%Ox+|mNQt~IhSFa)j81u2BvYhhr7Q8rl^fDbf5QwQ3W1`<NpVPRkfT2clQL^97D
zv<d-D%o2180IHaw0Y?6?Ff_!-9~Oq7qbWdIk?b`DAKeKOMA&PH(Uv!|Fa%w54pN4!
z7jz36x|k(Ky=nof&Ctpr3nS3FPc*$om~OE&1ohld)ma)^VB~X4Lre7jmXW2A0eU~h
z$kGUOf)$#1M#i8yQIH@!3@nX6drd$>2>)6df&0xMK_qqN7;OtnBaC*ek)<(4JJ!h3
z*bu#+XJlz?gx=3HvNQ&tAA)MHG5C~bG%<|!q>-gDM*q#o(%2HcUk0kBLF>6t%`-8=
z$g7qnpr!vHWk}&-0$%$M5`=||v4IhI$sL-Q1!zwJnixjB85<ZIp!Xq+4UCP@)4j2Q
zG3amrka2Lg7#kRa_o;yd5pFRCFQ`QmGe?heV*_Ig^z>p3%DyJ3Y1i1m#1OqsF*YzU
zLhsuf8<?1&*T2RFCZH4AKu$q&vk7QJCAydedO9#RG`2)9pN$Q%xW&-K2*V$SCMKXU
zACM*Ra52Q<7DE$^et@x|i3JwDmgsGCV?$E|^nR_ep{Wsid)ye5r7h9I)DSc%gCPbw
z3jyS0L|7S`nxp4)V?$HScr!FJL~qv_8<~SoS_K&h4+A4}bM$_Sv5~n2X!9qUI!n-M
z7F00{L-anPv5|!ldSBPr$O3$PDw<yKMl>`rGfaCe%t0$Z(bQRj*5#mzSsH+rcc6)Z
zc1eMR5aDNHU;tW54HAThfeEOSgBJEC2FB=hnX!ohcw-@&UNiJ@Gh-72bI|f%RCR_J
zZB}DbOEZjgYHn<d;SY0T@G-3@=9wE~^x2KgjWPNk#^%PBpo70r^@1FT=3jFYBaHN7
zZi3NYH8wXfLGK3`o11{wg`wGDj^6JvHaD@r)N5*hX|Jgv=wNhI^GuD<`%K2>m~B>L
zb5rmw2WWcD(8n>2%}p&p+gi}nS)%v1jLppqFyhkO%m{sq!r0slbe0>)I7C{rFf~JO
zBN<zmVT@52gNBC;(Bi|w41Dhy$Ut~HwJ-y1a0Ce<*#R1e!_aGqk;W~|4MDewfHWh_
zGdDu-vm0BOgAQQ;DMPZu+zg`(voOaP=Q6f1w*;NL0@94I1Jn>hcb|n3MxM5?0G-$Y
z(u!oSg&An&7Dy1uJaf>A&}d?o7<HKiXs`v{UQojXLkxVH4yt*U;AL=VV&)iW*TT{g
zw5c9Nouz>xXfrgLm=Sva!`RXQwBZw^4B=l(1B^bgv891I`uLhLXbcLiPhxCo2;PPS
zG7uhCmWCL82xCh_@HzWv>c9*1(8MsyT}wktjP#79jcIIY1iF_PWE_&;j4;}8#+F9l
z3)esj5pFgzM{g4vTY_4xXz^xgj9J%O8XKXv>x@BdM+*$SSnM@6M;~i8wlv19XDm$&
z(EC=#mL{Nc6G7fU@-LS5hNTI{co?W9ir()rwlu*khb&DEG3secQ_#^EX!e?d4zEKO
z1K$7#5=4ZvsX0cOXlaVkE;hC_GejSkGPX3slAg`LC*GmjVFtd}4^0e9IGb5w<a0}N
z1JL?#WW6Q^Cg58g(Zn#uJWLGC4A9$-CI)7p!`MJt;c;YQfH}@!VqgYdc?wbp3o8=?
za|85p&BVYQw51oM49PrmjJ~*ufw?96oQ;Wr1!xBlnqCX=0q!6{guRyL=wo;$29}oS
z^`MEN0q965kXD3S3=P0H@PGv2<{288qt{y|h6Wh@HxokxOZ58J#L&<XeXhvF(9jsY
zA7El=XoeAQhQ=6eJrhG?bM&^4i6JQEqvll;Lle;MDv&pj{AL1P$PE%i_|421y&Yy^
zXa+up9aWtLX!jUM2w|R)fdTqBmx+;~1!z4vNFm$~BV&xZ+r-G&7`@F362tJDkuk=+
zq=}I+Mtj`E$QX10D9BnQ_Zef9S0+ZrW}pq#AcaWo!x;B5F)}tspU(q{q4#x7jEpVN
z`<Eaw^m^LF2vlmL#gUP*C3@XxVq{`~KCcTBLvK@?7=cm@x_Ks`-5(&YA%%g75&GD=
zi4o?Qs)><_F?x9g5(90J1sRA4D--ZJzUX4;<8UTMCK&x`6C)GMyk%s9F=k|9WP;H*
z0EwZuxlD{qK&KLeoPz9MbM(0}6C)Fhu}zQ|W*nJVqK`9}7@1)7-%N~54bc0wATf;c
z%E;6ZeICrj$P{BP)x^jYwC4iNAErj=V}~Y2rl5^e=<19?TUJ4Wh&VFEn7=eJGQ}9b
z2i3mlbt6a&Gyj@`_s5{wfw4Bg#K_bfeSQHXhEWF?nOb0!iAJUtm}$t=0)4F6#K_bV
zy`KjXLm&4sF)}m2EMLqF(C1Q3jLb0lOdv7zwz7$l8R!H`P!J%cH8ao-VstTM%remo
zeE$eYAtH{j)S*UZ;4{h4)M3nPm>8LX&aMY3Lv{<s7^8`inHgr9G&9FclV%ue988Qr
z1Ni9Wiy6jvwuzCMCHhz&NDMPgnj2u2L*@qP{SOl(b3@QxDUjz7VP$TJK4xTMWR5Xc
z4idvGugpOQWPyxB3M+GC^znNWBXjUIA|QoG_F~M3ni!db?;S-`hp{%m#K;_@&1zy~
zj<KErB!*e%nVVy@BaF;3`fnyi<`(GvZjc!0L^U+`Sz@M1&_V_D__Z*=tjjD6(APMa
z7+GM<(}Bb=>oN<Bc|;Q<3ykpy6C(?ZH76i3^mew1k%bBRd@@K3eO}GP$O3$N5o#D%
zV77scEWrED(A1fsj{%q%fd&CE!pa<d?!?5%0%J}XB!)iDZ(?L&iCNcLSfbC{n;2Od
zp!bPEVwmNmCC0cnXjB<}%?U^hvs|+@LZ3SZjRIrz1B@(<G226y;ES42!_N|9-H3^i
zCC1p7iIFAvTqHETrkHV#Ii_G@WC=P@6QmU>Pg|N}mM@m(80~B$OAF9J`ykDTd~S&`
zA7x@>X^B~vVb1%3)M2#SjSURY#|}-54KU`EOpFachsuMTg7Am20mfPl6JrA-jQneC
zfYFCF0Zn$8qoq@01JD7j=yqVtFPIn`fX*aCSBJ623)D))$Zy65;Crn>n&Dw;Y+!~_
z2N)Y*#*wiB#(av2u>ocr85>~65ojpG2*bY^bF(JKpw1t<Iz!C%fw7?h`do~Ou_4C#
zPLLQz8Eb5aC5{X+)|QzV8yaJjvBrj&`N-H1bbbyfNRiTpA!a@TPn2Nz4Kp7Z8)A$J
zniw0JVYD%g4b3s?b7Mnuj55*K5M!O2iLs#tMtyD!S`CKbK8$r$CdNhv7=3KeG8v5c
zHNxyq8yjJ)128c*0$tC77Jf$H4Wb}HL^?IXnDa6*HZn#Zg9nL$4p>0b3%(8&T@0h_
zG&aImA8TR^Y6PQ)3+CD=6JsMY^!XzbV<U5n{)e%VImY+~Xi^DneB8v?2xDE4iLsF-
z`WQDz3^V^48=%i0nHYmIKe|7RG3K{Sj6t()80w5L+Iq&uMi}*_u`y=f)Yuqws68m?
zk@ANz=z<6gF^o2$u`&4IO^`xFIxxl@gEBS-ADw`v&J3geH8#eWUobH?Hpi?3j4{?8
znSiFK(AHXk#4y@~#>SXqOUA~Q=<}u~pddh-BL#_Jrd`lT5_)`?V5xgRqb(TfjL^q&
zO^iV?jG+#6a5O0RkmAS$OSxu(v6j=s*aUnIB1khLj!aB3#zBltFy<UUOVu#TH4}66
z_2?$XCgzxF+yrAT5VUduvs^Q=#7w&;Sjsh11B|wwv8e$@+sxS10JB~-1#g5$4Fgk*
zF=P{CQ}E?MsOl_G=2A<F5;JpBi+H(gZ1jUOt5Oxrj7;t9c)5y85{pV8yB`b<&3L&~
KRbBnvc)0*sm}k%c

literal 0
HcmV?d00001

diff --git a/code/BBHReduce.m b/code/BBHReduce.m
new file mode 100644
index 0000000..e5562b6
--- /dev/null
+++ b/code/BBHReduce.m
@@ -0,0 +1,3658 @@
+(* ::Package:: *)
+
+(************************************************************************)
+(* This file was generated automatically by the Mathematica front end.  *)
+(* It contains Initialization cells from a Notebook file, which         *)
+(* typically will have the same name as this file except ending in      *)
+(* ".nb" instead of ".m".                                               *)
+(*                                                                      *)
+(* This file is intended to be loaded into the Mathematica kernel using *)
+(* the package loading commands Get or Needs.  Doing so is equivalent   *)
+(* to using the Evaluate Initialization Cells menu command in the front *)
+(* end.                                                                 *)
+(*                                                                      *)
+(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
+(* automatically each time the parent Notebook file is saved in the     *)
+(* Mathematica front end.  Any changes you make to this file will be    *)
+(* overwritten.                                                         *)
+(************************************************************************)
+
+
+
+BeginPackage["BBHReduce`",{"NRLists`","NRFiles`","NRStrings`","NRWaves`","NinjaBase`","SXSFormat`","NRTimeSeries`"}];
+
+
+ValPrint::usage="ValPrint[x_?StringQ]";
+
+
+RunsFromRunsFile::usage="RunsFromRunsFile[file_?StringQ]";
+ContainsRun::usage="ContainsRun[directory_, runIdentifierStrings_]";
+IsBAMObsoleteDirectory::usage="IsBAMObsoleteDirectory[dirname_?StringQ]";
+IsBAMEvolutionParfile::usage="IsBAMEvolutionParfile[ filecontent_]";
+IsBAMInitialDataParfile::usage="IsBAMInitialDataParfile[ filecontent_]";
+IsBAMEvolutionDirectory::usage="IsBAMEvolutionDirectory[dirname_?StringQ]";
+ParfileInDirectory::usage="ParfileInDirectory[dirname_?StringQ]";
+levelFun::usage="levelFun[str_]";
+HasModesDirectory::usage="HasModesDirectory[dirname_?StringQ]";
+HasModesFiles::usage="HasModesFiles[dirname_?StringQ,pattern_?StringQ], pattern can e.g. be  \"hmod*\"";
+ModesDirectory::usage="ModesDirectory[dirname_?StringQ]";
+
+BAMDataDirectories::usage="BAMEvolutionDataDirectories[runName_?StringQ,
+   OptionsPattern[{
+\"RunsRoot\"       \[Rule] HomeDirectory,
+\"ReducedRoot\"    \[Rule] HomeDirectory ,
+\"TraverseLevels\" \[Rule] 4}]] searches for the evolution and reduced-data directories for a specific run";
+
+
+LocateInitialDataDirectory::usage="LocateInitialDataDirectory[rootDir_, psidfile_]";
+InitialDataParameters::usage="InitialDataParameters[idDir_, psidfile_]";
+
+ParfileToRules::usage="ParfileToRules[filename_String] converts a parameter file to a list of rules.";
+BAMParfileToRules::usage="BAMParfileToRules[filename_String] coverts a initial data parameter file to a list of rules.";
+SXSMetaFilesToRules::usage="SXSMetaFilesToRules[filename_String] converts a SXS metadata.txt file to a list of rules.";
+SXSParClassification::usage="SXSParClassification[sxsdir_,ClassStr_]. Given a list of SXS NR. data folders 'sxsdir', it returns all the cases that match a certain criterion 'ClassStr' (MassRatio range, Precessing or not, Initial Distance, Orbits Number)taking as reference the SXS metadata.txt files. If it is used iteratively, one could do different classifications ";
+BAMMetaFilesToRules::usage="BAMMetaFilesToRules[filename_String] converts a BAM .bbh file to a list of rules."
+RITMetaFilesToRules::usage="RITMetaFilesToRules[filename_String] converts a RIT Metadata file to a list of rules.";
+RITParClassification::usage="RITParClassification[ritdir_,ClassStr_]. Given a list of RIT NR. data folders 'ritdir', it returns all the cases that match a certain criterion 'ClassStr' (MassRatio range, Precessing or not, Initial Distance, Orbits Number)taking as reference the RIT metadata.txt files. If it is used iteratively, one could do different classifications ";
+
+
+BAMStringParameter::usage="BAMStringParameter[directory_, parametername_]";
+BAMNumberParameter::usage="BAMNumberParameter[directory_, parametername_]";
+BAMNumberParameterInFile::usage="BAMNumberParameterInFile[file_, parametername_]";
+BAMNumberParametersInFile::usage="BAMNumberParametersInFile[file_, parametername_]";
+BAMNumberParameters::usage="BAMNumberParameters[directory_, parametername_]";
+PSIDHashedNumberParameter::usage="PSIDHashedNumberParameter[file_, parametername_]";
+PSIDNumberParameter::usage="PSIDNumberParameter[file_, parametername_]";
+PSIDReadHeader::usage="PSIDReadHeader[file_]";
+PSIDReadData::usage="PSIDReadData[file_] reads initial data for function \!\(\*FormBox[\(\(\*SubscriptBox[\(U\), \(ijk\)] = \\\ \(TraditionalForm\`\(\(U\)\((\)\*SubscriptBox[\(A\), \(i\)]\)\), \(TraditionalForm\`\*SubscriptBox[\(B\), \(j\)]\), \(TraditionalForm\`\*SubscriptBox[\(\[CurlyPhi]\), \(k\)]\)\)
+StyleBox[\")\",\nFontSize->10]\),
+TraditionalForm]\). The function which appears in the conformal factor is u = (A-1)U";
+
+PSID2Rules::usage="PSID2Rules[filename_?StringQ] converts a BAM PSID file to a list of rules.";
+
+NMovingLevels::usage="NMovingLevels[parRules_] computes the number of moving levels in a BAM parameter file from a list of rules parRules, which corresponds to the content of the parameter file.";
+
+
+CreateDataReduceDirectory::usage="CreateDataReduceDirectory[dirname_],
+ CreateDataReduceDirectory[reduceroot_, dirname_]";
+LocateMode::usage="LocateMode[modeDir_, lmode_, mmode_]";
+LocateModes::usage="LocateModes[modeDir_, lmode_, mmode_]";
+CopyL2mode::usage="CopyL2mode[configStr_, modesdir_, reducedir_]";
+CopyL2modes::usage="CopyL2modes[configStr_, modesdir_, reducedir_]";
+CopyModes::usage="CopyModes[configStr_, modesdir_, reducedir_, Lmode_, Mmode_] ";
+CopyFiles::usage="CopyFiles[configStr_, modesdir_, reducedir_, patterns_]";
+
+
+FormatPunctureData::usage="FormatPunctureData[mp_,string_,M_].";
+SafeFormatPunctureData2::usage="SafeFormatPunctureData2[mp1_,mp2_,string_,m1_,m2_].";
+SafeFormatPunctureDataCactus::usage="SafeFormatPunctureDataCactus[mp_,string_,m1_,m2_].";
+
+BAMModesFilesTo3Col::usage="BAMModesFilesTo3Col[modesFile_] reads BAM style {r,i}psi4modes_* files and saves the content in 3-colums
+format as {time,Re@values,Im@values};"
+
+BAMHorizonFilesToNRARFiles::usage="BAMHorizonFilesToNRARFiles[File_,OptionsPattern[{\"DeleteSourceFiles\" \[Rule] False}]]
+ converts a BAM-style horizon file to NRAR-style horizon mass, spin, and horizon trajectory files.";
+
+BAMTrajectoryFileTo4Col::usage="BAMTrajectoryFileTo4Col[File_,OptionsPattern[{\"DeleteSourceFiles\" \[Rule] False}]]
+converts a BAM-style puncture trajectory file to NRAR-style trajectory file.";
+
+
+BAMExtractionRadii::usage="BAMExtractionRadii[modesdir_] lists all BAM extraction radii for psi4.";
+
+SymmetriesFromParfile::usage="SymmetriesFromParfile[parfile_].";
+
+WriteModeDecompConfigFile::usage="WriteModeDecompConfigFile[DirectoryRules_?ListQ]";
+
+WaveExtractionRadii::usage="WaveExtractionRadii[rootDir_, modesDir_]";
+ADMReduce::usage="ADMReduce[rootDir_, reduceDir_]";
+BBHDataReduce::usage="BBHDataReduce[modesdir_, IDroot_, ReduceRoot_]";
+
+CurateBBHData::usage="CurateBBHData[modesdir_, IDroot_, ReduceRoot_] is a new development version of BBHDataReduce.";
+
+NRARPsi4ToStrain::usage="NRARPsi4ToStrain[metaFile_,LMAX_,\[Omega]GWStart_] reads a NRAR-style metadata file and converts 
+psi4 modes to strain using the FFI algorithm, exporting the results to a directory FFIStrainModes.";
+
+
+CactusThornsAvailable::usage="CactusThornsAvailable[cactusdir_] list available Cactus thorns.";
+NormalizeCactusParfile::usage="NormalizeCactusParfile[parfile_,cactusDir_,OptionsPattern[
+{\"ThornListOutputFile\"\[Rule] \"\",\"ParameterOutputFile\"\[Rule] \"\"}]] normalizes a Cactus parfile for easier comparison or parsing.";
+
+CompleteCactusParfile::usage="CompleteCactusParfile[parfile_,cactusDir_,OptionsPattern[
+{\"ThornListOutputFile\"\[Rule] \"\",\"ParameterOutputFile\"\[Rule] \"\"}]]";
+
+SetParfileEntryValue::usage="SetParfileEntryValue[text_,key_,value_]";
+SetParfileValue::usage="SetParfileValue[text_,key_,value_]";
+SetParfileVectorValue::usage="SetParfileVectorValue[text_,key_,component_,value_]";
+
+
+SXSLuminosityFromMetaFiles::usage="SXSLuminosityFromMetaFiles:[metaFile_,modes_]; Computes Luminosity from the SXS metadata given a list of modes";
+
+
+AHBAMsmall::usage="AHBAMsmall[q,s]. Computes the aparent horizon (horizon radius) for the smallest black hole in the BAM coordinates. See notebook /BBHReduce/AparentHorizonFit.nb"
+AHBAMbig::usage="AHBAMbig[q,s]. Computes the aparent horizon (horizon radius) for the biggest black hole in the BAM coordinates. See notebook /BBHReduce/AparentHorizonFit.nb"
+AHBAMsmall2017::usage="AHBAMsmall2017[q,s]. Computes the aparent horizon (horizon radius) for the smallest black hole in the BAM coordinates. See notebook /BBHReduce/AparentHorizonFit.nb"
+AHBAMbig2017::usage="AHBAMbig2017[q,s]. Computes the aparent horizon (horizon radius) for the biggest black hole in the BAM coordinates. See notebook /BBHReduce/AparentHorizonFit.nb"
+
+
+Begin["`Private`"];
+
+
+ValPrint[x_?StringQ]:=Print[First@StringSplit[x,"$"]<>" = ",ToExpression@x]
+
+
+RunsFromRunsFile[file_?StringQ]:=Module[{content,runs},
+content = StringSplit[Import[file,"String"],EndOfLine];
+
+runs=Flatten@Map[StringCases[#,"*"~~x:Except[WhitespaceCharacter]...~~  WhitespaceCharacter... -> x]&, content];
+StringTrim[#,RegularExpression["/$"]]&/@runs
+];
+
+
+ContainsRun[directory_,runIdentifierStrings_]:=Length@Intersection[{LastInPath@directory},runIdentifierStrings]>0
+
+
+IsBAMObsoleteDirectory[dirname_?StringQ]:=StringMatchQ[dirname, "*_old"]||StringMatchQ[dirname, "*_previous"]
+
+
+IsBAMEvolutionParfile[fileORfilecontent_]:=Module[{joined},
+
+If[ListQ@fileORfilecontent,
+joined=StringJoin@fileORfilecontent;,
+
+If[FileType@fileORfilecontent == File,
+  joined = StringJoin@Import[fileORfilecontent,"String"];
+];
+];
+
+StringMatchQ[joined,"*bampi_*"]&&
+StringMatchQ[joined,"*amr*"]&&StringMatchQ[joined,"*physics*"]
+];
+
+
+IsBAMInitialDataParfile[ fileORfilecontent_]:=Module[{joined},
+
+If[FileType@fileORfilecontent == File,
+joined = StringJoin@Import[fileORfilecontent,"String"];
+];
+
+If[ListQ@fileORfilecontent,
+joined=StringJoin@fileORfilecontent;
+];
+
+ StringMatchQ[joined,"*nx*"]&&
+StringMatchQ[joined,"*iterate*"]&&StringMatchQ[joined,"*physics*"]
+];
+
+
+IsBAMEvolutionDirectory[dirname_?StringQ]:=Module[{parfiles,content,i},
+
+parfiles=Join[
+FileNames["*.par",dirname],
+FileNames["*.par.gz",dirname],
+FileNames["*.par.bz2",dirname]];
+
+content=Table[Import[parfiles[[i]],"String"],{i,1,Length@parfiles}];
+
+IsBAMEvolutionParfile@content
+]
+
+
+ParfileInDirectory[dirname_?StringQ,OptionsPattern[{"Style"-> "BAM"}]]:=Module[{guess,parfiles,sel,style},
+
+style = OptionValue["Style"];
+
+guess=dirname<>"/"<>LastInPath@dirname<>".par";
+If[FileType@guess == File, 
+
+ sel = guess,
+
+ parfiles=Join[
+  FileNames["*.par",dirname],
+  FileNames["*.par.gz",dirname],
+  FileNames["*.par.bz2",dirname]
+  ];
+
+Print[parfiles];
+
+sel=Switch[style,
+"BAM",First@Select[parfiles, IsBAMEvolutionParfile@# || IsBAMInitialDataParfile@# &],
+"Cactus",First@parfiles,
+_,First@parfiles
+];
+];
+
+Print["ParfileInDirectory identifies parameter file ", sel];
+
+sel
+];
+
+
+levelFun[str_]:=ToExpression@First@StringCases[str,"hmod.r"~~r:NumberString..~~".l"~~l:NumberString-> {r,l}];
+
+
+HasModesDirectory[dirname_?StringQ]:=
+safeDirectoryQ[StringReplace[dirname<>"/Modes","//"->"/"]]||
+safeDirectoryQ[StringReplace[dirname<>"/Analysis","//"->"/"]]||
+safeDirectoryQ[StringReplace[dirname<>"/analysis","//"->"/"]]||
+safeDirectoryQ[StringReplace[dirname<>"/Psi4ModeDecomp","//"->"/"]]||
+safeDirectoryQ[StringReplace[dirname<>"/NinjaCleanPsi","//"->"/"]]
+
+
+HasModesFiles[dirname_?StringQ,pattern_?StringQ]:=Length@FileNames[pattern,dirname,2]>0
+
+
+ModesDirectory[dirname_?StringQ,pattern_?StringQ]:=Module[{sel},
+
+sel = Select[FileNames["*",dirname],FileType@# == Directory&];
+sel = Select[sel,HasModesFiles[#,pattern]&];
+
+If[Length@sel > 0, First@sel,""]
+];
+
+
+BAMDataDirectories[runName_?StringQ,
+   OptionsPattern[{
+"RunsRoot"        -> HomeDirectory,
+"ReducedRoot"     -> Global`BBHDataDir,
+"InitialDataRoot" -> HomeDirectory,
+"TraverseLevels" -> 4}]
+]:=Module[{RunsRoot,ReducedRoot,TraverseLevels,runsFound,
+RunsDirectories,obsolete,reducedFound,ReducedDirectories,evolDirHasModes,reducedDirHasModes,
+evolutionModesDir,reducedModesDir,psidfile,InitialDataRoot,IDDir},
+
+RunsRoot        = OptionValue["RunsRoot"];
+ReducedRoot     = OptionValue["ReducedRoot"];
+InitialDataRoot = OptionValue["InitialDataRoot"];
+TraverseLevels  = OptionValue["TraverseLevels"];
+
+(* directory with the original run *)
+runsFound = FileNames[runName,RunsRoot,TraverseLevels];
+Print["Found runs directories:            ", RunsDirectories = Select[runsFound,FileType@#==Directory&]];
+Print[" - evolution directories:          ", RunsDirectories = Select[RunsDirectories,IsBAMEvolutionDirectory]];
+obsolete = Select[RunsDirectories,IsBAMObsoleteDirectory];
+Print[" - valid evolution directories:    ", RunsDirectories = Complement[RunsDirectories,obsolete]];
+
+If[Length@RunsDirectories == 1, 
+  RunsDirectories = RunsDirectories[[1]];
+  Print["Evolution directory has psi4 modes: ", evolDirHasModes = HasModesFiles[RunsDirectories,"psi3col*"]];, 
+  Print["No unique runs directory found"];
+  RunsDirectories = False;
+  evolDirHasModes = False;
+];
+
+
+(* directory with reduced data *)
+reducedFound = FileNames[RunDir,ReducedRoot,TraverseLevels];
+Print["Found reduced-data directories: ", ReducedDirectories=Select[reducedFound,FileType@#==Directory&]];
+
+If[Length@ReducedDirectories == 1, 
+  ReducedDirectories = ReducedDirectories[[1]];
+  Print["Reduced directory has psi4 modes:",  reducedDirHasModes = HasModesFiles[ReducedDirectories,"psi3col*"]];, 
+  Print["No unique reduced-data directory found"];
+  ReducedDirectories = False;
+  reducedDirHasModes = False;
+];
+
+If[evolDirHasModes,    evolutionModesDir = ModesDirectory[ReducedDirectories,"psi3*"], evolutionModesDir = False];
+If[reducedDirHasModes, reducedModesDir   = ModesDirectory[RunsDirectories,   "psi3*"],   reducedModesDir = False];
+
+
+If[StringQ@RunsDirectories,
+ psidfile = BAMStringParameter[RunsDirectories,"punctures_ps_file"];
+ psidfile = Last@StringSplit[psidfile,"/"];
+ psidfile = StringReplace[psidfile," "->""];
+ Print["psid-file determined from evolution parameter file as: ", psidfile];
+ IDDir = LocateInitialDataDirectory[InitialDataRoot,psidfile];,
+ IDDir = False;
+];
+
+{"EvolutionDirectory" -> RunsDirectories, "ReducedDirectory" -> ReducedDirectories,
+"EvolutionDirectoryHasModes" -> evolDirHasModes,"ReducedDirectoryHasModes" -> reducedDirHasModes,
+"EvolutionModesDir"-> evolutionModesDir, "ReducedModesDir"-> reducedModesDir, "InitialDataDir" -> IDDir, 
+"PSIDFile"-> IDDir<> "/"<> psidfile}
+]
+
+
+LocateInitialDataDirectory[rootDir_,psidfile_]:=Module[{file,psidFiles,levels=5,guess,result},
+file=StringReplace[psidfile," "->""];
+guess=rootDir<>"/"<>StringSplit[file,"."][[1]]<>"/"<>file;
+Print["Making guess for psid file:", guess];
+If[FileType@guess==File,
+Print["guessed id-file confirmed to be ",guess];
+result=rootDir<>"/"<>StringSplit[file,"."][[1]];
+Print["Taking as psid-result: ", result];
+Return[result]
+];
+
+Print["Looking for psid file: ",file," in directory ",rootDir];
+psidFiles=Union@FileNames[file,rootDir,levels];
+Print["Found matching psid-files:",psidFiles];
+
+If[Length@psidFiles>1,Print["taking first psid-file"];
+];
+
+If[psidFiles!={},
+result=DropLastDirectory[First@psidFiles];,Print["ERROR: LocateInitialDataDirectory could not locate ID-directory"];
+result="";
+];
+
+ToString@result
+];
+
+
+InitialDataParameters[psidfile_]:=Module[{file,m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z,
+x1,y1,z1,x2,y2,z2,px1,py1,pz1,px2,py2,pz2},
+
+file=psidfile;
+Print["InitialDataParameters: Processing psidfile ", file]; 
+m1=PSIDHashedNumberParameter[file,"M1"];
+m2=PSIDHashedNumberParameter[file,"M2"];
+madm=PSIDHashedNumberParameter[file,"Madm"];
+
+sep=PSIDHashedNumberParameter[file,"d"];
+abschi1=PSIDHashedNumberParameter[file,"S1/M1^2"];
+abschi2=PSIDHashedNumberParameter[file,"S2/M2^2"];
+
+s1x=PSIDNumberParameter[file,"bhsx1"];
+s1y=PSIDNumberParameter[file,"bhsy1"];
+s1z=PSIDNumberParameter[file,"bhsz1"];
+
+s2x=PSIDNumberParameter[file,"bhsx2"];
+s2y=PSIDNumberParameter[file,"bhsy2"];
+s2z=PSIDNumberParameter[file,"bhsz2"];
+
+x1=PSIDNumberParameter[file,"bhx1"];
+y1=PSIDNumberParameter[file,"bhy1"];
+z1=PSIDNumberParameter[file,"bhz1"];
+
+x2=PSIDNumberParameter[file,"bhx2"];
+y2=PSIDNumberParameter[file,"bhy2"];
+z2=PSIDNumberParameter[file,"bhz2"];
+
+px1=PSIDNumberParameter[file,"bhpx1"];
+py1=PSIDNumberParameter[file,"bhpy1"];
+pz1=PSIDNumberParameter[file,"bhpz1"];
+
+px2=PSIDNumberParameter[file,"bhpx2"];
+py2=PSIDNumberParameter[file,"bhpy2"];
+pz2=PSIDNumberParameter[file,"bhpz2"];
+
+{m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z,{x1,y1,z1},{x2,y2,z2},{px1,py1,pz1},{px2,py2,pz2}}
+];
+
+
+InitialDataParameters[idDir_,psidfile_]:=Module[{file},
+
+file=idDir<>"/"<>psidfile;
+
+InitialDataParameters[file]
+];
+
+
+ParfileToRules[filename_String]:=Module[{parlines,rules},
+	parlines=ReadList[filename,String];
+
+	rules=Flatten[DefinitionsFromString/@parlines];
+
+	(*modify selected rules*)
+	rules=ReplaceRuleInRuleList[rules,"amr_nxyz",ToExpression/@StringSplit["amr_nxyz"/.rules]];
+
+	rules
+]
+
+
+BAMParfileToRules[filename_String]:=Module[{parlines,rules,par1,rules2,pos,rulesPn,var,value,list},
+	parlines=ReadList[filename,String];
+
+    rules=Delete[parlines,Position[StringMatchQ[parlines,"*#*"],True]];
+    rulesPn=StringTrim/@StringSplit[Flatten@StringSplit[Flatten[StringSplit[Select[parlines,StringMatchQ[#,"#$$*"]&],"#"]],"$$"],"="];
+    (*pos=Flatten@Position[TakeColumn[rules2,1],StringMatchQ[" ",#]&,True];*)
+  
+(*	
+	(*modify selected rules*)
+	rules=ReplaceRuleInRuleList[rules,"amr_nxyz",ToExpression/@StringSplit["amr_nxyz"/.rules]];
+*)
+	
+    rules=StringTrim/@StringSplit[rules,"="];
+    rulesPn=Flatten[ToExpression@StringReplace[ToString/@Select[StringSplit[ToString/@rulesPn," "],Length@#==2&],",,"->","],1];
+    rules=Join[rules,rulesPn];
+
+    var=ToString/@rules[[All,1]];
+    value=ToExpression/@rules[[All,2]];
+   
+    
+    list={};
+    Do[
+      If[IsFPNumberQ@value[[i]],
+	  value[[i]]=(StringToNumber@#)&/@value[[i]];
+        ];
+      list=AppendTo[list,{var[[i]]->value[[i]]}];
+     ,
+      {i,1,Length@value}];
+   
+     Flatten@list
+
+]
+
+
+SXSMetaFilesToRules[filePath_]:=Module[{filepath,fileList,meta1,pos1,meta2,meta3,meta4,value,var,list},
+
+
+If[ListQ@filePath,filepath=filePath[[1]],filepath=filePath];
+If[Not@FileExistsQ@filepath,Print["File not found"];Return[]];
+
+(*Reading the file*)
+fileList=ReadList[filepath,String];
+(*Delete comments*)
+
+meta1=Delete[fileList,Position[StringMatchQ[fileList,"#*"],True]];
+
+(*Fix eccentricity*)
+meta1[[Flatten@Position[StringMatchQ[meta1,"*<*e-*"],True]]]=StringReplace[meta1[[Flatten@Position[StringMatchQ[meta1,"*<*e-*"],True]]],"<"->""];
+
+(*Find = *)
+meta2=meta1[[Flatten@Position[StringMatchQ[meta1,"*=*"],True]]];
+
+meta3=StringSplit[meta2,"="];
+
+(* Select non-empty fields*)
+meta3=Select[meta3,Length@#>1&];
+
+(*Delete spaces*)
+meta4=Transpose[{StringReplace[meta3[[All,1]]," "->""],StringReplace[meta3[[All,2]]," "->""]}];
+
+var=meta4[[All,1]];
+value=meta4[[All,2]];
+
+value=StringSplit[#,","]&/@value;
+(*Delete empty elements*)
+(*value=Select[value, UnsameQ[#, {}] &];*)
+
+list={};
+Do[
+If[Length@value[[i]]==0,
+      {}
+     ,
+      If[IsFPNumberQ@value[[i,1]],
+	  value[[i]]=(StringToNumber@#)&/@value[[i]];
+        ];
+      list=AppendTo[list,{var[[i]]->value[[i]]}];
+     ];
+,
+{i,1,Length@value}];
+
+Flatten@list
+
+]
+
+
+RITMetaFilesToRules[filePath_]:=Module[{filepath,fileList,meta1,pos1,meta2,meta3,meta4,value,var,list},
+
+
+If[ListQ@filePath,filepath=filePath[[1]],filepath=filePath];
+If[Not@FileExistsQ@filepath,Print["File not found"];Return[]];
+
+(*Reading the file*)
+fileList=ReadList[filepath,String];
+(*Delete comments*)
+
+meta1=Delete[fileList,Position[StringMatchQ[fileList,"#*"],True]];
+
+(*Fix eccentricity*)  
+(*meta1[[Flatten@Position[StringMatchQ[meta1,"*<*e-*"],True]]]=StringReplace[meta1[[Flatten@Position[StringMatchQ[meta1,"*<*e-*"],True]]],"<"\[Rule]""];*)
+(*We do not have < in the MetaFiles of RIT*)
+
+(*Find = *)
+meta2=meta1[[Flatten@Position[StringMatchQ[meta1,"*=*"],True]]];
+
+meta3=StringSplit[meta2,"="];
+
+(* Select non-empty fields*)
+meta3=Select[meta3,Length@#>1&];
+
+(*Delete spaces*)
+meta4=Transpose[{StringReplace[meta3[[All,1]]," "->""],StringReplace[meta3[[All,2]]," "->""]}];
+
+var=meta4[[All,1]];
+value=meta4[[All,2]];
+
+value=StringSplit[#,","]&/@value;
+(*Delete empty elements*)
+(*value=Select[value, UnsameQ[#, {}] &];*)
+
+list={};
+Do[
+If[Length@value[[i]]==0,
+      {}
+     ,
+      If[IsFPNumberQ@value[[i,1]],
+	  value[[i]]=(StringToNumber@#)&/@value[[i]];
+        ];
+      list=AppendTo[list,{var[[i]]->value[[i]]}];
+     ];
+,
+{i,1,Length@value}];
+
+Flatten@list
+
+]
+
+
+BAMMetaFilesToRules[filePath_]:=Module[{filepath,fileList,meta1,pos1,meta2,meta3,meta4,value,var,list,pos,rads,posdel},
+
+
+If[ListQ@filePath,filepath=filePath[[1]],filepath=filePath];
+If[Not@FileExistsQ@filepath,Print["File not found"];Return[]];
+
+(*Reading the file*);
+fileList=ToString/@ReadList[filepath,String];
+
+(*Delete comments*)
+meta1=Delete[fileList,Position[StringMatchQ[fileList,"*#*"],True]];
+
+(*Find = *)
+meta2=meta1[[Flatten@Position[StringMatchQ[meta1,"*=*"],True]]];
+meta3=StringSplit[meta2,"="];
+(*Select non-empty arrays*)
+meta4=Select[meta3,Length@#==2&];
+
+(*Delete spaces*)
+meta4=Transpose[{StringTrim/@meta4[[All,1]],StringTrim/@meta4[[All,2]]}];
+(*Delete empty elements*)
+meta4=Select[meta4, UnsameQ[#[[2]], {}] &];
+
+var=meta4[[All,1]];
+value=meta4[[All,2]];
+
+value=StringSplit[#,","]&/@value;
+
+list={};
+Do[
+If[Length@value[[i]]==0,
+      {}
+     ,
+      If[IsFPNumberQ@value[[i,1]],
+	  value[[i]]=(StringToNumber@#)&/@value[[i]];
+        ];
+      list=AppendTo[list,{var[[i]]->value[[i]]}];
+     ];
+,
+{i,1,Length@value}];
+
+list=Flatten@list;
+
+(* Fix extraction radius repetition. Assume that the first entry is finite-radii *)
+pos=Position[Flatten@list,"extraction-radius"];
+rads=Select[Flatten@list[[pos[[All,1]],2]],NumberQ@#&];
+list[[pos[[1,1]],2]]=rads;
+posdel=Partition[TakeColumn[pos,1][[2;;-1]],1];
+list=Delete[list,posdel];
+
+(* Gather together the extraction radius per each mode *)
+pos=Select[DuplicatesPosition[list[[All,1]]],Length@#>1&];
+Do[list[[pos[[i,1]],2]]=Flatten@Join[{list[[pos[[i,1]],2]]},list[[pos[[i,2;;-1]],2]]],{i,Length@pos}];
+posdel=Partition[Flatten@Table[pos[[i,2;;-1]],{i,Length@pos}],1];
+
+list=Delete[list,posdel]
+
+]
+
+
+SXSParClassification[sxsdir_?ListQ,ClassStr_?ListQ,OptionsPattern[{"\[Epsilon]"->0.001,"HighSpin"->0.8,"UnRepeated"->False,"Verbose"->False,"Mass1-Str"->"initial-mass1","Mass2-Str"->"initial-mass2"}]]:=Module[{metafiles,metadata,
+orbitStr="number-of-orbits",dStr="initial-separation",mass1Str,mass2Str,spin1Str="initial-dimensionless-spin1",
+spin2Str="initial-dimensionless-spin2",eccStr="relaxed-eccentricity",spin1Dim,spin2Dim,mass1,mass2,massratio,eccentricity,dist,orbit,select,pos,condition,A1,A2,precvalue,precvalueNorm,\[Epsilon],
+spin1Norm,spin2Norm,highspin,spintest,\[Chi]eff,sxsdirout,spinz,spinzDiff,auxDist,posdup,posdupDist,posdistecc,unrepeated,verbose,sxsdiroutaux,precvalue1,precvalue2,precvalueNorm1,precvalueNorm2},
+
+Print["Classification Input Variables. Examples: {{'MassRatio', '0.99<#<1.1'}},{{'Distance', '#>16'}},{{'Orbits', '#>25'}},{{'Precessing'}},
+{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}"];
+Print["Take care! Some of the sxs file names are not consistent with the metadata files"];
+Print["The spin definition is consitent with 'initial-spin' values and not relaxed ones"];
+Print["The mass definition is consitent with 'initial-mass' values and not relaxed ones"];
+
+mass1Str=OptionValue["Mass1-Str"];
+mass2Str=OptionValue["Mass2-Str"];
+
+(* Kill the loop if the root directory is wrong *)
+If[And@@(Not/@DirectoryQ/@sxsdir),Print[Style["Directory not found",Red]];Return[{}]];
+
+(* Useful function to detect the duplicates *)
+positionDuplicates[listaux_]:=GatherBy[Range@Length[listaux],listaux[[#]]&];
+
+sxsdirout=sxsdir;
+
+\[Epsilon]=OptionValue["\[Epsilon]"];
+highspin=OptionValue["HighSpin"];
+unrepeated=OptionValue["UnRepeated"];
+verbose=OptionValue["Verbose"];
+
+metafiles=Flatten[FileNames["metadata.txt",#,4]&/@sxsdirout,1];
+metadata=SXSMetaFilesToRules[#]&/@metafiles;
+mass1=Flatten@((mass1Str/.#)&/@metadata);
+mass2=Flatten@((mass2Str/.#)&/@metadata);
+massratio=mass1/mass2;
+dist=Flatten@((dStr/.#)&/@metadata);
+orbit=Flatten@((orbitStr/.#)&/@metadata);
+spin1Dim=((spin1Str/.#)&/@metadata);
+spin2Dim=((spin2Str/.#)&/@metadata);
+A1=(1+3 massratio/(4.));
+A2=(1+3 /(4.*massratio) );
+\[Chi]eff=massratio/(1.+massratio)*spin1Dim +1./(1+massratio)*spin2Dim;
+eccentricity=Flatten[(eccStr/.#)&/@metadata];
+spinz=Chop/@Transpose[{TakeColumn[spin1Dim,3],TakeColumn[spin2Dim,3]}];
+spinzDiff=Abs[(#[[2]]-#[[1]])&/@spinz];
+condition=ClassStr[[All,1]];
+select=Table[If[Length@ClassStr[[i]]==2,ToExpression@(ClassStr[[i,2]]),"Null"],{i,1,Length@ClassStr}];
+pos=Table[i,{i,Length@sxsdirout}];
+
+Do[
+
+Which[condition[[i]]=="MassRatio",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[massratio,_?(Evaluate[select[[i]]]&)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "Distance",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[sxsdirout=sxsdirout[[pos]];,_?(Evaluate[select[[i]]]&)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "Orbits",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[orbit,_?(Evaluate[select[[i]]]&)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "Non-Precessing",
+
+(*precvalue=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1+(spin2Dim)A2);*)
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+pos=Flatten@Position[precvalueNorm,_?(#<\[Epsilon] &)];
+
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "Unequal",
+
+pos=Flatten@Position[spinzDiff,_?(#>\[Epsilon] &)];
+
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]=="Precessing",
+
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+
+(*precvalue=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1+(spin2Dim)A2);*)
+
+pos=Flatten@Position[precvalueNorm,_?(#>\[Epsilon] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "High-Spin",
+
+spin1Norm=Norm[#]&/@spin1Dim;
+spin2Norm=Norm[#]&/@spin2Dim;
+
+spintest=Table[If[Abs@spin1Norm[[i]]>=highspin || Abs@spin2Norm[[i]]>=highspin,True,False],{i,1,Length@spin1Norm}];
+pos=Flatten@Position[spintest,True];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "\[Chi]eff",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@\[Chi]eff,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "\[Chi]1",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@spin1Dim,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+condition[[i]]== "\[Chi]2",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@spin2Dim,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+
+
+condition[[i]]== "relaxed-eccentricity",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[eccentricity,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+sxsdirout=sxsdirout[[pos]];,
+ True,
+Print[Style["Wrong input",Bold,Red,16]];
+Break[];
+];
+,{i,1,Length@ClassStr}];
+
+
+If[unrepeated,
+
+Print["Taking among the repeated cases only those with lower eccentricity and larger D (just in case ei=ej)"];
+
+(* Selecting Case with lower e *)
+auxDist=Transpose[{Round[#&/@massratio,0.1],Round[Chop[#,10^(-2)],0.01]&/@spin1Dim,Round[Chop[#,10^(-2)],0.01]&/@spin2Dim,dist,eccentricity}];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],5]],Min@auxDist[[posdup[[i]],5]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+sxsdirout=sxsdirout[[posdistecc]];
+
+(* Selecting Case with larger D *)
+auxDist=auxDist[[posdistecc]];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],4]],Max@auxDist[[posdup[[i]],4]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+
+auxDist=auxDist[[posdistecc]];
+sxsdirout=sxsdirout[[posdistecc]];
+sxsdiroutaux=SortBy[Table[Join[{sxsdirout[[i]]},auxDist[[i]]],{i,1,Length@sxsdirout}],#[[2]]&];
+
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@sxsdiroutaux[[i]],{i,1,Length@sxsdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+sxsdiroutaux[[All,1]],
+
+auxDist=Transpose[{Round[#&/@massratio,0.1],Round[Chop[#,10^(-2)],0.01]&/@spin1Dim,Round[Chop[#,10^(-2)],0.01]&/@spin2Dim,dist,eccentricity}];
+(*sxsdiroutaux=Table[Join[{sxsdirout[[i]]},auxDist[[i]]],{i,1,Length@sxsdirout}];*)
+sxsdiroutaux=SortBy[Table[Join[{sxsdirout[[i]]},auxDist[[i]]],{i,1,Length@sxsdirout}],#[[2]]&];
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@sxsdiroutaux[[i]],{i,1,Length@sxsdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+sxsdiroutaux[[All,1]]]
+]
+
+
+SXSParClassification2[sxsdir_?ListQ,ClassStr_?ListQ,OptionsPattern[{"\[Epsilon]"->0.001,"HighSpin"->0.8,"UnRepeated"->False,"Verbose"->False}]]:=Module[{metafiles,metadata,
+orbitStr="number-of-orbits",dStr="initial-separation",mass1Str="relaxed-mass1",mass2Str="relaxed-mass2",spin1Str="relaxed-spin1",spin2Str="relaxed-spin1",
+STTOV="relaxed-spin2",eccStr="relaxed-eccentricity",spin1Dim,spin2Dim,mass1,mass2,massratio,eccentricity,dist,orbit,select,pos,condition,A1,A2,precvalue,precvalueNorm,\[Epsilon],
+spin1Norm,spin2Norm,highspin,spintest,\[Chi]eff,sxsdirout,spinz,spinzDiff,auxDist,posdup,posdupDist,posdistecc,unrepeated,verbose,sxsdiroutaux,precvalue1,precvalue2,
+precvalueNorm1,precvalueNorm2,parmatrix,myindex},
+
+Print["Classification Input Variables. Examples: {{'MassRatio', '0.99<#<1.1'}},{{'Distance', '#>16'}},{{'Orbits', '#>25'}},{{'Precessing'}},
+{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}"];
+Print["Take care! Some of the sxs file names are not consistent with the metadata files"];
+
+
+
+(* Useful function to detect the duplicates *)
+positionDuplicates[listaux_]:=GatherBy[Range@Length[listaux],listaux[[#]]&];
+
+sxsdirout=sxsdir;
+
+\[Epsilon]=OptionValue["\[Epsilon]"];
+highspin=OptionValue["HighSpin"];
+unrepeated=OptionValue["UnRepeated"];
+verbose=OptionValue["Verbose"];
+
+
+metafiles=Flatten[FileNames["metadata.txt",#,4]&/@sxsdirout,1];
+metadata=SXSMetaFilesToRules[#]&/@metafiles;
+
+
+mass1=Flatten@((mass1Str/.#)&/@metadata);
+mass2=Flatten@((mass2Str/.#)&/@metadata);
+
+massratio=mass1/mass2;
+dist=Flatten@((dStr/.#)&/@metadata);
+orbit=Flatten@((orbitStr/.#)&/@metadata);
+spin1Dim=((spin1Str/.#)&/@metadata)/(mass1*mass1);
+spin2Dim=((spin2Str/.#)&/@metadata)/(mass2*mass2);
+\[Chi]eff=massratio/(1.+massratio)*spin1Dim +1./(1+massratio)*spin2Dim;
+spinzDiff=Abs[(#[[2]]-#[[1]])&/@Transpose[{TakeColumn[spin1Dim,3],TakeColumn[spin2Dim,3]}]];
+A1=(1+3. massratio/(4.));
+A2=(1+3. /(4.*massratio) );
+eccentricity=Flatten[(eccStr/.#)&/@metadata];
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+spin1Norm=Norm[#]&/@spin1Dim;
+spin2Norm=Norm[#]&/@spin2Dim;
+
+parmatrix=Transpose[{massratio,dist,orbit,precvalueNorm,spinzDiff,spin1Norm,spin2Norm,\[Chi]eff,spin1Dim,spin2Dim,eccentricity,sxsdirout}];
+
+condition=ClassStr[[All,1]];
+select=Table[If[Length@ClassStr[[i]]==2,ToExpression@(ClassStr[[i,2]]),"Null"],{i,1,Length@ClassStr}];
+
+Do[
+
+Which[condition[[i]]== "MassRatio",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=1;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "Distance",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=2;
+parmatrix=Select[parmatrix,Evaluate[StringReplace[select[[i]],"#"->ToString@(#[[myindex]])&]]];,
+
+condition[[i]]== "Orbits",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=3;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "Non-Precessing",
+
+myindex=4;
+
+parmatrix=Select[parmatrix,#[[myindex]]<\[Epsilon]&];,
+
+condition[[i]]== "Unequal",
+
+myindex=5;
+parmatrix=Select[parmatrix,#[[myindex]]>\[Epsilon]&];,
+
+condition[[i]]== "Precessing",
+
+myindex=6;
+parmatrix=Select[parmatrix,#[[myindex]]>=\[Epsilon]&];,
+
+condition[[i]]== "High-Spin",
+
+myindex=7;
+parmatrix=Select[parmatrix,#[[myindex]]>=highspin& ||#[[myindex+1]]>=highspin& ];,
+
+condition[[i]]== "\[Chi]eff",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=8;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "\[Chi]1",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=9;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "\[Chi]2",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=10;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+ True,
+Print[Style["Wrong input",Bold,Red,16]];
+Break[];
+];
+,{i,1,Length@ClassStr}];
+
+If[unrepeated,
+
+Print["Taking among the repeated cases only those with lower eccentricity and larger D (just in case ei=ej)"];
+
+(* Selecting Case with lower e *)
+auxDist=Transpose[{Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],5]],Min@auxDist[[posdup[[i]],5]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+parmatrix=parmatrix[[posdistecc]];
+
+(* Selecting Case with larger D *)
+auxDist=auxDist[[posdistecc]];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],4]],Max@auxDist[[posdup[[i]],4]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+
+auxDist=auxDist[[posdistecc]];
+parmatrix=parmatrix[[posdistecc]];
+
+parmatrix=SortBy[parmatrix,#[[1]]&];
+sxsdiroutaux=Transpose[{#&/@parmatrix[[All,12]],Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@sxsdiroutaux[[i]],{i,1,Length@sxsdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+parmatrix[[All,12]],
+
+sxsdiroutaux=Transpose[{#&/@parmatrix[[All,12]],Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+
+(*sxsdiroutaux=SortBy[Table[Join[{sxsdirout[[i]]},auxDist[[i]]],{i,1,Length@sxsdirout}],#[[2]]&];*)
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@sxsdiroutaux[[i]],{i,1,Length@sxsdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+parmatrix[[All,12]]]
+]
+
+
+RITParClassification[ritdir_?ListQ,ClassStr_?ListQ,OptionsPattern[{"\[Epsilon]"->0.001,"HighSpin"->0.8,"UnRepeated"->False,"Verbose"->False}]]:=Module[{metafiles,metadata,
+orbitStr="number-of-cycles-22",dStr="initial-separation",mass1Str="initial-mass1",mass2Str="initial-mass2",spin1x="initial-bh-chi1x",spin1y="initial-bh-chi1y",spin1z="initial-bh-chi1z",
+spin2x="initial-bh-chi2x",spin2y="initial-bh-chi2y",spin2z="initial-bh-chi2z",eccStr="eccentricity",spin1Dim,spin2Dim,mass1,mass2,massratio,eccentricity,dist,orbit,select,pos,condition,A1,A2,precvalue,precvalueNorm,\[Epsilon],
+spin1Norm,spin2Norm,highspin,spintest,\[Chi]eff,ritdirout,spinz,spinzDiff,auxDist,posdup,posdupDist,posdistecc,unrepeated,verbose,ritdiroutaux,precvalue1,precvalue2,precvalueNorm1,precvalueNorm2},
+
+Print["Classification Input Variables. Examples: {{'MassRatio', '0.99<#<1.1'}},{{'Distance', '#>16'}},{{'Orbits', '#>25'}},{{'Precessing'}},
+{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}"];
+Print["Take care! Some of the rit file names are not consistent with the metadata files"];
+Print["The spin definition is consitent with 'initial-spin' values and not relaxed ones"];
+
+(* Useful function to detect the duplicates *)
+positionDuplicates[listaux_]:=GatherBy[Range@Length[listaux],listaux[[#]]&];
+
+ritdirout=ritdir;
+
+\[Epsilon]=OptionValue["\[Epsilon]"];
+highspin=OptionValue["HighSpin"];
+unrepeated=OptionValue["UnRepeated"];
+verbose=OptionValue["Verbose"];
+
+
+metafiles=Flatten[FileNames["Metadata",#,2]&/@ritdirout,1];
+metadata=RITMetaFilesToRules[#]&/@metafiles;
+
+mass1=Flatten@((mass1Str/.#)&/@metadata);
+mass2=Flatten@((mass2Str/.#)&/@metadata);
+
+massratio=mass1/mass2;
+dist=Flatten@((dStr/.#)&/@metadata);
+orbit=Flatten@((orbitStr/.#)&/@metadata);
+spin1Dim=(({spin1x,spin1y,spin1z}/.#)&/@metadata)(*/(mass1*mass1)*); (* In RIT the spin is already adimensional *)
+spin2Dim=(({spin2x,spin2y,spin2z}/.#)&/@metadata)(*/(mass2*mass2)*);
+spin1Dim=Flatten[#,1]&/@spin1Dim;
+spin2Dim=Flatten[#,1]&/@spin2Dim;
+Do[  (* This is to set to 0 ths x and y spin components for aligned cases *)
+ Do[
+   If[Not@NumberQ[spin1Dim[[i,j]]],spin1Dim[[i,j]]=0];
+   If[Not@NumberQ[spin2Dim[[i,j]]],spin2Dim[[i,j]]=0];
+ ,{j,1,2}];
+,{i,Length@metadata}];
+A1=(1+3 massratio/(4.));
+A2=(1+3 /(4.*massratio) );
+\[Chi]eff=massratio/(1.+massratio)*spin1Dim +1./(1+massratio)*spin2Dim;
+eccentricity=Flatten[(eccStr/.#)&/@metadata];
+
+spinz=Transpose[{TakeColumn[spin1Dim,3],TakeColumn[spin2Dim,3]}];
+spinzDiff=Abs[(#[[2]]-#[[1]])&/@spinz];
+
+condition=ClassStr[[All,1]];
+select=Table[If[Length@ClassStr[[i]]==2,ToExpression@(ClassStr[[i,2]]),"Null"],{i,1,Length@ClassStr}];
+
+pos=Table[i,{i,1,Length@ritdirout}];
+
+Do[
+
+Which[condition[[i]]== "MassRatio",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[massratio,_?(Evaluate[select[[i]]]&)];
+
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "Distance",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[ritdirout=ritdirout[[pos]];,_?(Evaluate[select[[i]]]&)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "Orbits",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[orbit,_?(Evaluate[select[[i]]]&)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "Non-Precessing",
+
+(*precvalue=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1+(spin2Dim)A2);*)
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+
+pos=Flatten@Position[precvalueNorm,_?(#<\[Epsilon] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "Unequal",
+
+pos=Flatten@Position[spinzDiff,_?(#>\[Epsilon] &)];
+
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "Precessing",
+
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+
+(*precvalue=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1+(spin2Dim)A2);*)
+
+pos=Flatten@Position[precvalueNorm,_?(#>\[Epsilon] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "High-Spin",
+
+spin1Norm=Norm[#]&/@spin1Dim;
+spin2Norm=Norm[#]&/@spin2Dim;
+
+spintest=Table[If[Abs@spin1Norm[[i]]>=highspin || Abs@spin2Norm[[i]]>=highspin,True,False],{i,1,Length@spin1Norm}];
+pos=Flatten@Position[spintest,True];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "\[Chi]eff",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@\[Chi]eff,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "\[Chi]1",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@spin1Dim,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+condition[[i]]== "\[Chi]2",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[Norm[#]&/@spin2Dim,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+
+
+condition[[i]]== "relaxed-eccentricity",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+
+pos=Flatten@Position[eccentricity,_?(Evaluate[select[[i]]] &)];
+massratio=massratio[[pos]];
+dist=dist[[pos]];
+orbit=orbit[[pos]];
+spin1Dim=spin1Dim[[pos]];
+spin2Dim=spin2Dim[[pos]];
+A1=A1[[pos]];
+A2=A2[[pos]];
+spinzDiff=spinzDiff[[pos]];
+eccentricity=eccentricity[[pos]];
+\[Chi]eff=\[Chi]eff[[pos]];
+
+ritdirout=ritdirout[[pos]];,
+ True,
+Print[Style["Wrong input",Bold,Red,16]];
+Break[];
+];
+,{i,1,Length@ClassStr}];
+
+
+If[unrepeated,
+
+Print["Taking among the repeated cases only those with lower eccentricity and larger D (just in case ei=ej)"];
+
+(* Selecting Case with lower e *)
+auxDist=Transpose[{Round[#&/@massratio,0.1],Round[Chop[#,10^(-2)],0.01]&/@spin1Dim,Round[Chop[#,10^(-2)],0.01]&/@spin2Dim,dist,eccentricity}];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],5]],Min@auxDist[[posdup[[i]],5]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+ritdirout=ritdirout[[posdistecc]];
+
+(* Selecting Case with larger D *)
+auxDist=auxDist[[posdistecc]];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],4]],Max@auxDist[[posdup[[i]],4]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+
+auxDist=auxDist[[posdistecc]];
+ritdirout=ritdirout[[posdistecc]];
+ritdiroutaux=SortBy[Table[Join[{ritdirout[[i]]},auxDist[[i]]],{i,1,Length@ritdirout}],#[[2]]&];
+
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@ritdiroutaux[[i]],{i,1,Length@ritdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+ritdiroutaux[[All,1]],
+
+auxDist=Transpose[{Round[#&/@massratio,0.1],Round[Chop[#,10^(-2)],0.01]&/@spin1Dim,Round[Chop[#,10^(-2)],0.01]&/@spin2Dim,dist,eccentricity}];
+(*ritdiroutaux=Table[Join[{ritdirout[[i]]},auxDist[[i]]],{i,1,Length@ritdirout}];*)
+ritdiroutaux=SortBy[Table[Join[{ritdirout[[i]]},auxDist[[i]]],{i,1,Length@ritdirout}],#[[2]]&];
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@ritdiroutaux[[i]],{i,1,Length@ritdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+ritdiroutaux[[All,1]]]
+]
+
+
+ritParClassification2[ritdir_?ListQ,ClassStr_?ListQ,OptionsPattern[{"\[Epsilon]"->0.001,"HighSpin"->0.8,"UnRepeated"->False,"Verbose"->False}]]:=Module[{metafiles,metadata,
+orbitStr="number-of-orbits",dStr="initial-separation",mass1Str="relaxed-mass1",mass2Str="relaxed-mass2",spin1Str="relaxed-spin1",
+spin2Str="relaxed-spin2",eccStr="relaxed-eccentricity",spin1Dim,spin2Dim,mass1,mass2,massratio,eccentricity,dist,orbit,select,pos,condition,A1,A2,precvalue,precvalueNorm,\[Epsilon],
+spin1Norm,spin2Norm,highspin,spintest,\[Chi]eff,ritdirout,spinz,spinzDiff,auxDist,posdup,posdupDist,posdistecc,unrepeated,verbose,ritdiroutaux,precvalue1,precvalue2,
+precvalueNorm1,precvalueNorm2,parmatrix,myindex},
+
+Print["Classification Input Variables. Examples: {{'MassRatio', '0.99<#<1.1'}},{{'Distance', '#>16'}},{{'Orbits', '#>25'}},{{'Precessing'}},
+{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}"];
+Print["Take care! Some of the rit file names are not consistent with the metadata files"];
+
+(* Useful function to detect the duplicates *)
+positionDuplicates[listaux_]:=GatherBy[Range@Length[listaux],listaux[[#]]&];
+
+ritdirout=ritdir;
+
+\[Epsilon]=OptionValue["\[Epsilon]"];
+highspin=OptionValue["HighSpin"];
+unrepeated=OptionValue["UnRepeated"];
+verbose=OptionValue["Verbose"];
+
+
+metafiles=Flatten[FileNames["metadata.txt",#,4]&/@ritdirout,1];
+metadata=ritMetaFilesToRules[#]&/@metafiles;
+
+
+mass1=Flatten@((mass1Str/.#)&/@metadata);
+mass2=Flatten@((mass2Str/.#)&/@metadata);
+
+massratio=mass1/mass2;
+dist=Flatten@((dStr/.#)&/@metadata);
+orbit=Flatten@((orbitStr/.#)&/@metadata);
+spin1Dim=((spin1Str/.#)&/@metadata)/(mass1*mass1);
+spin2Dim=((spin2Str/.#)&/@metadata)/(mass2*mass2);
+\[Chi]eff=massratio/(1.+massratio)*spin1Dim +1./(1+massratio)*spin2Dim;
+spinzDiff=Abs[(#[[2]]-#[[1]])&/@Transpose[{TakeColumn[spin1Dim,3],TakeColumn[spin2Dim,3]}]];
+A1=(1+3. massratio/(4.));
+A2=(1+3. /(4.*massratio) );
+eccentricity=Flatten[(eccStr/.#)&/@metadata];
+precvalue1=(#)\[Cross]{0,0,1}&/@((spin1Dim)A1);
+precvalue2=(#)\[Cross]{0,0,1}&/@((spin2Dim)A2);
+precvalueNorm1=Norm[#]&/@precvalue1;
+precvalueNorm2=Norm[#]&/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+spin1Norm=Norm[#]&/@spin1Dim;
+spin2Norm=Norm[#]&/@spin2Dim;
+
+parmatrix=Transpose[{massratio,dist,orbit,precvalueNorm,spinzDiff,spin1Norm,spin2Norm,\[Chi]eff,spin1Dim,spin2Dim,eccentricity,ritdirout}];
+
+condition=ClassStr[[All,1]];
+select=Table[If[Length@ClassStr[[i]]==2,ToExpression@(ClassStr[[i,2]]),"Null"],{i,1,Length@ClassStr}];
+
+Do[
+
+Which[condition[[i]]== "MassRatio",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=1;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "Distance",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=2;
+parmatrix=Select[parmatrix,Evaluate[StringReplace[select[[i]],"#"->ToString@(#[[myindex]])&]]];,
+
+condition[[i]]== "Orbits",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=3;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "Non-Precessing",
+
+myindex=4;
+
+parmatrix=Select[parmatrix,#[[myindex]]<\[Epsilon]&];,
+
+condition[[i]]== "Unequal",
+
+myindex=5;
+parmatrix=Select[parmatrix,#[[myindex]]>\[Epsilon]&];,
+
+condition[[i]]== "Precessing",
+
+myindex=6;
+parmatrix=Select[parmatrix,#[[myindex]]>=\[Epsilon]&];,
+
+condition[[i]]== "High-Spin",
+
+myindex=7;
+parmatrix=Select[parmatrix,#[[myindex]]>=highspin& ||#[[myindex+1]]>=highspin& ];,
+
+condition[[i]]== "\[Chi]eff",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=8;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "\[Chi]1",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=9;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+condition[[i]]== "\[Chi]2",
+
+If[Length@ClassStr[[i]]!= 2,Print["Wrong input"];Break[]];
+myindex=10;
+pos=Flatten@Position[parmatrix[[All,myindex]],_?(Evaluate[select[[i]]]&)];
+parmatrix=parmatrix[[pos]];,
+
+ True,
+Print[Style["Wrong input",Bold,Red,16]];
+Break[];
+];
+,{i,1,Length@ClassStr}];
+
+
+If[unrepeated,
+
+Print["Taking among the repeated cases only those with lower eccentricity and larger D (just in case ei=ej)"];
+
+(* Selecting Case with lower e *)
+auxDist=Transpose[{Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],5]],Min@auxDist[[posdup[[i]],5]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+parmatrix=parmatrix[[posdistecc]];
+
+(* Selecting Case with larger D *)
+auxDist=auxDist[[posdistecc]];
+posdup=positionDuplicates@auxDist[[All,1;;3]];
+posdistecc=Flatten[#,1]&/@Table[Position[auxDist[[posdup[[i]],4]],Max@auxDist[[posdup[[i]],4]]],{i,1,Length@posdup}];
+posdistecc=Flatten@Table[posdup[[i,posdistecc[[i]]]],{i,1,Length@posdup}];
+
+auxDist=auxDist[[posdistecc]];
+parmatrix=parmatrix[[posdistecc]];
+
+parmatrix=SortBy[parmatrix,#[[1]]&];
+ritdiroutaux=Transpose[{#&/@parmatrix[[All,12]],Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@ritdiroutaux[[i]],{i,1,Length@ritdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+parmatrix[[All,12]],
+
+ritdiroutaux=Transpose[{#&/@parmatrix[[All,12]],Round[#&/@parmatrix[[All,1]],0.1],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,9]],Round[Chop[#,10^(-2)],0.01]&/@parmatrix[[All,10]],parmatrix[[All,2]],parmatrix[[All,11]]}];
+
+(*ritdiroutaux=SortBy[Table[Join[{ritdirout[[i]]},auxDist[[i]]],{i,1,Length@ritdirout}],#[[2]]&];*)
+If[verbose, 
+Print[Prepend[Table[ToString@#&/@ritdiroutaux[[i]],{i,1,Length@ritdiroutaux}],{"Case","q","\[Chi]1","\[Chi]2","D","e"}]//TableForm]];
+
+parmatrix[[All,12]]]
+]
+
+
+BAMStringParameter[directory_,parametername_]:=Module[{file,dirname,content},
+
+file = directory;
+
+ If[TrueQ[FileType@directory == Directory],
+ file=ZippedOrUnzipped@ParfileInDirectory[directory];
+];
+
+Print["BAMStringParameter identified parameter file ",file];
+
+If[FileType@file==File,content=StringSplit[Import[file,"String"],EndOfLine],content={}];
+If[content=={},Print["parameter file does not exist"],content=Map[StringCases[#,StartOfLine~~parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x__~~WhitespaceCharacter...~~EndOfLine->x]&,content];
+content=First@Flatten@content;
+content=First@StringSplit[content,EndOfLine];];
+content
+];
+
+
+BAMNumberParameter[directory_,parametername_]:=Module[{file,dirname,content},
+
+file = directory;
+
+If[TrueQ[FileType@directory == Directory],
+ file=ZippedOrUnzipped@ParfileInDirectory[directory];
+];
+
+Print["BAMStringParameter identified parameter file ",file];
+
+If[FileType@file==File,content=StringSplit[Import[file,"String"],EndOfLine],content={}];
+
+Print["Read ",Length@content, " parameter file entries"];
+
+If[content== {},
+Print["parameter file does not exist"],
+content=Flatten@Map[StringCases[#,parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x:NumberString-> x]&, content];
+content=Map[ToExpression,content];
+
+content=First@Select[content,NumberQ]
+];
+content
+];
+
+
+BAMNumberParameterInFile[file_,parametername_,default_]:=Module[{dirname,content},
+
+If[FileType@file==File,content=StringSplit[Import[file,"String"],EndOfLine],content={}];
+
+If[content== {},
+Print["parameter file does not exist"],
+content=Flatten@Map[StringCases[#,parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x:NumberString-> x]&, content];
+content=Map[ToExpression,content];
+
+If[content == {},
+ content = default,
+ content=First@Select[content,NumberQ]
+]
+];
+content
+];
+
+
+BAMNumberParameterInFile[file_,parametername_]:=BAMNumberParameterInFile[file,parametername,Indeterminate]
+
+
+BAMNumberParametersInFile[file_,parametername_]:=Module[{dirname,content,x},
+
+If[FileType@file==File,content=StringSplit[Import[file,"String"],EndOfLine],content={}];
+
+If[content== {},
+Print["parameter file does not exist"],
+content=Flatten@Map[StringCases[#,parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x__..-> x]&, content];
+
+content=Map[StringSplit[#,"#"]&,content];
+content=Map[First,content];
+content=StringReplace[content,Whitespace-> ","];
+content=Map[StringReplace[#, ","~~EndOfString->""]&,content];
+content=Map["{"<>#<>"}"&,content];
+content=Map[ToExpression,content][[1]]
+];
+content
+];
+
+
+BAMNumberParameters[directory_,parametername_]:=Module[{file,dirname,content,x},
+
+file=ParfileInDirectory[directory];
+file=ZippedOrUnzipped@file;
+Print["Identified parameter file ",file];
+If[FileType@file==File,content=StringSplit[Import[file,"String"],EndOfLine],content={}];
+
+Print["Read ",Length@content, " parameter file entries"];
+
+If[content== {},
+Print["parameter file does not exist"],
+content=Flatten@Map[StringCases[#,parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x__..-> x]&, content];
+
+content=Map[StringSplit[#,"#"]&,content];
+content=Map[First,content];
+content=StringReplace[content,Whitespace-> ","];
+content=Map[StringReplace[#, ","~~EndOfString->""]&,content];
+content=Map["{"<>#<>"}"&,content];
+content=Map[ToExpression,content][[1]]
+];
+content
+];
+
+
+PSIDHashedNumberParameter[file_,parametername_]:=Module[{content,x},
+
+	content = PSIDReadHeader[file];
+
+	If[content == {},
+		Print["psid file does not exist"],
+		content = Flatten@Map[StringCases[#,"# "~~parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x:NumberString-> x]&, content];
+		content = Map[ToExpression,content];
+
+		content = First@Select[content,NumberQ]
+	];
+	content
+];
+
+
+PSIDNumberParameter[file_,parametername_]:=Module[{content,x},
+
+	content = PSIDReadHeader[file];
+
+	If[content == {},
+		Print["psid file does not exist"],
+		content = Flatten@Map[StringCases[#,StartOfLine~~parametername~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x___-> x]&, content];
+		content = Map[StringToNumber,content];
+
+		content = First@Select[content,NumberQ]
+	];
+	content
+];
+
+
+PSIDReadHeader[file_]:=Module[{content,psidStream,str},
+  (* only read the header of the psid file until the ID section starting with "data xx xx xx" *)
+
+	If[FileType@file == File,
+		psidStream = OpenRead[file];
+		content = {}; str = {};
+		While[True,
+			str = Read[psidStream, String]; 
+			If[StringMatchQ[str, RegularExpression["data[\\s\\d+]+"]], 
+				Break[]
+			];
+			AppendTo[content, str];
+		];
+		Close[psidStream];
+		,
+		content = {};
+	];
+	content
+];
+
+
+PSIDReadData[file_]:=Module[{header,data,str,dims},
+	(* helper function to partition flat data *)
+	unflatten[e_,{d__?((IntegerQ[#]&&Positive[#])&)}]:= Fold[Partition,e,Take[{d},{-1,2,-1}]] /;(Length[e]===Times[d]);
+
+	data = {};
+	If[FileType@file == File,
+		psidStream = OpenRead[file];
+		header = {}; data={}; str = {};
+
+		(* read header *)
+		While[True,
+			str = Read[psidStream, String]; 
+			If[StringMatchQ[str, RegularExpression["data[\\s\\d+]+"]], Break[]];
+			AppendTo[header, str];
+		];
+
+	(* get dimensions (nz,ny,nx) *)
+	dims = Reverse@ToExpression@StringCases[str, RegularExpression["\\d+"]];
+
+	(* read data *)
+	data = ReadList[psidStream,Real];
+
+	(* partition into array according to dimensions *)
+	data = unflatten[data, dims];
+	Close[psidStream];
+	];
+
+	data
+];
+
+
+PSID2Rules[filename_?StringQ]:=Module[{M1,M2,x1,y1,z1,x2,y2,z2,px1,py1,pz1
+,px2,py2,pz2,s1x,s1y,s1z,s2x,s2y,s2z,mtot,sep,sepInM,prel,xrel,Madm,m1,m2},
+
+M1=PSIDHashedNumberParameter[filename,"M1"];
+M2=PSIDHashedNumberParameter[filename,"M2"];
+
+Madm=PSIDHashedNumberParameter[filename,"Madm"];
+
+m1=PSIDNumberParameter[filename,"bhmass1"];
+m2=PSIDNumberParameter[filename,"bhmass2"];
+
+x1=PSIDNumberParameter[filename,"bhx1"];
+y1=PSIDNumberParameter[filename,"bhy1"];
+z1=PSIDNumberParameter[filename,"bhz1"];
+
+x2=PSIDNumberParameter[filename,"bhx2"];
+y2=PSIDNumberParameter[filename,"bhy2"];
+z2=PSIDNumberParameter[filename,"bhz2"];
+
+px1=PSIDNumberParameter[filename,"bhpx1"];
+py1=PSIDNumberParameter[filename,"bhpy1"];
+pz1=PSIDNumberParameter[filename,"bhpz1"];
+
+px2=PSIDNumberParameter[filename,"bhpx2"];
+py2=PSIDNumberParameter[filename,"bhpy2"];
+pz2=PSIDNumberParameter[filename,"bhpz2"];
+
+s1x=PSIDNumberParameter[filename,"bhsx1"];
+s1y=PSIDNumberParameter[filename,"bhsy1"];
+s1z=PSIDNumberParameter[filename,"bhsz1"];
+
+s2x=PSIDNumberParameter[filename,"bhsx2"];
+s2y=PSIDNumberParameter[filename,"bhsy2"];
+s2z=PSIDNumberParameter[filename,"bhsz2"];
+
+mtot=M1+M2;
+
+sep={x1,y1,z1}-{x2,y2,z2};
+sep=Sqrt[sep.sep];
+sepInM = sep/mtot;
+
+prel={px1,py1,pz1}-{px2,py2,pz2};
+xrel={x1,y1,z1}-{x2,y2,z2};
+
+
+{"M1"->M1,"M2"->M2,"M"->mtot,
+"x1"->x1,"y1"->y1,"z1"->z1,"px1"->px1,"py1"->py1,"pz1"->pz1,"s1x"->s1x,"s1y"->s1y,"s1z"->s1z,
+"x2"->x2,"y2"->y2,"z2"->z2,"px2"->px2,"py2"->py2,"pz2"->pz2,"s2x"->s2x,"s2y"->s2y,"s2z"->s2z,
+"D[M]"->sepInM, "Madm"-> Madm, "BHMassParam1" -> m1, "BHMassParam2" -> m2 
+}
+]
+
+
+NMovingLevels[parRules_]:="amr_lmax"-"amr_move_lcube"/.parRules
+
+
+CactusThornsAvailable[cactusdir_]:=Module[{arrDir,arrangements,thorns,allThorns},
+
+arrDir=FileNameJoin[{cactusdir,"arrangements"}];
+arrangements=FileNames["*",arrDir];
+arrangements=FileNameTake[#,-2]& /@Select[arrangements,FileType@#==Directory&];
+
+
+thorns=FileNames["*",arrDir,2];
+thorns=FileNameTake[#,-2]& /@ Select[thorns,FileType@#==Directory&];
+allThorns=Select[Complement[thorns,arrangements],Not@StringMatchQ[#,".*"]&];
+
+
+{"Arrangements"-> arrangements, "Thorns"-> allThorns}
+];
+
+
+NormalizeCactusParfile[parfile_,cactusDir_,OptionsPattern[
+{"ThornListOutputFile"-> "","ParameterOutputFile"-> ""}]]:=Module[{temp,arrangements,allThorns,
+import,activeThorns,flatThornList,fullNameThorns,
+outThornList,outcontent,content,i,thorn,outparfile},
+
+outThornList = OptionValue["ThornListOutputFile"];
+outparfile = OptionValue["ParameterOutputFile"];
+
+temp=CactusThornsAvailable@cactusDir;
+arrangements = "Arrangements"/.temp;
+allThorns="Thorns"/.temp;
+
+import = Import[parfile,"String"];
+import=StringReplace[import,{
+"\n "-> " ",
+"\n"~~Whitespace...~~"\""->"\"",
+ "\n"~~Whitespace...~~"="->"\""," "...~~"="->" ="
+}];
+
+
+import=Flatten@StringSplit[StringSplit[import,EndOfLine],"\n"];
+import=Map[StringReplace[#,WhitespaceCharacter...~~x__~~WhitespaceCharacter...~~"#"~~y___->x]&,import];
+import=Map[StringReplace[#,WhitespaceCharacter...~~x__->x]&,import];
+import=Map[StringReplace[#,WhitespaceCharacter...~~"#"~~x___->""]&,import];
+import=Map[StringReplace[#,"\t"->" "]&,import];
+import=Select[import,StringLength@#>1&];
+
+activeThorns=Select[import,StringMatchQ[#,"*ActiveThorns*"]&];
+activeThorns=Map[StringReplace[#,
+  "ActiveThorns"~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x__->x]&,
+   activeThorns];
+activeThorns=Map[StringSplit[#," "]&,activeThorns];
+
+
+flatThornList=Sort@Union@(StringReplace[#,"\""-> ""]&/@Flatten@activeThorns);
+flatThornList=Select[flatThornList,# != ""& ];
+
+fullNameThorns=Flatten@Table[
+Select[allThorns,StringMatchQ[#,"*/"<>flatThornList[[i]]]&],{i,1,Length@flatThornList}];
+
+outcontent=StringJoin[#<>"\n"&/@fullNameThorns];
+
+If[outThornList!= "",
+  Print["Exporting thornlist to file ", outThornList];
+  Export[outThornList,outcontent,"Text"];
+];
+
+temp=Table[thorn=flatThornList[[i]]; {"\nActiveThorns = \""<>thorn<>"\"", 
+  Sort@Union@Select[import,StringMatchQ[#,thorn<>"::*"]&]} ,{i,1,Length@flatThornList}];
+temp = Flatten@{"# thornlist created by NormalizeCactusParfile from file "<>parfile, temp};
+
+If[outThornList!= "",
+  Print["Exporting normalized parameters to file ", outparfile];
+  Export[outparfile,Flatten@temp,"Text"];
+];
+
+
+{"AvailableArrangements"-> arrangements,"AvailableThorns"-> allThorns,
+"ActiveThorns"-> activeThorns,"FullNameThorns"-> fullNameThorns,"Parameters"-> import,
+"NormalizedParfile"-> temp}
+];
+
+
+CompleteCactusParfile[parfile_,cactusDir_,OptionsPattern[
+{"ThornListOutputFile"-> "","ParameterOutputFile"-> ""}]]:=Module[{temp,arrangements,allThorns,
+import,activeThorns,flatThornList,fullNameThorns,
+outThornList,outcontent,content,i,thorn,outparfile},
+
+outThornList = OptionValue["ThornListOutputFile"];
+outparfile = OptionValue["ParameterOutputFile"];
+
+temp=CactusThornsAvailable@cactusDir;
+arrangements = "Arrangements"/.temp;
+allThorns="Thorns"/.temp;
+
+import = Import[parfile,"String"];
+import=StringReplace[import,{
+"\n "-> " ",
+"\n"~~Whitespace...~~"\""->"\"",
+ "\n"~~Whitespace...~~"="->"\""," "...~~"="->" ="
+}];
+
+
+import=Flatten@StringSplit[StringSplit[import,EndOfLine],"\n"];
+import=Map[StringReplace[#,WhitespaceCharacter...~~x__~~WhitespaceCharacter...~~"#"~~y___->x]&,import];
+import=Map[StringReplace[#,WhitespaceCharacter...~~x__->x]&,import];
+import=Map[StringReplace[#,WhitespaceCharacter...~~"#"~~x___->""]&,import];
+import=Map[StringReplace[#,"\t"->" "]&,import];
+import=Select[import,StringLength@#>1&];
+
+(*  *)
+activeThorns=Select[import,StringMatchQ[#,"*ActiveThorns*"]&];
+activeThorns=Map[StringReplace[#,
+  "ActiveThorns"~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x__->x]&,
+   activeThorns];
+activeThorns=Map[StringSplit[#," "]&,activeThorns];
+
+
+flatThornList=Sort@Union@(StringReplace[#,"\""-> ""]&/@Flatten@activeThorns);
+flatThornList=Select[flatThornList,# != ""& ];
+
+fullNameThorns=Flatten@Table[
+Select[allThorns,StringMatchQ[#,"*/"<>flatThornList[[i]]]&],{i,1,Length@flatThornList}];
+
+outcontent=StringJoin[#<>"\n"&/@fullNameThorns];
+
+If[outThornList!= "",
+  Print["Exporting thornlist to file ", outThornList];
+  Export[outThornList,outcontent,"Text"];
+];
+
+
+temp=Table[thorn=flatThornList[[i]]; {"\nActiveThorns = \""<>thorn<>"\"", 
+  Sort@Union@Select[import,StringMatchQ[#,thorn<>"::*"]&]} ,{i,1,Length@flatThornList}];
+temp = Flatten@{"# thornlist created by NormalizeCactusParfile from file "<>parfile, temp};
+
+If[outThornList!= "",
+  Print["Exporting normalized parameters to file ", outparfile];
+  Export[outparfile,Flatten@temp,"Text"];
+];
+
+
+{"AvailableArrangements"-> arrangements,"AvailableThorns"-> allThorns,
+"ActiveThorns"-> activeThorns,"FullNameThorns"-> fullNameThorns,"Parameters"-> import,
+"NormalizedParfile"-> temp}
+];
+
+
+SetParfileEntryValue[text_,key_,value_]:=
+StringReplace[text,key~~ws1:WhitespaceCharacter... ~~\!\(\*
+TagBox[
+StyleBox["\"\<=\>\"",
+ShowSpecialCharacters->False,
+ShowStringCharacters->True,
+NumberMarks->True],
+FullForm]\)~~ws2:WhitespaceCharacter...~~x__~~EndOfLine:> key<>ws1<>"="<>ws2<>ToString@value]
+
+
+SetParfileValue[text_,key_,value_]:=Module[{entry,temp,len,new,x,out},
+
+entry=StringCases[text,Shortest[key~~WhitespaceCharacter...~~"="~~WhitespaceCharacter...~~x___~~EndOfLine]];
+(* Print@entry; *)
+
+out = text;
+
+If[Length@entry > 0,
+  entry=Last@entry;
+
+  new = SetParfileEntryValue[entry,key,value];
+
+  If[StringQ@entry,
+     out = StringReplace[text,entry :>  new];
+  ];
+];
+
+out
+];
+
+
+SetParfileVectorValue[text_,key_,component_,value_]:=Module[{entry,temp,len,new,s,x,out},
+s = "["~~WhitespaceCharacter...~~ ToString@component ~~WhitespaceCharacter...~~ "]"; 
+
+entry = StringCases[text,Shortest[key~~WhitespaceCharacter...~~ s ~~WhitespaceCharacter...~~"= "~~x__~~EndOfLine]];
+(* Print[entry]; *)
+
+out = text;
+
+If[Length@entry > 0,
+entry=Last@entry;
+
+s = "[" <> ToString@component <> "]"; 
+new = key <> s <> " = " <> ToString@value;
+
+If[StringQ@entry,
+  out = StringReplace[text,entry ->   new];
+];
+];
+
+out
+];
+
+
+CreateDataReduceDirectory[dirname_]:=CreateDirectory[dirname<>"/DataReduce"]
+
+
+CreateDataReduceDirectory[reduceroot_,dirname_]:=CreateDirectory[reduceroot<>"/"<>LastInPath@dirname<>"/DataReduce"]
+
+
+LocateMode[modeDir_,lmode_,mmode_]:=Module[{searchString,modeFiles,file,radii,outerradius,level},
+
+searchString="hmod.r*.l*.l"<>ToString@lmode<>".m"<>ToString@mmode<>"*";
+Print["Searching for files matching ", searchString];
+modeFiles=FileNames[searchString,modeDir];
+
+Print["Found mode files: ", modeFiles];
+
+level=Union@Map[IntegerPart,Map[levelFun,modeFiles]];
+Print["Available refinement levels: ", level];
+
+radii=Sort@TakeColumn[level,1];
+level=Sort@TakeColumn[level,2];
+
+outerradius={ToString@Last@radii,ToString@First@level};
+
+file="hmod.r"<>outerradius[[1]]<>".l"<>outerradius[[2]]<>".l"<>ToString@lmode<>".m"<>ToString@mmode;
+file=ZippedOrUnzipped[file];
+If[FileType@file!= File,Print["cannot find hmod file"];file="";];
+
+file
+];
+
+
+LocateModes[modeDir_,lmode_,mmode_]:=Module[{searchString,modeFiles,file,radii,outerradius,level,levelFun},
+
+searchString="hmod.r*.l*.l"<>ToString@lmode<>".m"<>ToString@mmode<>"*";
+Print["Searching for files matching ", searchString];
+FileNames[searchString,modeDir]
+];
+
+
+CopyL2mode[configStr_,modesdir_,reducedir_]:=Module[{command,modeFile,source,fname},
+modeFile=LocateMode[modesdir,2,2];
+Print["Called CopyL2mode with mode file ", modeFile];
+
+source=modesdir<>"/"<>modeFile;
+source=ZippedOrUnzipped@source;
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["Running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find hmod modes file"];
+];
+
+source=ZippedOrUnzipped@StringReplace[source,"hmod"-> "psi3col"];
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["Running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find psi4 modes file"];
+];
+];
+
+
+CopyL2modes[configStr_,modesdir_,reducedir_]:=Module[{command,modeFiles,modeFile,source,fname,i},
+modeFiles=LocateModes[modesdir,2,2];
+Print["Called CopyL2modes with mode files ", modeFiles];
+
+Do[
+source=modeFiles[[i]];
+
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["CopyL2modes running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find hmod modes file"];
+];
+source=ZippedOrUnzipped@StringReplace[source,"hmod"-> "psi3col"];
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["CopyL2modes running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find psi4 modes file"];
+];,{i,1,Length@modeFiles}];
+];
+
+
+CopyModes[configStr_,modesdir_,reducedir_,Lmode_,Mmode_]:=Module[{command,modeFiles,modeFile,source,fname,i},
+modeFiles=LocateModes[modesdir,Lmode,Mmode];
+Print["Called CopyModes with mode files ", modeFiles];
+
+Do[
+source=modeFiles[[i]];
+
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["CopyModes running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find hmod modes file"];
+];
+source=ZippedOrUnzipped@StringReplace[source,"hmod"-> "psi3col"];
+If[FileType@source==File,
+fname=Last@StringSplit[source,"/"];
+command="cp "<>source<>"  "<>reducedir<>"/"<>configStr<>"_"<>fname;
+Print["CopyModes running command ",command];
+Run[Evaluate@command];,
+Print["ERROR: Could not find psi4 modes file"];
+];,{i,1,Length@modeFiles}];
+];
+
+
+CopyFiles[configStr_,modesdir_,reducedir_,patterns_]:=Module[{command,files,modeFile,source,fname,i,prefix},
+
+files=Map[FileNames[#,modesdir]&,patterns];
+
+(* Print["CopyFiles found files ", files]; *)
+
+files=Flatten@files;
+
+If[configStr == "", 
+prefix = "",
+prefix = configStr<>"_";
+];
+
+Do[
+source=files[[i]];
+
+If[FileType@source==File || FileType@source==Directory,
+fname=Last@StringSplit[source,"/"];
+command="cp -r "<>source<>"  "<>reducedir<>"/"<>prefix<>fname;
+(* Print["CopyFiles running command ",command];*)
+Run[Evaluate@command];,
+Print["ERROR: CopyFiles could not find file"];
+];,{i,1,Length@files}];
+
+
+];
+
+
+FormatPunctureData[mp_,string_,M_]:=Module[{xl,yl,zl,vxl,vyl,vzl,rl,wl,\[Omega]l,times},xl=TakeColumn[Position/.mp,1];
+yl=TakeColumn[Position/.mp,2];
+zl=TakeColumn[Position/.mp,3];
+vxl=TakeColumn[Speed/.mp,1];
+vyl=TakeColumn[Speed/.mp,2];
+vzl=TakeColumn[Speed/.mp,3];
+times=Times/.mp;
+times=times/M;
+xl=xl/M;
+yl=yl/M;
+zl=zl/M;
+Clear[Evaluate["times"<>string],Evaluate["xlist"<>string],Evaluate["ylist"<>string],Evaluate["zlist"<>string],Evaluate["vxlist"<>string],Evaluate["vylist"<>string],Evaluate["vzlist"<>string],Evaluate["xf"<>string],Evaluate["yf"<>string],Evaluate["zf"<>string],Evaluate["vxf"<>string],Evaluate["vyf"<>string],Evaluate["vzf"<>string],Evaluate["rlist"<>string],Evaluate["rf"<>string],Evaluate["wlist"<>string],Evaluate["wf"<>string],Evaluate["\[Omega]list"<>string],Evaluate["\[Omega]f"<>string]];
+Print["Defining the quantities: \n",Evaluate["times"<>string]," , ",Evaluate["[xyz]list"<>string]," , ",Evaluate["v[xyz]list"<>string]," , ",Evaluate["v[xyz]f"<>string]," , ",Evaluate["rlist"<>string]," , ",Evaluate["rf"<>string]," , ",Evaluate["wlist"<>string]," , ",Evaluate["wf"<>string]];
+Evaluate@ToExpression["times"<>string]=times;
+Evaluate@ToExpression["xf"<>string]=Interpolation[Union@CombineColumns[times,xl]];
+Evaluate@ToExpression["yf"<>string]=Interpolation[Union@CombineColumns[times,yl]];
+Evaluate@ToExpression["zf"<>string]=Interpolation[Union@CombineColumns[times,zl]];
+Evaluate@ToExpression["vxf"<>string]=Interpolation[Union@CombineColumns[times,vxl]];
+Evaluate@ToExpression["vyf"<>string]=Interpolation[Union@CombineColumns[times,vyl]];
+Evaluate@ToExpression["vzf"<>string]=Interpolation[Union@CombineColumns[times,vzl]];
+Evaluate@ToExpression["xlist"<>string]=xl;
+Evaluate@ToExpression["ylist"<>string]=yl;
+Evaluate@ToExpression["zlist"<>string]=zl;
+Evaluate@ToExpression["vxlist"<>string]=vxl;
+Evaluate@ToExpression["vylist"<>string]=vyl;
+Evaluate@ToExpression["vzlist"<>string]=vzl;
+rl=Sqrt[xl^2+yl^2+zl^2];
+Evaluate@ToExpression["rf"<>string]=Interpolation[Union@CombineColumns[times,rl]];
+wl=Sqrt[vxl^2+vyl^2+vzl^2]/Sqrt[xl^2+yl^2+zl^2];
+Evaluate@ToExpression["wf"<>string]=Interpolation[Union@CombineColumns[times,wl]];
+\[Omega]l=(vyl xl-vxl yl)/(xl^2+yl^2+zl^2);
+Evaluate@ToExpression["\[Omega]f"<>string]=Interpolation[Union@CombineColumns[times,\[Omega]l]];
+Evaluate@ToExpression["rlist"<>string]=rl;
+Evaluate@ToExpression["wlist"<>string]=wl;
+Evaluate@ToExpression["\[Omega]list"<>string]=\[Omega]l;];
+
+
+
+SafeFormatPunctureData2[mp1_,mp2_,string_,m1_,m2_]:=Module[{M,xl1,yl1,zl1,xl2,yl2,zl2,xlc,ylc,zlc,dxl,dyl,dzl,
+vxl1,vyl1,vzl1,vxl2,vyl2,vzl2,vxlc,vylc,vzlc,rl,wl,\[Omega]l,vrxl,vryl,vrzl,wxl,wyl,wzl,vrl,vtl,times,timesSorted,timesSorted1,timesSorted2,pos},M=m1+m2;
+xl1=TakeColumn[Position/.mp1,1];
+yl1=TakeColumn[Position/.mp1,2];
+zl1=TakeColumn[Position/.mp1,3];
+vxl1=TakeColumn[Speed/.mp1,1];
+vyl1=TakeColumn[Speed/.mp1,2];
+vzl1=TakeColumn[Speed/.mp1,3];
+xl2=TakeColumn[Position/.mp2,1];
+yl2=TakeColumn[Position/.mp2,2];
+zl2=TakeColumn[Position/.mp2,3];
+vxl2=TakeColumn[Speed/.mp2,1];
+vyl2=TakeColumn[Speed/.mp2,2];
+vzl2=TakeColumn[Speed/.mp2,3];
+times=Times/.mp1;
+timesSorted1=Union@times;
+
+times=Times/.mp2;
+timesSorted2=Union@times;
+
+If[Length@timesSorted2 >= Length@timesSorted1, timesSorted = timesSorted1,timesSorted = timesSorted2]
+
+Clear[timesSorted1,timesSorted2];
+
+pos=Table[Position[times,timesSorted[[i]]],{i,1,Length@timesSorted}];
+pos=Flatten@Map[First,pos];
+times=Table[times[[pos[[i]]]],{i,1,Length@pos}];
+xl1=Table[xl1[[pos[[i]]]],{i,1,Length@pos}];
+yl1=Table[yl1[[pos[[i]]]],{i,1,Length@pos}];
+zl1=Table[zl1[[pos[[i]]]],{i,1,Length@pos}];
+xl2=Table[xl2[[pos[[i]]]],{i,1,Length@pos}];
+yl2=Table[yl2[[pos[[i]]]],{i,1,Length@pos}];
+zl2=Table[zl2[[pos[[i]]]],{i,1,Length@pos}];
+vxl1=Table[vxl1[[pos[[i]]]],{i,1,Length@pos}];
+vyl1=Table[vyl1[[pos[[i]]]],{i,1,Length@pos}];
+vzl1=Table[vzl1[[pos[[i]]]],{i,1,Length@pos}];
+vxl2=Table[vxl2[[pos[[i]]]],{i,1,Length@pos}];
+vyl2=Table[vyl2[[pos[[i]]]],{i,1,Length@pos}];
+vzl2=Table[vzl2[[pos[[i]]]],{i,1,Length@pos}];
+(*scale to units of M*)times=times/M;
+xl1=xl1/M;
+yl1=yl1/M;
+zl1=zl1/M;
+xl2=xl2/M;
+yl2=yl2/M;
+zl2=zl2/M;
+(*center-of-mass vector*)xlc=(m1 xl1+m2 xl2)/M;
+ylc=(m1 yl1+m2 yl2)/M;
+zlc=(m1 zl1+m2 zl2)/M;
+(*relative coordinates*)xl1=xl1-xlc;
+yl1=yl1-ylc;
+zl1=zl1-zlc;
+xl2=xl2-xlc;
+yl2=yl2-ylc;
+zl2=zl2-zlc;
+Clear[Evaluate["times"<>string],Evaluate["xlista"<>string],Evaluate["ylista"<>string],Evaluate["zlista"<>string],Evaluate["vxlista"<>string],Evaluate["vylista"<>string],Evaluate["vzlista"<>string],Evaluate["xfa"<>string],Evaluate["yfa"<>string],Evaluate["zfa"<>string],Evaluate["vxfa"<>string],Evaluate["vyfa"<>string],Evaluate["vzfa"<>string],Evaluate["rlist"<>string],Evaluate["rf"<>string],Evaluate["wlist"<>string],Evaluate["wf"<>string],Evaluate["\[Omega]list"<>string],Evaluate["\[Omega]f"<>string],Evaluate["xlistb"<>string],Evaluate["ylistb"<>string],Evaluate["zlistb"<>string],Evaluate["vxlistb"<>string],Evaluate["vylistb"<>string],Evaluate["vzlistb"<>string],Evaluate["xfb"<>string],Evaluate["yfb"<>string],Evaluate["zfb"<>string],Evaluate["vxfb"<>string],Evaluate["vyfb"<>string],Evaluate["vzfb"<>string]];
+Print["Defining the quantities: \n",Evaluate["times"<>string]," , ",Evaluate["[xyz]list"<>string]," , ",Evaluate["v[xyz]list"<>string]," , ",Evaluate["v[xyz]f"<>string]," , ",Evaluate["rlist"<>string]," , ",Evaluate["rf"<>string]," , ",Evaluate["wlist"<>string]," , ",Evaluate["wf"<>string]];
+Evaluate@ToExpression["times"<>string]=times;
+Evaluate@ToExpression["xfa"<>string]=Interpolation[CombineColumns[times,xl1]];
+Evaluate@ToExpression["yfa"<>string]=Interpolation[CombineColumns[times,yl1]];
+Evaluate@ToExpression["zfa"<>string]=Interpolation[CombineColumns[times,zl1]];
+Evaluate@ToExpression["vxfa"<>string]=Interpolation[CombineColumns[times,vxl1]];
+Evaluate@ToExpression["vyfa"<>string]=Interpolation[CombineColumns[times,vyl1]];
+Evaluate@ToExpression["vzfa"<>string]=Interpolation[CombineColumns[times,vzl1]];
+Evaluate@ToExpression["xlista"<>string]=xl1;
+Evaluate@ToExpression["ylista"<>string]=yl1;
+Evaluate@ToExpression["zlista"<>string]=zl1;
+Evaluate@ToExpression["vxlista"<>string]=vxl1;
+Evaluate@ToExpression["vylista"<>string]=vyl1;
+Evaluate@ToExpression["vzlista"<>string]=vzl1;
+Evaluate@ToExpression["xfb"<>string]=Interpolation[CombineColumns[times,xl2]];
+Evaluate@ToExpression["yfb"<>string]=Interpolation[CombineColumns[times,yl2]];
+Evaluate@ToExpression["zfb"<>string]=Interpolation[CombineColumns[times,zl2]];
+Evaluate@ToExpression["vxfb"<>string]=Interpolation[CombineColumns[times,vxl2]];
+Evaluate@ToExpression["vyfb"<>string]=Interpolation[CombineColumns[times,vyl2]];
+Evaluate@ToExpression["vzfb"<>string]=Interpolation[CombineColumns[times,vzl2]];
+Evaluate@ToExpression["xlistb"<>string]=xl2;
+Evaluate@ToExpression["ylistb"<>string]=yl2;
+Evaluate@ToExpression["zlistb"<>string]=zl2;
+Evaluate@ToExpression["vxlistb"<>string]=vxl2;
+Evaluate@ToExpression["vylistb"<>string]=vyl2;
+Evaluate@ToExpression["vzlistb"<>string]=vzl2;
+rl=Sqrt[(xl1-xl2)^2+(yl1-yl2)^2+(zl1-zl2)^2];
+rl=Table[Max[rl[[i]],$MachineEpsilon],{i,1,Length@rl}];
+Evaluate@ToExpression["rf"<>string]=Interpolation[CombineColumns[times,rl]];
+wl=Sqrt[(vxl1-vxl2)^2+(vyl1-vyl2)^2+(vzl1-vzl2)^2]/rl;
+Evaluate@ToExpression["wf"<>string]=Interpolation[CombineColumns[times,wl]];
+dxl=(xl2-xl1)/rl;
+dyl=(yl2-yl1)/rl;
+dzl=(zl2-zl1)/rl;
+(*w=drl\[Cross]\[CapitalDelta]yl*)wxl=dyl (vzl2-vzl1)-dzl (vyl2-vyl1);
+wyl=dzl (vxl2-vxl1)-dxl (vzl2-vzl1);
+wzl=dxl (vyl2-vyl1)-dyl (vxl2-vxl1);
+(*\[Omega]=(|drl\[Cross]\[CapitalDelta]yl|)/rl*)\[Omega]l=Sqrt[wxl^2+wyl^2+wzl^2]/rl;
+Evaluate@ToExpression["\[Omega]f"<>string]=Interpolation[CombineColumns[times,\[Omega]l]];
+Evaluate@ToExpression["rlist"<>string]=rl;
+Evaluate@ToExpression["wlist"<>string]=wl;
+Evaluate@ToExpression["\[Omega]list"<>string]=\[Omega]l;];
+
+
+SafeFormatPunctureDataCactus[mp_,string_,m1_,m2_]:=Module[{M,xl1,yl1,zl1,xl2,yl2,zl2,xlc,ylc,zlc,dxl,dyl,dzl,vxl1,vyl1,vzl1,vxl2,vyl2,vzl2,vxlc,vylc,vzlc,rl,wl,\[Omega]l,vrxl,vryl,vrzl,wxl,wyl,wzl,vrl,vtl,times,timesSorted,pos},M=m1+m2;
+xl1=TakeColumn[mp,23];
+yl1=TakeColumn[mp,33];
+zl1=TakeColumn[mp,43];
+xl2=TakeColumn[mp,24];
+yl2=TakeColumn[mp,34];
+zl2=TakeColumn[mp,44];
+times=TakeColumn[mp,9];
+timesSorted=Union@times;
+pos=Table[Position[times,timesSorted[[i]]],{i,1,Length@timesSorted}];
+pos=Flatten@Map[First,pos];
+times=Table[times[[pos[[i]]]],{i,1,Length@pos}];
+xl1=Table[xl1[[pos[[i]]]],{i,1,Length@pos}];
+yl1=Table[yl1[[pos[[i]]]],{i,1,Length@pos}];
+zl1=Table[zl1[[pos[[i]]]],{i,1,Length@pos}];
+xl2=Table[xl2[[pos[[i]]]],{i,1,Length@pos}];
+yl2=Table[yl2[[pos[[i]]]],{i,1,Length@pos}];
+zl2=Table[zl2[[pos[[i]]]],{i,1,Length@pos}];
+times=times/M;
+vx1=D[Interpolation[CombineColumns[times,xl1]][t],t]/.ff1_[tt_]->ff1;
+vy1=D[Interpolation[CombineColumns[times,yl1]][t],t]/.ff2_[tt_]->ff2;
+vz1=D[Interpolation[CombineColumns[times,zl1]][t],t]/.ff3_[tt_]->ff3;
+vx2=D[Interpolation[CombineColumns[times,xl2]][t],t]/.ff4_[tt_]->ff4;
+vy2=D[Interpolation[CombineColumns[times,yl2]][t],t]/.ff5_[tt_]->ff5;
+vz2=D[Interpolation[CombineColumns[times,zl2]][t],t]/.ff6_[tt_]->ff6;
+vxl1=Map[vx1,times];
+vyl1=Map[vy1,times];
+vzl1=Map[vz1,times];
+vxl2=Map[vx2,times];
+vyl2=Map[vy2,times];
+vzl2=Map[vz2,times];
+xl1=xl1/M;
+yl1=yl1/M;
+zl1=zl1/M;
+xl2=xl2/M;
+yl2=yl2/M;
+zl2=zl2/M;
+xlc=m1 xl1+m2 xl2;
+ylc=m1 yl1+m2 yl2;
+zlc=m1 zl1+m2 zl2;
+xl1=xl1-xlc;
+yl1=yl1-ylc;
+zl1=zl1-zlc;
+xl2=xl2-xlc;
+yl2=yl2-ylc;
+zl2=zl2-zlc;
+Clear[Evaluate["times"<>string],Evaluate["xlista"<>string],Evaluate["ylista"<>string],Evaluate["zlista"<>string],Evaluate["vxlista"<>string],Evaluate["vylista"<>string],Evaluate["vzlista"<>string],Evaluate["xfa"<>string],Evaluate["yfa"<>string],Evaluate["zfa"<>string],Evaluate["vxfa"<>string],Evaluate["vyfa"<>string],Evaluate["vzfa"<>string],Evaluate["rlist"<>string],Evaluate["rf"<>string],Evaluate["wlist"<>string],Evaluate["wf"<>string],Evaluate["\[Omega]list"<>string],Evaluate["\[Omega]f"<>string],Evaluate["xlistb"<>string],Evaluate["ylistb"<>string],Evaluate["zlistb"<>string],Evaluate["vxlistb"<>string],Evaluate["vylistb"<>string],Evaluate["vzlistb"<>string],Evaluate["xfb"<>string],Evaluate["yfb"<>string],Evaluate["zfb"<>string],Evaluate["vxfb"<>string],Evaluate["vyfb"<>string],Evaluate["vzfb"<>string]];
+Print["Defining the quantities: \n",Evaluate["times"<>string]," , ",Evaluate["[xyz]list"<>string]," , ",Evaluate["rlist"<>string]," , ",Evaluate["rf"<>string]," , ",Evaluate["wlist"<>string]," , ",Evaluate["wf"<>string]];
+Evaluate@ToExpression["times"<>string]=times;
+Evaluate@ToExpression["xfa"<>string]=Interpolation[CombineColumns[times,xl1]];
+Evaluate@ToExpression["yfa"<>string]=Interpolation[CombineColumns[times,yl1]];
+Evaluate@ToExpression["zfa"<>string]=Interpolation[CombineColumns[times,zl1]];
+Evaluate@ToExpression["xfb"<>string]=Interpolation[CombineColumns[times,xl2]];
+Evaluate@ToExpression["yfb"<>string]=Interpolation[CombineColumns[times,yl2]];
+Evaluate@ToExpression["zfb"<>string]=Interpolation[CombineColumns[times,zl2]];
+Evaluate@ToExpression["xlista"<>string]=xl1;
+Evaluate@ToExpression["ylista"<>string]=yl1;
+Evaluate@ToExpression["zlista"<>string]=zl1;
+Evaluate@ToExpression["xlistb"<>string]=xl2;
+Evaluate@ToExpression["ylistb"<>string]=yl2;
+Evaluate@ToExpression["zlistb"<>string]=zl2;
+rl=Sqrt[(xl1-xl2)^2+(yl1-yl2)^2+(zl1-zl2)^2];
+rl=Table[Max[rl[[i]],$MachineEpsilon],{i,1,Length@rl}];
+Evaluate@ToExpression["rf"<>string]=Interpolation[CombineColumns[times,rl]];
+wl=Sqrt[(vxl1-vxl2)^2+(vyl1-vyl2)^2+(vzl1-vzl2)^2]/rl;
+Evaluate@ToExpression["wf"<>string]=Interpolation[CombineColumns[times,wl]];
+dxl=(xl2-xl1)/rl;
+dyl=(yl2-yl1)/rl;
+dzl=(zl2-zl1)/rl;
+wxl=dyl (vzl2-vzl1)-dzl(vyl2-vyl1);
+wyl=dzl (vxl2-vxl1)-dxl(vzl2-vzl1);
+wzl=dxl (vyl2-vyl1)-dyl(vxl2-vxl1);
+\[Omega]l=Sqrt[wxl^2+wyl^2+wzl^2]/rl;
+Evaluate@ToExpression["\[Omega]f"<>string]=Interpolation[CombineColumns[times,\[Omega]l]];
+Evaluate@ToExpression["rlist"<>string]=rl;
+Evaluate@ToExpression["wlist"<>string]=wl;
+Evaluate@ToExpression["\[Omega]list"<>string]=\[Omega]l;];
+
+
+BAMModesFilesTo3Col[modesFile_,OptionsPattern[{"DeleteSourceFiles" -> False}]]:=Module[{rootString,path,noPath,reData,imData,rad,lev,modeString,timesRe,timesIm,
+col3Data,file,col3data,deleteSourceFiles,lm,commonTimes},
+deleteSourceFiles = OptionValue["DeleteSourceFiles"];
+
+path = FileNameTake[modesFile,FileNameDepth[modesFile]-1];
+noPath=FileNameTake[modesFile,-1];
+rootString = StringCases[modesFile,{"r","i"}~~"psi4mode"~~postfix__:>  {"rpsi4mode"<>postfix,"ipsi4mode"<>postfix}];
+
+If[rootString != {},
+
+  {rad,lev}=First@StringCases[modesFile,"r"~~rad:NumberString~~".t"~~lev:NumberString~~___ :>  {rad,lev}];
+
+  modeString = First@StringCases[modesFile,{"r","i"}~~"psi4mode"~~mode__~~"_r"~~postfix__:> mode];
+  lm = Switch[modeString,
+   "20",  {2, 0},
+   "2m1", {2,-1},
+   "21",  {2, 1},
+   "2m2", {2,-2},
+   "22",  {2, 2}
+  ];
+
+  file = FileNameJoin[{path,rootString[[1,1]]}];
+  If[FileType@file !=  File,
+    Print["BAMModesFilesTo3Col:: File not found: ", file]; Return[];,
+
+    reData = TimeUnion@NRFiles`ReadColData[file,2,1];
+    If[deleteSourceFiles,DeleteFile[file];];
+    timesRe = NRLists`TakeColumn[reData,1];
+
+    If[lm[[2]]!=0,
+      file = FileNameJoin[{path,rootString[[1,2]]}];
+
+      If[FileType@file !=  File,
+        Print["BAMModesFilesTo3Col:: File not found: ", file];
+        imData = {};,
+        timesIm = {};
+        imData = TimeUnion@NRFiles`ReadColData[file,2,1];
+         If[deleteSourceFiles,DeleteFile[file];];
+        timesIm = NRLists`TakeColumn[imData,1];
+       ];,
+       timesIm = timesRe;
+       imData = Transpose@{timesIm,0*timesIm};
+    ];
+
+   If[timesIm==timesRe,
+     col3data = Transpose@{timesRe, NRLists`TakeColumn[reData,2], NRLists`TakeColumn[imData,2]};
+      file = path<>"/psi3col_bam_r"<>ToString@rad<>".l"<>ToString@lev<>".l"<>ToString@lm[[1]]<>".m"<>ToString@lm[[2]]<>".gz";
+      Print["Exporting file ", file];
+      Export[file,col3data,{"GZIP","Table"}],
+      Print["BAMModesFilesTo3Col:: fixing inconsistent lengths of real and imaginary part"];
+      Print["Length@Re@wave = ", Length@timesRe, ", ", "Length@Im@wave = ", Length@timesIm];
+      commonTimes = Intersection[timesIm,timesRe];
+      reData = Select[reData,MemberQ[commonTimes,#[[1]]]&];
+      imData = Select[imData,MemberQ[commonTimes,#[[1]]]&];
+
+      col3data = Transpose@{commonTimes, NRLists`TakeColumn[reData,2], NRLists`TakeColumn[imData,2]};
+      file = path<>"/psi3col_bam_r"<>ToString@rad<>".l"<>ToString@lev<>".l"<>ToString@lm[[1]]<>".m"<>ToString@lm[[2]]<>".gz";
+      Print["Exporting file ", file];
+     Export[file,col3data,{"GZIP","Table"}]
+   ];
+   ];
+];
+];
+
+
+BAMTrajectoryFileTo4Col[inFile_,OptionsPattern[{"DeleteSourceFiles" -> False}]]:=Module[{path,noPath,data,
+lev,bh,modeString,timesRe,times,
+file,col4data,deleteSourceFiles},
+
+deleteSourceFiles = OptionValue["DeleteSourceFiles"];
+
+If[FileType@inFile == File,
+
+path = path = FileNameTake[inFile,FileNameDepth[inFile]-1];
+noPath = FileNameTake[inFile,-1];
+
+{bh,lev} = First@StringCases[noPath,
+     "moving_puncture_integrate"~~bh:NumberString~~".txyz"~~lev:NumberString~~X___ :>  {bh,lev}];
+
+lev = StringReplace[lev, "."->""];
+
+data = Import@inFile;
+If[deleteSourceFiles,DeleteFile[inFile];];
+col4data = TimeUnion@NRLists`TakeColumn[data,{7,1,2,3}];
+
+file = path<>"/traj_"<>ToString@bh<>".l"<> ToString@lev<>".gz";
+Print["Exporting file ", file];
+Export[file,col4data,{"GZIP","Table"}];
+];
+];
+
+
+BAMHorizonFilesToNRARFiles[inFile_,OptionsPattern[{"DeleteSourceFiles" -> False}]]:=Module[{path,noPath,data,lev,bh,modeString,timesRe,times,
+file,col4data,deleteSourceFiles,
+hmass,hspin,totalSpin,htraj,
+t,m},
+
+deleteSourceFiles = OptionValue["DeleteSourceFiles"];
+
+If[FileType@inFile == File,
+
+path = path = FileNameTake[inFile,FileNameDepth[inFile]-1];
+noPath = FileNameTake[inFile,-1];
+Print["BAMHorizonFilesToNRARFiles: filename: ", noPath];
+
+bh = First@StringCases[noPath,"horizon_"~~bh:NumberString :>  bh];
+Print["BAMHorizonFilesToNRARFiles:  bh: ", bh];
+bh = ToExpression@bh + 1;
+
+data = TimeUnion@ReadColData[inFile,9,1];
+If[deleteSourceFiles, DeleteFile[inFile];];
+
+times = TakeColumn[data,1];
+hmass = TakeColumn[data,5];
+hspin = TakeColumn[data,{1,6,7,8}];
+
+
+totalSpin = TakeColumn[data,9];
+
+hmass = Sqrt[hmass^2+1/4 totalSpin^2/hmass^2];
+hmass = CombineColumns[times,hmass];
+
+
+htraj = TakeColumn[data,{1,2,3,4}];
+
+
+file = path<>"/hmass_"<>ToString@bh<>".gz";
+Print["Exporting file ", file];
+Export[file,hmass,{"GZIP","Table"}];
+
+file = path<>"/htraj_"<>ToString@bh<>".gz";
+Print["Exporting file ", file];
+Export[file,htraj,{"GZIP","Table"}];
+
+file = path<>"/hspin_"<>ToString@bh<>".gz";
+Print["Exporting file ", file];
+Export[file,hspin,{"GZIP","Table"}];
+];
+];
+
+
+WaveExtractionRadii[rootDir_,modesDir_]:=Module[{admFiles,adm,i,admradii,outerradius,level,massScale=1,len},
+
+admFiles=FileNames["hmod.r*.l*.l*.m*",modesDir];
+
+If[admFiles == {},
+Print["ERROR: could not find any hmod data in directory ", LastInPath@modesDir];
+Return[];
+];
+
+level=Union@Map[IntegerPart,Map[levelFun,admFiles]];
+Print["WaveExtractionRadii: Available refinement levels: ", level];
+
+outerradius=TakeColumn[level,1];
+Print["Wave extraction indices: ", outerradius];
+outerradius=Max@Map[ToExpression,outerradius];
+Print["Maximal wave extraction radius: ", outerradius];
+
+admradii=BAMNumberParameters[rootDir,"invariants_modes_r"];
+Print["Wave extraction radii: ", admradii];
+
+admradii
+];
+
+
+ADMReduce[rootDir_,reduceDir_]:=Module[{admFiles,adm,i,admradii,outerradius,level,levelFun,massScale=1,len},
+
+admFiles=FileNames["*ADM_mass_r*",rootDir];
+
+Print["ADM data files: ", admFiles];
+
+If[admFiles == {},
+Print["ERROR: ADMReduce could not find any ADM data in directory ", LastInPath@rootDir];Return[];,
+Print["Starting ADM analysis"];
+];
+
+levelFun[str_]:=ToExpression@First@StringCases[str,"ADM_mass_r"~~NumberString..~~".t"~~x:NumberString-> x];
+
+level=Map[IntegerPart,Map[levelFun,admFiles]];
+Print["Available refinement levels: ", level];
+
+outerradius=Map[Last@StringSplit[#,"/"]&,admFiles];
+outerradius=Union@Map[StringSplit[#,"_"][[3]]&,outerradius];
+outerradius=Union@Map[StringSplit[#,"."][[1]]&,outerradius];
+outerradius=Union@StringReplace[outerradius,"r"-> ""];
+
+Print["ADM-style integrals extraction indices: ", outerradius];
+outerradius=Max@Map[ToExpression,outerradius];
+Print["Maximal ADM-stlye integral extraction radius: ", outerradius];
+
+admradii=BAMNumberParameters[rootDir,"ADM_mass_r"];
+Print["ADM-style integrals extraction radii: ", admradii];
+
+len=Length@admradii;
+level=First@Union@Flatten@Select[myGather[level],Length@#==len&];
+Print["All extraction radii seem present at level ", level];
+
+
+admFiles=FileNames["*ADM_mass_r*.t"<>ToString@level<>"*",rootDir];
+Print["Reading data from files ", admFiles, " at level ", level];
+adm=Table[{admFiles[[i]],admradii[[i]]} , {i,1,Length@admFiles}];
+
+ADMFit1Res[adm,massScale];
+];
+
+
+BBHDataReduce[modesdir_,IDroot_,ReduceRoot_]:=Module[{modesroot,reducedir,outerradius,psidfile,configStr,
+idDir,m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z,a1x,a1y,a1z,a2x,a2y,a2z,q,eta,mtot,qString,
+dString,chiString,myround,tmpString,modeDecompConfig,bitant,lmax=6,cleanModeConfig,extractionRadii,
+extractionRadiiString,modesDecompDir,levels,radii,stdout},
+
+tmpString = Map[ToString,{m1,m2,madm,sep,abschi1,abschi2,q}];
+
+modesroot = ParentDirectory@modesdir;
+Print["========================================================"];
+Print["Start case modesroot = ", modesroot];
+
+
+If[ReduceRoot==".",
+  reducedir=modesroot<>"/DataReduce",
+  reducedir=ReduceRoot<>"/"<>Last@StringSplit[modesroot,"/"]<>"/DataReduce"
+];
+
+Print["Data reduction directory is ", reducedir];
+CreateDirectory[reducedir];
+
+modesDecompDir = reducedir<>"/ModeDecomp";
+Print["Mode decomposition directory is ", modesDecompDir];
+CreateDirectory[modesDecompDir];
+
+outerradius = FileNames["*hmod.r*.l*",modesdir];
+
+outerradius = Map[Last@StringSplit[#,"/"]&,outerradius];
+levels = Map[IntegerPart,Union@Map[levelFun,outerradius]];
+Print["Levels ", levels];
+radii  = TakeColumn[levels,1];
+levels = TakeColumn[levels,2];
+outerradius = Union@Map[StringSplit[#,"."][[2]]&,outerradius];
+outerradius = Union@StringReplace[outerradius,"r"-> ""];
+
+extractionRadii = outerradius;
+Print["Radiation extraction radii: ", extractionRadii];
+outerradius = Max@Map[ToExpression,outerradius];
+Print["Maximal radiation extraction radius: ", outerradius];
+
+psidfile = BAMStringParameter[modesroot,"punctures_ps_file"];
+psidfile = Last@StringSplit[psidfile,"/"];
+psidfile = StringReplace[psidfile," "->""];
+Print["psid-file determined from evolution parameter file as: ", psidfile];
+idDir = LocateInitialDataDirectory[IDroot,psidfile];
+{m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z} = InitialDataParameters[idDir,psidfile];
+mtot = m1+m2;
+q = Max[m1,m2]/Min[m1,m2];
+{a1x,a1y,a1z}={s1x,s1y,s1z}/m1^2;
+{a2x,a2y,a2z}={s2x,s2y,s2z}/m2^2;
+
+Map[ValPrint,tmpString];
+Print["a1 =", {a1x,a1y,a1z}];
+Print["a2 =", {a2x,a2y,a2z}];
+
+myround[x_]:=N[Round[10000x]/10000];
+
+qString = ToString@myround[q];
+dString = ToString@myround[sep/mtot];
+
+bitant = False;
+If[s1x==s1y==s2x==s2y==0,
+Print["Aligned spins!"];
+bitant = True;
+chiString = ToString@myround@a1z<>"_"<>ToString@myround@a2z;,
+Print["Precessing spins!"];
+chiString = "Precess"<>ToString@myround@a1x<>"_"<>ToString@myround@a1y<>ToString@myround@a1z<>"_"<>ToString@myround@a2x<>ToString@myround@a1y<>"_"<>ToString@myround@a2z;
+];
+
+configStr = "D"<>dString<>"_q"<> qString<>"_"<>chiString;
+Print["Generated configuration string ", configStr];
+Print["Finished Initialization, starting analysis"];
+
+modeDecompConfig="dirnames = {\""<>modesroot<>"\"};\n\n"<>
+"mass1 = {"<>ToString@m1<>"};\n"<>
+"mass2 = {"<>ToString@m2<>"};\n\n"<>
+"minradius = "<>ToString@Min@radii<>";\n"<>
+"maxradius = "<>ToString@Max@radii<>";\n"<>
+"level = "<>ToString@Max@levels<>";\n\n"<> (* This is not really correct, want a list here. *)
+"lmin = 2;\n"<>
+"lmax = "<>ToString@lmax<>";\n\n"<>
+"BITANT = "<>ToString@bitant<>";";
+
+Export[modesDecompDir<>"/allmodesH.in.m",modeDecompConfig,"Text"];
+
+extractionRadii=WaveExtractionRadii[modesroot,modesdir];
+extractionRadiiString=ToString@extractionRadii;
+
+cleanModeConfig="dirnames = {\""<>modesDecompDir<>"\"};\n\n"<>
+"RadiusValue = "<>ToString@extractionRadiiString<>";\n"<>
+"winoffset = -1;\n\n"<>
+"minradius = "<>ToString@Min@radii<>";\n"<>
+"maxradius = "<>ToString@Max@radii<>";\n"<>
+"level = "<>ToString@Max@levels<>";\n\n"<> (* This is not really correct, want a list here. *)
+"lmin = 2;\n"<>
+"lmax = "<>ToString@lmax<>";\n\n"<>
+"dtResample = -1;\n"<>
+"mintime = 150\n"<>
+"maxtime = 5000";
+
+Export[modesDecompDir<>"/cleanPsi.in.m",cleanModeConfig,"Text"];
+
+ADMReduce[modesroot,reducedir];
+
+(* CopyL2mode[configStr,modesdir,reducedir];
+CopyL2modes[configStr,modesdir,reducedir];
+CopyModes[configStr,modesdir,reducedir,2,1];
+CopyModes[configStr,modesdir,reducedir,3,2];
+CopyModes[configStr,modesdir,reducedir,3,3];
+CopyModes[configStr,modesdir,reducedir,4,4];*)
+
+CopyFiles[configStr,modesdir,reducedir,
+{
+"hmod.r*",
+"psi3col.r*"
+}];
+
+stdout = Last@FileNameSplit@First@FileNames["stdout.*",modesroot];
+Print["Found example stdout file: ", stdout];
+
+(* overwrite modes files if we find some in the main directory *)
+CopyFiles[configStr,modesroot,reducedir,
+{
+"d*dt_r*.t*","ADM_mass_r*.t*",
+"moving_puncture_integrate1.txyz*",
+"moving_puncture_integrate2.txyz*",
+"hmod.r*",
+"psi3col.r*",
+"system.log*",
+stdout
+}];
+
+Print["========================================================\n\n"];
+];
+
+
+SymmetriesFromParfile[parfile_]:=Module[{grid,bitant, quadrant},
+
+grid = BAMStringParameter[FileNameDrop[parfile,-1], "grid"];
+
+If[StringMatchQ[grid, "*quadrant*"], quadrant = True, quadrant = False];
+If[StringMatchQ[grid, "*bitant*"],   bitant   = True, bitant   = False];
+
+{bitant, quadrant}
+];
+
+
+WriteModeDecompConfigFile[DirectoryRules_?ListQ,
+ OptionsPattern[{"LMin" -> 2,"LMax" -> 6, "RunDecomp"-> False, "ModesTargetDirectory" -> "","JustPretendCalculation"-> False}]]:=Module[{modeDecompConfig,
+evDir,targetDir,evDirHasModes,redDirHasModes,modesroot,parfile,
+evModesDir,idDir,exportFile,
+psidFile,psidRules,
+M1,M2,radii,bitant,quadrant,
+modesDecompDir,levels,lmin,lmax,runDecomp,command,justPretendCalculation},
+
+Print["======= entering WriteModeDecompConfigFile ======="];
+
+lmin      = OptionValue["LMin"];
+lmax      = OptionValue["LMax"];
+runDecomp = OptionValue["RunDecomp"];
+targetDir = OptionValue["ModesTargetDirectory"];
+justPretendCalculation = OptionValue["JustPretendCalculation"];
+
+evDir     = "EvolutionDirectory" /. DirectoryRules;
+If[TrueQ[targetDir == ""], targetDir = evDir];
+
+evDirHasModes  = "EvolutionDirectoryHasModes"/. DirectoryRules;
+(* targetDirHasModes = "ModesTargetDirectoryHasModes"  /. DirectoryRules;*)
+
+evModesDir  = "EvolutionModesDir" /. DirectoryRules;
+
+idDir    = "InitialDataDir" /. DirectoryRules;
+psidFile = "PSIDFile"       /. DirectoryRules;
+
+psidRules = PSID2Rules[psidFile];
+
+modesDecompDir = FileNameJoin[{targetDir,"Psi4ModeDecomp"}];
+
+If[FileType@modesDecompDir != None, modesDecompDir == modesDecompDir <> "_new"];
+If[FileType@modesDecompDir != None, Print["modes directory already exists!"]; Return[]];
+
+CreateDirectory[modesDecompDir];
+
+M1 = "M1" /. psidRules;
+M2 = "M2" /. psidRules;
+
+radii = Range@Length@BAMExtractionRadii[evDir];
+
+levels = Union@Flatten@TakeColumn[BAMExtractionRadii[evDir],2];
+
+parfile = ParfileInDirectory[evDir];
+{bitant, quadrant} = SymmetriesFromParfile[parfile];
+
+modesroot = evDir;
+modeDecompConfig =
+"(* run as cd " <> modesDecompDir <> "; math < " <> Global`BAMToolsDir <> "/ModeDecomp/allmodes.m > out.m 2> err.m & *)\n\n" <>
+"dirnames = {\""<>modesroot<>"\"};\n\n"<>
+"mass1 = {"<> ToString@M1 <>"};\n"<>
+"mass2 = {"<> ToString@M2 <>"};\n\n"<>
+"minradius = "<>ToString@Min@radii<>";\n"<>
+"maxradius = "<> ToString@Max@radii<>";\n"<>
+"level = "    <> ToString@Max@levels<>";\n\n"<> (* This is not really correct, want a list here. *)
+"lmin = "     <> ToString@lmin <>";\n"<>
+"lmax = "     <> ToString@lmax<>";\n\n"<>
+"PISYM = "    <> ToString@quadrant<>";\n" <>
+"BITANT = "   <> ToString@bitant<>";\n\n" <>
+"ExportRPsi4IPsi4 = False;";
+
+If[justPretendCalculation,
+   modeDecompConfig = modeDecompConfig <> "\n\nJustPretendCalculation = True;";
+];
+
+(* export mode decomp config file *)
+exportFile = modesDecompDir<>"/allmodes.in.m";
+Print["Exporting file: ", exportFile];
+Export[exportFile,modeDecompConfig,"Text"];
+
+
+CopyFile[Global`BAMToolsDir <> "/ModeDecomp/allmodes.m", modesDecompDir <>"/allmodes.m"];  (* copy the mode decomp file *)
+
+(* now write a shell script *)
+modeDecompConfig =
+"#!/bin/bash\n"                                                       <>
+"rm -f ModeDecomp_Done\n\n"                                           <>
+"cd " <> modesDecompDir <> "; math < allmodes.m > out.m 2> err.m\n\n"  <>
+"rm -f *psi*m-0.gz";
+
+If[Not@justPretendCalculation,
+  modeDecompConfig = modeDecompConfig <> "\ntouch ModeDecomp_Done";  
+];
+
+
+exportFile = modesDecompDir<>"/runModeDecomp.sh";
+Print["Exporting file: ", exportFile];
+Export[exportFile,modeDecompConfig,"Text"];
+
+(* change file permissions to execute *)
+command = "cd " <> modesDecompDir <> "; chmod u+x runModeDecomp.sh";
+Print["Running command ", command];
+Run[command];
+
+If[runDecomp,
+Print["Running mode decomposition in batch mode"];
+If[justPretendCalculation,
+ command = "cd " <> modesDecompDir <> "; ./runModeDecomp.sh > out 2> err";,   (*        wait for result *)
+ command = "cd " <> modesDecompDir <> "; ./runModeDecomp.sh > out 2> err &";  (* do not wait for result *)
+];
+
+Print["Running command ", command];
+Run[command];
+];
+
+Print["======= exiting WriteModeDecompConfigFile ======="];
+];
+
+
+BAMExtractionRadii[evolutiondir_]:=Module[{outerradius,levels,radii,extractionRadii,levelfun,
+evolutionParfile,collectLevels,r,l,i},
+
+levelfun[str_]:=ToExpression@First@StringCases[str,"rpsi4.r"~~r:NumberString..~~".l"~~l:NumberString-> {r,l}];
+
+collectLevels[level_,levels_] := Map[Last,Select[levels,#[[1]]==level&]];
+
+outerradius = FileNames["rpsi4.r*.l*",evolutiondir];
+
+outerradius = Map[Last@StringSplit[#,"/"]&,outerradius];
+
+levels = Map[IntegerPart,Union@Map[levelfun,outerradius]];
+
+outerradius = Union@Map[StringSplit[#,"."][[2]]&,outerradius];
+outerradius = Union@StringReplace[outerradius,"r"-> ""];
+
+extractionRadii = outerradius;
+Print["Radiation extraction radii from psi4 file names: ", extractionRadii];
+
+evolutionParfile = ParfileInDirectory[evolutiondir];
+
+radii = BAMNumberParametersInFile[evolutionParfile, "invariants_modes_r"];
+
+If[Length@radii >  Length@extractionRadii,
+ Print["Found inconsistent extraction radii, assume outermost radius did not fit on extraction levels"];
+ Print["BAMExtractionRadii: radii = ", radii];
+ Print["BAMExtractionRadii: radii = ", extractionRadii];
+];
+
+If[Length@radii <  Length@extractionRadii,
+ Print["Found inconsistent extraction radii!"];
+ Print["radii : extractionRadii ", Length@radii, " : ", Length@extractionRadii];
+ Print["BAMExtractionRadii: radii = ", radii];
+ Print["BAMExtractionRadii: radii = ", extractionRadii];
+Return[{False,False}];
+];
+
+Table[{radii[[i]],collectLevels[i,levels]},{i,1,Length@radii}]
+];
+
+
+CurateBBHData[DirectoryRules_?ListQ,
+ OptionsPattern[{"DestinationDirectory" -> ".", "SubmitterEmail" -> "Sascha Husa <sascha.husa@gmail.zebra.elephant.com>",
+ "ModeDecomp"-> False,"VivekModesSource"-> {} }]]:=Module[{reducedir,outerradius,psidfile,configString,filePrefix,
+idDir,m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z,a1x,a1y,a1z,a2x,a2y,a2z,q,eta,mtot,qString,
+dString,chiString,myround,tmpString,modeDecompConfig,bitant,lmax,extractionRadii,
+extractionRadiiString,modesDecompDir,levels,radii,stdout,evDir,redDir,evDirHasModes,redDirHasModes,modesroot,parfile,
+evModesDir,redModesDir,exportFile,
+psidFile,psidRules,modesdir,modesString,timer,destinationDir,myDestinationDir,X1,X2,P1,P2,
+modesFiles,selectFiles,str,
+rad,lev,l,m,tmp,rules,
+modesFilesAndRadii,trajectoriesSection,metadataFile,baseSection,psi4BAMModesSections,psi4ModesSections,metadataContent,physicsSection,
+evParfileRules,resolution,L,eccentricityData,metaFile,metaFile2,
+radius,startTime,nCycles,startFreq,cycleInfo,
+afterJunkTime=140,
+tt,sx,sy,sz,
+pickHighestLevel,
+BAMLogDir,EnergyMomentumDir,Psi4ModesDir,Psi4BAMModesDir,
+submitterEmail,modeDecomp,canCreateModeFiles,VivekModesSource},
+
+Print["Entering Function CurateBBHData"];
+
+(* determine where we can find data, and where we will put data *)
+destinationDir = OptionValue["DestinationDirectory"];
+submitterEmail = OptionValue["SubmitterEmail"];
+modeDecomp     = OptionValue["ModeDecomp"];
+
+Print["DirectoryRules: ", DirectoryRules];
+
+evDir  = "EvolutionDirectory"/. DirectoryRules;
+redDir = "ReducedDirectory"  /. DirectoryRules;
+
+VivekModesSource = OptionValue["VivekModesSource"];
+Print["Value of VivekModesSource: ", VivekModesSource];
+
+configString = FileNameTake[evDir,-1];
+Print["Configuration Name = ", configString];
+
+evDirHasModes  = "EvolutionDirectoryHasModes"/. DirectoryRules;
+redDirHasModes = "ReducedDirectoryHasModes"  /. DirectoryRules;
+
+evModesDir  = "EvolutionModesDir" /. DirectoryRules;
+redModesDir = "ReducedModesDir"   /. DirectoryRules;
+
+idDir    = "InitialDataDir" /. DirectoryRules;
+psidFile = "PSIDFile"       /. DirectoryRules;
+
+parfile = ParfileInDirectory[evDir];
+
+(* create uuid and basic.bbh files in evolution directory, if they do not alrady exist *)
+tmp = FileNames["uuid",evDir];
+If[Length@tmp == 0,
+  Run["cd "<> evDir <> "; uuidgen > uuid"];
+];
+
+tmp = FileNames["basic.bbh",evDir];
+If[Length@tmp == 0,
+  Run["cd "<> evDir <> "; cp " <> FileNameJoin[{Global`BBHReduceDir, "bam_metadata_template.bbh"}] <> " basic.bbh"];
+];
+
+
+(* determine from where we will take the psi4-modes*)
+modesString = "psi3col*";
+If[StringQ@redModesDir,
+   Print["Using modes from reduced-data directory: ", redModesDir]; 
+   modesdir = redModesDir,
+  If[StringQ@evModesDir,
+   Print["Using modes from reduced-data directory: ", evModesDir]; 
+   modesdir = evModesDir,
+   Print["Using l=2 modes from BAM on-the-fly integration in directory: ", evDir]; 
+   modesString = "*psi4*mode*";
+]; 
+]; 
+
+
+myDestinationDir = FileNameJoin[{destinationDir,configString}];
+Print["file destination directory: ", myDestinationDir];
+
+If[FileType@destinationDir == Directory,
+  Print["Destination directory already exists!"];,
+  CreateDirectory[destinationDir];
+];
+
+If[FileType@myDestinationDir == Directory,
+  Print["Configuration-specific destination directory already exists"];,
+  CreateDirectory[myDestinationDir];
+  Print[myDestinationDir]
+];
+
+CreateDirectory[myDestinationDir];
+
+
+(* determine simulation parameters *)
+psidRules = PSID2Rules[psidFile];
+evParfileRules = ParfileToRules[parfile];
+
+tmpString = Map[ToString,{m1,m2,madm,sep,abschi1,abschi2,q}];
+{m1,m2,madm,sep,abschi1,abschi2,s1x,s1y,s1z,s2x,s2y,s2z,X1,X2,P1,P2} = InitialDataParameters[psidFile];
+
+mtot = m1 + m2;
+
+q = Max[m1,m2]/Min[m1,m2];
+
+{a1x,a1y,a1z}={s1x,s1y,s1z}/m1^2;
+{a2x,a2y,a2z}={s2x,s2y,s2z}/m2^2;
+Print["a1 =", {a1x,a1y,a1z}];
+Print["a2 =", {a2x,a2y,a2z}];
+
+resolution = "UNDEFINED";
+
+If[IsFPNumberQ@ToString["nxyz" /. evParfileRules],
+ resolution = "nxyz" /. evParfileRules;
+];
+
+If[IsFPNumberQ@ToString["amr_move_nxyz" /. evParfileRules],
+ resolution = "amr_move_nxyz" /. evParfileRules;
+];
+
+tmp = "amr_nxyz" /. evParfileRules;
+If[ListQ@tmp,
+  If[IsFPNumberQ@ToString@Last@tmp,
+    resolution = Last["amr_nxyz" /. evParfileRules];
+  ];
+];
+
+L = (X1-X2)\[Cross]P1;
+
+physicsSection = {
+"submitter-email"              ->  submitterEmail,
+"simulation-name"              ->  configString,
+"resolution"                   ->  resolution,
+"initial-ADM-energy"           ->  "Madm" /. psidRules,
+"initial-angular-momentumx"    ->  L[[1]],
+"initial-angular-momentumy"    ->  L[[2]],
+"initial-angular-momentumz"    ->  L[[3]],
+"initial-separation"           ->  sep,
+(*     *)
+"eccentricity"                 ->  "",
+(*     *)
+"freq-start-22"                ->  "",
+"number-of-cycles-22"          ->  "",
+(*     *)
+"phase-error"                  -> "",
+"amplitude-error-relative"     -> "",
+(*     *)
+"after-junkradiation-time"     ->  afterJunkTime,
+(*     *)
+"mass1"                        ->  m1,
+"mass2"                        ->  m2,
+(*     *)
+"initial-bh-position1x" ->   X1[[1]],
+"initial-bh-position1y" ->   X1[[2]],
+"initial-bh-position1z" ->   X1[[3]],
+(*     *)
+"initial-bh-position2x" ->   X2[[1]],
+"initial-bh-position2y" ->   X2[[2]],
+"initial-bh-position2z" ->   X2[[3]],
+(*     *)
+"initial-bh-momentum1x"  ->   P1[[1]],
+"initial-bh-momentum1y"  ->   P1[[2]],
+"initial-bh-momentum1z"  ->   P1[[3]],
+(*     *)
+"initial-bh-momentum2x"  ->   P2[[1]],
+"initial-bh-momentum2y"  ->   P2[[2]],
+"initial-bh-momentum2z"  ->   P2[[3]],
+(*     *)
+"initial-bh-spin1x" ->   s1x,
+"initial-bh-spin1y" ->   s1y,
+"initial-bh-spin1z" ->   s1z,
+(*     *)
+"initial-bh-spin2x" ->   s2x,
+"initial-bh-spin2y" ->   s2y,
+"initial-bh-spin2z" ->   s2z,
+(*     *)
+"after-junkradiation-spin1x"   ->  "",
+"after-junkradiation-spin1y"   ->  "",
+"after-junkradiation-spin1z"   ->  "",
+(*     *)
+"after-junkradiation-spin2x"   ->  "",
+"after-junkradiation-spin2y"   ->  "",
+"after-junkradiation-spin2z"   ->  ""
+};
+physicsSection = Drop[ComposeConfigSection["dummy",physicsSection],1];
+
+Map[ValPrint,tmpString];
+
+myround[x_]:=N[Round[10000x]/10000];
+
+qString = ToString@myround[q];
+dString = ToString@myround[sep/mtot];
+
+bitant = False;
+If[s1x==s1y==s2x==s2y==0,
+Print["Aligned spins!"];,  (* TODO:  check consistency with settings in evolution-parfile *)
+Print["Precessing spins!"];
+];
+
+(* copy and create files *)
+filePrefix = ""; (* do not prefix files *)
+
+(* stdout and timer files: only copy 2 files each *)
+stdout = FileNames["stdout.*",evDir];
+If[Length@stdout >= 1,
+  stdout = {Last@FileNameSplit@First@stdout, Last@FileNameSplit@Last@stdout}
+];
+Print["Found example stdout file: ", stdout];
+
+timer = FileNames["timer.*",evDir];
+If[Length@timer >= 1,
+  timer = {Last@FileNameSplit@First@FileNames["timer.*",evDir], Last@FileNameSplit@Last@FileNames["timer.*",evDir]};
+];
+Print["Found example timer file: ", timer];
+
+BAMLogDir = FileNameJoin[{myDestinationDir,"BAMLogs"}];
+CreateDirectory[BAMLogDir];
+
+If[Length@stdout > 0, CopyFiles[filePrefix, evDir, BAMLogDir, stdout]];
+If[Length@timer  > 0, CopyFiles[filePrefix, evDir, BAMLogDir, timer]];
+
+(* GW modes *)
+Psi4BAMModesDir = FileNameJoin[{myDestinationDir,"Psi4BAMModes"}];
+CreateDirectory[Psi4BAMModesDir];
+
+(* Psi4ModesDir = FileNameJoin[{myDestinationDir,"Psi4Modes"}];*)
+Psi4ModesDir = myDestinationDir;
+(*CreateDirectory[Psi4ModesDir];*)
+
+
+
+Print["Copying GW modes of the form ", modesString];
+CopyFiles[filePrefix,evDir,Psi4BAMModesDir, {modesString}];
+
+modesFiles = FileNames[modesString,myDestinationDir,2];
+
+selectFiles= Select[modesFiles,StringMatchQ[#,"*/rpsi4mode*"]&];
+
+Map[BAMModesFilesTo3Col[#,"DeleteSourceFiles"-> True]&,selectFiles];
+modesString = "psi3col*";
+
+(* now that we have a unified naming convention for psi4-files, compose modes metadata sections *)
+modesFiles = FileNames[modesString,myDestinationDir,2];
+
+Print["Calling BAMExtractionRadii"];
+radii = TakeColumn[BAMExtractionRadii[evDir],1];
+Print["BAMExtractionRadii found radii = ", radii];
+
+modesFilesAndRadii = Table[
+str = modesFiles[[i]];
+{StringCases[str,"r"~~rad:NumberString~~".l"~~lev:NumberString~~".l"~~l:NumberString~~".m"~~m:NumberString~~___ :> 
+        {rad,lev}],str},{i,1,Length@modesFiles}];
+
+pickHighestLevel[xxx_?ListQ]:=\[NonBreakingSpace]Last@Gather[xxx, First@#1 ==First@#2 &];
+
+tmp = Gather[modesFilesAndRadii, First@First@First@#1 == First@First@First@#2 &];
+modesFilesAndRadii = Map[pickHighestLevel,tmp];
+
+
+psi4BAMModesSections = Table[
+  modesFiles = TakeColumn[modesFilesAndRadii[[i]],2];
+  {rad,lev}  = TakeColumn[modesFilesAndRadii[[i]], 1][[1, 1]];
+
+  str = radii[[ToExpression@rad]];
+
+  tmp=ComposeStrainModesSection[First@modesFiles,
+     "Verbose"-> False,"SectionHeader"-> "psi4t-data",
+     "Modes"-> "All","Path" -> "Psi4BAMModes/"];
+  tmp[[2]] = {tmp[[2]], "extraction-radius = "<>  ToString@str <>"\n"};
+  AppendTo[tmp, "\n\n"];
+  Flatten@tmp,
+{i,1,Length@modesFilesAndRadii}];
+ExportText[FileNameJoin[{myDestinationDir,"psi4BAMmodes.bbh"}], Flatten@psi4BAMModesSections,"Overwrite"->True];
+
+(* NOW THE WHOLE THING AGAIN FOR THE FULL MODES *)
+
+(* First, check if Vivek-style modes are available *)
+VivekModesFiles = FileNames[modesString,VivekModesSource,2];
+Print["Found Vivek-style modes files: ", VivekModesFiles];
+
+If[Length@VivekModesFiles > 0,
+modesFiles=VivekModesFiles;
+modesDecompDir = FileNameJoin[{Psi4ModesDir,"Psi4ModeDecomp"}];
+(*CreateDirectory[modesDecompDir];*)
+
+CopyDirectory[VivekModesSource<>"/data",modesDecompDir];
+
+canCreateModeFiles = False;,
+
+(* check for psi4 source files and whether mode decomp can be run *)
+WriteModeDecompConfigFile[DirectoryRules,"RunDecomp"-> True,
+     "ModesTargetDirectory"-> Psi4ModesDir,"JustPretendCalculation"-> True];
+
+modesFiles = FileNames[modesString,Psi4ModesDir<>"/Psi4ModeDecomp",2];
+If[Length@modesFiles == 0,
+ Print["Mode decomposition yields no results - no mode files can be created."];
+ canCreateModeFiles = False;,
+ canCreateModeFiles = True;
+];
+];
+
+modesFilesAndRadii = Table[
+str = modesFiles[[i]];
+{StringCases[str,"r"~~rad:NumberString~~".l"~~lev:NumberString~~".l"~~l:NumberString~~".m"~~m:NumberString~~___ :> 
+        {rad,lev}],str},{i,1,Length@modesFiles}];
+
+pickHighestLevel[xxx_?ListQ]:=\[NonBreakingSpace]Last@Gather[xxx, First@#1 ==First@#2 &];
+
+tmp = Gather[modesFilesAndRadii, First@First@First@#1 == First@First@First@#2 &];
+modesFilesAndRadii = Map[pickHighestLevel,tmp];
+
+psi4ModesSections = Table[
+  modesFiles = TakeColumn[modesFilesAndRadii[[i]],2];
+  {rad,lev}  = TakeColumn[modesFilesAndRadii[[i]], 1][[1, 1]];
+
+  str = radii[[ToExpression@rad]];
+
+  tmp=ComposeStrainModesSection[First@modesFiles,
+     "Verbose"-> False,"SectionHeader"-> "psi4t-data",
+     "Modes"-> "All","Path" -> "Psi4ModeDecomp/"];
+  tmp[[2]] = {tmp[[2]], "extraction-radius = "<>  ToString@str <>"\n"};
+  AppendTo[tmp, "\n\n"];
+  Flatten@tmp,
+{i,1,Length@modesFilesAndRadii}];
+
+Export[FileNameJoin[{myDestinationDir,"psi4modes.bbh"}], Flatten@psi4ModesSections,"Text"];
+
+
+(* overwrite modes files if we find some in the main directory *)
+CopyFiles[filePrefix,evDir,myDestinationDir,
+{
+"moving_puncture_integrate1.txyz*",
+"moving_puncture_integrate2.txyz*",
+"psi3col.r*",
+"*.par*",
+"horizon_*",
+"ah.xy*",
+"basic.bbh",
+"uuid"
+}];
+
+
+CopyFiles[filePrefix,evDir,BAMLogDir,
+{"system.log*"}];
+
+EnergyMomentumDir = FileNameJoin[{myDestinationDir,"EnergyMomentum"}];
+CreateDirectory[EnergyMomentumDir];
+
+CopyFiles[filePrefix,evDir,EnergyMomentumDir,
+{"d*dt_r*.t*","ADM_mass_r*.t*"}];
+
+(* compress some files *)
+Run["cd "<> myDestinationDir <> "; " <>
+    "gzip moving_puncture_integrate* system.log* ah.xy*/*"];
+
+Run["cd "<> EnergyMomentumDir <> "; " <>
+    "gzip d*dt_r*.t* ADM_mass_r*.t*"];
+
+Run["cd "<> BAMLogDir <> "; " <>
+    "gzip *"];
+
+(* convert horizon and puncture track files to NRAR format and add entries to metadata file *)
+rules={};
+
+tmp = FileNames["horizon_*",myDestinationDir,2];
+If[Length@tmp == 0,
+Print["Could not find horizon files!"];,
+
+Map[BAMHorizonFilesToNRARFiles[#,"DeleteSourceFiles"-> False]&,tmp];
+
+tmp = LastInPath@First@FileNames["hmass_1.*",myDestinationDir,2];
+AppendTo[rules, "horizon-mass1" -> tmp];
+
+tmp = LastInPath@First@FileNames["hmass_2.*",myDestinationDir,2];
+AppendTo[rules, "horizon-mass2" -> tmp];
+
+tmp = LastInPath@First@FileNames["hspin_1.*",myDestinationDir,2];
+AppendTo[rules, "spin1" -> tmp];
+
+tmp = LastInPath@First@FileNames["hspin_2.*",myDestinationDir,2];
+AppendTo[rules, "spin2" -> tmp];
+
+tmp = LastInPath@First@FileNames["htraj_1.*",myDestinationDir,2];
+AppendTo[rules, "horizon-center1" -> tmp];
+
+tmp = LastInPath@First@FileNames["htraj_2.*",myDestinationDir,2];
+AppendTo[rules, "horizon-center2" -> tmp];
+];
+
+tmp = Join[FileNames["moving_puncture_integrate1.txyz*",myDestinationDir,2],
+           FileNames["moving_puncture_integrate2.txyz*",myDestinationDir,2]];
+
+If[Length@tmp == 0,
+Print["Could not find puncture track files!"];,
+Print["Found puncture track files: ", tmp];
+Map[BAMTrajectoryFileTo4Col[#,"DeleteSourceFiles"-> False]&,tmp];
+
+(* below, Last is used to get data at the finest available level *)
+tmp = Last@FileNames["traj_1.l*",myDestinationDir,2];
+AppendTo[rules,"trajectory1" -> FileNameTake[tmp,-1]];
+
+tmp = Last@FileNames["traj_2.l*",myDestinationDir,2];
+AppendTo[rules, "trajectory2" -> FileNameTake[tmp,-1]];
+];
+
+
+trajectoriesSection = ComposeConfigSection["body-data", Flatten@rules, "Verbose" -> True];
+
+tmp=FileNames["basic.bbh",myDestinationDir,2];
+If[Length@tmp == 0,
+  Print["Missing metadata file basic.bbh!"];
+  baseSection = {"[metadata]","# empty"};,
+  metadataFile = First@tmp;
+  If[FileType@metadataFile == File,
+   tmp = ConfigFileToRules@metadataFile;
+   baseSection = Flatten@StringSplit[StringSplit[Import[metadataFile,"String"],EndOfLine],"\n"];
+   DeleteFile@metadataFile;
+];
+];
+
+
+metadataContent = Flatten@Join[baseSection,physicsSection,trajectoriesSection,psi4BAMModesSections];
+metaFile = FileNameJoin[{myDestinationDir, configString<>".raw.bbh"}];
+ExportText[metaFile,metadataContent,"Overwrite"-> True];
+
+metadataContent = Flatten@Join[baseSection,physicsSection,trajectoriesSection,psi4ModesSections];
+metaFile2 = FileNameJoin[{myDestinationDir, configString<>".bbh"}];
+ExportText[metaFile2,metadataContent,"Overwrite"-> True];
+
+
+(* compute eccentricity and modify metadata *)
+
+(* use the maximal finite extraction radius *)
+eccentricityData = NinjaBase`NinjaEccentricity[metaFile,"SectionInstance" -> "MaxRad","Verbose"-> True];
+ChangeConfigEntry[metaFile,metaFile, "eccentricity", ToString@eccentricityData[[1]]];
+ChangeConfigEntry[metaFile2,metaFile2, "eccentricity", ToString@eccentricityData[[1]]];
+
+Print["select max from metaFile ", metaFile];
+radius=ReadNinjaModes[FileNameTake[metaFile,FileNameDepth@metaFile-1],FileNameTake[metaFile,-1],
+        "MModes"-> {2,2}, "DataSection" -> "psi4t-data","SectionInstance" -> "MaxRad", "Tag" -> "mode22","Verbose" -> True,
+        "OnlyComputeExtractionInfo" -> True];
+
+Print[];
+Print["Found extraction radii = ", FullForm@radius];
+Print["Found max radius = ", radius=Max[StringToNumber /@ radius]];
+
+
+(* compute start frequency and number of cycles, and modify metadata *)
+startTime = afterJunkTime + radius;
+Print["Calling NinjaCyclesStartFreq with startTime = ", startTime];
+cycleInfo = NinjaCyclesStartFreq[metaFile,startTime];
+
+startFreq = "freq-start-22"    /.cycleInfo;
+nCycles = "number-of-cycles-22" /. cycleInfo;
+
+Print["found start freq = ", startFreq, ", ", "#\[NonBreakingSpace]of cycles = ", nCycles ];
+
+(* tmp = ListPlot[{Abs@ninjlm["mode22",2,2],Re@ninjlm["mode22",2,2],
+  {{afterJunkTime + radius,0},{afterJunkTime + radius,Max[TakeColumn[Abs@ninjlm["mode22",2,2],2]]}}},
+PlotRange\[Rule] All,Joined\[Rule] True];
+Export[FileNameJoin[{myDestinationDir,"timedomain_psi4_22.pdf"}],tmp]; *)
+
+ChangeConfigEntry[metaFile,metaFile, "freq-start-22", ToString@startFreq];
+ChangeConfigEntry[metaFile,metaFile, "number-of-cycles-22", ToString@nCycles];
+
+ChangeConfigEntry[metaFile2,metaFile2, "freq-start-22", ToString@startFreq];
+ChangeConfigEntry[metaFile2,metaFile2, "number-of-cycles-22", ToString@nCycles];
+
+
+Print["changed metadata entries for freq-start-22 and number-of-cycles-22"];
+
+(* compute spins after junk-radiation, and modify metadata *)
+Clear[tt,sx,sy,sz];
+tmp = ReadNinjaData[metaFile,"body-data", "spin1"];
+If[ListQ@tmp,
+  tmp = tmp /. {tt_?NumberQ,sx_?NumberQ,sy_?NumberQ,sz_?NumberQ} -> {tt,{sx,sy,sz}};
+  tmp = Interpolation@tmp;
+  tmp = Chop/@ tmp@afterJunkTime;
+  Print["spin1 after junk = ", tmp];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin1x", ToString@tmp[[1]]];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin1y", ToString@tmp[[2]]];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin1z", ToString@tmp[[3]]];
+
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin1x", ToString@tmp[[1]]];
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin1y", ToString@tmp[[2]]];
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin1z", ToString@tmp[[3]]];
+];
+
+
+tmp = ReadNinjaData[metaFile,"body-data", "spin2"]  /. {tt_,sx_,sy_,sz_} -> {tt,{sx,sy,sz}};
+If[ListQ@tmp,
+  tmp = Interpolation@tmp;
+  tmp = Chop /@ tmp@afterJunkTime;
+  Print["spin2 after junk = ", tmp];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin2x", ToString@tmp[[1]]];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin2y", ToString@tmp[[2]]];
+  ChangeConfigEntry[metaFile,metaFile, "after-junkradiation-spin2z", ToString@tmp[[3]]];
+
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin2x", ToString@tmp[[1]]];
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin2y", ToString@tmp[[2]]];
+  ChangeConfigEntry[metaFile2,metaFile2, "after-junkradiation-spin2z", ToString@tmp[[3]]];
+];
+
+Print["Deleting file ", FileNameJoin[{myDestinationDir,"psi4BAMmodes.bbh"}]];
+DeleteFile[FileNameJoin[{myDestinationDir,"psi4BAMmodes.bbh"}]];
+
+If[canCreateModeFiles,
+ WriteModeDecompConfigFile[DirectoryRules,"RunDecomp"-> modeDecomp,"ModesTargetDirectory"-> Psi4ModesDir];,
+ CopyFile[metaFile, metaFile2];
+];
+
+Print["========================================================\n\n"];
+];
+
+
+NRARPsi4ToStrain[metaFile_,LMAX_,\[Omega]GWStart_]:=Module[{newMetaFile,dir,newMeta,tmp,psi4tInstances,readOut,filesRead,originalFile,newFile,times,data,col3data,file},
+
+newMetaFile=StringReplace[metaFile,".bbh"->".hFFI.bbh"];
+dir=FileNameTake[metaFile,FileNameDepth[metaFile]-1];
+
+myDestinationDir=FileNameJoin[{FileNameDrop[metaFile,-1],"FFIStrainModes"}];
+
+If[FileType@myDestinationDir==None,
+  CreateDirectory[myDestinationDir],
+  RenameDirectory[myDestinationDir,myDestinationDir<>"_bak"];
+];
+
+Run["cp "<>metaFile<>" "<>newMetaFile];
+
+newMeta=Import[newMetaFile,"Text"];
+tmp=StringReplace[newMeta,"[psi4t-data]"->"[ht-data]"];
+tmp=StringReplace[tmp,"Psi4ModeDecomp/psi"->"FFIStrainModes/h"];
+Export[newMetaFile,tmp,"Text"];
+
+psi4tInstances=Length@Cases[ConfigSectionHeaders[metaFile,"Union"-> False],"psi4t-data"];
+
+Do[
+readOut=ReadNinjaModes[dir,FileNameTake[metaFile,-1],"DataSection"->"psi4t-data","LMax"->LMAX,"SectionInstance"->i,"Tag"->"dummy"];
+filesRead=readOut[[2]];
+
+Print@readOut;
+
+Do[
+
+If[m!=0,strain=hFromPsi4FFI[ninjlm["dummy",l,m],(Abs@m/2)\[Omega]GWStart/(2 \[Pi])];,strain=hFromPsi4FFI[ninjlm["dummy",l,m],(1/2)\[Omega]GWStart/(2 \[Pi])];];
+
+originalFile=Last@First@Select[filesRead,#[[1]]=={l,m}&];
+newFile=StringReplace[originalFile,"Psi4ModeDecomp/psi"->"FFIStrainModes/h"];
+
+times=TakeColumn[strain,1];
+data=TakeColumn[strain,2];
+
+col3data=Transpose@{times,Re@data,Im@data};
+file=FileNameJoin[{FileNameDrop[myDestinationDir,-1],newFile}];
+Print["Exporting file ",file];
+Export[file,col3data,{"GZIP","Table"}],{l,2,LMAX},{m,-l,l}]
+,{i,psi4tInstances}]
+]
+
+
+Options[SXSLuminosityFromMetaFiles]={"PrecessingTolerance"->0.001`,"OutputTag"->"SXSLuminosities_","OutputDir"->".","ExtrapOrder"->{2},"Verbose"->"False"}
+
+
+SXSLuminosityFromMetaFiles[metadata_?ListQ,modes_?ListQ,OptionsPattern[]]:=Module[{tags,metarules,\[CapitalOmega]startMetadata,M1,M2,\[Chi]1vect,\[Chi]2vect,\[Chi]1,\[Chi]2,M,\[Eta],q,A1,A2,Lx,Ly,Lz,Lvect,
+LvectNorm,precvalue1,precvalue2,precvalueNorm1,precvalueNorm2,precvalueNorm,precessing,\[Chi]1p,\[Chi]2p,Initial\[Chi]Plane,\[Chi]1vect\[Chi]2vect,fnameBase,myFile,mymodes,h5file,dir,
+ta,test\[Psi],pos,test\[Psi]22,domain,times,f0,mm,lum,sumModes,sumModesDominant,sumModesLum,sumModesLumDom,tmaxSum,tmaxSumDom,modesMaxima,data,int,verbose,lmax,ls,lsms,
+lsmsm1,dommodes,testdommodes,posdom,domsneg,precessingtolerance,outputtag,outputdir,xx,yy,extraporder},
+
+mymodes=modes;
+
+verbose=OptionValue["Verbose"];
+precessingtolerance=OptionValue["PrecessingTolerance"];
+outputtag=OptionValue["OutputTag"];
+outputdir=OptionValue["OutputDir"];
+extraporder=OptionValue["ExtrapOrder"];
+
+(* read metadata and convert to physical quantities *)
+tags=(FileNameTake[#1,{-3}]&)/@metadata;
+metarules=SXSMetaFilesToRules/@metadata;
+\[CapitalOmega]startMetadata[tags]="initial-orbital-frequency"/. metarules;
+M1=Flatten["initial-mass1"/. metarules,1];
+M2=Flatten["initial-mass2"/. metarules,1];
+M=M1+M2;\[Eta]=(M1 M2)^2/M^2;
+q=(Max[#1,1]&)/@(M1/M2);
+
+\[Chi]1vect=("initial-spin1"/. metarules)/M1^2;
+\[Chi]2vect=("initial-spin2"/. metarules)/M2^2;
+\[Chi]1vect\[Chi]2vect=Transpose[{\[Chi]1vect,\[Chi]2vect}];
+\[Chi]1=Norm/@\[Chi]1vect;
+\[Chi]2=Norm/@\[Chi]2vect;
+
+Lvect="initial-ADM-angular-momentum"/. metarules;
+LvectNorm=Lvect/(Norm/@Lvect);
+Initial\[Chi]Plane=Table[{\[Chi]1vect\[Chi]2vect[[i,1]]-Lvect[[i]] Lvect[[i]].\[Chi]1vect\[Chi]2vect[[i,2]],\[Chi]1vect\[Chi]2vect[[i,2]]-Lvect[[i]] Lvect[[i]].\[Chi]1vect\[Chi]2vect[[i,2]]},{i,Length[Lvect]}];
+\[Chi]1p=Norm/@Initial\[Chi]Plane[[All,1]];
+\[Chi]2p=Norm/@Initial\[Chi]Plane[[All,2]];
+
+
+(* Is it precessing? *)
+A1=1+3/4. q;
+A2=1+3/(4. q);
+precvalue1=Table[(\[Chi]1vect[[i]] A1[[i]])\[Cross]LvectNorm[[i]],{i,Length[tags]}];
+precvalue2=Table[(\[Chi]2vect[[i]] A2[[i]])\[Cross]LvectNorm[[i]],{i,Length[tags]}];
+precvalueNorm1=Norm/@precvalue1;
+precvalueNorm2=Norm/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+Do[If[precvalueNorm[[i]]<0.001,precessing[tags[[i]]]=False,precessing[tags[[i]]]=True],{i,Length[tags]}];
+
+(* Compute Luminosity *)
+Table[
+    (* Find rpsi4 files *)
+    fnameBase=ToString[outputtag];
+    Print["Computing Luminosity from: ",tags[[i]]];
+    myFile=ToString[outputdir]<>"/"<>fnameBase<>ToString[tags[[i]]]<>".dat";
+
+    dir=FileNameDrop[metadata[[i]],-2];
+    h5file=First[FileNames["rMPsi4_Asymptotic_GeometricUnits.h5",dir,2]];
+
+    If[FileExistsQ[h5file],Print["Found ",h5file," . Continue"];,Print["Not found ",h5file," . Bye"];Return[]];
+    If[precessing[tags[[i]]],Print["Precessing run. Non simetry. Taking all modes"];,Print["Non-Precessing run. Assuming simetry. Taking only m>0 modes"];mymodes=Select[mymodes,#1[[2]]>=0&];];
+    Print["Modes selection : ",mymodes];
+
+    (* How many dominant modes are present? eg. {{2,2},{2,1},{2,-2}}? *)
+    lmax=Max[mymodes[[All,1]]];
+    ls=DeleteDuplicates[mymodes[[All,1]]];
+    lsms=CombineColumns[ls,ls];
+    lsmsm1=CombineColumns[ls,ls-1];
+    dommodes=Sort[Join[lsms,lsmsm1]];
+    domsneg=dommodes/. {xx_,yy_}->{xx,-yy};
+    dommodes=Sort[Join[dommodes,domsneg]];
+    testdommodes=(MemberQ[mymodes,#1]&)/@dommodes;
+    posdom=Flatten[Position[testdommodes,True]];
+    dommodes=dommodes[[posdom]];Print["Dominant modes : ",dommodes];
+
+    ta=Table[
+            (* Load and process data *)
+            Print["Extrapolation order : ",j];
+            test\[Psi]=GetAsymptoticMultiMode[h5file,j,mymodes];
+            Print["Modes Loaded"];
+            
+            pos=First[First[Position[mymodes,{2,2}]]];
+            test\[Psi]22=test\[Psi][[pos]];
+            domain={First[First[test\[Psi]22]],First[Last[test\[Psi]22]]};
+            times=Range[First[domain],Last[domain],0.5];
+            test\[Psi]=Interpolation/@test\[Psi];
+            test\[Psi]=Table[CombineColumns[times,test\[Psi][[i]][times]],{i,Length[test\[Psi]]}];
+
+            (* 22 mode guess frequency *)
+            f0=Abs[First[GuessFFIf0[test\[Psi][[pos]],"MinTime"->First[First[test\[Psi][[pos]]]]+250]]];
+
+            (* compute Luminosoties *)
+
+            Do[If[mymodes[[l,2]]!=0,mm=mymodes[[l,2]]/2,mm=(mymodes[[l,2]]+1)/2]; 
+               lum[mymodes[[l,1]],mymodes[[l,2]]]=Abs[TakeColumn[NewsFromPsi4FFI[test\[Psi][[l]],0.75f0 Abs[mm]],2]]^2;Print[mymodes[[l]]];,{l,Length[mymodes]}];
+           
+            If[precessing[tags[[i]]],
+                         sumModes=1/(16 \[Pi])Sum[lum[mymodes[[l,1]],mymodes[[l,2]]],{l,Length@mymodes}];
+                         sumModesDominant=1/(16 \[Pi])Sum[lum[dommodes[[l,1]],dommodes[[l,2]]],{l,Length@dommodes}];
+                         ,
+                         sumModes=1/(8 \[Pi])Sum[lum[mymodes[[l,1]],mymodes[[l,2]]],{l,Length@mymodes}];
+                         sumModesDominant=1/(8 \[Pi])Sum[lum[dommodes[[l,1]],dommodes[[l,2]]],{l,Length@dommodes}];];
+
+
+             sumModesLum=CombineColumns[times,sumModes];
+             sumModesLumDom=CombineColumns[times,sumModesDominant];
+             tmaxSum=TimeOfMaximum[sumModesLum];
+             tmaxSumDom=TimeOfMaximum[sumModesLumDom];
+             modesMaxima=Table[data=CombineColumns[times,lum[mymodes[[l,1]],mymodes[[l,2]]]];
+                               int=Interpolation[data];
+                               {ValueOfMaximum[data],int[tmaxSum],int[tmaxSumDom]},{l,Length[mymodes]}];
+
+If[verbose,Print[ListPlot[{sumModesLum,sumModesLumDom},Joined->True,PlotRange->All]];];
+Flatten[{tags[[i]],\[Eta][[i]],\[Chi]1[[i]],\[Chi]2[[i]],\[Chi]1p[[i]],\[Chi]2p[[i]],Initial\[Chi]Plane[[i]],j,ValueOfMaximum[sumModesLum],tmaxSum,ValueOfMaximum[sumModesLumDom],tmaxSumDom,Flatten[modesMaxima]}],{j,extraporder}];
+
+Print["Exporting results to : ",myFile];Export[myFile,ta];
+,{i,Length[tags]}];
+
+ta]
+
+
+Options[BAMLuminosityFromMetaFiles]={"PrecessingTolerance"->0.001,"OutputTag"->"BAMLuminosities_","OutputDir"->".","ExtractionRadius"->{},"Verbose"->"False"};
+
+
+BAMLuminosityFromMetaFiles[metadata_?ListQ,modes_?ListQ,OptionsPattern[]]:=Module[{tags,metarules,\[CapitalOmega]startMetadata,M1,M2,\[Chi]1vect,\[Chi]2vect,\[Chi]1,\[Chi]2,M,\[Eta],q,A1,A2,Lx,Ly,Lz,Lvect,
+LvectNorm,precvalue1,precvalue2,precvalueNorm1,precvalueNorm2,precvalueNorm,precessing,\[Chi]1p,\[Chi]2p,Initial\[Chi]Plane,\[Chi]1vect\[Chi]2vect,fnameBase,myFile,mymodes,h5file,dir,
+ta,test\[Psi],pos,test\[Psi]22,domain,times,f0,mm,lum,sumModes,sumModesDominant,sumModesLum,sumModesLumDom,tmaxSum,tmaxSumDom,modesMaxima,data,int,verbose,lmax,ls,lsms,
+lsmsm1,dommodes,testdommodes,posdom,domsneg,precessingtolerance,outputtag,outputdir,xx,yy,extractionradius,p1,p2,r1,r2,InitialOrbitalAngularMomentum,InitialAngularMomentum,
+extraddef,myRad,myrads},
+
+mymodes=modes;
+
+verbose=OptionValue["Verbose"];
+precessingtolerance=OptionValue["PrecessingTolerance"];
+outputtag=OptionValue["OutputTag"];
+outputdir=OptionValue["OutputDir"];
+extractionradius=OptionValue["ExtractionRadius"];
+
+(* read metadata and convert to physical quantities *)
+tags=FileNameTake[#,{-3}]&/@metadata;
+metarules=BAMMetaFilesToRules/@metadata;
+
+M1=Flatten["mass1"/. metarules,1];
+M2=Flatten["mass2"/. metarules,1];
+M=M1+M2;
+\[Eta]=(M1 M2)^2/M^2;
+q=(Max[#1,1]&)/@(M2/M1);
+
+\[Chi]1vect=Transpose@{(("initial-bh-spin1x"/. metarules)/M1^2)[[All,1]],(("initial-bh-spin1y"/. metarules)/M1^2)[[All,1]],(("initial-bh-spin1z"/. metarules)/M1^2)[[All,1]]};
+
+\[Chi]2vect=Transpose@{(("initial-bh-spin2x"/. metarules)/M2^2)[[All,1]],(("initial-bh-spin2y"/. metarules)/M2^2)[[All,1]],(("initial-bh-spin2z"/. metarules)/M2^2)[[All,1]]};
+\[Chi]1vect\[Chi]2vect=Transpose[{\[Chi]1vect,\[Chi]2vect}];
+\[Chi]1=Norm/@\[Chi]1vect;
+\[Chi]2=Norm/@\[Chi]2vect;
+
+
+r1=Transpose[{("initial-bh-position1x"/.metarules)[[All,1]],("initial-bh-position1y"/.metarules)[[All,1]],("initial-bh-position1z"/.metarules)[[All,1]]}];
+r2=Transpose[{("initial-bh-position2x"/.metarules)[[All,1]],("initial-bh-position2y"/.metarules)[[All,1]],("initial-bh-position2z"/.metarules)[[All,1]]}];
+p1=Transpose[{("initial-bh-momentum1x"/.metarules)[[All,1]],("initial-bh-momentum1y"/.metarules)[[All,1]],("initial-bh-momentum1z"/.metarules)[[All,1]]}];
+p2=Transpose[{("initial-bh-momentum2x"/.metarules)[[All,1]],("initial-bh-momentum2y"/.metarules)[[All,1]],("initial-bh-momentum2z"/.metarules)[[All,1]]}];
+
+Lvect= Table[p1[[i]]\[Cross]r1[[i]] + p2[[i]]\[Cross]r2[[i]],{i,Length@metadata}];
+LvectNorm=Lvect/(Norm/@Lvect);
+Initial\[Chi]Plane=Table[{\[Chi]1vect\[Chi]2vect[[i,1]]-Lvect[[i]] Lvect[[i]].\[Chi]1vect\[Chi]2vect[[i,2]],\[Chi]1vect\[Chi]2vect[[i,2]]-Lvect[[i]] Lvect[[i]].\[Chi]1vect\[Chi]2vect[[i,2]]},{i,Length[Lvect]}];
+
+\[Chi]1p=Norm/@Initial\[Chi]Plane[[All,1]];
+\[Chi]2p=Norm/@Initial\[Chi]Plane[[All,2]];
+
+
+(* Is it precessing? *)
+A1=1+3/4. q;
+A2=1+3/(4. q);
+precvalue1=Table[(\[Chi]1vect[[i]] A1[[i]])\[Cross]LvectNorm[[i]],{i,Length[tags]}];
+precvalue2=Table[(\[Chi]2vect[[i]] A2[[i]])\[Cross]LvectNorm[[i]],{i,Length[tags]}];
+precvalueNorm1=Norm/@precvalue1;
+precvalueNorm2=Norm/@precvalue2;
+precvalueNorm=precvalueNorm1^2+precvalueNorm2^2;
+Do[If[precvalueNorm[[i]]<0.001,precessing[tags[[i]]]=False,precessing[tags[[i]]]=True],{i,Length[tags]}];
+
+extraddef=Table["extraction-radius"/.metarules[[i]],{i,Length@metarules}];
+
+If[Length@extractionradius!=0,extraddef==TakeColumn[extraddef,extractionradius]];
+
+(* Compute Luminosity *)
+Table[
+    (* Find rpsi4 files *)
+    fnameBase=ToString[outputtag];
+    Print["Computing Luminosity from: ",tags[[i]]];
+    myFile=ToString[outputdir]<>"/"<>fnameBase<>ToString[tags[[i]]]<>".dat";
+
+    dir=FileNameTake[metadata[[i]],FileNameDepth[metadata[[i]]]-1]; 
+    myrads=extraddef[[i]];
+  
+    If[FileExistsQ[dir],Print["Found ",dir," . Continue"];,Print["Not found ",dir," . Bye"];Return[]];
+    If[precessing[tags[[i]]],Print["Precessing run. Non simetry. Taking all modes"];,Print["Non-Precessing run. Assuming simetry. Taking only m>0 modes"];mymodes=Select[mymodes,#1[[2]]>=0&];];
+    Print["Modes selection : ",mymodes];
+ 
+    (* How many dominant modes are present? eg. {{2,2},{2,1},{2,-2}}? *)
+    lmax=Max[mymodes[[All,1]]];
+    ls=DeleteDuplicates[mymodes[[All,1]]];
+    lsms=CombineColumns[ls,ls];
+    lsmsm1=CombineColumns[ls,ls-1];
+    dommodes=Sort[Join[lsms,lsmsm1]];
+    domsneg=dommodes/. {xx_,yy_}->{xx,-yy};
+    dommodes=Sort[Join[dommodes,domsneg]];
+    testdommodes=(MemberQ[mymodes,#1]&)/@dommodes;
+    posdom=Flatten[Position[testdommodes,True]];
+    dommodes=dommodes[[posdom]];Print["Dominant modes : ",dommodes];
+
+    ta=Table[
+            (* Load and process data *)
+            Clear[ninjlm];            
+            Print["Extraction radius : ",myrads[[j]]];
+            
+            Do[myReadNinjaModes[dir,FileNameTake[metadata[[i]],-1],"DataSection"-> "psi4t-data","LMax" -> 2,"MModes" -> {mymodes[[l,1]],mymodes[[l,2]]}, "SectionInstance" -> j,
+               "Tag"-> "dummy"];,{l,Length@mymodes}];
+            Print["Modes Loaded"];
+  
+            (* 22 mode guess frequency *)
+            test\[Psi]=TimeUnion@ninjlm["dummy",2,2];
+            f0=Abs@First@GuessFFIf0[test\[Psi], "MinTime"-> First@First@test\[Psi]+250];
+            times=TakeColumn[test\[Psi],1];
+
+            (* compute Luminosoties *)
+            Do[If[mymodes[[l,2]]!=0,mm=mymodes[[l,2]]/2,mm=(mymodes[[l,2]]+1)/2];
+               test\[Psi]=TimeUnion@ninjlm["dummy",mymodes[[l,1]],mymodes[[l,2]]]; 
+               lum[mymodes[[l,1]],mymodes[[l,2]]]=Abs[TakeColumn[NewsFromPsi4FFI[test\[Psi],0.75f0 Abs[mm]],2]]^2;Print[mymodes[[l]]];,{l,Length[mymodes]}];
+           
+            If[precessing[tags[[i]]],
+                         sumModes=1/(16 \[Pi])Sum[lum[mymodes[[l,1]],mymodes[[l,2]]],{l,Length@mymodes}];
+                         sumModesDominant=1/(16 \[Pi])Sum[lum[dommodes[[l,1]],dommodes[[l,2]]],{l,Length@dommodes}];
+                         ,
+                         sumModes=1/(8 \[Pi])Sum[lum[mymodes[[l,1]],mymodes[[l,2]]],{l,Length@mymodes}];
+                         sumModesDominant=1/(8 \[Pi])Sum[lum[dommodes[[l,1]],dommodes[[l,2]]],{l,Length@dommodes}];];
+
+
+             sumModesLum=CombineColumns[times,sumModes];
+             sumModesLumDom=CombineColumns[times,sumModesDominant];
+             tmaxSum=TimeOfMaximum[sumModesLum];
+             tmaxSumDom=TimeOfMaximum[sumModesLumDom];
+             modesMaxima=Table[data=CombineColumns[times,lum[mymodes[[l,1]],mymodes[[l,2]]]];
+                               int=Interpolation[data];
+                               {ValueOfMaximum[data],int[tmaxSum],int[tmaxSumDom]},{l,Length[mymodes]}];
+
+If[verbose,Print[ListPlot[{sumModesLum,sumModesLumDom},Joined->True,PlotRange->All]];];
+Flatten[{tags[[i]],\[Eta][[i]],\[Chi]1[[i]],\[Chi]2[[i]],\[Chi]1p[[i]],\[Chi]2p[[i]],Initial\[Chi]Plane[[i]],myrads[[j]],ValueOfMaximum[sumModesLum],tmaxSum,ValueOfMaximum[sumModesLumDom],tmaxSumDom,Flatten[modesMaxima]}],{j,Length@myrads}];
+
+Print["Exporting results to : ",myFile];
+Export[myFile,ta];
+
+,{i,Length[tags]}];
+
+ta
+]
+
+
+AHBAMsmall[q_,s_]:=Sqrt[0.7599216762029171` -0.6443660299643744` s^2]/(1+q)
+AHBAMbig[q_,s_]:=(q Sqrt[0.9466225527668473` -0.8578738205662785` s^2])/(1+q)
+
+
+AHBAMsmall2017[q_,s_]:=(0.9097788740970632` Sqrt[1-0.8630715321085808` s^2]-0.013097939946145838` q Sqrt[1-0.8630715321085808` s^2])1/(1+q)
+AHBAMbig2017[q_,s_]:=(0.9092695479821113` Sqrt[1-0.9004695426988402` s^2]+0.025102624533684333` q Sqrt[1-0.9004695426988402` s^2])q/(1+q)
+
+
+End[];
+EndPackage[];
+
+
+
diff --git a/code/DataFits.m b/code/DataFits.m
new file mode 100644
index 0000000..315fbe9
--- /dev/null
+++ b/code/DataFits.m
@@ -0,0 +1,2224 @@
+(* ::Package:: *)
+
+(************************************************************************)
+(* This file was generated automatically by the Mathematica front end.  *)
+(* It contains Initialization cells from a Notebook file, which         *)
+(* typically will have the same name as this file except ending in      *)
+(* ".nb" instead of ".m".                                               *)
+(*                                                                      *)
+(* This file is intended to be loaded into the Mathematica kernel using *)
+(* the package loading commands Get or Needs.  Doing so is equivalent   *)
+(* to using the Evaluate Initialization Cells menu command in the front *)
+(* end.                                                                 *)
+(*                                                                      *)
+(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
+(* automatically each time the parent Notebook file is saved in the     *)
+(* Mathematica front end.  Any changes you make to this file will be    *)
+(* overwritten.                                                         *)
+(************************************************************************)
+
+
+
+(* ::Code::Initialization:: *)
+BeginPackage["DataFits`",{"NRLists`","ErrorBarPlots`"}];
+
+
+(* ::Code::Initialization:: *)
+\[Eta]::usage="\[Eta] for local usage";
+S::usage="S for local usage";
+\[Chi]1::usage="\[Chi]1 for local usage";
+\[Chi]2::usage="\[Chi]2 for local usage";
+\[Delta]\[Chi]::usage="\[Delta]\[Chi] for local usage";
+
+a0::usage="a0 for local usage";
+a1::usage="a1 for local usage";
+a2::usage="a2 for local usage";
+
+sTot::usage="";
+sTot3::usage="";
+\[Chi]Tot::usage="";
+
+\[Chi]diffplus::usage="";
+\[Chi]diffstan::usage="";
+
+DataFitFunction::usage="DataFitFunction[data_?ListQ,ansatzList_?ListQ,OptionsPattern[]]";
+
+DataFitFunctionAll::usage="DataFitFunctionAll[dataraw_?ListQ,OptionsPattern[]]";
+DataFitFunctionAllNoWeights::usage="DataFitFunctionAllWeights[dataraw_?ListQ,OptionsPattern[]]";
+
+AnsatzRestrictions::usage="AnsatzRestrictions[nsfit_, q1fit_, ansatzGen_]";
+
+Plot2DFits::usage="Plot2DFits[data_?ListQ,fitlist_?ListQ,fitvars_?ListQ, OptionsPattern[]]";
+myListPlot3D::usage="myListPlot3D[data_?ListQ,options]: Plot 3d data +  interpolated function";
+ColorGradient::usage="ColorGradient[data,colors,options]. Create a linear gradient of colors for the data";
+CreateColors::usage="CreateColors[codes,colors]. Set different colors for each NR code";
+
+CleanAnsatzParams::usage="cleanAnsatzParams[paramsGuess_, vars_]";
+
+Generate1DPolynomialAnsatz::usage="Generate1DPolynomialAnsatz[CoefficientPrefixString_?StringQ,variable_,MinOrder_?IntegerQ,MaxOrder_?IntegerQ] creates a polynomial function ansatz.";
+
+Residuals::usage="Residuals[data_,fit_,vars_] computes fit residuals.";
+AtomsList::usage="Take the coefficients out";
+
+GeneralizeFunction::usage="GeneralizeFunction[expr_,x_] insert free coefficient at all (non-exact) real numbers in a function";
+GeneralizeFunction::usage="GeneralizeFunction[expr_,x_,coord_,orderNum,orderDenom_] insert polynomial with free coefficients at all (non-exact) real numbers in a function";
+
+ExactPade::usage="ExactPade[ansatz_,coeffRules_,padeOptions_] get Pade approximant while keeping exact coefficients fixed.";
+Generate1DPadeAnsatzList::usage="Generate1DPadeAnsatzList[ansatz_,\!\(\*
+StyleBox[\"coeffRules_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"variable_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"paramName_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"minPadeTypeSum_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"maxPadeTypeSum_\", \"Code\"]\)] make a list of all Pade ansaetze with type (num+denom) summing up between [min,max].";
+
+InvertRules::usage="InvertRules[rules_] invert a list of rules";
+Get1dInverseRules::usage="Get1dInverseRules[ansatz_,coeffRules_] invert a set of 1d rules in eta or S, taking care of the Pade form";
+Get1dInverseRulesS::usage="Get1dInverseRulesS[ansatz_,coeffRules_,productAnsatz_] invert the 1d rules in S, taking care of normalization and Pade form";
+
+FitPredictionIntervalFunctionFinalOnly::usage="FitPredictionIntervalFunctionFinalOnly[fit_,ansatzRules_] return function for the fit uncertainty (prediction interval), final fit statistics only";
+FitPredictionIntervalFunctionFinalOnlyq1::usage="FitPredictionIntervalFunctionFinalOnlyq1[fit_,ansatzRules_] return function for the fit uncertainty (prediction interval), in the limit of q=1, final fit statistics only";
+FitPredictionIntervalFinalOnly::usage="FitPredictionIntervalFinalOnly[fit_,ansatzRules_,etain_,chi1in_,chi2in_] estimate the fit uncertainty (prediction interval) at a given point, final fit statistics only";
+FitPredictionIntervalStderrSq::usage="FitPredictionIntervalStderrSq[\!\(\*
+StyleBox[\"finalFit_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"finalAnsatzRules_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"fit2dParts_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\[Eta]0stuff_,extraCoeffRules_,productAnsatz_,q1_] evaluate the various stderrsq contributions for fit uncertainty intervals";
+FitPredictionIntervalFunction::usage="FitPredictionIntervalFunction[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0stuff_,extraCoeffRules_,productAnsatz_] return function for the fit uncertainty (prediction interval)";
+FitPredictionIntervalFunctionq1::usage="FitPredictionIntervalFunctionq1[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0stuff_,extraCoeffRules_,productAnsatz_] return function for the fit uncertainty (prediction interval), in the limit of q=1";
+FitPredictionInterval::usage="FitPredictionInterval[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0fit_,extraCoeffRules_,productAnsatz_,etain_,chi1in_,chi2in_] estimate the fit uncertainty (prediction interval) at a given point";
+
+TeXExportCoeffTable::usage="TeXExportCoeffTable[fit_,filename_] export a fit coefficient table into a nice TeX file.";
+TeXExportCovarMatrixTable::usage="TeXExportCovarMatrixTable[fitCovar_,fitCoeffRules_,filename_] export fit covariance matrix into a nice TeX file.";
+SubscriptRules::usage="SubscriptRules[rules_] make a subscript rule from a numeric coefficient rule.";
+GetRawTwoDAnsatz::usage="GetRawTwoDAnsatz[finalfit_,fit2dParts_,productAnsatz_,constrained_] put together raw 2d ansatz equation.";
+GetAllRules::usage="GetAllRules[finalfit_,fit2dParts_,twodrules_] collect all 1d, 2d and 3d coefficient rules";
+TeXFormatAnsatz::usage="TeXFormatAnsatz[ansatz_,formattingRules_,coeffRules_] format an ansatz nicer in TeX";
+TeXExportAnsatz::usage="TeXExportAnsatz[ansatz_,formattingRules_,coeffRules_,filename_] export a nicely formatted ansatz to TeX.";
+TeXExportTwoDAnsatz::usage="TeXExportTwoDAnsatz[finalfit_,fit2dParts_,twodrules_,formattingRules_,productAnsatz_,constrained_,filename_] format the 2d part of the final ansatz.";
+TeXExportChiDiffTerms::usage="TeXExportChiDiffTerms[chidiffAnsaetze_,formattingRules_,coeffRules_,filename_] concatenate and export to TeX the various chidiff ansatz terms.";
+TeXExportFinalAnsatz::usage="TeXExportFinalAnsatz[finalfit_,fit2dParts_,twodrules_,chidiffAnsaetze_,formattingRules_,productAnsatz_,twodConstrained_,filename_] format the final ansatz nicely.";
+TexExportCoeffTable::usage="TeXExportCoeffTable[coeffRules_,covar_,filename_] format a fit coefficient table without t-stat nor p-value.";
+TeXExportTabularTable::usage="TeXExportTabularTable[datatable_,filename_,rowHeadings_,colHeadings_,padZeroes_] export a table with array->tabular and formatting fixes.";
+
+PyExportFinalFit::usage="PyExportFinalFit[fit_,extraFormattingRules_,filename_] export the final fit (with numerical coefficients) for python LAL uise.";
+PyExportFinalAnsatz::usage="PyExportFinalAnsatz[finalfit_,fit2dParts_,chidiffAnsaetze_,productAnsatz_,extraFormattingRules_,filename_] export the final ansatz (with symbolic coefficients) for python LAL uise.";
+PyExportFinalFitCoeffs::usage="PyExportFinalFitCoeffs[finalfit_,fit2dParts_,\!\(\*
+StyleBox[\"all2dconstraints_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)filename_] export the numerical coefficients to be used together with the ansatz.";
+
+SupplExportAllFitCoeffs::usage="SupplExportAllFitCoeffs[finalfit_,fit2dParts_,\!\(\*
+StyleBox[\"all2dconstraints_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)\!\(\*
+StyleBox[\"eta0covar_\", \"Code\"]\)\!\(\*
+StyleBox[\",\", \"Code\"]\)filename_] export the numerical coefficients to a plain ASCII table file.";
+SupplExportCovarMatrix::usage="SupplExportCovarMatrix[covar_,coeffRules_,fileName_] export covariance matrices as simple ASCII table files.";
+
+AIC::usage="AIC[data,fitname,variables,number of parameters]: Explicit computation of the AIC value given by NonlinearModelFit. In data [[#,-2]]: values,  [[#,-1]]: weights. Fit is the fit name e.g FinalSpin0815. Does not work for RITFinalSpinNonPrec2014";
+AICc::usage="AIC[data,fitname,variables,number of parameters]: Explicit computation of the AICc value given by NonlinearModelFit. In data [[#,-2]]: values,  [[#,-1]]: weights. Fit is the fit name e.g FinalSpin0815. Does not work for RITFinalSpinNonPrec2014";
+BIC::usage="AIC[data,fitname,variables,number of parameters]: Explicit computation of the BIC value given by NonlinearModelFit. In data [[#,-2]]: values,  [[#,-1]]: weights. Fit is the fit name e.g FinalSpin0815. Does not work for RITFinalSpinNonPrec2014";
+KullbagLeiblerDiv::usage="KullbagLeiblerDiv[p1_?ListQ,p2_?ListQ]: Computation of the KL criterion";
+JensenShanonDiv::usage="JensenShanonDiv[p1_?ListQ,p2_?ListQ]:  Computation of the JS criterion";
+KL::usage="KL[p1_?ListQ,p2_?ListQ],lim: Computation of the KL criterion";
+JS::usage="JS[p1_?ListQ,p2_?ListQ,lim]:  Computation of the JS criterion";
+
+
+CredibleRegion::usage="CredibleRegion[data_,level_]:  Computation of the credible region";
+ComputeEdges::usage="ComputeEdges[pts]";
+CredibleInterval::usage="CredibleInterval[data_,level_]: Computation of the credible intervals";
+
+
+(* ::Code::Initialization:: *)
+Begin["`Private`"];
+
+
+(* ::Code::Initialization:: *)
+AtomsList[expr_]:=Union@Select[Level[expr,{0,Infinity}],AtomQ];
+
+
+InterpolationDomain[fun_]:=Module[{min,max},{min,max}={fun[[1,1,1]],fun[[1,1,2]]}];
+
+
+q\[Eta][\[Eta]_]:=-(1.-1/(2\[Eta]))+Sqrt[(1-1/(2\[Eta]))^2 -1]
+
+
+\[Eta]q[q_]:=q/(1.+q)^2.
+
+
+\[Chi]diffplus[\[Eta]_,xx_,yy_]:=Module[{s},s=(1/2(1+Sqrt[1-4 \[Eta]])xx - 1/2(1-Sqrt[1-4 \[Eta]])yy)]
+
+
+\[Chi]diffstan[\[Eta]_,xx_,yy_]:=Module[{s},s=xx-yy]
+
+
+myListPlot3D[list_,opt___]:=Module[{p1,p2},
+ p1=ListPlot3D[If[(Length@Dimensions@list)>1,list[[1]],list],InterpolationOrder-> 3];
+ p2=ListPointPlot3D[list,PlotStyle-> PointSize-> Large,opt];
+ Show[p1,p2]
+];
+
+
+myListPlot3D[list_,opt___]:=Module[{p1,p2},
+ p1=ListPlot3D[list,InterpolationOrder-> 3,opt];
+ p2=ListPointPlot3D[list,PlotStyle-> PointSize-> Large,opt];
+ Show[p1,p2]
+];
+
+
+\[Chi]Tot[\[Eta]_,\[Chi]1_,\[Chi]2_]:=Module[{m1,m2,s},
+
+m1=1/2 (1+Sqrt[1-4 \[Eta]]);
+m2=1/2 (1-Sqrt[1-4 \[Eta]]);
+
+s=(m1 \[Chi]1 + m2 \[Chi]2)/(m1+ m2)
+]
+
+
+sTot[\[Eta]_,\[Chi]1_,\[Chi]2_]:=Module[{m1,m2},
+
+m1=1/2 (1+Sqrt[1-4 \[Eta]]);
+m2=1/2 (1-Sqrt[1-4 \[Eta]]);
+
+(m1^2 \[Chi]1 + m2^2 \[Chi]2)
+]
+
+
+sTotR[\[Eta]_,\[Chi]1_,\[Chi]2_]:=Module[{m1,m2},
+m1=1/2 (1+Sqrt[1-4 \[Eta]]);
+m2=1/2 (1-Sqrt[1-4 \[Eta]]);
+
+(m1^2 \[Chi]1 + m2^2 \[Chi]2)/(m1^2 + m2^2)
+]
+
+
+sTot3[\[Eta]_,\[Chi]1_,\[Chi]2_]:=Module[{m1,m2},
+m1=1/2 (1+Sqrt[1-4 \[Eta]]);
+m2=1/2 (1-Sqrt[1-4 \[Eta]]);
+
+(m1^2 \[Chi]1 + m2^2 \[Chi]2)/(m1^2 + m2^2)
+]
+
+
+countSummands[expr_]:=If[Head[expr]===Plus,Length[expr],If[expr===0,0,1]]
+
+
+GeneralizeFunction[expr_,x_]:=Module[{num,numTermsNum,numSymbolsFirstTerm,i,termsNum,termsDenom,iStart,rule0,rulesNum,rulesDenom,reals},
+
+num=Numerator[expr];
+numTermsNum = countSummands[num];
+If[numTermsNum==1,
+termsNum = {num};
+numSymbolsFirstTerm=1;
+,
+termsNum = Level[num,{1,1}];
+numSymbolsFirstTerm=Length[Cases[Level[termsNum[[1]],{1,Infinity}],y_Symbol]];
+];
+
+If[numSymbolsFirstTerm==0,
+   iStart=2;
+   reals=Cases[Tally[Select[Level[termsNum[[1]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+   If[Length[reals]>0,
+      rule0={termsNum[[1]]->termsNum[[1]] ToExpression[ToString@x<>"0"]};
+      ,
+      rule0={};
+     ];
+   ,
+   iStart=1;
+   rule0={};
+];
+rulesNum=rule0;
+
+For[i=iStart,i<=Length[termsNum],i++,
+    reals=Cases[Tally[Select[Level[termsNum[[i]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+    If[Length[reals]>0,
+       rulesNum=Join[rulesNum,{termsNum[[i]] -> termsNum[[i]] ToExpression[ToString@x<>ToString[i-iStart+1]]}];
+      ];
+];
+
+(* currently assumes that denominator always has a -1 in front, can be easily generalized with countSummands as for numerator *)
+termsDenom = Level[Denominator[expr],{1,1}];
+rulesDenom = {};
+For[i=1,i<=Length[termsDenom],i++,
+    reals=Cases[Tally[Select[Level[termsDenom[[i]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+    If[Length[reals]>0,
+       rulesDenom=Join[rulesDenom,{termsDenom[[i]] -> termsDenom[[i]] ToExpression[ToString@x<>ToString[Length[termsNum]-iStart+1+i]]}];
+      ];
+];
+
+Return[(Numerator[expr]/.rulesNum)/(Denominator[expr]/.rulesDenom)]
+]
+
+
+GeneralizeFunction[expr_,x_,coord_,orderNum_,orderDenom_]:=Module[{num,numTermsNum,numSymbolsFirstTerm,i,termsNum,termsDenom,iStart,rule0,rulesNum,rulesDenom,reals},
+
+num=Numerator[expr];
+numTermsNum = countSummands[num];
+If[numTermsNum==1,
+termsNum = {num};
+numSymbolsFirstTerm=1;
+,
+termsNum = Level[num,{1,1}];
+numSymbolsFirstTerm=Length[Cases[Level[termsNum[[1]],{1,Infinity}],y_Symbol]];
+];
+
+If[numSymbolsFirstTerm==0,
+   iStart=2;
+   reals=Cases[Tally[Select[Level[termsNum[[1]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+   If[Length[reals]>0,
+       rule0={termsNum[[1]]->termsNum[[1]](Sum[coord^j ToExpression/@ToExpression@(ToString@x<>"0"<>ToString@j),{j,0,orderNum}])};
+      ,
+      rule0={};
+     ];
+   ,
+   iStart=1;
+   rule0={};
+];
+rulesNum=rule0;
+
+For[i=iStart,i<=Length[termsNum],i++,
+    reals=Cases[Tally[Select[Level[termsNum[[i]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+    If[Length[reals]>0,
+       rulesNum=Join[rulesNum,{termsNum[[i]] -> termsNum[[i]](Sum[coord^j ToExpression@(ToString@x<>ToString[i-iStart+1]<>ToString@j),{j,0,orderNum}])}];
+    ];
+];
+
+(* currently assumes that denominator always has a -1 in front, can be easily generalized with countSummands as for numerator *)
+termsDenom = Level[Denominator[expr],{1,1}];
+rulesDenom = {};
+For[i=1,i<=Length[termsDenom],i++,
+    reals=Cases[Tally[Select[Level[termsDenom[[i]],{0,Infinity}],AtomQ]][[All,1]],y_Real];
+    If[Length[reals]>0,
+       rulesDenom=Join[rulesDenom,{termsDenom[[i]] -> termsDenom[[i]](Sum[coord^j ToExpression/@ToExpression@(ToString@x<>ToString[Length[termsNum]-iStart+1+i]<>ToString@j),{j,0,orderDenom}])}];
+      ];
+];
+
+(Numerator[expr]/.rulesNum)/(Denominator[expr]/.rulesDenom)
+]
+
+
+(*wrapper to Pade approximant that keeps exact coefficients like Sqrt[2] exact, so that GeneralizeFunction won't assign extra coefficients to them.*)
+ExactPade[ansatz_,coeffRules_,padeOptions_]:=PadeApproximant[ansatz,padeOptions]/.coeffRules;
+
+
+myRound[x_,d_] := Module[{mantExp,mant,exp},
+mantExp = MantissaExponent[x];
+mant    = mantExp[[1]];
+exp     = mantExp[[2]];
+If[mant<1.0,
+   mant = 10*mant;
+   exp  = exp-1;
+];
+mant = Round[mant,0.1^d];
+(*
+If[exp<0,
+   mant = Round[mant,0.1^(d-1)];
+   ,
+   mant = Round[mant,0.1^d];
+];
+*)
+Return[mant*10^exp]
+]
+
+
+Generate1DPadeAnsatzList[ansatz_,coeffRules_,variable_,paramName_,minPadeTypeSum_,maxPadeTypeSum_]:=Module[{i,j,ansatzDegree,padeAnsatzList,padeType,exactPade,genPade,genPadeList,exactPadeReals,exactPadeRounding},
+For[i=1,i<maxPadeTypeSum,i++,
+    j=Max[1,minPadeTypeSum-i];
+    While[(j<=i)&&(i+j<=maxPadeTypeSum),
+          ansatzDegree = Exponent[ansatz,variable];
+          If[(j==1)&&(i==ansatzDegree),
+             Print["Not generating Pade approximant for type ("<>ToString[i]<>","<>ToString[j]<>") with polynomial ansatz of order "<>ToString[ansatzDegree]<>", as it would just duplicate the polynomial."];
+             ,
+             padeType  = {i,j};
+             exactPade = ExactPade[ansatz,coeffRules,{variable,0,padeType}];
+             exactPadeReals=Cases[AtomsList[exactPade],y_Real];
+             exactPadeRounding=Table[exactPadeReals[[i]]->myRound[exactPadeReals[[i]],2],{i,1,Length@exactPadeReals}];
+             exactPade = exactPade /. exactPadeRounding;
+             genPade   = GeneralizeFunction[exactPade,paramName];
+             If[!ValueQ[genPadeList],
+                genPadeList={{genPade,{variable}}};
+                ,
+                AppendTo[genPadeList,{genPade,{variable}}];
+               ]
+           ];
+           j++;
+        ];
+   ];
+Print["Generated these Pade approximants:"];
+Print[genPadeList];
+Return[genPadeList];
+]
+
+
+InvertRules[rules_]:=Module[{},
+Table[rules[[i,2]]->rules[[i,1]],{i,Length@rules}]
+]
+
+
+Get1dInverseRules[ansatz_,coeffRules_]:=Module[{origCoeffs,inverseRules},
+
+(* in case this is a Pade rational ansatz, disentangle it *)
+origCoeffs    = Cases[Select[Join[Level[Numerator[ansatz],{1,Infinity}],Level[Denominator[ansatz],{1,Infinity}]],AtomQ],y_Real];
+
+If[Length[origCoeffs]>0,
+ inverseRules = Table[origCoeffs[[i]]*coeffRules[[i,2]] -> origCoeffs[[i]]*coeffRules[[i,1]], {i,Length@coeffRules}];
+ ,
+ inverseRules = InvertRules[coeffRules];
+];
+
+Return[inverseRules];
+
+]
+
+
+Get1dInverseRulesS[ansatz_,coeffRules_,productAnsatz_]:=Module[{ansatzWithoutS0,inverseRules},
+
+If[productAnsatz,
+ansatzWithoutS0 = ansatz/(ansatz/.S->0)/.{1.->1};
+,
+ansatzWithoutS0 = ansatz-(ansatz/.S->0)/.{0.->0};
+];
+
+inverseRules    = Get1dInverseRules[ansatzWithoutS0,coeffRules];
+Return[inverseRules];
+
+]
+
+
+ColorGradient[data_,ColorList_,OptionsPattern[{"Weights"->"","Verbose"->False}]]:=Module[{min,max,weights,wc,blendtab,\[Delta]n,verbose},
+
+weights=OptionValue["Weights"];
+verbose=OptionValue["Verbose"];
+
+min=Min[data];
+max=Max[data];
+\[Delta]n=(max-min)1./(Length@ColorList-1);
+
+If[Not@ListQ@weights,weights=Table[min + \[Delta]n(i-1),{i,Length@ColorList}];,weights=weights Table[min + \[Delta]n(i-1),{i,Length@ColorList}];];
+blendtab=Table[{weights[[i]],ColorList[[i]]},{i,Length@ColorList}];
+
+If[verbose,Print["Weights: ",weights]];
+
+Table[Blend[blendtab,data[[i]]],{i,Length@data}]
+]
+
+
+CreateColors[code_,colors_]:=Module[{},
+Which[code=="BAM",colors[[1]],code=="SXS",colors[[2]],code=="GaTech",colors[[3]],code=="RIT",colors[[4]],True,colors[[5]]]]
+
+
+FitPredictionIntervalFunctionFinalOnly[fit_,ansatzRules_]:=Module[{ansatz,coeffNames,coeffRules,Ncoeff,Ndata,EstVar,quant95,covarMatrix,coeffGrad,stderrsq},
+
+ansatz      = fit[[15]];
+coeffRules  = fit[[2]];
+coeffNames  = coeffRules[[All,1]];
+Ncoeff      = Length@coeffNames;
+Ndata       = Length@Last@fit; (* length of residuals vector *)
+EstVar      = fit[[16]]; (* would be = Total[resid^2]/(Ndata-Ncoeff) without weights *)
+
+(* take gradient vector in the coefficients *)
+coeffGrad   = Table[D[ansatz/.ansatzRules,coeffNames[[i]]],{i,Ncoeff}] /. coeffRules;
+
+(* estimate of fit error: multiply coefficient gradient with covariance matrix *)
+covarMatrix   = fit[[14]];
+stderrsq      = (coeffGrad.covarMatrix.coeffGrad);
+
+(* report back the 95% student-t quantile (applied on both sides, this gives a 90% interval) *)
+quant95     = Quantile[StudentTDistribution[Ndata-Ncoeff],0.95];
+Return[quant95 * Sqrt[ EstVar + stderrsq ]];
+]
+
+
+FitPredictionIntervalFunctionFinalOnlyq1[fit_,ansatzRules_]:=Module[{ansatz,coeffNames,coeffRules,Ncoeff,Ndata,EstVar,quant95,covarMatrix,coeffGrad,stderrsq,chidiffcoeff,chidiff2coeff},
+
+ansatz      = fit[[15]];
+coeffRules  = fit[[2]];
+coeffNames  = coeffRules[[All,1]];
+Ncoeff      = Length@coeffNames;
+Ndata       = Length@Last@fit; (* length of residuals vector *)
+EstVar      = fit[[16]]; (* would be = Total[resid^2]/(Ndata-Ncoeff) without weights *)
+
+(* take gradient vector in the coefficients *)
+coeffGrad     = Table[D[ansatz/.ansatzRules,coeffNames[[i]]],{i,Ncoeff}] /. coeffRules;
+
+(* take care of issues in the q=1, eta=0.25 limit of the spin-diff terms *)
+chidiffcoeff  = Coefficient[coeffGrad,(\[Chi]1-\[Chi]2)];
+chidiff2coeff = Coefficient[coeffGrad,(\[Chi]1-\[Chi]2)^2];
+coeffGrad     = coeffGrad - chidiffcoeff(\[Chi]1-\[Chi]2) + Limit[chidiffcoeff,\[Eta]->0.25](\[Chi]1-\[Chi]2) - chidiff2coeff (\[Chi]1-\[Chi]2)^2 + Limit[chidiff2coeff,\[Eta]->0.25](\[Chi]1-\[Chi]2)^2;
+
+(* estimate of fit error: multiply coefficient gradient with covariance matrix *)
+covarMatrix   = fit[[14]];
+stderrsq      = (coeffGrad.covarMatrix.coeffGrad);
+
+(* report back the 95% student-t quantile (applied on both sides, this gives a 90% interval) *)
+quant95     = Quantile[StudentTDistribution[Ndata-Ncoeff],0.95];
+Return[quant95 * Sqrt[ EstVar + stderrsq ]];
+]
+
+
+FitPredictionIntervalFinalOnly[fit_,ansatzRules_,etain_,chi1in_,chi2in_]:=Module[{fiterrFunc,fiterrFuncq1,fiterrs,i,eta,chi1,chi2},
+
+(* so we can deal with both scalars and lists *)
+If[Length[etain]==0,
+ eta  = {etain};
+ chi1 = {chi1in};
+ chi2 = {chi2in};
+ ,
+ eta  = etain;
+ chi1 = chi1in;
+ chi2 = chi2in;
+];
+
+(* evaluate the general error estimate *)
+fiterrFunc = FitPredictionIntervalFunctionFinalOnly[fit,ansatzRules];
+
+(* avoid indeterminates at q=1, eta=0.25 *)
+If[MemberQ[eta,0.25],
+   fiterrFuncq1 = FitPredictionIntervalFunctionFinalOnlyq1[fit,ansatzRules];
+];
+fiterrs    = Table[fiterrFunc,{i,1,Length@eta}];
+For[i=1,i<=Length@eta,i++,
+ If[eta[[i]]==0.25,
+  fiterrs[[i]]=fiterrFuncq1;
+ ];
+];
+
+(* switch spin parametrization and insert user values *)
+fiterrs = fiterrs/.{S->sTot3[\[Eta],\[Chi]1,\[Chi]2]};
+Return[Table[fiterrs[[i]]/.{\[Eta]->eta[[i]],\[Chi]1->chi1[[i]],\[Chi]2->chi2[[i]]},{i,1,Length@eta}]];
+
+]
+
+
+FitPredictionIntervalStderrSq[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0stuff_,extraCoeffRules_,productAnsatz_,q1_]:=Module[{finalAnsatz,finalCoeffNames,finalCoeffRules,NfinalCoeffs,finalCovarMatrix,finalCoeffGrad,chidiffcoeff,chidiff2coeff,
+etaCoeffRules,etaCoeffNames,NetaCoeffs,etaAnsatz,etaInverseRules,etaCoeffGrad,etaCovarMatrix,
+SCoeffRules,SCoeffNames,NSCoeffs,SAnsatz,SInverseRules,SCoeffGrad,SCovarMatrix,
+twodCoeffRules,ansatz2dRaw,zeroRules,
+\[Eta]0fit,\[Eta]0Constraints,\[Eta]0CoeffRules,\[Eta]0CoeffNames,N\[Eta]0Coeffs,\[Eta]0CovarMatrix,\[Eta]0Coeffgrad,
+finalStderrSq,etaStderrSq,SStderrSq,twodStderrSq,\[Eta]0StderrSq,
+allStderrSq},
+
+finalAnsatz       = finalFit[[15]];
+finalCoeffRules   = finalFit[[2]];
+finalCoeffNames   = finalCoeffRules[[All,1]];
+NfinalCoeffs      = Length@finalCoeffNames;
+
+(* take gradient vector in the coefficients *)
+finalCoeffGrad    = Table[D[finalAnsatz/.finalAnsatzRules,finalCoeffNames[[i]]],{i,NfinalCoeffs}] /. finalCoeffRules;
+
+(* take care of issues in the q=1, eta=0.25 limit of the spin-diff terms *)
+If[q1,
+ chidiffcoeff      = Coefficient[finalCoeffGrad,(\[Chi]1-\[Chi]2)];
+ chidiff2coeff     = Coefficient[finalCoeffGrad,(\[Chi]1-\[Chi]2)^2];
+ finalCoeffGrad    = finalCoeffGrad - chidiffcoeff(\[Chi]1-\[Chi]2) + Limit[chidiffcoeff,\[Eta]->0.25](\[Chi]1-\[Chi]2) - chidiff2coeff (\[Chi]1-\[Chi]2)^2 + Limit[chidiff2coeff,\[Eta]->0.25](\[Chi]1-\[Chi]2)^2;
+ finalCoeffGrad    = Limit[finalCoeffGrad,\[Eta]->0.25];
+];
+
+(* estimate of fit error: multiply coefficient gradient with covariance matrix *)
+finalCovarMatrix  = finalFit[[14]];
+finalStderrSq     = (finalCoeffGrad.finalCovarMatrix.finalCoeffGrad);
+
+(* also get contributions from 1D eta and S fits *)
+etaAnsatz         = fit2dParts[[2]];
+etaCoeffRules     = fit2dParts[[3]];
+etaCoeffNames     = etaCoeffRules[[All,1]];
+NetaCoeffs        = Length@etaCoeffNames;
+etaCovarMatrix    = fit2dParts[[4]];
+
+SAnsatz           = fit2dParts[[5]];
+SCoeffRules       = fit2dParts[[6]];
+SCoeffNames       = SCoeffRules[[All,1]];
+NSCoeffs          = Length@SCoeffNames;
+SCovarMatrix      = fit2dParts[[7]];
+
+(* construct raw 2D ansatz *)
+etaInverseRules   = Get1dInverseRules[etaAnsatz,etaCoeffRules];
+SInverseRules     = Get1dInverseRulesS[SAnsatz,SCoeffRules,productAnsatz];
+twodCoeffRules    = Join[fit2dParts[[8]],fit2dParts[[9]]];
+If[Not@productAnsatz,
+ zeroRules        = Table[ToExpression["f"<>ToString@i<>"0"]->0,{i,0,Exponent[Numerator[fit2dParts[[1]]],S]}];
+ twodCoeffRules   = Join[twodCoeffRules/.zeroRules,zeroRules];
+];
+ansatz2dRaw       = fit2dParts[[1]]/.etaInverseRules/.SInverseRules;
+
+(* take gradient vectors of the final ansatz (only 2D part needed) in the previously-determined coefficients *)
+etaCoeffGrad  = Table[D[ansatz2dRaw,                                etaCoeffNames[[i]]], {i,NetaCoeffs}]  /. Join[etaCoeffRules,SCoeffRules,twodCoeffRules];
+SCoeffGrad    = Table[D[ansatz2dRaw,                                SCoeffNames[[i]]],   {i,NSCoeffs}]    /. Join[etaCoeffRules,SCoeffRules,twodCoeffRules];
+
+(* also get contribution from extreme-mass ratio limit fit *)
+If[ListQ[\[Eta]0stuff]&&(Length[\[Eta]0stuff]==0),
+   \[Eta]0StderrSq=0;
+   etaCoeffGrad  = etaCoeffGrad /. Join[finalCoeffRules,extraCoeffRules];
+   SCoeffGrad    = SCoeffGrad   /. Join[finalCoeffRules,extraCoeffRules];
+   ,
+   If[ListQ[\[Eta]0stuff],
+      \[Eta]0fit         = \[Eta]0stuff[[1]];
+      \[Eta]0Constraints = \[Eta]0stuff[[2]];
+      ,
+      \[Eta]0fit         = \[Eta]0stuff;
+      \[Eta]0Constraints = {};
+     ];
+   \[Eta]0CoeffRules  = \[Eta]0fit["BestFitParameters"];
+   \[Eta]0CoeffNames  = \[Eta]0CoeffRules[[All,1]];
+   N\[Eta]0Coeffs     = Length@\[Eta]0CoeffNames;
+   \[Eta]0CovarMatrix = \[Eta]0fit["CovarianceMatrix"];
+   \[Eta]0Coeffgrad   = Table[D[ansatz2dRaw/.twodCoeffRules/.\[Eta]0Constraints, \[Eta]0CoeffNames[[i]]],  {i,N\[Eta]0Coeffs}]   /. Join[etaCoeffRules,SCoeffRules]                                 /. Join[\[Eta]0CoeffRules,finalCoeffRules,extraCoeffRules];
+   If[q1,
+      \[Eta]0Coeffgrad = Limit[\[Eta]0Coeffgrad,  \[Eta]->0.25];
+   ];
+   \[Eta]0StderrSq    = (\[Eta]0Coeffgrad.\[Eta]0CovarMatrix.\[Eta]0Coeffgrad);
+   etaCoeffGrad  = etaCoeffGrad /. \[Eta]0Constraints /. Join[\[Eta]0CoeffRules,finalCoeffRules,extraCoeffRules];
+   SCoeffGrad    = SCoeffGrad   /. \[Eta]0Constraints /. Join[\[Eta]0CoeffRules,finalCoeffRules,extraCoeffRules];
+];
+
+(* dot gradient vectors together with the corresponding covar matrices *)
+etaStderrSq    = (etaCoeffGrad.etaCovarMatrix.etaCoeffGrad);
+SStderrSq      = (SCoeffGrad.SCovarMatrix.SCoeffGrad);
+
+If[q1,
+ etaCoeffGrad  = Limit[etaCoeffGrad, \[Eta]->0.25];
+ SCoeffGrad    = Limit[SCoeffGrad,   \[Eta]->0.25];
+];
+
+allStderrSq    = {finalStderrSq,etaStderrSq,SStderrSq,\[Eta]0StderrSq};
+Return[allStderrSq];
+]
+
+
+FitPredictionIntervalFunction[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0fit_,extraCoeffRules_,productAnsatz_]:=Module[{finalCoeffRules,finalCoeffNames,NfinalCoeffs,Ndata,EstVar,quant95,stderrsq,stderrSqContribs,q1},
+
+finalCoeffRules  = finalFit[[2]];
+finalCoeffNames  = finalCoeffRules[[All,1]];
+NfinalCoeffs     = Length@finalCoeffNames;
+Ndata            = Length@Last@finalFit; (* length of residuals vector *)
+EstVar           = finalFit[[16]]; (* would be = Total[resid^2]/(Ndata-Ncoeff) without weights *)
+
+q1=False;
+stderrSqContribs = FitPredictionIntervalStderrSq[finalFit,finalAnsatzRules,fit2dParts,\[Eta]0fit,extraCoeffRules,productAnsatz,q1];
+
+(* add up all error contributions in quadrature *)
+stderrsq         = Total[stderrSqContribs];
+
+(* report back the 95% student-t quantile (applied on both sides, this gives a 90% interval), adding up also the variance contribution for PREDICTION interval (not mean confidence) *)
+quant95          = Quantile[StudentTDistribution[Ndata-NfinalCoeffs],0.95];
+Return[quant95 * Sqrt[ EstVar + stderrsq ]];
+]
+
+
+FitPredictionIntervalFunctionq1[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0stuff_,extraCoeffRules_,productAnsatz_]:=Module[{finalCoeffRules,finalCoeffNames,NfinalCoeffs,Ndata,EstVar,quant95,stderrsq,stderrSqContribs,q1},
+
+finalCoeffRules  = finalFit[[2]];
+finalCoeffNames  = finalCoeffRules[[All,1]];
+NfinalCoeffs     = Length@finalCoeffNames;
+Ndata            = Length@Last@finalFit; (* length of residuals vector *)
+EstVar           = finalFit[[16]]; (* would be = Total[resid^2]/(Ndata-Ncoeff) without weights *)
+
+q1=True;
+stderrSqContribs = FitPredictionIntervalStderrSq[finalFit,finalAnsatzRules,fit2dParts,\[Eta]0stuff,extraCoeffRules,productAnsatz,q1];
+
+(* add up all error contributions in quadrature *)
+stderrsq         = Total[stderrSqContribs];
+
+(* report back the 95% student-t quantile (applied on both sides, this gives a 90% interval), adding up also the variance contribution for PREDICTION interval (not mean confidence) *)
+quant95          = Quantile[StudentTDistribution[Ndata-NfinalCoeffs],0.95];
+Return[quant95 * Sqrt[ EstVar + stderrsq ]];
+]
+
+
+FitPredictionInterval[finalFit_,finalAnsatzRules_,fit2dParts_,\[Eta]0stuff_,extraCoeffRules_,productAnsatz_,etain_,chi1in_,chi2in_]:=Module[{fiterrFunc,fiterrFuncq1,fiterrs,i,eta,chi1,chi2},
+
+(* so we can deal with both scalars and lists *)
+If[Length[etain]==0,
+ eta  = {etain};
+ chi1 = {chi1in};
+ chi2 = {chi2in};
+ ,
+ eta  = etain;
+ chi1 = chi1in;
+ chi2 = chi2in;
+];
+
+(* evaluate the general error estimate *)
+fiterrFunc = FitPredictionIntervalFunction[finalFit,finalAnsatzRules,fit2dParts,\[Eta]0stuff,extraCoeffRules,productAnsatz];
+
+(* avoid indeterminates at q=1, eta=0.25 *)
+If[MemberQ[eta,0.25],
+   fiterrFuncq1 = FitPredictionIntervalFunctionq1[finalFit,finalAnsatzRules,fit2dParts,\[Eta]0stuff,extraCoeffRules,productAnsatz];
+];
+fiterrs    = Table[fiterrFunc,{i,1,Length@eta}];
+For[i=1,i<=Length@eta,i++,
+ If[eta[[i]]==0.25,
+  fiterrs[[i]]=fiterrFuncq1;
+ ];
+];
+
+(* switch spin parametrization and insert user values *)
+fiterrs = fiterrs/.{S->sTot3[\[Eta],\[Chi]1,\[Chi]2]};
+Return[Table[fiterrs[[i]]/.{\[Eta]->eta[[i]],\[Chi]1->chi1[[i]],\[Chi]2->chi2[[i]]},{i,1,Length@eta}]];
+
+]
+
+
+TeXExportCoeffTable[coeffTable_,filename_]:=Module[{texTable},
+texTable = StringReplace[ToString[TeXForm[NumberForm[coeffTable,3]]],{"$\\grave{ }$*${}^{\\wedge}$"->"}\\cdot10^{"}];
+Export[filename, texTable, "Text"];
+]
+
+
+TeXExportCovarMatrixTable[fitCovar_,fitCoeffRules_,filename_]:=Module[{covarMatrix,paramNames,fullMatrix,texTable},
+covarMatrix = fitCovar;
+paramNames = fitCoeffRules[[All,1]];
+fullMatrix  = Join[List/@Join[{""},paramNames],Join[{paramNames},covarMatrix,1],2];
+texTable    = StringReplace[ToString[TeXForm[NumberForm[fullMatrix,3]]],{"$\\grave{ }$*${}^{\\wedge}$"->"}\\cdot10^{"}];
+Export[filename,texTable,"Text"];
+(* then run on the resulting file: sed -i 's/{/[/g;s/}/],/g;s/*^/e/g' PeakLuminosityUIBCovMatrix_S5.txt *)
+]
+
+
+SubscriptRules[rules_]:=Module[{},
+Return[Table[rules[[i,1]]->Subscript[ToExpression[StringTake[ToString@rules[[i,1]],1]],ToExpression[StringTake[ToString@rules[[i,1]],2;;]]],{i,1,Length@rules}]];
+]
+
+
+TeXFormatAnsatz[ansatz_,formattingRules_,coeffRules_]:=Module[{subscripts,formattedAnsatz,TeXansatz},
+
+subscripts = SubscriptRules[coeffRules];
+
+formattedAnsatz = ansatz/.formattingRules/.subscripts;
+
+(*
+ansatzReals=Cases[AtomsList[ansatzRaw],y_Real];
+ansatzRounding=Table[ansatzReals[[i]]\[Rule]NumberForm[ansatzReals[[i]],{2,2}],{i,1,Length@ansatzReals}];
+formattedAnsatz = formattedAnsatz ./ .ansatzRounding;
+*)
+
+TeXansatz = TeXForm[formattedAnsatz];
+TeXansatz = StringReplace[ToString@TeXansatz," _"->"_"];
+TeXansatz = StringReplace[TeXansatz,"{}"->""];
+TeXansatz = StringReplace[TeXansatz,"\\overset{\\land }"->"\\widehat"];
+TeXansatz = StringReplace[TeXansatz,"\\hat"->"\\widehat"];
+Return[TeXansatz];
+]
+
+
+TeXExportAnsatz[ansatz_,formattingRules_,coeffRules_,filename_]:=Module[{TeXansatz},
+TeXansatz = TeXFormatAnsatz[ansatz,formattingRules,coeffRules];
+Export[filename, TeXansatz, "Text"];
+]
+
+
+GetRawTwoDAnsatz[finalfit_,fit2dParts_,productAnsatz_,constrained_]:=Module[{etaAnsatz,etaCoeffRules,etaInverseRules,SAnsatz,SCoeffRules,SInverseRules,ansatzRaw},
+
+etaAnsatz       = fit2dParts[[2]];
+etaCoeffRules   = fit2dParts[[3]];
+etaInverseRules = Get1dInverseRules[etaAnsatz,etaCoeffRules];
+
+SAnsatz         = fit2dParts[[5]];
+SCoeffRules     = fit2dParts[[6]];
+SInverseRules   = Get1dInverseRulesS[SAnsatz,SCoeffRules,productAnsatz];
+
+ansatzRaw       = (fit2dParts[[1]]/.etaInverseRules/.SInverseRules);
+
+If[constrained,
+   ansatzRaw       = ansatzRaw /. fit2dParts[[8]] /. fit2dParts[[9]] /. {4.->4, 16.->16, 64.->64, 256.->256} /. {-4.->-4, -16.->-16, -64.->-64, -256.->-256};
+];
+
+Return[ansatzRaw];
+
+]
+
+
+GetAllRules[finalfit_,fit2dParts_,twodrules_]:=Module[{allRules},
+allRules=Join[fit2dParts[[3]],fit2dParts[[6]],fit2dParts[[8]],fit2dParts[[9]],finalfit[[2]]]; (* etaCoeffRules, SCoeffRules, 2dconstraintsNumerator, 2dconstraintsDenominator, finalfitCoeffRules *)
+If[ListQ@twodrules&&(Length@twodrules>0),
+   allRules=Join[allRules,twodrules];
+];
+Return[allRules];
+]
+
+
+TeXExportTwoDAnsatz[finalfit_,fit2dParts_,twodrules_,formattingRules_,productAnsatz_,constrained_,filename_]:=Module[{ansatzRaw,allRules,zeroRules},
+ansatzRaw = GetRawTwoDAnsatz[finalfit,fit2dParts,productAnsatz,constrained];
+allRules = GetAllRules[finalfit,fit2dParts,twodrules];
+If[Not@productAnsatz,
+ zeroRules=Table[ToExpression["f"<>ToString@i<>"0"]->0,{i,0,Exponent[Numerator[fit2dParts[[1]]],S]}];
+ allRules=Join[allRules,zeroRules];
+];
+TeXExportAnsatz[ansatzRaw,formattingRules,allRules,filename];
+]
+
+
+TeXExportChiDiffTerms[chidiffAnsaetze_,formattingRules_,coeffRules_,filename_]:=Module[{fullTeX,numChiDiffTerms,thisTerm},
+
+fullTeX = "";
+
+numChiDiffTerms = Length@chidiffAnsaetze;
+If[numChiDiffTerms>=1,
+ thisTerm = TeXFormatAnsatz[chidiffAnsaetze[[1]],formattingRules,coeffRules];
+ fullTeX = "A_1(\\eta)&="<>thisTerm;
+];
+If[numChiDiffTerms>=2,
+ thisTerm = TeXFormatAnsatz[chidiffAnsaetze[[2]],formattingRules,coeffRules];
+ fullTeX = fullTeX<>" \\\\\nA_2(\\eta)&="<>thisTerm;
+];
+If[numChiDiffTerms>=3,
+ thisTerm = TeXFormatAnsatz[chidiffAnsaetze[[3]],formattingRules,coeffRules];
+ fullTeX = fullTeX<>" \\\\\nA_3(\\eta)&="<>thisTerm;
+];
+
+Export[filename, fullTeX, "Text"];
+
+]
+
+
+TeXExportFinalAnsatz[finalfit_,fit2dParts_,twodrules_,chidiffAnsaetze_,formattingRules_,productAnsatz_,twodConstrained_,filename_]:=Module[{ansatzRaw,numChiDiffTerms,allRules},
+
+ansatzRaw = GetRawTwoDAnsatz[finalfit,fit2dParts,productAnsatz,twodConstrained];
+
+numChiDiffTerms = Length@chidiffAnsaetze;
+If[numChiDiffTerms>=1,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[1]] (\[Chi]1-\[Chi]2);
+];
+If[numChiDiffTerms>=2,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[2]] (\[Chi]1-\[Chi]2)^2;
+];
+If[numChiDiffTerms>=3,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[3]] S (\[Chi]1-\[Chi]2);
+];
+
+allRules = GetAllRules[finalfit,fit2dParts,twodrules];
+
+TeXExportAnsatz[ansatzRaw,formattingRules,allRules,filename];
+
+]
+
+
+TeXExportCoeffTable[coeffRules_,covar_,filename_]:=Module[{coeffNames,coeffErrs,headerLine,coeffTable,texTable},
+coeffNames = coeffRules[[All,1]]/.SubscriptRules[coeffRules];
+coeffErrs  = Sqrt[Diagonal[covar]];
+headerLine = {"estimate","std.err.","rel.err.[%]"};
+(*
+coeffTable = TableForm[Table[{coeffRules[[i,2]],coeffErrs[[i]],Abs[100*coeffErrs[[i]]/coeffRules[[i,2]]]},{i,Length@coeffRules}],TableHeadings\[Rule]{coeffNames,headerLine}];
+texTable   = StringReplace[ToString[TeXForm[NumberForm[coeffTable,3]]],{"$\\grave{ }$*${}^{\\wedge}$"\[Rule]"}\\cdot10^{"}];
+Export[filename,texTable, "Text"];
+*)
+(*
+TeXExportTabularTable[Map[NumberForm[#,3]&,Table[{coeffRules[[i,2]],coeffErrs[[i]],Abs[100*coeffErrs[[i]]/coeffRules[[i,2]]]},{i,Length@coeffRules}],{2}], filename, coeffNames, headerLine]
+*)
+TeXExportTabularTable[Table[{NumberForm[coeffRules[[i,2]],3],NumberForm[coeffErrs[[i]],3],NumberForm[Abs[100*coeffErrs[[i]]/coeffRules[[i,2]]],{3,1}]},{i,Length@coeffRules}],
+                      filename, coeffNames, headerLine, 0]
+]
+
+
+TeXExportTabularTable[datatable_,filename_,rowLabels_,colHeadings_,padZeroes_]:=Module[{nRows,tableFormatted,texTable,tableAtoms,maxDecDigits},
+nRows = Length@datatable;
+
+tableFormatted = TableForm[datatable, TableHeadings->{rowLabels,colHeadings}];
+texTable = ToString[TeXForm[tableFormatted]];
+texTable = StringReplace[texTable,{"array"->"tabular"}];
+texTable = StringReplace[texTable,{"&"->"$&$"}]; (* close and open math mode at each field separator *)
+texTable = StringReplace[texTable,{"$&$"->"&$"},1]; (* remove the extra open$ at first separator *)
+texTable = StringReplace[texTable,{"$\$&$$"->"\&"},1];(* remove the extra elements when exporting & *)
+texTable = StringReplace[texTable,{"\\\\"->"$\\\\"}]; (* close math mode at each line break *)
+texTable = StringReplace[texTable,{"\\\\"->"\\\\$"},nRows]; (* reopen math mode after each line break, but only for numrows (not at last one) *)
+texTable = StringReplace[texTable,{"\\\\"->"\\\\\\hline"},1]; (* add a horizontal line after the first (headers) line *)
+texTable = StringReplace[texTable,{"{tabular}{c"->"{tabular}{l"}]; (* make row-headers column left-centered *)
+texTable = StringReplace[texTable,{"cc}"->"cc}\\hline\\hline"}]; (* add initial double line *)
+texTable = StringReplace[texTable,{"\\end{tabular}"->"\\hline\\hline\\end{tabular}"}]; (* final double lines at end of table *)
+
+If[padZeroes==1, (* pad trailing zeroes *)
+texTable = StringReplace[texTable,{".\\times"->".0\\times"}];
+,
+If[padZeroes==2,
+texTable = StringReplace[texTable,{".\\times"->".00\\times"}];
+texTable = StringReplace[texTable,Table["."<>ToString@i<>"\\times"->"."<>ToString@i<>"0\\times",{i,0,9}]];
+,
+If[padZeroes==3,
+texTable = StringReplace[texTable,{".\\times"->".000\\times"}];
+texTable = StringReplace[texTable,Table["."<>ToString@i<>"\\times"->"."<>ToString@i<>"00\\times",{i,0,9}]];
+texTable = StringReplace[texTable,Flatten[Table[Table["."<>ToString@i<>ToString@j<>"\\times"->"."<>ToString@i<>ToString@j<>"0\\times",{i,0,9}],{j,0,9}]]];
+];
+];
+];
+
+Export[filename, texTable, "Text"];
+]
+
+
+PyExportFinalFit[fit_,extraFormattingRules_,filename_]:=Module[{fitCform,pyRules1,pyRules2,pyRules3,fitPyform},
+
+fitCform  = ToString@CForm[fit];
+
+(* formatting hacks: greek letters, powers, Shat (FIXME: not yet variable wrt to effective-spin parameter choice!) *)
+pyRules1  = {"\[Eta]"->"eta","\[Chi]"->"chi","Sqrt(2)"->"sqrt2","Sqrt(3)"->"sqrt3"};
+pyRules2  = Join[{"(chi1 - chi2)"->"chidiff","Power(chi1 - chi2,2)"->"chidiff2"},
+                 Table["Power(eta,"<>ToString@i<>")"->"eta"<>ToString@i,{i,2,9}],
+                 Table["Power(S,"<>ToString@i<>")"->"S"<>ToString@i,{i,2,9}],
+                 {"Power(1 - 4*eta,0.5)"->"sqrt1m4eta"}];
+pyRules3  = {"S"->"Shat","1 "->"1. ","0 "->"0. "};
+fitPyform = StringReplace[StringReplace[StringReplace[StringReplace[fitCform,pyRules1],pyRules2],pyRules3],extraFormattingRules];
+
+fitPyform = fitPyform<>"\n";
+Export[filename, fitPyform, "Text"];
+
+]
+
+
+PyExportFinalAnsatz[finalfit_,fit2dParts_,chidiffAnsaetze_,keepfi0_,extraFormattingRules_,filename_]:=Module[{ansatzRaw,numChiDiffTerms,zeroRules,ansatzCform,
+pyRules1,pyRules2,pyRules3,ansatzPyform,sqrti,sqrtRules,fracs,fracStrings,fracReals,fracRules,twodConstrained},
+
+twodConstrained = True;
+ansatzRaw = GetRawTwoDAnsatz[finalfit,fit2dParts,productAnsatz,twodConstrained];
+
+numChiDiffTerms = Length@chidiffAnsaetze;
+If[numChiDiffTerms>=1,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[1]] (\[Chi]1-\[Chi]2);
+];
+If[numChiDiffTerms>=2,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[2]] (\[Chi]1-\[Chi]2)^2;
+];
+If[numChiDiffTerms>=3,
+ ansatzRaw = ansatzRaw + chidiffAnsaetze[[3]] S (\[Chi]1-\[Chi]2);
+];
+
+If[Not@keepfi0,
+ zeroRules = Table[ToExpression["f"<>ToString@i<>"0"]->0,{i,0,Exponent[Numerator[fit2dParts[[1]]],S]}];
+ ansatzRaw = ansatzRaw/.zeroRules;
+];
+
+(* hack to avoid rounding of square-roots *)
+sqrti       = {2,3,5,6,7};
+sqrtRules   = Table[Sqrt[sqrti[[i]]]->ToExpression["sqrt"<>ToString@sqrti[[i]]<>""],{i,Length@sqrti}];
+(* hack to avoid rounding of fractions, first part: replace by named string before ToString@CForm[SetPrecision[...]] *)
+fracs       = {1/3,2/3,4/3,5/3};
+fracs       = Join[fracs,-fracs];
+fracStrings = Table[ToExpression["frac"<>StringReplace[ToString@Numerator@fracs[[i]],{"-"->"m"}]<>ToString@Denominator@fracs[[i]]],{i,Length@fracs}];
+fracRules   = Table[fracs[[i]]->fracStrings[[i]],{i,Length@fracs}];
+
+ansatzCform = ToString@CForm[SetPrecision[ansatzRaw/.sqrtRules/.fracRules,3]];
+
+(* hack to avoid rounding of fractions, second part: replace named string back to real number fractions *)
+fracReals   = Table[ToString@SetPrecision[Numerator@fracs[[i]],2]<>"/"<>ToString@SetPrecision[Denominator@fracs[[i]],2],{i,Length@fracs}];
+fracRules   = Table[ToString@fracStrings[[i]]->fracReals[[i]],{i,Length@fracs}];
+ansatzCform = StringReplace[ansatzCform,fracRules];
+
+(* more formatting hacks: greek letters, powers, Shat (FIXME: not yet variable wrt to effective-spin parameter choice!) *)
+pyRules1  = {"\[Eta]"->"eta","\[Chi]"->"chi"};
+pyRules2  = Join[{"(chi1 - 1.*chi2)"->"chidiff","Power(chi1 - 1.*chi2,2)"->"chidiff2"},
+                 Table["Power(eta,"<>ToString@i<>")"->"eta"<>ToString@i,{i,2,9}],
+                 Table["Power(S,"<>ToString@i<>")"->"S"<>ToString@i,{i,2,9}],
+                 {"Power(1. - 4.*eta,0.5)"->"sqrt1m4eta"},{"Sqrt(1. - 4.*eta)"->"sqrt1m4eta"}];
+pyRules3  = {"S"->"Shat"};
+ansatzPyform = StringReplace[StringReplace[StringReplace[StringReplace[ansatzCform,pyRules1],pyRules2],pyRules3],extraFormattingRules];
+
+ansatzPyform = ansatzPyform<>"\n";
+Export[filename, ansatzPyform, "Text"];
+
+]
+
+
+PyExportFinalFitCoeffs[finalfit_,fit2dParts_,all2dconstraints_,filename_]:=Module[{pyCoeffsList,pyCoeffsString},
+
+pyCoeffsList = Join[Table[ToString@fit2dParts[[3,i,1]]<>" = "<>ToString@CForm@fit2dParts[[3,i,2]],{i,Length@fit2dParts[[3]]}],
+                    Table[ToString@fit2dParts[[6,i,1]]<>" = "<>ToString@CForm@fit2dParts[[6,i,2]],{i,Length@fit2dParts[[6]]}],
+                    Table[ToString@all2dconstraints[[i,1]]<>" = "<>ToString@CForm[all2dconstraints[[i,2]]/.{1->1.,0->0.}],{i,Length@all2dconstraints}],
+                    (*{ToString@\[Eta]0derconstv3[[1,1]]<>" = "<>ToString@CForm[\[Eta]0derconstv3[[1,2]]]}, *)
+                    Table[ToString@finalfit[[2,i,1]]<>" = "<>ToString@CForm@finalfit[[2,i,2]],{i,Length@finalfit[[2]]}]
+];
+
+pyCoeffsString = "";
+For[i=1, i <= Length@pyCoeffsList, i++,
+    pyCoeffsString = pyCoeffsString<>"    "<>pyCoeffsList[[i]]<>"\n"];
+
+Export[filename, pyCoeffsString, "Text"];
+
+]
+
+
+SupplExportAllFitCoeffs[finalfit_,fit2dParts_,all2dconstraints_,eta0covar_,filename_]:=Module[{coeffsList,coeffsString,stdErrsEta,stdErrsS,stdErrs2D,stdErrsFinal},
+
+stdErrsEta   = Sqrt[Diagonal[fit2dParts[[4]]]];
+stdErrsS     = Sqrt[Diagonal[fit2dParts[[7]]]];
+stdErrs2D    = Join[Sqrt[Diagonal[eta0covar]],ConstantArray[0.0,Length[all2dconstraints]-Length[eta0covar]]];
+stdErrsFinal = Sqrt[Diagonal[finalfit[[14]]]];
+
+coeffsList = Join[Table[ToString@fit2dParts[[3,i,1]]<>" "<>ToString@CForm@fit2dParts[[3,i,2]]<>" "<>ToString@CForm@stdErrsEta[[i]],{i,Length@fit2dParts[[3]]}],
+                  Table[ToString@fit2dParts[[6,i,1]]<>" "<>ToString@CForm@fit2dParts[[6,i,2]]<>" "<>ToString@CForm@stdErrsS[[i]],{i,Length@fit2dParts[[6]]}],
+                  Table[ToString@all2dconstraints[[i,1]]<>" "<>ToString@CForm[all2dconstraints[[i,2]]/.{1->1.,0->0.}]<>" "<>ToString@CForm@stdErrs2D[[i]],{i,Length@all2dconstraints}],
+                  (*{ToString@\[Eta]0derconstv3[[1,1]]<>" "<>ToString@CForm[\[Eta]0derconstv3[[1,2]]]}, *)
+                  Table[ToString@finalfit[[2,i,1]]<>" "<>ToString@CForm@finalfit[[2,i,2]]<>" "<>ToString@CForm@stdErrsFinal[[i]],{i,Length@finalfit[[2]]}]
+];
+
+coeffsString = "# coeff estimate stderr\n";
+For[i=1, i <= Length@coeffsList, i++,
+    coeffsString = coeffsString<>coeffsList[[i]]<>"\n"];
+
+coeffsString = StringReplace[coeffsString,{". "->".0 ",".\n"->".0\n"}];
+
+Export[filename, coeffsString, "Text"];
+
+]
+
+
+SupplExportCovarMatrix[covar_,coeffRules_,fileName_]:=Module[{coeffNames,fullMatrix,covarString},
+
+coeffNames = coeffRules[[All,1]];
+
+covarString = "# coeffs:";
+For[i=1, i <= Length@coeffRules, i++,
+    covarString = covarString<>" "<>ToString@coeffRules[[i,1]];
+   ];
+covarString = covarString<>"\n";
+For[i=1, i <= Length@covar, i++,
+    For[j=1, j <= Length@covar, j++,
+        covarString = covarString<>" "<>ToString@NumberForm[covar[[i,j]], {16, 16}, ExponentFunction -> (If[-10 < # < 10, Null, #] &)];
+       ];
+    covarString = covarString<>"\n";
+   ];
+
+Export[fileName, covarString, "Text"];
+
+]
+
+
+Options[AIC]={"Weights"->False};
+AIC[data_,fit_,fitvars_,OptionsPattern[]]:=Module[{bracketedvars,coeff,datapnts,err,n,res,ress,weigths},
+
+n=Length@data;
+coeff=Length@fitvars;
+weigths=OptionValue["Weights"];
+If[weigths,err=data[[All,-1]];datapnts=data[[All,-2]];,err=1;datapnts=data[[All,-1]];];
+
+res=Table[data[[i,-2]]-(fit/.Table[fitvars[[j]]->data[[i,j]],{j,Length@fitvars}]),{i,Length@data}];
+ress=Total[err (res)^2];
+n + n Log[2\[Pi]]+n Log[ress/n]+2(coeff+1)
+
+]
+
+
+Options[AICc]=Options[AIC];
+AICc[data_,fit_,fitvars_,OptionsPattern[]]:=Module[{coeff,n,res,newfit,bracketedvars,ress,weigths},
+weigths=OptionValue["Weights"];
+n=Length@data;
+coeff=Length@fitvars;
+
+AIC[data,fit,fitvars,"Weights"->weigths]+(2*coeff(coeff+1) )/(n - coeff -1)
+
+]
+
+
+BIC[data_,fit_,fitvars_,coeff_]:=Module[{n,res,newfit,bracketedvars,ress},
+
+n=Length@data;
+bracketedvars=StringReplace[StringReplace[ToString@fitvars,"{"->"["],"}"->"]"];
+newfit=ToExpression[ToString@fit<>bracketedvars];
+
+res=Table[data[[i,-2]]-(newfit/.Table[fitvars[[j]]->data[[i,j]],{j,Length@fitvars}]),{i,Length@data}];
+ress=Total[data[[All,-1]](res)^2];
+n + n Log[2\[Pi]]+n Log[ress/n]+Log[n](coeff+1)
+
+]
+
+
+Residuals[data_,fit_,vars_,OptionsPattern[{"Verbose"->False,"Relative"->False}]]:=Module[{datvals,relative,fitvals,res,verbose},
+
+verbose=OptionValue["Verbose"];
+relative=OptionValue["Relative"];
+
+
+If[verbose,Print["variables -> ",vars]];
+
+datvals=TakeColumn[data,-1];
+fitvals=fit/.Table[(vars[[j]]->data[[All,j]]),{j,Length@vars}];
+If[relative,res=1-fitvals/datvals,res=datvals-fitvals]
+]
+
+
+KullbagLeiblerDiv[p1_?ListQ,p2_?ListQ]:=Module[{fun},
+fun=1.Function[{p,q},Limit[p*Log[(p+\[Epsilon])/(q+\[Epsilon])],\[Epsilon]->0]][p2,p1];
+Total[fun]
+]
+
+
+KL[data1_,data2_,lim_]:=Module[{n,res},
+
+n=Length@data1;
+
+NIntegrate[PDF[data1,x] Log[PDF[data1,x]/PDF[data2,x]], {x,-lim,lim}]
+
+]
+
+
+JensenShanonDiv[p1_?ListQ,p2_?ListQ]:=Module[{m,fun},
+m=0.5 (p1+p2);
+fun=Function[{p,q,m},Limit[p*Log[(p+\[Epsilon])/(m+\[Epsilon])]+ q*Log[(q+ \[Epsilon])/(m+\[Epsilon])],\[Epsilon]->0]][p1,p2,m];
+Total[fun]
+]
+
+
+JS[data1_,data2_,lim_]:=Module[{n,res},
+
+n=Length@data1;
+
+1/2 NIntegrate[PDF[data1,x] Log[PDF[data1,x]/(PDF[data2,x]+ PDF[data1,x])],  {x,-lim,lim}] + 1/2  NIntegrate[PDF[data2,x] Log[PDF[data2,x]/(PDF[data2,x]+PDF[data1,x])]  , {x,-lim,lim}]
+]
+
+
+ComputeEdges[pts_]:=Module[{ptsx,auxvar,auxvar2,nears,i},
+ptsx=SortBy[pts,First];
+auxvar={};
+i=1;
+AppendTo[auxvar,{ptsx[[i]]}];
+While[i<= Length@ptsx-1,
+If[ptsx[[i+1,1]]==ptsx[[i,1]],i=i+1,AppendTo[auxvar,{ptsx[[i]]}];i=i+1]
+];
+AppendTo[auxvar,{ptsx[[i]]}];
+auxvar=Flatten[auxvar,1];
+
+i=Length@ptsx-1;
+While[i> 1,
+If[ptsx[[i+1,1]]==ptsx[[i,1]],i=i-1,AppendTo[auxvar,ptsx[[i+1]]];i=i-1]
+];
+AppendTo[auxvar,ptsx[[i]]];
+Do[auxvar=AppendTo[auxvar,0.5auxvar[[1]]+0.5auxvar[[-1]]],{i,3}];
+auxvar
+]
+
+
+CredibleRegion[data_,level_]:=Module[{datasrt,prob,cumprob,pbound},
+(* Last column must be the PDF *)
+datasrt=SortBy[data,Last];
+prob=TakeColumn[datasrt,-1];
+cumprob=Accumulate[prob]/Total[prob];
+
+pbound=Quiet@Position[cumprob,_?(#>= (1-level) cumprob[[-1]]& ),1][[1,1]];
+
+ComputeEdges[datasrt[[pbound-1;;-1]]][[All,1;;-2]]
+]
+
+
+CredibleInterval[data_,level_]:=Module[{datasrt,prob,cumprob,pbound},
+(* Last column must be the PDF *)
+datasrt=SortBy[data,Last];
+prob=TakeColumn[datasrt,-1];
+cumprob=Accumulate[prob]/Total[prob];
+
+pbound=Quiet@Position[cumprob,_?(#>= (1-level) cumprob[[-1]]& ),1][[1,1]];
+datasrt[[pbound;;-1]]
+]
+
+
+Generate1DPolynomialAnsatz[CoefficientPrefixString_?StringQ,variable_,MinOrder_?IntegerQ,MaxOrder_?IntegerQ]:=Module[{ansatz,i,j}, 
+ansatz = Total/@Table[ToExpression[CoefficientPrefixString<>ToString@i] * variable^i,{j,MinOrder,MaxOrder},{i,0,j}];
+
+Transpose[{ansatz,Table[{variable},{i,Length@ansatz}]}]
+]
+
+
+CleanAnsatzParams[paramsGuess_, vars_]:=Module[{pos,params,varsStr,paramsStr,tmp},
+
+params = DeleteDuplicates@Flatten@paramsGuess;
+
+tmp=Select[params, Not@NumberQ@#& ];
+
+varsStr  = ToString/@vars;
+paramsStr= ToString/@tmp;
+
+(* Clean the variables from the parameters and identify variables *)
+pos = Flatten[Position[paramsStr,#]&/@varsStr,1];
+params=Delete[tmp,pos];
+
+params
+];
+
+
+(* ::Code::Initialization:: *)
+Options[DataFitFunction]={
+"FitAll"          ->  True,
+"AxesTag"         -> "Amplitude",
+"Verbose"         -> 1,
+"StatisticalTest" -> "AIC",
+"Sorted"          ->  True,
+"Weights"         -> {},
+"PlotRange"       -> All,
+"ToolTipTags"     -> "",
+"Domain"          -> {0,1},
+"GetIntervals"    -> False
+};
+
+
+DataFitFunction[dataRAW_?ListQ,ansatzList_?ListQ,OptionsPattern[]]:=Module[{ansatz,ansatzaparams,ansatzvars,cleartrue,fit,stats,verbose,
+ansatzparamsStr,ansatzvarsStr,outparams,fittab,plot1,plot2,datasorted,plotdomain,myvar,plotdomain1,axestag,aic,aicc,bic,rsquared,rmse,
+statisticaltest,stattoplot,sortfield,residuals,minexp,maxexp,minexp2,maxexp2,sorted,paramerrors,residualsplot,weights,plotrange,print,
+ansatzaparamsGuess,paramTStat,overview,data,dimWeights,tooltiptags,inner,confidenceinttable,userPlotDomain,vcov,
+estvar,confbands,predbands,getintervals,loglikelihood},
+
+verbose         = OptionValue["Verbose"];
+axestag         = OptionValue["AxesTag"];
+statisticaltest = OptionValue["StatisticalTest"];
+sorted          = OptionValue["Sorted"];
+weights         = OptionValue["Weights"];
+plotrange       = OptionValue["PlotRange"];
+tooltiptags     = OptionValue["ToolTipTags"];
+userPlotDomain  = OptionValue["Domain"];
+getintervals    = OptionValue["GetIntervals"];
+
+If[TrueQ@weights,
+ dimWeights = Last@Dimensions@dataRAW;
+ weights    = TakeColumn[dataRAW,dimWeights];
+ data       = TakeColumn[dataRAW,  Range[dimWeights-1]],
+ data       = dataRAW[[All,1;;Length@dataRAW[[1]]]];
+ If[verbose,Print["Raw data with no weights on the lists!"]];
+];
+
+If[verbose>=2,
+ print[x___]:=Print[x],
+ print[x___]:={}
+];
+
+ansatz     = Chop/@ (ansatzList[[All,1]]);
+ansatzvars = ansatzList[[All,2]];
+
+ansatzaparamsGuess = N/@AtomsList/@ansatz;
+
+ansatzaparams = Table[CleanAnsatzParams[ansatzaparamsGuess[[i]], ansatzvars[[i]]],{i,Length@ansatzvars}];
+
+(*
+print["Ans\[ADoubleDot]tze       -> ", ansatz//TableForm];
+print["#\[NonBreakingSpace]data points -> ", Length@data];
+print["#\[NonBreakingSpace]data points -> ", Length@Union[data, SameTest->(Abs[#1[[1]]-#2[[1]]] < 0.01 &)], "  identifying x-values deviating < 0.01"];
+*)
+
+(*Print["Weights: ", If[Length@weights>0,weights,Automatic]];*)
+
+fittab=Table[
+If[Length@ansatzaparams[[i]]>=1,
+  fit = NonlinearModelFit[data,ansatz[[i]],ansatzaparams[[i]],ansatzvars[[i]],MaxIterations->1000,Weights->If[Length@weights>0,weights,Automatic]];
+  outparams     = fit["BestFitParameters"];
+  stats         = fit["ParameterTable"];
+  paramerrors   = fit["ParameterErrors"];
+  paramTStat    = fit["ParameterTStatistics"];
+  residuals     = fit["FitResiduals"];
+
+  aic  = fit["AIC"];
+  aicc = aic + (2*Length@outparams(Length@outparams+1) )/(Length@data - Length@outparams -1);
+  bic  = fit["BIC"];
+  rsquared           = fit["RSquared"];
+  rmse               = Sqrt@Mean[residuals^2];
+  confidenceinttable = fit["ParameterConfidenceIntervalTable"];
+  vcov               = fit["CovarianceMatrix"];
+  estvar             = fit["EstimatedVariance"];
+
+If[getintervals,
+   confbands = fit["MeanPredictionBands",ConfidenceLevel->0.9];
+   predbands = fit["SinglePredictionBands",ConfidenceLevel->0.9];
+  ,
+   confbands = {};
+   predbands = {};
+];
+  (*    1          2         3     4    5     6     7             8                   9 *)
+  {Normal@fit, outparams, stats, aic, aicc, bic, rsquared, ScientificForm@rmse,  paramerrors,
+  (*   10                                                                             11                    12           13           14    15 *)
+  Sort[CombineColumns[ansatzaparams[[i]],paramTStat],Abs@#1[[2]]<Abs@#2[[2]]&], Length@ansatzaparams[[i]], rmse, confidenceinttable, vcov, ansatz[[i]],
+  (* 16          17       18            19   *)
+    estvar, confbands, predbands, residuals },
+  {ansatz[[i]],"dummy","dummy","dummy","dummy","dummy","dummy","dummy","dummy","dummy"}]
+,{i,Length@ansatzList}];
+
+Which[statisticaltest=="AIC",
+      stattoplot=aic;
+      sortfield=4;
+      ,
+      statisticaltest=="AICc",
+      stattoplot=aicc;
+      sortfield=5;
+      ,
+      statisticaltest=="BIC",
+      stattoplot=bic;
+      sortfield=6;
+      ,
+      statisticaltest=="RSquared",
+      stattoplot=rsquared;
+      sortfield=7;
+      ,
+      statisticaltest=="RMSE",
+      stattoplot=rmse;
+      sortfield=12;
+     ];
+
+If[sorted, fittab = SortBy[fittab,#[[sortfield]]&   ]];
+overview  = TakeColumn[fittab,{1,11,7,8,5,6,3}]; (* fit eqn, numParams, Rsquared, RSME, AICc, BIC, coefficient table *)
+residuals = fittab[[All,19]];
+
+(*
+resVSaic = TakeColumn[fittab, {4,7}];
+resVSaicc = TakeColumn[fittab, {5,7}];
+resVSbic = TakeColumn[fittab, {6,7}];
+Print[ListLogPlot[{resVSaic,resVSaicc,resVSbic},PlotRange\[Rule]All,PlotStyle\[Rule]{Red,Blue,Green},PlotLegends\[Rule] {"AIC","AICc","BIC"},
+Frame\[Rule] True,FrameLabel\[Rule] {"*IC*","RMSE"}]];
+*)
+
+If[verbose>=1,
+   Print[overview//TableForm];
+];
+
+If[verbose>=2,
+
+    Which[Length@ansatzvars[[1]]==1,
+          (* {minexp,maxexp}={Min[Exponent[#,ansatzvars]&/@ansatz],Max[Exponent[#,ansatzvars]&/@ansatz]}; *)
+          {minexp,maxexp}={Min[Table[Length[fittab[[i,2]]],{i,Length@ansatzList}]],Max[Table[Length[fittab[[i,2]]],{i,Length@ansatzList}]]};
+          datasorted=SortBy[data,First];
+
+          plotdomain={Min[First@First@datasorted,First@userPlotDomain],Max[First@Last@datasorted,Last@userPlotDomain]};
+
+          (*plot1=Plot[Evaluate[Table[fittab[[i,1]]/.ansatzvars[[i,1]]\[Rule]x,{i,Length@ansatzList}]],{x,First@plotdomain,Last@plotdomain},
+                     Epilog\[Rule]{Point[Table[Tooltip[#,If[ListQ@tooltiptags,tooltiptags[[i]],ToString[data[[i]]]]],{i,Length@data}]&/@data]},
+                     PlotRange\[Rule]plotrange,Frame\[Rule]True,PlotStyle\[Rule]Red,FrameLabel\[Rule]{Style[ToString@ansatzvars[[1,1]],14],Style["f("<>ToString@ansatzvars[[1,1]]<>")",14]}];*)
+          plot1=Plot[Evaluate[Table[fittab[[i,1]]/.ansatzvars[[i,1]]->x,{i,Length@ansatzList}]],{x,First@plotdomain,Last@plotdomain},PlotLegends->Evaluate[Table[fittab[[i,1]],{i,Length@ansatzList}]]];    
+          plot2=ListPlot[Table[Tooltip[data[[i]],If[ListQ@tooltiptags,tooltiptags[[i]],ToString[data[[i]]]]],{i,Length@data}], PlotStyle->Red];
+   
+          stattoplot=Transpose[{Table[Length[fittab[[i,2]]],{i,Length@ansatzList}],TakeColumn[fittab,sortfield]}];
+         
+          inner=(Inner[List,data[[All,1]],#,List]&/@residuals);
+
+          Print@{Show[plot1, plot2, ImageSize->450, Frame->True, FrameLabel->{Style[ToString@ansatzvars[[1,1]],14],Style["f("<>ToString@ansatzvars[[1,1]]<>")",14]}],
+                 ListPlot[Partition[stattoplot,1],Frame->True,FrameLabel->{Style["\!\(\*SubscriptBox[\(N\), \(coeff\)]\)",14],Style[statisticaltest,14]},ImageSize->450,PlotRange->{{minexp-1,maxexp+1},All},
+                             PlotLegends->Table[fittab[[i,1]],{i,Length@ansatzList}]],
+                 ListPlot[Table[Tooltip[#[[i]],If[ListQ@tooltiptags,tooltiptags[[i]],ToString[data[[i]]]]],{i,Length@data}]&/@inner,PlotRange->{plotdomain,All},
+                             ImageSize->450,Frame->True,FrameLabel->{Style[ToString@ansatzvars[[1,1]],14],Style["data-fit",14]}]
+          };
+          ,          
+          Length@ansatzvars[[1]]==2,
+
+          (*
+          {minexp,maxexp}  ={Min[Exponent[#,ansatzvars[[1,1]]]&/@ansatz],Max[Exponent[#,ansatzvars[[1,1]]]&/@ansatz]};
+          {minexp2,maxexp2}={Min[Exponent[#,ansatzvars[[1,2]]]&/@ansatz],Max[Exponent[#,ansatzvars[[1,2]]]&/@ansatz]};
+          *)
+
+          plot2=ListPointPlot3D[data,PlotRange->plotrange,PlotStyle->PointSize[0.02],PlotLegends->{"data"}];
+          plot1=Plot3D[Evaluate[Table[fittab[[i,1]]/.ansatzvars[[i,1]]->x/.ansatzvars[[1,2]]->y,{i,Length@ansatzList}]],
+                       {x,First@First@userPlotDomain,Last@First@userPlotDomain}, {y,First@Last@userPlotDomain,Last@Last@userPlotDomain}, PlotRange->plotrange,
+                       AxesLabel->{Style[ToString@ansatzvars[[1,1]],14],Style[ToString@ansatzvars[[1,2]],14],Style["f("<>ToString@ansatzvars[[1,1]]<>","<>ToString@ansatzvars[[1,2]]<>")",14]},
+                       PlotLegends->(*Evaluate[Table[fittab[[i,1]],{i,Length@ansatzList}]]*)Table["Ansatz "<>ToString[i],{i,Length@ansatzList}]];
+
+          stattoplot=Table[{Exponent[fittab[[i,1]], ansatzvars[[i,1]]],Exponent[fittab[[i,1]], ansatzvars[[i,2]]],fittab[[i,4]]},{i,Length@ansatzList}];
+          residualsplot=Table[Transpose[{data[[All,1]],data[[All,2]],residuals[[i]]}],{i,Length@ansatzList}];
+
+          Print@{Show[plot1,plot2,ImageSize->450],
+                (* ListPointPlot3D[stattoplot,PlotStyle\[Rule]Red,AxesLabel\[Rule]{"order "<>ToString@ansatzvars[[1,1]],"order "<>ToString@ansatzvars[[1,2]],statisticaltest},ImageSize\[Rule]450,PlotRange\[Rule]{{minexp-0.2,maxexp+0.2},{minexp2-0.2,maxexp2+0.2},Automatic}],*)
+                 (*myListPlot3D[residualsplot,AxesLabel\[Rule]{Style[ToString@ansatzvars[[1,1]],14],Style[ToString@ansatzvars[[1,2]],14],""},PlotLabel->Style["Residuals",14],ImageSize\[Rule]450],*)
+                 myListPlot3D[residualsplot,AxesLabel->{Style[ToString@ansatzvars[[1,1]],14],Style[ToString@ansatzvars[[1,2]],14],Style["data-fit",14]},ImageSize->450,PlotRange->plotrange]};   
+          Print[];
+          ,True,
+          Print["More than 2 variables can not be plotted :) "];
+          ];
+];
+
+Return[fittab];
+]
+
+
+Options[DataFitFunctionAll]={
+"NSFitindex"                  -> 1, (* which fit to pick *)
+"q1Fitindex"                  -> 1,
+"FitCase"                     -> 1, (* 1: 1D fits, 2: 1D+2D fits, return 2D only: 3: 1D+2D fits, return both; 4: 1D+2D+3D fits, return only 2D+3D; 5: 1D+2D+3D fits, return all, but with reduced verbosity *)
+"MassRatioUnequalFits"        -> {1,1.5,2.,3.,4.,8.,18.},
+"NonSpinningAnsatzList"       -> {{a1 \[Eta]+a2 \[Eta]^2+a3 \[Eta]^3,{\[Eta]}},{a1 \[Eta]+a2 \[Eta]^2+a3 \[Eta]^3+a4 \[Eta]^4,{\[Eta]}},{a1 \[Eta]+a2 \[Eta]^2+a3 \[Eta]^3+a4 \[Eta]^4+a5 \[Eta]^5,{\[Eta]}}},
+"EqualBHAnsatzList"           -> {{b1 S+b2 S^2+b3 S^3,{S}},{b1 S+b2 S^2+b3 S^3+b4 S^4,{S}},{b1 S+b2 S^2+b3 S^3+b4 S^4+b5 S^5,{S}},{b1 S+b2 S^2+b3 S^3+b4 S^4+b5 S^5+b6 S^6,{S}},{b1 S+b2 S^2+b3 S^3+b4 S^4+b5 S^5+b6 S^6+b7 S^7,{S}},
+                                 {b1 S+b2 S^2+b3 S^3+b4 S^4+b5 S^5+b6 S^6+b7 S^7+b8 S^8,{S}}},
+"Addq1Ansatz"                 -> {},
+"AddNSAnsatz"                 -> {},
+"AddGenAnsatz"                -> {},
+"StatisticalTest"             -> "BIC",
+"AnsatzTestCombinations"      -> {{1},{1}},
+"PlotRange"                   -> All,
+"RationalFunctions"           -> True,
+"ProductAnsatz"               -> False,
+"GeneralAnsatzRules"          -> {},
+"ToolTipTags"                 -> "",
+"ProductGeneralizeOrder"      -> 2,
+"ProductGeneralizeOrderDenom" -> -1,
+"ProductGeneralizeMinPowerNum" -> -1,
+"TwoDSpinAnsatzOrderNum"       -> -1,
+"TwoDSpinAnsatzOrderDenom"     -> -1,
+"SpinDiffWeights"              -> True,
+"Weights"                      -> True,
+"AddSpinDiffLinAnsatz"         -> {},
+"AddSpinDiffQuadAnsatz"        -> {},
+"AddSpinDiffMixAnsatz"         -> {},
+"SpinDifferenceRules"          -> {},
+"\[Eta]LimitEqualSpin"              -> 0,
+"GetIntervals"                 -> False,
+"SpinParameter"                -> sTot3,
+"SpinDiffParameter"            -> \[Chi]diffstan(*(\[Chi]1-\[Chi]2)*),
+"FastAnalysis"                 -> False,
+"Addf00ToAnsatz"               -> False
+};
+
+
+DataFitFunctionAll[data_?ListQ,OptionsPattern[]]:=Module[{datans,nsfits,nsansatz,ansatzvars,dataq1,dataq1sorted,ansatzq1,nsfitindex,q1fit,ansatz,nsfit,sys,solNS,coeffs,ansatzS,solq1,ansatzFinal,
+ansatzFinal\[Delta]\[Chi],allData,fitEq,allDataEqS,dataeqs,my\[Eta],myd\[Eta],dataq1Sym,pos,massratioplots,myfit,tabfits,uneqfits,massratiounequalfits,
+uneqfit2,uneqfit,uneqfit3,q1fitopt,q1fitindex,expans,expns,mydq,thisq,oneDverbosity,perqVerbosity,
+ansatzFinal\[Delta]\[Chi]1,ansatzFinal\[Delta]\[Chi]2,lplot,lqplotl,lqplotq,lmplotl,lmplotm,lmqplotl,lmqplotm,lmqplotq,
+addnsansatz,addq1ansatz,\[Eta]sfit,statisticaltest,nsdegree,q1degree,addgenansatz,genansatzindex,ansatzchidifflinear,ansatzchidiffquadratic,plot1,plot2,plot3,plot4,plot4a,plot4b,plot4mirror,
+testansatzcomb,myfit2,q1fits,ansatzAll,fitcase,alldataeqfit,alldataeqfitv2,eqdatafit,linearpar,linearparerr,linearpar2,linearpar2err,quadpar,quadparerr,
+linearfit1,quadfit,ansatz\[Eta]1,ansatz\[Eta]2,linearfit2,plotrange,uneqredunfit,uneqredunfit2,ansatzFinalS\[Delta]\[Chi],spindiffterm,
+spindiffterm2,ansatz\[Eta]3,ansatz\[Eta]4,spindiffterm21,spindiffterm22,generalAnsatzRules,weights,num,denom,zeroRules,spinAnsatz,q1fitS0,fitabc,tooltiptags,dataq1tag,mysel,dataq1pos,tooltiptagsaux,
+\[Eta]0Ansatz,spinpart,spindifferencerules,spindiffweights,datauneqs,dataeqs2,addspindifflinansatz,addspindiffquadansatz,addspindiffmixansatz,ansatzchidiffmix,
+tooltiptagsns,tooltiptagseq,dataq1mixterm,myfitmixterm,linearpar3,linearpar3err,mixpar,mixparerr,linearfit3,mixfit,spindiffterm31,spindiffterm32,ansatzS\[Delta]\[Chi]raw,ansatzFinalS\[Delta]\[Chi]\[Chi]2,
+ansatzS\[Delta]\[Chi]\[Chi]2raw,myfitmixquadterm,dataq1mixquadterm,linearpar4err,linearpar4,linearfit4,mixparerr2,mixpar2,quadparerr2,quadpar2,mixfit2,quadfit2,spindiffterm41,spindiffterm42,
+spindiffterm43,unphysical,numRestrictions,denomRestrictions,extraStuff,ansatzRaw,spinAnsatzRaw,etaAnsatz,etaCoeffRules,etaCovar,SAnsatz,SCoeffRules,SCovar,getintervals,data\[Eta]S\[Chi]diff,
+spinparameter,avgerrperq,avgwgthperq,extrawght,dataeqsunmass,allDataEqSv2,eqdatafitv2,dataunconstr,allDataUnconstr,spindiffparameter,
+productAnsatz,productGeneralizeOrderNum,productGeneralizeOrderDenom,productGeneralizeMinPowerNum,twoDSpinAnsatzOrderNum,twoDSpinAnsatzOrderDenom,
+q1fitS0orderNum,q1fitS0orderDenom,spinAnsatzToGeneralize,spinAnsatzNum,spinAnsatzDenom,q1AnsatzRaw,q1AnsatzRawS0,spinAnsatzRawNum,spinAnsatzRawDenom,spinAnsatzRawToGeneralize,
+dfitspindiffterm,dfitspindiffterm21,dfitspindiffterm22,dfitspindiffterm31,dfitspindiffterm32,dfitspindiffterm41,dfitspindiffterm42,dfitspindiffterm43,fastanalysis,plot3a,dataq1a},
+
+(* Input field "data" is expected in the form {\[Eta], \[Chi]1, \[Chi]2, value}, convention: m1 \[GreaterEqual] m2  !!!!CHECK!!!! *)
+
+nsfitindex     = OptionValue["NSFitindex"];
+q1fitindex     = OptionValue["q1Fitindex"];
+addnsansatz    = OptionValue["AddNSAnsatz"];
+addq1ansatz    = OptionValue["Addq1Ansatz"];
+fitcase        = OptionValue["FitCase"];
+statisticaltest= OptionValue["StatisticalTest"];
+addgenansatz   = OptionValue["AddGenAnsatz"];
+testansatzcomb = OptionValue["AnsatzTestCombinations"];
+plotrange      = OptionValue["PlotRange"];
+generalAnsatzRules = OptionValue["GeneralAnsatzRules"]; 
+tooltiptags=OptionValue["ToolTipTags"];
+spindifferencerules=OptionValue["SpinDifferenceRules"];
+spindiffweights=OptionValue["SpinDiffWeights"];
+weights=OptionValue["Weights"];
+massratiounequalfits=\[Eta]q[OptionValue["MassRatioUnequalFits"]];
+addf00toansatz=OptionValue["Addf00ToAnsatz"];
+addspindifflinansatz=OptionValue["AddSpinDiffLinAnsatz"];
+addspindiffquadansatz=OptionValue["AddSpinDiffQuadAnsatz"];
+addspindiffmixansatz=OptionValue["AddSpinDiffMixAnsatz"];
+getintervals=OptionValue["GetIntervals"];
+spinparameter=OptionValue["SpinParameter"];
+spindiffparameter=OptionValue["SpinDiffParameter"];
+productAnsatz                = OptionValue["ProductAnsatz"];
+productGeneralizeOrderNum    = OptionValue["ProductGeneralizeOrder"];
+productGeneralizeOrderDenom  = OptionValue["ProductGeneralizeOrderDenom"];
+productGeneralizeMinPowerNum = OptionValue["ProductGeneralizeMinPowerNum"];
+If[productGeneralizeOrderDenom<0,  productGeneralizeOrderDenom  = productGeneralizeOrderNum;];
+If[productGeneralizeMinPowerNum<0, productGeneralizeMinPowerNum = If[productAnsatz,0,1];]; (* by default, set the fi0 terms to zero in a sum ansatz, but keep them in a product ansatz; can be user-overriden *)
+twoDSpinAnsatzOrderNum          = OptionValue["TwoDSpinAnsatzOrderNum"];
+twoDSpinAnsatzOrderDenom        = OptionValue["TwoDSpinAnsatzOrderDenom"];
+fastanalysis = OptionValue["FastAnalysis"];
+
+nsansatz = OptionValue["NonSpinningAnsatzList"];
+
+If[Length@addnsansatz>0,Do[nsansatz=Append[nsansatz,addnsansatz[[i]]];,{i,Length@addnsansatz}]];
+
+unphysical = Select[data,#1[[1]] > 0.25 &];
+Print["data points with \[Eta] > 0.25: ", unphysical];
+
+datans        = Select[data,    #1[[2]]^2+#1[[3]]^2 < 0.01   &];                                         (* zero spin, for 1d fit *)
+dataeqs       = Select[data,    (Abs[#1[[2]]-#1[[3]]] < 0.01)||(#1[[1]]< OptionValue["\[Eta]LimitEqualSpin"])   &]; (* all equal spins, including zero *)
+datauneqs     = Complement[data,dataeqs];                                                                 (* all unequal spins *)
+dataq1        = Select[dataeqs, (Abs[#1[[1]]-0.25] < 0.0001) && (#1[[2]]^2+#1[[3]]^2 >=  0.01) &];          (* equal nonzero spins, equal mass, for 1d fit *)
+dataeqsunmass = Select[dataeqs, (Abs[#1[[1]]-0.25] > 0.0001) && (#1[[2]]^2+#1[[3]]^2 >=  0.01) &];          (* equal nonzero spins, unequal mass, for 2d fit *)
+dataunconstr  = Complement[data,Join[datans,dataq1]];                                                     (* not 1D constrained: unequal-spin equal-mass or nonzero-spin unequal-mass, for 3d fit *)
+
+If[ListQ@tooltiptags,
+pos           = Flatten[Position[data,#]&/@datans];
+tooltiptagsns = tooltiptags[[pos]];
+];
+
+Print["#\[NonBreakingSpace]of data points:                            ", Length@data];
+Print["#\[NonBreakingSpace]of non-spinning data points:               ", Length@datans];
+Print["#\[NonBreakingSpace]of equal-spin equal-mass data points:      ", Length@dataq1];
+Print["#\[NonBreakingSpace]of equal-spin unequal-mass data points:    ", Length@dataeqsunmass];
+Print["#\[NonBreakingSpace]of unequal-spin data points:               ", Length@datauneqs];
+Print["# of non-zero-spin unequal-mass data points: ", Length@dataunconstr];
+Print["Sums of subspaces: S=0 + q=1 + equal-spin + unequal-spin cases: ", Length@datans + Length@dataq1 + Length@dataeqsunmass + Length@datauneqs];
+Print["                   S=0 + q=1 + others:                          ", Length@datans + Length@dataq1 + Length@dataunconstr];
+
+Print["Eff. spin parameter: ",spinparameter];
+Print["Spin-diff parameter: ",spindiffparameter];
+(*
+Print["Rules for General Anzatze : ", generalAnsatzRules];
+Print["Rules for Spin Difference Anzatze : ", spindifferencerules];
+*)
+
+allData         = TakeColumn[data,          {1,2,3,4,5}]/. {\[Eta]\[Eta]_,c1_,c2_,res_,ww_}->{\[Eta]\[Eta],spinparameter[\[Eta]\[Eta],c1,c2],res,ww};
+allDataEqS      = TakeColumn[dataeqs,       {1,2,3,4,5}]/. {\[Eta]\[Eta]_,c1_,c2_,res_,ww_}->{\[Eta]\[Eta],spinparameter[\[Eta]\[Eta],c1,c2],res,ww};
+allDataEqSv2    = TakeColumn[dataeqsunmass, {1,2,3,4,5}]/. {\[Eta]\[Eta]_,c1_,c2_,res_,ww_}->{\[Eta]\[Eta],spinparameter[\[Eta]\[Eta],c1,c2],res,ww};
+allDataUnconstr = TakeColumn[dataunconstr,  {1,2,3,4,5}]/. {\[Eta]\[Eta]_,c1_,c2_,res_,ww_}->{\[Eta]\[Eta],spinparameter[\[Eta]\[Eta],c1,c2],res,ww};
+
+If[(fitcase==3)||(fitcase>=5),
+ oneDverbosity = 0;
+ ,
+ oneDverbosity = 2;
+];
+
+(* non-spinning fit *)
+Print[Style["Non-Spinning Fit",Blue]];
+nsfits   = DataFitFunction[TakeColumn[datans,{1,4,5}], nsansatz, "Domain"->{0,0.25}, "PlotRange"->plotrange, "StatisticalTest"->statisticaltest, "Verbose"->oneDverbosity, "Weights"->weights,
+                           "ToolTipTags"->tooltiptagsns, "GetIntervals"->getintervals&&(fitcase==1)];
+
+Print["---------------------"];
+Print["Select \[Chi]1=\[Chi]2=0 Fit with nsfitindex = ", nsfitindex, " -> ", nsfit = nsfits[[nsfitindex,1]] ];
+Print["---------------------"];
+
+(* equal mass/equal spin fit *)
+Print[Style["q=1, \[Chi]1=\[Chi]2 Fit",Blue]];
+
+dataq1sorted = Sort[TakeColumn[dataq1,{2,3,4,5}]]/. {xx_?NumberQ,yy_,zz_,ww_}->{spinparameter[0.25,xx,yy],zz,ww};
+
+If[ListQ@tooltiptags,
+   pos           = Flatten[Position[data,#]&/@dataq1sorted];
+   tooltiptagseq = tooltiptags[[pos]];
+];
+
+Clear[b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,S];
+(* ansatzq1 = Total/@Table[ToExpression["b"<>ToString@i] * S^i,{j,3,8},{i,1,j}];
+ansatzq1 = Transpose[{ansatzq1,Table[{S},{i,Length@ansatzq1}]}]; *)
+
+ansatzq1  = OptionValue["EqualBHAnsatzList"];
+
+If[Length@addq1ansatz>0,Do[ansatzq1=Append[ansatzq1,addq1ansatz[[i]]];,{i,Length@addq1ansatz}]];
+
+
+If[productAnsatz,
+ ansatzq1[[All,1]]=(nsfit/. \[Eta]->0.25) * ansatzq1[[All,1]];
+ ,
+ ansatzq1[[All,1]]=(nsfit/. \[Eta]->0.25) + ansatzq1[[All,1]];
+];
+
+If[ListQ@tooltiptags,
+   pos           = Flatten[Position[TakeColumn[data,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{spinparameter[0.25,xx,yy],zz,ww},#]&/@dataq1sorted];
+   tooltiptagseq = tooltiptags[[pos]];
+];
+q1fits = DataFitFunction[dataq1sorted, ansatzq1, "Domain"-> {-1,1}, "PlotRange"->plotrange, "StatisticalTest"->statisticaltest, "Verbose"->oneDverbosity, "Weights"->weights,
+                           "ToolTipTags"->tooltiptagseq, "GetIntervals"->getintervals&&(fitcase==1)];
+
+If[fitcase==1, Return[{nsfits,q1fits}]];
+
+etaAnsatz     = nsfits[[nsfitindex,15]];
+etaCoeffRules = nsfits[[nsfitindex,2]];
+etaCovar      = nsfits[[nsfitindex,14]];
+SAnsatz       = q1fits[[q1fitindex,15]];
+SCoeffRules   = q1fits[[q1fitindex,2]];
+SCovar        = q1fits[[q1fitindex,14]];
+
+q1fit = q1fits[[q1fitindex,1]];
+
+Print["---------------------"];
+Print["Select q=1 Fit with q1fitindex = ",  q1fitindex, " -> ", q1fit];
+Print["---------------------"];
+
+
+Print[Style["{\[Eta],S} Fit",Blue]];
+
+nsdegree = Exponent[nsfit,\[Eta],List];
+q1degree = Exponent[q1fit,S,List];
+
+ansatz={Flatten[Total@Table[Total@Table[ToExpression["f"<>ToString@i<>ToString@j] *S^j,{j,q1degree}]*\[Eta]^i,{i,nsdegree}]],{\[Eta],S}};
+If[productAnsatz,
+   ansatz=Collect[nsfit * Flatten[Total@Table[Total@Table[ToExpression["f"<>ToString@i<>ToString@j] * S^j, {j,4}]*\[Eta]^i, {i,4}]], S];
+   ,
+   ansatz=Collect[nsfit + Flatten[Total@Table[Total@Table[ToExpression["f"<>ToString@i<>ToString@j] * S^j, {j,4}]*\[Eta]^i, {i,4}]], S];
+];
+
+(*If[Length@addgenansatz>0,ansatz=addgenansatz[[1]];];*)
+(*ansatzFinal=Table[AnsatzRestrictions[ansatzAll[[i,1]],ansatzAll[[i,2]],ansatzAll[[i,3]]],{i,Length@ansatzAll}];*)
+
+If[fitcase<=4,
+   Print["\[InvisibleSpace]using nsfit: ",  nsfit];
+   Print["\[InvisibleSpace]using q1fit: ",  q1fit];
+];
+
+If[Length@addgenansatz>0
+                       ,
+                       ansatzFinal=addgenansatz[[1]];
+                       Print[Style["Selecting ansatz from AddGenAnsatz",Blue]];
+                       ,
+If[OptionValue["RationalFunctions"],
+
+Print[];
+
+If[productAnsatz,
+  q1fitS0 = q1fit/(q1fit/. S-> 0);
+  ,
+  q1fitS0 = q1fit-(q1fit/. S-> 0);
+];
+q1fitS0 = Chop[q1fitS0]/.{1.->1};
+
+q1fitS0orderNum   = Exponent[Numerator[q1fitS0],S];
+q1fitS0orderDenom = Exponent[Denominator[q1fitS0],S];
+If[twoDSpinAnsatzOrderNum<0,   twoDSpinAnsatzOrderNum   = q1fitS0orderNum];
+If[twoDSpinAnsatzOrderDenom<0, twoDSpinAnsatzOrderDenom = q1fitS0orderDenom];
+If[(twoDSpinAnsatzOrderNum>q1fitS0orderNum)||(twoDSpinAnsatzOrderDenom>q1fitS0orderDenom),
+   spinAnsatzNum   = Numerator[q1fitS0]   + Sum[1.0*S^i,{i,q1fitS0orderNum+1,twoDSpinAnsatzOrderNum}];
+   spinAnsatzDenom = Denominator[q1fitS0] + Sum[1.0*S^i,{i,q1fitS0orderDenom+1,twoDSpinAnsatzOrderDenom}];
+   spinAnsatzToGeneralize = spinAnsatzNum/spinAnsatzDenom;
+   ,
+   spinAnsatzToGeneralize = q1fitS0;
+];
+
+spinAnsatz = GeneralizeFunction[spinAnsatzToGeneralize, "f", \[Eta], productGeneralizeOrderNum, productGeneralizeOrderDenom];
+Print["spinAnsatz before boundary conditions = ", spinAnsatz];
+
+(* spinAnsatzRaw = spinAnsatz /. InvertRules[SCoeffRules]; *)
+q1AnsatzRaw = q1fits[[q1fitindex,15]];
+If[productAnsatz,
+  q1AnsatzRawS0 = q1AnsatzRaw/(q1AnsatzRaw/.S->0);
+  ,
+  q1AnsatzRawS0 = q1AnsatzRaw-(q1AnsatzRaw/.S->0);
+];
+q1AnsatzRawS0 = Chop[q1AnsatzRawS0]/.{1.->1};
+If[(twoDSpinAnsatzOrderNum>q1fitS0orderNum)||(twoDSpinAnsatzOrderDenom>q1fitS0orderDenom),
+   spinAnsatzRawNum   = Numerator[q1AnsatzRawS0]   + Sum[1.0*S^i,{i,q1fitS0orderNum+1,twoDSpinAnsatzOrderNum}];
+   spinAnsatzRawDenom = Denominator[q1AnsatzRawS0] + Sum[1.0*S^i,{i,q1fitS0orderDenom+1,twoDSpinAnsatzOrderDenom}];
+   spinAnsatzRawToGeneralize = spinAnsatzRawNum/spinAnsatzRawDenom;
+   ,
+   spinAnsatzRawToGeneralize = q1AnsatzRawS0;
+];
+spinAnsatzRaw = GeneralizeFunction[spinAnsatzRawToGeneralize, "f", \[Eta], productGeneralizeOrderNum, productGeneralizeOrderDenom];
+
+numRestrictions   = AnsatzRestrictions[Numerator[q1fitS0],Numerator[spinAnsatz],"Parameters"->True];
+denomRestrictions = AnsatzRestrictions[Denominator[q1fitS0],Denominator[spinAnsatz],"Parameters"->True];
+
+num = Collect[Numerator[spinAnsatz]/.numRestrictions,{S,\[Eta]}];
+If[productGeneralizeMinPowerNum>0,
+   zeroRules = Flatten@Table[ToExpression["f"<>ToString@i<>ToString@j]->0,{i,0,Exponent[num,S]},{j,0,productGeneralizeMinPowerNum-1}];
+   Print["setting the following coefficients to zero:"];
+   Print[zeroRules];
+   num = num/.zeroRules;
+];
+
+denom    = Collect[Denominator[spinAnsatz]/.denomRestrictions,{S,\[Eta]}];
+spinpart = num/denom;
+Print["spinAnsatz after equal mass boundary conditions = ",spinpart];
+
+Print["applying user-set generalAnsatzRules:"];
+Print[generalAnsatzRules];
+
+If[productAnsatz,
+ ansatzFinal = (nsfit * spinpart) /. generalAnsatzRules;
+ (* \[Eta]0Ansatz =Limit[(spinAnsatz/\[Eta]), \[Eta]\[Rule] 0]//Chop//Simplify; *)
+ ansatzRaw   = nsfit * spinAnsatzRaw;
+ ,
+ ansatzFinal = (nsfit + spinpart) /. generalAnsatzRules;
+ (* \[Eta]0Ansatz =Limit[(spinpart/\[Eta]), \[Eta]\[Rule] 0]//Chop//Simplify; *)
+ ansatzRaw   = nsfit + spinAnsatzRaw;
+];
+
+Print[];
+(*              1           2             3           4        5          6          7            8               9 *)
+extraStuff = {ansatzRaw, etaAnsatz, etaCoeffRules, etaCovar, SAnsatz, SCoeffRules, SCovar, numRestrictions, denomRestrictions};
+
+,
+(* Constrain the ansatz to non spinning and q=1 cases *)
+(*ansatzFinal=AnsatzRestrictions[nsfit,q1fit,ansatz] /. generalAnsatzRules;*)
+ansatzFinal=AnsatzRestrictions[ nsfit,q1fit,ansatz];
+];
+];
+
+Print["\[InvisibleSpace]ansatzFinal: ", ansatzFinal];
+Print[];
+
+(*
+(* this is redundant and should only differ from 'v2' in uncertainty interval widths *)
+If[fitcase\[LessEqual]4,
+   Print[Style["eqS fit to all "<>ToString@Length@allData<>" data points:",Blue]];
+   alldataeqfit   = DataFitFunction[allData,         {{ansatzFinal,{\[Eta],S}}}, "PlotRange"\[Rule]{{0,0.25},{-1,1},All}, "Domain"\[Rule]{{0,0.25},{-1,1}},
+                                    "Verbose"\[Rule]2, "Weights"\[Rule]weights,"StatisticalTest"\[Rule]statisticaltest, "GetIntervals"\[Rule]getintervals];
+];
+*)
+Print[Style["eqS fit to all "<>ToString@Length@allDataUnconstr<>" data points without 1D regions:",Blue]];
+alldataeqfitv2    = DataFitFunction[allDataUnconstr, {{ansatzFinal,{\[Eta],S}}}, "PlotRange"->{{0,0.25},{-1,1},All}, "Domain"->{{0,0.25},{-1,1}},
+                                    "Verbose"->2, "Weights"->weights,"StatisticalTest"->statisticaltest, "GetIntervals"->getintervals];
+(*
+(* this is redundant and should only differ from 'v2' in uncertainty interval widths *)
+If[fitcase\[LessEqual]4,
+   Print[Style["eqS fit to "<>ToString@Length@allDataEqS<>" equal-spin data points:",Blue]];
+   eqdatafit      = DataFitFunction[allDataEqS,      {{ansatzFinal,{\[Eta],S}}}, "PlotRange"\[Rule]{{0,0.25},{-1,1},All}, "Domain"\[Rule]{{0,0.25},{-1,1}},
+                                   "Verbose"\[Rule]2, "Weights"\[Rule]weights,"StatisticalTest"\[Rule]statisticaltest, "GetIntervals"\[Rule]getintervals];
+];
+*)
+Print[Style["eqS fit to "<>ToString@Length@allDataEqSv2<>" equal-spin data points without 1D regions:",Blue]];
+eqdatafitv2       = DataFitFunction[allDataEqSv2,    {{ansatzFinal,{\[Eta],S}}}, "PlotRange"->{{0,0.25},{-1,1},All}, "Domain"->{{0,0.25},{-1,1}},
+                                    "Verbose"->2, "Weights"->weights,"StatisticalTest"->statisticaltest, "GetIntervals"->getintervals];
+
+(*                       2DeqS         2Dall       3D placeholders  1D2Dparts   1Deta   1DS    2DSansatz *)
+If[fitcase<=3, Return[{eqdatafitv2, alldataeqfitv2, {}, {}, {}, {}, extraStuff, nsfits, q1fits, spinpart}];];
+
+Print[Style["(fit to allData) - (fit to allDataEqS):",Blue]];
+Print[Plot3D[alldataeqfitv2[[1,1]]-eqdatafitv2[[1,1]],{\[Eta],0,0.25`},{S,-1,1},AxesLabel->{Style["\[Eta]",Black,14],Style["S",Black,14],Style["diff",14]}]];
+
+Clear[a0,a1,a2,a3,\[Chi]diff,q];
+(* Fit the spin difference terms *)
+Print["----------------"];
+Print[Style["{\[Eta],S,\[Chi]diff}",Blue]];
+
+mydq=0.005;
+tabfits=Table[
+ Print[Style["MassRatio -> ",Blue],q\[Eta][i]];
+ my\[Eta]=i;
+ thisq=q\[Eta][i];
+ If[ thisq < 2,
+     myd\[Eta] = Abs[0.0001+mydq (-2 thisq/(1+thisq)^3 + 1./(1+thisq)^2) ];,
+     myd\[Eta] = 0.001;
+ ]; 
+ Print["myd\[Eta] = ", myd\[Eta] ];
+ 
+ mysel       = Select[data,my\[Eta]-myd\[Eta]<#1[[1]]<my\[Eta]+myd\[Eta]&];
+ dataq1      = TakeColumn[mysel,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{xx,yy,eqdatafitv2[[1,1]]/. \[Eta]->my\[Eta]/. S->spinparameter[my\[Eta],xx,yy],ww};
+ avgwgthperq = Mean[dataq1[[All,-1]]];
+
+ If[fitcase>=5,
+    perqVerbosity = 0; (* for higher fit cases, still do the per-q analysis, but suppress the plots *)
+    ,
+    perqVerbosity = 1;
+    If[ListQ@tooltiptags,
+       dataq1pos      = Flatten[Position[data,#]&/@mysel];
+       tooltiptagsaux = tooltiptags[[dataq1pos]];
+      ];
+
+    If[0.25 -myd\[Eta]<my\[Eta]<0.25 +myd\[Eta],
+       dataq1Sym = dataq1/. {xx_?NumberQ,yy_,zz_,ww_}->{yy,xx,zz,ww};
+       dataq1    = Join[dataq1,dataq1Sym];
+      ];
+    plot1 = myListPlot3D[dataq1[[All,1;;3]], AxesLabel->{Style["\[Chi]1",14],Style["\[Chi]2",14],""}, PlotRange->{{-1,1},{-1,1},All}, PlotLabel->Style["data(\[Chi]1,\[Chi]2)",14], ImageSize->250];
+
+    dataq1 = TakeColumn[mysel,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{xx,yy,zz-(eqdatafitv2[[1,1]]/. \[Eta]->my\[Eta]/. S->spinparameter[my\[Eta],xx,yy]),ww};
+    If[0.25 -myd\[Eta]<my\[Eta]<0.25 +myd\[Eta],
+       dataq1Sym=dataq1/. {xx_?NumberQ,yy_,zz_,ww_}->{yy,xx,zz,ww};
+       dataq1=Join[dataq1,dataq1Sym];
+      ];
+    plot2 = myListPlot3D[dataq1[[All,1;;3]], AxesLabel->{Style["\[Chi]1",14],Style["\[Chi]2",14],""}, PlotRange->{{-1,1},{-1,1},All}, PlotLabel->Style["data(\[Chi]1,\[Chi]2) - fit(S)",14], ImageSize->250];
+
+    dataq1 = TakeColumn[mysel,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{spinparameter[my\[Eta],xx,yy],xx-yy,zz-(eqdatafitv2[[1,1]]/. \[Eta]->my\[Eta]/. S->spinparameter[my\[Eta],xx,yy]),ww};
+    If[0.25 -myd\[Eta]<my\[Eta]<0.25+myd\[Eta],
+       dataq1Sym=dataq1/. {xx_?NumberQ,yy_,zz_,ww_}->{xx,-yy,zz,ww};
+       dataq1=Join[dataq1,dataq1Sym];
+      ];
+    plot3 = myListPlot3D[dataq1[[All,1;;3]], PlotStyle->Directive[RGBColor[0.880722, 0.611041, 0.142051],Opacity[0.7]], Lighting->{{"Ambient",RGBColor[0.880722, 0.611041, 0.142051]}},
+                         AxesLabel->{Style["S",14],Style["\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)",14],""}, PlotRange->{{-1,1},{-2,2},All}, PlotLabel->Style["data(S,\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)) - fit(S)",14], ImageSize->250];
+ ];
+
+ Clear[a,b,c,\[Chi]1,\[Chi]2,\[Delta]\[Chi]];
+ dataq1a= TakeColumn[dataq1,{1,2,3}];  
+
+ dataq1 = TakeColumn[mysel,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{spindiffparameter[my\[Eta],xx,yy],zz-(eqdatafitv2[[1,1]]/. \[Eta]->my\[Eta]/. S->spinparameter[my\[Eta],xx,yy]),ww};
+ (*dataq1 = TakeColumn[mysel,{2,3,4,5}]/.\[VeryThinSpace]{xx_?NumberQ,yy_,zz_,ww_}\[Rule]{(xx-yy),zz-(eqdatafitv2[[1,1]]/.\[VeryThinSpace]\[Eta]\[Rule]my\[Eta]/.\[VeryThinSpace]S\[Rule]spinparameter[my\[Eta],xx,yy]),ww}*)
+
+
+ Print["data dimensionality: ",Length@dataq1];
+ If[0.25 -myd\[Eta]<my\[Eta]<0.25+myd\[Eta],
+    dataq1Sym      =  dataq1/. {xx_?NumberQ,zz_,ww_}->{-xx,zz,ww};
+    dataq1         = Join[dataq1,dataq1Sym];
+    If[perqVerbosity>0, tooltiptagsaux = Join[tooltiptagsaux,tooltiptagsaux];];
+    Print["data dimensionality (including symmetric duplicates): ",Length@dataq1];
+   ];
+
+ (*dataq1mixterm = TakeColumn[mysel,{2,3,4,5}]/.\[VeryThinSpace]{xx_?NumberQ,yy_,zz_,ww_}\[Rule]{xx-yy,spinparameter[my\[Eta],xx,yy]*(xx-yy),zz-(eqdatafitv2[[1,1]]/.\[VeryThinSpace]\[Eta]\[Rule]my\[Eta]/.\[VeryThinSpace]S\[Rule]spinparameter[my\[Eta],xx,yy]),ww};*)
+ dataq1mixterm = TakeColumn[mysel,{2,3,4,5}]/. {xx_?NumberQ,yy_,zz_,ww_}->{spindiffparameter[my\[Eta],xx,yy],spinparameter[my\[Eta],xx,yy]*spindiffparameter[my\[Eta],xx,yy],zz-(eqdatafitv2[[1,1]]/. \[Eta]->my\[Eta]/. S->spinparameter[my\[Eta],xx,yy]),ww};
+
+ myfit        = DataFitFunction[dataq1,        {{a \[Delta]\[Chi],       {\[Delta]\[Chi]}},   {a \[Delta]\[Chi] + b \[Delta]\[Chi]^2,{\[Delta]\[Chi]}}},        "Verbose"->perqVerbosity, "AxesTag"->"Amplitude",
+                                "StatisticalTest"->statisticaltest, "Sorted"->False, "Weights"->weights, "GetIntervals"->False];
+ myfitmixterm = DataFitFunction[dataq1mixterm, {{a \[Delta]\[Chi] + c y, {\[Delta]\[Chi],y}}, {a \[Delta]\[Chi] + c y +b \[Delta]\[Chi]^2,{\[Delta]\[Chi],y}}}, "Verbose"->perqVerbosity, "AxesTag"->"Amplitude",
+                                "StatisticalTest"->statisticaltest, "Sorted"->False, "Weights"->weights, "GetIntervals"->False];
+
+ myfit = Join[myfit,myfitmixterm,{avgwgthperq}];
+ (* do NOT show mix-term fits here, as they tend to blow the scale, and are only projected down anyway *)
+ (* plot4=Show[Plot[{myfit[[1,1]],myfit[[2,1]]},{\[Delta]\[Chi],-0.1,0.1},PlotRange\[Rule]All,ImageSize\[Rule]250,
+                   Frame\[Rule]True,FrameLabel\[Rule]{"Subscript[\[Chi], diff]","\[CapitalDelta](Subscript[\[Chi], diff])"},PlotLegends\[Rule]{"linear","lin+quad"}],
+            ListPlot[Table[Tooltip[dataq1[[i,1;;2]],If[ListQ@tooltiptags,tooltiptagsaux[[i]],ToString[{dataq1[[i,1]],dataq1[[i,2]]}]]],{i,Length@dataq1}],PlotStyle\[Rule]PointSize[Medium],PlotRange\[Rule]All,Frame->True]];
+ *)
+
+    dataq1a= Transpose[{dataq1a[[All,1]],dataq1a[[All,2]],dataq1a[[All,3]]-(myfit[[1,1]]/.\[Delta]\[Chi]->dataq1[[All,1]])}];
+    plot3a = myListPlot3D[dataq1a, PlotStyle->Directive[RGBColor[0.880722, 0.611041, 0.142051],Opacity[0.7]], Lighting->{{"Ambient",RGBColor[0.880722, 0.611041, 0.142051]}},
+                         AxesLabel->{Style["S",14],Style["\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)",14],""}, PlotRange->{{-1,1},{-2,2},All}, PlotLabel->Style["data(S,\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)) - (fit(S) + f(\[Eta])\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\))",14], ImageSize->250];
+
+ If[fitcase==4,
+    plot4a = ListPlot[Table[Tooltip[dataq1[[i,1;;2]],If[ListQ@tooltiptags,tooltiptagsaux[[i]],ToString[{dataq1[[i,1]],dataq1[[i,2]]}]]],{i,Length@dataq1}],
+                      PlotStyle->PointSize[Medium], PlotRange->{{-2.,2.},All}, PlotLegends->{"NR data"}];
+    plot4b = Plot[{myfit[[1,1]],myfit[[2,1]]},{\[Delta]\[Chi],-2.,2.}, PlotLegends->{"linear","lin+quad"}, PlotRange->{{-2.,2.},All}];
+    If[0.25 -myd\[Eta]<my\[Eta]<0.25+myd\[Eta],
+       plot4mirror = ListPlot[Table[{dataq1[[i,1]],dataq1[[i,2]]},{i,Length@dataq1}], PlotStyle->{Gray,PointSize[Medium]}, PlotMarkers->\!\(\*
+StyleBox["\"\<\[FilledSquare]\>\"",
+StripOnInput->False,
+FontSize->8]\), PlotLegends->{"mirror NR data"}];
+       plot4 = Show[{plot4b,plot4a}, Frame->True, FrameLabel->{"\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)","\[CapitalDelta](\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\))"}, ImageSize->250];
+       ,
+       plot4 = Show[{plot4b,plot4a}, Frame->True, FrameLabel->{"\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\)","\[CapitalDelta](\!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\))"}, ImageSize->250];
+    ];
+    Print[{plot1,plot2,plot3,plot3a,plot4}];
+ ];
+
+ myfit, {i,massratiounequalfits}]; (* this line finishes the tabfits list *)
+
+(*Print[tabfits[[All,-1]]];*)
+
+Print["-----------"];
+Print[Style["\[Eta] dependence of \!\(\*SubscriptBox[\(\[Chi]\), \(diff\)]\) terms",Blue]];
+
+extrawght=Join[tabfits[[All,-1]],{1.}];
+
+If[fastanalysis,
+
+If[Length@addspindifflinansatz>0,
+                       ansatzchidifflinear = addspindifflinansatz[[1,1]];
+                       ,
+                       ansatzchidifflinear = (ToExpression["a10"] \[Eta]^Abs[ToExpression["a11"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a12"]] ) /. spindifferencerules;
+];
+
+If[Length@addspindiffquadansatz>0,
+                       ansatzchidiffquadratic = addspindiffquadansatz[[1,1]];
+                       ,
+                       ansatzchidiffquadratic = ((ToExpression["a20"] \[Eta]^Abs[ToExpression["a21"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a22"]] )) /. spindifferencerules;
+];
+ansatzFinal\[Delta]\[Chi]2   = (ansatzFinal /. S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]) +  ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2;
+
+If[Length@addspindiffmixansatz>0,
+                       ansatzchidiffmix = addspindiffmixansatz[[1,1]];
+                       ,
+                       ansatzchidiffmix = ((ToExpression["a30"] \[Eta]^Abs[ToExpression["a31"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a32"]] )) /. spindifferencerules;
+];
+
+ansatzS\[Delta]\[Chi]\[Chi]2raw   = ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffmix S spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2;  (* needed to extract the coefficients later on *)
+ansatzFinalS\[Delta]\[Chi]\[Chi]2 = ( ansatzFinal + ansatzS\[Delta]\[Chi]\[Chi]2raw )/.S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]; (* this is the form passed to DataFitFunction[] *)
+
+Print[Style["full 3D fit to all "<>ToString@Length@dataunconstr<>" data points without 1D regions... (see results at the end after plots)",Blue]];
+
+uneqfit2 = DataFitFunction[dataunconstr, {{ansatzFinalS\[Delta]\[Chi]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}}},
+                           "Verbose"->0, "AxesTag"->"Amplitude", "StatisticalTest"->statisticaltest, "Sorted"->False, "Weights"->weights, "GetIntervals"->getintervals];
+
+
+Print["Done"];
+Return[{uneqfit2 ,extraStuff, nsfits, q1fits, spinpart}];
+
+,
+
+linearparerr=Flatten@TakeColumn[tabfits,1][[All,9,1]];
+linearparerr=Join[linearparerr,{10^-9}];
+linearpar=Transpose[{Join[massratiounequalfits,{0}],Join[a/.TakeColumn[tabfits,1][[All,2]],{0}],extrawght/linearparerr^2}];
+linearpar[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+linearparerr[[1]]={10^-9};
+
+linearpar2err=Flatten@TakeColumn[tabfits,2][[All,9,1]];
+linearpar2err=Join[linearpar2err,{10^-9}];
+linearpar2=Transpose[{Join[massratiounequalfits,{0}],Join[a/.TakeColumn[tabfits,2][[All,2]],{0}],extrawght/linearpar2err^2}];
+linearpar2[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+linearpar2err[[1]]={10^-9};
+
+quadparerr=Flatten@TakeColumn[tabfits,2][[All,9,2]];
+quadparerr=Join[quadparerr,{10^-9}];
+quadpar=Transpose[{Join[massratiounequalfits,{0}],Join[b/.TakeColumn[tabfits,2][[All,2]],{0}],extrawght/quadparerr^2}];
+
+linearpar3err=Flatten@TakeColumn[tabfits,3][[All,9,1]];
+linearpar3err=Join[linearpar3err,{10^-9}];
+linearpar3=Transpose[{Join[massratiounequalfits,{0}],Join[a/.TakeColumn[tabfits,3][[All,2]],{0}],extrawght/linearpar2err^2}];
+linearpar3[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+linearpar3err[[1]]={10^-9};
+
+mixparerr=Flatten@TakeColumn[tabfits,3][[All,9,2]];
+mixparerr=Join[mixparerr,{10^-9}];
+mixpar=Transpose[{Join[massratiounequalfits,{0}],Join[c/.TakeColumn[tabfits,3][[All,2]],{0}],extrawght/mixparerr^2}];
+mixpar[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+mixparerr[[1]]={10^-9};
+
+linearpar4err=Flatten@TakeColumn[tabfits,4][[All,9,1]];
+linearpar4err=Join[linearpar4err,{10^-9}];
+linearpar4=Transpose[{Join[massratiounequalfits,{0}],Join[a/.TakeColumn[tabfits,4][[All,2]],{0}],extrawght/linearpar4err^2}];
+linearpar4[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+linearpar4err[[1]]={10^-9};
+
+mixparerr2=Flatten@TakeColumn[tabfits,4][[All,9,2]];
+mixparerr2=Join[mixparerr2,{10^-9}];
+mixpar2=Transpose[{Join[massratiounequalfits,{0}],Join[c/.TakeColumn[tabfits,4][[All,2]],{0}],extrawght/mixparerr2^2}];
+mixpar2[[1]]={0.25,0,extrawght[[1]]/(10^(-9))^2};
+mixparerr2[[1]]={10^-9};
+
+quadparerr2=Flatten@TakeColumn[tabfits,4][[All,9,2]];
+quadparerr2=Join[quadparerr2,{10^-9}];
+quadpar2=Transpose[{Join[massratiounequalfits,{0}],Join[b/.TakeColumn[tabfits,4][[All,2]],{0}],extrawght/quadparerr2^2}];
+
+(*ansatz\[Eta]1=a0 \[Eta]^Abs[a1] N[1-4 \[Eta]]^0.7;*)
+(*ansatz\[Eta]1=a0 \[Eta]^Abs[a1] N[1-4 \[Eta]]^Abs[a2];*)
+(*ansatz\[Eta]1=a0 \[Eta] N[1-4 \[Eta]]^Abs[a2];*)
+
+If[Length@addspindifflinansatz>0,
+                       ansatzchidifflinear = addspindifflinansatz[[1,1]];
+                       ,
+                       ansatzchidifflinear = (ToExpression["a10"] \[Eta]^Abs[ToExpression["a11"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a12"]] ) /. spindifferencerules;
+];
+(*ansatzFinal\[Delta]\[Chi]=(ansatzFinal/. S\[Rule] spinparameter[\[Eta],\[Chi]1,\[Chi]2])+ansatzchidifflinear  (\[Chi]1-\[Chi]2);*)
+
+
+ansatzFinal\[Delta]\[Chi]    = (ansatzFinal /. S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]) + ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2];
+
+If[Length@addspindiffquadansatz>0,
+                       ansatzchidiffquadratic = addspindiffquadansatz[[1,1]];
+                       ,
+                       ansatzchidiffquadratic = ((ToExpression["a20"] \[Eta]^Abs[ToExpression["a21"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a22"]] )) /. spindifferencerules;
+];
+ansatzFinal\[Delta]\[Chi]2   = (ansatzFinal /. S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]) +  ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2;
+
+If[Length@addspindiffmixansatz>0,
+                       ansatzchidiffmix = addspindiffmixansatz[[1,1]];
+                       ,
+                       ansatzchidiffmix = ((ToExpression["a30"] \[Eta]^Abs[ToExpression["a31"]] Sqrt[1-4 \[Eta]]^Abs[ToExpression["a32"]] )) /. spindifferencerules;
+];
+ansatzS\[Delta]\[Chi]raw     = ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffmix S spindiffparameter[\[Eta],\[Chi]1,\[Chi]2];  (* needed to extract the coefficients later on *)
+ansatzFinalS\[Delta]\[Chi]   = ( ansatzFinal + ansatzS\[Delta]\[Chi]raw ) /. S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]; (* this is the form passed to DataFitFunction[] *)
+
+ansatzS\[Delta]\[Chi]\[Chi]2raw   = ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffmix S spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2;  (* needed to extract the coefficients later on *)
+ansatzFinalS\[Delta]\[Chi]\[Chi]2 = ( ansatzFinal + ansatzS\[Delta]\[Chi]\[Chi]2raw ) /. S->spinparameter[\[Eta],\[Chi]1,\[Chi]2]; (* this is the form passed to DataFitFunction[] *)
+
+Print["Fitting ansaetze to per-q slopes, linear only:"];
+linearfit1 = DataFitFunction[linearpar,  {{ansatzchidifflinear,{\[Eta]}}},    "Verbose"->1, "Weights"->weights];
+Print["linear+quadratic:"];
+linearfit2 = DataFitFunction[linearpar2, {{ansatzchidifflinear,{\[Eta]}}},    "Verbose"->1, "Weights"->weights];
+quadfit    = DataFitFunction[quadpar,    {{ansatzchidiffquadratic,{\[Eta]}}}, "Verbose"->1, "Weights"->weights];
+Print["linear+mixture:"];
+linearfit3 = DataFitFunction[linearpar3, {{ansatzchidifflinear,{\[Eta]}}},    "Verbose"->1, "Weights"->weights];
+mixfit     = DataFitFunction[mixpar,     {{ansatzchidiffmix,{\[Eta]}}},       "Verbose"->1, "Weights"->weights];
+Print["linear+mixture+quadratic:"];
+linearfit4 = DataFitFunction[linearpar4, {{ansatzchidifflinear,{\[Eta]}}},    "Verbose"->1, "Weights"->weights];
+mixfit2    = DataFitFunction[mixpar2,    {{ansatzchidiffmix,{\[Eta]}}},       "Verbose"->1, "Weights"->weights];
+quadfit2   = DataFitFunction[quadpar2,   {{ansatzchidiffquadratic,{\[Eta]}}}, "Verbose"->1, "Weights"->weights];
+
+Clear[a10,a11,a12,a20,a21,a22,a30,a31,a32,a1,a2,a0];
+
+(*If[Length@addgenansatz>0,ansatz=addgenansatz[[1]];];*)
+(*ansatzFinal=Table[AnsatzRestrictions[ansatzAll[[i,1]],ansatzAll[[i,2]],ansatzAll[[i,3]]],{i,Length@ansatzAll}];*)
+
+(* this will only differ from uneqfit2 in the width of the error bars, not in the results, and is not needed anymore, but let's keep it here commented-out to have it handy for sanity checks *)
+(*
+Print[Style["full 3D fit to all "<>ToString@Length@data<>" data points...",Blue]];
+uneqfit  = DataFitFunction[data,         {{ansatzFinal\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinal\[Delta]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}}},
+                           "Verbose"\[Rule]0, "AxesTag"\[Rule]"Amplitude", "StatisticalTest"\[Rule]statisticaltest, "Sorted"\[Rule]False, "Weights"\[Rule] weights, "GetIntervals"\[Rule]getintervals];
+*)
+
+Print[Style["full 3D fit to all "<>ToString@Length@dataunconstr<>" data points without 1D regions... (see results at the end after plots)",Blue]];
+uneqfit2 = DataFitFunction[dataunconstr, {{ansatzFinal\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinal\[Delta]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}}},
+                           "Verbose"->0, "AxesTag"->"Amplitude", "StatisticalTest"->statisticaltest, "Sorted"->False, "Weights"->weights, "GetIntervals"->getintervals];
+
+
+Print[Style["spin-diff fit to "<>ToString@Length@datauneqs<>" unequal-spin data points...",Blue]];
+uneqfit3 = DataFitFunction[TakeColumn[datauneqs,{1,2,3,4,5}]/. {\[Eta]\[Eta]_,c1_,c2_,res_,ww_}->{\[Eta]\[Eta],c1,c2,res-(eqdatafitv2[[1,1]]/. \[Eta]->\[Eta]\[Eta]/. S->spinparameter[\[Eta]\[Eta],c1,c2]),ww},
+                           {{ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2], {\[Eta],\[Chi]1,\[Chi]2}},
+                            {ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2, {\[Eta],\[Chi]1,\[Chi]2}},
+                            {ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffmix spinparameter[\[Eta],\[Chi]1,\[Chi]2] spindiffparameter[\[Eta],\[Chi]1,\[Chi]2], {\[Eta],\[Chi]1,\[Chi]2}},
+                            {ansatzchidifflinear spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffmix spinparameter[\[Eta],\[Chi]1,\[Chi]2] spindiffparameter[\[Eta],\[Chi]1,\[Chi]2] + ansatzchidiffquadratic spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]^2, {\[Eta],\[Chi]1,\[Chi]2}}},
+                           "Verbose"->1, "AxesTag"->"Amplitude", "StatisticalTest"->statisticaltest, "Sorted"->False, "Weights"->weights, "GetIntervals"->getintervals];
+
+(*
+Print[Style["full 3D fit to "<>ToString@Length@datauneqs<>" unequal-spin data points...",Blue]];
+uneqfit3 = DataFitFunction[datauneqs,    {{ansatzFinal\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinal\[Delta]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi],{\[Eta],\[Chi]1,\[Chi]2}},{ansatzFinalS\[Delta]\[Chi]\[Chi]2,{\[Eta],\[Chi]1,\[Chi]2}}},
+                        "Verbose"\[Rule]0, "AxesTag"\[Rule]"Amplitude", "StatisticalTest"\[Rule]statisticaltest, "Sorted"\[Rule]False, "Weights"\[Rule] weights, "GetIntervals"\[Rule]getintervals];
+*)
+
+(* eta-dependence for direct 3D fit over all non-1D data *)
+spindiffterm   = CoefficientList[uneqfit2[[1,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+spindiffterm21 = CoefficientList[uneqfit2[[2,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+spindiffterm22 = CoefficientList[uneqfit2[[2,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[3]];
+spindiffterm31 = CoefficientList[ansatzS\[Delta]\[Chi]raw/.uneqfit2[[3,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+spindiffterm32 = CoefficientList[ansatzS\[Delta]\[Chi]raw/.uneqfit2[[3,2]]/.S*spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->y,y][[2]];
+spindiffterm41 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit2[[4,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+spindiffterm42 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit2[[4,2]]/.S spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->y,y][[2]];
+spindiffterm43 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit2[[4,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[3]];
+
+(* eta-dependence for residuals-only spin-diff fit over all uneqS data *)
+dfitspindiffterm   = CoefficientList[uneqfit3[[1,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+dfitspindiffterm21 = CoefficientList[uneqfit3[[2,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+dfitspindiffterm22 = CoefficientList[uneqfit3[[2,1]]/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[3]];
+dfitspindiffterm31 = CoefficientList[ansatzS\[Delta]\[Chi]raw/.uneqfit3[[3,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+dfitspindiffterm32 = CoefficientList[ansatzS\[Delta]\[Chi]raw/.uneqfit3[[3,2]]/.S*spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->y,y][[2]];
+dfitspindiffterm41 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit3[[4,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[2]];
+dfitspindiffterm42 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit3[[4,2]]/.S spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->y,y][[2]];
+dfitspindiffterm43 = CoefficientList[ansatzS\[Delta]\[Chi]\[Chi]2raw/.uneqfit3[[4,2]]/.S->0/.spindiffparameter[\[Eta],\[Chi]1,\[Chi]2]->\[Chi]diff,\[Chi]diff][[3]];
+
+lplot=Show[{Plot[{spindiffterm,dfitspindiffterm,linearfit1[[1,1]]}, {\[Eta],0,0.25}, PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+            ErrorListPlot[Table[{linearpar[[i,1;;2]], ErrorBar[1/Sqrt[linearpar[[i,-1]]]]}, {i,Length@linearparerr}], PlotStyle->Red],
+            ErrorListPlot[Table[{linearpar[[i,1;;2]], ErrorBar[linearparerr[[i]]]}, {i,Length@linearparerr}], PlotLegends->{"per-q fit results"}]},
+            PlotRange->{{0,0.25},{Min@linearpar[[All,2]]-0.001,Max@linearpar[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])",14]}, PlotLabel->{"linear fit, \!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])="{ansatzchidifflinear}}];
+
+lqplotl=Show[{Plot[{spindiffterm21,dfitspindiffterm21,linearfit2[[1,1]]}, {\[Eta],0,0.25}, PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+              ErrorListPlot[Table[{linearpar2[[i,1;;2]], ErrorBar[1/Sqrt[linearpar2[[i,-1]]]]}, {i,Length@linearpar2err}], PlotStyle->Red],
+              ErrorListPlot[Table[{linearpar2[[i,1;;2]], ErrorBar[linearpar2err[[i]]]}, {i,Length@linearpar2err}], PlotLegends->{"per-q fit results"}]},
+             PlotRange->{{0,0.25},{Min@linearpar2[[All,2]]-0.001,Max@linearpar2[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])",14]}, PlotLabel->{"lin+quad fit, lin term, \!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])="{ansatzchidifflinear}}];
+
+lqplotq=Show[{Plot[{spindiffterm22,dfitspindiffterm22,quadfit[[1,1]]}, {\[Eta],0,0.25}, PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+              ErrorListPlot[Table[{quadpar[[i,1;;2]],ErrorBar[1/Sqrt[quadpar[[i,-1]]]]},{i,Length@quadparerr}], PlotStyle->Red],
+              ErrorListPlot[Table[{quadpar[[i,1;;2]],ErrorBar[quadparerr[[i]]]},{i,Length@quadparerr}], PlotLegends->{"per-q fit results"}]},
+             PlotRange->{{0,0.25},{Min@quadpar[[All,2]]-0.001,Max@quadpar[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(b\)]\)(\[Eta])",14]}, PlotLabel->{"lin+quad fit, quad term, \!\(\*SubscriptBox[\(f\), \(b\)]\)(\[Eta])="{ansatzchidiffquadratic}}];
+
+lmplotl=Show[{Plot[{spindiffterm31,dfitspindiffterm31,linearfit3[[1,1]]},{\[Eta],0,0.25},PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+              ErrorListPlot[Table[{linearpar3[[i,1;;2]],ErrorBar[1/Sqrt[linearpar3[[i,-1]]]]},{i,Length@linearpar3err}], PlotStyle->Red],
+              ErrorListPlot[Table[{linearpar3[[i,1;;2]],ErrorBar[linearpar3err[[i]]]},{i,Length@linearpar3err}], PlotLegends->{"per-q fit results"}]},
+             PlotRange->{{0,0.25},{Min@linearpar3[[All,2]]-0.001,Max@linearpar3[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])",14]}, PlotLabel->{"lin+mix fit, lin term, \!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])="{ansatzchidifflinear}}];
+
+lmplotm=Show[{Plot[{spindiffterm32,dfitspindiffterm32,mixfit[[1,1]]},{\[Eta],0,0.25},PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+              ErrorListPlot[Table[{mixpar[[i,1;;2]],ErrorBar[1/Sqrt[mixpar[[i,-1]]]]},{i,Length@mixparerr}], PlotStyle->Red],
+              ErrorListPlot[Table[{mixpar[[i,1;;2]],ErrorBar[mixparerr[[i]]]},{i,Length@mixparerr}], PlotLegends->{"per-q fit results"}]},
+             PlotRange->{{0,0.25},{Min@mixpar[[All,2]]-0.001,Max@mixpar[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(c\)]\)(\[Eta])",14]}, PlotLabel->{"lin+mix fit, mix term, \!\(\*SubscriptBox[\(f\), \(c\)]\)(\[Eta])="{ansatzchidiffmix}}];
+
+
+lmqplotl=Show[{Plot[{spindiffterm41,dfitspindiffterm41,linearfit4[[1,1]]},{\[Eta],0,0.25},PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+               ErrorListPlot[Table[{linearpar4[[i,1;;2]],ErrorBar[1/Sqrt[linearpar4[[i,-1]]]]},{i,Length@linearpar4err}], PlotStyle->Red],
+               ErrorListPlot[Table[{linearpar4[[i,1;;2]],ErrorBar[linearpar4err[[i]]]},{i,Length@linearpar4err}], PlotLegends->{"per-q fit results"}]},
+              PlotRange->{{0,0.25},{Min@linearpar4[[All,2]]-0.001,Max@linearpar4[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])",14]}, PlotLabel->{"lin+mix+quad fit, lin term, \!\(\*SubscriptBox[\(f\), \(a\)]\)(\[Eta])="{ansatzchidifflinear}}];
+
+lmqplotq=Show[{Plot[{spindiffterm43,dfitspindiffterm43,quadfit2[[1,1]]},{\[Eta],0,0.25},PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+               ErrorListPlot[Table[{quadpar2[[i,1;;2]],ErrorBar[1/Sqrt[quadpar2[[i,-1]]]]},{i,Length@quadparerr2}], PlotStyle->Red],  
+               ErrorListPlot[Table[{quadpar2[[i,1;;2]],ErrorBar[quadparerr2[[i]]]},{i,Length@quadparerr2}], PlotLegends->{"per-q fit results"}]},
+              PlotRange->{{0,0.25},{Min@quadpar2[[All,2]]-0.001,Max@quadpar2[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(b\)]\)(\[Eta])",14]}, PlotLabel->{"lin+mix+quad fit, quad term, \!\(\*SubscriptBox[\(f\), \(b\)]\)(\[Eta])="{ansatzchidiffquadratic}}];
+
+lmqplotm=Show[{Plot[{spindiffterm42,dfitspindiffterm42,mixfit2[[1,1]]},{\[Eta],0,0.25},PlotLegends->{"direct 3D fit","fit to residuals","per-q res. fits"}, PlotStyle->{{Orange},{Magenta,Dotted},{Blue,Dashed}}],
+               ErrorListPlot[Table[{mixpar2[[i,1;;2]],ErrorBar[1/Sqrt[mixpar2[[i,-1]]]]},{i,Length@mixparerr2}], PlotStyle->Red], 
+               ErrorListPlot[Table[{mixpar2[[i,1;;2]],ErrorBar[mixparerr2[[i]]]},{i,Length@mixparerr2}], PlotLegends->{"per-q fit results"}]},
+              PlotRange->{{0,0.25},{Min@mixpar2[[All,2]]-0.001,Max@mixpar2[[All,2]]+0.001}}, ImageSize->330, Frame->True, FrameLabel->{Style["\[Eta]",14],Style["\!\(\*SubscriptBox[\(f\), \(c\)]\)(\[Eta])",14]}, PlotLabel->{"lin+mix+quad fit, mix term, \!\(\*SubscriptBox[\(f\), \(c\)]\)(\[Eta])="{ansatzchidifflinear}}];
+
+Print[{lplot,lqplotl}]
+Print[{lmplotl,lmqplotl}];
+Print[{lqplotq,lmqplotq,Show[lmqplotq,PlotRange->{{0.0,0.25},Automatic}]}];
+Print[{lmplotm,lmqplotm,Show[lmqplotm,PlotRange->{{0.0,0.25},Automatic}]}];
+
+(* rewrite fit and ansatz output in terms of (\[Eta],S.\[Chi]1,\[Chi]2) and not as the expanded (\[Eta],\[Chi]1,\[Chi]2) version processed by DataFitFunction *)
+uneqfit2[[1,1]]  = ( ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) )/.uneqfit2[[1,2]];
+uneqfit2[[1,15]] =   ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2);
+uneqfit2[[2,1]]  = ( ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffquadratic (\[Chi]1-\[Chi]2)^2 )/.uneqfit2[[2,2]];
+uneqfit2[[2,15]] =   ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffquadratic (\[Chi]1-\[Chi]2)^2;
+uneqfit2[[3,1]]  = ( ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffmix S (\[Chi]1-\[Chi]2) )/.uneqfit2[[3,2]];
+uneqfit2[[3,15]] =   ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffmix S (\[Chi]1-\[Chi]2);
+uneqfit2[[4,1]]  = ( ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffmix S (\[Chi]1-\[Chi]2) + ansatzchidiffquadratic (\[Chi]1-\[Chi]2)^2 )/.uneqfit2[[4,2]];
+uneqfit2[[4,15]] =   ansatzFinal + ansatzchidifflinear (\[Chi]1-\[Chi]2) + ansatzchidiffmix S (\[Chi]1-\[Chi]2) + ansatzchidiffquadratic (\[Chi]1-\[Chi]2)^2;
+
+Print[Style["total fit (linear in spindiff) to all data:",Blue]];
+Print[uneqfit2[[1,1;;8]]];
+Print[Style["total fit (linear+ quadratic in spindiff) to all data:",Blue]];
+Print[uneqfit2[[2,1;;8]]];
+Print[Style["total fit (linear in spindiff + spineff*spindiff) to all data:",Blue]];
+Print[uneqfit2[[3,1;;8]]];
+Print[Style["total fit (linear+quadratic in spindiff + spineff*spindiff) to all data:",Blue]];
+Print[uneqfit2[[4,1;;8]]];
+
+Print[Style["----------------", Blue]];
+(*          2DeqS        2Dall            3Dlin             3Dlinquad          3Dlinmix      3Dlinquadmix      1D2Dparts   1Deta   1DS   2DSansatz *)
+Return[{eqdatafitv2, alldataeqfitv2, uneqfit2[[1;;1]], uneqfit2[[2;;2]], uneqfit2[[3;;3]], uneqfit2[[4;;4]], extraStuff, nsfits, q1fits, spinpart}];];
+]
+
+
+AnsatzRestrictions[q1fit_,ansatzGen_,var_,varval_,OptionsPattern[{"Parameters"->False}]]:=Module[{ansatz,nsdegree,q1degree,expans,coeffs1,coeffs2,q1var,coeff\[Eta],expns,coeffS,sys,
+coeffs,solveVars,solNS,ansatzS,solq1,ansatzFinal,parameters},
+
+parameters=OptionValue["Parameters"];
+
+ansatz=ansatzGen;
+q1var=Variables[q1fit][[1]];
+
+expans= Exponent[ansatz,q1var];
+expns = Exponent[q1fit, q1var];
+
+coeffs1= CoefficientList[Collect[ansatz,S],q1var];
+solveVars= CoefficientList[#,var]&/@ coeffs1;
+solveVars = Last/@\[NonBreakingSpace]Select[solveVars, Length@# > 0 &];
+
+solveVars =Select[AtomsList[solveVars],!NumberQ[#1]&];
+Print["solveVars: ", solveVars];
+
+Print["q1fit: ", q1fit];
+coeffs1=Select[CoefficientList[Collect[ansatz,S],q1var]/. var->varval,Not@NumberQ@#&];
+coeffs2 = Drop[CoefficientList[q1fit,q1var],1]; (* this won't always work *)
+
+(*
+Print["coeffs1: ", coeffs1];
+Print["coeffs2: ", coeffs2];
+*)
+sys=Table[coeffs1[[i]]==coeffs2[[i]],{i,Min[Length@coeffs1,Length@coeffs2]}];
+(*
+Print["sys: ",sys];
+*)
+
+coeffs=Drop[Select[AtomsList[ansatz/.var-> varval],!NumberQ[#1]&],-1];
+(*
+Print["coeffs:", coeffs[[1;;Min[expans+1,expns+1]]]];
+*)
+solq1=Simplify@First[Solve[sys,solveVars]];
+ansatzFinal=ansatz/. solq1;
+
+Print["Applying q=1 restriction : ",solq1 ];
+(*Print["Applying q=1 restriction : ",solq1//TableForm ];*)
+
+If[parameters,solq1,ansatzFinal]
+];
+
+
+AnsatzRestrictions[q1fit_,ansatzGen_,OptionsPattern[{"Parameters"->False}]]:=Module[{ansatz,nsdegree,q1degree,expans,coeffs1,coeffs2,q1var,coeff\[Eta],expns,coeffS,sys,coeffs,solveVars,
+solNS,ansatzS,solq1,ansatzFinal,parameters},
+
+parameters=OptionValue["Parameters"];
+
+ansatz=ansatzGen;
+q1var=Variables[q1fit][[1]];
+
+expans= Exponent[ansatz,q1var];
+expns = Exponent[q1fit, q1var];
+
+coeffs1= CoefficientList[Collect[ansatz,S],q1var];
+solveVars= CoefficientList[#,\[Eta]]&/@ coeffs1;
+solveVars = Last/@\[NonBreakingSpace]Select[solveVars, Length@# > 0 &];
+
+solveVars =Select[AtomsList[solveVars],!NumberQ[#1]&];
+Print["solveVars: ", solveVars];
+
+Print["q1fit: ", q1fit];
+
+coeffs1 = Select[CoefficientList[Collect[ansatz,S],q1var],Not@NumberQ@#&]/. \[Eta]->0.25;
+(* coeffs2 = Take[CoefficientList[q1fit,q1var],-Length@coeffs1] (* won't always work *); *)
+coeffs2 = Coefficient[q1fit,q1var^Sort@Select[Exponent[MonomialList[ansatz,q1var],q1var],#>0& ] ]; (* this should work more generally, unless maybe for non-exact S-independent constant coefficients...? *)
+Print["coeffs1: ", coeffs1];
+Print["coeffs2: ", coeffs2];
+
+sys=Table[coeffs1[[i]]==coeffs2[[i]],{i,Min[Length@coeffs1,Length@coeffs2]}];
+
+Print["sys: ",sys];
+
+
+coeffs=Drop[Select[AtomsList[ansatz/. \[Eta]->0.25],!NumberQ[#1]&],-1];
+(*
+Print["coeffs:", coeffs[[1;;Min[expans+1,expns+1]]]];
+*)
+solq1=Simplify@First[Solve[sys,solveVars]];
+ansatzFinal=ansatz/. solq1;
+
+Print["Applying q=1 restriction : ",solq1//TableForm ];
+
+If[parameters,solq1,ansatzFinal]
+];
+
+
+AnsatzRestrictions[nsfit_,q1fit_,ansatzGen_,OptionsPattern[{"Parameters"->False}]]:=Module[{ansatz,nsdegree,q1degree,expans,expns,nsvar,q1var,coeff\[Eta],coeffS,sys,coeffs,solNS,ansatzS,
+solq1,ansatzFinal,parameters},
+
+parameters=OptionValue["Parameters"];
+
+ansatz=ansatzGen;
+nsvar=Variables[nsfit][[1]];
+q1var=Variables[q1fit][[1]];
+
+Print["nsvar: ", nsvar];
+Print["q1var: ", q1var];
+
+expans= Exponent[ansatz,nsvar];
+expns = Exponent[nsfit, nsvar];
+
+Print["expans: ", expans];
+Print["expns: ", expns];
+
+sys=Table[CoefficientList[Collect[ansatz/. q1var->0,nsvar],nsvar][[i]]==CoefficientList[nsfit,nsvar][[i]],{i,Min[expans+1,expns+1]}];
+
+Print["sys: ",sys];
+
+If[Length@Select[sys,Not@TrueQ]==0,
+  ansatzS=ansatz,
+  Print[Style["Something is wrong with the restrictions",Red]]
+];
+
+Print["Applying non-spinning restriction : ", ansatz//TableForm ];
+
+expans= Exponent[ansatz,q1var];
+expns = Exponent[q1fit, q1var];
+
+Print["expans: ", expans];
+Print["expns: ", expns];
+
+
+sys=Table[CoefficientList[Collect[ansatzS/. nsvar->0.25,S],q1var][[i]]==CoefficientList[q1fit,q1var][[i]],{i,Min[expans+1,expns+1]}];
+
+Print["sys: ",sys];
+
+
+coeffs=Drop[Select[AtomsList[ansatzS/. nsvar->0.25],!NumberQ[#1]&],-1];
+
+
+Print["coeffs: ",coeffs];
+
+solq1=First[Solve[sys,coeffs[[1;;Min[expans+1,expns+1]]]]];
+ansatzFinal=ansatzS/. solq1;
+
+Print["Applying q=1 restriction : ",solq1//TableForm ];
+
+If[parameters,solq1,ansatzFinal]
+];
+
+
+Plot2DFits[data_?ListQ,fitlist_?ListQ,fitvars_?ListQ,OptionsPattern[{"PlotRange"->Automatic,"ShowLegend"->True,"zLabel"->"","ToolTipTags"->"","Outliers"->0.005}]]:=Module[{myfitlist,fitdata,myresidual,styles,plotrange,pos,myvar1,myvar2,
+myminvar1,mymaxvar2,mymaxvar1,myminvar2,myfitlistfunc,plot1,plot2,plot3,plottab,showlegend,zlabel,tooltiptags,myresidualhist,posoutliers,outliers,mylegend},
+
+plotrange=OptionValue["PlotRange"];
+showlegend=OptionValue["ShowLegend"];
+zlabel=OptionValue["zLabel"];
+tooltiptags=OptionValue["ToolTipTags"];
+outliers=OptionValue["Outliers"];
+
+myfitlist=Flatten[TakeColumn[#,1]&/@fitlist,1];
+
+myvar1=Evaluate@Symbol@ToString@fitvars[[1]];
+myvar2=Evaluate@Symbol@ToString@fitvars[[2]];
+
+If[ListQ@plotrange,
+myminvar1=plotrange[[1,1]];
+mymaxvar1=plotrange[[1,2]];
+myminvar2=plotrange[[2,1]];
+mymaxvar2=plotrange[[2,2]];
+,
+myminvar1=Min[data[[All,1]]];
+mymaxvar1=Max[data[[All,1]]];
+myminvar2=Min[data[[All,2]]];
+mymaxvar2=Max[data[[All,2]]];
+];
+
+myfitlist=(#/.myvar1->x/.myvar2->y)&/@myfitlist;
+
+Print[Length[data]," data points, variables plotted -> ",{myvar1, myvar2}];
+If[showlegend,
+
+mylegend=(myfitlist/.x->myvar1/.y->myvar2);
+Print[plot1=Show[{Plot3D[myfitlist,{x,myminvar1,mymaxvar1},{y,myminvar2,mymaxvar2},PlotStyle->Drop[ColorData[3,"ColorList"],1],PlotLabel->Style[ToString[zlabel],14,Black],PlotLegends->mylegend,Lighting->Automatic,PlotRange->plotrange,
+AxesLabel->{Style[ToString@myvar1,14,Black],Style[ToString@myvar2,14,Black],""}],ListPointPlot3D[data,PlotStyle->PointSize[0.025]]}]],
+Print[plot1=Show[{Plot3D[myfitlist,{x,myminvar1,mymaxvar1},{y,myminvar2,mymaxvar2},PlotStyle->Drop[ColorData[3,"ColorList"],1],PlotLabel->Style[ToString[zlabel],14,Black],Lighting->Automatic,PlotRange->plotrange,
+AxesLabel->{Style[ToString@myvar1,14,Black],Style[ToString@myvar2,14,Black],""}],ListPointPlot3D[data,PlotStyle->PointSize[0.025]]}]]
+];
+
+plottab=Table[
+Print[myfitlist[[j]]/.x->myvar1/.y->myvar2];
+
+fitdata=Transpose[{data[[All,1]],data[[All,2]],Table[myfitlist[[j]]/.x->data[[i,1]]/.y->data[[i,2]],{i,Length@data}]}];
+myresidual=Transpose[{data[[All,1]],data[[All,2]],fitdata[[All,3]]-data[[All,3]]}];
+myresidualhist=myresidual[[All,3]]/fitdata[[All,3]];
+
+
+Print[{plot2=Show[ListPointPlot3D[data,PlotStyle->PointSize[0.025],PlotRange->All],
+                  Plot3D[myfitlist[[j]],{x,myminvar1,mymaxvar1},{y,myminvar2,mymaxvar2},PlotLabel->Style[ToString[zlabel],14,Black],
+                                        AxesLabel->{Style[ToString@myvar1,14,Black],Style[ToString@myvar2,14,Black],""},ImageSize->350,
+                                        PlotStyle->Drop[ColorData[3,"ColorList"],1][[j]],Lighting->Automatic,PlotRange->plotrange],AxesLabel->{Style[ToString@myvar1,14,Black],
+                                        Style[ToString@myvar2,14,Black],""}],
+       plot3=myListPlot3D[myresidual,PlotLabel->Style[ToString["residual"],14,Black],PlotRange->plotrange,ImageSize->350,AxesLabel->{Style[ToString@myvar1,14,Black],
+                                     Style[ToString@myvar2,14,Black],""},PlotStyle->Drop[ColorData[3,"ColorList"],1][[j]]],
+             If[Length@fitlist[[j,1]]==1,"No stats. available",fitlist[[j,1,3]]],Show[Histogram[myresidualhist,100],Frame->True,FrameLabel -> {"1-data/fit", "#"}],
+             ListPlot[Table[Tooltip[myresidualhist[[i]],If[ListQ@tooltiptags,tooltiptags[[i]],ToString[{data[[i,1]],data[[i,2]]}]]],{i,Length@myresidualhist}],PlotRange->All,Frame->True,FrameLabel -> {"#","1-data/fit"}],
+             Sqrt@Mean[myresidual[[All,3]]^2],
+             Select[(Reverse@SortBy[Transpose[{Abs@myresidualhist,If[ListQ@tooltiptags,tooltiptags,data[[All,1;;2]]]}],First]),#[[1]]>outliers&][[All,2]]//TableForm
+             }];
+
+{plot2,plot3}
+
+,{j,Length@myfitlist}];
+Return[{plot1,plottab}]
+]
+
+
+(* ::Code::Initialization:: *)
+End[];
+EndPackage[];
diff --git a/code/GRTensor.m b/code/GRTensor.m
new file mode 100644
index 0000000..44c78cc
--- /dev/null
+++ b/code/GRTensor.m
@@ -0,0 +1,1334 @@
+(* ::Package:: *)
+
+(************************************************************************)
+(* This file was generated automatically by the Mathematica front end.  *)
+(* It contains Initialization cells from a Notebook file, which         *)
+(* typically will have the same name as this file except ending in      *)
+(* ".nb" instead of ".m".                                               *)
+(*                                                                      *)
+(* This file is intended to be loaded into the Mathematica kernel using *)
+(* the package loading commands Get or Needs.  Doing so is equivalent   *)
+(* to using the Evaluate Initialization Cells menu command in the front *)
+(* end.                                                                 *)
+(*                                                                      *)
+(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
+(* automatically each time the parent Notebook file is saved in the     *)
+(* Mathematica front end.  Any changes you make to this file will be    *)
+(* overwritten.                                                         *)
+(************************************************************************)
+
+
+
+
+(* Probably not all the extra packages are really needed *)
+BeginPackage["GRTensor`"];
+
+
+MetDet::usage="MetDet[g_]. Compute the determinant of the metric";
+InverseMetric::usage="InverseMetric[g_]. Compute the inverse of the metric";
+
+
+ChristoffelSymbol::usage="ChristoffelSymbol[coords_,g_,pert_:0]. Compute Christoffel symbols.  Default for perturbation variabel pert is 0.";
+WeylTensor::usage="WeylTensor[coords_,g_,pert_:0]. Compute Weyl tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1. Default for perturbation variabel pert is 0. ";
+RiemannTensor::usage="RiemannTensor[coords_,g_,pert_:0]. Compute Riemann tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 .Default for perturbation variabel pert is 0. ";
+RicciTensor::usage="RicciTensor[coords_,g_,pert_:0]. Compute Riemann tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1. Default for perturbation variabel pert is 0. ";
+RicciScalar::usage="RicciScalar[coords_,g_,pert_:0]. Compute RicciScalar scalar. Default for perturbation variabel pert is 0. ";
+KrScalar::usage="KrScalar[coords_,g_]. Compute Kretschmann scalar";
+WeylTrace::usage"WeylTrace[coords_,g_]: Compute Weyl Tensor trace";
+Einstein::usage="Einstein[coords_,g_,\[Epsilon]p:]. Compute Einstein tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 with perturbation index \[Epsilon]p";
+ETensor::usage="ETensor[coords_,g_,\[Epsilon]p_]. Compute the energy momentum tensor  with perturbation index \[Epsilon]p.";
+
+
+DAlembert::usage="DAlembert[coords_,g_,func_]. Compute D'Alembert operator for func[coords]";
+CovDer::usage="CovDer[coords_,metric_,tensor_,comps_]. Compute the covariant derivative (default covariant version) for scalar and 1-2 forms. The components are given in a list as: {a},{a,b},{a,b,c}";
+NonZeroChristoffel::usage="NonZeroChristoffel[\[CapitalGamma]]. Show the nonzero Christoffel components.";
+NonZeroMetricComp::usage="NonZeroMetricComp[g]. Show the nonzero metric components.";
+NonZeroTensorComp::usage="NonZeroTensorComp[T]. Show the nonzero Tensor components. It works with any symmetric m xmxmxmx... tensor";
+LeviCivitaTensorCurv::usage="LeviCivitaTensorCurv[coords_,g_]. Compute the Levi-Civita antisymmetric tensor for curvilinear coordinates. For cartesian xx recovers the usual \[Epsilon]_(abc).";
+CheckTetrad::usage="[gab_,nullv_]. Check whether the 4 null tetrad vectors satisfy orthonormality conditions.";
+
+
+EinsteinfR::usage="EinsteinfR[coords_,g_,fR_]. Compute fR Einstein equations following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 ";
+EinsteinST::usage="EinsteinST[coords_,g_,v\[Phi]_]. Compute scalar-tensor Einstein equations following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 ";
+STensorT\[Psi]::usage="STensorT\[Psi][coords_,g_,v\[Phi]_]. Compute scalar-tensor Energy momentum tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 ";
+TeffFR::usage="TeffFR[coords_,g_,fR_]. Compute fR Teff tensor such Gab=8\[Pi]/f'[R](Tab + Teff) following the convention of Misner et al., that is, [S2] = 1, [S3] = 1";
+TeffST::usage="TeffST[coords_,g_,{V\[CurlyPhi],\[CurlyPhi]}]. Compute ST-EF/JF Teff tensor such Gab=8\[Pi] (Tab + Teff) following the convention of Misner et al., that is, [S2] = 1, [S3] = 1. Allowed options for the Frame are Einstein, Jordan";
+FRTOV::usage="FRTOV[coords_,g_,fR_,vars_]. Compute fR TOV eqs such Gab=8\[Pi]/f'[R](Tab + Teff) following the convention of Misner et al., that is, [S2] = 1, [S3] = 1";
+STTOV::usage="STTOV[coords_,g_,{V\[CurlyPhi]_,var\[CurlyPhi]_},vars_]. Compute ST-EF/JF TOV eqs such Gab=8\[Pi](Tab + Teff) following the convention of Misner et al., that is, [S2] = 1, [S3] = 1";
+fR2Pot::usage="fR2UJF[fR_]. From fR model to the ST potential U(\[Phi])-V(\[Phi])";
+CurlCurvilinear::usage"CurlCurvilinear[xx,g,vec]. It computes the curl tensor in curvilinear coordinates";
+ElectricTensor3p1Dev::usage="ElectricTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]";
+MagneticTensor3p1Dev::usage="MagneticTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]"
+
+
+EoSCallParsBSks::usage="EoSCallParsBSks[model_]: Parameters for BSK1-3 EOS for the matter density.";
+EoSCallParsSly::usage="EoSCallParsSly[model_]: Parameters for SLy1 EOS for the matter density.";
+EoSBSks::usage="EoSBSks[model_]: Analytic EOS for BSK1-3for BSK1-3 EOS for the matter density.";
+EoSSly::usage="EoSSly[model_]:  Analytic EOS for SLy1 EOS for the matter density.";
+SlyInner::usage="";
+SlyLCore::usage="";
+SlyLCoreAll::usage="";
+SlyInnerAll::usage="";
+EoSFitsPars::usage="EoSFitsPars[model_,verbose_:False]. Parameters for the JRead(arxiv:0812.2163) parameters.";
+EoSSlyCrust::usage="EoSSlyCrust[\[Rho]_]. Crust model for the NS of JRead(arxiv:0812.2163)";
+EoSFits::usage="EoSFits[model_,OptionsPattern[]]. NS EOS of JRead(arxiv:0812.2163)";
+EoSPol::usage="EoSPol[model_]. NS EOS for a non-relativistic (NR) and relativistic (R, default) NS respectively";
+EoSPol\[Epsilon]::usage="EoSPol\[Epsilon][model_]. NS EOS for a non-relativistic (NR) and relativistic (R, default) NS respectively";
+From\[Rho]To\[Epsilon]Fits::usage"From\[Rho]To\[Epsilon]Fits[eos_]. NS EOS of JRead(arxiv:0812.2163) for the energy density.";
+
+
+ShootingNStars::usage="ShootingNStars[eqs_,eqsRg_,rvar_,vars_,shtdInd_,varshtdRg_]. Shooting function of the index var shtdInd for a set of eqs integrated in eqsRg on the variables vars ;";
+BracketingSTNStars::usage="BracketingSTNStars[eqs_,eqsRg_,rvar_,vars_,shtdInd_,varshtdRg_]. Shooting function of the index var shtdInd for a set of eqs integrated in eqsRg on the variables vars ;";
+
+
+RK4::usage="RK4[func_?ListQ,vars_?ListQ,ivals_?ListQ,pars_?ListQ,step_]";
+TestCode::usage"TestCode[eqs_,vars_,icond_,rlst_,drlst_]";
+
+
+AtomsList::usage="Take the coefficients out";
+InterpolationDomain::usage="InterpolationDomain[interpolatedfunction]. It outputs the domain in a format {tmin,tmax}";
+TakeColumn::usage="TakeColumn[list1_,list2_] extracts columns list2 from list1, i.e. it gives the functionality of the pre-Mathematica 6 Column function.";
+
+
+(* All here below are dev. versions. Replace them when they are sufficiently tested. *)
+ChristoffelSymbolDev::usage="ChristoffelSymbolDev[coords_,g_,pert_:0]. Compute Christoffel symbols.  Default for perturbation variabel pert is 0."
+RiemannTensorDev::usage="RiemannTensor[coords_,g_,pert_:0]. Compute Riemann tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 .Default for perturbation variabel pert is 0. "
+RicciTensorDev::usage="RicciTensorDev[coords_,g_,pert_:0]. Compute Riemann tensor following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 .Default for perturbation variabel pert is 0. ";
+
+
+Begin["`Private`"];
+
+
+Options[MetDet]={"PerturbationIndex"->1,"SimplifyFunction"->Identity};
+MetDet[g_,OptionsPattern[]]:=Block[{simpl},simpl=OptionValue["SimplifyFunction"]; simpl@Det[g]];
+
+Options[InverseMetric]={"PerturbationIndex"->1,"SimplifyFunction"->Identity};
+InverseMetric[g_,OptionsPattern[]]:=Block[{simpl},simpl=OptionValue["SimplifyFunction"]; simpl@Inverse[g]]
+
+
+Options[ChristoffelSymbol]={"Verbose"->False,"PerturbationIndex"->1,"SimplifyFunction"->Identity};
+ChristoffelSymbol[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,ig,res,perti,simpl,verbose},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+verbose=OptionValue["Verbose"];
+
+n=Length@xx;
+ig=InverseMetric[g];
+res=Table[(1/2)*If[NumericQ[pert],Sum[ig[[i,s]]*(-D[g[[j,k]],xx[[s]]]+D[g[[j,s]],xx[[k]]]+D[g[[s,k]],xx[[j]]]),{s,1,n}],
+                                  Normal@Series[Sum[ig[[i,s]]*(-D[g[[j,k]],xx[[s]]]+D[g[[j,s]],xx[[k]]]+D[g[[s,k]],xx[[j]]]),{s,1,n}],{pert,0,perti}]],{i,1,n},{j,1,n},{k,1,n}];
+simpl@res]
+
+Options[RiemannTensor]=Options[ChristoffelSymbol];
+RiemannTensor[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,Chr,res,perti,simpl,verbose},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+verbose=OptionValue["Verbose"];
+
+n=Length@xx;
+If[verbose,Print["Starting with Christoffel symbols..."]];
+Chr=ChristoffelSymbol[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[verbose,Print["Christoffel symbols computed. Starting with Riemann..."]];
+res=Table[If[NumericQ[pert],D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]],{s,1,n}]-Sum[Chr[[i,s,m]]*Chr[[s,k,l]],{s,1,n}],
+             Normal@Series[D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]],{s,1,n}]-Sum[Chr[[i,s,m]]*Chr[[s,k,l]],{s,1,n}],{pert,0,perti}]],{i,1,n},{k,1,n},{l,1,n},{m,1,n}];
+If[verbose,Print["...Riemann computed"]];
+simpl@res];
+
+Options[WeylTensor]=Options[ChristoffelSymbol];
+WeylTensor[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,Chr,riemann,riemanndown,ricciS,ricciT,res,perti,simpl,verbose},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+verbose=OptionValue["Verbose"];
+n=Length@xx;
+
+If[verbose,Print["Starting with RicciScalar..."]];
+ricciS=RicciScalar[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[verbose,Print["Following with RicciTensor..."]];
+ricciT=RicciTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[verbose,Print["Following with Riemann..."]];
+riemann=RiemannTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+riemanndown=Table[Sum[g[[a,\[Alpha]]]riemann[[\[Alpha],b,c,d]],{\[Alpha],4}],{a,n},{b,n},{c,n},{d,n}];
+
+res=Table[If[NumericQ[pert],riemanndown[[i,k,l,m]]+1/(n-2)(ricciT[[i,m]]g[[k,l]]-ricciT[[i,l]]g[[k,m]]+ricciT[[k,l]]g[[i,m]]-ricciT[[k,m]]g[[i,l]])+1/((n-1)(n-2))ricciS(g[[i,l]]g[[k,m]]-g[[i,m]]g[[k,l]]),
+             Normal@Series[riemanndown[[i,k,l,m]]+1/(n-2)(ricciT[[i,m]]g[[k,l]]-ricciT[[i,l]]g[[k,m]]+ricciT[[k,l]]g[[i,m]]-ricciT[[k,m]]g[[i,l]])+1/((n-1)(n-2))ricciS(g[[i,l]]g[[k,m]]-g[[i,m]]g[[k,l]]),{pert,0,perti}]],{i,1,n},{k,1,n},{l,1,n},{m,1,n}];
+(*Simplify[res]*)
+simpl@res];
+
+
+Options[RicciTensor]=Options[ChristoffelSymbol];
+RicciTensor[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{Rie,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+
+n=Length@xx;
+Rie=RiemannTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+res=Table[If[NumericQ[pert],Sum[Rie[[s,i,s,j]],{s,1,n}],
+                            Normal@Series[Sum[Rie[[s,i,s,j]],{s,1,n}],{pert,0,perti}]],{i,1,n},{j,1,n}];
+(*Simplify[res]*)
+simpl@res]
+
+Options[RicciScalar]=Options[ChristoffelSymbol];
+RicciScalar[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{Ricc,ig,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+n=Length@xx;
+
+Ricc=RicciTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+ig=InverseMetric[g,"SimplifyFunction"->simpl];
+res=If[NumericQ[pert],Sum[ig[[s,i]] Ricc[[s,i]],{s,1,n},{i,1,n}],
+                      Normal@Series[Sum[ig[[s,i]] Ricc[[s,i]],{s,1,n},{i,1,n}],{pert,0,perti}]];
+simpl@res]
+
+Options[KrScalar]=Options[ChristoffelSymbol];
+KrScalar[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{Rie,res,n,Ried,Rieup,gup,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+n=Length@xx;
+
+Rie=RiemannTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+gup=Inverse@g;
+Ried=Table[Sum[g[[i,k]] Rie[[i,j,m,l]],{i,1,n}],{k,1,n},{j,1,n},{m,1,n},{l,1,n}];
+Rieup=Table[Sum[gup[[j,k]]gup[[m,\[Mu]]] gup[[l,\[Nu]]] Rie[[i,j,m,l]],{j,1,n},{m,1,n},{l,1,n}],{i,1,n},{k,1,n},{\[Mu],1,n},{\[Nu],1,n}];
+res=Sum[Ried[[i,j,m,l]] Rieup[[i,j,m,l]],{i,1,n},{j,1,n},{m,1,n},{l,1,n}];
+
+If[NumericQ[pert],simpl@res,Normal@Series[simpl@res,{pert,0,perti}]]];
+
+Options[WeylTrace]=Options[ChristoffelSymbol];
+WeylTrace[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{Chr,ig,n,riemann,Rieup,ricciS,ricciT,res,perti,simpl,weylT,weylTup},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+n=Length@xx;
+ig=InverseMetric[g,"SimplifyFunction"->simpl];
+
+weylT=WeylTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+weylTup=Table[Sum[ig[[a,\[Alpha]]] ig[[b,\[Beta]]] ig[[c,\[Gamma]]] ig[[d,\[Delta]]] weylT[[\[Alpha],\[Beta],\[Gamma],\[Delta]]],{\[Alpha],n},{\[Beta],n},{\[Gamma],n},{\[Delta],n}],{a,n},{b,n},{c,n},{d,n}];
+res=If[NumericQ[pert],Sum[weylT[[i,k,l,m]]weylTup[[i,k,l,m]],{i,n},{k,n},{l,n},{m,n}],
+             Normal@Series[Sum[weylT[[i,k,l,m]]weylTup[[i,k,l,m]],{i,n},{k,n},{l,n},{m,n}],{pert,0,perti}]];
+
+simpl@res];
+
+Options[Einstein]=Options[ChristoffelSymbol];
+Einstein[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{res,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+res=RicciTensor[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl]-1/2 RicciScalar[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl] g;
+If[NumericQ[pert],simpl@res,Normal@Series[simpl@res,{pert,0,perti}]]
+]
+
+
+DAlembert[xx_,metric_,scalfun_]:=Block[{metdet,dal,metup,sqrtdet},
+
+metup=Inverse[metric];
+metdet=MetDet[metric];
+sqrtdet=Sqrt[-metdet];
+
+dal=FullSimplify[(1/sqrtdet) Sum[
+D[sqrtdet metup[[\[Nu],\[Mu]]] D[scalfun,xx[[\[Mu]]]],xx[[\[Nu]]]],{\[Nu],4},{\[Mu],4}]]
+]
+
+
+Options[ETensor]=Join[{"Signature"->1},Options[ChristoffelSymbol]];
+
+ETensor[coors_,met_,pert_:0,OptionsPattern[]]:=Block[{g,gup,Global`\[Rho],\[Rho]c,Global`p,perti,pc,riscal,riscalvars,sign,simpl,T\[Mu]\[Nu],T\[Mu]\[Nu]up,u,udown,\[CapitalOmega]},
+perti=OptionValue["PerturbationIndex"];
+sign=OptionValue["Signature"];
+simpl=OptionValue["SimplifyFunction"];
+
+g=met;
+riscal=RicciScalar[coors,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+riscalvars=Complement[coors,Complement[coors,AtomsList[riscal]]];
+gup=Inverse[g];
+pc=Global`p@@riscalvars;
+\[Rho]c=Global`\[Rho]@@riscalvars;
+
+u=If[sign==1,{1/Sqrt[-g[[1,1]]],0,0,pert \[CapitalOmega]/Sqrt[-g[[1,1]]]},{1/Sqrt[g[[1,1]]],0,0,pert \[CapitalOmega]/Sqrt[g[[1,1]]]}]; 
+u=Normal@Series[u,{pert,0,perti}];
+udown=Table[Sum[u[[i]]g[[i,l]],{i,Length@coors}],{l,Length@coors}];
+udown=Normal@Series[udown,{pert,0,perti}];
+
+If[Simplify[Normal@Series[u.udown,{pert,0,1}]]!=-1,Return["Wrong normalization"]];
+
+T\[Mu]\[Nu]up=If[sign==1,Normal@Series[Table[(pc+\[Rho]c) u[[i]] u[[j]]+pc gup[[i,j]],{i,Length@coors},{j,Length@coors}],{pert,0,perti}],
+                Normal@Series[Table[(pc+\[Rho]c) u[[i]] u[[j]]-pc gup[[i,j]],{i,Length@coors},{j,Length@coors}],{pert,0,perti}]]//Simplify;
+T\[Mu]\[Nu]=Normal@Series[g(T\[Mu]\[Nu]up.g),{pert,0,1}]
+]
+
+
+Options[NonZeroTensorComp]={"Verbose"->True,"TensorString"->"T"};
+NonZeroTensorComp[gamma_,OptionsPattern[]]:=Module[{dimension,ii,nonzerpos,tstring,verbose,
+allpos,zerpos},
+
+tstring=OptionValue["TensorString"];
+verbose=OptionValue["Verbose"];
+
+(* set dimensions and total number or elements *)
+dimension=Dimensions[gamma];
+(*allpos=Flatten[Table[{i,j,k},{i,dimension[[1]]},{j,dimension[[1]]},{k,dimension[[1]]}],1];*)
+allpos=Tuples[Table[i,{i,dimension[[1]]}],Length@dimension];
+
+zerpos=Position[gamma,_?(#== 0 &)];
+nonzerpos=Complement[allpos,zerpos];
+
+If[verbose,Do[Print[ToString[Subscript[tstring, StringJoin[ToString/@(nonzerpos[[i,1;;Length@dimension]]-1)]],StandardForm]<>" = "<>ToString[Extract[gamma,nonzerpos[[i]]],StandardForm]],{i,Length@nonzerpos}]];
+nonzerpos
+]
+
+
+Options[NonZeroMetricComp]={"Verbose"->True,"TensorString"->"T"};
+NonZeroMetricComp[gamma_,OptionsPattern[]]:=Module[{allpos,dimension,
+n,nonzerpos,tstring,verbose,zerpos},
+
+verbose=OptionValue["Verbose"];
+tstring=OptionValue["TensorString"];
+
+n=Length@gamma;
+
+(* set dimensions and total number or elements *)
+dimension=Dimensions[gamma][[1]];
+allpos=Flatten[Table[{i,j},{i,dimension},{j,dimension}],1];
+
+zerpos=Position[gamma,_?(#== 0 &)];
+nonzerpos=Complement[allpos,zerpos];
+
+If[verbose,Do[Print[ToString[tstring,StandardForm]<>" = "<>ToString[gamma[[nonzerpos[[i,1]],nonzerpos[[i,2]]]],StandardForm]],{i,Length@nonzerpos}]];
+nonzerpos
+]
+
+
+CovDer[coords_,metric_,tensor_,index_,OptionsPattern[{"Valence"->"Covariant","Verbose"->False}]]:=Block[{Crhistoffel,g,xx,n,h\[Eta]\[Nu],rank,cov,valence,verbose,c,b,a},
+(*Print[Style["It is wrong!",Red]];*)
+valence=OptionValue["Valence"];
+verbose=OptionValue["Verbose"];
+n=Length@coords;
+g=metric;
+h\[Eta]\[Nu]=tensor;
+xx=coords;
+If[ListQ[h\[Eta]\[Nu]],
+			rank=Length@Dimensions@tensor;
+			Crhistoffel=ChristoffelSymbol[xx,g],
+			rank=0;
+			];
+
+Which[rank==0, If[verbose,Print["Scalar , "];Print[valence];]; 
+                 {a}=index;
+                 cov=D[h\[Eta]\[Nu],xx[[index]]]; ,
+	  rank==1, If[verbose,Print["Vector , "];Print[valence];];
+	  	       {a,b}=index; 
+	              Which[valence=="Covariant",      
+	                  cov=D[h\[Eta]\[Nu][[b]],xx[[a]]]-Sum[Crhistoffel[[\[Rho],a,b]]h\[Eta]\[Nu][[\[Rho]]],{\[Rho],Length@xx}];,
+	                  valence=="Contravariant",
+	                  cov=D[h\[Eta]\[Nu][[b]],xx[[a]]]+Sum[Crhistoffel[[\[Rho],a,b]]h\[Eta]\[Nu][[\[Rho]]],{\[Rho],Length@xx}];  
+	              ];,
+	  rank==2,  If[verbose,Print["Tensor , "];Print[valence];]; 
+	            {a,b,c}=index;
+	            Which[valence=="Covariant",  
+	                          cov=D[h\[Eta]\[Nu][[b,c]],xx[[a]]]-Sum[Crhistoffel[[d,a,b]]h\[Eta]\[Nu][[c,d]]+Crhistoffel[[d,a,c]]h\[Eta]\[Nu][[b,d]],{d,n}];, 
+				      valence=="Contravariant",
+				              cov=D[h\[Eta]\[Nu][[b,c]],xx[[a]]]+Sum[Crhistoffel[[b,a,d]]h\[Eta]\[Nu][[c,d]]+Crhistoffel[[c,a,d]]h\[Eta]\[Nu][[d,b]],{d,n}];,
+				      valence=="Mixed",
+				              cov=D[h\[Eta]\[Nu][[b,c]],xx[[a]]]+Sum[Crhistoffel[[b,a,d]]h\[Eta]\[Nu][[c,d]]-Crhistoffel[[c,a,d]]h\[Eta]\[Nu][[d,b]],{d,n}];];,
+                 True,     If[verbose,Print["Rank not recognised"]];
+                Return[];				
+];
+Simplify@cov         
+]
+
+
+LeviCivitaTensorCurv[xx_,g_]:=Module[{dim},
+dim=Length@xx;
+Sqrt[Det[g]]LeviCivitaTensor[dim,List]
+]
+
+
+CurlCurvilinear[xx_,g_,vec_]:=Module[{lv,vecb,DCov,lvup,gup,vecn},
+lv=LeviCivitaTensorCurv[xx,g];
+vecb=Sqrt[Diagonal[g]];
+vecn=vec*vecb;
+DCov=Table[CovDer[xx,g,vecn,{a,b}],{a,Length@xx},{b,Length@xx}];
+gup=InverseMetric[g];
+lvup=Simplify[Table[Sum[gup[[i,a]]gup[[j,b]] gup[[k,c]] lv[[a,b,c]],{a,Length@xx},{b,Length@xx},{c,Length@xx}],{i,Length@xx},{j,Length@xx},{k,Length@xx}]];
+
+Table[Simplify[Sum[lvup[[i,e,d]]DCov[[e,d]],{e,Length@xx},{d,Length@xx}]]vecb[[i]],{i,Length@xx}]
+]
+
+
+Options[CheckTetrad]=Options[ChristoffelSymbol];
+CheckTetrad[gab_,nullv_,OptionsPattern[]]:=Block[{l,n,m,mb,test,verbose},
+{l,n,m,mb}=nullv;
+verbose=OptionValue["Verbose"];
+
+test=Chop@Simplify@{l.gab.l,
+n.gab.n,
+m.gab.m,
+mb.gab.mb,
+l.gab.m,
+l.gab.mb,
+n.gab.m,
+n.gab.mb,
+l.gab.n,
+m.gab.mb};
+
+If[verbose,Print["{l.l,n.n,m.m,mb.mb,l.m,l.mb,n.m,n.mb,l.n,m.mb} = ",test]];
+
+If[Total@test[[1;;8]]==0&&test[[9]]*test[[10]]==-1,Print[Style["Your tetrad satisfies the properties of orthonormality",Blue]];,Print[Style["Your tetrad has some troubles",Blue]]]];
+
+
+Options[ChristoffelSymbolDev]={"Verbose"->False,"PerturbationIndex"->1,"SimplifyFunction"->Identity,"Compile"->False,"CompileCoordinateIndex"->{1,2,3,4}};
+ChristoffelSymbolDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,ig,compile,compilecind,coords,res,perti,simpl,verbose},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+verbose=OptionValue["Verbose"];
+compile=OptionValue["Compile"];
+compilecind=OptionValue["CompileCoordinateIndex"];
+
+
+n=Length@xx;
+ig=InverseMetric[g];
+res=ConstantArray[0,{n,n,n}];
+If[NumericQ[pert], Do[res[[i,j,k]]=Sum[ig[[i,s]]*(-D[g[[j,k]],xx[[s]]]+D[g[[j,s]],xx[[k]]]+D[g[[s,k]],xx[[j]]]),{s,n}],{i,n},{j,n},{k,j,n}];,
+                   Do[res[[i,j,n]]=Normal@Series[Sum[ig[[i,s]]*(-D[g[[j,k]],xx[[s]]]+D[g[[j,s]],xx[[k]]]+D[g[[s,k]],xx[[j]]]),{s,n}],{pert,0,perti}],{i,n},{j,n},{k,j,n}]];
+res=simpl[1/2 res];
+
+(* Compile *)
+If[compile, Do[res[[i,j,k]]=If[NumberQ[res[[i,j,k]]],res[[i,j,k]],Compile[Evaluate@({#,_Real}&/@(xx[[compilecind]])),Evaluate[res[[i,j,k]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{j,n},{k,j,n}];];
+(* Applying symmetries *)
+Do[res[[i,j+1,k]]=res[[i,k,j+1]];,{i,n},{j,n-1},{k,j}];
+
+res
+]
+
+
+Options[RiemannTensorDev]=Join[Options[ChristoffelSymbolDev],{"IndexDown"->False}];
+RiemannTensorDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{caux,n,Chr,compile,compilecind,index,res,perti,simpl,time,verbose},
+index=OptionValue["IndexDown"];
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+compile=OptionValue["Compile"];
+compilecind=OptionValue["CompileCoordinateIndex"];
+verbose=OptionValue["Verbose"];
+
+n=Length@xx;
+If[verbose,Print["Starting with Christoffel symbols..."]];
+Chr=ChristoffelSymbolDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl,"Compile"->False];
+If[verbose,Print["Christoffel symbols computed. Starting with Riemann..."]];
+
+res=ConstantArray[0,{n,n,n,n}];
+If[index,
+        If[NumericQ[pert],  Do[res[[i,k,l,m]]=Sum[g[[i,p]](D[Chr[[p,k,m]],xx[[l]]]-D[Chr[[p,k,l]],xx[[m]]]+Sum[Chr[[p,s,l]]*Chr[[s,k,m]]-Chr[[p,s,m]]*Chr[[s,k,l]],{s,n}]),{p,n}],{i,n},{k,i,n},{l,n},{m,l,n}],
+                            Do[res[[i,k,l,m]]=Sum[g[[i,p]](Normal@Series[D[Chr[[p,k,m]],xx[[l]]]-D[Chr[[p,k,l]],xx[[m]]]+Sum[Chr[[p,s,l]]*Chr[[s,k,m]],{s,n}]-Sum[Chr[[p,s,m]]*Chr[[s,k,l]],{s,n}],{pert,0,perti}]),{p,n}],{i,n},{k,n},{l,n},{m,n}]];
+                           
+                             (* Applying simmetries *)
+                            (*Do[res[[i+1,k,l,m]]=res[[l,k,i+1,m]],{i,n-1},{k,n},{l,i},{m,n}];*)
+                            Do[res[[i,k,l+1,m]]=-res[[i,k,m,l+1]],{i,n},{k,n},{l,n-1},{m,l}];
+                            Do[res[[i+1,k,l,m]]=-res[[k,i+1,l,m]],{i,n-1},{k,i},{l,n},{m,n}];
+                            If[compile,caux=0; Do[time=Timing[res[[i,k,l,m]]=Compile[Evaluate@({#,_Real}&/@(xx[[compilecind]])),Evaluate[res[[i,k,l,m]]],RuntimeOptions->"Speed"]][[1]];If[verbose,Print["compiling: ",{i,k,l,m}," ",time," s"]];,{i,n},{k,n},{l,n},{m,n}];]
+                            ,                            
+        If[NumericQ[pert],  Do[res[[i,k,l,m]]=(D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]]-Chr[[i,s,m]]*Chr[[s,k,l]],{s,n}]),{i,n},{k,n},{l,n},{m,n}],
+                            Do[res[[i,k,l,m]]=(Normal@Series[D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]],{s,n}]-Sum[Chr[[i,s,m]]*Chr[[s,k,l]],{s,n}],{pert,0,perti}]),{i,n},{k,n},{l,n},{m,n}]];
+        ];
+
+
+If[verbose,Print["...Riemann computed"]];
+simpl@res];
+
+
+Options[RicciTensorDev]=Options[ChristoffelSymbolDev];
+RicciTensorDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{compile,Rie,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+compile=OptionValue["Compile"];
+simpl=OptionValue["SimplifyFunction"];
+
+n=Length@xx;
+Rie=RiemannTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+
+res=ConstantArray[0,{n,n}];
+If[NumericQ[pert], Do[res[[i,j]]=Sum[Rie[[s,i,s,j]],{s,n}],{i,n},{j,n}],
+                   Do[res[[i,j]]=Normal@Series[Sum[Rie[[s,i,s,j]],{s,n}],{pert,0,perti}],{i,n},{j,i,n}]];  
+
+If[compile, Do[res[[i,j]]=If[NumberQ[res[[i,j]]],res[[i,j]],Compile[Evaluate@({#,_Real}&/@xx),Evaluate[res[[i,j]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{j,i,n}];]  ;                 
+(* Applying symmetries *)
+Do[res[[i+1,j]]=res[[j,i+1]];,{i,n-1},{j,i}];                   
+
+simpl@res]
+
+
+Options[ElectricTensor3p1Dev]=Options[ChristoffelSymbolDev];
+ElectricTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]:=Block[{compile,gup,Ks,Ktup,Ric,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+compile=OptionValue["Compile"];
+simpl=OptionValue["SimplifyFunction"];
+
+n=Length@xx;
+Ric=RicciTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+gup=InverseMetric[g];
+Ktup=(gup.gup.Kt);
+Ks=(Sum[gup[[a,b]]Kt[[a,b]],{a,n},{b,n}]);
+
+res=ConstantArray[0,{n,n}];
+If[NumericQ[pert], Do[res[[i,j]]=Ric[[i,j]]+Ks Kt[[i,j]]-Sum[Kt[[i,m]]Ktup[[m,j]],{m,n}],{i,n},{j,i,n}],
+                   Do[res[[i,j]]=Normal@Series[Ric[[i,j]]+Ks Kt[[i,j]]-Sum[Kt[[i,m]]Ktup[[m,j]],{m,n}],{pert,0,perti}],{i,n},{j,i,n}]];  
+
+If[compile, Do[res[[i,j]]=If[NumberQ[res[[i,j]]],res[[i,j]],Compile[Evaluate@({#,_Real}&/@xx),Evaluate[res[[i,j]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{j,i,n}];];                 
+(* Applying symmetries *)
+Do[res[[i+1,j]]=res[[j,i+1]];,{i,n-1},{j,i}];                   
+
+simpl@res]
+
+
+Options[MagneticTensor3p1Dev]=Options[ChristoffelSymbolDev];
+MagneticTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]:=Block[{compile,gup,Ks,Ktup,Ric,res,rescov,n,perti,simpl,\[Epsilon]},
+perti=OptionValue["PerturbationIndex"];
+compile=OptionValue["Compile"];
+simpl=OptionValue["SimplifyFunction"];
+
+n=Length@xx;
+Ric=RicciTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+gup=InverseMetric[g];
+\[Epsilon]=Det[gup]^(-1/2)LeviCivitaTensor[n];
+\[Epsilon]=Table[Sum[g[[s,i]]\[Epsilon][[s,j,k]],{s,n}],{i,n},{j,n},{k,n}];
+
+rescov=ConstantArray[0,{n,n,n}];
+Do[rescov[[k,i,j]]=CovDer[xx,g,Kt,{k,i,j},"Valence"->"Covariant"],{k,n},{i,n},{j,i,n}];
+Do[rescov[[k,i+1,j]]=rescov[[k,j,i+1]];,{k,n},{i,n-1},{j,i}];
+
+res=ConstantArray[0,{n,n}];
+If[NumericQ[pert], Do[res[[i,j]]=Sum[\[Epsilon][[i,m,k]]rescov[[m,k,j]],{m,n},{k,n}],{i,n},{j,i,n}],
+                   Do[res[[i,j]]=Normal@Series[Sum[\[Epsilon][[i,m,k]]rescov[[m,k,j]],{m,n},{k,n}],{pert,0,perti}],{i,n},{j,i,n}]];  
+
+If[compile, Do[res[[i,j]]=If[NumberQ[res[[i,j]]],res[[i,j]],Compile[Evaluate@({#,_Real}&/@xx),Evaluate[res[[i,j]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{j,i,n}];];                 
+(* Applying symmetries *)
+Do[res[[i+1,j]]=res[[j,i+1]];,{i,n-1},{j,i}];                   
+
+simpl@res]
+
+
+Options[RicciScalarDev]=Options[ChristoffelSymbolDev];
+RicciScalarDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{Ricc,ig,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+n=Length@xx;
+
+Ricc=RicciTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+ig=InverseMetric[g,"SimplifyFunction"->simpl];
+res=If[NumericQ[pert],Sum[If[i==s,ig[[s,i]] Ricc[[s,i]],2 ig[[s,i]] Ricc[[s,i]]],{s,n},{i,s}],
+                      Normal@Series[Sum[ig[[s,i]] Ricc[[s,i]],{s,1,n},{i,1,n}],{pert,0,perti}]];
+simpl@res]
+
+
+Options[WeylTensorDev]=Options[ChristoffelSymbolDev];
+WeylTensorDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,Chr,riemann,riemanndown,ricciS,ricciT,res,perti,simpl,verbose},
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+verbose=OptionValue["Verbose"];
+n=Length@xx;
+
+If[verbose,Print["Starting with RicciScalar..."]];
+ricciS=RicciScalarDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[verbose,Print["Following with RicciTensor..."]];
+ricciT=RicciTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[verbose,Print["Following with Riemann..."]];
+riemann=RiemannTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl,"IndexDown"->False];
+
+res=Table[If[NumericQ[pert],riemann[[i,k,l,m]]+1/(n-2)(ricciT[[i,m]]g[[k,l]]-ricciT[[i,l]]g[[k,m]]+ricciT[[k,l]]g[[i,m]]-ricciT[[k,m]]g[[i,l]])+1/((n-1)(n-2))ricciS(g[[i,l]]g[[k,m]]-g[[i,m]]g[[k,l]]),
+             Normal@Series[riemann[[i,k,l,m]]+1/(n-2)(ricciT[[i,m]]g[[k,l]]-ricciT[[i,l]]g[[k,m]]+ricciT[[k,l]]g[[i,m]]-ricciT[[k,m]]g[[i,l]])+1/((n-1)(n-2))ricciS(g[[i,l]]g[[k,m]]-g[[i,m]]g[[k,l]]),{pert,0,perti}]],{i,1,n},{k,1,n},{l,1,n},{m,1,n}];
+(*Simplify[res]*)
+simpl@res];
+
+
+Options[EinsteinfR]={{"Metric"->True},Join[Options[ChristoffelSymbol]]};
+EinsteinfR[xx_,g_,fR_,OptionsPattern[]]:=Block[{res,fRterm1,fRterm2,dalem,Global`R,riscal,riscalvars,simpl,Rc,fRc,dfRc,covterm1,covterm2,metric},
+
+metric=OptionValue["Metric"];
+simpl=OptionValue["SimplifyFunction"];
+
+riscal=simpl@RicciScalar[xx,g];
+riscalvars=Complement[xx,Complement[xx,AtomsList[riscal]]];
+Rc=Global`R@@riscalvars;
+fRc=fR/.Global`R->Rc;
+dfRc=D[fRc,Rc];
+dalem=DAlembert[xx,g,dfRc];
+fRterm1=Simplify[dfRc RicciTensor[xx,g]-1/2 g fRc];
+If[metric,
+       covterm1=Table[CovDer[xx,g,dfRc,{i},"Valence"->"Covariant","Verbose"->False],{i,Length@xx}];
+       covterm2=Table[CovDer[xx,g,covterm1,{i,j},"Valence"->"Covariant","Verbose"->False],{i,Length@xx},{j,Length@xx}];
+       fRterm2=covterm2-g*dalem;
+       res=(fRterm1-fRterm2);
+       Return[{covterm1}];
+       ,
+       res=(fRterm1);
+];
+
+Simplify@res
+]
+
+
+STensorT\[Psi][coor_,met_,\[Psi]potl_]:=Module[{a,b,l,m,g,xx,\[Psi],pot,gup},
+xx=coor;
+g=met;
+pot=\[Psi]potl[[2]];
+\[Psi]=\[Psi]potl[[1]];
+gup=Inverse@g;
+
+Table[D[\[Psi],xx[[a]]]D[\[Psi],xx[[b]]]-1/2g[[a,b]]Sum[gup[[l,m]]D[\[Psi],xx[[l]]]D[\[Psi],xx[[m]]],{l,4},{m,4}]-g[[a,b]] pot ,{a,Length@xx},{b,Length@xx}]
+]
+
+
+Options[TeffFR]=Join[{"Metric"->True},Options[ChristoffelSymbol]];
+TeffFR[xx_,g_,fR_,pert_:0,OptionsPattern[]]:=Block[{res,fRterm1,fRterm2,dalem,Global`R,riscal,riscalvars,Rc,fRc,dfRc,simpl,covterm1,covterm2,metric,perti},
+metric=OptionValue["Metric"];
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+
+riscal=simpl@RicciScalar[xx,g,pert,"PerturbationIndex"->perti];
+riscalvars=Complement[xx,Complement[xx,AtomsList[riscal]]];
+Rc=Global`R@@riscalvars;
+fRc=fR/.Global`R->Rc;
+dfRc=D[fRc,Rc];
+dalem=DAlembert[xx,g,dfRc];
+
+If[metric,
+       covterm1=Table[CovDer[xx,g,dfRc,{i},"Valence"->"Covariant","Verbose"->False],{i,Length@xx}];
+       covterm2=Table[CovDer[xx,g,covterm1,{i,j},"Valence"->"Covariant","Verbose"->False],{i,Length@xx},{j,Length@xx}];
+       fRterm2=covterm2-g*dalem;
+       res=If[Not@NumericQ@pert,Normal@Series[1/(8\[Pi])(fRterm2-dfRc/2 Rc g + 1/2 fRc g),{pert,0,perti}],1/(8\[Pi])(fRterm2-dfRc/2 Rc g + 1/2 fRc g)];
+       ,
+       res=If[Not@NumericQ@pert,Normal@Series[(fRterm1),{pert,0,perti}],(fRterm1)];
+];
+
+Simplify@res
+]
+
+
+Options[TeffST]=Join[{"Frame"->"Einstein"},Options[ChristoffelSymbol]];
+TeffST[xx_,g_,{V\[CurlyPhi]_,var\[CurlyPhi]_},pert_:0,OptionsPattern[]]:=Block[{covterm1,covterm2,dalem,der,gup,frame,perti,res,riscal,riscalvars,simpl,sumder,V\[CurlyPhi]c,\[CurlyPhi]c,\[Phi]term2},
+perti=OptionValue["PerturbationIndex"];
+frame=OptionValue["Frame"];
+simpl=OptionValue["SimplifyFunction"];
+
+riscal=simpl@RicciScalar[xx,g,pert,"PerturbationIndex"->perti];
+riscalvars=Complement[xx,Complement[xx,AtomsList[riscal]]];
+gup=Inverse[g];
+\[CurlyPhi]c=var\[CurlyPhi]@@riscalvars;
+V\[CurlyPhi]c=V\[CurlyPhi]/.var\[CurlyPhi]->\[CurlyPhi]c;
+
+Which[frame=="Einstein",
+             der=Table[D[\[CurlyPhi]c,xx[[a]]]D[\[CurlyPhi]c,xx[[b]]],{a,Length@xx},{b,Length@xx}];
+             sumder=Sum[ gup[[a,b]](der[[a,b]]),{a,Length@xx},{b,Length@xx}];
+             res=1/(8\[Pi]) (2 der-g sumder -1/2 g V\[CurlyPhi]c);,
+      frame=="Jordan",   
+             dalem=DAlembert[xx,g,\[CurlyPhi]c];
+             covterm1=Table[CovDer[xx,g,\[CurlyPhi]c,{i},"Valence"->"Covariant","Verbose"->False],{i,Length@xx}];
+             covterm2=Table[CovDer[xx,g,covterm1,{i,j},"Valence"->"Covariant","Verbose"->False],{i,Length@xx},{j,Length@xx}];
+             \[Phi]term2=covterm2-g*dalem;
+             res=If[Not@NumericQ@pert,Normal@Series[1/(8\[Pi])(\[Phi]term2-V\[CurlyPhi]c/2 g),{pert,0,perti}],1/(8\[Pi])(\[Phi]term2-V\[CurlyPhi]c/2 g)];,
+      True,
+             Print["Wrong option for Frame"];Return[];
+];
+If[NumberQ@pert,Simplify@res,Simplify@Normal@Series[res,{pert,0,perti}]]
+]
+
+
+(* Are you sure this is right??? *)
+EinsteinST[xx_,g_,V\[Phi]_]:=Block[{res,fRterm1,fRterm2,dalem,R,riscal,riscalvars,\[Phi]c,fRc,dfRc,covterm1,covterm2},
+
+riscal=Simplify@RicciScalar[xx,g];
+riscalvars=Complement[xx,Complement[xx,AtomsList[V\[Phi]]]];
+
+\[Phi]c=\[Phi]@@riscalvars;
+dalem=DAlembert[xx,g,\[Phi]c];
+fRterm1=Simplify[RicciTensor[xx,g]-1/2 g D[V\[Phi],\[Phi]c]+ 1/2 g V\[Phi]/(2 \[Phi]c )];
+
+covterm1=Table[CovDer[xx,g,dfRc,{i},"Valence"->"Covariant","Verbose"->False],{i,Length@xx}];
+covterm2=Table[CovDer[xx,g,covterm1,{i,j},"Valence"->"Covariant","Verbose"->False],{i,Length@xx},{j,Length@xx}];
+fRterm2=-(1/\[Phi]c) (covterm2-g*dalem);
+
+res=(fRterm1-fRterm2);
+
+Simplify@res
+]
+
+
+Options[STTOV]=Join[{"Signature"->1},Options[TeffST]];
+STTOV[coors_,met_,{V\[CurlyPhi]_,var\[CurlyPhi]_},metvars_,pert_:0,OptionsPattern[]]:=Block[{Global`x,Aa,\[Alpha]a,dV\[CurlyPhi]c,dpc,d\[Phi]c,d\[Phi]\[CurlyPhi]c,eq,eqaux,eqKG,eqp,eval,ET,eq2,frame,g,gup,perti,riscal,riscalvars,sign,simpl,T,TEF,Teff,Ttot,T\[Mu]\[Nu],T\[Mu]\[Nu]up,V\[CurlyPhi]c,\[CurlyPhi]c,\[CurlyPhi]2c,Global`r,Global`\[Rho],\[Rho]c,Global`p,pc,Global`\[Phi],\[Phi]c,\[Phi]\[CurlyPhi]c,Global`\[CurlyPhi]},
+sign=OptionValue["Signature"];
+frame=OptionValue["Frame"];
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+Which[frame!= "Einstein" && frame!="Jordan",Return[];];
+
+Print["Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}"];
+g=met;
+gup=Inverse[g];
+riscal=simpl@RicciScalar[coors,g,pert,"PerturbationIndex"->perti];
+
+riscalvars=Complement[coors,Complement[coors,AtomsList[riscal]]];
+\[CurlyPhi]c=var\[CurlyPhi]@@riscalvars;
+V\[CurlyPhi]c=V\[CurlyPhi]/.var\[CurlyPhi]->\[CurlyPhi]c;
+dV\[CurlyPhi]c=D[V\[CurlyPhi]c,\[CurlyPhi]c];
+\[CurlyPhi]2c=(var\[CurlyPhi]'')@@riscalvars;
+pc=Global`p@@riscalvars;
+\[Rho]c=Global`\[Rho]@@riscalvars;
+\[Phi]c=Global`\[Phi]@@riscalvars;
+dpc=D[pc,riscalvars];
+d\[Phi]c=D[\[Phi]c,riscalvars];
+(* Define the coupling of the scalar field with matter *)
+\[Phi]\[CurlyPhi]c[\[CurlyPhi]_]:=Exp[2/Sqrt[3]\[CurlyPhi]];
+d\[Phi]\[CurlyPhi]c=D[\[Phi]\[CurlyPhi]c,Global`r];
+
+eval[x_]:=Evaluate[x];
+(* Computation of the matter energy-momentum tensor *)
+T\[Mu]\[Nu]=ETensor[coors,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+T\[Mu]\[Nu]up=Normal@Series[(gup.T\[Mu]\[Nu])gup,{pert,0,perti}];
+T=Normal@Series[Sum[(g.T\[Mu]\[Nu]up)[[i,i]],{i,Length@coors}],{pert,0,perti}];
+If[frame=="Einstein",
+        TEF=(T* Exp[-4/Sqrt[3]\[CurlyPhi]c]);,
+        TEF=(T)];
+        
+(* Computation of the effective energy-momentum tensor. Aa converts matter quantities to the Jordan-Frame. *)
+Teff=TeffST[coors,g,{V\[CurlyPhi],var\[CurlyPhi]},pert,"Frame"->frame,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+If[frame=="Einstein",
+       Aa[\[CurlyPhi]_]:=Exp[-\[CurlyPhi]/Sqrt[3]];
+       \[Alpha]a[\[CurlyPhi]_]:=D[Log[Aa[\[CurlyPhi]]],\[CurlyPhi]];
+       Ttot=FullSimplify[8\[Pi](T\[Mu]\[Nu] Aa[\[CurlyPhi]c]^4 +Teff)];
+       ;,
+       Aa[\[CurlyPhi]_]:=1;
+       \[Alpha]a[\[CurlyPhi]_]:=1; 
+       Ttot=FullSimplify[8\[Pi]/\[CurlyPhi]c(T\[Mu]\[Nu] +Teff)];];
+
+(* Einstein tensor *)
+ET=Einstein[coors,g,pert,"PerturbationIndex"->perti];
+
+(* Solving the equations *)
+eq=ET-Ttot;
+eq2=Simplify[{Solve[eq[[1]]==0,metvars[[3]]'@@riscalvars][[1,1]],Solve[eq[[2]]==0,metvars[[2]]'@@riscalvars][[1,1]]}];
+
+(* Continuity equation and conversion to EF if frame\[Rule]Einstein *)
+eqp=Flatten[Solve[Table[Sum[CovDer[coors,g,T\[Mu]\[Nu]up,{i,i,j},"Valence"->"Contravariant"],{i,Length@coors}],{j,Length@coors}]=={0,0,0,0},metvars[[1]]'@@riscalvars]];
+If[frame=="Einstein",
+           eqaux=Table[T*\[Alpha]a[\[CurlyPhi]c] Sum[gup[[a,b]]D[\[CurlyPhi]c,coors[[a]]],{a,4}],{b,4}];
+           eqp=Equal@@@Flatten[Solve[Table[Sum[CovDer[coors,g,T\[Mu]\[Nu]up,{i,i,j},"Valence"->"Contravariant"],{i,Length@coors}],{j,Length@coors}]==eqaux,dpc]];
+           eqp=Simplify@Solve[eqp/.metvars[[1]]->Function[r,Global`\[Phi][r]^(-2)*metvars[[1]][r]]/.\[Rho]c->(\[Rho]c \[Phi]c^(-2))/.Global`\[Phi]->Function[r,Evaluate[\[Phi]\[CurlyPhi]c[Global`\[CurlyPhi][r]]]],dpc];
+           eqp=Simplify@Normal@Series[Flatten[eqp],{pert,0,perti}];,
+           
+           eqp=Simplify[eqp];];
+
+(* KG equation *)
+If[frame=="Einstein",
+           eqKG=Solve[DAlembert[coors,g,\[CurlyPhi]c]==-4\[Pi]  \[Alpha]a[\[CurlyPhi]c]TEF+1/4 dV\[CurlyPhi]c, \[CurlyPhi]2c];,
+           eqKG=Solve[3DAlembert[coors,g,\[CurlyPhi]c]==8\[Pi]  \[Alpha]a[\[CurlyPhi]c]TEF+ \[CurlyPhi]c dV\[CurlyPhi]c -2 V\[CurlyPhi]c, \[CurlyPhi]2c];];
+
+Normal@Series[Equal@@@Flatten[Join[eqp,eq2,eqKG]],{pert,0,perti}]
+]
+
+
+Options[FRTOV]=Join[{"Signature"->1},Options[TeffST]];
+FRTOV[coors_,met_,fR_,metvars_,pert_,OptionsPattern[]]:=Block[{Global`R,teff,perti,sign,u,udown,g,gup,simpl,T\[Mu]\[Nu]up,T\[Mu]\[Nu],T,Teff,Ttot,ET,riscal,riscalvars,Rc,fRc,dfRc,eq,eq2,eqp,eqKG,R2c},
+sign=OptionValue["Signature"];
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+
+Print["Variables must be given as: {p,Var_gtt,Var_grr,R}"];
+g=met;
+gup=Inverse[g];
+riscal=RicciScalar[coors,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+riscalvars=Complement[coors,Complement[coors,AtomsList[riscal]]];
+Rc=Global`R@@riscalvars;
+R2c=(Global`R'')@@riscalvars;
+fRc=fR/.Global`R->Rc;
+dfRc=D[fRc,Rc];
+
+(* Computation of the matter energy-momentum tensor *)
+T\[Mu]\[Nu]=ETensor[coors,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+T\[Mu]\[Nu]up=(gup.T\[Mu]\[Nu])gup;
+T=Sum[(g.T\[Mu]\[Nu]up)[[i,i]],{i,Length@coors}];
+
+(* Computation of the effective energy-momentum tensor *)
+Teff=TeffFR[coors,g,fR,pert,"PerturbationIndex"->perti];
+Ttot=FullSimplify[8\[Pi]/dfRc(T\[Mu]\[Nu]+Teff)];
+
+(* Einstein tensor *)
+ET=Einstein[coors,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+
+(* Solving the equations *)
+eq=ET-Ttot;
+eq2=Simplify[{Solve[eq[[1]]==0,metvars[[3]]'@@riscalvars][[1,1]],Solve[eq[[2]]==0,metvars[[2]]'@@riscalvars][[1,1]]}];
+
+(* Continuity equation *)
+eqp=Flatten[Solve[Table[Sum[CovDer[coors,g,T\[Mu]\[Nu]up,{i,i,j},"Valence"->"Contravariant"],{i,Length@coors}],{j,Length@coors}]=={0,0,0,0},metvars[[1]]'@@riscalvars]];
+
+(* KG equation *)
+eqKG=Solve[(3DAlembert[coors,g,dfRc]+dfRc Rc-2fRc)==8\[Pi] T,R2c];
+
+Equal@@@Flatten[Join[eqp,eq2,eqKG]]
+]
+
+
+fR2Pot[fR_,\[Phi]\[CurlyPhi]_:1]:=Block[{dfRc,fRc,fun,Rc,uc,Global`R,Global`\[Phi],\[Phi]c,Rc\[Phi]},
+
+Rc=Global`R;
+\[Phi]c=Global`\[Phi];
+fRc=fR/.Global`R->Rc;
+dfRc=D[fRc,Rc];
+
+Rc\[Phi]=(Rc/.Solve[\[Phi]c==dfRc,Rc]);
+uc=Simplify[Rc\[Phi] \[Phi]c - (fRc/.Rc->Rc\[Phi])];
+(* pot=1 gives the JF potential else gives the SF  *)
+$Assumptions = _ \[Element] Reals;
+If[NumericQ@\[Phi]\[CurlyPhi],fun=uc,fun=FullSimplify[(uc/\[Phi]c^2)/.\[Phi]c->\[Phi]\[CurlyPhi]];];
+fun
+];
+
+
+Pot2fR[V\[CurlyPhi]_,\[Phi]\[CurlyPhi]_]:=Block[{dfRc,fRc,fun,Rc,uc,Global`R,Global`\[Phi],Global`\[CurlyPhi],\[Phi]c,Rc\[Phi],\[CurlyPhi]c},
+
+
+
+Rc=Global`R;
+\[Phi]c=Global`\[Phi];
+\[CurlyPhi]c=Global`\[CurlyPhi];
+fRc=fR/.Global`R->Rc;
+dfRc=D[fRc,Rc];
+
+Return[Solve[\[Phi]\[CurlyPhi]==\[Phi]c,\[CurlyPhi]c]];
+
+Rc\[Phi]=(Rc/.Solve[\[Phi]c==dfRc,Rc])[[1]];
+uc=Simplify[Rc\[Phi] \[Phi]c - (fRc/.Rc->Rc\[Phi])];
+(* pot=1 gives the JF potential else gives the SF  *)
+$Assumptions = _ \[Element] Reals;
+If[NumericQ@\[Phi]\[CurlyPhi],fun=uc,fun=FullSimplify[(uc/\[Phi]c^2)/.\[Phi]c->\[Phi]\[CurlyPhi]];];
+fun
+];
+
+
+EoSCallParsBSks[model_]:=
+Block[{a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,table,pars},
+
+table={{a1,3.916`,4.078`,4.857`},{a2,7.701`,7.587`,6.981`},{a3,0.00858`,0.00839`,0.00706`},{a4,0.22114`,0.21695`,0.19351`},{a5,3.269`,3.614`,4.085`},{a6,11.964`,11.942`,12.065`},{a7,13.349`,13.751`,10.521`},{a8,1.3683`,1.3373`,1.5905`},{a9,3.254`,3.606`,4.104`},{a10,-12.953`,-22.996`,-28.726`},{a11,0.9237`,1.6229`,2.0845`},{a12,6.2`,4.88`,4.89`},{a13,14.383`,14.274`,14.302`},{a14,16.693`,23.56`,22.881`},{a15,-1.0514`,-1.5564`,-1.769`},{a16,2.486`,2.095`,0.989`},{a17,15.362`,15.294`,15.313`},{a18,0.085`,0.084`,0.091`},{a19,6.23`,6.36`,4.68`},{a20,11.68`,11.67`,11.65`},{a21,-0.029`,-0.042`,-0.086`},{a22,20.1`,14.8`,10.`},{a23,14.19`,14.18`,14.15`}};
+
+pars=Table[table[[i,1]]->table[[i,model+1]],{i,Length@table}]
+]
+
+
+EoSCallParsSly[model_]:=
+Block[{a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,table,pars},
+
+table={{a1, 6.22},{a10,11.4950},
+{a2,6.121},{a11,-22.775},
+{a3,0.005925},{a12,1.5707},
+{a4,0.16326},{a13,4.3 },
+{a5,6.48},{a14,14.08 },
+{a6,11.4971},{a15,27.80 },
+{a7,19.105},{a16,-1.653},
+{a8,0.8938},{a17,1.50},
+{a9,6.54},{a18,14.67}};
+
+pars=Table[table[[i,1]]->table[[i,model+1]],{i,Length@table}]
+]
+
+
+EoSBSks[model_]:=Block[{\[Zeta],\[Rho],pars},
+pars=EoSCallParsBSks[model];
+
+\[Zeta]=(a1+a2 \[Rho] +a3 \[Rho]^3)/(1+a4 \[Rho]) (Exp[a5(\[Rho]-a6)]+1)^(-1)+(a7+a8 \[Rho])(Exp[a9(a6-\[Rho])]+1)^(-1)
++(a10+a11 \[Rho])(Exp[a12(a13-\[Rho])]+1)^(-1)+(a14+a15 \[Rho])(Exp[a16(a17-\[Rho])]+1)^(-1)
++a18/(1+(a19(\[Rho]-a20))^2)+a21/(1+(a22(\[Rho]-a20))^2);
+\[Zeta]/.pars
+
+]
+
+
+EoSSly[model_]:=Block[{\[Zeta],\[Rho],pars,x,f0},
+
+pars=EoSCallParsSly[model];
+f0[x_]:=1/(Exp[x]+1);
+
+\[Zeta]=(a1+a2 \[Rho] +a3 \[Rho]^3)/(1+a4 \[Rho]) f0[a5(\[Rho]-a6)]+
+(a7+a8 \[Rho])f0[(a9(a10-\[Rho]))]+
+(a11+a12 \[Rho])f0[(a13(a14-\[Rho]))]+
+(a15+a16 \[Rho])f0[(a17(a18-\[Rho]))];
+\[Zeta]/.pars
+
+]
+
+
+SlyInner={{0.00020905`,3.4951`*^11,6.214999999999999`*^29,1.177`,0.0099795`,1.6774`*^13,3.072`*^31,1.342`},{0.00022059000000000003`,3.6883`*^11,6.4304`*^29,0.527`,0.012513000000000002`,2.1042`*^13,4.1574`*^31,1.332`},{0.00023114`,3.865`*^11,6.5813`*^29,0.476`,0.016547`,2.7844000000000004`*^13,6.023399999999999`*^31,1.322`},{0.00026426`,4.4199`*^11,6.9945`*^29,0.447`,0.021405`,3.6043`*^13,8.461299999999999`*^31,1.32`},{0.00030533000000000003`,5.1079999999999994`*^11,7.4685`*^29,0.466`,0.024157`,4.068800000000001`*^13,9.928599999999999`*^31,1.325`},{0.00035331`,5.9119`*^11,8.0149`*^29,0.504`,0.027894000000000002`,4.7001`*^13,1.2022999999999999`*^32,1.338`},{0.00040763999999999997`,6.8224`*^11,8.644299999999999`*^29,0.554`,0.031941000000000004`,5.3843`*^13,1.4430000000000001`*^32,1.358`},{0.000468`,7.8339`*^11,9.3667`*^29,0.61`,0.036264`,6.115300000000001`*^13,1.7175`*^32,1.387`},{0.00053414`,8.9426`*^11,1.0190999999999999`*^30,0.668`,0.039888`,6.7284`*^13,1.9626`*^32,1.416`},{0.00060594`,1.0146`*^12,1.1128`*^30,0.726`,0.044578`,7.5224`*^13,2.3024`*^32,1.458`},{0.00076608`,1.2831`*^12,1.337`*^30,0.84`,0.048425`,8.1738`*^13,2.6018`*^32,1.496`},{0.0010471`,1.7543`*^12,1.7792`*^30,0.987`,0.052327000000000005`,8.835000000000002`*^13,2.9261000000000002`*^32,1.536`},{0.0012616`,2.1141`*^12,2.1547000000000002`*^30,1.067`,0.056264`,9.5022`*^13,3.2756`*^32,1.576`},{0.0016246000000000001`,2.7232`*^12,2.8565000000000003`*^30,1.16`,0.060218999999999995`,1.0173000000000002`*^14,3.6505000000000004`*^32,1.615`},{0.0020384`,3.4178`*^12,3.7461000000000004`*^30,1.227`,0.064183`,1.0845`*^14,4.0509000000000005`*^32,1.65`},{0.0026726000000000002`,4.4827`*^12,5.2679`*^30,1.286`,0.067163`,1.1351`*^14,4.3681`*^32,1.672`},{0.0034064`,5.7153`*^12,7.230400000000001`*^30,1.322`,0.070154`,1.1859`*^14,4.6998`*^32,1.686`},{0.0044746`,7.5106`*^12,1.0404999999999999`*^31,1.344`,0.073174`,1.2372`*^14,5.0462`*^32,1.685`},{0.005726`,9.6148`*^12,1.4513`*^31,1.353`,0.075226`,1.272`*^14,5.2856`*^32,1.662`},{0.0074963`,1.2593`*^13,2.0894`*^31,1.351`,0.075959`,1.2845`*^14,5.3739`*^32,1.644`}};
+
+
+SlyLCore={{0.0771`,1.3038`*^14,5.3739`*^32,2.159`,0.49`,8.850899999999999`*^14,1.0315`*^35,2.953`},{0.08`,1.3531`*^14,5.8259999999999996`*^32,2.217`,0.52`,9.4695`*^14,1.2289`*^35,2.943`},{0.085`,1.4381`*^14,6.6828`*^32,2.309`,0.55`,1.0102`*^15,1.4491`*^35,2.933`},{0.09`,1.5232`*^14,7.6443`*^32,2.394`,0.58`,1.0748`*^15,1.693`*^35,2.924`},{0.1`,1.6935`*^14,9.9146`*^32,2.539`,0.61`,1.1408`*^15,1.9616`*^35,2.916`},{0.11`,1.8641`*^14,1.2700999999999999`*^33,2.655`,0.64`,1.2085`*^15,2.2558999999999998`*^35,2.908`},{0.12`,2.035`*^14,1.6063`*^33,2.708`,0.67`,1.2777`*^15,2.5769`*^35,2.9`},{0.13`,2.2063`*^14,1.9971`*^33,2.746`,0.7`,1.3486`*^15,2.9255`*^35,2.893`},{0.16`,2.7223000000000003`*^14,3.5926999999999995`*^33,2.905`,0.75`,1.4706`*^15,3.5702`*^35,2.881`},{0.19`,3.2424`*^14,5.9667`*^33,2.99`,0.8`,1.5977`*^15,4.2981`*^35,2.869`},{0.22`,3.7675`*^14,9.2766`*^33,3.025`,0.85`,1.7302`*^15,5.1128999999999996`*^35,2.858`},{0.25`,4.2983`*^14,1.3668`*^34,3.035`,0.9`,1.8683`*^15,6.0183`*^35,2.847`},{0.28`,4.8358`*^14,1.9276999999999999`*^34,3.032`,0.95`,2.0123000000000002`*^15,7.0176`*^35,2.836`},{0.31`,5.3808`*^14,2.6234999999999996`*^34,3.023`,1.`,2.1624`*^15,8.113899999999998`*^35,2.824`},{0.34`,5.934`*^14,3.467`*^34,3.012`,1.1`,2.482`*^15,1.0609`*^36,2.801`},{0.37`,6.4963`*^14,4.4702`*^34,2.999`,1.2`,2.8289`*^15,1.3524`*^36,2.778`},{0.4`,7.0684`*^14,5.6451`*^34,2.987`,1.3`,3.2048`*^15,1.6876`*^36,2.754`},{0.43`,7.651`*^14,7.0033`*^34,2.975`,1.4`,3.6113`*^15,2.0678999999999998`*^36,2.731`},{0.46`,8.244999999999999`*^14,8.5561`*^34,2.964`,1.5`,4.0498000000000005`*^15,2.4947`*^36,2.708`}};
+
+
+SlyLCoreAll=Join[TakeColumn[SlyLCore,{2,3}],TakeColumn[SlyLCore,{6,7}]]/.{zz_,yy_}->{Log[10,zz],Log[10,yy]};
+
+
+SlyInnerAll=Join[TakeColumn[SlyInner,{2,3}],TakeColumn[SlyInner,{6,7}]]/.{zz_,yy_}->{Log[10,zz],Log[10,yy]};
+
+
+EoSFitsPars[model_,verbose_:False]:=Module[{eostable},
+eostable={{"PAL6",34.38`,2.227`,2.189`,2.159`,0.0011`,0.693`,1.37`,1.477`,-0.47`,0.374`,-0.51`,1660,-0.97`,1.051`,-2.03`,10.547`,-0.54`},{"SLy",34.384`,3.005`,2.988`,2.851`,0.002`,0.989`,1.41`,2.049`,0.02`,0.592`,0.81`,1810,0.1`,1.288`,-0.08`,11.736`,-0.21`},{"APR1",33.943`,2.442`,3.256`,2.908`,0.019`,0.924`,9.94`,1.683`,-1.6`,0.581`,2.79`,2240,1.05`,0.908`,-2.57`,9.361`,-1.85`},{"APR2",34.126`,2.643`,3.014`,2.945`,0.0089`,1.032`,0.42`,1.808`,-1.5`,0.605`,0.33`,2110,-0.02`,1.024`,-2.34`,10.179`,-1.57`},{"APR3",34.392`,3.166`,3.573`,3.281`,0.0091`,1.134`,2.72`,2.39`,-1.`,0.704`,0.57`,1810,-0.14`,1.375`,-1.59`,12.094`,-0.96`},{"APR4",34.269`,2.83`,3.445`,3.348`,0.0068`,1.16`,1.45`,2.213`,-1.08`,0.696`,0.22`,1940,0.05`,1.243`,-1.36`,11.428`,-0.9`},{"FPS",34.283`,2.985`,2.863`,2.6`,0.005`,0.883`,2.29`,1.799`,-0.03`,0.53`,0.67`,1880,0.11`,1.137`,0.03`,10.85`,0.12`},{"WFF1",34.031`,2.519`,3.791`,3.66`,0.018`,1.185`,7.86`,2.133`,-0.29`,0.739`,2.21`,2040,0.3`,1.085`,0.1`,10.414`,0.02`},{"WFF2",34.233`,2.888`,3.475`,3.517`,0.017`,1.139`,7.93`,2.198`,-0.14`,0.717`,0.71`,1990,0.03`,1.204`,-0.59`,11.159`,-0.28`},{"WFF3",34.283`,3.329`,2.952`,2.589`,0.017`,0.835`,8.11`,1.844`,-0.48`,0.53`,2.26`,1860,0.59`,1.16`,-0.25`,10.926`,-0.12`},{"BBB2",34.331`,3.418`,2.835`,2.832`,0.0055`,0.914`,7.75`,1.918`,0.1`,0.574`,0.97`,1900,0.47`,1.188`,0.17`,11.139`,-0.29`},{"BPAL12",34.358`,2.209`,2.201`,2.176`,0.001`,0.708`,1.03`,1.452`,-0.18`,0.382`,-0.29`,1700,-1.03`,0.974`,0.2`,10.024`,0.67`},{"ENG",34.437`,3.514`,3.13`,3.168`,0.015`,1.`,10.71`,2.24`,-0.05`,0.654`,0.39`,1820,-0.44`,1.372`,-0.97`,12.059`,-0.69`},{"MPA1",34.495`,3.446`,3.572`,2.887`,0.0081`,0.994`,4.91`,2.461`,-0.16`,0.67`,-0.05`,1700,-0.18`,1.455`,-0.41`,12.473`,-0.26`},{"MS1",34.858`,3.224`,3.033`,1.325`,0.019`,0.888`,12.44`,2.767`,-0.54`,0.606`,-0.52`,1400,1.67`,1.944`,-0.09`,14.918`,0.06`},{"MS2",34.605`,2.447`,2.184`,1.855`,0.003`,0.582`,3.96`,1.806`,-0.42`,0.343`,2.57`,1250,2.25`,1.658`,0.46`,14.464`,-2.69`},{"MS1b",34.855`,3.456`,3.011`,1.425`,0.015`,0.889`,11.38`,2.776`,-1.03`,0.614`,-0.56`,1420,1.38`,1.888`,-0.64`,14.583`,-0.32`},{"PS",34.671`,2.216`,1.64`,2.365`,0.028`,0.691`,7.36`,1.755`,-1.53`,0.355`,-1.45`,1300,-2.39`,2.067`,-3.06`,15.472`,3.72`},{"GS1",34.504`,2.35`,1.267`,2.421`,0.018`,0.695`,0.49`,1.382`,-1.`,0.395`,-0.64`,1660,9.05`,0.766`,-3.13`,Null},{"GS2",34.642`,2.519`,1.571`,2.314`,0.026`,0.592`,16.1`,1.653`,-0.3`,0.339`,7.71`,1340,3.77`,1.795`,-3.33`,14.299`,0.07`},{"BGN1H1",34.623`,3.258`,1.472`,2.464`,0.029`,0.878`,-7.42`,1.628`,0.39`,0.437`,-3.55`,1670,-2.08`,1.504`,0.56`,12.901`,-1.96`},{"GNH3",34.648`,2.664`,2.194`,2.304`,0.0045`,0.75`,2.04`,1.962`,0.13`,0.427`,0.37`,1410,-0.04`,1.713`,0.38`,14.203`,-0.28`},{"H1",34.564`,2.595`,1.845`,1.897`,0.0019`,0.561`,2.81`,1.555`,-0.92`,0.311`,-1.47`,1320,-1.46`,1.488`,-1.45`,12.861`,-0.03`},{"H2",34.617`,2.775`,1.855`,1.858`,0.0028`,0.565`,1.38`,1.666`,-0.77`,0.322`,-0.55`,1280,-1.29`,1.623`,-0.82`,13.479`,0.29`},{"H3",34.646`,2.787`,1.951`,1.901`,0.007`,0.564`,7.05`,1.788`,-0.79`,0.343`,1.07`,1290,-0.88`,1.702`,-1.18`,13.84`,0.31`},{"H4",34.669`,2.909`,2.246`,2.144`,0.0028`,0.685`,4.52`,2.032`,-0.85`,0.428`,-1.01`,1400,-1.28`,1.729`,-1.18`,13.774`,1.34`},{"H5",34.609`,2.793`,1.974`,1.915`,0.005`,0.596`,1.65`,1.727`,-1.`,0.347`,-0.82`,1340,-1.55`,1.615`,-1.31`,13.348`,0.68`},{"H6",34.593`,2.637`,2.121`,2.064`,0.0087`,0.598`,11.71`,1.778`,0.07`,0.346`,8.65`,1310,5.33`,1.623`,-2.19`,13.463`,0.37`},{"H7",34.559`,2.621`,2.048`,2.006`,0.0046`,0.63`,1.82`,1.683`,-1.12`,0.357`,-0.57`,1410,-1.52`,1.527`,-2.33`,12.992`,0.23`},{"PCL2",34.507`,2.554`,1.88`,1.977`,0.0069`,0.6`,1.74`,1.482`,-0.79`,0.326`,-2.25`,1440,-1.87`,1.291`,-3.27`,11.761`,-1.15`},{"ALF1",34.055`,2.013`,3.389`,2.033`,0.04`,0.565`,18.59`,1.495`,-0.53`,0.386`,3.52`,1730,2.44`,0.987`,-0.4`,9.896`,-0.22`},{"ALF2",34.616`,4.07`,2.411`,1.89`,0.043`,0.642`,1.5`,2.086`,-5.26`,0.436`,-0.62`,1440,1.01`,1.638`,-6.94`,13.188`,-3.66`},{"ALF3",34.283`,2.883`,2.653`,1.952`,0.017`,0.565`,11.29`,1.473`,-0.06`,0.358`,2.46`,1620,1.79`,1.041`,0.76`,10.314`,-0.25`},{"ALF4",34.314`,3.009`,3.438`,1.803`,0.023`,0.685`,14.78`,1.943`,-0.93`,0.454`,0.59`,1590,0.52`,1.297`,-2.38`,11.667`,-1.2`}};
+If[verbose,eostable[[All,1]],Flatten@Select[eostable,#[[1]]==model&]]
+]
+
+
+EoSSlyCrust[\[Rho]_]:=Module[{pol1,pol2,pol3,pol4,\[Rho]l1,\[Rho]l2,\[Rho]l3,k1,k2,k3,k4,\[CapitalGamma]1,\[CapitalGamma]2,\[CapitalGamma]3,\[CapitalGamma]4,c},
+
+c=2.99792458 10^10;
+\[Rho]l1=Log[10,2.44034 10^(07)];
+\[Rho]l2=Log[10,3.78358 10^(11)];
+\[Rho]l3=Log[10,2.62780 10^(12)];
+
+k1=Log[10,(6.80110 10^(-9))*c^2];
+k2=Log[10,(1.06186 10^(-6))*c^2];
+k3=Log[10,(5.32697 10)*c^2];
+k4=Log[10,(3.99874 10^(-8))*c^2];
+
+\[CapitalGamma]1=1.58425;
+\[CapitalGamma]2=1.28733;
+\[CapitalGamma]3=0.62223;
+\[CapitalGamma]4=1.35692;
+
+pol1=k1+ \[CapitalGamma]1 \[Rho];
+pol2=k2+ \[CapitalGamma]2 \[Rho];
+pol3=k3+ \[CapitalGamma]3 \[Rho];
+pol4=k4+ \[CapitalGamma]4 \[Rho];
+
+Piecewise[{{pol1,\[Rho]<=\[Rho]l1},{pol2,\[Rho]l1<\[Rho]<=\[Rho]l2},{pol3,\[Rho]l2<\[Rho]<=\[Rho]l3},{pol4,\[Rho]>\[Rho]l3}}]
+
+];
+
+
+EoSPol[model_:"PolR"]:=Block[{k,\[CapitalGamma],pol,Global`\[Rho],c,pol1,pol2,k2},
+
+If[ListQ[model],k=Log10[model[[1]]];\[CapitalGamma]=model[[2]];pol=k+ \[CapitalGamma] Global`\[Rho],
+
+Which[model=="PolNR",k=Log[10,(3.3)];\[CapitalGamma]=2; pol=k+ \[CapitalGamma] Global`\[Rho];,
+	  model=="PolR",k=Log[10,(1.98183*10^-6)];\[CapitalGamma]=2.75; pol=k+ \[CapitalGamma] Global`\[Rho];,
+	  model=="PolMS",k=Log[10,3.849119840037`*^14];\[CapitalGamma]=4/3; pol= k +\[CapitalGamma] Global`\[Rho];,
+	  model=="PolMSMix",k=Log[10,3.849119840037`*^14]; pol1=k+ 4/3 Global`\[Rho];k2=Log[10,1.2392481667219052`*^15];pol2= k2+ 5/3 Global`\[Rho]; pol=Piecewise[{{pol1,Global`\[Rho]>Log10[0.029964]},{pol2,Global`\[Rho]<=Log10[0.029964]}}];,
+	  True,Return[]];
+	  ];
+pol	  
+]
+
+
+EoSPol\[Epsilon][model_:"PolR"]:=Block[{k,\[CapitalGamma],pol,Global`\[Rho],c,pol1,pol2,k2},
+c=2.99792458 10^10;
+
+If[ListQ[model],k=Log10[model[[1]]];\[CapitalGamma]=model[[2]];pol=k+ \[CapitalGamma] Global`\[Rho],
+
+Which[model=="PolNR",k=Log[10,(3.3)];\[CapitalGamma]=2; pol=k+ \[CapitalGamma] Global`\[Rho],
+	  model=="PolR",k=Log[10,(1.98183*10^-6)];\[CapitalGamma]=2.75; pol=k+ \[CapitalGamma] Global`\[Rho],
+	  model=="PolMS",k=Log[10,3.849119840037`*^14];\[CapitalGamma]=4/3; pol=k+ \[CapitalGamma] Global`\[Rho];];
+	  ];
+Global`\[Rho] +10^k/(c^2(\[CapitalGamma]-1))Global`\[Rho]^(\[CapitalGamma])
+]
+
+
+Options[EoSFits]:={"PhysUnits"->False,"Verbose"->False}
+EoSFits[model_,OptionsPattern[]]:=Block[{P0Sly=Log[10,5.37*10^(32)],\[Rho]0Sly=Log[10,1.2845 10^14],\[CapitalGamma]0=4/3,\[Rho]1=Log[10,10^(14.7)],\[Rho]2=Log[10,10^(15.)],fit0,fit1,fit2,
+fit3,Global`\[Rho],p,pars,p1, \[CapitalGamma]1,\[CapitalGamma]2,\[CapitalGamma]3,K0,K1,K2,K3,\[Rho]0c,p2,verbose,picore,res,\[Rho]1c,\[Rho]2c,\[Rho]3c,k1c,k2c,k3c,k4c,\[CapitalGamma]1c,\[CapitalGamma]2c,\[CapitalGamma]3c,\[CapitalGamma]4c,fit1c,fit2c,fit3c,fit4c,physuns,c},
+verbose=OptionValue["Verbose"];
+physuns=OptionValue["PhysUnits"];
+If[verbose,Print[" EoS available "];Return[EoSFitsPars[model,True]]];
+
+c=2.99792458 10^10;
+(* values for the crust taken from SLy crust model *)
+\[Rho]1c=Log[10,2.44034 10^(07)];
+\[Rho]2c=Log[10,3.78358 10^(11)];
+\[Rho]3c=Log[10,2.62780 10^(12)];
+
+k1c=Log[10,(6.80110 10^(-9))*c^2];
+k2c=Log[10,(1.06186 10^(-6))*c^2];
+k3c=Log[10,(5.32697 10)*c^2];
+k4c=Log[10,(3.99874 10^(-8))*c^2];
+
+\[CapitalGamma]1c=1.58425;
+\[CapitalGamma]2c=1.28733;
+\[CapitalGamma]3c=0.62223;
+\[CapitalGamma]4c=1.35692;
+
+fit1c=k1c+ \[CapitalGamma]1c Global`\[Rho];
+fit2c=k2c+ \[CapitalGamma]2c Global`\[Rho];
+fit3c=k3c+ \[CapitalGamma]3c Global`\[Rho];
+fit4c=k4c+ \[CapitalGamma]4c Global`\[Rho];
+
+
+(* p1, \[CapitalGamma]1,\[CapitalGamma]2,\[CapitalGamma]3*)
+{p1, \[CapitalGamma]1,\[CapitalGamma]2,\[CapitalGamma]3}=EoSFitsPars[model][[2;;5]];
+
+(* Using a polytropic SLy for the crust *)
+K1=(p1-(\[CapitalGamma]1 \[Rho]1));
+fit0=Piecewise[{{fit1c,Global`\[Rho]<=\[Rho]1c},{fit2c,\[Rho]1c<Global`\[Rho]<=\[Rho]2c},{fit3c,\[Rho]2c<Global`\[Rho]<=\[Rho]3c},{fit4c,Global`\[Rho]>\[Rho]3c}}];
+fit1=K1+(\[CapitalGamma]1 Global`\[Rho]);
+\[Rho]0c=(Global`\[Rho]/.Solve[fit0==K1+\[CapitalGamma]1 Global`\[Rho],Global`\[Rho]])[[1]];
+
+K2=p1-(\[CapitalGamma]2 \[Rho]1);
+fit2=K2+(\[CapitalGamma]2 Global`\[Rho]);
+p2=K2+(\[CapitalGamma]2 \[Rho]2);
+
+K3=p2-(\[CapitalGamma]3 \[Rho]2);
+fit3=K3+(\[CapitalGamma]3 Global`\[Rho]);
+If[Not@physuns,
+res=Piecewise[{{fit1c,Global`\[Rho]<=\[Rho]1c},{fit2c,\[Rho]1c<Global`\[Rho]<=\[Rho]2c},{fit3c,\[Rho]2c<Global`\[Rho]<=\[Rho]3c},{fit4c,\[Rho]3c<Global`\[Rho]<=\[Rho]0c},{fit1,\[Rho]0c<Global`\[Rho]<=\[Rho]1},{fit2,\[Rho]1<Global`\[Rho]<=\[Rho]2},{fit3,Global`\[Rho]>\[Rho]2}}];,
+res=Piecewise[{{10^(fit1c/.Global`\[Rho]->Log[10,Global`\[Rho]]),Global`\[Rho]<=10^\[Rho]1c},{10^(fit2c/.Global`\[Rho]->Log[10,Global`\[Rho]]),10^\[Rho]1c<Global`\[Rho]<=10^\[Rho]2c},{10^(fit3c/.Global`\[Rho]->Log[10,Global`\[Rho]]),10^\[Rho]2c<Global`\[Rho]<=10^\[Rho]3c},{10^(fit4c/.Global`\[Rho]->Log[10,Global`\[Rho]]),10^\[Rho]3c<Global`\[Rho]<=10^\[Rho]0c},{10^(fit1/.Global`\[Rho]->Log[10,Global`\[Rho]]),10^\[Rho]0c<Global`\[Rho]<=10^\[Rho]1},{10^(fit2/.Global`\[Rho]->Log[10,Global`\[Rho]]),10^\[Rho]1<Global`\[Rho]<=10^\[Rho]2},{10^(fit3/.Global`\[Rho]->Log[10,Global`\[Rho]]),Global`\[Rho]>10^\[Rho]2}}];
+];
+res
+]
+
+
+From\[Rho]To\[Epsilon]Fits[eos_]:=Block[{Global`\[Rho],ks,\[Gamma]s,pols,polsd,a,\[Rho]s,\[Epsilon],tab,k,k1,\[Gamma],\[Gamma]1,\[Rho]v,c},
+c=2.99792458 10^10;
+If[eos=="PolMSMix",pols=EoSPol[eos][[1]],pols=EoSFits[eos][[1]]];
+{ks,\[Gamma]s}=Transpose[CoefficientList[#,Global`\[Rho]]&/@pols[[All,1]]];
+polsd=pols[[All,2]];
+\[Rho]s=DeleteDuplicates@polsd[[All,-1]];
+a=0;
+\[Epsilon][Global`\[Rho]_,a_,k_,\[Gamma]_]:=(1+a)Global`\[Rho] + k/(c^2(\[Gamma]-1))Global`\[Rho]^(\[Gamma]);
+polsd=Table[10^\[Rho]s[[i]]<Global`\[Rho]<=10^\[Rho]s[[i+1]],{i,Length@\[Rho]s-1}];
+polsd=Join[{Global`\[Rho]<=10^\[Rho]s[[1]]},polsd,{Global`\[Rho]>10^\[Rho]s[[-1]]}];
+
+tab=Table[k=10^ks[[i]];\[Gamma]=\[Gamma]s[[i]];\[Rho]v=10^\[Rho]s[[i]];k1=10^ks[[i+1]];\[Gamma]1=\[Gamma]s[[i+1]];
+           a=\[Epsilon][\[Rho]v,a,k,\[Gamma]]/\[Rho]v-1- k1/(c^2(\[Gamma]1-1))\[Rho]v^(\[Gamma]1-1);
+		  {\[Epsilon][Global`\[Rho],a,k1,\[Gamma]1],polsd[[i+1]]}
+,{i,1,Length@\[Rho]s}];
+
+Simplify@Piecewise[Join[{{\[Epsilon][Global`\[Rho],0,10^ks[[1]],\[Gamma]s[[1]]],polsd[[1]]}},tab]]
+]
+
+
+RK4[func_?ListQ,vars_?ListQ,ivals_?ListQ,pars_?ListQ,step_]:=Module[{k1,k2,k3,k4,x2,f1,f2,x3,f3,x4,f4,dx,x,x0,sol},
+
+dx=step;
+{x,x0}={pars[[1]],pars[[2]]};
+
+k1=dx ((func/.x->(x0))/.MapThread[Rule, {vars,ivals}]);
+k2=dx ((func/.x->(x0+dx/2))/.MapThread[Rule, {vars,ivals +1/2 k1}]);
+k3=dx ((func/.x->(x0+dx/2))/.MapThread[Rule, {vars,ivals +1/2 k2}]);
+k4=dx ((func/.x->(x0+dx))/.MapThread[Rule, {vars,ivals + k3}]);
+
+ivals+1/6(k1+2k2+2k3+k4)
+]
+
+
+TestCode[eqs_,vars_,icond_,rlst_,drlst_]:=Module[{R1,R,v1,v,w1,w,\[Lambda]1,\[Lambda],p1,p,eqsrules,atomlst,atomlstaux,solvevars,varsp1,rvar,rval,drvar,drval},
+{rvar,rval}=rlst;
+{drvar,drval}=drlst;
+eqsrules=(Flatten[eqs/.MapThread[Rule, {vars,icond}]])/.drvar->drval/.rvar->rval;
+varsp1=Flatten[eqs][[All,1]];
+eqsrules=Flatten@Solve[eqsrules,varsp1];
+
+Return[varsp1/.eqsrules];
+]
+
+
+Options[BracketingSTNStars]={"Tolerance"->10^(-8),"Verbose"->False,"MaxIteraton"->100,"NPoints"->1000,"AssymptoticMatch"->None,"AssymptoticValue"->10^-8};
+BracketingSTNStars[eqs_,eqsRg_,Global`r_,vars_,shtdInd_,varshtdRg_,OptionsPattern[]]:=Module[{dom,eqsht,
+Sh0,Sh0m,posref,mean,tol,Sh\[Infinity],Sh\[Infinity]m,Sh\[Infinity]m2,Sh0m2,Sh0ref,
+a,posreftest,verbose,begin,eqsRga,brack,varshtdRga,varsa,varshta,varshtalw,dvarshta,out,ShtStr,raux,np,i,amax,assymptotic,
+Rs,r,datab,datfit,a0,m,y1,y2,A3,assval,threshold,Sh\[Infinity]maux},
+
+(* Loading options *)
+tol=OptionValue["Tolerance"];
+verbose=OptionValue["Verbose"];
+amax=OptionValue["MaxIteraton"];
+assymptotic=OptionValue["AssymptoticMatch"];
+np=OptionValue["NPoints"];
+assval=OptionValue["AssymptoticValue"];
+
+(* Some auxiliary variables *)
+eqsRga=eqsRg;
+varshtdRga=varshtdRg;
+varsa=ToExpression[(ToString[#]<>"a")&/@vars];
+varshta=Join[varshtdRga,{Mean[varshtdRga]}];
+ShtStr=ToString[varsa[[shtdInd]]];
+a=0 (* auxiliary counter *) ;
+i=0 (* auxiliary counter *) ; 
+dvarshta=(varshta[[2]]-varshta[[1]])/np;
+(* In case 'bracketing' is activated, we split  [varshta[[1]], varshta[[2]]] in np points *)
+
+    Sh\[Infinity]m=1.1;
+    If[assval>=1,threshold=assval,threshold=0];
+    While[Sh\[Infinity]m>threshold&&i< np,
+          i=i+1;
+          Sh\[Infinity]maux=Sh\[Infinity]m;
+          varshtalw=varshtdRg[[2]] - i*dvarshta;
+          If[verbose, Print["n: ",i," Redefining upper limit as: ",varshtalw]];
+      	eqsht={vars[[shtdInd]][eqsRga[[1]]]==varshtalw};
+      	eqsht=Join[eqs,eqsht];
+      	varsa=vars/.Flatten[NDSolve[eqsht,vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+      	dom=InterpolationDomain[varsa[[1]]];
+	      Sh\[Infinity]m=varsa[[shtdInd]]@dom[[2]];
+	];
+	
+	Return[{varshtalw,varshtalw + dvarshta,i}]
+	(* The - is to avoid varshta[[1]]=varshta[[2]] *)
+	(*varshta[[2]]=varshtalw +  dvarshta;		
+	If[verbose, Print[" New upper limit: ",varshta[[2]]]];
+    Sh\[Infinity]m=-0.1;  
+    i=0;
+    varshtalw=varshta[[1]];
+    If[assval\[GreaterEqual]1,threshold=assval,threshold=0];
+	While[Sh\[Infinity]m<threshold && i<np,
+			i=i+1;
+			varshtalw=varshtdRg[[1]] +i*dvarshta;
+			eqsht={vars[[shtdInd]][eqsRga[[1]]]\[Equal]varshtalw};
+			eqsht=Join[eqs,eqsht];
+			varsa=vars/.Flatten[NDSolve[eqsht,vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal\[Rule]15,PrecisionGoal\[Rule]15,WorkingPrecision\[Rule]30,MaxSteps->Infinity]];
+			dom=InterpolationDomain[varsa[[1]]];
+			Sh\[Infinity]m=varsa[[shtdInd]]@dom[[2]];
+			varshta[[1]]=varshtalw;
+			If[verbose, Print["n: ",i,". Redefining lower limit as: ",varshta[[1]]]];
+			];
+			varshta[[1]]=varshtalw - dvarshta;
+			Return[Flatten[Join[varshta[[1;;2]],{i}]]];
+*)];
+
+
+Options[ShootingNStars]={"Tolerance"->10^(-8),"Verbose"->True,"Bracketing"->False,"MaxIteraton"->100,"NPoints"->1000,"AssymptoticMatch"->None,"AssymptoticValue"->10^-8};
+ShootingNStars[eqs_,eqsRg_,Global`r_,vars_,shtdInd_,varshtdRg_,optNDS__,OptionsPattern[]]:=Module[{dom,eqsht,
+Sh0,Sh0m,posref,mean,tol,Sh\[Infinity],Sh\[Infinity]m,Sh\[Infinity]m2,Sh0m2,Sh0ref,
+a,posreftest,verbose,begin,eqsRga,brack,varshtdRga,varsa,varshta,varshtalw,dvarshta,out,ShtStr,raux,np,i,amax,assymptotic,
+Rs,r,datab,datfit,a0,m,y1,y2,A3,assval,threshold},
+
+(* Loading options *)
+tol=OptionValue["Tolerance"];
+verbose=OptionValue["Verbose"];
+brack=OptionValue["Bracketing"];
+amax=OptionValue["MaxIteraton"];
+assymptotic=OptionValue["AssymptoticMatch"];
+np=OptionValue["NPoints"];
+assval=OptionValue["AssymptoticValue"];
+
+(* Some auxiliary variables *)
+eqsRga=eqsRg;
+varshtdRga=varshtdRg;
+varsa=ToExpression[(ToString[#]<>"a")&/@vars];
+varshta=Join[varshtdRga,{Mean[varshtdRga]}];
+ShtStr=ToString[varsa[[shtdInd]]];
+a=0 (* auxiliary counter *) ;
+i=0 (* auxiliary counter *) ; 
+dvarshta=(varshta[[2]]-varshta[[1]])/np;(* In case 'bracketing' is activated, we split  [varshta[[1]], varshta[[2]]] in np points *)
+
+(* In case shooting is not required *)
+If[Length@varshtdRga==1,
+eqsht={vars[[shtdInd]][eqsRga[[1]]]==(varshta[[1]])};
+eqsht=Join[eqs,eqsht];
+varsa=vars/.Flatten[NDSolve[Chop[eqsht],vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+out=Join[varsa,{a,Rationalize[varsa[[shtdInd]]@eqsRga[[1]]],0}];
+Return[out];
+];
+(* We also include provide a 'bracketing' option in case the bracketing on the shooting variable is required *)
+If[brack,
+    varshtalw=Chop[varshta[[2]]];
+	eqsht={vars[[shtdInd]][eqsRga[[1]]]==varshtalw};
+	eqsht=Join[eqs,eqsht];
+
+	varsa=vars/.Flatten[NDSolve[Chop[eqsht],vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+	dom=InterpolationDomain[varsa[[1]]][[1]];
+	(*If[dom[[2]]<eqsRga[[2]],eqsRga[[2]]=Rationalize[0.9*eqsRga[[2]],1];If[verbose,Print[Style[" Breakup found. Changing rfin to ",Red],eqsRga[[2]]] ];Goto[begin];];*)
+	Which[Sh\[Infinity]m<0&&assval<= 1, Print[Style[" Upper value of the shooted variable is not positive at rmax: Redefine the brackets !",Red]]; Return[];,
+		  Sh\[Infinity]m<1&&assval>= 1, Print[Style[" Upper value of the shooted variable is <1 at rmax: Redefine the brackets !",Red]]; Return[];];
+			
+    Sh\[Infinity]m=-0.1;  
+    i=0;
+    If[assval>=1,threshold=assval,threshold=0];
+	While[Sh\[Infinity]m<threshold && i< np,
+			i=i+1;
+			varshtalw=varshtdRg[[1]] +i*dvarshta;
+			eqsht={vars[[shtdInd]][eqsRga[[1]]]==varshtalw};
+			eqsht=Join[eqs,eqsht];
+			varsa=vars/.Flatten[NDSolve[eqsht,vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+			dom=InterpolationDomain[varsa[[1]]][[1]];
+			Sh\[Infinity]m=Chop[varsa[[shtdInd]]@dom[[2]]];
+			varshta[[1]]=Chop[varshtalw];
+			If[verbose, Print["n: ",i,". Redefining lower limit as: ",varshta[[1]]]];
+			];
+			Return[Flatten[Join[varshta[[1;;2]],{i}]]];
+];
+
+(* First estimates on the value of the shooted variable at  eqsRg1[[2]]. There is a goto to correct possible breakups on the equations. We also include provide a 'bracketing' option in case the bracketing on the unknown variable is needed*)
+Label[begin];
+		Sh\[Infinity]=Table[
+			eqsht={vars[[shtdInd]][eqsRga[[1]]]==(varshta[[i]])};
+			eqsht=Join[eqs,eqsht];
+			varsa=vars/.Flatten[NDSolve[eqsht,vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+			dom=InterpolationDomain[varsa[[1]]][[1]];
+			(*If[dom[[2]]<eqsRga[[2]],eqsRga[[2]]=Rationalize[0.9*eqsRga[[2]],1];If[verbose,Print[Style[" Breakup found. Changing rfin to ",Red],eqsRga[[2]]] ];Goto[begin];];*)
+			Sh\[Infinity]m=varsa[[shtdInd]]@dom[[2]]
+			,{i,3}];
+Sh\[Infinity]m=Sh\[Infinity][[3]];
+Sh0m=varshta[[3]];
+posref=Position[{Abs[Sh\[Infinity][[1]]],Abs[Sh\[Infinity][[2]]]},_?(#==Min[{Abs[Sh\[Infinity][[1]]],Abs[Sh\[Infinity][[2]]]}] &)][[1]];
+Sh\[Infinity]m2=Sh\[Infinity][[posref]][[1]];
+Sh0m2=varshtdRga[[posref]];
+Sh0ref=Flatten[{Sh0m,Sh0m2}];
+mean=Mean[Sh0ref];
+
+(* Starts the shooting loop. *)
+If[verbose,Print["Output: vars, a, "<>ShtStr<>" variable at \[Infinity], Error"]];
+If[verbose,Print["Intermediate prints: iteration, "<>ShtStr<>" at \[Infinity], Error"]];
+
+While[ Abs[Sh\[Infinity]m]>assval &&Abs[1-Sh\[Infinity]m/Sh\[Infinity]m2]>tol && Length@posref>0 && a<= amax,
+a=a+1;
+If[verbose,Print[{a,Round[mean,10^-16],varsa[[shtdInd]]@dom[[2]],Abs[1-Sh\[Infinity]m/Sh\[Infinity]m2]}]];
+eqsht={vars[[shtdInd]][eqsRga[[1]]]==mean};
+eqsht=Join[eqs,eqsht];
+varsa=vars/.Flatten[NDSolve[eqsht,vars,{Global`r,eqsRga[[1]],eqsRga[[2]]},
+AccuracyGoal->15,PrecisionGoal->15,WorkingPrecision->30,MaxSteps->Infinity]];
+(*If[dom[[2]]<eqsRga[[2]],eqsRga[[2]]=Rationalize[0.9*eqsRga[[2]],1];If[verbose,Print[Style[" Breakup found. Changing rfin to ",Red],eqsRga[[2]] ]];Goto[begin];];*)
+dom=InterpolationDomain[varsa[[1]]][[1]];
+Which[assymptotic=="Exponential"&&dom[[2]]==eqsRga[[2]],
+					Rs=0.95(r/.FindRoot[varsa[[1]]@r,{r,6}]);datab=Table[{r,varsa[[shtdInd]]@r},{r,Rs,dom[[2]],0.01}];
+					y1=varsa[[shtdInd]]@Rs;y2=(D[varsa[[shtdInd]]@r,r]/.r->Rs);m=(-y1-Rs^2 y2)/(Rs y1);a0= y1;  
+					datfit=NonlinearModelFit[datab,A3 + a0 Exp[-r m],{A3},r];Print[{a0,m,datfit["BestFitParameters"]}]];
+
+posreftest=Quiet@Position[{Abs[Sh\[Infinity]m],Abs[varsa[[shtdInd]]@dom[[2]]]},_?(#==Min[{Abs@Sh\[Infinity]m,Abs[varsa[[shtdInd]]@dom[[2]]]}] &)];
+If[Length@posreftest>0,posref=posreftest[[1]],posref={};];
+Sh0ref={mean,Sh0ref[[posref]][[1]]};
+mean=Mean[Sh0ref];
+Sh\[Infinity]m2={Sh\[Infinity]m,Sh\[Infinity]m2}[[posref[[1]]]];
+Sh\[Infinity]m=varsa[[shtdInd]]@dom[[2]];
+];
+If[verbose,Print["Output: vars, a, Shooted variable at \[Infinity]"]];
+out=Join[varsa,{a,Round[mean,10^-8],Sh\[Infinity]m}];
+Return[out]
+]
+
+
+ComputeEdges[pts_]:=Module[{ptsx,auxvar,auxvar2,nears,i},
+ptsx=SortBy[pts,First];
+auxvar={};
+i=1;
+AppendTo[auxvar,{ptsx[[i]]}];
+While[i<= Length@ptsx-1,
+If[ptsx[[i+1,1]]==ptsx[[i,1]],i=i+1,AppendTo[auxvar,{ptsx[[i]]}];i=i+1]
+];
+AppendTo[auxvar,{ptsx[[i]]}];
+auxvar=Flatten[auxvar,1];
+
+i=Length@ptsx-1;
+While[i> 1,
+If[ptsx[[i+1,1]]==ptsx[[i,1]],i=i-1,AppendTo[auxvar,ptsx[[i+1]]];i=i-1]
+];
+AppendTo[auxvar,ptsx[[i]]];
+Do[auxvar=AppendTo[auxvar,0.5auxvar[[1]]+0.5auxvar[[-1]]],{i,3}];
+auxvar
+]
+
+
+CredibleRegion[data_,level_]:=Module[{datasrt,prob,cumprob,pbound},
+(* Last column must be the PDF *)
+datasrt=SortBy[data,Last];
+prob=TakeColumn[datasrt,-1];
+cumprob=Accumulate[prob];
+
+pbound=Quiet@Position[cumprob,_?(#>= (1-level) cumprob[[-1]]& ),1][[1,1]];
+
+ComputeEdges[datasrt[[pbound-1;;-1]]][[All,1;;-2]]
+]
+
+
+LoveNumber[eos_,mtot_]:=Module[{y,r,p,\[Epsilon],m,eqy,\[CapitalGamma],eqsGR,listeos,yy,zz,eqEoS,\[Rho]int,pint,rin,\[Rho]c,pc,eqsIC,rMax,alleqs,alleqsnd,Pr,mr,yr,Rm,Mm,Cc,G,c,m0,rg,P0,\[Rho]0,R0},
+
+G=6.67428 10^-8;
+c=2.99792458 10^10;
+m0=1.989 10^33;
+rg= G m0/c^2;
+P0=m0 c^2/rg^3;
+\[Rho]0=m0/rg^3;
+R0=1/rg^2;
+
+eqEoS={p[r]==(10^EoSFits[eos]/.\[Rho]->Log[10,\[Rho]0 \[Rho][r]])/P0};
+listeos=Table[{(EoSFits[eos]/.\[Rho]->x),(From\[Rho]To\[Epsilon]Fits[eos]/.\[Rho]->10^x)},{x,1,16,0.01}];
+\[Rho]int=Interpolation[listeos/.{yy_,zz_}->{(10^yy)/P0,(zz)/( \[Rho]0)}];
+pint=Interpolation[listeos/.{yy_,zz_}->{(zz)/( \[Rho]0),(10^yy)/P0}];
+
+(* Equations 1-2 GR ToVs. Equation 3 k2 eq. *)
+eqsGR={((m[r]+4 \[Pi] r^3 p[r]) (p[r]+\[Rho][r]))/(r^2-2 r m[r])+Derivative[1][p][r]==0,4 \[Pi] r^2 \[Rho][r]-Derivative[1][m][r]==0};
+eqy={y'[r]==-(y[r]^2/r)-(r+4\[Pi] r^3 (p[r]-\[Rho][r]))/(r(r-2m[r])) y[r]+(4(m[r] +4\[Pi] r^3 p[r])^2)/(r(r-2m[r]))+6/(r-2m[r])-(4\[Pi] r^2)/(r-2m[r]) (5\[Rho][r]+9p[r]+(\[Rho][r]  +p[r])/D[pint@\[Rho][r],\[Rho][r]])};
+alleqs=Join[eqsGR,eqy];
+
+(* --------*)
+
+(* Solve the system *)
+\[Rho]c=\[Rho]max[[1]]0.76;
+rin=10^-5;
+pc=eqEoS[[1,2]]/.\[Rho][r]->\[Rho]c;
+
+eqsIC={p[rin]==pc,m[rin]==0,y[rin]==2,WhenEvent[p[r]/pc<10^(-12),rMax=r;"StopIntegration"]};
+alleqsnd=alleqs/.\[Rho][r]->\[Rho]int[p[r]]/.p[r]->Max[p[r],0];
+{Pr,mr,yr}={p,m,y}/.Flatten[NDSolve[Flatten@Join[alleqsnd,Join[eqsIC]],{p,m,y},{r,rin,100},Method->{"ExplicitRungeKutta","DifferenceOrder"->8},AccuracyGoal->16,PrecisionGoal->13]];
+Rm=InterpolationDomain[Pr][[2]];
+Mm=(mr@Rm);
+Cc=Mm/(Rm);
+
+(2/3((c^2/G)(rg Rm)/(Mm*m0))^5)k2[Cc,yr[Rm]]
+
+];
+
+
+k2[c_,y_]:=(8 c^5)/5 (1-2c)^2(2+2c(y-1)-y)(2c(6-3y +3c(5y-8))+4c^3(13-11y+c(3y-2)+2c^2(1+y))
++3(1-2c)^2(2-y+2c(y-1))Log[1-2c])^(-1)
+
+
+(* ::Code::Initialization:: *)
+AtomsList[expr_]:=Union@Select[Level[expr,{0,Infinity}],AtomQ];
+InterpolationDomain[fun_]:=Module[{min,max},fun[[1]]];
+TakeColumn[list1_?ListQ,list2_?ListQ]:=Map[Part[#,list2]&,list1];
+TakeColumn[list1_?ListQ,n_?IntegerQ]:=(list1//Transpose)[[n]];
+
+
+(* ::Code::Initialization:: *)
+End[];
+EndPackage[];
+
+
+Options[RiemannTensorDev2]=Join[Options[ChristoffelSymbolDev],{"IndexDown"->False}];
+RiemannTensorDev2[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{n,Chr,compile,index,res,perti,simpl,verbose},
+index=OptionValue["IndexDown"];
+perti=OptionValue["PerturbationIndex"];
+simpl=OptionValue["SimplifyFunction"];
+compile=OptionValue["Compile"];
+verbose=OptionValue["Verbose"];
+
+n=Length@xx;
+If[verbose,Print["Starting with Christoffel symbols..."]];
+Chr=ChristoffelSymbolDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl,"Compile"->False];
+If[verbose,Print["Christoffel symbols computed. Starting with Riemann..."]];
+
+res=ConstantArray[0,{n,n,n,n}];
+If[index,
+        If[NumericQ[pert],  Do[res[[i,k,l,m]]=Sum[g[[i,p]](D[Chr[[p,k,m]],xx[[l]]]-D[Chr[[p,k,l]],xx[[m]]]+Sum[Chr[[p,s,l]]*Chr[[s,k,m]]-Chr[[p,s,m]]*Chr[[s,k,l]],{s,n}]),{p,n}],{i,n},{k,n},{l,n},{m,n}],
+                            Do[res[[i,k,l,m]]=Sum[g[[i,p]](Normal@Series[D[Chr[[p,k,m]],xx[[l]]]-D[Chr[[p,k,l]],xx[[m]]]+Sum[Chr[[p,s,l]]*Chr[[s,k,m]],{s,n}]-Sum[Chr[[p,s,m]]*Chr[[s,k,l]],{s,n}],{pert,0,perti}]),{p,n}],{i,n},{k,n},{l,n},{m,n}]];
+							
+							If[compile, Do[res[[i,k,l,m]]=If[NumberQ[res[[i,k,l,m]]],res[[i,k,l,m]],Compile[Evaluate@({#,_Real}&/@xx),Evaluate[res[[i,k,l,m]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{k,n},{l,n},{m,n}];];
+                            (* Applying simmetries *)                           
+                            ,                            
+        If[NumericQ[pert],  Do[res[[i,k,l,m]]=(D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]]-Chr[[i,s,m]]*Chr[[s,k,l]],{s,n}]),{i,n},{k,n},{l,n},{m,n}],
+                            Do[res[[i,k,l,m]]=(Normal@Series[D[Chr[[i,k,m]],xx[[l]]]-D[Chr[[i,k,l]],xx[[m]]]+Sum[Chr[[i,s,l]]*Chr[[s,k,m]],{s,n}]-Sum[Chr[[i,s,m]]*Chr[[s,k,l]],{s,n}],{pert,0,perti}]),{i,n},{k,n},{l,n},{m,n}]];
+        ];
+
+
+If[verbose,Print["...Riemann computed"]];
+simpl@res];
+
+
+Options[RicciTensorDev]=Options[ChristoffelSymbolDev];
+RicciTensorDev[xx_,g_,pert_:0,OptionsPattern[]]:=Block[{compile,Rie,res,n,perti,simpl},
+perti=OptionValue["PerturbationIndex"];
+compile=OptionValue["Compile"];
+simpl=OptionValue["SimplifyFunction"];
+
+n=Length@xx;
+Rie=RiemannTensorDev[xx,g,pert,"PerturbationIndex"->perti,"SimplifyFunction"->simpl];
+
+res=ConstantArray[0,{n,n}];
+If[NumericQ[pert], Do[res[[i,j]]=Sum[Rie[[s,i,s,j]],{s,n}],{i,n},{j,n}],
+                   Do[res[[i,j]]=Normal@Series[Sum[Rie[[s,i,s,j]],{s,n}],{pert,0,perti}],{i,n},{j,i,n}]];  
+
+If[compile, Do[res[[i,j]]=If[NumberQ[res[[i,j]]],res[[i,j]],Compile[Evaluate@({#,_Real}&/@xx),Evaluate[res[[i,j]]],CompilationTarget->"C",CompilationOptions->"InlineExternalDefinitions"->True]],{i,n},{j,i,n}];]  ;                 
+(* Applying symmetries *)
+Do[res[[i+1,j]]=res[[j,i+1]];,{i,n-1},{j,i}];                   
+
+simpl@res]
+
+
+
diff --git a/code/GRTensor.nb b/code/GRTensor.nb
new file mode 100644
index 0000000..b5af194
--- /dev/null
+++ b/code/GRTensor.nb
@@ -0,0 +1,41811 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 11.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[   1798327,      41803]
+NotebookOptionsPosition[   1718831,      40553]
+NotebookOutlinePosition[   1719426,      40575]
+CellTagsIndexPosition[   1719335,      40570]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell["BGR Tensor", "Title",
+ CellChangeTimes->{{3.747969475841448*^9, 3.747969478495125*^9}, 
+   3.7479695552006407`*^9},ExpressionUUID->"412e446d-949d-4a39-ab8f-\
+2e74aab963be"],
+
+Cell["XJ 2018", "Subtitle",
+ CellChangeTimes->{{3.523020346046398*^9, 3.523020387550603*^9}, {
+  3.7479695097873077`*^9, 3.747969513767797*^9}},
+ FontSize->18,ExpressionUUID->"03c7a68d-9296-477d-858e-f28f41a96ef7"],
+
+Cell["\<\
+Provide functions to compute tensor-related quantities in GR and BGR:\
+\>", "Subsubtitle",
+ CellChangeTimes->{{3.5230204030134068`*^9, 3.523020425030308*^9}, {
+  3.5230265395509644`*^9, 3.523026547108094*^9}, {3.747969524970929*^9, 
+  3.747969552823316*^9}},ExpressionUUID->"1dd49449-a8ac-466f-9155-\
+195dee63ff9f"],
+
+Cell[CellGroupData[{
+
+Cell["Compute Christoffel, Riemann,Ricci, KrScalar.. ", "Item",
+ CellChangeTimes->{{3.522998382463629*^9, 3.5229984147045593`*^9}, {
+  3.523020439792676*^9, 3.523020517729113*^9}, {3.747969559579624*^9, 
+  3.7479695758881598`*^9}, {3.747969685164095*^9, 
+  3.7479697066498737`*^9}},ExpressionUUID->"5790c103-deb7-4616-bb6c-\
+3201fb52dcfe"],
+
+Cell["Equations for FR and scalar-tensor.", "Item",
+ CellChangeTimes->{{3.522998382463629*^9, 3.5229984147045593`*^9}, 
+   3.523020439792676*^9, {3.523020524113278*^9, 3.523020543890162*^9}, {
+   3.747969712073694*^9, 
+   3.7479697210241117`*^9}},ExpressionUUID->"44de3030-71f6-405b-999e-\
+75aa76f5f611"],
+
+Cell["Tensor notation for curl, cross product...", "Item",
+ CellChangeTimes->{{3.523020552541416*^9, 3.523020617429453*^9}, {
+  3.7479697237742*^9, 
+  3.747969740689835*^9}},ExpressionUUID->"f9419d5d-d441-4601-b5f7-\
+a8f1d5919af9"]
+}, Open  ]],
+
+Cell["still incomplete", "Text",
+ CellChangeTimes->{{3.5230265802866173`*^9, 3.5230265869424953`*^9}},
+ FontWeight->"Bold",ExpressionUUID->"9611da95-c63f-4174-ad5e-d05a8caf1d44"],
+
+Cell["TODO: Improve and improve", "Text",
+ CellChangeTimes->{{3.525272085056192*^9, 3.52527217803032*^9}, {
+  3.747969747116612*^9, 
+  3.7479697512991533`*^9}},ExpressionUUID->"d61a9f74-a8b4-4661-9a96-\
+0aec3ba57e56"],
+
+Cell[CellGroupData[{
+
+Cell["Conventions", "Subsubtitle",
+ CellChangeTimes->{{3.5230204030134068`*^9, 3.523020425030308*^9}, {
+  3.5230265395509644`*^9, 3.523026547108094*^9}, {3.747969524970929*^9, 
+  3.747969552823316*^9}, {3.747969783487075*^9, 
+  3.747969785619598*^9}},ExpressionUUID->"7485f0c1-9446-4d71-bc0d-\
+dc62c290ca04"],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Conventions following Misner et al., that is, [S2] = 1, [S3] = 1. \
+\>", "Item",
+ CellChangeTimes->{{3.522998382463629*^9, 3.5229984147045593`*^9}, {
+  3.523020439792676*^9, 3.523020517729113*^9}, {3.747969559579624*^9, 
+  3.7479695758881598`*^9}, {3.747969685164095*^9, 3.7479697066498737`*^9}, {
+  3.747969811652556*^9, 
+  3.7479698389527483`*^9}},ExpressionUUID->"f364ad21-6a79-461f-82fd-\
+266664ee0eaf"],
+
+Cell["\<\
+The Christoffel symbols are sorted such the upper index corresponds to the \
+first nested array. \
+\>", "Item",
+ CellChangeTimes->{{3.522998382463629*^9, 3.5229984147045593`*^9}, {
+  3.523020439792676*^9, 3.523020517729113*^9}, {3.747969559579624*^9, 
+  3.7479695758881598`*^9}, {3.747969685164095*^9, 3.7479697066498737`*^9}, {
+  3.747969811652556*^9, 
+  3.747969851912013*^9}},ExpressionUUID->"f7c3d670-7f49-4cad-8b0c-\
+e1d6554e2404"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Warnings . Read this please !!!!", "Subsubtitle",
+ CellChangeTimes->{{3.5230204030134068`*^9, 3.523020425030308*^9}, {
+  3.5230265395509644`*^9, 3.523026547108094*^9}, {3.747969524970929*^9, 
+  3.747969552823316*^9}, {3.747969783487075*^9, 3.747969785619598*^9}, {
+  3.798348746657403*^9, 
+  3.7983487564812803`*^9}},ExpressionUUID->"d6086976-b2f7-4c24-9bad-\
+2785b986bc0f"],
+
+Cell["\<\
+Never, ever, ever use looping indices in your do, for, Table, statements that \
+match any of your symbolic variables as: coordinates, arguments and so on so \
+forth!!!\
+\>", "Item",
+ CellChangeTimes->{{3.522998382463629*^9, 3.5229984147045593`*^9}, {
+  3.523020439792676*^9, 3.523020517729113*^9}, {3.747969559579624*^9, 
+  3.7479695758881598`*^9}, {3.747969685164095*^9, 3.7479697066498737`*^9}, {
+  3.747969811652556*^9, 3.7479698389527483`*^9}, {3.798348763991745*^9, 
+  3.798348856622266*^9}},ExpressionUUID->"923f22e3-6a74-48ed-910c-\
+a2cf0077f928"],
+
+Cell[BoxData[
+ RowBox[{"Quit", "[", "]"}]], "Input",
+ CellChangeTimes->{{3.782627600896647*^9, 3.782627602035941*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"556b9938-0d87-43c7-9c74-092950e517a4"],
+
+Cell[CellGroupData[{
+
+Cell["Begin Package", "Section",
+ CellChangeTimes->{{3.526304277369893*^9, 
+  3.526304293712488*^9}},ExpressionUUID->"d1f4fc7b-0fc3-4dfa-87e1-\
+5cab3334f1ef"],
+
+Cell[BoxData[
+ RowBox[{"\n", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Probably", " ", "not", " ", "all", " ", "the", " ", "extra", " ", 
+    "packages", " ", "are", " ", "really", " ", "needed"}], " ", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{"BeginPackage", "[", "\"\<GRTensor`\>\"", "]"}], ";"}]}]], "Code",
+ CellChangeTimes->{{3.526314579837529*^9, 3.526314746283765*^9}, {
+  3.526314906743479*^9, 3.526314927567987*^9}, {3.5265719878947163`*^9, 
+  3.526571995104267*^9}, {3.7479693011702957`*^9, 3.7479693395418663`*^9}, {
+  3.751977582079381*^9, 3.7519775867970133`*^9}, {3.795343151330058*^9, 
+  3.795343151662513*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"73646baf-e1d8-48be-b891-b1d31c1d0092"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Definitions", "Section",
+ CellChangeTimes->{{3.797832428103478*^9, 
+  3.797832433936167*^9}},ExpressionUUID->"62bc7e4c-e5f8-44b8-8aaf-\
+b650c91c7ebe"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"MetDet", "::", "usage"}], "=", 
+   "\"\<MetDet[g_]. Compute the determinant of the metric\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"InverseMetric", "::", "usage"}], "=", 
+   "\"\<InverseMetric[g_]. Compute the inverse of the metric\>\""}], 
+  ";"}]}], "Code",
+ CellChangeTimes->{{3.5263160755721893`*^9, 3.526316084683058*^9}, {
+  3.526536060416284*^9, 3.5265361261157913`*^9}, {3.747969948778027*^9, 
+  3.747970023012105*^9}},
+ CellLabel->
+  "In[175]:=",ExpressionUUID->"9454ca91-4990-42d1-a52b-e9f7ea7c4763"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"ChristoffelSymbol", "::", "usage"}], "=", 
+   "\"\<ChristoffelSymbol[coords_,g_,pert_:0]. Compute Christoffel symbols.  \
+Default for perturbation variabel pert is 0.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"WeylTensor", "::", "usage"}], "=", 
+   "\"\<WeylTensor[coords_,g_,pert_:0]. Compute Weyl tensor following the \
+convention of Misner et al., that is, [S2] = 1, [S3] = 1. Default for \
+perturbation variabel pert is 0. \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RiemannTensor", "::", "usage"}], "=", 
+   "\"\<RiemannTensor[coords_,g_,pert_:0]. Compute Riemann tensor following \
+the convention of Misner et al., that is, [S2] = 1, [S3] = 1 .Default for \
+perturbation variabel pert is 0. \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RicciTensor", "::", "usage"}], "=", 
+   "\"\<RicciTensor[coords_,g_,pert_:0]. Compute Riemann tensor following the \
+convention of Misner et al., that is, [S2] = 1, [S3] = 1. Default for \
+perturbation variabel pert is 0. \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RicciScalar", "::", "usage"}], "=", 
+   "\"\<RicciScalar[coords_,g_,pert_:0]. Compute RicciScalar scalar. Default \
+for perturbation variabel pert is 0. \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"KrScalar", "::", "usage"}], "=", 
+   "\"\<KrScalar[coords_,g_]. Compute Kretschmann scalar\>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"WeylTrace", "::", "usage"}], 
+   "\"\<WeylTrace[coords_,g_]: Compute Weyl Tensor trace\>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Einstein", "::", "usage"}], "=", 
+   "\"\<Einstein[coords_,g_,\[Epsilon]p:]. Compute Einstein tensor following \
+the convention of Misner et al., that is, [S2] = 1, [S3] = 1 with \
+perturbation index \[Epsilon]p\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"ETensor", "::", "usage"}], "=", 
+   "\"\<ETensor[coords_,g_,\[Epsilon]p_]. Compute the energy momentum tensor  \
+with perturbation index \[Epsilon]p.\>\""}], ";"}]}], "Code",
+ CellChangeTimes->{{3.5263160755721893`*^9, 3.526316084683058*^9}, {
+  3.526536060416284*^9, 3.5265361261157913`*^9}, {3.747969948778027*^9, 
+  3.747970199453802*^9}, {3.7479702450571823`*^9, 3.7479702809117517`*^9}, {
+  3.768297594917066*^9, 3.768297629160459*^9}, {3.7711299838460913`*^9, 
+  3.771130004399973*^9}, {3.782197205762834*^9, 3.782197336471706*^9}, {
+  3.78220545888186*^9, 3.7822054927193613`*^9}, {3.798360480637487*^9, 
+  3.798360480876276*^9}},
+ CellLabel->
+  "In[177]:=",ExpressionUUID->"7d90f080-84f2-4094-b473-738b2b7cd239"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"DAlembert", "::", "usage"}], "=", 
+   "\"\<DAlembert[coords_,g_,func_]. Compute D'Alembert operator for \
+func[coords]\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"CovDer", "::", "usage"}], "=", 
+   "\"\<CovDer[coords_,metric_,tensor_,comps_]. Compute the covariant \
+derivative (default covariant version) for scalar and 1-2 forms. The \
+components are given in a list as: {a},{a,b},{a,b,c}\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"NonZeroChristoffel", "::", "usage"}], "=", 
+   "\"\<NonZeroChristoffel[\[CapitalGamma]]. Show the nonzero Christoffel \
+components.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"NonZeroMetricComp", "::", "usage"}], "=", 
+   "\"\<NonZeroMetricComp[g]. Show the nonzero metric components.\>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"NonZeroTensorComp", "::", "usage"}], "=", 
+   "\"\<NonZeroTensorComp[T]. Show the nonzero Tensor components. It works \
+with any symmetric m xmxmxmx... tensor\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LeviCivitaTensorCurv", "::", "usage"}], "=", 
+   "\"\<LeviCivitaTensorCurv[coords_,g_]. Compute the Levi-Civita \
+antisymmetric tensor for curvilinear coordinates. For cartesian xx recovers \
+the usual \[Epsilon]_(abc).\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"CheckTetrad", "::", "usage"}], "=", 
+   "\"\<[gab_,nullv_]. Check whether the 4 null tetrad vectors satisfy \
+orthonormality conditions.\>\""}], ";"}]}], "Code",
+ CellChangeTimes->{{3.7479703063831244`*^9, 3.7479703650470047`*^9}, {
+  3.747970414731077*^9, 3.7479705120335617`*^9}, {3.747970595785676*^9, 
+  3.747970742161409*^9}, {3.747971234897049*^9, 3.7479713376055613`*^9}, {
+  3.782213306135426*^9, 3.7822133474704943`*^9}, {3.7828117423392982`*^9, 
+  3.782811807523222*^9}},
+ CellLabel->
+  "In[186]:=",ExpressionUUID->"82584a06-f2ae-482e-8ccd-35105c0ab1d3"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"EinsteinfR", "::", "usage"}], "=", 
+   "\"\<EinsteinfR[coords_,g_,fR_]. Compute fR Einstein equations following \
+the convention of Misner et al., that is, [S2] = 1, [S3] = 1 \>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EinsteinST", "::", "usage"}], "=", 
+   "\"\<EinsteinST[coords_,g_,v\[Phi]_]. Compute scalar-tensor Einstein \
+equations following the convention of Misner et al., that is, [S2] = 1, [S3] \
+= 1 \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"STensorT\[Psi]", "::", "usage"}], "=", 
+   "\"\<STensorT\[Psi][coords_,g_,v\[Phi]_]. Compute scalar-tensor Energy \
+momentum tensor following the convention of Misner et al., that is, [S2] = 1, \
+[S3] = 1 \>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TeffFR", "::", "usage"}], "=", 
+   "\"\<TeffFR[coords_,g_,fR_]. Compute fR Teff tensor such \
+Gab=8\[Pi]/f'[R](Tab + Teff) following the convention of Misner et al., that \
+is, [S2] = 1, [S3] = 1\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TeffST", "::", "usage"}], "=", 
+   "\"\<TeffST[coords_,g_,{V\[CurlyPhi],\[CurlyPhi]}]. Compute ST-EF/JF Teff \
+tensor such Gab=8\[Pi] (Tab + Teff) following the convention of Misner et \
+al., that is, [S2] = 1, [S3] = 1. Allowed options for the Frame are Einstein, \
+Jordan\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"FRTOV", "::", "usage"}], "=", 
+   "\"\<FRTOV[coords_,g_,fR_,vars_]. Compute fR TOV eqs such \
+Gab=8\[Pi]/f'[R](Tab + Teff) following the convention of Misner et al., that \
+is, [S2] = 1, [S3] = 1\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"STTOV", "::", "usage"}], "=", 
+   "\"\<STTOV[coords_,g_,{V\[CurlyPhi]_,var\[CurlyPhi]_},vars_]. Compute \
+ST-EF/JF TOV eqs such Gab=8\[Pi](Tab + Teff) following the convention of \
+Misner et al., that is, [S2] = 1, [S3] = 1\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"fR2Pot", "::", "usage"}], "=", 
+   "\"\<fR2UJF[fR_]. From fR model to the ST potential \
+U(\[Phi])-V(\[Phi])\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"CurlCurvilinear", "::", "usage"}], 
+   "\"\<CurlCurvilinear[xx,g,vec]. It computes the curl tensor in curvilinear \
+coordinates\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"ElectricTensor3p1Dev", "::", "usage"}], "=", 
+   "\"\<ElectricTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]\>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"MagneticTensor3p1Dev", "::", "usage"}], "=", 
+  "\"\<MagneticTensor3p1Dev[xx_,g_,Kt_,pert_:0,OptionsPattern[]]\>\""}]}], \
+"Code",
+ CellChangeTimes->{{3.747970993808878*^9, 3.7479711118743763`*^9}, {
+   3.748156602007926*^9, 3.748156684794271*^9}, {3.752314545386385*^9, 
+   3.7523145959278383`*^9}, {3.768295502479499*^9, 3.7682955291138887`*^9}, {
+   3.768300470532792*^9, 3.7683005970500593`*^9}, {3.7683007469144773`*^9, 
+   3.768300794601935*^9}, {3.768302645014124*^9, 3.768302691243593*^9}, {
+   3.768449715584486*^9, 3.7684497837920017`*^9}, 3.768450008701399*^9, {
+   3.768450554190308*^9, 3.7684505657910852`*^9}, {3.770785411873918*^9, 
+   3.770785421057427*^9}, {3.770785522363158*^9, 3.770785555373324*^9}, {
+   3.77078872181496*^9, 3.770788747540772*^9}, {3.799562507377907*^9, 
+   3.7995625670344133`*^9}},ExpressionUUID->"1315b459-a688-49d3-a2a3-\
+f7299b9bb0d8"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSCallParsBSks", "::", "usage"}], "=", 
+   "\"\<EoSCallParsBSks[model_]: Parameters for BSK1-3 EOS for the matter \
+density.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSCallParsSly", "::", "usage"}], "=", 
+   "\"\<EoSCallParsSly[model_]: Parameters for SLy1 EOS for the matter \
+density.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSBSks", "::", "usage"}], "=", 
+   "\"\<EoSBSks[model_]: Analytic EOS for BSK1-3for BSK1-3 EOS for the matter \
+density.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSSly", "::", "usage"}], "=", 
+   "\"\<EoSSly[model_]:  Analytic EOS for SLy1 EOS for the matter \
+density.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"SlyInner", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"SlyLCore", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"SlyLCoreAll", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"SlyInnerAll", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSFitsPars", "::", "usage"}], "=", 
+   "\"\<EoSFitsPars[model_,verbose_:False]. Parameters for the \
+JRead(arxiv:0812.2163) parameters.\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSSlyCrust", "::", "usage"}], "=", 
+   "\"\<EoSSlyCrust[\[Rho]_]. Crust model for the NS of \
+JRead(arxiv:0812.2163)\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSFits", "::", "usage"}], "=", 
+   "\"\<EoSFits[model_,OptionsPattern[]]. NS EOS of \
+JRead(arxiv:0812.2163)\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSPol", "::", "usage"}], "=", 
+   "\"\<EoSPol[model_]. NS EOS for a non-relativistic (NR) and relativistic \
+(R, default) NS respectively\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSPol\[Epsilon]", "::", "usage"}], "=", 
+   "\"\<EoSPol\[Epsilon][model_]. NS EOS for a non-relativistic (NR) and \
+relativistic (R, default) NS respectively\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"From\[Rho]To\[Epsilon]Fits", "::", "usage"}], 
+   "\"\<From\[Rho]To\[Epsilon]Fits[eos_]. NS EOS of JRead(arxiv:0812.2163) \
+for the energy density.\>\""}], ";"}]}], "Code",
+ CellChangeTimes->{{3.751961163876066*^9, 3.751961434642273*^9}, {
+  3.7519614734872217`*^9, 3.7519615256170692`*^9}, {3.751961643713148*^9, 
+  3.751961788773878*^9}, {3.7519619116591673`*^9, 3.7519619220130167`*^9}, {
+  3.7569598563385887`*^9, 3.756959919455595*^9}, {3.756960941916218*^9, 
+  3.756960960336451*^9}},
+ CellLabel->
+  "In[202]:=",ExpressionUUID->"520e0231-cf67-4615-b6d3-aa9e39113b53"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"ShootingNStars", "::", "usage"}], "=", 
+   "\"\<ShootingNStars[eqs_,eqsRg_,rvar_,vars_,shtdInd_,varshtdRg_]. Shooting \
+function of the index var shtdInd for a set of eqs integrated in eqsRg on the \
+variables vars ;\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"BracketingSTNStars", "::", "usage"}], "=", 
+   "\"\<BracketingSTNStars[eqs_,eqsRg_,rvar_,vars_,shtdInd_,varshtdRg_]. \
+Shooting function of the index var shtdInd for a set of eqs integrated in \
+eqsRg on the variables vars ;\>\""}], ";"}]}], "Code",
+ CellChangeTimes->{{3.751960790410697*^9, 3.7519609062944317`*^9}, 
+   3.752314532840685*^9, {3.756626252837673*^9, 3.7566262774063053`*^9}, {
+   3.756626414434925*^9, 3.756626426912628*^9}},
+ CellLabel->
+  "In[216]:=",ExpressionUUID->"d972da8c-a6b7-43c1-84fb-64ef450f9578"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"RK4", "::", "usage"}], "=", 
+   "\"\<RK4[func_?ListQ,vars_?ListQ,ivals_?ListQ,pars_?ListQ,step_]\>\""}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TestCode", "::", "usage"}], 
+   "\"\<TestCode[eqs_,vars_,icond_,rlst_,drlst_]\>\""}], ";"}]}], "Code",
+ CellChangeTimes->{{3.757861786506209*^9, 3.757861802484889*^9}, {
+  3.761376389352297*^9, 3.761376413643672*^9}},
+ CellLabel->
+  "In[218]:=",ExpressionUUID->"6ddfba02-94cc-4966-9292-4bbe0118b6b0"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"AtomsList", "::", "usage"}], "=", 
+   "\"\<Take the coefficients out\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"InterpolationDomain", "::", "usage"}], "=", 
+   "\"\<InterpolationDomain[interpolatedfunction]. It outputs the domain in a \
+format {tmin,tmax}\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TakeColumn", "::", "usage"}], "=", 
+   "\"\<TakeColumn[list1_,list2_] extracts columns list2 from list1, i.e. it \
+gives the functionality of the pre-Mathematica 6 Column function.\>\""}], 
+  ";"}]}], "Code",
+ CellChangeTimes->{{3.795343587685458*^9, 3.795343587944865*^9}, {
+  3.795343666406015*^9, 3.795343667370092*^9}},
+ CellLabel->
+  "In[220]:=",ExpressionUUID->"4bab27d3-7c5c-459f-a370-3f3c92b37de2"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"All", " ", "here", " ", "below", " ", "are", " ", 
+    RowBox[{"dev", ".", " ", "versions", ".", " ", "Replace"}], " ", "them", 
+    " ", "when", " ", "they", " ", "are", " ", "sufficiently", " ", 
+    RowBox[{"tested", "."}]}], " ", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"ChristoffelSymbolDev", "::", "usage"}], "=", 
+    "\"\<ChristoffelSymbolDev[coords_,g_,pert_:0]. Compute Christoffel \
+symbols.  Default for perturbation variabel pert is 0.\>\""}], "\n", 
+   RowBox[{
+    RowBox[{"RiemannTensorDev", "::", "usage"}], "=", 
+    "\"\<RiemannTensor[coords_,g_,pert_:0]. Compute Riemann tensor following \
+the convention of Misner et al., that is, [S2] = 1, [S3] = 1 .Default for \
+perturbation variabel pert is 0. \>\""}], "\n", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"RicciTensorDev", "::", "usage"}], "=", 
+     "\"\<RicciTensorDev[coords_,g_,pert_:0]. Compute Riemann tensor \
+following the convention of Misner et al., that is, [S2] = 1, [S3] = 1 \
+.Default for perturbation variabel pert is 0. \>\""}], ";"}]}]}]], "Code",
+ CellChangeTimes->{{3.798360489797933*^9, 
+  3.798360575891243*^9}},ExpressionUUID->"d9d11a3a-5579-4cf1-92f4-\
+5b6dcdb004da"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}]], "Code",
+ CellLabel->
+  "In[223]:=",ExpressionUUID->"ee552dc2-de40-46d1-94d7-658affe7b6fa"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Einstein tensor and general GR computations", "Section",
+ CellChangeTimes->{{3.718440602298374*^9, 3.718440612890011*^9}, {
+  3.724070943686637*^9, 
+  3.7240709467569942`*^9}},ExpressionUUID->"05ea9761-368f-4d05-b1d3-\
+336913441ec9"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"Conventions", " ", "following", " ", "Misner", " ", "et", " ", 
+    RowBox[{"al", "."}]}], ",", " ", 
+   RowBox[{"that", " ", "is"}], ",", " ", 
+   RowBox[{
+    RowBox[{"[", "S2", "]"}], " ", "=", " ", "1"}], ",", " ", 
+   RowBox[{
+    RowBox[{"[", "S3", "]"}], " ", "=", " ", "1"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7246545239510727`*^9, 3.724654534922943*^9}, {
+  3.724944260340417*^9, 3.7249442747881737`*^9}, {3.724944335411549*^9, 
+  3.724944347571026*^9}},
+ CellLabel->
+  "In[224]:=",ExpressionUUID->"2071ebcb-965b-4656-95d6-762b9c1b4191"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "MetDet", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "1"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"MetDet", "[", 
+     RowBox[{"g_", ",", 
+      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+    RowBox[{"Block", "[", 
+     RowBox[{
+      RowBox[{"{", "simpl", "}"}], ",", 
+      RowBox[{
+       RowBox[{"simpl", "=", 
+        RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+       " ", 
+       RowBox[{"simpl", "@", 
+        RowBox[{"Det", "[", "g", "]"}]}]}]}], "]"}]}], ";"}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "InverseMetric", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "1"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"InverseMetric", "[", 
+   RowBox[{"g_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", "simpl", "}"}], ",", 
+    RowBox[{
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     " ", 
+     RowBox[{"simpl", "@", 
+      RowBox[{"Inverse", "[", "g", "]"}]}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{
+  3.747970761569037*^9, {3.782629327029777*^9, 3.7826294069754887`*^9}, {
+   3.7826304144248533`*^9, 3.78263043342875*^9}, {3.782630507268795*^9, 
+   3.782630509987056*^9}, {3.782630562955225*^9, 3.782630567473515*^9}},
+ CellLabel->
+  "In[225]:=",ExpressionUUID->"5f09e08c-85d0-4db4-af75-8f85ac788de8"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "1"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"ChristoffelSymbol", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "n", ",", "ig", ",", "res", ",", "perti", ",", "simpl", ",", 
+       "verbose"}], "}"}], ",", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", 
+      "\[IndentingNewLine]", "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+      RowBox[{"ig", "=", 
+       RowBox[{"InverseMetric", "[", "g", "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"res", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"1", "/", "2"}], ")"}], "*", 
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+            RowBox[{"Sum", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"ig", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "s"}], "]"}], "]"}], "*", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{"D", "[", 
+                   RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}]}], "+", 
+                 RowBox[{"D", "[", 
+                  RowBox[{
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "s"}], "]"}], "]"}], ",", 
+                   RowBox[{"xx", "[", 
+                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "+", 
+                 RowBox[{"D", "[", 
+                  RowBox[{
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k"}], "]"}], "]"}], ",", 
+                   RowBox[{"xx", "[", 
+                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+            "                                  ", 
+            RowBox[{"Normal", "@", 
+             RowBox[{"Series", "[", 
+              RowBox[{
+               RowBox[{"Sum", "[", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"ig", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "s"}], "]"}], "]"}], "*", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}]}], "+", 
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "s"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "+", 
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
+                 RowBox[{"{", 
+                  RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+           "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RiemannTensor", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"RiemannTensor", "[", 
+     RowBox[{"xx_", ",", "g_", ",", 
+      RowBox[{"pert_:", "0"}], ",", 
+      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+    RowBox[{"Block", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "n", ",", "Chr", ",", "res", ",", "perti", ",", "simpl", ",", 
+        "verbose"}], "}"}], ",", "\n", 
+      RowBox[{
+       RowBox[{"perti", "=", 
+        RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";",
+        "\n", 
+       RowBox[{"simpl", "=", 
+        RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+       "\n", 
+       RowBox[{"verbose", "=", 
+        RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+       "\n", 
+       RowBox[{"n", "=", 
+        RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{
+         "Print", "[", "\"\<Starting with Christoffel symbols...\>\"", 
+          "]"}]}], "]"}], ";", "\n", 
+       RowBox[{"Chr", "=", 
+        RowBox[{"ChristoffelSymbol", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{
+         "Print", "[", 
+          "\"\<Christoffel symbols computed. Starting with Riemann...\>\"", 
+          "]"}]}], "]"}], ";", "\n", 
+       RowBox[{"res", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"Chr", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"Chr", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"Chr", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                RowBox[{"Chr", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], "-", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"Chr", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                RowBox[{"Chr", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", 
+            "\n", "             ", 
+            RowBox[{"Normal", "@", 
+             RowBox[{"Series", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                RowBox[{"Sum", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+                  RowBox[{"{", 
+                   RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], "-", 
+                RowBox[{"Sum", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+                  RowBox[{"{", 
+                   RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+           "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"l", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
+       "\[IndentingNewLine]", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{"Print", "[", "\"\<...Riemann computed\>\"", "]"}]}], "]"}], 
+       ";", "\n", 
+       RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "WeylTensor", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"WeylTensor", "[", 
+     RowBox[{"xx_", ",", "g_", ",", 
+      RowBox[{"pert_:", "0"}], ",", 
+      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+    RowBox[{"Block", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "n", ",", "Chr", ",", "riemann", ",", "riemanndown", ",", "ricciS", 
+        ",", "ricciT", ",", "res", ",", "perti", ",", "simpl", ",", 
+        "verbose"}], "}"}], ",", "\n", 
+      RowBox[{
+       RowBox[{"perti", "=", 
+        RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";",
+        "\n", 
+       RowBox[{"simpl", "=", 
+        RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+       "\n", 
+       RowBox[{"verbose", "=", 
+        RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+       RowBox[{"n", "=", 
+        RowBox[{"Length", "@", "xx"}]}], ";", "\n", "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{
+         "Print", "[", "\"\<Starting with RicciScalar...\>\"", "]"}]}], "]"}],
+        ";", "\n", 
+       RowBox[{"ricciS", "=", 
+        RowBox[{"RicciScalar", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{
+         "Print", "[", "\"\<Following with RicciTensor...\>\"", "]"}]}], 
+        "]"}], ";", "\n", 
+       RowBox[{"ricciT", "=", 
+        RowBox[{"RicciTensor", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{"verbose", ",", 
+         RowBox[{"Print", "[", "\"\<Following with Riemann...\>\"", "]"}]}], 
+        "]"}], ";", "\n", 
+       RowBox[{"riemann", "=", 
+        RowBox[{"RiemannTensor", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\n", 
+       RowBox[{"riemanndown", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"g", "[", 
+              RowBox[{"[", 
+               RowBox[{"a", ",", "\[Alpha]"}], "]"}], "]"}], 
+             RowBox[{"riemann", "[", 
+              RowBox[{"[", 
+               RowBox[{"\[Alpha]", ",", "b", ",", "c", ",", "d"}], "]"}], 
+              "]"}]}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Alpha]", ",", "4"}], "}"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"a", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"b", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"c", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"d", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+       RowBox[{"res", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+            RowBox[{
+             RowBox[{"riemanndown", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "+", 
+             RowBox[{
+              RowBox[{"1", "/", 
+               RowBox[{"(", 
+                RowBox[{"n", "-", "2"}], ")"}]}], 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"ricciT", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "l"}], "]"}], "]"}]}], "-", 
+                RowBox[{
+                 RowBox[{"ricciT", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"ricciT", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "l"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "m"}], "]"}], "]"}]}], "-", 
+                RowBox[{
+                 RowBox[{"ricciT", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "l"}], "]"}], "]"}]}]}], ")"}]}], "+", 
+             RowBox[{
+              RowBox[{"1", "/", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"n", "-", "1"}], ")"}], 
+                 RowBox[{"(", 
+                  RowBox[{"n", "-", "2"}], ")"}]}], ")"}]}], "ricciS", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "-", 
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"k", ",", "l"}], "]"}], "]"}]}]}], ")"}]}]}], ",", 
+            "\n", "             ", 
+            RowBox[{"Normal", "@", 
+             RowBox[{"Series", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"riemanndown", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+                "+", 
+                RowBox[{
+                 RowBox[{"1", "/", 
+                  RowBox[{"(", 
+                   RowBox[{"n", "-", "2"}], ")"}]}], 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}]}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"1", "/", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"n", "-", "1"}], ")"}], 
+                    RowBox[{"(", 
+                    RowBox[{"n", "-", "2"}], ")"}]}], ")"}]}], "ricciS", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}]}]}], ")"}]}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+           "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"l", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
+       "\[IndentingNewLine]", 
+       RowBox[{"(*", 
+        RowBox[{"Simplify", "[", "res", "]"}], "*)"}], "\n", 
+       RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}], "\n", 
+  "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RicciTensor", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"Rie", ",", "res", ",", "n", ",", "perti", ",", "simpl"}], 
+      "}"}], ",", "\n", 
+     RowBox[{
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+      RowBox[{"Rie", "=", 
+       RowBox[{"RiemannTensor", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"res", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+           RowBox[{"Sum", "[", 
+            RowBox[{
+             RowBox[{"Rie", "[", 
+              RowBox[{"[", 
+               RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+           "                            ", 
+           RowBox[{"Normal", "@", 
+            RowBox[{"Series", "[", 
+             RowBox[{
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{"Rie", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], 
+                ",", 
+                RowBox[{"{", 
+                 RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+          "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"(*", 
+       RowBox[{"Simplify", "[", "res", "]"}], "*)"}], "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RicciScalar", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "Ricc", ",", "ig", ",", "res", ",", "n", ",", "perti", ",", "simpl"}], 
+      "}"}], ",", "\n", 
+     RowBox[{
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", "\n", 
+      RowBox[{"Ricc", "=", 
+       RowBox[{"RicciTensor", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"ig", "=", 
+       RowBox[{"InverseMetric", "[", 
+        RowBox[{"g", ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"res", "=", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"ig", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "i"}], "]"}], "]"}], " ", 
+            RowBox[{"Ricc", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "i"}], "]"}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"s", ",", "1", ",", "n"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+         "                      ", 
+         RowBox[{"Normal", "@", 
+          RowBox[{"Series", "[", 
+           RowBox[{
+            RowBox[{"Sum", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"ig", "[", 
+                RowBox[{"[", 
+                 RowBox[{"s", ",", "i"}], "]"}], "]"}], " ", 
+               RowBox[{"Ricc", "[", 
+                RowBox[{"[", 
+                 RowBox[{"s", ",", "i"}], "]"}], "]"}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"s", ",", "1", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+        "]"}]}], ";", "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "KrScalar", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"KrScalar", "[", 
+     RowBox[{"xx_", ",", "g_", ",", 
+      RowBox[{"pert_:", "0"}], ",", 
+      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+    RowBox[{"Block", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "Rie", ",", "res", ",", "n", ",", "Ried", ",", "Rieup", ",", "gup", 
+        ",", "perti", ",", "simpl"}], "}"}], ",", "\n", 
+      RowBox[{
+       RowBox[{"perti", "=", 
+        RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";",
+        "\n", 
+       RowBox[{"simpl", "=", 
+        RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+       "\n", 
+       RowBox[{"n", "=", 
+        RowBox[{"Length", "@", "xx"}]}], ";", "\n", "\n", 
+       RowBox[{"Rie", "=", 
+        RowBox[{"RiemannTensor", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\[IndentingNewLine]", 
+       RowBox[{"gup", "=", 
+        RowBox[{"Inverse", "@", "g"}]}], ";", "\n", 
+       RowBox[{"Ried", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"g", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "k"}], "]"}], "]"}], " ", 
+             RowBox[{"Rie", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j", ",", "m", ",", "l"}], "]"}], "]"}]}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+       RowBox[{"Rieup", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"gup", "[", 
+              RowBox[{"[", 
+               RowBox[{"j", ",", "k"}], "]"}], "]"}], 
+             RowBox[{"gup", "[", 
+              RowBox[{"[", 
+               RowBox[{"m", ",", "\[Mu]"}], "]"}], "]"}], " ", 
+             RowBox[{"gup", "[", 
+              RowBox[{"[", 
+               RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], " ", 
+             RowBox[{"Rie", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j", ",", "m", ",", "l"}], "]"}], "]"}]}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"m", ",", "1", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"\[Mu]", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"\[Nu]", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+       RowBox[{"res", "=", 
+        RowBox[{"Sum", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Ried", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j", ",", "m", ",", "l"}], "]"}], "]"}], " ", 
+           RowBox[{"Rieup", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j", ",", "m", ",", "l"}], "]"}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", "1", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+       "\n", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+         RowBox[{"simpl", "@", "res"}], ",", 
+         RowBox[{"Normal", "@", 
+          RowBox[{"Series", "[", 
+           RowBox[{
+            RowBox[{"simpl", "@", "res"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+        "]"}]}]}], "]"}]}], ";"}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "WeylTrace", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"WeylTrace", "[", 
+     RowBox[{"xx_", ",", "g_", ",", 
+      RowBox[{"pert_:", "0"}], ",", 
+      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+    RowBox[{"Block", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "Chr", ",", "ig", ",", "n", ",", "riemann", ",", "Rieup", ",", 
+        "ricciS", ",", "ricciT", ",", "res", ",", "perti", ",", "simpl", ",", 
+        "weylT", ",", "weylTup"}], "}"}], ",", "\n", 
+      RowBox[{
+       RowBox[{"perti", "=", 
+        RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";",
+        "\n", 
+       RowBox[{"simpl", "=", 
+        RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+       "\n", 
+       RowBox[{"n", "=", 
+        RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+       RowBox[{"ig", "=", 
+        RowBox[{"InverseMetric", "[", 
+         RowBox[{"g", ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\n", "\n", 
+       RowBox[{"weylT", "=", 
+        RowBox[{"WeylTensor", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";",
+        "\[IndentingNewLine]", 
+       RowBox[{"weylTup", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"a", ",", "\[Alpha]"}], "]"}], "]"}], " ", 
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"b", ",", "\[Beta]"}], "]"}], "]"}], " ", 
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"c", ",", "\[Gamma]"}], "]"}], "]"}], " ", 
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"d", ",", "\[Delta]"}], "]"}], "]"}], " ", 
+             RowBox[{"weylT", "[", 
+              RowBox[{"[", 
+               RowBox[{
+               "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Delta]"}],
+                "]"}], "]"}]}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Alpha]", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Beta]", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Gamma]", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Delta]", ",", "n"}], "}"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"a", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"b", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"c", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"d", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+       RowBox[{"res", "=", 
+        RowBox[{"If", "[", 
+         RowBox[{
+          RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"weylT", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+             RowBox[{"weylTup", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}]}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"i", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"k", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"l", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+          "             ", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"weylT", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+                RowBox[{"weylTup", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}]}],
+                ",", 
+               RowBox[{"{", 
+                RowBox[{"i", ",", "n"}], "}"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"k", ",", "n"}], "}"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"l", ",", "n"}], "}"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+       RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}], "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "Einstein", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"Einstein", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"res", ",", "perti", ",", "simpl"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{
+       RowBox[{"RicciTensor", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}], "-", 
+       RowBox[{
+        RowBox[{"1", "/", "2"}], " ", 
+        RowBox[{"RicciScalar", "[", 
+         RowBox[{"xx", ",", "g", ",", "pert", ",", 
+          RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+          RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}], " ", 
+        "g"}]}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+       RowBox[{"simpl", "@", "res"}], ",", 
+       RowBox[{"Normal", "@", 
+        RowBox[{"Series", "[", 
+         RowBox[{
+          RowBox[{"simpl", "@", "res"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+      "]"}]}]}], "\n", "]"}]}]}], "Code",
+ CellChangeTimes->{{3.641881374820434*^9, 3.641881374822165*^9}, {
+   3.641882848750834*^9, 3.641882848763466*^9}, {3.641883128368373*^9, 
+   3.6418831352114763`*^9}, {3.641883294020028*^9, 3.64188330016356*^9}, {
+   3.6566744109873466`*^9, 3.656674419779984*^9}, {3.656674473707486*^9, 
+   3.656674542689953*^9}, {3.708161937234585*^9, 3.7081619379866056`*^9}, {
+   3.71741672358785*^9, 3.717416780492721*^9}, 3.717416855144506*^9, {
+   3.7177451481343193`*^9, 3.717745224198668*^9}, {3.717764231337758*^9, 
+   3.717764257169631*^9}, {3.7246462395123663`*^9, 3.724646287207852*^9}, {
+   3.72464635085569*^9, 3.724646351710986*^9}, {3.724647546382801*^9, 
+   3.724647783916054*^9}, {3.724647907674429*^9, 3.724647935681088*^9}, {
+   3.72464808465769*^9, 3.724648099054977*^9}, 3.724654377293252*^9, {
+   3.72493512694532*^9, 3.724935132366665*^9}, {3.724939000432618*^9, 
+   3.7249390013415413`*^9}, {3.7249442307248898`*^9, 3.724944280475565*^9}, {
+   3.724944330467605*^9, 3.7249443336192837`*^9}, {3.7275965059422207`*^9, 
+   3.727596530777363*^9}, {3.727596642964692*^9, 3.727596777898533*^9}, {
+   3.727596899568015*^9, 3.727597180101912*^9}, {3.727597291925323*^9, 
+   3.72759730100296*^9}, {3.7275978520695477`*^9, 3.727597861500965*^9}, {
+   3.747970254014577*^9, 3.747970254499402*^9}, {3.7479707562951517`*^9, 
+   3.747970810480811*^9}, {3.748164682765679*^9, 3.748164703429923*^9}, {
+   3.748164861228725*^9, 3.748164862953665*^9}, {3.757766018871112*^9, 
+   3.757766028217842*^9}, {3.7682975004698267`*^9, 3.768297501008401*^9}, {
+   3.768297731623784*^9, 3.7682977915010242`*^9}, {3.768297826284233*^9, 
+   3.768297850698557*^9}, {3.7682978854912043`*^9, 3.7682979255893993`*^9}, {
+   3.7682979883133593`*^9, 3.7682980095297003`*^9}, {3.7682983459847717`*^9, 
+   3.768298347698084*^9}, {3.768298426980094*^9, 3.768298435460054*^9}, {
+   3.768298525377759*^9, 3.7682985341950197`*^9}, {3.768298723970024*^9, 
+   3.768298725696434*^9}, {3.768298821598518*^9, 3.768298822037739*^9}, {
+   3.77046188295376*^9, 3.770461894124071*^9}, {3.770461926183464*^9, 
+   3.770461984427977*^9}, {3.770462030715246*^9, 3.770462053871707*^9}, {
+   3.7704624762285957`*^9, 3.7704624881657257`*^9}, {3.770462560858678*^9, 
+   3.7704629620198507`*^9}, {3.7704631687939262`*^9, 3.770463392914324*^9}, 
+   3.7704634291885366`*^9, {3.782196591259694*^9, 3.7821966476364403`*^9}, {
+   3.782196895501017*^9, 3.782196905867714*^9}, {3.782197053552808*^9, 
+   3.782197192161675*^9}, {3.782197743001953*^9, 3.782197767436512*^9}, {
+   3.782198180293537*^9, 3.78219821530903*^9}, {3.78219830581889*^9, 
+   3.782198367007297*^9}, {3.7821984577119017`*^9, 3.782198670978107*^9}, {
+   3.782199305346581*^9, 3.782199324688929*^9}, {3.7821994089978437`*^9, 
+   3.7821994390319557`*^9}, {3.782200118746462*^9, 3.782200299278453*^9}, {
+   3.782200584488165*^9, 3.782200590802178*^9}, {3.782205379235524*^9, 
+   3.782205435273844*^9}, {3.7822056067612257`*^9, 3.782205616297183*^9}, {
+   3.7822056697211018`*^9, 3.782205703269176*^9}, 3.782208269519236*^9, {
+   3.782217673355048*^9, 3.7822176973777933`*^9}, {3.7822178491654043`*^9, 
+   3.7822178691166058`*^9}, 3.782218031411852*^9, {3.782218077488614*^9, 
+   3.7822183146418667`*^9}, {3.782554217283923*^9, 3.782554310315332*^9}, {
+   3.7825543700568657`*^9, 3.782554390561351*^9}, {3.78262947189929*^9, 
+   3.7826295331140633`*^9}, {3.7826296849993963`*^9, 3.782629706272595*^9}, {
+   3.782630961301841*^9, 3.782631105219252*^9}, {3.782631347428708*^9, 
+   3.782631394685158*^9}},
+ CellLabel->
+  "In[229]:=",ExpressionUUID->"d02d65d5-6fda-4d39-872e-5145e565b67b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DAlembert", "[", 
+   RowBox[{"xx_", ",", "metric_", ",", "scalfun_"}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"metdet", ",", "dal", ",", "metup", ",", "sqrtdet"}], "}"}], ",",
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"metup", "=", 
+      RowBox[{"Inverse", "[", "metric", "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"metdet", "=", 
+      RowBox[{"MetDet", "[", "metric", "]"}]}], ";", "\n", 
+     RowBox[{"sqrtdet", "=", 
+      RowBox[{"Sqrt", "[", 
+       RowBox[{"-", "metdet"}], "]"}]}], ";", "\n", "\[IndentingNewLine]", 
+     RowBox[{"dal", "=", 
+      RowBox[{"FullSimplify", "[", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"1", "/", "sqrtdet"}], ")"}], " ", 
+        RowBox[{"Sum", "[", "\n", 
+         RowBox[{
+          RowBox[{"D", "[", 
+           RowBox[{
+            RowBox[{"sqrtdet", " ", 
+             RowBox[{"metup", "[", 
+              RowBox[{"[", 
+               RowBox[{"\[Nu]", ",", "\[Mu]"}], "]"}], "]"}], " ", 
+             RowBox[{"D", "[", 
+              RowBox[{"scalfun", ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "\[Mu]", "]"}], "]"}]}], "]"}]}], ",", 
+            RowBox[{"xx", "[", 
+             RowBox[{"[", "\[Nu]", "]"}], "]"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"\[Nu]", ",", "4"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"\[Mu]", ",", "4"}], "}"}]}], "]"}]}], "]"}]}]}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.717764147835895*^9, 3.717764197124276*^9}, {
+   3.7177643557019787`*^9, 3.7177644902173347`*^9}, {3.717764807234664*^9, 
+   3.717764824697377*^9}, {3.7177648581597347`*^9, 3.717764931687396*^9}, {
+   3.717764991485989*^9, 3.717764992933175*^9}, {3.7177657857068644`*^9, 
+   3.717765814981923*^9}, {3.717765911798058*^9, 3.717765937672873*^9}, {
+   3.7177663123156977`*^9, 3.717766462065151*^9}, {3.717767662187694*^9, 
+   3.717767662971264*^9}, {3.717767701069643*^9, 3.7177677013387623`*^9}, 
+   3.717767863582922*^9, {3.7177680195625277`*^9, 3.717768023586151*^9}, {
+   3.71780054067974*^9, 3.717800542908545*^9}, {3.719843771044149*^9, 
+   3.719843889103924*^9}, {3.719843919444406*^9, 3.719843934226091*^9}, 
+   3.7198440676520243`*^9, {3.719844117047738*^9, 3.7198441239769087`*^9}, {
+   3.720090647533627*^9, 3.720090648146304*^9}, {3.747970820033203*^9, 
+   3.747970824104192*^9}},
+ CellLabel->
+  "In[245]:=",ExpressionUUID->"73a83525-2b6f-4121-ad3f-acd5ae34221f"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Options", "[", "ETensor", "]"}], "=", 
+    RowBox[{"Join", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<Signature\>\"", "\[Rule]", "1"}], "}"}], ",", 
+      RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], "]"}]}], ";"}], 
+  "\n"}], "\n", 
+ RowBox[{
+  RowBox[{"ETensor", "[", 
+   RowBox[{"coors_", ",", "met_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "g", ",", "gup", ",", "Global`\[Rho]", ",", "\[Rho]c", ",", "Global`p", 
+      ",", "perti", ",", "pc", ",", "riscal", ",", "riscalvars", ",", "sign", 
+      ",", "simpl", ",", "T\[Mu]\[Nu]", ",", "T\[Mu]\[Nu]up", ",", "u", ",", 
+      "udown", ",", "\[CapitalOmega]"}], "}"}], ",", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"sign", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Signature\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"g", "=", "met"}], ";", "\n", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"RicciScalar", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"coors", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"coors", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"Inverse", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Global`p", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"Global`\[Rho]", "@@", "riscalvars"}]}], ";", 
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{"u", "=", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"sign", "\[Equal]", "1"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"1", "/", 
+           RowBox[{"Sqrt", "[", 
+            RowBox[{"-", 
+             RowBox[{"g", "[", 
+              RowBox[{"[", 
+               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ",", "0", 
+          ",", "0", ",", 
+          RowBox[{"pert", " ", 
+           RowBox[{"\[CapitalOmega]", "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{"-", 
+              RowBox[{"g", "[", 
+               RowBox[{"[", 
+                RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}]}]}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"1", "/", 
+           RowBox[{"Sqrt", "[", 
+            RowBox[{"g", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], ",", "0", ",", 
+          "0", ",", 
+          RowBox[{"pert", " ", 
+           RowBox[{"\[CapitalOmega]", "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{"g", "[", 
+              RowBox[{"[", 
+               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}]}]}], "}"}]}], 
+       "]"}]}], ";", " ", "\[IndentingNewLine]", 
+     RowBox[{"u", "=", 
+      RowBox[{"Normal", "@", 
+       RowBox[{"Series", "[", 
+        RowBox[{"u", ",", 
+         RowBox[{"{", 
+          RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], ";", 
+     "\n", 
+     RowBox[{"udown", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{"Sum", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"u", "[", 
+            RowBox[{"[", "i", "]"}], "]"}], 
+           RowBox[{"g", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "l"}], "]"}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", 
+            RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"l", ",", 
+          RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"udown", "=", 
+      RowBox[{"Normal", "@", 
+       RowBox[{"Series", "[", 
+        RowBox[{"udown", ",", 
+         RowBox[{"{", 
+          RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Simplify", "[", 
+         RowBox[{"Normal", "@", 
+          RowBox[{"Series", "[", 
+           RowBox[{
+            RowBox[{"u", ".", "udown"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"pert", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
+        "\[NotEqual]", 
+        RowBox[{"-", "1"}]}], ",", 
+       RowBox[{"Return", "[", "\"\<Wrong normalization\>\"", "]"}]}], "]"}], 
+     ";", "\n", "\[IndentingNewLine]", 
+     RowBox[{"T\[Mu]\[Nu]up", "=", 
+      RowBox[{
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{"sign", "\[Equal]", "1"}], ",", 
+         RowBox[{"Normal", "@", 
+          RowBox[{"Series", "[", 
+           RowBox[{
+            RowBox[{"Table", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"pc", "+", "\[Rho]c"}], ")"}], " ", 
+                RowBox[{"u", "[", 
+                 RowBox[{"[", "i", "]"}], "]"}], " ", 
+                RowBox[{"u", "[", 
+                 RowBox[{"[", "j", "]"}], "]"}]}], "+", 
+               RowBox[{"pc", " ", 
+                RowBox[{"gup", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"j", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}], ",", 
+         "\n", "                ", 
+         RowBox[{"Normal", "@", 
+          RowBox[{"Series", "[", 
+           RowBox[{
+            RowBox[{"Table", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"pc", "+", "\[Rho]c"}], ")"}], " ", 
+                RowBox[{"u", "[", 
+                 RowBox[{"[", "i", "]"}], "]"}], " ", 
+                RowBox[{"u", "[", 
+                 RowBox[{"[", "j", "]"}], "]"}]}], "-", 
+               RowBox[{"pc", " ", 
+                RowBox[{"gup", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"j", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+        "]"}], "//", "Simplify"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"T\[Mu]\[Nu]", "=", 
+      RowBox[{"Normal", "@", 
+       RowBox[{"Series", "[", 
+        RowBox[{
+         RowBox[{"g", 
+          RowBox[{"(", 
+           RowBox[{"T\[Mu]\[Nu]up", ".", "g"}], ")"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pert", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}]}], "\n", 
+   "]"}]}]}], "Code",
+ CellChangeTimes->{{3.771128976902225*^9, 3.771129332204486*^9}, {
+   3.771129436083987*^9, 3.7711294515154753`*^9}, {3.771129717331287*^9, 
+   3.7711297671896753`*^9}, {3.7825634800657463`*^9, 3.782563508635702*^9}, 
+   3.7991217887928877`*^9},
+ CellLabel->
+  "In[246]:=",ExpressionUUID->"2f5465f0-0bc1-464c-8946-61bf0688605c"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "NonZeroTensorComp", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+     RowBox[{"\"\<TensorString\>\"", "\[Rule]", "\"\<T\>\""}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"NonZeroTensorComp", "[", 
+   RowBox[{"gamma_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "dimension", ",", "ii", ",", "nonzerpos", ",", "tstring", ",", "verbose",
+       ",", "\n", "allpos", ",", "zerpos"}], "}"}], ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"tstring", "=", 
+      RowBox[{"OptionValue", "[", "\"\<TensorString\>\"", "]"}]}], ";", "\n", 
+     
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "set", " ", "dimensions", " ", "and", " ", "total", " ", "number", " ", 
+       "or", " ", "elements"}], " ", "*)"}], "\n", 
+     RowBox[{"dimension", "=", 
+      RowBox[{"Dimensions", "[", "gamma", "]"}]}], ";", "\n", 
+     RowBox[{"(*", 
+      RowBox[{
+       RowBox[{"allpos", "=", 
+        RowBox[{"Flatten", "[", 
+         RowBox[{
+          RowBox[{"Table", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"i", ",", "j", ",", "k"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"i", ",", 
+              RowBox[{"dimension", "[", 
+               RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"j", ",", 
+              RowBox[{"dimension", "[", 
+               RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"k", ",", 
+              RowBox[{"dimension", "[", 
+               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], 
+         "]"}]}], ";"}], "*)"}], "\n", 
+     RowBox[{"allpos", "=", 
+      RowBox[{"Tuples", "[", 
+       RowBox[{
+        RowBox[{"Table", "[", 
+         RowBox[{"i", ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", 
+            RowBox[{"dimension", "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
+        RowBox[{"Length", "@", "dimension"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"zerpos", "=", 
+      RowBox[{"Position", "[", 
+       RowBox[{"gamma", ",", 
+        RowBox[{"_", "?", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"#", "\[Equal]", " ", "0"}], " ", "&"}], ")"}]}]}], 
+       "]"}]}], ";", "\n", 
+     RowBox[{"nonzerpos", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"allpos", ",", "zerpos"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{"Print", "[", 
+          RowBox[{
+           RowBox[{"ToString", "[", 
+            RowBox[{
+             SubscriptBox["tstring", 
+              RowBox[{"StringJoin", "[", 
+               RowBox[{"ToString", "/@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"nonzerpos", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", 
+                    RowBox[{"1", ";;", 
+                    RowBox[{"Length", "@", "dimension"}]}]}], "]"}], "]"}], 
+                  "-", "1"}], ")"}]}], "]"}]], ",", "StandardForm"}], "]"}], 
+           "<>", "\"\< = \>\"", "<>", 
+           RowBox[{"ToString", "[", 
+            RowBox[{
+             RowBox[{"Extract", "[", 
+              RowBox[{"gamma", ",", 
+               RowBox[{"nonzerpos", "[", 
+                RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
+             "StandardForm"}], "]"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", 
+           RowBox[{"Length", "@", "nonzerpos"}]}], "}"}]}], "]"}]}], "]"}], 
+     ";", "\n", "nonzerpos"}]}], "\[IndentingNewLine]", "]"}]}]}], "Code",
+ CellChangeTimes->{{3.716900236593028*^9, 3.716900366038496*^9}, {
+   3.716900571202292*^9, 3.716900637252408*^9}, {3.716900668536751*^9, 
+   3.716900809845201*^9}, {3.716900840454775*^9, 3.716900945830474*^9}, {
+   3.7169010228170967`*^9, 3.7169011109062*^9}, {3.7169011854730864`*^9, 
+   3.716901196336534*^9}, {3.7169012380410767`*^9, 3.7169012949290857`*^9}, {
+   3.716901368014069*^9, 3.716901465565796*^9}, {3.716901530182221*^9, 
+   3.716901711881098*^9}, {3.716901748506475*^9, 3.716901762216508*^9}, {
+   3.716902614206215*^9, 3.716902620796609*^9}, {3.71690266701899*^9, 
+   3.7169027209785023`*^9}, {3.716903029559869*^9, 3.716903035592605*^9}, {
+   3.716903252546584*^9, 3.716903254201976*^9}, {3.716903403306201*^9, 
+   3.716903522026678*^9}, {3.716903903665159*^9, 3.71690392048986*^9}, {
+   3.716903993103567*^9, 3.716904091594118*^9}, {3.716904164230247*^9, 
+   3.7169042975629663`*^9}, {3.716904366272208*^9, 3.7169043666735897`*^9}, {
+   3.782207956635901*^9, 3.782207957518927*^9}, {3.7822082264055233`*^9, 
+   3.782208251850849*^9}, {3.782208395682209*^9, 3.7822084327101994`*^9}, 
+   3.782208506736524*^9, {3.782208549153216*^9, 3.782208569066574*^9}, {
+   3.782208602267496*^9, 3.782208667390147*^9}, {3.782209455969129*^9, 
+   3.782209471300178*^9}, {3.7822108200705853`*^9, 3.782210823435101*^9}, {
+   3.782210858079101*^9, 3.7822108841361637`*^9}, {3.782210922317994*^9, 
+   3.782210954562052*^9}, {3.782211034030156*^9, 3.7822111314069557`*^9}, {
+   3.782211377096323*^9, 3.782211382707436*^9}, {3.782211620730598*^9, 
+   3.782211685503545*^9}, {3.782211843853441*^9, 3.782211941534233*^9}, {
+   3.782211998905094*^9, 3.7822120731072693`*^9}, {3.78221222271119*^9, 
+   3.78221224735672*^9}, {3.78221228254959*^9, 3.782212340243206*^9}, {
+   3.7822126078508663`*^9, 3.7822126997068777`*^9}, 3.782212760085548*^9, {
+   3.7822131607404823`*^9, 3.782213175919828*^9}, {3.782213209189878*^9, 
+   3.782213254697237*^9}, {3.782213560326689*^9, 3.782213613094482*^9}, 
+   3.782213707633905*^9, {3.7822137406121693`*^9, 3.782213760038059*^9}},
+ CellLabel->
+  "In[248]:=",ExpressionUUID->"c688a0ee-0df1-44b0-9257-c8f4045fc5c7"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "NonZeroMetricComp", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+     RowBox[{"\"\<TensorString\>\"", "\[Rule]", "\"\<T\>\""}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"NonZeroMetricComp", "[", 
+   RowBox[{"gamma_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "allpos", ",", "dimension", ",", "\n", "n", ",", "nonzerpos", ",", 
+      "tstring", ",", "verbose", ",", "zerpos"}], "}"}], ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"tstring", "=", 
+      RowBox[{"OptionValue", "[", "\"\<TensorString\>\"", "]"}]}], ";", "\n", 
+     "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "gamma"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "set", " ", "dimensions", " ", "and", " ", "total", " ", "number", " ", 
+       "or", " ", "elements"}], " ", "*)"}], "\n", 
+     RowBox[{"dimension", "=", 
+      RowBox[{
+       RowBox[{"Dimensions", "[", "gamma", "]"}], "[", 
+       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"allpos", "=", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"i", ",", "j"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "dimension"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "dimension"}], "}"}]}], "]"}], ",", "1"}], 
+       "]"}]}], ";", "\n", "\[IndentingNewLine]", 
+     RowBox[{"zerpos", "=", 
+      RowBox[{"Position", "[", 
+       RowBox[{"gamma", ",", 
+        RowBox[{"_", "?", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"#", "\[Equal]", " ", "0"}], " ", "&"}], ")"}]}]}], 
+       "]"}]}], ";", "\n", 
+     RowBox[{"nonzerpos", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"allpos", ",", "zerpos"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{"Print", "[", 
+          RowBox[{
+           RowBox[{"ToString", "[", 
+            RowBox[{"tstring", ",", "StandardForm"}], "]"}], "<>", 
+           "\"\< = \>\"", "<>", 
+           RowBox[{"ToString", "[", 
+            RowBox[{
+             RowBox[{"gamma", "[", 
+              RowBox[{"[", 
+               RowBox[{
+                RowBox[{"nonzerpos", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
+                RowBox[{"nonzerpos", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
+             "StandardForm"}], "]"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", 
+           RowBox[{"Length", "@", "nonzerpos"}]}], "}"}]}], "]"}]}], "]"}], 
+     ";", "\n", "nonzerpos"}]}], "\[IndentingNewLine]", "]"}]}]}], "Code",
+ CellChangeTimes->{{3.716900236593028*^9, 3.716900366038496*^9}, {
+   3.716900571202292*^9, 3.716900637252408*^9}, {3.716900668536751*^9, 
+   3.716900809845201*^9}, {3.716900840454775*^9, 3.716900945830474*^9}, {
+   3.7169010228170967`*^9, 3.7169011109062*^9}, {3.7169011854730864`*^9, 
+   3.716901196336534*^9}, {3.7169012380410767`*^9, 3.7169012949290857`*^9}, {
+   3.716901368014069*^9, 3.716901465565796*^9}, {3.716901530182221*^9, 
+   3.716901711881098*^9}, {3.716901748506475*^9, 3.716901762216508*^9}, {
+   3.716902614206215*^9, 3.716902620796609*^9}, {3.71690266701899*^9, 
+   3.7169027209785023`*^9}, {3.716903029559869*^9, 3.716903035592605*^9}, {
+   3.716903252546584*^9, 3.716903254201976*^9}, {3.716903403306201*^9, 
+   3.716903522026678*^9}, {3.716903903665159*^9, 3.71690392048986*^9}, {
+   3.716903993103567*^9, 3.716904091594118*^9}, {3.716904164230247*^9, 
+   3.7169042975629663`*^9}, {3.716904366272208*^9, 3.7169043666735897`*^9}, {
+   3.782208274733176*^9, 3.782208302750588*^9}, {3.782208336937624*^9, 
+   3.782208366978108*^9}, {3.782213389024846*^9, 3.782213419878358*^9}, {
+   3.7822134502667828`*^9, 3.782213521150797*^9}, 3.7822136998852882`*^9},
+ CellLabel->
+  "In[250]:=",ExpressionUUID->"119a8d40-ec9b-4beb-bbe6-56f668b9d13f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"CovDer", "[", 
+   RowBox[{"coords_", ",", "metric_", ",", "tensor_", ",", "index_", ",", 
+    RowBox[{"OptionsPattern", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+       RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "}"}], "]"}]}], 
+   "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "Crhistoffel", ",", "g", ",", "xx", ",", "n", ",", "h\[Eta]\[Nu]", ",", 
+      "rank", ",", "cov", ",", "valence", ",", "verbose", ",", "c", ",", "b", 
+      ",", "a"}], "}"}], ",", "\n", 
+    RowBox[{"(*", 
+     RowBox[{
+      RowBox[{"Print", "[", 
+       RowBox[{"Style", "[", 
+        RowBox[{"\"\<It is wrong!\>\"", ",", "Red"}], "]"}], "]"}], ";"}], 
+     "*)"}], "\n", 
+    RowBox[{
+     RowBox[{"valence", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Valence\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "coords"}]}], ";", "\n", 
+     RowBox[{"g", "=", "metric"}], ";", "\n", 
+     RowBox[{"h\[Eta]\[Nu]", "=", "tensor"}], ";", "\n", 
+     RowBox[{"xx", "=", "coords"}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"ListQ", "[", "h\[Eta]\[Nu]", "]"}], ",", "\n", "\t\t\t", 
+       RowBox[{
+        RowBox[{"rank", "=", 
+         RowBox[{"Length", "@", 
+          RowBox[{"Dimensions", "@", "tensor"}]}]}], ";", "\n", "\t\t\t", 
+        RowBox[{"Crhistoffel", "=", 
+         RowBox[{"ChristoffelSymbol", "[", 
+          RowBox[{"xx", ",", "g"}], "]"}]}]}], ",", "\n", "\t\t\t", 
+       RowBox[{
+        RowBox[{"rank", "=", "0"}], ";"}]}], "\n", "\t\t\t", "]"}], ";", "\n",
+      "\n", 
+     RowBox[{"Which", "[", 
+      RowBox[{
+       RowBox[{"rank", "\[Equal]", "0"}], ",", " ", 
+       RowBox[{
+        RowBox[{"If", "[", 
+         RowBox[{"verbose", ",", 
+          RowBox[{
+           RowBox[{"Print", "[", "\"\<Scalar , \>\"", "]"}], ";", 
+           RowBox[{"Print", "[", "valence", "]"}], ";"}]}], "]"}], ";", " ", 
+        "\n", "                 ", 
+        RowBox[{
+         RowBox[{"{", "a", "}"}], "=", "index"}], ";", "\n", 
+        "                 ", 
+        RowBox[{"cov", "=", 
+         RowBox[{"D", "[", 
+          RowBox[{"h\[Eta]\[Nu]", ",", 
+           RowBox[{"xx", "[", 
+            RowBox[{"[", "index", "]"}], "]"}]}], "]"}]}], ";"}], " ", ",", 
+       "\n", "\t  ", 
+       RowBox[{"rank", "\[Equal]", "1"}], ",", " ", 
+       RowBox[{
+        RowBox[{"If", "[", 
+         RowBox[{"verbose", ",", 
+          RowBox[{
+           RowBox[{"Print", "[", "\"\<Vector , \>\"", "]"}], ";", 
+           RowBox[{"Print", "[", "valence", "]"}], ";"}]}], "]"}], ";", "\n", 
+        "\t  \t       ", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"a", ",", "b"}], "}"}], "=", "index"}], ";", " ", "\n", 
+        "\t              ", 
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{"valence", "\[Equal]", "\"\<Covariant\>\""}], ",", "      ",
+           "\n", "\t                  ", 
+          RowBox[{
+           RowBox[{"cov", "=", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"h\[Eta]\[Nu]", "[", 
+                RowBox[{"[", "b", "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "-", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"Crhistoffel", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"\[Rho]", ",", "a", ",", "b"}], "]"}], "]"}], 
+                RowBox[{"h\[Eta]\[Nu]", "[", 
+                 RowBox[{"[", "\[Rho]", "]"}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"\[Rho]", ",", 
+                 RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]}], ";"}], 
+          ",", "\n", "\t                  ", 
+          RowBox[{"valence", "\[Equal]", "\"\<Contravariant\>\""}], ",", "\n",
+           "\t                  ", 
+          RowBox[{
+           RowBox[{"cov", "=", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"h\[Eta]\[Nu]", "[", 
+                RowBox[{"[", "b", "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "+", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"Crhistoffel", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"\[Rho]", ",", "a", ",", "b"}], "]"}], "]"}], 
+                RowBox[{"h\[Eta]\[Nu]", "[", 
+                 RowBox[{"[", "\[Rho]", "]"}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"\[Rho]", ",", 
+                 RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]}], ";"}]}],
+          "  ", "\n", "\t              ", "]"}], ";"}], ",", "\n", "\t  ", 
+       RowBox[{"rank", "\[Equal]", "2"}], ",", "  ", 
+       RowBox[{
+        RowBox[{"If", "[", 
+         RowBox[{"verbose", ",", 
+          RowBox[{
+           RowBox[{"Print", "[", "\"\<Tensor , \>\"", "]"}], ";", 
+           RowBox[{"Print", "[", "valence", "]"}], ";"}]}], "]"}], ";", " ", 
+        "\n", "\t            ", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", "index"}], ";", "\n",
+         "\t            ", 
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{"valence", "\[Equal]", "\"\<Covariant\>\""}], ",", "  ", 
+          "\n", "\t                          ", 
+          RowBox[{
+           RowBox[{"cov", "=", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"h\[Eta]\[Nu]", "[", 
+                RowBox[{"[", 
+                 RowBox[{"b", ",", "c"}], "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "-", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"d", ",", "a", ",", "b"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"c", ",", "d"}], "]"}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"d", ",", "a", ",", "c"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"b", ",", "d"}], "]"}], "]"}]}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"d", ",", "n"}], "}"}]}], "]"}]}]}], ";"}], ",", " ", 
+          "\n", "\t\t\t\t      ", 
+          RowBox[{"valence", "\[Equal]", "\"\<Contravariant\>\""}], ",", "\n",
+           "\t\t\t\t              ", 
+          RowBox[{
+           RowBox[{"cov", "=", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"h\[Eta]\[Nu]", "[", 
+                RowBox[{"[", 
+                 RowBox[{"b", ",", "c"}], "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "+", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"b", ",", "a", ",", "d"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"c", ",", "d"}], "]"}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"c", ",", "a", ",", "d"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"d", ",", "b"}], "]"}], "]"}]}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"d", ",", "n"}], "}"}]}], "]"}]}]}], ";"}], ",", "\n",
+           "\t\t\t\t      ", 
+          RowBox[{"valence", "\[Equal]", "\"\<Mixed\>\""}], ",", "\n", 
+          "\t\t\t\t              ", 
+          RowBox[{
+           RowBox[{"cov", "=", 
+            RowBox[{
+             RowBox[{"D", "[", 
+              RowBox[{
+               RowBox[{"h\[Eta]\[Nu]", "[", 
+                RowBox[{"[", 
+                 RowBox[{"b", ",", "c"}], "]"}], "]"}], ",", 
+               RowBox[{"xx", "[", 
+                RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "+", 
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"b", ",", "a", ",", "d"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"c", ",", "d"}], "]"}], "]"}]}], "-", 
+                RowBox[{
+                 RowBox[{"Crhistoffel", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"c", ",", "a", ",", "d"}], "]"}], "]"}], 
+                 RowBox[{"h\[Eta]\[Nu]", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"d", ",", "b"}], "]"}], "]"}]}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"d", ",", "n"}], "}"}]}], "]"}]}]}], ";"}]}], "]"}], 
+        ";"}], ",", "\n", "                 ", "True", ",", "     ", 
+       RowBox[{
+        RowBox[{"If", "[", 
+         RowBox[{"verbose", ",", 
+          RowBox[{"Print", "[", "\"\<Rank not recognised\>\"", "]"}]}], "]"}],
+         ";", "\n", "                ", 
+        RowBox[{"Return", "[", "]"}], ";"}]}], "\t\t\t\t", "\n", "]"}], ";", 
+     "\n", 
+     RowBox[{"Simplify", "@", "cov"}]}]}], "         ", "\[IndentingNewLine]",
+    "]"}]}]], "Code",
+ CellChangeTimes->{{3.716958151725273*^9, 3.7169583978991127`*^9}, {
+   3.716958437277883*^9, 3.716958448810377*^9}, {3.716958563766862*^9, 
+   3.716958596473881*^9}, {3.716958665715267*^9, 3.716958732289363*^9}, {
+   3.716958777690095*^9, 3.7169587874890423`*^9}, {3.71695884035926*^9, 
+   3.71695886933248*^9}, {3.7169589608770857`*^9, 3.716958965915368*^9}, {
+   3.716959110922554*^9, 3.71695913829641*^9}, {3.716959200401162*^9, 
+   3.7169592015115623`*^9}, {3.716959311599819*^9, 3.7169593777808247`*^9}, {
+   3.716959407829681*^9, 3.7169596273310757`*^9}, {3.7169596776212473`*^9, 
+   3.716959680793425*^9}, {3.7169597186156187`*^9, 3.716959732119049*^9}, {
+   3.7169597911821547`*^9, 3.716959799790285*^9}, {3.716959877828841*^9, 
+   3.716959881532795*^9}, {3.7169599411482277`*^9, 3.716960171792747*^9}, {
+   3.716960529373378*^9, 3.716960591235835*^9}, {3.716960622370409*^9, 
+   3.716960624906451*^9}, {3.716960655033724*^9, 3.716960738456862*^9}, {
+   3.71696082927989*^9, 3.716960832631673*^9}, {3.7169609480233803`*^9, 
+   3.7169610038771544`*^9}, {3.716961043773007*^9, 3.716961133683503*^9}, {
+   3.716961173964795*^9, 3.716961176109325*^9}, {3.716961214941975*^9, 
+   3.716961265132134*^9}, 3.716961364791875*^9, {3.716961623701221*^9, 
+   3.716961631434885*^9}, {3.7169618126900587`*^9, 3.7169618398100033`*^9}, {
+   3.716962008231491*^9, 3.716962081204027*^9}, {3.716962173569161*^9, 
+   3.716962234987817*^9}, {3.716962306794786*^9, 3.7169623077407837`*^9}, {
+   3.716962551469633*^9, 3.716962559108954*^9}, {3.716962801267487*^9, 
+   3.7169630915675364`*^9}, {3.716963288958702*^9, 3.7169632948286743`*^9}, {
+   3.716963347405435*^9, 3.716963347474783*^9}, {3.716963419482785*^9, 
+   3.7169634208506823`*^9}, {3.716963464290103*^9, 3.716963485633626*^9}, {
+   3.7169639487563763`*^9, 3.716964021210177*^9}, {3.71696467195216*^9, 
+   3.7169647303523273`*^9}, {3.716964769286487*^9, 3.7169647850231543`*^9}, {
+   3.7169678649020653`*^9, 3.7169678971006308`*^9}, {3.716968003731184*^9, 
+   3.716968044592444*^9}, {3.7169680787838717`*^9, 3.716968108327353*^9}, {
+   3.717422172511314*^9, 3.717422270655233*^9}, {3.7174225062298603`*^9, 
+   3.717422510860096*^9}, {3.717429857889625*^9, 3.7174298836210814`*^9}, {
+   3.717430036165784*^9, 3.7174300554209433`*^9}, {3.717742994873782*^9, 
+   3.717742995441497*^9}, {3.71774304528869*^9, 3.717743217367523*^9}, {
+   3.717743255790976*^9, 3.7177432590951653`*^9}, {3.717743929907378*^9, 
+   3.717743932691547*^9}, {3.717748676157947*^9, 3.717748682681328*^9}, {
+   3.717748836211932*^9, 3.7177488428814583`*^9}, {3.717748894171052*^9, 
+   3.7177488943781967`*^9}, {3.71774900641063*^9, 3.717749063762991*^9}, {
+   3.719844648102268*^9, 3.719844702475222*^9}, 3.719844733410307*^9, {
+   3.71984480538925*^9, 3.719844893864911*^9}, {3.719844940427096*^9, 
+   3.719844955945498*^9}, {3.735549431853215*^9, 3.735549441727952*^9}, {
+   3.735549483856206*^9, 3.73554952555838*^9}, {3.735550484305726*^9, 
+   3.7355505334532967`*^9}, {3.7355505772122917`*^9, 3.735550598306122*^9}, {
+   3.73555965452418*^9, 3.735559660772254*^9}, {3.7355597085256557`*^9, 
+   3.7355597157899323`*^9}, {3.735559847298284*^9, 3.735559866672288*^9}, {
+   3.735560150766432*^9, 3.735560150940805*^9}, 3.735561188131874*^9, {
+   3.7355612801854553`*^9, 3.735561315639447*^9}, {3.735561385274592*^9, 
+   3.735561419031749*^9}, {3.735561487034822*^9, 3.735561488028627*^9}, {
+   3.7355615362688313`*^9, 3.735561555298785*^9}, {3.735561645920278*^9, 
+   3.735561647201825*^9}, {3.7356260832165937`*^9, 3.7356260934972677`*^9}, {
+   3.735990229610498*^9, 3.7359902443541527`*^9}, {3.735990327395894*^9, 
+   3.735990372976108*^9}, 3.735990442144567*^9, {3.7359914548606367`*^9, 
+   3.735991457728942*^9}, {3.73599165463449*^9, 3.735991674271563*^9}, {
+   3.736037807022584*^9, 3.736037826709483*^9}, {3.73613830734103*^9, 
+   3.7361384019077682`*^9}, {3.736138624197188*^9, 3.736138669601768*^9}, {
+   3.7361391136817017`*^9, 3.736139134465399*^9}, {3.7361391811999273`*^9, 
+   3.736139219271276*^9}, {3.736139288107958*^9, 3.73613934673378*^9}, {
+   3.736139384805975*^9, 3.736139400662005*^9}, {3.7475464637924347`*^9, 
+   3.747546468417864*^9}, {3.74754656804249*^9, 3.7475465733959293`*^9}, {
+   3.7475470183465*^9, 3.7475470539032593`*^9}, {3.747559403491639*^9, 
+   3.7475594042873497`*^9}, {3.7479705724194736`*^9, 3.747970573108122*^9}, {
+   3.747970879089012*^9, 3.747970881609277*^9}, {3.748164756343375*^9, 
+   3.748164757662685*^9}, {3.748167014412612*^9, 3.748167301809575*^9}, {
+   3.748167371778345*^9, 3.7481673720915318`*^9}, {3.7481675186246243`*^9, 
+   3.748167518870804*^9}, {3.748167663192347*^9, 3.748167699917927*^9}, {
+   3.7481692871312227`*^9, 3.748169303289918*^9}, {3.748169348321314*^9, 
+   3.748169392540389*^9}, {3.748169492750543*^9, 3.7481694953320503`*^9}, {
+   3.748169565440503*^9, 3.748169600290801*^9}, {3.74816963812173*^9, 
+   3.748169640710599*^9}, {3.748169686294422*^9, 3.7481696868050528`*^9}, {
+   3.7481697359059963`*^9, 3.748169869097269*^9}, {3.748169943842535*^9, 
+   3.7481699558623667`*^9}, {3.748170146530601*^9, 3.748170157881694*^9}, {
+   3.748170691140609*^9, 3.748170694032143*^9}, {3.748170731111718*^9, 
+   3.748170758655857*^9}, {3.748170798299234*^9, 3.7481708056830397`*^9}, {
+   3.748170916924307*^9, 3.748170917555646*^9}, {3.748171229979322*^9, 
+   3.748171308369996*^9}, {3.7659791595038357`*^9, 3.7659791632015877`*^9}, {
+   3.765979255609798*^9, 3.765979255782762*^9}},
+ CellLabel->
+  "In[252]:=",ExpressionUUID->"42d7e549-8322-428c-b63b-bf6095197569"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LeviCivitaTensorCurv", "[", 
+   RowBox[{"xx_", ",", "g_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", "dim", "}"}], ",", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"dim", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"Sqrt", "[", 
+       RowBox[{"Det", "[", "g", "]"}], "]"}], 
+      RowBox[{"LeviCivitaTensor", "[", 
+       RowBox[{"dim", ",", "List"}], "]"}]}]}]}], "\[IndentingNewLine]", 
+   "]"}]}]], "Code",
+ CellChangeTimes->{{3.7479034087405777`*^9, 3.747903506189601*^9}, 
+   3.747903546937071*^9, {3.74797122162267*^9, 3.7479712247112427`*^9}},
+ CellLabel->
+  "In[253]:=",ExpressionUUID->"df2e70b3-e89e-4c7e-9199-272b7a4be691"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"CurlCurvilinear", "[", 
+   RowBox[{"xx_", ",", "g_", ",", "vec_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "lv", ",", "vecb", ",", "DCov", ",", "lvup", ",", "gup", ",", "vecn"}], 
+     "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"lv", "=", 
+      RowBox[{"LeviCivitaTensorCurv", "[", 
+       RowBox[{"xx", ",", "g"}], "]"}]}], ";", "\n", 
+     RowBox[{"vecb", "=", 
+      RowBox[{"Sqrt", "[", 
+       RowBox[{"Diagonal", "[", "g", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"vecn", "=", 
+      RowBox[{"vec", "*", "vecb"}]}], ";", "\n", 
+     RowBox[{"DCov", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{"CovDer", "[", 
+         RowBox[{"xx", ",", "g", ",", "vecn", ",", 
+          RowBox[{"{", 
+           RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a", ",", 
+          RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"b", ",", 
+          RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"InverseMetric", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"lvup", "=", 
+      RowBox[{"Simplify", "[", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"gup", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "a"}], "]"}], "]"}], 
+            RowBox[{"gup", "[", 
+             RowBox[{"[", 
+              RowBox[{"j", ",", "b"}], "]"}], "]"}], " ", 
+            RowBox[{"gup", "[", 
+             RowBox[{"[", 
+              RowBox[{"k", ",", "c"}], "]"}], "]"}], " ", 
+            RowBox[{"lv", "[", 
+             RowBox[{"[", 
+              RowBox[{"a", ",", "b", ",", "c"}], "]"}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"b", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"c", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Simplify", "[", 
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"lvup", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "e", ",", "d"}], "]"}], "]"}], 
+            RowBox[{"DCov", "[", 
+             RowBox[{"[", 
+              RowBox[{"e", ",", "d"}], "]"}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"e", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"d", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], "]"}], 
+        RowBox[{"vecb", "[", 
+         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]}], "\n", 
+   "]"}]}]], "Code",
+ CellChangeTimes->{{3.747971450136709*^9, 3.747971499546629*^9}, {
+  3.747971543749538*^9, 3.74797166000423*^9}, {3.747971711877779*^9, 
+  3.7479718197152233`*^9}},
+ CellLabel->
+  "In[254]:=",ExpressionUUID->"85a87c7b-5448-48cf-b7ff-42ea3bc6b701"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "CheckTetrad", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"CheckTetrad", "[", 
+    RowBox[{"gab_", ",", "nullv_", ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "l", ",", "n", ",", "m", ",", "mb", ",", "test", ",", "verbose"}], 
+      "}"}], ",", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"l", ",", "n", ",", "m", ",", "mb"}], "}"}], "=", "nullv"}], 
+      ";", "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", 
+      "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{"test", "=", 
+       RowBox[{"Chop", "@", 
+        RowBox[{"Simplify", "@", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"l", ".", "gab", ".", "l"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"n", ".", "gab", ".", "n"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"m", ".", "gab", ".", "m"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"mb", ".", "gab", ".", "mb"}], ",", "\[IndentingNewLine]", 
+           
+           RowBox[{"l", ".", "gab", ".", "m"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"l", ".", "gab", ".", "mb"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"n", ".", "gab", ".", "m"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"n", ".", "gab", ".", "mb"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"l", ".", "gab", ".", "n"}], ",", "\[IndentingNewLine]", 
+           RowBox[{"m", ".", "gab", ".", "mb"}]}], "}"}]}]}]}], ";", 
+      "\[IndentingNewLine]", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{"Print", "[", 
+         RowBox[{
+         "\"\<{l.l,n.n,m.m,mb.mb,l.m,l.mb,n.m,n.mb,l.n,m.mb} = \>\"", ",", 
+          "test"}], "]"}]}], "]"}], ";", "\n", "\[IndentingNewLine]", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"Total", "@", 
+           RowBox[{"test", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ";;", "8"}], "]"}], "]"}]}], "\[Equal]", "0"}], "&&", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"test", "[", 
+            RowBox[{"[", "9", "]"}], "]"}], "*", 
+           RowBox[{"test", "[", 
+            RowBox[{"[", "10", "]"}], "]"}]}], "\[Equal]", 
+          RowBox[{"-", "1"}]}]}], ",", 
+        RowBox[{
+         RowBox[{"Print", "[", 
+          RowBox[{"Style", "[", 
+           RowBox[{
+           "\"\<Your tetrad satisfies the properties of orthonormality\>\"", 
+            ",", "Blue"}], "]"}], "]"}], ";"}], ",", 
+        RowBox[{"Print", "[", 
+         RowBox[{"Style", "[", 
+          RowBox[{"\"\<Your tetrad has some troubles\>\"", ",", "Blue"}], 
+          "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.782810688023137*^9, 3.7828110130279903`*^9}, {
+  3.7828112195882196`*^9, 3.7828112975285463`*^9}, {3.782811428847712*^9, 
+  3.7828114682409573`*^9}, {3.782811528591279*^9, 3.7828116837007513`*^9}, {
+  3.782811941157217*^9, 3.782812020471404*^9}, {3.783060343969513*^9, 
+  3.78306050243454*^9}, {3.7830620822434464`*^9, 3.783062118269932*^9}},
+ CellLabel->
+  "In[255]:=",ExpressionUUID->"efc86dd5-ff62-4d68-8ccd-ec0fdaa23a1d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Einstein tensor and general GR computations: developer", "Section",
+ CellChangeTimes->{{3.718440602298374*^9, 3.718440612890011*^9}, {
+  3.724070943686637*^9, 3.7240709467569942`*^9}, {3.797832442556991*^9, 
+  3.7978324504825583`*^9}},ExpressionUUID->"4a954fa8-5e65-4aa0-9dfb-\
+a2c2621cf75e"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"Conventions", " ", "following", " ", "Misner", " ", "et", " ", 
+    RowBox[{"al", "."}]}], ",", " ", 
+   RowBox[{"that", " ", "is"}], ",", " ", 
+   RowBox[{
+    RowBox[{"[", "S2", "]"}], " ", "=", " ", "1"}], ",", " ", 
+   RowBox[{
+    RowBox[{"[", "S3", "]"}], " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+      "1", " ", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+       "Acknowledge"}], " ", 
+      RowBox[{"http", ":"}]}], "//", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"kias", ".", "dyndns", ".", "org"}], "/", "crg"}], "/", 
+      RowBox[{"tensors", ".", "html"}]}]}]}]}], "*)"}]], "Input",
+ CellChangeTimes->{{3.7246545239510727`*^9, 3.724654534922943*^9}, {
+  3.724944260340417*^9, 3.7249442747881737`*^9}, {3.724944335411549*^9, 
+  3.724944347571026*^9}, {3.7978330199540663`*^9, 3.797833036605859*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"a0b580d6-2659-4ec5-a8c3-c296a9e08932"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "1"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}], ",", 
+     RowBox[{"\"\<Compile\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<CompileCoordinateIndex\>\"", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ChristoffelSymbolDev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "n", ",", "ig", ",", "compile", ",", "compilecind", ",", "coords", ",", 
+      "res", ",", "perti", ",", "simpl", ",", "verbose"}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"compile", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"compilecind", "=", 
+      RowBox[{"OptionValue", "[", "\"\<CompileCoordinateIndex\>\"", "]"}]}], 
+     ";", "\[IndentingNewLine]", "\n", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+     RowBox[{"ig", "=", 
+      RowBox[{"InverseMetric", "[", "g", "]"}]}], ";", "\[IndentingNewLine]", 
+     
+     RowBox[{"res", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "=", 
+           RowBox[{"Sum", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"ig", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "s"}], "]"}], "]"}], "*", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"D", "[", 
+                  RowBox[{
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", 
+                   RowBox[{"xx", "[", 
+                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}]}], "+", 
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"g", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"j", ",", "s"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "+", 
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"g", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"s", ",", "k"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "j", ",", "n"}], "}"}]}], "]"}], ";"}], ",", 
+       "\n", "                   ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j", ",", "n"}], "]"}], "]"}], "=", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ig", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "s"}], "]"}], "]"}], "*", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}]}], "+", 
+                  RowBox[{"D", "[", 
+                   RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"j", ",", "s"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "+", 
+                  RowBox[{"D", "[", 
+                   RowBox[{
+                    RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"s", ",", "n"}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "j", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", 
+     "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{"simpl", "[", 
+       RowBox[{
+        RowBox[{"1", "/", "2"}], " ", "res"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", "Compile", " ", "*)"}], "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"compile", ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "=", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"NumberQ", "[", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "]"}], ",", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], ",", 
+             RowBox[{"Compile", "[", 
+              RowBox[{
+               RowBox[{"Evaluate", "@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", 
+                  RowBox[{"(", 
+                   RowBox[{"xx", "[", 
+                    RowBox[{"[", "compilecind", "]"}], "]"}], ")"}]}], 
+                 ")"}]}], ",", 
+               RowBox[{"Evaluate", "[", 
+                RowBox[{"res", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "]"}], ",", 
+               RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+               RowBox[{"CompilationOptions", "\[Rule]", 
+                RowBox[{
+                "\"\<InlineExternalDefinitions\>\"", "\[Rule]", "True"}]}]}], 
+              "]"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "j", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], 
+     ";", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Applying", " ", "symmetries"}], " ", "*)"}], "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", 
+            RowBox[{"j", "+", "1"}], ",", "k"}], "]"}], "]"}], "=", 
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "k", ",", 
+            RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "j"}], "}"}]}], "]"}], ";", "\n", "\n", "res"}]}], 
+   "\[IndentingNewLine]", "]"}]}]}], "Code",
+ CellChangeTimes->{
+  3.7978330469663*^9, {3.7978330791032743`*^9, 3.797833085487215*^9}, {
+   3.7978333819471416`*^9, 3.797833384553617*^9}, {3.797833418863377*^9, 
+   3.7978334287596617`*^9}, {3.797833535743575*^9, 3.797833612851973*^9}, {
+   3.7978336520263033`*^9, 3.7978337135325937`*^9}, {3.7978337717024527`*^9, 
+   3.79783381141481*^9}, {3.79783436546485*^9, 3.797834390297051*^9}, {
+   3.797834467958973*^9, 3.7978344681385727`*^9}, {3.797835086331999*^9, 
+   3.797835105974365*^9}, 3.797835397904895*^9, {3.797835430114091*^9, 
+   3.797835475164529*^9}, {3.797835540573142*^9, 3.7978355519810963`*^9}, {
+   3.7978355883891993`*^9, 3.797835659879631*^9}, {3.79783569921635*^9, 
+   3.7978358357996893`*^9}, 3.7978362159565573`*^9, {3.797836259084791*^9, 
+   3.7978362715348*^9}, {3.797912958028482*^9, 3.797913049625235*^9}, {
+   3.797913167953149*^9, 3.797913168105837*^9}, {3.797913371589005*^9, 
+   3.7979134233956947`*^9}, {3.797913486247561*^9, 3.797913489077076*^9}, {
+   3.7979135220845327`*^9, 3.797913626392641*^9}, {3.797913763805188*^9, 
+   3.797913765217051*^9}, {3.797915063360507*^9, 3.7979150738481407`*^9}, {
+   3.797915220555603*^9, 3.797915260767672*^9}, {3.797915382237934*^9, 
+   3.797915480283585*^9}, {3.797915529044695*^9, 3.797915565825739*^9}, {
+   3.79791565031358*^9, 3.797915665699099*^9}, {3.797915696112783*^9, 
+   3.797915703738511*^9}, {3.797915753295558*^9, 3.797915755566876*^9}, 
+   3.79791578962567*^9, {3.7979158308888807`*^9, 3.797915831113716*^9}, 
+   3.7979158625478277`*^9, {3.797915894017071*^9, 3.7979160072723427`*^9}, {
+   3.7979160943240423`*^9, 3.797916179442398*^9}, {3.79791621051729*^9, 
+   3.797916271385435*^9}, {3.797916668621242*^9, 3.797916710062166*^9}, {
+   3.797916769249278*^9, 3.797916806526216*^9}, 3.797916894023691*^9, {
+   3.79791692751882*^9, 3.797917097540579*^9}, {3.797917613878068*^9, 
+   3.7979176674537973`*^9}, {3.7979177164140863`*^9, 
+   3.7979177709715643`*^9}, {3.797917808382588*^9, 3.797917899107602*^9}, {
+   3.797917931192135*^9, 3.797917985872579*^9}, {3.797918108393672*^9, 
+   3.7979181710453444`*^9}, {3.79791820491171*^9, 3.797918217629637*^9}, {
+   3.797918312615646*^9, 3.797918361399005*^9}, {3.797918408925951*^9, 
+   3.79791841752269*^9}, 3.797918449478552*^9, {3.797920766991625*^9, 
+   3.797920774019799*^9}, {3.7979208135703707`*^9, 3.797920918261492*^9}, {
+   3.797920968127347*^9, 3.797920971638546*^9}, {3.798200416448701*^9, 
+   3.798200436408285*^9}, {3.7982005295358543`*^9, 3.7982005448114223`*^9}, {
+   3.798200689182094*^9, 3.798200720858914*^9}, {3.798200796470461*^9, 
+   3.798200815115171*^9}, {3.798200846980116*^9, 3.798200856203682*^9}, {
+   3.798200887828321*^9, 3.798200917667572*^9}, {3.798200971455227*^9, 
+   3.798200992386558*^9}, {3.798201212911075*^9, 3.79820122753242*^9}, {
+   3.798367411588543*^9, 3.7983674831942377`*^9}, 3.79843400105247*^9},
+ CellLabel->
+  "In[122]:=",ExpressionUUID->"bdffc080-9d05-49d3-8851-81b168c7f40f"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RiemannTensorDev", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "False"}], "}"}]}], "]"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "caux", ",", "n", ",", "Chr", ",", "compile", ",", "compilecind", ",", 
+       "index", ",", "res", ",", "perti", ",", "simpl", ",", "time", ",", 
+       "verbose"}], "}"}], ",", "\n", 
+     RowBox[{
+      RowBox[{"index", "=", 
+       RowBox[{"OptionValue", "[", "\"\<IndexDown\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"compile", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"compilecind", "=", 
+       RowBox[{"OptionValue", "[", "\"\<CompileCoordinateIndex\>\"", "]"}]}], 
+      ";", "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+      "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{
+        "Print", "[", "\"\<Starting with Christoffel symbols...\>\"", "]"}]}],
+        "]"}], ";", "\n", 
+      RowBox[{"Chr", "=", 
+       RowBox[{"ChristoffelSymbolDev", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}], ",", 
+         RowBox[{"\"\<Compile\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{
+        "Print", "[", 
+         "\"\<Christoffel symbols computed. Starting with Riemann...\>\"", 
+         "]"}]}], "]"}], ";", "\n", "\n", 
+      RowBox[{"res", "=", 
+       RowBox[{"ConstantArray", "[", 
+        RowBox[{"0", ",", 
+         RowBox[{"{", 
+          RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"index", ",", "\n", "        ", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", "  ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "p"}], "]"}], "]"}], 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}]}], ",", 
+                    
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"p", ",", "n"}], "}"}]}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "l", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+           "                            ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "p"}], "]"}], "]"}], 
+                 RowBox[{"(", 
+                  RowBox[{"Normal", "@", 
+                   RowBox[{"Series", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                    RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+                    RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], 
+                    "]"}]}], ")"}]}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"p", ",", "n"}], "}"}]}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", "\n", 
+         "                           ", "\n", "                             ", 
+         RowBox[{"(*", " ", 
+          RowBox[{"Applying", " ", "simmetries"}], " ", "*)"}], "\n", 
+         "                            ", 
+         RowBox[{"(*", 
+          RowBox[{
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{
+                 RowBox[{"i", "+", "1"}], ",", "k", ",", "l", ",", "m"}], 
+                "]"}], "]"}], "=", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"l", ",", "k", ",", 
+                 RowBox[{"i", "+", "1"}], ",", "m"}], "]"}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", 
+               RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "i"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";"}], "*)"}], "\n", 
+         "                            ", 
+         RowBox[{"Do", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"res", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "k", ",", 
+               RowBox[{"l", "+", "1"}], ",", "m"}], "]"}], "]"}], "=", 
+            RowBox[{"-", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "k", ",", "m", ",", 
+                RowBox[{"l", "+", "1"}]}], "]"}], "]"}]}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", "n"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"k", ",", "n"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"l", ",", 
+             RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"m", ",", "l"}], "}"}]}], "]"}], ";", "\n", 
+         "                            ", 
+         RowBox[{"Do", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"res", "[", 
+             RowBox[{"[", 
+              RowBox[{
+               RowBox[{"i", "+", "1"}], ",", "k", ",", "l", ",", "m"}], "]"}],
+              "]"}], "=", 
+            RowBox[{"-", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"k", ",", 
+                RowBox[{"i", "+", "1"}], ",", "l", ",", "m"}], "]"}], 
+              "]"}]}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"k", ",", "i"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"l", ",", "n"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";", "\n", 
+         "                            ", 
+         RowBox[{"If", "[", 
+          RowBox[{"compile", ",", 
+           RowBox[{
+            RowBox[{"caux", "=", "0"}], ";", " ", 
+            RowBox[{"Do", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"time", "=", 
+                RowBox[{
+                 RowBox[{"Timing", "[", 
+                  RowBox[{
+                   RowBox[{"res", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}],
+                    "=", 
+                   RowBox[{"Compile", "[", 
+                    RowBox[{
+                    RowBox[{"Evaluate", "@", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", 
+                    RowBox[{"(", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "compilecind", "]"}], "]"}], ")"}]}], 
+                    ")"}]}], ",", 
+                    RowBox[{"Evaluate", "[", 
+                    RowBox[{"res", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}],
+                     "]"}], ",", 
+                    RowBox[{"RuntimeOptions", "\[Rule]", "\"\<Speed\>\""}]}], 
+                    "]"}]}], "]"}], "[", 
+                 RowBox[{"[", "1", "]"}], "]"}]}], ";", 
+               RowBox[{"If", "[", 
+                RowBox[{"verbose", ",", 
+                 RowBox[{"Print", "[", 
+                  RowBox[{"\"\<compiling: \>\"", ",", 
+                   RowBox[{"{", 
+                    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "}"}], ",", 
+                   "\"\< \>\"", ",", "time", ",", "\"\< s\>\""}], "]"}]}], 
+                "]"}], ";"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"k", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"l", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}]}], 
+        "\n", "                            ", ",", 
+        "                            ", "\n", "        ", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", "  ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                RowBox[{"Sum", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}]}], ",", 
+                  
+                  RowBox[{"{", 
+                   RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+           "                            ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"(", 
+               RowBox[{"Normal", "@", 
+                RowBox[{"Series", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+                  RowBox[{"{", 
+                   RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}],
+                ")"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\n",
+        "        ", "]"}], ";", "\n", "\n", "\[IndentingNewLine]", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{"Print", "[", "\"\<...Riemann computed\>\"", "]"}]}], "]"}], 
+      ";", "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.798201761796755*^9, 3.798201778478615*^9}, {
+   3.7982019426048517`*^9, 3.7982020885463676`*^9}, {3.798202188469666*^9, 
+   3.798202188752832*^9}, {3.798202235213434*^9, 3.7982022357380667`*^9}, 
+   3.798258168874947*^9, {3.7982582120531693`*^9, 3.798258215584395*^9}, {
+   3.798258262930125*^9, 3.798258302777269*^9}, {3.7982583442770777`*^9, 
+   3.798258456880644*^9}, {3.798258610943906*^9, 3.798258611147222*^9}, 
+   3.7982595549072323`*^9, {3.7982595940162573`*^9, 3.798259595257298*^9}, {
+   3.798260413439714*^9, 3.7982604575218897`*^9}, {3.798260507032803*^9, 
+   3.798260513839057*^9}, {3.7982616128595667`*^9, 3.798261675437492*^9}, {
+   3.798270325445936*^9, 3.7982703721049747`*^9}, {3.798270419687889*^9, 
+   3.798270429981975*^9}, {3.798270464872583*^9, 3.79827046501184*^9}, {
+   3.7982705239495277`*^9, 3.798270539044157*^9}, {3.798273323499441*^9, 
+   3.798273323761797*^9}, {3.798347314779356*^9, 3.7983473288683662`*^9}, {
+   3.7983474966959352`*^9, 3.798347500360285*^9}, {3.798347683734331*^9, 
+   3.7983477685354013`*^9}, {3.798347952699193*^9, 3.798348046250648*^9}, {
+   3.798348091503224*^9, 3.79834811612291*^9}, {3.798348199523498*^9, 
+   3.798348226693466*^9}, {3.798348325664906*^9, 3.798348381624979*^9}, {
+   3.7983484656883698`*^9, 3.7983485978555183`*^9}, {3.79834897114116*^9, 
+   3.798348983540642*^9}, {3.7983490571025753`*^9, 3.798349239958953*^9}, {
+   3.798349376285989*^9, 3.798349401841381*^9}, {3.798349439234774*^9, 
+   3.798349462105866*^9}, {3.798349824332347*^9, 3.798349826124508*^9}, {
+   3.798350825548751*^9, 3.798350825777767*^9}, {3.7983514446295223`*^9, 
+   3.798351477759396*^9}, {3.7983515766824503`*^9, 3.798351603658345*^9}, {
+   3.798351638961677*^9, 3.798351907861167*^9}, {3.798351942471902*^9, 
+   3.798351945408573*^9}, {3.798351980416534*^9, 3.79835202195184*^9}, {
+   3.7983522230691633`*^9, 3.798352242907681*^9}, {3.7983522861833878`*^9, 
+   3.798352315458262*^9}, {3.798352375739766*^9, 3.7983523975806313`*^9}, {
+   3.798352435687175*^9, 3.7983524413802958`*^9}, {3.798352473201661*^9, 
+   3.798352599136998*^9}, {3.7983574888368063`*^9, 3.798357538699814*^9}, {
+   3.79835763349463*^9, 3.7983576963693743`*^9}, {3.798357732197682*^9, 
+   3.7983577991957903`*^9}, {3.7983578664443913`*^9, 
+   3.7983579534268093`*^9}, {3.7983581047424707`*^9, 3.798358107550373*^9}, {
+   3.798358189869671*^9, 3.798358190104258*^9}, {3.798358866040083*^9, 
+   3.798358917074216*^9}, {3.7983590474901752`*^9, 3.798359098770191*^9}, {
+   3.7983593633069267`*^9, 3.798359369893713*^9}, {3.7983602454883747`*^9, 
+   3.798360247685865*^9}, {3.7983602922297697`*^9, 3.79836032323831*^9}, {
+   3.798361800738165*^9, 3.798361815481246*^9}, {3.7983649455664597`*^9, 
+   3.798364990465555*^9}, {3.79836502599538*^9, 3.798365048527315*^9}, {
+   3.798365690993224*^9, 3.798365697080127*^9}, {3.798365789570702*^9, 
+   3.798365790306757*^9}, 3.798365865823691*^9, {3.798367504980557*^9, 
+   3.798367524817175*^9}, {3.7984335952460833`*^9, 3.798433710636409*^9}, {
+   3.798433741957892*^9, 3.7984338319571247`*^9}, 3.798433934578313*^9, {
+   3.798433984211995*^9, 3.79843400581882*^9}, {3.798451519547391*^9, 
+   3.798451542034133*^9}, {3.7984517212826777`*^9, 3.798451725674974*^9}},
+ CellLabel->
+  "In[193]:=",ExpressionUUID->"44cea7c1-7692-4677-87f1-7b447cd20893"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RicciTensorDev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"RicciTensorDev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "compile", ",", "Rie", ",", "res", ",", "n", ",", "perti", ",", 
+      "simpl"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"compile", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+     RowBox[{"Rie", "=", 
+      RowBox[{"RiemannTensorDev", "[", 
+       RowBox[{"xx", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", " ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{"Rie", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], ",", 
+            
+            RowBox[{"{", 
+             RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+       "                   ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{"Rie", "[", 
+                RowBox[{"[", 
+                 RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], 
+               ",", 
+               RowBox[{"{", 
+                RowBox[{"s", ",", "n"}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", 
+     "  ", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"compile", ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"NumberQ", "[", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
+             RowBox[{"Compile", "[", 
+              RowBox[{
+               RowBox[{"Evaluate", "@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", "xx"}], 
+                 ")"}]}], ",", 
+               RowBox[{"Evaluate", "[", 
+                RowBox[{"res", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+               RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+               RowBox[{"CompilationOptions", "\[Rule]", 
+                RowBox[{
+                "\"\<InlineExternalDefinitions\>\"", "\[Rule]", "True"}]}]}], 
+              "]"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], 
+     "  ", ";", "                 ", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Applying", " ", "symmetries"}], " ", "*)"}], "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{
+            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "=", 
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", 
+            RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ";", "                   ", 
+     "\[IndentingNewLine]", "\n", 
+     RowBox[{"simpl", "@", "res"}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{{3.799563218282297*^9, 3.799563224666071*^9}, {
+  3.799563285612954*^9, 3.799563312405682*^9}},
+ CellLabel->
+  "In[143]:=",ExpressionUUID->"dba59494-d6bd-455c-9583-739496b4e8fb"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "ElectricTensor3p1Dev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"ElectricTensor3p1Dev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", "Kt_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "compile", ",", "gup", ",", "Ks", ",", "Ktup", ",", "Ric", ",", "res", 
+      ",", "n", ",", "perti", ",", "simpl"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"compile", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+     RowBox[{"Ric", "=", 
+      RowBox[{"RicciTensorDev", "[", 
+       RowBox[{"xx", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"InverseMetric", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"Ktup", "=", 
+      RowBox[{"(", 
+       RowBox[{"gup", ".", "gup", ".", "Kt"}], ")"}]}], ";", "\n", 
+     RowBox[{"Ks", "=", 
+      RowBox[{"(", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"gup", "[", 
+           RowBox[{"[", 
+            RowBox[{"a", ",", "b"}], "]"}], "]"}], 
+          RowBox[{"Kt", "[", 
+           RowBox[{"[", 
+            RowBox[{"a", ",", "b"}], "]"}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"a", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"b", ",", "n"}], "}"}]}], "]"}], ")"}]}], ";", "\n", "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", " ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{
+           RowBox[{"Ric", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j"}], "]"}], "]"}], "+", 
+           RowBox[{"Ks", " ", 
+            RowBox[{"Kt", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "-", 
+           RowBox[{"Sum", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"Kt", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+              RowBox[{"Ktup", "[", 
+               RowBox[{"[", 
+                RowBox[{"m", ",", "j"}], "]"}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+       "                   ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"Ric", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j"}], "]"}], "]"}], "+", 
+              RowBox[{"Ks", " ", 
+               RowBox[{"Kt", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "-", 
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"Kt", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                 RowBox[{"Ktup", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"m", ",", "j"}], "]"}], "]"}]}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", 
+     "  ", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"compile", ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"NumberQ", "[", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
+             RowBox[{"Compile", "[", 
+              RowBox[{
+               RowBox[{"Evaluate", "@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", "xx"}], 
+                 ")"}]}], ",", 
+               RowBox[{"Evaluate", "[", 
+                RowBox[{"res", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+               RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+               RowBox[{"CompilationOptions", "\[Rule]", 
+                RowBox[{
+                "\"\<InlineExternalDefinitions\>\"", "\[Rule]", "True"}]}]}], 
+              "]"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], 
+     ";", "                 ", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Applying", " ", "symmetries"}], " ", "*)"}], "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{
+            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "=", 
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", 
+            RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ";", "                   ", 
+     "\n", "\[IndentingNewLine]", 
+     RowBox[{"simpl", "@", "res"}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{{3.798202691045713*^9, 3.7982027188195963`*^9}, {
+   3.798202825154427*^9, 3.798202961899489*^9}, {3.79820299299233*^9, 
+   3.798203087732658*^9}, {3.798207066617684*^9, 3.798207068772373*^9}, {
+   3.798257016849008*^9, 3.7982570709057302`*^9}, {3.7994865709770308`*^9, 
+   3.799486626621677*^9}, {3.799486657279244*^9, 3.799486808706011*^9}, 
+   3.7994868514477177`*^9, {3.7994869354627523`*^9, 3.799487072774328*^9}, {
+   3.7994872822483463`*^9, 3.7994873311437197`*^9}, {3.799487546649116*^9, 
+   3.799487566519989*^9}, {3.799487688841255*^9, 3.799487689718524*^9}, {
+   3.7994884030361557`*^9, 3.799488403789013*^9}, {3.79956351336692*^9, 
+   3.799563562487341*^9}, {3.799563595383112*^9, 3.7995636210997133`*^9}, {
+   3.799563701602379*^9, 3.799563705427062*^9}, {3.799563748496242*^9, 
+   3.7995638362814093`*^9}, {3.7995638787842903`*^9, 3.799563908902081*^9}, {
+   3.799564007923357*^9, 3.799564011941689*^9}, {3.799564049114851*^9, 
+   3.7995640775487413`*^9}, {3.799564202023446*^9, 3.799564251787826*^9}},
+ CellLabel->
+  "In[232]:=",ExpressionUUID->"fa764fc9-41f0-4909-a706-d2e927a6951e"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "MagneticTensor3p1Dev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"MagneticTensor3p1Dev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", "Kt_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "compile", ",", "gup", ",", "Ks", ",", "Ktup", ",", "Ric", ",", "res", 
+      ",", "rescov", ",", "n", ",", "perti", ",", "simpl", ",", 
+      "\[Epsilon]"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"compile", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+     RowBox[{"Ric", "=", 
+      RowBox[{"RicciTensorDev", "[", 
+       RowBox[{"xx", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"InverseMetric", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"\[Epsilon]", "=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Det", "[", "gup", "]"}], "^", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "/", "2"}], ")"}]}], 
+       RowBox[{"LeviCivitaTensor", "[", "n", "]"}]}]}], ";", "\n", 
+     RowBox[{"\[Epsilon]", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{"Sum", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"g", "[", 
+            RowBox[{"[", 
+             RowBox[{"s", ",", "i"}], "]"}], "]"}], 
+           RowBox[{"\[Epsilon]", "[", 
+            RowBox[{"[", 
+             RowBox[{"s", ",", "j", ",", "k"}], "]"}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"s", ",", "n"}], "}"}]}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", "n"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"j", ",", "n"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"rescov", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"rescov", "[", 
+         RowBox[{"[", 
+          RowBox[{"k", ",", "i", ",", "j"}], "]"}], "]"}], "=", 
+        RowBox[{"CovDer", "[", 
+         RowBox[{"xx", ",", "g", ",", "Kt", ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "i", ",", "j"}], "}"}], ",", 
+          RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}]}], 
+         "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ";", "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"rescov", "[", 
+          RowBox[{"[", 
+           RowBox[{"k", ",", 
+            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "=", 
+         RowBox[{"rescov", "[", 
+          RowBox[{"[", 
+           RowBox[{"k", ",", "j", ",", 
+            RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ";", "\n", "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", " ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"\[Epsilon]", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "m", ",", "k"}], "]"}], "]"}], 
+             RowBox[{"rescov", "[", 
+              RowBox[{"[", 
+               RowBox[{"m", ",", "k", ",", "j"}], "]"}], "]"}]}], ",", 
+            RowBox[{"{", 
+             RowBox[{"m", ",", "n"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+       "                   ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"\[Epsilon]", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "m", ",", "k"}], "]"}], "]"}], 
+                RowBox[{"rescov", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"m", ",", "k", ",", "j"}], "]"}], "]"}]}], ",", 
+               RowBox[{"{", 
+                RowBox[{"m", ",", "n"}], "}"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"k", ",", "n"}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", 
+     "  ", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"compile", ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"NumberQ", "[", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
+             RowBox[{"Compile", "[", 
+              RowBox[{
+               RowBox[{"Evaluate", "@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", "xx"}], 
+                 ")"}]}], ",", 
+               RowBox[{"Evaluate", "[", 
+                RowBox[{"res", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+               RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+               RowBox[{"CompilationOptions", "\[Rule]", 
+                RowBox[{
+                "\"\<InlineExternalDefinitions\>\"", "\[Rule]", "True"}]}]}], 
+              "]"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], 
+     ";", "                 ", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Applying", " ", "symmetries"}], " ", "*)"}], "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{
+            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "=", 
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", 
+            RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ";", "                   ", 
+     "\n", "\[IndentingNewLine]", 
+     RowBox[{"simpl", "@", "res"}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{{3.798202691045713*^9, 3.7982027188195963`*^9}, {
+   3.798202825154427*^9, 3.798202961899489*^9}, {3.79820299299233*^9, 
+   3.798203087732658*^9}, {3.798207066617684*^9, 3.798207068772373*^9}, {
+   3.798257016849008*^9, 3.7982570709057302`*^9}, {3.7994865709770308`*^9, 
+   3.799486626621677*^9}, {3.799486657279244*^9, 3.799486808706011*^9}, 
+   3.7994868514477177`*^9, {3.7994869354627523`*^9, 3.799487072774328*^9}, {
+   3.7994872822483463`*^9, 3.7994873311437197`*^9}, {3.799487365620409*^9, 
+   3.799487369566452*^9}, {3.799487428855254*^9, 3.7994874393863277`*^9}, {
+   3.799487485525126*^9, 3.7994875243582172`*^9}, {3.799487585073964*^9, 
+   3.79948762161836*^9}, {3.7994876996787577`*^9, 3.799487704889798*^9}, {
+   3.799487869835937*^9, 3.799487929856941*^9}, {3.799487993401038*^9, 
+   3.799488119570137*^9}, {3.79948816229708*^9, 3.799488291406418*^9}, {
+   3.799488335326962*^9, 3.7994883770302877`*^9}, {3.7994884119572153`*^9, 
+   3.7994884122345753`*^9}, {3.799564311706853*^9, 3.799564330448781*^9}, {
+   3.799564605409058*^9, 3.7995646057112494`*^9}, {3.799568070964974*^9, 
+   3.799568074938635*^9}, {3.799568452695898*^9, 3.7995684667351503`*^9}, {
+   3.799569501096163*^9, 3.799569516911134*^9}, 3.799569669201373*^9, {
+   3.799569745084032*^9, 3.799569753251093*^9}, {3.799569789703627*^9, 
+   3.799569809511631*^9}, {3.7995698624707747`*^9, 3.799569898270534*^9}},
+ CellLabel->
+  "In[308]:=",ExpressionUUID->"98ad7356-c122-4b87-ae57-e23ba604a55b"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RicciScalarDev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"RicciScalarDev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "Ricc", ",", "ig", ",", "res", ",", "n", ",", "perti", ",", "simpl"}], 
+     "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", "\n", 
+     RowBox[{"Ricc", "=", 
+      RowBox[{"RicciTensorDev", "[", 
+       RowBox[{"xx", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"ig", "=", 
+      RowBox[{"InverseMetric", "[", 
+       RowBox[{"g", ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"res", "=", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+        RowBox[{"Sum", "[", 
+         RowBox[{
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{"i", "\[Equal]", "s"}], ",", 
+            RowBox[{
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"s", ",", "i"}], "]"}], "]"}], " ", 
+             RowBox[{"Ricc", "[", 
+              RowBox[{"[", 
+               RowBox[{"s", ",", "i"}], "]"}], "]"}]}], ",", 
+            RowBox[{"2", " ", 
+             RowBox[{"ig", "[", 
+              RowBox[{"[", 
+               RowBox[{"s", ",", "i"}], "]"}], "]"}], " ", 
+             RowBox[{"Ricc", "[", 
+              RowBox[{"[", 
+               RowBox[{"s", ",", "i"}], "]"}], "]"}]}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"s", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "s"}], "}"}]}], "]"}], ",", "\n", 
+        "                      ", 
+        RowBox[{"Normal", "@", 
+         RowBox[{"Series", "[", 
+          RowBox[{
+           RowBox[{"Sum", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"ig", "[", 
+               RowBox[{"[", 
+                RowBox[{"s", ",", "i"}], "]"}], "]"}], " ", 
+              RowBox[{"Ricc", "[", 
+               RowBox[{"[", 
+                RowBox[{"s", ",", "i"}], "]"}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"s", ",", "1", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+       "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "@", "res"}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{{3.798202655589386*^9, 3.7982026709041557`*^9}, {
+  3.798204669829777*^9, 3.7982047329873867`*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"24d9f81a-3685-47b8-a92f-d7ecdcf3bf79"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "WeylTensorDev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"WeylTensorDev", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "n", ",", "Chr", ",", "riemann", ",", "riemanndown", ",", "ricciS", ",",
+        "ricciT", ",", "res", ",", "perti", ",", "simpl", ",", "verbose"}], 
+      "}"}], ",", "\n", 
+     RowBox[{
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{"Print", "[", "\"\<Starting with RicciScalar...\>\"", "]"}]}],
+        "]"}], ";", "\n", 
+      RowBox[{"ricciS", "=", 
+       RowBox[{"RicciScalarDev", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{
+        "Print", "[", "\"\<Following with RicciTensor...\>\"", "]"}]}], "]"}],
+       ";", "\n", 
+      RowBox[{"ricciT", "=", 
+       RowBox[{"RicciTensorDev", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{"Print", "[", "\"\<Following with Riemann...\>\"", "]"}]}], 
+       "]"}], ";", "\n", 
+      RowBox[{"riemann", "=", 
+       RowBox[{"RiemannTensorDev", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}], ",", 
+         RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
+      "\n", "\n", 
+      RowBox[{"res", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", 
+           RowBox[{
+            RowBox[{"riemann", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "+", 
+            
+            RowBox[{
+             RowBox[{"1", "/", 
+              RowBox[{"(", 
+               RowBox[{"n", "-", "2"}], ")"}]}], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ricciT", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "l"}], "]"}], "]"}]}], "-", 
+               RowBox[{
+                RowBox[{"ricciT", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "+", 
+               RowBox[{
+                RowBox[{"ricciT", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "l"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "m"}], "]"}], "]"}]}], "-", 
+               RowBox[{
+                RowBox[{"ricciT", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "l"}], "]"}], "]"}]}]}], ")"}]}], "+", 
+            RowBox[{
+             RowBox[{"1", "/", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"n", "-", "1"}], ")"}], 
+                RowBox[{"(", 
+                 RowBox[{"n", "-", "2"}], ")"}]}], ")"}]}], "ricciS", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "-", 
+               RowBox[{
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                RowBox[{"g", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"k", ",", "l"}], "]"}], "]"}]}]}], ")"}]}]}], ",", 
+           "\n", "             ", 
+           RowBox[{"Normal", "@", 
+            RowBox[{"Series", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"riemann", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+               "+", 
+               RowBox[{
+                RowBox[{"1", "/", 
+                 RowBox[{"(", 
+                  RowBox[{"n", "-", "2"}], ")"}]}], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"ricciT", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}]}]}], ")"}]}], "+", 
+               RowBox[{
+                RowBox[{"1", "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"n", "-", "1"}], ")"}], 
+                   RowBox[{"(", 
+                    RowBox[{"n", "-", "2"}], ")"}]}], ")"}]}], "ricciS", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "l"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "m"}], "]"}], "]"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "m"}], "]"}], "]"}], 
+                   RowBox[{"g", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"k", ",", "l"}], "]"}], "]"}]}]}], ")"}]}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+          "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"l", ",", "1", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"m", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"(*", 
+       RowBox[{"Simplify", "[", "res", "]"}], "*)"}], "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.798202464339652*^9, 3.7982024807011766`*^9}, {
+  3.798202735633894*^9, 3.798202739381678*^9}, {3.798254443192902*^9, 
+  3.798254443543215*^9}, {3.798360422404688*^9, 
+  3.7983604493092318`*^9}},ExpressionUUID->"0aef8794-2831-4e8f-b5be-\
+e7e9ca87ecbc"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Alternative theories: FR, ST", "Section",
+ CellChangeTimes->{{3.747970935053893*^9, 
+  3.747970945742977*^9}},ExpressionUUID->"bd470b28-5f15-4c9c-a58c-\
+810cdfefdac1"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "EinsteinfR", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"\"\<Metric\>\"", "\[Rule]", "True"}], "}"}], ",", 
+     RowBox[{"Join", "[", 
+      RowBox[{"Options", "[", "ChristoffelSymbol", "]"}], "]"}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"EinsteinfR", "[", 
+   RowBox[{"xx_", ",", "g_", ",", "fR_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "res", ",", "fRterm1", ",", "fRterm2", ",", "dalem", ",", "Global`R", 
+      ",", "riscal", ",", "riscalvars", ",", "simpl", ",", "Rc", ",", "fRc", 
+      ",", "dfRc", ",", "covterm1", ",", "covterm2", ",", "metric"}], "}"}], 
+    ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"metric", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Metric\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"simpl", "@", 
+       RowBox[{"RicciScalar", "[", 
+        RowBox[{"xx", ",", "g"}], "]"}]}]}], ";", "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"xx", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"xx", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"Rc", "=", 
+      RowBox[{"Global`R", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"fRc", "=", 
+      RowBox[{"fR", "/.", 
+       RowBox[{"Global`R", "\[Rule]", "Rc"}]}]}], ";", "\n", 
+     RowBox[{"dfRc", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"fRc", ",", "Rc"}], "]"}]}], ";", "\n", 
+     RowBox[{"dalem", "=", 
+      RowBox[{"DAlembert", "[", 
+       RowBox[{"xx", ",", "g", ",", "dfRc"}], "]"}]}], ";", "\n", 
+     RowBox[{"fRterm1", "=", 
+      RowBox[{"Simplify", "[", 
+       RowBox[{
+        RowBox[{"dfRc", " ", 
+         RowBox[{"RicciTensor", "[", 
+          RowBox[{"xx", ",", "g"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"1", "/", "2"}], " ", "g", " ", "fRc"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"metric", ",", "\n", "       ", 
+       RowBox[{
+        RowBox[{"covterm1", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "dfRc", ",", 
+             RowBox[{"{", "i", "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "       ", 
+        RowBox[{"covterm2", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "covterm1", ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "j"}], "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"j", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "       ", 
+        RowBox[{"fRterm2", "=", 
+         RowBox[{"covterm2", "-", 
+          RowBox[{"g", "*", "dalem"}]}]}], ";", "\n", "       ", 
+        RowBox[{"res", "=", 
+         RowBox[{"(", 
+          RowBox[{"fRterm1", "-", "fRterm2"}], ")"}]}], ";", "\n", "       ", 
+        
+        RowBox[{"Return", "[", 
+         RowBox[{"{", "covterm1", "}"}], "]"}], ";"}], "\n", "       ", ",", 
+       "\n", "       ", 
+       RowBox[{
+        RowBox[{"res", "=", 
+         RowBox[{"(", "fRterm1", ")"}]}], ";"}]}], "\n", "]"}], ";", "\n", 
+     "\n", 
+     RowBox[{"Simplify", "@", "res"}]}]}], "\n", "]"}]}]}], "Code",
+ CellChangeTimes->{{3.717768180617588*^9, 3.717768201181761*^9}, {
+   3.7177682430829973`*^9, 3.7177683859762573`*^9}, {3.717768453158977*^9, 
+   3.717768585548099*^9}, {3.717768616317445*^9, 3.717768646569281*^9}, {
+   3.717768737006611*^9, 3.717768741862134*^9}, {3.717768789502527*^9, 
+   3.71776878965257*^9}, {3.71776882318865*^9, 3.717768824820692*^9}, {
+   3.717768868101454*^9, 3.71776886963402*^9}, {3.7177689696611013`*^9, 
+   3.717768969819309*^9}, {3.717769001740911*^9, 3.717769084466112*^9}, {
+   3.717769157789559*^9, 3.71776916306141*^9}, {3.717769221610914*^9, 
+   3.7177692241126747`*^9}, {3.717769259680992*^9, 3.717769285803253*^9}, {
+   3.717769329979512*^9, 3.717769441835341*^9}, {3.7177970644939737`*^9, 
+   3.717797072079617*^9}, 3.7177971544166527`*^9, {3.717797397750383*^9, 
+   3.717797418636133*^9}, {3.7177975119004717`*^9, 3.717797568611217*^9}, {
+   3.717798337313163*^9, 3.7177983592879953`*^9}, {3.7177983894556723`*^9, 
+   3.717798401535268*^9}, 3.7177984436106653`*^9, {3.717798535529196*^9, 
+   3.7177985428706017`*^9}, {3.717798612183751*^9, 3.7177986630786533`*^9}, {
+   3.717798695226246*^9, 3.717798743022421*^9}, {3.7177987837276087`*^9, 
+   3.71779886680474*^9}, {3.717798916372867*^9, 3.717799000772546*^9}, {
+   3.7177990513582478`*^9, 3.7177991101240664`*^9}, {3.717799197900185*^9, 
+   3.717799199147318*^9}, {3.717799236406498*^9, 3.71779928184373*^9}, {
+   3.717799361692026*^9, 3.71779936558708*^9}, {3.717799413556937*^9, 
+   3.717799414802883*^9}, {3.7177994940822363`*^9, 3.717799521554123*^9}, {
+   3.717799557209655*^9, 3.717799578716764*^9}, {3.717799615722102*^9, 
+   3.7177996278043613`*^9}, {3.717799690491502*^9, 3.7177996967218323`*^9}, {
+   3.7177997572585983`*^9, 3.717799765217243*^9}, {3.717800395391507*^9, 
+   3.717800478613056*^9}, {3.717800530166663*^9, 3.71780053478891*^9}, {
+   3.7178006093181753`*^9, 3.7178006161406*^9}, {3.717800821038286*^9, 
+   3.717800883334612*^9}, 3.717800915670727*^9, {3.717800968613109*^9, 
+   3.7178009725227547`*^9}, {3.7178010065725946`*^9, 3.7178010139305*^9}, {
+   3.717801075955647*^9, 3.717801077362804*^9}, 3.717801220996582*^9, {
+   3.717801345506919*^9, 3.717801353874536*^9}, {3.717801470592519*^9, 
+   3.717801486603312*^9}, 3.717801644138688*^9, {3.717802116247375*^9, 
+   3.717802151021349*^9}, {3.717802192244123*^9, 3.7178021951812077`*^9}, {
+   3.717802226214551*^9, 3.717802240822077*^9}, {3.7178251061705847`*^9, 
+   3.717825112830308*^9}, {3.717825163652924*^9, 3.717825167499608*^9}, {
+   3.7178252140449743`*^9, 3.717825260492008*^9}, {3.717825532563571*^9, 
+   3.717825534922947*^9}, {3.717825590284336*^9, 3.717825635448584*^9}, {
+   3.717825724858296*^9, 3.717825738769619*^9}, {3.717825810889159*^9, 
+   3.71782582427501*^9}, {3.7178258779860907`*^9, 3.717825899225943*^9}, {
+   3.720090747956254*^9, 3.720090825192881*^9}, {3.720092038443247*^9, 
+   3.720092038938081*^9}, 3.7200938426779413`*^9, {3.726554800191674*^9, 
+   3.726554922516274*^9}, {3.74797096277031*^9, 3.747970965556885*^9}, {
+   3.748166110519499*^9, 3.748166148292921*^9}, {3.748166715847687*^9, 
+   3.74816674531961*^9}, {3.752315230999085*^9, 3.752315470510895*^9}, {
+   3.7523155128416147`*^9, 3.752315541942113*^9}, {3.799730475576785*^9, 
+   3.799730543009513*^9}},ExpressionUUID->"6d54e73d-1c50-4cc0-aad4-\
+ff74dd80442b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"STensorT\[Psi]", "[", 
+   RowBox[{"coor_", ",", "met_", ",", "\[Psi]potl_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "a", ",", "b", ",", "l", ",", "m", ",", "g", ",", "xx", ",", "\[Psi]", 
+      ",", "pot", ",", "gup"}], "}"}], ",", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"xx", "=", "coor"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"g", "=", "met"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pot", "=", 
+      RowBox[{"\[Psi]potl", "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Psi]", "=", 
+      RowBox[{"\[Psi]potl", "[", 
+       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"Inverse", "@", "g"}]}], ";", "\n", "\[IndentingNewLine]", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"D", "[", 
+          RowBox[{"\[Psi]", ",", 
+           RowBox[{"xx", "[", 
+            RowBox[{"[", "a", "]"}], "]"}]}], "]"}], 
+         RowBox[{"D", "[", 
+          RowBox[{"\[Psi]", ",", 
+           RowBox[{"xx", "[", 
+            RowBox[{"[", "b", "]"}], "]"}]}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"1", "/", "2"}], 
+         RowBox[{"g", "[", 
+          RowBox[{"[", 
+           RowBox[{"a", ",", "b"}], "]"}], "]"}], 
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"gup", "[", 
+             RowBox[{"[", 
+              RowBox[{"l", ",", "m"}], "]"}], "]"}], 
+            RowBox[{"D", "[", 
+             RowBox[{"\[Psi]", ",", 
+              RowBox[{"xx", "[", 
+               RowBox[{"[", "l", "]"}], "]"}]}], "]"}], 
+            RowBox[{"D", "[", 
+             RowBox[{"\[Psi]", ",", 
+              RowBox[{"xx", "[", 
+               RowBox[{"[", "m", "]"}], "]"}]}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"l", ",", "4"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"g", "[", 
+          RowBox[{"[", 
+           RowBox[{"a", ",", "b"}], "]"}], "]"}], " ", "pot"}]}], " ", ",", 
+       RowBox[{"{", 
+        RowBox[{"a", ",", 
+         RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"b", ",", 
+         RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.726401794214621*^9, 3.726401892839143*^9}, {
+  3.726401971705843*^9, 3.7264021814217453`*^9}, {3.726402361932404*^9, 
+  3.72640247396281*^9}, {3.7264025520055103`*^9, 3.726402597496461*^9}, {
+  3.726402636830553*^9, 3.72640264059293*^9}, {3.7264026737950277`*^9, 
+  3.7264026739999533`*^9}, {3.726402960093457*^9, 3.726402962596958*^9}, {
+  3.747970968064391*^9, 3.747970970228874*^9}, {3.748166699563682*^9, 
+  3.748166709448728*^9}},
+ CellLabel->
+  "In[299]:=",ExpressionUUID->"f79c22c1-362f-458d-82a2-1f3465aadc06"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "TeffFR", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"\"\<Metric\>\"", "\[Rule]", "True"}], "}"}], ",", 
+     RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"TeffFR", "[", 
+   RowBox[{"xx_", ",", "g_", ",", "fR_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "res", ",", "fRterm1", ",", "fRterm2", ",", "dalem", ",", "Global`R", 
+      ",", "riscal", ",", "riscalvars", ",", "Rc", ",", "fRc", ",", "dfRc", 
+      ",", "simpl", ",", "covterm1", ",", "covterm2", ",", "metric", ",", 
+      "perti"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"metric", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Metric\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"simpl", "@", 
+       RowBox[{"RicciScalar", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}]}], 
+        "]"}]}]}], ";", "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"xx", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"xx", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"Rc", "=", 
+      RowBox[{"Global`R", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"fRc", "=", 
+      RowBox[{"fR", "/.", 
+       RowBox[{"Global`R", "\[Rule]", "Rc"}]}]}], ";", "\n", 
+     RowBox[{"dfRc", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"fRc", ",", "Rc"}], "]"}]}], ";", "\n", 
+     RowBox[{"dalem", "=", 
+      RowBox[{"DAlembert", "[", 
+       RowBox[{"xx", ",", "g", ",", "dfRc"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"metric", ",", "\n", "       ", 
+       RowBox[{
+        RowBox[{"covterm1", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "dfRc", ",", 
+             RowBox[{"{", "i", "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "       ", 
+        RowBox[{"covterm2", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "covterm1", ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "j"}], "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"j", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "       ", 
+        RowBox[{"fRterm2", "=", 
+         RowBox[{"covterm2", "-", 
+          RowBox[{"g", "*", "dalem"}]}]}], ";", "\n", "       ", 
+        RowBox[{"res", "=", 
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"Not", "@", 
+            RowBox[{"NumericQ", "@", "pert"}]}], ",", 
+           RowBox[{"Normal", "@", 
+            RowBox[{"Series", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"1", "/", 
+                RowBox[{"(", 
+                 RowBox[{"8", "\[Pi]"}], ")"}]}], 
+               RowBox[{"(", 
+                RowBox[{"fRterm2", "-", 
+                 RowBox[{
+                  RowBox[{"dfRc", "/", "2"}], " ", "Rc", " ", "g"}], " ", "+",
+                  " ", 
+                 RowBox[{
+                  RowBox[{"1", "/", "2"}], " ", "fRc", " ", "g"}]}], ")"}]}], 
+              ",", 
+              RowBox[{"{", 
+               RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}], 
+           ",", 
+           RowBox[{
+            RowBox[{"1", "/", 
+             RowBox[{"(", 
+              RowBox[{"8", "\[Pi]"}], ")"}]}], 
+            RowBox[{"(", 
+             RowBox[{"fRterm2", "-", 
+              RowBox[{
+               RowBox[{"dfRc", "/", "2"}], " ", "Rc", " ", "g"}], " ", "+", 
+              " ", 
+              RowBox[{
+               RowBox[{"1", "/", "2"}], " ", "fRc", " ", "g"}]}], ")"}]}]}], 
+          "]"}]}], ";"}], "\n", "       ", ",", "\n", "       ", 
+       RowBox[{
+        RowBox[{"res", "=", 
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"Not", "@", 
+            RowBox[{"NumericQ", "@", "pert"}]}], ",", 
+           RowBox[{"Normal", "@", 
+            RowBox[{"Series", "[", 
+             RowBox[{
+              RowBox[{"(", "fRterm1", ")"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}], 
+           ",", 
+           RowBox[{"(", "fRterm1", ")"}]}], "]"}]}], ";"}]}], "\n", "]"}], 
+     ";", "\n", "\n", 
+     RowBox[{"Simplify", "@", "res"}]}]}], "\n", "]"}]}]}], "Code",
+ CellChangeTimes->{{3.748154306382333*^9, 3.748154342254348*^9}, {
+   3.7481543729883204`*^9, 3.748154425286625*^9}, {3.74815447149557*^9, 
+   3.748154501249371*^9}, {3.7481545323125362`*^9, 3.748154545430482*^9}, 
+   3.748154606754107*^9, {3.748154641355502*^9, 3.748154649489853*^9}, {
+   3.7481547304681883`*^9, 3.748154801909973*^9}, {3.7481549219619837`*^9, 
+   3.748154927411788*^9}, 3.7481549797972918`*^9, {3.748155612877985*^9, 
+   3.7481556381290207`*^9}, {3.7481558152039833`*^9, 3.748155819991068*^9}, {
+   3.74815669572978*^9, 3.7481566975704327`*^9}, {3.748166155772621*^9, 
+   3.74816618969757*^9}, {3.7481664692026243`*^9, 3.7481664696499653`*^9}, {
+   3.748166504752483*^9, 3.7481665334340878`*^9}, {3.748166581404728*^9, 
+   3.748166582712945*^9}, {3.752315561699087*^9, 3.752315566110036*^9}, {
+   3.77060445512431*^9, 3.770604644141411*^9}, {3.770605276168578*^9, 
+   3.770605277713686*^9}, {3.7706054166108522`*^9, 3.770605420991745*^9}, {
+   3.7706054717615557`*^9, 3.77060547556357*^9}, {3.7706059056388483`*^9, 
+   3.770605958549918*^9}, 3.772630417737788*^9, {3.77263080045022*^9, 
+   3.772630843699891*^9}, {3.799730557821373*^9, 
+   3.7997305669946127`*^9}},ExpressionUUID->"6b04f6d5-af97-4d0d-b866-\
+5998965061d8"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "TeffST", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}], "}"}], ",", 
+     RowBox[{"Options", "[", "ChristoffelSymbol", "]"}]}], "]"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"TeffST", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"{", 
+     RowBox[{"V\[CurlyPhi]_", ",", "var\[CurlyPhi]_"}], "}"}], ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "covterm1", ",", "covterm2", ",", "dalem", ",", "der", ",", "gup", ",", 
+      "frame", ",", "perti", ",", "res", ",", "riscal", ",", "riscalvars", 
+      ",", "simpl", ",", "sumder", ",", "V\[CurlyPhi]c", ",", "\[CurlyPhi]c", 
+      ",", "\[Phi]term2"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"frame", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Frame\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"simpl", "@", 
+       RowBox[{"RicciScalar", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}]}], 
+        "]"}]}]}], ";", "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"xx", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"xx", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"Inverse", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"\[CurlyPhi]c", "=", 
+      RowBox[{"var\[CurlyPhi]", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"V\[CurlyPhi]c", "=", 
+      RowBox[{"V\[CurlyPhi]", "/.", 
+       RowBox[{"var\[CurlyPhi]", "\[Rule]", "\[CurlyPhi]c"}]}]}], ";", "\n", 
+     "\n", 
+     RowBox[{"Which", "[", 
+      RowBox[{
+       RowBox[{"frame", "\[Equal]", "\"\<Einstein\>\""}], ",", "\n", 
+       "             ", 
+       RowBox[{
+        RowBox[{"der", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"D", "[", 
+             RowBox[{"\[CurlyPhi]c", ",", 
+              RowBox[{"xx", "[", 
+               RowBox[{"[", "a", "]"}], "]"}]}], "]"}], 
+            RowBox[{"D", "[", 
+             RowBox[{"\[CurlyPhi]c", ",", 
+              RowBox[{"xx", "[", 
+               RowBox[{"[", "b", "]"}], "]"}]}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"b", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "             ", 
+        RowBox[{"sumder", "=", 
+         RowBox[{"Sum", "[", " ", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"gup", "[", 
+             RowBox[{"[", 
+              RowBox[{"a", ",", "b"}], "]"}], "]"}], 
+            RowBox[{"(", 
+             RowBox[{"der", "[", 
+              RowBox[{"[", 
+               RowBox[{"a", ",", "b"}], "]"}], "]"}], ")"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"b", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "             ", 
+        RowBox[{"res", "=", 
+         RowBox[{
+          FractionBox["1", 
+           RowBox[{"8", "\[Pi]"}]], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", "der"}], "-", 
+            RowBox[{"g", " ", "sumder"}], " ", "-", 
+            RowBox[{
+             RowBox[{"1", "/", "2"}], " ", "g", " ", "V\[CurlyPhi]c"}]}], 
+           ")"}]}]}], ";"}], ",", "\n", "      ", 
+       RowBox[{"frame", "\[Equal]", "\"\<Jordan\>\""}], ",", "   ", "\n", 
+       "             ", 
+       RowBox[{
+        RowBox[{"dalem", "=", 
+         RowBox[{"DAlembert", "[", 
+          RowBox[{"xx", ",", "g", ",", "\[CurlyPhi]c"}], "]"}]}], ";", "\n", 
+        "             ", 
+        RowBox[{"covterm1", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "\[CurlyPhi]c", ",", 
+             RowBox[{"{", "i", "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "             ", 
+        RowBox[{"covterm2", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"CovDer", "[", 
+            RowBox[{"xx", ",", "g", ",", "covterm1", ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "j"}], "}"}], ",", 
+             RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+             RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"j", ",", 
+             RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+        "             ", 
+        RowBox[{"\[Phi]term2", "=", 
+         RowBox[{"covterm2", "-", 
+          RowBox[{"g", "*", "dalem"}]}]}], ";", "\n", "             ", 
+        RowBox[{"res", "=", 
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"Not", "@", 
+            RowBox[{"NumericQ", "@", "pert"}]}], ",", 
+           RowBox[{"Normal", "@", 
+            RowBox[{"Series", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"1", "/", 
+                RowBox[{"(", 
+                 RowBox[{"8", "\[Pi]"}], ")"}]}], 
+               RowBox[{"(", 
+                RowBox[{"\[Phi]term2", "-", 
+                 RowBox[{
+                  RowBox[{"V\[CurlyPhi]c", "/", "2"}], " ", "g"}]}], ")"}]}], 
+              ",", 
+              RowBox[{"{", 
+               RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}], 
+           ",", 
+           RowBox[{
+            RowBox[{"1", "/", 
+             RowBox[{"(", 
+              RowBox[{"8", "\[Pi]"}], ")"}]}], 
+            RowBox[{"(", 
+             RowBox[{"\[Phi]term2", "-", 
+              RowBox[{
+               RowBox[{"V\[CurlyPhi]c", "/", "2"}], " ", "g"}]}], ")"}]}]}], 
+          "]"}]}], ";"}], ",", "\n", "      ", "True", ",", "\n", 
+       "             ", 
+       RowBox[{
+        RowBox[{"Print", "[", "\"\<Wrong option for Frame\>\"", "]"}], ";", 
+        RowBox[{"Return", "[", "]"}], ";"}]}], "\n", "]"}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumberQ", "@", "pert"}], ",", 
+       RowBox[{"Simplify", "@", "res"}], ",", 
+       RowBox[{"Simplify", "@", 
+        RowBox[{"Normal", "@", 
+         RowBox[{"Series", "[", 
+          RowBox[{"res", ",", 
+           RowBox[{"{", 
+            RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}]}], 
+      "]"}]}]}], "\n", "]"}]}]}], "Code",
+ CellChangeTimes->{
+  3.768300835527927*^9, 3.7683011105155497`*^9, {3.7683013964858637`*^9, 
+   3.768301435986734*^9}, {3.7683015121318398`*^9, 3.7683015288449306`*^9}, {
+   3.7683016137940197`*^9, 3.768301633553568*^9}, {3.76830168559389*^9, 
+   3.768301690211801*^9}, {3.7683017483022127`*^9, 3.768301756557674*^9}, {
+   3.768301812546567*^9, 3.76830184070329*^9}, {3.770613354974557*^9, 
+   3.7706134182222023`*^9}, {3.770613592004719*^9, 3.770613595735119*^9}, {
+   3.770613655079608*^9, 3.7706136558798637`*^9}, {3.7706138223587418`*^9, 
+   3.770613822847872*^9}, 3.770613933108946*^9, {3.770618665835225*^9, 
+   3.770618703896995*^9}, {3.7707848249956417`*^9, 3.770784958969735*^9}, {
+   3.770785015950115*^9, 3.77078504461196*^9}, {3.770785126515067*^9, 
+   3.770785210680381*^9}, {3.770785312568001*^9, 3.7707854005245247`*^9}, {
+   3.770785766527484*^9, 3.7707857716134377`*^9}, {3.770785814225151*^9, 
+   3.770785847799657*^9}, {3.770785887707638*^9, 3.770785914365863*^9}, {
+   3.799730572920567*^9, 
+   3.7997305852977657`*^9}},ExpressionUUID->"252d8729-785d-4dee-9670-\
+5d76098a3c72"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Are", " ", "you", " ", "sure", " ", "this", " ", "is", " ", "right", 
+    RowBox[{"??", "?"}]}], " ", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{"EinsteinST", "[", 
+    RowBox[{"xx_", ",", "g_", ",", "V\[Phi]_"}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "res", ",", "fRterm1", ",", "fRterm2", ",", "dalem", ",", "R", ",", 
+       "riscal", ",", "riscalvars", ",", "\[Phi]c", ",", "fRc", ",", "dfRc", 
+       ",", "covterm1", ",", "covterm2"}], "}"}], ",", "\n", "\n", 
+     RowBox[{
+      RowBox[{"riscal", "=", 
+       RowBox[{"Simplify", "@", 
+        RowBox[{"RicciScalar", "[", 
+         RowBox[{"xx", ",", "g"}], "]"}]}]}], ";", "\n", 
+      RowBox[{"riscalvars", "=", 
+       RowBox[{"Complement", "[", 
+        RowBox[{"xx", ",", 
+         RowBox[{"Complement", "[", 
+          RowBox[{"xx", ",", 
+           RowBox[{"AtomsList", "[", "V\[Phi]", "]"}]}], "]"}]}], "]"}]}], 
+      ";", "\n", "\n", 
+      RowBox[{"\[Phi]c", "=", 
+       RowBox[{"\[Phi]", "@@", "riscalvars"}]}], ";", "\n", 
+      RowBox[{"dalem", "=", 
+       RowBox[{"DAlembert", "[", 
+        RowBox[{"xx", ",", "g", ",", "\[Phi]c"}], "]"}]}], ";", "\n", 
+      RowBox[{"fRterm1", "=", 
+       RowBox[{"Simplify", "[", 
+        RowBox[{
+         RowBox[{"RicciTensor", "[", 
+          RowBox[{"xx", ",", "g"}], "]"}], "-", 
+         RowBox[{
+          RowBox[{"1", "/", "2"}], " ", "g", " ", 
+          RowBox[{"D", "[", 
+           RowBox[{"V\[Phi]", ",", "\[Phi]c"}], "]"}]}], "+", " ", 
+         RowBox[{
+          RowBox[{"1", "/", "2"}], " ", "g", " ", 
+          FractionBox["V\[Phi]", 
+           RowBox[{"2", " ", "\[Phi]c", " "}]]}]}], "]"}]}], ";", "\n", "\n", 
+      
+      RowBox[{"covterm1", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"CovDer", "[", 
+          RowBox[{"xx", ",", "g", ",", "dfRc", ",", 
+           RowBox[{"{", "i", "}"}], ",", 
+           RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+           RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+      RowBox[{"covterm2", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"CovDer", "[", 
+          RowBox[{"xx", ",", "g", ",", "covterm1", ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", "j"}], "}"}], ",", 
+           RowBox[{"\"\<Valence\>\"", "\[Rule]", "\"\<Covariant\>\""}], ",", 
+           RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", 
+           RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}], ";", "\n", 
+      RowBox[{"fRterm2", "=", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "\[Phi]c"]}], " ", 
+        RowBox[{"(", 
+         RowBox[{"covterm2", "-", 
+          RowBox[{"g", "*", "dalem"}]}], ")"}]}]}], ";", "\n", "\n", 
+      RowBox[{"res", "=", 
+       RowBox[{"(", 
+        RowBox[{"fRterm1", "-", "fRterm2"}], ")"}]}], ";", "\n", "\n", 
+      RowBox[{"Simplify", "@", "res"}]}]}], "\n", "]"}]}]}]], "Code",
+ CellChangeTimes->{{3.717768180617588*^9, 3.717768201181761*^9}, {
+   3.7177682430829973`*^9, 3.7177683859762573`*^9}, {3.717768453158977*^9, 
+   3.717768585548099*^9}, {3.717768616317445*^9, 3.717768646569281*^9}, {
+   3.717768737006611*^9, 3.717768741862134*^9}, {3.717768789502527*^9, 
+   3.71776878965257*^9}, {3.71776882318865*^9, 3.717768824820692*^9}, {
+   3.717768868101454*^9, 3.71776886963402*^9}, {3.7177689696611013`*^9, 
+   3.717768969819309*^9}, {3.717769001740911*^9, 3.717769084466112*^9}, {
+   3.717769157789559*^9, 3.71776916306141*^9}, {3.717769221610914*^9, 
+   3.7177692241126747`*^9}, {3.717769259680992*^9, 3.717769285803253*^9}, {
+   3.717769329979512*^9, 3.717769441835341*^9}, {3.7177970644939737`*^9, 
+   3.717797072079617*^9}, 3.7177971544166527`*^9, {3.717797397750383*^9, 
+   3.717797418636133*^9}, {3.7177975119004717`*^9, 3.717797568611217*^9}, {
+   3.717798337313163*^9, 3.7177983592879953`*^9}, {3.7177983894556723`*^9, 
+   3.717798401535268*^9}, 3.7177984436106653`*^9, {3.717798535529196*^9, 
+   3.7177985428706017`*^9}, {3.717798612183751*^9, 3.7177986630786533`*^9}, {
+   3.717798695226246*^9, 3.717798743022421*^9}, {3.7177987837276087`*^9, 
+   3.71779886680474*^9}, {3.717798916372867*^9, 3.717799000772546*^9}, {
+   3.7177990513582478`*^9, 3.7177991101240664`*^9}, {3.717799197900185*^9, 
+   3.717799199147318*^9}, {3.717799236406498*^9, 3.71779928184373*^9}, {
+   3.717799361692026*^9, 3.71779936558708*^9}, {3.717799413556937*^9, 
+   3.717799414802883*^9}, {3.7177994940822363`*^9, 3.717799521554123*^9}, {
+   3.717799557209655*^9, 3.717799578716764*^9}, {3.717799615722102*^9, 
+   3.7177996278043613`*^9}, {3.717799690491502*^9, 3.7177996967218323`*^9}, {
+   3.7177997572585983`*^9, 3.717799765217243*^9}, {3.717800395391507*^9, 
+   3.717800478613056*^9}, {3.717800530166663*^9, 3.71780053478891*^9}, {
+   3.7178006093181753`*^9, 3.7178006161406*^9}, {3.717800821038286*^9, 
+   3.717800883334612*^9}, 3.717800915670727*^9, {3.717800968613109*^9, 
+   3.7178009725227547`*^9}, {3.7178010065725946`*^9, 3.7178010139305*^9}, {
+   3.717801075955647*^9, 3.717801077362804*^9}, 3.717801220996582*^9, {
+   3.717801345506919*^9, 3.717801353874536*^9}, {3.717801470592519*^9, 
+   3.717801486603312*^9}, 3.717801644138688*^9, {3.717802116247375*^9, 
+   3.717802151021349*^9}, {3.717802192244123*^9, 3.7178021951812077`*^9}, {
+   3.717802226214551*^9, 3.717802240822077*^9}, {3.7178251061705847`*^9, 
+   3.717825112830308*^9}, {3.717825163652924*^9, 3.717825167499608*^9}, {
+   3.7178252140449743`*^9, 3.717825260492008*^9}, {3.717825532563571*^9, 
+   3.717825534922947*^9}, {3.717825590284336*^9, 3.717825635448584*^9}, {
+   3.717825724858296*^9, 3.717825738769619*^9}, {3.717825810889159*^9, 
+   3.71782582427501*^9}, {3.7178258779860907`*^9, 3.717825899225943*^9}, {
+   3.720090747956254*^9, 3.720090825192881*^9}, {3.720092038443247*^9, 
+   3.720092038938081*^9}, 3.7200938426779413`*^9, {3.722779753142013*^9, 
+   3.722779784494981*^9}, {3.722779876802121*^9, 3.72278015896231*^9}, {
+   3.722780429148716*^9, 3.722780502772974*^9}, 3.722780591132682*^9, {
+   3.7227807408167887`*^9, 3.722780864210927*^9}, 3.72278092658315*^9, {
+   3.722780964291025*^9, 3.722780979555004*^9}, {3.726403118172242*^9, 
+   3.726403128243373*^9}, {3.747970972456465*^9, 3.747970976428269*^9}, {
+   3.748166210567259*^9, 3.748166220513459*^9}, {3.748166666379361*^9, 
+   3.748166683432515*^9}, {3.799730594784977*^9, 
+   3.7997305991098013`*^9}},ExpressionUUID->"81ea0ed3-7099-4461-b9dc-\
+daf90d06d550"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "STTOV", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"\"\<Signature\>\"", "\[Rule]", "1"}], "}"}], ",", 
+     RowBox[{"Options", "[", "TeffST", "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"STTOV", "[", 
+   RowBox[{"coors_", ",", "met_", ",", 
+    RowBox[{"{", 
+     RowBox[{"V\[CurlyPhi]_", ",", "var\[CurlyPhi]_"}], "}"}], ",", 
+    "metvars_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "Global`x", ",", "Aa", ",", "\[Alpha]a", ",", "dV\[CurlyPhi]c", ",", 
+      "dpc", ",", "d\[Phi]c", ",", "d\[Phi]\[CurlyPhi]c", ",", "eq", ",", 
+      "eqaux", ",", "eqKG", ",", "eqp", ",", "eval", ",", "ET", ",", "eq2", 
+      ",", "frame", ",", "g", ",", "gup", ",", "perti", ",", "riscal", ",", 
+      "riscalvars", ",", "sign", ",", "simpl", ",", "T", ",", "TEF", ",", 
+      "Teff", ",", "Ttot", ",", "T\[Mu]\[Nu]", ",", "T\[Mu]\[Nu]up", ",", 
+      "V\[CurlyPhi]c", ",", "\[CurlyPhi]c", ",", "\[CurlyPhi]2c", ",", 
+      "Global`r", ",", "Global`\[Rho]", ",", "\[Rho]c", ",", "Global`p", ",", 
+      "pc", ",", "Global`\[Phi]", ",", "\[Phi]c", ",", "\[Phi]\[CurlyPhi]c", 
+      ",", "Global`\[CurlyPhi]"}], "}"}], ",", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"sign", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Signature\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"frame", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Frame\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"Which", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"frame", "\[NotEqual]", " ", "\"\<Einstein\>\""}], " ", "&&", 
+        " ", 
+        RowBox[{"frame", "\[NotEqual]", "\"\<Jordan\>\""}]}], ",", 
+       RowBox[{
+        RowBox[{"Return", "[", "]"}], ";"}]}], "]"}], ";", "\n", 
+     "\[IndentingNewLine]", 
+     RowBox[{
+     "Print", "[", 
+      "\"\<Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\>\"", 
+      "]"}], ";", "\n", 
+     RowBox[{"g", "=", "met"}], ";", "\n", 
+     RowBox[{"gup", "=", 
+      RowBox[{"Inverse", "[", "g", "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"simpl", "@", 
+       RowBox[{"RicciScalar", "[", 
+        RowBox[{"coors", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}]}], 
+        "]"}]}]}], ";", "\n", "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"coors", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"coors", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"\[CurlyPhi]c", "=", 
+      RowBox[{"var\[CurlyPhi]", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"V\[CurlyPhi]c", "=", 
+      RowBox[{"V\[CurlyPhi]", "/.", 
+       RowBox[{"var\[CurlyPhi]", "\[Rule]", "\[CurlyPhi]c"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"dV\[CurlyPhi]c", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"V\[CurlyPhi]c", ",", "\[CurlyPhi]c"}], "]"}]}], ";", "\n", 
+     RowBox[{"\[CurlyPhi]2c", "=", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"var\[CurlyPhi]", "''"}], ")"}], "@@", "riscalvars"}]}], ";", 
+     "\n", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Global`p", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"Global`\[Rho]", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"\[Phi]c", "=", 
+      RowBox[{"Global`\[Phi]", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"dpc", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"pc", ",", "riscalvars"}], "]"}]}], ";", "\n", 
+     RowBox[{"d\[Phi]c", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"\[Phi]c", ",", "riscalvars"}], "]"}]}], ";", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "Define", " ", "the", " ", "coupling", " ", "of", " ", "the", " ", 
+       "scalar", " ", "field", " ", "with", " ", "matter"}], " ", "*)"}], 
+     "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"\[Phi]\[CurlyPhi]c", "[", "\[CurlyPhi]_", "]"}], ":=", 
+      RowBox[{"Exp", "[", 
+       RowBox[{
+        RowBox[{"2", "/", 
+         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"d\[Phi]\[CurlyPhi]c", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"\[Phi]\[CurlyPhi]c", ",", "Global`r"}], "]"}]}], ";", "\n", 
+     "\n", 
+     RowBox[{
+      RowBox[{"eval", "[", "x_", "]"}], ":=", 
+      RowBox[{"Evaluate", "[", "x", "]"}]}], ";", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{
+       "Computation", " ", "of", " ", "the", " ", "matter", " ", "energy"}], 
+       "-", 
+       RowBox[{"momentum", " ", "tensor"}]}], " ", "*)"}], 
+     "\[IndentingNewLine]", 
+     RowBox[{"T\[Mu]\[Nu]", "=", 
+      RowBox[{"ETensor", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "simpl"}]}], "]"}]}], 
+     ";", "\n", 
+     RowBox[{"T\[Mu]\[Nu]up", "=", 
+      RowBox[{"Normal", "@", 
+       RowBox[{"Series", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"gup", ".", "T\[Mu]\[Nu]"}], ")"}], "gup"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], ";", 
+     "\n", 
+     RowBox[{"T", "=", 
+      RowBox[{"Normal", "@", 
+       RowBox[{"Series", "[", 
+        RowBox[{
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"g", ".", "T\[Mu]\[Nu]up"}], ")"}], "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", 
+             RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], ";", 
+     "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"frame", "\[Equal]", "\"\<Einstein\>\""}], ",", "\n", 
+       "        ", 
+       RowBox[{
+        RowBox[{"TEF", "=", 
+         RowBox[{"(", 
+          RowBox[{"T", "*", " ", 
+           RowBox[{"Exp", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], "/", 
+              RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]c"}], "]"}]}], 
+          ")"}]}], ";"}], ",", "\n", "        ", 
+       RowBox[{"TEF", "=", 
+        RowBox[{"(", "T", ")"}]}]}], "]"}], ";", "\n", "        ", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{
+       "Computation", " ", "of", " ", "the", " ", "effective", " ", 
+        "energy"}], "-", 
+       RowBox[{"momentum", " ", 
+        RowBox[{"tensor", ".", " ", "Aa"}], " ", "converts", " ", "matter", 
+        " ", "quantities", " ", "to", " ", "the", " ", "Jordan"}], "-", 
+       RowBox[{"Frame", "."}]}], " ", "*)"}], "\n", 
+     RowBox[{"Teff", "=", 
+      RowBox[{"TeffST", "[", 
+       RowBox[{"coors", ",", "g", ",", 
+        RowBox[{"{", 
+         RowBox[{"V\[CurlyPhi]", ",", "var\[CurlyPhi]"}], "}"}], ",", "pert", 
+        ",", 
+        RowBox[{"\"\<Frame\>\"", "\[Rule]", "frame"}], ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "simpl"}]}], "]"}]}], 
+     ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"frame", "\[Equal]", "\"\<Einstein\>\""}], ",", "\n", 
+       "       ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"Aa", "[", "\[CurlyPhi]_", "]"}], ":=", 
+          RowBox[{"Exp", "[", 
+           RowBox[{
+            RowBox[{"-", "\[CurlyPhi]"}], "/", 
+            RowBox[{"Sqrt", "[", "3", "]"}]}], "]"}]}], ";", "\n", "       ", 
+         
+         RowBox[{
+          RowBox[{"\[Alpha]a", "[", "\[CurlyPhi]_", "]"}], ":=", 
+          RowBox[{"D", "[", 
+           RowBox[{
+            RowBox[{"Log", "[", 
+             RowBox[{"Aa", "[", "\[CurlyPhi]", "]"}], "]"}], ",", 
+            "\[CurlyPhi]"}], "]"}]}], ";", "\n", "       ", 
+         RowBox[{"Ttot", "=", 
+          RowBox[{"FullSimplify", "[", 
+           RowBox[{"8", "\[Pi]", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"T\[Mu]\[Nu]", " ", 
+               RowBox[{
+                RowBox[{"Aa", "[", "\[CurlyPhi]c", "]"}], "^", "4"}]}], " ", 
+              "+", "Teff"}], ")"}]}], "]"}]}], ";"}], "\n", "       ", ";"}], 
+       ",", "\n", "       ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Aa", "[", "\[CurlyPhi]_", "]"}], ":=", "1"}], ";", "\n", 
+        "       ", 
+        RowBox[{
+         RowBox[{"\[Alpha]a", "[", "\[CurlyPhi]_", "]"}], ":=", "1"}], ";", 
+        " ", "\n", "       ", 
+        RowBox[{"Ttot", "=", 
+         RowBox[{"FullSimplify", "[", 
+          RowBox[{"8", 
+           RowBox[{"\[Pi]", "/", "\[CurlyPhi]c"}], 
+           RowBox[{"(", 
+            RowBox[{"T\[Mu]\[Nu]", " ", "+", "Teff"}], ")"}]}], "]"}]}], 
+        ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Einstein", " ", "tensor"}], " ", "*)"}], "\n", 
+     RowBox[{"ET", "=", 
+      RowBox[{"Einstein", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}]}], "]"}]}], 
+     ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Solving", " ", "the", " ", "equations"}], " ", "*)"}], "\n", 
+     RowBox[{"eq", "=", 
+      RowBox[{"ET", "-", "Ttot"}]}], ";", "\n", 
+     RowBox[{"eq2", "=", 
+      RowBox[{"Simplify", "[", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"eq", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"metvars", "[", 
+               RowBox[{"[", "3", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+           "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"eq", "[", 
+              RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"metvars", "[", 
+               RowBox[{"[", "2", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+           "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\n",
+      "\[IndentingNewLine]", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{
+       "Continuity", " ", "equation", " ", "and", " ", "conversion", " ", 
+        "to", " ", "EF", " ", "if", " ", "frame"}], "\[Rule]", "Einstein"}], 
+      " ", "*)"}], "\n", 
+     RowBox[{"eqp", "=", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{"Solve", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Table", "[", 
+           RowBox[{
+            RowBox[{"Sum", "[", 
+             RowBox[{
+              RowBox[{"CovDer", "[", 
+               RowBox[{"coors", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                RowBox[{"{", 
+                 RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                RowBox[{
+                "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}], 
+               "]"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"j", ",", 
+              RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], "\[Equal]", 
+          
+          RowBox[{"{", 
+           RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"metvars", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+        "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"frame", "\[Equal]", "\"\<Einstein\>\""}], ",", "\n", 
+       "           ", 
+       RowBox[{
+        RowBox[{"eqaux", "=", 
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"T", "*", 
+            RowBox[{"\[Alpha]a", "[", "\[CurlyPhi]c", "]"}], " ", 
+            RowBox[{"Sum", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"gup", "[", 
+                RowBox[{"[", 
+                 RowBox[{"a", ",", "b"}], "]"}], "]"}], 
+               RowBox[{"D", "[", 
+                RowBox[{"\[CurlyPhi]c", ",", 
+                 RowBox[{"coors", "[", 
+                  RowBox[{"[", "a", "]"}], "]"}]}], "]"}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"a", ",", "4"}], "}"}]}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"b", ",", "4"}], "}"}]}], "]"}]}], ";", "\n", 
+        "           ", 
+        RowBox[{"eqp", "=", 
+         RowBox[{"Equal", "@@@", 
+          RowBox[{"Flatten", "[", 
+           RowBox[{"Solve", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"Table", "[", 
+               RowBox[{
+                RowBox[{"Sum", "[", 
+                 RowBox[{
+                  RowBox[{"CovDer", "[", 
+                   RowBox[{"coors", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                    RowBox[{"{", 
+                    RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                    RowBox[{
+                    "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}],
+                    "]"}], ",", 
+                  RowBox[{"{", 
+                   RowBox[{"i", ",", 
+                    RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"j", ",", 
+                  RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], 
+              "\[Equal]", "eqaux"}], ",", "dpc"}], "]"}], "]"}]}]}], ";", 
+        "\n", "           ", 
+        RowBox[{"eqp", "=", 
+         RowBox[{"Simplify", "@", 
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{
+              RowBox[{"eqp", "/.", 
+               RowBox[{
+                RowBox[{"metvars", "[", 
+                 RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
+                RowBox[{"Function", "[", 
+                 RowBox[{"r", ",", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Global`\[Phi]", "[", "r", "]"}], "^", 
+                    RowBox[{"(", 
+                    RowBox[{"-", "2"}], ")"}]}], "*", 
+                   RowBox[{
+                    RowBox[{"metvars", "[", 
+                    RowBox[{"[", "1", "]"}], "]"}], "[", "r", "]"}]}]}], 
+                 "]"}]}]}], "/.", 
+              RowBox[{"\[Rho]c", "\[Rule]", 
+               RowBox[{"(", 
+                RowBox[{"\[Rho]c", " ", 
+                 RowBox[{"\[Phi]c", "^", 
+                  RowBox[{"(", 
+                   RowBox[{"-", "2"}], ")"}]}]}], ")"}]}]}], "/.", 
+             RowBox[{"Global`\[Phi]", "\[Rule]", 
+              RowBox[{"Function", "[", 
+               RowBox[{"r", ",", 
+                RowBox[{"Evaluate", "[", 
+                 RowBox[{"\[Phi]\[CurlyPhi]c", "[", 
+                  RowBox[{"Global`\[CurlyPhi]", "[", "r", "]"}], "]"}], 
+                 "]"}]}], "]"}]}]}], ",", "dpc"}], "]"}]}]}], ";", "\n", 
+        "           ", 
+        RowBox[{"eqp", "=", 
+         RowBox[{"Simplify", "@", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Flatten", "[", "eqp", "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}]}], 
+        ";"}], ",", "\n", "           ", "\n", "           ", 
+       RowBox[{
+        RowBox[{"eqp", "=", 
+         RowBox[{"Simplify", "[", "eqp", "]"}]}], ";"}]}], "]"}], ";", "\n", 
+     "\[IndentingNewLine]", 
+     RowBox[{"(*", " ", 
+      RowBox[{"KG", " ", "equation"}], " ", "*)"}], "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"frame", "\[Equal]", "\"\<Einstein\>\""}], ",", "\n", 
+       "           ", 
+       RowBox[{
+        RowBox[{"eqKG", "=", 
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"DAlembert", "[", 
+             RowBox[{"coors", ",", "g", ",", "\[CurlyPhi]c"}], "]"}], 
+            "\[Equal]", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], "\[Pi]", "  ", 
+              RowBox[{"\[Alpha]a", "[", "\[CurlyPhi]c", "]"}], "TEF"}], "+", 
+             RowBox[{
+              RowBox[{"1", "/", "4"}], " ", "dV\[CurlyPhi]c"}]}]}], ",", " ", 
+           "\[CurlyPhi]2c"}], "]"}]}], ";"}], ",", "\n", "           ", 
+       RowBox[{
+        RowBox[{"eqKG", "=", 
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"3", 
+             RowBox[{"DAlembert", "[", 
+              RowBox[{"coors", ",", "g", ",", "\[CurlyPhi]c"}], "]"}]}], 
+            "\[Equal]", 
+            RowBox[{
+             RowBox[{"8", "\[Pi]", "  ", 
+              RowBox[{"\[Alpha]a", "[", "\[CurlyPhi]c", "]"}], "TEF"}], "+", 
+             " ", 
+             RowBox[{"\[CurlyPhi]c", " ", "dV\[CurlyPhi]c"}], " ", "-", 
+             RowBox[{"2", " ", "V\[CurlyPhi]c"}]}]}], ",", " ", 
+           "\[CurlyPhi]2c"}], "]"}]}], ";"}]}], "]"}], ";", "\n", "\n", 
+     RowBox[{"Normal", "@", 
+      RowBox[{"Series", "[", 
+       RowBox[{
+        RowBox[{"Equal", "@@@", 
+         RowBox[{"Flatten", "[", 
+          RowBox[{"Join", "[", 
+           RowBox[{"eqp", ",", "eq2", ",", "eqKG"}], "]"}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}]}], "\n",
+    "]"}]}]}], "Code",
+ CellChangeTimes->{{3.768286043693741*^9, 3.7682861016831617`*^9}, {
+   3.768286177565136*^9, 3.768286300065702*^9}, {3.7682922252003*^9, 
+   3.768292251261231*^9}, {3.7682922859555483`*^9, 3.768292391084774*^9}, {
+   3.7682924399175043`*^9, 3.7682924665080223`*^9}, {3.768292498015712*^9, 
+   3.7682926619199038`*^9}, {3.768292703342845*^9, 3.7682927180920753`*^9}, {
+   3.7682927922938967`*^9, 3.768292843408577*^9}, {3.7682931008980103`*^9, 
+   3.7682931044064837`*^9}, {3.7682932230193443`*^9, 
+   3.7682932442437267`*^9}, {3.768293287990246*^9, 3.7682933456848097`*^9}, {
+   3.768293376284012*^9, 3.7682935232143393`*^9}, {3.768294645882699*^9, 
+   3.768294728981201*^9}, {3.7682947895297613`*^9, 3.768294918822987*^9}, {
+   3.7682949961939363`*^9, 3.768295125342228*^9}, {3.768295198907592*^9, 
+   3.768295338666996*^9}, {3.7682953725160913`*^9, 3.768295375809881*^9}, {
+   3.768295406367578*^9, 3.7682954532861843`*^9}, {3.768295672689414*^9, 
+   3.768295726696642*^9}, {3.768295830902807*^9, 3.768295853867934*^9}, {
+   3.768297117973008*^9, 3.768297180102229*^9}, {3.7682980238277683`*^9, 
+   3.7682980717989473`*^9}, {3.768298888032651*^9, 3.768298944947604*^9}, {
+   3.768299079340296*^9, 3.768299084637109*^9}, {3.768299187324153*^9, 
+   3.768299211214273*^9}, {3.768299252319559*^9, 3.768299264027528*^9}, {
+   3.7683009911861877`*^9, 3.768300991394665*^9}, {3.768301055236836*^9, 
+   3.7683010591676197`*^9}, {3.768302007856481*^9, 3.768302034351471*^9}, 
+   3.768302075865973*^9, {3.7683021383305483`*^9, 3.768302331534884*^9}, {
+   3.768302371790996*^9, 3.7683024734539967`*^9}, {3.768302510408646*^9, 
+   3.7683026597891693`*^9}, {3.7683027671990957`*^9, 3.768302772504333*^9}, {
+   3.768302824089941*^9, 3.7683028508246*^9}, 3.7683029030329037`*^9, {
+   3.768302955209667*^9, 3.768302971680045*^9}, {3.768303897809602*^9, 
+   3.768303964366034*^9}, {3.768304016931592*^9, 3.76830405091859*^9}, {
+   3.7683041642636538`*^9, 3.7683042133936663`*^9}, {3.768304520704022*^9, 
+   3.768304523045218*^9}, 3.768304554479727*^9, {3.768304601910163*^9, 
+   3.768304619839645*^9}, {3.768304690694625*^9, 3.7683047234157457`*^9}, 
+   3.768304754338459*^9, {3.768304812850038*^9, 3.7683048260491953`*^9}, {
+   3.768304874513142*^9, 3.7683048784912367`*^9}, {3.768304925530835*^9, 
+   3.76830497719526*^9}, {3.768305018991791*^9, 3.768305084893395*^9}, {
+   3.76830511982694*^9, 3.768305263725376*^9}, {3.768305339035722*^9, 
+   3.76830535986615*^9}, {3.768305441741992*^9, 3.768305445037253*^9}, {
+   3.768305714234911*^9, 3.768305764738435*^9}, {3.768305876858232*^9, 
+   3.7683058842617693`*^9}, {3.768305921820682*^9, 3.7683059266965446`*^9}, {
+   3.768305958759348*^9, 3.768305978444345*^9}, 3.7683060275432777`*^9, {
+   3.768306073543371*^9, 3.768306182607038*^9}, {3.7683062175786123`*^9, 
+   3.768306217786437*^9}, {3.7683062815691757`*^9, 3.7683064050011263`*^9}, {
+   3.76830643720341*^9, 3.7683064430767937`*^9}, {3.768306473835301*^9, 
+   3.768306518424123*^9}, {3.7683065613102837`*^9, 3.768306565099594*^9}, 
+   3.768306598099428*^9, 3.768306638579074*^9, {3.768306675248168*^9, 
+   3.768306712235889*^9}, {3.76830674526958*^9, 3.768306836988044*^9}, {
+   3.7683069563553553`*^9, 3.7683070821621027`*^9}, {3.768307124892221*^9, 
+   3.768307189398511*^9}, 3.7683072216895943`*^9, 3.768307262864139*^9, {
+   3.768307392102393*^9, 3.7683073953454123`*^9}, {3.768307442298812*^9, 
+   3.7683074454396553`*^9}, 3.7683074933300047`*^9, 3.7683075391540213`*^9, {
+   3.768307746156109*^9, 3.76830780096706*^9}, {3.7683078473699827`*^9, 
+   3.768307998152399*^9}, {3.768308032045003*^9, 3.76830806726011*^9}, {
+   3.768308111516686*^9, 3.7683082246613626`*^9}, 3.7683083354530487`*^9, {
+   3.7683083807023478`*^9, 3.768308405775072*^9}, {3.768308444543239*^9, 
+   3.76830851251334*^9}, {3.768308594608139*^9, 3.7683086311486797`*^9}, {
+   3.768308671246978*^9, 3.76830883267432*^9}, 3.768308899660317*^9, {
+   3.768308975072472*^9, 3.768309005631831*^9}, {3.7683090624505587`*^9, 
+   3.768309087314838*^9}, {3.768446845294278*^9, 3.768446848613245*^9}, {
+   3.768446887332675*^9, 3.768446962369276*^9}, {3.7684470147584476`*^9, 
+   3.7684470456203337`*^9}, {3.768447122706481*^9, 3.76844722446747*^9}, {
+   3.768447283068047*^9, 3.7684472997190323`*^9}, {3.768447340443493*^9, 
+   3.768447359247634*^9}, {3.76844739526344*^9, 3.768447437596922*^9}, {
+   3.76844751171803*^9, 3.768447536734747*^9}, {3.768447597910309*^9, 
+   3.768447787824823*^9}, {3.7684478265594387`*^9, 3.7684478271664457`*^9}, {
+   3.768447869174205*^9, 3.7684478704342613`*^9}, {3.76844791844263*^9, 
+   3.7684480482143183`*^9}, {3.768448093718032*^9, 3.768448117686494*^9}, {
+   3.768448185177968*^9, 3.7684482263986807`*^9}, {3.768448275764235*^9, 
+   3.768448309683461*^9}, {3.768448352945064*^9, 3.768448369918376*^9}, {
+   3.768448408502521*^9, 3.768448440350157*^9}, 3.768448470520612*^9, {
+   3.768448530399008*^9, 3.768448747751988*^9}, {3.768448778349134*^9, 
+   3.768448779969138*^9}, {3.768448833481038*^9, 3.768448939849053*^9}, {
+   3.770024677135663*^9, 3.770024686763948*^9}, {3.770614083272015*^9, 
+   3.770614084470064*^9}, 3.770616316626381*^9, {3.77078599229218*^9, 
+   3.7707860350835876`*^9}, 3.770786065848425*^9, {3.770786166103442*^9, 
+   3.77078640012564*^9}, {3.770786518178605*^9, 3.7707866055656137`*^9}, {
+   3.770786641449147*^9, 3.77078668098344*^9}, 3.770786841390422*^9, {
+   3.7707868915211*^9, 3.77078689432551*^9}, {3.770787001867649*^9, 
+   3.7707870488332453`*^9}, {3.770787148528079*^9, 3.7707871537978077`*^9}, {
+   3.770787183874754*^9, 3.770787190386532*^9}, {3.770787230164721*^9, 
+   3.770787262956778*^9}, {3.77078735386154*^9, 3.7707873958789787`*^9}, {
+   3.770787557146203*^9, 3.770787563146265*^9}, {3.77078764265154*^9, 
+   3.770787642869013*^9}, {3.770787838093955*^9, 3.770787847669304*^9}, {
+   3.770787914333383*^9, 3.77078797179918*^9}, 3.770788128924032*^9, {
+   3.7707883371111813`*^9, 3.7707884001894617`*^9}, {3.7707885046623363`*^9, 
+   3.770788531696279*^9}, {3.7707886850690947`*^9, 3.770788690161327*^9}, {
+   3.771129619768614*^9, 3.771129626229288*^9}, {3.7711297946986027`*^9, 
+   3.7711298407521563`*^9}, {3.771129935741413*^9, 3.771129943570326*^9}, {
+   3.7711376635906773`*^9, 3.7711378111895638`*^9}, {3.771137844633956*^9, 
+   3.77113787831046*^9}, {3.7711379194108257`*^9, 3.771137947862589*^9}, {
+   3.7711379862877502`*^9, 3.771138058903063*^9}, {3.7711381745865*^9, 
+   3.771138174706422*^9}, {3.7711382060491047`*^9, 3.771138241182229*^9}, {
+   3.771138284644698*^9, 3.7711383287417727`*^9}, {3.771138370304311*^9, 
+   3.771138398158531*^9}, 3.7727699417830353`*^9, {3.79972927383171*^9, 
+   3.799729276552829*^9}, {3.799730606003778*^9, 3.799730616781118*^9}, {
+   3.799730723930231*^9, 3.7997307271421547`*^9}, {3.799730772675123*^9, 
+   3.799730776065962*^9}, {3.799730820429969*^9, 
+   3.799730848017131*^9}},ExpressionUUID->"305f1da2-b619-471c-b193-\
+83c797e21b52"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "FRTOV", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"\"\<Signature\>\"", "\[Rule]", "1"}], "}"}], ",", 
+     RowBox[{"Options", "[", "TeffST", "]"}]}], "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"FRTOV", "[", 
+   RowBox[{
+   "coors_", ",", "met_", ",", "fR_", ",", "metvars_", ",", "pert_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "Global`R", ",", "teff", ",", "perti", ",", "sign", ",", "u", ",", 
+      "udown", ",", "g", ",", "gup", ",", "simpl", ",", "T\[Mu]\[Nu]up", ",", 
+      "T\[Mu]\[Nu]", ",", "T", ",", "Teff", ",", "Ttot", ",", "ET", ",", 
+      "riscal", ",", "riscalvars", ",", "Rc", ",", "fRc", ",", "dfRc", ",", 
+      "eq", ",", "eq2", ",", "eqp", ",", "eqKG", ",", "R2c"}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"sign", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Signature\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\[IndentingNewLine]", 
+     RowBox[{
+     "Print", "[", 
+      "\"\<Variables must be given as: {p,Var_gtt,Var_grr,R}\>\"", "]"}], ";",
+      "\[IndentingNewLine]", 
+     RowBox[{"g", "=", "met"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"gup", "=", 
+      RowBox[{"Inverse", "[", "g", "]"}]}], ";", "\n", 
+     RowBox[{"riscal", "=", 
+      RowBox[{"RicciScalar", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"riscalvars", "=", 
+      RowBox[{"Complement", "[", 
+       RowBox[{"coors", ",", 
+        RowBox[{"Complement", "[", 
+         RowBox[{"coors", ",", 
+          RowBox[{"AtomsList", "[", "riscal", "]"}]}], "]"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"Rc", "=", 
+      RowBox[{"Global`R", "@@", "riscalvars"}]}], ";", "\n", 
+     RowBox[{"R2c", "=", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"Global`R", "''"}], ")"}], "@@", "riscalvars"}]}], ";", "\n", 
+     
+     RowBox[{"fRc", "=", 
+      RowBox[{"fR", "/.", 
+       RowBox[{"Global`R", "\[Rule]", "Rc"}]}]}], ";", "\n", 
+     RowBox[{"dfRc", "=", 
+      RowBox[{"D", "[", 
+       RowBox[{"fRc", ",", "Rc"}], "]"}]}], ";", "\[IndentingNewLine]", 
+     "\[IndentingNewLine]", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{
+       "Computation", " ", "of", " ", "the", " ", "matter", " ", "energy"}], 
+       "-", 
+       RowBox[{"momentum", " ", "tensor"}]}], " ", "*)"}], 
+     "\[IndentingNewLine]", 
+     RowBox[{"T\[Mu]\[Nu]", "=", 
+      RowBox[{"ETensor", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"T\[Mu]\[Nu]up", "=", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"gup", ".", "T\[Mu]\[Nu]"}], ")"}], "gup"}]}], ";", "\n", 
+     RowBox[{"T", "=", 
+      RowBox[{"Sum", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"g", ".", "T\[Mu]\[Nu]up"}], ")"}], "[", 
+         RowBox[{"[", 
+          RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}]}], ";", 
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{
+       "Computation", " ", "of", " ", "the", " ", "effective", " ", 
+        "energy"}], "-", 
+       RowBox[{"momentum", " ", "tensor"}]}], " ", "*)"}], "\n", 
+     RowBox[{"Teff", "=", 
+      RowBox[{"TeffFR", "[", 
+       RowBox[{"coors", ",", "g", ",", "fR", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}]}], "]"}]}], 
+     ";", "\n", 
+     RowBox[{"Ttot", "=", 
+      RowBox[{"FullSimplify", "[", 
+       RowBox[{"8", 
+        RowBox[{"\[Pi]", "/", "dfRc"}], 
+        RowBox[{"(", 
+         RowBox[{"T\[Mu]\[Nu]", "+", "Teff"}], ")"}]}], "]"}]}], ";", "\n", 
+     "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Einstein", " ", "tensor"}], " ", "*)"}], "\[IndentingNewLine]", 
+     RowBox[{"ET", "=", 
+      RowBox[{"Einstein", "[", 
+       RowBox[{"coors", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Solving", " ", "the", " ", "equations"}], " ", "*)"}], "\n", 
+     RowBox[{"eq", "=", 
+      RowBox[{"ET", "-", "Ttot"}]}], ";", "\n", 
+     RowBox[{"eq2", "=", 
+      RowBox[{"Simplify", "[", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"eq", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"metvars", "[", 
+               RowBox[{"[", "3", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+           "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"eq", "[", 
+              RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"metvars", "[", 
+               RowBox[{"[", "2", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+           "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\n",
+      "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Continuity", " ", "equation"}], " ", "*)"}], "\n", 
+     RowBox[{"eqp", "=", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{"Solve", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Table", "[", 
+           RowBox[{
+            RowBox[{"Sum", "[", 
+             RowBox[{
+              RowBox[{"CovDer", "[", 
+               RowBox[{"coors", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                RowBox[{"{", 
+                 RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                RowBox[{
+                "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}], 
+               "]"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", 
+                RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"j", ",", 
+              RowBox[{"Length", "@", "coors"}]}], "}"}]}], "]"}], "\[Equal]", 
+          
+          RowBox[{"{", 
+           RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"metvars", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "'"}], "@@", "riscalvars"}]}], 
+        "]"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"KG", " ", "equation"}], " ", "*)"}], "\[IndentingNewLine]", 
+     RowBox[{"eqKG", "=", 
+      RowBox[{"Solve", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", 
+            RowBox[{"DAlembert", "[", 
+             RowBox[{"coors", ",", "g", ",", "dfRc"}], "]"}]}], "+", 
+           RowBox[{"dfRc", " ", "Rc"}], "-", 
+           RowBox[{"2", "fRc"}]}], ")"}], "\[Equal]", 
+         RowBox[{"8", "\[Pi]", " ", "T"}]}], ",", "R2c"}], "]"}]}], ";", "\n",
+      "\n", 
+     RowBox[{"Equal", "@@@", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{"Join", "[", 
+        RowBox[{"eqp", ",", "eq2", ",", "eqKG"}], "]"}], "]"}]}]}]}], "\n", 
+   "]"}]}]}], "Code",
+ CellChangeTimes->{{3.768286043693741*^9, 3.7682861016831617`*^9}, {
+   3.768286177565136*^9, 3.768286300065702*^9}, {3.7682922252003*^9, 
+   3.768292251261231*^9}, {3.7682922859555483`*^9, 3.768292391084774*^9}, {
+   3.7682924399175043`*^9, 3.7682924665080223`*^9}, {3.768292498015712*^9, 
+   3.7682926619199038`*^9}, {3.768292703342845*^9, 3.7682927180920753`*^9}, {
+   3.7682927922938967`*^9, 3.768292843408577*^9}, {3.7682931008980103`*^9, 
+   3.7682931044064837`*^9}, {3.7682932230193443`*^9, 
+   3.7682932442437267`*^9}, {3.768293287990246*^9, 3.7682933456848097`*^9}, {
+   3.768293376284012*^9, 3.7682935232143393`*^9}, {3.768294645882699*^9, 
+   3.768294728981201*^9}, {3.7682947895297613`*^9, 3.768294918822987*^9}, {
+   3.7682949961939363`*^9, 3.768295125342228*^9}, {3.768295198907592*^9, 
+   3.768295338666996*^9}, {3.7682953725160913`*^9, 3.768295375809881*^9}, {
+   3.768295406367578*^9, 3.7682954532861843`*^9}, {3.768295672689414*^9, 
+   3.768295726696642*^9}, {3.768295830902807*^9, 3.768295853867934*^9}, {
+   3.768297117973008*^9, 3.768297180102229*^9}, {3.7682980238277683`*^9, 
+   3.7682980717989473`*^9}, {3.768298888032651*^9, 3.768298944947604*^9}, {
+   3.768299079340296*^9, 3.768299084637109*^9}, {3.768299187324153*^9, 
+   3.768299211214273*^9}, 3.768302057345272*^9, {3.768302089201294*^9, 
+   3.7683021128210983`*^9}, {3.77002427423114*^9, 3.770024278742632*^9}, {
+   3.770024309319435*^9, 3.770024392383926*^9}, {3.7700244568745937`*^9, 
+   3.7700244619485188`*^9}, 3.7700245897858133`*^9, {3.7700246434243*^9, 
+   3.770024656040967*^9}, {3.770605735004178*^9, 3.770605788806601*^9}, {
+   3.7706058246612883`*^9, 3.770605831059289*^9}, {3.7717272488491907`*^9, 
+   3.771727321608251*^9}, {3.771727354819839*^9, 3.77172742281852*^9}, {
+   3.7717274589179573`*^9, 3.771727468983535*^9}, {3.782563237395153*^9, 
+   3.782563260541533*^9}, {3.782563305971879*^9, 3.782563306291113*^9}, {
+   3.782563353585987*^9, 3.7825634157561417`*^9}, {3.78256345848636*^9, 
+   3.78256345879601*^9}, 3.7825635339647827`*^9, {3.78256357538962*^9, 
+   3.782563583579157*^9}, {3.782563680661182*^9, 3.782563714394992*^9}, {
+   3.782563775073283*^9, 3.782563781261217*^9}, {3.782563911895391*^9, 
+   3.782563995095764*^9}},
+ CellLabel->
+  "In[307]:=",ExpressionUUID->"bd6a6fb4-49a6-4c2b-90a7-61e4c321ab53"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"fR2Pot", "[", 
+    RowBox[{"fR_", ",", 
+     RowBox[{"\[Phi]\[CurlyPhi]_:", "1"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "dfRc", ",", "fRc", ",", "fun", ",", "Rc", ",", "uc", ",", "Global`R", 
+       ",", "Global`\[Phi]", ",", "\[Phi]c", ",", "Rc\[Phi]"}], "}"}], ",", 
+     "\n", "\n", 
+     RowBox[{
+      RowBox[{"Rc", "=", "Global`R"}], ";", "\n", 
+      RowBox[{"\[Phi]c", "=", "Global`\[Phi]"}], ";", "\n", 
+      RowBox[{"fRc", "=", 
+       RowBox[{"fR", "/.", 
+        RowBox[{"Global`R", "\[Rule]", "Rc"}]}]}], ";", "\n", 
+      RowBox[{"dfRc", "=", 
+       RowBox[{"D", "[", 
+        RowBox[{"fRc", ",", "Rc"}], "]"}]}], ";", "\n", "\n", 
+      RowBox[{"Rc\[Phi]", "=", 
+       RowBox[{"(", 
+        RowBox[{"Rc", "/.", 
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{"\[Phi]c", "==", "dfRc"}], ",", "Rc"}], "]"}]}], ")"}]}], 
+      ";", "\n", 
+      RowBox[{"uc", "=", 
+       RowBox[{"Simplify", "[", 
+        RowBox[{
+         RowBox[{"Rc\[Phi]", " ", "\[Phi]c"}], " ", "-", " ", 
+         RowBox[{"(", 
+          RowBox[{"fRc", "/.", 
+           RowBox[{"Rc", "->", "Rc\[Phi]"}]}], ")"}]}], "]"}]}], ";", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{"pot", "=", 
+        RowBox[{
+        "1", " ", "gives", " ", "the", " ", "JF", " ", "potential", " ", 
+         "else", " ", "gives", " ", "the", " ", "SF"}]}], "  ", "*)"}], "\n", 
+      
+      RowBox[{"$Assumptions", " ", "=", " ", 
+       RowBox[{"_", " ", "\[Element]", " ", "Reals"}]}], ";", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"NumericQ", "@", "\[Phi]\[CurlyPhi]"}], ",", 
+        RowBox[{"fun", "=", "uc"}], ",", 
+        RowBox[{
+         RowBox[{"fun", "=", 
+          RowBox[{"FullSimplify", "[", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"uc", "/", 
+              RowBox[{"\[Phi]c", "^", "2"}]}], ")"}], "/.", 
+            RowBox[{"\[Phi]c", "\[Rule]", "\[Phi]\[CurlyPhi]"}]}], "]"}]}], 
+         ";"}]}], "]"}], ";", "\n", "fun"}]}], "\n", "]"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.768449191732234*^9, 3.768449372676139*^9}, {
+   3.7684496353758707`*^9, 3.768449700022399*^9}, 3.768449788900222*^9, {
+   3.768449825824396*^9, 3.768449845025877*^9}, {3.768449877765267*^9, 
+   3.768449973578076*^9}, {3.76845000370557*^9, 3.768450136928383*^9}, {
+   3.7684504625839987`*^9, 3.7684505127832823`*^9}, {3.768451890834218*^9, 
+   3.768452087379361*^9}, {3.768452129775681*^9, 3.768452137521492*^9}, {
+   3.768452218745614*^9, 3.76845223572503*^9}, {3.768452317286131*^9, 
+   3.7684523542706347`*^9}, 3.7684524117346373`*^9, 3.768452508236752*^9, {
+   3.7684527696136417`*^9, 3.7684527765420313`*^9}, 3.768452807212551*^9, {
+   3.768452843803595*^9, 3.768452848736969*^9}, {3.768452981344008*^9, 
+   3.768452988116334*^9}, {3.768453022440714*^9, 3.768453048265162*^9}, {
+   3.768536320285986*^9, 3.768536332458561*^9}, {3.7997434608908653`*^9, 
+   3.79974346100607*^9}, 3.7997437795268097`*^9, 3.799743819129264*^9},
+ CellLabel->"In[71]:=",ExpressionUUID->"277e5d59-180f-4ff2-9d11-83708193aa16"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Pot2fR", "[", 
+    RowBox[{"V\[CurlyPhi]_", ",", "\[Phi]\[CurlyPhi]_"}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "dfRc", ",", "fRc", ",", "fun", ",", "Rc", ",", "uc", ",", "Global`R", 
+       ",", "Global`\[Phi]", ",", "Global`\[CurlyPhi]", ",", "\[Phi]c", ",", 
+       "Rc\[Phi]", ",", "\[CurlyPhi]c"}], "}"}], ",", "\n", "\n", "\n", "\n", 
+     
+     RowBox[{
+      RowBox[{"Rc", "=", "Global`R"}], ";", "\n", 
+      RowBox[{"\[Phi]c", "=", "Global`\[Phi]"}], ";", "\n", 
+      RowBox[{"\[CurlyPhi]c", "=", "Global`\[CurlyPhi]"}], ";", "\n", 
+      RowBox[{"fRc", "=", 
+       RowBox[{"fR", "/.", 
+        RowBox[{"Global`R", "\[Rule]", "Rc"}]}]}], ";", "\n", 
+      RowBox[{"dfRc", "=", 
+       RowBox[{"D", "[", 
+        RowBox[{"fRc", ",", "Rc"}], "]"}]}], ";", "\n", "\n", 
+      RowBox[{"Return", "[", 
+       RowBox[{"Solve", "[", 
+        RowBox[{
+         RowBox[{"\[Phi]\[CurlyPhi]", "==", "\[Phi]c"}], ",", 
+         "\[CurlyPhi]c"}], "]"}], "]"}], ";", "\n", "\n", 
+      RowBox[{"Rc\[Phi]", "=", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"Rc", "/.", 
+          RowBox[{"Solve", "[", 
+           RowBox[{
+            RowBox[{"\[Phi]c", "==", "dfRc"}], ",", "Rc"}], "]"}]}], ")"}], 
+        "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+      RowBox[{"uc", "=", 
+       RowBox[{"Simplify", "[", 
+        RowBox[{
+         RowBox[{"Rc\[Phi]", " ", "\[Phi]c"}], " ", "-", " ", 
+         RowBox[{"(", 
+          RowBox[{"fRc", "/.", 
+           RowBox[{"Rc", "->", "Rc\[Phi]"}]}], ")"}]}], "]"}]}], ";", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{"pot", "=", 
+        RowBox[{
+        "1", " ", "gives", " ", "the", " ", "JF", " ", "potential", " ", 
+         "else", " ", "gives", " ", "the", " ", "SF"}]}], "  ", "*)"}], "\n", 
+      
+      RowBox[{"$Assumptions", " ", "=", " ", 
+       RowBox[{"_", " ", "\[Element]", " ", "Reals"}]}], ";", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"NumericQ", "@", "\[Phi]\[CurlyPhi]"}], ",", 
+        RowBox[{"fun", "=", "uc"}], ",", 
+        RowBox[{
+         RowBox[{"fun", "=", 
+          RowBox[{"FullSimplify", "[", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"uc", "/", 
+              RowBox[{"\[Phi]c", "^", "2"}]}], ")"}], "/.", 
+            RowBox[{"\[Phi]c", "\[Rule]", "\[Phi]\[CurlyPhi]"}]}], "]"}]}], 
+         ";"}]}], "]"}], ";", "\n", "fun"}]}], "\n", "]"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.768449191732234*^9, 3.768449372676139*^9}, {
+   3.7684496353758707`*^9, 3.768449700022399*^9}, 3.768449788900222*^9, {
+   3.768449825824396*^9, 3.768449845025877*^9}, {3.768449877765267*^9, 
+   3.768449973578076*^9}, {3.76845000370557*^9, 3.768450136928383*^9}, {
+   3.7684504625839987`*^9, 3.7684505127832823`*^9}, {3.768451890834218*^9, 
+   3.768452087379361*^9}, {3.768452129775681*^9, 3.768452137521492*^9}, {
+   3.768452218745614*^9, 3.76845223572503*^9}, {3.768452317286131*^9, 
+   3.7684523542706347`*^9}, 3.7684524117346373`*^9, 3.768452508236752*^9, {
+   3.7684527696136417`*^9, 3.7684527765420313`*^9}, 3.768452807212551*^9, {
+   3.768452843803595*^9, 3.768452848736969*^9}, {3.768452981344008*^9, 
+   3.768452988116334*^9}, {3.768453022440714*^9, 3.768453048265162*^9}, {
+   3.768535969256428*^9, 3.7685359842081137`*^9}, {3.7685361921699877`*^9, 
+   3.7685361923321247`*^9}, {3.768536225646884*^9, 3.76853636647115*^9}, 
+   3.799743775863894*^9},
+ CellLabel->
+  "In[310]:=",ExpressionUUID->"273d8dfe-f22d-4001-a888-645b21900533"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["EOS", "Section",
+ CellChangeTimes->{{3.7519610765724993`*^9, 
+  3.751961078740552*^9}},ExpressionUUID->"037c7342-04ce-4060-832e-\
+9a862d770c59"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSCallParsBSks", "[", "model_", "]"}], ":=", 
+  "\[IndentingNewLine]", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", 
+      ",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", "a13", 
+      ",", "a14", ",", "a15", ",", "a16", ",", "a17", ",", "a18", ",", "a19", 
+      ",", "a20", ",", "a21", ",", "a22", ",", "a23", ",", "a24", ",", 
+      "table", ",", "pars"}], "}"}], ",", "\[IndentingNewLine]", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"table", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"a1", ",", "3.916`", ",", "4.078`", ",", "4.857`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a2", ",", "7.701`", ",", "7.587`", ",", "6.981`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a3", ",", "0.00858`", ",", "0.00839`", ",", "0.00706`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a4", ",", "0.22114`", ",", "0.21695`", ",", "0.19351`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a5", ",", "3.269`", ",", "3.614`", ",", "4.085`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a6", ",", "11.964`", ",", "11.942`", ",", "12.065`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a7", ",", "13.349`", ",", "13.751`", ",", "10.521`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a8", ",", "1.3683`", ",", "1.3373`", ",", "1.5905`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a9", ",", "3.254`", ",", "3.606`", ",", "4.104`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a10", ",", 
+          RowBox[{"-", "12.953`"}], ",", 
+          RowBox[{"-", "22.996`"}], ",", 
+          RowBox[{"-", "28.726`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a11", ",", "0.9237`", ",", "1.6229`", ",", "2.0845`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a12", ",", "6.2`", ",", "4.88`", ",", "4.89`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a13", ",", "14.383`", ",", "14.274`", ",", "14.302`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a14", ",", "16.693`", ",", "23.56`", ",", "22.881`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a15", ",", 
+          RowBox[{"-", "1.0514`"}], ",", 
+          RowBox[{"-", "1.5564`"}], ",", 
+          RowBox[{"-", "1.769`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a16", ",", "2.486`", ",", "2.095`", ",", "0.989`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a17", ",", "15.362`", ",", "15.294`", ",", "15.313`"}], 
+         "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a18", ",", "0.085`", ",", "0.084`", ",", "0.091`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a19", ",", "6.23`", ",", "6.36`", ",", "4.68`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a20", ",", "11.68`", ",", "11.67`", ",", "11.65`"}], "}"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"a21", ",", 
+          RowBox[{"-", "0.029`"}], ",", 
+          RowBox[{"-", "0.042`"}], ",", 
+          RowBox[{"-", "0.086`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a22", ",", "20.1`", ",", "14.8`", ",", "10.`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a23", ",", "14.19`", ",", "14.18`", ",", "14.15`"}], 
+         "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     
+     RowBox[{"pars", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"table", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "1"}], "]"}], "]"}], "->", 
+         RowBox[{"table", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", 
+            RowBox[{"model", "+", "1"}]}], "]"}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{"Length", "@", "table"}]}], "}"}]}], "]"}]}]}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.71775768599763*^9, 3.71775774008239*^9}, {
+   3.717757935604946*^9, 3.717757950042429*^9}, {3.717758383977809*^9, 
+   3.717758694703594*^9}, {3.717758812888652*^9, 3.717758813456283*^9}, {
+   3.717760509484172*^9, 3.717760511871131*^9}, 3.7184392257692327`*^9, 
+   3.718440690796077*^9, 3.751961196867652*^9},
+ CellLabel->
+  "In[311]:=",ExpressionUUID->"dd47b130-3e35-4d07-b77e-3ca9d835e052"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSCallParsSly", "[", "model_", "]"}], ":=", "\[IndentingNewLine]", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", 
+      ",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", "a13", 
+      ",", "a14", ",", "a15", ",", "a16", ",", "a17", ",", "a18", ",", "a19", 
+      ",", "a20", ",", "a21", ",", "a22", ",", "a23", ",", "a24", ",", 
+      "table", ",", "pars"}], "}"}], ",", "\[IndentingNewLine]", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"table", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"a1", ",", " ", "6.22"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a10", ",", "11.4950"}], "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a2", ",", "6.121"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a11", ",", 
+          RowBox[{"-", "22.775"}]}], "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a3", ",", "0.005925"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a12", ",", "1.5707"}], "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a4", ",", "0.16326"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a13", ",", "4.3"}], " ", "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a5", ",", "6.48"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a14", ",", "14.08"}], " ", "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a6", ",", "11.4971"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a15", ",", "27.80"}], " ", "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a7", ",", "19.105"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a16", ",", 
+          RowBox[{"-", "1.653"}]}], "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a8", ",", "0.8938"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a17", ",", "1.50"}], "}"}], ",", "\n", 
+        RowBox[{"{", 
+         RowBox[{"a9", ",", "6.54"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"a18", ",", "14.67"}], "}"}]}], "}"}]}], ";", 
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{"pars", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"table", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "1"}], "]"}], "]"}], "->", 
+         RowBox[{"table", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", 
+            RowBox[{"model", "+", "1"}]}], "]"}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{"Length", "@", "table"}]}], "}"}]}], "]"}]}]}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.71775768599763*^9, 3.71775774008239*^9}, {
+  3.717757935604946*^9, 3.717757950042429*^9}, {3.717758383977809*^9, 
+  3.717758694703594*^9}, {3.717758812888652*^9, 3.717758813456283*^9}, {
+  3.717760509484172*^9, 3.717760511871131*^9}, {3.717762449681579*^9, 
+  3.7177624517538843`*^9}, {3.717762951815937*^9, 3.717763011226334*^9}, {
+  3.724067955916505*^9, 3.724067970780342*^9}},
+ CellLabel->
+  "In[312]:=",ExpressionUUID->"b17e086c-ab31-48d0-8d5b-b0b3abee85e8"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSBSks", "[", "model_", "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"\[Zeta]", ",", "\[Rho]", ",", "pars"}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pars", "=", 
+      RowBox[{"EoSCallParsBSks", "[", "model", "]"}]}], ";", 
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{"\[Zeta]", "=", 
+      RowBox[{
+       RowBox[{
+        FractionBox[
+         RowBox[{"a1", "+", 
+          RowBox[{"a2", " ", "\[Rho]"}], " ", "+", 
+          RowBox[{"a3", " ", 
+           RowBox[{"\[Rho]", "^", "3"}]}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"a4", " ", "\[Rho]"}]}]], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Exp", "[", 
+            RowBox[{"a5", 
+             RowBox[{"(", 
+              RowBox[{"\[Rho]", "-", "a6"}], ")"}]}], "]"}], "+", "1"}], 
+          ")"}], "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "1"}], ")"}]}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a7", "+", 
+          RowBox[{"a8", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Exp", "[", 
+            RowBox[{"a9", 
+             RowBox[{"(", 
+              RowBox[{"a6", "-", "\[Rho]"}], ")"}]}], "]"}], "+", "1"}], 
+          ")"}], "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "1"}], ")"}]}]}], "\[IndentingNewLine]", "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a10", "+", 
+          RowBox[{"a11", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Exp", "[", 
+            RowBox[{"a12", 
+             RowBox[{"(", 
+              RowBox[{"a13", "-", "\[Rho]"}], ")"}]}], "]"}], "+", "1"}], 
+          ")"}], "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "1"}], ")"}]}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a14", "+", 
+          RowBox[{"a15", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Exp", "[", 
+            RowBox[{"a16", 
+             RowBox[{"(", 
+              RowBox[{"a17", "-", "\[Rho]"}], ")"}]}], "]"}], "+", "1"}], 
+          ")"}], "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "1"}], ")"}]}]}], "\[IndentingNewLine]", "+", 
+       FractionBox["a18", 
+        RowBox[{"1", "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"a19", 
+            RowBox[{"(", 
+             RowBox[{"\[Rho]", "-", "a20"}], ")"}]}], ")"}], "^", "2"}]}]], 
+       "+", 
+       FractionBox["a21", 
+        RowBox[{"1", "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"a22", 
+            RowBox[{"(", 
+             RowBox[{"\[Rho]", "-", "a20"}], ")"}]}], ")"}], "^", 
+          "2"}]}]]}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Zeta]", "/.", "pars"}]}]}], "\[IndentingNewLine]", 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.71775738862143*^9, 3.717757389408216*^9}, {
+   3.717757482346178*^9, 3.717757679445237*^9}, {3.717757901424719*^9, 
+   3.717757911629273*^9}, {3.717758735795946*^9, 3.717758744170471*^9}, 
+   3.717758833032639*^9, {3.717760514215025*^9, 3.717760516951446*^9}, {
+   3.717762352627295*^9, 3.717762354304845*^9}, 3.718008999796598*^9, {
+   3.718442778107766*^9, 3.71844280373*^9}, {3.727003702160531*^9, 
+   3.727003732116997*^9}},
+ CellLabel->
+  "In[313]:=",ExpressionUUID->"d5e13794-b213-405d-a895-be3f3cdac4ca"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSSly", "[", "model_", "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"\[Zeta]", ",", "\[Rho]", ",", "pars", ",", "x", ",", "f0"}], 
+     "}"}], ",", "\n", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pars", "=", 
+      RowBox[{"EoSCallParsSly", "[", "model", "]"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"f0", "[", "x_", "]"}], ":=", 
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"Exp", "[", "x", "]"}], "+", "1"}], ")"}]}]}], ";", 
+     "\[IndentingNewLine]", "\n", 
+     RowBox[{"\[Zeta]", "=", 
+      RowBox[{
+       RowBox[{
+        FractionBox[
+         RowBox[{"a1", "+", 
+          RowBox[{"a2", " ", "\[Rho]"}], " ", "+", 
+          RowBox[{"a3", " ", 
+           RowBox[{"\[Rho]", "^", "3"}]}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"a4", " ", "\[Rho]"}]}]], 
+        RowBox[{"f0", "[", 
+         RowBox[{"a5", 
+          RowBox[{"(", 
+           RowBox[{"\[Rho]", "-", "a6"}], ")"}]}], "]"}]}], "+", "\n", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a7", "+", 
+          RowBox[{"a8", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{"f0", "[", 
+         RowBox[{"(", 
+          RowBox[{"a9", 
+           RowBox[{"(", 
+            RowBox[{"a10", "-", "\[Rho]"}], ")"}]}], ")"}], "]"}]}], "+", 
+       "\n", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a11", "+", 
+          RowBox[{"a12", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{"f0", "[", 
+         RowBox[{"(", 
+          RowBox[{"a13", 
+           RowBox[{"(", 
+            RowBox[{"a14", "-", "\[Rho]"}], ")"}]}], ")"}], "]"}]}], "+", 
+       "\n", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"a15", "+", 
+          RowBox[{"a16", " ", "\[Rho]"}]}], ")"}], 
+        RowBox[{"f0", "[", 
+         RowBox[{"(", 
+          RowBox[{"a17", 
+           RowBox[{"(", 
+            RowBox[{"a18", "-", "\[Rho]"}], ")"}]}], ")"}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"\[Zeta]", "/.", "pars"}]}]}], "\[IndentingNewLine]", 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.71775738862143*^9, 3.717757389408216*^9}, {
+   3.717757482346178*^9, 3.717757679445237*^9}, {3.717757901424719*^9, 
+   3.717757911629273*^9}, {3.717758735795946*^9, 3.717758744170471*^9}, 
+   3.717758833032639*^9, {3.717760514215025*^9, 3.717760516951446*^9}, {
+   3.717762352627295*^9, 3.717762354304845*^9}, {3.7177623894930973`*^9, 
+   3.7177624103233*^9}, {3.717763409582844*^9, 3.717763482459618*^9}, {
+   3.7177637202773123`*^9, 3.7177637331559134`*^9}, {3.7177637702342587`*^9, 
+   3.717763770480865*^9}, {3.71776381291693*^9, 3.7177638242443666`*^9}, {
+   3.7177638648975153`*^9, 3.717763870185418*^9}, {3.7177639025947933`*^9, 
+   3.717763904881434*^9}, {3.7240679894171257`*^9, 3.724068117243245*^9}, {
+   3.727002715348076*^9, 3.7270027349734*^9}},
+ CellLabel->
+  "In[314]:=",ExpressionUUID->"8d0dd1e2-e736-49c5-83c5-315e177e4d78"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"SlyInner", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.00020905`", ",", "3.4951`*^11", ",", "6.214999999999999`*^29", ",", 
+       "1.177`", ",", "0.0099795`", ",", "1.6774`*^13", ",", "3.072`*^31", 
+       ",", "1.342`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00022059000000000003`", ",", "3.6883`*^11", ",", "6.4304`*^29", ",", 
+       "0.527`", ",", "0.012513000000000002`", ",", "2.1042`*^13", ",", 
+       "4.1574`*^31", ",", "1.332`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00023114`", ",", "3.865`*^11", ",", "6.5813`*^29", ",", "0.476`", 
+       ",", "0.016547`", ",", "2.7844000000000004`*^13", ",", 
+       "6.023399999999999`*^31", ",", "1.322`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00026426`", ",", "4.4199`*^11", ",", "6.9945`*^29", ",", "0.447`", 
+       ",", "0.021405`", ",", "3.6043`*^13", ",", "8.461299999999999`*^31", 
+       ",", "1.32`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00030533000000000003`", ",", "5.1079999999999994`*^11", ",", 
+       "7.4685`*^29", ",", "0.466`", ",", "0.024157`", ",", 
+       "4.068800000000001`*^13", ",", "9.928599999999999`*^31", ",", 
+       "1.325`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00035331`", ",", "5.9119`*^11", ",", "8.0149`*^29", ",", "0.504`", 
+       ",", "0.027894000000000002`", ",", "4.7001`*^13", ",", 
+       "1.2022999999999999`*^32", ",", "1.338`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00040763999999999997`", ",", "6.8224`*^11", ",", 
+       "8.644299999999999`*^29", ",", "0.554`", ",", "0.031941000000000004`", 
+       ",", "5.3843`*^13", ",", "1.4430000000000001`*^32", ",", "1.358`"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.000468`", ",", "7.8339`*^11", ",", "9.3667`*^29", ",", "0.61`", ",", 
+       "0.036264`", ",", "6.115300000000001`*^13", ",", "1.7175`*^32", ",", 
+       "1.387`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00053414`", ",", "8.9426`*^11", ",", "1.0190999999999999`*^30", ",", 
+       "0.668`", ",", "0.039888`", ",", "6.7284`*^13", ",", "1.9626`*^32", 
+       ",", "1.416`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00060594`", ",", "1.0146`*^12", ",", "1.1128`*^30", ",", "0.726`", 
+       ",", "0.044578`", ",", "7.5224`*^13", ",", "2.3024`*^32", ",", 
+       "1.458`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.00076608`", ",", "1.2831`*^12", ",", "1.337`*^30", ",", "0.84`", ",",
+        "0.048425`", ",", "8.1738`*^13", ",", "2.6018`*^32", ",", "1.496`"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0010471`", ",", "1.7543`*^12", ",", "1.7792`*^30", ",", "0.987`", 
+       ",", "0.052327000000000005`", ",", "8.835000000000002`*^13", ",", 
+       "2.9261000000000002`*^32", ",", "1.536`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0012616`", ",", "2.1141`*^12", ",", "2.1547000000000002`*^30", ",", 
+       "1.067`", ",", "0.056264`", ",", "9.5022`*^13", ",", "3.2756`*^32", 
+       ",", "1.576`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0016246000000000001`", ",", "2.7232`*^12", ",", 
+       "2.8565000000000003`*^30", ",", "1.16`", ",", "0.060218999999999995`", 
+       ",", "1.0173000000000002`*^14", ",", "3.6505000000000004`*^32", ",", 
+       "1.615`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0020384`", ",", "3.4178`*^12", ",", "3.7461000000000004`*^30", ",", 
+       "1.227`", ",", "0.064183`", ",", "1.0845`*^14", ",", 
+       "4.0509000000000005`*^32", ",", "1.65`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0026726000000000002`", ",", "4.4827`*^12", ",", "5.2679`*^30", ",", 
+       "1.286`", ",", "0.067163`", ",", "1.1351`*^14", ",", "4.3681`*^32", 
+       ",", "1.672`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0034064`", ",", "5.7153`*^12", ",", "7.230400000000001`*^30", ",", 
+       "1.322`", ",", "0.070154`", ",", "1.1859`*^14", ",", "4.6998`*^32", 
+       ",", "1.686`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0044746`", ",", "7.5106`*^12", ",", "1.0404999999999999`*^31", ",", 
+       "1.344`", ",", "0.073174`", ",", "1.2372`*^14", ",", "5.0462`*^32", 
+       ",", "1.685`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.005726`", ",", "9.6148`*^12", ",", "1.4513`*^31", ",", "1.353`", ",",
+        "0.075226`", ",", "1.272`*^14", ",", "5.2856`*^32", ",", "1.662`"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0074963`", ",", "1.2593`*^13", ",", "2.0894`*^31", ",", "1.351`", 
+       ",", "0.075959`", ",", "1.2845`*^14", ",", "5.3739`*^32", ",", 
+       "1.644`"}], "}"}]}], "}"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.717760787041917*^9, 3.717760879416108*^9}, {
+  3.71776142256112*^9, 3.717761428481743*^9}},
+ CellLabel->
+  "In[315]:=",ExpressionUUID->"1542b99a-38a7-4efc-a7dd-67f37e0b738f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"SlyLCore", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.0771`", ",", "1.3038`*^14", ",", "5.3739`*^32", ",", "2.159`", ",", 
+       "0.49`", ",", "8.850899999999999`*^14", ",", "1.0315`*^35", ",", 
+       "2.953`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.08`", ",", "1.3531`*^14", ",", "5.8259999999999996`*^32", ",", 
+       "2.217`", ",", "0.52`", ",", "9.4695`*^14", ",", "1.2289`*^35", ",", 
+       "2.943`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.085`", ",", "1.4381`*^14", ",", "6.6828`*^32", ",", "2.309`", ",", 
+       "0.55`", ",", "1.0102`*^15", ",", "1.4491`*^35", ",", "2.933`"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.09`", ",", "1.5232`*^14", ",", "7.6443`*^32", ",", "2.394`", ",", 
+       "0.58`", ",", "1.0748`*^15", ",", "1.693`*^35", ",", "2.924`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.1`", ",", "1.6935`*^14", ",", "9.9146`*^32", ",", "2.539`", ",", 
+       "0.61`", ",", "1.1408`*^15", ",", "1.9616`*^35", ",", "2.916`"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.11`", ",", "1.8641`*^14", ",", "1.2700999999999999`*^33", ",", 
+       "2.655`", ",", "0.64`", ",", "1.2085`*^15", ",", 
+       "2.2558999999999998`*^35", ",", "2.908`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.12`", ",", "2.035`*^14", ",", "1.6063`*^33", ",", "2.708`", ",", 
+       "0.67`", ",", "1.2777`*^15", ",", "2.5769`*^35", ",", "2.9`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.13`", ",", "2.2063`*^14", ",", "1.9971`*^33", ",", "2.746`", ",", 
+       "0.7`", ",", "1.3486`*^15", ",", "2.9255`*^35", ",", "2.893`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.16`", ",", "2.7223000000000003`*^14", ",", "3.5926999999999995`*^33",
+        ",", "2.905`", ",", "0.75`", ",", "1.4706`*^15", ",", "3.5702`*^35", 
+       ",", "2.881`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.19`", ",", "3.2424`*^14", ",", "5.9667`*^33", ",", "2.99`", ",", 
+       "0.8`", ",", "1.5977`*^15", ",", "4.2981`*^35", ",", "2.869`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.22`", ",", "3.7675`*^14", ",", "9.2766`*^33", ",", "3.025`", ",", 
+       "0.85`", ",", "1.7302`*^15", ",", "5.1128999999999996`*^35", ",", 
+       "2.858`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.25`", ",", "4.2983`*^14", ",", "1.3668`*^34", ",", "3.035`", ",", 
+       "0.9`", ",", "1.8683`*^15", ",", "6.0183`*^35", ",", "2.847`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.28`", ",", "4.8358`*^14", ",", "1.9276999999999999`*^34", ",", 
+       "3.032`", ",", "0.95`", ",", "2.0123000000000002`*^15", ",", 
+       "7.0176`*^35", ",", "2.836`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.31`", ",", "5.3808`*^14", ",", "2.6234999999999996`*^34", ",", 
+       "3.023`", ",", "1.`", ",", "2.1624`*^15", ",", 
+       "8.113899999999998`*^35", ",", "2.824`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.34`", ",", "5.934`*^14", ",", "3.467`*^34", ",", "3.012`", ",", 
+       "1.1`", ",", "2.482`*^15", ",", "1.0609`*^36", ",", "2.801`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.37`", ",", "6.4963`*^14", ",", "4.4702`*^34", ",", "2.999`", ",", 
+       "1.2`", ",", "2.8289`*^15", ",", "1.3524`*^36", ",", "2.778`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.4`", ",", "7.0684`*^14", ",", "5.6451`*^34", ",", "2.987`", ",", 
+       "1.3`", ",", "3.2048`*^15", ",", "1.6876`*^36", ",", "2.754`"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.43`", ",", "7.651`*^14", ",", "7.0033`*^34", ",", "2.975`", ",", 
+       "1.4`", ",", "3.6113`*^15", ",", "2.0678999999999998`*^36", ",", 
+       "2.731`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.46`", ",", "8.244999999999999`*^14", ",", "8.5561`*^34", ",", 
+       "2.964`", ",", "1.5`", ",", "4.0498000000000005`*^15", ",", 
+       "2.4947`*^36", ",", "2.708`"}], "}"}]}], "}"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.7177610490609503`*^9, 3.71776108216689*^9}},
+ CellLabel->
+  "In[316]:=",ExpressionUUID->"3bdf7311-6a93-42b9-806f-fc1fb7d2dbc8"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"SlyLCoreAll", "=", 
+   RowBox[{
+    RowBox[{"Join", "[", 
+     RowBox[{
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"SlyLCore", ",", 
+        RowBox[{"{", 
+         RowBox[{"2", ",", "3"}], "}"}]}], "]"}], ",", 
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"SlyLCore", ",", 
+        RowBox[{"{", 
+         RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"zz_", ",", "yy_"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", "zz"}], "]"}], ",", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", "yy"}], "]"}]}], "}"}]}]}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.717761497272765*^9, 3.71776153184719*^9}, {
+  3.717761588368452*^9, 3.7177615938630753`*^9}},
+ CellLabel->
+  "In[317]:=",ExpressionUUID->"c79d9e93-4c26-45bb-93fc-bae5d0655d34"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"SlyInnerAll", "=", 
+   RowBox[{
+    RowBox[{"Join", "[", 
+     RowBox[{
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"SlyInner", ",", 
+        RowBox[{"{", 
+         RowBox[{"2", ",", "3"}], "}"}]}], "]"}], ",", 
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"SlyInner", ",", 
+        RowBox[{"{", 
+         RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"zz_", ",", "yy_"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", "zz"}], "]"}], ",", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", "yy"}], "]"}]}], "}"}]}]}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.717761497272765*^9, 3.7177615583064537`*^9}, {
+  3.7177615896002007`*^9, 3.7177615919818087`*^9}},
+ CellLabel->
+  "In[318]:=",ExpressionUUID->"6ec71da7-0574-492c-a70f-a8c94c288a31"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSFitsPars", "[", 
+   RowBox[{"model_", ",", 
+    RowBox[{"verbose_:", "False"}]}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", "eostable", "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"eostable", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<PAL6\>\"", ",", "34.38`", ",", "2.227`", ",", "2.189`", ",", 
+          "2.159`", ",", "0.0011`", ",", "0.693`", ",", "1.37`", ",", 
+          "1.477`", ",", 
+          RowBox[{"-", "0.47`"}], ",", "0.374`", ",", 
+          RowBox[{"-", "0.51`"}], ",", "1660", ",", 
+          RowBox[{"-", "0.97`"}], ",", "1.051`", ",", 
+          RowBox[{"-", "2.03`"}], ",", "10.547`", ",", 
+          RowBox[{"-", "0.54`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<SLy\>\"", ",", "34.384`", ",", "3.005`", ",", "2.988`", ",", 
+          "2.851`", ",", "0.002`", ",", "0.989`", ",", "1.41`", ",", "2.049`",
+           ",", "0.02`", ",", "0.592`", ",", "0.81`", ",", "1810", ",", 
+          "0.1`", ",", "1.288`", ",", 
+          RowBox[{"-", "0.08`"}], ",", "11.736`", ",", 
+          RowBox[{"-", "0.21`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<APR1\>\"", ",", "33.943`", ",", "2.442`", ",", "3.256`", ",", 
+          "2.908`", ",", "0.019`", ",", "0.924`", ",", "9.94`", ",", "1.683`",
+           ",", 
+          RowBox[{"-", "1.6`"}], ",", "0.581`", ",", "2.79`", ",", "2240", 
+          ",", "1.05`", ",", "0.908`", ",", 
+          RowBox[{"-", "2.57`"}], ",", "9.361`", ",", 
+          RowBox[{"-", "1.85`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<APR2\>\"", ",", "34.126`", ",", "2.643`", ",", "3.014`", ",", 
+          "2.945`", ",", "0.0089`", ",", "1.032`", ",", "0.42`", ",", 
+          "1.808`", ",", 
+          RowBox[{"-", "1.5`"}], ",", "0.605`", ",", "0.33`", ",", "2110", 
+          ",", 
+          RowBox[{"-", "0.02`"}], ",", "1.024`", ",", 
+          RowBox[{"-", "2.34`"}], ",", "10.179`", ",", 
+          RowBox[{"-", "1.57`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<APR3\>\"", ",", "34.392`", ",", "3.166`", ",", "3.573`", ",", 
+          "3.281`", ",", "0.0091`", ",", "1.134`", ",", "2.72`", ",", "2.39`",
+           ",", 
+          RowBox[{"-", "1.`"}], ",", "0.704`", ",", "0.57`", ",", "1810", ",", 
+          RowBox[{"-", "0.14`"}], ",", "1.375`", ",", 
+          RowBox[{"-", "1.59`"}], ",", "12.094`", ",", 
+          RowBox[{"-", "0.96`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<APR4\>\"", ",", "34.269`", ",", "2.83`", ",", "3.445`", ",", 
+          "3.348`", ",", "0.0068`", ",", "1.16`", ",", "1.45`", ",", "2.213`",
+           ",", 
+          RowBox[{"-", "1.08`"}], ",", "0.696`", ",", "0.22`", ",", "1940", 
+          ",", "0.05`", ",", "1.243`", ",", 
+          RowBox[{"-", "1.36`"}], ",", "11.428`", ",", 
+          RowBox[{"-", "0.9`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<FPS\>\"", ",", "34.283`", ",", "2.985`", ",", "2.863`", ",", 
+          "2.6`", ",", "0.005`", ",", "0.883`", ",", "2.29`", ",", "1.799`", 
+          ",", 
+          RowBox[{"-", "0.03`"}], ",", "0.53`", ",", "0.67`", ",", "1880", 
+          ",", "0.11`", ",", "1.137`", ",", "0.03`", ",", "10.85`", ",", 
+          "0.12`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<WFF1\>\"", ",", "34.031`", ",", "2.519`", ",", "3.791`", ",", 
+          "3.66`", ",", "0.018`", ",", "1.185`", ",", "7.86`", ",", "2.133`", 
+          ",", 
+          RowBox[{"-", "0.29`"}], ",", "0.739`", ",", "2.21`", ",", "2040", 
+          ",", "0.3`", ",", "1.085`", ",", "0.1`", ",", "10.414`", ",", 
+          "0.02`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<WFF2\>\"", ",", "34.233`", ",", "2.888`", ",", "3.475`", ",", 
+          "3.517`", ",", "0.017`", ",", "1.139`", ",", "7.93`", ",", "2.198`",
+           ",", 
+          RowBox[{"-", "0.14`"}], ",", "0.717`", ",", "0.71`", ",", "1990", 
+          ",", "0.03`", ",", "1.204`", ",", 
+          RowBox[{"-", "0.59`"}], ",", "11.159`", ",", 
+          RowBox[{"-", "0.28`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<WFF3\>\"", ",", "34.283`", ",", "3.329`", ",", "2.952`", ",", 
+          "2.589`", ",", "0.017`", ",", "0.835`", ",", "8.11`", ",", "1.844`",
+           ",", 
+          RowBox[{"-", "0.48`"}], ",", "0.53`", ",", "2.26`", ",", "1860", 
+          ",", "0.59`", ",", "1.16`", ",", 
+          RowBox[{"-", "0.25`"}], ",", "10.926`", ",", 
+          RowBox[{"-", "0.12`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<BBB2\>\"", ",", "34.331`", ",", "3.418`", ",", "2.835`", ",", 
+          "2.832`", ",", "0.0055`", ",", "0.914`", ",", "7.75`", ",", 
+          "1.918`", ",", "0.1`", ",", "0.574`", ",", "0.97`", ",", "1900", 
+          ",", "0.47`", ",", "1.188`", ",", "0.17`", ",", "11.139`", ",", 
+          RowBox[{"-", "0.29`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<BPAL12\>\"", ",", "34.358`", ",", "2.209`", ",", "2.201`", ",", 
+          "2.176`", ",", "0.001`", ",", "0.708`", ",", "1.03`", ",", "1.452`",
+           ",", 
+          RowBox[{"-", "0.18`"}], ",", "0.382`", ",", 
+          RowBox[{"-", "0.29`"}], ",", "1700", ",", 
+          RowBox[{"-", "1.03`"}], ",", "0.974`", ",", "0.2`", ",", "10.024`", 
+          ",", "0.67`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<ENG\>\"", ",", "34.437`", ",", "3.514`", ",", "3.13`", ",", 
+          "3.168`", ",", "0.015`", ",", "1.`", ",", "10.71`", ",", "2.24`", 
+          ",", 
+          RowBox[{"-", "0.05`"}], ",", "0.654`", ",", "0.39`", ",", "1820", 
+          ",", 
+          RowBox[{"-", "0.44`"}], ",", "1.372`", ",", 
+          RowBox[{"-", "0.97`"}], ",", "12.059`", ",", 
+          RowBox[{"-", "0.69`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<MPA1\>\"", ",", "34.495`", ",", "3.446`", ",", "3.572`", ",", 
+          "2.887`", ",", "0.0081`", ",", "0.994`", ",", "4.91`", ",", 
+          "2.461`", ",", 
+          RowBox[{"-", "0.16`"}], ",", "0.67`", ",", 
+          RowBox[{"-", "0.05`"}], ",", "1700", ",", 
+          RowBox[{"-", "0.18`"}], ",", "1.455`", ",", 
+          RowBox[{"-", "0.41`"}], ",", "12.473`", ",", 
+          RowBox[{"-", "0.26`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<MS1\>\"", ",", "34.858`", ",", "3.224`", ",", "3.033`", ",", 
+          "1.325`", ",", "0.019`", ",", "0.888`", ",", "12.44`", ",", 
+          "2.767`", ",", 
+          RowBox[{"-", "0.54`"}], ",", "0.606`", ",", 
+          RowBox[{"-", "0.52`"}], ",", "1400", ",", "1.67`", ",", "1.944`", 
+          ",", 
+          RowBox[{"-", "0.09`"}], ",", "14.918`", ",", "0.06`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<MS2\>\"", ",", "34.605`", ",", "2.447`", ",", "2.184`", ",", 
+          "1.855`", ",", "0.003`", ",", "0.582`", ",", "3.96`", ",", "1.806`",
+           ",", 
+          RowBox[{"-", "0.42`"}], ",", "0.343`", ",", "2.57`", ",", "1250", 
+          ",", "2.25`", ",", "1.658`", ",", "0.46`", ",", "14.464`", ",", 
+          RowBox[{"-", "2.69`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<MS1b\>\"", ",", "34.855`", ",", "3.456`", ",", "3.011`", ",", 
+          "1.425`", ",", "0.015`", ",", "0.889`", ",", "11.38`", ",", 
+          "2.776`", ",", 
+          RowBox[{"-", "1.03`"}], ",", "0.614`", ",", 
+          RowBox[{"-", "0.56`"}], ",", "1420", ",", "1.38`", ",", "1.888`", 
+          ",", 
+          RowBox[{"-", "0.64`"}], ",", "14.583`", ",", 
+          RowBox[{"-", "0.32`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<PS\>\"", ",", "34.671`", ",", "2.216`", ",", "1.64`", ",", 
+          "2.365`", ",", "0.028`", ",", "0.691`", ",", "7.36`", ",", "1.755`",
+           ",", 
+          RowBox[{"-", "1.53`"}], ",", "0.355`", ",", 
+          RowBox[{"-", "1.45`"}], ",", "1300", ",", 
+          RowBox[{"-", "2.39`"}], ",", "2.067`", ",", 
+          RowBox[{"-", "3.06`"}], ",", "15.472`", ",", "3.72`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<GS1\>\"", ",", "34.504`", ",", "2.35`", ",", "1.267`", ",", 
+          "2.421`", ",", "0.018`", ",", "0.695`", ",", "0.49`", ",", "1.382`",
+           ",", 
+          RowBox[{"-", "1.`"}], ",", "0.395`", ",", 
+          RowBox[{"-", "0.64`"}], ",", "1660", ",", "9.05`", ",", "0.766`", 
+          ",", 
+          RowBox[{"-", "3.13`"}], ",", "Null"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<GS2\>\"", ",", "34.642`", ",", "2.519`", ",", "1.571`", ",", 
+          "2.314`", ",", "0.026`", ",", "0.592`", ",", "16.1`", ",", "1.653`",
+           ",", 
+          RowBox[{"-", "0.3`"}], ",", "0.339`", ",", "7.71`", ",", "1340", 
+          ",", "3.77`", ",", "1.795`", ",", 
+          RowBox[{"-", "3.33`"}], ",", "14.299`", ",", "0.07`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<BGN1H1\>\"", ",", "34.623`", ",", "3.258`", ",", "1.472`", ",", 
+          "2.464`", ",", "0.029`", ",", "0.878`", ",", 
+          RowBox[{"-", "7.42`"}], ",", "1.628`", ",", "0.39`", ",", "0.437`", 
+          ",", 
+          RowBox[{"-", "3.55`"}], ",", "1670", ",", 
+          RowBox[{"-", "2.08`"}], ",", "1.504`", ",", "0.56`", ",", "12.901`",
+           ",", 
+          RowBox[{"-", "1.96`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<GNH3\>\"", ",", "34.648`", ",", "2.664`", ",", "2.194`", ",", 
+          "2.304`", ",", "0.0045`", ",", "0.75`", ",", "2.04`", ",", "1.962`",
+           ",", "0.13`", ",", "0.427`", ",", "0.37`", ",", "1410", ",", 
+          RowBox[{"-", "0.04`"}], ",", "1.713`", ",", "0.38`", ",", "14.203`",
+           ",", 
+          RowBox[{"-", "0.28`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H1\>\"", ",", "34.564`", ",", "2.595`", ",", "1.845`", ",", 
+          "1.897`", ",", "0.0019`", ",", "0.561`", ",", "2.81`", ",", 
+          "1.555`", ",", 
+          RowBox[{"-", "0.92`"}], ",", "0.311`", ",", 
+          RowBox[{"-", "1.47`"}], ",", "1320", ",", 
+          RowBox[{"-", "1.46`"}], ",", "1.488`", ",", 
+          RowBox[{"-", "1.45`"}], ",", "12.861`", ",", 
+          RowBox[{"-", "0.03`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H2\>\"", ",", "34.617`", ",", "2.775`", ",", "1.855`", ",", 
+          "1.858`", ",", "0.0028`", ",", "0.565`", ",", "1.38`", ",", 
+          "1.666`", ",", 
+          RowBox[{"-", "0.77`"}], ",", "0.322`", ",", 
+          RowBox[{"-", "0.55`"}], ",", "1280", ",", 
+          RowBox[{"-", "1.29`"}], ",", "1.623`", ",", 
+          RowBox[{"-", "0.82`"}], ",", "13.479`", ",", "0.29`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H3\>\"", ",", "34.646`", ",", "2.787`", ",", "1.951`", ",", 
+          "1.901`", ",", "0.007`", ",", "0.564`", ",", "7.05`", ",", "1.788`",
+           ",", 
+          RowBox[{"-", "0.79`"}], ",", "0.343`", ",", "1.07`", ",", "1290", 
+          ",", 
+          RowBox[{"-", "0.88`"}], ",", "1.702`", ",", 
+          RowBox[{"-", "1.18`"}], ",", "13.84`", ",", "0.31`"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H4\>\"", ",", "34.669`", ",", "2.909`", ",", "2.246`", ",", 
+          "2.144`", ",", "0.0028`", ",", "0.685`", ",", "4.52`", ",", 
+          "2.032`", ",", 
+          RowBox[{"-", "0.85`"}], ",", "0.428`", ",", 
+          RowBox[{"-", "1.01`"}], ",", "1400", ",", 
+          RowBox[{"-", "1.28`"}], ",", "1.729`", ",", 
+          RowBox[{"-", "1.18`"}], ",", "13.774`", ",", "1.34`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H5\>\"", ",", "34.609`", ",", "2.793`", ",", "1.974`", ",", 
+          "1.915`", ",", "0.005`", ",", "0.596`", ",", "1.65`", ",", "1.727`",
+           ",", 
+          RowBox[{"-", "1.`"}], ",", "0.347`", ",", 
+          RowBox[{"-", "0.82`"}], ",", "1340", ",", 
+          RowBox[{"-", "1.55`"}], ",", "1.615`", ",", 
+          RowBox[{"-", "1.31`"}], ",", "13.348`", ",", "0.68`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H6\>\"", ",", "34.593`", ",", "2.637`", ",", "2.121`", ",", 
+          "2.064`", ",", "0.0087`", ",", "0.598`", ",", "11.71`", ",", 
+          "1.778`", ",", "0.07`", ",", "0.346`", ",", "8.65`", ",", "1310", 
+          ",", "5.33`", ",", "1.623`", ",", 
+          RowBox[{"-", "2.19`"}], ",", "13.463`", ",", "0.37`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<H7\>\"", ",", "34.559`", ",", "2.621`", ",", "2.048`", ",", 
+          "2.006`", ",", "0.0046`", ",", "0.63`", ",", "1.82`", ",", "1.683`",
+           ",", 
+          RowBox[{"-", "1.12`"}], ",", "0.357`", ",", 
+          RowBox[{"-", "0.57`"}], ",", "1410", ",", 
+          RowBox[{"-", "1.52`"}], ",", "1.527`", ",", 
+          RowBox[{"-", "2.33`"}], ",", "12.992`", ",", "0.23`"}], "}"}], ",", 
+        
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<PCL2\>\"", ",", "34.507`", ",", "2.554`", ",", "1.88`", ",", 
+          "1.977`", ",", "0.0069`", ",", "0.6`", ",", "1.74`", ",", "1.482`", 
+          ",", 
+          RowBox[{"-", "0.79`"}], ",", "0.326`", ",", 
+          RowBox[{"-", "2.25`"}], ",", "1440", ",", 
+          RowBox[{"-", "1.87`"}], ",", "1.291`", ",", 
+          RowBox[{"-", "3.27`"}], ",", "11.761`", ",", 
+          RowBox[{"-", "1.15`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<ALF1\>\"", ",", "34.055`", ",", "2.013`", ",", "3.389`", ",", 
+          "2.033`", ",", "0.04`", ",", "0.565`", ",", "18.59`", ",", "1.495`",
+           ",", 
+          RowBox[{"-", "0.53`"}], ",", "0.386`", ",", "3.52`", ",", "1730", 
+          ",", "2.44`", ",", "0.987`", ",", 
+          RowBox[{"-", "0.4`"}], ",", "9.896`", ",", 
+          RowBox[{"-", "0.22`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<ALF2\>\"", ",", "34.616`", ",", "4.07`", ",", "2.411`", ",", 
+          "1.89`", ",", "0.043`", ",", "0.642`", ",", "1.5`", ",", "2.086`", 
+          ",", 
+          RowBox[{"-", "5.26`"}], ",", "0.436`", ",", 
+          RowBox[{"-", "0.62`"}], ",", "1440", ",", "1.01`", ",", "1.638`", 
+          ",", 
+          RowBox[{"-", "6.94`"}], ",", "13.188`", ",", 
+          RowBox[{"-", "3.66`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<ALF3\>\"", ",", "34.283`", ",", "2.883`", ",", "2.653`", ",", 
+          "1.952`", ",", "0.017`", ",", "0.565`", ",", "11.29`", ",", 
+          "1.473`", ",", 
+          RowBox[{"-", "0.06`"}], ",", "0.358`", ",", "2.46`", ",", "1620", 
+          ",", "1.79`", ",", "1.041`", ",", "0.76`", ",", "10.314`", ",", 
+          RowBox[{"-", "0.25`"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\"\<ALF4\>\"", ",", "34.314`", ",", "3.009`", ",", "3.438`", ",", 
+          "1.803`", ",", "0.023`", ",", "0.685`", ",", "14.78`", ",", 
+          "1.943`", ",", 
+          RowBox[{"-", "0.93`"}], ",", "0.454`", ",", "0.59`", ",", "1590", 
+          ",", "0.52`", ",", "1.297`", ",", 
+          RowBox[{"-", "2.38`"}], ",", "11.667`", ",", 
+          RowBox[{"-", "1.2`"}]}], "}"}]}], "}"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{"eostable", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+       RowBox[{"Flatten", "@", 
+        RowBox[{"Select", "[", 
+         RowBox[{"eostable", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"#", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "model"}], "&"}]}], 
+         "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.7270003623435583`*^9, 3.727000375021758*^9}, {
+  3.72700130989832*^9, 3.7270013883835287`*^9}, {3.727001496580738*^9, 
+  3.7270014973363028`*^9}, {3.727001669015664*^9, 3.7270016705584583`*^9}, {
+  3.727003085015476*^9, 3.72700314107194*^9}, {3.727003197119124*^9, 
+  3.727003208717188*^9}, {3.727003241765259*^9, 3.727003248524081*^9}, {
+  3.727073009833282*^9, 3.727073029534666*^9}, {3.738227016100469*^9, 
+  3.738227026836084*^9}},
+ CellLabel->
+  "In[319]:=",ExpressionUUID->"94aaf09f-e66c-408a-9c44-b910ab5d14a5"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"EoSSlyCrust", "[", "\[Rho]_", "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "pol1", ",", "pol2", ",", "pol3", ",", "pol4", ",", "\[Rho]l1", ",", 
+       "\[Rho]l2", ",", "\[Rho]l3", ",", "k1", ",", "k2", ",", "k3", ",", 
+       "k4", ",", "\[CapitalGamma]1", ",", "\[CapitalGamma]2", ",", 
+       "\[CapitalGamma]3", ",", "\[CapitalGamma]4", ",", "c"}], "}"}], ",", 
+     "\n", "\n", 
+     RowBox[{
+      RowBox[{"c", "=", 
+       RowBox[{"2.99792458", " ", 
+        RowBox[{"10", "^", "10"}]}]}], ";", "\n", 
+      RowBox[{"\[Rho]l1", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"2.44034", " ", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", "07", ")"}]}]}]}], "]"}]}], ";", "\n", 
+      RowBox[{"\[Rho]l2", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"3.78358", " ", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", "11", ")"}]}]}]}], "]"}]}], ";", "\n", 
+      RowBox[{"\[Rho]l3", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"2.62780", " ", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", "12", ")"}]}]}]}], "]"}]}], ";", "\n", "\n", 
+      RowBox[{"k1", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"6.80110", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "9"}], ")"}]}]}], ")"}], "*", 
+          RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+      RowBox[{"k2", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"1.06186", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "6"}], ")"}]}]}], ")"}], "*", 
+          RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+      RowBox[{"k3", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"5.32697", " ", "10"}], ")"}], "*", 
+          RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+      RowBox[{"k4", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"3.99874", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "8"}], ")"}]}]}], ")"}], "*", 
+          RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", "\n", 
+      RowBox[{"\[CapitalGamma]1", "=", "1.58425"}], ";", "\n", 
+      RowBox[{"\[CapitalGamma]2", "=", "1.28733"}], ";", "\n", 
+      RowBox[{"\[CapitalGamma]3", "=", "0.62223"}], ";", "\n", 
+      RowBox[{"\[CapitalGamma]4", "=", "1.35692"}], ";", "\n", "\n", 
+      RowBox[{"pol1", "=", 
+       RowBox[{"k1", "+", " ", 
+        RowBox[{"\[CapitalGamma]1", " ", "\[Rho]"}]}]}], ";", "\n", 
+      RowBox[{"pol2", "=", 
+       RowBox[{"k2", "+", " ", 
+        RowBox[{"\[CapitalGamma]2", " ", "\[Rho]"}]}]}], ";", "\n", 
+      RowBox[{"pol3", "=", 
+       RowBox[{"k3", "+", " ", 
+        RowBox[{"\[CapitalGamma]3", " ", "\[Rho]"}]}]}], ";", "\n", 
+      RowBox[{"pol4", "=", 
+       RowBox[{"k4", "+", " ", 
+        RowBox[{"\[CapitalGamma]4", " ", "\[Rho]"}]}]}], ";", "\n", "\n", 
+      RowBox[{"Piecewise", "[", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"pol1", ",", 
+           RowBox[{"\[Rho]", "\[LessEqual]", "\[Rho]l1"}]}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pol2", ",", 
+           RowBox[{"\[Rho]l1", "<", "\[Rho]", "\[LessEqual]", "\[Rho]l2"}]}], 
+          "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pol3", ",", 
+           RowBox[{"\[Rho]l2", "<", "\[Rho]", "\[LessEqual]", "\[Rho]l3"}]}], 
+          "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"pol4", ",", 
+           RowBox[{"\[Rho]", ">", "\[Rho]l3"}]}], "}"}]}], "}"}], "]"}]}]}], 
+    "\n", "\n", "]"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.731222482430871*^9, 3.731222515017756*^9}, {
+   3.7312227756283913`*^9, 3.731222989687776*^9}, {3.731223259430863*^9, 
+   3.731223270280017*^9}, {3.7312233068452053`*^9, 3.731223324171681*^9}, 
+   3.7312234681106052`*^9, {3.731223533010606*^9, 3.7312236711982594`*^9}, {
+   3.731223720934964*^9, 3.731223755990274*^9}, {3.731223912972632*^9, 
+   3.731223944572007*^9}, {3.7312239973686533`*^9, 3.731224000823002*^9}, {
+   3.731224175676585*^9, 3.731224198426861*^9}, {3.731224258566051*^9, 
+   3.731224297505787*^9}, 3.731224329086371*^9, {3.7312297684121037`*^9, 
+   3.731229926543757*^9}, {3.731230275229718*^9, 3.7312303037305307`*^9}, {
+   3.7312303743552933`*^9, 3.7312303752354183`*^9}, {3.7312304116889753`*^9, 
+   3.731230413217012*^9}, {3.731230711031252*^9, 3.731230762709496*^9}, {
+   3.7312308844890547`*^9, 3.731230891079521*^9}, {3.733815890507553*^9, 
+   3.7338159005474577`*^9}, {3.7338160001695004`*^9, 3.733816002608041*^9}, 
+   3.733816132851262*^9, {3.751961630623782*^9, 3.7519616312365837`*^9}, {
+   3.7519696174030323`*^9, 3.751969648311232*^9}, 3.751972354653983*^9},
+ CellLabel->
+  "In[320]:=",ExpressionUUID->"3f1e4a76-6936-4740-8096-cea6b4942aee"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSPol", "[", 
+   RowBox[{"model_:", "\"\<PolR\>\""}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "k", ",", "\[CapitalGamma]", ",", "pol", ",", "Global`\[Rho]", ",", "c", 
+      ",", "pol1", ",", "pol2", ",", "k2"}], "}"}], ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"ListQ", "[", "model", "]"}], ",", 
+       RowBox[{
+        RowBox[{"k", "=", 
+         RowBox[{"Log10", "[", 
+          RowBox[{"model", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", 
+        RowBox[{"\[CapitalGamma]", "=", 
+         RowBox[{"model", "[", 
+          RowBox[{"[", "2", "]"}], "]"}]}], ";", 
+        RowBox[{"pol", "=", 
+         RowBox[{"k", "+", " ", 
+          RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}]}], ",", "\n", 
+       "\n", 
+       RowBox[{
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{"model", "\[Equal]", "\"\<PolNR\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", 
+              RowBox[{"(", "3.3", ")"}]}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", "2"}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}], ";"}], 
+          ",", "\n", "\t  ", 
+          RowBox[{"model", "\[Equal]", "\"\<PolR\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", 
+              RowBox[{"(", 
+               RowBox[{"1.98183", "\[Times]", 
+                RowBox[{"10", "^", 
+                 RowBox[{"-", "6"}]}]}], ")"}]}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", "2.75"}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}], ";"}], 
+          ",", "\n", "\t  ", 
+          RowBox[{"model", "\[Equal]", "\"\<PolMS\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", "3.849119840037`*^14"}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", 
+            RowBox[{"4", "/", "3"}]}], ";", " ", 
+           RowBox[{"pol", "=", " ", 
+            RowBox[{"k", " ", "+", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}], ";"}], 
+          ",", "\n", "\t  ", 
+          RowBox[{"model", "\[Equal]", "\"\<PolMSMix\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", "3.849119840037`*^14"}], "]"}]}], ";", " ", 
+           RowBox[{"pol1", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{
+              RowBox[{"4", "/", "3"}], " ", "Global`\[Rho]"}]}]}], ";", 
+           RowBox[{"k2", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", "1.2392481667219052`*^15"}], "]"}]}], ";", 
+           RowBox[{"pol2", "=", " ", 
+            RowBox[{"k2", "+", " ", 
+             RowBox[{
+              RowBox[{"5", "/", "3"}], " ", "Global`\[Rho]"}]}]}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"Piecewise", "[", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"{", 
+                RowBox[{"pol1", ",", 
+                 RowBox[{"Global`\[Rho]", ">", 
+                  RowBox[{"Log10", "[", "0.029964", "]"}]}]}], "}"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"pol2", ",", 
+                 RowBox[{"Global`\[Rho]", "\[LessEqual]", 
+                  RowBox[{"Log10", "[", "0.029964", "]"}]}]}], "}"}]}], "}"}],
+              "]"}]}], ";"}], ",", "\n", "\t  ", "True", ",", 
+          RowBox[{"Return", "[", "]"}]}], "]"}], ";"}]}], "\n", "\t  ", "]"}],
+      ";", "\n", "pol"}]}], "\t  ", "\n", "]"}]}]], "Code",
+ CellChangeTimes->{{3.7569590421449347`*^9, 3.756959056759836*^9}, {
+   3.7569590939563847`*^9, 3.756959196661928*^9}, {3.756959244806036*^9, 
+   3.756959258534059*^9}, {3.756959298484774*^9, 3.756959400835812*^9}, {
+   3.756959436577495*^9, 3.756959471861858*^9}, {3.756960126468206*^9, 
+   3.756960189060364*^9}, {3.756960779119398*^9, 3.756960801993754*^9}, {
+   3.756961437681965*^9, 3.756961442554385*^9}, {3.7569630760315847`*^9, 
+   3.756963088461892*^9}, {3.757042602883998*^9, 3.757042620520862*^9}, 
+   3.757042854373377*^9, 3.75704300932376*^9, {3.757043162012258*^9, 
+   3.757043172801984*^9}, 3.757043240815583*^9, {3.761321287070737*^9, 
+   3.761321367032235*^9}, 3.761321612609375*^9, {3.761321868843401*^9, 
+   3.761321877425599*^9}, 3.7613220284672403`*^9, 3.761322246695215*^9, {
+   3.761322399284906*^9, 3.761322494378705*^9}, 3.761322538237445*^9, {
+   3.761322570236898*^9, 3.761322692523314*^9}, {3.7613228605379133`*^9, 
+   3.76132286516712*^9}, {3.761323297136744*^9, 3.761323340296085*^9}, {
+   3.761323473047052*^9, 3.761323473548015*^9}, 3.761323629821877*^9, {
+   3.7613793023474617`*^9, 3.761379303014505*^9}, 3.7613866771506243`*^9, 
+   3.761386719867794*^9, 3.76138689335102*^9, {3.761388715769421*^9, 
+   3.761388765345047*^9}, 3.761388817367548*^9, {3.7613897867807198`*^9, 
+   3.7613898130447283`*^9}, 3.7613902833751287`*^9, 3.76139039280529*^9, {
+   3.761390445288949*^9, 3.76139045814264*^9}, {3.7613905622049294`*^9, 
+   3.7613905770641413`*^9}, {3.761724667495555*^9, 3.761724769655336*^9}, {
+   3.761724923281592*^9, 3.761724981940386*^9}, {3.761725015560029*^9, 
+   3.761725020988454*^9}},
+ CellLabel->
+  "In[321]:=",ExpressionUUID->"8dd4f842-5fdd-4a04-82ab-4547468b75ba"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"EoSPol\[Epsilon]", "[", 
+   RowBox[{"model_:", "\"\<PolR\>\""}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "k", ",", "\[CapitalGamma]", ",", "pol", ",", "Global`\[Rho]", ",", "c", 
+      ",", "pol1", ",", "pol2", ",", "k2"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"c", "=", 
+      RowBox[{"2.99792458", " ", 
+       RowBox[{"10", "^", "10"}]}]}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"ListQ", "[", "model", "]"}], ",", 
+       RowBox[{
+        RowBox[{"k", "=", 
+         RowBox[{"Log10", "[", 
+          RowBox[{"model", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", 
+        RowBox[{"\[CapitalGamma]", "=", 
+         RowBox[{"model", "[", 
+          RowBox[{"[", "2", "]"}], "]"}]}], ";", 
+        RowBox[{"pol", "=", 
+         RowBox[{"k", "+", " ", 
+          RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}]}], ",", "\n", 
+       "\n", 
+       RowBox[{
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{"model", "\[Equal]", "\"\<PolNR\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", 
+              RowBox[{"(", "3.3", ")"}]}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", "2"}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}]}], ",", 
+          "\n", "\t  ", 
+          RowBox[{"model", "\[Equal]", "\"\<PolR\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", 
+              RowBox[{"(", 
+               RowBox[{"1.98183", "\[Times]", 
+                RowBox[{"10", "^", 
+                 RowBox[{"-", "6"}]}]}], ")"}]}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", "2.75"}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}]}], ",", 
+          "\n", "\t  ", 
+          RowBox[{"model", "\[Equal]", "\"\<PolMS\>\""}], ",", 
+          RowBox[{
+           RowBox[{"k", "=", 
+            RowBox[{"Log", "[", 
+             RowBox[{"10", ",", "3.849119840037`*^14"}], "]"}]}], ";", 
+           RowBox[{"\[CapitalGamma]", "=", 
+            RowBox[{"4", "/", "3"}]}], ";", " ", 
+           RowBox[{"pol", "=", 
+            RowBox[{"k", "+", " ", 
+             RowBox[{"\[CapitalGamma]", " ", "Global`\[Rho]"}]}]}], ";"}]}], 
+         "]"}], ";"}]}], "\n", "\t  ", "]"}], ";", "\n", 
+     RowBox[{"Global`\[Rho]", " ", "+", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"10", "^", "k"}], "/", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"c", "^", "2"}], 
+          RowBox[{"(", 
+           RowBox[{"\[CapitalGamma]", "-", "1"}], ")"}]}], ")"}]}], 
+       RowBox[{"Global`\[Rho]", "^", 
+        RowBox[{"(", "\[CapitalGamma]", ")"}]}]}]}]}]}], "\n", 
+   "]"}]}]], "Code",
+ CellChangeTimes->{{3.7569590421449347`*^9, 3.756959056759836*^9}, {
+   3.7569590939563847`*^9, 3.756959196661928*^9}, {3.756959244806036*^9, 
+   3.756959258534059*^9}, {3.756959298484774*^9, 3.756959400835812*^9}, {
+   3.756959436577495*^9, 3.756959471861858*^9}, {3.756960126468206*^9, 
+   3.756960189060364*^9}, {3.756960779119398*^9, 3.7569608398237886`*^9}, {
+   3.7569608774208193`*^9, 3.7569609053208*^9}, {3.756960972934886*^9, 
+   3.7569609882913103`*^9}, {3.756961419639895*^9, 3.756961432806065*^9}, {
+   3.756962293207109*^9, 3.756962296830258*^9}, {3.756962481270506*^9, 
+   3.756962481821725*^9}, {3.756963091706534*^9, 3.7569631020133266`*^9}, 
+   3.757042635136732*^9, 3.757042876622821*^9, {3.7570429962673693`*^9, 
+   3.757043001299357*^9}, 3.757043175354354*^9, {3.757043231429183*^9, 
+   3.757043234616881*^9}, {3.761321778308692*^9, 3.761321818127928*^9}, {
+   3.761321866130287*^9, 3.761321880442601*^9}, {3.761321926377698*^9, 
+   3.761321929541605*^9}, {3.761322092371698*^9, 3.761322095926509*^9}, {
+   3.761322248883423*^9, 3.761322250667335*^9}, {3.761376630965852*^9, 
+   3.761376631448855*^9}, 3.761386673698472*^9, {3.761386712565918*^9, 
+   3.7613867154141893`*^9}, 3.761386891346058*^9, 3.761387385480556*^9, {
+   3.761388475067836*^9, 3.761388670572237*^9}, {3.7613887685949593`*^9, 
+   3.7613887724339657`*^9}, 3.76138881929385*^9, {3.761388902198596*^9, 
+   3.761388906752117*^9}, {3.7613897429238358`*^9, 3.761389765585903*^9}, {
+   3.761389805661398*^9, 3.761389815185001*^9}, 3.761390276950077*^9, {
+   3.761390455479744*^9, 3.761390456804483*^9}, {3.761390557399411*^9, 
+   3.761390582303163*^9}, {3.761725056869389*^9, 3.761725073199231*^9}, {
+   3.761725189643548*^9, 3.761725193581211*^9}, {3.7617252974178057`*^9, 
+   3.761725300482733*^9}, {3.761725358950759*^9, 3.761725367249312*^9}, {
+   3.761725989506209*^9, 3.7617260277584047`*^9}, {3.761726102498954*^9, 
+   3.761726160687715*^9}, {3.761893118046009*^9, 3.761893129800077*^9}, {
+   3.761893297782488*^9, 3.761893415455956*^9}, {3.761893979728853*^9, 
+   3.7618939806046047`*^9}, {3.7618942926875763`*^9, 3.761894296154763*^9}, {
+   3.76189435886061*^9, 3.761894359174197*^9}},
+ CellLabel->
+  "In[322]:=",ExpressionUUID->"774c58d4-e7e8-4b84-bdca-45613152c035"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Options", "[", "EoSFits", "]"}], ":=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"\"\<PhysUnits\>\"", "\[Rule]", "False"}], ",", 
+    RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}]}], "}"}]}], "\n", 
+ RowBox[{
+  RowBox[{"EoSFits", "[", 
+   RowBox[{"model_", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"P0Sly", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"5.37", "\[Times]", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", "32", ")"}]}]}]}], "]"}]}], ",", 
+      RowBox[{"\[Rho]0Sly", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"1.2845", " ", 
+          RowBox[{"10", "^", "14"}]}]}], "]"}]}], ",", 
+      RowBox[{"\[CapitalGamma]0", "=", 
+       RowBox[{"4", "/", "3"}]}], ",", 
+      RowBox[{"\[Rho]1", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", "14.7", ")"}]}]}], "]"}]}], ",", 
+      RowBox[{"\[Rho]2", "=", 
+       RowBox[{"Log", "[", 
+        RowBox[{"10", ",", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", "15.", ")"}]}]}], "]"}]}], ",", "fit0", ",", "fit1", 
+      ",", "fit2", ",", "\n", "fit3", ",", "Global`\[Rho]", ",", "p", ",", 
+      "pars", ",", "p1", ",", " ", "\[CapitalGamma]1", ",", 
+      "\[CapitalGamma]2", ",", "\[CapitalGamma]3", ",", "K0", ",", "K1", ",", 
+      "K2", ",", "K3", ",", "\[Rho]0c", ",", "p2", ",", "verbose", ",", 
+      "picore", ",", "res", ",", "\[Rho]1c", ",", "\[Rho]2c", ",", "\[Rho]3c",
+       ",", "k1c", ",", "k2c", ",", "k3c", ",", "k4c", ",", 
+      "\[CapitalGamma]1c", ",", "\[CapitalGamma]2c", ",", "\[CapitalGamma]3c",
+       ",", "\[CapitalGamma]4c", ",", "fit1c", ",", "fit2c", ",", "fit3c", 
+      ",", "fit4c", ",", "physuns", ",", "c"}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"physuns", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PhysUnits\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{
+        RowBox[{"Print", "[", "\"\< EoS available \>\"", "]"}], ";", 
+        RowBox[{"Return", "[", 
+         RowBox[{"EoSFitsPars", "[", 
+          RowBox[{"model", ",", "True"}], "]"}], "]"}]}]}], "]"}], ";", 
+     "\[IndentingNewLine]", "\n", 
+     RowBox[{"c", "=", 
+      RowBox[{"2.99792458", " ", 
+       RowBox[{"10", "^", "10"}]}]}], ";", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "values", " ", "for", " ", "the", " ", "crust", " ", "taken", " ", 
+       "from", " ", "SLy", " ", "crust", " ", "model"}], " ", "*)"}], "\n", 
+     RowBox[{"\[Rho]1c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{"2.44034", " ", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", "07", ")"}]}]}]}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Rho]2c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{"3.78358", " ", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", "11", ")"}]}]}]}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Rho]3c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{"2.62780", " ", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", "12", ")"}]}]}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"k1c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"6.80110", " ", 
+           RowBox[{"10", "^", 
+            RowBox[{"(", 
+             RowBox[{"-", "9"}], ")"}]}]}], ")"}], "*", 
+         RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+     RowBox[{"k2c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1.06186", " ", 
+           RowBox[{"10", "^", 
+            RowBox[{"(", 
+             RowBox[{"-", "6"}], ")"}]}]}], ")"}], "*", 
+         RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+     RowBox[{"k3c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"5.32697", " ", "10"}], ")"}], "*", 
+         RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", 
+     RowBox[{"k4c", "=", 
+      RowBox[{"Log", "[", 
+       RowBox[{"10", ",", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"3.99874", " ", 
+           RowBox[{"10", "^", 
+            RowBox[{"(", 
+             RowBox[{"-", "8"}], ")"}]}]}], ")"}], "*", 
+         RowBox[{"c", "^", "2"}]}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"\[CapitalGamma]1c", "=", "1.58425"}], ";", "\n", 
+     RowBox[{"\[CapitalGamma]2c", "=", "1.28733"}], ";", "\n", 
+     RowBox[{"\[CapitalGamma]3c", "=", "0.62223"}], ";", "\n", 
+     RowBox[{"\[CapitalGamma]4c", "=", "1.35692"}], ";", "\n", "\n", 
+     RowBox[{"fit1c", "=", 
+      RowBox[{"k1c", "+", " ", 
+       RowBox[{"\[CapitalGamma]1c", " ", "Global`\[Rho]"}]}]}], ";", "\n", 
+     RowBox[{"fit2c", "=", 
+      RowBox[{"k2c", "+", " ", 
+       RowBox[{"\[CapitalGamma]2c", " ", "Global`\[Rho]"}]}]}], ";", "\n", 
+     RowBox[{"fit3c", "=", 
+      RowBox[{"k3c", "+", " ", 
+       RowBox[{"\[CapitalGamma]3c", " ", "Global`\[Rho]"}]}]}], ";", "\n", 
+     RowBox[{"fit4c", "=", 
+      RowBox[{"k4c", "+", " ", 
+       RowBox[{"\[CapitalGamma]4c", " ", "Global`\[Rho]"}]}]}], ";", "\n", 
+     "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "p1", ",", " ", "\[CapitalGamma]1", ",", "\[CapitalGamma]2", ",", 
+       "\[CapitalGamma]3"}], "*)"}], "\n", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "p1", ",", " ", "\[CapitalGamma]1", ",", "\[CapitalGamma]2", ",", 
+        "\[CapitalGamma]3"}], "}"}], "=", 
+      RowBox[{
+       RowBox[{"EoSFitsPars", "[", "model", "]"}], "[", 
+       RowBox[{"[", 
+        RowBox[{"2", ";;", "5"}], "]"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "Using", " ", "a", " ", "polytropic", " ", "SLy", " ", "for", " ", 
+       "the", " ", "crust"}], " ", "*)"}], "\n", 
+     RowBox[{"K1", "=", 
+      RowBox[{"(", 
+       RowBox[{"p1", "-", 
+        RowBox[{"(", 
+         RowBox[{"\[CapitalGamma]1", " ", "\[Rho]1"}], ")"}]}], ")"}]}], ";", 
+     "\n", 
+     RowBox[{"fit0", "=", 
+      RowBox[{"Piecewise", "[", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"fit1c", ",", 
+           RowBox[{"Global`\[Rho]", "\[LessEqual]", "\[Rho]1c"}]}], "}"}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"fit2c", ",", 
+           RowBox[{
+           "\[Rho]1c", "<", "Global`\[Rho]", "\[LessEqual]", "\[Rho]2c"}]}], 
+          "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"fit3c", ",", 
+           RowBox[{
+           "\[Rho]2c", "<", "Global`\[Rho]", "\[LessEqual]", "\[Rho]3c"}]}], 
+          "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"fit4c", ",", 
+           RowBox[{"Global`\[Rho]", ">", "\[Rho]3c"}]}], "}"}]}], "}"}], 
+       "]"}]}], ";", "\n", 
+     RowBox[{"fit1", "=", 
+      RowBox[{"K1", "+", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]1", " ", "Global`\[Rho]"}], ")"}]}]}], ";", 
+     "\n", 
+     RowBox[{"\[Rho]0c", "=", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"Global`\[Rho]", "/.", 
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{"fit0", "\[Equal]", 
+            RowBox[{"K1", "+", 
+             RowBox[{"\[CapitalGamma]1", " ", "Global`\[Rho]"}]}]}], ",", 
+           "Global`\[Rho]"}], "]"}]}], ")"}], "[", 
+       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"K2", "=", 
+      RowBox[{"p1", "-", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]2", " ", "\[Rho]1"}], ")"}]}]}], ";", "\n", 
+     RowBox[{"fit2", "=", 
+      RowBox[{"K2", "+", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]2", " ", "Global`\[Rho]"}], ")"}]}]}], ";", 
+     "\n", 
+     RowBox[{"p2", "=", 
+      RowBox[{"K2", "+", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]2", " ", "\[Rho]2"}], ")"}]}]}], ";", "\n", 
+     "\n", 
+     RowBox[{"K3", "=", 
+      RowBox[{"p2", "-", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]3", " ", "\[Rho]2"}], ")"}]}]}], ";", "\n", 
+     RowBox[{"fit3", "=", 
+      RowBox[{"K3", "+", 
+       RowBox[{"(", 
+        RowBox[{"\[CapitalGamma]3", " ", "Global`\[Rho]"}], ")"}]}]}], ";", 
+     "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"Not", "@", "physuns"}], ",", "\n", 
+       RowBox[{
+        RowBox[{"res", "=", 
+         RowBox[{"Piecewise", "[", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"fit1c", ",", 
+              RowBox[{"Global`\[Rho]", "\[LessEqual]", "\[Rho]1c"}]}], "}"}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"fit2c", ",", 
+              RowBox[{
+              "\[Rho]1c", "<", "Global`\[Rho]", "\[LessEqual]", 
+               "\[Rho]2c"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"fit3c", ",", 
+              RowBox[{
+              "\[Rho]2c", "<", "Global`\[Rho]", "\[LessEqual]", 
+               "\[Rho]3c"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"fit4c", ",", 
+              RowBox[{
+              "\[Rho]3c", "<", "Global`\[Rho]", "\[LessEqual]", 
+               "\[Rho]0c"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"fit1", ",", 
+              RowBox[{
+              "\[Rho]0c", "<", "Global`\[Rho]", "\[LessEqual]", "\[Rho]1"}]}],
+              "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"fit2", ",", 
+              RowBox[{
+              "\[Rho]1", "<", "Global`\[Rho]", "\[LessEqual]", "\[Rho]2"}]}], 
+             "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"fit3", ",", 
+              RowBox[{"Global`\[Rho]", ">", "\[Rho]2"}]}], "}"}]}], "}"}], 
+          "]"}]}], ";"}], ",", "\n", 
+       RowBox[{
+        RowBox[{"res", "=", 
+         RowBox[{"Piecewise", "[", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit1c", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{"Global`\[Rho]", "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]1c"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit2c", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{
+               RowBox[{"10", "^", "\[Rho]1c"}], "<", "Global`\[Rho]", 
+               "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]2c"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit3c", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{
+               RowBox[{"10", "^", "\[Rho]2c"}], "<", "Global`\[Rho]", 
+               "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]3c"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit4c", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{
+               RowBox[{"10", "^", "\[Rho]3c"}], "<", "Global`\[Rho]", 
+               "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]0c"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit1", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{
+               RowBox[{"10", "^", "\[Rho]0c"}], "<", "Global`\[Rho]", 
+               "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]1"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit2", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{
+               RowBox[{"10", "^", "\[Rho]1"}], "<", "Global`\[Rho]", 
+               "\[LessEqual]", 
+               RowBox[{"10", "^", "\[Rho]2"}]}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"fit3", "/.", 
+                 RowBox[{"Global`\[Rho]", "\[Rule]", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"10", ",", "Global`\[Rho]"}], "]"}]}]}], ")"}]}], 
+              ",", 
+              RowBox[{"Global`\[Rho]", ">", 
+               RowBox[{"10", "^", "\[Rho]2"}]}]}], "}"}]}], "}"}], "]"}]}], 
+        ";"}]}], "\n", "]"}], ";", "\n", "res"}]}], "\[IndentingNewLine]", 
+   "]"}]}]}], "Code",
+ CellChangeTimes->{{3.726999965927401*^9, 3.7270000560643177`*^9}, {
+   3.727000143008749*^9, 3.7270001434084167`*^9}, {3.727000180269309*^9, 
+   3.727000180882962*^9}, {3.727000223976344*^9, 3.727000355078717*^9}, {
+   3.72700141644901*^9, 3.727001471422144*^9}, {3.727001511511115*^9, 
+   3.727001538576734*^9}, {3.727001594626852*^9, 3.727001607494438*^9}, {
+   3.7270016528674507`*^9, 3.727001656730401*^9}, {3.727001688875834*^9, 
+   3.72700197377059*^9}, {3.7270021175864687`*^9, 3.727002120329812*^9}, {
+   3.7270021556176662`*^9, 3.72700215579963*^9}, {3.727002221431964*^9, 
+   3.727002258456427*^9}, {3.727002400132546*^9, 3.727002457204352*^9}, {
+   3.727002508169973*^9, 3.727002641967149*^9}, {3.727003018672317*^9, 
+   3.727003058799601*^9}, {3.727003166671432*^9, 3.7270031699411163`*^9}, {
+   3.727003254473968*^9, 3.727003266689158*^9}, {3.727003309249691*^9, 
+   3.727003343497841*^9}, {3.7270731267622013`*^9, 3.7270731276014557`*^9}, {
+   3.72819668162881*^9, 3.728196681786951*^9}, {3.728285056950694*^9, 
+   3.728285188754035*^9}, {3.728285302169886*^9, 3.728285308319529*^9}, {
+   3.728285978067767*^9, 3.7282859784705763`*^9}, {3.728286785166251*^9, 
+   3.728286867067231*^9}, {3.731223157468122*^9, 3.7312231778177347`*^9}, {
+   3.7312309426151943`*^9, 3.7312309863459578`*^9}, {3.731231048507821*^9, 
+   3.7312310764538317`*^9}, {3.731231144984675*^9, 3.731231204727673*^9}, {
+   3.731231386381085*^9, 3.731231396067101*^9}, {3.7312314582194967`*^9, 
+   3.731231490803018*^9}, {3.7312316152308292`*^9, 3.731231618837924*^9}, {
+   3.7312316610700274`*^9, 3.7312316898841867`*^9}, {3.7312319259205437`*^9, 
+   3.731231928557549*^9}, {3.73123199746346*^9, 3.731232049885665*^9}, {
+   3.731232174239554*^9, 3.73123217441506*^9}, {3.731232254141769*^9, 
+   3.731232297005245*^9}, {3.731232646622579*^9, 3.731232684261876*^9}, {
+   3.7312327483511667`*^9, 3.731232806294476*^9}, {3.731232859324823*^9, 
+   3.731232884625581*^9}, {3.733815704431856*^9, 3.733815755061613*^9}, 
+   3.733815801915045*^9, {3.733815857874194*^9, 3.733815859441815*^9}, {
+   3.733815973323176*^9, 3.733815987210639*^9}, {3.73381602779392*^9, 
+   3.733816051666565*^9}, {3.733816140146234*^9, 3.733816240917348*^9}, {
+   3.733822412422152*^9, 3.733822428554715*^9}, {3.7338224769634657`*^9, 
+   3.733822518194765*^9}, {3.733822554107644*^9, 3.733822681568377*^9}, {
+   3.733822748503215*^9, 3.733822770406065*^9}, {3.7338228897902946`*^9, 
+   3.733822909252109*^9}, 3.7338229475833197`*^9, {3.7340878174304667`*^9, 
+   3.734087950918627*^9}, {3.734092472330904*^9, 3.73409254747019*^9}, 
+   3.7519727782577868`*^9, {3.75197281012533*^9, 3.7519730447834463`*^9}, {
+   3.7519731296527987`*^9, 3.751973135388118*^9}, {3.7519735552643843`*^9, 
+   3.7519736312932*^9}},
+ CellLabel->
+  "In[323]:=",ExpressionUUID->"fdd59681-5dbb-43cc-bf20-61b9df02c596"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"From\[Rho]To\[Epsilon]Fits", "[", "eos_", "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "Global`\[Rho]", ",", "ks", ",", "\[Gamma]s", ",", "pols", ",", "polsd", 
+      ",", "a", ",", "\[Rho]s", ",", "\[Epsilon]", ",", "tab", ",", "k", ",", 
+      "k1", ",", "\[Gamma]", ",", "\[Gamma]1", ",", "\[Rho]v", ",", "c"}], 
+     "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"c", "=", 
+      RowBox[{"2.99792458", " ", 
+       RowBox[{"10", "^", "10"}]}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"eos", "\[Equal]", "\"\<PolMSMix\>\""}], ",", 
+       RowBox[{"pols", "=", 
+        RowBox[{
+         RowBox[{"EoSPol", "[", "eos", "]"}], "[", 
+         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+       RowBox[{"pols", "=", 
+        RowBox[{
+         RowBox[{"EoSFits", "[", "eos", "]"}], "[", 
+         RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"ks", ",", "\[Gamma]s"}], "}"}], "=", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"CoefficientList", "[", 
+          RowBox[{"#", ",", "Global`\[Rho]"}], "]"}], "&"}], "/@", 
+        RowBox[{"pols", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"polsd", "=", 
+      RowBox[{"pols", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Rho]s", "=", 
+      RowBox[{"DeleteDuplicates", "@", 
+       RowBox[{"polsd", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", 
+          RowBox[{"-", "1"}]}], "]"}], "]"}]}]}], ";", "\n", 
+     RowBox[{"a", "=", "0"}], ";", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"\[Epsilon]", "[", 
+       RowBox[{"Global`\[Rho]_", ",", "a_", ",", "k_", ",", "\[Gamma]_"}], 
+       "]"}], ":=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"1", "+", "a"}], ")"}], "Global`\[Rho]"}], " ", "+", " ", 
+       RowBox[{
+        RowBox[{"k", "/", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"c", "^", "2"}], 
+           RowBox[{"(", 
+            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}], ")"}]}], 
+        RowBox[{"Global`\[Rho]", "^", 
+         RowBox[{"(", "\[Gamma]", ")"}]}]}]}]}], ";", "\n", 
+     RowBox[{"polsd", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"10", "^", 
+          RowBox[{"\[Rho]s", "[", 
+           RowBox[{"[", "i", "]"}], "]"}]}], "<", "Global`\[Rho]", 
+         "\[LessEqual]", 
+         RowBox[{"10", "^", 
+          RowBox[{"\[Rho]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{
+           RowBox[{"Length", "@", "\[Rho]s"}], "-", "1"}]}], "}"}]}], "]"}]}],
+      ";", "\n", 
+     RowBox[{"polsd", "=", 
+      RowBox[{"Join", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"Global`\[Rho]", "\[LessEqual]", 
+          RowBox[{"10", "^", 
+           RowBox[{"\[Rho]s", "[", 
+            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", "polsd", ",", 
+        RowBox[{"{", 
+         RowBox[{"Global`\[Rho]", ">", 
+          RowBox[{"10", "^", 
+           RowBox[{"\[Rho]s", "[", 
+            RowBox[{"[", 
+             RowBox[{"-", "1"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"tab", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"k", "=", 
+          RowBox[{"10", "^", 
+           RowBox[{"ks", "[", 
+            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", 
+         RowBox[{"\[Gamma]", "=", 
+          RowBox[{"\[Gamma]s", "[", 
+           RowBox[{"[", "i", "]"}], "]"}]}], ";", 
+         RowBox[{"\[Rho]v", "=", 
+          RowBox[{"10", "^", 
+           RowBox[{"\[Rho]s", "[", 
+            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", 
+         RowBox[{"k1", "=", 
+          RowBox[{"10", "^", 
+           RowBox[{"ks", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", 
+         RowBox[{"\[Gamma]1", "=", 
+          RowBox[{"\[Gamma]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\n", "           ", 
+         RowBox[{"a", "=", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"\[Epsilon]", "[", 
+             RowBox[{"\[Rho]v", ",", "a", ",", "k", ",", "\[Gamma]"}], "]"}], 
+            "/", "\[Rho]v"}], "-", "1", "-", " ", 
+           RowBox[{
+            RowBox[{"k1", "/", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"c", "^", "2"}], 
+               RowBox[{"(", 
+                RowBox[{"\[Gamma]1", "-", "1"}], ")"}]}], ")"}]}], 
+            RowBox[{"\[Rho]v", "^", 
+             RowBox[{"(", 
+              RowBox[{"\[Gamma]1", "-", "1"}], ")"}]}]}]}]}], ";", "\n", 
+         "\t\t  ", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"\[Epsilon]", "[", 
+            RowBox[{"Global`\[Rho]", ",", "a", ",", "k1", ",", "\[Gamma]1"}], 
+            "]"}], ",", 
+           RowBox[{"polsd", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "}"}]}], "\n", ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", "1", ",", 
+          RowBox[{"Length", "@", "\[Rho]s"}]}], "}"}]}], "]"}]}], ";", "\n", 
+     "\[IndentingNewLine]", 
+     RowBox[{"Simplify", "@", 
+      RowBox[{"Piecewise", "[", 
+       RowBox[{"Join", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"\[Epsilon]", "[", 
+             RowBox[{"Global`\[Rho]", ",", "0", ",", 
+              RowBox[{"10", "^", 
+               RowBox[{"ks", "[", 
+                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+              RowBox[{"\[Gamma]s", "[", 
+               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
+            RowBox[{"polsd", "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}], ",", "tab"}], 
+        "]"}], "]"}]}]}]}], "\n", "]"}]}]], "Code",
+ CellChangeTimes->{{3.733823046456291*^9, 3.7338230691657553`*^9}, {
+   3.733824131814012*^9, 3.73382423427032*^9}, {3.733824296061494*^9, 
+   3.7338244201006117`*^9}, {3.733825543210451*^9, 3.73382554458947*^9}, {
+   3.733825632877883*^9, 3.7338256412194757`*^9}, {3.733826176710697*^9, 
+   3.7338263559400682`*^9}, {3.733826546534893*^9, 3.733826625257965*^9}, {
+   3.733826688135625*^9, 3.7338266882082577`*^9}, {3.733826724386257*^9, 
+   3.733826852670308*^9}, {3.73382689335935*^9, 3.733826941132819*^9}, {
+   3.733827020941071*^9, 3.7338271837059526`*^9}, {3.733827239603655*^9, 
+   3.7338272486960497`*^9}, 3.7338272879940968`*^9, {3.733827330417488*^9, 
+   3.7338273334314003`*^9}, {3.7338273843108397`*^9, 3.73382741603892*^9}, {
+   3.7338276605177393`*^9, 3.7338276617286997`*^9}, {3.733827718080194*^9, 
+   3.733827742146161*^9}, {3.733881902589757*^9, 3.733881913072439*^9}, {
+   3.73388195177744*^9, 3.733881957635982*^9}, {3.733882000460088*^9, 
+   3.733882040890749*^9}, 3.733882078789053*^9, {3.733882113466824*^9, 
+   3.7338821242222643`*^9}, {3.733882181447678*^9, 3.73388218874981*^9}, {
+   3.733882313698021*^9, 3.733882409371114*^9}, {3.7338825919059134`*^9, 
+   3.7338826031599503`*^9}, {3.733882662946354*^9, 3.7338826658401327`*^9}, {
+   3.733882725481662*^9, 3.733882739894917*^9}, {3.7338829365744553`*^9, 
+   3.7338830570501947`*^9}, {3.733883169705538*^9, 3.733883239412828*^9}, {
+   3.733884187641214*^9, 3.733884257854871*^9}, {3.733884366918598*^9, 
+   3.733884396556073*^9}, {3.7338844295573*^9, 3.733884452789423*^9}, {
+   3.733884500700309*^9, 3.733884525734254*^9}, {3.733884732561365*^9, 
+   3.7338847343596582`*^9}, {3.733884859029119*^9, 3.733884885843701*^9}, {
+   3.733884922061243*^9, 3.733884924035822*^9}, {3.7338849927866917`*^9, 
+   3.733884996147394*^9}, 3.7338850505723124`*^9, {3.733885123874305*^9, 
+   3.733885442114826*^9}, {3.734088785777603*^9, 3.734088788341172*^9}, {
+   3.734088854727375*^9, 3.73408885499795*^9}, {3.7340888852692423`*^9, 
+   3.734088889924355*^9}, {3.734089043702003*^9, 3.7340891002888927`*^9}, {
+   3.7340891432490396`*^9, 3.734089143520755*^9}, {3.7340891935968857`*^9, 
+   3.734089213994335*^9}, {3.734089244909115*^9, 3.7340892510199614`*^9}, {
+   3.7340892871963863`*^9, 3.7340893019734097`*^9}, {3.7340893773287983`*^9, 
+   3.7340893776476507`*^9}, {3.734089413030986*^9, 3.734089416885776*^9}, {
+   3.734089462019704*^9, 3.734089487525824*^9}, {3.7340895864378767`*^9, 
+   3.734089587421865*^9}, {3.734089670132556*^9, 3.734089694697172*^9}, {
+   3.734089768844058*^9, 3.734089773403701*^9}, {3.7340898987093287`*^9, 
+   3.734089899373542*^9}, {3.734090253007333*^9, 3.734090310211011*^9}, {
+   3.734090355824491*^9, 3.7340903849641542`*^9}, {3.7340905387649593`*^9, 
+   3.734090543697991*^9}, {3.73409058739137*^9, 3.734090633987514*^9}, {
+   3.7340907565643377`*^9, 3.7340907663019047`*^9}, {3.7340911742680387`*^9, 
+   3.7340912563162327`*^9}, {3.734091441974814*^9, 3.7340914544388437`*^9}, {
+   3.734091521912054*^9, 3.734091531168804*^9}, {3.7340915782688723`*^9, 
+   3.7340916686907063`*^9}, {3.734091742356702*^9, 3.734091742531228*^9}, {
+   3.751970551841021*^9, 3.751970601946912*^9}, {3.761389040203492*^9, 
+   3.761389081151778*^9}},
+ CellLabel->
+  "In[325]:=",ExpressionUUID->"7eccf728-6635-4259-85d7-e352f2b5bf87"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Shooting and functions for computing credible intervals", "Section",
+ CellChangeTimes->{{3.75196074859128*^9, 3.7519607559246187`*^9}, {
+  3.7519610674600973`*^9, 3.751961070512369*^9}, {3.75196111475299*^9, 
+  3.751961125544568*^9}},ExpressionUUID->"3be93c08-4ba9-4bf3-b94b-\
+30eff061949f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"RK4", "[", 
+   RowBox[{
+    RowBox[{"func_", "?", "ListQ"}], ",", 
+    RowBox[{"vars_", "?", "ListQ"}], ",", 
+    RowBox[{"ivals_", "?", "ListQ"}], ",", 
+    RowBox[{"pars_", "?", "ListQ"}], ",", "step_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "k1", ",", "k2", ",", "k3", ",", "k4", ",", "x2", ",", "f1", ",", "f2", 
+      ",", "x3", ",", "f3", ",", "x4", ",", "f4", ",", "dx", ",", "x", ",", 
+      "x0", ",", "sol"}], "}"}], ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"dx", "=", "step"}], ";", "\n", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"x", ",", "x0"}], "}"}], "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"pars", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], ",", 
+        RowBox[{"pars", "[", 
+         RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";", "\n", "\n", 
+     RowBox[{"k1", "=", 
+      RowBox[{"dx", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"func", "/.", 
+           RowBox[{"x", "\[Rule]", 
+            RowBox[{"(", "x0", ")"}]}]}], ")"}], "/.", 
+         RowBox[{"MapThread", "[", 
+          RowBox[{"Rule", ",", " ", 
+           RowBox[{"{", 
+            RowBox[{"vars", ",", "ivals"}], "}"}]}], "]"}]}], ")"}]}]}], ";", 
+     "\n", 
+     RowBox[{"k2", "=", 
+      RowBox[{"dx", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"func", "/.", 
+           RowBox[{"x", "\[Rule]", 
+            RowBox[{"(", 
+             RowBox[{"x0", "+", 
+              RowBox[{"dx", "/", "2"}]}], ")"}]}]}], ")"}], "/.", 
+         RowBox[{"MapThread", "[", 
+          RowBox[{"Rule", ",", " ", 
+           RowBox[{"{", 
+            RowBox[{"vars", ",", 
+             RowBox[{"ivals", " ", "+", 
+              RowBox[{
+               RowBox[{"1", "/", "2"}], " ", "k1"}]}]}], "}"}]}], "]"}]}], 
+        ")"}]}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"k3", "=", 
+      RowBox[{"dx", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"func", "/.", 
+           RowBox[{"x", "\[Rule]", 
+            RowBox[{"(", 
+             RowBox[{"x0", "+", 
+              RowBox[{"dx", "/", "2"}]}], ")"}]}]}], ")"}], "/.", 
+         RowBox[{"MapThread", "[", 
+          RowBox[{"Rule", ",", " ", 
+           RowBox[{"{", 
+            RowBox[{"vars", ",", 
+             RowBox[{"ivals", " ", "+", 
+              RowBox[{
+               RowBox[{"1", "/", "2"}], " ", "k2"}]}]}], "}"}]}], "]"}]}], 
+        ")"}]}]}], ";", "\n", 
+     RowBox[{"k4", "=", 
+      RowBox[{"dx", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"func", "/.", 
+           RowBox[{"x", "\[Rule]", 
+            RowBox[{"(", 
+             RowBox[{"x0", "+", "dx"}], ")"}]}]}], ")"}], "/.", 
+         RowBox[{"MapThread", "[", 
+          RowBox[{"Rule", ",", " ", 
+           RowBox[{"{", 
+            RowBox[{"vars", ",", 
+             RowBox[{"ivals", " ", "+", " ", "k3"}]}], "}"}]}], "]"}]}], 
+        ")"}]}]}], ";", "\n", "\n", 
+     RowBox[{"ivals", "+", 
+      RowBox[{
+       RowBox[{"1", "/", "6"}], 
+       RowBox[{"(", 
+        RowBox[{"k1", "+", 
+         RowBox[{"2", "k2"}], "+", 
+         RowBox[{"2", "k3"}], "+", "k4"}], ")"}]}]}]}]}], "\n", 
+   "]"}]}]], "Code",
+ CellChangeTimes->{{3.718024437334443*^9, 3.718024529235983*^9}, {
+   3.718024597197151*^9, 3.7180245986772833`*^9}, {3.718024831867444*^9, 
+   3.718024836545999*^9}, {3.718024959420086*^9, 3.7180251735857267`*^9}, {
+   3.718025351055107*^9, 3.718025355918919*^9}, {3.718025658077623*^9, 
+   3.718025726496904*^9}, {3.718025884589555*^9, 3.718025903700222*^9}, 
+   3.718025952109474*^9, {3.71802598415567*^9, 3.718026027291142*^9}, {
+   3.7183758183012743`*^9, 3.718375963413252*^9}, {3.718376010047482*^9, 
+   3.718376247275988*^9}, {3.718376402537713*^9, 3.7183764119733686`*^9}, {
+   3.7183764492530403`*^9, 3.7183768744487953`*^9}, {3.718427954260064*^9, 
+   3.718427963408498*^9}, {3.718428072305179*^9, 3.7184281186537437`*^9}, 
+   3.718428615549181*^9, {3.718527786662306*^9, 3.718527815396883*^9}, {
+   3.718527891437985*^9, 3.7185279051473722`*^9}},
+ CellLabel->
+  "In[326]:=",ExpressionUUID->"4ab9691d-8b97-4823-b93d-ea823bb2cac2"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"TestCode", "[", 
+   RowBox[{"eqs_", ",", "vars_", ",", "icond_", ",", "rlst_", ",", "drlst_"}],
+    "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "R1", ",", "R", ",", "v1", ",", "v", ",", "w1", ",", "w", ",", 
+      "\[Lambda]1", ",", "\[Lambda]", ",", "p1", ",", "p", ",", "eqsrules", 
+      ",", "atomlst", ",", "atomlstaux", ",", "solvevars", ",", "varsp1", ",",
+       "rvar", ",", "rval", ",", "drvar", ",", "drval"}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"rvar", ",", "rval"}], "}"}], "=", "rlst"}], ";", "\n", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"drvar", ",", "drval"}], "}"}], "=", "drlst"}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsrules", "=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"Flatten", "[", 
+          RowBox[{"eqs", "/.", 
+           RowBox[{"MapThread", "[", 
+            RowBox[{"Rule", ",", " ", 
+             RowBox[{"{", 
+              RowBox[{"vars", ",", "icond"}], "}"}]}], "]"}]}], "]"}], ")"}], 
+        "/.", 
+        RowBox[{"drvar", "\[Rule]", "drval"}]}], "/.", 
+       RowBox[{"rvar", "->", "rval"}]}]}], ";", "\n", 
+     RowBox[{"varsp1", "=", 
+      RowBox[{
+       RowBox[{"Flatten", "[", "eqs", "]"}], "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"eqsrules", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Solve", "[", 
+        RowBox[{"eqsrules", ",", "varsp1"}], "]"}]}]}], ";", "\n", "\n", 
+     RowBox[{"Return", "[", 
+      RowBox[{"varsp1", "/.", "eqsrules"}], "]"}], ";"}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.7209533706426764`*^9, 3.720953565236683*^9}, {
+   3.720953709327879*^9, 3.720953716734827*^9}, {3.720953787410613*^9, 
+   3.720954069363674*^9}, {3.720967990013736*^9, 3.720967992350972*^9}, {
+   3.720968067731927*^9, 3.720968070981515*^9}, {3.720968191202482*^9, 
+   3.720968191995029*^9}, {3.720968899350851*^9, 3.72096890099102*^9}, {
+   3.720968936445901*^9, 3.720969226035326*^9}, {3.720969325083343*^9, 
+   3.720969344537969*^9}, {3.720969393712679*^9, 3.720969433510112*^9}, {
+   3.7209695219960833`*^9, 3.720969700866089*^9}, {3.720969739339038*^9, 
+   3.720969763436041*^9}, {3.720969849256946*^9, 3.7209699689977083`*^9}, {
+   3.720970005791581*^9, 3.720970063430794*^9}, {3.720970094566566*^9, 
+   3.720970112120479*^9}, {3.7209758177738132`*^9, 3.720975833069417*^9}, {
+   3.7209758767249823`*^9, 3.720975886403585*^9}, {3.7209759737779303`*^9, 
+   3.720975980534768*^9}, 3.721812460691559*^9, {3.757684037167789*^9, 
+   3.7576840403525743`*^9}, {3.7576840746902523`*^9, 3.757684079797699*^9}, {
+   3.757684218073572*^9, 3.757684221018465*^9}},
+ CellLabel->
+  "In[327]:=",ExpressionUUID->"9aaa7a15-f5b4-48ca-92df-2cd798ba0032"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "BracketingSTNStars", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Tolerance\>\"", "\[Rule]", 
+      RowBox[{"10", "^", 
+       RowBox[{"(", 
+        RowBox[{"-", "8"}], ")"}]}]}], ",", 
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<MaxIteraton\>\"", "\[Rule]", "100"}], ",", 
+     RowBox[{"\"\<NPoints\>\"", "\[Rule]", "1000"}], ",", 
+     RowBox[{"\"\<AssymptoticMatch\>\"", "\[Rule]", "None"}], ",", 
+     RowBox[{"\"\<AssymptoticValue\>\"", "\[Rule]", 
+      RowBox[{"10", "^", 
+       RowBox[{"-", "8"}]}]}]}], "}"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"BracketingSTNStars", "[", 
+    RowBox[{
+    "eqs_", ",", "eqsRg_", ",", "Global`r_", ",", "vars_", ",", "shtdInd_", 
+     ",", "varshtdRg_", ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "dom", ",", "eqsht", ",", "\n", "Sh0", ",", "Sh0m", ",", "posref", ",", 
+       "mean", ",", "tol", ",", "Sh\[Infinity]", ",", "Sh\[Infinity]m", ",", 
+       "Sh\[Infinity]m2", ",", "Sh0m2", ",", "Sh0ref", ",", "\n", "a", ",", 
+       "posreftest", ",", "verbose", ",", "begin", ",", "eqsRga", ",", 
+       "brack", ",", "varshtdRga", ",", "varsa", ",", "varshta", ",", 
+       "varshtalw", ",", "dvarshta", ",", "out", ",", "ShtStr", ",", "raux", 
+       ",", "np", ",", "i", ",", "amax", ",", "assymptotic", ",", "\n", "Rs", 
+       ",", "r", ",", "datab", ",", "datfit", ",", "a0", ",", "m", ",", "y1", 
+       ",", "y2", ",", "A3", ",", "assval", ",", "threshold", ",", 
+       "Sh\[Infinity]maux"}], "}"}], ",", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Loading", " ", "options"}], " ", "*)"}], "\n", 
+     RowBox[{
+      RowBox[{"tol", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Tolerance\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"amax", "=", 
+       RowBox[{"OptionValue", "[", "\"\<MaxIteraton\>\"", "]"}]}], ";", "\n", 
+      
+      RowBox[{"assymptotic", "=", 
+       RowBox[{"OptionValue", "[", "\"\<AssymptoticMatch\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"np", "=", 
+       RowBox[{"OptionValue", "[", "\"\<NPoints\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"assval", "=", 
+       RowBox[{"OptionValue", "[", "\"\<AssymptoticValue\>\"", "]"}]}], ";", 
+      "\n", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{"Some", " ", "auxiliary", " ", "variables"}], " ", "*)"}], 
+      "\n", 
+      RowBox[{"eqsRga", "=", "eqsRg"}], ";", "\n", 
+      RowBox[{"varshtdRga", "=", "varshtdRg"}], ";", "\n", 
+      RowBox[{"varsa", "=", 
+       RowBox[{"ToExpression", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\<a\>\""}], ")"}], 
+          "&"}], "/@", "vars"}], "]"}]}], ";", "\n", 
+      RowBox[{"varshta", "=", 
+       RowBox[{"Join", "[", 
+        RowBox[{"varshtdRga", ",", 
+         RowBox[{"{", 
+          RowBox[{"Mean", "[", "varshtdRga", "]"}], "}"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"ShtStr", "=", 
+       RowBox[{"ToString", "[", 
+        RowBox[{"varsa", "[", 
+         RowBox[{"[", "shtdInd", "]"}], "]"}], "]"}]}], ";", "\n", 
+      RowBox[{"a", "=", "0"}], " ", 
+      RowBox[{"(*", " ", 
+       RowBox[{"auxiliary", " ", "counter"}], " ", "*)"}], " ", ";", "\n", 
+      RowBox[{"i", "=", "0"}], " ", 
+      RowBox[{"(*", " ", 
+       RowBox[{"auxiliary", " ", "counter"}], " ", "*)"}], " ", ";", " ", 
+      "\n", 
+      RowBox[{"dvarshta", "=", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], "-", 
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "np"}]}], ";", "\n", 
+      
+      RowBox[{"(*", " ", 
+       RowBox[{
+        RowBox[{"In", " ", 
+         RowBox[{"case", " ", "'"}], 
+         RowBox[{"bracketing", "'"}], " ", "is", " ", "activated"}], ",", " ", 
+        RowBox[{"we", " ", 
+         RowBox[{"split", "  ", "[", 
+          RowBox[{
+           RowBox[{"varshta", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
+           RowBox[{"varshta", "[", 
+            RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "in", " ", "np", 
+         " ", "points"}]}], " ", "*)"}], "\n", "\n", "    ", 
+      RowBox[{"Sh\[Infinity]m", "=", "1.1"}], ";", "\n", "    ", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"assval", "\[GreaterEqual]", "1"}], ",", 
+        RowBox[{"threshold", "=", "assval"}], ",", 
+        RowBox[{"threshold", "=", "0"}]}], "]"}], ";", "\n", "    ", 
+      RowBox[{"While", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Sh\[Infinity]m", ">", "threshold"}], "&&", 
+         RowBox[{"i", "<", " ", "np"}]}], ",", "\n", "          ", 
+        RowBox[{
+         RowBox[{"i", "=", 
+          RowBox[{"i", "+", "1"}]}], ";", "\n", "          ", 
+         RowBox[{"Sh\[Infinity]maux", "=", "Sh\[Infinity]m"}], ";", "\n", 
+         "          ", 
+         RowBox[{"varshtalw", "=", 
+          RowBox[{
+           RowBox[{"varshtdRg", "[", 
+            RowBox[{"[", "2", "]"}], "]"}], " ", "-", " ", 
+           RowBox[{"i", "*", "dvarshta"}]}]}], ";", "\n", "          ", 
+         RowBox[{"If", "[", 
+          RowBox[{"verbose", ",", " ", 
+           RowBox[{"Print", "[", 
+            RowBox[{
+            "\"\<n: \>\"", ",", "i", ",", 
+             "\"\< Redefining upper limit as: \>\"", ",", "varshtalw"}], 
+            "]"}]}], "]"}], ";", "\n", "      \t", 
+         RowBox[{"eqsht", "=", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"vars", "[", 
+              RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+             RowBox[{"eqsRga", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", 
+            "varshtalw"}], "}"}]}], ";", "\n", "      \t", 
+         RowBox[{"eqsht", "=", 
+          RowBox[{"Join", "[", 
+           RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", "      \t", 
+         RowBox[{"varsa", "=", 
+          RowBox[{"vars", "/.", 
+           RowBox[{"Flatten", "[", 
+            RowBox[{"NDSolve", "[", 
+             RowBox[{"eqsht", ",", "vars", ",", 
+              RowBox[{"{", 
+               RowBox[{"Global`r", ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "1", "]"}], "]"}], ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+              RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+              RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";",
+          "\n", "      \t", 
+         RowBox[{"dom", "=", 
+          RowBox[{"InterpolationDomain", "[", 
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\n", "\t      ", 
+         RowBox[{"Sh\[Infinity]m", "=", 
+          RowBox[{
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+           RowBox[{"dom", "[", 
+            RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}]}], "\n", "\t", "]"}], 
+      ";", "\n", "\t", "\n", "\t", 
+      RowBox[{"Return", "[", 
+       RowBox[{"{", 
+        RowBox[{"varshtalw", ",", 
+         RowBox[{"varshtalw", " ", "+", " ", "dvarshta"}], ",", "i"}], "}"}], 
+       "]"}]}]}], "\n", "\t", 
+    RowBox[{"(*", " ", 
+     RowBox[{
+      RowBox[{"The", " ", "-", " ", 
+       RowBox[{"is", " ", "to", " ", "avoid", " ", 
+        RowBox[{"varshta", "[", 
+         RowBox[{"[", "1", "]"}], "]"}]}]}], "=", 
+      RowBox[{"varshta", "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], " ", "*)"}], "\n", "\t", 
+    RowBox[{"(*", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"varshta", "[", 
+        RowBox[{"[", "2", "]"}], "]"}], "=", 
+       RowBox[{"varshtalw", " ", "+", "  ", "dvarshta"}]}], ";", "\t\t", "\n",
+       "\t", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", " ", 
+        RowBox[{"Print", "[", 
+         RowBox[{"\"\< New upper limit: \>\"", ",", 
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\n", 
+      "    ", 
+      RowBox[{"Sh\[Infinity]m", "=", 
+       RowBox[{"-", "0.1"}]}], ";", "  ", "\n", "    ", 
+      RowBox[{"i", "=", "0"}], ";", "\n", "    ", 
+      RowBox[{"varshtalw", "=", 
+       RowBox[{"varshta", "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", "    ", 
+      RowBox[{"If", "[", 
+       RowBox[{
+        RowBox[{"assval", "\[GreaterEqual]", "1"}], ",", 
+        RowBox[{"threshold", "=", "assval"}], ",", 
+        RowBox[{"threshold", "=", "0"}]}], "]"}], ";", "\n", "\t", 
+      RowBox[{"While", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Sh\[Infinity]m", "<", "threshold"}], " ", "&&", " ", 
+         RowBox[{"i", "<", "np"}]}], ",", "\n", "\t\t\t", 
+        RowBox[{
+         RowBox[{"i", "=", 
+          RowBox[{"i", "+", "1"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"varshtalw", "=", 
+          RowBox[{
+           RowBox[{"varshtdRg", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], " ", "+", 
+           RowBox[{"i", "*", "dvarshta"}]}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"eqsht", "=", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"vars", "[", 
+              RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+             RowBox[{"eqsRga", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", 
+            "varshtalw"}], "}"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"eqsht", "=", 
+          RowBox[{"Join", "[", 
+           RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"varsa", "=", 
+          RowBox[{"vars", "/.", 
+           RowBox[{"Flatten", "[", 
+            RowBox[{"NDSolve", "[", 
+             RowBox[{"eqsht", ",", "vars", ",", 
+              RowBox[{"{", 
+               RowBox[{"Global`r", ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "1", "]"}], "]"}], ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+              RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+              RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";",
+          "\n", "\t\t\t", 
+         RowBox[{"dom", "=", 
+          RowBox[{"InterpolationDomain", "[", 
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"Sh\[Infinity]m", "=", 
+          RowBox[{
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+           RowBox[{"dom", "[", 
+            RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\n", "\t\t\t", 
+         RowBox[{
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "=", "varshtalw"}], ";", "\n", 
+         "\t\t\t", 
+         RowBox[{"If", "[", 
+          RowBox[{"verbose", ",", " ", 
+           RowBox[{"Print", "[", 
+            RowBox[{
+            "\"\<n: \>\"", ",", "i", ",", 
+             "\"\<. Redefining lower limit as: \>\"", ",", 
+             RowBox[{"varshta", "[", 
+              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\n",
+        "\t\t\t", "]"}], ";", "\n", "\t\t\t", 
+      RowBox[{
+       RowBox[{"varshta", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], "=", 
+       RowBox[{"varshtalw", " ", "-", " ", "dvarshta"}]}], ";", "\n", 
+      "\t\t\t", 
+      RowBox[{"Return", "[", 
+       RowBox[{"Flatten", "[", 
+        RowBox[{"Join", "[", 
+         RowBox[{
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
+          RowBox[{"{", "i", "}"}]}], "]"}], "]"}], "]"}], ";"}], "\n", "*)"}],
+     "]"}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.756108686021741*^9, 3.7561087257255487`*^9}, {
+   3.756108765659975*^9, 3.756108817335472*^9}, 3.7566221960323277`*^9, {
+   3.756622458833796*^9, 3.7566225094031076`*^9}, {3.756622644869564*^9, 
+   3.7566226670495577`*^9}, {3.756622702846457*^9, 3.756622746282222*^9}, {
+   3.75662280125102*^9, 3.756622897708783*^9}, {3.7566259014121447`*^9, 
+   3.756625986664259*^9}, {3.7566260325504932`*^9, 3.7566261798391247`*^9}, {
+   3.756626632803927*^9, 3.7566266585894957`*^9}, {3.756626991665101*^9, 
+   3.756627000708107*^9}, {3.756627071060359*^9, 3.75662707520603*^9}, {
+   3.756627113594309*^9, 3.756627139992545*^9}, {3.756627172388412*^9, 
+   3.7566271735599937`*^9}, {3.7566272041607323`*^9, 3.756627212417534*^9}, {
+   3.75662740433883*^9, 3.7566274079578114`*^9}, {3.756627506515497*^9, 
+   3.75662751096712*^9}, {3.756627754938942*^9, 3.756627796728538*^9}, {
+   3.756628090306175*^9, 3.756628099348143*^9}, 3.756628374401834*^9, {
+   3.756628669214087*^9, 3.756628671995166*^9}, {3.7566287070304937`*^9, 
+   3.756628776802051*^9}, {3.7566288503340673`*^9, 3.75662885989786*^9}, {
+   3.756628936424811*^9, 3.7566289525156*^9}, {3.756629002968646*^9, 
+   3.75662900934132*^9}, {3.756629222033474*^9, 3.756629256257477*^9}, {
+   3.756629598975377*^9, 3.756629604117942*^9}, {3.7566309043445873`*^9, 
+   3.756630956883482*^9}, {3.7566314079780912`*^9, 3.756631480078579*^9}, {
+   3.7566315242087193`*^9, 3.7566315244916058`*^9}, {3.756631567968173*^9, 
+   3.756631603094048*^9}, {3.756631823868929*^9, 3.7566318795976543`*^9}, 
+   3.7566329223418083`*^9, {3.7566334845366163`*^9, 3.756633528462422*^9}, {
+   3.7566335602481127`*^9, 3.756633560623721*^9}, {3.7584528730230923`*^9, 
+   3.758452884332016*^9}, {3.75870103263836*^9, 3.758701053741371*^9}, {
+   3.758985852540753*^9, 3.7589858647563543`*^9}, {3.759381875876657*^9, 
+   3.759381898533043*^9}, {3.759381929885153*^9, 3.759381931889859*^9}, {
+   3.759383227244246*^9, 3.759383230553035*^9}, {3.761474294981949*^9, 
+   3.761474305878443*^9}, {3.761476068456214*^9, 3.761476138560934*^9}, {
+   3.761476176638414*^9, 3.76147621620511*^9}, {3.7614762943644238`*^9, 
+   3.76147630602817*^9}, {3.7614777114154453`*^9, 3.761477712245318*^9}, {
+   3.761477801223834*^9, 3.7614778052886877`*^9}, {3.761544623260009*^9, 
+   3.7615446601233053`*^9}, {3.761544700452073*^9, 3.7615447008581333`*^9}, {
+   3.761544760878562*^9, 3.7615447850082483`*^9}},
+ CellLabel->
+  "In[328]:=",ExpressionUUID->"7d87c83d-5730-4f9c-8f51-a1ed9ed56df2"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "ShootingNStars", "]"}], "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\"\<Tolerance\>\"", "\[Rule]", 
+      RowBox[{"10", "^", 
+       RowBox[{"(", 
+        RowBox[{"-", "8"}], ")"}]}]}], ",", 
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+     RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<MaxIteraton\>\"", "\[Rule]", "100"}], ",", 
+     RowBox[{"\"\<NPoints\>\"", "\[Rule]", "1000"}], ",", 
+     RowBox[{"\"\<AssymptoticMatch\>\"", "\[Rule]", "None"}], ",", 
+     RowBox[{"\"\<AssymptoticValue\>\"", "\[Rule]", 
+      RowBox[{"10", "^", 
+       RowBox[{"-", "8"}]}]}]}], "}"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"ShootingNStars", "[", 
+   RowBox[{
+   "eqs_", ",", "eqsRg_", ",", "Global`r_", ",", "vars_", ",", "shtdInd_", 
+    ",", "varshtdRg_", ",", "optNDS__", ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "dom", ",", "eqsht", ",", "\n", "Sh0", ",", "Sh0m", ",", "posref", ",", 
+      "mean", ",", "tol", ",", "Sh\[Infinity]", ",", "Sh\[Infinity]m", ",", 
+      "Sh\[Infinity]m2", ",", "Sh0m2", ",", "Sh0ref", ",", "\n", "a", ",", 
+      "posreftest", ",", "verbose", ",", "begin", ",", "eqsRga", ",", "brack",
+       ",", "varshtdRga", ",", "varsa", ",", "varshta", ",", "varshtalw", ",",
+       "dvarshta", ",", "out", ",", "ShtStr", ",", "raux", ",", "np", ",", 
+      "i", ",", "amax", ",", "assymptotic", ",", "\n", "Rs", ",", "r", ",", 
+      "datab", ",", "datfit", ",", "a0", ",", "m", ",", "y1", ",", "y2", ",", 
+      "A3", ",", "assval", ",", "threshold"}], "}"}], ",", 
+    "\[IndentingNewLine]", "\n", 
+    RowBox[{"(*", " ", 
+     RowBox[{"Loading", " ", "options"}], " ", "*)"}], "\n", 
+    RowBox[{
+     RowBox[{"tol", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Tolerance\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"verbose", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"brack", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Bracketing\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"amax", "=", 
+      RowBox[{"OptionValue", "[", "\"\<MaxIteraton\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"assymptotic", "=", 
+      RowBox[{"OptionValue", "[", "\"\<AssymptoticMatch\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"np", "=", 
+      RowBox[{"OptionValue", "[", "\"\<NPoints\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"assval", "=", 
+      RowBox[{"OptionValue", "[", "\"\<AssymptoticValue\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Some", " ", "auxiliary", " ", "variables"}], " ", "*)"}], "\n", 
+     RowBox[{"eqsRga", "=", "eqsRg"}], ";", "\n", 
+     RowBox[{"varshtdRga", "=", "varshtdRg"}], ";", "\n", 
+     RowBox[{"varsa", "=", 
+      RowBox[{"ToExpression", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\<a\>\""}], ")"}], 
+         "&"}], "/@", "vars"}], "]"}]}], ";", "\n", 
+     RowBox[{"varshta", "=", 
+      RowBox[{"Join", "[", 
+       RowBox[{"varshtdRga", ",", 
+        RowBox[{"{", 
+         RowBox[{"Mean", "[", "varshtdRga", "]"}], "}"}]}], "]"}]}], ";", 
+     "\n", 
+     RowBox[{"ShtStr", "=", 
+      RowBox[{"ToString", "[", 
+       RowBox[{"varsa", "[", 
+        RowBox[{"[", "shtdInd", "]"}], "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"a", "=", "0"}], " ", 
+     RowBox[{"(*", " ", 
+      RowBox[{"auxiliary", " ", "counter"}], " ", "*)"}], " ", ";", "\n", 
+     RowBox[{"i", "=", "0"}], " ", 
+     RowBox[{"(*", " ", 
+      RowBox[{"auxiliary", " ", "counter"}], " ", "*)"}], " ", ";", " ", "\n", 
+     RowBox[{"dvarshta", "=", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"varshta", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "-", 
+         RowBox[{"varshta", "[", 
+          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "np"}]}], ";", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+       RowBox[{"In", " ", 
+        RowBox[{"case", " ", "'"}], 
+        RowBox[{"bracketing", "'"}], " ", "is", " ", "activated"}], ",", " ", 
+       
+       RowBox[{"we", " ", 
+        RowBox[{"split", "  ", "[", 
+         RowBox[{
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "in", " ", "np", " ",
+         "points"}]}], " ", "*)"}], "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "In", " ", "case", " ", "shooting", " ", "is", " ", "not", " ", 
+       "required"}], " ", "*)"}], "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Length", "@", "varshtdRga"}], "\[Equal]", "1"}], ",", "\n", 
+       RowBox[{
+        RowBox[{"eqsht", "=", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"vars", "[", 
+             RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+            RowBox[{"eqsRga", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", 
+           RowBox[{"(", 
+            RowBox[{"varshta", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "}"}]}], ";", "\n", 
+        RowBox[{"eqsht", "=", 
+         RowBox[{"Join", "[", 
+          RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", 
+        RowBox[{"varsa", "=", 
+         RowBox[{"vars", "/.", 
+          RowBox[{"Flatten", "[", 
+           RowBox[{"NDSolve", "[", 
+            RowBox[{
+             RowBox[{"Chop", "[", "eqsht", "]"}], ",", "vars", ",", 
+             RowBox[{"{", 
+              RowBox[{"Global`r", ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "1", "]"}], "]"}], ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+             RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+             RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";", 
+        "\n", 
+        RowBox[{"out", "=", 
+         RowBox[{"Join", "[", 
+          RowBox[{"varsa", ",", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", 
+             RowBox[{"Rationalize", "[", 
+              RowBox[{
+               RowBox[{"varsa", "[", 
+                RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "0"}], "}"}]}], 
+          "]"}]}], ";", "\n", 
+        RowBox[{"Return", "[", "out", "]"}], ";"}]}], "\n", "]"}], ";", "\n", 
+     
+     RowBox[{"(*", " ", 
+      RowBox[{"We", " ", "also", " ", "include", " ", "provide", " ", 
+       RowBox[{"a", " ", "'"}], 
+       RowBox[{"bracketing", "'"}], " ", "option", " ", "in", " ", "case", 
+       " ", "the", " ", "bracketing", " ", "on", " ", "the", " ", "shooting", 
+       " ", "variable", " ", "is", " ", "required"}], " ", "*)"}], "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"brack", ",", "\n", "    ", 
+       RowBox[{
+        RowBox[{"varshtalw", "=", 
+         RowBox[{"Chop", "[", 
+          RowBox[{"varshta", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";", "\n", "\t", 
+        RowBox[{"eqsht", "=", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"vars", "[", 
+             RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+            RowBox[{"eqsRga", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "varshtalw"}],
+           "}"}]}], ";", "\n", "\t", 
+        RowBox[{"eqsht", "=", 
+         RowBox[{"Join", "[", 
+          RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", "\n", "\t", 
+        RowBox[{"varsa", "=", 
+         RowBox[{"vars", "/.", 
+          RowBox[{"Flatten", "[", 
+           RowBox[{"NDSolve", "[", 
+            RowBox[{
+             RowBox[{"Chop", "[", "eqsht", "]"}], ",", "vars", ",", 
+             RowBox[{"{", 
+              RowBox[{"Global`r", ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "1", "]"}], "]"}], ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+             RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+             RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";", 
+        "\n", "\t", 
+        RowBox[{"dom", "=", 
+         RowBox[{
+          RowBox[{"InterpolationDomain", "[", 
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
+          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", "\t", 
+        RowBox[{"(*", 
+         RowBox[{
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"dom", "[", 
+              RowBox[{"[", "2", "]"}], "]"}], "<", 
+             RowBox[{"eqsRga", "[", 
+              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"eqsRga", "[", 
+               RowBox[{"[", "2", "]"}], "]"}], "=", 
+              RowBox[{"Rationalize", "[", 
+               RowBox[{
+                RowBox[{"0.9", "*", 
+                 RowBox[{"eqsRga", "[", 
+                  RowBox[{"[", "2", "]"}], "]"}]}], ",", "1"}], "]"}]}], ";", 
+             
+             RowBox[{"If", "[", 
+              RowBox[{"verbose", ",", 
+               RowBox[{"Print", "[", 
+                RowBox[{
+                 RowBox[{"Style", "[", 
+                  RowBox[{
+                  "\"\< Breakup found. Changing rfin to \>\"", ",", "Red"}], 
+                  "]"}], ",", 
+                 RowBox[{"eqsRga", "[", 
+                  RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], " ", "]"}], ";", 
+             
+             RowBox[{"Goto", "[", "begin", "]"}], ";"}]}], "]"}], ";"}], 
+         "*)"}], "\n", "\t", 
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Sh\[Infinity]m", "<", "0"}], "&&", 
+           RowBox[{"assval", "\[LessEqual]", " ", "1"}]}], ",", " ", 
+          RowBox[{
+           RowBox[{"Print", "[", 
+            RowBox[{"Style", "[", 
+             RowBox[{
+             "\"\< Upper value of the shooted variable is not positive at \
+rmax: Redefine the brackets !\>\"", ",", "Red"}], "]"}], "]"}], ";", " ", 
+           RowBox[{"Return", "[", "]"}], ";"}], ",", "\n", "\t\t  ", 
+          RowBox[{
+           RowBox[{"Sh\[Infinity]m", "<", "1"}], "&&", 
+           RowBox[{"assval", "\[GreaterEqual]", " ", "1"}]}], ",", " ", 
+          RowBox[{
+           RowBox[{"Print", "[", 
+            RowBox[{"Style", "[", 
+             RowBox[{
+             "\"\< Upper value of the shooted variable is <1 at rmax: \
+Redefine the brackets !\>\"", ",", "Red"}], "]"}], "]"}], ";", " ", 
+           RowBox[{"Return", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t\t\t", 
+        "\n", "    ", 
+        RowBox[{"Sh\[Infinity]m", "=", 
+         RowBox[{"-", "0.1"}]}], ";", "  ", "\n", "    ", 
+        RowBox[{"i", "=", "0"}], ";", "\n", "    ", 
+        RowBox[{"If", "[", 
+         RowBox[{
+          RowBox[{"assval", "\[GreaterEqual]", "1"}], ",", 
+          RowBox[{"threshold", "=", "assval"}], ",", 
+          RowBox[{"threshold", "=", "0"}]}], "]"}], ";", "\n", "\t", 
+        RowBox[{"While", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Sh\[Infinity]m", "<", "threshold"}], " ", "&&", " ", 
+           RowBox[{"i", "<", " ", "np"}]}], ",", "\n", "\t\t\t", 
+          RowBox[{
+           RowBox[{"i", "=", 
+            RowBox[{"i", "+", "1"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"varshtalw", "=", 
+            RowBox[{
+             RowBox[{"varshtdRg", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], " ", "+", 
+             RowBox[{"i", "*", "dvarshta"}]}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"eqsht", "=", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"vars", "[", 
+                RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", 
+              "varshtalw"}], "}"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"eqsht", "=", 
+            RowBox[{"Join", "[", 
+             RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"varsa", "=", 
+            RowBox[{"vars", "/.", 
+             RowBox[{"Flatten", "[", 
+              RowBox[{"NDSolve", "[", 
+               RowBox[{"eqsht", ",", "vars", ",", 
+                RowBox[{"{", 
+                 RowBox[{"Global`r", ",", 
+                  RowBox[{"eqsRga", "[", 
+                   RowBox[{"[", "1", "]"}], "]"}], ",", 
+                  RowBox[{"eqsRga", "[", 
+                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+                RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+                RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+                RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+                RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], 
+           ";", "\n", "\t\t\t", 
+           RowBox[{"dom", "=", 
+            RowBox[{
+             RowBox[{"InterpolationDomain", "[", 
+              RowBox[{"varsa", "[", 
+               RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"Sh\[Infinity]m", "=", 
+            RowBox[{"Chop", "[", 
+             RowBox[{
+              RowBox[{"varsa", "[", 
+               RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+              RowBox[{"dom", "[", 
+               RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{
+            RowBox[{"varshta", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "=", 
+            RowBox[{"Chop", "[", "varshtalw", "]"}]}], ";", "\n", "\t\t\t", 
+           RowBox[{"If", "[", 
+            RowBox[{"verbose", ",", " ", 
+             RowBox[{"Print", "[", 
+              RowBox[{
+              "\"\<n: \>\"", ",", "i", ",", 
+               "\"\<. Redefining lower limit as: \>\"", ",", 
+               RowBox[{"varshta", "[", 
+                RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], ";"}]}], 
+         "\n", "\t\t\t", "]"}], ";", "\n", "\t\t\t", 
+        RowBox[{"Return", "[", 
+         RowBox[{"Flatten", "[", 
+          RowBox[{"Join", "[", 
+           RowBox[{
+            RowBox[{"varshta", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
+            RowBox[{"{", "i", "}"}]}], "]"}], "]"}], "]"}], ";"}]}], "\n", 
+      "]"}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{
+      "First", " ", "estimates", " ", "on", " ", "the", " ", "value", " ", 
+       "of", " ", "the", " ", "shooted", " ", "variable", " ", "at", "  ", 
+       RowBox[{
+        RowBox[{"eqsRg1", "[", 
+         RowBox[{"[", "2", "]"}], "]"}], ".", " ", "There"}], " ", "is", " ", 
+       "a", " ", "goto", " ", "to", " ", "correct", " ", "possible", " ", 
+       "breakups", " ", "on", " ", "the", " ", 
+       RowBox[{"equations", ".", " ", "We"}], " ", "also", " ", "include", 
+       " ", "provide", " ", 
+       RowBox[{"a", " ", "'"}], 
+       RowBox[{"bracketing", "'"}], " ", "option", " ", "in", " ", "case", 
+       " ", "the", " ", "bracketing", " ", "on", " ", "the", " ", "unknown", 
+       " ", "variable", " ", "is", " ", "needed"}], "*)"}], "\n", 
+     RowBox[{"Label", "[", "begin", "]"}], ";", "\n", "\t\t", 
+     RowBox[{"Sh\[Infinity]", "=", 
+      RowBox[{"Table", "[", "\n", "\t\t\t", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqsht", "=", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"vars", "[", 
+              RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+             RowBox[{"eqsRga", "[", 
+              RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", 
+            RowBox[{"(", 
+             RowBox[{"varshta", "[", 
+              RowBox[{"[", "i", "]"}], "]"}], ")"}]}], "}"}]}], ";", "\n", 
+         "\t\t\t", 
+         RowBox[{"eqsht", "=", 
+          RowBox[{"Join", "[", 
+           RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"varsa", "=", 
+          RowBox[{"vars", "/.", 
+           RowBox[{"Flatten", "[", 
+            RowBox[{"NDSolve", "[", 
+             RowBox[{"eqsht", ",", "vars", ",", 
+              RowBox[{"{", 
+               RowBox[{"Global`r", ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "1", "]"}], "]"}], ",", 
+                RowBox[{"eqsRga", "[", 
+                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+              RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+              RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+              RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";",
+          "\n", "\t\t\t", 
+         RowBox[{"dom", "=", 
+          RowBox[{
+           RowBox[{"InterpolationDomain", "[", 
+            RowBox[{"varsa", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
+           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", "\t\t\t", 
+         RowBox[{"(*", 
+          RowBox[{
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"dom", "[", 
+               RowBox[{"[", "2", "]"}], "]"}], "<", 
+              RowBox[{"eqsRga", "[", 
+               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "2", "]"}], "]"}], "=", 
+               RowBox[{"Rationalize", "[", 
+                RowBox[{
+                 RowBox[{"0.9", "*", 
+                  RowBox[{"eqsRga", "[", 
+                   RowBox[{"[", "2", "]"}], "]"}]}], ",", "1"}], "]"}]}], ";", 
+              RowBox[{"If", "[", 
+               RowBox[{"verbose", ",", 
+                RowBox[{"Print", "[", 
+                 RowBox[{
+                  RowBox[{"Style", "[", 
+                   RowBox[{
+                   "\"\< Breakup found. Changing rfin to \>\"", ",", "Red"}], 
+                   "]"}], ",", 
+                  RowBox[{"eqsRga", "[", 
+                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], " ", "]"}], ";", 
+              RowBox[{"Goto", "[", "begin", "]"}], ";"}]}], "]"}], ";"}], 
+          "*)"}], "\n", "\t\t\t", 
+         RowBox[{"Sh\[Infinity]m", "=", 
+          RowBox[{
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+           RowBox[{"dom", "[", 
+            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\n", "\t\t\t", ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"Sh\[Infinity]m", "=", 
+      RowBox[{"Sh\[Infinity]", "[", 
+       RowBox[{"[", "3", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"Sh0m", "=", 
+      RowBox[{"varshta", "[", 
+       RowBox[{"[", "3", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"posref", "=", 
+      RowBox[{
+       RowBox[{"Position", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"Abs", "[", 
+            RowBox[{"Sh\[Infinity]", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+           RowBox[{"Abs", "[", 
+            RowBox[{"Sh\[Infinity]", "[", 
+             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
+         RowBox[{"_", "?", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"#", "\[Equal]", 
+             RowBox[{"Min", "[", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"Abs", "[", 
+                 RowBox[{"Sh\[Infinity]", "[", 
+                  RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+                RowBox[{"Abs", "[", 
+                 RowBox[{"Sh\[Infinity]", "[", 
+                  RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "]"}]}], 
+            " ", "&"}], ")"}]}]}], "]"}], "[", 
+       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"Sh\[Infinity]m2", "=", 
+      RowBox[{
+       RowBox[{"Sh\[Infinity]", "[", 
+        RowBox[{"[", "posref", "]"}], "]"}], "[", 
+       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"Sh0m2", "=", 
+      RowBox[{"varshtdRga", "[", 
+       RowBox[{"[", "posref", "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"Sh0ref", "=", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{"{", 
+        RowBox[{"Sh0m", ",", "Sh0m2"}], "}"}], "]"}]}], ";", "\n", 
+     RowBox[{"mean", "=", 
+      RowBox[{"Mean", "[", "Sh0ref", "]"}]}], ";", "\n", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Starts", " ", "the", " ", "shooting", " ", 
+       RowBox[{"loop", "."}]}], " ", "*)"}], "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{"Print", "[", 
+        RowBox[{
+        "\"\<Output: vars, a, \>\"", "<>", "ShtStr", "<>", 
+         "\"\< variable at \[Infinity], Error\>\""}], "]"}]}], "]"}], ";", 
+     "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{"Print", "[", 
+        RowBox[{
+        "\"\<Intermediate prints: iteration, \>\"", "<>", "ShtStr", "<>", 
+         "\"\< at \[Infinity], Error\>\""}], "]"}]}], "]"}], ";", "\n", "\n", 
+     
+     RowBox[{"While", "[", " ", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"Abs", "[", "Sh\[Infinity]m", "]"}], ">", "assval"}], " ", "&&", 
+        RowBox[{
+         RowBox[{"Abs", "[", 
+          RowBox[{"1", "-", 
+           RowBox[{"Sh\[Infinity]m", "/", "Sh\[Infinity]m2"}]}], "]"}], ">", 
+         "tol"}], " ", "&&", " ", 
+        RowBox[{
+         RowBox[{"Length", "@", "posref"}], ">", "0"}], " ", "&&", " ", 
+        RowBox[{"a", "\[LessEqual]", " ", "amax"}]}], ",", "\n", 
+       RowBox[{
+        RowBox[{"a", "=", 
+         RowBox[{"a", "+", "1"}]}], ";", "\n", 
+        RowBox[{"If", "[", 
+         RowBox[{"verbose", ",", 
+          RowBox[{"Print", "[", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", 
+             RowBox[{"Round", "[", 
+              RowBox[{"mean", ",", 
+               RowBox[{"10", "^", 
+                RowBox[{"-", "16"}]}]}], "]"}], ",", 
+             RowBox[{
+              RowBox[{"varsa", "[", 
+               RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+              RowBox[{"dom", "[", 
+               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+             RowBox[{"Abs", "[", 
+              RowBox[{"1", "-", 
+               RowBox[{"Sh\[Infinity]m", "/", "Sh\[Infinity]m2"}]}], "]"}]}], 
+            "}"}], "]"}]}], "]"}], ";", "\n", 
+        RowBox[{"eqsht", "=", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"vars", "[", 
+             RowBox[{"[", "shtdInd", "]"}], "]"}], "[", 
+            RowBox[{"eqsRga", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "mean"}], 
+          "}"}]}], ";", "\n", 
+        RowBox[{"eqsht", "=", 
+         RowBox[{"Join", "[", 
+          RowBox[{"eqs", ",", "eqsht"}], "]"}]}], ";", "\n", 
+        RowBox[{"varsa", "=", 
+         RowBox[{"vars", "/.", 
+          RowBox[{"Flatten", "[", 
+           RowBox[{"NDSolve", "[", 
+            RowBox[{"eqsht", ",", "vars", ",", 
+             RowBox[{"{", 
+              RowBox[{"Global`r", ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "1", "]"}], "]"}], ",", 
+               RowBox[{"eqsRga", "[", 
+                RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\n", 
+             RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+             RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+             RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}], "]"}]}]}], ";", 
+        "\n", 
+        RowBox[{"(*", 
+         RowBox[{
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"dom", "[", 
+              RowBox[{"[", "2", "]"}], "]"}], "<", 
+             RowBox[{"eqsRga", "[", 
+              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"eqsRga", "[", 
+               RowBox[{"[", "2", "]"}], "]"}], "=", 
+              RowBox[{"Rationalize", "[", 
+               RowBox[{
+                RowBox[{"0.9", "*", 
+                 RowBox[{"eqsRga", "[", 
+                  RowBox[{"[", "2", "]"}], "]"}]}], ",", "1"}], "]"}]}], ";", 
+             
+             RowBox[{"If", "[", 
+              RowBox[{"verbose", ",", 
+               RowBox[{"Print", "[", 
+                RowBox[{
+                 RowBox[{"Style", "[", 
+                  RowBox[{
+                  "\"\< Breakup found. Changing rfin to \>\"", ",", "Red"}], 
+                  "]"}], ",", 
+                 RowBox[{"eqsRga", "[", 
+                  RowBox[{"[", "2", "]"}], "]"}]}], " ", "]"}]}], "]"}], ";", 
+             
+             RowBox[{"Goto", "[", "begin", "]"}], ";"}]}], "]"}], ";"}], 
+         "*)"}], "\[IndentingNewLine]", 
+        RowBox[{"dom", "=", 
+         RowBox[{
+          RowBox[{"InterpolationDomain", "[", 
+           RowBox[{"varsa", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
+          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
+        RowBox[{"Which", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"assymptotic", "==", "\"\<Exponential\>\""}], "&&", 
+           RowBox[{
+            RowBox[{"dom", "[", 
+             RowBox[{"[", "2", "]"}], "]"}], "==", 
+            RowBox[{"eqsRga", "[", 
+             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", "\n", "\t\t\t\t\t", 
+          RowBox[{
+           RowBox[{"Rs", "=", 
+            RowBox[{"0.95", 
+             RowBox[{"(", 
+              RowBox[{"r", "/.", 
+               RowBox[{"FindRoot", "[", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"varsa", "[", 
+                   RowBox[{"[", "1", "]"}], "]"}], "@", "r"}], ",", 
+                 RowBox[{"{", 
+                  RowBox[{"r", ",", "6"}], "}"}]}], "]"}]}], ")"}]}]}], ";", 
+           RowBox[{"datab", "=", 
+            RowBox[{"Table", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{"r", ",", 
+                RowBox[{
+                 RowBox[{"varsa", "[", 
+                  RowBox[{"[", "shtdInd", "]"}], "]"}], "@", "r"}]}], "}"}], 
+              ",", 
+              RowBox[{"{", 
+               RowBox[{"r", ",", "Rs", ",", 
+                RowBox[{"dom", "[", 
+                 RowBox[{"[", "2", "]"}], "]"}], ",", "0.01"}], "}"}]}], 
+             "]"}]}], ";", "\n", "\t\t\t\t\t", 
+           RowBox[{"y1", "=", 
+            RowBox[{
+             RowBox[{"varsa", "[", 
+              RowBox[{"[", "shtdInd", "]"}], "]"}], "@", "Rs"}]}], ";", 
+           RowBox[{"y2", "=", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"D", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"varsa", "[", 
+                  RowBox[{"[", "shtdInd", "]"}], "]"}], "@", "r"}], ",", 
+                "r"}], "]"}], "/.", 
+              RowBox[{"r", "\[Rule]", "Rs"}]}], ")"}]}], ";", 
+           RowBox[{"m", "=", 
+            FractionBox[
+             RowBox[{
+              RowBox[{"-", "y1"}], "-", 
+              RowBox[{
+               SuperscriptBox["Rs", "2"], " ", "y2"}]}], 
+             RowBox[{"Rs", " ", "y1"}]]}], ";", 
+           RowBox[{"a0", "=", " ", "y1"}], ";", "  ", "\n", "\t\t\t\t\t", 
+           RowBox[{"datfit", "=", 
+            RowBox[{"NonlinearModelFit", "[", 
+             RowBox[{"datab", ",", 
+              RowBox[{"A3", " ", "+", " ", 
+               RowBox[{"a0", " ", 
+                RowBox[{"Exp", "[", 
+                 RowBox[{
+                  RowBox[{"-", "r"}], " ", "m"}], "]"}]}]}], ",", 
+              RowBox[{"{", "A3", "}"}], ",", "r"}], "]"}]}], ";", 
+           RowBox[{"Print", "[", 
+            RowBox[{"{", 
+             RowBox[{"a0", ",", "m", ",", 
+              RowBox[{"datfit", "[", "\"\<BestFitParameters\>\"", "]"}]}], 
+             "}"}], "]"}]}]}], "]"}], ";", "\n", "\n", 
+        RowBox[{"posreftest", "=", 
+         RowBox[{"Quiet", "@", 
+          RowBox[{"Position", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"Abs", "[", "Sh\[Infinity]m", "]"}], ",", 
+              RowBox[{"Abs", "[", 
+               RowBox[{
+                RowBox[{"varsa", "[", 
+                 RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+                RowBox[{"dom", "[", 
+                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
+            RowBox[{"_", "?", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"#", "\[Equal]", 
+                RowBox[{"Min", "[", 
+                 RowBox[{"{", 
+                  RowBox[{
+                   RowBox[{"Abs", "@", "Sh\[Infinity]m"}], ",", 
+                   RowBox[{"Abs", "[", 
+                    RowBox[{
+                    RowBox[{"varsa", "[", 
+                    RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+                    RowBox[{"dom", "[", 
+                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}],
+                " ", "&"}], ")"}]}]}], "]"}]}]}], ";", "\n", 
+        RowBox[{"If", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Length", "@", "posreftest"}], ">", "0"}], ",", 
+          RowBox[{"posref", "=", 
+           RowBox[{"posreftest", "[", 
+            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+          RowBox[{
+           RowBox[{"posref", "=", 
+            RowBox[{"{", "}"}]}], ";"}]}], "]"}], ";", "\n", 
+        RowBox[{"Sh0ref", "=", 
+         RowBox[{"{", 
+          RowBox[{"mean", ",", 
+           RowBox[{
+            RowBox[{"Sh0ref", "[", 
+             RowBox[{"[", "posref", "]"}], "]"}], "[", 
+            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\n", 
+        RowBox[{"mean", "=", 
+         RowBox[{"Mean", "[", "Sh0ref", "]"}]}], ";", "\n", 
+        RowBox[{"Sh\[Infinity]m2", "=", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"Sh\[Infinity]m", ",", "Sh\[Infinity]m2"}], "}"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"posref", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", 
+        RowBox[{"Sh\[Infinity]m", "=", 
+         RowBox[{
+          RowBox[{"varsa", "[", 
+           RowBox[{"[", "shtdInd", "]"}], "]"}], "@", 
+          RowBox[{"dom", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}]}], "\n", "]"}], ";", 
+     "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"verbose", ",", 
+       RowBox[{
+       "Print", "[", 
+        "\"\<Output: vars, a, Shooted variable at \[Infinity]\>\"", "]"}]}], 
+      "]"}], ";", "\n", 
+     RowBox[{"out", "=", 
+      RowBox[{"Join", "[", 
+       RowBox[{"varsa", ",", 
+        RowBox[{"{", 
+         RowBox[{"a", ",", 
+          RowBox[{"Round", "[", 
+           RowBox[{"mean", ",", 
+            RowBox[{"10", "^", 
+             RowBox[{"-", "8"}]}]}], "]"}], ",", "Sh\[Infinity]m"}], "}"}]}], 
+       "]"}]}], ";", "\n", 
+     RowBox[{"Return", "[", "out", "]"}]}]}], "\n", "]"}]}]}], "Code",
+ CellChangeTimes->{
+  3.79973132804825*^9, {3.799731462954661*^9, 3.799731711660716*^9}, {
+   3.7997317498154182`*^9, 3.7997317681642523`*^9}, {3.79973188045234*^9, 
+   3.799731881873639*^9}, {3.7997319261085253`*^9, 3.799731946183775*^9}, {
+   3.799732009726982*^9, 3.7997320366818933`*^9}, {3.799732111777755*^9, 
+   3.799732162777128*^9}, {3.799732591774303*^9, 3.7997327094297857`*^9}, {
+   3.7997328252819777`*^9, 3.799732837220436*^9}, {3.799732878784581*^9, 
+   3.799732910613446*^9}, {3.799732941200338*^9, 3.799732944962673*^9}, {
+   3.799733073032421*^9, 3.7997330746113033`*^9}, {3.79974077838758*^9, 
+   3.799740829259706*^9}, {3.7997408670443077`*^9, 3.799740894264741*^9}, {
+   3.799740927096403*^9, 3.7997410369355392`*^9}, {3.799741070160769*^9, 
+   3.799741070337734*^9}, {3.7997416472544727`*^9, 3.799741652395482*^9}, {
+   3.79974169347393*^9, 3.799741705481552*^9}, {3.799741738093545*^9, 
+   3.7997417439083357`*^9}, {3.7997418202668943`*^9, 
+   3.799741822715159*^9}},ExpressionUUID->"e1458f8c-3b97-46d7-89b5-\
+d99de78240e7"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ComputeEdges", "[", "pts_", "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"ptsx", ",", "auxvar", ",", "auxvar2", ",", "nears", ",", "i"}], 
+     "}"}], ",", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"ptsx", "=", 
+      RowBox[{"SortBy", "[", 
+       RowBox[{"pts", ",", "First"}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"auxvar", "=", 
+      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"auxvar", ",", 
+       RowBox[{"{", 
+        RowBox[{"ptsx", "[", 
+         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"While", "[", 
+      RowBox[{
+       RowBox[{"i", "\[LessEqual]", " ", 
+        RowBox[{
+         RowBox[{"Length", "@", "ptsx"}], "-", "1"}]}], ",", 
+       "\[IndentingNewLine]", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"ptsx", "[", 
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "\[Equal]", 
+          RowBox[{"ptsx", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"i", "=", 
+          RowBox[{"i", "+", "1"}]}], ",", 
+         RowBox[{
+          RowBox[{"AppendTo", "[", 
+           RowBox[{"auxvar", ",", 
+            RowBox[{"{", 
+             RowBox[{"ptsx", "[", 
+              RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ";", 
+          RowBox[{"i", "=", 
+           RowBox[{"i", "+", "1"}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
+      "]"}], ";", "\n", 
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"auxvar", ",", 
+       RowBox[{"{", 
+        RowBox[{"ptsx", "[", 
+         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"auxvar", "=", 
+      RowBox[{"Flatten", "[", 
+       RowBox[{"auxvar", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
+     "\[IndentingNewLine]", 
+     RowBox[{"i", "=", 
+      RowBox[{
+       RowBox[{"Length", "@", "ptsx"}], "-", "1"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"While", "[", 
+      RowBox[{
+       RowBox[{"i", ">", " ", "1"}], ",", "\[IndentingNewLine]", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"ptsx", "[", 
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "\[Equal]", 
+          RowBox[{"ptsx", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"i", "=", 
+          RowBox[{"i", "-", "1"}]}], ",", 
+         RowBox[{
+          RowBox[{"AppendTo", "[", 
+           RowBox[{"auxvar", ",", 
+            RowBox[{"ptsx", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], ";", 
+          RowBox[{"i", "=", 
+           RowBox[{"i", "-", "1"}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
+      "]"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"auxvar", ",", 
+       RowBox[{"ptsx", "[", 
+        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ";", "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{"auxvar", "=", 
+        RowBox[{"AppendTo", "[", 
+         RowBox[{"auxvar", ",", 
+          RowBox[{
+           RowBox[{"0.5", 
+            RowBox[{"auxvar", "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], "+", 
+           RowBox[{"0.5", 
+            RowBox[{"auxvar", "[", 
+             RowBox[{"[", 
+              RowBox[{"-", "1"}], "]"}], "]"}]}]}]}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "3"}], "}"}]}], "]"}], ";", "\n", "auxvar"}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Code",
+ CellChangeTimes->{{3.7270780261808033`*^9, 3.727078367544442*^9}, {
+   3.727078412718236*^9, 3.727078446148488*^9}, {3.7270788051632233`*^9, 
+   3.727078942744878*^9}, {3.727078972807558*^9, 3.727079009504081*^9}, {
+   3.727079053357842*^9, 3.727079086716103*^9}, {3.727079119464673*^9, 
+   3.727079144011499*^9}, {3.727079192508121*^9, 3.7270791935701237`*^9}, {
+   3.727079233075204*^9, 3.727079235298113*^9}, {3.7270792706696873`*^9, 
+   3.7270793541604652`*^9}, {3.72707944078446*^9, 3.727079545975816*^9}, {
+   3.7270795801007843`*^9, 3.727079664676605*^9}, {3.727079737277177*^9, 
+   3.727079765874894*^9}, {3.727079800690583*^9, 3.727079917506434*^9}, 
+   3.727079950979056*^9, {3.727080144928927*^9, 3.727080237460853*^9}, {
+   3.727086462169712*^9, 3.727086476564146*^9}, {3.727086719248723*^9, 
+   3.7270867241908417`*^9}, {3.727086755686036*^9, 3.727086783834373*^9}, {
+   3.727086816368319*^9, 3.727086819224812*^9}, {3.727086858001993*^9, 
+   3.7270868598473787`*^9}, 3.727086912376411*^9, {3.727086968164791*^9, 
+   3.7270869829764547`*^9}, {3.727087029989292*^9, 3.727087081467873*^9}, {
+   3.7270871220252647`*^9, 3.727087154983006*^9}},
+ CellLabel->
+  "In[332]:=",ExpressionUUID->"e6aac64f-ed9a-4985-a3a8-ab479f3330ca"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"CredibleRegion", "[", 
+   RowBox[{"data_", ",", "level_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"datasrt", ",", "prob", ",", "cumprob", ",", "pbound"}], "}"}], 
+    ",", "\[IndentingNewLine]", 
+    RowBox[{"(*", " ", 
+     RowBox[{
+     "Last", " ", "column", " ", "must", " ", "be", " ", "the", " ", "PDF"}], 
+     " ", "*)"}], "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"datasrt", "=", 
+      RowBox[{"SortBy", "[", 
+       RowBox[{"data", ",", "Last"}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"prob", "=", 
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"datasrt", ",", 
+        RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"cumprob", "=", 
+      RowBox[{"Accumulate", "[", "prob", "]"}]}], ";", "\[IndentingNewLine]", 
+     "\[IndentingNewLine]", 
+     RowBox[{"pbound", "=", 
+      RowBox[{"Quiet", "@", 
+       RowBox[{
+        RowBox[{"Position", "[", 
+         RowBox[{"cumprob", ",", 
+          RowBox[{"_", "?", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"#", "\[GreaterEqual]", " ", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{"1", "-", "level"}], ")"}], " ", 
+               RowBox[{"cumprob", "[", 
+                RowBox[{"[", 
+                 RowBox[{"-", "1"}], "]"}], "]"}]}]}], "&"}], " ", ")"}]}], 
+          ",", "1"}], "]"}], "[", 
+        RowBox[{"[", 
+         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"ComputeEdges", "[", 
+       RowBox[{"datasrt", "[", 
+        RowBox[{"[", 
+         RowBox[{
+          RowBox[{"pbound", "-", "1"}], ";;", 
+          RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "[", 
+      RowBox[{"[", 
+       RowBox[{"All", ",", 
+        RowBox[{"1", ";;", 
+         RowBox[{"-", "2"}]}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
+   "]"}]}]], "Code",
+ CellChangeTimes->{{3.727085638710692*^9, 3.727086166871532*^9}, {
+  3.727086350134569*^9, 3.727086354171822*^9}, {3.727086495579674*^9, 
+  3.727086500904457*^9}, {3.727087205977934*^9, 3.727087223249645*^9}, {
+  3.7270872730889273`*^9, 3.727087293807783*^9}, {3.727087331307283*^9, 
+  3.727087369650372*^9}},
+ CellLabel->
+  "In[333]:=",ExpressionUUID->"7be546aa-ffdd-4c64-bb5a-8e664f9d3df8"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoveNumber", "[", 
+    RowBox[{"eos_", ",", "mtot_"}], "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "y", ",", "r", ",", "p", ",", "\[Epsilon]", ",", "m", ",", "eqy", ",", 
+       "\[CapitalGamma]", ",", "eqsGR", ",", "listeos", ",", "yy", ",", "zz", 
+       ",", "eqEoS", ",", "\[Rho]int", ",", "pint", ",", "rin", ",", 
+       "\[Rho]c", ",", "pc", ",", "eqsIC", ",", "rMax", ",", "alleqs", ",", 
+       "alleqsnd", ",", "Pr", ",", "mr", ",", "yr", ",", "Rm", ",", "Mm", ",",
+        "Cc", ",", "G", ",", "c", ",", "m0", ",", "rg", ",", "P0", ",", 
+       "\[Rho]0", ",", "R0"}], "}"}], ",", "\n", "\n", 
+     RowBox[{
+      RowBox[{"G", "=", 
+       RowBox[{"6.67428", " ", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "8"}]}]}]}], ";", "\n", 
+      RowBox[{"c", "=", 
+       RowBox[{"2.99792458", " ", 
+        RowBox[{"10", "^", "10"}]}]}], ";", "\n", 
+      RowBox[{"m0", "=", 
+       RowBox[{"1.989", " ", 
+        RowBox[{"10", "^", "33"}]}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"rg", "=", " ", 
+       RowBox[{"G", " ", 
+        RowBox[{"m0", "/", 
+         RowBox[{"c", "^", "2"}]}]}]}], ";", "\n", 
+      RowBox[{"P0", "=", 
+       RowBox[{"m0", " ", 
+        RowBox[{
+         RowBox[{"c", "^", "2"}], "/", 
+         RowBox[{"rg", "^", "3"}]}]}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"\[Rho]0", "=", 
+       RowBox[{"m0", "/", 
+        RowBox[{"rg", "^", "3"}]}]}], ";", "\n", 
+      RowBox[{"R0", "=", 
+       RowBox[{"1", "/", 
+        RowBox[{"rg", "^", "2"}]}]}], ";", "\n", "\n", 
+      RowBox[{"eqEoS", "=", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "==", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"10", "^", 
+             RowBox[{"EoSFits", "[", "eos", "]"}]}], "/.", 
+            RowBox[{"\[Rho]", "\[Rule]", 
+             RowBox[{"Log", "[", 
+              RowBox[{"10", ",", 
+               RowBox[{"\[Rho]0", " ", 
+                RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+          "P0"}]}], "}"}]}], ";", "\n", 
+      RowBox[{"listeos", "=", 
+       RowBox[{"Table", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"EoSFits", "[", "eos", "]"}], "/.", 
+             RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"From\[Rho]To\[Epsilon]Fits", "[", "eos", "]"}], "/.", 
+             RowBox[{"\[Rho]", "\[Rule]", 
+              RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"x", ",", "1", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+      ";", "\n", 
+      RowBox[{"\[Rho]int", "=", 
+       RowBox[{"Interpolation", "[", 
+        RowBox[{"listeos", "/.", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+            RowBox[{
+             RowBox[{"(", "zz", ")"}], "/", 
+             RowBox[{"(", " ", "\[Rho]0", ")"}]}]}], "}"}]}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"pint", "=", 
+       RowBox[{"Interpolation", "[", 
+        RowBox[{"listeos", "/.", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", "zz", ")"}], "/", 
+             RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+        "]"}]}], ";", "\n", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{
+        RowBox[{"Equations", " ", "1"}], "-", 
+        RowBox[{"2", " ", "GR", " ", 
+         RowBox[{"ToVs", ".", " ", "Equation"}], " ", "3", " ", "k2", " ", 
+         RowBox[{"eq", "."}]}]}], " ", "*)"}], "\n", 
+      RowBox[{"eqsGR", "=", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{
+           FractionBox[
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"m", "[", "r", "]"}], "+", 
+               RowBox[{"4", " ", "\[Pi]", " ", 
+                SuperscriptBox["r", "3"], " ", 
+                RowBox[{"p", "[", "r", "]"}]}]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"p", "[", "r", "]"}], "+", 
+               RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["r", "2"], "-", 
+             RowBox[{"2", " ", "r", " ", 
+              RowBox[{"m", "[", "r", "]"}]}]}]], "+", 
+           RowBox[{
+            SuperscriptBox["p", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", "0"}], 
+         ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"4", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["m", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", "0"}]}],
+         "}"}]}], ";", "\n", 
+      RowBox[{"eqy", "=", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"y", "'"}], "[", "r", "]"}], "==", 
+         RowBox[{
+          RowBox[{"-", 
+           FractionBox[
+            SuperscriptBox[
+             RowBox[{"y", "[", "r", "]"}], "2"], "r"]}], "-", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"r", "+", 
+             RowBox[{"4", "\[Pi]", " ", 
+              SuperscriptBox["r", "3"], 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"p", "[", "r", "]"}], "-", 
+                RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}]}], 
+            RowBox[{"r", 
+             RowBox[{"(", 
+              RowBox[{"r", "-", 
+               RowBox[{"2", 
+                RowBox[{"m", "[", "r", "]"}]}]}], ")"}]}]], 
+           RowBox[{"y", "[", "r", "]"}]}], "+", 
+          FractionBox[
+           RowBox[{"4", 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"m", "[", "r", "]"}], " ", "+", 
+               RowBox[{"4", "\[Pi]", " ", 
+                SuperscriptBox["r", "3"], 
+                RowBox[{"p", "[", "r", "]"}]}]}], ")"}], "2"]}], 
+           RowBox[{"r", 
+            RowBox[{"(", 
+             RowBox[{"r", "-", 
+              RowBox[{"2", 
+               RowBox[{"m", "[", "r", "]"}]}]}], ")"}]}]], "+", 
+          FractionBox["6", 
+           RowBox[{"r", "-", 
+            RowBox[{"2", 
+             RowBox[{"m", "[", "r", "]"}]}]}]], "-", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"4", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"]}], 
+            RowBox[{"r", "-", 
+             RowBox[{"2", 
+              RowBox[{"m", "[", "r", "]"}]}]}]], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"5", 
+              RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+             RowBox[{"9", 
+              RowBox[{"p", "[", "r", "]"}]}], "+", 
+             FractionBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"\[Rho]", "[", "r", "]"}], "  ", "+", 
+                RowBox[{"p", "[", "r", "]"}]}], ")"}], 
+              RowBox[{"D", "[", 
+               RowBox[{
+                RowBox[{"pint", "@", 
+                 RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", 
+                RowBox[{"\[Rho]", "[", "r", "]"}]}], "]"}]]}], ")"}]}]}]}], 
+        "}"}]}], ";", "\n", 
+      RowBox[{"alleqs", "=", 
+       RowBox[{"Join", "[", 
+        RowBox[{"eqsGR", ",", "eqy"}], "]"}]}], ";", "\n", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", "--"}]}]}], "*)"}], "\n", "\n", 
+      RowBox[{"(*", " ", 
+       RowBox[{"Solve", " ", "the", " ", "system"}], " ", "*)"}], "\n", 
+      RowBox[{"\[Rho]c", "=", 
+       RowBox[{
+        RowBox[{"\[Rho]max", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "0.76"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"rin", "=", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"pc", "=", 
+       RowBox[{
+        RowBox[{"eqEoS", "[", 
+         RowBox[{"[", 
+          RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}]}], ";", "\n", 
+      "\[IndentingNewLine]", 
+      RowBox[{"eqsIC", "=", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"p", "[", "rin", "]"}], "\[Equal]", "pc"}], ",", 
+         RowBox[{
+          RowBox[{"m", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+         RowBox[{
+          RowBox[{"y", "[", "rin", "]"}], "\[Equal]", "2"}], ",", 
+         RowBox[{"WhenEvent", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"p", "[", "r", "]"}], "/", "pc"}], "<", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "12"}], ")"}]}]}], ",", 
+           RowBox[{
+            RowBox[{"rMax", "=", "r"}], ";", "\"\<StopIntegration\>\""}]}], 
+          "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"alleqsnd", "=", 
+       RowBox[{
+        RowBox[{"alleqs", "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+          RowBox[{"\[Rho]int", "[", 
+           RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"Max", "[", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], ",", "0"}], "]"}]}]}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"Pr", ",", "mr", ",", "yr"}], "}"}], "=", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p", ",", "m", ",", "y"}], "}"}], "/.", 
+        RowBox[{"Flatten", "[", 
+         RowBox[{"NDSolve", "[", 
+          RowBox[{
+           RowBox[{"Flatten", "@", 
+            RowBox[{"Join", "[", 
+             RowBox[{"alleqsnd", ",", 
+              RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m", ",", "y"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"r", ",", "rin", ",", "100"}], "}"}], ",", 
+           RowBox[{"Method", "\[Rule]", 
+            RowBox[{"{", 
+             RowBox[{"\"\<ExplicitRungeKutta\>\"", ",", 
+              RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "8"}]}], "}"}]}], 
+           ",", 
+           RowBox[{"AccuracyGoal", "\[Rule]", "16"}], ",", 
+           RowBox[{"PrecisionGoal", "\[Rule]", "13"}]}], "]"}], "]"}]}]}], 
+      ";", "\n", 
+      RowBox[{"Rm", "=", 
+       RowBox[{
+        RowBox[{"InterpolationDomain", "[", "Pr", "]"}], "[", 
+        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"Mm", "=", 
+       RowBox[{"(", 
+        RowBox[{"mr", "@", "Rm"}], ")"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"Cc", "=", 
+       RowBox[{"Mm", "/", 
+        RowBox[{"(", "Rm", ")"}]}]}], ";", "\n", "\n", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "/", "3"}], 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"c", "^", "2"}], "/", "G"}], ")"}], 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"rg", " ", "Rm"}], ")"}], "/", 
+             RowBox[{"(", 
+              RowBox[{"Mm", "*", "m0"}], ")"}]}]}], ")"}], "^", "5"}]}], 
+        ")"}], 
+       RowBox[{"k2", "[", 
+        RowBox[{"Cc", ",", 
+         RowBox[{"yr", "[", "Rm", "]"}]}], "]"}]}]}]}], "\n", "\n", "]"}]}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.73417831598398*^9, 3.734178420681381*^9}, {
+   3.734178463059918*^9, 3.734178967657915*^9}, {3.7341790475686417`*^9, 
+   3.734179190390414*^9}, {3.734179223182646*^9, 3.734179241367835*^9}, {
+   3.734179273050569*^9, 3.7341793049761963`*^9}, {3.734179372822768*^9, 
+   3.73417943197971*^9}, {3.7341795658592243`*^9, 3.734179566561613*^9}, 
+   3.734179616994851*^9, {3.7341796503691998`*^9, 3.7341796570182323`*^9}, {
+   3.7341796953523073`*^9, 3.73417975391054*^9}, {3.7341797871597977`*^9, 
+   3.734179826049204*^9}, 3.734179858906621*^9, {3.734180039857833*^9, 
+   3.734180067739147*^9}, 3.7341801783197527`*^9, {3.7341802554961443`*^9, 
+   3.734180273371263*^9}, {3.734180351582761*^9, 3.734180378835738*^9}, 
+   3.734180449780846*^9, {3.763181843016273*^9, 3.76318187260286*^9}},
+ CellLabel->
+  "In[334]:=",ExpressionUUID->"d6deea87-8b23-4703-b744-10e2878359aa"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k2", "[", 
+   RowBox[{"c_", ",", "y_"}], "]"}], ":=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"8", " ", 
+      RowBox[{"c", "^", "5"}]}], ")"}], "/", "5"}], " ", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"1", "-", 
+      RowBox[{"2", "c"}]}], ")"}], "^", "2"}], 
+   RowBox[{"(", 
+    RowBox[{"2", "+", 
+     RowBox[{"2", "c", 
+      RowBox[{"(", 
+       RowBox[{"y", "-", "1"}], ")"}]}], "-", "y"}], ")"}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", "c", 
+       RowBox[{"(", 
+        RowBox[{"6", "-", 
+         RowBox[{"3", "y"}], " ", "+", 
+         RowBox[{"3", "c", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"5", "y"}], "-", "8"}], ")"}]}]}], ")"}]}], "+", 
+      RowBox[{"4", 
+       RowBox[{"c", "^", "3"}], 
+       RowBox[{"(", 
+        RowBox[{"13", "-", 
+         RowBox[{"11", "y"}], "+", 
+         RowBox[{"c", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"3", "y"}], "-", "2"}], ")"}]}], "+", 
+         RowBox[{"2", 
+          RowBox[{"c", "^", "2"}], 
+          RowBox[{"(", 
+           RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], "\n", "+", 
+      RowBox[{"3", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", "c"}]}], ")"}], "^", "2"}], 
+       RowBox[{"(", 
+        RowBox[{"2", "-", "y", "+", 
+         RowBox[{"2", "c", 
+          RowBox[{"(", 
+           RowBox[{"y", "-", "1"}], ")"}]}]}], ")"}], 
+       RowBox[{"Log", "[", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", "c"}]}], "]"}]}]}], ")"}], "^", 
+    RowBox[{"(", 
+     RowBox[{"-", "1"}], ")"}]}]}]}]], "Code",
+ CellLabel->
+  "In[335]:=",ExpressionUUID->"bacae793-9bc9-412c-98f5-04742466300a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Other functions", "Section",
+ CellChangeTimes->{{3.795343495994857*^9, 
+  3.795343498538759*^9}},ExpressionUUID->"2607a84f-8136-4555-8578-\
+9ef48f892b15"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"AtomsList", "[", "expr_", "]"}], ":=", 
+   RowBox[{"Union", "@", 
+    RowBox[{"Select", "[", 
+     RowBox[{
+      RowBox[{"Level", "[", 
+       RowBox[{"expr", ",", 
+        RowBox[{"{", 
+         RowBox[{"0", ",", "Infinity"}], "}"}]}], "]"}], ",", "AtomQ"}], 
+     "]"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"InterpolationDomain", "[", "fun_", "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"min", ",", "max"}], "}"}], ",", 
+     RowBox[{"fun", "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TakeColumn", "[", 
+    RowBox[{
+     RowBox[{"list1_", "?", "ListQ"}], ",", 
+     RowBox[{"list2_", "?", "ListQ"}]}], "]"}], ":=", 
+   RowBox[{"Map", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"Part", "[", 
+       RowBox[{"#", ",", "list2"}], "]"}], "&"}], ",", "list1"}], "]"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"TakeColumn", "[", 
+    RowBox[{
+     RowBox[{"list1_", "?", "ListQ"}], ",", 
+     RowBox[{"n_", "?", "IntegerQ"}]}], "]"}], ":=", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"list1", "//", "Transpose"}], ")"}], "[", 
+    RowBox[{"[", "n", "]"}], "]"}]}], ";"}]}], "Code",
+ InitializationCell->True,
+ CellChangeTimes->{{3.44498826260142*^9, 3.44498826434814*^9}, 
+   3.658227791974455*^9, {3.7953436164167747`*^9, 3.795343616684309*^9}, {
+   3.795343704168097*^9, 3.795343718396523*^9}},
+ CellLabel->
+  "In[171]:=",ExpressionUUID->"cf257478-3ef8-4582-84aa-71e3bc5840dc"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["End Package", "Section",ExpressionUUID->"f1741b14-531a-4442-958b-fde3bfdb7b10"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"End", "[", "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"EndPackage", "[", "]"}], ";"}]}], "Code",
+ InitializationCell->True,
+ CellLabel->
+  "In[143]:=",ExpressionUUID->"c8870d35-e01d-4f7c-b081-273dc39f3a98"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Some Tests", "Section",
+ CellChangeTimes->{{3.748164573893894*^9, 
+  3.748164575825881*^9}},ExpressionUUID->"26d18d13-bbbe-4282-b00d-\
+49ab3fbd32ba"],
+
+Cell[BoxData[
+ RowBox[{"<<", "GRTensor.m"}]], "Input",
+ CellChangeTimes->{{3.7821974723234587`*^9, 3.7821974757665052`*^9}},
+ CellLabel->
+  "In[181]:=",ExpressionUUID->"d5935d89-e8a4-4fa5-91c6-63cfd7830a66"],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Curvature on Sphere \
+(http://einsteinrelativelyeasy.com/index.php/general-relativity/70-the-\
+riemann-curvature-tensor-for-the-surface-of-a-sphere)\
+\>", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.74817116905129*^9, 3.7481711974490223`*^9}, {
+  3.782207140055911*^9, 
+  3.7822071516076937`*^9}},ExpressionUUID->"d77b7e0a-37fe-4fae-b4c7-\
+ab23d397621e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"xxt", "=", 
+  RowBox[{"{", 
+   RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.782206795629023*^9, 3.782206800489605*^9}, 
+   3.7822069531962137`*^9},
+ CellLabel->
+  "In[182]:=",ExpressionUUID->"01df2675-7543-4eaf-a777-bb3b592ad5c9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], "}"}]], "Output",
+ CellChangeTimes->{{3.782206797948868*^9, 3.78220680085098*^9}, 
+   3.782206953561055*^9, {3.797835262441374*^9, 3.797835288679607*^9}, 
+   3.797912228585606*^9, 3.798200478213064*^9, 3.798203102286201*^9, 
+   3.798253761655999*^9, 3.798347335512574*^9, 3.798349544190802*^9},
+ CellLabel->
+  "Out[182]=",ExpressionUUID->"665df167-82dd-4563-a05c-cbda3f786184"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"gabt", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"r", "^", "2"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", " ", ",", 
+      RowBox[{
+       RowBox[{"r", "^", "2"}], " ", 
+       RowBox[{
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], " ", "}"}]}], 
+   "}"}]}]], "Input",
+ CellChangeTimes->{{3.782206809612924*^9, 3.78220686628939*^9}, {
+  3.7822069396287727`*^9, 3.782206948236793*^9}},
+ CellLabel->
+  "In[183]:=",ExpressionUUID->"04275776-8f18-4f37-bbf5-d693d7dc0cfb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.782206847586747*^9, 3.782206866793309*^9}, 
+   3.7822069487454777`*^9, {3.797835263704236*^9, 3.7978352896668863`*^9}, 
+   3.7979122298295803`*^9, 3.798200478939333*^9, 3.798203103779208*^9, 
+   3.798253762452446*^9, 3.7983473362824287`*^9, 3.798349544924501*^9},
+ CellLabel->
+  "Out[183]=",ExpressionUUID->"be84d4f9-3975-4a44-827a-750c4eef7c2d"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"riemannt", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{
+  3.7822067834182043`*^9, {3.782206853452589*^9, 3.782206868239273*^9}},
+ CellLabel->
+  "In[184]:=",ExpressionUUID->"114c3b30-9e5e-445d-a4ed-def79fbfbecf"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riemannt", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.78220687300616*^9, 3.7822068900754547`*^9}, {
+  3.782206985358652*^9, 3.7822069889296827`*^9}},
+ CellLabel->
+  "In[185]:=",ExpressionUUID->"6ec9aa31-8715-40a8-8de4-fe5553c192dc"],
+
+Cell[BoxData[
+ SuperscriptBox[
+  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]], "Output",
+ CellChangeTimes->{3.7822068909456244`*^9, 3.7822069891274157`*^9, 
+  3.78220705060463*^9, 3.79783529101235*^9, 3.7979122314167337`*^9, 
+  3.7982004799895782`*^9, 3.79820310528283*^9, 3.79825376342732*^9, 
+  3.79834733792297*^9, 3.798349546145063*^9},
+ CellLabel->
+  "Out[185]=",ExpressionUUID->"0f6440f7-89cc-47fe-9c83-462905f72eb0"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riccitt", "=", 
+  RowBox[{"Simplify", "[", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.782207026446374*^9, 3.782207082409597*^9}},
+ CellLabel->
+  "In[186]:=",ExpressionUUID->"da6bb885-c11e-4af0-ba12-5a61ada9cb60"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox[
+      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.782207036252987*^9, 3.7822070827387877`*^9}, 
+   3.797835291711833*^9, 3.797912232627132*^9, 3.798200480497753*^9, 
+   3.798203105816321*^9, 3.7982537644338837`*^9, 3.7983473386296997`*^9, 
+   3.7983495466007967`*^9},
+ CellLabel->
+  "Out[186]=",ExpressionUUID->"d2c5a32b-740e-4ba4-8c59-9da001eebe84"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riccits", "=", 
+  RowBox[{"Simplify", "[", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.782207091034103*^9, 3.7822071040387506`*^9}},
+ CellLabel->
+  "In[187]:=",ExpressionUUID->"5aa484fc-0cd2-4926-b47a-29f14f4d2f17"],
+
+Cell[BoxData[
+ FractionBox["2", 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{{3.782207098755959*^9, 3.7822071044679317`*^9}, 
+   3.797835292494437*^9, 3.797912234911577*^9, 3.7982004810565166`*^9, 
+   3.7982031063510036`*^9, 3.798253765045897*^9, 3.798347339400362*^9, 
+   3.798349547013073*^9},
+ CellLabel->
+  "Out[187]=",ExpressionUUID->"6010ec2c-e7a3-47f0-b22d-9c5bd00f2385"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"ChristoffelSymbol", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"test", "=", 
+  RowBox[{"ChristoffelSymbolDev", "[", 
+   RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+    RowBox[{"\"\<Compile\>\"", "\[Rule]", "False"}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.797835299231812*^9, 3.797835340394423*^9}, {
+  3.797836115556294*^9, 3.7978361214969673`*^9}, {3.7978362190049334`*^9, 
+  3.797836222350019*^9}, {3.797912224035125*^9, 3.7979122242233*^9}, {
+  3.79791305515164*^9, 3.797913056807482*^9}, {3.797913637483117*^9, 
+  3.7979136385662603`*^9}, {3.797917680586905*^9, 3.7979176831091337`*^9}, {
+  3.797917991038041*^9, 3.797917993468326*^9}, {3.797918333609417*^9, 
+  3.797918334225422*^9}, {3.797918424514086*^9, 3.797918426986541*^9}, {
+  3.7982004981709633`*^9, 3.79820050891855*^9}, {3.79820210527951*^9, 
+  3.798202105939046*^9}},
+ CellLabel->
+  "In[188]:=",ExpressionUUID->"ed5781e4-22a4-4ae7-a266-bbbc22d0f39a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
+        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"Cot", "[", "\[Theta]", "]"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Cot", "[", "\[Theta]", "]"}], ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.797835307688987*^9, 3.797835340622093*^9}, 
+   3.797835399560177*^9, 3.797835437739683*^9, 3.7978354765431147`*^9, {
+   3.797835568477516*^9, 3.797835661239153*^9}, {3.797835729670292*^9, 
+   3.797835741330311*^9}, {3.7978357808153477`*^9, 3.7978358369457283`*^9}, {
+   3.797836116191352*^9, 3.797836170675275*^9}, {3.797836292602689*^9, 
+   3.7978362949327393`*^9}, {3.7979122246871147`*^9, 3.79791223889471*^9}, {
+   3.797913051183906*^9, 3.797913057110894*^9}, {3.797913170318356*^9, 
+   3.7979131739345512`*^9}, {3.79791338266549*^9, 3.797913424566861*^9}, {
+   3.797913631042828*^9, 3.7979136390546427`*^9}, 3.797913736058296*^9, 
+   3.797913771479032*^9, {3.797915230798224*^9, 3.797915261972831*^9}, {
+   3.797915416676668*^9, 3.7979154815538588`*^9}, 3.797915567333851*^9, {
+   3.797916182186376*^9, 3.79791618715528*^9}, 3.7979162789483223`*^9, 
+   3.797917683516242*^9, {3.797917755425886*^9, 3.797917771661071*^9}, {
+   3.797917837748905*^9, 3.797917901028458*^9}, {3.7979179323923607`*^9, 
+   3.797917993972505*^9}, 3.797918126610745*^9, {3.7979181725897627`*^9, 
+   3.797918180998002*^9}, 3.797918219060905*^9, 3.7979182552817507`*^9, {
+   3.797918334463344*^9, 3.797918364144372*^9}, {3.79791842548182*^9, 
+   3.797918450755554*^9}, 3.797920778253409*^9, {3.797920835912807*^9, 
+   3.7979208551369543`*^9}, 3.79792094623209*^9, 3.7979210681644163`*^9, {
+   3.79820049988873*^9, 3.798200509322856*^9}, 3.798200546102264*^9, 
+   3.798200819282467*^9, {3.798200860397668*^9, 3.798200919172752*^9}, {
+   3.798200980796159*^9, 3.7982010006649857`*^9}, {3.7982021018023043`*^9, 
+   3.798202106208156*^9}, 3.7982031068756733`*^9, 3.798253765574381*^9, 
+   3.7982729707950163`*^9, 3.798347340031307*^9, 3.798349547631942*^9},
+ CellLabel->
+  "Out[188]=",ExpressionUUID->"baac7dd9-3722-43d2-8c34-922c3cf5f6f3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
+        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"Cot", "[", "\[Theta]", "]"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Cot", "[", "\[Theta]", "]"}], ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.797835307688987*^9, 3.797835340622093*^9}, 
+   3.797835399560177*^9, 3.797835437739683*^9, 3.7978354765431147`*^9, {
+   3.797835568477516*^9, 3.797835661239153*^9}, {3.797835729670292*^9, 
+   3.797835741330311*^9}, {3.7978357808153477`*^9, 3.7978358369457283`*^9}, {
+   3.797836116191352*^9, 3.797836170675275*^9}, {3.797836292602689*^9, 
+   3.7978362949327393`*^9}, {3.7979122246871147`*^9, 3.79791223889471*^9}, {
+   3.797913051183906*^9, 3.797913057110894*^9}, {3.797913170318356*^9, 
+   3.7979131739345512`*^9}, {3.79791338266549*^9, 3.797913424566861*^9}, {
+   3.797913631042828*^9, 3.7979136390546427`*^9}, 3.797913736058296*^9, 
+   3.797913771479032*^9, {3.797915230798224*^9, 3.797915261972831*^9}, {
+   3.797915416676668*^9, 3.7979154815538588`*^9}, 3.797915567333851*^9, {
+   3.797916182186376*^9, 3.79791618715528*^9}, 3.7979162789483223`*^9, 
+   3.797917683516242*^9, {3.797917755425886*^9, 3.797917771661071*^9}, {
+   3.797917837748905*^9, 3.797917901028458*^9}, {3.7979179323923607`*^9, 
+   3.797917993972505*^9}, 3.797918126610745*^9, {3.7979181725897627`*^9, 
+   3.797918180998002*^9}, 3.797918219060905*^9, 3.7979182552817507`*^9, {
+   3.797918334463344*^9, 3.797918364144372*^9}, {3.79791842548182*^9, 
+   3.797918450755554*^9}, 3.797920778253409*^9, {3.797920835912807*^9, 
+   3.7979208551369543`*^9}, 3.79792094623209*^9, 3.7979210681644163`*^9, {
+   3.79820049988873*^9, 3.798200509322856*^9}, 3.798200546102264*^9, 
+   3.798200819282467*^9, {3.798200860397668*^9, 3.798200919172752*^9}, {
+   3.798200980796159*^9, 3.7982010006649857`*^9}, {3.7982021018023043`*^9, 
+   3.798202106208156*^9}, 3.7982031068756733`*^9, 3.798253765574381*^9, 
+   3.7982729707950163`*^9, 3.798347340031307*^9, 3.798349547634553*^9},
+ CellLabel->
+  "Out[189]=",ExpressionUUID->"3a141bce-5fbc-4c50-92c7-8379c58297ca"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"RiemannTensorDev", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"riemann", "=", 
+  RowBox[{"RiemannTensor", "[", 
+   RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7982021084293747`*^9, 3.798202108676981*^9}, 
+   3.798202209419623*^9, {3.798202278707458*^9, 3.798202280568131*^9}, {
+   3.798254320974615*^9, 3.798254324675338*^9}},
+ CellLabel->
+  "In[190]:=",ExpressionUUID->"e70c66e4-4e26-43dd-8013-82022d2d95c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox[
+            RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.798202210082041*^9, 3.7982022406943617`*^9, {3.798202274764333*^9, 
+   3.798202281003334*^9}, 3.798203107462268*^9, 3.798253766924748*^9, {
+   3.7982543191383867`*^9, 3.798254323118341*^9}, {3.798260495795043*^9, 
+   3.798260520066625*^9}, 3.79827127911635*^9, 3.798272983503522*^9, {
+   3.7983473418637953`*^9, 3.7983473602291527`*^9}, 3.798349548363228*^9},
+ CellLabel->
+  "Out[190]=",ExpressionUUID->"b0b4dea8-47e3-447d-8f2b-96d2d27080ba"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox[
+            RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.798202210082041*^9, 3.7982022406943617`*^9, {3.798202274764333*^9, 
+   3.798202281003334*^9}, 3.798203107462268*^9, 3.798253766924748*^9, {
+   3.7982543191383867`*^9, 3.798254323118341*^9}, {3.798260495795043*^9, 
+   3.798260520066625*^9}, 3.79827127911635*^9, 3.798272983503522*^9, {
+   3.7983473418637953`*^9, 3.7983473602291527`*^9}, 3.798349548368374*^9},
+ CellLabel->
+  "Out[191]=",ExpressionUUID->"3cbcbad1-a20a-4490-b84f-aa78f9e300d8"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Clear", "[", "RiemannTensorDev", "]"}]], "Input",
+ CellChangeTimes->{{3.7983484213415337`*^9, 3.7983484252174253`*^9}},
+ CellLabel->
+  "In[192]:=",ExpressionUUID->"4736ce0c-fd95-488b-9cad-da3d82cd0647"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"RiemannTensorDev", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+   RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "True"}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"RiemannTensorDev", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+   RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "False"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798349307441161*^9, 3.7983493334937487`*^9}, {
+  3.7983494062569857`*^9, 3.7983494141610107`*^9}, {3.798349453559577*^9, 
+  3.79834945657146*^9}},
+ CellLabel->
+  "In[197]:=",ExpressionUUID->"090305e6-e53f-4de4-8760-85909e86ff8f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+            SuperscriptBox[
+             RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox[
+              RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            SuperscriptBox[
+             RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798349313790066*^9, 3.79834941442148*^9}, {
+  3.798349448577828*^9, 3.7983494644996*^9}, {3.798349549614999*^9, 
+  3.798349553268338*^9}},
+ CellLabel->
+  "Out[197]=",ExpressionUUID->"1802f678-c827-451a-8772-3c7e96881a2f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox[
+            RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798349313790066*^9, 3.79834941442148*^9}, {
+  3.798349448577828*^9, 3.7983494644996*^9}, {3.798349549614999*^9, 
+  3.7983495532714453`*^9}},
+ CellLabel->
+  "Out[198]=",ExpressionUUID->"d6508d3e-502d-4994-befc-441a401f61b4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", 
+          RowBox[{
+           SuperscriptBox["r", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["r", "2"]}], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], 
+         "}"}]}], "}"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", 
+          RowBox[{
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox[
+              RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+             SuperscriptBox[
+              RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox[
+               RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+             SuperscriptBox[
+              RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], 
+         "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.798357973849049*^9, 3.7983579752767487`*^9}},
+ CellLabel->
+  "In[251]:=",ExpressionUUID->"a7c4d7c1-41c1-4f28-a00a-21a6c5370173"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.798357975610765*^9},
+ CellLabel->
+  "Out[251]=",ExpressionUUID->"127fe166-63e3-40e8-85f8-1cc2c599fb65"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"RiemannTensorDev", "[", 
+   RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+    RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "True"}]}], "]"}], "-", 
+  RowBox[{"Simplify", "@", 
+   RowBox[{"RiemannTensorDev2", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+     RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "True"}]}], 
+    "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"Simplify", "@", 
+  RowBox[{"RiemannTensorDev2", "[", 
+   RowBox[{"xxt", ",", "gabt", ",", "0", ",", 
+    RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "True"}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7983519184381247`*^9, 3.7983519191904373`*^9}, {
+  3.79835806229522*^9, 3.79835806792765*^9}, {3.7983591260700483`*^9, 
+  3.798359126258613*^9}},
+ CellLabel->
+  "In[414]:=",ExpressionUUID->"fe89dc2a-c9ac-4fe2-b899-ef0c3d47b93e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798351919563176*^9, 3.7983519747528763`*^9}, {
+   3.798352005248436*^9, 3.7983520256110897`*^9}, {3.798357813421052*^9, 
+   3.7983578274279737`*^9}, {3.798357883255492*^9, 3.79835792192127*^9}, 
+   3.7983579558802757`*^9, {3.798358064247616*^9, 3.7983580684237423`*^9}, 
+   3.7983581110696373`*^9, {3.798358204513907*^9, 3.798358206762725*^9}, {
+   3.798358919707143*^9, 3.7983589215203753`*^9}, {3.7983590625997972`*^9, 
+   3.798359126634324*^9}, {3.798359359411724*^9, 3.798359376798409*^9}, {
+   3.7983602527324944`*^9, 3.798360254368186*^9}},
+ CellLabel->
+  "Out[414]=",ExpressionUUID->"510d0189-5306-488d-9d98-d72b472703f0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798351919563176*^9, 3.7983519747528763`*^9}, {
+   3.798352005248436*^9, 3.7983520256110897`*^9}, {3.798357813421052*^9, 
+   3.7983578274279737`*^9}, {3.798357883255492*^9, 3.79835792192127*^9}, 
+   3.7983579558802757`*^9, {3.798358064247616*^9, 3.7983580684237423`*^9}, 
+   3.7983581110696373`*^9, {3.798358204513907*^9, 3.798358206762725*^9}, {
+   3.798358919707143*^9, 3.7983589215203753`*^9}, {3.7983590625997972`*^9, 
+   3.798359126634324*^9}, {3.798359359411724*^9, 3.798359376798409*^9}, {
+   3.7983602527324944`*^9, 3.7983602543711367`*^9}},
+ CellLabel->
+  "Out[415]=",ExpressionUUID->"004e0069-9eea-4160-b167-ebe64adc2af6"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"p", "=", "0"}], ";", 
+  RowBox[{"Do", "[", 
+   RowBox[{
+    RowBox[{"p", "=", 
+     RowBox[{"p", "+", "1"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "i", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "i", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "l", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798358771334364*^9, 3.798358791332468*^9}, {
+   3.798359110957396*^9, 3.798359111921338*^9}, 3.798359933190682*^9},
+ CellLabel->
+  "In[398]:=",ExpressionUUID->"43a39a62-5608-44fe-8443-e69dce1fa939"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["p"], "Input",
+ CellChangeTimes->{3.7983591136734867`*^9},
+ CellLabel->
+  "In[399]:=",ExpressionUUID->"46b07b7d-76b2-43d1-886e-1f734e343bd7"],
+
+Cell[BoxData["65"], "Output",
+ CellChangeTimes->{3.798359114139866*^9, 3.798359941598441*^9},
+ CellLabel->
+  "Out[399]=",ExpressionUUID->"69e76015-b545-4a29-a5c6-a95e25aa360f"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"n", "=", "4"}], ";", 
+  RowBox[{"Do", "[", 
+   RowBox[{
+    RowBox[{"p", "=", 
+     RowBox[{"p", "+", "1"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "n"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "i"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798359870748979*^9, 3.7983598760261517`*^9}, {
+  3.7983599503452787`*^9, 3.798359956303214*^9}},
+ CellLabel->
+  "In[401]:=",ExpressionUUID->"6ce44593-fdc2-41aa-ad1e-1cc49d9461ff"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["p"], "Input",
+ CellChangeTimes->{3.798359937023489*^9},
+ CellLabel->
+  "In[402]:=",ExpressionUUID->"19a4e782-47a0-4a4c-9ac1-4dc16a3ec4cf"],
+
+Cell[BoxData["161"], "Output",
+ CellChangeTimes->{3.7983599577390337`*^9},
+ CellLabel->
+  "Out[402]=",ExpressionUUID->"ebf88fb7-3a7c-413d-b0e4-b3a9c9a26971"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{"p", "=", 
+    RowBox[{"p", "+", "1"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", 
+     RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "i"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"l", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "n"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{3.798359902532851*^9},
+ CellLabel->
+  "In[403]:=",ExpressionUUID->"f275f059-a571-42ab-8070-687490a278a1"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{"p", "=", 
+    RowBox[{"p", "+", "1"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"l", ",", 
+     RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "l"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{3.798359924122264*^9},
+ CellLabel->
+  "In[404]:=",ExpressionUUID->"e027fdb6-eff3-4bd9-a9aa-87088edb34cf"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["p"], "Input",
+ CellChangeTimes->{{3.7983599257008047`*^9, 3.798359926166152*^9}},
+ CellLabel->
+  "In[405]:=",ExpressionUUID->"1792ddf6-d45d-44c1-a4b5-330f4aeff6a2"],
+
+Cell[BoxData["353"], "Output",
+ CellChangeTimes->{3.7983599266220503`*^9, 3.7983599602611017`*^9},
+ CellLabel->
+  "Out[405]=",ExpressionUUID->"81dcb636-9dcd-4984-bd8f-c7783e2bc53c"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"p", "=", "0"}], ";", 
+  RowBox[{"Do", "[", 
+   RowBox[{
+    RowBox[{"p", "=", 
+     RowBox[{"p", "+", "1"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "n"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798360006202197*^9, 3.798360031017626*^9}},
+ CellLabel->
+  "In[406]:=",ExpressionUUID->"5fbbd0b9-08ce-4eb7-a923-377942f201b6"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["p"], "Input",
+ CellChangeTimes->{3.798360032769032*^9},
+ CellLabel->
+  "In[407]:=",ExpressionUUID->"096588e5-38a4-4025-922c-9e4d81ed7424"],
+
+Cell[BoxData["10"], "Output",
+ CellChangeTimes->{3.7983600331921253`*^9},
+ CellLabel->
+  "Out[407]=",ExpressionUUID->"c580f8da-aeb5-4cf0-81c9-251fba296602"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{"p", "=", 
+    RowBox[{"p", "+", "1"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", 
+     RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "i"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7983600850695677`*^9, 3.798360087927095*^9}},
+ CellLabel->
+  "In[408]:=",ExpressionUUID->"157be32d-15d6-4149-bfb6-8e0087bcf0c9"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["p"], "Input",
+ CellChangeTimes->{3.798360088892056*^9},
+ CellLabel->
+  "In[409]:=",ExpressionUUID->"8e07c9e3-1125-4429-b862-bb3eed90c896"],
+
+Cell[BoxData["16"], "Output",
+ CellChangeTimes->{3.798360089401593*^9},
+ CellLabel->
+  "Out[409]=",ExpressionUUID->"4c5cea56-2557-494f-b20b-8e21d5dee9a3"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RiemannTensorDev2", "]"}], "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "False"}], "}"}]}], "]"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"RiemannTensorDev2", "[", 
+    RowBox[{"xx_", ",", "g_", ",", 
+     RowBox[{"pert_:", "0"}], ",", 
+     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+   RowBox[{"Block", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "n", ",", "Chr", ",", "compile", ",", "index", ",", "res", ",", "perti",
+        ",", "simpl", ",", "verbose"}], "}"}], ",", "\n", 
+     RowBox[{
+      RowBox[{"index", "=", 
+       RowBox[{"OptionValue", "[", "\"\<IndexDown\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"perti", "=", 
+       RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"simpl", "=", 
+       RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+      "\n", 
+      RowBox[{"compile", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+      RowBox[{"verbose", "=", 
+       RowBox[{"OptionValue", "[", "\"\<Verbose\>\"", "]"}]}], ";", "\n", 
+      "\n", 
+      RowBox[{"n", "=", 
+       RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{
+        "Print", "[", "\"\<Starting with Christoffel symbols...\>\"", "]"}]}],
+        "]"}], ";", "\n", 
+      RowBox[{"Chr", "=", 
+       RowBox[{"ChristoffelSymbolDev", "[", 
+        RowBox[{"xx", ",", "g", ",", "pert", ",", 
+         RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+         RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}], ",", 
+         RowBox[{"\"\<Compile\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{
+        "Print", "[", 
+         "\"\<Christoffel symbols computed. Starting with Riemann...\>\"", 
+         "]"}]}], "]"}], ";", "\n", "\n", 
+      RowBox[{"res", "=", 
+       RowBox[{"ConstantArray", "[", 
+        RowBox[{"0", ",", 
+         RowBox[{"{", 
+          RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";", 
+      "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"index", ",", "\n", "        ", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", "  ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "p"}], "]"}], "]"}], 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}]}], ",", 
+                    
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"p", ",", "n"}], "}"}]}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+           "                            ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"Sum", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"g", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "p"}], "]"}], "]"}], 
+                 RowBox[{"(", 
+                  RowBox[{"Normal", "@", 
+                   RowBox[{"Series", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                    RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                    RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+                    RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"p", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], 
+                    "]"}]}], ")"}]}], ",", 
+                RowBox[{"{", 
+                 RowBox[{"p", ",", "n"}], "}"}]}], "]"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", "\n", 
+         "\t\t\t\t\t\t\t", "\n", "\t\t\t\t\t\t\t", 
+         RowBox[{"If", "[", 
+          RowBox[{"compile", ",", " ", 
+           RowBox[{
+            RowBox[{"Do", "[", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"res", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+               "=", 
+               RowBox[{"If", "[", 
+                RowBox[{
+                 RowBox[{"NumberQ", "[", 
+                  RowBox[{"res", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}],
+                   "]"}], ",", 
+                 RowBox[{"res", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+                 ",", 
+                 RowBox[{"Compile", "[", 
+                  RowBox[{
+                   RowBox[{"Evaluate", "@", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", "xx"}], 
+                    ")"}]}], ",", 
+                   RowBox[{"Evaluate", "[", 
+                    RowBox[{"res", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}],
+                     "]"}], ",", 
+                   RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+                   RowBox[{"CompilationOptions", "\[Rule]", 
+                    RowBox[{
+                    "\"\<InlineExternalDefinitions\>\"", "\[Rule]", 
+                    "True"}]}]}], "]"}]}], "]"}]}], ",", 
+              RowBox[{"{", 
+               RowBox[{"i", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"k", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"l", ",", "n"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], ";"}],
+         "\n", "                            ", 
+        RowBox[{"(*", " ", 
+         RowBox[{"Applying", " ", "simmetries"}], " ", "*)"}], 
+        "                           ", "\n", "                            ", 
+        ",", "                            ", "\n", "        ", 
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{"NumericQ", "[", "pert", "]"}], ",", "  ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                RowBox[{"D", "[", 
+                 RowBox[{
+                  RowBox[{"Chr", "[", 
+                   RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                  RowBox[{"xx", "[", 
+                   RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                RowBox[{"Sum", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}]}], ",", 
+                  
+                  RowBox[{"{", 
+                   RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+           "                            ", 
+           RowBox[{"Do", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], 
+              "=", 
+              RowBox[{"(", 
+               RowBox[{"Normal", "@", 
+                RowBox[{"Series", "[", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+                   RowBox[{"D", "[", 
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+                    RowBox[{"xx", "[", 
+                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+                   RowBox[{"Sum", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+                    RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+                    RowBox[{"{", 
+                    RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+                  RowBox[{"{", 
+                   RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}],
+                ")"}]}], ",", 
+             RowBox[{"{", 
+              RowBox[{"i", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"k", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"l", ",", "n"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\n",
+        "        ", "]"}], ";", "\n", "\[IndentingNewLine]", "\n", 
+      RowBox[{"If", "[", 
+       RowBox[{"verbose", ",", 
+        RowBox[{"Print", "[", "\"\<...Riemann computed\>\"", "]"}]}], "]"}], 
+      ";", "\n", 
+      RowBox[{"simpl", "@", "res"}]}]}], "]"}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.798201761796755*^9, 3.798201778478615*^9}, {
+   3.7982019426048517`*^9, 3.7982020885463676`*^9}, {3.798202188469666*^9, 
+   3.798202188752832*^9}, {3.798202235213434*^9, 3.7982022357380667`*^9}, 
+   3.798258168874947*^9, {3.7982582120531693`*^9, 3.798258215584395*^9}, {
+   3.798258262930125*^9, 3.798258302777269*^9}, {3.7982583442770777`*^9, 
+   3.798258456880644*^9}, {3.798258610943906*^9, 3.798258611147222*^9}, 
+   3.7982595549072323`*^9, {3.7982595940162573`*^9, 3.798259595257298*^9}, {
+   3.798260413439714*^9, 3.7982604575218897`*^9}, {3.798260507032803*^9, 
+   3.798260513839057*^9}, {3.7982616128595667`*^9, 3.798261675437492*^9}, {
+   3.798270325445936*^9, 3.7982703721049747`*^9}, {3.798270419687889*^9, 
+   3.798270429981975*^9}, {3.798270464872583*^9, 3.79827046501184*^9}, {
+   3.7982705239495277`*^9, 3.798270539044157*^9}, {3.798273323499441*^9, 
+   3.798273323761797*^9}, {3.798347314779356*^9, 3.7983473288683662`*^9}, {
+   3.7983474966959352`*^9, 3.798347500360285*^9}, {3.798347683734331*^9, 
+   3.7983477685354013`*^9}, {3.798347952699193*^9, 3.798348046250648*^9}, {
+   3.798348091503224*^9, 3.79834811612291*^9}, {3.798348199523498*^9, 
+   3.798348226693466*^9}, {3.798348325664906*^9, 3.798348381624979*^9}, {
+   3.7983484656883698`*^9, 3.7983485978555183`*^9}, {3.79834897114116*^9, 
+   3.798348983540642*^9}, {3.7983490571025753`*^9, 3.798349239958953*^9}, {
+   3.798349376285989*^9, 3.798349401841381*^9}, {3.798349439234774*^9, 
+   3.798349462105866*^9}, {3.798349824332347*^9, 3.798349826124508*^9}, {
+   3.798350825548751*^9, 3.798350825777767*^9}, {3.7983514446295223`*^9, 
+   3.798351477759396*^9}, {3.7983515766824503`*^9, 3.798351603658345*^9}, {
+   3.798351638961677*^9, 3.798351907861167*^9}, {3.798351942471902*^9, 
+   3.798351945408573*^9}, {3.798351980416534*^9, 3.79835202195184*^9}, {
+   3.7983522230691633`*^9, 3.798352242907681*^9}, {3.7983522861833878`*^9, 
+   3.798352315458262*^9}, {3.798352375739766*^9, 3.7983523975806313`*^9}, {
+   3.798352435687175*^9, 3.7983524413802958`*^9}, {3.798352473201661*^9, 
+   3.798352599136998*^9}, {3.7983574888368063`*^9, 3.798357538699814*^9}, {
+   3.79835763349463*^9, 3.7983576963693743`*^9}, {3.798357732197682*^9, 
+   3.7983577991957903`*^9}, {3.7983578664443913`*^9, 
+   3.7983579534268093`*^9}, {3.798358029621838*^9, 3.79835805102246*^9}},
+ CellLabel->
+  "In[435]:=",ExpressionUUID->"b07eb285-b84f-41d1-8ec4-d701def84f96"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Options", "[", "RicciTensorDev", "]"}], "=", 
+   RowBox[{"Options", "[", "ChristoffelSymbolDev", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"RicciTensorDev", "[", 
+   RowBox[{"xx_", ",", "g_", ",", 
+    RowBox[{"pert_:", "0"}], ",", 
+    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "compile", ",", "Rie", ",", "res", ",", "n", ",", "perti", ",", 
+      "simpl"}], "}"}], ",", "\n", 
+    RowBox[{
+     RowBox[{"perti", "=", 
+      RowBox[{"OptionValue", "[", "\"\<PerturbationIndex\>\"", "]"}]}], ";", 
+     "\n", 
+     RowBox[{"compile", "=", 
+      RowBox[{"OptionValue", "[", "\"\<Compile\>\"", "]"}]}], ";", "\n", 
+     RowBox[{"simpl", "=", 
+      RowBox[{"OptionValue", "[", "\"\<SimplifyFunction\>\"", "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"n", "=", 
+      RowBox[{"Length", "@", "xx"}]}], ";", "\n", 
+     RowBox[{"Rie", "=", 
+      RowBox[{"RiemannTensorDev", "[", 
+       RowBox[{"xx", ",", "g", ",", "pert", ",", 
+        RowBox[{"\"\<PerturbationIndex\>\"", "->", "perti"}], ",", 
+        RowBox[{"\"\<SimplifyFunction\>\"", "->", "simpl"}]}], "]"}]}], ";", 
+     "\n", "\n", 
+     RowBox[{"res", "=", 
+      RowBox[{"ConstantArray", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"NumericQ", "[", "pert", "]"}], ",", " ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{"Rie", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], ",", 
+            
+            RowBox[{"{", 
+             RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\n", 
+       "                   ", 
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"res", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+          RowBox[{"Normal", "@", 
+           RowBox[{"Series", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{"Rie", "[", 
+                RowBox[{"[", 
+                 RowBox[{"s", ",", "i", ",", "s", ",", "j"}], "]"}], "]"}], 
+               ",", 
+               RowBox[{"{", 
+                RowBox[{"s", ",", "n"}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"pert", ",", "0", ",", "perti"}], "}"}]}], "]"}]}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"i", ",", "n"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";", 
+     "  ", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{"compile", ",", " ", 
+       RowBox[{
+        RowBox[{"Do", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"res", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"NumberQ", "[", 
+              RowBox[{"res", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+             RowBox[{"res", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
+             RowBox[{"Compile", "[", 
+              RowBox[{
+               RowBox[{"Evaluate", "@", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"{", 
+                    RowBox[{"#", ",", "_Real"}], "}"}], "&"}], "/@", "xx"}], 
+                 ")"}]}], ",", 
+               RowBox[{"Evaluate", "[", 
+                RowBox[{"res", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", 
+               RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
+               RowBox[{"CompilationOptions", "\[Rule]", 
+                RowBox[{
+                "\"\<InlineExternalDefinitions\>\"", "\[Rule]", "True"}]}]}], 
+              "]"}]}], "]"}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", "n"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"j", ",", "i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "]"}], 
+     "  ", ";", "                 ", "\n", 
+     RowBox[{"(*", " ", 
+      RowBox[{"Applying", " ", "symmetries"}], " ", "*)"}], "\n", 
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{
+            RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "=", 
+         RowBox[{"res", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", 
+            RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], ";"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", 
+         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ";", "                   ", 
+     "\n", "\[IndentingNewLine]", 
+     RowBox[{"simpl", "@", "res"}]}]}], "]"}]}]}], "Code",
+ CellChangeTimes->{{3.798202691045713*^9, 3.7982027188195963`*^9}, {
+  3.798202825154427*^9, 3.798202961899489*^9}, {3.79820299299233*^9, 
+  3.798203087732658*^9}, {3.798207066617684*^9, 3.798207068772373*^9}, {
+  3.798257016849008*^9, 3.7982570709057302`*^9}, {3.798352450497024*^9, 
+  3.798352465842792*^9}, {3.7983572930221167`*^9, 3.798357293291419*^9}},
+ CellLabel->
+  "In[226]:=",ExpressionUUID->"6e8c9979-e983-4f48-b1b8-beb2ba431594"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"RicciTensorDev", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"RicciTensor", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798203109138748*^9, 3.798203120846019*^9}},
+ CellLabel->
+  "In[198]:=",ExpressionUUID->"1f823ee3-17cf-4b4d-b7a5-4f64e10f47a0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox[
+      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.7982031132894783`*^9, 3.798203121202406*^9}},
+ CellLabel->
+  "Out[198]=",ExpressionUUID->"592cfd98-0fb4-4f54-b8e7-ec512703bdd8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox[
+      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.7982031132894783`*^9, 3.7982031212095137`*^9}},
+ CellLabel->
+  "Out[199]=",ExpressionUUID->"1b8a6207-1e39-41fa-93d1-20524893fe91"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], "-", "riemannd"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.798258512359416*^9, 3.7982585586840477`*^9}},
+ CellLabel->"In[90]:=",ExpressionUUID->"66e4ef84-d010-4316-8e2f-1775594db8e0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798258534753887*^9, 3.798258588084697*^9}, 
+   3.798258847484206*^9, {3.79825954695162*^9, 3.798259578815139*^9}},
+ CellLabel->"Out[90]=",ExpressionUUID->"55a09e0a-ec0e-4179-bfbb-07a3faea7061"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalarDev", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204748584147*^9, 3.798204767410651*^9}},
+ CellLabel->
+  "In[285]:=",ExpressionUUID->"1ae15dfb-770e-45bc-a13c-25a8223d9a18"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.000613`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.79820477723498*^9}},
+ CellLabel->
+  "Out[285]=",ExpressionUUID->"676ec1f6-7593-4c7c-8697-d1d103ea5798"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.000534`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.7982047772378483`*^9}},
+ CellLabel->
+  "Out[286]=",ExpressionUUID->"4268ad27-15a0-42a0-ad8a-c2ba8bf2830a"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Chr", "=", 
+   RowBox[{"ChristoffelSymbolDev", "[", 
+    RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.798260587113681*^9, 3.798260592713299*^9}},
+ CellLabel->
+  "In[105]:=",ExpressionUUID->"c1ab6d48-4f6d-474c-b146-3609ab6ac4a3"],
+
+Cell[BoxData[
+ RowBox[{"Sum", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"gabt", "[", 
+     RowBox[{"[", 
+      RowBox[{"i", ",", "r"}], "]"}], "]"}], 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Chr", "[", 
+         RowBox[{"[", 
+          RowBox[{"r", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+        RowBox[{"xxt", "[", 
+         RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Chr", "[", 
+         RowBox[{"[", 
+          RowBox[{"r", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+        RowBox[{"xxt", "[", 
+         RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+      RowBox[{"Sum", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"r", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+      RowBox[{"Sum", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"r", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"s", ","}], "}"}]}], "]"}]}], ")"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "n"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798260602670498*^9, 
+  3.798260638502249*^9}},ExpressionUUID->"849f5cd1-bb08-4f35-8c7a-\
+080ee5bb35cb"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Rllll", "=", 
+  RowBox[{"ConstantArray", "[", 
+   RowBox[{"0", ",", 
+    RowBox[{"{", 
+     RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798271117023128*^9, 3.7982711324597883`*^9}},
+ CellLabel->
+  "In[113]:=",ExpressionUUID->"8576f70e-b712-483e-b81f-7ba8b7817457"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.79827113325907*^9},
+ CellLabel->
+  "Out[113]=",ExpressionUUID->"baf9673c-f43e-4a0a-b63d-becfd5ee2224"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{"Do", "[", 
+    RowBox[{
+     RowBox[{"Do", "[", 
+      RowBox[{
+       RowBox[{"Do", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Rllll", "[", 
+           RowBox[{"[", 
+            RowBox[{"ii", ",", "jj", ",", "kk", ",", "mm"}], "]"}], "]"}], 
+          "=", 
+          RowBox[{"Sum", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"D", "[", 
+                RowBox[{
+                 RowBox[{"Chr", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"ll", ",", "ii", ",", "kk"}], "]"}], "]"}], ",", 
+                 RowBox[{"xxt", "[", 
+                  RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "-", 
+               RowBox[{"D", "[", 
+                RowBox[{
+                 RowBox[{"Chr", "[", 
+                  RowBox[{"[", 
+                   RowBox[{"ll", ",", "jj", ",", "kk"}], "]"}], "]"}], ",", 
+                 RowBox[{"xxt", "[", 
+                  RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "+", 
+               RowBox[{"Sum", "[", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"nn", ",", "ii", ",", "kk"}], "]"}], "]"}], " ", 
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"ll", ",", "nn", ",", "jj"}], "]"}], "]"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"nn", ",", "jj", ",", "kk"}], "]"}], "]"}], " ", 
+                   RowBox[{"Chr", "[", 
+                    RowBox[{"[", 
+                    RowBox[{"ll", ",", "nn", ",", "ii"}], "]"}], "]"}]}]}], 
+                 ",", 
+                 RowBox[{"{", 
+                  RowBox[{"nn", ",", "n"}], "}"}]}], "]"}]}], ")"}], " ", 
+             RowBox[{"gabt", "[", 
+              RowBox[{"[", 
+               RowBox[{"ll", ",", "mm"}], "]"}], "]"}]}], ",", 
+            RowBox[{"{", 
+             RowBox[{"ll", ",", "n"}], "}"}]}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"mm", ",", "kk", ",", "n"}], "}"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"kk", ",", "n"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"jj", ",", "ii", ",", "n"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"ii", ",", "n"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798256166628677*^9, 3.7982561666297626`*^9}, {
+  3.798270943361526*^9, 3.798270956208839*^9}, {3.798271069814122*^9, 
+  3.798271160661531*^9}, {3.798273012906166*^9, 3.7982730147074203`*^9}},
+ CellLabel->
+  "In[117]:=",ExpressionUUID->"d463090a-fedf-44da-bad8-9ec47f801d42"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"n", "=", "2"}]], "Input",
+ CellChangeTimes->{{3.7982711757331333`*^9, 3.798271176544757*^9}},
+ CellLabel->
+  "In[118]:=",ExpressionUUID->"b04a902c-ddab-47ff-ae41-40ee8053148f"],
+
+Cell[BoxData["2"], "Output",
+ CellChangeTimes->{3.798271176942319*^9},
+ CellLabel->
+  "Out[118]=",ExpressionUUID->"fe779acd-5a84-4f6d-b813-eaf8a86f8060"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"n", "=", "0"}], ";", 
+  RowBox[{"Do", "[", 
+   RowBox[{
+    RowBox[{"n", "=", 
+     RowBox[{"n", "+", "1"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "3"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", 
+      RowBox[{"k", "+", "1"}], ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "3"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"j", ",", 
+      RowBox[{"i", "+", "1"}], ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.79835059350274*^9, 3.798350647432851*^9}, {
+  3.7983507227597857`*^9, 3.7983507332935743`*^9}},
+ CellLabel->
+  "In[200]:=",ExpressionUUID->"8fc0dd53-4891-4630-ba15-6aff16aeccb3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"3", "*", "n"}]], "Input",
+ CellChangeTimes->{{3.7983507353715897`*^9, 3.798350764669745*^9}},
+ CellLabel->
+  "In[202]:=",ExpressionUUID->"be3433cc-df75-47d0-bab6-8f94e852e5ac"],
+
+Cell[BoxData["108"], "Output",
+ CellChangeTimes->{{3.798350735916326*^9, 3.798350765248959*^9}},
+ CellLabel->
+  "Out[202]=",ExpressionUUID->"b218650d-f272-412c-89e6-68470be9a64b"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"mm", ",", 
+           RowBox[{"kk", "+", "1"}], ",", "dim"}], "}"}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"kk", ",", 
+          RowBox[{"dim", "-", "1"}]}], "}"}]}], "]"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"jj", ",", 
+        RowBox[{"ii", "+", "1"}], ",", "dim"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"ii", ",", 
+      RowBox[{"dim", "-", "1"}]}], "}"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.798350678936556*^9, 
+  3.7983506789378643`*^9}},ExpressionUUID->"d082c7b5-5e49-4e11-b39e-\
+3e470b191fb7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "Rllll", "]"}]], "Input",
+ CellChangeTimes->{{3.798271216821392*^9, 3.798271219660417*^9}},
+ CellLabel->
+  "In[122]:=",ExpressionUUID->"6d20c31b-5aee-407c-affa-f6dd4607be9b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798271165436208*^9, 3.7982711784471083`*^9}, 
+   3.7982712200759974`*^9},
+ CellLabel->
+  "Out[122]=",ExpressionUUID->"874305eb-d15f-4754-b4bb-a41b2d24e075"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "riemannd", "]"}]], "Input",
+ CellChangeTimes->{{3.798271193989959*^9, 3.798271211976635*^9}},
+ CellLabel->
+  "In[121]:=",ExpressionUUID->"6c27ba34-6cef-4d38-bc0f-9c85eccddb76"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["r", "2"]}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798271196129643*^9, 3.798271212387245*^9}},
+ CellLabel->
+  "Out[121]=",ExpressionUUID->"dd2d6302-3afa-4227-8973-afbced035839"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Sum", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"gabt", "[", 
+     RowBox[{"[", 
+      RowBox[{"a", ",", "\[Alpha]"}], "]"}], "]"}], 
+    RowBox[{"riemann", "[", 
+     RowBox[{"[", 
+      RowBox[{"\[Alpha]", ",", "b", ",", "c", ",", "d"}], "]"}], "]"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Alpha]", ",", "2"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
+"ce84ec16-b710-4bea-8dfe-dd1b1b1ce42a"],
+
+Cell[BoxData[
+ RowBox[{"riemannd", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"gabt", "[", 
+        RowBox[{"[", 
+         RowBox[{"a", ",", "\[Alpha]"}], "]"}], "]"}], 
+       RowBox[{"riemann", "[", 
+        RowBox[{"[", 
+         RowBox[{"\[Alpha]", ",", "b", ",", "c", ",", "d"}], "]"}], "]"}]}], 
+      ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Alpha]", ",", "2"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"a", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"b", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"c", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"d", ",", "2"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
+"159eb7a6-4eec-49e0-84c9-ef2405685d24"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["riemann"], "Input",
+ CellLabel->
+  "In[132]:=",ExpressionUUID->"474f40fc-0808-476f-a97c-012d1df8d21e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox[
+            RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.79827334603363*^9},
+ CellLabel->
+  "Out[132]=",ExpressionUUID->"7c479871-c9bf-4bbe-b128-ae4c2b2bd58b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RiemannTensorDev", "[", 
+  RowBox[{"xxt", ",", "gabt", ",", "0"}], "]"}]], "Input",
+ CellLabel->
+  "In[131]:=",ExpressionUUID->"4a489840-1543-4d33-9049-364d146ec26a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{"4", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+            SuperscriptBox[
+             RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox[
+              RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            SuperscriptBox[
+             RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.798261364847686*^9, 3.798273337350636*^9},
+ CellLabel->
+  "Out[131]=",ExpressionUUID->"f81641df-e959-499e-87d8-462650723adb"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"n", "=", "2"}], ";", 
+  RowBox[{"Sum", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"gabt", "[", 
+      RowBox[{"[", 
+       RowBox[{"i", ",", "r"}], "]"}], "]"}], 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"D", "[", 
+          RowBox[{
+           RowBox[{"Chr", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+           RowBox[{"xxt", "[", 
+            RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+         RowBox[{"D", "[", 
+          RowBox[{
+           RowBox[{"Chr", "[", 
+            RowBox[{"[", 
+             RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+           RowBox[{"xxt", "[", 
+            RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"Chr", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+            RowBox[{"Chr", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+         RowBox[{"Sum", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"Chr", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+            RowBox[{"Chr", "[", 
+             RowBox[{"[", 
+              RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+           RowBox[{"{", 
+            RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"l", ",", "n"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"r", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7982613328489017`*^9, 3.7982613513748493`*^9}, {
+  3.798261547255275*^9, 
+  3.7982615782468*^9}},ExpressionUUID->"0f467eec-a7ba-463d-a027-3b5602c48647"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"], "-", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox[
+            RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}]}],
+       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7982613479740562`*^9, 3.798261351652082*^9}},
+ CellLabel->
+  "Out[107]=",ExpressionUUID->"860921e1-b1a9-4915-b2d1-e4b5882653a4"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Do", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"res", "[", 
+      RowBox[{"[", 
+       RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "=", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"D", "[", 
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+         RowBox[{"xxt", "[", 
+          RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+       RowBox[{"D", "[", 
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"r", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+         RowBox[{"xxt", "[", 
+          RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "n"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "n"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "n"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{"res", "[", 
+    RowBox[{"[", 
+     RowBox[{"r", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "="}], 
+  "]"}]}], "Input",
+ CellChangeTimes->{{3.798261770480234*^9, 
+  3.798261821269239*^9}},ExpressionUUID->"6ed5f051-7411-46b0-9fb3-\
+f6775be5748f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"res", "[", 
+   RowBox[{"[", 
+    RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "=", 
+  RowBox[{"Sum", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"g", "[", 
+      RowBox[{"[", 
+       RowBox[{"i", ",", "r"}], "]"}], "]"}], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"D", "[", 
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"r", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+         RowBox[{"xx", "[", 
+          RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+       RowBox[{"D", "[", 
+        RowBox[{
+         RowBox[{"Chr", "[", 
+          RowBox[{"[", 
+           RowBox[{"r", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+         RowBox[{"xx", "[", 
+          RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"r", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"s", ",", "n"}], "}"}]}], "]"}], "-", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"r", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"r", ",", "n"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798270435777136*^9, 3.7982704362000628`*^9}, {
+  3.798271004015177*^9, 
+  3.7982710178854313`*^9}},ExpressionUUID->"3c8e42ae-51fb-405c-a049-\
+35cff0a054ea"],
+
+Cell[BoxData[
+ RowBox[{"Sum", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Gull", "[", 
+         RowBox[{"[", 
+          RowBox[{"ll", ",", "ii", ",", "kk"}], "]"}], "]"}], ",", 
+        RowBox[{"xu", "[", 
+         RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "-", 
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Gull", "[", 
+         RowBox[{"[", 
+          RowBox[{"ll", ",", "jj", ",", "kk"}], "]"}], "]"}], ",", 
+        RowBox[{"xu", "[", 
+         RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "+", 
+      RowBox[{"Sum", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"Gull", "[", 
+           RowBox[{"[", 
+            RowBox[{"nn", ",", "ii", ",", "kk"}], "]"}], "]"}], " ", 
+          RowBox[{"Gull", "[", 
+           RowBox[{"[", 
+            RowBox[{"ll", ",", "nn", ",", "jj"}], "]"}], "]"}]}], "-", 
+         RowBox[{
+          RowBox[{"Gull", "[", 
+           RowBox[{"[", 
+            RowBox[{"nn", ",", "jj", ",", "kk"}], "]"}], "]"}], " ", 
+          RowBox[{"Gull", "[", 
+           RowBox[{"[", 
+            RowBox[{"ll", ",", "nn", ",", "ii"}], "]"}], "]"}]}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"nn", ",", "dim"}], "}"}]}], "]"}]}], ")"}], " ", 
+    RowBox[{"gll", "[", 
+     RowBox[{"[", 
+      RowBox[{"ll", ",", "mm"}], "]"}], "]"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"ll", ",", "dim"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
+"08010e25-a9cb-4239-aae2-a8b5bff5840e"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"res", "[", 
+     RowBox[{"[", 
+      RowBox[{"i", ",", "k", ",", "l", ",", "m"}], "]"}], "]"}], "=", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Chr", "[", 
+         RowBox[{"[", 
+          RowBox[{"i", ",", "k", ",", "m"}], "]"}], "]"}], ",", 
+        RowBox[{"xx", "[", 
+         RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "-", 
+      RowBox[{"D", "[", 
+       RowBox[{
+        RowBox[{"Chr", "[", 
+         RowBox[{"[", 
+          RowBox[{"i", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
+        RowBox[{"xx", "[", 
+         RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "+", 
+      RowBox[{"Sum", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "s", ",", "l"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "m"}], "]"}], "]"}]}], "-", 
+         RowBox[{
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "s", ",", "m"}], "]"}], "]"}], "*", 
+          RowBox[{"Chr", "[", 
+           RowBox[{"[", 
+            RowBox[{"s", ",", "k", ",", "l"}], "]"}], "]"}]}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"s", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"l", ",", "n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "n"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7982708774161158`*^9, 
+  3.79827089813865*^9}},ExpressionUUID->"694e3683-9945-499b-bb16-\
+cf59112f3cc3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Schwarzschild solution", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.74817116905129*^9, 
+  3.7481711974490223`*^9}},ExpressionUUID->"71c6953a-658a-45b8-8bc4-\
+5b582d6e7a41"],
+
+Cell[CellGroupData[{
+
+Cell["Centered at r=0", "Subsubsection",
+ CellChangeTimes->{{3.783402201148816*^9, 
+  3.7834022070941677`*^9}},ExpressionUUID->"097d7736-64f4-43ed-8752-\
+ace7248abe11"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", " ", 
+          RowBox[{"M", "/", "r"}]}]}], ")"}], ",", "0", ",", "0", ",", "0"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"M", "/", "r"}]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox["r", "2"]}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["r", "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"riccisc", "=", 
+  RowBox[{"FullSimplify", "@", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, 
+   3.782219455162467*^9},
+ CellLabel->
+  "In[287]:=",ExpressionUUID->"bc52bc22-aa28-46c1-bec0-7bb151040250"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.7979136584137077`*^9, 3.79791377859127*^9, 
+   3.797915265866742*^9, 3.797915486723537*^9, 3.7979155732465143`*^9, 
+   3.797915669432715*^9, 3.797916188930868*^9, 3.797916280485346*^9, 
+   3.7982022981861763`*^9, 3.798203133108059*^9, 3.798203221794207*^9, 
+   3.7982047855390177`*^9},
+ CellLabel->
+  "Out[288]=",ExpressionUUID->"af354c88-a964-4897-956b-c382f322a790"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.748171337672936*^9, 3.748171435515542*^9, 
+   3.748171472097746*^9, {3.7821974589108067`*^9, 3.782197525822959*^9}, 
+   3.782197774525013*^9, 3.7821978182122602`*^9, 3.782199138522822*^9, 
+   3.782200305520879*^9, 3.7822005243360853`*^9, 3.782200600177784*^9, 
+   3.782201008113688*^9, {3.7822194494845133`*^9, 3.782219464912323*^9}, 
+   3.782630476462756*^9, 3.782630521573388*^9, 3.7826305727030573`*^9, 
+   3.783402189441841*^9, 3.7979136584167757`*^9, 3.797913778593964*^9, 
+   3.797915265870791*^9, 3.7979154867260437`*^9, 3.7979155732492723`*^9, 
+   3.7979156694364433`*^9, 3.797916188934161*^9, 3.7979162804884167`*^9, 
+   3.79820229818928*^9, 3.798203133110924*^9, 3.798203221797865*^9, 
+   3.7982047855435266`*^9},
+ CellLabel->
+  "During evaluation of \
+In[287]:=",ExpressionUUID->"982f80a5-5816-4dbb-9383-da90f0a95ea2"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.7979136584137077`*^9, 3.79791377859127*^9, 
+   3.797915265866742*^9, 3.797915486723537*^9, 3.7979155732465143`*^9, 
+   3.797915669432715*^9, 3.797916188930868*^9, 3.797916280485346*^9, 
+   3.7982022981861763`*^9, 3.798203133108059*^9, 3.798203221794207*^9, 
+   3.798204785546117*^9},
+ CellLabel->
+  "Out[292]=",ExpressionUUID->"78edf1f1-3c90-49de-87e7-26a4e8cb1e0b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RicciScalarDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798204811856698*^9, 3.798204821209098*^9}},
+ CellLabel->
+  "In[315]:=",ExpressionUUID->"19e35762-c809-4558-94ef-46c9f005c26d"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{{3.798204816323435*^9, 3.7982048216018972`*^9}},
+ CellLabel->
+  "Out[315]=",ExpressionUUID->"22dea635-5fb2-40d1-81d9-e40378d9fee8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalarDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204748584147*^9, 3.7982047974538593`*^9}},
+ CellLabel->
+  "In[312]:=",ExpressionUUID->"d82f7aa2-a215-4330-959b-c50192e0809b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.007047`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.798204808635923*^9}},
+ CellLabel->
+  "Out[312]=",ExpressionUUID->"c8360ad2-5eba-476b-adc4-2dbec1c433fb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.011049`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.798204808738502*^9}},
+ CellLabel->
+  "Out[313]=",ExpressionUUID->"d196b586-d192-47c5-ba89-d4b22d565927"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{"ChristoffelSymbol", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+    RowBox[{"ChristoffelSymbolDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.797835299231812*^9, 3.797835340394423*^9}, {
+   3.797836115556294*^9, 3.7978361214969673`*^9}, {3.7978362190049334`*^9, 
+   3.797836222350019*^9}, {3.797912224035125*^9, 3.7979122242233*^9}, {
+   3.79791305515164*^9, 3.797913056807482*^9}, {3.797913637483117*^9, 
+   3.7979136385662603`*^9}, {3.797913671918254*^9, 3.797913718118505*^9}, 
+   3.797915079595621*^9, 3.797915122931198*^9},
+ CellLabel->
+  "In[221]:=",ExpressionUUID->"0247e2b9-bc3c-4c3f-bb00-8acd165592e5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.797913680342815*^9, 3.7979137185817537`*^9}, 
+   3.797913779560367*^9, 3.797916153139942*^9, 3.797916191502902*^9, 
+   3.797916281487125*^9, 3.798202301441284*^9, 3.798203135358303*^9, 
+   3.798203222442752*^9},
+ CellLabel->
+  "Out[221]=",ExpressionUUID->"0fdba44a-65cd-45b1-ba22-f41cc3770772"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7982021084293747`*^9, 3.798202108676981*^9}, 
+   3.798202209419623*^9, {3.798202278707458*^9, 3.798202344492771*^9}},
+ CellLabel->
+  "In[222]:=",ExpressionUUID->"7424ddb4-26b8-48d6-9abb-98d2bc885989"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.798202210082041*^9, 3.7982022406943617`*^9, {3.798202274764333*^9, 
+   3.798202281003334*^9}, {3.798202317306707*^9, 3.798202344906736*^9}, 
+   3.7982031359286547`*^9, 3.798203223004592*^9},
+ CellLabel->
+  "Out[222]=",ExpressionUUID->"de552109-5584-41ed-b9bf-a763376239e4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.7982032541973352`*^9, 3.7982032647545633`*^9}},
+ CellLabel->
+  "In[237]:=",ExpressionUUID->"dfefc84c-dd88-4a77-bff2-e060f6469dd9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006866`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203260933875*^9, 3.798203272767045*^9}},
+ CellLabel->
+  "Out[237]=",ExpressionUUID->"0f7f8d4a-fd24-4a77-a498-873ec5943458"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.010266`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203260933875*^9, 3.798203272874894*^9}},
+ CellLabel->
+  "Out[238]=",ExpressionUUID->"0f3aa6e9-6148-45e8-9769-ef3e29f81d80"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RicciTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203109138748*^9, 3.798203151789197*^9}, {
+  3.798203224680072*^9, 3.7982032288681593`*^9}},
+ CellLabel->
+  "In[223]:=",ExpressionUUID->"a45c7fd6-bc95-4cd2-a939-0f8b9ceee313"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7982031132894783`*^9, 3.798203121202406*^9}, 
+   3.798203152136614*^9, 3.798203229286425*^9},
+ CellLabel->
+  "Out[223]=",ExpressionUUID->"9df9d3c6-5328-4733-92da-a417154d24c6"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riemanndev", "=", 
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyldev", "=", 
+   RowBox[{"WeylTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+  3.78221947850369*^9, 3.782219506150009*^9}, {3.798202761833997*^9, 
+  3.798202776738352*^9}, {3.798203289208571*^9, 3.798203296173214*^9}},
+ CellLabel->
+  "In[243]:=",ExpressionUUID->"6c0757c1-66e8-4635-a6a5-ec9565cf9a09"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}], 
+   ";"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}], 
+   ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798203309481266*^9, 3.798203326705572*^9}},
+ CellLabel->
+  "In[262]:=",ExpressionUUID->"e481ab34-a861-4cbf-bb67-9d5ec109ebcb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006847`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203318979433*^9, 3.798203334094913*^9}, 
+   3.798203560664033*^9},
+ CellLabel->
+  "Out[262]=",ExpressionUUID->"57104fae-7004-49db-9520-650de57167f0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006349`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203318979433*^9, 3.798203334094913*^9}, 
+   3.79820356077897*^9},
+ CellLabel->
+  "Out[263]=",ExpressionUUID->"16cdaf05-618c-4d4c-9e5e-f68281f53b92"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"riemann", "-", "riemanndev"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203304472187*^9, 3.7982033059470587`*^9}},
+ CellLabel->
+  "In[264]:=",ExpressionUUID->"395e2117-5a18-4852-9ffe-0e5905492742"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7982033063425913`*^9, 3.798203561840762*^9},
+ CellLabel->
+  "Out[264]=",ExpressionUUID->"9ee3c406-b481-4f27-ada6-9b57b5e8621b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"weyldev", "-", "weyl"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798202780233724*^9, 3.7982027854377613`*^9}},
+ CellLabel->
+  "In[180]:=",ExpressionUUID->"d0571893-4b91-45a5-8b07-ab8ad5b83c2e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.798202785808283*^9},
+ CellLabel->
+  "Out[180]=",ExpressionUUID->"7513720c-eab0-4f3f-bdcf-8da67b8f20f7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"WeylTrace", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.7826305867019253`*^9, 
+   3.7826305936220818`*^9}},
+ CellLabel->
+  "In[163]:=",ExpressionUUID->"bd54c951-997e-4b8b-a899-a562208bb2a6"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.7826292163787107`*^9, 3.7826294821670322`*^9, 3.782629513596752*^9, 
+   3.782629548887363*^9, {3.782629622671447*^9, 3.7826296612390957`*^9}, 
+   3.7826297260622997`*^9, {3.78263057576853*^9, 3.7826305941944313`*^9}, 
+   3.7834021919351*^9, 3.797913661692087*^9, 3.798202364880413*^9},
+ CellLabel->
+  "Out[163]=",ExpressionUUID->"05d56857-72b0-4a1b-bf65-dd62002228bc"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}, {
+  3.782630596645924*^9, 3.782630597441167*^9}},
+ CellLabel->
+  "In[164]:=",ExpressionUUID->"ce2d7b28-ce7f-4e91-b79a-4c68043edacf"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}, {
+   3.7826305784902067`*^9, 3.782630597863805*^9}, 3.7834021923682137`*^9, 
+   3.797913662346368*^9, 3.798202365636868*^9},
+ CellLabel->
+  "Out[164]=",ExpressionUUID->"458cab5e-3d63-405a-be46-afcf502f7e2d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->
+  "In[173]:=",ExpressionUUID->"fe94d06a-6caf-4b89-8901-b282db79c747"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}, 3.7826306009316597`*^9, 
+   3.7834021929226503`*^9, 3.797913663066283*^9, 3.798202754365016*^9},
+ CellLabel->
+  "Out[173]=",ExpressionUUID->"46e93b8f-d250-48df-993b-4df86997f306"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->
+  "In[100]:=",ExpressionUUID->"7e2a08eb-a661-4dcf-a34a-bf362707e182"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9, 3.7826306026890507`*^9, 
+  3.783402193732977*^9, 3.79791366432831*^9},
+ CellLabel->
+  "Out[100]=",ExpressionUUID->"21b05cfc-e373-4ec3-8e53-509d03e916b2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->
+  "In[101]:=",ExpressionUUID->"1a24ba00-5ef8-4c8a-869e-50a6b344cb96"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9, 3.782630603464432*^9, 
+  3.783402194348279*^9, 3.7979136648421392`*^9},
+ CellLabel->
+  "Out[101]=",ExpressionUUID->"900bf33b-c142-487e-b8b5-186cb3cac659"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Kerr mod at r=0", "Subsubsection",
+ CellChangeTimes->{{3.783402201148816*^9, 3.7834022070941677`*^9}, {
+  3.798205250011554*^9, 
+  3.7982052519137278`*^9}},ExpressionUUID->"e43554bf-b26c-4e7d-84a9-\
+a8c2f159e955"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", " ", 
+          RowBox[{"M", "/", "r"}]}]}], ")"}], ",", 
+       RowBox[{
+        RowBox[{"-", " ", "a"}], "/", 
+        RowBox[{"r", "^", "2"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", " ", "a"}], "/", 
+        RowBox[{"r", "^", "2"}]}], ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"M", "/", "r"}]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox["r", "2"]}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["r", "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"riccisc", "=", 
+  RowBox[{"FullSimplify", "@", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, 
+   3.782219455162467*^9, {3.7982052642248983`*^9, 3.798205292176104*^9}},
+ CellLabel->
+  "In[276]:=",ExpressionUUID->"05f31ab9-16b7-42ba-8606-57d7209b7e4b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.7979136584137077`*^9, 3.79791377859127*^9, 
+   3.797915265866742*^9, 3.797915486723537*^9, 3.7979155732465143`*^9, 
+   3.797915669432715*^9, 3.797916188930868*^9, 3.797916280485346*^9, 
+   3.7982022981861763`*^9, 3.798203133108059*^9, 3.798203221794207*^9, 
+   3.7982047855390177`*^9, 3.798205257520162*^9, 3.798205292948371*^9, 
+   3.7983582191300993`*^9},
+ CellLabel->
+  "Out[277]=",ExpressionUUID->"6bcdbbd6-205b-41a0-abb8-bfebcc453f6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.748171337672936*^9, 3.748171435515542*^9, 
+   3.748171472097746*^9, {3.7821974589108067`*^9, 3.782197525822959*^9}, 
+   3.782197774525013*^9, 3.7821978182122602`*^9, 3.782199138522822*^9, 
+   3.782200305520879*^9, 3.7822005243360853`*^9, 3.782200600177784*^9, 
+   3.782201008113688*^9, {3.7822194494845133`*^9, 3.782219464912323*^9}, 
+   3.782630476462756*^9, 3.782630521573388*^9, 3.7826305727030573`*^9, 
+   3.783402189441841*^9, 3.7979136584167757`*^9, 3.797913778593964*^9, 
+   3.797915265870791*^9, 3.7979154867260437`*^9, 3.7979155732492723`*^9, 
+   3.7979156694364433`*^9, 3.797916188934161*^9, 3.7979162804884167`*^9, 
+   3.79820229818928*^9, 3.798203133110924*^9, 3.798203221797865*^9, 
+   3.7982047855435266`*^9, 3.798205257524719*^9, 3.7982052929555693`*^9, 
+   3.798358219133264*^9},
+ CellLabel->
+  "During evaluation of \
+In[276]:=",ExpressionUUID->"fb201946-a8e9-427e-9482-44a7f5630cad"],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["a", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["a", "2"], "+", 
+      RowBox[{"6", " ", "M", " ", 
+       SuperscriptBox["r", "3"]}], "-", 
+      RowBox[{"3", " ", 
+       SuperscriptBox["r", "4"]}]}], ")"}]}], 
+   RowBox[{
+    SuperscriptBox["r", "2"], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["a", "2"], "+", 
+       SuperscriptBox["r", "4"]}], ")"}], "2"]}]]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.7979136584137077`*^9, 3.79791377859127*^9, 
+   3.797915265866742*^9, 3.797915486723537*^9, 3.7979155732465143`*^9, 
+   3.797915669432715*^9, 3.797916188930868*^9, 3.797916280485346*^9, 
+   3.7982022981861763`*^9, 3.798203133108059*^9, 3.798203221794207*^9, 
+   3.7982047855390177`*^9, 3.798205257520162*^9, 3.798205292948371*^9, 
+   3.79835821921964*^9},
+ CellLabel->
+  "Out[281]=",ExpressionUUID->"1cb63972-9da5-467a-be1c-f293792f02b9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"g", "//", "TableForm"}]], "Input",
+ CellChangeTimes->{{3.798205298667816*^9, 3.798205303682613*^9}},
+ CellLabel->
+  "In[285]:=",ExpressionUUID->"60ca60ec-dc2b-48a3-822e-788e1a1bcdbf"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{"1", "-", 
+      FractionBox[
+       RowBox[{"2", " ", "M"}], "r"]}], 
+     RowBox[{"-", 
+      FractionBox["a", 
+       SuperscriptBox["r", "2"]]}], "0", "0"},
+    {
+     RowBox[{"-", 
+      FractionBox["a", 
+       SuperscriptBox["r", "2"]]}], 
+     RowBox[{"-", 
+      FractionBox["1", 
+       RowBox[{"1", "-", 
+        FractionBox[
+         RowBox[{"2", " ", "M"}], "r"]}]]}], "0", "0"},
+    {"0", "0", 
+     RowBox[{"-", 
+      SuperscriptBox["r", "2"]}], "0"},
+    {"0", "0", "0", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["r", "2"]}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.7982052959976892`*^9, 3.7982053040020113`*^9}, 
+   3.798358223995205*^9},
+ CellLabel->
+  "Out[285]//TableForm=",ExpressionUUID->"2a563e88-ab31-4cda-a4bb-\
+a5667eef19c2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RicciScalarDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798204811856698*^9, 3.798204821209098*^9}},
+ CellLabel->
+  "In[286]:=",ExpressionUUID->"d42c09f2-57c0-48c6-a89e-d2d7088b7ca2"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{{3.798204816323435*^9, 3.7982048216018972`*^9}, 
+   3.798205307770852*^9, 3.798358226664236*^9},
+ CellLabel->
+  "Out[286]=",ExpressionUUID->"62c89b2b-5cfe-4b79-a612-19aba2e14786"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalarDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204748584147*^9, 3.7982047974538593`*^9}},
+ CellLabel->
+  "In[377]:=",ExpressionUUID->"9d0b6749-f7cb-4712-97aa-9a7964afd790"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.011048`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.798204808635923*^9}, 
+   3.798205309647306*^9},
+ CellLabel->
+  "Out[377]=",ExpressionUUID->"bbbf5731-5bb2-472e-b683-1bd44dbe5a68"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.018603`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204751600883*^9, 3.798204808635923*^9}, 
+   3.798205309650301*^9},
+ CellLabel->
+  "Out[378]=",ExpressionUUID->"70123f00-074a-4a33-882a-e5225ed9630b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{"ChristoffelSymbol", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+    RowBox[{"ChristoffelSymbolDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.797835299231812*^9, 3.797835340394423*^9}, {
+   3.797836115556294*^9, 3.7978361214969673`*^9}, {3.7978362190049334`*^9, 
+   3.797836222350019*^9}, {3.797912224035125*^9, 3.7979122242233*^9}, {
+   3.79791305515164*^9, 3.797913056807482*^9}, {3.797913637483117*^9, 
+   3.7979136385662603`*^9}, {3.797913671918254*^9, 3.797913718118505*^9}, 
+   3.797915079595621*^9, 3.797915122931198*^9},
+ CellLabel->
+  "In[289]:=",ExpressionUUID->"b9948f6c-d174-4fcd-9cc2-27d140571218"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.797913680342815*^9, 3.7979137185817537`*^9}, 
+   3.797913779560367*^9, 3.797916153139942*^9, 3.797916191502902*^9, 
+   3.797916281487125*^9, 3.798202301441284*^9, 3.798203135358303*^9, 
+   3.798203222442752*^9, 3.798205310809457*^9, {3.798358233011009*^9, 
+   3.798358239973896*^9}},
+ CellLabel->
+  "Out[289]=",ExpressionUUID->"8fedad54-aa59-4b75-8fff-aba28ba3ad11"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensorDev2", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7982021084293747`*^9, 3.798202108676981*^9}, 
+   3.798202209419623*^9, {3.798202278707458*^9, 3.798202344492771*^9}, 
+   3.798358251132328*^9},
+ CellLabel->
+  "In[293]:=",ExpressionUUID->"ce880f5c-5bc7-4de0-bc57-e55a681ed2b5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.798202210082041*^9, 3.7982022406943617`*^9, {3.798202274764333*^9, 
+   3.798202281003334*^9}, {3.798202317306707*^9, 3.798202344906736*^9}, 
+   3.7982031359286547`*^9, 3.798203223004592*^9, 3.798205311846031*^9, {
+   3.798358237122497*^9, 3.798358251593992*^9}},
+ CellLabel->
+  "Out[293]=",ExpressionUUID->"3f1eab61-11b8-43a2-9901-09f55a9a3825"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.7982032541973352`*^9, 3.7982032647545633`*^9}},
+ CellLabel->
+  "In[294]:=",ExpressionUUID->"155c5e2a-4ee8-41a4-8c55-0c5b3dd543a2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.013085`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203260933875*^9, 3.798203272767045*^9}, 
+   3.798205312847139*^9, 3.7983582537927732`*^9},
+ CellLabel->
+  "Out[294]=",ExpressionUUID->"906266aa-9963-4682-a137-95757886d7df"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.015444`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203260933875*^9, 3.798203272767045*^9}, 
+   3.798205312847139*^9, 3.7983582537949467`*^9},
+ CellLabel->
+  "Out[295]=",ExpressionUUID->"24357483-228c-4dcb-a267-fa3d41edd8b4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"RicciTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203109138748*^9, 3.798203151789197*^9}, {
+  3.798203224680072*^9, 3.7982032288681593`*^9}},
+ CellLabel->
+  "In[296]:=",ExpressionUUID->"b6f96e58-3949-482e-84fd-1406f9da91b8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7982031132894783`*^9, 3.798203121202406*^9}, 
+   3.798203152136614*^9, 3.798203229286425*^9, 3.798205314134336*^9, 
+   3.798358258594306*^9},
+ CellLabel->
+  "Out[296]=",ExpressionUUID->"78d4a0b0-efd4-4070-9e13-296a508f708d"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riemanndev", "=", 
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyldev", "=", 
+   RowBox[{"WeylTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+  3.78221947850369*^9, 3.782219506150009*^9}, {3.798202761833997*^9, 
+  3.798202776738352*^9}, {3.798203289208571*^9, 3.798203296173214*^9}},
+ CellLabel->
+  "In[243]:=",ExpressionUUID->"acb00660-e03b-405c-bcc1-dc000f54f0d8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}], 
+   ";"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"RiemannTensorDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}], 
+   ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798203309481266*^9, 3.798203326705572*^9}},
+ CellLabel->
+  "In[262]:=",ExpressionUUID->"702c3ae5-2d9a-437d-a6d2-8bb23b963b34"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006847`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203318979433*^9, 3.798203334094913*^9}, 
+   3.798203560664033*^9},
+ CellLabel->
+  "Out[262]=",ExpressionUUID->"d77a9816-083c-4751-82d2-aacbd1332800"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006349`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798203318979433*^9, 3.798203334094913*^9}, 
+   3.79820356077897*^9},
+ CellLabel->
+  "Out[263]=",ExpressionUUID->"d4e2054a-93fa-4197-be67-6436756cc179"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"riemann", "-", "riemanndev"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203304472187*^9, 3.7982033059470587`*^9}},
+ CellLabel->
+  "In[264]:=",ExpressionUUID->"7bfc886e-2ded-48d0-9cf1-1960fe714b53"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7982033063425913`*^9, 3.798203561840762*^9},
+ CellLabel->
+  "Out[264]=",ExpressionUUID->"7245960e-40c8-4dfe-b52d-8cfc5149a6f5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"weyldev", "-", "weyl"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798202780233724*^9, 3.7982027854377613`*^9}},
+ CellLabel->
+  "In[180]:=",ExpressionUUID->"4d22f561-5068-4098-9b65-ab6a871e80c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.798202785808283*^9},
+ CellLabel->
+  "Out[180]=",ExpressionUUID->"748d820a-cc37-4410-9235-7476da197f5c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"WeylTrace", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.7826305867019253`*^9, 
+   3.7826305936220818`*^9}},
+ CellLabel->
+  "In[163]:=",ExpressionUUID->"76354c0f-e9fd-4d62-b862-7c3015f4ea76"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.7826292163787107`*^9, 3.7826294821670322`*^9, 3.782629513596752*^9, 
+   3.782629548887363*^9, {3.782629622671447*^9, 3.7826296612390957`*^9}, 
+   3.7826297260622997`*^9, {3.78263057576853*^9, 3.7826305941944313`*^9}, 
+   3.7834021919351*^9, 3.797913661692087*^9, 3.798202364880413*^9},
+ CellLabel->
+  "Out[163]=",ExpressionUUID->"72af99db-9d7f-4c7e-9223-640402a66ad3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}, {
+  3.782630596645924*^9, 3.782630597441167*^9}},
+ CellLabel->
+  "In[164]:=",ExpressionUUID->"c6cb8015-adfa-4648-b1fb-3af96ad9bfc4"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}, {
+   3.7826305784902067`*^9, 3.782630597863805*^9}, 3.7834021923682137`*^9, 
+   3.797913662346368*^9, 3.798202365636868*^9},
+ CellLabel->
+  "Out[164]=",ExpressionUUID->"2ed220c1-5a7c-4ecc-b217-dcdf9fc6e227"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->
+  "In[173]:=",ExpressionUUID->"8e109ca0-d330-4c1b-8d1b-26b236673b3d"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}, 3.7826306009316597`*^9, 
+   3.7834021929226503`*^9, 3.797913663066283*^9, 3.798202754365016*^9},
+ CellLabel->
+  "Out[173]=",ExpressionUUID->"18b7b647-8cb8-4583-8a0f-05b8da674072"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->
+  "In[100]:=",ExpressionUUID->"e21cf04c-f8ba-4443-8a5c-3f154e6eea0c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9, 3.7826306026890507`*^9, 
+  3.783402193732977*^9, 3.79791366432831*^9},
+ CellLabel->
+  "Out[100]=",ExpressionUUID->"06a9eb3c-e44b-4ce9-90d3-5e08bea49b82"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->
+  "In[101]:=",ExpressionUUID->"441b528d-5cee-4b6f-9d76-444744e866e9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9, 3.782630603464432*^9, 
+  3.783402194348279*^9, 3.7979136648421392`*^9},
+ CellLabel->
+  "Out[101]=",ExpressionUUID->"039bfaa9-ca81-4a36-8988-33e37b3cd0ae"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Centered at r=d (recovery of the expected solution)", "Subsubsection",
+ CellChangeTimes->{{3.783402201148816*^9, 3.7834022123112507`*^9}, {
+  3.783404813940013*^9, 
+  3.783404821622905*^9}},ExpressionUUID->"ba23e976-fa7b-4a9a-8934-\
+647fa435594b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", " ", 
+          RowBox[{"M", "/", 
+           RowBox[{"Sqrt", "[", 
+            RowBox[{
+             RowBox[{"r", "^", "2"}], "+", 
+             RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+             RowBox[{"2", "r", " ", "r1", " ", 
+              RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}]}]}]}], ")"}], 
+       ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"M", "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{
+              RowBox[{"r", "^", "2"}], "+", 
+              RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+              RowBox[{"2", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}]}]}]}], 
+         ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"Sqrt", "[", 
+          RowBox[{
+           RowBox[{"r", "^", "2"}], "+", 
+           RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+           RowBox[{"2", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}], "2"]}], ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox[
+          RowBox[{"Sqrt", "[", 
+           RowBox[{
+            RowBox[{"r", "^", "2"}], "+", 
+            RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+            RowBox[{"2", "r", " ", "r1", " ", 
+             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}], "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"riccisc", "=", 
+  RowBox[{"FullSimplify", "@", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, 
+   3.782219455162467*^9, {3.783402243067484*^9, 3.783402300981739*^9}, {
+   3.783402511789713*^9, 3.783402517412003*^9}},
+ CellLabel->"In[95]:=",ExpressionUUID->"4fd67d43-ee38-4901-9a4a-d89956cf95eb"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.783402361693857*^9, 3.783402518011313*^9},
+ CellLabel->"Out[96]=",ExpressionUUID->"06b60870-7a8e-4da4-91bd-b8d925454c51"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.748171337672936*^9, 3.748171435515542*^9, 
+   3.748171472097746*^9, {3.7821974589108067`*^9, 3.782197525822959*^9}, 
+   3.782197774525013*^9, 3.7821978182122602`*^9, 3.782199138522822*^9, 
+   3.782200305520879*^9, 3.7822005243360853`*^9, 3.782200600177784*^9, 
+   3.782201008113688*^9, {3.7822194494845133`*^9, 3.782219464912323*^9}, 
+   3.782630476462756*^9, 3.782630521573388*^9, 3.7826305727030573`*^9, 
+   3.783402189441841*^9, 3.783402361696969*^9, 3.7834025180148087`*^9},
+ CellLabel->
+  "During evaluation of \
+In[95]:=",ExpressionUUID->"ddace223-cda9-404e-87bd-78a292e5f7c6"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", 
+   SuperscriptBox["r1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "3"}], " ", "M"}], "+", 
+     SqrtBox[
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       SuperscriptBox["r1", "2"], "-", 
+       RowBox[{"2", " ", "r", " ", "r1", " ", 
+        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}], " ", 
+   SuperscriptBox[
+    RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["r", "2"], "+", 
+     SuperscriptBox["r1", "2"], "-", 
+     RowBox[{"2", " ", "r", " ", "r1", " ", 
+      RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
+   RowBox[{"5", "/", "2"}]]]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.783402361693857*^9, 3.7834025185222893`*^9},
+ CellLabel->
+  "Out[100]=",ExpressionUUID->"4aaf02bd-af65-4afe-8482-f92a29749b06"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+  3.78221947850369*^9, 3.782219506150009*^9}},
+ CellLabel->
+  "In[104]:=",ExpressionUUID->"b22c3b79-fdca-424f-b1a2-f13bdd670dba"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"wtr", "=", 
+  RowBox[{"WeylTrace", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.7826305867019253`*^9, 
+   3.7826305936220818`*^9}, {3.783402373181252*^9, 3.783402374000952*^9}},
+ CellLabel->
+  "In[106]:=",ExpressionUUID->"48448da8-b735-429f-bbf9-a9e6c33bd84b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", "M"}], "+", 
+        SqrtBox[
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          SuperscriptBox["r1", "2"], "-", 
+          RowBox[{"2", " ", "r", " ", "r1", " ", 
+           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"24", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r", "2"]}], "+", 
+        RowBox[{"6", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r1", "2"]}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"]}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r1", "4"]}], "-", 
+        RowBox[{"12", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"M", " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "24"}], " ", 
+            SuperscriptBox["M", "2"]}], "+", 
+           SuperscriptBox["r1", "2"], "+", 
+           RowBox[{"12", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "+", 
+        
+        RowBox[{
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"18", " ", 
+            SuperscriptBox["M", "2"]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}]}], "-", 
+           RowBox[{"13", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "-", 
+        RowBox[{"2", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}], "+", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+        RowBox[{"2", " ", "M", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "12"}], " ", "M", " ", 
+         SuperscriptBox["r", "4"]}], "-", 
+        RowBox[{"35", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"]}], "+", 
+        RowBox[{"M", " ", 
+         SuperscriptBox["r1", "4"]}], "+", 
+        RowBox[{"24", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"6", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r1", "4"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"48", " ", "M", " ", 
+            SuperscriptBox["r", "2"]}], "+", 
+           RowBox[{"35", " ", "M", " ", 
+            SuperscriptBox["r1", "2"]}], "-", 
+           RowBox[{"48", " ", 
+            SuperscriptBox["M", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+           RowBox[{"2", " ", 
+            SuperscriptBox["r1", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "+", 
+        
+        RowBox[{
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "M"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"37", " ", 
+               SuperscriptBox["r", "2"]}], "+", 
+              RowBox[{"13", " ", 
+               SuperscriptBox["r1", "2"]}]}], ")"}]}], "+", 
+           RowBox[{"18", " ", 
+            SuperscriptBox["M", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
+        RowBox[{"13", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}], "-", 
+        RowBox[{"2", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}], "+", 
+    RowBox[{"4", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+        RowBox[{"2", " ", "M", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"3", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", "M"}], "-", 
+           SqrtBox[
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             SuperscriptBox["r1", "2"], "-", 
+             RowBox[{"2", " ", "r", " ", "r1", " ", 
+              RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{"r", "-", 
+                RowBox[{"r1", " ", 
+                 RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], "2"]}], 
+            " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "2"}], " ", "M"}], "+", 
+              SqrtBox[
+               RowBox[{
+                SuperscriptBox["r", "2"], "+", 
+                SuperscriptBox["r1", "2"], "-", 
+                RowBox[{"2", " ", "r", " ", "r1", " ", 
+                 RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}]}], "-", 
+           
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["r", "2"], "+", 
+               SuperscriptBox["r1", "2"], "-", 
+               RowBox[{"2", " ", "r", " ", "r1", " ", 
+                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
+             RowBox[{"3", "/", "2"}]], " ", 
+            SuperscriptBox[
+             RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["r", "2"], "+", 
+               SuperscriptBox["r1", "2"], "-", 
+               RowBox[{"2", " ", "r", " ", "r1", " ", 
+                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
+             RowBox[{"3", "/", "2"}]], " ", 
+            SuperscriptBox[
+             RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
+        RowBox[{"6", " ", "M", " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "2"}], " ", "M"}], "+", 
+           SqrtBox[
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             SuperscriptBox["r1", "2"], "-", 
+             RowBox[{"2", " ", "r", " ", "r1", " ", 
+              RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "-", 
+        RowBox[{
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"5", " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}]}], "-", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["M", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "-", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "5"}], " ", "M"}], "+", 
+              SqrtBox[
+               RowBox[{
+                SuperscriptBox["r", "2"], "+", 
+                SuperscriptBox["r1", "2"], "-", 
+                RowBox[{"2", " ", "r", " ", "r1", " ", 
+                 RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}]}]}], 
+          ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}]}], ")"}], "2"]}], 
+    "+", 
+    RowBox[{"2", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+        RowBox[{"2", " ", "M", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "12"}], " ", "M", " ", 
+         SuperscriptBox["r", "4"]}], "-", 
+        RowBox[{"15", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"]}], "-", 
+        RowBox[{"3", " ", "M", " ", 
+         SuperscriptBox["r1", "4"]}], "-", 
+        RowBox[{"48", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}], "2"]}], "+", 
+        RowBox[{"24", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"6", " ", 
+         SuperscriptBox["M", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+        RowBox[{"9", " ", "M", " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["r", "2"]}], "-", 
+           SuperscriptBox["r1", "2"], "+", 
+           RowBox[{"2", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
+        RowBox[{"9", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Cos", "[", 
+          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}], "+", 
+        RowBox[{"8", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
+        RowBox[{"8", " ", "M", " ", 
+         SuperscriptBox["r1", "4"], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r1", "4"], " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
+        RowBox[{"r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"16", " ", 
+               SuperscriptBox["r", "2"]}], "+", 
+              RowBox[{"13", " ", 
+               SuperscriptBox["r1", "2"]}], "-", 
+              RowBox[{"16", " ", "M", " ", 
+               SqrtBox[
+                RowBox[{
+                 SuperscriptBox["r", "2"], "+", 
+                 SuperscriptBox["r1", "2"], "-", 
+                 RowBox[{"2", " ", "r", " ", "r1", " ", 
+                  RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], 
+           "+", 
+           RowBox[{"8", " ", 
+            SuperscriptBox["r1", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+            SuperscriptBox[
+             RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}]}], ")"}]}], "-", 
+        RowBox[{"8", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Sin", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"Sin", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}], "+", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+        RowBox[{"2", " ", "M", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"12", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}], "3"]}], "+", 
+        RowBox[{"6", " ", "M", " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "5"}], " ", 
+            SuperscriptBox["r", "2"]}], "-", 
+           SuperscriptBox["r1", "2"], "+", 
+           RowBox[{"2", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "+", 
+        
+        RowBox[{"6", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["r", "2"]}], "-", 
+           SuperscriptBox["r1", "2"], "+", 
+           RowBox[{"2", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "-", 
+        
+        RowBox[{
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "7"}], " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["M", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
+        RowBox[{"4", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", " ", 
+               SuperscriptBox["r", "2"]}], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "M", " ", 
+               SqrtBox[
+                RowBox[{
+                 SuperscriptBox["r", "2"], "+", 
+                 SuperscriptBox["r1", "2"], "-", 
+                 RowBox[{"2", " ", "r", " ", "r1", " ", 
+                  RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            SuperscriptBox["r1", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+            SuperscriptBox[
+             RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}]}], ")"}]}], "-", 
+        RowBox[{"7", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Sin", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"Sin", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}], "+", 
+    RowBox[{"3", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        SuperscriptBox["r1", "2"], "-", 
+        RowBox[{"2", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+        RowBox[{"2", " ", "M", " ", 
+         SqrtBox[
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "r", " ", "r1", " ", 
+            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "12"}], " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}], "3"]}], "+", 
+        RowBox[{"6", " ", "M", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           SuperscriptBox["r1", "2"], "-", 
+           RowBox[{"2", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "-", 
+        
+        RowBox[{"6", " ", "M", " ", 
+         SuperscriptBox["r1", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "5"}], " ", 
+            SuperscriptBox["r", "2"]}], "-", 
+           SuperscriptBox["r1", "2"], "+", 
+           RowBox[{"2", " ", "M", " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], "+", 
+        
+        RowBox[{
+         SuperscriptBox["r1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "7"}], " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["M", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"]}], ")"}], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "-", 
+        RowBox[{"4", " ", "r", " ", "r1", " ", 
+         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", "M", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", " ", 
+               SuperscriptBox["r", "2"]}], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "M", " ", 
+               SqrtBox[
+                RowBox[{
+                 SuperscriptBox["r", "2"], "+", 
+                 SuperscriptBox["r1", "2"], "-", 
+                 RowBox[{"2", " ", "r", " ", "r1", " ", 
+                  RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            SuperscriptBox["r1", "2"], " ", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["r", "2"], "+", 
+              SuperscriptBox["r1", "2"], "-", 
+              RowBox[{"2", " ", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], " ", 
+            SuperscriptBox[
+             RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}]}], ")"}]}], "+", 
+        RowBox[{"7", " ", "M", " ", "r", " ", 
+         SuperscriptBox["r1", "3"], " ", 
+         RowBox[{"Sin", "[", "\[Theta]1", "]"}], " ", 
+         RowBox[{"Sin", "[", 
+          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}]}], ")"}], 
+  "/", 
+  RowBox[{"(", 
+   RowBox[{"18", " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       SuperscriptBox["r1", "2"], "-", 
+       RowBox[{"2", " ", "r", " ", "r1", " ", 
+        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], "6"], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", "M"}], "+", 
+       SqrtBox[
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         SuperscriptBox["r1", "2"], "-", 
+         RowBox[{"2", " ", "r", " ", "r1", " ", 
+          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ")"}], "2"], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       SuperscriptBox["r1", "2"], "-", 
+       RowBox[{"2", " ", "r", " ", "r1", " ", 
+        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
+       RowBox[{"2", " ", "M", " ", 
+        SqrtBox[
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          SuperscriptBox["r1", "2"], "-", 
+          RowBox[{"2", " ", "r", " ", "r1", " ", 
+           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]}], ")"}], "2"]}], 
+   ")"}]}]], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.7826292163787107`*^9, 3.7826294821670322`*^9, 3.782629513596752*^9, 
+   3.782629548887363*^9, {3.782629622671447*^9, 3.7826296612390957`*^9}, 
+   3.7826297260622997`*^9, {3.78263057576853*^9, 3.7826305941944313`*^9}, 
+   3.7834021919351*^9, {3.783402369029224*^9, 3.783402374737726*^9}, 
+   3.7834025939003277`*^9},
+ CellLabel->
+  "Out[106]=",ExpressionUUID->"25056618-0553-4369-a989-9da1e9ea57a7"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"wtr", "/.", 
+   RowBox[{"\[Theta]1", "\[Rule]", "0"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7834023786761513`*^9, 3.783402401488029*^9}, {
+  3.783402436321726*^9, 3.783402437026492*^9}},
+ CellLabel->
+  "In[107]:=",ExpressionUUID->"58eeb28d-a0f3-4b57-885e-098ab3e4faa1"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"r", "-", "r1"}], ")"}], "6"]]], "Output",
+ CellChangeTimes->{{3.7834023828131447`*^9, 3.783402401905864*^9}, 
+   3.7834024375330143`*^9, 3.783402594537661*^9},
+ CellLabel->
+  "Out[107]=",ExpressionUUID->"ae9944c0-3f20-4f92-926d-30a583cf8c6b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}, {
+  3.782630596645924*^9, 3.782630597441167*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"7daeea03-a07b-45c9-9062-b3e37fae4891"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}, {
+   3.7826305784902067`*^9, 3.782630597863805*^9}, 3.7834021923682137`*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"e2db03df-5f12-47b8-96a1-904adb17c403"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->"In[75]:=",ExpressionUUID->"afb7792d-d623-4673-b2dd-c45d5fa70422"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}, 3.7826306009316597`*^9, 
+   3.7834021929226503`*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"330b5f86-6e71-47cf-b7c3-9cf31ea6e42a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->"In[76]:=",ExpressionUUID->"6441def8-220d-43ea-9c40-e63413506748"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9, 3.7826306026890507`*^9, 
+  3.783402193732977*^9},
+ CellLabel->"Out[76]=",ExpressionUUID->"449cd564-b1d3-4e12-a661-fcf7df5397e0"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[77]:=",ExpressionUUID->"2833197a-c0cb-48dd-849e-eeb44afc0931"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9, 3.782630603464432*^9, 
+  3.783402194348279*^9},
+ CellLabel->"Out[77]=",ExpressionUUID->"88c98d26-2d4e-464f-96ef-c782868f3050"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Centered at r=d (different sol.)", "Subsubsection",
+ CellChangeTimes->{{3.783402201148816*^9, 3.7834022123112507`*^9}, {
+  3.783404813940013*^9, 
+  3.783404832062974*^9}},ExpressionUUID->"03f50970-3fdc-4e1d-8009-\
+e192edb7e192"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", " ", 
+          RowBox[{"M", "/", 
+           RowBox[{"Sqrt", "[", 
+            RowBox[{
+             RowBox[{"r", "^", "2"}], "+", 
+             RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+             RowBox[{"2", "r", " ", "r1", " ", 
+              RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}]}]}]}], ")"}], 
+       ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"M", "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{
+              RowBox[{"r", "^", "2"}], "+", 
+              RowBox[{"r1", "^", "2"}], " ", "-", " ", 
+              RowBox[{"2", "r", " ", "r1", " ", 
+               RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], "]"}]}]}]}], 
+         ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox["r", "2"]}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["r", "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"riccisc", "=", 
+  RowBox[{"FullSimplify", "@", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, 
+   3.782219455162467*^9, {3.783402243067484*^9, 3.783402300981739*^9}, {
+   3.783402511789713*^9, 3.783402517412003*^9}, {3.7834048403163633`*^9, 
+   3.783404843504134*^9}},
+ CellLabel->
+  "In[149]:=",ExpressionUUID->"d11b3047-6f7e-4abc-a919-968f38d3f32a"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.783402361693857*^9, 3.783402518011313*^9, 
+   3.783404844841113*^9},
+ CellLabel->
+  "Out[150]=",ExpressionUUID->"5384b931-7bdb-4128-9307-5dade5d5452b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.748171337672936*^9, 3.748171435515542*^9, 
+   3.748171472097746*^9, {3.7821974589108067`*^9, 3.782197525822959*^9}, 
+   3.782197774525013*^9, 3.7821978182122602`*^9, 3.782199138522822*^9, 
+   3.782200305520879*^9, 3.7822005243360853`*^9, 3.782200600177784*^9, 
+   3.782201008113688*^9, {3.7822194494845133`*^9, 3.782219464912323*^9}, 
+   3.782630476462756*^9, 3.782630521573388*^9, 3.7826305727030573`*^9, 
+   3.783402189441841*^9, 3.783402361696969*^9, 3.7834025180148087`*^9, 
+   3.7834048448445*^9},
+ CellLabel->
+  "During evaluation of \
+In[149]:=",ExpressionUUID->"293cc5c7-2855-4953-b62d-d5b5549b6c77"],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"M", " ", 
+    SuperscriptBox["r1", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["r", "2"], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r1", "2"]}], "-", 
+      RowBox[{"8", " ", "r", " ", "r1", " ", 
+       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
+      RowBox[{"3", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"Cos", "[", 
+        RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}], 
+   RowBox[{
+    SuperscriptBox["r", "2"], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       SuperscriptBox["r1", "2"], "-", 
+       RowBox[{"2", " ", "r", " ", "r1", " ", 
+        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
+     RowBox[{"5", "/", "2"}]]}]]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, 3.7821991385183163`*^9, 
+   3.782200305518237*^9, 3.78220052433305*^9, 3.782200600174798*^9, 
+   3.7822010081105757`*^9, {3.782219449481257*^9, 3.7822194649098873`*^9}, 
+   3.7826304764595337`*^9, 3.7826305215650063`*^9, 3.782630572700049*^9, 
+   3.783402189437334*^9, 3.783402361693857*^9, 3.783402518011313*^9, 
+   3.7834048455695*^9},
+ CellLabel->
+  "Out[154]=",ExpressionUUID->"db3d01d8-9a29-4fc3-9b13-ed4fc58ec1e4"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+  3.78221947850369*^9, 3.782219506150009*^9}},
+ CellLabel->
+  "In[158]:=",ExpressionUUID->"e6d8f1b9-633d-4725-96c7-7f6b00e17104"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"wtr", "=", 
+  RowBox[{"WeylTrace", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.7826305867019253`*^9, 
+   3.7826305936220818`*^9}, {3.783402373181252*^9, 3.783402374000952*^9}},
+ CellLabel->
+  "In[160]:=",ExpressionUUID->"2cc06b90-b0c8-40f6-971e-060563b26645"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["M", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"12", " ", 
+       SuperscriptBox["r", "4"]}], "+", 
+      RowBox[{"25", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox["r1", "2"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r1", "4"]}], "-", 
+      RowBox[{"4", " ", "r", " ", "r1", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"9", " ", 
+          SuperscriptBox["r", "2"]}], "+", 
+         RowBox[{"5", " ", 
+          SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
+       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
+      RowBox[{"15", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox["r1", "2"], " ", 
+       RowBox[{"Cos", "[", 
+        RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}], "2"]}], 
+  RowBox[{"3", " ", 
+   SuperscriptBox["r", "4"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["r", "2"], "+", 
+      SuperscriptBox["r1", "2"], "-", 
+      RowBox[{"2", " ", "r", " ", "r1", " ", 
+       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], "5"]}]]], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.7826292163787107`*^9, 3.7826294821670322`*^9, 3.782629513596752*^9, 
+   3.782629548887363*^9, {3.782629622671447*^9, 3.7826296612390957`*^9}, 
+   3.7826297260622997`*^9, {3.78263057576853*^9, 3.7826305941944313`*^9}, 
+   3.7834021919351*^9, {3.783402369029224*^9, 3.783402374737726*^9}, 
+   3.7834025939003277`*^9, 3.7834048492638817`*^9},
+ CellLabel->
+  "Out[160]=",ExpressionUUID->"a041fc60-67d4-47f5-9ac7-6f1c4d2c2eeb"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"FullSimplify", "[", 
+    RowBox[{"wtr", "/.", 
+     RowBox[{"\[Theta]1", "\[Rule]", "0"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "r1", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7834023786761513`*^9, 3.783402401488029*^9}, {
+  3.783402436321726*^9, 3.783402437026492*^9}, {3.7834048554827557`*^9, 
+  3.7834048688526773`*^9}},
+ CellLabel->
+  "In[162]:=",ExpressionUUID->"76ed1715-da47-4c79-b5fb-3f9700c84fd3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{"16", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"r", "-", "r1"}], ")"}], "6"]}]], "+", 
+   FractionBox[
+    RowBox[{"32", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", "r1", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"r", "-", "r1"}], ")"}], "5"]}]], "+", 
+   FractionBox[
+    RowBox[{"16", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", 
+     SuperscriptBox["r1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"r", "-", "r1"}], ")"}], "4"]}]], "-", 
+   FractionBox[
+    RowBox[{"32", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", 
+     SuperscriptBox["r1", "3"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"r", "-", "r1"}], ")"}], "3"]}]], "+", 
+   FractionBox[
+    RowBox[{"32", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", 
+     SuperscriptBox["r1", "4"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"r", "-", "r1"}], ")"}], "2"]}]], "-", 
+   FractionBox[
+    RowBox[{"32", " ", 
+     SuperscriptBox["M", "2"]}], 
+    RowBox[{"3", " ", 
+     SuperscriptBox["r1", "5"], " ", 
+     RowBox[{"(", 
+      RowBox[{"r", "-", "r1"}], ")"}]}]], "+", 
+   FractionBox[
+    RowBox[{"16", " ", 
+     SuperscriptBox["M", "2"]}], 
+    SuperscriptBox["r1", "6"]], "-", 
+   FractionBox[
+    RowBox[{"32", " ", 
+     SuperscriptBox["M", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"r", "-", "r1"}], ")"}]}], 
+    SuperscriptBox["r1", "7"]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"r", "-", "r1"}], "]"}], "2"],
+    SeriesData[$CellContext`r, $CellContext`r1, {}, -6, 2, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`r, $CellContext`r1, {
+   Rational[16, 3] $CellContext`M^2, 
+    Rational[32, 3] $CellContext`M^2/$CellContext`r1, 
+    Rational[16, 3] $CellContext`M^2 $CellContext`r1^(-2), 
+    Rational[-32, 3] $CellContext`M^2 $CellContext`r1^(-3), 
+    Rational[32, 3] $CellContext`M^2 $CellContext`r1^(-4), 
+    Rational[-32, 3] $CellContext`M^2 $CellContext`r1^(-5), 
+    16 $CellContext`M^2 $CellContext`r1^(-6), (-32) $CellContext`M^2 \
+$CellContext`r1^(-7)}, -6, 2, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.7834023828131447`*^9, 3.783402401905864*^9}, 
+   3.7834024375330143`*^9, 3.783402594537661*^9, {3.783404849437766*^9, 
+   3.783404869454207*^9}},
+ CellLabel->
+  "Out[162]=",ExpressionUUID->"53b1f956-56b9-4346-80fa-c8b426515863"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}, {
+  3.782630596645924*^9, 3.782630597441167*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"226fd772-cc38-4fb3-9167-e835546f18b7"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}, {
+   3.7826305784902067`*^9, 3.782630597863805*^9}, 3.7834021923682137`*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"17abe11d-e21d-4685-b4b8-d912eff82eff"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->"In[75]:=",ExpressionUUID->"b98129e6-803c-4951-9a34-7f14dd9f5dd2"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}, 3.7826306009316597`*^9, 
+   3.7834021929226503`*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"d5801126-a3ac-40b7-b07e-7cd16b98f233"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->"In[76]:=",ExpressionUUID->"b7acc017-0cdc-402f-bee7-cd9056bce9df"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9, 3.7826306026890507`*^9, 
+  3.783402193732977*^9},
+ CellLabel->"Out[76]=",ExpressionUUID->"ae79aff6-809d-45f9-b998-254115d39c48"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[77]:=",ExpressionUUID->"2007b6b3-a1ab-4f00-a7ff-30433be708ea"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9, 3.782630603464432*^9, 
+  3.783402194348279*^9},
+ CellLabel->"Out[77]=",ExpressionUUID->"32669049-5f44-4c4f-a698-e1f2009716a6"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["De Sitter-Schwarzschild solution", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.74817116905129*^9, 3.7481711974490223`*^9}, {
+  3.782197905848242*^9, 
+  3.782197910102886*^9}},ExpressionUUID->"23d96f1e-2347-48e0-ac75-\
+17359a135bfb"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"2", " ", 
+          RowBox[{"M", "/", "r"}]}], "-", 
+         RowBox[{"\[CapitalLambda]", " ", 
+          RowBox[{
+           RowBox[{"r", "^", "2"}], "/", 
+           RowBox[{"(", "3", ")"}]}]}]}], ")"}], ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"M", "/", "r"}]}], "-", 
+          RowBox[{"\[CapitalLambda]", " ", 
+           RowBox[{
+            RowBox[{"r", "^", "2"}], "/", 
+            RowBox[{"(", "3", ")"}]}]}]}], ")"}]}], ",", "0", ",", "0"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox["r", "2"]}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["r", "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccisc", "=", 
+   RowBox[{"FullSimplify", "@", 
+    RowBox[{"RicciScalar", "[", 
+     RowBox[{"xx", ",", "g"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, {
+   3.782197923165782*^9, 3.782197946067222*^9}, {3.782197980049502*^9, 
+   3.782197993665573*^9}, {3.7979162931804533`*^9, 3.797916299399157*^9}},
+ CellLabel->
+  "In[345]:=",ExpressionUUID->"d2cef66a-d619-4c5d-afe3-b60c65ba9c77"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.748171337542096*^9, 3.748171435499645*^9, 
+   3.7481714720853043`*^9, {3.782197458908531*^9, 3.782197525819818*^9}, 
+   3.7821977745215807`*^9, 3.7821978182088623`*^9, {3.7821979139962797`*^9, 
+   3.782197946590433*^9}, {3.7821979918141727`*^9, 3.782197994085217*^9}, 
+   3.7822006216431437`*^9, 3.782630332923903*^9, {3.7979162901303797`*^9, 
+   3.797916300050826*^9}},
+ CellLabel->
+  "Out[346]=",ExpressionUUID->"31b0d5eb-afa5-4752-9d08-34165787a314"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{{3.7979162901377583`*^9, 3.797916300054262*^9}},
+ CellLabel->
+  "During evaluation of \
+In[345]:=",ExpressionUUID->"c3c48d41-56fc-4ba9-8dbd-a8d83ef1ff13"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{"ChristoffelSymbol", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+    RowBox[{"ChristoffelSymbolDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.797835299231812*^9, 3.797835340394423*^9}, {
+   3.797836115556294*^9, 3.7978361214969673`*^9}, {3.7978362190049334`*^9, 
+   3.797836222350019*^9}, {3.797912224035125*^9, 3.7979122242233*^9}, {
+   3.79791305515164*^9, 3.797913056807482*^9}, {3.797913637483117*^9, 
+   3.7979136385662603`*^9}, {3.797913671918254*^9, 3.797913718118505*^9}, 
+   3.797915079595621*^9, 3.797915122931198*^9},
+ CellLabel->
+  "In[354]:=",ExpressionUUID->"8731592f-b5b6-44d9-bfe3-fed3eab238bc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.797916305690037*^9},
+ CellLabel->
+  "Out[354]=",ExpressionUUID->"f137ad53-add1-4a67-97d5-498ae2c0972b"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+  3.782200987615611*^9, 3.7822009920712767`*^9}},
+ CellLabel->
+  "In[478]:=",ExpressionUUID->"ec9f40c8-c6cc-4367-bd37-3c6a19fe8a01"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->
+  "In[480]:=",ExpressionUUID->"33b7c433-9fd2-4efd-855d-75a56448e4c8"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"6", " ", "M"}], "-", 
+     RowBox[{"3", " ", "r"}], "+", 
+     RowBox[{
+      SuperscriptBox["r", "3"], " ", "\[CapitalLambda]"}]}], ")"}]}], 
+  RowBox[{"3", " ", 
+   SuperscriptBox["r", "2"]}]]], "Output",
+ CellChangeTimes->{3.782200624712783*^9, 3.782200995586378*^9},
+ CellLabel->
+  "Out[480]=",ExpressionUUID->"f136e73c-92b0-44be-b4dc-ebfa5a37a5d3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"WeylTrace", "[", 
+  RowBox[{"xx", ",", "g"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+  3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+  3.782199120218539*^9}},
+ CellLabel->
+  "In[475]:=",ExpressionUUID->"3e4927ab-ec94-4d10-bc92-ba926930e2e3"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.782199121242787*^9}, 
+   3.782200631074593*^9},
+ CellLabel->
+  "Out[475]=",ExpressionUUID->"ae021c1b-256c-4638-b76b-945563bee8c4"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["(*Another test (https://arxiv.org/pdf/0706.0622.pdf)*)", "Subsection",
+ CellChangeTimes->{{3.7826276363114853`*^9, 3.782627639845909*^9}, {
+  3.782628341938529*^9, 
+  3.782628348314848*^9}},ExpressionUUID->"9860c941-3dd8-458e-8cd5-\
+866698d2b422"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ds2", "=", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{"dr", "+", 
+       RowBox[{"a", " ", "d\[Phi]", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"du", "+", 
+       RowBox[{"a", " ", "d\[Phi]", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "1"}], "+", 
+       FractionBox[
+        RowBox[{"2", " ", "m", " ", "r"}], 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"du", "+", 
+        RowBox[{"a", " ", "d\[Phi]", " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], "2"]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["d\[Theta]", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["d\[Phi]", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.782628939500342*^9, 3.782628944519279*^9}},
+ CellLabel->
+  "In[358]:=",ExpressionUUID->"d69d8708-895a-463b-a52e-ab1008cb4d55"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{"ds2", ",", 
+   RowBox[{"{", 
+    RowBox[{"du", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782628356213738*^9, 3.782628378575472*^9}},
+ CellLabel->
+  "In[359]:=",ExpressionUUID->"a51b6570-caec-4c7e-9875-fd7276af2b2c"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox["d\[Theta]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["r", "2"], "+", 
+     RowBox[{
+      SuperscriptBox["a", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["du", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", "m", " ", "r"}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "a", " ", "dr", " ", "d\[Phi]", " ", 
+   SuperscriptBox[
+    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["d\[Phi]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["a", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+     RowBox[{
+      SuperscriptBox["a", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        FractionBox[
+         RowBox[{"2", " ", "m", " ", "r"}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "+", 
+  RowBox[{"du", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "dr"}], "+", 
+     RowBox[{"d\[Phi]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "a", " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+        RowBox[{"2", " ", "a", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           FractionBox[
+            RowBox[{"2", " ", "m", " ", "r"}], 
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["a", "2"], " ", 
+              SuperscriptBox[
+               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}], 
+    ")"}]}]}]], "Output",
+ CellChangeTimes->{{3.7826283576926394`*^9, 3.782628379103348*^9}, 
+   3.782628557977313*^9, 3.782628947840866*^9, 3.797916322012472*^9},
+ CellLabel->
+  "Out[359]=",ExpressionUUID->"6912a6f5-90db-4a13-b550-13e668a27885"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"g", "=", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "+", 
+          FractionBox[
+           RowBox[{"2", " ", "m", " ", "r"}], 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], ",", 
+        
+        FractionBox[
+         RowBox[{"2", "  ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+             SuperscriptBox[
+              RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", "0", ",", 
+        FractionBox[
+         RowBox[{"4", " ", "a", "  ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"2", "  ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+             SuperscriptBox[
+              RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", "0", ",", 
+        "0", ",", 
+        RowBox[{"2", " ", "a", "  ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], ",", 
+        "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"4", " ", "a", "  ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", 
+        RowBox[{"2", " ", "a", "  ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0", ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["a", "2"], " ", 
+              SuperscriptBox[
+               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          RowBox[{"2", " ", 
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "1"}], "+", 
+             FractionBox[
+              RowBox[{"2", " ", "m", " ", "r"}], 
+              RowBox[{
+               SuperscriptBox["r", "2"], "+", 
+               RowBox[{
+                SuperscriptBox["a", "2"], " ", 
+                SuperscriptBox[
+                 RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], 
+           " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "}"}]}],
+      "}"}]}], ")"}], "//", "TableForm"}]], "Input",
+ CellChangeTimes->{{3.782628565033598*^9, 3.782628627736512*^9}, {
+   3.7826286879721413`*^9, 3.782628794600528*^9}, {3.7826289184069147`*^9, 
+   3.7826289237717943`*^9}, {3.782629080517095*^9, 3.782629081722155*^9}, 
+   3.782629139723832*^9},
+ CellLabel->
+  "In[360]:=",ExpressionUUID->"5aab6c9f-8c4b-44ce-b705-7c0c78e08037"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "m", " ", "r"}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+         RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", 
+     FractionBox[
+      RowBox[{"4", " ", "a", " ", "m", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]},
+    {
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+         RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", "0", 
+     RowBox[{"2", " ", "a", " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
+    {"0", "0", 
+     RowBox[{
+      SuperscriptBox["r", "2"], "+", 
+      RowBox[{
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0"},
+    {
+     FractionBox[
+      RowBox[{"4", " ", "a", " ", "m", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], 
+     RowBox[{"2", " ", "a", " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+      RowBox[{
+       SuperscriptBox["a", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         FractionBox[
+          RowBox[{"2", " ", "m", " ", "r"}], 
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           RowBox[{
+            SuperscriptBox["a", "2"], " ", 
+            SuperscriptBox[
+             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.782628717065482*^9, 3.7826287948669167`*^9}, {
+   3.78262892422803*^9, 3.7826289484227858`*^9}, 3.782629082297165*^9, 
+   3.782629140649428*^9, 3.782630298178563*^9, 3.782630641705719*^9, 
+   3.782630736535286*^9, 3.782631131427799*^9, 3.797916322568838*^9},
+ CellLabel->
+  "Out[360]//TableForm=",ExpressionUUID->"a5709ecc-77b5-4bf2-ad7f-\
+a1afe814f0fe"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}]], "Input",
+ CellLabel->
+  "In[361]:=",ExpressionUUID->"4fd267d1-5cbf-4aee-b206-af288e917bfe"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"ChristoffelSymbolDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"ChristoffelSymbol", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.797916347650399*^9, 3.797916359208786*^9}},
+ CellLabel->
+  "In[377]:=",ExpressionUUID->"6a5cc6fd-f069-4911-88a2-66b9af0b0afb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.006342`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7979163499404783`*^9, 3.797916370519368*^9}},
+ CellLabel->
+  "Out[377]=",ExpressionUUID->"cff29f79-f15c-45d3-aec8-0f8bbd95d147"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.008851`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7979163499404783`*^9, 3.797916370619577*^9}},
+ CellLabel->
+  "Out[378]=",ExpressionUUID->"ae24194c-ad93-424d-b0fe-65580e988f72"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{"ChristoffelSymbol", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+    RowBox[{"ChristoffelSymbolDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.797835299231812*^9, 3.797835340394423*^9}, {
+   3.797836115556294*^9, 3.7978361214969673`*^9}, {3.7978362190049334`*^9, 
+   3.797836222350019*^9}, {3.797912224035125*^9, 3.7979122242233*^9}, {
+   3.79791305515164*^9, 3.797913056807482*^9}, {3.797913637483117*^9, 
+   3.7979136385662603`*^9}, {3.797913671918254*^9, 3.797913718118505*^9}, 
+   3.797915079595621*^9, 3.797915122931198*^9},
+ CellLabel->
+  "In[365]:=",ExpressionUUID->"243dfb6f-6e59-4855-bb6d-375157d4152d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.797916305690037*^9, 3.79791633222025*^9}},
+ CellLabel->
+  "Out[365]=",ExpressionUUID->"dc14c283-12a1-4b2b-a3dc-649052c42761"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+   3.78221947850369*^9, 3.782219506150009*^9}, 3.782629421278203*^9, {
+   3.782630826812586*^9, 3.782630830660441*^9}},
+ CellLabel->
+  "In[362]:=",ExpressionUUID->"fbaa16fd-4a60-4777-a3ab-f84eb76293c2"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.79791632575342*^9},
+ CellLabel->
+  "Out[362]=",ExpressionUUID->"3e97689d-8f31-4cce-a68b-a29dcdb030fb"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.797916326424705*^9},
+ CellLabel->
+  "Out[363]=",ExpressionUUID->"931999ab-6f6e-445f-a968-f98014029ece"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"WeylTrace", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[27]:=",ExpressionUUID->"26da8fab-e2c3-4890-91d7-9c9f57dc0390"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.782629424201839*^9, 3.782630663732882*^9, 
+  3.782630711958499*^9, 3.782630818616474*^9, 3.782631515971192*^9},
+ CellLabel->"Out[27]=",ExpressionUUID->"615edd47-5ceb-474d-b69a-2e70d0441052"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"RiemannTensor", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}], ",", 
+    RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.782630842199098*^9, 3.782630869252737*^9}, {
+  3.7826309149645367`*^9, 3.782630916268448*^9}, {3.7826311377714767`*^9, 
+  3.782631138609394*^9}, {3.78263122868388*^9, 3.782631236731242*^9}, {
+  3.782631304542654*^9, 3.782631305491106*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"35d0828d-4b9e-4a1e-8d71-fa7dff788056"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"Starting with Christoffel symbols...\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.782631305858279*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"d8f54305-3662-4247-be38-c8719ddd7c56"],
+
+Cell[BoxData["\<\"Christoffel symbols computed. Starting with \
+Riemann...\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.7826313059486*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"965964d7-426f-48ba-92d7-111e1a0d07b2"],
+
+Cell[BoxData["\<\"...Riemann computed\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.7826313211785097`*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"28867a86-29aa-4065-9511-a0af4b2d2660"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{"WeylTrace", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.782628908663885*^9, 
+   3.782628908920684*^9}, {3.782629098438472*^9, 3.782629100527957*^9}, {
+   3.7826291467878113`*^9, 3.782629147713559*^9}},
+ CellLabel->"In[97]:=",ExpressionUUID->"f9fe2db0-bdc3-4aba-8a4c-f37e087a9292"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.78262891527374*^9, 3.7826290606601458`*^9, {3.782629091089501*^9, 
+   3.782629104959847*^9}, 3.7826291495529757`*^9},
+ CellLabel->"Out[97]=",ExpressionUUID->"e8a0293d-8c2a-459a-9e25-ffd166fce5dc"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"1e850c86-38bd-43b2-838f-f3374bbb6fa4"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}},
+ CellLabel->"Out[74]=",ExpressionUUID->"63c78ea1-7757-43e2-975b-47e81cb59d9d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->"In[75]:=",ExpressionUUID->"432a9f98-c627-430d-8370-d4a6875a63d3"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}},
+ CellLabel->"Out[75]=",ExpressionUUID->"ef87f464-4747-4ab7-92ce-bbb5b5a2a10e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->"In[79]:=",ExpressionUUID->"1996a515-cc6d-4b72-9e33-0d9b031834b5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9},
+ CellLabel->"Out[79]=",ExpressionUUID->"01bfe3c6-17c2-4891-9953-95ad2e6c8d81"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[78]:=",ExpressionUUID->"049075b7-2afd-46f7-a37c-c62a0a31b7ba"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9},
+ CellLabel->"Out[78]=",ExpressionUUID->"da553f4d-254f-42a1-8ad7-15a73bef7508"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["(*Another test (http://kias.dyndns.org/crg/blackhole.html)*)", \
+"Subsection",
+ CellChangeTimes->{{3.7826276363114853`*^9, 3.782627639845909*^9}, {
+   3.782628341938529*^9, 3.782628348314848*^9}, 
+   3.782632936981777*^9},ExpressionUUID->"e38b947a-e4be-4219-a8c6-\
+1c279e3e9c47"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ds2", "=", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{"dr", "+", 
+       RowBox[{"a", " ", "d\[Phi]", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"du", "+", 
+       RowBox[{"a", " ", "d\[Phi]", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "1"}], "+", 
+       FractionBox[
+        RowBox[{"2", " ", "m", " ", "r"}], 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"du", "+", 
+        RowBox[{"a", " ", "d\[Phi]", " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], "2"]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["d\[Theta]", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["d\[Phi]", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.782628939500342*^9, 3.782628944519279*^9}},
+ CellLabel->"In[87]:=",ExpressionUUID->"fb0e3c60-3e70-40a5-acf4-a0e851ce43fd"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{"ds2", ",", 
+   RowBox[{"{", 
+    RowBox[{"du", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782628356213738*^9, 3.782628378575472*^9}},
+ CellLabel->"In[88]:=",ExpressionUUID->"575a6066-901a-4866-9b00-4fa5473ebba6"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox["d\[Theta]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["r", "2"], "+", 
+     RowBox[{
+      SuperscriptBox["a", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["du", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", "m", " ", "r"}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "a", " ", "dr", " ", "d\[Phi]", " ", 
+   SuperscriptBox[
+    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["d\[Phi]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["a", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+     RowBox[{
+      SuperscriptBox["a", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        FractionBox[
+         RowBox[{"2", " ", "m", " ", "r"}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "+", 
+  RowBox[{"du", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "dr"}], "+", 
+     RowBox[{"d\[Phi]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "a", " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+        RowBox[{"2", " ", "a", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           FractionBox[
+            RowBox[{"2", " ", "m", " ", "r"}], 
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["a", "2"], " ", 
+              SuperscriptBox[
+               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}], 
+    ")"}]}]}]], "Output",
+ CellChangeTimes->{{3.7826283576926394`*^9, 3.782628379103348*^9}, 
+   3.782628557977313*^9, 3.782628947840866*^9},
+ CellLabel->"Out[88]=",ExpressionUUID->"5f983282-c8ea-457b-bc60-d740b4988cbd"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"g", "=", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "+", 
+          FractionBox[
+           RowBox[{"2", " ", "m", " ", "r"}], 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], ",", 
+        
+        FractionBox[
+         RowBox[{"2", "  ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+             SuperscriptBox[
+              RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", "0", ",", 
+        FractionBox[
+         RowBox[{"4", " ", "a", "  ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"2", "  ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["r", "2"], "+", 
+            RowBox[{
+             SuperscriptBox["a", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+            RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+             SuperscriptBox[
+              RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", "0", ",", 
+        "0", ",", 
+        RowBox[{"2", " ", "a", "  ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], ",", 
+        "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"4", " ", "a", "  ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", 
+        RowBox[{"2", " ", "a", "  ", 
+         SuperscriptBox[
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0", ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["r", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["a", "2"], " ", 
+              SuperscriptBox[
+               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+          RowBox[{"2", " ", 
+           SuperscriptBox["a", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+          RowBox[{
+           SuperscriptBox["a", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "1"}], "+", 
+             FractionBox[
+              RowBox[{"2", " ", "m", " ", "r"}], 
+              RowBox[{
+               SuperscriptBox["r", "2"], "+", 
+               RowBox[{
+                SuperscriptBox["a", "2"], " ", 
+                SuperscriptBox[
+                 RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], 
+           " ", 
+           SuperscriptBox[
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "}"}]}],
+      "}"}]}], ")"}], "//", "TableForm"}]], "Input",
+ CellChangeTimes->{{3.782628565033598*^9, 3.782628627736512*^9}, {
+   3.7826286879721413`*^9, 3.782628794600528*^9}, {3.7826289184069147`*^9, 
+   3.7826289237717943`*^9}, {3.782629080517095*^9, 3.782629081722155*^9}, 
+   3.782629139723832*^9},
+ CellLabel->"In[3]:=",ExpressionUUID->"4c33ffd5-f6b0-4497-b400-c8e5e1b62739"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "m", " ", "r"}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+         RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", 
+     FractionBox[
+      RowBox[{"4", " ", "a", " ", "m", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]},
+    {
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
+         RowBox[{"4", " ", "a", " ", "d\[Phi]", " ", "m", " ", "r", " ", 
+          SuperscriptBox[
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", "0", 
+     RowBox[{"2", " ", "a", " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
+    {"0", "0", 
+     RowBox[{
+      SuperscriptBox["r", "2"], "+", 
+      RowBox[{
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0"},
+    {
+     FractionBox[
+      RowBox[{"4", " ", "a", " ", "m", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], 
+     RowBox[{"2", " ", "a", " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}], "+", 
+      RowBox[{
+       SuperscriptBox["a", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         FractionBox[
+          RowBox[{"2", " ", "m", " ", "r"}], 
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           RowBox[{
+            SuperscriptBox["a", "2"], " ", 
+            SuperscriptBox[
+             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.782628717065482*^9, 3.7826287948669167`*^9}, {
+   3.78262892422803*^9, 3.7826289484227858`*^9}, 3.782629082297165*^9, 
+   3.782629140649428*^9, 3.782630298178563*^9, 3.782630641705719*^9, 
+   3.782630736535286*^9, 3.782631131427799*^9},
+ CellLabel->
+  "Out[3]//TableForm=",ExpressionUUID->"7ea62d4d-0fc2-4d10-a336-7ff7b4a4b9f0"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[4]:=",ExpressionUUID->"e6028eaf-23d1-41b8-abdd-1abc254fc143"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"weyl", "=", 
+   RowBox[{"WeylTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.782197782517384*^9, 3.782197805786971*^9}, {
+   3.78221947850369*^9, 3.782219506150009*^9}, 3.782629421278203*^9, {
+   3.782630826812586*^9, 3.782630830660441*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"23a26c80-bfbf-4089-9d4d-33140fe48106"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"WeylTrace", "[", 
+  RowBox[{"xx", ",", "g", ",", "0", ",", 
+   RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[27]:=",ExpressionUUID->"4dceb517-6bce-40ff-aa26-4e3426c8da01"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.782629424201839*^9, 3.782630663732882*^9, 
+  3.782630711958499*^9, 3.782630818616474*^9, 3.782631515971192*^9},
+ CellLabel->"Out[27]=",ExpressionUUID->"1f7cd247-6a62-458d-a57d-9e8570b68cfc"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"RiemannTensor", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}], ",", 
+    RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.782630842199098*^9, 3.782630869252737*^9}, {
+  3.7826309149645367`*^9, 3.782630916268448*^9}, {3.7826311377714767`*^9, 
+  3.782631138609394*^9}, {3.78263122868388*^9, 3.782631236731242*^9}, {
+  3.782631304542654*^9, 3.782631305491106*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"5a887488-5839-40a1-a8e1-7230d76b79a9"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"Starting with Christoffel symbols...\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.782631305858279*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"a28b2dba-a370-405c-946d-e2bb55b8f1ce"],
+
+Cell[BoxData["\<\"Christoffel symbols computed. Starting with \
+Riemann...\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.7826313059486*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"f603151b-9290-4a65-b77f-6b26affa6fb6"],
+
+Cell[BoxData["\<\"...Riemann computed\"\>"], "Print",
+ CellChangeTimes->{3.782631237206863*^9, 3.7826313211785097`*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"57ce7877-e5a3-4942-b0dd-60d1740451a9"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{"WeylTrace", "[", 
+   RowBox[{"xx", ",", "g", ",", "0", ",", 
+    RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.782198681681613*^9, 3.782198694566325*^9}, {
+   3.782198765094138*^9, 3.78219876956022*^9}, {3.782199119846146*^9, 
+   3.782199120218539*^9}, 3.78219948658713*^9, {3.782628908663885*^9, 
+   3.782628908920684*^9}, {3.782629098438472*^9, 3.782629100527957*^9}, {
+   3.7826291467878113`*^9, 3.782629147713559*^9}},
+ CellLabel->"In[97]:=",ExpressionUUID->"41243e4b-ac71-4795-aff8-c357a7b55494"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.782198687799865*^9, 3.782198695187286*^9}, {
+   3.782198753239895*^9, 3.782198791196067*^9}, {3.7821988227740917`*^9, 
+   3.782198883797268*^9}, {3.782199116347159*^9, 3.7821991425329933`*^9}, {
+   3.782199429131427*^9, 3.78219948196135*^9}, {3.782199540342497*^9, 
+   3.782199550322959*^9}, {3.782199608544145*^9, 3.782199648909281*^9}, 
+   3.78219969038365*^9, 3.782199754770076*^9, {3.782199825367083*^9, 
+   3.78219984981874*^9}, 3.782200314358725*^9, 3.782200351709373*^9, 
+   3.782200528115121*^9, {3.782200604605845*^9, 3.78220061390936*^9}, 
+   3.782201009582872*^9, {3.782219457390414*^9, 3.782219507353655*^9}, 
+   3.78262891527374*^9, 3.7826290606601458`*^9, {3.782629091089501*^9, 
+   3.782629104959847*^9}, 3.7826291495529757`*^9},
+ CellLabel->"Out[97]=",ExpressionUUID->"5836a063-8c6a-4bba-8c14-cfd203be6028"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KrScalar", "[", 
+  RowBox[{"xx", ",", "g"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821991706900883`*^9, 3.7821991762012653`*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"4fbdefa8-3e4c-4818-947e-14fb109719c0"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"48", " ", 
+   SuperscriptBox["M", "2"]}], 
+  SuperscriptBox["r", "6"]]], "Output",
+ CellChangeTimes->{
+  3.782199176483611*^9, 3.782199649877537*^9, 3.782200315929088*^9, 
+   3.782200529119993*^9, {3.7822006057257643`*^9, 3.78220061422635*^9}, 
+   3.782201009871745*^9, {3.7822194576524878`*^9, 3.782219507531801*^9}},
+ CellLabel->"Out[74]=",ExpressionUUID->"5cf9db23-b743-42de-9154-39e38ae559de"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"weyl", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7821980352778254`*^9, 3.782198058332946*^9}, 
+   3.78220099512788*^9},
+ CellLabel->"In[75]:=",ExpressionUUID->"7ea7d09e-9d74-4dfa-b2fd-202e95075acb"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"M", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782200624712783*^9, {3.782200995586378*^9, 3.782201015695821*^9}, {
+   3.7822194688461123`*^9, 3.782219507905998*^9}},
+ CellLabel->"Out[75]=",ExpressionUUID->"98a41eb2-8f9b-4ea3-b902-d8f8769c47b5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.782219551658869*^9, 3.782219562036425*^9}},
+ CellLabel->"In[79]:=",ExpressionUUID->"fd9cd8c2-6fc2-4f6a-aa89-3c53a4ec383d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219575788557*^9},
+ CellLabel->"Out[79]=",ExpressionUUID->"8f500451-34f6-4665-9b1a-7f1a5c613492"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[", 
+  RowBox[{
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"gup", "[", 
+       RowBox[{"[", 
+        RowBox[{"k", ",", "m"}], "]"}], "]"}], 
+      RowBox[{"weyl", "[", 
+       RowBox[{"[", 
+        RowBox[{"i", ",", "j", ",", "k", ",", "m"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"i", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[78]:=",ExpressionUUID->"fa78bb4f-d19c-40e4-a6da-4b1d35332d22"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.782219574030792*^9},
+ CellLabel->"Out[78]=",ExpressionUUID->"6df9b3ba-f86a-480f-9733-f128accb9c94"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Slowly rotating \
+(https://www.maplesoft.com/support/help/maple/view.aspx?path=Physics%\
+2FRiemann)\
+\>", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.74817116905129*^9, 3.7481711974490223`*^9}, {
+  3.782207140055911*^9, 3.7822071516076937`*^9}, {3.782207438707678*^9, 
+  3.7822074419669733`*^9}, {3.782207488805292*^9, 
+  3.782207489967887*^9}},ExpressionUUID->"69a1a86d-9563-4e01-8399-\
+43141a852dfd"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"g", "=", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"0", ",", "0", ",", "0", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"r", "^", "2"}], ",", "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{
+          RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}], ",", "0"}], 
+       "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{
+          RowBox[{"\[Kappa]", "[", 
+           RowBox[{"r", ",", "t"}], "]"}], "^", "2"}]}]}], "}"}]}], "}"}]}], 
+   ")"}], "//", "TableForm"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", "1"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"riccisc", "=", 
+  RowBox[{"FullSimplify", "@", 
+   RowBox[{"RicciScalar", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"riccist", "=", 
+  RowBox[{"RicciTensor", "[", 
+   RowBox[{"xx", ",", "g"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.748171321217037*^9, 3.748171333404755*^9}, {
+   3.748171434155205*^9, 3.748171435097939*^9}, 3.748171469502976*^9, {
+   3.782197504475832*^9, 3.782197525507375*^9}, 3.782197817851701*^9, {
+   3.7822074748649178`*^9, 3.782207508063509*^9}, {3.782207547697193*^9, 
+   3.7822076123893547`*^9}, {3.7822077904796352`*^9, 3.782207820493321*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"7bb4e17f-7da1-45e5-a65e-43cb6c470b11"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.782207515642351*^9, {3.7822075864832487`*^9, 3.7822076127173233`*^9}, {
+   3.782207794420248*^9, 3.7822078211867743`*^9}, 3.782213669417759*^9},
+ CellLabel->"Out[3]=",ExpressionUUID->"60d93ef9-2e9b-41c1-8b02-65313e50d459"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {"0", "0", "0", 
+     RowBox[{"-", "1"}]},
+    {"0", 
+     SuperscriptBox["r", "2"], "0", "0"},
+    {"0", "0", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"},
+    {
+     RowBox[{"-", "1"}], "0", "0", 
+     RowBox[{
+      RowBox[{"-", "2"}], " ", 
+      SuperscriptBox[
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], "2"]}]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{
+  3.782207515642351*^9, {3.7822075864832487`*^9, 3.7822076127173233`*^9}, {
+   3.782207794420248*^9, 3.7822078211867743`*^9}, 3.782213669420177*^9},
+ CellLabel->
+  "Out[4]//TableForm=",ExpressionUUID->"35054b6b-1a38-4bfa-ae99-b1360f1ee8ea"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.782207515646593*^9, {3.782207586485757*^9, 3.782207612722682*^9}, {
+   3.78220779442859*^9, 3.782207821192574*^9}, 3.782213669422431*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"2dd9ae60-0ee1-4891-9af6-b446a14ca7b9"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", "-", 
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
+      RowBox[{
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+      RowBox[{"r", " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"1", ",", "0"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
+         RowBox[{"r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"2", ",", "0"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{
+  3.782207515642351*^9, {3.7822075864832487`*^9, 3.7822076127173233`*^9}, {
+   3.782207794420248*^9, 3.7822078211867743`*^9}, 3.782213669502715*^9},
+ CellLabel->"Out[7]=",ExpressionUUID->"bb6fe149-65c8-476f-a45f-e92af75a1233"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", 
+        RowBox[{"\[Kappa]", "[", 
+         RowBox[{"r", ",", "t"}], "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}]}], "r"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"2", ",", "0"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Cot", "[", "\[Theta]", "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"\[Kappa]", "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"1", ",", "0"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"\[Kappa]", "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
+      RowBox[{"4", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"1", ",", "0"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", 
+        RowBox[{"\[Kappa]", "[", 
+         RowBox[{"r", ",", "t"}], "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}]}], "r"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"2", ",", "0"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "0", ",", "0", ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "2"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"0", ",", "1"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"1", ",", "0"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}], "-", 
+      RowBox[{"8", " ", 
+       SuperscriptBox[
+        RowBox[{"\[Kappa]", "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["\[Kappa]", 
+          TagBox[
+           RowBox[{"(", 
+            RowBox[{"1", ",", "0"}], ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"4", " ", 
+         RowBox[{"\[Kappa]", "[", 
+          RowBox[{"r", ",", "t"}], "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["\[Kappa]", 
+           TagBox[
+            RowBox[{"(", 
+             RowBox[{"0", ",", "1"}], ")"}],
+            Derivative],
+           MultilineFunction->None], "[", 
+          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
+        RowBox[{"8", " ", 
+         SuperscriptBox[
+          RowBox[{"\[Kappa]", "[", 
+           RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
+         RowBox[{
+          SuperscriptBox["\[Kappa]", 
+           TagBox[
+            RowBox[{"(", 
+             RowBox[{"1", ",", "0"}], ")"}],
+            Derivative],
+           MultilineFunction->None], "[", 
+          RowBox[{"r", ",", "t"}], "]"}]}]}], "r"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Kappa]", "[", 
+        RowBox[{"r", ",", "t"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Kappa]", 
+         TagBox[
+          RowBox[{"(", 
+           RowBox[{"1", ",", "1"}], ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"0", ",", "1"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"1", ",", "0"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
+         RowBox[{"24", " ", 
+          SuperscriptBox[
+           RowBox[{"\[Kappa]", "[", 
+            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["\[Kappa]", 
+             TagBox[
+              RowBox[{"(", 
+               RowBox[{"1", ",", "0"}], ")"}],
+              Derivative],
+             MultilineFunction->None], "[", 
+            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+         RowBox[{"4", " ", 
+          RowBox[{"\[Kappa]", "[", 
+           RowBox[{"r", ",", "t"}], "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"1", ",", "1"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox[
+           RowBox[{"\[Kappa]", "[", 
+            RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
+          RowBox[{
+           SuperscriptBox["\[Kappa]", 
+            TagBox[
+             RowBox[{"(", 
+              RowBox[{"2", ",", "0"}], ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.782207515642351*^9, {3.7822075864832487`*^9, 3.7822076127173233`*^9}, {
+   3.782207794420248*^9, 3.7822078211867743`*^9}, 3.782213669505773*^9},
+ CellLabel->"Out[8]=",ExpressionUUID->"67f9afd3-d862-4562-842b-8d69e47292b5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"NonZeroTensorComp", "[", 
+  RowBox[{"ChristoffelSymbol", "[", 
+   RowBox[{"xx", ",", "g"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782211134753688*^9, 3.782211135611273*^9}, {
+  3.782213264807415*^9, 3.782213265030693*^9}},
+ CellLabel->
+  "In[430]:=",ExpressionUUID->"716d0ea0-f1fe-4dd3-b873-39b7a17ae99d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"003\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653370047`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"355734d5-2d5c-4e52-bbff-bfba2968b26f"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"011\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\" \
+\\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"2\\\"]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653395452`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"f0e1a213-7a74-49c0-a58e-90ac592024fd"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"022\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\" \
+\\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\
+\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\
+\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\
+\"}], \\\"2\\\"]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653452682`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"23d585fe-e7f4-4838-8294-f9f23a3d6d75"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"030\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265347188*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"00d29387-35f9-4260-8d01-e3683f9b18d5"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"033\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \
+\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \
+RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653499203`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"65a7ab39-172a-47cf-adf3-7220d0897879"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"101\\\\\\\"\\\"]\\) = \\!\\(\\*FractionBox[\\\"1\\\", \\\"r\\\"]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265355247*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"cf954f3f-0745-4742-b078-a8793cc011a7"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"110\\\\\\\"\\\"]\\) = \\!\\(\\*FractionBox[\\\"1\\\", \\\"r\\\"]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265359342*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"2969f55c-68c2-4523-8163-4fa0316767af"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"122\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", RowBox[{\\\"Cos\\\
+\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}]}], \\\" \\\", \
+RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265362515*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"543875d6-51c6-41c7-a886-d0bfe7b3b116"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"202\\\\\\\"\\\"]\\) = \\!\\(\\*FractionBox[\\\"1\\\", \\\"r\\\"]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265364911*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"0b41c2e8-b0df-434a-879b-e5048d543f6c"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"212\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"Cot\\\", \\\"[\\\", \\\"\[Theta]\
+\\\", \\\"]\\\"}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.78221326536699*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"509fe20b-139e-4f6e-95ed-60da15667abe"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"220\\\\\\\"\\\"]\\) = \\!\\(\\*FractionBox[\\\"1\\\", \\\"r\\\"]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.78221326536909*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"33d567db-5afe-4f4d-810a-265f9b4ff5f3"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"221\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"Cot\\\", \\\"[\\\", \\\"\[Theta]\
+\\\", \\\"]\\\"}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653711443`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"7e6bc82f-0b56-4038-876c-23d8d6f7d2df"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"311\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"r\\\"}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265373234*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"9bc93af2-aa80-4dd4-a877-8832fd2ca8c8"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"322\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"r\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.782213265375461*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"691d10f8-4600-42a8-9628-b014e418628d"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"g\\\\\\\"\\\", \\\"\\\\\\\
+\"333\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\" \
+\\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782211665458316*^9, 3.782211686957411*^9}, 
+   3.7822118468769217`*^9, {3.782211886577039*^9, 3.782211907015267*^9}, 
+   3.7822119426380672`*^9, {3.7822120514161386`*^9, 3.782212074151368*^9}, 
+   3.782212264480937*^9, {3.782212305833905*^9, 3.78221234186512*^9}, 
+   3.782212616611849*^9, {3.782212690438579*^9, 3.78221270580437*^9}, {
+   3.782213246777755*^9, 3.7822132653776703`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[430]:=",ExpressionUUID->"15c2b1d6-e5ba-434c-965a-d00c5174fc3f"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "4", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "3", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "4", ",", "4"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.782211135830249*^9, 3.7822111545885077`*^9}, {
+   3.782211654462357*^9, 3.782211686979196*^9}, 3.782211846898991*^9, {
+   3.7822118866013536`*^9, 3.782211907038869*^9}, 3.782211942659264*^9, {
+   3.7822120514379597`*^9, 3.782212074178936*^9}, 3.7822122645090857`*^9, {
+   3.782212305864943*^9, 3.782212341898322*^9}, 3.7822126166347733`*^9, {
+   3.782212690472674*^9, 3.782212705838151*^9}, {3.782213246803986*^9, 
+   3.7822132653803587`*^9}},
+ CellLabel->
+  "Out[430]=",ExpressionUUID->"e3566e6c-5a8d-4e41-8ccb-3ee534771c77"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"riemann", "=", 
+   RowBox[{"RiemannTensor", "[", 
+    RowBox[{"xx", ",", "g", ",", "0", ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "FullSimplify"}]}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riemanndown", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"g", "[", 
+         RowBox[{"[", 
+          RowBox[{"a", ",", "\[Alpha]"}], "]"}], "]"}], 
+        RowBox[{"riemann", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Alpha]", ",", "b", ",", "c", ",", "d"}], "]"}], "]"}]}], 
+       ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Alpha]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"a", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"b", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"c", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"d", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.782207638382729*^9, 3.78220767323232*^9}, 
+   3.7822077216337214`*^9, {3.782218353679057*^9, 3.782218355027852*^9}},
+ CellLabel->
+  "In[118]:=",ExpressionUUID->"eb87366f-6836-4da7-8c10-b55d8efd9e07"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riemanndown", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "2", ",", "2", ",", "4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782207680510866*^9, 3.782207705351872*^9}, 
+   3.782207749366933*^9, {3.782207834590252*^9, 3.782207842165374*^9}},
+ CellLabel->
+  "In[123]:=",ExpressionUUID->"8c390a46-a63e-4954-8bfa-b571b071177a"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2"}], " ", "r", " ", 
+  RowBox[{"\[Kappa]", "[", 
+   RowBox[{"r", ",", "t"}], "]"}], " ", 
+  RowBox[{
+   SuperscriptBox["\[Kappa]", 
+    TagBox[
+     RowBox[{"(", 
+      RowBox[{"1", ",", "0"}], ")"}],
+     Derivative],
+    MultilineFunction->None], "[", 
+   RowBox[{"r", ",", "t"}], "]"}]}]], "Output",
+ CellChangeTimes->{{3.782207683453257*^9, 3.782207759453858*^9}, 
+   3.782207805471963*^9, {3.782207840357939*^9, 3.782207842557723*^9}, 
+   3.7822136767222424`*^9, 3.782218359908702*^9, 3.782218560975244*^9},
+ CellLabel->
+  "Out[123]=",ExpressionUUID->"9bfe28d3-d4b3-4ddb-8111-d16873d005c5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riemanndown", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "2", ",", "4", ",", "2"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782218576321106*^9, 3.782218577159437*^9}},
+ CellLabel->
+  "In[124]:=",ExpressionUUID->"8d44daae-0a87-4036-9e7c-412e754ec5d7"],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "r", " ", 
+  RowBox[{"\[Kappa]", "[", 
+   RowBox[{"r", ",", "t"}], "]"}], " ", 
+  RowBox[{
+   SuperscriptBox["\[Kappa]", 
+    TagBox[
+     RowBox[{"(", 
+      RowBox[{"1", ",", "0"}], ")"}],
+     Derivative],
+    MultilineFunction->None], "[", 
+   RowBox[{"r", ",", "t"}], "]"}]}]], "Output",
+ CellChangeTimes->{3.78221857733666*^9},
+ CellLabel->
+  "Out[124]=",ExpressionUUID->"bbf552db-c687-401f-8da3-813d35f4f71a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riemanndown", "[", 
+  RowBox[{"[", 
+   RowBox[{"2", ",", "4", ",", "1", ",", "2"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782218584118342*^9, 3.782218607393388*^9}},
+ CellLabel->
+  "In[128]:=",ExpressionUUID->"f1c0e670-cc12-4109-9a8e-5149a13ebb9c"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2"}], " ", "r", " ", 
+  RowBox[{"\[Kappa]", "[", 
+   RowBox[{"r", ",", "t"}], "]"}], " ", 
+  RowBox[{
+   SuperscriptBox["\[Kappa]", 
+    TagBox[
+     RowBox[{"(", 
+      RowBox[{"1", ",", "0"}], ")"}],
+     Derivative],
+    MultilineFunction->None], "[", 
+   RowBox[{"r", ",", "t"}], "]"}]}]], "Output",
+ CellChangeTimes->{{3.782218590225705*^9, 3.782218607592513*^9}},
+ CellLabel->
+  "Out[128]=",ExpressionUUID->"ccd9763e-2fe4-4dde-835f-384dd7a14cb2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"nonzeroR", "=", 
+  RowBox[{"NonZeroTensorComp", "[", 
+   RowBox[{"riemanndown", ",", 
+    RowBox[{"\"\<TensorString\>\"", "\[Rule]", "\"\<R\>\""}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.7822137332796907`*^9, 3.782213733547245*^9}, {
+  3.7822137670222273`*^9, 3.782213771181052*^9}, {3.7822183445598927`*^9, 
+  3.78221835085793*^9}, {3.782218475477069*^9, 3.7822184795009413`*^9}},
+ CellLabel->
+  "In[122]:=",ExpressionUUID->"21d973d3-44d6-4ffc-9451-5c149c8d53b7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0113\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480143238*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"fc396e04-ee82-4a2a-9da7-6f2b7e13107c"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0131\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480148807*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"d24f1371-edbe-4637-92fd-79d797f21469"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0223\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480152582*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"3d8c7230-9ce3-4491-b36e-1eba32e67223"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0232\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480155006*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"d3c5de00-c3be-4887-b179-0bc5b56f0625"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0303\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480157391*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"b7758648-3268-441b-9b5e-4d914e0e9345"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"0330\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"2\\\"}], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480160019*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"507faacd-8c9b-4a56-9add-a1360ca311bb"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1013\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480162405*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"ad063293-4dac-4b04-a7d8-e7582a886de8"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1031\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480164575*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"f9498f55-f72e-4410-a3bc-fb448691e61b"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1212\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{SuperscriptBox[\\\"r\\\", \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}]}], \\\")\
+\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480166745*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"648adab7-0358-40fd-b77c-e9a445de2f79"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1221\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{SuperscriptBox[\\\"r\\\", \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"]}], \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}]}], \\\")\
+\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480168934*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"aa12dd40-395d-4c3a-b305-f1f7cebd785e"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1301\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801710978`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"b2bdd99a-9524-44d1-9098-8dd5a1c57662"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1310\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480173023*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"67f15249-7b40-45fa-b579-46500d033ce0"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1313\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \
+\\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801749*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"e52d9096-ac8b-4619-a941-e4a0c40068a5"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"1331\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \
+FractionBox[\\\"1\\\", \\\"2\\\"]}], \\\" \\\", \\\"r\\\", \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\
+\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \
+\\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801771193`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"6be145f6-9449-4690-ab38-5cc38da2e3c1"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2023\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480179303*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"5d56e729-e6b0-4faa-86a7-986b3a2a65e3"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2032\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480181149*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"d9509c79-1516-49f7-9fd6-9fb59bbedc0d"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2112\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{SuperscriptBox[\\\"r\\\", \
+\\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\
+\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{SuperscriptBox[RowBox[{\\\"Cot\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\"-\\\", SuperscriptBox[RowBox[{\\\"Csc\\\", \\\"[\
+\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\"+\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"2\\\"]}]}], \\\")\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801829844`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"1dfa5664-2ad4-4e7c-9bde-14851f85ec07"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2121\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{SuperscriptBox[\\\"r\\\", \
+\\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\
+\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"-\\\", SuperscriptBox[RowBox[{\\\"Cot\\\", \\\"[\\\", \
+\\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+SuperscriptBox[RowBox[{\\\"Csc\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.78221848018472*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"787c08f3-9db0-4470-abe3-447dadca2081"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2302\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801863537`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"383bb048-db94-49a4-8055-3dcaef0b51bb"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2320\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480187912*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"02947826-837d-4c1d-b005-b41b6aefdf81"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2323\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \
+\\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\
+\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \
+\\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480189608*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"55e0756e-8403-4fe3-adfc-7a4af4585552"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"2332\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \
+FractionBox[\\\"1\\\", \\\"2\\\"]}], \\\" \\\", \\\"r\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \
+\\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801917067`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"eb60c6a2-82ec-42d0-b332-6a170aab0eec"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3003\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"2\\\"}], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184801935387`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"ff2f94db-4b72-46a4-afe5-981ef027e1bf"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3030\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480195199*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"cdcde152-6b6c-4b91-acbe-b5d2d4099614"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3101\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480196855*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"0958d403-6658-455b-bb2b-ab9f15dc0254"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3110\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480198389*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"8e17d985-1dfe-4085-ba1b-2ec4cbcccef4"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3113\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"4\\\"}], \\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\
+\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+\\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \
+\\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{FractionBox[\\\"1\\\", \\\"2\\\
+\"], \\\" \\\", \\\"r\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480199938*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"50efadd7-0d6e-4936-8789-b387a059078f"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3131\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \\\"r\
+\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\
+\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\
+\"}], \\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\
+\\\"8\\\", \\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
+RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", \\\"r\\\", \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\
+\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \
+\\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.7822184802021427`*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"825a0ddb-fa69-443c-b0ca-16c961331a07"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3202\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{\\\"2\\\", \\\" \\\", \\\"r\\\", \\\
+\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \
+\\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480204301*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"f3d9ba45-64e7-473c-82ce-51c40d0422d9"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3220\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \
+\\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480205832*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"5dbe509b-baec-40c2-a9df-816ae3cdf713"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3223\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"4\\\"}], \\\" \\\", \\\"r\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", \
+RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+\\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\
+\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", SuperscriptBox[RowBox[{\\\"\
+\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \
+\\\"]\\\"}], \\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", \\\"r\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \
+\\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480207428*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"b400a75d-eed1-4877-939a-0b9d2c72876d"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3232\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \\\"r\
+\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \\\"[\\\", \
+\\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\
+\"Sin\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{FractionBox[\\\"1\\\", \\\"2\\\
+\"], \\\" \\\", \\\"r\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"Sin\\\", \
+\\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\
+\\\", \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \
+\\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480209784*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"f54b4c2e-8ffa-42f7-bd97-72c906a39ae5"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3303\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"2\\\"], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], \\\"+\\\", \
+RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"4\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"24\\\
+\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480212151*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"53e2d912-725e-4e11-bab9-f65c10c743c1"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3330\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"2\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], \\\"+\\\", \
+RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"24\\\
+\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"1\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"8\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"3\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"2\\\", \\\",\\\", \\\"0\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480215479*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"7a55c919-4a92-4379-bd5b-4df13487ec33"],
+
+Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"R\\\\\\\"\\\", \\\"\\\\\\\
+\"3333\\\\\\\"\\\"]\\) = \\!\\(\\*RowBox[{RowBox[{FractionBox[\\\"1\\\", \
+\\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \
+\\\"4\\\"}], \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"-\\\", \
+RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"2\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"24\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], \\\"+\\\", \
+RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \\\"+\\\", \
+RowBox[{\\\"4\\\", \\\" \\\", RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\
+\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"2\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"24\\\", \\\" \\\", \
+SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \\\"[\\\", RowBox[{\\\"r\\\", \
+\\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \\\"2\\\"], \\\" \\\", \
+RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", TagBox[RowBox[{\\\"(\\\", RowBox[{\\\
+\"0\\\", \\\",\\\", \\\"1\\\"}], \\\")\\\"}], Derivative], \
+Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \
+\\\"t\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"8\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\[Kappa]\\\", \
+\\\"[\\\", RowBox[{\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}], \
+\\\"3\\\"], \\\" \\\", RowBox[{SuperscriptBox[\\\"\[Kappa]\\\", \
+TagBox[RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \
+\\\")\\\"}], Derivative], Rule[MultilineFunction, None]], \\\"[\\\", RowBox[{\
+\\\"r\\\", \\\",\\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}]\\)\"\>"], \
+"Print",
+ CellChangeTimes->{{3.782213744090189*^9, 3.782213771728095*^9}, 
+   3.782217290294557*^9, {3.782218345746953*^9, 3.7822183607892847`*^9}, 
+   3.782218480218789*^9},
+ CellLabel->
+  "During evaluation of \
+In[122]:=",ExpressionUUID->"c1cc086f-364b-42cf-9598-332bcb718246"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "2", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "4", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "3", ",", "3", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "3", ",", "4", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "4", ",", "1", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "4", ",", "4", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "1", ",", "2", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "1", ",", "4", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "3", ",", "3", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "4", ",", "1", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "4", ",", "2", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "4", ",", "2", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "4", ",", "4", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", "3", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", "4", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "2", ",", "2", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "2", ",", "3", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "4", ",", "1", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "4", ",", "3", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "4", ",", "3", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "4", ",", "4", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "1", ",", "1", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "1", ",", "4", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "2", ",", "1", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "2", ",", "2", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "2", ",", "4", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "3", ",", "1", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "3", ",", "3", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "3", ",", "3", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "3", ",", "4", ",", "3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "4", ",", "1", ",", "4"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "4", ",", "4", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "4", ",", "4", ",", "4"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7822137338651114`*^9, 3.782213771812983*^9}, 
+   3.782217290417171*^9, {3.782218345820467*^9, 3.7822183608659573`*^9}, 
+   3.7822184802223597`*^9},
+ CellLabel->
+  "Out[122]=",ExpressionUUID->"323cfdeb-cdf7-492d-99a4-6b43b7f97b9d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"riemanndown", "[", 
+  RowBox[{"[", 
+   RowBox[{"1", ",", "4", ",", "1", ",", "4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.782207914358975*^9, 3.782207916425805*^9}},
+ CellLabel->
+  "In[183]:=",ExpressionUUID->"2ea6af3c-3620-4faa-8a92-b5fe607cd5c2"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   SuperscriptBox[
+    RowBox[{
+     SuperscriptBox["\[Kappa]", 
+      TagBox[
+       RowBox[{"(", 
+        RowBox[{"1", ",", "0"}], ")"}],
+       Derivative],
+      MultilineFunction->None], "[", 
+     RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[Kappa]", "[", 
+    RowBox[{"r", ",", "t"}], "]"}], " ", 
+   RowBox[{
+    SuperscriptBox["\[Kappa]", 
+     TagBox[
+      RowBox[{"(", 
+       RowBox[{"2", ",", "0"}], ")"}],
+      Derivative],
+     MultilineFunction->None], "[", 
+    RowBox[{"r", ",", "t"}], "]"}]}]}]], "Output",
+ CellChangeTimes->{3.782207916625918*^9},
+ CellLabel->
+  "Out[183]=",ExpressionUUID->"f7521aeb-7da2-4091-a451-48e59446336d"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Kerr solution", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.74817116905129*^9, 3.7481711974490223`*^9}, {
+  3.7705406880263157`*^9, 
+  3.770540688459054*^9}},ExpressionUUID->"d009f1f3-e0f6-4ea9-a195-\
+0763b8bc42ba"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"r", "^", "2"}], "+", 
+         RowBox[{
+          RowBox[{"a", "^", "2"}], " ", 
+          RowBox[{
+           RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}], 
+        RowBox[{
+         RowBox[{"r", "^", "2"}], " ", "+", 
+         RowBox[{"a", "^", "2"}], "-", 
+         RowBox[{"2", " ", "M", " ", "r"}]}]], ",", "0", ",", "0", ",", 
+       RowBox[{"(", 
+        FractionBox[
+         RowBox[{" ", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "M"}], " ", "r", " ", "a"}], ")"}], 
+           RowBox[{
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], 
+         RowBox[{
+          RowBox[{"r", "^", "2"}], " ", "+", 
+          RowBox[{
+           RowBox[{"a", "^", "2"}], 
+           RowBox[{
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}]], ")"}]}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{
+        RowBox[{"r", "^", "2"}], "+", 
+        RowBox[{
+         RowBox[{"a", "^", "2"}], " ", 
+         RowBox[{
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}], ",", "0", 
+       ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"r", "^", "2"}], "+", 
+        RowBox[{"a", "^", "2"}], " ", "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"a", "^", "2"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", "2"}], "M", " ", "r"}], ")"}], 
+          RowBox[{
+           RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}], 
+         RowBox[{
+          RowBox[{"r", "^", "2"}], " ", "+", 
+          RowBox[{
+           RowBox[{"a", "^", "2"}], 
+           RowBox[{
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}]]}], ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        FractionBox[
+         RowBox[{" ", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "M"}], " ", "r", " ", "a"}], ")"}], 
+           RowBox[{
+            RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], 
+         RowBox[{
+          RowBox[{"r", "^", "2"}], " ", "+", 
+          RowBox[{
+           RowBox[{"a", "^", "2"}], 
+           RowBox[{
+            RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}]], ")"}], 
+       ",", "0", ",", "0", ",", 
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          FractionBox[
+           RowBox[{" ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", "2"}], "M", " ", "r"}], ")"}]}], 
+           RowBox[{
+            RowBox[{"r", "^", "2"}], " ", "+", 
+            RowBox[{
+             RowBox[{"a", "^", "2"}], 
+             RowBox[{
+              RowBox[{"Cos", "[", "\[Theta]", "]"}], "^", "2"}]}]}]]}], 
+         ")"}]}]}], "}"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.770541621872037*^9, 3.770541760559494*^9}, {
+  3.770543814731696*^9, 3.770544012600278*^9}, {3.770544056286233*^9, 
+  3.7705440584503527`*^9}},
+ CellLabel->
+  "In[422]:=",ExpressionUUID->"0f6aa630-4d48-4b3c-8921-94be2420c27e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"g", "//", "TableForm"}]], "Input",
+ CellChangeTimes->{{3.7705417705699797`*^9, 3.770541772530279*^9}},
+ CellLabel->
+  "In[384]:=",ExpressionUUID->"0d4d3d7e-d17d-42f3-9e3b-4adf73923439"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["r", "2"], "+", 
+       RowBox[{
+        SuperscriptBox["a", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], 
+      RowBox[{
+       SuperscriptBox["a", "2"], "-", 
+       RowBox[{"2", " ", "M", " ", "r"}], "+", 
+       SuperscriptBox["r", "2"]}]], "0", "0", 
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"a", " ", "M", " ", "r", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}]},
+    {"0", 
+     RowBox[{
+      SuperscriptBox["r", "2"], "+", 
+      RowBox[{
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0", "0"},
+    {"0", "0", 
+     RowBox[{
+      SuperscriptBox["a", "2"], "+", 
+      SuperscriptBox["r", "2"], "+", 
+      FractionBox[
+       RowBox[{"2", " ", 
+        SuperscriptBox["a", "2"], " ", "M", " ", "r", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0"},
+    {
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"a", " ", "M", " ", "r", " ", 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0", "0", 
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "M", " ", "r"}], 
+       RowBox[{
+        SuperscriptBox["r", "2"], "+", 
+        RowBox[{
+         SuperscriptBox["a", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.77054176804323*^9, 3.770541772985812*^9}, 
+   3.770544014076241*^9, 3.7705440597545443`*^9, {3.798204853084311*^9, 
+   3.79820486427291*^9}, 3.7982068579269743`*^9, 3.798207083640918*^9, 
+   3.798358280226358*^9, 3.798359133518505*^9, 3.798359392027989*^9},
+ CellLabel->
+  "Out[384]//TableForm=",ExpressionUUID->"1b016fcd-b09d-4672-a24b-\
+9a80643b712c"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"KrScalar", "[", 
+   RowBox[{"xx", ",", "g"}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.7705419307027884`*^9, 3.770541957499669*^9}, {
+  3.770543740941799*^9, 3.770543752085894*^9}, {3.79820686339365*^9, 
+  3.798206866275424*^9}},
+ CellLabel->
+  "In[423]:=",ExpressionUUID->"058381d3-f6a7-4cc9-8bb3-a65c6b30b2c9"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{
+   RowBox[{"ChristoffelSymbol", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}], "-", 
+   RowBox[{"ChristoffelSymbolDev", "[", 
+    RowBox[{"xx", ",", "g", ",", "0"}], "]"}]}], "]"}]], "Input",
+ CellLabel->
+  "In[424]:=",ExpressionUUID->"440ced52-f137-4584-8d5f-fd34c8cc50de"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.798206870719454*^9, 3.798207085321713*^9, 
+  3.7983582824016943`*^9, 3.79835913461185*^9, 3.798359393042636*^9, 
+  3.7983602778905888`*^9},
+ CellLabel->
+  "Out[424]=",ExpressionUUID->"4e996734-9e06-495f-9a59-0acf7953b305"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"riemann", "=", 
+    RowBox[{"RiemannTensor", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"riemanndev", "=", 
+    RowBox[{"RiemannTensorDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204905186998*^9, 3.798204963974113*^9}},
+ CellLabel->
+  "In[425]:=",ExpressionUUID->"866a0f19-f95e-4fc0-ac2e-fe2565e4f8a8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.025176`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798207088204986*^9, 3.798207137560917*^9, {3.798358285936928*^9, 
+   3.7983582901946993`*^9}, 3.79835848290765*^9, 3.798359135101411*^9, 
+   3.7983593938330927`*^9, {3.798360269965068*^9, 3.79836027848281*^9}},
+ CellLabel->
+  "Out[425]=",ExpressionUUID->"a33e91d8-28d5-4ce2-b33a-b69afe19e8c2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.021144`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798207088204986*^9, 3.798207137560917*^9, {3.798358285936928*^9, 
+   3.7983582901946993`*^9}, 3.79835848290765*^9, 3.798359135101411*^9, 
+   3.7983593938330927`*^9, {3.798360269965068*^9, 3.798360278485095*^9}},
+ CellLabel->
+  "Out[426]=",ExpressionUUID->"8f333b1f-352f-4e51-ab85-358929ff84c9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Options", "@", "RiemannTensorDev"}]], "Input",
+ CellChangeTimes->{{3.798358520366753*^9, 3.798358522036151*^9}},
+ CellLabel->
+  "In[427]:=",ExpressionUUID->"43f92161-42c6-411b-9fc8-0f7b16742d8e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"\<\"Verbose\"\>", "\[Rule]", "False"}], ",", 
+   RowBox[{"\<\"PerturbationIndex\"\>", "\[Rule]", "1"}], ",", 
+   RowBox[{"\<\"SimplifyFunction\"\>", "\[Rule]", "Identity"}], ",", 
+   RowBox[{"\<\"Compile\"\>", "\[Rule]", "False"}], ",", 
+   RowBox[{"\<\"CompiledCoordinates\"\>", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "}"}]}], ",", 
+   RowBox[{"\<\"IndexDown\"\>", "\[Rule]", "False"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.798358522368855*^9, 3.7983591359603024`*^9, 3.798359394478198*^9, {
+   3.7983602707401752`*^9, 3.798360279049099*^9}},
+ CellLabel->
+  "Out[427]=",ExpressionUUID->"18935c58-2005-4eba-a257-c8468d2d200b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Chop", "[", 
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"Table", "[", 
+          RowBox[{
+           RowBox[{"Sum", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"g", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "s"}], "]"}], "]"}], 
+              RowBox[{"riemann", "[", 
+               RowBox[{"[", 
+                RowBox[{"s", ",", "j", ",", "l", ",", "m"}], "]"}], "]"}]}], 
+             ",", 
+             RowBox[{"{", 
+              RowBox[{"s", ",", "4"}], "}"}]}], "]"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"i", ",", "4"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"j", ",", "4"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"l", ",", "4"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"m", ",", "4"}], "}"}]}], "]"}], "-", 
+         RowBox[{"RiemannTensorDev", "[", 
+          RowBox[{"xx", ",", "g", ",", "0", ",", 
+           RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}], ",", 
+           RowBox[{"\"\<IndexDown\>\"", "\[Rule]", "True"}]}], "]"}]}], ")"}],
+        "/.", 
+       RowBox[{"a", "\[Rule]", "0.8"}]}], "/.", 
+      RowBox[{"r", "\[Rule]", "10"}]}], "/.", 
+     RowBox[{"\[Theta]", "\[Rule]", "0.784"}]}], "/.", 
+    RowBox[{"M", "\[Rule]", "1.23"}]}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7983585041829243`*^9, 3.798358595751525*^9}, {
+  3.7983591969558973`*^9, 3.7983592391576157`*^9}},
+ CellLabel->
+  "In[439]:=",ExpressionUUID->"86cd3787-f42d-4a3d-bea8-11f0c0a514fd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.798358589615808*^9, 3.798358605972528*^9}, 
+   3.798359194155895*^9, {3.79835922910749*^9, 3.798359240512393*^9}, 
+   3.798359395921578*^9, {3.7983602638936033`*^9, 3.7983603087469*^9}, 
+   3.798360343756048*^9},
+ CellLabel->
+  "Out[439]=",ExpressionUUID->"2a21cc18-b849-4e3f-8490-adb1ec5ed4a7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"riemann", "-", "riemanndev"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203304472187*^9, 3.7982033059470587`*^9}},
+ CellLabel->
+  "In[429]:=",ExpressionUUID->"384fae2e-1e8a-4f05-862b-743770fb9f61"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.7982033063425913`*^9, 3.798203561840762*^9, {3.798204965623232*^9, 
+   3.798204969700964*^9}, 3.798207089197337*^9, {3.798358287547853*^9, 
+   3.798358295831017*^9}, 3.79835848366313*^9, 3.79836028274487*^9},
+ CellLabel->
+  "Out[429]=",ExpressionUUID->"119aa2a6-3adf-4824-ad6f-8f65f27414af"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"riccits", "=", 
+    RowBox[{"RicciTensor", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"riccitsdev", "=", 
+    RowBox[{"RicciTensorDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204905186998*^9, 3.798204963974113*^9}, {
+  3.7982051451351147`*^9, 3.798205157432707*^9}},
+ CellLabel->
+  "In[310]:=",ExpressionUUID->"8f5618a8-8837-4497-b015-946ac19d7712"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.026792`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798205157776929*^9, 3.798207091313519*^9, {3.7982071329336233`*^9, 
+   3.798207134616316*^9}, 3.7983584958241577`*^9},
+ CellLabel->
+  "Out[310]=",ExpressionUUID->"98853bb7-9f64-42b8-98aa-77d9470516f8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.019567`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798205157776929*^9, 3.798207091313519*^9, {3.7982071329336233`*^9, 
+   3.798207134616316*^9}, 3.7983584958262367`*^9},
+ CellLabel->
+  "Out[311]=",ExpressionUUID->"7c994407-948f-4b88-ab0c-cff6a385d6a2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"(", 
+   RowBox[{"riccits", "-", "riccitsdev"}], ")"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203304472187*^9, 3.7982033059470587`*^9}, {
+  3.7982051649237947`*^9, 3.798205197264146*^9}, {3.7982070994104767`*^9, 
+  3.798207101820526*^9}},
+ CellLabel->
+  "In[312]:=",ExpressionUUID->"ce724af1-72cc-4960-991c-ea9dd6cc2a5b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.798207102298037*^9, 3.798358496735332*^9},
+ CellLabel->
+  "Out[312]=",ExpressionUUID->"0f86ee43-7920-4b75-acd2-6d596a21697a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"riccisc", "=", 
+    RowBox[{"RicciScalar", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"ricciscdev", "=", 
+    RowBox[{"RicciScalarDev", "[", 
+     RowBox[{"xx", ",", "g", ",", "0", ",", 
+      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Identity"}]}], "]"}]}], 
+   ";"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.798204905186998*^9, 3.79820500091984*^9}, {
+  3.7982050440751534`*^9, 3.798205046044992*^9}, {3.798207116700327*^9, 
+  3.798207119748815*^9}},
+ CellLabel->
+  "In[313]:=",ExpressionUUID->"310dd24f-8805-46a2-9cf7-e81fa33a2131"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.029005`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798205001600836*^9, 3.798205054409267*^9, {3.798207120328743*^9, 
+   3.7982071303341417`*^9}, 3.79835849875667*^9},
+ CellLabel->
+  "Out[313]=",ExpressionUUID->"cd6e1b76-a951-4ad3-a32a-d37f418392e5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.021242`", ",", "Null"}], "}"}]], "Output",
+ CellChangeTimes->{{3.798204941859147*^9, 3.798204969124363*^9}, 
+   3.798205001600836*^9, 3.798205054409267*^9, {3.798207120328743*^9, 
+   3.7982071303341417`*^9}, 3.798358498759306*^9},
+ CellLabel->
+  "Out[314]=",ExpressionUUID->"b4ca9e80-a14d-4280-86ea-b8bda7f1be53"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"(", 
+   RowBox[{"riccisc", "-", "ricciscdev"}], ")"}], "]"}]], "Input",
+ CellChangeTimes->{{3.798203304472187*^9, 3.7982033059470587`*^9}, {
+   3.798205006336442*^9, 3.798205027512092*^9}, {3.798205059406145*^9, 
+   3.798205110111209*^9}, 3.7982071257286463`*^9},
+ CellLabel->
+  "In[315]:=",ExpressionUUID->"0320bf66-74eb-444f-a16a-57e38d7c7861"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{
+  3.7982033063425913`*^9, 3.798203561840762*^9, {3.798204965623232*^9, 
+   3.798204969700964*^9}, {3.798205003925699*^9, 3.798205042165185*^9}, {
+   3.7982050789840183`*^9, 3.798205113277308*^9}, {3.798207121469675*^9, 
+   3.798207126190461*^9}, 3.798358499469522*^9},
+ CellLabel->
+  "Out[315]=",ExpressionUUID->"bf6f5d6a-e61c-41f0-945d-36875055fc2a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.7705419629792347`*^9, 3.7705419658553333`*^9}},
+ CellLabel->
+  "In[753]:=",ExpressionUUID->"587b302a-a244-495f-a90d-e618527f431f"],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"12", " ", 
+       SuperscriptBox["a", "4"], " ", 
+       SuperscriptBox["r", "3"], " ", 
+       SuperscriptBox["rs", "3"]}], "+", 
+      RowBox[{"16", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox["r", "5"], " ", 
+       SuperscriptBox["rs", "3"]}], "-", 
+      RowBox[{"64", " ", 
+       SuperscriptBox["a", "4"], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalSigma]"}], "-", 
+      RowBox[{"80", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox["r", "4"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalSigma]"}], "-", 
+      RowBox[{"32", " ", 
+       SuperscriptBox["r", "6"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalSigma]"}], "-", 
+      RowBox[{"3", " ", 
+       SuperscriptBox["a", "4"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalDelta]", " ", 
+       "\[CapitalSigma]"}], "+", 
+      RowBox[{"16", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalDelta]", " ", 
+       "\[CapitalSigma]"}], "+", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["r", "4"], " ", 
+       SuperscriptBox["rs", "2"], " ", "\[CapitalDelta]", " ", 
+       "\[CapitalSigma]"}], "+", 
+      RowBox[{"64", " ", 
+       SuperscriptBox["a", "4"], " ", "r", " ", "rs", " ", 
+       SuperscriptBox["\[CapitalSigma]", "2"]}], "+", 
+      RowBox[{"128", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox["r", "3"], " ", "rs", " ", 
+       SuperscriptBox["\[CapitalSigma]", "2"]}], "+", 
+      RowBox[{"64", " ", 
+       SuperscriptBox["r", "5"], " ", "rs", " ", 
+       SuperscriptBox["\[CapitalSigma]", "2"]}], "-", 
+      RowBox[{"80", " ", 
+       SuperscriptBox["a", "2"], " ", "r", " ", "rs", " ", "\[CapitalDelta]", 
+       " ", 
+       SuperscriptBox["\[CapitalSigma]", "2"]}], "-", 
+      RowBox[{"16", " ", 
+       SuperscriptBox["r", "3"], " ", "rs", " ", "\[CapitalDelta]", " ", 
+       SuperscriptBox["\[CapitalSigma]", "2"]}], "-", 
+      RowBox[{"32", " ", 
+       SuperscriptBox["a", "4"], " ", 
+       SuperscriptBox["\[CapitalSigma]", "3"]}], "-", 
+      RowBox[{"64", " ", 
+       SuperscriptBox["a", "2"], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox["\[CapitalSigma]", "3"]}], "-", 
+      RowBox[{"32", " ", 
+       SuperscriptBox["r", "4"], " ", 
+       SuperscriptBox["\[CapitalSigma]", "3"]}], "+", 
+      RowBox[{"32", " ", 
+       SuperscriptBox["a", "2"], " ", "\[CapitalDelta]", " ", 
+       SuperscriptBox["\[CapitalSigma]", "3"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["a", "2"], " ", "rs", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["r", "3"], " ", 
+             SuperscriptBox["rs", "2"]}], "-", 
+            RowBox[{"7", " ", 
+             SuperscriptBox["r", "2"], " ", "rs", " ", "\[CapitalSigma]"}], 
+            "+", 
+            RowBox[{"rs", " ", "\[CapitalDelta]", " ", "\[CapitalSigma]"}], 
+            "+", 
+            RowBox[{"6", " ", "r", " ", 
+             SuperscriptBox["\[CapitalSigma]", "2"]}]}], ")"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["r", "3"], " ", 
+             SuperscriptBox["rs", "2"]}], "-", 
+            RowBox[{"20", " ", 
+             SuperscriptBox["r", "2"], " ", "rs", " ", "\[CapitalSigma]"}], 
+            "-", 
+            RowBox[{"rs", " ", "\[CapitalDelta]", " ", "\[CapitalSigma]"}], 
+            "+", 
+            RowBox[{"24", " ", "r", " ", 
+             SuperscriptBox["\[CapitalSigma]", "2"]}]}], ")"}]}]}], ")"}], 
+       " ", 
+       RowBox[{"Cos", "[", 
+        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["a", "4"], " ", 
+       SuperscriptBox["rs", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["r", "3"], " ", "rs"}], "-", 
+         RowBox[{"16", " ", 
+          SuperscriptBox["r", "2"], " ", "\[CapitalSigma]"}], "-", 
+         RowBox[{"\[CapitalDelta]", " ", "\[CapitalSigma]"}]}], ")"}], " ", 
+       RowBox[{"Cos", "[", 
+        RowBox[{"4", " ", "\[Theta]"}], "]"}]}]}], ")"}], "/", 
+    RowBox[{"(", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["\[CapitalSigma]", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"r", " ", "rs"}], "-", 
+            RowBox[{"2", " ", "\[CapitalSigma]"}]}], ")"}]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"r", " ", "rs"}], "-", "\[CapitalSigma]"}], ")"}]}], "+", 
+         
+         RowBox[{
+          SuperscriptBox["a", "2"], " ", "r", " ", "rs", " ", 
+          RowBox[{"Cos", "[", 
+           RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
+   ")"}]}]], "Output",
+ CellChangeTimes->{3.770541966607559*^9},
+ CellLabel->
+  "Out[753]=",ExpressionUUID->"3cc2eaee-cc1b-448b-8750-819d727fdcd5"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Obtain the GR-TOV", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}},ExpressionUUID->"b00818ba-6c8f-40ea-a44e-\
+068ff9461ac1"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Exp", "[", 
+        RowBox[{"2", " ", 
+         RowBox[{"w", "[", "r", "]"}]}], "]"}], ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"-", 
+        RowBox[{"Exp", "[", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}]}], ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"-", 
+        SuperscriptBox["r", "2"]}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["r", "2"]}], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", 
+      RowBox[{"Sign", "[", 
+       RowBox[{"FullSimplify", "[", 
+        RowBox[{
+         RowBox[{"g", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}], "/", 
+         RowBox[{"Abs", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}], 
+       "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccisc", "=", 
+   RowBox[{"FullSimplify", "@", 
+    RowBox[{"RicciScalar", "[", 
+     RowBox[{"xx", ",", "g"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}},
+ CellLabel->
+  "In[317]:=",ExpressionUUID->"334e0c5c-d5b8-4498-a6c2-c1226e3681ca"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.7523156331866407`*^9, 3.752315669277997*^9, 
+   3.752392300994501*^9},
+ CellLabel->
+  "Out[318]=",ExpressionUUID->"98ceb010-eee8-430a-9b93-35fc3bd3164b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", 
+   RowBox[{"-", "1"}]}],
+  SequenceForm[" Metric signature : ", -1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.752315633196405*^9, 3.752315669295588*^9, 
+   3.7523923010049334`*^9},
+ CellLabel->
+  "During evaluation of \
+In[317]:=",ExpressionUUID->"c3c37e5f-ee11-4b5e-8086-76fb241de61b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"u", "=", 
+    RowBox[{"If", "[", 
+     RowBox[{
+      RowBox[{"signature", "\[Equal]", "1"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"-", 
+           RowBox[{"g", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], 
+  " "}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"Style", "[", 
+    RowBox[{"\"\<Recall that metric signature == 1 !!\>\"", ",", "Blue"}], 
+    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"u", ".", 
+   RowBox[{"(", 
+    RowBox[{"g", ".", "u"}], ")"}]}], "//", "Simplify"}]}], "Input",
+ CellChangeTimes->{
+  3.717748556792015*^9, {3.7201497297916393`*^9, 3.7201497529754763`*^9}, 
+   3.72014991471554*^9, {3.720149994412814*^9, 3.7201500313172197`*^9}, {
+   3.720150086674468*^9, 3.720150131609095*^9}, 3.7210282239247627`*^9, {
+   3.72102831877349*^9, 3.7210283399140167`*^9}, {3.721028449002584*^9, 
+   3.721028475825095*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"b4a97553-7b8c-4b79-8686-150ea30a3335"],
+
+Cell[BoxData[
+ StyleBox["\<\"Recall that metric signature == 1 !!\"\>",
+  StripOnInput->False,
+  LineColor->RGBColor[0, 0, 1],
+  FrontFaceColor->RGBColor[0, 0, 1],
+  BackFaceColor->RGBColor[0, 0, 1],
+  GraphicsColor->RGBColor[0, 0, 1],
+  FontColor->RGBColor[0, 0, 1]]], "Print",
+ CellChangeTimes->{
+  3.738239257112466*^9, 3.7382435238685102`*^9, 3.738246292929134*^9, 
+   3.7382464188291807`*^9, 3.73836478810083*^9, {3.738418460085128*^9, 
+   3.738418471520904*^9}, 3.7384289371081944`*^9, 3.738443370764*^9, 
+   3.738472763664342*^9, 3.74026847514088*^9, {3.740268788096965*^9, 
+   3.74026880768769*^9}, 3.7468715049662857`*^9, 3.746944062367889*^9, 
+   3.74712138379294*^9, 3.7471341935186443`*^9, 3.747368843523903*^9, {
+   3.747369034507238*^9, 3.7473690527723494`*^9}, 3.747376188218173*^9, 
+   3.7474748837605553`*^9, 3.747546289212886*^9, 3.747996746597335*^9, 
+   3.7481523982847357`*^9, 3.748154280671157*^9, 3.748164885621563*^9, 
+   3.748169408381311*^9, 3.748169452430599*^9, 3.748170037322853*^9, {
+   3.748170840527648*^9, 3.748170847658226*^9}, 3.748171045692328*^9, 
+   3.752315634067535*^9, 3.752315671600762*^9},
+ CellLabel->
+  "During evaluation of \
+In[11]:=",ExpressionUUID->"2d2b862d-cf68-4113-8e2a-98c5463c8130"],
+
+Cell[BoxData["1"], "Output",
+ CellChangeTimes->{
+  3.738239257119619*^9, 3.7382435238819447`*^9, 3.738246292942831*^9, 
+   3.738246418839004*^9, 3.738364788110938*^9, {3.738418460094223*^9, 
+   3.738418471529682*^9}, 3.7384289371145353`*^9, 3.738443370773481*^9, 
+   3.738472763675894*^9, 3.740268475151412*^9, {3.74026878810935*^9, 
+   3.740268807698867*^9}, 3.746871504976838*^9, 3.746944062381765*^9, 
+   3.747121383803788*^9, 3.7471341935303907`*^9, 3.7473688435357523`*^9, {
+   3.747369034519001*^9, 3.74736905278379*^9}, 3.74737618822885*^9, 
+   3.7474748837726727`*^9, 3.747546289222625*^9, 3.747996746613248*^9, 
+   3.748152398296513*^9, 3.748154280682889*^9, 3.748164885632936*^9, 
+   3.7481694083941917`*^9, 3.748169452442214*^9, 3.748170037334834*^9, {
+   3.748170840542295*^9, 3.7481708476702213`*^9}, 3.748171045705168*^9, 
+   3.752315634078697*^9, 3.752315671610896*^9},
+ CellLabel->"Out[13]=",ExpressionUUID->"86594c3c-0fc8-4918-8ca3-a2da281bb632"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"udown", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"u", "[", 
+        RowBox[{"[", "i", "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"i", ",", "l"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717419862193388*^9, 3.717419865888034*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"cd208626-5e3d-4207-a7de-66c63b88255f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   SqrtBox[
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"w", "[", "r", "]"}]}]]], ",", "0", ",", "0", ",", "0"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257163746*^9, 3.738243523948827*^9, 3.7382462929995403`*^9, 
+   3.7382464188849897`*^9, 3.73836478815267*^9, {3.7384184601478577`*^9, 
+   3.73841847158427*^9}, 3.738428937144867*^9, 3.738443370798142*^9, 
+   3.7384727637275257`*^9, 3.740268475196102*^9, {3.740268788164484*^9, 
+   3.74026880774127*^9}, 3.746871505033381*^9, 3.746944062454286*^9, 
+   3.747121383991096*^9, 3.7471341941359377`*^9, {3.74736884435433*^9, 
+   3.747368931670208*^9}, {3.747369002872841*^9, 3.747369035345422*^9}, 
+   3.7473761883514833`*^9, {3.7474748808062*^9, 3.747474885702282*^9}, 
+   3.7475462892942038`*^9, 3.747996750990672*^9, 3.748152399052104*^9, 
+   3.748154282046466*^9, 3.7481648865057898`*^9, 3.748169410303257*^9, 
+   3.7481694532038803`*^9, 3.748170038351623*^9, 3.7481708486599894`*^9, 
+   3.748171046443185*^9, 3.752315634957336*^9, 3.752315672597735*^9},
+ CellLabel->"Out[14]=",ExpressionUUID->"91eca7c9-73fd-4472-92d7-a79a244bba5c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]up", "=", 
+  RowBox[{
+   RowBox[{"If", "[", 
+    RowBox[{
+     RowBox[{"signature", "\[Equal]", "1"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "]"}], "//", 
+   "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.71689694546478*^9, 3.716896961608288*^9}, {
+   3.7168975014713984`*^9, 3.716897598306788*^9}, {3.7168977931239853`*^9, 
+   3.71689792839441*^9}, {3.716898097895761*^9, 3.7168981141752157`*^9}, {
+   3.716904567989387*^9, 3.716904569653391*^9}, {3.716968878668749*^9, 
+   3.716968879274379*^9}, {3.717419798092717*^9, 3.717419800990034*^9}, 
+   3.717419896422799*^9, {3.7174199813473663`*^9, 3.7174199834974747`*^9}, {
+   3.717433608891754*^9, 3.717433619210552*^9}, {3.717748495274461*^9, 
+   3.7177485082789173`*^9}, {3.721028230461268*^9, 3.721028230644088*^9}, {
+   3.7210284217648573`*^9, 3.721028436578032*^9}, {3.747368966969143*^9, 
+   3.747368970170349*^9}},
+ CellLabel->"In[15]:=",ExpressionUUID->"407d0ac1-1dc2-4088-a59f-3865a5879a10"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"w", "[", "r", "]"}]}]], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{"p", "[", "r", "]"}], 
+      SuperscriptBox["r", "2"]], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], 
+      SuperscriptBox["r", "2"]]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925721414*^9, 3.738243524036004*^9, 3.738246293048765*^9, 
+   3.738246418939494*^9, 3.738364788231888*^9, {3.7384184601930647`*^9, 
+   3.7384184716317587`*^9}, 3.7384289371700087`*^9, 3.738443370832918*^9, 
+   3.738472763780528*^9, 3.740268475244999*^9, {3.740268788229795*^9, 
+   3.740268807787265*^9}, 3.7468715051033773`*^9, 3.7469440625206747`*^9, 
+   3.7471213841465883`*^9, 3.747134194675424*^9, {3.74736886857541*^9, 
+   3.747368932270035*^9}, {3.747368967314714*^9, 3.747368970469545*^9}, {
+   3.7473690201575613`*^9, 3.7473690364301434`*^9}, 3.747376188419807*^9, 
+   3.7475462893170757`*^9, 3.747996751535898*^9, 3.748152399754668*^9, 
+   3.748154282747005*^9, 3.7481648871387177`*^9, 3.748169411135203*^9, 
+   3.748169453780912*^9, 3.748170038938608*^9, 3.74817084936005*^9, 
+   3.748171047025981*^9, 3.752315635674481*^9, 3.7523156731916847`*^9},
+ CellLabel->"Out[15]=",ExpressionUUID->"e5f5c524-4c06-4454-bde2-0cc1edf982e1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"T\[Mu]\[Nu]up", "[", 
+        RowBox[{"[", 
+         RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717174398720162*^9, 3.717174405832109*^9}, {
+   3.71741999153314*^9, 3.71741999188358*^9}, 3.717428505145114*^9, 
+   3.717748524802745*^9, {3.717933907043252*^9, 3.717933940392991*^9}, {
+   3.717933979091668*^9, 3.7179340154647083`*^9}, {3.717934054328257*^9, 
+   3.717934085440922*^9}, {3.748154284812828*^9, 3.748154285371112*^9}},
+ CellLabel->"In[16]:=",ExpressionUUID->"31c38d14-b264-4ee3-a4ee-f32919091b05"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925726434*^9, 3.7382435241174088`*^9, 3.738246293099222*^9, 
+   3.738246418989193*^9, 3.73836478828795*^9, {3.7384184602399*^9, 
+   3.738418471687704*^9}, 3.7384289372230263`*^9, 3.7384433708652983`*^9, 
+   3.738472763827738*^9, 3.740268475277933*^9, {3.740268788296517*^9, 
+   3.74026880784545*^9}, 3.746871505193667*^9, 3.746944062588154*^9, 
+   3.7471213842441883`*^9, 3.747134195425392*^9, 3.747368932924829*^9, 
+   3.7473761884858913`*^9, 3.7475462893611107`*^9, 3.747996752123827*^9, 
+   3.7481524006377907`*^9, 3.748154285798277*^9, 3.748164887788493*^9, 
+   3.748169411801445*^9, 3.748169454365245*^9, 3.748170039600761*^9, 
+   3.7481708501085377`*^9, 3.7481710478303947`*^9, 3.752315636301714*^9, 
+   3.752315674119981*^9},
+ CellLabel->"Out[16]=",ExpressionUUID->"7b2711ec-e763-491a-a451-07a0aa1e0c40"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Continuity", " ", "equation"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"eqp", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["p", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Flatten", "[", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Table", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{"CovDer", "[", 
+                RowBox[{"xx", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                 RowBox[{"{", 
+                  RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                 RowBox[{
+                 "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}], 
+                "]"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"i", ",", 
+                 RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"j", ",", 
+               RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], "\[Equal]", 
+           RowBox[{"{", 
+            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
+          RowBox[{
+           SuperscriptBox["p", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}], "]"}]}], 
+      ")"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.721113587934162*^9, 3.721113629229336*^9}, {
+  3.721113664237012*^9, 3.721113668190748*^9}, {3.721113706596529*^9, 
+  3.721113796106236*^9}, {3.721115385820541*^9, 3.7211153908543663`*^9}, {
+  3.7211158095314198`*^9, 3.7211158099529877`*^9}, {3.724072252803965*^9, 
+  3.724072253227384*^9}, {3.748164893214014*^9, 3.7481649827529*^9}, {
+  3.748165954576632*^9, 3.7481660302527246`*^9}, {3.74816697324897*^9, 
+  3.7481669813728113`*^9}, {3.748167759768062*^9, 3.7481677613568907`*^9}},
+ CellLabel->"In[17]:=",ExpressionUUID->"e37f6004-ac20-4940-99fe-c1119c385340"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["p", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "+", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257484399*^9, 3.738243524520303*^9, 3.7382462932329187`*^9, 
+   3.73824641910999*^9, 3.738364788423029*^9, {3.738418460312562*^9, 
+   3.738418471817337*^9}, 3.7384289373527927`*^9, 3.738443371033216*^9, 
+   3.738472764031474*^9, 3.740268475425226*^9, {3.74026878843533*^9, 
+   3.74026880798472*^9}, 3.746871505282242*^9, 3.7469440627205973`*^9, 
+   3.74712138449193*^9, 3.747134196353437*^9, 3.7473761885820627`*^9, 
+   3.747546289449*^9, {3.7479967528191547`*^9, 3.7479967566656027`*^9}, 
+   3.748152401853285*^9, 3.748154286697897*^9, 3.748164983062326*^9, {
+   3.74816595501602*^9, 3.748166030801673*^9}, {3.748166639141268*^9, 
+   3.748166641386911*^9}, 3.748166981854083*^9, 3.748167611925775*^9, {
+   3.748167752382866*^9, 3.7481677618489847`*^9}, 3.748169413464644*^9, 
+   3.748169456283239*^9, {3.748170041891592*^9, 3.748170046076436*^9}, 
+   3.748170086401606*^9, 3.748170227874957*^9, 3.7481708507730722`*^9, 
+   3.7481710513136*^9, 3.752315637100428*^9, 3.752315674779408*^9},
+ CellLabel->"Out[17]=",ExpressionUUID->"55923611-c4f3-4ef1-a4a7-a84704ac6edf"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T", "=", 
+  RowBox[{"Sum", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"g", ".", "T\[Mu]\[Nu]up"}], ")"}], "[", 
+     RowBox[{"[", 
+      RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717420085395555*^9, 3.717420095641667*^9}, {
+  3.7177528701703787`*^9, 3.7177528711479816`*^9}, {3.72102889795538*^9, 
+  3.721028898626919*^9}, {3.748166060217938*^9, 3.748166063648992*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"c1f545f6-dc9a-4d75-b3d2-612eb819b905"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "3"}], " ", 
+   RowBox[{"p", "[", "r", "]"}]}], "+", 
+  RowBox[{"\[Rho]", "[", "r", "]"}]}]], "Output",
+ CellChangeTimes->{
+  3.738239257530514*^9, 3.738243524604237*^9, 3.7382462932826843`*^9, 
+   3.7382464191689796`*^9, 3.738364788550866*^9, {3.738418460358227*^9, 
+   3.7384184719034433`*^9}, 3.738428937375473*^9, 3.738443371106002*^9, 
+   3.7384727641123734`*^9, 3.7402684754621964`*^9, {3.740268788548218*^9, 
+   3.740268808038826*^9}, 3.746871505435012*^9, 3.746944062787211*^9, 
+   3.747121384635006*^9, 3.747134197189636*^9, 3.747376188654307*^9, 
+   3.747546289472776*^9, {3.747996753423074*^9, 3.7479967575071297`*^9}, 
+   3.7481524029425793`*^9, 3.748166064007366*^9, 3.7481694580821037`*^9, 
+   3.74817004674165*^9, 3.748170088593472*^9, 3.748170231197794*^9, 
+   3.7481708515864563`*^9, 3.748171059508092*^9, 3.752315637871675*^9, 
+   3.752315675504908*^9},
+ CellLabel->"Out[18]=",ExpressionUUID->"c7bcd78e-891d-429a-aef4-de5b3d9b183d"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", "Teff", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Teff", "=", 
+     RowBox[{"TeffFR", "[", 
+      RowBox[{"xx", ",", "g", ",", "R"}], "]"}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"Ttot", "=", 
+     RowBox[{"FullSimplify", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "1"}], 
+       RowBox[{"(", 
+        RowBox[{"T\[Mu]\[Nu]", "+", "Teff"}], ")"}]}], "]"}]}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7481548559010553`*^9, 3.748154897048135*^9}, {
+  3.748154994128281*^9, 3.748155057582625*^9}, {3.7481552299087887`*^9, 
+  3.748155230552683*^9}, {3.748155281931972*^9, 3.748155305460484*^9}, {
+  3.7481664896107597`*^9, 3.748166491490004*^9}, {3.748171063213746*^9, 
+  3.748171082659*^9}, {3.7523156799126177`*^9, 3.7523156875269337`*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"1cafd883-7da7-4823-a6a9-5123a8159c14"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq\[Lambda]", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Collect", "[", 
+        RowBox[{
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"einsteinGR", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", 
+            RowBox[{"8", "\[Pi]", " ", 
+             RowBox[{"Ttot", "[", 
+              RowBox[{"[", 
+               RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ",", 
+           RowBox[{
+            SuperscriptBox["\[Lambda]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "]"}], ",", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}], ")"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellLabel->"In[26]:=",ExpressionUUID->"9aba9333-17e7-4381-9168-1d6071ba951b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"2", " ", "r"}]], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.748166067281787*^9, 3.748166233412775*^9, 3.748166596293666*^9, 
+   3.748167602734932*^9, 3.748169461822729*^9, 3.74817004819375*^9, 
+   3.748170090042617*^9, 3.748170233367116*^9, {3.748170935979722*^9, 
+   3.74817094929779*^9}, 3.7481710657245398`*^9, 3.748171098750437*^9, 
+   3.752315639242178*^9, {3.75231567704215*^9, 3.752315691751334*^9}},
+ CellLabel->"Out[26]=",ExpressionUUID->"ff51abc0-e70f-4c06-85d1-b9b62ff29c5b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eqw", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "/.", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"einsteinGR", "[", 
+            RowBox[{"[", 
+             RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", " ", 
+           RowBox[{"8", "\[Pi]", "  ", 
+            RowBox[{"Ttot", "[", 
+             RowBox[{"[", 
+              RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ",", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}]}], ",", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.720144588759453*^9, 3.720144590876111*^9}, {
+  3.720144667086581*^9, 3.7201446946279087`*^9}, {3.720144780854402*^9, 
+  3.720144790861692*^9}, {3.7201449833155107`*^9, 3.7201450049970293`*^9}, {
+  3.720145050235566*^9, 3.720145137715763*^9}, {3.720145182382394*^9, 
+  3.720145200625107*^9}, {3.72015053649203*^9, 3.720150544697959*^9}, {
+  3.721028941895832*^9, 3.721028946059544*^9}, {3.748155950547563*^9, 
+  3.748155971151705*^9}},
+ CellLabel->"In[27]:=",ExpressionUUID->"1d768848-b3e5-4b5c-b907-aa6c6db9e3a7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["w", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox["1", 
+      RowBox[{"2", " ", "r"}]]}], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7481559749135237`*^9, 3.748166598682158*^9, 
+  3.7481676042602654`*^9, 3.748169465159646*^9, 3.7481700493588057`*^9, 
+  3.7481709512813377`*^9, 3.748171102155809*^9, 3.752315640629643*^9, 
+  3.752315702590332*^9},
+ CellLabel->"Out[27]=",ExpressionUUID->"bd624d91-6864-42d8-81b1-36ed894481a8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"myfReqs", "=", 
+    RowBox[{"{", 
+     RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw"}], "}"}]}], ")"}], "//", 
+  "TableForm"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"myfReqs", "=", 
+      RowBox[{"FullSimplify", "[", 
+       RowBox[{"{", 
+        RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw", ",", "eq\[Psi]"}], 
+        "}"}], "]"}]}], ")"}], "//", "TableForm"}], "*)"}]}]}], "Input",
+ CellChangeTimes->{{3.720145580445201*^9, 3.7201455916796227`*^9}, {
+   3.720149514779941*^9, 3.720149524192295*^9}, {3.720149615433412*^9, 
+   3.720149617111251*^9}, {3.7210293786478643`*^9, 3.7210293787112827`*^9}, {
+   3.721113805174633*^9, 3.72111380530075*^9}, {3.722318655994528*^9, 
+   3.722318662232821*^9}, 3.7244952552271976`*^9, {3.726228510372617*^9, 
+   3.726228516913807*^9}, {3.727695818886282*^9, 3.727695836403275*^9}, {
+   3.72769604086134*^9, 3.727696048025983*^9}, 3.728128676118905*^9, {
+   3.747134208464203*^9, 3.7471342105489817`*^9}, {3.7481711512677917`*^9, 
+   3.748171151406582*^9}},
+ CellLabel->"In[28]:=",ExpressionUUID->"6da4dccc-52c1-4bcf-b508-a649e7b2ebcd"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], "+", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"2", " ", "r"}]], "+", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"2", " ", "r"}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", 
+         RowBox[{"2", " ", "r"}]]}], "+", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"2", " ", "r"}]]}]}]}
+   },
+   GridBoxAlignment->{
+    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+     "RowsIndexed" -> {}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{
+  3.738239260373521*^9, 3.738243527750675*^9, 3.73824629498415*^9, 
+   3.738246420937697*^9, 3.738364790236902*^9, 3.7383652872089777`*^9, {
+   3.738365349154182*^9, 3.7383653729699097`*^9}, {3.738418460676594*^9, 
+   3.738418473598926*^9}, 3.7384289392050953`*^9, 3.7384433728075933`*^9, 
+   3.7384727660607862`*^9, 3.7402684778385687`*^9, {3.740268781076466*^9, 
+   3.7402688097520027`*^9}, 3.7468715068647947`*^9, 3.7469440638063087`*^9, 
+   3.747121386201676*^9, {3.747134208967265*^9, 3.747134210861104*^9}, 
+   3.7473761900465593`*^9, 3.747546290309759*^9, 3.7479967682983093`*^9, 
+   3.748152408241688*^9, 3.7481564158026247`*^9, 3.748166615342593*^9, 
+   3.748171004181975*^9, 3.7481711090241957`*^9, 3.748171151734049*^9, 
+   3.7523157032553453`*^9},
+ CellLabel->
+  "Out[28]//TableForm=",ExpressionUUID->"47ac9b27-5843-4e1f-a4d1-\
+8aea6fd563e0"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Obtain the GR-TOV different metric", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171016206524*^9, 
+  3.7481710338362217`*^9}, {3.7663073462523518`*^9, 
+  3.766307348585086*^9}},ExpressionUUID->"06f86be9-7053-4f53-a3c9-\
+1038d3ae12e8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"g", "//", "MatrixForm"}]], "Input",
+ CellChangeTimes->{{3.766309711698284*^9, 3.766309716522088*^9}},
+ CellLabel->
+  "In[132]:=",ExpressionUUID->"af2d4ead-32f6-44b4-9c23-e29c45d89556"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"(", "\[NoBreak]", GridBox[{
+     {
+      RowBox[{"-", 
+       RowBox[{"f", "[", "r", "]"}]}], "0", "0", "0"},
+     {"0", 
+      FractionBox["1", 
+       RowBox[{"b", "[", "r", "]"}]], "0", "0"},
+     {"0", "0", 
+      SuperscriptBox["r", "2"], "0"},
+     {"0", "0", "0", 
+      RowBox[{
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.7]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+  Function[BoxForm`e$, 
+   MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.7663097124922132`*^9, 3.7663097168922997`*^9}},
+ CellLabel->
+  "Out[132]//MatrixForm=",ExpressionUUID->"5d04cfdc-4d84-48b7-a97d-\
+95ea169f5248"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"f", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"b", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"f", "[", "r", "]"}], ">", "0"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"b", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"f", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}],
+      ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"1", "/", 
+        RowBox[{"b", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        SuperscriptBox["r", "2"], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", 
+      RowBox[{"Sign", "[", 
+       RowBox[{"FullSimplify", "[", 
+        RowBox[{
+         RowBox[{"g", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}], "/", 
+         RowBox[{"Abs", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}], 
+       "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccisc", "=", 
+   RowBox[{"FullSimplify", "@", 
+    RowBox[{"RicciScalar", "[", 
+     RowBox[{"xx", ",", "g"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.766307352231407*^9, 3.766307366123831*^9}, {
+   3.766309733573256*^9, 3.766309768306882*^9}},
+ CellLabel->
+  "In[160]:=",ExpressionUUID->"4c800565-cf82-45a7-b06d-bca9237b5db0"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"b", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.7523156331866407`*^9, 3.752315669277997*^9, 
+   3.752392300994501*^9, 3.766307368465804*^9, {3.766309726848216*^9, 
+   3.766309768784924*^9}},
+ CellLabel->
+  "Out[161]=",ExpressionUUID->"e124c890-233c-4c64-9845-07a965e651f5"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", "r", "]"}], ">", "0"}], "&&", 
+  RowBox[{
+   RowBox[{"b", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.748171040372291*^9, 3.7523156331866407`*^9, 3.752315669277997*^9, 
+   3.752392300994501*^9, 3.766307368465804*^9, {3.766309726848216*^9, 
+   3.766309768799501*^9}},
+ CellLabel->
+  "Out[162]=",ExpressionUUID->"d20902b0-57a1-4f80-85ff-8a02479854e2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", "1"}],
+  SequenceForm[" Metric signature : ", 1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.748171040384201*^9, 3.752315633196405*^9, 3.752315669295588*^9, 
+   3.7523923010049334`*^9, 3.76630736847604*^9, {3.766309726860224*^9, 
+   3.7663097688085747`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[160]:=",ExpressionUUID->"85de8086-c7f7-4fb0-ae8e-b8a75633a540"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"u", "=", 
+    RowBox[{"If", "[", 
+     RowBox[{
+      RowBox[{"signature", "\[Equal]", "1"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"-", 
+           RowBox[{"g", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], 
+  " "}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"Style", "[", 
+    RowBox[{"\"\<Recall that metric signature == 1 !!\>\"", ",", "Blue"}], 
+    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"u", ".", 
+   RowBox[{"(", 
+    RowBox[{"g", ".", "u"}], ")"}]}], "//", "Simplify"}]}], "Input",
+ CellChangeTimes->{
+  3.717748556792015*^9, {3.7201497297916393`*^9, 3.7201497529754763`*^9}, 
+   3.72014991471554*^9, {3.720149994412814*^9, 3.7201500313172197`*^9}, {
+   3.720150086674468*^9, 3.720150131609095*^9}, 3.7210282239247627`*^9, {
+   3.72102831877349*^9, 3.7210283399140167`*^9}, {3.721028449002584*^9, 
+   3.721028475825095*^9}},
+ CellLabel->
+  "In[170]:=",ExpressionUUID->"4d74e151-d388-4591-8827-c11578074dd0"],
+
+Cell[BoxData[
+ StyleBox["\<\"Recall that metric signature == 1 !!\"\>",
+  StripOnInput->False,
+  LineColor->RGBColor[0, 0, 1],
+  FrontFaceColor->RGBColor[0, 0, 1],
+  BackFaceColor->RGBColor[0, 0, 1],
+  GraphicsColor->RGBColor[0, 0, 1],
+  FontColor->RGBColor[0, 0, 1]]], "Print",
+ CellChangeTimes->{
+  3.738239257112466*^9, 3.7382435238685102`*^9, 3.738246292929134*^9, 
+   3.7382464188291807`*^9, 3.73836478810083*^9, {3.738418460085128*^9, 
+   3.738418471520904*^9}, 3.7384289371081944`*^9, 3.738443370764*^9, 
+   3.738472763664342*^9, 3.74026847514088*^9, {3.740268788096965*^9, 
+   3.74026880768769*^9}, 3.7468715049662857`*^9, 3.746944062367889*^9, 
+   3.74712138379294*^9, 3.7471341935186443`*^9, 3.747368843523903*^9, {
+   3.747369034507238*^9, 3.7473690527723494`*^9}, 3.747376188218173*^9, 
+   3.7474748837605553`*^9, 3.747546289212886*^9, 3.747996746597335*^9, 
+   3.7481523982847357`*^9, 3.748154280671157*^9, 3.748164885621563*^9, 
+   3.748169408381311*^9, 3.748169452430599*^9, 3.748170037322853*^9, {
+   3.748170840527648*^9, 3.748170847658226*^9}, 3.748171045692328*^9, 
+   3.752315634067535*^9, 3.752315671600762*^9, 3.766309802632094*^9},
+ CellLabel->
+  "During evaluation of \
+In[170]:=",ExpressionUUID->"22eddef9-84e1-4b5f-bdfd-c83809fadbeb"],
+
+Cell[BoxData[
+ RowBox[{"-", "1"}]], "Output",
+ CellChangeTimes->{
+  3.738239257119619*^9, 3.7382435238819447`*^9, 3.738246292942831*^9, 
+   3.738246418839004*^9, 3.738364788110938*^9, {3.738418460094223*^9, 
+   3.738418471529682*^9}, 3.7384289371145353`*^9, 3.738443370773481*^9, 
+   3.738472763675894*^9, 3.740268475151412*^9, {3.74026878810935*^9, 
+   3.740268807698867*^9}, 3.746871504976838*^9, 3.746944062381765*^9, 
+   3.747121383803788*^9, 3.7471341935303907`*^9, 3.7473688435357523`*^9, {
+   3.747369034519001*^9, 3.74736905278379*^9}, 3.74737618822885*^9, 
+   3.7474748837726727`*^9, 3.747546289222625*^9, 3.747996746613248*^9, 
+   3.748152398296513*^9, 3.748154280682889*^9, 3.748164885632936*^9, 
+   3.7481694083941917`*^9, 3.748169452442214*^9, 3.748170037334834*^9, {
+   3.748170840542295*^9, 3.7481708476702213`*^9}, 3.748171045705168*^9, 
+   3.752315634078697*^9, 3.752315671610896*^9, 3.76630980264349*^9},
+ CellLabel->
+  "Out[172]=",ExpressionUUID->"27ae41e0-5bbc-4eea-b456-9eacf6e10b2b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"udown", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"u", "[", 
+        RowBox[{"[", "i", "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"i", ",", "l"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717419862193388*^9, 3.717419865888034*^9}},
+ CellLabel->
+  "In[173]:=",ExpressionUUID->"82221953-57d5-4897-8857-a4ea2de86434"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"-", 
+    SqrtBox[
+     RowBox[{"f", "[", "r", "]"}]]}], ",", "0", ",", "0", ",", "0"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257163746*^9, 3.738243523948827*^9, 3.7382462929995403`*^9, 
+   3.7382464188849897`*^9, 3.73836478815267*^9, {3.7384184601478577`*^9, 
+   3.73841847158427*^9}, 3.738428937144867*^9, 3.738443370798142*^9, 
+   3.7384727637275257`*^9, 3.740268475196102*^9, {3.740268788164484*^9, 
+   3.74026880774127*^9}, 3.746871505033381*^9, 3.746944062454286*^9, 
+   3.747121383991096*^9, 3.7471341941359377`*^9, {3.74736884435433*^9, 
+   3.747368931670208*^9}, {3.747369002872841*^9, 3.747369035345422*^9}, 
+   3.7473761883514833`*^9, {3.7474748808062*^9, 3.747474885702282*^9}, 
+   3.7475462892942038`*^9, 3.747996750990672*^9, 3.748152399052104*^9, 
+   3.748154282046466*^9, 3.7481648865057898`*^9, 3.748169410303257*^9, 
+   3.7481694532038803`*^9, 3.748170038351623*^9, 3.7481708486599894`*^9, 
+   3.748171046443185*^9, 3.752315634957336*^9, 3.752315672597735*^9, 
+   3.766309803480845*^9},
+ CellLabel->
+  "Out[173]=",ExpressionUUID->"908532ff-1eea-48ef-b0f7-b6bd80bab3a7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]up", "=", 
+  RowBox[{
+   RowBox[{"If", "[", 
+    RowBox[{
+     RowBox[{"signature", "\[Equal]", "1"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "]"}], "//", 
+   "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.71689694546478*^9, 3.716896961608288*^9}, {
+   3.7168975014713984`*^9, 3.716897598306788*^9}, {3.7168977931239853`*^9, 
+   3.71689792839441*^9}, {3.716898097895761*^9, 3.7168981141752157`*^9}, {
+   3.716904567989387*^9, 3.716904569653391*^9}, {3.716968878668749*^9, 
+   3.716968879274379*^9}, {3.717419798092717*^9, 3.717419800990034*^9}, 
+   3.717419896422799*^9, {3.7174199813473663`*^9, 3.7174199834974747`*^9}, {
+   3.717433608891754*^9, 3.717433619210552*^9}, {3.717748495274461*^9, 
+   3.7177485082789173`*^9}, {3.721028230461268*^9, 3.721028230644088*^9}, {
+   3.7210284217648573`*^9, 3.721028436578032*^9}, {3.747368966969143*^9, 
+   3.747368970170349*^9}},
+ CellLabel->
+  "In[174]:=",ExpressionUUID->"68a86325-7d4e-489a-8554-11545358bb9a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"\[Rho]", "[", "r", "]"}], 
+      RowBox[{"f", "[", "r", "]"}]], ",", "0", ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      RowBox[{"b", "[", "r", "]"}], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{"p", "[", "r", "]"}], 
+      SuperscriptBox["r", "2"]], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], 
+      SuperscriptBox["r", "2"]]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925721414*^9, 3.738243524036004*^9, 3.738246293048765*^9, 
+   3.738246418939494*^9, 3.738364788231888*^9, {3.7384184601930647`*^9, 
+   3.7384184716317587`*^9}, 3.7384289371700087`*^9, 3.738443370832918*^9, 
+   3.738472763780528*^9, 3.740268475244999*^9, {3.740268788229795*^9, 
+   3.740268807787265*^9}, 3.7468715051033773`*^9, 3.7469440625206747`*^9, 
+   3.7471213841465883`*^9, 3.747134194675424*^9, {3.74736886857541*^9, 
+   3.747368932270035*^9}, {3.747368967314714*^9, 3.747368970469545*^9}, {
+   3.7473690201575613`*^9, 3.7473690364301434`*^9}, 3.747376188419807*^9, 
+   3.7475462893170757`*^9, 3.747996751535898*^9, 3.748152399754668*^9, 
+   3.748154282747005*^9, 3.7481648871387177`*^9, 3.748169411135203*^9, 
+   3.748169453780912*^9, 3.748170038938608*^9, 3.74817084936005*^9, 
+   3.748171047025981*^9, 3.752315635674481*^9, 3.7523156731916847`*^9, 
+   3.7663098043309298`*^9},
+ CellLabel->
+  "Out[174]=",ExpressionUUID->"ce094d0b-901b-4924-b99b-d67127abb61f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"T\[Mu]\[Nu]up", "[", 
+        RowBox[{"[", 
+         RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717174398720162*^9, 3.717174405832109*^9}, {
+   3.71741999153314*^9, 3.71741999188358*^9}, 3.717428505145114*^9, 
+   3.717748524802745*^9, {3.717933907043252*^9, 3.717933940392991*^9}, {
+   3.717933979091668*^9, 3.7179340154647083`*^9}, {3.717934054328257*^9, 
+   3.717934085440922*^9}, {3.748154284812828*^9, 3.748154285371112*^9}},
+ CellLabel->
+  "In[175]:=",ExpressionUUID->"81448baf-b8f8-400b-bd9d-f40a53525971"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f", "[", "r", "]"}], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     FractionBox[
+      RowBox[{"p", "[", "r", "]"}], 
+      RowBox[{"b", "[", "r", "]"}]], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925726434*^9, 3.7382435241174088`*^9, 3.738246293099222*^9, 
+   3.738246418989193*^9, 3.73836478828795*^9, {3.7384184602399*^9, 
+   3.738418471687704*^9}, 3.7384289372230263`*^9, 3.7384433708652983`*^9, 
+   3.738472763827738*^9, 3.740268475277933*^9, {3.740268788296517*^9, 
+   3.74026880784545*^9}, 3.746871505193667*^9, 3.746944062588154*^9, 
+   3.7471213842441883`*^9, 3.747134195425392*^9, 3.747368932924829*^9, 
+   3.7473761884858913`*^9, 3.7475462893611107`*^9, 3.747996752123827*^9, 
+   3.7481524006377907`*^9, 3.748154285798277*^9, 3.748164887788493*^9, 
+   3.748169411801445*^9, 3.748169454365245*^9, 3.748170039600761*^9, 
+   3.7481708501085377`*^9, 3.7481710478303947`*^9, 3.752315636301714*^9, 
+   3.752315674119981*^9, 3.766307380540984*^9, 3.766309805498457*^9},
+ CellLabel->
+  "Out[175]=",ExpressionUUID->"abf6abcf-02ca-4509-9253-e0b623a936b7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Continuity", " ", "equation"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"eqp", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["p", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Flatten", "[", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Table", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{"CovDer", "[", 
+                RowBox[{"xx", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                 RowBox[{"{", 
+                  RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                 RowBox[{
+                 "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}], 
+                "]"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"i", ",", 
+                 RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"j", ",", 
+               RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], "\[Equal]", 
+           RowBox[{"{", 
+            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
+          RowBox[{
+           SuperscriptBox["p", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}], "]"}]}], 
+      ")"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.721113587934162*^9, 3.721113629229336*^9}, {
+  3.721113664237012*^9, 3.721113668190748*^9}, {3.721113706596529*^9, 
+  3.721113796106236*^9}, {3.721115385820541*^9, 3.7211153908543663`*^9}, {
+  3.7211158095314198`*^9, 3.7211158099529877`*^9}, {3.724072252803965*^9, 
+  3.724072253227384*^9}, {3.748164893214014*^9, 3.7481649827529*^9}, {
+  3.748165954576632*^9, 3.7481660302527246`*^9}, {3.74816697324897*^9, 
+  3.7481669813728113`*^9}, {3.748167759768062*^9, 3.7481677613568907`*^9}},
+ CellLabel->
+  "In[176]:=",ExpressionUUID->"37efe627-009f-4a3c-b16f-69f84cf1d96a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["p", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"f", "[", "r", "]"}]}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257484399*^9, 3.738243524520303*^9, 3.7382462932329187`*^9, 
+   3.73824641910999*^9, 3.738364788423029*^9, {3.738418460312562*^9, 
+   3.738418471817337*^9}, 3.7384289373527927`*^9, 3.738443371033216*^9, 
+   3.738472764031474*^9, 3.740268475425226*^9, {3.74026878843533*^9, 
+   3.74026880798472*^9}, 3.746871505282242*^9, 3.7469440627205973`*^9, 
+   3.74712138449193*^9, 3.747134196353437*^9, 3.7473761885820627`*^9, 
+   3.747546289449*^9, {3.7479967528191547`*^9, 3.7479967566656027`*^9}, 
+   3.748152401853285*^9, 3.748154286697897*^9, 3.748164983062326*^9, {
+   3.74816595501602*^9, 3.748166030801673*^9}, {3.748166639141268*^9, 
+   3.748166641386911*^9}, 3.748166981854083*^9, 3.748167611925775*^9, {
+   3.748167752382866*^9, 3.7481677618489847`*^9}, 3.748169413464644*^9, 
+   3.748169456283239*^9, {3.748170041891592*^9, 3.748170046076436*^9}, 
+   3.748170086401606*^9, 3.748170227874957*^9, 3.7481708507730722`*^9, 
+   3.7481710513136*^9, 3.752315637100428*^9, 3.752315674779408*^9, 
+   3.7663073830657253`*^9, 3.7663098069005527`*^9},
+ CellLabel->
+  "Out[176]=",ExpressionUUID->"174c416f-5ccc-4d73-9b5e-d04758d39a3b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T", "=", 
+  RowBox[{"Sum", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"g", ".", "T\[Mu]\[Nu]up"}], ")"}], "[", 
+     RowBox[{"[", 
+      RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717420085395555*^9, 3.717420095641667*^9}, {
+  3.7177528701703787`*^9, 3.7177528711479816`*^9}, {3.72102889795538*^9, 
+  3.721028898626919*^9}, {3.748166060217938*^9, 3.748166063648992*^9}},
+ CellLabel->
+  "In[177]:=",ExpressionUUID->"0dee3fbc-cae5-4e91-a556-b0a93f9b7f9e"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   RowBox[{"p", "[", "r", "]"}]}], "-", 
+  RowBox[{"\[Rho]", "[", "r", "]"}]}]], "Output",
+ CellChangeTimes->{
+  3.738239257530514*^9, 3.738243524604237*^9, 3.7382462932826843`*^9, 
+   3.7382464191689796`*^9, 3.738364788550866*^9, {3.738418460358227*^9, 
+   3.7384184719034433`*^9}, 3.738428937375473*^9, 3.738443371106002*^9, 
+   3.7384727641123734`*^9, 3.7402684754621964`*^9, {3.740268788548218*^9, 
+   3.740268808038826*^9}, 3.746871505435012*^9, 3.746944062787211*^9, 
+   3.747121384635006*^9, 3.747134197189636*^9, 3.747376188654307*^9, 
+   3.747546289472776*^9, {3.747996753423074*^9, 3.7479967575071297`*^9}, 
+   3.7481524029425793`*^9, 3.748166064007366*^9, 3.7481694580821037`*^9, 
+   3.74817004674165*^9, 3.748170088593472*^9, 3.748170231197794*^9, 
+   3.7481708515864563`*^9, 3.748171059508092*^9, 3.752315637871675*^9, 
+   3.752315675504908*^9, 3.766307389699265*^9, 3.766309808287836*^9},
+ CellLabel->
+  "Out[177]=",ExpressionUUID->"b2a499a1-5f75-4ac2-a3de-091164953a92"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", "Teff", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Teff", "=", 
+     RowBox[{"TeffFR", "[", 
+      RowBox[{"xx", ",", "g", ",", "R"}], "]"}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"Ttot", "=", 
+     RowBox[{"FullSimplify", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "1"}], 
+       RowBox[{"(", 
+        RowBox[{"T\[Mu]\[Nu]", "+", "Teff"}], ")"}]}], "]"}]}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7481548559010553`*^9, 3.748154897048135*^9}, {
+  3.748154994128281*^9, 3.748155057582625*^9}, {3.7481552299087887`*^9, 
+  3.748155230552683*^9}, {3.748155281931972*^9, 3.748155305460484*^9}, {
+  3.7481664896107597`*^9, 3.748166491490004*^9}, {3.748171063213746*^9, 
+  3.748171082659*^9}, {3.7523156799126177`*^9, 3.7523156875269337`*^9}},
+ CellLabel->
+  "In[178]:=",ExpressionUUID->"971e90cc-d509-4ecd-baa9-dddff00fb886"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq\[Lambda]", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["b", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["b", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Collect", "[", 
+        RowBox[{
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"einsteinGR", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", 
+            RowBox[{"8", "\[Pi]", " ", 
+             RowBox[{"Ttot", "[", 
+              RowBox[{"[", 
+               RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ",", 
+           RowBox[{
+            SuperscriptBox["b", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "]"}], ",", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}], ")"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.7663073983112183`*^9, 3.766307433237727*^9}},
+ CellLabel->
+  "In[180]:=",ExpressionUUID->"3dd417d0-b511-416e-adcd-4dc96e264d35"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["b", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   FractionBox[
+    RowBox[{"1", "-", 
+     RowBox[{"b", "[", "r", "]"}], "-", 
+     RowBox[{"8", " ", "\[Pi]", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "r"]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.748166067281787*^9, 3.748166233412775*^9, 3.748166596293666*^9, 
+   3.748167602734932*^9, 3.748169461822729*^9, 3.74817004819375*^9, 
+   3.748170090042617*^9, 3.748170233367116*^9, {3.748170935979722*^9, 
+   3.74817094929779*^9}, 3.7481710657245398`*^9, 3.748171098750437*^9, 
+   3.752315639242178*^9, {3.75231567704215*^9, 3.752315691751334*^9}, {
+   3.766307396215714*^9, 3.76630743636633*^9}, 3.766309809649989*^9},
+ CellLabel->
+  "Out[180]=",ExpressionUUID->"bf8f0eb7-c5f9-4512-b5cd-0cb898aa03e9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eqw", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["f", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "/.", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"einsteinGR", "[", 
+            RowBox[{"[", 
+             RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", " ", 
+           RowBox[{"8", "\[Pi]", "  ", 
+            RowBox[{"Ttot", "[", 
+             RowBox[{"[", 
+              RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ",", " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}]}], ",", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.720144588759453*^9, 3.720144590876111*^9}, {
+  3.720144667086581*^9, 3.7201446946279087`*^9}, {3.720144780854402*^9, 
+  3.720144790861692*^9}, {3.7201449833155107`*^9, 3.7201450049970293`*^9}, {
+  3.720145050235566*^9, 3.720145137715763*^9}, {3.720145182382394*^9, 
+  3.720145200625107*^9}, {3.72015053649203*^9, 3.720150544697959*^9}, {
+  3.721028941895832*^9, 3.721028946059544*^9}, {3.748155950547563*^9, 
+  3.748155971151705*^9}, {3.7663074474914913`*^9, 3.766307450892837*^9}},
+ CellLabel->
+  "In[181]:=",ExpressionUUID->"207ae9c7-0ad4-440e-8db2-ba18bcd1851a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["f", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"f", "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        RowBox[{"b", "[", "r", "]"}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"r", " ", 
+      RowBox[{"b", "[", "r", "]"}]}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7481559749135237`*^9, 3.748166598682158*^9, 
+  3.7481676042602654`*^9, 3.748169465159646*^9, 3.7481700493588057`*^9, 
+  3.7481709512813377`*^9, 3.748171102155809*^9, 3.752315640629643*^9, 
+  3.752315702590332*^9, 3.7663074511935377`*^9, 3.766309810636524*^9},
+ CellLabel->
+  "Out[181]=",ExpressionUUID->"91971350-99b1-4d5e-be9f-7f578a545979"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"myfReqs", "=", 
+    RowBox[{"{", 
+     RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw"}], "}"}]}], ")"}], "//", 
+  "TableForm"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"myfReqs", "=", 
+      RowBox[{"FullSimplify", "[", 
+       RowBox[{"{", 
+        RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw", ",", "eq\[Psi]"}], 
+        "}"}], "]"}]}], ")"}], "//", "TableForm"}], "*)"}]}]}], "Input",
+ CellChangeTimes->{{3.720145580445201*^9, 3.7201455916796227`*^9}, {
+   3.720149514779941*^9, 3.720149524192295*^9}, {3.720149615433412*^9, 
+   3.720149617111251*^9}, {3.7210293786478643`*^9, 3.7210293787112827`*^9}, {
+   3.721113805174633*^9, 3.72111380530075*^9}, {3.722318655994528*^9, 
+   3.722318662232821*^9}, 3.7244952552271976`*^9, {3.726228510372617*^9, 
+   3.726228516913807*^9}, {3.727695818886282*^9, 3.727695836403275*^9}, {
+   3.72769604086134*^9, 3.727696048025983*^9}, 3.728128676118905*^9, {
+   3.747134208464203*^9, 3.7471342105489817`*^9}, {3.7481711512677917`*^9, 
+   3.748171151406582*^9}, 3.766307523379047*^9},
+ CellLabel->
+  "In[182]:=",ExpressionUUID->"9028f88b-cf85-4f46-9f7d-f0adc334a391"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], 
+        RowBox[{"2", " ", 
+         RowBox[{"f", "[", "r", "]"}]}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["b", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{"1", "-", 
+        RowBox[{"b", "[", "r", "]"}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "r"]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"f", "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           RowBox[{"b", "[", "r", "]"}], "-", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"r", " ", 
+         RowBox[{"b", "[", "r", "]"}]}]]}]}]}
+   },
+   GridBoxAlignment->{
+    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+     "RowsIndexed" -> {}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{
+  3.738239260373521*^9, 3.738243527750675*^9, 3.73824629498415*^9, 
+   3.738246420937697*^9, 3.738364790236902*^9, 3.7383652872089777`*^9, {
+   3.738365349154182*^9, 3.7383653729699097`*^9}, {3.738418460676594*^9, 
+   3.738418473598926*^9}, 3.7384289392050953`*^9, 3.7384433728075933`*^9, 
+   3.7384727660607862`*^9, 3.7402684778385687`*^9, {3.740268781076466*^9, 
+   3.7402688097520027`*^9}, 3.7468715068647947`*^9, 3.7469440638063087`*^9, 
+   3.747121386201676*^9, {3.747134208967265*^9, 3.747134210861104*^9}, 
+   3.7473761900465593`*^9, 3.747546290309759*^9, 3.7479967682983093`*^9, 
+   3.748152408241688*^9, 3.7481564158026247`*^9, 3.748166615342593*^9, 
+   3.748171004181975*^9, 3.7481711090241957`*^9, 3.748171151734049*^9, 
+   3.7523157032553453`*^9, 3.766307461014554*^9, 3.766309811401895*^9},
+ CellLabel->
+  "Out[182]//TableForm=",ExpressionUUID->"4408dd50-1d33-4954-8691-\
+97270d703c93"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["myfReqs"], "Input",
+ CellLabel->
+  "In[130]:=",ExpressionUUID->"6defb715-d8cc-45fa-b88a-98d788b86211"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], "+", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+        RowBox[{
+         SuperscriptBox["f", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], 
+       RowBox[{"2", " ", 
+        RowBox[{"f", "[", "r", "]"}]}]]}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["b", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     FractionBox[
+      RowBox[{"1", "-", 
+       RowBox[{"b", "[", "r", "]"}], "-", 
+       RowBox[{"8", " ", "\[Pi]", " ", 
+        SuperscriptBox["r", "2"], " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "r"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"f", "[", "r", "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "+", 
+          RowBox[{"b", "[", "r", "]"}], "-", 
+          RowBox[{"8", " ", "\[Pi]", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+       RowBox[{"r", " ", 
+        RowBox[{"b", "[", "r", "]"}]}]]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.76630759588844*^9},
+ CellLabel->
+  "Out[130]=",ExpressionUUID->"9643d1ef-c288-4ceb-8616-a4981806b9ac"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"eqs", "=", 
+  RowBox[{"{", 
+   RowBox[{"eqf", ",", "eqb", ",", "eqp"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.766307835729076*^9, 
+  3.7663078485567417`*^9}},ExpressionUUID->"4a3372b9-d5e6-4dff-8d6c-\
+d0f118d346bc"],
+
+Cell[BoxData[
+ RowBox[{"NDSolve", "[", 
+  RowBox[{"eqsht", ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "b", ",", "f"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"-", "5"}]}], ",", "20"}], "}"}], ",", 
+   RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
+   RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", 
+   RowBox[{"WorkingPrecision", "\[Rule]", "30"}], ",", 
+   RowBox[{"MaxSteps", "->", "Infinity"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.76630800053511*^9, 
+  3.766308019459383*^9}},ExpressionUUID->"21ca1c66-9eb8-4cb7-8ecb-\
+a623582904c9"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Obtain the fR-TOV in metric formalism and solve", "Subsection",
+ CellChangeTimes->{{3.7210105510470247`*^9, 3.7210105660195227`*^9}, {
+  3.7481523636463337`*^9, 3.748152367201062*^9}, {3.748171027173711*^9, 
+  3.748171029490901*^9}, {3.7523159314431133`*^9, 
+  3.752315933388239*^9}},ExpressionUUID->"f3438ed9-ec6e-4e68-93c2-\
+a3ccadacc1a2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"g", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"Exp", "[", 
+         RowBox[{"2", " ", 
+          RowBox[{"w", "[", "r", "]"}]}], "]"}]}], ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"Exp", "[", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], ",", "0", ",", "0"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", 
+       SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        SuperscriptBox["r", "2"], 
+        SuperscriptBox[
+         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{" ", 
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\< Metric signature : \>\"", ",", 
+    RowBox[{"signature", "=", 
+     RowBox[{"-", 
+      RowBox[{"Sign", "[", 
+       RowBox[{"FullSimplify", "[", 
+        RowBox[{
+         RowBox[{"g", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "1"}], "]"}], "]"}], "/", 
+         RowBox[{"Abs", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}], 
+       "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"gup", "=", 
+   RowBox[{"Inverse", "[", "g", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccisc", "=", 
+   RowBox[{"FullSimplify", "@", 
+    RowBox[{"RicciScalar", "[", 
+     RowBox[{"xx", ",", "g"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"riccist", "=", 
+   RowBox[{"RicciTensor", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGR", "=", 
+   RowBox[{"Einstein", "[", 
+    RowBox[{"xx", ",", "g"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"einsteinGRup", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"gup", "[", 
+         RowBox[{"[", 
+          RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+        RowBox[{"einsteinGR", "[", 
+         RowBox[{"[", 
+          RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"l", ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.641881398179303*^9, 3.641881398180313*^9}, {
+   3.64188143142566*^9, 3.641881433272481*^9}, {3.641881533490884*^9, 
+   3.641881533692501*^9}, {3.641881905670519*^9, 3.641881911778586*^9}, {
+   3.641881948641364*^9, 3.641881998011469*^9}, {3.716897370812011*^9, 
+   3.7168974429055367`*^9}, {3.71689927715203*^9, 3.7168992806128674`*^9}, {
+   3.716909728939191*^9, 3.716909731145919*^9}, {3.717416378399757*^9, 
+   3.717416385070117*^9}, {3.7177453497721767`*^9, 3.717745350875762*^9}, {
+   3.717751327225008*^9, 3.717751333477292*^9}, {3.719827772301094*^9, 
+   3.7198277731714563`*^9}, {3.719828375529578*^9, 3.7198283810424643`*^9}, {
+   3.719843432902688*^9, 3.719843440092783*^9}, {3.7200906713535*^9, 
+   3.720090680593198*^9}, {3.7200930890141287`*^9, 3.720093111026506*^9}, {
+   3.7201438973660994`*^9, 3.72014397009901*^9}, {3.720144081891119*^9, 
+   3.720144088296419*^9}, {3.720144244648271*^9, 3.7201442450156193`*^9}, {
+   3.720149771432404*^9, 3.720149777469427*^9}, 3.7201498851016912`*^9, {
+   3.721013258838583*^9, 3.7210132793477583`*^9}, {3.721013349853985*^9, 
+   3.721013353524569*^9}, {3.7210134320451813`*^9, 3.7210134967719717`*^9}, {
+   3.72101355049997*^9, 3.7210136003351917`*^9}, {3.7210136361793327`*^9, 
+   3.721013639422922*^9}, {3.721013675739923*^9, 3.7210136871657963`*^9}, {
+   3.721013845743524*^9, 3.7210139239470654`*^9}, {3.721014044649848*^9, 
+   3.721014115608385*^9}, {3.72101418423457*^9, 3.721014223806147*^9}, {
+   3.7210144529011497`*^9, 3.7210145267400837`*^9}, 3.721020989154325*^9, {
+   3.721026215368113*^9, 3.721026224430217*^9}, {3.721031160831037*^9, 
+   3.72103118692761*^9}, {3.721115438957518*^9, 3.7211154715488462`*^9}, {
+   3.721115503115947*^9, 3.721115629271291*^9}, {3.721115687483364*^9, 
+   3.72111570815872*^9}, {3.724072179644595*^9, 3.724072195893395*^9}, {
+   3.7244940637061777`*^9, 3.724494075187446*^9}, {3.7244941532525587`*^9, 
+   3.724494163091423*^9}, {3.7244942621254053`*^9, 3.724494341364126*^9}, {
+   3.7244943786565447`*^9, 3.724494392444635*^9}, {3.724494431009405*^9, 
+   3.724494443973899*^9}, {3.7262285708737164`*^9, 3.7262285710855*^9}, 
+   3.747368849385605*^9, {3.748164617171702*^9, 3.748164627404191*^9}, {
+   3.748170514506686*^9, 3.748170516479364*^9}, {3.748170941037615*^9, 
+   3.748170943335956*^9}, {3.752313207066328*^9, 3.752313211684422*^9}, {
+   3.752313912080008*^9, 3.752313914998248*^9}, {3.752315710127583*^9, 
+   3.752315711326207*^9}},
+ CellLabel->"In[41]:=",ExpressionUUID->"a94fab01-b5d6-44d8-8812-bcc2b5b9d6ed"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{
+  3.7382392551881037`*^9, 3.7382435212452793`*^9, 3.7382462916408997`*^9, 
+   3.73824641801165*^9, 3.7383647867919188`*^9, {3.7384184596583767`*^9, 
+   3.7384184701136303`*^9}, 3.7384289357753363`*^9, 3.7384433695100203`*^9, 
+   3.7384727622888002`*^9, 3.740268473769195*^9, {3.740268786942709*^9, 
+   3.7402688064541063`*^9}, 3.7468715042029943`*^9, 3.746944061090225*^9, 
+   3.7471213828982887`*^9, 3.747134188567253*^9, 3.7473688337114773`*^9, 
+   3.7473761877589808`*^9, 3.747474065155192*^9, {3.747546287590657*^9, 
+   3.7475462885697317`*^9}, 3.747991206952808*^9, 3.747996745284129*^9, {
+   3.748152370195997*^9, 3.7481523918959627`*^9}, 3.7481542775743933`*^9, 
+   3.748164596911322*^9, 3.748164628084785*^9, {3.748164780889201*^9, 
+   3.748164793382852*^9}, {3.74816487611198*^9, 3.7481648842071753`*^9}, 
+   3.748169398617688*^9, 3.748169440332889*^9, 3.748170034779338*^9, 
+   3.74817051859494*^9, 3.748170838977736*^9, 3.748170943789819*^9, 
+   3.752313214148736*^9, 3.752313269338995*^9, 3.752313814614554*^9, 
+   3.752313880352662*^9, 3.7523139153343973`*^9, 3.7523139462043953`*^9, {
+   3.752315706440743*^9, 3.7523157117472067`*^9}, 3.752392306210204*^9, 
+   3.754135255124865*^9, 3.754135329976109*^9, 3.768285575150218*^9},
+ CellLabel->"Out[42]=",ExpressionUUID->"5aadbc6c-681b-4420-9211-c6ba309e1efc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\" Metric signature : \"\>", "\[InvisibleSpace]", "1"}],
+  SequenceForm[" Metric signature : ", 1],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.738239255196527*^9, 3.738243521262576*^9, 3.73824629165377*^9, 
+   3.738246418021469*^9, 3.738364786802227*^9, {3.738418459668754*^9, 
+   3.7384184701213017`*^9}, 3.7384289357878513`*^9, 3.738443369522828*^9, 
+   3.738472762302166*^9, 3.7402684737825727`*^9, {3.740268786955584*^9, 
+   3.7402688064672728`*^9}, 3.746871504219412*^9, 3.7469440611095753`*^9, 
+   3.747121382911256*^9, 3.747134188580369*^9, 3.7473688337239513`*^9, 
+   3.7473761877709913`*^9, 3.747474065168154*^9, {3.747546287600452*^9, 
+   3.747546288579324*^9}, 3.747991206963832*^9, 3.7479967452968407`*^9, {
+   3.748152370207882*^9, 3.748152391907658*^9}, 3.7481542775851307`*^9, 
+   3.74816459692209*^9, 3.748164628095346*^9, {3.7481647809034348`*^9, 
+   3.748164793392847*^9}, {3.748164876122925*^9, 3.748164884221294*^9}, 
+   3.748169398630703*^9, 3.748169440345209*^9, 3.748170034791052*^9, 
+   3.74817051860809*^9, 3.748170838992044*^9, 3.7481709438041487`*^9, 
+   3.752313214160125*^9, 3.752313269355547*^9, 3.752313814624196*^9, 
+   3.752313880364992*^9, 3.752313915346499*^9, 3.752313946216873*^9, {
+   3.752315706450338*^9, 3.752315711760054*^9}, 3.752392306219882*^9, 
+   3.7541352551348667`*^9, 3.7541353299863043`*^9, 3.7682855751606703`*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"bb2f9a4f-69f7-4b37-b253-3afb51460f58"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Tab", " ", "should", " ", "be", " ", "the", " ", "same", " ", "then", " ",
+     "for", " ", "any", " ", "signature"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"einsteinfr", "=", 
+   RowBox[{"EinsteinfR", "[", 
+    RowBox[{"xx", ",", "g", ",", 
+     RowBox[{"f", "[", "R", "]"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.720093317305147*^9, 3.7200933219852467`*^9}, {
+   3.720093641753481*^9, 3.720093643873809*^9}, {3.720144228928281*^9, 
+   3.720144229495419*^9}, {3.724072224547172*^9, 3.7240722248665533`*^9}, {
+   3.748169448997884*^9, 3.748169450505187*^9}, 3.75231394041054*^9},
+ CellLabel->"In[50]:=",ExpressionUUID->"ece3f124-cf57-4dce-91f6-4c6c98d14f2b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{"0", ",", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], ",", "0", ",", "0"}], "}"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.752313940791109*^9, 3.752313948659738*^9}, 
+   3.7523157132896223`*^9, 3.752392307744381*^9, 3.7541353332777033`*^9, 
+   3.768285577153924*^9},
+ CellLabel->"Out[50]=",ExpressionUUID->"242a05ca-d47e-491a-bfc0-2a384284b79f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"u", "=", 
+    RowBox[{"If", "[", 
+     RowBox[{
+      RowBox[{"signature", "\[Equal]", "1"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"-", 
+           RowBox[{"g", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"1", "/", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"g", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], ",", "0", ",", 
+        "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], 
+  " "}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"Style", "[", 
+    RowBox[{"\"\<Recall that metric signature == 1 !!\>\"", ",", "Blue"}], 
+    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"u", ".", 
+   RowBox[{"(", 
+    RowBox[{"g", ".", "u"}], ")"}]}], "//", "Simplify"}]}], "Input",
+ CellChangeTimes->{
+  3.717748556792015*^9, {3.7201497297916393`*^9, 3.7201497529754763`*^9}, 
+   3.72014991471554*^9, {3.720149994412814*^9, 3.7201500313172197`*^9}, {
+   3.720150086674468*^9, 3.720150131609095*^9}, 3.7210282239247627`*^9, {
+   3.72102831877349*^9, 3.7210283399140167`*^9}, {3.721028449002584*^9, 
+   3.721028475825095*^9}},
+ CellLabel->"In[51]:=",ExpressionUUID->"51002296-3dd1-4358-9017-e0dae2d7edda"],
+
+Cell[BoxData[
+ StyleBox["\<\"Recall that metric signature == 1 !!\"\>",
+  StripOnInput->False,
+  LineColor->RGBColor[0, 0, 1],
+  FrontFaceColor->RGBColor[0, 0, 1],
+  BackFaceColor->RGBColor[0, 0, 1],
+  GraphicsColor->RGBColor[0, 0, 1],
+  FontColor->RGBColor[0, 0, 1]]], "Print",
+ CellChangeTimes->{
+  3.738239257112466*^9, 3.7382435238685102`*^9, 3.738246292929134*^9, 
+   3.7382464188291807`*^9, 3.73836478810083*^9, {3.738418460085128*^9, 
+   3.738418471520904*^9}, 3.7384289371081944`*^9, 3.738443370764*^9, 
+   3.738472763664342*^9, 3.74026847514088*^9, {3.740268788096965*^9, 
+   3.74026880768769*^9}, 3.7468715049662857`*^9, 3.746944062367889*^9, 
+   3.74712138379294*^9, 3.7471341935186443`*^9, 3.747368843523903*^9, {
+   3.747369034507238*^9, 3.7473690527723494`*^9}, 3.747376188218173*^9, 
+   3.7474748837605553`*^9, 3.747546289212886*^9, 3.747996746597335*^9, 
+   3.7481523982847357`*^9, 3.748154280671157*^9, 3.748164885621563*^9, 
+   3.748169408381311*^9, 3.748169452430599*^9, 3.748170037322853*^9, {
+   3.748170840527648*^9, 3.748170847658226*^9}, 3.752313216622217*^9, 
+   3.7523132716392183`*^9, 3.7523138205137053`*^9, 3.752315714404293*^9, 
+   3.752392308771327*^9, 3.754135333734808*^9, 3.768285577803672*^9},
+ CellLabel->
+  "During evaluation of \
+In[51]:=",ExpressionUUID->"f17f84bb-be84-4b7a-b7fb-e81b3bcd0834"],
+
+Cell[BoxData[
+ RowBox[{"-", "1"}]], "Output",
+ CellChangeTimes->{
+  3.738239257119619*^9, 3.7382435238819447`*^9, 3.738246292942831*^9, 
+   3.738246418839004*^9, 3.738364788110938*^9, {3.738418460094223*^9, 
+   3.738418471529682*^9}, 3.7384289371145353`*^9, 3.738443370773481*^9, 
+   3.738472763675894*^9, 3.740268475151412*^9, {3.74026878810935*^9, 
+   3.740268807698867*^9}, 3.746871504976838*^9, 3.746944062381765*^9, 
+   3.747121383803788*^9, 3.7471341935303907`*^9, 3.7473688435357523`*^9, {
+   3.747369034519001*^9, 3.74736905278379*^9}, 3.74737618822885*^9, 
+   3.7474748837726727`*^9, 3.747546289222625*^9, 3.747996746613248*^9, 
+   3.748152398296513*^9, 3.748154280682889*^9, 3.748164885632936*^9, 
+   3.7481694083941917`*^9, 3.748169452442214*^9, 3.748170037334834*^9, {
+   3.748170840542295*^9, 3.7481708476702213`*^9}, 3.752313216634013*^9, 
+   3.7523132716511583`*^9, 3.752313820524448*^9, 3.752315714414487*^9, 
+   3.7523923087815437`*^9, 3.754135333745454*^9, 3.7682855778138523`*^9},
+ CellLabel->"Out[53]=",ExpressionUUID->"ffdb5b6d-4d52-4813-abc2-4c39f24b9d3e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"udown", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"u", "[", 
+        RowBox[{"[", "i", "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"i", ",", "l"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717419862193388*^9, 3.717419865888034*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"c767434e-a002-41e4-a07a-53d7579ef615"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"-", 
+    SqrtBox[
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"w", "[", "r", "]"}]}]]]}], ",", "0", ",", "0", ",", "0"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257163746*^9, 3.738243523948827*^9, 3.7382462929995403`*^9, 
+   3.7382464188849897`*^9, 3.73836478815267*^9, {3.7384184601478577`*^9, 
+   3.73841847158427*^9}, 3.738428937144867*^9, 3.738443370798142*^9, 
+   3.7384727637275257`*^9, 3.740268475196102*^9, {3.740268788164484*^9, 
+   3.74026880774127*^9}, 3.746871505033381*^9, 3.746944062454286*^9, 
+   3.747121383991096*^9, 3.7471341941359377`*^9, {3.74736884435433*^9, 
+   3.747368931670208*^9}, {3.747369002872841*^9, 3.747369035345422*^9}, 
+   3.7473761883514833`*^9, {3.7474748808062*^9, 3.747474885702282*^9}, 
+   3.7475462892942038`*^9, 3.747996750990672*^9, 3.748152399052104*^9, 
+   3.748154282046466*^9, 3.7481648865057898`*^9, 3.748169410303257*^9, 
+   3.7481694532038803`*^9, 3.748170038351623*^9, 3.7481708486599894`*^9, 
+   3.752313217399918*^9, 3.7523132724378147`*^9, 3.752313821211959*^9, 
+   3.752315715555457*^9, 3.752392309622497*^9, 3.7541353343174543`*^9, 
+   3.768285587661442*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"5fd67647-4ece-4989-a61b-ef7f5d324b61"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]up", "=", 
+  RowBox[{
+   RowBox[{"If", "[", 
+    RowBox[{
+     RowBox[{"signature", "\[Equal]", "1"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "+", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], " ", 
+         RowBox[{"u", "[", 
+          RowBox[{"[", "j", "]"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], " ", 
+         RowBox[{"gup", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"i", ",", "4"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "]"}], "//", 
+   "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.71689694546478*^9, 3.716896961608288*^9}, {
+   3.7168975014713984`*^9, 3.716897598306788*^9}, {3.7168977931239853`*^9, 
+   3.71689792839441*^9}, {3.716898097895761*^9, 3.7168981141752157`*^9}, {
+   3.716904567989387*^9, 3.716904569653391*^9}, {3.716968878668749*^9, 
+   3.716968879274379*^9}, {3.717419798092717*^9, 3.717419800990034*^9}, 
+   3.717419896422799*^9, {3.7174199813473663`*^9, 3.7174199834974747`*^9}, {
+   3.717433608891754*^9, 3.717433619210552*^9}, {3.717748495274461*^9, 
+   3.7177485082789173`*^9}, {3.721028230461268*^9, 3.721028230644088*^9}, {
+   3.7210284217648573`*^9, 3.721028436578032*^9}, {3.747368966969143*^9, 
+   3.747368970170349*^9}},
+ CellLabel->"In[55]:=",ExpressionUUID->"78c65863-bce5-44ef-b63e-ad0a5a39db3b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"w", "[", "r", "]"}]}]], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{"p", "[", "r", "]"}], 
+      SuperscriptBox["r", "2"]], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], 
+      SuperscriptBox["r", "2"]]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925721414*^9, 3.738243524036004*^9, 3.738246293048765*^9, 
+   3.738246418939494*^9, 3.738364788231888*^9, {3.7384184601930647`*^9, 
+   3.7384184716317587`*^9}, 3.7384289371700087`*^9, 3.738443370832918*^9, 
+   3.738472763780528*^9, 3.740268475244999*^9, {3.740268788229795*^9, 
+   3.740268807787265*^9}, 3.7468715051033773`*^9, 3.7469440625206747`*^9, 
+   3.7471213841465883`*^9, 3.747134194675424*^9, {3.74736886857541*^9, 
+   3.747368932270035*^9}, {3.747368967314714*^9, 3.747368970469545*^9}, {
+   3.7473690201575613`*^9, 3.7473690364301434`*^9}, 3.747376188419807*^9, 
+   3.7475462893170757`*^9, 3.747996751535898*^9, 3.748152399754668*^9, 
+   3.748154282747005*^9, 3.7481648871387177`*^9, 3.748169411135203*^9, 
+   3.748169453780912*^9, 3.748170038938608*^9, 3.74817084936005*^9, 
+   3.7523132181837263`*^9, 3.752313273176724*^9, 3.752313821713154*^9, 
+   3.752315716167737*^9, 3.752392310303739*^9, 3.754135334814303*^9, 
+   3.768285588692029*^9},
+ CellLabel->"Out[55]=",ExpressionUUID->"8d020d58-ab4a-47fe-a423-2e7603758a3c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T\[Mu]\[Nu]", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"Sum", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"l", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"g", "[", 
+        RowBox[{"[", 
+         RowBox[{"m", ",", "\[Nu]"}], "]"}], "]"}], 
+       RowBox[{"T\[Mu]\[Nu]up", "[", 
+        RowBox[{"[", 
+         RowBox[{"\[Eta]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Eta]", ",", "4"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Nu]", ",", "4"}], "}"}]}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"l", ",", "4"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"m", ",", "4"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717174398720162*^9, 3.717174405832109*^9}, {
+   3.71741999153314*^9, 3.71741999188358*^9}, 3.717428505145114*^9, 
+   3.717748524802745*^9, {3.717933907043252*^9, 3.717933940392991*^9}, {
+   3.717933979091668*^9, 3.7179340154647083`*^9}, {3.717934054328257*^9, 
+   3.717934085440922*^9}, {3.748154284812828*^9, 3.748154285371112*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"e16dadd3-7746-4b37-8e25-4b10b5c0b4d6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.73823925726434*^9, 3.7382435241174088`*^9, 3.738246293099222*^9, 
+   3.738246418989193*^9, 3.73836478828795*^9, {3.7384184602399*^9, 
+   3.738418471687704*^9}, 3.7384289372230263`*^9, 3.7384433708652983`*^9, 
+   3.738472763827738*^9, 3.740268475277933*^9, {3.740268788296517*^9, 
+   3.74026880784545*^9}, 3.746871505193667*^9, 3.746944062588154*^9, 
+   3.7471213842441883`*^9, 3.747134195425392*^9, 3.747368932924829*^9, 
+   3.7473761884858913`*^9, 3.7475462893611107`*^9, 3.747996752123827*^9, 
+   3.7481524006377907`*^9, 3.748154285798277*^9, 3.748164887788493*^9, 
+   3.748169411801445*^9, 3.748169454365245*^9, 3.748170039600761*^9, 
+   3.7481708501085377`*^9, 3.75231321948772*^9, 3.752313273821907*^9, 
+   3.7523138222142553`*^9, 3.752315716806234*^9, 3.752392310905693*^9, 
+   3.754135335633444*^9, 3.7682855906945267`*^9},
+ CellLabel->"Out[56]=",ExpressionUUID->"fe7dba21-6a7a-4147-a692-b358649a1ec8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Continuity", " ", "equation"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"eqp", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["p", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Flatten", "[", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"Table", "[", 
+            RowBox[{
+             RowBox[{"Sum", "[", 
+              RowBox[{
+               RowBox[{"CovDer", "[", 
+                RowBox[{"xx", ",", "g", ",", "T\[Mu]\[Nu]up", ",", 
+                 RowBox[{"{", 
+                  RowBox[{"i", ",", "i", ",", "j"}], "}"}], ",", 
+                 RowBox[{
+                 "\"\<Valence\>\"", "\[Rule]", "\"\<Contravariant\>\""}]}], 
+                "]"}], ",", 
+               RowBox[{"{", 
+                RowBox[{"i", ",", 
+                 RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], ",", 
+             RowBox[{"{", 
+              RowBox[{"j", ",", 
+               RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}], "\[Equal]", 
+           RowBox[{"{", 
+            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
+          RowBox[{
+           SuperscriptBox["p", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}], "]"}]}], 
+      ")"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.721113587934162*^9, 3.721113629229336*^9}, {
+  3.721113664237012*^9, 3.721113668190748*^9}, {3.721113706596529*^9, 
+  3.721113796106236*^9}, {3.721115385820541*^9, 3.7211153908543663`*^9}, {
+  3.7211158095314198`*^9, 3.7211158099529877`*^9}, {3.724072252803965*^9, 
+  3.724072253227384*^9}, {3.748164893214014*^9, 3.7481649827529*^9}, {
+  3.748165954576632*^9, 3.7481660302527246`*^9}, {3.74816697324897*^9, 
+  3.7481669813728113`*^9}, {3.748167759768062*^9, 3.7481677613568907`*^9}},
+ CellLabel->
+  "In[161]:=",ExpressionUUID->"59cf8a24-2695-4a39-9191-46ad7472da44"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["p", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "+", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239257484399*^9, 3.738243524520303*^9, 3.7382462932329187`*^9, 
+   3.73824641910999*^9, 3.738364788423029*^9, {3.738418460312562*^9, 
+   3.738418471817337*^9}, 3.7384289373527927`*^9, 3.738443371033216*^9, 
+   3.738472764031474*^9, 3.740268475425226*^9, {3.74026878843533*^9, 
+   3.74026880798472*^9}, 3.746871505282242*^9, 3.7469440627205973`*^9, 
+   3.74712138449193*^9, 3.747134196353437*^9, 3.7473761885820627`*^9, 
+   3.747546289449*^9, {3.7479967528191547`*^9, 3.7479967566656027`*^9}, 
+   3.748152401853285*^9, 3.748154286697897*^9, 3.748164983062326*^9, {
+   3.74816595501602*^9, 3.748166030801673*^9}, {3.748166639141268*^9, 
+   3.748166641386911*^9}, 3.748166981854083*^9, 3.748167611925775*^9, {
+   3.748167752382866*^9, 3.7481677618489847`*^9}, 3.748169413464644*^9, 
+   3.748169456283239*^9, {3.748170041891592*^9, 3.748170046076436*^9}, 
+   3.748170086401606*^9, 3.748170227874957*^9, 3.7481708507730722`*^9, 
+   3.7523132202740297`*^9, 3.752313274647264*^9, 3.752313823554882*^9, 
+   3.752315717533684*^9, 3.7523923115184937`*^9, 3.754135336447886*^9},
+ CellLabel->
+  "Out[161]=",ExpressionUUID->"7c464cf5-ea69-4311-95ce-e926bca92081"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T", "=", 
+  RowBox[{"Sum", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"g", ".", "T\[Mu]\[Nu]up"}], ")"}], "[", 
+     RowBox[{"[", 
+      RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "xx"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.717420085395555*^9, 3.717420095641667*^9}, {
+  3.7177528701703787`*^9, 3.7177528711479816`*^9}, {3.72102889795538*^9, 
+  3.721028898626919*^9}, {3.748166060217938*^9, 3.748166063648992*^9}},
+ CellLabel->"In[57]:=",ExpressionUUID->"efa8bd04-c098-4a23-bc2c-e2c1c133ac2a"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   RowBox[{"p", "[", "r", "]"}]}], "-", 
+  RowBox[{"\[Rho]", "[", "r", "]"}]}]], "Output",
+ CellChangeTimes->{{3.75413533740279*^9, 3.754135347562957*^9}, 
+   3.7682855961649857`*^9},
+ CellLabel->"Out[57]=",ExpressionUUID->"3c636017-9e85-4a88-9f61-6693910d6448"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"?", "TeffFR"}]], "Input",
+ CellChangeTimes->{{3.75949975188133*^9, 3.759499762451078*^9}},
+ CellLabel->"In[58]:=",ExpressionUUID->"7a38fc7a-000d-43b9-a533-ca65e4c760cc"],
+
+Cell[BoxData["\<\"TeffFR[coords_,g_,fR_]. Compute fR Teff tensor such Gab=8\
+\[Pi]/f'[R](Tab + Teff) following the convention of Misner et al., that is, \
+[S2] = 1, [S3] = 1\"\>"], "Print", "PrintUsage",
+ CellChangeTimes->{3.768285596945266*^9},
+ CellTags->
+  "Info583768292796-1566858",ExpressionUUID->"1e8981a4-b242-4305-a785-\
+013e3ec45a07"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", "Teff", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Teff", "=", 
+     RowBox[{"TeffFR", "[", 
+      RowBox[{"xx", ",", "g", ",", 
+       RowBox[{"f", "[", "R", "]"}]}], "]"}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"Ttot", "=", 
+     RowBox[{"FullSimplify", "[", 
+      RowBox[{
+       RowBox[{"1", "/", 
+        RowBox[{
+         RowBox[{"f", "'"}], "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}], 
+       RowBox[{"(", 
+        RowBox[{"T\[Mu]\[Nu]", "+", "Teff"}], ")"}]}], "]"}]}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7481548559010553`*^9, 3.748154897048135*^9}, {
+   3.748154994128281*^9, 3.748155057582625*^9}, {3.7481552299087887`*^9, 
+   3.748155230552683*^9}, {3.748155281931972*^9, 3.748155305460484*^9}, {
+   3.7481664896107597`*^9, 3.748166491490004*^9}, 3.7523137821761923`*^9},
+ CellLabel->"In[59]:=",ExpressionUUID->"678dc65e-7432-42e1-b49f-3ffc4a25dec4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq\[Lambda]", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "/.", 
+       RowBox[{"Collect", "[", 
+        RowBox[{
+         RowBox[{"Solve", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"einsteinGR", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", 
+            RowBox[{"8", "\[Pi]", " ", 
+             RowBox[{"Ttot", "[", 
+              RowBox[{"[", 
+               RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ",", 
+           RowBox[{
+            SuperscriptBox["\[Lambda]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "]"}], ",", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}], ")"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellLabel->"In[62]:=",ExpressionUUID->"7f228384-675c-4e5e-b2ee-06a8d8e5a664"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["r", "2"]}], " ", 
+         RowBox[{"f", "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"16", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"R", "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"2", " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+       RowBox[{
+        SuperscriptBox["f", 
+         TagBox[
+          RowBox[{"(", "3", ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.748166067281787*^9, 3.748166233412775*^9, 3.748166596293666*^9, 
+   3.748167602734932*^9, 3.748169461822729*^9, 3.74817004819375*^9, 
+   3.748170090042617*^9, 3.748170233367116*^9, {3.748170935979722*^9, 
+   3.74817094929779*^9}, 3.752313224977825*^9, 3.752313276893128*^9, 
+   3.7523136888536987`*^9, {3.752313828084836*^9, 3.7523138363010197`*^9}, 
+   3.752315722643148*^9, 3.752392316987212*^9, 3.754135358222561*^9, 
+   3.7682856128249617`*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"3aa6847a-364a-458d-84fe-06c13e3fdfdf"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eqw", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "/.", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"einsteinGR", "[", 
+            RowBox[{"[", 
+             RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", " ", 
+           RowBox[{"8", "\[Pi]", "  ", 
+            RowBox[{"Ttot", "[", 
+             RowBox[{"[", 
+              RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ",", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}]}], ",", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.720144588759453*^9, 3.720144590876111*^9}, {
+  3.720144667086581*^9, 3.7201446946279087`*^9}, {3.720144780854402*^9, 
+  3.720144790861692*^9}, {3.7201449833155107`*^9, 3.7201450049970293`*^9}, {
+  3.720145050235566*^9, 3.720145137715763*^9}, {3.720145182382394*^9, 
+  3.720145200625107*^9}, {3.72015053649203*^9, 3.720150544697959*^9}, {
+  3.721028941895832*^9, 3.721028946059544*^9}, {3.748155950547563*^9, 
+  3.748155971151705*^9}},
+ CellLabel->
+  "In[169]:=",ExpressionUUID->"41b5f867-a890-46cb-8b17-79cf5636cb0a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["w", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"f", "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"16", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"R", "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "2"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.752313278328526*^9, 3.7523132848493347`*^9}, 
+   3.7523138373806047`*^9, 3.752315724260882*^9, 3.752392317172143*^9, 
+   3.7541353590680113`*^9},
+ CellLabel->
+  "Out[169]=",ExpressionUUID->"595cac98-5612-44af-b15e-23687bf4cda1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq3v1", "=", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"3", 
+     RowBox[{"DAlembert", "[", 
+      RowBox[{"xx", ",", "g", ",", 
+       RowBox[{"D", "[", 
+        RowBox[{
+         RowBox[{"f", "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}], ",", 
+         RowBox[{"R", "[", "r", "]"}]}], "]"}]}], "]"}]}], "+", 
+    RowBox[{
+     RowBox[{"D", "[", 
+      RowBox[{
+       RowBox[{"f", "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}], ",", 
+       RowBox[{"R", "[", "r", "]"}]}], "]"}], 
+     RowBox[{"R", "[", "r", "]"}]}], "-", 
+    RowBox[{"2", 
+     RowBox[{"f", "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.72014543744361*^9, 3.720145539144125*^9}, {
+   3.7201505506109257`*^9, 3.720150578512877*^9}, 3.721461817927593*^9, {
+   3.7262331077703133`*^9, 3.7262331194709587`*^9}, {3.748166608097294*^9, 
+   3.748166609374119*^9}},
+ CellLabel->
+  "In[170]:=",ExpressionUUID->"74bbe6fe-31ac-4288-8d60-2e468ca364be"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", 
+   RowBox[{"f", "[", 
+    RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"R", "[", "r", "]"}], " ", 
+   RowBox[{
+    SuperscriptBox["f", "\[Prime]",
+     MultilineFunction->None], "[", 
+    RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+  FractionBox[
+   RowBox[{"3", " ", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{
+      RowBox[{"-", "2"}], " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"r", " ", 
+             RowBox[{
+              SuperscriptBox["w", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}]}], "-", 
+            RowBox[{"r", " ", 
+             RowBox[{
+              SuperscriptBox["\[Lambda]", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "+", 
+         RowBox[{"r", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "+", 
+      RowBox[{"r", " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+       RowBox[{
+        SuperscriptBox["f", 
+         TagBox[
+          RowBox[{"(", "3", ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "r"]}]], "Output",
+ CellChangeTimes->{
+  3.738239258400588*^9, 3.738243525683835*^9, 3.738246293802143*^9, 
+   3.738246419714864*^9, 3.73836478907736*^9, {3.738418460576734*^9, 
+   3.738418472520486*^9}, 3.738428938003529*^9, 3.738443371649888*^9, 
+   3.738472764714779*^9, 3.740268475979018*^9, {3.740268789158476*^9, 
+   3.740268808525041*^9}, 3.746871506016693*^9, 3.7469440631104393`*^9, 
+   3.747121385514057*^9, 3.747134201917446*^9, 3.747376189349622*^9, 
+   3.747546289894864*^9, 3.7479967669172773`*^9, 3.748152406036901*^9, 
+   3.748156413911536*^9, {3.7481666046689987`*^9, 3.748166609930109*^9}, 
+   3.748169467838295*^9, 3.748170954093789*^9, 3.7523132865144577`*^9, 
+   3.752313838394244*^9, 3.752315725536461*^9, 3.752392317460309*^9, 
+   3.7541353598901176`*^9},
+ CellLabel->
+  "Out[170]=",ExpressionUUID->"75b2dc7e-6ac6-4cbf-b8b4-4e148faaacdd"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eqR", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"FullSimplify", "[", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "/.", 
+        RowBox[{"Solve", "[", 
+         RowBox[{
+          RowBox[{"eq3v1", "\[Equal]", 
+           RowBox[{"8", "\[Pi]", " ", "T"}]}], ",", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "]"}]}], ")"}], 
+      "]"}], "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.7218097767746677`*^9, 3.721809781253079*^9}, 
+   3.7262331218717957`*^9, 3.72623319716074*^9, 3.7383652845898314`*^9, 
+   3.738365339837438*^9, 3.738365371069243*^9, {3.7471342025800657`*^9, 
+   3.74713420307006*^9}, {3.7523134784190607`*^9, 3.752313490566244*^9}},
+ CellLabel->
+  "In[174]:=",ExpressionUUID->"8422b3d8-1439-4f40-842f-7f52520f99f2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"3", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}]], 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          RowBox[{"f", "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+         RowBox[{"24", " ", "\[Pi]", " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"8", " ", "\[Pi]", " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+         RowBox[{
+          RowBox[{"R", "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "-", 
+      RowBox[{"3", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{"2", "+", 
+         RowBox[{"r", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{"r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+      RowBox[{"3", " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+       RowBox[{
+        SuperscriptBox["f", 
+         TagBox[
+          RowBox[{"(", "3", ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.738239260284128*^9, 3.738243527617139*^9, 3.738246294852051*^9, 
+   3.738246420847036*^9, 3.738364790129573*^9, 3.738365286186277*^9, {
+   3.738365349018014*^9, 3.738365372590682*^9}, {3.7384184606261587`*^9, 
+   3.738418473542637*^9}, 3.738428939125821*^9, 3.738443372750059*^9, 
+   3.738472765969792*^9, 3.740268477092124*^9, {3.740268792282749*^9, 
+   3.740268809593441*^9}, 3.746871506656945*^9, 3.746944063653206*^9, 
+   3.747121386105685*^9, 3.7471342039673433`*^9, 3.747376189938764*^9, 
+   3.747546290281329*^9, 3.747996768116095*^9, 3.7481524075629463`*^9, 
+   3.748156415220152*^9, 3.748166613656562*^9, 3.748170958792716*^9, 
+   3.752313288266623*^9, {3.752313478885158*^9, 3.7523134914459057`*^9}, 
+   3.752313839416296*^9, 3.752315727033721*^9, 3.7523923179321938`*^9, 
+   3.7541353711236687`*^9},
+ CellLabel->
+  "Out[174]=",ExpressionUUID->"7dd01aa6-855d-48ee-a776-9c12ff58e35f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"myfReqs", "=", 
+    RowBox[{"{", 
+     RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw", ",", "eqR"}], "}"}]}], 
+   ")"}], "//", "TableForm"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"myfReqs", "=", 
+      RowBox[{"FullSimplify", "[", 
+       RowBox[{"{", 
+        RowBox[{"eqp", ",", "eq\[Lambda]", ",", "eqw", ",", "eq\[Psi]"}], 
+        "}"}], "]"}]}], ")"}], "//", "TableForm"}], "*)"}]}]}], "Input",
+ CellChangeTimes->{{3.720145580445201*^9, 3.7201455916796227`*^9}, {
+   3.720149514779941*^9, 3.720149524192295*^9}, {3.720149615433412*^9, 
+   3.720149617111251*^9}, {3.7210293786478643`*^9, 3.7210293787112827`*^9}, {
+   3.721113805174633*^9, 3.72111380530075*^9}, {3.722318655994528*^9, 
+   3.722318662232821*^9}, 3.7244952552271976`*^9, {3.726228510372617*^9, 
+   3.726228516913807*^9}, {3.727695818886282*^9, 3.727695836403275*^9}, {
+   3.72769604086134*^9, 3.727696048025983*^9}, 3.728128676118905*^9, {
+   3.747134208464203*^9, 3.7471342105489817`*^9}},
+ CellLabel->
+  "In[176]:=",ExpressionUUID->"a4927c75-976d-4b85-9a41-8b24dbdd666a"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], "+", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["r", "2"]}], " ", 
+            RowBox[{"f", "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+        RowBox[{"2", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"2", " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+         RowBox[{"4", " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+          RowBox[{
+           SuperscriptBox["f", 
+            TagBox[
+             RowBox[{"(", "3", ")"}],
+             Derivative],
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+        RowBox[{"2", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"f", "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+        RowBox[{"2", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+         RowBox[{"4", " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", 
+           RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+        RowBox[{"2", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"f", "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"24", " ", "\[Pi]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "-", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "-", 
+        RowBox[{"3", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["w", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "-", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Lambda]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+        RowBox[{"3", " ", "r", " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+         RowBox[{
+          SuperscriptBox["f", 
+           TagBox[
+            RowBox[{"(", "3", ")"}],
+            Derivative],
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+       RowBox[{"3", " ", "r", " ", 
+        RowBox[{
+         SuperscriptBox["f", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}]]}]}
+   },
+   GridBoxAlignment->{
+    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+     "RowsIndexed" -> {}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{
+  3.738239260373521*^9, 3.738243527750675*^9, 3.73824629498415*^9, 
+   3.738246420937697*^9, 3.738364790236902*^9, 3.7383652872089777`*^9, {
+   3.738365349154182*^9, 3.7383653729699097`*^9}, {3.738418460676594*^9, 
+   3.738418473598926*^9}, 3.7384289392050953`*^9, 3.7384433728075933`*^9, 
+   3.7384727660607862`*^9, 3.7402684778385687`*^9, {3.740268781076466*^9, 
+   3.7402688097520027`*^9}, 3.7468715068647947`*^9, 3.7469440638063087`*^9, 
+   3.747121386201676*^9, {3.747134208967265*^9, 3.747134210861104*^9}, 
+   3.7473761900465593`*^9, 3.747546290309759*^9, 3.7479967682983093`*^9, 
+   3.748152408241688*^9, 3.7481564158026247`*^9, 3.748166615342593*^9, 
+   3.748171004181975*^9, 3.752313290332437*^9, 3.752313496532138*^9, 
+   3.752313581724657*^9, 3.752313840202444*^9, 3.752315728288419*^9, 
+   3.7523923181708384`*^9, 3.7541353732779922`*^9},
+ CellLabel->
+  "Out[176]//TableForm=",ExpressionUUID->"76bc9c0b-e65f-47ba-b36d-\
+107ec42511a0"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"f", "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"24", " ", "\[Pi]", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"R", "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"3", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "-", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+     RowBox[{"3", " ", "r", " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+      RowBox[{
+       SuperscriptBox["f", 
+        TagBox[
+         RowBox[{"(", "3", ")"}],
+         Derivative],
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]], ",", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]], "Input",
+ CellLabel->"",ExpressionUUID->"2dfa80a1-c83a-43de-9f92-83db1043d753"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"f", "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+        RowBox[{"24", " ", "\[Pi]", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"R", "[", "r", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"3", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "-", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+     RowBox[{"3", " ", "r", " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+      RowBox[{
+       SuperscriptBox["f", 
+        TagBox[
+         RowBox[{"(", "3", ")"}],
+         Derivative],
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]], ",", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]], "Input",
+ CellLabel->
+  "In[1999]:=",ExpressionUUID->"a7153694-09c4-49a6-a2f7-a8a30e9ae39d"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", "r", " ", 
+       RowBox[{"f", "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+      RowBox[{"24", " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{"r", " ", 
+       RowBox[{"R", "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+   RowBox[{"3", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", 
+     RowBox[{"R", "[", "r", "]"}], "]"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "6"}], " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["\[Lambda]", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+    RowBox[{"3", " ", "r", " ", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+     RowBox[{
+      SuperscriptBox["f", 
+       TagBox[
+        RowBox[{"(", "3", ")"}],
+        Derivative],
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+   RowBox[{"3", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", 
+     RowBox[{"R", "[", "r", "]"}], "]"}]}]]}]], "Output",
+ CellChangeTimes->{3.758536681351144*^9},
+ CellLabel->
+  "Out[1999]=",ExpressionUUID->"ff5aca70-ec30-4202-bb7a-9cd5045e4644"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", "r", " ", 
+       RowBox[{"f", "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+      RowBox[{"24", " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{"r", " ", 
+       RowBox[{"R", "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+   RowBox[{"3", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", 
+     RowBox[{"R", "[", "r", "]"}], "]"}]}]], "]"}]], "Input",
+ CellChangeTimes->{{3.758536684812989*^9, 3.7585366860319357`*^9}},
+ CellLabel->
+  "In[2000]:=",ExpressionUUID->"67371f87-21ae-4653-9325-cbc7844c6b42"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      RowBox[{"f", "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+     RowBox[{"24", " ", "\[Pi]", " ", 
+      RowBox[{"p", "[", "r", "]"}]}], "-", 
+     RowBox[{"8", " ", "\[Pi]", " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+     RowBox[{
+      RowBox[{"R", "[", "r", "]"}], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+  RowBox[{"3", " ", 
+   RowBox[{
+    SuperscriptBox["f", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", 
+    RowBox[{"R", "[", "r", "]"}], "]"}]}]]], "Output",
+ CellChangeTimes->{3.7585366862263727`*^9},
+ CellLabel->
+  "Out[2000]=",ExpressionUUID->"d5bf89fb-c33a-48ef-b00a-7c11d6c82499"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  FractionBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "6"}], " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+    RowBox[{"3", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["\[Lambda]", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+    RowBox[{"3", " ", "r", " ", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+     RowBox[{
+      SuperscriptBox["f", 
+       TagBox[
+        RowBox[{"(", "3", ")"}],
+        Derivative],
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]}], 
+   RowBox[{"3", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", 
+     RowBox[{"R", "[", "r", "]"}], "]"}]}]], "]"}]], "Input",
+ CellChangeTimes->{{3.758536695475773*^9, 3.758536697848175*^9}},
+ CellLabel->
+  "In[2001]:=",ExpressionUUID->"857bb5b1-8f66-41bc-aa02-f798a39dd39a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myeq", "=", 
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"f", "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+       RowBox[{"24", " ", "\[Pi]", " ", 
+        RowBox[{"p", "[", "r", "]"}]}], "-", 
+       RowBox[{"8", " ", "\[Pi]", " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+       RowBox[{
+        RowBox[{"R", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["f", "\[Prime]",
+          MultilineFunction->None], "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+    RowBox[{"3", " ", 
+     RowBox[{
+      SuperscriptBox["f", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}]}]], "+", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["2", "r"]}], "-", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "+", 
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["f", 
+          TagBox[
+           RowBox[{"(", "3", ")"}],
+           Derivative],
+          MultilineFunction->None], "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}], 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.7585368124543953`*^9, 3.758536813866153*^9}},
+ CellLabel->
+  "In[2006]:=",ExpressionUUID->"3a6521e2-4fb8-4d34-8cdc-49c89bc63bc0"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       RowBox[{"f", "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+      RowBox[{"24", " ", "\[Pi]", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", "\[Pi]", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{
+       RowBox[{"R", "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], 
+   RowBox[{"3", " ", 
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", 
+     RowBox[{"R", "[", "r", "]"}], "]"}]}]], "+", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["2", "r"]}], "-", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "+", 
+     RowBox[{
+      SuperscriptBox["\[Lambda]", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "-", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["f", 
+         TagBox[
+          RowBox[{"(", "3", ")"}],
+          Derivative],
+         MultilineFunction->None], "[", 
+        RowBox[{"R", "[", "r", "]"}], "]"}]}], 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", 
+       RowBox[{"R", "[", "r", "]"}], "]"}]]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{3.758536814444109*^9},
+ CellLabel->
+  "Out[2006]=",ExpressionUUID->"afddedb7-f690-45a9-a8f2-4bb485c52222"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TeXForm", "[", "myeq", "]"}]], "Input",
+ CellChangeTimes->{{3.758536702599984*^9, 3.7585367258914824`*^9}, {
+  3.758536773538313*^9, 3.758536773670597*^9}, {3.758536818629702*^9, 
+  3.758536858068055*^9}},
+ CellLabel->
+  "In[2012]:=",ExpressionUUID->"d2b66353-4375-474b-aff1-53d72c1a8ecc"],
+
+Cell["\<\
+R'(r) \\left(-\\frac{f^{(3)}(R(r)) R'(r)}{f''(R(r))}+\\lambda \
+'(r)-w'(r)-\\frac{2}{r}\\right)+\\frac{e^{2 \\lambda (r)} \\left(-R(r) \
+f'(R(r))+2 f(R(r))+24 \\pi  p(r)-8 \\pi 
+   \\rho (r)\\right)}{3 f''(R(r))}\
+\>", "Output",
+ CellChangeTimes->{{3.758536726349514*^9, 3.758536776790968*^9}, {
+  3.75853681938444*^9, 3.75853685837344*^9}},
+ CellLabel->
+  "Out[2012]//TeXForm=",ExpressionUUID->"6a8a7b90-b93a-40a9-8f9d-\
+49c252dd5e38"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TeXForm", "[", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{"3", " ", "r", " ", 
+        RowBox[{
+         SuperscriptBox["f", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", 
+         RowBox[{"R", "[", "r", "]"}], "]"}]}]], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"f", "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}], "+", 
+           RowBox[{"24", " ", "\[Pi]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "-", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", 
+             RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], "-", 
+        RowBox[{"3", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["w", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "-", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Lambda]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}], "-", 
+        RowBox[{"3", " ", "r", " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], "2"], " ", 
+         RowBox[{
+          SuperscriptBox["f", 
+           TagBox[
+            RowBox[{"(", "3", ")"}],
+            Derivative],
+           MultilineFunction->None], "[", 
+          RowBox[{"R", "[", "r", "]"}], "]"}]}]}], ")"}]}], ",", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7585365671747427`*^9, 3.758536585228326*^9}},
+ CellLabel->
+  "In[1998]:=",ExpressionUUID->"b3fcda93-bcea-42b5-b931-8de4d25ac3d3"],
+
+Cell["\<\
+R''(r)=\\frac{-3 r f^{(3)}(R(r)) R'(r)^2+3 r \\lambda '(r) R'(r) f''(R(r))-3 \
+r R'(r) w'(r) f''(R(r))-6 R'(r) f''(R(r))}{3 r f''(R(r))}+\\frac{e^{2 \
+\\lambda (r)} \\left(-r
+   R(r) f'(R(r))+2 r f(R(r))+24 \\pi  r p(r)-8 \\pi  r \\rho (r)\\right)}{3 r \
+f''(R(r))}\
+\>", "Output",
+ CellChangeTimes->{{3.758536585665832*^9, 3.75853661437458*^9}},
+ CellLabel->
+  "Out[1998]//TeXForm=",ExpressionUUID->"6886a7c9-e43e-4c9f-bf4a-\
+7f45b58fe243"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"myfR\[Alpha]", "=", 
+    RowBox[{"Collect", "[", 
+     RowBox[{
+      RowBox[{"Simplify", "[", 
+       RowBox[{"myfReqs", "/.", 
+        RowBox[{"f", "\[Rule]", 
+         RowBox[{"Function", "[", 
+          RowBox[{"R", ",", 
+           RowBox[{"R", "+", 
+            RowBox[{"\[Alpha]", " ", 
+             RowBox[{"R", "^", "2"}]}]}]}], "]"}]}]}], "]"}], ",", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}], ")"}], "//", 
+  "TableForm"}]], "Input",
+ CellChangeTimes->{{3.752315766876018*^9, 3.75231585069816*^9}},
+ CellLabel->
+  "In[177]:=",ExpressionUUID->"318b432d-14e0-4360-868d-6fad30d49c00"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["p", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], "+", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "2"}], "-", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{"2", "+", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "2"}], "-", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "-", 
+         RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}]},
+    {
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox["2", "r"], "+", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], "-", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"24", " ", "\[Pi]", " ", 
+           RowBox[{"p", "[", "r", "]"}]}], "+", 
+          RowBox[{"R", "[", "r", "]"}], "-", 
+          RowBox[{"8", " ", "\[Pi]", " ", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+       RowBox[{"6", " ", "\[Alpha]"}]]}]}
+   },
+   GridBoxAlignment->{
+    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+     "RowsIndexed" -> {}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.752315782629377*^9, 3.7523158205910263`*^9}, 
+   3.7523158511045237`*^9, 3.75239231976923*^9, 3.752420403293173*^9, 
+   3.7541353902390547`*^9},
+ CellLabel->
+  "Out[177]//TableForm=",ExpressionUUID->"21ed61f1-fe32-4c7f-8180-\
+7145e3384ea8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["2", "r"], "+", 
+        RowBox[{
+         SuperscriptBox["\[Psi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "-", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"24", " ", "\[Pi]", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"R", "[", "r", "]"}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"6", " ", "\[Alpha]"}]]}], ",", 
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.758534526950095*^9, 3.758534541603031*^9}},
+ CellLabel->
+  "In[1988]:=",ExpressionUUID->"ee33dd72-7455-48eb-bed4-725018cdd264"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"24", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{"12", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Psi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"6", " ", "r", " ", "\[Alpha]"}]]}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{{3.758534531189814*^9, 3.758534541869034*^9}},
+ CellLabel->
+  "Out[1988]=",ExpressionUUID->"7309ecc5-a075-4357-8f2b-58c72a13094e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TeXForm", "[", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"24", " ", "\[Pi]", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"R", "[", "r", "]"}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"6", " ", "\[Alpha]"}]], "-", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox["2", "r"], "+", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "-", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7585345481468973`*^9, 3.75853457243291*^9}, {
+  3.758534671061825*^9, 3.7585346772611732`*^9}},
+ CellLabel->
+  "In[1994]:=",ExpressionUUID->"9b287d67-75de-431c-ba3f-c2cc92da7ef8"],
+
+Cell["\<\
+R''(r)=\\frac{e^{2 \\lambda (r)} (24 \\pi  p(r)-8 \\pi  \\rho (r)+R(r))}{6 \
+\\alpha }-R'(r) \\left(-\\lambda '(r)+w'(r)+\\frac{2}{r}\\right)\
+\>", "Output",
+ CellChangeTimes->{3.75853467760931*^9},
+ CellLabel->
+  "Out[1994]//TeXForm=",ExpressionUUID->"10883ce6-26bb-4797-a12e-\
+07d7155d5059"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox["R", "\[Prime]\[Prime]",
+    MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+  RowBox[{"Collect", "[", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      RowBox[{"24", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{"12", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Psi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"6", " ", "r", " ", "\[Alpha]"}]], ",", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]}]], "Input",
+ CellLabel->
+  "In[1992]:=",ExpressionUUID->"4f81de4e-b876-4766-a637-717e516fe892"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TeXForm", "[", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"24", " ", "\[Pi]", " ", "r", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", "r", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"6", " ", "r", " ", "\[Alpha]"}]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "12"}], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"6", " ", "r", "  ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"6", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Psi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"6", " ", "r", " "}]]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.758534613601798*^9, 3.7585346240350037`*^9}},
+ CellLabel->
+  "In[1993]:=",ExpressionUUID->"e88e8deb-4a5c-4a02-bc36-51abff25c10d"],
+
+Cell["\<\
+R''(r)=\\frac{e^{2 \\lambda (r)} (24 \\pi  r p(r)-8 \\pi  r \\rho (r)+r \
+R(r))}{6 \\alpha  r}+\\frac{6 r \\lambda '(r) R'(r)-6 r R'(r) \\psi '(r)-12 \
+R'(r)}{6 r}\
+\>", "Output",
+ CellChangeTimes->{3.758534624428521*^9},
+ CellLabel->
+  "Out[1993]//TeXForm=",ExpressionUUID->"d4970ed4-e197-4203-bb11-\
+c49634308a3f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myfR\[Alpha]", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "+", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}], 
+    ",", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[Lambda]", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "2"}], "-", 
+          RowBox[{"4", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{
+           SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+           SuperscriptBox[
+            RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+          RowBox[{"16", " ", "\[Pi]", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+      FractionBox[
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], ",", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{"2", "+", 
+          RowBox[{"16", " ", "\[Pi]", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{"p", "[", "r", "]"}]}], "+", 
+          RowBox[{"4", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "-", 
+          RowBox[{
+           SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+           SuperscriptBox[
+            RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], ",", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["2", "r"], "+", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], "-", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"24", " ", "\[Pi]", " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "+", 
+         RowBox[{"R", "[", "r", "]"}], "-", 
+         RowBox[{"8", " ", "\[Pi]", " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+      RowBox[{"6", " ", "\[Alpha]"}]]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.753098806835648*^9, 3.753098851761342*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"2c391c23-8166-427e-8366-fc78b0849f9f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "2"}], "-", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+          SuperscriptBox[
+           RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+         RowBox[{"16", " ", "\[Pi]", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{"1", "+", 
+         RowBox[{"2", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+     FractionBox[
+      RowBox[{"2", "+", 
+       RowBox[{"4", " ", "\[Alpha]", " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "+", 
+       RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{"1", "+", 
+         RowBox[{"2", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], ",", 
+   
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{"2", "+", 
+         RowBox[{"16", " ", "\[Pi]", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "+", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "-", 
+         RowBox[{
+          SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+          SuperscriptBox[
+           RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{"1", "+", 
+         RowBox[{"2", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       RowBox[{"4", " ", "\[Alpha]", " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "-", 
+       RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{"1", "+", 
+         RowBox[{"2", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], ",", 
+   
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["2", "r"], "+", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "-", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"24", " ", "\[Pi]", " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"R", "[", "r", "]"}], "-", 
+        RowBox[{"8", " ", "\[Pi]", " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"6", " ", "\[Alpha]"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.7530988523964*^9},
+ CellLabel->"Out[29]=",ExpressionUUID->"944ee480-3956-4df4-aab4-185dd656db9e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         SuperscriptBox[
+          RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+        RowBox[{"16", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{"2", "+", 
+      RowBox[{"4", " ", "\[Alpha]", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{"\[Alpha]", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752495973064423*^9, 3.75249602954173*^9}},
+ CellLabel->
+  "In[1016]:=",ExpressionUUID->"044eeb49-6c2a-4711-a32f-0a2901946c64"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"4", " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "-", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    SuperscriptBox["r", "2"], " ", 
+    SuperscriptBox[
+     RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+   RowBox[{"8", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], "+", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["r", "2"], " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}], 
+  RowBox[{
+   RowBox[{"8", " ", "r", " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "+", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["r", "2"], " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}]]], "Output",
+ CellChangeTimes->{3.752496029957674*^9},
+ CellLabel->
+  "Out[1016]=",ExpressionUUID->"bc362edc-1070-4c5d-a542-6873fc2c4bdf"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{"16", " ", "\[Pi]", " ", 
+         SuperscriptBox["r", "2"], " ", 
+         RowBox[{"p", "[", "r", "]"}]}], "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         SuperscriptBox[
+          RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      RowBox[{"4", " ", "\[Alpha]", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{"\[Alpha]", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",
+ CellChangeTimes->{3.7524961314350986`*^9},
+ CellLabel->
+  "In[1017]:=",ExpressionUUID->"90f23d99-6743-4ad0-9d94-a95d6754768f"],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"4", " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "-", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "+", 
+    RowBox[{
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     SuperscriptBox["r", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+    RowBox[{"8", " ", "r", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], 
+   RowBox[{
+    RowBox[{"8", " ", "r", " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "+", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["r", "2"], " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}]]}]], "Output",
+ CellChangeTimes->{3.752496132064238*^9},
+ CellLabel->
+  "Out[1017]=",ExpressionUUID->"f770ee52-5b0f-4836-9aed-1074bcf26cd8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{
+   RowBox[{"2", "/", "r"}], "+", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}]]}], "-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"4", " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+     RowBox[{"8", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], 
+    RowBox[{
+     RowBox[{"8", " ", "r", " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}]]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752496138900449*^9, 3.752496171468586*^9}},
+ CellLabel->
+  "In[1018]:=",ExpressionUUID->"ecdf0e46-6abe-462e-87f7-a2fe6e2430b9"],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "4"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"1", "+", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "+", 
+    RowBox[{
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     SuperscriptBox["r", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+    RowBox[{"2", " ", "r", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+   RowBox[{"2", " ", "r", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]], "Output",\
+
+ CellChangeTimes->{3.752496171870388*^9},
+ CellLabel->
+  "Out[1018]=",ExpressionUUID->"6db9dfca-1fc9-40df-b34e-38bc539d45f6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DSolve", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[Lambda]", "'"}], "[", "r", "]"}], "==", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}]}], 
+     RowBox[{
+      RowBox[{"\[Lambda]", "[", "r", "]"}], "/", 
+      RowBox[{"(", 
+       RowBox[{"4", " ", "r"}], ")"}]}]}]}], ",", "\[Lambda]", ",", "r"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.75249694930939*^9, 3.752497002888946*^9}, 
+   3.75249703718981*^9},
+ CellLabel->
+  "In[1028]:=",ExpressionUUID->"35411675-f19d-48ab-b07b-bef06d9f593e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{"\[Lambda]", "\[Rule]", 
+    RowBox[{"Function", "[", 
+     RowBox[{
+      RowBox[{"{", "r", "}"}], ",", 
+      RowBox[{
+       RowBox[{"InverseFunction", "[", 
+        RowBox[{
+         RowBox[{"ExpIntegralEi", "[", 
+          RowBox[{
+           RowBox[{"-", "2"}], " ", "#1"}], "]"}], "&"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"C", "[", "1", "]"}], "-", 
+        FractionBox[
+         RowBox[{"Log", "[", "r", "]"}], "4"]}], "]"}]}], "]"}]}], "}"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.7524970293318872`*^9, 3.752497037564332*^9}},
+ CellLabel->
+  "Out[1028]=",ExpressionUUID->"1b94e7a2-a6f2-468e-a56e-6792e22b7271"]
+}, Open  ]],
+
+Cell[BoxData["\[Ellipsis]"], "Input",
+ CellChangeTimes->{
+  3.752497027406502*^9},ExpressionUUID->"ca41ef3d-71fc-4a30-ad04-\
+b7aa5b871fc4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"Simplify", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"riccisc", "/.", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"w", "'"}], "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"(", 
+          RowBox[{"-", 
+           FractionBox[
+            RowBox[{
+             RowBox[{"4", " ", 
+              RowBox[{"R", "[", "r", "]"}]}], "-", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["\[ExponentialE]", 
+               RowBox[{"2", " ", 
+                RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+              RowBox[{"R", "[", "r", "]"}]}], "+", 
+             RowBox[{
+              SuperscriptBox["\[ExponentialE]", 
+               RowBox[{"2", " ", 
+                RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+              SuperscriptBox["r", "2"], " ", 
+              SuperscriptBox[
+               RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+             RowBox[{"8", " ", "r", " ", 
+              RowBox[{
+               SuperscriptBox["R", "\[Prime]",
+                MultilineFunction->None], "[", "r", "]"}]}]}], 
+            RowBox[{
+             RowBox[{"8", " ", "r", " ", 
+              RowBox[{"R", "[", "r", "]"}]}], "+", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["r", "2"], " ", 
+              RowBox[{
+               SuperscriptBox["R", "\[Prime]",
+                MultilineFunction->None], "[", "r", "]"}]}]}]]}], ")"}]}]}], "/.", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"\[Lambda]", "'"}], "[", "r", "]"}], "->", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"4", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "-", 
+          RowBox[{"4", " ", 
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+           SuperscriptBox["r", "2"], " ", 
+           SuperscriptBox[
+            RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+          RowBox[{"8", " ", "r", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], "+", 
+          RowBox[{"4", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], 
+         RowBox[{
+          RowBox[{"8", " ", "r", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"4", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}]]}]}], "]"}], "/.", 
+     
+     RowBox[{
+      RowBox[{
+       RowBox[{"R", "'"}], "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"R", "''"}], "[", "r", "]"}], "\[Rule]", "0"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"R", "[", "r", "]"}], ",", "0", ",", "1"}], "}"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.752496313992495*^9, 3.752496330302266*^9}, {
+  3.752496369636424*^9, 3.752496433790724*^9}},
+ CellLabel->
+  "In[1026]:=",ExpressionUUID->"e005e862-9715-4191-8a06-144207384582"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"4", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}]}], 
+     SuperscriptBox["r", "2"]]}], "+", 
+   RowBox[{
+    FractionBox["1", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"1", "+", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}], "2"],
+    SeriesData[
+     $CellContext`R[$CellContext`r], 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[
+   $CellContext`R[$CellContext`r], 
+   0, {((-E^((-2) $CellContext`\[Lambda][$CellContext`r])) (-1 + 
+      E^(4 $CellContext`\[Lambda][$CellContext`r]))) $CellContext`r^(-2), 
+    Rational[1, 2] (1 + E^(2 $CellContext`\[Lambda][$CellContext`r]))}, 0, 2, 
+   1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.752496315379999*^9, 3.752496330888755*^9}, {
+  3.752496380336779*^9, 3.7524964341850233`*^9}},
+ CellLabel->
+  "Out[1026]=",ExpressionUUID->"3a185a88-157b-49c8-9755-c758188b11c3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"fact", "=", 
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{
+    RowBox[{"2", "/", "r"}], "+", "wap2", "-", "\[Lambda]ap2"}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.752475564006135*^9, 3.7524756037847347`*^9}},
+ CellLabel->
+  "In[749]:=",ExpressionUUID->"8d7bbb02-a9e8-4f7e-a906-9c171458db1e"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", "+", 
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"2", "-", 
+      RowBox[{"r", " ", "\[Alpha]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"r", " ", 
+          SuperscriptBox[
+           RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], ")"}]}],
+    "-", 
+   RowBox[{"2", " ", "r", " ", "\[Alpha]", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"3", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+  RowBox[{"2", " ", "r"}]]], "Output",
+ CellChangeTimes->{{3.752475595083344*^9, 3.752475604492529*^9}},
+ CellLabel->
+  "Out[749]=",ExpressionUUID->"1fe9b3a5-9739-40ca-a9dc-80be2329a600"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{
+       RowBox[{"R", "'"}], "[", "r", "]"}]}], "fact"}], " ", "+", 
+    RowBox[{
+     RowBox[{"Exp", "[", 
+      RowBox[{"2", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], 
+     RowBox[{
+      RowBox[{"R", "[", "r", "]"}], "/", 
+      RowBox[{"(", 
+       RowBox[{"6", "\[Alpha]"}], ")"}]}]}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7524756242215157`*^9, 3.752475657650303*^9}},
+ CellLabel->
+  "In[750]:=",ExpressionUUID->"14480d61-8085-4fee-8303-e23038dfcb77"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Solve","nsmet",
+   "\"This system cannot be solved with the methods available to Solve.\"",2,
+   750,81,29958356846220445255,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.752475658224009*^9},
+ CellLabel->
+  "During evaluation of \
+In[750]:=",ExpressionUUID->"ac5ebabb-6b33-4ba2-86d1-d024834d6f14"],
+
+Cell[BoxData[
+ RowBox[{"Solve", "[", 
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"R", "[", "r", "]"}]}], 
+     RowBox[{"6", " ", "\[Alpha]"}]], "-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "-", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"r", " ", 
+               SuperscriptBox[
+                RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+              RowBox[{"2", " ", 
+               RowBox[{
+                SuperscriptBox["R", "\[Prime]",
+                 MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+          ")"}]}], "-", 
+        RowBox[{"2", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       ")"}]}], 
+     RowBox[{"2", " ", "r"}]]}]}], "]"}]], "Output",
+ CellChangeTimes->{3.7524756582323513`*^9},
+ CellLabel->
+  "Out[750]=",ExpressionUUID->"6a7276be-0c26-4fc4-a22a-f2169f5bd2c2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Series", "[", 
+    RowBox[{
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"24", " ", "\[Pi]", " ", 
+           RowBox[{"p", "[", "r", "]"}]}], "+", 
+          RowBox[{"R", "[", "r", "]"}], "-", 
+          RowBox[{"8", " ", "\[Pi]", " ", 
+           RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+       RowBox[{"6", " ", "\[Alpha]"}]], "-", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["2", "r"], "+", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], "-", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", 
+   RowBox[{
+    RowBox[{"p", "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+  RowBox[{
+   RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", "0"}]}]], "Input",
+ CellChangeTimes->{{3.752472416203661*^9, 3.752472431979589*^9}},
+ CellLabel->
+  "In[729]:=",ExpressionUUID->"c94e8fd7-1775-41d9-9b8f-7c45e3243150"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     RowBox[{"R", "[", "r", "]"}]}], 
+    RowBox[{"6", " ", "\[Alpha]"}]], "-", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["2", "r"], "+", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "-", 
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Alpha]", "]"}], "2"],
+    SeriesData[$CellContext`\[Alpha], 0, {}, -1, 2, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Alpha], 
+   0, {(Rational[1, 6] 
+     E^(2 $CellContext`\[Lambda][$CellContext`r])) \
+$CellContext`R[$CellContext`r], (-
+     Derivative[1][$CellContext`R][$CellContext`r]) (2/$CellContext`r + 
+     Derivative[1][$CellContext`w][$CellContext`r] - Derivative[
+     1][$CellContext`\[Lambda]][$CellContext`r])}, -1, 2, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.7524724210109177`*^9, 3.752472432379672*^9}},
+ CellLabel->
+  "Out[729]=",ExpressionUUID->"e2da7e68-52d7-417f-ae56-8932b5775993"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"17", "*", "17"}]], "Input",
+ CellChangeTimes->{{3.752502668953978*^9, 3.752502684091833*^9}, {
+  3.752502737163684*^9, 3.7525027482719584`*^9}},
+ CellLabel->
+  "In[1059]:=",ExpressionUUID->"b88ceea7-a2db-4672-8d20-3687f418ad2a"],
+
+Cell[BoxData["289"], "Output",
+ CellChangeTimes->{
+  3.75250268497621*^9, {3.752502740086473*^9, 3.752502748657988*^9}},
+ CellLabel->
+  "Out[1059]=",ExpressionUUID->"0db795e1-f601-4cb6-bd7e-af03e2a8cc23"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Lambda]ap2", "=", 
+  RowBox[{"Normal", "[", 
+   RowBox[{
+    RowBox[{"Series", "[", 
+     RowBox[{
+      RowBox[{"myfR\[Alpha]", "[", 
+       RowBox[{"[", 
+        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", "0"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.752468134059368*^9, 3.752468156301052*^9}, {
+  3.7524684544605293`*^9, 3.7524684759552526`*^9}, {3.752468511284079*^9, 
+  3.7524685168556843`*^9}, {3.7524697768357773`*^9, 3.752469777030323*^9}, {
+  3.752469825991617*^9, 3.752469826213581*^9}, {3.752472131235984*^9, 
+  3.752472132344742*^9}, {3.752472167874254*^9, 3.752472175338965*^9}, {
+  3.75247315149617*^9, 3.752473178151702*^9}},
+ CellLabel->
+  "In[733]:=",ExpressionUUID->"69de18a0-dadd-4129-81fa-6b80753036ef"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"1", "-", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], 
+   RowBox[{"2", " ", "r"}]], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+     RowBox[{"6", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{{3.7524681370167437`*^9, 3.752468156714419*^9}, {
+   3.752468468503398*^9, 3.7524684762956553`*^9}, {3.75246851232023*^9, 
+   3.752468517342793*^9}, 3.752469777244411*^9, 3.752469826426436*^9, 
+   3.752472133265315*^9, 3.7524721809021397`*^9, {3.752473152773971*^9, 
+   3.7524731785047007`*^9}},
+ CellLabel->
+  "Out[733]=",ExpressionUUID->"fff9ed75-9a5f-4e22-a5d6-9b7dff2a9433"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{
+   RowBox[{
+    FractionBox["1", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"6", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+    "\[Alpha]"}], ",", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752472188681079*^9, 3.752472195349778*^9}},
+ CellLabel->
+  "In[724]:=",ExpressionUUID->"9a57cbe5-8f3c-4ea0-ac80-307529e87fdd"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"r", " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"6", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{3.752472195745976*^9},
+ CellLabel->
+  "Out[724]=",ExpressionUUID->"fcdf84f3-0f92-4698-bedb-f0c9e814a68e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"wap2", "=", 
+  RowBox[{"Normal", "[", 
+   RowBox[{
+    RowBox[{"Series", "[", 
+     RowBox[{
+      RowBox[{"myfR\[Alpha]", "[", 
+       RowBox[{"[", 
+        RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", "0"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.752472243596612*^9, 3.752472248568634*^9}, {
+  3.7524731615077868`*^9, 3.752473169338662*^9}},
+ CellLabel->
+  "In[732]:=",ExpressionUUID->"558c9857-9cff-4fce-a8e1-8bde3d380918"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"-", "1"}], "+", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], 
+   RowBox[{"2", " ", "r"}]], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], " ", "r", " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "-", 
+     RowBox[{"6", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{{3.752472244062418*^9, 3.7524722489737186`*^9}, {
+  3.752473164415182*^9, 3.7524731697366047`*^9}},
+ CellLabel->
+  "Out[732]=",ExpressionUUID->"bbe83a6b-7a53-4a6d-a62a-6cfb258f3d3a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"FullSimplify", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"riccisc", "/.", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"w", "''"}], "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Lambda]", "'"}], "[", "r", "]"}], "->", "\[Lambda]ap2"}]}],
+      "/.", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"w", "'"}], "[", "r", "]"}], "->", "wap2"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752473180476296*^9, 3.752473250761701*^9}},
+ CellLabel->
+  "In[738]:=",ExpressionUUID->"8620aa3d-1136-489a-88f3-684b15ad253a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"4", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}]}], 
+     SuperscriptBox["r", "2"]]}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      FractionBox[
+       RowBox[{"8", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "r"], "+", 
+      FractionBox[
+       RowBox[{"6", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "r"], "+", 
+      FractionBox[
+       RowBox[{"2", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "r"], "+", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "+", 
+      RowBox[{"3", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+    "\[Alpha]"}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Alpha]", "]"}], "2"],
+    SeriesData[$CellContext`\[Alpha], 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Alpha], 
+   0, {((-E^((-2) $CellContext`\[Lambda][$CellContext`r])) (-1 + 
+      E^(4 $CellContext`\[Lambda][$CellContext`r]))) $CellContext`r^(-2), \
+$CellContext`R[$CellContext`r]^2 + 
+    E^(2 $CellContext`\[Lambda][$CellContext`r]) \
+$CellContext`R[$CellContext`r]^2 + (8/$CellContext`r) 
+     Derivative[
+      1][$CellContext`R][$CellContext`r] + ((6 
+       E^((-2) $CellContext`\[Lambda][$CellContext`r]))/$CellContext`r) 
+     Derivative[
+      1][$CellContext`R][$CellContext`r] + ((2 
+       E^(2 $CellContext`\[Lambda][$CellContext`r]))/$CellContext`r) 
+     Derivative[1][$CellContext`R][$CellContext`r] + 
+    Derivative[
+     2][$CellContext`R][$CellContext`r] + (3 
+      E^((-2) $CellContext`\[Lambda][$CellContext`r])) 
+     Derivative[2][$CellContext`R][$CellContext`r]}, 0, 2, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.752473191532618*^9, 3.752473251043239*^9}},
+ CellLabel->
+  "Out[738]=",ExpressionUUID->"a2067eea-0f86-4b59-ae84-a69a354b96fa"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{
+   RowBox[{
+    FractionBox["1", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], " ", "r", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "-", 
+      RowBox[{"6", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+    "\[Alpha]"}], ",", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "]"}]], "Input",
+ CellChangeTimes->{3.752472272197709*^9},
+ CellLabel->
+  "In[727]:=",ExpressionUUID->"8284887b-e9da-46ac-9d62-8165463007b3"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "r"}], " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "-", 
+  RowBox[{
+   FractionBox["3", "2"], " ", "\[Alpha]", " ", 
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
+ CellChangeTimes->{3.7524722726250134`*^9},
+ CellLabel->
+  "Out[727]=",ExpressionUUID->"de47c1bd-ff6d-4a9d-856c-7ddc7d536f6c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Lambda]ap", "=", 
+  RowBox[{"Normal", "[", 
+   RowBox[{
+    RowBox[{"Series", "[", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"1", "-", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+        RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], 
+       RowBox[{"2", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], ",", "0", ",", "1"}], 
+       "}"}]}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", "0"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.752468613664947*^9, 3.752468631012101*^9}, {
+  3.752469359084147*^9, 3.752469365703779*^9}},
+ CellLabel->
+  "In[708]:=",ExpressionUUID->"0eacae42-d976-433d-9eac-d57907030215"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", "\[Alpha]", " ", 
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "3"}], "-", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{"1", "-", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+    RowBox[{"2", " ", 
+     SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], 
+   RowBox[{"2", " ", "r"}]]}]], "Output",
+ CellChangeTimes->{{3.752468619610672*^9, 3.7524686313387423`*^9}, 
+   3.752469366150187*^9},
+ CellLabel->
+  "Out[708]=",ExpressionUUID->"93abd06a-dd84-4d46-a180-22a3281a848e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Series", "[", 
+   RowBox[{
+    RowBox[{"myfR\[Alpha]", "[", 
+     RowBox[{"[", 
+      RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"R", "[", "r", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", 
+  RowBox[{
+   RowBox[{"p", "[", "r", "]"}], "\[Rule]", "0"}]}]], "Input",
+ CellChangeTimes->{{3.752467703477459*^9, 3.7524677155205936`*^9}, {
+   3.7524677896509933`*^9, 3.752467791953526*^9}, {3.752468060443079*^9, 
+   3.752468064127406*^9}, {3.7524682198038807`*^9, 3.75246822349535*^9}, 
+   3.75246825883888*^9, {3.752468871129027*^9, 3.752468873895854*^9}, {
+   3.752468916443536*^9, 3.752468916695836*^9}},
+ CellLabel->
+  "In[704]:=",ExpressionUUID->"e9d084ae-3c28-4910-b681-fe6624d6a002"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+     RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], 
+    RowBox[{"2", " ", "r", " ", 
+     RowBox[{"(", 
+      RowBox[{"1", "+", 
+       RowBox[{"r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+   FractionBox[
+    RowBox[{"\[Alpha]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+     RowBox[{"R", "[", "r", "]"}]}], 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"1", "+", 
+       RowBox[{"r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], "2"]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"R", "[", "r", "]"}], "]"}], "2"],
+    SeriesData[
+     $CellContext`R[$CellContext`r], 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[
+   $CellContext`R[$CellContext`r], 
+   0, {(Rational[1, 2]/$CellContext`r) ((-1 + 
+      E^(2 $CellContext`\[Lambda][$CellContext`r]) - ((
+        4 $CellContext`r) $CellContext`\[Alpha]) 
+      Derivative[1][$CellContext`R][$CellContext`r])/(
+     1 + ($CellContext`r $CellContext`\[Alpha]) 
+      Derivative[
+       1][$CellContext`R][$CellContext`r])), ($CellContext`\[Alpha] ((
+        3 $CellContext`\[Alpha]) 
+       Derivative[1][$CellContext`R][$CellContext`r] + (
+        E^(2 $CellContext`\[Lambda][$CellContext`r]) $CellContext`\[Alpha]) 
+       Derivative[1][$CellContext`R][$CellContext`r])) (
+      1 + ($CellContext`r $CellContext`\[Alpha]) 
+       Derivative[1][$CellContext`R][$CellContext`r])^(-2)}, 0, 2, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.7524677109391537`*^9, 3.752467715872595*^9}, 
+   3.752467792297621*^9, 3.752468064445266*^9, 3.752468225092663*^9, 
+   3.752468259542725*^9, 3.7524688747967663`*^9, 3.752468917140931*^9},
+ CellLabel->
+  "Out[704]=",ExpressionUUID->"51468aa5-b1de-45dc-af84-7ae011494d0c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"wap", "=", 
+  RowBox[{"Normal", "[", 
+   RowBox[{
+    RowBox[{"Series", "[", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+        RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], 
+       RowBox[{"2", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"R", "'"}], "[", "r", "]"}], ",", "0", ",", "1"}], "}"}]}], 
+     "]"}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", "0"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.75246894081531*^9, 3.752468942495675*^9}, {
+  3.7524693443251743`*^9, 3.7524693534948072`*^9}},
+ CellLabel->
+  "In[707]:=",ExpressionUUID->"b143b96a-c8ef-434b-89a7-db654f98426f"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"-", "1"}], "+", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], 
+   RowBox[{"2", " ", "r"}]], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"3", "+", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "\[Alpha]", " ", 
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
+ CellChangeTimes->{
+  3.752468943119136*^9, {3.752469348410821*^9, 3.752469353970602*^9}},
+ CellLabel->
+  "Out[707]=",ExpressionUUID->"ccafea8b-6689-4e91-aa9a-74b935d3499a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"1", "/", "r"}], ",", 
+     RowBox[{"Exp", "[", 
+      RowBox[{"-", "r"}], "]"}], ",", 
+     RowBox[{
+      RowBox[{"1", "/", "r"}], "+", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"-", "r"}], "]"}]}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "1", ",", "100"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752475054806285*^9, 3.752475123691073*^9}, {
+  3.7524893352476063`*^9, 3.7524893582948713`*^9}},
+ CellLabel->
+  "In[816]:=",ExpressionUUID->"85a3dba1-16ba-45b2-a989-ce2ffc799389"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV1Wk41G0bBvBhSDyWmb8hZKchMSUtWjQXUtbs+RcJ8WQLSSIqEqnQcoQs
+rZYKr4yk9JT7xpOlFL3WFKWyZR1L1sw774frOI/fh/M4zm+Xmlewg48ghUK5
+xL//p5X3AWVBygTbNHwV9e0krjz7IF7WI3qC3TBulXz1/h1U+o0jWTk3wW65
+Zck6tr4YyR0S40VyuWzzcKn8NeRr1O/8z1fu9yl2xYHx9dFt75DCzYEO28PT
+7B9ycoTryAdk81/p5v98nmZHnvuuZzXXjMr2BWK/1hl2p8cbDePvLej8XqX7
+vW9m2QUVJwMDXD6h8niLDLbJHLt43CX484MuNFRz8vrtyjn2EzNHgYqBz8gO
+PsQeeD7PvlIs3FDp3oOUt53z+vhokS00HLGscqEXvdTp1ai6wmN/VR+cZ1X0
+ofCyFSlSQhRoWu0u7bmlH11rUby8y4QCWSdNX5Zw+tG/dIvz2ZUUOES7Yt37
+YADppNwPJZ8LwAlQzpoMGUJzCQ6OzY+oUOHmPpj8ZgQR+b62vH4qrDMSxUyd
+UaT75qwVa40QuNqUsS4mj6LD1ELTpPtC8HUpP/aV3RiqPUfdZJ4pDEGZghkv
+G8bRzYgyBr4iAoa5Q8FFZlwkduiejE6TCLSvir++/QQXxRonyd4kVoJEX1aA
++T0uChLzlvPNWAnpWxPdxua4yDxbWpH2UBSCGNzewtxJtIRCNTyq/4Ll10pB
+UwNTKDTXXfOtsDjI3jlad1dyGg0lWq7ZZCEOlyVDEsY3TaN2e3Wtlc3i0D27
+SiQmZhqV/PioU9ItAbalObtuSM8gbxH9jZR5KVAYFy2v1vmNRk+myG9WpoHf
+aocXrta/kbavkMIvNg1OC1/Hxcd+o7vWEwpOcTQwjrrhcfHJb5QkU6+oLUYH
+/8ntbaobZtHfD0+pNq8ioKrC3qJ5zRxSeNeupWrAADzfcnV6cB4pPPjjmOHA
+tx5ne5PAAlodqRlDhDKAYxIeH6ewgBS1QjuFOAw4Uvi26bTVAlKJk7g0xJKB
+EueJ9JLCBaS5Y/evUh1ZEO5kP0v1WUSsQk6RmbocpClqdLRWLSHW+c7OSmM5
+EKOVj+W2L6H1B3hChp5ysHMmVvbg8BLaIGJzSOeeHAyWGxaGMf4ggyODElLK
+8pDyRoUd6vMHGa5WCe6UV4CVv4yyagWXkemVJP0AuiI8fbzp6RFdHirKmrXb
+s0ERtrq19E8Y8ZBskVeImq0izKxNGvO35aHBRsMnHUmKYHkkVZUZykNJkn26
+u1cqwdWa3jOvy3mo9bqRthJPCcSuflkwV6Zg71tjyk0jKsAk5NN+3qbgagft
+BPmfalBhEepz+qIA3mct3dE2rQaVagJ5kykCuMtsWeuGsDpEfEvmHkkTwFzD
+1gYxLXXY/kW4Tz9PAKuqxEgs+alDffXZ1OhqAXxmuONmz7g6PDtdUdyxKIAN
+L1zMyVnUAOrObN6knyB+8qwf60kzoVQwUrxrMxXfUSvQalRnQjXHjxG7g4qT
+ko+l+G9kwg+zKlVNYyr29Zl2fWjPhOMzS27u1lSsLiM4q3qNCfZJsX9yvKg4
+LUxJjyGhBW9jyxIjUqg42sApY2GFNnCvozG/H1Rswak6XrewFtbKBFb7xgnh
+EsH5YPoWFvhSz7iEvRDG17HrcCNLH1qmOl854hVY1brhU4uyAZzulgtkZong
+NMG+sVLDzbBu3VGVwpCV2EtYCrWytsKdT4lnn68RxWV3omtkVm+DfEnrVYP1
+onjE69YYS38HnGoo0vIJFMNRJ6pbL2sYARazaKUsiOGJ4szeSjYbnjaU12+4
+9BcOB1e66GOA4cbnr/PExfFd2xApp3vGUJyJGIwYcbwj7IvqlSITIB/2zzr9
+FseCqOnqj3xTqBpV+tXtLoGNVBQI7fLdoMm0/xXwVgL/Y5nAisZmoJs6PfOW
+JYm9syMfcV/sgS6ds3r6iZI4hvrvZsfavVBeXOo98FMS111LVW2vMgeKWo5X
+21YpbD+UmOf7wgK0ho3HefFSeJ9Li9FAjSXUf7ovm9IhhcOHcw0uvrYCs3zh
+qAAaDROp73dKN1qDQeTtzrItNMwVlftW3GYDc66mJ6YO0vBi7tC3gPf74MTl
+0uM5UTQc4UzMMLpsgZqFxCdv0zBN1vNpsL8dlEyVrZt9RcPCAxYVbn12MDR7
+eO2ZLhouM+mpR/72MHqYI58+z+/rb7loMGAP3wPV6utk6Ph3wTZbpSAHKKi9
+sBBtQMeXnlNqV404gE2qe2HEPjqufNwpmnnUEd6ojJWDLx0XMd1cbow6AnEq
+syomjo5LtuQ4Zvk7wcgDkc3W2XQc9DH1gMKkE7zyuxoXW07H7+0zdNVOOYNp
+9dKtjCY6NvHxKDaccuZ/CZf4U/10HEJt2VYbuR8E4xJvly7Tcdkm0TDv2f0w
+pKVp1MwgcIaVXdTlUBfocWzbL6ZDYMNRkyTmnAuEPE13TwUCj6jNW7WEkdD7
+OHsXy5nAH1weLvPCSTCUatx7ie+SZGeObiQJRZY/zX/yHTbPkU04Q0IatW1j
+5n4CLzX79xomkBCb9zVPmCSwRMyX8DvpJMQVfBL9fJDArB503+8lCbWj1i3n
+PAhMYwQ5pb0iwb+K/PKJ70kLRZGaShKESk53G3gSuPxZRKBiDQkNx1bUD/C9
+K1l/a9M7Eup2e++yPULgfTtzGjd18/fNBXEU/ybwhlD7c55fSVC5dn5nON/E
+I55+Si8JoS7VqInvdmm39IE+EtpG3hWfP0pg92GGV+YYCTV+eusHfQkMajWM
+ugkS6svro4z9CKzucrxuapKEHoUsnMl3f/V7XZtZEvak/tpo40/g+rmor5Hz
+JBh5+nvk813A0rmRv0hC0hNmAo/vJO/O3S1/SNDoUs0lAwgcnJkwy+ORcGv7
+wZccvv8HcV8eJw==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$306628#1"]& ], 
+    TagBox[
+     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwtxX1M1HUABvDbOedoKwUuMkLjciNzdOuGIkzpntAyRN7B+zqpKcNV2ECN
+ETeoXFtnCfbiQpOa+ZapcwSGZlr8HqDAJmTtjFkz4SpgDmQHrICsrtqePz77
+OEsq8rfYbTZb1n/+P7N0w0K7LeTR1stHXovZVBvyaOvMQMtdbdMhj7bmP3VH
+2Dc+7tHWUNHF/vFfJj3aenXNgsPBr6c82rqwJLiovS7s0da71a0O1s2BZuzl
+vgfjkxzQXFVX794aGQfNjvzF/nt/c0Lzk7NDfDg6AZoZLe3bu/98CJrN9pmK
+yGQXNN/hxpEelxua8eu++TGwMAma++yDY2dSlkGzZPZc66prOTRbD9Z23n1f
+KjRHS94bc7lXQLPmhY6ruxelQTPU1Bhs83igWYWNkREnAc0Pc7bNLTz0GDRX
+VF6PrzudDk27deWtX4+vgmba/bFRi8+thubFtX5XLR+HZukHvhPj55+A5s5Z
+Xy0r6FoDze63G+L72p+EZt7N1z969nwGNLO9gbThzrXQrBo5lrTry0xoRjX0
+rozuWQfN8Yj5A00/ZEHz9rGbA1t7s6FZXRT1u+OnHGjOi9n8aUVZLjRnD2d8
+XjyYC83W9BuXrLI8aFa7k3clDedB849TqTkLyvOh+cZntq57RvOh2XbyWkTj
+MwXQPJ1Q7N17qwCazclHC94vK4Rm+fcNG2InCqHZm3cg0fliETTTt2xqSpks
+gua2WYHULt96aLYujagsnVoPzQOZuTW7d3ihmXIrvT5h2gvNUedMZqDSQPNb
+78f/hKsMNJv3FLUk+gw0K2daYvwvGWj+9V1ZMMVvoHnnzutVB/cbaLpuWIef
+u2CgOc9RXrjvCwPNiYy4OZ1tBprnzlY/H9dpoPnoHvfyK5cNNLNXHu1Z+rOB
+5iM78l7Z3G+gGXUi7H4zaKDZF128f3jQQPPpEUdJ45iBJpydju6QgeYD3u3d
+kxMGmkMdvYlZUwaal6Zr+n0zBpqnXEv2Hr9toFlfem114G8DzYpG/1Q4bKD5
+L5S0ZJ0=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$306628#2"]& ], 
+    TagBox[
+     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV1Xk41HsbBvBh7A1mfg1ZZmwJOZoskZLmsbRYIlt+WnFUqFRD4pBEtkjl
+zRpKKsQrJO2+3zih4kgolZRkX7LkWDPvvH881319/riv6/7vUfc+7nxQmEKh
+xAru/2nn46EiTBnnzmR4bOXR2rgRN2PkPcPHuVd+8dg+au+4Fd/KZapnx7lC
+2ZOj1ZvfchX2SfFDJya48R493Z36r7h9bk+/Tnyf4s6mJeKQ11XcqG3svO6X
+M9yNpd3FbJ2nqCrGJpNrOcsdFNWsXxOB0WDtqSs51bPcrXrT2xv21aKd8M85
+j4dz3FNFz74VLTUglQ1nvVsKF7hRz/kG7v0t6Ilu98oXiXwusrirsmHkMwqu
+FEuWFaGAXcrFgPPKX9DlVtaFzZYUsB6zmDHe1oX+ZthEZVdTIMmXnBWz/YZ0
+k/N45EMhaOlc0ZMb9R3Nxjq7vC2kQo+YRWhxYR8i7vg68vuoUNRuWNiu1Y/0
+XkbYcVaJwMnOi2+y8vvRAWqxVVKeCOQHS/+QzBxAdWep67ZnicLWiPOKQkFD
+6GpIJRMnikNsmdoHk7FRJLXvhpxuszgs/dQoILzG0DmLJPmrhASUXyFYOe/G
+UICUj4JvpgS8vOql0VL+E23PXs6iF0gCuyKNll02jhYRb6VnzTLYOJCsOmE1
+iXi39mu+FqXBRErupp7ASTQYb7tqnQ0N0kP3xjjmT6L3ThraEm9pIEup8Mql
+TKGynhbdsi/SED6e7Wv7YAr5iBsYUuZkofeVeOBJiWk0eipZ0ViFDoPMXP8e
+/Wmk4yuiNMSlw4f0UeoIOY2u248ruUbTIdAiLLC+YBolyTWwdKQYYCEtd+Yd
+/IsOFZxWe7uCAJfAw3+d85pBSm/ea6sZMUHnQtTPkENzSOnmb5dMZyYkCl9e
+CoqaQ8qhmpEEjwliiYk9prlziKXN6xApZ0Lfdbv9yu1zSDVaOmGQIwdRCYfL
+PGEeaZpZD1XoysNAhnzJJekFxCkuL9mioQBUQ+kyatwi4kR1dFRbKEDhWuUI
+h5xFtNaDL2LqpQBKF+etTt1fRPriO/bp3lAAs968TPLrIjL6c0BaVkURtrHk
+ONHGv5GpsurxDkUl6A/5T0v959/IKjHJ4AiDBcrDHNFKgo9Krs3s3KrPApPN
+RWcHNPlIvsT7hLojC1KqrP8rup6PBhpN731IYsHkmMMfC7v5KEmmV89agg1r
+75c9/pjHR21XzHXYfDZ49kdINslRsE/GmErziCqsGpw035lBwTXOOrGKP9Sh
+0K/lwooYIexgv/xD+y91oAXds8pLEsKftixpp4hqwJu0a4krrwrhCdO2V1La
+GuDn3yRJ5AthNdVI6UU/DehVVAnLwEL4zPCHq10/NWBQ1tGDnBfCpufj8vMX
+VsKeMAlDqp8wvvegD69ZrgVkztx0uDEV56rf1W7U0IJxiekELTMqTrp4LNnf
+UAtotiX0RqBi34O/9hQ4aYGTS5zMMnsq1pATnlG7rAWP71jzPLypOC2IvYYp
+rQ3V8WZdm5KpONzINXNeTAf0X0vVWPVQsU35i5P186thZNbW2CNaBJcJzx1n
+mHDgkAxvNe+RKL6C9ww3cgzAOsv5mAsWw2r2rz62qhhBW6rHAa1r4jhNuHes
+wtQY2Col7OITEthbVBa1cdYDpc464uEqSVyZG14rp7wBbm2zWDHQIIlHvDPG
+OAZmELGrWPvgUSkcFljTdmGlOQi/295GmZfC46VZ3dVcLjjXVDXoJyzDwbCH
+IVkEMPbm4fPbNBq+7nhC1vWGBcRlISYzkobNgjrVEksswaWgb8b1XxoWRs2X
+eu5YAR5lD33ZL43NVZUInSpr0NRyGjryWho/tY3lhOMtoJf6a/o1Rwb7ZIcW
+TjzaCp90I9YYxMvgSOrfxi5126CqtMKn/4cMrr+cqvb+xXagqOd7t6+XxU6D
+8bd9H9mA9rDFT36MLHZwbzXvr7WFho958skfZHHw8C2juOd2sOWOaNgROh0T
+qU2bljfag1FoTkelCR1PSCp8K23fAbN7rAKndtPxwq3Bb0eaHCDwQsXJ/DA6
+DnEjppmfHIF6DdEmc+iYLu91/7j/Tiibqvxj5hkdi/bbPN7buxMGZw6sPvOJ
+jistuxqQvxOMHihXTJ8T9A1M4oz6neD7UfWGejkG/vfuBkd2gDPcrTs/H27E
+wAkPKXUrRpxhR+r+4hAHBq4u6pDMOuwCL1XHqsCXgUu09rqnjLoAcTrrRWQ0
+A5eZ5Ltc83eFkZvixvbZDBzQkuqhNOkKz/wuRZ+rYuAmp0w99dNuYFWzmJHZ
+zMCWBz1LTafcBF/CPeZ0HwOfoLZuqAvdBcLR8TkVSwxcuU4yyGdmFwxqa5q/
+ZRI4025n2AWeO3S5tO+S0iWw6ahlktasO5y4n74/FQg8oj5n1xpEQndR9maO
+G4H/cS9Y4geTYCrbuC1B4LKLbuV6oSSU2P7Y/kPgoLly+dgzJKRR2w2zdhF4
+8a1/t2ksCeduf70tShJYOrIzODedhOi7HyU/7yYwpwvl+T0hoW7UvvWsJ4Hp
+zADXtGck+L8gOz8KPGnDEq+tJkGk7K8vRl4ErnoQcpRVS8KrY2IN/QJvvmiw
+vvkNCfXWPpsd/ySww6b8xnVfBPtmA8pZhwisz3M66/WVBNXLUZuCBSYK+QbJ
+3STw3GtQs8Dvl+9N7+8loX3kTWnUYQLvH2Z6Z42RUOu3Zu2AL4FBvZZZP05C
+Q1VDmIUfgTXcT9ZPTZLQpXQNZwncV9Okt2OGhK2pQ4Y7/AncMBv2NXSOBHMv
+f887At/l6KbcWSAh6Z5WLF/gJJ8O69bfJKz8pHaLPELg41mxM3w+CRkbdz8p
+F/h/zKLyGg==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$306628#3"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, -99.99999797959184},
+  CoordinatesToolOptions:>{"DisplayFunction" -> ({
+      Part[#, 1], 
+      Exp[
+       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+      Part[#, 1], 
+      Exp[
+       Part[#, 2]]}& )},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None},
+  PlotRange->{All, All},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->FrontEndValueCache[{Automatic, 
+     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-92.10340371976183, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "40"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-69.07755278982137, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "30"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {0., 
+       FormBox["1", TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-103.61632918473205`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-101.31374409173802`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-99.01115899874397, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-96.70857390574992, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-94.40598881275588, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-89.80081862676778, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-87.49823353377374, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-85.19564844077969, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-82.89306334778564, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-80.5904782547916, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-78.28789316179756, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-75.9853080688035, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-73.68272297580947, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-71.38013788281542, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-66.77496769682732, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-64.47238260383328, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-62.16979751083923, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-59.86721241784519, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-57.564627324851145`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-55.262042231857095`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-52.95945713886305, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-50.65687204586901, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-48.35428695287496, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-29.933606208922594`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-27.631021115928547`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-20.72326583694641, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {2.302585092994046, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {4.605170185988092, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {6.907755278982137, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}}}]]], "Output",
+ CellChangeTimes->{{3.752475068155126*^9, 3.7524751242281647`*^9}, {
+  3.752489335723124*^9, 3.752489362055065*^9}},
+ CellLabel->
+  "Out[816]=",ExpressionUUID->"35ba82c3-c4f2-4f1e-a701-4da86d126e5f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "riccisc", "]"}]], "Input",
+ CellChangeTimes->{{3.752469670357664*^9, 3.75246968540447*^9}},
+ CellLabel->
+  "In[713]:=",ExpressionUUID->"29c6782f-8d78-454a-95f7-b565b0e40ae2"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{
+     RowBox[{"-", "2"}], " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+     RowBox[{"r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"r", " ", 
+             RowBox[{
+              SuperscriptBox["w", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["w", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "-", 
+           RowBox[{
+            SuperscriptBox["\[Lambda]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "-", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], ")"}]}], 
+  
+  SuperscriptBox["r", "2"]]], "Output",
+ CellChangeTimes->{{3.7524696733200293`*^9, 3.752469685719874*^9}},
+ CellLabel->
+  "Out[713]=",ExpressionUUID->"f2907e60-450d-4066-8e00-a93733d65c49"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{"wap", "-", "\[Lambda]ap"}], "]"}]], "Input",
+ CellChangeTimes->{{3.752469374030212*^9, 3.752469383546371*^9}},
+ CellLabel->
+  "In[710]:=",ExpressionUUID->"90d1cf29-675b-479b-8b5a-93807f6f3cda"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"-", "1"}], "+", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+   RowBox[{
+    SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], "+", 
+   RowBox[{"r", " ", "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "3"}], "-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+      RowBox[{
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+  "r"]], "Output",
+ CellChangeTimes->{{3.7524693762420053`*^9, 3.7524693840088043`*^9}},
+ CellLabel->
+  "Out[710]=",ExpressionUUID->"c2049564-a8ef-4387-b693-7ba48794e85f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"-", "1"}], "+", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+   RowBox[{
+    SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], "+", 
+   RowBox[{"r", " ", "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "3"}], "-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}]}]}], "r"]], "Input",
+ CellChangeTimes->{{3.752469423386989*^9, 3.752469423583907*^9}},
+ CellLabel->
+  "In[711]:=",ExpressionUUID->"c0240fab-1fa6-4cb7-86dd-0816d9ed5333"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"-", "1"}], "+", 
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"2", " ", 
+     RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "3"}], "-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "r", " ", 
+    "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], "-", 
+   RowBox[{
+    SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}], "r"]], "Output",
+ CellChangeTimes->{3.752469424730689*^9},
+ CellLabel->
+  "Out[711]=",ExpressionUUID->"7a497dba-d949-4cd3-9263-d4b34edec7a3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"riccisc", "/.", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"w", "''"}], "[", "r", "]"}], "\[Rule]", "0"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"w", "'"}], "[", "r", "]"}], ",", "0", ",", "1"}], "}"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.752470603220113*^9, 3.7524706107188177`*^9}, {
+  3.752470709207058*^9, 3.7524707158759127`*^9}},
+ CellLabel->
+  "In[720]:=",ExpressionUUID->"bbe2b716-ce47-42de-bcd4-ca4de3023890"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{"2", " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{
+       RowBox[{"-", "2"}], " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "1"}], "+", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+       RowBox[{"2", " ", "r", " ", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], 
+    SuperscriptBox["r", "2"]], "+", 
+   FractionBox[
+    RowBox[{"2", " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{
+       RowBox[{"-", "2"}], " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "2"}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}], "r"], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "]"}], "2"],
+    SeriesData[
+     Derivative[1][$CellContext`w][$CellContext`r], 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[
+   Derivative[1][$CellContext`w][$CellContext`r], 
+   0, {((2 E^((-2) $CellContext`\[Lambda][$CellContext`r])) \
+$CellContext`r^(-2)) (-1 + 
+     E^(2 $CellContext`\[Lambda][$CellContext`r]) + (2 $CellContext`r) 
+      Derivative[1][$CellContext`\[Lambda]][$CellContext`r]), ((2 
+      E^((-2) $CellContext`\[Lambda][$CellContext`r]))/$CellContext`r) (-2 + \
+$CellContext`r Derivative[1][$CellContext`\[Lambda]][$CellContext`r])}, 0, 2, 
+   1],
+  Editable->False]], "Output",
+ CellChangeTimes->{3.752470611170364*^9, 3.75247071620971*^9},
+ CellLabel->
+  "Out[720]=",ExpressionUUID->"f5a9c401-44ce-4bcf-a804-ac99bfb4e8ae"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DSolve", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"r", " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"R", "'"}], "[", "r", "]"}], "/", 
+     RowBox[{"(", "12", ")"}]}]}], ",", "R", ",", "r"}], "]"}]], "Input",
+ CellChangeTimes->{{3.752470329276647*^9, 3.752470364052747*^9}},
+ CellLabel->
+  "In[717]:=",ExpressionUUID->"40c74a4f-78b1-4f96-a508-37a5b2cd467d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{"R", "\[Rule]", 
+    RowBox[{"Function", "[", 
+     RowBox[{
+      RowBox[{"{", "r", "}"}], ",", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"6", " ", 
+         SuperscriptBox["r", "2"]}]], " ", 
+       RowBox[{"C", "[", "1", "]"}]}]}], "]"}]}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7524703587031612`*^9, 3.752470364432105*^9}},
+ CellLabel->
+  "Out[717]=",ExpressionUUID->"4901e7bd-e16b-401a-a053-77df6a80ca50"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"6", " ", 
+     SuperscriptBox["r", "2"]}]], ",", "r"}], "]"}]], "Input",
+ CellChangeTimes->{{3.752470402867311*^9, 3.752470404783081*^9}},
+ CellLabel->
+  "In[718]:=",ExpressionUUID->"298558c8-d7bf-425c-8a30-7e85ec22ac33"],
+
+Cell[BoxData[
+ RowBox[{"12", " ", 
+  SuperscriptBox["\[ExponentialE]", 
+   RowBox[{"6", " ", 
+    SuperscriptBox["r", "2"]}]], " ", "r"}]], "Output",
+ CellChangeTimes->{3.752470405083559*^9},
+ CellLabel->
+  "Out[718]=",ExpressionUUID->"5b4ad2a1-fe3e-4864-8001-f8f1f6e886fb"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DSolve", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"2", " ", "r"}]], "-", 
+     FractionBox[
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], 
+      RowBox[{"2", " ", "r"}]]}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"\[Lambda]", "'"}], "[", "r", "]"}]}], ",", "\[Lambda]", ",", 
+   "r"}], "]"}]], "Input",
+ CellChangeTimes->{{3.752467815102234*^9, 3.752467851042474*^9}, 
+   3.7524681927007303`*^9},
+ CellLabel->
+  "In[694]:=",ExpressionUUID->"6e56a157-709b-4b41-8e00-1e9d603bba11"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Solve","ifun",
+   "\"Inverse functions are being used by \
+\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
+Reduce for complete solution information.\"",2,694,74,29958356846220445255,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.752467835006423*^9, 3.752467851379737*^9}, 
+   3.752468193596162*^9},
+ CellLabel->
+  "During evaluation of \
+In[694]:=",ExpressionUUID->"c2605ad7-f225-4773-b397-44ecb96d5b70"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"\[Lambda]", "\[Rule]", 
+     RowBox[{"Function", "[", 
+      RowBox[{
+       RowBox[{"{", "r", "}"}], ",", 
+       RowBox[{"-", 
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          SqrtBox[
+           RowBox[{"1", "+", 
+            FractionBox[
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"2", " ", 
+               RowBox[{"C", "[", "1", "]"}]}]], "r"]}]]}], "]"}]}]}], "]"}]}],
+     "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Lambda]", "\[Rule]", 
+     RowBox[{"Function", "[", 
+      RowBox[{
+       RowBox[{"{", "r", "}"}], ",", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "2"]}], " ", 
+        RowBox[{"Log", "[", 
+         RowBox[{"1", "+", 
+          FractionBox[
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{"2", " ", 
+             RowBox[{"C", "[", "1", "]"}]}]], "r"]}], "]"}]}]}], "]"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.752467835015156*^9, 3.75246785140805*^9}, 
+   3.752468193624921*^9},
+ CellLabel->
+  "Out[694]=",ExpressionUUID->"21ed1d84-9cc8-4502-a50c-1c70f0a0c18f"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"G", "=", 
+   RowBox[{"6.67428", " ", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "8"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"c", "=", 
+   RowBox[{"2.99792458", " ", 
+    RowBox[{"10", "^", "10"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"m0", "=", 
+   RowBox[{"1.989", " ", 
+    RowBox[{"10", "^", "33"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rg", "=", " ", 
+   RowBox[{"G", " ", 
+    RowBox[{"m0", "/", 
+     RowBox[{"c", "^", "2"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"P0", "=", 
+   RowBox[{"m0", " ", 
+    RowBox[{
+     RowBox[{"c", "^", "2"}], "/", 
+     RowBox[{"rg", "^", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]0", "=", 
+   RowBox[{"m0", "/", 
+    RowBox[{"rg", "^", "3"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"R0", "=", 
+   RowBox[{"1", "/", 
+    RowBox[{"rg", "^", "2"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7185222808128757`*^9, 3.718522283741341*^9}, 
+   3.718524118360667*^9, 3.719126253632967*^9, {3.719126395963193*^9, 
+   3.71912639669911*^9}, {3.724072460832786*^9, 3.724072467201078*^9}, {
+   3.725084601527223*^9, 3.725084625197569*^9}, {3.7337367520460243`*^9, 
+   3.73373675229137*^9}, {3.7337368914027243`*^9, 3.7337369134723597`*^9}},
+ CellLabel->
+  "In[178]:=",ExpressionUUID->"7c759e54-dbbf-4602-9fe8-b629e3455f38"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"plotleg", "=", "\"\<SLy\>\""}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"eqEoS", "=", " ", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "==", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"EoSFits", "[", "plotleg", "]"}]}], "/.", 
+        RowBox[{"\[Rho]", "\[Rule]", 
+         RowBox[{"Log", "[", 
+          RowBox[{"10", ",", 
+           RowBox[{"\[Rho]0", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+      "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]max", "=", 
+   RowBox[{"Max", "[", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{"T", "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "->", 
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], ",", "0.1"}], "}"}]}], "]"}]}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmax", "=", 
+   RowBox[{
+    RowBox[{"eqEoS", "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]max"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+    RowBox[{"{", 
+     RowBox[{"pmax", ",", "\[Rho]max"}], "}"}]}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", 
+   RowBox[{"1", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"listeos", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"EoSFits", "[", "plotleg", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"From\[Rho]To\[Epsilon]Fits", "[", "plotleg", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", 
+          RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "1", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]int", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeos", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pint", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeos", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+     ")"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, 3.751970977997518*^9, {3.752315938695657*^9, 
+   3.7523159429494953`*^9}, {3.7541354120251417`*^9, 3.754135413510075*^9}},
+ CellLabel->
+  "In[185]:=",ExpressionUUID->"f93c8ad0-a546-48e9-ba7d-99e67d03341e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.0006892725464942204`", ",", "0.0020678176394826483`"}], "}"}]}],
+  SequenceForm[
+  "{pmax, \[Rho]max} = ", {0.0006892725464942204, 0.0020678176394826483`}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.752315946019698*^9, 3.752315997363245*^9, 
+  3.753099466277261*^9, 3.7530995007574177`*^9, 3.754135423537212*^9},
+ CellLabel->
+  "During evaluation of \
+In[185]:=",ExpressionUUID->"10db2de8-6788-4d44-8a9b-d05ada99ceae"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "\[Infinity]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"myeqs\[Alpha]1", "=", 
+   RowBox[{"Flatten", "[", 
+    RowBox[{
+     RowBox[{"myfR\[Alpha]", "/.", 
+      RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}]}], "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7184374008169537`*^9, 3.718437414236784*^9}, {
+   3.718437494185628*^9, 3.718437593617321*^9}, {3.718437636009316*^9, 
+   3.71843766429198*^9}, {3.718437931714583*^9, 3.71843793617094*^9}, {
+   3.718438765549902*^9, 3.7184387725963507`*^9}, {3.7184434391910257`*^9, 
+   3.718443441853094*^9}, {3.718443484193285*^9, 3.718443506284607*^9}, {
+   3.718559464128769*^9, 3.718559467943961*^9}, {3.719061439821855*^9, 
+   3.719061444562524*^9}, {3.71906354255866*^9, 3.719063542733931*^9}, {
+   3.7192407305489407`*^9, 3.719240773756016*^9}, {3.719240893282688*^9, 
+   3.7192408934660263`*^9}, {3.71924140797748*^9, 3.719241430663768*^9}, {
+   3.719242019927012*^9, 3.719242027238345*^9}, {3.719244451874546*^9, 
+   3.719244513800668*^9}, 3.719244669295821*^9, 3.719245036201807*^9, {
+   3.7192450899673243`*^9, 3.71924509067815*^9}, {3.7192451611104803`*^9, 
+   3.719245179742125*^9}, {3.719245220701231*^9, 3.7192452397742863`*^9}, {
+   3.719245285155002*^9, 3.719245315139111*^9}, {3.719245351619425*^9, 
+   3.7192454071684732`*^9}, 3.719245884210607*^9, {3.719246470222393*^9, 
+   3.71924649000541*^9}, 3.7196470136825733`*^9, {3.719654651525614*^9, 
+   3.7196547367570744`*^9}, {3.719654909446266*^9, 3.719654923283415*^9}, {
+   3.719655105454989*^9, 3.7196551440097113`*^9}, {3.719655197652171*^9, 
+   3.719655238214574*^9}, 3.719655279095626*^9, {3.7196570759512253`*^9, 
+   3.719657118589653*^9}, {3.719657159149605*^9, 3.719657186400576*^9}, {
+   3.719657284361618*^9, 3.719657284495661*^9}, 3.719661833262862*^9, 
+   3.719661889542369*^9, {3.719677158726555*^9, 3.7196771593815804`*^9}, {
+   3.7201508160700693`*^9, 3.720150854549415*^9}, {3.720150953337185*^9, 
+   3.720150988843315*^9}, {3.7201510947662373`*^9, 3.720151096513274*^9}, {
+   3.720180194853396*^9, 3.7201801961733723`*^9}, {3.7204477444491367`*^9, 
+   3.720447752717889*^9}, {3.720447830398622*^9, 3.7204478306706963`*^9}, {
+   3.720448947777711*^9, 3.720448948424841*^9}, {3.72092511238037*^9, 
+   3.72092516120851*^9}, 3.7209252708800373`*^9, {3.721030284430574*^9, 
+   3.7210303345388803`*^9}, {3.721039254318759*^9, 3.721039279957816*^9}, 
+   3.721385814374618*^9, {3.721389955180369*^9, 3.7213899557479877`*^9}, {
+   3.721430198730941*^9, 3.7214301994314737`*^9}, {3.721430482730871*^9, 
+   3.721430503273196*^9}, 3.721430556674695*^9, {3.721434631643511*^9, 
+   3.721434635098914*^9}, {3.7214352358085003`*^9, 3.721435269276092*^9}, {
+   3.721810132521253*^9, 3.72181013302395*^9}, {3.7219916821571827`*^9, 
+   3.721991682266123*^9}, {3.722034810936336*^9, 3.7220348123103523`*^9}, {
+   3.722035439644766*^9, 3.722035439955229*^9}, {3.722035597216983*^9, 
+   3.722035598085511*^9}, {3.722132706385194*^9, 3.722132707495133*^9}, {
+   3.728878929181488*^9, 3.728878939412635*^9}, {3.728879026878384*^9, 
+   3.728879028405472*^9}, {3.728879589344974*^9, 3.7288795954695683`*^9}, {
+   3.728879817167754*^9, 3.728879828861765*^9}, 3.728885944506542*^9, {
+   3.728885992099325*^9, 3.728886004403038*^9}, {3.728886152535172*^9, 
+   3.728886152852853*^9}, {3.728886196734907*^9, 3.728886206004057*^9}, 
+   3.7288865223207483`*^9, {3.728887683896122*^9, 3.728887684110838*^9}, {
+   3.728888632342266*^9, 3.728888632533518*^9}, {3.7288887518958406`*^9, 
+   3.728888752084675*^9}, {3.73114457304851*^9, 3.731144599330369*^9}, 
+   3.731145262602448*^9, {3.731145569164222*^9, 3.731145611783329*^9}, {
+   3.7311456744847717`*^9, 3.7311456766132383`*^9}, {3.731145723447528*^9, 
+   3.7311457685493107`*^9}, {3.731145808786429*^9, 3.73114581084544*^9}, {
+   3.7311461504422483`*^9, 3.7311461568691177`*^9}, 3.7311470371680403`*^9, 
+   3.731147219222896*^9, 3.731150477499794*^9, {3.734343509286057*^9, 
+   3.734343514619609*^9}, 3.734344832001861*^9, 3.734344932168583*^9, {
+   3.734347198308228*^9, 3.7343472281746902`*^9}, {3.734347369628532*^9, 
+   3.734347385569559*^9}, {3.7382217512744827`*^9, 3.738221753034275*^9}, {
+   3.738227265618156*^9, 3.7382272830812607`*^9}, {3.7382283776489487`*^9, 
+   3.738228384563052*^9}, {3.7382285318009872`*^9, 3.738228531960734*^9}, 
+   3.7382438818428497`*^9, {3.738422550408177*^9, 3.7384225505752487`*^9}, {
+   3.738423434397541*^9, 3.7384234344990788`*^9}, 3.738442332473753*^9, 
+   3.746352332399502*^9, 3.752316055027153*^9, 3.7523165847842703`*^9, {
+   3.7523923548643837`*^9, 3.752392356846579*^9}, 3.752392434615747*^9, {
+   3.753099521334536*^9, 3.753099522168209*^9}},
+ CellLabel->
+  "In[195]:=",ExpressionUUID->"10803daa-9f1a-471c-aa65-34ff913d6e48"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{"myfR\[Alpha]", "[", 
+    RowBox[{"[", 
+     RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
+   RowBox[{"\[Alpha]", "->", "\[Alpha]val"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.753099694203515*^9, 3.75309970446832*^9}},
+ CellLabel->
+  "In[103]:=",ExpressionUUID->"53b43d2a-ed2a-428e-943e-7f7d9c19bc99"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"4", " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "-", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    SuperscriptBox["r", "2"], " ", 
+    SuperscriptBox[
+     RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+   RowBox[{"8", " ", "r", " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], "+", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["r", "2"], " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}], 
+  RowBox[{
+   RowBox[{"8", " ", "r", " ", 
+    RowBox[{"R", "[", "r", "]"}]}], "+", 
+   RowBox[{"4", " ", 
+    SuperscriptBox["r", "2"], " ", 
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}]}]]], "Output",
+ CellChangeTimes->{{3.753099691168735*^9, 3.7530997047765217`*^9}},
+ CellLabel->
+  "Out[103]=",ExpressionUUID->"3a36e02a-c368-4fc2-bbed-6ed18f084a54"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myfR\[Alpha]", "[", 
+  RowBox[{"[", "4", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7530997754579268`*^9, 3.7530997756443253`*^9}},
+ CellLabel->
+  "In[111]:=",ExpressionUUID->"dabee613-ede7-4bdd-8cef-6f4ea9b16fb4"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["2", "r"], "+", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "-", 
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["R", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"24", " ", "\[Pi]", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{"R", "[", "r", "]"}], "-", 
+      RowBox[{"8", " ", "\[Pi]", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+   RowBox[{"6", " ", "\[Alpha]"}]]}]], "Output",
+ CellChangeTimes->{{3.753099773073803*^9, 3.753099775970003*^9}},
+ CellLabel->
+  "Out[111]=",ExpressionUUID->"03295674-c070-4fb6-a734-2d5149963355"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{"myfR\[Alpha]", "[", 
+    RowBox[{"[", 
+     RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
+   RowBox[{"\[Alpha]", "->", "\[Alpha]val"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.753099770203486*^9, 3.753099770440819*^9}},
+ CellLabel->
+  "In[109]:=",ExpressionUUID->"398342f8-0562-42e8-a102-b66cdb9cf285"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{{3.753099768536496*^9, 3.753099770581808*^9}},
+ CellLabel->
+  "Out[109]=",ExpressionUUID->"7a47517a-080f-4dd2-8b67-42e39506d5a9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myfR\[Alpha]", "[", 
+  RowBox[{"[", 
+   RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.754135488808469*^9, 3.754135505284214*^9}},
+ CellLabel->
+  "In[203]:=",ExpressionUUID->"5fc1d1bb-76dd-4da2-8e84-059dc75e67f1"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{"2", " ", 
+      RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"2", "+", 
+      RowBox[{"16", " ", "\[Pi]", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", "\[Alpha]", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+   RowBox[{"4", " ", "r", " ", 
+    RowBox[{"(", 
+     RowBox[{"1", "+", 
+      RowBox[{"2", " ", "\[Alpha]", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"-", "2"}], "-", 
+    RowBox[{"4", " ", "\[Alpha]", " ", 
+     RowBox[{"R", "[", "r", "]"}]}], "-", 
+    RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], 
+   RowBox[{"4", " ", "r", " ", 
+    RowBox[{"(", 
+     RowBox[{"1", "+", 
+      RowBox[{"2", " ", "\[Alpha]", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]], "Output",\
+
+ CellChangeTimes->{{3.754135490385165*^9, 3.754135505943972*^9}},
+ CellLabel->
+  "Out[203]=",ExpressionUUID->"8a96d162-096c-4b91-9811-2ae502f23d52"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqsa1", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"myfR\[Alpha]", "[", 
+      RowBox[{"[", "1", "]"}], "]"}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "==", 
+      RowBox[{"Limit", "[", 
+       RowBox[{
+        RowBox[{"myfR\[Alpha]", "[", 
+         RowBox[{"[", 
+          RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+        RowBox[{"\[Alpha]", "->", "\[Alpha]val"}]}], "]"}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "==", 
+      RowBox[{"Limit", "[", 
+       RowBox[{
+        RowBox[{"myfR\[Alpha]", "[", 
+         RowBox[{"[", 
+          RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+        RowBox[{"\[Alpha]", "->", "\[Alpha]val"}]}], "]"}]}], ",", 
+     RowBox[{
+      RowBox[{"myfR\[Alpha]", "[", 
+       RowBox[{"[", 
+        RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], 
+    "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.753099658493163*^9, 3.7530996871442842`*^9}, {
+   3.753099720910987*^9, 3.753099818904805*^9}, 3.753099884245976*^9, {
+   3.754135508510499*^9, 3.754135512159547*^9}},
+ CellLabel->
+  "In[204]:=",ExpressionUUID->"588f20c1-c3ae-4b02-bc1e-99e9e1c62fd0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Rho]c", "=", 
+   RowBox[{"\[Rho]max", " ", "*", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", 
+   RowBox[{"10", "^", 
+    RowBox[{"-", "5"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pc", "=", 
+   RowBox[{
+    RowBox[{"eqEoS", "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"RicGR", "=", 
+   RowBox[{"-", 
+    RowBox[{"Rationalize", "[", 
+     RowBox[{"8", "\[Pi]", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"T", "/.", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+           RowBox[{"eqEoS", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}]}], "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ")"}]}], 
+     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"eqsIC", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+     RowBox[{
+      RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"w", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"R", "'"}], "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"R", "[", "rin", "]"}], "\[Equal]", 
+      FractionBox["26121", "32688326"]}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"myeqs\[Alpha]1eff", "=", 
+   RowBox[{
+    RowBox[{"myeqsa", "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+     RowBox[{"Max", "[", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], ",", "0"}], "]"}]}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"prt", ",", "\[Lambda]rt", ",", "wrt", ",", "Rrt"}], "}"}], "=", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], "/.", 
+    RowBox[{"Flatten", "[", 
+     RowBox[{"NDSolve", "[", 
+      RowBox[{
+       RowBox[{"Flatten", "@", 
+        RowBox[{"Join", "[", 
+         RowBox[{"myeqs\[Alpha]1eff", ",", 
+          RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", "rin", ",", "40"}], "}"}], ",", 
+       RowBox[{"(*", 
+        RowBox[{"Method", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{"\"\<ExplicitRungeKutta\>\"", ",", 
+           RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "8"}]}], "}"}]}], 
+        "*)"}], 
+       RowBox[{"Method", "\[Rule]", 
+        RowBox[{"{", "\"\<StiffnessSwitching\>\"", "}"}]}], ",", 
+       RowBox[{"AccuracyGoal", "\[Rule]", "16"}], ",", 
+       RowBox[{"PrecisionGoal", "\[Rule]", "13"}]}], "]"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dom", "=", 
+   RowBox[{"InterpolationDomain", "[", "prt", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"dom", "[", 
+    RowBox[{"[", "2", "]"}], "]"}], ",", 
+   RowBox[{"0.5", 
+    RowBox[{"dom", "[", 
+     RowBox[{"[", "2", "]"}], "]"}], 
+    RowBox[{"(", 
+     RowBox[{"1", "-", 
+      RowBox[{"Exp", "[", 
+       RowBox[{
+        RowBox[{"-", "2"}], 
+        RowBox[{"\[Lambda]rt", "[", 
+         RowBox[{"dom", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}], ")"}]}]}], 
+  "}"}]}], "Input",
+ CellChangeTimes->{{3.7492886713814096`*^9, 3.74928870063199*^9}, {
+   3.749288736034163*^9, 3.749288736342039*^9}, {3.749288792136807*^9, 
+   3.7492887924463863`*^9}, {3.752316181772462*^9, 3.752316197636197*^9}, {
+   3.752392380535383*^9, 3.7523923841130867`*^9}, {3.7523924158235893`*^9, 
+   3.752392415909766*^9}, 3.752392665119565*^9, 3.753099528534545*^9, {
+   3.753099605123693*^9, 3.7530996113942747`*^9}, 3.753099830509193*^9},
+ CellLabel->
+  "In[125]:=",ExpressionUUID->"deb4f4a6-7de0-41ed-8f31-0ce2cff821e0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"40.`", ",", "2.130913647887629`"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.752316090814733*^9, {3.752316182445224*^9, 3.752316184659264*^9}, 
+   3.7523162879370747`*^9, 3.752392386246605*^9, {3.752392417369454*^9, 
+   3.7523924371665983`*^9}, 3.7523925920823593`*^9, 3.752392666871985*^9, 
+   3.753099532431177*^9, {3.753099605889971*^9, 3.753099611841525*^9}, {
+   3.753099823074704*^9, 3.753099831196504*^9}},
+ CellLabel->
+  "Out[133]=",ExpressionUUID->"78c3d983-f185-4760-b6db-de6ce6b016a0"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"Rrt", "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "10"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.753099843453477*^9, 3.753099862768662*^9}},
+ CellLabel->
+  "In[136]:=",ExpressionUUID->"49d16914-7589-487d-95da-10642445b704"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJxTTMoPSmViYGAwAWIQvX3fOVe3tKd27mv6Qtz0veyXBHB6TFbYaQ/jZ1p+
+WGercBLOD9yxRXSq3i04f7q3lQ9D8WM4v0Pjn86JdS/h/FjXrZNfWHyA893d
+eZJWJXyG8y91m+/lOfMNzpc7LqJRof4Lzre6LPREwfMvnP9nQpGYaTiDA4x/
+WCEn+ccbRjj/1Wo7iwNVzHB+UkR1cIQWK5zvlOshzr+XDc4vXlyvOK2QA85n
+udq/WVGOC87/m2fw7vRabjjfXcs63y2eF87/6Xttxv3PfHB+3cncFpVQATh/
+w8uYhmgdQThfzG7KBcWvCL7KYgaXC+eE4Pw0m63cfLOE4fyI4DBxv0QROP9z
+lY5bmaUonH/omtdJXWYxON/SeV7+2bsIfoLuvcj8LeJw/m7vtBkLaiTg/P1V
+yr92hkrC+d/vamxIUpCC8+/vk1rF+xzBz9/geHzBPmk43/jaBovD7TJw/gKe
+0LNnE2XhfMdyx23punJw/qR4qcfMXxH87ggN446z8nD+Haf9r896K8D5xx+2
+nPfeieB373e4ekpFEc7P3K7QKtiJ4M82n+125iuC//yi5Sa/aCU4n3v1OftL
++xD8Zp5/905qKcP5oh2BGp39CL6y3Z4JR44j+IZf1H7+/4/gAwDr+kV1
+       "]]},
+     Annotation[#, "Charting`Private`Tag$19743#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 10}, {0., 0.001598185235915721}}, {{0.00001, 10}, {
+     0., 0.001598185235915721}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.753099854871503*^9, 3.753099863211137*^9}},
+ CellLabel->
+  "Out[136]=",ExpressionUUID->"2505ebaf-6b4f-4c90-9ce0-e64c0d39e1d2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["myeqsa1"], "Input",
+ CellLabel->
+  "In[145]:=",ExpressionUUID->"3fe1304c-9b89-4b7a-b9ab-b09b8d69a3b9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "-", 
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{
+      RowBox[{"8", " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["2", "r"], "+", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "-", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", "0"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.753099894879567*^9},
+ CellLabel->
+  "Out[145]=",ExpressionUUID->"a792cc4a-a25b-4fb6-96b1-e4acc29fb63a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "40"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.753099932119272*^9, 3.753099940564345*^9}},
+ CellLabel->
+  "In[149]:=",ExpressionUUID->"03268e9c-ee27-4b43-9ab2-a4d7842b6d48"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJxTTMoPSmViYGAwAWIQvSxGetKPdc/slnZcDXfT97LPrXizXkzhpj2MH/Ts
+MwODwks4/1qhyKsyvV9wflFTdtvHImYHGN/k27ytO9dxwvnyWROaHloIwPm2
+cbMrFicIw/n17Wf/sZ4Rg/PvHX0xuVBdCs4P5fQrl/KUhfN/OOR+NQxXgPMv
+1UeEfX2jCOdbe+6w21ulDOebrdXOD9VShfP3Ch9x49mrBudfEylIm1yoAefX
+LZjAKy+nBedv0rsWfXKtNpxfEa7/yTleF84/1bRW/+5nPTg/fMn8KOVQAzh/
+whmlxCgdQzifv8xit8JXBP/6m3DL8+eM4PynTzi5eWcZw/lWSmUKvokmcP5N
+nTeRpZamcP6+HV+e6TCbwflvBNlnnLmL4CduuNyTt8Uczpe5YHR1fo0FnK+w
+d7bjzlBLOD9LezpjkoIVnP/nng8r73ME/3o8j+6CfdaI+EiMW3Go3QbOTzLc
+5X420RbOF2paYZWuawfnc0oEFjJ/RfA9q5nPtJ+1h/Nf6KvsPevtAOdf6PBe
+5r0TwY9hCdh4SsURzu8+IJsm2IngxyV/0DnzFcG/6tYz1y/aCc5/78NqcGkf
+gr/OsvnKSS1nOF8g/ZRSZz+CX7b2R++R4wj+7c9qP///R/ABveZiAw==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$24062#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 40}, {0., 0.00159818524783665}}, {{0.00001, 40}, {
+     0., 0.00159818524783665}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{3.7530999410016327`*^9},
+ CellLabel->
+  "Out[149]=",ExpressionUUID->"34efc7d2-34bf-431b-acdd-11fe71b5d879"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["26121", "32688326."], "-", 
+  RowBox[{"7.", "/", "10000"}]}]], "Input",
+ CellChangeTimes->{{3.753100066867094*^9, 3.753100078711709*^9}, {
+  3.753100157636992*^9, 3.753100163925034*^9}},
+ CellLabel->
+  "In[173]:=",ExpressionUUID->"abc693b0-13f8-4ac8-883d-866e0f34ba80"],
+
+Cell[BoxData["0.00009909261795786062`"], "Output",
+ CellChangeTimes->{{3.7531000673255663`*^9, 3.753100079140263*^9}, {
+  3.753100159149988*^9, 3.753100164134227*^9}},
+ CellLabel->
+  "Out[173]=",ExpressionUUID->"e54c99c9-6ba9-4903-8cf4-ed64f41b193b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ShootingNStars", "[", 
+  RowBox[{"eqsfin", ",", 
+   RowBox[{"{", 
+    RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", "4", ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{
+      FractionBox["81646663", "81720815000"], "+", 
+      RowBox[{"1", "/", "10000"}]}]}], "}"}], ",", 
+   RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+   RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.753100092630625*^9, 3.75310017940173*^9}},
+ CellLabel->
+  "In[175]:=",ExpressionUUID->"54bd19ea-cc1a-4f68-9787-9eab338ae319"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"n: \"\>", "\[InvisibleSpace]", "1", 
+   "\[InvisibleSpace]", "\<\". Redefining lower limit as: \"\>", 
+   "\[InvisibleSpace]", 
+   FractionBox["179637489", "163441630000000"]}],
+  SequenceForm["n: ", 1, ". Redefining lower limit as: ", 
+   Rational[179637489, 163441630000000]],
+  Editable->False]], "Print",
+ CellChangeTimes->{{3.75310010092662*^9, 3.753100180036623*^9}},
+ CellLabel->
+  "During evaluation of \
+In[175]:=",ExpressionUUID->"0d88b026-45c8-488f-9687-886988455cb8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   FractionBox["179637489", "163441630000000"], ",", 
+   FractionBox["179637489", "163441630000"], ",", "1"}], "}"}]], "Output",
+ CellChangeTimes->{{3.753100101267743*^9, 3.753100180047147*^9}},
+ CellLabel->
+  "Out[175]=",ExpressionUUID->"c0b0f92d-47ec-4d96-bd72-58854eb7c443"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqsa1", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"myfR\[Alpha]", "[", 
+      RowBox[{"[", "1", "]"}], "]"}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "==", 
+      RowBox[{"Limit", "[", 
+       RowBox[{
+        RowBox[{"myfR\[Alpha]", "[", 
+         RowBox[{"[", 
+          RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+        RowBox[{"\[Alpha]", "\[Rule]", "10000"}]}], "]"}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "==", 
+      RowBox[{"Limit", "[", 
+       RowBox[{
+        RowBox[{"myfR\[Alpha]", "[", 
+         RowBox[{"[", 
+          RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
+        RowBox[{"\[Alpha]", "->", "10000"}]}], "]"}]}], ",", 
+     RowBox[{
+      RowBox[{"myfR\[Alpha]", "[", 
+       RowBox[{"[", 
+        RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], 
+    "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.754135655776223*^9, 3.754135659171885*^9}},
+ CellLabel->
+  "In[227]:=",ExpressionUUID->"eb24cc85-33ff-4cde-97c1-2c4f28d24c4f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "100"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", "myeqsa1"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rfin", "=", "50"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{"myeqsa", "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"\[Rho]int", "[", 
+          RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], ",", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", 
+            RowBox[{"-", "15"}], ")"}]}]}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", 
+          RowBox[{"-", "0.12"}], "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"R", "'"}], "[", "rin", "]"}], "\[Equal]", "0"}]}], "}"}]}],
+      ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"test", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", "4",
+         ",", 
+        RowBox[{"{", 
+         FractionBox["26121", "32688326"], "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "False"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "0.5", "}"}]}], "}"}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.7522349692680473`*^9, 3.752234979424655*^9}, {
+   3.7523867563080053`*^9, 3.752386768583918*^9}, {3.752388732331579*^9, 
+   3.752388732513188*^9}, {3.752388784934883*^9, 3.752388785376953*^9}, {
+   3.752389054149549*^9, 3.752389188214138*^9}, {3.7523893718312883`*^9, 
+   3.7523893799711637`*^9}, {3.752409177817237*^9, 3.752409184840012*^9}, {
+   3.752409285780797*^9, 3.752409298820129*^9}, {3.7524093328698797`*^9, 
+   3.7524093475679197`*^9}, {3.752412524450931*^9, 3.752412527166087*^9}, {
+   3.7530983919989443`*^9, 3.753098392729731*^9}, {3.753099873951865*^9, 
+   3.753099907874902*^9}, {3.7530999612954473`*^9, 3.753099961420526*^9}, {
+   3.754135557557078*^9, 3.754135557777893*^9}, {3.754135626708253*^9, 
+   3.754135627063176*^9}},
+ CellLabel->
+  "In[229]:=",ExpressionUUID->"10b8fd9e-a7b1-4c53-a354-fd3124d392fa"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2486392, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               10198335557995508118424320319548569230795516116122829922784, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+50.0000000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 10198335557995508118424320319548569230795516116122829922784,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2474416, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               10198335557995508118424320319548569230813962860196539473280, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+50.0000000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 10198335557995508118424320319548569230813962860196539473280,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2485832, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               10198335557995508118424320319548569230832409604270249033936, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+50.0000000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 10198335557995508118424320319548569230832409604270249033936,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "50.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2026528, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               10198335557995508118424320319548569230850856348343958576672, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+50.0000000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 10198335557995508118424320319548569230850856348343958576672,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", "0", ",", 
+    FractionBox["26121", "32688326"], ",", "0"}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.75240930124366*^9, 3.7524093454016953`*^9, 3.752412493883439*^9, 
+   3.752412605570166*^9, {3.7530998784475813`*^9, 3.753099911812893*^9}, 
+   3.75309999361088*^9, 3.754135560012438*^9, 3.754135629442389*^9, 
+   3.754135677640867*^9},
+ CellLabel->
+  "Out[231]=",ExpressionUUID->"8ab1fa9a-5564-4c62-b6d2-68b4ad665913"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"testmax", "=", 
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.752392492210472*^9, 3.752392494798365*^9}, {
+  3.754135582484062*^9, 3.754135585051469*^9}},
+ CellLabel->
+  "In[232]:=",ExpressionUUID->"900a3dfb-2766-4cfc-8555-8d1add90bc26"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "50"}], "}"}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "2", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "50"}], "}"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.752392390635232*^9, 3.752392444836948*^9}, {
+  3.752392596339136*^9, 3.7523926433977013`*^9}, {3.752412607908022*^9, 
+  3.7524126088096123`*^9}, {3.752412796766542*^9, 3.752412797523608*^9}, {
+  3.754135592735467*^9, 3.754135594695869*^9}},
+ CellLabel->
+  "In[233]:=",ExpressionUUID->"7f308989-28a7-4778-a211-d16e67373d90"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJxTTMoPSmViYGAwAWIQveCZSVinzHM79zV9IW76Xvb6+k9/Cmbct4fxf92I
+vvsr/T2c/yCvWoAzlsEBxve5dH/NGn8OOP/4dpNyY14BOD+xqNBH0l0Ezk9Q
+8jt82kICzg/ft+gdW70MnD/nt8u2ZREKcP6BSRxuG3yV4PwH8hwG/3JU4PxN
+y69nGWWowfm/aj/45URqwPl2Xq69r0q04HxTwSwZ/xwdOF/j3CnWH716cP6J
+HCufy0EGcP7V/O975/oYwvkPcy/FdEUbwflumaIqWRHGcP6K+DKJnCwTON/1
+b/XDgnJTON9mxstLGUVmcL6BXunHpiZzOL/uYIbFhAYLOJ/9D0PIgkpLOL/f
+cPucS+1WcH5BylXeH83WcL7fJME19lNt4Pz09E9yXQtt4fxblta7js+2g/O9
+2Bc1qa+2h/O5MndY2oY4wPk8SkUyGRcQ/N4bu0RVwh3h/N295otvXkHwMxyc
+3RVineD8gx+b6hPuIPg7vokoKUU6w/l6P01vlzxA8AN+dWkcjHOB8z/9yOuZ
+9xzBN/ReGvU31xXOl53Dvzf0NYLf8YrDzL7YDc6fb27mrPQJwQ+5sXVXW547
+Qn3ZEY+arwh+hjB7dnaxB5wv9ch649adCP7pDQXf//9H8AHgi0dz
+       "]]},
+     Annotation[#, "Charting`Private`Tag$21653#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  ImageSize->{520.74609375, Automatic},
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 50}, {0., 0.001598185235915721}}, {{0.00001, 50}, {
+     0., 0.001598185235915721}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.752392401724881*^9, 3.752392445011245*^9}, 
+   3.752392643855624*^9, 3.752392723236087*^9, {3.75241260569595*^9, 
+   3.7524126092609243`*^9}, 3.75241276478483*^9, 3.752412797730137*^9, 
+   3.7541355950086*^9, 3.754135639013997*^9, 3.754135680334259*^9},
+ CellLabel->
+  "Out[233]=",ExpressionUUID->"6eeaa502-af05-461b-9d2e-2a8040d1a9eb"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV13k8lF8XAHDJWvyyZylZKlpskS3mHGaemUm2rKWE7LImaUHZKhVRSCUp
+aUGSshZJUXhmKtEu2qmUZE/13vcvn+/HMPeee+4556pvjnDyFxQQEOicISDw
+/5+Fn4zc0uZ9ZvwVEL8WuUTY8t8c7fclYUfg0rpDX3YqRjM2r/6z9n7IGag0
+fe00LneMsZkyPLHxyEWwGmJyqO3FDLlPgWmuwVdhY8fWPytlrzN8mXyLi2ev
+Q/c0nxfLa2DcOtZ/oyijBq5u0vnza1sLQ+6DoE7h7ptw489dA6YRjxFmNL84
+P+g2JFX+q3WRecLwbT6VQZfcgcYn086yms8ZR75carc5exd+uVR4etI9jFsy
+1SJtx1ugjK3ipyT6jtFvfteak3EfXpYaNa/e9pEh5/sooSWlDQ5LvW+6rTPA
+wEM99czdHdC04j/33YaDjBOvxldg0EO4MKae9Vb6F+N9YpKJ19VHsDDhY6HW
+/lHGpHyaa0HJY5COzgvI1JhgLGLkZs07+wTEpfZPtXX8YVh05l/dkN8FC+2z
+PHmhAuAUUMQ7ebwbwl/Jz74vIggJGRXiShnPwEXDl/E9WhiyNWq01qU9h08R
+HTdVOKJQUt1AHU95AT9etsd46IjD0zftifK7X4GNq2P6bENJ0NP7OCkd1AtZ
+KnvenJaWhaK3o4cuGfRB4TxNm50cOShfNqnMvdoHPK9F0LNPHu7d/me6v+Qt
+BLqtqGNoKMLQZ4kY4bPv4anM18zAjvnw20BKqFj1Axy4s2Fwn90CEImTPcbK
+/wAcptbG46FqME9K+Vry8Y9gP1+t5ZCIBqw21RqckfEZ8u+EPL8QvQhckpbG
+nZ3dD9tfbRZ/7rEYvGmd2VZp/TCdYuzDY2vBdm+jJXtTBsDmw/E4IZ0lcO6A
+lf/fXV8hI/yG2vkVOjD1fEPPVOAPKDE/G+0sbQipat+Tlg39AI34ZeUKtYYg
+ZoRyuhZD8GY65+kFHyM4uruzbtO9IRhLYw/oNKyEC7PGhZq6fkL4Scvepzmm
+wNfGU0mjvyB2zceVR3kMOGYr/v2k2QgsNNvornkWYF1kJ16PH4H1PPVzTasQ
+3tX4fXovPAqlmVtvrlWwgjF2mgGlMAadRklx+NoaVP0774uaTMC48GwZh1I2
+vD9wSllt9wRwC5p945dx4FKZX5jp7QmoU+0VlrnCgRUjYzLBnElwbjBZGX6D
+C+xklU3t7lPg71cmP/zEBiLO+o0c3jEN3H+K8YvdHKAvfLeUuKcAWpXsnTx5
+3QXCBQYLnsQJoJDU8HcXIVeYztqkU5AvgPwYxX8lrq4wt8rKxvC1ANZ4OYUu
+m3IF+9+iKZ4bZuBlqzWb423c4eb+7PFr6wVRQb993E/MA3ILr7zxcBPCxpyH
+/haTXrBwxYKwRduFcEBxZOqmrjdU3s38/SNHCJv9Iu5o+XgD71O0Ymq3ENZL
+ZHIGWr1BSMfc6aqLMFZYpi6Ry/WBqLrWlpnOImgrw+8QY/qCbWdvWZmDGAZr
+z9kf/CwA7kx8zHkWLoZWjOIyRZlAMF7wLUEwQwwv/9WtkbELBLXQCcd1tBhm
+FdXu+Hw3EEaEpUdnrhZHt89v8mWrgiDfzNpyg/UsXNAzuyemOAQGC8/zxFdK
+IDWy6LJnYzhsvl9SbeQigXFBlvpBghHwfLDijFe0BLpw1fY3sCOg2bwhquqa
+BMa0RZ3lPoqA3K5ueR9dSfSWNzSPjI4Ehpjoplqt/3Dfj5axWVlRcL/GKNZQ
+UgrzEg09VvdHQ2VJ2n8qqlIoyJyrxZLZBvmn3xQL6klhvovmQIjFNohMPtD1
+2FEKT2CSjUXWNlB2eG0QmU0+v2h663eLGAj/lPytTEUa6/wNeo/kbwc5+Sc+
+i5fKYOqtLIW7cTvBZ2uUrRJHDr3DbPvuN+0BtY+2Cn1uciinGmphMLwH+ty1
++y4EyKF/7TKvPum94G3ZG220Tw6rt+coXmYSi9mdcmiRwzcnO7wXXCIu0P6S
+ypTH8xKiM85sSwTv9t79w6CAY0bWVv0qyeCtYX+3w1QRPVzXHj1StA/cG899
+F9kzDyfUvHLy7Y9A/m9W9YV1aqi9flh5Zk42NB0VY1fYaeDVE7D+UusJ6Fsg
+pv83dCGqrXjWdlmkECovPgtZEbQYw4MXoqBVEUzFD9mHrtfGdTrSvORrF4Bh
+Q6V/2bYUD40JgVx9CayUDpnnELoc+2Lq16reKwdtfrvwRLouyvuW6RXXXIMH
+oea2T5z0sXe/zGXm4hvQHTHecNrWAK171yOmVcPbsM6NBzeswE9rjsy4wKgD
+drD8wpB1hshJNVuj2XcTLnltVwwNMcJ/to/mKz9pBOrP7reRsSvRz0lAtO5T
+E1jkDXQGbTVGsdinL0PWNoO+bszPpCQTDP+p2uTSexcS7gSZZu41ReW10lde
+ObeA6LSAS+FOM9R/UHPFsrEVjhjU5HfuN0eegOdnLXgAkX7dkhPJq3DHU/sP
+v/PawP6odBnkWODFZIOxlMl2CAwcVj141hL3vVvUFG9IQ8VBL/noYkvM01dj
+tJrQMHWFnr3xsiVqvl/mLmFBQ8bIhQmda5ZolbnMIYtFQ3Xihs7HTZZ4VWO2
+SIIrDUL591KV+iyxoOK6QN92Ggof5X67pMrAtk9rJK7V0PDl18z3WRoMjDHf
+tuTiTRqM5ka92LWYgZ/DJfeevE3Dfc81rba6DCzMQnrHfRq+f/l3ZsiSgUfm
+nEmSfUaDpXCws6knA8eEosIbR2l4abaq/v4pBjLmDvg/1ueBVPdGM+FCBn47
+tn9DlREP2JEJtdbnGXix5m5qjikPrl24U91QxsBXO6t9bZAHB2S51683MDDg
+i1JVqgMPjAddys70MjA74L0cI4wHRwvDC2I1Afe8UHySUcyDB6sy51dpATpu
+Xfnk+yUe/H16LX94GeCshbFONmU8CJYcPRlmBGg/6HXjVyUPcNfu474U4NTX
+zbZzmnjw3flApkMg4JWbbU99X/DARvRcklYpoK9Iwzt7MT7EWPvz510FPHUm
+Z/m7WXwojNdWlrkO+P3Ao5pIST6M/yq/Nl0P2O72bNseGT6c77vZ97gdMDPS
+oWbzPD48VNmz/D4f0EtSbNVDVT5MuVnvuNUJuCAzSNFEnQ+OvAdzLr4EtFvS
+fHdiER/+1HUz4r4Amph64So9PmiP5h2M+g64RUysb7sBH1z0Nz4NGAZctavi
+R7EhH0ouvAtbOwWYkhDH7THhQ2lbrL2sMKK72M+4aiBfHLh+RFIU0VR1zD7D
+ig9PhVadFBNH/KJ/XNuDyQdB/PvxjwTi7tKzvnw2H9ZVp8T3yyHaOEnOWm7H
+J/EJ0HyvgCjfyl960Z4PyT85bT2KiOaLE1bMdeRD+fLZ8k/mIc6d4e731IkP
+rPZv9TxVROq1dMsiFz68COR7P1BDdMzu2RniygehoqyyhoWIkkOH13S58+Ek
+RjvVLkYU/adUMLmOD3pvXCYqtRHnD4tXyHnwwUNJkXVpOeINZ8W45Rv5cO1I
+waujRojtjS7ZH734wNbZm5hujJijqtd805sPr9t9tA6YItbcXr33gA8fxEQW
+RcdbIBqa28qK+PKhoEhEaQcDsTnys3INsaFVf+NWRLxatUTRy48Pm+JKZwWx
+EGfcyXPP9ufDiFJ6xWY24oBUaId6AB/SasLdPLmIDrNW5F0gVnV1nHa3QTwR
+FvRUI5APN4YNzjnZImZFBxfkEttkynLt7BGnZMPEBIP40KszOshxREzUP7Dc
+n3hbx9Nj1k6IgYJlGk3Es4JrzSxdED8svigoG0zi78D8qOOG+GOxWcJG4k5j
+fqbqOsSiFxyfAuLq+est5nggqo+/vvOc+KTQh8//NiB2p/VVzQ7hQ8LX8GND
+nmR/s5WdTYg3d04y3nohOkvqXd1AzK5L+fLYB/H7+6LeHcRLC+fkNvuSeGa9
+mswg/m//Savr/ohS/QqyBcTDYYsGiwIRi3Nj8ALxU5eKvOxgxIJVo7kXietX
+rWKlbkG03Rm17BxxgUbrj5gwEr9t52VyiZPE154KiEBc8HiRTzJxwNArtnsU
+Yn/ilmUhxDbPAoY50YgSMW2pNsS6jT9Pm8Yg6s6KSllILFMct3pJLOKt4ahV
+E2S/Y4dER5V2ImrsqGtsIX659WjhrN2IB3fJaKQTN66fb/s7DvG/mYt32hOf
+w0vjXxMQ3+7d9UycOOS/RnteEqK+lOt4OIm//Sh3qiEF8VKTRa8i8YrXT4rL
+9yH6HdNWaSDnOXV5YPrIQUSzLreXI+T832Ruu7T3MGKna3/SAeLm2H/OURmI
+YqfntSsQH6LkS52OIv7OPRqvSfIpcnmhGzMbMbZa+r9zJN9cZJcJGuUiTgiW
+p6oQz3uL6+VPIuapWUX928yHsrhQ0ednEW/O3qqZTvI703e88kERYtP3kGcf
+SP5vs0naVFeM+KBJ5o8JsYViXtXJy4g/c4z6Hnnygb5+19fzGuKzWt5jPrlP
+FSft59hfJ+fpatI3kzg78UU9owoxYmP0O6P1fNjo8ENarQ7Ryvu3wCFyP799
+UW5614T4mMV0FSf3WUJj67ygR6Re5LMCN9jy4RPLXSK5E3Hs5/UoXMOHpkCL
+6dNdiD2an/jqNmR9V0ReP3lO7nveovsvOOR+mp46BW8RFXxOHVYj9afM4Z7y
+3GFyXyqvd8w144NtvIJSq6wVvusvLZiryYf05/XyC92t8E0496zBMA9uppsU
+veiywjlO8+DdUR7su3W/YeqpFc54baG5NosHjl/dn6u8sMKM5zq/mo7w4BN3
+h+SmHitcvcbSq+gw6UdCdbHvPlrhgoI/p6L38SBgl7nt1zErrBf3Ws7axQOZ
+QMvRaUVrnHAZcCzdzIMgZHLUPK1RWDFqx35jHujCQu58L2u8dWVE324lD35Z
+Cq9W9rFGlZEb92VJf0tYdd9Gzt8a77UaHCky4MEx4zX2YmHWuHJaMJG3nAeN
+y51dh+Ks8XgG3WqjyQM5JV/fpnxr7GwvPjQgxYM7P5P2eL+2xiUpLMsr32no
+MpPc5/zGGj8+H11QPkhDf+Lxw+w+a3wcu5u++o0GKZmyE8s/WONAKJVU9YUG
+7xXd1ye+WmPOaOGG9k80/N2q1Z/52xo36bw6pdRLg8VIh+MdZSb6Ux3Cdo9o
+cLRwc78xj4mXT4+1BjykwS+lz/OiKhMPZIvaJvJpOCw3GpKuwUSlA/PP1tI0
+vDJSTV2/lInfq39G6bfRsCsmsu6nGRMTL8ulspppqB2T09BYz0SDzhdL/tyg
+oXnXZChsYGLpop2F84npvz01Gz2ZOPmncoxxnYY+kYt2x32YKJs72yrlGg2i
+c812SoQwMdamn61UToObieejsV1M3HnU9kPoRRp+xRYndOQz0bhn9+PakzRM
+/05r6y9g4gcFiY6REzSI7A2XEznLxAQjodMGxMoHTEqwmIke4mvarhynwTqv
+rbvqChOlmqQsK7JpyKwdXF7YyEQViUrvngwadCdXvtrWx8Q3mecUniXTsMJu
+i0T4OyYGPYgcNyU2OVtoGfiB/H77g4xTSTTg6tmF6/uZaJEQ0Lc5kQanE31+
+jCEmXgk+N2sqgYbtZoe+iwqw8I1agqvNLhpu7+ybcWoBC0+33DwVFUXDPZ68
+YbY6C8WeCv4eiKThgfoav3RNFgaZHpztS9zZVtW6R4uFDsVV4B5BwwelQ4f8
+9FioNUdkiBNGg1j9SnldYGEpV8DOJpic59RB7TubWJhj9rL3sQ8NNgeVCz54
+s/D+ix+n3Igp5RJZMV8WPlxuq/HamwZz87a/9oEszJyUTR/womHhLtHu1xEs
+3PI6uVtyEw0Tk8mJE3tZuHSlm2icBw3DabLjKsksMj9MOUoSDyoVhUIqWZ9i
+j8+Z9TS8M2t235fGQl39s89b1pHz3imgK3eUNFTtX3Lz3Gk4Oxn3Uq+IhZU+
+uWcGnWnIT5NwdC5m4Ya7EpxDxLlK+S3bL7Lw6+snlUuID5vdrGgoZeEFufyn
+QU4knjsn9625wcJZu6RthhzJ/iZjDANbWLhYla7VtCfrmwg/XPCZhYEa1nEq
+q2lY1XlRtHaAhdm768o7uTSklPYlPf7KQqVBiRMHiRU2Oe0UGmLhjCXF2dMc
+Eo+7KwNCJli4s1RHc4BNQ1L6NBiLU/jZJ3rXBzJfdwSsvOkwm8KhwvtzLxLL
+YbhxsCSFvO/bQ0KILwz3Ls+XpnBT+mq9X0wa2t3vKgkqU3g7a/sKSWIZjYO/
+eEspZJYOT2+2omHD7+bwz8spjLOu7tEnPt/1e0BAj8KXh4Oj/iENxvvD+gwN
+KUzPE7lWQOzxzZF3YhWF0bfHD38EGopa0rjXLSmcrS03o474W0HzXXLKmGgx
+vDidOGGtUf0/JoV9gZ77TYjPVc+96G9LYaPE29xsBg1fjzhq7LGnUKl9IjuM
+2Cg47XSeI4XZ5peZHOJWld/HOlwonF5nVTltSd4Le9/sNfCkcGvW2kcRxIYe
+c6dtvCjcfUbPwZ44ztAx1s+H7DclKV6H+L9Pd8KO+1OoKDP+eZC8VwzWFHv8
+CaPwy4DO0HbibSO6t4YjKLSas/nuRuLa07Xz+6MorEiw1WUS41BHX2cMhVWh
+j9ulie1zhgMuxVO4/HWsSvUqGo4y4h6c3kPhm07zy4XETz8LLz2WSOFPsYe8
+Q8Se5kqD8akUDqhPvfQlDu2FaOd0CgW2MQVViCsOtHVxj1DodmoHcxbxiIGz
+MSOLwo3Gp5WnzGnYnRIwqZ1DYakm++Ar4kadIQ/V4yTeC49p8IgFn+28JXuC
+QrsRb8fbxAeXpO/5m0/hWW+p0GJifqfC218FJD9K6tefIJaOK7QeKKRQTD32
+dTqxy6Kl59+co9BHeelIEnEe/7pw13kK3w7WFO4gfh1rGdh2gcLcYaF34cRq
+6vcfNF6iUDd5tMaf+GL0y0OXyyg0SHZRdyX+Ms9vsKCcwh2L0m/YEeu2Dtpn
+V5B8WvfnFZt4a0RsRVol+X6zg8eRuFpxhsyeGxTeeKv42Zx46s7B6G3VFGaE
+Z7SvJLbcItcdXEvh6t8PrQyI98oVGHvVk/woarbVIb7XoJXncotCjeQ1X5cQ
+iwVem1zdSOH5Kof5WsS2Uqs2QBNF3kc33i0kzqy7d8uomUJO0qZVmsRPNtur
+Lr1H4T0XQy0NYgWJ53sWtFK4Rk/xgjqxR5XPW7kHJJ7vhmv+74JNX61ntVPY
+uvryxv9//p1ozPl/HSSfQT37//9v8bW/wqM8Cg+dwU2LiEM8DgR+eUihHmuw
+/v/rKZ8p09b7mMIrYpIlS4l/lp1a2v2EQpEHqct0iY3cFh1u76bQ0tMSVhDv
++Fc+ePsZha5FSh+NiW9dMnWoekGhY4zAfAtiAafmipJXFOqXP/tkRcz6vUam
+sIfCce1Uay7x/vPd0Tm9ZH1N3/UciNvtvLoPvqVwMGGq3I34v/F+473vKYz6
+mHF7E7FT4da8mI/kPqUd9Qkkzl09PRnymUIzgW/ZkcTz8+c0uH6l8Hi9+dUU
+YrfEX5tjBim8O9G3P/P/8Q14Jpbzg0LY/G3WaWIhgzMuXb8oFFW5NqeWmKGQ
+PPVrlNSf/CVZrcSxvwMKZScoLC9LvdX9//xp0f3mNE2h8+cAqTHihaUyR7f+
+pXDyUampKLkfmzLHTI4KsJG/wGWWEvFjj8bkx0Js/P3N8TKDuPaHnYqjJBst
+qLTOLOLhLoM7EXPYuHRdrPUl4mX18oFHpNlo/oj2uE1ckNJTyZdn480feik/
+iFOVwmzsVNk4039LtTu5741/HYdC1dg48nhJQDTxxHuj3MMa5O8L3RuOEIeW
+T7/tWMzG7R/2+bQTOzEP77TRY2Ne8ct4Dqk/h7UjF4QYsFG+pt4/iLhV0qUl
+zZCN/62UH0kjNnuuIt1mwkZX8TszHxKrhZVe4iAbjWIrv3qT+jeY2/6MtZaN
+dtTPu0Wkfi6OK4/3c2ajVkuC8ENib5+jmimubBydLP06Rdy1zCPi7no2vrkf
+VexC6nV904CINXlAPn65t2MOqe8HvogZQzQbN2z1fnDemuTTGctm8xg2Uty/
+158S/3TZam8cy8aSjIM64qRfeNx+FaCzm43N8bLtEcTLssuPqySzUWlDyAUm
+6Td8S5fJ8aNsfNjMeS5M+pXgrwOpv7LZeGVgYR4Sm1xqkP6Ry8aan6kfdhMX
+ymgt/XSSjQdC4zRGiKM+T3p0nSPx2vNc/yvpf3JZZ25VVLLR6appyi/SP7ns
+Lm7ZDTaus1IRNLGhIf63WPfFajb6PV44ezfxJ/+tgwX1bGypdG0UWkNDjTml
+mt7MxnrNnguqtmT9H77sCe4k++1RCQ8l/fmMiTFTY5iN/doOzAjS3zWM5bpl
+R9gYkXJtbTPxeaPhAOExNiabO72Xd6GhxKD8YP8kG2fbzcxsJK5etrizfAYH
+L2bISyq4kfligYLPKmkONn+5nNpD5o0p0bEEF30Otl7VGuKR+SVepEuKvYKD
+s9RTrQ3IfCMgXHnOxIiD4ZHP5XOIhQXDW5VNOagerAybyDwkNf1R8i1wMMhE
+/eQYmZe0hrrzwxw4+Cda3Bf8Sb1+XlW/L5yD9wzePNAPpYEn8z3zXCQHB9ao
+fLlCzLZbHNi4lYMVzucLl5H5zKQ5V3ZsOwe9NTk87XAyj5bFhvrv4WDEg8Ma
+S8l893aPmSork4N1FQal3G00hGs1JM6o5GBtV/ulkTiSL9vvceNGOehuKakt
+lEnm3b12wtvGOWhW82npKeKIQ0/vbJnkoJ3z+dIVWaQeFPabb/jDwaLKnMW+
+R8n9bZfQMRfm4hrh5wLtZN5tmu8qPSHHxW0rYNVVMh9P3Pv4ItqIi45zW8Ke
+FdEQJCu6ZUs0F1MGpPXy62h4U2facDqGi+9N2XsC62lw9g6Z8yiWi9PyNUGG
+N0k9ucK7bhTHxSWPlEV5t0j+cLKn/6RwcbtYSqRoEw13dqlnZOZy8XOvwte8
+VrL/d6uuVdVxcaWfiL5uF6lXB8Jm9t/k4vjtmVkS3eQ89M64KjdyUX5zT9pX
+4qHdglMJzVw8mTiTWfqM3F/5NmtuBxdXf1rRafCK9LPVbl0vX3NRQC7Ic8M7
+8j76sX+xZC8X1XN2mjLfk/6fW7cD3nIxvGWoZNkHks/v580//5GLSXsnXP9+
+pEE1/r1/2HcuDsx8crdkgIZsTfnaM0Pk+xNj1h8n7ynxdvaszmEuyhg770v5
+SuYDhZJy43EuevZeKfYm77GQhlcCwZNcFI3VyHMg77U+X0nnU7+5WIV31OEH
+OY9ZUMz7w8V5yfus9YbI/FgROf7vHxdlG8KnFvyk4X9eJlg6
+       "]]},
+     Annotation[#, "Charting`Private`Tag$21697#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  ImageSize->{520.74609375, Automatic},
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 50}, {0., 0.23762984152787409`}}, {{0.00001, 50}, {
+     0., 0.23762984152787409`}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.752392401724881*^9, 3.752392445011245*^9}, 
+   3.752392643855624*^9, 3.752392723236087*^9, {3.75241260569595*^9, 
+   3.7524126092609243`*^9}, 3.75241276478483*^9, 3.752412797730137*^9, 
+   3.7541355950086*^9, 3.754135639013997*^9, 3.754135680400257*^9},
+ CellLabel->
+  "Out[234]=",ExpressionUUID->"b35ddae2-8dc6-4c81-8c47-e8468c987563"]
+}, Open  ]],
+
+Cell[BoxData["s"], "Input",
+ CellChangeTimes->{
+  3.754135685053424*^9},ExpressionUUID->"b3561fee-e50d-4cea-b7c3-\
+2b9273c48b5a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "100"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", 
+      RowBox[{"(", 
+       RowBox[{"myeqs", "/.", 
+        RowBox[{"a", "\[Rule]", "\[Alpha]val"}]}], ")"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rfin", "=", "50"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{"myeqs\[Alpha]1", "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"\[Rho]int", "[", 
+          RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], ",", 
+          RowBox[{"10", "^", 
+           RowBox[{"(", 
+            RowBox[{"-", "15"}], ")"}]}]}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", 
+          RowBox[{"-", "0.12"}], "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"R", "'"}], "[", "rin", "]"}], "\[Equal]", "0"}]}], "}"}]}],
+      ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"test", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", "4",
+         ",", 
+        RowBox[{"{", "0", "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "False"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.7522349692680473`*^9, 3.752234979424655*^9}, {
+   3.7523867563080053`*^9, 3.752386768583918*^9}, {3.752388732331579*^9, 
+   3.752388732513188*^9}, {3.752388784934883*^9, 3.752388785376953*^9}, {
+   3.752389054149549*^9, 3.752389188214138*^9}, {3.7523893718312883`*^9, 
+   3.7523893799711637`*^9}, {3.752409177817237*^9, 3.752409184840012*^9}, {
+   3.752409285780797*^9, 3.752409298820129*^9}, {3.7524093328698797`*^9, 
+   3.7524093475679197`*^9}, {3.752412524450931*^9, 3.752412527166087*^9}, 
+   3.752420434053926*^9, 3.752420669342106*^9},
+ CellLabel->
+  "In[658]:=",ExpressionUUID->"d835b2f7-56ca-442d-a804-9d4ffa3d7f00"],
+
+Cell[BoxData[
+ StyleBox["Interrupted",
+  FontColor->RGBColor[1., 0., 0.]]], "Output",
+ CellChangeTimes->{{3.7524204367837*^9, 3.7524204573164253`*^9}, 
+   3.752420671527156*^9},
+ CellLabel->
+  "Out[660]=",ExpressionUUID->"82d00e69-3dcd-4f0f-ba2b-542468eec624"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"eqsfin", "/.", 
+    RowBox[{
+     RowBox[{"R", "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"R", "'"}], "[", "r", "]"}], "\[Rule]", "0"}]}], "//", 
+  "TableForm"}]], "Input",
+ CellChangeTimes->{{3.752420501750289*^9, 3.752420529540105*^9}},
+ CellLabel->
+  "In[661]:=",ExpressionUUID->"a05add30-20b0-4875-b868-8b9a483ddad1"],
+
+Cell[BoxData[
+ TagBox[
+  TagBox[GridBox[{
+     {
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["p", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Max", "[", 
+            RowBox[{
+             FractionBox["1", "1000000000000000"], ",", 
+             RowBox[{"p", "[", "r", "]"}]}], "]"}], "+", 
+           RowBox[{
+            InterpretationBox[
+             RowBox[{
+              TagBox["InterpolatingFunction",
+               "SummaryHead"], "[", 
+              
+              DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ =
+                "Ready"}, 
+               TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282868#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282868#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}]}, 
+                  Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+                "SummaryPanel"],
+               DynamicModuleValues:>{}], "]"}],
+             
+             InterpolatingFunction[{{4.23046178224774*^-25, 
+              0.24395920510017832`}}, {
+              5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+               False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+              "], {
+              Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+               "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+               "]}, {Automatic}],
+             Editable->False,
+             SelectWithContents->True,
+             Selectable->False], "[", 
+            RowBox[{"Max", "[", 
+             RowBox[{
+              FractionBox["1", "1000000000000000"], ",", 
+              RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}], ")"}], " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", "2"}], "+", 
+            RowBox[{"16", " ", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"], " ", 
+             RowBox[{
+              InterpretationBox[
+               RowBox[{
+                TagBox["InterpolatingFunction",
+                 "SummaryHead"], "[", 
+                
+                DynamicModuleBox[{Typeset`open$$ = False, 
+                 Typeset`embedState$$ = "Ready"}, 
+                 TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282924#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282924#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}]}, 
+                    Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+                  "SummaryPanel"],
+                 DynamicModuleValues:>{}], "]"}],
+               
+               InterpolatingFunction[{{4.23046178224774*^-25, 
+                0.24395920510017832`}}, {
+                5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+                 False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+                "], {
+                Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+                 "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+                 "]}, {Automatic}],
+               Editable->False,
+               SelectWithContents->True,
+               Selectable->False], "[", 
+              RowBox[{"Max", "[", 
+               RowBox[{
+                FractionBox["1", "1000000000000000"], ",", 
+                RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}]}], ")"}]}], 
+         RowBox[{"4", " ", "r"}]], "+", 
+        FractionBox[
+         RowBox[{"2", "+", 
+          RowBox[{"400", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], 
+         RowBox[{"4", " ", "r"}]]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", 
+          RowBox[{"2", " ", "r"}]]}], "+", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"16", " ", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"], " ", 
+             RowBox[{"Max", "[", 
+              RowBox[{
+               FractionBox["1", "1000000000000000"], ",", 
+               RowBox[{"p", "[", "r", "]"}]}], "]"}]}]}], ")"}]}], 
+         RowBox[{"4", " ", "r"}]]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        FractionBox["1", "600"], " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"24", " ", "\[Pi]", " ", 
+           RowBox[{"Max", "[", 
+            RowBox[{
+             FractionBox["1", "1000000000000000"], ",", 
+             RowBox[{"p", "[", "r", "]"}]}], "]"}]}], "-", 
+          RowBox[{"8", " ", "\[Pi]", " ", 
+           RowBox[{
+            InterpretationBox[
+             RowBox[{
+              TagBox["InterpolatingFunction",
+               "SummaryHead"], "[", 
+              
+              DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ =
+                "Ready"}, 
+               TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282981#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$282981#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                    False, GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    BaselinePosition -> {1, 1}]}, 
+                  Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+                "SummaryPanel"],
+               DynamicModuleValues:>{}], "]"}],
+             
+             InterpolatingFunction[{{4.23046178224774*^-25, 
+              0.24395920510017832`}}, {
+              5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+               False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+              "], {
+              Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+               "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+               "]}, {Automatic}],
+             Editable->False,
+             SelectWithContents->True,
+             Selectable->False], "[", 
+            RowBox[{"Max", "[", 
+             RowBox[{
+              FractionBox["1", "1000000000000000"], ",", 
+              RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}]}], ")"}]}]}]},
+     {
+      RowBox[{
+       RowBox[{"p", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", 
+       FractionBox["81463", "118186921"]}]},
+     {
+      RowBox[{
+       RowBox[{"\[Lambda]", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}]},
+     {
+      RowBox[{
+       RowBox[{"w", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", 
+       RowBox[{"-", 
+        FractionBox["3", "25"]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.5599999999999999]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}],
+   Column],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.752420503335231*^9, 3.752420529921417*^9}, 
+   3.752420672966015*^9},
+ CellLabel->
+  "Out[661]//TableForm=",ExpressionUUID->"b03d067d-eb76-4c36-b6b7-\
+0b21a3b69f99"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"eqsfin", "/.", 
+   RowBox[{
+    RowBox[{"R", "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"R", "'"}], "[", "r", "]"}], "\[Rule]", "0"}]}]], "Input",
+ CellLabel->
+  "In[739]:=",ExpressionUUID->"62a018c4-c00e-4c32-b77a-350d0699c27f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    FractionBox[
+     RowBox[{"1", "-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     SuperscriptBox["r", "2"]], "\[Equal]", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"4", " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+         SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+      RowBox[{
+       InterpretationBox[
+        RowBox[{
+         TagBox["InterpolatingFunction",
+          "SummaryHead"], "[", 
+         DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+          "Ready"}, 
+          TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                  PaneBox[
+                   ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                   Alignment -> {Center, Center}, ImageSize -> 
+                   Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                  GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294590#1"]& ]}}, {}, {}}, {
+                   DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {\
+{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, 
+                    FrameStyle -> Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                  GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                   GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                   AutoDelete -> False, 
+                   GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                   GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                   BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+                GridBoxItemSize -> {
+                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                BaselinePosition -> {1, 1}], True -> GridBox[{{
+                  PaneBox[
+                   ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                   Alignment -> {Center, Center}, ImageSize -> 
+                   Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                  GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294590#1"]& ]}}, {}, {}}, {
+                   DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                  GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                   GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                   AutoDelete -> False, 
+                   GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                   GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                   BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+                GridBoxItemSize -> {
+                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                BaselinePosition -> {1, 1}]}, 
+             Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+           "SummaryPanel"],
+          DynamicModuleValues:>{}], "]"}],
+        InterpolatingFunction[{{4.23046178224774*^-25, 
+         0.24395920510017832`}}, {
+         5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+          False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+         "], {
+         Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+          "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+          "]}, {Automatic}],
+        Editable->False,
+        SelectWithContents->True,
+        Selectable->False], "[", 
+       RowBox[{"Max", "[", 
+        RowBox[{
+         FractionBox["1", "1000000000000000"], ",", 
+         RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"]}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"1", "-", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], 
+       SuperscriptBox["r", "2"]]}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "r"]}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"4", " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+         SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+      RowBox[{"Max", "[", 
+       RowBox[{
+        FractionBox["1", "1000000000000000"], ",", 
+        RowBox[{"p", "[", "r", "]"}]}], "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"]}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["2", "r"], "-", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "+", 
+        RowBox[{
+         SuperscriptBox["\[Phi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["\[CurlyPhi]", "\[Prime]\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", 
+       SqrtBox["3"]]}], "4", " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+       FractionBox[
+        RowBox[{"4", " ", 
+         RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+        SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "3"}], " ", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          FractionBox["1", "1000000000000000"], ",", 
+          RowBox[{"p", "[", "r", "]"}]}], "]"}]}], "+", 
+       RowBox[{
+        InterpretationBox[
+         RowBox[{
+          TagBox["InterpolatingFunction",
+           "SummaryHead"], "[", 
+          
+          DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+           "Ready"}, 
+           TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                   PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                   GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294651#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                   GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
+                  GridBoxItemSize -> {
+                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                 BaselinePosition -> {1, 1}], True -> GridBox[{{
+                   PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                   GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294651#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                   GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
+                  GridBoxItemSize -> {
+                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                 BaselinePosition -> {1, 1}]}, 
+              Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+            "SummaryPanel"],
+           DynamicModuleValues:>{}], "]"}],
+         InterpolatingFunction[{{4.23046178224774*^-25, 
+          0.24395920510017832`}}, {
+          5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+           False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+          "], {
+          Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+           "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+           "]}, {Automatic}],
+         Editable->False,
+         SelectWithContents->True,
+         Selectable->False], "[", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          FractionBox["1", "1000000000000000"], ",", 
+          RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          FractionBox["1", "1000000000000000"], ",", 
+          RowBox[{"p", "[", "r", "]"}]}], "]"}]}], "-", 
+       RowBox[{
+        InterpretationBox[
+         RowBox[{
+          TagBox["InterpolatingFunction",
+           "SummaryHead"], "[", 
+          
+          DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+           "Ready"}, 
+           TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+                   PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                   GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294706#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                   GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
+                  GridBoxItemSize -> {
+                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                 BaselinePosition -> {1, 1}], True -> GridBox[{{
+                   PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                   GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwVxXswGwYAB2DMVq5CdUrDndAeq5o1dGvVXH5q+pCmbKVaLSJttRek5IYu
+nWLeOa26dV6xeLbi/QgJIeThGUs8zpxxu9arVuY99br2uu2P7z7rWxFXQnS0
+tLRc//P/KYINBl3pSBEQFXULFwYpopc2U7bUSBBjfVsTC39A5NnWhfTdBKTP
+pZ72uZeEmq0EppMzF00OROY4g4vLjrSQtvIs5AcnCAibmTieUzVtoJ+NpF9u
+mxLv/gxejTmDY5WPILHJksYoG6vswM9zn/IRnnV25uHrXHirjjZrvS2GF+mT
+h6IyHiKFJaPKd6VwI9AXY+z50P1HLz+Q/ALkGqfN67NFYBjs0lMoAmw+WvRd
+OlmCsFFXuo97JWwklEM9rFK8WWfq7rGrQa84EkqVl+HEAqnaIbYWHLmnfeLe
+c7w5Lds+I6wHicV0Tblcjs/M/SlbKw3gNZbGz+cJINPN1TbdaISW76l6tboC
+xgUqsyP7m0CUuHXwiVXo58vrooybwdb3C6B6V8OZVpPX5CBCs5iUNs2vQdyI
+orDHQ4wnV0pWfnxdC7uuAhtLzxbs5Uw9CDKtx5Pg0A+3brdi575ZpRm5AX6h
+7/1XQiWYMLrBlKoasEVtG6ax2nA1gv+xSXAjvMfDeLkp7SBO/PXttI4QhOHp
+uWMZUkT6Fjhm8IRIjqIllpd3wCMgpaWc0oSR1amvt6WdaCfEj/z0qglJ42di
+MuUyfF82EeET3YwHoi5tfZYcj6lDl56ZiUAXqfXur8lx1017baxOBGHxIt+V
+rUDGec7ymrsYM9OJAdrvFahQjNXFzIrh4f/oJjNeiQ3np5oDnBYk2W4k9Rl0
+IY786ZCxRSs27VRL/VldYHYFkcjCVgwfFs2ePNiNRfeeoC/PS8ANtNDNLuxG
+VG1pZcG8BFF/zN7Jt+5BCMGlxSG2Da6VtqvP6nswLhbeI1m2IyIkbt+OSy9S
+9dTX96TtGLvmHPxB2osDl1iT+7+Twqw4fOadZx+02aUMzroUjy0/esHX9GEZ
+B62OpnUgPL3urcCrHzvzLrsKYifsLv4eUTHZDyuvU/GS1k4cpgQcpwWqsJZH
+u7hFk2GOG2Q4v6jCn4RIafqyDBaK6ISF6AH48PwMuOfkSP5i1SlrewDdN++w
+NjPlGFifMXRI/g2m5rqG3JdyuP/tbM/ap8ZznaK03mMK5Lros8uy1RgJODdl
+z1HgWvSKxzfWGrT0LWQY9StAnf/KP7VMg9ETmhtFxkoQa7dzZORBXLBhVlxl
+KGFRZXHo1+ZBhKUuvJJUK9FuPWlu6DKEWRuSyd6WEv8CarXVJQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$294706#1"]& ]}}, {}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {4.23046178224774*^-25, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{4.23046178224774*^-25, 
+                    0.24395920510017832`}, {0., 0.14816213591102131`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                   GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"4.23046178224774`*^-25", ",", 
+                    "0.24395920510017832`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                 GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
+                  GridBoxItemSize -> {
+                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                 BaselinePosition -> {1, 1}]}, 
+              Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+            "SummaryPanel"],
+           DynamicModuleValues:>{}], "]"}],
+         InterpolatingFunction[{{4.23046178224774*^-25, 
+          0.24395920510017832`}}, {
+          5, 7, 0, {1501}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
+           False}, CompressedData["
+1:eJwNVlc4138DtbIrMzujFFFWpN9nfG0ie6/I3utvFZK9RyF7h8oIWQ2hSJrI
+LGVlhCQjNHjfi/Oc51yci3MuznME7bwNHCnIyMjI/4/PB8jIvvW8CKmwniJx
+EJys2rtTpLGvqRztedMkAXH/BHGlGVJb/Rn/oR8zJOq4BvK18lnSK8fbqU8u
+fSWxx2p1XBGYI70zk8ty/TZHMvZ/EtP/cJ4k7qh3Y+vGAqlFv95SyG+RVFb/
+V6Xc4htJu7A9qldribRSNUlMqy6T1Awb6lQvrJAKXi5JaJt8J/lU9bkbeq6S
+ZiW1/FpTf5DWHvZ+97ReI51UbPNn3V0jRaWLG0fk/SSVuzxIXVVcJ7F0/RTL
+/LFOujrGbFJbvkGq51p2Cbq0SWpr+kYjLbBFKqFvl+H/tkWS1x2yjXr4i/SP
+riG14sY2qdGZw/a97w6ptOD4WW2LXdKZSUMFL63fpMzPV6ujVf+Qtj69uDun
+8ZekSd2d+834H0lpPFhoxWOPdOhrscHF1H2ShXKMrZw1GdD8yDM6vkMGIjmy
+MlTzyEEtXU9mvSIF+Eud9tXwBwWYvmpU7VZOCSjieFWkL1EBI+MQ/SX+A2D1
+vMKHocUDgJxuHco9pAbCGoIpxjdogOuZHMdQX1qgVu9zfNucDlw+xrXHpkUP
+sk31OEVUGQCPiVBljAYjCNb/QRVrfBC8rIr9GO1xCOSSbM9OpxwGmTb7H/as
+mEAXjTKpZIcJ/Al8OUiXxwyKGO/m+ymygPZw6iLWHyzA0f0KuUg5Kxi+Jy/w
+3ZoN5DqQFZTxs4NTsx3/JS6yA4Eidu5vbUfAcd7S5AM3OAB5mbSHqC8nWF6Y
+Yi815wJ8TgfbH2tyg3vMtrGvVXjAsfbn5cIavMC5wsNXyJgPcBzayODzOAoS
+JZI5AlP4gTKjnEavlQDg6T1d5LQjAJxqXrC8yxUEEV425WcVhYCKiJnZh1Uh
+MFF53Wyu7Bj4FUH8q7I+DsImgxcs+IWBJCVkV1gUBvv0xE5+2wkQEimZ0px+
+EpQ9nf9vxEcEBBABtFrmokCpXDLMTvPU//Pf2/JSEQP/GKvLetTFweQ/MPnU
+6DTop3mq0+J+Bqy0H/tLnyIButRE29OsJEEt+wTF6R1JsNyUZngzVwq0iC9W
+/1KQBuP/olgzVqWBzym3+rIyGXCaTuqTnfVZkPnsqwwrvyxIvtXUurUgC5Qu
+eo3qtMmBoKD3qY7p50DN9abQKB95oPjg9N9Ns/Pg1UgkptMkgUHZM04sKgDI
+Ko6VOapDIGBirWNphMDJ9AV6XXcMmKZPzBQnE6CZcVzazEoBfFnTdtnYVgDk
+qceyTHIVgbWKcnObghLw/Jfw3mBVCTBuyNLZlimDIHTwEZ+1ChihV4l4fVQV
+NOaKWlYvqIL4S+Wt5G1qIGw77AZ7ujq4/jU/VtJHA+gS9D+LzC4Av7+U5PUX
+NEFG9spos7IWIBlr3T6gfhFs3O1/um2oDYLLvF8uuOkAzcysvrPJuiDZUvWu
+gJUe+Gkc9e7hth6YPRs5yp2rD+oafTquKhgAleNuySyrBuD+v1k7vjJD8J5n
+KHfMygisNt16H3XUGNyny9+3XTAGivhLTlOrCXiyB7J60kyBynzBjc/eZuDZ
+JP2Chpk5aGRq6ja5YAFyROY0zZUtAUmVqqpCzQo83sySzDS0BqPnTeKuu10C
+ZYPejX1JNqBH0kvgm6UtKFAKlb2+bQumK6u5J3MugyZ/n1dQwQ44eR/XHPxu
+B86o+7d/LLUH+yUxVzOsHEBF+8RReNQR7MzQVhxZcAQ/F46GOLc6AZpEuryA
+NGeAIlsLE71dQHi6xJd1U1egfjgj4Z+GGwie4+j4q+QOShkpq1XVPECbVG25
+pKEnEDXIV+dy8wJq2c0Fl5K8waMEw5wGSx/A3yRfqLbtA7Smiy+V5/iC3Til
+kT3CDzz71EZ787sfmHozz5lT+h9Y7RO00rHyB2mCR7w3+QLAWaH/tN7MB4Dv
+po6XuFsDQVrWfLFwWhBoaFq+d847GPDqBI8UmF4B4pslurc1rgLavuizJUoh
+QLBKvX5ONRQA6yOcbw3CQPQ8pmt0vQb4PjvFbySGA3mHLaarltfBTFXbgYPb
+14H69KVy55wIkPBtfqaTiASvnU6+1P8eCfKTQIBxaRTQzriD6ayiwcBnpc4a
+vhhA3z2+HjEfA4STGpTetsSCR3wfKodT48DUlfMPv3rFg3C2ufdqpgng2OPP
+R7Q0EsHEe7FqZaUkYMc02BKjmgwe+Q6kuBqkAMV1hTearqnga3FUQHxiGsht
+N0xUskwHIjx/vT78SgfBtxcXxXJugLxb1muRxE3ge9Annvn7TWB13W+QpTQD
+2PzmEuq2zARUP+xYHPmywGo3zD83nwWWwyhFrrfcAj+Ovq+LSc0GH9+WvLzh
+lQN6JwNerZnkghLbC5M/1fNA8hbjsQXFfDCiXPZUWLUAxLh/oaI2KASPfUrT
+Z12KQNRHBge+xGJgleFFxWBZAqoYKMdzf5UAChEksZZdCuSTK/dUiDLw7s3N
+CwMrZUD4TpJkf0k5GP8TQB1ueRss6wc68vFVgO+CBSrf5ypAr7jlIZmWSmCd
+9bFVNrUK6NcKjmOvO4Cz5tSLPJO74PLU7J0c9XvgvqxIQaJiNahGbb09KjXg
+syoKK9OvBdTWtiahLnVAOH7fsDHhPqCYVQ3/YFEPSgLfKtv+qgfyrlaBTdkN
+YLW36yAN0fj/3U5juLHSCPr2Y9NSSh6A4swny+ctm4AOZdjDYd5mEDq6vVo2
+1wwYM9u25ppbwFjYVtdcSivQZ3uytOzZBkwDKJ+rmDwEjnK1/xHqj0BWctiR
+M4qPgc4u66CjyhNA8ff7L6zfDmgehPGxuzwFv8svqaondID5u+O/8y06Qai5
+5f0TvzqBs6Pa0+DsLvBS7T5fH34GdhKc3umtPAPl0Q4/NEueg4yu7wObFt2g
+cz/wUCpvD1Ce0c0zm+sBNfU8X3KaX4D0If63WSm94Nue978cz5eAU56sa9W4
+D9y+VEHMq70C41uMNwcUXgNvv+bPB1TeAMrENd9Pem/BiOfuXK3zO7AoIio/
+Ef8efJgTDXKw6AdlDTU837f6QRvXH2qUPQD+HPA+k4QHwYlIjptMK4MgRua4
+Hm3JB+AeTvfwvsUQcFdxcFDjHQaL+LbaoblhsHMtulereQQsZ5mPq6aMgjeu
+iFnNcwworwl05hiPgy9GbxhT1D4CXc+RQwEKn8DD2wVLFcoTQGhZZTVI7zOI
+if9wX835C7jPYiPuGz8JjmXKbYpbTIHQ0K74B1tT4HXUVT3y7GnQQUGuoI1n
+QEhcmUn/8gxQonvR0FM8C1xeHy51s/gKvr5VebzHMwemv21uPP86B67+WW/Y
+a5oH+k/L5reSFwCV/vETGx6LYCfXsVPJ+BtIYhf6JKO2BN6ujidzKiyDgqS+
+HVXlFTDNvezOpvcdKOwzhEw6rQJZKzIh6vgfwLRx33fLfA1otub+urK1Bl6W
+dOf13PoJ+EmOBofxOmDLpuFNX14HdpSabFHFG4AoI0sUttgEazmcrK08W+D8
+lGLZla9boFXIubCh6RdYv/BnsyJ5G3ysPw5LPHaAoNS7rhWjXeBeUHnvo+pv
+sBTAwfiE+APUj0HaeaW/4CXb7FK97j9w8U2ZerDTHqgkO8iVH7cPXqOYtXZz
+MthjI+uosEUGRzzH5xJukcPKu/mOA4gCMtSpzeguU0Cpo/VBCsWUcIhs4r8p
+cypoWjbp7s1zALoeTdKX+HoAUv2cSnBoooYlsvZUJsk0MDUGG2p70EKdRovu
+W0Z0MGDOPCRClR7K76cm2xAMUMR5kzNWiRFyDIm7a+sehEPL2ezMToegzJ9o
+Zsm4w1DjbK93rDkTFP8vc4h6iwlmL7ZJ6dxihpd1bl/JQCzQoM/m7uFlFnjO
+dOfTvyJWyPC19FK+ORusm8/tOcnDDqdL+snnZtmhvr1tEEfTEZgS9pGNOpkD
+urz2df/tzgnduRheKhhxweoVoC2iyg0zYxQOURI8sNZg/dQJJV44YfRy5ZsO
+H1w1W/561/Eo7FJzYeiJ5YdiGT0/dMwF4NJqi8rbTQEodcj+GsstQRgjHJ5q
+jISg5byB7/slIahWLaT4uOgYzNUw0DQxPw557NUFpriF4awDy4O8WWG4HjDn
++OrBCch/9PKJlqST0P/a0+gqdxGYZTf5ZslQFL6qvSjwXuUU1DsgfqMSi0H1
+GVn8QlEcmt5s9o7VOQ03DxU2KzmegcyTLdQWsRJww/S6D4e5JCT6C5ozNiXh
+1qfR1yNZUlBTXPw2B5KGnBQCpLQlaXiWQ6IquEgGdop9l2M2Pwtl2RZDcrhl
+oY6TnqPerCz0FvYxDnsgB5+ybss7JZ2DjvnHi43c5WFLwuhgpuF5qC6cvBmg
+QoKdV/XZNTGAJUwdBk6KEDLFb24I6SCoSFcb98kBQ+oOH8ofMQT8E779c9JM
+Ac6wqZ202FSAMroc3PlZivCxTfWjcagEg7h6KXWXlGBcDt8huSJleDbR7/gb
+MxV481fImB63KrQuS+SknlWFOl5kapIP1GCORcHFI0nqkOno7Ufk7hrQPmlj
+HBtegF91fvfxqmjCzqn6vO9IC576mOJCrXgRJknFXOnQ1oZLSjyW/g468MN0
+Fnl0jC6UpRPzv2OmB9kfNeYKbOpBZkdBV5ssfejQ/ncgHxpArlMa7w4tGcBE
+sdWAjUJDWG07wxJnZgQTaSjl6LiNYSJ715vHM8Zw/uKtc7ONJjD6h97lF4mm
+0IESjda5mcEIe5mZRQNzaHMiu+S5sgWcltEUvIEsoRGpLLxSwQrSJzqTWWlb
+w7HWBYmDDpdghdIJcq4YG5i0xr3tY2YLudpnGBc2bKEMz6+2Y1mXoZ6SwJI1
+tINukuW5777ZwZdvS77UF9rDWzWQQsnMAQoqh2V2cTlC9ScbEb4zjtD8qdSp
+W41OsPEdW1BgojPsVvuxaenmAn8fzF6+aeAKPe7YBbspu8HH3nx3zyJ3mCT+
+N1tNwQPmpeTH71z0hLz2LNSV9l7QbkKQoi7aG67K9F49b+YD3/GMXK/d8IFP
+vbLoFjN9YcoyO6UA9IP0p8YcU7/5QZZQWQ2vwv8gn1vE+l9Tf1hfubRxhSsA
+DmUIyZ+cCYA2Twf5LjQGQv3NhZQTiUGQd+4RK51bMCyKO/oLGlyBrP1W+szK
+V+FC2inpMRgCidr8hnkiFIafE2TJuhgG3xP5n7H9Nfj6XjyVcnQ4fNgvsU9u
+dh3uDyZv/bdxHU5Y7VvUZEbAipbPvDMgEn5jXZDW+RYJoUxNo1hhFGy4VT/b
+ahoN353RMpLmioFMOdo/JqZjIJ/mFZa/DbHQ0/pVxUhCHAz9WCzT4hoPy1/3
+kS/oJ0DavBixNqVE+Cvd90kITIJ8rdffxBLJEEbtFEhdTPm/P7Jl1C4V9tyx
+oB2LSoMa3UbRr0zTYeIUtTtpIx0az8rU+mTegBUlQedug5twZ+k92aFvN2HZ
+GtXRbwUZkFri1bCfaSY8NFbUvMSZBcEL/6qb01lwwVqY9n7DLXjzwJOnsQnZ
+cFWoyMjeNQd+HMk5dEM/FzJSfKa2UcqDvZ7r6vwwH2arVS+eIAqguYeg6Dut
+QnghtDfdx64IRgxkH/SMKoZJjHL0GaYlsEFRZZpsowSO7UmTyWaWwueVswZO
+oAwO19x8/3axDHI0EImVBeVwWOLdy9Omt2Fe8RxHOWcF7OPOsdWYroAsv0b2
+LjdUwtffnozJJVTBy4+bA5lc70CxiiReoH8XTlDazx5QugcXhGqHnoFqyG3K
+Q92LayDnan6Lm1YtDB9086Czq4OnBRTYKKLuQ6/KD+mWpvWwdUPFrHe9HkrU
+/jXczWiA514IeouARrhmLFGcstgI832ttu0LHsDkW0+eLJo0QZpI/hBLzmYo
+cbOVe2+qGXYdTv3F1tACNanfbszHt0L54vncdpc2eE26TGxO7yFcy+foqlF8
+BDerS+2cwGPI9rX/uDN+AqOpXFRptNrhmLrHhbLLT2FjmiFvdmQHnE47zXnc
+tBMGb9L2p6x3wojl9DvtGV3w0F+p5CXSMzg/W+GtvfgMSkpYOgoWPIeGNlkN
+5SbdkDf04iQrZw+8L/ph+MFUD6yp1PzRW/8CEqYrh7Pje6Hda8mnbi4vYXnI
+BEjT64P0L34XGyq+ghFU/T/pwGu48+21Cg1+A2fuxQyXa76FzqOvT4LL7+Bb
+nkFh8cj3kHihXLJi0g+fK6RrGK33w+2WH/8iMgbggCrbvRrSILxr+Evh4OL/
+eR4Mfcn/AAvjzKoumQzBskQPlTccw/DE56UbrlPDcKeV8dvV+hHYNM59Wj1+
+FK6AzFkOlzE4EELSPq83Do9dY7z+W+EjPC4qH1lL+gT97BmdqtAEDJjYdFLQ
+/AzNwxJohmy/QKeOx5JdEZNwTu2IaLPJFAwY+djFvT4FLQ9yGallTMPUkpcv
+vUgz8FSZAOvbhRlol7WnXJA/CwUYqYu4TL5C8Xvh96I55uDg3T0d/qk5+JsY
+mj1dPw/lE8y0tuMW4MwKE32P8yIcl3hiM6v7DYLOi5dLFZZgK9tHVn3SMvx5
+8Wa8OlqBSVnNuxMXvsNNmYpFD9tV6BjAhEwifsDnhysaw0zW4EDjIpj+uQYt
+lhmr6TN+QgM63UVJ0jqkeXt8PnlhHZ6RL28yz9+Aad8Ks4aMN+HX0RhmxLEF
+xZIPHRye3ILUoHRy6v4vOGxX4VYVtw1lPlVK+TnvwLycwmorlV24W+Zgs039
+Gw43Uc97vP8NsyJ0TZcK/0DGNdMTRX5/4aX9HbE27X/QmD+twVViD0b6M4XO
+cexDTfxk+T4lGZIdUtWnCSdDS31Xa9n2yNCk+kzm5nVytFclFNxNQ4EOD5bc
+K7tJgUCOgWudICX6UNgzTdNMiW5esjrff5EK4c1nmaLfqNDJC4X85xIPoB1/
+HzY+SWr0k7Kvm+wTNZKjKSmlTaJBp16RqVgp0KIswZ8Bx//QomTTIpD0mA4l
+dvZPPI6gR+M8d1ZntBnQqfUy6zMCjOihxEbQ2x1GdE1HaGdt9CCqukLD9Lr9
+EEIcLP5p9w6j7sqAB+d1mVBBatvMyBsmdPlLbALQYUaMlOeeR39gRsvzF5P6
+rVjQfJx8N1piQTlRGnglhBXBY4NP/zKzocmYdJobNWyIPgN+ea3Fjj4527AN
+/GBHNykup/XkHEG2e0N679U40Op5mnD23xyo2OSVZ2cjJ6o9mFi168OFmi+X
+/1o+y43cX1J5P9/jRvlXOYNr3/EgCt4/I2O3eREDK/nDgAg+9PJr8tNmh6No
+mvY89RsdfmTyWazgF78A8q9x7DtZIIBOkBVeZecVRBdvvA+cKBb8f59Fdnkn
+hRCo+PPC84EQ+uBLyRmofAwN97I9+TB6DKVFcbLe8TmOzKcor7EfEkZPSZlO
+RL0winJQU9c0PYFK9JMeWFKeRHY7wDav6SRy0dYRP+Mugk5qvxVVOCmKgrmO
+VP1eFEW1hJV8Qv0pxHMxqIvzmhhiHf8TPqovjg67l7FviZ1GEXZ7N8sYz6Dw
+4LhIls0zyAztbATPSCAWZoruAx6S6M9nmafXlyQR2jo10echhYytyjz21qXQ
+KedDJTBMGk2TnNPKGWSQRt5JZcMiGbRyK+KRh+xZ5NTxap154CwKDhb84egr
++/8noN2ZfEQOXb32Kbm6Uw75HA7JXfQ+h3Q+Zeu7H5dHJdvyelZf5NGbXSHX
+ucLzqK9aoVHKnoRapY1SPM8A5DC53vBiH6Dq2bfnPEYhyj6nWZrajNAvXrd5
+mzyMgirpr7PGEujy8uPz3lABPdoSvx/yUAHVKoYrapEU0a7U9aXfTxURs7VI
+1B11JVRjY/DKb0gJ6TlWuF9xVEar203Un38ro427pnIdmSrokKZcjpKMKjqs
+nTWUOKKK5iUtKp9cU0PX7+jM/hNTRy4u5dEBX9RRUUTTfa1bGmhUgbnjruEF
+xFHUp/XoiCaS1KE8d3dSE0VUjj0or9NCKdej9MeiLiJr35EDQTbaKL6aWr5B
+UQetbrx8/fCULpLmtrtld1APPeQ+U0uVoIcospZ3L9HqoxpHH6HUJH3Evyh3
+9z6LAbIxIt+cLjRA91G9gcppQ+T/RJt6u9MQSQ/paPCYGyHLTkaDD1tGqOd1
+kINStjFaCzzQn4xMUGrjp7+jiyYojgz8p5lrithdRb8y6JqhW6dtpVXpzZGF
+8rUQgdfm6GZJhGDfDQuUGJMw5H7JEul/my2Qk7JChWYuc2b01ujTDaFYyiVr
+tKGu+96l/xIajK/NfNJugxRvZ/Bym9sioUlXa8pRW0TBV23TYnYZvRHS0dP7
+chmVru/BH852qCZkmrtxyw55msa/bYuzR2XigmeOH3VAv/THWI48dEA6JgEm
+DWaO6Ptp6Smuf46Is/1dtX+lE2rJmxlYMHJGDHNe6Xm0LujikUbD5i4XtDtC
+dFy+7op+jV1qfaXihpqH69x4D7ujnxOcVtGT7ohaitFTqsUDDW7TLRpmeCLX
+U5FJfEFeKEmMKqvrsje6+sLO6ZGoD1p41/lSrtIHxZ+1WPc94Yt4NnIfx9/z
+Rde52T/lSPuhja/nVzqf+qE6delAAd3/kEzKn/XR2f/QTGLTCG2YP+LjP549
+zB2A3MquPLjcHoDmGC88GXAIREwF3ZZazEHI9YPspa1nQcjsUeuj7SvBaNvk
+bEGI3BWUbF/lVr1zBQ2Y3Blq7LyKhBbR+NPUECQJ/w38swtFAQxBYcUoDI2y
+bdENH72GrqknCgxQhyNqweC13q1wVLkUULgdcB2BlUSJjs3r6OAFXRnToAiU
+HYroPv+LQKGULJte8ZGodzuXX5wjCjEfbak6ey8Kxf/IKL6rGI3cLxzlqv0c
+jUqcq8TtrsUgofm3ZN+PxaIDGUWDfu9iUfXnzX9c1+LQ2Xc81PQy8YjSt6HI
+/Xs8Cmh51+RSm4A6RgOCxf9LRMjmgtMsTkLuFKn6j5mSUeiNK16zi8ko7sKA
+VXJvCvq2Oi69WJOKjokUxJ/KTUPN7zoUVdTSUX07v2/B83TEHVtI9UjlBvLN
+uEnzqO8GeneX3vGRwU10rO/a6vjkTdS/8NxO3jcDqR6WCPhFnYm0QteGZEsz
+kYZd1VkuhSy0dEjSoHs2C2WK1O1ZJt9CoeNDJ6hJ2ail2+vTt5VsdLbhpIVE
+RQ46N5l7hMw+F/Vzlz6PPZGH2Au2rH78yENG00xSzh356E7npWXerAJ0dv1J
+kYJvIWIP1eqnNCpCVPbpkbmoGF3LChbg4ShB7ebP2GkzSpAJc0nEfZZSlN+r
+wHPmVinqv/0vsJSvDA3rkR8UuVuGzmYJKUzLl6OnrzYcvr8pR6qVtH2ejrdR
+Da3/o2iKCuQXFZ5mfLsCfdQsqqPSqkTttoW3Wn9VooVBloXMqio0snTQtdv6
+DiK/SM/pzXUXke+fFOv4eBclh947OlV6Dx343Nm+51WNeG1yxS8o1SCL+Gfr
+qzy1SPb8xAHBv7UohyN/iHm2DvG+ETDY6r+PDgwMXyezr0cHWPXI5abrkWV7
+UOo5+wYkmLvqJPStAUl0Ztxj+68RvXTQvHya/AH627sZkZzxAOlu3N41ONWE
+qIaoHpT1NCFR++3CIsdmtJrs3+pG34L+lpcyize1oPdiIhO09q1oZOKNhwhH
+G7o6pKHxoL8NnZp3EvuQ9hC9OObM9sDoEYpsuncxnP8xenvynp/j2mO0GSEf
+ndn7BK0Ys3+DFe3ouVJ/WHrCU5RjRFb8zL8DWc+4cEfLdCIFy8BJrfpOZP7e
+sn5IsgupMP4NBM1dqDVk6U8heoYOaxz9zv3qGXLiHP86YPEcdW8885n98Rzd
+WoBcvgndSJVpxaXwZA/aaL+2mfSqB/n41Npd9nuB7gVd8Vfm70VerNUHzQd6
+ke5+OnoV/xL9NKfU6FTtQyq71XWOtK/Q+/O3SPP9r9CgHy21d/FrVKZxN/aM
+/xskJ7iRbaT7FpUe2YlhkXqH6EeCOfO53iNzPxHdG1T9yMqnMPRHeD+ibNge
+otzvRwx5eqtLEQP/36kV0jPaQfRKcuLwnYxBdOzgm+rHQh/Q7tYhzNfyAaGF
+8e/ftYfQhaiH07pLQ8j4gYK6U9IwovddtzCWGkFXI118lCZGUM1+22/D5FH0
+PoI3q0FxDN34McIQ/XcMoWUHx60n48ht6ceyZNRHlCbEcM5e9xOK9Hss+0hw
+AgmlvpF3/D2BsjsC/mWOf0Y0t/XaQjq+oNNGtwW0ayaRYy8l5tebQjrwjPHz
+t1NoxJCNS0J3GvUJVVaGD02juOSDfwatZ9BF4PlbfXnm//pD4F7oLHpJbn+O
+g/UrSh1s2H9Q+xU1atplb1+cQzfLtwYO/JxDxcc+3aLMm0cC2u3fjmgsIPF/
+hzac/iygBuePtLxNiyh85UOrjd+3///JxjdWcksocXDAmiBbRhNK3MNn+5dR
+1T/Sb/fKFVQXeOYfW9R3xFrBHHHZaRWtB+pURev9QEmCqSnjAmuoyrkmlblw
+De1qXdKg5vuJpJLkooZKfiKrlaC5XJF1lF/TuevftI5G1b/JxqhsIGMxTorl
+sQ3ktczQ2eu7iQ4XFg6iw1tonSqswqdhC9VYijRHm/1CdF6C2cVU22h28zLF
+YvM2qqNnHovx2EESD0LEy0R2UVWIgZ7z0i4y0TjzkazxN7roeak+P/wPctKn
+YHUy/IuYx3wq007/Q5orP8IuHNpD/HlPT7zY2kPsIv4Pzn/dR6GOn2ZXPMjw
+vPqJQa9lMvwot5urw5McT40fZPizQY59FPjHFK5R4B8Flfn3GSmxXMK0jXMx
+JU4NGxROkKPC951rV+QGqbCjT9jDDL8D+PDdA8XPOaixx+UvPctd1DiDfMBf
+2pcGf1X05+oQpsUxD+j1H03S4rv5FT+1i+mwwMlU1goHevyOb5t7RYIB1+Pd
+Lj1yRrwVNSFEMc6Iq4vrn0m2HsQNHOcKDhUcwttugmLv4w7ja0uDjw0RE14o
+kmN2fsSEP8V5tSHAjA1HJ2s2O5jxrXMn++5qsGC2v+/fhgyz4HVGwiXRiRXf
+4Pxw/tcfVpxTCSanstjw6RbaHY+z7Phphv+Zp6PsuLfOldgNP4L/yL+gUDnN
+gc/L5pOCX3Pgjwq8DjbHOLFw575GUignFnCdzyEb5cT9RZ1s3dJcOMHhUNrH
+NC6ciwVWNFa5sDuZuRCbDjduTvMhKd7nxk5FrbrDzDy4wMoqfTiAB4eeqkfq
+n3hwtpZXjYQSL5YvpFTNvMeL+c1Go66y8eHHnzN3F8L5MOetQK2ZFT5cMHtD
+xtvyKO4UPx6R+foofkw1zWmG+PG+v+JWRz0/Tj7rxvqNRQAzHtNw09QRwC9G
+WY7GJQrgnnZR87JeAdz+o1C/+IAgHnK3vhChIogL5i6lakULYh3w7ip5jyC+
+knY+oJJaCA9Td6yhC0JYTAZ4vk4WwkXCwUEGA0JYXcr67siRY/jkJf57ltbH
+cGSK35m528ewgfHjncDvx/DPDMVxtnPH8foT+7pnEcex1Nwrh+i3xzFrWvG2
+NbcwhvIdPoYuwvhh3fqiS6sw/nlGOL6M5gT20iqIoTI/gQUrJEUyqk9gef+4
+Fwb7J7Dv3MVedaOT+Lied2ngvZN4VcVyYpZcBNOHyjNlWojgudsn55OaRDAF
+ZwRn/2FR7O7H9p+jhyj243X9oPdKFOs93hfJFj2FTfIyA1DiKVxEaf9WY+UU
+ZshyNX2qK4ZjbtzXLm8Sw8ySSf/+covjibXF3v5IcfxuN0Pw+Io4Fg8Nz/hr
+chrnizE/tnl+Ghu+9NA0lDqDN9o7aT+XnMHdkxmDFCwSGKmw5b2KlsB6is7O
+pF0JbHwhTLzmnCRmM1nWz/pPEv/i2e2zrJfEoi7KLyhWJfHDAJnoFHEpjKJP
+ae+7S+Ggw3WBljVSePhOpl3FdynMHCwTPiUhjX/aJ6sz/SeNWb+GKsu3SuOj
+Ed9prP5K4xgqinPhSjK43kzzekWCDLY/+dkOD8vg7F7w/XLgWRwX0Xa/jFcW
+e1MFnDv1UhY3B4jZH7sihxtN5jwfSZzDDIF0v3lXzuGyxue8V+vk8ReXPleK
+oPPYPyRsf0GVhCX2AzMu8QCcUucZnr8N8KBl2rvhjxD7tClqqfUgHPPVMOVk
+K8ZPtMtpW+oJzN3Dc4jTXAEbXF1hWv6sgKe2WYgtJ0W84Zo1ZrapiGfNOmXO
+xyrhO5l/eh7xKmP0dV6csk0ZP3vcee68mQqONeb6Gf1PBYfnDt05fEcVtxqG
+7VGaqeFQnZXllIPquGpHtf/jS3UcYqEfwpWogbVExc5f1b+Aa1dMv5zh18RH
+z8oPuW1oYvl/08L277SwS7hdik79Rfyi1j3CMVcbF475KM8k6OCuXdlVskhd
+LHbb7dm+gh4u8eInP9yjhx0E8s/qautjn3UXt5lxfUxp3Nm97GaAGcYuRqWR
+GeIwd8S4kWeIlUmFW5BkhBOCdw5lfTHCEwm67sfjjfExckt39nMm2JP62MuM
+ZROs/Xql8E2FKa7uvR606miGH6W/MRcVN8dB0rPv63bMsTC9zXbDaws8jkRS
+nCss8fm/Zb8PxFrhfyMa9j2e1vhfdn3jpNUlfOkIbXW6oQ2+OET+m17UFncE
+HcsyrbHFcq4V2+9kLmMW45m/NzsuY2x6IeOFrh1e+cnZk/LVDgdu2nYdvGaP
+b6Vpz3nwOuCl5faewQ4HbFUlct7FxRFXNvZfNj3ihD9za7e97vs/2zsdWY90
+xpnCF5/tKLpg7w7hq4dpXHEcGfl150FXrP9csFLmthtWSmu2vBPqjq97rj78
+Y+mBi2TjbzgqeeLzrY+D+SW9sIZ8+biDsDcO/Zlw/TyzD97/vn2rO8MHH3a5
+qufP7YsNgmNM3Cp8sZE8o0PfWT/M/emMTvNLP+ypLXHQ8PJ/OC27rufl3n9Y
+3kB2EJX64/pUurcfNQLw6XtGeX1bAVj6Zr6f7J1A7Mid/F3TNgirHBE6KH80
+GKfvnbggPhOMnQ4czjeruYKZkuUSf4Rexe4MUfLCRiFYLNfNW0I6FIuoO9aq
+coRh5SevZUopr2G5sBPsYdvXsEfQT+UjG+FYu2u53zjkOuYfaKIhyCNw0N9T
+2CUpAjcC5r8bXJHYuL11+kBtJL6nP1v/TCUKn5P4Z6w3HYXbzVN+DkdGY4qD
+FDMhojE4PffFW/fhGJwNamr7Y2MxY0zV6AiKwzJ0c3Q1v+PwK2b5wPD2eHxF
+Zv5tRGwCvt8+qD1nnIh9yQ++/iyWhKcqujtKaJMxhVyVmeNKMu7RuBfpMJqC
+vzSq7o71pWIbbUHj/edpmERVeJDBPh2L7CnMn1lMx1xP968m+97AIymtAmr7
+N3CMp5xy+I2b2NSWzctKJAN7Vw4bU3Zn4C5x0+k8h0xMJMXJaNFn4Rs03s2o
+OQvPHkoQKHS8hR+9903I4snGV9OW3IxGs/FW9LkG2twcHMD4sWfGNhcfPX4v
+n00iD585Z/B4gDIf+xtK6ulO5uMvDCWy3V0FmEGtnsq1uhAfuKIhFFxQhHMH
+Ot+ezirGmYE7HF81S7BbgFWz8vsS/NwiemjEtBQHdTdld3wtxXMLsXKCgWVY
+a6iZWoCxHJ+RlYmZrizHiV9ibJLVbmOLYP8wjeXb2K5pj57IqsBpyVWReSqV
+uIWLtS12txIXNv6ekWyqwnX7V+71+t/B9UutkiHgLn6pvHo0jPYeDjzxoYFs
+4h4elHV+QWqpxp2zYguXs2vwb6Ye87rwWuzgRnfawrsOi7LGqJc63cdMrOcf
+T0nX4/L/snBYSz2ubE5mUccN2O0S20nbVw1YuVF0/G1TI1ayCaWZZWjCMo84
+4pJDmvHNPvvjKQdascn23e3e6jbsbuLWrOTzCHflC4iKGD/Bt1ijPr+yeoo7
+R5/+/qDSiduDHvDKenfh5xpH6n7VPcMB8uhpyYFurDnE+t+ofw8esFVitN57
+gU/xIwa22y/xyaKpSHKXV/hPtM8N3Ytv8NpxClo9w3c4+NeF0g6iH4+dPZn3
+3HUAj/UNGwveHcSBvUqutvsfsOgHsaDjXsNY365CWmJ7BC+Wh8XaFYzhQm6B
+r89sPmK2gHdPrihP4JY9OZGxC1/wvM3Q5xrSFH7pU//K0GEaS/iPvNcun8He
+H9dohHZncb1R283/nOfwbc/xW5Rr81hFq9rlQeYiXn9tMRZruoQZ7lnfqySt
+4PJDssheYRVL60/ez5ddw+cNe2vnLv3EVU2xPKGF69jIpzp3bn0Do1MsPd22
+W9jUQkz+4+IvHHGEuoE6ZQezbDy7pK37Gw9UKpqPSP3FdfRMaj/l9jCHxMqR
+ZEkyQlziq9IVc3KCdMJYviabgnjbNsJXvUJJxFjcPMhpcYAwll9kfzBNTWRw
+DvgtRNISVcMZ3YOK9MTLOzQjNwUYCY+WXFoPwUOEntdPOqdjTIQ6Y21I5QVm
+YjLnI9NENAtxW35uMXqElVj5HmNBUmAn0tL3ZxufHyFoahtxtx0ncfhJSo4j
+PzdBUDL+avjDQzTlVHYs7fIRfhMLGB0SICRDHWb/SAsSgXVrkpkeQoRd8qZ+
+5JNjRBBNULT1cWGiAL2n+VhxgvC1Cz/9WkmEMLB8lCb8T5Q4MarkQz4qRlRl
+RSkVDp4mpDc37W3XJQgL8kOU3rxShNvD4RMeRtIETZb6cGmZDHFMMFiuglaW
+CE3p1haJlyPivi7vxhyWJ9Y/t/r7NpwnSBmqO63egDgdtUGndhERkvlruaIX
+CGJUbeSYZpMCkUo7PO81okjwx93XUmZUJo4U7ynymaoQxrnZK65tqgSPbczZ
++1LqRNlx86CUbg0iyrDWoMtPk/A5MJIqjC8SO84Tp5pFdAiOR5Qv1Lj1iPfN
+ta47UvrEi+6B07etDAgRBvuGjHxDwsD27tqJNSMihLu1b9jShHghRcqXmjIl
+9mL99uevmRPBonIVHectCYmKgxdus1gT4YNZ/UUMNkSTNFL1yrAl3AKeaZo9
+uEw0Xn8g/3rejugxoL/ELeFA/NO0OFyf4khs1tXLHaZyJs6M3tobynAhqPHB
+vEfYjbBoDBTLpvYg9mhT3lz+7klYihU+lNnyJoYKz+kLM/kSE/lNN2Lk/Yh0
++w9N5AH/ESLngim2X/gTKd6mAR8lAonw0lsmpIYgIj3Zcqvj4hUibfF0qBRV
+CBHILT3/33gosfrP8UjKu2vEFCmb7oPfdUJexaQpNj2C4HiPPhZ0RRKYY+iM
+E000weD/A2naxxD6qtE7L0diCdqTNlah9vGE/8FieW6GRCKsYoYp8H0S8Use
+C0Y1phCtCTIxJi1pBOPwgWeZq+mEwpFUijq2m0R2hEn2Y50Mwvq5FBdnUSYh
+U3i8QpbqFuFt9tm/ODKbiKOdufmHO5e4RW9aw/g+j5h7ZkPRVFJAiMThsI0b
+RQTD+tOfQQYlhNbNV/m7nqXEgpJBcWtBGdHimcBFNlVOqLpQfjh3voLI/uDf
+9+luJTGsKT4UKXOHkPBhcZwcvUsIjwm4dOVUE+/+2ipzBtcS6hp3djeD7hMX
+L8qdV3tbT6T35m3y/mwgVK1qn3eKPCDKqwKzEgKaCCHmH3XzY83E7UcGCrZG
+rcRozxZ77rc24uqtQCe9vEdEvdjFTnuXJ8SFCwOcA8ZPiYfUCeFW0p1ES7rD
+1XqtLuLqF+Yd7uBnRK9dfPRC23OiqyHuVPDhHuKKgcFvtbAXRJzB8r0FypeE
+Pke5KV1FH2F6fNIy2O410fhNVFcAvyU89B8fO0R6T/wPzbmR/w==
+          "], {
+          Developer`PackedArrayForm, CompressedData["
+1:eJwd2FMMIEgWAMAd27Zt27Zt27Zt27Zt2/bsjm3raq6TSjrv/zFBw3YV2wb4
+559/7gb55//v7z8ggQjM33BQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE
+JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk
+F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW
+talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9
+6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ
+w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
+XvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd
+7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5
+w9/kD0BAAhGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQl
+HvFJQEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf
++SlAQQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71
+aUBDGtGYJjSlGc1pQUta0Zo2/C3g7WhPBzrSic50oSvd6E4PetKL3vShL/3o
+zwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jP
+AhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8B
+DnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4z7/8
+xwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OFv4w9A
+QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
+EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
+UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
+mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
+IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
+LGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc
+5RjHOcFJTnGaM5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73+Zf/eMBDHvGY
+JzzlGc95wUte8Zo3vOUd7/nARz7xmS985Rvf+cFPfvGbP/wd+gMQkEAEJghB
+CUZwQhCSUIQmDGEJR3giEJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJ
+RnJSkJJUpCYNaUlHejKQkUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlG
+cUpQklKUpgxlKUd5KlCRSlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZz
+WtCSVrSmDW1pR3s60JFOdKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBG
+MJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclaw
+klWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCS
+U5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9/uU/HvCQRzzmCU95xnNe
+8JJXvOYNb3nHez7wkU985gtf+cZ3fvCTX/zmD38X/gAEJBCBCUJQghGcEIQk
+FKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQV
+qUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSl
+KUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0pBGNaUJTmtGcFrSkFa1p
+Q1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnD
+WMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa
+1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGcE5zkFKc5w1nO
+cZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGff/mPBzzkEY95wlOe8ZwXvOQVr3nD
+W97xng985BOf+cJXvvGdH/zkF7/5w99jXwACEojABCEowQhOCEISitCEISzh
+CE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJSE4KUpKK1KQhLelI
+TwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUoTglKUorSlKEs5ShP
+BSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3taE8H
+OtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQm
+MonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjay
+ic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJ
+y1zhKte4zg1ucovb3OF/AVHuXg==
+           "], CompressedData["
+1:eJwNl1c8EHwYhe0VQkaUvWUkZP2HFWVEpCiJZKTM7MyQmU3K3ntTychMVmZE
+ZCZFlB3J9109v3PxXpyr87zcdxz0LQkJCAimSQkIpJJOX58tcwY3jrqrVdgf
+Am/NdgijHwJ58TjHGWIXQHySkEv+kQtoV1f2u7HtAprq2HmuOrsCUT7Fo/Mb
+rqAmxNKZ0dUNvJRfQf/23YCjJFkcWZA7eJpuQKpE5wHoFG5kNWV4AP48ztm4
+c55gXKK/YuS9J+C2uOuacMcLEJUFHv9x5AX+PVWc+J75CJws2SotuuANXglZ
+f8Nr3iChLse2/YUPEKgQz9LS8gX+vWIBv458Aderwuie136gI2LN6Y+CP1CR
+MkhsTfEHzLSHoz3//EGIHsjmuRsAqNrCmsd6A0Bq/V24LfMYmALwJDL7MXjp
+b3GthD4QcLIxtJsFBoJ/DI6KjbuBoFixPLzfPgj47IpM5i4HAcfhnBp9y2Bw
+/4wL8fJiMJBRnmNzs34Czm88rKb9+QSc8jdbbXcNAeUlf68VEoaCGB+19Q8x
+ocCA0Z5XizcMPB6M/Hi2PgzQKKqZJuiHAzviiOjw9XAQ6+r7SigmAnzpVs8J
+ko4EqTXU2bVTkeBNAkHoQOhTwNXysGpVLgqInSch4/sZBTIvfT54mhcNxj74
+9XNLxgAFj1tKFbExgJcx3Ml7Kwb8o5HoSTKOBYbddsTUrbFAyRsI/RCJA978
+l5/hZ3GAYJaU9BRZPLD45OoT4R4PyoRsrTJX4oHnvF/AvTsJgDj64trO5wTg
+4eglamyUCJ4NiHFkjScCq1xBqlnjJNC4LJkuOJMEvi0F/A6zfgZox0VDWDef
+AXvuEr3vAclgP8W2kprxObjA7uj9rOg5+P2WgjBd5QUQkI4glpl5AeZ8hTud
+/FIAbdgIqS1vKiicFyGX7k0Fnlyh0UtuacARMvxMFkgHB7bLe3cm04F2synb
+rbgMEMQkyK8nmAnUOMGxnJBMkBDqpy/9IxM4bO7dpNfNAkXe7p80XmaBJ652
+PV85s0GF5HjIn4hsYCIq1hi7nw3iusxtm+7ngOsrP9YiZnIAae84Ic21XDDE
+uvlabyAXkO79X0crDzh+rdC+05MHGMg8oL52PtilMDm6OJQPzhI9TzcyLgCX
+Iqji4xcLwH2/0jbqh4VgruhM0DhJEXjVEpxF/qIIaJHV36g6VwxOrgfafP9Q
+DOzPyBx12JeAPrfIIWOGUrAUU3qiub4UuLzj8KWwLAPlzst6eozloG+x+lpZ
+Vzn4zky2LOtXAbQNtNyD2CvBdovBVqpPJTCawW4bM5WAMHzfME6tCji8JgXh
+JVWAn8WQZ5mxGqSUS117418NLkxKex1frwbEI2dDd27XgGV6nRHfkRpwYpiO
+6vWlWrD3J1iuuq0W/Kmz6vFBdWDluNHTM011gGxIsqYPvQSFhwajzu0vwawi
+1YaE1itQ437owTz2ClCw1arK330NjIW500q2X4OFUhXVgPB6oF02cO8Dzxsw
+L7HTWND8BqxFCN/lMW0Azo8ISa8SNoIDTZF3+oWNoCvKSl/GoAl0d2Z/ZiBq
+BtaGpziI65oBl1aiBceDt0BaxLC9+UQLeCTBeJD6sAX4lqhMvfzYArKbal6x
+KrSCfrMssZHMVlC8GCzxm7INmNkTED12bQMGbR0oYaENXHqRNHb+ajto6NM7
+4dnVDkgi957bwg5wh3T6wamXHcCzqP1nimQnILTlnv1b0Qm+y5vf15V8BzY5
+5Njz6t6BJH7y1eOwC5CHa8lnd3UB1fvso/aG70GGadNB6NJ7kAYk75A86gav
+An6JbzP0AOPMTELH8h7wLntuK0ynF0DfM1lGv3rBkVcj50ZSH9hifk5jp9wP
+jHrTombX+8EGZ47e3ewPgMyzNorOeADUk4tRHVEOgjWVR1w59wZBoUZqcEDv
+IEiK1ntcIDEEjC5Hl/MkDYHfvaabBEdDYPLtq0g922GA1h4e4/o0DEo1L173
+vTgC5hZ7Kr0aRgD1UlANn+Qo0FyiM4osGgWMixd2Wvk+gmPCDhpj2R+B8L1Y
+m0neMXDiftPUTMEYuBHuGL0nPg6crYjHz9ePg2IGQfcy9U+ghN0px2H8E2Ds
+3iGMvT8B0np3y/iJJ8Gr/WQFlfRJgBQq6g7AZ6B3IqXYeuYzCDeU4U8NngLP
+hfprKySmwei2rEP99DSgTNjcHIz+AkR5bzrQqs8A3sDdyxcIZoGh7Cfrituz
+QMrtvat+6yxohY/qFfnngLZacZtHxBwIkv7pxLI1B6YXUvb5b88Dio6Gxeq+
+eaAwskfbDxYAmW5xZWDFAqh2XLi5xLcIyL1ijkjSFsEHk8zv6yxfga2GYver
+xK+A7S5ZlR3zEiBidWXlfbEE6NiEFr5zfQMh6TeMR4u/AfHjptLbssug5TFf
+6u33yyDBfFJE0OQ7YAyPXr+9+R3cNfjlyBH1A/T00la6i66A2gRwJuDDCvBo
+3p7Vc1kFVFTT+ofsP0HEbndoWu9P8I76+4lLPmvgxts1+pNS60DK+dZZ3p/r
+gNt7fbzV8BegppioEX71CygLJd0dY/sNfPwKnT76/wYT+ahG+vtvMIuZrhJd
+3QBpihYj2q0boCd5iIxXchOc++J7OiFnEwQm0aZVnNwC60yddsExW+D0cMUw
+/7FtQJ886ZgVug2kV2P1KCl3gPtC9Yx95A6w66TYWmDYBdw9r/u9UncBh0Yj
+q7rwHnDLvrdlVL8HOC2oV99p/wGx9ZHEuQt/AOWUQB2J7z5oTDy3fXjqALy3
+OZDOazoA5PlFlnQWf8HFWXBgSH0InnAnr0fWHwIWnczOPtt/QJDNLlKM6wjc
+Z3463zVxBOpiyr0ntQjgxA95bfIyAthbHBPjTkcImQ8Iu+XcCOE6t3Gn0RdC
+GOHYVPD1IhEkMktb+llHBBk48y778xPDi6MtJKXPiCHTZ5FQf2oSGKnypJYm
+iARGjJN2WPwjgZYkmVfiH5FCyxHdm2UHpDDP3EKt3ZcMCpz4NL5EQg79Jjo0
+RaLIYdHcMMpko4BG/zo6bhZTwF4B2tuOkBIG3XUn2RihhBQRH3m27ajg+MmB
+rKhjx+C3zOqvI6XHoAmX6fDkFWoolyv7oX6fGj4okO0MKaCB47GkoiZGtPBm
+pwCxLs1xmJ+vNOnx7jjcpXx1748yHTxvetVgJZsOstrk6HOS0cOLLe++ZN+n
+h0LWom8DR+j/v39AMwgZYFS6lGxSMQN86CxL8JX1BFQNlgvqjTgB6Wdp5Y0J
+GCHf9fZfae6MMEe97nPRb0bIw9Ef/tSeCQqSNf42XmOCMWsX73E5McMQw5Kq
+jR1muHRya2vejwX25wV1E1OfhO8+J0jbpJyEhH+7SnnFWeH+38HTmh2scC9D
+YGn9Fhucze1aED5gg84+x+1oUk/B5bkUo0ql03CoRPVI6PtpWHGLE0clssO5
+1hzf3QsckPjYQIX3PgckWLIxOF/DCVN2RJo55Lhgqoff94/JXDBU3aqv/4AL
+prz9/PGEOTe8wL3bUfeeG9ZJvS9uPccDpZiVVi9k8MBJe361K7S8MFqJsXPD
+jxcalYV9lt/ihfMrB7rn7/NB0vp/F/cW+eBItItOjDk//LfZp358jh9asusF
+PrEQgIoGHq/JvwvA1UvGpHlOgvDwI9O246EgFNS8G+AbKQS/jHMzzXEIw3mt
+7ajSWmHI+JhQbVtHBJ5fLyAa/CECSTNuMulHnIHBVMEXYiVEoa2w+5eccVFo
+IuBWmRkoBic4Bk9kSInDRzcoVl9+E4dXrJlKCDIlYIS6cbGm+FloGTSv1BX1
+Pzt+SAb+PgtZzuouRlyThJLu47TrTZLQwIThzRvBczDrJlQ5jD8HL5TJGncS
+ScGAb/4UPC5SUOaJag3PshQsT7t/ctxUGtYS9VzV/SQNB86qfU25KgPLFemL
++kdkIBUryeK24XnYGbegJPD5PLQ8NzjiaCELmb1en15e+59vP1Nm+MhB5383
+9wuPy8N/xDMtrHnysArjfFKkAIvytR8ETCrA7KM0vWwvRWj61/m4LweAisEF
+SyLvAJxOeZ381gnCevzZwYAbQelmfuV/owhemO51+BSJoYaQrIcPnxI8voPy
+3wYpQcPgiWH8TQlGDPSZHNNWhqSyzzckapRh5/bVhIbTKpAkMy6xMVQFBhzo
+ZyjvqsAeB6JqYxtVeP/qY0HGKVU4bYHq/PXVoFnKZfuKXjUYNJzXWalxAZ42
+1IlJfHcBhn4oI3e4qA5DRr/2Xu5Xh8kW4kvqhhpwIkOn996sBmSXOGnaY38R
+4iDCjUcEl2DEwwaduMRL8MGDr2Xc4prwa21vF+rRhErksn3/7mnBqA1tW3ca
+bVh6J2C4uVYbrtQ9r1+5rQPL3rfeZDp+GZJb1PgZtF2G711+eTZ76sLIixTJ
+r9j0YBsNfdRbLz1Y+OG4EMm0HuyeamyMU74CZTlubngUXoHM5nEtHfT6ULnx
+qnOQjz7chQMF71b04bColdELEwN4lbNplHbQAAZK9r6XUr8KFzMOIOvbq9CO
+4WbagIIhLJofqrKuN4THS+4Xbyhcg8ftS08/fnsN2uZvkglpXId34n8O7wxd
+h1bMJ4wIzYzgMQ+5Lzd+G0FB+zNcLE+MoUST2WVNjhuQfqSKnvLNDXi/XiTK
+xvgmLG9dtvT9exM+uEzVaJZjAps5K2UFLt+ClJF05Et/b8E+2rT5VxWmcCpF
+ga7W6jZkjFev+UNnBoeszhR2OZrBkwnb3waHzaBa9M1WHllzGLhiP9yTZg5D
+k1ypxsnuQCa2DyWGzndgMf+MjuHsHQhzGGYW9Szg7dSp/BMdFjBU5oPGb/m7
+UJGirvVp9V14g7/r4R8xS1h3bIrjQqkltJyp/hYgZgWfSqobt1ZZwZ+FYtZM
+8taw/wuNY0y7NTxoZ1a6cMUGan6NOaExbwNplj2fF7ndgz+Sz+7409rCvR9n
+380V2cIJtVmuuYv3IY+vbUrCyn3Yt16hxRD3ACb8U+t1BHZQ8UmgQtcPO6gV
+W64qlmYPX3YLcTQYOMB0ypn3auSOkN6M4PCTlSO0vD/NV/DeEcJ1+ZBGUSeY
+N076RiDeCXqYyeRuHjjBryDXT9LaGaoTkHxeG3WGxNRjKQoXHkJHdScCvtcP
+YeTciew3Yi7wjCehO22+C3wzXDYqwe0Kz4RtOUlkuMKmjVv3OLjcoG60kyJt
+rhus0WUeojvjDi0oCX3l6twhna0kcbKKB3Rq84lVGfGATATifVrWnnBAMr+3
+658nlNvg4up97gUpTnqN2so9gtXUVE6Nk4+gl1jcv4/+3tA/RYHyg4gPLFzI
+ymn45AMFl//dexnuCyM9DYPHlPygD01zufSBH2QONGPdNvGHakd3vEKb/WFX
+t1a9OU8AHKT/ZxEVGgBpCM8Zn/4dAIkHrvWwmjyGsnT+MLH7MUSBptFp8oH/
+76HatnJpIHwkI3sUyx0EUzWpXqQ9D4KrJeH0rozBsE+vlkE4Lhi27W2X9TA8
+gTMXHxvfT3oCQUP55mn2EHix2qzzd34InCcJC/orFQq3jcqv6XWEwvW8JyME
+RmFQWi6TnGc9DLLEs7m/DwuHctEOXJRCEVCIRcfvT3cEVFv0i65wiITc2esD
+yqxPYe5M6YWud08hiTy933WPKHhCYCOJSjwaKkwvyf75Fg13pwd1OQxiIP4o
+fsW9Ngaa7UmMM56MhZ6PuqxJfGOhn2z0hMFSLByqLjSkvxIHS24XGWs1x8F4
+/bh6OvF42Fw3kuWYGQ9PY5PnXkwJUOl3bSB6mgCrHYRz+sgT4b1zhy9kghNh
++mKZUzhpErREqvFToUnQqbB0BB5/BvkPRZ1akp9B3zejzO78yXDmgGrGpS4Z
+fo/jv9Z/8Tl0eUHnkzDzHGrOkPZ98XwB2X2vyrSypEA9ZnmhK/Up0GT7XXyu
+aSq0yZj/PkSeBjvYL/P8qk2D+4+6mpit0uHurHz3rVMZkKaGcG569H+e5mEz
+upQJA+PF1NyLM6Gynkj6BE0WbCdRy498mAW/cHOdSf+cBU/ON+mcVs+G74LM
+A5lqsqHi3/BnyTw5cE1/r6w2IQcK0taqeVLmwvVRifM7/rlQOO9+g+JBLpSf
+E7a/4ZEHMwPPalns5UGhd89qrR/lw7inAi6ehAXQbaWxqTi8AIoc65ekZSmE
+3V/mZ17mF0KurwqXXssXQY47NhYCg0Ww3epYCpNtMVwmfTb2grwEirAIefYW
+lsD8Hw8sm3RKoYp+OkHITin8bRMug3PKYI5/lfuhQTmUyXV9N0FRAZNO3apc
+ba2AWuekSwpwJcyjbH71NLMSLoeu59URV0GJKatV0XtVMJ2dXp9w6P/sRvlL
+SbEaytsGSu0XVMO++JYZRZYaOHacgY4prAayLXyVTzysgbQZs+J9LrVQJ5qY
+s2etFgo3zLzIuF8Hj5OPJd5aqYNjHXdtmOxfwhyiwOFPmy+h+grlv3rvV5Aq
+QjSgl+I1bND9Z8aV/BpqpVAw9onUw5X29aD5lnqYPyXI5HHjDUzIq8/I2n0D
+N4hPerskN8A7d8kCyGAjdLOLIbf/2gjjbU6stcY2Qdo+4xRWlWa4cqWb8OlO
+MzQ8lpstXfEWajuWv2c83wKf/PFraEtqgTol45pVf1rg18tsSz9NW2HgxIj2
+k3etcPltYkzo2TYY7DTLTJzWBv3QyRQS6na4sxJ8NtWnHR6DFmoTv9th8KvN
+jF6bDrj9s8g2cL4DSj43FqW/3Qn1hKQHgr90wpoXfakbZu/gW+mPF+8tvYP8
+GhMbB/ZdkE7LV6BpvwvStlJ8eRv2HpKx/ApiOd0Ne9cD9seruuGUQGICk1bP
+/56lzfP1Ww9MfLC6djO0F94SaeiIFu2DjSP760mjffBLwppyqH8/7H66deLR
+2Q9wrr1KM2TxA9z7p2fcmToAiR7b8hSIDkJavbcj7E8HYZIP7+TI+iDcviqb
+NnZ1CJL9ixmVahyCGo+fh/3hH4YP111Yz8cNQ9HJ7fN7BCNQNDh19bLzCKTb
+yEq/tDQCb/Mep9kzGYXj47OGtmOjkIRKbrdS/yNk8H82NDX0ERbXi4scGYxB
+5chzZcITYzCyWdXR3nwcPtpd2JpZHYcBhn9EYh99gqFk5g8TaSYgi3xsNkHO
+BDxq0yT+pjgJ2yZvGN/6NAl91OwWPTw+wxsG63d0T0/BX3wkTLvtUzDHO/zt
+E4dpiIqkK5g4v0CGmeqGhuEvcMb1l2Zs+AxUgueKr/POQj0SxepngbMw33F/
+gGlpFgqYjFjMaM5Bu4ktdqLqOTiodZ4g8tQ8nHn273ZEyDzUqTi/TLszD1sb
+NFL4rRdgjxj/xy+TC9Bt946O5pVF6K1gxOrRswgnay+Xe6h/hU6ybxdMOr9C
+LdeUbRmNJXjaK+8JU98SNGX7mE1z9Rtkq+xtPTvzDXJ5XuuOtVuG+r+Ojqsd
+LUMq98rbNxO+Q8sK070V0R8wb3Ygjqr7B5zosrHos1mBvOePs2tQr0Ke2dNb
+MTWrcK/LIqvF9CeMzVOz/EmzBv++HaeSaF2D9WlCK2ke65D9sYqHMNsvuDqx
+3ifl9QtWlvIeeU39gl7M8jbUyr+huolE1XbBb0jLFzyqRr8Bt5s5uCh8NiBz
+n6zs5ZUNuOJsxihgsgm/+j45ljGw+b8fUvW9v7AF/Vnn79Q0b8EPZzqBg8I2
+fOhnK0RTvw1tlwaM0hV2IFtjjLX02x14XVHz+pz6LnRlpU16NbQLfzUtHHXf
+3oO8dkZzZ37vwY/NHPu/gv9AieYmPzGOfUhBrce1U78Pg+8ZkJoZH8BF0rAx
+/78HkG9/qdE+5y9EV1MslS4fQhV2blKaw0Mo0Gl9Y7XiH2Q1p6nesTqCJCfH
+XHjoCdDp72nye44EiNBYtZRyhAB5kN3gvCtLiGJiNqWZ0gmR4YHnrAg5EXrJ
+l2hT40yEcMSpe02zROhNEe3H61eIUYd4zl5sBzGKMDB89EiBBIWkU97hqyFB
+tUYK9GnipIiJ+JzuTikpSmE1UFcWJ0MXnO1CoqvJ0GYEN/WmPDn6fkpf3reD
+HE1J586p6lMgAyPai9cXKJDXkBtPnzslYqw0T315nAqZtZcbnymhQl2b1p5Y
+8xjSN8lMpvh5DL0Nv/sxNZ4aqWk0DjEgGvTXoPllwCoN0g95KUuYQYu8Xpom
+FhkeR9ftEgcvUdChhIdXzVat6ZDKHS+P7m465OrCZbkmRo/6SN+02iTQozqZ
+NS/1Q3oUn+w9mGjDgHxlxK5bjjGgTaa+/Xb1E2iz5CxBa/0JtHD1CvkDCUZk
+qWpB87GAEbkxkztQ8zKhd/aPf/BkMSGOHrJsYR5mFPKHlONcPjN64Jege1mM
+Bc2ITMbFvGJBCWqxVccunETTOQlfhz+eRCfIfT7/uceKOMku1yUQsiF/Iima
+16lsyMFOe89D8RTS7HtK+XP6FNKYLL0qEnQaOZ7lcdIQZ0fPPyv63JxiRxNa
+Kty+URxIhKoyrkuNEz3P936md8SJHhQ0qbHe5kKhbUul7S1ciEhWpqeWjxtt
+JE9L7odzo49uAj1Zm9yI8KZ2X70pD9JhcXqn18eDsjOS0lwBL/ryMi9atoIX
+Tdb5y+Tz8aHAWp7goVQ+9Me0d6SbhR89bpP9lJHIj9puL5feZRZA+UMuw8Iv
+BFCw8U9JQm5BxJanyXlYLIjOcq/ePCsnhF5I8rOWvxdC7/Mn9sNMhJF8nzDb
+p01htPZAnKIsSgQ9EOscZBc7gyRS7Q7xwBkETGWThV1FUc3nVvHfHGKobkzn
+Y1mfGKK9Pifs7iuOFI18r1tKSyCa4gessWsSSKtBaybs2lnE4OSXRPz6LGri
+zNhoOyWJlApPBH4MkETZYfJCl35IojwdNSZRw3PoGRQbjmw7h8qyy6DXOSm0
+M6YWTZwnhZLtNI3l2KQRzRvqCKE4adRF+Nd5kVoGkWfPt3iHy6A2D5FQomPn
+0ZUZCZWQqPNIMDR78DSTLHKL2/L7mC6LqIU/UXackUMeRH3PDhrkkAz7q85o
+XXnUSZeQm7Akjyz0RZs4AhSQXN8CgyqnIsoSShRgaVVELjJ+fyqtAEruVKUT
+pIOo32PPNaYJouCxS29JHBD6IVBFk8qH0cGjJgaHLxhZi78O07qshKTVxreT
+KpSQTO48heAJZWRgTaRD6amMMI1cmtacMsp1URb8q6WCmFhD7ITrVZDvZ6ZL
+80KqyPl57opMiio6N5k3J0WnhvImLBlXQ9SQlKJMnz3RBWRamVnd53cBrc3U
+jTITqCPXL4Z5poHq6EZI4lEdpQZaoxIVlojXQFOkv0anOC8iXk8L/uGKi8jz
+4HIFj+oldNvvgff8xCVkTMVDK+Ciibybtc2IGLRQTOLp1cgaLWQvRVjy2Ugb
+icgUspIS6aAeSxpFrgodFKWalqJmdhnFq9peDWfSRSKqrrRUA7pouJ8k0F5d
+D73IYw6JKtBD78cYNDeorqD99NArBY5XkI9j78OGT1eQZ8rHCaCqj4zgeUKF
+Sn00U0/V3MppgLKJSOBCrAHK2XInLSe7iuYZ/A4kfa8iou8cd/z2riId84Dp
+fFdD1HFT3rV+2xA5fExIeu9xDWn//su89O8auiVz9zxf6HV0Ub89K5HRCJX1
+5Lrq5Bqh0tG3SrdljZHwYDbZTL8xQhV2KnPWN5BSZep3L9KbSK53wb41/yYi
+P3+qs0fLBFlbwztlWyaI6MhNxT/rFnpzdHHlhr4pOnzfZG9Ifhsl4ir70Jbb
+6K42cwwZNkMtHPcL/mWYoUkOxUp5YnOk8U1DtNPGHLUIU6yVD5ojTrlwNlLF
+O+jHqPmZsYI7KCUq69dZFgvU+GMmji/MApUXXExsObRA0bfejDO63kUDXb+S
+JdfvoiqSRg/BB5bIifmCF/mqJdrcuU22YG+FCqJWfvZuWaG9Ofxg1McaOfYU
+Cx+nskGNcQcw+rkNkvvALmUjeg9NvW8nL2+7h17/4DrnamKLrB1rs4f/2CK3
+Cb6uzy/uIxkn0af5+AGSMXpmeWn5AUpyN9D4nGCHbLvjqh9esEdmFgS1Ivv2
+iP4lxfLJGgfU+Jrt7Rk5R8TRfpmD4Lkj6p6ubWX+64hyRGSFfMydEDmfHbdy
+txOaQL4DjlLOiHHseBFbpjNqz0WPdI4/RAQMufdPBjxEbM+s98O3H6KtEBOS
+ugcuaDFEtDN/yQUJ7kZNOFq4otL8p8p8C67IjHv8zrClG3o1zXHs6YobYi2K
+cLZycUcjOdLIicADGfGVPW6J9kC3P2e8s+bxREoJnqSPXnsirXXealp9L7Tl
+Olgvu+6FlG1HnxyLeYTSXyUSZ0p7I7d7YWnHpr2RJ4PaRcswHxQQnerfIe+L
+FBPmdJXXfFGkM4/uVr4f2u66YHgg6Y+o/O4zVMX5I4YJm6eF2/7I9LuX6vqN
+AHRC9ylRfFsA8pdmX8kSfYwk0gSdRZ4/Rk7qvBaKFIGIwYxsfsEzEJVZGNlJ
+rQWi5qt6s/KWQYir+siFfCYIxVmFvyu9GYzySR+MKHwORux5PUdtt56gK7nj
+LNcXniCPOqRP+SAEKfrm6K/uhqAJAXHREyGhaOGc4N1Y1jDkfJi95VURhk7J
+Qd3Fi+HIum/x9vzXcCT2+HV0+JMIFDSw1bUhEoli5DddJEci0U65Ytgtv6fo
+5aVC/yiJKJS2mGIxtRCF2He1em6nRiNrpuO/kkVjUBjdU6nzT2MQ2+9X04y/
+YpBMfdh9FcNYdIX0VXFfYyz62RjX0CoQh66dPGQ4Gx+H1pRMvQWI4pHkUOmp
+2ofx6Psjf4flb/Eol1fSYMQ0AQmUEREGf0pA/hO3GGkNE1GcK3Ok32giijz7
+tu/HtSQUd+9YjvlUEvp7Cavv3H2GYgPKbzT8eoaG/17aavdLRvbr4Dkvw3PE
+Hf1cba3gOWqdYronp/wCZU5/2mT+8gIR5BvpZvimIJOUS1bfeFKRv2FGPmlv
+KvIJzSChd09DFHfJ/3EJpiPHcdU0nc/piPFMk3dFfAYaOHfqq4RQJur14OJv
+DM1EoX7zZWErmagtauAwTy8Lzb4TXuR4nYUkv608JuLJRrEu9Xq3o7JRT9Ak
+m9ph9v9+okreYp+DNAYLk+bnc1BmfUZ+g3Eu2tnVtrs5kouU6Ox7h3TzUDI1
+8S2JgTw0fyXWNfhKPrI1Pxz4OpaPOF02Y+7cLkAeLqaXaFcKUFzxz70Dz0L0
+6mERHaYuQu6mz1xXsoqQNLl9IJNiMSI+YXx8eLwYoaJ+2/MeJUin38HK6HQp
+kjqiMLzcUYruh8TQSjiWIfOJC5v0XOXIzn16jXa0HJ3vanmEIiuQW87ZERO+
+SvSqV5eiP6gSldvk7Ht/q0S1lz8weWlXIVKNQKbhmirEkHKHPJ69Gmm1zGv3
+hlUjXSu1tLC9auRyJo58+l4NYoGlW6PTNWhFxEw44Gotipd5+v53fy06edfQ
+UFazDi0V36y7012HjB8elwrWeok0Rkj9KwdfIvZ3Zq92jF4h+QY1M9vFV2j+
+g4kjx8PX6DuJ/WUB0nq0OvNnNPFFPaoq/3U1QOoNOlx7mHw48Aax8Bd95XRs
+QErhaYT/TjSiJzsKUuUNjaj1wWV1DesmRFCdGTXL3IxYbnKvxPY0o6oWvu6H
+j9+i/pzJeF3OFmQi792f5NeCDlhHC07PtyBzL72QNfVWtGOjwsVW3ooq1N54
+lLG0IVIdhx8vA9uQW1Q134WNNtRgZydubdGOOE6K2oiOtyMnTumoXJ0OZBRe
+8GbmXQdiyam1XlPpRHRDw05zrZ2IqoearUf1HbJ7YETx5v07NBL7V6ddrwu9
+Fie12fvchc4wvlN+YPse+RU/kD339z2q/pd50jS2Gz3zOX+GRKQHRb1ZFZN/
+14NKMpVuMlj1Ijrnyw/yKPuQ4m5HCkVVH0pX/1Gob9KPyiOrJ18c+4C28Hei
+P80f0Htxu4BgtwH0ceVtjijrINpACT/VPQeRSb1hWfrnQaRKckxJWWkIlY85
+6IOCIcRL/mM+jW4Ype2uhrp4D6PT0hFiAz+G0ePpgk+NN0dQ3h7pqvbACBK9
+cYc/+sIochN+kRnfPIpuaHyZsFX4iHK/blbw1//P9MdWHxXGUP8tx8KIt2PI
+54FW+A2NcdSy2xZ5dXgcPbcUz4g0+4QER3l5mDc+oaZTHD9IQibQi+pzKnac
+k4h3aHzNomESKco1nP134zNqOizquvLvMwrqDNt2yZtCXz5YBPjqTaM41cdv
+go+mUZBU5qPs6i/ofIWo+M97M+hF/aDVW4ZZJNTv5vraeRbZWO+Pr43OIraG
+2N8O8nMIiUS6XsqcQzpM5+6FUc4j5+UKfuQ6j5JKqG+4LcyjXWNRGuWrC0j7
+4peMsq4F1De3+6EXLqIQMu+6kpeLaP3awIdb576ihfo/exuVXxG233bzPreE
+THaPbR57tYSeyCsH1KBviP1Uf1Zw9zdUQpirmnh9GdUG0XZtLy+jqCo9ggaf
+7ygUmiv8YfqBPpBXyXdW/UDkWsRY+soKml68RmWytYKCWOem9VNW0SBgC5BQ
+/4kcS6dUKbd/ovGwJMK9gjW0lxPFx3h7HQkHpl9VpPmFggY/x5y2+4X8255P
+KQz8QjXP+lNypH6jMsm0x3df/EZfKZWeRRBvIAunFSlBhw3kYdpDoT69gYqO
+E3Ls6mwive7Gj5daN9G5Pd01HdktdIn4ZtCJyi10gZWIqeTMNuK8eNafv3gb
+9YgvUyWc2UGKKdnmFJU7iMWm4UWC7C56/HtVTqttF1G5T4phvT2k+65oKnBu
+D82FlZ4Wc/uDdl+wAl3afRT5cozoqGgffdnTr7ty6QCtBjqz3Fo9QAZvIhxk
+4/+iy25uYbvwEEmWlNXXrh6iqZnA2ScZ/5DAlq3dk2tHaHhYUHKJggAX5QWd
+qbchwCVcDqi7hwDvt9IO8UoQYreDpRdjiYSYZb0+b/0fIa564qbrY0uEW86c
+0476RISjLMULJS8R46S8H91ujcT4R4SKi905Euyylvyev4QEh/w+fqlSgBQz
++X2YZM8jxZX2Bu/9BMhweOVY+7diMhw0+Pq79TlyPCZI2M7QRI7dmVc0DjQp
+sHP643npKQq8/lbPacSREgttsmiuUFBhG94sEJtLha2inidOqh7D9msB3NNL
+x/Dy9QqJiqfUuFfGNNFajga/HRqvZP9Gg50nix98f06L3Y12VRb0juNSNWsu
+BjI6bBc5QrJgSYcPWR/a/e6iw4t/mrs0RenxweDg0N84evxS7GIq0196PKql
+GJljzYC5Y6Vu1X1kwK8ozvPeUD+B+wU+aWfVn8D0nOZ5LyQY8Srr3rVrhYz4
+S9LM6iIvE97Uaja8ns2E80e2vzbzMuMQX/IbYoXM2DOVfKJWggWvJnHuWr9h
+wf4ynK+NL57E4B57XNrESfzyr5Cjhj0r/h1GWXefjA2TnqRHnNlsuKbrn6W7
+8inMubVBHr54CtdLuT62iziNz+dFvpE7z47p9n5wEH9lx+HZIiWLzzjwYD3X
+yvZlTnzgxH0kSMqFn67F6JBZcuG0EG9K3i4uzDpdVBxxhhtHn1z8oxPHjf0n
+Fhk8DrixUO1Fq5PWPFg7LLoBfuTBBkdCUrsXePGe5dOLV+t58asrFqN3Jfhw
+gUI1rXwhH77lwBM7x8uP20o1jR2y+fFu2bHeTV4BXEy5X+1fKIBP145dFDor
+iAt8mc8dvhHErb89ghguCWG56fL3jyaFMDUB/aG2gzB+Lmyd/IJcBPfLtUR6
+5ohge7ObmkcqZ/AOa06b8tIZrCClcP/6U1H8+u4p5etyYnhoobfX6JsYtr6T
+xeXyQhznb51aar0igbPKr0uUk53F37mo/lRZncVsLJxx++/P4qPpatYkMUks
+k7pNE58giWvyhHUJ/kniql+tPD/vncPLztnn7306h60uBeUGXZLCYWV+27pN
+Urhvsol/Skoay4oZFiqUSePVr1fu+wjL4Avia59fFspgF7a/P/6InMfUGUH0
+NyrP497UdMMVOVkcYxKg29Yhi+tox8S3DORwIId2S9KSHLZ94PKwxVsew65v
+ZqHMCthPs0mPrFYBuyYYtuobKmIybv+1J/uKOMiRYKIxB2B+Us/Lx69A3FbS
+9vs5EcK0Oy9VPV8j3KzmWtrjjHEoT6LK2Ekl3MUvSZ/hpYRfdrmvD3xRwm6b
+L+M9LyhjIyFZ1bJyZeybX/zJm00FTy4d9OyHqmCz4gBphX0VbG6aMXnZXhVf
+ppyQ0fmqiknd73hp3lbDpxcls0ym1PDqQbrTC5ML2DvlWcSp2QuY0NXFec9K
+HftaeiRr/lbHLcfJ7ov6aWBi3uTb9XQXcVVUGCFt/kW8Od5AcBFfwm/bRZSf
+TF3CAik+K8s+mnjLtcA3llcLJ58rms/u18Jj1xyplL218U7ChnmshA5udlEz
+a/img1PggNxy7uX/P6enWyrWurjnr6u6N4se3i+XIzntq4d7s7K0n3/Tw8Oa
+E19orl7Bkn/cqhLar2BISkiqeV4ffzAvdNcq1cc8jw3ZXvMbYEEmjpDKbAOs
+0AL+XOO9itl786wGCq7iwyTDFHzWEF/ucL820GiIbdlD7xXqXMM1FTETO/PX
+MClxCdF37+v4F/XPpopTRnjY9GeY71sj/IOH5mWEjTEW6amPoWO5gadGPydf
+6r2BOX+WVLsF38QCCWfMPl8wwXUEgYfN1LdwqHM4od3kLWx1dItbsMIUezOp
+lZ2NuI19BCMYHGTNsOzrpxZqZWY4zV/VXkPQHIvLBZIW55nja7cmPmYK3cFp
+1XPxFpV3cMdmtZgYtMCexbFHigMWuCedh3rY6i7+K2ksJ0NiibXI7kRUFFhi
+pdoPztFXrPCd31rHhIis8UzIWfuhems82CNH8t3DBudOd00P4Xv4vSQt/Tat
+LTY/8YijbckWPyZaulnRdR/z7S5YKVQ/wKPBHenL+Xb4hnpDvka+PSYebvv1
+s9IBN3MvFzZZOOL3Yn8HtLcdcYHo8zLfp07Yn/312RpRZ/xG0+a63ogzHnh9
+K7Et4CH2+HlX2UfOBZ9zk6I62HXBFmWMD5tbXPHR3L6Rfrwbfoif+Gs6uuOy
+8lQxNSMPbGQn17mk5YlDjDi8FrW8sMmcHOmB0SN80sPcduuhN65YdOgpSPPB
+zFmuqvtjvljXieaXA50/dhqN1RJv9sfb7mzlKq4B+E/84yyl84/x6eJTNzsJ
+A/Hm7xfmHp8C8VY9QNQNQZhXfFYeFwfjPP4Vgan8J3i2dESuoSoEr1KCH229
+ofj5sfSN5e0wrBQbry0lGYHfRk/p1PtG4mqza8O5M09xPpXYIynDaPy3aZjQ
+xDEG07U8GutXjsWVQxZzFZxx2EdsJ3WAKh5LWuXIUJAk4D4FLTdV6kTMRlnY
+4cWXhJvKh8Rf6zzD6o8JIljCkrGKWH9x1/hzPFWGc44ppuCUl8xnQG0q7hfu
+putWS8e7UdPdCmsZ2LKsgJZtIhOHTNzflu/OwisvQkLvv8/GcUJKCmXjOdiJ
+bDOBdi8X8/75e6dKJB8PJZf/6HEswLIlxTivtxDbMPCUZIJiTGjgJSrTWYKv
+5ZIxblmVYVul5Pow3grcWXG38LZvJa6PCLRHXlU4trQlx/JJNT6czNdeyanB
+qOGk+N5ILR7lNGboZnmJK4jY+SodX+EnH/nNmWdf47zBv/w+1m8wUVbgqB9F
+I7ZzEH32saMJJ37pUTFIf4tjikNL3XpbMAPBH+Zbn1rxTD0X6/5OG/4P75K/
+0g==
+           "]}, {Automatic}],
+         Editable->False,
+         SelectWithContents->True,
+         Selectable->False], "[", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          FractionBox["1", "1000000000000000"], ",", 
+          RowBox[{"p", "[", "r", "]"}]}], "]"}], "]"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], 
+        SqrtBox["3"]]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p", "[", 
+     FractionBox["1", "100000"], "]"}], "\[Equal]", 
+    FractionBox["59441", "162924191"]}], ",", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", 
+     FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"\[Phi]", "[", 
+     FractionBox["1", "100000"], "]"}], "\[Equal]", 
+    RowBox[{"-", 
+     FractionBox["3", "25"]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+      MultilineFunction->None], "[", 
+     FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.752474290478297*^9},
+ CellLabel->
+  "Out[739]=",ExpressionUUID->"d1fad22a-6e90-4de0-a758-e28a9b87e6e0"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Chop", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"eqsfin", "/.", 
+       RowBox[{
+        RowBox[{"R", "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"R", "'"}], "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+     RowBox[{"Max", "[", 
+      RowBox[{"pc", ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}]}], "]"}]}]}], "//", "TableForm"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.752420501750289*^9, 3.752420529540105*^9}, {
+  3.752420699907206*^9, 3.752420770904365*^9}},
+ CellLabel->
+  "In[668]:=",ExpressionUUID->"d7bde1b9-aef9-431b-986b-f111fb067fb9"],
+
+Cell[BoxData[
+ TagBox[
+  TagBox[GridBox[{
+     {
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["p", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "+", 
+        RowBox[{"0.003150134607785513`", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], "\[Equal]", "0"}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", "2"}], "+", 
+            RowBox[{"0.12369641877200098`", " ", 
+             SuperscriptBox["r", "2"]}]}], ")"}]}], 
+         RowBox[{"4", " ", "r"}]], "+", 
+        FractionBox[
+         RowBox[{"2", "+", 
+          RowBox[{"400", " ", 
+           SuperscriptBox["r", "2"], " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], 
+         RowBox[{"4", " ", "r"}]]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", 
+          RowBox[{"2", " ", "r"}]]}], "+", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            FractionBox[
+             RowBox[{"1303408", " ", "\[Pi]", " ", 
+              SuperscriptBox["r", "2"]}], "118186921"]}], ")"}]}], 
+         RowBox[{"4", " ", "r"}]]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+       RowBox[{
+        RowBox[{"-", "0.00001646380624115267`"}], " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}]}]},
+     {
+      RowBox[{
+       RowBox[{"p", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", 
+       FractionBox["81463", "118186921"]}]},
+     {
+      RowBox[{
+       RowBox[{"\[Lambda]", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}]},
+     {
+      RowBox[{
+       RowBox[{"w", "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", 
+       RowBox[{"-", 
+        FractionBox["3", "25"]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", 
+        FractionBox["1", "100000"], "]"}], "\[Equal]", "0"}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.5599999999999999]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}],
+   Column],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.752420503335231*^9, 3.752420529921417*^9}, 
+   3.752420672966015*^9, {3.7524207286861753`*^9, 3.752420776706814*^9}},
+ CellLabel->
+  "Out[668]//TableForm=",ExpressionUUID->"18b8edda-7607-4b37-989e-\
+5a6258ce30af"]
+}, Open  ]],
+
+Cell[BoxData[" "], "Input",
+ CellChangeTimes->{
+  3.75242085586653*^9},ExpressionUUID->"6571a7e0-b424-4948-9253-090d2a1e9a76"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "50"}], "}"}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "2", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "50"}], "}"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.752392390635232*^9, 3.752392444836948*^9}, {
+  3.752392596339136*^9, 3.7523926433977013`*^9}, {3.752412607908022*^9, 
+  3.7524126088096123`*^9}, {3.752412796766542*^9, 3.752412797523608*^9}, {
+  3.752420460344535*^9, 3.752420468731535*^9}},
+ CellLabel->
+  "In[662]:=",ExpressionUUID->"74d06ffd-a5b1-401c-9bcb-37de47aeadda"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVknkw1f0fxa997Qkhe0jIfi1l/76t91qy3hAlSU+SLUsKSZJQWRJFshTy
+SKEe2T8fkhQqWdITWbImSjdybfn1++PMmdfMmTNzZo6Md5DTMWYSiTTxR//3
+giltlySJaeOPx3P3d17xbtzcqjheFpBKPOYUd+TUZkfeVhuO7X75RI+P/X0J
+DXnkbaGVfTD1PjFbuEEdX9RFglPHk/afqCAqZrMzq9Qs0VGzN4b3C58QS0S2
+fgLNETVmzPx7L6WGyLx5/tX8ohsSnGBWLYhqIAquR7EdXfdCAdqSxbm+mKiY
+n0MKGn+jo89up3SVtRBHXnBbzgr5o9TZ0g7rwlaimXbTe9blFGoUeMr+6mYb
+IZZLV+VZD0Mz+q2mlJR2Yvj6wdRTq2eQ4NHumLb4VwTv5WgefadzCK58qjeL
+6iRUku50tzBdQNmDy5rg+5awSX5vkK6XgMYvxO09XNFNaHGI8o6JJKEVoaT9
+eWXviNrCnpcGu66iXcZZ6RKFvcSOdgHmau90ZNiTW+GR20fE9BnYPlXJQE5/
+33udc7OfMHYxlvXfkoliUiq5RFMGiPOFBc7K27LRDdkaBbekD8TEESFlR93b
+qOxpk8XN+P+IZmn/BJ+wO+j9cMcFoahB4lPPjrZXIoVIXX1yhd93hGAZ93+1
+4lWC7o0tXSkljxLK3DNM5O776JHyihi1YpT45euM5W3+Qc/xpu7lsjHi5dvN
+CxE+5WhhmjecrXCceDjgUPXjehVaI/OxFktNEAa75r5KRz5G7NHbMsxzJ4gB
+kUnJQ8efIAk+saqLNyeJtnAjJWFaNbLSVZhnSpkmzL9PNlEi6hAtTim6kGeG
+OMyYj8xJrUdeXao8JkkzhIxx1D/kRw3otJf27tj4L0RwN/+aze8mdDfR5Njv
+yK/Eh33KRZfDW9DqB49Pq8e/E/nvvyzJbr5Al6S/xSkvfCeC3ss0Pn3bjji1
+QVDNcIE4KcYraVv0El2P6qnzfL5A3HKa8sw80IFKuJdZm/t+EDWRPP4eS6/R
+SbVm1w8idGJJa+XDv1NvkIZTUtnCQTrBxp0zbTH0FtVnizvITNKJwfP580Kz
+3eiNItyOW/pJLNfKlH9d60EZtlzfcvQWiQ3HyvLhS73ILbgHnpxbJKqykpt4
+BPrQ5xqfqXG2P+8VTZKVI/ejX5ZJZAvhX8TVKH/jluQBJHWsp51jL4O4VsLL
+FFwxhMYTb4tJRzGIBlZWVdLhT6i03CdAFzMIukPiIT7+YaS5+EvgBGWFcPkc
+zmiNHkGWF8U9O1xXif1K9PBYvTEUVOizePXMOkGVkCrPD5pA2m2qlOLGdaLQ
+wqwzY2gCrc78ym4ibRA9NmT6gvUkitdIIr4lbhCKr054/1CeQrfww2T77N9E
+o9oDhwOb02g0MIqP6xAJJl/IhNp8+4oCSfN5vdEkWGjRNrH1m0Pr6Z6qebkk
+eMmRY1c5PYe2V5tYaw2RIPbEKd3yqXlkt8YRf8iDCdxWNTPql76jhss3lqsO
+MMNJRf4JA1U6ooqyJ0SfZYZRGR/RH6fp6H1ZhCAlmxmau49O+LfQEf21O3no
+AzOM8zRXN7n9RIqCMifZ3Vgg3UWBMZu2iLIKHg67u7DC0N1H2Y8Ul5Gc5o6A
+XadZQezRpZqw88vocWva2vdMVrDpM2MTGVhGr6dCRS71s0Jd8FnO9UQGYlXV
+d6qgsYF3bfCg9/IKOlX3oo3FmR1IvUfmGJvryLZnpLzcnhM0jK1FQyaZcAtj
+MnMgkBPu1ZbkL0ox4z075mKYU/4w+WwXw40ZS/szHNy6OGGLEhtP0htmvMjG
+v8RixQUbmeUNnzALztUzNfIw5QZ+UgPXRgMb5veiyicc4YbWV6xe9A02nJBg
+t7UqlhtORLTtCgd2HNzrPsaOuaH3oNz3Xe3s2Dwg9NJjAx6Qd2JeoQ5y4PmC
+otdcOrzgeNKZvncHN/ZuL3uqTeMFXZuEJg8/bvxhvjL/cCgvTKdpXhd5yo2f
+6Tedqq7ihaV8moqXPQ/O6usXOqK2BQpZohP0k3ixMSeHZ63CX3AjvUKvRmwr
+bq/RjtDawgenjikyrRwUwI/Lkv4Sl+KDgOSAL8NpAjj3znAxszofTKa3B6m0
+CeDgi4l97xz4wCVPhY+kvg2L2Q+Rg2/wwVXVsyGZHII4cOriXLk4PxixDzr2
+dglhQaHeI/JKArBh6BwvXyaKf3MormwxEACKVp5E01dR/GU1Om3JRgAe8Cyd
+eqEqhtGoPH4eIABTbmdMNZ+I4ePlkRJHqwTg/MDzhLBWcVxvJjuQr7sNMj17
+jnWtSOIjIadsRSmCQNlZQjM/LIOlJ22FR10EIfNIsVJFvAwedVUcLflbECLn
+HIX3lclgL6ORUO0EQeBCWRsyv/4w577b9m2CUCqldVwtTRZ75SnOXjITAvEn
+h7vw653Yq2PkMp0QhlJrBZ+JAHnsJWvX2qkrAvunIyT0dVRwd9haxYSVCCwa
+LhoL+qlgaC/N3XAXgcZtzLbC+Sp//sJyWv2cCEi/5KSkcqnikepaxYwWEZBP
+FcTEqCr2tNqZ4m4tCoeHJcwmM9TxwWCG2xcPMdAqrgp6k0DGXc+KLZgDxODa
+ryHap7tkbCjkrCkeIwbVZqzbFhAZS9Q/5NlXIAad/54zlVom40GWo6hyQgyc
+JDWSE49rYvebr3eeCRCH8i1D+kMULeyK7n5jPy8BpOmQoYbf2ljfI4ezO1UC
+bqe+E2oR0cFSjHTZ7AIJoM1bKeZr6uAp8gUX5WcS8DT/qvf4MR0cVnwY2bNJ
+QuuOriuJHTo47apEyq0rkqAS7khJuLoHv3TPUlW6JQWjmrv4ni/txeXL1yg/
+S6Vgt0XeM4JHF6feuHSksU4KUp57W+VK62KXN2GZdoNSEGel/JNhrYsnTJw3
+QqR2gK6wug81TxeTdvO9bijaAXof752LJPRw7pr50xI3aTgsab51MEAfM7ji
+hyK9pMFXrBbXxOjj/SKtzPa+0rDHWnfifKo+/kvHxH45Qhq22mQr91bq49hA
+oxnKTWm4x9TLm0zXx8fGdMS+9EtD5tcv2e4hBlitXT5G2VkGCtc8ls77GOLk
+/mNFm+4yEJkmVyoQaoinx4s6er1l4OXFF+qZFwxxAWnn9ugQGWBIumr75Rli
+Af0dlV3pMvAfZJi6Dhji5fLtnwO6//TpPBV0sTTCzdc5LSv3ycLcAb4HeaLG
+eDGt8pyqiywUzQ/eClUwxrtT3arLPGVh/eMITU/HGF+/UipXHCQLWkLvSm86
+GGOfeCpLTros6Ci5d9xNMMacpxObL/bLAv/GYCD3gjF2OMBp4HpoJ3C35pe9
+qSXw6A5Ojd/+csBva5cWnQF489BP0tcwOajyFeiMuwVYKnf43UC0HOhY7nsW
+fwfwIZHq0KqrcqAtF0SKvg/4I593jU+5HPyeux6s2wC4j6nRuPOrHIjXeRd+
+GwP8ajxo3y2/XSAzEz17VsUEP74/4KfpKw9Ky8lye2tMMA+Pr9NykDw8UOYN
+MG8wwT6BDL3GCHl4IRkzaodNsLCOKJflZXnA8e9cPdpNcNQz9/sHSuSBsl1g
+0WnABJt/+jQeOyEPws5tKs2/TPB7gYmDb70U4Bg8K3+gZYpXzy3Y+R9QhP4r
+B9TOlZhiY2uLa7NhSmCfsTovdckM6/D7Sdj7q4DPx/yEFgNzrPimg41xTQ0m
+/qnb3Tdvjl/669v2OmmAi4545OA1C9wftNx0x5YM2zLL3h8VtcRjAT0Hkz00
+ARfyxzJKLbHlCSE5PzctqNFWH/l3NwWXHj4t4u+nDVJnc6y1qyjYYiNqLDhC
+B7w6Ty1laVGx4a0vPb4he6D57KHWTw+oWEMt/Edc3F5Qj63SK1e1wjEtvrpp
+sbrgTtdoWi2xwhzrJFrBWT2Y6WQdTZSyxqnkmtyey/rwmCJ7J6jQGgf79G9h
+XDQArorQVklJG2x3nb+cyDQE6VKeG9rFNvj4cbpUcqERXLbuitVRtcUf9Qzq
+228bw3LQmMPpR7bYmuNunMIDAt5eUneLMdqHuU/U6hnRAB7e7WqdbNuHeWVD
+JHy7AVJ0w7dH29nhax/qheRcTcB83DhHYMoON1zbe++/PhMY6ZxhvD1tj33B
+jCJ9yBRUxds/1/M44JYfcee9hkyB/jBQ9aqbA679JSgre8AMqn9t07hd7IDV
+VnQGw0bNYP+X0DvkNQfssJqs2OJpDmaBX2c2bB0xnRF4NW/aHAJVErxb7zti
+sk2x+0aABeyML3nCz+KEJXO3Nu3/agFpnNlUPXcnnDjLuYcItYTBjmGNL/VO
+OH/vHjNZuiUY2PbnENudMe1DdX1CIAVacgYG60KdceLp59ToJQr47k5/a/rR
+Gftu4zh5MpQKo0ZqeSyGNDxcp9t0J5wKfnNiZY1GNOzs5be1O4IKCkrbhsMJ
+GjZ++PqJdjQVRC8ooBlTGhak3FjfiKfCYN60Z7cVDbdEyqSkZVFh6xrTzvuu
+NCz22aCquo4KzSGUmpBQGk5LDGCZaaAC09adbRrhNMymnr9fDFGhKIF/7dtp
+Gl6IYl6NeUaF3hKFkZORNPxC6JUptZMKC62Giccv0HCIlUvfx6E/+UwFz79T
+aXjm+2X5LSNUCNtjMi+fTsOHsurOEGNUYJQHFU1fp2HquIRk0SQVFkN4rpzI
+omGpc+PHAr5R4fIV0Au6Q8M3dgrV5i9Q4RY3Cxc5n4a5Oiy5e+hUoNI/kn4W
+0PCicNmjPctU4NDo9I0oomG/pkHSiRUq3Lgz/kGvhIZHj25xvr1Ghaa7/KfW
+79OwCzdR/HqDCrHU/WT8Dw13VgYvb27+2Z/1SDTuAQ3/D07M0do=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$283038#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  ImageSize->{520.74609375, Automatic},
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 50}, {-0.0012615938673915944`, 0.}}, {{
+     0.00001, 50}, {-0.0012615938673915944`, 0.}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.752392401724881*^9, 3.752392445011245*^9}, 
+   3.752392643855624*^9, 3.752392723236087*^9, {3.75241260569595*^9, 
+   3.7524126092609243`*^9}, 3.75241276478483*^9, 3.752412797730137*^9, {
+   3.7524204462757587`*^9, 3.752420469011427*^9}, 3.7524206775575457`*^9},
+ CellLabel->
+  "Out[662]=",ExpressionUUID->"8bb50e65-9c10-4b91-bd67-07c2d3473199"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVk3k01A8XxmXJUkqyzkxCkhaR7Nu9ESZZSiU7hUiWQlKWhEpkbFmqCZHy
+Q5YWjPANIULfIVIqhKJFKrvK6/3jnns+557zPPec+1yZo35W7pwcHBwLS/X/
+nv1J1foK7bO+9Ue3uudih/QWVysMFfgkwD1vjcQQkwb9o3v+7m/2yoLEkNip
+L4ZD+keNdl53SLgH7/aECQkUTumLfPK4cuh4CejuWNm92oALXA07dO/dfgjz
+PTyFSWKroDpl9FEuowJkeaYVz/8nCiLDnIrZIU9ge5JgVG7IOvBRXZfH9CSA
+Q6Mzqgc3gGv9TUZbQR2kTmi3PndUgIQv+a2mtxtg72hqV47IdqgWLl/ekt4I
+mk9TJEpUVGBUu8HAhNEMOm8Nh+buqYGIKxneGN0CVcymYUUvLcC491WGIS9g
+0cRu0PisHlzvm1FBz5dw2HAuWQAMYehCpIZzCQmDMlPSAywjmBO9ciizgA0r
+/F5wSNnTYaN+WhLtdhe0F9veaxKyAN1OZok98xWk8MaFpSbvA6tjue030ruh
+yGq145SSFYQzSvklGa8hpl68W/3OIbgmW7HJ5koviJ5fFi0SchgKymuM0qPf
+wKfjnmIS7rbQ86H1gmhIH+x+qEiJ8XcEJaWRuTWe/TDNUi5z03KF3MGpuPwd
+A0AGtOqZnnKD4q1zFHrJAIiMzr+qfOAOz4hFzcsFgxD5nu601coTJj6vPM1z
+ewjEJjU/anP5wsIOIe48qWEYeXtnk/5lP1geujZlN3MYLH9//ugUexJoQpSy
+qPQRuP488ZiovD/s0dz0fRnjM2zr4s01TDsNByO3hN5eMQqPqxytaeFB4NKm
+uGLXlVHof/vDu9DrDAS5qG6OiB4Dz4zgwNH9ZyEnZpf7v3NfIeBtgm2tTRjM
+99q/n/f4ASse1X922xAFF6XHI7dO/ABBrrTLtS1RwKeKItt1J2DKj23C9o+G
+5JBOltOzCehlHjkl1X4R7grMcD999ROUpXf46ebEQIcC3oyc+g1JPQdns9sZ
+kGLGP35DaxKyK74KiGQlgM3JTnwYNgk/7NaXpWslwscKt09DPFPAHZLBfX9N
+EkwbX9lhJDYNpyZMNYrZySDl3tnMqzELy4KZ7DOJaTAUc5MiHTILx87/1JBf
+lQ75RW4+msQs7PlgyisVnw4qk9PCx03mwIb/3vtPjAwwjqI6tR6ehwLdD/XN
+t2+A3223yavBf6Bg+9Y2Ie4sGPANEeJ35EBz4Hc3tLsDvhzfM7tCObAmojfZ
++d4d+JPkpJjJ5EDxS6n5/ybvgPjjXaY733Gg2Bfv+oakPLBY4I12tF+GkTyc
+3x3Yd+HJ5WszZbaceLd/Vv6I53+Qln3/g501N86IRivK/CoGs87+oiJLPlxl
+WHru5X+PoW52JPW1Lx8GLLjkxbx/DOrrv4VzMpbm8s4rfNeUg7T37D6bNj7s
+WibAW322HCZ51kxx7eFHybBoDjuzCmBqGejZGwhg0JOxc0ZzlfA9+047v9pK
+pIxzhn3xrYbmCtUzOwWF8Ml+Ca69vXXwoODKKqqUEEY4R5Cxs3XAvPUhj1NJ
+CDu1tvV2SdTDyaiYV+x9Quia4C8YYVsPFMt3O05eE8JUfRlJ9b568P0U9a2I
+uga/yYSY1/Y3gIho1xH5LcJ4LOPtKr0vjfCPV2FOUEcY/+RX9L8SaIKx+dDE
+qb3CeDd0YNRjaxPUDsgTz3yEsYnZczvMuwk8is7RXMuEsWEqwd12vAmqDGVf
+Z2muRX3LkFSHiWY44n/KTNJEBCU+h9vlj7WA9IiZ2IC1CIqrqjGvLG+FgcMK
+A3ePiaBepfyg9YZWcNHrD1C9JIK2vr3WDx2WmM/8pmWjCP4+ZDDt1rHEmQpf
+LhqKYqpPuqXS/Rfg0tp/+ReIoYze+mnjg+0grfdkP8tSDD2d5TLjfdphoCSN
+GuEshm2p2Sr3L7WDS6p5ieB5MbTyD3ILrFxilyc9CrVieGLfdOhqSge4TKdt
+dNYVx4Vv+OL1qw6QPu7/Y6OZOHoWRqy0+doBA33mrG/24ih45FFy3rKX4FLH
+bX4uRBzFklJ25Sku8VX/wNQqcbQNzc2QjlpiWYuGF5oSeF+9JCRvDQlk4ELJ
+8B4JzA2Ojv1MJQGb85l/7STwtFpcBZc8uZQXriClMAkMfvZ3sVmLhP7HlQop
+dRJYdO0N6etMggXfMdGiTglUeclgnfQkodZuLWfjkARa6vJy0E+RkLno0zfN
+I4mpKaK9AZEkOO3ZwLAzlcQiudUZRTkkdNwkzwXYS+L9CCNrowIS9MfDPK56
+S6JCnC/jfhkJUim9WMuQxH/hn5THCBIYIxcVX2dJoo5C98+qJhL+aeykTJRK
+4rWDE7027SS8fxf/W6ZLEn3+RcdNvSHBTElnQHtYEpM3lUT86ieh+sJo24Ep
+Scz8pDJeMUICU97w7kVxCs5KKGhnTJCw8uxEcqYCBdti//CWTZEQ+uLW+Qot
+CpIr0rcx5klwODlrM2ZPwVstRyYTudjQVp9nxOlDQe5umvYjXjboih5QoYZT
+8FATDyV9BRuKPDjWqyZQUP3JcWPN1WygVd1fYZ5NQYM0cE0TZsPVlfaz7mUU
+VAn4wF0qyoY/Tnwj4fUULA6yKo6SYIN32WN2ehcF69KzXq6msqGPy7W2dJiC
+D381NFitY4OptVBhyxQFg9tPdJiuZ0NVfk36x+VUnPQ1kZyWZsOWBa/oBXEq
+6j4cL7WSZcMNc4lTIpupOFindcFpAxsEshsdFbWpWLB3fJ+4HBvO/fI3Nd5L
+xS8nMqrPLfGX3dIazg5UfNt/SvnSEtult28I9qEi2TY2oL7ErWPnhJLCqcgQ
+2Fx3ZUlPW1fh738JVPTzWx8csuRXwOgeq8+mosCuG/v5ZNggORjZ01dGxfeJ
+qtu2Le0bs1O5YbJ+yS9O6MhHGhtmL74vEXxFRXHfmtyNFDZ49sYy5UeW9Pl1
+en6IsaF3i+YVmKZi+RGuF1pr2UAPGzltw0vDitm3Y/Or2FD5MvnoKQkanvBX
+6FcQYIOCLFrGbqZhX7yHjS83GzICv+vkatNQss8oyOcvCXzNNxSq99JwTKfa
+zHrp3sGSdNFuBxoKo+Go9TcSDtfmjC8/T0M1D0aNYS8J2vY3+MgEGu75qBRY
+uJQ3qdkk2evZNHxd/ZVSW0/Cpx0XrLfW05AkN6fvLiIhMM+51pJnHV57IyVV
+HE5C4lUaIyNuHcpYjAl2byThuV2a4pYMKbwQ7KoY96cDimbiTX7nS6FuRCGn
+/2gHJFy7eKSaJYXaJqcMTy39v3VHYKpFnxQ66HRYVxZ1wPCuA3/9pdbjnNsk
+j5tTB3BsFmp/cmc9uuo0Na9sagfmwu7yuzbSOCfLsy8xrw1m+aPfnXORxuHV
+y146p7bBIYkGTktPaew8aHMYL7bBKrVdljNnpLG19Ly4qnsbRPjqjZqkS+PM
+pxMeQxvbwH1QjTLWLY1nIfKSacEL2N4sH771gAyuOZO4PKG2FWK73e8s2smg
+mPiFVovSVvg8dKe166gMbjXZmkTLaYVsjg3iof4yeN9hgj14sRWEtdeXtiXJ
+4BnT8h4hi1aYKRL/6EPKYOUJabkfAy3wNJnPuNRcdum/rZTkhVpgMrE0TNFa
+Frd7MRz9OFtgc4LN4wInWSwI/aDZNPkckuPy5fL8ZDHyqXwO881zcIumc91I
+kkWN6cBfY7nPgS8o5mlUtyw6CVNKJ7Wfwz5bPp3DjhvwP9OQOkP/ZhhYz6f8
+z1sOs15biHNxNsGi42+Or4FyaNbW69Y/0whSzA/s16Fy+HO+6EvD90ZwlHgc
+UHZVDqkBzQF5bxrhrdDRCrciOUxZabC/pawRXi2r1n/xVQ6jyqlyca6N0DLk
+Z57htREbFVZ/KGt7Bg/uvfZS8ZRHF9VcrZSHDbBihafVjJ886vaMfHIobAA3
+31mt6jPyyF2TenhbbgOIqUnyG1+WR56EMY93yQ0QUm93z/auPD5Pro2J8G+A
+3e/fD0UMy2NtS+uKLpUG6BEednjpsgkLd8kInq6oh/mwCQtvWwWs/kHsPv6y
+DvRNjeK/BG5B9ctZspNCT0FtjRfN0nsbBv2wzN+7vwYUOlp5ZuO34/E1ayvs
+c6rgube2WZeVMna8PBhqYFoJ3X4zNbfMdqDmzN3aPotyGPTpdIi1V8HlVuZK
+/YcegfFxUTkvm504sm3Vn/LsB5DvHCTh7aWKRWeeeJDDpWD0N2Tw5Bk11Dih
+XKyWXAy6GWOdnv7q+O0prdP2USEobz/9MzJSAxeYUfMm5fkQXuepmRihiWJl
+taxWjrvA+4fjYPZZLTQ6oZTP8MyFhB0VzM7L2vgqKafvx51sOOnWLTgbpYN2
+nylxWipMsEheUwSpujig+M37WWUaeHj8koq9rYdsDaUH6k5J8FZLp6r5pj7+
+zEyycCdiwJQ3J3JTISAapBtsqAsBgeOVWnoHEcuEFqf8LBxhpaw/zZNE9CfP
+a48Sx4n43ipRucO70NzM8l/mxQvEk3iN3DevdqHfc8LjLsdVwhMNTaQdDVDs
+psi2jmcpRN3PyPMu7wwwTWBmokH/OlE5LSIra2uIR0TEhNc9ziS2z6n1BQ4Y
+InfIP2tH5xxi33ysQp3TbizzzRtcA3nEr1nfq5mfd2NU7NHKRe98YsfePLu/
+PkYY6qd3v/NWIbGOubrm0FcjfKTrpG+VX0zEfOFThwBjVC3W70/jKiOyNNQN
+ZX8Zo82YjmNg1gPiYO/jqku+JrhoYfNtQecRERP0jB46ZYL3RkTHmTzlhOda
+3hMnAuj4faQmnl5VQXxgadbcOk3H631x7Qt1FcQBF6/V5Bk67qcwWktaKgj9
+++0PVUPpeOiBxx/JNxWEiMm1P3+j6biJbw5nZiqIunMyjMQ0Otpu+mjbrVZJ
+UD7qlD1m0ZH1PXOb9INKIjHGh2v0CR13Bs0qfmVVEjxKWYcotXTkzdYeL6+r
+JCZCOOfD6+k4f6mwcB+7kmgSbTGgv6CjhXcONX6ikvDfY/3q7Ts6Cn+ef7tZ
+iUWM/rgsL9hPx5mVL0kODRbhmMYKhkE6TiZaX+rVZxH0Idq6OyN0DDz6QDnW
+gkVIhQ25+4zTsW1qMWrah0Vc2yBamTVBx3c97OCu0yyCv9VYoPMXHY8GViuW
+hbGISbGCYvUZOopcW9XrG88ivGr6OI7P0bHHJ6HdIpVFDLgKHri5QEfDh/ZR
+SrdYhLUA5LX/paO8UMScUB6LeFF6cmZxkY4myvzKv4tYxP8AwmReJw==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$283082#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  ImageSize->{520.74609375, Automatic},
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 50}, {-0.10029525683165828`, 
+     0.2678542588323559}}, {{0.00001, 50}, {-0.10029525683165828`, 
+     0.2678542588323559}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.752392401724881*^9, 3.752392445011245*^9}, 
+   3.752392643855624*^9, 3.752392723236087*^9, {3.75241260569595*^9, 
+   3.7524126092609243`*^9}, 3.75241276478483*^9, 3.752412797730137*^9, {
+   3.7524204462757587`*^9, 3.752420469011427*^9}, 3.752420677655203*^9},
+ CellLabel->
+  "Out[663]=",ExpressionUUID->"f636c3e9-3962-406a-8293-a9ad451f1629"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Rho]c", "=", 
+   RowBox[{"\[Rho]max", " ", "*", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", 
+   RowBox[{"Rationalize", "[", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "5"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pc", "=", 
+   RowBox[{"Rationalize", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"eqEoS", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rfin", "=", "20"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"RicGR", "=", 
+   RowBox[{"-", 
+    RowBox[{"Rationalize", "[", 
+     RowBox[{
+      RowBox[{"8", "\[Pi]", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"T", "/.", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+            RowBox[{"eqEoS", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}]}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ")"}]}], 
+      ",", 
+      RowBox[{"10", "^", 
+       RowBox[{"-", "15"}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"myeqs\[Alpha]1eff", "=", 
+   RowBox[{
+    RowBox[{"myeqs\[Alpha]1", "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+     RowBox[{"Max", "[", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}]}], "]"}]}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"eqsIC", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+     RowBox[{
+      RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"-", "0.12"}], "]"}]}], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"R", "'"}], "[", "rin", "]"}], "\[Equal]", "0"}]}], "}"}]}], 
+  ";"}], "\n", 
+ RowBox[{
+  RowBox[{"eqsfin", "=", 
+   RowBox[{"Flatten", "@", 
+    RowBox[{"Join", "[", 
+     RowBox[{"myeqs\[Alpha]1eff", ",", 
+      RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"test", "=", 
+   RowBox[{"ShootingNStars", "[", 
+    RowBox[{"eqsfin", ",", 
+     RowBox[{"{", 
+      RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+     RowBox[{"{", 
+      RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", "4", 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"11", "/", "10"}], "RicGR"}], "}"}], ",", 
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.752316417676708*^9, 3.752316426521112*^9}, {
+   3.752316471868669*^9, 3.752316539977414*^9}, {3.752316623768167*^9, 
+   3.752316623893949*^9}, 3.752316688281028*^9, {3.752316828486504*^9, 
+   3.752316914306848*^9}, {3.7523220572176113`*^9, 3.752322150343884*^9}, {
+   3.752322200594215*^9, 3.752322376396759*^9}, {3.752322410901619*^9, 
+   3.7523226147538967`*^9}, {3.752322729440486*^9, 3.752322741026124*^9}},
+ CellLabel->
+  "In[1111]:=",ExpressionUUID->"565cb846-dc0c-47cd-8837-be0b9a63f814"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"FindRoot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "7"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"FindRoot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"test", "[", 
+     RowBox[{"[", "1", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"test", "[", 
+       RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", "ricgr"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "rfin"}], "}"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.75232257154245*^9, 3.752322598734272*^9}, {
+   3.752322871416922*^9, 3.752322917165543*^9}, 3.752323058461501*^9},
+ CellLabel->
+  "In[1148]:=",ExpressionUUID->"f5c10684-9ee2-4e6d-b4ea-10a8ee0924f6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"r", "\[Rule]", "7.807979542293882`"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7523223171108093`*^9, 3.752322365805702*^9}, {
+   3.752322414014778*^9, 3.75232261736474*^9}, {3.7523227317442303`*^9, 
+   3.752322743514076*^9}, {3.752322869801609*^9, 3.7523229034049788`*^9}, 
+   3.752323058960722*^9},
+ CellLabel->
+  "Out[1148]=",ExpressionUUID->"83911146-5a34-441d-bcff-813934dd376f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"r", "\[Rule]", "8.114110568585492`"}], "}"}]], "Output",
+ CellChangeTimes->{{3.7523223171108093`*^9, 3.752322365805702*^9}, {
+   3.752322414014778*^9, 3.75232261736474*^9}, {3.7523227317442303`*^9, 
+   3.752322743514076*^9}, {3.752322869801609*^9, 3.7523229034049788`*^9}, 
+   3.752323059052*^9},
+ CellLabel->
+  "Out[1149]=",ExpressionUUID->"3f440665-eddb-4969-b8d7-9d5d0cab60b3"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV13c8ld8fAHBZiZSIMsK1XfPaVM6nrBKykuy917VXoURmtkRRKZEikZGc
+wpdEKhGJSkZSZISI/J7fX/f1fp37PM9nnXOfS3LyN3WlpaGhodLR0Pz/8+Gx
+6R2D7yY1TQynJsZv5SKrr/z9feQI1OYrfu//PuZh88lWNAlRrYz+fSVcU2Uu
+WT6chRgirD6NEUZSUc63hAoQ3NU/8YVwz50b1655FSOS2QGdT4Rl9kz8OPHh
+JpKivun+SPi30SrT8c3bSCHB8fMQ4aZUZjFdUjnyvPkqZoBw7MsDWlo6lcjW
+ac/9t4T1mCgO4FmFluck3F8R3i58s+W67kMUtLn7wQvCM8+lDK8N1aCg18/j
+2gj3OtR9LPSqReMK6l+fEn64pel1daMOMZ8PeF1POPywaWK+YCNSZ2Y0riBs
+M/KRM6+mCXnUWYzf/H8+Ua6lOdrNqEDegK6QMGNj+PNMD4xunGf4nvT/+KW2
+SRw7+wwtyzQ8iCXs9lfHX0/3ObIwnaUJI6x/9fWmzlAr2v64Xt+JcLPnXh2d
+G21oUUrt6On/10P9TKq2VztaTdzTcYIw29BXHq2N/9Cga0mgIuFBzhVVEOxC
+QSmvbTdvEvWf1IhB37uQityTx3OEm2pjOjRrXqIzI3mFnwlfN9tx6rB2D7qk
+P8b0jLBLJl+ghsdrxDi26R9F2Lu6eqRo/xvE6npXzJOwyH6zWL6zbxAt71MP
+C8J53/I7eXXforScD+lyhCMSSBY8Q32o63qtw8iNXKQw17ZWcOgdUsZJAR2E
+Z065XeO+8Q6VK4uxVBO2Eb03sd+rH/3gsv4SRxjalYL2bQwg7Q8iTIKEGWmP
+ZewV/ICOfjuoqltCxPuxW4cp7QMyUon2FiOsUnfy79+1Dyj/5669jITdPE67
+jb8bRsM22c/binNRR6/boZrEEUS51Z2kRvhi4cXpk78+o9X08xXbr+ei9Cb6
+1yTZL+ik9H9sn68R81vWUV7o8gV9Va6eriO8GKtvf/ntF0Sda/npSFhIyfRl
+6L0xJMN3Gh4V5aLzVx1LdOzHkX8m/7RGYS4yShSOwrnjSIOFwWQHYZ7gyVPq
+PeNo6a2exOBVYv4NPVlk1CeQ8PofQSrhrzTU0L0ck2h8Ml7pekEuOuIeazDe
+MYUkftA9GMnPRTRKxX9iZWfQlz1bXN+ziXpNmt+1c5xBDyQvnikn3JDHbHko
+ZwZVLZRzehIOWAupX12bQf9me9emsnLRlxaDUL//fqD3cW5eI5m56Nnx9SVr
+m1m02S1dc/8y4aqKMF6deXR11GT2W3Iu8rt08WSy3TyKS+X8lEeYz9FBfC1s
+HmH/C0iHcDg71+D7inm0qc1vVpKUi+RD4lSy2BZQp2BY7clLuahEw3KZaWQB
+EUO9L/tiLor5jyFoJXAJ7U0w3yqPyUXx/85kT6YsoeP3uyyOEU5WffCov3QJ
+7WBe4Z46R8xTucXvmvdLKF2E+asA4QdpZSH+Gr/R/ewD/qnRuejTqePh09uW
+Ucb8SanjEbno0FTq2eGMFSQl0H3RKDAXHRUYu9ZVvoKKIx8WfqAS82+p3NLQ
+uoI0dfbucSFs/nL0X97vFWRaXLY/LCAX+TyQjTWzXEXjKacu5/rlosLQN+d7
+BP6gvyP1Tx555aJ1xr2XWh6sodwNk39UJyL/oi+VL7vW0J8t7rARx1y0Qrn/
+9v3EGnJb1RfSJbxgo8v7i2cdmdNFse5zyEXTNeEPBBLX0VTHumiVbS56bzfa
+H2v/F33Zcbm/3pI4Xx7fIWmxbaLCM9GVYka5SNYgSPek1CbiPWKuHmqYiyrH
+kLe17iZyNvk+3m6Qi+7u/FAbFL2JLPsTLtufIPaDE8ux0ulN5KfHIpN8LBel
+7grwY3j+D+nWd359dDQXKT0qGh1Xo4En5iBorpKL9v1Ck+d1aECpv6QrW5nI
+jzz+k2RKA2/fJRb0KRHzcFNyw96bBlhpHSoMFXPRiazHPCPXaEDH88w5dflc
+5ER9c7qfdhvYLz21+yaZizLk6Pvae7bBYuSQQz5fLgryLvvg/GEbZHy+ntfE
+m4ssyvTHaKe2AQ0qHh3hIeZJIHMetrbBeElMET93Lirbxb/7KYUW6r3+duVx
+5qKWWVWDujxagK4ZrTO7ctGPe94dtx3oQDDKK4+0lYOYuU4Ym/nRwT5pXne2
+fzlIIpY8TBNNB1IDFXT/NnKQm/n3Wet8OlhwDi8aWM9BYxtunOy9dHAgT5AS
+upKDBg2dXM4dpId/u2m3R8/moLZflrSnuRjgjlKIZvZwDvp6Ri2VXoQB6k9E
+5p75kINo2vdx1VAYYJU/PJ9/KAdpXnkvyWrIAHV3WK6UDuSgRjA3abvAAIbF
+Ir4lb3JQVebJErkFBhgX2EG16MhBhYq6mkw9jPAipJ6htjoHTRk6/Qz5wAgn
+azpJ5lU5SN7j3NXxKUbQ1XbuW7yfgzqKHq+0bNsObBf/+yl1LwfNM4hXhahu
+h0eTL6dSb+cg3aHtguM3t4OB//wC09UctBjdta0lggnwUJHBWFwOOt5h8F+Q
+ODM8X3k8/NogBzW8ve2xrsgM8tIntMgncpDY6D+WOGCGr6fNpS8cz0H0v6tN
+088wQ+XOxCh53RzUQuL8cjeFGbbdzZ0PRzlI6ezo+ugvZphrS9J+RslBgkp+
+8scaWOC1APwU5MxBf25cLuQ7zgoHbbuXZt5no5sfRZ4/tGAFuxG6I9X92ciQ
+s2lK14UVWleTQoL6iPVLExRqDCtYkfXSl14R6/7qL/6rY4Wpe6Omw+3E+qHx
+335Cu4BDW+kF1GSjE4MqRs//7gK1v9dk3VKy0UlGfxrF02ww+6f0XZ1KNnrM
+O8SabMsGN0zbp/cpZSN+yhHeMWc2SO5N7A2jZKOf1hwqlwPY4MfVWkaKdDZK
+fljv/SOJDa7Q3qFPImWjdhuawVvNbBAuoM3ay5KN1B5l3t8rtAc2S1e6b37K
+QkIOtVYrP/dAgGzfD7GzWaj41cFImaU9oJbHdIY2MgvxHWwrcFnbA4ba62Yf
+Q7PQPq6+oT4GdmjyYp+9GJCFdvb8sqjiZ4dVs8m4p85ZaEVVyszDmB2EjXy+
+1B7PQt27b54YfsQOn5RL4xo5slAwvnyoJZIDSnz/nG8pzkS7tZWvRcdxgK2n
+/8i1wkxU8WJ4U+MSBzixuQ1G5GeisbeiuD6XA57S2NwVv5yJjCaeHHlYzQHX
+R24GWZ3LRBI7pnVLpzjg7TbPTB6bTDRiCibJpntBoORt6NLeTKQ1Ne9qQeaE
+ys0rh4OiMlDAuNKRG/KcUDN6wOhpaAa6/iWc76cKJ9jJh3+gC8xAf4Zp3sVp
+cUJxeaZFgkcGqnzNBvdtOOF20M5bDqcyEFejPA/9ZU74wSZ8xEM2A82kBPQ+
+XOKEEfWOfMcnl1EWZV6F9SkXMO7ZLsHimI5GdUzNPrdxwdH0tz7N5ulIwqrW
+/+FLLlDnvFjtfCwd4fPhd08NcUHlf2hPjlw6+vmOhuf6EheUJ/49FLWZhnRC
+92zKkvdBPB1JyTo/Df1pUmgzzt8HXHd0+PnbUpGtdsjJHOp+ELZNuXT6TzJq
+qV4+qxu+HwRUS3fGfE9GggdCK/+c2w9m+w8euTqcjL4uh+6wTd0PYHc64V5z
+MnIrC28TLdsP9nEidGqxySiAOVq1fmQ/THA0hv6kT0bn35wXGNbjhnPTphVn
+6JNQmU3GLwF+Hgjfqa7vM5iArh6pumInwgMVrJa/DnUkoHSx3iPXyDxg6LFr
+8F9tAgqeZ8nhUeUBUcXT+y2yEhDEJ6pxGvPA054zaycNEtDwvXNxzOd5YOi+
+77LN04to518fjuVJHiDfP7hLIjsebX1OaVb8yQPb+PfaLcTEo8X2CtfARR5o
+WI26etcnHn1In67/9Y8HYiiTxl904tEdIRebmX28sHPs9nDA6gWE9K1vfz7O
+C6uvOKKXLS6gwILjqi/v80Lpf/FfTzOeRxdyE0gZtbyQsL/ctGouDuVktrFY
+POGF1NejTlPv49DjpMNfxl4Q62Kvg+buxKG/EZSktXFe8Iky5dfViUPxVtwf
+JXj4oOnn/gnFyFiUx/v9XGICH6yWByUJxp5FZfvEPA3T+MCaPTvXR+csauBw
+NuPI4YOZY5luRsxn0TDLqHjxDT5Y6bF61pcVjQQ23rx53MwHFi1h4aPXo9Dd
+kQahqUU+oOmK7RO6FYEar13q0LY/AM3LbHaGDiHIht1FKt/1ACQbp2i8PBCC
+aBJRxnfvA5AyzNH2dzgY6QasnEkPPwCjp2u54syDUd9Rl9nBzAPQpbb4SlE7
+CM18Q3u92w8AC53DF619VMSnsOqYKckPGhm5mRlkTxTb4bo5usQPuidf73oj
+ro+OmNrfql/nh5LHuZ0nbuoh2k+WxzO3CYAq08busAM6KH75RK72bgHQPFWt
+wcsF6JKIgsw9sgDcY/WcOHRcAmWe/2cT7igAnp/97fTCD+KbmvnN7MRhOyFw
+5okaoxV2fpnh9HNAAMLbGN1c5KyxiEUyU8eIANz/9d81w9M2uMz3rHnEjAC0
+PXGT1bxlhy16KSu/aAXBVIU/NCDXEVtt7ku34BeEg0PCym/WXLGT9cRT4VOC
+EPXxWkmzoB82MpwviLUUhIENWKUv8MPqaCNk1FoQqvUajCzZ/DGb8F7ZfCdB
+GLZfHeTa8MctM1rXmQMEgZIe5zs8HoB5Im+dW0gWBI6Bqp6evEDM6FNlZZQu
+CKcOTHt1vgzEC7ZPVO5lCsL8nM4vlX+B+MWRd3MuVwShLrCImeochEN30NkP
+3RaEvpFhJnXxYPzuihPCzwThnO7v7Y7ZIbgl2Y+Xr10QWsR8I3VaQnBFdORq
+eKcgsExv8WdNh+DzDllVCr2CsKGuY+t4MBTLS7QK3PkoCOSmLPGOD6GYj6f3
+L+1nQbAqWU8c3grF23cOD9p/FYQxtSkwFQ3Dn34tXOb+Lgg7bwsXefqF4dR6
+Ek3aiiDQp6M1ybUwHF4uM/J9TRBcXBJpT/CEY+dC9QbdTeL7a0up3RrhWCPG
+JICGngSdF4QTvkeE42nduC9Be0jA2GWZmT4fjvvV0prf7CVB7q0du2/sjMCY
+XHBFZj8JPubsU2OTiMB5ux4af+MnAQ1LmC+dbQTWfv/lmZU0CVR1bXxUcAQO
+pz80fFaOBBrOVOOb/RH4vkL+UokCCcpLH4Wd+x6BuS4bin1TI8Fb2aM7E/dE
+Yv2ndxHzIRJ4/j6MHolE4pgfdGdkEAkiYlvhpGokntZrSgnSIYE/NrF+bxWJ
++UI5b+cdI0EVV5XJc+9IbFIa0NJ4ggTVT1Xe8kZH4iYa8YUtExKM1N3WFSiM
+xHOy55mFT5GAxUeX8qI8EgvbjgrrWpKAjzM2/Ut9JE5tzLZItSPBi7g9FfZ9
+kfjZtzn/KkcS/FTTDe74FImXOfWT+lxIwC/Q9aJoJhLbBdI07/cmQaLbL70r
+NFE4q8R64KAfCer0juc+ZY7Cnb2P5+yoJOgwPlNjujcKy0v5km6HkSD2zb5n
+PaJR2OXMC40XkSTw+8sw81AmChckCpv/OEuCY2YiFtuVo3Bv3TnfXXEkOKrC
+JPHqYBSmnfiQQIknwdpl5gS6o1FYlV25xDyRBApr2gUVelHYBzIaw5JJIDKY
+ntZqEIVL/H70XU0jQYpXZOYJkyg8UKT782kGCRxem7zXORWFmbtvMIxlk4B7
+iSPjoWUU1lzb4KfPJ8HfUOpyunUUDhK3VBO/SgKdzC70yTYK3z31yET/GgnS
+fojdK7aPwiMXdnn7lpAgwOtQ6DuHKLynxjM+4xYJ7iw4fo1wjMK6X9qvPbpD
+gsC9mYrZhCN3Cda/LydBZLNjtQDhB4ei3qxVkiD5DeNNAeL6ca/33/mqSeDW
+p2+ebReF9xdQ6OARCbI8UzmjbKKwQWcqn/Njol8/mlQGz0Th2OVvygmNJHjX
+Y8py1yIK1wlrnSxvJuaT0+r7rGkUnjG57tGDSWDTayNZbhSF+WPX4n61koDe
+3lNs+HgUNn1gXsjeQQLZ6Z2acdpROHGkqla5iwRlaSffXNeMws3MLL2WPSQ4
+V1eNFNWi8Lya27eo1ySI0RVe0KREYRH35zTFfSRo+rrDoFUyCp/J5eNpHSBB
+xm7FpqekKNy60GfANEKCgvCUC/xsUXhFQNZN6jMJ3h81bolnjMJSRkkxRl9J
+kD8c2e2yEYlzKlBNzjQxP4YcKjlTkfjF0NXu+h8kiK8eujgxHIk3GVcmhudI
+oPiqIrW6NxK7OVfuIy2TgE3+zNOntZGYfC3vbeIfEnyA+Kdvb0fi2fexKXN/
+SXAhVK3KIC8SB+uf2npCKwQiTWcEI0Mi8XnKvykLNiEwkvi20CEdiXW9p0ue
+cgjBZoAESYw7Eu+43Wclsk8Ibuo+2rZIH4kz9pf1LhwQgsnOz7N9wxH4+tbJ
+x6lSQqBFNqh5HROBndQ1ApZkhWDjjEN+hXsEFg0SIVspCIHVqHXpH6MIXDn1
+55q4uhBoMjSWLvBG4KZXNy626gpBybedg/5V4fh94ZL5H0chuJF2ed3zaRi+
+OjC6y95VCFKnUzPHi8Kw7e4XL/7zEALvlDapz1FheOJ80aFsfyE4aJwd6KAW
+hhc9dURkzwrBf2k0W2X3QvEutfwl5ytCYHArN1o1OgTr9mtkve4VgtUG9YUD
+rwKxqX5w0sZbIfDiHJalvxmI7Z/dj5UcEIJ0zdMvC0MDcXiloP+Fj0LwT86f
+a5w/EFfEMxqoTgtBmBnT/jlvKt6l3MdQvE0YqIWNcTUL/vh9rmeEn5IwsO/J
+ok9/6YndTl9xYL0qDIns/VydbGfwubUvDuRrwmBWq2H2T8MS5xZKOuqVCIM+
+fdL+na6ncfvnJse4O8LwML4v4EnDKSzkMeq0XCMMP8fXIobtTPGncCHX0W5h
+uPr66ItDZnrY4mql5/1NYWgpT/R8W8WD/A4te76kEYEib+rBdwvC6OKnw17f
+6ETA8+d/w/uSyKhW6LUXiVkEnu7wFC0cVETs9xa8c7lEIJzhdlBxCKDeJyp+
+Z+VEoItsm/ra1hDpjj4LNHQUAS//JcY1MWv0M/kKxwMXYp0pmW3+jzXKVguo
+3eUhAtJk2raNLhv0JVtg5bWfCFwR/Wul62mHIvXPRZhGi4BJq60MR68DelB/
+MPZ0vgjw69Rov/jmjMxdOUgNV4l494hfiD7mgv6y/3i+/7oI3PxXUlR41wUd
+87tKN1wqAsH8O8bZ3V3RV5G1BJsaEchUeCNRM+KGOLMepzm+EoFF8t7dIuWe
+qBmly7a+EYES1tsx97c8kdOs62uhfhHIq0u4c/GUF3pwjHPPxLAITH+kLeHd
+8kLHtoJy3KZFYEzJeenhcR8U7UMp9KYThU/td9WVnvghIZ4dh3oYRaEy0eDw
+PIM/6ur8MiLNLAqH/PcJjJ/0R1zCGfxzbKLQdzJG3GPMH1V/mLsRwC8K3luV
+51zPBqAJ3cq7IeqicNri38X581TUL/8uoeiQKKSsZJ+oKqaiNp51lzYkCvty
+TGR2NVPRzTk90h5dUdB9spRfsURFDnnjBZWmomBuo19vaheIjGOZw9+dEoV3
+Kbb/GMMDEfKiWKxbisKBj3fULDMDEb9mDPsxe1HwoixzvWkNRCOTPCnj3qIg
+jniGWEhBqOf1EU9mf1H4orzIdF01CD1p9NCjBIqCpNREzEvDIHQ17TFdTLgo
+WBp07VoID0KWyqbRPBdFYcVGrsPnZRA6JhBhdeSSKNSyVch1jQYh1R0lah4p
+orCcKVT9dD4IcY3O/q7LFIX/rI/R+3EGo3fxSb4m10WhoJ3l1eSZYNTqV30i
+/IYoCGqL1m54BqMay0HJ4lJREN3soK2ICEYZ0qJTPytE4bsBu2hnfjCK5TJo
+53ggCju5N0tV7gQjf5qgmxoPCassTRysDUZG/c/sLtWLAq1tHcf218FIs+Xb
+oaomUZhSmm7p+RiMZO7u4n3/VBRSPX7fFJ8ORjujbQaF20VhUeVWadFWMHop
+/OckfiMKgTEz07GSIaiJVUB26p0o+NQZl80qhKDyVZ2drINEv69pLswdDEGX
+urNfWI2Kwtyj8NUHBiEovK7pTtwXIv/YxyW+5iHIvXgs/u64KJz8aFf1zDoE
+6QbJHVn5LgrRjSyzwp4hSMXWQuDArCjMc5C5lfxDkKje2U2teVGY3DZVOhQc
+gvZSSj96LYmC0qX32XsiQxA9b3dj5ooofPiX++PTuRD0m34xv2FNFK6UPn8E
+F0LQ+Nz+0M8bomDGt7askhiC+oaQOSONGDz+Mvr0eXIIam11U5ChE4P39ezc
+Y2khCBr4HuYzikFmh7jqy4wQhO/3ydEyi8GAnreRcnYI0rx16YEPqxgEbJML
+F8oNQc1XNGUG2cTA9tjFN5l5IUgj/fe9I3vF4PUHFHohPwQ1XqggV+4Tg85H
+c8mrhNUiHMq5eMUg5PsnhTnCj/24JOL4xSD2FHeuO2Ell547P0hikH7c8aMz
+cb9HZ86LWoiKwaSgosJ4TghSOKlW+kxCDI62tb6YzApB1dpzQlLSYlAkvv7G
+m4hXVqP0Rq6cGHztDYsJIfKplLMSpFEUg7u8aSx0RL5kUbZiLxUx+FdxqGpv
+AtE/no4DA+piMJ+sVlYRF4Ik2KKL0GEiP/cvCv9Fh6A7DAq8FSAGGvUoxyUs
+BIn8/VawV1sMtn9kYUuihqCb89f2x+iJQeOBm7MK3iFIcMos/7u+GOQ8Yghz
+cglBxR93cJkbiUFt3uiffbYhqKgjhEPylBhwc1WKchmGIJ5mqaxsSzHYTcMW
+Zq8dggoejrH9sxaDy9DCKk/MU16R4a53TmJgFh4Y7CFO9D+LLu2wmxjkuZZv
+veELQdmJjSx3PcXg/pVE3dY9ISgjUHTH2QAxOFHeUwDrwWiXx8fEb0FikN84
+GNI7G4zSbDMZTcPEQOhnT+XUl2CUfGyTTvycGDA+DJuq/y8YxfMP/HuTIgZ6
+DJaUmaRgRLs35ezBy2JQHpkeNUjsv7gdRzZuZxHx/uIeNCX257nflWuRBWKw
+9Xuge1k3GIW9jP8tUiYGvqfMQ/5uBKEVrBF0uUIMPry4TuvxPQgF180vrN0X
+g8hvBotuA0EooMTmV2+tGNzK7zTkrwxCXqFKM+GtYrB41q/zgnkQshOa+Nwz
+KgbSw0Jl9cT5Na1V7i4+JgZP9e783U2cb1RXv19xE2LQ9GiukIk4/+Lv/vmn
+8kMMOlrfhY1KBKIKWVb+G3/EwL75LatkExUta6jYhHCIQ0pqsdz37gCUanZp
+6MBxcbA5OlE46eSLuEIMHcINxIEvsmM6jccXFeexT/edFIdTEUtv7r71QTUf
+ilYTLcRhw+L52cOaPmjI/iHXorM4vFdZEdy7xxsJ+wybd5wTB7iyV4K12AM1
+xUu/9asVhxm13BJTT2eU+hXyLteLw4BMvG3dfmdkD6esq5vEQb877OLbTidE
+v3F2cuGZOEj3Hco4JOqEjIJerwW/Eoetgjd7WUYd0JhjoFDUlDjsTvjaOH/B
+BjGhhqDE/RLwSW9hn94HE2SxpsVVEi0BWcmsHWmfZHCD07co+lgJuDt66o7w
+Owrm7kke87ggAQ393Uee1CnhketvKynJEpDXcbRrOFQDO2rba7XlS0B+wlGD
+9KWj2OdyZMBUjQTsSZHf/1vNCF8QffhS+rsE6FwIKIhbOIMn0s3lM39KwMO6
+ooj+K1ZY989q7vIvCTj6naPGFlljpm5Nx5YVCRD4XhbCkGyD0wN6Vk/SS0KH
+pF/RCU57fPXJN5EgAUnoCg555kHjhKtN+GMaT0lC3JHz7DtT3LDVKpvQhKUk
+MGn+6Il/6YYZrtH9t8tGEriviPpG7XDHVtPTzC5OksBWxarw6aI7pot5lLfL
+XxKWno6p2YZ7YIvKYw+cL0nCsmpahJuWF6YxPWiSniIJpx6TLuhGeuF7qzK/
+G9IlYUBS60BuNbGuxaGxK1cSpk8qX43k9cYVH0b/a7ghCcwdu5JPzngT79dB
+o6xPJEF7Iswl0NsX3610jVVrkQTDv8e7P17xxaamlsLOzyXh30Zfdtl/vvjO
+tcOeDZ2S8OjcpWrnA37YWIlp2alfEnbOJRXb/OeH1z+s56cNSoJR5o74zlk/
+fDtmVqNhWBISSFmzlzn98frLvljWMUlQP9smqOrsj0sdr+1smJWEbbnXI9+s
++GOj7RlVX+clwWAhkrqTNQCvVZ43Zf0tCbIugy62/AHY6I/7Fad1SaDXCiqj
+hwC8mq4gwrqdDG7s871OMQH4ppJopyozGSzV04Xd0wOwwfA+LydWMhRETBZz
+XQvAJaKbVfUcZLhymt8ltDEA6zd3HnQSJAP2XelUmgvANOld36KFyZB7OCPd
+eD0A19l3Z+eLkWHCerKSm5GKBele/+iRJkPQbxz3iI+KB/rf5H+TI0P4ibv0
+8eJUnHynT4tWkQyfGPeEb1Og4uXj7wtV1cmwUxUN0+pScQXvkJ7pITI0JPfd
+SDhJxQ6zH5Z8EBl8BeNY6i2p+GXG6ImbOmSQzXydeMCLimOdPq82HyPD98ar
+MWaBVKysNHZr8AQZJCrejytHUnHJ4MTfnaZkKGqf6Nm6RMUW5VNl4qfI8Ctb
+VuvbZSpmiZo2O2pJBhWpQaaoPCoO5f95L8yODIfDGELLblKx9Pzs6SxHMgzE
+aPDCXSoee/6L7r4LGf5ESLFcvE/FBq5L1l+9yNC53WSQo56KaVWXt2/6kmHI
+1/yp7RMqrmdafbSPSoacJ1XbzDEV+wz/sVcIJsPLcNb7K61ULFS5zmIYRobF
+1vwunQ4qHjy7Ue8eSYbbrqtOR7qoOPXkP+fzZ8lgMmya8L2bio+SaNiuxRL5
+guFRzV4qXl3c1lx/gQz5lgxl6A0VV7bTefQlkCEyfG/H7Fsqdspj2DubRAaD
+hLSaY++oeJ/H9mfb08hwv/9vrHE/Ffeo7/ARyiADF5OTHsMAFZ9nYdl/OJsM
+9xbVDrgTVh3d2X46jwyT9n68oYR/PtgVEFhAho3PzjYKhG/GsvGlFRHxZc/+
+LSTuZ2nK/qKsmAyVy8b7HhHPYxXZG9x6kwzLV7VehfVRcesyp+DobTLs+/L9
+8AwRb3jnvp7Vu2R4WDqQzPyaimULuMPZK8kgOUc/ONRDJf7/84rIVJEh8dIX
+3VMvqfjKoQNv9GrIoFemQRPbScVGuwSinerIIJ9gSD7TTsX0XwQlzjaQgZ6h
+afbLMypufCjUn/+EDCvSCcH7nlKx3wWR2JoWIv823pmNBioWOSUm/eo50c9u
+3ajMWir+ICYx9K2dDHP/FC0Gqqg4/Y9kPO0LMqxp+1e8qKDitUKZEdVeMhzw
+67vQUkzFD3zlLpm+JcML9S9+zwuo2AVRlHz7ySD9mL44OJuKe78qpd4cJuqp
+IVn+8yIVx9eqqD0dJeKldi09PEfF6glqE4NfyFBl+9RFIoyKSyUPHWL9RoZG
+M+dySXcqnmZ8dcl7hgw9thLia7ZULDNhO9A1S4YzBz4t+5hT8ePrMX4Jv8lw
+7eL3d0eBijs52kq2tkmBE/so50MOKt65YDZryyAFsqlLmZXbqdi4d0K9mUkK
+lJd4JE7+DcBDlxjfhe+Wgsj0L+IpYwF4ZvM4wyKfFNQFfwv7Xh6AZT8OmxgL
+SkHHkuwTicIAHNTgff2BsBS8+axpxJ4agDcC01S9yVJgWnvpwJRPAGadfuM5
+oSoFmXQ/XhWRA7B83+ne96ZSkChWM2Qr44+Dq6Z5lC2kYNxY7GQOgz9uTI1w
+zz4jBV+rVvNkR/3wUb1CGmMHKfhxNP1VVrIfNmv+pNDlS8R7yr5f9ZMvDr3j
+mv/kkhTsP62w8NPTBzddWBnnTpWCw5RXW+NqPnjLIVE+/LIUGG7dGzXe7oMv
+8ZZ3KeVJQVbL6mjGTW9ckPHz7/1bUsCsuWzc0+eFmyODHEpapOBTp8WRE7ye
+WD/HbKb9OfH9hul7LFMeePC+YvD3dim4Krzb17XaAy9+WUpU6JaCf6bzht+1
+PLC4XnBV+6AUrEn9NDNxc8dZHCH/puelgKmvgvtagSv2qAwtoghLg9/5rFjV
+Vke891PEUGuiNHBzb8vTaTHF8nTfaaVSpKGXJUPkkLgpNpSwlMlOl4adXNsP
+rl42wQmBKuedc6Xh6fet1U4HY7zKuCRFf0saEg2YtmxoDPCwnE+MTos0PLiQ
+59dNPYqL4+zEXvyWhiFnZc53H5c1m++8Mpb/Iw1CI16WLb9Z0VD3oagrf6XB
+To0nYm/UfsTGxfvGg1YGjH/6XexuFEXnKwYjdrDJgNK4mPOYkRJyeWf8Sl9K
+BgxEM3eEx2gR79Nawa8cZeBuMU9aXa8pykjYNvLXRQa22mm9j5maoeVvWIvs
+IQMR8VRRpwEz9KziEEeinwzYBjPsIQ2bo1PyKjUQJQNjm6HxaaMWKPag5Pyj
+HBn4fV5ZR/6lFRow2e1ztVMGqJ8tG0Y4HZHGo1fvXryUAUPmd0Hrho6oZG/q
+wdVXMuAfe5Gl6aIj8hpkYjHvlwEvK9fdvL8dEY0tbQXrmAzk19dl6vc4IbLH
+8rfYdRnorK4UzPd0QbHnPjq7y8gCrplKYjV1R/Ms5f0X5WXB3XOUeyrKHTkW
+hOqUKspCWaM7y4nb7uho7R7xMXVZmC6fuFi/4o7oZvRmrHRlIX7bF+qOHA+U
+cKo2wMheFvpe8GzubPBEK1/jxnycZCFCkXLRedgTuQWcNE1xlYXQJ6aKhzc8
+kV7KjOILb1koXXm1FabphZieC64eCZeFQ3ZnX242e6EU6bSzypmycPnKlujk
+DW+00Wg1Z5YjCwFV4kkqzd7IR0/CPjBfFjaCj3DQv/dGBk5tUHVNFu5EpMqw
+M/mgXVfW6CQrZEGnXHF13tUHnRPtDNa7LwtnRQ7+4472QXM1OZOu1bIwUMWT
+2pzpg16/kuu8+VgW5If8uH2f+KAMOrdkvjZZsPr9OCWYyRfRZCr+1eiQBabT
+JH0n4v2Yyr/N50yXLLwU7k7slPJFpupFhnmvZWFSq7Ni1cAXtXZ4ttT2yYLI
+JrdUq40vUjBXlXs3QNTH9oEDnY8v4vDvY2MbkYXKDa1D3y/5oviN4jjZz7KQ
+yngvIy3PF/1O8l00+CoLal6Cq2W3fFF/KVN/0jRRv9hWqmazL9JWeK999wfx
+fN0evaZOX1SHb9V1zMmCk3/xo3t9vihvWDOfblkWxtrkfsxN+aLcoMK7rn9k
+QSLH4xD9gi/K2fmnsfOvLLQ9/2AQuk74tnm35JYs7HkUt0OHzg9laz4cSaGV
+g4apZ04BLH4oa5B1bpZBDvqkrQz+sBMO8No6uUMOqmsCn45w+6HMHZ1sNTvl
+wH8ms/qAoB/KuCkstJdNDrwDbwg/ESV8MFYxlEMOrm383FdH9kOX+0e0h7jk
+gF5ZKItFzg+l+6pbaPDIgX2o8dUWBcKMee5FB+Tgh8f0wV5lP5RWvBj+T1AO
+Ch4+uaih5odS1U4mO4jIwQvbjSQ6DcJv7xW2isvB3PFDdpIH/VCKF9N9ESk5
+OHHJh7eScDKda0uCrBzkd46MpvzfRc9fT1PkIKFM478XxPVJyvxj+spysNKR
+8dtJ3Q9d6o1crFSTgzPbdLOsVAm7D9LtPiQHct58L6qU/FAijRInFcmBgYp8
+mxPFDyUUZIi9OyoHwnkrj4JkCCvMqirrysGO0kO9XyX80MXu48fzj8uBHYgd
+rxb2Q/Eud6zWDORAr1bafuQA4U1aH2tj4v6nDxi57/NDF/Lszz41k4NOqf2n
+Tdj80Hm55nSB03LQezS95SoT4Rf7S+Ks5GCEF3q0aPxQ7PrbVh1HOWiKG9nx
+eNYXxWTL9pe5yAF7XMeHmHFfdE46ZXKHhxwMBX67XDHki87aaTP1+snBrO44
+u8hzXxS9WsItHygHKfsXC4JqCWdskrNC5OB7cGGUaJkvimx9bGgRLQebHV+m
+HiYTtuawb4iRg70fb2inRfmiiN/+ATwX5IBl9ujtHm9fFC4mmf0piejPtXaN
+CH1fFJJcOOSWLwcayhfX82h8UbDwn+8vrsqBoX9sUfFPHxTcbP6XfF0O3JR5
+pdiGfFDgHCv/r1I5uN37QlPqvg8KMI11DquRA9o/4UfOGPsg/x8jwR/q5MCK
+ZU3xoaoP8otXTzjYKAfx3VbtIfw+yPfx4t0tLAcz39RM9Ga8kReP61ziKznQ
+9e1o44/yRjW/2A5Xv5GDepZvtJP23uhve3PK0Ds5mFLTypHT9kap/nslJYfl
+oNAsks2cxRvdb29zfjklB+uPRYp+ZHuhcNVMH0YaeQhk2fCaTPdEfELfsq9u
+k4fG62lvD/l4omc7Dz+RpZOHCRvuncLHPRHT1+kdpxnlodsmafL6Nk9UkApl
+ZTvl4eyuG4sevsT/5bFfY8e45aECxhiW5N2RXY/OjlEeebgXPjmZtd0d0dYX
+ylP55OFWwp39vaNuSD9VL6ZAQB76eScGuJPc0EeVYr4ZUXmwvPPtHv9HV7SR
+YnQ6RUEe2Flv8N3ydUFI5X7PqxPy8HUunofDzBFV3NFvv2BI+Mdnt2geR8S1
+b/qJ+kl56LBmb84ac0Bzq0L3bpvKw5PL5xq6/RxQUeOVpLNn5OGIiEmZOIs9
+Wj8UryvjLg9DB7lkjU9Yo1ot62ep5+XB+Pi7wr+BZkjCZEftiUZ5UGtS49z9
+RxwVnJatXmuSB/JxlKg0KYyY7cwqy5rl4YsX0/WC2wLop9e1Urpn8vBYwfDW
+o5Zd6GE8JfdJhzxEF9Pfm+HZgzUazoRK9ctD53HXq0oeSthAoEKN5Zc88NxM
+fqy6dhw/FX2t1DgvD/fX7V/QzetjWenf8u6L8iAaESzMMnUCs6lrSrYtE/Xq
+2fWx/rUhHjDt447akIfPU7e6Y3qMsV3C+vrMDgrUT+gIJcaY44BZ/acvRSiQ
+8JTvtFW0NWbM2jdkLUYBxccVOfizNS5UmVj8KU6BsfruhstHbXBHzFmJ3VIU
+EBpt5fRitMUH2KuzzSgUWBi8EPMhwQ6/VOH0GjlMARrmO6EltQ7Y4eNYvC+i
+QN/PTHf9MQe8HPOg+B9QQFuFbHyN1RELdukNCGpTYK9xlNhBV0ccZh0JrvoU
+GNwfI6jF5oRFYj9zzVlQ4Hj3A8mf5s64SaSSEmNJgUa3vvm+KGd8sivcgM2K
+iEdAi8bypjOOZGc/r2BLAXmuE5c15pzx21Lt2VBnCpCq47eM41zwua7yti1/
+4v4RO4/r5rjivX6hnzKoFPhxIoX6qtYVl7NrrZGCiHqoWEnM9LvifusRWe1Q
+Cmwosll95XDDUnO7rl6KpoBN9falZ6lueIg9OGBPEgX2NOfvGvR0x8qHL1m3
+J1PAIy9Urewi8X7oXqQblkqBasYtx8USd2zQ3M43epkChnPKK6sD7vi5K2fX
+3TwK7L4XUFCr7oH5MyRrra9QQHmaTsjExANHNx0u3nWVAl3qWtGuHh5YZbdb
+SPA1CtwPb9T7neOBKxoek6CUAua7bxrf+OaBt4+/3Ll0mwL/tj9wX1r3wC6s
+n1dvl1Hg8KvLX5tYPTG/0/ZelntE/VPJjOUUTxyVytvYUkkBLd8rqq+PeuKh
+x3Kl1AcU2Ple55OnmSfOZrGMHHxIASbepad/Az3xvLKPa/IjCnQH/Je/GOeJ
+jRxijQ/XUeB5bZSEbYYnZqq7K3argQLJJaffpt7zxK6fm/dYNFGg9onzTZMG
+T9y64+0GUzMF0twEipLaPXG03VqfH6YAA01EkelHT/zhEmsL6TkF2jr/BY1P
+emKVR6Ty/lYKGAnScn37RcQzqpyT2E7MrwQ10HaNiGe7foxGBwXmp5SjdWm9
+sKGCnddsJwX0FZUlbzJ74QqbwFMlXcQ8lhoGBrB7YdeHV6UYXxHX6/B3uwh6
+4daPD7gaeylwosPzY7KYFxZkbNvm84YC6l6Ll4SlvfBZ+cGf/H0UkJpw+ShL
+8cLDVj8G376jwIc79qOVyl5Y9eJWa/wABd65UIuuqXvhnCqOB6qDFPiUsk9y
+22EvvPBBvGBmiAK86c15g8gLG9Efir82TIF+xcd/BY964Xuyxv7GI0R+/VrU
+US0vzHTGxYruE7Ef/FM5WHWIeC+E6zz+TIHe9qJt1YRb76fKe45RgDvA1baD
+sMBQCS/fODEPqw0njAlH09Yxvp6ggPSD478NtYl4pbsW4qaIft8si8PE81RP
+j44oTVOgyFeTdBuIeOMWOr99p0DPD1O6LSLexXsMj67+oIDmAo31Kw0vfPI9
+93XDWSIeWnU7NlUvXEkjm0TziwJhW091Xih44R1SR4MfzVNA6baQ4bKMF3Y7
+ZWHvtkgBzNtZky/hhdtivPS5f1Mg0/l9fZUQUd+Kc8o9yxQwrtIqOcznhW8G
+aiCnVQpcpPxX3czphYUPrhz784cCdwvrPrTt8sJiPb42IhsU0L2s4ue95Ynv
+5ki6NW0S/Uq6Zb1z1ROTbSf9jbeI/aOj5Koy54ll5mwuRNMqwI7P0t/EiHl6
+8Hh/Gju9AkTkTi/MvvHE8jH9eXcZFADHeB9GHZ5Yic2gop9JAaaft72Nq/LE
+GgoH30rvVoCmKdbNy9GeuHl9ZbiVTQGsr3Gy1vh54sNtNROW7ArA86Rzu6OD
+JwZz8p94TgV4+Sxb1Z3YP3qh3AKjvAqQ1jGsI7DNE7/QHJAIOqAAFaFJTo9+
+eWD97ZkKOwQUQDLrVsbgqAc2usKkqyykAG9ig4feNnhg86ZVnzQJBSDvLI67
+6umB359/FCpMVgDRqMzEJ+Ye+PQJ/9hGKQUwc/Y5HIA8sNXIVPakrALI+oZW
+5HF4YMd/A02HlRWg7s+zxMnH7tjvaC3T3BEFSKWSv9HMuOF55gD2eC0FWGxP
+67va64ap76T4eHQUIGaV+vdNjRsOdrklp3tMAbqpm057I91wVEKWxXUjBah+
+V+/LRO+GL70MKDWyVoDtAscKKIyueLdkbc2IjQJse2Aidn7SBeclrj7zsiPi
+XR+/HN3ugku1z40mOCpAkdBqCpU4f5+3pHBhdwU4zGMR4rfqjNdr7lySC1YA
+JqvfQfr9TtincMSHLU0B2niTP0VYOOClNYGo6+kKsLcrJ9Ja2gFHWjonSWco
+AHJSbdjc5oAvcc7cPpatACXGFu67ztjj25dXP8UWKMCPPdcVL23a4k8X2E0W
+biuAVEGJrRzFGp/0Oabc16IAMjN76h4bncLXjd9xnH+mADaznGxxk+b4p5Ld
+IqVVAYQ6jLh/R5nj5M2gqsz/iOdVVv8eKTPD7enFkiY9CmCwPxCt/jXBag9X
+Drz5oABqHwuDImQNsdBKKWPvbwX4uPm5Ju2OJvF7t22oi6wIm0rJyJlDHXnQ
+Kg3YSCuCdoiWlmalBhqJd+v7JaMI6waWNDbah1BrUncPJ0URGrZ9H9MKRCg9
+O/e5o6oiJM8WLG77ehSJlUneW9NSBINzSRK3+Y4jy16Tc5K2ikAO6u5gu2yK
+uo3jo5rtFCFFtSOH+6cp0nz3OPykgyI8/7FFaTlmhkSGeINCnBWhzVrrQT+N
+OVoYm3R/7qkI8brr0yw+p1DycoTJmVBFsJsbWzaTsUTNfDdFki4rgnLv264j
+JraIW/73ln6mIlTOf02aK7NFoVq6H3dmK4LPnZLvk5u2SN5rJjMjTxEW9l68
+fL/MDpXWK2zlX1MEdgbpzIBFe5Ri2vbhzj1FyFFAwhUURzTtylnncV8R8lO2
+myxYOCLtCPcMchVRL9fYgTdRjuhfMYvegxpFCNdlXjzV7ogCZ81q6xoVgTmU
+6uFi7ISsLk2kt3cqQtm9F0lrZs6ovlDFK6FLEZJ4lQcDA53R3qpLOse6FUGH
+3/FVRIYz6h2Q3ujuVYSB7ap2st3O6KhwiOe7AUXQD43QEzrogopVOrVzBxXB
+Q4R2688pF7RxnFvw9AdFuFNOs2IZ4IIeBzx9PzyiCAkJD67X3HJBki0M2l/H
+FaFFotYM07uihLenBUoniX76VPn28bqirxPl667fFMF2J5neW8EVFbEYPfw+
+owhDkddWyXauiO1MHv/CgiIEsFp3DFe5Il+f6bWaJaIfn2JidrW5opcxGgPB
+y4pgpuZ3rX3AFcXf+ZTy548iOH7KqHq85orGGuXdm9YVYcTj6r8FZjek+er8
+0egNReDz4/V4wOuGCr/0H9D8pwiBnW4lP6Tc0J8lsbWtLUWIicu1Kz/ohv4H
+pC1xCw==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$218652#1"]& ], 
+    TagBox[
+     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwUl3c81d8fx1UIRZKVefe9JBGJ0vm8lRGKQlIpe8uekb33uHa0rKSUhMSH
+b5pSMsqIVKJIRbLX7/7+uo/n4/P5nPM+r/frde45RGt3I7uNbGxsmVxsbP//
+Lc5b6o8Zc8fGfok84Yspx85+lerpkg3EdHsfs38yzMKOOpp/Ok+Nx6yFDokN
+sbi6ykTm1kAGxhN8PeUji7FdQTY3SXnYIzWaYz+L20uvFxY6X8Umz5PKPrB4
+9/ZvP/X7b2Bx0gYa3Sz+ZzDPpbtagn1dr1bvYHFDEg9Nm3gLO6KindfG4rA2
+ySNHtCoxkXYKesZiHS5FS3CqwnJGCHXNLN5MvoEXad/HJn+9YXvE4on/dh0v
+7KvGqoZvyFez+K3lw48FzjXYR0e3YxUsvr+OnPNXHmIJdWl7brA44JBRbA7h
+EXYw4u6jVBabD34Uyq5uwDC9gJDo/68nyK6YqdmIif5rar/EYs5HAf+lOzZj
+QjGSt23+X/+uDYyjl1uw2xK1BaYstl/WctfR/g8LZxNN1WWxXn7HqlbfE+xX
+9at5ORY3OglqaV1vxey+GetK/V8PtTNJms5PsTYpNZyPxfx9X8WOrDzDhjYH
+eP0yyMJ6heb2A+EVZu+3Lfkmi4+OHgjFxl9hxIieTyksbqgJfY6q27Ah1XeC
+QSwuMuY+dUizHbOsPyFgyGLbdAmvA44d2GiAwdL08SzM5d69wSui77ClLWo+
+/SymiBqHSVx+h63P+Pg2szj7e84Lce1OLN8zrzOBxYExRFOxvi4s5Os+rZ0s
+3vu7dTFPvRs7Ex6ZunSMpfcp+8Kd17uxez1HMgZZbE69/U3UuQcrO5RvUshi
+eKrsLbLyHuNykXETZTHnxqNpgoR+TG63QfcfPVa9H19rcSX3YzOk0ltPWazy
+0HB5ebEfq7nf+DSHxfaOp+1HugcwDuWo3EMsfv7WXr06dhCrScrZH6qbhUUX
+RP8w/DOMWZa+1f+sk4WlNLB3EOU/Y6CnvvEWi8+WPb9VYPsZ+zT9/owXi/+G
+6Vmkdn7G+Aexu+vaWRhJ2ajN7/YXzOy+IgiyOCLf6pqWxQj23z2V80KaWZhB
+LDmoOWsECy7jSuo8koWJ+YyeUmsfwdja/iwksrj6uNOW3WrfMAMyd87q4Szs
+K5unn+COUUz0npLRqEYWpuEQdmzk+RgWpXDuViSWhbEpX10Ik5/A5P8Geskc
+YOk1alJ+wWoC4w15GvpOLQurz+YxU2dOYKfe3GsIYrHHom/d/OIE1rX1mMQ7
+1SzsM37Mz+3ZT4zzo5yR3f4srEV3aeac+S9MuKP0h48yi6sq/MW1prAv8Qw6
+r3wW5hYXbZhwYQrbFlebdW13FiZhZUlf9J/CumYkBZVYHCAg3PuhYgqLKIoT
+MZXLwhR8w1Uy+Kex37NaKkzZLOzaAbNZrsFprLsyOmuCloWFPuPwnvOawU4+
+W3Dils7CotbOZI4mzmAB4U+xGKksLGH/3Qc9xTNYzGmdvZtYnH3L9F/1hxns
+YfZBj1WJLOxucpmv+4F/WGTHp64RsSzs0yndgB8bZjEhEw6XJOEsTH0s6fJA
+2hz2KD453og3Czss/aXw1a057MqMY2rNVpb/zfbh9U/msF8BxqviLDZpG1rL
+/jeHlbwzb/jBk4W53pUPMzabx2zmI5iuXFlYgd+7iHbpBexaTlCv0aYsbIlT
+MA6/u4hJDiR+DF5gYgFXPle2vVrEvnvs2dYwz8TmFO90fvi2iI285OKdnWNi
+0+ba4n/ElrBeN+6/jrNM7Ed1wF3p2CXs7pHxjVp/mdiHC0M9YRbL2OYsR5k3
+P5nY/dpS4hH+VSx17zth4U9MTP6Yt7bhrlVMbopzWmmIiVV+wVzOaa9ijl/d
+nQwHmVj51v4a7+BV7NyOS1qhA0ysyHrL0eIfq5hDm6dG3wcmlsTn4cbx3xpG
+lbaaMOpgYsoPrgyNqLLBe5ccY69mJibyBxuN0GKDrDkT9iCciS3JjkwSjdiA
+qzcvLryJibXckFmxcGEDp9CKzMzHTEw/o1ZssJAN/inZ7iquY2LWnu9O92zc
+AC+8TlZmVzGxtD3sXU/bN4DY9QvY/SIm5u1S1m/TvwF63t0ZzC1kYqZlel82
+jm2AR++2vYq4wsQkpNOnYH0DZAQtBxnmM7EyPqltTYob4fSc75aBLCaG/9p/
+7GH2RtAz3pVel8TEft52eV5iuQmGmvrzCgOZGI+w/gljt01QZPVv7WgAE2OE
+yQ6wBW+CtaX02mk/JmZvMv7rXM4mmNocvYJ8mNiXFXshgbebgEsg0f2VGxPr
+PW5tG3KQHU5R45TybZhY6x+zjaeFOeB0qoI94xgT+3pGNYmdwgFGShy2N/WY
+GNtTEeFqRQ7gfZq4V1yXiaHcDzK8xzlAfCRjaps2E3sEJidbIznASv4C/RPG
+xKrSDa/tmeYAw/KqcUUlJlagpI242jlBQLbY454oExs7bj3p288JF0TThdhF
+mJiCY0j+yBgnSD3lNjcRYmLPr9TO4Rs2wwvzxPE/25nYFAe9ynf/ZpBf2/he
+aAsT0+7bTBi5sRmoW8O+71jNxP4Gv9qAB3JB/UHHU++GMzHd58eeedN5QPaG
+c/2Oa5lYfWeJ45ISD7ypdNOXKMrEaENrW8KBB3zPDX0lXcnE2P/dM0o5wwPW
+L8JF5XIzMZwo9Lk8kQdEMu25ZdMyMeXLQ0tDf3jgVuufB+9DMzGCspvC0fot
+4LtR5uDo+Uxs4XpqgYQuL3zli60rEczEbnyk/HfflBeK3Va9NgtkYseFGsa0
+bXnhhMSvM47bWM/jvil6hvICGra3I/OwnrurvXz2kBdiCJYXQ9YzsBvqI//c
+SHxACxH+2jqegen3qhj8t8wHH3YZSEU3ZmCGnO5sSqf5Yc/xy1e6zmZgteJ9
+vAnn+SGNfS3s/ekMTEpRQ/yLDT/knNj6rtckA5s8t0Ml1YMfVPwN6noMMrCE
++3UuP+P5YZfqzcV7hzOwp+ZsvTcb+aHKzjNkSSYDU32QfkeQtB3kPiX2lcyl
+YyTLmrNzk9vhfYyDpFxcOnb1zcFLu2e2w0splzuFUemYxMHWPNvF7WDh7ELa
+Gp6OiQh39XVxCECF+dOCr4Hp2Nb2P6ZVUgKgV/xXx9UlHZvbv8vY8YQAxEvy
+9KwcT8deb7uhP/BAANgDNzst86djPs2p6vilHRC6rojWk9OwbZr7CoPDd8Bm
+27hLp+LTsIqXA6sH4naAiMVCUnlUGvalk9pcl7UDXr14pX0kKA0z+PZY4/69
+HaDR3KSh45iGMbh/aBeP7YANd6gamRpp2KARnEwwEoScVr3Th7+mYkfGpuxM
+ZYUg3z7tum5MCuYxoqxxXUEI7jX5+WcFpWBFnwMkJlWEoJZWt9LnkYItDLB1
+hx8RAu5dWW0651Kwyg5+uGMuBJlF9Rwte1Iw4UcKYuypQqAoqtixtTcZm0j0
+eHt/RgisM7XQhFQylqE4pcLbJAwbzaKYwemJ2JCWkfFwqzBYOT2r0o9MxBhn
+a9zvtwlDXqfRdV7fRKw5IqD8VJ8wqEiHeTqbJWKT3WxiRTPCoL05xzRCKhHT
+8tu+Ki8rAp86An6olCdgCw17W0/kiMCDppWomXvx2JEO5jCpSAQsg6bK2a7H
+Yykjc8v/ikVgbe6KF1t6PEbZ+lg5r1oEtlXWC772iMdOnj9S+uWNCMhsMDUs
+3xOPVawbx3uxiwLiGrQ0qYjDzmv6GjI9RWFLytS32xmxGH5v9rJ2gCgE3eb2
+HQ+LxQiSfpULIaKgE2MVL+gei32d9eM+nyQK7jYfTcj6sZh9WUArtUwUVFJO
+1CVtjMU8eIL31w2KwqKriEr8xRgs4l2E9IDOTuCO3fOfl1I0NqK+ySDJYCeM
+PtotyicdjWneigxGp3ZCsNxRlRSeaIwzIqr/hvVOKPpT6n/0SxSWqBST6XJ5
+J3y96DOfkByFMbPjN69W7wTPAYaywJdIrMw87Y+0lBhczP68e9gzAsvXqMq9
+QBGDPzf6RX3ORWAptLcahbJisBeZfprQjMB8prYwxfaLwev9r3YGikRgEBWr
+KnRCDAyEstL4H4djA7dDwnkixGAp0823ZTkMe5NWKKsbJwbUJzceKYyEYS2+
+jd2xKWLws9MpOLAtDCvFlqgcBWJgv0E+KzM3DPPu9m1bfyAGXU9eGg3sDcO2
+LrvumB0VA3zL2cYteAi2PpzYqDQpBuLV4U+sY0Owv08r7Lz+ioHuE8n5kydC
+sP6UH3V/1ljjGzaemP18GSsl2ZpPiIiDClNKlmM1GMvbHMkhIyUO8Nhq79iT
+YCxp8vpdB4o4GE7RYvXjgjGv2mG2UQVxiLI3pBduD2ad48+VDOuKQ6pauQm7
+VBC2d88lA6kT4uDZOV+PD1/CaIJ58+am4tA1Fycxcu0StvXTB90Ba3HIinfO
+syRewtafzP4VdRKHmzO93+99DsT+lgleOe0uDsLCh1XNrwZifZ5Gv3uCxMHx
+TNLyXelA7LWpZ86OCHFY68u8WNMbgOEH08AoThzOKWWImyYFYNWEqvG0FHFo
+j9eT09oYgJVwvM3oYIoD90E9gxxHfyx3YvIgXwFrvOe2jwq6/bCkji2jx66L
+Q2Zy+U+Ghh/mlae7v+2OOKyvmil9JftikVkxxLQa1nrMy0POJ/tgzPTWLaaP
+xeGSoMfPlkVvrDb+0OcvL8VBe+nJBOWjF7YcqBi/OCIOdTZ7YuKbPbCtfm7e
+zRPicLH0+0F/zAOT8rp9PnpaHOSw7muUKHcMnKl7t6+Lg6VdVrlp0UUs6uzO
+jwwxCWD7OJR2hN8ZyzI1ffabIAHM1+p+BDUnrNQos6qGLgEfJ3ZVjdo7Yi/1
+eKNgnwSMe1yZePXOHuM9uGG32QkJEKh13yM6aINJ7UciUqclYEC3Z15W1gZT
+UAra8O28BIi+djTLDrbGjHbNvnd3kYB1u7JVHXkrLFt8PCQ2RgKGv11Nbok5
+j5WJ0JyOJ0vA1S+HPx2zM8fqd9gY72BKgB2pZfmq/jlsYMsQ/ep1Cah7sbxr
+854z2M/NYgJ25RLQWhKi9mOXGbay6fSKbJUEyAaW6/MpnMakV969q22UgFL/
+jRItx09hCgu8j4NbJaC8kr2Jz8EEO/xPr+RwmwRcoh4q2BVrjNlOPg182ysB
+sQ06mlYfT2Llg/Wksb8SsI2Qbrbt+nHsUd/s1spFCVi0CG3SPnAMa+vZO+/J
+Jgm3tHn+6A7rYZPtla9XeSXh6VCF5qj+UWz15fjDVkFJePKI9+fGHToY3zPa
+tXhxSbB7lksXGNXCFJqu+QjJSALlH+8D0VtHMI1HQxc+7pGEd2lc/aX5hzGj
+h2K611UkIXsP1UkrWwPzucOU3K0pCZ//CfQ3n8KwR4VxzzUtJOGwQu0bj1hV
+zFzAdleOnSRcm1LNjt+5H2OLxdLGXSTB1niT+amGfZi2x9yZlABJkIxQ0H5I
+U8LGv3Xin0MkwVMwU61sWhFLOnOHrBQtCeMP/hrOv1LAug7b/upNZzHeqiR9
+ZDfmW4cZyeZKwtnkhXP+sAsTlROvCy6ShK16RRnrp2SwC0JdYcTbrPGMqR3x
+L6jYhoQ7o973JcHMUuzEHhIFK16L03teJwnnjjp8fZxBwnS8batEcUmocHX8
+r0GUiE18xwRdnkqCMuHY4ICdNJZsLh7Y1CYJj2+HiqBxCUyhc25oW6ckpF8h
+G8hpiGLdWl2HrXtZ+unMqBvqC2J+DXfKaoYkoaNHwu3A7u3Yzj3xWzd/k4SY
+w+sPb1vwYo03bT3PTEhCSlyCV6QZN2YpCh9uT0lC4oZagZM8nNimZPGDa3OS
+MDbw4rb+iU1Y6Yb5qydWJSHJrYzcw7kB0/PrYr+5SQqmlpV+6e9bQ78m7jjN
+ckuBuUNnCz61hNIs4t/q8LOeX3k4tZW6gJR6bJXyhaXgeQjH68bGWfThKORO
+SkhBpMPp7btLZ1Bgk/gqIkvBv1NHCZI900hi77xVuowUyJ15/Dpz2xRqLu16
+PrJHCsqDhIdE1n8ja/G7u1RUpIDv1aXxfcW/UDm73ezAYSmYVr1s6LXtJ9IP
+hLO7daVgnvSt8+qHcfT7l3hzqKEU5O/ldq679QPt6+2Ko5hLwfacpJ3fnMdQ
+n/7dX37WUvDHT4Nuf2YUBbfEG71ylII3l2vmiae+oSe3QMLNVwoaGjzNgu2+
+IoPgu1V1KVKw5hgdsjIyhKan4gV5sqRg4616WTgziJh2doHmBVKQHuVrHtk3
+gAYMJI5sKJeCy9eDeILWetHl1vky47tS8Et0yPj8nQ+IoNq9tbRGCgImVto/
+O79HDsSED3r/ScHKTu6ez7zdiCfb7mDhCynQdnDtS//bie7yaFz780YKfiQt
+Osp8f4f+zcw7MQekgMzuc7a99g3Kcex+O/ZZChZc1Hocpl6jA0N3ldS+s/R9
+S1j6oNaGwp7brQ7NSIHgiYnlfz3PkYaRxc26JSlQCSqSTjv4DG38ZKabvkEa
+uJ0D49iaWlHUrH6W5jZpaLVimxz70oK0wrUOSglLQ3V/eETZNI44ebEv8xLS
+8PyJKm97dSN6kasa20mWhvzJ5+EnfRpQHGXv7tuy0kBb231Po7cO6d7b1R2l
+KA0PS4ritVAt4lGnBl5QlYYB+4CSY9o1KMlY9Nl2bWkIOWSl6P7zHjo+vN3l
+5zFpMGtl+7569i7ic9my/ZmxNNCNngw6BdxG7+bY64rOSkOKyzdUsPEWSo9Y
+Mw+wkoadV0o8ExJLkRHfwkYjR2kIv99kdG9XMRLMny7f5S4NrmiU9ubzdfSe
++tOAw08aanRno7VOXkXZ97/9+xQsDVNs5Z1L6lfQ6UOf8usjpcFN1IAfO5GH
+RF/1QkaCNMjvPV/rFpSN+k06x1zSpeEK/zv79IZMlP+5LUkrVxoyDwlJfeNO
+R+dcn+6VvioNHzt5OLStkpHEQlPfQok0FDfrDee4x6OhyLqQrkppuM+j/HvT
+SDQq2nafUvlAGkrtRg7/dY1AFgUVbdEN0lD/+/S7+CehiEAv9rD4Txqu2vrW
+9OcEoi/VhcJqL6VB7dkl9s5/vugGymkU6JAGIdJxFfPNnsimLc168r00WGx5
+ZOwp74kopglczwelga+sZu1IsS0a+xJ59+oIa74hq3sq1y1R2cXLJoET0qC4
+r8cv3t4KOS76LRlNS8Ov0C4B3y3mSDba45rcAqvfivpmkgcN0U9+Z23OdWmY
+fnT92rPxw8j0reLcn40EcCf/8Xono4BUmPKvzDkJkNbSfdjsFxcucnbXlVfc
+BEiXktziMKGAL0gz3FV4Caz9lutV5PAuvG+UcvgmPwE0Zns0rMQpeP1tohC/
+IAGSrqhB+zA/yvOU+hEsQoDA/ukvyYf6mi7tF388LkaAuoic+/aHJdHZVZEU
+UykCnKvc1PoqQxA/0Cpo1UokgMxnB8eyW4JIPH67sgKVADEl7z9Mhe3GVwz4
+NhcyCGCxN3+/iL0aPii4ZYBbjgAfnKx/ROxioMaBzXf89hAgP5RYEvBLFRVe
+Yw8b2UsAdu1tdwQxWRRiv8H4hAoBWnQOnb3cpYJfkFujNqkRYHO2hqzabgUc
+/V1akDlEgMecah01BAUkXT//OhsIEDZafLOr1gRnC/lXtEmTAJuOY/LquAP6
+fGTa00OHALO2g/03F8xRC/dvzSE9Anz/19L3js8bv94xIaJnQIBqknHXv8C9
+KCLr+0TtSZZ+2zJbNASckPW5b03kU6z6u5ojfnVrIoPjU3lhZgRQSlsQ5c7z
+xdWwFd+hcwRospgk65qcQhRFLqMDFgRorC7dc0zSEfGTBeVzrAmQe+aRpPJt
+FRyfOFLE40GAmyO9gkdHTuMVg4aXHLwJsNwsXUGgWuNZb8+ZPvUjQEVjs9zB
+IhsU1uKwl3iJABf1rtYfNrRGrtXefCGXCXDk4dD6GJ89LnbpZsh0AgGapei5
+d1M9cE7XqrMGKQQo+TTa9M1h5dD0+ccqt9MJcF/j8vWhMXs0aPhCgCuLAAfD
+q7Q37zFELzW6f9vmEkD1QwjjUYIfXqM03PZfAQGOr/Lt8rZ2xq9Sf5ZKXSWA
+PmO++STRCyWIzEcE3SDA5Zr/ylzmQ5Af9yaLvhICHPLvfZBsFIisl/kO7rtF
+gOv1mmYxR5TQ8V9iIhmVBDDyPeLJeT8KVx2mzfyuIoC4M/FhYnEwTunc26H/
+gACkUN6X12csEX8rul1eS4CzEmLL9wuC0EqNXixHA8vfGhsao58Eox+lpjbW
+TQRQ4+9eDx92QN251lhzCwGeMqr+I3z0w/EEN3GJpwT4T0/I90BXDF4RfGk+
+4AUBnlk/HtbxO4pnu8V0v28jwJbQk9P7OP1QhGVG1d63BLB69ZPnZ8Fl5GZU
+lJjaSQDmZtPJ5gfe6IxmhcNkDwGKv3Q/vth6AddUqT2i20eABcmf5qpHE3AF
+xhPp0o+sfoPl5+fHPXAJsbfLG4cJ0OOv+0K43RVt3jrQa/GV5cfakGIzgWD0
+d3X0QeMoAXI+8pWG1gegT3+mU3eOE4BL95hGlsNJ1PZl1cVvkuV/QZEqjqgw
+/GE399HuPwQQcL+4XicWil97JkRRmCFAyp99cipFxiipjsiWPEeA+frO6AOm
+ASjg1u7B8UXW+mc4sJt7g5BNgVq99iqrH3Ziw0dWnJFBshbzJhsRXg29Pzn+
+zAM/EHrSg42dCL9nGo7Ty2Nxmuf5Y+c3EyHf59HJDQpn8O02TowGHiI8OLBi
+/5vphVZMfNlF+IiwZ/PmNy+Mg9AP7fDP3tuJoNY1/OLjtDfqUU1ufCdIhASu
+LXVswcfwZtm83N2iRDgmaXkyICcar5Ao8UkQJwKpwEeYnZW/bL77J75LEeGa
+C3ti97QdimBrktMkEcF+qN3DSi8QXfz7kus6lQiNyUoj5d/9kdm3nm+rDCJc
+vcgjLX/0HNL88LnlrBwR2IdlO6izgXgAu/rA5T2s9V2tMWXbFoHf2Zszc20v
+EdYnLde6uTXwr5Z/tz7dR4T4cUkb7kQvJJx6nPZdlQhWPGaE198DkV5TOcaj
+TmSdb6/38815o9Cfm87sxojwTPTfLeZHGqrZaeF14jARTGafBzb3hOI/dBoS
+vbWIEPnoztg5w0xcwk+oJPsoEeiMe0KlOoH4yWIP/JE+EWb9nEOZTBcU0/W6
+d9CACC7avRoVK5GogY0+vX6SCAEPx9/vv5mAfstH8JBPsd5vu4n0+xMQ+fwQ
+WduMNV971hObq1HILFH1kNM5ln7NPUSePneU9CjTNOkCEf7aJvRXaPrhLd9/
+u1dZESGn+821VJMMfFZIL77Llgjh4ubRnlZMXFaz5MasAxEkJ5/Hzyxcxi94
+sTWKuhCB/9x91YVz1ijj2rn3B92I0DP3qGRxPhy9eFv7+4InERQDL3JP0eLR
+ysp2rggfIvi/LOU9S0lACrsuEkv8WfVWLBtWT0Uh2zMvD7y8RIR3Mgv2E6Le
+KC+WbPLzMhHOMq5p4ds88LcPQy7yhRPhhlRIR9vrVHzjt/4YxSgihLUFN5y3
+y8L3C+y7ZhJLBMftvxiX1MNxV0h75J9ABM/bFctRvUbomtvPrvxkIpxQ7R36
+OR+K3l/RnmxKI0LGKn8sV1ks4nl9neNLJhFGiz4MXjGPR2hxRYo9hwimLxHr
+WhSNvOlmqvR8Iixertmk1+WLyk89OKlXSIQZj7/xvcu2+GAkn8vFa0ToJXD6
+V55NxLdXO0Wl3STCn/NFSiXnsnHtz08LH5QSoT6gMdXbNhK/xEeo+3CLCHnx
+KmW6/qLornrQu8VKll8oGTsyWHkfcf4wLnGPCBYenpd4qDFINE9xEzwgQst0
+Pv1mVBw69iJJwqaWCEtveCejGNEobPb7vphHRBC3KHbXJgWgh+QjhrcaiXBc
+c1uuA5cpPnGyyLG9mQgy+qabso7H4lJhi+F/nrD0ung/tUczBze6a1Ig8JwI
+l74xo3b6RuOxg1U1+14RwfqcvcQObwO8kWfLW7N2IqhsFNz6FwLQlKr996AO
+Vj/+7ukzvBGFKA7/sV3tIsLL6mOhzUWx6EyWhNiT96z8E4zr9wlHo5RWf6XR
+PlY/ZrhCjwhcQk+mu45xDbL8o19n4LdBEZ+TlrffNUyErTbpLp+vROK7DOJD
+Db4SwcDnlpWPWDZuGfwt13OUCP/9FZ6QcI/FmRVYNfMHEQ53TpdxXrTAX/bl
+v677yfq+gJN9ItIHrXLOfRv4TYR/RpkxWwiRaO++k2ur00TwSHokuOVODLK3
+qRQhzrL6McTvd348CskWZnfGLhBhUH06Nn41EP36EJb4e5kIXcO1z3yKD+P3
++F20Tq2z/CtEMziQHo376J1af7yRBLpuszuTopm4ahT2iMRJglsD3g9GIsPw
+5SYZ73huEsSo+R/m6DBE+PyO3VNbSVDvtTj35E8wilBcGzPlJ0Gi+Gvk/isK
+abv8uNa0gwRUTe4lsQvRiLuk6yxFhAQHLDtfdTBDUfunRsFEMRJUSxYfdH1t
+idJEy95OS5IgXFZTl/vdJdzEKD3OjEiCNIK8Rm9EBi6SFHS4mUKCfXZ/r18w
+iMUHntmtUBkkmDCeCincZI4XrRvWJu0iwW8Oy5cW6z7IWu2Ax4w8CR7cHL4b
+Ux2BqN4U2bN7ScAI5NmaLBqNflTyfWvZRwLT0K9iGtXhqHJsoZCuRgLlg9d8
+tNg8kQdh5HSKOgn4mZt/Ks464Upn32yfxUjAYyGtGK+ViM9l1r0+d4QEe1vY
+r0Wpp+ANb65HP9EmgX6Yvgr5shcesjkJk9EjQewfi4FthY5IQ8NvMfU4Cc5s
+jPw3MhGK2IMsH8ydIMEP1c/sHnJR6GWN3sXzJiRoil4/XdcegZJ+K9OfniaB
+xYJOY/Qdf2TIkP4ie44Ez6NHhcSLVHABa+6C9AskmKy7mD/6PgL/UDBjsmBF
+AsW86q4776/i+e+H+CzsSPC2wvdCx/Z0/Py2ly+fOZKgNVlY3HfGGyfoVkfI
+uZJg/+12ttAST/Qt4op6pjsJ1JaFrmGHY1B5Y8zcohcJ2rXHruw/lYJc5jzu
+WfqRoHAb04U3Jg3JK5xzfhFIAj3Bl3DBIQX9ddKiyF8mQXQY/9kAhxhUe3PP
+J2YYCRpfTJg/2emFAod25i5HksDpqfv5j4beuLoIu5F1LKv/uxoz1D+m4Wwn
+f295lUCC5iCqASn1Kv40oe/ZnhSWH/1epdqey8Bjnz4JzU4nweLUxE6F6kBc
+b61SbZVJgm3jg+3teQ6ITzVnxiaXBHBZqe1IXCTq8gy/01ZAgnI++QvPtyah
+rNsuDopXSWD7WGubk08qMhs9Rcy9QYKbVT4+Bc2s+xPrKrVWQoKF7Nzct79j
+0Gcz2Sy7W6z6Hz/9Pc7uh25mCBq2V5Lg2Q8v4bkdjrh9+xqX0j0SOAb9jd9B
+T8JlOcef5D0gwcXlIrnb9wvw31h3MFsdCV5x2xB8UzPx+4FNKg4NLP4VoHyd
+GIr7PCibetNEguljHSKOvWZI9Vd6hfJ/JPgy2DxX8y0MrdCCbQueksDocRX7
+n/Z41GxpL7XxJQk+bbI/yd6TjCLyT/Q5vmbpIVlkYbGUhLR7DmR0vCXB/T0O
+vK4Qi4z0fOJXOkkQXPVVOnxjELJouRMm856Vhz/TNDWzPbirynd/0z4SnGof
+PS/5OAIPqCS4R35k+fPwZ5/2AiYeRTprf+8TCX5mPbtzkjcPT8/NPD/0hQT+
+F1ZDWroS8CK+NyY8oyRY7guLbHVzwyuiOI/t/8HqV9HCdeddbqh2CTti+5OV
+Rw93zb3XI1CrR+CB9N8kOPJ3XqisLB69G6tWxKdJENo2p5ZYlIQGzScZP/+x
+/PDX4JliTCL60UUliC6QIINNtPX3hRg0e9RCRGuZBJ0kTzt5o0toY3Mun9ca
+CfoG2j4urvHgfPu6OK5uIMOTaxs+r7iG42K3t6y+ZifDkpTIaS37TJxO1Pq3
+sJkMvjsDhXVVcnHlnJCf1C1kiGnQCy4STcCBt/6rER8Z7uw4dUSvwA0/Fjnd
+H7qdDFseBWT5FrugM4uynZWCZLigwE0OyQlH9u62L/tFyLBfW+BEoW0c8hot
+bOYUJ0OeSMflVycSUci53lolKTJUmx2iGpknoMRO/ruWRDL8Gb9QEhsbjXJ1
+9EqSKWTQecQb6VcSiIqbIq800MkgWsnxJlVaGt1Tasr8LkuGZbukR3n7wvCm
+W3MJgvJk0PSevH9IMwNvk1aI0FAkQ8g22qSnYw7+Icsp0E2ZDMTv4TwltvH4
+1y03PQr2k+H2hfS1mEdu+J/wQYeXB8ggEWSQ03DUCa3MC1nMHiID06X/2qnC
+MMTlZmhK0mDNf5gYd14pFgl+iztuqEkGudPMpHTBBEQ8+0QzWIcM5zgf1B3S
+iEfy75YP3tIjwxktjom7j6LQAe19Sh+OkyGgneeB3UoA0m50k910kqVvn86G
+jSOKyHhvOVHBhAwr+lFyxbQQ3LL8i+j502TIdTlYe145HXeVEudPOEuGytdn
+yMY3s/EApsnmuvNk0NUR+JRfG4dH86SsjViSwenA6w39bW54RtiLWX5bMhy0
+H0tUFnJARXNsvw45kCGqUNTMxSYUVbge+ObsTIYIvUNxbQIxqO6r98eci2Rg
+v8p7v/tHHHpqdqfrqQcZ1J7dnNipHIfevR17Ne1NBr/fR5+M/YtEg5qE/6T8
+yWBjPrWT+3QAGm84U69/iQzGlT8ft28+iOYUMqsCLpNBuUeoFOMOxjeWtZeW
+hLHWm3eoyXZfGs4nyVnUFUmG0ugRyqWxLFw8E8tajyHDmm3GcR2+OJzBHZgk
+l8DS8/XfA8Hv3HDl0OrIM8lk2PO82Flisx2C2Z+XYtLIMOlxX+F82WV03IXq
+9SCTDM4vPZgfN0Sjs18uOH3OJkNwqOBCRnsssj+da8mbz/I7jdtZTDkWhSx+
+tpQtZPlvy9ozwVORKKtAxkrnGhm++nYkIecAVHnIy8r2JhlSZrR8+3WOo6fD
+DVbhpWQQevX1i0iePz4Yvsm66BYZlJhixvV3kvAZ8jHrx5UsPxz2FBhzzsZ5
+njOt+6rIkM9co998H4+THIesZ6vJsIlk8033hzd+gIdmI1BLBo+/rUUm/qbo
+ZKWbzZ5HZCDIlRilfQ9AjgZ1NscayWAgxql8fykChU2t2zg1k0FFBDWP2MSg
+3IyjtjFPyPDKL/9SUVUMqlJOt735jJVP7e/1hE+R6PmHftuWl2To+PFryGQ4
+CH0KINkNvSaD13a2tql0GzQn5mK39JYMVedkJW5uvYjzNj2wE+li1duddmtj
+bAxOsVixU35PBu3nLeEO3kxcfYOW/ck+MqRtSZW7lpOMm9xMtnf7SAazpjPt
+2sJBuIvWB/vET6zx7BY91h/J4xHfpRzKv5Chp2ynSu5eb5Qf7+Dw7BsZDisJ
+pz64H4aqd91z+Pqdlb+EiOL4t1Ho1ZsFh/UJMoTqvzzIMxWNPrtrOEr8JkNT
+ZvRbT+EotLA9wVFtmgxjs9uHliJDEH9Nl6PpPzKIOOcJ3H59EdFNxZ2858mw
+LYwUgdWcxdGCjVPaEhn4Y2wGxcXCcdP8Sqc7q2Q4v4ut/eXPNNxNfdapjY0C
+Eove8306hXj0p0PO3zdRYK/yCYMn/hn4lbAYZ/bNFHh9w417hRaB15A6nIk8
+FIiY68K2V53E25+KuCBeCqi1Hzy5/sIXjdhbupzjp8B+p5qCz7RotMR1yyVg
+BwWyguT8FjKSkMDtaZcsYQr8Ta5+jjHTkOzxA67VOykgWihl0+udjjT+RLh2
+SFDgjcT2Nosfacgs/bXrpDQFng9sWPg5kow8lAQvcpMpMFt+IdSNGIvi3ptf
+pNEooDTMjGHfEYSu+pdcPCJDgaM3ePzln2ug2p2/L1rKUWAk/N4be/1g/O1j
+FbfLeyhg4du+oCGVho+dD3XL30uBnZ9Tm35k5uOr6y/c6vZRoKN44cvDe4W4
+4A1+9x5VCqzvefNsbn8mLqd5xn36IEsvW5Oo1/JRuObYdXc+jFVfrSBFz98a
+Pxc34b7rMAVeZH+gWcd4IC9ZJY+jWhTw7yJGe/tEoIT2IA+7oxQoFjGPkZmL
+RzfcnnpE6FNg7m2OadzLFPSIn9fzqgEFtpS/Hfzqm4beVZ/ybDxJgTKOE8tb
+FNLQD5Miz34TCtz/caL3ITUZsc2Pec6dpoB+0oayD+qxSCRvj9eOcxSw3e5t
+Y6t/GckfDPBSuECBWs4rYpzs55D2UIvXcSsKDOi3VnNTffHJhNwdd20poHW0
+BP/8OAnPVPWo4XOkgLv8WMRPjjz8wJjOKXcXCoSkguMv4wL8c6b0XIcbBXKf
+fmNXbUzDYzTmsxW8KHBic+vKjdQQfPeft/vTfSlQfcpSgPgfB95zpbRvOoAC
+gyr709cPBqBLeiGBRsEUiFGQKLlnHI0IC6fEHoRSQMC/KDo9MRG9KNn9eEck
+Bc4uv6GMPEtBbsYc5j4xFKB+yxod25iKBDcMrfTEUwDEv3R+OpyEGu7WFO5L
+poDVEYs83pgYZGWehLLTKHDEvpBwMS8IcfHYDs9lUsDh/LLnr/oT6G7dwbDT
+ORTgM9YZm1IOxIUyapOt3lCgoITDYut0MN6Ipcg/eUeB5K+jnS6Vqbj1L7sO
+Ug8FJM3Y4+705+FcBYc8InspYPfsC6NEJwu/e1Ro+7cBCpyZCC+vd4nDTeYm
+72t+ooDNjpcLVVOe+PLNp0YlXygg9Ozap8tmF9CNk1dmOEYpELaXqObWFISO
+rnsz7X9QoC3ktEnv4Wj0u1J/34ufFKgRekqqmI9HWWfJH+h/WPly9u11Wk1E
+6lzLfnF/Wfk4xXHypEki+vqwS2R8lgK+iVwrBSusPNhU1OsuUsBaZKYzei4c
+7dkecaZiheUXJ6N72VFe6AN+ZomHjQrrd55xPVg7gQe7Kha4bKICNaO++fqe
+MJwkxq3ezkmFIxnWJ1z90vBXLz4PyvFQIfl7g1zRrnzcw7f+cjIvFfQdBccN
+72XgwuQ0qd/8VPi+yD33MicKb3zn0GwgSIUbiX+nJy864TYhmGWVCBXcZ5SC
+l07aIR45kQ384lRY6/vWWTMVjO71/77uIUUFo3Y/HwP+aGQa+/xwJ5EK77rw
+/HSJeLSqXDSiSKXCvf0TaucKE1DxV9+oDAYV/pRuVR7JiEd6acepM7uocEz7
++G+r1Wg0dYj63HgPFTzFPl0lNISinJ8r9jV7qXDzx0WOqy9dEcrr2SykQoWx
+UwRj/62W+DftynJfNVZ9KnE8MU/C8R6F7pgr6lQQi/6oGuuRhreKLdm2YlSw
+eg6fqsTy8Gp24pGJw1QY9zad0+XNwG/81iFu16bC5HDYJkwoGs/oc1vfr0uF
+GlMQ2W3qgYc/yRq6cIwKaqe/yPgQTiGPysbH0YZUUAkMUXxwzw9ZZo/kVRpR
+4eKKsf+/6XB0IownoPsUFchYog63ZwzCnBVNl8yo0PbQPfnJ+zgkb2KmTDSn
+wv7eBRl9QjySQqECRy2oMONkdfbtiVjExyidcrOmwh7v2Dp/h0i0uv3N2yw7
+Ksxvr3Mee3kJTS7PVDY6UuE6cz6uRtoODY6KJY64UOEjl799XZ0N3t6h4cTj
+ToXz6q8bp9TD8cePHHUUvaiA/1Lb/bs4Fa+4mUo186XCB6qz+qBALp6fXLsp
+NIAKPLOyPPfH0/AE/6EvJUFUUL90etvi1Ug80Iq9pT2ECisNY4U59y/ijvq7
+imbCWfq+3br496ApMttnFCwWTYVOqf2KtfO+6Kh04FmNOCpwaT2f6lUIR/u5
+r6k6JlLh4d2siSv20Yg281w4NYUK/orxFkaFsUh46Ne/h+lUCKsSWye8j0Uc
+LwS7B5lUkPOQf6vIF4P+3Tt4f1MuFVQvRtLuHo1A3/KtU2ULqOBKVHcN5Q5E
+3VHxF08Wsfx3Q2RZg8cGPXG7px9wnQoMLouKnjkbvNqsV+ZqMSsfyK1o7HEY
+fv3w2ubnZVR4sCY+0uefgqfJUccmK6jw5cd/pvdEc/Aw4WNPd9ylgtYZuwWr
+mlTcnc37xoH7VBA80/q5SCsCvzCRF2ZVQwWdSkM7zn/OuEFPy4W4OlY/3JFW
+r9xphPDv6lUNVPCq8dxUr+mLdpfziX9ookLIfwUWDoFhSCJj3+JKCxWKY5+w
+jThHoa3B5r3kp1QYdXilNOsXg1bsIh/qvaCCxZfZ7KeFMeinYUWmZxsVKCV3
+RQKGo9CAWqdn7hsqnB2fnVZRD0dt5AXD5ndUGFh6ZXHS0R818ErLj3VTIfJA
+W3GPpBW6Na+1lbeX5c+51NlfNFs894vrhNIAFepHYrsAC8PjXme+PDvEypdn
+n+hfs2Q84GFDafhnKrh9fEg23pWNO1z9ElU+QgXZxDe/whuScdN4LpuOMSoM
+d9dM7mAPx7W992jMjVPBuiq+LsPNEVc5byot+YsKZov60gHzpxFV5/LqkSkq
+NGXYGGfl+CBBxeKPzjNU+D2WJU3JDkXs4q8fpc9R4bnBqePjwZHoH/vfnPpF
+Khg7vWz1sYpGI79F/YZXqPBpyUeqPyAadfVhJpxsNNCc5DQ62BqJnjyx37t7
+Ew1c1bZdaYEwBPUS93M4aaB+t9jU7b0Par7TtWcjDw2+bvLpD2wyRuhm3F1X
+XhrsCOp4kG/phjfmot29/DR4S39xM+9pJH4g5d9tDUEa677msqeRMx1/FFkh
+WylCA/QntJ+hkY6rBlreEhanwffDP6l4YRRe6ybMCJeiwT0VA0vPS564sm17
+6U8iDRISde5lzGmgB2ciqKZUGsxZrWUUT3mivYaqxS0M1vsvfLvPFVxG9zR/
+k3bJ0cBZgaei7GoEkj9QfD1rDw3S+OdjXdyiUOWeswQ2JRpQB1OGqQeikCyV
+/6qzCg3k9F45b9oUgW6JPZd8r0YDK7HycOuMIMTgD76CHaLBINZ8ylvJDZVy
+7BWvABp0/qudDVNTwSnL3/MENWnwpZB4WmXUF78xVSgaqkMD0wNF/Nb7YnHC
+mHHOuB4NPOqKfi40ZuBXP3ILmxjQYOna/AVOxyu4VGczEz9Jg5nd88oioZn4
+lee+O2RO0WCoPSheb0csLta4KyPTjAZ9f/8NeUt54Xn3v/CvnaMBQU3d7bSn
+GRIty0l1tKDBqaCxIZGESyj7ynG+bmsa9AaInEjPikaCGZuSD9nTYP50UMnI
+eiLKjH20pdyJxrrPtf0SOpyGBC67JwhcpAGbl2KBbno6SvOicl/2oIG7s0P5
+9V/piM/xY+x3bxpk7dnOp3Q6HSWfT+c08qfBHX/LYeqVVLTVWCe68RINqk80
+qdwpTkAJR1c30UNoMFn6S4D+MhJxoQcR6eE0EPlh6nmZ1w/FKjltWImiwW3p
+w5um6AzEKSMdZh9Hg7B9vH07TALwKKn3a+8SWf7Z5sUnkJeAbxRMvHwwlQY3
+VNW20vyy8HBujZWSDFZ/dohnPUsvwtnW5y7xZ9Ng4rdEq9iuQjzkX+XipTwa
+eJq9SjiVycRXxq0DRq/QQPGBf2oBHo9fGhadN7xGA1shavfTgwH4Qs9b34ab
+LP860frvCxNx/7aof5QyGshrOPNoXPFGc80HvFMraNB//OJyzc4I5PNwanrx
+Dg2M0had44ri0N+KUg/b+zTApJJmWsxZ5/Fr5n/e1rD0vUCJOCybhn5nCbip
+1bP8P5x/Z/VJGrqY+HLy5mMaSNuaR5QEpKHJsBAXvmYarD3kOFeQnYKc/ZQn
+Ap7QQGLqKoegXwL64TLhOPKMBvsPv1gYTI1CDlbXvh9/RQOl2NVx9ZeBaMzU
+1L6+nQZbJFqUuHLPIdtjW0dJ72jgZVT7S5fXHf+q8cQmuZsGJVjp72o8Crfa
+H/B1/gMNYm6Eewc1p+Of5eStrAdoUGZkfnppQz5+gfRtuH2IBv+t+XF4dRTi
+P47ccqB/ocHozZTANxVZuKed25/wbzQoQF/X9cuS8KUYJf/B76z8unZ+vEMP
+xaPKF9ZUftJgE4h0ubpa4nxtTTHpv2nAOGXxXXqrA+v8EcE3Oc3qn4LVBQfe
+YETgPZqtPcuqvzFWg/teFKqQ55W6vkADWHPQk22OR8onukqWl2kQXXS5VFU5
+GTV55uw2XWf545Cwr+m2VKSdaf7w3kY6nI5oFCk9kYre1RAPbeGkQ+HWZ4p6
+C8nozIexp3bcdHg/2l9mx8k6H87fPtaylQ7mWclXxYNikOtOzx4xfjokHPsT
+kmoahmYPqJj77qBD4kb5vleKnijEfHmkQ5gOh07+duSs349zhbS4yIrRob0r
+wsf/rD+efjV6JkqSDvnOilpO++Jwsf/0goYJdNiawLtTYFcmXvx126YDFDrM
+dcW/u7m5AN/N/j6BSafDy7mfld3+eXgtNV/gjywdPKNTGl4IZOCgY5GvK08H
+ubOBvgGDMXibI4VUrMj6/k4sJY7hhxsnjN9aU6ZDUn9ZSEC+Gj54+67iGVU6
+XHW3+TX43R3Zv/F+9OAgHZQPE4b9w0LQ1G9VDT6MDs8rVPN3ckajQP61l46H
+6SDix9tQpR+PNu5tPdGqRYd9J5g8UtuTUJJxXJ+kLms9Li2RUabJSNj3uGXA
+MTpAZuSZTRLJ6Gq2wI8uQzqEXvdYbrBKRIz6XvfdxnSo2Wss2E6PQ9X9V+Zj
+TemwQf5t/Gm3SKS+bBX69QwdKv+Mzq84X0LPJOibD52nA9Esc0f8rB0yQJMp
+OZZ00Iq9oD749jzeZ3Ff+K8NHWZ1MlT3fg7GrcP9io450GHV7oS3ckkC/vPG
+QVqZMx2ct28ri5Zj4j5P2e5ucKODyszGgqZnBfja6LN95p50qLu0w9K8OAuP
+3ZzYVOtDh4vKRm6Ej8k4v8wJre0BdLhs9NMz4kM4nq8n9MYliA796p0u3D9d
+cbLrgMnzEDpQlv5beBFpiCqTrw4SIuiQJWuytjvaG6lU2doGRbPqj2s45EwJ
+Q83vZCbfx9HhUse/pG7JaHT0729vhSQ6WHSL+03djUNdO2qWE1LpMDWd8+hT
+bwI6ty8wcjSDDo0Hyw0acxPRN1O0BbLpQNq8ZF02nYDcAjZl5uex1hd0/iz+
+NQ4t5L0Um71CBwGtM2+lXaNR+OPkG4bX6JCROJo8kRyGeIaMZCtu0lnnk1m1
+oDQfxFwTqWYvo0OBZeyN//pNkBRhSM2igg5tR9VXRL854WUaN/57dIcOt+R2
+SFz4F4Yr2DjoCt6nw7tVtpSqD0l4Q5Rcp1sNHTjjHbR/bcvCk75CdmodHV6F
+uD3bEpGHW8Cpc/ca6DDtfrz+PSUT31vkROhsooO+CGk3d20Czr5yeXS6hQ6p
+PoGa4rph+IczGRUCT1l6tHUfU9jiit+qK3VXekGHNC13oZsdGihY6LGySRsd
+Nr6rnM2X80AG3h2LPm/o8OmSa2tsVxAidI7gWe9Y+f09WzyTFYFm5Bcia7vp
+oNr9UcZbIgY9T9qq2/uBleepF8t9wXEod4LAt9BPhy6B+dcH6+KR89F93aJD
+LD11jnhWv45H6qW6uWqfWf2o/PPduCEO8bFfOH92hA6YpuvJ/ZEx6IuVFylo
+jKXXbcI/b1okqmmO+V4wTgfRPBO/w0cvoxjJgsrGSTpMdpq73lnwRGZBVZ5D
+f+gwcLL+pWXgSSTb36qy9pcODgEB/OK8DviKSt+y1Bwd4pJUXnc/vIx3MCdb
+sEU6HOX5vqtEJB6/8ZctxnKFDicOCMjeU8/AfU4I6Yev0yG2lhi8ISwX174r
+w39jIwM6RYLqhD0y8Z1b0fsnHAyIH8VVmxoS8Ukno/wRLgac1wn/LFERjuMv
+7C3YtzIg8MNGPQ9zTzyNGkShbmMAX7gQzWRYFbeJTB3XEmDAL1n0tkXeEal8
+uXnXXogBFjcyeBoy/REXVu8dK8oAnR2yN695h6GBK+2q5eIMUJC7sL6NOwrd
+Wfq8+lKKAeKpXfKQEIPCzGafjBMZ4Ke4wUl7PhYZ1XLH8VAZEDX/32bVE3GI
+Iih1fBeDAZ/Kt8bKZsWiec+9Asd2MaBEoDtK6Xk0auvQ7nWVZ4D8Y7zFcSQC
+Xdl97kqyIgOeFm1Rbem/jNwS3a3uKjMgWsllr8Uzb6QxHknr2M8A2o/FYWf6
+BSSok/vzzwEGLH8dqouwPoePFVfe40cMaEmpUh6z8sfrN/7nq6jBquezguM3
+rmg8wfL9ASNNBgwFqufz+qTi5vj4upcOSx8O7tldgVn4Hom1p5l6rPE7XHeY
+VmbiGy8JJNQcZ8Bg7AvrzitJeE8vzfD9CQZcnd1lIzcagZfuOyg4Z8yAV+pm
+F0xsfPCATMN+4dMM6IovdGraboLrTdsU7T/LAIHME96LxZZI0jDAxuw8A245
+P8jIvu6NpiqTGIGWDFCx76RyjAejJzzXf+XZsJ6f4O7xF4xATMeH1Q32DAhO
+3vACZ/0/Ojx/5f/RiaV/RbWWi24MOkD5pL7iyoAvX8110z/FoK0RfzdIejBg
+a27QhKZHDPo0zPnikDcDjmWkWeavRaH7h8STLvgxwFhmdkNpfASKKthzMjSQ
+AX3BZ2MXSCHIdPGI8LVgBhQEXfSykfNF9dbfg9jDGJDj2av/w8Qa7WxP+OIY
+yYCJBW9Bva8m+KV98jpvYhhw6GolKWjFFx8s6qxUTGAA3NBcik2Lwg9x+Qpk
+JzPgyMh5X17jVLzIUzRgKY0BUre2OPXfyMLZPj4eusBkQHjntvqVpjTcStPi
+SGsOAwYkzdZ+/IrBn9zZeItewICjHwOPnFm/hFNESvmSihjgydumWfvUFo8O
+0/WZus6Aa6bzZtUDhmhsfLLfpIQBKw6xB8d3eqCjxmnYo3IGaMeXqiQtBqJb
+jUolkpUMIFhk8ex/w9o/ab08EVUMyAY+NouQSOSaesljrJoBVWFy9af4o9Hb
+BckPerWserCtIkqR0WiP9X8Hqx6x/Ji+j7GtNwqlvba9vqOJAW/bzKU2bo1E
+f5W5Nge0MGBDOdGYQgpDJkW3XQdbGSBrcC1ZQikAPdxs2AUvGBDhkxtm/coF
+CXv+3V/SxoByxofw6Mx9KGAgq5D7LQP01OwSVD854wNH1Da5dTLgvzPJ9mI+
+IfjBO4OOXT2sPK5MvXgxEIdfEQ57q9LHgHuD91FXezq+FkpWLvjIANPJwT2X
+pTNwi/HneeufGJDA2V6a1huPtxg5r9t8ZeUl45kQNTQMJzXy2r0cZYCo8aY7
+mi4eeCT1fpvcOEvv4sUb5y9g+LcUE4X0SdZ+kHdPernVFmkvzGfN/mHl81i2
+VPoVH1RmVbB8ZoYBoVse3WJrCEZcr5EVPsfaD2T0ZNTPhyNn5a/PSUsM+Bo5
+rCFgGIleF0bLxa4yQGhSfyF3bxSS2yyT8ZNNBgab7drGNkehFI/2eUN2GShV
+nTkj0BGBpvrdz9dsloG2fg/XvXFh6OSRHa2iW2RA5FHl+8f2l1B1ZS3jMp8M
+JBa2Pjl93RMJCp9N+bJdBrp6y5cKNpxDfqGrM1pCMrDLrFH36h8zvPfHtTMV
+ojKgPUJ7YWfsi6saaTbzSchAO8f9vunDkXj+4+8Ub2kZyFEx3ZY3noSvUBIT
+ekky8K9ut+nLt5n4+RT5qYM0GRj+XvurMSkJx+c7T12TkYH3gXcciAaROMHK
+9zH7bhmIab8Vlyjph4e3iRKdFGSg/0eFUJXPBfyrUmPMGyUZmFuT4RBkGiPN
+QotJxf2s+azKd1t0uaESzk1G2QdkwDEhn+fyH3/E6VFat3SIpU9OfZVwQAhy
+7NeV/B/D1R3PdReFNUiFJKWUSFS/PZTtdkJlhewysvf42XvPkBKFJKNQRkkS
+pVtCRLQUSb3RIBklu/B+/7yfu855zvM8955Th0hQVnNIICM6Gj1THYtpUidB
+8KUNF1zbYhC54tzwXg0SHHsisFAiGItSN+/XTdUmQeDjVe6WJ2PQWETPnV+6
+JNgZFqt4tTgK6Q6HbDM2IMHDaE759m+hqOr4zsh6YxK8AavLDjF+6OSsoORX
+MxK4r8V2hsVOiDtvVYuABQmkUko+SEfLoirVGSeFUyQgB1Y6BYc44JPDw+vs
+bUlwyLukRDwvCK9O+1CZ5kCCZWdrufrtcfimTJd+vTMJPOrsnXmfpmKz94//
+fHEjgUyMvEhUbhZeFXnnooAXCU59bEnK9TyPb0qVKCj4kOD8GyEtc6MUbNae
+3W/nT4J7v/PaLC/H4JWclMi0IGK/iXiHlas/rtgcIVkfSgLL/rdr18xYYJMH
+nJYvESQYSx38b1jOGK2wsXMWiCHwO75q1X55DqrgMVmvEE+CeOWuCq3oYGRS
+oXHTLonAg1ur/mZmFOIyUDqelkICAzXS58PZsah8ljZVl0YCzwGt7JCOeGSS
+J5H1JZ0Eu9WEn1rQExGX2iZFgQskGJ4cs//3OBGVDXN/lM8mAWtyR6JLbCIy
+TpuLtMslQYt9gXGNfwLi2v9TMu0KcZ/bFsGxLKL/ef+xpa6QBHHrc/ikRqKR
+UeRL5y/XSHBmBcnrTW8YWpZqWi9wnQSLD1z25qn4obL2uzfly0mwd13P91Ru
+e2TEuX7c7iYJVGtJM1NBKnhpc+7UmdvE/egdI77IE19/cCarroYE5yZu3Wa5
+RmADmyjFL/dIUG0TZyWWnogXeXw/8j8gwari3p+6Vufw9QqHKHlMgjTxgcxm
+8wvYwMBst10jgadyinmWZwb+N6v19EwzCWTfz7vPZ53BJXkqLnWtJGhwKG3d
+uSUe66sx+b60E/w4pnZq160Q/HdY8hZ/FwnCPeifVnm74JK0zQbyr0jQxHi9
+96agENbfzztt203w5QHPT281B7TwfiHrTA8JNkSUz57h9kPFkWOKdX0kmL0w
+bnTiSyjSl/78cfAjCS7MeItfFotGC+2vo/gHCDw7bvNeS4hF1zgtu+W/kiA1
+ZRfpDTUe6W2pe2o7RAI7qQtm8oIJaOFBmcuZERLY51+NHWQmoGs2eXx1YyS4
+gZLLP6fFI901524N/iLBZWnh74fIcWi+IsaAf4rgC8XXcvOqGHTNwH9abpYE
+zQ7GBd3sCKQ755Rtu0CC8qz+XQV9AWgu76TSmUUS5K5bL2r21w0VqR37dI+L
+DIZ9h+/f/6yDdH4cjB5cRYYdgZ7NixnWeDaNLcW/hgzJk59OBtb446L90q1y
+68igaOdmmHM8Buv0ibja8pNh9buiHN6UZDwTuY7/jCAZvNWvvlJuSscF0ou3
+7m0iwz90/Ujv8Uys1TFhMLiFDCo3yVXJhWfxNGdwmk+UTPivYtxhk0RcsOVt
+tpwYGVwZnN7S2Eis1dCqZCtBBqXr0x7H27wxV9qzobDdZIg8G9b/4I0Jvnuq
+IyNrDxmmdmpudV80RK6szoPVJDJc3Hq0WPuGO5JY9eLncyoZUq75f1inHYDe
+dr/MGmKQgXxc4vbVwTCUXPJabaUMGUKGPq1q4Y9GENQ9sUOWDF36Zh9+LsSg
+ac13uXIKZBgvO2TxRp7Qw/beowbKZGjlP34hqTUOWY+9/+N+kAxBTXklW0vj
+0OZHH/ITVclwYmNs47meWNR+7qN20WEyDFmd3rdkFoOibP+bbdAgw886HYYn
+JQod2D9wtUebWH+o068/LwSNcH/Rm9Qlw8zjsgiRRF9U0PP1L58BGd6qZW48
+Lu2ITG58L91rTIYjdw4IVazbj9aHDhuqmpHBaqWU0JmPdvixzsiyhTkZzp3N
++HY2NAAH7BwtD7Qiw4TptYF2dgym/hozPW9DxJPMlrd6dxoPNE6sqrQnw1el
+ch5F4XR8MeP3rVYnMhQwbE8ElZ/HOg5/zAddyfDn80KytdgZvFJues2iBxlK
+75Wc8EuKx/d4Z++IeJOh23z/vkPMcOzeN3eK7UcG5ahllTvZHCxZsbD+WCCR
+350y3yv7jHFP+L97TiFk0JQTePF1zACl6i3ZxYST4WXVutwzv1yR6i4uwbwo
+ot4DHiNmo35odnJFw71YMjRtXLRvFQlFFc2rnF8nkCHDblyubCES2V7kFh47
+TYb/dHkepbZHIxHnNY/XnCHyteGuv/gnBj1XWOsueY4MwcIkucigWBSzfv1W
+lQwyZPW7BhiciEVyH/maTS+S4cVYcNOOizFo9KYAxyeHDCXMSyEj9GhUFCW4
+48xlMmxIo204dzQCmRkItZXmk6GTpt8R+yMI8UsJ+z0pIvTR1YSeqfmgJ9Ob
+JT4Wk6HinYfinwp7FNQq8nz2OhnsXF4lfxFlI3rOtiChCjKIXKAuLtXY4i+u
+26Vot8hQV2W6MC3mj7OVxV4erSZD0iWV1mPC0VhXQDzM9i4Zqucz5SkqSXj1
+Z4l94XUE/14205tWn8P1tyW7sx6QwST2l4d4WDr2jJWKqsYEXq3Mj1g1BUsZ
+76F2NpIht6zycd7eOPx+z77eoWYyCGnsCSk8ForT5khxK9vI4Lb0bkhmhRdW
+b6cwxTrIEFO0JlK5wBDP59L65brIIGwx2GD46zi66cFIMnhFhsL6U4kvTV2Q
+/UHWfo9uMjyrmOCOLvVF2zbKfE7sIQP1Cg6d9gxGXYP7U4v6yJDJJcNrsTIC
+xdXIyj/8SIaEHW0XvlVFIYUE+a89n8nweS6lseJpNBo3VTw3+YUM6Ws5X9NU
+CT8jKSvzD5Fh3u2TS5ZUDBrm6UxyGyHD7afDF4RNohHtq+XbZ2OEnh/SDTcU
+RyKfxvFd+36TwXrB6seSTCiqvRLpmTBF8PlMZ83mE/5oIVTwwddZMuAc8cNf
+9rkjdKJwjdpfMhQPFm9tyjZGMbJso8IlMhwOuXpJ8akBbt3UVLC8ggLFsmz1
+m2wO5vttOGbJTYHtttOpG8TCsX7XV4UGXgqM8f4d0ayLx5nl/gmifBR4VMHZ
+m3bxDO5N4nkTtIECju9246165/AOxyzxHiEKiJ0+6uz+IgnbqO1zP7CFAh1n
+Vb/LlkfjEon6uoxtFAim9knw2gXgkUVN7skdFCiSzbm3/bQDpn/oO64vQQFO
+9n/OCvU7sW+d25Wbuyng8Vx4aduUNaq78G+Eby+xn0I7YCvKQf98zsi5kSmw
+IeSf+gHHAAT6O+Oe0SiQsa/tQ4FlKIqj3Xq5l0WB1GcPOh5xRaK2dSCWsJ8C
+kx3v4t+VRiH+4ZcuX+UowOD1/XBIOhoZtNjUqipRYN0tn4Rbc1HoYtHkykJE
+gXOdl+RpRH/RFxmrt3yIApv7WG7pauFop6XwZcvDFLDseFssPhGEbBWLhx9o
+UCBcIWxC4qgvKhWRPSCqQwGlZo6vbZYzGp16Gh2kRwHbtvI2+yE9xHxt2vXO
+gAIXs7RHVTNNsN+tYdEDJhTg1+l2Jl/i4PrUYKeMExT4vOLTH7XBMLzksq7m
+twUFDE9/sCpA8Vj1aC6XvjWBr8H0ypi7qThBinrsph0FanM/pW+qOYPbVzzM
+4XOiQIqjK+b4JGCB/459d3WlwMavlQUzhZHYsOET+5kHBeJvvHfSzffF2Tle
+kXu9KfCpy1ywsN4G9wdwPY/3o4D1xUUbjztSSMIofevXQArsXfVtxY6XNsie
+JemgGkoB1SCPtwffeqHrAnduF0RQoOF49l+XSn809lNtaSmawCszc188MwSx
+n3VrWcYT9alUSVrnF44CShyyHiRRoO9susGmoEh0P3bmy7ZUCrgkWnEsdkah
+ZetEZtBZ4rzk6QrhJ5FIHW0Nf3eeAufTwAB4I1DS9hvP9l+kgIPR4VTjDaHo
++ZzClowcCtAO7pXz7AlAgu/abX9fpsABqSN616y9kdEd81t6BRTgkjswuNvE
+AeWcG/1beZUC+Qt9rcm1h9Enj3ANvlIKsGI2+fH9OoEltQUuuJZRoGzq2LT+
+GAc77ssfaKukQGjar8zFy2G4jJtJ33ubAkydcYnAljg8Pvg4JL6GAmvUwjbG
+fUjBMo+Pt365R4Gt0d6rw/lTcFDe4CbVBxS4q+Ke0XcsDjeE+FoXYAqEZCf1
+J2iGYa1Mw5HmRgqcPnfQfkOfN+6plPH70UyBhyl1klsHrLF966Yl/jYKfOFU
+0K92/3g4+flPIruDAp03nIWL1CxR5MKbjaZdRPzHXzgvHXdDfMI1uaGvKPC6
+Ou6C+18fdImWKV3QTeh5iSdHTSMQ7T3qd6u5h+DfsbYjWWdDUI21kcKPPgpE
+cZ4/DHkVhlRD9jfxf6LA3LLw/hUCEehFhvAx9gCRj0P6jMrhCGRROfXO5CsF
+KmdmndUDw9HI027r0CEKcP8t4d53LRQFfq4ZyR+hwJ+weMt/HUFo9UKmX/MY
+Beq2/xB5O+6Hzm/yXxr+RQH3Cf/JFj4OkqAZJ/FPUWCL4kx0i7Y9qjxyQIg9
+SwHy1EvXv680kaL15ssmCxToEbCQhF4D3BY8LR26SAERLpstE8Zu2Djj7a18
+LiqcNdkyYXstEA9W3FVoXkWFx/6l8zuPR2PO0wtNwzxUeL/mroSiAfH//s//
+GP86Klw/1FUb9PYMTp437mHxU8FxRvjx/tMJeOsmWRsTQSpwl7NOVb2JwsXU
+LT9DNlEhNWN3VB87ELOPzPjlb6FC+Ylja1Nc3PDjU++WmrZRof+66NtDNUb4
+WHBt0vAOKlxKSH9TJamG+s5fFOKXoMIeO9aJ5SUb5FwRcJm1mwqVPndu/9Xw
+QDMtJntM9lDhaayBjq2hL4r9T7YqhESFn7G+zxBfIBKc36KYT6XCTe6hvdIv
+gtEVodmmJgYVmC0BRnsvhyIKtefYMJsK5h9H9E19w1Dd4Xs9fLJUEN8/LdNq
+FIaOnMqyYSlQAVp5SKchFL0JCvxprEyFnF9HObdkg5H1eVP/kINUaDHxsNKR
+C0Dj5XLLV1SpcMWqwMJH1QeFtoicbjpMhV1qXS+dqlwR73+zQsMaVOB0COum
+DVqii3M9l/l0qNCOf4RGhUih3UJ1e1h6VBhJ4LALsi1wFSW7ytiACjH2uwtC
+270wOhykGGJMhbYH3fYnc4Lxcyuz5itmVJDhbXI9sCsGnwiS120yp0IFJYOP
+/isRf0/f2jtkRYWHGmuGfq45jf3K52z4bKlwYypaeot5LF7R0vuT6UAFQ821
+eRfVw3Dapzp/Y2cqcK1ZVczzwAfvmMteDnajAvtG6Kletj2+sTH49BVPKhxc
+T6q6t6iKZSknNjV5UyEo4mNqcdtx1KyukDfkR4XwzooLyXX26LjVtr18QVTY
+KtmRcPKhJ/oUOF/FDKUC+cHqL97Bvsg9/b2icQTBr4fH31ytCEDzZfXNwdFU
+mIvReWU4F4QSmnN0r8RR4cK0SuV5ixAk/Cm490kiFdYXXtLyfh+CmKt+rKSk
+EOfJp7fHmYegY/vMaBlpVJh5O+/wvjMIuR5rNf2bToWFWNPROGYASvCRjbG7
+QIXXNtuO5sX6oKKs4oqObCqsvftjkpPmhnCDcI/MZSrM5whFV4+dQn0DsSsu
+51PheHy+2PJqNprl+UNZfZUKi6muvGL7zLEw1dbEvYQKS2dCpLkTvTDz+Kuo
+7htUmN4vHrH+eTDWCYBy5UoquBTcq2nxjsHOubfeXquiAuNJ/MvpuCQc93gn
+F38NFc4/dOppUYrHhd/OkP3vUUHQi1u7Ry8S43WLRh/vU6HIKHkHD8kf9zHc
+Iw9jKghsXn9tLY8znjH6cKOykeCXmQ4P17guFgrR6t7cQgWpwqWeT7JaiJ5f
+vxTeRgUPn7iG5re2SLt5H+l7BxUS46+Ed+3wQM4/sgx1X1Bh9AvSjrjtg+IE
+1kTUvibmG9pdlbr9UYFMwPWd76jg904mr3omEDWYfXud8J4KWavTF2a3BqPe
+cKPF8X4qmP6WvyOuFIymi5r2mn4m+Hg3bwOyDEJCbWyDR1+oICQmyXGKDED0
+scKwvUNUOGy74lhVoS/SEtpYenaE0NNeI/eTSV7IUS7q1ewYFbr0KCXfOh1Q
+jMXE31O/qfDocmuy6T4jlB9ttadtigrbL5zW0ZFWwQ0lnfrMOYKvS2NuHAs7
+3NuhHJr9l8Djqod75GkfPPWrvJhrmbjv6BudzfZhWHDL9pfOK2mgMJRgMHkl
+FlOVkhdectNA63RUx9dXZ7Gm9byUwloaFNVUU5kmp7FjvLNeIR8NEtetjtxo
+GItjynqC1wrSAMnl1y2fC8VXXhy55r2JBq/do4u/unvj+1N3u95voUHK/eCM
+SF9r/G6b9PwhURrY7/th937FgMoflLm7TIwGPz7G5GInSyRov0pXaBcNQsI4
+mir+boh62icoRIoGii7flQvIvkjj5kDR4F4acK7hfp6yQGT/Rr9Ti0KDbfs2
+8H6TD0VRc49mq+k0GH+6/sSxnnCUJ8aQ3M6mQb8UNcognvgfqF7RiT1AA8nm
+1UWxu6LQOyf+wJ/yNNj1Ph8O8kahydSwQkNlGhizjckdYxFIoPpnx4ODNKDX
+nz/K9SEMkXtOzuxWo4F26c8ZZm8wOvrvmUTqERrUn+xz43zzR/a7FLSnNGmw
+MKs28WqlN4o6ct3f4hgNxC/V4VfWjuiym0hBsz4NGvX+PZSsP47qziW0U42I
+fB7xP+rdroW7705PZZrSwKX1WXXeMyf8u89efPEkDWSt+wav+PtjAa5uTQcr
+GogomXr0TEdisrSaX6cNDdYfvalbXR2PzyWs6P9rTwNGNyXttH8Knh56pEZ2
+psHlaVr5xXup+KRmRLmZGw1uvn98XFosET8uU96U6EmDo8Ie6hNfo7E039+Q
+u940CCibSvkgFoKTPeoHv/jR4IaQhuR+WW/8qytQSyiIBt1CV23vSttiY6Zs
+NYTSgMtx9MdWZSV8P31qm1cEDc6rGXJlXjZEEn+qo/OiacD9Jet0Z6gDijfy
+/tERR5xfGMTeXeiFRu4yji8k0uBqQrWjjLgf0hcZr9uXQoNVfxak+24EortB
+FRKmaUT8sub/ZXBCkGifa1J8Og1WuniXeRLvU5QS6dedTBrcEpW8GVQdjr5d
+HjIdzKLBOtVkice0CKS1VPxIMJcGPo9+HDH8Fo6qTtnvPXiFBvuFT/vD+zC0
+uVHyrEchDfy+V224uDYUhUgOzOReo0GnUkqibUAQ+hybb9VeSoO1wZutasT9
+0eFvlk/nygh+/ti4+xK3Nyo7soO+9yYNplxe/1DXd0aC1/suGN+mQZkcZyVH
+7CTyX5uzGFtDg+YtUf2Py1agPldTh+p7NMh7u2U2aYMFhuebOz/fJ9Z78XUE
+9XvgYlr3/g2YBquXBwTKcgPxurPnL6s00mBpPFhSICEKc37pr3ZvpsFbe/OV
+T/Lj8dvjG9wvtdKAInp65w/RFKx4p/NNWzsNTFHM4ELAaVwgnKo020ng337l
+lvrxOMwdoHVV+hUNsKbmyGuBSOzaw7veqJsGgivje1rYAfilfKtPTA+hB9lL
+m8p3uOMDl+L7qvpooH/+n/Hb+JP40l811f8+0mDjEymPyKE/KlyWK8v4B2gg
+PKgwLXvUDDngxxuVv9JgpDLcP7PKEbWLRwa7DtGAf/eG+jddXogZrTKQPUKD
+e6PnLig88kUXBv9qtI4R/I9pd3z6XwBaULtfNf2LBm7pu06JaRL/ieKgrVJT
+NEiqtcvV/huCWnjkogxmifoNKByxmglFZOfpoagFGuiy+LNtFcPQuWd39G4t
+Ev6DF985tIaiabLPvY9cdDDe1mzinxeCTqYyxflW0yGp+mbQlYYg9HhsPEFx
+DZ3QX0z5uFQAktarHHdeR4eYkGA333c+KLnKzSSLnw4v9BXi/Io80K+NZNwi
+SIeTwxmphWR7ZOw7LD21iQ78DnSOUIoBut9dckZShNjv41jb5iCPJWQdpvVF
+6bA3JObL2ufWOD5rt2WkGB2Ou7hmHZvzwiNzA82VEnS4/WoJajSCsP7JAmr/
+bjpsparUviiOwncfWGWu20sHh9WidI+YeCwqJvZPnkyHuc66JMr9ZBwV8cHO
+iUaHcwNT0tppCfjX+hvd8Uw6bOgeerJ2JBrb5AQcviZDh2OnL9d2M0Px6z3q
+tU9k6WChGvCui+2LVWs27h1QoMOj3yVFY3eccPWh/7KWlemgv1V7B0+OEZZ8
+UcG7E+gwFDZ7NmE9DRF/jmBlNTrQ25Uda4+eQKtGjo6cPEIHM0ju/Ut1RH6B
+m82DNekQ8E9+nunuib6u/tKRpUMHNbJbSVuVDzI6X6Vcq0eH9IO6r3IS/FGz
+eERltwEdxHLSOVn3AtH+Su2df4zpsNuQvKpTLRgVK247u/EEHXq4SjcdoYSg
+LW3flxkWdJAr3SUv4BmCEoxrOLqnCDw2MoRYfCFoZjB6wN2WDm9YL3Tvcwcj
+R46eQYoDsb7EruTuyUD0bnFH0w1nOpRM5vfT1/ujoykjMm1udHC38H/MEvFB
+dVvrrn33pMO0lYRZ5qI72lcSv5nbhw5dmZFreePsUbaMYcJufzpc7rn+syLW
+GPE2SsweCqLDLQfnJVHFlThId9zJOpQOVrtEdirIn8A/PjzojYggzs+rfFkp
+54pPupzWzIumQxuJ9q/xjB9unzG5/yCODqu+L5o3XQ3DinFSlL5EOtgsz7oO
+3YzBZRsnc+eS6bAEDVtGLROxaP4jPpE0Ojz3TAWFxwk4hXom/EA6HTqmDLj9
+tGPwv/qT44aZdBB/sSdWRiMMux/dd8oni9j/+HOJVqYf7u+efnHuEh2UrTfq
+HplxxTq2TXArjw6W/LKl7ZPmuGHi3O3OAjosmqiVjKaxMC3cSnL0Kh3K61Ny
+Ox7royvrqBnrSungpSr7LPihDRLInl9FKqNDqAM4+35zQRHSrX5HK+kgSr74
+Tcadg8arM785VNEh8Xf3JlltX2QFtiZxd+iQbXnia/tZf/Sik9FaVEuHXRMq
+axYVAhGYL8o11tNBL5ws16MZhKqG26//10CHNTnaCvaPgpBEQPa2pUd0UMxR
++njzUhA6t8oxeUcTHVLbuRYbPwQirnSZv4pP6bD6wVzY9ZgA5L1zhfuJZ3Tw
+pLzW9jjrhwbLu/oDn9NBVS3QdvtKH2SgcPnYxRd0sL2wPSn0rgd68tQF17wm
+9Pbu1l/MdkRsIznGm7d0UOJauEyfO4mKBlYX/O6lQ0PlP9F3qcpok9drQcF+
+Qt/nhZSi2bo47l9+NP0/OlDTdobHfrLDU6c9JnUGCb2dSJT6d5uD7UWU7Ny+
+0WGkWEzQTyAId1/j7T49TIfzx2kieiujsDr7nfr1n3SQ2ADpclpx+O6jq3ef
+jtNB8OqG078GE/CeY957vv2mw8Cn9w2BuTH4Yh/KWjVNh/wtWndpCuH4gm/u
+dYc5Ouw3YPCosv1xJt9cfetfOlSZ9kxIVrjhzGKjDtIyHWRSJyYIMeMMdLs/
+ZSUDTn8ytF7zgYXP9/CPj3EzYCBaX9BuQR+d57gu661lwPGrkt1Vn21Q+tpW
+wWo+BvzJvrNSdsIFnSvaLSksyIAgke4dHkYcdE4pSiZgEwPKVw9ZfODxRWe7
++9V7tzDAQczSa1LAH6V5KJgoihLnDxpueOQegNJ4LjpdFmOApQKNW1ciEJ3J
+nwxakmBAuk7EngpSIEqV10u2lmIA79MF4+9JASj1VXnuk70MCGDZxq5F/ijF
+lbdSisKA3JKgcklNX5S8ygEn0BkQXjHUg8o4KPly44thFgNUt3igd09c0ekD
+Owe0DjDg9z9HTZePtiipK2SyQp4BZ6HEpkjDECU59azaoMyAA6VOKpPrxHAi
+1/7N3gcZIDt0pXf03AmckHNuzxtVBoTo3K3+9dcFJ7DH5A4cYUBz/vGXxof8
+cHyHpmaWJgP4WE7UI/QwHGdfcnJehwEWffrzlrYxOG5xpbu5PgNMyL/GNZvi
+cezFU+EPDRkgbn6druIYjWMYDWnipkT8uxShojoEx7RtLYg+Sez/WC25U8EX
+R9v43/5iyQDN7TL7Tj9yxlELr54ctmGACH+9hf4lMxyZQe8utWdAY6armlTV
+LhxBTfm21pkBasFj8cuVx1FEy9CMmxsDrPKbqdNJNijcSp23y5MBmTfPmU4v
+OKOw2YJtTB8G7CKdui9C80Jh5xbJ5/0ZoLzRdrJ+A9G/k04qTwUx4CPF8JHg
+D18U8qT2mEkYA6ZMJaUuS/qjEPNNp+oiGbDnwzKfc4M/Cp7y4ojGMmCj4k6f
+qFp/FHTmeXRYAgO+KV81/S1IjPeQMj6dZgBrRU7n0w5fFPgo/hqcYcAmwcEJ
+viFvFGA2eLfoHANWqaHn+S2eKOA3al2dyYAbOSatchHOyD85t9cxiwFYZ63e
+wqw18ts996PtEgOkHNf9XnbQR34NRn/JVxgQW/BjeXgtDfsa3+Y7U8iAO3+q
+BdKlT2Kfcf6dE9cYwPMjfZNDhgv2SXRlHL9OjAcXC2k3fLG3RCvcKWeAs14Z
+77O9oZhTv9tg8y0G7J4MEWkoisYcgyi7wGoGhEbptrxbH4e9fvb7vb/LALfF
+jTPOfyKxZ5xCglI9A+y89rRXOARhT7GLWXkNxHijqK2npzf2qJ28vvyIqNdq
++vYj2x2xu57efZsmBhjKrVLj4jfG7sPlHU1PGbDa+dA5Df/xh27RvB+l2xkg
+t0qW/FnBALmKOowndjIgsTb3TgvFBlVPCKpUvWSATZByxu9CJ/S3uSGl9w0D
+kn07g3yFPJD6Jec+rh4GwFOHopuYg1K9hEmkPmJ+/JCftbcP6lZ/HHj8IwNG
+ufllzIh+dIeo+9Pgzwy4tkl++IquH7KfENlc9IXAryuqWCXYD1U2N9m1fyf4
+4jITp7LLD83keFVP/mDAIftP10uP+CLktX3F9jFCz8L3leJ/eKME9VY9tV8M
+8Btmcv5by0Fd23yvuP1hgOQ1sZWRem5oy8TOsYwZBpA+2dtaJjigU83tSg3z
+DGBWyNPfcyzR9ZyA5K//GLA96sLWxYvaKEgu3Z2Hiwkqyg/Lwrcx8A7JoYxL
+K5jQ16i6ni/XFD/mU3lAX8UEqtIBh7lKR2w/e37wyWomFG3dts5T0xvzDg6v
+NeVhwk/TDwIbcCCueI5YP9cw4d6dcvy2JgLr38s0i1xL7D/SerR/SyyeKhyJ
+3LSeCXEFd7MPlUfhnFQoLeVjwv3nT1bHBIZgFHixS0mACdecV8fXb/LDgzaj
+0y82MGHlGUOGmok7TtBRFbPfyAR1S7v99qE2mCyXrT4nxAT5cO6NIua6uGvX
+uFuqMBN4Q/otk0KkkQ+feobEFiasddmlMp5vgLbM5tyvEWGCjsnuZFkDa3R/
+YGJAYxsTSkkxFoFWjsjq+eG1H0WZcKpjl0K7nxtaeS+X6b2DCT3Oy68PXvBC
+JYW/Tbl3MiH/EARMnfJGWqlHI3PEmSBJKqe4hfig8YC8EtouJnS4Hg7hE/VF
+523+dDZKMmHaa0/fZ+SLZHU0p42lmGDcMNv+a9gHfZDN3zEizQTp/tE36lt9
+UNSuabWIvUxw+Fsb++05B0nxabsJkZjAkzv7uZbfE7XNFJwvITPhsnOOl1Wq
+C3IfmKlXpDIh9rLq4uvN9kjwuc5AF40Je3bvbtE2Mkc1tUW8dgyivldhe5G0
+JjIrnGPMMpnwX//5FXm2TPwvRdc0hc2EreUHdixUmuCCgGsR4vuZkGNEYsZc
+dMDqNgvFdw4QeMjnVjs7cPCwtn7nUTkmZJqMRYwGB+AzsiVTH+SZsO2AwpUm
+3nDM3vVvO0eRCVE7tC9M8sbgd+sN1FYrMyHtQeYAixaJQ2ZKXbNVmMAKEHrW
+UB+Edw4splMPMkGQ51E37b4PftJhWP8YmCBWt/jfgoUrdqy98dlIlQljmh8W
+j9Ks8brC5TU/1JjwJXh5sitTG99MMWaEHybitfkes+nuXmQQUG6y8SgT/lKO
+J1UMH0cz1isiijWYsKiYcfvt+lPokrZpsYIWEwSu//HfyXRAB2Urn3dqM0HZ
+vfEG1x8XVFai1Rx7jAkxp702tG7xRFtEhh8o6BHxhyoFJl7goJjE+DsT+kw4
++u6A9EyWNxqflSwvNmBCyw/BvHohH3TS+XGRuRETIrob/3zg9kEtvZaXNpow
+ocC586iTtzdiav5NbzVlAuetdKODMQddrs8+HX6C0BvNWbLJzgPxkmWjZcyZ
+cFMx+tszfhfkd+lN0A8LJuwbazOcum6HPq/z5uRbEXxbu0bwputJpB0q4Gxs
+zQT2z6mHos+PoNqf5afW2zLBdCrq9sEJWSxpoWnaaEfocQWZ/njBDKc9/64b
+6MCEr45CL3QoTnhBOe4IzYkJwufnM577emPHyl3oizORX9Qjvq3vA/ErsUcH
+clyZ8Mn/qXpESwRWTrOg6bkz4XZnw0+HZ5H4+tK8FLcnE557TYxY8gVjYa+s
+HQ+8mPDmO6+Y/wsfHPXffmFvbyb8GYqbV5d2xaN6r9fv9SX4bO0y7mt6Cps+
+9lr10Y8JnkL/BPrbNPATJv/f8wGE3pXUhW8rshG9sGxSI4ioD8/0leVoQ3Rp
+o8bIUjATAsvWuPQqWiOemG8DNaFMeGBOdZqscUA+kzHvXcOZ0Bb+xNCa4Yo+
+2kq8kohkQl5IVPv+Mg+k8eZh27soJlz67aXcKMRBNWrmj1NjCD5YLAvcfMlB
+EjVz91TjCD1Fqh4eEfBGKVIXb83FM8FQRl8/spODZjJlSm8mEnzr/HUjgI+D
+bLlfXbE/zQT7il037mR5oC5/z4uiKUxI3hxRay/iihS/r097mUroW2rf1U3Z
+DqjE5EZ8QhqhJ0u30jfbrNHG1iPhyueYoPli3TaOgiEKk/vqN5nOBGwVbF/I
+w0LDpdHu1zOYQNl+QFbISRMbbRW3t7rAhIup5jqLxafw46QGc+EsQk/bt6U/
+1XLF1PkThu3ZRPyNjWZxn31wlsusVtQlJjhniVT2igbjlX2ZqrKXCT0tP3I0
+6SbeVy224mgeEwaulPmUK4bivvsvWEX5THii4m8iKeyPD1M8SGaFTNg192Up
++bknrspdt0vgKhMevVIc32prj3fwXd/afI1YH7Rl4f4rY5wUdlgwpIQJdt5b
+vinzyOCp0cE1zOuE//1O1RzqVUfWllHL324woXfPdi5OnSnq6BSbzS1nQrDo
+MFU93QbJogfjxyuZYCu2dMPL2BEV3TT7vuYWE+YGa3o79rkiAfGZjw+rmFBu
+0Ux2Xe+BQs5mvPWtJvTDtVPSYtETfV9mdpJqiPxHXuvfWfJCxzldzf/dZcLv
+1fEVj9dwUMNnt4YL95jQwPd5tIfhhfYdX1ujXc+EdVftu9pOeaAcU3rV/H0m
+NCd8r7S96YrWWRlWlDYQfLKs63Ta7IRC7YOuG2MmNHrt3fcj0xaNuuZdW/WY
+CSEpX1MmTpxElt5PCm43MkHW4sD8+QBt1BU4dPlUExMgpE+v+iAPhgi+HP4W
+JngFPFZoGtPHt+NYFx48ZYJlU0bIJPGeSaaYpLu0MSHIiCok4Uz0G+mhZ0Ta
+mfDL/35MhZgv5s4uON3SwYQZ981TLQtBOOBKS7xvJxMqE4UKDLUj8dC1kehd
+Lwi/qgg0z9kfh83KN0S8eMkEozS3jL4rUfjZ7f0h4a+ZcKfkhI10ZAhWrDsR
+QOlmgjZpr0AYzQ+X4wif928JvUTa5dqlu+MdLVc9E3uYoOoQ7hNRaIPPdLS5
+HnjPhA2liiJDVF289GrM8UsfE+ZrLbUviFCQV6+QXXo/oecLcWWGJCP0+ZPc
+qYOfCD87xXrieMUGGXyzMB/7jwncGiOMR7rOqOlntGnuABNuWTfBE2lPtH+y
+xFDzCxM69yeef5TujUrmOvRmvxL6SPY/s/KaLxJZ/qVd/J0Jx3btvndb0x8l
+cW/RMBxmwpn9dg3dRL86v15JfcUIE/jk+vR99QKRq5A13PpJ+K3MP/qFW4Ho
+w9Z4ZcsxJiiG/BVRvRqIdMTL5NdPEPwubX8TTQ5ED6Vf7K//xYTczDUsi8MB
+iE6dYjpNMuFs7Uru93/8UD57G23zFOE3o6UULllfJKiASE3TTKh5EZ34fr03
+ij5oJ+09S9Sv3mhV34g7mjyctEt8ngkfApM3xX9zRPY6lWKdC0S9j0xTmtdY
+o7cGr7eF/mOC1I28FN2r+ujIidnNpCXCn5L7bJ5bLz2sO7VDqGeZ+M9sv1L/
+/IghJjkeEohfwYJp3pzvsoN2+JK74zqZVSzg7atbu3veE6/3TeEZWM2Cpdq0
+I/x+/jgsuGrlWR4WFISdv5DQE4rHIt8uKfOy4N1rt2shhtHYKmFhYWQtC7oq
+ErP3/Y7DL1LFZ7PXsyD1v48l5j1xGDLU/xzhZ4GJeOgXB/tofDvHZWJKgAXU
+lnOFkhphWLIg7WeRIAscqp5tu0sNwBkld4b0hViQyD7hEBbAwasre78sbSLG
+57icvmg54oA7i/9VbGbBLmPlGvnvZnioXrL/pAgL/rETjtyiKmGzx0d7ebex
+oKLk7JuZADXU/tS9u1aUBTa3nUp7K82QUmf6S/sdLGi7MNe9iscOVbypfS60
+k8hvvHSP0E9nJNb3oe2xOAtIjYpq0jyeKO0zV4vnLhYIdXRnF1O80fJ36cYd
+u1mwwbJspeaED+KMaT1sl2JBjtjS+Crif85zXqTXfA+B50tDQ6Toj3Jlv06O
+7mXBwWF7fLfLHzE/VPFHkFhg/XTngtf6APQ0MnzfBgoL8tir3/r88kcWUlpq
+BVQWNGjRJZvD/dFk2xYrFp0FkTlQ73LHDyV5fAl6wmDBBQuXAJd0XyQmVJVh
+yGLB1eiTis9EfFB1bdjNr2wWtLocHUk7wkEa5prP/PezQJFV/l+Ukjv6tLz5
+K48sC27oa/u0Kjohv2uDS1lyLLC7l+y9mGyD1mne2kZSYEFVaMVFSzMTlD8W
+uv++Igucw2+/zwsGtP+8hp62MrFfoNfDflIZt8tudu1XYcHYui/eTzaZYesP
+A3EeBwm8bc1DtKQc8HTkzfwlYMGgrJ982JgnTpYKvX9WlQXxbpn77lb7YYln
+R99KqLPggfhPndVHQnCth/Cv24dZsKnp9T2DrVFYR2hgndpRot7VIQqaCrF4
+sLZSuluDBV8f+mWTe2JxoHkIOGixIGpRzdDoVRTm4zpqPqPNgp8BHdvnh0Nx
+0bVNAYnHWDD+fSTiUHQAltf8fG6rHgt+WVbUh7l5466xivIb+iwIqeux1dZz
+wfbng58qGrCgWgSlebpZ43nZIwMdhsR5kc6Wt030cdoHoX8WxiwImN5zcfy/
+jVgq6r8t4yYs2LaS/TmvRBPdl6pgRZqx4Jb6s1864SeQ3rMgHcGTLNCZfze9
+hmOLvnocdio0Z4F/oo/tu3AnFCIkFMO2JM47+Fp+x7AbErz36XKTFaGPOIF/
+X24S/YJ5+T0jaxY0ferfvsPFGylzBb3+ZsOCwumvjzbe8EGvrqmPBdgReH86
+Lm+W5YscNTfy8jqw4FBlRM+UjB/6N/ZRMseRBejenz+jEX7o/PkyFbIzC2qc
+jIYPB/mhfXKBZg9cWCAS7bmJW8IP4Q9qvjpuLOgt2NXLCPBFhlGCaR/dWTDM
+45TXQfQnw1Ifr3t6EvUS1er6SPNGEc9uNC17Efndw3d6dnohYc+AT+e8WRB7
++LzjDHJDN4TU5nf5siAlQPeqZIMjQvc2CN/xYwFFWdna6aIN6jbvp6sHEPzt
+pMrl55oiV64bmm8DWaC+sOyRc/ow4ir2t3cMZsFv0UrxCw1kTBkXuJQUxoLg
+r/cv6FXZ4MfnP9Rsi2ABNu0cPlviik3krr8oi2TB/qv+G++K++DRD34jStGE
+vxieTXRRCcQxUYe4O2NYkJtjV3eqIgxvlRaQsIoj8LX9zqUpG40rn/UpTsSz
+wN79p9UiisOqnqXGUYkskBDKvDypEYV7hfw4G0+z4ONM+2gQJRQfUEkyb05m
+QeaKuty2En983unykcBU4v5NghNvQzl4Ir2KRU5jwRnbly0HjJ2wTkPzjo9n
+ifoxQu8dfm6Bb3zvXXMunQX0xQneyzc0MM/GsUnVDBbsvL3w58pnaWSvtOLT
+dCYLtlzZZBbkqI8aHTY/u36RBbOpnl8DyyzQznOkGvNson61Ocmbm+1Q2H2V
+fIFLLMiauKLxNtIZvf96PLkxl9DbI+PkxCR3JLvB0d8vj/B/VYs6+U9eKEMh
+xHpvPgskFX8WhYA3+mWXpt1XwIJ7zym99vI+6FhakeyZIhYY+o8eHHjng8rq
+anfBNRasjj+1e2a7L1rzpZ3vTzELlOJ7Xt5Y44vs+f+bLS4l/IvyInflJR/U
+KPdn0OwGsX6kt5/njTfaabuma305C4Y8C343VHNQaOr2elzBgm/xj4NNfDxR
+by3jmvdNFuyNr9Kpeu6KZAfUzkpVsaBj6tqBTD9HlLHeLKTnNgsWq6S3bnC1
+Qb8OuDsk32FBmrJpk/lJU6RrHaWvcpcFTA2DPTOz6qg8OVPpVy0LXvjunNCV
+o2Peu9f3XK1jwTrhl/PynobY4b+GjSb3Cf+yTl8/qmyLn6x99Y+3gQXuDuFh
+7/zccJjV/GvPRywoL0mvtFsMxO+T+PGuRsK/N01VnrgWjmXv7LrR/YR4n2qO
+nNj1OhpnfDyQmdjMguQBc1vh55H41xqtSMWnxPgzyS1GPQQfY1u5jrWyQLyZ
+Mloo6I/LLHyMC56x4Olc2wkPJgc73L5E4elkwfUnT7uellviJx9ubqnvYsGf
+zqyov1QdLMHTtML9JQveDpz0O6M4rBLO7Bnd+ZoF7Ez5Un0DLdR38mfPqzcs
+GLnDl1b9xgzJxS8/iXtL5KM0CJuzbVDmrU035XqI90+mJcxQ3BH9fr83Z6SX
+qA/PLZf8ZReku1o5Lq+PBZ8kJKNWK3igcrq+l34/obd74qppHV6I94T9yVWf
+WLC9P03s2gcOcogNOlz7HwvM1i4t74zwRk8qU5kuAyzgSwjIUun0RuK9Bdt3
+fGFBdmnjPe5n3ihs5V2eF18JPcsdUQgn+tk+6rPf0d9ZsJXKP3/jKQfJmX7s
+3z9M+Fmh0+3d6V4oM/p369APFjju+xTmP078h8q571z6ScTHmSMZF7sgvXfb
+rhwbI/h9UjOr664DquCin+aaYIFspmPFmLgNWktR9bvzi9D73Ud3wlpNkaOx
+ySnHSRb8SHptz+bWQE2Rrlrbpljg0//c0eenIJYoizjwfJrwZ+7QqLpeXVzk
+o3jQdpYFXl7CURUrrPBupRmNuTkWPDzNFYf6HfG1VdUGaQssUJW1X2ep4YX3
+PPewkPpHvDfvIqczJP3w9UyS4/1FFrwciMzV+hGEyZbfvPSXWeDxOSns2Fw4
+rpAuDP7OxYZ8ObesjvQoTBu3iA1byQb1lBNn1+0Kwzdrt54RWs2GwTW76zNt
+AzEzsvvidW42CKinRLGGfXD10XMFaA0bjj//5V5v54H3C+qUdfOyYeH2F32p
+SAdc27umxnUdG8SWD8bIHrbAcoVND7n42MAsvEo1lT+G61wiWy/yE/Ol9ub3
+tkpgRbbSK+oGNiyHl/xj8qmhhoWZvieCbFg7RanxXTZEKk3VX82E2PBotvzl
+ehdLhFM8x8c3seEdpWsxaMAWgRF5Lm4zG5Kyf9fkJjiiJzu+r9guwoZ1fa9v
+zlx1QerfCtff3soG+pV/588ruKOnlZabj4qyQdkxYUPQUU90NGCb+MftbPAZ
+nu291emF2tDbfb5ibDjiSDPe5chBWmvS2WvF2fB1fXLR5UIOev5CRzlfgg3X
+1kfI6+ZwkG4275EDkmwIdZWIUDzGQS+tm/U6drOhdrvLg44Qop8jRRGNCxuW
+4nVP33jjgV7/VrKb3cOGg+tEjooUuyGj+7PuZ/axQQFL9YtNOKN3MXcCdpPZ
+oCe8TfbpbQdkqu0VVU9hQ0Ngq8a2MRvUu4mSrEdjA/mU8w5QNUcn+79nfKOz
+4cOXrfytucdR/7WivFAmG0rNhh475CohKw+r0o1sNvB2NMb3ectgm6W391UO
+EHie04qdPnMKDz5Nb34jy4YNFbcml1WcsP3ZY10u8mzwb+f/tVHZC383Xdu7
+rMCGEuGC1ozPvthZomXgghIbqkNGXuQ6BuGR4aifFBU2HFKo9d/BDMdut5Wn
+GxGBT8zlB46N4Xg0eG7JFNgQVSwvqro7GHuq1vCOH2LDydxtH2qb/fCvdRyh
+ODUi/5VM8cZiDvZ+Q9khepgNDlHVvPdTXfBk7pB01RE2LKrUavEfs8V+9lcZ
+RzSI+G/fdRreaopnqKcU+jXZEKLRdjeXchgHTYuq+WizIdlQ0SBnmB8tPHyn
+w3uMDaPcBZfx6BEUmnDe5IouG+bE18ekLxuhf7q61vv12SD4MEztZ7IlihBZ
+59p+nA0X9+5BKNUWcX1u8bU2ZIOKp2A6udsBxVyPDp8xIuKdpeWq5jmj1d4q
+iakmbMA+JLu0IVcUrzB/TtKMDdJeMdOb77gjnpV3L9WdYIPciXz7gWUPlNTO
+uaZrzobLD261zXV6og2kmup+Cza0qEr84xPzQhcTZx+7WrGhd/WYg9ukJxL7
+rvhi7hQb1KpLarfreqJr6hEfE2zYoHWbdk2a6YEoVxt/CtuxgdV0/ce5bDdU
+vYJ7ocieDVeORh51SHRBitYavCxHNuwd14st++eIGnHKlkdObFg58tfJec4O
+aYi9kDrmQui3M7GlJMQavQwVkvngyobTtYaDfTwnkGmf8SEXdwJvpm9ykrQ+
++iSfozfrwYY7K8vW5hxWQA5Z/ZbxXmzo0Aip/vWWhUenxd03eRPzHw0mBBj6
+eKG6JInhx4bcobnZlSoOOHrjyMWH/kQ+e6zIxfHumJdDK9YOJOrxu+3do90+
++GwX5877IDaYpjoePHwoAG+h1TQ6hbDh7B16h1VuCM5LmX0xHUr4x4FDfXOn
+w7DUiOKn2HA2mGsevWChHoQrNCJGN0ayQSZ6y+J3OT8sU9q4kB/FBokbdrcy
+7Tn4Pjf3WnoMG54FnE9rznTBqvYaIg2xbIjpyb2f/doWP3uSIq0Vz4YhuXwx
+xH0C6+96IdObwAZf3dFW1Qwt3BMppOqYRPA7ScTS/fxubPXJWH/qNBt4tuu2
+UVch9E05xyomhQ3Z2utLas/qI/fcfnfBM2zgf0Ivj7lvhv7Mi4deSSP4HyaX
+cYXLGoWY2Z2mnmPDvxDLVQssO7TiXknW/XQ2tLPCik7+dkBJm0eKNTLYkDc0
+7d2KnNEGP1rNu0w2HJiUCjoq6oouvuY8sb/IBhNN1ccDsW5oJ6vm5WQW4R9J
+fifzQt1R8dnZT1E5bDAYe2QevcIDUccVxwRy2TCQtfQxc7MHqtGJ+Hv5MoF3
+xdDyp3vuSKm8cS3lCoG37d+vjkR/8GQt99b6fDaYfTh7V6bUFWk6a+w5WsgG
+Ydu7V3SmnNHLpyn73xax4dSk2uu6F47IVPqFqt01wi8s3yREKtijT7FCx38X
+s2Fy/sZsKcsGOQwan4osJfC4dv6ZD8ccjUKOB/8NNpSfeiAdcMkQ+eb3h+aW
+saG/5jP11ZPDaGFRPJlUQfjBeENIirEwirawy75XSfCr/XORsa8q5n1QUnL4
+Fht6KqJMMnKN8JYgWpNNNRv2xZ+XHV3lhPPecV5N3GHD38Q999ev9cRSB2r+
+C7/LhqPcZVsfP/LB5RmzY+vvsWGcslmk8E4AZk8q/supI/iqvkdc+nMIrteP
+WLfvPhtufmccqWgLwnCrcWvtAwKfzS93pw364TZ+7r3qDwl9WJSLjLC8sZ67
+xoHXmNAT+M8Ge7jhK/pvNsU8ZkOk78jRQjN7PLrfapL1hNA33ekQPdYcK237
+8XKgidCjx730Y4W6OHnR91Z6CxsuFK8J8XJk4t6BpTOHWtmQ+J+MxvokebT3
+6Wn3321s8JhbbZTSrIsCyoS1C9vZ4H1in4hKqSlqTssnHX/OhoTm6Yz5X1ZI
+yJfMu6KL4GvLrTct+bbIxvTu96oXbOC85UxGazqgKiVosX7FBtURpYB6fye0
+JN5xVfAN4WdD++/6SbkgndUmMY+7iferonZ9g7Eryh3+bM15R9RnSb4/a60b
+GnnudlCilw3RMaZnBcENyd+eEXv5ng3u8o8z6POuKOFC9L/ID2z4bci2Wtjv
+it4G831gfGTDauzvEvbHGUlZZdX/94kNmn0msg/3OyEfVcnss5/Z8ND3snbL
+nD1q3FMZcHCQDVuo3LJ5B22R4Hp544kvhJ/5+QjmClkhq4knMvnf2HD3ybm7
+D8tNUOWbY0J6Q2wQmaxkOl3QQf/u9f5aGibmReW45bEM0rps9+LmCBt+9I+O
+Jlw8gHOixiutRgm8r3qrtNfo42H74FSBcTYEkb5t61u0wLKaq93wBJv47/WP
+npJwwPG0s5qev4l6i2ou1iB33L1RdN/OP8T7alz+4PeoN5acucbTNUXg+Uzl
+6O85f8zpY3wLnyH4M6RWZ6QWgh/h+020OTZU5AUMXPzojwWuHi76OE/gq1uY
+jRa9sUXiy6gzfwn8otZdq7nljsvdzE+pLBL6WU+98rzPAS/ofVcZWyLwS9BQ
+CJ21wllb/y3orJSBbhmzaVYY4O//Et7/WyUDibe1/LK7t6P9AxvrKrhl4NKp
+WFGPS4dRbMvlixZrZEBztbfpw98G6PWNvf58a2VgNNKZNUY+iSTSqg0b1smA
+/Nsd9a7K1sjLR4XtzicDq8L34CdjtgibtAnuEJCBBL57VgkkB8SnZDjRsUEG
+Ch/pmz6ccEQnxT91hm6UAdGyba5e4IxurHKpoGySgfefuqyubXdBc0N/kj8I
+y8Dfqocr7aNd0JHnES4pW2RgWOjJvlpvF5RZtVZDaasMCNTI3ygadUZfMjP3
+/NwmA5v5uW1Zk06IHSzOnbuduF8oUtY1xhFFWZZ90RKTgexw7w3Gefao69CB
+Jws7ZUCjf/OHeVVbJLbncUGZhAwM1m4VbfxuhdzXaUeelJSB37/KlSUtzdD9
+8beW66RkYNuZQtG9P/TR2jfWyvelZcBIrCLg0eZDyOzeT1HXvTKgFRP3Lbhm
+DS7JDZjfRpKBjXblL0s+H8bTkSt6n5FloO0334+d/CbYeeX+txZUIn6jqXTb
+fGvcH+f4eoImA/qzaizhK45Yb03OixgGUZ/3OrV5Kz3wk9MdzzezZEDcMwjC
+vnvjA3xLz66zZeBcYc5MWoQ/vp7GbFXaLwMxvWOLBrcC8faNds1dB2RgUvqC
+YvpOP5yWcaHRRk4Gbr22GPv1kINXbGnDU/IyENe/OvGTqBv2y154kKgoA0J1
+bi+FRB3wkCitXlRZBvZFRQlNTlrhk3mnaitVZGBrSdbyFh8j3Cl+/g4clIGD
+tRrzG+0OYyhqrnoDRH1mRG2ebdqO70jNVjqqysDNM2HYUUkR7Skllc+rycD9
+3e9uJYvpoBySxfXUwzKgfVp1PL3LCPFVpBWLH5WB4pg5bu2ukyiS3lhUrSED
+S0niYks81miy6k/+YS0ZKG0Syuo9YoscZPbk9WrLgKD6waf399ij3rtml9yO
+ycAft/nYshIHpCOfkrWkKwO8MR6VlU8d0aP7DzPT9WVghnR9d3sCwQ+VX+lS
+BjLgUnOmg3vICZU8kjx7z1AG3BJ7zjgS422qxqlaxjKgPrLWdDLRCaU2J/7f
+ULm4Q4FGcXgpTxtRpMd0IeJZG7U7fF3k8jmLGYx5aCZhiBoMEUXuiVYma3In
+UiqxzKItUpR2fcR2kVgqQlEJRa7Zdt1iv7/gPOc9v997JL1ONN914Wrlj33w
+EvteQpALgrlg88bCUhE+3jQav8wVwZtvzPnP9bzxoN3muBw3ymdgXT2b64ld
+WnmxW90p72jtVcuUDuHmveLoPz0QoCczxze9dcX4eXWkwyEEUW0tl18POOKb
++4fD+oUINPvT3YoduVina2NImBeC9rTGBb0GY3ze1T7oWxHNj7lN8WQCg8j3
+/hyY54MgoKpkhboMi0y9G/S974fAuaO9WvGGB/H2ZogcjyDgValHl015k64h
+jueHAARFFo8jH3/yJ3Z+MQdPHEVQuxjhdL0wiJBP5QcUgyjPXlb49qUQYnC0
+X3A1GMGqsTixMCmCFE2qOqMQmv9U8aYG2RCiFmLt+DAUgdvI5BqTa8fI2S9R
+PEE4Ap3cJ0Om1/zI14jf7UcjEJyUywwVy3mToLk+u1NRCG6uYLxjhLqT9yeV
+bVWiaV+6ftuQn7GPOC1ZsotPImCXuXzQemRFmuLCLY1iEbznL9c3vaJBTJeX
+QvMpBC4qqOhp4G5ckfDKzCOO9t1GZfXXLlusvVLJZOo09dOcDMPWdh/OSQIj
+sRhB2q+DV3unXLC8UshOtQTqi8T2CfaQO45JLzYs+wXBkEPDqPVaIZ5U6frR
+TEL5M8cvCbs9sVe2/Pa2swgevBmYDWN54041Mz2vZAQR1mWRZ51F2PbiMd1/
+U+j8rsaMotU++M9NhTqSNATjh3bebwr0weuZ/yxxMhCcO6uaJw3wweGW7Fer
+shCMrGQqRs2L8HOn3OrWcwjMJBOPbDaIMNN/JCM9B0HfG7U49SYvnBJjGsjP
+pTwZNdOLKzzxSHqqjepFBFx+WP3w9YPYuuitdmcezRc3nqEU4IqL7hgunb+M
+wFUQfuYExxHLNIt7BPkI7t9e7xCTycEefZ1VGwsQeNqoSEsKduI/pr7P6C1E
+sOVy9sKFOj3CkIsOyC9CoG9TWpI1YUvCGC3WQindV0GjeWWEM3mmv1lbuwRB
+dKdMSbu/kPxgHrw4UIogUxpl0SjxJUn8xm7pNeo75d56HuMo+ShaV3X4OgKT
+M7LZxknHiVWUb7peOf0nKdVMjrwnKUiuOTJageB2jKn0wmdXspivYH2jkvqq
+bVvMQDGfuN1y3xJ0m+bPj1vRcoBN7j4s/2pQjYDPPXWCwzQk63pkuqfvIAgz
+wzoiFVV8fGzf7aoayiur4YrNoBH++xtpWsQf1I8tJoaLd63wNtUZ/z211A96
+x9rC99thiS6HPU9o/yI7Dq3T2YuHjC9p1dYj+FA24ZL3mIct7ccXYhvof6go
+qHDL5eOrQuiCv6i/xmSfeWfx8dfQzFuyD6lvk3cYPKjhYdfEgdS/HiEwjuBw
+kxT24jt5u/wTmhB4BMY7JSnbYdXyRJZNM72/0VidnJcVDm7o0ZRvQfCy6SCD
+rWaEWzu2LTS3IngnyzJcfmAN1h+OfZnShmDX0S9DicaIJC60VTo8oz4QbjmW
+Os4mg6u1U5VfIFAw6Zje/A+fWGiH+T3vQBAr2l+oznIj+bseWWW/pPflaj8t
+8BWSBdv1ms7dCHzTPbUUV7gSgfuRecYr6gfJudozCnxSHVTb2fOa+s/NVBZq
+WGSteHXlpT56T93h7j3DBiTovDDF4y3t544H6x/eUcZPy24d1uyn/XXMBKOs
+3XgrkbPqf0/7lC1xONxoiRPanTcXDVL+ORclkToc3D9QOif6gODEvP6Gj6P2
+2HxmvkN3GIGqrBLTT4mHLynY3xweQVCIpT5be3h4VuNq8rVRyodnGNLQzcNO
+hp99A8cRTMZnaFko8vAtlpXlj5M0T/7tKQHD9niNIEdjagrBdW5KvECTgwMD
+Ps5WTiPQmBib9qmzxE9OGXeEfqH/fw//tDBlN9bNSq7Y9R8CreADizmVylgs
+7UuamaG+UvyJv/29AXlXw/S9N4cgfGtY/UQFi+CW0xYnFxAIZt3VW5fxSd7b
+F+p4ke6vwxyrmxOQmenvZpeWEExMzGTlewjJ/6VSemc=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$218652#2"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImageMargins->{{12.9765625, 84.24609375}, {7.16015625, 7.859375}},
+  ImagePadding->All,
+  ImageSize->{568.3359375, Automatic},
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 20}, {-0.006684851651759792, 
+     0.047897778695155144`}}, {{0.00001, 20}, {-0.006684851651759792, 
+     0.047897778695155144`}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.7523223171108093`*^9, 3.752322365805702*^9}, {
+   3.752322414014778*^9, 3.75232261736474*^9}, {3.7523227317442303`*^9, 
+   3.752322743514076*^9}, {3.752322869801609*^9, 3.7523229034049788`*^9}, 
+   3.752323059240152*^9},
+ CellLabel->
+  "Out[1150]=",ExpressionUUID->"63b43f83-41b7-4d21-af4b-35fedc0d998c"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ricgr", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"riccisc", "/.", 
+       RowBox[{
+        RowBox[{"\[Lambda]", "[", "r", "]"}], "->", 
+        RowBox[{
+         RowBox[{"test2", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "@", "r"}]}]}], "/.", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Lambda]", "'"}], "[", "r", "]"}], "->", "d\[Lambda]"}]}], "/.", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"w", "'"}], "[", "r", "]"}], "->", "dw"}]}], "/.", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"w", "''"}], "[", "r", "]"}], "\[Rule]", "d2w"}]}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.752322944890094*^9, 3.752323054143197*^9}},
+ CellLabel->
+  "In[1147]:=",ExpressionUUID->"541e5107-8241-471a-9f89-4eb564eaff4a"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"d\[Lambda]", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"test2", "[", 
+       RowBox[{"[", "2", "]"}], "]"}], "@", "r"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dw", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"test2", "[", 
+       RowBox[{"[", "3", "]"}], "]"}], "@", "r"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d2w", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"test2", "[", 
+       RowBox[{"[", "3", "]"}], "]"}], "@", "r"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"r", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.752322974623735*^9, 3.7523230273676157`*^9}},
+ CellLabel->
+  "In[1143]:=",ExpressionUUID->"0b48f4e6-e8b7-4716-9f0d-fe2408d5a1e6"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"test2", "[", 
+      RowBox[{"[", "3", "]"}], "]"}], "@", "r"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "rfin"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.752322931281782*^9, 3.752322936925918*^9}},
+ CellLabel->
+  "In[1137]:=",ExpressionUUID->"4afd721c-38f3-4e1f-9207-56bbace608ff"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV0mk4VmsXwHHN6HSOIyJkThkStqEk6xYeROkQpWQqlBxKGRpJyVAklVkh
+hHjM2XiefSNUknnMcGQoUSJDpnj3+2Fd6/p9W9f/WhIO7maOqzk4OBLo+f/O
+Mxzh6mgZ1i4SCRj7h6TwiQHR1ma5K9BnqiN8hLbhWeu+U9uDwfJedPZB2vk5
+R2UzPkZAFPNesg5tkL92+rlkDDjbCS+o0q5LS0pIcHkGAiGGhdK0d/09NGbc
+lQz1x/iaeGhPH/7FafQ7Fdbv8TsyX0zh0vvcMgyJDJjrDlXpo+1Xu01XVz8L
+vDTAG9M24FS2Q+dyYPRmpGgC7Q1SydRTRh7wqkTu9KY9WiF/KKEzHwzX6jw5
+RLverqg7zqUQZhZjzojTzlvRdoldKoK15imRP15R2Ge/WWCUeAmI+HZL3qZt
+3dPNH5lfCr8keW4Y0IZrjimP9Vjg82adJift9SU+FQ/PYhi/x+i5WUTfL79q
+p+GNclB9HlehSttpUd/dgFEBJderub4UUvhgbMNv/c5K0DNgViLarHN8+vpJ
+r4G58woxUkD32Gt1X8+lCiQblDbcp83TOSCku1QNuxi3Ot7mU7iDf1YDib+D
+I5IXRQTy6P7Dmr7w9R3Mv3dJTcqlexX61mjn10L9k9CHO2k/Neey2K9XB17K
+Ho/kcyh85qGIh+bZBrgVVaa9PpvC53Nze+IFG8Hvz9UDl7IoLC1o7idyoxGe
+r8EjvS8pHPkl6o0wown2h70Rf5FJ4St3JSyFOpuh2NZc6890CquMv56P0WqB
+xm8hSzYv6N4WTglbk1rgW3GkeFYa3W/7yyFBl1bADraP96VSGFWpXhJYaoPx
+RkWF3cl0v9WG4XziXbBD1kf2XBx9b/d7fc7QLji69ZGLayyF1YtMFxfnu0Ah
+McbtfAzd8+wxp8GWjxC6rRxbR1G4pt5JKz+wBzYGTgT98YjCAXEBI6Y//gNP
+jon3icEUDitd2yCh2A8bUAPDLoj+3xc1GXFn+iEsU+qucCCFf/odtH3Q1A+H
+G+PNAu5QWFLVrNbr5Sewrx3bLuNLYf9Y+0R920HoF2A0xl+i8OFAqWv4ySBk
+ph9OFPSgsNDlYYu9dYMQ312kHn6B/v9D5zbu2jsERg3SxR7/UniA46IX3+Zh
+cEw35F7nTGEdZz+TwZrPMFiqvtXWisIcqs/m/BRHwSl5ZuSrJt1r+Gi6jf0o
+/LV9KXrVXgqTkdzHtR6PQuU6g6f8GhS+MO9Z/Gt+FKr26GSoEBTup0y83KrH
+wDFurgrJU7jcaGHqpPV3oG7eUMsWop2T6S2sPwFFo0nCb2fZ2C0owDTEZgKm
+06HSZZqNReztdsx7T4B996nXXD/Z2Id3S0d75gS0/mpv0/rOxkqet9QjeCaB
+y+Mb8h5k40TN4zOcPZPw8InCif0NbOxbve7SrMcUmKcY//4rhY3vLFs9Gr43
+BWPNpwNMktg4RINZ0JoyBWcy3CMCnrJxZIbldH77FHgc2qP1PZqNmaEvPN01
+p0Gx27s1IpSN+yyMfEZWzYD1mTkDDS821vp8/8bH8Fm4NhJU91mPjQ+IfUp4
+lzELf/ow7Ap12NjwuBpFVs5CyFs1v5vabHy0tnc5cnoWzpmkO3LuYWNXpqKf
++fFfIKsx+OGnHBvHeTX614nNQfsMMpHkYeOF9XxBFHMeTicltX/vYGGf+P6s
+2nfzcMBmT/RyCwvPKmc3tQ/NQ8OJDvONjSw8ac0Q/iG0AItTyaWCb1l4JN+H
+KRa4AOZb8ZE1JAu32/S2+tkugoTn7E+BKBbOe5UmocvzG0Issmp0zFhYtSC+
+d3APB0oJiR9nssqwwA8Y9tfnQOYCwS/5yTK8IDf4TcKMA5kOty/7FJTh8mTZ
+JdvzHEjIScZFLbMMG0e8EupJ4EB3VEttAqLKsMPFxmOtq1chl4nUrf4Xy3D4
+7rXNVXWrEPcBubJJyTI89vJ8TardGtRnqb6j8lopjiMY2px161FTkvBXhyES
+G9WYVF/awY1k7Z5u6RQqxnNJD+JEjDahkw7px59AETZd785BHONBai5yTOuN
+BVjSrvDE7Le/kQ6v5vL+llx8GT/Qoq5uRt0yXD93c2Vj3c8TjpZy/EhPzT+4
+690LHKE8ob6JvQW5J6iVWZUm41N6nqaPLwoisVMeTQvGsfiFdfgPMVEhRLgu
+qwiUhWGPGCON2mxhxMyeTEcVnrgkIahGz3Yb4p/2dis19gC/GsffvVOiSKT0
+lthzKhgcTg6xpSzE0VK74/RC62PQa+8vP6EggaKPvuFrro4Dp9NZAhIzEsh2
+LEr9zPtEYLRqRjTUS6KztzYzFVKeg9OxaLtNsVKo4myIv/ymNGD0lnscspdG
+oiVHw13V02GIkZXuuXc7+rg2XVfAOhMqK51Udq2RQcn346aPEFlgIzn0X12v
+DNIWXKMzx8WE0jsKTW6FO5Bt4vGebYU5YDmvuyXx+k4U82FfR0BELuT+I+pb
+YiGLRpr3lT83yYODrDf7HMTlUI+eonP8eB6kyGppbfoih/JiR3LcbucD6+ol
+u0RKHjWXa8vXCxUAX9+VzspABTSntZrp/KwA5LbrXv5gvwu1eb8Ri5QpBL+b
+3aeddymi3V4rjV4JhRD5UTtqzYwiignDwvkbi8BFyHE88MNuZOn7ClVdLwJQ
+z677YKyEePsGDLP7i2DnP1yFxiVKiDF1cOKQwSu48P0gu1ZaGbnamHvXpr2C
+Tt7LF/4OVkZ//CvI7b/4CsQzb6rVzSgjbC7KOWtWDEG1F1IOn1RBTXd2rqpM
+LAZTV0O1ZkoFKVRIx2R8LYYZ31Wd7+QINMk/4KutRgJLJFk6+AGB3MgerRwf
+ErYqTa8cfEggE9kvn9uukOCly+j+4xGBWmYdrJaukqDkMvowPJJAHU+/Rxne
+ICGlWGUlKoFAoYMbbvTdIuGe2euutJcECmNsmVkJIeFE0FBY1RsCCbVs5hJK
+IKE4Tt3l7jsCPV50/2/vUxL4coL0Dd8T6OesrJ/VMxLq2xSW3tcTqIY1JR6d
+RMIBKc9zLW0Eqvp05xNvGgmy1Dq9gUECveUsOL/MJOFu0zGxlGECOShPjAvl
+kjAwlLHg+IVAsf4++zXySIjfeDjv6yiBaudStNwLSOCxihSdnCTQiYx11T3F
+JPzrOjKfP0Ug0fuqKb9IEmp9NdsuzxCIYSxlyltKwp20vntzcwRKJa9yGrBI
++FSi5Fy6QKCGRxwC9mwStD/4H7i+RCBI9Zu8SpEQ19+6TXuZQBduc0U/xiTM
+TcnMr6wQqKsqg5tZTsL/ACS6AxI=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$217740#1"]& ]}, {}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{
+     Rational[1, 100000], 0}, {0.00001, 0}],
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 20}, {-0.11999999999999285`, 
+     0.0966900611909013}}, {{0.00001, 20}, {-0.11999999999999285`, 
+     0.0966900611909013}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.752322933818047*^9, 3.7523229371652813`*^9}},
+ CellLabel->
+  "Out[1137]=",ExpressionUUID->"98012434-2e9b-4959-abfa-5b18bb5d06f9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "0"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"myeqs\[Alpha]1", "=", 
+   RowBox[{"Flatten", "[", 
+    RowBox[{
+     RowBox[{"myfR\[Alpha]", "/.", 
+      RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}]}], "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7184374008169537`*^9, 3.718437414236784*^9}, {
+   3.718437494185628*^9, 3.718437593617321*^9}, {3.718437636009316*^9, 
+   3.71843766429198*^9}, {3.718437931714583*^9, 3.71843793617094*^9}, {
+   3.718438765549902*^9, 3.7184387725963507`*^9}, {3.7184434391910257`*^9, 
+   3.718443441853094*^9}, {3.718443484193285*^9, 3.718443506284607*^9}, {
+   3.718559464128769*^9, 3.718559467943961*^9}, {3.719061439821855*^9, 
+   3.719061444562524*^9}, {3.71906354255866*^9, 3.719063542733931*^9}, {
+   3.7192407305489407`*^9, 3.719240773756016*^9}, {3.719240893282688*^9, 
+   3.7192408934660263`*^9}, {3.71924140797748*^9, 3.719241430663768*^9}, {
+   3.719242019927012*^9, 3.719242027238345*^9}, {3.719244451874546*^9, 
+   3.719244513800668*^9}, 3.719244669295821*^9, 3.719245036201807*^9, {
+   3.7192450899673243`*^9, 3.71924509067815*^9}, {3.7192451611104803`*^9, 
+   3.719245179742125*^9}, {3.719245220701231*^9, 3.7192452397742863`*^9}, {
+   3.719245285155002*^9, 3.719245315139111*^9}, {3.719245351619425*^9, 
+   3.7192454071684732`*^9}, 3.719245884210607*^9, {3.719246470222393*^9, 
+   3.71924649000541*^9}, 3.7196470136825733`*^9, {3.719654651525614*^9, 
+   3.7196547367570744`*^9}, {3.719654909446266*^9, 3.719654923283415*^9}, {
+   3.719655105454989*^9, 3.7196551440097113`*^9}, {3.719655197652171*^9, 
+   3.719655238214574*^9}, 3.719655279095626*^9, {3.7196570759512253`*^9, 
+   3.719657118589653*^9}, {3.719657159149605*^9, 3.719657186400576*^9}, {
+   3.719657284361618*^9, 3.719657284495661*^9}, 3.719661833262862*^9, 
+   3.719661889542369*^9, {3.719677158726555*^9, 3.7196771593815804`*^9}, {
+   3.7201508160700693`*^9, 3.720150854549415*^9}, {3.720150953337185*^9, 
+   3.720150988843315*^9}, {3.7201510947662373`*^9, 3.720151096513274*^9}, {
+   3.720180194853396*^9, 3.7201801961733723`*^9}, {3.7204477444491367`*^9, 
+   3.720447752717889*^9}, {3.720447830398622*^9, 3.7204478306706963`*^9}, {
+   3.720448947777711*^9, 3.720448948424841*^9}, {3.72092511238037*^9, 
+   3.72092516120851*^9}, 3.7209252708800373`*^9, {3.721030284430574*^9, 
+   3.7210303345388803`*^9}, {3.721039254318759*^9, 3.721039279957816*^9}, 
+   3.721385814374618*^9, {3.721389955180369*^9, 3.7213899557479877`*^9}, {
+   3.721430198730941*^9, 3.7214301994314737`*^9}, {3.721430482730871*^9, 
+   3.721430503273196*^9}, 3.721430556674695*^9, {3.721434631643511*^9, 
+   3.721434635098914*^9}, {3.7214352358085003`*^9, 3.721435269276092*^9}, {
+   3.721810132521253*^9, 3.72181013302395*^9}, {3.7219916821571827`*^9, 
+   3.721991682266123*^9}, {3.722034810936336*^9, 3.7220348123103523`*^9}, {
+   3.722035439644766*^9, 3.722035439955229*^9}, {3.722035597216983*^9, 
+   3.722035598085511*^9}, {3.722132706385194*^9, 3.722132707495133*^9}, {
+   3.728878929181488*^9, 3.728878939412635*^9}, {3.728879026878384*^9, 
+   3.728879028405472*^9}, {3.728879589344974*^9, 3.7288795954695683`*^9}, {
+   3.728879817167754*^9, 3.728879828861765*^9}, 3.728885944506542*^9, {
+   3.728885992099325*^9, 3.728886004403038*^9}, {3.728886152535172*^9, 
+   3.728886152852853*^9}, {3.728886196734907*^9, 3.728886206004057*^9}, 
+   3.7288865223207483`*^9, {3.728887683896122*^9, 3.728887684110838*^9}, {
+   3.728888632342266*^9, 3.728888632533518*^9}, {3.7288887518958406`*^9, 
+   3.728888752084675*^9}, {3.73114457304851*^9, 3.731144599330369*^9}, 
+   3.731145262602448*^9, {3.731145569164222*^9, 3.731145611783329*^9}, {
+   3.7311456744847717`*^9, 3.7311456766132383`*^9}, {3.731145723447528*^9, 
+   3.7311457685493107`*^9}, {3.731145808786429*^9, 3.73114581084544*^9}, {
+   3.7311461504422483`*^9, 3.7311461568691177`*^9}, 3.7311470371680403`*^9, 
+   3.731147219222896*^9, 3.731150477499794*^9, {3.734343509286057*^9, 
+   3.734343514619609*^9}, 3.734344832001861*^9, 3.734344932168583*^9, {
+   3.734347198308228*^9, 3.7343472281746902`*^9}, {3.734347369628532*^9, 
+   3.734347385569559*^9}, {3.7382217512744827`*^9, 3.738221753034275*^9}, {
+   3.738227265618156*^9, 3.7382272830812607`*^9}, {3.7382283776489487`*^9, 
+   3.738228384563052*^9}, {3.7382285318009872`*^9, 3.738228531960734*^9}, 
+   3.7382438818428497`*^9, {3.738422550408177*^9, 3.7384225505752487`*^9}, {
+   3.738423434397541*^9, 3.7384234344990788`*^9}, 3.738442332473753*^9, 
+   3.746352332399502*^9, 3.752316055027153*^9, 3.7523165847842703`*^9, 
+   3.752322801786593*^9},
+ CellLabel->
+  "In[1071]:=",ExpressionUUID->"000845c3-5a37-4681-ab5c-0f2f68bc5fc9"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"",2,1072,118,29958289580788358471,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.75232281151616*^9},
+ CellLabel->
+  "During evaluation of \
+In[1071]:=",ExpressionUUID->"c4c1933a-3527-4ac3-a9f6-c0ff71208c37"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Rho]c", "=", 
+   RowBox[{"\[Rho]max", " ", "*", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", 
+   RowBox[{"Rationalize", "[", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "5"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pc", "=", 
+   RowBox[{"Rationalize", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"eqEoS", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rfin", "=", "20"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"RicGR", "=", 
+   RowBox[{"-", 
+    RowBox[{"Rationalize", "[", 
+     RowBox[{
+      RowBox[{"8", "\[Pi]", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"T", "/.", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+            RowBox[{"eqEoS", "[", 
+             RowBox[{"[", 
+              RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}]}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ")"}]}], 
+      ",", 
+      RowBox[{"10", "^", 
+       RowBox[{"-", "15"}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"myeqs\[Alpha]1eff", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqs\[Alpha]1", "[", 
+      RowBox[{"[", 
+       RowBox[{"1", ";;", "3"}], "]"}], "]"}], "/.", 
+     RowBox[{
+      RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+      RowBox[{"\[Rho]int", "[", 
+       RowBox[{"p", "[", "r", "]"}], "]"}]}]}], "/.", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+     RowBox[{"Max", "[", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}]}], "]"}]}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"eqsIC", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+     RowBox[{
+      RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"-", "0.12"}], "]"}]}]}], "}"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"eqsfin", "=", 
+   RowBox[{"Flatten", "@", 
+    RowBox[{"Join", "[", 
+     RowBox[{"myeqs\[Alpha]1eff", ",", 
+      RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"test2", "=", 
+   RowBox[{"ShootingNStars", "[", 
+    RowBox[{"eqsfin", ",", 
+     RowBox[{"{", 
+      RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+     RowBox[{"{", 
+      RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "R"}], "}"}], ",", "4", 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"11", "/", "10"}], "RicGR"}], "}"}], ",", 
+     RowBox[{"\"\<Verbose\>\"", "\[Rule]", "False"}], ",", 
+     RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.752316417676708*^9, 3.752316426521112*^9}, {
+   3.752316471868669*^9, 3.752316539977414*^9}, {3.752316623768167*^9, 
+   3.752316623893949*^9}, 3.752316688281028*^9, {3.752316828486504*^9, 
+   3.752316914306848*^9}, {3.7523220572176113`*^9, 3.752322150343884*^9}, {
+   3.752322200594215*^9, 3.752322376396759*^9}, {3.752322410901619*^9, 
+   3.7523226147538967`*^9}, {3.752322729440486*^9, 3.752322741026124*^9}, {
+   3.752322837934659*^9, 3.75232285918787*^9}},
+ CellLabel->
+  "In[1100]:=",ExpressionUUID->"7a4c75b1-a500-48f7-8f9d-7677486e97e9"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Obtain fR-TOV from code", "Subsection",
+ CellChangeTimes->{{3.7682850519224443`*^9, 3.768285057860832*^9}, 
+   3.768299231043499*^9},ExpressionUUID->"6f910e98-8e5a-4cff-8531-\
+0cd338303264"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"Exp", "[", 
+        RowBox[{"2", " ", 
+         RowBox[{"w", "[", "r", "]"}]}], "]"}]}], ",", "0", ",", "0", ",", 
+      "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], ",", "0", ",", "0"}], 
+     "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", 
+      SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{
+       SuperscriptBox["r", "2"], 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+   "}"}]}]}], "Input",
+ CellChangeTimes->{{3.768285088019587*^9, 3.76828514139717*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"39a1305b-9c3c-4003-b891-e37ffbd9237d"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, 3.768299003225932*^9},
+ CellLabel->"Out[7]=",ExpressionUUID->"200f362b-1e3f-4c1e-bd3e-9914201e86f2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, 3.768299003243552*^9},
+ CellLabel->"Out[8]=",ExpressionUUID->"2e7c807e-fc17-44b6-a68b-f31cae91db24"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FRTOV", "[", 
+  RowBox[{"xx", ",", "g", ",", 
+   RowBox[{"R", "+", 
+    RowBox[{"\[Alpha]", " ", 
+     RowBox[{"R", "^", "2"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "R"}], "}"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.768295541811054*^9, 3.768295557043367*^9}, {
+   3.768295690634953*^9, 3.768295692311075*^9}, 3.768295867172076*^9, {
+   3.768298091622168*^9, 3.768298092737364*^9}, {3.768298135401189*^9, 
+   3.768298239087604*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"6f75d8ab-6d6d-4563-931c-f37a952ae3dd"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,R}\"\>"], \
+"Print",
+ CellChangeTimes->{{3.768295857251902*^9, 3.768295876160945*^9}, 
+   3.768297664634157*^9, 3.768297944815351*^9, {3.768298083402684*^9, 
+   3.7682980929588213`*^9}, {3.768298140324999*^9, 3.768298239445652*^9}, 
+   3.7682990040210543`*^9},
+ CellLabel->
+  "During evaluation of \
+In[9]:=",ExpressionUUID->"ec4ad459-1506-44fd-9726-ae8c6220d5c4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"2", "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "-", 
+       RowBox[{"4", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "+", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "\[Alpha]",
+         " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        SuperscriptBox[
+         RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+       RowBox[{"16", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+        SuperscriptBox["r", "2"], " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+       RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], "/", 
+     RowBox[{"(", 
+      RowBox[{"4", " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{"1", "+", 
+         RowBox[{"2", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], ")"}]}]}],
+    ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"16", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "\[Alpha]", 
+       " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+         RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]"}]], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"24", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+        " ", 
+        RowBox[{"p", "[", "r", "]"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "-", 
+       RowBox[{"8", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+        " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+       RowBox[{"12", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "-", 
+       RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.768295558994957*^9, 3.768295694265603*^9, {3.768295858686186*^9, 
+   3.7682958775692463`*^9}, 3.7682976697382603`*^9, 3.7682979464073257`*^9, {
+   3.768298084893654*^9, 3.768298094439645*^9}, {3.76829814182952*^9, 
+   3.7682982409852867`*^9}, 3.768299005434057*^9},
+ CellLabel->"Out[9]=",ExpressionUUID->"cdc22c97-9681-4515-8468-79dc56a1f51c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"A", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"B", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"A", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}], 
+    ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", 
+      RowBox[{"B", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", 
+      SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{
+       SuperscriptBox["r", "2"], 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+   "}"}]}]}], "Input",
+ CellChangeTimes->{{3.768285088019587*^9, 3.76828514139717*^9}, {
+  3.768299019655505*^9, 3.768299024441648*^9}, {3.768299151874316*^9, 
+  3.768299154058935*^9}},
+ CellLabel->"In[28]:=",ExpressionUUID->"3220344c-386b-45c8-8eeb-6cae7918c981"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"A", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"B", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, {3.768299003225932*^9, 3.768299024849921*^9}, 
+   3.768299092265901*^9, 3.768299154447371*^9, 3.768299216554188*^9},
+ CellLabel->"Out[29]=",ExpressionUUID->"72c45421-b0e4-42ba-94b6-01a408623347"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"A", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{"B", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, {3.768299003225932*^9, 3.768299024849921*^9}, 
+   3.768299092265901*^9, 3.768299154447371*^9, 3.768299216567442*^9},
+ CellLabel->"Out[30]=",ExpressionUUID->"7d06453a-23ad-4c2c-b520-cac994274924"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FRTOV", "[", 
+  RowBox[{"xx", ",", "g", ",", 
+   RowBox[{"R", "+", 
+    RowBox[{"\[Alpha]", " ", 
+     RowBox[{"R", "^", "2"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "A", ",", "B", ",", "R"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.768295541811054*^9, 3.768295557043367*^9}, {
+   3.768295690634953*^9, 3.768295692311075*^9}, 3.768295867172076*^9, {
+   3.768298091622168*^9, 3.768298092737364*^9}, {3.768298135401189*^9, 
+   3.768298239087604*^9}, {3.76829921776165*^9, 3.7682992194208384`*^9}},
+ CellLabel->"In[31]:=",ExpressionUUID->"7c59a559-6f9e-4f45-97d2-97ab9d920764"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,R}\"\>"], \
+"Print",
+ CellChangeTimes->{3.768299028540134*^9, 3.768299093745099*^9, 
+  3.768299155725893*^9, 3.768299219802853*^9},
+ CellLabel->
+  "During evaluation of \
+In[31]:=",ExpressionUUID->"01baac31-0ab1-47b1-b04d-503655c8d4c9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "+", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["A", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"A", "[", "r", "]"}]}]]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["B", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"B", "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"B", "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "2"}], "-", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["A", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"A", "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"B", "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{"A", "[", "r", "]"}], " ", 
+       RowBox[{"B", "[", "r", "]"}]}]], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"24", " ", "\[Pi]", " ", "r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"p", "[", "r", "]"}]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "-", 
+       RowBox[{"8", " ", "\[Pi]", " ", "r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+       RowBox[{"12", " ", "\[Alpha]", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        RowBox[{"B", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "-", 
+       RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{"B", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["A", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["B", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.768299029811517*^9, 3.768299094588909*^9, 
+  3.7682991568102427`*^9, 3.768299220917178*^9},
+ CellLabel->"Out[31]=",ExpressionUUID->"09758b57-bf44-4bd4-8caa-e5d2569206bf"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Obtain ST-TOV from code", "Subsection",
+ CellChangeTimes->{{3.7682850519224443`*^9, 3.768285057860832*^9}, {
+  3.768299231043499*^9, 
+  3.768299239700047*^9}},ExpressionUUID->"acb36565-8a4d-45f1-8e3a-\
+868962edbb71"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"w", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"Exp", "[", 
+        RowBox[{"2", " ", 
+         RowBox[{"w", "[", "r", "]"}]}], "]"}]}], ",", "0", ",", "0", ",", 
+      "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], ",", "0", ",", "0"}], 
+     "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", 
+      SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{
+       SuperscriptBox["r", "2"], 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+   "}"}]}]}], "Input",
+ CellChangeTimes->{{3.768285088019587*^9, 3.76828514139717*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"ed250cc0-b85e-439f-9d2f-cb595bed4e72"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"w", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, 3.768299003225932*^9, 3.7707845507048817`*^9, {
+   3.7707856636408157`*^9, 3.770785683753909*^9}, 3.770785716766613*^9, 
+   3.770787584741604*^9},
+ CellLabel->"Out[3]=",ExpressionUUID->"3f269e24-078a-4041-845f-7d6259a932cc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, 3.768299003225932*^9, 3.7707845507048817`*^9, {
+   3.7707856636408157`*^9, 3.770785683753909*^9}, 3.770785716766613*^9, 
+   3.7707875847526617`*^9},
+ CellLabel->"Out[4]=",ExpressionUUID->"3f488d16-913d-411c-a59c-525bd7d5cf66"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"freqs", "=", 
+  RowBox[{"FRTOV", "[", 
+   RowBox[{"xx", ",", "g", ",", 
+    RowBox[{"R", "+", 
+     RowBox[{"\[Alpha]", " ", 
+      RowBox[{"R", "^", "2"}]}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "R"}], "}"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.768295541811054*^9, 3.768295557043367*^9}, {
+   3.768295690634953*^9, 3.768295692311075*^9}, 3.768295867172076*^9, {
+   3.768298091622168*^9, 3.768298092737364*^9}, {3.768298135401189*^9, 
+   3.768298239087604*^9}, {3.770784558053154*^9, 3.77078459639233*^9}},
+ CellLabel->"In[5]:=",ExpressionUUID->"f82b9185-8d63-4912-bf33-9363108d9b7d"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,R}\"\>"], \
+"Print",
+ CellChangeTimes->{{3.768295857251902*^9, 3.768295876160945*^9}, 
+   3.768297664634157*^9, 3.768297944815351*^9, {3.768298083402684*^9, 
+   3.7682980929588213`*^9}, {3.768298140324999*^9, 3.768298239445652*^9}, 
+   3.7682990040210543`*^9, {3.770784552484449*^9, 3.770784596936514*^9}, 
+   3.77078568511793*^9, 3.770785719451124*^9, 3.770787584999815*^9},
+ CellLabel->
+  "During evaluation of \
+In[5]:=",ExpressionUUID->"ed650e5b-f34f-45fa-b428-ca4f4923aba0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{"2", "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], "-", 
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "\[Alpha]", 
+       " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"16", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+      RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"16", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", "\[Alpha]", 
+       " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       SuperscriptBox[
+        RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", 
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "-", 
+         RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"24", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"R", "[", "r", "]"}]}], "-", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+      RowBox[{"12", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["R", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"6", " ", "r", " ", "\[Alpha]"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.768295558994957*^9, 3.768295694265603*^9, {3.768295858686186*^9, 
+   3.7682958775692463`*^9}, 3.7682976697382603`*^9, 3.7682979464073257`*^9, {
+   3.768298084893654*^9, 3.768298094439645*^9}, {3.76829814182952*^9, 
+   3.7682982409852867`*^9}, 3.768299005434057*^9, {3.770784554198699*^9, 
+   3.770784598449939*^9}, 3.7707856854557447`*^9, 3.7707857210993233`*^9, 
+   3.77078758857267*^9},
+ CellLabel->"Out[5]=",ExpressionUUID->"1ae61d2f-2290-411c-83a5-e40cc8ad49e4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Limit", "[", 
+    RowBox[{
+     RowBox[{"#", "[", 
+      RowBox[{"[", "2", "]"}], "]"}], ",", 
+     RowBox[{"\[Alpha]", "\[Rule]", "\[Infinity]"}]}], "]"}], "&"}], "/@", 
+  "freqs"}]], "Input",
+ CellChangeTimes->{{3.7707845998847227`*^9, 3.770784622195218*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"14328f2e-de99-480e-b189-d8c5578df382"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "+", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+     RowBox[{"4", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+    RowBox[{
+     RowBox[{"8", " ", "r", " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}]], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "-", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"R", "[", "r", "]"}], "2"]}], "-", 
+     RowBox[{"8", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], 
+    RowBox[{
+     RowBox[{"8", " ", "r", " ", 
+      RowBox[{"R", "[", "r", "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}]], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["R", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       RowBox[{"r", " ", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{
+         SuperscriptBox["\[Lambda]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], "r"]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.770784615186405*^9, 3.77078462265432*^9}, 
+   3.7707857250197563`*^9, 3.770787592423575*^9},
+ CellLabel->"Out[6]=",ExpressionUUID->"89a336e8-a84d-4aa4-961d-983f4eeb3584"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"V\[Phi]", "=", 
+  RowBox[{"fR2Pot", "[", 
+   RowBox[{
+    RowBox[{"R", " ", "+", " ", 
+     RowBox[{"\[Alpha]", " ", 
+      RowBox[{"R", "^", "2"}]}]}], ",", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"2", "/", 
+       RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.770785568852067*^9, 3.770785626583042*^9}, {
+  3.7707867819521923`*^9, 3.770786789809836*^9}},
+ CellLabel->
+  "In[118]:=",ExpressionUUID->"9f14f43a-d2a4-4bab-96f5-021eec6ecc82"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"4", " ", "\[CurlyPhi]"}], 
+      SqrtBox["3"]]}]], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      SuperscriptBox["\[ExponentialE]", 
+       FractionBox[
+        RowBox[{"2", " ", "\[CurlyPhi]"}], 
+        SqrtBox["3"]]]}], ")"}], "2"]}], 
+  RowBox[{"4", " ", "\[Alpha]"}]]], "Output",
+ CellChangeTimes->{3.770785591569665*^9, 3.770785627073238*^9, 
+  3.7707857262727957`*^9, 3.7707867904542923`*^9, 3.770787593292492*^9, 
+  3.770788968779126*^9},
+ CellLabel->
+  "Out[118]=",ExpressionUUID->"e7a2517c-53fe-46d9-8be9-ee4055cf08a3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"stefeqs", "=", 
+  RowBox[{"STTOV", "[", 
+   RowBox[{"xx", ",", "g", ",", 
+    RowBox[{"{", 
+     RowBox[{"V\[Phi]", ",", "\[CurlyPhi]"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "\[CurlyPhi]"}], "}"}], 
+    ",", "0", ",", 
+    RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.770786730865313*^9, 3.770786759950601*^9}, {
+  3.770786794198295*^9, 3.770786800372036*^9}, {3.770787111659828*^9, 
+  3.77078711503932*^9}, {3.770787604411398*^9, 3.770787604671402*^9}, {
+  3.770788662072957*^9, 3.7707886622454367`*^9}, {3.770788795185629*^9, 
+  3.77078879656433*^9}},
+ CellLabel->
+  "In[119]:=",ExpressionUUID->"60e5da00-ce01-4000-8baa-4832f19d9a2a"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
+\"\>"], "Print",
+ CellChangeTimes->{
+  3.770787165570162*^9, 3.7707871976530943`*^9, {3.770787242478128*^9, 
+   3.770787273337467*^9}, {3.7707874041727858`*^9, 3.7707874094256353`*^9}, {
+   3.7707875952290287`*^9, 3.770787605265813*^9}, {3.7707876488084517`*^9, 
+   3.770787653608203*^9}, 3.770788797222282*^9, 3.770788916502063*^9, 
+   3.770788969566856*^9},
+ CellLabel->
+  "During evaluation of \
+In[119]:=",ExpressionUUID->"09a1cb61-3bda-425c-8656-c2842de490ed"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "3"]}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "+", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", 
+        RowBox[{
+         SuperscriptBox["w", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "-", 
+       RowBox[{
+        SqrtBox["3"], " ", 
+        RowBox[{
+         SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"16", " ", "r", " ", "\[Alpha]"}]], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        SuperscriptBox["r", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+          FractionBox[
+           RowBox[{"4", " ", 
+            RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+           SqrtBox["3"]]}]], " ", 
+        SuperscriptBox["r", "2"]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+          FractionBox[
+           RowBox[{"2", " ", 
+            RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+           SqrtBox["3"]]}]], " ", 
+        SuperscriptBox["r", "2"]}], "+", 
+       RowBox[{"8", " ", "\[Alpha]"}], "-", 
+       RowBox[{"8", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Alpha]"}], "+", 
+       RowBox[{"64", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+          FractionBox[
+           RowBox[{"4", " ", 
+            RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+           SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+       RowBox[{"8", " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        SuperscriptBox[
+         RowBox[{
+          SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], "2"]}]}], ")"}]}]}], 
+   ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "r", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", 
+         SuperscriptBox["r", "2"]]}], "+", 
+       FractionBox[
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], 
+        SuperscriptBox["r", "2"]], "-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", "1"}], "+", 
+              SuperscriptBox["\[ExponentialE]", 
+               FractionBox[
+                RowBox[{"2", " ", 
+                 RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+                SqrtBox["3"]]]}], ")"}], "2"], "-", 
+           RowBox[{"64", " ", "\[Pi]", " ", "\[Alpha]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"8", " ", "\[Alpha]"}]], "+", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[CurlyPhi]", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{"-", 
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{"12", " ", "r", " ", "\[Alpha]"}]], 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{"4", " ", 
+           RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+          SqrtBox["3"]]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SqrtBox["3"], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r"}], "-", 
+         RowBox[{
+          SqrtBox["3"], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+            FractionBox[
+             RowBox[{"2", " ", 
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+             SqrtBox["3"]]}]], " ", "r"}], "-", 
+         RowBox[{"48", " ", 
+          SqrtBox["3"], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", "\[Alpha]", " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "+", 
+         RowBox[{"16", " ", 
+          SqrtBox["3"], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", "\[Alpha]", " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+         RowBox[{"24", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"12", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{"12", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.770787205090067*^9, {3.770787242652273*^9, 3.7707872754639177`*^9}, {
+   3.770787405882839*^9, 3.770787410190587*^9}, {3.770787595364719*^9, 
+   3.770787605391136*^9}, {3.7707876489053307`*^9, 3.770787656648938*^9}, 
+   3.770788798764511*^9, 3.7707889179515553`*^9, 3.770788972693262*^9},
+ CellLabel->
+  "Out[119]=",ExpressionUUID->"9bbdc768-540b-4e27-bd3a-ad5051494c82"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"stefeqsinf", "=", 
+  RowBox[{"Simplify", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Limit", "[", 
+      RowBox[{
+       RowBox[{"#", "[", 
+        RowBox[{"[", "2", "]"}], "]"}], ",", 
+       RowBox[{"\[Alpha]", "\[Rule]", "\[Infinity]"}]}], "]"}], "&"}], "/@", 
+    "stefeqs"}], "]"}]}]], "Input",
+ CellChangeTimes->{
+  3.770788597132884*^9, {3.770789042818416*^9, 3.7707890566871433`*^9}, 
+   3.770800861095138*^9, {3.7708012664982986`*^9, 3.77080126842803*^9}},
+ CellLabel->
+  "In[140]:=",ExpressionUUID->"9407896f-3d5d-46d8-9e27-1a0066ec67ce"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox["1", "3"]}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"p", "[", "r", "]"}], "+", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"3", " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{
+       SqrtBox["3"], " ", 
+       RowBox[{
+        SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], ",", 
+   FractionBox[
+    RowBox[{"1", "-", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+        FractionBox[
+         RowBox[{"4", " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+         SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"]}]}], 
+    RowBox[{"2", " ", "r"}]], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+        FractionBox[
+         RowBox[{"4", " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+         SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], "2"]}]}], 
+    RowBox[{"2", " ", "r"}]], ",", 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SqrtBox["3"], " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+       FractionBox[
+        RowBox[{"4", " ", 
+         RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+        SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+     RowBox[{"p", "[", "r", "]"}]}], "-", 
+    FractionBox[
+     RowBox[{"4", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}], "-", 
+        FractionBox[
+         RowBox[{"4", " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+         SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], 
+     SqrtBox["3"]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "r"]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.7707885978274*^9, 3.770788803320601*^9, 3.7707889939507923`*^9, {
+   3.7707890435564404`*^9, 3.77078905731339*^9}, 3.770800862034033*^9, 
+   3.770801269042932*^9},
+ CellLabel->
+  "Out[140]=",ExpressionUUID->"ee5a9300-9978-4333-992e-0785a744d3a5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"stefeqsinf", "[", 
+    RowBox[{"[", "2", "]"}], "]"}], "/.", 
+   RowBox[{
+    RowBox[{"\[Lambda]", "[", "r", "]"}], "\[Rule]", "0"}]}], "/.", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[CurlyPhi]", "'"}], "[", "r", "]"}], "\[Rule]", 
+   "0"}]}]], "Input",
+ CellChangeTimes->{{3.770801249721676*^9, 3.770801289559101*^9}},
+ CellLabel->
+  "In[143]:=",ExpressionUUID->"8daa37b5-8585-4039-96f4-18e81fd9c9b2"],
+
+Cell[BoxData[
+ RowBox[{"4", " ", 
+  SuperscriptBox["\[ExponentialE]", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"4", " ", 
+      RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+     SqrtBox["3"]]}]], " ", "\[Pi]", " ", "r", " ", 
+  RowBox[{"\[Rho]", "[", "r", "]"}]}]], "Output",
+ CellChangeTimes->{{3.770801253036275*^9, 3.770801290008567*^9}},
+ CellLabel->
+  "Out[143]=",ExpressionUUID->"cf0ba0e7-9870-4dd4-bbde-771ded2c2dd1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"V\[Phi]", "=", 
+  RowBox[{"fR2Pot", "[", 
+   RowBox[{"R", " ", "+", " ", 
+    RowBox[{"\[Alpha]", " ", 
+     RowBox[{"R", "^", "2"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.770785568852067*^9, 3.770785626583042*^9}, {
+  3.7707867819521923`*^9, 3.770786789809836*^9}, {3.770787779701495*^9, 
+  3.770787779935049*^9}},
+ CellLabel->
+  "In[144]:=",ExpressionUUID->"2d835e2a-ec41-4731-a860-6044b4c073db"],
+
+Cell[BoxData[
+ FractionBox[
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}], "2"], 
+  RowBox[{"4", " ", "\[Alpha]"}]]], "Output",
+ CellChangeTimes->{3.770785591569665*^9, 3.770785627073238*^9, 
+  3.7707857262727957`*^9, 3.7707867904542923`*^9, 3.770787593292492*^9, 
+  3.770787780289359*^9, 3.770788804399002*^9, 3.770788996021659*^9, 
+  3.7708013211562843`*^9},
+ CellLabel->
+  "Out[144]=",ExpressionUUID->"a4d9145a-518d-459e-974c-dbaf18d54a2d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"Exp", "[", 
+    RowBox[{"1", "+", "x"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7708016070399523`*^9, 3.7708016206621437`*^9}},
+ CellLabel->
+  "In[146]:=",ExpressionUUID->"460e4006-5bf2-42c6-8a98-379ad925d916"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\[ExponentialE]", "+", 
+   RowBox[{"\[ExponentialE]", " ", "x"}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "x", "]"}], "2"],
+    SeriesData[$CellContext`x, 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`x, 0, {E, E}, 0, 2, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{3.770801621082106*^9},
+ CellLabel->
+  "Out[146]=",ExpressionUUID->"bcdf6864-e93b-4248-9374-5bf44ac79672"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"stjfeqs", "=", 
+  RowBox[{"STTOV", "[", 
+   RowBox[{"xx", ",", "g", ",", 
+    RowBox[{"{", 
+     RowBox[{"V\[Phi]", ",", "\[Phi]"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "\[Phi]"}], "}"}], ",", 
+    "0", ",", 
+    RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Jordan\>\""}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.770786730865313*^9, 3.770786759950601*^9}, {
+  3.770786794198295*^9, 3.770786800372036*^9}, {3.770787111659828*^9, 
+  3.77078711503932*^9}, {3.770787604411398*^9, 3.770787604671402*^9}, {
+  3.7707877682917547`*^9, 3.770787798297249*^9}, {3.77078865940014*^9, 
+  3.7707886595905123`*^9}, {3.770788808791518*^9, 3.770788809882248*^9}},
+ CellLabel->
+  "In[145]:=",ExpressionUUID->"d21b1b91-3e2b-4f3e-a94f-ef0d7770d768"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
+\"\>"], "Print",
+ CellChangeTimes->{3.770788810282905*^9, 3.770788997219784*^9, 
+  3.770801321969537*^9},
+ CellLabel->
+  "During evaluation of \
+In[145]:=",ExpressionUUID->"6bd38537-d7fc-4627-a511-6bc9408b2746"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "+", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+     RowBox[{
+      SuperscriptBox["w", "\[Prime]",
+       MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Lambda]", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"64", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+       SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+      RowBox[{"8", " ", "\[Alpha]", " ", 
+       RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["r", "2"], "+", 
+         RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", 
+       RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+       SuperscriptBox["r", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"\[Phi]", "[", "r", "]"}], "2"]}], "+", 
+      RowBox[{"16", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["r", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], "+", 
+         RowBox[{"8", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+     RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["\[Phi]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "64"}], " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+        SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+        RowBox[{"p", "[", "r", "]"}]}], "+", 
+       RowBox[{"8", " ", "\[Alpha]", " ", 
+        RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["r", "2"], "+", 
+          RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", 
+        RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+        SuperscriptBox["r", "2"], " ", 
+        SuperscriptBox[
+         RowBox[{"\[Phi]", "[", "r", "]"}], "2"]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r"}], "+", 
+          RowBox[{"16", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["\[Phi]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+      RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+         RowBox[{"r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], ",", 
+   
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], " ", "r"}], "+", 
+      RowBox[{"48", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ",
+        "\[Alpha]", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "-", 
+      RowBox[{"16", " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", " ",
+        "\[Alpha]", " ", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+      RowBox[{"12", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "-", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], "+", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{
+        SuperscriptBox["\[Lambda]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}], " ", 
+       RowBox[{
+        SuperscriptBox["\[Phi]", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], 
+     RowBox[{"6", " ", "r", " ", "\[Alpha]"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.770787772156838*^9, 3.770787800540003*^9}, 
+   3.77078786215344*^9, 3.7707879904234457`*^9, 3.770788138351273*^9, 
+   3.770788383925104*^9, 3.770788540703245*^9, {3.770788805213984*^9, 
+   3.770788812402109*^9}, 3.770788999191641*^9, 3.7708013238675613`*^9},
+ CellLabel->
+  "Out[145]=",ExpressionUUID->"d9f975d3-3e67-4cac-b9bf-c21cc6f49d4d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Limit", "[", 
+     RowBox[{
+      RowBox[{"#", "[", 
+       RowBox[{"[", "2", "]"}], "]"}], ",", 
+      RowBox[{"\[Alpha]", "\[Rule]", "\[Infinity]"}]}], "]"}], "&"}], "/@", 
+   "stjfeqs"}], "]"}]], "Input",
+ CellChangeTimes->{
+  3.770788597132884*^9, 3.770788627687707*^9, {3.770789019752859*^9, 
+   3.770789032066495*^9}, {3.770789065449037*^9, 3.770789072800193*^9}, 
+   3.770800779563178*^9},
+ CellLabel->
+  "In[136]:=",ExpressionUUID->"79fc9ff6-f6c7-4aa7-bedd-7a75618d2fc4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "+", 
+       RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+    RowBox[{
+     SuperscriptBox["w", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}]}], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+     RowBox[{"\[Phi]", "[", "r", "]"}], "-", 
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+      RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], 
+    RowBox[{
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}]], ",", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"8", " ", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+      SuperscriptBox["r", "2"], " ", 
+      RowBox[{"p", "[", "r", "]"}]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"2", " ", 
+          RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], ")"}], " ", 
+      RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}]}], 
+    RowBox[{"r", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{
+         SuperscriptBox["\[Phi]", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], ",", 
+   RowBox[{
+    RowBox[{"8", " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+     RowBox[{"p", "[", "r", "]"}]}], "-", 
+    RowBox[{
+     FractionBox["8", "3"], " ", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+     RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["w", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", 
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}]}], "r"]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.770788628251233*^9, 3.770788825060697*^9, {3.770788999393794*^9, 
+   3.770789032550929*^9}, {3.7707890660733643`*^9, 3.770789073211926*^9}, 
+   3.770800780077487*^9},
+ CellLabel->
+  "Out[136]=",ExpressionUUID->"242bade0-156f-45fe-9e70-320e2b7b8885"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"xx", "=", 
+   RowBox[{"{", 
+    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"$Assumptions", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"A", "[", "r", "]"}], "\[Element]", "Reals"}], " ", "&&", " ", 
+   RowBox[{
+    RowBox[{"B", "[", "r", "]"}], "\[Element]", 
+    "Reals"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"A", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}], 
+    ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", 
+      RowBox[{"B", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", 
+      SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{
+       SuperscriptBox["r", "2"], 
+       SuperscriptBox[
+        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+   "}"}]}]}], "Input",
+ CellChangeTimes->{{3.768285088019587*^9, 3.76828514139717*^9}, {
+  3.768299019655505*^9, 3.768299024441648*^9}, {3.768299151874316*^9, 
+  3.768299154058935*^9}},
+ CellLabel->"In[28]:=",ExpressionUUID->"d6c9a8cc-dfba-4381-8ee0-3c6ff1a3dd38"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"A", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}], "&&", 
+  RowBox[{
+   RowBox[{"B", "[", "r", "]"}], "\[Element]", 
+   TemplateBox[{},
+    "Reals"]}]}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, {3.768299003225932*^9, 3.768299024849921*^9}, 
+   3.768299092265901*^9, 3.768299154447371*^9, 3.768299216554188*^9},
+ CellLabel->"Out[29]=",ExpressionUUID->"f55ea615-53c1-4b4c-b5eb-479fc0450859"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"A", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     RowBox[{"B", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.768285121957183*^9, 3.768285142338256*^9}, 
+   3.768292190009091*^9, {3.768299003225932*^9, 3.768299024849921*^9}, 
+   3.768299092265901*^9, 3.768299154447371*^9, 3.768299216567442*^9},
+ CellLabel->"Out[30]=",ExpressionUUID->"68de234c-429f-418c-aea9-75db7b49b75f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FRTOV", "[", 
+  RowBox[{"xx", ",", "g", ",", 
+   RowBox[{"R", "+", 
+    RowBox[{"\[Alpha]", " ", 
+     RowBox[{"R", "^", "2"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "A", ",", "B", ",", "R"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.768295541811054*^9, 3.768295557043367*^9}, {
+   3.768295690634953*^9, 3.768295692311075*^9}, 3.768295867172076*^9, {
+   3.768298091622168*^9, 3.768298092737364*^9}, {3.768298135401189*^9, 
+   3.768298239087604*^9}, {3.76829921776165*^9, 3.7682992194208384`*^9}},
+ CellLabel->"In[31]:=",ExpressionUUID->"810873ee-3118-4cf9-990e-71c758f19903"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,R}\"\>"], \
+"Print",
+ CellChangeTimes->{3.768299028540134*^9, 3.768299093745099*^9, 
+  3.768299155725893*^9, 3.768299219802853*^9},
+ CellLabel->
+  "During evaluation of \
+In[31]:=",ExpressionUUID->"6a9843f4-36f7-475a-8c54-1b44b1a024f9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["p", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "+", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["A", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"A", "[", "r", "]"}]}]]}]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["B", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"B", "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"B", "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "2"}], "-", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["A", "\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"A", "[", "r", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"B", "[", "r", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       ")"}]}], 
+     RowBox[{"2", " ", "r", " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", 
+        RowBox[{"2", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "+", 
+        RowBox[{"r", " ", "\[Alpha]", " ", 
+         RowBox[{
+          SuperscriptBox["R", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["R", "\[Prime]\[Prime]",
+      MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+       RowBox[{"A", "[", "r", "]"}], " ", 
+       RowBox[{"B", "[", "r", "]"}]}]], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"24", " ", "\[Pi]", " ", "r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"p", "[", "r", "]"}]}], "+", 
+       RowBox[{"r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"R", "[", "r", "]"}]}], "-", 
+       RowBox[{"8", " ", "\[Pi]", " ", "r", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        SuperscriptBox[
+         RowBox[{"B", "[", "r", "]"}], "2"], " ", 
+        RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+       RowBox[{"12", " ", "\[Alpha]", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        RowBox[{"B", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "-", 
+       RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{"B", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["A", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}], "+", 
+       RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+        RowBox[{"A", "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["B", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.768299029811517*^9, 3.768299094588909*^9, 
+  3.7682991568102427`*^9, 3.768299220917178*^9},
+ CellLabel->"Out[31]=",ExpressionUUID->"e535d70b-e452-48a5-9a55-5f44e3f4180f"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+},
+AutoGeneratedPackage->Automatic,
+WindowSize->{Full, Full},
+WindowMargins->{{Automatic, 411}, {-29, Automatic}},
+FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{
+ "Info583768292796-1566858"->{
+  Cell[978319, 24348, 344, 6, 69, "Print",ExpressionUUID->"1e8981a4-b242-4305-a785-013e3ec45a07",
+   CellTags->"Info583768292796-1566858"]}
+ }
+*)
+(*CellTagsIndex
+CellTagsIndex->{
+ {"Info583768292796-1566858", 1719171, 40564}
+ }
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[580, 22, 178, 3, 98, "Title",ExpressionUUID->"412e446d-949d-4a39-ab8f-2e74aab963be"],
+Cell[761, 27, 214, 3, 45, "Subtitle",ExpressionUUID->"03c7a68d-9296-477d-858e-f28f41a96ef7"],
+Cell[978, 32, 325, 6, 31, "Subsubtitle",ExpressionUUID->"1dd49449-a8ac-466f-9155-195dee63ff9f"],
+Cell[CellGroupData[{
+Cell[1328, 42, 339, 5, 32, "Item",ExpressionUUID->"5790c103-deb7-4616-bb6c-3201fb52dcfe"],
+Cell[1670, 49, 304, 5, 32, "Item",ExpressionUUID->"44de3030-71f6-405b-999e-75aa76f5f611"],
+Cell[1977, 56, 231, 4, 32, "Item",ExpressionUUID->"f9419d5d-d441-4601-b5f7-a8f1d5919af9"]
+}, Open  ]],
+Cell[2223, 63, 178, 2, 35, "Text",ExpressionUUID->"9611da95-c63f-4174-ad5e-d05a8caf1d44"],
+Cell[2404, 67, 217, 4, 35, "Text",ExpressionUUID->"d61a9f74-a8b4-4661-9a96-0aec3ba57e56"],
+Cell[CellGroupData[{
+Cell[2646, 75, 308, 5, 31, "Subsubtitle",ExpressionUUID->"7485f0c1-9446-4d71-bc0d-dc62c290ca04"],
+Cell[CellGroupData[{
+Cell[2979, 84, 417, 8, 32, "Item",ExpressionUUID->"f364ad21-6a79-461f-82fd-266664ee0eaf"],
+Cell[3399, 94, 446, 9, 32, "Item",ExpressionUUID->"f7c3d670-7f49-4cad-8b0c-e1d6554e2404"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[3894, 109, 380, 6, 31, "Subsubtitle",ExpressionUUID->"d6086976-b2f7-4c24-9bad-2785b986bc0f"],
+Cell[4277, 117, 564, 10, 32, "Item",ExpressionUUID->"923f22e3-6a74-48ed-910c-a2cf0077f928"],
+Cell[4844, 129, 196, 3, 30, "Input",ExpressionUUID->"556b9938-0d87-43c7-9c74-092950e517a4"],
+Cell[CellGroupData[{
+Cell[5065, 136, 158, 3, 67, "Section",ExpressionUUID->"d1f4fc7b-0fc3-4dfa-87e1-5cab3334f1ef"],
+Cell[5226, 141, 697, 13, 91, "Code",ExpressionUUID->"73646baf-e1d8-48be-b891-b1d31c1d0092"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[5960, 159, 156, 3, 67, "Section",ExpressionUUID->"62bc7e4c-e5f8-44b8-8aaf-b650c91c7ebe"],
+Cell[6119, 164, 571, 14, 72, "Code",ExpressionUUID->"9454ca91-4990-42d1-a52b-e9f7ea7c4763"],
+Cell[6693, 180, 2593, 58, 205, "Code",ExpressionUUID->"7d90f080-84f2-4094-b473-738b2b7cd239"],
+Cell[9289, 240, 1912, 44, 167, "Code",ExpressionUUID->"82584a06-f2ae-482e-8ccd-35105c0ab1d3"],
+Cell[11204, 286, 3285, 73, 243, "Code",ExpressionUUID->"1315b459-a688-49d3-a2a3-f7299b9bb0d8"],
+Cell[14492, 361, 2640, 69, 300, "Code",ExpressionUUID->"520e0231-cf67-4615-b6d3-aa9e39113b53"],
+Cell[17135, 432, 844, 17, 72, "Code",ExpressionUUID->"d972da8c-a6b7-43c1-84fb-64ef450f9578"],
+Cell[17982, 451, 503, 13, 72, "Code",ExpressionUUID->"6ddfba02-94cc-4966-9292-4bbe0118b6b0"],
+Cell[18488, 466, 777, 19, 91, "Code",ExpressionUUID->"4bab27d3-7c5c-459f-a370-3f3c92b37de2"],
+Cell[19268, 487, 1226, 25, 110, "Code",ExpressionUUID->"d9d11a3a-5579-4cf1-92f4-5b6dcdb004da"],
+Cell[20497, 514, 174, 4, 52, "Code",ExpressionUUID->"ee552dc2-de40-46d1-94d7-658affe7b6fa"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[20708, 523, 239, 4, 67, "Section",ExpressionUUID->"05ea9761-368f-4d05-b1d3-336913441ec9"],
+Cell[20950, 529, 617, 14, 30, "Input",ExpressionUUID->"2071ebcb-965b-4656-95d6-762b9c1b4191"],
+Cell[21570, 545, 1762, 50, 129, "Code",ExpressionUUID->"5f09e08c-85d0-4db4-af75-8f85ac788de8"],
+Cell[23335, 597, 40362, 983, 2067, "Code",ExpressionUUID->"d02d65d5-6fda-4d39-872e-5145e565b67b"],
+Cell[63700, 1582, 2553, 55, 205, "Code",ExpressionUUID->"73a83525-2b6f-4121-ad3f-acd5ae34221f"],
+Cell[66256, 1639, 7846, 207, 509, "Code",ExpressionUUID->"2f5465f0-0bc1-464c-8946-61bf0688605c"],
+Cell[74105, 1848, 6070, 134, 386, "Code",ExpressionUUID->"c688a0ee-0df1-44b0-9257-c8f4045fc5c7"],
+Cell[80178, 1984, 4336, 100, 395, "Code",ExpressionUUID->"119a8d40-ec9b-4beb-bbe6-56f668b9d13f"],
+Cell[84517, 2086, 15502, 319, 737, "Code",ExpressionUUID->"42d7e549-8322-428c-b63b-bf6095197569"],
+Cell[100022, 2407, 761, 19, 110, "Code",ExpressionUUID->"df2e70b3-e89e-4c7e-9199-272b7a4be691"],
+Cell[100786, 2428, 3665, 101, 224, "Code",ExpressionUUID->"85a87c7b-5448-48cf-b7ff-42ea3bc6b701"],
+Cell[104454, 2531, 3390, 78, 395, "Code",ExpressionUUID->"efc86dd5-ff62-4d68-8ccd-ec0fdaa23a1d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[107881, 2614, 298, 4, 67, "Section",ExpressionUUID->"4a954fa8-5e65-4aa0-9dfb-a2c2621cf75e"],
+Cell[108182, 2620, 974, 23, 73, "Input",ExpressionUUID->"a0b580d6-2659-4ec5-a8c3-c296a9e08932"],
+Cell[109159, 2645, 11632, 265, 471, "Code",ExpressionUUID->"bdffc080-9d05-49d3-8851-81b168c7f40f"],
+Cell[120794, 2912, 21690, 492, 642, "Code",ExpressionUUID->"44cea7c1-7692-4677-87f1-7b447cd20893"],
+Cell[142487, 3406, 5597, 150, 376, "Code",ExpressionUUID->"dba59494-d6bd-455c-9583-739496b4e8fb"],
+Cell[148087, 3558, 8130, 204, 433, "Code",ExpressionUUID->"fa764fc9-41f0-4909-a706-d2e927a6951e"],
+Cell[156220, 3764, 9994, 250, 509, "Code",ExpressionUUID->"98ad7356-c122-4b87-ae57-e23ba604a55b"],
+Cell[166217, 4016, 3307, 86, 243, "Code",ExpressionUUID->"24d9f81a-3685-47b8-a92f-d7ecdcf3bf79"],
+Cell[169527, 4104, 8689, 216, 376, "Code",ExpressionUUID->"0aef8794-2831-4e8f-b5be-e7e9ca87ecbc"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[178253, 4325, 173, 3, 53, "Section",ExpressionUUID->"bd470b28-5f15-4c9c-a58c-810cdfefdac1"],
+Cell[178429, 4330, 7402, 151, 509, "Code",ExpressionUUID->"6d54e73d-1c50-4cc0-aad4-ff74dd80442b"],
+Cell[185834, 4483, 2970, 75, 205, "Code",ExpressionUUID->"f79c22c1-362f-458d-82a2-1f3465aadc06"],
+Cell[188807, 4560, 6720, 158, 490, "Code",ExpressionUUID->"6b04f6d5-af97-4d0d-b866-5998965061d8"],
+Cell[195530, 4720, 8452, 206, 593, "Code",ExpressionUUID->"252d8729-785d-4dee-9670-5d76098a3c72"],
+Cell[203985, 4928, 6832, 132, 429, "Code",ExpressionUUID->"81ea0ed3-7099-4461-b9dc-daf90d06d550"],
+Cell[210820, 5062, 24959, 553, 1383, "Code",ExpressionUUID->"305f1da2-b619-471c-b193-83c797e21b52"],
+Cell[235782, 5617, 10284, 241, 794, "Code",ExpressionUUID->"bd6a6fb4-49a6-4c2b-90a7-61e4c321ab53"],
+Cell[246069, 5860, 3156, 70, 300, "Code",ExpressionUUID->"277e5d59-180f-4ff2-9d11-83708193aa16"],
+Cell[249228, 5932, 3585, 80, 395, "Code",ExpressionUUID->"273d8dfe-f22d-4001-a888-645b21900533"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[252850, 6017, 150, 3, 67, "Section",ExpressionUUID->"037c7342-04ce-4060-832e-9a862d770c59"],
+Cell[253003, 6022, 4508, 113, 167, "Code",ExpressionUUID->"dd47b130-3e35-4d07-b77e-3ca9d835e052"],
+Cell[257514, 6137, 3182, 78, 319, "Code",ExpressionUUID->"b17e086c-ab31-48d0-8d5b-b0b3abee85e8"],
+Cell[260699, 6217, 3499, 100, 258, "Code",ExpressionUUID->"d5e13794-b213-405d-a895-be3f3cdac4ca"],
+Cell[264201, 6319, 2993, 77, 295, "Code",ExpressionUUID->"8d0dd1e2-e736-49c5-83c5-315e177e4d78"],
+Cell[267197, 6398, 4955, 111, 52, "Code",ExpressionUUID->"1542b99a-38a7-4efc-a7dd-67f37e0b738f"],
+Cell[272155, 6511, 4257, 102, 52, "Code",ExpressionUUID->"3bdf7311-6a93-42b9-806f-fc1fb7d2dbc8"],
+Cell[276415, 6615, 902, 26, 52, "Code",ExpressionUUID->"c79d9e93-4c26-45bb-93fc-bae5d0655d34"],
+Cell[277320, 6643, 907, 26, 52, "Code",ExpressionUUID->"6ec71da7-0574-492c-a70f-a8c94c288a31"],
+Cell[278230, 6671, 16402, 346, 110, "Code",ExpressionUUID->"94aaf09f-e66c-408a-9c44-b910ab5d14a5"],
+Cell[294635, 7019, 5184, 122, 509, "Code",ExpressionUUID->"3f1e4a76-6936-4740-8096-cea6b4942aee"],
+Cell[299822, 7143, 5627, 120, 262, "Code",ExpressionUUID->"8dd4f842-5fdd-4a04-82ab-4547468b75ba"],
+Cell[305452, 7265, 5287, 111, 243, "Code",ExpressionUUID->"774c58d4-e7e8-4b84-bdca-45613152c035"],
+Cell[310742, 7378, 16581, 398, 984, "Code",ExpressionUUID->"fdd59681-5dbb-43cc-bf20-61b9df02c596"],
+Cell[327326, 7778, 9417, 213, 376, "Code",ExpressionUUID->"7eccf728-6635-4259-85d7-e352f2b5bf87"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[336780, 7996, 297, 4, 53, "Section",ExpressionUUID->"3be93c08-4ba9-4bf3-b94b-30eff061949f"],
+Cell[337080, 8002, 4250, 111, 262, "Code",ExpressionUUID->"4ab9691d-8b97-4823-b93d-ea823bb2cac2"],
+Cell[341333, 8115, 2893, 63, 205, "Code",ExpressionUUID->"9aaa7a15-f5b4-48ca-92df-2cd798ba0032"],
+Cell[344229, 8180, 14656, 325, 1193, "Code",ExpressionUUID->"7d87c83d-5730-4f9c-8f51-a1ed9ed56df2"],
+Cell[358888, 8507, 32251, 771, 2171, "Code",ExpressionUUID->"e1458f8c-3b97-46d7-89b5-d99de78240e7"],
+Cell[391142, 9280, 5027, 123, 395, "Code",ExpressionUUID->"e6aac64f-ed9a-4985-a3a8-ab479f3330ca"],
+Cell[396172, 9405, 2367, 61, 224, "Code",ExpressionUUID->"7be546aa-ffdd-4c64-bb5a-8e664f9d3df8"],
+Cell[398542, 9468, 12806, 336, 803, "Code",ExpressionUUID->"d6deea87-8b23-4703-b744-10e2878359aa"],
+Cell[411351, 9806, 1734, 58, 72, "Code",ExpressionUUID->"bacae793-9bc9-412c-98f5-04742466300a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[413122, 9869, 160, 3, 53, "Section",ExpressionUUID->"2607a84f-8136-4555-8578-9ef48f892b15"],
+Cell[413285, 9874, 1556, 48, 110, "Code",ExpressionUUID->"cf257478-3ef8-4582-84aa-71e3bc5840dc",
+ InitializationCell->True]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[414878, 9927, 85, 0, 67, "Section",ExpressionUUID->"f1741b14-531a-4442-958b-fde3bfdb7b10"],
+Cell[414966, 9929, 257, 7, 72, "Code",ExpressionUUID->"c8870d35-e01d-4f7c-b081-273dc39f3a98",
+ InitializationCell->True]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[415260, 9941, 155, 3, 67, "Section",ExpressionUUID->"26d18d13-bbbe-4282-b00d-49ab3fbd32ba"],
+Cell[415418, 9946, 207, 4, 30, "Input",ExpressionUUID->"d5935d89-e8a4-4fa5-91c6-63cfd7830a66"],
+Cell[CellGroupData[{
+Cell[415650, 9954, 508, 10, 54, "Subsection",ExpressionUUID->"d77b7e0a-37fe-4fae-b4c7-ab23d397621e"],
+Cell[CellGroupData[{
+Cell[416183, 9968, 292, 7, 30, "Input",ExpressionUUID->"01df2675-7543-4eaf-a777-bb3b592ad5c9"],
+Cell[416478, 9977, 450, 8, 34, "Output",ExpressionUUID->"665df167-82dd-4563-a05c-cbda3f786184"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[416965, 9990, 567, 17, 30, "Input",ExpressionUUID->"04275776-8f18-4f37-bbf5-d693d7dc0cfb"],
+Cell[417535, 10009, 694, 18, 37, "Output",ExpressionUUID->"be84d4f9-3975-4a44-827a-750c4eef7c2d"]
+}, Open  ]],
+Cell[418244, 10030, 331, 8, 30, "Input",ExpressionUUID->"114c3b30-9e5e-445d-a4ed-def79fbfbecf"],
+Cell[CellGroupData[{
+Cell[418600, 10042, 329, 7, 30, "Input",ExpressionUUID->"6ec9aa31-8715-40a8-8de4-fe5553c192dc"],
+Cell[418932, 10051, 423, 8, 34, "Output",ExpressionUUID->"0f6440f7-89cc-47fe-9c83-462905f72eb0"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[419392, 10064, 318, 7, 30, "Input",ExpressionUUID->"da6bb885-c11e-4af0-ba12-5a61ada9cb60"],
+Cell[419713, 10073, 564, 15, 37, "Output",ExpressionUUID->"d2c5a32b-740e-4ba4-8c59-9da001eebe84"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[420314, 10093, 320, 7, 30, "Input",ExpressionUUID->"5aa484fc-0cd2-4926-b47a-29f14f4d2f17"],
+Cell[420637, 10102, 393, 8, 51, "Output",ExpressionUUID->"6010ec2c-e7a3-47f0-b22d-9c5bd00f2385"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[421067, 10115, 992, 17, 52, "Input",ExpressionUUID->"ed5781e4-22a4-4ae7-a266-bbbc22d0f39a"],
+Cell[422062, 10134, 2446, 47, 34, "Output",ExpressionUUID->"baac7dd9-3722-43d2-8c34-922c3cf5f6f3"],
+Cell[424511, 10183, 2446, 47, 34, "Output",ExpressionUUID->"3a141bce-5fbc-4c50-92c7-8379c58297ca"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[426994, 10235, 517, 10, 52, "Input",ExpressionUUID->"e70c66e4-4e26-43dd-8013-82022d2d95c7"],
+Cell[427514, 10247, 1899, 56, 37, "Output",ExpressionUUID->"b0b4dea8-47e3-447d-8f2b-96d2d27080ba"],
+Cell[429416, 10305, 1899, 56, 37, "Output",ExpressionUUID->"3cbcbad1-a20a-4490-b84f-aa78f9e300d8"]
+}, Open  ]],
+Cell[431330, 10364, 226, 4, 30, "Input",ExpressionUUID->"4736ce0c-fd95-488b-9cad-da3d82cd0647"],
+Cell[CellGroupData[{
+Cell[431581, 10372, 591, 12, 52, "Input",ExpressionUUID->"090305e6-e53f-4de4-8760-85909e86ff8f"],
+Cell[432175, 10386, 2188, 67, 37, "Output",ExpressionUUID->"1802f678-c827-451a-8772-3c7e96881a2f"],
+Cell[434366, 10455, 1678, 53, 37, "Output",ExpressionUUID->"d6508d3e-502d-4994-befc-441a401f61b4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[436081, 10513, 2197, 67, 33, "Input",ExpressionUUID->"a7c4d7c1-41c1-4f28-a00a-21a6c5370173"],
+Cell[438281, 10582, 1592, 53, 37, "Output",ExpressionUUID->"127fe166-63e3-40e8-85f8-1cc2c599fb65"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[439910, 10640, 825, 18, 52, "Input",ExpressionUUID->"fe89dc2a-c9ac-4fe2-b899-ef0c3d47b93e"],
+Cell[440738, 10660, 1491, 40, 34, "Output",ExpressionUUID->"510d0189-5306-488d-9d98-d72b472703f0"],
+Cell[442232, 10702, 2121, 60, 37, "Output",ExpressionUUID->"004e0069-9eea-4160-b167-ebe64adc2af6"]
+}, Open  ]],
+Cell[444368, 10765, 661, 18, 30, "Input",ExpressionUUID->"43a39a62-5608-44fe-8443-e69dce1fa939"],
+Cell[CellGroupData[{
+Cell[445054, 10787, 154, 3, 30, "Input",ExpressionUUID->"46b07b7d-76b2-43d1-886e-1f734e343bd7"],
+Cell[445211, 10792, 176, 3, 34, "Output",ExpressionUUID->"69e76015-b545-4a29-a5c6-a95e25aa360f"]
+}, Open  ]],
+Cell[445402, 10798, 639, 19, 30, "Input",ExpressionUUID->"6ce44593-fdc2-41aa-ad1e-1cc49d9461ff"],
+Cell[CellGroupData[{
+Cell[446066, 10821, 152, 3, 30, "Input",ExpressionUUID->"19a4e782-47a0-4a4c-9ac1-4dc16a3ec4cf"],
+Cell[446221, 10826, 157, 3, 34, "Output",ExpressionUUID->"ebf88fb7-3a7c-413d-b0e4-b3a9c9a26971"]
+}, Open  ]],
+Cell[446393, 10832, 504, 16, 30, "Input",ExpressionUUID->"f275f059-a571-42ab-8070-687490a278a1"],
+Cell[446900, 10850, 504, 16, 30, "Input",ExpressionUUID->"e027fdb6-eff3-4bd9-a9aa-87088edb34cf"],
+Cell[CellGroupData[{
+Cell[447429, 10870, 178, 3, 30, "Input",ExpressionUUID->"1792ddf6-d45d-44c1-a4b5-330f4aeff6a2"],
+Cell[447610, 10875, 181, 3, 34, "Output",ExpressionUUID->"81dcb636-9dcd-4984-bd8f-c7783e2bc53c"]
+}, Open  ]],
+Cell[447806, 10881, 447, 13, 30, "Input",ExpressionUUID->"5fbbd0b9-08ce-4eb7-a923-377942f201b6"],
+Cell[CellGroupData[{
+Cell[448278, 10898, 152, 3, 30, "Input",ExpressionUUID->"096588e5-38a4-4025-922c-9e4d81ed7424"],
+Cell[448433, 10903, 156, 3, 34, "Output",ExpressionUUID->"c580f8da-aeb5-4cf0-81c9-251fba296602"]
+}, Open  ]],
+Cell[448604, 10909, 412, 12, 30, "Input",ExpressionUUID->"157be32d-15d6-4149-bfb6-8e0087bcf0c9"],
+Cell[CellGroupData[{
+Cell[449041, 10925, 152, 3, 30, "Input",ExpressionUUID->"8e07c9e3-1125-4429-b862-bb3eed90c896"],
+Cell[449196, 10930, 154, 3, 34, "Output",ExpressionUUID->"4c5cea56-2557-494f-b20b-8e21d5dee9a3"]
+}, Open  ]],
+Cell[449365, 10936, 17812, 403, 566, "Code",ExpressionUUID->"b07eb285-b84f-41d1-8ec4-d701def84f96"],
+Cell[467180, 11341, 5841, 153, 376, "Code",ExpressionUUID->"6e8c9979-e983-4f48-b1b8-beb2ba431594"],
+Cell[CellGroupData[{
+Cell[473046, 11498, 359, 7, 52, "Input",ExpressionUUID->"1f823ee3-17cf-4b4d-b7a5-4f64e10f47a0"],
+Cell[473408, 11507, 586, 19, 37, "Output",ExpressionUUID->"592cfd98-0fb4-4f54-b8e7-ec512703bdd8"],
+Cell[473997, 11528, 588, 19, 37, "Output",ExpressionUUID->"1b8a6207-1e39-41fa-93d1-20524893fe91"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[474622, 11552, 329, 7, 30, "Input",ExpressionUUID->"66e4ef84-d010-4316-8e2f-1775594db8e0"],
+Cell[474954, 11561, 1683, 53, 37, "Output",ExpressionUUID->"55a09e0a-ec0e-4179-bfbb-07a3faea7061"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[476674, 11619, 470, 12, 52, "Input",ExpressionUUID->"1ae15dfb-770e-45bc-a13c-25a8223d9a18"],
+Cell[477147, 11633, 232, 5, 34, "Output",ExpressionUUID->"676ec1f6-7593-4c7c-8697-d1d103ea5798"],
+Cell[477382, 11640, 235, 5, 34, "Output",ExpressionUUID->"4268ad27-15a0-42a0-ad8a-c2ba8bf2830a"]
+}, Open  ]],
+Cell[477632, 11648, 306, 7, 30, "Input",ExpressionUUID->"c1ab6d48-4f6d-474c-b146-3609ab6ac4a3"],
+Cell[477941, 11657, 1631, 49, 30, "Input",ExpressionUUID->"849f5cd1-bb08-4f35-8c7a-080ee5bb35cb"],
+Cell[CellGroupData[{
+Cell[479597, 11710, 339, 8, 30, "Input",ExpressionUUID->"8576f70e-b712-483e-b81f-7ba8b7817457"],
+Cell[479939, 11720, 963, 33, 34, "Output",ExpressionUUID->"baf9673c-f43e-4a0a-b63d-becfd5ee2224"]
+}, Open  ]],
+Cell[480917, 11756, 2793, 70, 115, "Input",ExpressionUUID->"d463090a-fedf-44da-bad8-9ec47f801d42"],
+Cell[CellGroupData[{
+Cell[483735, 11830, 200, 4, 30, "Input",ExpressionUUID->"b04a902c-ddab-47ff-ae41-40ee8053148f"],
+Cell[483938, 11836, 153, 3, 34, "Output",ExpressionUUID->"fe779acd-5a84-4f6d-b813-eaf8a86f8060"]
+}, Open  ]],
+Cell[484106, 11842, 685, 20, 30, "Input",ExpressionUUID->"8fc0dd53-4891-4630-ba15-6aff16aeccb3"],
+Cell[CellGroupData[{
+Cell[484816, 11866, 200, 4, 30, "Input",ExpressionUUID->"be3433cc-df75-47d0-bab6-8f94e852e5ac"],
+Cell[485019, 11872, 179, 3, 34, "Output",ExpressionUUID->"b218650d-f272-412c-89e6-68470be9a64b"]
+}, Open  ]],
+Cell[485213, 11878, 713, 23, 30, "Input",ExpressionUUID->"d082c7b5-5e49-4e11-b39e-3e470b191fb7"],
+Cell[CellGroupData[{
+Cell[485951, 11905, 214, 4, 30, "Input",ExpressionUUID->"6d20c31b-5aee-407c-affa-f6dd4607be9b"],
+Cell[486168, 11911, 1158, 38, 37, "Output",ExpressionUUID->"874305eb-d15f-4754-b4bb-a41b2d24e075"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[487363, 11954, 217, 4, 30, "Input",ExpressionUUID->"6c27ba34-6cef-4d38-bc0f-9c85eccddb76"],
+Cell[487583, 11960, 1616, 53, 37, "Output",ExpressionUUID->"dd2d6302-3afa-4227-8973-afbced035839"]
+}, Open  ]],
+Cell[489214, 12016, 420, 12, 30, "Input",ExpressionUUID->"ce84ec16-b710-4bea-8dfe-dd1b1b1ce42a"],
+Cell[489637, 12030, 779, 24, 30, "Input",ExpressionUUID->"159eb7a6-4eec-49e0-84c9-ef2405685d24"],
+Cell[CellGroupData[{
+Cell[490441, 12058, 116, 2, 30, "Input",ExpressionUUID->"474f40fc-0808-476f-a97c-012d1df8d21e"],
+Cell[490560, 12062, 1556, 51, 37, "Output",ExpressionUUID->"7c479871-c9bf-4bbe-b128-ae4c2b2bd58b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[492153, 12118, 190, 4, 30, "Input",ExpressionUUID->"4a489840-1543-4d33-9049-364d146ec26a"],
+Cell[492346, 12124, 1899, 59, 37, "Output",ExpressionUUID->"f81641df-e959-499e-87d8-462650723adb"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[494282, 12188, 2172, 61, 73, "Input",ExpressionUUID->"0f467eec-a7ba-463d-a027-3b5602c48647"],
+Cell[496457, 12251, 1583, 51, 37, "Output",ExpressionUUID->"860921e1-b1a9-4915-b2d1-e4b5882653a4"]
+}, Open  ]],
+Cell[498055, 12305, 2086, 62, 52, "Input",ExpressionUUID->"6ed5f051-7411-46b0-9fb3-f6775be5748f"],
+Cell[500144, 12369, 1851, 54, 30, "Input",ExpressionUUID->"3c8e42ae-51fb-405c-a049-35cff0a054ea"],
+Cell[501998, 12425, 1515, 44, 52, "Input",ExpressionUUID->"08010e25-a9cb-4239-aae2-a8b5bff5840e"],
+Cell[503516, 12471, 1747, 52, 52, "Input",ExpressionUUID->"694e3683-9945-499b-bb16-cf59112f3cc3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[505300, 12528, 323, 5, 54, "Subsection",ExpressionUUID->"71c6953a-658a-45b8-8bc4-5b582d6e7a41"],
+Cell[CellGroupData[{
+Cell[505648, 12537, 168, 3, 45, "Subsubsection",ExpressionUUID->"097d7736-64f4-43ed-8752-ace7248abe11"],
+Cell[CellGroupData[{
+Cell[505841, 12544, 5463, 125, 201, "Input",ExpressionUUID->"bc52bc22-aa28-46c1-bec0-7bb151040250"],
+Cell[511307, 12671, 2048, 36, 34, "Output",ExpressionUUID->"af354c88-a964-4897-956b-c382f322a790"],
+Cell[513358, 12709, 2013, 33, 24, "Print",ExpressionUUID->"982f80a5-5816-4dbb-9383-da90f0a95ea2"],
+Cell[515374, 12744, 1835, 27, 34, "Output",ExpressionUUID->"78edf1f1-3c90-49de-87e7-26a4e8cb1e0b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[517246, 12776, 390, 9, 30, "Input",ExpressionUUID->"19e35762-c809-4558-94ef-46c9f005c26d"],
+Cell[517639, 12787, 179, 3, 34, "Output",ExpressionUUID->"22dea635-5fb2-40d1-81d9-e40378d9fee8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[517855, 12795, 464, 12, 52, "Input",ExpressionUUID->"d82f7aa2-a215-4330-959b-c50192e0809b"],
+Cell[518322, 12809, 233, 5, 34, "Output",ExpressionUUID->"c8360ad2-5eba-476b-adc4-2dbec1c433fb"],
+Cell[518558, 12816, 233, 5, 34, "Output",ExpressionUUID->"d196b586-d192-47c5-ba89-d4b22d565927"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[518828, 12826, 789, 16, 52, "Input",ExpressionUUID->"0247e2b9-bc3c-4c3f-bb00-8acd165592e5"],
+Cell[519620, 12844, 1857, 49, 56, "Output",ExpressionUUID->"0fdba44a-65cd-45b1-ba22-f41cc3770772"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[521514, 12898, 468, 10, 30, "Input",ExpressionUUID->"7424ddb4-26b8-48d6-9abb-98d2bc885989"],
+Cell[521985, 12910, 6780, 180, 140, "Output",ExpressionUUID->"de552109-5584-41ed-b9bf-a763376239e4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[528802, 13095, 466, 12, 52, "Input",ExpressionUUID->"dfefc84c-dd88-4a77-bff2-e060f6469dd9"],
+Cell[529271, 13109, 233, 5, 34, "Output",ExpressionUUID->"0f7f8d4a-fd24-4a77-a498-873ec5943458"],
+Cell[529507, 13116, 233, 5, 34, "Output",ExpressionUUID->"0f3aa6e9-6148-45e8-9769-ef3e29f81d80"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[529777, 13126, 441, 10, 30, "Input",ExpressionUUID->"a45c7fd6-bc95-4cd2-a939-0f8b9ceee313"],
+Cell[530221, 13138, 568, 14, 34, "Output",ExpressionUUID->"9df9d3c6-5328-4733-92da-a417154d24c6"]
+}, Open  ]],
+Cell[530804, 13155, 1197, 29, 94, "Input",ExpressionUUID->"6c0757c1-66e8-4635-a6a5-ec9565cf9a09"],
+Cell[CellGroupData[{
+Cell[532026, 13188, 615, 15, 52, "Input",ExpressionUUID->"e481ab34-a861-4cbf-bb67-9d5ec109ebcb"],
+Cell[532644, 13205, 259, 6, 34, "Output",ExpressionUUID->"57104fae-7004-49db-9520-650de57167f0"],
+Cell[532906, 13213, 258, 6, 34, "Output",ExpressionUUID->"16cdaf05-618c-4d4c-9e5e-f68281f53b92"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[533201, 13224, 254, 5, 30, "Input",ExpressionUUID->"395e2117-5a18-4852-9ffe-0e5905492742"],
+Cell[533458, 13231, 6631, 177, 140, "Output",ExpressionUUID->"9ee3c406-b481-4f27-ada6-9b57b5e8621b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[540126, 13413, 248, 5, 30, "Input",ExpressionUUID->"d0571893-4b91-45a5-8b07-ab8ad5b83c2e"],
+Cell[540377, 13420, 6607, 177, 140, "Output",ExpressionUUID->"7513720c-eab0-4f3f-bdcf-8da67b8f20f7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[547021, 13602, 492, 10, 30, "Input",ExpressionUUID->"bd54c951-997e-4b8b-a899-a562208bb2a6"],
+Cell[547516, 13614, 1139, 19, 54, "Output",ExpressionUUID->"05d56857-72b0-4a1b-bf65-dd62002228bc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[548692, 13638, 370, 8, 30, "Input",ExpressionUUID->"ce2d7b28-ce7f-4e91-b79a-4c68043edacf"],
+Cell[549065, 13648, 564, 12, 54, "Output",ExpressionUUID->"458cab5e-3d63-405a-be46-afcf502f7e2d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[549666, 13665, 300, 7, 30, "Input",ExpressionUUID->"fe94d06a-6caf-4b89-8901-b282db79c747"],
+Cell[549969, 13674, 492, 12, 51, "Output",ExpressionUUID->"46e93b8f-d250-48df-993b-4df86997f306"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[550498, 13691, 734, 22, 30, "Input",ExpressionUUID->"7e2a08eb-a661-4dcf-a34a-bf362707e182"],
+Cell[551235, 13715, 564, 14, 34, "Output",ExpressionUUID->"21b05cfc-e373-4ec3-8e53-509d03e916b2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[551836, 13734, 668, 21, 30, "Input",ExpressionUUID->"1a24ba00-5ef8-4c8a-869e-50a6b344cb96"],
+Cell[552507, 13757, 565, 14, 34, "Output",ExpressionUUID->"900bf33b-c142-487e-b8b5-186cb3cac659"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[553121, 13777, 219, 4, 37, "Subsubsection",ExpressionUUID->"e43554bf-b26c-4e7d-84a9-a8c2f159e955"],
+Cell[CellGroupData[{
+Cell[553365, 13785, 5676, 130, 201, "Input",ExpressionUUID->"05f31ab9-16b7-42ba-8606-57d7209b7e4b"],
+Cell[559044, 13917, 2120, 37, 34, "Output",ExpressionUUID->"6bcdbbd6-205b-41a0-abb8-bfebcc453f6e"],
+Cell[561167, 13956, 2085, 34, 24, "Print",ExpressionUUID->"fb201946-a8e9-427e-9482-44a7f5630cad"],
+Cell[563255, 13992, 2402, 46, 62, "Output",ExpressionUUID->"1cb63972-9da5-467a-be1c-f293792f02b9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[565694, 14043, 207, 4, 30, "Input",ExpressionUUID->"60ca60ec-dc2b-48a3-822e-788e1a1bcdbf"],
+Cell[565904, 14049, 1253, 42, 124, "Output",ExpressionUUID->"2a563e88-ab31-4cda-a4bb-a5667eef19c2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[567194, 14096, 390, 9, 30, "Input",ExpressionUUID->"d42c09f2-57c0-48c6-a89e-d2d7088b7ca2"],
+Cell[567587, 14107, 227, 4, 34, "Output",ExpressionUUID->"62c89b2b-5cfe-4b79-a612-19aba2e14786"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[567851, 14116, 464, 12, 52, "Input",ExpressionUUID->"9d0b6749-f7cb-4712-97aa-9a7964afd790"],
+Cell[568318, 14130, 259, 6, 34, "Output",ExpressionUUID->"bbbf5731-5bb2-472e-b683-1bd44dbe5a68"],
+Cell[568580, 14138, 259, 6, 34, "Output",ExpressionUUID->"70123f00-074a-4a33-882a-e5225ed9630b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[568876, 14149, 789, 16, 52, "Input",ExpressionUUID->"b9948f6c-d174-4fcd-9cc2-27d140571218"],
+Cell[569668, 14167, 1929, 50, 56, "Output",ExpressionUUID->"8fedad54-aa59-4b75-8fff-aba28ba3ad11"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[571634, 14222, 495, 11, 30, "Input",ExpressionUUID->"ce880f5c-5bc7-4de0-bc57-e55a681ed2b5"],
+Cell[572132, 14235, 6852, 181, 140, "Output",ExpressionUUID->"3f1eab61-11b8-43a2-9901-09f55a9a3825"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[579021, 14421, 466, 12, 52, "Input",ExpressionUUID->"155c5e2a-4ee8-41a4-8c55-0c5b3dd543a2"],
+Cell[579490, 14435, 283, 6, 34, "Output",ExpressionUUID->"906266aa-9963-4682-a137-95757886d7df"],
+Cell[579776, 14443, 283, 6, 34, "Output",ExpressionUUID->"24357483-228c-4dcb-a267-fa3d41edd8b4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[580096, 14454, 441, 10, 30, "Input",ExpressionUUID->"b6f96e58-3949-482e-84fd-1406f9da91b8"],
+Cell[580540, 14466, 616, 15, 34, "Output",ExpressionUUID->"78d4a0b0-efd4-4070-9e13-296a508f708d"]
+}, Open  ]],
+Cell[581171, 14484, 1197, 29, 94, "Input",ExpressionUUID->"acb00660-e03b-405c-bcc1-dc000f54f0d8"],
+Cell[CellGroupData[{
+Cell[582393, 14517, 615, 15, 52, "Input",ExpressionUUID->"702c3ae5-2d9a-437d-a6d2-8bb23b963b34"],
+Cell[583011, 14534, 259, 6, 34, "Output",ExpressionUUID->"d77a9816-083c-4751-82d2-aacbd1332800"],
+Cell[583273, 14542, 258, 6, 34, "Output",ExpressionUUID->"d4e2054a-93fa-4197-be67-6436756cc179"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[583568, 14553, 254, 5, 30, "Input",ExpressionUUID->"7bfc886e-2ded-48d0-9cf1-1960fe714b53"],
+Cell[583825, 14560, 6631, 177, 140, "Output",ExpressionUUID->"7245960e-40c8-4dfe-b52d-8cfc5149a6f5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[590493, 14742, 248, 5, 30, "Input",ExpressionUUID->"4d22f561-5068-4098-9b65-ab6a871e80c7"],
+Cell[590744, 14749, 6607, 177, 140, "Output",ExpressionUUID->"748d820a-cc37-4410-9235-7476da197f5c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[597388, 14931, 492, 10, 30, "Input",ExpressionUUID->"76354c0f-e9fd-4d62-b862-7c3015f4ea76"],
+Cell[597883, 14943, 1139, 19, 54, "Output",ExpressionUUID->"72af99db-9d7f-4c7e-9223-640402a66ad3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[599059, 14967, 370, 8, 30, "Input",ExpressionUUID->"c6cb8015-adfa-4648-b1fb-3af96ad9bfc4"],
+Cell[599432, 14977, 564, 12, 54, "Output",ExpressionUUID->"2ed220c1-5a7c-4ecc-b217-dcdf9fc6e227"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[600033, 14994, 300, 7, 30, "Input",ExpressionUUID->"8e109ca0-d330-4c1b-8d1b-26b236673b3d"],
+Cell[600336, 15003, 492, 12, 51, "Output",ExpressionUUID->"18b7b647-8cb8-4583-8a0f-05b8da674072"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[600865, 15020, 734, 22, 30, "Input",ExpressionUUID->"e21cf04c-f8ba-4443-8a5c-3f154e6eea0c"],
+Cell[601602, 15044, 564, 14, 34, "Output",ExpressionUUID->"06a9eb3c-e44b-4ce9-90d3-5e08bea49b82"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[602203, 15063, 668, 21, 30, "Input",ExpressionUUID->"441b528d-5cee-4b6f-9d76-444744e866e9"],
+Cell[602874, 15086, 565, 14, 34, "Output",ExpressionUUID->"039bfaa9-ca81-4a36-8988-33e37b3cd0ae"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[603488, 15106, 253, 4, 37, "Subsubsection",ExpressionUUID->"ba23e976-fa7b-4a9a-8934-647fa435594b"],
+Cell[CellGroupData[{
+Cell[603766, 15114, 6604, 150, 224, "Input",ExpressionUUID->"4fd67d43-ee38-4901-9a4a-d89956cf95eb"],
+Cell[610373, 15266, 1801, 31, 34, "Output",ExpressionUUID->"06b60870-7a8e-4da4-91bd-b8d925454c51"],
+Cell[612177, 15299, 1767, 29, 24, "Print",ExpressionUUID->"ddace223-cda9-404e-87bd-78a292e5f7c6"],
+Cell[613947, 15330, 2302, 46, 75, "Output",ExpressionUUID->"4aaf02bd-af65-4afe-8482-f92a29749b06"]
+}, Open  ]],
+Cell[616264, 15379, 644, 16, 52, "Input",ExpressionUUID->"b22c3b79-fdca-424f-b1a2-f13bdd670dba"],
+Cell[CellGroupData[{
+Cell[616933, 15399, 566, 11, 30, "Input",ExpressionUUID->"48448da8-b735-429f-bbf9-a9e6c33bd84b"],
+Cell[617502, 15412, 30477, 789, 725, "Output",ExpressionUUID->"25056618-0553-4369-a989-9da1e9ea57a7"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[648016, 16206, 329, 7, 26, "Input",ExpressionUUID->"58eeb28d-a0f3-4b57-885e-098ab3e4faa1"],
+Cell[648348, 16215, 372, 10, 57, "Output",ExpressionUUID->"ae9944c0-3f20-4f92-926d-30a583cf8c6b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[648757, 16230, 366, 7, 30, "Input",ExpressionUUID->"7daeea03-a07b-45c9-9062-b3e37fae4891"],
+Cell[649126, 16239, 512, 10, 54, "Output",ExpressionUUID->"e2db03df-5f12-47b8-96a1-904adb17c403"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[649675, 16254, 296, 6, 30, "Input",ExpressionUUID->"afb7792d-d623-4673-b2dd-c45d5fa70422"],
+Cell[649974, 16262, 444, 11, 51, "Output",ExpressionUUID->"330b5f86-6e71-47cf-b7c3-9cf31ea6e42a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[650455, 16278, 730, 21, 30, "Input",ExpressionUUID->"6441def8-220d-43ea-9c40-e63413506748"],
+Cell[651188, 16301, 539, 13, 34, "Output",ExpressionUUID->"449cd564-b1d3-4e12-a661-fcf7df5397e0"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[651764, 16319, 664, 20, 30, "Input",ExpressionUUID->"2833197a-c0cb-48dd-849e-eeb44afc0931"],
+Cell[652431, 16341, 537, 13, 34, "Output",ExpressionUUID->"88c98d26-2d4e-464f-96ef-c782868f3050"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[653017, 16360, 234, 4, 37, "Subsubsection",ExpressionUUID->"03f50970-3fdc-4e1d-8009-e192edb7e192"],
+Cell[CellGroupData[{
+Cell[653276, 16368, 6146, 139, 201, "Input",ExpressionUUID->"d11b3047-6f7e-4abc-a919-968f38d3f32a"],
+Cell[659425, 16509, 1831, 33, 34, "Output",ExpressionUUID->"5384b931-7bdb-4128-9307-5dade5d5452b"],
+Cell[661259, 16544, 1792, 30, 24, "Print",ExpressionUUID->"293cc5c7-2855-4953-b62d-d5b5549b6c77"],
+Cell[663054, 16576, 2419, 49, 62, "Output",ExpressionUUID->"db3d01d8-9a29-4fc3-9b13-ed4fc58ec1e4"]
+}, Open  ]],
+Cell[665488, 16628, 644, 16, 52, "Input",ExpressionUUID->"e6d8f1b9-633d-4725-96c7-7f6b00e17104"],
+Cell[CellGroupData[{
+Cell[666157, 16648, 566, 11, 30, "Input",ExpressionUUID->"2cc06b90-b0c8-40f6-971e-060563b26645"],
+Cell[666726, 16661, 2239, 51, 63, "Output",ExpressionUUID->"a041fc60-67d4-47f5-9ac7-6f1c4d2c2eeb"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[669002, 16717, 503, 12, 30, "Input",ExpressionUUID->"76ed1715-da47-4c79-b5fb-3f9700c84fd3"],
+Cell[669508, 16731, 2592, 78, 57, "Output",ExpressionUUID->"53b1f956-56b9-4346-80fa-c8b426515863"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[672137, 16814, 366, 7, 30, "Input",ExpressionUUID->"226fd772-cc38-4fb3-9167-e835546f18b7"],
+Cell[672506, 16823, 512, 10, 54, "Output",ExpressionUUID->"17abe11d-e21d-4685-b4b8-d912eff82eff"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[673055, 16838, 296, 6, 30, "Input",ExpressionUUID->"b98129e6-803c-4951-9a34-7f14dd9f5dd2"],
+Cell[673354, 16846, 444, 11, 51, "Output",ExpressionUUID->"d5801126-a3ac-40b7-b07e-7cd16b98f233"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[673835, 16862, 730, 21, 30, "Input",ExpressionUUID->"b7acc017-0cdc-402f-bee7-cd9056bce9df"],
+Cell[674568, 16885, 539, 13, 34, "Output",ExpressionUUID->"ae79aff6-809d-45f9-b998-254115d39c48"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[675144, 16903, 664, 20, 30, "Input",ExpressionUUID->"2007b6b3-a1ab-4f00-a7ff-30433be708ea"],
+Cell[675811, 16925, 537, 13, 34, "Output",ExpressionUUID->"32669049-5f44-4c4f-a698-e1f2009716a6"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[676409, 16945, 382, 6, 54, "Subsection",ExpressionUUID->"23d96f1e-2347-48e0-ac75-17359a135bfb"],
+Cell[CellGroupData[{
+Cell[676816, 16955, 5912, 135, 201, "Input",ExpressionUUID->"d2cef66a-d619-4c5d-afe3-b60c65ba9c77"],
+Cell[682731, 17092, 1694, 31, 34, "Output",ExpressionUUID->"31b0d5eb-afa5-4752-9d08-34165787a314"],
+Cell[684428, 17125, 370, 9, 24, "Print",ExpressionUUID->"c3c48d41-56fc-4ba9-8dbd-a8d83ef1ff13"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[684835, 17139, 789, 16, 52, "Input",ExpressionUUID->"8731592f-b5b6-44d9-bfe3-fed3eab238bc"],
+Cell[685627, 17157, 1665, 46, 56, "Output",ExpressionUUID->"f137ad53-add1-4a67-97d5-498ae2c0972b"]
+}, Open  ]],
+Cell[687307, 17206, 477, 12, 52, "Input",ExpressionUUID->"ec9f40c8-c6cc-4367-bd37-3c6a19fe8a01"],
+Cell[CellGroupData[{
+Cell[687809, 17222, 300, 7, 30, "Input",ExpressionUUID->"33b7c433-9fd2-4efd-855d-75a56448e4c8"],
+Cell[688112, 17231, 446, 13, 57, "Output",ExpressionUUID->"f136e73c-92b0-44be-b4dc-ebfa5a37a5d3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[688595, 17249, 332, 7, 30, "Input",ExpressionUUID->"3e4927ab-ec94-4d10-bc92-ba926930e2e3"],
+Cell[688930, 17258, 444, 10, 54, "Output",ExpressionUUID->"ae021c1b-256c-4638-b76b-945563bee8c4"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[689423, 17274, 253, 4, 54, "Subsection",ExpressionUUID->"9860c941-3dd8-458e-8cd5-866698d2b422"],
+Cell[689679, 17280, 1671, 51, 52, "Input",ExpressionUUID->"d69d8708-895a-463b-a52e-ab1008cb4d55"],
+Cell[CellGroupData[{
+Cell[691375, 17335, 322, 8, 30, "Input",ExpressionUUID->"a51b6570-caec-4c7e-9875-fd7276af2b2c"],
+Cell[691700, 17345, 2916, 88, 55, "Output",ExpressionUUID->"6912a6f5-90db-4a13-b550-13e668a27885"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[694653, 17438, 4956, 135, 105, "Input",ExpressionUUID->"5aab6c9f-8c4b-44ce-b705-7c0c78e08037"],
+Cell[699612, 17575, 4527, 131, 152, "Output",ExpressionUUID->"a5709ecc-77b5-4bf2-ad7f-a1afe814f0fe"]
+}, Open  ]],
+Cell[704154, 17709, 235, 7, 30, "Input",ExpressionUUID->"4fd267d1-5cbf-4aee-b206-af288e917bfe"],
+Cell[CellGroupData[{
+Cell[704414, 17720, 474, 12, 52, "Input",ExpressionUUID->"6a5cc6fd-f069-4911-88a2-66b9af0b0afb"],
+Cell[704891, 17734, 235, 5, 34, "Output",ExpressionUUID->"cff29f79-f15c-45d3-aec8-0f8bbd95d147"],
+Cell[705129, 17741, 235, 5, 34, "Output",ExpressionUUID->"ae24194c-ad93-424d-b0fe-65580e988f72"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[705401, 17751, 789, 16, 52, "Input",ExpressionUUID->"243dfb6f-6e59-4855-bb6d-375157d4152d"],
+Cell[706193, 17769, 1688, 46, 56, "Output",ExpressionUUID->"dc14c283-12a1-4b2b-a3dc-649052c42761"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[707918, 17820, 717, 17, 52, "Input",ExpressionUUID->"fbaa16fd-4a60-4777-a3ab-f84eb76293c2"],
+Cell[708638, 17839, 159, 3, 34, "Output",ExpressionUUID->"3e97689d-8f31-4cce-a68b-a29dcdb030fb"],
+Cell[708800, 17844, 160, 3, 34, "Output",ExpressionUUID->"931999ab-6f6e-445f-a968-f98014029ece"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[708997, 17852, 248, 5, 30, "Input",ExpressionUUID->"26da8fab-e2c3-4890-91d7-9c9f57dc0390"],
+Cell[709248, 17859, 247, 3, 34, "Output",ExpressionUUID->"615edd47-5ceb-474d-b69a-2e70d0441052"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[709532, 17867, 589, 10, 30, "Input",ExpressionUUID->"35d0828d-4b9e-4a1e-8d71-fa7dff788056"],
+Cell[CellGroupData[{
+Cell[710146, 17881, 239, 4, 24, "Print",ExpressionUUID->"d8f54305-3662-4247-be38-c8719ddd7c56"],
+Cell[710388, 17887, 257, 5, 24, "Print",ExpressionUUID->"965964d7-426f-48ba-92d7-111e1a0d07b2"],
+Cell[710648, 17894, 224, 4, 24, "Print",ExpressionUUID->"28867a86-29aa-4065-9511-a0af4b2d2660"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[710921, 17904, 619, 11, 30, "Input",ExpressionUUID->"f9fe2db0-bdc3-4aba-8a4c-f37e087a9292"],
+Cell[711543, 17917, 881, 12, 34, "Output",ExpressionUUID->"e8a0293d-8c2a-459a-9e25-ffd166fce5dc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[712461, 17934, 234, 4, 30, "Input",ExpressionUUID->"1e850c86-38bd-43b2-838f-f3374bbb6fa4"],
+Cell[712698, 17940, 436, 9, 54, "Output",ExpressionUUID->"63c78ea1-7757-43e2-975b-47e81cb59d9d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[713171, 17954, 296, 6, 30, "Input",ExpressionUUID->"432a9f98-c627-430d-8370-d4a6875a63d3"],
+Cell[713470, 17962, 392, 10, 51, "Output",ExpressionUUID->"ef87f464-4747-4ab7-92ce-bbb5b5a2a10e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[713899, 17977, 730, 21, 30, "Input",ExpressionUUID->"1996a515-cc6d-4b72-9e33-0d9b031834b5"],
+Cell[714632, 18000, 490, 12, 34, "Output",ExpressionUUID->"01bfe3c6-17c2-4891-9953-95ad2e6c8d81"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[715159, 18017, 664, 20, 30, "Input",ExpressionUUID->"049075b7-2afd-46f7-a37c-c62a0a31b7ba"],
+Cell[715826, 18039, 490, 12, 34, "Output",ExpressionUUID->"da553f4d-254f-42a1-8ad7-15a73bef7508"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[716365, 18057, 285, 5, 38, "Subsection",ExpressionUUID->"e38b947a-e4be-4219-a8c6-1c279e3e9c47"],
+Cell[716653, 18064, 1667, 50, 52, "Input",ExpressionUUID->"fb0e3c60-3e70-40a5-acf4-a0e851ce43fd"],
+Cell[CellGroupData[{
+Cell[718345, 18118, 318, 7, 30, "Input",ExpressionUUID->"575a6066-901a-4866-9b00-4fa5473ebba6"],
+Cell[718666, 18127, 2890, 87, 55, "Output",ExpressionUUID->"5f983282-c8ea-457b-bc60-d740b4988cbd"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[721593, 18219, 4951, 134, 105, "Input",ExpressionUUID->"4c33ffd5-f6b0-4497-b400-c8e5e1b62739"],
+Cell[726547, 18355, 4501, 130, 152, "Output",ExpressionUUID->"7ea62d4d-0fc2-4d10-a336-7ff7b4a4b9f0"]
+}, Open  ]],
+Cell[731063, 18488, 230, 6, 30, "Input",ExpressionUUID->"e6028eaf-23d1-41b8-abdd-1abc254fc143"],
+Cell[731296, 18496, 713, 16, 52, "Input",ExpressionUUID->"23a26c80-bfbf-4089-9d4d-33140fe48106"],
+Cell[CellGroupData[{
+Cell[732034, 18516, 248, 5, 30, "Input",ExpressionUUID->"4dceb517-6bce-40ff-aa26-4e3426c8da01"],
+Cell[732285, 18523, 247, 3, 34, "Output",ExpressionUUID->"1f7cd247-6a62-458d-a57d-9e8570b68cfc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[732569, 18531, 589, 10, 30, "Input",ExpressionUUID->"5a887488-5839-40a1-a8e1-7230d76b79a9"],
+Cell[CellGroupData[{
+Cell[733183, 18545, 239, 4, 24, "Print",ExpressionUUID->"a28b2dba-a370-405c-946d-e2bb55b8f1ce"],
+Cell[733425, 18551, 257, 5, 24, "Print",ExpressionUUID->"f603151b-9290-4a65-b77f-6b26affa6fb6"],
+Cell[733685, 18558, 224, 4, 24, "Print",ExpressionUUID->"57ce7877-e5a3-4942-b0dd-60d1740451a9"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[733958, 18568, 619, 11, 30, "Input",ExpressionUUID->"41243e4b-ac71-4795-aff8-c357a7b55494"],
+Cell[734580, 18581, 881, 12, 34, "Output",ExpressionUUID->"5836a063-8c6a-4bba-8c14-cfd203be6028"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[735498, 18598, 234, 4, 30, "Input",ExpressionUUID->"4fbdefa8-3e4c-4818-947e-14fb109719c0"],
+Cell[735735, 18604, 436, 9, 54, "Output",ExpressionUUID->"5cf9db23-b743-42de-9154-39e38ae559de"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[736208, 18618, 296, 6, 30, "Input",ExpressionUUID->"7ea7d09e-9d74-4dfa-b2fd-202e95075acb"],
+Cell[736507, 18626, 392, 10, 51, "Output",ExpressionUUID->"98a41eb2-8f9b-4ea3-b902-d8f8769c47b5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[736936, 18641, 730, 21, 30, "Input",ExpressionUUID->"fd9cd8c2-6fc2-4f6a-aa89-3c53a4ec383d"],
+Cell[737669, 18664, 490, 12, 34, "Output",ExpressionUUID->"8f500451-34f6-4665-9b1a-7f1a5c613492"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[738196, 18681, 664, 20, 30, "Input",ExpressionUUID->"fa78bb4f-d19c-40e4-a6da-4b1d35332d22"],
+Cell[738863, 18703, 490, 12, 34, "Output",ExpressionUUID->"6df9b3ba-f86a-480f-9733-f128accb9c94"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[739402, 18721, 556, 11, 38, "Subsection",ExpressionUUID->"69a1a86d-9563-4e01-8399-43141a852dfd"],
+Cell[CellGroupData[{
+Cell[739983, 18736, 5482, 119, 266, "Input",ExpressionUUID->"7bb4e17f-7da1-45e5-a65e-43cb6c470b11"],
+Cell[745468, 18857, 486, 13, 34, "Output",ExpressionUUID->"60d93ef9-2e9b-41c1-8b02-65313e50d459"],
+Cell[745957, 18872, 1104, 33, 102, "Output",ExpressionUUID->"35054b6b-1a38-4bfa-ae99-b1360f1ee8ea"],
+Cell[747064, 18907, 462, 11, 24, "Print",ExpressionUUID->"2dd9ae60-0ee1-4891-9af6-b446a14ca7b9"],
+Cell[747529, 18920, 1596, 47, 56, "Output",ExpressionUUID->"bb6fe149-65c8-476f-a45f-e92af75a1233"],
+Cell[749128, 18969, 8251, 252, 268, "Output",ExpressionUUID->"67f9afd3-d862-4562-842b-8d69e47292b5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[757416, 19226, 337, 7, 30, "Input",ExpressionUUID->"716d0ea0-f1fe-4dd3-b873-39b7a17ae99d"],
+Cell[CellGroupData[{
+Cell[757778, 19237, 1026, 15, 25, "Print",ExpressionUUID->"355734d5-2d5c-4e52-bbff-bfba2968b26f"],
+Cell[758807, 19254, 846, 13, 25, "Print",ExpressionUUID->"f0e1a213-7a74-49c0-a58e-90ac592024fd"],
+Cell[759656, 19269, 949, 14, 25, "Print",ExpressionUUID->"23d585fe-e7f4-4838-8294-f9f23a3d6d75"],
+Cell[760608, 19285, 1024, 15, 25, "Print",ExpressionUUID->"00d29387-35f9-4260-8d01-e3683f9b18d5"],
+Cell[761635, 19302, 1549, 23, 40, "Print",ExpressionUUID->"65a7ab39-172a-47cf-adf3-7220d0897879"],
+Cell[763187, 19327, 680, 11, 40, "Print",ExpressionUUID->"cf954f3f-0745-4742-b078-a8793cc011a7"],
+Cell[763870, 19340, 680, 11, 40, "Print",ExpressionUUID->"2969f55c-68c2-4523-8163-4fa0316767af"],
+Cell[764553, 19353, 817, 13, 24, "Print",ExpressionUUID->"543875d6-51c6-41c7-a886-d0bfe7b3b116"],
+Cell[765373, 19368, 680, 11, 40, "Print",ExpressionUUID->"0b41c2e8-b0df-434a-879b-e5048d543f6c"],
+Cell[766056, 19381, 707, 11, 24, "Print",ExpressionUUID->"509fe20b-139e-4f6e-95ed-60da15667abe"],
+Cell[766766, 19394, 679, 11, 40, "Print",ExpressionUUID->"33d567db-5afe-4f4d-810a-265f9b4ff5f3"],
+Cell[767448, 19407, 710, 11, 24, "Print",ExpressionUUID->"7e6bc82f-0b56-4038-876c-23d8d6f7d2df"],
+Cell[768161, 19420, 664, 10, 24, "Print",ExpressionUUID->"9bc93af2-aa80-4dd4-a877-8832fd2ca8c8"],
+Cell[768828, 19432, 769, 12, 25, "Print",ExpressionUUID->"691d10f8-4600-42a8-9628-b014e418628d"],
+Cell[769600, 19446, 1047, 15, 25, "Print",ExpressionUUID->"15c2b1d6-e5ba-434c-965a-d00c5174fc3f"]
+}, Open  ]],
+Cell[770662, 19464, 1637, 41, 56, "Output",ExpressionUUID->"e3566e6c-5a8d-4e41-8ccb-3ee534771c77"]
+}, Open  ]],
+Cell[772314, 19508, 1218, 34, 73, "Input",ExpressionUUID->"eb87366f-6836-4da7-8c10-b55d8efd9e07"],
+Cell[CellGroupData[{
+Cell[773557, 19546, 352, 7, 30, "Input",ExpressionUUID->"8c390a46-a63e-4954-8bfa-b571b071177a"],
+Cell[773912, 19555, 636, 17, 34, "Output",ExpressionUUID->"9bfe28d3-d4b3-4ddb-8111-d16873d005c5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[774585, 19577, 280, 6, 30, "Input",ExpressionUUID->"8d44daae-0a87-4036-9e7c-412e754ec5d7"],
+Cell[774868, 19585, 449, 14, 34, "Output",ExpressionUUID->"bbf552db-c687-401f-8da3-813d35f4f71a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[775354, 19604, 280, 6, 30, "Input",ExpressionUUID->"f1c0e670-cc12-4109-9a8e-5149a13ebb9c"],
+Cell[775637, 19612, 492, 15, 34, "Output",ExpressionUUID->"ccd9763e-2fe4-4dde-835f-384dd7a14cb2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[776166, 19632, 496, 10, 30, "Input",ExpressionUUID->"21d973d3-44d6-4ffc-9451-5c149c8d53b7"],
+Cell[CellGroupData[{
+Cell[776687, 19646, 828, 13, 25, "Print",ExpressionUUID->"fc396e04-ee82-4a2a-9da7-6f2b7e13107c"],
+Cell[777518, 19661, 805, 12, 25, "Print",ExpressionUUID->"d24f1371-edbe-4637-92fd-79d797f21469"],
+Cell[778326, 19675, 931, 14, 25, "Print",ExpressionUUID->"3d8c7230-9ce3-4491-b36e-1eba32e67223"],
+Cell[779260, 19691, 910, 14, 25, "Print",ExpressionUUID->"d3c5de00-c3be-4887-b179-0bc5b56f0625"],
+Cell[780173, 19707, 1108, 17, 25, "Print",ExpressionUUID->"b7758648-3268-441b-9b5e-4d914e0e9345"],
+Cell[781284, 19726, 1131, 18, 25, "Print",ExpressionUUID->"507faacd-8c9b-4a56-9add-a1360ca311bb"],
+Cell[782418, 19746, 805, 12, 25, "Print",ExpressionUUID->"ad063293-4dac-4b04-a7d8-e7582a886de8"],
+Cell[783226, 19760, 828, 13, 25, "Print",ExpressionUUID->"f9498f55-f72e-4410-a3bc-fb448691e61b"],
+Cell[784057, 19775, 871, 14, 27, "Print",ExpressionUUID->"648adab7-0358-40fd-b77c-e9a445de2f79"],
+Cell[784931, 19791, 892, 14, 27, "Print",ExpressionUUID->"aa12dd40-395d-4c3a-b305-f1f7cebd785e"],
+Cell[785826, 19807, 830, 13, 25, "Print",ExpressionUUID->"b2bdd99a-9524-44d1-9098-8dd5a1c57662"],
+Cell[786659, 19822, 805, 12, 25, "Print",ExpressionUUID->"67f15249-7b40-45fa-b579-46500d033ce0"],
+Cell[787467, 19836, 1326, 20, 40, "Print",ExpressionUUID->"e52d9096-ac8b-4619-a941-e4a0c40068a5"],
+Cell[788796, 19858, 1351, 20, 40, "Print",ExpressionUUID->"6be145f6-9449-4690-ab38-5cc38da2e3c1"],
+Cell[790150, 19880, 910, 14, 25, "Print",ExpressionUUID->"5d56e729-e6b0-4faa-86a7-986b3a2a65e3"],
+Cell[791063, 19896, 931, 14, 25, "Print",ExpressionUUID->"d9509c79-1516-49f7-9fd6-9fb59bbedc0d"],
+Cell[791997, 19912, 976, 15, 27, "Print",ExpressionUUID->"1dfa5664-2ad4-4e7c-9bde-14851f85ec07"],
+Cell[792976, 19929, 996, 16, 27, "Print",ExpressionUUID->"787c08f3-9db0-4470-abe3-447dadca2081"],
+Cell[793975, 19947, 933, 14, 25, "Print",ExpressionUUID->"383bb048-db94-49a4-8055-3dcaef0b51bb"],
+Cell[794911, 19963, 910, 14, 25, "Print",ExpressionUUID->"02947826-837d-4c1d-b005-b41b6aefdf81"],
+Cell[795824, 19979, 1431, 21, 40, "Print",ExpressionUUID->"55e0756e-8403-4fe3-adfc-7a4af4585552"],
+Cell[797258, 20002, 1456, 22, 40, "Print",ExpressionUUID->"eb60c6a2-82ec-42d0-b332-6a170aab0eec"],
+Cell[798717, 20026, 1133, 18, 25, "Print",ExpressionUUID->"ff2f94db-4b72-46a4-afe5-981ef027e1bf"],
+Cell[799853, 20046, 1108, 17, 25, "Print",ExpressionUUID->"cdcde152-6b6c-4b91-acbe-b5d2d4099614"],
+Cell[800964, 20065, 805, 12, 25, "Print",ExpressionUUID->"0958d403-6658-455b-bb2b-ab9f15dc0254"],
+Cell[801772, 20079, 828, 13, 25, "Print",ExpressionUUID->"8e17d985-1dfe-4085-ba1b-2ec4cbcccef4"],
+Cell[802603, 20094, 2218, 32, 59, "Print",ExpressionUUID->"50efadd7-0d6e-4936-8789-b387a059078f"],
+Cell[804824, 20128, 2197, 31, 59, "Print",ExpressionUUID->"825a0ddb-fa69-443c-b0ca-16c961331a07"],
+Cell[807024, 20161, 910, 14, 25, "Print",ExpressionUUID->"f3d9ba45-64e7-473c-82ce-51c40d0422d9"],
+Cell[807937, 20177, 931, 14, 25, "Print",ExpressionUUID->"5dbe509b-baec-40c2-a9df-816ae3cdf713"],
+Cell[808871, 20193, 2531, 37, 83, "Print",ExpressionUUID->"b400a75d-eed1-4877-939a-0b9d2c72876d"],
+Cell[811405, 20232, 2508, 36, 83, "Print",ExpressionUUID->"f54b4c2e-8ffa-42f7-bd97-72c906a39ae5"],
+Cell[813916, 20270, 4647, 67, 105, "Print",ExpressionUUID->"53e2d912-725e-4e11-bab9-f65c10c743c1"],
+Cell[818566, 20339, 4626, 67, 105, "Print",ExpressionUUID->"7a55c919-4a92-4379-bd5b-4df13487ec33"],
+Cell[823195, 20408, 4232, 62, 119, "Print",ExpressionUUID->"c1cc086f-364b-42cf-9598-332bcb718246"]
+}, Open  ]],
+Cell[827442, 20473, 3071, 77, 140, "Output",ExpressionUUID->"323cfdeb-cdf7-492d-99a4-6b43b7f97b9d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[830550, 20555, 280, 6, 30, "Input",ExpressionUUID->"2ea6af3c-3620-4faa-8a92-b5fe607cd5c2"],
+Cell[830833, 20563, 733, 25, 34, "Output",ExpressionUUID->"f7521aeb-7da2-4091-a451-48e59446336d"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[831615, 20594, 365, 6, 38, "Subsection",ExpressionUUID->"d009f1f3-e0f6-4ea9-a195-0763b8bc42ba"],
+Cell[831983, 20602, 3285, 100, 50, "Input",ExpressionUUID->"0f6aa630-4d48-4b3c-8921-94be2420c27e"],
+Cell[CellGroupData[{
+Cell[835293, 20706, 209, 4, 30, "Input",ExpressionUUID->"0d4d3d7e-d17d-42f3-9e3b-4adf73923439"],
+Cell[835505, 20712, 2910, 86, 144, "Output",ExpressionUUID->"1b016fcd-b09d-4672-a24b-9a80643b712c"]
+}, Open  ]],
+Cell[838430, 20801, 352, 8, 30, "Input",ExpressionUUID->"058381d3-f6a7-4cc9-8bb3-a65c6b30b2c9"],
+Cell[CellGroupData[{
+Cell[838807, 20813, 336, 8, 30, "Input",ExpressionUUID->"440ced52-f137-4584-8d5f-fd34c8cc50de"],
+Cell[839146, 20823, 1784, 48, 56, "Output",ExpressionUUID->"4e996734-9e06-495f-9a59-0acf7953b305"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[840967, 20876, 684, 17, 52, "Input",ExpressionUUID->"866a0f19-f95e-4fc0-ac2e-fe2565e4f8a8"],
+Cell[841654, 20895, 449, 8, 34, "Output",ExpressionUUID->"a33e91d8-28d5-4ce2-b33a-b69afe19e8c2"],
+Cell[842106, 20905, 450, 8, 34, "Output",ExpressionUUID->"8f333b1f-352f-4e51-ab85-358929ff84c9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[842593, 20918, 219, 4, 30, "Input",ExpressionUUID->"43f92161-42c6-411b-9fc8-0f7b16742d8e"],
+Cell[842815, 20924, 753, 16, 34, "Output",ExpressionUUID->"18935c58-2005-4eba-a257-c8468d2d200b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[843605, 20945, 1651, 43, 73, "Input",ExpressionUUID->"86cd3787-f42d-4a3d-bea8-11f0c0a514fd"],
+Cell[845259, 20990, 6800, 180, 140, "Output",ExpressionUUID->"2a21cc18-b849-4e3f-8490-adb1ec5ed4a7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[852096, 21175, 254, 5, 30, "Input",ExpressionUUID->"384fae2e-1e8a-4f05-862b-743770fb9f61"],
+Cell[852353, 21182, 6798, 180, 140, "Output",ExpressionUUID->"119aa2a6-3adf-4824-ad6f-8f65f27414af"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[859188, 21367, 731, 18, 52, "Input",ExpressionUUID->"8f5618a8-8837-4497-b015-946ac19d7712"],
+Cell[859922, 21387, 357, 7, 34, "Output",ExpressionUUID->"98853bb7-9f64-42b8-98aa-77d9470516f8"],
+Cell[860282, 21396, 357, 7, 34, "Output",ExpressionUUID->"7c994407-948f-4b88-ab0c-cff6a385d6a2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[860676, 21408, 380, 8, 30, "Input",ExpressionUUID->"ce724af1-72cc-4960-991c-ea9dd6cc2a5b"],
+Cell[861059, 21418, 516, 13, 34, "Output",ExpressionUUID->"0f86ee43-7920-4b75-acd2-6d596a21697a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[861612, 21436, 779, 19, 52, "Input",ExpressionUUID->"310dd24f-8805-46a2-9cf7-e81fa33a2131"],
+Cell[862394, 21457, 354, 7, 34, "Output",ExpressionUUID->"cd6e1b76-a951-4ad3-a32a-d37f418392e5"],
+Cell[862751, 21466, 355, 7, 34, "Output",ExpressionUUID->"b4ca9e80-a14d-4280-86ea-b8bda7f1be53"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[863143, 21478, 402, 8, 30, "Input",ExpressionUUID->"0320bf66-74eb-444f-a16a-57e38d7c7861"],
+Cell[863548, 21488, 400, 7, 34, "Output",ExpressionUUID->"bf6f5d6a-e61c-41f0-945d-36875055fc2a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[863985, 21500, 214, 4, 30, "Input",ExpressionUUID->"587b302a-a244-495f-a90d-e618527f431f"],
+Cell[864202, 21506, 5423, 140, 61, "Output",ExpressionUUID->"3cc2eaee-cc1b-448b-8750-819d727fdcd5"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[869674, 21652, 268, 4, 54, "Subsection",ExpressionUUID->"b00818ba-6c8f-40ea-a44e-068ff9461ac1"],
+Cell[CellGroupData[{
+Cell[869967, 21660, 5563, 131, 201, "Input",ExpressionUUID->"334e0c5c-d5b8-4498-a6c2-c1226e3681ca"],
+Cell[875533, 21793, 1394, 27, 34, "Output",ExpressionUUID->"98ceb010-eee8-430a-9b93-35fc3bd3164b"],
+Cell[876930, 21822, 1360, 24, 24, "Print",ExpressionUUID->"c3c37e5f-ee11-4b5e-8086-76fb241de61b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[878327, 21851, 1471, 40, 73, "Input",ExpressionUUID->"b4a97553-7b8c-4b79-8686-150ea30a3335"],
+Cell[879801, 21893, 1237, 23, 24, "Print",ExpressionUUID->"2d2b862d-cf68-4113-8e2a-98c5463c8130"],
+Cell[881041, 21918, 963, 14, 34, "Output",ExpressionUUID->"86594c3c-0fc8-4918-8ca3-a2da281bb632"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[882041, 21937, 594, 17, 30, "Input",ExpressionUUID->"cd208626-5e3d-4207-a7de-66c63b88255f"],
+Cell[882638, 21956, 1169, 21, 46, "Output",ExpressionUUID->"91eca7c9-73fd-4472-92d7-a79a244bba5c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[883844, 21982, 2347, 59, 30, "Input",ExpressionUUID->"407d0ac1-1dc2-4088-a59f-3865a5879a10"],
+Cell[886194, 22043, 1994, 46, 54, "Output",ExpressionUUID->"e5f5c524-4c06-4454-bde2-0cc1edf982e1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[888225, 22094, 1181, 29, 30, "Input",ExpressionUUID->"31c38d14-b264-4ee3-a4ee-f32919091b05"],
+Cell[889409, 22125, 1807, 43, 37, "Output",ExpressionUUID->"7b2711ec-e763-491a-a451-07a0aa1e0c40"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[891253, 22173, 2122, 50, 52, "Input",ExpressionUUID->"e37f6004-ac20-4940-99fe-c1119c385340"],
+Cell[893378, 22225, 1533, 30, 34, "Output",ExpressionUUID->"55923611-c4f3-4ef1-a4a7-a84704ac6edf"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[894948, 22260, 627, 15, 30, "Input",ExpressionUUID->"c1f545f6-dc9a-4d75-b3d2-612eb819b905"],
+Cell[895578, 22277, 1001, 18, 34, "Output",ExpressionUUID->"c7bcd78e-891d-429a-aef4-de5b3d9b183d"]
+}, Open  ]],
+Cell[896594, 22298, 877, 21, 73, "Input",ExpressionUUID->"1cafd883-7da7-4823-a6a9-5123a8159c14"],
+Cell[CellGroupData[{
+Cell[897496, 22323, 1204, 32, 33, "Input",ExpressionUUID->"9aba9333-17e7-4381-9168-1d6071ba951b"],
+Cell[898703, 22357, 1094, 27, 55, "Output",ExpressionUUID->"ff51abc0-e70f-4c06-85d1-b9b62ff29c5b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[899834, 22389, 1595, 38, 33, "Input",ExpressionUUID->"1d768848-b3e5-4b5c-b907-aa6c6db9e3a7"],
+Cell[901432, 22429, 942, 25, 55, "Output",ExpressionUUID->"bd624d91-6864-42d8-81b1-36ed894481a8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[902411, 22459, 1187, 25, 52, "Input",ExpressionUUID->"6da4dccc-52c1-4bcf-b508-a649e7b2ebcd"],
+Cell[903601, 22486, 3119, 83, 112, "Output",ExpressionUUID->"47ac9b27-5843-4e1f-a4d1-8aea6fd563e0"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[906769, 22575, 336, 5, 38, "Subsection",ExpressionUUID->"06f86be9-7053-4f53-a3c9-1038d3ae12e8"],
+Cell[CellGroupData[{
+Cell[907130, 22584, 208, 4, 30, "Input",ExpressionUUID->"af2d4ead-32f6-44b4-9c23-e29c45d89556"],
+Cell[907341, 22590, 1095, 32, 110, "Output",ExpressionUUID->"5d04cfdc-4d84-48b7-a97d-95ea169f5248"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[908473, 22627, 5700, 133, 222, "Input",ExpressionUUID->"4c800565-cf82-45a7-b06d-bca9237b5db0"],
+Cell[914176, 22762, 1458, 28, 34, "Output",ExpressionUUID->"e124c890-233c-4c64-9845-07a965e651f5"],
+Cell[915637, 22792, 1420, 26, 34, "Output",ExpressionUUID->"d20902b0-57a1-4f80-85ff-8a02479854e2"],
+Cell[917060, 22820, 1413, 24, 24, "Print",ExpressionUUID->"85de8086-c7f7-4fb0-ae8e-b8a75633a540"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[918510, 22849, 1475, 41, 73, "Input",ExpressionUUID->"4d74e151-d388-4591-8827-c11578074dd0"],
+Cell[919988, 22892, 1260, 23, 24, "Print",ExpressionUUID->"22eddef9-84e1-4b5f-bdfd-c83809fadbeb"],
+Cell[921251, 22917, 1005, 16, 34, "Output",ExpressionUUID->"27ae41e0-5bbc-4eea-b456-9eacf6e10b2b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[922293, 22938, 598, 18, 30, "Input",ExpressionUUID->"82221953-57d5-4897-8857-a4ea2de86434"],
+Cell[922894, 22958, 1152, 22, 45, "Output",ExpressionUUID->"908532ff-1eea-48ef-b0f7-b6bd80bab3a7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[924083, 22985, 2351, 60, 73, "Input",ExpressionUUID->"68a86325-7d4e-489a-8554-11545358bb9a"],
+Cell[926437, 23047, 1823, 42, 55, "Output",ExpressionUUID->"ce094d0b-901b-4924-b99b-d67127abb61f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[928297, 23094, 1185, 30, 30, "Input",ExpressionUUID->"81448baf-b8f8-400b-bd9d-f40a53525971"],
+Cell[929485, 23126, 1701, 40, 51, "Output",ExpressionUUID->"abf6abcf-02ca-4509-9253-e0b623a936b7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[931223, 23171, 2126, 51, 157, "Input",ExpressionUUID->"37efe627-009f-4a3c-b16f-69f84cf1d96a"],
+Cell[933352, 23224, 1681, 35, 53, "Output",ExpressionUUID->"174c416f-5ccc-4d73-9b5e-d04758d39a3b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[935070, 23264, 631, 16, 30, "Input",ExpressionUUID->"0dee3fbc-cae5-4e91-a556-b0a93f9b7f9e"],
+Cell[935704, 23282, 1030, 18, 34, "Output",ExpressionUUID->"b2a499a1-5f75-4ac2-a3de-091164953a92"]
+}, Open  ]],
+Cell[936749, 23303, 881, 22, 73, "Input",ExpressionUUID->"971e90cc-d509-4ecd-baa9-dddff00fb886"],
+Cell[CellGroupData[{
+Cell[937655, 23329, 1252, 34, 77, "Input",ExpressionUUID->"3dd417d0-b511-416e-adcd-4dc96e264d35"],
+Cell[938910, 23365, 901, 20, 53, "Output",ExpressionUUID->"bf8f0eb7-c5f9-4512-b5cd-0cb898aa03e9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[939848, 23390, 1647, 39, 77, "Input",ExpressionUUID->"207ae9c7-0ad4-440e-8db2-ba18bcd1851a"],
+Cell[941498, 23431, 936, 24, 56, "Output",ExpressionUUID->"91971350-99b1-4d5e-be9f-7f578a545979"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[942471, 23460, 1213, 26, 52, "Input",ExpressionUUID->"9028f88b-cf85-4f46-9f7d-f0adc334a391"],
+Cell[943687, 23488, 2908, 75, 122, "Output",ExpressionUUID->"4408dd50-1d33-4954-8691-97270d703c93"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[946632, 23568, 116, 2, 30, "Input",ExpressionUUID->"6defb715-d8cc-45fa-b88a-98d788b86211"],
+Cell[946751, 23572, 1689, 51, 99, "Output",ExpressionUUID->"9643d1ef-c288-4ceb-8616-a4981806b9ac"]
+}, Open  ]],
+Cell[948455, 23626, 242, 6, 30, "Input",ExpressionUUID->"4a3372b9-d5e6-4dff-8d6c-d0f118d346bc"],
+Cell[948700, 23634, 600, 15, 52, "Input",ExpressionUUID->"21ca1c66-9eb8-4cb7-8ecb-a623582904c9"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[949337, 23654, 347, 5, 38, "Subsection",ExpressionUUID->"f3438ed9-ec6e-4e68-93c2-a3ccadacc1a2"],
+Cell[CellGroupData[{
+Cell[949709, 23663, 5655, 130, 266, "Input",ExpressionUUID->"a94fab01-b5d6-44d8-8812-bcc2b5b9d6ed"],
+Cell[955367, 23795, 1580, 28, 34, "Output",ExpressionUUID->"5aadbc6c-681b-4420-9211-c6ba309e1efc"],
+Cell[956950, 23825, 1529, 25, 24, "Print",ExpressionUUID->"bb2f9a4f-69f7-4b37-b253-3afb51460f58"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[958516, 23855, 739, 15, 52, "Input",ExpressionUUID->"ece3f124-cf57-4dce-91f6-4c6c98d14f2b"],
+Cell[959258, 23872, 626, 16, 34, "Output",ExpressionUUID->"242a05ca-d47e-491a-bfc0-2a384284b79f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[959921, 23893, 1471, 40, 73, "Input",ExpressionUUID->"51002296-3dd1-4358-9017-e0dae2d7edda"],
+Cell[961395, 23935, 1333, 24, 24, "Print",ExpressionUUID->"f17f84bb-be84-4b7a-b7fb-e81b3bcd0834"],
+Cell[962731, 23961, 1078, 16, 34, "Output",ExpressionUUID->"ffdb5b6d-4d52-4813-abc2-4c39f24b9d3e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[963846, 23982, 594, 17, 30, "Input",ExpressionUUID->"c767434e-a002-41e4-a07a-53d7579ef615"],
+Cell[964443, 24001, 1292, 24, 46, "Output",ExpressionUUID->"5fd67647-4ece-4989-a61b-ef7f5d324b61"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[965772, 24030, 2347, 59, 73, "Input",ExpressionUUID->"78c65863-bce5-44ef-b63e-ad0a5a39db3b"],
+Cell[968122, 24091, 2090, 48, 54, "Output",ExpressionUUID->"8d020d58-ab4a-47fe-a423-2e7603758a3c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[970249, 24144, 1181, 29, 30, "Input",ExpressionUUID->"e16dadd3-7746-4b37-8e25-4b10b5c0b4d6"],
+Cell[971433, 24175, 1900, 44, 60, "Output",ExpressionUUID->"fe7dba21-6a7a-4147-a692-b358649a1ec8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[973370, 24224, 2126, 51, 157, "Input",ExpressionUUID->"59cf8a24-2695-4a39-9191-46ad7472da44"],
+Cell[975499, 24277, 1613, 32, 34, "Output",ExpressionUUID->"7c464cf5-ea69-4311-95ce-e926bca92081"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[977149, 24314, 627, 15, 30, "Input",ExpressionUUID->"efa8bd04-c098-4a23-bc2c-e2c1c133ac2a"],
+Cell[977779, 24331, 307, 7, 34, "Output",ExpressionUUID->"3c636017-9e85-4a88-9f61-6693910d6448"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[978123, 24343, 193, 3, 30, "Input",ExpressionUUID->"7a38fc7a-000d-43b9-a533-ca65e4c760cc"],
+Cell[978319, 24348, 344, 6, 69, "Print",ExpressionUUID->"1e8981a4-b242-4305-a785-013e3ec45a07",
+ CellTags->"Info583768292796-1566858"]
+}, Open  ]],
+Cell[978678, 24357, 935, 24, 73, "Input",ExpressionUUID->"678dc65e-7432-42e1-b49f-3ffc4a25dec4"],
+Cell[CellGroupData[{
+Cell[979638, 24385, 1204, 32, 77, "Input",ExpressionUUID->"7f228384-675c-4e5e-b2ee-06a8d8e5a664"],
+Cell[980845, 24419, 4120, 112, 101, "Output",ExpressionUUID->"3aa6847a-364a-458d-84fe-06c13e3fdfdf"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[985002, 24536, 1599, 39, 77, "Input",ExpressionUUID->"41b5f867-a890-46cb-8b17-79cf5636cb0a"],
+Cell[986604, 24577, 3035, 86, 98, "Output",ExpressionUUID->"595cac98-5612-44af-b15e-23687bf4cda1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[989676, 24668, 993, 27, 30, "Input",ExpressionUUID->"74bbe6fe-31ac-4288-8d60-2e468ca364be"],
+Cell[990672, 24697, 2702, 70, 77, "Output",ExpressionUUID->"75b2dc7e-6ac6-4cbf-b8b4-4e148faaacdd"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[993411, 24772, 1127, 28, 30, "Input",ExpressionUUID->"8422b3d8-1439-4f40-842f-7f52520f99f2"],
+Cell[994541, 24802, 3136, 78, 80, "Output",ExpressionUUID->"7dd01aa6-855d-48ee-a776-9c12ff58e35f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[997714, 24885, 1152, 25, 52, "Input",ExpressionUUID->"a4927c75-976d-4b85-9a41-8b24dbdd666a"],
+Cell[998869, 24912, 10972, 287, 154, "Output",ExpressionUUID->"76bc9c0b-e65f-47ba-b36d-107ec42511a0"]
+}, Open  ]],
+Cell[1009856, 25202, 2195, 62, 101, "Input",ExpressionUUID->"2dfa80a1-c83a-43de-9f92-83db1043d753"],
+Cell[CellGroupData[{
+Cell[1012076, 25268, 2208, 63, 101, "Input",ExpressionUUID->"a7153694-09c4-49a6-a2f7-a8a30e9ae39d"],
+Cell[1014287, 25333, 2724, 79, 99, "Output",ExpressionUUID->"ff5aca70-ec30-4202-bb7a-9cd5045e4644"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1017048, 25417, 1089, 29, 52, "Input",ExpressionUUID->"67371f87-21ae-4653-9325-cbc7844c6b42"],
+Cell[1018140, 25448, 957, 28, 55, "Output",ExpressionUUID->"d5bf89fb-c33a-48ef-b00a-7c11d6c82499"]
+}, Open  ]],
+Cell[1019112, 25479, 1883, 54, 81, "Input",ExpressionUUID->"857bb5b1-8f66-41bc-aa02-f798a39dd39a"],
+Cell[CellGroupData[{
+Cell[1021020, 25537, 2041, 60, 99, "Input",ExpressionUUID->"3a6521e2-4fb8-4d34-8cdc-49c89bc63bc0"],
+Cell[1023064, 25599, 1935, 59, 102, "Output",ExpressionUUID->"afddedb7-f690-45a9-a8f2-4bb485c52222"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1025036, 25663, 313, 6, 30, "Input",ExpressionUUID->"d2b66353-4375-474b-aff1-53d72c1a8ecc"],
+Cell[1025352, 25671, 446, 10, 63, "Output",ExpressionUUID->"6a8a7b90-b93a-40a9-8f9d-49c252dd5e38"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1025835, 25686, 2665, 71, 156, "Input",ExpressionUUID->"b3fcda93-bcea-42b5-b931-8de4d25ac3d3"],
+Cell[1028503, 25759, 451, 10, 63, "Output",ExpressionUUID->"6886a7c9-e43e-4c9f-bf4a-7f45b58fe243"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1028991, 25774, 729, 20, 54, "Input",ExpressionUUID->"318b432d-14e0-4360-868d-6fad30d49c00"],
+Cell[1029723, 25796, 6325, 169, 150, "Output",ExpressionUUID->"21ed61f1-fe32-4c7f-8180-7145e3384ea8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1036085, 25970, 1394, 39, 51, "Input",ExpressionUUID->"ee33dd72-7455-48eb-bed4-725018cdd264"],
+Cell[1037482, 26011, 1803, 45, 79, "Output",ExpressionUUID->"7309ecc5-a075-4357-8f2b-58c72a13094e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1039322, 26061, 1302, 37, 51, "Input",ExpressionUUID->"9b287d67-75de-431c-ba3f-c2cc92da7ef8"],
+Cell[1040627, 26100, 303, 7, 45, "Output",ExpressionUUID->"10883ce6-26bb-4797-a12e-07d7155d5059"]
+}, Open  ]],
+Cell[1040945, 26110, 1848, 47, 121, "Input",ExpressionUUID->"4f81de4e-b876-4766-a637-717e516fe892"],
+Cell[CellGroupData[{
+Cell[1042818, 26161, 1650, 45, 80, "Input",ExpressionUUID->"e88e8deb-4a5c-4a02-bc36-51abff25c10d"],
+Cell[1044471, 26208, 326, 8, 45, "Output",ExpressionUUID->"d4970ed4-e197-4203-bb11-c49634308a3f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1044834, 26221, 5648, 151, 222, "Input",ExpressionUUID->"2c391c23-8166-427e-8366-fc78b0849f9f"],
+Cell[1050485, 26374, 5446, 151, 176, "Output",ExpressionUUID->"944ee480-3956-4df4-aab4-185dd656db9e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1055968, 26530, 2086, 55, 84, "Input",ExpressionUUID->"044eeb49-6c2a-4711-a32f-0a2901946c64"],
+Cell[1058057, 26587, 1208, 36, 56, "Output",ExpressionUUID->"bc362edc-1070-4c5d-a542-6873fc2c4bdf"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1059302, 26628, 1853, 50, 84, "Input",ExpressionUUID->"90f23d99-6743-4ad0-9d94-a95d6754768f"],
+Cell[1061158, 26680, 1080, 32, 56, "Output",ExpressionUUID->"f770ee52-5b0f-4836-9aed-1074bcf26cd8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1062275, 26717, 2372, 68, 102, "Input",ExpressionUUID->"ecdf0e46-6abe-462e-87f7-a2fe6e2430b9"],
+Cell[1064650, 26787, 1355, 42, 56, "Output",ExpressionUUID->"6db9dfca-1fc9-40df-b34e-38bc539d45f6"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1066042, 26834, 627, 19, 30, "Input",ExpressionUUID->"35411675-f19d-48ab-b07b-bef06d9f593e"],
+Cell[1066672, 26855, 691, 20, 50, "Output",ExpressionUUID->"1b94e7a2-a6f2-468e-a56e-6792e22b7271"]
+}, Open  ]],
+Cell[1067378, 26878, 139, 3, 30, "Input",ExpressionUUID->"ca41ef3d-71fc-4a30-ad04-b7aa5b871fc4"],
+Cell[CellGroupData[{
+Cell[1067542, 26885, 3585, 96, 188, "Input",ExpressionUUID->"e005e862-9715-4191-8a06-144207384582"],
+Cell[1071130, 26983, 1460, 42, 56, "Output",ExpressionUUID->"3a185a88-157b-49c8-9755-c758188b11c3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1072627, 27030, 319, 8, 30, "Input",ExpressionUUID->"8d7bbb02-a9e8-4f7e-a906-9c171458db1e"],
+Cell[1072949, 27040, 1153, 34, 55, "Output",ExpressionUUID->"1fe9b3a5-9739-40ca-a9dc-80be2329a600"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1074139, 27079, 698, 21, 30, "Input",ExpressionUUID->"14480d61-8085-4fee-8303-e23038dfcb77"],
+Cell[1074840, 27102, 355, 9, 24, "Message",ExpressionUUID->"ac5ebabb-6b33-4ba2-86d1-d024834d6f14"],
+Cell[1075198, 27113, 1857, 53, 85, "Output",ExpressionUUID->"6a7276be-0c26-4fc4-a22a-f2169f5bd2c2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1077092, 27171, 1436, 40, 74, "Input",ExpressionUUID->"c94e8fd7-1775-41d9-9b8f-7c45e3243150"],
+Cell[1078531, 27213, 1399, 38, 54, "Output",ExpressionUUID->"e2da7e68-52d7-417f-ae56-8932b5775993"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1079967, 27256, 252, 5, 30, "Input",ExpressionUUID->"b88ceea7-a2db-4672-8d20-3687f418ad2a"],
+Cell[1080222, 27263, 204, 4, 34, "Output",ExpressionUUID->"0db795e1-f601-4cb6-bd7e-af03e2a8cc23"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1080463, 27272, 923, 21, 30, "Input",ExpressionUUID->"69de18a0-dadd-4129-81fa-6b80753036ef"],
+Cell[1081389, 27295, 1484, 39, 53, "Output",ExpressionUUID->"fff9ed75-9a5f-4e22-a5d6-9b7dff2a9433"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1082910, 27339, 1226, 34, 47, "Input",ExpressionUUID->"9a57cbe5-8f3c-4ea0-ac80-307529e87fdd"],
+Cell[1084139, 27375, 996, 30, 50, "Output",ExpressionUUID->"fcdf84f3-0f92-4698-bedb-f0c9e814a68e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1085172, 27410, 615, 16, 30, "Input",ExpressionUUID->"558c9857-9cff-4fce-a8e1-8bde3d380918"],
+Cell[1085790, 27428, 1178, 34, 53, "Output",ExpressionUUID->"bbe83a6b-7a53-4a6d-a62a-6cfb258f3d3a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1087005, 27467, 713, 21, 52, "Input",ExpressionUUID->"8620aa3d-1136-489a-88f3-684b15ad253a"],
+Cell[1087721, 27490, 3233, 87, 126, "Output",ExpressionUUID->"a2067eea-0f86-4b59-ae84-a69a354b96fa"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1090991, 27582, 1069, 31, 47, "Input",ExpressionUUID->"8284887b-e9da-46ac-9d62-8165463007b3"],
+Cell[1092063, 27615, 791, 24, 50, "Output",ExpressionUUID->"de47c1bd-ff6d-4a9d-856c-7ddc7d536f6c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1092891, 27644, 1448, 39, 52, "Input",ExpressionUUID->"0eacae42-d976-433d-9eac-d57907030215"],
+Cell[1094342, 27685, 1160, 33, 53, "Output",ExpressionUUID->"93abd06a-dd84-4d46-a180-22a3281a848e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1095539, 27723, 783, 18, 30, "Input",ExpressionUUID->"e9d084ae-3c28-4910-b681-fe6624d6a002"],
+Cell[1096325, 27743, 2721, 70, 59, "Output",ExpressionUUID->"51468aa5-b1de-45dc-af84-7ae011494d0c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1099083, 27818, 1195, 33, 52, "Input",ExpressionUUID->"b143b96a-c8ef-434b-89a7-db654f98426f"],
+Cell[1100281, 27853, 741, 22, 53, "Output",ExpressionUUID->"ccafea8b-6689-4e91-aa9a-74b935d3499a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1101059, 27880, 646, 18, 30, "Input",ExpressionUUID->"85a3dba1-16ba-45b2-a989-ce2ffc799389"],
+Cell[1101708, 27900, 16255, 322, 231, "Output",ExpressionUUID->"35ba82c3-c4f2-4f1e-a701-4da86d126e5f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1118000, 28227, 215, 4, 30, "Input",ExpressionUUID->"29c6782f-8d78-454a-95f7-b565b0e40ae2"],
+Cell[1118218, 28233, 1373, 40, 56, "Output",ExpressionUUID->"f2907e60-450d-4066-8e00-a93733d65c49"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1119628, 28278, 245, 5, 30, "Input",ExpressionUUID->"90d1cf29-675b-479b-8b5a-93807f6f3cda"],
+Cell[1119876, 28285, 1065, 30, 55, "Output",ExpressionUUID->"c2049564-a8ef-4387-b693-7ba48794e85f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1120978, 28320, 862, 24, 52, "Input",ExpressionUUID->"c0240fab-1fa6-4cb7-86dd-0816d9ed5333"],
+Cell[1121843, 28346, 844, 25, 55, "Output",ExpressionUUID->"7a497dba-d949-4cd3-9263-d4b34edec7a3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1122724, 28376, 515, 15, 30, "Input",ExpressionUUID->"bbe2b716-ce47-42de-bcd4-ca4de3023890"],
+Cell[1123242, 28393, 2078, 57, 56, "Output",ExpressionUUID->"f5a9c401-44ce-4bcf-a804-ac99bfb4e8ae"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1125357, 28455, 433, 12, 30, "Input",ExpressionUUID->"40c74a4f-78b1-4f96-a508-37a5b2cd467d"],
+Cell[1125793, 28469, 507, 14, 44, "Output",ExpressionUUID->"4901e7bd-e16b-401a-a053-77df6a80ca50"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1126337, 28488, 317, 8, 40, "Input",ExpressionUUID->"298558c8-d7bf-425c-8a30-7e85ec22ac33"],
+Cell[1126657, 28498, 274, 7, 38, "Output",ExpressionUUID->"5b4ad2a1-fe3e-4864-8001-f8f1f6e886fb"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1126968, 28510, 610, 18, 50, "Input",ExpressionUUID->"6e56a157-709b-4b41-8e00-1e9d603bba11"],
+Cell[1127581, 28530, 497, 12, 42, "Message",ExpressionUUID->"c2605ad7-f225-4773-b397-44ecb96d5b70"],
+Cell[1128081, 28544, 1155, 36, 71, "Output",ExpressionUUID->"21ed1d84-9cc8-4502-a50c-1c70f0a0c18f"]
+}, Open  ]],
+Cell[1129251, 28583, 1341, 39, 157, "Input",ExpressionUUID->"7c759e54-dbbf-4602-9fe8-b629e3455f38"],
+Cell[CellGroupData[{
+Cell[1130617, 28626, 4725, 125, 220, "Input",ExpressionUUID->"f93c8ad0-a546-48e9-ba7d-99e67d03341e"],
+Cell[1135345, 28753, 557, 12, 24, "Print",ExpressionUUID->"10db2de8-6788-4d44-8a9b-d05ada99ceae"]
+}, Open  ]],
+Cell[1135917, 28768, 4949, 74, 52, "Input",ExpressionUUID->"10803daa-9f1a-471c-aa65-34ff913d6e48"],
+Cell[CellGroupData[{
+Cell[1140891, 28846, 362, 9, 30, "Input",ExpressionUUID->"53b43d2a-ed2a-428e-943e-7f7d9c19bc99"],
+Cell[1141256, 28857, 1233, 36, 56, "Output",ExpressionUUID->"3a36e02a-c368-4fc2-bbed-6ed18f084a54"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1142526, 28898, 241, 5, 30, "Input",ExpressionUUID->"dabee613-ede7-4bdd-8cef-6f4ea9b16fb4"],
+Cell[1142770, 28905, 1173, 34, 54, "Output",ExpressionUUID->"03295674-c070-4fb6-a734-2d5149963355"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1143980, 28944, 363, 9, 30, "Input",ExpressionUUID->"398342f8-0562-42e8-a102-b66cdb9cf285"],
+Cell[1144346, 28955, 177, 3, 34, "Output",ExpressionUUID->"7a47517a-080f-4dd2-8b67-42e39506d5a9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1144560, 28963, 271, 6, 30, "Input",ExpressionUUID->"5fc1d1bb-76dd-4da2-8e84-059dc75e67f1"],
+Cell[1144834, 28971, 1688, 48, 56, "Output",ExpressionUUID->"8a96d162-096c-4b91-9811-2ae502f23d52"]
+}, Open  ]],
+Cell[1146537, 29022, 1350, 36, 52, "Input",ExpressionUUID->"588f20c1-c3ae-4b02-bc1e-99e9e1c62fd0"],
+Cell[CellGroupData[{
+Cell[1147912, 29062, 4246, 121, 302, "Input",ExpressionUUID->"deb4f4a6-7de0-41ed-8f31-0ce2cff821e0"],
+Cell[1152161, 29185, 537, 10, 34, "Output",ExpressionUUID->"78c3d983-f185-4760-b6db-de6ce6b016a0"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1152735, 29200, 317, 8, 30, "Input",ExpressionUUID->"49d16914-7589-487d-95da-10642445b704"],
+Cell[1153055, 29210, 2338, 57, 229, "Output",ExpressionUUID->"2505ebaf-6b4f-4c90-9ce0-e64c0d39e1d2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1155430, 29272, 116, 2, 30, "Input",ExpressionUUID->"3fe1304c-9b89-4b7a-b9ab-b09b8d69a3b9"],
+Cell[1155549, 29276, 3634, 107, 173, "Output",ExpressionUUID->"a792cc4a-a25b-4fb6-96b1-e4acc29fb63a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1159220, 29388, 374, 10, 30, "Input",ExpressionUUID->"03268e9c-ee27-4b43-9ab2-a4d7842b6d48"],
+Cell[1159597, 29400, 2314, 57, 229, "Output",ExpressionUUID->"34efc7d2-34bf-431b-acdd-11fe71b5d879"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1161948, 29462, 308, 7, 48, "Input",ExpressionUUID->"abc693b0-13f8-4ac8-883d-866e0f34ba80"],
+Cell[1162259, 29471, 250, 4, 34, "Output",ExpressionUUID->"e54c99c9-6ba9-4903-8cf4-ed64f41b193b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1162546, 29480, 679, 16, 76, "Input",ExpressionUUID->"54bd19ea-cc1a-4f68-9787-9eab338ae319"],
+Cell[1163228, 29498, 528, 12, 40, "Print",ExpressionUUID->"0d88b026-45c8-488f-9687-886988455cb8"],
+Cell[1163759, 29512, 317, 7, 51, "Output",ExpressionUUID->"c0b0f92d-47ec-4d96-bd72-58854eb7c443"]
+}, Open  ]],
+Cell[1164091, 29522, 1219, 34, 52, "Input",ExpressionUUID->"eb24cc85-33ff-4cde-97c1-2c4f28d24c4f"],
+Cell[CellGroupData[{
+Cell[1165335, 29560, 5485, 117, 321, "Input",ExpressionUUID->"10b8fd9e-a7b1-4c53-a354-fd3124d392fa"],
+Cell[1170823, 29679, 43599, 867, 480, "Output",ExpressionUUID->"8ab1fa9a-5564-4c62-b6d2-68b4ad665913"]
+}, Open  ]],
+Cell[1214437, 30549, 354, 9, 30, "Input",ExpressionUUID->"900a3dfb-2766-4cfc-8555-8d1add90bc26"],
+Cell[CellGroupData[{
+Cell[1214816, 30562, 802, 21, 52, "Input",ExpressionUUID->"7f308989-28a7-4778-a211-d16e67373d90"],
+Cell[1215621, 30585, 2584, 61, 325, "Output",ExpressionUUID->"6eeaa502-af05-461b-9d2e-2a8040d1a9eb"],
+Cell[1218208, 30648, 11303, 204, 338, "Output",ExpressionUUID->"b35ddae2-8dc6-4c81-8c47-e8468c987563"]
+}, Open  ]],
+Cell[1229526, 30855, 129, 3, 30, "Input",ExpressionUUID->"b3561fee-e50d-4cea-b7c3-2b9273c48b5a"],
+Cell[CellGroupData[{
+Cell[1229680, 30862, 5355, 117, 283, "Input",ExpressionUUID->"d835b2f7-56ca-442d-a804-9d4ffa3d7f00"],
+Cell[1235038, 30981, 260, 6, 34, "Output",ExpressionUUID->"82d00e69-3dcd-4f0f-ba2b-542468eec624"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1235335, 30992, 407, 12, 30, "Input",ExpressionUUID->"a05add30-20b0-4875-b868-8b9a483ddad1"],
+Cell[1235745, 31006, 150780, 2664, 360, "Output",ExpressionUUID->"b03d067d-eb76-4c36-b6b7-0b21a3b69f99"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1386562, 33675, 300, 9, 30, "Input",ExpressionUUID->"62a018c4-c00e-4c32-b77a-350d0699c27f"],
+Cell[1386865, 33686, 151108, 2689, 608, "Output",ExpressionUUID->"d1fad22a-6e90-4de0-a758-e28a9b87e6e0"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1538010, 36380, 908, 27, 52, "Input",ExpressionUUID->"d7bde1b9-aef9-431b-986b-f111fb067fb9"],
+Cell[1538921, 36409, 3598, 107, 242, "Output",ExpressionUUID->"18b8edda-7607-4b37-989e-5a6258ce30af"]
+}, Open  ]],
+Cell[1542534, 36519, 126, 2, 30, "Input",ExpressionUUID->"6571a7e0-b424-4948-9253-090d2a1e9a76"],
+Cell[CellGroupData[{
+Cell[1542685, 36525, 802, 21, 52, "Input",ExpressionUUID->"74d06ffd-a5b1-401c-9bcb-37de47aeadda"],
+Cell[1543490, 36548, 6808, 130, 321, "Output",ExpressionUUID->"8bb50e65-9c10-4b91-bd67-07c2d3473199"],
+Cell[1550301, 36680, 7271, 138, 332, "Output",ExpressionUUID->"f636c3e9-3962-406a-8293-a9ad451f1629"]
+}, Open  ]],
+Cell[1557587, 36821, 3674, 107, 220, "Input",ExpressionUUID->"565cb846-dc0c-47cd-8837-be0b9a63f814"],
+Cell[CellGroupData[{
+Cell[1561286, 36932, 943, 27, 73, "Input",ExpressionUUID->"f5c10684-9ee2-4e6d-b4ea-10a8ee0924f6"],
+Cell[1562232, 36961, 423, 8, 34, "Output",ExpressionUUID->"83911146-5a34-441d-bcff-813934dd376f"],
+Cell[1562658, 36971, 420, 8, 34, "Output",ExpressionUUID->"3f440665-eddb-4969-b8d7-9d5d0cab60b3"],
+Cell[1563081, 36981, 66307, 1109, 378, "Output",ExpressionUUID->"63b43f83-41b7-4d21-af4b-35fedc0d998c"]
+}, Open  ]],
+Cell[1629403, 38093, 778, 24, 30, "Input",ExpressionUUID->"541e5107-8241-471a-9f89-4eb564eaff4a"],
+Cell[1630184, 38119, 860, 28, 73, "Input",ExpressionUUID->"0b48f4e6-e8b7-4716-9f0d-fe2408d5a1e6"],
+Cell[CellGroupData[{
+Cell[1631069, 38151, 405, 11, 30, "Input",ExpressionUUID->"4afd721c-38f3-4e1f-9207-56bbace608ff"],
+Cell[1631477, 38164, 5038, 102, 227, "Output",ExpressionUUID->"98012434-2e9b-4959-abfa-5b18bb5d06f9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1636552, 38271, 4842, 73, 52, "Input",ExpressionUUID->"000845c3-5a37-4681-ab5c-0f2f68bc5fc9"],
+Cell[1641397, 38346, 367, 9, 41, "Message",ExpressionUUID->"c4c1933a-3527-4ac3-a9f6-c0ff71208c37"]
+}, Open  ]],
+Cell[1641779, 38358, 3708, 107, 220, "Input",ExpressionUUID->"7a4c75b1-a500-48f7-8f9d-7677486e97e9"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1645524, 38470, 196, 3, 38, "Subsection",ExpressionUUID->"6f910e98-8e5a-4cff-8531-0cd338303264"],
+Cell[CellGroupData[{
+Cell[1645745, 38477, 1333, 40, 75, "Input",ExpressionUUID->"39a1305b-9c3c-4003-b891-e37ffbd9237d"],
+Cell[1647081, 38519, 431, 12, 34, "Output",ExpressionUUID->"200f362b-1e3f-4c1e-bd3e-9914201e86f2"],
+Cell[1647515, 38533, 958, 28, 37, "Output",ExpressionUUID->"2e7c807e-fc17-44b6-a68b-f31cae91db24"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1648510, 38566, 580, 13, 30, "Input",ExpressionUUID->"6f75d8ab-6d6d-4563-931c-f37a952ae3dd"],
+Cell[1649093, 38581, 429, 8, 24, "Print",ExpressionUUID->"ec4ad459-1506-44fd-9726-ae8c6220d5c4"],
+Cell[1649525, 38591, 6251, 167, 201, "Output",ExpressionUUID->"cdc22c97-9681-4515-8468-79dc56a1f51c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1655813, 38763, 1278, 37, 75, "Input",ExpressionUUID->"3220344c-386b-45c8-8eeb-6cae7918c981"],
+Cell[1657094, 38802, 518, 13, 34, "Output",ExpressionUUID->"72c45421-b0e4-42ba-94b6-01a408623347"],
+Cell[1657615, 38817, 898, 24, 37, "Output",ExpressionUUID->"7d06453a-23ad-4c2c-b520-cac994274924"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1658550, 38846, 617, 12, 30, "Input",ExpressionUUID->"7c59a559-6f9e-4f45-97d2-97ab9d920764"],
+Cell[1659170, 38860, 301, 6, 24, "Print",ExpressionUUID->"01baac31-0ab1-47b1-b04d-503655c8d4c9"],
+Cell[1659474, 38868, 5787, 154, 215, "Output",ExpressionUUID->"09758b57-bf44-4bd4-8caa-e5d2569206bf"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1665310, 39028, 222, 4, 38, "Subsection",ExpressionUUID->"acb36565-8a4d-45f1-8e3a-868962edbb71"],
+Cell[CellGroupData[{
+Cell[1665557, 39036, 1333, 40, 75, "Input",ExpressionUUID->"ed250cc0-b85e-439f-9d2f-cb595bed4e72"],
+Cell[1666893, 39078, 555, 14, 34, "Output",ExpressionUUID->"3f269e24-078a-4041-845f-7d6259a932cc"],
+Cell[1667451, 39094, 1084, 30, 37, "Output",ExpressionUUID->"3f488d16-913d-411c-a59c-525bd7d5cf66"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1668572, 39129, 659, 14, 30, "Input",ExpressionUUID->"f82b9185-8d63-4912-bf33-9363108d9b7d"],
+Cell[1669234, 39145, 544, 9, 24, "Print",ExpressionUUID->"ed650e5b-f34f-45fa-b428-ca4f4923aba0"],
+Cell[1669781, 39156, 6168, 161, 201, "Output",ExpressionUUID->"1ae61d2f-2290-411c-83a5-e40cc8ad49e4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1675986, 39322, 386, 10, 30, "Input",ExpressionUUID->"14328f2e-de99-480e-b189-d8c5578df382"],
+Cell[1676375, 39334, 3236, 97, 105, "Output",ExpressionUUID->"89a336e8-a84d-4aa4-961d-983f4eeb3584"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1679648, 39436, 537, 15, 30, "Input",ExpressionUUID->"9f14f43a-d2a4-4bab-96f5-021eec6ecc82"],
+Cell[1680188, 39453, 705, 21, 78, "Output",ExpressionUUID->"e7a2517c-53fe-46d9-8be9-ee4055cf08a3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1680930, 39479, 766, 17, 30, "Input",ExpressionUUID->"60e5da00-ce01-4000-8baa-4832f19d9a2a"],
+Cell[1681699, 39498, 544, 10, 24, "Print",ExpressionUUID->"09a1cb61-3bda-425c-8656-c2842de490ed"],
+Cell[1682246, 39510, 7810, 212, 358, "Output",ExpressionUUID->"9bbdc768-540b-4e27-bd3a-ad5051494c82"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1690093, 39727, 573, 15, 30, "Input",ExpressionUUID->"9407896f-3d5d-46d8-9e27-1a0066ec67ce"],
+Cell[1690669, 39744, 3812, 114, 167, "Output",ExpressionUUID->"ee5a9300-9978-4333-992e-0785a744d3a5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1694518, 39863, 446, 13, 30, "Input",ExpressionUUID->"8daa37b5-8585-4039-96f4-18e81fd9c9b2"],
+Cell[1694967, 39878, 429, 11, 46, "Output",ExpressionUUID->"cf0ba0e7-9870-4dd4-bbde-771ded2c2dd1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1695433, 39894, 429, 10, 30, "Input",ExpressionUUID->"2d835e2a-ec41-4731-a860-6044b4c073db"],
+Cell[1695865, 39906, 493, 12, 54, "Output",ExpressionUUID->"a4d9145a-518d-459e-974c-dbaf18d54a2d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1696395, 39923, 350, 9, 30, "Input",ExpressionUUID->"460e4006-5bf2-42c6-8a98-379ad925d916"],
+Cell[1696748, 39934, 477, 13, 34, "Output",ExpressionUUID->"bcdf6864-e93b-4248-9374-5bf44ac79672"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1697262, 39952, 802, 17, 30, "Input",ExpressionUUID->"d21b1b91-3e2b-4f3e-a94f-ef0d7770d768"],
+Cell[1698067, 39971, 290, 6, 24, "Print",ExpressionUUID->"6bd38537-d7fc-4627-a511-6bc9408b2746"],
+Cell[1698360, 39979, 6653, 175, 147, "Output",ExpressionUUID->"d9f975d3-3e67-4cac-b9bf-c21cc6f49d4d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1705050, 40159, 556, 15, 30, "Input",ExpressionUUID->"79fc9ff6-f6c7-4aa7-bedd-7a75618d2fc4"],
+Cell[1705609, 40176, 3673, 106, 104, "Output",ExpressionUUID->"242bade0-156f-45fe-9e70-320e2b7b8885"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1709319, 40287, 1278, 37, 75, "Input",ExpressionUUID->"d6c9a8cc-dfba-4381-8ee0-3c6ff1a3dd38"],
+Cell[1710600, 40326, 518, 13, 34, "Output",ExpressionUUID->"f55ea615-53c1-4b4c-b5eb-479fc0450859"],
+Cell[1711121, 40341, 898, 24, 37, "Output",ExpressionUUID->"68de234c-429f-418c-aea9-75db7b49b75f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1712056, 40370, 617, 12, 30, "Input",ExpressionUUID->"810873ee-3118-4cf9-990e-71c758f19903"],
+Cell[1712676, 40384, 301, 6, 24, "Print",ExpressionUUID->"6a9843f4-36f7-475a-8c54-1b44b1a024f9"],
+Cell[1712980, 40392, 5787, 154, 144, "Output",ExpressionUUID->"e535d70b-e452-48a5-9a55-5f44e3f4180f"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+}
+]
+*)
+
diff --git a/code/fRTOV.nb b/code/fRTOV.nb
new file mode 100644
index 0000000..ebf85b7
--- /dev/null
+++ b/code/fRTOV.nb
@@ -0,0 +1,6741 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[    308190,       6733]
+NotebookOptionsPosition[    300966,       6609]
+NotebookOutlinePosition[    301305,       6624]
+CellTagsIndexPosition[    301262,       6621]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell["X. Jimenez 2018-2019", "Text",
+ CellChangeTimes->{{3.7609405674849777`*^9, 
+  3.7609405756938066`*^9}},ExpressionUUID->"607aa170-a31b-46bf-853d-\
+1323334df302"],
+
+Cell["\<\
+* This project aims to check the consistency between f(R) and ST tensor \
+theories of gravitation and resolve the discussions of Capozziello e Doneva \
+2014. I pay some special attention to:
+ (1) Equivalence between theories.
+ (2) Jordan-Frame vs Einstein-Frame equivalence.
+ (3) Quadratic potential or \[Alpha]R^2 model. \
+\>", "Text",
+ CellChangeTimes->{{3.758768871557208*^9, 3.758768999937339*^9}, {
+  3.75876905025945*^9, 3.7587690974982243`*^9}, {3.758769143978691*^9, 
+  3.758769519940847*^9}, {3.760940602584754*^9, 
+  3.760940717894684*^9}},ExpressionUUID->"95f42b5d-055c-4dbf-84a0-\
+f12b50c01fc0"],
+
+Cell[BoxData[
+ RowBox[{"Quit", "[", "]"}]], "Input",
+ CellChangeTimes->{{3.7663070407935143`*^9, 3.766307042502633*^9}},
+ CellLabel->
+  "In[122]:=",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
+
+Cell[CellGroupData[{
+
+Cell["Initial Setup", "Section",
+ CellChangeTimes->{{3.718528424190176*^9, 3.718528426701091*^9}, {
+  3.7240711398211823`*^9, 
+  3.7240711666098757`*^9}},ExpressionUUID->"359dd1e5-ec51-45ba-a423-\
+1546b165ab5d"],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.75221700962776*^9, 
+  3.752217010527308*^9}},ExpressionUUID->"362c3668-1de1-490e-a5cb-\
+8a4e0ce170c9"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"export", "=", "\"\</Users/xisco/Desktop/\>\""}], ";"}]], "Code",
+ CellChangeTimes->{{3.752217011840868*^9, 3.752217042166354*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"51ee50b1-943d-429a-8a98-22f1b5129b56"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Load Packages", "Subsection",
+ CellChangeTimes->{{3.718440602298374*^9, 3.718440612890011*^9}, {
+  3.724070943686637*^9, 3.7240709467569942`*^9}, {3.724071158924836*^9, 
+  3.724071161955201*^9}},ExpressionUUID->"b4cafe99-5c10-49df-bec1-\
+70b77254830c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
+ RowBox[{"<<", "GRTensor.m"}], "\n", 
+ RowBox[{"<<", "DataFits.m"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "BBHReduce.m"}]}], "Code",
+ CellChangeTimes->{{3.717797732347674*^9, 3.717797736369295*^9}, {
+  3.718438450500967*^9, 3.7184384580144033`*^9}, {3.732600523189742*^9, 
+  3.732600525554344*^9}, {3.7326005770224867`*^9, 3.7326005795135403`*^9}, {
+  3.732600632606847*^9, 3.7326006346108913`*^9}, {3.732975019494709*^9, 
+  3.7329750214290047`*^9}, {3.751961842434617*^9, 3.751961845986887*^9}, {
+  3.799749402058936*^9, 
+  3.7997494404407387`*^9}},ExpressionUUID->"28d9c623-2f35-4b48-afc0-\
+bf102c8402c2"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","obspkg",
+   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"ErrorBarPlots`\\\\\\\"\\\"}]\\) is now \
+obsolete. The legacy version being loaded may conflict with current \
+functionality. See the Compatibility Guide for updating information.\"",2,2,1,
+   19646905974076635359,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.799743745274967*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"3a083d41-624c-433b-8f6c-7554d496da5d"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Get","noopen",
+   "\"Cannot open \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"",2,3,2,
+   19646905974076635359,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.799743746138856*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"53368634-5397-480e-86b4-81420dba9e61"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Needs","nocont",
+   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\) was \
+not created when Needs was evaluated.\"",2,3,3,19646905974076635359,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.7997437461631403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"d23e9f49-eabe-49e7-81c0-b72f5919b75a"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "AtomsList","shdw",
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"AtomsList\\\\\\\"\\\"}]\\) appears \
+in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"DataFits`\\\
+\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"",2,4,4,19646905974076635359,"Local",
+   "GRTensor`AtomsList"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.799743746212335*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"eef537de-e7c0-4112-ab75-d5eb954989ae"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "InterpolationDomain","shdw",
+   "\"Symbol \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"InterpolationDomain\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"GRTensor`\\\
+\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\"}], \
+\\\"}\\\"}]\\); definitions in context \\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\
+\\\\\\\"\\\"}]\\) may shadow or be shadowed by other definitions.\"",2,4,5,
+   19646905974076635359,"Local","GRTensor`InterpolationDomain"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.799743746219078*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"b5bdc1f5-72c3-480e-bccd-59fb8caa8275"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "TakeColumn","shdw",
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"TakeColumn\\\\\\\"\\\"}]\\) appears \
+in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"NRLists`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"",2,4,6,19646905974076635359,"Local",
+   "GRTensor`TakeColumn"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
+   3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
+   3.747473802944572*^9, 3.747474048972699*^9, 3.747546261856346*^9, 
+   3.747546394114792*^9, 3.7475593094546947`*^9, 3.747732527459448*^9, 
+   3.747892087224388*^9, 3.747910344260313*^9, 3.747911568379302*^9, 
+   3.747923713830304*^9, 3.747991189566991*^9, 3.7517843937639503`*^9, 
+   3.7518748583719482`*^9, 3.751886222597384*^9, 3.751956543545588*^9, 
+   3.751961852524171*^9, 3.751961942787665*^9, 3.751962209623268*^9, {
+   3.75196237287875*^9, 3.751962402126321*^9}, 3.751962673678767*^9, 
+   3.751969313048992*^9, 3.7519697119842377`*^9, 3.751969757701708*^9, 
+   3.75197048844687*^9, 3.7519706129432373`*^9, 3.751971001409425*^9, 
+   3.7519730878234777`*^9, 3.751973146470367*^9, 3.751973913594076*^9, 
+   3.751974485494672*^9, 3.751978855310112*^9, 3.7519794634315042`*^9, 
+   3.75198166320862*^9, 3.752030867890514*^9, 3.75221698532723*^9, 
+   3.752376658401277*^9, 3.752506278026145*^9, 3.7529111718602743`*^9, 
+   3.752921764832097*^9, 3.753098536817984*^9, 3.753166904703668*^9, 
+   3.753426295460019*^9, 3.753572892814867*^9, 3.754116608553512*^9, 
+   3.754206559452672*^9, 3.756182731909524*^9, 3.756451314769829*^9, 
+   3.756626469711071*^9, 3.756959932365418*^9, 3.756960131972227*^9, {
+   3.7569601767244883`*^9, 3.7569601939815073`*^9}, 3.7569610057191553`*^9, 
+   3.7569614536193666`*^9, 3.756962303073658*^9, 3.757043119731422*^9, 
+   3.757043188334258*^9, 3.757043248249723*^9, 3.757319611976071*^9, 
+   3.757461699151339*^9, 3.757660487828343*^9, 3.757679967535243*^9, 
+   3.75776605632617*^9, 3.757820060297592*^9, 3.75785149669128*^9, 
+   3.757853797380558*^9, 3.757908034017777*^9, 3.7579089005771503`*^9, 
+   3.757998159381197*^9, 3.7582663781974173`*^9, 3.758365537558854*^9, 
+   3.758366413917959*^9, 3.75837215665099*^9, 3.758431423248199*^9, 
+   3.758540986686861*^9, 3.758602040016787*^9, 3.758602095050407*^9, 
+   3.758651581996928*^9, 3.758666782398465*^9, 3.7586685252425747`*^9, 
+   3.758670202724865*^9, 3.758687890124547*^9, 3.758701194286756*^9, 
+   3.758710369847115*^9, 3.758713849544067*^9, 3.7587212716324883`*^9, 
+   3.7587751364344397`*^9, 3.758852130375214*^9, 3.758881493626958*^9, 
+   3.758959635240171*^9, 3.759034906043292*^9, 3.759120386498761*^9, 
+   3.759154249900867*^9, 3.759319506862368*^9, 3.759376098456099*^9, 
+   3.759469263137828*^9, 3.759535601220241*^9, 3.759540507232005*^9, 
+   3.759756860602212*^9, 3.759763393275269*^9, 3.759764020618627*^9, 
+   3.759815648290007*^9, 3.759905232729649*^9, 3.759981025070592*^9, 
+   3.760077720959243*^9, 3.760190967592877*^9, 3.7602392007338037`*^9, 
+   3.760335124545803*^9, 3.760425694176944*^9, 3.760880726954033*^9, 
+   3.760940990204431*^9, 3.760954293147449*^9, 3.761047287703438*^9, 
+   3.761054538702588*^9, 3.761058675535554*^9, 3.7611061027309113`*^9, 
+   3.761137593403412*^9, 3.7611917750059757`*^9, 3.761281490282139*^9, 
+   3.7613220057975388`*^9, 3.761323421051333*^9, 3.7613661074429607`*^9, 
+   3.7613764911778927`*^9, 3.7613769300914793`*^9, 3.7614535683893843`*^9, 
+   3.761473502084236*^9, 3.761489716693668*^9, 3.761534867939049*^9, 
+   3.761544246540146*^9, 3.76162760543044*^9, 3.761720344808772*^9, 
+   3.761892761425956*^9, 3.761893462486437*^9, 3.761946349390009*^9, 
+   3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
+   3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
+   3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
+   3.7997430721582537`*^9, 3.7997437462293253`*^9},
+ CellLabel->
+  "During evaluation of \
+In[2]:=",ExpressionUUID->"a7f5fd78-4a9d-4d3e-ba04-3b2dc7fa838e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"plotColors", "=", 
+  RowBox[{"ColorData", "[", 
+   RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}]}]], "Code",
+ CellChangeTimes->{{3.680081117951901*^9, 3.680081142740662*^9}, {
+  3.682340182633325*^9, 3.6823401863136787`*^9}, {3.754026009116239*^9, 
+  3.754026010028365*^9}, {3.754135003572989*^9, 3.754135004024921*^9}},
+ CellLabel->"In[5]:=",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.368417, 0.506779, 0.709798], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.24561133333333335`, 0.3378526666666667, 0.4731986666666667],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.368417, 0.506779, 0.709798]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.368417, 0.506779, 0.709798],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.880722, 0.611041, 0.142051], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.587148, 0.40736066666666665`, 0.09470066666666668],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.880722, 0.611041, 0.142051]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.880722, 0.611041, 0.142051],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.560181, 0.691569, 0.194885], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.37345400000000006`, 0.461046, 0.12992333333333334`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.560181, 0.691569, 0.194885]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.560181, 0.691569, 0.194885],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.922526, 0.385626, 0.209179], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.922526, 0.385626, 0.209179]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.922526, 0.385626, 0.209179],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.528488, 0.470624, 0.701351], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.3523253333333333, 0.3137493333333333, 0.46756733333333333`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.528488, 0.470624, 0.701351]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.528488, 0.470624, 0.701351],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.772079, 0.431554, 0.102387], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.5147193333333333, 0.28770266666666666`, 0.06825800000000001],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.772079, 0.431554, 0.102387]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.772079, 0.431554, 0.102387],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.363898, 0.618501, 0.782349], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[0.24259866666666668`, 0.412334, 0.521566],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.363898, 0.618501, 0.782349]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.363898, 0.618501, 0.782349],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[0.6666666666666666, 0.5, 0.],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"1", ",", "0.75`", ",", "0"}], "]"}], NumberMarks -> False]],
+     
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[1, 0.75, 0],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.647624, 0.37816, 0.614037], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.4317493333333333, 0.2521066666666667, 0.40935800000000006`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.647624`", ",", "0.37816`", ",", "0.614037`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.647624, 0.37816, 0.614037]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.647624, 0.37816, 0.614037],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.571589, 0.586483, 0.], RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.571589`", ",", "0.586483`", ",", "0.`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.571589, 0.586483, 0.]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.571589, 0.586483, 0.],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.915, 0.3325, 0.2125], RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.6100000000000001, 0.22166666666666668`, 0.14166666666666666`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{"0.915`", ",", "0.3325`", ",", "0.2125`"}], "]"}], 
+       NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.915, 0.3325, 0.2125]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.915, 0.3325, 0.2125],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.2672148173956843, 0.34800444289592275`, 0.5666666666666667],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{
+          "0.40082222609352647`", ",", "0.5220066643438841`", ",", "0.85`"}], 
+         "]"}], NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
+          RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.6485525936249404, 0.4144296347913687, 0.048907997212660946`],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{
+          "0.9728288904374106`", ",", "0.621644452187053`", ",", 
+           "0.07336199581899142`"}], "]"}], NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.4911884484706007, 0.23866666666666667`, 0.3353511049170246],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{
+          "0.736782672705901`", ",", "0.358`", ",", "0.5030266573755369`"}], 
+         "]"}], NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
+    Editable->False,
+    Selectable->False], ",", 
+   InterpretationBox[
+    ButtonBox[
+     TooltipBox[
+      GraphicsBox[{
+        {GrayLevel[0], RectangleBox[{0, 0}]}, 
+        {GrayLevel[0], RectangleBox[{1, -1}]}, 
+        {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         RectangleBox[{0, -1}, {2, 1}]}},
+       AspectRatio->1,
+       DefaultBaseStyle->"ColorSwatchGraphics",
+       Frame->True,
+       FrameStyle->RGBColor[
+        0.18684294025131137`, 0.4766666666666667, 0.2861392881649977],
+       FrameTicks->None,
+       ImageSize->
+        Dynamic[{
+         Automatic, 
+          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+           Magnification])}],
+       PlotRangePadding->None],
+      StyleBox[
+       RowBox[{"RGBColor", "[", 
+         RowBox[{
+          "0.28026441037696703`", ",", "0.715`", ",", "0.4292089322474965`"}],
+          "]"}], NumberMarks -> False]],
+     Appearance->None,
+     BaseStyle->{},
+     BaselinePosition->Baseline,
+     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
+       If[
+        Not[
+         AbsoluteCurrentValue["Deployed"]], 
+        SelectionMove[Typeset`box$, All, Expression]; 
+        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+        FrontEnd`Private`$ColorSelectorInitialColor = 
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]; 
+        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+        MathLink`CallFrontEnd[
+          FrontEnd`AttachCell[Typeset`box$, 
+           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
+           Left, Top}, 
+           "ClosingActions" -> {
+            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
+     DefaultBaseStyle->{},
+     Evaluator->Automatic,
+     Method->"Preemptive"],
+    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
+    Editable->False,
+    Selectable->False]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.727097220180834*^9, 3.727165406136064*^9, 3.727170455355414*^9, 
+   3.7271709245388727`*^9, 3.727172590213936*^9, 3.727592630152465*^9, 
+   3.727693498242694*^9, 3.727695338550645*^9, 3.727696635001389*^9, 
+   3.727759913641571*^9, 3.7277670751783524`*^9, 3.728108200234325*^9, 
+   3.728112400617313*^9, 3.728124110929863*^9, 3.72819316903913*^9, 
+   3.728198361180987*^9, 3.728199642915316*^9, 3.728211581045885*^9, 
+   3.72827749616315*^9, 3.728279646670288*^9, 3.731059008985858*^9, 
+   3.731110508308196*^9, 3.731132606569961*^9, 3.731135031686151*^9, 
+   3.731230895697863*^9, 3.7312368766308737`*^9, 3.7312998577657843`*^9, 
+   3.731734682961844*^9, 3.7326005162997627`*^9, 3.732975013246257*^9, 
+   3.7336534793504744`*^9, 3.733653907051045*^9, 3.7339715513192873`*^9, 
+   3.7340029414350357`*^9, 3.734142315765932*^9, 3.734147280721676*^9, 
+   3.734167933268949*^9, 3.734235604837109*^9, 3.734340068838314*^9, 
+   3.738213519491385*^9, 3.7382247959403353`*^9, 3.738227055529058*^9, 
+   3.7382302895522614`*^9, 3.7382337670476418`*^9, 3.73823540430514*^9, 
+   3.738237332866536*^9, 3.738243505384811*^9, 3.7382462878461857`*^9, 
+   3.738253071864264*^9, 3.7383647676435623`*^9, 3.7384184479988327`*^9, 
+   3.738428922378249*^9, 3.738440902115275*^9, 3.738442293762258*^9, 
+   3.738443357600539*^9, 3.738472753327837*^9, 3.739177876767317*^9, 
+   3.740268460713871*^9, 3.7409759732126913`*^9, 3.7468714915972567`*^9, 
+   3.746944054464114*^9, 3.747121378584075*^9, 3.747134182677744*^9, 
+   3.747368828067268*^9, 3.747376183576166*^9, 3.747473798524432*^9, 
+   3.7474740428603983`*^9, 3.7475462572238903`*^9, 3.747732522051242*^9, 
+   3.7479103397077913`*^9, 3.747911564241764*^9, 3.747923705804139*^9, 
+   3.747965057406329*^9, 3.7536761966110687`*^9, 3.753684429157813*^9, 
+   3.7537493350866423`*^9, 3.7537660944295197`*^9, 3.753772999489149*^9, 
+   3.7537868189688807`*^9, {3.754026012927826*^9, 3.754026022100127*^9}, 
+   3.754087830862124*^9, 3.754135006620284*^9, {3.75413623467811*^9, 
+   3.754136243645525*^9}, 3.757064251682585*^9, 3.7573196121504927`*^9, 
+   3.757461699357132*^9, 3.757660488083744*^9, 3.7576799677161427`*^9, 
+   3.757766056453404*^9, 3.757820060535585*^9, 3.7578514969598303`*^9, 
+   3.757853798125185*^9, 3.757908035205718*^9, 3.757908900724086*^9, 
+   3.7579981606040287`*^9, 3.758266378311586*^9, 3.7583655377612257`*^9, 
+   3.758366414058498*^9, 3.7583721570800667`*^9, 3.758431423479966*^9, 
+   3.7585409869727793`*^9, 3.75860204069872*^9, 3.758602095130332*^9, 
+   3.7586515822162457`*^9, 3.758666782563807*^9, 3.758668525363852*^9, 
+   3.758670202840665*^9, 3.758687890261368*^9, 3.7587011948075027`*^9, 
+   3.7587103704893208`*^9, 3.758713849884137*^9, 3.758721271775881*^9, 
+   3.758775136574479*^9, 3.758852130732922*^9, 3.7588814939153748`*^9, 
+   3.758959635589719*^9, 3.759034907038447*^9, 3.759120386749116*^9, 
+   3.759154250029001*^9, 3.759319507430985*^9, 3.759376098547329*^9, 
+   3.75946926341365*^9, 3.759535602179268*^9, 3.759540507441888*^9, 
+   3.7597568607380037`*^9, 3.759763393390538*^9, 3.759764020783905*^9, 
+   3.759815648420227*^9, 3.75990523297467*^9, 3.7599810255148163`*^9, 
+   3.760077721105369*^9, 3.760190967803336*^9, 3.7602392010651083`*^9, 
+   3.760335124935238*^9, 3.760425694376917*^9, 3.760880727072178*^9, 
+   3.760940990306239*^9, 3.760954295744516*^9, 3.7610472879670897`*^9, 
+   3.76105453876014*^9, 3.761058675761942*^9, 3.7611061029438133`*^9, 
+   3.761137593520192*^9, 3.7611917752924557`*^9, 3.7612814904942417`*^9, 
+   3.761322006119563*^9, 3.7613234212011423`*^9, 3.761366107658869*^9, {
+   3.761376491490403*^9, 3.761376517448001*^9}, 3.7613769302027693`*^9, 
+   3.761453568579221*^9, 3.761473502182425*^9, 3.7614897168229733`*^9, 
+   3.7615348680697803`*^9, 3.7615442468980207`*^9, 3.7616276057955933`*^9, 
+   3.761720345028635*^9, 3.761892762022152*^9, 3.761893462757347*^9, 
+   3.761946349808724*^9, 3.763206647126134*^9, 3.76321172976406*^9, 
+   3.763238000582753*^9, 3.7634461637743883`*^9, 3.766307054673841*^9, 
+   3.799728659345296*^9, 3.799729391800663*^9, 3.7997411347610283`*^9, 
+   3.799741452062593*^9, 3.799743073419889*^9, 3.799743746456357*^9},
+ CellLabel->"Out[5]=",ExpressionUUID->"f92f6d8d-3a3f-4fd9-8774-4ee9966c211a"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Dimensionless magnitudes", "Subsection",
+ CellChangeTimes->{{3.724071006662292*^9, 
+  3.724071035171988*^9}},ExpressionUUID->"35de4bd5-32a5-45fa-b33c-\
+c1c4fc79cc04"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"G", "=", 
+   RowBox[{"6.67428", " ", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "8"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"c", "=", 
+   RowBox[{"2.99792458", " ", 
+    RowBox[{"10", "^", "10"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"m0", "=", 
+   RowBox[{"1.989", " ", 
+    RowBox[{"10", "^", "33"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rg", "=", " ", 
+   RowBox[{"G", " ", 
+    RowBox[{"m0", "/", 
+     RowBox[{"c", "^", "2"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"P0", "=", 
+   RowBox[{"m0", " ", 
+    RowBox[{
+     RowBox[{"c", "^", "2"}], "/", 
+     RowBox[{"rg", "^", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]0", "=", 
+   RowBox[{"m0", "/", 
+    RowBox[{"rg", "^", "3"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"R0", "=", 
+   RowBox[{"1", "/", 
+    RowBox[{"rg", "^", "2"}]}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.7185222808128757`*^9, 3.718522283741341*^9}, 
+   3.718524118360667*^9, 3.719126253632967*^9, {3.719126395963193*^9, 
+   3.71912639669911*^9}, {3.724072460832786*^9, 3.724072467201078*^9}, {
+   3.725084601527223*^9, 3.725084625197569*^9}, {3.7337367520460243`*^9, 
+   3.73373675229137*^9}, {3.7337368914027243`*^9, 3.7337369134723597`*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Load EoS (preconfig. SLy + Polytropic)", "Subsection",
+ CellChangeTimes->{{3.7576605212601843`*^9, 
+  3.7576605614797297`*^9}},ExpressionUUID->"50fb9a2d-d04b-4421-9e43-\
+ccbb4c1c0bd3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"T", "=", 
+   RowBox[{
+    RowBox[{"3", " ", 
+     RowBox[{"p", "[", "r", "]"}]}], "-", 
+    RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"plotleg", "=", "\"\<SLy\>\""}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"eqEoS", "=", " ", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "==", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"EoSFits", "[", "plotleg", "]"}]}], "/.", 
+        RowBox[{"\[Rho]", "\[Rule]", 
+         RowBox[{"Log", "[", 
+          RowBox[{"10", ",", 
+           RowBox[{"\[Rho]0", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+      "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]max", "=", 
+   RowBox[{"Max", "[", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{"T", "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "->", 
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmax", "=", 
+   RowBox[{
+    RowBox[{"eqEoS", "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]max"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+    RowBox[{"{", 
+     RowBox[{"pmax", ",", "\[Rho]max"}], "}"}]}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", "0.00001"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"listeos", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"EoSFits", "[", "plotleg", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"From\[Rho]To\[Epsilon]Fits", "[", "plotleg", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", 
+          RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "0", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]int", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeos", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pint", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeos", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+     ")"}]}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, {3.751607932618657*^9, 3.751607933958827*^9}, {
+   3.751608033132338*^9, 3.751608042127693*^9}, {3.751970651517004*^9, 
+   3.751970687962496*^9}, {3.751971012291362*^9, 3.7519710290350523`*^9}, {
+   3.751971151475252*^9, 3.7519711521238823`*^9}, 3.7519713071402197`*^9, {
+   3.751973792060257*^9, 3.751973797895812*^9}, {3.751973947316868*^9, 
+   3.751973948893642*^9}, {3.751978520888773*^9, 3.751978522452734*^9}, {
+   3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
+   3.756792281031231*^9}, 3.757660566742996*^9, {3.760426018088688*^9, 
+   3.760426018299608*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.0006892725464943219`", ",", "0.0020678176394827515`"}], "}"}]}],
+  SequenceForm[
+  "{pmax, \[Rho]max} = ", {0.0006892725464943219, 0.0020678176394827515`}],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.757660529234078*^9, 3.757679967888996*^9, 3.757766056773499*^9, 
+   3.7578200607519283`*^9, 3.757851497093688*^9, 3.7578537984667997`*^9, 
+   3.7579080353323936`*^9, 3.757908900988624*^9, 3.757998160802103*^9, 
+   3.758266378492299*^9, 3.758365540420885*^9, 3.7583664150113792`*^9, 
+   3.7583721596772118`*^9, 3.758431423712782*^9, 3.758540987149208*^9, 
+   3.75860204085555*^9, 3.75860209522989*^9, 3.758651582391406*^9, 
+   3.758666782845837*^9, 3.758668525610322*^9, 3.758670203003289*^9, 
+   3.7586878905646353`*^9, 3.758701195151792*^9, 3.7587103709199142`*^9, 
+   3.7587212720755672`*^9, 3.758775136800386*^9, 3.758881494143491*^9, 
+   3.7589596359003153`*^9, 3.759034908591649*^9, 3.759120387006995*^9, 
+   3.759319507917431*^9, 3.759376099014728*^9, 3.7594692636487503`*^9, 
+   3.759535602400783*^9, 3.759563262847967*^9, 3.759756860963026*^9, 
+   3.7597633935174093`*^9, {3.759764000164843*^9, 3.759764021089529*^9}, 
+   3.7598156485663033`*^9, 3.759905233253778*^9, 3.759981025731043*^9, 
+   3.7600777214056168`*^9, 3.760190968039214*^9, 3.760239201350065*^9, 
+   3.7603351251555347`*^9, 3.760425695440864*^9, 3.760426018906541*^9, 
+   3.7608807272358923`*^9, 3.76094099055516*^9, 3.760954295849353*^9, 
+   3.761047288189683*^9, 3.761054538858423*^9, 3.7610586758957233`*^9, 
+   3.761106103197339*^9, 3.761137593632071*^9, 3.7611917756405907`*^9, 
+   3.761281490791047*^9, 3.76136610787678*^9, 3.761376491652439*^9, 
+   3.761376930310665*^9, 3.761453568786981*^9, 3.761473502334062*^9, 
+   3.7614897172019453`*^9, 3.7615348682629642`*^9, 3.761544247152569*^9, 
+   3.7616276060981293`*^9, 3.7616278372711887`*^9, 3.7617203452987213`*^9, 
+   3.761892762437152*^9, 3.7619463503552113`*^9, 3.763206647326153*^9, 
+   3.7632117300732117`*^9, 3.76323800074466*^9, 3.763446163942415*^9, 
+   3.766307054848144*^9, 3.799728659429925*^9, 3.7997293918865213`*^9, 
+   3.799741134870844*^9, 3.799741452166616*^9, 3.7997430735106688`*^9, 
+   3.799743746532728*^9},
+ CellLabel->
+  "During evaluation of \
+In[13]:=",ExpressionUUID->"f9a60beb-52dc-48b6-99fd-766e2c1a49a3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"T", "=", 
+   RowBox[{
+    RowBox[{"3", " ", 
+     RowBox[{"p", "[", "r", "]"}]}], "-", 
+    RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"eqEoSp", "=", " ", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "==", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"EoSPol", "[", "]"}]}], "/.", 
+        RowBox[{"\[Rho]", "\[Rule]", 
+         RowBox[{"Log", "[", 
+          RowBox[{"10", ",", 
+           RowBox[{"\[Rho]0", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+      "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]maxp", "=", 
+   RowBox[{"Max", "[", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{"T", "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "->", 
+         RowBox[{"eqEoSp", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmaxp", "=", 
+   RowBox[{
+    RowBox[{"eqEoSp", "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]maxp"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+    RowBox[{"{", 
+     RowBox[{"pmaxp", ",", "\[Rho]maxp"}], "}"}]}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"rin", "=", "0.00001"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"listeosp", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"EoSPol", "[", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"EoSPol\[Epsilon]", "[", "]"}], "/.", 
+         RowBox[{"\[Rho]", "\[Rule]", 
+          RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "0", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]intp", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeosp", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pintp", "=", 
+   RowBox[{"Interpolation", "@", 
+    RowBox[{"(", 
+     RowBox[{"listeosp", "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", "zz", ")"}], "/", 
+          RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+     ")"}]}]}], ";"}]}], "Code",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, {3.751607932618657*^9, 3.751607933958827*^9}, {
+   3.751608033132338*^9, 3.751608042127693*^9}, {3.751970651517004*^9, 
+   3.751970687962496*^9}, {3.751971012291362*^9, 3.7519710290350523`*^9}, {
+   3.751971151475252*^9, 3.7519711521238823`*^9}, 3.7519713071402197`*^9, {
+   3.751973792060257*^9, 3.751973797895812*^9}, {3.751973947316868*^9, 
+   3.751973948893642*^9}, {3.751978520888773*^9, 3.751978522452734*^9}, {
+   3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
+   3.756792281031231*^9}, {3.757660763658102*^9, 3.7576608573176537`*^9}, {
+   3.760426025013876*^9, 3.760426025166932*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.0004921814252195873`", ",", "0.001476544275656867`"}], "}"}]}],
+  
+  SequenceForm[
+  "{pmax, \[Rho]max} = ", {0.0004921814252195873, 0.001476544275656867}],
+  Editable->False]], "Print",
+ CellChangeTimes->CompressedData["
+1:eJwVz11IU2EAxvGplbPEUQ0b1USFMXA1zdRltMmZzGSulootygZpaYS0ycRa
+NQf5UVs2spGttFhzGlo5ShQxP1AqmZ1E7CIFKz0Fpb1F0JoX6uo5Fw+/q//F
+k1BiKDgTxuFwCrAmi1gq+feDiotW6Fhzxf7nafBUVO1LPRyMl243Q5cmpuo6
+nD/W5bRBta1zsxeqBlIvsxb6TmyZgl81a5GFHEI1ejaZamHdW2ae1TrS0t0A
+ba/oB23wdnOScBZOZs79DELXnC3Aym8WxvHCCGUuf2OLhRcedZRug+p+X7oA
+5nKTZ+LhXevsUTF0mdemJFD07kriHqggPYY8mBrjOWmFVUxPfTuUWe7kTMCy
+4LOIAMyx9cqLwgl171brZyPc1btY/BA6LedGh2Go76OShtHemYmkCEIVu+tX
+d8Pmer1aCv0DSzUHYc5hgdwEn5bRWS5YlJhZPQ7/8LhjITj2S6SNXYd+Z69I
+BZemP+krIU1M11jTxTqHdj2hNDv2rlTArvcpl0xQarxR4YVLh8YrO2BWP/f+
+ELTzqRUaEr/S8A0GJWb51g2ECt/X7TgAvws8bgpO5z/5wGp8bcguh9WyhZAR
+SvnBxYvwZs3KXwdk8o7YnZA7sywfhIRmjrPaZa6GRXg1ubFPHkmoVaE+WgHb
+h0sWdHAyW6YciUIf+D00CluXFU2TsHoqIiNtI6EyrYKETh7+e/NVZ7WEajnN
+uFlTvpDi8/Cx70Ud68D+Uq0BDjEZbaz/Ael5PMc=
+  "],
+ CellLabel->
+  "During evaluation of \
+In[23]:=",ExpressionUUID->"387174a0-e39d-4e4a-9f9e-81ac4cefcb4e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"T", "=", 
+   RowBox[{"\[Rho]", "[", "r", "]"}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"eqEoSpS", "=", " ", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "[", "r", "]"}], "==", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"EoSPol", "[", "\"\<PolMS\>\"", "]"}]}], "/.", 
+        RowBox[{"\[Rho]", "\[Rule]", 
+         RowBox[{"Log", "[", 
+          RowBox[{"10", ",", 
+           RowBox[{"\[Rho]0", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+      "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]maxps", "=", 
+   RowBox[{"Max", "[", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{"T", "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "->", 
+         RowBox[{"eqEoSpS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmaxps", "=", 
+   RowBox[{
+    RowBox[{"eqEoSpS", "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+    RowBox[{
+     RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]maxps"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+    RowBox[{"{", 
+     RowBox[{"pmaxps", ",", "\[Rho]maxps"}], "}"}]}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"rin", "=", "0.00001"}], ";"}], "\n", 
+  RowBox[{"(*", " ", 
+   RowBox[{"Fully", " ", "radiative", " ", "Sun"}], " ", "*)"}]}], "\n", 
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"listeosps", "=", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"EoSPol", "[", "\"\<PolMSMix\>\"", "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"EoSPol\[Epsilon]", "[", "\"\<PolMSMix\>\"", "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", 
+            RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"x", ",", "0", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+    ";", "\[IndentingNewLine]", 
+    RowBox[{"\[Rho]intps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], ";", 
+    "\[IndentingNewLine]", 
+    RowBox[{"pintps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+       ")"}]}]}], ";"}], "*)"}]}]}], "Code",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, {3.751607932618657*^9, 3.751607933958827*^9}, {
+   3.751608033132338*^9, 3.751608042127693*^9}, {3.751970651517004*^9, 
+   3.751970687962496*^9}, {3.751971012291362*^9, 3.7519710290350523`*^9}, {
+   3.751971151475252*^9, 3.7519711521238823`*^9}, 3.7519713071402197`*^9, {
+   3.751973792060257*^9, 3.751973797895812*^9}, {3.751973947316868*^9, 
+   3.751973948893642*^9}, {3.751978520888773*^9, 3.751978522452734*^9}, {
+   3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
+   3.756792281031231*^9}, {3.757660763658102*^9, 3.7576608573176537`*^9}, {
+   3.760426025013876*^9, 3.760426025166932*^9}, {3.761321632136896*^9, 
+   3.7613216910344973`*^9}, 3.761321845101985*^9, 3.761323688676916*^9, {
+   3.761324055552878*^9, 3.7613240563847303`*^9}, {3.761324240554076*^9, 
+   3.761324243139904*^9}, {3.761386741843794*^9, 3.761386742723947*^9}, {
+   3.761388861085012*^9, 3.76138886493277*^9}, {3.761389249527339*^9, 
+   3.761389265400592*^9}},
+ CellLabel->"In[32]:=",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.`", ",", "0.`"}], "}"}]}],
+  SequenceForm["{pmax, \[Rho]max} = ", {0., 0.}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.761389635816077*^9, 3.7614535955765123`*^9, 
+  3.7614735271005*^9, 3.761489743752913*^9, 3.761534895976481*^9, 
+  3.761544274629265*^9, 3.761627632015806*^9, 3.761627863152739*^9, 
+  3.761720372867238*^9, 3.761892788809321*^9, 3.761946379204713*^9, 
+  3.7632066738279543`*^9, 3.763211759698391*^9, 3.7632380260353727`*^9, 
+  3.763446192211947*^9, 3.7663070808354673`*^9, 3.799728682562434*^9, 
+  3.799729415084195*^9, 3.799741159411627*^9, 3.799741477599988*^9, 
+  3.799743099110464*^9, 3.799743769768092*^9},
+ CellLabel->
+  "During evaluation of \
+In[32]:=",ExpressionUUID->"a84cd5ca-f2d0-4f50-b4b2-33f2d4e43472"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Mixed", " ", "model", " ", "for", " ", "the", " ", "Sun"}], " ", 
+   "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"T", "=", 
+     RowBox[{"\[Rho]", "[", "r", "]"}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"eqEoSpS", "=", " ", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "==", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"10", "^", 
+           RowBox[{"EoSPol", "[", "\"\<PolMS\>\"", "]"}]}], "/.", 
+          RowBox[{"\[Rho]", "\[Rule]", 
+           RowBox[{"Log", "[", 
+            RowBox[{"10", ",", 
+             RowBox[{"\[Rho]0", " ", 
+              RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+        "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"\[Rho]maxps", "=", 
+     RowBox[{"Max", "[", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+       RowBox[{"FindRoot", "[", 
+        RowBox[{
+         RowBox[{"T", "/.", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "->", 
+           RowBox[{"eqEoSpS", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"\[Rho]", "[", "r", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
+      "]"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"pmaxps", "=", 
+     RowBox[{
+      RowBox[{"eqEoSpS", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]maxps"}]}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Print", "[", 
+     RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+      RowBox[{"{", 
+       RowBox[{"pmaxps", ",", "\[Rho]maxps"}], "}"}]}], "]"}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"rin", "=", "0.00001"}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"listeosps", "=", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"EoSPol", "[", "\"\<PolMSMix\>\"", "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+           "From\[Rho]To\[Epsilon]Fits", "[", "\"\<PolMSMix\>\"", "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", 
+            RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"x", ",", "0", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+    ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"\[Rho]intps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"pintps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+       ")"}]}]}], ";"}]}]}]], "Code",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, {3.751607932618657*^9, 3.751607933958827*^9}, {
+   3.751608033132338*^9, 3.751608042127693*^9}, {3.751970651517004*^9, 
+   3.751970687962496*^9}, {3.751971012291362*^9, 3.7519710290350523`*^9}, {
+   3.751971151475252*^9, 3.7519711521238823`*^9}, 3.7519713071402197`*^9, {
+   3.751973792060257*^9, 3.751973797895812*^9}, {3.751973947316868*^9, 
+   3.751973948893642*^9}, {3.751978520888773*^9, 3.751978522452734*^9}, {
+   3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
+   3.756792281031231*^9}, {3.757660763658102*^9, 3.7576608573176537`*^9}, {
+   3.760426025013876*^9, 3.760426025166932*^9}, {3.761321632136896*^9, 
+   3.7613216910344973`*^9}, 3.761321845101985*^9, 3.761323688676916*^9, {
+   3.761324055552878*^9, 3.7613240563847303`*^9}, {3.761324240554076*^9, 
+   3.761324243139904*^9}, {3.761386741843794*^9, 3.761386742723947*^9}, {
+   3.761388861085012*^9, 3.76138886493277*^9}, {3.761389199904294*^9, 
+   3.761389275570942*^9}, {3.761389381141817*^9, 3.761389390693115*^9}},
+ CellLabel->"In[38]:=",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.`", ",", "0.`"}], "}"}]}],
+  SequenceForm["{pmax, \[Rho]max} = ", {0., 0.}],
+  Editable->False]], "Print",
+ CellChangeTimes->{{3.761389216177413*^9, 3.761389240065682*^9}, 
+   3.761389276121389*^9, 3.761389405414179*^9, 3.761389831250332*^9, 
+   3.761390600797998*^9, 3.7614535956424837`*^9, 3.761473527183509*^9, 
+   3.761489743805706*^9, 3.7615348960897512`*^9, 3.7615442747558203`*^9, 
+   3.761627632124674*^9, 3.761627863301745*^9, 3.7617203729793377`*^9, 
+   3.761892789001552*^9, 3.7618934952161303`*^9, 3.761946379352502*^9, 
+   3.763206673926786*^9, 3.7632117598455353`*^9, 3.763238026117269*^9, 
+   3.763446192294529*^9, 3.766307080900033*^9, 3.79972868262257*^9, 
+   3.799729415136396*^9, 3.799741159501554*^9, 3.799741477675737*^9, 
+   3.7997430992145433`*^9, 3.799743769818578*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"ca853243-7719-479d-9642-9bee5294e811"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Model", " ", "from", " ", "Enrico"}], " ", "*)"}], "\n", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"T", "=", 
+     RowBox[{
+      RowBox[{"3", " ", 
+       RowBox[{"p", "[", "r", "]"}]}], "-", 
+      RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"eqEoSpS", "=", " ", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"p", "[", "r", "]"}], "==", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"10", "^", 
+           RowBox[{"EoSPol", "[", 
+            RowBox[{"{", 
+             RowBox[{"179103.", ",", "2"}], "}"}], "]"}]}], "/.", 
+          RowBox[{"\[Rho]", "\[Rule]", 
+           RowBox[{"Log", "[", 
+            RowBox[{"10", ",", 
+             RowBox[{"\[Rho]0", " ", 
+              RowBox[{"\[Rho]", "[", "r", "]"}]}]}], "]"}]}]}], ")"}], "/", 
+        "P0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"\[Rho]maxps", "=", 
+     RowBox[{"Max", "[", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "/.", 
+       RowBox[{"FindRoot", "[", 
+        RowBox[{
+         RowBox[{"T", "/.", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], "->", 
+           RowBox[{"eqEoSpS", "[", 
+            RowBox[{"[", 
+             RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"\[Rho]", "[", "r", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
+      "]"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"pmaxps", "=", 
+     RowBox[{
+      RowBox[{"eqEoSpS", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+      RowBox[{
+       RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]maxps"}]}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Print", "[", 
+     RowBox[{"\"\<{pmax, \[Rho]max} = \>\"", " ", ",", 
+      RowBox[{"{", 
+       RowBox[{"pmaxps", ",", "\[Rho]maxps"}], "}"}]}], "]"}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"rin", "=", "0.00001"}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{"listeosps", "=", 
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"EoSPol", "[", 
+            RowBox[{"{", 
+             RowBox[{"179103.", ",", "2"}], "}"}], "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", "x"}]}], ")"}], ",", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"EoSPol\[Epsilon]", "[", 
+            RowBox[{"{", 
+             RowBox[{"179103.", ",", "2"}], "}"}], "]"}], "/.", 
+           RowBox[{"\[Rho]", "\[Rule]", 
+            RowBox[{"10", "^", "x"}]}]}], ")"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"x", ",", "0", ",", "16", ",", "0.01"}], "}"}]}], "]"}]}], 
+    ";"}], "\n", 
+   RowBox[{
+    RowBox[{"\[Rho]intps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}], ",", 
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", "\[Rho]0", ")"}]}]}], "}"}]}]}], ")"}]}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"pintps", "=", 
+     RowBox[{"Interpolation", "@", 
+      RowBox[{"(", 
+       RowBox[{"listeosps", "/.", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"yy_", ",", "zz_"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", "zz", ")"}], "/", 
+            RowBox[{"(", " ", "\[Rho]0", ")"}]}], ",", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"10", "^", "yy"}], ")"}], "/", "P0"}]}], "}"}]}]}], 
+       ")"}]}]}], ";"}]}]}]], "Code",
+ CellChangeTimes->{{3.727008422010909*^9, 3.7270086007439337`*^9}, {
+   3.7270086877463408`*^9, 3.727008703493436*^9}, {3.731302268620392*^9, 
+   3.7313022792599497`*^9}, {3.7313027521692657`*^9, 
+   3.7313027544392147`*^9}, {3.731304314472582*^9, 3.731304441192816*^9}, {
+   3.731735345613079*^9, 3.731735345742222*^9}, {3.734068252319124*^9, 
+   3.734068306806117*^9}, 3.734068678404808*^9, {3.73406871889307*^9, 
+   3.734068723770665*^9}, {3.734069036301003*^9, 3.734069045529524*^9}, {
+   3.7340691459084682`*^9, 3.734069202515676*^9}, {3.73406935734336*^9, 
+   3.734069357759692*^9}, {3.734069857128277*^9, 3.73406988203631*^9}, {
+   3.734074910315278*^9, 3.7340749234258127`*^9}, {3.7340939710774937`*^9, 
+   3.734093975122863*^9}, {3.734147256953299*^9, 3.734147273684791*^9}, {
+   3.7341684959476833`*^9, 3.734168517218947*^9}, 3.734177263730288*^9, 
+   3.734180727893869*^9, {3.7343432062647667`*^9, 3.7343433144394197`*^9}, {
+   3.7343434520066442`*^9, 3.734343457260149*^9}, {3.738227138499681*^9, 
+   3.7382271419792624`*^9}, {3.7383672260418673`*^9, 3.738367226166401*^9}, {
+   3.738367511724197*^9, 3.738367511777093*^9}, 3.738422055821927*^9, 
+   3.750991396075021*^9, {3.751607932618657*^9, 3.751607933958827*^9}, {
+   3.751608033132338*^9, 3.751608042127693*^9}, {3.751970651517004*^9, 
+   3.751970687962496*^9}, {3.751971012291362*^9, 3.7519710290350523`*^9}, {
+   3.751971151475252*^9, 3.7519711521238823`*^9}, 3.7519713071402197`*^9, {
+   3.751973792060257*^9, 3.751973797895812*^9}, {3.751973947316868*^9, 
+   3.751973948893642*^9}, {3.751978520888773*^9, 3.751978522452734*^9}, {
+   3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
+   3.756792281031231*^9}, {3.757660763658102*^9, 3.7576608573176537`*^9}, {
+   3.760426025013876*^9, 3.760426025166932*^9}, {3.761321632136896*^9, 
+   3.7613216910344973`*^9}, 3.761321845101985*^9, 3.761323688676916*^9, {
+   3.761324055552878*^9, 3.7613240563847303`*^9}, {3.761324240554076*^9, 
+   3.761324243139904*^9}, {3.761386741843794*^9, 3.761386742723947*^9}, {
+   3.761388861085012*^9, 3.76138886493277*^9}, {3.761389199904294*^9, 
+   3.761389275570942*^9}, {3.761389381141817*^9, 3.761389390693115*^9}, {
+   3.7618953897201843`*^9, 3.761895445783152*^9}, {3.7618962408612337`*^9, 
+   3.761896262179117*^9}, {3.761896674085622*^9, 3.761896704875496*^9}, {
+   3.761896750903027*^9, 3.761896751223851*^9}, {3.761909158931108*^9, 
+   3.761909164775187*^9}},
+ CellLabel->"In[47]:=",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"{pmax, \[Rho]max} = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"0.0009033470933325754`", ",", "0.0027100412799977262`"}], "}"}]}],
+  SequenceForm[
+  "{pmax, \[Rho]max} = ", {0.0009033470933325754, 0.0027100412799977262`}],
+  Editable->False]], "Print",
+ CellChangeTimes->{
+  3.761895526935074*^9, {3.76189624528238*^9, 3.761896272532007*^9}, {
+   3.7618966746362553`*^9, 3.761896751697341*^9}, 3.761909165431896*^9, 
+   3.761946384291409*^9, 3.763206677974258*^9, 3.763211764413743*^9, 
+   3.763238030483203*^9, 3.763446197063313*^9, 3.7663070850012903`*^9, 
+   3.799728686510469*^9, 3.7997294194383993`*^9, 3.7997411634376593`*^9, 
+   3.799741481644096*^9, 3.799743103196538*^9, 3.7997437739658003`*^9},
+ CellLabel->
+  "During evaluation of \
+In[47]:=",ExpressionUUID->"a092876b-0262-4cc7-a80b-027026a449cb"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["TOV equations", "Subsection",
+ CellChangeTimes->{{3.757660613435644*^9, 
+  3.757660621783389*^9}},ExpressionUUID->"5d30e1c1-8625-4a00-be98-\
+1c819cd86f4c"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"Doneva", " ", "eqs", " ", "tested", " ", "100", " ", 
+    RowBox[{"times", ".", " ", "They"}], " ", "are", " ", 
+    RowBox[{"correct", ".", " ", "fR"}], " ", "and", " ", "fR"}], "-", 
+   RowBox[{"JF", " ", "exactly", " ", 
+    RowBox[{"equal", ".", " ", "There"}], " ", "are", " ", "some", " ", 
+    RowBox[{"diffs", ".", " ", "with"}], " ", "respecte", " ", "EF"}], "-", 
+   RowBox[{
+    RowBox[{"JF", ".", " ", "To"}], " ", 
+    RowBox[{"check", "!"}]}]}], "  ", "*)"}]], "Input",
+ CellChangeTimes->{{3.75904370256964*^9, 3.7590437670911713`*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqs", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Phi]", "\[Prime]",
+           MultilineFunction->None], "[", "r", "]"}], "-", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], 
+          SqrtBox["3"]]}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", " ", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"1", "-", 
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"-", 
+               FractionBox[
+                RowBox[{"2", " ", 
+                 RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+                SqrtBox["3"]]}]]}], ")"}], "2"], 
+          RowBox[{"8", " ", "a"}]], "-", 
+         FractionBox["1", 
+          SuperscriptBox["r", "2"]], "+", 
+         FractionBox[
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], 
+          SuperscriptBox["r", "2"]], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"-", 
+            FractionBox[
+             RowBox[{"4", " ", 
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+             SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "2"]}]}], ")"}]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"2", " ", 
+         RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          FractionBox[
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"1", "-", 
+              SuperscriptBox["\[ExponentialE]", 
+               RowBox[{"-", 
+                FractionBox[
+                 RowBox[{"2", " ", 
+                  RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+                 SqrtBox["3"]]}]]}], ")"}], "2"], 
+           RowBox[{"8", " ", "a"}]]}], "+", 
+         FractionBox[
+          RowBox[{"1", "-", 
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{
+             RowBox[{"-", "2"}], " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}]]}], 
+          SuperscriptBox["r", "2"]], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"-", 
+            FractionBox[
+             RowBox[{"4", " ", 
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+             SqrtBox["3"]]}]], " ", "\[Pi]", " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "2"]}]}], ")"}]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[CurlyPhi]", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"12", " ", "a", " ", "r"}]], 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{"4", " ", 
+           RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+          SqrtBox["3"]]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SqrtBox["3"]}], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "r"}], "+", 
+         RowBox[{
+          SqrtBox["3"], " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+            FractionBox[
+             RowBox[{"2", " ", 
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+             SqrtBox["3"]]}]], " ", "r"}], "+", 
+         RowBox[{"48", " ", 
+          SqrtBox["3"], " ", "a", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"16", " ", 
+          SqrtBox["3"], " ", "a", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+         RowBox[{"24", " ", "a", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"12", " ", "a", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{"12", " ", "a", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"4", " ", 
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+            SqrtBox["3"]]], " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}], 
+    "}"}]}], ";"}]], "Code",
+ CellChangeTimes->{
+  3.751979292207634*^9, {3.757690174530313*^9, 3.757690177932436*^9}, {
+   3.757690209589861*^9, 3.757690314031863*^9}, {3.757696861324963*^9, 
+   3.7576968892999287`*^9}, {3.757697014385922*^9, 3.7576970147638474`*^9}, 
+   3.7576972963403177`*^9, 3.7579025845997257`*^9},
+ CellLabel->"In[57]:=",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqsfr", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], "+", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}]}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ",", " ", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "2"}], "-", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}], "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{"2", "+", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "+", 
+         RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"4", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{"R", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "2"}], "-", 
+         RowBox[{"4", " ", "\[Alpha]", " ", 
+          RowBox[{"R", "[", "r", "]"}]}], "-", 
+         RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"4", " ", "r", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", "\[Alpha]", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"24", " ", "\[Pi]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"R", "[", "r", "]"}], "-", 
+           RowBox[{"8", " ", "\[Pi]", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"6", " ", "\[Alpha]"}]], "-", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox["2", "r"], "+", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], "-", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}]}]}], 
+    "}"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.7531678252387247`*^9, 3.75316783938527*^9}, {
+  3.753167877928731*^9, 3.75316788072552*^9}, {3.753168121674694*^9, 
+  3.753168140971047*^9}, {3.757463917913837*^9, 3.7574639189293222`*^9}, {
+  3.757660958788515*^9, 3.75766097717794*^9}, {3.757674503378913*^9, 
+  3.757674504522341*^9}, {3.757674779274324*^9, 3.757674786943243*^9}, {
+  3.757690448554556*^9, 3.757690454050997*^9}},
+ CellLabel->"In[58]:=",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqsSTJF", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ",", " ", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["r", "2"], "+", 
+           RowBox[{"64", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "-", 
+           RowBox[{"2", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+           RowBox[{"8", " ", "\[Alpha]", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", 
+            SuperscriptBox[
+             RowBox[{"\[Phi]", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Phi]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"8", " ", "\[Alpha]", " ", 
+          RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+         RowBox[{"16", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Phi]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["r", "2"]}], "+", 
+           RowBox[{"64", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", "\[Alpha]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "+", 
+           RowBox[{"2", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{"8", " ", "\[Alpha]", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["r", "2"], " ", 
+            SuperscriptBox[
+             RowBox[{"\[Phi]", "[", "r", "]"}], "2"]}]}], ")"}]}], 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Phi]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "8"}], " ", "\[Alpha]", " ", 
+          RowBox[{"\[Phi]", "[", "r", "]"}]}], "-", 
+         RowBox[{"16", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"8", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Phi]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "r"}], "+", 
+           RowBox[{"48", " ", "\[Pi]", " ", "r", " ", "\[Alpha]", " ", 
+            RowBox[{"p", "[", "r", "]"}]}], "-", 
+           RowBox[{"16", " ", "\[Pi]", " ", "r", " ", "\[Alpha]", " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{"\[Phi]", "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"6", " ", "r", " ", "\[Alpha]"}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "12"}], " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[Phi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], 
+        RowBox[{"6", " ", "r", " ", "\[Alpha]"}]]}]}]}], "}"}]}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.757148396960803*^9, 3.7571483991549397`*^9}, {
+   3.757148534650909*^9, 3.75714855163094*^9}, {3.757148587615992*^9, 
+   3.757148589123782*^9}, {3.757148819728017*^9, 3.757148820088105*^9}, {
+   3.757661029150894*^9, 3.757661060775219*^9}, 3.757674507986676*^9, 
+   3.7576754535421677`*^9, {3.757681086510957*^9, 3.757681088097351*^9}, {
+   3.757681282484675*^9, 3.7576812834152603`*^9}, 3.757681341349505*^9, {
+   3.757681422973255*^9, 3.757681424648437*^9}, 3.7576814967951612`*^9, {
+   3.759034912595289*^9, 3.759034914951844*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqs\[Beta]", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "3"]}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "+", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"3", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{
+          SqrtBox["3"], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"4", " ", "r"}]], 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "4"}], " ", "\[Beta]", " ", 
+         SuperscriptBox[
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"4", " ", "\[Beta]", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]]}], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+            RowBox[{"4", " ", "\[Beta]", " ", 
+             SuperscriptBox[
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]}]]}], "+", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+             RowBox[{"4", " ", "\[Beta]", " ", 
+              SuperscriptBox[
+               RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]}]], " ", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"1", "-", 
+              SuperscriptBox["\[ExponentialE]", 
+               RowBox[{"-", 
+                FractionBox[
+                 RowBox[{"2", " ", 
+                  RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+                 SqrtBox["3"]]}]]}], ")"}], "2"], " ", 
+           SuperscriptBox["r", "2"]}], 
+          RowBox[{"4", " ", "a"}]], "+", 
+         RowBox[{"16", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"4", " ", "\[Beta]", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "2"]}]}], ")"}]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", 
+         RowBox[{"4", " ", "r"}]]}], 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "4"}], " ", "\[Beta]", " ", 
+         SuperscriptBox[
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"4", " ", "\[Beta]", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]]}], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+            RowBox[{"4", " ", "\[Beta]", " ", 
+             SuperscriptBox[
+              RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]}]]}], "+", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["\[ExponentialE]", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              RowBox[{"\[Lambda]", "[", "r", "]"}]}], "+", 
+             RowBox[{"4", " ", "\[Beta]", " ", 
+              SuperscriptBox[
+               RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]}]], " ", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"1", "-", 
+              SuperscriptBox["\[ExponentialE]", 
+               RowBox[{"-", 
+                FractionBox[
+                 RowBox[{"2", " ", 
+                  RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], 
+                 SqrtBox["3"]]}]]}], ")"}], "2"], " ", 
+           SuperscriptBox["r", "2"]}], 
+          RowBox[{"4", " ", "a"}]], "-", 
+         RowBox[{"16", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", 
+          SuperscriptBox["r", "2"], " ", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"4", " ", "\[Beta]", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+          SuperscriptBox["r", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{
+            SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], "2"]}]}], ")"}]}]}], 
+     ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[CurlyPhi]", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"4", " ", "r"}]], 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"-", "8"}], " ", 
+         SuperscriptBox[
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"192", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", 
+          RowBox[{"p", "[", "r", "]"}], " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], "-", 
+         RowBox[{"64", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", "\[Pi]", " ", "r", 
+          " ", 
+          RowBox[{"\[Rho]", "[", "r", "]"}], " ", 
+          RowBox[{"\[CurlyPhi]", "[", "r", "]"}]}], "-", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"8", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "-", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"8", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["w", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"8", " ", 
+            SuperscriptBox[
+             RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "2"]}]], " ", "r", " ", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}], " ", 
+          RowBox[{
+           SuperscriptBox["\[CurlyPhi]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}]}], 
+    "}"}]}], ";"}]], "Code",
+ CellChangeTimes->{{3.7599327430202103`*^9, 3.759932755522725*^9}, 
+   3.76147915291782*^9},
+ CellLabel->"In[60]:=",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqstor", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{"(", 
+             RowBox[{"4", "+", 
+              RowBox[{
+               SuperscriptBox["r", "2"], " ", 
+               RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}], "-", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "-", 
+           FractionBox[
+            RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+             SuperscriptBox[
+              RowBox[{
+               SuperscriptBox["R", "\[Prime]",
+                MultilineFunction->None], "[", "r", "]"}], "2"]}], 
+            RowBox[{"2", "+", 
+             RowBox[{"4", " ", "\[Alpha]", " ", 
+              RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        FractionBox[
+         RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"16", " ", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"], " ", 
+             RowBox[{"p", "[", "r", "]"}]}], "+", 
+            RowBox[{"\[Alpha]", " ", 
+             RowBox[{"R", "[", "r", "]"}], " ", 
+             RowBox[{"(", 
+              RowBox[{"4", "+", 
+               RowBox[{
+                SuperscriptBox["r", "2"], " ", 
+                RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}]}], ")"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}]]}], 
+       RowBox[{"4", " ", "r"}]]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "3"}], 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox[
+           RowBox[{"\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{
+              SuperscriptBox["R", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}], "2"]}], 
+           RowBox[{"1", "+", 
+            RowBox[{"2", " ", "\[Alpha]", " ", 
+             RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], 
+           RowBox[{"(", 
+            RowBox[{
+             FractionBox["3", "r"], "+", 
+             RowBox[{
+              SuperscriptBox["w", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
+         ")"}]}], "+", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox["1", "r"], "+", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "4"}], "+", 
+           RowBox[{
+            SuperscriptBox["\[ExponentialE]", 
+             RowBox[{"2", " ", 
+              RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+            RowBox[{"(", 
+             RowBox[{"4", "+", 
+              RowBox[{
+               SuperscriptBox["r", "2"], " ", 
+               RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}], "-", 
+           RowBox[{"6", " ", "r", " ", 
+            RowBox[{
+             SuperscriptBox["w", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "+", 
+           RowBox[{"2", " ", "r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Lambda]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"2", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]"}]]}]}]}], "}"}]}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.7585862869946136`*^9, 3.758586299856431*^9}, {
+   3.758604413923877*^9, 3.758604426777791*^9}, {3.758604636333692*^9, 
+   3.758604641206093*^9}, {3.758721293058217*^9, 3.758721293168642*^9}, 
+   3.75872143737011*^9, {3.758721534992147*^9, 3.758721561200458*^9}, {
+   3.7587246595182858`*^9, 3.758724660646017*^9}, {3.758725019416073*^9, 
+   3.7587250195285997`*^9}, {3.758725065665159*^9, 3.7587250695247183`*^9}, {
+   3.7587251428373137`*^9, 3.758725164258843*^9}, {3.758725203220972*^9, 
+   3.758725203740741*^9}, {3.7587252464651623`*^9, 3.758725246652759*^9}, {
+   3.75872648028788*^9, 3.75872648831807*^9}, {3.758726655076304*^9, 
+   3.758726660172117*^9}, {3.758726748862101*^9, 3.7587268107376966`*^9}, {
+   3.758726873079336*^9, 3.758726874026079*^9}, {3.7587269874594183`*^9, 
+   3.758726990105516*^9}, {3.758727063934012*^9, 3.75872709089194*^9}, {
+   3.75872787975467*^9, 3.758727885182138*^9}, 3.758728011204338*^9, 
+   3.758728083695305*^9, {3.758728271861187*^9, 3.758728272334424*^9}, 
+   3.758728339278962*^9, {3.759563236226492*^9, 3.7595632368024397`*^9}},
+ CellLabel->"In[61]:=",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqstor4", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{"(", 
+             RowBox[{"4", "+", 
+              RowBox[{
+               SuperscriptBox["r", "2"], " ", 
+               RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}], "-", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "-", 
+           FractionBox[
+            RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+             SuperscriptBox[
+              RowBox[{
+               SuperscriptBox["R", "\[Prime]",
+                MultilineFunction->None], "[", "r", "]"}], "2"]}], 
+            RowBox[{"2", "+", 
+             RowBox[{"4", " ", "\[Alpha]", " ", 
+              RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        FractionBox[
+         RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"16", " ", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"], " ", 
+             RowBox[{"p", "[", "r", "]"}]}], "+", 
+            RowBox[{"\[Alpha]", " ", 
+             RowBox[{"R", "[", "r", "]"}], " ", 
+             RowBox[{"(", 
+              RowBox[{"4", "+", 
+               RowBox[{
+                SuperscriptBox["r", "2"], " ", 
+                RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}]}], ")"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}]]}], 
+       RowBox[{"4", " ", "r"}]]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["R", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "3"}], 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox[
+           RowBox[{"\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{
+              SuperscriptBox["R", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}], "2"]}], 
+           RowBox[{"1", "+", 
+            RowBox[{"2", " ", "\[Alpha]", " ", 
+             RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}], 
+           RowBox[{"(", 
+            RowBox[{
+             FractionBox["3", "r"], "+", 
+             RowBox[{
+              SuperscriptBox["w", "\[Prime]",
+               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
+         ")"}]}], "+", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["R", "\[Prime]",
+          MultilineFunction->None], "[", "r", "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox["1", "r"], "+", 
+          RowBox[{
+           SuperscriptBox["\[Lambda]", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"2", " ", "\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}]}]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "4"}], "+", 
+           RowBox[{
+            SuperscriptBox["\[ExponentialE]", 
+             RowBox[{"2", " ", 
+              RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+            RowBox[{"(", 
+             RowBox[{"4", "+", 
+              RowBox[{
+               SuperscriptBox["r", "2"], " ", 
+               RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}], "-", 
+           RowBox[{"6", " ", "r", " ", 
+            RowBox[{
+             SuperscriptBox["w", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "+", 
+           RowBox[{"2", " ", "r", " ", 
+            RowBox[{
+             SuperscriptBox["\[Lambda]", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         SuperscriptBox["r", "2"], " ", "\[Alpha]"}]]}]}]}], "}"}]}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.7585862869946136`*^9, 3.758586299856431*^9}, {
+   3.758604413923877*^9, 3.758604426777791*^9}, {3.758604636333692*^9, 
+   3.758604641206093*^9}, {3.758721293058217*^9, 3.758721293168642*^9}, 
+   3.75872143737011*^9, {3.758721534992147*^9, 3.758721561200458*^9}, {
+   3.7587246595182858`*^9, 3.758724660646017*^9}, {3.758725019416073*^9, 
+   3.7587250195285997`*^9}, {3.758725065665159*^9, 3.7587250695247183`*^9}, {
+   3.7587251428373137`*^9, 3.758725164258843*^9}, {3.758725203220972*^9, 
+   3.758725203740741*^9}, {3.7587252464651623`*^9, 3.758725246652759*^9}, {
+   3.75872648028788*^9, 3.75872648831807*^9}, {3.758726655076304*^9, 
+   3.758726660172117*^9}, {3.758726748862101*^9, 3.7587268107376966`*^9}, {
+   3.758726873079336*^9, 3.758726874026079*^9}, {3.7587269874594183`*^9, 
+   3.758726990105516*^9}, {3.758727063934012*^9, 3.75872709089194*^9}, {
+   3.75872787975467*^9, 3.758727885182138*^9}, 3.758728011204338*^9, 
+   3.758728083695305*^9, {3.758728271861187*^9, 3.758728272334424*^9}, 
+   3.758728339278962*^9, {3.75889187850662*^9, 3.758891881990465*^9}},
+ CellLabel->"In[62]:=",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"myeqstor2", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["p", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"p", "[", "r", "]"}]}], "-", 
+         RowBox[{"\[Rho]", "[", "r", "]"}]}], ")"}], " ", 
+       RowBox[{
+        SuperscriptBox["w", "\[Prime]",
+         MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Lambda]", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{"2", "+", 
+        RowBox[{"4", " ", "\[Alpha]", " ", 
+         RowBox[{"R", "[", "r", "]"}]}], "-", 
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"2", " ", 
+           RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+         RowBox[{"(", 
+          RowBox[{"2", "+", 
+           RowBox[{"\[Alpha]", " ", 
+            RowBox[{"R", "[", "r", "]"}], " ", 
+            RowBox[{"(", 
+             RowBox[{"4", "+", 
+              RowBox[{
+               SuperscriptBox["r", "2"], " ", 
+               RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}], "-", 
+           RowBox[{"16", " ", "\[Pi]", " ", 
+            SuperscriptBox["r", "2"], " ", 
+            RowBox[{"\[Rho]", "[", "r", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{"4", " ", "r", " ", "\[Alpha]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}], "-", 
+           FractionBox[
+            RowBox[{"3", " ", "r", " ", "\[Alpha]", " ", 
+             SuperscriptBox[
+              RowBox[{
+               SuperscriptBox["R", "\[Prime]",
+                MultilineFunction->None], "[", "r", "]"}], "2"]}], 
+            RowBox[{"2", "+", 
+             RowBox[{"4", " ", "\[Alpha]", " ", 
+              RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+           RowBox[{"r", " ", 
+            RowBox[{
+             SuperscriptBox["R", "\[Prime]\[Prime]",
+              MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
+       RowBox[{"4", " ", "r", " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]]}], ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["w", "\[Prime]",
+        MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", "2"}], "-", 
+        FractionBox[
+         RowBox[{"6", " ", "r", " ", "\[Alpha]", " ", 
+          RowBox[{
+           SuperscriptBox["R", "\[Prime]",
+            MultilineFunction->None], "[", "r", "]"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}]}]], "+", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[ExponentialE]", 
+           RowBox[{"2", " ", 
+            RowBox[{"\[Lambda]", "[", "r", "]"}]}]], " ", 
+          RowBox[{"(", 
+           RowBox[{"2", "+", 
+            RowBox[{"16", " ", "\[Pi]", " ", 
+             SuperscriptBox["r", "2"], " ", 
+             RowBox[{"p", "[", "r", "]"}]}], "+", 
+            RowBox[{"\[Alpha]", " ", 
+             RowBox[{"R", "[", "r", "]"}], " ", 
+             RowBox[{"(", 
+              RowBox[{"4", "+", 
+               RowBox[{
+                SuperscriptBox["r", "2"], " ", 
+                RowBox[{"R", "[", "r", "]"}]}]}], ")"}]}]}], ")"}]}], 
+         RowBox[{"1", "+", 
+          RowBox[{"2", " ", "\[Alpha]", " ", 
+           RowBox[{"R", "[", "r", "]"}]}], "+", 
+          RowBox[{"r", " ", "\[Alpha]", " ", 
+           RowBox[{
+            SuperscriptBox["R", "\[Prime]",
+             MultilineFunction->None], "[", "r", "]"}]}]}]]}], 
+       RowBox[{"4", " ", "r"}]]}], ",", 
+     RowBox[{
+      RowBox[{"R", "[", "r", "]"}], "\[Equal]", 
+      RowBox[{"8", "\[Pi]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"\[Rho]", "[", "r", "]"}]}], "+", 
+         RowBox[{"3", 
+          RowBox[{"p", "[", "r", "]"}]}]}], ")"}]}]}]}], "}"}]}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.758604561543811*^9, 3.758604578502437*^9}, 
+   3.7586046338768387`*^9, {3.758666809181267*^9, 3.758666852939644*^9}, {
+   3.758669914290998*^9, 3.7586699159788847`*^9}, 3.758891337544981*^9, {
+   3.759034918552967*^9, 3.7590349196873207`*^9}},
+ CellLabel->"In[63]:=",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["TOV + shooting solver", "Section",
+ CellChangeTimes->{{3.799749262172282*^9, 
+  3.799749290350068*^9}},ExpressionUUID->"f03bc825-1521-4851-a5f1-\
+6b1883555b64"],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Comparison of all three eqs. for \[Alpha]=10000, \[Beta]=100 (I correct from \
+one frame to other \[Rho]=0.9) \
+\>", "Subsection",
+ CellChangeTimes->{{3.752234605281361*^9, 3.7522346079350986`*^9}, {
+   3.753167070882065*^9, 3.753167090863799*^9}, {3.7531811429438963`*^9, 
+   3.753181146838257*^9}, {3.757147416187327*^9, 3.757147460550118*^9}, {
+   3.757671911245981*^9, 3.757671926111849*^9}, {3.75767223402105*^9, 
+   3.7576722492781773`*^9}, {3.757674083638866*^9, 3.757674084172323*^9}, {
+   3.757756672156261*^9, 3.757756672909164*^9}, {3.7584314309819603`*^9, 
+   3.758431460647915*^9}, {3.75854094907749*^9, 3.758540953951942*^9}, {
+   3.758959848351142*^9, 3.7589598566628942`*^9}, {3.759216333017268*^9, 
+   3.759216334201138*^9}, {3.760348904765798*^9, 3.760348904992159*^9}, {
+   3.7611938141816063`*^9, 3.761193814387906*^9}, {3.761196452310245*^9, 
+   3.761196452439826*^9}, {3.761196637770349*^9, 3.761196637943589*^9}, 
+   3.7611968117273283`*^9, {3.761197001776472*^9, 3.761197002831397*^9}, {
+   3.799728628764008*^9, 3.799728640039735*^9}, {3.799744274066036*^9, 
+   3.7997442876410427`*^9}},ExpressionUUID->"72589bbd-52d7-448c-9e07-\
+de570aaa91a1"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "10000"}], ";", 
+  RowBox[{"\[Beta]val", "=", "100"}], ";", 
+  RowBox[{"\[Rho]0c", "=", "0.9"}], ";", 
+  RowBox[{"rfin", "=", "1000"}], ";"}]], "Input",
+ CellChangeTimes->{{3.758960365001339*^9, 3.758960368896003*^9}, {
+   3.759210811184042*^9, 3.7592108204741783`*^9}, {3.76034857506057*^9, 
+   3.760348575310082*^9}, {3.7603486130275373`*^9, 3.7603486132782927`*^9}, {
+   3.760348908398329*^9, 3.760348908636458*^9}, {3.761191827154107*^9, 
+   3.761191827841091*^9}, {3.761191890895837*^9, 3.7611918911590977`*^9}, {
+   3.761193818491131*^9, 3.761193818611755*^9}, {3.761193928601096*^9, 
+   3.7611939288123703`*^9}, {3.761196458733745*^9, 3.761196458839838*^9}, {
+   3.761196652689629*^9, 3.761196652878489*^9}, 3.7611968315373373`*^9, {
+   3.7611970148462563`*^9, 3.761197038302237*^9}, {3.799728661913889*^9, 
+   3.799728671794139*^9}, {3.799730879155096*^9, 3.799730880599743*^9}, {
+   3.79974114556886*^9, 3.799741145739929*^9}, {3.7997414767027607`*^9, 
+   3.799741479179397*^9}, {3.799741516010109*^9, 3.7997415161976233`*^9}, {
+   3.7997416056403637`*^9, 3.799741606072221*^9}},
+ CellLabel->"In[64]:=",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"rfin", "=", 
+  RowBox[{"Rationalize", "[", 
+   RowBox[{
+    RowBox[{"r", "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"0.5", 
+         RowBox[{
+          RowBox[{"Exp", "[", 
+           RowBox[{
+            RowBox[{"-", "r"}], "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{"6", "\[Alpha]val"}], "]"}]}], "]"}], "/", "r"}]}], 
+        "\[Equal]", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "8"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"6", "\[Alpha]val"}], "]"}]}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "16"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"rfin", "*", "1."}]}], "Input",
+ CellChangeTimes->{{3.761195603094919*^9, 3.7611956904668093`*^9}, {
+  3.761195795828185*^9, 3.761195796417717*^9}, {3.7611964633579073`*^9, 
+  3.7611964649155188`*^9}},
+ CellLabel->"In[65]:=",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+
+Cell[BoxData[
+ FractionBox["10329567735", "4246397"]], "Output",
+ CellChangeTimes->{{3.7611956168221617`*^9, 3.7611956906863327`*^9}, {
+   3.761196460664765*^9, 3.761196465248084*^9}, 3.7611966538801613`*^9, 
+   3.76119683236248*^9, {3.761197017179509*^9, 3.7611970563792973`*^9}, 
+   3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
+   3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
+   3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
+   3.799743786624095*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"3847cf13-919c-4a6b-938a-398839373961"],
+
+Cell[BoxData["2432.548754862063`"], "Output",
+ CellChangeTimes->{{3.7611956168221617`*^9, 3.7611956906863327`*^9}, {
+   3.761196460664765*^9, 3.761196465248084*^9}, 3.7611966538801613`*^9, 
+   3.76119683236248*^9, {3.761197017179509*^9, 3.7611970563792973`*^9}, 
+   3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
+   3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
+   3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
+   3.799743786633514*^9},
+ CellLabel->"Out[66]=",ExpressionUUID->"b3f85246-65e3-41d8-8483-b38b57662aca"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{"fR2Pot", "[", 
+    RowBox[{"R", "+", 
+     RowBox[{"\[Alpha]", " ", 
+      RowBox[{"R", "^", "2"}]}], "+", 
+     RowBox[{"\[Beta]", " ", 
+      RowBox[{"R", "^", "3"}]}]}], "]"}], ",", 
+   RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.79974187887288*^9, 3.799741890365131*^9}, {
+   3.799742736948552*^9, 3.7997427408735332`*^9}, 3.7997428704774427`*^9},
+ CellLabel->"In[74]:=",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"-", "\[Infinity]"}], ",", 
+   RowBox[{"ConditionalExpression", "[", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}], "2"], 
+      RowBox[{"4", " ", "\[Alpha]"}]], ",", 
+     RowBox[{"\[Alpha]", "\[GreaterEqual]", "0"}]}], "]"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.799741879446569*^9, 3.79974189114353*^9}, 
+   3.799742744876916*^9, 3.799742871212757*^9, {3.799743475183888*^9, 
+   3.79974350929755*^9}, {3.7997437913193827`*^9, 3.799743828324107*^9}, 
+   3.799743868817437*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"673921fa-9f44-4817-b066-54a2b4882ccb"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"Evaluate", "[", 
+  RowBox[{
+   RowBox[{"fR2Pot", "[", 
+    RowBox[{
+     RowBox[{"R", "+", 
+      RowBox[{"\[Alpha]", " ", 
+       RowBox[{"R", "^", "2"}]}], "+", 
+      RowBox[{"\[Beta]", " ", 
+       RowBox[{"R", "^", "3"}]}]}], ",", 
+     RowBox[{"Exp", "[", 
+      RowBox[{
+       RowBox[{"2", "/", 
+        RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], "]"}], 
+   "[", 
+   RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
+ CellLabel->"",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"V\[CurlyPhi]", "[", 
+   RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", 
+  RowBox[{"Evaluate", "[", 
+   RowBox[{
+    RowBox[{"fR2Pot", "[", 
+     RowBox[{
+      RowBox[{"R", "+", 
+       RowBox[{"\[Alpha]", " ", 
+        RowBox[{"R", "^", "2"}]}], "+", 
+       RowBox[{"\[Beta]", " ", 
+        RowBox[{"R", "^", "3"}]}]}], ",", 
+      RowBox[{"Exp", "[", 
+       RowBox[{
+        RowBox[{"2", "/", 
+         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], "]"}], 
+    "[", 
+    RowBox[{"[", "2", "]"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799730870251994*^9, 3.799730895228208*^9}, {
+  3.799732747894565*^9, 3.799732748072727*^9}, {3.799733596198909*^9, 
+  3.799733596378071*^9}, {3.79974056343463*^9, 3.799740566744836*^9}, {
+  3.7997424139592133`*^9, 3.799742427434136*^9}, {3.799743280090276*^9, 
+  3.799743280264242*^9}, {3.799743568973083*^9, 3.7997435857595987`*^9}, {
+  3.799743901444808*^9, 3.799743902574534*^9}},
+ CellLabel->"In[75]:=",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"V\[CurlyPhi]2", "[", "\[Alpha]_", "]"}], ":=", 
+  RowBox[{"Evaluate", "[", 
+   RowBox[{"fR2Pot", "[", 
+    RowBox[{"R", "+", 
+     RowBox[{"\[Alpha]", " ", 
+      RowBox[{"R", "^", "2"}]}]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7997425031634293`*^9, 3.799742513873288*^9}, {
+   3.7997432952008142`*^9, 3.7997432956633463`*^9}, 3.799743337061818*^9},
+ CellLabel->"In[76]:=",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"V\[CurlyPhi]2", "=", 
+  RowBox[{"Limit", "[", 
+   RowBox[{
+    RowBox[{"V\[CurlyPhi]", "[", 
+     RowBox[{"\[Alpha]val", ",", "\[Beta]"}], "]"}], ",", 
+    RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799743378040703*^9, 3.7997433895391693`*^9}, {
+  3.7997435956997347`*^9, 3.799743596142418*^9}, {3.799743641480315*^9, 
+  3.799743642210538*^9}, {3.799744130965465*^9, 3.799744134155665*^9}},
+ CellLabel->
+  "In[145]:=",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"4", " ", "\[CurlyPhi]"}], 
+      SqrtBox["3"]]}]], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      SuperscriptBox["\[ExponentialE]", 
+       FractionBox[
+        RowBox[{"2", " ", "\[CurlyPhi]"}], 
+        SqrtBox["3"]]]}], ")"}], "2"]}], "40000"]], "Output",
+ CellChangeTimes->{{3.799743375946844*^9, 3.799743390454073*^9}, 
+   3.799743597056731*^9, 3.7997436428651037`*^9, 3.799743907040793*^9, 
+   3.799744134816084*^9},
+ CellLabel->
+  "Out[145]=",ExpressionUUID->"70a0d93b-5686-4212-8bd8-09e2583efa57"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"V\[CurlyPhi]", "[", 
+      RowBox[{"\[Alpha]val", ",", "\[Beta]val"}], "]"}], ",", 
+     "V\[CurlyPhi]2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[CurlyPhi]", ",", "0.01", ",", "100"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.799742438066886*^9, 3.79974259450834*^9}, {
+   3.799742636257197*^9, 3.799742720433209*^9}, {3.799742785133676*^9, 
+   3.799742886271351*^9}, 3.7997430156088943`*^9, {3.79974329952827*^9, 
+   3.799743372016027*^9}, {3.799743601800734*^9, 3.799743696787794*^9}, {
+   3.799744137148329*^9, 3.7997441398878193`*^9}},
+ CellLabel->
+  "In[146]:=",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV13c81d8bAHBUqMjelE1G9rru59zH3kKSrMjoq+wiIQktm6TInhXZW1mJ
+SknISiFlk829kt/9/XVf79f5vD7nfJ77nOc5R+Cit4UrFQUFBd0BCor//1or
+PZJYD44kFJas/1w1k0KxuTlb9/ryCSdsRa+sIg/0c9c08bBWJcEw8sXLa6RI
+dFPUROwzbyMhj1D/n2VtMop5VuBguNtKCBxwWrBdzEajr/NPSs92EN4MrFLn
+v3uGxPrzNhi+viMwfHnluvSrHF2bzW1Za/tIsKTy07k1XYMm/5m9vXyul6DY
+dHRs17oJ3X/QKzFm0kcIX9E0G05pRadYzRJMtAcIVL8PqjwqfoNCTp62lZUb
+JtwOKM0Ww39AdC8Kd4IOTRCiE+9oBCsPIEdvt+IqiknCZhrr9wa6QVSlKOqw
+uDtJYKH5sUExPYRsWgre2K9NEZJW7lUwp39DRQP5cTA+QxghLjerBE8izf1c
+YeqGPwTR+bSxObtZZHix4soJmxXCr4eq/son59CGNtPbpqEVQqXv/c93V+eQ
+/pEv1zf6VglJ1lKx8/4LaDnZ7Lvr+3VCVfYMV4HxMnpyvVyZSm+DMJPeSezb
+XkaaNowJmR0bhO6HPF+/ZP5Bj070ag61bBJG5w9UnPJZQfgXp5/p124TznC7
+5zunrqLpmDLK3wo7BMMgxTMdP1ZRgjeD7e2KHQKPjuZ7dcE1NKX4mb6xhEj4
+73UUlpC3hmI4ZC5ZSZAI84PZiaGTa0iZFNe6VkQiKEspEQr51lFUi+lVybxd
+gmTsrwedCetIMbf0Yxf/X8JE5/dfX7rW0ffIY6IumX8JI8IVB/B760jWsGc4
+PXWPkBk1WWDhvIGGBkzQsYR9QnjA4I2HfJuIji6hmo+OAjrucrZJG2+il9JE
+A0UzCjgycPCoyo1NtOzTfc1pmAJa/CIfd/RsovgkxSOBvJTwdVL54oXtTSRb
+nZEV50gJbvWP1VKObyHfbe8PTbOU8PH88hqV+xZi5hq50CdFBe9kmJtNYrZQ
+JU5zc9aHChZkLF0dSrfQxk1WfnYiFUSvnMzbWd5CAQcb/H0OH4RTLQwuHM7b
+iENU8Og9k4OgWjsin3pzG9XrRWdnJB6E05XOMScfbyNilH33B65DUJM1NPCo
+axullXQ6TtofAjzXg1O3f2wjXI/M1nbOITBLOzKfurGNQpioBEQkqCGsJ3zD
++/gO4lW4UqvuRQ3Rt+TXcfI76LXlgJFFJTWwXhCpMdXZQf8eFwbcwtHAjaSD
+Be7uO+j2caOPI4a0gD9+zZ75xQ4ShGqnlThaoNgNZvhQv4Panfi2qftpYZhN
+d367cwcdLPgjoGh7GOQj6q+/n9xB+Z3WdYZZh6F2huZqwPIO0pltM3aaOgxb
+5oUSJaQddFcy+XrclSOwldNZ285ERGIme3QFZUegIE00v5iXiN55ueU2rR8B
+mkOVt6XFiOhwpeqn2eCjcPrcTMcRdSKKUf0uqBVDB94Hkm5HOxCRlI1u/fle
+OnCQMttJdyOiT8FlJj6s9JC8NVLp5EVEx1puB2ak0wNlkAwN400iKpuYp6+e
+oIf7TUGL/yKIyIzKMu+D8DF4nSFXWhxFRIk6oj3bJcfAdTjUTv8xEclfinc+
+tnoMElYMvuMziKjv/s6OsBIDKK86uOzkEhHrxw9CFq8Z4NMlpk8fXxKR0fM6
+/KAbIwg81Z/jbyOicjr13ay7jDCfIrqGe0t+3qe5wb2QEcrnnRhl3xPRmPJb
+5b3fjACWKo/Ke4kI0vQ3Ow8xQe0vfxc0QEQFe91VCSJMcCuIiadkiIi8Ovpk
+hV2ZIJhfJ1PyB3k9YlZ/liKZwC7rVThhkohUokde1uUzwa7faqjKLyKisJiQ
+MPrFBO9S2aOH5ogoaXxJ2M+ZGXButk0r60S0pek7pR7BDH0XMDe0RUS2hRs5
+h/KYQY2DdT1gh4iEPXePp/5khhc00bHFf4nofm/o94tULPDy4v2dZ/+IaEmB
+Kl1KkAUoPXIokilIqJZEy9XqxAKKQvGOSgdJiNshZujBbRaor70zvXiIhG61
+MaScyWGBBIRzS6YhIf377CwzEyxwc0fAv+YICY2yCdMfc2SF3DHHShNGEkI3
+irqHbrHCB5duuodMJJQ3JhGVk8UKvIZ3pT4yk5BHnhyN0jgraNx8Y8bDRkK9
+1DVv//1jBZdadXZ5dhJSuqwa+e44GzQmSAshDhL6J0ugtHNgA5Hpc14qXCR0
+Mbm9RSSUDc5MFZuLcJNQ17ZO6J8MNuB0/N15mIeEEpqNd8O/s4G//mBcHS8J
+CRrbbD63Y4fjx/oPl54gobtl36uuhrBDF8GTxpqfhBaYnfywdHawv8KQSSK7
+euTSn95v7GArzeguIUhCnNjCy7RddujEb1DUk30z28vDhYcDqC8eJSIhEtK9
+5D+3bcMB6R4l9WrCJPTiw05RWxAHSDh49r0km+FUiFt0Ggcckptf4REhoWuJ
++8JnGzlAOldLNZLs4Y3wqeOjHKBqVvlhmmy8NXXuLJEDWiYT32mJklBO0wPH
+Si5OcIi7YvaU7MvhCd91znOCraK5N06MhGbzX5G8AznBMKHgRxjZl7pmOdIe
+c0KugK9fO9nTc6xKHbWcEB/kR9gn24VOw2L5KyfkZ81aq4iT0M9Tnt6cm5zw
+n1hq72WyncxTYzRZueDzz6+1qWRPXH373EOBi1w/wrk7yHZIWe1MseCCcQLH
+4Xmyx+r5frX6cgHf9edxR0+SkO03A8qFBC4oMlmoESd7dM//OFs5F4jZyN3X
+INuaP1ed8JkLNA396a3IHtLssXZf5gKbx9bGbmRbuZL8H9Jzw6dWUUM/sgfu
+iT58LcUNu7ihI0Fkn3lhUT5jxA35g8cSb5Ld9zH0E9MVbsCm+H+EkG3258W8
+ehQ3NAwwrF0n+zPTEI3bc26gS4jt9iLbVPGASMI7bogy373kRPZHKxnNxhlu
+sJZ1f3OabKMbthd+UfNAD/7RsBrZH57eCzkmygPxhPnsE2TrN1elqurwgAx9
+KCsl2Z0T47UXXXigKoJB4gc5HjoH6AZiInhgkPPgUC3ZHSKqq7W5PLBB58oQ
+TbamvsuxyTYeqFMce2tDduvlBMmjkzyw5Fq+IEI2IfaVvhIFL9wLbPNZJP9f
++D7WiAeIFxoZ/5pdIbtxA7Kr7Hmh+299pBDZahyer7+H8ILUj553g+T8ULZ7
+uy3XxAt/yroFT5FdHbrKajdKHp/FH+oj55dCDp/8XSIv3HpBn+hDtuy0v8eo
+Ch+UxZ6XyiDnaylt7oOD5/hAjCZgV4JsacmewlMBfPDxktB6JTnfJXxEJ8Or
++SBJ7ca7cvJ+eJ5k8a+knw+E8zrOiZItXhPKM7TGB5zsfX6PBEhIhDR4VlLu
+OMgT2tIukPdXPu+Bq2fNjgOWSDJoJO9HQYJMwi3v41DXEvOenmz+yHsf+l8e
+B5OjRZcy+Ugos7BqZu/jcfi8Xs3xjbyf+d6PHxRfPA4rSkebGMjmPqZKCJE4
+AUsXgn9fINeDJ7IudoUGJ0As595CELlecJxJuNH73wk4wZjzM4aThFifzFYJ
+F50AEX2Gu8nkekOTaJw8zcQP1NIjqhLk+mSzzPj6kyA/PHt6omiEXM9KjL7+
+rlbgh+uCsp7BDOT8onZQiTjLD8chkDuZjoRynQUdL7vxg2+pwoEjR0loo3X6
+vvl1fpDSCtP1OUxeT7D36IlUfjjAf7D4KDUJzQ8rHKB5wQ+NV18UEsj1Fq+8
+I7ncyA+Ud4MqnKhIaHIl7OarMX6oTnjt5Umu1xJuSfzn+QXgZ8CJrIRNIgp5
+Y2UAcgKQnX/WTJDcD3r4efzENAVgmA7zSF8hoqvf8t5sOgvAFYvhNN0FIupU
+/W9x7JoAfIld3742S0ScKVJsHXcE4JW4juX930T0yqzGLalIACT2i8xtxsn9
+t/RG/I16AXj2cO4AxxgROR5F9Y7vBcA9/eZQ9TARHersPCyzIACfP5+piP9C
+RKbqwyXdpwTBleI7dx65f2Y/Sf9aSRAEoeNMOwaviWht0/FfqpkgVPL0tb+r
+J6LH5XOn//MTBLH6kDn9MiKapy8NPB0hCJ+djJL1XhAR/opfjnKyIFAJXvjA
+WUBEEyK7awdrBSHjehyHdBq5v0e08Cx2CgLF3y5Vz2QiipyI0O4fEgQ2niTi
+jTgiOvmULiWHKAhZBs6M67eJyI/xuBrChAB/vb5ViXze6PD86SRiKgQPneUM
+XpLPI+zdhVF0F4Rgysjr6C8rImq6IzM2GiYE3Uk/iPd0yfGYWj/YnigE+q1l
+V1cxcjygXvp5rhAUOSi+YVYiooO7cOt6hxC8PEmJ+QsSkZX1oWcOX4XA39P9
+XiUnET2red+rMy0EWyNvZrOOEZGJj4UgK60w6IYOHIgg7qCU385vy42E4d/T
+iFT57h0kX8Igft1WGPxeX/qa0LKDevyaorArwvD3mU3u06odREPBYvYhShiE
+QxX8ytN2UCB3++jUe2HgpzDmf+Gyg1gnPbEXI+TxthQ2sNpBFUVc2T5zwpAT
+EEMVoLeD5hV9XfdoRaC50W6qSXwH2Z7mX2HXF4E3pr9T7k9vox22jxbfz4mA
+vafX2tbANkoeu16Td0kEPqcduE9q30Yf3T8Hyd4TAS5Tt/lXGdsIRYYeMuwU
+gQOsZY3MptuIv2GM+6a2KFiGHxi8kLqFXt26f1PLUhTq7mSdaQ3bQta6ihOH
+XUTh/mGUVXJpCyX2RxekRIhC7EM/05OKW4hqGSdb3i4KBsvurq+7NtFvwVSd
+KRCDkID5vp2RDRQ+p/3suZkY6LpPSjg2bqDj5StHfBzFYDba/K1T2gaywvR7
+/94SA5vtb4O48xvo3bltG/YWMWDWcqcM7ltHL2LO+hhg4hB+o65RsmYNnc+S
+WXIyFYdbB0Qu8cauIdrKw5eDLoiDIvOLzjaXNXRp6LVz8W1xeLtbpabGsoaE
+BUXP0XeKwzjJrFnLcxVl1m1hX0xPwlKombsw1wpK+vn46HlHCaB3OUjU/jqP
+NDZ97/v6SkD+fFXIt7B5tEJjfCgqXAKyg0S42qXm0Wlpiv3GfAlIi4zdfHRn
+DtEF/rfGOycBN6sKixfUZ9FderWRCV9JkJuMoHRs+Y2CVUcL/4uQAoFjSqN2
+apOo/gXtGblkKWjPfH9gaXsCbfCq7BPzpWDOOslXsm4CeVAmn4vulAIWtlt/
+alQmkMMHE9rSw9KQm3SN7kT4DwR2be7r8dLQNBHatTQ3ikJ6/rC9ypYGe/b6
+Re6bo6gejrdHVkhD0WbJnwKmUSQnEszN3i8Nzwm4yF40ggSXFbtV2U/BcrA3
+h+nzIXQw7JlUaPopkGmcTdd7PYBgbXBY9+Up+E8iZjjCdQCFuBy6w9B8CkKj
+5x3+HRtAm/oXv2ePn4JD7xTf57n2o2km3rg3gjKgzOf1xVmgDwlGGuJiFGRg
+RNLuvm7/F3RhK3DaUlsGovleOpjf/YKGR7+iaVcZcI9wKuz/04ve58X/oX0u
+AwVjAhue2Z8RNXvz0y8NMiAsZx14jP0z0ry/qJf2QQYmGDN4Psf2oEYPg2zJ
+RRlILiGIPIn4hAbTbosXccjCT6uoG+n3ulGXs/rIextZULHKbaBd7EJR5rof
+My7KwrEfRV5/7nUhU4J5i+9lWTho6JJkI9KFBrgvFXAFycKpqtHWFy6daOJL
+kq97qiyI7fe7lWx0oLyWDBcsRxbEdUQ4ZNM7kNvLZ+eYnstC+kAMP7NOB1q6
+34w11MvCrPT9zh9pbxD55n348LAshIzQUPBYtaPX0pt/x8Zl4UlI7wQTbTsK
+46FYKZ+Rhb2oGyxaTW2IZptt0HpbFnxf/eHTEmlDrKUauc/Y5YAvsqlDk6YV
+neJNxemflYNUwS+ylvtNaPVwvjSvvRxoCBFeFN1tQtXbpfwrLnLw9k5d5jJD
+E1Lv76B+ck0OBGYfPFITb0T6USt9Mw/lwHkzq47kVY+OBu6+bXoqBzbNmt78
+h+pRjyt1Q3yeHNRsmB2mzKhDlhq8WSpVcuBa9UZ6+EstctrRu3KvTw5ehlr1
+iZ2uQcLTFg62o3LA5mqS67lWjWb77c1lfsoBmMrQqD+uRl5lV1WGVuWgwcDA
+1/J3FQpyyzogxiQPU19Kz39PqkTJA1tPO0/LA3ewR67LqXLkOMuZrmUtD0aD
+Gywcb8qQ9F9cequjPFixrb45JVWGOoVupTf6yoOg6UpsFHUpIvrRZJQ+lIeL
+XKSBgtFi1Hn3ZIZkujwQw7+cWz9bjJLSjDKe5csDveKE8Mv+F0iqPT4jt0Ye
+incTNXGDz5EDE2dmypA8DHB2VCRvFSFJEVwmy4Q8LJ5auMIXWYR2VO0yE2bl
+gbR8TKiVpQglOmZnRhHlQcuxJFRarRB1lIlnhfIogHyDqlXh03x00lQt2+2C
+ArjffhwcVpeDtpxss6cuKYDxp9QLERdzULv/zWxHHwUIzoqU4GLIQXYZbdk2
+txWATfT1tQmPbBS3aJBjmqcASV9LAhSuZSJbCo+c7mIFoG1oyfk+mYHEWeNy
+9KsVICR4bZJgkYHa1PtyNN8qQFWlhjQJl442omxylWcUIMApd25FIg21Zobk
+Vv1RgH6p8/yHXqai2MrMXNkdBYgqbTjmJ5eKREd/5kocVgSaGF8dCY0n6PzJ
+K3nHJRVBfdxEdjEoBTV3BedTeyvCtbHrI8dOP0SyCYka6wGK0H3EkZJxJwnl
+Whf9GA9VBMqIspyU3CR0Z66PsyFOEUJapCO4/iYi46MSsVdKFeGhMnMUtCag
+5n6ChHWtIoQxDLnUXUtAMulnu7SbFSH5mMO/MIkExCx9m/J4jyJIsT3gmVeI
+RyOmw/69S4rw2P/0SiRDLDLkWGZ+vakIfB58Q44xMejV+IHy53uKsIw5Njw4
+GoOyfWTmw+mVwPzjekkqYzRyS7rroCStBJ5R1smZig/QxldFvTQPJSCgRyA2
+dge5ZRr+untNCbKs6l2cb9xBw26Ot6+GKIFw+i9JO847qGk7usk4RgmqsJY6
+F9tIFM41JbNfrAQYbWsZxWY42pjc+bhQpQRS94zGT2eFI9cXxy4PNylBLkQq
+ChiFI311XH5FtxL8TAn+T6boNmKwT+R0WVAC6gNMDNo+YShMpKjGbF0Jgsty
+S5ZEwtDa0isLbFcJxuMYeT813EKDobMx7EeVIebosod9RihKzyZQvpdQBnti
+58TG7RAk8WtpTvqyMngyF0Q31QWii2MvM9d8laFc61U5g2EgShvwPFN3QxnG
+fxQHGPy4jo6+XXoFD5TBMjQ3yZjuOlosWIo/80wZSksMnpfd9EfCmS+1OcuV
+4Ujs5mXT4/7ILsWTOFanDF+1/Zoftl5Dn+4uXXTrUoZZekPWzcPXUOmlJaUb
+08qwGl4kZVrmh6YvvJzHlpVBbZ1Tz87ODx239syi2lKGUK/TNKNH/FC8/hJt
+zCEV0H97Rv6ohy/yObn0LVNYBcLO+WumIh8kt7B4u+OiCogu8Sy/QR7o8lSJ
+8oPLKoBjyURn266g3G8eCyZ+KqBnd3KNWfcKYv64aDl0WwU6TmoqLJ29jNZK
+FsXms1VgT+UFI3fcf0iioGSs9JkK1Bqo444I/IcuZngkXi1XAbH0NtMfNZdQ
+f+wi6W+LCly8ODrJ+NsNVXstfmIYV4HJo/QazdauaNGtJHxgWgVYdLj0F4gu
+SPiCh0rqsgrYmvWdfJ3ugh6dXswW/KcCFL1jQfIzzihAdvGqEp8qTI01S2XF
+XUSqawtctraqwPSk7nObgCMKYnzz7Z2zKnSPH+DifHYBvTqVlqHsoQqJsSfe
+PmG4gAhX9AWYb6pC2sXYN6Iz9kj3V774+0xVyCu8pvK31hbdpwqZVy5SBb+m
+ftx1OVv0nv9MSX6ZKgQ8URPwL7VBxvaUsmGtquA7tx/2vuw8OjNor6LyUxVu
+FxY6J/ScQ8kbisT8eVV4fJCjcsz2HBpkpmtiXleFrCKZC+YLVsjmdCNaPqAG
+M2kSt6MYrZDjO3bdAhE16F4ZMhS5aom8Gj9bsrirQdG5QefxBHNUPlzIfttX
+DbrSPqfj8OZobevm8PINNWieyomTnjND/gpSdh+i1KD9jiXHKz0zFFJy3/l2
+iRocrujYt5U2Rc0fLoj8qVaDROY8r5WnJmh/VnnG7rUaCP0kumvQm6Bwkd+X
+VXvUIEETkn5tG6EHmRp+f/6owarHTc6eBQP04RWnov2OGlw5uxw35WWA6L79
+2fxAgYONwOBhiw19lMCReaOQCQe/Rbz7maj1UUoCKcxeAQfSKZJZk1q6KD+8
+Kr47AAfb9Anuf05ooeizocvPQnGQNT/QPvFeE/mJG5jcvYuDS3Scumf9NRGh
+58cRjRQcZPclVJf0aqBRriN3a2tw0Jk1Le7wBFDb4sCvh69xoHT4/mK5CaBn
+LVlavm9xkDnkUnzmICB/VyVKqa84wN8uk5uaR4ixwjEkZwMH03x3KiY+4tF2
+hOS30L84MBdorNc1wqMfVltqdgfV4UWG+Ph6tzoq/hu9zc6qDtOrvK9I/Tik
+q1/nF6OgDpIWH/YK91RRyDi9+3U/dWA4kqf1X5kScq4c7rIMUoe84Pn9LyZK
+yPBOnqh8uDqkviQMry0pIg5JtV+Lieog+plDUF1BEVUGuFy4WKEOzRzbfuxf
+5FGqgUwzoUEdTEsOev4XIo/CeEm8fG3qgBXu+KqclEcm7fGjQ73qUI2LXJW7
+J4dm6ZvOmqyog7LfRNKvM7Lo88SdaokddaBgnPrqfkQW1VaZsdBS4OGBhu+t
+q5EyKOL8dG87Ax5Mkys7ta+cQscLmIxVZfBgbMnNvHlWCp3B/6cp5IWHudzg
+764p4khbybD0eQAefCU1N6OOiyPFU1Lcsrfw0LjQo7XzTAyx8q+s4hPwkO2h
+iG51iKKBA4E5VpV4qJgqtmZlE0Edf8/Tf2/Ew5XcCZPTpcKoelP9hvMbPHTZ
+BSjeMhBGj2b2zXwG8FC0feTH4ztCyKr7HkXUFh4ElHUHS1gEkW6HuwfjPh5e
+s1WrxjUJIOXXRsMpNBg83aYR4XMVQBxlDOV5nBgw8I/SCb3mR8NJjy+8xmFQ
+a2odPrN/HNnYFDWvhGJgdKfDJzaZGxmeeSBx/R4GehNXW0nM3AhnfCVlLx6D
+BZnQ0vGHXIgHyXgdycHAjD/ozkQ6JxoTqOMTfoPBQ3HdpOAP7Ogjd+qDF90Y
+6FZWZzrZsqNXLMGbsgMY/HlLD67LbCjjEOET9hsDml2kmM7NhhzmOkPO0SAw
+jjI6XR3Fgkx/Ppv9zoDAiZf2gK8kC0LfoixdOBHQRKVy/PvEjE58MpXyPYkg
+89eqjBsnM5ooH/wWZYTg2UunrbA2RuQUOI1rjkfAWGJ+YaOJDnHm+DXzPkHQ
+culQzWV5OtTz/p9GcDaC92mP7a4WH0V4Hg4D1QoEy9ap2UcKjiD2Zr1zlX0I
+HjTEp1PX0KJP0/2jjN8QmFNGBLxBtCiSwdHBewqB0k1px9oPNGjVMdBVagPB
+jUejBNY5avTxwPOrhWwEcNXY501Gh1CElNL2weME2Hvesjo1fBDhzrYFOYsS
+oN3+3W1u/4OoqHDkNr8KAdK/RTzhqDqAwg2OJKRZE2Al1sDOXpsKqcZfKYl7
+SoAnsew31tz3sT912zJLeQQgNZxYS+7/hxVORFQZlRBAqUdalAb+YSzy6Y20
+rwkQMbQsKSKwhy0PfHwX/oMA+zZSQT+odrGCPWvjyWkCzHJ6djy8TcLsRH9/
+JvwhwO/ctIUqKhL2/vre4N99Agy/uNJCTUfELOgf+zUxAtgtF8+0qG1jpQL2
+1fOsABf5A9YeftjCDisLbXFxAfCKDx8Psd/CWh3KbgQKABQy9hOcHmxi0uVd
+YUryAIe/cyRf3VnHaM/sxJWdAaBvM3mwIrmK1WqoZqWcA2h3cfHDj69gLrKB
+ZTdtAV7VfCP9eLiCtdLvfDZyBnAIX+RmpFzBrr/bZpz1A1jSkLU+8HUJE65T
+EfgcAOCGdjvbTi9hfQXX5WqDAIRXqf36Py5ipyK2zSPDAaZ36fm7Pi1g09h2
+En8SACGV2Wh4bg5LllLJo0kB+KHi2cQRMIdp8lyvWk4FGDFUUrU7OIdl7mz1
+v8oBaOblcu8VncXOVm2xnq8gP/9NqNcvfBrrEN9KSewFeGapPhQRO4X5cSgX
+BQ4AvBgd/SSlPIXxUwfUXRgGqH94esZ24icWMrU5JD1Bvo6Ee7rJqf3EFDI3
+OT/8Adjwarem+juBTcQonaxYBzj3wsREuHwCiwv2V3uyDYArTxVJdZ3A5q03
+z7vtA5Skpsx1PRvHclk206gYNOBcLOXb17e/Y2ZUSsVzzBqwadHCtrI3hv1b
+udbUy64BcucsRL1DxjCbno1vmcc1wGPPM0Mi7BvG9GCDV/2UBnBWLNuH54xg
+Yf/WM6+aaADrn4sL6VqDmHxYi1KZuQa5v9ZM9Q99xX5TRn+cP6sB9JLBxaxe
+XzHDQ4IkJwcNwPw8HWOyBzA2OrOzZt4aEEvllGvE24+9i+VZjL6qAVcXT/3r
+bOnDghhmwruua4BSvxxQufZhE8yh5ShMA7qSnJpTqr9gL7hKjkonagDcD3O1
+vNSL2T29nvvfIw1wrkiInufoxRj4tNTyUzWgQ93EhCr5M3aNf9SNJ1cDFkbM
+k0VcezCCGG374SoNIIxx+x4++REbUHQJnB7QgJG+tZ/zku+wu7UyDIIjGrCe
+Wjf8u7YLU1PdLbD/rgE7pX0WHNpdWKZ6Uv/Abw042npFet2lE3PXbD31ZksD
+tn4NMni3dGC8HdFv/5E0IKu4WmvPpgPr0Tlnh9vXgH2FiNe+O28wRYPlBxU0
+mnCbZWJ6VvUN9u807+8sTvJhYe6aDdfnNqz8y0zwN15NKH7V0DEZ2IY5n6li
+5hDQhDvd+GQj4TbsnZUhxJ3UBKYR962pW63YQ/vApyE4TaB/eYH6WVIzJn5l
+wPy8nSa88O74QY8aMekurjpjR034L1p5wbWrAZMXusALLppgcrv4xqBFA4b/
+Njct6qEJDea8jt+86zFzo/3gjWBNcMuacfRvq8WsirQnZ25pgl8F19lEm1rM
+7kCU7rcITag/1x8eulmDuTWxMrVHa8KgxvSXYtkaLEhSojD+qSaI4Zck/Zuq
+sFv3vI9GZGmCb3nPR/zFKixyqtonII88n5r50OMjVRi5dqnbF2tCbITW+4UL
+lVje0bO9Ek2aMKpd5mnEW4F9XLhFejuqCfdCDyekl7zEvui9vdDwQxMonVol
+fURfYoN5R96W/NSEE7LsV3NzS7AJ20fxD+c1gfDulfVOTjG22f1C2ImkCfEU
+XsoGTc8xktjKA8t/mtC7On53Rfc5RhGp9EePSgtWWYgzBQPPsCP41oZTR7Sg
+bangG9tWEXa85KvpXy4tWJehjmU0K8SEaHmq//BpQTJbpbL0QgEm7uLINSWg
+BWMtdUeZ7xdgCrwLU+9PasHrE78FWLvyMf0YihuP1bTgzrkaNYHzeZivh2Se
+/HktUD5fsUTTlY0F2f6NC7LXgvmVcMdf17KxSMNPQe1OWuBuUbVpIZyNPRH3
+trC4rAX8wo/64xmysNZflZR+wVrAY8l1605rOvahP2Kp4ZYWnDiRutmmkI4N
+tFuOUEZqQUG+dVLZ86fYbPZWeWKMFqTy/tflnpGGMdjjHCsyyPNRONbu5D7B
+OI2PGhNztGBaQVLAVuIJJqg+pqJRqAXtGrv0dNWPMWWuUIYvpVpwPmAjUKon
+BXP42ta80qIFjCE9raq8j7CXJgZ8sj+1YIpydbaMPQmrxXMfDpzWgtsaFscE
+mhOxVsmFjZZ5LUjitn6jdSkRGzgc+/H0uhaol3qMhjQnYH/f9gZ7H9Qm3++0
+upv34zDqmpxLdbTa4CI2w7p7KQ5jzPc7s0+nDZ+iFB2P98diwuGskvFs2rAz
+vnV5siIGM0LWo6Wi2iAwcNJgLD4Ks5Q+2bkloQ1Zg/pZX+ijMAdeUgWS0Yb3
+Vg4ZWnEPMD/S0wc9KtpALDHl8ky5j6XVjqsu62uDdqNxUnz7XWzu1KXH0le0
+4SitCc/DsAhsUIk+3slbG8QS5Wy/CEZgHfiqu4+uagPbB3SurzMcyzTc998L
+Jq/n1kwviSUcs3B7bPkpRhu8Gt1yqdrDMIInZkyZqA3x+Q7X/HzDMKlrU1pK
+j8jvO/E92VUwDKMJl1HIyNAG20nKVF+mW9irjC4mz1JtOCil0p31MQR7nu95
+OKdSG8T/tpMkNUOwlGIWyq+12vBYlLnTvDEY82m4sIJv0QbnNT8P1cogTOTr
+dg9drzZwzTLfFWwJxOLoxGNKVrWB91XF43wtfyyYpSdiYlMbJnBjZy9/v4b9
+x30tmJWkDYR7Wg94blzDNMVbL4dQ6UD4gnciT+1VbFvL2sCYRQcWSPo30nT8
+sF+G/yCMQwd67yauti/5Yn3m+arVPDrgJXKlNvGxL1ZyYUWMV1gHLmaLPqRa
+8cEcg+9TLyrqwB+jjqgGN2/MJPzUvxNqOoAvy7j25rMXhnswsHkG04HfAyf4
+8tS9MNbH/L+bdHQgXzv10kseT+x9Zf2baCsdaJMpEgjbvYzJz8+GSQbqgKjl
+o6EAmUuYXzetHkeIDixzfht273LDKkrE6Q+E6YBh3ZceGSc3TNb7v9TRezog
+OyG3z5LmislszFQ8eKwDJavfhZz4XTCvrzSB/k91IKp22e9YpzNWWiuGnLJ0
+oK/LhMfc0xk7dePSB9UiHdhtuSQZ1HoRk/o3/XOmVgcIHgtH0wOdMI9x6uf9
+jTrAEnSXUlHCCStpFfVuadaBxJN9XyW/O2KSEW67KZ3k+KTUPxDUc8QkaKdZ
+dAd1ICnzkhrdWQdMjPm3dv6mDsh9Xr6TbGmDua0fPJpA1AFbnKfN5R/nscIB
+4S/Bezrw1q8myOLyeUz0sYv9mUO6UNq380TxvjUmzPvLn4pNF6a3z/DqfrPC
+XPYO4Jc5deF6FrZaec0Ky/8hRDXKS7Y0gWeRwQoTynGOqxDWhSfVhkZ5Rmcx
+QdGpQkdFXdCIT10yGjqDXaQ54GmsqgvXGDRVNELPYDmzggqqeF0w8rHk7hQ9
+g/EXX2xh0NYFPHGu82KIBXZC9udQ8xldqOERVpBUM8d4cZO0fFd1QTzWaXVm
+2gRzLI05a39dF96fpje5c9YEKxBUzc0I1gW+V4L3f3caY6eOxqsfj9SFeOIF
+iYYKI4wwhvc68UgXVoSSqHQKDbBIs9nGC6m6sHr4vHP8SQPsXcdDmuwMXZD2
+ecCrWqaPmb2cz+Yv1IXkuHctAW162MXQJ/0CdbogGlU9dZVCFytc0+K/2KQL
+uiMB0UGPdLAFtz8euS26sH8r0uyBlA527bQutdA7XZitVBl/7KiN3eHfUBUe
+IcerbZvdZ1wTe9Z+OlN0Vxc+mzvWWMkCtqi8O++2rwu9zdFWGm8ImFxxoUrR
+AT1ID/hd1CdOwBof7vWK0enBOxrz9Kq/GNbtUnzgJJ8eTH6Z/TH7Vh1jHLEy
+cxfQg7VT8ocnkDpmaUKV8VxEDyy97FsuNeKwMaXzyhKn9CDK20hyu14NW6am
+cZck6IGxgtP9rj4VTD64suaKFnm+yy8n1hxUsOt/7KlK9PSgfo7FzXxJGaMY
+rn4qZaYH6w2uzjcZlTHm5xd7pJ304Cc7G/h5K2JKRs0KshF6cOWRV7//PTns
+Y+qUqfg9PWDLu7v0VUUOuzhLe5k/Wg/2bKvrsuZksYQ7Z7IZH+pBZ2PDJytz
+WWyxZZZuNVcPpkhSr4ydTmERx46JzxXqQS/7GrXJkDTGba+gNflCDwzH2iRa
+T0tj+qSbN75U6oENn0dln54Ulq/IMl3RTv5+mdn4m2ckMPUIVcoXnXog7aR6
+YPbbSazviz1v7gc9qCpbeO7rdhKj8H5mkdSnByXst2Re3RbHbJ9jLX4/9WDB
+hntQolcUYz7+3xMFKn2o9KFuG+kQwqCpskfoiD7g2GJqhpmFMC/rvYOszPow
+Ys50jfuSIPY+Kcl3Q0AfGr8pdd8VEMC2ZL4X/TqpD1Tf6e/o3uPHhD+J/RiQ
+0wej9kiz6V8nsDCa14Y1GvrgMvFsI7ecDyvNp7ldYKAP1nnO3CYFvNiYhkXd
+I3N9qL17xM0hjwdTDZkRCnDSh0N93i1ujVzYnxWmPeXb+lAULfrythE79us1
+tdH+fX2488g5JecuGzYctfukK0EfPKjlKGPesWKtwr8VrbP1YUntUWzfBRas
+enUknP+ZPuSf6J98Vc2MPW/u6Z0t04crBbTEWAZmLMm63uNGiz7QsAW8Zxtk
+xO6KvGzU6NIHr/1PGe4ajFjQWg7tkc/6UHf47JNXzgyYc0x0ftoPfdjbK9Ze
+0qTHFFsdxpr29OE6xmya4XkY47PRDzSmNwCRvQ8rOtU0GPWGHOt3XgOYq+V6
+McpJjS3H8pR7ShmA3XSCoGXqQWxI7JDxP3UDsCYWqvYoHMBa25Zn4owMILXz
+UcadaUrsme1wxAlbAwDis6dfyyiwoPjiJggygL8RtQF+FHv4AP83vkLRBsBO
+KXaNOE7C+9p+E6NON4DLOzc0vWZ28B4a699nSwxAftVfa4plG/+f2NHk7tcG
+UBtE35dzcRPvQi9kWNpjAIJuZjjRL+t4x3UcReK4Aazn0u3x2K/hz7Vc9rCi
+NATND79l2x/8wVsUhAuqMRvCL6oDIsVqS3jT6LRhHiFDsHWRG99nXcAb+lbG
+/VMwhPFpTD6Rcw6ve+6D9qS2Idg/mqu/ojGDx4RI5YVuhiC1aFJP2JnCK/45
+yedx3xCU/ykkL4lM4ltjxff+FBmCklCUk2/rd7yRlNj3q12GQNhpcpD7PIIf
+/CDyenvaEK5+iI166TyIv+gunBFMbQQ2vx/pSXv045dohG7uixjBsr4un/lI
+Lz6wUMA+QscIHqfanrir/glvGCQwctXACDy5Zh411H3E85gKnHUxMQKXviB9
+gvJHfPMmv4nOWSPwqRat5sB14w/q8GM0rkbww7DzyJTte3z81HG+6Ejy+4dY
+igv33+LXzL7qfHtnBJb3xP8SJFrxls3RXpL0xsA5njX5qq0OLyHC4evDZAyO
+uzfOvDKpw1PE5F6tYTOG8cA++bVvtfiX5xsCCceNgWI2VGXwXw2eenM6/IyM
+Mej1Naba21fj6yQ1HwebGwOr2nrS7rUKPHfqTkv3I2PYvVHS3l30HD/Acb7n
+b6oxvFc42fle6jk+NqVhTDrTGJqKy+PZqp/hKZKDiPGFxrDfOht0+X0Rfjru
+r7xlnTFcv/sXN0lfiK+IpCgcGzaGwloO0wubuXh9H9qYJR4T8LzRLrZ2MB3v
+r8dpzZBrAi42gUmjqXF436jSON10U+A0W/qD+3gVnxF38r+s4tNA8fJn3CuD
+c/iah/Qr/pZm8GmO7kpUHYaPtHtemNFrBg8uUw0auQjh5+/UnbI6Zw6WXN/p
+flLS4HOIFHdpv5pDtfxJr4b0JfWVT69KjewtgGX0m8O2xRf1+MWqwvtjFvDa
+f+WD6V6N+mMaUy6982cgWd1zfTI6XV05wsY+ZeIMvPDXvkoYDlMXNcj1GXew
+hJ9Gn9TfJ7iqv/S2O9swYwm+QyxdV7kM1DOSGqpZvc7Ct7e0EQ8mpNW/75tP
+uS+chV3bykpTQxb1mk92U6evWsE4H8oTLNjC/fidWymzZgXKzDoPbg+O4bxJ
+0X8TvM6BRysuuayrHffYe4YjYvMcyA9w74XjC3GMMqFU3letobVUv2YoPga3
+TTTXzfG3hiO/PPCuFDG4Hx0iUf3XrSFQ4ofCm6vRuBKbT0yqIdZQceSuXP3F
+KJzeXV4ByjvWsHJnue+o431c6PdGwsMUa2ApX31g+ykStxi9HVLXYA3+Rmk5
+J0xCcf1W3a1zTdag/HHu80r1TVyjQNZB3mZrsPeUM20+cRN3v043JqzdGhzs
+/aOZ/wXjhKYePTXotgbvnDrXY2M3cDY4xcZvY+TxPUfWF0wBOI1DtP/ox61B
+6Wxuen+uP06895sGTFqD0KnOnpPK/rhN14j3+b+tIex8Yr2s8zVcQmLfsOey
+NVDnHOOL/OqHu25XyJu9Yg2Ps75MLAb44RzEghz71sjri/SukeX2w0m9FphV
+3rYGrn9GgcJuvjiW+5uS7kRrWB+XMm0/5osjWbz3frpLnq/CloqjwQc3wZdR
+9WnPGuTsqne4XH1wXbM+2/v71jBVa9bazuyD+x9eEm2N
+       "]]},
+     Annotation[#, "Charting`Private`Tag$34726#1"]& ], 
+    TagBox[
+     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJxF0Xk01VsUB3CEVDLP43UNlTlz0vntlJAMEZkfKRQZUi9FKDI/0xNPpsxN
+osiQJCpkKBUhJDQQIdO99yd5P6+3bn+d9Vnnu8/eax+pI76Wx5gYGBg2MTIw
+rJ22mlfk54MiMHkn34/fLRTRX/l5S1GvC7H6sz5/fkfeaHTZLHnDnnvY/Zz3
+D0/jEeiCnOmWl2IPMEHPAyGHqlJR/PUi5/3LjzF33R4mx6lr6F194Tal8aeY
+6zEOtcLW62jLm4IFzp5WLHHVMubbx3J0ejy/Ya6xA1Oqbw8K/Xwfjfy0eHbi
+cBemsdIk/8O2DkXHdMkPmr7GFkaqIvvSHiNlPosk073dWGVJf+iVW09Q8DZz
+B9XtfZjVDyHhrXptiP1mMfU8ywfsEVWvOUirG7n4ut+qYBjBfG40nHvA/hZV
+aMg5Ty2PYGzHGG4zfu5F9g1FT5zmxrBku9wi3qwBVNJdmADDX7DOKqsonaAR
+pL+aL8NaO4NpthmkTDqOo/1H7npJ2s9ieffEDupsm0ALe7mf1fXOYjIcT99E
+f59ARhtfnV14/R3LME4fnzoziaZTLYaOPZ/HVB3KsesHptE/Z8u1mAwXMOk4
+N9u3lGmkb8+VlPN0ARPAtHx7cmbQFcku/d6GRaz/W2m9qt8s0rtpft2oioJl
+3uPSd8/4jj7HlzF+UqdiHK38wi3vv6MkX06Hi3epmOJ5zlpEnkNjGi83P7hN
+w5YaAiP/LphD8YIqHjbyOFavM7bh0sgc0sITHs+V4NiBgerxG+LzKLbBLECh
+YBm7RZvKbEuaRxr5dzpaSD+wNF8z5bct82gogkPuaM4PTMC6NhJW5pHq/hd9
+WRkrmMXSUv5htwXU222KOJJWsery+9EZ4ouInT2pUpydASKL4qU0DiyiUiWa
+sYYFA+y64vV417lFNO3Xftq1jwH+8PRh7HixiBJTNDYGijHCZf9FBQ/KIlKt
+zM5NcGGE3mEejxyJJeRP8W2rG2cEX0PVhU3HlxCPcP8frxWZwKK6TOVw/BK6
+p6u/OO7HBHh8t4nnnSW0cIGPJEBjgtHy2ovrZpbQn8y1Z/w2MMOgs4q/jBsF
+CcqRN0WZMoOoU1d/8QUKqjGMu5adzAwOP8zfaKdTEC3Wqb1NmAWePV/1KWqh
+oKu3m11GnFggy/VscPJ7CtJ9obJEyWOBv0rez91coKBgbiYpWXlWUFvMjLkk
+QUVi6l5VO31Y4W7CbnszNSqqP9RtYnmPFcgtp5eOGFDRz/TiP0N11wPlJMP9
+0ONUdFHCpKN/Pxtk7D14QfEmFZGh0nU2gQ1aPI+afqqhoiZXcQrrGzborT53
+kK+FipiLZqQ0HDaA63VW6/ERKipstq3en7sBrH15c9KmqchgvPGA69gGCOqL
+Le/EqShSIfVsgtdGyLJ5LPqFm4a2mK6wF5VtBMsa/4RXYjTU6uOeXze/ERpt
+rjBYb6GhDfd0OseDNoFloHa25k4aitcZIu+JZ4cLPR+H651pSNF+X41dFzuw
+TOp6vnKnoc6gMlM/vs2QGSBu/I8PDXE0XAzMztoMkt2lCiYXaKjsw9fNlR82
+AxPn3+f1ImjIgulQQZsMB2zg5380GUtDyQZyLyi3OeBWn9PDv9JpSM0j0Y3j
+OwcYm9pvvpxNQ6+jqVQZTU4oC+0O21NAQ3wdbdKW9ZwgleIiKnGHhkxuVOu9
+deeCcQ8tqbBGGipn37mcG8kFqTv16rKfEXm/R7XHi7mAV3shLu05DQ1qPdNa
++cQFXDE33ku8oiG4arTYzMINbT8H2su7aahopb0iSZYbtmaPNpP7aMjn6WtV
+mWPc4PAQN7n1nphni83MtwhuWI0bmX0yQkPacf2l1YXcIOE90f/4Iw0xWH6Q
+N/nIDXskPU28vtJQyvA3mVNuPNBUaV2cuUBDS/r+YzvDeeDZj9iimSUacihe
+yGMp4IGy/a8blWk0JHNyWSJjlAd26Ghq+q/QUHRXyNARJl6YOKE7fWaVhr6p
+M2UpknkhYiQl2pMRR1U4m/BjV15If1I2JsyCIxHn+N6Yi7yQG9XT28+Ko9BG
+zjSrPF7gzPHni2XDkVG0AO+XD7zQyPs5tX4Tjt7xy2zmcOGDoWPWkyHcOELn
+Stp7Q/kgaVQ27CUPjgoG5WPzcvngkYbQHj4+HHkXbF+vOcwHfnH5lCABHHWx
+3n/28ycfLMRg93IFcaR5QieiVYIfyH5GSrVCOPqpijE6OvND8zHs1QsRHB1J
+bWqQDeGHn+2p19tFcdRCMQiZyeaH0ELH7AYxHCU9OrB8aYgfVk7+LZoggSPy
+AfvFG44CUC3Fdr5TCkeRZUMVAcECYNUh5RpHxtEkj+upXVkCYBLHkqkvjaPK
+fo+ZrgEBmFMTXMyWwZHQrsnSq8sCwOqxOUpfFkcXrvl4HxUVBEbucPMRwvs8
+zkxQ7AXBv17XkmMLjm62UUsazwuChZ3sTBZhTuVg97irgtCYzhAttxVHfQuX
+xiTeCYJApYeLwjYcnbiUNGRgJwT1pGhdBgUcjRc+xH0DheCG4SwcJ+zRMi54
+NV0I2jvLSl4QPsq+23K6Rwg6/lrPn6iIo1Hlk75Ci0LQC5a2Xwm7HsyI1+cT
+BhdD7zP6SjhyTvvenGYpDKa1JrcmCA/WiH987C8M7dfeUHWUceQwYMw4mSQM
+o86PYy4TtiXl78ReCsNew6s9Aio4srppWf7FRATKa9ZFiani6HVHSCe3lwic
+uJjhYUvYYubm152xIlDaI6adQthMY51sUqsIaHWaTq4S7rBR0X/wRQScFXPn
+1LfjyOScwx8fWUXBOUBV2Z2w0aOKDB0DUWgLw8OeEW7+MFx15KgoVFFNq+YI
+G6xj744PF4UyDZKjhBqO9I2Ocow0igJanVTxJ6z3mi88BomBTCa/E6s6jh4s
+wLUKJzFoSX4fspXwDsGT9UPBYrCDizHAmLCW4zPK9joxiIzLXI4iXBnync/x
+nRi8MuspKCKsnieuFkkTA9xlzqCJsOrnM97vtMWhtKwqk0r4Dlt+DPNhcbi7
+IcaFRwNHSgovipX/FIfAw1d3KxCW95MbuVQpDhpFxWftCcvib60VtkuA1uRc
+SBnhQrF1AdYWEtBENp9vIkzGVJJCfSUgdLaqrocwKSKq7U0pYX91FxrhnOKK
+LysdElAwHme4URNH4s+HmbdOScDipqAMEcIiHDpYsLwkvChJTt5B+B/Vo47F
+xpLgPHlptxFhQaukc12ekrA7Os/XhjDfP+MVMiWS0PtU0daf8PrkA6mfuUlQ
+6xf5Io+w/TRXfSeZBHdzxV+VEr5t0vOpUp0ETEerXWoJW7A6a4dbk2Bl+Yf2
+S8L5bmSXE+4kOJzRGtVPeOHx5+iDZ0lw4Wj/6bG1eYJ830lmkMCZy1tzifDX
+PvV162+SgFz6hXOVsJ4WVWH6AQkyo3KurNfC0chs2IWHgySwmTItEyQs755C
+siNJwXZudFKDcPATG2PYLgW8RxgXdAm/IIme2qIvBb6Bhnq7CQcMFDxZdJOC
+saYcEVPCzTqeU4OnpcBhr8h9S8JCaYr8Ty9LwfG2aWFbwg8t7runlEgB5+m0
+/UcIc9w5l3iuRgpiuTREPAi7bEI1Ls+lYB97Y50XYZbm5g0qk1KQ2R8cdJqw
+2c6+2+3KZJBn6xCOIHztn6yeexgZZK3Ki6IIzy26/MywIENobC5nHOH08glz
+z1NkOClRcimZ8NfNdwLNw8kgUiubkEpYz+tUnlYqGYavBQenE/4guzzHXEWG
+ocssrNmE1cIbRKeayWD8cV9BLuGID+F73/SSwVIgbEs+4W2Z7Gl5NDJQKxPH
+iwmf4pLYgXZJg0mszrEywk9PjrrKmknDRtMky7uEBdqLY9n/kIZ7u04rVRCu
+u6wy+C5MGsxbsu5Ure1jbJ65KVkacrep2NSs7QNqlG7kS8OD1olvtYSZlyH0
+7FNpkOlXnX1I2MaW5bpzjzTEDA84PCJ8/f7zLoPP0hBaPVXbQNjUz5LMxyYD
+OYt7zJsIp31ye1ZuIgMDqe8nm9f+81Rd7C4vGeCxlexrJbyegdeiLVYGXFWS
+89sIw18n+A/flIH3kZGmHYQDRZrejT2XgQjK1oFOwndLhK/5TcgAA3+w6cu1
+/Wr4H1thkwXJjS7FXYQdzEmzAkay0BNZw/OGcMfxl+dVo2Qh4XOLYg9hFBHC
+sr9ZFsasAlffEi7LUUpyY5GDJtvdqX2ESbWDIhf2ykHaerv5fsJM07qq5U1y
+cCxyVWGQ8CdyhsEYbAGPkfbeIcKthyn2Ag1bIOFynvAw4Zvx1n7Gu7ZCR2bD
+pg+EU0bTN9m5yINwOs43SjhI512xZ7giTLc33l4zc9h1xZAsZfCyi+1bc4vb
+zv7n9qowdib105qVxTJ0jay3g1O/5cSaU7uXMpvN1SA+KPrrmreZ7bjm/oc6
+vBqY/c+PWoIKWX01oCqcc3LNCz0ahle9NcFNXeg/y3/8NqF0QgtGKCL/efvk
+1MWnR7RBt1f0P+vMTQo7OOgAA0nsP5/nejLQ6qYDFlK//FD5araWtw6kkH8Z
+8zKS4rmgA4syv7zvY+HW5zk6oLvtl63eOmlrj+rAetVf9nnw8hDv8R3QqPPL
+hZcqEtv/1AV++D+v56kv7aMHg/q/7Br4WfdRIgK5Pb/MZkVNKLMCUPzfYT/n
+cwJMd9O91av7oJ2jPqj8b39vhQI1uz2g9L8nlD3Slbz20q32dTxMIdCAXi+m
+O8ImHrAPlP+3pskjddVwQ3p+ZpZ7ReuiEd3nE2/VwXljujVmtol7R++n1yeO
+SYjHRZjQLZJBbWi/coDe74yhkC1nvim93j/2TsK+LDO6sxO2eebeMqf7/t+b
+Z88csqDXRzjeKM7usqDff71crWxz+CC9Xx6NIZKt5yB9H7OdD++YOFnS84lT
+FcXRg7+dvt5M2NDOim6tcHuntA+/LWec7zfsfIj+fqmvo3Xtl9/OTqmt5POx
+pueHVg+OHZ+0pve/3+k4Zh5gQ5///af8eypzNvS8Lx73I8nn8O95fL8Ihi/+
+NpdKCJNvgC2931QcJbi61pZ+3zLuR1ld/e1/Aaip6Mg=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$34726#2"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{Automatic, Automatic},
+  DisplayFunction->Identity,
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->FrontEndValueCache[{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {5.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.00001, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000015, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.00002, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000025, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-3.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-1.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {4.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {6.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {7.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {8.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {9.*^-6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000011, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000012, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000013, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000014, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000016, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000017, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000018, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000019, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000021, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000022, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000023, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000024, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000026, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000027, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000028, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.000029, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.00003, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {20., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {40., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {60., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {80., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-20., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-15., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-10., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {5., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {10., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {15., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {25., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {30., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {35., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {45., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {50., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {55., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {65., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {70., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {75., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {85., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {90., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {95., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {105., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {110., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {115., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {120., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}}],
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{All, All},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.799728908318083*^9, 3.7997294206137867`*^9, 3.799730897741962*^9, 
+   3.799741113122218*^9, 3.799741206749118*^9, 3.799741270730091*^9, 
+   3.799741482814333*^9, {3.799742441161326*^9, 3.799742598280821*^9}, {
+   3.799742637032835*^9, 3.7997427208564663`*^9}, {3.79974278249749*^9, 
+   3.7997428867291393`*^9}, 3.79974301613666*^9, {3.7997432903368797`*^9, 
+   3.7997433726417303`*^9}, {3.799743589921074*^9, 3.7997436977872047`*^9}, 
+   3.79974390846951*^9, 3.799744140535379*^9},
+ CellLabel->
+  "Out[146]=",ExpressionUUID->"7bada2d9-6367-4955-824d-e8ff7c661ccc"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"xx", "=", 
+  RowBox[{"{", 
+   RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], 
+   "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"DiagonalMatrix", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}], "]"}]}], ",", 
+     RowBox[{"Exp", "[", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], ",", 
+     RowBox[{"r", "^", "2"}], ",", 
+     RowBox[{
+      RowBox[{"r", "^", "2"}], " ", 
+      RowBox[{
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], 
+   "]"}]}]}], "Input",
+ CellChangeTimes->{{3.799743203500659*^9, 3.799743250871842*^9}},
+ CellLabel->
+  "In[147]:=",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
+   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9},
+ CellLabel->
+  "Out[147]=",ExpressionUUID->"087ecfed-9943-4551-b692-661afb206f5c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
+   3.799743707666994*^9, 3.799743910706882*^9, 3.7997442004766207`*^9},
+ CellLabel->
+  "Out[148]=",ExpressionUUID->"ea0c880a-df6d-442d-b50b-47145437344d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"eqsef", "=", 
+   RowBox[{"STTOV", "[", 
+    RowBox[{"xx", ",", "g", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"V\[CurlyPhi]", "[", 
+        RowBox[{"\[Alpha]val", ",", "\[Beta]val"}], "]"}], ",", 
+       "\[CurlyPhi]"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "\[CurlyPhi]"}], "}"}], 
+     ",", "\[Epsilon]p", ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}], ",", 
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}], ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Jordan\>\""}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.799728733247157*^9, 3.7997287364424067`*^9}, 
+   3.7997288832709417`*^9, {3.799728968175254*^9, 3.799728982672014*^9}, {
+   3.799729023508072*^9, 3.799729023890072*^9}, {3.799729459292788*^9, 
+   3.7997294604522047`*^9}, {3.7997299495562067`*^9, 3.799729955516183*^9}, 
+   3.799740556231011*^9, {3.799743258037326*^9, 3.799743285155098*^9}, {
+   3.799743715479664*^9, 3.799743723921689*^9}},
+ CellLabel->
+  "In[149]:=",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
+\"\>"], "Print",
+ CellChangeTimes->{
+  3.799729462231133*^9, 3.7997295350110188`*^9, {3.7997295835423737`*^9, 
+   3.7997296701772346`*^9}, {3.799729712713916*^9, 3.79972973189968*^9}, {
+   3.799729799952426*^9, 3.799729864164646*^9}, {3.799729906612266*^9, 
+   3.799729918098641*^9}, {3.7997299558888493`*^9, 3.799729971163601*^9}, {
+   3.799730003301291*^9, 3.799730020127832*^9}, {3.799730077365672*^9, 
+   3.7997301137051973`*^9}, 3.799730152524106*^9, 3.799730197228074*^9, 
+   3.799730349353533*^9, 3.7997306365091143`*^9, 3.7997307330896997`*^9, 
+   3.799730784453965*^9, 3.799730831967885*^9, 3.7997309038076897`*^9, 
+   3.7997335997251673`*^9, 3.799740556724641*^9, 3.799740658881074*^9, 
+   3.799741115532481*^9, 3.799741207335517*^9, 3.799741271686201*^9, 
+   3.799741341234377*^9, 3.799741483022235*^9, 3.799741519813848*^9, 
+   3.799743269252585*^9, 3.799743724556808*^9, 3.79974391204735*^9, 
+   3.79974420112391*^9},
+ CellLabel->
+  "During evaluation of \
+In[149]:=",ExpressionUUID->"f2034283-f23d-4ae2-a46d-ca0292694df7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", 
+      RowBox[{"(", "eqsef", ")"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{"myeqsa", "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"Max", "[", 
+          RowBox[{
+           RowBox[{"\[Rho]int", "[", 
+            RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}], "/.", 
+       
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], ",", "0"}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", "0", "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"\[CurlyPhi]", "'"}], "[", "rin", "]"}], "\[Equal]", 
+         "0"}]}], "}"}]}], ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"testST", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "\[CurlyPhi]"}], "}"}],
+         ",", "4", ",", 
+        RowBox[{"{", 
+         RowBox[{"1508989", "/", "10000000"}], "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "\[Rho]0c", "}"}]}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.752413203362537*^9, 3.752413224640437*^9}, {
+   3.75241346650229*^9, 3.752413480171154*^9}, {3.7524135649458723`*^9, 
+   3.752413605740526*^9}, {3.752413759764978*^9, 3.7524137647649193`*^9}, {
+   3.757147436108445*^9, 3.75714752868994*^9}, {3.7571476885249357`*^9, 
+   3.757147691120302*^9}, {3.757147727105349*^9, 3.757147777137907*^9}, {
+   3.757147812585622*^9, 3.7571478308864813`*^9}, {3.757148186835968*^9, 
+   3.757148190842628*^9}, {3.757820714840118*^9, 3.757820731952281*^9}, {
+   3.7578207671689463`*^9, 3.75782077362683*^9}, {3.7578208226123037`*^9, 
+   3.757820826477024*^9}, {3.757820950983934*^9, 3.757820983849414*^9}, {
+   3.757821026048717*^9, 3.757821026703146*^9}, {3.7578210648635597`*^9, 
+   3.7578211626559772`*^9}, {3.757821584112419*^9, 3.75782173574968*^9}, {
+   3.7578222849687567`*^9, 3.757822363483889*^9}, {3.757822984488474*^9, 
+   3.757822992479261*^9}, {3.757826798645417*^9, 3.757826963279611*^9}, {
+   3.7578270552691307`*^9, 3.75782711873971*^9}, {3.7578284436770983`*^9, 
+   3.757828446187387*^9}, 3.757828482771422*^9, {3.758959874880513*^9, 
+   3.758959890557139*^9}, {3.758959926662064*^9, 3.7589599601648293`*^9}, {
+   3.758959991096417*^9, 3.758959996979047*^9}, {3.758960339543404*^9, 
+   3.7589603426621513`*^9}, {3.7589833973519173`*^9, 
+   3.7589835475088873`*^9}, {3.7592110485665913`*^9, 3.759211053096925*^9}, 
+   3.759216321187221*^9, {3.7603485498428917`*^9, 3.760348573574058*^9}, {
+   3.760348619593515*^9, 3.7603487709948683`*^9}, {3.7603488180472517`*^9, 
+   3.76034885507169*^9}, {3.760348945156185*^9, 3.760349415862315*^9}, {
+   3.760350097219532*^9, 3.760350324766295*^9}, {3.761191804544631*^9, 
+   3.761191808295714*^9}, {3.761191931820159*^9, 3.761192345732918*^9}, {
+   3.761193839376589*^9, 3.761193904597291*^9}, {3.761193949904818*^9, 
+   3.761194051544373*^9}, 3.761194535920648*^9, {3.761194569630628*^9, 
+   3.761194582613164*^9}, 3.761194664710396*^9, {3.761194946768532*^9, 
+   3.761195024868537*^9}, {3.761195108962014*^9, 3.761195138319393*^9}, {
+   3.761195174742742*^9, 3.7611955234868393`*^9}, {3.761195701890441*^9, 
+   3.761195702341032*^9}, 3.761196485634391*^9, {3.761196658559492*^9, 
+   3.761196661141837*^9}, 3.7611968379516068`*^9, {3.761197023030426*^9, 
+   3.7611970255263033`*^9}, {3.761197076692329*^9, 3.761197118552474*^9}, {
+   3.79973097002567*^9, 3.799730994204389*^9}, {3.799731024367084*^9, 
+   3.799731086926413*^9}, {3.7997311261169252`*^9, 3.799731132399192*^9}, {
+   3.79973124118622*^9, 3.79973125969013*^9}, 3.799731972509701*^9, {
+   3.799732195538846*^9, 3.79973219829803*^9}, 3.799732363970727*^9, {
+   3.799732485907164*^9, 3.7997325170248833`*^9}, {3.799732562559083*^9, 
+   3.7997325773676977`*^9}, {3.7997327616671677`*^9, 3.799732776773637*^9}, {
+   3.799732955832143*^9, 3.799733006749688*^9}, 3.7997330372231007`*^9, {
+   3.799733079432432*^9, 3.799733115607945*^9}, {3.799733234074205*^9, 
+   3.79973325617085*^9}, {3.7997333899754953`*^9, 3.7997333988737698`*^9}, {
+   3.799734578742381*^9, 3.7997346140397377`*^9}, {3.799734708096471*^9, 
+   3.799734735575932*^9}, {3.799734766768032*^9, 3.7997347742308903`*^9}, {
+   3.799734897349547*^9, 3.7997349017321177`*^9}, {3.799735189295854*^9, 
+   3.799735195201284*^9}, {3.7997406126776133`*^9, 3.799740621944942*^9}, {
+   3.799741298650671*^9, 3.799741300526568*^9}, 3.799742965642508*^9, {
+   3.799743007167285*^9, 3.799743007454126*^9}, {3.7997430411218843`*^9, 
+   3.799743054564272*^9}, {3.799743733062394*^9, 3.799743734757841*^9}, {
+   3.79974391645446*^9, 3.799744093989855*^9}},
+ CellLabel->
+  "In[150]:=",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, 
+                  GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2761264, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685495667531923544855311148715535768998172509303948580256, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685495667531923544855311148715535768998172509303948580256,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2742888, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685495667531923544855311148715535769016619253377658129952, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685495667531923544855311148715535769016619253377658129952,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2741872, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685495667531923544855311148715535769035065997451367724688, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685495667531923544855311148715535769035065997451367724688,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 3470712, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685495667531923544855311148715535769053512741525077273184, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685495667531923544855311148715535769053512741525077273184,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", "0", ",", 
+    FractionBox["1508989", "10000000"], ",", "0"}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{{3.799743926333913*^9, 3.799744097322673*^9}, 
+   3.7997442097385473`*^9},
+ CellLabel->
+  "Out[151]=",ExpressionUUID->"10628954-c335-43d3-9aed-f444bca02ca8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"testST", "[", 
+   RowBox[{"[", "4", "]"}], "]"}], "@", "2000"}]], "Input",
+ CellChangeTimes->{{3.799744099642733*^9, 3.7997441015893507`*^9}},
+ CellLabel->
+  "In[144]:=",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
+
+Cell[BoxData["0.0000111111266857419793606552169845108521345621309793045902`29.\
+034835405216388"], "Output",
+ CellChangeTimes->{3.7997441021239347`*^9},
+ CellLabel->
+  "Out[144]=",ExpressionUUID->"ed6e3bf3-c813-418f-b1ed-f8a3bd8ece2a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"eqsef", "/.", 
+         RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}]}], "/.", 
+        RowBox[{"\[Beta]", "\[Rule]", " ", 
+         RowBox[{"(", "\[Beta]val", ")"}]}]}], ")"}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{"myeqsa", "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"Max", "[", 
+          RowBox[{
+           RowBox[{"\[Rho]int", "[", 
+            RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}], "/.", 
+       
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          RowBox[{"Chop", "[", 
+           RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", "0", "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"\[CurlyPhi]", "'"}], "[", "rin", "]"}], "\[Equal]", 
+         "0"}]}], "}"}]}], ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"testST", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "\[CurlyPhi]"}], "}"}],
+         ",", "4", ",", 
+        RowBox[{"{", 
+         RowBox[{"15092", "/", "100000"}], "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "\[Rho]0c", "}"}]}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.752413203362537*^9, 3.752413224640437*^9}, {
+   3.75241346650229*^9, 3.752413480171154*^9}, {3.7524135649458723`*^9, 
+   3.752413605740526*^9}, {3.752413759764978*^9, 3.7524137647649193`*^9}, {
+   3.757147436108445*^9, 3.75714752868994*^9}, {3.7571476885249357`*^9, 
+   3.757147691120302*^9}, {3.757147727105349*^9, 3.757147777137907*^9}, {
+   3.757147812585622*^9, 3.7571478308864813`*^9}, {3.757148186835968*^9, 
+   3.757148190842628*^9}, {3.757820714840118*^9, 3.757820731952281*^9}, {
+   3.7578207671689463`*^9, 3.75782077362683*^9}, {3.7578208226123037`*^9, 
+   3.757820826477024*^9}, {3.757820950983934*^9, 3.757820983849414*^9}, {
+   3.757821026048717*^9, 3.757821026703146*^9}, {3.7578210648635597`*^9, 
+   3.7578211626559772`*^9}, {3.757821584112419*^9, 3.75782173574968*^9}, {
+   3.7578222849687567`*^9, 3.757822363483889*^9}, {3.757822984488474*^9, 
+   3.757822992479261*^9}, {3.757826798645417*^9, 3.757826963279611*^9}, {
+   3.7578270552691307`*^9, 3.75782711873971*^9}, {3.7578284436770983`*^9, 
+   3.757828446187387*^9}, 3.757828482771422*^9, {3.758959874880513*^9, 
+   3.758959890557139*^9}, {3.758959926662064*^9, 3.7589599601648293`*^9}, {
+   3.758959991096417*^9, 3.758959996979047*^9}, {3.758960339543404*^9, 
+   3.7589603426621513`*^9}, {3.7589833973519173`*^9, 
+   3.7589835475088873`*^9}, {3.7592110485665913`*^9, 3.759211053096925*^9}, 
+   3.759216321187221*^9, {3.7603485498428917`*^9, 3.760348573574058*^9}, {
+   3.760348619593515*^9, 3.7603487709948683`*^9}, {3.7603488180472517`*^9, 
+   3.76034885507169*^9}, {3.760348945156185*^9, 3.760349415862315*^9}, {
+   3.760350097219532*^9, 3.760350324766295*^9}, {3.761191804544631*^9, 
+   3.761191808295714*^9}, {3.761191931820159*^9, 3.761192345732918*^9}, {
+   3.761193839376589*^9, 3.761193904597291*^9}, {3.761193949904818*^9, 
+   3.761194051544373*^9}, 3.761194535920648*^9, {3.761194569630628*^9, 
+   3.761194582613164*^9}, 3.761194664710396*^9, {3.761194946768532*^9, 
+   3.761195024868537*^9}, {3.761195108962014*^9, 3.761195138319393*^9}, {
+   3.761195174742742*^9, 3.7611955234868393`*^9}, {3.761195701890441*^9, 
+   3.761195702341032*^9}, 3.761196485634391*^9, {3.761196658559492*^9, 
+   3.761196661141837*^9}, 3.7611968379516068`*^9, {3.761197023030426*^9, 
+   3.7611970255263033`*^9}, {3.761197076692329*^9, 3.761197118552474*^9}, {
+   3.79973097002567*^9, 3.799730994204389*^9}, {3.799731024367084*^9, 
+   3.799731086926413*^9}, {3.7997311261169252`*^9, 3.799731132399192*^9}, {
+   3.79973124118622*^9, 3.79973125969013*^9}, 3.799731972509701*^9, {
+   3.799732195538846*^9, 3.79973219829803*^9}, 3.799732363970727*^9, {
+   3.799732485907164*^9, 3.7997325170248833`*^9}, {3.799732562559083*^9, 
+   3.7997325773676977`*^9}, {3.7997327616671677`*^9, 3.799732776773637*^9}, {
+   3.799732955832143*^9, 3.799733006749688*^9}, 3.7997330372231007`*^9, {
+   3.799733079432432*^9, 3.799733115607945*^9}, {3.799733234074205*^9, 
+   3.79973325617085*^9}, {3.7997333899754953`*^9, 3.7997333988737698`*^9}, {
+   3.799734578742381*^9, 3.7997346140397377`*^9}, {3.799734708096471*^9, 
+   3.799734735575932*^9}, {3.799734766768032*^9, 3.7997347742308903`*^9}, {
+   3.799734897349547*^9, 3.7997349017321177`*^9}, {3.799735189295854*^9, 
+   3.799735195201284*^9}, {3.799739954009355*^9, 3.799739956346936*^9}, {
+   3.799740074559992*^9, 3.7997400750403223`*^9}, {3.799740146668169*^9, 
+   3.799740146877178*^9}, {3.799740432611566*^9, 3.799740527363008*^9}, {
+   3.7997406360526876`*^9, 3.799740637027987*^9}, {3.799740712749544*^9, 
+   3.799740749426177*^9}, 3.799741055042562*^9, {3.799741088206442*^9, 
+   3.799741122183194*^9}, {3.799741170641355*^9, 3.799741187729862*^9}, {
+   3.799741233795031*^9, 3.799741233969874*^9}, {3.79974137137066*^9, 
+   3.799741396173649*^9}, {3.799741435103573*^9, 3.799741435289009*^9}, {
+   3.79974149565993*^9, 3.79974149909788*^9}, {3.799741548137055*^9, 
+   3.799741549828787*^9}, {3.7997416627503777`*^9, 3.799741665147204*^9}, {
+   3.799741715792798*^9, 3.7997418282047358`*^9}, {3.799744111375866*^9, 
+   3.799744113973298*^9}},ExpressionUUID->"5c8ab894-f16c-44e7-9d93-\
+adc4a4231419"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, 
+                  GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1486712, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685490547278413119663134985305171373845323211257069590032, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685490547278413119663134985305171373845323211257069590032,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1487712, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685490547278413119663134985305171373863769955330779130688, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685490547278413119663134985305171373863769955330779130688,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1496208, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685490547278413119663134985305171373882216699404488681504, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685490547278413119663134985305171373882216699404488681504,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "2432.54875486206306193226869743926439284881`30."}], 
+                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1907024, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6685490547278413119663134985305171373900663443478198241120, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+2432.54875486206306193226869744}}, <>]"& )],
+     False,
+     BoxID -> 6685490547278413119663134985305171373900663443478198241120,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", "0", ",", 
+    FractionBox["3773", "25000"], ",", "0"}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.799741502689794*^9, {3.799741535849461*^9, 3.799741552421587*^9}, 
+   3.7997416176554737`*^9, {3.799741660596031*^9, 3.7997416680719147`*^9}, {
+   3.799741733773654*^9, 3.7997418543101997`*^9}},
+ CellLabel->
+  "Out[137]=",ExpressionUUID->"6ecdd54a-2d95-4153-938e-1cfc86d7d97b"]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+},
+WindowSize->{808, 911},
+WindowMargins->{{436, Automatic}, {-67, Automatic}},
+FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 166, 3, 35, "Text",ExpressionUUID->"607aa170-a31b-46bf-853d-1323334df302"],
+Cell[727, 25, 617, 12, 127, "Text",ExpressionUUID->"95f42b5d-055c-4dbf-84a0-f12b50c01fc0"],
+Cell[1347, 39, 203, 4, 30, "Input",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
+Cell[CellGroupData[{
+Cell[1575, 47, 211, 4, 67, "Section",ExpressionUUID->"359dd1e5-ec51-45ba-a423-1546b165ab5d"],
+Cell[CellGroupData[{
+Cell[1811, 55, 152, 3, 54, "Subsection",ExpressionUUID->"362c3668-1de1-490e-a5cb-8a4e0ce170c9"],
+Cell[1966, 60, 243, 4, 52, "Code",ExpressionUUID->"51ee50b1-943d-429a-8a98-22f1b5129b56"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2246, 69, 258, 4, 38, "Subsection",ExpressionUUID->"b4cafe99-5c10-49df-bec1-70b77254830c"],
+Cell[CellGroupData[{
+Cell[2529, 77, 731, 14, 110, "Code",ExpressionUUID->"28d9c623-2f35-4b48-afc0-bf102c8402c2"],
+Cell[3263, 93, 4072, 62, 42, "Message",ExpressionUUID->"3a083d41-624c-433b-8f6c-7554d496da5d"],
+Cell[7338, 157, 3931, 61, 24, "Message",ExpressionUUID->"53368634-5397-480e-86b4-81420dba9e61"],
+Cell[11272, 220, 3968, 60, 24, "Message",ExpressionUUID->"d23e9f49-eabe-49e7-81c0-b72f5919b75a"],
+Cell[15243, 282, 4249, 65, 42, "Message",ExpressionUUID->"eef537de-e7c0-4112-ab75-d5eb954989ae"],
+Cell[19495, 349, 4283, 65, 42, "Message",ExpressionUUID->"b5bdc1f5-72c3-480e-bccd-59fb8caa8275"],
+Cell[23781, 416, 4253, 65, 42, "Message",ExpressionUUID->"a7f5fd78-4a9d-4d3e-ba04-3b2dc7fa838e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[28071, 486, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+Cell[28498, 495, 30902, 779, 34, "Output",ExpressionUUID->"f92f6d8d-3a3f-4fd9-8774-4ee9966c211a"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[59449, 1280, 172, 3, 38, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
+Cell[59624, 1285, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[60996, 1328, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
+Cell[CellGroupData[{
+Cell[61211, 1335, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+Cell[66510, 1473, 2405, 39, 70, "Print",ExpressionUUID->"f9a60beb-52dc-48b6-99fd-766e2c1a49a3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[68952, 1517, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+Cell[74178, 1653, 1237, 26, 70, "Print",ExpressionUUID->"387174a0-e39d-4e4a-9f9e-81ac4cefcb4e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[75452, 1684, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+Cell[81231, 1825, 872, 17, 70, "Print",ExpressionUUID->"a84cd5ca-f2d0-4f50-b4b2-33f2d4e43472"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[82140, 1847, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+Cell[88114, 1991, 1028, 19, 70, "Print",ExpressionUUID->"ca853243-7719-479d-9642-9bee5294e811"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[89179, 2015, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+Cell[95602, 2170, 873, 17, 70, "Print",ExpressionUUID->"a092876b-0262-4cc7-a80b-027026a449cb"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[96524, 2193, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
+Cell[96688, 2198, 687, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+Cell[97378, 2213, 7643, 205, 126, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+Cell[105024, 2420, 6161, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+Cell[111188, 2581, 7183, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+Cell[118374, 2763, 8371, 217, 126, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+Cell[126748, 2982, 7744, 194, 87, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+Cell[134495, 3178, 7742, 194, 87, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+Cell[142240, 3374, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[147083, 3505, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
+Cell[CellGroupData[{
+Cell[147274, 3512, 1179, 18, 81, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
+Cell[148456, 3532, 1221, 19, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+Cell[CellGroupData[{
+Cell[149702, 3555, 1022, 28, 73, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+Cell[150727, 3585, 600, 9, 51, "Output",ExpressionUUID->"3847cf13-919c-4a6b-938a-398839373961"],
+Cell[151330, 3596, 581, 8, 34, "Output",ExpressionUUID->"b3f85246-65e3-41d8-8483-b38b57662aca"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[151948, 3609, 525, 12, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+Cell[152476, 3623, 713, 18, 54, "Output",ExpressionUUID->"673921fa-9f44-4817-b066-54a2b4882ccb"]
+}, Open  ]],
+Cell[153204, 3644, 536, 16, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+Cell[153743, 3662, 1066, 25, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+Cell[154812, 3689, 475, 10, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+Cell[CellGroupData[{
+Cell[155312, 3703, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+Cell[155849, 3716, 681, 20, 78, "Output",ExpressionUUID->"70a0d93b-5686-4212-8bd8-09e2583efa57"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[156567, 3741, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+Cell[157395, 3761, 32893, 609, 230, "Output",ExpressionUUID->"7bada2d9-6367-4955-824d-e8ff7c661ccc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[190325, 4375, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+Cell[191142, 4401, 351, 7, 34, "Output",ExpressionUUID->"087ecfed-9943-4551-b692-661afb206f5c"],
+Cell[191496, 4410, 1014, 30, 37, "Output",ExpressionUUID->"ea0c880a-df6d-442d-b50b-47145437344d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[192547, 4445, 1204, 25, 52, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+Cell[193754, 4472, 1115, 18, 24, "Print",ExpressionUUID->"f2034283-f23d-4ae2-a46d-ca0292694df7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[194906, 4495, 8207, 153, 262, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+Cell[203116, 4650, 44103, 881, 476, "Output",ExpressionUUID->"10628954-c335-43d3-9aed-f444bca02ca8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[247256, 5536, 260, 6, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
+Cell[247519, 5544, 235, 4, 34, "Output",ExpressionUUID->"ed6e3bf3-c813-418f-b1ed-f8a3bd8ece2a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[247791, 5553, 8910, 166, 262, "Input",ExpressionUUID->"5c8ab894-f16c-44e7-9d93-adc4a4231419"],
+Cell[256704, 5721, 44222, 883, 476, "Output",ExpressionUUID->"6ecdd54a-2d95-4153-938e-1cfc86d7d97b"]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+}
+]
+*)
+
-- 
GitLab