From 060335f18c51fcc45b592fa39f2f90fc21708866 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 8 May 2025 17:59:52 -0600 Subject: [PATCH] Add scripts to update IMPLAN easily --- Easy_IMPLAN.r | 62 ++++++++++++++++++++ Model_Timeline.ods | Bin 32839 -> 27248 bytes R_IMPLAN_Model.R | 142 +++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 204 insertions(+) create mode 100644 Easy_IMPLAN.r create mode 100644 R_IMPLAN_Model.R diff --git a/Easy_IMPLAN.r b/Easy_IMPLAN.r new file mode 100644 index 0000000..d1d749f --- /dev/null +++ b/Easy_IMPLAN.r @@ -0,0 +1,62 @@ +library(tidyverse) +#R script to quickly find IMPLAN inputs or adjustment factors +GET_INPUTS_GAS <- function(YEAR){ + FILES <- list.files("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run") + FILE <- paste0("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run/",FILES[grep(paste0("-",YEAR),FILES)]) + #Dollar value added to the RNG in addition to the main production + RNG_ADD_YEARS <- c(0,380102,3097001,5943721,11224037,18050255,18050255) + RNG_ADD <- RNG_ADD_YEARS[YEAR-2023] + DF <- read_csv(FILE) %>% filter(ImpactType=="Direct",EventName=="Gas Production (Campbell)") + DF <- DF %>% mutate(IntermediateInputs=Output-EmployeeCompensation-ProprietorIncome-OtherPropertyIncome-TaxesOnProductionAndImports)%>% select(WageAndSalaryEmployment,EmployeeCompensation,Output,ProprietorEmployment,OtherPropertyIncome,Employment,IntermediateInputs)%>% mutate(Output=Output+RNG_ADD) + return(DF) +} +#Find the input values for the beet factories +GET_INPUTS_BEET <- function(YEAR,OP_COST=75){ + MAX_WASH_EMP <- 8 + MAX_GOSHEN_EMP <-15 + GOSHEN_WAGE <- 53007.10 + WASH_WAGE <- 71017.25 + + WASH_PROD <- c(0,0,0,35000,37500,50000,50000) + GOSHEN_PROD <- c(0,0,0,52500,112500,150000,150000) + + GOSHEN_OP_COST <- OP_COST*GOSHEN_PROD + WASH_OP_COST <- OP_COST*WASH_PROD + + GOSHEN_TAX_CRED <- GOSHEN_PROD*0.62*90 + WASH_TAX_CRED <- WASH_PROD*0.62*90 + + WASH_EMP <- MAX_WASH_EMP*(WASH_PROD)/max(WASH_PROD) + GOSHEN_EMP <- MAX_GOSHEN_EMP*(GOSHEN_PROD)/max(GOSHEN_PROD) + TOPI <- GOSHEN_EMP*0 + OTH_PROP <- GOSHEN_EMP*0 + + GOSHEN_COMP <- GOSHEN_WAGE*GOSHEN_EMP + WASH_COMP <- WASH_WAGE*WASH_EMP + + WASH_RETURN <- WASH_TAX_CRED-WASH_COMP-WASH_OP_COST + GOSHEN_RETURN <- GOSHEN_TAX_CRED-GOSHEN_COMP-GOSHEN_OP_COST + RES <- rbind(as.numeric(cbind(WASH_EMP,WASH_COMP,WASH_RETURN,TOPI,OTH_PROP,WASH_OP_COST)[YEAR-2023,]),as.numeric(cbind(GOSHEN_EMP,GOSHEN_COMP,GOSHEN_RETURN,TOPI,OTH_PROP,GOSHEN_OP_COST)[YEAR-2023,])) %>% as_tibble + colnames(RES) <- c("Wage_Emp","Compensation","Proprietor_Income","TOPI","OTHER_PROP","Inter_Inputs") + RES$County <- c("Washakie","Goshen") + RES <- RES %>% select(County,everything()) + + return(RES) +} + +4415*c(0.19,0.06) + +#Pull the truck and rail transportation induced, to remove it from IMPLAN results. Those costs are explicitly modeled. +GET_ADJ <- function(YEAR){ + FILES <- list.files("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run/") + FILE <- paste0("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run/",FILES[grep(paste0("-",YEAR),FILES)]) + DF <- read_csv(FILE) %>% filter(ImpactType=="Direct",IndustryCode %in% c(397,399),TagName=="beet purchase") + + DF$County <- gsub(" County, WY \\(2023\\)","",DF$DestinationRegion ) + DF <- DF %>% select(County, Industry=IndustryDescription,Output) %>% mutate(Output=-Output) + return(DF) +} + +GET_INPUTS_GAS(2028) +GET_INPUTS_BEET(2029,10) +GET_ADJ(2027) \ No newline at end of file diff --git a/Model_Timeline.ods b/Model_Timeline.ods index 90f0a4e3bfd4e9df72ab00019ab4101363341c58..5b84d6705c94a74b127666f1a59d0e30ad320442 100644 GIT binary patch delta 25346 zcmbTd1yI~S827m>?oM$i#ob+tySux4aakOS6n8C7ad&rjcXxLw9R0sCckj&2+}zIW zBu{oX$&=rce7>7Z2K|6nb6|)H(%=vn000aCP?cL8i>L_xnZ%!gvHZ{UYrLR0MEoik z(my-a@N0ZF7{>qp$Px_ge-#t?AjI>5!Te_~aQu%_w*Qh;?*CEvHC`Bq^)Fki1LOt! zmx)gYrvP<(Yjs&M*dlA!&lIZKqb{MJBrOf4$i7^TnzLIv7x(#lv~k#PSPT(O3@&(p z%}STU?Ri0PJzBh39$fU3q!Q~rAO~J$H{V)&I{QCbIp*$N<39-pRaPtv>uJvU-eGly(->0dRkh! z`d)nN9l}R!Ta_1>v(cr=%FDEp@rujX_l@Dr55ecyit#s1X285o;;Je2<{R5|99(H6+SVynLwA*kM49qSmH1VEzL%V){@%a6v z%`47|^Rlz(nja~Xrl*7Dg~B1ia_m{i0XLShTrvS)BuVV6d~UwfDJK}e7P(}*?Au90 zQy}(j=>TS6YJ7se>$SMRlSuEO>NWDN+7JkIi}f;t{GMC+^t}V$+kTL+J#j77QG1@Q zNe6iZi&6}J=(jC{hM>C2qVgId1x#gmC}AYc7BOa6Fc*QMKVj>|suN-HopH3n_XXHW zOw(WX6;PY6!lMET($Fwka{j_QU;w}-H~{cJ!VCrm=3kg;0si+31OUK&8qPmFY)qZ$ z-ED2o39Ri`8y;T&VupBKP63rkR~?PKenz-zH^P?*P5)RL42Y#nZH%K-_>pn9sLy|w zvk_VTq}Yd;lyZ1=)#f3hv^KvQ+C{V`jP?y*4_VxN!2uwQ$3uBn5efo58;ph6Cx5i` zR7BV`IaIYH8A$L&rSQKn5>`zZwuQk&YJSTJ7)T3(M=-)*_>R)$E_4q0%OJ&7SLKzq zuc~JK*Dh>3VFhIrR$=q9%>;WqOT0G}A!53^WppSeqLo+V!EJMV5flZ8ZHSdcfH~)B za>g7lRVLnUsTyD3m))zyZ(*u5ztCtFLPR-cXn8&Ak4C&m;9pDtk| zPG?3rRfeM1l-s!_Wju|(>i4$bYIL%CTy&WSap$dJW#}bI_;OzlFR>_0%tuONsV-OF zmBG-HNhIckotOUBv1EE_q0*vo6{l(QpMAMPK+avNWKnPD8)RKzA z8b4pI8m5+YqanlKmBr`Xd{t86ih(FJE~vUJ#fU>l14`ZXO?ii0Z42jtCx=Wp`l z(5RSw1%dy46l)TUvQ1WJ#-osIHn<`kDl>$&jPZt7phPPjeBl}rW;LS?_qVdJLSRjc z6woX|cw90kKa3|Nvreh)YB%M2a$^s9$^z={y+UR4`j6lIb&4@e1l-?L`3ZtuMGcv6 zcbgd2N0C_a)cpy?I6-au)fbJx3Plvdf@$e`z; zBDg{d+e??p?ZjLB{V0bB0#`s`p6>cd0@is^9$)KxiQ0G%ovR~FRAOm^$?9dt43#N= zA=kK1fv`Od0g35Fj_SB=0l!<~%ko^RT(qOIIrq7(vUrm>ayoa<5Rc7?44YKhzw1L#H7+IYgspp(mbJet{h{B>08Hmhc#jm5fN#^y`B zF?F5Xv8JEpg$P`^GIwWhou}XTQ)sRZXC|(J3@RlV0WRe}9b_(LcTKMe8y$vr1+`M- zMwpec4c1#;EVkd{Utk?Aw!9>CvO8CIfdU~E4STD!=l#Bs(+Ln_1d)xV+#u6>?gmtN z(LIt?3wiFmg?yG7nSFdXA`<+YWQ5W!1X8`8ro(jgc!VP(BVme5!fy;^cA0!!=aW*Y zrQ1Ia3`cG~OY$L9Eq&t$>uZg-$BV9R3r`$91NN=cp{{~MgbOchjP_F4(dqox4W%5X zyan|&)9d<*oO;^dTBJM;Izge0sw1Hv;?J>9C;oq#tK45Y?xbW*_YfT6U2iAm8+D{Y zU%29*kKd5&pU{EtY4#Buq%kltXPNqWN0RbY){4u!w|lbi%jD=3^d9MIW5!*)AL=fbgdZP#ar&n~_dD`k|=H+)SWn}{bkXIbVIO1TNs zwp-;@r|ZrI`pn*23Xb60rh$|0>clxTFMiGP)&vJ7)dU7kB(nq5t_qXm6HVsAGFe2s zP^8Zug5EgoySz0?DkvCCOHBnK)G660m^5VUQp;lk|~<$#DAAOmcx7nOSZ@VPlK# z+(2g}S2@tq6!Y5YInv^9EtPO=E00E|DI%Wx{AP*P4(-*53`!PN#$A&MUM-d4HE9`@$VZ63x5-D<p{7or zOLFb9Xg9mNY_sXizAYvxt(f|lSG#Hl6j}qZBDn3N3nja`3I7I zt=Mc!oqAa41Y|yLP@XQ{n(bE_p=CM;kgS}xMZYbM2dK147JA1G?2m(EiJwzul;3{i zl0!B;z?54KEHfQ)B%OV-`EtGbg6O(bCq+tghpOt43GPO?2To}`m@BNWEH!TktRmD~ z9xM2iHsRUS>uk6ermEL1H%#dAhQt`sU-^LA(wV97Or6QgiAi0uO3Qrr`A5KBIS&{y zVc_%BJ}AcMo8(nQxl^xyeDy)Cvj<1a@|bGR#8=J&&OfHLLvfl+$swtOo@V?wcz;F% z@@g$RsEg0&M7m;=lWO!9_9@R*Z*wfJL8&1a2v|XcWlz$gE3*#8-{v)uH~6M+?UI@i zd=;s4jNsXhg*3R?7=@mF>fb!YfGFjP`}=jnOrX)2J{j}m`;fSEYWRTrKHh}>Oy7ej z+pa>!@Mi+O1<=Y(H8*iyFGD~i^zeQ1HDL2E@=Dn@59tz$x$@3#lz#y)0c-WSCi9z7w->SX)Pj&|nJC`oA*W>Lv)9k>1( zdXUcv6;IODEs{#fK;*Q%&e@(cA?lYM8XFeUR40vU z>!_lTeqXcR0@Ku;!5TDr&Yhb>p%I5ES&&x74=IUgF?j11&g|@{qTAuK9dFm+P>rx` znIrB)`VluY!ff0{6`rtByyV;F6`=+KuONqM`{&0><;PRRtw)TjP;unG`^hM-4iQ4i zl=^Ens{Z6G)a>3hPdI)w!sIV*c!+s6P+;T zjR?e-+HPorZ$#I?+EF;wu`fJ#*zlV-E_(x<3J!WdHnT4__ob_4|A2}r7CJ0CRBz4x zI_GG9d~9pJ6aCZkFu~(*f8hauLG%AZ&&Qvj5`nbcRya|7H}zwCPqQ$-(<5dC5ehTL zz=Pol_oUmvE5wpjk`7Mkch>l`eoa9!Zd|UoMe&a9z!_%A7VAxkuxEiL;uRV|B};D3 zV+dXYBgLvm#nC^A%<^>4dR2Qq4frKC6kwXJl?DEjb58+gIf!WJA}E$;_mJ4FTdiIZ)&1UrXdbMQxVaCi%eH6YgqsAe|8+ zB-WN;7s~eLW5~Qj+zhhdT`qo^o>n|Qt#}GWazI9{-bPqCt;y+prV94S@2`5M#})20 ztt=Uaj3%)v6}1g20l^P;rHK#Yf{hu&X@dZ#afgg;q7Z))V6tm0;c~4KP%L0a5RhDeI8t{=I&mI`#OyE&V|pZ@)bniNI_j#JJt7R$ zci$9KW36NQ?XzJ}jA^X{yYX_Q>Bl4ODpU{nlK}#n(ehm!lsVH+#((7?mZWiw2e+Cs zexV9Hv*7rxrIhD;TBdYIn}KSa!S@n;oy!aLt-|;85-Ni`#_`}8G zRYSU-iarcADv<=CHyOsh^bm5>qtFafKbHu_NZBru2>D-b42Z)StUZ$8V5(5vpRiEq zi3>1=HVTQERsd!3euDr#*;3C0$b}97=WzQIY$Nf)%?JB;EXNqa_4yVs$O~Yb=GL6U z#Qu^)u$xf9C{j7|BK+~QrA5+iu^Rhp9kJ;Jl;&SN{3Xe>Xh=FgKqM3q3bmQAvTFbl zM|etVFd<>R(mSZdtHI)_0gW*X^nEWpW>(mWEgm?kX#X&5y46C``gL0$D#D07ZLj z#&*(#aMKlmjw}Q^{RL|q{7um0DpCh^$s5kvnUWkEI;8dv(zbu2*IM{W+w!#2pyoo- zq6PLBS<8a1m>hYHtwffr-N(qIw%`DvdwQ6b-3#$g=?pz$0pR@9?(YY%c)}}kBb}Us z%}f1YW03%|Z|vVQm$Y9mNAE6&7>|^ss zrc7ZhrQNYpFUDf9A`5d2t=y0XMBv2;hLi=Gj<)yx@PkhsDgK5yqAh>?L_1gkBMN5Nagb+C}_Q0$17bv=nehKZpu@#`s2uA$@S{d(4Op@jXp#m z`^8-Xo^bg>Yrj&?=}+Co{I{2=X@%jcP1oPX87^MBqSg;S${U^8S^TNLepAjT&Cn&R zi0QHsg5b0^izny&wX7cD(meOoPalL;PZ%xJMG-eaZal(=*K&%bEp{2WS|6Ts>3?j? zy((-n7?w9vcDg5B7a|T_JyHwwYwkv+9SC^4H~O4qfC_M}2Y`-F_rvF`ImUgD%h?L`PV0pJBI4uY)6>)Q^76{c%4%zCTU%TE z`ufJk#%5+_R##VdcXv-uPj7E;-{0Rq+xhtT7#BSSJpup(+L9tdD()-inGr^%oJfMU zx8%G%ECzvpKS0e%2tlmDKMopdZ7W$@8&$|iGlm*y;Zt$q1kfI`JM-S70Ed>oEtBT+ zzh%ZdbD3QQAmY-JUeo8_2nBJNCiuKKny-SsAUYfbJJXLKcL)s@MrR(r>cy1IqrqQ) zyV?%`F-Km!&L&AU+H8I?$_ZMPg`}V`$<6P94_XZmL?)|m9cBK@g|8)h{LY8z<$A`;%|O4o z)4qpJo9-(T0Iig^%j)BV5n;!#enI40lQOyNAVXF$9V&xK@L#%HVA4`2B*`7%9si1P zD@kYk%`XwJ3${W(ZB05zL4ERsehhj0w7sg!_-|tn^j3g7*BL>VCKoWz1DUR!p^J?&(gMeN@--BXLW< z@;e&qJZ>s;Z^1VB$+6)!;u>*3ft-K|pG;oXgvV1jp+6V`U|k`RSA+l28vWBr~PRNV zrb)h`LCh+(s!xkJJt}i>{<<>)O0Cla^ep?<_=s;VL|^aPqO3(br9-kSR;rACy8};W zueXatz%41;Aj#-rCuMY%7mW=#lQrS4uS--)-0|JfXHCuWrscRaWH?L>0l(lP-}h&IqK`{ zkZmha)ig@KQT%lQvQMcxq)ZKZZA|R`#Firf^+J={++UusUI*!*mBFr(Wpkh)biGZ} z?dKr6fIT%co}x`A$b)`tHH;Mygwo}w%+^i+utwE@URs(eO#as8Q%o`v&{8pu*!*t4NAX|&2AX4CQ=M3MTk(T=QR?EWwz982yvGCMdw z*31yx-e-Ym6;~blchg|AKo3lAstyu3M_yBirNf9ta|s4NyX32U*l{TA&1?LX7P5j! ziaue5tngHffCsKs`iO(V7g4ZTyW*}llz$3_SV?8kT2*b>%r2{D4iqY z$2k!IWYyMegCnwsX3?PY=8_U(*RkgXKgQm!=WCsFiE&;`e^qk<^x1m(eUPc`&=$cvx$n-6f1s;3yWy(zHug!f z(iq!9v+3C>&hd_*;YA)!o#qoQ>wSy+f$#{nph*cGaKUD8v1f;!qHqmbg-b6DH|r_r z8yhuh=-tTRzs!ddW4zUFWcF274N%wNE-20Z$>t%B_Wu2TOV-#TW@N@*T9BpUy)9XD zy)f{BFi1buU-kSTm~|5Eic zfNGu2EgaV85w4HDZF^i%4DC{#e`%lyI)G4k5pp^!QvISseGEF9nAEp2_!I9&Vsc(CCO+M&?ODX0Z#@p*e$m%kNlmt{WwW!TGm28lBi zL7t_Tx7Qvrj*A0M9(Q;?uyTB#q1)3l+|12SJ_NdUFZKRv%D+hxX`I;G`IBZtT}^gc z`K;iAJVnxIuWo4_I_j}GQ_J9M=p&JBK{K|pN}91JW#VZst}b47=UZ|aEoM)O-h~&2 zp5O2eJBC~@2kIiVJF5cTy5{o;K|W>#yKEAfx|@2B0TTs$?Y=fiJXw%>^&*R@UNV9i zjOIF31}|K1Ws8$_2(*;`J#rnBY~ddo2LihI+_zvyJqDNx7C z+;HOU_E>q%lZVued{2J{Ce!iQiel(w@~KN!>zy?8`OvnIwX*2^mH2Y{fg0z$ zd-IZIq`Arr6^NczaBmoL0s~t}yUI31b35zqmzWSK%HxM5(|3bG-b@gYEA!;}x90BP zJF9lBi#G^4S3XUz)CMZqThwTheqLrV~=)J(dA*G7-C)1DuW2}nyYA8;tbYnv6 zolljZMGjgdc5Zc2t`-HHVU=t6zR}k1=K(HJHsEQ2M91zHZEQq@Ho(-t507X;sP91~ z;F|Ddh_)3X#?H>JWOC_#1KJ8^Jau0&&IkP$$!<>&eFat0BE)pB5~!;kOlIfshd)4} z63iSMXgCa2BKY?DvIQ+QISWrH7lC$c0S2wn4Es9>zaCi{dBDcUzT*} zZimg?erWvxA%y2o5nXpn!0KVq>sFjSiV3ypxkmZh2K-T6bzC zll!DzoL8$Xuu~TusMh$A^@q@N7*1q zf*Dkl1r4FZkHWW+aq!H1$jtlDn=IR%H9r-5?Vl=Y)wy+H2X&McQLd)S9bspeY7B=9W z)us5p;DRzReQ$hYp>m7R6<%ZT;=>w8#*Exy!l)agnMWzXYwe+;f{&IU2%DOLBq6A`I(T@km2M#lccPf#y|C-;rq zuG%mNr{RV1FQs*Yt&@Aq`K9eHx!88e$!tdlGCUYpEhxvXw2mE1KPml9B4dju3 z;_riF3TjE>DM3VozDUU}NKz6{vt9n6Uv;B#3NW;4XWf1_{CP<+nh2ZqxDKLNnGU{CTZ%ohCgQyssGt3Jp&gO=J@j2|-t(2+32fy^d{_32z{EMy037qHA$f7e7Y zm09ED483dC5#sl`RfeFdW3m6Y=PHZ^V!xs{hs6=EDDx?o}Jrm_c*}mT^xL~{w25}X3Czk5F`KFGGIdB9xRy{>ZaQZOOo1m#Hov8R3ZPg|Y zK?#5WFCo#Tw+Mg=SNOj%;>s9r=X0la6$K0fJH-l_?||yo+J(Nr>XZ@ zvU!h3=JtDPc&IGGbXgn^W}nH-=inY<6+80V6tz;x1ok>8mxP|rz-}$01fW_fZt;iQ z>YCp80emHxD?sBxY`6B-BDg9Iu&wJQFk8)Fu68`rJ|eiPg%fGi4%Ku(cUq3f?xwK2 zBa)d$uWQ%cP>3r?fi+G$Gfb_GrcFikWO0XV6QDaO9xc(Im~Z6-0<~wdf`I7f{@S>z zO-0i|WJs^@UutB(&u$UCO6%+>z<}<=kmzG@2pClG8lZf)Kbnk_nB)|Gq0G`W(uvpF z>y^}GLTrz+--eO%4SGOFXlQ~pg21QIl^SwC6Mubc8=qN*)8iWF*yQJhGVR-?&W#~t z-uNV@XxOz^%0}_wypw_R?O;Hbgz~r<5+r%8iz}A;nQEM_8A}wzRpK3r7-H8;lJ}gb z%XKmG8z=>bxjwiyAJ0?B)cyCVD~TV&AS#20#I>#}dIX=oL%2j|oWvONSD)3_{v0Lj zf}d15FW=FSXgVJU@$demIVx;CERb^TP&l3{=ou_R>*|G<91Miby~m_f%LAhKNRmvB zAk?NEoeyM#)5F*!v$e;3MXUwOL*Fmb`;_Hd{$G52xaK{Wyp8O)f2AK6y zlbvUECu7PK!T-Vl0^$muqIXg}!Q|brd69Ga^kSnnzlMS+(PtSw+L_i1O+(d4l^ZSV z>dk`OkAfw(IC)*^fizoZIlf6Xy()$FD)C3Csk}kRB3hTaFpNn;tN45M+0PBo zNY)XVW*Q)CwBu~}yyANcZ;{YmA{bVc-(8A{Ud8f@wen|`yF<>)@uylpdqlvRnHZi8 zm(kl3`IxMi(eb}q0o~~@6Zn=@VlH^lyOg;YymI@4%}5SwXuOoJ8%^cMh@pT_$OFdI zUNN8M->xze#FfNn zN3hoy*Jbh;A<^G?lCKp0br5zd+HMpghW4s7^1SYBcuMiU!I_KBEBCus0%{iv7rhsA zZ{Wv>TrdsrNos@6i`j_Lu-xZ6Kz{tHy@moUuQcYI2es?V?vUYfJk0<$CE?TeUn5y5 z@YX8b|MEzqpe*c6XF}bQqdpqnPlvCbdjpc#2u=n^W-W%1-EHGn0S_w_(9*uEu-&it1_OcLR`6% z-{?GuU~zCk#3!LlN+MYJm6Ut_;N8_Tapk2NJ%V(BrDa6IPna7nZ*d7n1maC_i}sLKFOS zL=xr`2%kI%`sBm^Kl9`BaGT{Les&YuAz>HhBRTtKa}ye6svHROE-}!Fl7kCmXc|^D z{jM{AB$BJiPt^V-|DK3dECm`sE5IE9RtXhgP_d=Xoy(gaNHJgwy6vurE$& zt;{*Iih1DCO`e*7y#%hLFULauy1A?qgs%#AG)VxrLpLW&4VkOoc4`3JS|+^ye#iu= zCxJ>Jwfv}JFvg^JNhL?AYSXMIG{CSlilNP~k2bF_@4&yn%XE*B97yxYuaC1^*)uPG z{_Q5y*W3a=Rn`ff-hhPAv(7AxGKClnOY? zN4FmW@w5($&=*lhV4IZLve{8K83}dNLzQvBJFb}sS6;Hca_hF|CZaJ7o?|P z*zA`2a(z`?)9ayy(#1mMp=W*ud~;vwQ~32z!Cb|XCJ&IOL!m7XU@p-(K@a!cP+eg) zB>zYArpCfmtnvZd>7Kh2x8r0X?d!WWMAad(yp2@5Ejq6hLo_XBm|0WcnXE~ zbj)C0=nh;GC9os_AdtECe^fL5M>VgIA-f+H)JqJXr*wW4Gb**I!oLk)vnM8Y!rQ4Ii3x&euL=Z3Rv-*~ zxHeT5u5SEZx}sCRDr<8}wU;o z!E5NmHLdH&0Vc_|Q5>2tFaD?}#zzqQF+54GX`?5z;pr^M*g_ZU>KE(AqyY#=L}_2A zC}ILopuI4|iQ*u$h7yC5S!KnJAmaH0=^d114L4N$;bqag@>0V@6G@rI*h3^B{s#Vm z2}+LK8&F{M|8I`Nz-)by3(1ZK-KBS;bqS}=H)P(Q2u!XbEt+Y)O97BgV7QE#;;i{5 ztQ8>f32z}VRVp0P%l=g=F*o|F*XDfSrX-+k#CnaUD9xu+-BuW&4{HLM1`|{8&Mge4 z+HHm_!p|He_~vV-?lsr4_eM6nHX8Z4#?_0we{OgFF-sDU6b%P-FoL>(3kihrW6}y# zlogDgU|`-%zliHHAx}ivs)uN$T_LU_^+QoD&%k+(z-3Jh1763JU%_SK0ff@~z`_eE zhR3$W!f@f5F7=t3{L*yX5Cq5;=TdN?2s(l<(mY>u;AIQ3TtX)a2y zfSm%?ur}td-Wm#tIto9Ay{a=y5-k<5ovZTuN?PI?a}NvvNAKlRwj|I}kVtIS}e@Nd+{JXBsr1l_Jvp8$~?$--uV zd>AUKp)hySdFV?s9VtjX^4MNi_yC4lopX9vLS|quXjTq@SkW6FiY9}P5{Qc?WXbokuouq03aNdT#m;PentF6192tz ziSLw1%yrC6YoI$PIv0(X5%uP+wC7e@0PH7O&;-8=0y-U--@NbCL;=YApY;BO4z!cj zgUFYRh$KMP#DDxZDN`ilx0eOT@8_Hi_f>=d{}ADPM;gfzbU-)q*^)@b~`aPHGPj{ds;T|KNSB z%_fpzWu7_wIizV!SQ2SJz1?|zslAwK(%?aHD1xAW7~f*Z`ls_>@cs=bu1DpWB$m4` z|M@4rO~~I=9!wA-TKbGAJ_CbLd&_wl9iuF9O9d6on=R;UG>cXlnKG+N{Zov1eDWW6 zkdg`c6U0V-_9Iyq&W19P(L$dJjaL3sh?SXGY1glPVi~qGw1#3-_NQ=xQOIaB4v$aA%K&*2==ajP8fv^DlaF~o?QfUiqg*x{KI{u&8gi_S>*Ys zgPzZ&3|Y5F81u8^|M(5~^yr^M#IXP2{QrZ=`~ULo54UHcYGg1*c)59{2IVA3VZQpBPGpy0w~~T1qgsi< zC_Rm4dMid!Ps&EPStM}vRkJ}7Ru)Js@vS5cCswuw&*H6R`UuMRDY~+B|0sfpLI{Ij zKnVTZWG}SVf-p#ZQl9_sgV|Ze+h7Ff^{W5u*UE8@RVBn*4lrs8FzGi8-L2Gn=MY+?7^1yz9|3EmZA%KrLo5kk~|4!`M4-~zAkd@i=fmaW4m+LTH8RI%u_v2hwWeb z_>TKSJacTvAall5T&R5$b-Bngd&1%|Ti4^*MHY`|HhXCNEjs(Xxqx9V;=#Ir`ND@G zJa_%D1{yBh_7r<|=P}cyPX8s1b}%B$;?+tPbc zeId{qi5rTF&(1`@$MwII5-V*Pvkw@Iy>HR*^l?S2=Kiz zI>p1lB2B%Zrwxl{)N^M6@jjZ5?)4)>8n=$-?YIpL-o}H7AL0?6iWYZ#o_W_nt7vxL#XerF?-H(Vv@GU{jomoFMc2l20cgV zmC5VTd;fJ>q_}__xBw1aZtdvOBY!l5PeA)#)H0~C(VlkLKEUI^4;8%-#}nlM?TqP1 z7!PSUm+g+hVlY#vi=*tJ)e@MKdD!kmcOm571jZnN6H}czo&TC<66~(rm!(=Pb|!}* zI0%f@8UMWRUkcsa1AgSJ9QVxqVuZfXSjQU7v=x4xM=f#*LA2#k&%vohiR2PSUvx_I zw;=|(0r>!njD8X}FumM}{G=%%jHZoLXYAt7A_{KPFXK<>x33{6 zYzTJ?xPzUMu~>zjGI%~r9`b-QZ`ZR=VFZWvuG_}ap;;=59l^r70wn@G@*2x7XHsW6jWDVdE^|;Gs za~R=c`u@Zou%^v^qtn}!XEos^5+lKuZ?_`Y)YI{hJQ>`rciWGSpz!_r(KdAP*OdPK z<){G9{`t$od&^B6bif6yX1+UUJkX^5&Q2O@6xoC-O~{>1Pt^J5#*|l%L0-!9#+-dG z@9BBCb8;Or%NnKm58F?riipYXj3UkmY5i<%6vscA^iqx+?zILuCT-4`aFba45|4j; z*jD&kkQS_au;gRShB&^Ei{x8DM=RxnXp_hC!LD@9pA~Q3W*%n|0KUthzFKRB>*id* z$UBHuD>hft%<30W#1qqKT$?y6HE8^==C7Qfg4Ar3E579oO~~!1t94rG+i-7tLLEq| z<_K4}${mZ^33yId3!UyAu+E`M*@&y3;R$XFdKsz#djca_9{UV!HDf=!0?z<0cTJM_=Y+QzQlF336OWN+E zeVuMJt^9J8uoUWx!KC{|RzGJ}@4?e}$*QPF6C4sZr2{^`J)&q8c`Y_+k3sF zrSqX(S9D%ZdN{(~$Uc)tQ*lFJ_w4bZ!~^BEc4vY)iU>LVih369e9N8sl5Eit#h0*X z+8s3?S!_62W(=nrlylRp%9w4wq?2EAdGUTpE*aQwdrWdMKxL_V8P4eQH>dvsm-IB7 zks)sQv?HA7aWjdp>Sl)q=phY?^(ant)`DD1jRH`K>5lnl8*y6L5hM4R=pJn|##eTt z1&lFvtU-(>U`L#7Uc$Kdi~d$D5!Liqdp9Pk|7L{w*r2Wq$_>n4j{rUKxND#Xugo6# zDDxnB7YD1#0==AV9>c5B$!5vU9W*Y)m85Wv(&5w z*>e?-RXXCREB>ioG|~(^#WZuuVobtz&fk(d@bH>?C$$@p0Q)VbSlsX5mBdFQbIGKD zrZVl;oWMJfmWD`@Fl3~QFAdwPOSKLbxuwH~1cO0r!>Na7$@-GQeo4(t)Cz0=MWV0^ zABDZ7D6uwXDaa15xcZoic|M_-}R=dnkuhi+6ju4frCn$h`X$>-e*w&;2X*rfWjoeEZasEGS)+E_QaaF00a ziy^n=b!(*1`xw4IgGm)Z%XHpr5?d+k?>FEWG3cx2>sj>H95uf<9|iQ=u#R*Upf zf|qDco35tp#aT<+dOtM-XL{I>g*s&+l3j#2_h*b{VjS;Bf%1az4%NP@v)+Dyvvaq# zTgxeUjB22qu)CtO9@~}(0%umKX`4A#8x*!X$aBE!+!Cf3(oSU~J?Ku6MSIfY6<-;P zNzsqi;ocyrG`u2VlUb%y)TT@i3fu4&-7bB6kk$xZbGNEEtMO^y3A zIHwjdJFWSH0IgQ{K)^sAZK=P#p=9CYggRm_q9xo}IH_T!(~$Cd@8 z>xzD$`A6w;Hnaa2O)B?-sVUfgALqt1O7#7XQ|#Z$yYI5u3Fk+l=UbT?xs2cGBXhF& zehS1nIUb)nOH+j~6OOpw^|}*ppLW5Kz8LcLF;p;I*=##Y%_xQcE(@(894ilf0+m5R zqP15M8l8Gy_c^>Kl6t2YQ=RxCS999zpBwSarMaA>UeehVj7TLW))r>eCrzX+F<+iA z6&c7S-ZNHB`Oq{J(Oz>FTO~-j^kMTyl4U3)aFFrMTP zT9y>^&#qzptWiFsufqQaA9P~Da_q2jdjYFy)eyDw?L7vq>X+%6cW%{k;NKr%zYpT9 z=t~ab$`0d<)G0#Plh3}M@ntrfwPJqW`Id6*Kuhlby8Ww#ejL_LS3VPzfBvtNhcd|tCt-A|*h=(`Kl-s=a~^xt(m$5WcTog-9C5F^$)@o|3y(@9>6;1s z;~9@Eg!|t_l(*pePCYwNfGIap&%fmnU@r00tViDxb=;_~%p4hZg7I2f}^0n z9}o-@*d{3W#st!NR94e&WkH(!d+FZ9Lai~t&^WN&9Ot58i1|kS1le0T+bHqTRYfh? z&Up^=XOHjmN@a!lrN7(qJvAKC(F>~My%uYii1>(-vZ-KF>-MT&c&xI=L$4#k}!MT%xxC{A&Q zB7?SQad(QlYhlo0WsnxX^u6o5>;3*e$yzx(d*?Z4C+lRLoa{XNsJ38FMS+|MdCge7*s8xn&&SRD0@~~c=rLVT_L-@P9VJ((EsPF^nxkDtmFmA`4uL@al zguI{zrHR*9(dK5)=bhb^natBS}1(c0unv*@;O zai*@ijB?0*KeKw2I%LRvVF}m0jT$m~S3+XOqO`zL75dbiR-jYxD;~2jUzwJ8{Gn>{ z3BW91Ozh-1yQ%C@=@FakFQ)msar{E!vHD&!`gvk`u3jLx#kQsz#?mX8bFBgEV@SKQ zTYPRzcx^~;gxCy2^xFt@tllZjRiBI|I<0HGzKt99Rp`HWuHk4;`r{x(mN9#q=1nYQ>}=?ZswNStl@YJc8t z*ye(CCYS{qxyti&cS z{MEI}gF4OGyV9|Z!lHh7VT%y1@Yk1?jMz)oChw5$Z?7<8(fFELlU{zM5;Jo|yesX4 z7Yc=?GH|t>{CZb9yirIN``-B!q!^{BXebt1+Gmw!^uIe=MR)7{QUAn0HKaK)gLZUo zN^6Q;;Z}#fOfB5MZnt1XK&$^xGui9#J+1wPfYTJJj;uo_wsb?Ycn50t97L%_Uz-YZ zI15$i?=pL3sjcOf%$Lb+@9s8t)l{B8F(tsCXK~RrXIRm7`?)(F__UW_nyinP$K#XP@gK5&wboTP}>K5-ga z`n0=T@TfdBdO+8+eNa~I=vBG6VnfINAw)5?^9oc z}&Lo7VU$$1&c=Odov1_%|?iM!PRnpk|T}a6u zsqx6}IZGZ=Tmv3Q=@vWvrQW5sh2lsqa0;BPzDus*lb{5?h#%Ea#Y&UPhiQ{fwat`o zdntE@h7C7|Z1=?_BgpK=xh3w-N9hvZo;f3yZqJt8PtS0#t|D&BoEQ4|5K}ikpL3!K zWkM^ch+)lrQDNS=L5gGflci0)ltplEM(ZCol*wxM-+`JA-vidG7hR<>4b-N-%BTK_ zx!XiDvKSQtwN?_>f+VC>8}3(;@#yXi8_O;L#Gf@kD_E}DnSZ>lFs>MKq);Nq6_Cos>+5upbm|jma~t@Y z;sL?}2fSAsIT(+6(LJoKsppY~Qcism_>O6! zS>T>cRetmCCYW^QiESSX({5ZX0!WwgWqXHK_I~65R7JvE{z;+!OJUz zW4CE-jL=c?R9usO0%k}(CeR>N`<7k6*1Mzy_>k&>z^yh^NymQDORu0{23=PqoZQcR z`-RUOTCju$95yLYsr;B#2%SL|nNE|AucU`0S3nl)lQ>3~*xL6SXqpF3GclFb7M~do zA$HIhhQkT{{`KFQ8X?0`96C7@B6Y@=Xo-WOsovZej|4-E{hwiF-27J`d*S3-98=;ht0chxv^eba?s63l9mBsWdGoGov`2+Zk z7MAGB0LF`OZK*?oDFG^xxe&f%k4Nv4kQh=cnuJaXSv)O|N?IbdrKG+K&=^TJL5`lO zfC-0CL)cc{z)5(7d%DiwMrQn$V_DY=hGh(>S23mBOjLK8dR4YG?iDh z9u;XH_h3R#T@>T-(%|6$_0QvH4p)lekOdZt8Ds%?3hz%aVP|d_udMkDGSN|@(4*Lm zhGBtCvMFA|!r>Rk>Ch)93z6C5YD49CEGiIioXpOC!+o+x^qSv@SBo%?pm{@-vXB6^ zJS`1F4x@(;Czz`yBknVi5$^^;noxXcl01u?GP_J>5DI1e#j0!h7}jn0NkqE&CHb>O;Dd1mdN#9N2u-h?c}488Ik5&#B46P4r}p49 z4EuB%3upUgL3cJ7!wtSCDf#=(cqilYeL_?heRsle1M$cxsNYMN&-lxwihKrwY7YM2 z-TV0rk6JB4Ag*K6=-eWnllP$!1LXlHm68Ta``(?9Ai#+-FhN&(Sdt4VClz zG}YG$?;;@Bol=mM(l$ref;lO(GgBiabc4$nVFDgt-02Fc`#IGC&xS(ija#n3ZE5%ld?nl<7i) zN((^6Ub=Q-vocg(Rc;FNC|*;EyD3!7%+$V9M-zlXgr39>n$jOz4}Lxm{#A;NlN|_B zeop}6Z0NP@rWNg#qpEP4cx6RW@F)=wj*Kwo6aRJm5*iM1T0mw%o^!8nSJ@ROsr{>` zrzSVX&}#NZJxav$&E?p7eFKxALZo4u8^Qfsx*N_>mz% zh8q&0Vi2fY`wvS;VHnf#vn?MF8K>z1W$MLoH&;T*yqWMos2=&6xRK+4pUm+1jVwAR?2G@K*xA8ye^+ zdrdN)!6|I~B}nFX@4J^drdxUYZ{#W?si3J0cqgqdULv5woxny7T5M{@WZ5a&xEew8XTC95eOlF_=t*`AJ@L@>in0~+Cyc+b%s7S2YKi}E0-9%s8 zdUnm19k!P0@D31c!%Og_4AU2$pFf-35;e_EicMKT{dzGa=?nIgU%Xz!j(n3Q|N3?z zCw9L@wvx|5epxs(bFrk!YnOKnc#3>Scjg<1rZr$!#yAv>T2Cy+1-lz%UhS1q3Q&Ou z)+7GTkA5D>pY`1C%efOszs{q3y{ay|`Lut{Lv^M14gfUn>msxz2Ne*A=ajX#Qi=u} z-cV9CTO{Z}l8wM@Up8Oc1<|IZ+}SA3C-K&I4EC((j2-f&4c1+e^1MyeS zo)Iwsm{dja>gwOCHt;17Vo~TAswAQ)^Z%aDVHr1*=mCO$f8R>J+VxqtrlJ7C1Xl08 zBWoW@=Z=oA(k+53XTVa03tKzI-mXp>e|0i0l$p!L zLP2?y=+5ZW)pF`+tk-?t=;2cqJM9kTIa$8+8$IHDHR??DPj(^qGXj&H8}aiI-)G>I zR4K~-pBxp2B5>#BXN=`-3pg|<#uGME zlfa_x)j#Zocu!vmBP=oX3a+1fQ4DPLpip=h#q4?0jVT*Sp!TgN)0r`PJ#d`Nmq z(p(OeJKx9ia$8V|RM%L44hm~xe(#;Bh!V=ASXdleUKj+UCzuOrj75B zS%Pb0BayeYmCq10LSrB1s6LED6rWf$c;avRUtJ8El!3oI_e?NR6yU z+HDUv=(sP{(CYiW7^o;`nuT8Ln1eOYczCzNgUx?fXPy7tsT@D961WedDj)bb*|#$k zrMP~3{P^8qx05cAJt^un0_!R8IT#40gx1GYC130F35E|WE9|a`4m869|MY1n<@ofB zapPh)ETsg=4c5_lUtHt}JIo=Ivr#y;h|r#;H?ry2*L+PNFfk>vG*_ypIZ`hu#{GRF z*4u{SMH)-I9f>1F0i?4N5q}p+h02nKyefR+72ompX59TVxoAqUi$4l?0J}~`Fnazv z$iNAU4r?h*I#Z|Ud~m=d-r@OJ(;<1Sh)C@=@L_4LNTT|4liyI7TWjRYGzc|kuVCl% zp8~dyJi}}`ptL3%na|N9q`n{ES;Il^(=&q&?^#M*)Eou)a{#2Q(=UV$xOP|WM70)g zgWS;EshfD?>D1(aa4jbjp5pbi^<`q>4;V?t@lKU@>@`;)God<#?Iezgx&a|- zavWr%>E2qJ&pL=+!|p$gN=Q_)R4YY##>)~etO~KYDf*}?#wC5{pBZ=dMO46b7;d@* zu;33kUp)@fbpV_NA6Z!W<}BshiJtX9@;(4UDMCZZj-XjCWch?03dS(WLPmYg7s-wW zLkiY<-xbF!Tr#_8PyOd7A==q9KZlsE^Sh8tPu)tMC$@2)`Ox4!v(^CAb>j}LI2@D3xnBwl@wt?~b8r(LDT>@@WKNsXBLPFCGOdok$48==D! z=9+V9VE&09SNB&jHa>3kqTje2*LD3Ll3*a$1|%uww9ORw!9viyM*X_57CD#m%L!ZY zZpu7|qB;ZkIgL}68Qzl5o%Ky1v6nP61i#<8j3+kn2e#e?!WFsxYn$}2ySk`b8Bqq0 zQPit9$lGth=GzEG_J-7+dsE59pmjM50&gC1z$CesQ}5x)6VVe! ztV+dK$uVgNf>|Dl^J_o{gzxV%D*L*h=|?q=|g{kIv=8fbUF`1nn=)i3P8x#r~CF6yyc`3YLuM0s$N zv%v_w&<~FL3BPS-^HjSfQE%S&P)s7Xt#}+3XYx$Qj5=Epv-r-!>$)>|?fLOUvA8dQ z_%MOr=C&hjf1$#EpP>4(R@tlF^1$h0D*WMCMl z2ak8Vp^Yr_?s3i}$1)&XpnOH%X;e-B_T}>m+cAgHm0`82tVDJXx3lZlndWT>S>~AO z_FX10M@~x;eHAktB zhunOuBU{Ni+)r(nL~LcoEb_$tvoIZn*!B}~1+#--Mbkbr&f24n6R@H@%|tsIXg~$E zR>{d*dn6ppp_0d6Bb;>&?2&ADn1K<`yflZ#nTSKwzs*cj){JYfsL9=qOjmPs1YdcL zP9LCsOmB_EWeOLO1oZwwd}wq}qNT=ugy>=|3%>OK& zUwY`RYsMS*eL(r5m#4K(zQ@SUB~%)cWL~yYY ztgJuxt3MNU7=n9S(A?N{SkMSQ9q{oHX`PvP*P0aeXB9~Db|dWD!!Pz@5l;tO!x519 zrh8YREgH$n*T6O$XUQ}EMN42kq1;{_UF;O=i1)m$3mHxCD2KP^?tCvKq4FmsK5zDh1!bYmT>RHabR-Dwh3x6 zbi4pU1FT}e!hOnMk6(OADe<0S0>2C!b4c9=9#SE0rx1yF#me>@_~Lr2SJLg>+CF7p z;h`$@H1DR8fJs_`d2mg+`%f+!`TFQ7x^N>Tf{2gzUY)2PUC{f_o4KIM*wfxyJckD> z=_${>;HgGsvS^eg6uOQ$dH?h$01GBOn6e`P5avz|yw!7a2yUtcn=C~)7Etcx+U$Ac z2oHRAvs4gw=3OmZ4{j|8L=a4P6;-lQ@fXD7E_qK&&lpFh)_zbBlEXrGYlcqWy1kc< zac<9ijsM0nN-B96dTyV+cnK4LVd<)cgN(c0MC4pIZnmPI{pu&(Tk&=HPAV6<7R#Oi z!~}8nw;WHM_MInsQn-`Pclot7a0N)xjZvyftgPa#;=GP*Vp=?17)r%1Ho1=Y{<+7b z-bBcmmV3Ket-7o348PkG9^HwyTq!ZqY~R|o6;DDDEF@p_XPGL{6m4U-=3wEqm}Has zw3mla_S(vdD%Z5N2WepXSU%51kLS-o;MD45h>qLxZ@7u_V{CL!bW=FQp^6E^xV6+; z$e?_%j@)IwBRE3gRNGgiOcd++e?vkkmvcR=q2$KHcW%O zQo)AOdhO?W{pHX0uKwO@Jhiy9BNB(%^uXD%GnAHEi|T}w>Ky#Rko;mnkr*!^(Yx$H z;rfzgszG^ey1}#b(_v^*%e+C7gM&d$X3@(26n@X^HuFJS*$da`h5@-4zJaU347YV3{tm5f6v#8#$p&W);K}-` z+*;`{k!MbIZw!_ChDi%jz6<~t&QBAS>=O_6|%A}SO z&dB(8)}&shhhvtBK_u>%0}W(hc~4PX$bW(mX*7B*?)BA?1p7Fut};CAi%ScNac*rj zu?e~&)wQt+;R3ohz@KMI2*#^F6tJIp@-HgVAZQ`{Q3ze%C$C#onb(QLLYaxRJ3dMa z>EOXImvG6=1-(Q@nB~NV^BOYeN*TkplM3473b&Kwn9@^hAj{HS&@@-hr?QaHQb>> z6k8;K!haIjOo5SXX*AFES{N;tF7$dReK;7uQ|C`D1EL)%V28`Bza7#YrvO{o7EK8fp7Ud?bV@B{hgc9TsIg-iD2;QTYQgxU)1SMs- zM%NbQ4m_V)qG279$IUNd7}pvE{hc|+E*FLFsBOi8M+9(}{id{0s=o_Kx?4LMJm@c1~Suxf5GUAt$^>d@3}OHAPzf?EK* zAa2Gy`ef9_iv1)RHg;LQ3{s#O<}(#Vd8X9#p=4R=jC1~*vnVE(b_Kzb9MT}9HUeWn zC~jMmONXr1guXVO!LY(YG>u5cX9i2gP^yHwFnbY?(G8~#XI^k`CkmBKA7?cJG#N;2 zr2~7M8{EdqkCBVRk*6AjdPP@D8|wi%(;gou6=a@s)f41%6tUTphVpf4Di5L8Wb^rb z$n(0;Kk;Tz`jmGe4?UrZn7|F4^Xdsx;PVX0^OCt;Pzq-W$rA{R%v6Kw-OKjXXpDZp zpFeDzW(x0S^8cnA5@K?`Ggx<0>_g5CyE#eO8b#=HGh$q3=&z3F5@~EBz(^Oe6%z zM2b-VP1paQEAby@|9=yt;rw62{uY)K%>gR9zfk|pl=g3i7(?lKA9DwA zpga<%{o4e@BAmDZFv|V~vijF8dE_Pi*OK`h1hR5{<7xB8^KViC&6lW;q-`J&;p1xa KhzA&Qz literal 32839 zcmb4p1yEhh(%=p55ZocSyE`E`h0Uw zIW<*%&P;bt&vc)j?imGHNGMDI01f~!uPf9FvgQqE0ssL2)W4qqHWoG}PVV+52KM&W z7Dfh67IwDGF1E%@b_O5|5R;v~iLJ4nk+Y47trHW--qFOs7-Vi@;-v6@(ELm0e+vFz zNX*XG)WXc!@n6(HY|Kt}cGmU=wkFoh|93o+e}iXXV_;?iV*YC3WMg0t`VYv2{|4FK z(ay}#1OzfPaQqLL|8BVUcJ|KpeYz%BIOie&eOpeB; z6A2Tx0W4^NR{}vMlglE^(9n)Fqb-(M-JHQ1(9FM6(KkDz6Vw#*OHZ@r_bMgWx1#IQ zE({2VBWjC#R5*-iDMzKu8&2r?+L&4j*7#PJ8|g_>iEb0U2W-j^^<}axsj}= z>T+q^Qf~!-?PNU*JPuMwgZ0sH@WfGHE$;Tg_`H+5@TTgDPG{M%?hmAb5gU9Z*|i7; zjY=IMjihmYB2n;iqk&EVgstCY2iTKt6?uDdE_R20bj$_h3jDaHkDglI3`HtD(A(~) zzSIfW0we&kfvck^lUW&UOhrZR2Zr zvPwY~7Owumd=~l>01yBP0Q{E){JZJ`rEJshy7)$^+Cb_;B#aoch1qaKN!b@*QVoPkDw^cR@! zl`2Ss@Y?8n;6Ba)C#1dU!Eeuoz5`aDVC@sRrJRQd=uNbfVPMa%HrX8r8dHwYmAL)~UMiUK~IAun5Ya>z!NQ{xW zC?TSu>X$95&r2O6y$oa5f1C^OjhOl!!g;Uo$$LOv2Ec_62@MzSAdSr`Y~nn}jmuvR z<3;^4^hKqMIM{S%)=$g5D=z?NWWFI+ygJ*`;K}!DXBu*J#VjOXbJW-GY~NRMI}Z+& zuC+g{1xHHKqH4yn;15PpaSYMh+*^tSWVC0g*zDY5LKJ;Mjwkha$anJD^xCQ>l5MB& zy)>TyqM;1Qg?3=FQjQc-acqoPi($mg*00VpK#T4%$e%gysyD3=?Z@hKcb;GT%zv$o z5>mPklbDLwB^j(xc*SOPGQoWp*S}5y^FB@@3-T2Oa_>}@YF`JPG|;1ovD0MRFyoG3 z&(9mJV^PB~SG=Hqyg8jdmvGpG{1L3b>ft=i}O+f$X#s!gu-5SsR%R55f22p)CUHrvzjbKT{q0TfQ#XyVq1KMMNr<7q}UsK;q z5GP^x^dJgCM^j%{7ntR+&$Y})$7o5MONVcH6N)8YLXN}>7gghkMNa~1u>7-vsF7GN zB@AnL@)x)t?fLiUk}Psr8mGqU9QS zg>TLS$;+kNOjLfhcF|?`$N*jLVGeF#w(Q5Lp)Mt`h5W`0`WpS7L1f*I8*Esd<=8sBLWDT1`AIZ4n~D)K~5N)G&TV>m~xTy&njVUwdF z9QSnUhBg9CJ{IM95n{_mkL<;|{_jm_}^JnG=ZXCO>l7r#%B;Zg|Q9>y2jE!b? z_NjbeX`{ZQaRc|n)5*DwZ7{#)cNPQGpEF$(n_#784O%#y`f)hVTr=cpw)&7#= zg$7e4eut_#;MuY!`ciyMxjSjst-%(`mLz6fSdhC&I2!2(tDSnAW9Uv#?9B+9e7m@V00-wV zsx9D)n>PC>khJ$^iZ0%I#b>((EC#2C(v?&E zWfe6gvf%AM1%v8T12uHa4;fP)8qP%$xC!G{4j-J`V=5hvKKOg9sgF%FfRY%EOM_bS zKrFx5krZBTNXB4miIxJ71N!H2Sk4pDPG5)wEE958&JtU!=u+|cSD5FiD0@HrwaQ8p zuJ7@VJ=@Z;ntkZAq)*t{3KVKFcc9o1^KlJK$c5>7TyqXQpIRln%bF>E5glfj;Qw$TA5)i34=iZ)qXbq{KrM=Jd3AJlQ>CRg=lrC7RmNg`6hePRAb<`%E zLSsN#CtYbwEcS#Fk^&TyPQSvAa7KD=+ijn53%mb0VuwfYC z4hhkfDcX{4n8RTnQ(?8H(-+@3F}er8j5;&k)85|f#-^}eoW-h79mWoozqu$6)D?CZ z&0BZ4t*D~varxZT%3&47-%l=nInqKo0U(?)Ru5+|{lL0y?XT0UGJzF1{UY==_C#PM z@Y>&xz4kMfmp@e+->r+BQoYN%;O!lC24oia^jBS71CAzpqrbNvjQf^HS5Te z#vXE*EIAVarhhN8iFD3p+-j}zZ)hk9%wp7UcmenV`ale2AcRgHMI9{myTD8UZ4=Q%)5 z@}+fwmvI#+3F}e@sz?peKHpQrr&qTbY25NE0F8p>K&dY>Lz`-R5~J&4WvOd2UYB%t zbtUW>nY)FPPOEE$(e_WoT+V@U56kl@mOnM3%BY3E53ZVIgqKvZTiq45-pXn6mo~85 z+?6d3rZ04RgBG>YjTg24BsX9SnpB9JEn225n7TY z@^-SPr5jFS(iUc=(;8NWq|>&S3z~6NCQtrcINf9P=c?nL5Qq_%H@_ACN{IhRjJ|Yq zb>G|_vy;O3#3jqmAIX{;-(4JV(HlOMwky?^2wj&lO_8xD5 zmG0Lsi~9h+wT%CyD`$PYzhSf=v`|q;UG(No3*tNmE zOu-X)7e+cya7w$ymo?+Bh^z(%aol!aelPy?jJx8{l2B6e^PhrBjaS)@w+vSR@+(_F z-XU$u35$Iu7g(UvA6i^04|P=-R~pDu?8c3BsnxN(!yYSPWwnb4)B154bxYJ9HzsJC z>H8K1l+H2QCy=YOT5Eap z4H4raSbu_{97rJxP=uNMkxoa2;!`l!+H6?E9a#MqV$Cb;Chw-%X3d;gjq zxjT3lCURD4_4iiot_g;)djFeWO&!KXV1=&XWTW`_$$~~*%KFEG@*?uOLav-0Y&^{f z86P?$HZb8B$KL+MUX!Ds=EBKG519G^fqtpgn@D*YQ?{k4DT_h^O`DMMyLmTH(bPpH z`~}P7$|f!BLucV(2HJ}D2W4;comFn5t`3Dey1ReGIVni&CUv-7`=T{u99W#@lI%W9 zce_8$#=o1#JZy&BR26A~I==#>##4F23AZm|uSRn16N1>ftYZY-aX+~{e#c}z*3~mE|6)I? zLutb_`16g<6v%YQ2d{Q!*#7H#Y`Zfxpx=mvq?J&~ngZUtM%9+bo^8?4oAwHZEv-dn znHQ!AQ?kJtTa%6caF*p(V`|*YNX%K&-idWW9Xhci2#)9XtkU9GD}F(TB{3%BJM&zu ze~xkiggZ^Ae?Lw3>8gRRg(Uc6d;$gv^|xJ z*Ay@Q*U4__rb4Z*iD-4^uaMg2xvBOV#>XLW5MHCSV(NAcJj(w28N;_bE% z(KJqQ2o%AtwG23Q<^$5yzOH6a3h*hE9eqXKLz=uuB{WPaCr?6rVw^d#uJzFQ51Wkl zkQE%|{pm)V>yl{;t3{YhAq{Q%S*6Be0Z`Cn2;FvLE{26$x8h*L&Wd6jOx zFdyN5W}BOdb;QC~c9YfHsR z9k*thA~&}m+UKsWX4^E#CYVAQh2Ev&X1;oP%DTChLHSiftruES=gl*gjnF9pn>qu1 zHgCm|LpPclC-3B70nC-54Gt}M90{xhUFL$#c5X@>+?rLFS6=$N!aZySGnJNYz8L3RrWe*b_mi8>c_X|2Lxzq_K3uCPhJY*Lxwf?tog2 zg7d>Xs?6GciZt7;F`Jy=6D#Ou5|b^OhL`c&OBsPbc6naZ*h!0}ZS~S&XJ|#3+KJ~I zS2@r8y{=S0Q^?n0DzKyrb-ST5+qc?)DXAccXty8$&hPMQ`uTwU9PI;(GZ_kN2eaVM zDe2gQU)>T7S>gQcdfvH5B?dYiTXZ5bg*Xa+3UMLT;G~L2$%Z>B=;#PHMprJXTJw%d z)f^mAE7$4sc>W3r*~!Xa7^;1&i-2 za|qrqcC^p!5#cxZTpG7{Mdf0==(Et5hRI6OO_5VMS9{sY_}P|-96`Y$anqmhdKOYh zl(F&M_^x4t5?)O&8X`j$5|H=~7=*W}ScZd(Rq3Fdo8Sbp=PzV_K2oj$>S3$9!trT6 z+_sm%N{%J$gK}&*o0cxLrZpN zQjg$6j4LB(0|?@eSlYirS^f<5t(At!wfu=@jyNiZf(#*`tCx?40lIZA1m-T${rn;_ zWOk2h-%OM%I2>vApcMQ$OQxPcN&S00@66%1mm`b{7;B0rSjxbzE7O&qYOOG1NlNH$ zleN5KhYV?T=VrCm1aKtV8J{12Gk8{K)mi^n%ga$sIjck_j!95cPYrEd(b>0J+JyA1 z(HaX~uA}92BT)34Cyxu6x*h#%Dw{>?ccFXW>n?qa0myse>5lneDSt?jvA4A!QMY7C&Pvu2d!Aw{x?YLN7ikI^xSVK+E|O(JB(*gbk*Esbo9EYE!@dVlL7^Dq!OhTs zypT$L2a-Y4Hm@0B!e)oOG`q9Z>I zKsQ+WE~Akk3Ky zqKkH}i&D6+Zy*HfLn)LsSi#9J@sr0`ViH44o7k{1i{qw+4J+jG?$MZf9MXvwUeI%L zY+UF8zfesOiOo_9+;gn*tfY8W3Q1i47*K91Zl{ma8J+9?Cwv(_0->%4LE?)POsZrK zfw7HyT=xL76sg$#WbJ{3AzycZoY8zD%t6)RT@z2bhFkZ}j40M;(x!~Mj9QCNpHTjoPj|!Nkm?dXbB7z-#$#=GOwpoHyN4w%W z{F2cc61spkHBIKb*Pe|aSK+G7Ri^t42|GQ|*l%~B_af#r^Gk-Fvn7U?_tucigbnZl zX7HZb1lzk2zpiGEWeie%&t;^&{&^Lw(EIMC|1s5KMXweLs)SNMqU)-J?#TtZ3z`3c zC}O44|7h>1PqPtfCio%Sn9wQ@QyEQ!^FioDV*KqwHhXI@qte5|a^cyggz(g3d)}G0 z%e#cz(~q*sjw(cXj8nBPCr-5LLUc)>^BJf4@~xp%6}eA<<8E`Hntx{X`Jx7&U%$4Cx94r^;+*=-#Ur&y z|M#CUWqU|D1K0C5>`ycS${@Hc?e-V2nB}kE4A#_b9PWcHZwzz$DLxmh)DYv5<^hX4 z_GKmz5iC^ed2I^Bw@p7kOMBe7JG@tlHzlnUF>LxLiLTIp{_eCbb-e>D?e^B)+0wwH zf4giV)nD?AVh$5-|9*@-7fXXj|J;d_t*8FLy@*rll|S3 z76kGRcJmB#@s4u$jrItL_X-FIh=_;?PV^1_`kkd~GflN}bH z7nxKPn^YW|R`D~VIytlYS5AFuL33taUS3&QSz&8-Nk?u?S7}{cU0YjQMNdIhUvbSq zX~RfG(|C3BM0NXYefL6B&th}`TKn*3S6^S>*x1u*k0fC(a`kq(89&| z^5N9_#oXfc`11AS%J1pT$A#^O#e=)e?We{4x3%N<&Aq+7v$M0qyX~|0ovY{5>yN|V zZ>NtRmw*2JxqrERdb@vrfB(A>A0Hp>K52i~ofIJbO;p8g^};L02SYOc%9$#X-Ef?T zx{5fYd_Xi*zX&c#YU)YEx<)n=lk3ok!VSG=dpm*cw*-zjXvWP+s~vRA?4!CMC~Qnn z9pyt~SN3So!Z|lLw^ez1T6%iwgU9|BeWKrth$}=D922%<^!V%l3hfvf{_ocR0R4-| zzxw?H@gsD2@xPP2gJOm4iqJYUY*9-P=U-@^MWA8JJ7s`)d)b%jx9 zn!O*IP6Dp3HiS5~9Q@MtrcQ{TrueU}?sA$@?_6K5DBDNzc&?j5Y#e>JsoxQ{im_b+ zsHIMcYkN9A&BF+LJpQzO)UbYm#fM$G^H7G{`i`1{y4zwPjwXCfuA8p6;sB>s-~?a)J>odU!r~o|>*BI3s}CJUs2Y zTI9-^t09_Pe10A*i<0lJdx@sHSQ@^REhc1fl%>;Gv^-z9)^?bYwLX)+96nE+ZEor^twJu{OuW#!aQagJ> z(f(*CQRFvWTCZeh?k9VF4B$c4x7JPET2Ip1ubj18eMO`$A6;2+Tk*dZRYDnu_d=BH zJNo*8O8wZYi@giqsJpn3tPJmsL0~&vzc$D7;0&vtLw|_Fj9@eOiI>f>33k~YO>K?h zrrIpsCb=I6?AVm?u^QYIL`HKi)5G=ku~8a<7xFQQ0$pWcqlFI1jN{m=sh+Cp=fid) z1#+K||0eY#60XcLnlDhGk0dO!juX}dF#@y;>d#(t?!x(+CCnTc7UODC@W#YJsC9I2 z0@}g5CR^4shxJCTs;B5DPaa&wYO1q~`Z1db3oJIV0w6a0abSX@}c*ZXbc6YsfC&5;Oeaq_9^JwwD0D3(P6_hPq+Vv)0 zK2MbSc)?#s=?Oo=P+YIRb?r`jx!s;7TWy5YebsJlI~34@d0dbB+x@CXaPm|gwQWnM zr7rC84ib<1hGqoU$Ysc`ySff_(DWld9;{@PaTD*x zy4kzhoB`D@1KQtr(qOwywl;lEd9=rxY}fzh5dCYu^!u+lU%}lhZ)kLa-WI(c{kK6R zKDTiA*V}383e`^&QQD|&-_t*;Q|92e$efnoB-aUsyuK+(Gqlkt`kI>0|8>xhFMTt7 z_NTlC#q~FdJk8w;uYdohF9NVw2Yu#Rd!di#kz8>3$@BrD- zoK*l@=0`q=HK%+ZbR4<@n=qH4R)vv5M6Gf2{cL;kM_U)}!%+DvDZiJ5Ir&gc@Otjv zCYIqwkQsBU@WkxWgHC+qW!DblhNeU3*=9WRb?=uQ-quhP;0d&vw9*vWz945~aoAk3 z`@Mk{`t;G2-JY)(7mbeh4i3zs;rocE;~uPSd_Ha5!Y!X`&q^k`g!h76 zE^`5!t-rS1l0<}5 zQ!D!IWK@#_AOBDv9pN2Ey|A=Y2!f%`AA5ts4tG`;LtD$*IwA?5VFH&CkH_49sC3^> z@!MsmEpi!<;a!x|U3zY}08)#`TxxE#AaQmC(H@swG@FtX zGr`RYyt4GusT`8^@n3>oPoZmQd(1>4m|gv11_t5yKIRyyKgF!Jpvtettv{qRBVC8_ zZ*{#!{i<4WZ3LvwAQziWJ2$C){2undX%hUj^+x2@;9130iIz3Wn{u5dv(qw1clCC=5iW$)>96?2yv2G~X8_S4M?z z8)Mz0+4Cs?eYdIKlVrudkiG|(T$QR)A`en--X072+KOg)8#o{uflmv8d*wc?5q)&q zoolwJr)}IaqVl>pXqvE(OmP%oxoch;fu<$}X!NYgQB||04jAWj9OaN&Se(+Kz(mi`#BCrq-7Fska2z`YQ*j76kK{18>+JN#Lh4e=5k_ek(Xe zC{3@^#S!mzH{`N887QOg_kx4KWDwGaR!Mg0{Jg7XCodN4|K#l3RNmp&yQXdbbTIRr z_kKUg>4q=*DKfAW$x;Bgz4M{5v`w(v$z9xSqvP9hg^bjZc4>YM)|B@|=sLm7%pMYa zQ<081_-u}mWqEzZK8?pg_`(d6b4tbuY!SNpG9{BZ`9$o44>wQ+q9_TR0g=o#vD8b8 zc>z+7D3{Dr(#CDXV5kWUciq|60PAh5R{bFVV^ zx2NWiM*#VN7F6HN6w!sIwS-v=@jVkS{&nt^S1j05kZGc(>wljNv7ijzb z-IdcRoz7spcp1QVd$d1y#N@ii+^cEFdC2D`%Ba79!a84HD zHmz!hD)Au5WOb{peneQz1ce3NrQPbcrEz~OJX&8?Dv^r1uW0D#xN!jl7MZC`Nw%`O zR-ChRT2RIoUQBlvBZA!P9|g3ez+A3xVRI1-rslwOnVqoQ9_N>6HvVqlGt@_VCx5nP zTU%7=7+eLD`Ix=^-NJyUj{2$@jQ!NG=$tEwaH~oYq-u|B-VHQIkWF&sU$^~{jTT#i zyENw)+DqNN-`Me{FZdi0OaY=+70E9~g+>oBs$%-(( ztelCvv|r{E82(kgH-#1@iPdA1{FKaAU~2Nidye|g#RA)HpR>4jc)6fA0Q|yEjprVa zs-v3TFXE0R<+)Fh{On|I_;^S@em_;o$NNNj@wCL?B(U#mX9R;XWS=7NWPlkdcr8D` zD!c`l^4cdMc^Zfxp+qs#)!_}WVs>#}-m2lgq+7g{Z4+0~WsXnTkBlgRQ<-D#;4$sl zbGb8%cjjp;#Q6)4(g2}1JrW{vvDU|wUvRpSZwD)y@`)0Moou2=8(Nt_uscKwy*lkvQ!kvq}H#M|Ao?5on zp!XGL;`66w=FU-g6B6FY>G+NlK2{TJN8i#fmqPmMsohm)uNS8nu4kvp1wli6yi^Cf zuUmPvO81UcB($92Mge0M1Jw=BM?>0`)`ggvZ}6N_@0-pf;1efuRj4j4{dFgO23wfH z<7M*A5%6E8-!Zja`bIk*a*Z#$*CoFWg)w`qhonvmW8nlW2Y6!!ip~BaKlIxI9 zCr&155chQ1zdk@1e+{y)O-r}+`8qn1=6xcbYUXwz|HVmu-NAo5SWnno?~f0vcXTD? zydi~oaU0d5q}A>MDM}*x`w*N0K~P=qxo?cplDg^ctX$_021kPBeWxUhT14T{D*6W+V<6ocK@V+;YiUK^KMhkYHxXn9o9l-z`V4f@ZT_!`GARdt<~6@N>gMcU5TUjDTaBNh}=> zdge)+lQRWs_hO)}KshleY>Dc5$Be8DbysF)2E`w}bvO}-R(Vlph^RT-@6X!<11;Ks zJ@T8~!Jq+k+^;u(P6yV6c_)DYl2?%HL}-USgqP2&rW_y8+&{GYjR+UQ9L~ehYUlTd zL;B@n$5ITF-WqNNbr@s-B96Ml;XK zTsel{6ps6yfsW)cLN0ryIUuX*6S()d+lR6nDacH={-$d&q}lGPTu#Ju3cU^bCD!fg z0+7K?ajd#iD%`F-2)bs!l{?7&tPFTKlVr`{ZDUzQ^pGjFAvfOcLir%L?7alKNBZr$ zy_D9C8a$->1(}kRpLtwgA5C5NsKInX_hr02tC^2Fvo*RvSEH4w(`jA1xBV&c7wmmI z1C##Se(qkS%p+M@p_c3*jzUqd7hJRwKl`wbSPj_@`6Y(QBU=K(p%BLVR0_$gz@Dtd zW3!jGHB7CQ)yu`2e!a<33dRSkqcBd)*0~NV;X|Xw23|!(2>;gKeWOIQHhk>%s zTvy0kcAD)TZIJ9YlSY&R4@a+hK3$5=WY@@$mkHaELlR7rUd8sNpM>aRNc(VvvY$mS z&xVq=HZIZtBv1XKDjm%aMV?ukP8loA654t6!4X0&6*JDr)NQx8Y1NmnHZQ?KTIf?g zZuig6k+*u6XFk7PT-GZ6r=iVUCNF5|Q|cO>9-`eiR=-` zikTqL^;N@ze|t`Q0AE`@+YP*6xV)dr=6yIWVP+N2B(7IXq@U zKor}et|#NxUk|p|BI`n4>!t)nKO=U#ib-Ckb-bePcFxFqIcc9c`vePIfok3PahO_{iz{Cq#nzXE87~RU z`olLY3TpQnhf(>ZH(=*~_qoVO?a;O`S1l3vT4>ABFv0E!#R5TmOt2DG+Ee{!GslU| zm+0Wj22DzVE)~#LnriCHr0$Al0D3d@l9vz6Be6Fo_+>jp>1G$;B@A3wz7| z8vO0rM)oo-zz=KEi-U8^Z)G}2e84;PD05`*XVQiDNjjPq!lIM2#(-9HW0`rXo;1YY zh-Q!;(C4lxHZ+yQDMaxg3hdyj*G9e4$E<2yT|eb61YF8WUFPwGPs}jJHQy!PyOUs} z3?6vaW!dsg<~};!?exmKo^_Ot#ogq&Q5v1>D3N`d-5FiInDTw`4s5C7W)X3Ve&<2F z_Tp=D5?lW|z~dM0u=SKyvZb&4P8hPn*ZnYia)&zUO>K62zAX0Cb4e34ct7-#A{wG) z0+zZY-?+Rlx7G33<(WD%Wh#F^$vj&RPE2nDulZ5VCsxd;YG`PFpgi|Sq!BDJ>ulos z^4;8>k3U6NT`o?TU2fS55d3)=3L|;OUQbp>e||a>=9|<<&(a0ILkn2lw5)+_{oZ#s zKN9xRyIQ!oT}gbso9inVy|n)xr;Rgnt>2xcUE7@rUOT`1)hA*ZSsPQQkLh*lJX}Jv zwSsKuB_bpb+$aFi@vL|Bdn1Qcw$SnJB$g70Wz=9l-k`bbP5sJTN@3o7EpNgR{x%|hd63wecJ|XDvW+?jFOjwFl$G>&AEv2cv+ zqtDV31H?~SChOmRwB?LhByL<0vwQECWy8TE#T=I~8nBvqPKket>4AK+XV(5uUrFsY za4J@lH!DV$C}{tf>UY^+-aN1`s<}P#`J2cK7N|LB{@57;7k|cJ^cs>lv9-sGF7(kS zZZ}GH;a)}a3dNS&!A|^my68d$c8z@aYd874ynKJue0#ZQy7&;XSlzr+=0qX5CwRTO zeBCHed&jPq_KwE)9&UPnDd{^RDGojH?RVF8nOh4ZLDC;KN&IPmJ^Yo6A$4Tc_;YJ= z?WW2fX-bOSUnKJis<*4PSH`svBBownZXj+Hg5%USufzkjBIzDB1y29{=BTrE&+hnmGqob?I>ya$6(;e%L^!LOKbQx3MlWI{^H zV_;7F1IpjNS!`e;zu}YP>AMC9)+~lob7b=+j&AA@=halLM>-1P{8%2{M*%^>r0bsP znefm|GX=#~U*+E%<6bLJ4b;2?*Es|~#F2mmLQ_(4@fKeUaql6>=B1wVne#y{Kc!SB zJ6#cuu6;lrs=#!kR|ir4iaa#R_pcxkLzpwxqhr}+W@9=W3{!=3i(kXpeh`Fr9<3k z#a@i!^JF1P)@;#*jUCRXY5^_2wdv9?TKw7y`#9CbO!za;ZwkgH?OYD}C5K`Y7Mf+? zXfbi=JQ>$dl?`g^CMC_Oq$l~PD1NHZ zdUN0{VJPWTl+D5U5|Os3CCcy(%O=2NQ44kuj&#u?!EqR9+pB$GJrYQF1evc`onMI3_&WLk3v zRyPUi0e2D6S^U6YT-&00?N@Bh>w5HC8jSBU>>PMaV)o_zBplz5hS5;2Dx6i4F&pHR zPTNR>@-=xg@^u~h>f<=$GvlH6RM>uS`fQPL%2|}cRMyMW z=N$p{Z~J$mDw3zvdeCc!>l`M9!XpT%PB1KFV$wOGLi!E8GX@|ePX zfqY6M!v|66G2x;MOz_QRzSEq*!7cTXd`__Inhf@A*kR=`60N`kW)vi^etj8VW0|cn zf?6%;d0jneL(Y(pnp&7aiBX`mQ&O4F<96YSUgb=I9<`$sz}ar>Ml>ad8nQ=tDFrDm zjZ#GS6ggs)xKuxnU~d`cl({brEz6;(V+1ltcavEhbC-)gdJ9)Mnn-7-XW3ikVAd)U zey9+c^P;_DRj9_MCkxS6u8$sGaO6t#!%?iTIr)yMslZ9uP_VcSJBv-3SoJ*mV7}SI zx<9sZ@;DF!v_$NDj{QT8S3@S&1g52ZphZwsKmDT86l{ierUZ{$5jn?Qf{OKdN-kNr z^m#?}9WV9dS`@iKq3Hrez!0t$PY928D%o0m)g;X@=q9XnGDv`+eEg#{Q!i-!FLa}(^odTz zeuRZ;Rs~wKPHtWG!~3-<>#>#-3Kdd{aKT|`ovFj~^n*x9x;k#Fy`>9EJisK-0#;OW z6OGzwNrL@rveJR2V&Cz7I}L|SKJme~g2FGiO>CM5rnfKHiuk3bg-VSa)=8A3ckSuv zK+sC&gb7;;$LX!!qKGaTP3cY}TA$QnOfB|gYHP~SjAm~u+e%J3XIdpp402O?9l@w z{-N&{pGDtrd?y>juV7V^guAP(Nfe=v`qPJ^3X>3z+K!Bb=AUw;{6TWP0u7s!_nGsAtEl`L*dVnsf&M6ev_h|tP~hvcrp3pPl- zcvQs_n^USUx7szB?a`|99jcp4#Z=1(XaZ0cE+J?&C4d{7NpJx*OZ;+{%Ddzsx%Li8)KrU-eYN*wLO~AI|u_eDA}e5c9bvIr_HAp z(m0Kpw>63vZjgz2R_K(dKzqxaO*EQB8>x$ne^W!p*WgcRsR}rBG`T$Q569mWo&DZnc z%|Www37!lF@^b^3oL6BGVe!IiYUl|KQPlcyqFPZU0d;LK%_%;anX-&IW*+i>HABx) z**sEClVGc*dSjqg-kcIs+}uHDVWeFglQJGbc6dCGgS#Z6VyuCLVg<&!dU$R;e*D|o zqpl}Iz_s~rMaPZMc)$AIu)}5x=v0FcFm%_c7F8VlK_E#@YK2>UP1;K+#(wil@|<{; z$gZ|{YK~-kLHI2DUURF1n++*;S1^->zHPR;1H2Ju(it`L`XlZ-rnu~&Ck-m{$_DzO?@2JPT=6OzESPB&n>f$nel-l>(arCgTo^o`* z^4nb21u2%P(c4%{yDSf8R~MTXn+Y&`{R{+DSW07-PH0s4O7}633XR~lRcd`cFrX$6 z5VZ0pN)%FpVN|SCrSrA784${8scJP`W3ey@_NsxHW0D)~b6l&G;ys4F!An}XQDVz3 zWvB`d55LxLTkdVCavr_rG-c4`ma^p#JsJa4aUg;II!lPuufHT`1Y~Cm6;)EwESK+~mWTu~)X>Ib}*I z+-~Uz37kiJ$^RWL!THh?59+c}H2?;x%ezG5sP&=bo#aFEnc{YCak7GuNaloz!0$rP z?>7slT~%rykTG|_$*aq&_x&r{TWYP3Xiu+0p~Frw8SG782=*BFd(qta!*T5kMC_-geboAesec;JiySy4f|;UvPWIp%U+ z4_xob-EiAqP1%suy6zsuX0=*qYbb@ zNIq6mju>&I26687$@oQ(Q%^@tf5)b$GbS+rXH_1c3gZR*h@yCKAKIrn;W82nzgeBB*IjIotd6jeS9ZIzoCbaT^(BWNu!uPx5lEaE}-Hr#TM zfQL=n*u{KWufZ0~E)3U=nuj;2`KF+1VjM!vIX4`l#`K#&K`{iqJ(Ya~pOT_mKj9Bx z&6Yx@G_CmW4W1{^M2Z|e;mJ^QADrbNk?bFqEaJnMx|HsmgNC&dkz<-8H8d{P%`{Da zKF0gOIY%@AX9bTC!~<5uLcHnlyxbnd({yjHTBA~dZUEOsECwH22CcCRK^O+_7r?Dd zr&c2btxLIfUSDcn$ikHSConGgY$j$d&-pwUeT|UFS?fHi=z!Fh)MRL<1sIKh=T?Ir zw)LF{*L>NF-MI9Iy@MezK@HeeU_H3~nue1~tqi4d!w; z2~pkB_-D+1)*}@q&X+&c0!Z^ZTxOPd3vh{K0|_m$E7y$}JPp45s${@6E z4U=JBvWF4PJb|1GSd1_Pnb1~Rg!E-dDroPKcJ3iLUcvinQ>wI)R5GmY5Omgfp^9Id zn0uYYbGaq<2q+N83UMT;_j|cZQny@06@esgMYpe0;n7&l=_t&DlCISwa{IK0)w%DRiCt_ zM7esL8tV(WlNiiTLs#TG5W7DYHf}EuH5-Tj>`*GEaWP^f#Pv-=;ap#Sl5;d4gcf;n z-cLpUbJ#zYQ8lBr=B3l=)pNN^X}JLa@QeK|@|@P_aG4uk72AiLa}0ei%RLj9_P;cZ z5;)V!V~Qg(?gL(31=fW3mhOFGu36tITVhT=P#<6S+UI<-#svr*o_ZF+DsBI4uux>K zc;SAydcUJGzxtPd5Hq}*pq1%XajCexkt%z?mI@9*Lxl^L9Ei1wY}%?@NdhTI2Hsu# zgQVnDxvgQ42}8aNh%Wkc=_0Oi-hkbbi|1ZPxHIGb+GgABtxv4+;>RS93z`V@((#eK z28Xk}=_u+H%<@sQZ)|-1LUH~$0MigPnecNLi+fkr;&dSC1bl0(dw&p9z3Gop@;#AX zcft`BL$AYanOpr0-jtgbGi`EHqJV^_Ct*3ZGvQRuz5u{^Qj9j%v?-qP=+;qbv6SLW zKE-e7KHIf=$M@m@K=1xrpAIE3>B=A{NVm&hTP1kUKj0IamNT10Uzo2bCa-;~F~=`qs!W*U?nLl=xI~oIIb@dhwj0 zod6^3r}NP%AJPqF(>KWgSH)H!!U{#^2r2u4vLl?Z%Yx7lwD0A-njwH1!|@FKM-*V- zE7t8LWI`JIv(PQdTEczJNE)`?dXYn`E$b>xVs0`!7u`7(y!U(p+G<0E2t7IyCiSS1 zgBW!WTZgKZHW>w8c33Vsd}4{M6RY}Py?teL9J{urnVH#%9kXL*X2;CT%*+%!W@bBP zW@cuLnVFfHc{=yKGv{15Z_QdWYt;2atuB4qB~_`m)O+ubM7%r0z_H{z0M?_q68kxX zQ9bCpjazTpJT@go1{_X2!#!7L+4`UA5Ku!-R`==1D*WH=VpJHF}(FlW-ODT zlAOA|+kS(O;uu4W;z>&J1Il@Qg`CwTV}N!PLPGUDFlQo{gMxTJZKqWBujr0kJ7*H6 zm`tL}I?P1`nIs;I^EXL~0Zu_{x<76BIj8Hz8*@ka6Y2ZuQ@V3e`MeTJwQRG(Kl)ba z=?PK9EN0xOHt8-CApO-L^^cNpn#MYNKZd=TC7>xK)IsoYKRVo$mo~#}b(Ug6-s4X` zEF>3$OO;9WLZmZ%HXaxmsyU{Oo}{UA%p>1w(~1-)@(-U}Q3TlEJwua*F-xyEyNhOe zT#_^X>nb!G1fyidF>>bGm?%--CzV%>E?FWTfHV6NVnhdV?A(5z8w3xs7RFC(TqajbqUr2Iz zI&c}WWH?58LR?8CT@3S4h5kJF8v8zU2j@WOK#1Bq=m=KKp#%wxXR+C5H|je>*WKBe za>NexNj$=vuU3Lg^$S8TW#EMxD+1zqH!i^hLIPcXC+})%8Jg~_creW`cs1b;QhsNUWD?g}d zfnbNl)e_)L7^qD&0x((Be(5u$7e?It#IJ}HlE)F_p^_pxRT>y69ld2ArmNA&NEkTh zQ`)OYR0-ls2v#=9iid`hF=sO~@@LNHMXid;;cZMNZbU_-qX&fe^pjAb%G2!EwBS=p)Eg=)|yHr?* zcqzSBf34rGO%#Di&j}O+6DVHWcuTTqB}@BE-^w#HWOgF+>ib;d?C=8#)rZVNz2FIL zW>OVB(FV~xFs`n=NBRNfg|)c->cyK>`P%rL%D&gEociS3w$mYJp&w$eJ~LE#Hnc=~ z30ub;RRjLZD=28q66?YuA-A;{g{L%aApJ1-N71)4LXyYX*+7*u9KBw;6kj6Jg3C`p zf`R(@M5B4?6td6rC30nX^g>jUS28cOMm2!~;stNfMJXKCxIs&#gbL1}g(XUgD`T+x z;!DrL@G0gnh$SI4?;Zkx0YMkj78>aF(!)t+a={nU{W&u9X0yQ2@m0)RNTVy+d#z};z6?tuE z{LK739|NwcW-IZ=?3A&%&sAd)>V@fpCoY6SvNI8~WZ$saW=qDT9flD=E^GBgMnVLI zB_6TI;y|YbA5@dJz40>Ob<4rXL|K`n8mGGv_7YT|Nr$`|=H+?PNQcMvMK>|qewL6X z-eoE(Y_=5zkDEp9w>TmRFek&be=Zuf+t*yQ)EPKEW1HqnV8_Sa}Z^;vXfjQw%AjP###uXEXVI5f^mWCL;Ax2^a z6N35RUiaDpC3opQ@Pkpl!95+%5xrBlom~JXI=S=c;v(6(?BWOz)?T!a?0xn!EScGj2e8kBjV12+lGS)@Ht82H?oe<&|y?}lwncq()3qFB~lu1ZJ6v6)gu;TGjE6;$K5D1iK-LM;gRKn{G_Q`I+dDthxD z%Gm)9`sjX@uy^A19O;18_%}FQf~mi|s^)e%zz%*zb!;e;F-plo`(QZn)`k|xCkw~Z zmJY$Z5}D?jQA7FWY9^(vE-wCpIO{NLL`X?ZTHc#$4p3;6kdNc}<-{PZEJXaokmkf{ z#)JUPdE>f^AF?Gfg!o$@78D|Ym}V3Y>H!ps?+3Q20-MjePy67Ro-b=t7<$*98x3!W z%3gQ{`$Z|AGQG>jJSIM21x8#*dLEp4QSdIgC(78C#9tgmIsLK6gtYpye!30U#SRHj!+kQxRfb8Eg?pGDAc;p0 zGIJL{(#RF3P2J65OXYL?P853JxPy$2tR_PAm#TJ`fYjVrfbJS9u+^)AW1FA6Bs3^e zmyu_t1BPC_Bvj@c>kOH{rUzqi;iz2K1j`dcs(tkCfN*_n3M~;kP(&0yz>^%~2dcp% z1|khZ_?9%GgTrpOf@GyyxK@<@YsH#Oe7XS#F!v_iHmt-nYVGY;j%4uUEP=;8C{zh4 z!k=Xcmm2Mg{uHJ_uT~ns=$KfM=B}FnT!t-@kNv9@27dJ90`c3nsdrRiDtz17jv~cv z!$@#AcQ?w9M($r@Iv%2Ww8$#gbRjrFJz zg3(#7fX}Sdy4-#;W^L8W>E!uox@sDC2dnh-CV1z9l}`dJVepr_9Q-poEQZD-gC zsT+;cR-7gT+{&^FJ#i&h@dj`~35D2!&D&81!t$oXq+9%8TT0pVQuj!5j^o`+gkZ9H zLa@GzWX>#Iz(ev+uU?}$5_XtMOllJ8f_6Hh7Qgti0Iz1{1`vgBmY9|Lz9|H|`($yp z2Cwv&Pu1qTH2Rj&KdDr1ToHWA+hXj4hsr*-?0~hcg|*Q~uS>sCixVYh(EB0zdrJC>pNHAsxYV_= zYCb`|?qb1}Rx9aB5F_!{{Q4>Uo%+NZ&{b`e(TEMF*_NV z)%v*PYojXvuhY$%;(4-KVSp)fXJ~-f#)Br66}*g`Jc&xO-roO7%U(wn9(-C1nc#71 z&ttevNba{90^P9JYi!|s)F<_Lq`u4qxC7~J)E-Pog&rA%^G3i69 zxWjlgCux2ZY*1a+vZlrq%8q>IU{9}BF)9M=w1NqAZ76wWSkx2&WCUP7F;dmFz?YwV z>`YWq%0FEK)HtaDEPS~e#i5rsRpz9aGC!31xd9e~G!aEK!#6?}-yM*gQc7&zc|p_z zJg{WT@%v9c7<+XSPt`e~^6?X$)Q%EgEICrwQOeq_GOVy@+~=iLdj@Nhzzwe|UovmQUTHqXnpa1aTOnjmqv~duEl=G4s#< zZYj8!4N7;lSjBvp2OSN+s)jD}W3jXt?_g(86vThs$qmH_&?-07 z%1?BQbKcBcH9k~1f|{e6f4jZtKmOtN@}F}5gHz0(E;IjwQw+eh=D&aaXZM)@a;W*Y zvj0hxKgIjM73$xb1$h4aTiO2~QT`wH&;M<&{67@s|9q&%L*EH;Qa6-dTZwT}{y} zY93^kv2FCFk8W`63Z{nLc1b9j#L^G!&Ic2u)U{%lIb{7B0^IxIg)$J!_J&2~Q;!cN z@2WND`Xh98(2(7_qG9i(ij}~<;OSDsIH5Vg*jaHxpn4kz#BbL&?RZiPYt&twty$?o zGkp>1X?z1Fv!UX5!eE6!QwXBNVm9Gc{Nqr$X00XGU$IWIX!fo=VRdU9oMatMlbTXb zSimNg=Nu6x>Ck;^&#=DX$=%pNc&>BEeD<9_0^*aT4!J&>TBI3_$yo36LzWlOChe-- zJ4>sQB4Lbcc{R{1(zbIn4-f;LXB1wZ!kvgAqJz;lbnT{p$^p z@+3CPYzWlZCBfG7n(1~%4? zzr#oV4qfKu7PrF^d+~9hKyJ=S>KXsVm(^mmo!-mEW7WCIef~wihqF7D99>5uFEH=e zHS>G7AZ2lAJcAezm{J|_vNb)lF-V9G!8ah@w}Ul%`lhR#MMS@!CWd)w@NK#%(r>!& z*QbO!8;EDMAD(yK-(gG`y|=X_dxzYQz=v#6AfVqad^+&^FiU@h9c`?Bu`t93$IQlk zxf0%_X@4Y2*7T>MU2OBXx=jx|ZGF0kW1EltX|fxsIg#hV;N4D^rkrrQI@kN*S$E~S$oFmGm2B`l-11mZPn?}!8Ub=OoFf;ZGFBlY159uV!O(?_Fs_QFy-NMF zQ8xRV)$PeDlI277xIaYMiPsfk9KUpNZ1X(dPfKVXj!>MPw}w>>SW-ND76z=5`rTa* zhjk6}ovp=DFy6HHqp=KZ*<$k&Y~G%=HE)mMyYO>*)L+5d!=gkr@{Sfo(WNz`+OXY` zhCR;7up6voLOyLM@MveeSta<-I?5$1B2mBfzx7_URu;$vI?!f?D^Q2oys`1%f~F99 z+U1hBeSI3%SyjUNaQaF9k^dC*aXvFO68PQr2*L)HNqe&4*YiVt9Dm9SlSAr zi8q$EYx3J^h#46hb?RR>Z)V5d6vP@%c)Y*B7Pk(N97@>sB{iyTN6m7Qh>5ip;PD(< z03|DmcB9xiNi!ls^wHcVp$6k}inxPmB%$o}5DpD&`_$;g_K{6bx*83E29e|-*9=mD>b71%}!J#1GmR;Y~>|(APOF(n*F%FHitK zdrAn^n9TH2CK|zqbW)Pdv``h*jC2y4Ov-Q=8voq1XB4a-72b@5>BkjVw@W%7m7ZQM zzEo0rmR?!F8M~gb0QSX`BxV!Mk3kNt%^ono0ufMijsrG~w1ti_dkYn) zrAxO*zUp2F6H5|HwNo0?n1me3LN!PW)09-QY@rxdGp)<`G^Yf7yUtNBlks_kM&l{> zcF26ks4r(NA7h6 zuUpX9bYPMziEY{g`0U#q4TNCAtDLXm?%TYId^|9C-P0P}S9X5Ii0WHG{z`k8@_c2! zwT>B%K2`vp{GE=FrkBFX9vME43T|TW7=HIDEVXQ{zf*Bf$AQ&&z>8nzLsE}29B}Us z&L$TtfD@}U--GVCpSg)q&e@!p+Mf*&s7!r(rWL8XegZ~2yH4fZqZmIOo+%&|NwYVB zCLi~3*`|Gscc~C4j!O>m^|dF2)^)AxqJAkx@%xE_y zZ$i?A__!x08nLTl@toc7cfq8k#?(~N`I<%(`X3)NCjMoy=^HE?p+%9#ye65Um1|}# zgxk=Fb%kx@28K~1QVxv)pmyjq1s(_OsM&p;6Z)_&Jz5`jX!PiA z5EsYoh*(wHCkgq!KKSx8lky){;QRjE7&UH@XZPz$^D!xQFS@OTx!X)EPHuUvVp zw|l*{Xt~GCLMl($QEjPwCHJ>9(r=(gbBIs8gg+Pa!cB>2ZLw&po+8=tv&V*6?enZ z+VyV-a#;z|=?D^5COo3qq@sbS0w445a#HeC!q?qz=W}uA1wF?E5K+>r2*%7YBB?~M zrqnpwVB)@Tld0ezjZ?E%8Vk?i7LHB^A$uPPoYs z?z`#$6Rt zuZM*rrLOkki6*UhWye)PC>v!s@hf4pRM`851^|^nD3)lg{Yc`MY`oEq zNGyr4G;>KW5efN@rGHy(NGNe%{pCbe{`9!7xIY%(zx@E!f<*&)Iea^g*oWz8=kw-v zw5@3SH44%e@wD^dmoumkt9;=FT;f?B7DVB5Wd6^K}Mi^XG(Y{6(TTe^SG z79=}TH?%ee7qgStI)}H3A`e|3Rvmi(DE=w0zk~fuK>}vwMhOlLapq?IiG$rH548z| z!2N2l2>oH_j$Vb(fj+XCvT|d;tzpeg%33(Ui0;?4ntsL!92d3S#r4BURJ+lR&5|qa za=am`)Bfi z0)0Z<&10hJAzWsfv7xoCu@JI`C-36NNiqoL2l45#u)Zj*cPZg*RPWMgrYq(VlZO1W z7>)Ytap88i5?lMmJBhY%24_SiH?7;90_g#G`g7bJ(TDsg$&q3>WU45=k|1sH5m>uh zlJZk;5aPHeEYUx%^>}oB=%f+XOi@)DGuhstyR+vMTKD- zdY#0>xK72--eTTVx4IX3LlqG;sBiPkb3|4+qwmx>RQvWNcu$C}>M>2bmMb=lC1n)P zLL*wuy+a)9z?-*Q=Jid4((P>ZTt&_jXAW)+FeM2SaKZBhw> zsW?F_P6$>wsVo3ZJ2Yi5jfr4i+K1K4Z6Mc062VFxZ@G@W?#R|Oj+_f;kA49P(TRx5 z7Zj$kI_GD*gN&>v71KWrdUtZ6(e2S!$4JfGn_8}aqY5-qk?6mR+-D17lb zlC0(pWI~4LXgH|xo?}{q%yVmUwJEG#rH{={0Cbo=V!dc3Uf7>xLOeN(z!K?HZPM3g zxbcQ5j?&8Y?s&mTfE`Oyequh?EB>QtLyh7=V}mJgs+bj@AVxxIQ!85kdppk}%+;V* zQywoI&4L3f$hYn&66M}&9+;ng59fV4k7i}P)`m8o-}V^~84D!e8}zOvFz8ytx)*FO2ec|oxjJ>}I>xpd4jcIg z>Iln<;FoTx!AhDKA3ujzw(I_E-&m~v3Bd#Z)cU$F0~tpb9EbcSGpd_drGLEE3DCBV zz)`B}9N&Djc$pzrdnh*$J61;hF7h`|Tx=faTdy#-%;{EY9=8@oqAogqb#GRdy12m6 z|3nvMSEbu5Y({QsyH_cljd@$U!vxK<_&z#gdTwm9^nz1PwxN1sQoT=Gd$nN&H{)pg z^nCqN{tl0l$da(PcraRs|MG0VA%kt19Yk@XeiP#8^VEZJqo7c!+#+m%wA5)~0awEU-t|HA;?wLdX%aPuHe19eb;ESAw zZEUT%LAzJRB$_3~an;& z69fE9Fp+lXgS@yNJ{plksP%Mq>eQ!sGpK6_l3+7zwQfqjl(ahdnDxxz#Wrqq{&gpb zXr_?JUX8&Y(qZATj35+cp_y*;(J7;;TSWF!^bP zPB4MlcLsJVj}yuP>{SRh1nLe~U?g!6tmJ$S%pLgTd4^XzKF*ydx+DfV>LpD{S~Qqf z#o+%Vl24k7wCg7WA|&)>>+quq`|s_5QkY>7ie#6k~JwwfX@=g#&k}Tyre68$3|b zX#_9WEnX3Z-YI4Y5@K+S58mj;SRg*BZLX3*L!f0b;4FW6r6zB!$%a^vE^Mwa^90}s z9GGooc_4Ct)r*WJT3vY_s4Wjhb+@3>Pvg4ppbF$F0rFe7wCxc5+#{y|etczqg zGkw0{bp`U0Sbnzixxr-8V4jV!27>)eaH#POFDub1q~ti%I1*3ySoa~oITkVr`&5xPHC*|wT(^Vz@$C1P>5R1w}F zkDpcUv~5y)7zkX*Kk0IL!M7q2O(d` zrD6w;2R;&)2Fm{~zYmrdo*20c)-uRQ(-6l@<}>6ogr??wN_~(in>Lb)+ExCoE)JCq zC*r%T(~twmz*QQMh(Crsh}o-ys=o|5vicA--dx@UIrj4JOn#=E09S5W*E=Nn+IzxC zJzLHdb(9ArqNXY=uV%J3;fnaiApW^Q&S8Vz;@aU6Xy)phQRS9Y>XHfJwXg|^B*{5y z#E2?6?uhJ~b_>s)@wt19Aqt#J$of8F2AsQ7uD@U^;=&+aCvV1{i4#Et4i^q{YY)Yt z0Dfr$o0393T95=D#B9P8Aw+2~i;n|B7cv^PbIDFJUXoB338*BiRz;6L#ZQh!RWs>g z6{yXQv>?|#2>x+_5aDGW62zW^4<|?$Sl&lxJAAj=e{B4Q(hlqZg4M+wwC1|GGG;)W zkFh01Rlc!di*~=>KfAZ!X_1Z8ZqNC0dN-@PnpDb4p`~ARfQ0vaX}cn_;pl5ZP}0(w zkgNLUB8fBkH{!0hLzz;A)!RUF|*H6Ou3+EjQA<2|LbUl-C;Fqb+rDSNKlSp8+C=brKhkisUqI%V&OaFByvnd|H%`!s zJ$aE)bw;J-U6VvldF)IOey~65(&;FEmkT>W7&Gf={Bi-0I#qAk$1cd;MNJsK=)K_;_##b!>>7iY$d0 z6iTdc!#ryGNpt@n+cXoUJzXNNjjqLdBoM~Wel6z`WT6=~M%{U?*_kt#;~`on)`1Aw zpDIsSHi3ftWncx7C{htS#2VAYBdB}I2vgj727P4Pf7{qxbC&f%u z!JGqiM2112(&3=!$+(yMd?1VfsGl5hx`PiHV@kWKV$jMn)U==jlL@k=ElAM(73Z8q zQlJ%{F@-n_E7N9Nr122k@P9&VBz#MNXd;V|x3`xG5!-<{6dE&C10s@R5b8@$D>zPs zZb$oEXapS^zd%|$_P@WACMJ302jt!fQyF+Sd zHgkw2zg>`W*oD$8zES{Ho;eiqC=>IX1Nx`+woG8HZB69SW@}ho!0Uf6Miw(6dyUxc zSfY?y)ypa@-D}*Kj%`hE^$M9rMBHwR2aE=BqePg?>&H~;8@;lDijFFB7Jm9E0n_?z zJX-b2X9oz}dHVSQjXtt96=-GfKM#jNcz8|N!Quhae3NfcxOk}>iLTj*vLgg`8Xp-$H1%0^DgSe zR?Hhqv*N&->G2$qwZpmdX?@cpTk|#XO!&G0`*ES@$z~ZEx7fQdoBx{zZkwITcMiNv zUtHP(gLMSX&bif`Imc2_EFBMi4V@3C^gLqQa}9q~ zxaDurnP5$&LOi;=`;G10&ap{g6Yi7f3R(tf=+@Vl-K6L{LYcdraht)^Q?5EFy17Tn z^L^#ljPE*30b8R^_ZUzWPOH!6dpM_Lb~#H_{Dt1{4Fv`P>O0UEX%&VV#NG=9Hg40+ zr&IXpjl7vSzQ z4Xc}bFu%F45T)dB*4-E?230A)54vL%ibr($2_V0K^}%HW+o$e@m<C1twP<$ zRGv*uOB&8P#>9zgBZh1zy8J7d_Ve(-AFGi0hF21(mfjbo8hGdAFlj6$CQa~raI%F9 z5>yRb@GVZIrI(}D3||!Rojyb4zzh_X)5%C|Iw;p~cP2>`hnOA7Mlw#L4pL_CAo)<(gEFz@4QX>P!>Z5vq2!B9kM{7Leh_^LROB{?{T?j%Y` z4By#rRMmZvo{ftpSO#~pFA+o;G{qUjryw0DYc7VLhp#kO$_hAT8EleiOs?BU8EFK} zR9&rpG1spGUdi(+ec(Q>weys@&5ZHobdS|r{dYH7HONHcd;_ZFVR!c$yK3|O z)j$vqvm29n{qzY=l*6FR;qDQu9-sGclonnaw1ISCulZ%4pEBpgWIn2!x7}M8?5ghe z+~J)(<9kXV$#7AdcC{V7C#HyhC3}U#9C!}KdSZT63p=rQuC9Gt$sK6Tx9)}1JBD;x zYzJ>dvZJY1;JnpLUXv%eQTXhpc-BICo63cEeR1y?-(;5$?U&Mg%&Nnb{oX`<*J-F8 zqh%^E9z#vXD^@m?fPk#@(jl+3A_j9q4F5-+7t~Q%N_*mqh*`O*VHfX&N?`U)^iQH- z7X<;oBq_i;0unFx-qSy;;4h1H6IQxAlEczH8rhxWDCH6|;t3c+yXiWxbEVXWVr)Hr zQ$2I6guq6HjZQJ}-Qp(R8|Q`~vJ!@@cUDp6LcDIQI#gcaT3{H2{he_~Z#|B0YjicXFB`tT;VKo5xAf zwOe1#=gW1Y5b#XjOA-zWdAp_xWL(}J+S3rGvLiXnia?sLhvOG{#`spT9;w+R=F~K+ z>jaO|Y$X}ZHzUq;Jc#FR2;R?uOR$nzvILL41}Z!)EL&Dv-MEwG>UrX;R%lxt;NXXA zqvd)b{Th(@sIA%YquX^9EvqBd=yOYNww%`16glG6%92C3Fj_ljnt6G+VW@fi!&xwO zk9TK*)oY8p%iy3_t*#nNsT)6%$YBB|d@S9!sCHwk5zC&j#QG}W%1Crh$E+7(-h%s~ z={>H~G#j1in3Y1x8+gz*=_?h);cACaUi)1By`#6NU0+0_7cHPZI*c4b{-iIe}^h&N$?T%GoS0$bCa)xZ4Ljm289|p6)j=PS9<2H!#G)2M6f8 zt6FhapPT49lD?xTw>i6=RVs5*^}OU;7`NtIAQoyeS}N|zBM$DcY0{+GW0Mga+}pD^ zs5ZJX4eu1`q@QdO_RTN%dno;K&I&a5R?;ftIL99DsSYNcG!`Ep3ydni@sd;64%1QL=0!!Pt^?ka%kwYWV=2b|Noah`MXr$$ zPP(b#M)?qGWG%9IziuOee7ro+u?p?k*{(O;c^;=^rMVlzhppHK)+WsfwRm2QHgoSS z5cK|dKYh?yZqRJkCvV;C>zq*$qL4oQf~0A*{s&`s6omI`an-c037^{VxcGe5b9*OY zUjJ=zUCf##96csp{SE|kLOxq$g z-x%s`G-&>_*>zrhtJF#NHomL<04LWU+i_p=x1x}Gi%<@&Six&bq}j5FRM4A*K6>D^2Ou|6anQz z>G)xEi79CFD8%Vzy<_=q))IPjBuo2)le*$WF_IQE!MRDcNTV)-#GFtARu;rbRN_#j zoZ>0EbmBZ~LaSMN^E8RZP(9>V!68kwTWKf~K0V~X@cusFRwL2jxV-%g-5Q51eOjWX z*`?baPK5OfSd5Fe#rr{nZ4e9iSkM#{|) zsJm&J;x8^N=!zH*RCUgsX%7wEzhiq82%JB~+JN7IJHs-Mstv6+C_!_EBOxT>6;;hY zNLiwfch#yhzyh}NcVD(&qz43kO2S`*DSTOPu^4oX7h_^ImqLKXuwGyzT)Z?j#^)Qz zZHnSB$RcSqW~s6ue^Rfu$P3XD3|WZPD#hao*6M{?jMU=HN*_GKInIh*uNaa)khLB! zF~(=g>~}9qS?ioOEi<>4P$4l)@;Y_{xS;9HC$k&$({O4J+43JC*dF7V-H*(UpL1>Z zMSJv0dK-7&aMk+E+$PlCXKszLjukpYq}n{^B1f;Nz2qVTG8uPMP;222NP9bJJKRXe zDuyK4Dqu-FMAALXr-O_utDngAK ztuaEUTo<6eHH7S&rttUz{`BQ3oP{$iI)0vzck#*}c%^1u0qFk-I1JLc4S|93r=TCY z^L&E(NHdcnRcCIv`jNsIgkv0^a#4a*Wk18{M<(!OnnO<^$ScG59dIzzbsn9X6fd2_ z$sa>LdU6?rd}&>8?c{y(Q-TESDmLQN`P&q^={G4EAaF#QW6Q#AAl>v`atI&|RtK94 z@V}!bjiev5H&*FrLdf%B=6X6kgn_VO8vYN9~RRke{|ebXUkpg##6)B!~jVUnV( zmgvFh8pi~jsRo5;8uT*?e3zSM$C0_czP)MjWUkgEU5D-2C4nGupUCz?GU~rX!}3^! zWSN(g98bPoV1Jc)EhF(eDoSQxCm9nU(yEiFkizk1PA00Hpoko{Mje`E9hd$8Xe z)PJTSK=xn3{+ZqT?~(rb@<0IwtN(`d7q;)e$N9|`@@L}w4>*6afB!woKTBixA5i|v z2LAUr|13@Mf57>Z9sK_kW#d1f{K*#n_bC57R_GxA-oyXQ9{yiQe;5n@l^XjuW7(fc z27vUxt+WAb;(y%4f7JXdb@FfO>_1Z^fTaaMYX1)+?SHNHSMIdm^e%s2*?>J}vZ1D{+jDN>K^9RZwSNm6U>)(d#f2MQUzcFk7SBSsP mBfssk|4jM-f*XTBt+Zt&zyT~OKtRZVj}gGUd(`9ixBmsJx*pd6 diff --git a/R_IMPLAN_Model.R b/R_IMPLAN_Model.R new file mode 100644 index 0000000..8c92eec --- /dev/null +++ b/R_IMPLAN_Model.R @@ -0,0 +1,142 @@ +#To Do + #Adjust to remove transportation cost + #Adjust to remove taxes on intermediate SBS production + + +##Inputs +COST_TO_BUILD_SKID <- 300000 +SKID_OP_COST <- 30000 +SKID_CONSTRUCTION_COST_RATIO <- 0.33 +SKID_EQUIP_COST_RATIO <- 1-0.33 +FACILITY_OP_EX <- 75 #$ per SBS produced +SBS_PURCHASE_PRICE <- 225 #$ per SBS produced (or molasses) +BEET_PURCHASE_PRICE <- 100 #$ per for the input price of beets that produce 1 ton of SBS +FACILITY_OP_COST <- 75 #$ per SBS produced +MTU_CARBON_PER_TON_BEET <- 0.62 #MTU carbon per ton of SBS injected +CARBON_TAX_CREDIT_PRICE <- 90 # $ per MTU of carbon +VCM_PRICE <- 70 # $ per MTU of carbon sold on the market +RNG_BONUS <- 15 #$/MMBTU +NG_PRICE <- 3 # $/MMBTU +MAX_WASH_EMP <- 8 #Total number of employees at the Washakie facility +MAX_GOSHEN_EMP <-15 #Total number of employees at the Goshen facility +RAIL_COST <- 0.054162 #Cost in ton miles of train freight. (inflation adjusted from https://www.bts.gov/content/average-freight-revenue-ton-mile) +TRUCK_COST <- 0.29028 #Cost in ton miles of truck freight. (inflation adjusted from https://www.bts.gov/content/average-freight-revenue-ton-mile) + WASHAKIE_TO_CAMPBELL <- 160 #Miles from Washakie SBS facility (and Wyoming Sugar) to Campbell skids + GOSHEN_TO_CAMPBELL <- 205 #Miles from Goshen SBS facility to Campbell skids + WESTON_TO_CAMPBELL <- 60 #Distance from the train depot for out of state beets in Upton, to the Campbell skids + OUT_STATE_TO_WESTON <- 400 #Avg distance from out of state beet suppliers and the Upton train depot. +#IMPLAN Inputs +GOSHEN_WAGE <- 53007.10 #Average wage at the Goshen facility (taken from regional IMPLAN data) +WASH_WAGE <- 71017.25 #Average wage at the Washakie facility (taken from regional IMPLAN data) +PER_BEET_SPENDING <- 0.6832346 #The percentage of expenses associated with buying beets when operating a beet processing facility. + +#Time Series Inputs + Year <- 2024:2030 + #Gas production non-renewable and renewable natural gas + GAS_PROD <- 1015*c(0,143500,124650,108277,94325,87253,87253) + RNG_PROD <- 1015*c(0,24436,199100,382110,721571,1160415,1160415) + #Capital investment in beet processing facilities + BEET_CAP_WASHAKIE <- c(0,0,2500000,2500000,0,0,0) + BEET_CAP_GOSHEN <- c(0,0,0,7500000,7500000,0,0) + #Beet purchases + TOTAL_SBS <- c(3000,10000,100000,175000,200000,240000,240000) #Total tons of SBS purchased or produced + WYOMING_SUGAR_PURCHASES <- c(3000,3000,43000,10000,10000,10000,10000) #Amount of SBS (or molasses) purchased from Wyoming Sugar LLC + PRODUCED_SGS <- c(0,0,0,87500,150000,200000,200000) #Amount of SBS produced by all CCF owned processing facilities + #Skids + CONSTRUCTED_SKIDS <- c(1,4,10,10,5,0,0) #Number of skids built in a given year + +######################Natural Gas +GAS_VALUE <- (RNG_PROD+GAS_PROD)*NG_PRICE +RNG_ADD_VALUE <- RNG_PROD*RNG_BONUS +GAS_TOTAL_VALUE <- GAS_VALUE+RNG_ADD_VALUE +#########################Beet Facility +#Find the percentage of total capital expenses for use in production allocation. +BEET_TOTAL_CAP_WASHAKIE <- c() +BEET_TOTAL_CAP_GOSHEN <- c() +for(i in 1:length(BEET_CAP_GOSHEN)){ + BEET_TOTAL_CAP_WASHAKIE[i] <- sum(BEET_CAP_WASHAKIE[1:i]) + BEET_TOTAL_CAP_GOSHEN[i] <- sum(BEET_CAP_GOSHEN[1:i]) +} +BEET_TOTAL_CAP <- BEET_TOTAL_CAP_WASHAKIE+BEET_TOTAL_CAP_GOSHEN +PROD_PER_WASHAKIE <- BEET_TOTAL_CAP_WASHAKIE/ifelse(BEET_TOTAL_CAP==0,1,BEET_TOTAL_CAP) +PROD_PER_GOSHEN <- BEET_TOTAL_CAP_GOSHEN/ifelse(BEET_TOTAL_CAP==0,1,BEET_TOTAL_CAP) + +#########################Beet Production +PROD_GOSHEN <- PRODUCED_SGS*PROD_PER_GOSHEN +PROD_WASHAKIE <- PRODUCED_SGS*PROD_PER_WASHAKIE + +VALUE_SGS_PRODUCED_GOSHEN <- PROD_GOSHEN*SBS_PURCHASE_PRICE +VALUE_SGS_PRODUCED_WASHAKIE <- PROD_GOSHEN*PROD_WASHAKIE + +OP_COST_GOSHEN <- PROD_GOSHEN*(FACILITY_OP_EX+BEET_PURCHASE_PRICE) +OP_COST_WASHAKIE <- PROD_WASHAKIE*(FACILITY_OP_EX+BEET_PURCHASE_PRICE) + + + +#Assume employment scales with production +WASH_EMP <- MAX_WASH_EMP*(PROD_WASHAKIE)/max(PROD_WASHAKIE) +GOSHEN_EMP <- MAX_GOSHEN_EMP*(PROD_GOSHEN)/max(PROD_GOSHEN) +#Total Compensation to employees +GOSHEN_COMP <- GOSHEN_WAGE*GOSHEN_EMP +WASH_COMP <- WASH_WAGE*WASH_EMP +#########################SBS Purchases +SBS_LOCAL_COST <- SBS_PURCHASE_PRICE*WYOMING_SUGAR_PURCHASES +SBS_NATIONAL_COST <- SBS_PURCHASE_PRICE*(TOTAL_SBS-WYOMING_SUGAR_PURCHASES-PRODUCED_SGS) +#########################Beet Purchases +GOSHEN_BEET_PURCHASE <- PROD_GOSHEN*BEET_PURCHASE_PRICE +WASHAKIE_BEET_PURCHASE <- PROD_WASHAKIE*BEET_PURCHASE_PRICE +#########################Skids +SKID_TOTAL_CONST_COST <- COST_TO_BUILD_SKID*CONSTRUCTED_SKIDS +SKID_EQUIP_COST <- SKID_TOTAL_CONST_COST*SKID_EQUIP_COST_RATIO #Cost of building the skid associated with equipment. +SKID_BUILD_COST <- SKID_TOTAL_CONST_COST*SKID_CONSTRUCTION_COST_RATIO #Cost of building the skid associated with general building costs. + +NUM_SKIDS <- 0 +ACTIVE_SKIDS <- c() +for(i in 1:length(CONSTRUCTED_SKIDS)){ + ACTIVE_SKIDS[i] <- NUM_SKIDS + NUM_SKIDS <- NUM_SKIDS+CONSTRUCTED_SKIDS[i] +} +SKID_MAINT_COST <- ACTIVE_SKIDS*SKID_OP_COST #Cost to upkeep the active skids +#########################Transportation Costs +FROM_GOSHEN_COST <- TRUCK_COST*PROD_GOSHEN*GOSHEN_TO_CAMPBELL #Cost to ship SBS from Goshen processing facility to the final site. +FROM_WASHAKIE_COST <- TRUCK_COST*(PROD_WASHAKIE+WYOMING_SUGAR_PURCHASES)*WASHAKIE_TO_CAMPBELL #Cost to ship SBS from Wyoming sugar and the Washakie processing facility to the final site. +FROM_WESTON_COST <- TRUCK_COST*WESTON_TO_CAMPBELL*(TOTAL_SBS-WYOMING_SUGAR_PURCHASES-PRODUCED_SGS) #Cost to ship out of state SGS from the Weston rail depot to the skids. +OUT_STATE_SHIPPING_COST <- RAIL_COST*OUT_STATE_TO_WESTON*(TOTAL_SBS-WYOMING_SUGAR_PURCHASES-PRODUCED_SGS) #Cost to ship the out of state SGS to the rail depot in Weston (Upton,WY) +###############Tax Credit and voluntary Carbon Market +CARBON_ABATEMENT <- TOTAL_SBS*MTU_CARBON_PER_TON_BEET +#Shift by one year, so credits are acquired after one year of injection +CARBON_ABATEMENT_SHIFT <- c(0,CARBON_ABATEMENT[-length(CARBON_ABATEMENT)]) +CARBON_TAX <- CARBON_ABATEMENT_SHIFT*CARBON_TAX_CREDIT_PRICE +VCM_CREDIT <- VCM_PRICE*CARBON_ABATEMENT +##################Adjustments + #Negative commodity output shock to remove the beet spending from the facility (since it is modeled separately) + BEET_REMOVAL_COEF_GOSHEN <- -PER_BEET_SPENDING*OP_COST_GOSHEN + BEET_REMOVAL_COEF_WASHAKIE <- -PER_BEET_SPENDING*OP_COST_WASHAKIE + #Negative transportation adjustments since direct transportation costs are modeled separately. + GET_ADJ <- function(YEAR){ + FILES <- list.files("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run/") + FILE <- paste0("./Raw_Output/Detailed_Economic_Indicators/Prelim-Run/",FILES[grep(paste0("-",YEAR),FILES)]) + DF <- read_csv(FILE) %>% filter(ImpactType=="Direct",IndustryCode %in% c(397,399),TagName=="beet purchase") + + DF$County <- gsub(" County, WY \\(2023\\)","",DF$DestinationRegion ) + DF$Year <- YEAR + DF <- DF %>% select(Year, County, Industry=IndustryDescription,Output) %>% mutate(Output=-Output) + return(DF) + } + YEARS_TO_PROC <- Year[c(-1,-7)] + for(i in YEARS_TO_PROC){ + if(!exists("ADJUST_COSTS")){ADJUST_COSTS <- GET_ADJ(i)} else{ADJUST_COSTS <- rbind(ADJUST_COSTS,GET_ADJ(i))} + } +WASHAKIE_TRUCK_ADJ <- rbind(ADJUST_COSTS %>% filter(County=="Washakie"),c(2024,"Washakie","Truck transportation",0),c(2030,"Weston","Rail transportation",0)) %>% unique %>% arrange(Year) %>% pull(Output) +WESTON_RAIL_ADJ <- rbind(ADJUST_COSTS %>% filter(County=="Weston",Industry=="Rail transportation"),c(2024,"Weston","Rail transportation",0),c(2030,"Weston","Rail transportation",0))%>% unique %>% arrange(Year) %>% pull(Output) +WESTON_TRUCK_ADJ <- rbind(ADJUST_COSTS %>% filter(County=="Weston",Industry=="Truck transportation"),c(2024,"Weston","Truck transportation",0),c(2030,"Weston","Rail transportation",0))%>% unique %>% arrange(Year) %>% pull(Output) + +DATA <- cbind(Year,CARBON_TAX,VCM_CREDIT,GAS_VALUE,RNG_ADD_VALUE, + SBS_LOCAL_COST,SBS_NATIONAL_COST,GOSHEN_BEET_PURCHASE,WASHAKIE_BEET_PURCHASE, + SKID_EQUIP_COST,SKID_BUILD_COST,SKID_MAINT_COST, + BEET_CAP_WASHAKIE,BEET_TOTAL_CAP_GOSHEN,OP_COST_WASHAKIE,OP_COST_GOSHEN,WASH_EMP,GOSHEN_EMP,WASH_COMP,GOSHEN_COMP,PROD_WASHAKIE,PROD_GOSHEN, + FROM_GOSHEN_COST,FROM_WASHAKIE_COST,FROM_WESTON_COST,OUT_STATE_SHIPPING_COST, + WASHAKIE_TRUCK_ADJ,WESTON_RAIL_ADJ,WESTON_TRUCK_ADJ,BEET_REMOVAL_COEF_GOSHEN,BEET_REMOVAL_COEF_WASHAKIE ) %>% as_tibble + + +