From 4e183c27be537acc17966e11f83b5ad2855a8a8a Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Fri, 22 Jan 2021 10:59:47 -0600 Subject: [PATCH 1/7] Delete data that will now be retrieved from safetyData --- data-raw/clinical_trial_dataframe.R | 9 --------- data/clinical_trial_dataframe.rda | Bin 135303 -> 0 bytes 2 files changed, 9 deletions(-) delete mode 100644 data-raw/clinical_trial_dataframe.R delete mode 100644 data/clinical_trial_dataframe.rda diff --git a/data-raw/clinical_trial_dataframe.R b/data-raw/clinical_trial_dataframe.R deleted file mode 100644 index 6c9480c..0000000 --- a/data-raw/clinical_trial_dataframe.R +++ /dev/null @@ -1,9 +0,0 @@ -## code to prepare `clinical_trial_dataframe` dataset goes here - -clinical_trial_dataframe <- read.csv( - 'https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv', - stringsAsFactors = FALSE, - na.strings = c("NA","") - ) - -usethis::use_data(clinical_trial_dataframe, overwrite = TRUE) diff --git a/data/clinical_trial_dataframe.rda b/data/clinical_trial_dataframe.rda deleted file mode 100644 index 70640523e74360024d78534d85ccc3a9e8313ffe..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 135303 zcmbTdcQl;O7dX7iDk~CYiI6C(?XD8Ni;}fib(>Da2VsLKK@g&sjk;OAm&Gm;1R;VD z5`-ur(Io^4(W8VUUf^UR%FX7uem)aCVTC9t;NUrz@D z{og%`JX3Hw+dez{B16xo`%DrH0MI+LcZTZ%&T9ZVBLJY}yu5f@jx~~-HTEL_!1~0D z;cAaFH$Z}$wGsf}mdImLk9{oxFqPmo1pp+>lr99YMw$Y0OeJyv0Mk4VJ~O)0(O~$c(Cm?FQ88~j=77WX{o3OeyF0W2EnH{j@9cQ zcfs)Q-<#BAa|A49zko|tQjS88DPz-HVq1M8D@l$y)d!(!xTCLHQ?#^jyzE@s9aZ2h zC*5xA8=^lJKca68ku+^Acb1%LVNS0|8gAVA!28ZmwI1nPqu?9e)@j2%CZ#;BMytK? zU#!g~qvFDCARP-Aj$e`5gW~zX&-Yu3OP}Ukc*xV)5?@krxz9WqF3@ zp8gE43gQXV9;{w{t*OnCANeduBFxz020V36?BK{3HlX{X54YO$P~p-eL$E#hQZ#oV zS7>3s#dXT%XY&+I4JRFK*fi&Q9fTvRTJJVZZKa|Kr=h<2ECw8#G!asi4N|z#kllT>iL< zHgH87g62RpwmrT-ZX_9rBg;ksu}`ZJMHed&;*TsY^N4VMCPi78(yE2l@wki7I1AyY zkHlopG7apFy^%e6B2)om0y0wu)_^C}7}QsiyamvW{ACm69yLLvnUwi?L{r6#lD(KW zu7#$=<|$)zE|M~Iv@Xty!jEf)PFg*7vzkN>)@53aS7yqPl-STR6tn1=>gk(=6tNi< zDU8w+kD2OmGou;!Jgh;=W893EQaum1N7JzSFEA>^7Q7v2MP5cb$Qwx>H!F9QLA0dM zQaEN*(B9%rS)~nGqOsiJ(~fQKYoB;hQ}UbFGfIC5Gel> zBFQeJ319ECjvN!DGY`ZSOhpDvUi~u%zet~(gv7ZZd8A=vd=iq&&0r5hk$Mf?8N=Ml zaY68Q=n$`w z4Q&9QnB|6ZyJBDqZ=@-}Ien8R#Ru@dH{lAI3dwPDRM)cZ3nT?nZ!-O$i3nFnxCq*c zYEG3wG+!_p#PvwTzSm=;ge=Q~#DduV= z7VVpK?h2)eOeaZL?ts%u@Y{|62WLWxhh!vYcve8#b zHRE1Ic)3_IqOlwpC*e#Rl%u*CJ2#$VNb)EbB;JI+K@?stkEv(lk{5+Zm({{;GDx)k zOmY^Z3)1Me1lmfRFC)<}v>J#%4f%yJUjGdR;(z~J2%P;}!ejmT>EdN!P|fz)!|-!u zd=?b+n#cMH0PmzkPa6f|mv!OKq%?Pc_}PUu4p2?kOxHe`hvcT5mDjN(cggPFgNr^{ z07d{?OL#xS*5B3hZ30ldO~r}p0-*3HT?{x9lL1uA>RHKplGQS?!0g zE4yDxPyK@}+oD&!sNP&#H(d%Q9Vb#7%qmhFD+2Un@8%>8t#YlR&B)mbnGUa0qGV|3 zA-p}y)T)6bBx#6x(KV}&cT#{}GqGUcT8|gnVT|X)QANIiV|UY5^$hPswjTq*9_-jF zL$L=17#qA?(den8K)3cey}@0k5)&O$jxGV9LYJq`Ss&INd$y8-aq5{@`^*V4N!Q#0 ztorSZ)k#dVM(UZIjTBiIuPC)(-GTvo1GCr^@bLU|@mQt545>PXsRgV2LLg66yTVNw{Jbs*a)H?ueHBR$Vk9L^2I{I|IaMB=G z1+hg6%(ms2wzfq#AXY6y*0(5ZckVMyfDg5O_uuD=X}>JX_7@pOcn{m70tzZtX$gLa zEu#RVr|al?8M0&l+_%&fhjDxQ785r^f1bHAYptzCt2Y15jk*u75nH`7r2HU4s)x5o zGhUr)&z?~Et3N?5l|UUz8WszzaGa7#3FJT91nnY&iWd0Q)Z0~h6u zfA%@GG4)(lhD=osNXi?^WK<~WRa^^sgCml^N@>#Dclq`7p_iANs=LXfrFtbWdY#TYA^E@d%dRgEmoE4 zX-M1r>tOx1bZ<;ub%Imj?&7_KC-2{+YV55&tgvvvXcZlUpr_Rt;%=O}w@^UXQq@%Y zF$((X;dh9gax|j7xAcZ`s33q=Bwon_FV;YDuNbrZRU%6+TMsf?H)UY{{1EL!WTzjn zO`{?0hUrHnxML=l76t6|-?kX8W0Yb6GvH0)xo)!!FT0)`*7xJQSk$Fxf6M%#OSu6N z)2SvCcP{so89cxkrig{z2IBut7(H7Rhjh{12Pf@|bNn-rX!J0E9gkZUy96opQ28vY z2oIWP!uZM6KZi>9k(A@K1Ax;sVLuy zEFT7AH?fD7FpJ1`s_2-pU|tf>K_;4)Q=}iH-CtG&H^%K;E<+noMGv0+=>xjvnz>$` z%4xcCJK^kX;q0Hb!RZ;f)9{$uwRqARDWNZ#%f*rC%S7+S4Txfmbo;x5M~PU{L!n>* zkPcD;V#RSHz@MKgWVk}Ib z=w$;V57|J>SG z9QtAD^zQBBid!k)4|&d7ALn#lKKdtJHTcIrT!&;~xWcVX3Kx1${@s;h5%7ifEN*}0 zMna2)6ZY`m#-Z`MRYYxXpeN>b;e{tEAtuRlEepvWO)fs1)4a}eWmVVjqM}W*n z12@8(}Ni4elD9@Tlh z&FEi6%Gs@xA3`e3HGA55_(Pp9nfo1N$&r%=>xqgRx1Mc^+$g9%(ERHv`7!eb^Y%&8 z5OOY{|Ci?-lYj~kHVi>u(Tg>Np=uVx-M| z#V`s_7@tV%={vZ=M+AjGa{7{iIKB70g#tX-1+NMt$GmC>GquP(yL_}z8=j%c@z@#a zPFqj5U1AHDdbQPV5jf#9bD3cLLRF8c^SjDZO*E9(kLuIq!Qm?puXwR_v zcW-Mb?4#M^Ku zlN~W?i~0oF!&M%K!Mmg8Ee2`}Nr9zWd$cL;qCj58wT>}-%eUF!fhlsyh}C z+F~F6-Xzy2$c)H5=`v0Uvj|_~QY71E1P>dmVRAnaLo(oN4_n_fBmJ75cn>-z&1Do$*sX~6WEXxfq}6dXCoL8kblp#b zW1q2FI~d6NA@|IVBxc98R={hWkcp&~(Sps+S4KaK)}(6SnJcXBeu=H$GVe`7XI~l$ zay@Mur?tU?zp8wvdFR4DOsMbTeT=6h^C#_=h_5L8Gvwfs!Y$AaPn(Gv>@LyJfhOo_ z^g+oSWA%^cI!xfeXt;OZM^BY;@g=hl#PK&Mq+Kk;`RU*2t6$m|g&q81L6}7kfg>tr zUHskfDY`>yu*26+GwK_PPsQKF$<{)|E6WM+(YdUbwtYqp=wbo81-@3+ri5Y zq^GA9{vtzoyQPdpL2h}tL-ZX`f*naU_TCEWZZFoS!n_H%x|`vYP&_hn!#{dML}TFE zZHWnQx(>d?sseofjZqGLakgT)qAjqS>;4vHNO2FCoZ;S z+BQi;_ukaa&$Lh!E4(+4j8#UouS#Er(&le^XJWQ#)!izq#>Ds^{KLK(rPgVdsXwj@ z28caHYv>1yc@e$L)x_GqnR!Sw`@I9JOl5j=w)8wvMyc#neh~zPl!VZnuDM~BpTXHk zOy4s<$CB4#G4t+>L1aP4Z1 zAvV7dpb4yJ^sztpFK?M>&zy<=Zajn9irp8tMoBb&shqEH#&#Y`{8B=-%-%C9A|YLn ztrZO@)qEE#QXONzIZr^I-Up~+hKaF#N?VVEvA2Ezy(+lYAb|AP-`HUdD#IndjiaTC z<8}KuMC+&mwzcB+n_{2b-ErPG?cI~4r$ri6W?7rWhhI~=&0%o?netL#0b1NkasQ1% zKlqeEZ|3Wi2DCERn`R^6ni*XKwk0Ps_TXJ$&Qb<8nJp}{2s?J33#ggF3zk1iN(d~N z*O&$%ULK5%Tti#Kq(Ob`AAGIBt7O~WY)~7jO2k@?^n%qs_NmubhJqDb>sKkRM)(?3 zLXYOmo(uCJ4&L;_j9c+U+8Nw+jiY6el^MkOqMwUjsBjY}We}4Gkr)#&FGk9hHH?b4 zRG{hy^f6UyDKZkW7C;wBvq>^Jnf;U;OmAhAM1$CSu^euATO0PaIZGR~4PH4n#Ydbl zca@~G75CKd#j=R{L0%e-m(v{EhWaETm*6WV-h(pG7x3&WeX5)R&e>|c?st_rV{2Hk za@=;Krlba`fb=T3_#ncQhr%k5_t=Xh$IR#uLv(4n=ucG^r`1F^VgMVxq$HAieOMCmhf*G#P)PnxJnQ$BvPQe&XiA=Sa|d;FdAjunSY1@6@4+ zu?3du`I(rnQa*62Zx{VZ117%bOmjNm1@iiN31xkvj8+Zo@UjN{ZB9D_*I2pIiu6hN zcshZbm6HNjudr5@MesdE)R5Uf0M&c5W-8Xy2W_}XhHy%CzWN8aRW~lLWZ-H)g;qUh z?Bi?v4j4f6WhfAN$CaQey&7kqDT8RtAZIIGM9ClqV`85gl?CeGx137Ka=l4NE~`Ol3)9AqmH`+zeSQP;P{t%*_1$!Q?TBl`3un)Y|RHfFl-Zc{Uo2WYvtDjVsv{WOOmj19=FHC{niB!^>-WsQ!SDpEg@Jj@@4jH8d14Rb)h|#D2`RiBB zq;oA;9(-f$IPc(7eH~u6FCv(ULp74C2DP7m#9c16)HJdJiuB{vNFDsUG_?wIeQJN~ zvxlegP${v&yDBe*zv!x^cb%R6JL~%AeDCb+X#3FM?CkJ7aBj$a_Pa%o@ip_=@i3hO z)AGWtd)GAsBL%F3Ky?DOC1pjzbgk!cl>Zl)J(I^(Fc1_gE08fZiN}~r7)*x)lasv5 zWkgycGqV6ng9DFMbf=W1JF3u&ciPNb^u^> zlqr(^+@)bK16+t=MM6F3N=DDo{|C;a_zb%LtLasWB1KK}Tzi~z@?2c_Smc#@oh2mb z0Uobey7{kM$U*9UL`I6Bu)5%1W7IEC29>p{sOkU5Pf|E{mqr0h$^Zp^0KkB!6Ilhb9d||LG5e_z@NnzNfpG@ zx5eDXE2!MnipAa|o`a?Y!3|h@Y~k8U*XHkMN34|v7x0bzsowMTh;7lk-%pg^+U*)_ zU+pK<|M&3mNTFI`4R5BDwTVhD*&}RXT8fb+F$Rxd0kAwE6LbIaLt(!?edff)SfyB) z7(L0XFk`y;(Syv1Ah&?7!8c8cX23(3U(9Vk<4?lr0O6>kPNz>qBCHEi5-R-0 zSpo<8y^yb}KCS}`d^dG46n|&+olx;!#8HOImDP;ZtHE#8IM0-D|8EWtnL0& z)yY0kGR3~->$^U&wzs?Hv}3pm>y8b7>-Sq-s{St@W%&2L(a6Wce?BM7tJn`s?-|3l zfBXqx{sEgEn#{p=jTNW0#r#U$y|P-q^~j>Qc>mD)yWYWJdGWxB#-Htx-w$>yMq{ju zBT~->{}czF=Zz3XM@u zos|B*_znGYtfTYW=&za%+M?~_!NYTuhuYt+9Z?DFjpe0hH+^*X=HFQxFg$Ng6mTi8Njp$Hyjq+s7V&Ov^f&Y7jr|4O z_JNKC$6qMBLqU7Nypwk11)!RmvIp$rxA$p}bpoXtRHUMUe?_qdo)G)q@WYB7d;_@iW^JWCt9tYh5$F zBt?JC{FFnD&dfgageBxrLgdkxz}BJkudq!=F;OLsE`-7ICtw89lNEN@U@6k z*<16~?A>OMzCJ%yj*8RNnhm8F)Vh?lS6s;^a(E|kH0rmsL(4Yz$h=~Z|sh}8uD?FI0 z`7zNf5Kl1k8qNR6di8{Jd=?n571OEqbRJvfgwpmKVpG= zxoL!MQ4^QAk}wh@D!TjR*fJW_dHw0O8iI1g&Kpds z!%-Pg_o@7GsMo?=a9t4qkn;z}H^Alvmi%f!hH}Oe&AciJ8bdQb_Q9?$?ddV3BTg{9 zO>3vP>nHSk;h*EA#Wv00a_-MlPo6oAX@5Rs{Y<$wxbZwFy9l#z(bJ=K1lL{|bVupc zf!XOZ#rVcu^&u-Vzn05E0kh58QrmskHL(h6Yh#1?$0vcY8o%yW z1|FCy}}kX9W|>{XA1r)Til?2xY$YA zEATr4IXy_}{xWCi@F%%@bz+-&}bw%TYTPJ?no>wZm;mPYVj)d)#_jfY1h0lt=_+Cj-b|ESa2uS z{qjTHcH#9K$9^-~rzU&hH+qU;+hHbs%EW-GHrPyVS8PDWB15qbP;(nyt#kEsO|cfX zUiACG{N?z!DxH84(GiPAtlCe%bya5gon`Yq>|(Osc47FSBC}4+?yzhd<@npqrz^4U zCY{NHf-Y^?;z08o2_c^@YYROHoYCkWEcR=9@g!pAVuWFYr*G8-tr35dSMh&M=C?UQ ztBM0&FSZKqUTPaoDEPi>x{ceOek<}xY8&^%>|5}LDfZz+=>E--)SXm$hXc&qlT6il z>|&ZK?uE$toV^P8EIzP`J4(q8&p-Z+?fiA)x^L>ABVvK`w<@QA-l5Xkc-V(usVC#R z77A6M@NI2>M{1F0!JD~c?6dnTW+UC3=6l&)xRH)8+9%nCZ)#J1?pv4#$KIQ9SbLL( zJ_@y~^s97D^=+fR6`d1$Se2@B6>~JKg^i$oHVlF76^2&&(flhLuEeYtxm{;Jy}f9E zJtRT>kQY`=xY7OYc>yecu*$~a^jk3b8e~7}5cene2$cUJp1L**8>;F`YlV$4)BKJ< zrnba@zM7t*7ek$b*DBgRD3}Yu!xjs;ai?_&xq`=O^{&6F%zp`BlMQWdwEw#C!`#p& zEhlW;eCHK*?v$x;e@2!TwpPIFTcv(=&@W*zgrfLSZm{T^TJMVa#K!Wr$~9Nts;l1D zTjk9a&VT&f0t>lHYJRhN-~C`x(Mafa^uB4IxrOFT_LSh?m{*u(jSs#~emfs7owB|3V3T||W*ZL#&KpFU-x9%)p9m%9|BrY&x4ce-hP z@Kx!{X{8_pclD=344>`Dg9$c?HUw;b+ zW?1!!d+pabKU~1pt}#zMuQQyb(EQ#xfafhTK3z(UmM0 z)(5<79P1*cOQ*Z#c*UF*0xBxz$)rR6#HHZazQm%N{{%slbx$W8OK__4~>Z}*DcH*2n0 z-2d<|4ZKw8qS^h^@3X|iO4!<>FV;=%%_mX0;IT!+Vm_?ec1-xMhv#~RyxgI^vuPeN zsg50K+80+k9hSFvuogv8E%>-dK3#r>{&dlz^&{v`M@V}6e$>mrk(f;FeREnEG2|UX zPtpE%{~GgP!07yb*p~)#&5yX{8K=|gxhz=GgR}-~A@6Hn{i|O6{I;RpW7DU7U_P-n zjKyutQ$MjEk38h7{9TzUFBJZP{N4S|H08&lU{OIh?Oyc;bGWF+a^$W>F#7P~$U}`~ zi*Rh8`j@KW@G2!i?T@MC{g2@76zq@P&-~%ouZNmf4^)Wh`x*vQMOtEYwW)OUBB2t`*PX!QnvmV}3WCi+zsVSetH z&kHVTZN!Gf3@bh<#P(_2Udr!+4Hll#{O=UumYJ^>z}~v#RUTH}>Eisvn>!Myr9~Y{ z2YHO z-Gu0N#iS$t%|lgGVlx`0@`$UkQ?$o!h}GCsI|N=U1W=;qf+0nVcv#L%!+5OS{?(Ut zZR#IOx{6=_&&HlHsn4s%_Aa;=@feH3ivvL9Xv?zn3a%Ig8p<_338W{IOT;pu@|MX; zapIW&IHIH~D)@{Im>7A_E*gcoYUtM{u*BaK^N~iiR-~ZGcC2xhuGNo3K)2rEjOA!G zoZ@a$;tXQW(c^rHuE`b2WjoMYHE;nu8#!(4q^s^EkEc%VZfOk)Ukg_;PdM<>O%EIpsyy zg4Jz<&lyf0YKt^?@wIt}?;l*6YQNo^c(K`2EM&Tiou*tw^kId`-Dee3*T3-#j%m5N^+Cf<*F z$XSIObWW^Sy)&fl)KcSaOJVG6Z0vZ6lYBOw1UV~GvjEPe4xJQN-JeAqufe!k)n?k; z+EnuLUZyW>s!LP#CPGy~o(tmBVw{B_hyg)uwcta5mx zycrUfS?X3%+kC~-jbc>}v~e7mx6oV$|1hTpbS5rqsjG&ouf0hedJuvw550OWJxU`- zNVQi8&So0Y9A zC64G}V>MYeSc}zvZ+!lN>|k+ajf3oz+{x=|{v(s!ZfPZ%7*rAJ%j9A zXM6R%bYhVFpTvdep88sLbR4;omnQF$*DS+^vYM;`zlS)YmtOTO2a|7MM(_d$R)5f) zJ;QS+Sgi%{?V_ILWRnQR6^p8m4Z)zzxEg4EgQ;{gfAv%)dGw0wV>Uz`*{+#C#W<9^ z>>f|sn8O|D^OyFES71A9H$;jk_u6t}n~@TVE2cZaIaP5UPbTcDdwN^&gwgtDE&*gbzO%vQPIh#+o=@>%EV z!^d0lsOgNIxh>Pf>^TK&MA5`v_5x2wIJq6S?u*_YObJ`DW@)%ndCySrUDNX!`=z1} zsAK<>1@_i0sVpa>SG2$ZwW`{O|9uRX3a73Yn{K>xB4hPh06wx zcl%#4C)(|Dw>D$-e?Ggo)=nxiUk}bTY1a5b>oh_L!+tE>%Fa|C4dD*e zdr{QkXR=_QLn?Nm zVy(hq!QlIKgEiPoL|*+gapJeKcme+IR}_6blCovNxP=XNDqPZH z+LH|k!5z%6XseHDJ%QQCl0$ei1H138TqguPGkhDyrWiq9H%XZ}pR1yYUrrgDrXgDJ zSCriGPU?WViJ|=Fef8mcR$)pR{w%vU`?z10_i^`$FYPXq9iCcAB-N(T4XOgk8+;U;{r}V>H%@-!;~o1BYS56S5+`wsnK$m}%RXV2-cwsoc1?ez}!0oUNZmhqBMT z)vwara?b-m3ySXJU*=L(urX$;@+PUEg$w!ZnQGJtVlxhFz{rh?e8QE-Q6s(Xq2Qd)GQ!!nxunD5H7^Eex4>>oU+qI7PfH9ueI`bh0O2eClj8 zlz?m7%Nn11!=9U0xhaF0Qkqc}S019q&aFzc7(8{glR#4Qp@Z!CQ9jDNWRPnrpQxIy zxo)bnehQyd`jzM`lpJ4{2!{*_*4k$(V1j(CLd~-x`=XpHR!VX!CJGXN*lXmiJH3vIWyjw#?e}tQW}3|rmg3B%btL*5k;5U*b+>n z8*USj61>QY#`oyb+xICCxQZ4y@HXJg@7s%AcubGpk1^#d{LM{vmkFz=1~vR}P3+(* z@B?AxgGU=|xQ4aV;UfK)I%jGwi;5Au%LSGdlJ8|sHCf{i0e-x*d5;V1QMUsKRWhX& zvnU7lPgkTQs@;8PKDml2u1HuL(X+RsfTi5^=|s{**YCgwyB%ECn34|GnRaeASb0Ej z5QW@=uJ`$7!^`qXgeZ%M<^|b;t`NyoVriBQ296UYl9_Cy$tv;Bg{P5IGx-_Kd0DC; zANHZRoU!W0N>#X*HEV;EX)|F)x+Z$*tGdHwsmw7q12d6XIezNJ&-mHs-qo>y98>lW zo&qLTUNYY7bKQCKlQOhHaPkH6h1xe@Q1?{@4p-(2L*NQ5gpCV7sOtq7WW%Y8%8L4- zCVi}Uzc~-%x^wJ!J>y(#bEviR3RzzBxWPK!yf3~m2cqk_*}|U!PBy`i$IQ6ScW;;# zuRcBt&u!VDZ%YuXHQ|I0rY{*flGG@MM(fFvE&+Km4eExfkQueBEBvX5)&5%cQUOIa zPSYM;ezCg@bbjK}xH(vRYmB_gV~?hCKa!a{PMKZG$m0dqfIvH?E&j3l@UYi&fkqpj zud%8U7aogyOG}wzRVs57)tKp9GdYR!7(Tpf#%&i|y%i)G?Pl3{0mPRJzrsVxENKR2 zngWR~W}N2G_Mic&GHaHxASv98ovLlLvQ_3wCile2C_qk$&6V7ER4zj*P#5+j7f2+R zLqEAPGDPKk^h>&n%&g3(`M8dGP1|G7N#!beW~$zY*mmCxj+2q@sT`B13X}~GVTR=d z@>R{|2iS=-msy7gYYO7qK8X1E5q;IndS58HXSU1DDR|3dv<}*3y@1M%w`8s2CdQi- z`eXU9!W`A|$k!Pr3@QW}YR>IURkMi}cM9eX=S9#m(Y_q+vm`Uzms|hBwH8=8>6JB2 zlyQgU#_5w7c;OfqCJaNA&2vvr0jU5Op>C+!Bjr;-0JcEfJHyW*Zcye)`WIP{GadnO zgAU4p%MnyP3=C2d9|^d=%W;X}@4J(6o$#|y|NefgTL3%{olSXn_E1&srrKw%<+95m zazU1O00MN)F*=m%*?f)$L&o5`z6dGT2rR?iS2|aFi zx(s*Fs4ECUo&;Dnv7y}EZ^v^$FMgN#2GZ4!k4pTOB4Qw7V)q(8YNg+%L{=7~fv&jn z>${G(+%>Vww|kv!Y~}4y2QM`u>hi{N*fBz(oS+|4A6Z%h9Fn52FDcEx|ZU*UZ8Xk&R4~SUbT#Ge0pjD)zHxUL?JaUPh={y?Q zO`MmTIWM>9qt;oaj<`xEga%lOKjHOXC;b!JAF$%;dQA-c?Z?ZQ5qDSy`P_)h(WdbP z>7)MstbXK0&d@=_AVC@Prl20%9B|L|nF)%HX|>;5F1cyTKU?staBp#^F;GVi+zn&c zP9xoTg>c*kI3JDTw&ENaXnAZX7n6CsvCz*rr^JhpR6+!iT;*xZ{Q%=8gEA^aC2UOU ze;uU8%tv9@7!BUnmD**-SxNF(3gU3=92YnC1KU;dZo4y&O$2tP{W{isgbn-e;7_}fmS*OW}84yJM>TVOTnS%Isb$!T%m|{bmNunE`K^#5BM|BYZJ2K zkh8CI7;MtkG;yIk5x)BI$KY7y%cxeQd+gTX$PJ z=eNRy?sY75YCCm4x4zSVIN#pAzHNWcuD#>sb&s!3jn99c2n82ke|UO-YfvHhj@?g~ z;$_=hxA%386m_c)qx+qAe})%Je%iL~a5`PsT`dUf=-AAcT)eya>KEo&(7U0{#c+BH zixxG2aBxG|E$8R$H%A%T1*T_P>2!a&H*Nl`Sr}|CR-BueF|k*9uV~^l@BMNkz3DkD^kD3Rd(eh;ux5Lpb;q`#J)v)MF3`=fvUa}auAPtP{QL)R8HqXvwfWSiYaJa< zD=h`>(q8Qks&!dB%bX0*<^DAYXoev9d0K2>CpkB;kq0gHf#VMU2t?s6u?rKor75FK!-;fjbGrQXXG&8_!FP{&I@DPJO~-2 zaJt=>0`l63vFP!YK&tftiLvQ)xSN8Yhos61Fc^`)(JT4KCMxA+BBPex#ZCa?xGd#< ziGF`N@`fpdd;#^9ia*K6X*S({oXO`9%pwT5wM&lIV0Ev$)4X6B&>&biGYa@feFu zTbH>UtK?7TiW2E`4%$esh$=dpkFndh?TbW-h!qt9_AQQ#L{(es8Sh{sN)7p9)9IfW z!7K_Nn*czOTqPowxwah7uw_ibk|iQ0=85`M0LeJG0s@AOy8(FTgv$kp9nfp*KiV;! zX7TPcikjJ^mpA^s&eF|xfwOZ{HyLEaa-Q-M@rvZ2hq9QBn>_6o=8h)+_#US*eLY9c z8HOn-PUa{nPoz)ApvXqt>H3dXz-7_gc=mc85floBjzYjxHL=O8H*T8{k|#Tmq&a5Z zdyoCoS##x$x|hs)MQ~IEOqe1rre9bLmW-3S56KJ($cVc6mbDwDStsULL%%1Q2Y(F)*Zw*`?y+16dg_6B!UZeZi>4NUtG@I&J&=qni;TPBT(Nn^$U$F9 zchM!HiVqyhWBkmLW2fXoZAm2~Ce;k#tcyvd2ssdg=;Sap3c~Agl9XWjC)jyQm^X{r z4DdRgGJ$2gRP`oD6@oi!C-r5CaEFHoBM&1YdhAA`}ZHU^RKzUY4FTTl|1(SR4)2(7S8EQ6Lk2J&#aTH5mH+Q2w%c?}G1gKZjI zfoxnAmeD;hAW?sS1r3hlm&3rN#CWAG$*veQq729{2d%XP6QwN^iA^4{7$_7ZN@oRX z(BrU?wkbiE)B8+eDoPsBB1rmJ8ziK^EH+vU2?6Oj*JtP&m9mI}8D@ZZegGpU#_Rmq zV@Wh+M8NboSx4_UbEoSPIiLg3=+~A=QAXFt!ccmm0h*8gwT*!Y5(Pn**kibo?Q%hK zHV_aSj}fh&lSm((p)bP^5#uBp0Ey?LL&==RNQ3k;Mx22S8xqLr3XLrT>FLAh3|bh4 z<108h3KPGDBUrRelMSNRP$5LFFROOW*FTR6Bb%2&tdiWp?x-h5c1_fP* z7m6FpcZGtxXYb11xHYX6eaRN6yZ0rUEN7<_*niKC$l~^6`AhAqyjq-Tpd?Uv-_j zt_n150;oEtZ#NG-8bKf82-c(bmSIBt?WkbkPUT$7j;{QPQ5>00*yhz+0Nnx>@f`oc2# z+_Q)1GKZ`TNLKwR4Hsm-Z&Sy5=V8NZ;(nsn6@j~7aoYV0&Myp0C9n2kzCPgRw;XnY z9o6q^NjqJvAH3bA1Q$~c&j>AvFYaU>w*T|eY&A#X-yGmvK4H4(wBe}Fx`Qs1Xvh`s zhffFpdVcni75bzx?Y0^`CEfBgVP>+ge6DxZv+U^EgsN5kZ&tAjLV7NHzm1n93@;o1 zP)|_UxNjXnTwsh9VP(5^ce9;oa^QhLtq1pY2_j_LyXuFFlgeqL1yl-S~zg38bGFJOu>)N(rJv&;w*%=kZ+@ zs$%_=WBT~P283iQFz-~^;?~N8BTOYPxa*!Pk4L9N4Hz$Y@oF*8($T%u7k}?OGtcMv zg7`d!8r`32IsSIM-L&e(!WwjX-@B{8E2L98D1~x(Crh?)gU3wkvN8AR!%tT4KL<4K zw##Ijb(Ae`{jvB>t)7nJytvG89FgmHl5E&z)Q|*|u$KYO*!iwyl$!jLG(7+qUf{+j!3Z_q^*mSK9k~FYeD; z`z_*~r6GANGB@!0$>WS-ND;oAJ5CgoG5AJWcS)hqKJXwjWOly!`lDUH(RP2*bFVff zsOD*xDV%;)_JxO=%ZGtp87HO~h#MgA(fZ568l;MS(CyoPRnZFx0EVYNtdzHV7@ldx zZvA{#Q#^u0!YMsY-%~G^5`bEF(@yrzH!j1IeX-~weyx;s_gi!Rz#6b4{iSuv+XDLA zOonM^&z1~r$r)vga5u)5>REohX?A@pf~|FuEBdFuHeBzSt#;Plbo#E#3OXWaDD@*FlJJoX zdu6{ep1&CE)2X74{%Iz@XN;wi*64d24TT1VZ+Fcb5Ppf)4#awrZrhM`T7<+BEt}!K zIig(Y>s-L>Sr9BDTU+5)q_x@HXCSuD_O;(3PP3HtrqmqN^Ng9(JLcMFBMsQ8an>jO z1|x<-6#;{V_Oy@hfbpe)IUI&Yn9TZFZYm(U^Di4L0Qf1uGZw_{VAX)F?G2$kqHQR( z3!i^~Ut|9`d|9M6-h>Dnz$@O}f6S0(iHzVPBV+njqgT;0T=%1i`s@!CPgLqpAwU24 zOqA15)&KV`7hFh4<4MbfUnF6`*#WmGmh-SDiTz@IiiW@2T=ALKXHh)twd51bxRORZ z;oq(VF4AxxuzXm&h_;UYu-^%(8t_t%;l>$@%p&3SIsA@|N|PmZwtU~;rvXPpDBfD8 z5d9XS2LFK4nltz07dB;shDtnUu3;@$N9`R) zXPCvJ9#BJeZ(DIuei^Z;+OW@%iF@zbGdU3XO5}1(75VmWI!@z>kX-eoKJQ;Qym?TT zhXiu~Z(!J5W;#B}IurAfh%mhN*H2;haK;s~=&ejt!tI`n-w=A5O)nDRNX0YTzXMkU z2vL0LhzCZ&!7|&3)%9!PO;HswOkC;gSgf(%F%dOFB$O%smA7f`;TzDxXht*3g>^(2;<&|=~&7EA)X1qFO zqZAu6m{62rmcIYGE9*Po8gE}M!JwsWT|#%`8QDvPfy7(TW9{Sn`0&s8AJsTWS+*|f zkv6TDAr}sRmCC6w#-zH>dO(p43QR!gX`_Xg#Hf0ih)`HbgsL80Jfl{m4LKwFt$q^j zJGJ2?%C!4sU+fAxoM_Nkxp!Y4MHHqS4mp)5vY&s0Ar@mA z6sj;HIq(;4LEebVL8S(Bj1wtJOI|t<9ZU{INjG5p>K3X1IlwhL< zAdZ=uWC&&5LJ?23HtUZb0J;CHvro;`CfW(P&InFrVRN!z3;0(}vU2bIw&>Bnc(aby z9;F$zGPLTf3L^z0Lq`#62>aez|0#p@UbtZqVx_lq0-s35lBM$l#U%%e@Dgh^N#G}W z4%ch3_1vMT-YL_??LFE|Pgjq?3K2eTvkE4Yv+dlkWWlZ1L9V7@w*_VUsxC@Q8$V4i z!`i1g8sz%6qt$wo+VuWUSs$;G9*1(Q3%h-!HNp%$gWwK8o+KdJP*wCBsQqEElBE;$ zBbs8AZ}8M1bW8g~Uh#v2oM2ZNy1)7DK>~XBMV#cNK}-jdJUQnnsU|d<5nijn!i;!q z47i)C|Fe9m6&Hc|1QJrFT8Dxj&(SyFPo_JRloIQ8jxQF2zNdGcHz{o>%$NPy+{Trb z{+1Zd?r-DM6djYWN1`(}@3DzZ*+1b-$IJQ%Q%9GsodqUL7LUQLxH_7`+F=m7uPMh6 zE{k7AXj80^D8Y>=44s)Jcan3oF4lp!3`VqJ-;KrU0+VW7ZeFfiRVqHuvr#sa&_sUeeDOn|#?xisS`}d;wx3n|{%_NJq`>4DXlL+yOkKV;8au z((@y;P2_?mndjJ0(R%|WU~AJ07g7X}Y6e&qO^BJVI*%}ZMi>j$N3^ht%V+(eioEFx z85G^5_Tm1|0YhRet(5qS0QT|C-uUOY^Ebm`c}o~2tNePU%~ez)xu_KI=jtA9#!@MI zmZRT-4klXK_mt-3{a;kt76a9^X)!MX?)@6Fm-!}4r5{>c72LDxCd8^jA-wnxPE!oK zZZ-p^RS-WTYvpLI5&v;#w~X~|SyT^BB7W1$$RPl4xkI^)uQ^An(N>T9or*tf+@mj3 z^<$&>?P?#pON~z2r0qe5B>)_1axf8z+ausB*l+3BLA9r$HkEtLs&PV~!`QjNOwL{sMH0PAc_DdkZ4Hm={o1T$hCxGuK@Es$YSeMJuv9t+ zYafyZFsgjVPIq?z)Y(Xnf<@}|<=sE5cW=u?a!aDDJ!Ii&%vDVNjeto#uK%kd@sXi6 zWS8pg=TDy@LWcteg$gD|^Ly!EH@W38;i>#bSm(}9zro-(0rYM0u-Wn_Js$I^fd3Ds zkTfc~rMC=Fmo9ckjr27%eCXU$g48QyM-Lc^sR$EN@bzA2u+C=_1ONOypHX`)bhDjSc3}$E&+@Y@3Re9ltZHDaCrfUR;8e7rcEWx29JUbkFV$m+WouJBW)u z0)YNA5{iA^xxg?!nn);dcH+o9&E*L+Ra#QokduI1)<85AJTC}RYy)wzZvdc&Ffe3= zlmt{2|23p<>9RmWT^nOg2K?<-co@IC)*F;{Y)Nkplk67`pkczdH0(DgeIduVmC`cp zK#W9Lu1Y=-AW9I_6~YzH{u3BUt2`+P^LnXN!{^O=m^N)^?!6XTjwy{h{uKJ=;d*YK zTz$fC{o#U!n)AXqKbs>kTsPrVL`XH9U_FPof_(bL#QJP4?2eNl2By3q=U!FUd#GdpHep&TH%^>eOoTxQm1S8z!BZ&=8;iu61-c* zb5Dpi0jnAQ1c6@aSai8H!bmBlQShJF6+!&KT9(Fc!p_y@x=cT^O-yYL1-2)2wnfQv zQ3(OVz@7l`!XHC>9(fn54tRxA5;eG+JaTVGo6K>RPO}Qmg5Xpv-|VM{Bc@G#KI~A-CBz!Y(@cVnw2Dss!uIhY z?WaktNWYmTr?cMkJW-xHLWS@%>fy5qhb$RK)jtm;-zEPsedXe@+Hm3W;RLr+l%jvn zPWxnE?|Rt%ZoWxYWOkfzddveY;|eIe9COmksivoGnIo5?*=Btc1PY#rX(!Bk&RsayR;W6O z8{wQ&a8R(UW%nA)6XlN>)VMcyby45@o*b|i4=FtCn{(7q_!kw@^Sr7>Xk5ep*iWgm_0X6DbXcOJQk9=FzGH{?g10|UnWh_grQ&re|6I!=B90GZrQ&+O;EL@ zN^ANd9@Y7)3{R;H%nu>A&5H4>9+#Q>u7CQUVCGP*J7YOy{&>q=H2;# z;YUlAjsh(z?&#+`y)4_i6h-&s%oM6{Dw{seHCP}++EK8D1FMhaivU;k`vNK3%~DzO zi@5EF4GL7{%@Thh3j)#BBq$rPxT#Nd!j(fs-Uxahp-P+@%g{^aspMe@zEIPuhjiJ^ zCm-Bk`SW%@uv=ODJe5Xtn6ETwJtswy(N7PX9o^szbmn8RKA9yW!e20&WtbkIiLgBN z-)m#JFWarA^&_Z{ycuOLH2std#yr5e6e9DV4?wf!%sCyE?MLYmHBWCxEAw&;<*}W( zDE^GsY>Udb$XOEx0zT~SR(XmUh%?Ml7H=g+s3NrP+pOzHRF#i|U<%N(H}@VM&#FKYc&m&w;r(PA}t(_P;E@+=sUeaDNy{ zk!!**bq%7kT&8^xO11d1tNv~hA1Xu%9?|`mM;#?Q`;9qO7?l$viCJM_@>yn~gtq^2 z_>B6z@^MJzyLTtnP%zGcU|Gti;Lc#X>QYDI4ea9UNb)VAVH^7QPrB1<4@J0DNl=g( zK;pGoI!*2ket7-n`PxZQ(C2Bxq&(CpXIz6QK2KLB>i}9;^C!si3M^MKENlIq$z88I zN@3-;*!Z0u%3Jd>$A%|1oTE{|MksU2>^yx(TE zs5^fj*$kC(3(#ZH;7f6by!u(`*ny`ZdwWa&lB=c&9dtzv1_ja-*u#%wN=u{O2){Ma z_32jbr!bvnSG(VF&z9+g&|tlR(mj9aaqOG+8dgK1dlZu~p%M7TX)Hv7MWRHhf}Cs9 zXSWYw7l!vv)oca`65;WR{1i2%^bl?Mx|eB^6Opc$j9cQmd`xAS9k(sG(Ebpyt`7zU4er~5? z{r-e;D>?l1HAk@e*hrcsr5vZ&!48}+@Q)}Zfqy>_!%i&=V|CppXHE zEET-e-Tx-tZ~efsC5{6bz)Xayj-7!=mYI?#=nHq+c5WG*V^ptZ&F_F5LH7&c`?(_T zFD}N#U@mrnEBo1j+a;EZQRY^@$$hw{x^!6Ica2hTjgupek1g$<2IPJc7zy9{G~k*r z!aL-M)X->ujLI`UmBy%5qdJbA2s_tK@Dz5Xh@BX}!n8ckA&0hQ4t4-oLK`(H%WF|0 z5%wi85c_*cKinH4&1F?0>Khhsr8%AvoT`qe=@gFx>y$SAFVdoi-^+VAOYk#*>35ielAh_RR!;UHF5b3!zOCE6K1=PnxQVBMt&db#FV%^V z1%W65N5RlWp@p6a2A~K}E4uhZ?=qiMuIXt4*nxhP@G;QkE^=t4c535?qeVIOsbFKa z%BSd#`mhnAWGsdWyv_|r+=rxBa$r*3l(=PqgTOcQNXFt3ZTuW)I;qW)A}b95hn^He z2eR>390_+YzuzK0B^G?^pWnpi@e3EepUSJIO9hSh$_F}{-Dv7wH8rZov7PLYrt&eAs4cf|FVrS6u5;-B0ZxT&o)ECx` z%SRVJ6MO|Byj&q3=TW($u?zOS8k(sCx9;lm-SLcwLxUlSwmYT2wsqChqqR&}#`)TL z9kXsnusn~{qjh6$Bo?8*E=$fC$z1~pciaY=F=F0kFt<9!@!T75y9%jz!w^^Vg91}% zXPnl@=ztx~-yR}91+KCWuNVd;dnl8K4%xSRzj{@wCV@ngSlfL8ln^%{On)>5+bVz513_# zkh262_O)(AnlJe3x3Ao9@)!I2*_&ZQOY6w?FK}YGOt|rzy1US{m#&lGj8k7UN)3v?^GXv`$IneHFzJ}K1`O5v;` zQn>tmxJhAI*no$jX?5%0-x40DV;|iSGw5znZmJJ{Zl?DUc!Tn-l4Zd`ci{TFEiPg~!{?`gWPDPxMI)!^ zO@<@6|1PbIV7hGPrd{+0!*ssfNsxFra@v;!QA$dzO#nY?_#!9%nur!|>u{Bc3IP^73uL9OR6Zg>+F^F=QuOvhCnExkB>h-MhG^aB;S2*kE= zFL0try6ex>S2DnzxH{LCx3Bj8%IAzF_cM1l=5TuU@4@GL+o;c1(=yfeWI;8spn|7v zAT^708gH#BNuqI%9a;-@_@ysb|HF9;nJog&DTdu?U}-Ji!JGB{9GL) zr$H-I_CzC@azpL+XeyJF?sBwte~p%0RR_;;)RQ2larv&AmuA@;n@3jvz@I}mfq^UE zo747S?6<3Oa4clw)#t!1yUcOhe<$TmTt*2FE1i5A^B=(Wf&@mP=u@N>IH5#X85s|E z{)7QGs?{K5+*+f-Hl!{Y?}hcm!P5Id2B|VDG8nK40?+sGzyPZ#(e?#rg&tM=z!~@O zA0KMg*aYE`o);Jlj?cx6kJm#eCn$886lv_M9-XYh*ZvU@$7PN~dqUJLv2S7U^Ai$F zhG$g47nC(RNC6gI-JzwaPK;dL9_D}>HMFQpyJ*W#@P}idcTq# z`yfm&a(Nx=;`9$ak`w>W5v}OcN80Eai3>K*6{TgJ>!R2aHwKJ?aUu{)8@2qw1+sD1 zfqMk^Owqeu!B>7yi|T4kd9EdWCXLe9SKiPhf?gaozz15m7uJz%i47O*QQWGxBLu^8 zYa(`%e88Cc7Hkc1Awy!N7Mcv6{|)p6)_|0#Mex`~Ja<(Q>I*h~xEm+uCs}~^bde-D z?$QNY4`+Z(bmRL4*?__JD{T~tf>^lJ?RVJ4Bt>%A`nj4hrCMU=Ui6HEFU>><8N!xd z+^*{`k~(2`Y7QZ111o86pIA>XIFPu?Pn<|yERa2ZHpFx&6l3=KD`Z&KGE+rn>T?(+ z=QiE0cf;xFZ_6C^5)U_=NN~U0w!_@L!o%RmO@^pp_cczE1D7ez8CwuxF}s6|`om^1 z6W|p+lKI&MH9WlLl~!^BO+z54#SdyGyM4V5zTmLuOXdO{EH04VLQjkrm3G-zEL!ll z?BRXur}q}ZjvrA+ARERqhw`)$(PtfEU+(_}8<1MTDMWkJwWTREcz1T~D z7UEd@i$BLe#8SskDC0O4c+kU}&bzND&B}17bI7`NJ39QRh@#}MU$s1wZ87|^XZ`i~ z-GJ<&UMukDvV}|Zr;TK)eejE;(r(7)aHlzI<>BOy6y1Z>BwbWqPS&Rasq#o0^qM8* z8k&#pq0q1P=EM2xPdF20KGvpqZP@it6^s4rjFAjDOeu{m{m#w4kr!^8j*bfK^ffLW zuTCBPv_=FRqH?UDn1^MfOV~FZ`^iX^R=JI<24X9tWz$m?;tYwj)SZOFiN9@8rKCbz z`<1&Z?$cr6H6)H)ZHv=BMJt_e^xkcW^j#O&DO01x{Y%WRChC=kWb=g4LD|3CvZ_P= z`r+0!I^NuLOh%e0`P=xn*+RhR1naP3rlmXSyKg|#?~{3%<@ne6Nu~`ZqayDF*MA3# zxc-!>^LI@;dYuSALZPGJzCU+zL?}akb<(@GjD?w#rB1)gt$wS8@l}bZf8JQ0DhW(W z?Eb7=$T}9xO;GNSlYXJ%E(0t1mzpr5P3R@bkol_h>D9t> zPzAv9`(p4k8tm^EDaS|@FS4MpOlZ}ih`B)DAo9lZA}3mHzO=hQqOnv79(+%wL~m(R zw_tP7;Vs+@>__7jjw^tJD#{xmr|6tnnSJ&|F_UVLLJlcQg(oFK=`r_{ca4W`5xK1N zF9`7(IPWJ)v5GH$^a`TEUEYN;#(njPo!-BNj6?E87ax8a^+!v7;Uk)}`WG!;=_|JPG!RAKAEEu|mAHG_-#M@F0G)sEy>A;t&)331Aal%yH3u8JJ`v z%bg+G)6J(rTz!ogMSfPzQKi z5IU?a6M?s%laLT`UEmE2GJzWEPNFQyT08M6Mk$&jIx8iqKG!o`N7r4}%LM1Zgj}AN z5ge_Tc<)xHW}Tq$g>TElY)TnDr8fSmw|@j6xSnax5s`{fe6`QeOwkuQ2sY?*TX=xT zQJDSZsFnR!ry;7c-Tj>Z-eChdjrSD&=)s656|K;8iHgH9Q^m+97L1R1D~_+T z^c$_`nUg_)u%S8jrts>kOWiN9CuthBXeIS7y((vL6+ZB*&>cayfvHtQFTmvv4jiWI z$rhUIiM%vvwu`MlQ-L#Ajiped%$6oaJoBTLJ(!OYvm^xmtkmmG66f=B(uv5#@GDKA z8&X1A6uuSTMrdsg=jLp&@9a1vg|9ZQl~(HzU-zJf&Y-tq zC=2WzqWp-x7@7QEqQC8(X3E#*!LQ^U^mBo1%PH@-fOTBTjCSXHi?Vj8>5fzD$ZE;F zm}lw|5dJE`Q6ykxAF`A54lf$mCttD!L{;+#6VS6i;C8PAx7nZia>&8itzjGvB^t49%Qf0<~82mziF zS@SCH3*VsMfH{4;E{{#rk#KAEj1dFhJBY@k-O?B+iN|6N@avWCeSxOZB&oXv?PgW? zP70*P01q*^-~3I|z(Mveey}<^m##G==RUINZxJ|M8a>(hKb!dJ=9cN=r7iA9y+BeG zsWZiRpn&3vl0;5u)G|)Hf^KJ7{n_frzjO5rc&25#B8(XW(rKSplInWn@j^bRh50O| zMEsd{S2eJFFBpPFwvFKtxSS{aK7H4p=0)2)x*nsr6L#X{3b^q`I^R8p!8^M3IVAR0 zCmf~}bwYx>l`$r@>g4KeSmUCL+>B2GZV+)P#fZRz^Prx}%DK7W8G+;IeTa{pTE@Dz*w5F0 zvkp&c!pJyvKTGbX*s$<#tRHutv|J{!meFP{!9N%98?TwL6GWD^oUYp<;E-zW`cQf+2IGjxv!vh}F(!?oY>2mM!73VRJ|CZ=D$4%- zg+4k>NvXu6GNh%N;An{No3aX+#syVQot3!&pbx+2=cPHBzFFt7yXIz*+4Qmfn?AB! z+_LAgKdyI`RNKUt*8=(8N!8O&ASubyz6ctU{?lpkFE>Bat&&`J&@)3QGynuCzC3Je zeCf~Z;cF(ow>c!!(0^YFF9mlbi_Z0Rz(yNfSE=Rps4ck3hxFw-K-=jC9IpP5(PtHU zV)JyQ+pqD=+)5_Xpe?EP!=mT&%rgx70=4v-dF(ca09tG|hZR?-&A(e9euo&;-V6Be zVFCeKSa9*ajN@dvHMc9b?Bw|KukVL2aX|OzbuI_KB36V5*s+EXP{l*EhK2VFlq& zwG#Gc&O_Qx+IIC=mJ}k$Ta@_pNzj*;16u&G>O5E@>2kUj zqFJ&ws#t3{rBB+vDr)&2QV@gRwtPK!p5=2b71lbOQA?T>VZ0Kc+>oG{^UG+^e8k+b z?yWOa64@}h4JjCa!Qeib#I0&90?kOu<5#|=SMJjmgBJ-lVE=JXNZUpsUNX3~Hz}b~ z0gDF`0kaT_#6%zx%u2_TA5t6T-^16q(l!~?j`P(9+q`)m*K&tjde9)t^hv)@Jnh0g zR=$kWS|g zFF!+52XkrPJz8G{$W3c*ffYfdxZATBy0(F^x{fJizS@+YAqE~&0XVv(yxRu$V}>RE zUI$2sUSa}A+|r_XKO>5TMVJyAmfp`Xg2$CXixat>{RVl9XP$H!pbB!L%B{U0weMPx z_fO;LXfTJQHq!niW5Yu2KiB&9&RqhK*=&)>W@dz8(3ySGjp-;tY|)+s^S0+s>uC=e%Y-&F4t)HaB z?nVJlh=|T?1z^S0tq-LAP%>(UA}WvsTh}iY)6~9!u8~x@sF~1ii|0Gc_a0y)OI}7 zo>6ZzA-1Xy4A>YKeCEhRpjJw~sBzhN-t-WjCsS{cpHw?UPlKaGt3OW>F)WiaOjX&T zOnBP0%51x-M9xh_*kO!d2%Yk9j;YBnfFH(t5Yq;B}EFg!G{ohc*8nIJB^K zY6(gezX^kUpKa;DyCWib-8e7A4thOcDrUiaKCD;GcM7i0@P+`Ex!^a4?IHg_L^lMz zEbM{1a%823{zAp%U5nw`hk5>SKNmL?YMr<_o5b+;$Xdj>HTu_Qg6CR79kWzzj1(F8CP^j%Kh2D?O|4YM+}&{k|0@r{_1jKB9EhP@DNd1i{D8qeFQ6 zK=LVqhHx(RTWD!`IGk~D%1;Q^zJ7Glj{eb4>a2Nk=D-P?_t2<-DHx0qGY1t7HBJTu zi&UbLlH^~DV2I8$4uf5hR0RgCd}eD@(6QL>K56;~X&Svog%6Wdo?0R*JGSzAVU1Z4 zKFo93_;M%h=tbn;zsQUa35HkpyY;({27o+uz(}UnAFOI3$)$_mN=XjfRv|FO!1Vb& zFt~;5S~^bvMP8m2x7J8+XICY8EN%m?O-m$6^?nUJf(J9i$SK~#GQ%MWCh7y$t^IdN zSs2tfL>+BN4#-iayz{nZq9so?1NxUMXTAe1&0`Bw73xEF{15$baO4mY00!>XwumCv z6T~IYUd|b4)Z8H6-PIL44!+dfHu#05hd`O}o${tRN5{YEc2I}^4`>T16zYX#t>^aI zv1w+dPg~m8YXb-wrhb_b7ZX|qlw%nG`rOaxUUDY1gB;yl39As3Yd_}n5Gax&-Aw#m ze|7r!o%NX;7YnQVW`eP?bDAF_q6ECsBk0{$f=a;1FRYGED}fkoa0CohyygOK{`Ubo zsBawEy@3vP(kYTkz&b{aHIHDTILvWpT=crurM@n&^h^{!>I+LW-~*%m|BpJK^Y{9h zVD|5~nsdv+3e&*Bh5Z|}-i$~|WQU*gTuI0SE#>pi+AB`^w-~eORyRMl&BGQ}@qC*n z7d5!o?exQI+_F-K5It#TT}`edVaM&aPRu61mYyRUBKmCc|HS`#Jp^EqT?lm6SI8$FuCR*aT=Q#niB| zd-s$Fsq@sTw=nAdg-IPzVo5)6!?KkXVq`yPxg&69lWogyzZp7&R1#$i&yNTw+_ppC zshK+;?wVS_)jUjzv?5}E1kI$z4N}gG{`%nvQIf{5vf&8kjq#Ab=o`#=dMJ`mT9{Xf zF@^$*H;SwzEAj+0kL)Wy^pi^_GoD*9N~fODP{%O)0@>~PU)PyJ4Fv{ z_YUQ68Ko%p5zS>~;{cQ{CEH$u{$%NIs$BEEcvj{!g9!h~!o6SIXmdXtq!5{#G2=sg+rGv#`2Y%KaMQTlK1jNDy8zsQu-wF&o1kpE0RRK{W3hl5Ji|5^@ zX5RGC=zzjFb;crl7UnW)Kc*5V@7_13YEXYaFE9?t*dMqtH$Pf@S6UKLTwI_c=JUah zFy?D=a<#xqwcPj2AvzveSheR_jhkCHFz5Uu&~)!b&UuV`d=TkQ;)jh(3oYRtC!dw< z8jOgAo`WzwSZCoG3`dle2X60*Lav$3&2%b5dtP=P3!*rlL&T2_N_J}XUU_1wDa$S!89iX zK+N^uI1`@npliOT(KSuJ%R}QR!;G2nE{)4NJnik>O^04(Y`!{`j^e=L5pI`}1y3o0Vca1IY`bS?J#>^y3d4eY1f{qo z21M{xrK7K+qr&iwwn4V%#BqSJcaG@d*k-G5Ga-Ii|J=+oYDSxU}?d2jBk} z9qP{~r%NeZ*2Vg9y^i6Z*|eu++e-h+C#VgQ)|2ea4RX!N^<)Kg=A|fDFN-0%YF+l! z>70Lf!HM^4-aQot{&)|K@UeQG_<^#$zLENI4oXW7J*U zSN)j)9f{~~;;~%D!uf0p1Nj#>-WsV$Aqgg5mDrqlM*{^S*R>q$bYx$|aV^&=#PB!W zg|jNn8wo(|mn^(trgg-aR-3f=f}+X7}nazjwcq zZx#2Pt@-@GcDf;Q)2TCv6s@ELAx8%jhOhwvkzu2e{aK#~>nZc07`Eg1OC#Mb+r6>8 zbcV{?qp+)4{P<7s8=LoIq9$q(7LPq2y^^?I&wo>jYY?P(+2?4eO98-;Z4jEIF`$Oh zf`*y~0Lp-)!GS&m4L(6hD5k-e3s{hn{6SOYBnB0bYH*-35=1pIODF>WBbwv^<)~(wPu9}_yY_r_(RXx&l#32~exhe@RhuP({ zz-(P8k=Kv$4DKU$^L_IkJu{|@qZ$?=hW#(O5P`MDEK$SC z?3mK)y2@T$bQM_k%{bio{OF>?3L04H;FW{kht+@*XEh)tnOyEgLuNN9FR&U7A|>Fz z_=ARuT!V!6YfuZ1?D99}`mtE;No4Z*j?If2V>i5xjCc&}OVi{cr3Dyq5P&$~n~_)X z!TXRY-?ovChsW*pgfJ+7fC39TDG{^uVV^exxZcmq8yQiVaA({BrTY96FLaS%H)r;1 zmxaYe?ZZU@K-Y{cB$R)_TLL8iBNcv{zUST!Qqsgc^Ee{t)#bxsr*J2&xtu zx;Qi`9h5`@y;{IuWr^P+5~M+qXsDoXLX{LTiXzSr2951wLX=jZCs0$<{x(sRzzB+h zhK8VxEL4Wbq@vk2dCS?2g%YO-BK;21EjSty(O|`%EC|1ony#obf7!}e9kD)LH;#B) zuUT&Yh&+@nff5%0^^%5{7x~^f1WlPqNq&PgOibKW8kq-b>Iiz{T9ko^YXc~8-arg7 zOaRcu_b&kG20z1j3areCXSn_;n zT`!WA)*u-?oyCJ3+dL&L{(72$?RZMt0}#XTDy)q9SNsWwC! zyyu1s3(U*fgGhU5)@qToztts&2X{oQt6tM=kL_aQTv)4TZF}OJs!dZsQW#v_cWIH4 zed~$+Hv@UKTI_I>!tJ!NHO~XB@|QErwpMbQ9t?^UH*44dG!pGx7a%U$1#0N!(}LC( z$m{938+-)z%-gt#gV7@K2wG~p7J|#TtC4A!-lDnF6t5pWq?GTtLx34Tak<(WGrxRW z9aTE~P){bKduN9yZZA-4Pp50XEZOj-v|(kQ=b}6h12vOCJ1PhRF+_(zhY7keVqrx* z6Oai0LmXF#srgX9%DM=?6dyhKh~`_g7pLR9nYmKqDAL=7AcG@lfLYB;dk+ z@#13tvpq17)KG=N>HnKF1xF(^Ypd0UW1_lB_QX_4T*WZ%VcODRQ*^6xA3F`rrwgrGDe~Tze5g zlE6f2RLp5KG04YYgKzy_wAC}?|Cz|%-upZpQ~k6+H0(1*?^=&EIo{&>$hf@p{MnY$ zj??#Ei&uW^1^}9ZEMpsFAm#l2XYylTh1a^qh9)HhM5&26274nOw?B36f3p6xiHCB$ zn^f*Qk#*eANbNxdy?_HuHSL6Z_0u{c>(+NYARpLHe*_sA4F!eqVBwnCy1`{^x1e$R zxZTY(e@QO{wbXALwe?8w#gx^Tsi58f0Gfg7;A;TT!5B)ME(t`pb?Shk4XC$kfQFg@ zGH%fAJ|QOVAQl&W{qK&09f%gBa-GcXdE9ba7cASwk)D(k=9H89;S(Kt6EO6UxuTyj{d1PwKBTn$`JN(T%Lbrgb>5Oy3Jq;fD|*xWMc3+H-Kh=4JW z&Mjz5Pk4DiS`HZg496TiOTTWx*i3M;9|?HF1+`PlZ1MFOId|@I_v*|aIORK(5EpGe z`9ksnjS9bALxB7i7~XTe)OxqsY~I$z7T8X>cmD(9)P?x-j%w?{KE9)7SyWNZIsNwWi@ z)v+Zg(OsHa#}oMX)}dc{k(RvKN?{>hmuFimJ>vp!G^}U3`Y8c_#fbiO{^TYlNgUq- z4SQCDOuGh@0s%wRQ0PG?+SYnygz*}S8`ZOV?X>mhekxqx;e<<*Z+pI~IQ{LSq)pJ| z_^#I?N#BUoc1L@>n?6Xt)%jeHeh5_|%c>>|+L^AKRLH6>2ezsU{*Si?jw-w~3h#O5fBLwTRLDiP@^)+M=Cm?A=tbpau*an#GZUZga6=ceA6)TCuK0ue;36)$8d>yXu64 z^|cdp)ZQTdT>h7k@e_-S8PQU=UyF+^psDhL`bH@LphYi+Slsi?nZbY4LmL;RphWLR zQSqxjmy|>lJ{MjNw2fc{P>zpq;PR>AK6@=~S#niGCsxq=`E z6B%5+`UA(mS&?QY7YC$UVzpl$XsAJv#A$2(&rg;5%Z3H_*4yV$;zBEtdB$j})c=}O z&)C^;COB`KPp++W%D3y=isrr4FK>4ppw$S+NpwNLyfhkW14s$~Ko&Is;?_aA$^X1^ zIsOhQ320LfIEF9<5-1-259vK~reOEE53CEF;0wi|foRBX?pzT_{=k%kH=T6)nnN%( z{bNt*%1svR4sJtSULfMPa;L?Vkuk1)_yWpm2S`h`K)yzgJc9ruatf5+V)#e7Hvhb{ ze2`bi9nTB7kZOyonX#r3%5l=ms7b%F1H}t!VMSa;&~=K7)&YRJptP?6O_dx>O{FLx zKOe)-ouD-XdRS}kQ$Hs`^hOH4KWT&!7or_OT>fdv9R>AP)8DcXBflW#^JxIBax9#nZH4(@>ue9SM-HZ7B7G^+Wteih((HjH>F4U7_q0i@i`ri)NZG=_RS= z33=CE`r>sObBBkPDTgmhDyb<}v;FDQHzCSnODE2M1j_o<5#_Lbm$pxY=HG_7Zg2c$ z*Spr0+2z0P%Hk=M>61kvmZpHL zXY+b@=E{32Db4YeGM%OmC_a~GB7QP@=NF9pL2(rD6wL4mY5zyqSBAyaLt76H#S2A? zySuv-iWeyE?(XhTw79#wySuwP6t}@)aPGX{cmLn{F;C{?%;z(>oP4)?LD%E*%Isds!kcu2YMq1DHy0tml}(0s%xu|AqG@zryONgs1Yfs_F(r= zAUuE#Ah{Zi96(4zXgb+c{dPT0`mfY$(}bcZ$SlalSl1k-C(u&y1ncqt@9FFU(2>+5 z@}zCR3DW9(Q`0vyX0+RI1@a$$m!W+Gj5}f)rEb1@s1v=dp+1kPsAL`-puZ;8mU4z# zdyz#XrRmLD6fmLT+^6V!Y7M)c);6*+%9BN&tB>QyG__jtTfdXmD__la=2+ZfW1g}HxQ8579Pko)8Bu!r7`_qTAhaKww; zgF7s!U6bCwD2UQTiDd(>E8Zaj24#R#h_E#pn^JfEizwP~wNChxHVdv2!ySP`Wg?Y_ z)I!!KyA={4UvQh=g(ntG%`}Lor+M(Cv!viuk~peK3TBT*hb^`xZO7)L4_wNmackV5fNy{k1=S&Ccl^>?hm^v*^OGk~4@VMO5Ki=H` zB}Wu%knL_n+NOD*UQs7UPZN^qF{@)ZS2L`eVx9;zzR9#q9c^2w)<4>OZNR&I(eZ6X zvE4p~TW1#j(UnSptNi_+fa|V3ms1Z2qQ10}*Uz0^Pq)`+^B>D@M zy$0_vhq$)xsP7AzJfhZJGn2^_3I^SjbpuXG(QO-BD>O@Ek3b4_Cgrm%!e?2F17KNUnQheXqdHB6`nC zGnyRpc>7o}3+fwsCK`FPF?&>IpH%z(>-rt&H-CjJGV)~b6PpIE*|zT=pc7_INM&>Zv5(wDFm5YQx36@l=6$8z0!Thn6_3?%@ixd2yCUX>y;|{Pi@S z>VNaZTcU}8VRLWBofs@n3}O~5XdIwTMxfHKJ6eJsNQyJ)Q0b%NZOH3!H0A+ve0OjC za|W2Gc)52}8kzS417v_u7WaL#-7r78JEhEr?$vhb>h7I4Hcy}LDtRt-ZI_{571a@c5~K;| zGp+AqHZOnEZcd{jkhzYz)0y)Ibhlb|is7Y~pLE(SEr&s#!{Yz4w!m9E`YPCnSm=UB z&TvrqWzEitHb@0Y>}*A7`S$$A8ej6p_#q{51Wc~chH+gop*Q00f7x0_H zNE2@FP?D9IMat${#RbJGE}oLO_n2YV8y1zq3CCpjMREtn;Fp9#8jh&T33kf}_f&tB zngl*D(#T*c8_Ujx){akIQZoIA@=xtAFYMnIv(%gf<{98My|SUxj17R_X|ZIIG>Ir9 z+9KErBpJWnAa7MbYsRE8$4*G7wAk|6RiF@Hd!bszn!yA21D z#~_VG^;U#f?Qnk0JS(jnbXq|fZo55tUvW=9P}c04SN*gbp1&zT+GD(Z zW%7g)oUrM;?Yz!n%qgka>@ghO+x+FX-~7;3$$<5RDLukSDudEB^+{Yzy>x|$fu`nL zi%taxlgu|xv^<`co1L+o#)1hpqyFf>U2RrYF zPEMm??u}O%`wurG6o#2hn0lY_0-mAp??r*NaFKBu`0eDWl${;hG=6ku-@c7I_#mhA zW|v!uD#Nf6Sm`7w+uQQ>Pdsze>#+EES;`1OVTL~wL{#{JY=_6jwar?p=lm%SdHv3= z2H4+p^URMA)j917UKlSGaFH3&2$F(pvY&F+rQ8o%Xk zD@FO@P9M`<{V~ZaOCI<@WHGjo*)bMAC%7eNTL4GCA`;L;CnZum;8j-qI&{p~%`NZs zi{oF6l`-xJr8nYJ%tN_Gj~TUs`t0osxv~!nT?+2?`Y*Gh`Dd%!I)|PwKty(Y5TXhj6Tv z9~MecPWaExJK^0Dq4~e3$fl1lq`&E|%e^1<2b8&JFjAu5^_dNb~#Z1-XinvRw_UKxBc}J^^Oxa#>ra&eyz$E!y9LrJ$0Gc12i{60xhrON4cZ54B9d&iZ)KPDs4;@X|zrjtTt+_hXGG^ijp7oRm1 zo21V%#&Ug5w)LA>lVLtJ=X~7bwd+GMqh+G6Aq34UrMk92d`{d4PCiM$F{pMzU{s=i zLMQz#Vf8bS#=FH{nd8Q4a_cQ?K!_5&_gvWx+J3(51zk9x@c+IARffovP`-T0hWR`5IMdHO)?$l8t9BAZb zqT`qOt5R<7<4IXL(VFRbHzX_JS%%+N`HN>-Amz2IRzB3e=lW8bSrnlXA`^`|&vTtq z^}l{Upkl9=y+ahrjAxy;KJ9_;oeSpJ2TAod6bO&^#&79-Yjuhf8x9EPEqHX9`C}6{ zFWn_^E210}e&05xjd1zMH%zwOL^}*6vxRSd?lp0lKYmHO)z7R5@*2)jI=uMN@mlOH zl-P`F$}@iZ!6p8?CxWMgN#?at@z2Qonr=z>Sf=c=}9VI%9XFg`JWWk zKwX*469XDXYYGD)WL_F2XauD3vl@x^RDK5w`Lg^EMf@vt6JLAiMYA1cJ|Sx-=?DnG6c$SQunAV#EV2ELj`={&0!t z!E)o_K5>6m?yP=A#kRk{{_m~JB1#n(tYqD>vAs!RO- z5Osx46KOi4`kWD=x643OBg%yjTfebxHP)}5^JiN#WBPOA5LF->8x~nLiBeFf$xx_c zMnKGY_nDWybl0#Ub4nDi#hf)~%#TaYlC=#ZPD*xovvL$piY#;Cr!?jC!OC?(m{Mn zmqkX(j+32uP@i($YPS5}#$dxoA51kT##h&dabE@Y0zr0xM1}p#X+1T8HnRH*CC;B4 z+AsHzP_A|TV*+o4ibIkdK=n=uJ-*{)>b$fB7ee25z%c0$2% zL(eMqW!rMjuvbV;6e3))lly)~N&;5njgGtF?ugThx{ z#J(umF(?&lmZ~pMDx}6)6X`P4*0P23ke;}`tk);38s;vWl6f$fS8d3=y2W$2)3@aF z91As$NmRL@8fBT>MH$|fI#xv$Na^R`UuP({nI=AQVxu4>axR|w|4f3tKC~GHv zGJ4$^Z&vu4eb+Ogm|M@(P)|4zdJWo}rB?f9g5!^%&sh_?rCa5ud>9p;8#D1sD`ELo_=UdlP{Oqd zPm5=nv-bD1U9Jb=$o2VWa`X2!40JH~u5M@#2d&jub%S$~Vyx4;TT@bU*g-|puVdxn z47cvv&=dvU`35~4ou90_sMTkujUKmoMhD{ryqM$I3Zg(1VDdvpjZw2B;D*R(Afw}^cB(Km8B$O0c@BsO4wR1Zmkvl=S&i3WWhL`T;?i+0xO zvyN1nu+`{US==(Ld5bgT`3kBj=Upa}RB8f8(-VCNHw1eI#CNtY#fKW6fUF+L7ti1m zdz4qqWgV8PWjqw>Lq;5eu$s2_9YPV7N8YyV8tVs5HsU0|Iz6mttBLXK3uDeQR+M`G zrk6RwtFBeGJSI|f_3@H5+n}YKpALh!VtRYTPJOk*ZWN(F-kagM&`pb+l50o~lR^Tg zYm5Q8DWvS}n##Qep6)_>@|fVast)I~C^M+PCBQ%CDnHk(nra^A8;FfcluW;=Y1gLh zc8ZVr#D71IY2TH&QX>P~WJ82lps`xiDvVtbU$D43YX)9zGbba1D+~U4B``gbeg`3F zlK)j5UmcY#rzRln+zUK%hzikDm+eh;Lk2r`<$CJn- z8Yl0i&>8Y7lt#>U!-R^i%U^z)7*a#A>m_bGXD3MvNiZv zWOBD#oIvK?c}A^*eVdUXN#lFt4XF*W^fEuo90C}F_kel-WKv~JE}Iql(~`{NHjW6OOZhU)jA1pb*8 z7xk5HH00dG<^tf~fLVR{*I9?g4~#ic^jZtPmY&GjkT=z|ybfdhALI^q$_I#)Sgwn* zm2r!!o=c``t2w1&LqSM)J~=>qs!8b-f*kQmn#!-aVBZw%z?PcU&CktvnNHm|kzR+q zYI1%ppyb_ssyayUr*Sk~no{Xyb6`Y50@Q|2&A#uNXYgs=O@o721qJ)c#liEDrhN9IwKgfKjmImL$p?CGq5w(HuG!(~CiJ%yT(yw#8G7@*>I(IP+VYuZ_V=Vu%) z-0m^8gH%rtbopbw+V<;f!8ZTBO!>w0sXFUyZqpe@k}`60MWu;tCFe)nQppG*97FPH zkucbX3Z&l3d+9%{z5BL~a+c8569%NOjHT?ba+BL!!4D8=TCk|B8#2FiVO5l7RuRtkWY7|1-L5FLm?=okDoMx%TehI55TBYfuzw6S zJ*bCPO%T_#le5=EjixCQThZ<*T$T&HP`?RicW05dUEfng^P6>A%T#f7H%_?3a3l(b znK*a&eH<{qE1_vhmtOp{!yC&O&K#Gk0GpOz6;0qqi}EpTNHh;h3y9d}&2h-=2Q#265>eK4qJrd)zSjYq7P#hC_iY{rZUQ+TdHTU|H{mnwX!VHz` z*gz=kw%clO_kIn|xk&^tuSzG1Qfb10uUFFJ8eZOJ^g=@Yti_kXL&Mk)004eCoX4o# zY`x~V7d}oa95hxSDJS^~fH(X5rIR73>{nArb5BS3{AUCO+fKUHvRa3>p1j5dJ{b1) zZslOc$-_MzF`{{msF3QVPgk<7+??+TEtm;j!-2i3^L{74P(S_ADBh=Hd=pAa6A`bJ zv+in-tP$Lw1$^tvs7Ieo$oVL<4WWEH720dgj=2Zq-miI8q|d++Dz+8E^JBG=bCI#$ znHMIPnkkh^yE!?}AFc3UpAZ0|oZpf2l1KBS@%T@sREy7Cdn(Y_7wcjZraz{Hmi%)d zGg_5I^Y4URnw#;a--X4x^?4K%bryEoUWy@Wv7H6D53tW*O5CXhmUhQ zeW%%BI>ztWt2BCfe_>b}AzHy!=14A2p4`0q7POF1ZSfi(V7T(-5`Fl(Nu{D11><|d zg)1Nso`B-R;U(BEVe1Ni_w3W$W>cD@!OmU4tfjS`-q`Gmk3}yU*umrv*S!sr>X@kL zn)i@fHs$q;nf&qR!2Q+~_JLAdEs60G7$KS7b6MZ9QRB0bcQHh*P+E7~Hvi>Dtjj0yXH+YYqqjahJ8C(Q`F1P z*LneE2bR#fHm)N+7gXI%Z@l7~u%?s6U8#BATFda!%#BLArEEou6!BI!hVGAdZQALT znj(U30&Vo=jM~kpkuPbkX+b&(%Ym-=$p|~r26y}r*;JxcSrk)Az#nY)`X!X#W`1qD z?BMRZ47XyL^z&Z3daH3vWg+MAc-y2Uq zZjs+KtJxb3JKtzK3i%TZ0pX}1?XR<4m$%TfN!Yv_i@(>A*p&^Z>Y z#26rhO(S%4rgw9i=yCZ0yHH@;8~CFMF)Ki@3IPSSgF8`qNqH(K}~3 z1s&HDA(kEuj^TOJ5WZ=VgPQHCoN^+}5QP%U z@CGBU=|a}8L|DtE{TbD^fN-eUP749JPr3D0li%h20v@E>`BB{qq4<7}L8t8kUmKk! zZ`0?Fabbv(-McFBO{ev+8{%`WX&pT3aC`Iudm@2ErG;LWmP+Szh^GK8JQJDn(ZnLcH0vP_Vj z48ChS?GVuNB0S!T7ZMs3M(42e!x-v+XbrwXlX}T@97!jNT8&9$*%wWlJL026?)OJ`n4x!6GDnxrgIZUOcSd_=?Pd)TP98Jmy*6P3z`piKc=eE{Uzn5 z6V9Ge)mrTv-Z&?bTJbEtnUl^L?70CzK=bu8{i(0xEqloYW7eNf0vYWW9N?_*{kD1N}dv1 zJ$MMZpLe{l#zR;_`%yfsdUTbcm+6dnn|OK63Qsovx+RnpsLahKeqbQ5f6VO9K!?w$ z1PnQ5g`SlC>jE76%a#~DU0OB%p^X$ks$?laSC$q^Z0 zI;FV4x0TS+zbhn>*MfguxDY^CSyeDVE|P+nQQa7Hoc}(&%(y>(R+hh2U>%V*(3It8 zU~|CLd~|lJ<)eG6OrAJ2o-T4jM@q|zuAp~_|8PItmdT~2dGgQfQ~U6WbC3?Em%B~AX7ZKf;euuhYO zVr*{g_}y!v(E7ZAYR(TP8#*o>jON*M#<2~x5}Z1C4r#`ed5g;-K5sqObN>Y-f^l?j zjEoFo%;1W+g>*HOjvwu_>nONAdS>NZXkXtMb8Iz})FKSVOMRYe?W@EUr*owOt;D9) zyraHSjDCtxq`LP+vrUGjV}^HmxhK_MZN!L1Ef&o5ZY^k+tH2dL{<9&%7FC0Gq_eN$ zde%`md(pp*i8wI-ZX|o6R#9k`^a}s{gIZS9&?S;Txu~k(-`3LN``SO#Xy7GwZIjDk ziazp!$1h&@7r{ggulYC(n$5uHtKuFj(z4Qh>_{Fp8KbGlmgA7uM#*loHfKZ27QCrW zZcIMecyZ?09jsC}$u6$WV8j1iHRNVET>RGqBd@C8Q_9CCX^eHQ{dZ9izuu`f9DF{7 z$kY+a*TyCWYAySGR7B=TU%gGxF$OPv2xw?*vh*+I1hs!-JkdKSkX?OyYF=9Z#c*}> z8Qt7K$C3IF;+8Ag^3BQ$4J#HODAk` z^!;2t-eMCf_OnyXOD^*-5TS1@Vj|fyf6`{t{^3ZL_u3(P5(11q<|61J8c#9csJy;) z7zXN&M5Qo>IbJf#x5?{~_}^i@hPS{dM5m~>1etq%#Lnz4!<3F6+8G$s&CfftXIW$URGo)}- z1UxhGKEjE&XNQN`{d2$)+P(;->``ppKhHU-?uhmLWh}q$u?QO|@0QbIL}XX~?qs4N z$>#D-rW@P1d7N_RlNLXT_Rod?3)H&F=8b0i*ga;#))s4 zVut(R(jqT*m6%l~{^W7YI^)SF1Op0sO5s?g z=Hr~JTCchocCl~W%f4sn;+pR~aF}i5J=frsx#qy13Teha9j0B$LCXz8Otn3Wx0T;? z-K#3VhlVuRg6TCfj4dZjK0UZ|B&>PAMB}YhuX_&5;Hie!{C*b)DgYB4$bP0qqJ%Cz zv(bh{s!xduBo=6sfDNV~uC0GI8*j%_^tGK(4>*7-5kNFG<&kUlY3 zA)6%iZ_vZ&5M@JBsWoCUoUYKnt5cEBH;K`o6%v&-G$aQ-G* z@L$ZwlojTnNu$j=x;UEM4^G^6*k>Lnyy?>{mlEOfNg19!l;S3fpd^obo~+l*;SEfy zy<65+@c9lLLWl%PhS&E9|4>VRTnNByxqjT0R)b1(M z{SN_1Cd5Ew9CmG^TGOXVrh%?Q9fls+q+-M-o<+MaP-l2Qnl4^Y;4t#Vzv&$f#BmnD zZ`)g;un=2g4rb|r0|DnQ9^`c`|fZlOMg zU#(`tebYy3rSXS%`_;Gf5;Yj;IF8wFd2Rcj*RF8r4)$W(_ub+{h4DExSoy|w-uHQB zb=rptZsN9c+VSxzMB`5T1qG}bpcJ97%av7g&=;Veit(=+1zmRhZt8;Ha@mh4$j38p ztlZ!GzX1B|w&O=Gp5bpV;31bc2#mdGd-sF?I^F(iOC#xsXer-h7|JbOFDdFg<98I4 zT@L+ZM-l#jqlc8hY|p%+OBOdJr~P{#!U*ZV8jWenlu?aXjP$j;!~I0*Lp|`rIxy>tN%yE30e)E|flg`&Gboo1;O;%6Q+W;z za;sNrx#%!qjKOGDKnc`t)-$$8h@Qf!$Mb{Gjjfr_30)y**t16ejXL2WL>byW9}7mm zL~J@0pf{zGFD>42k4A5|a5HT+<8g%Z$wN7rtl4zlHvX zD(@}u&@TbQUG#}jbb+f;X(Y=aB4H^GpM|I-(Jt5`U?me&Q{_6IXbvTL;E+_k&B$Gc z_((>6!@wT*KH5f0oUEKCM%Ob)=Yt!>gT4`Kp!`PYKxe82i;gX_oZ90+>kt`I^$!}} zt><5;SR~Scj^X%OH0Kzd_Y8suy?5JT>8EPbyZ-i z2Q?*cn50c7&e?B1wswkkUsNBN)e#@V4hFRwFCR$ce>vm3M2OR)af!X>z3%XDLM?p( z>^dWr##R0RV*X4+1*+2^i0qpWmjaBHRx)|4H4c24Xg;y2sHi8aL%YAM8B3JEUB^;5dF0Zn`FHPZ+oi6)2FyuNITtj5u}ANX|_#QolM&ApYDt$EgN` z_icPmC2Ko!Gb5ev$vVpYo|%?#oFTO~FGq5mld+Ln{6(AHOj%H< zU^g$No1*>rN-~aXFTImPL`2s{#fnGd8mP6fDQx# zoQ)&Py+D893MaDxv3}`yTF@*JtLNDps+scT&S&i(DTOjks(WED;`V5RWFAn7!I*Q{`h;y|SmwxYQ6~bEFD;fHA36=?f(t{* z3^EXnrD6~AkAQa(S1QKMlN1q8i|C};vH*!OUf!Xk5^MkVC=Y7z=ChQPZ@i}<&YbeB1=nMpc!}vxoWAeM) z51-z5@*39=WqfN#zz()n{51&FJnB&c=_bBG1^Sz7?_w*VSJI%J_h=#ts=Z%z8wmi4 z3K)F^7si8c{bOE}^`bJ}Uwj9(&0?>aoriUM6LCGJx5DlOHa<`ynpmzha#Kz=?p!vR9sn^{X&yRN%e)OlWxwHoN~?@S#km!aPjVQ z;v@Y6hm<}whCo`*-UvdCM9=7+&54mV1%=UpEM6>^SR#vQsdia&4Lf57T^;}Y&O{^} zu|t_VYU|jH-1Ff%xgx2*BWRE)IPE*oWaLX)z(O%EG&JlgsupmL_J8AR3e2t@4s zBIW@B*fM#ge8uP(zz|3owtnKPk@}z0JL&|I3_=W$Za)4&@{)AO0f-LV%TiA|83}qzj)Ku6zo?zl0#S^BxRIvjK)x@A?UY7 zOapcmQ=NDrq&abq@&O42>Sv-N+!fpb^_RxmQubgqLjiQ&34BP6$`ZbIVVmVujqG!) z^Dm6Ji|hG~@L!^o1Ms*;U@Cj>8M9qJj^)3-w;m70LzD zl1F128SUCCy$<8*3g=NiW4e#-`mo4CV1r3@(01_x&%V9>bG)DByG)PoUr3R`Ag1pk z*$;d1`X-?SA3J=z!%YfLjLF?xdm}GJ7#1w!6`N(e`Mr`3z$Ol?&YcpO8_@4X%VJ^k zXu8@P=nKCw#H?652qV+a2$P9vDK{%86r%gIi3rlX+9t_w(ulVQs%?jT+)qKmxzt_9 z=24fi{QQgmWI44ZdVnLOJnu%b1Aic7s9G+3{-6{6dt+uU?PDq@L^4pp85ipqK}$fq z;PbxhE8)Ki!aioGGH*?8V6-Vq!%H&f7Lg$iguPq(C4P`Js+&N!NaMz)SIASzY)%sg2 z{|%z}OwMl~0+U48U98akYl6h`dEiVDLZ$HcX9zr~40E(|(>;?Fbb~;AWv;KZZM7K= zo2VtSQzA(2i-LRmIDL6>NAOUZ0gy-QH4$7WR-u#6Q1F&9xv?ZcYYeU(g}nKM|hV zci&xv>{eUt_parBm@58Z=dcK=6HyL@Md)LjfDS~$GDv3V`TfccTXOIzLFyTWiUqre z6F$G>><5hgq^f3#45{qPcx%%pgy-CRBY+KCM>z$MJj)|S#N+iG_qAH#)Qx`4FJj6g zW<{T;JX*@M{bPD|&mcMu3$ueqotO8F{bIz+H6W5|3)$p5k zOGC>*ouQ5C!R4Q?t1s0@QH#7jri#5+{iDcTgv^O$3x(tpQ1PvqFT*(|r43FlM*1NR z+C%S4l3!-gjwKm%p0dMWm=jl1dnC#EIxjN@eL04!vQlPOfqi4WE@9H5E3{qgiKvBP*63q;}JGOoDyWoNQ!oY(ok*WGK ze?4BD>n5xrMRK*#@33}C>4zNDg@N=Hot_v+Ag!H$DY1!HGbPYQ?zvcVsJtWT z-Tb*=4B_~3T(@ZRg~vo>)6Ih}vjkn(v5@??(;p_9*!zEt_;zu>5-JLYC8(m9jxU%8E=%iSymSV)Apby6%T-#8EPuEhhV>!yzewnsV0Qglx85(_#Aev z5}6RwZ zRRRo4u*tIbnM9eNM$B2MOi;|;0&9ywD!X42#lF+cGQ@Y<j}9!FJdXZN6?lhRZ1 zcf&Dl{8`H}63cwXfQd^!z&D9N_Mg5HaBn$;*vxK9-;i&}s*zQ#<{+i*_ook(89(OHxlpIatVcCs)jbh0Kp@B4+wv)rc{V zVT`bLgn>E!no2^{@yh)AOI4ggUxWSH`+zrOxL4P;qV^|nz#|y5tva>Ws^7}=wrob; zx!^e4dY++3pHa?qPd7}P%X$9XYT1Y%x0dHzm62+vTiMW{TW57$LqNLx-k2j|;giUu zRME?pv2*)*cjj&m$vgBoeUc}%AzP~uU0;w&CWeWKPh?C0^n9OYoTL9wR||!Vf;#?6 zUH>2JAm&@i0v+meu#<~?8^wT?L=G`qhmL3xl|cX%YxPIjy=ZwNNkteBgmIc)0>LAf zw_-wa|1ah2bIGZ;WU`S*#T0`b8Yzh^D~{xTAyjKSQ^)n=HbRX441tlo{-ScWCeRDzER<8113~F$Vv(Woh_uGd^%A6flZOYrkxJRu= zo9NBtAaI1|z`W$5TfNLTfjsHmLG;5xEarhCKi=A*op>Ty(0N`+Cj3R%a!q-6?xk7- zW5+h}`GQ8H1y84iQ-F)|(R#p1DNRm`^8uM;thvJv)dcTp5KgAT7pLdww;!QXb5$7|Askwwc|F6#n zO58O>ONT39%cqy-To|Ui{YX(|%jc-3qhmLK8XK$Ncpw3)Fe#1FGqEWU2y{WOmtXt)F^rY+NO)EpJ@q zc>8#}l)3HjSsr)nIBjir?Z8exzI1uH*$V>oTnRR^vM;ZU1TtSYAGeN6xEMNgz3kcu z&#r7cm$n>gtaXkzA>8kM9@o5~cHFYAx*oH-&!=BreB4~NHoCfi+b>X8Szf(%KF3}g z69JpuujyNtE9G8Q56iC{AhoT>EpvemuPIQw?kio#rOuAm*`08A?=K{g)41ZYSpldM zC}BKLFqp_ifu7q+m-8ubtH?71;JmWqbyeLt*Y)to=-urTJ+{%YCAM{J3-WAg@0#Ab z>WJ)~$#Bi++OoBI+&Xj3Xuj-_U$k7?Orjsrx&(!rS=IPI`#kJ;Tt0$aH!~Pi&6-`M zJCDk+-P~-sP}a|Bh`e97Uma82)Q>rj#vM%8oPpa{M%g1R0^G~C!)_bfE49EDyTBH= zj)umcu&D30d`6AG=GJVz6bfxE$ZF&wCJ-ZesjU7&1v-I=t8_S`;-~9b& z0gxrT00e)8ykh8HfGh?X1PcxZr11h7<~0C4(86B=1Ac)rni(850vH7VezTSwKm!1j z671lwQ~=E`AYC7T0nU$KfVA*W1>Xaa3xG6Gz8~y2V4q#UfIy0pW6ewK#Xtkd0-y&6 z7i1{`(E0%Q;izcvy|Ssu><~Bz{?HbG2K%$4;0G5FBC_={DAU+S#{$@wkV;}90TArH zRE52>Na;|bo&XGXSYb*GggpN!2t4+&0x~j$;<6V*;{^;^Xy#N%0~S2+`j@UChi9&z zPOZW(9B2;igi?+<9X3@~A|NifA4hnsn36IIzTcuaO4%Yo4BCJd8A*){flQ1tRU9Xu9HD?D7Y{s2JUnCo9{4#Hxv)XP|BVm;Y3dJ|4bJrT|9?O9X|4c) z!f=5Q&}huLV6zQ4H4_?KMgyCnuEAyS=+J~MpwSQ*z!4zuXg`TjpTI#Lyu##=@CE-> zgRupqSbzN_E>uDw4HQNbrXW^=E)*7l{tBNT4hF{nK+q6FLJAYdgIgm2&}8-X5y-y+ z0)NzkA3~}gP6|%^ML_!n9|#~O7l96oc4i5WCJ*-~4ix^076(Bp3{dJN4usK0lOk3R zfR2X-XIBb01tO4txh9Sm&H;B12LT-qBOVU`DE5I1)ZqJMz>UH98)(AzvBLg-{tng5 z97)7dfIw&@EQyNC-PiJ)Cc=6R`lBv0xa&Q+wu6O3KH6O6|4CQ8t?Fb?-ZUHw8sJPjI^5uflsJIZD9~zl3x> zI-B6Xcvb3iP~xlA67zgLJD=0sEac{=JVqj=MiqL0Po99wjyX6N)P!mz>!wdTsj zeL|d%j6{iNX`jn$f?WXfdj)HzLe!`z(q<0^Di^_?m}eWgmFquHsR?Q4l#3pE{?na8 zr-e9#EJ#7UEsc4Gk+R1zF^r3xFm9`5_L(5Q+~DgeQX>9Q>nS zaq(!UVpC zQ#1V6pV09TP0;XF|IHN?Ks*+noD_@?1rSF23CKkwt7=TEWe1B4zj!QQ%g-8_7;Joj zbXnpA2m=D$hMeXA3EaZyC*oj6@K|IWNU->l6k~K-1C`hJs}Bo6iY4Arjx2YsH<{{p zM9|(}e*&QLMactAoher_m%g%1*ZQp&LyACu85tIH&FJU%t(P$Qc+r3Z{kR045L|v( z&gaONfzP1c0XJ4$_M}(T2nzi26mV*>=#6IKq5P{kyRFS*`h`xZ*Sp%zWvrDroPrqA5b54BH13S0}=Zfn&?&gj+CvzwdlLYJ#Xau`2rs zKx9Kb#1%8IO-yYxX2J+2scw#W<52MTU=Ed}M7fcv7277$bx45i#q?=flRAbw>N{h+ z-N9_@3Bn4)fsK`yIi$epFq36j7R$WuLxG3tnL>KM=5E3ZpsYzb3N66 zF=xC^cYX>J2SRnE{il0^|Fb3c!V?D=UY|ZQ`inrLUP>^Y?1F11a=}-hz|~NBee<51 zU}1!^{!dG=H%LFr4OtlbgBxCeg+`%nk{r^}JNkaC7c3d98kTwxy$Ix)2a6KaFA=-z z_*082ylNny3d_(Vl}?~6LBKe0pWgR84VJUo;*>vlD`_eC`l}U?rRN2`wgjV-yD$b( zmXNn`Q2eg2U>^q=O2eo3vwqd?YJ@BzP8%I7H9MMa;LElDPvV~e26Iq!kr;qkF@FjqFNdL*=&uC48=SI6?YA1f^Gxm{TSBG!GEvj+Z{5V`g9l(Mb{Ubj@gih3PW9RgSWlvdhRla4-bPC>=)hPE{((Y@)}_T(Rot8letmI-fBK_|6NdwG1K|VRmSCGO!x6|ug#id8q!0*bKS} z5dN|L;{HnTLEOg+{pRo||!RW-8Uxfn$e)`8DkPCyElAzHmfwf?* zu2arj1^x9Wx{B>m+JCYz+{X;QD*0;_{KB)0g6CM&fL)Fl00H${oz4!faW=cxUM_Aaw_GR2_JNnH2!jeDk(hpvs(6!nug z0FN7%EnH)-YL<%1dPAJ8wHCEW5EmrS;`d!aM3I6=>^ zk{P-W+nP5=b1C28G)>AtmYeUAS2YVhz(NcyFVi|!239TlE4Lcet~>UhlKcnGT=af( z53Mi|tUGAFn_)4a)$CniXX11ekaoeXqLIRIid$m7grj!6FzRAswls8rlsMx0ODCowugdp9j)I&JwKYbjI~R`>hlT`>ky#J0 z@7=RrPqiLP`KRzAawnA7F_s;*CB*|~dHXrGXh^llk|~IKaO2-jg~#XbZBsZB01Oad zHX6_)_CEk;K$yP%+7g=4OQHR6#A(nbxfd(Rale9rXIDBiO<{?{7HoYF^?R1X znv2!oNiU!!#0yyO6_meDC9^1q{SO-y|6JsBgFqmH2O}FqXuAK~noOfBf73m!)!xeC z*Dr30gYFavpYS(#B5D?unC60cwU91($(a1liJkF zPxXnSA5gEdBnnC**aQ|;Yf%Ter2&>1`&2_W!ysTr&z~B*4I>+IDO-g<%P}DF-V17- zpzF9WaEmZBP-4{w3^2)7;|6&mP-d8d*Oawu^_uG|*K3rP0sy3iV}MeQ=q8;gB!IO$ zX;=;tPC^{8JVCAG6baQ$9_bO2ve}Sk>kc5}1eu-W4X0URbQcUeI@VRQB;&XKXaBmShjS^WFq{xH`fncZNcBf;tk?}%Q$sGK}mJQ*3>8bE4a=7i8nmz2;!8ntn-7^ z!L8{v@E}Bs!g4?6fI$Qa6_))0yUt3RlDYai+!lM=Prn|v$k3v);ec(;NgZlc}i~c_#f&5w=|I1s=cKEK*f-SCm-8Ez5MyU zXMyw1`)gQm2i+}nyO2O_Fmee6t$I=l=>7-M`^zDSt)t^pvyZ=mMA9i5$p2}JL zuzKG2vs)$d@3TJpCsXaS*uJ?+1du=?w26U4l1b|8^gAo$&VFc&e`%&0g|Vf}4VJ#c zQcC+GHIG(ync&2v-2g3XU(d8TkhH;zbAEDl7>^~0|Cd#Euj%wy_0MDw2_(t$np*sa zEw%LgwK$BG)BE#|q*gwC2^^_;@>fp_moB$g3#pT_sQD7f_|kpaa~ zsQ$j6xub@=;-FN*Fo?9+wIY1o2mu1%v0>FDnspRevGVDJoPt5>@cRo(>o-ByevZ=W zb$vwk{~H$X-%@yHoD(Z!j=JLI2@1qicF68#kM{RPG_;POxchpHwMCw%G#RORYktdu5z7iV>_45NS`nsY)em4J$cIDYG27C z-IZGqu=aSJs@tRxO*+d|$64_n(Nw#dWP_0>Z^et0oH`@Z?bv7t+qV{UKu9oI@_YCKHXf zKdJlAZ-N+V46ia`4WOTCWFBHaQ1}Tz(GI>uhrHzft2iQ{i}w^)Fk@*a`6Y&3dl3s2 zJhLNzFthOGi|i%Qy+0JC*19t=tBnkT^Fae5Rap%#(+HbxJw(mY_6XXjTrRj(GGG}!dy7MwOZ--l& z15h}$Ngv5#IR09X!|UmNdmUtML#N?y6GPGe)P5CU0tg^V03d<|fnS+5%F|%9CRsI| zGy_0113&{LrKShh)Qt{;x_DC}z>qIU=%e+n%;_C+zH+n^?~2Y`wEjpC9P1TYv`?cA zm-nBaT+S~BUcs))dC2;Xj)|J&E(nCJTlud~Fs^m}V8Kv(wpMi< ze*~1F$q)9W?;(8Sp1@Nz9cF6Zhg_mxM?f!jikYstQEHDB;*`ZN@{S%Lq4)5UXeqzp z`x3GVeS75^KkMvtrIm!d2rxcGm_RDfe-#tKAsd8!0S5TjQn6t7L<^|eeyG7Z?+@KZ z7RynOKsmK2N0V+XxtNf1yr5wT+VDof%~yRT(8sO8$b^>bbsO5QH$-;7o zPV~`f95VTiIE$?~lN9J@zJ@|uCX;Qq;#XXunoJD++2=gMc{i?SK-bWuFr2C!D*z?oRBs@n2 zHb$y9=R#=o&cSO_)&02t)NhNa0;`4iN> zP30!_d?Yuz&0H(-W@p%GiOE_L6tZ`;b#zhg+atU4zrcbz?ZO3gka5WnADTq83;pkc zsqHzKHAtn~Ol1wH$hvhLj31N|4R$5SR${cnB*4B*!t@lg{@gl0n_ii{Dj!kco*^L}%&z2@f21Tx zK~`iamM!5;h$Z#;B>$$gX^opP+h;fe5KpF${I)5-|fIpz0(tmfwD+#)O2$0Xxv(gnO;O4b@>A>+7ji93g+6 zEy(atmVXmB4wAlGF`K%bS-h<*reQDzoaP;te{vU997Zm4QK~Lbje0aBo3|ny736PL z$|H!{pIyP^oeB8^+wC(8HDr!-%O37H-i18Y=;vf3Zonh6rB1;1>$#Lim>RBFW5-~g z+g$kyop#tT^K_iqP(Mylj$I;k$l_CUXRU{h2o>)lNr{;=_p|N=Ruz=s=$l-od_M zX?tk$x+IuUVSSJnf(m?xt|Vx;dYlB*{(h#G%=k88@hpkNBx!`o&v&Bnk;VAT+eP7PK`X`(vgi0NUXxtnu|6JW+8p1u6WTtyNi^%$w zT%Y6aSP;0vGO@SBRsYvTH}hWexxv9$vnhRKlFPCE&g-$Ti1pJFtY*$1s?Ce;v^hZ)1_V4R{4yqZSP}FqHyZzv z_LkO$kzCsi-{58Fb_-lh9~%PJcuu_Op^3%U*zFyy;BbI9Md2p-M27(GdeGZM5N3{S z+jC&o?NSM0Np|WDy7!m}B;l9IemJ~M1pU`mq8D)3eiZ&O!K_vV72C9M9Il~iS<4l_ z6yO%WG$u`sM9Z}NHzB_E{N^{2ZrMGF4M~=%gAV(E!aS(&l)irVGTggDeh@gpWc@P? z9_X^Tb<%hRldC8qwh*!7r9Wgn^H!rT@%N4OehE`BDLo1#tW3426{f# z@V;J7%MO0XRf&Ij;_`Itfu*g=FB z03a07)~|;p1P2(9Mr!Cw zAcuD$VvqAAuM6aNo5tYr^=AHR%e?#ZFCP2s1C=Xt3|*Cwy=dKQl)9~VUjtQ>#y3eY zp~;_SeNEhheHiY)$^irrG!#Fc19uI0$%{@l9n5E%rOfR?b1l19j!Mv*+UK>YGpAU) z6R7)UJ>3&eF;!L)6`cerU#1ElqoaU&bYRqHv4X{x?|%0C$AcSlr?}=hHDE1l@_i_r zS_`CqH_W|P^z9Q>PK)p~3<{U%+2WS*ejm%@$w!+Q(VAJsY*8M@3Ks8OcdI+2gJ9n9 zZrLr1zj;Fh!k*6^-G|nv_~vTXe;UmP{$P|%m;k)N$^Z33uJhilD7c3)8O6PWRjp;> zW7x2`D$1X}*|%)*nmW9SbmwsjwioBMe9he^?_#^fVDVk*(GF;+TSm^684G1z$zYl~ zJZOs&yyUHI9s6rFm5EG^&3!4KZyN-~NNV8?>bPW4xr{;zpCYrXt?={LKm}AB2(v?v{4;`!*OLUm%SeCrsJ_H_F zVAG~eE`14_2sTZ#0|&Lq@sjc?Ih4;5vD`&rYcLJbcB_i=04A@) z%?KK_avzrKjsbY{!t3n$qX$jcKva$uKGaCtaVdo$AZqTSmT<`W1$ALJx=YJf=i~BcRpj#0wt} zY-XR}1vH(9N!ODpI4QyA?*s>JIHJQx)8<(at^3D_APK6U_t1r9*sjM+orre+Mgj;R z1G@IG9nOvoq9(m2tG~Ov?lWCHXZWTIfmd=zu-3dg93B;*1_iLEO2j))TZm%R#^IA< z5lsR@2e`Nh2bbX~yo=t_c1;my;MMeYp54*#7p028>#bQTwwj%*^Kj-=ZQX{ITfIxq z!$`=Co;jm^b?bg^PVV;GR+yD8K(EIZk#l#`z+nWC0T5_iI_wcEV6`_J_c~bZ0*=XL zTc4ZXN?r-r1Q0+_4u6x6*3Uteo%S;C!=8qnezt6PSiUl6Eoe^^THeti_0*qC-wUmL zon(492eNcQhn^F(=|97*Wk)Je4W+6Rg8+h2sA=j^{%6y=dyZLI**(^^w@jE=D+)nZ zajQ`(W8xftdk+Z>j+uuUm5iV#5Aq);cyL5RuvGEPdbdS3ytx?9PJe0L9<{7^%Y;`% zg1xDU9$Ny&I2HAc7nxbJvbXzBHo95`ID&u^>Ia0e1)dd{APGy-hfZIS#yx)@H+5&p zrYdWThIcW-sI+bQEYTx4LgbG+(#*mE+`}zcyx*ZXn4-Q*yDwF|+@0V0ZpCL{$oRg0 z%+8U4q|cKOe`&X@cTWHl8AJo&bBz{)9fM{^R#up9!I%g?T-4@01&K?3)g*E$??eDd z2dUSE8$D2orO#e2AXOLFr-FS$C$t^Z0J1EaM`X6c@X~Kev4`Wk>e`Vaj0X<9Q(lpL zQhme2U>Bap#_C>}paaLh6z8ovvtH0p4$p|j20v%fy+eK3*f5>{4$?@D@IVK*im5_1 z0fG-1nNVPAb7l_n%Wsls%HD&YEUddHi=s{?&YtIfE3@02yvO|6_F8l#=;CE8v7kG9 zj*D`YJ1+jG)o%hxwIHr=#0th~4+dQCjsVV%%v2%z`o-HifIS#M<&2mxV~`+B=-De7fI&@n*F1g7WZcj?D~{TI2mOm(~<`Xc>jP)+dYzShX6C{RB~9 z;5&Pgr}l+2`Fi63C4W{f)$&bodnQR^w@n+baS`E?*Pw8ZEWC=v1P0igoS^e1)}-~# ztmsz?>~RWAx=ngynRn-5x({*AON0OdH{c}jKt6Yri6hk#AO~3J(nhsBR-xxOh!Sl( z{X1nY_`f<|AD-f3(JZJzH@2!uwf$zTaO8a-Pu1C)ulTnu z5K31&Gh))wLr4jZ{Ck`ALxDD6&6~eK^^utj~RjDFG?7gjjRQyJfIyu z;-W%tfp0ParQ1n!RzT4NO9@M^Oi1Fe>Eao zfdNGKxVSoZcKm2?6MG1M0l?|bstr)`bn7$cJGZ{;R8C0@_m*cjgoR(s(9t)*O*LhX zz}S(xx0iFP{}oyEv5<6np>VDjEirIurn6wI7wV}N8K)Lo;d*+?tTwN0@vd1p`YtWO z^ngg9$iIG1?`IVC9zX`&qAU8oYl;%nfx)1V)5*A_j z=u|HxE_INP!R_&%`{Li4_)RZm{_Hy#2CFDX@&tj5!5-neNjp;$BBwbsEq?|oRiGw{ zuz=B3*0g^532Z&@&_!o*v5a-d+NGkl6rdXb`*=^Z&#<~~!LIWN72_On)^ z{Wis591E!zv!>#7uDaY z$Hh1*;X0(FNSjnL#pWF!js()Fs;jV1%zf!usP-&qmUiFGpT>aK2aHA`==Wj)zb7YG zQl=A2+WO5gRhgFF9UUrLw1mc1WUumPjc)+xMA4VWwGd0?uh~Kck?EZ955<;$Cv_4! zaWe!H&C5{~hf?7bvtB(l5Yqsly1l713fZB65nPdNDf=C_p9{6GkbRYbvD&9n^QPhX zq!3gKyk0EJ+or>xA{@ubQx=#^y~7=BYL=yWyZ>2J$1CghYzg-8v?1F^jVdOR2m%w&Fl4D; zmdcxd5Xi|Sx9)rrK+-a09U<3!WS2tNidjZtYW#CcI4ZmtB>6i`IH|%w6y|Z@-Fk#}s|>zGqp$@7hhx&gu*@h_y|z zY9>P1)nJPpIItId3dUA`Jhr3b&hg-;8E0g4za#wWn^c~6@)8KyCBJ{S=Q&Z`vx$6% zm+)N#06;XU?w=lV>q+LuEg(6II$T5JU zBamf0k_P(IIu13K8;h)a-#yawTN?Hrv;BOOd8&48)yMHsr)F>MegJ|96R!lz1=Msw zMdCV^DG{plLo}t#pk{~xbyhK|Ssmg29)lXp)Y4oK7g!C0OV)0gQTz9=>(dLIM?WH* z6C>Ui20@N~_4|@`;1!MfRc-A>o-5)0*-vgrdEw^{hs=1eZLx3OaGO_n$f=75X}sxO z%mD>K4#RV;Nt*U5R_iiD^f&W3FQ;bU8103Vv>qqG)giPaCB^XO5>mMw5puZ3gg`%% zJ9U+zjIw>)4|>dN;(-u^ZjbsizD~u@J{a}pH+B!%dd{Ch##pp#mpq*N5cJm?uSk#^iddltot;_u`X;i z=WT?n)9VI7g7Jm|->rX^+^Uv%hdg-snu`*r1SugC8^rH)c1bq50!+YmtJ=4;1qTks z8ycUQhNeDtGgPAYV6>!i*~qCy#z73cl_dd=Pmky+^d3DtY>Is67Rr*gFh~#}$M*|@ zDr^HQ1H$N}SA15`_9`1nI-2>Publfxa_>yp#*s2HVxlqp!|PpU;tK4#^NqG(GDsnH46jyt~T-{+|){r=;i9S+(9?d^xk zRL{gh!)l(cSsqgejUD2*Gr@q5@9i=d_gYlbld{GA|3DBy0zZ1G^tSWr-p5TxpU#Ia zqpZ36C=V`E21P+YJh466-yZKD18wo-NTKIld~u5hUAmTSg1ZjuZDIE~>7OR`tZ-5` zDlfsN7C93G-M)s8-LdyGOq_Z){i1#EJBE zY=ZM8>X>%6Xk%||!Ofx+pr)~Gm*j~jlzKUt{2`&xh8#E3ph=DDuCx5OuVg1uz7pLe(~!5mbX!z4+MvF&{4hibCLt_bWj4d@38XF~OyF35m$iZwZI54Md232bV@$dl zn%Bkw1P~{6daJ=YnK=6+;q-Nnc4%gB5SZA%*cUdx>ltOr%V%!UV5nK&_s3Nf@WXf_ z)r?GlL3gv0?L!O%4p&)r@`t7>4TsJ}GPq-$r-I2^EHA9mZGMDx4;xmu`II(AN-?LJ zW>K(m$?BKTAP8kn6q!+hZ|LsDUoZ&-w(l&B`d zP$roIlTNHcr_kZ*<*)t3W|J2g`a#hq%_aSVeTv`F*E7h-EdRT5 zQLA$(n~FIeGvtHyDvC-bY?;5vd!4$Q=N_LrT;1CcI18XK6)dpULHmzxG-l!})1h)R zGk=YDYQQM#tod@wQUO{>V9kONK@BZLT*xE|f6~v>)F25UY%uFw!-R4Y){{_WWH#9v zb=7|IrTCQJDjhwW+=@#N2DuVR_%?=bh zi$dD`{@ALfo)#aD@SjF6w-`7Rk)J7<-WH5c4OVJGe2gWuF@AqgQM$D2guPyeoc7>M ztRarf(-8QkSR!7V66qQ5*5f*B>L@&_s`&GV+k(W?Bm8|YQJ@NNObj0@1ZNH zkF%9qIX6jduHGRO>OhZYJxkl6`&YyJs@#0AliPZaZ&xzrP;^0_VRPAjPLJOfw#k#G zxb=eSF3ca()Uac;$azFLtiujDBv=%1-z|b7mko|C;oSPQCnh2%Y>KMw*Jx}fdbvwM zGwLa4$ z=MKG(Gd;@-le9qu_-ZwH&t01&vgOstu7$c$P+uyda+^i;tCJ2hf;6_lMVH~Zm7eKS zJ6EQ4#v1rn-d6J_ZEI&)ze~fLQjYkRMJmU@aF*a*J!7_Pbwbpj_)I^!*^20=U5C~p zs0e5_N*VTTqGD1Lt5t%;^G_6kYY7>WDGsP$v#qR0pYmnW7`D(d^45@q0ehQ`?wy2J zKo(S!0!gDK5gV2EBgM=hE5`C{Dr=G5aR;EE$!EnOCuZ<6qd!&f=P9VEN01gUNF;xf zO6>#++O6I@Z|4v2U@NS5u9hU^Yeh{o-w6m$x|5T^;~s1;{1`zkUQ{%RUQP>t_;2D4 z1GJJgz2Jt>bF`{BxWqs&paD2@p9Q7@&--26ltjz1w7Sn zvAp37UQ{y3I)rgMv$m2q)J9S_s6JBHxd(gn+dnQh2=p>gI51MO$WbtoLD&cQAigZ+ zYiyK1`s3DP)g7%#CCZG@We0#yhiNeC3jKw_HEC)OdKXld9-WxzAy~zmy zjCpZRT938Js`F>D81`vDm0b+Kz>F%P7*RjOs|+$M=??iQs9saL7}R4$hq8KlsF(u* zkksWX3K2Uyhmv+CZ_7%aB1?%l{lmj@p;3{K6UXzjtyp=x5a$>8zEW z?7}|HV7Z0(a$OO}9<9u8bsIX)Ek!d#VR#>}2JAO;?Dgo~LStz9x8NUZ!`u$8LOXI< z6yFDGO5DKl7>S&6doKV*k}+ zfkv!fHx3w2vh6#)^vf8AVibK-&Jn1~FBN|K)dYnWcs11i>vj8YtuA^sW#o_BD6z^` zTJ)^Ns>deDV78!i7b-ePtyh0L?+N=iCxn@Baj-icOxg1}7n6D)ueS>{?YpaZ*M4?( zZnyr3vTeDWNXZ>eA%GA;014w&k7sMn%?*`ey|rofm6KT`&Zgaa&v2ipJE|44D)l0E zj*?lPUsKEl_v_?5dH?7=MXc&Ys8%NQ(HQR^JWry=0<8ebduQ#@Gq`=>EI7vKgB>@>PCTEPn>I$Bcd7CI#)|?B>=<>VcDUB z6lS2r1Gj`{!h(G6n!@GUl|nEF9ch2Y8I^KQcnIVG5`q$@yF5FiryeY+fk6zH@`7u8 zM_FAYtR;NlrX-^^o?R;OSVJG*n(k!E|2isW*<;ahe;#l9-2az+hON|2#!nx*m3Y)Wb2}<4QG#mSX-_|8I6Vc<#}t8jZmzA7a{S!WA`kY^**djLK85Y4 zAu=lk-Z%!dJ!|s1Ttj8oq)#kW=Y_F;kdviR_6zW8C9@oUpI;3|DAp`?dU^f*Z7e;n zHPp2wAbNxYsk!gSbo{eeF!r7dt?^Rr`&uHyNba=^oO}KqX;+?F^0e%HVOcW|`@*n3 zU!h2;=cd+!i^5PU6Dvn)-j(vPUR{m&^`0SJP9zL7p0vV1LSbA>2rxO>IsMJ~cxzF| z*ODd2;*whzT+RPnMiJfb7O~=M7a-H#a&V1O2lH8O_@D>b-kcbeBDHb^k{bZ9yOe@p zmL-hVJqDAeQ&KLdIgBI$<61M>9Z@YE$V*;grd+fv^>Xlq8pLmeY4ZaDsYV0&keWLH zNeBNATOXl-Ms-F(A+oQ85 z$37=))xe@BJMR`V>a^JqdwG;!#LB2{dv*EmLuloe6I;Ucp2zDrUn&wLN%DcW?2+Uo z^_ARULP%24*%>pLLj>T-Vt|~K_~UYs%f6a0vSt>^2HU0j{Jq&VMXAyc|18gRNV*0x zN*O%?7_z`rUaSL(w;(Nde{6>ZeKpX4Lc0d)-n4Ct;`rdbw(xizA8*a$!wXu#9c ze{R7~%i%L|Lku11)+f&^(w8oH%aB(Wr)}Z0kT6e^;|XTG_gHLcNoCs3!TL+0A?;Vi zpBLy{$LWP)v=$iI@mIf;BiVFrNS;SF>f*W;?0g@Ummfn<-Rbvq%2Mgo!|D-{sK7_| zV~`k9s_v)115N4DK**moY{?`(?NiKi{mzqUZLO-t=oLMBBkxEwsFbVPLaFy##2SG1 z8ffE(EdWyj5T|*NICj}F+kO1@gaIhJBWtwKX^K;%udZ1(XE-AtqX<`OIZJlbTg4)A ze)?64(d1n(1snLoBqG`qntIi^y`fY*2Y-cy=EJs&{EoFZfLL#mir`*IcK5xSCC`Ns z>yQ0bxdzroOc#Mnx8C#mfIwcQQxgN(jXqmRg&lJq&r5WM&rnjpJms2;L!k=qwou@ncZ!zSggt4K#-0sc zBcE~6&%NKW$O-0)xBL*fIcqu*0OeQ3ZX^o08|mPxY6~}K1I8M03ipEg@7Z)u<_r8H z$9Ym&eA`k-S<_Iy3rIxQ<}#O0O$PFYX=G6LS}nB!cOD5SWvU?24GN!`>24MFi0=9Z z!aU$Kd$ipXmX6-)0_`iWwtyP99y9cb%hg6gz5*uYtd&x9gZ+rocg_leDpe1^lV@hE zSDeN|sG0DI|3?Ae*YSeHjf*5=2P&u|GD=0vVy5Czdv}b%J!xa(G;Qvb_L}S!5@JoH z-?ech`L$jd4cRX1UFrt)F^XoIkZ&;mCo`cHa2^0iTpUk$%u3IwiL7b-n~P-+*S6m2 zLnV;2i95uxuTNp#D0(&{`u5lBn;mmc4B5{_v|vz{mf>MxMSkS&S3}qK7R~`~I{y7- zo?egp23zKc-&T%|=OL$JC6Yf0Ff1TYFP(cyEAQauvBgl4H|oii z`HjAwt`Ec=mJNc8ykZX<;R5EgJE+l5-0GunAfI8C2|#FtRP&@@3A|FnG+pn;SrpM& zWXYaHDRqH2n_lom!&?kz;pUK+i%El^V#fCl$@M68 zf62MAxj8-KgHczNYS|du#W}2$ZX>h7>MXr!hf==Sxv2!&e!spj*OELjv!@u2D3tL) z7Ho4C+xgW)^B#;Vv-l9Yx`Qkg___|gQ7H#nM=x=BrOD@&J&G@fm{)zFU-p+Ez13wt zU*CHaql((piHG928gYG#$o!Wez>NvJyH;%ndPrhmx$E#9tW3yb+NI4Ek^V=2-f-m| zp;Xa?pbl4f6B)%LI}Lk5JB+d!6NQLAr8E1Xu{M1#ZOT?Mm^c4l4~pvCG2eC*>ClFA zU0FQ*QbW8_#o3AUU%%#ZMmj!^u7fz4rO!JqtGQKa7dD$$HR7dcacrB@JAOp5s??+G zu9VQ+CdXLrnJAkg~pWZRb$`Td1%aB1_V^V9%lY5 z=M`tBy9<$S%8;%#Yqko~{`7Qw@#~%ij9#R&kt^Deb!(-menrg-uM}46=zG z5SkuZqqCHnfkLC1UBbo2190oiMr-ef(;^QWk{mr4v8kGa|C;5h$#jK7fYMr7%F^Nr>Cn{wFy_8cGYOWK7TXVYs|~ag2d!Rnvct zzLW`-w@W&~3Lx0SabSl7vx0ybK%iT|$Iu1hxnc}r$R(nKy@9}!gn$frmoc2Ys)#5A zx=h8w5THdrK!vH~6FvI1*LaCvRQ`|H9jI%<4psfLU}JY_CHjK%6d-AHp7a7WA$q13 zd_8NGVS?#v6W_G=)1F&!w$UWmY zd=ytQ+@VmJK{L}42H}(nvb?f~UNwm$cyT#UB@L#a%Rs=xc%V9K#us?t|LW-1GK`rX zh-kw{OI9E8Qu*rnfi}%}WuQy}0SeS8GfoIie{>B5wc$jRdT^otG0p!vy}QGnjLRd+ zH`BNIIq63;zR0#Wy2`@Ttityue(}v2dtJ$+3v*EfMF3#c?;^Wyg(A8z4GCwC>Oc)b z{u1}gMB4oX295+Ib5ScH$US>VL8J~BrvT=eQxKElaqSW$B@4QT%k4eNM$UY1Ri(v4 zojBX|u$Vf-)o^hcfXUptPaMfSfR(ac_-4=P>gdBde(UzEsQA~N4Px!`8869I{O(;O z?D$<_shQY~jnVJnd}3>d1(7vt(4KLv?gApXW<>T-FZxFrh`^?6umL$^(ur83p2 z_iJJ28mB+xW4vSBi7t1r^-VooDmfT330wUrxWItj9zJXw15eX_l=y%m6sZpWqp@so zXS-}Z{10b={KGsjSK1u=c?|M5S-|CU9oE^o4Tx8iV{258{XOeZ`Pz;vdrva<7VZcI zSWtovxKF>3%QyCQ|8Gz+{>-h2U1sfx>5uD$_AODgpabZsNc}7f+kaU)`QF-hKl43) zj^9PWSZ|K2@dUVVd7slB_s$JQ4 z$p5|<1%hqO_pPRIJUr{;IeIK+>sst1%Eo!eyx&9Pa?|tE)A0a;2_p=M1Q1CZk^le# zZ6FXq0^|V%5GM~N-3C=^|M{XY5umAhnVjvKqG$HTzGlfMgGf?KJkE+9V6Ujf&}23}vW?j2TTvsA{ymamLud>3)79fCXx?ctZY}zLF#I7EtjY z#jb`BGMAV~To``3Ls=7u_~U^J=s^STqtuWZi+AnoF+i9IIe}>XB3^pD-;%)T-I#Hd-uZQ%tCK)xK1p)5fOL+*DyCaUKR zHDbk_WN8$;&=ol1uf-5pry108^g62Rf&MK?`FEH8x4cjXaTGa2?Ke@@A=Tk#+F*Ss;3co*x4)fMB_y_}+gToqJ%v@9OEg2p<&{zz86LZHeAs z?^)cRntdyL;&v^$4h({yDQ3hu$PU%#*qy3yxR2rh54DIF2rDXIwsN`JCZA@bZ?i>X zHV@ooKDC2TR^bY-Zb$SmF);&Fl`M8P{Go$u9GRQZBpZ}9t1j^=;jZt>WkeDJy4Ok@ zl4L@Z93At1=_Q0>BOk zAQi#|h`cp8{6Tov_@Lk-ZQ2cE%@POtG$;cH2+;6DLfEk8V~J8MjsWQ^*k?Ba7|(ot zS(!V!w!Pb!S<(yHlW;67SqORmVdBJGR8ae-Q8e~K7WL111N{_YEC_6B`^Wi{&Cti0v(In_4LWkZkc3s8X!L>1(7XE<`ptG8npfvGr2?hi zFnI)hO<_QaRY~6DmXUDTQOrRUG4+MmdGr`@*4{a)pxFR`zjMXX3eV=ai)y(Iihpc668Wh+i zw6MLep=bldThlAcBT-%~2W0pRmmWQU=cYPNL|@N*m5Wz=V6Y*0gFd%1V zZSZ zuLkf?9w+A+iQxpzSwuF&CW)XBK>{fWbthqH=(|XzvKQXVw2$R_s^y*vv@ymD7e=Ku|J=u-OnOh_`!h+$&c{yOT78@WE@LBPmgM0>Jp!J9r zc;FaQ1t?2EM?kAGTgQbnb_euj`DU=L2La}B!N=Sf3}~m+(7q5rdGQb+xF^0dWL7I9 zt8q=-UE2czgbgq#pYLLzcZEO{3*m5fMFDaM5t!=#N%YW;>_v?GFtKCdQR!M62WtR8 z?YVbZ^u*iu`w=8`!@(Cjol_=IJtRob|HSD&k2%r}U4H5ZOLr}oNKTq?T0gX<=LN_3 z`pxOOJ0Ij1=L0;FKsjxK5PKnoPZTg&m&Jf~z!0imX`uXJ4ZF|4hK`-JXJl;>ZBg7B zJQehwi-a6yALzV-6AeJ%FWQcm2LKCPJZri6R^psoD`Eg#3QRtRn253}uQo(~Hcyr^ z!7(}4HfG)#)Da<-#?D{qmubN{K7$8FB-S)|{D}$6R#eWWXieAen-NsdRaDZs-VQY1)YxdM9u>UWw7>J@c5CV1@7%wv3aE0~;X+8ixocM=YUp=Ad-1L43BH;M zToHh-zD#F;=WPlr3M?sS_id`=dPuhpdEAC^w%^ZV(i{&Y=UE}aTuv*@MQym1f#Gl| zZdVixkELGix<1RKsrA-h7rT9#Z0%G~!*(RHna%&C^%S<;d!uE$hGA7IkokRb9<;%b zTn_gxA<5LwPYmI&A>aEwwp_J%P6KA@%l4_*${-54Nem?SUbanZO=18#@4_HEjSO%M zv_D32)9Qk#x6DHg>P$6)pZ3Nt+r2U;7E@4Gmh11Y--%w(Kw1NCU{*{&$bkLFHRij} z{FDKA8a!lp57W)(AW;?%jRY5t0(AZMd(5GDu|nkFLIHzBsProyx#zbW}=k z@P3_zEzo zb(Che{k|c69r9oud0oGBxl+;9tP41c%24!&Xg(%0@DRaqGjv7|n}iqr(Pyb*|5?_G z2ceSxWTMx=cHD)@ek2qo$g{V0y&&dt%F%{d&r>{p$WGIPSzap-eP65UEpKew>np=Q zrq(@<2n`_a9G2BRxe1*u?DL|2kc`rujC9?imN$?+EjV#KE?#fbH8N|2jxYh}v%j`r zYyB;&-3!vSAC&1zR4s~-jVEG?FH9(K$KYFHZ{q$wu7&SXW z$0QMff=1B~-X6er3L5Q7?s|;|?X%e-tUv)f$7080Nz?GR;%5ELBH<)DA8G?=3{Rgp zo)-+Q%SrMn>J%L z!nhV!ragf{%&f;=jHsvWjgw?)OwPQ=l@cQ2{c->2K|&7bQULM-b&bxN!Mr8;HGu1q z>cmy?;6lMF3Rs|kF>vJT9wR+CEEF@)-wK!D@zI>4?E1xGN3lH&W1F>gAl;x=D5fJ; z_oy|+s<BTmXlI+DVl;bXhI*3%Z3v@n~ZQiCHXE??ot z=>ww0MnaPlQpIgz4EFwKO`}HYd=98)`=P5$Z~T*JKqBg|ZVh)V91cXwao#r>Q(e7G zE)CqKYPzoF4-H<5Z{z{g%n0DQAd&w@PG1jSqTo}DeqQ218T}&Va`=eFkh_h?Q+5|6 z3TGV&4^p$SQ$sq_?|Cw+EtUieFpY{>lg&1@G!-i%Kv}G+NC)8*kE< z0XjT9Qk{@BTgbkU@$DIerYipHn!PjXQJv9IbB_PRFNc(+IF!}9>0=G6gqcA=cH3RU zK#HxSd8=sl|DUb&Bf}C>=Dj|dpN5=ZLO;oyzbL%D4tIoNW|UVcQUgdV!oj%gHM#aS|#d#f68*Fr{H8_I;?7tth^;8NEbl>e=)Ka)t5( zm&)Z|5{y9b2y6TXo^hkHmhl#cDzE5F$M*8((ZxS(+rrAb*Yr{CQ_4&EkT=L-)qi25 zePZ}zWT11ckMRUZw6d}I&rm(vq{|)=j^#Cl+J~#?zaB^BHQAiC5C};!#HP$Lo9!RZ z))47)I&xCYR9@JX$v)R;-BT)8ezq23aCcnF%!(6R&PHl&Ni9?InkSvjX$q#;l#)k^XlgS`g z2$50esC>pzP*HDKDb2t1BVs+-I;<<)bXlgL0n9sEa8>I`QW+vjN80rS+}XatP!nSaJ%$WRbm-bPvTB=J?j%4i8Y_Du~1jj<`Gm! zD}_RqFnq~7SA1mU3-N|9u-cq({@+#_?anp4P?}@&s#{73G9FLnY58Hm8)h%vqJD{! zIlo*iRxE(ra*4Pe$|{#M-ocwpdufxUM9G!eeEbMM;r4SD+WN#5^W+m+WlzTAA|Sk* zmD6nW8OueodY>tbKe|!8*Z767F=AN~5?JUbUtIDNTE+B8a$P*i6mVl7l1e zXu}?9r5p&eLFR*pDz;SJ3mO!Sx_FMAZqw0uaDI7uJQ=&*>vC~5u+nb?RJJVblDg@M zlv8TI?w&tr;VAy9?cYX-gpHFKuXD(l<*B}2VB!RMs`P2N;YIiNb;(AT9ITR5 zgS9!qaRp$;^S7hsjFQ{!*IyE$$Fz@ize<0(ix;Q5o=UT1^wa$k?isTf`C6PlEA{f^ zjjGgj63;Wk3_;<`hLMGQw%B5QG*h}O#*SE7^nQx5uPD#TEQAz1lGxA-Ep{|fqdc!3 zOo*pwG);vRc2Lep|9-C*m3{U_l0H6YZ0OTP)`RL4?iH`YM zt~79Qbxvefj?a5OK%G((t*%}o=KgkTNnP2F0FIIc=Luc6;mm5kZuXl9Hm-)ySuO9D z-e)KLF$Pb3HC(3}cu!r6D~09c-6-uQMIet^add9t|Hv~uUF5-PM1MI~ zFSDK_=)`6+UVGZ%DeL@v!P9Ry8fgqGHLa^-j0U1Z$jEm4Ka+WRvKhx^s25v0XL`#Y>&LpF5J3aP z0R#{rtFub4y29@BeZ~a|=yM7M2r;NJV}w**P~#m3s@^?wP?( zoF|9y|EMYxw>ys8_`_e;>tmiRsj-`%loTZo|54x3$1d5FMd8kc_!h>+R$3q2iXCK{ zw%F-b^sWAzK{s{E8Rv&_|Ev^w>Kyt3gj&_Xd^6no)WJm><_klNWi^Mx=EsaD6mBIQ zQ#JfFF{iH|AnnInM$LZ&j%byfr*_v41r7v|!Q=khw=&yK#xd4(p&7B*Onvdrw;EEe z4iD_8hqHB-Ls&^}uB+~)Ad!F|Ba1S-`lBtK(f;%S{OVGSa)-;9mD0ZyRX_?T!E5Fe zbj;4A#6ql?P>FQBrfbo=^Kj<_LP_s-!>ZJ59$VH8`yy^ zK`(!SgrzEHy%kO)S@L6gzW$tJlBQUE%jo-6B0%c3Y5IH* zLdTgHM0>1O=-SoH`0R^cQ=RXk3ki^7%Tyl7y$!h|fdz*|;m6!ndGW;gWo`1$8Au^ufD$~$ruV1uHLs|MHi3VMN62grmq$sUvqSG>gZ3mmKG?yb`3c!$ z)zFrub?K;29|xuup(DDx1NOGsRcaWVyi%j6PHEfB@QpFxmdT3E$yz>jsw>YSS=mK6 z*=IRi$aybJ)HsHCKt$b!pybS0oZ}JoS%L@&&DvOQKHDDBbDPt<$FhWT@n0OLe*BRG|&;; z=}nYXH=HN7Km)i3a1P)AV3p+)d?gcTC`zS;`R`n^b0%Y?)qn^fffv)%KVENpU5!6y zOVh(ZaUeg?2q1wQ`?hwvF1YsU6>Lv|x804uOBXiF==xFth@htuE;;`+IMxEh0zrYs zIMBdcai4XUafv-K<4|KBG&D3Z#N%8+Ak-L&V+5p7+ zj~D}q!~t;@q}B!^!~>xK2n5QYQI*O3k#OqN7MU@v3#eJoVC_-AFt0F)nT|B{YvZix z9FIFBG2pZnIJ?3?QkQF73tJPSbMP}rdgSA@H?3DA>&eg3<*hH9G>cmM-c@xw5@^DB z0}RLpw)X$!$b(y^LFwKVZ5>VYTjd^=Ylbvj&Gb2Oc77CF+)?$9F*#YFOg00Yg!r2uUto&}D~HP|vLg zL9*7DoG~MEl$?8GSST_*A!+}1S{(Bq?X!$hmmf@lx-#0ES$L^{QVjXRg6)FbnFquR z&E!r;RLg9qPlba=pfMd(=ti>1O)S5Bm06St&h_(}e#1CSEEbcUGWB`4 zRuj9O62nmX1|}+F6j1_Zt701^Qt5eX8KK%jt06cjih07DQ6BACDf5KLesqyrEHf(Z!}k^lsODF8}DhB1s_ zU|>X&NgRnT^`sxiBWp|d!^o|YNw>9_EKgChO`L8nDfYKd{62jYk9}XR{&3Q&2qYi^ zAb|ELOM78w{)qh3T;@MBiF9DuAs@EoT0YixQ*(0>XuK0{VAZf^ss99Gm-yTYqRYu(Lm(hhbD4|nx$%nMkX{U;2-zTjS5gWP z8qEN==C=F+^5#OY1P+vJJ=FpEEA=)UowJaoYc`6b*}@JWpfot~@-b-5zOlVuG~z`k? z#YPWlHOP)99p{R{=NU`%nAC7(xltHGqVKjwEAgxCESydu-9gGA5*UV@c zH{CohNkC}df3hkEzbN=qvL0=>p8}_sF`_St+XdSW^Q|;V+MVrN??Yo;{0RH?9}iZ) zcuO0jfNpKo4v_H&Zv(APNN(4}v|K>6v*(W^9FnNa=KDbI0W^{Xgb+x80Vx6j0F;0r zBmzJJ2p;K%BcJkp&_`n~b^MI`Wv}N}G8})d5$o}>+tXxL8Phg$pg|>;idA*G37aLH z!!&FESvT>k3(!t6^toP}s!U_m{Cp>MG~Tw_Aj*enPY)1?C@*6x19+V<05ky513&=^ za3rdY4S2Y!1lJcCRLBj_uJ;w%^R1MGxD<(o(dZYjcn5X9D94!^2BzgQb{=^eQf1wh zP5G4oEM;@|pU423>9g@Pz04kq+A+=dCkQE6ZgfojhglM_!va3pQJgu!faXhE#ewQT zSh;s8PNT0*kbA!I{)I;b0R#{_zgKdZ9hXb5Ie9+XYrmR(u2|1luV8ut#R8(hM|BYh zW)OZwyeI^I=+T1P?;sKjDn!AWCMQye|4fBiUKf4`e)w#8iTTg;_<{Rdz%V>{GQO$s8fyQBSqmmSRfGk3-}-w%+=ypYtsC@wuD#&z3p*$JmYiblt@+b^?cW*G+$xT%3!WUxVc8z8mcPynsL?PCy`n z1-Er?mdUC%e?+i4;J~-lqGj!6(U+%J>k+eIHXF`V{FG93HTD)5qb^kYeycFQwcKHE z`f=>FBoQm2eRJLTxEN7@HC@k?asO2-93IW3jyQ<+U9qntG9`%OHfFGd{GSNQ4=nkH zPgo)fu~BU_QdaCO#jwnQ5mHkp6TbIA=$Y||%bsZ8kRwCcUFHv?Cn!mFQ|_jCkI-34 zzGGC4HY-Ak(-ku&&-~wVeZR?s@+hOe*ww3xIFBJ7f#*;4_#i=9h{`e53XU#4~lffxS1kXh-?;-81nHa5muN zCnr^;D+udr)sx^qh191&J>frc#G$b!8Bq@e#0{1jzPX)ATZ)5?GSD zI%^N}gk);PmaOh3Unl$3NnS4z;;F+$AsRQq=JcU!+>5AZK!%e(e}&tn01ogS;5)zo zkKiyu2*0DxmPo+CYCTcf|NV2zbVafGdA&_vCB@&X~BrzS?Km!+ycRj=+gqz5Q-dP-QG}SKLr)Ex$lo z+A<|M_Q;)M^c)~&)UFp$kol;2Dyr%xyX4H~4h_|bS1?5|EJ>eQ*a9PbpB$&Xik9jL znNdiyx63-A)DO>bE?JO0^20qH;+```xq2(*#*@W8|9k?B#JA4L$ErhbUxy}$MA^Zg zys@~+X!n|cTU0KNm{HP@qpyDw<@hwYkhZ7x?i`4^*L}kyL`4>7dmst`C@3f>00sKp zYhkC56hF;V-|-U*_?^XH7$ZplX7Yg7GkQ+uqCz;dGPn9jmmdGm~N(qpID>8b2Pra@r^feB)7;?sEoEyGxqOLNn&R! zd}RROYnO2_7g2g}N+%vsl+evSAMNOiuVs;!@Me$vpaFEQyZRLZSBmn&Tj_aN{5KTG zrX%5ypt>)Wt@thr;XY&TsHf2y0~V^!UjX1-8e&cB)6S)dWA@mZ4$gBlhwwtkr8ZpH z(+VEnMPyptLxn_QR=P;DClb9=ddVg3%Ga8ue?~EV9Z#Q5g_KIi3G86R3C31O9hy(214Nu$Yf76G@4X z{<~6#{e2p|G}kEE=Smk%|EZC6dQ=nT)DTG^dTB6OsH*IHV|S>%E%=d_v^Iz*xvjg1Q0;ERI3Xhu~$?`0H0aHH^m@1v-mpd2@z94Jqm2S z?Tpu8%$H#Z=cEqFD6CCh={8f=RN4l&$>AUk20udT{;sF=%(6M__F#k>ItL}LwBM<$ zmEO!pj?LVJx9@^lO)Xm@5WW;lb+%&#tomWEYo!~rf8uyJvRrL-=CYskrdv979Xs9) z>+ikGa{wTM1lm1Qd>3$lVPNgi6E|k2m}2D!nWDT7=vq~6*;7cs)ScO9E{ThB_6)F@ zg2Xa4{Idrz{s2NlAf&7wQPv9q{iwsvg%=CS$i{zAZci;%u?$$8;Ew?pE@QwcWkzAQ zp7=PTm{=1xsqVCg044&#BIC*q(GC@|@K{s_U_wY-29T^Xr8K0St?m7h9B6fKd!)o3 zjd5SiHgFpJ*Lg*fS^IQn?jFj6*!6~`suuVw=LSD4*%>*6f#UeJSdu|Xzb`J}f&Rzv zxF_q6NMMWp!+GKUvYybE_F~662d)sI^|&(zA92}D8zq;{Ab!XdtX<7Ew4iAV+j2#& z%>9?|w;-Y@AVtP;i_jnAPS=d zE6{+dR?2wg5I5a)MEYVTByRli%J7}r>`F$*+1wQ$sgI8_Rf5Ic1Fa`(zTb>2Q} zv+1_KOtm^c00a;~aB{0v_TS!2WnOQ_&mV5hBYQ|y8xg*Iv}3)cNUjK3#aZTOyrjTb zg3mKvpMCjo6>;?$+~z&F670GrtUNF$L%vqGJ67%+Mp61n^k-B82p~~AarRVrmZ=nv zU(jB!1*Sjokq%c?f&#lI&Icq3qyQ$BhUC#dhXQK)eiuEx#$?(Iy5S>;r}?zEOhCL8 zlHo?ABf!1kr*;N9P|e&dfl~QtijLCG>B`&qxtVdygl5ybXYaN)vpe70n}Cpqa|| zsB+~v5|W5!8!j{`uyaAZd`*BZ#8V|TSsxXM7F0xrSH^SRnlJL+^;rWGBP!33hxd=3 z*0?}@dG$y)C)&RwV{1}+q{-ZWzSIAA;K2lv1V{Dn1ic&Pzf$!U4vY2K_5PJp_7x1W z`v)~oJNc|!MnU*BV~!#`Tm;u~vn*E+GmVdpA(ZovpElWzkuq(d*@ju6=x=m1Gm)Bn zV4S+t(OfTEX5Lw6&T|7in2*EGUfM`dB(Cz$L58w$j^bI_CnW^TKAlYN9yy#;x07bk zF%(?6Uo3&u<4oV)I%T^5R#}RqB7VdX$)N$Q>QxO!3JZ<&es5`AS67kZ<$U3f&L_N0 zJ9J9z&cuB^*D(bquz%9>VC=Cn0JXv`l%2y%oEiZ(=I}z+93g z4h5m0S5|=lk$1hLLC$dAF00N}Qn?0?($Vv$Aa?|^Hp;$~#@9dzH_6L^_*A6dn#LBU zin{tO4zVn@O1o<-G8IHJ?0PH zx~gBEtt;i0;b?&bk_VSi^ZcH|=C_rck`I`1dYdg7lUM+&t%#=2!`u&F9tfwI!|hm4}LCRV1+> z$o~6AP3EbS@eL4ID1RbVkF6YdT*D`%gP|bT*D+*l(?6--^G@rrvNygC^Yek)AQo}j zVY6pFg9{rHoPHUsh@!-~al-3c+vu`*r|UwyD}fWin9zF999pHFRO@7VS#8L?6`LU@O9^A4%23@o z6>tz@(d_G?>htCJa4=+#66_fT4JKIt(1jo4$kBP&N(LxE3>tAbsq%;Sj1;Iq^SkAcx3E%H8hys~)*@bF@g9FyW~+mS!9G`j zAc6w;}t-^5XyCiQpFdpxjd#v^G{@IjpaU$u5z!X!s|X?%2KrJ_H0C9<*Zb%f~v5_87Gb9r;s6l)s{{xJK~gqZcfR#Xy?#vHcipGMyFpFg+3~B%h6*AG zr~Lhdh7F1mtppyMuzOICG%*DR#LQ0>ML}SC3Y-gA{7sJga!F-F10GLAmcJ=YJ`#AH zt@bHb&WxZPq2?>2%B2?|hnpEC9$n1@enw1iI2jW5z~K-;7pK~Js~ zbqQ7;m1teO8TLaCq4Ql)8E7tQzABp1?9R|{zSx|bsk3Oo1ZB36U`kyPJnA97diUe; zSGk`eX=F+EBLBEb?NpJRSMwJFK)Cwi5P;Xvinq{pBdpEVRldP=A#1Vgc6;U@3IHeq z2r=nVklUFfxFI~Bg&u%|XL%VHc5c(SSK#6ZDcgey!yVTO0g{uolMpS>%x1|~aj8tg3%D*?j78$-W zWZn7#Vwv5$i(vh9mc!;k7*Bq*SeCe{lzVV?|Hqn7qcvwOwkq$f=N%4qm@zQQ)B9(v zlsj@I&@=6jh;8_E6NmcLr(jU~m$Y(;6YX){H zhOeTYb;_kMcGem>&zdi;3ZFiOZ05@f?{G!cP1j4`7qSw|O0OvV%eJYjF6LTK7^MNUVH9*t)99*0rc#3dv=bmQ#B2U=;BkLu7f*vs zKu!b!quubt9*biZ1O+}`mBV4YE_UA&h6@fn0~vIK)`YjbJ1pbRhR8}V;Q{2}2skAA z%H_3uVsE>v#>9s`r_?ipfAmR1-`z#ZXrHq!a!+VN;XqadfdQQM@J*7Cx->a7u*g*G zX2`9m{G4f=W|YFOe59N%S+A~8f0{kuZKn&a@qAlpxEl&%x0J{bw1H|rilq-SwrE4Z zRD#!fGpw|HFRqb{>F~nZb?}?~@^E_klUxp6+=Ud4T1@MoxwtvL6wgb)>}Pt5(dkwTIs5;Ak63T74foZko62{*=aw6s)(;2>B#<4iuQvD5ZKcSk zRMR^zDHkWe;o&+JsP;L5BwQo!=)>4k|) zafU5??VYray&15+=8@;HJJ-XyZu_xgUUU2#^Oy$+UxR9yDefhBr`QC~wJj3PeM^zOIDrZl7nLRUMwNNAPG5%HJTexbB}g ztA`5%x%<4-*WRQL@3h5gj)(J^QbYbOcKhULU~mWG3R}M7O{)jO?jPwxt}F+SxcX$J zF!^%0H-`^!JOX}71RO6#em#f_-7=KkT1ZLHd{ow?8A=0wPa()!W6yNdcL;{w>+k>+06_x);P2LbKV6L`g;?6Ydo0Yp zC(eru+O-Kqr#nM{;%A)nVmOj7t)a7Q&O$0FeDfEA;Ax>2{*%$X8BSUn?0=+D;B9`N zk%8as;atwK@Qb>7+z+G~Q2O_x{j=LgegVO85vVK&@YL_@tYS;mne5p_0G6f|o&I<6 z07d(bTWEgfuPLUUXoB7<1^;XTH{hu4D zNzASBK3$gIj5Y{+@IYXmg%l62Pd6zLLCP(VZsHr&9zb?F7c1}`gmh=8>qDQ3(cznG zd9;K1z|V5+*C3I{^Ng_$t;jCS^ExC3BOEio$w@(8oY_A7W#)Sk5$S`Cfx-3SWyvo5 z7#oHZ2RYj|p?~g<{y+8G9kT=xFU6zVU8+ZZsW7~d&;rH=}&)6%R zLp<&3)fRKiSh(+Z>a)=WI*53DXe<4xmU1a96`eHSP7~6ER5wg}Lzh zAq|dxbrd;6fFdo2S?E9=#S)w=jlK~^pq;Q$sEQW0pn?U?6afCDQ z*F#FxbhHNxGx+G;>d~*DA+-sWP)}j)G-MB5BBQ7vVN&ZkkL(w>!Cz#Kiwm@Q#mc`l z|F*g>YKH%zf$!ztd@Hv~lHYdSUSml%fzVj z=$E%vzT`f2E3nh4tJYK&P3`l3j@2i#V`RlA==47yYd(UCO3j#}K4Gg(2d)RBV5dK&B zR#>v{@U`yFio&jXq`BO+gFSQP`EC*zuf_^vD9mrqgIaucTvnOB_qqq6xWhWB#(M z=Nmnh__ z4tQV~|GFT_psw@~HXFnr-!C3;XweFzBlB-r4k4|3ch2D!CN_8|ufk;Z)jQDMX1xnf zNyWl`w=weYOZq(Ac4mcg)>O;JM<-uROYv)jgzuqfrOvA}$@fUd&~Ob)q-ND0v3D+Q z7JEKPoX}3|!3_FO30o`~#lR*;n*V0t)}dUW#*M{)O{;dJPAao+?Ts!?RkMoYEMK_uO%# ze<=26D(+INY5x3QmZo$b1P<`zKArfYBmSs-2fKoRVwR2!;dvy5wg-dw%6vz-0T|W=^O`?c^*yJfmYG4B5;j@TrCjMew*ukgz#xJJYT)k9Tf2&j zt#YBB{=Kh1gihV@fA5oHDnCnsP=@O+z|JB$!+%3%eXfK%0*p&&40}^v2%sEp_OS!^ z5ljiFxh9yftMukzM3E3>2_QodC5Qxp2>^m9 zAW%RO5(yHJMG#T|q(Ddz#7huCiG*{}0I@Xy7>Yq65&;APMI?wxA_52`07wLZNCJ}+ z5=;8 z(t{?@cz-87lKXa_a=LG(iux$L=%3>GE-z)8Tik*iUn=CV=dJqi4Nq zYIWuo%?l3?z_0x{N^tEM?xdb?>;25W<@Pj*H`FPvXBj7MxdDlMr~_`6-se`Z#4U6N zzmz~zr&xCeX+Rqy^MU~w$+>1DOo8WUz8%eQzx(uiY;hm_oTWfvmp`<8V<2X=t@(BJ zb0QE?Z=%m+Big zUqEK2qAaj(Z&X^6GB-d%L+wVs)Cq%_^d+;369|~o9$BcPh_jW?$!G5HnagXbmM!AC zOuZ54n}7ChG;!7Ap$WGA#}~B!1oDyMhM+!JrcgB93{{tf)B)lk&yqlfA`1}-0uliP zP(Yx7BqS0gAc`QQ0Z4$5A&8bBgA)k4q5)!R05KGbL?i+T1d2%zl0*a$NC1!t0+0nJ zCM1Fg0+C203P1#kNe~#AfDA!_BnuHK09cAeB1lODkSP$85Fv;p0SrKfB9I{>3P2E$ zNaz0ZtTnTxf#^|vu$N14l}7n|)i7)ySXAnSVXCv(ZuE0)@{>nuQkEtdl-yxLb=FT632wAgB^Y0cxmea4W&J|jOMCPMrw z1)#LA%m(jHvnalKA~~beULgk>mw{xhN)Uj#Mf^2Uyvi3Y$?DJC@-j;jo^N}OXP!w) zPoqp%9H|xlut$C+{Y399W|ys_c}P{?mpE!$)lWr}c8C}SRiAPv0WhU;3RqP|;)vZ| zg=}lxnEch#8K~vM6p&tJ&)pS#D0@T`Ii4!@MrR<#(5CZvOKmE}6Ip<=`aTQ9?{)JN zj(h-u2o}Fbb0bOmVdT$xz-4;+mc!VL{h<_GrRuisGQri2N2E?9GgfK_4uM#uW~j)GhkMXASsy$O3t?Wtb^Ku~*=0styqXT}I{ng_L5RADY(V67qyc@Z!6 z*=mnbj{pDwM|F%FyK@h<5nH3M8gvw?phc*h`x>xX<`8-)c~BX&XNy_;U^|7bvfJ7~ z@}t2=d1zp$RwpeUEkiB~xsqVQD|UfRhk!6Xuq_F`HV92y0agW?`yRmpKI8$h)*+@Z#3pl% z44r98w}4lb#bPod^-cHx3@8K+eTdIABaD!Ok6Sg-0Y6+P*irQG|A(@eQlX#Q9el|B zqgO->DLW=5@W-erZX3yLH#DpBXc80jN zrxtg_dl`^%c>~M1>18|@N}Xdnbyb%w=ZEw}WqDSd(>BlNeq`!1>+@`9_rEyOWlic( z%@RmN;-V?IAgQ}W_e`Ba2;63eDFvgR@ibytg#RAeK8S+V4L$E4(P`x^VKkDI>gqHE zLA9ZPc(}wf4z6Yu*-WWa=#KY77b>kCn9s@2LGzqZ0Etbfa*+wVW!*nwp&%2pDxU{I z1X7iiX4hc|8M_BJbw_O*WXvUorrdwsm4!)_Vd}L@TgUYXxM*0r@@9y%$z-%LLDCN^ zPnJK*6@uLc)Tg?MgzEJaTphI*#ao<*VuSdR+fnkAG^MJ98*(6Q^7{?NdJXt6*Jn8V zhDDhldPe$$s%O+(tn0Q;&TpXVzTEqyYl;C2=UVA3>X)09B;t07z-%Gnd~qHS*@42? zv8SC0+oif-r4f+8EsH5bY47ze2)@Y`I6++hx)?n9DQUsjWfKEIis}u_e^-PZL>+r& zM?WM#vxmIhLP0WIVf>(3jo25=QS2NaV!SGc0@0dFlg?NDw`rl8{;%M2R2_a2grKhr}&MMB{C%hiqY|f)1z?=0)n?Ul=LEC5&((A%kR0b ziHF__GHH%m4E%UdcA~?TbqyIx z6pMxhJiv$mYk`b7xYX3uy%y8hOt||b$8(0_X^Nooy)!s(v&`~_wAFW-=Cd0tigjZ9 zp7jhz&>*)CE$F#BH&?b*BECHR+c6ru-Ji>%zE^}Tm;&_$cd6SP_1ln2*rN^mk-^Ai zCxp-hU)_Oj&PfhMEfrWRGhjcn*5k-jfew(`{ma|u(NW--J^%B1d&W}akT};VRY=dz z9onQ0{|CyW%Ve`5B;`K{kO&}wU%~b!d!2td?`^N7Dr||S3)Z+m--q9q=5`O|&Boy!kt0;+qW{ipI{Y8oWZalN|s3+znh=g|sti3l$fkA~R? zBO8Da{e<<#ncNrQt z7$qBIom({FH!8gYr)uE{Qr>58J|Q6i>=o?devEgYpVHc#lQPE~jG|M#7{5Y%HSBUg zVZi5zFY&BwVayjxQ&JGfUj;d(rgLP|?4@rpTYcECU9yPT4!=U#=jpA)sf(%NC^Mh818`)sBrhy9pXRh)Y=^W1F@ja)``|{>2BROA9WD zF3@rAD4_-`Ayq@zAd*0zRoE@{s_Sx})^9G%?B?xnYWH4}Jqwc5PuUTq>~Si#H=Hb7 z3?8_I=GD_xEx60^d9WlKjfe>Y!zqZ%z^*1h5&+-C=rHzhqoOO(*;?N7vk1Z;(9Ewt zmY2SU+RR_e|GJY$JZWUBwL_`v=rYJz*4GA1XiRNXBv!0>RtN{SRMlCa2G$l6k13GO zSPAIJb#d69;I|yHbOZCq0K=pnY#pULaMR#{n2xF#%n%WcQst%|ia|ep<6e|_>t_X8 z{wkr(8TLl4X8<4vmE=hP;$DKR1;E#^NAGCC;1*KgrSpszEA&SHGep{YUh5LqAMjLU zsJ!3~uCM0Xw3aB=_u!T`TluAb@CYTInbP9NrIis~qg9^w>K7>EPJbz1 zY^NvQZ`ZYf&Hn`{;G^eaD2@SL+%RfF1e}C6n2ByMp?8933%T)Ghk2GPu%v5D|2UEj z&~Ah8Gf+9&XqHt{L0}pwl(5S{ni7QyUS*;AlO~fk8|h%SaU&VRe46*39IXe<*N;;i zRl|;&d=y|W`l}&;Ztw~l#&CJqxx7P>y^eX4UJU2kbxecJ&bORm2tUD~g3*}OQm^GR z3-ehk6(7MZHMmjTH%qqVwWg2Z_H&?ayx2I-5^6USFmS01HX>kgk;qL^DU94p~s`55->uc

