From 03f3007a131cae2c21985d01c9e571d955f057e0 Mon Sep 17 00:00:00 2001 From: Adam Black Date: Sun, 9 Jun 2019 11:03:26 -0400 Subject: [PATCH] fixed iss body region issue. Extremities region was being mapped to general body region for gem_max and gem_min methods as well as for the icd 9 to ais lookup table. This was a bug in the program that should be fixed. --- R/sysdata.rda | Bin 56702 -> 56413 bytes lookup_tables/i10_map_max.csv | 7676 ++++++++--------- lookup_tables/i10_map_min.csv | 7676 ++++++++--------- lookup_tables/ntab_s1.csv | 1068 +-- .../create etab_s1 ntab_s1.R | 8 +- .../create i10_map_min i10_map_max.R | 12 +- prelim/create sysdata.R | 14 +- prelim/mapping functions.R | 3 +- prelim/speedup.R | 55 + 9 files changed, 8293 insertions(+), 8219 deletions(-) create mode 100644 prelim/speedup.R diff --git a/R/sysdata.rda b/R/sysdata.rda index f06d11396ab58d11b7301cd4a69f5df1f2704377..da064a3af5028aa18e908bb418d60d51843eb0a4 100644 GIT binary patch literal 56413 zcmbTe30PBS+COY(+8JD`h?GVOQZ#_kMjJI2k);Ki!77HO!A}}RFln5zAqycKb`^0wM&ih^e>$|@HX*`^hJm*>N z=U#vJedah~_+H!h(~s|-Z>>1@ui1WA z%3rq4=C*$M@ULz?J4!K!&u#JiaeqPZ$oIJ)y8W~B;y|J1=1|DKppg&iE*%VW+2()! zZ%42Hx!;aav2C63Ncmdk=g$W(z1p$RzUpPrwD6CgKmL~Y4y|zilWp&OKh(?cyY$ZI z`zPAZb!Hr0MIY>7L`6K1{ww&JbVeI3Z7sTUSKX@>w?9RSZ$Ks`n0K zb6)PT91)QINQ@H~9FmL(w*9g0N&VkPW}d(E`JV^3-TK>#uP(lC{&>Z@Fv;AI@_UVQd*|9$Yo&@6@tgd5??ey1TKAR9R!jc*rq7Q(auK%wbM0#BAHVqA z`kgta$DGW&Pj#(pW5U%XGurp7R|;1Z_GkOOJ33{i8~LBs0XqE|KNsnvwT_Q_NgS)iM}q#zqX>PYRoTukDKLtc8ArM zo)+y%NXC5kq1ykegcU=>ZRvaDj(_;_MctDH_a8>}@ejX${*IayebF{~#fm?B8lwN{ z>fRtqo*Pb{bboC7$H5cj2?x1q0ylE7$$cRF2f9_`gd)?)KF>Rd~qM7G^ z`X_#cneqVZWAw-0{PVz`%1R5bcUG8x^|wE;L;pbbSIE@C?kBiVo_XgmDG*viOqah}aN z#@1ff2m5OFI?{YAhxv_90`GpQIT~F*Fj*OUl=;+i8av8#pyqk|%kQHX_# zeKl1NaUTVJ6ZUBD-kF>iTTY8^ONo1reG~0fwD0Q{Q5X4nXz}(!TZ;WbM$y87GuZR zJ(IT#fubqp+L$x9?>2mPk+F7S-wnyeyjYw2w6F(H!sQWOeiN~NqLqJjZFg^d;lI)M z<_`MJyS78$d=$`p{;X)eZz@(I+N1Xh*OlEJ4w7s?^E8Jcn&@@9S;mad>uK<-4zW&% zOJJ>Q8jTHG8oS)~J$)lL?n@2PaA>gj@#8XD*tf$w_e@esKB6$f9ve;v-n$3@4F#?`7r>~6Ci zik^(GJ|1ldC>|y<@X*M&F1T1SkFx;|KQLlmcS&6fXAqSL|$!Y!l&wRc}BvoVT>s(&z{lobo=LY?j`gg|dnvRRz{&M=g3(5M#&vrIN z$wjZGZ@%z%Xlie1$xGDRKEI~2BhL3;s?8!z`u#8x7Z#iObS8c@=FP=5gzFj;&Nq!wlOEC-t>Mzi@cEzhqiTIZ zLCO>LlS5(O>xzpmMw*JJRKwRrM0^1j@cLMb=yw#w~HE^ zXe3H-OWu&;)tRA#{tfLd0epvt0wMve-s}GQ_0Vg5Vt7#0i?%zLdW2^#Oem%ex1Gj5 zQ=e&1?3FO;bSI_=BsF;`78P#~3RB;G!iufot3ncEQ+r8z5( zeG`rkIHz(h%BudL?<;QWqbV)pPY;E@jlVgu%XrZ=BO(1)85@-Z*u(yJM?4mGg&RdsE*M&VE@{JR&4!%vTobKOAJP_ zf+I~mgC zpd1lJy_%bg;p6p*!#6kGREyMDI^$%@Xb5Qh4q&kz*@-><@iPOAs)3dl*u83Luw-Dz z;+#P@aH8nm*|Mm}5f_4VwATsRN{ZULit0l?tBVy*$ZdvWb6BNeBf8UlEce%}&m{S; zM_a!SpB^b_wY#ykF92U;b$ahrh0b%bH!_U*UH*gU zbk?D>I2m7g-QaY5$LZnKEjQ7nadJ;x;B3t#OHm$I#Ku{uFVfU9oMTIks9rq zv~i_NXLX;o*Nz=u2vROBsN2&OdHSrr@&5?E*s= z&>S$mq(7r~crCvpTN(?{q&m;cxXt|>5WeMkz^m`2^!BOw8TY#4!Dsa0^Ztx^J*941 z(%?&bIiL8jFY)*@J-g4^MnfaOTkN$GD z_velBr9$fN-Mbg@e>$s*TW~wkaHQ6QGqCyZ%RhY(bdrA`*Ljc__i^rg`ODNQ zkKtdQ{PO2FW3N4i-UvrVCJ)H>C23QC)bIcB@pla)KrGV-i`?(O2A{NMFqddfQvj+mL5nd#qAGI>OekiA2lj|}iq>ogSPo&{S_ zTX#duaMyst;Arqt3UQrA!{$G>CfA?VayGt zkoc+_Ar-e|oXH+RXyW?zqvV5$(Q*GiQQ=&nEVcs?Oipw;R9VLsm!}6NfXuR$JTJnwgoAnc1pO z9D7UI-|fw>>~0$Uf1hsuzql#iG>`u|>8D{n>Q>~qSNR*~IW4W5U#D4mqrPwac{x?0 z`RQchS{zaHUSS{GCqQ`v+ z&ajd+XHAZnO@%2C1JeWZ_!u-d6OZ((D2AV|kyakym4X3j48);=~8rG!1*G=H%&)uR(j_q49UGCVDQFtAf^d3xBTZ)WdH*%YrWWvRk{BmJ$-oAGRx;?lI*AkXbT(Vp-d-#NlI_(Txc1Y9o1v=Kl( zgiQX=ilGS?g|s^YCmBLj*aOjEu5B~W56JkRQ`c`h%uDmIHzNmD^0$$AS1Pts48cH5 z60fp^o=qna939czdLIJ&5NB`%tZ%$)1DS8ar;{%3;7=3=}_z@G=~ z3Enx*5;2BIlHrz3YeQBj!_oq*q_}Hjo`MfQK|^A&6dV25TR`&nU?=aI%1{NA7dWVX4kjK2%gE=YVXFy7SlFhaWivH|R9V%+t(^tP}&C_zoB{$>`KS z2{LdxbN4O+clR!z9yslCB%phGZlJl9MMdbMBF9LAW26s=2%B^IJ5J=K1JLAjPd9L% zNrQIdGED@aTKG`k%09XT8Av0yVRi!F<=RA5=a#aRj>yb7uqfm+4xDR7MM(rilDR|} zMGW>dmq+ctG;LHjWugn=F^8?5qwi1LfUC27~cU8B1ZWut&JBGR;91&QhJ6cw;w#=D>g5Fkvpvk+7Mt8wYDb z6JW_6Pl}vih4?h8HHWYzRMlVZo@AWWl!P_dF2M&k{cq)m*WqBJNIkHSMF zjs!y|pvzpDRb?Jr-xi%Ml~MJS*_o0skLnEhZLD91{7onPPG+FXpZO%+Ab@<{@?{W zc-waV;Z3fWXJOAZxtl!NB056CgSWxs5>%u8Y5O(awzOiIKx@O)mIa06ZgOSHKY$g0 zE>{JysUIL0pxte#s+xJ|L1fxkdkpae2COFezO^QsX;MJYiXKE(!5Gl0D`DQ$gHF|O zq9bWuhoWvk5pW7%Dl~_>!RS~C7a$h?*Qca=5_!V8V!0?uLt9ApAu|PaI7v zL-d0M!2&U$$fpSXtx0`zKmozM1pyvMXBJ_IN5Qsvnty4oY|)?;yCNe_zg;iEJ>UUT z=B%>fNqk5gp1_;@^sk_*O?HiH;cvl&3BL8x5&5^0;h@FPuN(_Yg)8$;K0D$mSt-R3 z15k1j81}{i0&E)W;jcRZ^pXyukPSr?HJe<>$N0ixE7+t$B`%wui7vV96D50!%-f|< zhU?^;d0O!JYwd**h1^}IOABQ_h;A(69O!{%L!Uj}peDO_ndsy3y=za;cSVzg8%|u; zZuSul-CFe%jY@*S&%#z3b{#46ckSL-w80US4We6jqfdjOJPkYmUHzswH|#=G(Z)i~ zks_1b#$|3Mut7nZRzS7z6QhsxAgqM&69G}k{vQASh3E0_p7dpN=1)&bf+IiuO17=& zxX>f z$IIle%u|Wx6{oh<-ZOtLgP8DHa$n1jwVUra(gIIh4cc71%hIkq$RTKFe`R28?vL{i zZmpUv^Evs=8#{@8$m67+?H(@f>-*(1LrQMS&&!6s5Agc9dQ=)kN z`t>&RfrrkLSzR&uJ4O2TiCb0yXbLY>D{8%qS9JHDV?m} z2kJ8@D0n!@DF292*-3L})l)yHJZwFGqS>e$N~rqe)={2#2e!dpNGs06N1rk%!P^Wi zLl5{+8I?X%D_%=g1t>Tgsj7lV3?&8!1j@uj^2+4ZK1UH*jZIXkEjGPI)~QiQR2L*W%bdxNO%b4XUt_znzkcm)js}UG`}j4yPz{ zB{+eVhEEuk(ZOP~-e+F(vLyyqVpe)u5)omKI$ssrp^pvN(AqX?D4Co&)TeLHyVH6s zd2%c+>-Fg5rAO%&Q&yGW<|)M2yn>r7<<_$6yo&k=#h`^u=;LV@_}Yf$|4FB-T$}vM zn{C^6v1O+UbT(3EbQn|3TR&DWYQF4Ga2@7UXPH>p%)xY@4V*ZUON z5Z;rKnhwMH*0tN!H;YDbmN^BxorFck~NxWW#lZVPlT#A3dCaId8pcA0w0yfi80FD7U4O2@p zSBO`6UPnAc#gtOo%;VE3Szr+`e$Gm4jNlw|EsRqTmt57Jq-jFUXTRCK!OHQI-D~b! zkZruPnZmdd(HWsHWlnjunJ4kXp6`vZ|ugV5b2elmGi z(naHB@~mRQcDIg9)?|SlUU8OI zFuXEpO5F)hrNk96?5a>1P89~!77OWC`E3oIUToI3Fb6uZ;N36GJ(W_IDU@-%dD&<% zSl1wS4`khzfG+*jbw=xKlQg;A27{qvdXeTIs-0DyQqAS?_xV*jrh1f@cV=!`K7>Bv zbv}L2_1HW=Zo7M-9UH$ zylKN6=~=`9?lZl^jzeClAO0kJthU~onU%aBk4d4=6{k;%{kv(lo})>I-A?5bOFvs4 zJLtmo@ZcoP8YcIayRpz5W+yiWN2h}aLMIQaw8ghb@9Hzpw9Nj?VS(==^l8RMKqNf#4JOs)vPziIdBR}ThWmxtxB!G3+kP1$~IuMWZ z<=uq|)HvyCbDFv5O40xi)e%TP;rWzB40y<5GwaF9rch`_Q%)%=h2Y$KpDc-;-9)!d ziO>1!O%52C`pZCERxV2BJkAoj%!0m!y>fYzG}{!wkm~HvZ&!{o@WtF@*F-{Mtb2&C@?E?;0J>IR1+DJ)qDF)ZR}lcmPi zl7~4*7m58OCZ~P}28w&*gi{f=oxExJC0f=B@8+$dP*aD?_N+wwGZ&n6>% zrekLG@qMvzariyV(FBJG}uw*+V(&){EgT0cx^4j0m;q@?CM{C zGW+uAI0SmbO35;CeFU_knbF8fQT`Pn^1PLv^Vcu7wNs`qH@X`Pee2DPE02F$5>VqM zNZv{nd0>pu9`;5IQ=ZeDkCNFEGG$MrKJwq>xVPB1MS}UHFXiErVSsu2#!|yan__qG zQp}OkN10e^Hc|0)u+%yKll;Oi+=xn<9$27xLF8}s%=?4AD*jpNoJXQ7C-u%ogEkj^ zo!ORR|EUrSAQJJ(ngCRFS$w%ilF_k;8%el>zM_^^7QUe>ak*TBbs64ZLvX$!oNSqX z0>H+!lLdY3gpYGqvlO^%7q5tT2E+SGtZp>w{Qsx*v!$1*<*%wc2RFoSN+Im`N&C27 ze!Vtde2wB5D#J$eopwh?e>YZM=KqY_z7d_gM7|OTFv^o%QhR8Tu?SsO5x#Klvaj*9 zJJWq+H#tp%8b5*NTB+&2_^RST|Mv+^0A9{6ie=4(91ejYZ5+rXz_i6Z&M&F;F4=lA z>mU7}G&ZL>7Ytl!OD9#2#_x2|kZvpQgm#IIzTT@M%)11c5j>t~k`~jD8ZJ+bRh3+8 z6&a75+KOL83C$DukRM;E;aUyt7>k=VzqMhd{Z7HT9qS%o)(X)Uy_->nIa0pxdOj|b z7$|j@RIFy2c?q1;k2acn7tCY-Ntb_I&P6TDQKxYFEvjQ_=8_LD zRAT2{robWKiLbsCyq{d>6-d0!clhK~>o)onJrICRe)MN{^rKg6`1Y$HCMF+nfABT9 zujQm`gc{7dI5UFEVp%EKj-}(-6g!^cn=1P?*UbAM!Df0Cqv7BL_J zSvW_|46yF1Ft!+;Z8e$&-orWCd$+h6TvGNe^_06)4cz`+{VV15^Ftr4{O0D{&(_Dj zn!3_>&3)VeLEn*d{ zMea$BR6A)gIQ9OU!1ps&a--z733Ibmy$%+EE@@x{58>F9^D8F&L<+?u8qTR3Xj+LkC?16cMi;+D%UziBPT=1Asb{=p#i^DQRWQ>nfU8x{0eP; ze&bxA47cs)o{Wc+CwG?AOMCbX$1V+;DO19BkQ>Tr&Xm{wu5r?MIpat_9a8me%X zGZEJ?i)DaSY60^+a2TAd-h}zwa>Tg;Grk3wA;XKD_aEQt z@_^r-Spe96GgCehU>As_r%d=xWd%wYd_c0Y7R>(^&>I<-Qy(X8Sf#7>QtN@6KoCY_cxguw9^B~HAj|^8iD;@O3Ro(RKV5-6qQ>(;P zhbO32HVF_mA=Xk?qd0Kj0P;(ANLjo#zp~|PD;^)@9>xGPtkgXqjBd^Uw8~Z2;0oYu z_5o%WQ{Hf*dA#}6k35I%-Z?mJae;-(5`spnCcvR;GP3FG$G2qUmb)bw=PuveGvEi4 zk>@xM`T}1Qh{aREQjD(y)(gcKs&ZPU@U_tEe~uy6_!dz|NDoVH!!l?a0)IK_k?v;L z*`aT}>CWA^&*N;Y2L&x9p!;4Yx-Sx9^sg^VgokYcnRCuJXS#1AWiEr zh$o1gg4|UO-jqIEH1k~{h8|kQ&k+o5BJ-s9A@LetG~k6%)&yL(biT6$+yxv?r`l9G zJ?sy8K@W@rb`8~*IVp+3_~VF7OoAGvj%k)#zy`sFy0d-=V*;pKn;~+ZJ<&WLB##;C zfPg_J5dbjT6f-O@W6G_EgfW6&nS?+(dd1#Pl0_<(;(kp5z)oiZynLcXCu-zox+N*a znT|L|vB20_CcYMt#q7f5;AjxbVu%P+!IczCk0|B|8T1AK_U9k~Hu%y}Dr;rOrOw$* zjdhfJk}ju32VsRu)FQK2IH&?U`F{>47V;!)A4sBb8PZ`tljEfd2Tnr{AYI5w_aqHq z)*7-Z#u*~TLLaIP4G~2XBdf^Z!}<95m$@eB&Tj%XMVPsi;8YK|e?z%D0QIWhnkpqo z1_} zT`w0$A<+!M5s^mOEkt{CGCL0(h=42W?8~!4$ke*iA>F?W zrwS)Qq(&eE{y}qCMYOC$xbLCau=+{q=t6570&rxPj*UL}72pWF7ZZ8*GOw+wt*LnW zDh@rZR?N@2Mi7QCsZgpgmKjSXnZv~|+}-u~mx%Q>Wo4JMla_UcV?fnsRFvGrAje<^ zZ?hK7toKtW2KxErzBigMuWL-;SH1&{QcEh0Q1FC4a3`dvFh4X5%3Tj6O>HN?oqEVN zP?y$-)=}Yqmgm}yZr+STA$ss2{bXs9(ZG-nFmg*xG6yFIA)NwJGvTZYFViN@=tLM~ zff%_(K0yAkvoX-=V;TNE%r^Rocm#(FXDKB$u#Ym_`t|ExQUTP!i-7$22JmE$>K?{- z3F#4tcMxG3AxSNgJei4WlUvZNJKY;Gbu7qUBMf8eNeHw00t$Gba7QBgbljF^e#KsU z6aPXdLd_1i+PNmkA0Qeu2ND=hsn7;l;5SphHglg4V7>h8k3gTm$z2By0ZSuXhEuvi zGqJ)&VZX|&e{b?bueBfZ9L&5jC`DU8%?laJ?YNRR8r!Pc0NDVMbD487H`|AnLbLg*h9~rQTU$r@J2BeeuCLNud2K45 zij(h9$2vzk>1o}_{{+de&0~ZC7FV44_-uMGlYOc|DCaR_oK5K@l?CJgaco94o1m)U z)-dU05)gxu(*lGS(w-7>Nr*PmvcYC9n@;fm;#9$t7?*P*PIcFxi z5OLHrK+-Aa+!MEOs{TAX*URv_kl-AtB!XAfCJ|Ing_+PZlOu@>7r5kP200 zsp)fIy7$6A{LjnqxTaaBuQ&p-v`SY8W*m{y`cLOb^5Dj#-I9BE`%i6+C>(-(JSPud zM+##ysFwLsjRg|Kf{dyvQa_#TN6C8*YbOznkd16Cf=|#zQ`fIp@PMG^ybn~NIsg+u zB%H5GjL=sAV~<*8`zy``PeGxc$t+oeCds9YJyEyTdtR?{?!s&j2&_gmSyhUW6bV-W z@BmZZjWZZ4tt42LT`@9Fx(yScAPSp#end#_NEwS5k5dWI zTocQ~sD3cot<9UaA7cm7C;DTho@+=sUsd84Eb=8ACe9;$V|f@Hp@ zvLZ;lrjF@~oEnY5AIW+%(rkux`4P+f^R^V_AR8R*WUmHMf z#0_Bp!64tyru*4P**9z*f69c^Czu%|WeQ#zo9b`pGKE)>HS9wjNyd8G<}I1t*8rF@ zAs^(SW*JuL0@X_J2>UG%VoPmsHHb=C7*CV|N%B)Icmjl*v01>8`S1ml^?+Fcz2EYd zqq6|qxkesk=D1A3guOjSl5_yDC?)^pgaPwr%nO;ShETrXUHeRe(ouBjPDg}(NS_!7 z+PtZCfBWm;zUhMtH%FR9vDeed1^MP#%XpbTFi{N{w*fbmRBfgNxRFRd1F0 ztZaG%PFsq=4@7f0kB?_i%=wrs66cDT7+^gIOV5O5s7Qoy-$qz2HydhEg84XEbG~pj z=@B1`p+7{b1Y{WB;hDHXod|#*O`muf=Le9Bhzj(l7pKknfGJ128C-vgpK!R!-%e*! zK8l@*eXJ8XWCqwoK#c`4Ae#l69%fCsMhOP~0xy+rxJK#Uc`|M12IGApJxnS2mypiQ z5euNSD6NqCr&(vTMjPYCQcVg85s)@T&{#=}QUb888v#-vAUbkGJrxvw^!eLOBTeD) zU9PIYG_0S%4-k6ZoT3WTB}7=DP=l%t3%Y0K=U@iAZE+=oc!2vS@OC8G7If|T{{H+q zj?R`;Sp94NLJDf$iDb$P+4YGLUtH=Id()S0mFF;Vowf7U$u!3zr^QGD_lI4Mk*A8F zpUkhxs`LHb^0O8MW0e>XuYiJ?hvXpv;CJ>zmeY>2KX!G>++!qc`q@9>8*g!VW<>M! zA-XxgdEAPbNenyY0|0Q~#8NXvh{w*8{K<5be%DZ>6)! z{0^H)8V9MH;#BV(Y5aITcZ0I{r{~jEt%Uti4ID4^)+hmC+sTcu-8=cO1b=-xYeG4x6Fqe zFbMWb$N18C`4TMs0r@FYNV!J7u5j)$FPOlYQAAioGmGV5J&L2MaO^0J1?zusb5J}m zRizYs9K@`@g`S;k5E0BqO6E3i5lM_es&G$R;?b+FT}aVDCsZ+56Y;xNu$-4s7uCe@o&OATzYz9PsXKkBr9-z!uqTodZ%XHLD~oAFx7oIJsWrO8jba52s4qO1H%HZ@I?8kPGM}l4QrpWFk4R+BzLYGXK(ocm3YJ89IsSV87CP^g!EGFn=Hz zI?Xt+dHs9Xm6WUXZytuW7EO(wIJRYyHK^}zm_ zFpC^cL=BWia3DSBi?1W|Adf|REah+W90v1@CwK=B2{3d+mXA;5%=CzM=RJ|0a<{06 z9{&mHWPDe1rL)|8T#+xXg90QWmZs!aZ1)QN&x0e)4?XZZaVie4799F*OH)wYQQv8) z5_IGSgb_JB%lwKg@+!y^wehN}JDKM{0oSgtMfa@>1nNPzg&AE?6Gm2n&cS$DOqnBh zkE+2#S5#gx_8o?oCNPI5o4LpKr!eKBQBZ?O7*pEL+)vw2H=w40?Srql@P#pawCi`V zrAqz|fhsx)nm{#L%;Ra9*vuY7Si661Tscz?mOKr&wz80GLD;{aF2!9%XD}bfwk>5d z&Au?B)(}aiIzfQ5Jk5cPZQ@EN?cW8^)C?i@3;z#ZIhC||*%0k0ovO@Fmw%9PrA~Hk zJ_*H|mB7;v$S1syP9Zdks*=#XA+uN)G0YRJj@s&ZbjSfq2?iI&VdwX_n{Dc5{Y=7a zP|$EZ`wML#)F4`?TUAQ3DNwo#q?L*5XjTJ9(<*9-AQFDlli#RP?G9Vb^$UpM7;ksL z=RNx?>hL>bM`d^-k#x(v(P|<0>#X>*3jPirznsLoS8?`{CR7Ir0CGOm3Gp2&UiLzf z9Il>p{p!a}Cvl2$B9F&Etl(qjtTh&0=pii8(}w8nb@%3Ldtvh6G_^K~kJ)2vnx-rTO+LUo6}n6Y^XIXns?|>;~-hW7m^V`&vEDy zzwe#x&XDIc>KM+56VHjN1mFCq6bE_QA;6R%*a4W-XwdfGfB=8}dRYh4pzQ(simyT3 z(3}>Pwv44Znr431^>gbhb1VIoXMjWDlHuagwz>^>z+HfB=sQPJ~0R<-7 z^0H*rNvI4ouJ$a?PoKoFsRq<<=qqCPe5lqctrmfO09~C!KvU#fB6U+dn}%Qm;9P+B z?Z#4o&yHwM#Q-L zWN5B%&%7!CEIJwxQf?>`Ngz#3;RNKm0ouGqRvLP!76lf0`19JB;kQ#RHLc{g6AAXG zaRBn)KGc|d<=qgWZE|J41)a+(xklKWjM^a+K8hfH{eaKGVDk`=&O^iqshU|*h<79%Ck(8BdH5ES{@)3UmZg)}ui#)7IS)D%p>bcZx#Q!QcrOu1c_^*kW=7m&UA?ek%&dbYi z2?dd)Wlbjh1-BjX^uU_;wM>x;CM=h^xmts9`AsU|>ThT5{$J!9 zhH~-TkD{vk5$YiTcokB%np^IU&zpK3BPa(n-4 zmarfHz30Eb1^V^;uU?SGG?PgEuhSl5CdGJ-uByK*?+J=PvL^WT@(=J%-5IL>9DL`j zI}>Vrv%EqLb)Gq(6|KR+?sOgxW70|aQgl92?mIqw6%W2BBqh9a#0ox}#`|Fh?gteV zJR>o&kai3DbTI@rVxOVY{qF{~=@X|!7iJ$8pFiVYS*nlQU#fTO@3>8Amx$`Z4)<+m zAKKDjn~-BHoq;zC)r{M}%R}6blP>9j|2mdlmQLSBgzVV`s89?lS|5NzDijazsD%Q> z^Pi0%@2Nq7BB}@8Jwr4Wa=$z0LZsVw9jchf8Ex)o$eWC{wZaxwm9tvg=aODLH3CT> zXBFux-p^rZ&v;;E1)KQ^&9AxI>WZ+2g<;B?b=FtK7#gqIB2U=mfQ?XI#jNxWr{ynN zT-~aA#H)~#bix3#fscbtjUY!=-DKz#NC_Y8z2qxhhBsM-f}#W#I4WrlI+bXo6$Dq{ zC=porQ03V;sITrc72iQXBp_03<0k~FFbIzYkOnzgiJ8E};AozT$_l7QYJ#xo*US=> zfH#6&qvvh{W=6z;JBfoqu2*8u1@yaW!kAt85+N{W4LvZ=VXJFe3r~zxe6b0RYDQxz zBs>rS1O+NVOok9Iq=ER&)rnd%_oq0I!&?*)gd9gnJ=Mf%BmzF0dA~_eRl?B7H~gAO zaDjw@_=BMJWaTY{BUNBy!jBQ5cnB$TVbLQsSgyp;vj2?imJ%~O9KqF8JCs8rYjB}egK8` z@=X#^-$*6bmbyWTR#xHhY(f#R1yT~tIc)Ur-BX6^L{|A0Qakor5+Q347GltzMwBoq zA_{~K?h(CRiD;GZW{5i6E)NR#K!LU{6SfTkf9H7sL!8J_NX!b_T2~$J3D6ASg(4s; zF<_GfU93TB`xEBpJWm-&|H-_B!8>i4ZkIGr(VsKmH{f&WTdEyS`gokcW;Eq)0L|yr zhbRtR4!RH&hto%lT2g)*xFGow`;}yKjzt=WmLL=7j1>bq@)y-JC1|0&I?ynVI3-$> zd&3q;gS=|?b_vzwE|?NR|F=3uG0qgBI~9n;U(_wfCH_42yiK5;35xW;d)%r!OO*0@ z@+_mXr3$|~K!kmlS53OuiCGnou~)hjSSu>93^8E=U&Sq?RKTkTh-y1eo3p~I*$Av*#9G^kaUdhCADlK1f|iN8lK;96KZ zJ?CCY3e#vb`#3#4xBq0h>A3Mg0}Hgy?bpMg@D|y6crWR|DbV;`sffN_1E(#pSX>4@ zEE$S|Z2qcw&U%Jm)MO?ExwREcZavs7lXWXFU%yoN|Q+Tb7{fdMH`8 zfV2oDR~QYZBm(+E$(*L8!-QA(PGr@*mM?ARw{{}0tQl%UuLx;mD@hH28MyW9Ep|W4 zoQphLmU1e0;M9HgrCESde5quP|L*Q0PUPvrqTOwTLG7~xv(HLhTsHLE>D>2WK5%=P z>X56oOwWgs28S%>^0($!@0FJVRwQ0c9^eVi=S%n)%G~grg2&(akYYfkAumUC33I<= zRUd5>tcoCcv6(CXsu0vggkBL0;p7%wZR3xK=Kly*1uop#-}myaxHY-9t#(1AIr|Z7 zeb@wl2PTVFNLz>BPDAk>CYsY9T@|h(1rEW97+*_zL=P^o=oB2juCVt77Z5|FWYI0I z*ndLJ5$Eu+v|)|Nnb(|VPhiSXorUv`Kp{WpdGH_R=Z<&@N!PEqOl3kg!{Q2rS-iQz zE6pkhQa*_YZ4_X@DW(PVQo>l?o=+*}GA!n8)j>f(-%{RcYR)g1W#h_3O-944F?Y7% z8Ng3bu&wfw2m}4_uXoKp{$c@PDP)&L_dKq@Iiu2#PIzALF6uM^L-v3rBDJVAA8F`$QcR(e>-Lue!J3Ye@X$Ed)Y$_qrO0Mt6!i? zAU|nDbJGwXhOpEy)?Xa83`uagA_PBm$skdDnb zgXJ5YkczqrIG@*&=xYS+qN4s`;%G8dl|muz;JQuTMukUlB_^BlfEZ2%{R>DRvUE1{ z8q+9xJ)^N|yz7r$P9~6+nHkH!pq7`HQ&V8Lpp-;Jda~&TBlM({ocJkYe#oPPB9e$8 zRexVc$-#@PmEs(C8BQj-4-OcXPWI=_9W4aUx_yz^nYqmRL2X<%E-$CQhH0&bnWZm) zUO%>mF!*`|^0H`dZa2CF-ne?j@!KnNyvcByX}fHkGv_%h4K!lSh-*AYSxAMoAJhnd zU6<{-$zU@Yg-CuMP@{@2Mt;TbnLc~KJ#uAMZT~4BoneJT*Ssofi zD6QOyNy(HWScaPOzh9em`mXQ0{zPU9FYo(2&wD@j;rIL9I0pVRAD?~YM-~?HiTUcW z^*$Lk?n1pKe_Tw(t}94-{u^F+@Uu!f-NV&TGSpGJE`@{wSWZB|%qk$vqDK^TLYc{$ zi02NQ?Hgg7ikb-V1ho@aqf~Us>D*y-{o|QosPzh}f>m0SN`ma^?mEI2*9=xV?*`v0 zB8LF@9+|S1%_>m%Qj40GAizUPbubto)W1g`u)mpMD8f-&2cR2IWAxa~NP$%dpxZlT zn}oIOpsEHu5~NgeS>+*^W(PfZAX$tA;8%KB(ZqOPwE@H@QyS^t!U z1D`1Oj$mM5K_%?*w#T=MR&1$xr|SD<4lffnOGp18KD_$~eINK#IsVRe6FRprA8` zA*=&%hhTzeCAfhfhqE`>Lvl&BoFCx&vSEdw4sd*7sSP~pz!*zPQIWdvT?7U{N4|-L z267QN$9zHlM7eCxZZ9Z7o2B|d>)kM|J5yInKcVy)M?#q9$EjcCc=s}KX9I^&5( zAL8Jm+8`%-CMyDq3R!98A@T@kBxv$!gncu3ocT(e7DZ{u?di=f|SxTBSb? zlNS2xyk*fEpuCP3yi2|5E-zg2FVfu|Dg4gM^Y&u_HXKK9puTj91F%)%z-|{6R>Z~@ zRm)C3AXh86Toxq$Lc)!?2DeR?d1yly(YmmpZC81hXj{;m z70Nk?ZYAqG2R2-*{Lg|uJ-%@}ZrzBT;P_fd*#heI7T6)swL27Kj z!JO0adp^NE8WI5HF+Wc3V}SAeInEpWQ%I)+uTV4%d8+w)y41x?6{A;6FAywU z?eMX9W)g!nps!h*;noU(Vx2z^F+!5qWQ`klT}I21=d2TWP@@?vuVgQYT>Yl`VT5T4 zG=Lh(QrjA{f;$RWd5HEQ$^k>iL+;u(5&{UTkfKH>rV~;mk#7#M)q3jt@c~2zGi(y` zw_EWbB!`s5YymSONQ1kHge&t3B^n%14ZutcYl(P<7EA+wNTHEw6?L9^sQNHisP_bE z8jCU7i&G2c1wef|M~>44s7tmcrkeQYMnL_olt<6&d~>Q z6t-0@V<^vuq=Qfk@KKxzybcUaCv@VqihwdI5XAx0D4RAdr4@U6 zETb;;wTAwD17yS2-8z^=kqjl`)9j%X@it!W9G0(azK=R&?s ztT#n87VYXDv`7tFSey|x;bv!}l9m}G6Mw_%kwq}PY!vh0-T3QSbX*lpBe_rcE^s(+ zHXUN3z{g^LO5gz7-+c<(h8etn0p~%RZ&y~PGcX|57i4t4an<`OT1JB@xi)VPwhDH$ zfu-~Kba5YD@&nh-6y^J#o%?M2m=iT<_UMV@X+?!4YIs%C;QK-QqG1RB>XA669SQ^K z!ZYF4)HD)~=I_GpO+5C+jJ}?!-+Z*#2OlUpX%7B(M0M`qp~VHGBdd(cQY+G_M|nIf zRIN}ihwlKMD0;}f;t0h&H8FDfZi!ZBV0r^~Z^ngh8u_(RgHo=M;J}JF*iSI{qP|8;@G*`9C zO115Pwm`87DD5s)cpg_%xG{lZbP^4D=gKxpIy@II{A~ro-j;)AdKw2`CBaM`ey89G zwUmX2i;M3Snu-TP-`&g27VwahvD98?R<3RbmSqR9vSko>+LG&c8}@=E-; zc-rEE`Ti9W6(cDB_?)m{&P>`Y5{cM!cLy{rk>w})n33zi;PiPG5aKr{D`2eM8x9zG@Eou&-3_+_1m^+HF=#S`b;*s zhQ46UU{P~Ja)>F4O-R^~?U1W4OFJar68aWEjhZ~_p@@FiHdBdNr#`}s+qp13|6a`b z1E9yZ5Caap6@8@hu9H?P@Vl+CG==ckIOZbU?l%#wwh~=0aIc3-y$a-bxI!RO?>zek ztcVIn;ID3x*`{2V$X(jr%wOQtm82nzAe#4@)h*`fcd%vrRkeMNrEO@`^`OL!qaIYu z6&@CMLttS2m}kmhh?zGgL`_ASf`AI@VfD)nGXqukTd>9pGlw~;EjxMo|=lntF??rH>a6e6U z%326|e@LnYJpr&w73GU#;kO`pT30LSV1$_=Bjd+8O5h>zFI(FwgK2bMYVuq){Q}0X><(tz^ zh(urB^`X0uGAC)_n#w(uC#axzvRqi~cI>pvRK8`Q{Fr)NbcBw+!|66BvbA%u#ON?v zQOdXO$4s(nCLovdI0Z@yp^f+>gg|oYx|B)}k-++;JnJ8exa?nS-ZJnRlw8K+MxS2- zhLMZXYj#pufWRAMTg}{M{LC_c(_I{4VLNwc=8AX4%wc30nuk|4qaltOP5-Rw;v@Zi+J~VEu}rZb^^^ooj<2sNQrpQYZz4|_ zp=09Y+XgfCKC5sp^wzp`Hpbhf>FWyMtyy8Xy+>;21{&9y)^v*x53VH_e=JXM{fZtL z%%r_aOwJJG;#9ypWn~?&l4xTiyJza?cCWoEXXTBs(awx&rMfwW?i zN|3XQ%$dO|Jb}M2XsAJDF9jX7A=wrJ9ke$NamCHH$+(pQ5BzFZCLiFD$t5+1*hq5a z#&%DA4?n=W!t?uA>*lPyQWWv6HIef@5MSFNEJ>xNwW^XHlJoStv7Jyb035W6JUJX2Iae-`Ogxw@d9m!wHjDWePVue+*SNtsM z;!`tKqr{SU-fDA!eJj(1m2&CD(xv5`VZ?NI0_yveHris((YeOIfoo>c!S3%YbLuU&i$09xMJLv9QW-hh*fx=QG> z2lzAb4~i`v|DDNK@c*UgCT_$B_V=K`vfp=sA~irFLBs;xf51UQYimmf_;eT@IC${0 zb46W>`cLnmqqzdY(#shD_XDJm&Y6dx`BC&8R{-jZXuCX7e0yD+x!)DuWJZguvgJ4) z6>@w4-vN6NkNTlELM}mM2XXV2xa{rI08vBhFxnE7S^Wt?{!VQZ7`5bBf^X%+g=}Lz zhzS|`p53Nf+}ijHZ$>_SXnxc0dnb2kUt=ZXmNUXpS1cnd4&(b6nHPxJ zEk*;HS~e{u|53F!9-90H4}TX}3{WXR#e(4J0z`nnZOVY@`?R|)9UVnOqSs3~OZNgJ zPt0}xdc@F=#=)?&!!JHn)s{vC{VzQIn?_>SdqWkruCjgi61hBb}ypX!<+~4P7*U~Tk{so;pfUTl?0nQ3)b>omqMq(G1hR!|sI#4~0 zKpp7>msE-7R$-5V3;DF`OT_+vKMZq5J%!*uGLW7 zGc66wJHT%(o%PZi16t4^K?ja=4uA^29*HMjqS`erojMT>6}<^@OYbUOI{c^UhWv^Z zFkzR*!VBUlG?5G7Ui4yMX3#zOU%sIC$y7KIjI zuSI%0rDVvHI}A2)FUnu>G}_-#a9hT1fO%@}BNvUtHx88qevR?Kt7A*gD4#@+}z81z|3*=pdJ#$p3>zVWO6mlpt6%mvo!&H77d2co2*(M z==ox$pc69TtYl1DP$x`NKnvWXT(LyX;IhnVSbiKNawHH6E8^IgP9mQ9P5JxTS0Kk* z+daE!{me28O6tuU4si0{H>z%7l#^DiA9x?R}&jBl{7CT%7B z)A=IePj;Y6Qd_Jn$cRttW*wSsmh4N?3`PpY$l^ZU zA!a7s7iZm`>LrUBLNaHImpib;heCxcJthNlwXHv%rC z7~MDiMA7264E~zZG7kXmO!dTeUN&$4{$SWbnHXzE-UJk6cYC!2N5g01Qek99>l%?D6jzP;IAg@b9`Tr+7{T# zh`EGxjw7#+G>8lVio7;<8O^@yuS#4j@(`*%FvE5Q%2fzUFGpOsxJP2E!Q0?*9U94#p((pgKj(#Y%B?B=GuvDa z7h7D+)qB4K7BWWV>KjtnJ4BK*(?%IVSqU-rZ_Atp94p-Wi^t8+13}j;r>AG&h-Gx$ zUuJOTmn3G$l~OHnYY*XQiwx(_Gef=_u$+K0L^qC$7#VIQ&m4&$sg<=XRu{3!mU6gX+ct06?SQ?0uqB&#yZ5rbhQiqi5&pD-KB^_A?YLn>*;~Psr@voa+Bp7 z=h9F&_pPjghD=^BP9@LaN(vkqkHMjoR+D`BcbB21z0MEU8}CD8Ga}9)lpv zDkQXuoD9HDyTi*Ep*0vt{{c7~-Lqh0so6NcGnSu0`)ithyyguf?AA*K50>pg$Rk`W zDfQ$Kjl9L_qS4=o@!b>O$&=b`8XA&(W<6XMK>F5CH2`!h~A!)`$j z${6%Cv-waWC<}FuG{Ozz24}bu>YwuLK!-OAn#D8V0kg{>XV4Sk#E3e(FzcPLFr!~< z9Wt%Ol68?J1;B2+sJSu*)MA1-ZOWqLAJo>@$23qavkHO`(OUlRSDiM9oi^n6oHD2fy6%^z>HQYbJj^(s)!i}|0pl6?QY*2>K70tRkbL|e~Bk|$?>No zq*^Mg6LN&^+pg46R2?{mD8!8DK*xn&$G_pn2Kd!lFncB^K~6`!dG>9qmPBAz2v<;p z((DWs`zGY?Das#N{|#ucq@1TGN?e{0Q;BEZOwxrzwrP35a1$KEHVZqXCc9tWrPaCj zaDeh)h=ncWFUx4Gv`~g4HAsR}uWoCedcJ5e*JHCUz%|?Wt>UrhonAG)hhZBf4{;(uUR z_lvOHvuQ8e@mgYzJEl5U4guQF$9ictLwJSYWH(onjK@=hgv;gq&kGdqaUP^UbdYq0 z36#VzhyYgxj@?eT;@L>yCpU!~0humaw%brBoS$i#TP6}hW=#o|J85AjSd4-1gXU|v z^G}XXVyIAYq`h^#`Is|R`3KzlFAn6X@54xC0J1r>x^e|FQu-1qWzT3gSg^TlM6`KI z9GCUDhSe!!eD{;R0c1c@-k97UW~)YVqs+9x2-x; z-~0}rinGFhUj7=RskA0?Q)CbpE50iQVzcAfH}$deT0?9+VrEYK~-{lvr)STPH3AepzZdhJ3~Ng3ZnfI!Ad0@OL*V1z%*fiA^_GTFcU5j zzjep#4h9G7S@`U``PYnrA5!oP>c2?}AriFOowLIgKj=kK*W z3O^&n&2O8^JTmB(@s%(+Io~C3Z_<3f*O7{s6EQ-HnId#|G51pzrd(bdDvD%^Jw!+> zLE#?dP+bc4V?{2ld)FhfKXp&oSG#7gqnqD(TPr_*^!-$Oa{X6QJ)MfdEsymje6c)a zrPxN4D8z0Z^~Pr4+>+i4M{(Zk zU$Q*Mqo$&m(!Xo!f+)~%>En)l!GqTtnADM<&Zc@34C56g5=sHygX&P=sqe7wa-!eh z`wEtvXaegQ+ulg%kEyIHF;_LXi(x*Pm-wBfvG5Y%KfR>94i}I2>&}67*vmboRd$mB zLQcZ_bzpG}Gj}u(04V0a$caZ9Jh+jlcTQl97Nxy(?X2{r*@Cmg%dMCQhT(<-}bIG@1gsUAze2u51EiF$e+jx)xjz1)%SmuXF6t_g{ z4!fZM@O#nVJ5>!Q4hA}Jx0s<1O?exC3EfNo8t}q{eo&8Z)#rwTxU-5_T>`Z>C@C62 z-E3E)Y6GOF(BPyCjT6i-A+ctJAhDl77wjeAnYK$&1|#TuXCV*#x)wB!0pcY%^biGu zp$J1k(@}git1wakfyq+bj0W{6j86l~si*@I5e^6%csYRwxa>BQROXpnd6Siw++qxE z&J9tx3A6St`}oAfPXXTZ`RuLr8-MD#pPqZZ^u}!c zot`(J!q_XZW& z8?Q5`aDlFP;Y-C4Q04fOQ z1|bn9b{UBo3Alq!ANn#f2moJ+Ybs$}et-UU!=JBgetO$)y!QZZg-};gkT+)2C<~~} z5-{hV8g`8)KzZG~oExovw0p*jRmu+_FQk8*Z!_$gg6fy-<{{D%Ye-bD^@JUcTy0rCJRZQc_mv{-UQ)ufS&{s zH?tnFSRy_?!ciphIX%)=h$6lL%x=09KhfRB3txPv>%a2Tk0%{83PwWda~ejUc{;)V z_H9vO(tm8b{q&u}D#C0IdY$2#&RjZGJtmdhY*V^g}#L>?9V z@e}-XF6hq$;Nl?tXqW1`5!?WDxKAg1Yi^suz?yBCQvYl*jBlP3S8WkjE&Y>!$WyEA zs{^`W8}JaY8&h zFAbIZarFbWn2M4ydaJhTih^TX)a6Fpd$=gZjaWA{=a%MZ!`zV^?CL_(JY`&mPa%vhD`WOGl$il64=>n$n27_fKzv8B-g+ss5ou{WCr>wfN~3 z$7_;=&FTQN`6DIfWFqD0)RPkg$rJy-{CKsjM`&4?7B8y1N1y#%;Y~S`RZuyD=en-= zQF=Yt3hyHFCLBjJ#>6}vVE7e2hGcau#o*b z(=Lws!mW*!svg6)bw>;Ki?8O*Ut-v+^R&v%jN!5H(vCKLookl}yQk`4&;Q&i4GE99 zq|Swh^JrkytqdNb&V|9S6(9UChj)Kebj+{#X&j%l0AfB)eJxp$y_(u$~$W20hK`|HmzskN#~*}6{8g@SgIBRj0{5KFrN zCY=}7D2ofOBU$9&EXNXS-F`}X=$H^`8s4vUk1h>xk2|9xzX9%f!yaM){&>WnPNd%c zkj`J0T)9;iLu|bM-CfK{tK`Zr#Ws_WTX$9}+(;CWbf@2$GnWl|B9YA&Q21H<;&}Az zKb_KeRHU@sNF4XBMPVB{SkCG9XogJlK$}(wjuAb9n)8@^mUV ziuedymS#+v(%_e}t=+4*@WFn@k@T7eoA0h!jh|WfOxIl!JhM?oEUqhgGYpLe)Z+`P z!|G+&QFTbMtY-rB0=E(KEfw8o?=LReo{2rZa%#QTy>a26&O2Q`qYAjZz5R6a1$#s1 zYlE0xp}LU#+ZNYYUZ@h%v%e2!z^B1Hu3eiTIPlfWn1`&;D*25hKSJ|tbmEU#oOPbM zmf|uV;Opm;;dM-RHgRl2)p)0G{zTGQOSjWnvFDjRKM!oVM6A7KKLuvA%kzlJm-*^o z7JnnGZpDxymZ^xyAWv7f=q9R3on_Sx-z0qdas@M@X>Qr%@i{BtWZ1U&m#uNJQ05cg zW*`36<D4A!mtJlh|G8gX2zojUS-PAN4qM7}$| zRoa?{;yp>LiA>iOR6C$K^40w70(Dpq8xZY02Y;8Y?4~PzhpS7r59;4%utw;J&Am6m z6U=4Qfggjaa9#MV51I1dQCb%I>R5N-kz}=b; z@r_O(Tcz4Q=$DvY3*b|zy(q&`<)*!;w}TEakW$P5X1f6l7l-o3H=X%SOXHp&=)4x? zISu-ILJGkT`P*(g_oi}6u?}vP>>S?d{j9j z)+9AQU`te}_L7XGKE%Hll&S>BEmn6wi+vSpu3lcaWikGze~!HU?)L3rLsH-9(YS~V zW)!oyFah;L|GCm~%a}gXcNEaCd-l&Kp>F7%;x&If^wMzWZOnl?s0+G3Y}C0;q;dzR zyqZv_1g}tuX;dh9{S=gtFaakYhGvwlSS4oE@$@ZZNm?hhg;5|RMS^oT=YaDL-gJ01 zMN(-ELInQgRC1NFv&d{yO&n^--VWU(R3Ly{2G4W)HNO-1IA}KT9O##r>srRdH9-=& z6(i{4GoW$V6~f1z;463#QNq~4@!+L0yio1L0Qen|!qJYz>9fh@Rp{_RF>V;m(LwFa zcfS4oiIYOFr?>Zp4ke9C0R_TI7c7fNbC3`ke(Jfzebj7z!>fnNCeME11zI;`{jRSL zp#guW!TNzHu;$qlRRbX;gBg_E@>)OL?#10;#+IP*lCBk$$-*`08bCB0XQerkQ`g~H zXjACO2rZl-;8}rW*{(yi;}Ky}+fE$*pcV55gN4>=cJj0&ePc;Egverk7k>EVvGooj zuZvjf|5_$k#<}x0AqUX^eQ|&t`l_h2LE3mXGBF8HYkL#u#I;MUJXt{=^Dg7)_SfG> zaeaGyps)^AP#6bb{Q-|vlS;(%x5BYkE8JW+M%XW;i3?m+m3IeH$dmTf;Jze0DgE|# zM1j-9&^0c%-4u$1HOga=VfC}!8UQx0z^iasRL$5xf&4^7sLnwqi$hA;(kl50>eA>- zWT6vX@_-#57EPqO21{=5Ct6Ay6#8|6O30e$c;;02c=>qI>RM5vqY(kHr?>Zp!I4WW zyH1K!#$$q1bytf@?#G{K13xJ}UA+Ogkm$^%tGzG(ep7XFkX+}M^mpp;ni6$rbpstV z&onvyCW0>^or@GGHgmuoYjOpYR7ePkB(LR#c*0z0^f`~A8sM50lFi8s39piEQE=yW zBxW%|3wkctv}SraLT7{-ww3_Q&srk3Ep&W(&??r%qOr7Z30Ax@^qUbZMtyebG165{ zU_Wm1J8Sex+OZvUoo;Y47#c_fNE!+84GU${uv|3dF8T7&z6O1KtKO0QNLi_K=00Z? zNyvrL0?7F>7}5d-z&Vt#TyJGCbMQH?tC$RaCeuC@-_-zcX%(uEsSlL^UR-m~Ozrq+Y=8mETO1k(&TN?PWRXOgT4GegBDn-n8`e zV6L-!XqWPsT_Xq*KV{lUa5||W;sxb{(VJ8!K2c(Do!Up3$6PzHBUEG`dcOu`Sx z@*ln)H&3a9COva%JSLq2gr>xghI_Xs0*iZRi^o%mv*B7fL!d4b3BXACLlR+sFrv6{ zAoB)lmvg)~J>YMmVayL)x4_J#huA_PhqQ`+g73jaLb5=zfEYl4GM$Q~;A)#4swx?X z4U7ko$qKEp>uR{ck^qmpmW?9L*BEu!U4k`hiC>frKfM8_g&#op9;1Yc4K#v~$+wVr z?5_s2ix6PdjF!Z9c5oa5N3X=W&WX;_zf1ydQI+x=JPk6Dw6k8BA$7`2yeW{YK^oa% zRgIR|2>YtTCfxKYA7WrO8=w(d+3JRuiq9i?m*gyay-ivL6EsF*udCMjb3)cSHBRem zkyV1aEiJ}3K+3aXzUB^|>)-QQdNlmruARctV`Tl$xACWvaSS1o`bgr+3kFDNRhty2 zYAI+Rb7UhB-!TB1_|nynJ)pt+Gr}js8WRM^&Oe;}=HSup5x^sonqSLkwN_ja@P;et<=$n)yO*PqP)J{rweSPmfXvI;q)~4nGORU1(aNW!sCuDH@ z(al&5cpmhL+FQVGyOGrXybyIp7CmE(=g|4=)p+cIAJnKW9;RwGb?nBE@^0C0&z*v-FE%*N0p%6*Kau)84l(<(` z=S6!>#nQ3vN0Kk+?^Flk^bR`vTNyMY{i|?brh-CZM+GTdZ=5VPR*AY!k~2JEV*sZRz{70JZ=mY2Pz zpZeZ#-Q4`R(yDbzaueRobD+d%tC4xIMk_ogqg|OIj!B~HR({Zm$Q$@}AEfRGe8ZcyQtR9E0nQmXNO zP;8Zh@6PsocYP4`E72_id@Z2&2i_WOzEY?=|D+@CiViy5j@y6?{^PK%=FIpqrRRwaZs+uO&I? zf^-l$mE2q*9(=6N5(ryucp4Xv!nB|`x3H9qDxu~Z;I0ue039`5wS2V*T&_O*Txo7B< z9biQ0Uo-wEeZ6gxY3(0y>Fe~lp2n9Q#4HiJ!~zUWZAB7@3~F0VSm7*7T#+}_kRz{o zD4f7md+OIDKA$h6Zb+zYAE$Idb=8puZcml$I?pbJc#|m)vFUQ%sQ59cDe0v8QTg?G zd4w5z`4Un>sO30Zik8n1j$TqcapRc<#$ab9-7_T;H0 z#;@dL^A7E8v8>{T&e>L7r%J@EWEY8S74s6B4ECCQv{2P%x-@#AoA!pk#T}b=-`}(5 zWyhCb6u>B^IL`W17^R+ z=n3U9uZ2XPWk3EYr`~y+F85El3@5?4voQO}FROTUPZO%t$Q6Ljv~u%<8VPY=MW8|2 z($XbDZL1NAPH<5x*rC-xyF{E>Q9>V?Kh7^Cbg0so4LrK*0C{iIr?{?$lqg6f-`UsW zCCFl<)SwM%y&U_Y$}ZfF$+^w<=1_e)*O8@3k#8Z!lhQ-N8`}zq%h+$VvJUKS zP&~x~p`aA1xq^AK6X;&okCw&i!7l|^2W~EQpCnB`)!$F#7=h`#04gi7W_vJWiStun zL=m%Enp~+1{U|41=dl)&R-`B_CrO~x-9a7$OB=4&!^owl&CbrQ-{svhwx0M$|HMvp zJ+e4WIlJgYWTQ{qzfWaIav?hiz2)$rIHk+oljX-g3W6Pn`1(gh_b#vYO;}^7h+#Gz zxy_a|t-A>6d;(9z!ItvXwh#(VZm>@W)3%>vRy%u6iVKL#MgO-^Vn_<`U5ysdBtUII z`UMzPK~7~Iak=5<`l(Ivj?gf)65{N8QCSgSH9tW7kP$K^sd?FE(n#AaH+c?Pd`&k4 zQ`jkUOW5YpH*utB;)vK6sYt8_xq*7znA1;)U0S$a-OaEy)+U*>FbFV_fkoi5vP(XI zxlBa6)P1%t8Ivl@41snhCTFT6KVZaGg3DG%CCx(rre_g7v9rTVn-wsRdeQC4|1+7J zQ?Z+4PyXr{dg*Hh=CX+efa@kKItM~SUYaALOo}HoSKz)Zd_)_^d{x@#cJAD{onRoR zU)4_V!(wy%iO;qN?+aNCG-GJh?wz>s-JsLQ_ZF9_V$AP7u4dx9z-M{BU^YzkZ=p=)n$e23cZ$ zr?d;Yfv_4|%$REYDyqg9RI-II|Z_whUI6p6i!YnuU4oPl$jIG(p6RBJS|}* z!=d`%^0a8&jlwVsba}7kL{$BCFP{9GtUDRhxPFzig7(LaUa5-jSOq@Sj@`FjcqJ|@ z28tOQ%r)JX^3(m$iLa;IeT|FxR=>Bm7ai~IiTmue;Y!u7Qxuc%UR%G5cthWr`21xi zk?;xh|BhjQ>w=#F?!u$*BSD-_7R#xn7FCf}B$?7r{`|#h9yA=m-#lFR^!yw_+Wl93 zt+~+o?9Ic+zb*acY(;$kzY(_-8NPT(zWK$T{57R-`I;iV5zzCjLK}V7-w!h&b*LW2 z;`h@g2nolu%AaRwel23b;)aKX#>W3q6OS%Q;C*%9XLP)&4ETUtVqF) z#YNOq^tB_>|FNhb1|?_vd`7jAD#5IVb)a`P*dlO>K)DHZT6icj?Ix%$8Pr`DAltFD z-=bvTeM<;V$myn2F)6YwWW6K5#*rB%^6w>jWVPMteSFV0EqpLA+T~-1!&ysCi+&uu zOK1;C$YQ|RfC?TJ<%hNj)N8YT$GQVI1Y8*YtQ9Q>{|+~U5Agguq8JJdCpeB|xNR6z zY|@80n>o8{*SRGi=M|o!OpgHVryGFCRSs6+)V5UsT4I_WrP-y*GFat@Jwh^QwqsJY z{ZjEZ&Fpw?dJ?Oj2W%^(v--V^^$$eIXhnroiMLo%!E!~H3asx7K8J}jNE_Sq@#Opr zmkQ|npsR4jxaLdcNkP_AcN;Vf$lka1Y$FAivE%N%JGye=^iylo_nW@jDysR8@y1C zLP+8DYMa<Fji=x2of{^b&Yd%+=>ET6wAx+gO|&?@Rh|&c`occuwV-X&r_U;H za_WIgT4~)rhZQQ4qOpHAzMJ!sW!?H?F6G6E2)l8g$j!U0e-K*t(84s{#7p3x`W#&} zywT_2NXB2@yb%Uea*?v{v<=nDIBr;@>&@1ha*@}<#h!zi>YO%+Vd`2wY)##KANcUj zBEjvF~$$PH{q-l=kz#zxv-eKfwfK z0dAg3+CrLsqgJc2m~9>v_*6al;B){PpelmpLOD060Eqnnpj43LhgXJ#4K+Y&5P$<} z`;^{<_fsQY6YXiurYglWC3ThF7ljL|>lOMa&!|wpJd7?p*ZQ zM}?y_d$DFdN6BMpOD4_>ZuR-=G_2t5h9u)n>oLYR4BKiILUQ?UiHz zLRrGya{4%|Xph|iUV5M`DQk+KsseZP9Xcdmf!e$f#s+!)ki=-q_f39oi@#*uOuU z+fqO=Ka2=cx`N-T#P6wGd2ln0CBgZzBr1y0F(Q*s)E<~>4v0>;L?Y()LVLt4SS{Ie z^9$Y|vm&cAzHuOZL#zGE!HPb)^#j-Cr|Z)FyoD(b=Nl$Hr+kbnI|m27?mkNTqen6h zlTQ7&&^u$Ll&Z>lHGL#wj1JuXXxM9Y*zw;m5?oiM24}@{*xUbY-Hua5a`2~4HA35Z zz&F(qHl4bgG(R|Tq2uG!tZncu+u&Ngb%_kSL*-(y)rK^28m}+LOHz zmYf|Ri-qo7;3$E~275W%O9d`1eA^|@7LLmSI}YsuaSYHom2Kv|gHCaH)_{^+rLba2 zjrNViCnC$T<_X0F+0X}@A;5&Q1Tb^yxxp{2e@J^Y{}#kipMqhv2im_7M0l0>F3@+A zG#A0qM4(31k;wI0cX5q*d|fI&iy2>Hxt{nJ{|H=~R=EXO5LE0KD{c92)>pBhn!fk9 z3{k}W?mF9)r?-aKKDy@Xb#T(&0V&b?Qr5{Yb+V8EYOS4PY! zDQgp5fLUUO)Me{-_guxokC`6EtC_*N567U{ZsJtMty@sz^{5eGi!-;Bp6_!z z8g?$K>|8DPVIBE|OK?w5uurDPw)eq4(}Q0InA?xFTuK)wXq&ahe*AI3?)XK#Kl)3L zLjj?FC=(ih`K*~8RyH-QmOfu&Jtmg3@+3DWL9ya9*Dd=tH%}W)uQO7K`nty)rFNG~ zK-JmTZmnX0*?Xn&mZz>=bXKs|ik92M(n=~wkZW_x#BvbBo_yQNnm&Z%<6(Lh!dD^ksKx)oc3} zGAykkQSi6ESI41wj^rns;BQa&+rRChfALJ$W8kb0ocYZUdX*)6do135R>HFX_|fq5 z=kRA{#d*Vg#amIZUyMifHd|tA!nS;Kh0CJ(#rD2^zXbcmm!88L+zsCDqsvd5Z1;T^ zytcnQA%^&*C?;`2IK5|J&!1?w9#5X?T45pf zsQ%!QnHOWo7n=@GuVB46sdy(pC36i03V!x_tBYPX7L`k~=p8aJHG1kQ-PZSZccy($ zP@z|1A?#EeN-K10a>whYVh%GecWMLX*Rtfc&Zwjz zo#~4gx&eS;?sji=@u7Yd=u}J`3m7ysX_pqqX?i6-vjO}+A2yHEk>;}G7MrS51|z30Hy>~NApk&uLM-~%zvwFLTNJU zDw?|ilL17J8|~-x$eA(v$daoJbT_QCd%pYS{Ojnwc$|5zS_q6GOfmM1rRZ08T@FkId(FVOlgInW$#ul+_YJi+@ z7RN+)PgT~V7sdtrccm3>O9NP1BT(D?psq@Q-U->$Wf%30SwdYuo7G%TG7qsXzaXGl__+@-NCkz@k6Vv&?0D#uJ&?6xk z=K)xP))e`5HgNC&G_||a9{QZF#tr6FdL-67nuOO-#Z_XNC-mxpW4XSEZb%cv>&ZU* z(z8Q(>fAMJ?Je%zZc0)Xpxm?0jfJJaz8^q{a0NVEq*~%106@mQ}t{Zbg509hXm*0Ys*$+PY!$A=xo#d>Wqa*L&sbLtPEWYHDga z_K+^tVA7b}(LOTVr%R#XUbr{H246vsL#3R*An8D1xiF7dy)#H6!KEQ~DpvwE66DuN zRvl;Vndt!db$J#;YUzl;~Zj3Sag9GoAuHTiI2lAt})082bO9A>~#=9FnJ&fL5XcAf3>nSHO)xqbnu?NJFSq z0y+T{K%usMB4Yl-oVRz$tw|B`1b_HFkrx96S0At4CusJXZtE(Fe&uZbiRmoPiI4L@=Dh`u82nl7ncBu;F`fxDN=76aq{%+c5O~mH z0M2RbZ|7v;MPNEXiLHxbgpZMs>YzLorq86sHkAl++@Y|6cBBypItd&sfXZ_~yQ-p9 z0RTAWtS70V@i+%T{U4pf5PmhtJ-~pb)9kek6uPIr4voU|16rqzP`d}r25_7cHNST{ zMhkrC!wLAt&bzo`XfQ32;GvLA9jGGLzHMoa7p}!jVg>1f6Ko`9okTp;hDb~xjY$wr z$d~hgouX%5)XEyTtg?eV{tyA6$6-zKtizr7WgI3uPbt3%`Ak_X8*Gy=&8|_N#nMWF zwvoKr64>2vn^R4ae#`mMsqzH#Os~VksPYQz7p154Ih6Ma zA4JEtx#SPJ8z$(*Zd?fv5OxoBR6Jl{^$M1F2p`{4g;#*Sn!P?K1^8UGPf%YS%fmt8WFGxYT!+^4&As4+)@n;38(`;6QV# z6&5~N=A72wXaE5J$76#N@+eidDk2gRWVQuMvqCIwc0c2W_t-7xsM_*-&Xv{FP5nAu z%LY{qpQ66zfFlXQEJMt(FFw0}`*Pa1wAOu|w9Df4KFRiDV2MLgpqbKrK2ZIWapP5~ z9fUve+ltc$Oua%bhox+5BCb9#YruMnsr`Cyaax{`hiY*0Xq$eWi-}H5hg%>~N?HL3 zAZg9`-(T%qe5pGvl7lHIjR;Tuu;$xk|J%pwLlM@s4i^WxNR7z}^o%S2-KaYmou8BV z`ihgl^WF_!_L&Oe1QCDsz|CxS86nM#B?bnybuHWUn0_`a+|U6=CZJU_nDSy zjjQwehRLhf6z6!^9NizYaDzzbJfMlbU2k`6}Qoec9ygjrR}$%84s! zc0@b5)Hp`i4mCiU%{{~O-6Q~v!&STZli;j?y!Lt&YlJQ*SVEezI1tWM5j(|ar`;X> zI8FgAsOGl6r%_!8hT!k_c=Tm-_5J?%qfwXZe3hhLgC6H9y2j818bHR}p+8f_*xL9O zXhG=xNfzGQ^>~O$BlGqKu^2#PgQ0>i9Bf6AN=ASv69PB%`AM1py>xh%2_U-w((ior zNp!3G|C;*_xTcb?(THWmwGqW-tq6fA7L+DM5izS=q$m(k5U@a0>e7r95m!{=DkTv# zRCN&~G!+3MqOM|zQe3J60hcO8qOgcyduQ%V0`BhjegF4<@BM!7a=CZz%sFSyoH=u5 zGI#D7FqLc!7JNX6@JUHygDP{%{5S3 z3yl$Pk)s#f>A2K~`{GIP#Vr8cgrx?Z01G~Y0gbvV5I#9g!AT%~(5%}>N6?A6=p_d% zrOV5{iFa)nbMg@?k3c6sK3?5zB<}k7aHv*9hS0fkKYzv8# z3cy-;d+l1VqVO&Z)}W8^wT@4R5_$xaier7Pm*b4DM}7TjIFWLGd#Q%`zm73{d{fS` z3=#>*Sv?rqztI78l&CST%i;^HhC1KBwPba>?kRHh?e0Xh%TRtgta-<%uuc(wm+GIt z_MlF^nLjL)fz_8Ii;f-_X_p{csLl=`$y4wa&gG&Avwd^@E6tCx%^{5G0us8zsS0lu z;BbZqSS&DX8t_FsCoju*?u{4cA1J^KC8k}K3LRRJKIq7;)=sD7*Izfophpc>^ZdU# z?yiqMEI-+MIj2-W;ebN|GjJNFsew_5 z$8y|-7;IT9T6kF*-tl~^En{m5tzmdqR}qIxf{+Js{SC@YgtVoSlBTN`^&lI9o|FGn zP5B2h0Z5&G_dvv0NLSE=H<9~pX40&Yo$2@{4_`wn;=0`IhkN1Q_CGA&8EmWA*Zp69DK^<)se3%tl;5@Iw7 z28Df;LS#Zk?w1G9*L1)eG6B_BV8aP1TmteX1gsmvueB^#mJ3V(Dcvdyn4HjsRk~H+ z&QzL(1zNWY4TQjkFXWLH!*Un|@F)%>aCAK`1}XJ7;@vAyB^Ml&@(7X^-bP4NSbYsj z18rTJ_MZf_;Rnk<;Z!63M>;SovL0D$C@d6BQaa9AJdA9czLfPI4E)X_n-&9K^dqel zvxu}O4x@n5Mi6B{)HtBX28Z5J25a+x3J%FJ*OJo01JoIf-nF>vCWQY7)aR%v{H8D* zWH|nAI*3hVQV5c0pn*5Hu@;3;e3T@qAjDWJ{J0Wx{!JzXAp}9_nfNA+W@BIG*5Q0e z98vwv=At!rpa5cyq&HW-p#w|;IER+@CK7h3^Fsm$zo{rRaxe@YgxMSkj5L>I!*96R zo(FaWo$@{Z!Y0U*NOmMXFc?K8$|yD?kjp3NFktJO^~n{T4{{vuvMu4e4_NGxoE(GW zpl`p>`7m%$LSq2t0lqB2#~l(TrQCw*5gLe;5N)c1L;Rb8v$RAF6l!U-sQ=Pc;080z zDZc?$>PP`$xMvP;0R6y!^cb@}h6gF+KLT;D!RPb8aDDJ!ZJY#>(0_{}n8hG)kv&5; zTLJ(k9Ko!E;#j2MAXHBwA3C{yoC7dlWGO4&uRo*3j>tBRmY%vGq``BPK9LK$TE6v0 z-S*K_6%_(;ZX6iz6PbW1KhR@W3r1ba$p3!8T>rmEuiKQD4pg)A;HMSQ{!t!@sB{Hh z5}qUs!x&=$|1j~Cw00jX`GSG?--p6z=<#oH_~0ax45fziAESnZgK5y`OERKJx>D#v z#F6mZWGsLf(tGUa1Mf}(aZw{Cbcvw_8rl=i#PEI8V1SGlt_`O!3`LqNg(F7oNznJX z{ZFP|!YS@%oc(X$+F5QJ?P^cvWleLln_GKRI|~N$&ujB8c1eb!=8{GR{l(oHm>@x- z0jA*!r>e9Ama>BX=0&M-5+DNf|L3c2H;m)D{Og<=t>{BC)?e>t&7Sh@CE-DoK_Va@qi_*t719xRKSg3%@2EX8?rm->f z0IB#RCZLD|@CY;|(G-Cs7@!e=f`T>KRj7u0X6iL*?MdXgiJNzq=-qFMW6`c!MPt#WMg{3=2}n< zGqyfPMl`U+z%SgRsV2^x6o3MsC@3CI4uv~fYD`&`h$L>&1PtdNx3*D9;%Nbte!#;e zCM8S+a1x2I@w0?uoETnf-$IfJh7dUjnFvsT1%-e+pe)2FQ>92oD0YLQfC|Emrm*yl zX*d|dfRiP@Lr{_@ieEe$ogjcPQNpo^e-BHQg$nZtpkyYfEQGT3V{L*q4B|ELEOBw- zBHd(c2|#T)DKaXAGX%TzX)Fp-fJ#Wil^5;^(^(=$(4>BX61pm3vY=Q7Po(6*7GabQ zL<9#C04Atq63VI)qmuQp1@OC2*cMGiMA2C(zKanEG~&vlbZLxDg$EYJWNgf67z!H& zPh+SUk0y?Zg?1v%LICk?{Wuuw8xSc35fDof>TfI*8AnW_vNsdD=iHBUo1-kif$&r+ z#zqAPwS@~2gaA$jo}m_SC^6AQvF?^8SpW%KK{?WzA7vU*lAHkNEPap$B&kFMo;Lxg z@ofsEOZ9Xk)g)R#`4KleN~rk>l*|&N+eE-6Q98U{1;CG(OGS(lmPnl3Jn>NNhiVg61K98beDG1S}fc zkA>61siPbz(Tm6A%f+qv7!vxlNUAelp-P0+A~=?XrUTfh4VmDQ!3kqZ7Mv6UfDD-7K9Kz{0xI) zP`cnT5mh4S7J>~!G^3TpAkh9g@D_qs0u+*ML4h*rV|q%sLNhE20Xt6i8(T9 zi|Ep~Xn`&)u@dir6Dz$@IVzzh02X=)ls6EdV#=tK`unLwLs8@?00_lETuO{NJaoYb0&a*(rIM8Ae25 z34hDe1nJP2I4WuduwN1MPxB#~QwR}Q2`)|uARPep86)q-O0)=0BsE|R4MOK&taO_N z%}i`Epq|P47NCJ+0BO(=$xy{iXvEP#)DP4_l8lrPZzw1N3M}oJSa<~0kL{Nz(1ROb zz$mDX5Gf6Rly;|*wxa<+1Yxo?143v-tXO>zsWE*m7dk!V6euqUV2s%Ck(U^6j8Y-# zi}U!Vu7RUA#FaB#2=hKx>j0-qLJP5m_!Emv9ApQ87fI;$0Ug8uO=54z$oh_fv(pkRW5=Y$_AZy8BxQi zq;QI8EJUA5STU%tE(8%pv;<`M@s5`ac&JKIjyMUBG=k%bWrZ{zafLx=Nd^@s&?yij zRv8FH13a7@B;duUtnfr-`hgh`LP$A<>_g-YFgSzAc;g5uT@aB-i6D%;34602%b*BP z`i3Kj5!V6>(8xFdqA;q$WFm-?5o;LY1jK-zKp6O4{6Iu~a~-QMD1k=ghQs`b&;*qd zQY?5xrO`()l1L&zj@cRP#n4u0wanN&AH)>=OwYgP*LIt;s**FYSr%yQpUteGPbyKEQ5%ksVKj3gK*Uq$Gw1r%h>D}6zC#A&GO zN0~r3Mc5C5pd@1&N|T%{2uiE1&o2RJc`F%jpd<>=zVUDppkxSvc?Ag&v63qbk{5t# z`KF+;fCbwK?`tTdW&%(UE*KG}iQjQV4D7mM019BLE|2t|WtJ|=>AzD~|FJnp6ha+Y z1c#j5qQ_so(9DYK1pM9fzfB2+LCWTLt)I6o>aNZE^08kT`LDo_2=s;po#}XXFq3vP zV^PBD7TxgEFq`w|=hluC$Q{nHGa)&#uwDkOE3|~=5%6iQ-J{Fs<(QH(EF*=Xd*DP2f245*%nyzi?y>#^y*h+OytHNXO>E>z`_b_XPH!Ly(jqtzf zZ2=C){yMT~Un?994GrC2nlI(_e_?%`a`iJdc>oZ0yLUMYRs(s%4wu`>V z=7dukYs%dXA52Z}b{w(%7_;pQfchBc6waRV`O9h3yNA^>-u=S6yR+{7q_75xw|IisAvvi*Gs|C9Rp-yVGJSh9@r)NQ3lNPOs&o}7{7uV3$(jQjfO zhYtat&VT**X)=ivI)OxDt({11Eipdv!}Ex@3kO3(3Xw=vHYdX;(>saWl4(NC%uzJk4t>!vyrt=+<2F~5u0EMY zM36|bJhnB=X1iEcYioEYZ`^QEOD9!%LpN#ejIE1O6s@d`C&$fQoFeGfn!9e}rnBP} z=aR;S?OF86bhCrQ&5Sed+yA)fZdd8itQV7)U!#-x*sjBUo<}aj#XR)^qp`6{t8AV< z!xp|Q9`1D!tMl({V;>?R=8M(>F=6J|Fo3Alp!o+aKq-9f0l(SM~ zjVN=-TmQ=5bG>Xu+Ppib*4STo>1&>GL8tlr@e4Zf^V~febQa`h`mUM(F5knawrcmA z?4mzCZu%~Bc=+&V1*18$4e~D@lTm8ro0+zl8IyDODlK0o=RNU>?aW`fk=ZNU6};V4 z!;P<%OeUE>ppjf&xLkho0()_A!mg7#uM{qYURL1FY}iZc$baeaV{B96FxHR<&W+Qw zda`HIR4Lbt3x8HrYWa2X*|VpY8yOcj?ppbLN7%h>-r+wzxux|7qom>b^ioB|#WIug z;^*z=x-DL|b5$;5Wn5#)lC3etWavb(cMId&ciOdE)){Sa$eUwsmk z`fZyT^?#)MXO#0!Z4*8{L3h#e_VPMV7GGFkY~nCKaiNzoZF2XuOS*n-*v<=>Hvh$v z=EARKx4P@?R8~IROIvNXb0T)?RK)m6q*YVD+u{GQwl{glyZY`&fx@IZ8yd4p6AneB zkno}HJ#_!aA;aT^qR6QL!RHq@mXp@g=?$z=+8#)FZMP58T5^rB>C-?xXT{jbmKfz&?^O$`9-=7BWTSB;wg zG2Md8VcqYK#Aq^ zVfoT-5{Zmc<1m@7ybMTUGM$0uce>!OHR$<(hLTG6yHwc=5WU?+{{WwtL3%T_)Id`! zh~$-7T3QTs4@bGMzl+J_%&G=V~r>0H4eWkT$vlEFTBz7{e|r{wN$(CJ7*&5*D^c#sq?(<|HSXNbgN+d zZmGhWr#AJet7g}wt++GIdR3KYHs^d$rGMIQV7%RHghkIXcRk=OhQ=Km z{?;V5^F^-llb*P5yLql`ZtXnh`pmtNCEGrDRxcU2IGA$NV$e|cLU8lG?vcXx>*w{1 zd{yolxknnGKsIl-_0nJ#_wxB{vG$Im(`~*VUqJ$e7LrI4;`vs*8v~jeV2{`spI^vr zdhgk19`V%YKIk`T+!~+m3@=|MQ%O_|;q# zJm5FTM8+l&oEqMJ9^0_nc%D~h1-E>NU&GY4U@%~8$b9?EeS+$j;9+jEeN&Tb0&K(r z8@PV@@VjbrMY5`!zkLN7Rr)5lUD3HWX^kjwf5TAG>mIw{&gpU#_C2<1I?a=A{ae<- zcMrla%5}w*T>T4KZ(j2UvKPehF16ZoLt;v3w8bzAJ&r=``LEcXjRQgD6bCw8D2x&dX9|y(PD!V%?bLgPjO4|sP)3Td z?`bx;+IL1Kg3I++PvCMGj{|prz(^$3-Xb2`SqR&_!MJqO$01R>llsx`^#{1MdDh@W z`w5uX$zMtu-OFY;-UBN+Ec{Q_U zd$8NiGAC1cx@|^P&qra|k9V#cA)+bi4(7hDN$TOJ3f2y+D%Il`Z&YaHWm>Vg39SlQ z@9^)!Jg#}9HZil@5;}&8LrHq~%*zJW#AnwC8%O1mk<~P$sWsRc3f8zUR2Gy)RkS}y zL##OgOdpq0frbfht7i%u5>1NIo8I^F5{82d)X%zQ`JdzQxEHE7sd`_>2a=?Tbo$ou zK`6^CFN{vtTqW8jfBg^%`eov{deJNBY^R>PXlW53GSjlEkSy{WNFGHz*m~@)Tb`zV zZB77+2CJ+iq%#{k)kRFup7>_RWE~{7@g5(W-Vfak64vG=*ww$k4d^7&v;t8Ozv&}_ zyw;rCfk^K0)Sdq`yQ#y=Urtl$6*Z&2xp;nwpud;4|EM(hHq?vmoP&B{@Ma z%L1Y6*$&%6kDv`pb4T2!;=*^S)QXGLC=N zr4^}+{aOc!YRaFM-<_e|G<1vC4^54mY*t!+Kr9&;C)aEbDEIj?1URLoBMe4vEUrNL zFLWAsIlc*?SUfJb_IgnD7>vN6;^yLZGtjGov@#+OJ~*ZF&)Tp1VE;O^(vnI3c0^ew zZll}Um3yCcbCAZ$)aJ!|9G^GD7mAwR4`#ORs)#3Q>0o|yP?JwU2r~u-8|&aVq1PjE z%I@C>n#w*5#QP>x6hoS(W3;ScoS zfpUjP$HTx8McB)2%q%@C6bg!yc)V*F7QHWm_sO5xi)v^3@r;P>y4w7TEH}#>eAH#G!tJA*R7 zxXlyMCeKtfg3iB#vHwV4Ugqmg6ro6R5HT2DP480~-ujQ$wat{Bptx0z#GVkfWW&sY zB3@@eg=2<}h_Qc1@n_=+fIyNvqVw*o<(giSEF~fCX%0Q1O|XSus7TZm$)LV7n?7SL zNv5x_7vsOw)XZI`?&Z*S<%)~deY4U>d--kcbY^>h#!zuV&~1l-Di(}`;ODzxYL$nM zSUV1Q^76`k8i%}@-3d-}Yw{Ax^OCn7L-gs}3(M`3`c{6nK7-7)e(iy)VGXA9Jo4|E zdFXU!?CM-m;rl~K`XlXxChs$W@#Z%hcF&ylz@MHy5ZmtcgMUV|ZbsRDy*!GFE2?H zAiTRK({Zm-?=RSL*$EB})#a*{x5C5E?$>+h885Dl{3?HXyHb+R(A|P=ZnDg zdzGi2s6WM=*)$YhzEQ7Blt>>)=v0V%sCtiNGKE*>b*P~D_QLc#zP~oPf~_HKpzqA; zs~svhUbCj$JE$TR__~Kh@N(^%L`Q=ztg{a8{NZ+WC;(2R@2k>*npjwKJ<@T2evKp} zPiGYH?VCELFpJGbh{o?e?xv9Lmg{IOxTDdf2lf}N>{69g`2|nQ7e-Tn%y-3oA9Fo} zZt>#x>)ys2`EJs*)b2uh@6c^+p<9)VtNLR;dI8f`3g0^{sIZu zOnLh4frRWjufWEqkEk}@MEfg%TJF^AJVq^~a9&Jc2g1(;OM8BC`ZMY1XMEC(wUfm| zA2!xrbLd9Tjq|DkO22u(XOowR+(v-|14`fJL`Wtp|` z4n1?)yEAmllyn#R7B${R5B$$1xgvQ*lc+d*b1BSQ2}*l*X50zlz_PgBMCX?}<{amj zYjhI?&YgM*wZ6snoYivk!_zM`__CZyTNKrH&gq`H#OTrlqb1A#)Tx9uq(ST61RCxK zIwhT&{i4n%rtkr_tmDv46*pZhD$00+?8NAm&z!ep_$HKlCx~PP7eX|xYu^<(szi-j z9y&Qx7E$Ge^LXd!c!qa4QN5Lw{lhLzl}}1DOYc1iFD<{=iSxI_APY0W9F2nZ7MGc5*ot>D)()3 z!{QIBHmcTR*I$xbu0#(NcjP8kdNP!hqqohtqgTEYq`aV!!T3=wlxAerwflS0t1`bW zXUq3zCmTGw(+X0UK9Kcu%Z_o&)p$I+q2j*t#m{AmgNGdkDxBn3elavOB#{Jqdi)}; zra^^)BfZo9r@{Dgx{s%Al6%o5P$YDW+x4YB!`pgW>>tGw1gz1IOFupCFZJtA~zWoadKFwG5I8SG6tLDvN2y~*3S;_ zs(vH=u420X`-9$(rw^xKl+_bfVYV6tcjznJ^!hX}JbSU*Wa`qideogQ)BV~A0;Of#2U!-k?a z{}q;WBYLQNM&GgrqQzaxFK67by>?>g>H0i%mTj?7@WCO?mvX&E=lv4-n+|ffubTZN zLz%8|r=aySr}ues@72#$LbYYFDz<-8?@~{fCS;m!o-}9GcB7?i&O?f5N)avT;*rNI zw!Jy`R^5)jWX2QnO-x(GD`w@S1HNn@7W0!Ir~mtN)OJ?G_r1@9WrGz}vBUHazgQkw z`#jj(d_}~T`RDJOs?%;?wbWMp^0UPsKmRs6@@MR28<(RRb^pvgyGc`Gf4O{3?aeJ8 ztX`RNXRr02OBb~V7W<4Ov={b&y3L>Y`VWqswoc>mgp9nOGEU~Erx#9ljkkKa;_B<1 zs1$D#U8_$vODYYLEoKiqJuMur?zn9GV}Sx+KI%sJs|YpAPb$G(>K9T%Toi>rxoo-> zW7jq3&+jHitE$)}Uba+>*?wu#C6`UHZ_ik*rF}imI&3w4@UYRyIj4oQvu|iSxGqbh zWtWlp+s5~*z2BO6?zpM?Y3jXg&yQwC|Je2@cn96gdPj_HY~<5p-6@OKu0L8EHe~9e z_<`*>sQBTu{yC?0mV2XuUZ0m)`pC4|yn1`dChvUnTGt7;d-5w8b{R`l{xUYq(MPRAzXjwqn1no+12R-IBe0%Z@ib-Mp^228OFfjMZ-2v!+c}1z`%b z#Be7&s*94Z@ODRNiepBEQb&_^Z74 z2V$;q)O40IT#js0yQQtl)pflh49Ky2?OVH)%omL}SZ%ek7Mt}Zh4r5^9D~c2{ptGpWy>BdD=+!%^`OU3+@qte4g{N&%Uz>dGP$vvIC}@HyOD-&;O@7H#)`wpEUP*+>4*j zU-@%M^a)W#RL@XYkfW;;arq@PlZm>|e==PAT}syApC7KUYhGq@e&(lTYyN&J#mi^Y zzHQ5XGF-Ooi_gDvclL7o^R{RE&hB{pgtHc7FU&pFB|Gk?+#h^r<(@Icm2nG~g7epx zO`R&R`uwN!`zt!F)r?qg| z=iiOWW!k1Uw$HHM|K|JrGbZYvGn9N1Bb#-+iuC4amc0GFUk<_`*3n%YB_50Hc zzyCsg*X?Ozvj3sppRRwlzkCb#vvtcAmTR7wZ2pOiGWq+8M~=%@?)vVPF(PN$Uy$?v z@c8VPIEf^C8Oq#r*=Js!v+1?{Bu)j-w6yQfPJiFG?6V(}TL0ta+I6IVyXVZF<&y7~ zEpIPhw(KunHscQYB<^oxdD&nwWmoe*`)TQhA%|#Y{hfLFl^>3!f4w5zXhmK@EIsxg zUVAnZN!YS|_+@LhIQ^s4>G1W7O5vru+tT^Zt`1xcJJL;NO|;9*YSW(1+$l}}g8Owv z{&B*J)^1|$4bQq8+jIB$(Z9$p@axNiO>E<8zfr(y>9cmG`A9(9)xV@{eKdQ-RuP|i)mb9M+u8z5Pc@C66 z!Ce(|#@5G)9J{0J^TeDuU_@A|cIXTGRAEGovoKXm`~fubw3u~UAN6$dF%{zLcVu_}JUKSW-4CXerzpBu~S z?zL>{7z=w*N8L(L_?#OEW%V9(2~owri7`DLN|6K&eeXvXz8Z+4e)CngV*!rG$|Zz< z@9w3j@Mt)HeO&nTp4^Hre*8SLJo||%Izve4t%!RQN1sT%ZKOc&l(Kle9yE^40GSSDvLMsLhhCjl{OnCc6Ck&8EO!^54-xk6ACA4 zg!3vJj7_AVs^4VS!kc;LyRw5^@;WcsX{oO#jR@NPaPA(}!Z3>747^zP{ti#ywU-c|d56h<}=Uh&%@ zHg~G5Wz0M{92Y~V*dbE;)CdKI%00ZMp|LdXF9+r$L+OK}fzan6>gK4Y z6*aHC4i?5rWeviPd!>(rr-k&J41R;~NrNy18&#VSTSsp=yw#?jpzw>03nn@WIj>C& zW*P-oQvbYb^7NB+F%FGb?*T6#+k(ejtIVS-O@zXi>~>N1T+?iW-^510&c^0*h0#^& z!DgH2Z2wZ{m;_a>I6qq4kUblHslj%x`9|(wtx_Hv-I;)84-P5(N!1ArLn+NB@2W|J z0sbgCOvNtEqR#GlVj(_=hV28NOh|u2~S}tggsf*#4U6nQXH&3}$JBHiD zl;3+=eI~(lHoC#S($8D$5>X%f^2R`1%*h}RXFf- z*|=Jy@Gsppb|a>la=wu?b!_c!q8yoGl*|S+Bf3EH)H{P3{yK@xR(mXry*TMQh zxlMGfkVgo04-EFggqQqnoVdP4~w$0xcQ>3L+CvgJUv)IQVR|}+@tk!X`tdNC1cO;2LDqQ z`?B-u#A#-~Q9qMa;J-NVO3cqDsbv1=vMTxGyd#6#$H!9NJZ;`@+!05ASL!byh{TT3 zp7#U=*BW!4mpclD{_ft-U3Q2o+l!u6JWZG@h~=kx=Eh9~EJOu{k;AzD%%KHo+3_k~ zob9YyfE(aA(&gmF#-g-rPtW;h%dZ4Q%sqvuP?g8D8Jh8vwt$$-(`G<@aoi= z@bOarDf;C4^P&XSI6K!f`za;+g@^df8z16&`CSs1d1SsnFadfC2^G}uuMZ&%IuGox zIuczUUDg6c9LB5!Wxk+?!6u#}ggM^0R-xmrXprf++;tDtV{_YFM%9#_2Q zIdS7nqC)WI;Nvdg>la@J_uX|HQyDk#!xvr{@YnvD`}M(=!G__ZZgg=^|B84c9f%~#8PT#qWx9~~RV6h;^r#vUDo*8p6pxAM$xoWa7*R^?Kc0M7x zYhsr?xZ$H8nB@6y?k7yn9rgFF9gbk_Yn*Ey=ZbMvPh^$bk4A@u74)%5yX)f`g~A*3 z@mad7f1_rCTk&LQ=G>gDNHZ|8omWb+&X}31KlnU+iZVYlmEg%-jvx#9aNLpThUU^_1Et!nMbRa!ET-Uv|{e!1-pHDgZmvLJ}F$*Aeio}{x z@8CpH?5#>-%R+)zb>$#i9WLKD&tiS+5h`zDyzkr(pO3)%Bo^~$>z^jJu&09;tTm4NUq5lK zdsmY_7CzA&9DxsJtnVIwp=L!&_upAiDWZo1-n17gb|nNnkk`GNt9QB^7gHg8=MzVG z^H@+9cUsYP*W;A(=1nQ-7WuY>X!(bt0v~>?t3&w zi|6jDzis9ZpO}j~C2XF(pHLk<9})f`>gbbM$5(Upai?8xkdFn6DRC9U=KVG^uLJH5 z2PC}Fj*stWO*IxBYgdp>-1cV{o5XKdUj26ZfhKWd%7L-Ro<`?>4Hz0%y%)1zPg&2$ z=Eml>^ahUG1gOKpv_;kQxrw=_Q{E934N`-)`V)6v6igNRN9Jy2cJ31HjNCBL;2;)x zO-~B0jr#AKd}XBliqE_lcYoK=T+v*XA||)|`S`o}>E?HBzl3EwoOk!~@{H$))foQk z_QCK`ix&&3=i@Qe)pe5$;Y=-auUEpGguAb$DzS}^PvSk{8$S>6KI5pHAvptu{W5V~ z&ff%!hpGdV;|&5^KY8s?(ctJ5wQ@pK?M#0&6W7@jM`I+oIXQdm?dj3`1HQbJuq2PHA3hL*o(h%ChyGN2&w= zDrm@WJ$36q-1#ots-km0caUcO75U)u=(0@l?3s5Tw<=kqqN(>|XJovi3%|yFKVPQr zn$zY`-23r<{cJ)}bJg|0OvQck$Pc0T{QP|FM)B;2;klv@!!_eGv0mi(P=j@cO5a+p z$3#BBKlH*L`r*he*6qu0<1?eK#2Z`An_P?yKGo5)MiLo#A<<%5t=Xvj=sJ36ZEsgs zcQ&(eF5&&%1lRuUe246VMRQ^?zmd=9SIZi{B@2lPXtIiM+gnPfxWhOic|#kCl5r zz%^#Jtms!(uPu8dYkxaN99B2@zy0XORlH#PD-=UEQ&EhX9b&)fFm7%PgMRZy1MmQo z6=PwspNOy192D1|8K&mv5N+m$PqCr9=a{)ZHucbpix*4(JhwNm-KgWPcaX*Bg#EmW z2d%m~_XU5>Ecm%>>|W=-6KRj*O^ok)s&_s$9wC%0q9VCUpRcwMlsg}!yO<|8PuqN5 zY%vx&-SoYP7fNJY#NNKhmz4^6$3$sCk0d-2a|OD?-ZzJUDM@kUoqHq?99Q?$q|qqj zZfwIDY4t>;L{vRPs}7vM|NMTqN;}`KVN2?Hn;-$t-~`k+nLMQZr|!LWKS&*A3?#S3#&!*N4%%~Nqh(?m>e z^HlhxI;@OMv{B4Khsbdrp8CvGw`XK zXzD@^NLreRLBs~kk5*x-aL{AqnENygpFfAm?kCr>{eaqM?2^hk_5b7KL7WD$U z;m*NEPvPW*P4|+7DPHKv`0a!chbbVo1BtsP`3{40k4O+uB8)O-PjZ<~6 zs#3i$JH-)0le3fRcd2Gun;VJ(62-aE{MWTN!i7Tq)ey`elgadAhAj-u4NU^Spy~hm z2@n3?9H*C<^v83(j>G?bx)=_OTAITLguFj|zUtk2pdD1rc44Ze5LOGJ{0^)b(ildM zSn8xDZfNoN$5)G`{}sPBtyI;U{I8>*|Ld;#soe9GI55BQ^M6mpPvyU}v9Zj-l1O z4-7jP3Pv@aYUn4o{Cvk>N9Ht}@8kTpq>q4pBgNCJGo7nWc-s7V=%f<#3Nmw;k810_yxlzd2)DqOu2V0I+gh)nVsvFlJ1QHGEX9e?m_5vm-}tD zjn}^1On^zlY~bX+ZrwT~An{=IgfycGujOHW{CNM@E0I;v?Bg0EP)~FG6}?t2rK1qGzX{gnnu8@nQ-^mPBxh*Jhep{;Wy6ce2@K_>J9-`x>s0PMu z6ELVt^O_i}6A7Y~pE!+S9vX(*)u5mVS4DMi|$vfvAF4i=3#?Ywk(VZ2hK zLHcIO{ozB)0QLREEFfxwNDxXhf=Pos*n(kbLy4vBBwU>woQ8sYuc?gdTUh?E*3^MclA?U(pfD0aczj1)xTt1e`r zoDfQYas z1m;M0AcFx{DSbzd966@DZyaCPoQN#DPABaQ*ltPOT_O@4CIKtNsYzp|A!|v3S@DPz zj!wvu2v~cKL4`lHx~Q3{&alkv4JbujU0fRLw==>#9S8r{6JK^unUWdM99vzyL-^aX zzx`i&RA<)^a%I-QYyWtyM%9V*rT2S>uxKJ3Ndgi%rwq4C5JqQ9DI$CXF4R%jBrS^9 z>iVem^MRiGk!x?fQktBiMA6o}yUR08TVmNqBwGaxsgc|uw%@xZosJL4YYV#7=ozU* zwX%aio~1pu(GwbJZ!ws5jjAx{(dFw&_?;|1!>Hn63UvEcDb28a2^WH49bTj#xGD25g`qgCL-Dvbc7ZggEo3^KVDv~Pn1 z^lA+(I9|_gNg5v>1{O;23<|qeKqPsV*X&uc$V5zjUK(*75+1c@fi-o)!-&W5X--`d zhb+hqbXEZ_EG!Iy_d0cfe?YD+EHHV9;cx;wt4yaOLgL|FSCfv=28ydwuutab8b!a4 zi)9Mv1Bg{n08KbByR?mn(b*cVxTnm(RsC+et_7iz&|iSS0b2$nSS%Qv>zA=t$vGT> zBQhJ1-ZC`&3|%GCjAVzbWhHta+?Ji;Z{)C!hf)fqZq)*$NCi)(#yQTs&0#8niskiHJfbngxov+GEs8ZNjJ|QOY4? zVEBPSumlr}_&ih+7q?{QV5%UNh%6)KkU{yR0Eo~E7h8zR7JWIjwR4e>F5 zFtJO_gP+KGA`xO|5$hxpIFUK!Fl#pn)(IXK0m~#mwQ>1$Ssnat0^h7S5H^rGC4B^C zo%l#zo|L>f=p^`LFgvhph%t2PLhK4GGR!%iMkelQ?UR_JBsBzc{AOYmBk;faBxS&* zEZbn>)_nGnY1WuS*Tek1h`~Jt?A!tkp*_-C$2Q%4_=#-+uK3E5EJ!e^=J?+{d}@9n zCiUwy=n{qow!-M`s>O<5vf`DmBPxV@l24}c^y&PZT4iJ@!Ouy-Zi@A>GsU8 zKR4nR5wMa9BbN}Dz4y9#kvs`E&$26%x7^%ybFf3!(_NU?=NDs&He&47<^MAEp1pWC z`{R^FPvY5otW(_lH%|qA7B6}%@Ob{fH@ycm%kK{D$TjyOC5?ALR`t|Fqtg=M=117D>4sSVV$(FrbhqtfhUwRo_4C2)iJ)PY5 z{{2|lCEFi0X^@X3L|p89t9-;Y3pVH?<^HqH4QG_?nP^O2w0!QcJhNZT;W$cI_{6&t zzdj^q{$p~nn5W$(S1w-6vLJ{T?{~kukxbKQrq0wq9~3JfQz~{LzGFXcIX4zJ6?P|H znK_ zg-FU{=H;194xj9YU&1Hn!u!J%qy7O0#o?20%^KXU!uA`MZ1WvBYL39Mc{K7y=J3LnqEBQ zER9#t*H{cDsBIlM>3xkz|1uCnxMz>0BeYuz`q_jW*a+0 zQJdQP2R)Lqv$3n}+%6mB)Y4F0E8@jPQ?X9#&GH*26ffFOunHfa9^0PyBC-3gw00Zg zb;oiplrDF3cd&1#ZAi|k_mom3*EuCsL48jRBmyTpW8OQf>EfNOwlq!4ukW^R-J)R@C3SD0=0`0-DhHgl4!)zxSXAJwzx$tQ-wlh>1UW}DXA1$jh{^y&HRCfi@n z6;C>+Jtlcn#cO+2)A_x_(!j3sPpv|kR)xn;s16<4mEU`RwPt1c`DgA&P0rk0Tr7|J z`GAUjAvk(5;ONmSv^`x+ieLRk8<%HVp0rz+__-GMUQBy{&pWbt-Esy+yOxvPf<$sU zikBQ?y!I@)xS$O$pt&WPVHv2Lf^0z=X`l$NM7^zw)d}37-ih*^?-HkFb5S;8asH~# zuE~_nF3%5&`=M6V_1{|b&lS`PR-#kvAKH_b)96Kv z0M>200xtRsNBuJFO2l`#;us7b1fz|JSK+7yL9*$bWH+@Z7aJ2Z!I1YHjLh^MR^stN zK@awHq0LJA8s!wZcwmy!*MA>(mLas1-qva~>)pXaFkvw=b3~156pRH+ZA-ate2rH1 z{r2j_e)E`%X0aU=zD7De|7svgA8w1PMz$w1$dln5I$fArNFd!CyU z51W>bS;K58q9*x6imali5m?SjqnWZ0)*H!cLKvfon@wo#GUWOWv%XLs%1^+?!Kw%R(HnkqmzoTyBj{qy&la{RX+-T(mjvD%IrVZ3g*@ zz!CHe>&zt4+#oPiFw;U@1bmWTEjnyT8Wq4DnDp;bAP=C(Gyw>Ap+~h4BFQ26y#{%R z0GW15N~S43(=*8m;vw+*Xa`4BzktrH0y;#{2BF9h5sgA7h?u5|smc)v=#&jI5g%!r zqBXszHul+w?n5Ku)5NtNmk;#bjftNbbB(j8kBJ-$IMcYZsm*mT^EtHxJDQ|V-cU=> z12n{QJV)J&8x@i4yz5Gcc2Bqh#tBz+h=)I9op?So45#Peizrti&7l4vX~U94%dAD# zTzrI;8X~+gWHF^~G9JUuaGaBb!_qo*xD5zNj;LlEql${U#R1BhGVX3$a2g1AX8k^B zk3ke8ELpC9$+MQbVz!cdVbMp_1`y_~)^o*?Iu8@Co?*bZ5mxw+zY zEhekp<%qGgxQGhO`Wm!`If8&LqoGZg5di3i&LC5kBL~vy_t}CSEFp3)*}CQN*~8&j zIpvN_RCNxRCO|TcFFp6k1V^zBWHz^yeBlz6QD1E4kjRo1lKg|*>OIw_h8*l!Mlar# zpo>j+@kk_JE>^Bmd6Fn1>`Lqio@ggS)|f=|EUOVPs%XNRbdO3pI~S)%)h)EFJ^(m} zPa}E0RSQe~nL^7}hN`zfa%=NuAOc_lR2y&!jv)S716eBmvC5@BFMuq$as zB7qB79!Qwf!ba#S2w8s*q39ZAh?&te4c$1}4Y5?kRtS4D8Z&RkzV(ZJ3&7XQ&YgF9 z_3ZZjGCRUHOCJl4i;1z=8z&@=x(>dXn4ZhgznpX8FgNGI(E^4`$*D#ro$OsM(&nyh zC#*%!v=YCbf9p2e#dkHZJC5;#pEwV4jM3}7B^oxfM;dU2qgRuIN401~H`^yM; zQEtUS>rwhD0?3?-9?O>i1roGsX{L%Z^n$5Tb;q+~7nKI8 zsS}Rw0kY~bDhMF~#%X4yp-4yMRy7}$769-%Xb)YqQH~I|xT!VMKQkz~AkOi1KP90* zAG1kljJ$$RgH)4e8|9JOw)-k&LwzS5mYb<}$!*+(**_o?y#-I!s-Lu}Prpwj@W-vD zyoWf1I*fUB$t$*=@b+w!O4akD-b;hKT&s%f$?TDmOsmC;(SI%`k8tIIrp%pqhLr@D z?m_-fUJ{-jpTh8?}LdB2v*;qbCFmkBs+9RG9>e zzv@K$%V1qu-bb1YpP8jGDk5kAK>1NH);RIpQc0QEYT!9nY;F>y(1}0EiMyB6emO%? z(MyRh&g*+yo%fR1nohf!nHX#t)Ee~KXd=x%Yo(pOH*I7)w<<{1o`b(eZKku?S*z>A z0Lsj$Uzu{4C9vaDB)HIgs(zaw>&Q7aJN5El9hd~E|1=>vk+8B&P<0AK@40Tc4mTIP z16@Da0>_i#(t<$?v3!!5`Cr2aqx~ZKGv{sYv z$nN^K)o7g^SD}yU2cb{tU)vczL3OpQ4_Ig#dn&H>>9k*Y_%{7ntAG?FYsDSOtK&sO z@U;rPhix#5`^&$zN718Ymrj(~Z#-m%r9WRuLvgr{w47RWc!?fstK0O3ODm(bj)zmD z4B0DLUDnenWOf->V3p-I4!_vTx87vyq3OFu9jF{l2Z$|M^39zxLN~?emgi+inZJ1M z;a4s?3Ru4PgUD{We!n54%p~7VhvdDtHSMel?9sA5!%L_njE0xUpk(KW3M9D94!W<0 z{uP{)qhVPY^L$qCw^QOLJMP<}S8ckoSAsSs2v)mqr}@?%`Zmz=va#Lz-Mw9jB>%^% z{HJewhfZlV8*dh|3T+P*S4^ocP%5U;5(j(`87k{vfyY+!r9Hh(NW*!r9` z=}hF4gsF{e*IuawLFHXrC92YeTfNi&p)S!g80x`BuCUZM?y%qucSKJZIEGClVsYn_77<&buU4{ggBZBf&RF@ z1S>N`{H#>^dBg zBm;DXBFh$NwGXL*g%C-go+5sXB9j%sNi@bwaU|F002)gni*O7$HPx%e@NU_S(+1Pt zZ9FU);O!kO&Gp6P01sc<22PC=4OPZXquwSP)FPH0Fe`6xFC_1JZ>=`X2it$hnB`!f zdI0N@*IG`-^`JXEJZ~RZMb7>l4RH#Wpa-d(vl&>f_E$9N$fA5q#3PtPWJ4-s(j7;+ zsn}^$S;;jrxIivJ`x|qZfR1ICtY#QqhN9IN5`VPbn^8hs3AJ7V*lilPC78`pkVP&) z$_W%1_^-{ItuII{XI|nni)}x}SbZhXHG`syA3z|GypTi{HmQY8@Jzf`t;#Hri4ZSm z9I3~AvUc`GQj?~qQKL~=Yo?2fi*w3FnO!>frfW%tY7>l_+1uNVa1$A}Nz+9DDN$1p zYIKejIbEYXX~jB`yg9r+@6B7F>|z_AS!|gi7toBfPyj%JWTxExHn>M1ie?1xqgI_B z%hY68s^uV%+-;naRTo|ssD1mf$-+ts5(B0miEN9MRtJ=6_x&fxWvfaRQEctnuG9o> zk-KYD5=;4QsOGGDxg}*>#>Iu&8`Fb7lxIpgX)2;;k_^ZZ*FF#Hc=+&!3zllh~q$ z8|FwM+H>IsziUFF;O8=_)iH4ZPL%Qa?5o?$;1(Q{b3W&9h^R5q(N7Z-^RiBOLX)81 zzy!>Xb;He*la=Cazep^KnvbW&w|OJM$ko2%#y+Op-Ib8!RdSAh3T4@DTzQ-8Wg}WQe zAQ#dHJ{3AZIa@bcDp8UhUhDiKUp7aMSE~GB*)T;&F)PbN9Q}4s)zhekgl`lH)Ir*a z+ewfEj@1CFipa&1)QAL`)>>5|Q%;uPuq+Kl0x)NRq(Ws7J29B?a9w%Ik$pcvG?-$C zz`_jZr-nf_?Bg;R0SJl>+*EZFs%U{M)TZ;t{(A<(@w4q^9XS&QF?l z4}+W)11W^XXEi5)G&^U|CMsR9NO4=jU%Cj_Y*xY+4u5_~@d>+v({ zz9T_k9z@lFS-x`J^b7!N07w;rTq2JERUv#@BFXKF+0Lb`4s=q2m;3e|1Ikdy_-V+M zd$lP6vT#*5Q$QC9A~D4nxvs9DemaK7WQ~=9DS-|J3}49}b|8*H8D0vFvEL;DJsSb> z&P&4SYLJN05ik)tkp3kEkPT7EYO1#g3L$wS!74Jjh?r&0QUPMC(exU?l=R32x@Uh4 zOQUtukyh#q!p6;qwt)Wrwp_^2l=!!hGQx^ucOcmH5lHzsY~aYozwcQiuV(FLOa;Sk zg;P~cy$^07c*wmE*8)$mV{K49>nheL^#El)7`<3*dmR3|3@9ay%G>rrLiLZ=dYjvG zr1K?4sjpQj^4^~N1Q^#8cmnPU%-t9eRHa)zdpG&${rz=wlM8c{aT97Kq5?a}Lu8I- zLm8J2mK1WbY4?jZ)={m;dv1yNI-2{>RZ?U%h)||S1-`iO_QT7~Th^t+!X5F3%&@oE z2EF0%8YPT&3axh-608+~-@%BZR+@m~GtF}%m1iF)nxUHK2#XF(1qUb42pgrz)qb&( z?Fd(382T0<6d(%w1r*2?Y!GNv3mBsS|C`3w_rN0{E7zc3obD=@b2q$w1D?OvR+XYYb`;~?z&cUW^w?{f@D=g~~;D=AO1folpD*iFdZ)qt4k zY^$t^CHIwrpL{JRJB~oaFs2|LUMpmQd{0i3r8%|VpQ*eUbN}SFpuB$A5x~wSRFeIfVKl=WUL}Y(0SE`P z@WY{<$=0CH8;fE2(t^H4qzjT^QMC=<&JZfzNa5e7h}Hunn=*XIjpQm2dlJcW37kbl z5&l5@bh$I=GTkQP;+gQtnpJjrYQr*tGr2HGL1DK+tO+uPAit(eLA(T~(X3rtY!ly? zh}=#&a)dT22(OVlnPIqkBqGU#84lw?9HOnhE?0Gt*?{2esQytm43vp=xSZ~UXjLid zw!E`Q6`F+NnjUsw6p|?N-U5UT$W)M1B?4b0ZIbb-5U9NBL?7OnM9wW>)UsKy*IAlU zBpO7`e3iP3iDjs|XedN65d9|zPUxYRqjGSSQ1ZJyz5yxjbzoCT(!hloU zh%_{0yMM=q#V8Kk8jd0-emhjKev?3yaU{n%b~CJvvxdnVL!j zOQRW%%j$R}0K7z6S(CiC8`D=*5n)mzF&D}3O7ibA>_Mr;k7DKi49Wum;140_Y7R5J zQOA%vgtq|pkz^vSQssZFQSBEAcCeTLRw@#^g!m!$gi`O@)+F_3>Yh%gBO&RQDsWi6 z)~pe(9&HRjV3foROU~m6wowha`05;haKSTKsfAEIZB&8@9Jd_T!Nc`EHS!`LnRk{N zX!RD%j(~m(>F*DR4a1N5THk)%;iLL@9<<^Pw%IhD+=^A?Lp6exn?HGNH{N4bRr5sA zKeD-N=g&zvm9M6fHHPPt*=@XS=rv?0dcY#w;Yd5|^&#;Wq%*w7Wo3juR4%6#9btud zqnv)&iQ?S`0XqT>uA#Y&%Pu46i1lx%B^3#e@l~vFuF6~1q|Ge0MnDS=IunBbFseQm zD!%N?5d0WvS5pS+2uOs2PqRmr0k>#IT&y#_uiQ#b?k}NJ47pq!Sg;)+{v1X18F8ld z>y<=hPt79Ug)mJN(lRXBjHx|E#4D%RN0M946t5z)ACR*FrRoQI- zv%{(yL2--gBC2iU^p0DYosc#N2d~12Ta}JL*7%bxHw2c^vxg~y2E874R+_!)rh+bU0 z84d9V$HO3(lYQ`FEKuq|bVaY-ClC2H^U5xByateEswJMpHRSwc=azK9yJi(tSaQaf z!|gY0<&K)U3=c_g&UP6#M4OPRAo+t0meTG5N!|A}s(@g=#)-D#ttCeA|7%dYY1$~4 z`;h5Zv|J4hSapcX$0_@>eL<}F||ArBKGQD2ZvEZ0iy3*p4? zh`dG>0NN@NASm!3kK?cxq&ZgOEvs3M#uC?@*{j<9Tr@cxCmxz?-+Hb+%FFukSTOE* z`o4X49{l^bL0vIEmF5`VkLObbc71KQvqAb-N~);d$%7(Ah1+5-CwJg@PDKZqBi3z^ zU~ft}0!0^DHaJyZI@!K*VBvmZCl4z2i5!h$qqF`Z_RpxN5%k$w(#usCw; z(E2IZvm^!KjGF|-#%r1q7v?g*nkGO}kT7ipb|W_gFzt5zbF%Ele(<@-GxvuRC(^8G z2IlDHP-m!bt>C{;5{^yZjse3e>-nAkI83M(%hyy&;W7ZcAKpU zam5pvLP2>!zkme6I)n`5Y;>5J9?7VTTlu%v6Tusu*PZY0Vx>1!4^uA$6EP=J<8yes z;-`nmrnK7tT=@1QPCQ4%AV113sruBA-Z%T=ba6p$7i*fFO)g+ZfFoglKXIigq1v`r zq?{&`FR}aZj)$FtWPs1cf1e?k?lI)<;&5*QtkuwS%k&LuZ%&3FyAZdwl3&YQnKtA=*ecUfvNU=h@xWQI@Ur8q&BJa<=DXBpQ z^}Xgc&WX`Z@i*h;UyZ!Y^rK&p=s1j{%OrwpbaEN4tYoFVCr1%I*ZLU!@7fxy);rAv|;*jBs&w5qy6(6UG@}J2E)_?@muic&(Z@4srDm+Q4qe{EJS>2pHf6z0p(eLO&H1ZaxDkFjm|#t!=9j> zm(Zt+LlDl)DPFH1F7Bb3kc_ln3P9*61{JRb0urq zg!b_NNKKBQ63jSm9yc)bu_t1-ndx_7M($6L3b$L{(4Nc8Q7B|3D~V92%2qsHP3GK^ z4A^3Re2d9U#l(Ah8xCwrI$JE-DgvAJ@+PFw@On%XszJRQ-3iloGCP#$TWawn0;*Lt>Mqlc+?>+ zU}H|cR;x|0u!T1raEzn>A=g6Cs%Iyw_1_vK2q6j_4X)tAMFL89$OsRIUcK}9-!wzd zMSWk)zP$EK^O$yGaPPN<+O>rqmG%{!X>Y9qD9D~VEEN77$7_7XUDc7O$on{Q&qZP1K`A z^_!UCXeL6n3pAbi z@EC2Wo(j>H7lQ&DD>Jjf1r-8%%iWHoaw$|*7bH^%tfNL8IL!cpASfnUsa4);Bn9uQ z#f<{%O&Ame3;5%aNs(sW1Z+zweF#nQx0il{jGd`-@48dyVTNPx>=i6TroF|*2UNuz zE?T?Vt~e)o44X#Npa3F3&s=>!F-JR{p)a9DuftOOpcfctnzZ5|o#! zkO?t7s$oYDN@CrIu0{&}$S7(6IRYUU2aFHd*|l^4iVnye)QSOIuMbyOyAD_&(&eYq zI+EG8PhZtbv&Ls|clR_x1sBI%g^+y)Fa|~!H~r2< zkvU$E3~!adR-PpED!^rR^J#bNY5XKAV<0S&TL?c}BU_Ig34$x5bl5Qb2}F|JCsdPN z#|l0Yr5f$x$BT!Gn&X%7?P9`z4+3vWz}(BU8en-1bOrJT4hJ1k414xJjRWw4m3jlR zo&UExX-tGc1;Cc2Tb^7319plv!9G{G9}dQ#T4lWS-p}uQnX8eV>rlpn*9JjcwpP2} z)^-1@H;}y!2L3eIe_tU0U80Wn|MwHpIqnaS`Tlory2U|A{lm{rhYBM#i%gAaGfiR} zRJqjSfhd#t6}^F$eJvC>naF{$(YkiqbRV|{M)0>6ashV2GJ=Q*xbGsk zO{3`4lhdd%CHYEtU>JXrz|SD;nhwN-^wZ?M8+S<88eP0tsU4eBC}wc-FQU_KypxOX zxSndq(GtXp=7z$#y7uCX`!+%MIHJ)O_5?PI?nk+?BlUQOBFwfyWCQj2CNiahc1vLlMch)TgX^BeWdLD$Zni3Sc? zr%F0yg*W;pC%65r)ABJYM0#CY4SR6XX#&;W$(>7jYt*K-(SXe;n zR@oI}9huk28@OgGN!Phx+FOzA8W<1uuH-76EH|}|odHJxZ(_mDLE}ig8eW;O@$wAX zYzr1+gD|x^@xO3g7F?T5f^&59&5TwSjvc|;3;9!@mL*{3SPHC)R<21}f zx99rMlf+Xss~NwktO~5H|L--5T3~a$_6cIJdH8)xih)d#j8Ata3SYodn3n7UJdvVC z76s;M1v~Ak=t$NoEX@GJ1>b1BrYt==r=p0~YhCZp#5$UaFa=65-z~8-({?8{WIFMa zy7@7DAEequD+A$;vL`N2oTC3jgUSj_76&hGwF!{^Z4t!;dmSXx;dNY~1*$~w;#oTF ztF$0^$Dp97rixZShFElhmcS=_S3spJjfxUA*5L*5<4|IkB8d5te!CK`dh`N+e^YoO z#hc6BMq(q1>KC=xKKJI0pU-_JcDIOhs?jlVmS}^%WxeH#ZKtiL9}!8ct!Z}GE82-` z@gt2g?n-)pTuZ)`@}%h3qr8Y;S0Q2+J0pix4pjc4dyi#NrCRUhr3)w0eOfklRGZq& zsQbMvfDNUmx#Ph5C?<02GbDw$Ww8wpMnavLzUy01c|fuxrM?~QaP9`!-q%t7KA zW6)a9C_kXS)ID$rk-I*hmMyBZcy10r1n_qm!Ug0XH^UKCw?T@=#g}n$fb?wR+ESi< zBn@|5#En73rv)@Q2{stPma5GB_8aqOBu45gQc+Oe9WwGF!Ge}?(QG^UW4zkyBVM~c z02%zj11ZeJ%UEs%FYfgp5+Un%s}O1tB0z!5;VU8yA;?{z--zLM1#T6x^ho4O`nj6k zkrtXS*KC(4l%{_f6cgUn(%!srJA2bSrJ`2}1S7jidtrk`Vxpa%^@R(IGZ0xLhp`YQ z>3)0h<6GT$KdzG+A327omd`8}0 zYw^yIuk~@Q_`+Iwa^_m28R%);8n!()jUiO4H(WtN(0V`cUx3;Hc5#wHHReLZb{(=* zaNOi+y|`CgR1Uo8Fe6+85tb4hGK5#}!KFI%vbVP97kTL0lQ|nGsD2m;**9ZeUW3?% z)}SC}S)py>k&pRrr(Ft7R;n^*J5ILZ{%ZR$a|FLQeq9?vHX-{~1a_hI7+NiWvs8U# zk9E#V$fS29QUhT>1sOKaLQN4M&NRxi#pD9kYSQ&`GmMqgE!UY;P-m7xDe^F3?xd=` zFS#Wd)iqTN2gkKMkD=k=<<-gXJ3ps;;f4?E{gSrs)+YMef^5+mGJ9HKfBg#7_&odJ zM2hdno+VT|@`5}|M+kZzu$%z8ju*6+zy?uu7p>iqQrD;va(6+ANe7(*-YOFb(x42A zluKZrOE&;**3+qAiBs)l{X9~9IXWD0ZLA}}@Y_k=75)^CwvtheJxi@Td1O=P&P!m! z^z4k9=jh&hjpDSfD*bG`0M_E7T+;)%R-?Ka1Wdp}LLPssP5)S~cK|RnIU-z)-rkWz z`OJkm1)uZ((e~zXP2Kta@axWXrnq51%A^d7Q6d~QYP4wq5yph7Ns#3PkR~G6#HA!I z1&kVvc&B9t0YeCpvJ6UqAc31|KoQ}Nh6ELfg^;)uxn;{pTrNo!Q;|NO6WiXI-}AfA ze@_Y_m2h&-_k5Sn=ks2^ggmB-Ws{W4O_WP~52*ACY!d6GS)F=6g;|FJpU8{E;+;rdRl0p#;b5{$=7if> zUhQ`nyLrIrfUE+oXwwu53xtl=lP`XbeC5JLt#J-I6G)$RWD@qvBeI6wqMB;nn{fp* z3sH%Gc7xOK8-jrp?|69@1`DNC{~9ipJ#=bxg&#TkMTd!;3qhwb9MrZ@rUsye0>6C< z-|#NMF1c7-Ztp!q`QJ}tlq_IgX|4I;owYdm#OMn9EXXgW-#LYBzkZ?t>-g}AV=cZnO|xDrMn_BnW~9Mj`s3$03U(-9UK89gr9{jRjgKYHx#qKu54;{ag7X+iVQ z-Zn$1Uau~yY)EJaV5$)2Whdjqa6}3#sm3;D+VpvmF7&c^N(9gdMt?|=FJ~xeFfxeJ_?wQXo9p*bdZK`ujZ@soh!TZ$(qnEovLOn zS!RXV#?~J_d|D^HT+_n5)7jL{Rg~WUHh=w^AMi$xsYHiSy_lzDv89BeS_Y#+1GNBC z8^E(2Q%O`GZj5Ll)oTcV5otTS%_CD~mbFXDE3jc+>#A5lW4DDg$m$e_AWwu;BGgex z_2omcU2&u)I*kB1p3$Z$(iGW z&xLt3$80J>^ATA3uNkp4Xq?~*fkFqoL)Z`XJXb0X?v$V+(_i9#RO0Xd)L-)FOeg{3 z{({W_yP$uytgzK&y!C&}n-$uEwA>r1qZcn>=p>y#5<1IBv^EDruY>nu#JCcseqjQms#qosZBNjVfWg8_Fp=;oq2q^lUH!ZC$*XQ``|ws`4`mV6 zm-U0eV#8&rS`GKGLk_}Cya?Ya0wghM5PQ^<1u1tSGEu{=O^06;!9B*O+i|l!l+_ur zLlglEEhFZ0EA&-oHj$I>ZW#yRc{tP28eVfxWbwsrvAJ|Hgo~Y6%G1(-e|j4#F907xLM=J*H)C1r%!oL+|e*HC2s?imlAa{qd4vU7IUbgl3V1;#2|>qYDca!tns zMZlHT2Lszns=5pMeiA(CH2sS0V(b8!1jmt=e}AqvhU6@>;jNJ43C+$awi$*g$Z=rx z>ru4;3ITwcH&hDXp#K5CAr;YJ`fJ%T9-3JjD4si$kuRKWwi&?jV9U6ALYc>ao4SM7-z8Rr^uUnprFvaakl=l)eL#{h>L?SW zL$sJ|RSMTcO-34N{mLB>`(y|<7=hW~ zW@i8V;cn45AsX3EbC;^@iCUm>qgQGV!5Vyr>uF8GNI+(9h|I{oH&WfK=GJ&~qUnZs z+KvIB$rM!rkR^V56xUF!XH)Hs!g-z2zv@C|mo&GZzqt2o-$7%-ge(UgA~Z6q#I|B2 zE5w=rj7TMu*349*18rbgA#JNY{&{h~dg#Va59WfAq`}={^PAl7oULM!W2c+kTLh!T zRuw!i=quMP@E_qes9D@{&p_PxnOJpl_UEu`FVCES+R=eN<~U#w*5j?k;{RIE`QkeByTQD%$sr_+=#P2`DcZuGL8q{DNfH{-;eDxRab8l%6Op;NG* z-h+Fp{$*&uOFfK`0;m&t!{spW>G(GCnqXJa{9sq5W2kG7iRb{*K!$LaVXDAU)OqB? zH*;gfCv;tBith=4A>sBX?65^xFJZ7CMbMFe6*C4$gnzjO7nMiz=6ULfMTC3IJoz}i$XuS--lL@+9v9?QqT{&B-M+!Ke_4B!M80wx_aMgn_so!I$ddYZD zwlA%b;af)Tuk9uD(kcmz(~j2=G`)Y&@X>5n%T4*+z|$e_FX5r@Dpva%a??aG%t;EA;WmVq^UK>4FHpOHD5a9Uxx_z z#&Z7gFi~+hzeZ17CG8HKJ3|@#2^Kvv%xp&IxZd+_tP(Cd7?@|FdP86L%a@uX{&TDe z!o1ZmvqIPxJm2=@4C%el1Y%wgaKPJtjT(G}usn?7vZ0nHReTJM3#tB1NJ1G5wEn8K zHH=Zn-u*d((rG`9oPU@6sQotagA&?H{c`r)84@-Zd%>}IQCOdW*J+@(!CtCqIJ|z!E3-DO zoupy`_qWduPlin!pk_wJl_P=!ibkr-mR@%9#!y4|sY_?Vgi%aCur7hN;X^+LbfM?k zUG9AuQd}ik#UB2AK0C&-R-H#viWRlsw?Q4y1bz!`9t}LI_noG#Vp>_agRb`tG8Tbj zMFeC2kx$dzJ}MXRw{v$0hscZhraIDUv;gaA=ER%M4wKK9{MunCrV!h9!djL64P5`n z8r31_91pUCa)Q_J@W6yt3iFS3AD@|G?%vWUN@2K&(|iRJH6>IRc(+QxVLOX+`oqJW z{9{w8N~|~~&s3a+`UlKu>?vO%16ddgT|)foUANkDmUfRANT|upsS-mP(2)25x&f4c zub86-_kxO~kUOS7ET3*o-poXnNTCbt-kJXDimtBd#P~{|434vdLYUMh)z!LeFExaR zi!Bw1*$@s^GsGgk4>iU(GQxg9Lq+-+k^4$fsLempzDX-#u;kfuy%Lh8L5@FX0qBqj0W7j614DDN zR02p@?*}(SsSKv2nwm4hHJ|5Fab_7KS+QCSwq`8+LnzLj1%B@1qD|1rfTN2qZK%4a zebt;Y>aPoEty5$o!yg}D+!qrHlKJt%8M?wjMwzt4z+KH?4P8M5L8sjWgHh}pktDW+Cr*)ocL4R zIAWa|rrAe*8F90~_xmMD&RUbDv^R2H*zP%&k~y}#=YM9re{7maE-y{rjOHOtx<$s>J&s_hpR(Eo7dF>4WJ?dQMu|LRfiAy>XD^#ek|+MD-B zaZ4@wYI;a?s6KB%G)jA$Zv_tM@B)kqYoSy`wwdg=w^@F^7lrCu79 zQ4ysKWR8T(=cv-|0mb=wG~8btMD>+PP0^O$E&jZ@tn!M=1^JyTA&|N)GII35Yti@B z8M@OieZ^J5^WE)!1QY4VJ+yF-V-@?+=S%+6@xy%11+Q3z*Kot-)h_#nRz+2XBWL%t z5^ScQCgJQ@Z}2?tuUx67_G*?PeG=x;OC)6F=4iIuXto>2mMAHVL~OG5tgBtfe!`amPlqz0AfW?} z9TbEIX(^U<`G7N`CBeK~XjH6Kti=+p})%nGJ3CQV`w#8kgLw&`1zyFr=qq8lDS#$O&- zWwROPBWM+TkNWqjb>V-@hiuIbGC7fD0@^J?ojyhM=IxS%Vq+Zxj*hVXM z;pAeF+WaH()E$P^z4J|QNO-_Oq4;c*Lg5>uw842Cu@r*|5ga-6pN{7eFaEW>_-Q-q0s<$7XQqYJ@!Y$j;Ue`;Lk^WNBx>Mt0ZVjtFdO>Y;jm^h zS2?+P+pwf$1)O`MSt5l6AN~>mEoe}*e8TJh8^2=!l?Q`De}M=8SNsmUmssok@`Rme zC&cp@M-6H@@9{f`sEj7fV~hyt(7(TX04Dy=H8p}<1WFCqz4$T^ z@Yn~znEUJ>n&W>O=KuQ2Y{>rg-2Ue*;ni=qp7=ic!a^{w)I5&ek8B;<=CgIhhj8lw zy_+o^uP}8*ZZlLoA8WrCdBUVz%$Zacupii>0dHvOu-_B9c9bWvjS5vB5k{mUq^QT@>SRS zUcbcN0b(TPF-FsBcf;c++igu2=g;I_5?+3 zB%t$m_|+6}325)t8>&+ENj$$Y_E2h1{K;1gu}RHmDH%90AA+_MuwB>>9L=<(E!$D| zsXJ(bsf+%IZUu7x?Xc8V-%VnNN?g}51qKynS@{m}S9drG3cyqfQGCN~E=bcXRd5gY z6z{$iGi|z9wE4ue9=Oyte7Q`cw7^Z=0i-Bo2l#>r`&CV>OK264ObTy$#4aH0lSMvx z_QG*`_%>bC#9DRW+6zT}sAFiER1=9-Glqrrn)xVdBp%`?8dYmpBcnG?P2L#o3smDS z7ya{C{|c80f(*Env;WwW9-v;CT_<0Ly-psf5|?S3nRdHtZLYYknw=mPVZv&sz#jWE z=u`hkZ-efm9_p;`Ca-OFL@5_xVc2|TGiQlx)^WY7`c*C`uKZqzV+~bW>TdPa*97Gx zaY1%;%h{TyTZZq(Af37%&}@MTV|vhyKWq5Z=GWJdDyCo?D4zWg~MA)()^j<(2gh5^kdOhhx73W?CJGp|1W+@y{@|1RfPr$Qr79572wqnd-Bggi;XB33!*VMsZ=q)rDkg1Plmr z@)*)7iBY|X1HZ8u>k&p&{IOHb=}>`zNoLiDl~hiYD^c}xp8&G6md^yW~h0Rw1|-pSc}~d zl9L34hS=@JHJeWY_171#Puk-w4(@}6T&hs6W*CLW4o8#Fks^q`^Zz>j>#122Auxj# zQ`ZRal^B$ULU5JQX)b{@C2_z#n_RF5%kN|w1p>F1w3-j~HM8Uj^2%^s#c{7gYy(-K zl*9BYZ3JKtB?+{Y!q^?K0F=N;@pS&x`zKW+|GxD$>hY6h*rdu6cp2Z&3kd-SfmpS4 zej08R)spj2kLNSO9eng@f2xj`mHM}v-}dZZ8hW7kqjCF_X#aEmMSXn(drAGv{?bb; zLYmlB-@j1jW$Y1{LVs7wlr8{-0gDhL_N$Si{&296$4 zK|Dq-Jg|!%kmo;L{oHV>nT=jie?c8^(6>1FoN$CA3G<&!{KPi&BB{2loK4_fq=;deFFr1@LMJJOcO8iEwaBKnH@ zkEaAI*9Y=rGc(?ss4={Tz$qhSnz-6KsB}~BQCeLZe2I$sY%yH-uYI03Yl(j#4weY{ zAsEXks)`p?uUY>*FMHEto_n_Q7wH%!S%HKI&xTYOZ?&!Tsn>*zVrG+g$S=dTr~a3O zOa5A!Sz0u#3GlVQ>=ey~MgF|B`{CqqSTtYI!#7l+>@1ZF$4m3qS^cEO-p8?-+Q3LD zt9CKV^INGbOmvCs!-q2ZD)fFP@Uakv7feU&M^ZH+mMWWJwS>s^5TNFOR{2udfT*w` z9UVd#BD!!5&9g0Z)(O%4@>IY{0^!wsW)lrxc8>i#e)qE{y12-w9jgRd zPC|K%eOpb{Q5}VkOgN|A5DmDTJqA_=ymV3KG1aG|V;)g_aLeW)uR^ z?_x4eze#6-$@9%>9)2oy!50&hW*&RZSd3P~5bWmIz}E9DJuj#4@bJ&4gT`7O$WPoV zz9(`xE&-zRu?g%A652F}&lR3{9#9lC{n+fc5)50lw=DhX-7lXyOiLZM9l)G3$`p#5 z2^u72OJlme>D|*WY&fb5V-c-t)6W0U2fHAyd&)$MQsE~zh3a00G(tJaa*8iN+e>Ux zSYQ}3O&w`Fl>d=&wLcK;EhU<3t%ho#pnBK_z@M0P30g>15F3dm6PS#|DTziINS&9| zfm1bqFKOD^7r5^aIB>P}7*ZgRE|LVOOe^p4htd!KkEh;tmPdmx2m?2(Y4R+CDSn8W zP)A_02d2DUCAUiJ@tMo&{KBSj#@Z!v4Rrv@q47awV5My`Awxh)M5V+Jb|+cP5K4Z9 ztMh6%%&XZ%|IaZth{B3AA1qB6>L?>Z=g9o4^={`+6N*|xCDoPcO4yFL9yC2u>vEQT zUAn?{e5N}(_|1zv?fK%{ea%@xnVvaBBo$$Lpwh|R4$5P@ewP4$&cD>2RF5A;WgZts zLT0fZ;=G=Q1PzGHJuk@Xy5C>?mD+h1mVU~4eD(S;`@V)a54ItT>1lpFXHL$`pn6CZ z+aQpGwEOBPi+x~7f8TMU~JX2kTPV=#eJcu_bBhyN9ifh8jOm;rk zc~5`4tj;X(u4-c3W~{sXJvox;uI)ZDmEmpl&h)krR`)4724XT@s1@kKtyJkvcuDhw zmz+fe!phUHMI(e|=Vu;Hj|BK1H8d3aXUh8vEde9@JTnQs)HrleXq~KFa%&-4wXY&U zb@}Z2zwR&p=07f;aKwEWL7mS!e)zsAk8K+6)Dm;t%QmhnjGK1T(kgQ&Lwlt4oeD3t z%s22t{`vuY9H;e9wRlR}qmZEwzf}onp-t_$Avb&O*XKSU^ac}23lC3>;%D0px5Fuc;xZ(V>QxqM{hpj3S{gT1VsnPT zY(=M*JjvC7)>k%VItKX49)`B{3_IsC;%S3qKVT-^F2N_g9ORNyGseUVY_)FDA9kbS65hBj%OVw8Vpo#)V25qUOpR}%` zUQ>vrTXu|v3gH*j>R`krhhYi+({V~GAQR2+iM0vVR;iV38^%%-Fh>DT$YiXf09tY@ zfREm(Zf;nzvl@cqRwx)aRD7@vwzN>5KF$j`cC6}buYEFXdHVQSwdB<1XSv@(Z7z5C$&5e7 zQ+-I9aq?8#vCMbvxP;LZ0bFr3J|5kF0NaIt9w&QN7N7K3d3>|!wX@JH`Q)+W((&t8 zFJ^CaAs1dKaK&eyxD|<+hyg;=eop}YS+ri@iIa=v8f6PC&I_^g|AHV8wAO^!dzm$0 zNh1Z)g95mx>a);pVL~8Z+AwYvNC%hHz*R1$`Jz&D;)Ms9>LLgV@v;yHU*P4itw_We z(_68E12lCq7_o$hhk?7M(J(1as6S{z003`l63b<+vj_sHZ5C!vBz`6KtqWxRAGNH(|zjY z>AUQa_4SI`G?!pkB&wq!DI+4|9sCCS_fY$Ez}b_M@Sw^s<@yw?Kfr0^mKOK>S5<>& z!Ve5aG+_Z}w>bCh%i}j@AV7f*ELBIt%}9#eLsjXYP}2@Q&@lWp{nR0+7&^h-QvI2SV_ZrE-E#SEcFe6wO(bVhbqH>1H>nVq$q#gf0HxKxr4KUGzef=du5zY%b61xiX-5SL8AAbQ5=kBH&9w zEe2woRFRn2drYD)OG0SyfV(F7C^ zz4@eW`30z{Z$6p1e(#!_pT2m0Gyh}elkc}SK0Lm5;4Lwb<35G9HEPvSG*3w$+t^lH zC`b@^NYxV{=EYTAnFS1Tj19bkO>`9LrY_3w=YrkKadKwmH{KVe$Jgki?Dlun8w=`~2%E z5w(9J*50!$D^o|*ezclaqG*(^y~D1JSXOuL&8((Y!0JExmCF_Z)zfT=xscd{I09lE z6GRfIqhwUr148h5qu>%xNka#!xUwwrcAAIPORGk>55V0Duy_II9^06u`hv<jfyL5hE{DHOyTyHy?ljvA1 zK((qCMc!RYmB`r9dh1+@cjnD)gbfzAUhlj#aK2Kt?x!gQY`q>@qsL#C5$sV~B4_4Z zmQKtswoFD((q~0vP&0+n?M8iYVQRQvu{Q55p2hNDc?^*ja-Wx&M{;vw zcgyvbl_}c@@krslqvpc{+a)W*112}R25q043#q)f_P|EVZSwiTn!Y)vZrjX%U%bqe z9}u~{_H(hVeeLTup7d<*)1^$yrsLB^;;3qo|M^*FqsXWt@n!80uYiJ9dUd+~s(G@W zqOH1^xMO%|=hAd?GRw0}xk?ztVjh2Js2p=ii;6t``oG`Mdn-%idF~kpUOw*ftBg2W z`OE)|*(D(mzCO#d`YadtEPpz%;$`KeAh-uN>XJG?4KMIzNI)9{1rgN#{`Rq&7#>#? zd8m6+Q-PF3I&!LLOZ>#=y~{EQjjRpvIm^DnWfLOr=z~AF(YZFFproonWw(e1?Y*M0 z#LKsZ$`SMNpOUuDff1;^H5aDD*}$9?`LpcrQE!@b*WDLqU;3UrHI%gPnZ17a;gVhP zfgI?+xzWMD@0h*7o>qN6QTWq}r(Zi4*N=2wI~%r5x%WSu@K`l96G4#1+V0}MF8GKV znxY~#5?)w+xN)c1f1nEPBTG6;8Bc#l4~S)E&USW=nfErQY0LI@VY* zb}x#&DP-DSH25tq?CU;kk|g zrt3`)!QKh#Oqj_a|Al-x0oz~&Lgd>_LnzSAAk-0>~L#HUQW)3SR1~+?WHFF*VwVvkqced-yOO9>BH{& zcipGHJv}p13=$u{3U(@UZk=`bpPc4YL&ER#0Q2*Iy9v;n4n`AG*#F|;ACLY9+I)KI zdgGP_VX4~n+X_Ek*0DDR!#xtyq?YKy)v(l$={fL_`y+bzv;f z7{P6Dn5#vWyX*lV?*OJ}pFkKXM)DA`rB2_+kn3TfLbGT(0hPsMl;9aVwd+0Lc@{e| z*mX5Q$X}-%C$56({j&BdSR@o!N#%cQ&>rYu@V#JkCk`Oey3avSvapOnMCFTMyPTHJFw4=_<;d!gvTr?0TQ>QQ_!XaeFY#oUR z$q1eo>@tsNbJst4eX6CFE`0J_qZDkAYt^zVH+O$Iu2|AFV-6Efd1lvQb5J2)K5Mt^ z!p_+(7V~VvUig6(znd2nm_cJ^?1HiD%Z_BkwUHf5BxOWX?Z7}*hz(!wl~Vt<4yYXM zA0Ah4P_uVGUPE&M1}Lz5o6~zkWFcjQeIZ(MF1rfzz%1ZbSmUm!>Q`(hScWW*^ z^sFN_ie(A`6O7?|zIzvPi*yy=2Rc@mn~6DIIQD|(=E zs8Rm-)8+5@TMp5b{Ddp&V&WQ3(cmN)YegDO*z;51=hUeVQYF?n897Q*q};&;Kw5LD zCi?PsN@1YTLiDBvQDqXe?8eIj9Zwf9^&S$B^6D93CSfp-?y4}K8s_4xnRPj+^@i>$ zE&gb?enm-I(AVdBgK=pDExvB^kNuA=ec~y(4cexa>|jz&faE^FTECD6y;^@_>V89# zut@y{`@X%kqWuobJqHCHjdTi1+bJ;SWo^n!Y?BZHYMQZDnG&U@^Kd;OZOA17q;i+o z!+c2=@&z+t>V6N2j#hCz-%~aym?bAR_Ni;QgzP^F(7xBCX9t@T%G(M8YeTgZCN(Z| zSr&=tu2GV>_hG3$vfcYwFG;Sm#c%vn*-J{`NhM=*K zc@f*l#~kb9eg52Sc~OMWv>sfZ60J>Pr~B{3*oN70vWbye~(MI zPu7MPZB<@MWe5*KvYcMP(HHNQKKv8%t?!2Zlc{6cDS2D-6fpH7IZEz8W++IEF4yF} zePi7$Nb-M3G1EVdI{%lb32#w-n#e}4dHj>OCOlgd+EpDLHW!i;YZL}=TmHdvZ}ff} zst-<~4jc^rPzGfby#AFCLj9?W_IOY(CqiR3HL4Q2FZDQy5ZXDhqxCkJepv4L&yKMx zc!~cU$VzmCeBnW0=R^4pb}1MlE%$j=VZ62Dg`G^YpEBXoH>|i)Mf{oy14fR_k^#LYl4Sr=P%2=wpK+tn_X!Pc1f@N zY91xBXu26al9kT>5ttBXD7qkRrixEm$TpUbtCvv5RsFT*l(Dut2|p^lqT>1EyfLq> zo}VxAB$ur-uF|i&x4cDVIbXNNRJ#gAGedfaOzwb5b@24n5iN}kPA@8)0w%0L*ka%- zh#?YR?i-6SxGfNkD^{a}^D*xp2KylP%fKrN6%nB(mhTY=dza-9T+zIh0VyMguinD< zm^(I9Ja-T$5CIj1NildeJE}ADKL#O2t-8*qudEx>)n7k0%FaTROdNX7FY-xLT;z`Z zj}uL`d=$+htW`5Gi@IEnpXhN>SjekJ>r!Ls@3?|`C7tKoOjLpp(HGWe z>~esG5&z6EB|vUsA1v8!ab(-d+LKuPCJ6Y zQ-Feqni%pPMI%}vRWCqS{JoFKzNkEH=_jm5LBa9|!fon2!o1qG@s)Y(-%EsM`Q_U* zcJ5EXR|X_0jWoNVp9ChsesXR2)lryw?L|*Kk(;m5Fl1&?2S%^F*bhTuZ;DK4Q-zD;`BrdhglC54IN*i{^lQs0yv zB9J#rkt6+K4qGMT!K_ZXBUQzIWV*Ul8AVhHyrv%H+!5bFOV~J>NBOM`ZlJ)>UM~|peTU+F& zPwnw z)~*7{dvXXA1RAxNJsm+yn@vOQ1`4ni(hcFTLBp&9aRA-m|NrpQN7$rW0fJ>L!tKFk zTZ{=taniP4>28ELv{laN6DVKDVAr&uQ3ix9p!xwa0X7w};uOdwumDr6s}ch03ejv2 zD8)f*>b1C-otcUa?! z0ua#iNwxtL*QT~lbmT&W12858+SoQNV?dQl0u+$rJu{XTq5>^|A&3zWkT-n}eHo`3veYZWa?v;@gJwc#1leGWEL3TkvDSMGUN$eSep zJJ#!$l!&wDx*kh%*3V{$?GptVK*Y?)yygo9+b9Bd1xWA1Xf?s(=ihElp;b&Opx{^D zCmzapuRFd7M>rdP0i-Ui2ptpP+xtZZV$J3IZP(uXy(%DtDzePXRA&V14s_WKmB$Wz z_gU!imBj($+ur;PTgw(?@bIA7(rPXV*y&QBDG3ZEK;=Xb$6^lNR`F$jP!=9HU5C6l zrI~SQGV8*sFY8F#xj36IyF^1I(Gss9XW2;%xeP(#4@t5v%VyJ-PI%iAX7%G-Q+D;T+yN2{1hiVAlnd~BnYjui_dP?&qh z4IV`uIny9lTH61S2q20%W&`IAGo=?vMV*U zvUXC@muO|rx2B2p3s~~D*fm0BhpFzHdd=Y=z4wWeufk=sSilIYCE#*b-Up@&xpDPm zOEudMf!!{oN`Pwl6<3f&Y>zt4LdK)^{th%|s=}zmLMtXOQR~E2!sXT$wOxC1I=yV7 z@NxTBW>bo*+gOiR><^1R^Q`OW=`ay?a0hI0T4KRsGyB%AFogA$AH02R)^4adw{-SQKIUT$<}Yq; zSQOb<$R)r{i8C9#PnckT)RxYZv#*-?_v^@Cpb{exZ$?6%(rHZsR6&GVG3l%T$Y9Rk z^C_k+Ow8`kuI`R|D_AFJ|FMhft|QE+4h**FNR5n&*RMtlzx_z)Oq50 ztE+^!^g<+8I1tI(bY8+c4@MV;P1UgNU`>U6Jd9v1tNlV$)D;9<5ryi5G>~UPTAYHB zG85~s?x$CRzufk70rqeNxIWhLFtGZG=Dr}e=f>yLi-nNMU$Mn=XdL+CsE^kC%C!TA^R1E&svwY=qWQRtd|iMPS^n)hK* z)zWLB_WjVYJKyC8{xx^G_i|6owM4~bKf-$ZT`>kXG${7jarMYzs?i=(7Lse&x!Ua0`so8x!$JB=^3hpRlMVTfWcxPFKw``u-hW{)8!V3U_eAZUK(J@>lKYx zd-qAA_D0=S?I{|rgYARs<+r?^KhE6(GZX_DI+KJ*)GO;+Pw?W2W7jys_zqNF2PnP| z|Gu`iXu6W>1k#9LUM zHfH$nASv_VCf|U^m;bYnSs$z&-q@jw-K#yYsZzKysPj~nPz!W?b0Sot`JNUJnh4p` zbm&#js>alUq=$Fe*p^yri9M1j_F&T19Vgj69mdeKB$3_kTt0IbR@v}|$_=lzY}x{Y z)EfV87ON0c!PW@l-a>3tT#Wq}T&4onQFFfeHT17Un3I6C4pR!Y1JG6efJ_4#$FMJd zutO26shJ1e^cT%^QO6W62eAGu#o7+5kFX(W&8=d^^~rzBZG%n1 zjN`DTRSt(`8+#B?@&Qwh2ivYTGH^LSggc9Yqu6I+PoNtl!KWY144JB|3tj+uofYro zJOAInTA!SmBRFZS{)+N*hqS(;o9P)wR=>>$I$B$eJ~7`Cwmj4RAvx@M8hcMS4fHZ zKx0!J6zt$9(maMV2VunAVI^3bsrzp{`0?Tn@$AJ{6&oW`7Owf5%jJJvB-p{eFT3C) z9?@fG3qC8~e%=?13&zbuio;;@*^2gUL{oce zWwj|B_8?n^>j5`qFVoc@Tn4wNEbwVP-6!Q*4((fn?^==kFQ+!h|8{bz6?{le&S*gMwpMC70Msd%H8j^Ykmc6W!&&cgQDql4eS<^|k1|9~ac z*l)?dF8R7-=*01J10kZ7AGu^!ZHRbUIZ4<+x7fP@5UmN-G(3EE_2mKNv(=YG{i#U2 z_o(#1BJKJ9{Re{27j5)sdF#{y)bu)ja}p{Z-*ShRo3@+NuXy^+TOZn$97E-lcMb>^ zi5thd&X6BEE4eTP_ZosN)kz~&4o4NlTH9gKTK}EriI?=!dGQURKW@NpaQg#coyOds zE-9nt1Q!UK52+V%6K`+x3U)ttkI61W*4C~g8KJx#qgCxwt)eB?D}g*an>#&9o(u01 zJHXsG{)`~`P6m4fc7VCk9Zo7zv_j5-fJ~u*ZI;1Mc1}kjHb|hHuew(`c_3KH+ykou zOBpd)coU^~clTARj?BjPpomxvr~CoN8IL%bQZ_pa9z{(*a$ZDNmh)vhq#Q@5(A+ty}8&x91+ke1{|5dLM=?pIMYNT8s>y$8y9 zY@qCl;WJ5d;acEaejx(e8r`|e&n^{xzj9Ujtb*`CA+3>$8zQd-M$w?l?gXaC%$qqV zwe0iXf{XMX!|VB{<_o|Nzf3_tgYZE`tSMyUpM;+YO`lYQz1&hv>F$e7xLB5`iArsR zToGI0H00JAVkE=Z02@LsKp(&sExhEW5ej(7FpN`@D+C6Z@Z8rc-sbM;rW}!5JF&UW zh_Q*RSTf*y@s@rjr}*#bRebgkfG$O9KF`a6u-rAs5U6vc?S0$6n~1(%OOUTjyMZ@5KITj_5d2G98#fO_YWS*LD~w za3=51ZUj3T)Q>^qi}2mA5EirXIVG8d9qd1S|9tB%XFK__@n6M&^$<(RcR$wN->rWW zvHjd~THHh2rVkjBVlJW8lmdy9MTVLq0N0>)2yn+74`0 z`g)_;Ti|_qrhw`V1zpth-Pk$D4%i{@npVL`FCw@iYXq(1$_0!VHg+tIU;nv(y-mlB zm-cQ8D&6yJW^;A_)tR5x+yN;50S9TWI(g#6^r-~OzLO_Urat|zs~V7N{Cjb!9b^5)j1h1 zkBHrt;9y{9?d(?0&b>phb13$i=ex5i~UKDiDKen$g zHX=W84EFbl+y33I{TBTQrfixZI?S|I}eyl-sIgLVoU=Pu!|8lu2?HBcA0d$ zbNE$*zZ92~ELW%ys#o{3{f8reW|!n7^k_8EUBP~Jxl6U)^;>B*{y+PTy}2-cMz=rk z8on{!V*^@3gUVp*CI*i-0 zkVopb8=`$CPu((v2UlkVc5MG^(Vxegq9THb`ik=Yx}3ki+p6RoIRQ0L;_;QFH?Ux{ z@@X4(HN4;kyVB0m50e%@;zi-U^8eP4U~`e^Hs~JcKG7v)#YDLMZEdKrr0}Qfg{;l} zCvpicpSgeXvb1N>{=fs>=AAp2ySe*~WA4P20O2-`8vd@eme%4)B0?Na}AzT(rYS-rTW2Ck7fS-z+sobiv$VXw% zw1>>CU~FQl_l6DMIA9ctrF1{-r~l{(`03|uENQyI|83aQ`W@ttZyprje=y2*uL4p+ zcN`NwW-wRGCDu)UwI6$ZU>H^7FRPvJfb584Q(n!~1nb4r>S`UjjooaTU~s zunj7BHq#UevU~O&lwC(&4I&-lYN5jsrD-K$p`H^0dtVxYDXaAkL|^@s%_+Ze4>$V1 z`I+YkJs(8-?cOFoqA&PJhY?# zq1~JflV?)Brh8HugUvgWhxhn;>5~MC{+Tqa+I9F-5umAuZVV59|MvQ4Q^K9V255}` zj`6(lo7VE+NsKvov~2#$7l(GXyuE&{_3(4naKx#Mi+hKii?zRe;=eLC^b>BnHGkfG zR8Kz0x*fJ7LL0Gg)gVzHXI%aQ5RSCQW zOB3x)JT~x~v1#7g(wH5R{nt98Q2~Av5Qh_t)g5&~1BXm=PcTY$dIklMiL2R^8ryny@2Ty-=THmGendt!PtD0Qp{3`$pO zD214??c{7Fueidb98$G3W(H$sIS?73Wt4hw3pY^$&SHCR9pu4YKSm0y-daT=Uq*8; z)hEg!!TCPu2T+iO@=$MbOMv$dUf~}9F|R$aci+$4DvnJeL_|?tz!t#x1p?28Byd;P zFhM$5%UtNi$va7kOFGRBx}5L!nagN?(3svA2cEir0RE~Dzem4_3M?yE%bTB3KkE{b zrDm)TRzRrvnXu+dJXJkysXkTJl5vJGx2!HS=eA%nOgsn82re_f7SOMrNiQ92>6l6m zmz2W|Ah;^lylWD;XHtHo*nKn3xMV|#77nJ0AoNmHg19Gye;HVtB>%mwl-Zvw1Y86qbo8G4=rj0&|GclchJ6i6~bMZh1)@Gds= zaVlAtI1mL^_NWf(U2=kP7I0lIMkb(I4zvX+G@GdbG$YyJ2Y_j5u_UC)HQyTRgX&2K zAf)Z;z!_dN5cb1!vhWR`wgIXMVv5&@z_p+N|^Zn*uKyWEY1wR zn|WqGvPD`~OBV@H&oaW$fz}%|-`lA=d%=Qi_}OxCNS-4G%K^0`LC0@2IKs zgj@?Q9l%Rfp&#qq4@l0O@d4YUYv-TYuZ8}c)8irR6PhDa^~Fo^rTCf(kT{qvW9xOk z{?@wf!f@Kfr7ZF>0^gZIZ` z@$fGXkZjUmSM}CV1#tlbGgm?J{bsfGMTFi|x6H=AoJ6<#Mh%*ezX=uK^T>JMt=y;@ ztlxHA-hXU=YDr|lHT-e^O?ByY|4(z@0uI&oKD?7IoNlB}g$g@LClx8==r+Z;jKb7O zq#_kjZb>MWE>j{iN+Xv#sTkpOnS|)(a7G#>m&)ywTL{IGMETye_RKV0&hPg<-}C*S z=f9sld#}s8-u13`z3W|T)?Vvfh7;9E`cNZw+&a5vuq)a-il1z;GStM}%)RqTaCKT$ zaY@6pEl#uGoCGj9r}pCWXE-)xuK#C)JcGlQg|`Em+#jsgcjY_?AF(k^@29YfXMXwT z`f9(*SZ|w#s^5nnFtiNloRo3Q=Je$cM;gI&1DcFj*86#N{k8dxd!wfIx^IFLjog>b z?CFXerEyZ5cW5}H_N{KTFFV?|M~gA0X`BsBd-E7mHT5A`os+u2)Rb-ivM&25J`6TO z)jsLl2AD({=c~Dij{~scAtIr!0E~j$T!z1%!f9r$_JJ1^^WYFFX&jzwNd72z6r ztADk#^Gmn#x?c zC6o=VRTVk#?ctXg+*K!|H zQa>mHu!%njb=bJqK2rdP}AK6=n z+tMo;b|=3OWeV%yKs~!pC{T1B8&1Z;K?(ikx8l_-{dybG8N=nUK^RV9_k-$NV8fa?6nkFYwy7ApdV7Qx#elJLYW<(sj|1Tm9xxI{5^=t80x5<}FBDk-F+oQ5 zy}+hR)4Ts@00b5xAoJU5z!j(xzySv$G-34E+uk} z0J(4`?7rbC4xc~UJZ zUi7zX02lq28pThgREOwE)v3H;al?$Res_m*{&2U4yW&Pw1D9>Ae4C+@OpEAPpR?yP z^!-i=uLn#&E?T4wb7lWC*PTVD)+e&vf48D{*_YN`c64`u)5S#GuNbx04-Q;hO4s^O z#3>Sx96b^YyR+$fx^$BA3c-hr!G%r}E{y{zg$u8^fg?dALL=?6Zb^5b^u$*z(F}(^ zpJE}5u1LxydB(H?XDIl62VhH-B;qTFxp3bsutW00Y~ib&O4D4Z`GQWYJgCQ2Si9e# zpWZl&k_3t_ugVMf7!j*UVv5AMq$R|9T}U<%dr9_I>nWhoAV;qX&lfmY^Mu=E{q!jb zb^ZI`vkJbD{E0^e3g=Uijz`M$2(anVK7Ej-R(r967IFRQVX6m(KZa-!Lj4Vp7Gp>x z?S8^_U?)5*d0BKOAG9Wf1GKmSh?M#YvEG^_=8Xm9c_P5t z5dOe`@}cL=f~C%o4riKoV^W0>(T(!4p_7mXK1_*J0?dz6S>*GZqD<`B(S`O5u(dz$ zfvg6@;2zcTtf-{$HO-(6sv6NqSyTMd&cS#etQGz(A3hmUwQU8fn%!!ZE|faO3iT37#)XUaWN}Rz;kFF4PbD z8dw>OVqlp&vgrj#{xyl1OMp747dHhlO5CH~K^9D@ZtcXOaYu<~j zt%AHrl+C}igs-{40TGh$?u%pVf5j6;efFfPr4;qKr$tAsV8Plu@2QnqqSU|u&I50& z?6g*dqgFUz#s3Y6jze;4?k{m zfOOG4O{%2RW+0)LG+^{k;_3-dz0kO%MCaWj_hbvGU8x|kvO@{J)TqRz4;m=i0Tvfr z`bHYy5O-9jI1sNNj2^xgc@cZXftp#casHbyJ*|Qk4xmV?`7~zW^;L z@0-ShsD_a-9MJxo1QM576~d8H{b6r%8}-@{{Vj*|E5@9d_tZ>UuYS`MU=FMiIPFv% zhk7nRfr_Uk6pcYqXYlWu^9PI&GwQ3T|Hd7dytDz`>2MKxSuuB{>)D7Zc%l??IB!NZ zdp8ci{fs-ztMTF6^w-^`L>8p5A`k>uN->iv^uLPG5AY>Z9orREC2;(;Gdy{)>evm3L5on)}|2he=EjR->&}y z@EG``n(DsHz8vPKN4ncjD!-why4BtOFnFP1K zxU;nq14&iiSK{%%C!FI5|EJs;{M3CV%}>t-&l%FUk504bNT$~-@%A3IiTH46`o~|3 z;cU&Ye2~`xd(>8{H4-D)v{1CLm4t2=ZK-3C?QBanU7ZF7^Kjw5l#s@zBM-z5vbdY=(0&M9CsifG+lgp;PjJR=O6*rxv&b zY*WMy#2G{{#FEV;*uE@)QpBJT#dhJ4n2E?uCtU>S$rin^o387E}3LSza){FB7~Ze6UlY~ z;E&WY`-->HOcUja5Q2~(TcE6HkXvnk?Y7rU->1 zPz^t}*%XCxUXCK?roy#m-wvgEM) zJ9r3y7@%4lZ6gX<(L=$*6La^w2!#5} zjYW|H{EC?v((mB_Rb!!6m~iCBqy;ROOjM> zED^9Y1^?Ck6ZZY4DpC{*P+|Zn3XuE(!J-f|sTgn?q6ow~Ureeby_l_q03@59$0F;GK(}C~NI{s9kOB}NKzLqK ziAa_#+Z#v_7@=gS?ntN&B(sR4sLuf^6zL_9ER?P21tee`T9`J##_EOl(agrJkVJrXzMO771i+vD)TR}4ksWiaH_J@FG1I$hohoH3J$-)>A zzhQq!iC2Bc7mQTPg_utNNYuY>3!v#Gsdm#7R_(Y#Iw1u{Yp@8>>)o zV0EIU3l+8S8j7hVSt5?our|QJNDBb0fMgp%{Q#K%*McnO00yQ~fK1}@uqf|0Peqg! z++SD*E{X6{X#qe41tei;%pU9{BdGv*3dA@lAf&edEzpXz5wu#QRd5;_Y7sCp2DH*i zaAp9BLMMs`6*vK%3}Xi@q?}sDVPfH;(4lPb4Mag&7_ZUT{vg;WtQl)DmLf0{0V!g- zvEm1ILpD&IlpG)@_PM}|19*@ROFU)n-+X?PI% zO?}bCiKwJfPlQ>75QifDB@UyyG>Q5~8K^^PK&46AoCp(QJ47zgfWZN{P>a>|28Xp8 z{9RCIK*t8Ag|MDe1SZzA6tV0>nVJ!TlLAc|hzFJvR1Y)=W5FwwVi<(Lt-A|1U!)rZ zIKYK!&k!&X`W5y7bIhh)$tfP+L;O$AV>Buxq- zj)Vs#`QVHbasU^DG&3VPnHrD^5@1YN1dxKq?4Z!#CrYl72%_bS#i_&$xC(TKO4I}p zDq^ItdDKZ4h(vmQG(ycH@woTozBdD`fuBDA+&AUTzN-TpKV!=;?*=;XxAFb({Y`rM z>C5C1+BvDvzk9&W6ii>-Xk3$65W41EJa-455i%ksOF}6}7<}IWqjsXuGvGOvBxdc8 z-iS8o39*0m;?Fs05mFyC5=Qa!G@O3jXV72JaNAkwqGBjmDlWg71qVnkOSOqJw_F+r z#;u?>VF?awth?%N0q3=#ZGDs7RAJ?CO+Zrs+&=l!U?ESM=; z)3Ip5dzJn>apdU2;2axHt^BGFnewapFBh?g^~865ic0+S_~Mj4`BncY(Q=FFQ-e?1 zBzG?{zuc#~k4v*?3z?lX@bpc{?01XgXcpDoXMUg7nLwLiS}{cXY*Xwa8MBGS_olOg zo|B_FwSUd9>#rH8qYn-WZh9O4*e3aX!d#lg5kYTn_cofvZIcHbK}|_AokZ5&(emm} zNxx5vsL6@A)Ar94h;3M8bn)lry&3}vKJAN+y@cE~HUo?d6GHU-QFu!IY{;;4q{^P$-gQT- zj)!j;;Yv7f81d){!{7Vh*&)tnZ>Mr6{~A))OxwSB`t(7I3AM2$bHYk_=eF&i=d!_4 zgRoo?vO(^W+{wZ~U5^%?&B1PcV%xcHg2*G#<>Tsl$|^C5mOcud_(FUThcZA%|NeQar^yJtUt;;&;%@2asPIosyU(4HEy zM8>l8F`(&&G{n5Ed$vvKH#ePqs3|bbATi?9g9D1`_iAWGWBUZE{o`HM44r1LdnxQh z;`SHHnq?!CUU1&;G*5EmMU^_gtQ(b;7SrVL`sMg=uGi&Re}wBFcGY%ynqf@y z^+=r*ZFF1FqCAhe+G?*!T($i?KmC%WFMDqV*OX^^=xuTS?Py~`YTw6W?fr|uET%?b zZ?V#H=fanM718V0uZI@CKEr8rO+etUpVoJ`1qP;DUvCTawhlt2CkDqh849uMyT>@D z9S+-BVc)T^HMrZ~-_a@9Jv+y*A-A_Ssw%Dewz2Vi)by;UaB2sPy>jE6bY?a_z3_8G zYg2AVL0v~rZ|}!olMJ%s4$OkO$CT;k_FNAk2tODMEyW13^?chHw|M8G5=rUR)V-feJAQby8%a$IbTk_AWx3mkh_8 zoLR`WaIDT0`o#WC5Qi-4@*1(rHLKbi!c90>1&~V6nF#%0eksj+jQP^|#`Lf$ZI|A7* zqx!5m+(yD={Yjz)vLpuYDbL91Sa2=WKS1cCpa7-c5qQF#@$s#~ocLjlcKLHd2Pw=A z^ZNb6rpyO#KIB>+SzR5_=>0UD+_gC2>=0{IaLvzfN8=@kVR3a@h9g z+m)ZDjLi6?up=Wc-t#s+KRQ^;L2u97Y`*X9TQ~nH(;GRzvB4m#>ay!ETXcG}cY8WJ zRBgMZ+PS;Mise&y_{oJkCc)?Z@*eWG@%3wB8&>(29&GEnXYSB!o35juKO^5ZLH5D} zCc|Fq@cIeY)BCUO(9ve-d)<0+b-TXH^}+HRuFDo)-Tu;+bwJNGd{=e1f#;4XKabX~ zjP;5$*3R1eAYyXrSr28##_E)LJF8sJz0g=YU;BmgO8xPte|ZsAKc&+GV_?K{DDs zIozD;H_))ykz@Kg>|~cSI|6lgG1|fOPW1~T`*Sk0n3m-&*{c*LbrrQL5mV+2dXd6y zZ0EgFpQ7Eoff!0G@!wPB=^mTpzm-`W-`B484=3&KL1|VuUo{ommkFlr$o)tJ#J}?A zhC5|;>GRY!IRhj5X4absv17&$YfSmiW8R1x@sd*(!7M}{%_yuZ@XFV#J)=w01isQML$TiV}*;G_h> zWXjN?61b4nNn(el_e?rz0JZMF;fmQ9MV=jd0UXS%ag=kmTdcp#XORk$V*7q5eK6eB8l1Z(u4Xk@PBzb|yOGd6|#ed6^2l(>FE{b3?RK0=c|2hoYkVoSxcE$Cs?M8!Vq%-T9Em zD=P&_EY9tF^L#6zJ>_TniuJ~Htq3T3IVV%I!hf5H2?Xz%-b7%+$wBZqGqiJqT`F*4 ze&^8Vh2~YlO-!4rP>_=7xRh~BZh?vpGu6#~T?jErj$4K~kffdA9}JtuvLH1#hRcmx zD-Xrx9Z2yHYBDTLL#^SFWl_xy6o_DRI{cWGT<+1HVjT}$J50|yj($yNqw6NUm>3jd zH_krI+cmp}Msr_V?B;F=y$8-9|FATI@`z1oiT)CXr;h)8;T9Fg( zb_$`opHkD|mD_bY6KH!wqj?@hfp%j8nDHz4@jfv;L^HRX?|@h_!UxQf*A;{i(B;?g zSr*yXL=2K?NsKlWK($&v5Q~27-t$uY z95K$L$KRK&1UX-qUELL%jd{aGVN518zxIy6>S_=KxYTv-5=04)S6vOq%jF_w6}7Hu zK)m7|NQFRu|7S-}z-g3gq3+>Y%FC`sb+6EoS?ps5^iA){tZ59a$)lMb7lwd;SYR?Y zzUQh!(!$5Y;0c3sjvj@o;d0+Q*SbOUh(S5kwfjo7H1{od88c2ZG8H9uLG%4(3Nx=xD6&c3#Q`f8|--s9Qav%IF80S!f^i1Z|x zm!9nl7clQ^?_%1c6!)0S%(OMXrt76WMqVbGzYs! zMSTlE*yaq){H54Xz~#p82n0P`RMhU;F*laS%M`2r1({@QJm^RI>(6Y!AXPA8_Q0Nm~K|C}M! zeNczF5b)<+f*1sddvj`MpBfX%0|Zl`t8MIYNLzid@GVhrSDVLk%XCN`cIs~&m7SU0 z(D`)!84DOI#$52x)|8(J7>U7zV@QO@qAqGtyTEUE2vsU}JIfFL@j(o9uC-0uO86oR2^Vsxi{S${PEy4{f z*1e9+n$KpgQsy4l>U-B^DD>)@8F8%c)vXU{CfJcw*pu^!$(*d^$US?lYfQaQa;QVo zjL?;5mT+92&$r@u-S^^DR#xI=VHHo>YVW{mr@&opFKh4YaN6Ng7d|%Ztft_a$GWL0 zp-ekQ51(o0Vf5zF^KJg|;XT8-LZ48}2ImvXE1ul&P>$E|D$dBrfCX_03F#3Tdq4KP z4yf;2kZp3BGjJc}Gk)KpLPhZAXE;6=Z&2(05lYwQE z;r-3bImeQeWbcpQfObsQRK2X1yzmdNL&LY)Gfssfk>p=4)R@;1H(^l#7jviCe9JfY3 z%b{Lolw#~2fxGNWzM>9!u zw|}^WS<`YUEv-#mKe_ypeZ9(b+Th_s73RpO6Bj1P#_)J#R9K^r-mLMf6zsH<95yN} zW?HIgfy$@PjcxSP)3Ke9FQ)}evN|K&qNn@VcDT$&!gAxBp$Y_mnZ`EBWdzl?t{SmQ zVNNJJK)CblPSx5qVa{^?sMoUlThFy)I0$EQOxjAmf7x$@?A^uSEv@PCXY>lnFVHTH zk+oDGCL4FDXK#FbT((bfbb|HhQMu`>OZNtJ&)7HDtW2wo+0EQH&6=krvy9JiTO0Ch z{GWdmDO z$w#(>g7($rq45*qvJ!79%*;CX`F^&^$H}_JFF(k4sqK}CXtnrQ7GyWG4YUWfBCmNP4mH|&_>YwICXKksBj?p$@u^bh)zYCTOWwWzH!rE`+qSO?OM zAHQmak__cFniMmJBj{AB(t_KR@y zUU^gbCHE}e&Df@D9lt85#mTAnr;o=>A32Ro*#7FWyvp#GHv3-AY){O6V%Dd0uyy+1 z>CD-wq_K+4S{WxUJ^0krfW#wl4Ec9id7C0%X!T`VTy)%c^LU_A>J5)|zH2mDPRkWD zln!>C3QS@gTXON|T&-kN?K_>XY_g|iyYAogK6!BGxDPG2qYkz|=((L_z0ERl@;}jk zn*G|KQaC%?wr=Te^VumNsQ^qPAivt zDc$6;OON^d88s}sv2by((!nQY2J}&-(f9k04UUQ1l%Q^LAm?pZ$BfL#-xogiO}s-g zTsYT4gaYpaubgiA@RF~~O}KvS&br68&k}L7d5QSF19bpQfG&D z>dv#v^(UF;Ir5rkbS{4P#`VxmO}F*-TP^=qJLXcR@*6j)huvjkaOEc3L+M%a>Fw)Q zrzj6fb&^krnr%^VpZ!MXkjfZ~GZE%@{0rnJhAq{Xdy&?#`+AmaR@wA_Y(`y6_#-;f ztc||=pZ$MFGuI9&No-LJ+BVy7SWD?Uo6)A}RWl}+Mh^+3HNJe=G+XKR{srq>4>ey& hG_TpaWB% rowwise() %>% mutate(issbr2 = map_issbr(issbr)) +ntab_s1 <- + ntab_s1 %>% + rowwise() %>% + mutate(issbr2 = map_issbr(issbr)) %>% + ungroup() # check conversion -ntab_s1 %>% select(starts_with("issbr")) %>% unique() +count(ntab_s1, issbr, issbr2) # drop original and convert to dataframe (not tibble) ntab_s1 <- ntab_s1 %>% select(-issbr) %>% rename(issbr = issbr2) %>% as.data.frame() diff --git a/prelim/create i10_map_min i10_map_max/create i10_map_min i10_map_max.R b/prelim/create i10_map_min i10_map_max/create i10_map_min i10_map_max.R index e115108..0234cfc 100644 --- a/prelim/create i10_map_min i10_map_max/create i10_map_min i10_map_max.R +++ b/prelim/create i10_map_min i10_map_max/create i10_map_min i10_map_max.R @@ -95,7 +95,7 @@ gemconflicts <- gem2 %>% # how many i10 codes do we need to map manually? length(unique(gemconflicts$i10)) # 47 codes - +# now looks like 123 codes... Not sure why that changed. # manually assign body region when there is a comflict using this rule: @@ -113,7 +113,8 @@ map_br <- function(desc){ else if(grepl(" ear| eye",desc)){ br <- 2} else if(grepl("thorax", desc)){ br <- 3} else if(grepl("pelvis|lower limb|thigh|knee|lower leg|ankle|foot|toe|upper limb|upper arm|elbow|forearm|wrist|hand|palm|finger|thumb", desc)){ br <- 5} - br + # map_issbr is defined in the mapping functions R script. It maps the numeric code to a text description. + map_issbr(br) } # test mapping function @@ -127,6 +128,7 @@ gem2 <- left_join(gem2, gemconflicts[ , c("i10", "new_br")], by = "i10") sum(!is.na(gem2$new_br)) # 373 rows in the GEM have non-missing new body region values +# June 2019 update - 1057 rows now. # just check that there are only 47 codes with non missing new body region gem2 %>% @@ -134,7 +136,7 @@ gem2 %>% .[["i10"]] %>% unique() %>% length() - +# June 2019 - 123 codes # only use new body region if there is a conflict gem2 <- gem2 %>% mutate(new_br2 = ifelse(is.na(new_br), issbr, new_br)) @@ -226,6 +228,10 @@ gem3_min$severity <- ifelse(gem3_min$severity == 9, NA, gem3_min$severity) unique(gem3_max$severity) unique(gem3_min$severity) +# check iss body region distribution +count(gem3_max, issbr) +count(gem3_min, issbr) + # output write_csv(gem3_min, "./lookup_tables/i10_map_min.csv") write_csv(gem3_max, "./lookup_tables/i10_map_max.csv") diff --git a/prelim/create sysdata.R b/prelim/create sysdata.R index daa49fe..c305cc8 100644 --- a/prelim/create sysdata.R +++ b/prelim/create sysdata.R @@ -2,7 +2,7 @@ # read in lookup tables from the lookup tables folder and save add them to the package sysdata object library(dplyr) -rm(list = ls()) + list.files("./lookup_tables") sev_cc <- c("character", "integer", "character") @@ -27,6 +27,14 @@ i10_ecode <- read.csv("./lookup_tables/i10_ecode.csv", stringsAsFactors = F, col # Original ecode mapping changed to text instead of numeric codes etab_s1 <- read.csv("./lookup_tables/etab_s1.csv", stringsAsFactors = F, colClasses = "character") +# check frequencies of issbr +library(purrr) +library(dplyr) +l <- lst(i10_map_emp, i10_map_roc, i10_map_max, i10_map_min, ntab_s1) +n <- names(l) +map2(l, n, ~count(.x, issbr, name = .y)) %>% + reduce(full_join, by = "issbr") + # check col classes. These must ultimately be the same so they can be combined with rbind(). @@ -56,7 +64,7 @@ head(rbind(etab_s1, i10_ecode)) # no errors # create internal data -devtools::use_data( +usethis::use_data( i10_map_min, i10_map_max, i10_map_emp, @@ -72,5 +80,5 @@ devtools::use_data( head(i10_map_emp) # add prelim directory to r build ignore -devtools::use_build_ignore("prelim") +usethis::use_build_ignore("prelim") diff --git a/prelim/mapping functions.R b/prelim/mapping functions.R index 2e645b0..ab28594 100644 --- a/prelim/mapping functions.R +++ b/prelim/mapping functions.R @@ -57,7 +57,8 @@ map_issbr <- function(i){ else if(i==2) "Face" else if(i==3) "Chest" else if(i==4) "Abdomen" - else if(i %in% c(5,6)) "General" + else if(i==5) "Extremities" + else if(i==6) "General" else "Unknown" } diff --git a/prelim/speedup.R b/prelim/speedup.R new file mode 100644 index 0000000..75f6c37 --- /dev/null +++ b/prelim/speedup.R @@ -0,0 +1,55 @@ + +# this is the section that needs optimizing! +devtools::load_all() +etab <- rbind(etab_s1, i10_ecode) + + + +df <- data.frame(key = 1:9, + dx1 = c("R65.21", "S02.40EA", "R78.81", "K85.90", "Z68.44", "Z68.1", "Z79.4", "R33.9", "R09.02"), + dx2 = c("R13.10", "N17.9", "R53.1", "R31.9", "Z92.241", "R29.810", "R33.9", "Q76.2", "Z90.710"), + dx3 = c("Z90.13", "R56.9", "M71.22", "R13.10", "N17.9", "R04.0", "M19.90", "R00.0", "Z87.891"), + dx4 = c("I10", "Z85.820", "J96.90", "G89.11", "K92.2", "Z85.43", "N39.0", "J96.90", "H35.00"), + dx5 = c("G10", "J90", "Z66", "F32.9", "K76.0", "Z85.3", "N18.9", "J69.0", "E88.09"), + dx6 = c("J45.909", "R91.1", "E87.5", "F10.221", "Z51.5", "I82.4Z2", "N17.9", "E87.6", "J81.1"), + dx7 = c("R50.9", "N39.0", "J44.9", "K57.30", "E87.2", "I10", "I10", "E83.51", "F05"), + dx8 = c("I11.0", "I46.9", "R06.82", "G89.11", "K21.9", "E88.09", "E83.42", "E87.5", "E86.9"), + dx9 = c("I10", "E83.42", "J86.9", "G81.94", "R00.1", "E83.39", "F32.9", "E83.52", "E87.3"), stringsAsFactors = F) + +# get ecode column names +ecode_colnames <- paste0("ecode_", 1:4) + +#create ecode columns +df[ , ecode_colnames] <- NA + +# for each row extract the first 4 ecodes and add them to the e-code columns +# icd10 e-codes do not start with E. + +# get a list of all ecodes (includes icd10 code if requested) +ecode_regex <- paste0("^", etab$dx, collapse = "|") + +profvis::profvis({ +df[ , ecode_colnames] <- t(apply(df, 1, function(row){ + # remove decimal + row <- sub("\\.", "", row) + # get all e codes using pattern matching + row_ecodes <- stringr::str_extract(as.character(unlist(row)), ecode_regex) + # row_ecodes <- grep(ecode_regex, as.character(unlist(row)), value = T) #1370 + # remove na values + row_ecodes <- na.omit(row_ecodes) + # save first 4 Ecodes + row_ecodes[1:4] +})) + +}) +grep(ecode_regex, sub("\\.", "", as.character(df[6,-1])), value = T) + +grep(ecode_regex, c("X600", "X53", "hi","Y82"), value = T) + +as.matrix(df[,-1]) %>% + t() %>% + .[,] + stringr::str_extract( ecode_regex) +{.} + +