*)XtCiCx!pHOC;c(w~4jSX|b@-H7Z6I2M?@Sn&fT?iD9XVwln+UiI<%7g(`xTiUXh=qgevCrXOnM_U8 z5-1WmUNaV= z6~us91Qd3i#3C&NYt-xyjuT&rx}V0lkbZ-hj38(pvDjW+$~K8EA-aY>uH&WlCp)9} z>seD^QK1c_=!8FJP?x`M7H6v__q?1!`U*(cm?^5#hwUF_Sf58WGxW#nH(TiJuL5Xl z%h?`|V;nK#>=q+FuVwEFPb?I$ikMP?@Cb2bH0s{Y5S4oFo4C8Fdq;u5*qp)s>xHu2asQ6E@m{p>`a zTO@TVlppzBa@SF|OXa+3tJX&0PO`W^?`OrMu`|IoNC+g56|3=euF0Jonkz2xY!K9q z<44l}@AKl_%`VM$c-c3L%-jyTQq$(DclKmO>KJLri2eP+vDZP_7w>ZbN@h zhHLl863{`b43KuWI6f(Zr2yY?{>4*(RhYnl_i)i$EK45L3leR_h#atw>iH!{d}b^G z>i>XkkbB+0oP*LMe!@7qHEQ}-?Zq5&^xUo37Nd>u&-0gfPsAlL$&x;3HYSzhr)hZH zl~qhhx1wJ;X;I+?InG1l_7G^=;41Dpv7%eu4TDT5FzBDe4V6HETsL<(yE0djmhf$X zq0$H&&!Cn#NI%jIGyCTAox*BlJrLK#sVsdzmUe9c}u+bm#=`EybpONv-vggs*yJ;D(_4Aaju zVVpy(|EM+&|I9V8@}9--iRff&p$e2t_5G*`0+dLA$%Se6zGN!=D}l8tA3{Xt>C|8} z0!ae}*sWt+kJ3HuzGE55p3=Qnr*7&`naD@(j^-4NW0dzG&O7${A;zc#0rS_B;PSJv zjLC71JhTpT2W9qA&|y7*nvQ2}MUR)r2S3Hq!;Z4Eo%>md%;JlVxcDYCV7)AxlEgY+ zv>KHqc?&>|^NCdYAwGw7;LK6op(mk;Eg!?D9m$t?#GC-Ic;vi_c#xlLaao)-)T)-; z$ba1huBSlZr=o?+4nh!@lB}r+Y778sb-w#=5ipomiz__04Bp|hSl#T2=yF|xhpKGi zqvaF{FKYY?vv!=YeS-(qR305jzjsGgb@O|i^TEF69C!gBV~78!2Ji~B1>aM{W0U3i zE{2vKll{X69pK$OH>H3HZT=X|}8n>?Kj~ z2Vn?)#W;oJOfm=$FSEKi8&N)TZV={uMFSIgwA@Uspt}9h^oKyrw09Ug!KPhf7(6|J zA^G-G%&8tSjJI)`B_0$`0QxXwtNl;}uQ`MTffc~c0D&t&V-$Hh6ft0BNvc!x>?lpe z$~Ozp*e07(`WqX1BYgT|I5Ov|Jz|>=dY6OsU*asQ7!FWfJ_`s*P$|WMlpuWaG4@p5 zEck2{2C5kd2i;=^Lx9cYSMx#hh^p7S!8A3V_QZF;!&dFHw`fl{3CzZzUT->(YsoS2jzoj`tJ6)$V3=Hkqe7m}8oWrKz z)^nI35YzbBD%LxDU0CH3wCG+I3hT^o#b>|k<3Xw@wb8;%=?-nTw?>H^iJH7trp>5y zNfGhV@H$TAmEqgWnHOT)eJPHPMMaSaZjjPh-kMK;ol3b<9Ua9QuWwZ5`0W_BfnM3s zrLIl1Og2?2f$TRVh^Ez8Ua*W1vW9xsi?Yw6$7R{u;WBut8unB-?8S6)Err0cNfj~I zP~GezFe)%0rcI_GA5hgJ!Q?Vzpy(_aN7}PYTCUp}BoOEeb9X*Jwh`snpelwUqr5X+i&vq72N8gANg2L00$2Zfk($HH zO#ik-v%z&Xq+8#KB1d}T#aGrQWO3WOi}w4=Z#tFExaB?{41qsAm>z|dnsE9xPI^ek z2mtZcm*jVDqJLaA{bL26FT!bzM%aegbvkVAEn=rF z+~3&HKWoE!hG?}b`pl`OrIeX8RWGvvgnG}RY(l=X`ApMBmm1D`7gR9wzrXq8bns9Z zrSaotW9}XflgWs1JI}W^Ke+mNGj_LxM0{D`TDmg;enLf&$Ml@-y8_<68Hcco)9VP! zud^6rIhtcd{auj>V^EeOJcRb9iWa^`*(9BS{B=ygUl=YE7JYBD_QcFUAc6x9Sx}_0 zZGT$?H%Ma;p;=vT*Xd$u&&AK{zz{(J!EM_7{fpAW7x{~$1ci$w2+_}$c^eqWCgpun zT`QSOi#&=YAN-$|EnN`v&Dl~y4FQr)J?Jm8j8$!~?{@`J%Cgg_V4mHWW@{v`m@HM9 z%gqg)lm(vCb8Zg!&XW2>FiY2d26N7s|9lY-as?jFSGx{p*Tq~`>zK`_d4dbz&IL>7 zC2(8N6@FhqrHb8HV3*<z2lJ)!r6syA~iSD~Ql6!fE6v?1t|QB-eRlQ5cf#3vBNc+8?q@x$O>KbYP=+7K&pg z=-|pBnb&+ij#m9l0qG62<2um^;9!)fF4WDp)CC<-7XRwNFn;C`E+~wAiSlaa9(T<4 zImLQm`ypFXR7AFA6RohiBfG2`K7%Dlj5_w!?hTsqnTfVCJyGpYKTen5QwI`k$TgzS z&@C=HrX1U&M=5FV9f@m_q&rCB(9bSh zyF+={LsFj+kD)T>Yg=@-T$>!HNZZk?si(S66z9?HlnL_<`bm#yv@PeEot$jT3~6jT zCAg;C8#th%sll_D4a*{S*NY~*-)(w=*I=9edzdna z+tJG-jnw43cn3!6axr)JF?W6=_i{Y&3eu}5&!}!35P_(}X=TGT-nbq;l!H6^xA*I>n4fg9x)@ejIV`=e-U)`yM`iw~!8<|n zxwdZc3feU_v$@gQJ>SMeuS7o6*RkC^9&6N@qhH~OnQI;Ep|DR76m@6BOi8%n$*Lnk$W@aNjI;vKke#fhzJSzpKFZ98B=# z6DD>%jlC{~q2zZ4y4?1+6LoU7hE-M9W5ZyQ(VZ8ohbg1fyyy;{YxSj^bY)mgwXyVg z*lH}lk{|+U_smm z&Bx#KAM}#oXVH~Zn=Kao6hiJ$TLn%C8tPw%qNR-3p?Sz5YL$@+{2vL|2b+S<3bWK% zgFsQb*2b3D_IxJ}4=~MaJ?FsYK~t;J_MKI2hS?}(S`+2^&bmk>kR@IA2}fQ~)o+wk zce$EffBC_;LDJvF*$&DY#AMMrtyVqUM~Ws@M0ezbxe)v6XR^M-hVw@J922SgJnEHY zVCYHb7b$bS9?K1lbr8JcxSe-6NYd6Pw!wt9GJP>&ym95NJ)|ztZ1R7Mq^TnJTA8oP z@7qK}PKR4J$)aE|j~_W(Nv8GN+V|7H=`=gI6$N&t-m9FmJNBX^QOU=##sOAVuEWlZ|)mq{t|$3NY! zs_x*`p_p48;|ohih+R>P+hkfss<~0+<>wnHy!INP{W{WN{9n2Y$nqJPZbi05R#wH} zUNw-u)UIv|4<1`ca8K5eQ!4(J$t*0GBPp58+u8Ekn{!YI>F~UpS4+C^z)`&|88su; zFx8aW(9W!aol3mL!+PGu;Ry|~hMt9WQvVYDGlXXqFE=P?@~xs4Oj9LjaML^z&kK^6 zwh6COe)$mS)vx@k_+QsC%>*Pa#uJVKc-Wc>?zv`h0W+(H}gLI4M#Kpv%%%*ZUo z_F6EzuPY~(XPLdxQqA0LT;j?6-9{wpYT|wxdWJ>=e|llyYgugdGvVE~P@E9kh6798 zFv?p7+WonPW`VUn*51VWj__*Xq4oclbSogK`*sMm-QTj8e#^=6748$z8Wav43L+Yn z)mtFibAJ{A%|Lm! zR6x$}l34LTaMc=1f(r=|X5nbSmynkM+7l@$SP zL#B?ynV7FQHfuzsDqf+L$KJ``36W|A6Plhdc`@D1Jv5TWz$SZ(oy@9~Pj(C&n=);O_tdvt{A*uz z=3Fb}PR-&?a~w@pKqd*MgvdsgfRXX$v#`A!rdv?9$Y|~5a#(bTL?AEUS(W9(Z^|>Y zgvkMYLJe^^`WBBz_JrOd7IZc?FU6_AJZt)+)20!MM0!v;R60n%sS*QXs@WM%3P$gN z5Ax2-+7vW>e&%UVo~EgS5Qyud?G4y1f)xJK1%(at{qeP=A?0kkp#F$8542N9i(tya zE}}g&_7Aeid{}(&FwGm@!!+o67P3gponr;Va+|$i=SrExQD|Tg5)~pqL$|=tAyhvx zf}Nzgv<{3F6`*du49fXFjn+cu>s<-6%*LIR#okJ}k$-d3!eowFXlWITj$yg>N?Snq zFvB1;i>~=%{yD%vT-6#mn#2YzXfe83Ha5=i3Zky6iav_g&9+Y)0C66+BKw-`JMHwa zSf}helrKocPIgT($a@si*K(#fJP2wKe3*A>Ue`~%I?Bu}>itY~Ul9DFKZtd2>@zj@ z{IFXUy8zGcqmjO2@>__kS@mFE?zWZTx-ZWAsuk0>=#^D7GpO5MOmAsA#9+P&0hAB` zOOgpx_werLqKd$2+{Rqcf?HKd)#_R+5*ywr!<&F*+by_h)L(R+XAk~BTGV}6UsJ9WRlfHiXxZAYS;bqeYT1!7o{{HrkY3 z_<^4e*WI-0o=_+lJ5AW);dyY4cgQ7y5cj`p69n>ICWL70zTz9iYd)KqO|ikt$}%(g zy=)uv2!rr2e30zsa=r>nvh72SJ(LGVs>+?|hJ1{_H|f^?c5e@>9>dJO;G1iJuD4eO zosN#!JoxEYJToQZHsByBPgpGnlX=esq`sWfA8Aa1AIzxb7bNkoHNGzip`E!b15Sg>XKtM!-C@lp)whlo#YkVtNO9lU=nh=A=mM<52 zmu{3y|FlRu0ZQ<=vid!#Kq&x7uU=HbJbZ3g`?VsL>`!nY$}&G!Ji`2V-!FtUCuB%iQ zT=$Lz6NB?yg#YhnO?ef~6Y#g!esJ)gpaBFBHee7z1Mc`EmBmMvt{UdqO3<&CLQ6St z_U(+#s_kP<*RWYG+IW5A?tf>f-NFDt1PSf8YiX5aD=6QUjNV$&D8Dve2egwbC5eLc zY_)R)9pT()#1YUyqC;s9-fpo$9*H^<0Ps3UNo}B^PP?+mqG(v=;#HC&L9uXrkhptT z1c82fT<%3{dvtu^>uTG7*YYMNW%lajAN2ZT&R?YibFTlrGsmG_|Cm7}k`L2|gKY0X9ecbwCW~Z+#R0orOJupW z`KK|uu$pX660YQ45bic&^k}8WBDO7V=F?O~arMO<)D7{S^mCf9>J#tZNQGh!DpT=3 z)tMPdFM-bD6sY#w?%?wA@4w5RDduC*Cfj-4+RE4lnS4{l8~tSCKjiD)zFh~cj?=K7 z_tj~tQc@;gfn&{4`yjl=ysSGXZx@SqId6jfPu&5hcZ1usu;D$Srwz8tWq^UYjMicdbT zxW4B)|JN8q5x0nGdC6>pMZt92^rXKQ3am7)(dZD+2pK^HFhS%vwj~WNo8__JdpE0) zElFug4SN(&DX3bHb{(ieAQwbG5bGsFMTy(aytqYNBPConk1q9D-aB2Q=hG^$qmY3F zk_Fr8aQ^ij9L4`s`o0>~&*KGZhB@{K0Ljqnji1~oe9l~v3)VuJn%m!d_WCvvfDM1 z>q1yqzp)>8P=ccbAWr+wL*?~~jv|70Vm-FOz;&7r9?Bj$)U#UP(W!|R@IiU&4v;+4 z;&PiYpM1+S;OMJ#LDsKlb|i(pimY7DLsM@#4Ch!y!%UK_d{$x9_S<2Idz$Z_j^u4L zj#}f3sK)#O`Qww_GTLKBaDPH8T(;Jubr>mh5ITYWNo98jAgQ3=7RL;fF8mU1UVgZ7 z9*qJ=8B+!LlFev>#Q(P*j58a~?<|BrzM(*j^E8KkaQ@y^Hr= z&IGd;!_R_J&ZHUC^h|W*40(Zd5%_17{U3(<1qi)0Xe&FWzGJvMTyqLYEKEf4gF+Jk zku#c{WUvpA6Z=2Z+mcks$kiJ3#CIFFJl--h_+o!4I9r1jgI(lD>a(OFMn3@3N-fUErYQv+7Dlfa)RX=d`h5R5ko*v_sI)&GtV9uVWtNF zXKAVV>JeHEX>=Wo|9X&v)u!^lie#G5B8cQ;rst8R+TBs-@y@1(yf6r2U1Sgn*$Lby z{-RY3rE6zhL(gf0)IUDUYkIwVnK=(ZqddO!mQNNT2+Q>ofz5V!jNjDA$(tfj6#T0O z$}ZM6&EqaKDiVQj(ZV$vgV4|r53)>03H=zRB*sk{4nAGmAqsSPgEjXEDwG-S2Z1`%qwk5`+{M_qIIa@)P8);x->aM4B~#tgbXeX%(Wi@ zEOWr8UM^EdN%@;CLk}l&IeE-?oAVm0@ZuNcB*@)hG*DfN26Y4GStB~QssC2 zT^qc(;+uoOupfc~*t;mdp~knesH*6Jja2ovStLDt_ITg#?IW3m`t=;AA-&nMo`n@h zTG(}xHh7VeF@n{AXA2y|AVy-YNWR4EzEF9Go|Jcp-Q~;#f(R0y4?-QlJE(4>`|T~} ze#eHYs_1-b7$(Y)@u{MuWLSB)hDM={M-{`6^*vwPOf%DX#xIjj0jm##g|jv$?V7au z%2#$#dR6uJfX2rGvKblgrSdQzAbYg&L5&zefAGhKzVO*u&;By*4|Z18^ykiLcFbzN zv9DCsgxX*>&K(l$+MilR%G+&e-TAU@5v!7ii4iQH$lI>SGSMcD-fCq3^%3uzQedf} zZ=%5Eq_MG1pNO+#Owztja)KEsk>!u}1p~D=UCLk*63M{GNNecz^Ui zD*JGq438mgQ+iDn5Rhx3ONtG`RiFB-T*nB3$Hgv%Lefr>ulyXpenRJWRyMu7=X=yT z2#RWNBsS+CCCnOb(;N5Ba!gqt=MG=3qoO%*K4x)YW(RCP=>I5yI#WpE?K8T!_CGyY zm~C?>E>ZNFFxANmL+5V*;yw38!E*4RZ9eb69yDo3AL5@>KK_E~zBjb(=-AdB^thOy ztav=VO|&##p1(agVnEkdyfWxGD1LIvc!Wz*OGJV@re(J2AFD*#pX%|e=gDqRR@pER zR(nLYDG%#WMRMF2C}@jVHgPmHrcT|f4yJ>v31U(Xw~jJ$0}G6Ob% z;hl-QVei7=^Ke3M7H*q;GhS!DXqEbr0n<{4s&BPelh3;3ZzrkcZZpv`RFvQ)7XQ=b zZWq?Q@bg@(H9WpF@3M?55MI95<`DkKNP%CiyKXDJBW;FAFS{xco@vTp%|1#| zH;|lNr9AGpa1kHsia+!=D~iTZNTF`8flt=+W*>H9n97TDdDh0Ht0S8a%(c+Cb!@PU z{90Dm82*2yl2XX|v?tcb8vPbnDE%BJa`}dM&@yX&*|bvId2o+i9vHY29fep1AML2k zn?P#|jwgapzF%=KT`cubS_jFaT|l^9w;@)wJ-(Nm&~eOXBN{rv${qQZH!ow%Z+>{x z4r59l1@L38Bg!m`Dg!Oq7FVkLLyyYjamtt9c!FUTg%Z<|p1Do0iP}sI6Ghs?ZSr2H z>%{G)ADG;kvt1g7O`KNl<>LnBbCWf4i2p9YbfY;CkR6(LP3s>pnO}GnO@%%^o`jP5 zxPg_C#l0WkHC6lL$`tXY8>m9RQ&|pFA3C&1 zJ;i)cD;VB>TSgi>?TzPc7Oi?s7836e7QyWH`NV@%7yZ7f# zPF5&b_N1YH2?+ecs_Jr!lucQl~#db_C?2s_xybFv8nG8oc{YQPFWb)Y&|vXLs75B zE;m@2QM9_2nHwih3JGPXxiK)*BNZI2(BO1j=|8w|=3t84(^9Ku+N_we_?3neUyB0*7W&)f0-3jt-^5d=`q?a=={GEitE~|J3T57D zpFary#zU$f$GmO1ckM&~>s3v1Y^#scl#?X8Or{zzNh9iqBFCK5v%sDiXL;zt$A!N|!H zf5Cx^kq*&?$V4dD3sudabZjDT5SQtPJt({xdxF=w){de+ zUoFAgSh2~0vePRWi@6ds(4{rF=aAmFw?+JUc{EuL(s4X}U031Ai^Op$NI~Tm&u#JE1qk_sr+|Ni{gf`&je!W2Zx)R#o^fFzOd&-veJXv6%Zdcny1sv zh#uy3Bq3wSu$g`!W0wX!j(_g2rxsX8pVSpHJ{FI~u-fx+irTW7chJ{%Ca0wl(K|Hl zJZs`*Qgp(wwNXav;-_EyH%(ySLe}r!|h>-_8ZF8Xlv?I8FVif5<2KN%0;94YC4j#MnCm` z2$dpIDB{u$!k?Uy6eJa zi{0=o(J+f_`kztMyRz~HfuUWS3oE~H*4H0HE}G0n+cq-@uNCnhr=YOcakz|z;5`s@ zsq*y|u@eODFV!8;^X1Yljo04D{6E|5(!x4tJ1ET!ou%=Rpd((qXr#&aqP4G!Ue) z9uS!5fGz)IIk8y_Cbim1UH8W4U)Cw8mHI18;O0UKZ<&wdGtCIUR)zGxIkP^fE_T34 zh^|NA;aUkzpTEBrh*{WjO8d4lReXojjF7yGs_k8*{`UPAiap%}W9^z(Rh{Q($WI~! zmU6S6(xsSWSB;&8)`F=~;yi8rp&fQKGhmbDv(w=2Om&Ne^G{(sd8gbVzaxuDySz$o zN?G83ds}nAxlX^V8Vp`sDjX6K>zxdT?-9~TI(xAUJpGo9*nn!0Ft(@-7aK1O?w0*$ z8;3Cr=!>x0GyBL=3GMJ0PUehXiaKzfSo7k}+G)#}_z?dNABM91OSuXrZ$m*XkiTvn zm&1*o955h$pNcFp8D&HC9Vl@JZUt(*X;{-+4RkXj718OgS|T1^bB^A4Ti*b+x&=M6 zKeyWz+S>hZ@Sz5jB^G0<5t>w~MWN$xScSJf_8h;wwQ2%*pm@I1#^+x(nTSOb6S$i0Se_Rt3Pu(CYHMo1*ikm!!jT~G+QY|}cC&32R22MX{cX4!)c0)yn z_PF+)##G4HR=ve_0(JSEn{OMw?3k;E+d;*v0~~y&K#UAW1im%5UWrpejtrfHt5_Rn zwB$NSpL8SZ*{Lw8cC!`!Tb5tg#TUr3ycHhu%90Y-HdG>X_EI-L+9D}m%;&ViR7;V^ zf64l1>uFYzt#QU&(a|{RRHV(c(KP^l~M1StFlWn=45Y}HmcTypfC0h z4z(nblyB`W$9QrCA+PiIw?+NoZIMlas>xkVENFVtn(8$oiq0O7eb(bp8w*W@x@C`5 zLt<+#Kw*c0fjT$mrh1Z_H4#NkOuSZ_{cY;=_d0U8O7J0{Blr(@Y95I{?EMeZ%FE&cZ(a4cw*fSjfw5z z?~->-VVKvjc-1U@?dTJc*x}+0*Ow<#(nrnMi=Xg`8j-Rl;k1v7K_@pyIAb;ZIAw)O zbQ<9lOD_Vti3a(f(VBqYNHB&2GHQ~rDkUe@oC|BdsjHGae5a~`nAZ_VX`}kL4vAhH zO@U`Ps;xg8;UfuzQ)rn?-yP)&$Il*dwFmOa`gk!_Bk8llyzTZ0_VqPpud6+c9nTiE zTCdcYU$FH0Dn~dqo!A7@p3rmt$Z|M;m!6JB@r~Eq^2&StRJ?F_iLtFa7WWFdY7T`a z(v6v1JE7r6<@go@XLv=+u$_7PVoq^tt@gu2lceVhBC&dQ`=ozCIcBc`{mbsSS?fF8M#6r1AH9_VRg0-`a(cl~FN_aO*1%_ca=U^dg@cNr0Nqs8E`9veOLmyC)%r?@RY*vIV z*23M7Z>zucQCf4AuRBRXPkL?7C!2**r;Qf}W~xMQ-1LLf3+j*M{lgExw2uZy+L<}| z{CTpYI@w(+@>I?6klZ3H^UXT!LLHKM4uxT5_Xm0Yp{-K0_V@8F1IohL*LU4 zxcfkLG)D|7NiWEcn;IvSH_8_z?tHHEwMh5fZT-6>TU>I}4<#TtGEb=-HJQ@i&Qzjo zK)S2Ph*rkMF-(j*Rl(VT_5#44XTJw44&h>xjXPvFnldVXRW~shO(X(4C@Jq9-uD!O z_`g?y+1&V^sj!=)KCu9xYaSj&9sdJ@ISjEZ5-s`FP??Rs834$fe3$U1#F}~D zgr3wvM%{h5PdrVYmC`t%P3HPFM_K>UHAY##4r#a0J&i=3Yg+T)M0~*>+B#}!8k2iP zDsX(Y1kJ3CeTS7|T8ulIvpq@gA{<<+9kTp}aHxOAlxMnds5zKYM7CF^4OkA%gm7V} zTvaQel^%0z@?n#new^~fIn@;sNGDziGq9}c;-7=XE53{>i^7<=1_er0t=wFbPL{g~ zGtV0KpmqRwO^u-vF1V$e%rB11hK^uXmIu>wEi&TgxE$-G^Ndyg!|d)x{5*tZpn^TU zW1DGv>I;x-R8?2pw4>+hHEtLb^TnUkf}d!OiwdWnPwcVo?3#eKv0NAiWXsUb0-Enu zIbFhX!wndvwF{OWQgYpniZJl(Eon-}k$=!?g4LH1Lm+1uR~*)IYAf2`xg%PKL$8Wc zbdN%r$4|Y8wUJ=yf`r8~wwp>9OEjXl&aZn+zGO$oc$eBeyxzakp|l){GU)~MFDd%}ePMi=lGDjPpMOafT>`1t`~2ttgK=u(Xk7E=A>DNk(&lq>h4 zzakEr(P0=?@lY90=gb^p04eNLdcBKtVKELPiwmodZrYK1=*LxNM2jYtlj1Ps%l|q# zfADw;Ac$EYagzjEPr-jfu(8~d#UkQ~37|GO;c|^v_|uta_Z5I^S9g=0^m!ANWnb;$ z5#VK}FVUGnBXd<9rG~X-A-QDUswtD2AH9P`M4)bQ6vhg0E{QXNp)hYxl{2he4i)rD zXWs1Q_Fut1Hx$M&usQT({tS=W6sE)yf=>{i#Lm<$^> z1xQv{1TWy?f!Ar7YhWrr?$!kwQiD}H5)d+-*mRJzzSUL;HXl#9+d1Jue|+7K&=mio zsqwT-znCW)IMLgnuc4q~qkU@h+M2VD@{wrKU>lDHWpb8zQHU-w_Sf6NMcpT9KweO6 zTFDjt{x1>aF%^F+E3XV^=v>skPeF0@;U~!=#%nc<(wH{>&X)?}3)g zirEnwPv_IHR5MnXKTY}%~`51GT!Gy1je0zwhX?+$|lRI6E*iRBq_cXB3o%Dq$8~Ses>b}@2JXPDtzhy%%BJ$f!?;VsGn&S z?3G7b#Qeu$JWtynXES}vuRqoA{VDCs9EC*MCa?Yf4n!Xm-({fCH6aiE+#5>(Md41$ zP&VU}0A=~OID%(%z`T7P!FLcIceJc;Q@hj(Q1P?Fz3xUa#yN{) zY4vF;GGVr6qV*wDa|e~t9>A~2!@g!sHt_+UWDB-u&`$&Qw$HJcmZyxPsSN5}T*#Lp zuOd zb{MApWA=n5S!)0Nx$QA`c{d|PvFx;kG)9A&|EcTh%j$j57)8=jVloMmhe&BiC=g^- z#**0U^=ijo707e2|F8+nW*bVwx9^F+Nv&_(G$XdP7Js}= zt|;N$$TIR*>jIUG(OK{gyS;LRd(!90RLb}-KMZ7+?cPc%o@FOo56*C3UWC8dz^V@Y za3hCp#Ipn9zd&%28ey$KKJZ+GH<-fn-TESAag4<*RAeK(x2*PudC|e0ZOK-V7uc!% zW~|@GLgWomypl&neKVW5M2GBbe~SXRe!5eRY>wBGw{vFJoCr2OIr`FR92g$q@9c#% zc8LZcxD*|iAjaWWo!Z3=PVTE0qA;U07c#Mq4=IMlr=X$LN7h5wF!6Yj70D&+4l{^! ziU!e<%WzevVSjh66BpC#WwWh+JDg+S!KJebZ$fb2V_G zo~-}Uu#2kKzPLWIp!V85l@4IxUvn=|Y7~K7>+rsroa56)QMpGkTpdHvl5*_7th?V{ zWjC;Uk~=`NjYUtPmKU$yyBUfN+>>74ubZ*)=K-{UZUv@tbgX8Itac(ZGN7M4t^jTkr?xttu7mf8Vx2?8iSstMx?{?bi=B1kqtfFBsTmH^hq-NwOj1i2C zYVXP4Qn{aWD{{XbAq9DXNtVOFosCAkp!gB){*p^(uoN}N=p$6oq4ATNyr(hH^7xqi zKEzY&IS(_sy|R8Sdq-lO4{XiT(aM0(^OTOb@+b7mP1J6l z{rO$y&&~!qOQfr-FGzR->Y`43*`%!Um60GU%l>I{wh*^XEgbfUwERR#P#ihzp{V{Z zW2lfb{HgE=5GE3%j2}HitynhRJ@A#JAVa%V-kf&t{tIg1a^U#E-L{47vS^3<3>pe3&k9zl#{7vq2F3& ztu|_EH#F#rbP&9BlUo$k!2G9a)~bq)Z-brgZ@*J^k&E1Y=7yJVlb=9V!Ls5)PGoK` zkN;~_=$_LlRsF+xp{_FrPuFwQ{CDyVMQ1Sm(*6U6Q?G!wrTzym)8D7xXD-(ds5y9iA>tqO_OaI&UYYbT1X{EmTO_^lM#O@>Nib!|}C z7o;>F-&RnuFEep@2 zl*QeR&qUb#_Uq?U2WyV*7gJpP8bYuO5nkjj{v=GOnvxIg*32rTvtp|Lc?)$si=u)^j|xw&PRpTOnVPx7=3OXm0bYRxD7$&i(KHP84}Gfp@zx2KO|Y%>oT z&0^(By9iuM>L<}K>%{e0rTtr<9u|9M2L3nS3Tk~;LuM~|vm(L-Iw<{v)`DVa(YDkD zd0Y}cgm?e-{>MwlES#~TGW|3?+;;!j)iO)b6uso^l1MvLJOps23PUMKtJIDO85_|> zOsN?~8f&^!iQR;X&{4oAyHMQ_kYJyZDKt{?eFR=b&E&qxWJyZ$YZr}}jO)mUPt~rI z?KN=h9YdyzUteZJ+ZvPeY4@9c%GT>ed{5PK2yq|)&#<2x+l_S|c zFh(QuSdD*zu7~7qh8ShYLFQ!Wc{L`&;Wp=tMASmEf+s#j!Nc>T zQT9;suxLlnwfSm`S8jYNt`2r@Ifu1eStZP#X8U3hj6ev5JDg;Uf_(fb8Kd9PI<&BV zdWl?4cP`CHgZ*kXn7-b+BW+!$;4qi*e6o@0H9)9890}*0yBh#Ce#nt(S?;lzMc%2d ztY@=u`Vq8Oo>iHrV5z|pO#Ttduh;r4$J|K%tP+cdK+_&r_+{zU*ICvbnJJfAzZthC zUlkUamfw5?HWX*9M>+3Ru#?5zoV`!Wj8V4x+}eaYtL}FE&*Z**;pP)F0fG^NgJ*{> zT1m#jlpZc-l||p0el9X)^R&&&`jex#pxJTkblnGE z^Id&(EJh&sqKUj!fa&l76?H1-54-NC=9alE5Z?Rt zc-$9Hi*);e!D=pX;3ce=qZN3(&r5d8s$cefwe- zN~RZig}@*P+t}8QV&T5xz|G$v4dQJINDu(TDAN0&6qxo5MTih1kiV*AV+XMgAU2s) zfS(=i9(lmr8kJ5aZ+xT@gawZl?o&H7P!kSYw?H~3_<+Qwgr}ZP5~)yGomI8CUTyOweYOdl-G?%Ua((S@*Y(*A9Bd~8;^qAs z-|dH{hvq4tC25kfN{F|vH3k;T+w*gof>+!PW#X07vomYFU7;-9{rlstJQsXCc~ZHFJ?*qf6hsrd@kQS zd>*;2YcT5#Rvm}Uv3}fMOw25uBHe7=1Z)$)o5}F?=o7H^mYAoi455j#m0h z?pR}#ynyyGfna%50ZG#3PTeIa1E3A=2x~f7NcKRVPy?F9aoo&ps{4?reD+e?KC|b0 z=Kw(j3+Mz8K>C0|1PK5jl0e!3K?DgIAQNE#f(Qtb002#;vATT(ZwH6e+JRC^SNuw) zmdw8W$KrA>xTD<1G<5fW1@i!qXRKZx`y|B4qUM<@U3+m8y0)trtBDqPPHMAA zhYZz+rEr6LT=1Fzd{2Y%xoe8*SMo$hnVcXiZKPsqB~gBT2v!f5%Vu1tzI5JS5rdqf zR0p!dEc$cAnD%5^J9euYF(MRG8@9#pZfC66pUY|3J1LaoO1PNh*q%|Q%TFXi9NtV- z7oYl%NITBpN2}G1<}06Xik4B!eZBg<5f)&uGEt^l7&@LnshK*x5`E5DvtXw>IgkE15L-^aek!D5GG$ zwK`iLl$mK0X8uh4FNNlGf03Jzq0D-MCv=X=xZKVi7H-BtDAvKpv*8rG_r^at85*w# zRk{u!ZqGewajkjD#cH_7{_f_%@s-oAC5#~t>9bZ{1bX!P5n z$#q~~C_fHU8+%T!Pr|cU&ixz=lzfiYULgDYOQ$sT^WWvBbL_D!rGAOILNd{c*k@u6ql{=WVFi zbm=ZQtN7N{?XPq?du6LtOgV*0tCB+mpU1Wa`Gx};nfqhVN#2yAzm9u(6gHlXfc4gZ z?ITol)|?q*ONo%ovUF?u)8#1%=|R&p>J_w8%5~DFF~t=xiWI3qidJTO`TBvaabZvT z+6#_H?)BD*LbHEq=F6!3X62(XY4=8d6PF*3;p~Ou6%$g?L5fU&_szNx4y_3nMbr(iu^S#65z7oD7#RCp>|@gEbdqv37H zN2HW0YLn6O|HR@gqw@}O`tizCF|KKZCtrV8^k2Ai<$6+5>^(IaV1z3`n^rfUZr?oJ z;jspoF8+1Jm3M_{TX2&_&y+fflJqJAwF9$f8gU(o?W&Z}Du1s`Q$>6p7JYe4o&W=>=W;y*#9=?V-HO zsys?kVo;@iwnc0jLr;G0)c6@l}7e<~g z?*R1hi;_yi%Na8~!HSiTGT$ux)Kqwel3m(gxj)4EGcJOR7M8Xs*}=`|%&C6s%T9C^=@-D#&T!7YyJztnae_S|MXw(CNizB0D=e%qH1bs4K3mz z9cz2hQv&zqP`)lYPSI{O zBC4Et@Nd5cG}_#`W=(%HMP{FeT>=n}3hj}rQdib~M-%&(-AT`)n!T~3f%4P6Wk=Q~ znMiW-)jjZW?rn2o-5urp^{vMcm_MuA!lEKe>>&&RfnlvVUf!NFNZ zF1(}G;(B*lnPv!NZj0V{MH@okL?aD^UVgGDUA|zG;rC%+Fe^AcUNi$gKsW1M$4_mj z5kL3OOB$mf66X+<9*3-?Iw6}ja`kxiw}X(wSB%8+Tai1yF8)lG0-ZL-SFnm$w;NY? z$ZbDPMYL8AUXSkJTx`feh3R=fjb)E}P}8i0N#QR`S<;qTMsIqW7p-XvQEb%uC8pfxZnwg2XsFs-!I=zHRH**e;~n0Tt)XHKaDBaxK4I2R)) z&1>gtALfc{ambwUEu>TTU?6zZXw2?sFSiq?UNjVv!<lO+z9>tkui56*3fi^ev1C*!6qPQS)%lcOwx*ua z@&w(=)QDDE-Nv82q)=bz>v9fA-p#5$oc$Y4@BP&*3a_q4TRvALq+er9lyv3cTvbyl z;-sy0PPkk;1R?dZm-z?^{}~|<(EPWZ(j>Z;XpN?=W0<(e#jE23;+bVbrtkWK9J&`* zHXO9W%E8L#`SqL?8`;B1G83sFP?$WyX?)ezXNO5;J|!4pbedHNK5cZygvpBJKu4&W z9dEzUk3?l&!~W;*Jw%2(_hPpw8HzC9d@5Ze%<_pQgki*%qPfqHL85inpWvIp`Hm}G zV*AT(y2Os$MT+^QzFOd#@chmM;LP|(O&M^)wMSij1W17Zio<7>Rm}|!qP^|bcU^D4 zh}Sb3hau^)ZO2~~V;>(u1}=n*`f>ij;%z9~V+jVt!-Oik#hG5Nmc)bC{1bB?)oY2i z3TFagy;?4nbF~wZlF2A%3p^W?(%$!u+1`vz*F(95A=?Cp3aI=ARyFm9JDO`Jk9VEd z*{Le}8->VnPag{lMHMN&xrw3LxeyB6^e(nOTppWEZEH9?1N(ctwjV{QL_ zQ#fNi5f%9wmy|!uiDT<)a?`xB1n6(cg2$7-v-!MYRAyZy9v7_o`h7DM(ncj02M8#1Z_!6GJh_dWYw}V68<^I41$yu ziY(z0Oz)oCmAD$>hfAW?(cR$lq~Q)uxwxu09!7H*6?&7t-Fj&NlpQ@05SJb=I=~@8 zSJ*H3NpE-y#$CN8O2@h0OPh_$qx>6v44E85?65kISZ71S((be+H~yNOu`G@kH3wMO zWw(6eZ{c&?mA0oK+Klw*WhfJG>Qx0%+b*ZpdNC)s)Kw6Y787UM?W4Tg|3c{VjG~vW z$E}PaWk1<(Mdswg28tw^bi3Oe6rzdIs+)yawJ{c=ocO;$9JVDu#&e%u zPHxr_?kPS7@>4adZ29Wv6uu&dm!M!A(EK%ADpzJ=Wv~s;91t8yw6J^BV6di~Ep^!z zywRNqhP8$J`Gqt#i4>144POr25~RT@NUr5FS>X-Tg#pJcaMh2*u5!H5|AfJqi17CkEgKKH4r`C-Kj{0uY4mE^sL5@nwl1~Sr^QUw>@rS! zUN^Nr>{!TMSmRfic6i;`^UEn^u}h^XKK9{beFv_0j@;AR!2bsuqlxSV=P(Gw){<)&i`e2vDc+sSAHWZr*tFdW5SG; zGGE!SUuGi+C(dkA(|QMzM=hH|w9mX+)mdCygq41@yy8S%Qj$9&m4N`s<5)Iz%V5$; zYgaQ|pKHSi-oA{|6L_Vw!+gtf7kTw`tE}#C6HFksVQJf2tlEDNGCLh^6XmD#l}P)< zS3xM}9&}$|Sy}Nkc{QmN=cMvVm>OhIwBFEs*76Pb^vuUye#dQj3EYKU!yhffYHy>^ zk;Noe-S_R@nS=e5Glni?5i+g)%e^S3P&&~5d5LJo*qE!XjFlc|sFpnY@w~fkVZ}0g zSLEFg%O@?(+oj~(`f=fHsnHbuWk+u@qw&mUU7JkMRyhg*n_gO7IF$U_g%o|&)2+r{ zsrmX!?h~IR{^Q-H_o$xZ+(uE~&wr9f)E@1Gdl|vz`Avqz08^fWX0AD#W5@LyV9{=+ zanZhU26_n~@bf>G=}LAIa)7bl$0B1*m4mgfUUX5fi7l^9#*8AxHxj$y)G;ZmPVm6! z>jjbbj0cIs1~()hZQxNWeJEQ->=&;!%>06t5$u@^(Ja z*e{QQYXSiT5HFT)B@W>rx^VGw7WaO%`rmGaROsA$Gi*GX_p|KDZ~odhhFKo>%pj%FEn=p3E9O@9KFm`OXdB?qodFn`l4TR%$Uh^9GJ|;Gey$YLDjVnixXmG1 zs$`1RU&bZ3!1<)TTJ3uN+MJEHc&<`|9RJGbWb@YgGq82F>aTDYy5EMAaeWn*{?yK4 z&D7!Am1m5zvhy?!!s0>OZ=jw{d}V(+DWx1>d6PeadO0;rIAiUfM$}i^-`l&qndYk1Igo@?PY5 zA5dj-g)_dI_n30U>OtV?8;fBX$ z=F~HnmH8Jl45-!E@WH(Dw|r{_9xc1XODnv7AAhbNTloOISLr#Mme)$@cF2VF#@c6< z7TvTsX{Gb%=S7&dlLwkY_Bi{NvgtRg=StWhuE%63bvA2Q_k9K~7T;x?C@w_=*QGhc ze#eP^8h-Pm^CP@pc5NR& zHkTf^vqQ1i0#Dg;p$Q5pTGyaIw&&?fatg@Vp9iqRPYdcaM^`#pCFf+8XsOi)H4OI-e_A@YRrp5t)~Ab7C2?+kq|%W{o(P64hxOl& z&_Q09Z(al%Nt$nx$ub>m;XIYYKaM{WLQYOCML4}g-rJD$C=a`5aHcgg|=z^=S~X$qis|DkmMAU`ST{yq zuznAT#n9~pzOLXvL8qIpGH=JM`A(}D5Ty<@6KTzBRt`bHxkE{=)L8bsYfk21yN||I zsuv$gMdsC__cbot+F8`|70Qn6tcR{4MtKfGwbgJ++oYZnZiF$mp zC=QPB6Sm>Kr76%C)@<@$^b+fP&fe3IZ)&N}Q-@R$)F|gF-&=*S%>BToscHwyj!##x4V&Z(HF6_F&T~!AxmgjdRnA+DzAo)8if`eYeA`@OU2QR`kO5 z4E1*lSk0Rc-ko`aO;7R{RJ}jiPvq&!6%a@3X;bHuDq_ly_o(q#31h}YOxtLG@d@i6 zv?kYZT7i@~u&K%IpNYyx;B=hG%StkkT^!E@_wF-=Wj3Vq6EEiEWjTDyh|ZBUpMFVH zrz?7s$lrfwb@TZ0^hhCC?#ekTN6-4qxnO+jG%riM$s(c*Br{ScQZo4aNZ-D9>5!%L zC+4b9eM%1RQ|iYgfBN&#Qt27jC1~OpNtmNrzPnrUfhMXOyY&MlM{VzURPf1xz0F_I zSC_#7o$;|W*iP)EmmX0f(e{HqTQ~10jVZx>820jrzXA}+x*tFCD7H05jn1l*6$dvv zmSMc5>oe%2UTs(;m~Ad5a;MT67n)Pg>Hh%iqcbuG1V|3(mlV~~AI--w-pk!%UVUvz zE>jY(hChKS1chb!*E`Kh(^(jmIZ%4H+Jg>qM$|}7uuU@0(@W6^ky`%jGGeI~f9;8x zIYubC_e}<$E)Miqa%;@EsRHqQ$CkSz?fq^E<;Yn%ZNGU;GWRWtJ|3b-+9D zOv2w%(Cj}oR^pCr^k&VeA;f;p5|_To4lFM2P@x{Hf2hLCGP;SORvh2SM|c%DD4;&$ zhV%t|+XvLKV^Al3!8Y&qDtHT>LkeyLG(9Cyzd zW}HdMJOyAOg8KNy)#}vzAUb%rIxQ%Os=r^M^)2!>`R5aHBy>l1ZJM51p6C)!zn%jcij!nD46 zbPv)Ezd`i8k?B2@lpisPT|t2?u|%893V4r3#bEFHk9XexuW8Axbof8=3*~)lwBJ&{ zwnk0J?9ic9^P$n^7=8oTJ!?LVUzPMJLHe<-1lw@B!>cBjRY?kUj&f=8+kqH%4!bN4 zWiB?3hSR$u26;+FQK=WX+&D!+Xz?mYmils7TlV>5O7JoTC7Z<6OL5F3ms)*{Lxno0o zmXI;^tzUVEoKKOVS;GrO4l6rDzDR0PmpyOrCPLG~!-Vq3{~gOAVYO0etn-;*^6_Lo z07)PKP20U_(RX4-x{m1!xYcoA1pC;zt1MJf3x|%z&;gS(c5^@aH;ZeWM>UWO) zCEujiSLg3s$7tbH!+Y8~lk>tvls?6g) zeyW%`|7wwY@Au@9SDUB=k^ltRAginah$I*ZAdyG_kboe929yE_ARxp+NCyA}l4T@1 z2m}Fo0D=e%0D=e(G+r_;5(K=mQ4g=f33ZNS-+e#tRLmJ+N%?y8fAdDV%){ZQczV%U zP0-k}dSh6w(e%*vM~DSW&M|^sSGR0}5;#qywS@Lq*<*j2^Ha%X19KkT`ZpFFB(+lK zd%fO*I)3g#J^lLQ5@IDSuj0hHCk%~XxqS0^@wymTIZd(nH-~VlmpVdtCSB4|7)mJ==2iGxzkQziV%Qqas}FH3+PE|B6YM2?Tv! z0+@7&tW^uMBJQ&__Awjk#82AH2+MNC*(x50*d9vEDbby~D0AcE143q%>VL|vh&l0| z#PUP$tsz%$j^wV?(K`haT6Lyay}K>+x-o`X)|DJL#Foqr!TJ`qQuzlVZtY zt50(n*G!0eOQ0lLFeC`@ObB(+ND!mt(>{G^Ze9IpWpn-U&iu@Eu zezG2V=*xv_!dX8box8oL&eSWfH(%5F(~k5;552<+fH;6Bzp~ zG;}y>sw-}g7G`k1*nQYv`XtBfmZ-!IPq#&ScA~w1_a5n95oss;9y+z{>2U8e*>0e2 z!ZL8oq3iQ`ZuN49^YmkmXgvDH?0c1T?3%WxXHYh0P^j`%k2kQ-6!^|lT1aCv2KBaP zT8hPmAN?Bh)B4`Y;7EF%l>#<7vqF_!JB-cEY818iy^816A+&JqZLZjdm0J@mkNISj zsW<3u>|!oEG+Nv(^tRrFdlzQNX8Ti9dACd<7t*{xAc-j&)k(7cu!-3+J?*jmE$n*7 za$!Vz{%y2vTTdOTrt>=`lXY3&W9RCh9#sXT(Ah0suU+yc(O0GAeBo^HvC(b`Rn}JT zfvx2>Uuv;;EoxOel_-)Jo9!))Iddv?1)*h{DNkw>ZzjR#wqE(~r#l>(i+!6nYF|!jhJ< z%F!<;VeGAYk$Q#yAPkm0`2aw8q138yuXpA36gmR)?#A(9+>YrY*HkPh$8W?Xz0=ir zN&ER-g^)k-Wu%ci26LYD&M+`A%{ra;tId@A$5HK$60hB>zYt@muCK-WCQ1aEBo2Y@ zdPQi<^7;~-N5;E5_gOqFTxY56zwrM^eWLjMv`M+M?*xPWU>z zpSZEq=cQtn$2S}qK&a;DHbHpO4+S<_{Z#O_=$1cR-nGvX?bH`dN3y4*p|ZU1A?Vih zOHk)ff&ShfdhFvS+AcWU_t+0w;Xzwut29*HvqS^0A{&vt*(ORN^Kv(LFz*Asr4Kxi zA8zl&7|sU%A)>as+{y1*xo<_#$80oz+sWahllTsCfVCA9Gf@8bh>g$gdoKeY8lyyM zZGTP`oHtWQuj ze!AW6)c>5j_Y)@DfSXJMYQ-qF^$59~aW~k)pdUTeJPx$X?sH7MzP17wYrO_(=Mpz* zL_hO6@;Y!#j90Wbe&ipkc-#vmCiiGs93kcOKgeUFi*EAqNt{?p?piuIx3zwfxD!lD#Qx(h-yPS4sRmCHJ=fRBKfd zmg}S1+jbITnBtgZFXrjP)n89n%3)Bzdx-Vp9D#N+54w@`Zq|D2u+)w={L)ab$m44k)HrZ zUSu++7ccyOSW94WNffUGIPU{VUP(tEsr*IKZqZeZpz}j>t~+yAHX6)78B@NJ2z$w$ zgDl%sJa*;FwTGy3#hJDJ(wVPp^j;3SUd>U~VLXx`q;Tig>U=!cR9@G$1iKhU1911{ zx3f=nJSYebPfZA@uzEOV8)-y|`7Nf-bTOccN|13StdPy}uJctLFrBpVw35`PHJ3Tp zF?J#^qhI&@aEzEJ(eaA4fX`s$t zhHa|b`4!(?EAsv=N_)gXWOaRqeA(Um%}FD+Yh~Qq2k400!ZO1wx4*_6)didow(>;q zL(!-^=1?JOK{T%T!xwwTw;0CT&qej3v=ADU;v}geL7H@8V7u?B77}D?a#sz@$qE{J zvzH7xPOBC!ov+CAj|Z?0;V?bGJAfZ{Bg@re*G!lHUHcuV8&5by?o;<`dGhzMuWDAl z^UO3HgZcj6c{vEo>_);WnZw7*zaMSpW`WzE68yTzih?8>`UHz&07A&vL_#FrP#P2o z0z=|p0FjvWumVL<5C9g`03=J00n`W)XzKjz`{Wq_fsvpE5fTSg0!gu=NjJ1XJA?@Y zeGnu8DnNojl%fd&Y=Hn-kOT=D1dDPYfxJWlE69>ey$}Tn3SuB1P3dy_#q~Koa)8L4 z&8ob(bY&BN){$;h+uWV`c0{7n`+Ns{Hf&yA)cps!q4ZBAS${H`a306vD@YUc$S{yj z(E>;!w22BJ*N7uSH>nkq3#16NFrvt7jH1H_MO z8(eb#Du{>W$<9u=#hfKI^tWMlw~#JcETaE))z@6!V=kA;NOTVJw>V;TaA$hFLv?D^ z-^i3ph@qZc!Jj7r^8Xkrd19vV0FCOr7toghvnG&F4EI` zN!8>ZXY27WEL=kyn@+nLBodN;CFC_v>0Hqv<(#>?la-bhGiJ6Szo)2mdHj&fuPV9| znGAS@qbN?7*R4x1$#P%mo&58czNU=tk343m&M<@ikw)j+3Cl?QI}vA6_TS`EHSyep zmjF{rUxXS;OEaMsI>orJrI~3s$Hmd2M^Rhc^OnzxqG!6m@1BBD%U3H5NIM8g5NUR3oP$@E8BM2AUeZ>7MxecWd zNj72r9yRg%Di0H?f5NeE3ttbuV;(?azA{Qw*Mg^Z_9GuBbr`XQL&X()WVSSvo#n2X zc6w(vZjKSd!)-T>MHfiHk>-!nGM}jwuP{@$7a+<|B$Hajkz%w~>#b&&%i=<}h;_?- z5b5is97p_Hk{NUUa6CV)_w?ROO!h+CLelT#`%QXNa87XiIG5u{+%roqUyWuyeW9d* z%{`LDHG``S%WzjNvBrZ%dll$0#yV-Ghj9{-?Ns>x8h)o?+=HaxI|xN==t0q&l>SYm zLp@}(arhF3DL#b_zcZ)6)iDzSMc&^sJMK&uI)4pDrkc$`^E=u>rO?R7eI&}QA%^(+ zI`^bfN(tBm=fd}X=o_Vn8+Sg%a*X(Lm-K$vztc$nUGgXulzvdhI4HH)wVVp-O?*Rb za~`g)U;~gn#f9h&?ubR!5>JIdHZ-r+|_?pZZl~M4xLUUKS(3dk?UOaUMq?GTP%*X$jN_CP9((l zCUjyJNgu`v(VVq+$r4ecmFd-g5R?Jjyt)Y!(GCD)?XQG)Zkf;dRvpB zhj=8nGl+5EhefA=( zd&$~B>D8WS{?wVQ_77wnxRW&8fmGO!>yJBdh{ZSP&TulTdmADI^>@+Rf1>=92H^+BcZb84@Nj_}ixp(Ylr3)7aMIqcnNRPee}cu`vrT-A*FAS0ir zAU?}Ouj2?q@?UP+3Fguh@FeR_p!iouL2G?QG?~l1dbn?C%t>~tNSyOo8_pG)L;)M25hVyA+ zpGYI@tlkeS`7|m}rDdc(X~v$94*N%glP$?jmV~wWTvM*=YnBa7d%`8m2)pGoD-Im& zCk)8rqokn*@<%xPkjjn|VOY@gw0#yedM2<-{I#2@E|=;y;HKazcGVxWgA!L zK+GI-PiXdsen5xja8XajO#KkPZ!?do`z`9=!iAl|$E5imWL(`mJl>I`MLu9q`!sRd znFg-k)k~hGtZ?NJ&EYKO#w7`P+HzWi_t1I&Z4eVb^!v`yXa&GZ{dFCXnRb-ktC>&- z3W177P)eWAGI`mW&WG~oD_Py0OVA(}Zg1O(E?epakh`LQF$bLyp)I42Dh7Rv>*(v- zwGMTP~#RV#W*Al<;eN8Jo$Acz(g(slnY}fiBY-m7lV24$W~o zKC%|>;Towt+UEy*bz#*2IrJsazCVJ8USVBI#1vp^sFZ`XdQBPj(|Bj%W`ul%xt~xV+_eF1*+?uOUHAal1T($8{qUSb2|| z>?@TqG8F!1x_FE|{-?2lk71pUm|f#X?A=HTsAbSU#BbleN0+_Vla)(Q5mOy+z>>Z5Mt*xWokH^+J){02GN%;` z27>Ox3J-y&k*Lb%wY4Y9q5At7J?Y~bBbThHzpfIt^UG)b8}fYG(1FrVl|nNeqz28E zE+o0VqLIm`jGcuWd%fMFkVrySnDggb1*4^sD;DeZt6M423(LLqN3yMMKQlr`U+@tq zY0Jf7PF*12`?!hf?$msw&MmxhbRRCvnD4*g z3x2Il!h21}w@(eNh*=mtp^PbVlnaj`6X6PsBr*0C|GLmclMRF=va z{VG{X+Yvr3k=V5l2G8?On6TUjm5He0+*fwomx+h2qYvpP&1lw-r3o9q zqL)?r89UHvTR84v7BC&CsI^p1Wd=r8D2r3|8fwn?JzYuUA5k_tK^UN)ANC0Pz9l%c zLvELQGzN&vXpB2;t2hVL89&WBf@)T>q%T8Ls#A8V4rJLMQ+8=_o&Q~&yvcFjlD5gA zXH&0Kn|$cJ^GM=m;0dp5E3O-9om8*791D*%cOnejVUJ3$>8b}i>BOseoQOC-)WU{%uIyYMPwAEX6skdYx8`%)T*4Fp zD9A1O2;65Mr2A$3L4wV3Dru=z+gTsGPbQ#2WFG`?A~JA-tN>5ZO<+ zUZsF`VrME!lU#-d@nJPqBy%u z?<;`}|Cib(%Q%?1HX?7UM1HV){kk%Bk9@eeZ*J-HDB*H*3m*ow8nnG}o80{_P@YyL z>18bFbU43DPj}a*o~bnx0-S+_W`_W#pXa0P5NCO}Ccx#a;Aqp9D}CMC6P&@uRUNd% z|NST6sXi47og}Nka!=vIxleNa8F@P7GQYHBZpELiFxkHPMAnKVCmi`C7ISrJ+vTA` zsGr1=5FjOX zPHhjHgT+49=A621F6$}R+$a9|w(kMyg^YHE)a3dzvD~NFJT4<~GRV(7Fn2Duho3R` z06_!^yw``;nh+$96`mhx?dXyFftq)AMlH{@dXX%#7LU#HKDp9jqZh^A>k~<#iRmET z0fb~r<7D4N=&GAl5dfbEw4IJ0F_+05t}8qtoO{wboeCst+V7)_WyVWanGGJsXh}OE&YouwR07?l=Wg*@`@@q&43`yNVL%1_U`IQa^Ju>ZeSIadsFCM%%0Ee`Dd z4;*Xc)wxE!6Wg=E#WX5;j+<$B!QQN9(hdZ;#ESDiZ=`D@?Q}~gt23z`>U?I zv|cn$2JpEB&y7`5;HgGR5vN+?Q|q4xGXK|`$@ulki9P6VnI0aZ!JZk8=n_1mf5N^h z`WK#_`tHp?q+=8tq@e>N)r{S#j=(*p@4*Rcxb4`v2dm*CpGd6%>!6@{!r?Jg z;kU1=hM82-fQiTzbp~e&Q?AO^_Um+nfI4<>QCp?~r1`d5J6CW*$1aemRQNsrLEZY$ z{toBuM@#R8wqR)6`0V~!C`acxZKVh5{QAjnvT6zDD5F-dOx7_j5m}(T$a^IPaxJIQ z%Eye9uz7FGpPc7SN76PGZceszf&cIK&jr}ii*75|Jhq~Hoe~rwK_3XI(>Cf|?MA$% z79T6=QSIhx^jSpU_Bm!BJ)>AEJu`pj4jqT#>Oc8Le!d)>8GI&}qA)SY{RXHuXIcFn zzFrgEq(L-TIL+R`ggOx4w2^_|JFo;>BoR>j6kpSqtSyP9IJJm`h%%m-TH@GUFT8q; zCi`A1mOV~Qs+lcUwRiW28ihrm5H@pj`Z$Tu4%7M1Iuq!%9`yaJ%3kvv6!kME*XgFa zBYBwm84(WG-Aq*dlua^f3|b+b{$v>|$4;?SADTVu^jvDR0V+E2F#2g(TKHkmFD~+2RsKv4$PO^0f!JDwAvuV2zDn6`?;@I$kBdAN_v;rdIs$AW&^WP_8pF< z&K;GjDM7}JQlmulw)W<1ypAzhZJu&R!)EZV(Wup4F2xx*kQTU5 zR3$mQ_n+YOQIdUSiq&+mmF)4!==o#Y}7H6-Q zQV-bvM9jrJS;&NCwE9Oddfx9aX0v?y)9!LtC9R@(uVv*cZr>a%>8UIg%4xY5u%iRW z#8=73wkVE&cVV=YLp~Z+UoOc9UsdyNu_Wo+7>735_t0cvH30-=_RmP~4QO!i_o?NqoA{lni}D zgtEB!&7n3hC$#agMUZ!XwXn-IO8-l@-WP&sq8hS@$OZC^n^CV~N?=lyNlWnElD|h;zSZuCx>)I`_m^T-^oPFk!>&vC(f10Tz znYmcG)#nJX9?0w~EK3!%mp4>z;p)$@>Fh_bXXN+#$-GjW=?^Bk{^zr`{XG^Ild_I& zysnfj_vinIWx%s(EzpQmZ4;z#KAx&rHRpt%yRDzV)U?HRU8t76`OzdBeYVUS8g$Tvg-N7A1NoA+T_MO04TZP`de3bn+v15NK=;G})oX0ZO zQAd4I8E$1#C8U7a|BNnGU-6xgEVqs_t|K+0r06%Cq2`c>+O|6v zIhEeRA;hchM_AKO#z0C=-Z%5K_8IKRGxF2@O`JG;l#j=MZ&iA+u-{WZ+?`A1a zdBe$>H3I?TzisT5M4CLW@E>fLz2#vYMNKr!Hb3=OCc>w@E1$@k-XP=?J|vE)mo-x% zj-lgzW0*ED9V=<{6jmo&v+xt-zD4NyIiBqcsalV)-M=LhmuD~Ko(a3J{p*}Uy>LKg z+!*5*bNb|Pu+nAY$Mt4B68x!WI%mNnIq+1%M!%?Z9S?Fxm~vb(nqD8X9TCCgBke~u zF(rQt>$~DsArfn%9Y0=a9+ZF1_T#wSE9$AlZLUIRx~?j%9Sc7+D>x_g4VBHSeImO$ zHpYh<>y@2^T6RU3*;7mJsP~aN+hnqTI%fXT)mjY?p~n$_doS>QIWZW_6Xbsyh?&EB zp;v^j<)(ja-eWP5E?FgR**}4eqRW=~p0Yklxu)h)=R}}Ej|WSmz(pNSdEJL7hg(2KL@>xvjRP zwqHtzw5YN!ppJ$g^lYsho_8Ot@+Ja?ol$;N$Y1HzTJhOiz2JE9k-tt`P-jrL!h*`4 zqK<3esW(6r&tRmCo#DxB*Lz_@yW##E+;*K`RWMmPeFs*2JLdc_Tv%;^Tg8E#g7GUB zY>4|ilkmMLm!|H>pRFd_MIFG1WNtzE-kHFh^|IAKOg2=OQPNGRd0yF#dWmOO`rLTM zRXFb%C7H6-)xc~GIlgZvk5`-y!HD)1WkHP((eT`-SrgB$hT$?{u5&690r#`2n z<-Vu#q=N|h=|38-I(3TbE6W!_sQ&8-K$SGWaMnJcyg}bhK0dnkLPv16o7UjbCwq2N=N0&V3~s92p5;tGeEAc_jW+COPU+yGI+__wq@Wu$|M505VcrLEn)O zqvA*^#{aYRb?jPnIR{lqeU@!mG;=2%&8nm+;`9yIAx=8_WFtnZ3T3OET3f@0&NSkpoEe7;FMN|MUO<-0YwP+bP#Pvf;L?(jd@?FZJl^nm zNxod^PAN~H33zEXOQmzRBg}$(RP-^}+i1D!N%ayDMirOr$iZUWg=Hv`2qf5Wd=^#t z^=NI~suvwuk85roExmv6^I7}u>Z)&1+nHxF3JMhbR6Tk4Fe!EykeJ=iV1nAlbX8Ev@@L~N~7G}*E9W2>b z%f>e!*?AJu18x=~>Pt+%VOrh|o>b$ky0<%`^o>ir44`u-X)37Yjc!MW_4(JTInFoD z;$_C!Vmhqzwd|ni?R(;eGv?fF9GbndpQEC$k98y-{SL&T?d{wIPFvdmUVD3~T`0e3 zLtd8hJRf!n_=oE5)XG!)Vr0%^XdoZgZ2O@eCgf1V1-bJ2pu`ZtJw~;d$Y5VOpDz_! zl(jqwFl4?t5rLPWV&T})^G_pwp0iva4x4Sjs(D5JHm=hD7a^Gy&GBZ+77y0TnRILX zeXQod;jBG>0Z<)`xv<=1-KA3vG$xjvWFRP%|& zK90GI*qV~(W|T>IiLi>k!N&X=)e!Uq|Fvyx%Uk_Uov{Y4Aat(Bz^z=3Vo5TvrJ%C?+> z>C0~rbyj4S*wF7Ys!Q(Z&FkDq98>xP*&J+)wCmqftr|)#>L{UFKzEBk`$fQgy{v~+ z`z?Uex^fXgkL=98Y#wddgf=ksPzHHY9-+yt%t*Z!s6Q@s# zC7sx8)uStmhrUpnvb_LL)3(LTOh38Bx=TaHWbSxav8-mcEB3vU<~bvIOMYIge_kjJ zjkE0o9J72q`o%+BGyxnQMFF?E{R_u8b&me`c1mzYkZ#BWYzxmSniDkTY)0`p7BBfS zZ6-fDTlNNgtX94VDb=#w0B%2cbHUD1{TR9gGoIrENVI%Z>Krwtj~ufD!B!j79`kmj zXCQ(h=lgPx{1-h{(e-nolNbh{RxBXN_HtxG*B(bEARFZ&$JIEQy&%*jHJ}$EI%lJ! zqw|QYthBKsI~F~fVXh69u>DxWo^#Lp8I=B4C8&j6vm!6kp67VGoXd8Do;NUbFyDsS zXbV}L(!%&Qvk{b^Ezt*fW^?emSLOxxUqD0yz}*o+nik-|C2c{Y38mt~buIjOofv1UDB@ zi!gLGTo;mVc876AKHeac-e3Ao&>cY#r8I;=OTI93{XQ$|S)mxb)>_>^OiFquk%=-S zK8LOsU$ID&+HoTnTU&fpHHvlQBdLA9Z<>hz;)8Z;PZ+u0s^)lfd(-a$K|Ni}nrDAV z)>wULC_)n%yyGhGv1ek9*1-B5uHG5jc1GEgw4UM{5K*!H7v)x5bk+R3)b7%#*+~H_gf_(Dv~p1QQV!pl+l8f=#F4t2YL!(? zG58}t(b$vAfqQ2TPZZHTuA5w_2v`j+e?nP_-;-meu~l{zaByVsD&T@6*nWWv{ewiI@1-E5`fr3`28VaXsX!G*6|^ z^%Spr1ncL0Qr7K$4|UpxHC6;WS~L?~mW~)-eqzc*pa4Mx4Zs8tKtK>d0;ey|dFMJ! zBs=y(Zz+=3Sym zj+3shT_TI=;W8B(g&eCUZ0z zJdY6GK>c&4;P77}S^2{C)TB}i0wkiXBMvd_()Ia9K(Nmg{+O6fj)0&9N>XM~JT^&+ zd{;XZ1D44qU_ZIOM<=cCU$Jru2@G_0AINW=;E`11`KDNYx>z3|K-#2p?}yVYb8k9` z=VUJMwH=J<@LvQmCZE1~kuS^4fdYfyiY_bupDw&5U~q3Isj1giaFctKd*N@6OB%SP z(YJN7l@K& zkbcYow!CrS%d#LS`0v#S)oF8F@^DEMyp>0L=)L_7qZ1wQi{#&tLxBD6O$`wRpiM{p z6A;r=)*VLVbZrD?S_Q#Hehjgx9&DyrKT6vpirq;EdB;&ww%RCFEH-!GEMcmI(5Xzi z$GU?3IUW}~(^PFPO8?%V;ezJ}1*iiEbcrS<`0qnTZ>r-BKxTK31nVjcMJ0v&S?%>E zC5~2hpS^&!8V?cqF>1~S0${`6Gq{8OhZ2SA?Z-691e~?I569>}4Js68iA-72jhW1C z(J%D$C$7@wCSHeWcqSwT^+WwwSFs+`7}OQ}p@ zO;LlHIc6=Gx@eE&v=WigO+J*5&PKjuvZ%?aE#$wankrUZO=4jBoC8UXjmf(60TT8` zaggJ~bod?vfY+mWSNb!%wvF3KlRTx$tx%J^VD%I*#H{yQ zKx=YL5jr?+DeI5-jvfY9Ct{%fEy{_C-hTd=3TOeg@v#Rrh)^0eSl3e1pL+t~z<~lpxSb;)^mWcp zRv(YSRxf6vktWDdG*oKuvSo5Dg=e;QP9x)mJ0Nk{T@1rBku8?Mj}ms9r_sDe=exV_ zob{hMKI(^Qa|QB{xS7@QuByMECYp@QROPT8cPOSh4n(fi`zf3}j+*JjIY|@$4ZEBW3i6*N^Dejj;jgzII`J`k)hC}TKHcQ^;L+A)6 z5F?}J%pR8DlK*-L#wt#P=;4IVqJVISk!tfNcsxmwSqe#yrhMxi{S%+$wCyW|3{s$U zaHB=xj*BAgPqO0a)Hf=-YM!Uey5gPSKa;tvMSOttbjiVZ{cLN@jzYbL1`tkm0@?cn zsL}lys<$ZO-k^T3ETh!O?qoPux+HKI=B{J;_eKS};PS9ljf2pRdHq~nBV^Kascf2& z@FchNy5#&M8uw{}%Gp~fQfXFsapiuIPK1o!RC^5J@6$kee$5-PO|+GmOTfoygqkOu z#$N$F`u5Lv7A;BTf7)ie@A8|Io7s5Jh1mZ~WMHFtu%nLEv62sFCkEj-h}gdu@R(B^ zr52aJ^{dUtFkqzVSa{9q_p1}dscpi>I~UMP*>=gOQB${-ZiUQ2Rx+COjrKDw1* zX{00+kVt_+OVTT+5Y33^rFU-)3d>uhBfRyW*MR^WF~q!RCnCA>I;`1|ITWim0@MJa|5VPJ`>5=8Lr5h_?sGN-|uODhT?f5 zN*9C4*_v{7Pb2J7z~U^hOKnS2HZ=Yx8WSPSZ7KErRJaD=NiHTNRll_FlD`5dn3B}- zgv|v)_+M9}WY-;_i^Ro-NOS9@C0QywH4eoYepS98?M~6x ztvk^tGCbyH?m$q9E64kZEM28j7dNg#$GB`*dQ;H$LKArag1gECLrRA)w~08Yf4_VF zBZ;z4vsIdEht7KQSjyNV9B)brK0p3yGY+IN6`O}G=tFIuadbjjvnH}Sh9UWeN6BbH z(eSEOz^_IOY7qe^B?x&UzHxn>q{euo0d{VCX4Ozw9Il=&K z>J+r!I9?z?AUhWw0UgjxWn$M~%(DCx1FS=4tyxuw|5w_|Or4!d7rvq8pRn`+U*pAx z2-G!fNlBrs))7)ckG$w#-xq&;;|Bowhdxt629$@S=Tyy)Q|oEyrk|KzK;u6u^T^?p zh3dRRJv3ay1hYGwVsz$v=Vvh5>HTe>UAiv+H2J>ekXNNDPHrkR^xc!e5tZ*kFsoZO zpH@F(gF_rwmzB>Zm`pL2R@HNP@0Ho3z|+|ODw$5Mi!@_srT1U3t9?jV^mHpiD9Gf- zf5=T-&|iphYt~#|;C2U#Ev*>S2)+#Jxedsw!RI-Y4hM)4`LCl+=p=8<*sFn8JS;>>ZJerhn^77e`y5)`r-!uf_tdCO+t#z60jWYR8VO#Bp zbowvU${!K&dMo36?^fq-N)j2mS0T@NUK;8zOO>RV;bk}LuQ%X9sX`IW=66Tg`oddm zVpsAAUlPFtBMxtaHBsx;B|2?#I3HXBrsa{Fdd4IuXg*9eUAMj07`pO}d=2BrRmL?o!Vjgw4MAQG(Yj4p zR^kT2+v6hV0;9JP%ihBhr8cs33_+O2*HU-#;?fMj3|oR!quUu@9n{Rx!hY6^+D8wB zXDgZE`aEj8a(LVLL2DPt(5xEL-AO42Z%%Gs4paV^REvcc3 zJd|x)2;|mLq_51W|0VBnt40f^v~%@T-w*34OQ&G2kh$+n(Jr#+;G1+E*w8BDqC38suYhO60Y3=~0UeqKAtBUw9vL7TnLW|nAW+#J;~g;mivOK8y(|9x*g zI<1PeD;UG=5dBUA0%-BC@Wxs3t>&xC-Tl|3jNIBynK-O zBw$IH0!854eYUu^D>XAKn4zxyu$HA=Q1Qf+lC{`=gX$m(Jg;c(F&88{a;XKN7WkRi z?wUqJ;tKFaK84|3mwYXLUwl#7n|t2q4o?dWHopNKFv8Y4_$VEG>b&@It(=2Ch!W8>q;V_7~D0%y7zLq26ox^BV>g|wqO2nnsyft_PIzA(pKN1myo&KYBOGyKrZ}#z7%ihBe~l0 zjkb&P`VtEnl0tv7Yg4aNxBbyrxc>`ZiaV^Up1UkDJh;s0)YwXA*oj(nMst^IRVGs+ zF-Y$jiry;G(;;sVN$#;AvCnvmAeQclms-rIz;Ceqxl|xAYJQlWf6uQcNOvru098Vf zudi?GuzjB{n5bB%KJ?i{Ty^*o2?Uc>1QJLSAP58aK?K2oK?DxS1Q0;!Oup1@?eEp@ zt#joUKNP2HlDOo48{8EJd3}&@ZZ_#O>fm>c%=uSP-g+d#>ZdU(09?wMAiXefC2349KEvd%8Im&eyhldGAWGaRxc$f)ULbe-gZX7- zv8<^p6{}Aq;UBiE!Naz@UMO?719fpH^5!CZHHZtau>Gm06iBCEvp`d(zrnxa`MI7| zG_C77xBC~2M=&pbH6}?FxdFNdISH!}{-?<)Q9m(Jvu3X@M35p{Ea54Hfgf0{=|mFR zKV=p}0HCONc_Z##DVDPQQAKZ~Cd(Jf&&(Ow5kxTKd0@->eQ8z`4?|7q3RnL6Mq`Y= z3y!6Ync2Tja!cL?L*e^1)VY`2r+uaMru#t3G%kI7D=wVINbbGeyyJ!`?fZ}A0k~X0 z{tQB#NdXB&)If*j_O3!9Qafyz5W_ONg1CxhY6`Kq@;g!WJl5K`-t^k{ByQ7 zk(+-Qw}Giap# zxOWV+N&G?afY6dY5UW__3OgB;6Bu)=`^Eix2PghxOB+Yrf=F!?aN2D*?!>5Kx<%ej z9NaGQasPqn!GEj&Fpf-g?xJ1zZllc4_p8RehCy|27})NeG2A1q}a5wSZ?BoGw~Z( zN+Qy4IKZ~ukh(>BA55u5;-6ULbX@X#o?QwpwvAfal4%hSjEkK+{u)^3?yT3&(c0@n ziJ}6?f$d_XHSe(gknTD=i-g_)-%V#BS7*pK2`<9Ah+L7^?%B|C7}Ucv{#b{vTw@&s zz7;sqY=G+7zC?T7n~UeH3!z|3u5=)$_`4q&MUHJX@b`Sz8fKUW0BcGLo!p}u(NWQ- zjB}1 z$39d(bI?L8HLl58hQVh=I;P8c;!5>_JZ>??1*xgq+;;AhQ-q`47vEM@R0}AG{Y)1b zjF3$R$aiz4w$dWZUH^%$$O$e9fO5B2AFEk}hD?luS;*5mPn98ARk8azSHhQJ!1Qm( z*2W>4SI2lY!=BlRGb&IK_L5r0HWJR%|AMdq{W{6gy8XZ>s_>)t=(?F4Yx7nft^UR8b}+2 z?;9eNqT8~&6HMTe(o{4kJZo&{LC5vnn&|qsM@733;A-s0SqCaL0Epd0Y(&$RrTV!x zNHiQsR0rGFBE4owOg4p@f}qPnKB)`$N{t#s*85NR906P>=Ui7wOjQE1`?@q!>&{2w zB=qGjk9xjijJal>dVVWCB@~`E*C6AVS@Smwn8+5eu_feoGGWM#?41~%_vZ`;DW#Bt z+R;4V%x6yz2Zo#^4GC(P7^+C_TXQJDY$WlDCvx~` zbC6D&4@c^ctRMo;k^+6) z=F40cLc@QPK*jRO0KzT_Si#e%gECV7AAtgRf@~bzi!G4gIGDsyh9r{`>qqzveh3Tw z5N*raL+3blTAn57+yNfEbnRXZr}jh2*@+$1n^fuF(7Hjr*>JP8J`%AVSnM8&=F?!M zy(JZB#I!v4VVZcIxHv5~XL!j1P3DM@ayPu4KdZ!b*wKT%G<%yVc5HpDnVVGPj8&3B zoYXPHWt#D24_KftV2J45-%Gfqd&Qp6zk(ZkLOh!bxy#fNLh3oUghZAmMhv+)lI_~k z6<(LSS6R{ce`Y7fr@HV}`E?{9c`{l*Cjfv0QTxLH*0yQ1NLKlDS>j3_x@H}*cUJNW z;=cny=BT$=@&nAM36EAfFdRQ!i zQ_CCE=>Ub|I2TeHXz9WfoCyfX8AN|}1ixgisR=7JwNs8IxNA&lGCEcjQ(0Z}5j)u$I!<5yH`NLOw)#+6x3EG{yXfqC#xy zfN<|_a2^w3?o3)s_zWGarO8Y0M_9Yba|YGRacxtyInduY)4?UVn^QM9u2QEA21D`C z*71bJTHbVOL)&*m*~wc8sc!tsA{?(qY>fYVtc&UG39k73^07G##5j4oGOP1}z{W;3 zpU{TU%gz+}c|a5P377F_S@W%g5YEwWBAX1bAW$N#*;p8~59RbYc4t_(l)TF=b!qCJ zKM#Cw!)BNEX7v?c{eY#qnLxOilV{j#ar6u^CflJ^{Q5H3;&qRujzlLZ%C zb9W^GAB@APnj0ZlKm_J965QPbwq3!ZnRqL5s~pE)HjsM0-Vs0C@UidLV)=Aj!wnV$ zJxetM^88S$Gmmp7OX;J~ygMIFV0!4FhVm$(hXAYS7p1Uft}J)=eDbZyaqYa0K#i;Z z=Jq9IOX$7|AnJ$sX6zsxy+s66&~36Z??Y!2tLWJ59M}AFBxqHl?8R5IOouqvtLZ6pD5^uA`#0oGs5i zI-9qTS8v4?y}Oo1Eu+m-OR+&Vn{e=>DQDwIhx|K)Y3di>tZr6ZQXjbq!;+!=K|^`3 zhCTM#w%kJ5ZJ;6eB-*JcUl;rFX2t0?$#IQs&38?ol1Jku^TtpnInr|X>Dn6-koW|P zC7b)!NQE)#1P-D6RIl!WVu-+IvxpBoj5rH1PyKd6a_5poOqf3P*ZPz% z;kxV4W%@OH8lFEYsFP4!-b=$!Hl#^i_OQk!c)co^LZz~qQyiHq` z(~r)0nJ6Ao`|c+*c~(2evYKI~+1^J|cmV_uDDe4S4nIo--n^l-K)rG|I6vYNM{dIl z8t=SD``eUSRJT7%AAai+08M1;pRG#m`)oNGaa%RWo_` zn)xEJp>;8@%7sRl*`OmH0i4WhGMzPpD6VuMXA|RTZzvpkIX? z(#`2yy&RYGD6w70GUARbHul4v!6n6JJN20AW~^wrxLy62^t zIEHosJnd72lZFatwmsaNU0%1)iQn>%%r0WQ2dl#hAZ%_ft_z^1==-9w&hPH+e;i{| zj%MfFk1tbs9TA!(PkCmg&qF+bj}>pk8}bhN5Lu~ginJVbW4ckRcOEG@24+UaEpCuI z3L?lWi(Yzv#z7gUU-Hl*!`@oM8C(yNJfnSbN2Io5d+*1KG)G9_Mw@igJ$0C)6rmQh z-6^BX`4EOam%Rc?1GfMmb#9D4vIPhKUtw$J3D_y zn;G=@!suVXAc6(wLlGS0hb75v$AQv=zs7i@ay@sCrm2(r{3y6uE7xqe0cH3Cmj^B^ zQRbM0LKtXLInh0!|5_675!HJSZRNHqT5!m~oI+)y=MXYT0Eu*T<332KKEg=M3y4GB zk$()vURV+Ye7H}JBB~>ycY-$gO5P2WZjC+u*DJgjYgA{S0N{A(R4-qpNb!0AvR>^w zuCJPfO_0;(p>ubu)*+#1&r3=quacXaH2I`ojU%Lr!S}D;Z*$dy!?_&6_WpPJqhen? zv8v;lart&*5hCKxGq<9x#6%_^VPKw7MKkVcjMlQP$(&2I#qPX!&||zve}nXfz<~xt z6bMDnA~f}deIDl< zR?#osV`*t5357#&mq4TQ@+_K-BRrXTQ(zue#9hNb%RC>($ovM*x(bm0T8-vNxJvto zOxl`G)6v**-?tbHsVeX^6yK%16gJ?lnSE=bd@?PL56WaMX*Mtqiom!?acLd1K~vg*UyZ|}0Nh?(mw zZOCRkVBJU-J&q3(Rja>J-ebXIvRVcwbk#Nmsm2dHtv%r1>0Vgu<8vjyF zQfm$Xqz@g$czQ6znLLHa!}}2L=HFq&9K4e;Pm1ud{`~g~Iu`T&J`2 zRR-bRW_%#!SgBDY00X=HhK)msKmnj9qpsF)HsYbvYA3N;YxG>i5L>@^uo=IMk9^^d zW)XIS_0Ua$0zyR33I=I+GOlP~H5j2M;`pvC|^ z3D-aBU{Kyohn*E}WIgSWHW9^ePuj~&;@&ehUn7Mch zBW_AQMK`UH|C%wp{?mugA^QfM)dNf`3J$+6X0{SKwo3H9DMRI2XxMp1r!*!EP%UaF z1~tLa1xP)Fwh0h1;N>GVlZP&1Sh07*rL3r|R6cqdB*YthcsgtB#syC+6Q06z#+30Z zvK{TLnSXWR2)qshSXp=*AikI5xVJJiSlYpa?|Z`XKv{=}>#hv4ih@6BUCX7mde;C6 zi}?D$KX7HAFj8%H5`_!Nqf0Oml-ZP6t!nNe0D2OBl-I09A4IS~JZi>48alUUe9cO) zGh3KR#O6H$%En^@&75%aM2IiG3m=4nnA0|8<$#yEX%shfM{^KHw=SaSpV#mg@eurN zLZ`gm@Yf*RSivdQ2(lxlUV||4R~ct!Vf7{Ff2^Qxu`I4w9}c)Q_xGc#iKPBcY)LrC z2PD9)g2l#c8TB768zeS6lpCUPz;}5N15P+A+`({U1;b!F?&v1{=PZo)$zQ}tyxY=$dkH8(7+R!3;tl*Hj+W> zME0jfyfHz}kvtW|PLAZ*V42Ky8lcgT^salb%$Riw&;Rt53x4y2TJk7xb_ld;DLagvF;L2JS`IrD0?&-QO?2|2`)w;EizEspx6;c=hS*ddv{-9@1Of;k zH~|C@CsyerP8X?KmtG?tY~!^O&88j^>h`Eq!Zm-xf4=y5u2+YPK^zW`&zZ&gX6O|;=Qmomnd%-GH8V7^#=X6G{^7X0W7LMF+ zK5q*ydK@2L4Wd06Dwj?&PX>JftcjJkDXeEVZp$~0jhwY>9u52Za?W*>49SE0jm)%k zG>=)Gw6BX*yZVL&HY34)o9iqQ zk9pYDf>wLNcn;7kl*w*d`s%L^@ZC^+KXEkmkKe8&!ja-KgRq4L@<=Y$+^w-;V>zfI ztmlB>8Kb1c^^_v@>YXs>%F98gHi`8zL(5A)V0G~fIRg@C_MPu8KHuj2fI$Qb%x-o5 zN34JRIqFoE?XEKRp`z|2irpUEzg1Pk_vZ{(eH7At^<=rfJ9(_zM_n}2ClIO`;SMN|VkCjJ+Sr;{YD~#O^ z|AnLPV(`o@6<8r>d)Mc^5@#}17H_En)U;~l{-A1d3oVgiSzXW*R=Jbnfe=6p*p&|e z8i{U%5B3-mSOsiKl*E8_15n6<_M#Zjcfcm`($x@9C*hPF;ItzbcEw(2Sz*jsFmgEx z^Q^K7?YGKAJqnV&+Xx3`uq;-|8q)z36k%ii95>AEoPRTI+S0O^ICDQTPW!5HDoxfz z7HH=vG>+)zmxP4BhAI`{gB$bRyP1lUKj#{ye#eJf@AcEbWH_ zzmsS76EPr0)B!m+{zC!GHli3f3^Q;+i2jxVt@(ljFI>_K%sRp!7bzYPD5)1&HIG<#Zv?f~C z>C7kFJY={)4%*RFFZeBRC<=gh%;;f?9aV+`2apzc$u|~J7F4;XdCW@sSH7C`=KX0_ z=~sPSrpI5e&A2s>dCm_F!9c$=ytar+YBVEewP(>Cy5da$02WX4Vn!Rf-g^g6xtksv zXMswGWo-?Li(hxfk&pHXIxEyyjbnpjIm#LVc~Gkx_>hCMxEKrp5O-; zBt+y|*m8Q|FzSTwR<-$?Zq~W(@9ZTPW#m+#g@H`NLu{YET-E|kdKZtQS=IcZ>CESsWXs*!Dwh~6x zVZip1+D8Vfqsx&(k}mDiIEztndwlcB2?a&rlS6H{D_Nh5+jg2t1L#1BUnn(Y?dZYqR_PAr(`+zZ z23uU_jzBmaBpqxGMz!V(R&$dMC6KO1SMZ2{j}Sefzc=EonuK`0KwEPl%`0)Vi=}wb z#~I8?&$c)4x=RkGaE2TM6TGPXPi$*yahs#mN)vQ_vw6MTU@NjCjDF1=UV5l4}Hj(p=Y8K~OY521#IyOUq0zw$JSmKrSW3AG> z=Sv44bSZ5H&&Y_5R_jTovN$y;W&54aqlT?f{8=k5%_xl6&l$PAvSzvo#f<+aeik`& zNADEQe(Kd33juKJ$;e$)FrnpY#GXT}VH>%-CFrc!*rb?WPi2a)$MGtWwQw8`!`QPP z(ILyE=#HwXXX4h}pKbn5#I7LfgJbnf47V34dIfBIyBNPUXxxOc7%|w=m)!$C!sh`M z-1*T_$KEG)jvP@#@=#`L(w4XKFInYk-0ph4FjQPJUj4H zS?aKl8sQi%5wMQo$dWF?s@^@d^0LT&^T&Xl*u4yGeidpb)rURu98eiRzQ%ko(b!IcJ99R7M{9*WLv zaLp8GZFm5ALqymG@dsn(63cFbJxOq%H!9+*Fm?SC)^F?cja9%pB zn3Ns)#bHh~G)`lEyxH82(&-{!%D1%cMM-%w%d=7Iwls30%Faht=6P`5&Z7OFvO9JJ78 z{4HIvpfI$fXYk_?XzfGRKEFN(xyDgsAQ$>>Si#8+?s%n3p_?fq)GPkbsVYQ_6p7dx z`!wQ>FlS%WRo^z~AeCMse| z)j-?*CdR9_+ZFf-v^X5!JeQ=q0HZC^Ziswd5Gw)-%{RwO{3Z{wF0gb-kR$212>L*{ zYt-MVZ{L0-!%mdw7`1h(C~;t>NMQImu3Cf*DOZM1WOS$qh%V7B&#T4Ue$ydm)vzfzAlmbPyzG0(=DF zrM%}ic5qN1ZB9{>WuHsmIH=iu98rPIHGyUaY_4gjcbf3Ikl&dKy(VI(fdh;c#NfNR zdXmGgn{l#UyqFac3dQZX_M3PzIZ-IhmRNf34J-V;jL+^@Wsd!{Ptf0Oy4ZIx>pHdH ztjvP<@Ohu9&uLW$L<0X1=c?|F{xhKOTEhq3&?P#y1bW}7p8^5Di8F2|ei)dbth~N> zQj+DmaAavgJt8&#Ca1sBWq3$>5D0l5Xl)z4Cd(p3-H@WpAwvn%k~Hty2?GcaET)2& zzX|>;)_37UJ)=r z)bj-;A@@2zdOj4F~#wckLIb-bu7)SPuw`^ z15YE9h95oTBoknOAyK}<&VAxl&uQ`rF}Q7|T-oS=5uyvIAQHw1Xk9;A30(dEu3FIK z+=;UUCbQk}-OJE#9r(F}+=9*zM!cuWdmM~yUUEnDhlhKcm4HA53}*b-qr-xrzLPMG z;vtS@ls9QWG+dzP9WDe6{cetgLaE_I6gn0`*J;A&1$n(a06%+gI2s_;K!9irG`Vds zdh0NWt-_PfJ)cw%01?Ts-K7QwJyy`z+H;dBkkIcFn$`#~6lG(#&KpYDIhH8~lhhuy z`HpiA&MK}tZ)N!LT!B@qY@J!W{u<=&8VNBA&uzc|WMFMSy&p{87r>jC7 zp|+s+;RcC%GKB-nIF_w+U&}s9qqAwNdoA67h1>3YFn>Aa6F-L0T5FgoJcHqqr{JwX z5J3U|KQw!`ab)&h>!Nki?p>%3nXg3H^mM8$-J*6k(@kh(j@Up3X)VY4g!cpe4PQz^ z{dAK?+B}`*l3gsBwnt=UyYFLB`q5RK9#v1!a9eg+dpA+0oP+W3!ZOM9t3!Y=R{AnW^rpuq|7AF1kCX)kbBMYvrULI4AkYg=GH*O=|l$K`w|R)ocj ziJrRWIzbmbqnVEpVL_lNP*s4Q_@ZYJB5yO@@+-Wwj~^A|`o+2__6xe9M+)?bQfBRt z`B4;!sZW5k5u?q?N}kKQb{to9mZ90x%>E!aTR13GTk-uj%A+w;-6sSTL%=%-!A$%+Nl>%tDrhB1cCb z>OLNRV_n`wUHMYtnTb2P8RS#2l;8;?i3(Rl?BN=xz(~&a!6+>`o3`CjssCVD1_Yh- zYTHO)lqT7r{Vp--g8&TCo{eURfmAF8;Cuj|!8`(11tKjt+%I?%o8fM=d!;;1$Mo84 zXZ{3B%Kpu`8RdoW!X#aUP?6)e#7JPe7E)_K!IJ+Oxy2_BnEtcbxTb6{8M|I#IFIvx25R{Rzw9C;;EJmCfQSeTau>{JjO^v&Z1`_l>O$7Xz9>9}@Yw#0yI z0+Fh9Tq63sKt&3WKn@!)y)b8QttLv@(MA4_OW+>Cg^ zHR%@`C5$&g*m2n62co$5JX~32{GAVgX;pPqd*UxHw$#33cU+6LT)tKsDmZ-ep-i$L zott;Kr1+`a2hv4;42WI)pT#z`xAFoWuE3M*_~^x-<-Kg37Mi2~U?Zp^0mkRt&+BX0}>(acIQ!iwQw`r`PvJV}r# zPMD&!#EDGP3yN>da1pS4QoH1|c!hh!pkH&EQMcq<(@4)Rsd5mAAc6(@T+8I@6I1`4 zd-ue*G^1^d=H+{qiWbu-^f>#jBm0-S?2WRklOXbmA*Zzaj%m=%<%ej18*gpc`<9X6pK?1-+`At{XV)&uX6j6tV*IWh8J1sEfQ$v7#)b zy-`caKdd7F4oMm?zyac5jJ=dbnKu z)61{#n}u^Ei0h%wxp3M$b_Ne0D;097&uR3gOrnSvuQq4YNdrGqW&Zfx$bF0lbJQ-# zR)Perc!4-B`mfB{Mu9{a`{6^rH~z>4-97N*dX9tKeL0){c`c0M^0qdN(*Qxo3gPZ< z(w}S2EvrA=$KDKml42{l%vJiW5ePJ3#h>Goi{F z?2q(%$#$+$3xV{cCyfj|aM_#{TOUVZ)+X#Pq5gyw3qqA4DzhCxqfqMAi5=!1iFtcj ze{sxO@+;jrm>RT!DQV$ZW_Hk+Pn zl5vo7@EDZ{+J!0Oc_GC_%pN`XsRB1q14nri3P2%uDr0WG`q7k%`N38s*vG8~%D*w+$uEkXb00Vx_eM&}!U-guBL6c?feKgmHe`T3Cy3xp1H0tMcRZYbhsj2wJGrN6 z8|Y`~$lrB%l_j5#5_n{#o@N{wg%MQ0PF&E~c%Qchkq@dP>k%n!PE^e*d%H+0JBMvk z)=QK0ftaPk|1oP}^YMqUXXZq?6K{0HEQtY0I3O0WNr(1CFY&&H0ifywPO)&BNT2RX z?z>)qJ8nn4_XY>T!JH)tWopP;G=SLQMf6`L*4vV~cy=tK6D( zx*#S*P956VD7ut>uSMGiVsxM&JG(6qXi9av+*GNjz<3BHIdT2ms;` z8O2vnn}4h==X@vv@CRMO=#8I0-y1)DTW7l@`YN-WY*&o4KC`2iHp(;ttRJwA@ zt0!gs>JGfJr2R z^hco#4@wuj<)(d8vq)Wx=}C0mr}?{IyCRFHuPwX)X03#(3ByfoW<9?8Aeu8t$ zTUU+YvuNwQ2v|~0fw?1m{rDD=fdrm3LDaG5fWQIygV(1}5UqIMzNuTEC6Gq=%9X*8 zHyQYqyd4Bc%%9MT$^R<{KVDF-OqVsV+h!tWKabK|LOauLVO>@op7CxnIqS~;6-VPi zHwC(s!Vr2l$rJc}ry@e~v!yOMQsRF|%Oh&!7rqPY^hk4hDN=v!o*6hxkMA|WU)y%(i2ZV9WCTXbz*G$0FFsC8bNpEaZ;jGyda4MR)Q!{(6~c*C_S!k5ofD~wx1h9E{K z?zEPWXJseZOszh1{l-fI1!t5X0H?cRe-~p>EG&Vtf?8EV!z8C8DcKsQ6pqC_d_oy^ z(M3?{I~$r-AJ38v#l~t`v2m4%lnJA+pkqV}rC+{x)aRz*m-kq(^EA?&nkzIi#nJ2l z<3B3=HqaVo2YSe$hxyl*Oe)n77f=2?G}- zCGb(dJ9z6?0zhfypfSsD=d8X~I+!`~emv#f9zPzPLgqIJvNt9;jTJ}PrMq(=F7~_c zjjZc}g#XPo5?FactyX!N3qG<&gsU=J=0ix|%cC>{)&VIB*7cSIgwlc;BpLcR)bb%r z!i{?Up9ysII<)3Fw|D@I^tMRq@i94Y-c*2Me>oE#WCdU}VKG$tKcD2T7y3;$6FA${_O< z?T6JxyhYvthZST)H>K_Ouho!pH*-!Zq>@}8M%s98^27eYx=!rqtag`qfY3St1Q0UU ziZA;E)p?v<-<6v!4{(>>BPBI!S1W&MxY~QX7v9~DOLVl;pIeZsm`r1n=i}Scy}o3j z<WU>y3&|<&F^BHIQs4RNod$ zH-3ZbAEJ_nFJQLy z3|484qXJDS&6t6=-W4#x4&qAIk6@7O6sA`Z)^@Yr)>4S zQl@CC1;5z)Xn|I^++f08`pkZgb|+uU_ZuzR!fLV+?A)s-=*1HcNs*i$FsdsHZ_^H* zPFQW12?XHaY`Clj;$Pw1+U3~uIxJxh-j=dA&~^k#P-qh$sZcZjr_i{|;;nyI{nK(V z$tI`^V&_ZtcQkTWL=Vc#qF6Ws(k4w}@j1ejND7<`^pbc!aTp={=d0MciugnV#H`rb zer1c9iLYRWeyO1Mb%yJH`R|Cn1{rp%$tIOgdaA{mS1#kein1|l+g%kV7q;~R#m-Uf zJISw_lH5?F-q7=)E{_VG#7)6F9+SL+&TGE0BT@c#%yqG=#xs| zW8F67iSV3E{yY-y9+yY}rG{mLHVj63aA!l}CBvY!!B#2In2N7pyp=~|Kk&Hz7v~%H z1zNllho$}UOR9vcc_p0iNtEH1@}|s8;6bNAVMSJrvn^AjSl>)&2BCCob=D3rHMQhDE6huEv?h{!}Gq$%E-MZdeH7xUhERM<;p2Z(ZHO{9s$P*)X8;H$YY3|I-zCTlN-uXCC*a7gqp z5h9)7T2Y=T;jmbfP7SD=&g%bh9vz`3qNujdfh>7~I*&jCTzufj&$&wj;;64U=@*?n~3-S8JXpwA3OYDv7MdYZq+V+XPg z3i->>4~k6pi?D97oURC)V^^8>9uf{1CV+*!jCE7`{H zwGO2r^@t+!MVm-awDocnV!6|L!S75ftighf2FY|LFUKuoUWf5}YoWn64CQ?`a z1DIJ8E!ec7T+SBQ#q^gvOW!6^6c`_1eF|6#<&-7@Mqfl>V97t$^#7rh%j+fu3^P%e z$STekuez5*mE1Q%WPPYFmSPC%#Ct8;-8;|KbiH-I<*^KR)3$+>EVnx1T!ZxQn z-OP?5WxT7$GbtvgaCd-ZTHtwWY|=_OF!ua#n`__R zZ?WfQCaw^-ujo4X-cTPgtSWLuKD!k#S5+cM)6xd-g8Xr* zEWm4FfG*)LGO{Iinu9B)9pxJBFIQ4LwN~;1{Fm$g?fMt}y<}DU{Qg&}{&ho^es>#E zn|1~Vf`!Vu&ZR*+*UUBsI7C<7o)%A0DZL`C_;KE~@uh`=P^R4==6N<25>-cWv@lW( q#6VvZMwYum3>uV4=vblI;#njD_?60@XhT|e{}*yaI8cx=xN1>Jg=3BY From 2226e350b68824fce9a265d055285a96a59ee006 Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Thu, 4 Feb 2021 23:04:49 -0600 Subject: [PATCH 2/7] Update histogram testing --- R_old/safety_histogram.R | 134 ------------------------------- examples/test_safety_histogram.R | 71 ++++++++++++---- 2 files changed, 56 insertions(+), 149 deletions(-) delete mode 100644 R_old/safety_histogram.R diff --git a/R_old/safety_histogram.R b/R_old/safety_histogram.R deleted file mode 100644 index 21ff862..0000000 --- a/R_old/safety_histogram.R +++ /dev/null @@ -1,134 +0,0 @@ - -library(dplyr) -library(ggplot2) -library(tidyr) -library(scales) - -# so dplyr functions never overwritten -select <- dplyr::select; rename <- dplyr::rename; mutate <- dplyr::mutate; -summarize <- dplyr::summarize; arrange <- dplyr::arrange; slice <- dplyr::slice; filter <- dplyr::filter; recode<-dplyr::recode - - -safety_histogram <- function(data, settings, description){ - - - id_col <- settings[["id_col"]] - value_col <- settings[["value_col"]] - measure_col <- settings[["measure_col"]] - normal_col_low <- settings[["normal_col_low"]] - normal_col_high <- settings[["normal_col_high"]] - - unit_col <- settings[["unit_col"]] - low_lim <- settings[["low_lim"]] - up_lim <- settings[["up_lim"]] - #page_layout <- settings[["page_layout"]] # option doesn't work yet - - if (!is.null(settings[["measure_values"]])){ - measure_selected = settings[["measure_values"]] - } else { - measure_selected = sort(unique(data[[measure_col]]))[1] - } - - - - # prep data - dd <- data %>% - select(one_of(c(id_col, value_col, unit_col, measure_col, normal_col_low, normal_col_high))) %>% - setNames(., c("id_col","value_col","unit_col","measure_col","normal_col_low","normal_col_high")) %>% - filter(!is.na(value_col)) %>% - - filter(measure_col%in%measure_selected) %>% - mutate(measure_label = paste0(measure_col, " (", unit_col,")")) %>% - group_by(measure_col) %>% - mutate(bw = 3.5 * sd(value_col)/(n()^(1/3))) %>% # for binwidth. does nothing for now. - group_by() - - n_obs = nrow(dd) - - # filter for x limits - if (!is.null(low_lim)){ - low_lim_df = data.frame(measure_col = measure_selected, low_limit=low_lim) - dd = dd %>% - left_join(low_lim_df, by="measure_col") %>% - filter(value_col>=low_limit) - } - if (!is.null(up_lim)){ - up_lim_df = data.frame(measure_col = measure_selected, up_limit=up_lim) - dd = dd %>% - left_join(up_lim_df, by="measure_col") %>% - filter(value_col<=up_limit) - } - - dd = dd %>% mutate(measure_col = factor(measure_col, levels=measure_selected)) - - - # from JS code: - # The x-domain can be in three states: - # - the extent of all results - # - user-defined, e.g. narrower to exclude outliers - # - # Bin width is calculated with two variables: - # - the interquartile range - # - the number of results - # - # 1 When the x-domain is set to the extent of all results, the bin width should be calculated - # with the unfiltered set of results, regardless of the state of the current filters. - # - # 2 Given a user-defined x-domain, the bin width should be calculated with the results that - # fall inside the current domain. - - - ######################################### - # Create figure - ######################################### - - # get labels for fig - - ylab <- "# of Observations" - #plot_title <- description - plot_title <- paste0(nrow(dd)," of ", n_obs, " participant(s) shown (", round(100*nrow(dd)/n_obs,1),"%)") - - # color for histogram - col <- RColorBrewer::brewer.pal(3, "Set2")[1] - - #options(repr.plot.width = 1, repr.plot.height = 5) # set width and height? not sure if works - p <- ggplot(data=dd) + - theme_bw() + - labs(subtitle=plot_title)+ - theme(panel.border = element_rect(fill = NA, color = "black"), - strip.text = element_text(size=11), - strip.background = element_blank(), - strip.placement = "outside", - panel.grid.major.x = element_blank(), - panel.grid.minor.x = element_blank(), - axis.line = element_line(color = 'black'))+ - scale_x_continuous("", breaks=pretty_breaks(n=6))+ - scale_y_continuous(ylab, breaks=pretty_breaks(n=6),expand = expansion(mult = c(0, .1)))+ - geom_rect(aes(xmin=normal_col_low , xmax=normal_col_high, ymin=-Inf, ymax=Inf), - alpha=0.5, stat="identity", fill = "gray90", color="gray70") + - geom_histogram(aes(x=value_col), bins=12, fill=col, alpha=0.6, color=col) + - facet_wrap(~measure_label, scales="free",strip.position="bottom",ncol=3) - - - return(p) -} - - - - -# testing -#highlight, cmd + shift + c to uncomment chunk below -# config <- list() -# config[["description"]] <- "Test page" -# config[["data"]] <- "https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv" -# config[["settings"]] <- safetyGraphics::generateSettings("sdtm", charts=NULL) -# -# data <- read.csv(config[["data"]], stringsAsFactors = FALSE, na.strings = c("NA","")) -# settings <- config[["settings"]] -# settings[["unit_col"]] <- "STRESU" -# # selections within the graphic -# settings[["measure_values"]] = c("Bicarbonate","Chloride") # if no parameter selected, defaults to first (albumin) -# settings[["low_lim"]] = c(20,90) -# settings[["up_lim"]] = c(35,120) -# description <- config$description - diff --git a/examples/test_safety_histogram.R b/examples/test_safety_histogram.R index 76100d0..78cf232 100644 --- a/examples/test_safety_histogram.R +++ b/examples/test_safety_histogram.R @@ -1,15 +1,56 @@ - -config <- list() -config[["description"]] <- "Test page" -config[["data"]] <- "https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv" -config[["settings"]] <- safetyGraphics::generateSettings("sdtm", charts="safetyhistogram") - -data <- read.csv('https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv', - stringsAsFactors = FALSE, na.strings = c("NA","")) -settings <- config[["settings"]] -settings[["unit_col"]] <- "STRESU" -description <- config[["description"]] - -source("R/safety_histogram.R") -p <- safety_histogram(data=data, settings=settings, description=config$description) -ggsave("examples/test_safety_histogram.png", plot=p, dpi=300) + +config <- list() +config[["description"]] <- "Test page" +config[["data"]] <- "https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv" +config[["settings"]] <- safetyGraphics::generateSettings("sdtm", charts="safetyhistogram") + +data <- read.csv('https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv', + stringsAsFactors = FALSE, na.strings = c("NA","")) +settings <- config[["settings"]] +settings[["unit_col"]] <- "STRESU" +description <- config[["description"]] + +source("R/safety_histogram.R") +p <- safety_histogram(data=data, settings=settings, description=config$description) +ggsave("examples/test_safety_histogram.png", plot=p, dpi=300) + + + +# test create safety histogram --------------------------------------------------------------- + + +histogram_settings <- list( + id_col="USUBJID", # DONE + value_col="LBORRES", # DONE + measure_col="LBTEST", # DONE + visit_col="VISIT", # DONE + studyday_col="LBDY", # DONE + normal_col_low="LBSTNRLO", # DONE + normal_col_high="LBSTNRHI", # DONE + visitn_col="VISITNUM", # DONE + unit_col="LBORRESU" # DONE +) + +safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) + + + +# measure values ---------------------------------------------------------- + +unique(safetyData::sdtm_lb$LBTEST) + +histogram_settings <- list( + id_col="USUBJID", # DONE + value_col="LBORRES", # DONE + measure_col="LBTEST", # DONE + visit_col="VISIT", # DONE + studyday_col="LBDY", # DONE + normal_col_low="LBSTNRLO", # DONE + normal_col_high="LBSTNRHI", # DONE + visitn_col="VISITNUM", # DONE + unit_col="LBORRESU", # DONE, + # measure_values = "Microcytes", + measure_values = "Albumin" +) + +safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) From d14c24bfeec8a8faefb0a0e2c4573051a0f535be Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Thu, 4 Feb 2021 23:05:03 -0600 Subject: [PATCH 3/7] Add function to test histogram --- R/safety_histogram.R | 113 +++++++++++++++++++++++++ tests/testthat/test-safety_histogram.R | 10 +++ 2 files changed, 123 insertions(+) create mode 100644 R/safety_histogram.R create mode 100644 tests/testthat/test-safety_histogram.R diff --git a/R/safety_histogram.R b/R/safety_histogram.R new file mode 100644 index 0000000..086023e --- /dev/null +++ b/R/safety_histogram.R @@ -0,0 +1,113 @@ +#' @title Histogram of lab data from SDTM and ADaM data +#' @description What are the settings? description? +#' @param data PARAM_DESCRIPTION +#' @param settings PARAM_DESCRIPTION +#' @param description PARAM_DESCRIPTION +#' @return OUTPUT_DESCRIPTION +#' @export +#' @importFrom RColorBrewer brewer.pal +safety_histogram <- function(data, settings, description){ + + id_col <- settings[["id_col"]] + value_col <- settings[["value_col"]] + measure_col <- settings[["measure_col"]] + normal_col_low <- settings[["normal_col_low"]] + normal_col_high <- settings[["normal_col_high"]] + + unit_col <- settings[["unit_col"]] + low_lim <- settings[["low_lim"]] + up_lim <- settings[["up_lim"]] + #page_layout <- settings[["page_layout"]] # option doesn't work yet + + + if (!is.null(settings[["measure_values"]])){ + measure_selected = settings[["measure_values"]] + } else { + measure_selected = sort(unique(data[[measure_col]]))[1] + } + + # prep data + dd <- data %>% + dplyr::select(one_of(c(id_col, value_col, unit_col, measure_col, normal_col_low, normal_col_high))) %>% + setNames(., c("id_col","value_col","unit_col","measure_col","normal_col_low","normal_col_high")) %>% + dplyr::filter(!is.na(value_col)) %>% + + dplyr::filter(measure_col%in%measure_selected) %>% + dplyr::mutate(measure_label = paste0(measure_col, " (", unit_col,")")) %>% + dplyr::group_by(measure_col) %>% + dplyr::mutate(bw = 3.5 * sd(value_col)/(n()^(1/3))) %>% # for binwidth. does nothing for now. + dplyr::group_by() + + n_obs <- nrow(dd) + + # filter for x limits + if (!is.null(low_lim)){ + low_lim_df = data.frame(measure_col = measure_selected, low_limit=low_lim) + dd <- dd %>% + left_join(low_lim_df, by="measure_col") %>% + filter(value_col>=low_limit) + } + + if (!is.null(up_lim)){ + up_lim_df = data.frame(measure_col = measure_selected, up_limit=up_lim) + dd <- dd %>% + left_join(up_lim_df, by="measure_col") %>% + filter(value_col<=up_limit) + } + + dd <- dd %>% mutate(measure_col = factor(measure_col, levels=measure_selected)) + + + # from JS code: + # The x-domain can be in three states: + # - the extent of all results + # - user-defined, e.g. narrower to exclude outliers + # + # Bin width is calculated with two variables: + # - the interquartile range + # - the number of results + # + # 1 When the x-domain is set to the extent of all results, the bin width should be calculated + # with the unfiltered set of results, regardless of the state of the current filters. + # + # 2 Given a user-defined x-domain, the bin width should be calculated with the results that + # fall inside the current domain. + + + ######################################### + # Create figure + ######################################### + + # get labels for fig + + ylab <- "# of Observations" + #plot_title <- description + plot_title <- paste0(nrow(dd)," of ", n_obs, " participant(s) shown (", round(100*nrow(dd)/n_obs,1),"%)") + + # color for histogram + col <- RColorBrewer::brewer.pal(3, "Set2")[1] + + dd <- dd %>% dplyr::mutate(value_col = as.numeric(value_col)) + #options(repr.plot.width = 1, repr.plot.height = 5) # set width and height? not sure if works + p <- ggplot2::ggplot(data=dd) + + theme_bw() + + labs(subtitle=plot_title)+ + theme(panel.border = element_rect(fill = NA, color = "black"), + strip.text = element_text(size=11), + strip.background = element_blank(), + strip.placement = "outside", + panel.grid.major.x = element_blank(), + panel.grid.minor.x = element_blank(), + axis.line = element_line(color = 'black'))+ + scale_x_continuous("", breaks = scales::pretty_breaks(n=6))+ + scale_y_continuous(ylab, breaks = scales::pretty_breaks(n=6), expand = expansion(mult = c(0, .1)))+ + geom_rect(aes(xmin=normal_col_low , xmax=normal_col_high, ymin=-Inf, ymax=Inf), + alpha=0.5, stat="identity", fill = "gray90", color="gray70") + + geom_histogram(aes(x=value_col), bins=12, fill=col, alpha=0.6, color=col) + + facet_wrap(~measure_label, scales="free",strip.position="bottom",ncol=3) + + + return(p) +} + + diff --git a/tests/testthat/test-safety_histogram.R b/tests/testthat/test-safety_histogram.R new file mode 100644 index 0000000..7a965f0 --- /dev/null +++ b/tests/testthat/test-safety_histogram.R @@ -0,0 +1,10 @@ + +# test histogram is made correctly ---------------------------------------- + +test_that("Histogram plot", { + + safetyData::sdtm_lb + # expect_equal(2 * 2, 4) + + +}) From 76f4d7f6bd35f08145b089811157e3388c9af1e8 Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Thu, 4 Feb 2021 23:14:35 -0600 Subject: [PATCH 4/7] Updated code to create plots --- R/safety_histogram.R | 124 +++++++++++++++---------------- examples/test_safety_histogram.R | 8 +- 2 files changed, 66 insertions(+), 66 deletions(-) diff --git a/R/safety_histogram.R b/R/safety_histogram.R index 086023e..4698754 100644 --- a/R/safety_histogram.R +++ b/R/safety_histogram.R @@ -4,60 +4,58 @@ #' @param settings PARAM_DESCRIPTION #' @param description PARAM_DESCRIPTION #' @return OUTPUT_DESCRIPTION -#' @export +#' @export #' @importFrom RColorBrewer brewer.pal -safety_histogram <- function(data, settings, description){ - +safety_histogram <- function(data, settings, description) { id_col <- settings[["id_col"]] value_col <- settings[["value_col"]] measure_col <- settings[["measure_col"]] normal_col_low <- settings[["normal_col_low"]] normal_col_high <- settings[["normal_col_high"]] - + unit_col <- settings[["unit_col"]] low_lim <- settings[["low_lim"]] up_lim <- settings[["up_lim"]] - #page_layout <- settings[["page_layout"]] # option doesn't work yet - + # page_layout <- settings[["page_layout"]] # option doesn't work yet + - if (!is.null(settings[["measure_values"]])){ - measure_selected = settings[["measure_values"]] + if (!is.null(settings[["measure_values"]])) { + measure_selected <- settings[["measure_values"]] } else { - measure_selected = sort(unique(data[[measure_col]]))[1] + measure_selected <- sort(unique(data[[measure_col]]))[1] } - + # prep data dd <- data %>% dplyr::select(one_of(c(id_col, value_col, unit_col, measure_col, normal_col_low, normal_col_high))) %>% - setNames(., c("id_col","value_col","unit_col","measure_col","normal_col_low","normal_col_high")) %>% + setNames(., c("id_col", "value_col", "unit_col", "measure_col", "normal_col_low", "normal_col_high")) %>% dplyr::filter(!is.na(value_col)) %>% - - dplyr::filter(measure_col%in%measure_selected) %>% - dplyr::mutate(measure_label = paste0(measure_col, " (", unit_col,")")) %>% + dplyr::filter(measure_col %in% measure_selected) %>% + dplyr::mutate(measure_label = paste0(measure_col, " (", unit_col, ")")) %>% dplyr::group_by(measure_col) %>% - dplyr::mutate(bw = 3.5 * sd(value_col)/(n()^(1/3))) %>% # for binwidth. does nothing for now. + dplyr::mutate(bw = 3.5 * sd(value_col) / (n()^(1 / 3))) %>% # for binwidth. does nothing for now. dplyr::group_by() - + n_obs <- nrow(dd) - + # filter for x limits - if (!is.null(low_lim)){ - low_lim_df = data.frame(measure_col = measure_selected, low_limit=low_lim) - dd <- dd %>% - left_join(low_lim_df, by="measure_col") %>% - filter(value_col>=low_limit) - } - - if (!is.null(up_lim)){ - up_lim_df = data.frame(measure_col = measure_selected, up_limit=up_lim) - dd <- dd %>% - left_join(up_lim_df, by="measure_col") %>% - filter(value_col<=up_limit) - } - - dd <- dd %>% mutate(measure_col = factor(measure_col, levels=measure_selected)) - - + if (!is.null(low_lim)) { + low_lim_df <- data.frame(measure_col = measure_selected, low_limit = low_lim) + dd <- dd %>% + left_join(low_lim_df, by = "measure_col") %>% + filter(value_col >= low_limit) + } + + if (!is.null(up_lim)) { + up_lim_df <- data.frame(measure_col = measure_selected, up_limit = up_lim) + dd <- dd %>% + left_join(up_lim_df, by = "measure_col") %>% + filter(value_col <= up_limit) + } + + dd <- dd %>% mutate(measure_col = factor(measure_col, levels = measure_selected)) + + # from JS code: # The x-domain can be in three states: # - the extent of all results @@ -72,42 +70,44 @@ safety_histogram <- function(data, settings, description){ # # 2 Given a user-defined x-domain, the bin width should be calculated with the results that # fall inside the current domain. - - + + ######################################### # Create figure ######################################### - + # get labels for fig - + ylab <- "# of Observations" - #plot_title <- description - plot_title <- paste0(nrow(dd)," of ", n_obs, " participant(s) shown (", round(100*nrow(dd)/n_obs,1),"%)") - + # plot_title <- description + plot_title <- paste0(nrow(dd), " of ", n_obs, " participant(s) shown (", round(100 * nrow(dd) / n_obs, 1), "%)") + # color for histogram col <- RColorBrewer::brewer.pal(3, "Set2")[1] - + dd <- dd %>% dplyr::mutate(value_col = as.numeric(value_col)) - #options(repr.plot.width = 1, repr.plot.height = 5) # set width and height? not sure if works - p <- ggplot2::ggplot(data=dd) + - theme_bw() + - labs(subtitle=plot_title)+ - theme(panel.border = element_rect(fill = NA, color = "black"), - strip.text = element_text(size=11), - strip.background = element_blank(), - strip.placement = "outside", - panel.grid.major.x = element_blank(), - panel.grid.minor.x = element_blank(), - axis.line = element_line(color = 'black'))+ - scale_x_continuous("", breaks = scales::pretty_breaks(n=6))+ - scale_y_continuous(ylab, breaks = scales::pretty_breaks(n=6), expand = expansion(mult = c(0, .1)))+ - geom_rect(aes(xmin=normal_col_low , xmax=normal_col_high, ymin=-Inf, ymax=Inf), - alpha=0.5, stat="identity", fill = "gray90", color="gray70") + - geom_histogram(aes(x=value_col), bins=12, fill=col, alpha=0.6, color=col) + - facet_wrap(~measure_label, scales="free",strip.position="bottom",ncol=3) - + # options(repr.plot.width = 1, repr.plot.height = 5) # set width and height? not sure if works - return(p) -} + p <- ggplot2::ggplot(data = dd) + + theme_bw() + + labs(subtitle = plot_title) + + theme( + panel.border = element_rect(fill = NA, color = "black"), + strip.text = element_text(size = 11), + strip.background = element_blank(), + strip.placement = "outside", + panel.grid.major.x = element_blank(), + panel.grid.minor.x = element_blank(), + axis.line = element_line(color = "black") + ) + + scale_x_continuous("", breaks = scales::pretty_breaks(n = 6)) + + scale_y_continuous(ylab, breaks = scales::pretty_breaks(n = 6), expand = expansion(mult = c(0, .1))) + + geom_rect(aes(xmin = normal_col_low, xmax = normal_col_high, ymin = -Inf, ymax = Inf), + alpha = 0.5, stat = "identity", fill = "gray90", color = "gray70" + ) + + geom_histogram(aes(x = value_col), bins = 12, fill = col, alpha = 0.6, color = col) + + facet_wrap(~measure_label, scales = "free", strip.position = "bottom", ncol = 3) + return(p) +} diff --git a/examples/test_safety_histogram.R b/examples/test_safety_histogram.R index 78cf232..e1bf50e 100644 --- a/examples/test_safety_histogram.R +++ b/examples/test_safety_histogram.R @@ -45,12 +45,12 @@ histogram_settings <- list( measure_col="LBTEST", # DONE visit_col="VISIT", # DONE studyday_col="LBDY", # DONE - normal_col_low="LBSTNRLO", # DONE - normal_col_high="LBSTNRHI", # DONE + normal_col_low="LBORNRLO", # DONE + normal_col_high="LBORNRHI", # DONE visitn_col="VISITNUM", # DONE unit_col="LBORRESU", # DONE, - # measure_values = "Microcytes", - measure_values = "Albumin" + measure_values = "Phosphate" + # measure_values = "Albumin" ) safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) From 1e5190b2b90c27829f866cf05b078c08d5ba96e6 Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Thu, 4 Feb 2021 23:22:40 -0600 Subject: [PATCH 5/7] Update testing and package specifications --- R/safety_histogram.R | 13 +++--- examples/test_safety_histogram.R | 71 +++++++++-------------------- examples/test_safety_histogram.png | Bin 34315 -> 0 bytes 3 files changed, 29 insertions(+), 55 deletions(-) delete mode 100644 examples/test_safety_histogram.png diff --git a/R/safety_histogram.R b/R/safety_histogram.R index 4698754..1458e2a 100644 --- a/R/safety_histogram.R +++ b/R/safety_histogram.R @@ -7,6 +7,7 @@ #' @export #' @importFrom RColorBrewer brewer.pal safety_histogram <- function(data, settings, description) { + id_col <- settings[["id_col"]] value_col <- settings[["value_col"]] measure_col <- settings[["measure_col"]] @@ -28,7 +29,7 @@ safety_histogram <- function(data, settings, description) { # prep data dd <- data %>% dplyr::select(one_of(c(id_col, value_col, unit_col, measure_col, normal_col_low, normal_col_high))) %>% - setNames(., c("id_col", "value_col", "unit_col", "measure_col", "normal_col_low", "normal_col_high")) %>% + stats::setNames(., c("id_col", "value_col", "unit_col", "measure_col", "normal_col_low", "normal_col_high")) %>% dplyr::filter(!is.na(value_col)) %>% dplyr::filter(measure_col %in% measure_selected) %>% dplyr::mutate(measure_label = paste0(measure_col, " (", unit_col, ")")) %>% @@ -42,18 +43,18 @@ safety_histogram <- function(data, settings, description) { if (!is.null(low_lim)) { low_lim_df <- data.frame(measure_col = measure_selected, low_limit = low_lim) dd <- dd %>% - left_join(low_lim_df, by = "measure_col") %>% - filter(value_col >= low_limit) + dplyr::left_join(low_lim_df, by = "measure_col") %>% + dplyr::filter(value_col >= low_limit) } if (!is.null(up_lim)) { up_lim_df <- data.frame(measure_col = measure_selected, up_limit = up_lim) dd <- dd %>% - left_join(up_lim_df, by = "measure_col") %>% - filter(value_col <= up_limit) + dplyr::left_join(up_lim_df, by = "measure_col") %>% + dplyr::filter(value_col <= up_limit) } - dd <- dd %>% mutate(measure_col = factor(measure_col, levels = measure_selected)) + dd <- dd %>% dplyr::mutate(measure_col = factor(measure_col, levels = measure_selected)) # from JS code: diff --git a/examples/test_safety_histogram.R b/examples/test_safety_histogram.R index e1bf50e..ff5f1f6 100644 --- a/examples/test_safety_histogram.R +++ b/examples/test_safety_histogram.R @@ -1,56 +1,29 @@ - -config <- list() -config[["description"]] <- "Test page" -config[["data"]] <- "https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv" -config[["settings"]] <- safetyGraphics::generateSettings("sdtm", charts="safetyhistogram") - -data <- read.csv('https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/renderer-specific/adbds.csv', - stringsAsFactors = FALSE, na.strings = c("NA","")) -settings <- config[["settings"]] -settings[["unit_col"]] <- "STRESU" -description <- config[["description"]] - -source("R/safety_histogram.R") -p <- safety_histogram(data=data, settings=settings, description=config$description) -ggsave("examples/test_safety_histogram.png", plot=p, dpi=300) - - - # test create safety histogram --------------------------------------------------------------- -histogram_settings <- list( - id_col="USUBJID", # DONE - value_col="LBORRES", # DONE - measure_col="LBTEST", # DONE - visit_col="VISIT", # DONE - studyday_col="LBDY", # DONE - normal_col_low="LBSTNRLO", # DONE - normal_col_high="LBSTNRHI", # DONE - visitn_col="VISITNUM", # DONE - unit_col="LBORRESU" # DONE -) - -safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) - - +test_that("Histogram is created properly", { + + + histogram_settings <- list( + id_col="USUBJID", # DONE + value_col="LBORRES", # DONE + measure_col="LBTEST", # DONE + visit_col="VISIT", # DONE + studyday_col="LBDY", # DONE + normal_col_low="LBORNRLO", # DONE + normal_col_high="LBORNRHI", # DONE + visitn_col="VISITNUM", # DONE + unit_col="LBORRESU", # DONE, + measure_values = "Phosphate" + # measure_values = "Albumin" + ) + + output_histogram <- safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) + + expect_is(output_histogram, "ggplot") + +}) -# measure values ---------------------------------------------------------- -unique(safetyData::sdtm_lb$LBTEST) -histogram_settings <- list( - id_col="USUBJID", # DONE - value_col="LBORRES", # DONE - measure_col="LBTEST", # DONE - visit_col="VISIT", # DONE - studyday_col="LBDY", # DONE - normal_col_low="LBORNRLO", # DONE - normal_col_high="LBORNRHI", # DONE - visitn_col="VISITNUM", # DONE - unit_col="LBORRESU", # DONE, - measure_values = "Phosphate" - # measure_values = "Albumin" -) -safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) diff --git a/examples/test_safety_histogram.png b/examples/test_safety_histogram.png deleted file mode 100644 index bffa2a8a35e5b8d89d5e526c48f3403c5a3f0fa6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 34315 zcmeHw2UL^Ux@gp~1r;4pMp5E41rahT0s;wRY-0gLM^H-Qj0XrJgkD2pi|8PrBA`-Y zL}V0c5}FB#$N&mLf=Ek%01+Z3v_K%Fy&bH0&U<&=x6ZxqoOfYa7XQD?*W2F7clnUj z-o?<>PzVIFc;7F(4nrUdDG?Ou@fb zAuixg{?@Hq!BbQ4bM>m}Rj#G#$J5d>%F+}3NwNU|3CG}n>t_-`)ijyw(8d5qrxO+ z##)wWe)`5EmAF4?^TTX+p|uHLLGHwb*UpDPo}NR^f&96LG7Iu+3L64>XoH17>U9hu zXHIFXhWxw@x)^e2HEAB?P~<;lSjGjOva=(OEaShO^A%)ZA0^f+8YN}^O&dbjgl1fj zp+W<`TLNiQC)uI`C_-%vW!6&~g}wi|0d=pn%bYXgyD0Ud>+U&-R5qmD$p$+H0BtfQ z*+!%0oXI%ycfZmPV_D&vK?FydXxK}@B7}L1w4lPCa=pFEiS+QXisZHR;c(MakP}vv zdf#-m3$ALoj+n%gaLLxZyZj~;OWl~!H8Gb~lvXu}2*%%(h$magD+4Mvn<*0ZE`~TB z!j84*P}72Sst=s9v8f0Ta;G5B$|qg@o#q_+A{fJIC8s)N9>hSG8j`8Wd0gURw*o%c z;@Y64CUg^qjvLJJFrqJ@hKDngHKzvJ>VSbOInKQYYxW|tS|lBvQRyTxChnF$@<6`$ zd5l_8A359$IkovCfW4z0RdD=oYgvwK_xB9#QmDs-o0vaOfO>pwRWToF`#R?-vgTrq zphP=ucVJ~s-7wD_pc;!x7wo4954eqdl^rHr;~6BWy2lg;YU}lNyKj#s1)R!EJN^>E z8ZQ79GY~M;tP3U@QDyi$-3)t~0#Qb{GqbE5Mr*2kC#h z%%3PU-!^WdN96+IJUWaWd!)%Z(6q@4QJfgf5wLbs!a{C{a*NvzVRQeu{iap%LzDTR z>($477UYJvX*PA-w~KnW&v7_4KJ$2Da7YjNg`QCsqrRz+WW)?4EQmI4gN%=?Y3?6J zZ-0l1YcV@Hv$atDPU(@MEOTbx7|J2BE`%QZqmR#ErKVN1G8WL^7SO*z%|mFZr(MI+ zG$ZQN*~{o?EX>Z6=JVr7@Z-lJ$kUI-l{RxA=^FNkbdr&Nc6~!|a;tbdxk^I!5ls4) zx!}UY!k)OU%QVsDTssv#QrNwc7L?hA*CR>FwARsPQvRl_2-f18Xh)~G7RfA(1pttQ zN_Wj;H}Hyx4W^o~8b5`M&sz>+Vw~)^waH)tlQE@EY>;7T|a}&4Vtn{40vpuk=!Ma|iQ>g_RyKYodJ% zQ-|8v=27ZEp7qofu*{KI!C?iDG$>jcJ4PE^nJ`Y#BLifhuj0jRy@f^yZ*dXeZ9kCH z1~sAN@r?j|zb9RFWWkSyh~lvjN;OO(D|RRQGAwo!Fg<=Oxeu$CZ~%_(0G&QkKJl5N za>EJ6y;oiHZ?clV6JNBpA}8$%HTQ6mwvX~XvhY5WLcp(vDSipryJ7Jd6GZ(sJ&J%8 zqRr_a*tb&%o7lp0fun8~+qS!jy^K|yNSl((@C{1hv9|0ia#~qZc&NIYpJ<^}s-4in zBt8oBudcb26y-V6B^^Z0Z=~>|c;3=KXPr3;2&YF12ys=a3$jcLYCFpk!b77ws3U&L z+>?~GMw%r7#}J7>nuQ6AaFb~)b60*RJ1#Ewc|5O0Mw z)QudeCyJRbFM6uxpun6ww(Z7#u0volxz8WT%6qj(ib@E7J?i#*)h=l^p3DipEAMZt zYW%SUsC4^vz~DU;eFI&CHfR8Pf3Di?G@5NPMTswzyU86iqopJG+}-Cb`vyuY_4eYl zw?VviOxZhvIVQ(3?6Lg8V*{%r2&d{4fV6c$2L8q7oT$D2inuZxp{Ikqa8zaMUg{be z`1bWZTDclBv`S-jEy+m!(;P_q0UbleLpDJw%2Hejgq+w%8IC38zs$+A9{CD_j6m_z zp~AZrVz_M7&=4}Q8XB1us?Fi|?@q4J44Z7SeD_F?+O+{1WDO)a1Ps9I3o7TIgM#6v z;J2`X$cSAcD=o-Stj21LoPdpB?HS)<1(~piMqUbhgg|IjOYhA38S>BbQ2!Z!XZsh7 zIF>B}W?B%>wOC?uZvj&-sVq?{G}YBDBoz|!-LT>BEs*ATXp< zwm}WAe?MQolGE{)SxnEvQo<(l3&I+Q)v`1>2{5S2(R>$0$~Qlo%X}_D11B>UzR?jI zjYE*c_yxH@0clnKRuINjlwRjCY*kfa^k5M?z~VJg#KYWsg@6jH%(I+a(f;&{!71Rm zTq+x%_cREaaVZ`pt&7k*7hZK?aMV~n;6EFdY_NoRno?Z+AOIs7!S(K;2t%^i>hqt{ z?y~;~(xoZ~G^-*`(=a2%F;6v*z}Z7wr~B2`2V?cAX~txfbabbXIbur@Dv}t&+q#fV zI@IsbP$8ecWf`({C|4;hUddrF(S*l1IF77*aE^!hYUHSOMHc-imS)x`^Mla!08n8R z1pIfG#zio=!E$t%CujKf+sCV-tbL@38#3Xq_y>~J$LYjN5toWKQRTA;=<0rA6MxPi ztfPBXcADOxiLv}#*|+_eH1A-?w1~t4HR0Cl>JS$V`(;v;gJM51czqq69hK*QTq|0A zdCWr-e{O#yTwAbt!Y`yyzS-Q0DXZ+Rs%}gl3>rBdc*}R?c1@BvC^#r zI}X;=2(1qy5u2EQ69&1CCo#J=C?`g4Jn6Cax>S-t67$Qp+dzV}0Am^KIOeNB&Fw^l z9yQ*$$Kn=VD2v+HwrOA@i11cx?x>-V?w*jP!5LnNg=35&UpP}N>qbWX3!-uMNw7w! z&v9&Bq+ac)>?e!8CVFkma(NK3J#ZVydHD8xHdfi~xUNE?Rwd z+Au-dq>K8KiTsK>?=}N!t4)x#A%t-Th}0o0O=KmAF<`-~f6}Ffd0MhguTB3=+;J#6 z=GS1;*oF?8MIy8N)GVQLqyiI0FAAoy(TqWE9T{0OxLuReQ=7Ik3&yLOGhm%8@9DtR zk#T5jT6PQZMejapt5b|wGRr1_&XN2!l3Gzpcf!*6BKuh%b`}Xxh~#893(Kq{1?DX4 zRhE;TU0Ja8(V>K=e7oYqKj(^e_a$TnAq%Sb<|hrHLKE?*_?)>+LlnI=Ou|*LG)YDX z-45xx}Cwx6=Xd((rSzJ=qO+cz+~Fjl`=_I9q> z!BQ8+Y)iXyi%BlS5eW|qxpV!Ziu)39(zCYOCy!$V1|cCg{p-j0X7XQHbt2Cg%^x?Z z32*GHS{{;1YVN6eVNp=#jjT=?DYu9U7SDR>pi;x=+PH^P0jTQJZtz}L^Z18 zwT-|%QmsJkZE5A&_=JLkygvhm?a%I}SQ_YCJsyax82_4BR}~H7q~;*{*OsD^GCPE| znox$;%38@87&2eB_zWwJ{f9~Zi_t9t#dm@twgFE%*1MZ}gd&8qGw{{I*`{HouBU6N zD?NQY`zwG56i#Hyqm||S1kJbgC~3C%m#v}^M@Hlx1yr1|j z{+7t=nkaEsJaZt+aaRK4R^PDOK-HB(r=N4XgX_9E-@ep#Mjy399%;vS3%5oM$`%M- z+G}ts^7cM4X_w@+Hb*0>>4M#%Z90bV6_EBSU=plI0gRWyh0lWxs1XI`w1Zha@dq(a zi;NMP;_}%crQHt&61(b5!x}Y@l_&wtQ=69;}zLi{%`f#6aA!8JL;nxr|qHsiyri(?W`{Ckm0Gu^n@}x8>uY26i?o<4e`VdDqNhU z@ykZ4F+yEfSN^6*ndvk8DvGjVbMS_2xpPhHVnN^zv*I{WrP`eM!5hTmSTkvq88e}* zS0un8SbZ7EFaw7Bi2YfutS&r(JDjS?iEQ+-;<@jn%(}V@ETc;Wt5_??4}D|YrtTqb ztqaX0mDZJxuBpFwMjIHT_#ewFY0r>kt&!OAol>umOX(Hyhp+{uej~{=>s%bMR7wdh zSPVguQF^~0#?mYZP4Zp~S+@mqcRzp2{3zHD*>rmo`9V>d+o6{{+-Zf8GMy9J+gawh)^ci_qtKUoVJ>@MqP9 zbC{z(dF)J2#z?N?F7|d|94P>rQX#TwK{BqO5{S3!t5{z6_EHPBdN}{~`gm)r`Rho4 z5cb%*XOrG>OTyz%6U-zJMY;J)T73$`Lbi#H>A>rKpGUn&pBDxH%1NKvmta@TvZy9J zi$D29huZVo8h&5*u(JlI)2~sqsj`L`OviV&M5074S`hpyAl+2 zDoi$)hUZR}<8oO^bb~Rw> zT!7|W=F1iy7I|&Acxsq}eA)J>lM|R|5I*qijV;9~^a5Cvu$ktjHB?j(tN z5%bz}B`0?8F*wz|5y{G0Q7AijHf%PUP?yI)pi6BvhNI6;j(VAAmNGAtg?fO(fnM|i z2<|Ssy_%WezwMH$-qd$aZ1kCNsEBDzxl0_4cn=!!^A|HkOd=*M3bd*rn1Zc zr%jm5s+}KT4UNRpFo{Y`zSEC#-1+|eI^xghRQ9^cw_BQ4G!#fJki;EW1hO9l(;a&Q z_JYySNZKLnQfI$a2dxqjVFWBVc%g*f&S8EhN-=os_Ef9>31hKEbsRRnb`tfO{6P)FE1Ut0-J@8Fi zOo;5ddQE8mfqs53kA7Gc%6Mx+7vH_2f4<_#Z%*=EX9aH8*M2RWV7NgSe|Wh_|GZP& z+Ri>nN96`6{*S_D={>nvAV|MGZODuH2!vBGlM`>uxtZh`YVLXqV0-u-wmYlZCHRt& z;r;GHt6S9;i+Uya!g#hLu5WqP5WMQ)xymmR|qmqZ2;0i zivPi^m8Rt8RBEiI$G+Qa)vtyHRn+1{s zD?ZJ$n@3BNk;%hEA!&9v&2A2$Pr`fpcsu_TEbr#)QN~6ltIzjnZZr(idnXNBG8ZLV zW%1}^sI%wgdSAt{Yym}V-wDC)RT_6biu8>gvpy=uzrl;P!}CD)TpB@^ot*4A9rKZu z!Fh`a%82mGWJTWy+D5mY~Qwze3&HeIW~yKGNoN~HbdFn4p;Q)8Q181)b0dluSL{o zDHFMNwUEn~$3i^e9s$x4UPy>ON*7+L*N2ljDt^^iMLE8CP;3<A zH&Ht&h~&1*e6A?Ix~)gd?HY&SZ-z<2`QOXO9_OPOf}wTMF%<~gjyFy_0(iz21;&W$ z`z|3Ecwt>n<_lKHSd%q!1!thMi^>kD4d~4}c`KtWXb0t*^*d|esDD2G?eUBl(TlvW zg_bcrrTtu1jcZnSV4`V%Dtk%MXpGYT>%XPpIK-YZGin&EaO^HS*#$#bQV@?y(3bWb z%hZ-O!xVz}4e^$0!a!yseQEndVs5<_{1f-noxOzL3BEmne%zIML2*jowVS+RTTh0d zOjuX&lTrM86;R!u@Dd(B29IB3anPYVHAGC@{uR5fv~=|F+q(oY zhRS*vyfUl_A*<**u(XC4mgv&Xe?SIj38EjWl3gq(Omyk;$&O_A3Pz_3MTq`3JA{7? z#gCdYTJ5<`Zdcq%0X5kN(t^xf>$iI#6B$zeXrKC+$i!^J7+%4>OVUo`DM$PTC8Djb z(Tb3XK4Zd{TY0diQyp8=&QaucaqpVBfHdkTVz?C6I==t@XRg5+n|ww zJEz!)S-2E+R}$vq56W)mbfmU zR6{*h{w#{In=dGQ60|kfccH$T$93nJV-BHr9Ds0`a%ENExMwmaYlMKMYrQk!UFjIz zY&2H%jajm5Xe!$!jo&SxuGIA(7GjQJc{Q+rk-O(3PGY*Y&J8kt@0{#Fl|B|^Gp2Ql zYv7ziey*n{hn2OyDHyFzH`e4xu7Uu)7i?0L_;HhNSLh>V?O(F3a{&PK`{*qK-x^91 z^i;q#QLrL1X11Dncz#HKx{LMJ1jdqfzlv!_NevktV$mikB*eFV#4VYiZqZd=Z)_S&0~8y3FY3wts`|j zwAD@F!+yW~(_`gxKVK~l_D!~rsEWK{!_D<&V#DerP#LGo+DDho(j(Cw`QnBAa>E?wS)WgN01u{RYVooSySHR&GeP zieJfsZ)pmZNPCcfWe$v(U7S!+YJ zKan(d(Mp`BH{Muzq>*k8?}urx&m@FA9X5O|>J+=3aJs?fkN(iyTbc}OKX#fn{}!@o zbRIx<>PwPS44xHGP4PR&pw<_N9%D z{w5w4R8+_VBq!>8e~;lj8TQlyOMKF25QcQ8)pi&8;m0H7jgItAZy(#fdb0-J%K)Ke zWpdiy5%bnC)0OojB~f-i!`oH~C#4i8gm}>>U#{=$Wxmj#?AW~SBXRC7f_@4MD(^u4 z!xvdjl*|uz0WSTgXaA3%!QDk!9ILP%4+FX4hmiPjsBpN7 za>Dlkw7$cnMeFzu$_@?ZLmrZ@+Av)?ub(>& zn(tGU31McRp%99{H%iRKrF{-h^bG}0Ec^`dOg?n+?ZfY>F!PHpb%q8rG*DTD89Dfu zr9nSbXnb`)#eXgQ7&b+DGCZ)`eof1^-QcbYFu_}NpS|w#`{c%dE$q0f8FcaW z4{1u{@HPMZ6xD!BBc;Y_L@^v*pd5&g;VL?rnPKUw#JtZG`M4%PWAzU<^K3F#aQXvC zf94?A>eF}zvT0$F^%2~`k{7~(xdToW1HK_ zz0;S=ugVc^Wr1=(PQfQ48Csmqg>FP2@z9XgFR36@iEcydQfrktrDndV8#L^xFvcxL zak(t)v>>bZS5@H^5G=%jQquV3)pDqQlT3r7SUy+WXwGy<-VKg8KYRbR26*3p91A~g z6vmHiPM-(rg!iU)u*DALWqw6Msfk-7t^uYPD3_Au+4%LG zv+o%N_TBNd^HO((=~)s_?jyIFPQ-?ch(tS!-A>c+UEnYJF3lIa=)=xecdfecB>0-I z9X2_eF`cvm2+qykp;`pn|h;6R0Btn;S@;gQUAaVEd z)E74;*_j=)IDemAIR7&tc{N#K3XXv6$>4Bq$0xCSm)L)l!kJ$`*U1@b%ur)SHQxEB z8C{ssg&AG=s0+*9;^t|sQcKAXw|n*cU9<;os{G97oW}ia(-n?3df)f&0sv5tpB?F* zTYN3&r&FOpKSs9LVnGxEuDC2P%&ZpgDS!5-up`#cXDT>RmFC$4@!d*74{`F10W-U9 zFVqt!o^OY}`peXmdu$^kRR9G78P(XUC~ngS&#&4Y>T&Wz+@ac5ml_!v-S%<6e~Zbg zTG-N);|D}!@Ieq&6lDkX7*)<|PbykDKhScSt?nnZKp6O;D)#mBqctjA17erI3*XOb zaLUW~;`9uEnL1$l>M&MI>wTaN4B4_@C?2QZN93vlt97LOoDXp^xaK!A89PI;86lZb z4Aq_A8DsEYX$(d#_9T3`3ov7bXQT~WCHbH3dKQe*Fa%$*rgAJu#8ip~20`J`j%hv3 zAFX4n^B%3>jK^2!gFy1Lz;5YVX&x$}WkR6LSA5}j$s94s#1pT4soJa)F!b7b~e zSSDh*<#cds#(8*AK}14;pxUZH*mi~A8GOoYI(Xi;Xq};OWIVf$ zoO3u2!VjmsC{>Dgn-J~9V43sci2gc)2T=v9UA!Uy;Ycb04 z1(X!W_u3(Hp(F*RLe2&-3+RVW?Bti_2P!EUvhny6#>h#c$JKqS-k6xr5_XH&R`0Dq zgomE$a*ofMHWxnlS_|thA0v0SN-5rfs+hkle}(Gm&-Nv5-CO4tnyI4M-$9iZT)0_7 z2KT*#>jXYNpAWQg(KNJ%a}yaRClvRn3*S@w{S+M<`0Rb1bDFO!`C)&PhaLIiefA}l zh@nq|#6!b*X*bRHN)m6rN4#_Ra#tSFx9ht!)c4mxDiV|f5+QKo=w|CaYS_6XB~|Hn z)~Qf7b$#Q+7A8SAMvV+>}D!KZNQKk$+#?6AzU-_UptO22)oYkK*`;B!)4Oy*a# z;i;Iiv9mo>_u0nJ;w>aM&!o`(kL=2$R3yi~ zYI1GgUjm;>0^UbxA4;bI501T zJz!0#Z~8z-jtzD^jeY9$RO}5R0-+97dIY=eU4T7ThZ>;4k?T@dzl*L_ut9|i4g1J< zf$uD6##&MU5t>o{At-H_+5TUL_*Fy3DXoHn*OP-8u?Z`{RhW;-g8jv1Hb%Z=-r+uG zfvu-4)~Vu?>sz&FSM$p-!hsBBn|;yoDYgC}JkH-NbKW{G(a%%-o!rI!_O~CL((hg4 zf-4=L^icmiD&ffV)ipSY;8x5h&8@n_?p9sM`2^cMl9B2f@F!j0qC?$2O~~VRP^wj@ zB_FK=brICVYC5Qgu)Z^({C`W8aeeBwJxZp@`ZBK?)$J zjtOg(@F<1q?)i*tgOf$)88rjq_us8%VkNJwSiC17Rj|r)zW3ke@3cO>;g_EpPFywl z>BKh|YcbCXtIsxnZ~aKAjCkdrd9>x;lT`np-Y);JRSzbIuyeE`#x;%~g)R=UnKw&= zvjCcr%6=FX4$5zDcdz>D5cYc=Y8)!vR2yi+9Zlz@KT{&_uv z0DSezg=sL$4OwyWNpf^FQkS|-!~Ou}=vsAPI@l3g-nu9kagZej%F!}D_^v(0U*uoE zAPKvA;KgH}wo-B+ZY{0QI+W-_BXn zIUeVVOkz|^BoDdh6!xA&SbdVMzqzXX2(P>o4`VPD0o`>yd9$tKabb-8U+|;k8-ak$ z=p@aCdMqF{9L654Cn zR{<_eTbD}tM46##^yP)5hE~NYYW4Wfq4=(@*=XIL&e=h!@0gpVaR!JYE^9t#U>~)b zrTL}UvYUZK&?mL?gb5t<-_hJ%$*FEc?rP7owz2z?x%Kr2jE#eqc&wjB%n(lTCEwhV zB@B(*MUE^BNI-WZb?6deo{CGizm!l< zBreQ!l3!ndAftnG7n6*p3ue4Lw z;_xq5M{9$x$sAglKR>JZ?_XMpVPfi0tYA;*n8zy(&eDHhOYpB_lV%|KSN0hHO5D*o zu#5NMF2KKvNBvi#&kRkz@bv#ek=Klz%via9uUz5(fyBxQP>U!@oCy$H&+*gBXY+KJPB>L9QFBs!;`v3T}X$6P*s(IiWY4}mwDCXmgsa$Z- zlbRYhNozuf(O)&Yd;hd;chkMk6O-!C-@KtEem`O0`Y!GjJJqb>rbpX#ADW(AQva`> z_O9gcHs$v&a3TcpYro5XR&cHe z>-U=ZYUrPr-evDudon#gp3M8i%yMyWO49Z};!477uqjbFN4Zt3!N~9x?-Eg?lc8g^ zHEVWPwKH_6HWf_|gbXgY)L40k_RrWs+L(cKwSm5=(LYnjWZ{O-u#JCusB63}Bo?an`R zfrapIez3uUn({yJV%p<#&;J0`Kl2YA5ub4a^aq&x4F-IL`}Og{q@a$Ez7a8?HgBJX zJ%nWIVK)5ilS6IMTy$NB3V~*D0y;^b4A%z`?DK?wsoA|Nh62~^jrr-9yX@II)KlEc znwcNti1+&*!q(?6hdX}snjevT=&=D^_|eryOV922nzZs~%2BQr-Rq-&{)kz6{^x)f zzb?$OZ8-$U@dYfY7;fe}L)(Z%jrZW2gzs#)ETNy7x@`k{ZFV>F%09@VpsXgKVRWOC8TKS{#E<_Uccip6NOnfuKm3^ z`S+Z%pU>FO-2V^J{EuHnjt?p)hRQIqx^(7_X&&Hc8=BCe7b)E+-$*iQsVl7o2a>To z$~5b~5y#{LceFccj(>8x4*Eva!=sFVn-#{!KYQYgs(0C;q(xC$l0fY#{bRhjT{6{%&lX}z=>cf z&r@zN&FR_(OIuam@NG1c_Q&J(jhVXBylEwOPz?O@ZVNndtoMu^ap^yVVB;y`Xn&5r z>X;D%p&!Wl;Q~slcQ?g}n0W^DgAE*vy>JM-6S0jX_QQ}?N@08SJq^3P(l(c|3Tx5( z7O2h;&yzd%oLmyP`iKtIY}kd8%58N{S84^#Z^6FousZn%!5Eyd^;VO29uSzEgc`5* zEv&nVqO@K%##G&^@h;bRw;l;aTaFngU@2={4|aT7&Y!HiwDOBVMTye}g?h_7&xpfc zjcl*E`7E-0&4A(kL)h`o1F=bjrNTDCqH6E*H6QoTq-`=odW%QBFuXT@iJQZ~dk&N0DT8Vapj%tu0 z&}##7Rn_tLo~qfeo2t*Rs>ScLM|O${nmn{m(KVO_8zp#N87`8qGc;Z;Ut2>JXZobo za);errL|n9Y|jyF;@ZKSggv30phbkDR(Zfttf%1j z7SvYl{T1P1K5uP5^0D~v)Hr0_8n-Jx3#om(`n*$g4Wq>sfet)&zaOBNQKDyV_vLLCc{||Y%K2WpfJd!iMGpda3xZCy37>+Ic5vtfKIEEH z8UQ1w!!IF^ha~zX)|L$`eUWJ9oO4={3^6Zs5-++>88Dob;^m%N;4FSr#WZ*l#$48E zAX?ud^GR#0FSY?3BRptbo~IlaTkdRiTjVv?@H{LU0IMc7Mm1R+k-lzmwvO5w0?y(O zPXr|v)xI5=h#Qc`fUi28%S?%aq}xs`sLI)(8uM97*t9<{?bht z=T1R-BSNy>aNZNe8k$JI+bV@7O8Y@OszAQDTfqM2H|6qZ!O3bh@>^lA(ji2D!yE*{ zk!ksMxK+KyZ8TqcH&}5ycyi_0MxQND75g|<%E8g@9ex4w0ZyBG);CzdcP; z@wX8lX}$uGpv_3FTHy1Fds4(ntJ^6E9TY`iNVq(wDP0J$tOSCZGGJ)x&P-|>SE-gc zf{rhK(XjU!3Km_Rez6rh>MuWhR&-=F7!*3Z|7@KW&QHavy=3Fr!Vyjf*KSV<{GAGN z!*a|K{=-VwMu zsh^i}N;z7tARFMm9j(Fv=9UP!i=Kwl^@*~j#+|t6jw~r*f&0{LH zFh{l&PKwXeU0KE{@b*ioZS6XcW)|r!W+kn4EKc7Ot`fgMd2N=laeYVp?ZA#ROFY}K zT%em|oV0&$ATTXj8DWjN7yfue9$%;GIsS{PEBPx`L-K##qcbq&kN}3nPt;eR zSBe{9NZAWsf$}w%rAV+KObjJtNy1p*^>`N%8CJxwkjF=2ls;Vv(Q_hn4bM0Y(l_0F zgEG6=Xe|xWVS$d$<9Y>dP;l7^LbIA2>fHCB9VH#9U<_C%5%_&1aXoRxPqC;u6I697 z*ERK=nvma!1pQbSEmHmmr~eg0&(M}X9tnRK^Z@vri6tZ5fTK7&;pzWCv*Iq!4i{0*r&9D(4?oh zfLjg7%_|(RWX7Z}6|U(&kpx<~81NYbq4%GfLl*}PE|KT;-4N%^egL`}WJxOTPWnx% zh74%>W=<^=I*$J{UUQk~FpQAu%lW5+&s@^%tMgbrjqGivT%2bA zBqU&f&uBr070UG;l*QFqPKxJbnOw2AH#4jKoAbDp9Pia2&ps14Fggb-z4?T&u_vEx za5i8}3fhkHwKCQ&7hZQ4Fx&Ilna1eL_XP>@hK|Z>>dInWs=zm{*a=%e{4qOO1(5Hr z2;Q%?mK1qG-`A$|t3mHoa_05^^~@;Z+xu)qW^9m!03h-OHRUA$|Qiz0P|Vs z-5o1Q^XNEfS`oolk%q}*`sh+i1DCOsK7ZUZ25mfj!Z)xKqG8?==16OGxo(~~GH60S z!TPR{(9^4#47UlG^b`czF~>&9641-y7N8$@pP<{wLQ7s09Cuo2m(i)i6JAP#~vS?1lIvx4!np=L-3+P<0 zV3}kxt5`lLd%dSii`3u(1BZ{Z203F|^=)+9_WSHiMqW^?KcK)^-Em<74BYrR#pmnQ zzFyKM%M|pXX!OQ%YtT~Ef~9_UhXx>zJJ~bY?@92UUeE^GUzE0Fwiicry&5yaB zP@$azu`WW{e&9gy#GeoQUWPKvY9Fgw;pF8mWnCMxe2KpA5v(z}DR}JGY+=RHEBe%gK!eaR(9y->Q2XA& zV`}4j0f`&Z)U}*^B#vjftS-9w(SWfGwz#e#3wb2$5T#X?FP2inqpg$!6Pg&zZR@ae zp(<#4yHA=#8<6h=J75JrO$PO3m*(201(?wd{Z3Qz$cYT*#X1ar0kxDI;u%x5A*~d| z1y4ishE31HqHpC|r-QCA*u>J%Ka)E9hH!SwpPsNilLtaP@Ai+tVHoMUTFbW6b2@<@ z6i*g9=?h%TJlj0@gPCp7{D=7*>mNb8N(7ie{9Aul+IRSIe)W8)Y@$+&nY6s7!Uv@d zB<=_teJ5Bxk=f$OQx`rYW%}F?w$8)IxkISXVSJA$!dETBWI+ z@cQoMd(!~#K)c9NkuzM$t~g1SgLW(d#EI?|f0B`j3R+Z#zX+{mVT08oexH3CHK!2H zf}xc;iUeb}+;pmE Date: Thu, 4 Feb 2021 23:25:47 -0600 Subject: [PATCH 6/7] Update testing safety histogram --- examples/test_safety_histogram.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/examples/test_safety_histogram.R b/examples/test_safety_histogram.R index ff5f1f6..02405be 100644 --- a/examples/test_safety_histogram.R +++ b/examples/test_safety_histogram.R @@ -1,7 +1,6 @@ # test create safety histogram --------------------------------------------------------------- - -test_that("Histogram is created properly", { +test_that("Safety histogram is created properly", { histogram_settings <- list( From be7e31734c67eb5843587b518a67cbc91bd5b314 Mon Sep 17 00:00:00 2001 From: Antonio EC Date: Thu, 4 Feb 2021 23:28:05 -0600 Subject: [PATCH 7/7] Update to formal unit testing of safety histogram --- examples/test_safety_histogram.R | 28 -------------------------- tests/testthat/test-safety_histogram.R | 21 ++++++++++++++++--- 2 files changed, 18 insertions(+), 31 deletions(-) delete mode 100644 examples/test_safety_histogram.R diff --git a/examples/test_safety_histogram.R b/examples/test_safety_histogram.R deleted file mode 100644 index 02405be..0000000 --- a/examples/test_safety_histogram.R +++ /dev/null @@ -1,28 +0,0 @@ -# test create safety histogram --------------------------------------------------------------- - -test_that("Safety histogram is created properly", { - - - histogram_settings <- list( - id_col="USUBJID", # DONE - value_col="LBORRES", # DONE - measure_col="LBTEST", # DONE - visit_col="VISIT", # DONE - studyday_col="LBDY", # DONE - normal_col_low="LBORNRLO", # DONE - normal_col_high="LBORNRHI", # DONE - visitn_col="VISITNUM", # DONE - unit_col="LBORRESU", # DONE, - measure_values = "Phosphate" - # measure_values = "Albumin" - ) - - output_histogram <- safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) - - expect_is(output_histogram, "ggplot") - -}) - - - - diff --git a/tests/testthat/test-safety_histogram.R b/tests/testthat/test-safety_histogram.R index 7a965f0..ec13156 100644 --- a/tests/testthat/test-safety_histogram.R +++ b/tests/testthat/test-safety_histogram.R @@ -1,10 +1,25 @@ # test histogram is made correctly ---------------------------------------- -test_that("Histogram plot", { +test_that("Safety histogram is created properly", { - safetyData::sdtm_lb - # expect_equal(2 * 2, 4) + histogram_settings <- list( + id_col="USUBJID", # DONE + value_col="LBORRES", # DONE + measure_col="LBTEST", # DONE + visit_col="VISIT", # DONE + studyday_col="LBDY", # DONE + normal_col_low="LBORNRLO", # DONE + normal_col_high="LBORNRHI", # DONE + visitn_col="VISITNUM", # DONE + unit_col="LBORRESU", # DONE, + measure_values = "Phosphate" + # measure_values = "Albumin" + ) + + output_histogram <- safety_histogram(data = safetyData::sdtm_lb, settings = histogram_settings) + + expect_is(output_histogram, "ggplot") })